Digital PDFs

AH-B162C-MC

November 1980

215 pages

Original

110MB

view download

OCR Version

135MB

view download

Document:	CZR6QC0 RK611,RK06,RK07 RK6 DR CPT PROG NOV 1980 bw
Order Number:	AH-B162C-MC
Revision:	000
Pages:	215
Original Filename:	CZR6QC0__RK611,RK06,RK07__RK6_DR_CPT_PROG__AH-B162C-MC__NOV_1980_gray.pdf

OCR Text

RKO6 , RKO7
RK611

RK6

CPT

CZR6QCO

PROG

AH-Bl62C-MC
FICHE 1 OF 2

COPYRIGH TS 7 -80 EDQ

LT
wsoean use

RK611

RKO6.RKO7

DR CPT PROG
RKeé CZR6GC0

AH-B162C-MC
FICHE 2 0OF

-2

C:flo‘:R;Z:?E 77-80 @BEE@

i usa
waoe

—

C'R6QCO Rk6 DR CPT PROG MACY11 30A(1052)
ClR6aC.P1
02-JuL-80 09:50

02-JUL-80

09:52

PAGE 3

1
SEQ 0001

RN R R UR NS Sa VG AR W 25 0 ~o v i~ i

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC-B161C-MC

PRODUCT NAME:

CZR6ACO RK6 DR CPT PROG

DATE:

JUNE 1980

MAINTAINER:

DIAGNOSTIC GROU?

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND
SHOULD NOT BE
CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATIQN.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY E RO&S THAT MAY APPEAR IN THIS DOCUMENT.

SR O

L S

NO RESPONSIBICITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOF TWARE
ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED
COMPANIES.
DIGITAL.

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

02-JuL-80

09:52

PAGE &

SEQ 0002

4«8
49

S
S
54
55
gg

TABLE OF CONTENTS

1.0

INTRODUCTION

3.0

PRELIMINARY PROGRAM REQUIREMENTS

62
63
64
65
66
67
68
69
70

4.0

GENERAL
4.1
4.2
4.3
4.%
4.5
4.6
4.7
4.8

5.0

PROGRAM LOAD MEDIA

75
76

6.0

PROGRAM OPTIONS
6.1
STARTING ADDRESSES

2.0 HARDWARE REQUIREMENTS

;}

4.9

—8
s - >

KO8R R 2RSS BRIFARARZBI

6.2

PROGRAM CONSIDERATIONS
SYSMAC
XXDP
ACT
APT
DUAL=-ACCESS
MEMORY MANAGEMENT
MEMORY PARITY OPTION
BAD SECTORS
EXECUTION TIME

SWITCH REGISTER OPTIONS USED

7.0

RUNNING THE PROGRAM

8.0

OPERATIONAL DIALOGUE

9.0

8.1
8 .2
8. 35
8. &
8. 5

DIALOGUE FOR ADDRESS 200 START
DIALOGUE FOR ADDRESS 204 START
DIALOGUE FOR ADDRESS 220 START
PASS 1 DIALOGUE

PASS 2 DIALOGUE

DESCRIPTION
OF TESTS
IPTI]
9. 1
DESCRIPTION OF PASS 1 TESTS
9.2 DESCRIPTION OF PASS 2 TESTS

10.0

PRINTOUT OF TEST RESULTS
10.1
OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

11.0

ERROR REPORTING
11.1
COMMON ERRORS
11.2
ERROR HANDLING
11.3
ERROR PRINTOUT EXAMPLE

TABLE A =

BASIC READ/WRITE TEST SECTORS

TABLE B =

WORSE CASE DATA PATTERN

TMTM

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CIR6QC.P11
02-JuL-80 09:50

CZREQCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.PN
02-JuL-80 09:50

02-JuL-80

09:52

PAGE 5

ig;

TABLE C = CYLINDER BLOCK ASSIGNMENT FOR A SIVEN SURFACE

}88

TABLE D -

BASIC CYLINDER BLOCK LAYOUT EXAM:
.E

}}?

TABLE E =

OVERWRITE CYLINDERS

}}%

TABLE F =

SELF=TEST CYLINDERS

TABLE G =

PSEUDO=RANDOM DATA PATTERN

SEQ 0003

W =OOVONO
WV WN=2000NoOWM

)
D D i
D
i
D e
D
D e e
) D e
D e
D

02-JuL-80

1.0

3
SEQ 0004

INTRODUCTION

THE PROGRAM IS DESIGNED TO DETECT THE FOLLOWING CONDITIONS WHICH

COMMONLY CAUSE

Ses ~NOw»

D e
D e

N SN

PAGE 6

NOTE: RKO6 AND RKO7 DRIVES CANNOT BE MIXED FOR COMPATIBILITY TESTING.

d
D e
D
D
D
D
D
) el
D
D i
D
D
D e

09:52

THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPATIBILITY OF UP TO 1 6
RKO6 OR RKO7 DRIVES WHICH MAY
RESIDE
ON ONE OR MORE RK611/RK06-07 7 SUBSYSTEMS
(INCLUDING
SYSTEMS
WITH MULTIPLE
SUBSYSTEMS). _ COMPATIBILITY
|S
DEFINED HERE AS THE ABILITY OF A DRIVE TO WRITE DATA WHICH CAN BE REA D
SUCCESSFULLY BY ALL OTHER DRIVES, AND ADDITIONALLY THE
ABILITY
OF
B
DRIVE TO COMPLETELY OVER=-WRITE DATA WRITTEN BY ALL OTHER DRIVES.

RK6 DR CPT PROG MACY11 30A(1052)
P
02-JuL-80 09:50

D e

VIS
B S SNBSS W
OO NO WV
WA 2OV
NO WV WN -

il
el ol
D e
il
—

CIR
CZR

INCOMPATIBILITY BETWEEN DRIVES:

HEAD MIS=-ALIGNMENT

POSITIONER LATERAL MISALIGNMENT

SPINDLE=-CARTRIDGE INTERFACE RUNOUT

IMPROPER LEVELS OF WRITE CURRENT

INCORRECT ADDRESSING OF READ/WRITE HEADS

MOST

THE TESTING IS DONE IN TWO
PASSES.
IN
PASS 1,
COMPATIBILITY
DATA
PATTERNS
ARE
WRITTEN BY ALL THE DRIVES UPON THE SAME DISK CARTRIDGE,
AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS DEMONSTRATED.
IN

PASS 2,
THE COMPATIBILITY DATA FROM ALL DRIVES IS READ BY EACH DRIVE,
WITH INCREASING HEAD OFFSET, AND THIS IS COMPARED WITH EACH DRIVE'S
ABILITY TO READ ITS OWN DATA.
IN ADDITION, EACH DRIVE'S CAPABILITY TO
OVERWRITE DATA WRITTEN BY ALL OTHER DRIVES IS
TESTED ON THE
SECOND
PASS.

(FOR THE REMAINDER OF

THIS SPECIFICATION,

OF THE FIRST AND SECOND PASS SHALL APPLY).

THE ABOVE DEF INITIONS

IN BOTH PASSES, THE PROGRAM DIRECTS THE OPERATOR IN THE
LOADING AND
UNLOADING OF
DRIVES AND THE MOVEMENT OF THE CARTRIDGE FROM DRIVE TO
DRIVE, THROUGH MESSAGES AT THE CONSOLE TERMINAL.
AT THE COMPLETION OF
TESTING ON EACH DRIVE DURING THE SECOND PASS A SUMMARY IS PRINTED OF
COMPATIBILITY TEST RESULTS FOR THAT DRIVE.

WITHIN THE VARIOUS TESTS OF BOTH PASSES, THE CAPABILITY IS PROVIDED 10
LOOP ON CURRENT OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVID ED,
gg%r;fiu ZAsgffY OF
LOOPING,
RUNNING,
AND
REPORTING
MODES
( SEE

UNEXPECTED ERRORS WILL BE REPORTED AS THEY OCCUR.
THE REPORT WILL
INCLUDE A TEST NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS
GOOD AND BAD TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS.

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
(leQC.P!}
02-JuUL-80 09:50

02-JUL-80

09:52

PAGE 7

SEQ 0005

WA
-

VIS
W =0O

_._.-.—.—.-.g &< VIS

oo LY NN

VOOV OOV

OO0

0000 N NNNNNNNN

167

2.0

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RK06-07 DRIVE COMPATIBILITY

PROGRAM, FOR EACH SUBSYSTEM WHICH MAY BE PRESENT:

POP=11/04, (05,10 MFG. ONLY), 20,30,34,35,40,45,50,70, OR PDQ
16K MEMORY
CONSOLE TERMINAL
RK611 CONTROLLER
1 T0 8 RKO6 OR RKO7 DISK DRIVES PER CONTROLLER

IN ADDITION, A SINGLE RKO6 DISK CARTRIDGE IS REQUIRED WHICH MAY BE
FORMATTED IN EITHER 20 OR 22 SECTOR FORMAT, ON A RELIABLE WELL~ALIGNED
RKO6 DRIVE.
THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE,
TO 16 DRIVES) ON EACH OF TWO PASSES.

3.0

(ON

PRELIMINARY PROGRAM REQUIREMENTS

BEFORE RUNNING THE RKO6 DRIVE COMPATIBILITY PROGRAM, THE SUBSYSTEM(S)
UNDER TEST SHOULD BE CAPABLE OF PASSING THE CONTROLLER DIAGNOSTICS
CZR6A-CZR6E AND CZR6K, THE DRIVE DIAGNOSTICS CZR6H-CZR6J,
AND THE
SUBSYSTEM
VERIFICATION
PROGRAMS CZR6M-CZR6N.
IN ADDITION,
THE
CARTRIDGE MUST BE FORMATTED IN 20 OR 22 SECTOR FORMAT USING THE PACK
;S?CQ;TER

CZR6L,

EQUIVALENT

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

THIS PROGRAM USES PORTIONS

PACKAGE.

4.2

THE

(PERFORMED

SYSMAC

DIAGNOSTIC

SYSTEM

MACRO

MODE

XXDP

THIS PROGRAM MAY BE LOADED UNDER XXDP, AND MAY BE

ONLY.

KNOWN GOOD, ALIGNED

DUE

RUN

DUMP

TO MANUAL INTERVENTION AND LACK OF END-OF-PASS HOOKS, THE

PROGRAM IS NOT XXDP CHAINABLE.

02-JuL-80

09:52

PAGE 8

SEQ 0006

lalel
NN

6QCO RK6 DR CPT PROG MACY11 30A(1052)
6QC.P11
02-JUL-80 09:50

216
217
218
%58

4.3

221
5;;

THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY.
IT 1S NOT CHAINABLE UNDER ACT.

224
225
%%'61

L.L

228
%gg

THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM,
BUT MAY BE RUN
PROGRAM (DUMP) MODE ONLY.
IT CANNOT BE RUN IN APT SCRIPT MODE.

231
232

ACT

APT

%gz

4.5

235

THIS PROGRAM DOES NOT UTILIZE THE DUAL=-ACCESS OPTION IN ANY

236
237
238
239

DUAL=-ACCESS

WAY,
AND
ALL DRIVES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHICH IS
NOT IN USE.

240
%25

4.6

243
%2g

MEMORY MANAGEMENT
IS NOT WUTILIZED
IN
INSTALLED, IT IS DISABLED BY THE PROGRAM.

246
247
%23

4.7

250
251
252

MEMORY MANAGEMENT

THIS

PROGRAM.

MEMORY PARITY OPTION

IF PARITY MEMORY IS INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY THE
PROGRAM.

253
254
ggz

4.8

257
258
259
260
gg;

THE LIST OF BAD SECTORS ON THE CARTRIDGE IS OBTAINED FROM THE FIRST
DRIVE TO BE
TESTED ON THE CURRENT SUBSYSTEM. ACCORDING TO A SWITCH
REGISTER OPTION (SEE SECTION 6.2) THIS LIST MAY BE TYPED AT THE
CONSOLE AT THE START OF THE FIRST PASS. ALL DATA ERRORS OCCURING IN
THE PROGRAM ARE IGNORED IF THEY OCCUR IN SECTORS DESIGNATED AS BAD.

263
264
ggz

4.9

267
268
269

THE TOTAL TIME REQUIRED TO RUN THE DRIVE COMPATIBILITY PROGRAM IS
DIRECTLY PROPORTIONAL TO THE NUMBER OF DORIVES TO BE TESTED AND
REQUIRES ABOUT 8-10 MINUTES PER DRIVE.

BAD SECTORS

EXECUTION TIME

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZRrR6QC.PNN
02-JuL-80 09:50

02-JuL-80

5.0

09:52

PAGE 9

SEQ 0007

PROGRAM LOAD MEDIA

THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE

ABSOLUTE

LOADER

OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP.

6.0

PROGRAM OPTIONS

6.1

STARTING ADDRESSES

200 = THIS IS THE STARTING ADDRESS FOR DEFAULT PARAMETERS
RUNNING OF
PASS
1 AND PASS 2 ON A SINGLE SUBSYSTEM.

AND
THE

PROGRAM WILL USE
DEFAULT
RK611
BASE
ADDRESS,
INTERRUPT
VECTOR AND PRIORITY, AND WILL AUTOMATICALLY DETERMINE WHICH
DRIVES TO TEST.
DRIVES MUST BE ON-LINE,
POWERED UP,
AND
EITHER
LOADED OR
UNLOADED.
THE PROGRAM WILL ASSUME ALL

gzigis TO BE TESTED
204 - THIS

THE

RK611/RK06
THE PROGRAM
VECTOR, AND
IT ASKS FOR

gI?SR

N NNAN

N U L
A U N N NN NN
NN
(V.
V]N =2OOVRNOWVESWN=O

34 3

220 = THIS

RESIDE

STARTING

ONE

ADDRESS

RK611/RK06
RUN

PASS

SUBSYSTEM

ALL

SUBSYSTEMS WHICH RESIDE ON THIS PDP-11 SYSTEM.
WILL ASK FOR THE RK611 BASE ADDRESS,
INTERRUPT
PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND
THE LETTER NAMES (A THRU P)
ASSIGNED
TO ALL

SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESVED ON

THE

STARTING

ADDRESS

RUN

PASS

ALL

RK611/RK06
SUBSYSTEMS WHICH RESIDE ON THIS PDP-11 SYSTEM.
THE PROGRAM WILL ASK FOR THE RK611
BASE
ADDRESS, INTERRUPT
VECTOR, AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND
IT ASKS FOR THE LETTER NAMES (A THRU P)
ASSIGNED
TO ALL
gxgsk
SUBSYSTEMS, AND THE DRIVE(S) WHICH WILL BE TESTED ON

6.2

SWITCH REGISTER OPTIONS USED

THIS PROGRAM IS DESIGNED TO ALLOW
THE
USE
OF
THE
HARDWARE
SWITCH
REGISTER
IF PRESENT, OR THE SYSMAC-SUPPORTED SOFTWARE SWITCH REGISTER
(IF HARDWARE SWR IS NOT PRESENT, OR IS SET TO ALL
ONES).
IN EITHER
£325§EIT¥5 :OLLOUlNG OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS

BIT

OPTION

15
14

HALT ON ERROR
LOOP ON CURRENT TEST

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1N
02-JuL-80 09

02-JuL-80

13
12

1
10
09
08
07
06-00

7.0

33 13 48 3 I

PAGE 10

SEQ 0008

INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS

UNUSED
BELL ON ERROR
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF'S) AT START
UNUSED

RUNNING THE PRCGRAM

ONCE THE PROGRAM HAS BEEN LOADED INTO CORE
}:EREROGSEH MULTIPLE SYSTEMS)

ViYW

N0V

~NOW

331333233
e

WN =00

N N N N N NN N W NN
NN

326
327
328

09:52

(IN

GIVEN

THE FOLLOWING STEPS MUST BE

SYSTEM,

TAKEN TO RUN

INSURE THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE

PORT SELECTED.

LOAD THE DESIRED START ADDRESS.

SET ANY DESIRED BITS IN

PRESENT).

THE

HARDWARE

START THE PROGRAM.

FOLLOW ALL INSTRUCTIONS TYPED BY THE
THE

MANUAL

INTERVENTION

SWITCH

(IF

PROGRAM

PERTAINING

REQUIRED, AND THE ALTERNATE USE OF

MULTIPLE SYSTEMS (IF THERE ARE ANY).

8.0

OPERATIONAL DIALOGUE

THIS SECTION DESCRIBES THE CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE
PROGRAM DIRECTS
THE
OPERATOR,
IN
THE SELECTION OF OPTIONS AND THE

LOADING AND UNLOADING OF DRIVES, AND THE MOVEMENT OF
THE TEST
CARTRIDGE.
THE EXACT DIALOGUE WHICH IS USED DEPENDS UPON THE STARTING
ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1).
IN THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF
TEST RESULTS,
DRIVES TO BE TESTED WILL BE REFERRED TO BY A LETTER AND A NUMBER.
THE
LETTER IS THE SUBSYSTEM LETTER NAME
(OPERATOR ASSIGNED),
AND THE

NUMBER

THE DRIVE NUMBER ON THAT SUBSYSTEM.

REFERS TO DRIVE 6 ON SUBSYSTEM C.

FOR EXAMPLE, DRIVE (6

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P11
02-JuL-80 09:50

02-JuL-80

8.1

09:52

PAGE 11

SEQ 0009

DIALOGUE FOR ADDRESS 200 START

THIS STARTING ADDRESS MAY BE USED
FOR AUTOMATIC
DRIVE
SIZING AND
DEFAULTING OF
PARAMETERS,
WHEN THE
DRIVES RESIDE ON ONE SUBSYSTEM
ONLY.
THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS:

CZR6QBO - RKO6=RKO7 DRIVE COMPATIBILITY PROGRAM
THEN, THE DRIVES ON

THE

SYSTEM

ARE

AUTOMATICALLY

AND

ALL

THE PROGRAM NOW PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN

THE

EXISTING DRIVES WILL BE MARKED FOR TESTING.
DRIVE LIST, AS IN THE FOLLOWING EXAMPLE:

DRIVE TYPE

SIZED,

THE PROGRAM TYPES THE

6<CR> FOR RKO6, 7<CR> FOR RKO7:

THE OPERATOR MUST TYPE EITHER A 6<CR> OR A 7<CR>

DRIVES = 2,5,7
MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4.

PLEASE NOTE THAT THERE IS ONLY ONE SUBSYSTEM ON AN

ADR.

200

START,

:iggRgED TO AS A2,A5,A7 IN THE TEST RESULTS PRINTOUT

THE

END

AND IT IS NAMED SUBSYSTEM A.

8.2

THE DRIVES IN THE ABOVE EXAMPLE WOULD BE

DIALOGUE FOR ADDRESS 204 START

THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE IS MORE
THAN ONE
SUBSYSTEM,
BUT
IT MAY ALSO BE USED WHEN THERE IS JUST ONE

SUBSYSTEM (TOTAL),

VALUES, FOR PASS 1.

TO SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAMETER

THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS:

CZR6QBO - RKO6=RKO7 DRIVE COMPATIBILITY PROGRAM
THEN, THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES

TESTED

EACH’ OF THE POSSIBLE SUBSYSTEMS (STARTING WITH A = THE NAMES RANGE
FROM SUBSYS A TO SUBSYS P.
THERE COULD BE UP TO 16 SUBSYSTEMS, WITH A
DRIVE ON EACH )

DRIVE TYPE

6<CR> FOR RKO6, 7<CR> FOR RKO7:

THE OPERATOR MUST TYPE IN 6<CR> OR 7<CR>
SUBSYS A DRIVE(S) =

E;EflgtERATOR THEN TYPES THE DESIRED DRIVE NUMBERS, AS IN THE FOLLOWING

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZRrR6QC.PN
02-JuL-80 09:50

02-JuL-80

09:52

PAGE 12

SEQ 0010

SUBSYS A DRIVE(S) = 2,5,7
THE PROGRAM THEN VERIFIES THE DRIVE NOS.

BY TYPING

WILL TEST DRIVE(S) 2,5,7 ON SUBSYS A.
NEXT, THE PROGRAM ASKS THE FOLLOWING QUESTION:

IS THERE ANOTHER SUBSYS (Y OR N <CR>)?
THE OPERATOR TYPES Y<CR> OR N<CR>,
(IF
JUST <CR>
IS
TYPED,
THE
PROGRAM ASSUMES
THAT N<CR> WAS TYPED).
IF THE OPERATOR TYPED N, THE
PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE MOUNTING

OF THE PACK, AS DESCRIBED IN SECTION 8.4.

IF Y WAS TYPED, THE PROGRAM

ASKS FOR THE NUMBERS OF THE DRIVES TO BE TESTED ON THE NEXT
(SUBSYS B) AS FOLLOWS:

SUBSYSTEM

SUBSYS B DRIVE(S) =
THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE:

SUBSYS B DRIVE(S) = 2,3
THE PROGRAM THEN VERIFIES THE DRIVE NOS.

BY TYPING :

WILL TEST DRIVE(S) 2,3 ON SUBSYS B.
NEXT, THE PROGRAM WILL ASK

IS THERE ANOTHER SUBSYS (Y OR N <(R>)?
AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON
THE REMAINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED.

EACH

NEXT, THE PROGRAM ASKS FOR THE LETTER NAME ASSIGNED TO

SUBSYSTEM

TO BE TESTED NEXT

TYPE NAME OF NEXT SUBSYS TO TEST (A-P)

THE OPERATOR RESPONDS, AS IN THE FOLLOWING EXAMPLE

TYPE NAME OF NEXT SUBSYS TO TEST (A=P)

THE

ALL SUBSYSTEMS MUST BE TESTED IN THE ORDER IN WHICH THE LETTERS ARE
ASSIGNED
(A THRU P). NEXT, THE PROGRAM ALLOWS THE OPERATOR TO ALTER
THE RK611 BUS ADDRESS, VECTOR ADDRESS, AND INTERRUPT PRIORITY FOR THIS

SUBSYSTEM.

FOR EACH PARAMETER THE CURRENT VALUE IS TYPED, AND THE

OPERATOR IS GIVEN THE OPPORTUNITY TO TYPE IN A NEW VALUE,

PLUS

<CR>,

IF JUST <CR> IS TYPED, THE PARAMETER IS NOT CHANGED. WHEN THE PROGRAM
IS FIRST LOADED, THE FOLLOWING DEFAULT VALUES ARE ASSIGNED: RK611 BUS
ADDRESS = 177440
VECTOR ADDRESS = 210,
AND PRIORITY = 5.
THE
Eakhgggflfi EXAMPLE SHOWS A PRINTOUT 1IN WHICH ONLY THE VECTOR WAS

CZR6QCO RK6 DR CPT PROG HAC;&1 30A(1052) 02-JuL-80 09:52 PAGE 13L

CZR6QC.PN

02-JuL-80 09

RK611 BUS ADR =
RK611 VEC ADR =
RK611 PRIORITY =

177440
210
5

SEQ 00N
NEW
NEW
NEW

240

THEN THE PROGRAM PROCEEDS WITH PASS 1, AND DIRECTS THE OPERATOR IN THE

MOUNTING

OF THE PACK, AS DESCRIBED IN SECTION 8.4.

AT THE COMPLETION

OF PASS 1 ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE

OPERATOR

HOW

TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM.

8.3

VAW

VAW A AT

NNV

AW VT

NI NI NIRNINININD b b e ed b e

A VA VWA VAWV

b d d b

2O O NV
—=O
STEIRRRURZE VONOWVNEUWN

509

561

DIALOGUE FOR ADDRESS 220 START

THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM, WHEN THERE

FOR

THE

204

TESTED

THAN
1
SUBSYSTEM,
BUT
IT
MAY
ALSO BE USED WHEN THERE IS JUST ONE
SUBSYSTEM
(TOTAL)
,
TO SPECIFY
DRIVES
TO
TEST
AND NON-DEFAULT
ESECSS;ER VALUES,
FOR PASS 2.
THE
PROGRAM IDENTIFIES ITSELF, AS

CZR6GBO - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM
THE DIALOGUE FOR 220 START IS IDENTICAL TO THE DIALOGUE

START

DESCRIBED

ABOVE

(SECTION 8.2), FOR THE SELECTION OF SUBSYSTEM

PARAMETERS AND THE SPECIFICATION OF ALL DRIVES TO

VARIOUS

SUBSYSTEMS.

HOWEVER,

AFTER THIS DIALOGUE IS COMPLETED,

THE

PROGRAM PROCEEDS WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT
OF THE PACK, AS DESCRIBED IN SECTION 8.5.
NOTE THAT SINCE THE APPROPRIATE

STARTED

TEST MAY BE PERFORMED IN STEPS, AT VARIOUS TIMES AND

BETWEEN

VARIOUS

STARTING

ADDRESS

FOR

PROCESSOR

MUST

THE

EACH SUBSYSTEM TO BE TESTED, THE COMPATIBILITY

DISTANT
LOCATIONS,
BY
MOVING
THE TEST PACK AND SAVING THE PRINTOUT
FROM EACH PASS ON EACH PDP-11 SYSTEM INVOLVED.

8.4

PASS 1 DIALOGUE

AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE

CURRENT
SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START
OF PASS 1 AS FOLLOWS:

t+ STARTING PASS 1 =+
NEXT, THE PROGRAM SELECTS
THE
FIRST
DRIVE
TO BE_
TESTED
ON
THIS
SUBSYSTEM,
AND INSTRUCTS THE OPERATOR TO MOUNT THE TEST CARTRIDGE AND

LOAD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE:

MOUNT PACK ON DRIVE A2 AND LOAD.
TYPE R<CR> WHEN DRIVE READY:

(VL IV IV IV IV IV IV IV V. IV ]
VWAV IV S

ONOWVE W00

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZrRéQC.P11
02-JuL-80 09:50

02-JUL-80

09:52

PAGE 14

SEQ 0012

THE OPERATOR PERFORMS THIS TASK AND TYPES R<CR> WHEN THE

DRIVE

READY

LIGHT IS ON. THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE
SECTION 9.1) AND THEN INSTRUCTS THE OPERATOR TO UNLOAD THE DRIVE AND

REMOVE THE PACK AS FOLLOWS:

UNLOAD DRIVE A2 AND REMOVE PACK.
TYPE R<CR> WHEN DONE:

THE OPERATOR PERFORMS THESE FUNCTIONS AND TYPES R<CR> AFTER
HAS BEEN REMOVED.

THE

PACK

IN THE SAME MANNER, THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT
OF
THE PACK THROUGHOUT THE REST OF
THE DRIVES ON THE CURRENT
SUBSYSTEM.
WHEN THIS HAS BEEN COMPLETED,
THE PROGRAM DOES ONE OF
THREE THINGS:
(1)
IF
THERE
IS ONLY ONE SUBSYSTEM (FROM ADR 200
START) THE PROGRAM BEGINS PASS 2 (SEE SECTION 8.5).
(2)
IF THERE
IS ANOTHER SUBSYSTEM,
THE PROGRAM DIRECTS THE OPERATOR TO PERFORM
PASS 1 ON THE NEXT SUBSYS AS FOLLOWS (AND THEN HALTS)

START AT ADR 204 FOR PASS 1 ON SUBSYS B
(3) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY SUBSYS,
THE
PROGRAM DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRST SUBSYS (SEE

SECT.

8.5) AS FOLLOWS (AND THEN HALTS)

START AT ADR 220 FOR PASS 2 ON SUBSYS A

8.5

PASS 2 DIALOGUE

THE OPERATOR RETURNS TO THE FIRST SUBSYSTEM TO PERFORM PASS 2 EITHER
THROUGH THE DIALOGUE OF THE ADR 200 START, OR AFTER THE SELECTION OF
PARAMETERS AND DRIVES HAS BEEN COMPLETED IN ACCORDANCE WITH THE

DIALOGUE

OF THE ADR 220 START (SEE SECTION 8.3).

PROGRAM INDICATES THE START OF PASS 2 BY TYPING :

[IN EITHER CASE, THE

** STARTING PASS 2 #v
THE PROGRAM THEN DIRECTS THE OPERATOR IN THE UNLOADING, PACK MOVEMENT,
AND LOADING OF ALL DRIVES ON THE FIRST SUBSYSTEM, IN THE SAME MANNER
AS DESCRIBED FOR PASS 1 (SEE SECTION 8.4 )

HOWEVER, AFTER PASS 2 TESTING (SEE

GIVEN ORIVE,

DETAILS OF THIS

THE

SECTION 9.2)

COMPLETED

ENTIRE TEST RESULTS FOR THAT DRIVE ARE TYPED.

PRINTOUT

ARE

DESCRIBED

DETAILS OF THE TESTING ARE DESCRIBED.

SECTION 10,

AFTER

ON_

THE
THE

CPT PROG MACY11 30A(1052)

0§°JUL°80 09:50

02-JuL-80

SEQ 0013

*+ END OF TESTING o+

il o
D il

PAGE 15

(2) IF THERE IS ANOTHER SUBSYSTEM, HOWEVER, THE PROGRAM DIRECTS THE
TO PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS (AND THEN

g:f?g;OR

09:52

WHEN PASS 2 HAS BEEN COMPLETED FOR ALL DRIVES ON THE FIRST
SUBSYSTEM,
THE
PROGRAM DOES
ONE
OF
TWO THINGS:
(1) IF THERE IS ONLY ONE
SUBSYSTEM (FROM ADR 200
START) OR IF ALL DRIVES ON ALL SUBSYSTEMS HAVE
BEEN TESTED
IN PASS 2
(FROM ADR 220 START), THE ENTIRE TESTING AND
REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES:

ooooo0rOrOrOrONON

OOV
NN = O

3333

CIR6QCO RK6 DR
CZR6QC.P1T

START AT ADR 220 FOR PASS 2 ON SUBSYS B

9.0

DESCRIPTION OF TESTS

THE MAIN FUNCTIONAL BLOCKS OF CODE IN THE PROGRAM

ARE

ASSIGNED

TEST

NUMBERS, FOR THE PURPOSE OF IDENTIFICATION IN ERROR PRINTOUTS.
TEST 0
REFERS_TO THE OPERATOR INPUT DIALOGUE ROUTINES DESCRIBED
IN
SECTIONS

8.1-8.3.

THE

OTHER

TEST

NUMBERS

ARE

ASSIGNED

BELOW,

ARE

REFERRED

TO.

DESCRIPTION OF PASS 1 AND PASS 2 TESTING.

IN THE FOLLOWING SECTIONS, TABLES

TABLES,

A-G

DRIVES ARE NAMED FROM 0-17 FOR ILLUSTRATIVE PURPOSES,

THE DRIVES ARE NAMED THE

FOLLOWING

AO,A1, A2,...B0,B1,B2,...C0,C1,C2,...

9.1

WAY

ETC.

ACTUAL

THE

THESE

ALTHOUGH

SITUATION

(SEE SECTION 8.0).

DESCRIPTION OF PASS 1 TESTS

IN PASS
1,
THE BASIC READ/WRITE
CAPABILITY OF
EACH DRIVE
IS
DEMONSTRATED,
AND COMPATIBILITY DATA PATTERNS ARE
WRITTEN BY ALL
DRIVES UPON THE SAME TEST CARTRIDGE.
THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE

IS AS FOLLOWS:

TEST 1 - MOUNTING OF
TEST
CARTRIDGE
FOR PASS
1
=~
THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.4).

TEST 2 = BASIC READ/WRITE DATA TEST

WRITE

PATTERN,

TABLE AJ

THE PROGRAM

THE

APPROPRIATE

ALL SURFACES.

SECTOR

FOR

THIS

DRIVE

DATA

(SEE

THE PURPOSE OF THIS OPERATION IS

TO VERIFY THE BASIC READ/WRITE CAPABILITY

PASS

PERFORMS

AND WRITE CHECK OPERATION USING A 'WORST CASE''

THE

DRIVE

THE ENTIRE SECTOR IS WRITTEN WITH THE REPETITION OF

THE DATA PATTERN SHOWN IN TABLE B.
THIS PATTERN CONSISTS
OF
A MIXTURE OF HIGH AND LOW FREQUENCY ELEMENTS AND BIT STRINGS
REQUIRING VARIOUS DEGREES OF PRECOMPENSATION, WHEN ENCODED.

SHOWN

TABLE C

ON ALL

USING A SINGLE REPEATED WORD OF THE PATTERN IN
LOGICAL DRIVE 0 USES WORD O, LOGICAL DRIVE
1
USES

WORD 1, LOGICAL DRIVE 10 USES WORD 10, ETC. THUS, THE DATA
FSETOSQCH DRIVE IS UNIGUE. TABLE C HAS BEEN DETERMINED AS

IN EACH OF THE SEVEN WRITE CURRENT ZONES ON EACH SURFACE
SECTORS ARE WRITTEN WITHIN TWO DISTINCT CYLINDER BLOCKS.
IN
THE FIRST 16 CYLINDERS OF EACH WRITE
CURRENT
ZONE
DATA
IS
WRITTEN TO BE LATER OVERWRITTEN IN PASS 2,
DURING THE

[IN THE LAST 16

CYLINDERS

EACH

CURRENT

REMAINING

SECTORS,

4.11,16,

AND

25 ARE

SELF=TESTING IN PASS 2 (SEE SECTION 9 2).

USED

THE

THE BASIC LAYOUT OF
A iYPICAL
CYLINDER BLOCK
IS
SHOWN
IN
TABLE D, WHERE THE BLOCK SHOWN IS THE COMPATIBILITY BLOCK FOR

ZONE 1, WHICH STARTS ON CYLINDER 60, AND HAS THE ROTATING
STARTING SECTOR = SECTOR 0. EACH NUMBER INSIDE THE BLOCK IS
THE NUMBER OF THE DRIVE WHICH WRITES

THAT

SECTOR.

TABLE D

SHOWS THE BLOCKS WRITTEN BY EACH OF 16 DRIVES.
IF ANY OF THE
DRIVES SHOWN ARE NOT PRESENT, HOWEVER, THE BLOCKS RESERVED
FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN.

THE ABOVE PATTERN OF SECTOR WRITES
INSURES THAT DATA FROM
EACH DORIVE
IS WRITTEN ON ADJACENT CYLINDERS TO DATA FROM
EVERY OTHER DRIVE, IN BOTH DIRECTIONS.
IN ADDITION,
THE
ROTATION OF
THE ABOVE SECTORS FROM CURRENT ZONE TO CURRENT
IONE INSURES THAT OVERWRITE AND DATA COMPATIBILITY TESTING IS
?3?ECA:}RISE¥ERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT TO

TEST & - DISMOUNTING OF
TEST
OPERATOR UNLOADS THE DRIVE

CARTRIDGE
IN PASS
AND DISMOUNTS THE

DIRECTED BY THE PROGRAM (SEE SECTION 8.4),
THE ABOVE STEPS ON THE NEXT DRIVE.

1
= THE
PACK, AS

PROCEED

WITH

- -

WY USN WS N G

FOR DRIVE

0,1,2.3,5.6,7,10,12, 13.16 15, 17 20,21,22(0CTAL)
.

WITHIN EACH CYLINDER BLOCK, UP TO 16 SECTORS ARE WRITTEN
(DEPENDING ON_ THE
NUMBER OF
DRIVES BEING TESTED) ON EACH
CYLINDER.
THESE
SECTOR
ARE
ALWAYS
SECTORS

IONE
(EXCEPT THE
[INNERMOST ZONE)
COMPATIBILITY DATA IS
WRITTEN TO BE READ WITH OFFSET
IN PASS 2.
WITHIN EACH
CURRENT
ZONE BOTH THE OVERWRITE AND COMPATIBILITY CYLINDER
BLOCKS ARE IDENTICALLY WRITTEN BUT FROM ZONE TO ZONE THE DATA
WRITTEN BY EACH DRIVE IS ROTATED SEVERAL SECTORS SO THAT OVER
ShLTLgipig:ES THE DATA APPEARS AT VARIOUS ANGULAR POSITIONS

RNy W W

OVERWRITE TEST.

" p—" p—" pi—" =" g 3

SURFACES
TABLE G.

DRIVE WITHIN THE CYLINDER BLOCKS

TEST 3 = WRITE OVERWRITE
AND _ COMPATIBILITY
CYLINDER
BLOCKS = NEXT,
THE PROGRAM WRITES ALL SECTORS FOR THIS

(D W W

SEQ 0014

PAGE 16

P WY QD N W

09:52

02-JUL-80

(lalal

CIR6QCO RK6 DR _CPT PROG MACY11 30A(1052)
CZR6QC.P1N
02-JuL-80 09:50

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1T
02-JuL-80 09:50

02-JUL-80

9.2

09:52

PAGE 17

SEQ 0015

DESCRIPTION OF PASS 2 TESTS

IN PASS 2,THE ABILITY OF

g:{;EEN Ig'TEe%tD OTHER

EACH

DRIVES

DRIVE

COMPLETELY

THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE

OVERWRITE

DATA

AND TO READ DATA WRITTEN BY ALL OTHER
IS AS FOLLOWS:

TEST 5 = MOUNTING OF
TEST CARTRIDGE FOR PASS 2 = THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE
HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION 8.5).
TEST 6 - OVERWRITE TEST = NEXT,
THE
PROGRAM
TEST
THIS
DRIVE'S
OVERWRITE
CAPABILITY.
APPROPRIATE
CYLINDERS
IN TABLE E
FOR
THIS

PROCEEDS
TO
FIRST,
THE
DRIVE
ARE

OVERWRITTEN, ON EACH SURFACE.
THE DATA USED IS A REPETITION
OF A SINGLE WORD OF THE PATTERN IN TABLE G, LOGICAL DRIVE 0

USES WORD 0,

LOGICAL DRIVE 1 USES WORD 1, LOGICAL DRIVE 10

USES WORD 10, ETC.

THEN, EACH CYLINDER OVERWRITTEN IS READ BACK

THIS

DRIVE

WITH THE FOLLOWING RANGE OF OFFSET VALUES :
100, 200, 300,
400, 500, 600, 700, 800, 900, 1000, 1100, 1200 MICRO=-INCHES,

IN EACH’ OFFSET DIRECTION (+ AND'=).

READ ERRORS (DCK,HVRC,ETC.) DURING

OCCURS,

THE

PROGRAM

DETERMINES

THIS

THE PROGRAM SCANS FOR
READ,

AND

ONE

DRIVE

WHICH DRIVE'S DATA HAS NOT

BEEN CORRECTLY OVERWRITTEN, AND A SCORE

FOR

THAT

DECREMENTED.
THEN,
THE TRANSFER
1S CONTINUED AT THE NEXT
SECTOR, WITH THAT OFFSET VALUE.
THE READS ARE DONE WITH ALL
OF
THE ABOVE OFFSETS APPLIED, AND A SEPARATE SCORE FOR EACH
DRIVE IS KEPT, WHILE THE CURRENT DRIVE
1S PERFORMING THE
OVERWRITES.
FOR EACH TRACK (0,1,2), SCORES ARE AVERAGED OVER

ALL CYLS TESTED, IN EACH OFFSET DIRECTION.

AT THE COMPLETION

INVOLVED, IN A SITUATION IN WHICH A DRIVE

CANNOT OVERWRITE

OF
THE OVERWRITE TEST ON THIS DRIVE, THE SCORES OF ALL THE
DRIVES ARE CONVERTED AND STORED, FOR PRINTING AT THE END OF
PASS 2
(AS DESCRIBED IN SECTION 10.2).
EACH SCORE IS
PROPORTIONAL TO THE DEGREE OF OFFSET WHICH COULD BE APPLIED
IN A GIVEN OFFSET DIRECTION BY THE CURRENT DRIVE WHILE
SUCCESSFULLY READING THE DATA IT WROTE OVER ONE OF THE OTHER
DRIVE'S DATA.
THUS,
THE PRINTOUT REVEALS WHICH DRIVES ARE

ONE OR SEVERAL OTHER DRIVE'S DATA.

TEST 7 - DRIVE SELF=TEST = THE PROGRAM NEXT EVALUATES THE
DRIVE'S ABILITY TO WRITE AND READ ITS OWN DATA, AT VARIOUS
POSITIONS ON THE PACK. FIRST, SECTORS &,11,16, AND 23 OF THE
APPROPRIATE CYLINDERS SHOWN' IN TABLE F FOR THIS DRIVE ARE
WRITTEN WITH THE DATA PATTERN SHOWN IN TABLE B,
FOR ALL

SURFACES. THEN, THE SECTORS ARS READ WITH THE FOLLOWING
100, 200, 300, 400, 500, 600,
700
>
900, 1000, 1100, 1200 MICRO-INCHES, IN EACH OFFSET DIRECTION.
OFFSETS APPLIED :

THE PROGRAM SCANS FOR READ ERRORS DURING EACH

READ,

AND

COMPUTES A SCORE WHICH 1S PROPORTIONAL TO THE FAILING OFFSET

02-JuL-80

73
774
775
776
77
778

780

781
782
783
784
785

MAGNITUDE.

THEN, THE SCORES FOR ALL & SECTORS READ

THIS

UP WITH A DRIVE
OFFSET DIRECTION.

TEST 10 = COMPATIBILITY DATA READ TEST = HAVING ESTABLISHED
A
SELF-TEST
SCORE
FOR
THIS DRIVE, THE PROGRAM PROCEEDS TO

PERFORM THE COMPATIBILITY DATA READS OF THE PATTERNS

WRITTEN

CYLINDER AT A TIME, FOR_THE FOLLOWING OFFSET VALUES :
200, 300, 400, 500, 600, 700, 800, 900, 1000, 1100,

100
1200

MICRO-INCHES,
IN EACH OFFSET DIRECTION.
THE PROGRAM SCANS
FOR READ ERRORS DURING EACH READ AND
IF
ONE
OCCURS,
THE
PROGRAM DETERMINES WHICH DRIVE'S DATA WAS BEING READ AT THAT
INSTANT AND A SCORE FOR THAT DRIVE IS DECREMENTED.
THEN, THE
TRANSFER
IS CONTINUED AT THE NEXT SECTOR, WITH THAT OFFSET
VALUE.
THE READS ARE DONE WITH ALL OF
THE
ABOVE OFFSETS
APPLIED,
AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHILE
THE CURRENT DRIVE IS READING THE COMPATIBILITY DATA.
THEN,
EACH SCORE IS APPROPRIATELY ADJUSTED TO REFLECT THE SELF-TEST
SCORE FOR THE
CURRENT DRIVE
AT
THAT
PARTICULAR
CYLINDER
BLOCK.
THE
SCORES ARE
THEN AVERAGED OVER ALL CYLINDER
BLOCKS.,
EACH SCORE IS PROPORTIONAL TO THE CAPABILITY OF
THE
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF
THE OTHER DRIVES, AND SCORES ARE COMPUTED SEPARATELY FOR EACH
SURFACE
(TRACK),
FOR EACH OFFSET DIRECTION.
THUS,
THE

803

—

SEQ 0016

BY ALL
THE DRIVES IN EACH CYLINDER BLOCK (ON EACH SURFACE).
EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TABLE C IS READ, A

801
802

THIS SCORE IS SAVED FOR LATER USE, TO BECOME THE STANDARD FOR
THE COMPATIBILITY DATA READS WHICH ARE TO FOLLOW.

788
789
790
44
792
793
794
795
796
797
798
799

©D O 0o 0o

PAGE 18

CYLINDER BLOCK ARE AVERAGED,
TO COME
SELF-TEST SCORE FOR EACH SURFACE FOR EACH

786
787

805
806
807
808
809

09:52

PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED IN A SITUATION

WHICH A PARTICULAR DRIVE HAS DIFFICULTY IN READING THE DATA
OF ONE OR SEVERAL OTHER DRIVES.

TEST 11 = TYPE TEST SCORES AND DISMOUNT PACK IN

PASS

THE
OVERWRITE
AND COMPATIBILITY DATA READ TEST SCORES FOR
THIS DRIVE ARE
CONVERTED AND
TYPED.
THEN,
THE
OPERATOR
UNLOADS THE DRIVE AND DISMOUNTS THE PACK AS DIRECTED BY THE

gngzéct(gsEvgitTXON 8.5), TO PROCEED WITH THE ABOVE STEPS ON

[alal
~NN

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1T
02-JuL-80 09:50

02-JuL-80

10.0

09:52

PAGE 19

SEQ 0017

PRINTOUT OF TEST RESULTS

THE TEST RESULTS ARE PRINTED AT THE END OF PASS 2 ON EACH DRIVE
BEING
TESTED.
THESE
RESULTS
PERTAIN
TO
THE
OVERWRITE
TEST
AND
THE
COMPATIBILITY DATA READ TEST.

10.1

OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

THE RESULTS OF BOTH THE OVERWRITE
AND
THE
COMPATIBILITY
DATA
READ
TESTS
ARE
ALWAYS PRINTED, REGARDLESS OF DEGREE OF SUCCESS.
COMPLETE

RESULTS ARE PRINTED, SEPARATELY FOR EACH DRIVE, AT THE END OF

PASS

ON THAT
DRIVE.
THE TEST RESULTS ARE TABULAR IN FORM, AND CONSIST OF
READ SCORES FOR THE CURRENT DRIVE, USING DATA WRITTEN BY
ALL OTHER

DRIVES.
THE SCORES ARE CONVERTED ON THE BASIS OF 12(DEC), (WITH A
PERFECT SCORE = 12).
ALSO, THE SCORES ARE LISTED SEPARATELY FOR EACH
TRACK (SURFACE), FOR EACH OFFSET DIRECTION, AND AN OVERALL AVERAGE FOR
ALL THREE TRACKS, ON THE CURRENT DRIVE, IS PRINTED.

IN THE FOLLOWING EXAMPLE, THERE ARE 2 SYSTEMS, AND THE DRIVES BEING
;sgasbastgs AO,A1,A2,B0,
AND BS5.
THE TEST RESULTS FOR DRIVE A1 ARE

SCORES FOR DRIVE A1 (0-12 DEC.)
TRACK
NO.

DRIVE
READ

OVRWRT
SCORE

0
0
0
0
0

AO
SELF
4
B0
BS

12
12
.7
n
9

1
1
1
1

AO
SELF
A2
80

2
2
2
2
2

AO
SELF
A2
80
BS

B85

OFST~

READ
SCORE

OFST=-

OFST+

12
12
* 6
12
12

12
12
12
1
n

12
12
12
"
n

12
"
12
12

1
10
"
12

12
12
n
5

1
12
12
9

12
12
N
12
12

12
12
9
12
12

12
12
"
12
12

OFST+

READ
SCORE

DRIVE A1 OVWRT AVG = 12
DRIVE A1 READ AVG = 10
THE ABOVE EXAMPLE REVEALS A

DRIVES

AND A2.

POSSIBLE

COMPATIBILITY

PROBLEM

BETWEEN

NOTICE THAT ON TRACK O, THAT THE OVERWRITE SCORES

lalal

CIR6QCO RK6 DR _CPT PROG MACY11 30A(1052)
CZR6QC.P11
02-JuL-80 09:50

|
PAGE 20

WERE UNACCEPTABLY LOW (7 OR LESS), AND THE
SCORES WITH AN ASTERISK (v),

11.0

ERROR REPORTING

11.1

COMMON ERRORS

SEQ 0018

PROGRAM

NOTED

THESE

BAD

THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR

;zfgggIgLA;2?3RYT“E

RKO6 DRIVE COMPATIBILITY PROGRAM.

SPEED LOSS

UNIT FIELD ERROR
SUBSYSTEM TIMEOUT
SERCON PARITY ERROR

i
=

PROGRAMMING ERROR

—
—t
NN

NON-EXECUTABLE FUNCTION ERROR

DRIVE TYPE ERROR

—
S

FORMAT ERROR

—
WV

WRITE LOCK ERROR

DRIVE UNSAFE ERROR
SEEK INCOMPLETE ERROR

ILLEGAL CYLINDER ADDRESS ERROR

CYLINDER OVERFLOW ERROR

—a
O

ILLEGAL FUNCTION ERROR

—
OO

AC LOW

—b
~N

DRIVE DETECTED PARITY ERROR

NON-EXISTANT DRIVE ERROR

OO0

NON=-EXISTANT MEMORY ERROR

UNIBUS PARITY ERROR

THE ERRORS ARE

09:52

lalal

02-JuL-80

CZR6QCO RK6 DR CPT PROG
83(;31 30A(1052)
CZR6QC.P1T
02-JuL-80

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P11
02-JuL-80 09:50
926
937
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943

944

945
946
947
948
949
950

951
952
953
954
955
956
957
958
959
960
961

963
964
965
966
967
969
970
971
972
973
974
975
976
977
978
979

02-JuL-80

09:52

PAGE 21

20.

DRIVE OFF TRACK

21.

DRIVE TIMING ERROR

22.

DATA LATE ERROR

23.

CONTROLLER TIMEOUT ERROR

OPERATION INCOMPLETE ERROR

25.

HEADER VRC ERROR

26.

DATA CHECK ERROR

27.

WRITE CHECK ERROR

28.

DATA MISCOMPARE

29.

NO DRIVE RESPONSE = UFE AND NXD

30.

DRIVE ERROR WILL NOT CLEAR

31,

DRIVE STATUS CHANGE WILL NOT CLEAR

32.

ATTENTION BUT NO STATUS CHANGE OR FAULT

33,

ATTENTION BUT DRIVE NCT AVAILABLE

ERROR WHILE GATHERING DRIVE STATUS

35.

MULTIPLE DRIVE SELECT

36.

HEADER COMPARE ERROR

ERROR IN RECALIBRATE FOR RECOVERY

38.

CLEAR CONTROLLER DID NOT CLEAR ERROR

39.

NO ATTENTION IN ATTENTION SUMMARY REGISTER

UNSOLICITED ATTENTION
“.

UNEXPECTED DATA TYPE ERROR

62,

ATTENTION DID NOT RESET WITH CLEAR

“3.

SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION

“.

DATA LATE WHEN UNLOADING HEADER

‘5.

CONTROLLER ERROR WHEN DRIVER SERVICING
RETRY UNSUCCESSFUL

SEQ 0019

CZR6QCO RK6 CR CPT PROG MACY11 30A(1052)
CZR6QC.P1T
02-JuL-80 09:50

02-JUL-B0
47.

11.2

09:52

PAGE 22

SEQ 0020

BAD SECTOR ERROR ON SECTOR NOT LISTED BAD

ERROR HANDLING

ERRORS REPORTED BY THC PROGRAM CONSIST OF

COMMON

FAILURES

RESULTING

FROM ATTEMPTED
SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS UNJQUE
TO PARTICULAR
TESTS.
EACH ERROR PRINTOUT
CONSISTS OF
AN ERROR

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

HEADINGS,

MEANINGFUL

AND

COLUMNS

OATA

ARE REPORTED IN A GIVEN ERROR.

e
d o
e
i
e
b

ONOWVSWNN=2O

[=lelelelelelelele]

38888823583

SINGLE DESCRIPTIVE LINE.

11.3

CONTENTS

OCTAL.

MUCH

AS POSSIBLE (FOR EXAMPLE, RK611 REGISTERS)
OTHER ERROR REPORTS MAY CONSIST

ERROR PRINTOUT EXAMPLE
*+ WRITE CHECK ERROR
PREVIOUS COMMAND
:

DRIVE

000003

CMND
00012;

000000

061566

:
CURRENT COMMAND
ERR PC
DRIVE

041154

H1 BA

000000

000000
LO BA

CYLNDR
000016

TRACK
000001

SECTOR
000009

CMND
000131

CYLNDR
000016

TRACK
000001

061566

PACK ADDRESS OF ERROR(S):

CYLNDR
000016

TRACK
000001

SECTOR
000006

WD CNT

175000

SECTOR
000006

WD CNT

175000

OOOIINT0TIOOOTOO0IINOIIIOOIITT0IOI0OTIINIITIOIITOTIOIIVTINONNTIIO ]oab~x\)-0-w>\~ )oww-=ie\wxi 1m\ml |woe-3mw=\i -)<<1

O0OoOoONNNNINO0210!“w - N

-— -—— o)|e

PASPOO
[=i ..}

) (= wm 0 ~

-| |-

1<)l(3|o-l <|e

aN|o-\Ieow]101l
]-kw]mowl [<4|«

1wm

<(]-)4

w |~ -

]-\
(=N

|(0

PAGE 23

ol ! “w

09:52

€|L&y -\wm

02-JUL-80

w
| 3y(TM

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1N
02-JuL-80 09:5C

2
SEQ 0021

-! ~\

1089

—

it e

SO NOWVMS

S
oo

—2

N —=O

1075
WORD NO.
DATA (OCTAL)

Pl
o
w

|=
o

o
<

-y

TMm

)

TMm

”~~

TMm

pury

PAGE 24

.
>

p—y

o
=

1059
1060

33831 L

09:52

P -]

|=
[=]

02-JuL-80

-t
e DB OO
LB OO
aa O
VNS S NSO
=2 NN
NN
2NN SO = NN VNNV
OSSO =2 NN VWO
WN
=2 N NOMNHN NN
NN
NO VNS =2 IO

NO WS WN

—

3333

CZIR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1N
02-JuL-80 09:50
J

SEQ 0022

TABLE B

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:50

02-JUL-80

09:52

PAGE 25

SEQ 0023

- ! “w

w (-3|

“w

1I0OO00OW)VIO[&¥]0O0O00-0(])O—z-<awni()-S

IN>)TWO|N0ONINMON0MIyNNATNNAC—OMeRNAINMIMNTAINWMTVNNNAONYN)O]4~-w 0100->|(&=

CZR6QC.PN

o)>

wm —_ | AN — N~

>i0O000NT0ow)lelelelelelo-]B Jb>x)O0O0oO0lOe0Ole<|B1oIle0lele0ls] |O-NewT [1el>—-el0el\Zel|)-0ow00M0

|—!-<us OMNMNO

“w

eMaloeMxleaMlxeMalexMlaeM]-x]N [NE=xlMexlMealMexlMelxMealMxe

)BBIOBIOLIBIIIO[cm“

[}

—

CZR6QCO RK6 DR CPT PRO G MACY
CY11 30A(1052)
CZR6QC.PN
02-JuL-80 09:50

02-JuL-80

09:52

PAGE 26

2
SEQ 0024

TABLE D

BASIC CYLINDER BLOCK LAYOUT EXAMPLE

(SHOWN FOR RKO6, USE CYL 160-177 FOR RK07)
CYLINDER

NUMBERS
(OCTAL)

SECTOR NUMBERS (OCTAL)
1

12
13

13
14

16
—

22
17

—T OTNOMNMINe~ TNOWVM~AIIM
6

‘O—0I5N3N2O2N3OI5T0VM‘1I7ON6WVNE=

7
13

0
6
15
5
16
10
3
17
14
12
|1

- - —r—r

NOITe=NON-—JO=WVrmMNMN

NOMN—O TN=MONMNT

- - —r

—7M2O6NM3N1IT0IT1N3N6IN2O7M5N4—O

WMOOMN TN 12‘73065

e52——07oe—O—S—3——=S—64N—Oe—Nt—W—N—Re—

—g

-e e-

02-JUL-80

09:52

PAGE 27

NOM>WITNN~=\UMITNON O-VsS%&8U’OW a>wWAS%&8M\~3wN([]-N= ["8&0o|-S%sl4D =8-IwS%&s2 [§-4—8S%&s«0 o|[-S8~&%s4\-woVOOOOm\OVV <|O

SEQ 0025

=(=] — [v¥)

O <

I2W=Oy—err——rree o|~-)

-o=-MsNoMltIolTWeNOltMNCeOlC—eNleIeM(leNleITlWeNOeMleNlLelOe0)|->

wxZo tUMITNOMNO—MNMINONO --1

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:50

CZr6QC.PNY

>& .-0
o

—

QC»—oZoo O

0FOT1WeN2O=N3‘UNM5M“O~7I0T12W3N‘5O6N7

OONONI0O0O0V0A)O0V0AN0ON0e
OU0NO0TU0NO0=OI0ONO0OSvOC=eLeO=OTTNTNTTV

MI I TI I T

—- N

—sOONe
NOO
MM—IT—TNI—WN—MTOMW—NON—NOIOMNT0WONOO=ONOO
&LO8ANOO
O)W,NTMIN&aMO8%&TT2T1NNON2l88LITNLNo8&&%UUUPa8FAo8MMM&&%Nl’LlaA&8%T%ROAOTWNOgN&&O%NaLAWo&&OlNLNlgA%%NAg&&VT%-NaLO&O&%N%AlO8&&ON=%L&&%OO aO NMA&O&OlLSSOOO
sNO& O8N8 N%N& &N%N& % &A%NV% %MISAN

CZR6QCO RK6 DR CPT PR 0G MACY11 30A(1052)
CZR6QC.PN
02-JuL-

80 09:50

02-JuL=-80

DRIVE #

NOTE:

09:52
PAGE

e
28

CEC

btk

2
SEQ 0026

TABLE F

SELF=TEST CYLINDERS
oo
s

n
e
n

DLl

oD oS
o
e

CYLINDERS (WHERE SECTORS 4,11,16,23 ARE TESTED)
LD
R =

THE ABOVE TABLE GIVES CYLNDER NULMBERS FOR THE RK06.
REFER TO TABLE C TO OBTAIN CORRESPONDING CYLINDER
NUMBERS FOR THE RKO7.

NIYOMTMOINTWOVINMeTOMIMNNOT—IMOMN NNOIONMNNMOI—OT~TWNWNVOTN—NINOOT |-a<<\l woi
-=MTAONO-3 VO IMN M 1'M \~ =w\ -1

NOONTNOrMN—MANINO1~ 210

NN ONO NMWVNITNNOMNNDODONIVNMNONOINMNNITWNONVPO
oy

09:52
PAGE 29

ol []-\o<||<-

b|]w[[}al<(|-

<| a

-1
-1

02-JUL-80

-0

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.PIN
02-JuL-80 09:50

3
SEQ 0027

w (- =\

1386

ONL

1287
1288
1289
1290
1291
1292
129
1294

09:52

PAGE 30

IST MC,MD,CND
o
’

LIST O ME
.ENABL
ABS,AMA

;eex REV 003 ##e

1295

:;t.'ttt"'fi'tt.""""'i"""'tt"".'t""'.'."Qt""."'"'

}%gg

"SBTTL

STARTING ADDRESSES

1298
1299
1300
1301

1§°§

130
1304
1305
1306
1307
1308
1309
1310

i
i
i
i

200
204
220
224

DEFAULT PARAMETERS AND RUN PASS 1 AND PASS 2
SELECT PARAMETERS AND RUN PASS 1
SELECT PARAMETERS AND RUN PASS 2
MEMORY DUMP ROUTINE

;;tt'tt'.ttQQit'i""""i""""fiit'.t.'tfi"tt"'t""t.'l'."'

000001

1312
1318

$TN=1
.TITLE
CZR6QCO RK6 DR CPT PROG
:*COPYRIGHT (C) 1977,1980
:*DIGITAL EQUIPMENT CORP.
:*MAYNARD, MASS. 01754

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
;'

131

: *PACKAGE

1316

160000

1318
1319

163000

(MAINDEC-11-DZQAC=C3), JAN 19, 1977.

$SWR=160000

;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

.SBTTL

$SWR=163000
OPERATIONAL SWITCH SETTINGS

1321
1322
1323
1324
1325
1326
1327
1328
1329
}gg?

i
(¢
i
i
te
i
i
i
i
‘e

SWITCH
eeeede
15
14
13
12
10
9
8
7

}ggg

.SBTTL

BASIC DEFINITIONS

1334
1335
1336
}ggz
1339
1340

001100

000011

]

USE
ecececee- .
WALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
REPORT DESCRIPTION ONLY, ON ERRORS
BELL ON ERROR
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF'S) AT START

;*INITIAL ADDRESS OF THE STACK POINTER #t¢ 1100 w#+
STACK= 1100
.EQUIV EMT,ERROR
;:BASIC DEFINITION OF ERROR CALL
.EQUIV [OT,SCOPE
::BASIC DEFINITION OF SCOPE CALL
; *MISCELLANEOUS DEF INITIONS
HT=
1
::CODE FOR HORIZONTAL TAB

SEQ 0028

d Bt

02-JUL-80

lalal 1

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P11
02-JUL-80 09:50

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)

CZRrR6QC.PN

02-JuL-80 09:50

1341
13‘%
134
1344
1345

001%
00001
000200
177776

1347
1348
}ggg

02-JuL-80

09:52

BASIC DEFINITIONS

PAGE 31

SEQ 0029

LF=
CR=
CRLF=
PS=
.EQUIV

1
1
200
177776
PSS, PSW

;;CODE FOR LINE FEED
:sCODE FOR CARRIAGE RETURN
::CODE_FOR CARRIAGE RETURN-LINE FEED
: ;PROCESSOR STATUS WORD

177772
177570
177570

PIRQ=
DSWR=
DDISP=

177772
177570
177570

: sPROGRAM INTERRUPT REQUEST REGISTER
: sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

1351
1352
1353

000000
000001

; *GENERAL PURPOSE REGISTER DEFINITIONS
=
0
: sGENERAL REGISTER
R1=
X1
: ;GENERAL REGISTER

1356
1357
1358
1359
1360
}gg}

000004
000005
000006
000007
000006
000007

Ré=
RS=
R6=
R7=
SP=
PC=

1346

1354
1355

1363
1364
1365
1366
1367
1368
1369
1370

}g;;

1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396

177774

000002
000003

000000
000040
000100
000140
000200
000240
000300

000340

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

STKLMT= 17¢774

R2=
R3=

12
x5

x4
x5
4]
X7
{]
X7

;s STACK LIMIT REGISTER

: sGENERAL REGISTER
s sGENERAL REGISTER

: sGENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
: ;STACK POINTER
: ;PROGRAM COUNTER

: *PRIORITY LEVEL DEFINITIONS
PRO=
0
;sPRIORITY
PR1=
40
ssPRIORITY
PR2=
100
;sPRIORITY
PR3=
140
;sPRIORITY
PR4=
200
:sPRIORITY
PRS=
240
:sPRIORITY
PR6=
300
:sPRIORITY

PR7=

340

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

0
1
2
3
&
5
6

;;PRIORITY LEVEL 7

;' 'SWITCH REGISTER' SWITCH DEFINITIONS
SW15=
100000
SWi4=
40000
SWwi3=
20000
swi2=
10000
SWil=
4000
SWw10=
2000
Sw09=
1000
Sw08=
400
sSwo7=
200
sWoé=
100
SWw05=
40
SWo4=
20
swo3=
10
sw02=
4
Swoi=
2
swoo=
1
.EQUIV SW09,5w9
.EQUIV SW08,sSw8
.EQUIV SWO7,Sw7
.EQUIV SW06,Swé

.EQUIV

LEQUIV

.EQUIV

SW05,5W5
SW04,SWé
SWO3,Sw3

s —

r v —o38IRARER2882S

C 4 R6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-80 09:52
C 4 6Q c.P1
02-JuL-80 09:50
BASIC DEFINITIONS

.EQUIV
.EQUIV
.EQUIV

BUENRUR 8 SR NE TR NN NS om I

100000

000001

PAGE 32

SEQ 0030

SW02,Sw2
SWO01,Sw1
SWO00,Sw0

;*DATA BIT DEFINITIONS (BITOO TO BIT15)

B8IT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BITO7=
BIT06=
BIT05=
BITO04=
BIT03=
BIT02=
BITO1=
BIT00=
.EQUIV
.EQUIV
.EQUIV
EQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIv

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2
1
BIT09,BIT9
BIT08,B1T8
BITO07,BIT7
BIT06,.BIT6
BIT05,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT?
BITO1,BIT1
BIT00,BITO

;*BASIC

''CPU'' TRAP VECTOR ADDRESSES

ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14

;s TIME OUT AND OTHER ERRGRS
s sRESERVED AND ILLEGAL INSTRUCTIONS
T BIT
;s TRACE TRAP

TPVEC=

::TTY PRINTER VECTOR

.SBTTL

TRAP CATCHER

BPTVEC= 14
I0TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
PIRQVEC=240

: :BREAKPOINT TRAP (BPT)
s INPUT/0UTPUT TRAP (I0T) #«SCOPE*+
:;POMER FAIL
::EMULATOR TRAP (EMT) *+ERRORtt
::""TRAP'' TRAP
+sTTY KEYBOARD VECTOR

: PROGRAM INTERRUPT REQUEST VECTOR

.=0

s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A '‘.+2 HALT"
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

000174
000000
000000

:'LOCAT!0N19‘CONTA1NS 0O TO CATCH IMPROPERLY LOADED VECTORS
"

DISPREG: .WORD 0
SWREG:
.WORD 0
.SBTTL STARTING ADDRESS(ES)

: sSOFTWARE DISPLAY REGISTER
;s SOFTWARE SWITCH REGISTER

—

6aC.P11

02-JuL-80 09:50

53
54
§5
56
57

000204

000220

000137
000204
000137
000220
000137

§9
1460

000224
000226

000700
001100

SEQ 0031

WDFSTRT

..LOW:
..HIGH:

.WORD
.WORD

700
1100

1462

.SBTTL

ACT11 HOOKS

1‘6‘

;:""Q'".'.""""""""""Q.""."'.".."Q"'t""".i"

1470

147

000046
000052

1472

000230
000046
017234
000052

140000

1‘75

1476

000024
000044

001000
000024
000200
000044
001000
001000

:HOOKS REQUIRED BY ACT11
$SVPC=.
.=4b
$ENDAD
.52
"WORD

~=$SVPC
.SBTTL

:SAVE PC
:31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

140000

-=1000

:32)SET LOC.52 TO 140000

:: RESTORE PC

APT PARAMETER BLOCK

.$X=.
=24’
zoo

;:;SAVE CURRENT LOCATION
::SET POMER FAIL TO POINT TO START OF PROGRAM
::FOR APT START UP
::POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHOR . :POINT To APT HEADER BLOCK
.=.8X
::RESET LOCATION COUNTER

.';'I'l.".i.'..""Q""""""'i't'i'..t't.t""t"tl't"'t't"

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=-PDP11 DIAGNOSTIC
*INTERFACE SPEC.
001000
001000

000000

1494

001012

000030

1495
1496
1497

@a#P2STRY

"'tt'tt"'.""'""""""""tl"'.i't'."iit'tttttt"t""

1488
1489

1490
1491
1492
1493

aWPISTRI

SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

1‘“

1485
1486
1487

012172

;:JUMP TO STARTING ADDRESS OF PROGRAM

'."'t"".""Q'""""""'tt"tit'.tt"t""t'tiit"'tt""

1‘77

1478
1479
1480
1481
1482
1483

012154

000230
001000

1473

012146

JMP
=204
JMP
=220
JMP T

1465
1466
1467
1468
1469

000200

02-JuL-B0 09:52 PAGE 33
STARTING ADDRESS(ES)

001002
001004
001006
001010

001330
001320
001546
001546

120210
177440
000377

SAPTHD:
SHIBTS:

SMBADR:
$TSTM:
SPASTM:
SUNITM:

.WORD

"WORD

SETEND-SMAIL/2 ;;LENGTH MAILBOX-E
TABLE (WORDS)

.WORD
.WORD
_WORD
.WORD

AVECT1=120210
ABASE=177440
ADEVM=000377

SMAIL
1320
1546
1546

:3TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

::ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
:iRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QULCK VERIFY)
::ADDITIONAL RUN TIME (SECS) OF
A PASS FOR EACH ADDITIONAL UNIT
‘RKVEC=210, RKPRI=S
*RKBAS ADRS
SET DEVICES 0-7 IN MAP
4

len
Y an )

60 CO RK6 DR CPT PROG MACY11 30A(1052)

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80
CZR6QC.P1N
02-JUL-80 09:50
COMMON TAGS

09:52

PAGE 34

SEQ 0032

}233

.SBTTL

1500

; :ttttttt'ttt'tt"tt"Q'QQ"""tt'ttttttt'ttt'ttt"t'tt't"t"t'

}28

;*USED IN THE PROGRAM.

1501

1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1526
15%5
1526
1527
1528
1529
1530
1531
1532

1533
1534
1535
1536
1537
1538
1539
1540
1541
154;
1543
1544
1545
1569
1547
1548
1549
1550
1551
1ss§
1553

COMMON TAGS

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
oo11ag
001142
001144
001146
001150
001152
001154
001155

001156
001157
001160
001162
001164
001166
001170
001172
001174
001176
001200
001202

001
001
001210
001212
001214
001218
001220
001222

001100

$CMTAG:

.=1100

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002

WORD
$TSTNM: .BYTE
SERFLG: .BYTE
$ICNT:
.WORD
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEM3: .BYTE
SERMAX: .BYTE
SERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
WORD
WORD
$AUTOB: .BYTE
$INTAG: .BYTE
WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
$NULL:
.BYTE
$FILLS: .BYTE

0
0
0
O
0
0
O
O
1
O
0
0
0
O
O
0
0
0
O
DSWR
DDISP

000000
000000
000000
000000
000000
000000
000000
000000

SREGO:
$SREG1:
$REG2:
$SREG3:
$REG4:
$SREGS:
SREG6:
$SREG?:
$REG10:

0
O
O
O
O
O
O
O
O

012
000
000000

000000
000000
000000
000000
000000
000000

$FILLC: .BYTE
$TPFLG: .BYTE
SREGAD: .WORD

$SREG11:
saes1§:
$SREG13:
$REG14:
$REG1S:
$REG16:
SREG17:
$SREG20:

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

.WORD
LMNORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD

0
2

12
O
O

0
O
O
O
O
O
O
O

;:START OF COMMON TAGS
; :CONTAINS THE TEST NUMBER
; sCONTAINS ERROR FLAG
::CONTAINS SUBTEST ITERATION COUNT
::CONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
: :CONTAINS TOTAL ERRORS DETECTED
; :CONTAINS ITEM CONTROL BYTE
: :CONTAINS MAX. ERRORS PER TEST
; sCONTAINS PC OF LAST ERROR INSTRUCTION
: ;CONTAINS ADDRESS OF 'GOOD' DATA
::CONTAINS ADDRESS OF 'BAD' DATA
::CONTAINS *GOOD' DATA
:;CONTAINS °'BAD' DATA
: sRESERVED==NOT TO BE USED

; ;AUTOMATIC MODE INDICATOR
: : INTERRUPT MODE INDICATOR
: :ADDRESS OF SWITCH REGISTER
: sADDRESS OF DISPLAY REGISTER
2:TTY KBD STATUS
::TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED

s INSERT FILL CHARS. AFTER A "LINE FEED
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
::CONTAINS THE ADDRESS FROM
;:WHICH (SREGO) WAS OBTAINED
: sCONTAINS ((SREGAD)
+0)
::CONTAINS ((SREGAD)+2)
::CONTAINS ((SREGAD)
+4)
: ;CONTAINS ((SREGAD)+6)
: sCONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+12)
::CONTAINS ((SREGAD)+14)
::CONTAINS ((SREGAD)+16)
: :CONTAINS ((SREGAD)+20)
: :CONTAINS ((SREGAD)+22)
: :CONTAINS ((SREGAD)+24)
: sCONTAINS ((SREGAD)+26)
: sCONTAINS ((SREGAD)+30)
: :CONTAINS ((SREGAD)+32)
:sCONTAINS ((SREGAD)+34)
:;CONTAINS ((SREGAD)+36)
::CONTAINS ((SREGAD)+40)

ATTIT AT AN A TA VA VTAWVTA VAWV
SNNNNNNNNNO

VA WVTA VAWMV

A SA S A A P

CO RK6 DR _CPT PROG MACY11 30A(1052)
02-JUL-80
.,
02-JuL-80 09:50
OMMON TAGS

VIVIVAA VI AA AV

333333333
RSREC2ETEIRTFOR283

0
1
2
3
4
5
6
7
8

001224
001226
001
001232
001
001%
001240
001242
001%44
001246
001250
001252
001254
001256
001260

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
881;12
1314
001316
001320
001324
001325
001326

000000
000000
000000
000000
000000

001262

$SREG21:
SREGS;:
SREG23:
SREG24:
$SREG25:
SREG ?:
SREG27:
$REG30:
SREG31:
SREG32:
SREG33:
SREG34:
SREG35:
SREG36:
SREG37:

000000

$TMPO:

000000
000000
000000
000000
000000
888888

000000
177607
077
015
000012

000377

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

.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$STMP4:
.WORD
$STMP5:
.WORD
$TMP6:
.WORD
$TMP7:
.WORD
$TMP10: .WORD
$TMP11: .WORD
$TMP12: .WORD
$TMP13: .WORD
$TMP14: .WORD
$TMP15: .WORD
$ESCAPE: 0
$BELL:
.ASCIZ
SQUES:
.ASCII
SCRLF:
.ASCII
SLF
ASCIZ
AR AAA A A

.SBTTL

001334
001336
001340
001342
001344
001346
001350
001350
001351
001352
001354
001356

PAGE 35

000000
000000
000000

; ;CONTAINS
; ;CONTAINS
: ;CONTAINS
: ; CONTAINS
; ;CONTAINS
: ;CONTAINS
: ;CONTAINS
: ;CONTAINS
: s CONTAINS
: sCONTAINS
: ;CONTAINS
:sCONTAINS
: ;CONTAINS
: ;CONTAINS
: sCONTAINS

STESTN: .WORD
$PASS:
.WORD
S$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

((SREGAD)+42)
((SREGAD) +44)
((SREGAD) +46)
((SREGAD)+50)
((SREGAD)+52)
((SREGAD)+54)
((SREGAD)+56)
({SREGAD)+60)
((SREGAD)+62)
((SREGAD)+64)
((SREGAD) +66)
((SREGAD)+70)
((SREGAD)+72)
((SREGAD)+74)
((SREGAD)+76)

s sUSER DEFINED

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

: sUSER DEF INED
: sUSER DEF INED
s sUSER DEF INED
: sUSER DEF INED
: sUSER DEF INED
: sUSER DEFINED
s sUSER DEF INED
s sUSER DEF INED
: sUSER DEF INED
; sUSER DEF INED
s sUSER DEF INED
.USER DEF INED
s sUSER DEF INED
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ..CODE FOR BELL
/7/
s sQUESTION MARK
<15
s sCARRIAGE RETURN
2>
;:LINE FEED
AR A

AR AR AR

SMAIL :
SMSGTY: .WORD
SFATAL: .WORD

SEQ 0033

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

AR AR A

AR A

.EVEN

000000
000000
000000
000000
000000
000000
000000
000000

AR AR

AR ARttt
l )

APT MAILBOX-ETABLE

MAAAAAA AR A

001330
001330
001332

09:52

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

AR AR AR ARttt
bl

s sAPT MAILBOX
;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER

;;TEST NUMBER
;:PASS COUNT
;:;DEVICE COUNT
;:;1/0 UNIT NUMBER
;;MESSAGE ADDRESS
;:MESSAGE LENGTH
:sAPT ENVIRONMENT TABLE
..ENVIRONHENT BYTE
+ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER
;;USER SWITCHES
6‘$§U‘;Y:$ ggalONS
=

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52
CZR6QC.P11
02-JuL-80 09:50
APT MAILBOX-ETABLE
1610
1611
1612

1613

1614

1615

1616

1617
1618
1619

1620

e
I
v

001360
001361

000
000

001362

060000

1622 001364
1623 001365

1621

1626
1625
1626
1627
1628

16%3

16
1631
1632
1633
1634
1635
1636

PAGE 36

.
v
‘e

AMTYP1

BIT

B8=MEMORY MANAGEMENT

;:HIGH ADDRESS,M.S. BYTE
::MEM. TYPE,BLKA

MEM.TYPE BYTE

(MIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003

AMADR1

;:MIGH ADDRESS,BLK#1

000
000

$MAMS2: .BYTE
SMTYP2: .BYTE

AMAMS2
AMTYP2

;;HIGH ADDRESS,M.S. BYTE
::MEM.TYPE,BLKA?

000

SMTYP4: .BYTE

AMTYPL ;;MEM.TYPE ,BLK#

000000
000
000
000000
000

001376
001400
001402
001404
001406
001410

000000
120210
000000
177440
000377

$MADR1:

.BYTE

AMAMS1

.WORD

001366
001370
001371
001372
001374

001375

‘e

SEQ 0034

11/70=06,PDA=07,0=10
BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR

$MAMS1: .BYTE
SMTYP1:

SMADR2:
SMAMS3:
SMTYP3:
$MADR3:
$SMAMS4:

.WORD
.BYTE
.BYTE
.WORD
.BYTE

$MADRGL:
$VECT1:
SVECT2:
$BASE:
$SDEVM:
$ETEND:
JMEXIT

.WORD
.WORD
.WORD
.WORD
.WORD

AMADR2
AMAMS3
AMTYPS
AMADR3
AMAMS4

AMADRG
AVECT1
AVECT2
ABASE
ADEVM

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE'' ABOVE

::MEM.LAST ADDRESS,BLKA2
;:HWIGH ADDRESS,M.S.BYTE
::MEM.TYPE,BLKA3
;:MEM.LAST ADDRESS,BLKA3
::HIGH ADDRESS,M.S.BYTE

; ;MEM.LAST ADDRESS.BLK#
::INTERRUPT VECTOR#1,BUS PRIORITYA1
;::INTERRUPT VECTOR#2BUS PRIORITY#?2
:sBASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP

E%geoco RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 37
6QC.P11
02-JuL-80 09:50
ERROR POINTER TABLE

SEQ 0035

}g%;

.SBTTL

1639
1640
1641
164%

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
s *NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

1645
1646
1647
1648
1649
1650

T
v
e
.

}22‘

}gg;

1653
1654
1655
1656
}gg;

ERROR POINTER TABLE

S*NOTE2:

001410

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

EM
DH
DT
DF

::POINTS
1:POINTS
::POINTS
::POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

001410
001412
001414

045405
050500
052264

052374

:ERROR 1
EM1
DH100
DT100
DFO1

001426

045431
050500
052264

:ERROR 2
EM2
DH100
DT100

;NON-EXISTANT MEMORY

}ggz

001420
001422
001424

1665
1666
1667
1668

001430
001432
001434

045455
050500
052264

;ERROR 3
EM3
DH100
DT100

:NON-EXISTANT DRIVE

167
1672
1673
1674

001440
001442
001444

045500
050500
052264

;ERROR &
EM4
DH100
DT100

;UNIT FIELD ERROR

001450
001452
001454
001456

,
04¢ 521
050500
052264
052424

:ERROR S
£m
DH100
DT100
DF 02

:SUBSYSTEM TIMEOUT

001460
001462
001464
001466

045540
050500
052264
052460

;ERROR 6
EM6
DH100
DT100
DFO3

1659
1660
1661
1662

}ggg

}g;z
1677
1678
1679
1680
1681
168;
168
1684
1685
1686
1687
1688
1689

001416

001436

001446

052374

1690 001470 045564
1691
1692

001472
001474

DFO1

052374

050500
052264

;UNIBUS PARITY ERROR

DFO1
‘

DFO1

:ERROR 7

EM7

DH100
DT100

:D TO C PARITY ERROR

:DRIVE DETECTED PARITY ERROR

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 38
CZR6QC.P11
02=-JUL=-80 09:50
ERROR POINTER TABLE
1693
1694
1695

SEQ 0036

001476

052460

DFO3

1696

001500

045620

EM10

1702

001510

045627

EM11

;SPEED LOSS

001520

045642

;ERROR 12
EM12

;ILLEGAL FUNCTION

001526

052424

DFO2

1697
1698
1699
1700
1701
1703
1704
1705
1706
1707
1708
1709
1710

};}5

001502
001504
001506

001512
001514
001516

001522
001524

050500
osgze&
052424

050500
052264
052424

050500
052264

:ERROR 10

DH100
DT100
DFO2
:ERROR 11

DH100
DT100
DFO2

DH100
DT100

1713
1714

001530

045663

:ERROR 13
EM13

1716
};}z

001534
001536

052264
052374

DT100
DFO1

001540
001542
001544

045705
050500
052264

;ERROR 14
EM14
DH100
DT100

001550
001552
001554

045733
050500
052264

:ERROR 15
EM15
DH100
DT100

001560
001562
001564
001566

045754
050500
052264
052424

:ERROR 16
EM16
DH100
DT100
DF02

001570

045771

:ERROR 17
EM17

1715

1719
1730
1721
1722

};gz

1725
1726
1727
1728
1729
1730
1731
1732
1733
173,
1735
1736
1737
1738
1739
1740
};:1

001532

001546

001556

001572
001574
001576

050500

052424

050500
052264
052424

174

17644 001600 046012
1745
1746
1747

001602
001604
001606

050500
osszo&
052424

DH100

:AC LOW

:PROGRAMMING ERROR

sNON=EXISTANT FUNCTION

DFO2

:DRIVE TYPE ERROR

DF02

DH100
DT100
DF02

:ERROR 20

EM20

DH100
0T100
DF 02

:FORMAT ERROR

;WRITE _JCK ERROR

:DRIVE UNSAFE

(alal
~NN

6Q CO RK6 DR CPT PROG MACY11 30A(1052)

6aC.P11

02-JUL=-80 09:50

749

02-JuL-80 09:52 PAGE 39
ERROR POINTER TABLE
:ERROR 21

750 001610

046027

Em21

;g‘

052424

DFO02

;SEEK INCOMPLETE

001612
001614

755
756
757
758
;28

001620
001622
0016264

046047
050500
052264

EM22
DH100
DT100

761
76%
763
764

001630
001632
001634

046071
050500
052264

:ERROR 23
EM23
DH100
07100

767
768
769
70

001640
001642
001644

046122
050500
264

:ERROR 24
EM24
DH100
DT100

773
774
775
77
;;a

001650
001652
881656
1656

046142
050500
8532
052424

:ERROR 25
EM25
DH100
DT100
DFO2

779
780
781
782

001660
001662
001664

046165
050500
052264

:ERROR 26
EM26
DH100
DT100

785
786
787
788

001670
001672
001674

046177
050500
052264

:ERROR 27
EM27
DH100
0T100

91
792
793
794
795

001700
001702
001704
001706

046222
050500
052264
052534

:ERROR 30
EM30
DH100
DT100
DFOS

;OPERATION INCOMPLETE

798 001710 046247

EM31

;HEADER VRC ERROR

800
801

001714
001716

DT100
DFOS

80
804

001720 046270

001626

052424

;22 001636 052424

;gz

;33

;39

799

808

001646

001666

001676

001712

052424

050500

855;32
05

DH100
07100

SEQ 0037

751
75;

001616

050500
osszo«

:ERROR 22

:CYLINDER OVERFLOW

DFO2

;ILLEGAL CYLINDER

DFO02

:DRIVE OFF TRACK

DF02

:DRIVE TIMING ERROR

:DATA LATE

DF02

;CONTROLLER TIMEOUT

DF02

:ERROR 31

DH100

:ERROR 32

EM32

:DATA CHECK ERROR

XD XD

CZR6QCO RK6 DR SPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 40
CZR6QC.P11
02-JuL-80 09:50
ERROR POINTER TABLE

050500
osggea
052570

DH100
07100
DFO7

001730

046311

050500
052264
052624

EM33

PH100
0T100
DF10

001740
001742
001744
001746

046333
050500
052264
052520

sERROR 34
EM34
DH100
DT100
DF 04

82%
823
8264
ggz

001750
001752
001754
001756

046353
050500
052264
052374

:ERROR 35
EM3S
DH100
DT100
DFO1

827
828

001760

046407

830
331

001764
001766

834
835
836
ggz

001770
001772
001774
001776

046442
000000
000000
000000

EM37
0
0
0

:ERROR 40
EM4O
0H100
DT100
DF02
;ERROR 41
EM&
DH100
0T100

Ogi

o
o
o

— e i D D D D ) D D D il il il D D D il D D D D D D D D ) D D D e i

D D D i D

821

D D i el

815
816
817
818
g;g

001732
001734
001736

D i D D D . D D

811
a1§
g}‘

810

—B

809

8017 2
01724
001726

D D D D i e o

805
sog
gg‘

:ERROR 33

;ERROR 36
EM36
0
0
0

:ERROR 37

3
SEQ 0038

;WRITE CHECK ERROR

:DATA MISCOMPARE(S)

sNO DRIVE RESPONSE-UFE & NXD

;DRIVE ERROR WILL NOT CLEAR

;DRIVE STATUS CHANGE WILL NOT CLEAR

839
840
841
a‘g
gz‘

002006

046505
050500
052264
052424

84S
869
847
848

002010
002012
002014

046551
050500
052264

asg 002020

002022
002024
002026

046607

050500
852264
052424

EMG2

;ATTENTION WHEN NOT EXPECTED

asg 002030

EM43

:ERROR 43

sERROR WHILE GATHERING DRIVE STATUS

002002

ggg 002016 052424
851

853
854
gss

lgg

859
860

002032
002034

050500
052264

sATTENTION BUT NO STATUS CHANGE OR FAULT

sATTENTION BUT DRIVE NOT AVAILABLE

DFO02

:ERROR 42

DH100
DT100
DFO2

DH100
DT100

PT PROG 8ACV11 30A(1052) 02-JuUL-80 09:52 PAGE 41"

052670

ERROR POINTER TABLE

SEQ 0039

DF12
; ERROR 44

EM63

DH100
07100

:CLEAR CONTROLLER DID NOT CLEAR ERROR

DF12

ang

0o 0o 0o 0o OO Oo O
NSNS NNNNS
o~ oW SN =200

P e1

2233323 g2

CO_RK6 DR
C.P
02-JuL-80

sUNSOLICITED ATTENTION

3233323333383
323232328 SERECRRRES 3

i i

D i

i e

sNO ATTENTION IN ATTE”TION SUMMARY kEG

N = O
O VIS

VOO0OOVOOO

e
B d ol R d

sUNEXPECTED DATA TYPE ERROR

052670
7305
50500
052264
052670

;ATTENTION DID NOT RESET WITH CLEAR

;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION

;MULTIPLE DRIVE SELECT

;ABREVIATED HCE ERROR

;OPERATION INCOMPLETE ERROR

8 002150 046247

9
0
1

002152
002154
002156

050500
osgze«
052720

i& 002160 046747

:ERROR 55

EM31

DH100
0T100
DF13

:ERROR 56

002170
002172
002174
002176

046747
050500
052264
053044

:ERROR §7
EMS6
DH100
DT100
DF16

S
36
37
38
3

002200
002202
002204
002206

046766
000000
000000
000000

:ERROR 60
EM60
0
0
0

9
30
31
32
33

2
7

wV VIV
S

8
9
0
5

S
6
;

E2R2F2828

0008
NN

3
1

047022
000000

SEQ 0040

'TM

;ABREVIATED HVRC ERROR

’

;2ND LEVEL IN SUBSYSTEM TIMEOUT

050500
052264
053000

002210
002212

:2 TIMEOUT E tROR

002162
002164
002166

2
3

EMS6

S
6
;

OH100
07100
DF15

;ERROR 61

EM61
0

;ERROR IN RECAL FOR RECOVERY

:ABORT MESSAGE

002514

000000

002220
002222
002224
002226

047070
050500
052264
053110

EM62
DH100
DT100
DF17

;CYLINDER MISCOMPARE

:ERROR 63

;DATA ERROR WORDS

002216

002230

000000

0
;ERROR 62

002232
00223&
002236

00
052356
053220

002240
002242
002244
002246

047114
050500
052264
052424

EM63
DH100
DT100
DFO2

002250
002252
002256
002256

047161
050500
052264
052424

:ERROR 65
EM64
DH100
07100
DFO2

2 002260 047224

0
DT602
DF 25
:ERROR 64

:ERROR 66

EM6S

:CLEAR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

;UNSOLICITED ATTENTION

—— ——

oOm

0 RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 <RAGE 42
C.P11
02-JuL-80 09:50
ERROR POINTER TABLE

CZR6QCO RK6 DR CPT PROG MACYil1 30A(1052)
02-JuUL-80 09:52 PAGE 43
CZIR6QC.P11
02-JUL-80 09:50
ERROR POINTER TABLE
1973
1974

}3;2
1977

1978

1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989

1990
1991
1992
1993

1994
1995
1996
1997
1998
1333

5001

2002
2003
2004
2005
2006
2007
2008
2009
2010
58}1

201
2014
2015
2016
gg}z
2019
2020
2021
2022
2023
2024
2025

002262
002264

050500
052264

052424

DH100
DT100
DF02

002270

047252

050500
052264
052424

EM66

DH100
0T100
DFO2

002300
002302
002304
002306

047305
050500
052264
052424

:ERROR 70
EM67
DH100
DT100
DFO2

002310
002312
002314
002316

047344
050500
052264
052424

EM70
DH100
DT100
DF02

002320
002322
002324
002326

047413
050500
052264
052424

:ERROR 72
EM71
DH100
DT100
DFO2

002330
002332
002334
002336

047453
050500
052264
052424

EM72
DH100
DT100
DFO2

002340
002342
002344
002346

047522
050500
052264
052424

:ERROR 74
EM73
DH100
DT100
DF02

002350
002352
002354
002356

047556
050500
052264
052424

;ERROR 75
EM74
DH100
DT100
DF02

002360
002362
002364
002366

047576
000000
000000

002266

002272
002274
002276

2026 002370 047626
2027
2028

002372
002374

051465
052350

+ERROR 67

;ATTENTION DID NOT RESET WITH CLEAR

;SUBSYSTEM CLEAR DID NOT CLEAR ATT

:DATA LATE WHEN UNLOADING HEADER

;ERROR 73

:ERROR 77

EM76

DH60S
DT601

SEQ 0041

;UNEXPECTED DATA TYPE ERROR

;ERROR 71

:ERROR 76
EM7S
0
0
0

;CONTROLLER ERROR DURING DRIVER SERVICE

:DRIVE DETECTED PARITY ERROR

;UNDEF INED ERROR

:MARKING SECTOR BAD MESSAGE

:BAD DATA VERIFICATION WITH READ

002376

053144

DF21

047710

EM77

: ERROR 100

053204

0
DT601
DF23

047710
000000
052350
053204

EM77
0
DT601
DF23

067731
000000
052350
053204

: ERROR 102
EM100
0
DT601
DF23

;: ERROR 101

: ERROR 103
EM101
DH6042
DT601
DF 24

: ERROR 104
EM102
DH100
DT100
DF02
;ERROR

105

:ERROR

106

; ERROR

107

:ERROR

110

EM103
DH100
DT100
DFO3

EM104
DH100
pT100
DFO3

EM105
DH100
DT100
DF02

EM106
DF27

SEQ 0042

;RETRY SUCCESFUL MESSAGE

;ANOTHER RETRY SUCCESSFUL MESSAGE

;RETRY UNSUCCESSFUL MESSAGE

:NO VALID HEADERS IN TRACK JUST READ

;BSE ERROR ON SECTOR NOT LISTED AS BAD

: TIMED-OUT ON READ HEADER

: TIMED-OUT ON SEEK

;DRIVE SIEZED BY OTHER PORT

:"'DATA MISCMPR WHILE BAI SET"

Fon
T on

CZR6QCO RK6 DR _CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 44
CZR6QC.P1T
02-JuL-80 09:50
ERROR POINTER TABLE

orrmo

: ERROR

gmw

;:ERROR
EM110
DH100

gg22

prd

o
&~
w
NMNVNINVNININININ)
b b cd b b b e b e b
[eleleolelele]
o‘sg‘s&gfufi‘fisxo
No\nbum-‘ooafiombwdogg
Ng\nguw

N NS NN R NT SN NN NS NN NTNT NN N NTNTNT NN ST N NT ST N NTNT.NT NT NT NT.NT N ~N

112

113

2100

SEQ 0043

:'"'NO NEM WHEN EXPECTED"'

0
0

2322
SRS

2323

NN
VIV

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 45
CZR6QC.PIN
02-JuL-80 09:50
ERROR POINTER TABLE

D D e e

114

:''NO ATT'N ON SEEK'

;DRIVE'S CYLINDER INCORRECT

;TYPE ADRS OF DATA MiSCOMPARE(S)

D el

D e

115

;''INTRPT WHEN CNTRLR NOT READY"'

;DATA MISCOMPARE (11/70)

sPART OF DATA MISCOMPARE

052264
053154
120

;ABORT- CAN'T READ BSF

121

;KT11 FAILURE

[

) D D

) D D e

) D D

)

) D i

D D il

D D il A

116

122

¢MEM PARITY ERROR

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)

~NOWVES WM
NO VNN =2 OOV
W= OOV
~NOWN
VO

—

D e

D i

NN
NN
NN NN NN NN
NN

CZrRé6QC.P11

02-JuL-80 09:50

02-JUL-80

09:52

ERROR POINTER TABLE

2622
002624
2626

050500
052264
053304

DH100
DT100
DF 31

002630
002632
002634
002636

045455
000000
000000
000000

;ERROR
EM3
0
0
0

123

PAGE 46

SEQ 0044

sNED ON SIZING UNDER APT

CZIR6QCO RK6 DR CPT PROG HAC;&1 30A(1052)
CZR6QC.P1T
02-JuL-80 09

02 JUL-80

sRKCS
118

'EEE: !

! DCPAR! CFMT ! CTO

! CDT

! BA17 ! BA16 !

R/AW!

PRDY !

R/W!

!R/W

! R/

PR/AW!

! SPARE!
R/

;RKCS2
215

RM !

RMW

'
!

RMW

!
!

! DCO

! DCB

VOO0

—

SEQ 0045

BIT ASSIGNMENTS IN THE RK611 REGISTERS

215

SNU
;

READ ONLY

ONU

PDC7 'DC6

'DCS

! DC4

! DC3

! DC2

! DC1

! DCO

:RKDA (DESIRED TRACK AND SECTOR)
115
13

' TA2

' TA1

! TAQ

READ ONLY

!
i

W
NO WV
= OO0
W

PORININD)
= b b b d b e b b

2210

NINLNLN
NN
NN NI N
ONY

PAGE
47

G0 0o 00 00 0o 0P 0O OD OO 00

~
L

.SBTTL
DSLSOSOSTNTNT NI ST NTNTNTNT NN SLNTNT NSNS NTNTNTNTNT NN

09:52

T ASSIGNMENTS IN THE RK611 REGISTERS

PNU
;

TUN
;

OUN

READ ONLY

! SA4

' SA3

! SA2

! SA1

! SAD

READ ONLY

!
i

0V
~NOW "~

;RKDB (DATA BUFFER)

NOWVSWN~-O

SEQ 0046

MNONNI NN
N LN N L L

NN NN
N~N
N N L N L
Y N L L
N s ~N

"IR6QCO R¥6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 48
CZR6QC.PIN
02-JuL-80 09:50
BIT ASSIGNMENTS IN THE RK611 REGISTERS

:RKASOF (ATTENTION SUMMARY AND OFFSET)

: 15

‘DB1S ! DB14 ! DB13 ! DB12 ! DB11 ! DBIO ' DBY

' DBE

READ/WRITE

S DB7 'OB6

' DBS

! DB4

' DB3

! DB2

! DB1

! DBO

READ/WRITE

!
i

ATN? | ATNG ! ATNS | ATNG ! ATN3 ! ATN2 ' ATN1 ! ATNO !
:

READ ONLY

PUN

'OF6

! OFS

! OF4

' OF3

! OF2

' OF1

' OFQ

TWC1S ! WC14 ! WCT3 ! WC12 ! WCT1 ! WC10 ! WC9

! WCB

;RKWC (WORD COUNT)
:

READ/WRITE

! WCh

! WC3

! wC2

! Wel

! weo

PBA1S ! BA14 ! BA13 ! BA12 ! BA11 ! BA10 ! BA9

! BA8

DMC7 ' WC6

' WCS

;7
:

;RKBA (BUS ADDRESS)
115
14

READ/WRITE

PBA7 ' BA6

! BAS

READ/WRITE

! BA4

! BA3

! BA2

! BA1

READ/WRI TE

! BAO

IALWYSO!

CZR6QCO RK6& DR CPT PROG MACY11 30A(1052)
02-JUuL=-80 09:52 PAGE 49
CZR6QC.PIT
02-JUL-80 09:50
BIT ASSIGNMENTS IN THE RX611 REGISTERS

2276

2275

:RKER (ERROR REGISTER)

2278
2279

s DCK ! UNS
3

2280
2281

- whogs

! OPI

2284
2285

; BSE ! ECH
3

2287
2288

JRKDS (DRIVE STATUS)

%%gg

2291
2292
2293
2294
2295

2296
2297

2298
2299
2300
2301

—=O
W

NN
W

GRS SRR AR

5303

! DTE
! WLE
READ ONLY

! IDAE ! COE

' HVRC !
!

|eeeeccccccccccccccccccccccccccccccccccccccrcrccccccceen

%%g%
2286

SEQ 0047

! DTYPE! FMTE ! DRPAR! ILF
READ ONLY

! SkI

! ILC

!
!

|eeeecccccccccccccccccccccccccccccccccccrccrccccnccccanae

sSVAL ' DSC
' PIF
! SPON ! WRL
!
UN
!
UN
! DTP
!
3
READ ONLY
!
et
————
S

3
¥
6
5
4
3
2
1
0
|eeeccccccccccccccccccccccccccccccccceccccccccccccccccnan
:DRDY ! VWV
! DROT ! SPLS ! ACLO ! OFSET!
UN ! DRA !
3
READ ONLY
!
i=eeeecsccccccccccccccccccccccccccsccccesscscccccacacaae
RKMR1

(MAINTENANCE REG 1)

ZRD
;

! WRT

‘

CMIND ' MSP

! DMD

! ECCW ! PCD
'
READ ONLY

;GATE ! GATE !

;

! PCA
!

!| MEWD !i MERD !i MCLK i!
'
i READ/WRITE |

! PAT

! MS3

! MS2

! MS1

! MSO

READ/WRITE

!
i

CIR6QCO RK6 DR _CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 50
CZR6QC.PN
02-JuL-80 09:50
BIT ASSIGNMENTS IN THE RK611 REGISTERS

(1
Vi

28omNonrwn=0D

FRERRERERE iy
ESFFE0TE

314
315
316
317
318
319
320
321
322
323
324
325
326

sRKECC/PAT
14
;: 15

PUN
;

SEQ 0048

READ ONLY

! EPA10! EPA9 ! EPAS !
2

CEPA7 ! EPAG ! EPAS ! EPA4 ! EPA3 ! EPA2 ! EPA1 ! EPAO !
:

READ ONLY

;RKECC/POS
;

SUN
;

! EPD12! EPO11! EPO10! EPO9 ! EPOS !

READ ONLY

EPO7 ! EPO6 ! EPOS ! EPO4 ! EPO3 ! EPO2 ! EPO1 ! EPOO '
:

READ ONLY

;DRIVE STATUS INFORMATION

sLINE A MESSAGE 00
: 15

SR E®E

e ®®

EEEEEE S

P W

(alal
NN

R6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 51
R6QC.P11
02-JUL-80 09:50
BIT ASSIGNMENTS IN THE RK&11 REGISTERS

SEQ 0049

gggi

:LINE B MESSAGE 0

%ggz

PPAR ' UNS

2357

2359

ececccccccscccccnscsccscsscccssscssscssscscesasascanas

2358

: 15

;

! DROT ! DCLO ! WLE

! PERR ! ILF

236%
236
gggg

;LINE A MESSAGE 01
:
14
1

2366

P PAR ! UNLDG' RTZ

! LDG

' REV

' FWD

2368

|eeeeccccccccccccccccccccccccncccccccccccceccesccccccsnnae

2369

DFLT ' ACLO ' IVDA !

2367

! SKI

2360

2361

jeecccaccccccesccccassesssascscsssscacscsssacssassessas

i HDS

' SPEED' CART !
i

"OK

! PRES !

2381

:LINE B MESSAGE 01
115
1

2372
2373
2374
2375
2376
2377
23;3

2383

2382

i DS

%g;?

%gao

ERR !

ERR 'WD SEL!

P PAR ! SERVO' LIMIT! SEEK ' PLO ' DIBIT! INDEX' MULTI'
i BRAKE! ON SKINOMO ! ERR

} enseeseestessteEestteTettteEEtEtteTERETEesTETTETane

%ggg

2386

THEAD 'WR GTE'WR CUR! SEC

gggg

2387

*FAULT!AND NO'AND NO! ERR

iIXISTON'WR GTE'

3
!

'
i

—

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL=-80 09:52 PAGE 52
CZR6QC.PN
02-JuL-80 09:50
BIT ASSIGNMENTS IN THE RK611 REGISTERS

SEQ 0050

;LINE A MESSAGE 10
: 15

P PAR ! ALIGN!

:LINE A MESSAGE 11

'
12

‘

LINE B MESSAGE 11
;
14

SPAR!

|
3

" DRIVE SERIAL NUMBER

;

DRIVE SERIAL NUMBER

: PAR !
7

CYLINDER ADDRESS

SECTOR COUNT

! SECTOR!
i COUNT !

ADDRESS

DRIVE SELECT CODE '

DECODED HEAD

.SBTTL

RKO6 CONTROLLER REGISTER DEFINITION

RKCS1=

0
2

;CONTROL AND STATUS REGISTER 1
:WORD COUNT REGISTER

6
10

;DESIRED TRACK SECTOR REGIS ER
;CONTROL AND STATUS REGISTER 2

RKW(C=
RKBA=
RKDA=

RK(S2=

:BUS ADDRESS REGISTER

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 53
CZR6QC.PN
02-JuL=-80 09:50
RKO6 CONTROLLER REGISTER DEFINITION

SEQ 0051

44
44
448
449
450

000012
000014
000016
000020
000020

RKDS=
RKER=
RKASOF=
RKDC=
RKDCYL=

12
14
16
%o
20

:DRIVE STATUS REGISTER
:ERROR REGISTER
:ATTENTION SUMMARY AND OFFSET REGISTER
;:DESIRED CYLINDER REGISTER
:DESIRED CYLINDER REGISTER

245
245
2454

oooogz
0000
000036

RKMR1=
RKMR2=
RKMR3=

ge
34
ge

:MAINTENANCE REGISTER 1
:MAINTENANCE REGISTER
:MAINTENANCE REGISTER

2451

2455
2456
2457
%:gg

000024

000030
000030
000032
000032

%23?

RKDB=

RKPOS=
30
RKECPS= 30
RKPAT= 32
RKECPT= 32
.SBTTL

DRIVE COMMANDS
101
103
105
107
111
113

2662
2463
2664
2465
2466
2467

000101
000103
000105
000107
000111
000113

SELDRV=
PACK=
CLEAR=
UNLOAD=
SRTSPL=
RECAL=

2469
2470
2671

000117
000121
000123

SEEK=
117
RDDATA= 121
WRDATA= 123

473
22;;

000157
000131

WRHEAD= 1;7
WRTCHK= 131

24668

24672

000115

000125

2476

000140
000141
000164
000176
000177
000300

%239
2488
2233

000001
000005

231
49
494
495

000001
000100
000200

4«98

002000

2496
497

499
500

501

RDHEAD= 125
:

%2;;

2479
2480
2481
2482
2483
gzgg

OFFSET= 115

;ECC
.ecc
:ECC
;ECC

POSITION INFORMATION
POSITION INFORMATION
PATTERN INFORMATION
PATTERN INFORMATION

;SELECT DRIVE
:PACK ACKNOWLEDGE
:DRIVE CLEAR
:UNLOAD
:START SPINDLE
;RECALIBRATE

;OFFSET

: SEEK
;READ DATA
;WRITE DATA

;READ MEADER

:WRITE HEADER AND DATA
;WRITE CHECK

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

TO SIMULATE A SPECIFIC DESIRED OPERATION

RELEAS=
RDSTAT=
RDALHD=
CONCLR=
SUBCLR=
INTR=

140
141
164
176
177
300

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 001
DR.CLR= 005

;RELEASE DRIVE
:GET ALL STATUS FROM DRIVE
;READ ALL HEADERS
:CONTROLLER CLEAR (BIT 15 OF CS1)
:SUBSYSTEM CLEAR (BIT 5 OF (S2)
:GENERATE INTERRUPT TO CPU

:DRIVE SELECT
:DRIVE CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

60=
€=
RDY=

BITO
BIT6
BIT?

;60 BIT
: INTERRUPT ENABLE
:CONTROLLER READY

bT=

BIT10

:CONTROLLER DRIVE TYPE (0=RK06,1=RK07)

000400
001000

BA16=
BA17=

004000

cTo=

010000

:DATA BUFFER

CFMT=

BIT8
BIT9

BITM

BIT12

:BUS ADDRESS BIT 16
:BUS ADDRESS BIT 17

*CONTROLLER TIMED OUT WAITING FOR
: DRIVE RESPONSE

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

CIZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 54
CZR6QC.P11
02-JuL-80 09:50
CONTROL AND STATUS REGISTER 1 BITS

50
50
504
282

020000
040000
100000
100000

507

%ggg
2510
r+3).
2512
%g}z

000001
000002
000004
000020

2548

2549
2550
2531
2552
5553
ggg

gggg

BIT13
BIT14
BIT15
BIT1S

THESE BIT DEFINITIONS ARE USED FOR ADDRESS

000007
000010
000010
000020
000040
000040
100
000200
00
001000
002000
000
010000
020000
040000
100000

000001
000002
000004
000004
000010
000020
000040
000100
000200
000400
000400
001000
002000
004000
010000
020000
040000
100000

;DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER
:DRIVE INTERRUPT
:CONTROLLER ERROR
;CONTROLLER CLEAR

THE HIGH BYTE OF RKCS1

B.BA16= BITO
B8.BA17= BIT
B.CDT= BIT2
B.CFMT= BIT4
.SBTTL

%gig
2536
2537
2538
2539
2540
2541
254
254
2544
2545
2546
2547

SPAR=
Di=
CERR=
CCLR=

%g}z
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
gsgg
5
253
ggg%

;BUS ADDRESS BIT 16
:BUS ADDRESS BIT 17

sCONTROLLER DRIVE TYPE (0=RKN6,1=RK07)
;CONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR)

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK= 7
DESL=
BIT3
RLS=
BIT3
BAl=
BITé
CLR=
BITS
SCLR=
BITS
IR=
BITé
OR=
BIT?
UFE=
BIT8
MDS=
BITY
PGE=
BIT10
NEM=
BITIN
NED=
8171;
UPE=
8Im
WCE=
BIT14
DLT=
BIT15

sMASK FOR DRIVE SELECTION CODE
;DESELECT OR RELEASE DRIVE IN BITS 0-2
;DESELECT OR RELEASE DRIVE IN BITS 0-2
;BUS ADDRESS INCREMENT INWIBIT
;CLEAR CONTROLLER AND ALL DRIVES
;CLEAR CONTROLLER AND ALL DRIVES
s INPUT _READY
;OUTPUT READY
sUNIT FIELD ERROR
sMULTIPLE DRIVE SELECT
:PROGRAMMING ERROR
:NON-EXISTENT MEMORY
sNON-EXISTENT DRIVE
sUNIBUS PARITY ERROR
sWRITE CHECK ERROR
:DATA LATE ERROR

.SBTTL

ERROR REGISTER BIT DEFINITION

ILC=
;*ILF=
SKi=
ILF=
NXF =
DRPAR=
FMTE=
DTYE=
ECH=
BSE=
HCRC=
HVRC=

8ITO
BITO
BIT1
BIT2
BiT2
BIT3
BIT4
BITS
BITé
BIT17
BIT8
BIT8

COE=

IDAE=
WLE=
DTE=
OPl=
UNS=
DCK=

BIT9

BIT10
BITN
8171%
BIM
BIT14
BIT1S

s ILLEGAL FUNCTION CODE
s ILLEGAL FUNCTION CODE
s SEEK INCOMPLETE
¢ILLEGAL DRIVE FUNCTION
s ILLEGAL DRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PARITY ERROR
:FORMAT ERROR
:DRIVE TYPE ERROR
+ECC HARD
:BAD SECTOR ERROR
+HEADER CRC ERRROR
sHEADER VRC ERRROR

sCYLINDER ADDRESS OVERFLOW ERROR

s INVALID DISK ADDRESS ERROR
;WRITE LOCK ERROR
;DRIVE TIMING ERROR
;OPERATION (SEARCH) INCOMPLETE
:DRIVE UNSAFE
;DATA CHECK

.SBTTL STATUS REGISTER BIT DEFINITION

SEQ 0052

8
CZR6QCO RK6 DR PT PROG (1ACY11 30A(1052) 02-JUL=-80 09:52 PAGE 55
CZR6QC.PN
02-JuL-80 09:50
STATUS REGISTER BIT DEFINITION

00
100000

WRL=
PIP=

DSC=
SVAL=
.SBTTL

-y

S
NS

o
B @ b —a B Bt

—
i

-5 s s 2 0D N NO
VIS
—

Bt Bt B3 B

DRY=
DRDY=
DOT=

DRIVE OFFSET

Vv=

SPDLSS=
DCLO=
OROT=

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

OFST=

ACLO=

BITO
OOODOOODOOAIDD @D

60
561

CRA=

Bt Bt D

000001

;AC LOW
: SPEED LOSS
:DC L LOW

:DRIVE OFF TRACK
sVOLUME VALID

;DRIVE READY
:DRIVE READY

:DRIVE TYPE (0=RK06,1=RK07)
;WRITE LOCK

:POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE
sSTATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION

sMESSAGE MASK

000020
000040
000100
000200
000400
001000
002000
000

PAT=
DMD=
MSP=
MIND=
MCLK=
MERD=
MEWD=
PCA=
PCD=

sFORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES
sDIAGNOSTIC MODE
sMAINTENANCE SECTOR PULSE
sMAINTENANCE INDEX
sMAINTENANCE CLOCK
sMAINTENANCE ENCODED READ DATA
sMAINTENACNE ENCODED WRITE DATA
:PRECOMPENSATION ADVANCE
sPRECOMPENSATION DELAY
;ECC WORD IS BEING READ OR WRITTEN

) e
]
)
)
) o o

—hed e = NODOONO
VN

]
]
)
]
)
)

]
- )

bt e
— o=

@ 00 Cd O

YO N

—) =

— e e D OO
N =O

)
]
o

) =

et G

<t (e
s o

€O O

JACYL=
+ACLO=
FLT=
LF=
.PAR=
.SKl=
JWLE=
.SPLS=

NITION OF DRIVE STATUS BYTE 00 MESSAGE A

sDRIVE AVAILIABLE

:VOLUME VALID
:DRIVE READY

:DRIVE TYPE
;:DRIVE FORMAT
;OFFSET
;WRITE LOCK

:SPINDLE ON
;POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B

wvumumnumunnunumm

.SBTTL

.DRA=
VV=
.DRY=
.TYPE=
.FORM=
.OFF=
WRL=
.SPIN=
PIP=
.DSC=

;WRITE GATE

sREAD GATE

TV
)

O O
o o O T O
O
o

o Cd o O O TM

D O

3
Bt Bt bt 29 B

.SBTTL
wmurmumumumnummunueuo,m

ECCW=
WRTGAT=
RDGATE=

b b b e B O OO NO N S
VIS WN—-O

MESMSK
= 17
St Bt Bt Bt Bt Bt Bt Bt Bt Bt Bt

000017

558

Esso

SEQ 0053

lLLEGAL CYLINDER ADDRESS
;AC LOVW

DRIVE FAULTY
s ILLEGAL FUNCTION
:DRIVE DETECTED DRIVE BUS PARITY ERROR
:SEEK_INCOMPLE
TE

:WRITE LOCK ERROR
+SPEED LOSS

CZR6QCO RK6 DR CPT PROG HAC;61 30A(1052)
CZrR6QC.P
02-JuL-80 09

000020
000040
000100
000200
000400
001000
002000

000003
017760
017760
077770
000760
007000

PAGE 56

e =

Bt
s Bt

- ed d ek =B ODOONONSES
SN —-O

NITION OF DRIVE STATUS BYTE 01 MESSAGE A

) e

0 O O O

e
) o
) o o

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B

o G
0D 00 CD O

: TRANSDUCER 0K
+HEADS HOME
;BRUSHES HOME
;DO0R INTERLOCKED
;CARTRAGE INTERLOCK
:SPEED OK
: FORWARD
+REVERSE
sHEADS LOADING
;RETURN TO ZERO
;HEADS UNLOADING

wuurmnuvmmunumumunnunnoom

]

:0C LOW
;DRIVE OFF TRACK
;DRIVE UNSAFE

.SBTTL

.XDOK=
+HDHM=
+BRHM=
.DOOR=
.CART=
.SPOK=
FWD=
.REV=
.LOAD=
.RT1=
<UNLD=

.SECT=
MWCLK=
WGAT=

:SECTOR ERROR
sWRITE CLOCK AND NO WRITE GATE
;WRITE GATE AND NO TRANSISTIONS

.XERR=
.DIB=
.PLO=
.NMOV=
LIMD=

: INDEX ERROR
;:DIBIT ERROR
:PLO ERROR
:SEEK_AND NO MOTION
;LIMIT DETECT ON SEEK
: SERVO-BRAKE

sHEAD FAULT
sMULTIPLE HEAD SELECT

.HDFL=

.SBTTL

000007
100000

Lo R T LT LT AP N7 RV AP N7 A7 7

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

ot B

004000
010000
020000
040000

.SBTTL

2661
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655

2640

S.DCLO=
B
S.DROT=
S.UNS=

$md Bt Bt B

010000
020000
040000

09:52

FINITION OF DRIVE STATUS BYTE 00 MESSAGE B

2614
2615
616
617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639

02-JUL-80

COMMON MASKS

7
BIT15
3
.CDIF= 17760
.CADD= 17760
. SER= 77770
.SECT= 760
.DRV=
.PAR=

.HEAD= 7000

;DRIVE CODE
sPARITY
sBYTE 1|
sCYLINDER DIFFERENCE/OFFSET
sCYLINDER ADDRESS
sDRIVE SERIAL NUMBER
:SECTOR COUNT
sHEAD DECODE

SEQ 0054

SEQ 0055

LAAA

R R 02000200
ddl])

! DRIVE NO.

! SECTOR

'8A16-17 FORMAT ,DRV TYPE! OFFSET
i "BUS ADDRESS (LOU 16 BITS)
l
WORD COUNT (2'S COMPLEMENT)

:
:
:

:
:
:
:
:
!
:

i
i
i
l
l

i
‘

i
i
|
i
|
i
i
i
|
i
i

PROGRAM DRIVE STATUS INFORMATION

COMMAND AND STATUS REGISTER 1
COMMAND AND STATUS REGISTER 2
WORD COUNT REGISTER
BUS ADDRESS REGISTER
DESIRED TRACK AND SECTOR
DESIRED CYLINDER
ATTENTION SUMMARY AND DRIVE OFFSET

ERROR REGISTER
STATUS REGISTER

MESSAGE
MESSAGE
MESSAGE
MESSAGE
MESSAGE
MESSAGE

LINE
LINE
LINE
LINE
LINE
LINE

A
B
A
B
A
B

STATUS
STATUS
STATUS
STATUS
STATUS
STATUS

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

MESSAGE LINE B STATUS BYTE 1
ECC POSITION INFORMATION
ECC PATTERN INFORMATION
2R

R RARR

00
00
01
0
1
1

MESSAGE LINE A STATUS BYTE 1

' (A2

; 34
|

— -

2000000

PN
= b b b

S NNOOSTNNOONMNO

AAAAAAARR

|
|
|

O OS85
8 S
N W NN NI NI N =2 b - N =2 NN =2 NN =2 NN =2 N WNN =2 NN = NV

.SBTTL

! COMMAND
' CVLINDER ADDRESS
RACK

|
|

B
N

I
R

B
R

B
N
R T

BN B
BN

R
T

BN B

B
T
R

BN BE B

BN
I

R
O
T

BF BN
B

2R B

L
R T

B
BN B
LR B

LI
N

—

PARAMETER BLOCK ALLOCATION

.SBTTL
Y

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL=-80 09:52 PAGE 57
CZRrR6QC.PN
PARAMETER BLOCK ALLOCATION
02-JuL-80 09:50

)

l
l

Rdd]) '

PARAMETERS PASSED TO THE DRIVER
THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS

i
SO

Y NN
= O

TO THE RKO6/RKO7 DRIVER

:DRIVE NUMBER
+ COMMAND
:CYLINDER ADDRESS
:SECTOR

: TRACK

OFFSET

:RKCST BITS 8-15

:BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0-15)
:WORD COUNT (2°'S COMPLEMENT)

:PROGRAM DRIVE STATUS INFORMATION

.SBTTL

PROGRAM DEVICE STATUS REGISTER DEFINITION

DRVUSE=
DRVPOS=
DRVPDT=
UEXATT=
DRVHRD=

BITO
BIT
g{}g
BIT4

DRVDSC= BITS

;:DRIVE IN USE
:DRIVE POSITIONING

:DRIVE POSITIONED FOR DATA TRANSFER

sUNEXPECTED ATTENTION
;DRIVE HAS HARD ERROR
:DRIVE STATUS CHANGE DID NOT CLEAR

CZRAQCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL=-80 09:52 PAGE 58
CZR6QC.P11
02-JUL-80 09:50
PROGRAM DEVICE STATUS REGISTER DEFINITION

2712
2713
2714
2715

2716

000100

CMDTO=

BIT6

000200
000400

W.wCk=
NOCHK=

BIT?
BITS8

001000

277
2718
2719

002000

2721
2722
272%
%;%g

010000
020000
040000
100000

2720

004000

:NO TERMINATION TO COMMAND FOR AT
: LEAST 1 SECOND
:WRITE FOR WRITE WRITE CHECK
:NO CHECK, DO NOT SET INTERRUPT ENABLE

PBSVAL= a119

‘PARAMETER STATUS WORDS VALID

DRPDRV= BIT10

:
(SET WHEN ERROR TERMINATION OR
:
READ STATUS COMMAND)
:DROP DRIVE FROM TEST SEQUENCE

DRVSZD=
E.UNLD=
Q.INIT=
DTBAII=

:DRIVE SEIZED BY OTHER PORT
:DRIVE UNLOADED DUE TO ERROR
;PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE
;INHIBIT BUS ADDRESS INCREMENT

NODSC=

BITI1

%;%9

.SBTTL

PARAMETERS PASSED FROM DRIVER TO PROGRAM

2728
%;%8

:
:

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

SATTENTION SET BUT DCS AND FAULT RESET

16
20
22
24
26
30
32
34

:COMMAND AND STATUS REGISTER 1
:COMMAND AND STATUS REGISTER 2
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER
:DESIRED CYLINDER REGISTER
;ATTENTION SUMMARY/OFFSET REGISTER
:ERROR REGISTER
:MESSAGE B STATUS BYTE 00
:MESSAGE A STATUS BYTE 01
:MESSAGE B STATUS BYTE 01
:MESSGGE A STATUS BYTE 10
:MESSAGE B STATUS BYTE 10
:MESSAGE A STATUS BYTE 11
:MESSAGE B STATUS BYTE 11
:ECC POSITION INFORMATION

BIT12
BIT13
BIT14
BIT1S

2731
2732
2733
2734
2735
2736
2737
2738

000016
000020
000022
000024
00002
000030
000032
000034

P.CS1=
P.CS2=
P.WCR=
P.BAR=
P.DTS=
P.DCYL=
P.ASOF=
P.ER=

2741
2742
2743
2744
2745
2746
2747
2748

000042
000044
000046
000050
000052
000054
000056
000060

P.B00=
P.A01=
P.B01=
P.A10=
P.B10=
P.A11=
P.B11=
P.EPOS=

42
44
46
50
52
54
56
60

.SBTTL

PARAMETER BLOCK O FOR DRIVE

PARMO:

.BYTE

739
740

000036
000040

%;23

000062

%;g}

2753

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2769
2767

002640

002641
002642
002644
002645
002646
002647
002650
002652
002654
002656
002660
002662
002664
002666

000

000
000000
000
000
000
000
000000
000000
000000
000000
000000
000000
000000
000000

P.DS=
P.A00=

36
40

:STATUS REG:STER
:MESSAGE A STATUS BYTE 00

P.EPAT= 62

BYTE
.WORD
.BYTE
.BYTE
.BYTE
.BYTE
WORD
MORD
MORD
.MORD
WORD
WMORD
WORD
MORD

SEQ 0056

:ECC PATTERN INFORMATION

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

:DRIVE NUMBER

; COMMAND
:CYLINDER ADDRESS
:SECTOR ADDRESS
:TRACK ADDRESS
;OFFSET VALUE
:BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0 = 15)
:WORD COUNT (2°'S COMPLEMENT)
:PROGRAM DRIVE STATUS lNFORHAYlON
:COMMAND AND STATUS REGISTER
1
:COMMAND AND STATUS REGISTER 2
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DESIRED TRACK AND SECTOR REGISTER

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

SEQ 0057
YLINDER REGISTER
;DESIRED cyL

;ATTENTION SUMMARY/OFFSET REGISTER

ISTER
;STATUS REGISTER

;MESSAGE LINE A STATUS BYTE 00

:MESSAGE LINE B STATUS BYTE 0 00
;MESSAGE Llzg A STATUS BYTE 01
B STATUS BYTE
sMESSAGE LINE A STATUS BYTE
;MESSAGE LINE B STATUS BYTE
sMESSAGE LINE A STATUS BYTE
;MESSAGE LINE B STATUS BYTE
;ECC POSITION INFORMATION
;ECC PATTERN INFORMATION

:MESSAGE LI

PARAMETER BLOCK 1 FOR DRIVE

PARM1:

.BYTE
.WORD

.BYTE

.BYTE
.BYTE

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

[=lelelelelelelelelalelelelalelelalelelelelelelelelalele])]

.SBTTL

1
1
1

:DRIVE gUHBER
: COMMAN
;CYLINDER ADDRESS
:SECTOR ADDRESS

:TRACK ADDRESS

;OFFSET VALUE

;BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0 - 15)
;WORD 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
;DESIRED CYLINDER REGISTER
sATTENTION SUMMARY/OFFSET REGISTER

;ERROR REGISTER
:STATUS REGISTER

MESSAGE LINE A STATUS BYTE 0
;MESSAGE LINE B STATUS BYTE 0
'HESSAGE Ll:E A STATUS BYTE 0
INE B STATUS BYTE 0

MESSAGE LINE A STATUS BYTE 1

MESSAGE LINE B STATUS BYTE 1

:MESSAGE LINE A STATUS BYTE 1

:MESSAGE LINE B STATUS BYTE 1

sECC POSIYION INFORMAT
ION

:ECC PATTERN INFORMATION

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

T.CS1:

.WORD

1.(52:

.WORD

T.WCR:
T.BA:
T.DA:

.WORD
.WORD
.WORD

o000
© ©

PrOEY
LY - Py

000000

[elelelelelelelelelelelelela)

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 59
CZR6QC.PN
02-JuL-80 09:50
PARAMETER BLOCK O FOR DRIVE

TEHPORARZ S{ORAGE
REGIST
: TEMPORARY STORAGE
REGISTER 2
: TEMPORARY STORAGE
: TEMPORARY STORAGE
:TEMPORARY STORAGE

FOR COMMAND AND STATUS
FOR COMMAND AND STATUS

FOR WORD COUNT REGISTER
FOR BUS ADDRESS REGISTER
FOR DISK TRACK AND SECTOR

2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841

003026
003030
003032
003034
003036
003040
003042
003044

000000
000000
000000
000000
000000
000000
000000
000000

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

: TEMPORARY STORAGE F OR
: TEMPORARY STORAGE F OR
:__AND OFFSET
: TEMPORARY STORAGE F OR
: TEMPORARY STORAGE F OR

DRIVE CYLINDER
ATTENTION SUMMARY

ERROR REGISTER
DRIVE STATUS R € GIS
IST R
: TEMPORARY STORAGE FOR
MAINTENANCE REG ISTE
: TEMPORARY STORAGE FOR MAINTENANCE REG ISTE
: TEMPORARY STORAGE FOR MAINTENANCE REG ISTE

: TEMPORARY STORAGE FOR ECC POSITION

: TEMPORARY STORAGE FOR ECC PATTERN
: TEMPORARY STORAGE FOR DATA BUFFER REGISTER

ODRIVER PARAMERTERS

DODODDDD

et Bt Bt Bt Bt B

000001
000002
C00004

000010
000020
000040
000100
000400
001000
002000
040000
100000

003064

000000

003066
003070

000400
000400

ERRFRE
ERRHDL
CONERR
.WORD

W.MTIM:
W.MILI:

177440

210

;ADDRESS OF RK611 UNIBUS ADDRESS BLOCK
;ADDRESS OF R611 VECTOR

PRS

:RK611

;ADDRESS OF ABNORMAL RETURN FROM DRIVER
;ADDRESS OF CONTROLLER ERROR RETURN
;CONTROLLER ERROR STATUS

INTERRUPT PRIORITY

;ADDRESS OF NORMAL RETURN FROM DRIVER

:
:
:

THIS LOCATION IS CLEARED WHEN EVERY COMMAND
IF A CONTROLLER ERROR
IS INITIATED.
agggfls THE FOLLOWING BIT ASSIGNMENT IS

;CLEAR CONTROLLER DID NOT CLEAR ERROR

iNO ATTENTION IN ATTENTION SUMMARY REG

;UNSOLICATED ATTENTION (SEQUENTIAL ONLY)
:UNEXPECTED DATA TYPE ERROR

;ATTENTION DID NOT RESET WITH CLEAR

;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE

.WORD

ATTENTION

s ILLEGAL DRIVER COMMAND
sDATA LATE WHEN UNLOADING HEADER
:CONTROLLER ERROR DURING DRIVER SERVICING
:DRIVE DETECTED PARITY ERROR
:CONTROLLER COMMAND TIME OUT (QUEUED ONLY)
;MULTIPLE DRIVE SELECT

wWwasHro

:
:
:
:

.WORD
.WORD
.WORD

177440
000210
000240
030250
031472
030756
000000

et~
4 4 —d

003046
003050
003052
003054
003056
003060
003062

St Gt Bt Gt Bt Bt

2843
2844
2845
2846
2847
2848
2849
2850
851
852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875

.WORD
.WORD

DOODODODD®

2842

1.0C:
T.ASOF:

WA
—

000000
000000

SEQ 0058

DVDOTMM

003022
003024

o (=lelelelelele

2824
%ggz

CZR6QCO RK6 DR CPT PROG HACY11 30A(1052) 02-JUL-80 09:52 PAGE 60
CZrRéQC.P11
02-JuL-80 09:50
TEMPORARY CONTROLLER REGISTER STORAGE

;PARAMETER BLOCK OF

400
400

THE DRIVE

;WAITING FOR COMMAND COMPLETION

:LOOP COUNTER FOR MILISECOND SCAN OF DRIVE
;16 MILISECOND TIME FOR PROGRAM
:

CPU

VALUE

:
:

11705
11710

100

11740

11/50

:
:

}

11/%0
11734

11745

400

11/70

——————— ——

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52
CZR6QC.PI1
02-JUL-80 09:50
DRIVER PARAMERTERS
2880
5681
882
2883
2884
2885
2886
2887
2888
%ggg

003072

000300

W.SEC:

.WORD

300

003074
003076
003100
003102

003000
030000
000000
000000

W.B8SEC:
W.MIN:
HDR.AD:
HDR.CT:

.WORD
.WORD
.WORD
.WORD

000
0000

003104
003105
003110

000
002
000

ggg;
%%32

003111

000

%ggg
2897
2898
2899
2900
2901
2902
2903
gggg

PAGE 61

003112
003113
003114
003115
003116
003117
003120
003121

001
002
004
010
020
040
100
200

2389

004

010

1.ISRL: .BYTE
HW.HMEAD: .BYTE
W.TIME: .BYTE

0
O

0
2,4,10
0

.SBTTL

INTERRUPT MASKS

INTMSK:

.BYTE

INTERRUPT MASK TABLE

1.DRV:

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

.SBTTL

PARAMETER BLOCK TABLE

1
2
&
10
20
40
100
200

SEQ 0059
;SECOND COUNT COUNT FOR ALL COMMANDS
:
EXCEPT START SPINDLE
:8 SECOND FOR DRIVE CYCLE DOWN
:MINUTE TIME FOR START SPINDLE
:ADDRESS USED FOR READ ALL HEADERS
sNUMBER OF MEADERS LEFT TO READ FOR READ
: ALL HEADERS
:INTERRUPT OR RELEASED COMMAND ISSUED
;HEAD DECODES
;:DRIVES BEING WATCH=DOG TIMED
.
:INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK

: INTERRUPT
:INTERRUPT
; INTERRUPT
: INTERRUPT
: INTERRUPT
: INTERRUPT
: INTERRUPT
s INTERRUPT

MASK
MASK
MASK
MASK
MASK
MASK
MASK
MASK

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

0
1
2
3
&
S
6
7

5900 003122 002640

PBLKT: PARMO

291
53}%

LSBTTL

TIME FOR WATCH-DOG TIMER
.WORD
O
;TIME FOR INSTRUCTICN IN PARAMETER BLOCK
PROGRAM SPECIFIC RESERVED LOCATIONS
.BYTE
0
:FLAG TO INDIC. DEFLT OR PARAM MODE
.BYTE
O
:CURRENTLY RUNNING TESTS IF =1
.BYTE
0
:DATA ERROR COUNT
.BYTE
O
;OPERATION COMPLETE FLAG
.BYTE
0
;DONE SWITCH
.BYTE
O
:DRIVE TYPE & FORMAT CONTROL
.BYTE
0
:DRIVE FORMAT IN BIT & OF BYTE
.BYTE
0
:ERROR COUNT
.BYTE
&
;ERROR LIMIT
.BYTE
0
:ERROR COUNT FOR CURRENT DRIVE
.BYTE
0
;OPERATION CONTROL SWITCHES
.BYTE
O
;=1 INDICATES DRIVE SIEZED BY OTHER PORT
.BYTE
O
:DUAL=ACC FLAG TO RE-ISSUE COMMAND

.BYTE

%3?8

2914
2915
2916
2917
2918
2919
2920
2921
292§
2923
2924
2925
2926
2927
2928

003124

000000

003126
003127
003130
003121
00%i32
503133
003134
003135
003136
003137
003140
003141
00316;

000
000
000
000
000
000
000
000
004
000
000
000
000

W.DRV:
.SBTTL
MDFLAG:
TSTING:
DERCNT:
oPCOMP:
DONE:
TYPFMT:
FORMAT:
ERRCNT:
ERRLMT:
DRVERS:
OPCONT:
DRNAFG:
REISSU:

Sgu

003150

000

NORTRY:

29§3
29
31
Sg
33
35

00314
003144
003145
003169
00314
003151

000
000
000
000
000
000

TSTTYP:
DCEFLG:
WCEFLG:
DLTFLG:
DIF1
MEMABT:

:ADDRESS OF PARAMETER BLOCK GIVEN WITH
;DRIVE CALL.

MUST BE LOADED INTO PBLKT

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O
0

;OFFSET TEST IDENTIFIER
:DATA CHECK ERROR FLAG
:WRITE CHECK ERROR FLAG
sDATA LATE ERROR FLAG
:°CYL DIF = 100/200"" FLAG

.BYTE

:SET BYTE = 1 FOR NO ABORT

''NO-RETRY''

FLAG

HLPOVL:
NOTYPE:

LOGDRV:

PASSNO:
OFSDIR:

.BYTE

OFSCNT: .B
WHDSW=B]
70
VFHDSW=BIT1

[=lelelelala)

888832

l
CIR6QCO RK6 DR CPT PROG HAC;A\ 30A(1052) 02-JUL-80 09:52 PAGE 62
CZR6QC.P1N
PROGRAM SPECIFIC RESERVED LOCATIONS
02-JuL-80 09

OREQSW=BIT4
.EVEN

0
“D256
*D256
0,0,0,0,0,0

COMSTR:

0.0.0.0.0.0

: CURRENT COMMAND STORAGE

*D66

;OUTPUT BUFFER 1
;LOW 16 BITS OF CONVERTED BINARY NUMBER
;HIGH BITS OF CONVERTED BINARY NO.

HIGOCT:

RECODE:
ERRCOM:
DRIVE:
STALLS:
CYLNDR:
OFINUS:
TRACK:
INTCHR:
SCRACH:
PATRN:
PLOFST:
NGOFST:
SAVPRS:
WDSXFR:
FINCYL:
FINTRK:
FINSEC:
LASTWC:
NEWON:

.WORD

BUFFO:
.BLKW
LOWOCT: .WORD
BUFPRT:

.WORD
«WORD
.WORD
.WORD

.
.
.
.
.
.

MA:
PMA:

000000
000010

;LOGICAL DRIVE NUMBER_(00-17)
:PASS NUMBER (= 1 OR 2)
;OFFSET DIRECTION FLAG (0=NEG)
;OFFSET COUNT FOR ONE DIRECTION

MEMVEC=114
SAVWRD: .WORD
BSSOFT: .BLKW
BSFACT: +BLKW
: .WORD
PRVCMD

SUBSYS:
DRVLST:

DRVPTR:
SCRLST:

.
.

PATO00:

= ONNOOOOOOVIOOO0OO0O0O0O0O0O0O0O0O00O oo

000000
000000
000000
000000

ON MEMORY PARITY ERRORS
:
sHELP FILE OVERLAID INDICATOR
: INDICATES PROGRAM JUST bOADED IF 0

URlTE HEADER & DATA SWITCH
;VERIFY HEADERS SWITCH
;WRITE CHECK DATA SWITCH
;READ CHECK DATA SWITCH
;OFFSET REQUIRED SWITCH

WCDASW=BIT
RCDASW=BIT

000000
000000
000000
000000

SEQ 0060

;MEMORY PARITY TRAP VECTOR
s SCRATCH WORD

+RECORD OF BAD SECTORS FROM SOF TWARE
;RECORD OF BAD SECTORS FROM FACTORY
sPREVIOUS COMMAND STORAGE

;BUFFER POINTER

sRECOVERY CODE WORD

;ERROR COMMAND
iNO.

DRIVE IN USE

:CURRENT NO. OF UNIT STALLS TO APPLY
:CURRENT CYLINDER NUMBER

;OFFSET IN USE
s TRACK IN USE

sTTY INTERRUPT INPUT WORD

sALL=PURPOSE SCRATCH WORD
sDATA PATTERN LIST WORD
:(+) OFFSET VALUE
:(=) OFFSET VALUE
sSAVE INITIAL PARAMS FOR XFER
:NO. OF WORDS ACTUALLY XFERRED
sFINAL CYLINDER ADRS
sFINAL TRACK ADRS

;FINAL SECTOR ADRS
sACTUAL FINAL WC
sNEW LOOK AT ONLINE DRIVES

sMEM. BUFFER ADDRESS
:CURRENT SUBSYSTEM NAME STORAGE (ASCII
;EACH WORD CONTAINS THE NAME OF A DRIV
: TO BE TESTED. HIGH BYTE IS SUBSYSTE
: NAME, LOW BYTE IS DRIVE NO. (ASCII).
:
IF WORD
= 0, DRIVE 1S NOT TESTED.
DRIVE LIST POINTER
:SCRATCH DRIVE LIST

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)

CZR6QC.P11Y

02-JuL=-80 09:50

299%
299
2994
2995
2996

2997 005566

2998
2999
3000
3001
300;
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
gg}z

005566
005572
005576
005602
0056
005612
00561
0056
005626
005632
5636
005642
005646
005652
005656
005662

02-JUL-80

000000
000002
000004
000006
10
000012
000014
000016
000000
000002
000004
000006
000010
000012
000014
000016

gg}z

PAGE 63

PROGRAM SPECIFIC RESERVED LOCATIONS

:TABLE A

000620
000620
000620
000620
000620
000620
0006%0
000620
000622
000622
000622
000622
000622
000622
000622
000622

09:52

TABLEA:

BASIC READ/WRITE TEST SECTORS FOR RK06

.WORD
WORD
MORD
.WORD
WORD
.WORD
MWORD
.WORD
.WORD
.WORD
MWORD
MWORD
LWORD
.WORD
MORD
WORD

;TABLE A =

620,0
620,2
620,4
620,6
620,10
620,12
620,14
620,16
622.0
622.2
622.4
622.6
622,10
622,12
622,14
622,16

:DRIVE
3
s
:
3
:
:
3
3
:
$
:
:
:
;
:

005666

001444

000000

TABL7A: .WORD

1444,0

:DRV 0

20
3021
3022
3023
3024
3025
3026
3027
3028
3029
3830
31
ggg%

00570
0057
005712
005716
005722
005726
005732
005736
005742
005746
005752
005756
005762

1644
001444
001444
001444
001444
001446
001446
001446
001446
001446
001446
001446
001446

06
000010
000012
000014
000016
000000
000002
000004
000006
000010
000012
000014
000016

WORD
MORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

1444.,6
1444,10
1444,12
1444,14
1444 .,16
1446.,0
1446,2
1446.4
1446.6
1446,10
1446,12
1446,14
1446,16

:
.4
:5
:6
4
:10
M
12
:13
14
215
16
17

3034
3035
3036
;837
38
39
0
1
;

&
S
9

005672
oosgr

005766
0057
57 g
577
005774
885776
006002
006004

006010

001444
1444

072307
135143
156433
1972
073514
0356£g
0167
107351
143564
061672

000002
888806

LWORD
MWORD

:TABLE B
TABLEB:

0
1
2
3
4
5
6
7
10
1"
12
13
14
15
16
17

CORRESPONDING CYL NUMBERS FOR THE RKO7

3017

3018
3819

SEQ 0061

=
072307
135143
1564%1
167; 0
073514
035646
0167§3
107351
143564
061672

1444,2
1444 ,4

1
:g

WORST CASE DATA PATTERN

(alal
NN

R6Q CO RK6 DR
CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 64
R6QC.P11
02-JUL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS

8
9
S0

006012
006014
006016

006020
022
0060264

030735
114356
06?167
123073
151453
164616

006026

000000

000060

3060
3061
3oe§
3063
gggg

006036
006042
006046
006052
006056

000200
000300
000400
000500
000600

000260
000360
000460
000560

§1
ggsg
53
3054

303
57

006032

000100

030735
114359
04?16
123073
151453
164616

000160

3382‘7’

sTABLE OF STARTING CYLINDERS FOR ALL OVWRT AND COMPAT CYL BLKS FOR RKO06
TABLEC: .WORD
0,60
:FOR CURRENT ZONE 1

WORD

.WORD
-WORD
-WORD
.WORD
.WORD

;TABLE C

3068

006060

TABL7C: .WORD

3070
3071

006070
006074

00
00

000560
000760

3073
so;g

006104
006110

001200
001400

001360

3077
3078
3079
3080

006112
006132

000020
000020

ggg‘

006172
38251

000020
000020

000200

sorg

001000

006100

000360

:
:
;
:
:

3
4
5
5
7

0,160

;CURRENT ZONE 1

"WORD
.WORD

400.560
600,760

;3
4

JWORD
.WORD

1200.1360
1400

.WORD

001160

100,160

200.260
.
y
500.560
600

CORRESPONDING CYL NUMBERS FOR RKO7

000160

3069 006064

SEQ 0062

.WORD

200,360
1000,1160

:2
:5

6
17

S
7

1
g
¢

100
101
1o§

006152

52
72
006312
0063
00635
006372
006412
00643;
83325
72

00651%

006512
006514
882518

520

000020

sCYLINDER BLOCK LAYOUT TABLE
TABLED: .BLKB
16.
BLKB
16.
BLKB

16.

.BLKB

16.

‘BLKB
.BLKB

000020

000020
000020
005020
20
20
000020
000020
000020
000020
000020

BLKB
BLKB
‘BLKB
.BLKB
BLKB
BLKB
.BLKB
BLKB
BLKB
.BLKB

16.
16.

16.
16.
16.
16.
16.
16.
16.
16.
16.
16.

:CYLINDER O IN BLK
:
1
;

3
4

:
;
:
:
:
:
:
:
:
:

5
7
10
1
12
13
14
15
16
17

:TABLE G = PSEUDO-RANDOM DATA PATTERN

040135
177070
070414

064531

TABLEG:

040135
177070
070414

064531

:
;

R6QCO RK6 DR _CPT PROG MACY11 30A(1052)
C P11

02-JuL-80 09:50

063422
1143%%

00124?

07
08
09
10
11
1%
13

0065
006532
0065
0065
006540
006542
006544

036620
0100;1
05;% é
017310
011347
102367
152567

006550

160073

006546

001246

16007

006552
006555
006560
006563
006566
006571

000
006
005
015
016
010

001
012
014
007
013

003
017
004
002
on

3130

006572

000

001

002

014
020

015
021

L U M L N

1
132

33
34
35
36
g;
39
2?

882275
00

006603
006606
006611

003
007

013
017
022

PAGE 65

0366%0
010031
05;336
017310
011347
102367
152567

20
21
22
23
2k
25
26

005
010

006
012

;LIST OF STARTING DRIVE NUMBERS, TO GENERATE TABLED

SsToLST: .BYTE

0,1,3,6,12,17,5,14,4,15,7,2,16,13,11,10

;LIST OF USEABLE SECTORS IN EACH CYLINDER BLOCK
SECLST: .BYTE
0,1,2,3,5,6,7,10,12,13,16,15,17,20,21,22

006612

000020

;TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR NEG OFST
NOSCRO: .BLKW
16.

006652

000020

;TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR NEG OFST
NOSCR1: .BLKW
16.

45
29

006712

000020

;TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR NEG OFST
NOSCR2: .BLKW
16.

50
g;

006752

000020

;TABLE OF OVERWRITE TEST SCORES FOR TRACK 0 FOR POS OFST
POSCRO: .BLKW
16.

53
gg

007012

000020

;:TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR POS OFST
POSCR1: .BLKW
16.

56
g;

007052

000020

;:TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR POS OFST
POSCR2: .BLKW
16.

09:52

0 00835 Ogaezs
006526 1163%5

WL WLLWL
L

02-JUL-80

PROGRAM SPECIFIC RESERVED LOCATIONS

SEQ 0063

CZR6QCO RK6 DR PT PROG HACY11 30A(1052) 02-JUL-80 09:52 PAGE 66
CZR6QC.PN
02-JuL-80
PROGRAM SPECIFIC RESERVED LOCATIONS
160
161

i}g

164

3165
3166
3167
3168
169
3170
Imn
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
§187
188
3189
3190
3191
3192
3193
3194
3195
3196
3197
198

3199
200
201
202
203
204
205
206
207
208
209
g}?

; TABLE OF DATA COHPATIB!LITV TEST SCORES FOR TRACK O FOR NEG OFST

007112

000020

NCSCRO: .BLKW

007152

000020

NCSCR1:

007212

000020

NCSCR2: .BLKW

007252

000020

PCSCRO: .BLKW

007312

000020

PCSCR1:

007352

000020

PCSCR2: .BLKW

16.

;TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 1 FOR NEG OFST
.BLKW

16.

;TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 2 FOR NEG OFST

16.

;TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK O FOR POS OFST

16.

;TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 1 FOR POS OFST
.BLKW

16.

;TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK 2 FOR POS OFST

16.

;SELF=TEST SCORE FOR TRACK O FOR NEG OFST

007412

000000

NSSCRO:

007414

000000

NSSCR1: .WORD

007416

000000

;SELF=TEST SCORE FOR TRACK 2 FOR NEG OFST
NSSCR2: .WORD
0

007420

000000

PSSCRO: .WORD

007422

000000

PSSCR1:

007424

000000

PSSCR2: .WORD

007426

000000

OVRAVG: .WORD

007430

000000

sAVERAGE OF READ SCORES OVER ALL SURFACES
COMAVG: .WORD
O

007432

000020

NSCORO: .BLKB

.WORD

;SELF=TEST SCORE FOR TRACK 1 FOR NEG OFST

;SELF=TEST SCORE FOR TRACK O FOR POS OFST

;SELF=TEST SCORE FOR TRACK 1 FOR POS OFST
.WORD

:SELF=TEST SCORE FOR TRACK 2 FOR POS OFST

;AVERAGE OF OVRWRT SCORES OVER ALL SURFACES
0

5184

21
5215

;SCRATCH TABLE OF SCORES FOR TRACK O FOR NEG OFST

16.

SEQ 0064

CZIR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 67
CZR6QC.PN
02-JuL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS
1
318

;SCRATCH TABLE OF SCORES FOR TRACK 1 FOR NEG OFST

ig}g

007452

000020

NSCOR1: .BLKB

220
§%21

007472

000020

;SCRATCH TABLE OF SCORES FOR TRACK 2 FOR NEG OFST
NSCOR2: .BLKB
16.

gggg

007512

000020

PSCORD: .BLKB

3228
gggg

007532

000020

;SCRATCH TABLE OF SCORES FOR TRACK 1 FOR POS OFST
PSCOR1: .BLKB
16.

2%
gggg

007552

000020

;SCRATCH TABLE OF SCORES FOR TRACK 2 FOR POS OFST
PSCOR2: .BLKB
16.

3234
3235
3236
3237
3238
3239
3240
3241
3242
ggas

000002
000002
000004
000010
000020
000040
000100
000200

LSTTRK=2
BSERR=BIT1
HVRCER=B] T2
OPIERR=BIT3
DCKERR=BIT4
ECCNC=BITS
WCERR=BIT6
ABORT=RIT7

3245
3246
3247
3248
szgg

001000
002000
004000
010000
100000

!
225

007572
007
7
887616
76;8
0076
887636
007644
007652
007654
7635
76
767’
00767
007704

005015
osoaog
033113
050103
043517
os1ozs
033460
%%?
0
ssz;
2
2101

68
3299
270
3271

16.

:SCRATCH TABLE OF SCORES FOR TRACK 0 FOR POS OFST

000400

51
2s§
25
254
3255
szsg
gs
58
59
250
261
6;
26
264
265
229

SEQ 0065

LEV2ER=BI T8

BADSEC=BIT9
TWOTOS=B1T10
RCLREQ=BIT11
DRNAVL=BIT12
ANYDER=BIT15
041412
030103
042040
020124
005015
030113
041040
051106

051132
051040
020122
051120
000012
026466
051525
036440

033060
042523
020122

020075

;;12

1
0334
sn}s

0077
8877
0077
007744

§2012
§16
20103
051440

DZR6Q:

.ASCIZ

16.

;LAST TRACK = 2
:BSE ERROR
:HVRC ERROR
;0PI ERROR
sDATA CHECK ERROR
:ECC NON=-CORRECTABLE
:WRITE CHECK ERROR
:ABORT

:LEVEL TWO ERROR

:BAD SECTOR FLAG
:TWO0 TIME OUTS
*RECALIBRATE REQUIRED
sDRIVE NOT RELSD BY OTHER PORT
:ANY ERROR DETECTEC FLAG
<15><12><12>/CZR6QCO RK6 DR CPT PROG/<15><12><12>
;

RKBADR: .ASCIZ

<12>/RK06-07 BUS ADR = /

030055
020103

RKVADR: .ASCIZ

/RK06-07 VEC ADR = /

30113
50040

026466
04‘552

RKPRTY: .ASCIZ

/RK06-07 PRIORITY =/

050131
042515
0‘2512
041125

820105
047440
osz1sg
05452

TYPSYS: .ASCIZ

<12>/TYPE NAME OF NEXT SUBSYS TO TEST (A=P)

52111

020131

: /

B 6
CIR6QCO RK6 DR 5?1 PROG MACY11 30A(1052) 02=JUL-80 09:52 PAGE 68
CZRrR6QC.PN
02-JuL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS

2
2
2
2
2
2
2
2
NOWVMOITANOMNNO

NO NNTNM&V8.N00356M035836M0M0M6BRRMOIMRMM PICM M
O

767102‘120 -—N3O027wv2‘0go2g=7oWM

SEQ 0066

OO0O o000000“ ocoogs

g110a)Al6‘206 4%s ala)LoaloAl WITwnoNNWn

11111125206‘2063

g eU

V
~
Q
‘
l
O
‘
~
T
~
M
O
N
—
3
O
e
O
g
W
N
s
Y
L
a
z
N
l
a
]
l
a
O
0
O
0
0
O
ooooooooo

OgCO 0|O0O0 O
o 1 o oN

052523
o S >4 o

(%] v
~3 w~

ONSUBS: LASCIZ

‘ss

ooo

20‘ -=N -0

23333835

§252838

nIIIIL

151“115‘

szsz

.2 < L() —- p|—-. w- w— ao a— >—w>“ew w~ v~

d a

sFTOTzNNOTN S5S5305INITINISIAIN

NO e

SR asaan

"M A N

338333

— 0N

o21Lalal7aa

a >—

338

w w—

/ ON SUBSYS

/<15><12><12>

LASCIZ

/1S THERE ANOTHER SUBSYS (Y OR N <CR>)

LASCIZ

<12>/MORE THAN 16 DRIVES ENTERED !/<15><12><12>

LASCIZ

<12>/++ STARTING PASS

MNTPAK: .ASCIZ

DISPAK:

6<CR> FOR RK06, 7<CR> FOR RKO7: /

<12>/DRIVE TYPE

o— —

LASCIZ

.ASCIZ

STR204: LASCIZ

*2/<15><12>

<12>/MOUNT PACK ON DRIVE

<12>/UNLOAD DRIVE

? /

AND LOAD./<15><12>

AND REMOVE PACK./<15><12>

<12>/START AT ADR 204 FOR PASS 1 ON SUBSYS

2><12>

SEQ 0067

w—4[-=]aLoot=o-~

uaowe~vN ow~oN a4A[« -ao< v8 ow&-~oa4[+ (oo~]

(=11 ooo O0OO0 OO0O0O0O0O0OOO0O0O0

C 6
CZR6QCO RK6 DR SPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 69
CZRrR6QC.PN
02-JuL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS

>o o

[b2aow=[4@Ow—><-x b¥wo3—4>4ow~«- o[v >wo[V a>ovw~c Av- —Am(w&)

w~ -w—

~ o a -—

aov vA -a Aw v A v " w2—&

3S“SS-=eS=>“S,S“S‘Yo=os-]5s.s5sse5ssS5saoot.slslsl3s[--o<2Cd]’.32sownAv]dk3..s([w-Al3~]aulsNuse-w\>r'ev4ilsalxstsV~e—~YN]sBsYl,sNlsl[ssnNtesetDsDseskesulheauesewA owse~Lee4-L

AoaA 4[-+<<o3~=N=2@o~T-un»n-—_aunmow-~—4[;

==2——\"4-—w ~

9“’oMN=—@N7MI‘TN2ON0D6O%[O-TMNMToWtTNON(=]OM>ON-O~N0WINOVMNo—IM~NNa0AONITNTOMTOT=FTNO—WOFO=](G
0 6
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 70
CZRrR6QC.PN
PROGRAM SPECIFIC RESERVED LOCATIONS
02-JuL-80 09:50

N3O~W(©INMA=ONVTOM

SEQ 0068

—

- —v . — o-—~

w
A
w
A
v
b¥[VoOe>—vT4y =w-9o2—[v- [b>¥~-V4
v—

9
[- b < o w

——

3 6
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 71
CZR6QC.PN
02-JuL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS

(aAv<}v—--Wo[a—¥[4]A~-

>TIREEE&@O-~-~VWOVO-—o=Yx

vwn ~ w> — o= —~

©O0oO00O0OO0 TNWOIN—~AON0W0N=IOINION0

SEQ 0069

¥DLS

w) -—

A~sv>

v png

DROPPING DRIVE = 20 ERRORS/<15><12>

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

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) .02-JUL-80 09:52 PAGE 72
CIR6QC.P11
02-JUL-80 09:50
PROGRAM SPECIFIC RESERVED LOCATIONS

015134

036440

000040

EQUALS: .ASCIZ

/ = /

012143

076

000040

PRMPSP: .ASCIZ

/> /

012140

020052

000

PROMPT:

3500
3501
ssog

)

.ASCIZ

/¢ /

.EVEN

3505
gggg

012146
012152

105037
000403

003126

3508

0121564

112737

000001

gg}?

012170

000406

3512

012172

112737

000002

003126

P2STRT: MOVB

3515
3516
3517
3518
3519
3520
3521
352§

012206

012737

000340

177776

012214
012220
012222
012226
012230

012706
005026
022706
001374
012706

001100

CMSTRT: MOV
#PR7 ,9#PS
:BLOCK ALL INTERRUPTS
LSBTTL INITIALIZE THE COMMON TAGS
ssCLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG, RO
;sFIRST LOCATION TO BE CLEARED
CLR
(R6) +
ssCLEAR MEMORY LOCATION
CMP
#SWR,R6 ;:DONE?
BNE
.=6
;:LOOP BACK IF NO
MOV
#STACK,SP
::SETUP THE STACK POINTER

§24

012234

012737

044574

3509 012162

gg}z 012200

gsg

3525
3526

012242
012250

112737 000061

112737 000062

012737
012737

003126

003155

001140

000020

000340
044070

000022
000030

DFSTRT: CLRB
BR

MDFLAG
P1SET

:SET FLAG FOR 200 START
sCONTINUE

PISTRT: MOVB

#1,MDFLAG

:SET FLAG FOR 204 START

CMSTRT

: CONTINUE

P1SET:

012264

012737

045306

000034

$30
3531

012300
012306

012737
o1§737

044440
000340

000024
000026

012342

001115
001106
001110

3536

3537

3538
3539
is«o
541
55§
543
S44&
545
5S4

22.

012;16
012322
012326
012334
012342

013737
005037
112737
012737

012737

012350
012354
012362
012370
012376
0126404

013746
012737
012737
012737
022777
001012

01%608

000403

8}22}‘

017220
001316
1
012334

000004
012410
177570
177570
177777

12716

012416

551

o1z‘§4

012737

000174

012432 012637 000004

:SET FLAG FOR 220 START

SSET PASS NO. = 2

MOV

#340,9PENTVEC+2 ;:LEVEL 7

MOV

MOV
MOV

MOV
CLR
MOove
MOV
MOV

#340,9#10TVEC+2 ;:LEVEL 7
#SERROR ,@#ENTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#STRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS

#340,8 TRAPVEC+2; LEVEL 7

#3PURDN, a#PURVEC ; ;POWER FAILURE VECTOR
#340,30PURVEC+2 ;:LEVEL 7

SENDCTY,SEOPCT
$ESCAPE
#1 ,SERMAX
#..3LPADR
#..SLPERR

:sSETUP END=OF -PROGRAM COUNTER
::CLEAR THE ESCAPE ON ERROR ADDRESS
::ALLOW ONE ERROR PER TEST
ssINITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

S:EQUAL TO A '=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.
MoV
SFERRVEC ,-(SP)
;;SAVE ERROR VECTOR
MOV
#6438, 30ERRVEC
::SET UP ERROR VECTOR
MOV
#DSHR, SWR
:2SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER
CMP
#-1,35WR
::TRY TO REFERENCE HARDWARE SWR
BNE
66%
;sBRANCH IF NO TIMEOUT TRAP OCCURRED
TSAND THE HARDWARE SWR IS NOT = =1
BR
65%
::BRANCH IF NO TIMEOUT

64%:

001142

#'2,PASSNO

#$SCOPE
,a# 1OTVEC ;:10T VECTOR FOR SCOPE ROUTINE

MOV

549 012416 01273; 000176 001140 65%:
550

#2,MDFLAG

:SET PASS NO. = 1

MOV

MOV
MOV

017232

000004
001140
001142
166534

0'{.PASSNO

;:INITIALIZE A FEW VECTORS

gszv 012272 012737 000340 000036
3532
3533
353%
3535

MOVB

gszr 012256 012737 000340 000032
528

MOVB

66%:

:?Y

#65%, (SP)

MOV

#D1SPREG,DISPLAY

MOV

#SWREG, SWR

(SP)*.GJERRVEC

::SET UP FOR TRAP RETURN

;:POINT TO SOF TWARE SWR
;:RESTORE ERROR VECTOR

SEQ 0070

R6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL=-80 09:52 PAGE 73
R6QC.P11
02-JuL-80 09:50
INITIALIZE THE COMMON TAGS

gssg 012436

sogr 001336

CLR

$PASS

::CLEAR PASS COUNT

442
012450
8} 22%

132737
001403
012737

000200

001351

001352

001140

3559

01 465

012737

000006

000004

MOV

#6,3#ERRVEC

3561
3562
3563
3564
3565

0124764
012500
012504
01%510
012514

105037
105037
105037
105037
112737

00314
003137
003135
001102
000001

003152

CLRB
CLRB
CLRB
CLRB
MOVE

TSTTYP
DRVERS
ERRCNT
STSTNM
#1,HLPOVL

;CLEAR OFFSET TEST
:CLEAR ERROR COUNT
:CLEAR ERROR RETRY
:SET TEST NO. = 0
:SET MLP FILE OVLD

3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
579

0125;6
012532
012534
012540
012544
012552
012560
012564
012570
012574
012600
012
81%61

105737
001004
104401
105237
012737
012737
013701
012721
013711
105037
012737
012701
83;700

00315

TSTB
BNE
TYPE
INCB
MOV
MOV
MOV
MOV
MOV
CLRB
MOV
MOV
MOV

NOTYPE
408
,NOTMSG
NOTYPE
#XBOHDL
,a# TKVEC
#PRG,AFTKVEC+2
RKVEC ,R1
#1.INTR,(R1)+
RKPRI, (R1)
TSTING
#PRO,3#PS
#PRVCMD,RY
#6 RO

:SEE IF OPERATOR NOTE SHOULD BE TYPED
:BR IF NOT
:TYPE OPERATOR NOTE
:SET FLAG FOR NEXT TIME
:LOAD VECTOR FOR TTY KBD
:SET KBD PRIORITY = &
:ADDR. OF RKO& VECTOR STORAGE
:SET IT TO RKO6 HANDLER
:SET RKO6 PRIORITY
;CLEAR 'RUNNING TESTS'' FLAG
:ALLOW ALL INTERRUPTS AGAIN
:ZERO OUT PREVIOUS COMMAND
:SET COUNTER

3581
582
3583
3584

012620
012622
012624
0126

005300
001375
005037
004737

DEC
BNE
CLR
JSR

RO
423
STALLS
PC,GTSWRG

3586
3587
3588
3589
3590
3591
592
593
59&
3595
5
597
598

012642
012650
012654
012660
012662
012
012674
012702
012704
012710
012713
012722
012726
012730
012734
012740
012746

012737
004737
105737
001034
013700
013737
132737
001005
012700
012737
110037
105037
000300
042700
010037
112737
000137

MOV
JSR
TSTB
BNE
MOV
MOV
BITB
BNE
MOV
MOV
MOVB
CLRB
SWAB
BIC
MOV
MOVB
JMP

#123456, SLONUM
PC,GETTYP
MDFLAG
ALLSYS
$VECT1,RO
$BASE ,RKBAS
#BIT7,SENVM
188
#AVECT1,RO
#ABASE ,RKBAS
RO,RKVEC
RKVEC+1
RO
#177437,R0
RO,RKPR
#'A,SUBSYS
oFLTDR

3560 012470

3566 012522

580

01261

005037

104401

021

00000

00757

054330
003153
020606
000200
003050
034710
003052
003127
000000
005162
06

000060
000062

RESET
CLR

TYPE

40S:

177776

428:

005432
021106

3585 012634 012737 176543 042336 44$:

3607

123456
024154
003126

001400
001404
000200
120210
177440
003050
003051

177437
003052
000101
013744

042340

003046
001351
003046

188:

005510

3 S

i i1

CLR

MOV

W#APTSIZE,SENVM
67%
#SSWREG, SWR

SEQ 0071

3554
3555
3329

gssa 012460 oooogs

BITB
BEQ
MOV

FERRVEC
+2

,DIR6Q

(R)+

;;TEST USER SIZE UNDER APT
:3YES,USE NON=APT SWITCH
$iNO,USE APT SWITCH REGISTER

:CLEAR THE UNIBUS

:SET TIME-OUT VECTOR

:TYPE PROGRAM 1.D.

IDENTIFIER
FOR CURRENT DRIVE
COUNT
INDICTR

:1ERO A WORD

:BR IF NOT DONE YET
:DON'T ALLOW STALLS YET
:OPEN SOFTWARE SWR FOR MODIFICATION

#176543, SHINUM :INIT. PSEUDO-RANDOM NOS.

22220

:SEE IF RKO6 OR RKO? & SETUP
:SEE IF DEFAULT MODE
:BR IF NOT DEFAULT MODE
:GET APT RKO6 VECTOR AND PRTY
:GET APT RKO6 BASE ADDRESS
:SEE IF NO SIZING
:BR IF NO SIZING
:GET DEFAULT VECTOR AND PRIORITY
:GET DEFAULT BASE ADDRESS
:STORE VECTOR
:CLEAR MI BYTE
:GET PRTY INTO BITS 5-7
:CLEAR OTHER BITS
:STORE RKO6 PRIORITY
:SET SUBSYSTEM NAME = A
160 CHECK ALL DRIVES

R R0

R RRRRRRRRRRRRRRRRRRRRRR])

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 74
CZRrR6QC.PN
02-JuL-80 09:50
TEST O
PARAMETER INPUT ROUTINES

3283

.SBTTL

3610

3611

TEST 0

R
R e e sty

:READ AND STORE ALL SUBSYSTEMS AND DRIVES TO TEST

361§

012752

104401

001325

ALLSYS: TYPE

3614
3615
3616
3617
3618
3619
3620

012762
012766
012772
012776
013000
013002
013004

112703
012701
012700
005021
005300
001375
012704

000101
005512
000021

MOVB
MOV
MOV
CLR
DEC
BNE
MOV

3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
ggss
3%
3637
3638
3639
3640
3641

013010
013014
013020
013024
013026
013030
013032
013034
913036
013042
013044
013050
013054
812323
01
013066
013070
013076
013100
013102

110337
104401
004737
012752
012752
013014
005700
001767
022700
002005
104401
104401
000757
ogs 1
126127
103766
126127
101362
005201
020100

3643
3644
3645

013106
013114
013116

126127
001353
005201

3613

3621

PARAMETER INPUT ROUTINES

012756

105037

364% 013106 001406

001102

CLRB

28:

005512

3648 013122 012701

3649
;gso
51
s;
53
54
3655

013126
013130
013132
013134
013136
013140
013144

005021
005021
005021
005011
005000
116001
042701

sg
59

013162
013166

105760
001364

010062
010053
023402

000017
005212

001324

005212

000060

005212

000067

005212

000054

013170

005000

116014
001411

BEQ

CMPB
BNE
INC

#'A,R3
#DRVLST,R1
#17.,R0
(R1)+
RO
28
#ORVLST,R4

SINIT SUBSYS INDICATOR
:GET DRIVE LIST ADDRESS
:CLEAR OUT THE DRIVE LIST

(SET TEST NO. = 0

:GET STARTING ADRS OF DRIVE LIST

R3,SYSDRV+7
,SYSDRV
PC,RDCHRS

RO
5%
#15.,R0
12%
,BUFFO
,SQUES
63
R1
RUFSO(R1),#'0
108
BUFFO(R1),#'7
10
R1
R1,RO

;SET SUBSYS NAME FOR PRINTOUT
:ASK FOR DRIVES ON THIS SUBSYSTEM
:READ INPUT STRING
:(*C) RETURN ADDRESS
:(*2) RETURN ADDRESS
:(*U) RETURN ADDRESS
:SEE IF NULL INPUT
:BR TO ASK AGAIN
SSEE IF TOO MANY CHARS TYPED
:BR IF NOT TOO MANY
:ECHO BAD INPUT
:TYPE <?> AND <CR>,<LF>
160 ASK AGAIN
:CLEAR CHAR POINTER
:SEE IF DRIVE NO. < 0
:BR TO ECHO BAD INPUT
:SEE IF CHAR > 7
:BR TO ECHO BAD INPUT
:INCR CHAR POINTER
:SEE IF MORE CHARS TO CHECK

16$

:BR IF ALL CHARS CHECKED

148

:BR TO CONTINUE CHECKING CHARS

BUFFO(R1),#',
108
R1

:SEE IF THIS IS A COMMA
:BR IF NOT A COMMA
:INCR CHAR POINTER

:PUT DRIVES FOR THIS SUBSYSTEM INTO SCRATCH LIST

005556

16$:

005212
000060

188:

59 013150 116061 005212 005556
57 013156 oc;roo 000002

013172
013176

ALLSY1: MOVB
68:
TYPE
JSR
ALLSYS
ALLSYS
6$
ST
BEG
CMP
BGE
108:
TYPE
TYPE
BR
128:
CLR
14$:
CMPB
BLO
CMPB
BHI
INC
CMP

B8R

005211

;TYPE <CR>,<LF>

;ASK FOR DRIVES TO TEST ON THIS SUBSYSTEM

3646 013120 000757
3647

SCRLF

$TSTNM

MoV

CLR
CLR
CLR
CLR
CLR
MGVB
slc

MOVB
ADD

TSTB
BNE

#SCRLST,R1

(R1)+
(R1)+
(R1)+
(R1)
RO
BUFFC(RO),R1
0,81

:GET SCRATCH DRIVE LIST ADRS

:CLEAR OUT SCRATCH DRIVE LIST

;INIT CHAR POINTER
:GET A DRIVE NO.
:STRIP ASCII BITS

BUifFO(RO),SCRLST(RY)
:SET ASCII DRV NO.
#2,R0
;POINT TO NEXT DRIVE NO.

BUFFO=1 (RO)
18%

:SEE IF NULL CHAR YET
:BR IF NOT DONE YET

:LOAD DRIVES FROM SCRATCH LIST INTO TOTAL DRIVE LIST

005556

ALLSY3: CLR

ALLSY2: MOVB
BEQ

:INIT SCRATCH DRV LIST POINTER

SCRLST(RO),(R4) :MOVE THIS DRIVE INTO ACTUAL LIST
22%
:BR IF DRIVE NOT MARKED

SEQ 0072

2 ZRIYSRNT f

—_ O

=1
g S SRS
°~5
SSF3
ugvo

SRBFRGERNER BRRNFmoRSS

NN
NN

OZ'JUL-OO 09:52 PAGE 75
TO
PARAMETER INPUT ROUTINES

010215
012752

228:

000010

~N
~

=33

NN~
OSSN

TYPE
JMP

,DROVFL
ALLSYS

STYPE "MORE THAN 16 DRIVES ENTERED !
16O START OVER, ASKING FOR DRIVES

INC

CLR

005444

238:

248:
268:

000010

SgNN

g
o

~N
- N

-.-.8
822

— = N NO
NI N=N

—

°O°§-‘-‘
r NN"S

0
6

SCRACH

:INIT CHAR OUTPUT BUF

:SEE IF FIRST TIME HERE

TYPE

,COMMA

SINIT SCRATCH LIST POINTER
:INIT COUNT OF LISTED DRIVES FOR SUBSYS

:TYPE
A COMMA

SCRLST(RO),SCRACH ;SEE IF THIS DRIVE LISTED
268
:BR IF DRIVE NOT LISTED
248

TYPE
INC
INC
CMP

.SCRACH
R1
RO
RO,#8.

MOVB
TYPE

R3,ONSUBS+11.
,ONSUBS

23§

:BR IF FIRST TIME

:TYPE A DRIVE NO.
:INCR. COUNT OF LISTED DRIVES FOR THIS SUBSYS
:INCR LIST POINTER
:SEE IF DONE CHECKING LIST YET

:BR IF NOT DONE YET

:SET SUBSYS NO. IN MSG
:TYPE ''ON SUBSYSTEM '

CMP

R3
R3,#'P

TSTB

MDFLAG

see If zoo START

JMP

DRVTST

*START PASS 1

JSR
ALLSYS
ALLSYS

PC,RDCHRS

BNE

ASKSYS

28%

(INCR SUBSYSTEM NAME
sss IF uAne > P
R IF

:BR IF

NOT

ASK IF THERE IS ANOTHER suasvsrén TO SPECIFY
288:
TYPE
,ANOTHR
;ASK FOR ANOTHER SUBSYS

005212

NN
(Vo]
VIOO
O WW
O =t b VANNNINN

i B

[=1=T=]

010144
023402

SINCR SCRATCH DRIVE LIST POINTER

MOVB
BEQ

BHI

003126

104401
004737

+SEE IF DRIVE LIST OVERFLOW
:BR IF NO OVERFLOW YET

RO
R1

INC

000120

013704

R&,#ORVLST#34.
22§

CLR
CLR

BLT

010137
010124

s
0O

W NN
NN
NI =B b b
S

;INCR DRIVE LIST POINTER
:PUT SUBSYS LETTER INTO HWI BYTE

BEQ

Y
PRy
& K8
~oR]¥
388FROEES
ol

FRRRRY

&*N’ONO

R4
R3,(R4)+

CMP
ao 8,
:SEE IF DONE WITH THIS SUBSYS
BLO
LLSY2
‘BR IF NOT YET
SUBSYSTEM
;ECHO DRIVES TO IEST ON THIS
TYPE
,WILTST
;TYPE "WILL TEST DRIVE(S) *'

010100
005444
005556

SEQ 0073

INC
MOVB

CMP
BLo

005554

L Al
NLA el L L L Lnd A
W

000000

oG-y

0000000000000
O00

—p—p————-—<
——- - - - - - i--S- - - y—- -

- -y

OCOO0O0O0O0O0O0O
OCOO0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0O0

6 DR_CPT PROG MACY11 SOA(1052)
02-JuL-80 09:50

005212

308:

288
13
BEQ
CMP
BNE
JMP
CMP
BEQ
TYPE

TYPE

READ RE SPONSE
1(*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS

308
ALLSY1
#°N,BUFFO
ASKSYS
,BUFFO

:(*U) RETURN ADDRESS
:SEE IF NULL INPUT
:BR IF NULL INPUT, TO ASSUME <N>
‘SEE IF <Y> TYPED
:BR IF NOT <Y>
160 ASK FOR DRIVES ON NEXT SUBSYS
‘SEE IF <N> TYPED
:BR IF <N>
:ECHO BAD INPUT

160 ASK AGAIN

ASKSYS
#°Y,BUFFO

$QUES

:TYPE <7> AND <CR>,<LF>

;204 OR 220 START = GET NAME OF SUBSYSTEM TO TEST NEXT

ASKSYS: CLRB
TYPE

JSR

ALLSYS
ASKSY®
ASKSYS

STSTNM
TYPSYS

PC,RDCHRS

:SET TEST NO. = 0
:ASK FOR NEXT SUBSYS TO TEST

:READ RESPONSE

:(*C) RETURN ADDRESS
:(*7) RETURN ADDRESS
:(*U) RETURN ADDRESS

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZRéQC.P11
02-JuL-80 09:50
720
721
722
723
726

013440
013442
013446
013452
013454

0057
0%173
0O gg 7
103005
104401

726
727

013464
013466

000754
023727

3725

3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
g;zg

013460
013474
013476
013504
013510
013514
013516
0135%0
013526
0135;6
013532
013536
013542

104401

1013?7
113737
012700
122037
001410
005200
0200;7
10377
104401
000137
162700
010037

005212

000120

005212
00551
005510

005510

010622
013416
000002
005554
003046
007630
020776
003046

3746

013566

013746

003050

g;gg

013602

3751
3752
3753
3756
3755
3756
3757
3758
3759
3760
761
7
3763

013606
013612
013614
013616
013620
013622
0136;3
013632
013634
01364%
013642
013648
013650

764

013652

012637

013746
006316
006316
006316
000316
104401
004737
012600
020027
002414
020027
003011
000300

8s:

005553

013746
104401
004737
012637
104401
004737

68:

104401
000405

;;

3770
144!
774

35775

013672
81 76

013712

104401

010257

JMP

ASKSYS

,NODRLS

sSEE IF NULL INPUT
B IF NULL, TO ASK AGAIN
sSEE IF A CHAR < A TYPED
BR IF NOT

:ECHO BAD INPUT

sTYPE <7> AND <CR>,<LF>

:GO ASK AGAIN
sSEE IF A CHAR > P TYPED
:BR IF YES
sSTORE CURRENT SUBSYSTEM NAME
sSET DRIVE LIST POINTER
sSEE IF A DRIVE LISTED FOR THIS SUBSYS

:BR IF VES
sINCR POINTER
sSEE IF WHOLE LIST CHMECKED YET
BR IF NOT YET

sTYPE "NO DRIVES LISTED FOR SUBSYS'

ASK FOR

A SUBSYS AGAIN

POINT TO LOW BYTE OF LIST ENTRY

,RKBADR

:TYPE 'RK06 BUS ADR = ‘'

JSR
MOV

PC,GETPRM
(SP)+,RKBAS

MOV

RKVEC,=(SP)

;PUT OLD VALUE ON STACK

JSR

PC,GETPRM

:TYPE OLD, GET NEW RKVEC VALUE

RKVADR

(SP)+,RKVEC

ASL
ASL
SWAB

(SP)
(SP)
(SP)

JSR
MOV
CMP

PC,GETPRM

CMP

RO,#7

SWAB
ASR
ASR
ASR
MOV

RO
RO
RO
RO
RO,RKPRI

B8R

DRVTST

B8R

f1s

BLT
BGT

00132

003155

,BUFFO
,$QUES

BHI
MOVEB
MOV
CMPB
BEQ
INC
CMP
BLO

TYPE

000007

113737

BUFFO,#'A
6%
ASKSYS
BUFFO,#'P
4
BUFFO,SUBSYS
#ORVLST+1,R0
(RO)+,SUBSYS
98
RO
RO, #DRVLST+33.
A%

MOV

000004

013704

RO
ASKSYS

SEQ 0074

:TYPE OLD, GET NEW RKBAS VALUE

;STORE NEW VALUE

:TYPE

"RK06 VEC ADR =

:STORE NEW VALUE

: OPEN RKOb INTERRUPT HANDLER PRIORITY LEVEL FOR MODIFICATION
i1s:
RKPRI,=(SP)
;GET OLD VALUE OF PRIORITY
ASL
(SP)
;GET IT INTO BITS 0-2

007677
020776

000741

BR
CMP

TYPE

003052

13702

;OPEN RKO6 VECTOR ADDRESS FOR MODIFICATION

003050

005;12
001324

TYPE
TYPE

TYPE

007654
020776

104401
104401

PAGE 76

RO.DRVPTR
STORE POINTER
:OPEN axoc UNIBUS ADDRESS FOR MODIFICATION
;PUT OLD VALUE ON STACK
RKBAS,=(SP)
MOV

76 Oiless 006300
729 013628 0100%9 00305;
01
0136 g

CMP
BHIS

TYPE

006200

768
769

09:52

PARAMETER INPUT ROUTINES

ST
BEQ

48:

001324

013546
013552
013556
013562
013572
013576

TO0

000101

005212

3741
3742
3743
g;zg
747
748

OZ-JUL-OO

TYPE

128:

010301

TYPE
TYPE

DRVTST: MOVB
TYPE

,RKPRTY

(SP)+,RO
RO, #4

12§
12§

,SCRLF

,BUFFO
$QUES

;TYPE

'RKO6 PRIORITY = '

:TYPE OLD, GET NEW RKPRI VALUE

sSEE IF AT LEAST LEVEL &
:BR IF NEW VALUE TOO SMALL
sSEE IF LEVEL 7 OR LESS
:BR IF NEW VALUE TOO LARGE

:GET PRIORITY INTO BITS 5-7

:STORE NEW VALUE

;ECHO BAD INPUT
;GO ASK AGAIN

PASSNO SRPASS+18. ;SET PASS NO. FOR PRINTOUT
,SRPASS

:TYPE “'STARTING PASS X"

CZR6QCO RK6 DR CPT PROG
CIR6QC.P11
02-JuL-80
3779
777
gr7s
779

81 716
013724
0137
013732

122737
001
137
112737

013744

005000

é;g? 013740 000137

MACY11 30A(1052) 02-JUL-80 09:52 PAGE 77
09:50
TEST 0
PARAMETER INPUT ROUTINES
000061

003155

014316
0000064

001102

015116

378
3784

785
786
787

3788

01374
013752
013760

013762

3789 0137
3790 01377

o1srg;
132737
001002

31%703

001406
000200

013776
014000
014002

030103
001405
110060

3795
3796
3797
798
799

014014
014016
014020
014024
014026
014034
0140
014042
1«848
1405

006301
005200
022700
ogtso;
132737
001416
oagro«
113703
818281
1
7

001351

000377

014060
014062
014064
014066

005021
005300
001375
000137

816072

005000

18:
2$:

005556

3794 014006 152760 000060 005556

1;
13
1%
15

001351

005512

108:

005510
005554

014054 012700 000021

14074
014100
014102
816103

1411

11%:

013170

105762
00147
otoogr
8241 7

005556

005430
003133

005444

128:

005430
021140

;71; 000100

014116
014124

014130
3}2135

113737
105737
001003
12752

000010

014150

sg 7

14156
14166

032762
00141

001000

000010

14196 112765 000101
014174 011; 5
1

000001

01a§oo
014206

004737
004737

03763
03121

000001

g 014140
1;11%
002001
14144
037
005444

28
9
31

014154

001375

13t

;SEE IF PASS 1
:BR IF NOT PASS 1
{START PASS 1
$SET TEST NUMBER = &

:START PASS 2

MOV
BITB
BNE

$DEVM,R3
#BIT7.SENVM
1

:GET APT DEVICE MAP
:SEE IF NO SIZING
:BR IF NO SIZING

MOV
CLRB

#8170, R
SCRLSf(RO)

:SET BIT POINTER
sINITIALIZE DRIVE ENTRY

MOV

BIT
BEQ
MOVB

BISB

ASL
INC
CMP
BNE
BITB
BEQ
MOV
MOVB
MOV
MoV

MOV
CLR
DEC
BNE
JMP

#377 ,R3

R1,R3
48
RO,SCRLST(RO)

#'0,SCRLST(RO)
R
RO
#10,R0
28
#B1T7,8ENVM
8s
#DRVLST, R4
SUBSYS,R3
R4 ,R1
R4 ,DRVPTR

n?t.,RO

:SET UP FOR SIZING

:SEE IF THIS DRIVE IS REQUESTED
:BR IF NOT
:MARK DRIVE IN SCRATCH LIST

:CONVERT NO. TO ASCII

:SHIFT BIT POINTER
: INCREMENT DRIVE NUMBER
:SEE IF DONE MARKING ALL DRIVES
:BR IF NOT DONE YET
;SEE IF PROGRAM SHOULD SIZE
:BR IF YES
:GET DRIVE LIST ADDRESS
:GET SUBSYS NAME IN R3
:GET DRIVE LIST ADRS
:SET POINTER TO FIRST DRIVE TO TEST

:SET COUNTER

(R1)+
RO
118
ALLSYS

sCLEAR A DRIVE LIST WORD
sDECREMENT COUNTER
:BR IF NOT DONE YET
:GO MOVE SCRATCH LIST INTO LIST

CLR

;:CLEAR DRIVE NUMBER

BIC

#1E, (R2)

:DISABLE RKO6 INTERRUPT

REMOVE NON-EXISTENT DRIVES FROM SCRATCH LIST

8s:

ggt
18
3819
gggg

4$:

000010
000200

JMP

#'1,PASSNO
2%
ST
#4,$TSTNM

;ADR 200 START = COMPILE SCRATCH LIST OF DRIVES TO SIZE
DFLTDR: CLR
RO
sCLEAR DRIVE NUMBER

12701 000001
105060 005556

3791
3792
3793

2%:

CMPB
BNE
JMP
MOVB

38:

5$:
7%:

158:

TSTB
BEQ
MOV
JSR

MOVB
1ST8
BNE
32'

MOV
CLR
INC

SCRLST(RO)
148
RO,DRIVE
PC.INITSS

DRIVE,RKCS2
TYPFNT
5$
;go.(az)

:SEE IF THIS DRIVE IS MARKED IN SCRATCH LIST
:BR IF NOT MARKED
:SET DRIVE NUMBER FOR SCNDRV
SCLEAR DRIVER AND INIT S.S.
:SEE IF RKO7

BR IF YES
SELSE SET GO BIT FOR RKO6 IN RKCS1

#<CDT!GO>,(R2)
;ELSE
SET GO FOR RKO7 IN RKCS1
SCRACH
:CLEAR STALL CTR
SCRACH

: INCREMENT STALL COUNTER

BIT
BEQ

#MDS ,RKCS2(R2)
188

:SEE IF MDS ERROR
‘BR IF NOT

JSR
JSR

PC,1.CSTY
PC.REPSUP

BNE

MOVB
MOV

158

:STALL FOR SEVERAL MILLI-SEC

cssLoav.r.cnuo(nS) :SET CMND FOR ERROR REPORT
(R2),P.CST1(RS) :GET RKCS1 FOR REPORT

:GET OTHER RK611 REGS FOR REPORT
:SET UP ERROR REPORT

SEQ 0075

L
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02- JUL=-80 09:52 PAGE 7 ]
CIR6QC.P11
02-JuL-80 09:50
TEST 0
PARAMETER INPUT ROUTINES

3%
33

1040 ;
0527
137
004737

oggggo
8
4
021140

005424

01421
014212
014
014226

3338
39

014244
014252

012737
004737

000377
030124

005476

3837

014
014

112765 000141 000001
012737 ozo«sg 003056

3840 014256 012737 031472

188:

ERROR
BIS
JMP
JSR

52
#ABORT ,RECODE
ALLTRM
PC,INITSS

:REPORT MDS ERROR
;SET ABORT FLAG
160 ABORT TESTING
*INIT THE §.S.

MOV
JSR

#377 ,NEWON
PC,ORVCAL

sINIT ONLINE INDICATOR
:READ DRIVE STATUS

#37 ,NEWON

:SEE IF THIS DRIVE EXISTS

MOVB
MOV

003056

MOV

3841 ougu 022737 000377 005476
384;
3843

014272
014274

001006
005200

3845
3846
3847
ggzg

014302
014304
014310
014314

001274
000137
105060
000767

CMP

BNE
INC

148%:

3844 ougze 022700 000010
014036
005556

16$%:

3850
3851
3852
3853
”S‘

CMP

BNE
JMP
CLRB
B8R

IRDSTAY.P.CHND(I§> +SET READ STATUS COMMAND
#NEOMDL .A.ABNL :SET NED ABNORMAL RETURN ADR

lgfiRHDL.A.ABNL
16%
RO

#10,R0

12%
10%
SCRLST(RO)
14%

JRESTORE ABNORMAL RETURN ADDRESS
:BR IF NO
sRETURN HERE IF DRIVE IS USEABLE

:SEE IF DONE CHECKING LIST

:BR IF NOT DONE YET
:G0 BACK TO LIST SELECTED DRIVES
sREMOVE INVALID DRIVE FROM LIST
sCONTINUE CHECKING THE LIST

;;tt'tttttttt't't"t't"""'tt"ttt.ttt"ttt.'..tt"tt'tt't'tlt'

33332

;*TEST 1

MOUNTING OF TEST CARTRIDGE FOR PASS 1

3857
3858

H
ot
o

THE PROGRAM TYPES ''STARTING PASS 1''. THEN, THE OPERATOR
MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE HEADS,
AS DIRECTED BY THE PROGRAM. IT THEN CHECKS THIS DRIVE'

1
3862

M
M

DETERMINE THE FORMAT. THE FORMAT IS STORED IN '‘FORMAT'',
ALSO, THE PROGRAM READS AND STORES THE BAD SECTOR FILES, AND

sa“

L ]

3863

”7

000001
022020

014342

004737

022066

014332
014336

004737
004737

001334

JSR
JSR
JSR
JSR

021140
020744

PC,SETTUP
PC,INITSS
PC,PREPKB
PC.MTCART

;SET UP FOR LOOP ON ERROR
sINITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT

';'tttttlttttttlt't't"t"t'it"t'.lttttt'tt.tit'.tl'tt'tt'tt'ttt

STEST 2
T

~
ggggg-fl§§ 3ON

3873
3874
3875
3876

04
012737
737

T2 EEE

3868
§369
70
333;3

014316
014320
014326

IT TYPES THE DRIVE AND CARTRIDGE SERIAL NUMBERS.

E.'tttttttt'ttt"tt't"'t"t""Q.ttt.t.tt'ttt't.lttttt"t"t't"t
TST1:
SCOPE
MOV
#1,8TESTN
:sSET TEST NUMBER IN APT MAIL BOX

L TRTETEAITEATE
R
R TR J

ms
3866
3867

FOR VALID STATUS, AND READS THE HEADER ON SECTOR O, Tq

BASIC READ/WRITE DATA TEST

THE PROGRAM PERFORMS A WRITE AND WRITE CHECK OPERATION

USING A "“WORST CASE'' DATA PATTERN, AT THE APPROPRIATE SECTOR
FOR _THIS DRIVE (FROM TABLE A) ON ALL SURFACES. THE PURPOSE

OF THIS OPERATION IS TO VERIFY THE BASIC READ/WRITE
CAPABILITY OF THE DRIVE ON PASS 1. THE ENTIRE SECTOR
{z ggglgi: WITH THE REPETITION OF THE DATA PATTERN SHOWN

SEQ 0076

CZR6QCO RK6 DR CPT PROG
CZR6QC.PN
02-JuL-80

014

314 S

9;
93
9%
95
96
3397
98

3899
gooo
901
3902
goo
904

8 0000

MACY11 30A(1052) 02-JuL-80 09:52 PAGE 79
09:50
T2
BASIC READ/WRITE DATA TEST
SARARRRARNRANNANN

8327 7

000002

014
014
014372

004737
004737
112737

021140
020744
000001

014400

004737

024460

014404
014410
014412
014414
014420
014422
014430

113700
006300
006300
105737
001011

003154

014 sg

3905 014436

737

016065
062700

116065

gggg 014442 000410

022020

001334

003127

t§12:

MOV

N RRRN RN RN NN NN RNRNNRARNNANAANNANRANORANNOONORNOOS

#2,8TESTN

JSR

;:SET TEST NUMBER IN APT MAIL BOX

PC.SETTUP

JSR
PC.INITSS
JSR
PC .PREPKB
MOVB
#1.TSTING
:LOAD RWBUF WITH DATA PATTERN
JSR
PC,LODSEC
;SET UP PARAMETERS
MOVB
LOGORV,RO

ASL
ASL
TSTE
BNE

003133
005566
000002

score

000002

RO
RO
TYPEMT
1%

MOVB

;GET LOGICAL DRIVE NUMBER
$CONVERT IT TO INDEX

3908
3909
sg}g

0144446
014452
014456

016065
062700
116065

005666
000002
005666

000002

912

014464

014472

012765

053330

000010

28:

MOV

#RWBUF ,P.BALO(RS)

915 81«500
916
014506

11zrgs
004737

820133
030124

000001

6$:

MOVB
JSR

#WRDATA,P.CMND(RS)
;SET WRITE COMMAND
PC,DRVCAL
:WRITE THE SECTOR

014512
014520

112765
004737

000131
030124

000001

0145264
014530
014536

105265
126527
101760

000005
000005

3913
3914
3917
3918
3919
3920
3921
3922
ggg‘

177400

000004
000012

000002

MOV
ADD
MOVB

SINITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT
:ALLOW TTY ESCAPE

TABLEA(RO),P.SECT(RS) ;GET SECTOR # FOR THIS DRIVE

B8R
1$:

:SET UP FOR LOOP ON ERROR

;SEE IF RKO7
:BR IF YES
TABLEACRO) ,P.CYLN(RS) ;GET CYL # FOR THIS DRIVE
#2,R0
: INCREMENT INDEX

MOV
ADD

005566 000004

SEQ 0077

TABL7ACRO) ,P.CYLN(RS)
#2,R0
TABL7A(RO) .P.SECT(RS)

MOV
#-400,P.WC(RS)
:WRITE THE DATA

;GET RKO7 TABLE

;GET SECTOR # FOR THE DRV
;SET BUS ADDRESS

:SET WORD COUNT FOR 1 SECTOR

sPERFORM WRITE CHECK OF SECTOR
MOVB
#WRTCHK,P.CMND(RS)
;SET WRITE CHECK COMMAND
JSR
PC,DRVCAL
:PERFORM THE WRITE CHECK
: INCREMENT TRACK ADDRESS
INCB
P.TRCK(RS)
: INCREMENT TRACK NO.
CMPB
P.TRCK(RS),#2
:SEE IF ALL SURFACES WRITTEN YET
BLOS
6%
:BR IF NOT YET

3925

i
3928

3929
3930
3931

SeTEST 3
WRITE OVRWRT AND COMPAT CYL BLOCKS FOR CURRENT DRIVE
e
ALL SECTORS ARE WRITTEN FOR THE CURRENT DRIVE WITHIN THE
e
CYLINDER BLOCKS IN TABLEC ON ALL SURFACES, USING A SINGLE

393

934

935

9,9

937

014540

014542

940
941
9%
943

014554
816560
14594
014570

939 014550

RN RN AR RN

RRRCRRRRROR NS

REPEATED WORD OF THE PSEUDO-RANDOM DATA PAT1ERN IN TABLEG. LOGICAL DRIVE 0

BLOCKS ARE THE OVERWRITE AND COMPATIBILITY TEST DATA TO

938

USES WORD 0,

LOGICAL DRIVE 14 USES WORD 14, ETC.

THESE CYLINDER

BE USED IN PASS 2.

';Qttttl.'ttt".t"""'.'t"'t!'t"ttt.".i.itt".tiit"tt'i't't

001334

TST3:

ScoPe

MOV

#3,8TESTN

;:SET TEST NUMBER IN APT MAIL BOX

JSR
JSR
JSR
CLR

PC.INITSS
PC .PREPKB
PC.INTBLD
RO

SINITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT
:LOAD INITIAL VALUES INTO TABLED
SINITIALIZE TABLEC INDEX T0 0

JSR

PC.SETTUP

:SET UP FOR LOOP ON ERROR

CIR6QCO RK6 DR

CZR6QC.P

952

014626

3955

95
958
959

MACY11 30A(1052)

09:50

105737
101
01

003133

1ST8
BNE
MOV
JSR
ADD
MOV
BR

TYPFNT
;SEE _IF RKO7
5
;BR _IF YES
TABLEC(RO) ,P.CYLN(RS) ;GET START OVRWRT CYL FROM TABLEC
PS.URT!LK
sWRITE THIS OVRWRT CYL BLK ON ALL SURF'S
#2,R0
s INCREMENT TABLEC POINTER
TABLEC(R0),P.CYLN(RS) ;GET START COMPAT CYL FROM TABLEC
$

1%:

MOV

PC,WRTBLK

2$:

MOV

OS-JUL-

000002

002927 023064

016065

002060

000002

014644

000002

006060

000002

016223
014
014

2700
gooozr
2003

000002
000030

146

026
064
882002
026

=%
2

014572
014576
14600
14
01461
014616
014626

964
945
969
94
948
949
3??

014652

01606
000412

6927 023064

3965
gggg

014670
014674
014676
014702
014706
014710
014716

004737
000736
004737
105737
001004
016065
000403

3968
3898

014720
014726

016065
004737

961

3963

022620
003133

JSR

000002

006060
023064

000002

3$:
5%:

PAGE 80

TABL7C(RO) ,P.CYLN(RS)

ADD

#2.R0

ADD
CMP
BGE

#2.R0
RO,#30
8s

JSR

8$:

006026

09:52

WRITE OVRWRT AND COMPAT CYL BLOCKS FOR CURRENT DRIVE

023000

TABL7C(RO) ,P.CYLN(RS)

PC,WRTBLK

JWRITE THIS COMPAT CYL BLK ON ALL SURF'S

s INCREMENT TABLEC POINTER
:SEE IF ON LAST CURRENT ZONE YET
:BR IF YES

JSR
BR
JSR
TSTB
BNE
MOV
BR

PC,ROTBLD
JROTATE TABLED SEVERAL SECTORS
131
JCONTINUE WRITING BLOCKS
PC,INTBLD
JRE=LOAD INITIAL VALUES INTO TABLED
TYPFMT
:SEE IF RKO7
3s
:BR IF YES
TABLEC(RO) ,P.CYLN(RS) :GET START OVRWRT CYL FROM TABLEC
5$

MOV
JSR

TABL7C(RO) ,P.CYLN(RS)
PC,WRTBLK
sWRITE THIS OVRWRT CYL BLK ON ALL SURF'S

;:tt'tt'ttt'Qt"'t't"'"Qt"t'tt"t".'t"t't..t"ttttl'.tt't'tt

gg;g

J*TEST &

DISMOUNTING OF TEST CARTRIDGE IN PASS 1

3976
3977
3978
3979
3980
3981
982
983
984
985
986
987
988

e
M
I
e
i
i
e
i
i
e
e
e
i

ggg

i
b i

”1
;99
993

014732
014734

000004
otzrgr

0000064

995
999

0147
31&75

ootrgr
004737

1140
3507“

998
999

014762
014766

997

02-JuL-80

000002

3973

996

CPT PROG

014742

014756

004737

1oso§7

004737
062737

8 2020

001334

THEN IT WALTS.

E;Qtt'.t"'.tt't't't'."t"i'.""'tt.'i.".ttt'."t"tt'!"t't't
TST4:
SCOPE
MOV
#4,8TESTN
;:SET TEST NUMBER IN APT MAIL BOX

JSR
JSR
JSR

3127

022450
000002

THE PROGRAM DIRECTS THE OPERATOR TO UNLOAD THE DRIVE CURRENTLY
UNDER TEST, AND TO REMOVE THE TEST PACK. THEN, THE PROGRAM
DOES ONE OF & THINGS :
(1) IF THERE IS ANOTHER DRIVE TO TEST ON THIS SUBSYSTEM, THE
PROGRAM JUMPS TO TEST 1 FOR THE NEXT DRIVE.
(2) IF THERE IS ONLY ONE SUBSYSTEM, (FROM 200 START), AND
IF PASS 1 HAS BEEN COMPLETED ON ALL DRIVES, THE PROGRAM STARTS
PASS 2 ON THE FIRST DRIVE, BY JUMPING TO TEST §5.
(3) IF THERE IS ANOTHER SUBSYSTEM TO PERFORM PASS 1 ON, THE PROGRAM
TELLS THE OPERATOR TO RESTART AT ADDRESS 204, AND THEN IT HALTS.
(4) IF THERE ARE NO MORE DRIVES TO TEST IN PASS 1 ON ANY
OTHER SUBSYSTEM, THE PROGRAM TELLS THE OPERATOR TO
RESTART AT ADDRESS 220 FOR PASS 2 ON THE NEXT SUBSYSTEM, AND

CLRB

005554

JSR
ADD

PC.SETTUP

:SET UP FOR LOOP ON ERROR

TSTING

:DON'T ALLOW TTY ESCAPE

PC.INITSS
PC .PREPKB
PC,DMCART
#2 .DRVPTR

;INITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT
:DIRECT OPERATOR TO DISMOUNT PACK
: INCREMENT DRIVE LIST POINTER

SEQ 0078

CZR6QCO RK6 oa PT PR
CZR6QC.P11
02-JuUL~4000
4002
4003
4004
4005
4006
4007

014774
O1
01500
015006
015012
015014
015020
015026

4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
28%?

015036
015040
015044
015052
015056
015060
015066
015072
015076
015104
015110
015112

4001

4008 015032

nAc111 30A(1052)

0127

005554

1 60

000001

005510

001102
014316
000001

010467

001
105037
000137
116037

104401

ooo1g
012737
105737
001007
112737
104401
000137
112737
104401
000000
000137

010420

000204
005512
003126
000062
010257
015116
000101
010475

oz-JUL-ao 09:52 PAGE 81
DISMOUNTING OF TEST CARTRIDGE IN PASS 1

4$:

5$:

MOV
TST
BEQ
CMPB
BNE
CLRB
JMP
MOVB

DRVPTR,RO
(RO)
;SEE IF ALL DONE WITH PASS 1 YET
2%
:BR IF DONE WITH PASS 1
1(RO),SUBSYS
:SEE IF DONE WITH THIS SUBSYS YET
48
:BR IF DONE WITH THIS SUBSYS
STSTNM
;CLEAR TEST NUMBER
TsT1
;00 PASS 1 ON NEXT onxve or SUBSYS
1(R0O),STR204+¢39." :PUT SUBSYS NAME INTO
M

HALT
JMP
MOV
TSTB
BNE
MOVB
TYPE
JMP
MOVB
TYPE
HALT
JMP

:HALT THE PROCESSOR SO THAT
204
i
OPERATOR CAN RESTART AT PROPER ADRS
#DRVLST,DRVPTR :RE=INIT DRIVE LIST POINTER
MDFLAG
:SEE IF 200 START
128
:BR IF NOT
#'2,SRPASS+18. :SET PASS NO. = 2 FOR PRINTOUT
,SRPASS
:TYPE "'STARTING PASS 2''
1875
;60 START PASS 2
#'A,STR220+39.
:PUT SUBSYS NAME INTO MSG
,STR220
:TYPE RESTART MSG FOR PASS 2 ON FIRST SUBSYS
:HALT PROCESSOR SO THAT OPERATOR CAN RESTART
220
3
AT THE PROPER ADRS

TYPE

68:
005554

8$:

010301
010544

128:

000220

4022
4023

,STR204

;TYPE RESTART MSG FOR PAss 1 ON NEXT SUBSYS

‘02‘

.S 2322222323233 2323 2322222223333 23222323232322332323233323323232333233333233323223]

28%2

s*TEST §

MOUNTING OF TEST CARTRIDGE FOR PASS 2

4027
4028
4029
4030
4031
4032
4033
283?

M
g
e
Je
.®
FE
;i
‘e

6036

:' t'tttttttttttt"'tQtt"t"Ottfi'tt.t...tt.'ttttttttt"'t!t"t"t

4037
4038
4039
4040
4041

015116
015120
015126
015132
015136

000004
012737
004737
004737
004737

000005
022020
021140
020744

2824

015150

004737

022066

4042

4045
4046

THE PROGRAM TYPES ''STARTING PASS 2''. THEN, THE OPERATOR
MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE HEADS,
AS DIRECTED BY THE PROGRAM. IT THEN CHECKS THIS DRIVE
FOR VALID STATUS, AND READS THE HEADER ON SECTOR 0, Tq
DETERMINE THE FORMAT. THE FORMAT IS STORED IN '?ORHAT'
ALSO, THE PROGRAM READS AND STORES THE BAD SECTOR FILES AND
IT TYPES THE DRIVE AND CARTRIDGE SERIAL NUMBERS (IF STARTED
AT ADDRESS 204 OR 220).

015142

112737 000062

001334

7STS:

003155

SCOPE
MOV
JSR
JSR
JSR

#5,8TESTN
PC,SETTUP
PC,INITSS
PC ,PREPKB

JSR

PC,ATCART

MOVB

#°2,PASSNO

::SET TEST NUMBER IN APT MAIL BOX
sSET UP FOR LOOP ON ERROR
sINITIALIZE DRIVER PARAMS AND SuUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT

SSET PASS NO. = 2

‘0‘7

.R 222223323223 22232223333233331332333233333333233333333333333333333333;

2823

+TEST 6

4050
4051
4052
4053
4054

.M
e
e
i
&

OVERWRITE TEST

THE PROGRAM PROCEEDS TO TEST THIS DRIVE'S OVERWRITE CAPABILITY.
FIRST, THE APPROPRIATE CYLINDERS IN TABLE E FOR THIS DRIVE
ARE OVERWRITTEN, ON EACH SURFACE. THE DATA USED IS A
REPETITION OF A SINGLE WORD OF THE PATTERN IN TABLE G,
DRIVE O USES WORD O, DRIVE 1 USES WORD 1, DRIVE 10 USES
WORD 10, ETC.

SEQ 0079

(ZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 82
CZR6QC.PN
02-JuL-80 09:50
16
OVERWRITE TEST

SEQ 0080

4056
4057

e
i

THEN, EACH CYLINDER OVERWRITTEN IS READ BACK BY THIS DRIVE
WITH THE FOLLOWING RANGE OF OFFSET VAsUES :
100, 200, 300,

4059

THE (+) 'AND (=) ‘DIRECTIONS.

4058

4060
4061

e
e

4062

4063
4064
4065
4066
4067

4070

4071

015154

015156
015164
015170
015174
015200
015206

000004

000006
022020
021140
020744
000001
003147

001334

015212
015220
015224
015230

112765
105065
004737
012703

000117
000002
030124
000007

000001

4085
4086
4087
4088

015246
015252
015254
015260

010065
006300
062700
011037

000002

4090
4091
4092
4093

015272
015300
015306
015312

052765
012765
105737
001403

4095
4096
4097
4098

015322
o1ss§6
015332
015340

4083 81;;34
4084
015242

4089 015264

015314

11;783 88?1 3
1137
154

012765

004737
004737
063765
005303

006512
053330

053330

100000
137000
003134

003127

000001

112737
012700

000001
006612

4106

015

osog;

007112

015393
015372
015376
015402
o1saog
015412

otgros
1N 702
01093
004737
004737
004737

000007
003154
000002
02;6 0
017250
017614

4105 015364

4106
4107
4108
4109
4110
4111

103774

SCOPE

MOV
#6,8TESTN
;:SET TEST NUMBER IN APT MAIL BOX
JSR
PC,SETTUP
:SET UP FOR LOOP ON ERROR
JSR
PC,INITSS
:INITIALIZE DRIVER PARAMS AND SUB=SYS
JSR
PC,PREPKB
:PREPARE FOR POSSIBLE KBD INPUT
MOVB
#1,TSTING
:ALLOW TTY ESCAPE
CLRB
DIF100
SCLEAR *'CYL DIF = 100/200'* FLAG
;:OVERWRITE THE APPROPRIATE CYLS FOR THIS DRIVE
MOVB
#SEEK,P.CMND(RS) ;SET SEEK COMMAND
CLRB
P.CYLN(RS)
;SET CYL = 0
JSR
PC,DRVCAL
:SEEK TO CYL 0
MOV
7 ,R3
SET COUNTER = 7

MOVEB
MOVB

RO,P.CYLN(RS)
RO
#TABLEG,RO
(RO) , RWBUF

BIS
MOV
TSTB
BEQ

#OTBAIL,P.PRST(RS) ;SET BUS ADRS INCREMENT INHIBIT
#-16896. ,P.WC(RS) ;SET 22-SECTOR WORD COUNT
FORMAT
:DETERMINE THE FORMAT
63
:BR IF 22 SECTORS

MOV

6$:

000002

003143

#WRDATA,P.CMND(RS) :SET WRITE DATA COMMAND
LOGDRV,RO
:GET LOGICAL DRIVE NUMBER

MOV
ASL
ADD
MOV

MOV
JSR
JSR
ADD
DEC

BNE

015344
015352

015323 oosozg

T§16:

000014
000012

142000 000012

027456
027546
024370

4101
4102

410

DIRECTION, OVER ALL CYLINDERS TESTED.

000010

4099 015342 001367

4100

DECREMENTED. THMEN, THE TRANSFER IS CONTINUED AT THE NEXT SECTOR,
WITH THAT OFFSET VALUE. THE READS ARE DONE WITH ALL OF THE ABOVE
OFFSETS APPLIED, AND A SEPARATE SCORE FOR EACH DRIVE IS KEPT,
WHILE THE CURRENT DRIVE IS PERFORMING THE OVERWRITES.
FOR EACH TRACK (0,1,2), SCORES ARE AVERAGED FOR EACH OFFSET

R LL e
R
e Ty

012737
004737
004737
004737
112737
105037

409

BEEN CORRECTLY OVERWRITTEN, AND A SCORE FOR THAT DRIVE IS

4072
4073
40764
4075
4076
4077
4078
4079
4080
4081
4082

THE PROGRAM SCANS FOR DATA CHECK ERRORS DURING THIS READ, AND IF
ONE OCCURS, THE PROGRAM DETERMINES WHICH DRIVE'S DATA HAD NOT

e
e
*
e
e

zggg

400,500,600, 700,800,900,1000,1100,1200 MICRO-IN., IN BOTH

;SET
:GET
:GET
:PUT

STARTING OVERWRITE CYL FOR THIS DRIVE
DATA PATTERN INDEX
PATTERN WORD ADRS
DATA WORD INTO BUFFER

#RWBUF ,P.BALO(RS) ;SET BUS ADDRESS

#-15360. ,P.WC(RS) ;SET 20-SECTOR WORD COUNT

PC,SVPRMS
:SAVE PARAMETERS OF TRANSFER
PC.TRNSFR
:WRITE THE DATA
HOLD3,P.CYLN(RS) ;INCR THE CYL NO.
R3
:SEE IF DONE WITH ALL CYLS YET

:BR IF NOT YET

MOVB
MOV

#1,TSTTYP
#NOSCRO, RO

:SET INDICATOR FOR OVRWRT TEST
:GET STARTING ADRS OF OVRWRT SCORES

CMP

RO,#NOSCRO+192. :SEE IF ALL SCORES CLEARED YET

MOV
MOVB
MOV
JSR
JSR
JSR

#7,R3
LOGDRV,RO
RO,P.CYLN(RS)
PC, INTBLD
PC,REDOF S
PC,ADSCOR

;READ OVERWRITE CYLS WITH RANGE OF OFFSETS

108:

CLR

BLO
118:
128:

(RO) ¢+

10§

:INIT SCORE T0O 0

:BR IF NOT DONE YET

:SET CYL CNTR = 7
:GET LOGICAL DRIVE NO.
:GET START OVRWRT CYL FOR THIS DRIVE
:INIT TABLED
:D0 READS WITH OFFSETS ON THIS CYL
:ADD SCRATCH SCORES TO SUM

Sn——

CZIR6QCO RK6 DR

CZR6QC.P1N

CPT PROG MACY11 30A(1052)

02-JuL-80 09:50

4112

015416

063765

411&
4115
4116

015432

005303

6113

4117

4118
4119

015424

015434
015440

015444

015446
015450

2}%? 015454

1127 7

004737
020327

003360

001755
004737

105037

024370

000001

00000

:INCR CYL NO.

JSR
CMP

PC,ROTBLD
RS #1

*ROTATE TABLED FOR NEXT CURRENT ZONE
:SEE IF ON LAST ZONE YET

CLRB

‘.12‘

HOLD3,P.CYLN(RS)

SEQ 0081

sSET "'CYL DIF = 100/200"" FLAG

BEQ
JSR

003143

#1,01F100

BGT

017774

PAGE 83

MOVB
DEC

023000
000001

09:52

OVERWRITE TEST
ADD

00314

4122
4123

12§

118
PC,AVSCOR

TSTTYP

:DECR CYL CNTR

:BR IF NOT YET

:BR IF ON LAST CYL
:COMPUTE AVERAGE OVERWRITE SCORES

*CLEAR OVRWRT TEST INDICATOR

:.'Ql""Q.tt"t"""""Q'Q"'Q"'QQQ.t.t'.Q"t"""""'t."'Q

2}%2

SRTEST 7

DRIVE SELF=TEST

4127
4128
4129
4130
4131

i
i
i
i
i

4133
4134
4135
4136
4137
4138
4139

e
i
i
i
i
i
i

4132

2}2g

‘1‘2

02-JuL-80

WITH THE FOLLOWING OFFSETS APPLIED : 100,200,300,400,500,600

FOR THE COMPATIBILITY DATA READS WHICH ARE TO FOLLOW.

015460
015462
015470
015474
015500
015504
015510
015514
015520
015524
015530
015534
015540
015544
015550

000004
012737
004737
004737
004737
005037
005037
005037
005037
005037
005037
105037
012703
113700
oogroo

000007
022020
021140
020744
007412
007414
007416
007420
007422
007424
003147
000006
003154
oooogo

4159

015562

004737

024460

4163
4164
4165
4166

015
81561
015616
015622

105037
185037
105037
105037

0074
88745
00747
oorstg
00753

O1 7gs

]

700,800,900, 1000,1100,1200 MICRO-IN., IN (+) AND (=) DIRECTIONS.
THE PROGRAM SCANS FOR DATA DHECK ERRORS DURING EACH READ, AND IT
COMPUTES A SCORE WHICH 1S PROPORTIONAL TO THE FAILING OFFSET
MAGNITUDE .
THEN, THE SCORES FOR ALL SECTORS READ ARE AVERAGED,
TO COME UP WITH A DRIVE SELF=TEST SCORE FOR EACH OFFSET
DIRECTION, FOR EACH SURFACE.
THIS SCORE IS SAVED FOR LATER USE, TO BECOME THE STANDARD

E :tttfititt.".""'t""""'t"tl"tt.tt't't""t"l"."t"""

4143
4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157

4158 015554

THE PROGRAM EVALUATES THE DRIVE'S ABILITY TO WRITE AND READ
ITS OWN DATA, AT VARIOUS ANGULAR POSITIONS ON THE PACK. FIRST,
SECTORS 4,11.16, AND 23 OF THE APPROPRIATE CYLINDERS SHOWN
IN TABLEF FOR THIS DRIVE ARE WRITTEN WITH THE DATA PATTERN
SHOWN IN TABLEB, FOR ALL SURFACES. THEN, THE SECTORS ARE READ

001334

7S17:

053330 000010

SCOPE
MOV
JSR
JSR
JSR
CLR
CLR
CLR
CLR
CLR
CLR
CLRB
MOV
MOVB
ADD

#7,8TESTN
PC.SETTUP
PC.INITSS
PC.PREPKB
NSSCRO
NSSCR1
NSSCR2
PSSCRO
PSSCR1
PSSCR2
DIF100
#6,R3
LOGDRV,RO
#60,R0

;:SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR
*INITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT
SINIT SELF-TEST SCORES T0 0

JSR

PC goosec

:LOAD R/W BUF WITH DATA PATTERN

NSCORO
NSCOR1
NSCOR?2
PSCORO

TINIT SCRATCH SCORES TO 0

MOV

4160 015566
012765 177400 000012
4161 015574 112765 000004 000004 3$:
4162 015602 18 ogs ggoogs
48:

MOV
MOVB
CLRB

4167

CLRB

015626

105037

CLRB
CLRB
CLRB
CLRB

.
5
:CLEAR "'CYL DIF = 100/200'* FLAG
:SET CYL COUNTER = 6
:GET LOGICAL DRIVE NO.
:COMPUTE STARTING CYL NO.

#RVBUF ,P.BALO(RS) ;SET BUS ADRS

#-356.,P . WC(RS) :SET WORD COUNT FOR 1 SECTOR
#4,P.SECT(RS)
:SET SECTOR = 4
P.TRCK(RS)
:SET TRACK = 0

PSCOR1

CZIR6QCO RK6 DR CPT PROG MACY!N 30A(1052) 02-JUL-80 09:52 PAGE BAE

CZR6QC.P11
4168
6169
6170
L7

02-JUL-80 09:50

000001

PSCOR2
TSTTYP
:CLEAR OFFSET TEST INDICATOR
P.CYLN(RS)
SSET CYL = 0
#SEEK,P.CMND(RS)
;SET seex COMMAND

L1746 015666 112765 00015 000001
4175 015672 004737 030124

MOVB
JSR

cuioAtA P.CAND(RS) :SET WRITE oara COMMAND
PC,DRVCAL
.unire A SECTO

015654
015660

105037
105037
oosoeg
11zrg

004737
010065

00755
314
o;
0117

SEQ 0082

CLRB
CLRB
CLR
MOVB

4172
4173

015632
0156
01564
015646

DRIVE SELF-TEST

030124
00000

6%:

6176
6177

015676
015704

112737
004737

000003
017250

003143

179
4180
4181
4182
4183
4184
4185
4186
4187

015714
015722
015726
015730
015736
015744
015746
015752
015754

126527
101745
004737
062765
126527
101716
063700
005303
001307

000005

000002

017614
000005
000004

000004
000023

2}38

015762

105037

4178 015710

4188

015756

105265

004737

000005

JSR
MOV

pc DRVCAL
P.CYLNC(RS)

;PERFORM SEEK TO 0
:SET CURR ENT chxnoen NUMBER

#3,TSTTYP
PC,REDOFS

:SET INDICATOR FOR SELF=-TEST
:READ SECTOR WITH RANGE OF OFFSETS

CMPB
BLOS
JSR
ADD
CMPB
BLOS
ADD
DEC
BNE

P.TRCK(RS) ,#2
6%
PC,ADSCOR
#5,P.SECT(RS)
P.SECT(RS),#23
48
HOLD3, RO
R3
3s

CLRB

TSTTYP

SEE IF ALL TRACKS DONE ON THIS CYL
:BR IF NOT YET
:ADD SCRATCH SCORES TO SUMS
;INCREMENT SECTOR BY 5
:SEE IF ALL SECTORS DONE ON THIS TRACK
:BR IF NOT YET
SINCR CYL NO. BY 100/200
;DECR CYL CNTR
;BR IF NOT DONE WITH ALL CYLS YET
:COMPUTE AVG SELF-TEST SCORES

MOVB
JSR

INCB

024370
017774

JSR

003143

419N
6192

4193

2}3@

;*TEST 10

P TRCK(RS)

PC,AVSCOR

R AR

R R

s INCREMENT TRACK

;CLEAR OVRWRT TEST INDICATOR

R R R R R R R R AR RN AR RN

RRROR RS

COMPATIBILITY DATA READ TEST

4196
4197
4198
4199

e
.
.
:®

4202

4200
4201

e
i

4£203

L2064

4205

4207
4208
4209
4210
&211
421
4213
4214
6215

25};
‘219

4220
4221
6222
422%

FOR THAT DRIVE 1S DECREMENTED. THEN,

THE TRANSFER IS CONTINUED

AT THE NEXT SECTOR, WITH THAT OFFSEf VALUE. THE READS ARE

INVOLVED IN A SITUATION IN WHICH A PARTICULAR DRIVE HAS

]

000004
012737
004737
004737

THE PROGRAM DETERMINES

e
015766
015770
015776
016002

IN (0) AND ( ) DlRECTIONS. f §ROGRAH SCANS FOR READ ERRORS

DURING EACH READ, AND IF ONE OCCURS

WHICH DRIVE'S DATA WAS BEING READ Af THAT INSTANT AND A SCORE

H
ie
e
i
.t
e
i
i
ot

4216

SHOWN IN TABLE C IS READ WITH THE FOLLOWING OFFSET VALUES :
100, 200,300,400, 500,600,700,800,900,1000,1100,1200 MICRO-IN.,

4206

HAVING ESTABLISHED A SELF=TEST SCORE FOR THIS DRIVE, THE
PROGRAM PROCEEDS TO PERFORM THE COMPATIBILITY DATA READS
OF THE PATTERNS WRITTEN BY ALL THE DRIVES IN EACH CYLINDER
BLOCK (ON EACH SURFACE). EACH COMPATIBILITY CYLINDER BLOCK

DONE WITH ALL OF THE OFFSETS APPLIED, AND A SEPARATE SCORE
FOR EACH DRIVE IS KEPT, WHILE THE CURRENT DRIVE IS READING
THE COMPATIBILITY DATA. THEN, EACH SCORE IS APPROPRIATELY
ADJUSTED TO REFLECT THE SELF=TEST SCORE FOR THE CURRENT DRIVE
ON THAT SURFACE. THE SCORES ARE THEN AVERAGED OVER ALL CYLINDER
BLOCKS. EACH SCORE IS PROPORTIONAL TO THE CAPABILITY OF THE
CURRENT DRIVE TO SUCCESSFULLY READ THE DATA WRITTEN BY ONE OF
THE OTHER DRIVES, AND SCORES ARE COMPUTED SEPARATELY FOR EACH
SURFACE (TRACK). THUS, THE SCORES REVEAL WHICH DRIVES ARE

DIFFICULTY IN READING THE DATA OF ONE OR SEVERAL OTHER DRIVES.

:2B 2222222223232

000010
022020
021140

001334

7ST10:

SCOPE
MOV
JSR
JSR

#10,$TESTN
PC,SETTUP
PC,INITSS

333333333333333333333333333333333331
::SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR
JINITIALIZE DRIVER PARAMS AND SUB=-SYS

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-80 09:52 PAGE 85
CIR6QC.P11
02-JUL-80 09:50
110
COMPATIBILITY DATA READ TEST
asza
4 %s

4227
4228
azgg
4%
4231
4232
4233

4234

4235
4236

4237

4238

4239

4240
4241
4262
424
424k
4245
4246
&247
4268
4249
4250
4251

6252
4253
4254
4255

4256
4257
4258
4259
4260
4261

4262

4263
4264
4265

0
01601

004737
11;7 7

020744
ooooo;

016024
016030
016032
016036
016040
016046
016050

01§700
005020
030037
103774
012703
004737
013701

007112

016062
016070

052765
o1zrgs

016020

016054

016076

105037

01%765

00314

022620
024372

053330

100000
137000

105737

003134

012765

142000

001403

016112
016116
016122
o1o1§o
016132
016136
016140
016142
016146
016152
016160
816162

012700
010165
004737
004737
oos;os
005300
001370
004737
063701
112737
005303
882;;;

016170

105037

017774
003143

0161764
016200
016206
016210

012701
012703
012700
012737

007112
007412
005512
000014

016216
016222

162337
010104

001304

01
gs
01
016%36

001417
013737
061437

16164

016224

000020.
000002~
017250
017614
000002
023000
024370
000001

000010

4268

016250

016 zs

4269 01

101403

012737

108:

003147

013724

4270 otoget 000757
6271
4272

016266
016272

4273 016276
4274
4275
4276

4277
4278
4279

016300
016306
016310
016314

062701
050127

101742

012701
012703
012700
012737

001306

001304

148:

001306

000040
007212
007252
007420
005512
000014

#NCSCRO, RO
(RO) +
RO, #NCSCRO+192.
31
#6,R3
PC.INTBLD
HOLD4 ,R1

:GET ADRS OF COMPAT READ SCORES
:INIT A SCORE T0 0
:SEE IF ALL SCORES CLEARED YET
:BR IF NOT YET
:SET CYL BLK CNTR = 6
(INIT TABLE D
*SET START CYL = 60/160

BIS
MOV

#DTBALI,P.PRST(RS) ;SET BUS ADRS INCR INMIBIT
#-16896. ,P.WC(RS) ;SET 22-SECTOR WORD COUNT

MOV

MOV
MOV
JSR
JSR
INC
DEC
BNE
JSR
ADD
MOVB
DEC
BNE

DIF100

:CLEAR "'CYL DIF = 100/200'" FLAG

#RWBUF ,P.BALO(RS) ;SET BUS ADRS

FORMAT
10$

;TEST THE FORMAT

‘BR IF 22 SECTORS

#-15360.,P.WC(RS) ;SET 20-SECTOR WORD COUNT
6. ,R0
R1,P.CYLN(RS)
PC.REDOFS
PC.ADSCOR
P.CYLN(RS)
RO
128
PC,ROTBLD
HOLD3,R1
#1.D1F100
R3
108

;INIT CYL CNTR = 16.
+SET CYL NO.
:D0 READS WITH OFSTS ON THIS CYL
:ADD SCRATCH SCORES TO SUM
SINCR CYL NO.
*SEE IF DONE WITH THIS CYL BLK
:BR IF NOT YET
sROTATE TABLED FOR NEXT CURRENT ZONE
SINCR CYL BY 100/200
SSET "'CYL DIF = 100" FLAG
:SEE IF DONE WITH ALL CYL BLKS
‘BR IF NOT YET

MOV
MOV
MOV

#NSSCRO.R3
#DRVLST,RO
$12..$THP11

suB
MOV

(R3)+,$THP11
R1,R4

:SET SELF-TEST SCORE POINTER
:SET DRIVE LIST POINTER
:COMPUTE DIFFERENCE OF 12 (DEC) AND
3
SELF=TEST SCORE FOR THIS TRACK

BEQ
MOV
ADD

188
$TMP11,8TMP12
(R4) ,$TMP12

BLOS

168

JSR
PC,AVSCOR
:COMPUTE AVERAGES OF READ SCORES
CLRB
TSTTYP
:CLEAR OFST TEST INDICATOR
;ADJUST COMPAT READ SCORES (= OFSTS) BY SELF=TEST SCORES
MOV
#NCSCRO,R1
;SET COMPAT SCORE POINTER

158:

000014

MOV
CLR
CMP
BLO
MOV
JSR
MOV

TSTB

4266 016242 023727 001306 000014
4267

;PREPARE FOR POSSIBLE KBD INPUT
tSET INDIC FOR READ TEST

BEQ

128:

005720

001304
001306

PC,PREPKB
#2.TSTTYP

MOV

000014
000012

000012

JSR
MOVB

CLRB

68:

007412

016102

016106

003143

TST

CMP

168:
188:

(RO) +

sTHPi2,,2.

MOV

$12.,8THP12

B8R

MOV
ADD
CMP

BLOS

$TMP12,(R4)+

;GET READ SCORE POINTER IN Ré4

:SEE IF A DRIVE LISTED MERE

:BR IF NOT
:PUT DIFFERENCE INTO STMP12
:ADD DIFF TO READ SCORE

;gee IF 12 EXCEEDED
:BR IF NOT

:SET SCORE = 12.

:PUT BACK ADJUSTED SCORE

:BR TO CONTINUE

#32. .01
:POINT TO 3CORES FOR NEXT TRACK
R1,#NCSCRO+64. ;SEE IF SCORE TABLE EXCEEDED

14§

:BR IF NOT YET

#DRVLST,RO
$2.,8THP1Y

:SET DRIVE LIST POINTER
:COMPUTE DIFFERENCE OF 12 (DEC) AND
i
SELF=TEST SCORE FOR THIS TRACK

:ADJUST COMPAT READ SCORES (+ OFSTS) BY SELF-TEST SCORES
MOV
#PCSCRO, R1
:SET COMPAT SCORE POINTER
MOV
#PSSCRO.R3
:SET SELF-TEST SCORE POINTER

001304

248:

MOV
MOV

SEQ 0083

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 86
CIR6QC.P11
02-JuL-80 09:50
110
COMPATIBILITY DATA READ TEST
4280
4281

016322
016

162337
010104

6%8
4284

o1sg
016

001417
013737

4282

4285
4286

4287
4288

4289

4290
4291
4292

016

016§22
016346

016356
016356

016364

016370
016372
016376

2532 016402

001304

005720

061437
023727
101403
o1§737

01372¢

000757
062701
020127

101742

258:
001304

001306
001306
000014

001306

000014
001306

000040
007352

268:
288:

suB
MOV

(R3)+,$THP11
R1,R4

:GET READ SCORE POINTER IN Ré

BEQ
MOV

288
$STMP11,8TMP12

‘BR IF NOT
:PUT DIFFERENCE INTO $TMP12

TST

(RO +

ADD
CMP

(R4),$TMP12
sTmpi2, #2.

MOV

$TMPI2,(R4)+

BLOS
MOV
BR
ADD
CMP

BLOS

4295
4296

SEQ 0084

26%
#12.,$TP12

:SEE IF A DRIVE LISTED MERE
:ADD DIFF TO READ SCORE
:SEE IF 12 EXCEEDED
:BR IF NOT
:SET SCORE = 12.

:PUT BACK ADJUSTED SCORE

25%
:BR TO CONTINUE
32, ./
:POINT TO SCORES FOR NEXT TRACK
R1,#PCSCRO+64. ;SEE IF SCORE TABLE EXCEEDED

248

:BR IF NOT YET

‘297

;;ttt'Qt't""ttttQ"'t""t"t"'QQQCl"'tt"'t"'t.'tt.it.'t't'

2%33

JTEST 1

4300

4302

4308

2;};

??032:?SYELLS THE OPERATOR TO RESTART AT ADDRESS 220, AND THEN

(4) IF THERE ARE NO MORE DRIVES TO TEST ON ANY OTHER SUBSYS, THE

.'t

4301

4303
4304
4305
4306
4307

4309
4310

2;};

4316

4317
4318
4319
4320

4321
4322

432

4324
4325
432
4327

4328
‘353
43
4331
433;

4333
433,

4335

DRIVE ARE CONVERTED AND TYPED. THEN,

e
e
e
v
e

THE TEST PACK. THEN, THE PROGRAM DOES 1 OF & THINGS :
(1) IF THERE IS ANOTHER DRIVE TO TEST ON THIS SUBSYS, THE
PROGRAM JUMPS TO TEST 5 FOR THE NEXT DRIVE.
(2) IF THERE IS ONLY ONE SUBSYS (FROM 200 START), AND IF
PASS 2 HAS BEEN COMPLETED ON ALL DRIVES, THE ENTIRE TESTING AND

.
i

COMPLETION MESSAGE, AND THEN IT RESTARTS AT ADRS 200.
(3) IF THERE 1S ANOTHER SUBSYS TO PERFORM PASS 2 ON, THE

e
b i

016404
016406
016414
016420

016453
016430
016436
016442
016663
016452

016456
815434
16470
016474
16500

000004
012737
004737
004737

004737
112737

013700
112037
111037
106401

012737
012700
01 7g1
110037
sazrga

012103

THE OPERATOR IS

DIRECTED TO UNLOAD THE DRIVE CURRENTLY UNDER TEST, AND TO REMOVE

REPORTING HAVE BEEN COMPLETED, AND THE ‘ROGRAH TYPES A
o

PROGRAM TYPES A COMPLETION MESSAGE AND THEN IT HALTS.

E;tttt'ttt'ltttttttittttt'tt"tttttttttttt'tt.tttttttitttttttt'tt

000011
022020
021140

020744
000001

005554
010713
01071;
01066

006612
000060
005513
01117
801306

016504
737 025542
016510 104401 011174

016514

THE OVERWRITE AND COMPATIBILITY DATA READ TEST SCORES FOR THIS

4313

TYPE TEST SCORES, DISMOUNT PACK, IN PASS 2

001334

003127

7ST11:

SCOPE
MOV
JSR
JSR

JSR
MOVE

#11,8TESTN
PC,SETTUP
PC.INITSS

PC.PREPKB
#1.TSTING

:CONVERT AND TYPE TEST SCORES

001306
5$:

68:

::SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR
SINITIALIZE DRIVER PARAMS AND SUB-SYS

:PREPARE FOR POSSIBLE KBD INPUT
SALLOW TTY ESCAPE

MOV
MOVB
MOVB
TYPE

DRVPTR,RO
:GET DRIVE LIST POINTER
(RO)+,RESLTS+20. ;GET NO. OF THIS DRIVE
(RO),RESLTS*19.
,RESLTS
;TYPE TEST RESULT HEADINGS

JSR
TYPE

PC,CTLOUT
. TRKBUF

MOV
MOV
MOV
MOVB
MOV
MOV

#NOSCRO,$TMP12
#'0,R0
#ORVLST,R1
RO, TRKBUF +1
$TAP12,R4

:GET POINTER TO OVRWRT SCORES
SINIT TRACK NO. TO 0
:GET DRIVE LIST POINTER
:SET TRACK NO. FOR PRINTOUT
:GET SCORE POINTER

(R1)+,R3

*GET A DRIVE NAME

*CHECK FOR TTY ESCAPE RQST
STYPE TRACK (MEAD) NUMBER

CZR6QCO RK6 DR CPT PROG MC;&‘I 30A(1052)
CZR6QC.P11
02-JuL-80 09
4336

016516

020377

167032

16526

104401

011205

110337
00030
110337
104401
005037
005037
010437

011202

01§737

000004

‘3§3 8165 S 001003
4339

016530

4340
4341
4342
4343
4364
4345
4366

016532
016536
016540
016544
016550
016554
016560

4348

016570

4347

016564

000407

012437

8s:

011201
011200
005212
005214
001310

005212

108:

001304

4349 016576 023727 005212 000012

4350
4351
4352
4353
4354

016604
016606
016612
016620
016622

103002
104401
023727
101003
104401

4356

016630

106401

012117

4358

016640

004737

043162

4360
4361

016650
0166564

104401
062737

011213
000140

885 37
001340
104401
005711
001277
104401
005200
062737

001304

4355 0166%8 000402

012120
005212

012746 005212

4359 016646

004737 043356

016662

4363
4364
4365
4366
4367
4
4369
4370

016670
016674
016676
016702
016704
016706
016712
016714

4372
&37
4374
4375

016726

4371

016722

017737

020027

101660

162422

148:

168:

001310

005212

000040

000062

020232
005554

4377

016744

111037

o11§61

4379
4380
4381
asag
438
438,

016754
016762
016770
016774
319553
O1

013737
012737
104401
104401

007426
o111o§
01125

017010

17
17026
170

7
7
7

001306

005212
016776

017040

SELF

fos

:TYPE "SELF"

: CONT INUE

MOVB
SWAB
MOVBE
TYPE
CLR
CLR
MOV

R3,DRVBUF+2
R
R3,DRVBUF+1
,DRVBUF
BUFFO
BUFFO0+2
R4 ,$THP13

MOV

#4,8THP11

(R4)+,BUFFO

CMP

BUFFO,#10.

B8R

168

BHIS
TYPE
CMP
BH]
TYPE
TYPE

128
,SPACE1
BUFFO,#7
148
PROMPT
,SPACE2

MOV

#BUFFO,-(SP)

JSR

PC.a#SSUPRS

JSR

PC,a#$082D

:BR IF

:GET DRIVE NO.
;GET SUBSYS NAME
:TYPE NO. OF DRIVE READ
SCLEAR TTY CHAR BUF
;GET SCORE POINTER

:PUT AN OVRWRT SCORE INTO BUF
:SET COUNTER = &

:SEE IF SCORE < 10.
:BR IF NOT
STYPE 1 SPACE
:SEE IF SCORE > 7
:BR IF YES
STYPE "'«

connnus

:TYPE 2 SPACES

:GET BUF ADRS ON STACK
:CONVERT SCORE TO DEC.

STYPE IT

TYPE
ADD

,TAB
#96.,8TMP13

:TYPE A TAB

DEC
BNE
TYPE
TST
BNE
TYPE
INC
ADD

$TMP1
18
,SCRLF
(R1)
6%
,SCRLF
RO
032. ($TMP12

;DECREMENT SCORE COUNTER
‘BR IF READ SCORE SHOULD BE TYPED
STYPE <CR>, <LR>
sSEE IF ALL SCORES TYPED FOR THIS TRACK
:BR IF NOT
STYPE <CR>, .LF>
:INCR TRACK NO.
:INCREMENT SCORE POINTER FOR NEXT TRACK

CMP

208:
228

12 49

;SEE IF 1t IS CURRENT DRIVE

TYPE

aSTMP13,BUFFO

RO, #°2

MOVB

(RO)+,BADDRV+7

CLR

sTHPT1

MOVEB

4385 0170064 00473
017816

R3,3DRVPTR

:PUT NEXT SCORE INTD BUFFER

:SEE IF ALL TRACKS TYPED YET

BLOS
5%
:BR IF NOT YET
;COMPUTE, CONVERT, AND TYPE TEST AVERAGES (OVER ALL SURFACES)
JSR
PC, TRKAVG
;GET AVGS OVER ALL TRKS
nov
DRVPTR,RO
:PUT DRIVE NAME INTO BUF

112037 011262

4378 016750 oosogr 001304

CMP

MOV

001325

004737
013700

016740

12%:

001325

016730
016734

4376

000007

118:

SEQ 0085

BNE

MOV

012140

4357 016634

4362

02 JUL-80 09:52 PAGE 87
TYPE TEST SCORES, DISMOUNT PACK, IN PASS 2

MOV
MOV
TYPE
TYPE
WORD
MOV

JSR

JSR
005212
016776

TYPE

MOV
MOV
COM

BNE

(RO),BADDRV+6

OVRAVG,BUFFO
#OAVERG, 228
,BADDRV
O
#BUFFO,-(SP)

PC,a#s0B82D

PC.3#SSUPRS

SCRLF

COMAVG,BUFFO
oaaveae 22%
$THP11

208

;CLEAR SCORE INDICATOR
:GET OVRWRT AVG SCORE

;TYPE "DRIVE Xxx'
STYPE WHICH KIND OF AVERAGE
:PUT POINTER TO AVG ON STACK

:CONVERT TO DECIMAL
STYPE IT

STYPE <CR>, <LF>

:GET READ AVG SCORE
;COMPLEMENT SCORE INDIC

:BR TO TYPE READ SCORE

CIR6QCO RK6 DR CPT PROG MACY1 30A(1052)
CZR6QC.PN
02-JuL-80 09:50

zSgg

017042

104401

001325

4396
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4608
4409
4610
4411
4612
4613
4614
4615

017046
01705
017056
017
017070
017072
017074
017102
017104
017112
017116
017126
017130
017132
017136
017142
017150
017154
017156
017162
017164

105037
737
062737
013700
005710
0016%1
126037
001005
112737
000137
116037
104401

31%7
022450
000002
005554

000137
104401
012737
105737
00100
000137
000000
000137

220
011140
005512
003126

TYPE TEST SCORES, DISMOUNT PACK,

TYPE

,SCRL

s TYPE <CR>,<LF>

CLRB
JSR

TSTING
PC.DMCART

sDON'T ALLOW TTY ESCAPE

(RO)
28$

;SEE IF ALL DONE WITH PASS 2 YET

248

:BR IF DONE WITH THIS SUBSYS

;:DISMOUNT PACK ON TNIS DRIVE
005554

000001

005510

000004
015116
000001
010475

001102
010544

ADD

MoV
TST

BEQ

CMPB
BNE

24$:

26$:
005554

000200
000204

28$:

IN PASS 2

ggéggxP;s

1(RO),SUBSYS

;:DIRECT OPERATOR TO DISMOUNT PACK

: INCREMENT DRIVE LIST POINTER

:BR IF DONE WITH PASS 2

:SEE IF DONE WITH THIS SUBSYS YET

Move

#4,$TSTNM

Move
TYPE
HALT

1(R0O),STR220+39. :PUT SUBSYS NAME INTO MSG

JMP

TYPE
MoV
1STB
BNE

JMP

138

,STR220

220
JENDTST

#DRVLST,DRVPTR

MDF LAG
308

200

308:

HALT
JMP

.SBTTL

END OF PASS ROUTINE

204

:SET TEST NO. = &

:DO PASS 2 ON NEXT DRIVE OF SUBSYS

;TYPE RESTRT MSG FOR PASS 2

‘HALT THE PROCESSOR SO THAT OPERATOR

:
CAN RESTART AT PROPER ADRS
STYPE "¢« END OF TESTING #e¢''
:RE-INIT DRIVE Lxsr POINTER

:SEE IF 200 START
:BR IF NOT

:RESTART AT ADRS 200
‘HALT THE PROCESSOR

‘RESTART AT ADRS 204

s*INCREMENT THE PASS NUMBER (SPASS)
s*IF THERES A MONITOR GO TO IT
;*1F THERE ISN'T JUMP TO 200

4631
4632
4433
34
4435
4636
4437
4438

000004
005037
005237
042737
005327
000001
003013
012737
000001
017212
013700
001405
000005

4640
L64

017
017%60

000240
000240

4442
4443
4444

PAGE 88

SRR RARRRRRRNERRCRRACERRRRCTRRRANARRRARAARRRARARRRRARARRRRRRER

017170
017170
017172
017176
017202
017210
017212
017214
017518
017220
017222
017226
017230
017232

44639

09:52

817 g:

017242
017244
017244

$EOP:

001102
001336
100000

BGT

$ENDCT:

000042

004710

$GET42:
$ENDAD:

000240

000137

001336

SCOPE
CLR
INC
BIC
DEC
$SEOPCT: .WORD

000200

$DOAGN:

MOV
.WORD
S$EOPCT
MOV
BEQ
RESET
JSR
NOP
NOP
NOP

JMP

STSTNH
$PA
0100000 $PASS

:+ZERO THE TEST NUMBER
;s INCREMENT THE PASS NUMBER
::Egg;l ALLOW A NEG. NUMBER

$0 OAGN

%PC)OA(PC)+

ssYES
: sRESTORE COUNTER

a#42,R0
$DOAGN

:sGET MONITOR ADDRESS
:sBRANCH IF NO MONITOR

PC, (RO)

22G0 TO MONITOR

dfl

4416
L7
4418
4419
4420
4621
4622
4423
Lads
4425
4426
4427
4628
4429
4430

02-JUL-80

:sCLEAR THE WORLD

s sSAVE ROOM
;:FOR
ssACTYY

8#200

: sRETURN

SEQ 0086

CZIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 89
CZRrR6QC.PN
02-JuL-80 09:50
END OF PASS ROUTINE
R

SEQ 0087

'REDOFS = READ DATA WITH RANGE OF OFFSETS
:*THIS SUBROUTINE PERFORMS READS WITH OFFSETS LISTED IN OFSTBL.

;*THE OFFSETS ARE APPLIED MINIMUM TO MAXIMUM, IN BOTH DIRECTIONS,
s*UNTIL THERE IS NO FAILURE. EACH TIME A READ ERROR OCCURS

:*THE APPROPRIATE SCORE FOR THE DRIVE INVOLVED IS INCREMENTED NO FURTHER
:*(IN THE SCRATCH SCORE TABLE) « EACH READ IS DONE TO A PACK
:*AREA, WHOSE ADDRESS IS IN THE PARAMETER BLOCK ON ENTRY.
A

A AAA

AR A

R A

REDOFS: SAVREG
4459

017252

122737

000003

4461
4662
4463
222;

017%62
017
017270
017274

012700
105020
020027
103774

007432

4466

017276

112765

000117

000001

024374
030124
024374
003147
030124
003156
14
204
003157
000003

000002

4467
4468
4669
4670
671
4672
4473
6476
4475
4676
4477
478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
44691
4492
4493
4494
4495
&b
449
4498
499
4500
4501
4502
4503

017304
017310
017312
017320
0173264
017332
017336
017342
817 g
01735
017356
017362
017370
017372
017376
017400
017402
017404
017406
017412
017416
017420
017426
0174
017432
017436
017442
017446
017450
017454
17460
017462
0174
017470
017472
017476
017504

105737
001412
163765
004737
063765
105037
004737
105037
8157
127
105037
122737
001020
116501
006301
006301
006301
006301
062701
105737
001402
062701
012704
000411
012701
012704
105737
001402
01%701
122137
001002
105261
005
001371
110065
112765
004737

003143

003147

§s:

gfls

RO #INSCORO+96.

CLRB

68:

003156

178:

007432
000060
003156

15%:

007512
003157

148:

177777

18%:

000001

gSEllF gglVE SELF TEST
sGET ADRS OF SCRATCH SCORE TABLE

:INIT A SCORE T0 0
;SEE IF DONE YET

:BR IF NOT YET

suB

CLRB

PC,DRVCAL
HOLDS ,P.CYLN(RS)

2. .83

sCLEAR OFFSET DIRECTION FLAG
:SET OFFSET COUNTER FOR NEG OFSTS

OFSCNT

;INIT OFFSET NUMBER

MOV

#204‘RO

CMPB

#3,TSTTYP

MOVB

P.TRCK(RS),R1

BNE

BEQ
ADD

MOV

BR
MoV
MOV
ISTB
BEQ
MOV
CMPB
BNE
INCB
DEC

BNE

MOVB
MOove
JSR

;SEEK THE REST OF THE WAY

;CLEAR “'CYL DIF = 100/200 FLAG"

PC,DRVCAL
OFSDIR

CLRB

:BR IF NOT
sSEEK HALF THE CYLS

DIF100

JSR
CLRB

ASL
ASL
ASL
ASL
ADD
TSTB

007432

: SAVE RO=R5

HOLDS ,P.CYLN(RS)"

MOV

128:

R RdRdRdRdddddddddRdd])

#SEEK,P.CMND(RS); SET SEEK COMMAN
DIF100
;SEE IF CYL DIF = 100/200 (ocm

JSR
ADD
98:

000060
000001

(RO)
¢+

MOVB
1STB
BEQ

000005

000002
000115
030124

MoV

3,TSTTYP
5%
#NSCORO,RO

;PERFORM READS HIYN OFFSET

000002

003143

lNlTlALIZEBSCRAYCN SCORES

4s:

007572

15§

Ri
R1
R1
R1
#NSCORO,
R1
OFSDIR

17%
#48. R

01‘a£

:PERFORM SEEX

;INIT NEG OFST VALUE TO 100 UVIN

:SEE IF SELF-TEST
:BR_IF NOT
;GET TRACK NUMBER
;MULT BY 16.

:GET POINTER TO SCORES
sSEE WHICH OFST DIRECTION
:BR IF NEGATIVE
sPOINT TO POSITIVE SCORES

:SET COUNTER TO 1

: CONT INUE

#48. ,R4
OFSDIR
14%
,
#PSCOROR
(R1)+,0F SCNT
18%
=1(R1)

sSET COUNTER TO 48.
:SEE WHICH OFST DIRECTION
:BR _IF NEGATIVE
;GET POINTER FOR POS SCORES
+SEE IF THIS IS A PERFECT SCORE YET
:BR IF NOT

#NSCORO,R1

R4
14%

:GET POINTER TO SCORES

: INCREMENT THIS SCORE
:gECREHENT COUNTER
R IF NOT DONE YET

; t AN OFFSET VALUE
RO,P.OFST(RS)
IOFFSET.P.CHND(R +SET OFFSET CMND
PC,DRVCAL

:PERFORM OFFSET

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 90
CZR6QC.P11
02-JuL-80 09:50
END OF PASS ROUTINE
45064

017510

105237

003157

4506
4507

017522
0175

8327
737

s 456
7549

017540

004737

030124

4505

017514

4508 8175
4509

4510 017544
4511 017550

112

;

112765

105065
112765

SEQ 0088

INCB

OFSCNT

- INCR OFFSET NUMBER

JSR
JSR

PC, SVPRAS
PC.TRNSFR

;SAVE PARAMETERS OF TRANSFER
‘D0 XFER, MANDLE DCK ERRORS

PC oavcug

;D0 A SUBSYSTEM CLEAR

JSR

PC,DRVCAL

:PERFORM OFFSET T0 0

MOV

0, RO

:INIT POS OFST TO 100 UIN

121

000001

MOVE

177

000001

MOVEB

#SUBCLR,P.CMND(RS) ;SET SUBSYS CLEAR COMMAND

000001

CLRB
MOVB

P.OFST(RS)
CLEAR OFFSET VALUE
WOFFSET,P.CMND(RS) ;SET OFFSET COMMAND

0000
000115

ug mn% 004737 030124
4513
4514
4515
4516

01756
017596
017570
017572

oogrog
00530
001274
01%703

000004

4518
4519
4520
2251

017602
017606
017610
017612

105137
001263
104410
000207

003156

4517 017576 O1 7go

JSR

ADD
DEC
BNE
MOV

000014

000004

COM8
BNE
RESREG
RTS

452
4524

#RDDATA,P.CMND(RS)

#4.RO
R3
68
#12. R3

OFSDIR
128
PC

;SET READ COMMAND

:INCR OFST VALUE BY 100 UIN
:DECR COUNTER
:BR IF NOT DONE IN THIS DIRECTION YET
:SET COUNTER FOR POS SFSTS

:COMPLEMENT OFFSET DIRECTION FLAG
‘BR IF POS OFSTS NOT DONE YET
‘RESTORE RO=-RS
*RETURN

‘st

;;'Qt'.tlt"ttt"""i't"'t""""Q"""ttt"'."t'I't.'t'ttt'

4526
4527
4528

**ADSCOR = ADD THE + AND = SCRATCH SCORES TO THE + AND - SCORE
:#SUMS, FOR EITHER THE OVRWRT, SELF,
OR COMPAT READ TEST, AS DETERMINED
TeBY “TSTTYPTM,

‘s

4530
4531
45

;;'tt"ttttt'ttt"'i""'""t""t"t'ttt'tttt.t"tt."l"tt.ttt

4533
4534
4535
4536
4537
4538
4539
4540
4541
4542

017626
017632
017636
017642
017646
817652
017
017
817
017

104407
122737
001031
113700
060037
113700
060037
113700
060037
113709
oogos
1 709
060037

4544
4545
4546
4547
4548
4549
4550
4551
4552

01770
017706
017710
017714
017720
0177
0177
0177
017740

°°°°§5
0004
012700
012705
122737
801606
12700
81 705
012704

007424

017750

012703

007512

454

4553

455,

4555
4556
4557
4558

4559

017614
817216
17624

000003

003143

007432
007412
007452
007414
007472
007416
007512
007420
007532
007422

01;973 113700 007552

017744 81 781

017754
0177
017760
817762
017764

11 108
ooogz
112 og
830;5‘
005

006612
006752
000001

00711
00725
oooogo

007432

ADSCOR: SAVREG
CMPB
BNE
MOVB
-~ ADD
MOVB
ADD
MOVB
ADD
MOVB
ADD
move
ADD

Move

2%:

003143

4$:

68:

ADD
BR
MOV
MOV
CMPB
BEQ
MOV
MOV
MOV

MOV
MOV

MOVB
ADD
move
ADD
DEC

#3,TSTTYP
2%

NSCORO,RO
RO,NSSCRO
NSCOR1,RO
RO, NSSCR1
NSCOR2,RO
RO, NSSCR2
PSCORO,RO
RO,PSSCRO
PSCOR1,RO
RO,PSSCR1

:SAVE RO-RS
SSEE IF SELF=TEST
:BR IF NOT
PADD SELF=TEST SCORES

PSCOR2,RO

RO,PSSCR2
8%
#NOSCRO, RO
#POSCRO.RS
#1,TSTTYP
48
#NCSCRO, RO
#PCSCRO.RS
248, R4

SEXIT
1GET POINTER TO (=) OVRWRT SCORES
:GET POINTER TO (+) OVRWRT SCORES
:SEE IF READING OVRWRT DATA
:BR IF YES
:GET POINTER TO (=) COMPAT DATA SCORES
*GET POINTER TO (+) COMPAT DATA SCORES
SINIT COUNTER TO 48.

#PSCORO RS

:GET POINTER TO POS SCRATCH SCORES

#NSCORO, R
(R1)+,R2
R2, (RO)+
(R$)+,R2
R2.(RS)+
R4

:GET POINTER TO NEG SCRATCH SCORES
*GET A SCRATCH NEG SCORE
SADD IT TO (=) SCORE SUM
:GET PNTR TO POS SCRATCH SCORES
TADD IT TO (+) SCORE SUM
:DECREMENT COUNTER

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE §1L
02-JuL-80 09

CZR6QC.P

SEQ 0089

END OF PASS ROUTINE

8s:

BNE
RESREG
RTS

6%
PC

:BR IF NOT DONE YET
;RESTORE RO=RS
sRETURN

JotRRRRRRRRNRARRRACCRCONCRCCORCERONRAOARANAACANNNORRARAROANONOOOETS

:*AVSCOR = COMPUTE THE ¢ AND = AVERAGE SCORES FOR THE OVRWRT, COMPATIBILITY

;*DATA TEST, OR SELF-TEST, AS DETERMINED BY '‘TSTTYP'', THE SUMS IN THE APPROPRIATE

+*SCORE _TABLES ARE EACH DIVIDED BY THE NUMBER OF CYLINDERS READ, TO
+*COMPUTE THE AVERAGES.

AVSCOR: SAVREG

28:

(8:

128%:

6$:

N =

28382828
(TM7
.3-~g-~\n~4~4333
JIRLS28SSIGRIG 2388

NN O NN = N O N WNO N
NNWVINNONWVINNNY

MPB

108:

003156
161106
000002

161076

== AVIWWO

NN NWNN
o = NN
N SN
~ [=]1V]

838

[«1T

nnuaoaqgmu

82 '. fl“fl §

0201564
8201
501
0201
820196
170
172
176

8°°°°°°°°

4600
4601
460
4603
4604
4605
6609
460
4608

020114
J201
0122
0124
0126
0201
0201
020140
020142
0 163
8 15

4589
4590
4591
439
459
459
4595
6593
4597
4598
4599

387 ozios
i38s 050106

4575
4576
4577
4578
4579
4580
4581
4582
4583
4586
4585

017774
017776
02 0004
02
020014
020022
020026
0200
020036
020044
020052
020056
02
020066

4572
4573

000
e =
N
N b b b
8228888222228
OOOOS-'-'
= A N VAVWAVARNINININ
= RN

SRR RRRRARAAAANRRRARANRARNNNERRRRARNAAAARNNONRANAARACAAOARAOANCRONS

1306

8s:

gg.TSTYVP

Mov
MOV
MOV
MOV

#NSSCRO,STMP11
0PSSCR2.$THP13
og4.,a
#3,8TMP12

MOV
MOV
MOV
CMPB
BEQ
MOV
MOV
MOV

#NOSCRO, $TMP11
#POSCRO,STMP13
#7..R5
#1.7STTYP
4$
#NCSCRO,STHP11
#PCSCRO,$TMP13
093..R5

CLRB

OFSDIR

1ST8

OFSDIR

B8R

MOV

CLR
CLR
CLR
CLR
MoV

BEQ
MoV
JSR

12¢

#48. ,8THP12

RO
(3!
R2
R4
a$TMP11,R3

10%
a$TMP13,R3
PC.M.DPID

MOV
ASR
CMP
BLO
INC
COM8
BEQ
MOV
ADD

R5.RO
RO
R1,RO
8s
R3
OFSDIR
1 48
R3,3$THP11
Z%.SIHP11

MoV
ADD
DEC

R3,38THP13
#2,8TAP13
$TAP12
12%

RTS

:SAVE RO=R5

;SEE IF SELF-TEST
:BR_IF NOT
:GET ADRS OF (=) SELF-TEST SCORES
:GET ADRS OF (¢) SELF-TEST SCORES
;SET DIVISOR = 24.

;SET _COUNTER = 3
s CONT INUE
;GET POINTER TO (=) OVRWRT SCORES
:GET POINTER TO_(+) OVRWRT SCORES
;SET DIVISOR = 7,

:SEE IF READING OVRWRT DATA
:BR _IF YES
:GET POINTER TO (=) COMPAT DATA SCORES
;GET POINTER TO (+) COMPAT DATA SCORES
;SET DIVISOR = 96.
:SET _COUNTER = 48.
sINIT FLAG FOR (=) DIRECTION
;CLEAR HI BITS OF DIVIDEND AND DIVISOR

DEND = (=) SUM

H OFST DIRECTION

DEND = (+) SUM
0 GET AVERAGES
OR
T BY 2
3 MNDR > HALF DIVISOR

:BR IF NOT

sADD 1 TO QUOTIENT
;COMPL DIR FLAG
:BR FOR (+)
:PUT (=) AVG INTO TABLE
;PUT (¢) AVG INTO TABLE

;DECREMENT COUNTER
:BR IF NOT DONE YET
;RESTORE RO-RS
sRETURN

CIREQCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 92
CZR6QC.P11
02-JuL-80 09:50
END OF PASS ROUTINE
461
461
4618
4619
4620
4621
462
462
4624

SRR ARRARNRANRARNR RN

SRR

104407

4627
4628

020234
020240
020242
020246
ozogs
020 23
020262
020264
020266
020270
020272
020274
020276

012700
005001
005037
005037
012702
012703
005720
001402
005201
000774
010100
010204
010305

005512

020312

062537

007430

464

83331

4645

4648
4649

020326
020330
020334
020340
020

001364
062702
oogros
02 ;zr
101752

4651
4652
4653

020346
020350
020352

005004
005005
060105

4655
4659
465
4658
4659
4660
4661

020356
0
0
0203
020374
02037

105
sgs
12737
385037
005000
5001
5
01

4644

4654

4323
4664

i
466

4668
4669

04
020412

MOV
CLR

007426
007430
006612
007112

68:

8s:

235 000136 007430

737
0105

000040
000040
006712

s;g;

CLR
CLR
MOV
MOV
ST

BEQ
INC
BR
MOV
MOV
MOV

001304

108:

042664

94. (RS), COMAVG

ADD
ASL
MOV
CLR
CLR
CLR
CLR
MOV

JSR
MOV

8
BLO

4670 soa
1 1;7 007430 001304
4671 020436 005137 001306

8s
R1
31
R1,RO
R2.R4
R3.RS

128:

INC
MOV

MOV
COM

sINIT DRIVE LIST POINTER
sINIT DRIVE COUNTER
;INIT SUMS T0 0

;SET POINTER TO OVRWRT SCORES
;SET POINTER TO READ SCORES
:COH?3T51TOTAL NUMBER OF DRIVES

sPUT NO. OF DRIVES IN RO
:SET POINTERS TO SCORES FOR THIS TRACK
sADD SCORES TO SUMS

(RS)+_,COMAVG

BNE
98
ADD
#32..R2
ADD
#32. .83
CMP
R2, #NOSCRO+64.
BLOS
8%
:DIVIDE TO GET AVERAGES
CLR
R4
CLR
RS
ADD
R1,RS

160676

160654

OVRAVG
COMAVG
#NOSCRO,
R2
#NCSCRO.R3
(RO)¢+

ADD

007426
001306

#DRVLST,RO
R1

(R4)+,0VRAVG
94, (R4) ,OVRAVG

ADD

: SAVE RO=R5

AND COMPAT READ TEST SCORES OVER ALL TRACKS

ADD
ADD

DEC

e
&
3 103401
2
020424

AN NN NN RN NN E R R RN RNRNARAANRANNANAAANARNNNORANONOONONS

;TAKE SUMS OF OVE RWRITE

020354 060105

AR RAAR

TRKAVG: SAVREG

4640 020
062437 007426
98:
4641 020306 066437 000136 007426
4642

RN NN C VR C NN RN AR NANNNNNANNANANNAANNANNAOROOOOOS

;*THIS SUBROUTINE COMPUTES THE AVERAGE OF THE OVERWRITE TEST SCORES
s*OVER ALL TRACKS (SURFACES) AND PLACES THE AVERAGE IN OVRAVG.
s*THEN, IT COMPUTES THE AVERAGE OF THE COMPATIBILITY DATA READ SCORES
;*OVER ALL TRACKS AND PLACES THE AVERAGE IN COMAVG.

020232

4629
4630
4631
4632
4633
463
4635
sosg
4637
4638
4639

SEQ 0090

:*TRKAVG = COMPUTE AVERAGES OF TEST SCORES OVER ALL SURFACES

4625

4626

;SEE IF ALL SCORES ADDED FOR THIS TRACK
:BR IF NOT YET
;POINT TO SCORES FOR NEXT TRACK

;SEE IF ALL TRACKS DONE YET
:BR IF NOT YET

;GET DIVISOR IN R&=R5

R1,RS

R1,RS
RS
#OVRAVG, $THP11
$THP12
RO
R
R2
asTHP11,R3

PC,M.OPID
RS.RO
Ko
1§£

R
R3,38TMPIN

#COMAVG, STHP11
$THP12

;SET POINTER TO OVRWRT SCORE SUM
sCLEAR SCORE INDICATOR

:GET DIVIDEND IN RO-R1-R2-R3

sDIVIDE TO GET AVERAGE
;GET DIVISOR

:DIVIDE IT BY 2

:SEE _IF REMNDR > HALF DIVISOR
:BR _IF NOT
sADD 1 TO QUOTIENT
:STORE AVERAGE SCORE
:SET POINTER FOR READ SCORE SUM
s COMPLEMENT SCORE INDICATOR

CIR6QCO Rk6 Dl

CZR6QC.P11

PT PR

02-JuL-8

HACV11 30A€1052)

02-JuL=-80

4672
0 0‘62 001356
467
o§o¢.
104410
4674
020446

RTS

4678

4679
4680
4681
468

4689
4690
4691
4692
4693
4694
4695
96
4697
4698
2 83

020450
020456
020460
020464
020466
020470
020474

032765
001002
000137
010046
010146
012700
005001

020502
020504
020506
020510
020512
020516
020520
020522

001403
005%85
006
000772
040037
012601
012600
000137

020476

120137

010000

000020

031472
000001
005430

005476

4725

4726

4727

;RETURN

I I

R R R

R R R L s

I I

T I

R R A

#NED,P.CS2(RS)
1%
ERRHDL
RO,=(SP)
R1,-(SP)
#1,R0
R1
R1,DRIVE

3s
R1
RO
2%
RO,NEWON
(SP)+,R1
(SP)+,R0
RETNHL

s TSI

sSET BIT POINTER
sCLEAR COUNTER
sSEE IF R1 = CURRENT DRIVE NUMBER
:BR IF
INCREHENT COUNTER
SHIFT BIT POINTER
:TRV AGAIN
sCLEAR ONLINE BIT FOR THIS DRIVE
sRESTORE RO,R1
sTAKE

I T R

;SEE IF NED ON DRIVE SELECT
:BR IF NED SET
;GO HANDLE OTHER ERROR
:SAVE RO,R1

NORMAL

RETURN

LTI

s*DCKHDL = DATA CHECK ERROR HANDLER
s*THIS IS THE ABNORMAL RETURN FROM THE DRIVER, WHICH IS USED
s*WHEN DCK ERROR IS EXPECTED (AND VALID).
s*IF A HEADER VRC ERROR OCCURS, IT IS MANDLED. ALSO.

4710

472
4724

CMPB

BEQ
INC
ASL
BR
BIC
MOV
MOV
JMP

3s:

4706
4707
4708
4709

4717
4718
4719
4720
2;%1

NEDWDL: BIT
BNE
JMP
1$:
MOV
MOV
MOV
CLR

033742

4705

4713
47146
4715
4716

A A i

2%:

L70
4702
4703
4704

4711
6712

sBR TO COMPUTE

;RESTORE RO-RS READ SCORE AVERAGE

'NEDHDL = NON-EXISTENT DRIVE HANDLER
'YNIS IS THE ABNORMAL RETURN FROM THE DRIVER,
:' WHICH IS USED WHEN NED INDICATION IS EXPECTED (AND VALID).
:'
(NED = NON-EXISTENT DRIVE)

468

4687

SEQ 0091

RESREG 108

4685

PAGE 93

BNE

000207

4675

09:52

END OF PASS ROUTINE

020526
020532

020540
020542
020550
020552
020560
020562
050596
020574
02

005037
032765

001404
052737
000411
032765

001 ;
0001
052737
105237
000137

;:ttttttttt.ttttt"".""'t""'titt'ttt.t'tttttttt't"'t'tttt't

005424
000400

000034

000004

005424

100000

000034

&$:

005424

68:
8%:

031472
000020
003144
033742

DCKHDL: CLR
BIT

SBYTL

BEQ
BIS
BR
BIT
BNE
JMP
BIS
INCB
JMP

RECODE
#HVRC,P.ER(RS)

6%
#HVRCER,RECODE
8s
#0CK,P.ER(RS)
6%
ERRHDL
#OCKERR,RECODE
DCEFLG
RETNML

R e

sCLEAR ERROR FLAGS
SEE IF HEADER VRC ERROR
8 IF NOT
;SET HVRC ERROR FLAG
SEXIT
.SEE IF DCK ERROR OCCURRED

sBR IF YES
+GO HANDLE OTHER ERROR
SET DCK ERROR FLAG
:lNCREHENT DCK ERROR FLAG
sTAKE NORMAL RETURN FROM DRIVER

R R R R R R R R R R

KBDHDL = TTY KEYBOARD INTERRUPT HANDLER

R R

R s

L L R R L R R LRIy

CIR6QCO RK6 DR CPT
CZR6OC.P
02-JuL4728

4729
47
4731
L7
4733

47
4735
4736
4737
4738
4739
4740

020604

061
0616
0206
8 0626
020630
020632
020636
020642
0
0%0650

19166
17701
87 1
120127
;

12012
002402
04 7g1
010137
122701
001007
104401

il Bl
474 0%0664 800002

4766
4745
476¢
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
Y44
4772
4773
4776

4775
477
77
4778
4779
4780
4781
4782
4783

02
020672
0206764
020700
020702
020706
020710
020714
020716
020722
020726
8%07
07
020736
020742

122701
001003
104401
000765
122701
001003
104401
000757
122701
001003
104401
000751
104401
104401
000744

MACY11 30A(1052)
09:50

02-JUL-80

KBDHDL: MOV

160334
177600
000172

000141

012052
000100

BGT

20§

BLT

208:

BIC

000032

2%:

012057
3s:

012064
48:

012076
5%:

005442
001325

20§

#B1T5,R1

TYPE

,CNTRLC

BIC

MOV
RTI

#B176,387KS

(SP)+.R1

CMPB
BNE

#032,R1
33

CMe8
BNE
TYPE

000007

R1,#141

R1,INTCHR
3263.&1

TYPE

000022

R1,#172

MOV
CMPB
BNE

18:

R1,=(SP)

asfxe R
l177690.l1

CMPB

160262

PAGE 94

MOV
BIC

CMPB

000040
005665
00000

09:52

KBDHDL = TTY KEYBOARD INTERRUPT HANDLER

B8R

CNTRLZ

#022,R1
48

CNTRLR

CMPB

#007,R1

TYPE

CNTRLG

BNE

TYPE

$CRLF

TYPE

,INTCHR

;SAVE R1 ON STACK

sREAD A CHAR FROM KBD BUFFER
sMASK OQUT UNUSED BITS
‘SEE IF LOWER CASE TYPED-

:BR IF NOT
:BR IF NOT

‘MAKE IT UPPER CASE

*SAVE INPUT CHARACTER
SEE IF (*C) TYPED
:BR IF NOT (*C)
SECHO (*C)

:CLEAR KBD INTERRUPT ENABLE BIT

:RESTORE R1

:RETURN

:SEE IF (*2) TYPED
:BR IF NOT (*2)
SECHO (*2)

*RETURN

:SEE IF (*R) TYPED
:BR IF NOT (*R)
:ECHO (*R)

:RETURN
:SEE IF

(*G) TYPED

:BR IF NOT (*G)

:ECHO (*6)

:RETURN

*ECHO INPUT

:D0 <CR> AND <LF>

*RETURN

soRRRRRRRRARRRRRECCACACCCRCCOQRCAAAAAAAARCRANRAAARRRRARARANAROARRNNR

.SBTTL

PREPKB = PREPARE FOR KEYBOARD INPUT

:*THIS SUBROUTINE CLEARS THE KEYBOARD BUFFER AND THE
s*DONE BIT, AND CLEARS THE TTY INTERRUPT INPUT WORD
:*INTCHR, IN PREPARATION FOR NEW TTY INPUT. IT ALSO
s*ENABLES KBD INTERRUPT.
s+ CALL:

JSR

PC.PREPKB

JivtRtRRRRRRARRREERRRERCECERRRORRNRRARRRNRRRARRARRARARAARRAEARCRONORS

020744
020750
020754

020762

005077
005037
052777

00020

PREPKB: CLR

160176

005442
000100

CLR

BIS

160162

RTS

asTkKB

;CLEAR KBD BUFFER AND DONE BIT

#B1T76,387KS

;ENABLE KBD INTERRUPT

INTCHR

sCLEAR TTY INPUT WORD
:RETURN

‘:.'l'tt'tt.t'."""""i""'i"t'tttii'ti'l"tttt"tt'tttt".t

.SBTTL

ECOBAD - ECHO BAD TTY INPUT

s*THIS SUBROUTINE ECHOS A CHARACTER WHICH HAD BEEN
;*TYPED IN AND WAS DETERMINED TO BE INVALID FOR SOME

;*REASON, FOLLOWED BY A QUESTION MARK (?). THEN, A <(R>

SEQ 0092

SEQ 0093

4784

:*AND <LF> ARE DONE.

‘;g

;:'...""Q'Q"Q"""'Q"""""""""'."Q"""Q"Q"'"."

4785
4

4788
4789
4790
4791
4792
4793
479%
4795
4796

iv CALL =
020764
020770
020774

104401
104401
000207

005442
001324

ECOBAD: TYPE
TYPE
RTS

JSR

PC,ECOBAD

,INTCHR
,$QUES
PC

:ECHO BAD CHARACTER
:TYPE <?7> AND <CR>, <LF>
RETURN

‘797

;.'""'QQ"Qt."'Q'"""."""."."".t..t'..'.l"'t'.""'Q"

‘802

::'."""".t"""'"'""t""'t""".t."..t""".""tt"t

4798
4799
4800
4801

4803
4804
4805
4806
4807

4808
4809
4810
4811
481
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4826
4825
4826
4827
4828
4829

:* GETPRM = INPUT A SIX=DIGIT OCTAL NO. ON TTY KBD
S«ENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE
:«TYPES OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON
1«TOP OF STACK.

020776
021002
021004
021005
021006
021012
021016
021020
831852
1024
021026

021030
021032
021036
021040
021044
021050
021054
021056
021062
021066
021070
021072
021076
021100
021104

016646
104403
006
000
104401
004737
021050
021050
881 50
005700
001001

000207
020027
003407
104401
104401
162716
000207
012746
004737
021040
012600
005737
0013460
010066
000207

000002

011224

023402

GETPRM: MOV
TYPOS
.BYTE
BYTE
TYPE
JSR
7%
7%
7%
531
BNE

000006

4$:

005212
001324
000010

68:

005212
042104

8s:

042236
000002

RTS
CMP
BLE
TYPE
TYPE
SUB
RTS
MOV
JSR
%
MOV
ST
BNE
MOV
RTS

2(SP),=(SP)

6
0
,NEWMSG
PC,RDCHRS

RO
48

PC
RO, #6
8s
,BUFFO
.SQUES
c1o (SP)
IBUFFO -(SP)
PC,OCTBIN

(SP)+,RO
suioct
6%
RO, 2(SP)
PC

;GET OLD VALUE
STYPE IT
SSIX DIGITS
suppnes§ LEADING ZEROS
STYPE
**
NEW =
neno NEW VALUE FROM KBD
1(*C) RETURN ADDRESS
1(*Z) RETURN ADDRESS
1(*U) OR ERROR RETURN ADDRESS
*SEE IF ANY CHARS TYPED
BR IF YES

‘RETURN = OLD VALUE UNCHANGED
SEE IF > 6 CHARS TYPED
‘BR IF NOT BAD
*ECHO BAD INPUT

:FIX ERROR RETURN PC
*ERROR RETURN
:PUT POINTER TO CHARS ON STACK
*CONVERT DIGITS TO BINARY

*ERROR RETURN ADDRESS
"3GET NEW BINARY VALUE
:SEE IF HI BITS ARE 0

:BR IF NOT
:PUT NEW VALUE ON STACK
:RETURN

“32

3 ' (3322332333323 2222233232223222333333333333332333333323333333332333.]

4833
4834
4835
48

"SBTTL GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
;«THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOFTWARE SWITCH
'REGISTER T0 BE MODIFIED BY TTY INPUT. THE SUBROUTINE TYPES
Te SWR = XXXXXX NEW = '', AND WAITS FOR A NEW OCTAL VALUE

‘a”

:'t't.'t"i.'.'"'"""""""'Qt""tt"tllt'tt.Ii'ttti'tt't't

483

4839 021106 022737 000176

2#0F UP TO SIX DIGITS TO BE TYPED.

001140 GYSWRG: CMP

#SWREG, SWR

:SEE IF SOFTWARE SWR SELECTED

flflj

CleGCO RK6 DR CPT PROG MACY11 30A(1052) 02°JUL°80 09:52_PAGE 95
CZR6QC.P11
02-JuUL-80 09:50
ECOBAD
= ECHO BAD TTY INPUT

CZR6QCO RK6 DR CPT PROG MACY11 SOA(‘IOSZ)G 02-JUL-80 09:52 PAGE 96
CZR6QC.P11
02-JuL=-80 09:50
TSWRG = OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION
4840
4841

051114
0 1113

001010
013746

4864
4845
4846
4847
4848
4849
4850
4851

021132
021136

012637
000207

4862
484

021122
oz11§6

104401
004737

000176

011215
020776

BNE
MOV

13
SWREG, = (SP)

:BR IF NOT
:PUT OLD VALUE ON STACK

MOV
RTS

(SP)+,SWREG
PC

:STORE NEW VALUE
:RETURN

TYPE
JSR

000176

68:

‘as‘

SWRMSG
PC,GETPRM

SEQ 0094

;TYPE "'SWR = "
STYPE OLD, GET NEW SWREG VALUE

:;'ttt"'tt.l"'t"'""'t't"""'"'t'.'Q't"..ttttt"'t""'t'

2332

"SBTTL

INITSS = INITIALIZE SUBSYSTEM

4857
4858
4859

;*THIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS
:*AND DOES A SUBSYSTEM CLEAR.
:* USES =
R2,RS

4861
‘“2

::t't"'t"t.t"t'"'0"'Q"""tt'I'ttt'tt'it'it."'.t.'t'ttt'tt

4860
4863

4864

4865

:* CALL:

021140

021146

012737

031472

030250

4866 021154 013702 003046
4867 8%1160 01grg; 83 640
4868
021164 1050
150
4869

021170

004737

021246

4871
4872
4873

021202
021206
021214

004737
113765
113737

030124
005430
005430

4875
4876

021230
021236

153765
116537

4870 021174

4874

23;;

021222

021244

112765

113765

000207

000177

003134

003133
000007

4879
4880

003056

003054

INITSS: MOV

#ERRHDL,A.ABNL

;SET UP ABNORMAL ERROR RETURN ADDRESS

MOV
MOV
CLRB

RKBAS ,R2
#PARMO, RS
NORTRY

:GET ADDRESS OF RK611 REGISTERS
:GET ADDRESS OF PARAMETER BLOCK
:CLEAR 'NO-RETRY'' FLAG

MOVB

#SUBCLR,P.CMND(RS) ;SET SUBSYSTEM CLEAR COMMAND

MOVB

FORMAT,P.CSTH(RS) ;SET CURRENT DRIVE FORMAT

MOV

#ERRFRE.A.NORM

JSR

000001
000000
002724

JSR
MOVE
MOVB

000007
002733

BISB
MOVB

000007

PC,INITSS

JSR

PC,CLRPRM

:SET UP NORMAL RETURN ADDRESS

:CLEAR DRIVER INPUT PARAMETERS

PC,DRVCAL
;D0 SUBSYSTEM CLEAR
DRIVE,P.DRVN(RS) :SET CURRENT DRIVE NO.
DRIVE,PARM1
:SET DRIVE NO. IN ALTERNATE P.B.
TYPFMT.P.CSTH(RS)
;SET DRV TYPE. 0=RK06, 4=RK07
P.CSTH(RS),P.CSTH+PARF?
;COPY FORMAT & DR TYPE INTO PARMI

RTS

: SUBROUTINE EXIT

‘u‘

:;t'ttt'.t't'ttt""'t!"t't""ttt'QQtt.t.fittttt'ttt.lttit't"tl

4882

"SBTTL
CLRPRM - CLEAR DRIVER INPUT PARAMETERS
;*THIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER
:*PARAMETER BLOCK (WHOSE ADDRESS IS IN RS).
ie CALL =
JSR
PC,CLRPRM

4883
4884
4885

4886

4887
4888
4889
4890
4891
4892
4893
4894
4895

021246
021250
021252
021254

021260
021262
8 1%64
021266

010046
010546
010500
oe;ros

005020
020005
001375
012605

000016

CLRPRN: MOV
MOV
MOV
ADD

1$:

CLR
CMP
BNE
MOV

R R R

R RR

RO,=(SP)
RS,=(SP)
RS,RO
#P.CS1,RS

(RO)+
RO,RS
1%
(SP)+,RS

RN AR R AR AN AR RN

RN R R R RN

:SAVE RO
:SAVE RS
:GET PARAMETER BLOCK ADDRESS
:COMPUTE LIMIT ADDRESS

:CLEAR A WORD IN PARAMETER BLOCK
:SEE IF DONE YET
:BR IF NOT DONE YET
‘RESTORE RS

48
489
4898
4899

0%1 70
o 72

012600
000207

MOV

4900
4901

4902
4903

4904
4905
4906
4907
4908
4909
4910
M
4912
913
4914
915
4916

;RETURN

R R

R RdRRRRRRRRRRRdRdd]d)

SCNDRV - SCAN DRIVE FOR STATUS
IS ON-LINE,

READY, NOT WRITE=LOCKED,

:«OF THESE CONDITIONS ARE NOT MET,

AN APPROPRIATE

;*MESSAGE 1S TYPED, RKO6 INTERRUPT IS DISABLED, AND

:#A RETURN 1S MADE TO THE ADDRESS LISTED IMMEDIATELY
SoAFTER THE CALL TO SCNDRV. THE REQUESTED DRIVE NO.

:#MUST BE PASSED TO THE SUBROUTINE IN WORD '‘DRIVE''.
:v CALL =

‘e
b

JSR

<ERROR

PC,SCNDRV

RETURN

ADDRESS>

]

E:Q.Q'Q'QQ.Q'.'.t.""t"'"""I.t.t.'.."t"'.t.'fi't.tt"'l""

4926
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934

021326
021332
021336
021342
021344
021352
021354
021362
021366
021372
021376

012712
005037
005;37
001375
03276;
00141
112765
011225
004737
004737
10405

4950
4951

;RESTORE RO

:*AND NOT LOADED WITH AN ALIGNMENT CARTRIDGE. IF ANY

004737
042712
113762
105737
001003
012712

4966
4945
4946
4947
4948
4949

:«THAT THE DRIVE

021274
021300
021304
021312
021316
021320

4935
4936
4937
4938
4939
4940
4941
23:

SEQ 0095

:*THIS SUBROUTINE SCANS THE SELECTED DRIVE TO INSURE

4917
4918
4919
4920
4921

2325

AR AR A

SBTTL

(SP)+,RO

RTS

_——

3
CIR6QCO RKk6 DR CPT PROG MACY1N 30A(1052)CL02°JUL'00 09:52 PAGE 97
RPRM = CLEAR DRIVER INPUT PARAMETERS
CZrR6QC.PN
02-JuL-80 09:50

021324

021400
0 1603
021412
021416
021424
021432
021440
021444
02145
0214
0214
0214
021476
021504

051510
021514

000402

021140
000100
005430
003133

SCNDRV: JSR

000010

58:

78:
158:

000010

000101
000016
037632
031212

000001

05273
000137
004737
1157 5
012737
012737
004737
112737

000§
033324
021140
141
020‘59
37
030124

005424

0157 7
85 737
16;;
113737
152737
104401

03167;
00037

003056
005476

005430

011261
011261

011264
000200

000001
003056
005476

011262

001351

;INITIALIZE DRIVER AND CLEAR SUBSYSTEM
#1E, (R2)
:DISABLE RKO6 INTERRUPT
DRIVE,RKCS2(R2) :SET DRIVE NO. IN RKCS2
TYPFMT

:SEE IF RKO7

58
#G0, (R2)

:BR IF YES
CELSE SET GO BIT FOR RKO6 IN RKCS1

MOV

#<CDT'G0>,(R2)

;SET GO FOR RKO7

BNE
BIT
BEQ

158
#MDS,RKCS2(R2)
188

:STALL FOR SEVERAL MILLI-SEC
:SEE IF MDS ERROR
‘BR IF NOT

MOV
JSR
JSR
ERROR
BIS
JMP

(R2),P.CST(RS)
PC,1.CSTY
PC.REPSUP
52
#ABORT ,RECODE
ALLTRA

CLR
INC

MOVB

188:

PC,INITSS

BNE
MOV

B8R

002001
005444
005444

0112

BIC
MOVE
ISTB

000001

001000

104401
132737

3s:

JSR

MOVB
MOV
MOV
JSR

MOVB

SCRACH
SCRACH

:CLEAR STALL COUNTER
: INCREMENT STALL COUNTER

#SELDRV.P.CMND(RS) :SET CMND FOR ERROR REPORT

PC, INITSS

:GET RKCS1 FOR REPORT
:GET OTHER RK611 REGS FOR REPORT
:SET UP ERROR REPORT
:REPORT MDS ERROR
:SET ABORT FLAG
160 ABORT TESTING
“INIT THE S.S.

#ROSTAT,P.CMND(RS) ;SET READ DRIVE STATUS COMMAND
#NEDHDL
. A.ABNL :SET NED ABNORMAL RETURN ADDRESS
#377 ,NEWON
PC,DRVCAL

#40,BADDRV+?

SINIT. ON=LINE INDICATOR
:READ ALL DRIVE STATUS

:PUT A SPACE IN MSG BUF

;SEE IF THIS DRIVE EXISTS AND IS ON=-LINE
MoV
g?z

OEIRHDL.A.ABNL
z‘rr.utuou

:RESTORE ABNL RETURN ADDRESS
SEE IF NED INDICATION ON THIS DRIVE

MOVB

DRIVE,BADDRV+6

:GET DRIVE NO. INTO BUF

TYPE
TYPE
BITE

,BADDRV
. NXDRIV
#BIT7,8ENVA

:TYPE 'DRIVE X
:TYPE *NON-EXI

BISB

#'0,BADDRV+6

:CONVERT TO ASC

——

————

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE98
CZrR6QC.PN
02-JuL-80 09:50
SCNDRV = SCAN DRIVE FOR STATUS

(938 0213%e 04128
042762

000188

000000

032765

000200

000040

3737
2737

005430
000060

011261
011261

004000

000040

005430
000060

011261
011261

is:

#1E,RKCST a2)
a(sP), (sP

:DISABLE RK06 INTERRUPT

BIT
BNE

#S.DRY,P.AOOCRS) ;TEST FOR DRIVE READY
68
:BR IF DRIVE IS READY

BISB

#'0,BADDRV+6

#S.WRL,P.AOOCRS)

MOVB

DRIVE,BADDRV+6

5430
00006g

011261
011261

022012
022016

062716
000207

000002

‘TAKE ERROR EXIT

;SEE IF WRITE LOCK SET

:BR IF WRITE LOCK NOT SET

#'0,BADDRV+6
,BADDRV
WRTLOK
$

:CONVERT TO ASCII
:TYPE 'DRIVE X'
STYPE *WRITE=-LOCKED"'
:TAKE ERROR EXIT

:GET DRIVE NO.

#PACK,P.CMND(RS) ;SET PACK ACKNOWLEDGE COMMAND

MOVB

WRECAL,P.CMND(RS)

MOVE
MOV
MOVB

#RODATA,P.CMND(RS) :;SET READ COMMAND
LSTCYL,P.CYLNCRS);SET CYLINDER= 632(8)/1456(8)
WLSTTRK,P.TRCK(RS) :SET TRACK = 2

MOV
BICB

#-4,P.UC(RS)
:READ & WORDS
#B.CFAT,P.CSTH(RS)
:SET 22 SECTOR FORMAT

JSR

108:

PC,DRVCAL

:SET VOLUME VALID

PC,DRVCAL

-RECAL THE DRIVE

#RWBUF ,P.BALOCRS) ;BUS ADDRESS

TYPFMT,P.CSTH(RS)

sREAD & WORDS OF BAD SECTOR FILE

.auoes;

:TYPE READ ERROR HESSAGE

#'0,BADDRV+6
,BADDRV

:CONVERT TO ASCII
:TYPE 'DRIVE
X

:TAKE ERROR EXIT

ADD

#2,(5P)

;FIX UP RETURN PC

CMP
BNE
MOVEB

BISB
TYPE

108

RTS

:SEE IF DATA ERROR

:BR IF OK

#\77777 ,RUBUF+6 :SEE IF ALL 1'S IN1.D. WORD 3
128
:BR IF NOT ALL 1'S
DRIVE,BADDRV+6 :GET DRIVE NO.
ALNPAK

:ERROR FREE RETURN

i2s:

;SET RECAL CMND

PC,DRVCAL
#ANYDER,RECODE

TYPE

4998
4999

:TYPE 'NOT READY"

MOVB

BISB
JSR
BIT
BEQ
053336

INTO BUF
:CONVERT TO ASCII

-SEE IF DRIVE NOT LOADED WITH ALIGNMENT CARTRIDGE

8s:

MOV

7777

:TYPE 'DRIVE X'

BIT

JSR

2006

,BADDRV

NTREDY
S%

BISB
TYPE
TYPE
BR

*ERROR RETURN

:GET DRIVE NO.

TYPE
BR

BEQ

;SET UP ERROR RETURN ADDRESS

DRIVE,BADDRV+6

;SEE IF DRIVE IS WRITE ENABLED

6$:

—

BIC
nov

TYPE

$s
W=
NNO~N
N
=
NN~

:BR IF NO
*NED UNDER APT SIZING

MOVB

-t
OO SO

¢
123

RTS
PC
: SEE IF DRIVE IS READY

W8S
b
i o d

goSg
o~

\¥_]

~
434

éi

N~
o~

000001

BEQ
ERROR

. SERVICE ERRORS MERE

2%:

SEQ 0096

: TYPE 'IOADED WITH ALIGN PACK"
*RETURN

:'"..'.'.".."""""""""l""..'.'.t."thttQ""l.'t'ttt

s*SETTUP = SET UP FOR LOOP ON ERROR

;#THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER

:*SUBROUTINE === ONLY MAIN-LINE CODE ''!!
S

5007

022020

011637

001076

S§ETTUP: MOV

(SP) ,a#STACK=2

00000000

R R RRRRRRRRRRRRRRRRRR
]

:MOVE RETURN PC ON STACK

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 99
CZR6QC.PN
02-JuL-80 09:50
SCNDRV = SCAN DRIVE FOR STATUS
5008
5009

MoV
CLR

#STACK=2,5P
RECODE

;RE=INIT THE STACK POINTER
:CLEAR ERROR RECOVERY FLAGS

MOV

#PARMO, RS

“SET PARAM BLK ADRS

MOV

#PRO,3#PS

CLRB

000001

177776

MOVB
JSR
RTS

ERRCNT

SCLEAR RETRY ERROR COUNT

#SUBCLR,P.CMND(RS) ;SET SUBSYSTEM CLEAR CMND
PC,DRVCAL
;CLEAR THE SUBSYSTEM
PC

‘RE-ESTABLISH PRIORITY 0
*RETURN

sttt RRARRARRRRRCCOCRRRCCOERRRRORRRRRQRRNARRARAARARCRNANNROAROOROCTTSE

+SBTTL

MTCART = MOUNT TEST CARTRIDGE, CHECK DRIVE STATUS

;*THIS SUBROUTINE PERFORMS THE FOLLOWING FUNCTIONS :
;*1T TYPES "'STARTING PASS X'', DIRECTS THE OPERATOR TO MOUNT THE
s*TEST CARTRIDGE, CHECKS THE DRIVE STATUS, DETERMINES THE PACK FORMAT,
;*READS THE BAD SECTOR FILES, AND TYPES THE DRIVE AND CART. SERIAL
; *NUMBERS.
SN

NJMHNJC>E;C>J~ VO &~
SN
O NN
—

W
-~

000000

108:

58:

63
128:

148:
168:

000122

506;
5063

021140

022246

163302

MOV
MOVB
MOVB
SUB
ASR
MOVE
JSR

005430

8s:

DRVPTR,RO
:GET POINTER TO FIRST DRIVE FOR THIS SUBSYS
(RO)+,MNTPAK+22. :TM'T DRIVE NAME INTO MSG
(RO),MNTPAK+21.
#DRVLST,RO
:SUBTRACT LIST ADRS FROM POINTER
RO
:DIVIDE BY TWO TO GET DRIVE NO.
RO,LOGDRV
:STORE LOGICAL DRIVE NUMBER
PC.INITSS
SINITIALIZE SUBSYSTEM

BIC

#1E.RKCST1(R2)

:DISABLE RKO6 INTERRUPT FOR MAN. INTERVENTION

TYPE
TYPE

.TYPRWN
.DRIRDY

STYPE ''TYPE R<CR> WHEN "'
:TYPE 'DRIVE READY :'*

TYPE

JSR
128
168
5$
ST

(= l=T=]

22SSRRRNS

= e

g:c><><>
VIV
N = b d

[=]=l=1-]

e 8228
WVOOwWwm

siRtRRRRRRRRRRRRRRCCERRROCRORARRORARRANARRANCAAROANANACONNROAORRRNTS

MTCART:

BNE
TYPE

TYPE

,MNTPAK

PC,RDCHRS

13
,BUFFO
$QUES

:TYPE MOUNT PACK MSG

‘WAIT FOR R<CR> RESPONSE
:(*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS
:(*U) RETURN ADDRESS
:SEE IF NULL INPUT

:BR IF NOT NULL
:ECHO BAD INPUT

STYPE <> AND <CR>,<LF>

§s

160 ASK AGAIN

MDFLAG
148

MOV

#STACK,SP

JMP
JMP
TSTB
BEQ
MOV
JMP
CMP
BNE
JSR

DFSTRT
ALLSYS
MDFLAG
5%
#STACK,SP
ASKSYS
BUFFO,#'R
6
PC,INITSS

:SEE IF 200 START
:BR IF NOT
:RESTART- PROGRAM = 200 START
160 ASK FOR SUBSYS'S AND DRIVES AGAIN
:SEE IF 200 START
:BR IF YES, TO ASK AGAIN
SRE-INIT THE STACK
160 ASK FOR SUBSYS TO TEST AGAIN
"SEE IF R<CR> TYPED
:BR IF NOT
*INITIALIZE S.S.

S0RVPTR,DRIVE

:SET DRIVE NUMBER

TSTB
BNE

‘RE-INIT THE STACK

;CHECK STATUS OF DRIVE TO BE TESTED NEXT
MOove

]

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) O 2=JUL-80 09:52 PAGE 100
CZR6QC.P11
02=JuL-80 09:50
MTCART = MOUNT TEST CARTRIDGE, CHECK DRIVE STATUS

S064

0222564

142737

5066

022266

022126

5068
5069 0%2%70
S070 022274

737
1127g5

0000?0

5065 0§g§62 0047;7 021274
5067

005430

BI(B

JSR

108

#'0,0RIVE

PC,SCNDRV

SEQ 0098

;STRIP THE ASCII

sCHECK STATUS OF THIS DRIVE :

IF NOT VALID,

TYPE MSG AND RETURN

T0 WAIT FOR R<CR> AGAIN

S071
5072
S07
5074
5075
5076

022302
022
02% 14
0% 3%2
022326
022338

004737
01376
03276
001774
013762
032762

030124
8%8366
200

000001

sREAD THE HEADER ON SECTOR O.TlAfK 0,CYL O, AND GET THE DRIVE FORMAT
JSR
PC,INITSS
-lle. DRIVER PARAMS AND S.S.
MOVB
OIDHEAD.P.CHNO(Is) sSET READ HEADER COMMAND

000000
000000

24$:

024366
000200

000000
000000

26%:

SO078
5079
S080
SO81
5082

022342
022!‘3
022352
022360
022362

105037
0057
032762
00140
152737

003134
000024
001000

000024

000020

003134

5084
S085
5086
SO87
S088
S089
S090
091
092
S093
5094
5095
5096
5097
5098

022374
022400
022404
022406
022414
022416
022422
8ss6§2

004737
105737
001004
122737
001012
004737
004737
832777
1402
004737
005037
000207

026516
003126

5077

SO83

02%36

022370

022436
022442
022446

001774

004737

021140
0001%5

021140
000061
023714
024034
000200

28%:

003155
32%:
156504

027006
005442

308 :

JSR
MOV
BIT
BEQ
MoV
BIT

PC,DRVCAL
HOLD1,RKCST1(R2)
#RDY,RKCST1(R2)
248
HOLD2,RKCST1(R2)
#RDY,RKCS1(R2)

:D0 A READ HEADER
;DO A READ HDR, WITH FMT BIT = 0
:WAIT FOR READY

CLRB
TST
BIT
BEQ
BISB

FORMAT
RKDB(R2)
#BIT9,RKDB(R2)
28%
#B.CFMT, FORMAT

sINITIALIZE FORMAT BYTE T0 0
sPOP SILO ONE TIME
;TEST FORMAT BIT IN HEADER WORD 2
:BR IF 22 SECTOR FORMAT
;SET 20 SECTOR FORMAT FOR THIS DRIVE

JSR
TSTB
BNE
CMPB
BNE
JSR
JSR
BIT
BEQ
JSR
CLR
RTS

PC,REDBSF
MDFLAG
32%
#°'1,PASSNO
308
PC,DRVSER
PC,CRTSER
#B177,3SWR
30%
PC,TYPBSF
INTCHR
PC

sREAD BAD SECTOR FILE FOR THIS DRIVE
;SEE IF 200 START
:BR IF NOT 200 START
;sSEE IF FIRST PASS
:BR IF NOT FIRST PASS
:TYPE 'DRIVE SER. NO. XXxx''
;TYPE "'CART. SER. NO. O00OXXXXX"*
:SEE IF BAD SECTORS SHOULD BE TYPED
sBR IF NOT
;TYPE BAD SECTOR FILES
;INIT. TTY INPUT CHAR BUFFER
:RETURN

BEQ

JSR

PC,INITSS

;DO A READ HDR, WITH FMT BIT = 1
;WAIT FOR READY

:INIT THE S.S.

5099

:;ttttt'ttt't't"'"t'"'Q"Qtt'tt'ttt'tttttttttt't'tlt'tt't'tttt

5100
5101
5102

.SBTTL DMCART = DISMOUNT TEST CARTRIDGE
;s*THIS SUBROUTINE DIRECTS THE OPERATOR IN THE DISMOUNTING
:*0F THE TEST CARTRIDGE ON THE DRIVE CURRENTLY UNDER TEST.

5103

5104
5105
5106
S107
S108

022450
022450
022454
022460
0224

013700
112037
111037
004737

005554
010373
010372
021140

S110

022476

104401

010354

DMCART:

5109 022470 042762 000100 000000
511
Sll;
511
5114
5115
5119
511
5113
S11

ogzsoz
8 2502
22512
022516
0225 g
0225
022524
og 526
0225

106401
10“g1
004737
022542
022564
022502
005700
001025
104401

010552
010612
023402

005212

6%:

MOV
MOVB
MOVB
JSR

DRVPTR,RO
sGET DRIVE LIST POINTER
(RO)+,DISPAK+15. ;PUT DRIVE NAME INTO MSG
(RO) ,DISPAK+14,
PC,INITSS
sINITIALIZE SUBSYS

TYPE

DISPAK

BIC

5%:

TYPE
TYPE
JSR
12%
16%
5%
1ST
BNE
TYPE

#IE,RKCST(R2)

:DISABLE RKO6 INTRPT FOR MANUAL INTERVENTION

,TYPRWN
,DRIDON
PC,RDCHRS

;TYPE ''TYPE R<CR> WHEN *
sTYPE 'DONE :
:WAIT FOR R<CR> RESPONSE
:(*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS
:(*U) RETURN ADDRESS
sSEE IF NULL INPUT
:BR IF NOT NULL
+ECHO BAD INPUT

RO
8%
LBUFFO

:TYPE

"UNLOAD DRIVE XX AND REMOVE PACK

WVAWA A

WA VA A

R R R N N N O O O O O

OO O DA AN AN

A A VA VA A WA WA A WA VLA WA VAW

A VA

WA W

A WA W VA VTAVTA WA W

A VTRV

IS 2o 2 2 2o o I 2 T 2 Ll ol o o ol ol L ol el I I PO PO PO IR

~
NNO
OO0
OO
OO
O O VWVAVIWVIVAIVIVIVIVAA
\n:;‘«udcosflsmzwg-flSOQNOMbuN-OOONOVObuwdoogflgmrumdggaflo\nbm—io

l
COR K6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 101
P11
02-JuL=-80 09:50
DMCART = DISMOUNT TEST CARTRIDGE

022534

104401

001324

022542
022546
022552
ogzssa
022560
022564
052570
022572
022576
022602
022610
022612
022616

012706
1057
00100
000137
000137
105737
001744
012706
000137
023727
001347
004737
000207

001100
003126

sag 000760

TYPE

128:

012146
012752
003126

001100
013416
005212

148:
168:

000122

8S$:

021140

«SBTTL

$QUES

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

#STACK,SP
MDFLAG
14%
DFSTRT
ALLSYS
MDFLAG
5%
#STACK,SP
ASKSYS
BUFFO,#'R
63
PC,INITSS
PC

SRE=INIT THE STACK
:SEE IF 200 START
:BR IF NOT
:RESTART PROGRAM = 200 START
160 ASK FOR SUBSYS'S AND DRIVES AGAIN
:SEE IF 200 START
:BR IF YES, TO ASK AGAIN
‘RE-INIT THE STACK
160 ASK FOR SUBSYS TO TEST AGAIN
‘SEE IF R<CR> TYPED
:BR IF NOT
:INITIALIZE S.S.
‘RETURN

§s

MOV
1ST8
BNE
JMP
WP
TSTB
BEQ
MOV
JMP
CMP
BNE
JSR
RTS

SEQ 0099

AAdRRR

16O ASK AGAIN

2R R

RRRddRdddddd)

INTBLD = INITIALIZE TABLED

:*THIS SUBROUTINE LOADS TABLED WITH THE INITIAL PATTERN OF DRIVE NUMBERS
s*WHICH IS THE CYLINDER BLOCK LAYOUT FOR THE FIRST CURRENT ZONE. IT USES
:*THE STARTING DRIVE NUMBER LIST, STDLST, FOR THE FIRST COLUMN, AND
s *INCREMENTS THESE DRIVE NUMBERS ACROSS THE TABLE, FORMING ROWS. FOR

:*ANY DRIVE WHICH IS NOT PRESENT, THE ENTRY IS SET = 377.
R

022620

104407

022622
022626
022632
022636
022640
022644
022646

012700
012701
012703
112011
062701
005303
001373

006552
006112
000020

022650
022654
022656
022660
022662
022664
022670

012700
005001
005720
001404
005201
020127
002772

005512

000020

022672 012700 006112

022676 013704 000017
022702
022704
ozgr

112003
005203
20327

02%71&
02 718

005003
020301

022722

112720

0221

022720

;401

002403

022753 000401

022730

110320

000020

R T

INTBLD: SAVREG
:LOAD THE FIRST
MoV
MOV
MOV
4$:
MOVB
ADD
DEC
BNE

:SAVE RO-R5
COLUMN OF TABLED FROM STDLST
#STOLST,RO
;STARTING ADRS OF STDLST
#TABLED ,R1
sSTARTING ADRS OF TABLED
6. .R3
:SET COUNTER = 16
(RO)+,(R1)
:LOAD A BYTE INTO TABLED
#16..R1
s INCREMENT TABLED POINTER
R3
:DECR COUNTER
48
:BR IF NOT DONE YET
sGET INDEX OF FIRST ZERO ENTRY IN DRVLST INTO R1
MOV
#DRVLST,RO
;STARTING ADRS OF DRVLST
CLR
R1
sINIT INDEX TO O
68:
ST
(RO)+
:SEE IF ENTRY = 0
BEQ
8s
:BR IF YES
INC
R1
s INCREMENT POINTER
CMP
R1,216.
:SEE IF DONE LOOKING YET
BLT
6
:BR IF NOT DONE YET
: INCREMENT THE DRIVE NOS. TO FORM THE ROWS

8s:

MOV

#TABLED,RO

;INIT TABLED POINTER

18%:

MOVB
INC
CMP

(RO)+,R3
R3
R3,#20

sINIT ROW ELEMENT VALUE
sINCR ROW ELEMENT VALUE
:SEE IF ROW ELEMENT IS VALID

168:

MOV
BLT

20%:

000377

CLR
CMP

BLT

MOVB
22$:

B8R

MOVB

5. R4
20§

R3
R3,R1

22%

#377,(R0O)+

24$

R3,(RO)+

:INIT ROW ELEMENT COUNTER
:BR IF VALUE IS OK

TRESET VALUE T0 0
JSEE IF VALUE IS > ACTUAL DRIVES

:BR IF VALUE OK

:SET INVALID ENTRY = 377

:PROCEED

:SET VALUE IN TABLE

—_——— -

CZR6QCO RK6 DR _CPT PROG HAC;&1 30A(1052) OZ-JUL-OO 09:52 PAGE 105

CZR6QC.P11

02-JuL-80 09

88? 24
Ogs

006512

006112
000020

A==

P
ON =4

[e=l=lelelelelelelaT=}

248:

000377
000020

DEC
BNE

Rk
18%

CMP

;DECR _ROW ELEMENT COUNTER
:BR_IF NOT DONE WITH ROW YET

?2‘0TABL500256. .gEEllF
DONE WITH TABLE YET

8LO

T _DONE YET
7
lNlT COLUMN POINTER
l N IT COL. ELEMENT COUNTER
: SE E }F E%EHENT IS VALID

;SET INVALID ELEMENTS OF FIRST CbLUHN =
MOV

268:
30s:

#TABL ED RO

MOV

ne.,

BLT
Move

3 0%
#377,(RO)

DEC

CMPB

(RO).R1

ADD

0}6..R0

BNE

RESREG
RTS

26%
PC

:BR I
SE T INVALID ELEMENT = 377
INCR EMENT COLUMN POINTER
S E E IF ALL DONE YET
:BR l F NOT ALL DONE YET
R E S T gRE RO=R5
T
R ETURN

b oD

R o

2—

~N~
O
NSNS
SN NN NN STTRINS
=8 OO0 NO W N = OOV NOWVESWN=2O 3 ii“szUNsEUfl\i =883 ~ 832383838283233283 oo

VAWV AN WAV AWVWV AN

517?
52732

SEQ 0100

INTBLD = INITIALIZE TABLED

MAAAAA AR A

AR AR AR

AR AR

ARl

iRl

dlllldl

)

ROTBLD = ROTATE TABLED RIGHT 3 COLUMNS

:*SO THAT THE DRIVE DATA WILL BE ROTATED SEVERAL SECTORS IN EACH

NN
= el

'CURRENT IONE.
SAVREG

48:

MOV

: SAVE RO=R5
#TABLED+256.
,R0 :POINT TO END OF TABLED
RO R1
:GET A COPY IN R1
ns, R
:INIT ROW ELEMENT COUNTER

MOVB
MOVB
Move
DEC
BNE
MOVB
MOvVB
MOvVB
CMP

-(RO).STMP12
-(RO).STMP13
=(RO) ,=(R1)
R4
6%
$TMP11,-(R1)
$TMP12,-(R1)
$TMP13,-(R1)
22,ITA8LED

o
o

R2 EE e,

“C’J‘*‘-‘-‘-‘Nfli! —-_-NN

gs-.-nc,-.-.-.
S EC
pry

NSN

-»%g

SELE
33

ROTBLD

6$:

O=NNH NN

L
D

b S tg

N
~N

o
o

006512

B OO
=

P (LY

2700

prfourd

==l

sRkRRRRRARRRAARCCCCCRCCRCICORCORARRNRARRRAANAAAARAAARCRRCROROROOETS

MOVB

=(RO),$TMP11

:SAVE LAST 3 ELEMENTS IN THIS ROW

;MOVE AN ELEMENT RIGHT 3 PLACES
;DECR ROW ELEMENT COUNTER
:BR IF NOT DONE YET
;MOVE IN 3 SAVED ELEMENTS

;SEE IF DONE WITH TABLE YET
:BR IF NOT DONE YET
:RESTORE RO-R5
sRETURN

sttt RARRRRRRRERRRRRCERRORRRORRRRRARRRONRARRCARRANRORARRERORNNRETR

SBITL WRTBLK = WRITE ONE CYLINDER BLOCK
s*THIS SUBROUTINE WRITES ALL THE SECTORS FOR THE CURRENT DRIVE
;*INTO THE CYLINDER BLOCK WHOSE STARTING CYL NUMBER IS IN
;#P,CYLN(RS) ON ENTRY. THE DATA IS WRITTEN ON ALL
SURFACES
'INE LOGICAL DRIVE NUMBER MUST BE IN LOGDRV ON ENTRY.

'l! CALLS WRTSEC TO ACTUALLY WRITE EACH 256-WORD SECTOR.

g
388

sttt ttttRReREtRORRRRRRRRCRRRRARRAARRARAARRENRARORCERORARERRRORNTE

[=li=l=]

VT VAW

WAVAAWA VWA WA WA WA AW

;*THIS SUBROUTINE ROTATES ALL ELEMENTS OF TABLED RIGHT 3 COLUMNS,

B o

VAV WVAVAVAWVIVAIWAW WVAWAWVAWA N AW

.SBTTL

003154

URTBLK SAVREG

MOvVB
ASL

LOGDRV,RO
RO

: SAVE RO=R5
:GET LOGICAL DRIVE NO,
:CONVERT IT TO DATA PATTERN INDEX

CO RK6 DR

C.P11

CPT PROG MACY! 1 30A(1052)

02-JuL-80 09:50

02-JuL-80 09:52 PAGE 103
WRTBLK = WRITE ONE CYLINDER BLOCK

023074

016003

00651

MOV

023104

012704

000020

MOV

023112
02311
023120
023122

12 7;0
oo1§ 5
005300
160100

003154

og§1
023142
0%%166
023154
023156
023162
023166
023170
023172
023174

004737
105265
1225 7
003770
062701
005265
005304
001347
104410
000207

025746

023100 §1 701 00611%
0

11g 010100

023126
023132

116065
105065

48:
68:

006572
S

000004

000005

000002

8s:

000020
000002

5
6

SINIT CYLINDER COUNTER

MOV

R1,R0

MOVB
CLRB

JSR
INCB
CMPB
BLE
ADD
INC
DEC
BNE
RESREG
RTS

:GET TABLED POINTER

LOGDRV,(RO)+
6%
RO
R1,RO

:SEE IF DRIVE LISTED WERE
:BR IF NOT FOUND YET IN THIS ROW
:BACK UP BY 1 BYTE
: COMPUTE ROW POSITION

PC,WRTSEC
P.TRCK(RS)
P.TRCK(RS),#2
8s
6. .R1
P.CYLN(RS)
R&
48

:WRITE 256 WORDS AT THIS SECTOR
:INCR TRACK NO.
:SEE IF ALL TRACKS DONE YET
:BR IF NOT DONE YET
:POINT TO START OF NEXT ROW
:INCR CYLINDER NO.
:DECREMENT CYLINDER COUNTER
:BR IF 16 CYLS NOT DONE YET
:RESTORE RO=-RS
:RETURN

SECLST(RO),P.SECT(RS) ;GET SECTOR NO. FROM ROW POSITION
P.TRCK(RS)
;SET TRACK = 0

s*THIS SUBROUTINE CHECKS TO SEE IF THE PROGRAM IS CURRENTLY

;*READING OVRWRT OR COMPAT DATA WITH OFFSETS AND HANDLING DATA CHECK

s*ERRORS,

IF SO,

THE SCORE FOR THE DRIVE WHICH WROTE THE

;*FAILING DATA [S DECREMENTED,

61
5262
5263

:*ON ENTRY, THE BYTE LABELED ““TSTTYP'' HAS THE FOLLOWING
:*POSSIBLE VALUES :
ie
TSTTYP = 0 = NOT PRESENTLY READING WITH OFFSET
e
= 1
= PRESENTLY READING OVRWRT DATA WITH OFFSET
it
= 2 - PRESENTLY READING COMPAT DATA WITH OFFSET
i
= 3 - PRESENTLY READING SELF TEST DATA WITH OFFSET

5265
5

JoRtRRARRARRRRRARECNARRECCCRRORRRNERNANRANARRAAAAAARAARAANNANRORARES

5268
5269
5270
5271

023176
023200
023204
023206
023214

104407
105737
001474
032737
001470

5274
5275
3276

023216
023222
023230
023232
02323
02336

004737
122737
001002
005004
000431
013701

80 Og3ghe

8
87

6. Ré

s*CKSCOR = DECREMENT DRIVE SCORES ROUTINE

81
8
8
24
85

:GET DATA PATTERN WORD INTO R3

#TABLED,R1

stttk ARARANRERRRACCICRRANCRCARANANARARANAAAAAANAAARANNARORCOOES

TABLEG(RO)
,R3

MOV

CMPB
BNE
DEC
SUB

SEQ 0101

5
54

02326
023264

Q42701

301
301
01
01
701

000
123760

003143
000026

005424

034276
000003

003143

001174

177760

CKSCOR: SAVREG
TSTE
BEQ
BIT
BEQ
:GET THE NO. OF
JSR*
"
CMPB
BNE
(LR
BR
4$:
MOV

BIC

ASL
ASL
ASL
ASL
ADD

006112

001200

006572

6$:

CLR
CMPB

:SAVE_RO-RS
TSTTYP
:SEE_IF_CURRENTLY TESTING WITH OFFSET
208
:BR TO EXIT, IF NOT
#DCKERR!MVRCER,RECODE ;SEE IF A DCK OR HVRC ERR OCCURRED
208
:BR_IF NOT
THE DRIVE WHICH WROTE DATA WHICH CAUSED DCK OR HVRC ERR
PC,GTPKAD
;COMPUTE PACK ADDRESS OF ERROR
#3,TSTTYP
:SEE_IF DOING SELF-TEST
48
:BR_IF NOT
Ré
:SET DRIVE NO. = 0
108
: CONT INUE
SREGS,R1
:GET CYL NO. OF ERROR

#177760,R1
R
Rl
Rl
R
#TABLED,R1

:CLEAR HI CYL BITS

:CONVERT TO TABLED INDEX FOR ROW

;COMPUTE POINTER TO TABLED ROW
RO
INIT SECLST INDEX TO 0
SREG7,SECLST(RO) ;SEE IF SECTOR IS LISTED IN SECLST

023272

001405

0
73
0
023304

20027
002770
000434

023

060001

023312
023316
02 go
023324
ogsgso
023332
ogsssg
0 sgz
023344

122704
001427
012700
105737
001402
012700
105737
001410
oagroo

023356
023360

001402
062700

023372
023374
023376
023400

001001
105310
104410
000207

023274 §8szog
0 g 10

111104

RO, #16.
63
208

SEE IF WHOLE LIST CHECKED YET
BR IF NOT YET
:SECTOR NOT LISTED = EXIT, BECAUSE

ADD

RO, R1

000020

CMPB
BEQ
MOV
TSTB
BEQ
MOV
T1STB
BEQ
ADD

#377.R4
208
#NSCORO, RO
OFSDIR
128
#PSCORO, RO
SREG6
148
#16. ,R0

000020

BEQ
ADD

148
#16. R0

8s:

move

000377
007432
003156

007512
001176

108:

128:

CMPB

148:

ADD
CMPB

BNE
DECB
RESREG
RTS

208:

:INCR SECLST INDEX
;"

(RI),R&

SREG6,
M

R4, RO
(R0),OFSCNT
208
(RO)
PC

A AR RR

FAILING DRIVE IS NOT BEING TESTED

‘COMPUTE TABLED POINTER TO FAILING DRIVE

:GET ACTUAL DRIVE NO.

:SEE IF DRIVE IS NOT BEING TESTED
:BR IF DRIVE NOT TESTED
:GET ADRS OF NEG SCRATCH SCORES
*SEE WHICH OFST DIRECTION
:BR IF NEG
:GET ADRS OF POS SCRATCH SCORES
‘SEE IF TRACK = 0
BR IF YES
POINT TO SCORES FOR TRACK 1

*SEE IF TRACK = 1

BR IF YES
:POINT TO SCORES FOR TRACK 2

:COMPUTE POINTER TO SCORE FOR DRIVE
*SEE IF THIS SCORE IS PERFECT SO FAR
SEXIT IF NOT
:DECREMENT SCORE FOR THIS DRIVE
‘RESTORE RO-RS
‘RETURN

ddRdddd

dRdRdRtRRRddddd])

s*THIS SUBROUTINE READS A STRING OF UP TO EIGHTY INPUT

U LM M

s*CHARACTERS AT THE KBD, TERMINATED BY <CR>, AND PLACES
s*THEM IN BUFFO, TERMINATED BY A NULL (0) BYTE.
;*RUB=-0UT AND (“U) FEATURES ARE PROVIDED.
s*IMMEDIATELY FOLLOWING THE SUBROUTINE CALL, THREE SPECIAL
s*RETURN ADDRESSES MUST BE LISTED: THE FIRST RETURN IS
s*TAKEN IF (*C) IS TYPED, THE SECOND IS TAKEN IF (*2) IS

s*TYPED, AND THE THIRD l§ TAKEN IF (*U) OR INVALID INPUT IS TYPED.

soJF (*G) IS TYPED, THE SOFTWARE SWITCH REGISTER IS OPENED

:.;g.t=2g£'ICAtl°~' IF SELECTED, AND THEN THE (*“G) RETURN

:'}ziagUHB R OF INPUT CHARACTERS IN THE BUFFER IS RETURNED

nd UM M A

it
;s
I
I

d U

Sg
3
34
35

CALL -

JSR
PC,.RDCHRS
<CONTROL=C RETURN ADDRESS>
<CONTROL=Z RETURN ADDRESS>

<CONTROL=U OR ERROR RETURN ADDRESS>

Ll L

3‘

FERES

CMP
BLT
BR

000020

.SBTTL RDCHRS = READ A STRING OF KBD INPUT CHARS

Lrd Ll L

WAWVAVAWVAA WVAWA VA WA WA VA WVA WA VA A WA WA VAT

:BR IF YES

INC

;

023364 060400
23363 121037 003157

0
1
22
23
24
25

39
0
1

SEQ 0102

BEQ

023350 123727 001176 000001

VO NV

WINN=-O

g:ufldunuuuuununuflnul
) b e e e e e o cd b d

WA WA WA WA AN VTR A TA WA A A VAWM A

A A VAWV AW

SRR
R PR R R R R R R
T

CO Rk6 DR CPT PROG MACY11 30A(1052) 02 =JUL-80 09:52 PAGE 104
. P11
02-JuL-80 09:50
WRTBLK = WRITE ONE CYLINDER BLOCK

RE TURN

;;ttttt'ttt't'tt"tt't't't""tt'tt't.l'!t'tt'tttttt.ttttt'tttt't

033605
8 3402
53204
023406

010146

010246
005000

RDCHRS

MOV

MOV
CLR

R1,-(SP)

R2,-(SP)
RO

:SAVE R1

:SAVE R2
JINITIALIZE CHARACTER COUNT

023410

005001

023412

1044

023416

122702
001006
104401
017

000003

122702
001006
104401
0627
00076

000032

122702
001006

000025

CLR

012052
000004

012057
000002

0120M
000004

000004

00000«

000004

:GET CHARACTER INTO R2

38:

:PUT RETURN ADDRESS ON STACK

TYPE

CMPB

#032,R2

:SEE IF (*2) TYPED

TYPE

,CNTRLZ

SECHO (*2)

BNE

ADD
BR
:CHECK FOR (*U)
6%:
CMPB
BNE
78:

TYPE
ADD

B8R

CMPB

BNE

TYPE

#025,R2

118:

005444

;SEE IF (*U) TYPED

:BR IF NOT (*U)

:BR TO TAKE (*U) EXIT

,CNTRLU
#4,4(SP)

SECHO (*U)
‘MAKE OLD PC POINT TO NEXT RETURN ADDR.

#007,R2

:SEE IF (*G) TYPED

,CNTRLG

:ECHO (*G)

:BR IF NOT (*G)

;OPEN SOFTWARE SWITCH REG. FOR CHANGE
:TAKE (*U) RETURN

BEQ

:BR IF COUNT = 0

CLR

148
RO
R1

118
R1
§CRACH
R

:BR IF NOT RUB-OUT
:CHECK THE CHARACTER COUNT

:CHECK THE RUB-OUT INDICATOR

:BR IF WE HAD A PREVIOUS RUB-OUT
:SET RUB=OUT INDICATOR
:TYPE A BACK=SLASH (\)

1USE SCRATCH WORD FOR TEMP. BUFFER
:DECREMENT COUNT

MOVB

BUFFOCRO),SCRACH :GET LAST CHAR. INTO BUFFER

TST

BEQ

TYPE

SCRACH
s

;ECHO CMARACTER TO BE DELETED
160 READ ANOTHER CHARACTER

168

BR IF INDICATOR IS NOT SET

,BKSLSH

CLR

(MPB

gg1s. 2

:CHECK FOR CARRIAGE astuau

i6s

sMAKE OLD PC POINT TO NEXT RETURN ADR.
:BR TO TAKE (*Z) EXIT

;SEE IF RUB-OUT (DEL) TYPED

TYPE

148:

:BR IF NOT (*2)

ALY

BNE
INC

N
NO
O

#2,4(SP)
3%

:BR TO TAKE EXIT

CMPB

BNE
ST
ST

NSO
oW
N

JSR
;g.GTSHRG
BR
; CHECK FOR RUB-OUT (DELETE)

13 :

:ECHO (*C)

94(SPY,4(SP)

BR
248
:CHECK FOR (*2)

Bs:

000177

CNTRLC

;SEE IF (*C) TYPED
:BR IF NOT (*C)

MOV

:CHECK FOR (*G)

012076
021106

;READ A CHARACTER

MOVB
(SP)+,R2
;CHECK FOR (*C)
CMPB
#003,R2
BNE
11

is:

000007

N
w

OO0
o

000523

28
RSs
2322 83 8
sassszes
8 52355858
g82

0234264
0
023436

sINITIALIZE RUB-OUT INDICATOR

:READ A CHARACTER
RDCHR
s:

053414 112683

§\fl\fl\£\h\fi\fl\h\fl\fi
SELESFXER VR
SIINIFER

(VIVIVIVIVIVI

NN wa\fi\fl\fl\fl\fi\fl\fl\fl\fl\fl\fl\fl\fl\fl\fl\fl\fi\fl\fl\fl
U U U
N N N N NN
uwwuuu‘a\n\n\n\nm\nmmuma AN
NNNNN
FRELRE 22
VIS -0
w
WF
PR
SR
O
w
-g
VO~NOWVS
OO
SgEgegEEaE
-0 g O
W
e
83

(alal

RK6 DR PT PROG MACY11 30A(1052:
2-JUL-80 09:52 PAGE 105
"
02-JuL-80 09:50
KDCHRS = READ A STRING OF KBD INPUT CHARS

VAV

BEQ

;HANDLE POSSIBLE DIGITY

:CHECK THE RUB-OUT INDICATOR
STYPE A BACK=-SLASH

:CLEAR THE RUB-OUT INDICATOR

:SEE IF <CR> TYPED

:BR IF <CR>

CLR
Move
TYPE

SCRACH
R2,SCRACH
SCRACH

sUSE SCRATCH WORD FOR TEMP. BUFFER
:GET THIS CHARACTER INTO BUFFER
;ECHO THE CHARACTER TYPED

INC
CMP

RO
#80..R0

s INCREMENT CHARACTER COUNTER
:SEE IF TOO MANY CHARACTERS TYPED

MOove

R2,BUFFO(RO)

sPUT _CHARACTER INTO BUFFER

SEQ 0103

_CPT PROG
02-JuL-

MACY11 30A(1052)
09:50

§§1325

001?24
521

001325
000000
000006

233

~o&8

000000000 OO

gfikuc:

02-JUL-80

09:52

BNE

TYPE
MovB
TYPE
TYPE

005212

005212
000004

PAGE 106

ROCHRS = READ A STRING OF KBD INPUT CHARS

198:

TYPE

248:

MOV

AAAA L

+SBTTL

SCRLF

#0,BUFFOCRO)
BUFFO
$QUES

LSCRLF
#0,BUFFOCRO)

#6.4(SP)

(SP)+,R2

;PUT TERMINATING NULL INTO BUFFER
;ECHO INPUT STRING
STYPE <7>,<CR>,<LF>

:TAKE ERROR EXIT FROM RDCHRS
:TYPE <CR>,<LF>

:PUT TERMINATING NULL INTO BUFFER

:FIX UP RETURN ADDRESS

:RESTORE R2

(SP)+.R1
PC

SN0~
BBN
=2O

NN
- b s

;E SRS
~3
FRSNSRE

& ""‘:§§<,
.o-.z; ~N

S02S2S Ard ad (R N
00000000
< NNNNNNNNY NNNNN
a4
N

000001

:RESTORE R1
:SUBROUTINE EXIT

A L

PC,INITSS

R R

s 22222221111

eSS

:CLEAR S.S. AND PARAMETERS

;TYPE ' SER. NO.

#30CTVL ,Ré
R4 ,~(SP)

:GET ADDR OF CHAR BUFFER
:STORE IT ON STACK FOR $SUPRS

;INITIALIZE BIT POSITIONS

R1
R1
R1
R1
R1,R0

:GET NEXT & BITS

;READ STATUS OF THIS DRIVE
:TYPE ‘DRIVE"
*'

:GET "A’* STATUS BYTE 11

:INIT CHAR COUNT

:GET A WORKING COPY

#177760,R0

043356
001325

48
(R4)
PC,afSSUPRS
LSCRLF

:BR IF NOT 3 CHARS YET
; INSERT NULL TERMINATOR
;TYPE DRIVE SER. NUMBER
:TYPE <CR> AND <LF>

*RETURN

#'0,R0
RO, (R4)+

RESREG
RTS

ittt

:SAVE RO=R5

177760

000060

SRR

PC,DRVCAL
DRIV
" SERNM

#3,.R3
ROL

XXX'' (IN DECIMAL), WITH LEADING

#ROSTAT,P.CMND(RS) ;SET READ STATUS COMMAND
P.AT1(RS),R1

000003

DRVSER = TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

DRVSER: SAVREG
JSR

48:

SEQ 0104

;BR _IF NOT TOO MANY
s TYPE <CR> AND <LF>

s*THIS SUBROUTINE TYPES ‘DRIVE SER. NO.
;*IEROS SUPPRESSED.
OCO00O00O0O00O0O0O0O0O0O0O0O0O0OOOOOOOOO0O

PRI
I IIIIIIIIIIIIIIIII I 9YFRRR
3333
SV SOENERRUKZEIINIUNINNS

&»

SBIGNr
RN 2oBBIRIR aR28 g2
R

CO RK6 DR

;CLEAR ALL BUT LOW & BITS

;CONVERT A DIGIT TO ASCII
;PUT ASCII DIGIT INTO CHAR BUFFER

:DECREMENT

CHAR COUNT

:RESTORE RO-RS

T
NN RN R R R AR RN R AR RN
A RO RO RN RS

.SBTTL

CRTSER - TYPE CARTRIDGE SERIAL NUMBER

;*THIS SUBROUTINE TYPES ''CART. SER. NO.
;*WITH LEADING ZEROS SUPPRESSED.

024034

004737

021140

XXXXXXXXXXX'' (LjysOCIAL),

"t.t...""".""'0"'""'Q"il.'t't.'.Q."t".li.tt"t'tf"%'
PC,INITSS
CRTSER: JSR
sCLEAR S.S. AND PARAMETERS

008184

02616%
024152

104401
000207

5474
5475
5476

000007

PAGE 10

BICB

#B.CFMT,P.CSTH(RS)

BEQ
INCB

31
P.SECT(RS)

MOV
JSR

#-2,P.WC(RS)
PC DRVCAL

TSTB

48:

\h-‘-‘gfl\fl ’-.

16;7 S
105737
08140;
1 5;6
11§ 65
01 762
11276
012765
01 725
004737
104401
104401
012749
0047
004737

-2 (N NN = =
O~
WNO
W N~ =
PSS
N = =)
VIO
N O NO &~

Y4
472
567

024040
8 60‘3
02405
024056
024060
024
0240764
0 6105
0264110
0 k1lg
0 61%
026126
0;6132
024136
024142

09:52

S?
5
458
5459
5460
5661
gzbg
63
56464
56465
566
5667
5468
5469
5470

02-JuUL-80

SEQ 0105

CRTSER = TYPE CARTRIDGE SERIAL NUMBER

MOVE
MOV
MOVB
MOV
TYPE

FORMAT

,CART

» SERNW
#RWBUF
, = (SP)

TYPE

+SCRLF

RTS

F 22 SECTORS
o SECTORS, READ SECTOR 1

#RODATA,P.CMND 5 T READ COMMAND
LSTCYL,P. CVLN ) §£t CVL = 632(0CT)/1456(0CT)
#LSTTRK,P.TRCK(RS)
TRACK = 2
#RWBUF,P .BALO(RS) §er READ BUFFER ADDRESS

TYPE
mov

JSR
JSR

;SET 22 secroa ronnAr

; uec THE ACTUAL FORMA

PC,a#%0820
PC,a#SSUPRS
PC

stt WORD COUNT TO READ 2 WORDS
:READ SERIAL NO. IN BSF
:TYPE
''CART.’
;TYPE ''SER. NO.

'’

;GET POINTER FOR $DB20
:CONVERT BINARY TO OCTAL
;:TYPE CART. SERIAL NO.
:TYPE <CR> AND <LF>

IN OCTAL

sRETURN

;THIS ROUTINE ASKS THE OPERATOR FOR THE DRIVE TYOPE AND ALL FUTURE
sTESTS WILL BE PERFORMED ASSUMING ALL THE DRIVES ARE OF THAT TYPE
001325
007775
023402

GETTYP: TYPE
TYPE

JSR
GETTYP

GETTYP
GETTYP
1ST

024212

000760

5489

026214

022737

5491
5492
5493

5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
gggg

024224
024230
024236
024244
024252
024260
024266
024274
024276
024304
024
0246314
0243
8 4330
024336
024344
0%6352
024

105037
012737
012737
012737
012737
012737
012737
000; 14
022737
001336
152737
012737
01%737
012737
0127%7
012737
012737
000207

5510
5511

024362
024364

000000
000000

1$:

005212

28:

003133
024362
024364
024366
024370
024372
024374

.BUFFO

sTYPE <>

CMP
BNE

#'6,BUFFO
3%

MOV
MOV

#632,LSTCYL
#25,H0LD1

;SEE IF 6 TYPED
:BR _IF NO
;SETUP FOR RKO06

CMP

TYPFMT

#40.HOLDS
PC

:;7.BUFFO

#B.CDT,TYPFMT
#1456, LSTCYL

MOV
MOV

#1202% ,HOLD2
#200,HOLD3

MOV
MOV
RTS

LSTCYL: O
O

sASK AGAIN

#10025 ,HoLD2
#100,HOLD3
#60, HOLD4

BISB
MOV

MOV

HOLD1:

sASK DRIVE TYPE
sREAD INPUT STRING
s CONT=C RETURN
;CONT=Z RET
;CONT=U RET
;SEE IF CHAR TYPED
:BR IF NO
sEChy BAD INPUT

GETTYP

MOV

38:

JASKTYP

PC,RDCHRS

.SQUES

TYPE

MOV
MOV
MOV

024374

005212

TYPE

CLRB

024362

S888TTF

5487

005212
001324

BNE

+SCRLF

#2025 ' HOLD1

#160.HOLD4
0100 HOLDS

s SEE IF 7 TYPED

:BR IF

;SETUP FOR RKO7

lalal

HAC711 30A(1052)

IR6QCO RK6 DI PT P
ZR6GC.P1N
02-JuL-

lalal
NN

6QC0 RK6 DR CPT PROG

VAVTAWVTAWVWAWVTAAWA

6QC.P1

51§
513
514
g}z

02-JuL-80

024
0 4_7%
024372
024374

MACY1 30A(1052) OZ'JUL'BO 09:52 PAGE 103
09:50

= TYPE CARTRIDGE SERIAL NUMBER

000000
000000
000000
000000

HOLDZ2:
HOLD3:
HOLD4:
HOLDS5:

O
0
O
O

SEQ 0106

;CYL DIF
;COMPAT START CYL
sHALF CYL DIF

517
518
519
520
523

JRtRRRRRRRRARNRRIRRRCORRCCRRRCRARRRORNNRACRAAARANRANAROOOAOOOOONOOETR

A ATA A WAWA WA AN

524
525
526
527
528

SBTTL STALL = STALL FOR ST UNIT STALL TIMES
;*IF SWR BIT 8 = 0, THIS SUBROUTINE STALLS FOR ST STALL TIMES,
;*WHERE A STALL TIME = 40 US, FOR AN "'AVERAGE'' CPU. IF BIT 8
;*1S EQUAL TO 1, A RANDOM STALL IS APPLIED.
:* CALL =
JSR
PC,STALL

529

WAWAWA A WA WA WA WA WA VAA WV WU WA VT A AA A A WVTA VAWV AWV AWV A VNRA VAW

530
531
532
533
934
535
536
537
538
539
540
561
542
543
544
545
546
547
548
ggg

MAAAAAAA AL AL AR AR AR AR

024376
024400
024402
026410
024412
024416
024422
024426
8566
44
024434
024436
024442
024444
024446
024450
024452
024454
024456

010046
010146
032777
001407
004737
013700
006200
006200
03
13700
001406
012701
005301
001376
005300
001372
012601
012600
000207

STALL:

000400

154530

042240
042340

005432

1$:

000016

2%:
4$:

6$:

MOV
MOV
BIT
BEQ
JSR
MOV
ASR
ASR
BR
MOV
BEQ
KoV
DeC
BNE
DEC
BNE
MOV
MOV
RTS

k0,=(SP)
R1,=(SP)
#B1T08,aSWR
1%
PC,SRAND
$LONUM,RO
RO
RO
2%
STALLS,RO
6%
e, R
R1
4%
RO
2s
(SP)+,R1
(SP)+,RO
PC

llld)

;SAVE RO
:SAVE R1
sAPPLY RANDOM STALL ?
:BR IF NCT RANDOM
sGENERATE PSEUDO-RANDOM NUMBER
;GET IT INTO RO
;SCALE IT DOWN
;GO _STALL WITH RANDOM NO.
;GET REQUESTED NO. OF STALLS
:RETURN IF NO STALL REQUIRED
;SET _CONSTANT FOR 40 US
; INNER LOOP COUNTER
: INNER LOOP BR
;OUTER LOOP COUNTER
;OUTER LOOP BR
;RESTORE R1
;RESTORE RO
;RETURN

sss

Rttt tRtRRRRRRERCRERRERRROORRRRORRRARRAARRRRARARAROAARRARARROANAETR

554
555

:* LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF THE DATA PATTERN
'IN TABLEB INTO ALL 256(DEC) WORDS OF THE DATA BUFFER (RWBUF).

556

557

558
559

560

skttt RRdtRRRRRERRERRRREROORRARRERRARRARARARORAAROAARAOARAARRRONRORTS

024460

024462
024466

024472

104407

012701
012700

012703

053330
005766

000020

561 024476 012021
56; 024500 020127 054330
563 024504 103003
564
565
56?
567

0245
024510
024512
024514

005303
001372
000765
104410

LODSEC SAVREG
MOV
2%:
MoV
MoV

4s:

9%:

MOV
CMP
BHIS

DEC
BNE
BR
RESREG

#RWBUF ,R1
#TABLEB,RO

#16.,R3

(RO)+, (R1)+
R1,#RWBUF+512.
98’
R3
4%
2%

: SAVE RO-R5
:GET ADRS OF R/W BUF INTQ R1
sGET DATA PATTERN ADDRESS
s INIT PATTERN COUNTER

sMOVE A PATTERN WORD
:SEE IF DONE YET
:BR IF DONE

;DECREMENT PATTERN COUNTER
:BR IF NOT RESTARTING PATTERN YET
:BR TO RESTART PATTERN
:RESTORE RO-RS

0
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL=-80 09:52 PAGE 109
CZR6QC.PN
02-JuL-80 09:50
STALL = STALL FOR ST UNIT STALL TIMES

024516

000207

RTS

MAAAAAAA AL A

+SBTTL

SEQ 0107

;RETURN

ARl

FINADR = COMPUTE FINAL PACK ADDRESS

s*THIS SUBROUTINE IS USED AFTER A DATA TRANSFER HAS COMPLETED, TO
;*COMPUTE THE FINAL PACK ADDRESS AT TERMINATION. THE 2°'S COMP. OF THE
:*WORD NO. AT THE POINT OF INTEREST IS PASSED IN LASTWC. THIS IS USED WITH
;*P.CYLN(R5), P.TRCK(R5), AND P.SECT(R5) TO COMPUTE THE CORRESPONDING
;*PACK ADDRESS, WHICH IS RETURNED IN FINCYL, FINTRK, AND FINSEC.

:*THE SUBROUTINE IS USED TO DETERMINE THE PACK ADDRESS OF A SOF TWARE
:*DATA MISCOMPARE.

024520
024522

104407
013746

005474

024532 116616 obooog
391

Gauses

116566

00000L

000002

FINADR: SAVREG
MoV
NEG
188:
CLR
MOVB
CLR
MOVB
ADD
CLR

:SAVE RO=R5
LA;TUC.-(SP)
:STORE WORD COUNT
(sP)
IMAKE IT POSITIVE
-(SP)
:MAKE ROOM ON STACK
3(SP),(SP)
:STORE NO. OF SECTORS TRANSFERRED
2(sP)
:CLEAR LOCATION ON STACK
P.SECT(RS),2(SP) ;STORE STARTING SECTOR
2(SP), (SP)
;DETERMINE FINAL SECTOR ADDRESS
2(sP)
*CLEAR NO. OF TRACKS TRANSFERRED

MOV

TSTB

32
8§:8:‘.§
Uflszflb‘dh)

CD-‘hJUfiflkl*isrfl
NOORNONOOOW OONONONON NN
—

o
VIR
= RO W

e
-

066

V=0

82828582

o
~

oOonN

* 2235
o«»g:
Y Y,
o
!&F‘D ~N
SO

o
28988
S5
SS

NN
&H

00O

N
»

024674

NSNOWVOCNNN

5618

s =ty
=

[+ < X+

WAV

N
&»

VAW

EEEEE
NOWwWHs
W

000024

BEQ
198:

000002

005473

000005
000002
000002
000003

208:

000003
000002
005472
000002
005470

228:

CLR

(MPB

BHI

SUB
INC
BR
MOVB
ADD

MOV
ST
RESREG
RTS

:BR IF

20§

ADD

218:

198

BHI

INC
BR
MOVB
CLR
MOVB

RO, (SP)

‘DETERMINE THE FORMAT

22 SECTORS

:SET FOR 20 SECTORS

:CHECK FOR SECTOR OVERFLOW

:NO, CHECK IF SECTOR CORRECT

:DECREMENT SECTOR COUNT BY 20 OR 22

2($P)
198
(SP)+,FINSEC
-(SP)
P.TRCK(RS),(SP)

{INCREMENT TRACKS TRANSFERRED
:CHECK FOR SECTOR OVERFLOW
:STORE FINAL SECTOR
‘MAKE ROOM FOR TRACKS TRANSFERRED
:STORE STARTING TRACK

2(5P)

:CLEAR FINAL CYLINDER

2(sP), (SP)
#3,(SP)

22%

#3,(SP)
205P)
218
(SP)+,FINTRK
P.CYLN(RS),
(SP)
($P),FINCYL
(SP)+

A2l

.SBTTL

:SET FOR 22 SECTORS

FORMAT

#20. ,RO

SUB

#22. R0

MOV

CMP

:DETERMINE FINAL TRACK ADDRESS
*CHECK FOR TRACK OVERFLOW

:NO, CHECK FINAL TRACK

:DECREMENT TRACK COUNT BY 3
SINCR CYL COUNT
:CHECK FOR TRACK OVERFLOW
:STORE FINAL TRACK
:CALCULATE FINAL CYLINDER
:STORE FINAL
CYLINDER
*CLEAN OFF STACK
*RESTORE RO-RS
*RETURN

R R R

LODBUF - LOAD THE READ/WRITE DATA BUFFER

RRRRRRRRRRRRdl)

E%seoco RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 118
6QC.P11

02-JuL-80 09:50

LCDBUF = LOAD THE READ/WRITE DATA BUFFER

5624
5625
5626
5627
5628

;*THIS SUBROUTINE LOADS THE READ/WRITE DATA BUFFER (POINTED TO BY
s* PMA AND PMA+2) WITH THE APPROPRIATE REPEATING DATA PATTERN. IF
'PARAHETER PATRN = 0 ON ENTRY, THE DATA WHICH IS LOADED IS COMPRISED
s*0F ALL THE PATTERNS 00-15 (OUXCK VERIFY DEFAULT DATA TEST).
'IF PATRN 1S NOT O, THE NO. OF WORDS IN THE WORD WDSXFR

'ENTRY ARE LOADED INTO THE BUFFER.

seg

:*OF THE PATTERN IDENTIFIED BY THE NO. OF THE BIT SET IN R1 ON

56%1

5632
5633

5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
651
652
5653
5654
5655
5656
$657
5658
5659
5660
5661
566§
5663
5666
5665
5666
5667
5668

;;QttQttttt"ttt""t""'tt"t"'t"t.t't'ttlttt't't""'t't'tt'

024676
024700
024704
024710
024712
024716
024722
024726
024730

024732
024736

024740
024742
024744
024746
024750
024752
024754
8%6728
47
024764
024770
024774
024776
025000
025002
025004
025006
025010
025012
025014
025016
025020

104407
013702
005737
001007
012700
012746
012701
000422
005000
032701
001003
005200
006201
000772
006300
006300
006300
006300
0033
0627
012746
013701
010003
011604
012321
005302
001403
005304
001373
000770
005726
104410
000207

LODBUF: SAVREG
MOV
TST
BNE
MOV
MOV
MOV
BR
38
CLR

005466
005446
005566
000400
053330

000001

4%:

6%:

005566
000020
005504

308:
348

YA ¥

S669

BIT
BNE

INC
ASR
BR
ASL
ASL
ASL
ASL
ASL
ADD
MOV
MOV
MOV
MOV
MOV
DEC
BEQ
DEC
BNE
BR
TST
RESREG
RTS

WOSXFR,R2
PATRN
3%
#PATOO0,RO
#256. -(SP)
#RWBUF ,R1
308
RO
#B17T0,R1
6%
RO
R1
‘s
RO
RO
RO
RO
RO
#PAT00,RO
#16.,-(SP)
PMA,R1
RO,R3
(SP) ,R4
(R3)+,(R1)+
R2
443
R&
349
30%
(SP)+
PC

:SAVE RO=RS
;GET NO. OF WORDS
sSEE IF QUICK VERIFY DATA TEST DESIRED
sBR IF NOT QUICK VERIFY
sSET DATA PATTERN STARTING ADDRESS
sSET PATTERN WORD COUNT
;SET BUFFER ADDRESS
sPROCEED
sINIT PATTERN NUMBER

sSEE IF THIS BIT IS SET
sBR IF THIS BIT IS SET

s INCREMENT PATTERN NO.
sSHIFT TO EXAMINE NEXT BIT
:BR TO CHECK NEXT BIT
HULTIPLV PATTERN NO. BY 32(DEC)

sGET ADDRESS OF DESIRED PATTERN
sSET PATTERN WORD COUNT
sSET BUFFER ADDRESS
sGET A COPY OF PATTERN ADDRESS
sINIT PATTERN WORD COUNT
sLOAD A DATA WORD INTO BUFFER
sDECREMENT WORD COUNTER
sBR IF ALL DONE
;DECREMENT PATTERN WORD COUNT
sBR IF NOT DONE WITH PATTERN YET
BR TO REPEAT THE PAYTERN
sPOP THE STACK
RESYORE RO-R5
:RETURN

R
R e T e e e L

5670

SBYYL

CMPBUF = SOFTWARE COMPARE DATA

5671

s*THIS SUBROUTINE PERFORMS A SOF TWARE COMPARE OF THE R/W DATA BUFFER (POINTED

5674

:¢00-15 (QUICK VERIFY DEFAULT DATA TEST)

5672
5673

'TO 6Y PMA AND PMA+2) TO THE APPROPRIATE REPEATING DATA PATTERN. IF
'PARAHETER PATRN = 0 ON ENTRY, THE DAYA IS COMPRISED OF ALL THE PATTERNS

5675

'IF PATRN IS NOT O,

5676

THE NO. OF THE BIT SET IN R1 ON ENTRY IDENTIFIES THE

'REPEATING DATA PATTERN TO COMPARE AGAINST.

5677

g678
679

SEQ@ 0108

tttt'Qttttt.t"t't"t""t"'."'tt'lt..tttt.tt't!tttttt't'tt't

025022
025026

104407
112737

000040

051653

(HPBUF SAVREG
MOVB

#40,DH701+38.

: SAVE RO-RS
RESYORE ERROR MSG PARAMS

NCR——

CZR6QCO RK6 DR CPT PROG
CIR6QC.P11
02-JuL-80
5680

MACY11 30“1052) 02-JuL-80 09:52 PAGE 11
09:50
CMPBUF = SOF TWARE COMPARE DATA

025032

012737

000007

025044

0050

5444

5685
5686
5687
5688
5689
5690
$691
5692
5693
5694
5695
5696
5697
5698
5699

025060
025062
025
025072
0%5076
025100
025102
025106
025110
025112
025114
025116
025120
025122
02514

001007
012700
012746
012701
000422
005000
032701
001003
005200
006201
000772
006300
006300
006300
006300

5702

025134

5681

025040 0137 ;

5683
5684

025050
025054

5682

004737
005737

005466

053222

MOV

005566
000400
053330
38:
4$:

000001

68:

§700 ozs1§3 006300
5701 025130
062700 005566
§703
5704
§705
5706
707
708

§709
5710
§711

025140
025144
025146
025150

8551;2
025154

025160
025164

§712 025172
5713
§714
5715
5716
§717
5718
5719
§720
§721
§72
§723
§724
§725
5726
§72
§728
srgg
§730

5731
573§
5733
573
§735

025176
025204
025212
025216
025220
025224
ozss
025
025240
ozsz;s
025250
025252
025256
025260
ozszos
025270
025274
025

025304
025312
025314
025322
025324

012746

013701
010003
011604
022321

oo1og;
000137

105037
012737

005504

163737
013737
004737
104407
013700
113701
11370;
004737
104410
032737
001116
005737
001010
104034
012737
005037
005037
oos;sr

032777
oo1og4
022737
oo;soa
023737

308:
34$:

025514

010237 001202

005466
001202
024520

053222
001202
005474

31$:

;SET NO. OF WORDS

JSR
ST

PC,REPSUP
PATRN

:STORE PREV CMND FOR POSS. PRINT
:SEE IF THIS IS QUICK VERIFY DEFAULT DATA TEST

RO
#PATO00,RO

:GET ADDRESS OF DESIRED PATTERN

PMA, R
RO,R3
(SP) R4
(R3)+, (R1)+

:SET BUFFER ADDRESS
1GET COPY OF PATTERN ADDRESS
SINIT PATTERN WORD COUNT
:COMPARE DATA WORD TO PATTERN WORD

§55:

005424

005444
177777
001176
001200
005444
000001

001174

000012

005444

001174

005470

153626

SCRACH

BNE
MOV
MOV
MOV
BR
CLR
BIT
BNE
INC
ASR
BR
ASL
ASL
ASL
ASL

3$
#PATO0,RO
#256.,-(SP)
YRWBUF ,R1
308
RO
#8170,R1
68
RO
R
48
RO
RO
RO
RO

MOV

26.,-(SP)

MOV
MOV
MOV
CMP

46$:
48%:
368:

388:

:CLEAR COMPARE ERROR COUNT

:BR IF NOT
1GET DATA PATTERN STARTING ADDR
*SET PATTERN WORD COUNT
:SET BUFFER ADDRESS
:PROCEED
TINIT PATTERN NO.
SSEE IF THIS BIT IS SET
:BR IF THIS BIT IS SET
P INCREMENT PATTERN NUMBER
*SHIFT TO EXAMINE NEXT BIT
:BR TO CHECK NEXT BIT
TMULTIPLY PATTERN NO. BY 32(DEC)

:PATTERN WORD COUNT

BNE
JMP

318
408

:BR IF COMPARE ERROR
SJUMP IF DATA COMPARES OK

MOV

R2,SREG10

:GET WORD NO.

CLRB
DH701+38.
MOV
#5,DF25+2
COMMON COMPARE ERROR HANDLER

005470
005472
005473
030020

001000

WOSXFR.R

ASL
ADD

000020

051653
S

MOV
CLR

031212
005446

#7,0F25¢

SEQ 0109

SUB
MOV
JSR
SAVREG
MOV
MOVB
MOVB
JSR
RESREG
BIT
BNE
ST
BNE
ERROR
MOV
CLR
CLR
INC

BIT
BNE
CMP
BLT
CMP

WDSXFR,SREG10
SREGI0.LASTWC
PC,F INADR
FINCYL,RO
FINTRK.R1
FINSEC.R2
PC,BDSRCK

#BADSEC
, RECODE
508
SCRACH
368
34
#-1,3REGS
$REG6
SREG7
SCRACH
#8170,aSWR
388
#10.,SCRACH
548
$REGS,FINCYL

*ADJUST DATA HEADER FOR MSG
SADJUST ERROR DATA WORD COUNT

;GET 2'S COMP OF WORD NO.
:COMPUTE ACTUAL PACK ADRS
:SAVE RO-RS
SGET CYL
1GET TRACK
:GET SECTOR
:SEE IF THIS SECTOR LISTED BAD
‘RESTORE RO-R5

:BR IF LISTED- DON'T REPORT ERROR
:CHECK THE ERROR COUNT
:BR IF THIS IS NOT FIRST ERROR
:TYPE HEADING FOR ERROR MSG
SINIT CYL NO.
; INCREMENT THE ERROR COUNT

:SEE IF ALL ERRORS SHOULD BE REPORTED
‘BR TO REPORT ALL ERRORS
*SEE IF 10(DEC) ERRORS YET
‘BR If ERROR LIMIT EXCEEDED
:SEE IF DIFFERENT CYL

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 112

CIR6QC.P11

02-JuL-80 09:50

5736

025332

00101

§740
57641
§7642
. 5743
57644
§745
57646
57647
5748
5749
5750
§751
§752
§753
§754
§755
5756
§757
5758
§759
§760
§761

025352
025354
025 S
0 sg
025376
025400
02564064
025412
0256420
025426
025432
025436
025442
025450
025456
025462
025466
025474
025476
025504
025
025512

00141;
013737
113737
113737
104115
005437
016337
016137
013737
005037
006137
137
063737
005537
063737
010137
162737
104063
032777
001013
005737
001400

5763

85 3

881406

§765
5766
§767
5768
5769
§770
§771
§772
5773
5774
5775
5776

025522
0255264
025530
025534
025534
025536
025540

001002
000137
000137

CMPBUF = SOFTWARE COMPARE DATA

g;§2 8 g gg 12;?39 001176 005472
5739 025344 ?3332? 001200 005473

762

764

025514

005470
005472
005473
001202
177776
177776
001202
001210
001212
001210
005504
001210
005506
001214
000002
000100

001174
001176
001200
001204
001206
001212

4S:

001210
001214
153434

005446

508:

005302

408:

5304

025144
025150

53:
548:
568:

005726
104410
000207

§785 025542

122737 000001

5787
5788
5789
5790
§791

005737
001472
105737
001441
122737

5786 025550 001075
025552
025556
025560
025564
025566

42%:

003127

005442

003126
000003

005442

SEQ 0170

BNE

42%

:BR IF YES

BEQ
MOV
MOVB
MOVB
ERROR
NEG
MOV
MOV
MOV
CLR
ROL
ROL
ADD
ADC
ADD
MOV
SUB
ERROR
BIT
BNE
TST
BEQ

448
FINCYL,SREGS
FINTRK.SREG6
FINSEC.SREG?
115
$REG10
-2(R3),$REG11
<2(R1),$REG12
SREG10.SREG14
$REG13
SREG14
$REG13
PMA, SREG14
$REG13
PMA+2,SREG13
R1,$REG1S
#2.$REG15
63
#B1T6,aSWR
548
PATRN
408

:BR IF SAME PACK ADDRESS
:SET NEW PACK ADRS FOR PRINTOUT

gzga
C(MPB

001212

§777

5778
5779
5780
5781
§782
5783
57“

DEC

BEQ

2sgco.rxutax
SREG?,.FINSEC

548

‘SEE,}'ygé"E"E"' TRACK
:SEE IF DIFFERENT SECTOR

:TYPE NEW PACK ADDRESS
1GET WORD NO.
:GET GOOD DATA
:GET BAD DATA
:COMPUTE PHYSICAL ADDRESS

;GET VIRT. ADRS FOR PRINTOUT
;TYPE GOOD AND BAD DATA, MEM. ADRS.
*SEE IF JUST 1 ERROR SHOULD BE REPORTED
‘BR IF JUST 1 ERROR SHOULD BE REPORTED
:SEE IF DEFAULT DATA TEST
:BR IF YES
*DECREMENT WORD COUNTER

‘BR IF ALL DONE

DEC

*DECREMENT PATTERN WORD COUNT

T1ST
RESREG
RTS

(SP)+

:POP THE STACK
‘RESTORE RO-RS
‘RETURN

BNE
JMP
JMP

538
308
348

:BR IF NOT DONE WITH PATTERN YET
SJUMP TO REPEAT THE PATTERN

:;"tt.'.."."""'""'i""."".'....'t.'.il."'.i"'!'QQ."'
t¢ CTLOUT - THIS SUBROUTINE CHECKS FOR (*C) OR (*2) TTY INPUT,
‘«IF (*C) WAS TYPED, THE SUBROUTINE RETURNS TO DRVTST. IF (*2)
‘«WAS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER CASE,
‘«A RESET INSTRUCTION IS EXECUTED, AND THE STACK IS RE-INIT:«JALIZED. IF THERE IS NO INPUT, OR INPUT OTHER THAN (“C) OR (*2),
:#NO ACTION IS TAKEN.
i+ CALL =
JSR
PC,CTLOUT
i¢+
OR =
CKEXIT
.‘ 212232233 33233232333323323323333333333333333333333333333333313]

CTLOUT: CMPB

BNE

ST
BEQ
TSTB
BEQ
CMPB

#1,TSTING

10§

INTCHR
108
MDFLAG
128
#003, INTCHR

;SEE IF CURRENTLY RUNNING TESTS

:BR IF NOT RUNNING TESTS

*SEE IF ANY TTY INPUT
:BR IF NO INPUT
*SEE IF DEFAULT MODE RUN
‘BR IF YES
“SEE IF (*C) TYPED

CIR6QCO RK6 DIOSPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 113
CZR6QC.P1
=JUL-80 09:50
CMPBUF = SOF TWARE COMPARE DATA

SEQ 0111

5;32 8 57§ 012980 012752

792

025574

001026

BNE

;BR IF NOT (*C)

5795
5796
5797
5798
5799

025602
025604
025610
025614
025622

000005
005037
105037
012737
O1 702

00566;
0031
031472
0011og

6$:

RESET
CLR
CLRB
MOV
MOV

INTCHR
TSTING
SERRHDL ,A.ABNL
#STACK,SP

sRESET ALL DEVICES
:CLEAR TTY CMAR BUFFER WORD
sCLEAR TTY ESCAPE ALLOW FLAG
;RESTORE ERROR MANDLER ADDRESS
:RESET THE STACK

5801

0256

004737

030124

JSR

PC,DRVCAL

;00 CLEANUP RECALIBRATE

025644
025650
025652
025660
025662
025666
025670
025676

005037
000110
122737
001021
012700
000745
122737
001012

001102

CLR
JMP
CMPB
BNE
MOV
BR
CMPB
BNE

STSTNM
ar0
#032,INTCHR
7%
#ASKSYS,RO
2%
#003, INTCHR
7%

;CLEAR THE TEST NO.
:EXIT FROM TESTS
;SEE IF (*2) TYPED
:BR IF NOT (*2)
;SET RETURN ADDR = ASKSYS
sTAKE EXIT
sSEE IF (*C) TYPED
:BR IF NOT

025704
025710
025714
025722
025724
025732
025734
ossuo
025744

104401
012700
112737
000727
122737
001002
004737
004737
000207

TYPE
MOV
MOVB
BR
CMPB
BNE
JSR
JSR
RTS

,CNTRDY
#HLTPRG,RO
#'1,PASSNO
2%
#007,INTCHR
8%
PC,GTSWRG
PC,PREPKB
PC

:TYPE 'PRESS CONT WHEN RDY''
:SET HALT ADDRESS
;RESTORE PASS NO. TO 1
sTAKE EXIT
;SEE IF (*G) TYPED
:BR IF NOT (*G)
:OPEN SOFTWARE SWR FOR MODIFICATION
;ENABLE KBD INPUT AGAIN
:RETURN

5800

5802

5803
S804
5805
5806
5807
S808
S809
5810

S811

5812
5813
5814
5815
5816
5817
S818
819
sgg?

025626

025640

025700

11 73

105037

104401

000113

MOV

003056

000001

MOVB

003143

000032

CLRB

005442

4$:

005442

12%:

013416
000003

011537

TYPE

011507
033530
000061

003155

000007

005442

021106
020744

7%:
8$:
108:

5822
5823

#ALLSYS,RO

;SET RETURN ADDR = ALLSYS

#RECAL.P.CMND(RS) ;SET RECAL COMMAND

TSfTYP

L,HLTRQD

:CLEAR OFFSET TEST IDENTIFIER

;TYPE "HALT REQUESTED'

582‘

;:tt"tt'.tttttttt't't't""t"tt'ttt'.tttt!tt'!.t'tttt"t'tt"t'

5825
5826

;*WRTSEC = WRITE A BLOCK OF 400(OCT) WORDS ONTO THE DISK.
;*THE PARAMETER BLOCK MUST BE PRE-LOADED WITH THE PACK

ggg;
5829

S830
5831
5832

:~Ggggess. DATA WORD IS PASSED IN R3 ON ENTRY. RWBUF IS THE BUFFER
o.

025746

104407

025750

012700

025760
025762
025764

010320
005301
001375

5833 025754
5834
5835
5836
5837
5838

025766

5839 025774

5840
5841
5842
5843
gg:g
5846

026002
026010
026014
026016

012701

012765

112765
004737
104410
000207

2;tntnnnnnnn"nnntnnnnnnun"nnnnnnnnn

WRTSEC: SAVREG
;LOAD THE R/W BUFFER WITH DATA
MOV
#RUBUF ,RO

053330

000400

053330

177400

000123
030124

48:

000010

000012
000001

MOV

#400,R1

MOV

#-400,P.WC(RS)

:SAVE RO-RS

:BUFFER ADDRESS

:400(0CT) WORDS

MOV
R3, (RO)+
;LOAD A BUFFER WORD
DEC
R1
:DECR COUNTER
BNE
48
:BR IF NOT DONE YET
:SET UP PARAMETERS
MOV
#RWBUF ,P.BALOCRS) ;SET BUS ADDRESS

:séT WORD COUNT

:MRITE THE DATA
MOVB
#URDATA,P.CMND(RS) :SET WRITE COMMAND
JSR
PC,DRVCAL
:MRITE THE DATA
RESREG
;RESTORE RO-RS
RTS
PC
;RETURN

|
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-B0 09:52 PAGE 114
CZR6QC.P1N
02-JuL-80 09:50
CMPBUF = SOFTWARE COMPARE DATA

SEQ@ 0112

JRRRRRRRRARRRACCRRCRORRCCCCCRRRRNRRRQRAQANOORAERGONRONENOOOOCACNORETS

'LDHEH1 = LOAD MEMORY WITH INCREASING NUMBERS STARTING WITH 1.
;*LDMEM2 = LOAD MEMORY WITH REPEATED WORD, IN R3 ON ENTRY.

:*BOTH SUBROUTINES REQUIRE MEMORY ADDRESS IN PMA, PMA+2, AND WORD COUNT

5864
5865
5866

0260564
026056

MAAAAAL

guunt §§¢>

~NO &~

xS SRISERT

8o
NN
S~
et

geeeeg

VWA

nNO S~

2222
fiflgfigggfinvfiuhl
222
SFRSRRS

[elelelelelolelelela]

SEEELS
SRE83%2

'HUST BE IN WDSXFR.
AL A A A

LDHEH\ SAVREG
CLR

000001

LDMO:

5704

AR R

#1,R3
LDMO

MoV

#-1,R4

6$:

MOV
MOV
MoV

WOSXFR,R2
PMA,R1
R3,(R1)+

.s:

BNE
INC

8s
R3

108:

128:

TST

AR A

MOV
BR

LDMEM2: SAVREG

177777
005466
005504

A AR AR A

ARl

iRl

; SAVE RO=R5
iR4=0 INDICATES LDMEM1
: SAVE_RO=R5

:R&=177777 INDICATES LDMEM2
:GET NO. OF WORDS
:GET MEM ADRS
;LOAD A WORD INTO BUFFER
;SEE WHICH DATA DESIRED

:BR IF NOT INCREMENTING DATA
: INCREMENT THE DATA

sDECREMENT COUNTER

RTS

;RETURN

iRl ailll)

:INIT DATA WORD TO 1
:PROCEED

DEC

BNE
RESREG

:BR IF NOT DONE LOADING YET
;RESTORE RO-R5

R L
R T
T
T

:*CKMEM1 = PERFORM SOFTUARE COMPARE OF MEMORY, WITH INCREASING
:*NUMBERS, STARTING WITH 1.

'%:flsgzoa :5?;9RH SOF TWARE COMPARE OF MEMORY, WITH REPEATED DATA WORD
T

:'?273032?:OUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE
B

JRRRERRRRARARRERCCECROCTCOCCCERRRORNROARANRAARARRANARNOARANORARNORRS

CKMEM1: SAVREG
CLR
MOV
BR
CKMEM2: SAVREG
MOV
CKMO:
MOV
MOV

000001

CLR

051653
053222

026150
026154
8 6168
026170
026174
026176
026202

001

004
1
0
1

N~ N)CD:;:B
ON

026146

5895
96
5897
98
5899
5900
5 901
5902
5903

68:

MOVB
MOV
JSR

CMP
BEQ

R4
#1,R3
CKMO

#-1,R4
WDSXFR,R2
PMA,R1
SCRACH

#40,DH701+38.
#7,0F25+2
PC.REPSUP

RS (R1)+
168

:COMPARE ERROR HANDLER

001202
005474

MOV
SUB
MOV
JSR
SAVREG
MOV
Move

R2,SREG10
WDSXFR,SREG10
SREG10.LASTWC
PC,FINADR
FINCYL,RO
FINTRK,R1

save RO-RS
R4=0 INDICATES CKMEM
SINIT DATA TO 1
:PROCEED
:SAVE RO-RS
*R4=177777 INDICATES CKMEM2
:GET NO. OF WORDS
:GET MEM ADRS
;RESTORE ERROR MSG PARAMS
:STORE PREV CMND FOR POSS. PRINT

*COMPARE A DATA WORD
:BR IF DATA COMPARES OK
;GET WORD NO.

:GET 2°'S COMP OF WORD NO.

: COMPUTE AgTUAL PACK ADRS

: SAVE RO:GET CYL
:GET TRACK

PT PROG

MACYi1 30A(1052) 02-JuL-80 09:52 PAGE 11;
09:50

005424

051653
000005
005444

053222

177777

001174

000012

005444

001174

005470

001176

005472

98:
17$:
11$:
108:

128:

001174
001176
001200

001202

R
-cg-.-a.ao
&80
OoONOMNON

pary

NN
o VIRV
©
n

o
S

148:

15%:

001206
001212

PC,BOSRCK

BIT
BNE
CLRB
MOV
ST
BNE

#BADSEC
, RECODE
16
DH701+38.
#5,0F25¢+2
SCRACH
108

CLR
CLR
INC
BIT
BNE

$REG6
$REG7
SCRACH
#B1T0,aswR
12%

ERROR
MOV

001210
001214
152446

34
#-1,$REGS

#10.,SCRACH
CMP
BLT
218
(NP
$REGS,FINCYL
BNE
148
CMPB SREG6,F INTRK
BNE
148
CMPB
SREG7.FINSEC
BEQ
15$
MOV
FINCYL,SREGS
MOVB
FINTRK,SREG6
MOVB
FINSEC,SREG?
115
ERROR
NEG
$REG10
R3,$REG11
MOV
MOV
=2(R1) ,$REG12
$REG10,SREG14
MOV
$REG13
CLR

18%:

208:

21%:
22%:

;GET SECTOR
;SEE_IF THIS SECTOR LISTED BAD
;RESTORE RO-RS5

;BR IF LISTED= DON'T REPORT ERROR
sADJUST DATA HEADER FOR MSG
;ADJ. ERROR DATA WORD COUNT
sSEE IF FIRST ERROR IN THIS BLOCK
:BR_IF NOT FIRST ERROR
:TYPE HEADING FOR ERROR MSG
sINIT CYL NO.

; INCREMENT THE ERROR COUNT
;SEE_IF ALL ERRORS SHOULD BE REPORTED
:BR TO REPORT ALL ERRORS
;SEE IF 10(DEC) ERRORS YET
:BR _IF ERROR LIMIT EXCEEDED
:SEE IF DIFFERENT CYL
:BR _IF YES
:SEE IF DIFFERENT TRACK
:BR_IF YES
:SEE IF DIFFERENT SECTOR
:BR _IF SAME PACK ADDRESS
;SET NEW PACK ADR FOR PRINTOUT
:TYPE NEW PACK ADRS

;GET WORD NO.
:GOOD DATA
:BAD DATA
;COMPUTE PHYSICAL ADDRESS

$REG14

MOV
SUB
ERROR
BIT
BNE

R1,S$REG1S
#2.8REG15
63
#B1T6,aSWR
218

sGET VIRT ADRS FOR PRINTOUT

18T

$REG13
PMA,SREG14
$REG13
PMA+2,SREG13

:PROCEED WITH COMPARISONS

168:

026514

SEQ 0113

ROL

ROL
ADD
ADC
ADD

001212

FINSEC,R2

JSR

RESREG

005473

88888388838
S
8
S
©- A i A e b e e

NONNN

NO~NSN

W =5 N N

152636

NNNNNWVWNNNNOSN

d
-

[=l==]

MOVEB

001000

026144

CMPBUF = SOF TWARE COMPARE DATA

20
s S
e O
o
8
S8r
818282888
WVINOOWN
3882802

Son&

S\n\nbPl~N

oocororOrOONONONON
o

NN ORI

[=l=llelelelelelelelel]

CZR6QCO RK6 DR S
CZRrR6QC.PN
0 =JUL-80

:TYPE GOOD AND BAD DATA

;SEE IF JUST 1 ERROR SHOULD BE REPORTED
:BR IF JUST 1

BNE
INC

188
R3

sSEE WHICH DATA DESIRED
:BR _IF NOT INCREASING DATA
: INCREMENT THE DATA WORD

DEC
BEQ
JMP

R2
218
63

:DECR_COUNTER
:BR IF DONE COMPARING
;CONTINUE COMPARING WORDS

;RESTORE RO-R5
:RETURN

RESREG
RTS

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 116
CZR6QC.P1N
02-JuL-80 09:50
CMPBUF = SOF TWARE COMPARE DATA

5961
596
596

SRR

~N
&H
w

N WV WVWWIBIWININ

000007
000001
000002
000005

JSR
BICB
MOVB
MOV
MOV8
MOV

RN NN NN RN NRARRNNNNAARNOONNNNNOORNS

7
7

PC,INITSS

LSTCYL,P.CYLN(RS)
#2,P.TRCK(RS)

0. .r3

:SET FACTORY BSF SECTOR LIMIT

:BR IF 22 SECTORS

FORMAT

MoV

#BDSCHD,A.ABNL ;SET ERROR HANDLER FOR BSF READ

MOV

14$:

MOV

~ro
Vi &~

82
e
wWOo

128:

JSR

WCEFLG
PC,DRVCAL
WCEFLG

MOV

;INIT THE ERROR FLAG
*READ THE FACTORY BSF
:SEE IF ANY ERRORS

:GATHER STATUS FOR PRINTOUT

HLTPRG

*MALT= CAN'T PROCEED

120

:BR IF NOT
:CHECK NEXT SECTOR
:SEE IF LIMIT EXCEEDED YET
‘BR IF NOT YET

:ABORTING= BAD BSF READ

#BSSOFT,P.BALO(RS) ;SET BA FOR SOF TWARE RECORD
R3,P.SECT(RS)

:SET STARTING SECTOR NO.

FORMAT

1SEE IF 22 SECTOR FORMAT

9. R3S

1SET 20 SECTOR LIMIT

SSET 22 SECTOR LIMIT

:BR IF YES

#BDSCHD,A.ABNL ;SET ERROR HANDLER FOR BSF READ
WCEFLG
;INIT THE ERROR FLAG
PC,DRVCAL
:READ THE SOFTWARE BSF
WCEFLG
*SEE IF ANY ERRORS

168
#2,P.SECT(RS)
P.SECT(RS),R3

16$:

:SET WORD COUNT FOR 1 SECTOR

128
#2,P.SECT(RS)
P.SECT(RS),R3
13
PC,REPSUP

148

003056

*SET STARTING FACTORY BSF SECTOR NO.

#BSFACT,P.BALO(RS) ;SET BA FOR FACTORY BSF

#2%. .83
003056

031472

8s:

108:

0Cv010

;SET CYL = 632/1456

;SET TRACK = 2

#-400,P.WC(RS)

—

033530
003162
000004
000026
003134

INIT THE §.S.

#8.CFAT,P.CSTH(RS)
:SET 22 SECTOR FORMAT
#RODATA,P.CMND(RS) ;SET READ DATA COMMAND

MOV

000004

031212

AN ARRNANANNRRARANNOANAONAOROONRONS

6%:

000012
000010
003056

000004

000

N RN NN

PsSECT(lS)

W
WWVIAN
NI NN NV

N~ NNWNNWWWIINDO

$5%8
o

o
~

flfls: N
&&

= cooo

OO
SNNNN

14%
108
#ERRHDL ,A.ABNL
PC

:BR IF NOT
:CHECK NEXT SECTOR
:SEE IF LIMIT EXCEEDED YET

:BR IF NOT YET
sREPORT ERROR AND ABORT
;RESTORE ERROR HANDLER ADRS
sRETURN

s*THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO HANDLE

g g oous

[=1=]

987

5985

REDBSF:

'dii

ooorororONONON

598

VIS
W
=0O

a228s2=2
D
RO e D Bt
VIR
=
RO NSRR oo VAR PIN VAW =2 VAR NI NN N
~
WVISNIS NNONNYNNIN
S NN N~
“C"“‘J‘*“Q:‘a:;:;;
(1]
WWHWO
O WO
CDCF-‘\dtfl\dtfl(hi:‘)(h‘?tfl‘:tfiCDCFCFLH

\h\h\n\h\fisa\fl\h\n\n

SIRARARRRRRARRAN RN NN RN RO

5969
5970
97
597
597
5974
5975
5976
5977
5978
5979
5980
5981

AVl

RN R RN RN

s*INTO BSSOFT,

5967

222228 $E8RRRERERTENE
3 b 3

:*REDBSF = READ FACTORY BSF INTO BSFACT, AND READ SOF TWARE BSF

5965

5989
990
599N
5992
5993

RRARAR RN N R

SEQ 0114

000
105237
7

031472
003145
033742

000034

; *POSSIBLE ERRORS IN READING BAD SECTORS.

BDSCHD: BIT
BNE

48:

JMP
INCB
JMP

#BSE 'HVRC 'DTE 'OP1'DCK,P.ERCRS)

‘s

ERRHDL

WCEFLG
RE TNAL

:SEE IF ANY REAL ERRORS

:BR If A READ ERROR OCCURRED

:GO HANDLE OTHER ERROR

*SET ERROR FLAG
:TAKE NORMAL DRIVER RETURN

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 115

CZR6QC.PN

02-JuL-80 09:50

SEQ 0115

CMPBUF = SOFTWARE COMPARE DATA

JRRNRRARAANARRARTRCCN
RN RN RRRNNRRANARNNRRERNNAANRAANONOROOCORESE

'TYPBSF = TYPE FACTORY AND SOF TWARE BAD SECTOR FILES (BSF'S)

;*WITH THE CYLINDER, TRACK,

AND SECTOR NO. OF EACH BAD SECTOR

'LISTED SEPARATELY, IN A TABLE OF OCTAL VALUES, FOR EACH OF THE
MUAAAAAL AR

A AR

TYPBSF: %C:REG
011732
011757
051420
001325

027050
027054

104401
10660;

011777
001325

0
027066

-0

48:

MOV

#BSFACT+10,R0

TYPE

,DH6041

TYPE
TYPE

TYPE

CLR

ST
BPL
ST

BNE

TYPE

012117

,S$CRLF

(RO)
8s
R1

ARl

ddl

:ADRS OF DATA IN FACTORY BSF

:TYPE "FACTORY''
:TYPE "BAD SECTORS'
:TYPE
"CYLNDR TRACK

148

$CRLF

:TYPE <CR>,<LF>

:TYPE ''NONE"'

TYPOC
TYPE

(RO)+,=(SP)

sGET A CYL NO.

,SPACE2

:TYPE SEPARATORS
:GET TRACK AND SECTOR

MOVB
MOV

TYPOC
TYPE

ST
INC
(NP

(RO),R3
R3
R3
R3,-(SP)
,SPACE2

(R0),R3
R3,-(SP)
,SCRLF

(RO)+
Rl
R1,026.

SECTOR"

sINIT LIMIT COUNTER
;SEE IF A SECTOR LISTED HERE

:BR _IF YES
;SEE IF FILE IS EMPTY
:BR IF NOT EMPTY

,NOFALS

il ldddl)

;SAVE RO-RS
:INIT BSF FILE INDICATOR

148

MOV

TYPOC
TYPE

001325

+FACTBS
.BDSECT

MoV
CLRB
SWAB
MOV

012117

JTYPE IT

sGET THE TRACK NO.
sTYPE IV

sTYPE SEPARATORS
:GET SECTOR NO.
sTYPE IT

sINCR THE POINTER

BNE

183

MOV

‘BSSOFT01O RO

s INCR THE COUNTER
;SEE IF LIMIT REACHED IN THIS FILE
:BR IF NOT YET
;SEE IF BOTH FILES TYPED YET
:BR_IF YES
:SET INDICATOR FOR SOFT. FILE
:ADRS OF DATA IN SOF TWARE BSF

gee

INT- o

-2

——

BR
RESREG
RTS

sRETURN

—t -2
=B
=

o0 =3=4

127

l
~N

0O o

oN
~

027112

WV
w

2 22
22 ERERRERERAERAER

—_

ViV AV

6049
6050

104401

RPN VNN N
~N~N ~
~
~

6042

3$:

8s:

O b

6036
6037
6038

104401
104401
104401
104401
005001
005710
1

A R

-0

6031
6032
6033

6172

027016
027022
0 705%
027032
027036
027040
027042

gsssess
O
NV = AN O VW
8PS 2..
133
&~
NS
= ®

6028
gg

o
&

: *2 BSF'S.

000176
148:

1ST

TYPE

18%:

sttt

3§0FTGS

:TYPE ''SOF TWARE BAD SECTORS :'
:GO TYPE SOFT. BSF
:RESTORE RO-R5

ttttRtetttet Rttt Re RO RRRRARRARRRRRRRRRRRARARRRRRRROOORORCETSE

'FlNflEl = COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER

'(TERHINATED BY BSE ERROR), AND STORE IT IN WDSXFR.

"t.Q.tt..t'.'"""""."t""..'.li"tt.ttt"""".tt'Q.i"

CZR6QCO RKé 0'05" PROG MACY11 30A(1052)c 02-JUL-80 09:52 PAGE 118
CZR6QC.P11
=JUL-80 09:50
MPBUF = SOFTWARE COMPARE DATA

607§ 8 7162 016500 00000;
607

104407

6076
6075
6079
6077
6078
6079
6080
6081
608%
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092

0271
02N
027176
027200
027204
027 og
027212
0%7 14
027220
027222
0%72%8
0272
027232
0%7234
027240
027242

116501
11650§
00500
026500
001006
126501
001003
126502
001404
005203
004737
000763
000303
010337
104410
000207

MoV

FINMEM: SAVREG

00000
000004

000030

Move
Move
CLR
CMP
BNE
CMPB
BNE
CMPB
BEQ
INC
JSR
B8R
SWAB
MOV
RESREG
RTS

6$:

000027
000026
027244
005466

8s:

128:

SEQ 0116

P.CYLN(RS)
,RO ;GET ORIG. CYL NO.
: SAVE RO=-R5

P.TRCK(R3)
,R1
P.SECT(RS),R2
R3
P.DCYL(R5)
,RO
8s
P.DTS+1(R5)
,R1
8s
P.DTS(RS) ,R2
128
R3
PC,INCRSC
6%
R3
R3,WDSXFR
PC

6093

R L

6094
6095

s*INCRSC = INCREMENT PACK ADDRESS TO NEXT SECTOR
:'}:ERSYLINDER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR

6097
6098

6099
6100
6101
6102
6103
106
6105
6106
6107
6108
6109
6110
g}};

& i

027244

8572;0

7254
027256
0272
027264
027266
027270
027272
027274
027300
027302
027304
027306

012704

105737
001402
012704
005202
020204
003407
005002
005201
020127
003402
005001
005200
000207

000025
003134

000023

;GET TRACK NO.
;SECTOR NO.
sINIT SECTOR COUNT TO 0
;COMPARE ORIG. AND CURRENT CYLS
sBR IF NOT EQUAL
;COMPARE TRACKS
;BR IF NOT EQUAL
s COMPARE SECTORS
:BR IF ADRS ARE EQUAL
sINCR SECTOR COUNT
sINCR PACK ADRS BY 1 SECTOR
;GO _COMPARE ADDRESSES
:COMPUTE NO. OF WORDS XFERRED
;STORE IT
;RESTORE RO=R5
;RETURN

R e e

E;ttttt.tt.ttt.tQ't"'t'0"'"t'tttttt!tt.ttt'ttttttt'tttt"t't"
INCRSC: MoV
#21. R4
sSET SECTOR LIMIT
48:

000002

6$:

1ST8
BEQ
MoV
INC
CMP
BLE
CLR
INC
CMP
BLE
CLR
INC
RTS

FORMAT
48
#19. R4
R2
R2,R¢
6%
R2
R1
R1,#2
6%
R1
RO
PC

;SEE IF 22 SECTOR FORMAT
:BR_IF YES
;SET SECTOR LIMIT
: INCR, SECTOR NO.
;SEE IF SECTOR LIMIT EXCEEDED
:BR_IF NOT
;SET SECTOR = 0
s INCR. TRACK NO.
sSEE IF TRACK LIMIT EXCEEDED
:BR_IF NOT
;SET _TRACK = 0
: INCR. CYLINDER NO.
;RETURN

the
6115

6116
6117

s*MIDXFR = MID=TRANSFER PARAMETER UPDATE SUBROUTINE
;*THIS SUBROUTINE UPDATES PMA, PMA+2, P.BALO(RS),

6119
6120

s*TERMINATED BY A BAD SECTOR ERROR (BSE), A DATA CHECK ERROR (DCK),
:*OR A HEADER VRC ERROR (HVRC).

6118
6121

R R R R R R R R

R RN R RN AR RN RN

RRNRR RN

:*P.BAHI(RS), AND P.WC(RS), IN PREPARATION TO RESUME A TRANSFER
PR

612;
6123
6124

027310
027312
057;13

104407
004737
016500

027160
000030

6127

0273

013703

005466

6125 02732¢ 116301 000027
61 9 0273;2 11gso§
26

AR RN

MIDXFR: SAVREG
JSR
MOV

MOVB
Move
MOV

R R

R R R AR RN A RN RN

AR RRR AR R RO R ORI RO RS

PC,FINMEN
P.DCYL(R5) RO

:SAVE RO-RS
:COMPUTE NO. OF WORDS XFERRED
;GET CYL NO.

WOSXFR,R3

:GET NO. OF WORDS TRANSFERRED

P.DTS#1(RSS R1
P.DTS(RS),RS

:GET TRACK NO.
;GET SECTOR NO.

CZR6QCO RK6 DR s PT PROG
CZR6QC.P1Y
02-JuL~
61
61

8 7336
1344

032737
1004

6131
61
61
61
6135
61
61
61
6139
6140
6141
6142
6143
6146
6145
6146
6147
6148
6149
6150
6151
615
615
6154
6155
6156
6157
6158
6159
6160
6161
61
6163
61664
6165
61
616
6168
6169
6170
6171
6172
6173
6174
6175
6176

735
7
[4
7
7
027376
027404
0 7608
027410
027412
027414
027420
0274264
0274
027436
027442
027446
027452
027454

7
018065
110165
110265
020 5
802 65
1022
005004
006103
8281
337
005537
060437
01;765
013700
042700
150065
104410
000207

#OCKERR,RECODE

9
#400,R3

27?;

SEQ 0117
;SEE IF DATA CHECK ERROR OCCURRED

R3.P.WC(RS)

;BR IF YES
:SKIP BAD SECTOR
: INCREMENT PACK ADRS TO NEXT SECTOR
;UPDATE CYLINDER
:UPDATE TRACK
:UPDATE SECTOR
UPDATE P.WC(RS)

168

:BRIF YES

PC, INCRSC

RO,P.CYLN(RS)
R1,P.TRCK(RS)
Ri.P.SECt(IS)

#DTBAIL,P.PRST(RS) ;SEE IF BUS ADRS INCR INMIB SET
R4

:GET BYTES XFERRED

R3,PMA
PHA+2

;UPDATE PMA,PMA+2

R& ,PHA+2
PMA,P.BALO(RS)

PMA+2 RO

n77784,
R0

~
~N s

005424

sgsses
gg-eS

000020

N
MACY! SOAUOSZ)c 02-JUL-80 09:52
PAGE 119
MPBUF = SOF TWARE COMPARE DATA

AR A A

;UPDATE P.BALO(RS)

RO,P.BAHI(RS)

;UPDATE P.BAHI(RS)

sRETURN

sRESTORE RO-R5

TR R

SRR RS

sty

s*SVPRMS = SAVE INITIAL PARAMETERS FOR TRANSFER
¢*GTPRMS - RESTORE SAVED TRANSFER PARAMETERS

027456
027460
027464
027470
0%7676
02750
02751
027514
027516
0575
8 7526
027530
027534
027536
027540
027542
027544

104407
012700
012701
016537
005437
12737
5037
000405
104407
012700
012701
012702
012021
005302
001375
104410
000207

AR A

SVPRMS: SAVREG
MOV

2222112

;SAVE RO-RS

#PARMO+2,RO
#SAVPRS , R1

:ADRS OF PARAMS
:ADRS OF SAVE AREA

WDSXFR

;MAKE IT POSITIVE

PMA+2

SINIT PMA+2 TO 0

P.WC(RS) ,WDSXFR " ;GET WORD COUNT
#RVBUF ,PMA

610

#SAVPRS , RO

:ADRS OF SAVE AREA

:ADRS OF PARAMS

(RO)+, (R1)+

:MOVE A WORD

R2
6%

:SET FOR 5 WORDS

:SEE IF DONE YET
:BR IF NOT YET

:RESTORE RO-RS

: CONTINUE
:SAVE RO-RS

oruagOoé.a1

#5.R

AR AR A

:INIT PMA TO RWBUF

*RETURN

;*TRNSFR = PERFORM A DATA TRANSFER,

SRR

2222222

AND HANDLE BAD SECTORS

:*OR DATA CHECK ERRORS, IF ENCOUNTERED.
;*THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SUB-

s*ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLED,
s*AND IT IS ALSO USED TO HANDLE THE DATA CHECK ERRORS CAUSED
:*BY READING DATA WITH OFFSETS, IN THE OVERWRITE AND DATA COMPATIBILITY

——

CZrR6QC.PI11

02-JUL-80 09:50

CMPBUF = SOFTWARE COMPARE DATA

6184

6185

6186

6187
6188
6189
6190
6191
6192

6193

61
6195
61
6197
61
6199
6200
2%01
Og
620
6206
6205
6206
6207
6208
6209

s*TESTS.

02754

02755
8 7552
75
0275
02757
027574

027600

0%7
027610
027612
027616
027622
027626
0276
027632
027634
027640
027644
027646
027654

&1)2«.6
105037
5037
1;7 7
105037
004737

032737

001410
005204
0067%7
004737
005765
001353
005704
001404
004737
004737
012604
012737
000207

RN RN AR

TRNSFR: MmOV
883166
5424
020526
003135
030124

000026

003056

4$:

005424

6$:
027516
027456

003056

CLR
CLRB
CLR
MOV
CLRB
JSR

BIT

023176
027310
000012

031472

8$:

BEQ
INC
JSR
JSR
TST
BNE
TST
BEQ
JSR
JSR
MOV
MOV
RTS

RN PR

PR PR RN

R&,=(SP)

R&
DCEFLG
RECODE
#OCKHDL ,A.ABNL
ERRCNT
PC,DRVCAL

SEQ 0118
N RN RN RN AR

R RN NRRN RO

;SAVE R4 ON STACK

sCLEAR ERROR INDICATOR
sCLEAR DCK ERROR FLAG
sCLEAR ERROR FLAGS
;SET DCK ERROR HANDLER ADRS
sCLEAR ERROR RETRY COUNT
:PERFORM THE S.S. FUNCTION

#BSERR
' DCKERR ! HVRCER, RECODE

6%
R4
PC,CKSCOR
PC,MIDXFR
P.WC(RS)
(31
R4
8%
PC,GTPRMS
PC,SVPRMS
(SP)+,Ré4
#ERRHDL ,A.ABNL
PC

OOROOEROERES

sSEE IF BSE OR DCK OR HVRC ERROR OCCURRED

:BR IF NOT
sINCR ERROR INDICATOR
sDECR. DRIVE SCORE, IF NECESSARY
sUPDATE PARAMS TO RESUME XFER
sSEE IF ENTIRE XFER IS COMPLETED
sBR IF NOT
sSEE IF ANY ERRORS OCCURRED
:BR IF NOT
JRESTORE ORIGINAL PARAMS OF XFER
:RESTORE WDSXFR,PMA,PMA+2
;RESTORE Ré4
;RESTORE NORMAL ERROR HANDLER ADRS
:RETURN

6210

RL
R e ]

6311

.SBTTL

6212
6213
6214

SEARCH BAD SECTOR TABLES ROUTINE

s*THIS ROUTINE RETURNS A LIST OF BAD SECTORS FOUND IN
s*«THE SPECIFIC TABLE (BAD SECTOR SOFTWARE OR BAD SECTOR FACTORY)
:*FOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MUST

222}2

;*CONTAIN THE CYLINDER AND TRACK, RESPECTIVELY.

6217
6218
6219

s*THE 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.

6220

6221
6222
6223
6224
6225
6229
622
6228

027656
027662
027
027672
027674
027700
027706
027710

010237
010337
012637
011402
012437
062737
005003
062702

62
6231
62
6235
2534
35
6239
623
6238

027716
0277
027722
027724
0277
0277
0277
02774
027742

100430
020012
001406
570;
20237
002021
000766
0057;2
011; 7

ozgg 027714 005712

001266
001270
001272

001264
001000

001264

000010

SRHTBS: MOV
MOV
MOV
MOV
MOV
ADD
CLR
ADD

18:

000004
001264

001302

6239 027746 042737 174377 001302

3%:

BMI
CMP
BEQ
ADD
CMP
BGE
BR
TST
MOV

BIC

R R

R2.$TMP2
R3,$THP3
(SP)+,$THP4
sSTORE RETURN CONTENTS OF R4
(R&4) ,R2 :GET ADDRESS OF BAD SECTOR TABLE TO SEARCH
(R4)+,$THPT
sSETUP FOR LENGTH OF BAD SECTOR TABLE
#1000,$THP1
R3
:CLEAR R3 FOR COUNT
:
#10,R2
:SET R2 FOR POINTER TO CYLINDER ENTRY

(R2)

5%
RO, (R2)
3%
¥ ,R2
R2,$THP1
5%
1%
(R2)+
(R2) ,$TMP10

:TEST IF ALL ONES

: YES-DONE
sTEST IF BAD SECTOR IN PRESENT CYL
sYES=GO CHECK TRACK
sELSE BUMP POINTER
sTEST IF OUT OF TABLE
SYES=EXIT
:LOOP
sTRACK CHECK = PUT POINTER AT TRK/SEC BYTE
:GET TRK/SEC WORD

#174877,8THP10 :CLEAR ALL BUT TRACK

lalal

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 123

CZR6QCO RK6 DR CPT PROG HAC;&1 SOA(IOSZ) 02°JUL°80 09:52_ PAGE 12%

CZR6QC.P

6240

02-JuL-80 09

027754

23701

4
&

0 776%
8 7762

00140
0057

027766

00520

027776

000746

624

6245
6246
6248
6249
6250
6251
6252
625
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6229

7764

0277
027772

0
030002
030006
030012
030016

001303

010346
012702
013703
013746
000204

48:

177700
5%:

001266
001270
001272

S$TMP10+1,R1
48

;CHECK IF BAD SECTOR IN THIS TRACK
:YES = GO PUT SECTOR NUMBER ON STACK

B8R

160 TEST NEXT CYL

INC
MOV

(R2)+

R3
(R2)+,=(SP)

BIC

#177700,(SP)

MOV

$THP2 ,R2

BR
MOV

MOV
MOV
RTS

1%
R3,=(SP)

$THP3.R3
$THPL. =(SP)
R4

:ELSE BUMP POINTER TO NEXT CYL WORD
:BUMP BAD SECTOR COUNT
:PUT TRK/SEC WORD ON STACK

:CLEAR ALL BUT SECTOR NUMBER
160 CHECK REST OF FILE
:EXIT = PUT NUMBER OF BAD

:SECTORS ON STACK=RESTORE
:REGISTERS
:PUT RETURN ON STACK

:RETURN

stk RRRRRRARARCERCCORRRCCRCCCARANANANAEAANRAANAAANAAOACONORONCOESY

.SBTTL

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 IN THE
:*TABLES THE ROUTINE SETS THE 'BADSEC'* FLAG AND RETURNS. IF THE SECTOR
'IS NOT LISTED THE FLAG IS RESET.
JERARRRRARAARACERRRCE
RN RN
RRONNANRARANANAAARNAAAARONANAROONRONSE

030020
030022
030030
030034
030036
030040
0300;2

104407
012737
437

030060
030062
030070
030072
030074
030076
030100
030102
030104
030106
030114
030116
030120
030122

000763
042737
104410
000207
022602
001403
005303
001374
000756
052737
005303
001764
005726
000774

012603
001015
02?{27

004162
027656

030034

001000

BDSRCK SAVREG
MOV

2%:

18:

003162

2368 ggggSg 8?272# 003162 030034

6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
629
629
6294

CMPB
BEQ

0007

01% 46
042716

SEQ 0119

ARCH BAD SECTOR TABLES ROUTINE

005424

78:

38:

005424

8s:
9s:

#BSFACT,1$

:SET TABLE TO SEARCH

R4 ,SRHTBS

:GO SEARCH IT

MOV
BNE

(SP)+,R3
6$

;GET NUMBER OF BAD SECTORS, IF ANY
:IF ANY, GO TEST WHICH ONES

BEQ

s1F
_YES-EXIT

2%
#BADSEC,RECODE

GO SEARCH IT
:CLEAR BAD SECTOR BIT

. WORD

CMP

MoV

6$:

001000

JSR

BR
BIC

RESREG
RTS

CMP
BEQ
DEC
BNE
BR
BIS
DEC
BEQ
TST

BrR

18,#BSSOF T

#BSSOFT,1$

(SP)+,R2
8s
R3
6$
7%
#BADSEC ,RECODE
R3
&%
(SP)+

;TABLE ADDRESS GOES HERE

:ELSE TEST IF OTHER TABLE ALREADY SEARCHED

:SET OTHER TABLE FOR SEARCH
sRETURN

:THIS SECTOR IN TABLE?
;YES-GO SET BIT & EXIT
;DECREMENT BAD SECTOR COUNT
:IF NOT ZERO-CHECK NEXT ENTRY
;ELSE GO SEARCH OTHER TABLE
;SET BAD SECTOR BIT
sCLEAR STACK OF OTHER BAD SECTOR
:NUMBER

JEXIT

"I"Q..'.'.l.'Q"""'C0""""""..'l"t'tll"t'llt"!."".i

.SBTTL CALL DRIVER ROUTINE
'ENTRV JSR PC,DRVCAL
'REYURN RTS PC

WITH RS POINTING TO PARAMETER BLOCK

'THIS ROUTINE IS USED TO INITIATE A SUBSYSTEM OPERATION BY

;*CALLING THE DRIVER. THE PARAMETER BLOCK MUST BE SET UP
:#BY THE CALLER AND RS MUST POINT TO THE PARAMETER

—_———

C%R22C0P¥§6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 123
02-JuL-80 09:50

SEQ 0120

CALL DRIVER ROUTINE

::BLOCK WHEN THE ROUTINE IS CALLED.
;*THIS ROUTINE WALITS FOR THE OPERATION TO BE COMPLETED.
s*WHILE WAITING THE WATCHDOG TIMER IS CALLED TO PREVENT
;*SILENT DEATH IN CASE THE SUBSYSTEM DOES NOT PROVIDE AN
;*INTERRUPT, THE TERMINATION HANDLER ROUTINES WILL SET THE DONE
s*FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER.

6315
6316

b NN
b

BRVCAL:

WO
NO

030
030172
030174

=0NSWSN
OO

OOOWwWwWWneS

o izUiUiEBE;fiJN)
(=1=
[=l=]
E;hfi

""'"Q"'Q""Q't""'"'"Q".'.'""'."CQ.'QQ..Q'Q'Q'QQ"'

48:
68:

001773
000207

JSR
JSR
CLRB
CLRB
JSR
MOV
JSR
.WORD
JSR

PC,STALL
PC.CTLOUT
DONE
DRNAFG
PC,STRCMD
RS,4$
PC.C.INIT
PC,W.WTCH

;PERFORM A STALL IF REQUIRED
:CHECK FOR (“C) OR (*Z) KBD INPUT
:CLEAR DONE FLAG
:CLEAR DRIVE SIEZED BY OTHER PORT FLAG
:STORE PREV AND CURRENT COMMANDS
:GET PARAM BLOCK ADDRESS
:CALL DRIVER
:P.B. ADDRESS GOES HERE
:CALL WATCH DOG

BEQ

:NO-LOOP

TSTB

DONE

RTS

:DONE SET?

*YES=RETURN

MUAAAAA AL RAAAAAAAARRAARARRRARRRRR
AR
AR lRRRRRRdRRddRdl)

'SYRCHD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS

sRtRARARRRARAARERERORCAROCRRERRRRNRRARARRANCARAOANARCERARAORRONNOOESE

OO —

005162
005176

O=PNNNNNN
NO =2 b b b h b

OO00O0O0O0
b
e

N
N
&»

SPONNONON oo

D e
e
e

030210
030212

=O0000000

6327
6328

030206

6325

0
12701
12700

o—

6350 030200

005176

sracno SAVREG
MOV
MOV
sSTORE PREVIOUS
MOV
MOV
MOV
MOV

#PRYCMD,R1
#COMSTR,RO

COMMAND
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+

MOV
(RO)+,(R1)+
(RO)+,(R1)+
MOV
;STORE CURRENT COMMAND
is:
MOV
#COMSTR,R1

MOV

MOV
MOV
MOV
MOV
MOV
RESREG
RTS

(RS)+, (R1)+

(RS)*,(R1)4
(RS)+,(R1)+
(RS)+,(R1)+
(RS)+,(R1)+
(RS5)+,(R1)+
PC

:SAVE RO-RS
;ADDR OF PREV COMMAND STORAGE
:ADDR OF CURRENT COMMAND STORAGE

sRS POINTS TO DRIVER PARAM BLK

;RESTORE RO-RS
:RETURN

::tQ.'tt'."..'i"""'""'"'Q"'.'.t...ttl"itt""t't."""t

.SBTTL

DRIVE ERROR FREE RETURN ROUTINE

s*THIS ROUTINE IS CALLED BY THE DRIVER WHEN NO ERROR

;*HAS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE
:'ggzngEAG THAT IS TESTED IN THE DRIVER CALLING
&

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 12§ 10

CIR6QC.P11
6§S§

6353

6354

030250

02-JuL-80 09:50

1557 7

ogo 56

032737

03027¢
030300
030302
030306
030314
030316
030322
030326

105737
001410
005037
113737
104101
105037
005037
000207

000377

100000

8336 030366 105037 003135
6357 030 93 000413

6358
6359
6360
6361
6362
6363
6364
6365
63“

DRIVE ERROR FREE RETURN ROUTINE

003132

005424

003135
001174
003135

1$:

030330
030332
030336
038344
030346
030352
030354
030356
030
030364

6387
6388
6389
6390
6391
639
6393
6396
6395
6396
6397
6398
6399

030370
030372
030374
030400
030406
030403
030412
030416
030420
030422
830‘33
030430
030434

6386 030

104407
105237
032777
00140;
000137
005000
005005
005105
113700
005300

22 2222 2 R

2222232222222 222222¢%]

#377,DONE

;SET_THE DONE FLAG

ERRCNT
1%

11 NO"2 D0ERROR RECOVERY PRINT TEST
SEXIT

#ANYDER,RECODE

ERRCNT
1%
$REGS
ERRCNT,SREGS
101
ERRCNT
RECODE
PC

:TESTI:

ANY DATA ERROR

:CHECK IF ANY ERRORS HAVE OCCURRED
INO = SKIP TO EXIT
;GET RETRY COUNT
:PRINT RETRY SUCCESSFUL MESSAGE
:CLEAR ERROR COUNT
:CLEAR RECOVERY FLAGS
*RETURN

006300
006300
062700
012037
001406
104401
104401
104401
000000
012037
001467
104401
104401

030444

104403

03044
030450
030454
030462
030464

000
104401
032777
001133
106401

030443

-ruxs ROUTINE USES THE "ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
:*ERROR IS TO BE REPORTED. IT THEN USES THE ''ERROR TABLE'' (SERRTB)
:+ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
;*THE ERROR.
"t'.'tttt""""t"Q""t'"Q'tt."'Qt"'.'tt.'..'.tt""'tt'

003137
020000

150574

030752

001114

006300

6400 030440 013746

6403
6404
6405
6406
6407

TSTB
BEQ
CLR
MOVB
ERROR
CLRB
CLR
RTS

::QQQQQQQQQQ"'t"""""t'""Q'Q'Q"'i"...."""t"t""tt"

6376
6377
6378
6379
6380
6381
6382
6383
6384
6385

640

BiRE
BR

.SBTTL TYPE ERROR ROUTINE
;*ENTRY JSR
PC,TYPERR
-neruau RTS
PC

6371
6372
6373
6374

6401

BIT

001174

003135
005424

i i

ERRFRE: BISB

2%:

6367
6368
2;93

6375

A Ai i

SEQ 0121

tYPERR: SAVREG
INCB
9%:
BIT
BEQ
JMP
68:
CLR
CLR
COM
MOVB
DEC

ASL

001410
030420

1$:

012103
045400
28:
3$:

030576
001325
045366

001102

ASL
ASL
ADD
MOV
BEQ
TYPE
TYPE
TYPE
MORD
MOV
BEQ
TYPE
TYPE

MOV

TYPOS

002

.BYTE

012103
010000

050522

150456

BYTE
TYPE
BIT
BNE
TYPE

DRVERS
#SW13,aSWR
6%
20$
RO
RS
RS
SITEMB,RO
RO

RO
RO
#SERRTB,RO
(RO)+,28
3s
,CR2LF
,AS2SP2
O
(RO)+,48
58
,SCRLF
TSTASG

$TSTNM,-(SP)
2

0
,CR2LF
#B1T12,aSWR
208
,DH105

:INCR ERROR COUNT FOR THIS DRIVE
:INHIBIT ERROR TYPEOUTS?
:BR IF NO
;:CLR RO FOR ERROR NUMBER
SINIT INDENT INDICATOR
:ENTER ERROR NUMBER
:FORM INDEX FOR ERROR TABLE

:FORM ADDRESS OF ERROR ENTRY
:GET EM POINTER
:BRANCH IF THERE ISN'T ONE
;TYPE "'av
:TYPE ERROR MESSAGE (EM)
:EM POINTER GOES MERE
:GET DH POINTER
:BR IF THERE ISN'T ONE
;TYPE "'

TEST

:GET TEST NO. ou svucx
STYPE IT

2 DIGITS

:SUPPRESS LEADING ZEROS

:REPORT DESCRIPTION ONLY ?
‘BR IF YES
3
:TYPE "PREVIOUS COMMAND :

CZR6QCO RK6 DR CPT PROG MACY11
4
30A(1052)
02-JuL-80 09:52
CZR6QC.PI1
02-JUL-80 09:50
TYPE ERROR ROUTINE

6408
6409
6410
6411
641%
6413
6414
6415
6416
6417
6418
6419
6420
6421

030470
030474
030500
030504
030510
030514
030516
030520
030524
030526
0305
030534
030540
030544

104401
104401
104401
012701
01%702
01224
10440
104401
005301
001372
104401
104401
104401
104401

6423 030554
6424 030556
6425 030560
6426 030564
6427 0305
6428 030570
6429 030574
6430 030576
6431 030600
6432 030604
6433 030606
6434 . 030614
64;2 82821
64
2
6437 030622
6438 030624
6439 osoogg
6440 0306
6441 030632
6442 030634
6443 030636
6444k 030640

012246
104402
104401
011246
104402
104401
104401
000000
104401
005005
032777
001056
12001
1454
012000
012002
112003
105720
005703
001417
005705
001002

6446
6447
6448
6449

013146
104402
005303
001403

6422

6445

6450

6451

6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463

030550

030642

030646
030650
030652
030654

030656

104401

030662 000771
030664
030666
030670
030674
030676
030700
030704
030708
03071
830714
030716
030720

005702
001402
104401
005302
0034§S
012037
105710
001004
104401
005005
000404
005105

001325
050714
001325
000006
001236

30%:

012117
001325
012117
050773
001325

012117

012103
48:

001325
010000

150324

S$:

108:

012117

118:

012117

030732

LSCRLF
,DH101+10
JOCRLF
#6,R1
#SREG26,R2
(R2)+,-(SP)

MOV
TYPOC
TYPE
MOV
TYPOC
TYPE
TYPE
WORD
TYPE
CLR
BIT
BNE
MOV
BEQ
MOV
MOV
MOVB
1ST8
ST
BEQ
TST
BNE

(R2)+,-(SP)

TYPE

148:
15%:

001325
348

,SPACE2
R1
308
JOCRLF
.SPACE2
,DH102
JOCRLF

.SPACE?2

,SPACE?2
(R2) ,=-(SP)
LCR2LF
0
JSCRLF
RS
#BIT12,35WR
20%
(RO)+,R1
208
(RO)+,RO
(RO)+,R2
(RO)+,R3
(RO)+
R3
148
RS
1%

,SPACE?2

SEQ 0122

:TYPE PREV COMMAND HEADER
:SIX COMMAND VALUES
:STARTING ADDR OF PREV CMND VALUES
:PUT A WORD ON STACK
:TYPE IT
;:TYPE SEPARATORS
;SEE IF 7 VALUES TYPED YET
:BR IF NOT
; INDENT
:TYPE HDR FOR BA DATA

: INDENT
:TYPE PREV. HI BA BITS
;TYPE PREV. LO BA BITS
:TYPE DATA HEADER
;:DH POINTER GOES HERE

;INIT INDENT INDICATOR
;REPORT DESCRIPTION ONLY ?
:BR IF YES
:GET DT POINTER
:BRANCH IF THERE ARE NONE
:GET DF POINTER
;STORE NUMBER OF DH'S
;GET & STORE NUMBER OF DATA WORDS
:BUMP PAST FORMAT WORD
:TEST IF ANY DATA FOR THIS HEADER
:NO = SKIP DATA PRINT
;SEE IF SHOULD INDENT
:BR IF NOT

: INDENT

MOV
TYPOC
DEC
BEQ

a(R1)+,=(SP)

R3
12%

;PUT FIRST DATA WORD ON STACK
:TYPE IT
:MORE DATA WORDS
:NO-BRANCH

f1s

:LOOP

TYPE

12%:

001325

TYPE
TYPE
TYPE
MOV
MOV
MoV
TYPOC
TYPE
DEC
BNE
TYPE
TYPE
TYPE
TYPE

TYPE

012117

F 10
PAGE 124

TST
BEQ
TYPE
DEC
BLE
MOV
TSTR
BNE
TYPE
CLR
BR
COM

SPACE?2

R2
148
,SCRLF
R2
208
(RO)+,16%
(RO)
349
LSCRLF
[}
36%
RS

:TYPE SEPARATORS

sSEE IF <CR>,<LF> NEEDED
:BR IF NOT
;TYPE IT
;MORE DH'S?
:NO-BRANCH
sGET NEXT DH POINTER
:SEE IF ANY DATA FOR HDR
:BR IF YES
;SKIP EXTRA LINE
sRE=INIT INDENT INDICATOR

:COMPLEMENT INDENT INDICATOR

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 12%

CIR6QC.P11

02=JUL-80 09:50

6464
6465

030722
030724

6467
6468
6469
6470
6471

030732
030734
030740
030742
030744

104401
105710
001331
062700

030752
030754

104410
000207

6466

6472

6473
6474
“75

0307

030750

001002
104401

104401

000751

TYPE ERROR ROUTINE

012117

36%:

168:

001325
000002

20$:

SEQ 0123

BNE
TYPE

36%
,SPACE2

;BR IF NO INDENT REQUIRED
: INDENT

.WORD
TYPE
1ST8
BNE
ADD

O
,S$CRLf
(RO)
108
#2.R0

:DH POINTER GOES HERE

RESREG
RTS

TYPE

14$

:TYPE DH

;TYPE A DT?
: YES=BRANCH
s INCREMENT DF POINTER

:SEE IF END OF DF BLOCK

::t'tt'.QQQQQQQt"'t'tt""t't"tttt'ttt'.tttt"'t't.t'tt"tQ'ttt

6476

.SBTTL

6477
gz;g

CONTROLLER ERROR REPORTER ROUTINE
JSR PC, CONERR

S *ENTRY:
s*RETURN:

RTS PC

6480

:#THIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND

“as

::tttt"tttt'ttt'tttt"t'tt"tt'tttt'ttttttttttt't't't'tttttt'ttt

6481
6482
6483
6484

s*REPORTS THE APPROPRIATE MESSAGE. THE RK611 REGISTERS ARE
;*RETRIEVED FROM THE RK611 AND PLACED IN THE PARAMETER
s*BLOCK. THIS IS DONE BECAUSE PARM O MAY NOT BE VALID
;«AT THIS TIME.

6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
506
6507
6508
6509
6510
6511

030756
030760
030766
030772
030776
031006
031006
031010
031012
031020
031022
031024
031026
031034
031036
031042
031044
031050
031052
03105¢
031062
031064
031066
031070
031058
031100

104407
152737
105237
004737
032737
001402
104064
000474
032737
001402
104065
000466
032737
001407
105737
001402
105237
104066
000453
032737
001402
104067
000445
032737
001402
104070

6513
6514
6515
6519
6517
6518
6519

031104
031112
031114
031116
031120
os11§3
03N

032737
ogz&oz
104071
ogoas1
032737
oo1sog
10407

osa; 031102 000437

000377
003135
033752
000001

003132
003062

000002

003062

000004

003062

003141

003142

CONERR: SAVREG
BISB
INCB
JSR
BIT
BEQ
ERROR
BR
18:
BIT
BEQ
ERROR
BR
28%:
BIT
BEQ
1STB
BEQ
INCB
15%:
ERROR
BR
3$:
BIT
BEQ
ERROR
BR
&$:
BIT
BEQ
ERROR

000010

003062

000020

003062

000040

003062

5%:

000400

003062

6$:

BIT
BEQ
ERROR
BR
BIT
BEQ
ERROR

#377,DONE
ERRCNT
PC, TOPROC
#8IT0,E.CONT
1%
64
7s
#BIT1,E.CONT
28
65
7%
#BIT2,E.CONT
{3
DRNAFG
15%
REISSU
66
7
#BIT3,E.CONT
43
67
7%
#BIT4,E.CONT
5%
70

143

#BITS.E.CONT
I
n
7
#B178,E.CONT
8$
72

;SAVE RO=-RS
:SET DONE FLAG
: INCREMENT ERROR COUNT
:LOAD RK REGS INTO SREGS
:ERROR 0?
sNO=-BRANCH
sCLEAR CONT DID NOT CLEAR ERROR
;ERROR 1?
:NO=-BRANCH
sNO ATTENTION IN ATTENTION SUM REG

;ERROR 2?
*NO-BRANCH
;SEE IF DRIVE WAS SIEZED BY OTHER PORT
:BR IF NOT
JSET FLAG TO RE-ISSUE COMMAND
sUNSOLICITED ATTENTION
:ERROR 3?
*NO-BRANCH
JUNEXPECTED DATA TYPE ERROR

:ERROR 4?
*NO-BRANCH
SATTENTION DID NOT RESET WITH CLEAR
:ERROR 5?
*NO-BRANCH
:SUBSYS CLEAR DIDN'T CLEAR DRIVE ATTENTION

;DATA LATE WHEN UNLOADING HEADER

W10

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 126
CZR6QC.P11
02-JuL-80 09:50
CONTROLLER ERROR REPORTER ROUTINE

6521
0 1134 éggif;
001000 003062 88$:
6 i 031142
1405
6520

031132

65
6524
6525
65 9
652
6528
osgg
6530
6531
6532
653
6534
6535

031144
031146
031150
0 1128
0311
031162
03119A
031172
031174
031176
031200
031202
031206

65“

10407
00041
032737
001402
104074
000407
032737
00140
10405
000401
104075
005037
000137

002000

100000

003062

9%:

108:

11%:
7%:

003062
033546

BIT
BEQ
BR

ERROR
BR
BIT
BEQ
ERROR
BR
BIT
BEQ
ERROR
BR
ERROR
CLR
JMP

#B179,E.CONT
9%
7%

73
7%
#B1710,E.CONT
108
74
7%
#B1T15,E.CONT
1%
52
7%
75
E.CONT
BGNRTY

sCONTROLLER ERROR DURING DRIVER SERVICE

sDRIVE DETECTED PARITY ERROR

sMULTIPLE DRIVE SELECT
;UNDEF INED ERROR
sCLEAR CONTROLLER ERROR WORD
160 DO RETRY

;:'t.tt.'tt.".t""""Qt""""'Qt'.t'ttt"t't.t't"'t""t."

6537

.SBTTL

6538

REPORT SUPPORT ROUTINE

;*THIS ROUTINE LOADS ALL THE PARAMETER BLOCK DATA TO BE REPORTED

6539
6540
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550
6551

031212
031212
031214
031220
031226
031232
831333
031242
031244
031250
031252

104407
005037
116537
012700
016520
112550
105020
116520
105020
016520

6553
6556

031262
031266

116503
042703

000007
177774

6557
6558
6559
6560
6561
656
656
6564
6565
6566

OMN
031310
031314
031320
031324

016520
016520
016520
016520
016520

000016
000020
30
000026
000022

031330
031334
031340
031344

016520
016520
016520
8165 0

000024
000032
36
000034

MOV
MOV
MOV
MOV

P.CST1(RS),(RO)+ ;GET ALL THE VALUES FROM THE
P.CS2(RS),(RO)+ ;PARAMETER BLOCK AND LOAD
P.DCYL(RS),(RO)+ ;THE TEMPORARY REGISTERS
P.DTS(RS),(RO)+ ;FOR REPORTING. ALL THIS
P.WCR(RS),(RO)+ ;DATA MAY NOT BE VALID
sFOR ALL REPORTS (T0 BE
P.BAR(RS),(RO)+ ;DETERMINED LATER) BUT IT IS
P.ASOF (RS), (RO)+ ;STORED ANY WAY.
P.DS(RS)
, (RO)+
P.ER(RS) . (RO)+

000042

MOV

P.BOO(RS)
. (RO) +

0314064 016520 000056

MOV

005426
000001
001162
000002
000005

005426

000004
000012

6552 031256 012700 001174

6555 031272 010337 001256
6556 031276 016537 000010 001260

6567

031350

0165 8 000040

6568 3”323 016520
6569
6570
6571
6572
657

6576

6575

SEQ 0124

031
031394
031370
031374
831600

8165 0
16520
016520
8165 0
16520

000044
000046
000050
000052
000054

s*INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY
s*NOT BE INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY.
REPSUP:
SAVREG
CLR
ERRCOM
;CLEAR ERROR COMMAND STORE
MOVB
P.CMND(RS) ,ERRCOM ;STORE COMMAND START VALUES
MOV
#$REGO,RO
:FOR REPORTING
MOV
P.CYLN(RS), (RO)+
MOVB
P.TRCK(R5).(RO)+
CLRB
(RO)+
MOVB
P.SECT(RS),(RO)+
CLRB
(RO)+
MOV
P.WC(RS), (RO)+

MOV

#$REGS
RO

MOV
MOV

R3,$REGS6
‘Ml BA BITS
P.BALO(RS).‘REGS’ ;L0 BA RITS

MOVB
BIC

MOV
MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV

P.BAHI(RS),R3
#i77774 83

P.AOO(RS), (RO)+

P.AO1(R5)
. (RO)+
P.BO1(RS)
. (RO)+
P.AT10(RS)
. (RO) +
P.B10(RS)
. (RO)+
P.AT1(RS)
. (RO)+

P.B11(RS)
. (RO)+

:STORE PREVIOUS COMMAND FOR PRINTOUT

——

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 12;

CFCDFUE§§;

- —-NO
LS LS LN LN N TN N NN N
o b e PN D D D
i D D D i

WA =2 O N VN VIO NN
OO0 O0O0O0OO0O0O0O~N

000006
000003
177774

°°2-fl°.‘-a_o_.°_a-a-o_n°°
O e O i
) e O e

001236
005162

.
& OW~N

031454

701
00

— -

&~ S Rttt
2R
2 I I

oo
(V]

oOrNO 00=g¢hl‘hQ¢>J‘C>
\h‘\fidhspd
-

02-JuL-80 09 :50

0000000000 (=l=l=]
LN L N N N N N NN NN NN

oo~

CZrR6QC.PN

REPORT SUPPORT ROUTINE
MOV
MOV

#SREG26,R1
#PRVCMD, RO

CLRB
MOVB
CLRB
MOV
MOVE
CLRB
MOVB
CLRB
MOV
MOVE

(R1)¢
<a0)o (R1)+
(R1)+
(RO)+, (R1)+
1(RO).(R1)+
(R1)+
(R0O),(R1)+
(R1)+
6(R0O), (R1)+
3(RO),R3

MOVB

000001

BIC

MOV

000004

MOV
RESREG
RTS

000207

(RO)+,(R1)+

NnrieR3
R3,(R1)+

4(RO), (R1)

SEQ 0125
;:ADRS OF PRINT BUF AREA
:ADRS OF PREV CMND STORAGE

:DRIVE NO.
: COMMAND

;CYL ADDRESS
:
TRACK
;SECTOR
;WORD COUNT
:HI BA BITS
;L0 BA BITS

ttt'tttt"tt't'ti"'t"'t'""Qtt"tttQtt'""t't".tt""!t'it

‘$BTTL

;* ENTRY

REPORT ERROR ROUTINE

JSR

PC, ERRHDL

anerunu

RTS

tTHlS ROUTINE

IS CALLED BY THE DRIVER WHEN AN ERROR IS DETECTED

;*IN THE OPERATION.

THE ROUTINE DETERMINES WHICH COMMAND WAS

:*BEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE.
NIRLN
= N WVVARND
-~
£~
~
w
o
v
~
~
~

I p—

222838 O\ng

FRRNSKER

VIVAWVVAWVAIVAWWA
P
~N

N NN L
NN A A

gesess §8882888e

S WN =200 ONO
VS WN=-O

6607

O0OO0O00O0O00O000

JotttRRRtARtARRRRRCICEERRRCRRRRRRRARARAAANARAAAAAARCOROAACORROOERRES

000377
003135
005424
000400
002724

033724
033742
031212

003132
005424
003056
003054

ERRHDL: SAVREG
8Is8
INCB
CLR

ERZ2ENT: BIT

52%:

BEQ
MOV

MOV

MOV
JSR

#377 ,D0NE
ERRCNT
RECODE
#LEV2ER,RECODE

529

#PARM1,RS

#RETANL ,A.ABNL
#RETNML ,A.NORM
PC,REPSUP

;SET DONE FLAG
s INCREMENT ERROR COUNT
sCLEAR RECOVERY CODE WORD
;TEST IF 2ND LEVEL ERROR
sNO = SKIP PARAM BLOCK CHANGE
;ELSE SET R5 TO PARAMETER BLOCK 1
:SET NOW ABNORMAL AND NORMAL RETURN FOR
;:DRIVER OPERATIONS IN ERROR PROCESSING
;GO SET UP REGISTERS FOR REPORT
sNOW BEGIN TESTING THE ERROR
;BITS. THE SEQUENCE IN
sWHICH THEY ARE TESTED IS
;CONSIDERED SIGNIFICANT IN
: THAT ERRORS OF A MORE

;CATASTROPHIC NATURE ARE FIRST
s TESTED.

:1F AN ERROR IS FOUND SET,

: THAT ERROR IS REPORTED AND
:THE REPORTING IS TERMINATED.

;1F ADDITIONAL ERRORS ARE SET,
:THE RK611 REGISTER PRINTOUTS

6625

:WILL SHOW THIS BUT THE

:REGISTER CONTENTS MUST BE

sMANUALLY DECODED TO LOCATE THE

6631

031546

016504

000034

MOV

P.ER(RS)
R4

:SECOND ERROR
:SET R4 TO ERROR REGISTER

CZR6QCO RK6 DR CPT PROG

CZR6QC.PN

02-JuL-80

66;%
66
66
6635
6633
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659

031552
031
03156
0 1594
031572
031576
031604
0 1608
031610
031616
0316
0316
0;1635
031640
031642
031644
031650
031652
031656
031664
031666
031674
031676
0317
031704
0317
031712
8;17;2

032765
001406
126 1
808 7
137
032765
0014
1040g
0527
000137
032765
001412
032765
001403
104035
000137
104003
000137
032765
001412
032765
001403
104035
000137
104004
000137
032765
8814;

6661
666§
6663
6664
6665
6666
6667
6668
6669
6670

031726
0317
031736
031744
031746
031750
031754
031756
031762
031764

032737
001007
032737
001006
104005
000137
104056
000137
104057
000137

6672
667
66764
6675
6676
6677
6678
6679
6680
6681
668;
6683
6684
6685
6689
6687

031776
32000
032002
032006
032014
032016
0320
0320 s
0320
83 038
32040
03 0‘8
03205
032054
032062
032064

001403
104107
000137
032765
001406
104
052737
000137
032704
081‘09
1 Og
052737
137
032765
001403
104010

6660

6671

MACY11 30A(1052) 02-JuL-80 09:52 PAGE 12‘
09:50

REPORT ERROR ROUTINE

020000

000020

0?0200
033224
004000

005424

000200
033224
010000

005424

000400

000020

033224

000020

010000

000020

033224

033752

28$:

3%:

398:
000014

002000

005424

000400

005424

033224

4$:

6s:

031512

031770 032765 010000 000014
000016

004
033224
000010

005424

004000
033224
000010

005424

58:
658:

6$:

000036

7%:

SEQ 0126

BIT
BEQ
ERROR
BI1S
JMP
BIT
BEQ
ERROR
BIS
JMP
BIT
BEQ
BIT
BEQ
ERROR
JMP
ERROR
JMP
BIT
BEQ
BIT
BEQ
ERROR
JMP
ERROR
JMP
BIT
BEQ

#UPE,P.CS2(R5) TEST UPE. IF UES~-SET
1%
;REPORT ERROR
1
#ABORT,RECODE
37%
#NEM,P.CS2(R5)
;TEST NON=EXISTANT MEMORY
2s
2
#ABORT ,RECODE
37%
#NED,P.CS2(R5)
;TEST NON-EXISTANT DRIVE
3%
#UFE,P.CS2(R5)
;TEST IF NED & UFE BOTH SET
389
35
;NED & UFE BOTH SET ERROR
37%
3
;NED ONLY
378
#UFE,P.CS2(R5)
;TEST UNIT FIELD ERROR
4
#NED,P.CS2(RS)
;TEST IF UFE & NED BOTH SET
39%
:NO=-SKIP
35
;REPORT NED & UFE BOTH SET
378
&
;REPORT UFE ONLY
37%
#CMDTO,P.PRST(RS) ;
5%

BIT
BNE
BIT
BNE
ERROR
JMP
ERROR
JMP
ERROR
JMP

#TUOTOS,RECODE
40%
#LEV2ER ,RECODE
s
5
378
56
37%
57
ER2ENT

BEQ
ERROR
JMP
BIT
BEQ
ERROR
8IS
JMP
BIT
BEQ
ERROR
BIS
JMP
BIT
BEQ
ERROR

65%
107
37%
#SPAR,P.CS1(R5)
6%
6
#RCLREQ,RECODE
37%
#ORPAR,R&
4]
7
#RCLREQ,RECODE
37%
#ACLO,P.DS(RS)
8s
10

JSR

408:

033224

033224
020000

1%:

38s%:

033224
000400

033224
000100

BIT

PC,TOPROC

;GO PROCESS TIMEOUT

;2ND TIMEOUT IN TIMEOUT PROC?
;YES = SKIP TO ERROR 56
;TEST IF LEVEL 2 ERROR
:YES = SKIP TO ERROR 57
;ELSE MAKE FULL TIMEOUT REPORT
:TWO TIMEOUTS ERROR REPORT
:2ND LEVEL ERROR REPORT
;G0 BUILD AND MAKE 2ND REPORT

#ORVSZD,P.PRST(RS) ;SEE IF DRIVE SIEZED BY OTHER PORT
:BR IF DRIVE IS AVAILABLE
;:DRIVE SIEZED BY OTHER PORT
;TEST D TO C PARITY ERROR

;TEST DRIVE DETECTED PARITY ERROR

TEST AC LOW

K 10
02-JuL-80 09:52 PAGE 129
CIR6QCO RK6 DR 5 PT PROG MACY11 30A(1052)
CZR6QC.P11
02-JuL-80 09:50
REPORT ERROR ROUTINE

6688
6689
6690
6691
6692
6693
6694
6695
6699
6697
6698
6699
6700
6701
670
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713

137
765
001403
104011
8%0137
2765
001401
104027
032704
001403
104012
000137
032765
001403
104013
000137
032704
001403
104014
000137
032704
001403
104015
000137
032704
001403

0332%6
000020

000036

8s%:

033224
004000

000016

248:

6716 833520 88878‘
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
673
673
6734

6735

67
673
6738
6739
6740
6741
6742
6743

0 092
0320
0 10g
032102
032104
032110
032116
83 1%0
122
032126
0321
032132
032136
032144
03%16
032150
032154
032160
032162
032164
032170
032174
032176
032200
032204
032310

032224
032%
032
032234
032240
032262
032244
03%%52
03 zg
032262
032264
832 96
32;03
332
032304
832
10
8
12

032344
032352
032354
032356

001403
104017
000137
032704
001406
104020
052737
000137
032704
001406
1060;1
052737
000137
032704
001406
1260;;
0527
137

704

14
1040
0527
137
765
001406
104024
052737

000001
033224
002000

25%:

000020

108:

033224
000004

118:

033224
000040

128:

033224
000020

138:

4000

148:

033224
040000

158:

000200
033324
000002

005424

004000
033224
001000

005424

004000
033224

005424

168:

17%:

002000

188:

004000
033224
000040

005424

004000

005424

000036

19s:

SEQ 0127

JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ

37%
#SPDLSS,P.DS(RS) ;TEST SPEED LOSS
24%
11
37%
#CTO,P.CST(RS)
;TEST FOR CONTROLLER TIMEOUT
25%
27
#ILC,RG
;TEST ILLEGAL FUNCTION CODE
108
12
37%
#PGE ,P.CS2(R5)
;TEST PROGRAMMING ERROR
1%
13
37%
#ILF ,RG
sTEST ILLEGAL DRIVE FUNCTION
12%
14
37¢
#DTYE R4
;TEST DRIVE TYPE ERROR
13
15
37%
#FMTE ,Ré
;TEST FORMAT ERROR
148

BIT

#ULE R4

BEQ
ERROR
JMP
BIT
BEQ
ERROR
BIS
JMP
BIT
BEQ
ERROR
BIS
JMP
BIT
BEQ
ERROR
8IS
JMP

15%
17
37%
#UNS ,Ré
16%
20
#ABORT ,RECODE
ALLTRM
#SKI1,R4
178
21
#RCLREQ,RECODE
37%
#COE ,Ré4
18%
22
#RCLREQ,RECODE
37%

BEQ
ERROR
8IS
JMP
BIT
BEQ
ERROR
8IS

19%
23
#RCLREQ,RECODE
37%
#OROT,P.DS(R5)
208
24
#RCLREQ,RECODE

BIT

#1DAE R4

sTEST WRITE LOCK ERROR
sTEST DRIVE UNSAFE

;TEST SEEK INCOMPLETE

;TEST CYLINDER OVERFLOW

sTEST ILLEGAL CYLINDER

;TEST DRIVE OFF TRACK

CIR6QCO RK6 DR CPT PROG

CZR6QC.PN

6744
6745
674
674
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6763
6764
6765
7
6767
6768
6769
6770

Y44

02-JuL-80

0
74
38

0324
0324
03241
03%6
0324
0324264
0324
032434
032436
032444
032450
032452
032456
032464
032466
032470
032474
032500
032504
032512
032514
032520
0325;2

8;55

6772
6773
6776
6775
6776
6777
6778
6779
6780
6781
6782
678
6784
6785
67
678
6788
6789
6790
6791
679
679
6794
6795

542
032550
032556
032560
032564
0325
032572
0325764
032576
032
032610
32612
03 61g
0;
8
&
32632
0326
83 64
644
032652
654
223
0;

679
6798
6799

3
03;7
032706

679?

3 9

13Z
80 7
14
1040
052757
8?01 7
2765
001403
1060;?
0001
032704
001470
052737
105737
00140
000137
032737
001403
104054
000137
004737
004737
032737

001036
013702
042762
016237

816 g?

016237
032 6;
00134
105737
001403
105037
000401
104030
052737
000137
104054
000137
032704
001457
052737
105737
160;
137
032737
082603
104055
137
737
737

2737

1055
137 S
04276

MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 13h
09:50

REPORT ERROR ROUTINE

833226
10000

208:

000200
033224
100000

005424
000020

033224
020000
000010
003130
033224
000400

22%:
005424

005424

508:
27%:

033224
034432
034122
000400

005424

003046
000100
000024

000000
001202

4
100000

001206
000000

8888%4

21%:

268:

01204

005424

28%:

031512
000400
0000
003130
033224
000400

298:

005424

308:
518:

0332;&
034432
833122

318:

00 005424

883066
100

548:
558:

000000

;TEST DRIVE TIMING ERROR

;TEST DATA LATE

;TEST IF OPI ERROR
;TEST IF FIRST ERROR
:NO = SKIP REPORT
;TEST IF A SECOND LEVEL 2 ERROR
:HAS ALREADY OCCURRED

BNE
MoV
BIC
MOV

MOV
BIT
BNE
1ST8
BEQ
CLRB
BR
ERROR
8IS
JMP
ERROR
JMP
BIT
BEQ
BIS
1ST8
BEQ
JMP
BIT
BEQ
ERROR
JMP
JSR
JSR

RKDB(RZ) ,$REG12
#CERR,RKCS1(R2)
27%
TSTTYP
54%
ERRCNT
35%
30
#RCLREQ,RECODE
37%
54
ER2ENT
#HVRC, R4
23%
#HVRCER ,RECODE
DERCNT
308
37%
#LEV2ER,RECODE
318
55
378
PC,BLDEXH
PC,RDHDO

BNE
MOV
BIC

329
RKBAS,R2
#1E,RKCS1(R2)

MOV

003135

378
#DTE ,R&
1%
5
#ABORT ,RECODE
37%
#OLT,P.CS2(R5)
22%
gb
7%
#OP1 ,Ré
29%
#OPLERR,RECODE
DERCNT
508
37%
#LEV2ER,RECODE
26%
54
37%
PC,BLDEXH
PC,RDHDO

SEQ 0128

;:GET OUT OF ERROR REPORT
;GO BUILD EXPECTED HEADER
:GET HEADER OF SECTOR 0
#LEV2ER,RECODE
;TEST IF ERROR GETTING HDR
28%
;1F YES=GO MAKE ABREVIATED REPORT
RKBAS,R2
;STORE HEADER 0 INTO REGISTERS
#1E,RKCS1(R2)
;RESET INTERRUPT ENABLE
RKDB(R2) ,$REG10 ;FOR REPORTING

BIT

003143

004000
033224

JMP
BIT
BEQ
ERROR
BlS
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
BIS
1ST8
BEQ
JMP
BIT
BEQ
ERROR
JMP
JSR
JSR

BIT

RKDB(R2) ,$REG11

#LEV2ER,RECODE

;TEST IF ERROR DURING STORAGE

;SEE IF READING WITH OFFSET
:BR _IF NOT
;CLEAR ERROR COUNT
: CONT INUE
:MAKE OPI REPORT
;SET RECALIBRATE REQUEST BIT
;GO MAKE 2ND LEVEL REPORT
sTEST IF HVRC ERROR
sTEST IF FIRST ERROR
:YES = REPORT
:JUMP TO RETURN
;TEST IF A 2ND LEVEL ERROR HAS ALREADY
;OCCURRED. NO-SKIP EXIT
:GET OUT OF ERROR REPORT
:GO BUILD EXPECTED HEADER
;GO GET HDR 0

;TEST IF ERROR IN GETTING WDR

s1F YES=GO MAKE ABREVIATED REPORT
:GFT RK611 BASE ADDRESS
;CLEAR INTERRUPT ENABLE

’

CZR6QCO RK6 on PT PROG
CZIR6QC.P11
02-JUL-80

6800

032714

680;

6804
6805
eaog
6807
6808
6809
6810
6811
ea1§

032744
8 748
73‘
032754
032756
032762
0327
032770
032776

08234
1 og1
000137
104055
000137
032704
oo1439
052737
016500

6814

ossoog

042701

004737
032737
001073
105737
001403
105037
000465
104104
042737

030020
001000

6820
6821
6822
6823
6824
6825

033022
033026
0330
033036
033042
033044
033050
033052
033054

6829
6830
6831
683§

033072
033100
033104
033106

052737
032704
0014
052737

6801 0
680

6813

033002

016237
7

3 6§

116501

001202

MOV

001206

MOV

RKDB(R2)

000024

1%04

100000 000000

MOV

BIT

RKDB(R2) .$REG12

BNE
ERROR
JMP
ERROR
JMP
BIT
BEQ
BIS
MOV

#CERR,RKCS1(R2) :TEST IN ANY ERROR IN UNLOAD
518
g1
78
55
ER2ENT
#BSE ,R4
338
#BSERR,RECODE
P.DCYL(RS)Y,RO

:1Y YES = GO MAKE SHORT REPORT
:MAKE FULL REPORT

BIC

#177774 R1

SCLEAR ALL BITS EXCEPT TRACK

005424

JSR
BIT

PC,BDSRCK
#BADSEC,RECODE

000002

005424

TSTB
BEQ
CLRB
BR
ERROR
BIC

000020
000100

005424

000040

005424

033224

328:

031512
000200
000002
000030

238:
005424

000027

MOVB

177774

6815 033012
016502 000026
6816 033013 04270; 177740
6817
6818

6819

6835
6836
6837
6838

033122
033130
033134
033136

6840
6841
68&;
6843
6844
6845
6a49
6847
6849
ggg?

000403

BNE

003135

033114 005037 001206

6834 033120

MOV
BIC

003143

§853 033060
°°g?°° 100000
6828
833393 831423
6833

012737
105737
001033
004737

000001
003130

001206

83 150
03 128
83 1
033164
033172
833174
sgsos
033210

016537
1ot03;
8?3‘3
765
001414
042737
052737
105737

000062

001204

033224
040000

000020

033216
33222

004737
104033

034276

easg
6853

033555
033232

32765
001404

000020

000014

6855

033236

052737

000200

005424

56$:

338

34$:
35$:

034276

033214 001003

6854 mnfi 1040

000200
000100
003130

005424
005424

:ABREVIATED HVRC ERROR RPORT
160 REPORT 2ND LEVEL ERROR
:TEST FOR BAD SECTOR ERROR
:NO = SKIP
:SET ERROR FLAG
:GET CYL NO.

:GET TRACK NO.

:GET SECTOR IN ERROR
:CLEAR ALL BITS EXCEPT SECTOR

TSTTYP
563
ERRCNT
37¢
104
#BSERR,RECODE

;60 SEE IF THIS SECTOR LISTED
:TEST RESULT
sYES = EXIT, NO ERROR OR REPORT
:SEE IF READING WITH OFFSET
:BR IF NOT
:CLEAR ERROR COUNT
: CONTINUE
:ELSE REPORT BAD BSE
:RESET BSE ERROR FLAG

#DCKERR,RECODE
#ECH, R4
348
#ECCNC,RECODE

;SET DATA CHECK ERROR IN RECOVERY CODE
STEST IF ECC IS HARD. IF
:YES SET UNCORRECTABLE IN
:RECOVERY FLAG AND A 0 IN

358

‘A 1 IN REG 12 FOR CORRECTABLE

37%

$REG12

gesgx{‘ DATA CHECK

:REG12 TO INDICATE UNCORRECTABLE,

MOV
TSTB
BNE
JSR

#1,3REG12
DERCNT
378
PC,GTPKAD

MOV
ERROR
JMP
BIT
BEQ
BIC
BIS
1578

P.EPAT(RS).SREG11 :PATTERN
32
:REPORT DCK ERROR
s
#UCE,P.CS2(RS) ;TEST WRITE CHECK ERROR
378
#ABORT,RECODE
;CLEAR ABORT & SET WRITE
#JUCERR RECODE
:CHECK ERROR IN RECODE
gsacut
:TEST IF FIRST ERROR

BNE
37%:

P. ots<a§) R2
#177740,R2

CLR

MOV

368:

P.DTS+1(RS5),R1

333:
368 R4

B8R

,$REG10 ;STORE OFF HEADER

uxoa(ai)$REG11

g?r
BEQ
BIS
BIT
BEQ
BIS

6839 033142 016537 8ooooo 001202

6848

$EQ 0129

000024

16237 ggooga
13

MACY11 30A(1052) 02-JUL-80 09:52 PAGE 131
09:50
REPORT ERROR ROUTINE

;TEST IF FIRST ERROR
‘NO SKIP REPORT
160 GET PACK ADDRESS OF ERROR

P.EPOS(RS) ,$REG1D;STORE ECC POSITION &

INO= SKIP

JSR
ERROR

Pg.GTPKAo
3

BIT
BEQ

#ORVHRD,P.PRST(RS) ;TEST HARD ERROR
438

BIS

#ABORT ,RECODE

ERROR

160 GET ADDRESS OF ERROR
:REPORT WCE

N10
CIR6QCO RK6 DR CPT PROG M(.ZVH 30A(1052) 02-JuL-80 09:5% PAGE 132
CZR6QC.P11
02-JuL-80 09:50
REPORT ERROR ROUTINE

685

655? 033244 032765 000040 000014 438:
6858
6859
gggg

0
gz
033254
033256

6862

033264

6864
6865

033274
033276

104040
052737

6867
6868
6869
gg;?

033304
033312
033314
033316

032765
001404
104042
052737

0014
104037
052737

000200

005424

004000 000014 &44$:
686 ogsgrz 032765
001404

000200

005424

000010

000014

000200

005424

687

23;4

6875
6876
6877
6878
6879
6880
6881
6aa§

033324
033330
033336
033342
033344
033352
033
033366

012705
012737
105737
001003
012737
012737
032737
00105

6885
6886
6887

033374
033402
033404

032762
001004
052737

6888

6889
6890
6891
689;
6893
6894
6895
68
689
6898
6899
6900
6901
6902
6903
6904
goos

6339

033412

033414
033422
033433
033432
033440
033443
033452
833660
33‘63
033472
033474
osssos
03351
033512
033520
033522
033526

000445

032737
001451
013737
112765
012737
006737
013737
012737
105737
001003
012737
032737
oo1£19
052737
104060
000137
104061

003056

031472
030250
000200

003056
003054
005424

6383

6911

000200

000012

000200

005424

004000

005424

002640
000113
033724
030124
002724
020526
003143

002724
000001
003056

031472
000400

003056
0054264

000200

005424

031512

033530 000005
033532

000000

#ORVDSC,P.PRST(RS) ;TEST STATUS CMANGE NOT CLEARED

BEQ
ERROR
BIS

44
37
#ABORT ,RECODE

BIT

BEQ

#NODSC,P.PRSTC(RS) ;IFST ATTENTION BUT NO FAULT OR DSC

ERROR
BIS

40
#ABO
, RERT
CODE

BIT
BEQ
ERROR
BIS

SUEXATT,P.PRST(RS) ;TEST UNEXPECTED ATTENTION
ALLTRM
42
#ABORT ,RECODE

;ALL ERRORS MUST EXIT THROUGH THIS POINT

002640
020526
00314

233& 033370 013702 003046

46$:

BIT

SEQ 0130

ALLTRM: MOV
MOV
TSTB
BNE
MOV
208:
MOV
BIT
BNE

MOV

BIT
BNE
BIS

47$:

002640
003056

50$:

488:

B8R

BIT
BEQ
MOV
MOVB
MOV
JSR
MOV
MOV
TSTB
BNE
MOV
BIT
BEQ
BIS
ERROR
JMP
ERROR

#PARMO,RS
#DCKHDL ,A.ABNL
TSTTYP
208
#ERRHDL ,A.ABNL
#ERRFRE,A.NORM
#ABORT ,RECODE
488

RKBAS,R2

#RDY,RKDS(R2)
473
#ABORT ,RECODE

;RESTORE PARAMETER BLOCK SELECTION
:SET READ ERROR WANDLER
;SEE IF READING WITH OFFSETS
:BR IF YES
:RESTORE INTERRUPT VECTORS FOR RETRY
:DRIVER OPERATIONS, IF ANY
:IF ABORT IS NOT SET AND
;sznglgsuag READY (HAS NOT

:GET BASE ADDRESS

:TEST IF DRIVE READY SET
:RECALIBRATE REQUIRED BIT IS SET
:ELSE ABORT WITH ABORT MESSAGE

#RCLREQ,RECODE
;IF RECALIBRATE IS REQUIRED
BGNRTY
:FOR RETRY SET UP PARAM
PARMO, PARM1
SAVE COMMAND
#RECAL,P.CHND(RS) :BLOCK TO DO IT.
#RETANL ,A.ABNL
PC,DRVCAL
PARM1, PARMO
;RESTORE COMMAND
#DCKHOL,A.ABNL :SET READ ERROR HANDLER
TSTTYP
;SEE IF READING WITH OFFSETS
508
:BR IF YES
#ERRHDL ,A.ABNL :RESTORE ERROR RETURN
#LEV2ER,RECODE
:IF AN ERROR OCCURRED IN THE
BGNRTY
:RECAL ATTEMP SET ABORT,
#ABORT ,RECODE
:PRINT THE RECAL ERROR MESSAGE. AND
60
:G0 REPORT DETAILS
ER2ENT
61
;REPORT ABORT-RETRY FAILED

;THE PROGRAM WILL HALT HERE IF THE ABORT FLAG WAS BEEN SET OR

:1F THE DRIVE READY BIT IS RESET.

HLTPRG: RESET
HAL T

:DISABLE ALL DEVICES
MALT THE CPU

CZR6QACO RK6 DR PT PR HACV11 30A(1052) 02-JuL-80 09:52 PAGE 13!

CZR6QC.P

gg}

02-JuL-

105037

003135

6965

6964
6965
6966

6967

CMSTRY

;THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR
THE RETRY IS NOT DONE HERE BUT RETURNS TO
: THE INITIATING ROUTINE FOR RETRY., ANY OTHER ERROR IS TO BE
RETRIED WERE. IF RETRY IS UNSUCCESSFUL AFTER & ATTEMPTS, THE ABORT

HAS OCCURRED. IF YES

:FLAG IS SET AND PROGRAM HALTS.

033546
033554
033556
033564
033566
033566
033572
033574
033602
033604
033612
033614
033620
033626
033630

032737
1404
052737
53

000136

005424

100000

005424

105737
1371
032737
001044
123737
001012
005037
113737
104102
052737

003150

033652
033656
033662
033664
033666
033670
033672
033674
033676
033702
033710
033714
033720
033722

012700
012025
012025
012025
012025
012025
012025
012705
012737
004737
105037
104410
000207

0337264
033732
033740
033742
033750

152737
052737
000207
152737
000207

BGNRTY: BIT
BEQ
9s:
BIS
BR

3s:

001000

005424

003135

003136

001174
003135

001174

000200

005424

6939
17
6940 033640
gi%:& 013703
?1376 s
000001
004737
24
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
695
6957
6958
6959
6960
2961

:CLEAR ERROR COUNT
sRESET ALL DEVICES

ERRCNT

CLRB
RESET
JMP

6914 03 S‘g g? 012206

6915
691
6N
6918
6919
6920
6921
692§
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937

SEQ 0131

REPORT ERROR ROUTINE

#ANYDER ,RECODE

1ST8
BNE
BIT
BNE
CMPB
BNE
CLR

ERROR
BIS
B8R
MOV

1%:

NORTRY
9$

;SEE IF ''NO-RETRY'' FLAG SET
:BR IF YES

2s
ERRCNT ,ERRLMT

:1F YES=-EXIT TO CALLER
;BEGIN RETRY IF ERROR COUNT HAS

#BADSEC,RECODE

MOvVB

sNOT BEEN EXCEEDED

ERRCNT,SREGS
102

;GET ERROR RETRY COUNT
;REPORT RETRY UNSUCCESSFUL
;SET ABORT & QuUIT

IABORT RECODE

-GET RK BASE ADDRESS

#SUBCLR,P.CMND(RS)

JSR
MOV

160 DO IT

(RO)+, (RS)+

:AS IT WAS ENTERED INTO THE

(RO) ¢+, (RS)+

(RO)+, (RS)+
(RO)+,(RS)+
(RO)+,(RS)+
(RO)+,(RS)+

#PARMO, RS

177776

160 AND REESTABLISH THE COMMAND

:PARAMETER BLOCK

#PRO, NP5V

:LOWER PRIORITY TO ALLOW INTERRUPT

ERRCNT

:CLEAR ERROR COUNT

PC,DRVCAL

CLRB

;SET UP TO CLEAR SUBSYSTEM

PC,DRVCAL

#COMSTR, RO

MOV
MOV
MOV
MOV

2%:

;TEST IF BAD SECTOR FLAG SET

;:EGS

HLTPRG
RKBAS,R2

MOVB

0301
005176

002640
000000
030124
003135

;gSEII!NVRCEl!OPIERR!DCKERR!HCERR.RECODE sTEST IF ANY DATA ERROR

:CALL DRIVER

‘IF RETURN GETS HERE, NO ERROR

:0CCURRED, RECOVERY WAS SUCCESSFUL

000377
000400

003132
005424

RETANL:

#377,DONE

:SET DONE

000377

003132

:
RETNML

gg77.ooue

:SET DONE

.SBTTL

gstéea RECODE

Lt L

:SET LEVEL TWO ERROR

Ty L

TIME OUT PROCESSOR ROUTINE

;*THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS
s*GATHERING DUTIES.

CZR6QCO RK6 DR CPT PROG HAC;31 30A(1052)
CZR6QC.PN
02-JuL-80 09

02°JUL-00 09:52 PAGE 13‘
ME OUT PROCESSOR ROUTINE
M

6969
6970
69N
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
69838
6989
6990
6991
6992
6993

755
752
756
033760
033764
03;770
033774
034000
034004
034010
034014
034020
034024
034030

104407
013702
0127g1
016221
016 %1
016221
016 %1
016221
016 %1
016221
016221
016221
005000

034032
0340
034044
034050
034056
034
034
034072
034074

012705
112765
004737
032765
001403
052737
062705
012521
012521

AAAA

topROC:

AL AR

034104
034106
034110

012521
012521
012521

7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012

034112
034116
034120

012705
104410
000207

7013
7016
7015
701
701
7018
7019
7020
7021
7022
7023

RdRRdddd)

003046
001174

RKBAS ,R2

000010
000020
000006
000002
000004
000016
000012
000014

RKCS2(R2)
. R1) + :REGISTERS
RKDC (R2 ), ( 1)+
RKDA(R ) .( 1)+
)
RKIA(IZ‘ (R1)+

00272
000141
03012
100

#PARM1 RS
:SET UP TO USE PARMI
#RDSTAT,P.CMND (ns) oo READ DRIVE STATUS CUMMAND
PC,DRVCAL
L DRIVER
:gHDTOP.PRST(
:NO = SKIP
#TWOTOS ,RECODE
:SET TWO TIMEOUTS FLAG
#P.A00,RS
:BUMP RS TO POINT TO DRIVE STATUS
(RS)0 (RI)o
:MOVE ALL THE DRIVE STATUS INTO THE
:TEMP REGS FOR REPORTING.
(RS)0.(R1)0
)¢,(R1)+

002000
00004

#SREGS , R
;SET UP R1 FOR RK REGISTER STORAGE
RKCS1(R2), R1) + :STORE ALL VALID RK611

5y, (R1 )+

RKDS(RZ; L(R1)+
RKER(R2 “(R1)+
RO

:THIS CODE WILL ATTEMPT TO
:RETRIEVE THE STATUS FROM THE

:DRIVE.

000001

asSresr FOR TIMEOUT

000014
005424

75 e i
6997
6998
?838

SEQ 0132

MoV

002640

MOV
RESREG
RTS

#PARMO RS

;RESTORE PARM 0

stttk tRttRtRRtRRRRCEORRRRRRCOCRRRARARNRRARANRARAARRARRRORRROOEROERONNRTS

SBYTL

READ HEADER O ROUTINE

sttt RRRRRRCCRRERRRRRARRRORRRARARRARARAARAARARRAARRAANROIRARNES

034122
034122
034124
034130
034134
034140

836162
3614646
034146
034150
034154
034160
0341?4
034172

104407
016501
016500
042700
006%00

006200
006200
006200
012705
010165
010065
112765
012737

RDHDO:

P.DTS(RS),R1
P.B10(R5) RO

000026

000052
160017

88272‘
4
00000;
000177
000000

#160017,R0

RO
RO
RO
RO
#PARM1 RS

000001
177776

R1,P.SECT(RS)
RO,P.CYLN(RS)

;STORE TRACK AND SECTOR
:GET THE CYLINDER ADRS
:FROM THE DRIVE STATUS. CLEAR
:OFF UNUSED BITS AND POSITION
:FOR USE AS THE DESIRED
:CYLINDER IN THE READ

:HEADER COMMAND.

:SET UP TO USE P.B. 1
SINSERT TRK,SECT FOR READ HDR
SSET CYL NO.

:SET S.S.
#SUBCLR,P.CHND (RS)
#PRO,34PSW
SALLOW INTERRUPTS

CLEAR CMND

CZR6QACO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 132

CZR6GC.P11

02-JUL~-80 09:50

READ HEADER 0 ROUTINE

70264

034200

004737

030124

7026
7027
7028

034212
8
16
gz g‘

004737
013765
0327

030124
024364
000200

000000
000000

024366

000000

JSR

70;5 034204 1127?5 8001§5 000001
7029
70

7031

7032
7033
7034

7035

7036

7037
7038
7039
7040

0
2
034234

034242

034250
034252
034260

034266
034272

034274

001774
013762

032762

001774
142765
153765

012705

104410

000200
000020
003134

002640

000000

016537
005037

7047

034314

116537

034310

7048 034322

005037

BIT

BEQ
BICB
BISB

MOV

RESREG

#RDY,RKCST(R2)

:WAIT FOR READY

#PARMO, RS

;RESTORE P.B. 0 ADDRESS

26%
#B.CFMT,P.CSTH(RS) ;CLEAR THE FORMAT BIT
FORMAT ,P.CSTH(RS) ;RESTORE TYPE AND FMT IN USE
PC

sRESTORE RO=R5
:RETURN

034330
034336
034340

032737
001034
005737

7053

034344

001403

034352
034354
034362
034364
034372
034374
034402
034406
034410
034414
034416
0344246
034430

000426
032765
001404
012737
000403
012737
005737
001403
005337
000405
012737
005337
000207

034346

005337

GET PACK ADDRESS ROUTINE

000030
001176

001174

GTPKAD: MOV
CLR

000026

001200

MOvB

000004

005424

BIT
BNE
TST

#HVRCER,RECODE
5%
$SREG7

BEQ

001200

116537 000027

7049
7050
7051

7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070

26%:

.SBTTL

034276
034304

70564

24%
HOLD2 ,RKCST(R2) :DO A READ HDR, WITH FMT BIT = 1

PC,DRVCAL
D0 A READ HEADER
HOLD1,RKCST1(R2) ;DO A READ HDR, WITH FMT BIT = 0
#ROY,RKCST1(R2)
;WAIT FOR READY

Le
e ey

7044
7045

7052

:INIT THE S.S.

BEQ
MOV

RTS

7042

7046

PC,ORVCAL

lRDHEAD.P.CHND(RS’ sSET READ HEADER COMMAND

24$:

000207

SEQ@ 0133

MOvVB
JSR
MOV
BIT

000007
000007

7041

7043

CLR

001176

MOVB

001200
001200

DEC

010000

000016

1%:

000023

001200

000025
001176

001200

2%:
3s:

001176

4$:

001176

000002
001174

5$:

BR
BIT
BEQ
MOV
BR
MOV
TST
BEQ
DEC
BR
MoV
DEC
RTS

P.DCYL(RS),SREGS ;GET CYLINDER NUMBER
$REGH
sCLEAR REGISTERS FOR

$SREG7

e e

sTRACK & SECTOR STORAGE

P.DTS(RS) ,SREG7 ;STORE THE TRACK AND SECTOR

P.DTS+1(RS),$REGH

$REG?7

;SEE IF HVRC ERROR
:BR IF YES
;ADJUST THE ADDRESS CONTAINED IN

;THE RK REGISTERS FOR THE AUTOMATIC
s INCREMENT

#CFMT,P.CST1(RS)
2%
#19. ,8REG7
3s
#21. ,3REG7
$REGH
43
SREG6H
5%

#2 ,3REGH
$REGS
PC

707

LR
ety

7072
7073

.SBTTL BUILD EXPECTED HEADER
:*USES DESIRED CYLINDER, TRACK AND SECTOR REGISTERS TO DETERMINE

7075

:*7 FOR REPORTING.

7074

s*WHICH HEADER WAS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND

7076

7077
7078
7079

034432
034434
034442

104407
016537
016501

000030
000026

001174

BLDEXH: SAVREG

MOV
MOV

R RN RN R RN RRRRRRRRRRR RN NNY

P.DCYL(RS),SREGS ;CONSTRUCT EXPECTED HDR
P.DTS(RS)
,R1 ;DESIRED CYLINDER & DESIRED TRACK

CZR6QCO RK6 DI PT PRO HACV11 30A(1052) 02-JuL-80 09:52 PAGE 132

CZR6QC.PN

174377

BIC

001000
001174
001176
001176
001174
001200

001176
001200

010000

0
000016

R1
R1
R1

;CLEAR ALL BUT TRACK BITS
;AND SECTOR. SHIFT THE TRACK
;OVER TO CONFORM TO HEADER FORMAT
sCHECK THE FORMAT BIT AND
;1F SET, SET THE HEADER FORMAT
TS(RS), SREG6 :BIT,

c1toooo.snese

001200

#174377,R1

¢1 7740 $REG6

140000

001176

0
0

27990

ASR
ASR
ASR

8?%654

SEQ 0134

BUILD EXPECTED HEADER

:g;nr.r.cs1<as)

:CLEAR ALL BUT SECTOR

:ADD TRACK AND SECTOR TOGETHER
; INSERT BSE BITS

23$:

#1000, SREG6

$REGS,SREG7
$REG6,R1
$REG6, SREG?
$REGS,R1
R1,$REG?

;COMPUTE THE HEADER VRC

f n
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 137
CZR6QC.P1N
02-JuL-80 09:50
RK611/RK06-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REvV. 0.10)

.SBTTL
AL

N
R
N
BN
R

CALL

N
I
N

P
T
T
I
P
T
L
TR L
IR

THE DRIVER WILL USE THE LOCATION W.SEC AS THE TIME

LIMIT FOR ALL OTHER COMMANDS.

FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL

WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL
OPERATIONS ONLY ONE OPERATION WILL BE WATCHED.
JSR
RETURN

Rttt RRRARROCRERROEOEROCRORRORRRRRARRARGRRRAIRRRARRRRRRRCRRORRCEOORETS

BNE
MOV

R3,=(SP)
R2,-(SP)
PS,=(SP)
W.ATIN
208
W.MILI,W.MTIM

;SAVE R5 ON THE STACK
:SAVE R4 ON THE STACK
;SAVE R3 ON THE STACK
:SAVE R2 ON STACK
:SAVE PROGRAM STATUS WORD ON STACK
:DECREMENT MILLISECOND TIMER
:1F NOT ZERO RETURN
:REINITIALIZE MILLISECOND TIMER

BEQ

20%

:NO, RETURN

MOV
MOV

746

177776
003066

7
7

003070
003110

MOV
DEC

003066

; 003052 177776
6

PC.W.WTCH
IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADDRESS
BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG
IN THE PROGRAM DEVICE STATUS REGISTER OF THE
APPROPRIATE PARAMETER BLOCK WILL BE SET.

MOV

—

00000

THE DRIVER WILL USE THE LOCATION W.MIN AS THE NUMBER

OF MILLISECONDS FOR AN UNLOAD OR START SPINDLE COMMAND.

W.WTCH: MOV

882285288

'y
s

coocococooo

THE WATCH-DOG TIMER DOES A PSEUDO-TIMING OF RKO6-RKO7 UNIBUS
SUBSYSTEM COMMAND. SINCE ONE CAN NOT GUARANTEE THAT A
REAL-TIME CLOCK (KW11=-P OR KW11=L) IS ON THE SYSTEM
THE RKO6-RKO7 DRIVER WILL USE THE LOCATION W.MTIM FOR
MILLI-SECOND TIMING. WHEN W.MTIM REACHES ZERO THE
WATCH-DOG TIMER WILL SCAN THE DRIVES IN USE AS
DETERMINED BY THE LOCATION W.TIME. THE TIMER COUNTS
(ONE FOR EACH DRIVE) ARE KEPT IN THE TABLE W.DRV.
IF ANY COUNT IN THE TABLE W.DRV REACHES ZERO A COMMAND
TIME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STATUS
REGISTER OF THAT DRIVE'S PARAMETER BLOCK.

JE 2

BF BN B

BN BN BN B

BN BN BN BN BN BN B

*WATCH-DOG TIMER

ittt RRRRRRRRRRERRERRRRRCOOERRRRORRRRARARNRRRRARRRRRRRRRANROOCROGOICERETY

OO®NO
VS W
—O

s*AUTHOR: ROY SPITZER

D i
D
D il

s*MAYNARD, MA. 01754

~
o
W

—

RK611/RK06-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

;*COPYRIGHT (C) 1975,1976.,1977
s*DIGITAL EQUIPMENT CORP.

D
-l

.SBTTL

) o

NNNNNNNNN
NN

7100
7101
710
710
7104
7105
7106
7107
7108
7109

TST8

MOV

MOV
DEC

BNE

RS,=(SP)
Ré4,=(SP)

W.TIME

RKPR1,PS

RKBAS ,R2

W.DRV

20%

;CHECK IF DRIVE IS BEING TIMED

:LOCK OUT RK06-RKO7? INTERRUPTS

:LOAD BASE OF RKO6-RKO7 REGISTERS
:DECREMENT COMMAND TIMER
;RETURN IF NO TIME OUT

SEQ 0135

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 133

CZR6QC.P1N

02=-JuL-80 09:50

7156
7157
7158

034636
034642

105037
013705

003110
003122

7160
7161
7162
716

034646
034654

052765

000100

034660

001002

034662
034666
034672
034676
034700
034702
034704
034706

005037
004737
012637
012602
012603
012604
012605
000207

7159

7164
7165
7166
7167
7168
7169
7170
7171

020537

003064

003064
040142
177776

*WATCH=-DOG TIMER

000014

CLRB
MOV

W.TIME
PBLKT,RS

BIS

#CMDTO,P. pasr<nss;SET COMMAND TIME OUT

BNE

CLR
JSR
MOV
MOV
MOV
MOV
MOV
RTS

0.WALT
PC,R.ABNL
(SP)+,PS
(SP)+,R2
(SP)+.R3
(SP)+ R4
(SP)+,RS
PC

CMP

5%:
20$:

SEQ 0136

RS,0.WALT

;RESET TIMING INDICATOR
LOAD Aooness OF FARAMETER BLOCK
TABLE FOR INDEXING

cuecx IF DRIVER IS WAITING FOR
COMMAND COMPLETION
NO DO NOT ALTER WAITING FOR
COMMAND COMPLET ION

CLEAR WAIT FOR COMMAND COMPLETION
BRANCH TO ERROR ROUTINE
‘RESTORE PSW
:RESTORE R2
:RESTORE R3
:RESTORE R&
:RESTORE RS
;RETURN

N
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 139
CZR6QC.P11
02-JuL=-80 09:50
*RK06 INTERRUPT SERVICE ROUTINE

SEQ 0137

;};

.SBTTL

;};g

;;tt"'QQ"."'""""Q"""""'Q'Q"'Q"Q'"Q'QQ'QQQ""Q""

*RKO6 INTERRUPT SERVICE ROUTINE

;};g

THIS ROUTINE WILL SERVICE ALL RKO6 INTERRUPTS.

UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL

7178

;};g

it
2

7181
7182
7183
7184
7185
7186

]

i’
I
v
i
e
e

;}gg

I
3

PERFORM ONE OF THE FOLLOWING SERVICES:

1.)
2.)
.)
&.)

SERVICE PORT WAS SEIZED BY OTHER PORT
SERVICE DRIVER IS WAIT FOR COMMAND COMPLETION
SERVICE POSITIONING COMPLETION
REQUEUE COMMAND IF DRIVE WAS RELEASED
FOR THE QUEUED RKO6 DRIVER.
5.) IF NO SERVICE IS REQUIRED, THE COMMAND WILL BE ISSUED

FOR THE QUEUED Rx06 DRIVER.

]

7189
;}g?

I
i

7192
7193

e
;e

THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM.
THEY ARE:

;}gg

7196
;}g;

I
‘e

7199
;gg?

e
ie

7202
7203
7204
7205
7206
7207
7208
7209
7210
n

e
i
I
e
i
e
e
e
I
e

;%}

1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)
2.) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND)

3.) A.CONT ADDRESS OF CONTROL ERROR RETURN

FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE
PARAMETER BLOCK WILL BE IN RS.
FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS
THE REASON FOR THE CONTROLLER ERROR.

ROUTINES USED:
C.OPT
Q.PUSH
Q.RMOV
R.CONT
R.NORM
R.ABNL
1.CSTS
1.STAT
1.18SU

I.CCLR

:-:'t.tttttQQtlttt""""'it""'tti'tttt'tt'tt'tttlttlttt'tt'ttt

7215
7216
7217

034710
034712

7219
7%20
7221
7222
722

010546
010446

1.INTR: MOV
MOV

034716
8;:7$g
7
034724
8367

010246
810166
10046
01370;
Olbgi

MOV
MOV
MOV
MOV
MOV

7225

034744

001407

7227

034754

7224

7226

(QUEUED ONLY)
(QUEUED ONLY)
(QUEUED ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)

7214

7218

———

034714

034736

034746

010346

032737

052737
004737

MOV

003046
000010

001000

100000

040166

003012

003062

RS,=(SP)
R4 ,=(SP)

;STORE RS ON THE STACK
;STORE R4 ON THE STACK

R2,=(SP)
R1,=(SP)
RO, =(SP)
RKBAS ,R2
RKCS2(R2),T7.CS2

;STORE R2 ON THE STACK
;STORE R1 ON THE STACK
;STORE RO ON THE STACK
;LOAD R2 TO ADDRESS RKO6 REGISTER
:STORE (CS2

R3,=-(SP)

BIT

#MDS,T.CS8

BIS

#E.MDS,E.CONT

BEQ
JSR

PC,R.CONT

;STORE R3 ON THE STACK

;CHECK IF MULTIPLE DRIVE SELECT
:NO,

CONTINUE PROCESSING

:SET MULTIPLE DRIVE SELECT
;REPORT ERROR

e c——— —

CIR6QCO RK6 DR CPT PROG5AC;81 30A(1052) 02-JuL-80 09:52 PAGE 148

CZR6QC.PN

02-JuL-80

§28

000137

034760

*RKO6 INTERRUPT SERVICE ROUTINE

037140

JMP

003104

18:

035012

72641

035020

010400
003012
177770
003122
000000
035332

003012

035050
035056

016237
032737

7251

035064

001041

7254

035066

032737

164000

003012

7256
7257

035074
035076

001007
016237

000014

003026

7260

035104

032737

125700

003026

7262

035112

001407

7266
7265
7266

035114
035122
035126

052737

7268

035132

105037
005037
013705

000012
000001

000010
040166
037140

003030
003030

003062

005037
004737
000137

003064
040142
037140

013705
001002

003064

000137

036122

013704

003012

;CHECK IF

SCHECK IF RELEASE COMMAND

CLRB

1.ISRL

‘NO,

INTERRUPT OR RELEASE

CHECK IF DRIVE AVAILABLE

YES,CLEAR FLAG

1.100

: CONT INUE pnocessxnc INTERRUPT

CLRB
JMP

I.ISRL
1.ATIN

:CLEAR FLAG
160 PROCESS DRIVE ATTENTIONS

6%:

BIT

#NED!UFE,T.CS2

;CHECK FOR NON-EXISTENT DRIVE OR

BEQ
MOV

4]
T.CS2,R4

7%:

: UNIT FIELD ERROR
sNO, WAIT FOR DUAL ACCESS INTERRUPT

BIC
MoV
MoV
JMP

#*C<DRVMSK>
,R&
PBLKT,RS
RKCS1(R2),T.CST1
I.ERRC

:LOAD R4 FOR DRIVE NUMBER
;KEEP DRIVE BITS
;STORE PARAMETER BLOCK ADDRESS
;LOAD TEMPORARY (CS1 FOR STATUS REPORT
;REPORT ERROR

MOV
BIT

RKDS(R2),T.DS
#DRA,T.DS

;STORE STATUS REGISTER FOR COMPARISON
'Cflsgsrlf DRIVE SEIZED BY OTHER

BNE

1.100

:NO, CONTINUE PROCESSING INTERRUPT

;CHECK IF ANY DATA TRANSFER ERROR EXISTS
BIT
#OLT!WCE'!UPE!NEM,T.CS2
BNE

MoV

10%

RKER(R2) ,T.ER

:INDICATE ERROR

;STORE ERROR REGISTER

CHECK FOR DATA TRANSFER ERROR TYPE ERROR
BIT
#OCK'!OPI'WLE'!COE'HVRC!BSE'!ECH,T.ER

BEQ

sNO, WAIT FOR RELEASE OF RKO6 DRIVE

108:

BIS
JSR
JMP

#E.UDAT,E.CONT
PC,R.CONT
I.RTRN

;SET UNEXPECTED DATA TYPE ERROR
;REPORT ERROR
;RESTORE REGISTERS

118:

CLRB
CLR
MoV

W.TIME
W.DRV
PBLKT,RS

sRESET TIMING ON THIS DRIVE
;CLEAR TIMING COUNT FOR THIS DRIVE
:LO:gogzsngN PARAMETER BLOCK

BIS

#DRVSZD,P.PRST(RS) ;SET DRIVE SEIZED IN THE

CLR
JSR
JMP

0.WAIT
PC,R.ABNL
I.RTRN

MOV
BNE

0.WAIT,RS
2%

;LOAD PARAMETER BLOCK ADDRESS INTO RS
;1S COMMAND WAITING PROCESSING

JMP

[.ATTN

iNO, PROCESS ATTENTION

MOV

T.CS2,R4

000014

052765

1.ISRL

5%:

003010

7248
7249

;RETURN

003104
036122

1.RTRN

BEQ

BM]

003104

7
7239

1STB

SEQ 0138

1.100:

2%:

PROGRAM DRIVE STATUS REGISTER

:CLEAR WAIT FOR COMMAND COMPLETION
:INDICATE ABNORMAL TERMINATION
:GO RESTORE REGISTERS

YES, DO PROCESSING

;STORE RKCS2 FOR DRIVE NUMBER

J "
CZR6QCO RK6 DR s PT PROG HAC111 30A(1052) 02-JUL-80 09:52 PAGE 141
CZR6QC.PN
0 =JuL-80
*RK06 INTERRUPT SERVICE ROUTINE
177770

BIC

#*C<DRVMSK>
,R4

;MASK OUT UNNECESSARY BITS

O00O00O

000000

CMPB
BEQ

P.DRVN(RS) ,R4

;CHECK IF DRIVE NUMBER IS EXPECTED

7308
7309

=r0

=2 WO =N
O N AW

8822822388 8 8x

306
035312

035206

OCO0OO00O0O0

7304

000164

000001

035570

000016
003111

035316

000010

035324
035330

037610
000016

037156
010400

000062
000060

000020

0.WAIT
W.DRV
W.TIME
RKCS1(R2),T.CST1

;CLEAR
;CLEAR
sRESET
;STORE

1.ERRC

:YES, PROCESS ERROR

BIT

#CERR,T.CST

003010

003111

003025

035430

000020

003062

035436
035442

040166
037140

WAIT FOR COMMAND COMPLETION
WATCH-DOG TIME
TIMING ON THIS DRIVE
COMMAND AND STATUS REGISTER 1

sCHECK IF CONTROLLER ERROR

RKASOF (R2),T.ASOF:STORE ATTENTION SUMMARY

INTMSK, T.ASOF+1 ;CHECK IF DRIVE ATTENTION SET

158
PC,R.NORM
I.RTRN

:YES, REPORT ERROR
:INDICATE NORMAL RETURN
;RESTORE REGISTERS

BIS

SFUEXATT ,P.PRST(RS)

JSR

PC,1.CSTS
I.ERR

;STORE CONTROLLER STATUS
;STORE PATTERN AND POSITION INFORMATION

MOV

;SET UNEXPECTED ATTENTION

T.CS1,P.CS1(R5)

;GET ERROR RKCS1

PC,1.CST
:GET REST OF CONTROLLER STATUS
RKECPT(R2) ,P.EPAT(RS) ;STORE ECC PATTERN

RKECPS(R2) ,P.EPOS(RS) :STORE ECC POSITION
RO,I.CCLR
;CLEAR CONTROLLER
ERROR RETURN

#NED!UFE,P. CSZ(RS):CHECK IF IT WAS NON-EXISTENT DRIVE OR
RO,I.STAT

000005
037240

0354564
835656
035464
035472
035474
035502
035506

CLR
CLR

037714

035446

:NO, EXECUTE NORMAL DATA TRANSFER
;GO EXECUTE SPECIAL HEADER SEQUENCE

BNE
MOV
BITB
BNE
JSR
JMP

000014

ERROR

108
I .HDAL

CLRB

040154
037140

.ves CONT INUE

, DRIVER
#RDALHD,P. cnno(aS):CHECK
IF READ ALL HEADERS

MoV

003024
003025

HALT
CMPB
BNE

JMP

003010
003010

iz 83330

7327
7328
7329
7330
733
7332
7333
7334
7335
7336
7337
7338
7339

SEQ 0139

#OR.CLR,T.CS1
RO,I.ISSV

UNIT FIELD ERROR
:
:YES, REPORT ERROR

:GATHER DRIVE STATUS

:ERROR RETURN

;LOAD COMMAND
s ISSUE DRIVE CLEAR

;ERROR RETURN
INTMSK, T.ASOF +1 CHECK IF ATTENTION RESET
2s
INDICATE DRIVE ERROR

#E.CLAT,E.CONT .SEf ATTENTION DID NOT RESET
PC,R.CONT

WITH CLEAR
:
‘REPORT CONTROLLER ERROR

003034

#5.0SC,T.MR2

cuecx IF DRIVE STATUS CHANGE CLEARED

000014
003036

#5.PAR,

uécx IF DRIVE PARITY ERROR

1.RTRN

003062

:G0 RESTORE REGISTERS

CHECK FAULT

ooavosc P. Past(aS)ser DSC DID NOT CLEAR
13

T.MR3

INDICATE ABNORMAL TERMINATION

#E .DPAR,E . CONT sef DRIVE PARITY ERROR
PC.R.CONT
1.RTRN

SINDICATE CONTROLLER ERROR
*RETURN

K1
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 142
*RK06 INTERRUPT SEKVICE ROUTINE
CZrR6QC.PN
02-JuL-80 09:50
7341

035512

032765

7344

035530

001413

7
7

;

7345
7346

7347
;3‘3

7350
;§g1

0355
035522

0355 8
035540

035546
03555¢

035560
035564

000020

000014

020000

003034

BNE
BIT

052765
113737

020000
003111

000014
003110

BIS
MOVB

#E.UNLD,P.PRST(RS) :SET DRIVE UNLOADING
INTMSK,W.TIME
;SET UP 8 SECONDS FOR DRIVE TO CYCLE UP

000137

037140

JMP

1.RTRN

;60 RESTORE REGISTERS

PC,R.ABNL
1.RTRN

:G0 RESTORE REGISTERS

001917
032737
013737

004737
000137

003074

S$:

BEQ

003124

040142
037140

;§§‘

BIT

SEQ 0140

MOV

#ORVHRD,P.PRST(RS)

108
#S.PIP,T.MR2
108

W.8SEC.W.DRV

;CHECK IF HARD DRIVE ERROR

:YES, GO REPORT ERROR
:CHECK IF DRIVE IS CYCLING DOWN
‘NO. REPORT ERROR

108:

JSR
IMP

.SBTTL

*READ ALL HEADERS INTERRUPT SEQUENCE

:60 REPORT ERROR

;ggz

035570

016237

000000

003010

I1.HDAL: MOV

7357

035576

032737

100000

003010

BIT

#CERR,T.CS1

:CHECK IF CONTROLLER ERROR

7360
7361
736§
7363

035606
035612
035616
035622

005037
105037
005037
013765

003064
003110
003124
003010

000016

CLR
(LRB
CLR
MOV

0.WAIT
W.TIME
W.DRV
T.CS1,P.CS1(RS)

:CLEAR
:RESET
:CLEAR
:STORE

7365
7366
7;2;

035634
035640
83564

004037
037140
8837 7

037156

RO.1.CCLR

8‘01‘5

JSR
1.RTRN
JSR

7370

035652

016237

000016

;ggg

7364

;soo

7371
7372
7373
737
7375
;g;g

035604

035630

3564

035660
035
035670
035674
035700
035704

001422

004737 037632
137

133737
001410
005037
105037
005037
000137

003111

JNP
003024

003025

013701

003100

7380
7381
7sa§
7383

035720
ossrga
035730
035734

016521
016221
010137
016237

000024
000024
003100
000010

7385
7386
7387

035750
035752
035756

oo1gss
005337
1o§9

003102

7389
7390

35796
035770

5037
105037

003124
00311

000024

003012

738, 035742 032737 100000 003012

7391

739
739
739
7395

035760

005037

003064

035774 otsrg; sgooo

sooos 1127
1
og&osr
14 -037140
036016 013765

1
240

003010

003036

000056

PC,I1..ST1

PC,R.ABNL

1.RTRN

INO, CHECK FOR ATTENTION

WAITING FOR COMMAND COMPLETE
TIMING ON DRIVE
TIME OUT COUNT
ERROR RKCS1

:STORE CONTROLLER REGISTERS
:CLEAR CONTROLLER
*ERROR RETURN
:INDICATE ERROR RETURN

‘RESTORE REGISTERS

58:

MOV

BITB
BEQ
CLR
CLRB
CLR
JMP

INTMSK,T.ASOF+1
7
0.WAIT
W.TIME
W.DRV
1.ERRA

;CHECK IF DRIVE ATTENTION IS SET
:NO, CHECK IF READ ALL HEADERS
:CLEAR WAITING FOR COMMAND COMPLETION
SRESET TIMING ON DRIVE
:CLEAR TIME OUT COUNT
:60 REPORT ERROR

78:

MOV

HDR.AD,R1

;GET MAIN MEMORY ADDRESS

MOV
MOV
MOV
MOV

RKDB(R2) .(R1)¢
RKDB(R2) .(R1)+
R1,HDR.AD
RKCS2(R2),T.CS2

:GET SECOND WORD OF HEADER
:GET THIRD WORD OF HEADER
:STORE ADDRESS FOR NEXT HEADER
:STORE CS2 TO CHECK FOR DATA LATE

003064
003110
003124
035324

035710

7388

JSR

03714

7378

7379 035714 016221

BEQ

RKCS1(R2),T.CS1 ;srggsogs1 TO CHECK CONTROLLER

MOV

BIT
BNE
DEC
BNE

RKASOF (R2),T.ASOF ;STORE ATTENTION SUMMARY

RKDB(R2),(R1)+

#OLT,T.C52
35%
HDR.CT
25%

CLR

0.WAIT

MOV

#3 RKMR1(R2)

CLR
CLRB

MOVB
JSR
1.RTRN
MOV

W.DRV
W.TIME

#DR.SEL.T.CS1
RO,1.ISSU

:GET FIRST WORD OF WEADER

:CHECK FOR DATA LATE

:YES, REPORT ERROR
:DECREMENT NUMBER OF HEADER YET TO READ
:IF NON-ZERO, GO ISSUE NEXT READ HEADER

:CLEAR DRIVER WAITING FOR COMMAND COMPLETION
:CLEAR TIME OUT COUNT FOR THIS DRIVE
SCLEAR WATCH DOG TIME ON THIS DRIVE

:LOAD MAINTENANCE REGISTER FOR SECTOR COUNT

:LOAD SELECT COMMAND
tGET SECTOR COUNT
‘ERROR RETURN
T.MR3,P.B11(RS) ;LOAD SECTOR COUNT

CZR6QCO RK6 DR

CZR6QC.P1N
7

PT PR

HACY11 30A(1052)

0047 7

03 123

rass azaso
0

7S
g oeon
GRebis8

258:

036056

036064
036072
036100

000125
000016
037140

000016
000000

036104
036112
036116

000400
040166
037140

003062

09:52

PAGE 14

JSR

PC,R.NORM

MOV

P.CYLN(RS),RKDCYL(R2) ;LOAD CYLINDER ADDRESS REGISTER

BIC

#-C<COT!CFAT>,P.cs1é=§&5;$$$ea ALL BITS EXCEPT FORMAT AND

JMP

016562

MOV
MOVB

35¢:

1.RTRN

;INDICATE NORMAL TERMINATION

:RESTORE REGISTERS

P.SECT(RS).RKDA(R2) :LOAD SECTOR AND TRACK
P.CSlN(lS).P.CS101(R§) ;STORE BITS 8-15 OF (S1

MOVB

WRDHEAD,P.CS1(RS)

JMP

1.RTRN

;RESTORE REGISTERS

BIS

#E.OLT,E.CONT

;SET DATA LATE WHILE UNLOADING HEADER

JMP

1.RTRN

:RESTORE REGISTERS

MOV

.SBTTL

JSR

;STORE COMMAND ISSUED

P.CSTC(RS) ,RKCS1(R2)" ; ISSUE READ HEADER
PC.R.CONT

:REPORT ERROR

*DRIVE ATTENTION SCANNER

016237

000000

003010

1.ATTN: MOV

036130
036136

032737
001441

100000

003010

BIT
BEQ

036140

032737

164000

003012

;CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS
BIT
#OLT'WCE
'UPE 'NEM,T.CS2

036146
036150

001007
016237

000014

003026

BNE
MOV

036156

032737

125700

003026

036164
.
036166
036174
036200

001407

036204
036210
036214
036220
036224

—_—

PON)
=2 N = O
bg o
nNSsSOoOONY

052737

]

036122

o
o

76402
7640
76404
7405
7406
76407
7408
76409
76410
76411
7412
76413
76414
7415
76416
76417
76418
7419
76420
7621
76422
7423
7424
7425
76426
7427
7428
7429
76430
76431
76432
743
76434
7435
76436
76437
76438
7439
7440
7641
7642
744
76444
7445
76446
76447
76448
7649
76450
76451

02-JUL=-80

*READ ALL HEADERS INTERRUPT SEQUENCE

036230

042765

000006

03623%6

000137

035332

036242
036250
036252

032737

040000

00013

037140

036256
036264

016237
105737

000012
00302

00100;

003062

;

‘NO, CHECK IF ATTENTION

:INDICATE ERROR
:STORE ERROR REGISTER

#DCK'OPI'WLE
' COE 'MVRC 'BSE'ECH,T.ER

BEQ

:NO DATA TRANSFER ERROR

1$:

BIS

#E.UDAT,E.CONT

;SET UNEXPECTED DATA TYPE ERROR

28:

MOV
BIC

1.C52,R4
#C<DRVMSK>
R4
W.TIME
W.DRV
PBLKT,RS

;SAVE CS2 FOR REGISTER NUMBER
:STRIP OFF JUNK

JSR
JNP

;
;

5%:

68:

PC.R.CONT
1.RTRN

:REPORT ERROR
:RESTORE REGISTERS

:CLEAR WATCH DOG TIMER
:RESET TIMER VALUE

:STORE PARAMETER BLOCK ADDRESS IN RS

CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER
IN PROGRAM DEVICE STATUS REGISTER
S)
POS
! DRVPDT,P.PRST(R
JDRV
BIC
JMP

1.ERRC

;60 REPORT ERROR

BIT
BNE

#01,7.CS1
68

;CHECK IF ANY DRIVE ATTENTION
:YES, PROCESS INTERRUPT

MOV

RKASOF
(R2) ,T.ASOF ;STORE ATTENTION SUMMARY

JMP

003024

1%
RKER(R2),T.ER

:"
REGISTER 1 FOR COMPARISON
“CHECK IF CONTROLLER ERROR OCCURRED

CHECK FOR DATA TRANSFER ERROR TYPE

MOV

003010

#CERR,T.CS1
5%

BIT

CLRB
CLR

000014

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS

1s18

1.RTRN

T.ASOF +1

:RESTORE REGISTERS

sCHECK [F ANY ATTENTIONS SET

SEQ 0141

LIRR

CZR6QCO RK6 DR %PT PROG M(Y‘l‘l 30A(1052) 02-JUL=-80 09:52 PAGE 144
CIR6QC.P11
02-JuUL-80
*DRIVE ATTENTION SCANNER
745

BNE

745§ 8s§§5§ §§27 000002 003062
0

;255 036304

737

040166

133737
001007
052737
004737

003111

003025

000004
040166

003062

7457
7458
7459
76460
;261

036310
036;16
036320
036326
036332

76464

036342

7666

036356

00140

000137

037040

76469

036362

042765

000002

000014

7471

036374

112737

000001

76473
7676

036406
036410

000137

037140

742% 036336 013705 003122
76465

;22;

036346

036356

76470 036370

76472

7675

036402

116504

032765

oosog;

004037

037140
013765

036416 032765

000000

020000

000026

037240
003036

000200

8s:
000014

118:

1.UNLD

;CHECK IF DRIVE UNLOADING

:NO, CONTINUE

:SERVICE DRIVE IN POSITION AFTER ERROR

000042

‘ERROR RETURN
T.MR3,P.BOOCRS) :STORE STATUS BYTE 00 MESS B

052765

004000

000014

036464
036470

112737
004037
037140

000005

003010

76490
7491
749
7493
;23;

036506
036510

001407
052737

003024
003111

000032
000033

000020

003062

036516
036522

004737
000137

040166
037140

76496

036526

013765

003034

7499

036542

;281

7503
7506
7505
7506

000040

;23; 036534 032765 040000 000040

CLR

JSR

000042
000040

76488 036472 013765
7489 036500 133765

BEQ

05 UNLD,P. pnsrtaS)

1.RTRN
MOV

823034

037240

:STORE DRIVE NUMBER

;STORE PARAMETER BLOCK TABLE

#DR.SEL,T.CS1

8 765

036456

P.DRVN(RS),R4

PBLKT,RS

MOVB

8;2222

76486
76487

MOVB

MOV

:60 RESTORE REGISTERS

003010

7479

7485

:60 RESTORE REGISTERS

BIT

12$:

158:

SCLEAR MAINTENANCE REGISTER 1

RO,1.ISSU

SSELECT DRIVE WITH ATTENTION HIGH

:LOAD COMMAND

#5.FLT,P.BOOCRS) ;CHECK IF DRIVE FAULT

B8R

1.AERR

MOV

128

;NO, CHECK FOR DRIVE STATUS CHANGE

:PROCESS ERROR

T.MR2,P.AOOCRS) ;STORE MAINTENANCE REGISTER 2

BIT
BNE
BIS

#5.0SC,P.AOOCRS) ";CHECK FOR DRIVE STATUS CHANGE
13%
:YES, PROCESS DRIVE STATUS CHANGE
onoosc P.PRST(RS) ;SET NO DRIVE STATUS CHANGE

1.AERR

;PROCESS ERROR

MOVBE

#DR.CLR,T.CS1

:LOAD COMMAND

MOV
BITB

T.ASOF ,P.ASOF (RS} :STORE ATTENTION SUMMARY
INTMSK.P.ASOF+1(RS) ;CHECK IF ATTENTION RESET

B8R
13$:

:RESET DRIVE POSITIONING

RKMR1(R2)

BIT

BEQ

;2;3 036426 000461

;232 036454 000446

1.RTRN

:6G0 REPORT ERROR

#DRVPOS,P.PRST(RS)

001401

0000

INTMSK,T.ASOF+1 ;CHECK IF DESIRED INTERRUPT
8%
vss GO PROCESS 1T
#E. UArt.E CONT
:SET UNSOLICATED ATTENTION
PC.R.CONT
:GO REPORT ERROR

.CONT

itau

BIC

036426

3 765

BITB
BNE
BIS
JSR
JMP

JMP

76476

7480
7681 036444
7682 036446

oe nour e CONT :SET NO ATTENTION IN ATTENTION SUMMARY

7%:

;YES GO PROCESS INTERRUPT

BIS
JSR

037140

SEQ 0142

JSR
1.RTRN

RO,1.ISSU

BEQ
BIS

158
#E.CLAT,E.CONT

JSR
JMP

PC,R.CONT
1.RTRN

MOV

:CLEAR DRIVE STATUS CHANGE
*ERROR RETUN

:YES. CONTINUE INTERRUPT PROCESSING
:SET ATTENTION DID NOT RESET
:
WITH DRIVE CLEAR
:FLAG ERROR
:RESTORE REGISTERS

T.MR2,P.AOOCRS) ;STORE MAINTENANCE REGISTER 2

BIT

#5.0SC.P.AOO(RS)
c:gg:
";
IF DRIVE STATUS CHANGE

001404

BEQ

036552

000407

BIS
BR

tonvosc P.PRST! aS) §£t DRIVE STATUS CHANGE DID NOT CLEAR
1.AERR

;G0 PROCESS ERROR

036554
036560
036596
036570

105037
005037
004737
000563

CLRB
CLR
JSR
BR

W.TIME
W.DRV
PC,R.NORM
1.RTRN

;RESET TIMING ON THIS DRIVE
SCLEAR DRIVE TIMING COUNT
*REPORT SUCCESSFUL COMMAND COMPLETETION
‘RESTORE REGISTERS

7500 036544 052765 000040 000014
003110
003124
040154

168:

168

CONTINUE INTERRUPT PROCESSING

CZR6QCO RK6 DR

CZR6QC.P11

CPT PROG MACY11 30A(1052)

oS-JUL-ao 09:50

;283

;g}?
751

7513
7514
7515

TM
TM

LSBTTL

036572
036600

0366064
036610
036616

0366;&
0366 8

7518
7519
7520
7551
75 §
75

036640
036646
036656
0
8
segre

7525
526
527
7528
75
75
7531
75
7533
;g)g
75
7537
7538

7524

7539

042765
105037

005037
042765
042737

053765
81 765

000004

00301
003012

003014
003016
003020
003022
003026
0030 3

36712
036716
0367
0367
0367
036734
036742
036744
036752
036756

0?6037
0 7169
11273
004037
037140
133737
001407
052737
004737
000137

037714

036762
036770
036772

032765
001017
032737

036704

037000

013765

000016
003010
000016
000020
000022
000024
000026
000030
000032
000034

020000

003034

BIT
BNE
BIT

05%7 S 020000 000014

BIS

037024

000137

037140

7545

037030

004737

040142

000137

037140

;gzg
7550
7551
7552
7553

037040
037046
037054
037060

052765
112737
004037
037140

7555

037070

0014

020000
000005
037240

000014
003010

136437

003111

003025

037072
037100
037104

012737
004737
000415

000020
040166

003062

560 037106

032737

040000

003034

7557
;ggs

7561

7562
7563

37062

037114

001403

037116 052765 000040 000014
0327124

105037

003110

1.05.P.DS(R3)

#ORVHRD ,P.PRST(RS) ;CHECK IF AHARD DRIVE ERROR
108
:YES, REPORT ERR
#S.PIP,T.MR2
CHECK IF DRIVE lS UNLOADING

000014

BEQ

003110
003124

Y.C§1 P.CSE1(RS) HAKE GOOD MESSAGE
Y.CSZ.P.CSZ(IS) sSTORE CONTROLLER REGISTERS

;GATHER DRIVE STATUS
JERROR RETURN
#DR.CLR,T.CS1
:LOAD COMMAND
RO,I1.ISSU
sCLEAR DRIVE ERRORS
JERROR RETURN
INTMSK,T.ASOF+1 :CHECK IF ATTENTION RESET
28
:YES, FLAG DRIVE ERROR
#E.CLAT,E.CONT
;SET ATTENTION DID NOT RESET
PC,R.CONT
JREPORT ERROR
I1.RTRN
JRESTORE REGISTERS

000020

003111

CLEAR TIMING FOR THIS DRIVE

JSR
I1.RTRN
MOVB
JSR
1.RTRN
BITB
BEQ
BIS
JSR
JMP

003062

003074

U 11!!

\ .WCR.P.WCR(RS)
T.8A,P.BAR(RS)
T.DA,P.DTS(RS)
T.0C.P.DCYL(RS)
T.ASOF ,P.ASOF (RS)
T.ER,P.ER(RS)

MOV

2%:

#DRVPDT,P. PRS!(IS) b:ESE;AP?gizgoglNG IN PROGRESS BECAUSE

MOV
MOV
MOV
MOV
MoV
MOV

BIS
MOV

SEQ 0143

‘RESET WATCH-DOG TIME
0177761 P. cs1<us$ :KEEP COMMAND ISSUED
#36,1.C51
;KEEP CURRENT CONTROLLER STATUS

000020
040166
037140

;gz‘

037034

CLRB

003025

113737

PAGE

CLR
BIC
BIC

003111

013737

;22?

1.AERR: BIC

003010

7542

03701

0030

09:52

*ATTENTION ERROR MANDLER

S
037240

7540 03700

037016

000014

003110

003124
177741
ooooss

013765
013765
013765
13765
13765
13765

001413

7541

02=JUL=-80

*ATTENTION ERROR MANDLER 165 ,

RO,I.STAT

108

REPORT ERROR

#E .UNLD,P. PRST(RS);SET DRIVE UNLOADING DUE TO ERROR

MOVB
MOV
JMP

U.BSEC.U.DRV

1.RTRN

:RESTORE REGISTERS

108:

JSR

PC,R.ABNL

JREPORT ERROR

.SBTTL

*ERROR CAUSING DRIVE TO UNLOAD

JMP

I.UNLD: BIS
MOVB
JSR
1.RTRN

BITB

BEQ

MOV
JSR
BR
15%:
20%:

BIT

BEQ

BIS

CLRB

lNTHSK.H TIME

I.RTRN

.SE? TIMING ON TKIS DRIVE

sLOAD 8 SECONDS FOR CYCLE UP TIME

sRESTORE REGISTERS

#E.UNLD,P.PRST(RS) ;CLEAR DRIVE UNLOADING BECAUSE OF ERROR
#DR.CLR,T.CS1
;LOAD IN DRIVE CLEAR
RO,1.ISSU
:60 ISSUE DRIVE CLEAR

*ERROR RETURN

INTHSK(R4G) ,T. ASO*01 JCHECK IF ATTENTION CLEARED

158

;YES, CONTINUE

#E.CLAT, E CONT
PC.R.CONT
I. RTRN

;SET ATTENTION DID NOT RESET
:REPORT ERROR
sRESTORE REGISTERS

#S.0SC,T.MR2

CHECK IF DRIVE STAUS CHANGE RESET

208

CONT INUE

#DRVDSC,P. PRST(Rg)SET DRIVE STAUS CHANGE DID NOT CLEAR
W.TIME

RESEY TIMING ON THIS DRIVE

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 162

CZRrR6QC.P1Y

02-JuL-80 09:50

7564

03N

7568
7569
7570
7571
7572
7573

037142
037144
037146
037150
037152
037154

00312

;26527132 8849;7 04014
752? 037140 012600
012601
01260
01260
012604
012605
000002

*ERROR CAUSING DRIVE TO UNLOAD
CLR

W.DRV

Mov
MOV
MoV
MoV
MoV
RTI

(SP)+,R1
(SP)+,R
(SP)+,R
(SP)+,Ré4
(SP)+,RS

JSR
I.RTRN: MOV

PC,R.ABNL
(SP)+,RO

SEQ 0144
;CLEAR TIME COUNT

;REPORT ERROR
sRESTORE RO
sRESTORE
sRESTORE
;RESTORE
sRESTORE
;RESTORE
sRETURN

R1
R
R
R4
R5

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 16$

CZR6QC.PN

*CONTROLLER CLEAR ROUTINE

02-JuL-80 09:50

.SBTTL
AR

SEQ 0145

*CONTROLLER CLEAR ROUTINE
A A

A AR

iRl

AR ddRRddddddddldl]])

]

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER
AND CHECK IF THE CONTROLLER ERRORS ARE RESET.
I[F THE ERROR IS NOT

‘%

CLEARED, THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH

E.CCLR SET IN E.CONT.

‘%
"
v

USE

R2
RS

ADDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

*®
M
‘%

b
M
‘%
*

CALL

RO,I.CCLR

JSR

<ADDRESS OF

RETURN

ERROR RETURN>

037156
037164
037172

100000
000000
100000

000000
003010
003010

000001
040166

003062

000100
177777

I. CCLR: MOV

5%:

R R

R RRddRRtRdddRddtRdlddd])

BEQ
BIS
JSR
RTS

*RETURN

MOV
MOVB
ST
RTS

#1E,RKCS1(R2)
#-1.1.ISRL
(RO) +
RO

;SET INTERRUPT ENABLE
*SET INTERRUPT ENABLE ISSUED
*ADJUST FOR NORMAL RETURN
;RETURN

MOV
000000
003104

#CCLR,RKCST1(R2) ;CLEAR CONTROLLER
RKCS1(R2),T.CS1 :STORE COMMAND AND STATUS REGISTER 1
#CERR,T.CS1
:CHECK IF CONTROLLER CLEAR DID
: CLEAR ERROR
58
:YES, RETURN TO DRIVER PROCESSING
#E.CCLR,E.CONT :SET CLEAR CONTROLLER DID NOT CLEAR ERROR
PC.R.CONT
*REPORT CONTROLLER ERROR

MOV
BIT

037216
037220

(r0) .RO

:SET UP ERROR RETURN

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 14
CZR6QC.P1N
02-JuL-80 09:50
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE
.SBTTL

SEQ 0146

*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

iRttt RRRRRRARARRCRRRRRRRRORRRROARRARARRARARARRORCROARRRNCOCQORRORETSY

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1
AND CHECK IF A CONTROLLER ERROR OCCURRED.
IF A CONTROLLER

ERROR OCCURRED, E.CERR WILL BE SET IN E.CONT AND
CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

b
‘%

ADDRESS IN A.CONT.

b
* %

USE

ADDDRESS OF RKO6 REGISTERS

M
M

]

ADDRESS OF PARAMETER BLOCK

* %
*®

CALL

JSR

RO,I1.ISSU

<ADDRESS OF

RETURN

ERROR RETURN>

ROUTINES USED:

*®
M
b

1.STOR

M
AL AA

O WO

NIVNW
W WO NN S
~ NNONNO

iR RRRRRdRRRRRddRtRddddd])

001000

003012

37
25

100000
040166

003062

037354
037362
037364
037372
037374

032737
001027
032737
0010%3
032737

024000

003010

176400

003012

BIT

;gFE!PGE!NEI!NED!UPE!UCE!DLT.T.CSZ

131761

003026

BIT

;{LC!DTVE!FRTE!ECH!BSE!NVRC!COE!DTE!OPl!DCK.‘.ER

037404

122716

000005

CMPB

#OR.CLR, (SP)

= §5
\d&:
o
~N o o

&
eshl

o
W
~

v
~

o
o
e
(V]
~
fl
VIV
NN
(V]

(]

037402

003010

[=l=l=]

100000

WVilkd
N =N =N
NEOENNUWNSN

037462

N
&
L

WWWWNOO,

7665

ARl

SI8% gs-nac: - D g2
%
80.. £ b b
§§~i~ec~

7659
7660
7661
7662
;222

'ooso1o

o
v
FE

7656
7657
7658

037240

3o
W
W
wr w

[+ ]

001017

003012
000000
003012
000007
177753

I. I1SSuU: MOV

CLR

003012

003010 000000
000000 -

1$:

sSTORE COMMAND ISSUED

:CLEAR TEMPORARY (S$2

P.DRVN(RS),T.CS2 ;LOAD IN DRIVE NUMBER
T.CS2,RKCS2(R2) ;LOAD DRIVE NUMBER FOR COMMAND

BICB

#°C<B.CDT'B.CFMT>,T.CS1+1 :CLEAR ALL BITS EXCEPT

P.CSTH(RS),T.CS141 ;STORE BITS 8-15 OF (S1

MOV
1STB

; E $1,RKCS1(R2)
KCS1(R2)

BIT

#CERR,T.CS1

BPL
JSR

BEQ
BIT
BEQ
BIS
JSR

BR
2%:

T.CS2

MOVB
MOV

MOVB

003011

T.CS1,-(SP)

1%
PC,1.STOR

5%
#MDS,T.CS2
28
#E.MDS.E.CONT
PC,R.CONT

10§

FORMAT AND DRIVE

:ISSUE COMMAND

TYPE

:WAIT FOR READY

;60 STORE REGISTERS

:CHECK IF CONTROLLER ERROR OCCUERED

:NO, RETURN
:CHECK IF MULTIPLE DRIVE SELECT
INO, CHECK FOR OTHER CONTROLLER ERRORS
:SET MULTIPLE DRIVE SELECT FLAG
:REPORT CONTROLLER ERROR

*RETURN

CHECK IF _ANY CONTROLLER ERROR IS SET
lg!O'SPART.C81

;CHECK IF CLEAR DRIVE

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE165

CZR6QC.PN

7666

037410

02-JuL-80 09:50
001003
052765
004037
037454

000020
037156

000014

000100

000000

7673

037440

7675

037442

052737

001000

7677
7678

037450
037454

004737
005726
011000
000200

040166

7679
7680

037456
037460

*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

003062

BNE

3s:

8IS
{32

5%:

MoV

7%:
108:

ST
TST
RTS

:NO

DO NOT SET DRIVE HARD ERROR

RO,I.CCLR

;G0

ISSUE A CONTROLLER CLEAR

IDRVHRD.P.PRST(Rs):SET HARD DRIVE ERROR
#1E,RKCST(R2)
(SP)+
(RO)+
RO

BIS

#E.CERR,E.CONT

JSR
TST
MoV
RTS

PC,R.CONT
(SP)+
(RO) RO
RO

'ERROR RETURN
sSET INTERRUPT ENABLE
:ADJUST STACK

:ADJUST RO FOR NORMAL RETURN

:RETURN

sSET CONTROLLER ERROR DURING
: DRIVER SERVICING
sREPORT ERROR

sADJUST STACK
:ADJUST RO FOR ERROR RETURN

;RETURN

SEQ 0147

F 12
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 150
CZR6QC.P1Y
02-JuL-80 09:50
*STORE RK611 UNIBUS REGISTERS
;231

LSBTTL

7“

;;ttt"'.'t"Q'Q"Q't"'"00""""Qtt't.'t".""t"tt""t""

7684
7685

i
L

;ggg

JSR
RETURN

PC,1.STOR

USE
-

ADDRESS OF RK611 REGISTERS

E:'Q't'tQQtt'Qt""""'t""'t't"'tt'tt't."tt't'ttt"'t""'t'
037462
037470
037476
037504
037512
037520
037526

016237
016237
016§37
016237
016237
016237
016%37

000000
000010
000002
000004

7706
7707
77
77
7710

037542
037550
837 56
7564
037572

016237
016237
816 7
016237
016237

000020
000026
8888;2

7711
7712

;*CALL
)
.
i
it
i
i

7697
7698
7699
7700
7701
7702
7703
7704

7705

RK611 REGISTER IN TEMPORARY LOCATIONS.

76%

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER TO STORE ALL

e
b

7688
7689
7690
7691
7692
7693

+STORE RK611 UNIBUS REGISTERS

037534

037600
037606

016237

016237
000207

000012
000014

000016

000030
000032

003010
003012
003014
003016
003020
003030
003026

1.STOR: MOV
MOV
MOV
MOV
MOV
MOV
MOV

003022
003032
003034
003036
003040

MOV
MOV
MOV
MOV
MOV

003024

003042

MOV

MOV
RTS

RKCS1(R2),T.CS1 :STORE ALL CONTROLLER REGISTERS
RKCS2(R2),T.CS2 ;
EXCEPT DATA BUFFER
RKWC(R2) ,T.WCR
RKBA(R2),T.BA
RKDA(R2),T.DA
RKDS(R2),T.DS
RKER(R2) ,T.ER

RKASOF
(R2) . T.ASOF

RKDCYL(R2),T7.DC
RKMR1(R2),T.MR1
RKMR2(R2),T.MR
RKMR3(R2),T.MR
RKECPS(R2),T.POS

RKECPT(R2),T.PAT
PC
:RETURN

SEQ 0148

CIR6QCO RK6 DR CPT PROG HAC;31 30A(1052) 02-JuL-80 09:52 PAGE 15?

CZR6QC.P1N

02-JuL-80 09

SEQ 0149

*STORE CONTROLLER STATUS

A A

AR A

ARl

RRRRRd]])

I
N
BN

COMMAND AND STATUS REGISTER 2

B
BN

E T

A A

WORD COUNT REGISTER
BUS ADDRESS REGISTER
DESIRED TRACK AND SECTOR
STATUS REGISTER
ERROR REGISTER
ATTENTION SUMMARY/OFFSET REGISTER
CYLINDER ADDRESS REGISTER

BN B

T
T

IR BN B
N

THE FOLLOWING REGISTERS WILL BE STORED:

CALL

JSR
RETURN

PC,1.CSTS

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

R
R
R

BN BN B

CONTENTS

R2
RS

RKO6 BASE ADDRESS

ADDRESS OF PARAMETER BLOCK

037610

177761

AR d

BN B

BN BN

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER AT PRIORITY 7.

BN B

TR TETE

E T

+STORE CONTROLLER STATUS

MAL AL AL A

.SBTTL

1.CSTS: BIC

037616

1.CST1: MoV

662
037670
037676
037704
037712

34
000032
016265
000207

000030

AR A

AR AR

RddRR

Rdd

]

)

RKASOF (R2) .P.ASOF (RS)

;CLEAR ALL BITS EXCEPT FUNCTION
sOF LAST COMMAND ISSUED
sCLEAR FUNCTION OF CS1 STATUS
sGENERATE CS1 STATUS INFORMATION
;STORE COMMAND AND STATUS REGISTER 2
;STORE WORD COUNT REGISTER
:STORE BUS ADDRESS REGISTER
;STORE DESIRED TRACK AND SECTOR
sSTORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER
:STORE ATTENTION SUMMARY AND

=§DCYL(R2).P.D(YL(RS)

sSTORE CYLINDER ADDRESS

#1777461,P.CS1(RS)
#36,1.C51
T.CS1.P.CS1(RS)
RKCS2(R2),P.CS2(RS)
RKWC (R2) ,P.WCR(RS)

RKBA(R2) .P.BAR(RS)
RKDA(R2) .P.DTS(RS)
RKDS (R2) ,P.DS(RS)
RKER(R2) .P.ER(RS)

OFFSET

sRETURN

1 R6QCO RK6 DR CPT PROG MACY11 30A(1052)

CIR6QC.P11Y

02-JuL-80 09:50

;;gg

02-JUL-80

H 12
PAGE 152

*GATHER DRIVE STATUS
.SBTTL

;;60

09:52

SEQ 0150

*GATHER DRIVE STATUS

:;Q'ttt.Qt't"."'t"""""""'l"'t"."t'QQ'QQ'Q'Q"'Q'Q"Q'

I
.
i

6]
776
776

;;22

THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS
BYTE 01, 10, AND 11, IT IS ASSUMED THAT THE DRIVE

HAS PREVIOUSLY BEEN SEIZED.

IT RUNS AT PRIORITY 7.

7766

;*CALL

JSR

;;gg

RE TURN

;;;g

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

772
7773
7774
7775
7776
;;;;

i
e
¢
i
I
I

7779
7780
778

;e
e
i

7767

RO,1.STAT

0000

R2
RS

CONTENTS
escccces
RKO6 BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

77‘2

7783
7784
7785
7786
7787
7788

7789

7790
7791
7792
7793
7794
7795
7797
7798
7799
7800
7801
7802
7803

7804
7805
7806
7807
7808
7809
7810
7811
7812
7813

ROUTINES USED:
1.1SSU

:;t.tltttttttt'tt'tt't"'tt'ttt't't'tttttttttt.'tt.'ttt'tttt"'tt

037714

037722
037730
037734

012762
)
112737
004037
040124

000001

000026

1.STAT: MOV

#1,RKMR1 (R2)

000001
037240

003010

MOVB
JSR
3s

#DR.SEL,T.CS1
RO,I.ISSU

MOV
MOV

T.MR3,P.BO1(RS)
#2 ,RKMR1(R2)

MOVB
JSR
3s

#OR.SEL,T.CS1
RO,I.ISSU

MOV
MOV

T.MR3,P.B10(RS)
#3,RKMR1 (R2)

MOVB
JSR
3s
MOV

#DR.SEL,T.CS1
RO,1.ISSU

MOV
CLR

T.MR3,P.B11(RS)
RKMR1(R2)

MOVB
JSR
3$
MOV
MOV
BIT
BEQ

#OR.SEL,T.CS1
RO,1.1SSU

037736

013765

003034

000044

037760
037766
037772

112737
004037
040124

000001
037240

003010

04
040010

013765

013765
012762

003034

003036
000003

000050

040016
040024
0400
040032

112737
004037
040124
013765

1
037240

003010

003034

000054

040052
040060
040064
040066
040074
040102
040110

112737
004037
040124
013765
013765
032737
001407

000001
037240

003010

003034
003036
001000

000040
000042
003036

037744
037752

037774

04
040046

013765
012762

013765
005062

003036
000002

003036
000026

000046
000026

000052
000026

000056

MOV

T.MR2,P.AO01(RS)

T.MR2,P.A10(RS)

T.MR2,P.A11(RS)

T.MR2,P.AQO(RS)
T.MR3,P.BOO(RS)
#S.PAR,T.MR3
5%

:LOAD MAINTENANCE REGISTER 1
:
FOR STATUS BYTE 01
:LOAD COMMAND
:GET STATUS BYTES 01
:ERROR RETURN

:STORE STATUS BYTE 01 MESS A

:STORE STATUS BYTE 01 MESS B
:LOAD MAINTENANCE REGISTER 1
:
FOR STATUS BYTE 10
:LOAD COMMAND
:GET STATUS BYTES 10
;ERROR RETURN

:STORE STATUS BYTE 10 MESS A
:STORE STATUS BYTE 10 MESS B
:LOAD MAINTENANCE REGISTER
:
FOR STATUS BYTE 11
:LOAD COMMAND
:GET STATUS BYTES 11
:ERROR RETURN
:STORE STATUS BYTE 11 MESS A

;STORE STATUS BYTE 11 MESS B
:LOAD MAINTENANCE REGISTER 1
: FOR STATUS BYTE 00
sLOAD COMMAND
;GET STATUS BYTES 00
:ERROR RETURN
:STORE STATUS BYTE 00 MESS A
;STORE STATUS BYTE 00 MESS B
:CHECK IF BAD PARITY DETECTED BY DRIVE
:NO, RETURN NORMALLY

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 15&

CZRéQC.PN

02-JuL-80 09: 50

0527;7
004737
011000

002000
040166

052765
005720
000200

001000

003062

000200

040140

SEQ 0151

*GATHER DRIVE STATUS

000014

3s:

BIS
JSR
MOV

#E.DPAR, E CONT
PC.R.CONT

5§%:

BIS

#PBSVAL ,P.PRST(RS)
;80)0

RTS

TST

RTS

(a6> RO

sINDICATE BAD PARITY DETECTED BY DRIVE
*REPORT ERROR

:LOAD RO FOR ERROR RETURN
sRETURN

;SET PARAMETER BLOCK STATUS VALID
;:gggg; RO FOR NORMAL RETURN

J 12

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) OZ-JUL-BO 09:52_ PAGE 154
CZrR6QC.PN
02-JuL-80 09:50
*COMMON DRIVER RETURNS

;ggz

.SBTTL

SEQ 0152

+COMMON DRIVER RETURNS

7825
78 9

040142
040146

040152

105037
004777
000207

003111
14704

R.ABNL: CLRB
JSR

INTMSK
PC,a3A.ABNL
PC

;INHIBIT FUTURE DRIVE INTERRUPT REPORTING
;INDICATE ABNORMAL RETURN

7829
7830
;g%l

040154
040160
040164

105037
004777
000207

003111
14267C

R.NORM: CLRB
JSR
RTS

INTMSK
PC,3A.NORM
PC

;INHIBIT FUTURE DRIVE INTERRUPT REPORTING
s INDICATE NORMAL RETURN
;RETURN

7833
7834
7835
7836
7837

040166
040172
040176
040202
040206

105037
105037
005037
004777
000207

00311!
003110
003124
142652

R.CONT: CLRB
CLRS
CLR
JSR
RTS

INTMSK
W.TIME
W.DRV
PC,aA.CONT
PC

;INHIBIT FUTURE DRIVE INTERRUPT REPORTING
;RESET WATCH DOG TIMING ON THIS DRIVE
;CLEAR TIMING COUNT FOR THIS DRIVE
;INDICATE CONTROLLER ERROR RETURN
;RETURN

;g 8

RTS

sRETURN

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52
CZRrR6QC.P1N
02-JuL-80 09:50
*COMMAND INITATOR

PAGE 155

SEQ 0153

;ggg

LSBTTL

;%20

. :S AARAA222223220022202222 2222222322322

784
784

i
T

;gzg

7846
7847
7848
7849

*COMMAND INITATOR

THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS SPECIFIED
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING

SPECIAL COMMAND ARE ALSO EXECUTED:

B
i
i
i

;ggg

22222 3232232222323 2221%]

RELEASE
CONROLLER CLEAR
SUBSYSTEM CLEAR
READ ALL DRIVE STATUS

READ SPECIFIED HWEADER

;gg%

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS

7854
7855

;*CALL
i

JSR
PC,C.INIT
<ADDRESS OF PARAMETER BLOCK>

;ggg

7“7

T
;.
o
T
B
o
B
B
;'

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE
LOCATIONS, PBLKT AND INTMSK.
ROUTINES USED:
W.WTCH
1.CSTS
I1.STAT
I1.CCLR

. 3223223323233 2323332323322323233233233233232323333233333333332333323333232323223223%.]

7873
7874
7875
7876
7877
7878

040210
040212
040214
040216
040220
040222
040224
0402
040236
040242

010546
010446
010346
010246
010146
010046
013746
013737
017605
062766

177776
003052
000016
000002

7880
7881
7
7883
;ggg

040254
040260
040264
040272
040

0427064
010537
116437
116437
013737

177770
003122
003112
003112
003072

;ggg

040306

7879 040250

7888
7889
7890
7891
7892
7893

RE TURN

7858
7859
7860
7861
7862
7863
7864
7865
7866

7868
7869
7870
7871
7872

016504

013702

000000

177776
000016

C.INIT: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ADD

[ 0]}

BIC
MOV
MOVB
MOVB
MOV

003111
003110

003124

003046

MOV
;
:
:
:
:
:

RS,=(SP)
R4 ,=(SP)
R3,=(SP)
R2,-(SP)
R1,-(SP)
RO,=(SP)
PS,=(SP)
RKPRI,PS
316(SP) ,RS
#2,16(SP)

P.DRVN(RS) R4

:STORE RS ON STACK
:STORE R4 ON STACK
;STORE R3 ON STACK
sSTORE R2 ON STACK
:STORE R1 ON STACK
;STORE RO ON STACK
:STORE PSW ON STACK
:LOCK OUT RKO6 INTERRUPTS
:STORE PARAMETER BLOCK ADDRESS
:ADJUST RETURN

:STORE DRIVE NUMBER

0‘c<onvnsx> R& :MASK OUT JUNK
RS,PBLKY
:LOAD PARAMETER BLOCK TABLE
1.DRV(R4),INTMSK ;LOAD INTERRUPT MASK
1.DRV(R4) ,W.TIME ;SET WATCH=-DOG TIMER FLAG
W.SEC,W.DRV
:LOAD WATCH=DOG TIME

RKBAS ,R2

;:LOAD R2 WITH RKO6 ADDRESS BASE

RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT
DRIVE IN USE
WRITE FOR WRITE CHECK
NO CHECK
DROP DRIVE FROM TEST SEQUENCE
INHIBIT BUS ADDRESS INCREMENT

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52
CZR6QC.P11
02-JuL-80 09:50
*COMMAND INITATOR
075176

000014

BIC

000062

040334
040336
040340
040342
040346
040352
040356
040
040366

041102

040372

000107

1$:

003104
000040

R5.RO

:STORE PARAMETER BLOCK ADDRESS

CLR
CMP
BLOS
CLRB

(RO) +
RO,R1
1%

;CLEAR RETURN PARAMETER
sCHECK IF FINISHED
sNO, CLEAR NEXT RETURN PARAMETER

CLR
BITe
BEQ
JMP

000001

3$:

#*C<DRVUSE !W.WCK!NOCHK ! DRPDRV'!DTBAII>
,P.PRST(RS)
#P.CS1,RO
R5,R1
#P EPAT,R1

MoV

000001

SEQ 0154

ADD
MoV
ADD

MOV

000016

CMPB

1.1SRL

sCALCULATE FIRST LOCATION TO BE CLEARED
:STORE PARAMETER BLOCK ADDRESS
sCALCULATE LAST LOCATION TO BE CLEARED

:CLEAR RELEASE OR INTERRUPT ISSUED

R4,P.CS2(RS)
:STORE DRIVE NUMBER
RKMR1 (R2)
:CLEAR RKO6 MAINTENANCE REGISTER 1
#BITS,P.CMND(RS) ' ;CHECK IF SPECIAL COMMAND

C.SPEC

:NO, PROCESS

:JUMP TO SPECIAL COMMAND PROCESSOR

#UNLOAD,P.CMND(R5) ;CHECK IF POSITIONING COMMAND
:
START SPINDLE

:
:

040400

101174

BHI

25%

:
000117

02
040410

040412
040420
040426
040432
040440
04044
04045
040456
040460
040466

040470
040476
0405

040506
040514
040516

060556
040532

000001

CMPB
BLO

000020
000002
003064
000117

000010
000014

000002
000004

000020
000006

000115

000001

000006
000032

000032
000016

000111

000001

6$%:

CMPB

00307
00011

003124
000001

7%:

v
CMPB

MOV
8IS
CLR
CMPB
BNE
MOV

000001

5§%:

CMPB
BNE
MOvVe

BNE

RECALIBRATE

OFFSET

SEEK
UNLOAD

:NO, DRIVE COMMAND
SELECT DRIVE
:
:

(==

7927
7928
7929
7930
7931
7932
7933
7934
79;2
7936
7937
7938
7939
7940
7941
7942
7943
7944
7945
7946
7947
7948
7949

040320
040322
040 gg
0403

7917
7918
7919
7920
7921
7922
7923
7924
7925
7926

0462765

N =
22858
VN
O

7912
7913
7914
7915
7916

040312

2288

7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911

L 12
PAGE 156

PACK ACKNOWLEDGE

CLEAR

#SEEK,P.CMND(RS) ;CHECK IF DATA TRANSFER

20%

:YES, DATA TRANSFER COMMAND

READ DATA
WRITE DATA
READ HEADER
WRITE HEADER
:
WRITE CHECK
P.CS2(RS),RKCS2(R2) ;LOAD DRIVE NUMBER

#DRVPOS,P.PRST(RS) ;SET DRIVE POSITIONING
0.WAIT
;CLEAR WAIT FOR COMMAND
#SEEK,P.CMND(RS) ;CHECK IF SEEK
5%
;NO, CHECK FOR OFFSET

P.CYLN(RS) ,RKDCYL(RE) ;LOAD CYLINDER ADDRESS
P.SECT(RS) .RKDA(R2)

;LOAD SECTOR AND TRACK

;60 1SSUE COMMAND

#OFFSET,P.CAND(RS) ;CHECK IF OFFSET
63
:NO, CHECK FOR UNLOAD

P.OFST(RS),P.ASOF
(RS) ;STORE OFFSET

P.ASOF
(R5) ,RKASOF (R2) ;LOAD OFFSET REGISTER
8s
:GO ISSUE COMMAND

#SRTSPL,P.CAND(RS) ;CHECK IF START SPINDLE
7%
:NO, CHECK IF RECAL
: LOAD WATCH DOG TIME FOR 1 MINUTE
W.MIN,W.DRV

#RECAL ,P.CMND(RS) ;CHECK IF RECAL
A%
:NO, CONTINUE

CZR6QCO RK6 DR CPT PROG
CZR6QC.PN
02-JuL-80
7950

040534

7951
;gg

060542
040550

7954

040556

7953

040572

7955

0405

795
7958 otoeos
7959 040610

013737

003074

oogggr
165777

00017
000016

116565

000001

000016

MOVB

03 7gs

000400

000014

BIT

116585
042765

o«sros

0015 g
042765
0165 ;

7960
7961

040612
040622

7963
7964
7965
7966
7967

040636
040640
040646
040650
040654

001767
032737
001011
737
13; 7

040670
040672
040676

001767
105037
005037

;3;2

040706

000137

7975
7976

7962

040630

MACY11 30A(1052) 02-JUL-80 09:52
09:50
*COMMAND INITATOR

7
016237

000200

000100
000016

034560
000000

003124

000014

000016
000000
003010
003010

034560
000016
003111

003024
003025

004737

003110
003124
040154

040712
040720

016562
016562

000010
000012

000004
000002

7979
7980

040742
040750

122765
001010

000131

000001

7982

040760

0014

7970
7971
7972

040702

7977 8207
7978
07

7981

81652
165

040770

000406

000123 000016

7986
7987
7988

040772
041000
041006

116565
042765
116565

000001
000200
000007

7992

041022

010537

7994

041034

001403

7993

041026 032765

208:

000016
000014
000017

177750 000017
100000 000014

7995 041036 052765 000020 000020
041044 01656; 000020 000010 27$:

;$39 041052 83276 000400 000014
7998

041

3881

041076 000137

7999 04109
8000 0410

1&02

042765 000100 000016
01656; 000016 000000 308:
042062

;MOVE COMMAND INTO CS1

308
:NO, SKIP CLEAR OF INTERRUPT ENABLE
#IE,P.CS1(RS)
:CLEAR INTERRUPT ENABLE
P.CS1(RS),RKCS1(R2) ; ISSUE COMMAND

JSR
MOV
BEQ
BIT
BNE
JSR
MOV

#NOCHK .P.PRST(RS) :CHECK IN NO CHECK MODE

PC,W.WTCH
:CALL WATCH DOG TIMER
RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REGISTER 1

#ROY,T.CS1

:WAIT FOR READY

108
#CERR,T.CS1
;CHECK FOR ERROR
15%
:YES, GIVE NORMAL RETURN
PC,W.WTCH
sCALL WATCH DOG TIMER
RKASOF
(R2) ,T.ASOF ;STORE ATTENTION SUMMARY

INTMSK,T.ASOF+1 ;CHECK IF INTERRUPT HAS OCCURRED

BEQ
CLRB
CLR

11%
W.TIME
W.DRV

:WAIT FOR DRIVE INTERRUPT
SRESET TIMING ON THIS DRIVE
:CLEAR DRIVE TIMING COUNT

JMP

C.RTRN

sRESTORE REGISTERS

MOV
MOV

PC,R.NORM

sINDICATE COMMAND IS FINISHED

P.BALO(RS) ,RKBA(R2) ;LOAD BUS ADDRESS REGISTER
P.WC(RS) ,RKWC(R2) ;LOAD WORD COUNT REGISTER

MOV
MOV

P.CYLN(RQ).RKDCYL(RZ) :LOAD CYLINDER ADDRESS REGISTER
P.SECT(RS) ,RKDA(R2) :LbAD SECTOR AND TRACK NUMBER

BIT

#Y.WCK,P.PRST(RS)

:CHECK IF WRITE COMMAND SHOULD BE ISSUED

MOV

#URDATA,P.CS1(RS)

;ISSUE WRITE COMMAND

003044

P.CMND(RS),P.CS1(RS)

BEQ
BIC
MOV

BEQ

26$:

;LOAD RECAL TIME FOR 8 SECONDS

P.CSTH(RS),P.CS141(RS) ;STORE BITS 8-15 OF CS1
l‘C(CFlT!C61>,P.Cs1izg)°‘§bEA¥YaEL BITS EXCEPT FORMAT
#9.UCK,P.PRST(RS) :RESET WRITE FOR WRITE CHECK

CMPB
BNE

258:

W.8SEC,W.DRV

SEQ 0155

BIC

BITB

rd 880020
04
0006

;33;

7991

MOVB
BIC

JSR

7983 040762 012765

7990

11%:

042062

000200 000014

142765

MOV

BIT

158:

040752 032765

7989 0610146

108:

032737 000200 003010
100000

7968

88$:

M2
PAGE 157

MOVB
BIC
MOVB

BICB

#URTCHK ,P.CMND(RS)
;CHECK IF WRITE CHECK COMMAND
25$
:NO, GO ISSUE THE COMMAND
25%

:NO. GO ISSUE THE COMMAND

268

;60 ISSUE COMMAND

P.CMND(RS),P.CS1(RS) :MOVE COMMAND INTO CS1
#.WCK,P.PRST(RS) :RESET WRITE FOR WRITE CHECK
P.CSTH(RS),P.CS1+1(RS) ;STORE BITS 8-15 OF (S1

0‘((8.(?!1!8.(01!B.BA16!B.BA17> P.CS1+1(RS) :CLEAR ALL BI'S EXCEPTY

MOV

RS,0.WAIT

BEQ

278

BIT

BIS
MOV

BIT

BEQ

BIC
MOV
JMP

FORMAT. DRIVE TYPE, AND BUS ADDRESS

BITS 16-17

LOAD WAITING FOR COMMAND

ODTBAII.P.PRSI(RS) :CHECK IF INMIBIT BUS ADDRESS INCREMENT
:NO,

LOAD (S2

#BA1,P.CS2(RS) :SET INMIBIT BUS ADDRESS INCREMENT
P.CS2(RS) ,RKCS2(R2) ;LOAD (S2

#NOCHK,P.PRST(RS) ;CHECK IN NO CHECK MODE
308

:NO,

SKIP CLEAR OF INTERRUPT ENABLE

C.RTRN

:RESTORE REGISTERS

#IE.P.CS1(RS)
:CLEAR INTERRUPT ENABLE
P.CS1(RS),RKCS1(R2) ;ISSUE COMMAND

ooof
.SBTTL *SPECIAL COMMAND PROCESSING
5555 041102 122765 000141 000001 C.SPEC: CMPB #RDSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS
'

N 12
CZR6QCO RK6 DR 5" PROG MACY11 3CA(1052)
02-JuL-80 09:52 PAGE 158
CIR6QC.P11
02-JuL-80 09:50
«SPECIAL COMMAND PROCESSING

041110
00113
333? oa111§
016562 000020 oooo19
8008 04115
11656

38?3

041126

042765

8011
ao1§
8013

041134
o£1145
041150

112765
01652;

004737

0019
8017
8018
8019
8020
8021
aozg
802
8024
8025
8026
8027
8028
8029
8030
8031
aosg
3824
8035
gggg

041170
041172
041176
041204
041512
041220
041222
o«azge
041232
041240
041242
041250
041252
041256
041260
061296
041270
8:1 7
1
041306
061312

001767
004737
016265
016265
032765
0014
105037
005037
032765
001043
032765
001043
004037
oazoog
032765
8g1oor
032765
821
g
2765
004737
000137

8038
8039
8040
8041
8042
804

041313
04132
041326
041330
041334
041342

004037
o4§o§;
105037
005037
032765
00140

8014
8015

041154
041198

016;65
032765

oogggr
165777

00001
000016

000001
og201o
034560

000016
000600

00
000200

000016
000016

037632
000034
000036
100000

000040
000042
000016

003110
003124
000400

000014

001000

000020

BNE

MOV
MOVB

2%:

000020

000001

000036

010000
040142
042062

000014

037714

003110
003124
000400

PC,R.NORM
C.RTRN

sREPORT COMMAND COMPLETE
:RESTORE REGISTERS

BIS

#E.MDS,E.CONT

;SET MULTIPLE DRIVE SELECT
sINDICATE CONTROLLER ERROR

CMPB

#RELEAS.P.CAND(RS) ;CHECK IF RELEASE COMMAND

041760

052737
004737
000137

100000
040166
042062

003062

9%:

8052

041376

122765

000140

000001

108:

8055

aosg

8057

8058

8059
8060
8061

0‘1415

052765

0414

otosg;

0414

113565

041426

041442

1127

042765

:CALL WATCH=DOG TIMER

JSR
JMP

8048

003064

PC,W.WTCH

RKCST(R2),P.CS1(RS) ;STORE COMMAND AND STATUS REG. 1
#ROY,P.CST(RS) :WAIT FOR READY

8$%:

000000

001040
010537

MOV
BIT

;GATHER DRIVE STATUS
:ERROR RETURN
W.TIME
:STOP WATCH=DOG TIMING ON DRIVE
W.DRV
*RESET WATCH=-DOG TIME
#NOCHK ,P.PRST(RS) ;CHECK IF NO CHECK MODE
8s
:sNO, REPORT ERROR

0047
000137

041406
041406

#DR.SEL,P.CS1(RS) :STORE COMMAND
P.CST(RS) ,RKCST(R2) ; ISSUE COMMAND

RO,I.STAT

041350
041354

8053
8054

MOVB
MOV
JSR

JSR
C.RTRN
CLRB
CLR
BIT
BEQ

8045
gg:

041366
061372

.CS1+1(RS) ;STORE BITS 8-15 OF CS1
O‘C<CFHT!c61>,P.Cs1£=g)°‘§bEA¥'stL BITS EXCEPT FORMAT

68:

5%:

8046 041344 005

8049
gggg

BIC

2%
PC,1.CST1
;STORE CONTROLLER REGISTERS
RKMR2(R2) ,P.AOOCRS) ;STORE STATUS BYTE 00 MESSAGE A
RKMR3(R2) ,P.BOOCRS) :STORE STATUS BYTE 00 MESSAGE B
#CERR,P.CS1(RS) ;CHECK IF CONTROLLER ERROR
68
:NO, GATHER DRIVE STATUS
W.TIME
:RESET WATCH DOG TIMING ON THIS DRIVE
W.DRV
:CLEAR WATCH DOG COUNT
lNOCNK.P.PIST(IS’ sCHECK IF NO CHECK MODE
8s
;YES, INDICATE NORMAL RETURN
#MDS ,P.CS2(RS)
:CHECK IF MULTIPLE DRIVE SELECT
9%
sYES, INDICATE CONTROLLER ERROR
RO,I.CCLR
JCLEAR ERROR
ERROR RETURN
lNED!UFE.P.CSZ(ls) sCHECK IF NON-EXISTENT DRIVE OR UNIT FIELD ERROR
5%
;REPORT ERROR
#DRA,P.DS(RS)
:CHECK IF DRIVE AVAILIABLE
5¢
“YES, REPORT ERROR
#ORYSZD,P.PRST(RS) ; INDICATE DRIVE IS SEIZED BY OTHER PORT
PC,R.ABNL
sINDICATE ABNORMAL RETURN
C.RTRN
:RESTORE REGISTERS

000014

040154
042062

108

:NO, PROCESS OTHER COMMANDS
P.CS2(RS)
,RKCS2(R2)
“:LOAD CS2 FOR COMMAND
P.CSTH(RS),P

BEQ
JSR
MOV
MOV
BIT
BEQ
CLRB
CLR
BIT
BNE
BIT
BNE
JSR
C.RTRN
BIT
BNE
BIT
BNE
BIS
JSR
JMP

037156
010400

SEQ 0156

CLR

JSR
JNP

RKCS1(R2)

PC,R.CONT
C.RTRN

:CLEAR INTERRUPT ENABLE

BNE
MOV

138
RS,0.WAIT

INO, CHECK IF READ ALL MEADERS
:STORE PARAM
BLOCKETER
ADDRESS IN
-ger RELEASE 817

;" WAIT FOR COMMAND

000010

000020

BIS

#RLS,P.CS2(RS)

104

move

#1,1.ISR

BIC

#4C<CFMTICOT>,P.CST(RS) ;CLEAR ALL BITS EXCEPT FORMAT

000020

165777

MOV

MOVB

P,CSS(RS),RKCS2(R2) ;LOAD CS2 FOR DESELECT

;SET FLAG FOR RELEASE COMMAND

P.CSTM(RS),P.CS1+1(RS):STORE BITS 8-15 OF CS1
:

AND DRIVE TYPE

sst;a1 30A(1052) OZ-JUL-IO 09:52 PAGE 153

000164

118%:

138:

10
St

000020

#RDALMWD,P
CHND(RS) .CNECK IF READ ALL HEADERS
308
CHECK IF CONTROLLER CLEAR

MOV
BITB

P.BALO(RS) ,HOR. AD:LOAD HEADER ADDRESS
#B.CFAT,P.CSTH(RS) ;CMECK IF 22 SECTOR FORMANT

MOV

RS,0.WAIT

sef WAITING FOR COMMAND COMMPLETION

148
#20. ,HDR.CT
228

SYES, LOAD 22 IN HEADER COUNT
:LOAD 20 IN SECTOR COUNT
;60 ISSUE READ HEADER COMMAND

MOV

#22. ,HDR.CT

;LOAD 22 IN SECTOR COUNT

MOVB

P.CSTH(RS),P. cs1o1(n§>;STORE BITS 8-15 OF CS1

MOV
MOV
MOV

NNV
NN W

MOV

34%:

000040
000000

36$%:

:
308

#NOCHK,P.PRST(RS) :CHECK IF NO CHECK MODE
118
:NO, DO NOT RESET INTERRUPT ENABLE
cxe §1(l5)
RESET INTERRUPT ENABLE

CMPB
BNE

000016
042062

000100
040166

bflg
NOO
WSO

P.CS 1<a ) nxcs1(k - 1SSUE COMMAND
C.RTR
esfone REGISTERS

MOVE

32%:

MOV
JMP

000125
000400

. 000177

282288
8
V= RON) & =N
~N
W

#SELDRV,P.CS1(RS) ;STORE COMMAND

BIT
BEQ
BIC

BIC

000176

—
§°
N§~
VO
g8see
i — —

148:

NNESN
WVl
O
Vi

000026
000002
000004
000020
000007
165777

SEQ 0157

MOVE

BEQ
MOV
BR

000024

N==2PROONN
NS NN
w
OO~

NOO

NN
N

NNNSNSN
WSS WIN
OO

-t

f6s Gonete

pury

888‘80

676

NN
o WV
RO

AL COMMAND PROCESSING

11376

VLV
IV IV RV IV IV IV IV IV IV IV IRY.L
Y o

2R
RRRRR PPRERR
PRRERRRR
PRRRR
RRRRRP
RRRPRRRRR
SRRRER
= et B el s
Y S
e
P
e I e
e
P
R
e eI I ) P eT
R
P =)
&8 NSRERRE EHERZ 883&8 & &g - b3 szzi §§
g

SEIRIREI=8
NOWVSWN=O

i
D
-

— i

D e

e i ld

D i it

Y S

§353353E33RREREER

—

CO_RK6 DR PT
C.P
02-JuL-

P.CYLN(RS) ,RKDCYL(R2) ;LOAD CYLINDER ADDRESS
P.SECT(RS).RKDA(R2) ;LOAD TRACK NUMBER
P.CS2(RS) ,RKCS2(R2) :LOAD DRIVE NUMBER

#C<CFMTICOTS,P.cs1izg)régh§¢a ALL BITS EXCEPT DRIVE TYPE
#RDMEAD,P.CS1(RS) ;STORE READ HEADER COMMAND

BIT
BNE

INOCHK
P .PRST(RS) :CHECK IF NO CHECK MODE
43
YES, INDICATE ILLEGAL DRIVER COMMAND

JMP

C.RTR

P. cs1<n5) RKCS1(R2) - I1SSUE READ HEADER
;RESTORE REGISTERS

037156

CMPB
BNE
JSR

#CONCLR,P.CMND(RS) ;CHECK IF CONTROLLER CLEAR
328
:NO, CHECK IF SUBSYSTEM CLEAR
RO,I.CCLR
:CLEAR CONTROLLER

000400

BIT

#NOCHK ,P.PRST(RS);CHECK IF NO CHECK MODE

CMPB
BEQ
BIS

#SUBCLR,P.CMND(RS) ;CHECK IF SUBSYSTEM CLEAR
368
:YES, CLEAR SUBSYSTEM
#E.ILLD,E.CONT
:SET ILLEGAL DRIVER COMMAND

C.RTRN

BEQ
CLR
BR

000000

100000

JSR

040166

408
RKCS1(R2)
408

PC.R.CONT

:NO, INDICATE NORMAL RETURN
SRESET INTERRUPT ENABLE
:INDICATE NORMAL RETURN

:REPORT ERROR

:RESTORE REGISTERS

MOV

#SCLR,RKCS2(R2) ;ISSUE SUBSYSTEM CLEAR

BEQ

#B170,E.CONT

MOV
BIT

BIS

000001

‘ERROR RETURN

RKCS1(R2),P.CS1(RS) :STORE COMMAND AND STATUS REGISTER 1
#CERR,P.CS1(RS) CLEAR IF CONTROLLER ERROR RESET
37

FINISH COMMAND

ssf CLEAR SUBSYSTEM DID NOT CLEAR

JSR

PC,R.CONT

:
CONTROLLER ERROR
*REPORT ERROR

LOAg ;?sggLé-sscono COUNT FOR ATTENTION

B8R

C.RTRN

:RESTORE REGISTERS

003070

37%:

MOV

W.MILI,=(SP)

000000

38%:

MOV

RKCS1(R2),P. cs1(k5) :STORE (S1

CIR6QCO RK6 DR PT PR HACV11 30A(1052) 02-JuL-80 09:52 PAGE 168

CZR6QC.P1Y

02=-JUL~-

8113
8119

041776
04

032765
001411

8121

042010

001

81
8124
8125
g}%g

062014

8120 04
81 g

04201

«SPECIAL COMMAND PROCESSING

040000

oosgl?
0057;9

000040

0‘2052
062026

004737
000415

040166

8128

0‘%030

005726

8130
8131
8132
g}gz

042040
042042
042050
042056

001010
112737
012762
004737

8135
8136
8137
8138
8139
8140
8141
8142

g}:z

042032

042062
042066
042070
042072
042074
042076
042100
042102

032765

012637
012600
012601
012602
012603
012604
012605
000207

000014

177777
000100
040154

003104
000000

177776

3}2‘1’

40$:

sCHECK IF ATTENTIONS CLEARED
YES FINISH COMMAND

BNE

38%

CHECK DRIVE INTERRUPT AGAIN

BIS

#E.SCLR,E.CONT

JSR
BR

PC,R.CONT
C.RTRN

BNE
MOovB
MOV
JSR

(SP)

(SP)+

DEC‘ENENT 16 MILISECOND COUNT
:ADJUST STACK

;SET SUBSYSTEM CLEAR DID NOT CLEAR
:
DRIVE ATTENTIONS

:REPORT ERROR
JRESTORE REGISTER

(SP)+

:ADJUST STACK

C.RTRN
0-1 1.ISRL
#1E, RKCS1(R2)
PC.R.NORH

VES RESTORE REGISTERS
SET INTERRUPT ENABLE SET
:SET INTERRUPT ENABLE
sINDICATE NORMAL TERMINATION

(SP)+,PS
(SP)+,RO
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+ R4
(SP)+,RS
PC

;sRESTORE
sRESTORE
JRESTORE
sRESTORE
sRESTORE
:RESTORE
:RESTORE
RETURN

#NOCHK,P.PRST(RS) ;CHECK IF NO CHECK MODE

PSW
RO
R1
R2
R3
R&
RS

.SBTTL

OCTAL TO BINARY CONVERSION ROUTINE

IR
ot
B
)
B

R R

s*CALL
B
o*
I

. %

8158

TST

BIT

C.RTRN: MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

g}gg

AR RN

AR R AR AR E R AR RN R TR R RNES

THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED
WITH A NULL <000> OR COMMA.
IF THE CHARACTERS ARE LEGAL
IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS

ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT.
MOV
<ADDRESS OF ASCII STRING>,-(SP)
JSR
PC,OCTBIN
<ADDRESS OF ERROR RETURN>

RETURN

:.'ttttttttt"ttt'i'tttt"t"'tt"ttttt'ttt!ttttttttitttttt.ttttt

816
8168
8169
8170

042104
042106
042110
042112
042116
0‘%1%0
062122
0‘%12‘
04 1;6
042132
0‘%13‘

010046
010146
010246
016600
005001
005002
112046
001423
121627
001420
122716

817§
8173

042142
042146

122716
002425

8171

39%:

8152
8153
8154
8155

8169

#01,P.CS1(RS)
39¢%

TST

003062

000400

8145
8146
8147
8148
8149

8159
8160
8161
8162
8163
8164
8165

BIT
BEQ

DEC

0527

8129

000016

042140

003030

000010

000054
000060
000067

OCTBIN: MOV
(1))
MOV
MOV
CLR
CLR
2%:
MOVB
BEQ
CMPB
BEQ
CMPB

BGT

CMPB
BLT

RO,=-(SP)
R1,=-(SP)
R2,-(SP)
10(SP) RO
[
R2
(RO)+,=-(SP)
3%
(sp),»,
3%
#'0,(SP)

[33

#'7,(5P)
4

;SAVE RO
:SAVE R1
;SAVE R2
sGET ADDRESS OF ASCII STRING
sCLEAR DATA WORDS

sPICK THIS CHARACTER

s1F ZERO GET OUT
sCHECK IF COMMA
s1IF COMMA GET OUT
sMAKE SURE THIS CHARACTER IS

AN OCTAL DIGIT

SEQ@ 0158

CIR6QCO

RK6 DR %PT PROG

CZré6QC.P11

02-JUL-80

8174
8175
8179
8177
8178
8179
8180
8181
818§
8183
8184
8185
8186
8187
8188
8189
g}g?

042150
042152
062154
04 128
0421
042162
04 1?4
042170
042172
0421764
042176
042202
042206
042210
042212
042214
042220

006301
102
301
102
006301
102
042716
062601
000753
005726
010166
010237
012602
012601
012600
062716
000207

8192
8193
8194
8195
8196
8197
8198
g;gg

042222
042224
042226
042230
042232
042234
042236

005726
012602
012601
012600
013616
000207
000000

MACY11 30A(1052)

09:50

000010
042236

042240
042240
042242

010046
010146

8214
8215
8216
8217
8218
8219
8220
8221
822§

042246
042252
0462256
042262
065264
0422
8:227
2272
042276

013700
013701
012702
006300
006101
005202
001374
063700
005501

8228

8229

D13
PAGE 161

3s:

000002

ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MoV
MoV
MOV
MOV
ADD
RTS

R1
R2
R1
R2
Rl
R2
#°C7,(SF)
(SP)+,R1
2$
(SP)+
R1,10(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+ RO
#2,(SP)
PC

4$:

TST
(SP)+
MOV
(SP)+,R2
MOV
(SP)+,R1
MOV
(SP)+,RO
MOV
a(SP)+,(SP)
RTS
PC
SHIOCT: .WORD
O
.SBTTL RANDOM NUMBER GENERATOR

SEQ 0159

; w2
: v

; *8
sSTRIP THE ASCII JUNK
sADD THIS DIGIT
;LOOP
sCLEAN PARTIAL FROM STACK
:SAVE RESULT
;RESTORE R2
sRESTORE R1
:RESTORE RO
:ADJUST RETURN
sRETURN
;CLEAN UP PARTIAL FROM STACK
:RESTORE R2
:RESTORE R1
sRESTORE RO
sPUT ADDRESS OF ERROR ROUTINE ON STACK
;G0 PROCESS ERROR
:HIGH ORDER BITS GO HERE
ROUTINE

3 1 3322333333333 2333323233233233233233233233232323323333333322322333323232323333322323]

8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212

8223
8224
8225
8229
8227

09:52

OCTAL TO BINARY CONVERSION ROUTINE

177770

‘201

8213

02-JuL-B0

;*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
:*WITH A RANGE OF 0 TO 2(+33)-1,
s*CALL:
i
JSR
PC,SRAND
::CALL THE ROUTINE
i
RETURN
s sRETURN HERE THE RANDOM
B
: sNUMBER WILL BE IN
i
: sSHINUM, SLONUM

042244

04
042304
042310
042312
04 Slg
042322

042326

010246

063701
062700
005501
062701
010037
010137

012602

$RAND:

042340
042336
17771

042340

042336
001057
047401
042340
042336

MOV
MOV

RO,-(SP)
R1,-(SP)

;sPUSH RO ON STACK
:;PUSH R1 ON STACK

MOV
MOV
MOV
ASL
ROL
INC
BNE
ADD
ADC

$LONUM,RO
SHINUM,R1
#-7,R2
RO
R1
R2
1%
$LONUM, RO
Ri

::SET RO WITH LOW
::SET R1 WITH HIGH
::SET SHIFT COUNT
:sSHIFT RO LEFT AND
::ROTATE CARRY INTO R1 AND
::CHECK FOR DONE
ssCONTINUE SHIFT LOOP
:;ADD NUMBER TO MAKE X 129
: sPROPOGATE CARRY

MOV

1%:

ADD
ADD
ADC
ADD
MOV

MOV

[ [1]'}

R2,=-(SP)

$SHINUM,R1
#1057,R0
R1
#47401 ,R1
RO, SLONUM
R1,SHINUN

(SP)+,R2

ssPUSH R2 ON STACK

::ADD NUMBER TO MAKE X 129
:sADD LOW CONSTANT
s sPROPOGATE CARRY
ssADD HIGH CONSTANT
::SAVE RO
::SAVE R1

::POP STACK INTO R2

————
e —

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-B0 09:52 PAGE 165

CZR6QC.PN

8231
= %
82
82
gggg

02-JuL-80 09:50

042332
04
04
062340

RANDOM NUMBER GENERATOR ROUTINE

012601

[ 1]}

012600
ooogor
176543
123456

(SP)+,R1

MOV
(SP)+,RO
RTS
PC
SHINUM: .WORD
176543
SLONUM: .WORD
123456
.SBTTL TYPE ROUTINE

SEQ 0160

::POP STACK INTO R1

::POP STACK INTO RO
: :RETURN

3237

::"Q".t"'.".t""t"'t"""'t"'t""t't't'.""QQQQ".Q"QQ

8239
8240
8241

gg:

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:*NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;*NOTE2:
S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;*NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

8244
8245
8246
8247
8248
8249

s*CALL:
:*1) USING A TRAP INSTRUCTION
.
TYPE
LMESADR
:*0R
i
TYPE
i
ME SADR

8252
8253
8254
8255
8256
g%sr
58
8259
8260
8261
826;
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275
8276
827
8278

8279
8280
8281
82
8283
8284
8285

042342
042346
042350
042352
042354
823;22

042370
042372
042400
042402
0424
04241
042414
042422
0462626
042426
0424
042432
042434
042440
042442
0426446
042450
0424564
8: 456
460
042462
04 694
042470
042472
042476
042502
042504

105737
100002
000000
000430
010046
?17
22
001011
132737
001405
010037
004737
ogoooo
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401

081325
105037
000755
004737
123726
001350
013746

001157

STYPE:

1%:

000002
000001

001350

000100

001351

042412
044752

000040

001351

61$:
62%:
28:

000002

60$:
3s:

000011

4$:

000200

042620

042554
001156
001154

5%:
68:

TSTB
BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR
.WORD
BITB
BNE
MOVB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
ST
TYPE
S$CRLF
CLRB
BR
JSR
e
BNE
MOV

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
18

::1S THERE A TERMINAL?
::BR IF YES
:sHALT HERE IF NO TERMINAL
3$
s sLEAVE
RO,-(SP)
::SAVE RO
@2(SP) RO
:2GET ADDRESS OF ASCIZ STRING
#APTENV,SENV
: ;RUNNING IN APT MODE
62%
::NO,GO CHECK FOR APT CONSOLE
#APTSPOOL ,SENVM ;;SPOOL MESSAGE TO APT
62%
::NO,GO CHECK FOR CONSOLE
RO,61%
:sSETUP MESSAGE ADDRESS FOR APT
PC,SATY3
::SPOOL MESSAGE TO APT
O
: sMESSAGE ADDRESS
#APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED
60%
::YES,SKIP TYPE OUT
(RO)+,=(SP)
::PUSH CHARACTER TO BE TYPED ONTO STACK
48
:2BR IF IT ISN'T THE TERMINATOR
(SP)+
::1F TERMINATOR POP IT OFF THE STACK
(SP)+,RO
:;RESTORE RO
#2,(SP)
::ADJUST RETURN PC
: ;RETURN
#HT, (SP)
::BRANCH IF <HT>
8%
#CRLF, (SP)
::BRANCH IF NOT <CRLF>
b} 3
(SP)+
::POP <CR><LF> EQUIV
::TYPE A CR AND LF

$CHARCNT
2%
PC,STYPEC
$FILLC,(SP)+
2%
$NULL ,=(SP)

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
2318 1T TIME FOR FILLER CHARS.?
ss1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED

CZR6QCO RKk6 DR CPT PROG MACY11 30A(1052)T 02-JUL-80E 09:52
CZR6QC.P11
02-JuL-80 09:50
YPE ROUTIN

8286
8287
8288
8289
8290
g%g\

3%32

042510
042514
04 S\g
04 Ss
042526

105366
00277
00‘7g
105337

000770

000001
042554
042620

8295

042530

112716

000040

8297
8298
8299
8300
8301
8302
8303
8304
8305
8306

042540
065566
042550
042552
042554
042560
042562
042570
042576
042600

132737
001372
005726
000724
105777
100375
116677
122766
001003
105037

000007

8308
8309
8310
8311
gg}g

042606
042614
042616
042620
042622

122766
001402
105227

000012

042604

000406

DECB
BLT
JSR
DECB
BR

1(SP)
6%
PC,STYPEC
SCHARCNT
7%

;HORIZONTAL TAB PROCESSOR

8296 oa%su 004737 042554

8307

78:

£ 13
PAGE 163

8s:

042620

136370
000002
000015

136362
000002

042620
000002

000207

8314
8315
8316

98:

Move

JSR

,(SP)

PC,ETYPEC

SEQ 0161
;sAND THE NULL CHAR.
;sDOES A NULL NEED TO BE TYPED?
::BR IF NO-=GO POP THE NULL OFF OF STACK
::60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
: :LOOP

ssREPLACE TAB WITH SPACE

::TYPE A SPACE

BITB
BNE
TST
BR
S$STYPEC: TSTB
BPL
MOvB
(MPB
BNE
CLRB

#7 ,SCHARCNT
9s
(SP)+
2%
asTPS
S$TYPEC
2(SP) ,as1PB
#CR,2(SP)
1%
SCHARCNT

;sBRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
:sGET NEXT CHARACTER
ssWAIT UNTIL PRINTER IS READY

1%:

#LF ,2(SP)
STYPEX
(PC)+
0
PC

::1S CHARACTER A LINE FEED?
: ;BRANCH IF YES
:sCOUNT THE CHARACTER
: s CHARACTER COUNT STORAGE

CMPB
BEQ
INCB
SCHARCNT:
. WORD
$TYPEX: RTS

S$TYPEX

;sLOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
: ;BRANCH IF NO
;s YES==CLEAR CHARACTER COUNT

s sEXIT

8317

L Ly

8318
8319

.SBTTL
;e

ggg?

8322
8323
8324

> ok
:*
3%

gggg

8327

8328
8329
8330
8331
833;
8333
8334
8335
83
8337
8338
8339

8340
8341

)

DOUBLE-PRECISION MULTIPLY SUBROUTINE
SUBROUTINE TO MULTIPLY TWO DOUBLE PRECISION INTEGERS

USES ALL REGISTERS (RO-RS)

ENTER WITH
JSR
PC,M.DPIM
MULTIPLIER IN R2-R3
MULTIPLICAND IN R&-RS

PRODUCT RETURNED IN RO-R1-R2-R3

*®

042624
042626
042630
042634
042636
042640
06SG62
042644
062648
042650
0‘%652
042654

042656
042660

005000
005001
012746
006000
006001
006002
006003
103003
060501
005500
060400
005316

001366
005726

;;t.'tttttttt.Qttttttt't"tttt"t'tttt"tt"t't'tttttttttt'ttt't'

000041
;

M.DPIM: CLR
CLR
MOV
M.DPO1: ROR
ROR
ROR
ROR
BCC
ADD
ADC
ADD
M.DP02: DEC

BNE
ST

RO
R1
#41,-(SP)
RO
R1
R2
R3
M.DPO2
RS.R1
RO
R4 ,RO
asP

M.DPO1
(SP)+

sCLEAR HI ORDER WORDS

;MOVE 33 (DEC) TO COUNTER
sSHIFT TO ADD

sNO CARRY NO ADD
;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL
.
PRODUCT
:UECREMENT COUNTER
;REMOVE THE COUNTER

613

02-JuL-80 09:52 PAGE 164
(2 R6QCO RK6 DR CPT PROG MACY11 30A(1052)
CZR6QC.P1Y
02-JuL-80 09:50
DOUBLE=-PRECISION MULTIPLY SUBROUTINE

8342
834
8344

042662

000207

RTS

a“s

::"""'.."t'""Q""""""QQ"'Q"Q't""t'.""""'Q"Q"

8346
8347

.SBTTL
i

3%23

8351

8350

DCUBLE-PRECISION DIVIDE SUBROUTINE
SUBROUTINE TO PERFORM DOUBLE=-PRECISION INTEGER DIVISION

USES ALL REGISTERS (RO=RS)

835
835

ENTER WITH

QUOTIENT RETURNED IN R2-R3

E:QQtttttt'tttt"tt't""""'""'Qt'tt.'t'ittt"'t"t't'tt"Qt'

8357
8358
8359
8360
8361
836%
8363
8364
8365

042664
042670
042672
042674
042700
042702
042706
042710
042712

012746
010446
010546
005466
005416
005666
061601
005500
066600

8367
8363

042720
062;22

005046
006}03

CLR
M.DP4O: ggt

8371
8372
8373
8374
8375
8376
8377
8378

0427
042732
042734
042736
042740
042744
042746
042750

006100
005716
001410
005016
066601
005500
005516
066600

ROL
TST
BEQ
CLR
ADD
ADC
ADC
ADD

8380
8381
838§
8383
8384
8385
8386
8387
8388
8389
8;90
8391
839
839
8394
8395
8396
8397

042756
06%760
042762
042764
042766
042770
042772
042774
042776
04
2
043004
043006
8:3010
3012
043014
823018
3020
043022

060501
005500
005516
060400
005516
005716
001401
005203
005366
003347
00?203
103404
060501
005500
060400
000241
006103
062706

8366 042716

103445

000002

000002
000002

{3 st el

8379 042754 000404

M.DPID: MOV
MOV
MOV
NEG
NEG
SBC
ADD
ADC
ADD

BCS

#40,-(SP)
R4 ,=(SP)
RS ,=(SP)
2(SP)
asP
2(SP)
asP,R1
RO
2(SP) RO

sCOUNTER FOR DIVISION CYCLES
sHI ORDER
sLO ORDER DIVISOR TO THE STACK
:FORM NEGATIVE
:
VERSION OF THE DIVISOR

-(SP)
:;

sTHIS IS A LONGER LASTING CARRY BIT

M.0PS0

000002
000004

000006

000010

PC,M.DPID

DIVISOR IN Ré&=RS
REMAINDER RETURNED IN RO=-R1

v
000040

JSR

DIVIDEND IN RO-R1-R2-R3

i
)

3%2‘;

8356

M.DP4&1: ADD
ADC
ADC
ADD
M.DP&2: ADC
18T
BEQ
INC
DEC
BGT
ROR
BCS
ADD
ADC
ADD
CLC
M.DP44: ROL
ADD

RO
sSSP
M.DP41
asSP
2(SP),R1
RO
asSP
5 3
4(SP) RO ;<

;PERFORM THE INITIAL SUBTRACTION

;1F CARRY THEN OVERFLOW HAS OCCURRED

)
:TEST "'CARRY INDICATOR'
:1F NO '"'CARRY'' THEN ADD ELSE SUBTRACT
sCLEAR UP FNR NEXT TIME
sADD -(DlVl§0R)
:SET "'CARRY

M.DP42

RS.R1
RO
asP
R&,RO0
asP
asP
R
R3
6(SP)
M.DP4O
R3
M.DP4&4
RS.R1
RO
R4 ,RO

R3
#10,5P

: 1
;<
3y
1
1<

sADD +(DIVISOR)
sSET "'CARRY"’
A
.
:SET "'CARRY’
:TEST THE UPDATE INDICATOR
s1F ZERO FORGET IT
:NO CARRY POSSIBLE HERE
:DECREMENT COUNTER
;BR IF MORE TO DO

sADJUST STACK BY & WORDS

SEQ 0162

H13
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 165
CZR6QAC.”11
02-JuL-80 09:50
DOUBLE-PRECISION DIVIDE SUBROUTINE

8398
8399
8400
8401

8402

840
8404
8405
g:gg

04
04
043032
043036

0006;
00020
062706
00026

000006

043040 00020

CLy
RTS
M.DPS0: ADD
SEV

RTS

.SBTTL

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

;;""Q""'.'Q""""""'""Q'QQ"QQ"'"".""'l".".""'

32}?
8412

8409

S«THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

:-g:iieuso OCTAL ASCIZ NUMBER.

8413

8429
8430
8431
sasi
8433
8434
8435
8436
8437
8438
8439
8440
8441

8442

8443
844k
3222
“‘7

MOV

‘e

RE TURN

$DB20:

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV
DEC
BGT

g:}g

8416
8417
8418
8419
8420
8421
- 8422
8423
8424
3455
8426
8427
8428

043042
043044
043050
043054
043060
043064
043066
043070
8:3872
764
043076
043100

043102
043104
043106
0643112
043114
043116
043120
043122
043124
043126
043130
043132
043134

104407
016601
012705
012704
012703
012100
012101
005002
110245
010002
005304
003007

001405
005205
010566
104410
000207
006203
006001
006000
006001
006000
006001
006000
040302

000002
043161
000014
177770

1$:

000002

043136 062702 000060
043142
043144

000753
000016

28:
3s:

JSR

BEQ
INC
MOV
RESREG
RTS
ASR
ROR
ROR
ROR
ROR
ROR
ROR
BIC

ADD

PPNTR, = (SP)

PC,ar$0B820

2(SP) ,R1
#30CTVL+13.,RS
2. ,RG
#°C7.R3
(R1)+,R0
(R1)+.R1
R2
R2,-(RS)
RO.R2
R4
3s
2
RS
RS,2(SP)

R3
Rl
RO
R1
RO
R1
RO
R3,R2

#0,R2

::POINTER TO LOW WORD OF BINARY NUMBER

::CALL THE ROUTINE

*:THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK
;:SAVE ALL REGISTERS
1:PICKUP THE POINTER TO LOW WORD
::POINTER TO DATA TABLE
::DO ELEVEN CHARACTERS
: MASK
::LOWER WORD
::HIGH WORD
: :TERMINATOR
1:PUT CHARACTER IN DATA TABLE
PiGET THIS DIGIT
::COUNT THIS CHARACTER
P:BR IF NOT THE LAST DIGIT

P:BR IF IT IS THE LAST DIGIT
$SALL DIGITS DONE-ADJUST POINTER FOR FIRST
S:ASCIZ CHAR. & PUT IT ON THE STACK
::RESTORE ALL REGISTERS
P*RETURN TO USER
S:POSITION THE MASK FOR THE LAST DIGIT
1:POSITION THE BINARY NUMBER FOR
i
THE NEXT OCTAL DIGIT

:;MASK OUT ALL JUNK

::MAKE THIS CHAR. ASCII

BR
1s
:360 PUT IT IN THE DATA TABLE
$OCTVL: .BLKB
‘RESERVE DATA TABLE
.SBTTL DOUBLE LENGTN BINARY TO DECIMAL ASCII CONVERT ROUTINE
.'li'.'.!l."""""'""""."'...'.tl'""'tl"'.'."'l"'.

8448
8449

SSTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
T«DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

8451
8452

:'CALL
e

8450

8453

SEQ 0163

PC
26,5P

““

S«POSITIVE.

MOV

JSR

#PNTR,-(SP)

PC,aré0B2D

::POINTER TO LOW WORD OF BINARY NUMBER

——

E%:GOEO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 16&
6aC.P11

02-JuL-80 09:50

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

8454
8455

803

8458
8459
8460
8461

o«§1ez
043164
043170
o«§174

104407
016602
012700
010066

8463

043202

01220;

043212
043216
043222
043226

012704
012705
005003
161401

8462

8464

8465
8466
8467
8468

043200 012201

043206

012737

00000
043342
000002

000012

043272
043274

8469 043226 005602
8470 043230 161502

8471
8472
8473
8476
8475
8476
8477

043232
043234
043236
043240
043242
043244
043246

002402
005203
000772
062401
005502
062402
022525

8479

043254

110320

RE TURN

$DB2D:

SAVREG
MOV
MOV
MOV

2(SP),R2
#SDECVL, RO
RO,2(SP)

MOV

(R2)+.R2

MOV
043260

MOV
1%:
2$:

3s:

8478 043250 052703 000060

MOV
MOV
CLR
SuUB

SBC
SUB

BLT
INC
2K
ADD
ADC
ADD
CMP

BIS

MOVB

::THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK
; :SAVE REGISTERS
::PICKUP THE DATA POINTER
::GET ADDRESS OF '‘SDECVL'' STRING
::PUT ADDRESS OF ASCIZ STRING ON STACK

(R2)+,R1

::PICKUP THE BINARY NUMBER

#10.,48

#STNPUWR, R4
#$TNPUR+2,RS
R3
(R4) ,R1

R2
(RS) ,R2

;:SET UP TO DO 10 CONVERSIONS
;ADDRESS OF TEN POWER
::CLEAR PARTIAL
::SUBTRACT TEN POWER

3$
R3
2$
(R4)+,R1
R2
(R4)+,R2
(RS)+,(RS)+

::BR IF TEN POWER TO LARGE
::ADD 1 TO PARTIAL
::LOOP
::RESTORE SUBTRACTED VALUE

R3,(RO)+

::SAVE IT

#'0,R%

::CHANGE PARTIAL TO ASCII

043256

005327

848
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
agg;

043264
043266
043270
043272
043274
043276
043300
043302
043304
043306
043310
043312
043314
043316
043320
043322
043324
043326
043330
043332
043334
043336
043340
043342

105020
104410
000207
145000
035632
160400
002765
113200
000230
041100
000017
103240
000001
023420
000000
001750
000000
000144
000000
000012
000000
000001
000000
000014

CLRB
(RO) +
;s TERMINATOR
RESREG
:*RESTORE REGISTERS
RTS
PC
::RETURN
$STNPWR: 145000
::1.0E09
35632
160400
::1.0E08
2765
113200
;:1.0€07
230
041100
::1.0E06
17
103240
::1.0€05
1
23420
::1.0E04
0
1750
::1.0€03
0
144
::1.0€02
0
12
::1.0E01
0
1
::1.0E00
0
$DECVL: .BLKB
12.
;sRESERVE STORAGE FOR ASCIZ STRING
.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

509

135

BNE

IR AR R R

6pc>o

::MOVE TO NEXT TEN POWER

akgg

gtl 823522

058R°

SEQ 0164

: :DONE?

TR TR

::BR IF NO

R R R R RN

R R R R RN RN

RN RN

R —

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 16*

CZR6QC.P11

02-JuL-80 09:50

TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

8510
8511

s*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
s*LEADING NUMBERS.

851
8514
8515
8516
8517
8518
8519
8520
8521
8522
8523
85264
8525
8526
8527
8528
8529
g;g?

H
i

351;

;*CALL

043356
04330
043364
043366
043370
043374
043376
043400
043404
043406
043410
043412
043414

010046
016600
105710
001403
122720
001773
005300
010037
104401
00
012600
012616
000207

MOV
JSR

#NUMADR ,=(SP)
PC,a#SSUPRS

$SUPRS: MOV
RO,=-(SP)
MOV
4(SP),RO
1%:
1STB
(RO)
BEQ
2%
CMPB
#'0,(RO)+
BEQ
18
2%:
DEC
RO
MOV
RO,3S
TYPE
3s:
LWORD
O
MOV
(SP)+,RO
MOV
(SP)+,(SP)
RTS
PC
.SBTTL BINARY TO OCTAL (ASCII)

000004
000060
043406

;sFIRST ADDRESS OF ASCIZ STRING

::SAVE RO
::PICKUP THE POINTER
s sTERMINATEOR?
::BR IF YES
;1S THIS AN ASCII ''0'" ?
::BR IF YES
: ;BACKUP BY ‘1"
::SAVE FOR TYPING
::G0 TYPE
::ASCIZ POINTER GOES HERE
:sRESTORE RO
ssRESTORE THE STACK
: sRETURN
AND TYPE

8532

- .'"""...."."'""""."""'.'."".".'."."""'.."""

8533
8534

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*0OCTAL (ASCII) NUMBER AND TYPE IT.

gggz

:'%IltOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

8537

8539
8540

ie
it

ggz%

]

8541

NUM,=(SP)

BYTE
.BYTE

TYPOS

:;NUMBER TO Be TYPED

:iCALL_FOR TYPEQUT

::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0R 0
::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

:*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE L AST
;*$TYPOS OR STYPOC
s*CALL:

8547

3323

8550
8551
8552

gggz 043416 017646 000000
8557
8558
8559
8560
8561
8562
8563
8564
8565

MOV

8544
8545
8546

8555
8556

043422
043430
043434
043440
043442
043450

043456
043464
043466
043470

116637
112637
062716
0006?9
1127
112737

112737
010346
010446
010546

MOV

TYPON

NUM,=-(SP)

:sNUMBER TO BE TYPED

ssCALL FOR TYPEOUT

:*$TYPOC==-=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
B
MOV
NUM,-(SP)
:;NUMBER TO BE TYPED

:®

000001
043643
000002

043641

000001
000006
000005

043641
043643
043640

TYPOC

$TYPOS: MOV
MOVB

MOVB
ADD
BR
STYPOC: MOVB
Move
STYPON: MOVB
MOV
MOV
MOV

:sCALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP),SOFILL

::PICKUP THE MODE
:sLOAD ZERO FILL SWITCH

#5,80CNT
R3,-(SP)
R4 ,-(SP)
RS.=(SP)

::SET THE ZERO FILL SWITCH
ssSET FOR SIX(6) DIGITS
:sSET 7N§ lIERATrUN\EOUNT
::SAVE R
:,SAVE Ré&
*:SAVE RS

(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,30MODE +1

;;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS

SEQ 0165

K 13
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 168
CZrRé6QC.P11
02-JuL-80 09:50
BINARY TO OCTAL (ASCII) AND TYPE

SEQ 0166

043472

113704

043643

MOV

$OMODE +1,R4

ssGET THE NUMBER OF DIGITS TO TYPE

8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
85
8583
8584
8585
8586
8587
8588

043500
043504
043510
043514
043520
043522
043526
043526
0435
043532
043534
043536
043540
043544
043546
043552
043554
043556
043560
043562
043566

062724
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703

002006
043642
043641
000012

#6,R4
R4, $OMODE
SOFILL,RG
12(SP) ,RS
R3
RS
3%
RS
RS
RS
RS,R3
R3
$OMODE
[4 ]
#177770,R3
4s
R4
5%
R&
#'0,R3
#
,R3

:sSUBTRACT IT FOR MAX. ALLOWED
:sSAVE 1T FOR USE
ssGET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
:sCLEAR THE OUTPUT WORD
:sROTATE MSB INTO ''C*'
+:60 DO MSB
s:sFORM THIS DIGITY

5$:

ADD
MOvB
MOVB
MCV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS

8590

043576

104401

043636

8592
3593
594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607

043606
82;213
1
043614
043616
043620
043622
043624
043632
043634
043636
043637
043640
043641
043642

003347
88 402
204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

78:

DECB

8529 063476 005404

8589 043572

8591

043602

NEG

1$:
2$:

3s:

043642
177770

4$:

000060
000040

110337 043636

105337 043640

000002

000004

MOVE
TYPE

BGT
BLT
INC
BR
6$:
MOV
MOV
MOV
MOV
MOV
RTI
8%:
BYTE
BYTE
SOCNT:
.BYTE
$OFILL: .BYTE
SOMODE: .WORD
.SBTTL CONVERT

R3,8%

ssGET LSB OF THIS DIGIT
ssTYPE THIS DIGIT?
:sBR IF NO
ssGET RID OF JUNK
:sTEST FOR 0
;s TUPPRESS THIS 0?
;sBR IF YES
ssDON'T SUPPRESS ANYMORE 0°'S
ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY

::SAVE FOR TYPING

;360 TYPE THIS DIGIT

2%
6%
R4
2%
(SP)+,RS
(SP)+,R4
(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)

ssBR IF MORE TO DO
ssBR IF DONE
s INSURE LAST DIGIT ISN'T A BLANK
;260 DO THE LAST DIGIT
:sRESTORE RS
:sRESTORE R4
s sRESTORE R3
2:SET THE STACK FOR RETURNING

$OCNT

: :COUNT BY 1

s sRETURN
0
s sSTORAGE FOR ASCII DIGIT
0
s sTERMINATOR FOR TYPE ROUTINE
0
ss0OCTAL DIGIT COUNTER
O
ssZERO FILL SWITCH
O
s sNUMBER OF DIGITS TO TYPE
BINARY TO DECIMAL AND TYPE ROUTINE

8609

8610
8611
8612
8613
8614

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s*REPLACED WITH SPACES.

8616

8615

s*CALL:

gg};

8619
8620
8621

H
043644
043644
043646

010046
010146

$TYPDS:

R R R R R AR R R R R R AR AR RN RN RN RN RN RNNRORRRRROES

MOV

NUM,-(SP)

:sPUT THE BINARY NUMBER ON THE STACK

MOV
MOV

RO,-(SP)
R1,-(SP)

:sPUSH RO ON STACK
:sPUSH R1 ON STACK

TYPDS

::6G0 TO THE ROUTINE

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 165

CIR6QC.P11

02-JUL-80 09:50

8622

043650

010246

8626
8627
8628
8629
8630
8631

043662
04
043670
043672
043700
043702

016605
100004
005405
112766
005000
01%703

8633
8634
8635
8636
8637
86
8639
8640
8641
8642

043712
043714
043720
043722
043724
oasrgs
043730
043732
043734
043736

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716

864k
8645
8646

043742
043744
0437646

106316
103003
116663

000001

8648

043760

oszrog

000040

8651
aos;
8653
8654
8655
8656
8657
8658
8659
8660
8661
aoe%
8663
8664
8665

043770
043774
043776
044000
044002
044004
044006
044010
044016
044020
044022
044026
044026
044030
044032

020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401

000010

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

86 § 04 sg 010346
8626 043654 010546
8625 043656 012746 020200

863

8643

043703

000020

000055

000001

044060

112723 000040

3s:

4$:

043740 100407

8649 82 7
8650
766

110;%
005720

1$:

2%:

044050

5%:

8647 043754 052702 000060

177777

68:

78:

8s:

177777

177776

98:

044060

8666 044036 016666 000002 000004

~NOrwn
e

g3Es

044046
064050
044052
044054
044056
044060

000002
023420
001750
000144
000012
000004

$DTBL:

$DBLK:
.SBTTL

SEQ 0167

MOV

MOV
MOV
MOV

R2,=(SP)

::PUSH R2

MOV
BPL
NEG
MOVB
CLR
MOV

i -(SP)
-(SP)
l26200.-(SP)

move

20(SP) .RS
1%
RS
#'-,1(SP)
RO
#$DBLK,R3

#' ,(R$)+

::GET THE INPUT NUMBER
P'BR IF INPUT IS POS.
:*MAKE THE BINARY NUMBER POS.
:SMAKE THE ASCII NUMBER NEG.
::7ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

P:SET THE FIRST CHARACTER TO A BLANK

CLR
MOV
SUB
BLT
INC
BR
ADD
ST
BNE
ISTB

BMI

R2
$OTBL(RO)
,R1
R1,RS
4$
R2
3s
R1,RS
R2
5%
(SP)

ON STACK

::PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN

::CLEAR THE BCD NUMBER
;;GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
:*INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
S FALL THROUGH IF 0
::STILL DOING LEADING 0'S?

:BR IF YES

ASLB
BCC
MOVB

(SP)
68
1<sp) =1(R3)

iMSD?
::BR IF NO
::YES==SET THE SIGN

BIS

SSMAKE IT A SPACE IF NOT ALREADY A DIGIT

CMP
BLT
BGT
MOV
BR
TSTB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

RO,#10
28
1
RS.R2
0t
(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK

MOV

(SP)+, (SP)

BIS

MOVB
ST

MOV

8667 044044 012616

8668
3699
8670
8671
aorg
8673

aé

R2 (a3>+
(RO) +

2(SP),4(SP)

RTI
10000.
1000.
100.
10.
4
.BLKW
ERROR WANDLER ROUTINE

skttt tRttttt ettt

:*MAKE THE BCD DIGIT ASCII

1:PUT THIS CHARACTER IN THE OUTPUT BUFFER
:3JUST INCREMENTING

::CHECK THE TABLE INDEX
1560 DO THE NEXT DIGIT
1160 TO EXIT
1iGET THE LSD
260 CHANGE TO ASCII
1:WAS THE LSD THE FIRST NON-ZERO?
$:BR IF NO
::YES==SET THE SIGN FOR TYPING
$:SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
1INOW TYPE THE NUMBER

:*ADJUST THE STACK
:;RETURN TO USER

Rt Rt RO RRRRRRRRRRRRRRRRRRRARRRRRRRRORRORARRETS

'IHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 170
CZR6QC.PN
02-JuL-80 09 :50
ERROR HANDLER ROUTINE
8678
8679

SEQ 0168

;*SAVE THE ERROR ITEM NUH!EI AND THE ADDRESS OF THE ERROR CALL

s*AND GO TO TYPERR ON ERR

:*THE_SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

SW15=1
SW13=1
Q SW10=1
;t SwW09=1
M

105237

CALL

$ERROR:
7%:

001103

001102
002000
001320
001112
001116
000002
1347564
020000

001114
044762

044206

SERFLG
7
$TSTNM,aDISPLAY
#BIT10,3SWR
1%
$BELL

::SET THE ERROR FLAG
::DON'T LET THE FLAG GO TO ZERO
;:DISPLAY TEST NUMBER AND ERROR FLAG
:3BELL ON ERROR?
ssNO = SKIP
: sRING BELL

:gpzeasggpc

::GET ADDRESS OF ERROR INSTRUCTION

134710

001110
001316

,$CRLF

208:

#APTENV,SENV

$SITEMB,218
21%:

.BYTE

228:

2%:

134722

000002.

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

PC, TYPERR

001350

3s:

000042

5%:

6%:

LSBTTL

::60 TO USER ERROR ROUTINE

;:RUNNING IN APT MODE

;N0 SKIP APT ERROR REPORT

SET ITEM NUMBER AS ERROR NUMBER

0
22%

::APT ERROR LOOP

aSWR

SLPERR, (SP)
$ESCAPE

b} 3

MoV

$ESCAPE,(SP)

CMP
BNE

#SENDAD,a#42
63

RTI

;;STRIP AND SAVE THE ERROR ITEM CODE
:3SKIP TYPEOUT IF SET
::SKIP TYPEOUTS

..aepoar FATAL ERROR TO APT

#B1T09,aSWR
4

HALT

::COUNT THE NUMBER OF ERRORS

sc.sntva

4s:

001316

017234

@SERRPC,SITEMB
#81T13,3SWR
20%

000001

001000

ERROR
ERROR TYPEOUTS
ERROR
ERROR

$ERTTL

1$:

030330
001325

77
02
16
37
02
16

HALT ON
INHIBIT
BELL ON
LOOP ON

TTY INPUT ROUTINE

:HALT ON ERROR

::SKIP IF CONTINUE
:HALT ON ERROR'

::LOOP ON ERROR SWITCH SET?
::BR IF NO

::FUDGE RETURN FOR LOOPING

::CHECK FOR AN ESCAPE ADDRESS

::BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE
;;ACT=11 AUTO-ACCEPT?
: :BRANCH IF NO

ssYES

s sRETURN

Q't".t.'t.."i'"""""""tt.t'l"tlt"i'ii'.'it"'l"t.'l'

ENABL

LS8

SABL

LSB

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52
CZR6QC.PN
02-JuL-80 09:50
TTY INPUT ROUTINE

N 13
PAGE 171

SEQ 0169

S MANRRARNANRANNARACCCERRCCRREARCANNNAARANAAAANANCRNONROCONOOOOOETS

:'Y:EE ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
:'

e
e

134640

000004
000004
000023

—

NOOWVINWN

000002

—

NN
O NNWNOOA

88R=33888=
- NN~
srU“
§§U-"“fi\#dfiusu;

P
FEFCES

1333333

©o 0o 0o

NNNNNN
VIV
&»

05777
00375

000004
134644

w
&H»
o

-t
e OO

P
~N

N
F

a$TKB,4(SP)

BNE
TSTB
BPL

3s
@$TKS
28

BIC
CMP

s2222 288

3
$
?

L
W

(SP)+,#21
28
1%
4(SP),#140
Py
4(SP), 75
48
#40,4(SP)

: :BRANCH
IF NO

s3WAIT FOR A CHARACTER
ssLOOP UNTIL ITS THERE
ssGET CHARACTER
:sMAKE IT 7-BIT ASCII
:31S IT A CONTROL-Q?
ss1F NOY DISCARD IV
ssYES, RESUME

000
000015
02012
053505

SMNEW:

+ASCIZ

.SBTTL

POWER DOWN AND UP ROUTINES

000024

/7°U/<15><12>
/7°G/<15><12>

<15><12>/SWR = /

;:POWER DOWN ROUTINE
#$PWRUP ,PURVEC
HALT

.-2

:POWER UP ROUTINE

$PWRUP: CLR

064524
044524

4$:

000024
000026
000036

INC

2118 11 UPPER CASE?

s ;BRANCH IF YES

::1S IT A SPECIAL CHAR?
s ;BRANCH IF YES
ssMAKE IT UPPER CASE
::60 BACK TO USER
:;CONTROL 'V’
:;CONTROL ''G''

NEW =/

$PWRDN: MOV
BR

a$TKB,-(SP)

#°C177, (SP)

:2READ THE TTY

CMP
BNE
BR
3s:
CMP
BLT
CMP
BGT
BIC
4$:
RTI
SCNTLU: .ASCIZ
$CNTLG: .ASCIZ
+ASCI2
$MSWR:

000004

044440

::GET RID OF JUNK IF ANY
:s1S IT A CONTROL=S?

MOVE

B8PL

BIC

000175

)
;

117> ,4(5P)
4(sP),#2%

(SP),=(SP)
4(SP),2(SP)
@s$TKS

28:

000140

7
7

;sPUSH DOWN THE PC
ssSAVE THE PS
iWAIT FOR
s:A CHARACTER

SRDCHR: MOV
MOV
1%:
TSTB

MOVE

044452

s INPUT A SINGLE CHARACTER FROM THE TTY
: ;CHARACTER IS ON THE STACK
;sWITH PARITY BIT STRIPPED OFF

RDCHR
RETURN HERE

SPWRCT
SPWRCT
6%
#SPURDN, PURVEC
#PR7 ,PURVE(C+2
#PR7,TRAPVEC+2
#STACK,SP

.PURNSG

aSLPADR

:SET VECTOR FOR POWER UP

*HANG UP

sWAIT LOOP FOR TTY TO COME uP

sSET VECTOR FOR POWER DOWN
;RE-ESTABLISH POWER AND TRAP PRIORITIES

;RE=INITIALIZE THE STACK
:TYPE "POWER FAILED
:CLEAR THE UNIBUS
:RESTART THE CURRENT TEST

R ——

CIR6QCO RK6 DR CPT

CZrRé6QC.P11

02=JUL-80

8790

4524

879
8793
8794
8795
8796
8797

45
044542

8791

4552 80 015

2?12
04 12
044550

MACY11 30A(1052) 02-JuL-80 09:52 PAGE 17!
09:50

0475

0405
00501

POWER DOWN AND UP ROUTINES
$PWURCT: .WORD

SEQ 0170

822527 PWRMSG: .ASCIZ <15><12>/POWER FAILED/<15><12>
6111
000

.EVEN

8798

R LR L e
e e
e ey

8799
8800

;* SCOPE1 - }NTERNAL SCOPE ON ERROR ROUTINE
'CALLED BY ''SCOPER

8801

044550
044554
044556
044564
044566
044572

105737
00140?
032777
001402
013716
000002

001103
001000

134354

001110

ONOWVSWNN-O

8802
8803
8804
8805
8806
8807
8808
8809

.SBTTL

SCOPE HANDLER ROUTINE

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

seSWi4=1

LOOP ON TEST

: *SW09=1

:'CALL
M
044574
044574

032777

8825 044602 001052
8826

040000

134336

8828
8829
8830
8831
883
883
8834
8835
8336

8827 044604

000416

044606
044612
044620
ouoia
064632
044634
044640

013746
012737
005737
012637
000421
022626
012637
000407

000004
044632 000004
177060
000004

8838
8839

044642
044646

105737
ogm;

001103

064670

105037

001103

8837 o“us

000004

0446764

105237

001102

LOOP ON ERROR
SCOPE

;:SCOPE=10T

$SCOPE:
18:
BIT

#BIT14,aSWR

::LOOP ON msem TEST?

$XTSTR: BR

;:1F RUNNING ON THE “XOR'' TESTER CHANGE

BNE
$OVER
SYES IF SW14=1
:#RRNSTART OF CODE FOR THE XOR TESTERN#NEN

5%:

MUV
MOV
TST
MOV
B8R
CMP
MOV
B8R

SFERRVEC,-(SP)
958 umvsc
ar14706
(sw.mnavec
$SVLAD
(SP)+, (SP)+
(SP)+.@FERRVEC
7%

STHIS INSTRUCTION TO A "NOP'* (NOP=240)
::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
::TIME OUT ON XOR?
:*RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST
$:CLEAR THE STACK AFTER A TIME OUT
:;RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

TSTB
BEQ

SERFLG
$SVLAD

HAS AN ERROR OCCURRED?
1:BR IF NO

SERFLG

::1ERO THE ERROR FLAG

68 :; MARRNEND OF cooe FOR THE xou issvemm
28:

8840 044650 032777 001000 134262
8841 044656 001404
m; 824660 013737 001110 001106 7%:
ggz
4
oooago
&

sSEE IF AN ERROR HAS PCCURRED
8 IF NOT
sSEE IF LOOP ON ERROR DESIRED
:BR IF NOT
sSET ERROR LOOP ADDRESS ON STACK
:RETURN

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

8820
3351

8845

Te
R R I e e L

SERFLG
6%
#B1T9,aSWR
6%
$LPERR, (SP)

soRtRARRARRRARRERCERCAOCENCRNCERRCRNARARAANAOAARAAAAAACRANNAROONOOETSE

8819
8823
8824

SCOPEl TSTB
BEQ
BIT
BEQ
MOV
6%:
RTI

48:

BIT
BEQ
MOV
B8R

CLRB

$SVLAD: INCB

#81709,3SWR
13
SLPERR,SLPADR
$OVER
STSTNM

..LOOP ON ERROR
:BR IF NO
::SET LOOP ADDRESS TO LAST SCOPE
::COUNT TEST NUMBERS

CZR6QCO RK6 DR CPT ngg MACY11 30A€1052) 02-JuL-80 09:52 PAGE 17§

CIR6QC.P11
ggz?

113737

001102

011637
sg 7
112737

00111
001316
000001

044712
04471
044722

8852
8853

044736
044742

gggg

09:50

4700

8848
8849
8850

8851

02-JuL=-80

044730

“56

8857 044744

11637

013777
013716
000002

112737

0011

001102

001106

000001

044752

8860
8861
aae;
8863
8864
8865
8866
8867
8868
8869
8870
8871

044762
044770
044770
044772
064774
045000
045002
045010
045012
045020
045022
Otsogz

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766

887
8874

825823
045

80137;
10037

8876
8877
8878
8879
8880
8381
8882
8883

045050
045052
045056
045060
045064
045072
045074
045102

001376
163700
006200
010037
012737
000413
017637
06%766

8885
aaag
888
8888
8889
8890
8891
8892
889
8894

045114
8:5120
s1§s
045122
045126
825130
0451
045136
8:514
045144

004737
000000

042342

105737
001416
885737
1413
005737
001375
017937

045210

5160 005237

001330

8859 044760 000403

8872

045034

8875 045046

112737

000001
000001

001334

MOVB

STSTNM,STESTN

001115

MOV
CLR
MOVE

(SP) .SLPERR
$ESCAPE
#1,SERMAX

MOV
RTI

SLPADR, (SP)

134204

MOV

SOVER:

045210

045206
045210

000001

001350

000100

001351

000004
000002

000004

001344

$ATY1:

SATY3:
SATY4:
SATYC:

1$:
28:

001344
001346
0000064

001330

000004
000002

045120
000004

8884 045110 013746 177776

3$:

001350

000004

118:
001332

8895 825152 062 69 000002 000004
88

889
8898
8899
8900
8901

0t5134
045170
8:5174
045200
045202

105037
185037
105037
812601
012600

045210
045207
045206

;:SET TEST NUMBER IN APT MAILBOX

::SAVE SCOPE LOOP ADDRESS

::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS
$SONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM,ADISPLAY ::DISPLAY TEST NUMBER

:FUDGE RETURN ADDRESS
::FIXES PS

APT COMMUNICATIONS ROUTINE

MOVE

#1,$FFLG

B8R

SATYC

MOVB
MOVB

::T0 TYPE A MESSAGE

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD

RO,=(SP)
R1,=(SP)
SMFLG
13
#APTENV,SENV
3s
#APTSPOOL,SENVM
3s
34(SP) RO
#2,4(SP)

;:PUSH RO ON STACK
::PUSH R1 ON STACK
$3SHOULD TYPE A MESSAGE?
::IF NOT: BR
;:;OPERATING UNDER APT?
::1F NOT: BR
;;SHOULD SPOOL MESSAGES?
;:1F
NOT: BR
::GET MESSAGE ADDR.
::BUMP RETURN ADDR.

BNE
MOV

1%
RO, SMSGAD

S:IF NOT: WAIT
$:PUT ADDR IN MAILBOX

1STB

$SMSGTYPE
(RO)+

::SEE IF DONE W/ LAST XMISSION?

::FIND END OF MESSAGE

BNE
suB
ASR
MOV
MOV
BR
MOV
ADD

28
$MSGAD , RO
RO
RO,SMSGLGT
#4 . $MSGTYPE
5s
34 (SP) 48
#2,4(SP)

JSR
LWORD

PC,STYPE
O

T1STB
BEQ
ST
BEQ
1ST
BNE
MOV

SFFLG
128
SENV
128
SMSGTYPE
1%
@4 (SP) ,$FATAL

: :SHOULD REPORT FATAL ERROR?
::1F NOT: BR
: :RUNNING UNDER APT?
::IF NOT: BR
::FINISHED LAST MESSAGE?
S:IF NOT: WAIT
:;GET ERROR #

INC

$MSGTYPE

::TELL APT TO TAKE ERROR

ADD

128:

::T0 REPORT FATAL ERROR

;:TO ONLY REPORT FATAL ERROR

#1,$MFLG
#1,$FFLG

MOV

48:
5%:
108:

001330

MOV

(SP),$SLPADR

':""Q"."'""Q'"'"'Q""'Q'Q't""t.t"QQQQQQ'Q'Q'QQQ"Q"'

045206

005737 001330
105720

SCOPE HANDLER ROUTINE

.SBTTL

8858

CLRB
CLRB
CLRB
MOV
MOV

17#776,-(SP)

#2.,4(5P)

S$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+.RO

:.SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
L:PUT LENGTH IN MAILBOX
SSTELL APT TO TAKE MSG.
;:PUT MSG ADDR IN JSR LINKAGE
- :BUMP RETURN ADDRESS

;:PUSH 177776 ON STACK
::CALL TYPE MACRO

::BUMP RETURN ADDR.

::CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
1:POP STACK INTO R1
1:POP STACK INTO RO

SE@ 017

CIR6QCO RK6 DR

cZRré6QC.P1
890
890
8904
8905
8906
8907
8908
8909
8910
gg};

CPT PROG MACY11 30A(1052)

02-JuL-80 09:50

5204
S 09
520
045210

000207
000
000
000
045212
000200
000001
000100
000040

OZEJUL-OO

APT

09:52

D 14
PAGE 174

COMMUNICATIONS ROUTINE

SEQ 0172

RTS
Br
: :RETURN
.BYTE
0
;:MESSG. FLAG
.BYTE
O
::L0G FLAG
.BYTE
O
::FATAL FLAG
LEVEN
APTS12E=200
APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTTL SAVE AND RESTORE RO-RS ROUTINES
$MFLG:
SLFLG:
$FFLG:

5913

:."QQQ."QQ!.Qt""t""""""t't."tt't"fi'i"tt"'t't"'t""

8914
8915
8916

;*SAVE RO=-RS
s*CALL:
T
SAVREG

gg};
8919
8920
8921
8922

8923
8924

8925
8926
8927
8928

8929

89
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
894
894

8944

8945
8946
8947
8948
8949

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
;t

;#TOP===(+16)
it $2===(+18)
;% 44==<RS
;v +6===Ré
;% +8===R3

;*+10=--=-R2

;*412-==R1
;*414===R0
045212

o«sglz

045214
045216
045220
045222
045224
045226
045232
045236
045242
045246

045250

8951
8952
8953
8954
8955
8956

010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

000022
000022
000022
000022

RO,=-(SP)

::PUSH RO ON STACK

R1,-(SP)
R2,-(SP)
R3,=(SP)
R4 ,=(SP)
RS,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

::PUSH
::PUSH
;:PUSH
::PUSH
::PUSH
::SAVE
::SAVE
::SAVE
::SAVE

R1
R2
R3
R4
RS
PS
PC
PS
PC

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS

::RESTORE PC OF CALL
::RESTORE PS OF CALL
:;RESTORE PC OF MAIN FLOW
;sRESTORE PS OF MAIN FLOW
::POP STACK INTO RS

:*RESTORE RO-RS
s*CALL:
e
RESREG

045250
045254
045260
045%64
045270

012666
012666
012666
012666
012605

065576
045276
045300
045302
045304

01% 03
012602
012601
012600
2

8950 045272

$SAVREG:

010046

000022
000022
000022
000022

$RESREG:

012604

MOV
MOV
MOV
MOV
MOV

MOV

.SBTTL

(SP)+,Ré&

MOV
(SP)+,R3
MOV
(SP)+,R2
MOV
(SP)+,R1
MOV
(SP)+,RO
RTI
TRAP DECODER

::POP STACK INTO Ré
::POP
::POP
::POP
::POP

STACK
STACK
STACK
STACK

INTO R3
INTO R2
INTO R1
INTO RO

CZR6QCO RKS DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 17§

CZR6QC.P11

02-JuL=-80 09:50

TRAP DEC ODER

8958

gggi

;*GO TO THAT ROUTINE.

8959
8960
8961

8964
8965
8966
8967
8968
8969
gg;?

SEQ 0173
e

eey

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'" INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
045306
045310
045314
045316
045320
045322
045326

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

045342

897

gg;‘

8975
8976
gg;;

MOV
MOV
TST
MOvVB
ASL
MOV
RTS

RO,=(SP)
2(SP) RO
=-(RO)
(RO) RO
RO
STRPAD(RO)
,RO
RO

::SAVE RO
::GET TRAP ADDRESS
: sBACKUP BY 2
ssGET RIGHT BYTE OF TRAP
ssPOSITION FOR INDEXING
;;INDEX TO TABLE
2260 TO ROUTINE

;:THIS IS USE TO WANDLE THE '‘GETPRI'* MACRO

045330
045332
045340

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

(SP),=(SP)
4(SP) ,2(SP)

;sMOVE THE PC DOWN
s sMOVE THE PSW DOWN
ssRESTORE THE PSW

gg;g

.SBTTL

8981

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

893;

ggg

TRAP TABLE

;*BY THE ''TRAP'' INSTRUCTION.

83u. 045342 045330
8987
8988
8989
8990
gggi

045344
045346
045350
045352
065354

042342
043442
823‘16
3456
043644

879
8994
8995
3999
ggg‘

045356
045360
045362
045364

044264
045212
045250
044550

8999
9000
9001
9002
900
9004
9005
9009
900
9008
9009
9010
9011
901;
901

045366
045374
045400
045405
065618
54
5426
5431
54
5444
S&Si
545
065695
8:56
5476

OZOO‘g
05212
025052
125
0;01 3
054526
051117
‘}8
8“5
iOISt
054522
114
044530
020124
000105

ROUT INE

$TRPAD: .WORD STRAP2
$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

3sCALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

SRDCHR
$SAVREG
SRESREG
SCOPE1

; ; CALL=RD{HR
;;CALL=SAVREG
;;CALL=RESREG
;;CALL=SCOPER

TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TTY TYPEIN CHARACTER ROUTINE
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE
INTERNAL LOOP ON ERROR ROUTINE

020040
40
020040
044516
040520
042440

042524

1STMSG: .ASCIZ

TEST /

000
052502
044522
051122

AS2SP2: .ASCIZ
EM1:
LASCIZ

/e+ /
/UNIBUS PARITY ERROR/

04711
055123
042515
009
047117
052152
OSSN

042455
047101
047515

EM2:

LASCIZ

/NON=-EXISTANT MEMORY/

042455
047101
053111

EM3:

LASCIZ

/NON-EXISTANT DRIVE/

MACY11 30A(1052)

06-JuL-80 09:50

02-JUL-80

TRAP TABLE

F 14

09:52

PAGE 176

SEQ 0174

[O50N %evy9)=X -.BL<4(w%v) ~- [+o—]+t) -w(] “a—w [v-] 4o[e

[=] o N

msoomM-

oO0O0OA4alLa)

—

4[- ~

NV Sao53si s
=
N
\
(=3-2¢ Oo0O0UO0OaAln)
eTPi

~~~

NWLAlok’alL o7dA-ML_AL‘adN-2AM7Le‘k0bMl7b6tM1oN—4sMl3aNlNaMdNilLaMlalaNNlMNMNMN“NM&[MML=M()

3
8
5
s
0
s
8
5
8
5
8
8
8
5
5
9
5
5
5
B
3
3
5
2
P
S
A
I
I
R
R
M
U
O
U
R
e
T
m
r
z
w
m
w
3
2
3
3
3
8
3
5
3
8
3
MND~O =Ngl 3 3 3 838 3838
-o— w—v -——

OO
O
N
O
AN
D— SO NS O W=
ONOVNNO= NNN— - N~

CIR6QCO RK6 DR
CZR6QC.P1N

/DRIVE DETECTED PARITY ERROR/

EM10:

LASCIZ

/AC LOW/

EM11:

LASCIZ

/SPEED LOSS/

EM12:

<ASCIZ

/ILLEGAL FUNCTION/

EM13:

.ASCIZ

/PROGRAMMING ERROR/

EM14:

+ASCIZ

/NON-EXISTANT FUNCTION/

053517

NWeO VIMAO NMNON

—

+ASCIZ

FTO—O

333

82
9051
905;
905
9054

3
045776

%031 MNM
3w

232333342833

ON
=

9055

I INR

3838S338

S32325 OO0 x < (]— ~4 ~ 4[—- w>4a[TMNONO

og >a

oSRINIIS
t Al el 2 Lol 2—eNNO NNV —

—

LASCIZ

/WRITE LOCK ERROR/

.ASCIZ

/DRIVE UNSAFE/

LASCIZ

/SEEK INCOMPLETE/

.ASCIZ

/CYLINDER OVERFLOW/

MOvTM o~ 2.< (~)— o— -— -o -—a—
-

—

[4 oo ~

< o [=) o . wv v ~

==—3[-wwxwTo--—

N—GNONOeO31250M‘12n1mM2u721.u'0Ln2a)wOnNveurmLlNrOu1MmLN)usTM1OA5O1LW)Ne5Er41]JmINnr[eul~mO0nMmxNn1NuVNumSe‘oAc~l
NNNVeee ee N VeO N N

o= (=] ac(=)b¥4(=) e~—

RTNRN<B22tL(]M8=50358582RSwRSSIeNRBSBN~RGO
CZR6QCO RK6 DR
CZRrR6QC.P

02 =JUL-80 09:50

PT PROG MACY11 30A(105

2)_ 02-JuL-80 09:52 PAGE 173
14

TRAP TABLE

-N[Oo~"wM—-la) [4<o=~vL (—xT>_M—o)-<«dC

SEQ@ 0175

[4“+w

wLi4<-l

MACY11 30A(1052)

08-JuL-80 0°.50

NM M M NM N

CIR6QCO RK6 DR
CZR6QC.P1T

TRAP TABLE

09:52

H 14
PAGE 178

SEQ 0176

17“676 m_-lo.o

mmwu “ u 21§02-1NNeO=N—O 38S3583838OO=NFT~rNe—
N3ON
‘15‘015150

02-JUL-80

EML2:

=NT(OFMN~e

388338333

O oo
NN

TNO

333383835238 -—FOonN
26

042515

EMS3:

A4 = O

LASCIZ

/ATT'N WHEN NOT EXPECTED/

LASCIZ

/ERROR GATHERING DRIVE STATUS/

LASCIZ

/MULTIPLE DRIVE SELECT/

+ASCIZ

/HEADER COMPARE ERROR/

< (%] () — ~

~ w|
= @ wv > [%] — — = jve]

—~

UekAal

La)

—N\—n

4alalL

W3N-eT—MOT3N=IO

S 338338333

? P

SITRTIISIZ

N BN SN

Pttt
& A U' albal

-t

NuMNeIm nNevToImINSNoXmoIeYomwIo nLoSv[«
RENMm-N TmNSXoIne67777777”7
b

3x STx x

59 [5¥) &%)

9N
N
Nn
9
9
9
9
9

ONT=v3~NO—.INtMNn—vOOMn—vO(NO:1YO71N:0-|N,r)u NEmOVOITITOIT—ANO FTOIM

—

0462520

EM66:

.ASCIZ

/ERROR IN RECAL FOR RECOVERY/

LASCIZ

/PROGRAM ABORTING FATAL ERROR IN RETRY/

LASCIZ

/CYLINDER MISCOMPARE/

.ASCIZ

/CLEAR CONTROLLER DID NOT CLEAR ERROR/

LASCIZ

/NO ATT'N [N ATT'N SUMMARY REGISTER/

LASCIZ

/UNSOLICITED ATTENTION/

LASCIZ

/UNEXPECTED DATA TYPE ERROR/

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 17&

CZR6QC.P1N

02-JuL-80 09:50

TRAP TABLE

NeOO=0eNNOeNerNNO~=NerOOVWAOTMO

3vv O=N===o=N=8=NNN=AN= Ne N ee e N =NO~rNOreme

NIMO—vOMNOOO~NNONIASTN~VeITOMNINONNONON=N

SrRNBES (~4oOw—&.o..

SEC 0177

JASCIZ

/ATT'N DID NOT RESET WITH CLEAR/

.ASCIZ

/SUBSYS CLEAR DID NOT CLEAR DRIVE ATT'N/

+ASCIZ

/DATA LATE WHEN UNLOADING HEADER/

+ASCIZ

/CONTROLLER ERROR WHEN DRIVER SERVICING/

.ASCIZ

/DRIVE DETECTED PARITY ERROR/

+ASCIZ

/UNDEFINED ERROR/

LASCIZ

/MARKING THIS SECTOR BAD/

.ASCIZ

/BAD DATA VERIF'N WITH READ. ECC OF LAST RETRY [S:/

LASCIZ

/RETRY SUCCESSFUL/

LASCIZ

/RETRY UNSUCCESSFUL/

CZR6QCO RK6 DR CPT PROG

CZR6QC.PN
9 ?8
9239
9240
9261
9242
9243
9246
9245
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257
9258
9259
9260
9261
9

9263

02-JuL-80

0477644
047752
047754
04776
04777
047776
0500064
0350012
050020
0500 g
0500
050040
050046
050054
05
050070
050076
050104
050112
050120
050126
050132
050140
050146
050154

050162

042503
000114
820503
3040
8%0101
020104
051105
051124
05251;
040505
0‘050;
052103
051122
020119
051117
046040
020104
044524
052517
051040
042110
044524
052517
051440
051104

044523

MACY11 30A(1052) 02-JuL-80 09:52 PAGE 186
09:50

TRAP TABLE

051523

052506

047116
047111
040526
042510
044440
041501
052123
000104
020104
051117
051117
042523
047040
051511
06050§
042515
020124
040505
000122
042515
020124
06%505
053111
055105

052117
020104
044514
042101
0O 011g
02011
051040

EM101:

,ASCIZ

/CANNOT FIND A VALID HEADER IN TRACK JUST READ/

042523
042440
047440
052103
052117
0425264
000104
026504
047117
020104

EM102:

.ASCIZ

/BAD SECTOR ERROR ON SECTOR NOT LISTED BAD/

EM103:

.ASCIZ

/TIMED-OUT ON READ HDR/

026504
047117
000113
020105
042105

EM104:

.ASCIZ

/TIMED-OUT ON SEEK/

EM105:

.ASCIZ

/DRIVE SIEZED BY OTHER PORT/

052101
041523
044127
040502
000124
047040
051122
06§S10
023506
047514
030060

020101
050115
046111
020111

EM106:

.ASCIZ

/DATA MISCMPR WHILE BAI SET/

046505
051117
020116
047111
020103
030060

EM107:

.ASCIZ

/NO NEM ERROR WHEN REF'ING LOC 760000/

052116
044127
052116
047516
000131
040440
827640
5505
8:4522
1660
06;506
830503
124
051117
047101

050122
047105
046122
020124

EM110:

.ASCIZ

/INTRPT WHEN CNTRLR NOT RDY/

052124 EM111:
020116
000
0‘2556 EM112:
046131
0;0122051122

_ASCIZ

/NO ATT'N ON SEEK/

,ASCIZ

/DRIVE'S CYLINDER INCORRECT/

026524
052047

,ASCIZ

/ABORT= CAN'T READ BSF/

965 030176 04z$10 020122 047520
54 030200
035128 - 006

9267
9268
9269
9270
9271
9272
9273
9276
9275
9276
9277
9278
9279
9280
9281
9282
928
9284
9285
92
928
9%88
9289
9290
9291
9292
9293

050207
050214
050222
050230
050236
050242
050250
050256
050264
050272
050
05030?
05030
050314
050322
050330
050332
05034
050350
050352
05039
50370
050376
050404
050412
050416
050426

106
044515
020122
020105
042523
047516
0‘;260
053440
06252;
0;010
033067
000
111
020124
041440
0201%%
;1
516
047047
2523
104
051447
827111
m
041505
041101
041440

Té

EM113:

SEQ 0178

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80
CZRrR6QC.P
02-JuL-80 09:50
TRAP TABLE
9294

050432

9296
9297
9298
9299
G
9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319

050444
050452
0504
050461
0504
050474
050500
050506
050514
050522
050530
050536
050544
050545
050552
0505
0505
050567
050574
050602
050610
050616
050624
050625

051040
05150§
052113
044501
000
115
051101
051103
052503
020124
047101
051120
051525
04C515
000
122
051040
0642524
000
122
044516
043505
051522
053040
000
126

09:52

K 14
PAGE 181

SEQ 0179

040505
000106
030461
052514

020104
043040
042522

EM114:

.ASCIZ

/KT11 FAILURE/

043505
052111
1%
0511
047503
020104
053105
041440
042116

050040
020131

EM115:

.ASCIZ

/MEM PARITY ERR/

047105
046515
000072
047511
046517
035040

DH100:

.ASCIZ

/CURRENT COMMAND :/

DH10S:

.ASCIZ

/PREVIOUS COMMAND :/

033113
043505
051522

030461
051511
035040

DH200:

.ASCIZ

/RK611 REGISTERS :/

046505
043516
051511
047040
046101

044501
051040
042524
052117
042111

DHS00:

.ASCIZ

/REMAINING REGISTERS NOT VALID/

042510

043040

DHSO1:

.ASCIZ

/THE FOLLOWING REGISTER DATA MAY BE INCORRECT

DH101:

.ASCIZ

/ERR PC

DRIVE

LO BA/

9322 850646 821511 862224 820122
9323
9324
9325
9326
9327
9328
329
9330
9331
9332
9333
9334
9335
933?
9337
9338
9339
9340
9341
934
9343
9344
9345
934
934
9348
9349

050654
05
050670
050676
050704
050712
050720
050726
050734
050742
050750
050756
0507
0507
05077
051000
051006
051011
051016
0510§6
051032
051034
051048
85105
51054
051095
0510

040504
054501
047111
041505
051105
020040
020105
042116
054503
020040
o§o113
052103
062127
000
110
020040
040503
120
052440
201;3

040524
041040
047503
020124
020122
051104
020040
020040
047114
051124
020040
051117
041440

046440
020105
051122
000072
041520
053111
046503
020040
051104
041501
042523
020040
052116

020111
046040
000
042522
044516
040515

040502
020117

DH102:

.ASCIZ

/HI BA

027126
052502
020120

DH103:

.ASCIZ

/PREV. UNIBUS MAP :/

044510
82

051040
7514
0
027122
052502
020120

043505
051040

DH104:

L.ASCIZ

/HI REGO LO REGO/

052440
020123
000072

DH106:

.ASCIZ

/CUR. UNIBUS MAP :/

052503
064512
040515

CMND

CYLNDR

TRACK

SECTOR

WD CNT/

PT PROG MACY11 30A(105

02 =JUL-80 09:50

2)_ 02-JuL-80 09:52 PAGE 185

TRAP TABLE

SEQ 0180

~eobO0al~N <-g <(a=xwo]b)o<ew>d(=4o-[<wY]b=ow¥v4 [4@o3x—v+-bw[a=o4<—)-c [4!ow(~=-]

@® o

Ow@w~~~o“~-—@L4o~(—-4

OO‘S‘m0e+l«oO«rYNMeMrOMNEMON=ONNOINIOMNMANNOITNMOMOMoOO2~”MNMe-=MON—ONONNOWN

CZR6QCO RK6 DR
CZR6QC.P1N

o< o w

[4<aL-+

»o =o

ow a

- o~ — a< o

~ o —

4w[-

w o [V ~

[+
] o ~M ~

09:52

M 1%
PAGE 183

SEQ 0181

=oa—42[+(4=[]+wxYbow-va<~-o4~[-

woowv

CIR6QCO RK6 DR OSPY PROG MACY11 30A(1052) 02-JUL-80
CZR6QC.P11
TRAP TABLE
=JUL-80 09:50

L4< ) a~= ~ < <~ ~ <N o> —

~N~-NSIbOo3«-w>V o[4~V- =w~v—

b4 — Q. BN ac 0 ~

a- > a oo

o— [T

—

w—

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)

CZR6QC.P11
9462

9463
9464
9465
9469
%67
9468

969
9%
%
%72

%78

02-JuUL-80 09:50

05
052241
052246
052254
052262

05
5
05
05

020105

052123
g
g
1
4522

052101

1116
11?
1
1256

005430
001164

005426
001166

001204

051525
1
o; 18
1
7
:

001174

9676
975
976
9%77
978
9479
9480

052314
052322
052324
05
052336
052344
052350

001202
001210
001212
001216
001224
001232
001174

953;
g:g‘

osgsot
052372

001210
001216

9485
9%86
94LB?
9488
9489
9490
9491
9492
9493
949
9495
9496
g:g;

052374
052376
052377
052400
85 402
052404
052406
052410
052412
052414
052416
052420
052422

000006
000
000
050704
097
050773
002
050545
000
051076
007
050567
000

99
9500
9501
9502
9503
9504
9505
9sog
9507
9508
9509
9510
9511
gg}g

052424
052426
052430
052432
052434

000007
000
050704
007
050773

9481

052356 001202

052436
052440
052442
052444
052446
052450
052452
052454
052456

9514 052460
9515 052462
9516
052464

9517

052466

002
050545
000
051076
007
051165
002
051202
010
000010
000
050704

007

001260

001176

001214

*so

001200
001206

001200

001212

001214

TRAP YAkLg it
DHB00:

001222
001230

001206

DT100:
DT102:

SEQ 0182

.ASCIZ

/NUMBER OF RETRIES:/

.EVEN
.WORD

SERRPC,DRIVE,ERRCOM,SREGO,SREG!,S$REG2,SREG3

.WORD

SREG36,SREG37

SREG14,SREG1S

DT601:

.WORD

SREGS,SREGH,SREG?

DFO1:

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

6
0
0
DH101
7.0
DH102
2,0
DH200
0,0
DH201
7.0
DH500
0,0

.WORD
.BYTE
.WORD
BYTE
.WORD

7
0,0
DH101
7.0
DH102
2,0
DH200
0,0
DH201
7.0
DH202
2.0
DH203
10,0

.WORD
BYTE
.WORD

10
0,0
DH101
7.0

DT203:

DT602:

000
DF02:

000
000
000

000

.WORD

000

N 14

DT202:

000

.WORD

000

PAGE

DT201:

000

09:52

001220
001226
001234
001176

001204

02-JUL-B0

DFO3:

.WORD

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

BYTE

SREGS,S$REG6,SREG?,SREG10,SREG11,SREG1I2,SREGT3
SREG16.SREG17,SREG20,SREG21,SREG22,SREG23,
SREG24 , SREG2S

SREG10,SREGI1,$REG12,SREG13,SREG14,SREG1S,SREG16
:NUMBER OF HEADER LINES
INUMBER OF COL FOR FIRST HDR
sALL CHARACTERS OCTAL
:SECOND HDR LINE
INUM OF COL-ALL OCTAL

CIR6QCO RK6 DR CPT

CIR6QC.P11

951

02=JuL~=

470

05077

9520
9521
3592

053476
05947
032500

05054
000
051076

9524
9525
952
9537

052504
0525
052510
05251

050625
000
05116
902

9529

052516

953;

MACY11 30A(1052) 02-JUL-80 09:52 PAGE 18!
09.2°

D10

"WORD
BYTE
WORD

DH200
0,
Diig01

000

"WORD
‘BYTE
"WORD
BYTE

DW501
0,0
DH202
2.0

010

000

BYTE

10,

052522

000

9534
9535
953

052526
052530
05532

007
050773
002

000

9538
9539
9540
9541
9542
9543

052534
052536
052540
052542
052544
052546

000007
090
05070
007
050773
002

9528

03573

05250

052514

00
09

05120

95?1’ 052520 000003
9533 052524 050704

000
000

052556
052560
052562
052564
052566

003
051320
000
051537
003

000

9558

052570

000007

052624
052626
052630
05263
052634
05263

000
050704
007
050773
002
051365
000
051420
003
051465
000
051502
003
000005
000
050704
007
050773
002

DFO4:

DFOS:

000

9547
9548
9549
9550
9551

052572
052574
052576
052600
052602
052604
052606
052610
052612
052614
05261
052620
052622

WORD

000

9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9563
9566
956
9568
9569
9570
9571
9572
9578

BYTE

000

9544 oggsgo osire

9546 85 g5z 0512?9

‘BYTE ggz

000

0.0

‘BYTE
"WORD
‘BYTE

7.0
DN102
2,0

"WORD

WORD
"BYTE
"WORD
‘BYTE
"WORD
‘BYTE

DH101

7
0.0
DH101
7.0
DN102
2.0

3.0
D602
0.0
DM606
3,0

DFO7:

.WORD

"BYTE
.WORD
‘BYTE
"WORD
‘BYIE
"WORD
"BYTE
"WORD
‘BYTE
"WORD
‘BYTE
"WORD
‘BYTE

7
0.0
DH101
7.0
DH102
2.0
D604
0,0
DH6041
3,0
DN60S
0,0
DN60S1
3,0

DF10:

.WORD
"BYTE
"WORD
BYTE
"WORD
‘BYTE

S
0.0
DH101
7.0
DH102
2,0

000
000

000

BYTE

‘BYTE
‘WORD
"BYTE
"WORD
‘BYTE

000

.WORD 3

.WORD DH606

000

:"THE FOLLOWING REG DATA M8 INCORRECT"

DH203

D601

000

[0RD

000

SEQ 0183

TRAP TABLE

LWORD

%19

;OP1, HVRC

000
050704

000

000
000
DF14:

.WORD

DF15:

.WORD

000

000
000

000
000
000

X
X
s
X

000

o
o
o
ONONOgO
-0 =0
"
—
~

000

p—y

053002
053006

000

OoOVOoO
OO —-=0—0
o
o
O
o
O
1
P
L
-

9628
9629

9629 053000 000011

000

000006
000
050704
00
050773
002
051276
000
051537
023
052123
000

000

X+

9626
4 5

052750
052752
052754
052756
052760
052762
052764
05 798
52770
52772
052774
052776

000

;FORMAT FOR 2ND LEVEL ERROR

:IN HEADER COMPARE ERROR
sAND 2ND LEVEL HEADER
:VRC ERROR

9614
9615
9619
9617
9618
9619
0
1
i

.WORD

000

050704
007
050773
002
051276
000
051537
003
052123
000

DF13:

000

OO0
=0 =0
o
o
o
o
O
~N
N
o
-

0527264
0527;8
052730
052732
052734
052736
052740
052742
052744
052746

000

ODWOOOUONONOOO

9603
9604
9605
9606
9607
9608
9609
9610
9611
gg}%

0000

000

0527

%02 035732

.WORD

000

9601

DF12:

000

X+

051076
007
052065

000006
000
050704
007
050773
002
050545

,WORD

Xes

052670
052672
052674
052376
052700
052702
052704
052706
052710
052712
052714
052716

DF11:

9588
9589
9590
9591
9592
9593
9594
9595
9596
9597
9598
9599

000

SEQ 0184

gn6061
3,0

OVWOOOUONONOOO

000004
ggg
051
000
051420
003
051605
000

000

052650
052652
05%65
52656
S%
052662
052664
052666

8“806

e
e
o

9579
9580
9581
958;
958
9584
9585
ggg?

.WORD
.BYTE
.WORD
.BYTE

000

051365
000
051420
003

-<
—
m

85 640
052642
85 646
52646

9574
9575
957
32;0

¢ 15
PAGE 186

09:52

HFONODOONODNOD
OO

CIR6QCO RK6 DR PT PROG MACY11 30A(1052) 02-JUL-80
TRAP TABLE
CZR6QC.P11
02-JuL-80 09:50

;FORMAT FOR 2ND LEVEL ERROR
:IN OPERATION INCOMPLETE ERROR

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 189

CZR6QC.PI

9631

02-JuL-80 09:50

05301

TRAP TABLE

000

.BYTE

7,0

00;
05054
000
051076
007
051165
002
052164
000
050625
000
051202
010

000

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

.0
DH200
0,0
DH201
7,0
DH202
2,0
DH503
0,0
DHW501
0,0
DH203
10,0

DF16:

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

11
0,0
DH101
7,0
DH102
2,0
DH200
0,0
DH201
7,0
DH202
2.2
DH502
0,0
DH501
0,0
DH203
10,0

DF17:

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

5
0,0
DH101
7,0
DH102

DF20:

.WORD
.BYTE
.WORD
.BYTE

2
0,0
DH104
2,0

DF2':

.WORD
.BYTE
.WORD
.BYTE

2
0,0
DH6051
3,0

0509?3

96 g
96
9636
9635
9636
9637
9638
9639
9640
9641
964§
9643
3222

5301
53014
053016
05
g
05
053024
0538 6
05
053032
053034
053036
053040
053042

9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658
9659
9660
9661
966§
322‘

053044
053046
053050
053052
053054
053056
053060
053062
053064
053066
053070
85;872
053074
053076
053100
053102
053106
053106

000011
000
050704
007
050773
002
050545
000
051076
007
051165
Ogg
0521
000
050625
000
051202
010

9665
9666
9667
9668
9669
9670
9671
9672
9673
gg;g

053110
053112
053114
053116
053120
053122
0531264
053126
053130
053132

000005
000
050704
007
050773
002
052051
000
051674
002

9676
9677
9678
9679

053134
053136
053140
053142

000002
000
051034
002

9681
968§
9683
gggg

053144
053146
053150
053152

000002
000
051502
003

.WORD gH102

000

000
000
000
000
000

000
000

000
000
000

000
000
000
000
000

000

000
000
000
000
000
000

000

2,0
DH7N
0,0
DH702
2,0

SEQ 0185

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02°JUL-30 09:52 PAGE 185

CZR6QC.P11

02-JuL-80 09:50

9687
9688
9689
9690
9691
9692
9693
9694
9695
9696
gggz

[
23]
0531
0531
05316
053164
05 1?6
053170
053172
053174
053176
053200
053202

200
050500
000
050704
007
050773
002
051054
000
051034
002

9699
9700

053204
053206

000002
000

000

001

000

9701

000
000
000
000

053210
053212

9704
3;82

053214
053216

000001
002

000

9707
3;83

053220
053222

000000
007

000

9710
9711
9712

053224
053226
053230

000002
002
051202

9715
9716
9717
9718

053234
053236
053240
053242

000005
000
050704
007

9719
9720
9721
9722
9723
g;gg

053232

053244
053246
053250
053252
053254
053256

010

050773
002
051710
000
051674
002

9726
9727
9728
9729
9730
9731
973
973
9734
3;35

053260
053262
053264
053266
053270
053272
85327‘
53276
053
053302

000005
000
050704
007
050773
002
051754
000
051734
004

9737

053304

000005

9738
9739
9740
9741

053
053310
053312
053314

000
050704
007
050773

DF22:

000

g;g%

g;}i

052241

000

TABLE

000

DF23:

DF24:

.WORD
.BYTE

1
2,0

DF25:

.WORD
.BYTE

0
7,0

DF26:

.WORD
.BYTE
.WORD

2
2,0
DH203

.WORD
.BYTE
.WORD
.BYTE

5
0,0
DH101
7,0

DF30:

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

5
0,0
DH101
7,0
DH102
2,0
DHW705
0,0
DH704
4,0

DF3':

.WORD

.BYTE
VF27:

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

000

000
000

000
000
000

0,0
DH800
1,0

000

.WORD

6
0,0
DH100
0,0
DH101
7,0
DH102
2,0
DH106
0,0
DH104
2,0

.BYTE
.WORD
.BYTE

000
000

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

.BYTE
.WORD
.BYTE
.WORD

10,0

DH102
2,0
DH703
0,0
DH702
2,0

0,0
DH101
7,0
DH102

SEQ 0186

—

E%zeocopnxs DR CPT PROG MACYI 30A(1052)t 02-JUL-€0
6QC.P11
02-JuL-80 09:50
RAP TABL

974 052220 051990

g;:

09:52

F 15
PAGE 189

9742

053316

000

9744
9745

053322
053324

000
052033

000

.WORD DH706
.BYTE
0,0

000

.BYTE

g;:g

053330

000400

9750
9751
9752

054330
054336
054344

005015
020040
025052

9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767
9768
9769
9770
9771
9772
9773
9774
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
97
9787
9788
9789
790
9791
9792
9793
9794
9795
97
9797

054360
054363
054370
054376
054404
0564412
054420
054426
054434
054442
054444
054452
054460
054466
054474
856508
054510
054512
054520
054526
054534
054542
054544
054552
054560
054566
054574
054602
054610
054616
054624
054632
054640
054644
054652
854
054
054670
054676
054704
054712
054720
0547
0547

9753

053326

054352

003

042524

005015
117
046101
033060
046101
033460
051525
052440
052040
005012
046101
053111
020117
051505
052515
053101
005012
027061
051111
051117
042514
005015
027062
042524
020113
046102
051104
047040
020117
051505
052515
053101
044124
047520
042504
831505
5015
044126
05212;
020105
041040
046522
020104
045440

2,0

.WORD

DH710

RWBUF:

.BLKW

256.

NOTMSG:

.ASCII

<15><12>/

020131
045522
020122
045522
046440
042502
051105
006524

LASCI]

/ONLY ALL Rk06 OR ALL RKO7'S MUST BE UNDER TEST/<15><12><12>

LASCII

/ALL DRIVES TO BE TESTED MUST HAVE

042502
042524
052123
020105

051104
052040

052040
020104
044040
006472

042040
042105
020124
052103

051505
050040
042523
042105

LASCII

/1. DESIRED PORT SELECTED/<15><12>

053440
046040
044504
042105
053111
052117
042502

044522
041517
040523
005015
051505
052040
052040

LASCII

/2. WRITE LOCK DISABLED/<15><12>

LASCII

/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12>

020123
046105
027104

LASCII

/PORTS DE-SELECTED./<15><12>

040503
043504
052123
047506
062524
040440
047127

LASCII

/THE CARTRIDGE MUST BE FORMATTED ON A KNOWN GOOD/<15><12>

025040

012
046116
020114
047440
020114
051447
020124
042116
051505
020114
051505

042524
052123
020105
005015
052122
051455
042524

020105
064522
052515
020105
05;101
047117
047516

020040
020040
047516

SEQ 0187

.BYTE

020040
020040
020052

3,0

JREAD/WRITE DATA BUFFER
eve NOTE *ee/<15><12><12>

025052

:/<15><12><12>

020104
044040
047502

————

CZR6QCO RK6 DR SPT PROG

CZR6QC.P1

9798

9799
9800
9801
9802
9803
9804
9805

9807
9808
9809
9810
9811
9812
9813
9814
9815
9816
9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828

ree

e ———

9829

054742

05475
054751
054756
0547
054772
255000
055

055014
055020
055052
0550
055042
055050
055056
055064
055072
055077
055104
055112
055120
055126
055134
055142
055150

02-JuL-80

043440
01;
18
046101
020104
0;6105
051117
06%526
027107
044124
050115
051040
046511
034040
044515
051105
042526
126
051117
052123
052040
047503
026514
024503
000

000001

MACY11 30A(1052) 02-JuL-B0 09:52 PAGE 198
09:50

————

TRAP TABLE

047517

006504

06?105
043511
051104
050040
052040
052123
005015
020105
042514
047125
020105
030455
027116
042040
006456
020117
020124
047111
050131
052116
020103
006456

26514
042516
053111
06652;
02011
047111

LASCII

/WELL-ALIGNED DRIVE, PRIOR TO TESTING./<15><12>

047503
042524
052040
051511
020060
050040
044522
012
041101
042524
026107
020105
047522
057050
005012

LASCII

/THE COMPLETE RUN TIME IS 8-10 MIN. PER DRIVE./<15><12>

LASCIZ

/7O ABORT TESTING, TYPE CONTROL=C (*(C)./<15><12><12>

.END

SEQ 0188

Ce—

W15
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL=-80 09:52 PAGE 192
CZR6QC.P1N
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS
ABASE = 177440
ABORT = 000200

ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000

m e

SEQ 0189

6640

6723

6748

6865

2626

3669

3699

3700

5793

6868

68754

6870

6881

45304

APTCSU= 000040

APTENV= 000001

COOD =0 b LN =D = b ed e e d d od
e
NNV
T
AW WAL
WO
OO &~ VO OVOOOOOOOOO
[+ IV [ ¥
OWQSN LN N N N NN NN
¢ I

ADEVM = 000377

OOVOO-OVOOOOVOVOOOVOOOOOCOOOOOTO O
O NININ =2 NN NN NN NN NN NN N PRI NI PO — N ~N
k1

000000
000000
000010
000000

A
e e S e o e e
e e e i D D e i e i i i i b N)
R Al Al AV Al R
AV AV LV LV LV IV LV IV AV IV AV LV IV IV IV LV LV IV IV IV ]W

ACOW1 =
ACDW2 =
ACLO =
ACPUOP=

3595
6635

6925

89084

————]

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE |9§

CZR6QC.P1Y

02-JuL-80 09:50

APTS1Z= 000200
APTSPO=
100
ASKSYS 01
12

CROSS REFERENCE TABLE == USER SYMBOLS

3554
260
692

8907#
86
70

1592

1596

16954

1592

ASkREG- 000000
AS2SP2 045400

1808 1605
639§ 9001#

AUNIT = 000000
AUSWR = 000000

159%
159

ATESTN= 000000
AVECT1= 120210

1599
1606

AVECT2= 000000
AVSCOR 017774
A.ABNL 003056

1592
6119
2B42#

1632
4188
3837+«

A.CONT
A.NORM
BADDRV

28434
2B4L1N
34040
N
32450

7836
4BES+
4376
6992+
5722

003060
003054
011253

6876+

BADSEC= 001000
BAD632 012006
BAl
= 000020
BA16 = 000400
BA17 = 001000
BDSCHD 026762
BDSECT 011757
BOSRCK 030020
BGNRTY 033546
8IT0 = 000001

347640
25204
24964
24970
5980
34687
5720
6535
lzszl

81700 = 000001
BIT01 = 000002
81702 = 000004
81703 = 000010
81704 = 000020
BIT05 = 000040
BIT06 = 000100
BIT07 = 000200
B8I1T08 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000

16170
14168
146150
141460
164134
1461208
146118
164104
14094
14084
14260
gzgSl

BIT11 = 004000
BIT12 = 010000

6879+

4989
7995
5997
6029
5905
6890
??a

59090
708

371

163

3594

4252
3840+
6612+

6893+

4377+«
4993+
5907

SEQ 0190

378

3719

3726

3737

5058

5130

5807

L5720
4BO4r

4939+

4944+

5798+

5980+

5997+«

6006+

6190«

6205+«

6611

6880+

7830

4942+

4947+

494Br

4949

4961+

4962«

4963

4969+

4970+

6278

6818

6930

6896+
4381
4994
6270

6899+

7826

60114
62604
6901
2510

6817
69234
2536

2558

2706

2850

2943

3789

5642

5691

5731

5918

1427
1426
1425
1424
1423
1422
1621
1420
1419
1418
2511
2498

5533
8714
2538
2527

8840
2707
2549

2851
2584

2944
2598

3237
2611

6494
2626

2640

2719

2860

3246

6525

14068
l:ggl

2499
2501

2528
2529

2550
2551

2569
2586

2585
2600

2599
2613

2612
2614

2627
2628

2641
2642

2720
272

3247
3248

6405

BIT13 = 020000

14040

2502

2530

2552

2570

2587

2601

2615

2629

2643

2722

8699

8824

BIT2
8173
BIT4

= 000004
= 000010
= 000020

14250
14240
lg%gl

2512
2518
2513

2539
2519
2520

2540
2541
2542

2560
2561
2562

2708
2709
2563

2852
2853
2578

2945
2946
2620

3238
3239
2634

6498
6505
2710

2861
6529

2854

2947

3240

BITS

= 000040

lgggl

%gg;

;35;

2543

2564

2579

2593

2606

2621

2635

2855

3241

BIT6

= 000100

14218

2494

5523

2544

2565

2580

2594

2607

2622

2636

2857

3242

BiT14 = 040000
BIT15 = 100000

14034
1402¢

4741

2503
2504

4774

2531
2505

758

2553
2532

5945

r+14!
2554

2588
2572

2602
2589

2616
2649

2630
2724

2644
2862

2723
3249

J 15
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 194
CZR6QC.PIN
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBCLS

8177

= 000200

BI1T8
BIT9

SEQ 019

495
786
Zg?

524
799
2525

2545
4951
2546

ngb
091
2547

2567

2581

2595

2608

2623

2637

2714

3243

= 000400

16200
3592
}glzl

2568

2582

2596

2609

2624

2638

2715

2858

= 001000

lg%gl

8382

2526

2548

2583

2597

2610

2625

2639

2716

2859

3245

5080

BKSLSH 012107
BLDEXH 034432
BPTVEC= 000014
BSE
= 000200
BSERR = 000002
BSFACT 004162
BSSOFT 003162

34860
6764
14340
25454
32374
29534
29528
29584
3727
22;;

5380
6794

5388
7077#

6011
6193
5979
5991
3632
3729
4821

6809
6811
6027
6060
3636
3770
5047

7260
6825
6261
6266
3638
L364r
5059

7426
6923

7662

3707
4362+
5403

3709
4379+
5407+

3722
4384
5485

3724
4388+
5489

BUFPRT 005422
8.BA16= 000001
8.BA17= 000002
8.COT = 000004
B8.CFMT= 000020
CART
011710
CCLR = 100000
coT
= 002000
CERR = 100000
CFMT = 010000
CKMEM1 8%6070
CKMEM2
6102
CKMO
026110
CKSCOR 023176
CLEAR = 000105
CLR
= 000040
CLRPRM 021246
CMDTO = 000100
CMPBUF 025022
CMSTRT 012206
CNTRDY 011507
CNTRLC 012052
CNTRLG 012076
CNTRLR 012064
CNTRLU 012071
CNTRLZ 012057
COE
= 001000
COMAVG 007430
COMMA
012111
COMSTR 005176
CONCLR= 000176
CONERR 030756
CR
= 000015
CRLF = 000200
CRTSER 024034

29614
25104
25114
2512¢
25134
34608
25054
2498%
2504
25014
58824
5886#
5885
52688
2464H
25214
4869
27128
56784
3510
34354
34804
3484N
34828
34834
34814
25484
32104
34874
29564
268;0
284
13420
134
5090

7643
5082

8020

8108

BUFFO

005212

CR2LF
01;103
CTLOUT 025542
CT0
= 004000
CYLNDR 005434

3485#
4333
26994
29664

7989
7989
5501
4984
5466
7596
3822
6773
7056

6268

3643
4345+«
5119

3654
4347+
5131

3656
4349
5383

3658
4352
5397«

3704
4357
5402+

7989
5456

5969

7033

7643

7989

8073

4924
6803
7089

7402
7298
7402

7952
7357
7952

8009
7416
8009

8060
7598
8060

8083
7649
8083

7964

6988

7159

7662
4643+

4670

58884
6196
48884
6658
35154
5812
4740
4754
4750
5363
4746
6730
4388
3682
6325
8091
64864
304
275
4554

639;
57854
6693

6914

5351
5369
5357
7260
46300

7426
4642+

6334

6942

8314
8314

6404
6306
7658

6428

K 15
CIR 6QC0 RK6 DR _CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 195
CZR6QC.P1N
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS
040210
042062

3N
8?;3

C.SPEC 041102
DCEFLG 003144
0Ck
= 100000
DCKERR= 000020
DCKHDL 020526
DCLO = 000020
DDISP = 177570
DDT
= 000400
DERCNT 003130
DESL = 000010
DFLTDR 013744
DFSTRT 012146
DFO1
052374
DFO2
052424

7909
9304
5544
2404
L7110
25634

050773

DH103
DH104
DH105
DH106
DH200

051011
051034
050522
051054
050545

8089

1901
1997
2141
6409
9648
642y
9650

2117
93440
6407
93474
93094

1897

1903

9588#

1691

1697
1775
1865
1961

17C3
178)
1871
1967

8094

8104

8113

8126

1747
1975

1753
1981

1759
1587

1765
1993

177
1999

1709
1787
1877
1973

1715
1793
1883
1979

1721
1799
1889
1985

1727
1805
1895
1991

[

P pe—y

- 00 ~ 00
oWV
- N O W

— N
O N -

1733

1879

1885

1891

5892+

5910+

9707#

~NWVN~NO

2005
1687
1819
1795
1807
1813
2113
1861
1909
1915
1927
1933
1951
2119
2029
2125
2035
2053
1957
2107
2083
2137
2143
1655

94854

96994

b
OV~
OO
00
W=
NN

DH102

6588

VOO0
NN
S NN
SN0

050704

7426

8067

13494

25684
29184
%518‘
602
1453
1657
1681
1777

1811

DH101

8050

6829

9540

9520

9594

9633

9652

[« -To - To 3

053224
053234
053260
3304
050500

8046

= s
OO0V ~NO
NSV~

053110

053134
053144
053154
053204
053214
053220

8039

VOO0
NIV
W=aN)
=

DF17
DF20
DF21
DF 22
DF23
DF 24
DF25
DF26
DF27
DF30
DF 31
DH100

052460
052520
52534
052570
052624
052650
052670
052720
052750
05
053044

8036

Nt bas
OV~
DN
N0
— -2

DFO3
DF 04
DFO5
DFO?
DF10
DF11
DF12
DF13
DF 14
DF15
DF16

8029

VOO0
NNV
—_O—-O
OWN=

C.INIT
C.RTRN

SEQ 0192

1769
1859
1949

2069

2075

2081

2093

2099

2129

2135

9555

9570

9590

9603

9616

9629

9542

9557

9572

9592

9605

9618

9631

CIR6QCO RK6 DR CPT PR08 MACY11 30A(1052) 02-JuL=-80 0¥:52 PAGE 19%

CZrR6QC.PN

0c=JuL-80

09:50

DH201
051072
DH 0;
05116
DH20
05120;
DH204
05206
DH500
050567
DH501
050625
DH50
05%1 3
DH503
05 194
DH601
051§ 6
DH602
051320
DH604
051365
DH6041
051420
DHO042 051447
DHEO5
051465
DH6051 051502
DH606
051537
DHEO7
051565
DH701
051605
DH702
051674
DH703
051710
DH704
051734
DH705
051754
DH706
051770
DH707
052003
DH710
052033
DH711
052051
DHBOO
052241
1
= 83
DIF100
314
DISPAK 010354
DISPLA 001142
DISPRE 000174
OLT
= 100000
DLTFLG 003146
DMCART 022450
OMD
= 000040
DONE
003132
DRA
= 000001
DRDY = 000200
DRIDON 010612
DRIRDY 010573
DRIV_
011701
DRIVE
005430

93504
93604
93634
944in
93134
93194
94504
94564
93734
93764
93834
6030
2051
2027
93984
94034
94074
5679«
2105
94220
94264
94294
94314
94334
94388
96418
94640
ssggl
9334
33194
15264
14504
25324
29324
2998
25794
29204
25584
25674
33474
33444
364588
%2230

DRNAFG 003141
DRNAVL= 010000
DROPDR 011611
ROT = 000040
DROVFL 010215
DRPAR = 000010

9274
2484
34484
648
3024
414

CROSS REFERENCE TABLE == USER SYMBOLS

9496
9509
9511
9598
9496
95264
9611
9639
9544
9548
9559
93884
93924
93954
9565
9546

9507
95%6
9528

95%;
96
9643

9641
9624

9660
9658

9607

9620

9574
9561

9581
9576

9583

9563
9683
9550

9609

9622

5709+
94204

5891+
9673

5909«
9723

9410#

9585

8118
L113+
5107+
3550+

4L154%
5110
8691+

4226

L249+

7254

7384

7420

7660

9721
9734
9732
9743

9745
9671
9701
744
4077«
5106+
3542+«
3550
6750

9596
965
966

9635

SEQ 0193

9654

9712

4467

4472+

8851+

4395

51044

6307+
7249

6314
8032

6353+

6487+

6605+

6957+

6960+

5112
5040
5424
3814+

3817

4691

4872

4873

4918

4947

4961

4969

4992

5063+

5064+

6308+

6500

6175

4470

4473

4503

4509
5982

4512
5999

4871
6192

4941
63044

6740
3668
6680
*

DRVCAL

030124

3839

3916

DRVDSC= 000040

27\

6857

3919

;352

5465

5801

5842

M5
CZR6QCO RK6 DR CPT Pkgg 83(;31 30A(1052) 02-JuL-80 09:52 PAGE 197
CZR6QC.PN
02-JuLCROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0194

DRVERS 003137
DRVHRD= 000020
DRVLST 005512

9254
710#
ggkl

3562+
?85
?;

377
341
3620

7536
3666

7627
3730

3734

3801

40N

4257

4277

4330

4409

4627

DRVNO
011675
DRVPDT= 000004
DRVPOS= 000002
DRVPTR 005554

L5TH
7084
7078
ggggl

746%
744
gzag'

7510
7469
3804

7931
3999+«

4000

4011

4324

4336

4375

4396+

4397

4409+

5030

DRVSEQ 011235
DRVSER 023714
DRVSZD= 010000
DRVTST 013704
DRVUSE= 000001
DRY
= 000200
DR.CLR= 000005
DR.SEL= 000001
DROXDP 011560
DSC
= 040000
DSWR = 177570
DTBAII= 100000
DTE
= 010000
DTYE = 000040
DT100
052264

34014
5089
7218
695
27064
25664
LB
24B8BN
34430
25714
13484
27244
2551y
25434
1656
1734
1812
190%
199
2136
96720
94734
2106
96774
2028
1956
32514
32614
25874
25448
47884
14378

54204
6671
3769
7894

7272
3774H

8034

7322
7392

7485
76N

7527
7786

7551
7793

7665
7800

7807

8011

1525
4090
60N
6708

3541
4235
6745
7662

6136
7662

7894

7993

1668
1746
1824
1914
2010
94694

1674
1752
1842
1920
2016

1680
1758
1848
1926
2058

1686
1764
1854
1932
2064

1692
1770
1860
1950
2070

1698
1776
1866
1962
2076

1704
1782
1872
1968
2082

1710
1788
1878
1974
2094

1716
1794
1884
1980
2100

1722
1800
1890
1986
2124

1728
1806
1896
1992
2130

2034
94814
3566
6832

2040

2046

2052

2112

94804

6830

7260

7426

7662

3526+
9002#

3527+

DRVMSK= 000007

052302
DT102
DT201
052306
D1202
0523264
052330
DT203
DT601
052350
D1602
052356
DZR6Q
007572
ECCNC = 000040
ECCV = 020000
ECH
= 000100
ECOBAD 020764
EMTVEC= 000030

045405

EMI06
EM105
EllO’
EmMo
Em
EM10
Em1
Em12

050132
50154
50207
5 6;

EM10
EMI00
EMI01
EM102
EM103

045620
047731
047754
050032
0501?6

50307
5034
5036

51;0 ;263

16564

1696
2044
2050
05

“

170
09
098
104

1662
1740
1818
1908
2004
2142

7284

7435

7880

96764

90294
92364
92404
9 6!0
9 z ’

92594
9 6;’
92674
92724
90314
92794
92844
92874

N 15
CZR6QCO RK6 DR S PT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 198
CZR6QC.PN
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

EMI13

EMI16
EMI15
EM12
EM13
EM14
EM15
EM16
Em17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26

EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37

050416

050444
050461
06566%
04566
045705
045733
045754
04577
045431
046012
046027
046047
046071
046122
046142
046165

0466177
045455
046222
046247
046270
046311
046333
046353
046407
046442

EM4
EM4O
EM41
EM42
EMLS
EMS
EM52
EMS3
EM56
EM6
EM6D
EM61
€
EM6
EM64
EM6S
EM66
EMG7
EN7
EM70

0455
04650
046551
046607
046637
045521
0466674
046722
046747
045540
046766
047022
047070
047114
047161
047224
047252
047305
045564
047344

EN7
EM74
EN75
EM7
EM7
ENDTST
EQUALS

047522
047556
047576
047626
047710
011140
012134

(1,14
EN7.

047413
047453

128
134
140
1708
1714
1720
1726
1732
1738
1660
1744
1750
1756
1762
1768
1774
1780
1786
1666
1792
1798
1804
1810
1816
1822
1828
1834
1678
184
1846
1852
1858
1678
1900
1906
1924
1684
1936
1942
1948
1864
1870
1876
1882
1888
1690
1894

1996
2002

2008
2014
020
0
0
3878
34964

SEQ 0195

92924

92964
92994
- 903
90364
90404
90444
90474
90504
90064
9053#
90564
90594
90634
90684
90714
90754

90774
2146
1912
1918
90884
90914
2116
90984
91034
91084
90144
91144
91214
91274
91324
90174
91374
91414
1930
90204
91484
91534
91604
1960
1966
1972
1978
1984
9024#
1990

91994
92054

92124
92174
92204
92244
2038
4408

90104
90814
90854

90954

91454

91644
91714
9774
91814
91864

91924

92334
i

CIR6QCO RK6 DR CPT

flA(Vll 30A(1052) 02-JuL-80 09:52 PAGE 19'

ERRCNT

003135

§§:

ERRCOM
ERRFRE

CZR6QC.PN

02-JuL-80

09:5

CROSS REFERENCE TABLE == USER SYMBOLS

6361

6363«

6488+

6606

6777«

6822«

6912+

4718

4864

4944

5798

6006

6013

6205

66048

6879

6899

6783

6808

6904

76491

7532

7556

9‘90
327«
8048+
740
733
8102
722
745
8123
7459
7264
7345
6028
5715
5615«
2182
603«
5613«

6494
7337«
8102+

98
408+

6505
7430
8123¢

6509
7453«

6513
7459«

6517
7491+

6521
7532+

525
556

6529
7601+

6534
7653«

7226+
7675+

6099

7034

3840

36 0

ERRVEC=

E.CCLR=
E.CERR= 001000
E.CLAT= 000020
E.CATO= 04
E.CONT 003062

8504
8594
8544
861#
B44n
264

ERZ2ENT

S;g

601
7675
7327

E.DLT = 000400
€.DPAR= 002000
E.ILLD= 000100
E.MDS = 100000
E.NOAT= 000002
E.SCLR= 000040
E.UATT= 000004
E.UDAT= 000010
E.UNLD= 020000
FACTBS 011732
FINADR 024520
FINCYL 005470
F INMEN
n
FINSEC
54
F INTRK 005672

7814+
%OSO‘
8604
28574
8624
8514
855#
285%:
285
§ZZ20
648
55854
29764
207 ’
97
2977H

FORMAT
34
GETPRM 020776
GETTYP 024154
GNS
= teeeee |
= 000001
GTPKAD 034276
GTPRAS 027516
GTSWRG 021106
GT0
027530
HCRC = 000400
HDR.AD 003100
HOR.CT 003102
HIGOCT 005420
POVL 803152
HLTPRG
033530
HLTRGD 011537
HOLD1
(024364
HOLD
024366
HOLD
024370
HOL D4
0%6372

29228
3743
3587
1449
54930
274
61654
3584
6164
25464
2884
28854
29604
293748
5813
364400
507
507
4097
4233

4092
3748
54778
8987
3820
6838
6202
48394
6168#
7378

HT
HVR(

134
55470

8273
4712

FATE

HOLDS5

4374

1
00

nvucea- 000004
H.HEAD 003105

25420

4469

23 8s

28884

6712

7386+
3565+

5811
5493«
5494+
on
5496

467

6191«

6344

9469
6880

SEQ@ 0196

6358

“

zg;g:

6356+

656

E::t%

63534

4686

3540 3551« 3559«

8110+

3560 8829

8830« 8832+« 8835+

7814
7653

8048

7430
7465

7540

7550

5900
5717

5735

5741

5902

5922

5928

5739
5737

5743
5742

5904
5903

5926
5924

5930
5929

4237
3757
5480
8988
3822
6849

4874
48034
5481
8989
21
70444

5078+
4843
5482
8990
4924

5082+«

5457

5595

5974

5994

8991

8994

8995

8996

8997

5370

5818

7382«
B075+

8072+

69104

6938

5503«
5504+
4185
5506+

55114
55124
4248
55144

7027
7030
5495+

5505+«

55134

5507+«

55154

6784
6193

7260
6786

7426
6923

7662
7049

5719
5718
7662

5497«

8314
6011

52N

5487

8078+

¥4 R6QCO RK6 DI PT PR
-JmCZR6QAC.P

IDAE
IE

=
=

000
100

HACY11 30A(1052)

5494

02-JuL-80 09:52 PAGE 2
CROSS REFERENCE TABLE == USER SYMBOLS
4917

4955

5037

z
Og

3940
5083
51464
4788
73N

5109

6769

SEQ 0197

6799

7606

4074

414

7670

7958

8065

4320

4916

7662

027244
021140
022620
005442
00311

000300
10TVEC= 000020
IR
= 000100
03657%
0361
03N

13
869
5061
4109
4756
7325

;

7366

5621

5791

7530

545

5796+

5809

7825+

7541

7833

3525+«
7501
76140
75964

7510#

7668

8028

8093

7312
7883

7364

77478

8017

7311»

7444

7233«
747
727
7276
7406
7543
77844

7236«
7486

7607+
7528

8131«
7787

7794

7801

7808

7304
7410
7546
8038

7316
7432
7553

7330
7461

7339
7473

7348
7487

7351
7494

7366
7506

7368
7526

5714«

5899+

6663
8314

6760

6766

6790

6796

6900

6958

4084

4107

4156

5035+

5230

5236

5492+«
5462

5502«

5510#

5971

3508+«

3512«

3588

3693

4012

4410

5055

5085

5123

5127

M0S
= 001000
MEMABT 003151
114
MEMVEC=
MERD =
001000

4928

7224

7651

8026

037140
1.STAT
1.STOR
1.UNLD
KBDHDL
LASTWC
LDMEM1

037714
037462
037040
020604

LDMEM2
LDMO
0
0
LEV2ER= 000400
LF
= 000012
LODBUF 024676
LODSEC 024460
LOGDRV 003154
LOWOCT 005416
LSTCYL 024362
LST!RK- 000002
0055
NCLK

HDFLAG

55574

5051

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 202 .

CZR6QC.P11

ME SMSK=

MEWD

MIDXFR

MIND =
MNTPAK

MSP
=
MTCARY

02=JuL-80 09:50

;

S764

1‘2'

00
10310

100
2;028

M.CADD= 0177
M.CDIF= 017760
M.DPID 042664
M.DPIM 04 6;2
M.DPO1 0426
M.DP02 042654
M.DPLOD 042722
M.DP41
042756
M.DP42 042766
M.DP44L 043020
M.DPSO 043032
M.DRV = 000007
M.HEAD= 007000
M.10 = 000003
M.PAR = 100000
M.SECT= 000760
M.SER = Q77770
NCSCRO 007112
NCSCRY1 007152
NC%CRZ 0?7212

NEDMDL 820420
=

M
= 004000
NEWMSG 011224
NEWON
005476
NGOFST 005452
NOCHK = 000400
NODRLS 010622
NODRTS 011456
NODSC = 004000
NOFALS 011777
NORTRY 003150
NOSCRO 006612
NOSCR1 006652
NOSCR2 006712
NOTMSG 054330

NOTYPE 003153
NSCORO 007432
NSCORY1 007452
NSCOR2 007472
NSSCRO 007412
NSSCR1 007414
NSSCR2 007613
NTREDY 01130
NXDRIV 011264
NXF
= 000004
OAVERG 011102
OCTBIN 042104
OFFSET= 000115

S84L#
g 1»
134

S80#
87

6524
6514
4598
83%00
8331
8335
83684
8373
8379
8391
8366
26480
26554
26504
26494
26540
265
31624
3165#
3;68‘

il 7

CROSS REFERENCE TABLE == USER SYMBOLS

6197
5031«

5032+

4043

50294

5038

8357#

4227

4255

4272

4550

4585

4632

4684

6652

7239

7317

7660

8030

74620

7660

4696+

4940+

4945

7997

8024

8042

8063

8086

4328

4546

4580

4631

4648

4463

4485

4533

4553

4534

4575

5284
3994
29804
29734
2715#
33494
3
27204
36714
29344
31404
31434
31464
3569

2938#
32154
32184
32214
31854
3188#4
3191#
34094
34064
5408
3814
4822
246

SEQ 0198

7939

8095

5298

8129

S 1
60C0_RK6 DR PT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 20
c.P1
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

9674

LeT77
4474

4496
4486

6504
4493

5309

SEQ 0199

4595

4604+

5299

7360

7373«

7388+

7932+

7992+

8054+

6167
6895

6891
7019
5814+

6895+

6949

7001

7035

4042+

6875
6985
5087

7463

7881+«

6143+

4518+

4589«

6754
6923

7426

7662

4629+
7164+

4641

4657
7294+

4867
4876

6158
6891+
3776
5701
7438

3689

OR
=
00
OREQSW= 000020

0.WAIT

003064

PACK

= 000103

000

POSCRO
POSCR1
POSCR2
PREPKB
PRMBUF

006752
007012
007052
020744
01212

5752

5754

5861

5889

5939

5941

6141

6142+

3941

3996

4041

4075

6147

4224

4321

L7720

5819

6577
6950

7023

7152+«

7166+

7875

7876+

8135+

4581

:
00
00
00
00
00

LR 2R 2R

PSCOR2
PSSCRO
PSSCR1

5703
6163+

177772
000240
005450
005504

PIRQ =
PIRQVE=
PLOFST
PMA

8071«

4586

PGE

PIP

004000
010000
007252
007312
007352

PCA
=
PCD
=
PCSCRO
PCSCR1
PCSCR2

» [+~]
~N

PBLKT
003122
PBSVAL= 001000

3513«

NN
O NN =2 =2 POND N NN N N PO N
- OO

PARMO
00264
PARM1
002724
PASSNO 003155
PAT
= 000020
PATRN
005446
PATOO
005566

7278

8784
3515+

4495
4541
4543
4276
4542+

6144

CIR6QCO Rx6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 203 -

CZR6QC.PN

PSSCR2

02-JuL-80 09:50

76;6

PSW
= 177776
PURMSG 044526
PURVEC= 8888 4
P.ASOF =
2
P.AOO = 000040
P.AO1 = 000044
P.A10 = 000050
P.A11
= 000054
P.BAHI= 000007
P.BALO= 000010
P.BAR =
P.B00 =
P.BO1 =
P.B10 =
P.B11 =
P.CMND=

000024
000042
000046
000052
000056
000001

CROSS REFERENCE TABLE == USER SYMBOLS

3§2§l
1‘
?0
#
740‘
7420
7640
7464
6994
Sggl

531
488+
4967
7789+
7796+
657
655
4089+

775+
489
6567

7340
7618
27438
7450
7674
26934
511

6563
6568
6570
6572
574
828+«
4Lbr0+

7519«
7674
7790+
7013
7395«
3836
4930%

7945
27314
76404
7986

7948
3829+
7405
7988+«

7954
489
7514
7989+

P.CSTH= 000007

26988
7988
T3

4B74r
8008
68

4B75¢
8059
6338

4B76*
8073
6632

P.CS2 = 000020
P.CYLN= 000002

2694#
G112

3903+
41700

3908+
&173%

3946+
4241%

3949+
&bkt

P.DCYL=
P.DRVN=
P.DS =
P.DTS =

000030
000000
000036
000026

61264
7287
6685
6081

6559
7464
6689
6125

6812
7640
6740
6126

7977
7044
7879
7524v
6560

7899

6566

6658
7442+

8060+

S17%

6132+
27368
26928
27398
Q330

6544

B062+

7747+

6546
6077
4872+
6565
079

7023

€892+

BO65+

7905+

7021%

]

000062
000060
000034
000006

27490
27680
27380
26978

6840
6839
4712
4501+

7313+
7314+
4716
45100

P.SECT= 000004

7562«
8042
26958
6002«
20064

7667+
8063
3905«
003
3921e

7819+
8086
3910*
6075
3922

P.EPAT=
P.EPOS=
P.ER =
P.OFST=

P.PRST= 000014

P.TRCK= 000005

P.WC

= 000012

P.WCR =
PISET
PISTRT
P2STRT
QNEWSW=

000022
012162
012154
012172
000000

27020
7306

27018
6198
3%
506
1455
1457
2452

4090+
7334+

3913«
8551
gse1
35094
35084
35120

SEQ 0200

4544w

950+
7914
530e
6524
4959
6569
57
&2
147+
912«

5970«

P.CS1 = 000016

L153%

4235«
7341

4091¢
7976
7518

783
522¢
6991

784+
753«
7479«

7941«
7480

7942
76496+

7497

7810«

4158+

4234+

4982+«

5463+

5838+

5979+

5991«

7749+
7475

7811«

8019+

3915+
4938+

3918«
4975+

4079+
4977+«

4083+
4979+

4171
5012+«

4174+
5070«

7979
4931«
7516
7999+

7986
6557
7743«
8000

8005
6675
7746+
8008+

8052
6693
7897
8009+

8069
7056
7951«
8011+

8091
7089
7952+«
8012

49B4v
808
663

4985+

5456+

5969«

7803+

7797+
7804+

6940+

6986+

B066

-8082+

793

7399

6011
7941
6136

7345+
7894+
8095
4161+
6134+
416ae

4094+
774e

7935

7931+
8129
4182+«
6340
4178+
4160%

7022+

8083+«

642
7996
3952«
4hbOv

7025+

8085+

8088

7907

8107«

7033«

6650
8026
3965+
4980%

6652
8030
3968+
5247+

7521s

7755e

7751«
6813

8032
6815

6631

7523+

7752e

6671
7465

6852
7469«

4183
7020«
ATT9

4236+

7955+

664h
8007
3955+
4471v

7290

8018+

6144

6556

7975

4466+
5422+

4502+
5460¢

4505
5800¢

4508+
5841+

8100
7311«
7954+
8014+

7363«
7958+«
8015

7401«
7959
8020

7402+
7983+
8059+

7034

7401

7642

7951

7317

(430

8108

7923

8117«

7933

8118

7939

6700
8056+
4080*
S461*

6750
8057
4085«
5614

6843
8081
4097+
5971+

4108¢
6073

7012

7047

7048

7079

7085

6857
7482+

6862
7500

6867
7510+

6988
7536

7997

7159«
7540+

8024

7272+
7550+

8034+

5240
7400
4480

5459+
7936
49B1e

5591
7378
S21e

5976+
8080
§52.3v

5985+

5986

5992+

5244

5462+

5605

4239«

4983«

S464e

5839+

5978«

6135«

6160

8079
7078

7956

7981

7987«

7993

CZR6QCO RK6 Dl PT PR

CZrRéQC.PN

02-JuL~

HACY11 30A(1052) 02-JuL-80 09:52 PAGE 202 "
1

CROSS REFERENCE TABLE == USER SYMBOLS

Q.INIT=
040000
RAVERG
011121
RCDASW= 000010
RCLREQ= 004000
RDALHD= 000164

i
3840
9690
247H
(810

RDCHRS 02340
RODATA= 000121

RODCHR = 1044

RDGATE= 100000

RDHDO
RDHEAD=
RDSTAT=
ROY
=
RECAL =
RECODE

034122
000125
000141
000200
000113
005424

4389
78
90

683

6728

6733

6738

6743

6780

624
4708

98
4505

3716
4979

4808
5460

5041
5970

5113

53408

5479

6765
4720
4804
24954
2667
296%0
619

795
070
3836
5073
4977
3833«

7010#
7025
4938
5076
5800
4711«
6278+

7404
5422
6885
6892
4714+

8005
7031

7962

8015

4935+

4987

5009«
6635+
6760
6855+
6958«

5271
6640+
6766
6860+
6990+

5722
6661
6780«
6865+
7049

5907
6663
6786+
6870+

6128

6189+

6733+
6825+
6902+

6354
6738+
6829+
6923

8085
6986
7028
7948
4719+

4242

La574

5988

65414

6613

5189

5215

063
484

5250

6088
8996#

5312

6148

5445

6172

5567

5617

5664

5721

346

25894

994#

069

29284

4204
3831
33564
4520

577
695
14314
6611
4699
24488
Q443N
32564
;gggl

4933
4325+
4561

5683
4326+
4613

5893
4327
4673

590
709

5956
8432

6893
4721
6979
6978
3742
3591«

6957
6015
7300
7701

6612
7370
7749

69604
7450
7975+

7705

7753

7942«

7967

3595«

3741

3744

4LB66

6768

6798

RKCS1 = 000000

2441N
7027+«
7646

4955+
7028
7670

5037«
7030«
7698

5072+«
7031
7959+

5073
7245
7961

5075+
7297
8000«

5076
7355
8012+«

RKCS2 = 000010

24450
8007+«
2644l
24518
24494
24504
446N
45
4588
W78
24528
245
2454n
24574
24554

3B17«
8057+
6576
5079
975
399«
6885
7314
7313
6981
7391«
7708
7709

3826
8081+
76400+
5080

4918+
8106+
7702
6770

4928

6974

7750
67N

7706
6980
7710
mm
1257
7470+
8018
8019

7755
7248
7423
7707

REDBSF

REISSU

026516

017250
003142

RELEAS= 000140

REPLPK
REPSUP
RESLTS
RESREG=

011367
031212
010667
104410

RESVEC= 000010

RETANL 033724
RETNML 033742
RKASOF= 000016
RKBA = 000004
RKBADR 007630
RKBAS
003046

RKDA

= 000006
RKDB = 000024
RKDC = 000020
RKDCYL= 000020
RKDS = 000012
RKECPS= 000030
RKECPT= 000032
RKER =
RKMR1 = 0000 6
RKMR
RKMRS = 000036
RKPAT = 000032
RKPOS = 000030

6723«
6811+
6889
5084

4110

4794

6364+
6743+
6832+
6925+

6607+
6748+
6845+
6930

6608
6756+
6B46+
6937«

6889

6270+
6728+
6818
6900
59674
aGn7e
6502+

REDOFS

SEQ 0201

6678+
6790
6881

6683+
6796
6887+

8052

843
002

5869
7036

6271

6341

6473

6592

6884

6939

6971

7153

7222

5109«
7405+
8014

6769+
7414
8044+

6773
7596+
8066+

6799+
7597
8088+

6803
7606
8097«

6973
7645+
8107

7223

7383

7641+

7699

7747

7930+

7996+

7936+
6772

7978«
6800

8080+

6801

6802

7379

7380

7381

7935«
7703

7977+«
775

8079+

7704
7T784c

7752
7791«

7805+

7906+

7798+

CIR6QCO RK6 DR
CZRrR6QC.PN
RKPR]I
RKPRTY

CPTY

MACY11 30A(1052)

OS-Jutggg 09:50

02-JuL=-80 (9:52 PAGE 205
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0202

00305
00767

os
64

575
75

3600

3751

3767«

7152

RKVEC
3050
RKWC = 000002

9
Laon

57
sg7

594
700

597«
748

746
7976+

3749+

6247
4089
162

52004
4158
97484

4234

4982

4990

5463

5468

5558

5562

5639

50688

7367
7338
8049
78294

7545
7409
8103
7972

7565
7431
8112
8045

78254
7454
8125
8133

8035
7460

7493

7533

7557

7602

7654

4572
5854
6486

4625
5858
6542

5146
5882
6604

5200
5886
6970

5229
5901
7011

5268
6025
7077

5420
6072
8417

5557
6122
8458

5585
6157
89954

5633
6165

5678
6260

3678+
5724
3656+
5287
LN

3683
5730«
3662

3823+
5733
3678

3824+
5890+
3790«

4925+
5911
3793«

4926+
5917«
3794+

5381«
5920
3812

5383«

5384

5394«

5395+

44666

7923

7933

5467
3939

3994

4039

4073

4145

4222

4319

5007#

6048

6415

6419

6422

6425

6445

6450

3775

4014+

4015

5007+«

5008

5050

5057

5122

5129

5799

8786

4404
5012
3731

4405
6940
3802

7022
4003

8100
4400

3549+

3556+

4839

5091

5533

5731

5918

5945

RKVADR

76564

RLS
= 000010
ROTBLD 0%;000
053330
R.ABNL
R.CONT

040142
040166

R.NORM

040154
SAVPRS 005454
SAVREG= 104407

SAVWRD
SCLR =
SCNDRV
SCOPER=
SCOPE1

SCRACH

003160
000040
021274
104411
044550

005444

SCRLST 005556
SECLST 006572
SEEK = 000117
SELDRV= 800101
SELF
11205
SERNM
011717
SETTUP 022020
SkI_
= 000002
SOFTBS 011745
SPACE1 012120
SPACE2 012117
SPACES 012116
SPACE4 012115
SPACE6 012113
SPAR = 020000
SPOLSS= 000020
SRHTBS 027656
SRPASS 010257
SRTSPL= 000111
STACK = 001100
STALL
024376
STALLS 005432
STOLST 006552
STKLAT= 177774
STRCMD 030176
STR204 010‘;0
STR220 010475

SUBCLR= 000177
SuBsYS 005510

gsskns'
527656
SWR
001140

gOO

5194
960
91
583

716
1227
7677
7303

5
én
4088+
5838
7275
7265
7815
7396

29748
4457
5716
6323
29514
2522#
49164
89974

6159
4530
5830
6376

29704
5396
29894
31304
24694

3675+
5682+
3648
5240
4079

88024

350
7329
78334
7505
6166

8106
5065
8997

620
3944
36628
3868
25388
364664
34928

3g§a
4338
5425
3891
6725
6061
4351

4356

6042

34894
34884
25024
25628
62214
33084
24668

6675
6689
6262
3774+
7945

7658

34914
34904

1335#
55314

29654
31204
13464
6309
33250
3330

24834
29834

7876

3522
6305
3583+
5148
63234
4007+
4017+«

4508
3601+

fggg.
4506
1525#
3520

4930

8062

3847+

6465

5540

4008
4018
4870
3729«

61574
6203
3541«
3543

5758

—

.
116
CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 206
CZR6QC.PN
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

SWREG
00017
SWRMSG 01121
SW0
= 000001
Sw00 = 000001
sSWw01
= 000002
SUO§ = 000004
Sw03
= 000010
Swo4é = 000020
SWw05 = 000040
sw0é = 000100
SW0? = 000200
SWw08 = 000400
Sw09 = 001000
sWl
= 000002
SW10 = 002000
SW1l
= 004000
sWw12 = 010000
SW13 = 020000
SWwi4 = 040000
SW15 = 100000
sw2
= 000004
sSW3
= 000010
Swé
= 000020
SWS
= 000040

sSwé

= 000100
SW?
= 000200
SWwg
= 880‘00
Sw9
=
001000
SYSDRV 010053
S.ACLO= 000100
S.BRHM= 000100
S.BRKE= 040000
S.CART= 000400
$.0CLO= 010000
$.018 = 002000
$.DOOR= 000200
S.DRA = 000040
$.DROT= 020000
S.DRY = 000200
$.0SC = 040000
S.FLT = 000200
S.FORN= 001000
S.FWD = 002000
S.HDFL= 000200
S .HDHM= 000040
S.1CyL= 000040
S.ILF = 000400
S.LIMD= 020000
$.LOAD= 010000
S.MHD = 000400
S.Nmov= 010000
S.OFF = 002000
S.PAR = 001000
S.PIP = 020000
S.PLO = 004000

6378

14510
33974
1399#
13894
13884
13874
13864
13854
13844
13834
1382#¢
13814
13804
13984
13794
13784
13774
13764
13754
13740
13974
13964
13954
13944

549
4B42

6433

4839

8692

8699

4841

4844

7497

7560

1399
1398
1397
1396
1395
1394
1393
1392
139N
1390

6378

13934

13924
13914
13904
32844
26074
26224
2644N
26244
26140
26404
26234
25934
26154
25954
26024
26088
25974
26264
26374
26214
26064
26094
26434
26284
26384
26424
25984
26104
26014
264614

3622+

3623

4959
7332
7475

7480

7335
7343

7812
7538

LYAR

8714

SEQ 0203

8804

8824

8840

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 20‘

CIR6QC.PN

02-JuL-80 09:50

S.REV = 004000
S.RTZ = 020000
$.SECT= 000020
$.SKk1 = 002000
$.SPIN= 010000
$.SPLS= 010000
$.SPOK= 001000
S.TYPE= 000400
S.UNLD= 040000
S.UNS = 040000
S.vw = 000100
S.wCLK= 000040
S.WGAT= 000100
S.WLE = 004000
S.WRL = 004000
$.XDOK= 000020
S.XERR= 001000
TAB
011213
TABLEA 005566
TABLEB 005766
TABLEC 006026
TABLED 006112
TABLEG 006512
TABL7A 005666
TABL7C 006060
TBITVE= 000014
TKVEC = 000060
TOPROC
033752
TPVEC =
TRACK
005440
TRAPVE= 000034
TRKAVG 020232
TRKBUF
011174
TRNSFR 027546
TRTVEC= 000014
TSTORN 011654

TSTING
TSTHSG
TSTTYP

003127
045366
003143

SN
TST10
TST11
TST2
TST3
TST4

014316
015766
016404
014346
014540
014732

2627#
6294
6340
6114
6004
g6130
625#
g5960
6304
26164
25944
26354
6364
6124
25994
26204
26394
33964

29974
3037x
30584
30794
30994
30174
30684
14324
1439
6489
14404
29684
14384
4374
33924
4096
14334
34540

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0204

4967
4360
3903
5559
3946
5147
4087
3908
3952

3905

3949
5164
5232
3910
3955

3571«
6660

3572«
69694

3528+
L6254
4331«
4507

3529«

3576+
899w
3561*
4583
38664

TST5
015116
1516
015154
TST7
015460
TWOT0S= 002000

29174
6399
29294
4573
3778
42204
170
38894
39374
39924
3780
40714
L1430
32468

TYPE

= 104401

3965
5178

5181

5201

5213

5233

5285

3997+

4076+

4322+

4394+

5785

5797+

4120+
5275

4169+
5802«

4176+
6775

4189+
6820

4225+
6877

4253+
6897

4459

4478

4531

4548

3968

8785+

4334
61864

3894+

4101+
5269
4006

‘

4016

40374

4403

6661

6990

3566

3569

3612

3623

3632

3633

3668

3674

3682

3683

3689

3697

3709

4382

4387

4392

4405

4408

4740

4746

4750

4754

4756

4757

4788

4789

T.BA
T.CS1

003016
003010

1.Cs2

003012

T.DA
003020
003044
1.08
1.0C
003022
1.D$S
003030
T.ER
0030;8
T.MR1
0030
T.MR2
003034
T.MR3
003036
T.PAT
003042
T.POS
003040
T.WCR
003014
UEXATT= 000010
UFE
= 000400
UNLOAD= 000107
UNS
= 040000
UPE
= 020000
VFHDSW= 000002
v
= 000100
WCDASW= 000004
WCE
= 040000
WCEFLG 003145
WCERR = 000100
WDSXFR 005466
WHDSW = 000001
WILTST 010100
004000

4994

484

5357
Skik
6031

504
5388
5478
6052

6431
8702

TYPERR 030330
TYPFAT 003133
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
TYPRWN 010552
TYPSYS 007722
T.ASOF
003024

SEQ 0205

oo
-0

OOV
S
S5O
WO

N =2 5 ~JOD
N —

CZR6QCO RK6 DR PT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE 208
CZR6QC.PN
02-JuL-80 09:50
CROSS REFERENC® TABLE == USER SYMBOLS

737

7450+

7451

7522

7530

7554

7322+
7551«
7793+
7254

7355+
7597+«
7800+
7283

7357
7598
7807+
7383+

76414+
7643+
7964
74634

76416
7645

7446
7649

7517

7639+

7523

7662

7704+

7538
7790

7560
7797

7708+
7804

7789
7811

7803

7810

7660

8030

6087+

6127

6161+

7420
5998+

7660
6000

6014+

5713

5860

5888

174

5841

7983

3969

5229¢

5898

7426

WRTGAT= 040000

R———

205 16

CIR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JUL-80 09:52 PAGE
CZR6QC.P11
02-JUL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

¥.¥CK = 0002
W.WTCH 034560
W.8SEC 003074
$SAPTHD 001000
SASTAT= teeeer |J
SATYC
044770
SATY1
044744
SATYS
044752
SATYL
044762
SAUTOB 001134
$BASE
001404
$BDADR 001122
$BDDAT 001126
$BELL
001320
SCHARC 042620
SCKSUR= teveex |
SCMTAG 001100
$CM1
= 000040

$CH2

= 000100

$CM3
$CMé

= 000040
= 000016

SCNTLG
SCNTLU
$CPUOP
SCRLF

044N
044404
001356
001325

SOBLK
$0B2D
$0B20
SOECVL
SDEVCT
SOEVA
GN
$OTBL
SENDAD
SENDCT
NV
SENVM
oP
$EOPCT

044060
043162
043042
043342
001340
001406
017244
044050
017234
017%20
001350
001351
017170
017212

6313
28824
1482
8888
8859
8857#
8263
8707
1522#
16334
1517#
1519#
15844
8280+
8994
1505#
15374
15504
15634
15374
1550#
15634
1535#
15694

1582#

87644
87634
16074
15864
6031
8314
8631
4358
5469
8460
1598#

16344
4432
8634
1468
3532
16034
16044
446254
3532¢

7347+
7971«

7362
8023«

7375+
8041+

7389«

7437+

7504+

7513«

7542+

7564+

7296+

7346
8040+

7361«

7374+

7390+

7436+

7503+

7512+

7541«

15624

7149+

7156

3517

7268+

7883+«
7955
7960
7542

7970«
7981
7966
7950

8022+
7987
8013

8726
8297

8306+

83114

3518
15394
15524
15654
15394
15520
15654

3526
15404
1553
15664
15404
15534
15664

353¢
15414
1554#
15674
15414
15544
15674

3533
15420
15554
15684
15420
15554
1568¢

15438
15564
15694
15438
15564
15694

15440
1557¢

15450
15584

15474
15604

8s
"

15440
15574

1545
1558#

15474
1560#

8s
1

15494
1562#

15714

15720

1573%

15748

15754

15764

1577#

15794

1580#

1581#

3768
6052
8726
86734
84584

4365
6398

4368
"8

4387
6410

4392
6418

4757
6421

5401
6431

5444
6460

5471

5477
8279

8866
3786

8890
3799

4951

8260

8265

8868

L443H

8721

8704
3592
4435

5406
6454

28674
28834
28664
28804
28894
7563+
27140

7295+
7950+«

003070
003076
3
003072
003110

7269«
7947+
8115

835+

W.MILI
W.MIN
W.MTIN
W.SEC
W.TIME

4972

g6150
4
; 144

—d

011317
025746
003124

VWA

WRTLOK
WRTSEC
W.DRV

SEQ 0206

6468

15494

02-JUL-80 09:52 PAGE 218

WNODONCO0DNGCD
WVIONWOAONWVION
WO
OVOWOD
WO~

8698

8726

9469

8719

8726

8849

8897+«

8905#

CoOCO0OCw
—
WNOoON
— OO OW
S WO srVv
> *» %N

e \ ) D d

VWO

i e
b QD) =D e e

YN0 W 8~ O

8697+

= =2 QD S =D e
s S

BB54

82344
8852
8848+

8854
8854

3867

3890

3938

3993

4038

4072

4144

4221

4318

39734

3975

40244

4026

L0474

4049

L1240

SO0 OO

QD O =d b e e e () =d b e e ‘e e e
e =

o
§

8233«

VAU

e e

8844+

8227+
8847+
8842

P OD =

043640
043144
043642

8838

3553

284
8899+

89034

8877

b e e e Q) =

SOCNT
$OCTVL
$OMODE

8816

SEQ 0207

8726

VIS Ve OWVOOOO NV NSO

SNULL
SNWTST=

1370

8802
8856

8880+

COVNOD 85N b

S8888RSS8RRS8888
3333888
i i
BN i
e PN D b

1330

8726
8850

TN 00 WY 8 (N0 5SS YU

$GDADR
$GDDAT
001124
$GET42
$GTSWR=
SHD
=

PONY =2 N O WNWNININD = — 00 O 00 — N O N 00 00 - O W= =2 (N NN O WOW-2N—=2N—-O
SO0 ONOD~NW
Vwviwno O WO
O NN ~NW SO
=0~ 5~00
RRuwn » s N
LR
B
B R
RN
Wn
E3
LR

4 S 2 D s s
b b b
3 O
OV ONOOONCO-OWVIWN

D s
B
DD e
-

[=l=lwlelel=]

b
B NI SN NN
POV
=
=2 ) b

S$FILLS

8887888

SERFLG
SERMAX
SERROR
SERRPC
$ERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL
S$FFLG
SFILLC

—'

CZR60C0 RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

CZRrRéQC.P

8314
38774

4195

86044
BL4in
8566

8892

8896+

4297

4299

3928¢#

3930

8569+

8580+

86064

3879

CZR6QCO RK6 DR _CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 21%

CZR6QC.PIN

SOVER

02-JuUL-80 09:50

044730

CROSS REFERENCE TABLE == USER SYMBOLS

8825

SPASS
$PASTM
SPWRCT
SPWURDN
SPWRUP
SQUES
SRAND
SRDCHR
SRODEC=
SROLIN=
SRDOCT=
$RDSZ =
SREGAD
SREGO

001336
001006
044524
044440
044452
001324
042240
044264
weewne |
teeenn |
weeeee |
000000
001160
001162

15974
14924
8780«
3530
8775
15854
$535
87428
8995
8995
8995
87634
15354
153748

SREG10

001202

lgggl

$SREG1

001164

15384

8843

88514

8781«
87754
87804
3643
82104
8994

87904
8783

6545

9469

32;%*

5746+
5747+«
5749«
5748«
5755«
9477
9477
9469
9477
9477
9477
9477
9477
9477
6412

3553+

9469

4428+

SEQ@ 0208

4429+

444S

3725

377

4789

4818

5048

5120

5404

5486

8314

8726

32;?'

5714

5745«

5748

5897«

5898+«

5899

5932«

5935

6770«

6800+

5933«
5934+
5751«
5750«
5756%
9481

6771+
6772+
5753«
5752+«
5942+«

6801+«
6802+
5754+
5935+«
5943+

6840+
6833+
5936+
5937«
9476

9473
6835«
5938«
5939«
9481

9481
9473
5940+
9476

9481
5941+«
9481

9473

9481

6361+

6552

6934

6935+

7045+«

7048«

7061

7063+

3710

$REG11
SREG12
SREG13
$REG14
$SREG1S
SREG16
$SREG17
SREG2
$SREG20
S$REG21
SREG22
SREG23
SREG24
SREG2S
SREG26

001204
001206
001210
001212
001214
001216
001220
001166
001222
001224
001226
001230
001232
001234
001236

SREG27
SREGS
SREG30
SREG31
SREG32
SREG33
SREG34
SREG3S
SREG36
SREG37
SREG4
SREGS

001240
001170
001242
001244
001246
001250
001252
001254
001256
001260
001172
001174

SREG6

001176

$SREG7

001200

SRESRE

SR2A

$SAVRE
$SCOPE

15468
15478
15484
1549%
15504
15514
15524
15394
15538
15540
15554
15564
15578
1558
1559%

045250
weeeee

045212
044574

$SETUP= 000037

15604
15408
1561#
15624
15634
15644
15654
15664
15678
15688
15414
154204
6972
15434
7065«
15440
7060«
8944r
8997

89284
3524

35014

6576

9469

6555«
6556+

9472
9472

5279
7044«
5302
7085+«
5287
7092+«
8996

5727«
7066
5305
7086«
5729«
7094+

5735
7078+
5728+«
7087+«
5739
7096+

57641«
7092
5737
7088+
5743«
9473

5914+
7095
5742«
7091+
5916+
9480

5922
9473
5915+«

5928+«
9480
5924

6360

5926

5930+«

7046

3524

3526

3528

3530

3532

8995
88234

3523

7093

5929«

7094

9473

9480

7047«

7051

7054«

7058+

3533

3535

6427

8689

8714

8721

Ladid

$SWREG
$SWRMK=
STESTN
$TKB
$TKS
$TMPO
STMP1

$TMP10
$TMP11

001352
000000
001334
001146
001144
001262
001264

001302
001304

$TMP12

001306

$TMP13
$TMP14
$TMP15
$TMP2
$TMP3
$TMPL
STMPS
$TMP6
$TMP7
$TN
=

001310
001312
001314
001266
001270
001272
001274
001276
001300
000012

STNPUR
$TPB
S$TPFLG
$TPS
STRAP
$TRAP2
$TRP =
S$TRPAD
$TSTM
$STSTNM

043272
001152
001157
001150
045306
045330
000012
(045342
001004
001102

STYPBN= texeee
$TYPDS
3644
STYPE
042342

STYPEC
STYPEX
S$TYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT2
$XTSTR

042554
042622
043442
043456
043416
001342
001010
001354
001400
001402
044604

8818
1605#

8820
15964
15284
15274
15694
15704

15774
1578#
4585+
15794
4370
15804
15814
15824
15714
15724
15734
15740
15754
15764
13064
40724
8465
15304
15340
1529#
3528
89754
89794
8969
164914
1507#
8845+
8992
86194
82524
8282
8307
85604
8559
85554
15994

14934
16044
16314
16324
8827#

3536

32
89
68
82

Cow

3501
4359
8833
14664
13164

oooWwW—

177777
043356
044674
000230
163000

$STUP =
$SUPRS
SSVLAD
$SVPC =
$SWR =

OOOW

0
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 212
CZR6QC.P1N
02-JuL-80 09:50
CROSS REFERENCE TABLE == USER SYMBOLS

5470

SEQ 0209

8517#
3533
4428
8726
8854

3535

4438

8817

3890+

4772+
4774

6226+
6239+
4260+

4363+
5204+

4378+
5210

4390+

4575+

4580+

4288+

4289

4328+

4332

4609+

4610+

5206+

5212

39384

3973

39934

4024

4038#

4047

8726

8816

4284
4669
4284
5205+
4586+

38674

3877

3890#

4286

4193

42214

4297

8990#

8991#

8992#

8994

89954

89964

89974

89984

3714+
8854

3779+

4005+

4402+

4427+

5803+

6400

8691

8987
83014

8302

CZR6QCO RK6 DR CPT PROG MACY11 30A(1052) 02-JuL-80 09:52 PAGE 21%

CZR6QC.P1T

02-JuL-80 09:50

$$GET4= 000000
$.5.5M= rerrer

4438
%?2%

SOFILL 043641
S4OCAT= seener |
= 055151

8556+
8701
14650
15044
30824
31404
3218¢
86734
8858
1478%
14604
14594

JSASTA=
.8X
=
..HIGH
..LOW

werenr |
001000
000226
000224

CROSS REFERENCE TABLE == USER SYMBOLS

7406

7597

8560+
8824
1469
1588
30834
31434
32214
8726
8861
1483

8570

86054

14540

29524

3084¢
31464
32264
8729

14568

29534

30854
3151
3229¢
8769

7608

1466

29584

30864
3154
3232¢
8777

7646

146748

29744

30874
3157¢
3521
87944

7960

14694

2981M

30884
31624
3535
8854

SEQ 0210
8001

14718

29824

30894
31654
3536
89064

8013

14728

2984

30904
31684
4445
97484

8067

1478

29894

30914
31734
8314

8089

8107

8134

14794

14814
30804
30934
31794
844in

14834
30814
30944
32154
B506#

30794

30924
31764
8386

CZR6QIO RK6 DR CPT PROG MACY11 30A(1052)
02-JUL-B0 09:52 PAGE 215
CZR6QC.P11
02-JuL-80 09:50
CROSS REFERENCE TABLE == MACRO NAMES
CKEXIT

COMMEN
ENDCOM

ERROR

ESCAPE
GETPRI
GE TSWR
MSG

MULT

NEWTST
NEXTAD
NXTAD
PARMBK
PARMDF

POP
PUSH

P.DRVR

REGDEF

REPORT
R.DRIV
R.QDRV

SCOPE
SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

21664
1L
1L
13364
6507
6667
6727
6854
1L
1L
»

4953

5931
6634
6698
6782

38544
L195

3879

40240

1L
21624
21584

3877

4124

1L
1L

8660
8619

1L
1L

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

8861

8863

8884

4049

L1240

6496

6656
6718
6841

6503
6665
6722
6850

4126

L4193

8929

1
1L
1L

13374
1
8979«
1L
1L
1L
16420
"
3877
6316
4727
5002
5338
5775
6097
6346
707
7782

SWRSU
S.DRVE
TEST
TRMTRP

6519
6677
6742
6869

SEQ@ 0211

8609
1L
1L
21540
89794
14
1
1L
1L
"
1L
L

4317

4426

3854

5099
5454
5848
6156
6475

5103
5523
5853
6177
6485

5138
5529
5874
6185
6536

6210
6594

3865

4219
4710
4901

4297
4725
4914

7041
7741

7043
7760

5267
5669
6071
6320

8509

5317
5677
6093
6322

8532

$OCTBN
$SCMRE

SSCMTM
$SESCA
SSNEWT
$SSET
$SSETM
$$SKIP
.EQUAT
.HEADE
K111
.SETUP
.SWRH]
LSWRLO
LSACT
.SAPTB
.SAPTH
.SAPTY
-SASTA
.SCATC
SCMTA
.$0B2D
.$0B20
.01V
. SEOP
.SERRO
.SERRT
<SMULT
. SPOWE
. SRAND
- SRDDE
.SRDOC
-SREAD
.SR2AZ
. $SAVE

.$5820
.$5820
.$5COP
.$SIZE
.$SUPR
.STRAP
.STYPB
.$TYPD
.STYPE
.$TYPO
.$40CA
1170
. ABS.

1498#
}ggg

SDECBN

8143
1537
}gg;

1498#
1569
16420
W
¥
14620
8979+
8988
3553«
1w
146620
w1292
w1292
1L
1w
1292¢
1
1292¢
1292#
13304
1w
12928
14
15895
W
12924
0
12928
1L
1w
12928
10
12924
1%
12924
1w
1292¢
1L
0
12928
12924
0
1L
1L
1w
12924
1w
1292¢
1L
1L
1w
1292¢
1L
1
1292¢

1L
1L
1w
10
1#
1w
1L
0
1w
1w
T
"

055151

ERRORS DETECTED:

SEQ 0212

————

6 1
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuUL-80 09:52 PAGE 216
CZR6QC.P11
02-JuL-80 09:50
CROSS REFERENCE TABLE == MACRO NAMES

1538
}ggg

1539
1554

1540
1555

1541
1556

1542
1557

1543
1558

1544
1559

1545
1560

1546
1561

1547
1562

1548
1563

1549
1564

1550
1565

1570

1571

1572

1573

1574

1575

1576

1577

1578

1579

1580

1581

1582

3854
8989

3877
8990

3928
8991

3973
8994

4024
8995

4047
8996

4124
8997

4193

4297

1332
1307
3501
1319
1462
1473
8854
1443
1498
B44S
B4LOD6

4418
B674

819%
8726
8911

12924
12924
1292#¢
1292#¢

8811

12924
1292¢
1292¢

8607
8235
8530

000
O

8507
8956

'
H
1
CZR6QCO RK6 DR CPT PROG MACY11 30A(1052)
02-JuL-80 09:52 PAGE 217
CZR6QC.P1T
02-JUL-80 09:50
CROSS REFERENCE TABLE == MACRO NAMES

DSKZ:CZR6QC.BIN osxz czneec LST/CRF/SOL/NL:TOC/EQ:QNEWSW=DSKZ: " ZR6QC.SML,DRIV10.P11,CZR6AC.P11

RUN-TIME: 71 1058

SECONDS

SR —

RUN=TIME RATIO: 314/186 1.6
CORE USED:
54K
(107 PAGES)

;

SEQ 0213