Digital PDFs

AC-B161B-MC

March 1978

217 pages

Original

11MB

view download

OCR Version

9.9MB

view download

Document:	CZR6QB0 RK611-RK06 DRIVE COMPATIBILITY PROGRAM AH-B162B-MC MAR 1978 bw
Order Number:	AC-B161B-MC
Revision:	000
Pages:	217
Original Filename:	CZR6QB0__RK611-RK06__DRIVE_COMPATIBILITY_PROGRAM__AH-B162B-MC__MAR_1978_bw.pdf

OCR Text

RK611/RK06

isass”

o ns RO
FICHE1 OF2

MADE IN USA

RK611/RKOB

SrsassTM TMTM i,. il
FICHE20F2

MADEIN USA

00C10000

780223

NN
£ WA

S0P10 41l

182&2080 RK6 DR TPT PRCG

MACYLD 300104

HOR1CIR6GBSEQ

02-DEC-T7

11:48

PAGE 2

ggaolocoe

.REM 3

k"wummmmmmmmmm.-.-o—....._..-._.-.—
G DD~ 10N £ W
O WD -0 U1 £ W
O

~ 100N L W—

EOF 1 CCRGEBSE
3
POPSAEQAY 080.
<ZREJIB.P11
02-DEC-T7

IDENTIFICATION

PRODUCT CODE:

AC-B161B-MC

PRODUCT NAME:

CZR6QBO RKB DR CPT PROG

DARTE:

FEB 1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

DAVE HOFFMAN

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
N OTICE
AND
SHOULD
NQOT
BE
CONSTRUED
AS
A COMMITMENT 8Y DIGITAL EQJI PMENT
CORPORRARTION.
DIGITAL EQL.PMENT CORPORATION ASSUMES NO
RESPONSIB ILITY
FOR ANY ERRORS THAT MAY APPERR IN THIS DOCUMENT.
THE SOF TJARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER
AR
LICENSE
AND_
MAY
ONLY
BE USEC OR COPIED IN ARCCORDANCE WITH THE TERMS OF SUCH

LICENSE.

Y FOR _THE USE OR
1
DIGITAL EQUIPMENT CORPORATION RSSUMES NO RESPONSI BILIT
g%é%?gELITY
OF
ITS
SOFTWARE
ON
EQUIPMENT
TH AT T IS NOT SUPPLIED BY

COPYRIGHhT

(C)

1977,

1978 BY DIGITAL EQUIPMENT CORPORATION

T8caas

<ZRBABU RKE DR CPT PROG MACYIl 30(1046)
ccREUB.P11
0e-DEC-77 10:46

02-DEC-77

11:48

PAGE 3

COl

PRELIMINRRY PROGRAM REQUIREMENTS

GENERAL PROGRAM CONSIDERATIONS

G
¥
o
A
o
f o

DONOUN LW

HARDWARE REQUIREMENTS

INTRODUCTION

N
W
£

NNNNININN NN
OO O 0 T UNN
LI
.L W IN—OWw NN LW
— 0O

TRBLE OF CONTENTS

SYSMAC
XX0P
RCT
APT
DURL -RCCESS

MEMORY MANAGEMENT
MEMORY PARITY OPTION
BRD SECTORS
EXECUTION TIME

5.0

PROGRARM LORD MECIR

6.0

PROGRAM OPTIONS
6.1
STARTING RODRESSES
SWITCH REGISTER OPTIONS USED
6.2

7.0

RUNNING THE PROGRAM

8.0

OPERATIONAL DIALOGUE
8. é
DIALOGUE FOR ADDRES S 200 START
DIALOGUE FOR RDDRESS 204 START
8.

DIALOGUE FOR RDDRESS 220 START

8.3

PASS 1 DIALOGUE
PRSS 2 DIAL

8.4
8.5

9.0

DESCRIPTION OF TE
DESCRIPT%ON QF PASS 1 TESTS
S.1
9.2
DESCRIPTION OF PRSS 2 TESTS

10.0

PRINTOUT OF TEST RESULTS

11.0

ERROR REPORTING
COMMON ERRORS
11.1
ERROR HANDL ING
11.2

10.1

11.3

OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

ERROR PRINTOUT EXRAMPLE

TABLE A -

BRSIC READ/WRITE TEST SECTORS

TABLE B -

WORSE CASE DATA PATTERN

SEG 0002

<<RB3BO Rkb
<ZREGB.PL1

103
104

CPT PROG MACYL1
0e-DEC-77 10:46

30(1046)

02-DEC-77

11:48

PRGE

DO1

ig;

TABLE C - CYLINDER BLOCK ASSIGNMENT FOR R GIVEN SURFRCE

igg

TABLE D -

BRARSIC CYLINDER BLOCK LAYOUT EXRMPLE

110

i;é

TRABLE E -

OVERWRITE CYLINDERS

TRABLE F - SELF-TEST CYLINDERS

114

TABLE G -

PSEUDO-RANDOM DATA PATTERN

SEG 0003

30(1046)

O02-DEC-77

1.0

PAGE S

EQL

SEQ 0004

INTRODUCTION

DEFINED HERE RS THE ARBILITY OF
A DRIVE TO WRITE DATR WHICH CAN BE RERD
SUCCESSFULLY BY ALL OTHER DRIVES,
AND ADDITIONARLLY THE
RBILITY
OF
AR

DRIVE TO COMPLETELY OVER-WRITE DATA WRITTEN BY ALL OTHER DRIVES.
NOTE:

RKO& RAND RKO? DRIVES CANNOT BE MIXED FOR COMPATIBILITY TESTING.

THE PROGRAM IS DESIGNED TO DETECT THE FOLLOWING CONDITIONS WHICH
COMMONLY CRUSE INCOMPATIBILITY BETWEEN DRIVES:

) W
£ £ £ W)W

ol o

O DMNUN L WO WD NV L WM
VLW

loagraleadenl adeale ;NUATVA TR TV TVATVATIATTATTAIT,
0

11:48

THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPRTIBILITY OF UP TO 16
RKO6 OR RKO7
DRIVES
WHICH
MAY
RESIDE
ON ONE OR MORE RKG611/RK06-07 SUBSYSTEMS
(INCLUDING
SYSTEMS
WITH
HULTIPLE
SUBSYSTEMS).
COMPATIBILITY
IS

OWOm NNV LW

W W

NN N

Bt et Pt Pt Pt Bt Pt Pt s (et Pt Pt Pt Bt Pt Bt Bt Pt Pt it Pt P Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt P P P Pt Pt ot Pet Pt P —

NN PN NY e b b - —

OWm NN LW~ 0O Dm0 wn

CZR6Q@BO RK6 DR CPT PROG MACY11
CZReGB.P11
0e2-DEC-77 10:46

HERD MIS-ALIGNMENT

POSITIONER LATERAL MISALIGNMENT

SPINDLE-CRRTRIDGE INTERFACE RUNOUT

IMPROPER LEVELS OF WRITE CURRENT

INCORRECT RDDRESSING OF REARD/WRITE HERDS

THE _TESTING IS DONE IN TWO

PASSES.

PRSS

COMPATIBILITY

MOST

DRTA

PATTERNS ARE WRITTEN BY ALL THE DRIVES UPON THt SAME DISK CARRTRIDGE
AND THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE 1S DEMONSTRATED.

PARSS

THE COMPATIBILITY DARTA FROM ALL DRIVES IS READ BY ERCH DRIVE

WITH IfiCREflSING HERD OFFSET, AND THIS IS COMPARED WITH EACH DRIVE'S
ABILITY TO READ ITS OWN DATA.

IN ADDITION, EACH DRIVE’ S CARPABILITY TO

OVERWRITE DRTR WRITTEN BY ALL OTHER DRIVES IS
TESTED
THE
SECOND
PRSS.
(FOR_THE REMAINDER OF THIS SPECIFICARTION, THE RBOVE DEFINITIONS
OF THE FIRST AND SECOND PRSS SHALL RPPLY).
IN BOTH PASSES,

UNLOADING

THE PROGRAM DIRECTS THE OPERATOR IN

OF 'DRIVES

THE

LORDING

AND

AND THE MOVEMENT _OF THE CARRTRIDGE FROM ORIVE T0

DRIVE,
THROUGH MESSAGES AT THE CONSOLE TERMINAL.
AT THE COMPLETION OF
TESTI
ON_
EACH DRIVE DURING THE SECOND PRSS R SUMMARY IS PRINTED OF
COMPATIBILITY TEST RESULTS FOR THAT DRIVE.
WITHIN THE VARIOUS TESTS OF BOTH PASSES,

THE CAPRBILITY IS PROVIDED TO

LOOP ON CURRENT OPERATIONS, AND SWITCH' REGISTER OPTIONS ARE PROVIDED
gggng” gngxm OF LOOPINS, RUNNING, AND REPORTING
MODES
(SEE
UNEXPECTED ERRORS WILL BE REPORTED RS THEY
OCCUR.
THE
REPORT
WILL
INCLUDE
A TEST NUMBER AND DESCRIPTION,
CURRENT AND PREVIOUS OPERATIONS

GOOD AND BRD TEST DATA, AND RAPPLICABLE DEVICE REGISTER CONTENTS.

CZR6QBO RKE DR CPT PROG MACY11 30(1046)
02-DEC-77 10:46
~ZR6GB.P11

02-DEC-77

11:48

PAGE b

FO1

SEQ 000S

o N Bt Pt Pt Bt Dt Pt Pt Pt P Bt Pt Pt Bt Pt Pt s s P Pt Pt o s (ot Pt Bt Pt Pt Pt Bt et Pt [N
.—;—-.—._.._.._D 000000000 DO NWOL 0D D: 0000 0EMMEMOCMINNNN NNNNNO o
NnLWwne—0Ww oNCNLWU—-O DO NCNLWN—-O0O00NCN
LW~ 00NN LWLN—-0OW[+ o]

167

2.0

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RKO6-07 DRIVE COMPATIBILITY
PROGRRM, FOR ERCH SULBSYSTEM WHICH MAY BE PRESENT:
PDP-11,04,

16K MEMORY

(05,10 MFG.

ONLY),

20,30,34,35,40,45,50,70,

OR PDQ

CONSOLE TERMINAL
RK611 CONTROLLER

1 T0 8 RKO& CR RKO? DISK DRIVES PER CONTROLLER

IN ADCITION,

A SINGLE RKO6 DISK CARTRIDGE IS

REQUIRED

WHICH

MRY

FORMATTED IN EITHER 20 OR 22 SECTOR FORMAT, ON A RELIABLE WELL-ALIGNED
RKO6 DRIVE. THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP
TO 16 DRIVES)

3.0

ON EACH OF TWO PASSES.

PRELIMINARRY PROGRAM REQUIREMENTS

BEFORE RUNNING THE RKO6 DRIVE COMPATIBILITY PROGRAM,

THE

SUBSYSTEM(S)

UNDER TEST SHOULD BE_ CAPABLE OF PASSING THE CONYROLLER DIAGNOSTICS
CZR6AR-CZRBE AND CZR6K, THE DRIVE DIAGNOSTICS CZRBH-CZRGEJ,
AND THE
SUBSYSTEM
VERIFICATION ~ PROGRAMS CZREM-CZREN,
IN ADDITION, THE

CARTRIDGE MUST BE FORMATTED IN 20 OR 22 SECTOR FORMAT USING THE PACK
FORMATTER CZRbL,
OR EQUIVALENT
(PERFORMED ON KNOWN GOOD, ALIGNED
DRIVE).

4.0

GENERAL PROGRAM CONSIDERRTIONS

4.1

SYSMARC

ggéaREEOGRQM USES PORTIONS

4.2

THE

DIAGNOSTIC

SYSTEM

MARCRO

MODE

XXDP

THIS PROGRAM MRY BE LOARDED UNDER XXDP,

ONLY.

SYSMAC

DUE

AND MRY BE

RUN

DOUMP

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

PROGRAM IS NOT XXDP CHARINRBLE.

CZR6@BC RKBE DR _CPT PROG MACY1l
CZR6QB.P11
02-DEC-7 4 10: 46
-

30(1046)

02-DEC-77

4.3

11:48

PRAGF 7

GOl

SEQ 0006

RCT

THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY.
IT IS NOT CHRINRBLE UNDER RCT.

4.4

APT

THIS PROGRAM MAY BE LOADED BY THE

PROGRAM (DUMP) MODE ONLY.
4.5

APT

SYSTEM,

BUT

MAY

IT CANNOT BE RUN IN'APT SCRIPT MODE.

RUN

DURL-RCCESS

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

WAY,

AND

ab% IRR&;ES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHiCH IS

4.6

MEMORY MANAGEMENT

MEMORY

MANRGEMENT

INSTALLED,

4.7

NOT

UTILIZED

THIS

PROGRAM.

MEMORY PARITY OPTION

gSOESSéTY MEMORY IS INSTALLED,

4.8

IT IS DISABLED BY THE PROGRAM.

MEMORY PARRITY TRAPS ARE DISABLED BY THE

BAD SECTORS

THE LIST OF BAD SECTORS ON THE CARTRIDGE IS OBTRINED FROM THE FIRST
DRIVE TO BE TESTED ON_THE CURRENT SUBSYSTEM.
QCCORDING 70A 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 RS BROD.

4.9

EXECUTION TIME

THE TOTAL TIME REQUIRED TO RUN_THE

OIRECTLY

PROPORTIONAL

THE

DRIVE

NUMBER

REQUIRES RBOUT 8-10 MINUTES PER DRIVE.

COMPARTIBILITY

DRIVES

PROGRAM

BE TESTED AND

vV
N12V
], 1)
NNINNNNNNN NN
DO
NEWY [

CZR6GBO Rre DR CPT PROG MACYLl
-ZREQB.PL1
De-DEC-77 10:46

30(1048)

02-DEC-77

11:48

PAGE 8

SEG 0007

280

S.0

PROGRAM LORD MEDIR

THIS PROGRAM CAN BE LORDED FROM PAPER TAPE USING THE
ABSOLUTE
LOARDER
OR FROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED BY XXDP.

6.0

PROGRAM OPTIONS

6.1

STARTING RDDRESSES

200 - THIS I
THE STARTING QDBRES?
FOR
EEFQU&T
PQRQM&TERS
AN
RUNNING
OF
PRSS
1 AN
S 2 ON R SINGLE SUBSYSTEM.
TH
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

_LORDED

UNLORDED.

8ZE¥ES TO BE TESTED

RESIDE

THE _PROSRAM WILL ASSUME ALL
ONE

RKB11/RK0O6

SUBSYSTEM

204 - THIS
IS
THE
STARTING
RDDRESS
TO
RUN
PASS
1
ON
ALL
RKE11/RKO6
SUBSYSTEMS
WHICH RESIDE ON THIS PDP-11 SYSTEM.

THE PROGRAM WILL ASK FOR THE RKb1l BASE ADORESS,
INTERRUPT
VECTOR,
AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND

IT ASKS FOR THE LETTER NAMES (R THRU

gggsR

220 - THIS

SUBSYSTEMS,

THE

AND THE DRIVE(S)

ETQRTING

ADDRESS

RSSIGNED

ALL

RUN

PARSS

ALL

WHICH WILL BE TESTED ON

RK611/RKO6
SUBSYSTEMS
WMICH RESIDE ON THIS PDP-11 SYSTEM.
THE PROGRAM WILL ASK FOR THE RKG611
BASE
ADDRESS, INTERRUPT

VECTOR,

AND PRIORITY FOR EACH SUBSYSTEM ON THIS SYSTEM, AND

IT ASKS FOR THE LETTER NAMES (R THRU

g;gsR

6.2

SUBSYSTEMS,

AND

THE DRIVE(S)

ASSIGNED

WHICH WILL BE

ALL

TESTED ON

SWITCH REGISTER OPTIONS USED

THIS PROGRAM

IS DESIGNED TO ALLOW

IF PRESENT,

(IF HARDWARE SWR IS NOT PRESENT,

CASE

THE

USE

THE

HARDWARE

SWITCH

OR THE SYSMAC-SUPPORTED SOFTWARE SWITCH REGISTER

OR IS SET TO ALL

ONES).

EITHER

THE FOLLOWING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS

ARE &ET TO 1:
BIT

OPTION

18
14

HALT ON ERROR
LOOP ON CURRENT TEST

CZR6QBO RKE DR CPT PROG MACY11l 30(1046)
02-DEC-77 10:46
CZR6GB.P11

02-DEC-77

PRGE 9

101

SEQ 0008

INHIBIT ERROR REPORTS

REPORT DESCRIPTION ONLY,

o8
07

APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BARD SECTOR FILES (BSF’'S) AT START

11
10
09

ON ERRORS

JNUSED
BELL ON ERROR
LOOP ON ERROR

06-00

7.0

11:48

UNUSED

RUNNING THE PROGRARM

ONCE THE PROGRAM HRS BEEN LOADED INTO CORE

THERE

ARE

THE PROGRAM:

(IN

GIVEN

SYSTEM

MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN

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

PORT SELECTED.

LORD THE DESIRED STRART ADDRESS.

SET ANY DESIRED BITS IN

THE

PRESENT).

HARDWARE

SWITCH

(IF

PERTAINING

START THE PROGRAM.

FOLLOW ALL INSTRUCTIONS TYPED BY THE
THE

MANUAL

INTERVENTION

MULTIPLE SYSTEMS

8.0

REQUIRED,

(IF THERE ARE ANY),

PROGRAM

AND THE ALTERNRTE USE OF

OPERARTIONAL DIRLOGUE

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

AND THE MOVEMENT OF THE TEST
LOADING AND UNLORDING OF DRIVES,
CARTRIDGE. THE EXACT DIALOGUE WHICH IS USED DEPENDS UPON THE STARTING

ADDRESS WHICH WAS CHOSEN (SEE SECTION 6.1..

IN THE FOLLOWING DISCUSSION AND

LETTER IS THE SUBSYSTEM

NR-E

THE

PRINTOUT

TEST

RESULTS

DRIVES TO BE TESTED wl-L BE_REFERRED TO BY A LETTER AND A NUMBER.
NUMBER

LETTER

(OPERATOR

THE DRIVE NUMBER ON THAT SUBSYSTEM.

REFERS TO DRIVE & ON FLBSYSTEM C.

RASSIGNED)

AND

THE

FOR EXAMPLE, DRIVE C6

CZREQBO RKE DR _CPT PRCG MARCY1ll
D2-DEC-77 10:46
bZRbOB P11

30(1046)

02-DEC-77

8.1

11:48

JO1

PRGE

SEQ 0009

DIALOGUE FOR ADDRESS 200 START

THIS STARTING ADDRESS MAY BE

SIZING

AND

ALL

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

THE

PLERSE NOTE THAT THERE

START

DEFAULTING

ONLY.

PARAMETERS,

USED

FOR

WHEN

RAUTOMARTIC

THE

DRIVE

DRIVES RESIDE ON ONE SUBSYSTEM

THE PROGRAM FIRST IDENTIFIES ITSELF RS FOLLOWS:

CZRBGBO - RKO6-RKO? ORIVE COMPARTIBILITY PROGRAM
THEN,

THE DRIVES ON

EXISYING

DRIVES

ORIVE LIST,

THE

WILL

SYSTEM

RRE

AUTOMARTICALLY

MARKED FOR TESTING.

RS IN THE FOLLOWING EXAMPLE:

DRIVE TYPE

&(CR>

FOR RKO&,

7<CR>

THE OPERATOR MUST TYPE EITHER A 6(CR>

SIZED,

THE PROGRAM TYPES THE

FOR RKO7:

OR A 7<CR>

DRIVES = 2,5,7

MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4

IS ONLY_ONE SUBSYSTEM ON AN

AND 1T IS NAMED SUBSYSTEM A.

ADR.

P g OF O o O o o G I o
U 2 e 0o pt vt Dos Puoss Pst Pme pms
owoNoCTNLZWhu—-0O

ggggRgED TO RS R2,R5,A7 IN THE TEST RESULTS PRINTOUT

8.2

200

THE DRIVES IN THE ABOVE EXAMPLE WOULD BE
AT

THE

END

DIALOGUE FOR ADDRESS 204 START

THIS STARTING ADDRESS MUST BE USED ON EACH SYSTEM,

WHEN THERE

_MORE

THAN ONE SUBSYSTEM,
BUT _IT
MAY ALSO BE USED WHEN THERE IS JUST ONE
3EEBE§TEFOénggL)1 T0 SPECIFY DRIVES TO TEST AND NON-DEFARULT PARAMETER
THE PROGRAM

IDENTIFIES

ITSELF RS FOLLOWS:

CZR6QGB0O - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM

421

THEN,

THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES

EARCH’ OF

THE

POSSIBLE

FROM SUBSYS R TO SUBSYS P.
DRIVE ON ERCH

)

DRIVE TYPE
THE OPERATOR MUST

6&¢(CR>
TYPE

SUBSYS R DRIVE(S)

TESTED

SUBSYSTEMS (STARTING WITH A - THE NAMES RQNGE
THERE COULD BE UP TO 1b SUBSYSTEMS,

FOR RKOB,

IN 6¢CR>

7<CR>

WITH
A

FOR RKO7:

OR 7<(CR>

E;gnngRfiTOR THEN TYPES THE DESIRED DRIVE NUMBERS,

IN THE FOLLOWING

CZR6QBO RK& DR _CPT _PROG HQCYll 30(1046)
CZREGB.P1L
02-DEC-?77 10:46

437

Sgg

02-DEC-77

PRAGE

SuBSYS R DRIVE(S)

= 2,5,7

THE PROGRAM THEN VERIFIES THE DRIVE NOS. BY TYPING :

::é
443

11:48

KOl

WILL TEST DRIVE(S) 2,5,7 ON SUBSYS RA.
NEXT,

THE PROGRAM ASKS THE FOLLOWING QUESTION:

SEQG 0010

CZR6ABO RK6 DR _CPT PROG MACY11
02-DEC-77 10:46
CZR6GB.P11

30(1046)

02-DEC-77

11:48

LO1

PRGE

SEQ 0011

qy4y

445
446
4y?
448
449
450
45|

IS THERE ANOTHER SUBSYS
THE OPERATOR TYPES_Y(CR> OR

(Y OR N <CR»>)?
N<CR>.

(IF

_JUST

<«CR>

TYPED,

THE

PROGRAM RSSUMES ThAT N<CR> WRS TYPED). IF THE OPERATOR TYPED N, THE
PROGRAM PROCEEDS WITH PASS1, AND DIRECTS THE OPERQTOR IN THE MOUNTING

8§K5“F05“$5e fifinBE&S"&PE?Hé"DE
Ge ONo BE TEéTED
ON rLEpfiExr’”quQQ ?éfi
(SUBSYS B)

RS FOLLOWS

SuUBSYS B DRIVE(S)

THE OPERARTOR TYPES THE DRIVE NUMBERS,
SuBSYS B DRIVE(S)

RS IN THE FOLLOWING EXAMPLE:

= 2,3

THE PROGRAM THEN VERIFIES THE DRIVE NOS.
WILL TEST DRIVE(S)
NEXT,

2,3 ON SUBSYS B.

THE PROGRAM WILL RASK

IS THERE RANOTHER SUBSYS

AND IN THE SAME MANNER,

BY TYPING

(Y OR N <CR>)?

THE OPERATOR SPECIFIES THE DRIVES ON

THE REMARINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED.

NEXT.

THE PROGRAM ASKS FOR THE LETTER NAME ARSSIGNED TO

THE

TO BE TESTED NEXT :

TYPE NAME OF NEXT SUBSYS TO TEST

THE OPERATOR RESPONDS,

THRU
P

SUBSYSTEM

(R-P)

ALL SUBSYSTEMS nusr es TEST?D *N THE ORDER IN WHICH

RSSIGNED

(R-P)

RS TN THE FOLLOWING EXAMPLE

TYPE NAME OF NEXT SUBSYS TO TEST

ERCH

THE

LETTERS

PROGRHH ALLOWS THE OPERATOR

ARE

TO ALTER

THE RK611 aus nooness vecroh aooae AND INTERRUPT PRIORITY FOR THIS

SUBSYS
FOR
ERCH
; Tut CURRENT VALUE IS TYPED nuo THE
PLOS <C
A NEW VALUE,
OPERQT?R éfi ivsn HE oppgn 5 Y10T
>

TYP

PARAMETER IS NOT CHANGED.

WHEN THE PROGRRM

1S FIRST LORDED, THE ¢0LLou1N0 DEFAULT VALUES ARE RSSIGNED: RKb611 eus

ADDRESS = 177440
VECTOR
ADDR ESS = ELO
AND PRIORITY = 5.
thngéuc EXAMPLE SHOWS A PRINTOUT
WHICH ONLY THE VECTOR
RK611 BUS ADR
RK611 VEC RDR
RK611 PRIORITY

1774940
210
S

THE
WRS

NEW =

NEW = 240
HEW =

THEN THE PROGRAM PROCEEDS WITH PRSS 1,

AND DIRECTS THE OPERATOR IN_THE

MOUNTING OF THE PACK, AS DESCRIBED IN SECTION 8.4. AT THE COMPLETION
OF PASS J ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOMW

CZREQBO RKE& DR _CPT PROG MACYLl
CZR6QB.P11
02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

TO PERFORM PASS

wnutnuininninuin
FUONY 0= 00 0—s 4t s P pms Pt s pa
—OowvoNNoCNLWL=--0O

8.3

See

MO1

PRGE

SEQ 0012

ON THE NEXT SUBSYSTEM.

DIALOGUE FOR RODRESS 220 START

THIS STARTING RODRESS MUST BE USED ON EACH SYSTEM,

THAN

SUBSYSTEM

SUBSYSTEM,

BUT

VALUES,

FOR

(TOTAL)

FgfiEgESER

_MORE

ALSO BE USED
WHEN THERE IS JUST ONE

THE

SPECIFY

PARSS

WHEN THERE

DRIVES

TEST

RND

NON-DEFPULT

PROGRAM IDENTLFIES ITSELF, RS

CZR6GBO - RKO6-RKO7 DRIVE COMPATIBILITY PROGRA’i

$7he?
"beacRagt “ABove
" (sLerd8NEIEY Fon e
SelEctTon
OF slBRvsiEn
PARAMETERS AND THE SPECIFICATION OF ALL DRIVES
TO BE_ TESTED ON THE
VARIOUS

SUBSYSTEM 3

HOWEVER,

RFTER THIS DIQLOGUE

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
STARTING

SINC
THE RPPROPRIQTE
PROCESSOR
MUST
BE
_STARTED
AT
THE
RADDRESS
FOR
EACH SUBSYSTEM TO BE TESTED
THE COMPATIBILITY

TEST MAY BE PERFORHED IN STEPS, AT VARIOUS TIMES ANO BETWEEN VARIOUS
DISTANT LOCATIONS,
BY MOVING THE TEST PACK AND SAVING THE PRINTOUT
FROM EACH PASS ON £ACH POP-11 SYSTEM INVOLVED.
8.4

PASS 1

DIALOGUE

AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON_THE
CURRENT
SUBSYSTEM (SECTIONS B8.1-8.2), THE PROGRAM INDICARTES THE START
OF PRSS
%%

NEXT,

AS FOLLOWS:

STARTING PASS

#»

THE PROGRAM SELECTS

THE

FIRST

DORIVE

TO_BE_TESTED

THIS

SUBSYSTEM,
AND INSTRUCTS THE OPERARTOR TO MOUNT THE TEST CRRTRIDGE AND
LORD THE HEADS ON THAT DRIVE, AS IN THE FOLLOWING EXAMPLE:
MOUNT PACK ON DRIVE R2 AND LORD.
TYPE R<CR> WHEN DRIVE RERDY:
THE OPERATOR PERFORMS THIS TASK AND TYPES R<CR>

LIGHT IS ON.
SECTION 9.1)

WHEN THE

DRIVE

THE PROGRAM PERFORMS PRSS 1 FUNCTIONS ON THIS DRIVE
AND THEN INSTRUCTS THE OPERARTOR TO UNLORD THE
ORIVE

REMOVE THE PARCK RS

FOLLOWS:

UNLORD DRIVE A2 AND REMOVE PRACK.
TYPE R<CR>

WHEN DONE:

REARDY

(SEE
AND

8mmm

602

30 i046)

02-DEC-77

THE OPERPTOR PERFORMS
HAS BEEN REMOVED.

IN THE SAME MANNER,

THE

PACK

SUBSYSTEM.

THREE

NO1

PAGE

11:48

SEQ 0013

THESE FUNCTIONS AND

RFTER

THE

PRCK

THE PROGRAM INSTRUCTS THE OPERATOR IN THE MOVEMENT

THROUGHOUT

THE

REST

THERE

ONLY

ONE SUBSYSTEM (FROM ADR 200

WHEN THIS HRS BEEN COMPLETED,

THINGS:

TYPES R(CR>

o g uintininLnIvnNn i vt iU
o O WD
D DD DD DO
OO
I NI
) NN
nn
Py OWVONCNLWU—OW
NP LW—OODONMN LW WO CW—0WD

c<REGBO RKE DR CPT PROG MARCY11
cZR6GB.P11
02-DEC-77 10:46

(1)”

DRIVES

TnkE

PROGRAM

THE CURRENT

DOES

ONE

START) THE PROGRAM BEGINS PASS 2 (SEE SEC)ION 8.S5)
(2)
_IF
THERE
IS
ANOTHER
SUBSIYSTE
THE
PROGRAM
DIRLCTS THE OPERATOR TO PERFORM

PASS 1 ON THE NEXT SUBQYS AS FOLLOWS (AND THEN HALTS) :
START AT RDR 204 FOR PASS | ON SUBSYS B
(3)

IF THERE ARE NO MORE DRIVES TO TEST IN PASS

PROGRAM

SECT.

ON ANY

SUBSYS,

THE

DIRECTS THE OPERATOR TO BEGIN PASS 2 ON THE FIRST SUBSYS (SEE

B 5)

AS FOLLOWS

(AND THEN HALTS)

START AT ADR 220 FOR PASS 2 ON SUBSYS A

8.5

PRSS 2 DIALOGUE

THE OPERATOR RETURNS TO THE FIRST SUBSYSTEM TQO PERFORM_PRSS @

THROUGH

THE

DIRLOGUE OF THE ARCR 200 START,

PARAMETERS AND DRIVES

HAS_

BEEN

COMPLETED' IN

DIALOGUE
OF THE RADR 220 START (SEE SECTION 8.3).
PROGRAM INDICARTES THE STRRT OF PASS 2 BY TYPING :
*#¥

STARTING

PASS

ACCORDANCE

GIVEN

=x#

PACK MOVEMENT

(SEE SECTION 8.4

RFTER PASS 2 TESTING

ORIV

THE

(SEE

SECTION 9.2)

R
ON_
COMPLETED
TYPED.
THE
ON
10,
AFTER
THE

ENTIRE TEST RESULTS FOR THAT DRI VE ?RE

DETRILS OF TQIS PRINTOUT RRE DESCRIBED IN SECTI
DETRILS OF THE TESTING ARE DESCRIBED.

WHEN PRSS 2 HAS BEEN COMPLETED FOR RLL DRIVES ON THE FIRST

THE

Of ALL DRIVES ON THE FIRST SUBSYSTEH IN' THE SAME MANNER

RS DESCRIBED FOR PASS |
HOWE VER

WIT H

IN EITHER CRS E,

THE PROGRQH THEN CIRECTS THE OPERRTOR IN THE UNLORDING,

AND

EITHER

OR AFTER THE SELECT ION_OF

PROGRAM

DOES

ONE

TWO

THINGS:

SUBSYSTEM

(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:
%%

END

TESTING

=¥

& DR CPT PROG M C Y él
02-DEC-77 1 0: "

[
<}

Do I N LR DO

(@Y d]

N
ko
oo

3011046)

02-D EC-77

(&) 1 F THERE
OPERR IOR
TO
HALTS

11:48

PAGE

BO2

SEQ 0014

IS ANOTHER SUBSYSTEM,

HOWEVER,

THE

PROGRAM

DIRECTS

THE

PERFORM PASS 2 ON THE NEXT SUBSYSTEM AS FOLLOWS (AND THEN

START AT ADR 220 FOR PASS 2 ON SUBSYS B

CZRBQBO RKE DR CPT PROG MACYLlLl
CZR6GB.P11
02-DEC-77 10:46

30(1048)

02-DEC-77

3.0

11:48

PAGE

coe

SEQ@ 001S

DESCRIPTION OF TESTS

THE MRIN FUNCTIONRL BLOCKS OF CODE

REVERS 10" thie CpeknToR teLr BTALOGUE
OTHER

TEST

IN THE PROGRAM

TRBLES

ASSIGNED

TESB

ROUTINES DESCRIAED TN~ seCTIONS

NUMBERS

DESCRIPTION OF PASS 1 AND PASS 2 TESTING

IN THE FOLLOWING SECTIONS,

RARE

A-G

RRE

RSSIGNED

BELOW,

ARE

REFERRED

TO.

1IN

THE

THESE

TABLES, DRIVES ARE NAMED FROM 0-17 FOR ILLUSTRATIVE PURPOSES RLTHOUGH
THE DRIVES RRE NAMED THE FOLLOHING WAY IN AN ACTUARL SIIUR
:
RO,R!,

9.1
IN

R2,...B0,8B1,B2,...C0,C1,C2,...

DESCRIPTION OF PRSS 1
PRSS

BASIC

(SEE SECTION 8.0

TESTS
DRIVE

THE SEQUENCE OF OPERATIONS PERFORMED ON ERCH DRIVE IS RS FOLLOWS:

DENONSTRRTEO

THE

ETC.

RERD/WRITE

CAPABILITY

EACH

AND COMPATIBILITY DRTA PATTERNS ARE WRITTEN BY ALL

DRIVES UPON tHE SAME TEST CARTRIDGE.
1.

TEST 1 MOUNTING
OF
TEST
CRRTRIDGE
FOR
PARSS
1
THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND HRNURLLY LORDS THE
HEADS, RS DIRECTED BY THE PROGRAM (SEE SECTION 8.4

TEST 2 - BASIC READ/WRITE DATA TEST
ms PROGRAM
PERFORMS
A
WRITE
AND WRITE CHECK o
RRTION usmc “WORST CASE” DATA
PRTTERN
n
me
nPP
s OR
FOR
THIS
DRIVE
(SEE
TJABLE

)

T0 VERIFY TH

PRS

RERD/WRITE

CAPAR

E OF THIS OPERATION IS

LITY

THE

DORIVE

E EQ§IRE EggTOR I§ HRIT?EN WITH THE REPETITION OF

THE DRTR PRTTERN
QSESUE
PATTERN CONSISTS
OF
A
MIXTURE OF HTGH
LOU F
NCY EL MENTS AND BIT
STRINGS
REQUIRING VRRIOUS DEGREES OF PRECOMPENSATION, WHEN ENCODED.

TEST

BLOCK

- HRITE OVERNROGSRN Rfig CONPRTIBILITY

ITES

CYL INDER

ALL

SEC ORS FOR THIS

WORD

OF THE PATTERN IN

DRIVE NITHIN THE CYLINDER BLOCKS SHOHN IN TRBLE € ON ALL
SURFRCES

TABLE
G.

USING

SINGLE

LOGICAL DRIVE
O

REPERTED

WORD O,

LOGICAL DRIVE

USES

FRoK sécu 5B LERSREYE,oUscg,
oM, da. BEL B IS48
IN ERCH OF THE SEVEN WRITE
?URR NT__2ZONES
ACH
S RFRCE
SECTORS
ARE WRI
N WITHIN
ISTINCT CYL NDE
BLOCK

THE FIRST 16 CYLINDERS OF ERCH WRITE

WRITTEN

LRTER_

OVERWRITTEN

CURRENT

PRSS

ZONE

DATA

DURING THE

OVERWRITE TEST. IN THE LARST 16 CYLINDERS OF ERCH CURRENT

CZR6QBO RKE& DR CPT PROG MACY1! 30(1046)
CZR6GB.P11

02-DEC-77

10:46

02-DEC-77

11:48

Dae

PRGE

(EXCEPT

THE

SEG 0016

676

6o
679

ZONE

INNERMOST ZONE)
COHPQTIBILITY DATAR IS
OFFSET
IN PRSS
2.
WITHIN EACH
BOTH THE ?VERHRITE AND COHPRTIBILITY CYLINDER

680

WRITTEN TO BE RE o

683
684

WRITTEN BY EACH DRIVE IS ROTATED SEVERAL SECTORS SO THAT OVER
ALL THE zonzs THE DATA APPEARS AT VARIOUS ANGULAR POSITIONS

687

WITHIN ERCH CYLINDER BLOCK

690

0,1,2,3,5,6,7,10,12,13, 14 15 17,20,21,22(0CTAL).

694
695

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

681

CURRENT

WITH

BLOCKS AR 20NE
IDENTICQLLY WRITTEN BUT FROM ZONE TO ZONE THE DATA

682

ggg

ON THE PACK

688
689

(DEPENDING
CYL INDER.

691

THE
THESE

NUMBER OF
sscrons

REMAINIAG' SECTORS, 4§11

ggg

SECTORS

RARE

WRITTEN

DRIVES BEING TESTED) ON EACH
ARE
ALWAYS
secrons

AND' 23

RRE

USED

SELF-TESTING IN PRSS 2 (sts éscrxon q.2).
ZONE
1, WHICH STARTS_ON CYLINDER 60,

£98
699
700

THE NU"'9ER OF THE DRIVE WHICH uarrss THAT
SECTOR.
TABLE D
SHOWS
IE BLOCKS un¥rrs Ev EACH OF 15 DRIVES.
IF ANY OF THE
DRIVES SHOWN ARE NOT PRESENT, HOWEVER,
THE
BLOCKS RESERVED

srnnrrfic SECTOR= SECTOR 0.

;85

HAS

THE

DRIVE

696

697

AND

FOR

ROTATING

H NUMBER INSIDE THE BLOCK IS

FOR THE MISSING DRIVES ARE SIMPLY NOT WRITTEN.

703

THE naove PQTTERN or SECTOR uaxrss

704

EACH

% TEN

FROM

ADDITION,

THE

707
708

ZONE INSURES THAT ovsnunxrs AND DATR COMPATIBILITY TESTING IS
DONE
AT
SEVERAL DIFFERENT ANGULAR POSITIONS WITH RESPECT T0

;?3

711

712

713
z{g
'

THE

BOTH

DARTA

EVERY ornc

ROTATION

THAT

705

706

DRIVE,

INSURES

nggn$§NTCYLINDERS TO DATA FROM

DIREC

€ SECTORS FROM CURRENT ZONE TO CURRENT

THE CARTRIDGE.

TEST
4 - DISMOUNTING OF

OPERATOR

UNLOADS

THE

TEST

DRIVE

CARRTRIDGE
AND

DISMOUNTS

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

PASS
THE

PACK,

PROCEED

THE
AS

WITH

cstoeo RK&E DR CPT PROG MACY1l 30(1046)

CZRBGB.P11

02-DEC-77 10:46

02-DEC-77

EO2

11:48

PAGE 18

SEQ 0917

716

71?7
718

353
721

722

9.2

DESCRIPTION OF PRSS 2 TESTS

IN PRSS 2.THE ABILITY OF

WRITTEN

ALL

EACH

DRIVES

DRIVE

COMPLETELY

OVERWRITE

DRIVES,

;gg

THE SEQUENCE OF OPERATIONS PERFORMED BY ERCH DRIVE 1S RS FOLLOWS:
1.

zgg
I'4

731

732
733

DATA

AND TO RERD DATA WRITTEN BY ALL OTHER

;ga

787
728

1S TESTED.

OTHER

TEST & MOUNTING
OF
TEST
CRRTRIDGE
FOR
PASS
2
THE
OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LORDS THE

HEADS, AS DIRECTED BY THE PROGRAM (SEE SECTION B8.5).
2.

734

TEST & - OVERWRITE TEST

TEST
THIS
nppnopnxnrs

OVERHRITTEN

735

DRIVE'S
CYLINDERS

NEXT,

THE

PROGRAM

PROCEEDS

ovsnunxrt
CAPABILITY.
IN TRBLE E FOR
THIS

ON EACH SURFACE.

USES

;gg

WORD

THE
ARE

THE DATA usso 1S
A REPETITION

OFA SINGLE WORD OF THE PRTTERN IN TABLE
G, LOGICAL

736

FIRST,
onxvs

DRIVE

LOGICAL DRIVE1 USES WORD I, LOGICAL DRIVE 10

USES WORD 10, ETC.

739

THEN, ERCH CYLINDER OVERWRITTEN 1S RERD BACK

740

WITH' THE

FOLLOWING RANGE OF OFFSET VALUES :

THIS

DRIVE

300,

741
742

400,
S00, 600, 700, 800, 900, 1000, 1100 tHE1200
nxénoxhcnss
IN 'ERCH’ OFFSET bxnscfxou t+ anp’ PROGRAF SCANS FOR

7H4Y

OCCUR

743

RERD ERRORS (DCK,HVRC,ETC.)

745
746
747
748

THE

DURING

THIS

RERD, = AN

ONE

PROGRAM’ oersnnxnss WHICH DRIVE'S DRTMA HAS NOT

BEEN
CORRECTLY OVERWRITTEN,
ANDA SCORE
FOR_ THAT DRIVE IS
DECREMENTED.
THEN,
THE 'TRANSFER
IS CONTINUED A~ THE NEAT
SECTOR
WITH THAT o#rser VALUE. THE READS ARE DONE WITH ALL
THE ABOVE OFFSETS RPPLIED. AND R SEPRRATE SCORE FOR EACH

749
750
751

DRIVE IS KEPT, WHILE THE CURRENT DRIVE IS PERFORMING THE
OVERWRITES. FOR EACH TRACK (0,1,2), SCORES ARE AVERAGED OVER
ALL CYLS TESTEE é" ACH orrssf OIRECTION. AT THE COMPLETION

753
754

DRIVES ARE CONVERTED AND STORED,
FOR PRINTI
PA
2 (RS DESCRIBED IN SELTION 10.2)

757

SUCCESSFULLY nsnoxnc THE

52?

ONE OR SEVERAL OTHER DRIVE'S DATA.

752

755
756

DRIVE’S

789
763

764

OVERWR}T

EST ON THIS DRIVE,

THE SCORES OF ALL THE

T
ACH

END OF
SCORE IS

PROPORTIONAL TO THE DEGREE OF OFFSET WHICH COULD BE APPLIED
IN A GIVEN OFFSET DIRECTION BY THE
CURRENT DRIVE WHILE

758

762

THE

DATR.

DATA IT WROTE OVER ONE OF THE

OTHER

THE PRINTOUT REVEALS WHICH DRIVES ARE

INVOLVED, INRSITURT!ON IN WHICH R DRIVE CANNOT OVERWRITE

TEST
7 - DRIVE SELF-TEST

DRIVE'S RBILITY

POSITIONS ON THE PACK.

THE PROGRAM NEXT

EVALUATES

WRITE AND RERD sz oun onrn

FIRST, SECTORS
d

THE

AT VARIOUS

AND 23 OF THE

765
766

APPROPRIATE CYLINDERS PATTERN
SHOWN' INSHOWN
TRBLE'F
#oa
THIS
DRIVE ALL
ARE
WRITTEN WITH THE DATA
IN
TABLE
B, FOR

769
770

800,
1000, 1100, 1200 MICRO-INCHES, IN Ench OFFSET DIRECTION.
THE pnocnhn SCANS FOR RERD ERRORS DURING ERCH READ,
AND I

767
7E€8
771

SURFACES.
THEN,
OFFSETS APPLIED :

THE
100,

sscroas ARE neno WITH THE FOLLOWING
200, 300, 400
6
T

COMPUTES

A SCORE WHICH IS PROPORTIONAL TO THE FAILING OFFSET

CZRGIBO RKE DR CPT PROG MACYI1 30(1046)

CZREGB. P11

02-DEC-77

10:46

02-DEC-7T

11:48

FO2

PRAGE 19

SEQ 0018

772

;7
A|

775
776

MAGGNITUDE.
THEN, THE SCORES FOR ALL 4 SECTORS RERD
CYLINDER
BLOCK
'ARE
AVERAGED,
T0
COME
UP
WITH

277

SELF-TEST SCORE FOR EACH SURFALE FOR EACH

;gg

THE COMPARTIBILITY DATA REARDS WHICH ARE TO FOLLOW.

778

781
782

THIS SCORE IS SAVED FOR LATER USE,

OFFSET

IN
THIS
A
DRIVE

DIRECTION.

TO BECOME THE STANDARD FOR

TEST 10 - COMPATIBILITY DATA READ TEST
HAVING ESTABL ISHED
A
SELF-TEST
SCORE
FOR
THIS DRIVE, THE PROGRAM PROCEEDS T0O

783

PERFORM THE COMPATIBILITY DRTR READS OF THE PRTTERNS

785

EACH COMPATIBILITY CYLINDER BLOCK SHOWN IN TRBLE
C IS RERD,

788

MICRO-INCHES. ' IN "EACH’ orrssr oxhecvrofi THE '+ ROGRRM SCANS

784

786
787

ALL

THE

CYLINDER
200, 300,

789

DRIVES IN EACH CYLINDER

WRITTEN

BLOCK (ON sncn SURFACE).

AT A TIME ron THE FOLLOHING OFFSET VALUES :
400, 500, 600,
000, 1100,

FOR RERD ERRORS DURING EACH

"READ

AND

ONE

100
1208

~OCCURS, TM THE

790
791
732
793

PROGRAM DETERMINES WHICH DRIVE’'S DATA uns BEING READ At THAT
INSTANT AND A SCORE FOR THART DRIVE 1S DECREMENTED.
THEN,
THE
TRANSFER 1S CONTINUED AT THE NEXT SECTOR, WITH THAT OFFSET
VALUE. THE READS ARE DONE WITH ALL OF THE ABOVE OFFSETS

795

THE CURRENT DRIVE IS READING THE COMPATIBILITY

794

APPLIED,

AND

A SEPARATE SCORE FOR EACH DRIVE IS KEPT, WHILE

DARTR., ’ THEN

796

EACH SCORE IS APPROPR QTELY ROJUSTED TO REFLECT THE SELF-TES}

799

BLOCKS.

797
798

SCORE FOR THE
BLOCK.
THE

800
801
802

EACH §cons IS PROPORTIONAL TO THE CAPABILITY OF

ggg

PARTICULAR DRIVE HAS DIFFICULTY IN READING THE onrq

OF ONE OR SEVERAL OTHER DRIVES.

TEST 11 - TYPE TEST SCORES AND DISMOUNT PACK IN
1HE OVERWRITE
THIS DRIVE ARE

UNLOADS

THE NEXT ORIVE.

THE

PRINTOUT REVEALS WHICH DRIVES ARE INVOLVED INA SITURTION

WHICH

804

807

ORIVE
AT
THAT
PARTICULAR
~CYLINDER
ARE
THEN AVERAGED
OVER
ALL CYLINDER

CURRENT DRIVE TO SUCCESSFULLY RERD THE DATA WRITTEN BY ONE OF
THE OTHER DRIVES, AND SCORES RRE COMPUTED SEPARATELY FOR EARCH
SURFACE
(TRACK),
FOR EACH OFFSET DIRECTION.
__THUS
THE

803

808
809

CURREN

THE

PARSS

AND _COMPATIBILITY DATA READ TEST SGORES FOR
CONVERTED AND
TYPED.
THEN,
THE
OPERATOR

DRIVE AND DISMOUNTS THE PACK AS'DIRECTED BY THE

PROGRAM (SEE SECTION B8.5), TO PROCEED WITH THE ABOVE STEPS ON

00 000D O D MO O Mm ®
PUNUN)
# 0 b pe pe —
N—~O WO £

CZR6G@B0 RKE DR CPT PROG MACY!1
02-DEC-77 10:46
CZR6QB.P11

823
824

30(1046)

02-DEC-77

10.0

11:48

GO2

PRAGE 20

SEQ 0019

PRINTOUT OF TEST RESULTS

THE TEST RESULTS ARE PRINTED AT THE END OF PRSS 2 ON ERCY DRIVE
BEING
TESTED.
T HESE
RESULTS
PERTRIN
TO
THE
OVERWRITE
TEST
AND
THE
COMPRTIBILITY DRTR RERD TEST.

10.1

OVERWRITE AND DRIVE COMPATIBILITY DARTA TEST RESULTS

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

RESULTS ARE PRINTED, SEPRRATELY FOR EACH DRIVE, AT THE END OF PASS @
ON THAT DRIVE. THE TEST RESULTS ARE TRBULAR IN FORM, AND CONSIST OF

READ scone§ FOR THE cuansnr ORIVE

DRIVES.
HE SCORES ARE
PERFECT SCORE = 12). ALSO,

Esxnc

ATA

NRITTEN

ALL

OTHER

CONVERTED ON THE BRSIS OF 12(DEC), (WITH A
THE SCORES ARE LISTED SEPARATELY FOR EACH

TRACK (SURFACE), FOR ERCH OFFSET DIRECTTIN, AND AN OVERALL AVERAGE FOR
ALL THREE TRACKS, ON THE CURRENT DRIVE, .S PRINTED.
IN THE FOLLOWING EXAMPLE,
TESTED
ARE
RO,AR1,R2,B0,

SHOWN BELOW:

THERE RRE 2_SYSTEMS, AND
THE
DORIVES
BEING
AND
BS.
THE TEST RESULTS FOR DRIVE Al ARE

SCORES FOR DRIVE Al

(0-12 DEC.)

TRAC

DRIVE

OVRWRT
SCORE
OFST-

SCORE
OFST+

0
0
0
0
8]

AD
SELF
A2
BO
BS

12
12
*® 7
11
9

1
1
1
1
1

A0
SELF
A2
80
BS

e
2
2
e
e

A0
SELF
A2
80
BS

NO.

RERD

OVRUWRT

READ

RERD

12
12
% b
12
12

12
1e
12
11
11

12
11
12
12
12

11
10
11
1e
12

12
12
11
9
11

11
12
12
9
12

12
12
11
12
12

12
12
9
12
12

12
12
11
12
12

SCORE
OFST-

SCORE
OFST+

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

DRIVES

AND R2.

[

POSSIBLE

COMPATIBILITY

NOTICE THRT ON TRACK 0,

PROBLEM

BETKEEN

THRT THE OVERWRITE SCORES

CZReQBO RKE DR CPT PROG MACY1l

CZREQ3.PL1L
SRy

870
1

:§

02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

HO2

PRAGE 21

E EN ??EPTRBL LOW (7 OR LESS), AND THE PROGRAM NOTED THESE BRD
ORE

ASTERISK (%),

SEG 0020

CZR6QBO RK6 DR CPT PROG MACY1l

CZR6GB.P11

02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

102

PRGE 22

11.0

ERROR REPORTING

11.1

COMMON ERRORS

SEQ 002!

THE FOLLONING IS A LIST OF COMMON ERROR MESSAGES WHICH RCCOMPAMY ERROR

DD OO DD DO DD O0DD
U 9= 02 Bt Bt et pms s e Pt e
- OWwONNCNLWU—-0OWw

[

TYPEOUTS
FROM
THE
SELF-EXPLANATORY.

RKO6 DRIVE COMPATIBILITY PROGRAM.

UNIBUS PARRITY ERROR

NON-EXISTANT MEMORY ERROR

NON-EXISTANT DRIVE ERROR

UNIT

SUBSYSTEM TIMEOUT

SERCON PARRITY ERROR

DRIVE DETECTED

RAC LOW

SPEED LOSS

FIELD

ERROR

PARITY ERROR

10.

ILLEGRL FUNCTION ERROR

11.

PROGRAMMING ERROR

12.

NON-EXECUTABLE FUNCTION ERROR

13.

DRIVE TYPE ERROR

14.

FORMAT ERROR

15.

WRITE LOCK ERROR

16.

DRIVE UNSAFE ERROR

17.

SEEK

18.

CYLINDER OVERFLOW ERROR

19.

ILLEGAL CYLINDER ADDRESS ERROR

20.

DRIVE OFF TRACK

21.

DRIVE TIMING ERROR

INCOMPLETE ERROR

THE ERRORS RRE

CZREG@BO RKE DR CPT PROG MACY11
CZR&GB.P11
02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

JO2

PAGE 23

2e.

DATA LATE ERROR

23.

CONTROLLER TIMEOUT ERROR

24.

OPERATION

es.

HERDER VRC ERROR

2b.

DATA CHECK ERROR

27.

WRITE CHECK ERROR

28.

DATA MISCOMPARE

a9.

NO DRIVE RESPONSE - UFE RAND NXD

30.

DRIVE ERROR WILL NOT CLERR

31.

DRIVE STARTUS CHANGE WILL NOT CLERR

32.

ATTENTION BUT NO STRTUS CHANGE OR FARULT

33.

ATTENTION BUT DRIVE NOT AVRILABLE

34.

ERROR WHILE GARTHERING DRIVE STATUS

3S.

MULTIPLE ORIVE SELECT

36.

HEADER COMPARE ERROR

37.

ERROR IN RECALIBRATE FOR RECOVERY

38.

CLEAR CONTROLLER DID NOT CLERR ERROR

39.

NO ATTENT
ION IN RTTENTION SUMMARY REGISTER

40.

UNSOLICITED ATTENTION

41.

UNEXPECTED DARTR TYPE ERROR

42.

ATTENTION DID NOT RESET WITH CLEARR

43.

SUBSYSTEM CLEAR DID NOT CLERR DRIVE ARTTENTION

HY.

DARTA LATE WHEN UNLORDING HERDER

4S.

CONTROLLER ERROR WHEN DRIVER SERVICING

46.

RETRY UNSUCCESSFUL

INCOMPLETE ERROR

BRD SECTOR ERROR ON SECTOR NOT LISTED BARD

SEQ@ 002

CZREQBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GE.P11
984
98S
986

0e-DEC-77 10:46

O02-DEC-77

11:48

K02

PAGE 24

ggg

11.2

989
990
991
932

ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FRILURES RESULTING
FROM ATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL RS CERTAIN ERRORS UNIQUE
TO PARTICULAR TESTS.
EACH ERROR PRINTOUT CONSISTS OF AN ERROR
DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HERDER L~
~S, COLUMN

993
994
995

gg%
998
339

igg?

ERROR HANDL ING

HERDINGS,
RAND COLUMNS OF REGISTER CONTENTS IN OCTAL.
AS __MUCH
MEANINGFUL REGISTER DATR RS POSSIBLE (FOR EXAMPLE, RK611 GISTERS)
AKE REPORTED IN A GIVEN ERROR. OTHER ERROR REPORTS MAY CONSIST OF A

SINGLE DESCRIPTIVE LINE.
11.3

ERROR PRINTOUT EXAMPLE

iggg

¥* WRITE CHECK ERROR

1004

PREVIOUS COMMAND:

100S
1006
=t Pt Pt bt Pt Pt Pt P
9= Dt

00000000000
0=t Be Pt s 2 s e 92 b= (D )
oNCN
LW
ODD

1007

SEG 0023

DRIVE
000000

HI BA
000000

CMND
ooolel

LO BR
061566

CURRENT COMMAND:

ERR PC
O41154

HI BR
000000

DRIVE
000000

LO BR
061566

CYLNDR
000016

TRACK
00c001

CMND
000131

CYLNDR
000016

PACK ADDRESS OF ERROR(S):

CYLNDR

000016

TRACK

000001

SECTOR
000006

SECTOR
000000

TRACK
000001

WD _CNT
175000

SECTOR
000006

WD CNTM
175000

CZR6GBO RKG DR CPT PROG MACY1l 30(1046)
e [y
e
P
P
e Pn Pt o
s
st ot Pt Bt
Pt
et Bt Bt Bt

O00000000000000000 O
W
W WWJWww
RV —
NN LW—0OWVOoONTONLW—0O O

CZROGE.P11

iggg
1040
s
1042
1043
1044
1045
1046
1047

1048
1049

1050
1051

1052
1053
1054
1058
1056
1057

1058

D2-DEC-77 10:46

02-DEC-77

11:48

PAGE 25

SEQ 0024

TABLE

DRIVE

NO.

CYLINDER

SECTOR

RKO&/RK0O7
meeeecee-

0
1

620/ 1444
6207 1444

0
e

620/ 1444

2
3

620/ 1444
620/ 1444

520/ 14494

4
b

12
14

6520/ 1444

11
1e
13
14
15
16

2271446
62271446
62271446
622/ 1446
62271446
622/ 1446

e
Y
6
10
12
14

622/ 1446

CZR6QBO RKE DR CPT PROG MACY11l 30(1046)
CZR6GQB.PL1
02~-DEC-77 10:46

02-DEC-77

11:48

MO2

PRAGE 26

1067

WORD NO.

DATA (OCTAL)

= Q=00
00
oUWV L—=WO L0~ 0)
L=
LO—WNO

NoOnsEwh—-oNeCN

L
Y WU

m®

07s

TABLE B

SEQ 00es

CZREQBC RKE DR _CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77

10:46

02-DEC-77

11:48

NO2

PRGE 27

SEQG 0026

1094
109S
1096
1097
1098
1099
1100
1101
1102

TRBLE C

{{82

CYLINDER BLOCK RSSIGNMENT FOR A G1“EN SURFACE

iwes

1107
1108
1108

1110
1111

i*ig

CURRENT

OVERWRITE CYL

COMPATIBILITY CYL

ZONE - RANGE

BLK RANGE (OCT)

111%
1116

1 - CyL 0=77
e - 169-177

CyL 0-17
100-117

cyL 60-77
160-177

1118
1119
1120

4 - 300-377
S - 400-477
& - 500-577

300-317
400-417
S00-517

360-377
460-477
S60-577

1124

1117

i}gé
1123

3 - 200-277

200-217

7 - 600-632

600-617

- CYL 0-177

cyL 0-17

1124

e - 200-377

200-217

11e7

5 - 1000-1177

1000-1017

11eS
1186

1128
i{gg

3 - 400-577
4 - 600-777

6 - 1200-1377
7 - 1400-14Sk

400-417
600-617

1200-1217
1400-1417

BLK RANGE

(OCT)

260-277
---

CyL

160-177

360-377
S60-577
760-777

1160-1177

1380-1377
-—-

ROTATING
STHRIING

SECTOR

SECT O
3

RKO&
RKO6

RKO6

RKO6&

13
17
e

RKO6
RKO6
RKO6

SECT O

RKO?7

RK3?

7
13

RKO?
RKO?7

ee
0

RKQ?
RKO?

RKO?

0]e13627et54—5725310
—35r“67i—t260—tt135712q02713025245ee7t1t350“45-3'
.10b32I.—65/21175“40”35435“76231565032“107O

TOU—~124730656037

gDNfUO=0vUfo=LNefloOelDI2S]WT~olNU)eCMoNIStUT=StO5N~=WoUO7=f§N0B=fMGomNe]fOT=oDlO=oUDoeOVol4DoNteDt>OomTemf)ToNT52O4T=)ToCMOT=4IOoTv)TolI—TfoT~o)o2=dUl2oTtMoloT0=lo~lUoM=ogT8l
vo
’

]

)

i
i
i
i

251543451520-1

]

SECTOR NUMBERS

e
3
5
10

1
7

1?7
11

16
6

0
5
3
2

3
s
&
?

—

USE CYL

ety —_—t

(SHOWN FOR RKO6,

ettt —_

CYLINDER
NUMBERS
(OCTAL)

TO6NU1M—5U723—0~0T75MUNO
5D0O265T01~3674T3
7qa02l—6~. t—3at=u1.T0aFlOa1Uo3M.U6bI2sMR?aNL5mO4nT)N

11:48

ot ot
ot
=g ot ot

02-DEC-77

eo
y

CZR6QBO RKE DR _CPT PROG MACYl1 30(1046)
CZR608.P11
02-DEC-77 10:46
PAGE 28

BO3
SEQ 0027

TABLE D

BRSIC CYLINDER BLOCK LAYOUT EXRMPLE
160-177 FOR RKO?7)

(OCTAL)

10
12
13 14
14
15
15

17
17
20
20
a1
21
ae
a2

7
10
11

12
13
14
15

18
16
16

[y—

=QWm(MeKN)=FON4r~OoItU—reofMUtorlTMYotWlTISoLrUltIoOVlYtNeOrtIQN)rIIImxIg(-T@t]ImT“w@|nmZi"@WQW(iil&)"muI
U=38L2o83M8520M0In-a4N15-11 oWt1ios[}t

VOD]V14V1OTaY~e0BTeLeNOeTNeRUTeNeeMLTeeD—e~R—OLLee~eLNeRUDLONeeMTeLUeTDCDOL+RRRRNIOeeOeoeeNkeoLbDeeeCbbbl

1203
1204
1205
1206
0
0
o

30(1046)

02-DEC-77

DRIVE

NOTE:

11:48

THE RBOVE TRBLE GIVES C
REFER FOR TRBLE C TO
NUMBERS FOR AN RKO?

LZo QOO~—~U—tM—Tt—NO—NO00A0QTD UM

O—UMTNONNVO—~UMT
==Qg4~vUggg MToo=IfelNoo=tlDiotlOoNo=t Nv OoNl oU=MeT Oo o~)

CZRb@BO RKE DR CPT PROG MACY11
CZR6QB.P11
02-DEC-77 10:46

PAGE 29

CO3

mo=XTWtit

SEQ 0028

6&66

CZR6ABO RKe DR CPT PROG MACY11l 3011046)
CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

11:48

D03

PRAGE 30

SEQ 0029

1210
1211
1212
1213
1214
}ais

181%
1218

TRBLE F

1218
1220

1221

1222
1223

mememee

SELF-TEST CYLINDERS

1552

iggg

emeeemmemmene
e

DRIVE @

1228

CYLINDERS (WHERE SECTORS 4,11,16,23 RRE TESTED)

1829

80, 160,260, 360,460, 560

1832

sa.xsajggg,ggs.ugg.ssa
’

’

1233
1234
1235
1236
1237
1238
1239

4
g
6
7
10
11
12

b4, 164,264,
H,flbfl,é&fl
65, 165,965, 365, 465, 565
66, 166,266, 366, 466, 566
67, 167.267,367,467,567
70.170,270. 370,470,570
71.175,
71, 71.471.871
72,17
2.372,472.572

1241

4,1 5

ig:g

1240

1242
1843
1246

1247

1248

15
16
NOTE:

73,173,273 373 473 573
74

5,175
75 w7s 75
7s,1 275 376,476,576

7.177.277.377.477,527

THE ARBOVE TRBLE GIVES CYLNDER NULMBERS FOR THE RKOG.

REFER TO TABLE C T0 oarnxn CORRESPONDING CYLINDER
NUMBERS FOR THE RK0O?7

CZR6QBO RKE DR CPT PROG MACY1l

02-DEC-77 10:46

02-DEC-77

11:48

EO3

PARGE 3!

SEQ 0030

Pt et Pt Bt P

s Pt Pt Pt Pt et Pt

s PP

RN
R DD o
oo o oI nL
W OWONON LWy oY

CZR6GB.PI11

30(1046)

TRBLE

1265
iee¢
1267
1268
1269
1270
1271
1272
1273

WORD &
esse=a

DATA (OCTAL)
ececccecacce--

0
1
e
3
Y
S

04013S
177070
070414
0e4531
174473
oeevee

1275
1276

7
10

036620
010031

1278

1274

1277

12739
1280
1281
1282
1283
1264

14
1S
16
17

114352

052336
01731

011347

102367
152567
001246
160073

CZR6QBO RKEe DR CPT PROG MACY11l
CZREGB. P11
02-DEC-77 10:46
1285
1286

3011046)

02-DEC-77

11:48

FO3

PAGE 32

.NLIST MC,MD,CND

1287

LIST

.ENRBL

mME

1288
1289
1290
12891
1892

;#x% REV 003 #»#

}Sgs

‘48TTL

STARTING ADDRESSES

1298
1299
1300

i #
‘a

200
204
220

1533
12995

YYIEI2Y 2SS

YT YIS

Y L

DEFAULT PARAMETERS AND RUN PRSS 1 AND PASS 2
SELECT PRRAMETERS AND RUN PRSS
1
SELECT PARAMETERS AND RUN PASS e

;e
224
MEMORY DUMP ROUTINE
HIHX 2222222222222222222X2222X222XX2XX22X22X2X2X22XT2XTTII2TETL
LS

|=]
un

1301
1302
1
13 o4
13
13 06
1307
1308

ABS, AMA

X222

SEQ 0031

pgoocol

1309
igi?

(C)

1977

lPROGRQH BY DAVE HOFFMAN

igig

160000

1319

163000

igg?

? £ CZR6GBO RK6 DR CPT PROG

IDIGITQL EQUIPMENT CORP.
iHQYNQRD MASS. 01754

igig

1314
igig

STN
LTI
lCOPYRIGHT

lTHIS PROGRAM WAS ASSEMBLED USING THE PDP- ll MAINDEC SYSMRC
!PRCKRGE (MRINDEC~-11-DZQARC-C3), JAN 19, 1977.

*SNR=160000

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

$SWR=163000

.SBTTL

OPERATIONAL SWITCH SETTINGS

1322
1323
1329
1325
1326
1327
1328

X
'
x
I
;%
i
;%

SWITCH
Zo22ll
15
14
13
12
10

1330
iggé

;%
R ]

8
7

1329

1333
1334
1335
1336
1337
1338
1339
1340

¥ ]

.SBTTL

001100

_EQUIV

.EQUIV

ON ERRORS

LOOP ON ERROR

APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF’'S) AT START

BRSIC DEFINITIONS

®#INITIAL flgDRESS OF

&TACK=

USE
emcmmmeaciccceceeeeHALT ON ERROR
LOOP ON
ST
INHIBIT ERROR TYPEOUTS
REPORT DESCRIPTION ONLY,
BELL ON ERROR

116

EMT, ERROR

10T, SCOPE

THE STACK POINTER %%

1100 %%x

:BASIC DEFINITION OF ERROR CALL

..BQSIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS

177774
177772
177570
177570

DSWR=
ODISP=

ko=

177774

177570
177570

Rl=
R2=
R3=
RY=
RS=

%1
%2
%3
74
%5

SP=

PURPOSE

%b
%7

. *PRIORITY LEVEL

PRO=

)
Y
Y S
e oy

177772

STKLMT=

PC=

000340

100000
040000
020000

Y e

T ey ey e

PIRG=

e
o
el
—I

12
15
200
177776
PS,PSW

. xGENERAL

000000

W WG W
W W LWL W
(Wt (W) W () L) () L) G G ) L) G LW ) () (W L G (W W W () W
W W
W
DD D ODDODMOMMEO@MOMODM
N NNNMNNNINNNYNO OO
NIN nnnnygin n
o LW~ OO0DNCNILW~ODONTNLWN—-O0ONCN L£W—OWDm N
L Whys- o

Y Sy Sy Uy iy WPy Py Py Wiy Sy WDy Uy Sy Wy ey

177776

mT=

LF=
CR=
CRLF=
pS=
EQUIV

000001

PRI=
PR2=
PR3=
PRY=
PRS=
PR6=
PR7=

40
100
140
200
240
300
340

GO3

PAGE 33

SEG £032

:;CODE FOR HORIZONTARL TRB

; ;CODE FOR LINE FEED
; ;CODE FOR CARRIAGE RETURN

; ;CODE_FOR CARRIAGE RETURN-LINE FEED

; ; PROCESSOR STATUS WORD

;;STACK LIMIT REGISTER
; ; PROGRAM INTERRUPT REQUEST REGISTER
; s HARDWARE SWITCH REGISTER
; ; HAROWARE DISPLAY REGISTER
REGISTER DEFINIT I10NS
. s GENERAL REGISTER

. : GENERAL
: ' GENERAL
: ' GENERAL
: GENERAL REGISTER
;s GENERAL

,,§§QCK ?o

; ; PROGRAM
DEFINITIONS

: PRIORITY

D PRIORITY
D IPRIORITY
P IPRIORITY
s CPRIORITY
: 'PRIORITY
P PRIORITY
: 'PRIORITY LEVEL

- %"SWITCH REGISTER” SWITCH DEFINITIONS

SwiS="

SW14=
SWi3=
SWl2=
SWli=
SW10=
SW09=
SWo8=
SW0?=
SWoe=
SWOS=
SWo4=
Swo3=
SWge=
SWol=
SW00=
JEQUIV
CEQUIV
"EQUIV
"EQUIV
"EQUIV
"EQUIV

100000

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SwQ9,
SwW08. 5u8
SW07.SW7
SW06
. SWE
. 3SWS
SWOS

. SWY
SWOY

NN LW—-O

000011
000012

11:48
02-DEC-77
BASIC DEFINITIONS

1341

30(1046)

m
<
m

CZR6QEBO RKE DR CPT PROG MACY11l
CZR6GB.PI1
02-DEC-77 10:46

¢gREIBO RK& DR CPT PROG MACY1: 30(1046)

EIREOB.PII

03-DEC-77 10:46

02-DEC-77

BRSIC DEFINITIONS

1397

EQUIV

{:Qg

BBy

igqe

.Eofiix

1402

1403

100000

11:48

SWO3,SW3

2liBh: ah

100000

i:Oq

§30000

ex¥iq=

3§§§§

1407
1408
1409
1410
1411
1412
1413

004000
002000
001000
000400
000200
000100
000040

BITII=
BITi0=
BITOS=
BITO8=
BIT07=
BITOb=
BITOS=

4000
2000
1000
400
200
100
4O

1415
1416
1417
1418
1419
(420
1421
1422
1403
1424
1425
1426
1427
i:gg

000" 10
00C 04
000002
000001

BITO3=
BITO2=
BITOI=
8IT00=
.EQUIV
JEQUIV
"EQUIV
"EQUIV
"EQUIV
"EQUIV
"EQUIV
'EQUIV
JEQUIV
"EQUIV

{482

78823

1414

000020

1430

888
i4
000014

1436
1437

1435

1444
1445
1446
1447

10
4
2
1
BITD9,BITS
81T88,BIT8
BITG7.BIT?
BIT06.B1T6
BITOS.BITS
BITO4.BITH
BIT03.BIT3
BITO02.8IT2
BITOI.BITI
BITO0'BITO

I0TVEC= 20
PWRVEC= gq

INPUT/OUTPUT TRQP (IOT) %%SCOPL*»
: POWE

000240

PIRGVEC=240

000000

i:gg

000174
000174

000176

TRAP VECTOR nooREssss

000020
000024

BPTVEG=

0000CC

000000

!BREAKPOINT TRAP

EMTVEG= 30
TRAPVEC=34
TKVEC= 60
TPVEC= B4
.SBTTL

1448
1452

"R§§
5
,,TRncs TRAP

000030
000034
000080
000064

i::g

i4S1

BITO4=

TE?TV
Cc=14
TRIVEC= 14

000014

1438
1439
1440
144]

(BITOO TO BITIS)

BiTi3s ¢

;¥BASIC “CPU"

wgg
1434

SEG 0033

gfioa é”

. %DATA BIT DEFINITIONS

BIT1S=

HO3

PAGE 34

(BPT)

EMULRTOR RRP (EMT) *¥ERROR¥
¥
!“TRAP* TRA
STTY szeonno VECTOR
,,TT PRINTER VECTOR
! 'PROGRAM

INTERRUPT REQUEST VECTOR

TRAP CATCHER

=0
s ¥ALL unusso LQCATIONS FROM
4 - 776 CONTAIN

.42 HALT

)

! xSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

*LOCRTIONlfl CONTAINS O TO CATCH IMPROPERLY LORDED VECTORS
DISPREG:

SWREG:

.WGRD

.WORD

: SOF TWARE DISPLAY REGISTER

! SOFTWARE SWITCH REGISTER

RSOBO

RK&

EIREOB P11
1453

1454
1455
1456
1457
1458
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471

1472
1473
1474

000200

_CPT

PROG

OB-DEC-7%

000220

000137
000204
000137
000220
000137

000224
000226

000700
001100

000204

1498

10:4

012176

30(1046)

103

02-DEC-77
11:48
PAGE 3S
STARTING RDDRESS (ES)
.SBTTL

STRARTING ARDDRESS(ES)

JMP

LC0046
0000S2

000230
000046
017264
000052
140000
000230
001600

d8DFSTRT

. =204
JMP
=220
P

S#P2STRT

..LOW:
..HIGH:

.WORD
.WORD

700
1100

.SBTTL

RCT11

012204

012227

BRI

1475

1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497

HQCYél

;s JUMP TO STARTING AOUDRESS OF PROGRAM

8P ISTRT

HOOKS

hooxs Rggu;gso BY RCTI!

"WORD__

.=85VPC

I I3 A

B33 I 3

2 3 3 3 2 3 % 2 3 % 3% % %

; SAVE PC

SENDRD

.SBTTL

SEQ 0034

;3 1JSET LOC.45 TO ADDRESS OF SENDRD IN .SEOP

140000

,,EJSET LOC.S2 TO 140000

.=1000
APT PARAMETER BLOCK

RESTORE PC

< 3636 3 36 36 36 26 36 36 36 3t 36 38 36 36 36 36 3 3 36 36 96 3 36 36 36 3 3% 36 36 36 36 3 3 36 2 3 36 3 36 3 3 3 3 3 36 36 3 3 3 36 3 3¢ 38 3 3 3 3 3 3 3 3 %

ésr LOCATIONS 24 AND 44 RS REQUIRED FOR RPT
000024
000044

001000
001000
001002
001004
001006
001010
001012

001000
000024
00G200
000044
001000
001000

000Q00
001330
001320
001546
001546
000030
120210
177940
000377

!Illll!l!i!lil!ll!!!l!l!lll!!illll*liilllll!llI*ll*li!!lli!lill

.8X=.

; » SAVE _CURRENT LOCRTION

200

; ;FOR RPT STAR

. =24

,,SET POWER FRIL TO POINT TO START OF PROGRAM
uP

SQPTHDR
$X

; sPOINT
TO RPT INDIRECT ACDRESS PNTR.
;,POINT TO APT HERDER BLOCK
RESET LOCATION COUNTER

.WORD
.WORD
.WORD
.WORD

O
SMAIL
1320
1546

NN R RO
OO
XN
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1l DIAGNOSTIC
: INTERFACE SPEC.
$APTHD:

SHIBTS:
gMBADR:
§TSTM:
$PASTM:

SUNITM: .WORD
WORD

AVECT1=120210

ABASE=177440
ADEVM=000377

;; TWO HIGH BITS OF 18 BIT nnlLeox noon
;:ADDRESS OF APT MRILBOX (BITS O,,RUN TIM OF LONGEST TEST
'RUN TIME IN SECS. OF 1ST PRSS on 1 UNIT

(QUICK VERIFY)

1546
:ADDITIONAL RUN TIME (SECS) OFA PASS FOR EACH ADDITIONAL UNIT
SETEND-sfith/a ; sLENGTH_MAILBOX-ETABLE (WORDS)
'RKVEC=210,

RKPRI=S

'RKBRS ADRS
:SET DEVICES 0-7 IN MAP

CZR6QBO RK6 DR CPT PROG MACYL1l
CZR6GB.PI11
De-DEC-77 10:46

30(1046)

02-DEC-77

COMMON TRGS

iggg

.SBTTL

150¢

;

igga

1505

1506

001:00

1508
1509

001102
001103

1507

2TH

; BUSED

001100

SCMTAG:

001100

000000

000
000

STSTNM:
SERFLG:

1512

001110

000000

1815
1Sie

001118
001116

1519
1520
1521
1522
1523

001l24
001126
001130
001132
001134

11:48

JO3

PAGE 36

SEQ 0035

COMMON TRGS

THE

NTAINS

PROGRAM.

.=1100
.WORD

; ; START OF COMMON TAGS

.BYTE
.BYTE

O
O

; sCONTAINS THE TEST NUMBER
; s CONTRINS ERROR FLAG

SLPERR:

.WORD

; s CONTRINS SCOPE RETURN FOR _ERRORS

00l
000000

SERMAX:
SERRPC:

.BYTE
.WORD

1
O

; sCONTRINS MAX. ERRORS PER TEST
; ;CONTRINS PC OF LARST ERROR INSTRUCTION

SGDDAT:
$BDDAT:

000888

$AUTOB:

.WORD
.WORD
LWORD
.WORD
.BYTE

O
O
O
O
O

; ;CONTRINS 'GOOD’ DATR
; s CONTRINS 'BARD’ DATA
; ; RESERVED--NOT T0O BE USED

88}}32

000000
000000
000000
000000
000

1526
1627
1528
1529
1S30
1531
1532
1533
1534
1835
iggg

001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160

177570
177570
177560
177562
177564
177566
000
002
gle
000
000000

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
SFILLS:
.BYTE
SFILLC:
.BYTE
STPFLG:
.BYTE
SREGRD:
.WORD

DSWR
DOISP

O
2
12
O
O

; ; ADDRESS OF SWITCH REGISTER
; ;ADDRESS OF DISPLAY REGISTER
;5 TTY KBD STRTUS
;3 JTY KBD BUFFER
;3 JTY PRINTER STATUS REG. ADORESS
;3 TTY_PRINTER BUFFER REG
ADDRESS
; ;CONTAINS NULL CHRRACTER FOR FILLS
,;CONTR%NS 8 OF FILLER CHARACTERS REQUIRED
; s INSERT
FILL CHARS. AFTER A
“LINE FEED
;3 TERMINAL RAVAILABLETM FLAG (BIT<07>=0=YES’
,;EaggalN?s;ggo?ofiggsgagg?nso

1538

001162

SREGO:

: iCONTRINSTM ( (SREGARD)+0)

{ggg

1539
1S40
1541
1542
1543
1844
1545
1846
1547
1S4
1549
1550
1€€1
1852
iS53
1SS4

0011le4
001166
001170
001172
001174
001176
001200
001202
001204
001206
Q01210
001212
00i2i4
001216
001220
001222

000000

000000
000000
000000
000000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0000Co

$INTAG:

SREGI:
SREGe:
SREG3:
SREGYH:
SREGS:
SREG6:
SREG?7:
SREGIO:
SREGl1l:
SREGI2:
SREG13:
SREGI4:
SREGLIS:
SREGL6:
$REG17:
$REG20:

Bg;g

WORD

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

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

; ;AUTOMATIC MODE

NDICATOR

; ; INTERRUPT MODE INDICATOR

; s CONTRINS
; ;CONTRINS
; s CONTRINS
; ;CONTAINS
; s CONTRINS
; s CONTRINS
; ; CONTRINS
; s CONTAINS
; ; CONTRINS
; ;CONTAINS
; sCONTARINS
; ;CONTRINS
; ;CONTAINS
; ;CONTARINS
; ;CONTARINS
: : CONTAINS

((SREGRD)+2)
((SREGRD)+4)
((gREGRD)+6)
((SREGRD)+10)
((SREGRD)+12)
((SREGARD)+14)
((SREGRD)+16)
( (SREGRD)+20)
((SREGAD)+22)
((SREGRD)+24)
((SREGARD)+26)
((SREGARD)+30Q)
((SREGARD)+32)
((SREGRD)+34)
((SREGRD)+36)
((SREGRD)+40)

D1S
0ooo1e

RSCIZ
ASCII
.ASCII
.RASCIZ

e 173

I
1
I
1
I
I
1
1N
1N
IN
IN
IN

M Ammmmmmmn

REGARD) +42)
REGRD
) +44)
REGARD) +46)
GAD) +50)

REGRD)+76)

1N
1N
; ;ESCAPE ON ERROR ADDRESS

«207><377>¢377>

:;CODE_FOR BELL

(12>

: JCARRIARGE RET URN
::LINE FEED

vy
<15

+
N
£

GAD)+52)
GAD) +54)
GAD)+56)
GAD)+60)
GARD)+62)
GAD) +64)
GAD) +66)
GRD)+70)
REGAD)+72)
[24
D
O

zZ22Z
=z
Fornrhdhe

22Z22ZZZ~~
NI
I
o 7 72 ~——
o o o v o 1 72 ~——
e o~

j=ielvlolelelolelelelolelolal”
TV 17 TV TV TV TV TV BAAAA AR

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

; ; CONTRI

el b

.WORD
.WORD
.WORD

; ; CONTARINS
; ; CONTRINS
; ; CONTAINS

MNP

000377

$TMPl:
$TMP2:
$TMP3:
STMPY:
$TMPS:
STMPG:
STMP7:
$TMP10:
STMP11:
$TMPl2:
STMP13:
$TMP14:
$TMP1S:
SESCA
SBELL
$QUES
SCRLF
SLF:

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

SEG 0036

mhmhammmTm el

SREG31:
SREG32:
SREG33:
EG3Y:
SREG3S:
SREG36:
SREG37:
$TMPO:

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

KO3

PAGE 37

atatitutatatatata

SREG21:
SREG22:
SREG23:
SREG24:
SREG2S:
SREGE6:
SREG27:
SREG30:

00000

11:48

C
["2]
m
p

0Q0lea4
001226
001230
12
001234
001236
001240
00lie4e
00le44
001e46e
0012
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001324
001325
001326

02-DEC-77
COMMON TAGS

00000000000 00000000O0D0O0DDO00OD

1555
1556
1557
1558
1559
1560
1561
1S62
1S63
1Se4
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1578
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
159¢
1593
1594
1595
1596
1597
1598
1599
1600
1601
102
1603
1604
1605
1606
1607
1608
i608

30(1046)

= ZR6GBO RKE& DR CPT PROG MARCY!1
02-DEC-77 10:46
L R 660B.P1!
~

: 'QUESTION MPR K

-iill*llll**!li!l!llllllililll!ii!*!llll*l!*ll!lli!l*ll!*i!*l!i*

$BTTL

APT MAILBOX-ETRBLE

s o 3630336369 3 96 3 36 36 36 36 36 36 3 36 3 3 36 3 36 36 o 36 36 3 36 36 3 36 3 Bk 3 3 36 3 36 36 30 3 36 36 36 6 3 3 3 36 36 96 3 3 96 3 3 3 3 2 3 £ 2 %

001330
001330
001332
001334
001336
001340
001342
001344
001346
00130
0013S0
001351
001352
0013SH4
0013S6

"EVEN

000000
000000
000000

000000

SMA]IL:
gMSGTY:
$FATAL:
§TESTN:

AMSGTY
AFATAL
RATESTN
APASS
RADEVCT
AUNIT
AMSGARD
AMSGLG
AENV

; ;ARPT MRILBOX
; ;MESSAGE TYPE CODE
; s FATAL ERROR NUMBER
;s TEST NUMBER
; s PRSS COUNT
; s DEVICE COUNT
+3 170 UNIT NUMBER
; ;MESSAGE RDDRESS

; ;MESSAGE LENGTH

; ;APT ENVIRONMENT TABL 13
; ; ENVIRONMENT BYTE
; ; ENVIRONMENT MODE BIT S
:;APT SWITCH REGISTER

000000

; s USER_SWITCHES
: :CPU TYPE,OPTIONS

817s 1S-11=CPU_TYPE

11,04=01,11~05=02, 11-20=03,11/40=04, 11,45=0S

CZR6QBO RKe DR CPT PROG MACY!l 30(1046)

1612

1613
1614

1615

1616
1617

02-DEC-77

11:48

APT MAILBOX-ETABLE

PAGE 38

¥
001360

001361

000

ooc

1618
1618
1620

1621 001362 000000
1622
1623 001364
000

1624
1625
1626
1627
1628
1629
1630

001365
001366
001370
881 75
1372
001374
001375

1634

001404

1636

001410

000
000000
000
000
000000
000
000

SEG 0037
11,70=06,P0@=07,Q=10

L 3

02-DEC-77 10:46

[

CZR6@B.P11

LO3

BIT 10=REAL TIME CLOCK

‘e
‘¥

$MAMSL1: .BYTE

AMAMSI

BIT
BIT

9=FL09TING POINT PROCESSOR
B8=MEMORY nnnacsns

; ;HIGH ADDRESS,M.S. BYTE

§MTYP1: .BYTE
¥

AMTYPI

snnonxz .WORD
imnnsa: .BYTE

AMADR1 ;;HIGH ADDORES
"MEM.LAST ADDR. -3 avrss THIS WORD AND LOW OF “TYPE” ABGVE
AMAMS2 ,,HIGH ADDRESS,M.S. BYTE'

¥
X

MEM. TYPE,BLK#i
héM.TYPE BYYE
--

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
88 geg
nos 003

SMTYP2:
$MADR2:
{MAMS3:
MTYP3:
MADR3:
g§MAMSY:
SMTYP4:

(BYTE
.WORD
.BYTE
.BYT
.WOR
.BYTE
.BYTE

AMTYP2
AMADRZ
AMAMS3
AMTYP
AMADR
AMAMSY
AMTYPY

| iMEM.TYPE,BLK ke
;;MEM.LAST’ noonsss BLK #2
,,HIGH ADDRESS
, M.S. JYTE
‘MEM. TYP 35
Kd3’
,,nsn LAS
oness BLK#3
;:HIGH RDDRESS,M.S.BYTE
:;:MEM. TYPE,BLKl4’

sense

.WORD

ABASE

;:;BASE RDDRESS OF EQUIPMENT UNDER TEST

{2l
saiace gomnee
123 8 1483 558568

EON:
LR HEOR
IR RS
et
sz : .WOR
nvEcr ' INTERRUPT VECTOR#28US PRIORITY#2

1635

§DEVM:

001406

(77440

000377

SETEND:

.WORD

ADEVM

':DEVICE
MAP

CZRBQBO RKE6 DR CPT PROG MACYLll
CZReGB.P11
J2-DEC-?7 10:46

30(1046)

MO3

11:48
PRGE 39
02-DEC =77
ERROR POINTER TRBLE

.SBTTL
; ¥THIS

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

et Pt Pt Pt Pt Pt et mn e

8‘_‘0‘0"0‘0"0‘0"0"6‘0"0‘0‘0‘6‘0‘0‘0‘

oo
oo Lol
al i aloal Al o
foafoadealsalealealo
gJ Ty}
[T TaLUATVATVATTALY
) IV o i o ogll o 3 ¥ o
N LwWwh—0Ww MNOCNLWN—OWD NN
L W

B Bt Bt Bt et Bt Gt Pt Pt Pt Pt P Pt Pt et et Pt ot Pt Pt Dt Pt P

oocooocooooooo

0038

ERROR POINTER TARBLE
TABLE

CONTAINS

THE

INFORMQTION FOR

EACH

ERROR

THAT

CAN OCCUR.

:ESER‘}?SRR;‘?HS%I?H?S;EEJ%ER
InBTeafel
it Che TrEN TN THE TRGLE 15 PERTINENT.

1641

678

SEQ

P %NOTEL:

: ¥NOTE2:

EACh

THE ONLY PERTINENT DATAR IS (SERRPC
ITEM IN THE TABLE CONTARINS 4 POINTERS EXPLRINED AS FOLLOWS:

; ;POINTS TO THE ERROR MESSAGE
,,POINTS TO THE DQTQ HEADER
.POINTS TO THE DAT

.POINTS TO THE DRTQ FORMRT

$ERRTB:

o4S417
gsosle
052276
052406
045443
0s0sie
052276
052406

;UNIBUS PARITY ERROR

;s NON-EXISTANT MEMORY

; NON-EXISTANT DRIVE

001436

045467
0sQosie
052276
052406

001440
001442
00144y
001446

Q4ssle
0s0sie
052276
0S2406

001450
001452
001454
001456

045533

001460

045552
gsoslie
052276
052472

;D TO C PARITY ERROR

045576
0s0s1ie
0S2276

;DRIVE DETECTED PARITY ERROR

;UNIT FIELD ERROR

; SUBSYSTEM TIMEOUT

052436

CZR6Q@BO _RK6 DR CPT PROG MAC Y11l
CZR6GB.P11
02-DeC-77 10:: 46

nnnan
0000
oLrno

[yt

oooCcCo
0000

g S U

NN NN NN NINN NN N NN NN NNNNNNNNNNNNIN NNNNNNNNNNNNYNOT
£ L£L£L£LWWWWWWWLWLELWNNINANNNY AL Lt Ve
e
e et o S T s ] 000000000
wW
LW
OO0OMNCWN LW
OWVo N NEWN—-O0WVO
NN LWN—OWVO NN LW~ OO0

001476

045632

S G S

NO3

11:48
PRAGE 4O
02-DEC-77
ERROR POINTER TRBLE

SEG 0033

DFO3
;ERROR

:ERROR

;ERROR

;AC LOW

0S243e
045641
gs0s1e
0se2276
052436

001526

g456S4
050S1e
052276
0S2436

001530
001532
001534
001S36

045675
0s0s1e
052276
052406

Y U S
Y el o) o oy oy Uy Py Ny Ny Ny iy Dy i O
Y e e e e e
Y e o
Y ey e e
Lt

gs52472

30(1046)

Q45717
0sgsie
052276
052436

045745
0s0Sie
052276
052436
045766
0sgsie
052276
052436
046003
gs0sie

;ERROR 14

.ERROR

;ERROR

;ERROR 17

; SPEED LOSS

; ILLEGAL FUNCTION

; PROGRAMMING ERROR

; NON-EXISTANT FUNCTION

;DRIVE TYFE ERROR

: FORMAT ERROR

;WRITE LOCK ERROR

052276
0Se436
Q46024
gsosie
0c2276
052436

;ERROR 20

; ORIVE UNSAFE

NNNNNNNNANNNNNNNNNNNNNNY
YN

GBO RK6 DR CPT PROG MACY1l
GB.P11
02-DEC-77 10:46
50

2
S3
gg

001610

046041

30(1046)

BO4

02-DEC-77
11:48
PRGE 41
ERROR POINTER TRBLE
. ERROR 21

tM21

Q00leie
001614
001616

0S0S12
052276
052436

DHI00
DT100
DFQ2

001620

046061

0S0512
052276
052436

gMae

DHI00
DT100
DF02

001630

046103

£Me3

001640

046134

EMaYy

001646

052436

OF02

§7

68
9
g?
¥

64
65
gg

68
70
71

1775

1776
177?
1778
1780

1781

1782
1783
1784
1786

1787

1788
1789
1790
1792

1793
1799
1795
1796
1798

1800

1804

1805

00lbe2
00ieed
001626

001632
001634
001636

050512
052276
052436

001642
001644

050512
052276

001650

046154

. ERROR 22

. ERROR 23

OHI00
DT100
DF02
-ERROR 24

DHI00
0T100

. ERROR 25

tMes

001652
001654
001656

050512
052276
052436

OHI00
DT100
OF 02

001660

046177

EM26

.ERROR 26

SEQ 0040
_

: SEEK INCOMPLETE

s CYLINDER OVERFLOW

: ILLEGAL CYLINDER

sDRIVE OFF TRACK

:DRIVE TIMING ERROR

;DATA LATE

001662
001664
001666

050512
052276
052436

DHI00
0T100
DFO2

D01670

046211

050512
052276
052436

EM27

DHI00
07100
DF02

: CONTROLLER TIMEOUT

001700

046234

£M30

:ERROR 30

; OPERATION

001672
001674
001676

:ERROR 27

001702
001704
001706

0s0512
052276
052546

DH100
DT100
DFOS

001710

046261

EM31

-ERROR 31

001712
001718
001716

050512
052276
052546

DH100
DT100
OFOS

001720

046302

£NM32

.ERROR 32

INCOMPLETE

;HEADER VRC ERROR

;DATA CHECK ERROR

CZR6GBO RKB DR CPT PROG MACY1l

CZR6GB.P11
1806
1807
iggg

001722
001724
001726

02-DE2-77 10:46
0S0S12
052276
052602

1810

1811 001730 046323

1812
1813
ig}g
1816

1817

1818
1819

{gg?

02-DEC-77

11:48

ERROR POINTER TABLE

. ERROR 33

EM33

0S0Si2
052276
052636

DH100
DT100
OF10

001740

046345

EM3Y

001742
001744

001746

050512
052276

062532

1855 001750 046365

ca4

PRGE 42

SEQ 0041

DH100
DT100
DFO?

001732
001734
001736

1824
1825
iggg

30(1046)

:ERROR 34

DH100
DT100

;WRITE CHECK ERROR
:DATA MISCOMPARRE(S)

OFO4

:ERROR 35

£M35

:NO DRIVE RESPONSE-UFE 8 NXD

001752
001754
001756

050512
052276
052406

OH100
DT100
DFO1

1829

001760

046421

EM36

;DRIVE ERROR WILL NOT CLEAR

lggq
1835

001770

046454

. ERROR 37

:DRIVE STATUS CHANGE WILL NOT CLEAR

000000
000000
000000

EM37

0
0
0

002000

046517

EMYD

1828

1830
1831
{eag

001762
001764
CO01766

000060
000000
000000

:ERROR 36

0
0
0

1836
1837
1838
1839
1840

001772
001774
001776

1842
1843
ig:g

002002
002004
002006

0S0512
052276
052436

DH100
DT100
DFO2

002010

046563

£My 1

1841

1846

1847

1848
1849
iggg

002012
002014
002016

1852

1853

1854
1855

{ggg
1858

1859

1860
1861

002022
ggaoaq

2026

002030

002032
002034

.ERROR 40

:ERROR 41

050512
052276
052436

OH100
DT100
OFO2

046621

gMye

. ERROR 42

050512
052276

DH100
DT100

046651

£MY3

052436

050512
052276

;ATTENTION BUT NO STATUS CHANGE OR FAULT

;ATTENTION BUT DRIVE NOT AVAILABLE

;ATTENTION WHEN NOT EXPECTED

OFO2

:ERROR 43

OH100
DT100

:ERROR WHILE GATHERING DRIVE STATUS

CZR6ABO RKE DR CPT PROG MACY1l
CZR6QB.P11
02-DEC-77 10:46

}ggg

30(1046)

02-DEC-?7
11:48
PRGE
ERROR POINTER TABLE

002036

0S2702

DF12

1865

002040

047126

tMe3

{ggg

002046

052702

OFi2

002050

047173

EMEY

1824
1866
1867

1870

1871

1872
1873
ig;g

002042
002044

002052
002054
002056

1876

1877

1878
1879
iggg
1882

1883

1884
1885
iggg
1888

1883

1830
1891
{ggg
1894

1895

1896
1867
iggg
1300

1901

1902
1903
}382

1906

1907
1908
1903
ig{?
1912

1913
1914
1815
igig

050512
052276

. ERROR 44

DH100
DT100

:ERROR 45

050512
052276
052702

DH100
07100
OFi2

047236

EMBS

.ERROR 46

002052
002064
002066

050512
052276
052702

OH100
DT100
DF12

002070

047264

EME6

:ERROR 47

002072
002074
002076

050512
052276
052702

DH100
DT100
OF12

002100

002102
002104
002106

047317

050512
052276
052702

EMe7

002110

Q47356

£N70

:ERROR SO

DH100
DT100
OF12
. ERROR 51

002112
002114
002116

0S0512
052276
0582702

DH100
DT100
DF12

002120

046706

EMs2

002130

046734

£MS3

002140

046234

£M30

002122
002124
002126

002132
002134
002136

002142
002144
002146

0s05i2
052276
052702

050512
052276
052732

0s0512
052276
052762

. ERROR 52

DH100
07100
DF12

. ERROR 53

OH100
07100
DF13
:ERROR S4

DH100
07100
DF 14

SEGC 0042

: CLEAR CONTROLLER DID NOT CLEAR ERROR

sNO ATTENTION IN ATTENTION SUMMARY REG

sUNSOLICITED ATTENTION

: UNEXPECTED DATA TYPE ERROR

:ATTENTION DID NOT RESET WITH CLEAR

: SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION

sMULTIPLE DRIVE SELECT

:ABREVIATED HCE ERROR

s OPERATION INCOMPLETE ERROR

CZREGBO RKE& DR CPT PROG MACY!l
CZR6GB. P11
02-DEC-77 10:46
1918

1913

1920
1921
igsg
1924

1925

1926
1927
iggg

1930

1831

1932
18933
iggg
1936

1937

1938
1933
133?

1942

1943

002150

046261

30(1046)

EO4

02-DEC-77
11:48
PAGE 44
ERROR POINTER TABLE
: ERROR S5

EM31

0S0S512
052276
052732

DH100
DT100
DF13

002160

046761

050512
052276
053012

EMSE

OH100
DT100
OF1S

:2 TIMEOUT ERROR

002170

046761

£MSE

.ERROR 57

:2ND LEVEL

002162
002164
002166

- ERROR 56

002172
002174
002176

050512
052276
053056

DH100
0T100
OF16

002200

047000

EMe0

.ERROR 60

002202
002204
002206

000000
000000
000000

0
0
0

002210

047034

tMe1

.ERROR b1

002212
002214
002216

000000
000000
000000

0
0
0

1948

1950

002220

EMe2

1951
iggg

002222

047102

002224
002226

052276
053122

DT100
OF17

002230

000000

1955

1956
1957
{352
1960

1961

1962
1963
iggg
1966

1867

1968
1969

{g;?
1972

973

:ABREVIATED HVRC ERRGR

002152
002154
002156

1944
1945
1946
1947
1948

1954

SEQ 0043

0S0512

.ERROR B2

DH100

.ERROR 63

002232
002234
002236

000000
052370
053232

0
DT602
DF25

002240

047126

EMe3

:ERROR 64

002242
002244
002246

0S0S12
052276
052436

OH100
DT100
DF02

002250

047173

EMeY

. ERROR 65

002252
002254

0S0512
052276

DH100
DT100

002260

047236

£Mes

002256

052436

IN SUBSYSTEM TIMEOUT

:ERROR IN RECAL FOR RECOVERY

: ABORT MESSAGE

: CYLINDER MISCOMPARE

:DATA ERROR WORDS

:CLERR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

OF02

.ERROR 66

;UNSOLICITED ATTENTION

CZRE6@BO RKB6 DR _CPT PROG MACY1l
CZR&QB.PL1
02-DEC-77 10:46

30(1046)

FOH4

SEQ 0044

02-DEC-77_11:48
PRGE 4S
ERROR POINTER TARBLE

002262
002264
002266

gs0s12
052276
052436

DH100
DT100
DFOe

002270
002272
002274
002276

047264
0sgsie
052276
052436

tMeE

002300
2

047317

. ERROR 67

OH100
0T100
DF02

;UNEXPECTED DRTA TYPE ERROR

;ATTENTION DID NOT RESET WITH CLERR

052436

DY
000000000
m.—p—p.p..._p..._.-.
OWwWoONCN LW

0473S6
050512
0See76
052436

002326

047425
gsosie
052276
052436

002330
002332
002334
002336

Q47465
0sos1ie
052276
052436

002340
002342
002344
002346

047534
0s0osle
052276
052436

002350

Q47570
0sosie2
052276
052436

002356
002360

002366

C47610
000002
000000
000000

002370
002372
002374

047640
051477
052362

; SUBSYSTEM CLEAR DID NOT CLEARR ATT

;DARTA LATE WHEN UNLOARDING HEARDER

; CONTROLLER ERROR DURING DRIVER SERVICE

;ORIVE DETECTED PARITY ERROR

; UNDEF INED ERROR

;MPRKING SECTOR BAD MESSAGE

;BAD DATA VERIFICATION WITH RERD

CZREQBO RKE DR CPT PROG MACY11l
CZR6GB.PLL
02-DEC-?7 10:46

30(1048)

GO4

002376

053156

DF21

002400

047722
000000
Q52362
053216

Sn77

DTe01
DF23

047722

En77

0s3216

002424
002426

047743
000000
05e3e2
0S32lb

002430
002432
002434
002436

047766
0si46l
052362
053226

002440
002442
00244y
002446

QS0o04Y
050512
052276
052436

002450
002452
002454
00245k

0S0116
0sosiz2
052276
052472

002460
002462
00c46H
002466

0S014y4
gsosie
052276
052472

002470
Do2472
002474
002476

050166
gsosie
052276
052436

002500
002502
002504
00es06

0soez21
0s0sie
052278
0S324¢

SEQ 0Q04S

02-DEC-77__11:48
PAGE 46
ERROR POINTER TARBLE

- ERROR 100

. ERROR

101

0
DT601
DF23

. ERROR

¢M100

102

0
DTe01
DFe3

103

104

105

106

107

110

; RETRY SUCCESFUL MESSAGE

; ANOTHER RETRY SUCCESSFUL MESSAGE

; RETRY UNSUCCESSFUL MESSAGE

;NO VALID HERDERS IN TRACK JUST RERD

;BSE ERROR ON SECTOR NOT LISTED RS BRD

; TIMED-OUT ON RERD HERDER

: TIMED-OUT ON SEEK

:ORIVE SIEZED BY OTHER PORT

; "DATA MISCMPR WHILE BRI SETTM

CZRBABO RKE DR CPT PROG MACYLl

CZREGB.P11

02-DEC-77 10:46

5889 002510 0S0254

30(1046;

02-DEC-77

11:48

ERROR POINTER TABLE
.ERRQR

tn109

2088
2089
2090

002512
002514
002516

000600
000000
000000

0
0
0

2094
2095

002522
002524

050512
052276

OH100
DT100

002530

050354

EM111

2105

002540

050375

gM112

2107
Sigg

(002544
002546

052336
053236

07202
DF26

002550

000000

g0
5835 002520 050321
5839

2038

2099

2100
2101
gigg

21049

2106

2110

2111

2112
2113
Siig

002526

002532
002534
002536

002542

052406
050512
052276
05245~

051706

ERROR 112
EM11
.ERROR

.ERROR

002560

046345

£M3y

002570

000000

2129

002600

0S0430

Sigg

002606

2122

2123

002562
002564
002566

0S1023
000000
053146

gled
Sf%g 05278
005375 829990
053166
2128

2130
2131

2134

2135

2136
2137
gigg
2140

2141

114

DH702

0
07601
OF11

2118
2119
Sig?

113

DH100
DT100
OF02

000000
052362
052662

2117

SEG 0046

:”NO NEM WHEN EXPECTED"
;" INTRPT WHEN CNTRLR NOT READY"

OFO01

ooagsa
002554
002586

2116

111

HO4

PAGE 47

.ERROR

115

116

DH103
0
OF 20

.ERROR

117

Br100
DF22
.ERROR

gM113

002602
002604

050512
052276

052406

OFO01

002610

050456

EM114

120

OH100
07100

:ERROR

002612
002614
002616

050512
052276
083272

DH100
DT100
DF 30

0026820

050473

gM11S

-ERROR

121

122

:”NO ATT’'N ON SEEK

sDRIVE'S CYLINDER INCORRECT

.TYPE ADRS OF DATA MISCOMPARE(S)

:DATA MISCOMPARE (11-70)

:PART OF DATA MISCOMPARE

:ABORT- CAN'T READ BSF

;KT11 FAILURE

:MEM PARITY ERROR

<ZR6GQBO RKE DR _CPT PROG MACY1l
CZREGB.P11
02-DEC-77 10:46

Pt Do Bt Pese et Pt Pt Pt Pt Pt Pt Pt P

Bt Pt (o P

Pront P

e Pt B

Pt Bs Bt Pt

N
oo ninINININNNUNNL L £ £ £
OWONCN
£ WOV NN LW
OO NN

fufunYR LUV
R DIVRVRV VDDV

2144

30(1046)

02-DEC-77

_11:48

ERROR POINTER TRBLE

002622
002624
002626

gsosi2
052276
053316

DH100
DT100
DF31!

002630
002632
002634
002636

045467
000000
000000
000000

EM3

.ERROR

g
0
8

123

104

SEQ 0047

PRGE 48

;NED ON SIZING UNDER RPT

unru RPN DNDrUEIL I Y UMMV
NN RN MU
ML TV TV LU U R TV P TVV R UMV UMY
o nnyruvivieMProDUMM Y
—
rgfury TUN) St
bty b ps b =
Q00000 000 WO
DD NW DI
N NN
NN
L£wn = OVON LW~ 0.0 NN
L WO
VO NV LW~ OV NN L£WN— DD
NN LW —

CZR6Q@BO RKB DR CPT PROG MACYLI1
CZR6GB.P11
02-DEC-77 10:46

30(1046)

J04

02-DEC-77
11:48
PRAGE 49
BIT ASSIGNMENTS IN THE RKb1l REGISTERS
.SBTTL

SEQ 0048

BIT ASSIGNMENTS IN THE RKbl1 REGISTERS
; RKCS1

;

:CERR '

;CCLR !
; R/W!'
;7

E RDY !
;

RZ/W

;RKCS2

;

E OR

! DCPAR! CFMT ! CTO

! CDT

'
!

1e
!
'

! SPRRE!

R/W!

: DLT ! WCE
;

' UPE

)

!
R/W!

' NED

! CLR

:RKDC

(DESIRED CYLINDER)

SNU

;

! PGE

R/!

R/W

' DCY

! DCB

RRW

! R/U

E DC7 ' DC6

! DCS

' DCY4

! DC3

' DC2

! DCL

! DCO

! TAR2

!' TAL

READ ONLY

;RKDA

(DESIRED TRACK AND SECTOR)

E NU

;

READ ONLY

! UFE

! DSO

! MDS

R/W

! DSI

'
!

¢ R/W

RERD ONLY

R/
1

R/W

H
!

RMW!

DESL ! DS2

R/uW

! BA17 ! BAlG !

' NEM

BAI

RUW!

R/W!

; RO

'
!'R/W

! TARO

!
!

e
e
E
R
S

E UN

' SA4Y

! SAR3

! SR2

! SAl

! SAO

READ ONLY

;

< REQBO RKE DF _CPT PROG MACY!1l
| b4 REGB.P11
02-DEC-77 10:46
~

(&
X

30(1046)

KO4

SEQ 0043

02-DEC-77
11:48
PRGE SO
BIT RSSIGNMENTS IN THE RKbll REGISTERS
;RKDB
;: 1S

(DATA BUFFER)
14
13

:DB1S ! DBI4 ! DB13 ! DBI2 ! DBIl * DBIO ¢! DBY

:
;.

READ/WRITE

: pB7 ' DB6

! DBS

sRKASOF
;

! DBB

! DBY

! DB3

! DB2

! DBl

! DBO

RERD/WRITE

(ATTENTION SUMMARY AND OFFSET)
Y4
1
1

'ATN? ' ATNG ! ARTNS ! ATN4 ! ATN3 ! ATN2 ! ATNL ! ATNO !
:
s

RERD ONLY

S UN

' OFb

' OFS

:RKWC

(WORD COUNT)

! OFY4

! OF3

! OF2

! OF1

! OFO

'WCIS ! WCIY ! WCI13 ! WC12 ! WCI1 ! WCIO ! WCY

! Wce

READ/WRITE

PWC7 ! WCH

! WCS

;

! WCH

! WC3

! WC2

! WC1

! Weo

READ/WRITE

]

!
i

Uyttt

;RKBR

(BUS RDDRESS)

BA1S ! BAIY ! BR13 ! BAl2 ! BRIl ! BAIO ! BAY
:

READ/WRITE

:BA7 ! BR6G

! BAS

:
¢

———

- -

! BRB

! BAM

! BA3

! BAR2

! BAl

! BRO

READ/WRITE
-

G A

D —

—

———

!
i

PALWYSO!
-

- -——

CZREGB.P11

02-DEC-77 10:46

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)

2276

geze

2279

2280

LO4

BIT ASSIGNMENTS IN THE RK611 REGISTERS
02-DEC-77

11:48

Se@ 0950

PAGE 51

.RKER (ERROR REGISTER)

i 15 14 I3

*"DCK ! UNS ! OPI ! DTE ! WLE ! IDAE ! COE ! HVRC
P
READ ONLY
¢!
!

HVRC

2288
T

A
S&
S.o3
e
1
0

2286

2285

"BSE ! ECH

! DTYPE! FMTE ! DRPAR! ILF
RERD

ONLY

! SKI

! ILC

!
i

o088

2230

228

;RKDS (DRIVE STATUS)

2292

Sggg

"SVAL !' DSC

2295

553%
2298

o7 6

2301

2293

2302

§ ______

;RKMR1

£305
2307

2310

5312

ggia

(MAINTENANCE REG 1)

P15

2309

RERD ONLY

oTP

UN !! DRA !)
'DRDY !' Vv !) DROT !' SPLS !' ACLO !' OFSET!' UN
A
READ ONLY
ORA

2303

2305

T
! PIP !' SPON !' WRL ¢' UN ! UN ! DTP
!
'

1R0re | GRTE §

j PCR | MEWD | MERD § MCLK S

"RD ' WRT ! ECCW ! PCD ! PCA ! MEWD ! MERD ! MCLK!

‘MIND !' MSP

ReAD ONLY

i READ/WRITE

T
5

MSO
1 DMO !' PAT !' MS3 '' MS2 !' MS1MS1 !! Msg
!!

g ______________

RERD/WRITE

>0 i

CZR6GBO RK6 DR

CZR6GB.P11

CPT

PROG MACYL1l

02-DEC-77 10:46

30(1046)

02-DEC-77

MO4

11:48

PAGE S e

2318
23%?

; RKECC/PAT
i 18
14

Sgég

;

5319
2321

SEQ 0051

BIT ASSIGNMENTS IN THE RK611 REGISTERS
13

PUN ' UN ' UN ' UN ' UN ! EPAID!' EPRS ! EPRB !
READ ONLY

’

§3s8

Ab.S

8352

5 e READ OMLY %

2328

; RKECC/POS

2324
2327

gggg
2331

§33¢
2334

LI 3 . e ____
.t____ o___

:EPAR? ! EPRG ! EPAS ! EPA4 ! EPA3 ! EPA2 ! EPAl ! EPAD !

: 18
s

13
'

Epgxee

EPOL11!

EPO10!

EPOS

EPOB

B e REROD ONLY ot
’

sggg

2337

‘EPO7 ! EPOG ! EPOS ' EPOY4 ! EPO3 ! EPO2 ! EPOL ! EPOOD !

2340

2343

;LINE A MESSRGE 0O

£338
533é

§did

e READ ONLY

;DRIVE STATUS INFORMATION

; 1S

2339

: PAR ' DSC

gggg

S 48

! PIP
5

LA 8 __.

! SPON ! WRLK ! OFFON! FMT ! DRTP !

DRIVE SELECT CODE

D A
" T
>
T Y
. -

N34

CZR6QABO RKE DR CPT PROG MACYI1l 30(1046)
02-DEC-77
11:48
PAGE S3
CZR6GB.P11
02-DEC-77 10:46
BIT ASSIGNMENTS IN THE RKb11

SEQ 0052

REGISTERS

2353

;LINE B MESSAGE 00
; 1S
13

2367

! PAR ! UNLDG! RTZ

2373

;DOOR ! BRUSH! HEADS! TRK

2381

! PAR ! SERVO! LIMIT! SEEK ! PLO

! DIBIT! INDEX! MULTI!
!

ERR

2387
2388

iHEAD 'WR GTE'WR CUR! SEC
FQULT‘QND NO!AND NO' ERR

!
!

2374

389

;

;LTCH

;

HDS

HOME

BRAKE!

HOME

! LDG
!

HDS

! FWD

F8LOH'

ON SK!NO MO

!XISTON!WR GTE!®

! REV

ERR

!
!

! SPEED! CART
!

PRES

DRIVE SELECT CODE

ERR

!HD SEL!

!
!
!

CZR6GBO_RKe DR_CPT PROG MACY1l
CZR6QB.P11
02-DEC-77 10:46

30(1046)

BOS

02-DEC-77
11:48
PRGE SY
BIT ASSIGNMENTS IN THE RKb1l
;LINE R MESSAGE 10
; 1S
14
13

PPAR '

OWwoNONLi2iy

V) 9= he Pt P Pt Pt Pt e

UV
NIV
fLLLLLLr s

: PAR !

*
12

;LINE B MESSAGE 11
:
14

:
§

:
1

'
3

SECTOR COUNT
-

'
12

. DRIVE SERIAL NUMBER

DRIVE SERIAL NUMBER

D PAR !

CYLINDER ADDRESS

! CYLINDER DIFF/OFFSET VALUE

:LINE R MESSRGE

P PAR ! ALIGN'

SEQ@ 00Ss3

REGISTERS

DRIVE SELECT CODE !

DECODED HEAD

! SEZTOR!

ADDRESS

UN
-

COUNT

——

o
-

RKO6 CONTROLLER REGISTER DEFINITION
000000

oooo10

e
Y
1)
10

1§

; CONTROL AND STRTUS REGISTER 1

:WORD COUNT REGISTER
iBUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER

:CONTROL AND STATUS REGISTER 2

CZR6QBO RKE DR CPT PROG MACYLl
02-DEC-77 10:46
CZR6QB.P11

2447
2448

0oog12
000014

a:gx

DDDOED

449
4S50

380628

223

8006

SugE

388838

24s?

458
459

2460
246l
2462
2463

000034

000030
000032
00003e

RKDS=

kPos= 38

RKECPS= 30

RKPAT=
32
RKECPT= 32

SRTSPL= 111
RECAL= 113
QFFSET= 115
117
SEEK=
RODATA= 121
WRDATR= 123
RDHERD= 125
WRHERD= 127
WRTCHK= 131

000001
000100
000200
000400
004000
010000

;DRIVE STATUS REGISTER

ERROR REGISTER
SATTENTION SUMMARY AND OFFSET REGISTER
:DESIRED CYLINDER REGISTER
DESIRED CYLINDER REGISTER
DRT E E
{MAINTENANCE REGISTER 1
HRINTENQNCE REGISTER
2

BEINISIARE,REEISTER
3,

,ECC POSITION INFORMATION
;ECC
PQTTE
;ECC PATTERN

; SELECT DRIVE

:PACK ACKNOWLEDGE
DRIVE CLERR
UNLORD

STRRT SPINDLE
:RECALIBRATE
OFFSET
: SEEK
:READ DATA
iWRITE DATA
;READ HERDER
NRITE HEADER RAND DRTA
:WRITE CHECK

TO SIMULARTE A SPECIFIC DESIRED OPERARTION

RELEAS= 140

; RELERSE DRIVE

GET ALL STQTUS FROM DRIVE
S
RER? ALL H
ROLLER CL AR

(BIT 15 OF CSl1)

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

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 001

DR.CLR= 005

;ORIVE SELECT

DRIVE CLERR

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

GO=

BITO

IE=
RDY=
BAle=
BA17=
CDT=

BITE
BIT?
BIT8
BITI9
BITIO

CFMT=

BIT!2

CTO=

NFORMAT ION
INFORMATION

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

RDSTAT= 141
RDRLHE: 164
CONCLR= 17b
SUBCLR= 177
INTR=
300
;

000001
00000s

103
105

UNLORD= 107

;

SEQ 0O0S4

DRIVE COMMANDS

SELDRv= 101

PRCK=
CLEAR=

H
000140
000141
000164
000176
000177
000300

RKER=
14
RKR%OF: és
RKDCYL= 20
RKDB=
4
RKMRl=
26
RKMR2= 34

.SBTTL
WRRIAMN—— —— 0000
=~ N
W= N
NNW—

24SY

COS

02-DEC-77
11:48
PAGE SS
30(1048)
RKO& CONTROLLER REGISTER DEFINITION

BIT!!

;GO BIT

; INTERRUPT ENABLE
;CONTROLLER READY
:BUS ADDRESS BIT 16
:BUS_RADDRESS BIT 17
:CONTROLLER DRIVE TYPE (0=RK06,

1=RK07)

:CONTROLLER TIMED OUT WRITING EOR
; _ _DRIVE RESPONSE

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

CZR6ABO RKE JR CPT

PROG MACYL]l

CZRBGB.P11

Ce-DEC-77

503

020000

S20e
gggg

002000
100000
1

2508

ggeg

B
sgig
1

5250
5255
2523
2524

2525

02-DEC-77

o
060020
b

SEQ 00SS

8iTS

2tRR=
CCLR=

:DRIVE BUS PQRITY ERROR DETECTEG BY CONTROLLER

BITIE

;

THESE BIT DEFINITIONS ARE USED FOR RDDRESS

BITiS
THE

HIGH BYSE

L
B.CFMT= 3174
.BAlGk=
.

BITO

88882q1

gnLS=
=
LR=

RLas. giTH
BIT3

SCLR=
R=

: OONTROLLERERROR

*CONTROLLER CLERR
OF RKCSI

o
LT
ESNTRSLLE B ivE
FORnr (0=85 4E8Y SR 1=20 SECTOR)
:BUS

RDDR

CONTROL AND STARTUS REGISTER 2 BITS

DRVMSK= 7

000100

DAOS

BITI3

000007

000040

PRGE

SPAR=

.SBTTL

000010

11:48

CONTROL AND STATUS REGISTER 1

Sgig

251e

10:46

30.1046)

:MASK FOR DRIVE SELECTION CODE

i§
DESELECT
OR 22“22‘ DRIVE IN BIT2 D-5
gkS§RE$ EEEHEN? {NHI 17
-

ONTROLLER AND ALL DRIVES

BITS

ch gONTROLLER AND ALL DRIVES

BIT?

*OUTPUT RERDY

:MULTIPLE DRIV SELECT
' PROGRAMMING ERROR
*NON-EXISTENT MEMORY

B1T6

000200

OR=

001000
002000
004000

T
£33
0400600

MDS=
PGE =
NEM=

BITS
BITiO
BIT1I

WCE =

8%719

Sggg

.SBTTL

ERROR REGISTER BIT DEFINITION

2526

2527
2528
2529

sgga

000400

100000

UFE=

o
DLT=

81718

BIT1S

"UNIT FIELD ERR

LoEHISIEN
OeLie,
f?gscuscx ERROR

DRTR LATE ERROR

2537

000001

ILC=

BITO

s ILLEGAL FUNCTION CODE

Sgwg

888884

LF=

B{T

?EEEGLL SEPbE FUNCTION

asge

-;ILF:

81¥0

gg:é
248
2544

ooogow
8888;38
000040

N§£=R
free-

DTYE=

ax;g
B3
BITS

2546

000200

BSE=

BIT?

2545

2547
2548
2549
2550
2S5 1
2552
2563

2554
Sggg
2557

000100

AR=

ECH=

BIT6

000400
000400
001000
002000
004000
010000

HCRC=
HVRC=
QE=
IDARE=
WLE=
DTE=

BITS
BIT8
BIT9
BITIO
BITII
BIT12

040000
100000

UNS=
OCK=

BIT14
8ITIS

020000

OPI=

.SBYTL

BITI3

ILLEGflk FUNCTION CODE

DRI¥EDF32?$E
BUS PARITY ERROR
Poé
ARGR
onxve TYPE ERROR
sgg 9

SECTOR ERROR

'HEADER CRC ERRROR
'HERDER VRC ERRROR
"CYLINDER ADORESS OVERFLOW ERROR
*INVALID DISK ADDRESS ERROR
‘WRITE LOCK ERROR
'DRIVE TIMING ERROR

:OPERATION (SEARCH) INCOMPLETE

‘DRIVE UNSAFE
:DRTA CHECK

STATUS REGISTER BIT DEFINITION

HIS BIT IS RESET

DR I VE OFFSET
iAC_LOW

SPEED LOSS
:DC_LOW
:DRIVE OFF TRACK
p.]
m
D
(o)
<

]

<
m

O
po]

:VOLUME VALID

DRIVE TYPE (0=RKO&, 1=RK07)
SWRITE LOCK
:POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
:STATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION

MESMSK=

000020

]

100000

; MESSAGE MRSK
b b e b = OO NP U1 =
nEwn—oO

et 0t et Bt Dt Bt

.SBTTL

A
e

goo01?

SVAL=

DRIVE AVARILABLE (CONTROLLER IS SET IF

QFST=
ACLO=

AtA=t
=
—
= NN
L LW r
nLwe—

000004

DRRA=

lalalal
ol ol ol
ol ol ol ] ) -t

BITO

000001

100000

SEQ 00Se

STATUS REGISTER BIT DEFINITION

Pt 0l Dt Dt Dt

02-DEC-77 10:46

11:48__PAGE 57

;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES

iDIAGNOSTIC
MODE
HRINTENRNCE SECTOR PULSE
IMAINTENANCE INDEX

:MAINTENANCE CLOCK
:MAINTENANCE ENCODED READ DRTR
'MARINTENACNE ENCODED WRITE DATR
: PRECOMPENSATION ADVANCE
; PRECOMPENSATION DELRY
:ECC_WORD 1S BEING RERD OR WRITTEN
IWRITE GATE
!READ GARTE

L£Whu—0O

]
]
el
ol o
ol ol

D
T W DD
DD 00

; OFFSET

iWRITE LOCK
;SPINDLE ON
;POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

ICYL=
.ACLO=
LFLT=
CILF=
.PAR=
.SKI=
CWLE=
.SPLS=

— =
OO NN
o

DEFINITION OF DRIVE STATUS BYTE OC MESSAGE B

010000

'DRIVE FORMART

.SBTTL

lalal
]l ol
ol ol o)

0c0o0o40

-DSC=

DRIVE RVRI%%RBLE

[seferlea]on]es]esTon]o]

040000

o
)
"

000040
000100

uununnunnvInnm

DEFINITION OF DRIVE STATUS BYTE 00 MESSRGE R

OO
IT T TT TV 1Ty )

CZR6GB.PL1L

EQS

=77
0e-DEC-

eeJentoslanlontonantosfenlontor]on]

CZR6QB0O RKE DR CPT PROG MACY1! 30(1046)

; ILLEGAL CYLINDER ADDRESS

(AC LOW
DRIVE FRULT
: ILLEGAL FUNCTION
*DRIVE DETECTED DRIVE BUS PARITY ERROR
:SEEK INCOMPLETE
iWRITE LOCK ERROR
;SPEED LOSS

CZR6EBO RKe6 DR CPT PROG MACY11l 30(1046)
02-DEC-77 10:46
CZR6GB.P11
010000
020000
040000

02-DEC-77

040000

S.DCLO= BITI2

S.DROT= BITI13
S.UNS= BITIH
S.XDOK= BITY

020000
040000

000007

007000

DRIVE OFF TRACK
:DRIVE UNSAFE
; TRANSDUCER 0K

; HEADS “HOME
;i BRUSHES HOME
:DOOR_INTERLOCKED
:CARTRAGE INTERLOCK
:SPEED OK
: FORWARD
: REVERSE
{HEADS LOADING
'RETURN TO ZERO
:HEADS UNLOARDING

DEFINITION OF DRIVE STATUS BYTE Ol MESSAGE B

S.SECT= BITH

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

;DC _LOUW

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE R

S.4DHM= BITS
S.BRHM= BIT6
S DOOR= BIT?
S.CART= BIT8B
S.SPOK= BIT9
S.FWD= BITIO
S.REv= BITI!
S.LORD= BITl12
S.RT2= BITI
S.UNLD= BITI4
.SBTTL

000020
000040
000100
000200
000400

FOS5

PRAGE S8

DEFINITION OF DRIVE STARTUS BYTE 00 MESSAGE B

SBTTL
000020
000040
goclioo
000200
000400
001000
002000
004000
010000
320000

11:48

BIT8

S.XERR=
S.DIB=
S.PLO=
S.NMOvV=

BITS
BITIO0
BITIl
BIT12

.SBTTL

COMMON MASKS

M.DRvV=
M.PAR=
M.ID=

7
BITIS
3

S.LIMD= BITI3
S.BRKE= BITI4

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

; SECTOR ERROR

'WRITE CLOCK AND NO WRITE GATE
{WRITE GATE AND NO TRANSISTIONS
{HEAD
FAULT

;MULTIPLE HERD SELECT

; INDEX ERROR
;DIBIT ERROR
; PLO ERRQ
; SEEK_AND _NO MOTI

;LIMIT DETECT ON SEEK
; SERVO-~
E

; BRIVE CODE
;PQRITY
;BYTE ID

:CYLINDER DIFFERENCE/OFFSET
:CYLINDER ADDRESS
:DRIVE SERIQL NUMBER
:SECTOR _COUN
:HERD DECODE

SEQ 00S7

GOS

CZR6QBO RKE DR CPT PROG MRCY1! 3001046)
02-DEC-77
11:48 PAGE 59
PARAMETER BLOCK RLLOCATION
02-DEC-77 10:46
CZREGB.P11

SEQ Q0S8

gggg

.SBTTL

PRRAMETER BLOCK RLLOCATION

2659

i!lilll!ll!ll}i!!llli!ll!li*llllllliii!l{liiilill

2661l

2660

26b2
2663

2 5
7

2664

;# 11

' COMMAND

i CYLINDER ADDRESS

! DRIVE NO.

i
TRACK
' SECTOR
'Bflls 17,FORMAT, DRV TYPE! OFFSET

i BUS ADORESS (LOW 16 BITS)

g
B

i 10

;2 13
;% 1S
(% 17
;% 2l
;¥ 23
;¥ 25
% 27
;% 31
;% 33
;# 35
(% 37
;% Y]
;% 43
1
P E Y7
;% S1
% 53
;% SS
;% S7
;¥ Bl
;% B3

FERERI

Sggg

.SBTTL

PARAMETERS PARSSED TO THE DRIVER

2690
gggé

;
;

THE FOLLOWING DEFINITIONS ARE USED TO PRSS PARAMETERS
TO THE RKO6/RK07 DRIVER

2693

000000

WORD COUNT (2°'S COMPLEMENT
PROGRAM DRIVE STATUS INFORNRTION
COMMAND AND STATUS REGISTER 1
COMMAND RND STATUS REGISTER 2
WORD COUNT REGISTER
BUS ADDRESS REGISTER
DESIRED TRACK AND SECTOR
DESIRED CYLINDER
ATTENTION SUMMRRY AND DRIVE OFFSET
ERROR REGISTER
STATUS REGISTER
MESSAGE LINE R STATUS BYTE 0O
MESSAGE LINE B STATUS BYTE 0O
MESSAGE LINE R STATUS BYTE 01
MESS
LINE B8 STARTUS BYTE 0Ol
MESSAGE
LINE R STATUS BYTE 10
MESSAGE LINE B STATUS BYTE 10
MESSAGE LINE A STATUS BYTE 11
ESSRGE E B STRTUS BYTE 11
ECC
P
N INFORMATION
ECC PR TE N INFORMATION

i
i

2665
2666
2667
2668
2669
2670
ee?1
e67e
2673
2674
267
2676
2677
2678
2679
2680
ee8l
2682
2683
2684
268S

Sggg

!
'
!
)
!
'
!
¢
!
!
!
!
!
!
!
!
!
!
'
!
!

P.DRVN= O

i 12
i 14
i 16
i 20
¥
i 2y
i 26
i 30
i 32
i34
i 36
i 40
iy
iy
i 4p
i 5Q
i 52
i 54
[
i 60
i B2

;DRIVE NUMBER

2694
2b9sS
2696

000001
000002
000004

P.CMND= 1
P.CYLN= 2
P.SECT= M

: COMMAND
CYLINDER ADDRESS
:SECTOR

2698
2699

000006
000007

P.OFST= &
P.CSlH= 7

OFFSET
;RKCS]1 BITS B-15
BUS ADDRESS (BITS 16 AND 17)

26937

2700
2701
2702

g;ga

00000S

000007
000010
000012

000014

g;gg
2707

2708
2709
2710
2711
271e

P.YRCK= S

P.BRHI= 7
P.BALO= 10
P.uWC=
12

P.PRST= 14
.SBTTL

000001

000002
000004
000010
000020
000040

; TRACK

,BUS ADDRESS (BITS 0-15)
;WORD COUNT (2°'S COMPLEMENT)

PROGRRM DRIVE STATUS INFORMATION

PROGRAM DEVICE STATUS REGISTER DEFINITION

DRVUSE= BITO

DRVPOS= BIT!
DRVPDT= BlT2
UEXRTT= BIT3
DRVHRD= BITH
DRVDSC= BITS

;DRIVE IN USE

DRIVE POSITIONING
:DRIVE POSITIONED FOR DATA TRANSFER
:UNEXPECTED RTTENTION
:DRIVE HAS HARD ERROR
:DRIVE STATUS CHANGE DID NOT CLEAR

PROG MACYLIL1

02-DEC-77

10:46

30:¢1048)

11:48
PAGE &0
02-DeC ~77
PROGRAM DEVICE STRTUS REGISTER DEFINITION

000100

CMDTO=

000200
000400
001000

W.WCK=
NOCHK=
PBSVAL=

002000

DRPDRV=

088640
002eH4]
002642
002644

; NO TERNINRTION TO COMMAND FOR AT

BITS

PRRRMETE# STATUS WORDS VALID

BIT10

DROP ?RIVE F?OflTEST SEQUENCE T

BIT?
BI18

BLIETLEV
BTGP iRE
BT Reser
DRIVE
ORDED DUE

BITIY
B8IT1S

.SBTTL

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

PQRQMETER BLOCK QUEU D IN INITIARTION QUEUE
: INHIBIT BUS ADDRESS INCREMENT

; COMMAND AND STATUS REGISTER 1

20
ee
a4

:COMMAND AND STATUS REGISTER 2
HORD COUNT REGISTER
g SBRggg REGISTER

ESIR

CK SECTOR REGISTER

30
3

:DESIRED CYLINDER REGISTER
'ATTENTION SUMMARY/OFFSET REGISTER

4
4y

iMESSAGE
B STATUS BYTE 0O
HESSRGE A STATUS BYTE 0!

MESSGGE

2
40

SRR
i MESS 25 S g?fl?S BYTE 00

MESSRGE

STATUS BYTE Ol

STATUS BYTE

;MESSAGE R STATUS BYTE

,HESSRGE B STRTUS BYTE 10

:
:

s
B e IR

.SBTTL

PARAMETER BLOCK

PRARMO:

.BYTE
.BYTE
.WORD

O
0
O

-gRIVS
NUMBER

.BYTE
BYTE

O
O

,TRQCK RADDRESS
;OFFSET VALUE

WORD
WORD
WORD

O
O
O

.WORD

.BYTE

.WORD
WORD
ocoooc

S55] Lo ERRGe TERHINAT IO or

GTBAII=

BYTE
WORD

002ksE

NRI%E
FORNs ?E WRITE CHECK
iNO CHECK, DO NOT SET INTERRUPT ENABLE

= BIT13

000g4e
00004y
000046
0000s0
0000se
0000sSY
000056
000060
00006e

BITH

bRV30- B

020000
040000
100000

SEQ 0359

=~ -

870888

D
[V
o
TN

LANTAY
AVIAVIAVIQY
4 V3T

CZREOB.P11

CPT

D
0
=)

VOVIVUVVUVVVVUODUVUVOVOVOVVUVUY

CZReGBO RkE

WORD

O
O

O
O
O

O FOR DRIVE

CYLINDER ADDRESS

:SECTOR ADDRESS

;BUS ADDRESS (BITS 16 AND 17)
;BUS ADDRESS (BITS 0 - 15)

;
D COUNT (2'S_COMPLEMENT)
,PROGRQH DRIVE STATUS INFORMRTION
; COMMAND AND STATUS REGISTER

;COMMAND AND STATUS REGISTER 2
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER

:DESIRED TRACK AND SECTOR REGISTER

CZREQBO RKE DR CPT PROG MACY1! 30(1046)

CZRBGB.P11

2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781

S;SS

002670
002672
002674
002676
002700
002702
002704
002706
002710
002712
002714
002716
002720

002722

02-DEC-77 10:46

002724

2790
2791
2792
2793
2794
€795
2796
2797
2798
€799
2800
€801
2802
2803
2804
2805
2806
230"
2808
2809
2810
€811
2812
2813

002731
002732
002733
002734
002736
002740
002742
002744
002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772

Sgig

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

000000

.WORD
.SBTTL

2786

00272S
002726
002730

002774
002776
003000
003002
003004

00300e

000

000
000000
000

PARMI:

000
000
00
000000
000000
000000
000000
000000
000000
000000
000000
000000
000
000000
000
000000
000000
000000
000000
000000
0000C0
000000
000000
000000

I05

PAGE 61

SEG 0060

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

; DESIRED CYLINDER REGISTER
_
;RTTENTION SUMMARY/OFFSET REGISTER
; ERROR REGISTER
; STATUS REGISTER
;MESSAGE LINE R STATUS BYTE 0O
;MESSAGE LINE B STATUS BYTE OO
;MESSAGE LINE & STATUS BYTE 0l
;MESSAGE LINE B STATUS BYTE Ol
;MESSAGE LINE R STATUS BYTE 10
;MESSAGE LINE B STATUS BYTE 10
;MESSAGE LINE R STATUS BYTE 11
,HESSRGE LINE B STATUS BYTE 11!
;ECC POSITION INFORMATION

{ECC PATTERN INFORMATION

PARAMETER BLOCK ! FOR DRIVE
.BYTE

.BYTE
.WORD
.BYTE

.BYTE
BYTE
BYTE
WORD
WORD
WORD
WORD
WORD
WORD
~O0RD
WRD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD

000000

Sgig

11:48

PARAMETER BLOCK O FOR DRIVE

000000
000000
000000
000000
000000
00U00C
000000
000000
000000
000000
000000
000000
000000

S;gg

2787
2788
2789

02-DEC-77

.WORD

O
O
O

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

DRXVE NUMBER

; COMMAND
:CYL INDER RDDRESS
:SECTOR ADDRESS

; TRARCK ADDRESS
;OFFSET VALUE
;BUS RDDRESS (BITS 16 AND 17,
;
ADDRESS (BITS 0 - 15)
; WORD COUNT (2°'S_COMPLEMENT)
;
RAM DRIVE STATUS INFORMATION
; COMMAND AND STATUS REGISTER 1
;CO
AND STATUS REGISTER 2
; WORD COUNT REGISTER
; BUS ADDRESS REGISTER
;DESIRED TRACK AND SECTOR REGISTER
;
SIR?D CYLINDER REGISTER
;ATTENTION SUMMARY/OFFSET REGISTER
;ERROR REGISTER
; STATUS REGISTER
;MESSAGE LINE R STATUS BYTE QO
;MESSAGE LINE B STATUS BYTE QO
;MESSARGE LINE R STRTUS BYTE 0l
;MESSAGE LINE B STRTUS BYTE Ol
;MESSAGE LINE R STRTUS BYTE 10
;MESSAGE LINE B STATUS BYTE 10
;MESSAGE LINE A STATUS BYTE 11
;
SSAGE LINE B STATUS BYTE 11
;ECC POSITION INFORMATION

{ECC PATTERN INFORMATION

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

gg{g

003010

000000

T.CS1:

.WORD

TESEE?ERERSTORRGE FOR COMMAND AND STARTUS

SSS?

003012

000000

7.C52:

.WORD

TEREg?gRIRSEORQGE FOR COMMAND AND STRTUS

e822
2823
2824

003014
003016
003020

000000
000000
000000

T.WCR:
T.BR:
T.DR:

.WORD
.WORD
.WORD

O
O
O

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

CZR63B0O RKb DR <PT PROG MACY1l
CZR6GB.P11
0e-CeC-77 10:46

30(10486)

JO5

02-DEC-77

11:48
PARGE &2
TEMPORARY CONTROLLER REGISTER STORAGE

SEQ 006!l

003022
003024

000000
000000

T.0C:
T.ASOF:

WORD
.WORD

O
O

; TEMPORARY STORAGE FOR DRIVE

003026
003030
003032

00c0oc0
000000
Q0000C

003044

000000

T.ER:
T.DS:
T.MRl1:
T.MR?:
T.MR3:
T.POS:
T.PAT:

WORD
WORD
.WORD
WORD
WORD
WORD
.HORD

O
O
O
O
O
O
O

; TEMPORARY STORAGE FOR ERROR REGISTER
: TEMPORARY STORAGE FOR DRIVE STATUS REGISTER
: TEMPORARY STORAGE FOR MRINTENANCE REGISTER 1
: TEMPORARY STORAGE FOR MAINTENANCE REGISTER 2
: TEMPORARY STORAGE FOR MAINTENANCE REGISTER 3
: TEMPORARY STORAGE FOR ECC POSITION
: TEMPORARY STORAGE FOR ECC PATTERN
: TEMPORARY STORAGE FOR DATA BUFFER REGISTER

.SBTTL

DRIVER PRRAMERTERS

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

.WORD
.WORD
.WORD
ERRFRE
ERRHDL
CONERR
.WORD

003046
003050
0030se
003054
0030S6
003060
003062

177440
000210
000240
030272
031504
031000
000000

T.08B:

WORD

CYLINDER

: TEMPORARY STORAGE FOR ATTENTION SUMMARY
;

__RAND OFFSET

; ADDRESS OF RK611 UNIBUS ADDRESS BLOCK

177440
clo
PRS

:ADDRESS OF Re11 VECTOR
'RK611 INTERRUPT PRIORITY
ADDRESS OF NORMAL RETURN FROM DRIVER
:ADDRESS OF ABNORMAL RETURN FROM DRIVER
;ADDRESS OF CONTROLLER ERROR RETURN
;CONTROLLER ERROR_STATUS

l
9
.

THIS LOCATION IS CLEARRED WHEN EVERY COMMAND

IS INITIARTED.
IF A CONTROLLER ERROR
SgEBRS THE FOLLOWING BIT RSSIGNMENT IS

CLERR CONTROLLER DID NOT CLERR ERROR

000001
000002
000004
000010
000020
0ooo40

E.CCLR=
E.NOART=
E.URTT=
E.UDAT=
E.CLAT=
E.SCLR=

BITO
BIT}
BIT2
BIT3
BITY
BITS

000400
001000
002000
040000
100000

000100

E.ILLD=
E.OLT=
E.CERR=
E.DPRR=
E.CMTO=
E.MDS=

BITH
BIT8
BIT9
BITI0
BITI1Y
BITIS

003064

000000

O.WRIT:

.WORD

003066
003070

000400
000400

W.MTIM:
W.MILI:

.WORD
.WORD

400
400

NO ATTENTION IN ATTENTION SUMMARY REG

UNSOLICRTED ATTENTION (SEQUENTIAL ONLY)
;UNEXPECTED DATR TYPE ERROR
SATTENTION CID NOT RESET WITH CLEAR
SU%SYETE?OELERR DID NOT CLERR DRIVE

ILLEGRL DRIVER COMMAND
:DATA LATE WHEN UNLORDING HEADER
:CONTROLLER ERROR DURING DRIVER SERVICING
;DRIVE DETECTED PARITY ERROR
:CONTROLLER COMMAND TIME OUT (QUEUED ONLY)

{MULTIPLE DRIVE SELECT

; PARAMETER BLOCK OF THE DRIVE

'WAITING FOR COMMAND COMPLETIQ
:LOOP_ COUNTER FOR MILISECOND SCQN OF DRIVE
;16 MILISECOND TIME FOR PROGRAM
!
l
:

CPU

VALUE

11085

100

’
!
l

’
.

!
.
.

11710
11,20
11/34
11740
11745
11/580
11-70

400

SZR6QGBO_RKe DR CPT PROG MACY1!
CZR6GB.P11
02-DEC-77 10:46

30(1046)

KOS

02-DEC-77
11:48
PAGE 63
DRIVER PARAMERTERS

2881
2882

003072

000300

W.SEC:

2883
2684
2885
2886

003074
003076
003100
003102

003000
030000
000000

W.BSEC: .WORD
W.MIN:
.WORD
HDR.AD: .WORD

2888
2889
2830

003104
003105
003110

000
002
000

0000DC

2832

2834

003111

003112
003113
003114
003115
003116
003117
003120
003121

003122

23913
2920
2921
2922
2923
2924

003130
003131
003132
003133
00313%
003135

2925

003136

2929

003142

2926
5355
2928
2930
2931
2932
2933
2934
2935
2936

003137
003140
003141
003143
003144
003145
003146
003147
003.50
003151

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

3000
30000
O

'8 SECOND FOR DRIVE CYCLE DOWN
'MINUTE TIME FOR START SPINDLE
nooazss USED FOR READ ALL HEADERS

O
2,4,10
O

: INTERRUPT OR RELEASED COMMAND ISSUED
; HEAD DECODES
DRIVES BEING WATCH-DOG TIMED

{NUMBER OF HEADERS LEFT T RERD FOR READ

INTMSK:

.BYTE

;

INTERRUPT MASK

I.ORV:

.BYTE
BYTE
BYTE
JBYTE
BYTE
.BYTE
BYTE
.BYTE

.SBTTL

PARAMETER BLOCK

002640

PBLKT:

PARMO

000000

.SBTTL TIME FOR WATCH-DOG TIMER
W.DRV:
.WORD
O
IME FOR INSTRUCTION IN PARAMETER BLOCK
.BTTL PROGRAM SPEC.FIC Rsssnvsb LOCATIONS
MDFLAG: .BYTE
O
LARG _TO INDIC. DEFLT OR PARAM MODE
TSTING: .BYTE O
; CURRENTLY RUNNING TESTS IF = 1

000

001
002
004
010
020
040
100
200

2912

Saly
2915
003124
2916
2917
003126
2918 003127

010

;SECOND_COUNT COUNT FOR ALL COMMANDS
EXCEPT START SPINDLE

INTERRUPT MASKS

2307

2905
2310

004

_WORD

300

.SBTTL

28%

26898
2899
2900
2901
2902
2903
2904
2305

HOR.CT:

.WORD

SEQ 0062

00G

000

000
000
000
000
000
000

DERCNT:
OPCOMP:
DONE
TYPFMT:
FORMAT:
ERRCNT:

.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE

.BYTE

000

MEMABT:

.BYTE

O
1
2
3
Hd
5
&
7

TABLE

:ERROR_COUNT FOR CURRENT DRIVE
OPERATION CONTROL SWITCHES
;=1 INDICATES DRIVE SIEZED BY OTHER PORT

REISSU:

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

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

O
O
O

000

TSTTYP:
DCEFLG:
WCEFLG:
OLTFLG:
DIF100:
NORTRY:

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

;DATA _ERROR COUNT
:OPERATION COMPLETE FLAG
:DONE_SWITCH
;DRIVE TYPE & FORMAT CONTROL
iORIVE FORMAT IN BIT
4 OF BYTE
}ERROR COUNT

008
000
000
000
000
000

MASK
MASK
MASK
MASK
MASK
MASK
MASK
MASK

0
O
O
O
O
O

_BYTE

.BYTE
.BYTE
.BYTE

; INTERRUPT
; INTERRUPT
; INTERRUPT
: INTERRUPT
: INTERRUPT
: INTERRUPT
: INTERRUPT
: INTERRUPT

:ADDRESS OF PARAMETER BLOCK GIVEN WITH
;DRIVE CALL.
MUST BE LOADED INTO PBLKT

ERRLMT:

ORVERS:
OPCONT:
DRNAFG:

IN PARAMETER BLOCK

TABLE

1
2
4
10
20
40
100
200

004

000
000
000

; INTERRUPT MASKS FOR DRIVE

O
O
O
O
O
0
O

;ERROR LIMIT

;DUAL-ACC_FLAG TO RE-ISSUE COMMAND

JOFFSET TEST IDENTIFIER
;DATA_CHECK ERROR FLAG
WRITE CHECK ERROR FLAG
:DATA LATE ERROR FLAG
i»CyL DIF = 100/200" FLAG
' »NO-RETRY" FLAG
iSET BYTE

FOR NO RBORT

bQBO RK& DR _CPT PROG MARCY1l 30(1046)
GB.P11
02-DEC-?7 10:46

LOS

02-DEC-77 _ 11:48_
PAGE &M
PROGRAM SPECIFIC RESERVED LOCATIONS

HLPOVL:
NOTYPE:
LOGORV:

003152
003153
003154
003155

.BYTE
.BYTE
.BYTE

P§SSN0
'B$¥E
8 28 .EYT

883185

uHosu-elrg

0O
O
O

003160
003162

000114

8s]

FFS ?U
T
N FLRG
(0=NEG)
8FF§ET
83
?
ESR
ONE
DIRECTION
'WRITE
gnrnSWITCH

:MEMORY PARITY TRAP VECTOR

.WORD
.BLKW
.BLKW
.WORD

O
#D2%6
$D2S6
0,0,0,0,0,0

SCRATCH WORD
"RECORD OF BAD SECTORS FROM SOF TWARE
‘RECORD OF BAD SECTORS FROM FACTORY
'PREVIOUS COMMAND STORARGE

COMSTR:

.WORD

0,0,0,0,0,0

: CURRENT COMMAND STORAGE

BUFFO:

.BLKW

$D&6

;OUTPUT BUFFER 1

.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O

'LOW 16 BITS OF CONVERTED BINRRY NUMBER
"HIGH BITS OF CONVERTED BINARY NO.
!BUFFER POINTER
!RECOVERY CODE WORD
ERROR COMMAND

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

O
O
O
O
O
O
O
O
O

CURRENT NO. OF UNIT STALLS TO APPLY
:CURRENT CYLINDER NUMBER
JOFFSET IN
USE
1TRACK IN U
STTY INTERRUPT INPUT WORD
s ALL-PURPOSE SCRATCH WORD
:DATAR PATTERN LIST WORD
:(+) OFFSET VALUE
‘(-) OFFSET VALUE

FINCYL: .WORD

LASTWC: .WORD
NEWON: 'SEQB

O
O
O
O
g

'FINAL TRA
SFINAL SECTOR RDRS

'ACTUAL FINAL WC
'NEW LOOK AT ONLINE DRIVES

PMA:

BLKW

:MEM.

DRVLST:

.BLKW

17.

STALLS:
CYLNDR:
OFINUS:
TRACK:
INTCHR:
SCRACH:
PATRN:
PLOFST:
NGOFST:

SAVPRS:
WDSXFR:

.WORD

.BLKW
.WORD

FINTRK: .BYTE
FINSEC: .BYTE

p00ssee

*OFFSET REQUIRED SWITCH

SAVWRD:
BSSOFT:
SFACT:
RVCMD:

DRIVE:

005554
00S5Se

JWRITE CHECK DATA SNITCH
:READ CHECK DRTA SWITCH

oaeosu:axrcsN

LOWOCT:
HIGOCT:
BUFPRT:
RECODE:
ERRCOM:

00sSs10
00sS1e

,vsnxrv HEQ ERS

WCDASW=BIT2
RCOASW=BIT3

MEMVEC=114

ON MEMORY PARITY ERRORS

‘HELP FILE OVERLAID INDICATOR
*INDICATES PROGRAM JUST LOADED IF O
,LOGICRL
onxvs NUHBER (00-17)

VFHDSW=BIT1

000010
000020

SEQ C063

SUBSYS: .WORD

DRVPTR:
.WORD
SCRLST: .BLKB

&
D

DRIVE IN USE

;SAVE_INITIAL PARAMS FOR_XFER
NO. OF
WORDS ACTUALLY XFERRED

FINRL chénosnADRS

BUFFER ADDRESS

: CURRENT 8u33v§ ?" NQME STORAGE <nsc11)
'EACH WOR

NTAINS THE NAME OFA DRIVE

ro BE TESTED. HIGH BYTE IS SUBSYSTEM

NAME,

LOW BYTE IS DRIVE NO.

IF WORD
=

(RSCII).

DRIVE IS NOT TESTED.

:DRIVE
LISTY PotNTER
:SCRATCH DRIVE LIST

3011046)

02-DEC- 77

000000

taBLER:
)

WORD

WORD
WORD

g
ol ol ST Spu
]
Ll

DONOC
N EWhN—

WWWwWwWwWwwuw
OO00O00O0O000O0

000622

005766

00e010

001446

000016

.TABLE B

072307
135143

143564061672

tRBLEB:

620,2
620.4

B58:1

;DRIVE

1
2

;

WORD
WORD
"WORD
_WORD
_WORD
WORD
WORD

22,2
622,4
622.6
622,10
622,12
622, IH
622,16

:
;
:
:
:
:
:

258:6

:
;

520,1:

:TABLE A TABL7A:

20,0

fiogo

.ugn

00S762

SEQG 00&M4

BASIC READ/WRITE TEST SECTORS FOR RKObB

‘WORD

001444
001444
001444
001444

MOS

PRGE &S

PROGRAM SPECIFIC RESERVED LOCATIONS

-TABLE A

00SS6e6

11:48

g
1
1
1
1
1
1
1

NN Ewhu—-0O

CZR6ABO RKE DR CPT PROG MACY11l
0e-DEC-77 10:46
CZRb6GB .P11

CORRESPONDING CYL NUMBERS FOR THE RKO7

.WORD
ORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

072307
135143
166461
167230
073514
035646
016723
107351
143564
061672

1444,0
14442
14444
1444.6
144410
144412
144414
144416
1446,0
1446.2
1446,4
1446.6
1446, 10
144612
1446, 14
1446, 16

DRV O
1
¥
'3
g

'S
‘6
:7
;10
111
P12
113
‘148
;18
116
117

WORST CASE DARTA PATTERN

CZR6GBO RK& DR CPT PROG MACY1l1

CZREGB.PIL1
3049
3050
205]
3052
3053
3054
3055

3058

3059
3060
3061
3062
3063
3064
gggg

02-DEC-77 10:46

006012
006014
006016
006020
006022

030735
114356
046167
123073
151453

006026
006032
006036
006042
006046
006052
006056

000000
000100
000200
000300
000400
000S00
000600

006024

000060
000160
000260
000360
000460
000560

006060

000000

000160

3071
3072

006070
006074

000400
000600

000560
000760

000200

3072
3074
3075

006100
00104
006110

001000
001200
001400

3080

006112

000020

3081
3082
3083
3084
3085
3686

006132
006152
006172
006212
006232
006252

3087
3088
3089
3030
3091
3092
3093
3094
3095

006272
006312
006332
00e3S2
00637¢
006412
006432
006452
006472

3100

0oes12

3096
3097
3098
3099
3101
3102
3103
3104

006512
006514
006516
006520

000020
G00020
000020
000020
000020
000020

NOS

PAGE 66

TABLE OF STARTING CYLINDERS FOR ALL OVWRT AND COMPAT CYL BLKS FOR RKOB

$ABLEC:

000360

TRBL?C:

001160
001360

.WORD
-WORD
-WORD
"WORD
-WORD
.WORD
_WORD

0,60
100, 160
200,260
300,360
400’460
500,560
&00’

.WORD

0,160

; CURRENT ZONE

-WORD
.WORD

400,560
600’760

:3
g

-WORD

200, 360
1000,1160
1200, 1360
1400’

CYLINDER BLOCK LAYOUT TABLE

tas

;FOR CURRENT ZONE 1
:
2
:
3
:
4
;
g
:
3
:
7

CORRESPONDING CYL NUMBERS FOR RKO7

-WORD
-WORD
_WORD

000020
000020
000020
000020
000020
000020
000020
000020
000020

LKB
BLKB
BLKB
BLKB
BLKB
BLKB

BLKB
BLKB
BLKB
BLKB
BLKB
BLKB
BLKB
.BLKB
.BLKB

16.

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

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

tABLE

040135
177070
070414
064531

:g
43
7

;CYLINDER O IN BLK

:
;
:
:
;
:

:
:
;
:
:
;
;
:
:

TRBLE G - PSEUDO-RANDOM DATA PATTERN

040135
177070
0704148
064531

SEQ 0065

164616

:TRBLE C

006064

11:48

PROGRAM SPECIFIC RESERVED LOCf.TIONS

164616

3069

3076
3077
3078
307

02-DEC-7?7

030735
114356
046167
123073
151453

gggg

3070

30(1046)

1
2
3
g
g
6
7
10
11
12
13
14
15
16
17

CZR6QB0 RKE DR CPT PROG MACY1l
CZR6GB. P11
02-DEC-77 10:46
3105
3106
3107
3108
3109

006522
006524
006526
006530
006532

534
0065836
006540
006542
0OESYY
006546
006550

174473
062422
114352
036620
010031
052336
017310
011347
102367
152567
001246
160073

006SS2

000

001

3131

006572

3133

006600

3110
3111
3112
3113
3114
3115
3115
3117

30(1046)

174473
0b2422
114352
036620
010031
052336
017310
011347
102367
152567
001246
160073

3118
3120

3121

3122
3123
3124
3125
3126
3127

3130
3132
3134
3135
3136

3137

006555
006560
006563
006566
006571

006575

gi:é
3143

3%33
3146

gi:g
3151

gigg
3184

gigg
3157

gigg

3160

LIST OF STARTING DRIVE NUMBERS,

012
014
007
013

003

017
004
002

&7DLST: .BYTE

000

0ol

oo2

&eEcLst: .BYTE

00?7

010

012

006
005
015
016
010

003

005

014
020

006

013
017
022

006612

000020

NOSCRG:

C06652

000020

NOSCRI:

006712

000020

fOSCR3:

006752

000020

POSCRO:

007012

000020

POSCRI:

007052

000020

POSCRE

TO GENERRTE TABLED

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

.LIST OF USERBLE SECTORS

006603
006606
006611

313
3140

BO6

02-DEC-77
11:48
PARGE 67
PROGRAM SPECIFIC RESERVED LOCRTIONS

IN sncu CYL INDER BLOCK

oO0,1,2,3,5,6,7,10,12,13,14,15,17,20,21,22

015
021

TRBLE OF ovsnunxrs TEST SCORES FOR TRACK O FOR NEG OFST

.BLKW

1b.

TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR NEG OFST

.BLKW

16.

TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR NEG OFST

.BLKW

1B.

TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR POS OFST

.BLKW

16.

TRBLE OF oveauaxrs TEST SCORES FOR TRACK 1 FOR POS OFST

.BLKW

1b.

TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR POS OFST

.BLKW

16.

SEQ 0066

CZR6QB0 RK6 DR CPT PROG MACYIl

CZR6GB.P11

02-DEC-77 10:46

3161

3162

g}ga

3165

312?
3168

3169
3173

gi;g

3176

gigg
3179

gig?
3182
3183
3184
318s

g{gg

3188

gigg
3191

gigg

30(1046)

02-DEC-77

%1:48

COb

PQSE Be

PROGRAM SPECIFIC RESERVED

-TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRACK O FOR NEG OFST

007112

000020

NCSCRO:

.BLKW

0071S2

000020

NCSCRI: .BLKW

007212

000020

NCSCR2: .BLKW

007252

000020

APCSCRO: .BLKW

007312

000020

ACSCRI:

007352

000020

PCSCR2: .BLKW

007412

000000

NSSCRO:

007414

000000

NSSCR1:

007416

000000

NSSCR2:

007420

000000

PSSCRO:

007422

000000

PSSCR1:

007424

000000

PSSCR2:

007426

000000

OVRAVG:

007430

000000

COMAVG:

007432

000020

NSCORO:

16.

. TABLE OF DATA COMPATIBILITY TEST SCORES FOR TRARCK 1 FOR NEG OFST

IE.

. 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

.BLKW

1b.

g}gg

3199

358?
3202

ggga
320S
3206
3207

gggg
3210

ggié

3215

3216

1 FOR POS OFST

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

16.

.SELF-TEST SCORE FOR TRACK O FOR NEG OFST

.WORD

.SELF-TEST SCORE FOR TRACK

.WORD

1 FOR NEG OFST

.SELF-TEST SCORE FOR TRACK 2 FOR NEG OFST

.WORD

3194

3195
3196

SEQ 0067

LOCATIONS

.SELF-TEST SCORE FOR TRACK O FOR POS OFST

.WORD

-SELF-TEST SCORE FOR TRACK

.WORD

FOR POS OFST

.SELF-TEST SCORE FOR TRACK 2 FOR POS OFST

.WORD

. AVERAGE OF OVRWRT SCORES OVER ALL SURFACES

.WORD

. AVERAGE OF READ SCORES OVER ALL

.WORD

SURFACES

.SCRATCH TABLE OF SCORES FOR TRACK

.BLKEB

16.

0O FOR NEG OFST

CZR6GBO RKE DR CPT PROG MACY!l

CZR6GB.P11

02-DEC-77 10:46

30(1046)

3 fe

02-DEC-77

11:48

D06

PAGE &9

PROGRAM SPECIFIC RESERVED LOCATIONS

.SCRATCH TRBLE OF SCORES FOR TRACK 1 FOR NEG OFST

3218

007452

000020

NSCORI: .BLKB

16.

ggsg

007472

000020

fi2CoR2: .BLKB

16.

007S12

000020

p2CORD: .BLKE

007532

000020

PSCOR1: .BLKB

007552

000020

b3COR2: .BLKB

000002

LSTTRK=2

sLAST TRACK = 2

WCERR=BITH

:HVRC ERROR
;0PI ERROR
‘DATA CHECK ERROR
'ECC_NON- CORRECTQBLE
NRITE CHECK ERROR

3551

3236

ggsg
gggg

3230

3232

ggga
3235

3539

SCRATCH TABLE OF SCORES FOR TRACK 2 FOR NEG OFST
SCRATCH TABLE OF SCORES FOR TRACK O FOR POS OFST

BSERR=BIT}
HVRCER=BIT2
OPIERR=BIT3
DCKERR=BITH
ECCNC=BITS

5532
3246
3247

888388

fgeRTEBé}¥a

gouooo

RghggOEBI;il

000100

001000
602000

%ggl

3252

168888

007572

00S01S

Q41412

.ASCIZ

<12>/RK06-07 BUS ROR = /

033060

030055

RKVAOR:

.ASCIZ

/RK0O6-07 VEC ADR =

030113

0eb46b

RKPRTY:

.ASCIZ

/RKO6-07 PRIORITY =/

007666
007674

033460
040440

041040
O0S1104

05152S
036440

(045522

122

007704

3269

00772

3270
3271
3272

007734
007742
00775C

020067
092106
00
033460
0S1117
00007S

SNY ERRSR D *Ecv D FLAG

RKBRDR:

3262
3263

007712
007720

Nvosbégftlg

RIeLIBRRTE REQUIY0 1 HER PORT

026466

026440
026466
042040
Q41440
044524
0S4524
051107
000012

326S

TWO _ERR
EsoVELSECTOR
FLSG
TIME OUTS

<«15>¢12>¢12>/CZREBO - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM/(¢1S><12><12

030102
030113
033460
(042526
040520
044514
047522
00S01S

3266
3267

anogsczgxrq
TWoY06S=BITiO
.ASCIZ

050466
051040
045522
Q044522
046517
044502
0S0040
046501

051012

:BSE_ERROR

DZREQ:

007600
007606
007614
007622
007630
007636
007644
007652

007660

16,

051132

3253
3254
3255
3256
3257
3258
3259
3260

3261

16.

SCRATCH TABLE OF SCORES FOR TRACK 2 FOR POS OFST

000002
000004
000010
000020
000040

3248

16.

-gcnnrcn TRBLE OF SCORES FOR TRACK 1 FOR POS OFST

3238
3239
3240
3241
3242
3043

SEG 0068

030113

0Q42Se2e6
ca20le22
0S0040
052111

020103
02007S
(Q44S2e
020131

CZR6QBO RKE DR CPT PROG MACY1l

CZREEB.PLI
3273

007752

3274
3275
3276
3277
3278
gggg

007760
007766
007724
010002
010010
8{8853

3281

010025

02-DEC-77 10:46
0S2012

J2S013]1

30(1046)

02-DEC-77

11:48

PRGE 70

SEQ 0069

PROGRAM SPECIFIC RESERVED LOCATIONS

040516
020106
0S1440
020182
O0S1S
0508%8

042S1S
Q4eS16
041125
047524
020le4
0200S1

020105

047440
0S2130
0S4S23
052040
040450
020072

TYPSYS:

.ASCIZ

<12>/TYPE NAME OF NEXT SUBSYS TO TEST

(R-P)

012

0S1104

0583111

ARSKTYP:

.RSCIZ

<12>/DRIVE TYPE

FOR RKO?7:

B&¢CR>

FOR RKOb,

3282
3283
3284
3285
3286

010032
010040
010046
0100SY
010062

020105
020040
020076
045522
036067

0S4Se4
036066
047506
033060
051103

Q4esSe0
051103
0e0l22
020054
020076

3283
3290

010103
010110

123
020123

041125
020040

054523
QS1104

SYSDRV:

.ASCIZ

/SUBSYS

3233
3294
323

010130
010136
QI01WY

044527
051505
ge3lll

046114
020124
029105

052040
0S1104
024523

WILTST:

.ASCIZ

/WILL TEST DRIVE(S)

3297

010154

047440

020116

052523

ONSUBS:

.RSCIZ

~/ ON SUBSYS

3300

010174

0S1S11

052040

042510

ANOTHR:

.RSCIZ

/IS THERE ANOTHER SUBSYS

DROVFL:

.ASCIZ

<12>/MORE THAN 16 DRIVES ENTERED

2 Sl phe Bis oo

3 sl sl il o

3301
3302
3303
3304

010202
010210
010216
010224

3307

010245

042522
0OM4124
041125
0S4450

040440
0S110S
0S4523
047440

047516
051440
020123
020122

0l2

047515

042522

5 HsE Bl B g

DRIVE(S)

~/«<1SX<lar<ia>

01025¢
010260
010266

0Se040
033061
042526

040510
042040
020123

020116
044522
04710S

3313
3314
3315

010307
010314
010322

0l2
040Se4
020107

025052
0Sclee
047520

0S1440
047111
051523

SRPASS:

.RSCIZ

<«l12>/%% STARTING PRSS

3318

010340

046412

0S2517

052116

MNTPAK:

.ARSCIZ

<12>/7MOUNT PACK ON DRIVE

046116
0S1104
020040

040517
053111
040440

DISPAk:

.ASCIZ

<«12>/UNLOAD DRIVE

5i5 glmn g Ssh S
3319
3320
3321

010346
010354
010362

0SO040
Q47117
042526

3324
3325
33c6

010404
010412
010420

0Se41”
02010
020105

e
3327
3328

010426
010434

042116
0583117

041501
042040
020040

0S1040
020105

020113
Q44522
020040

046505
040520

= /

3308
3309
3310

i Nl B gee o

7<CR>

(Y OR N <CR>)

!/<1S> (12><12>

#x/(15> 12>

AND LORD. 7<15> ¢12>

AND REMOVE PACK./<l1S><¢1&>

0000000000000 00000000000O000ODOO0O00O000O0000000O0DO0D00D

O
[1 [ e

0000
otadaladadil

00000
£LerLn

oo
QoOOo0O—nrnnnn-—
oo cnWWWW—

vononn
| olel
e

000
ofun
‘ M
0N
O
£

Ll RN TN

NENNONWO
W NO

= e (N b L o e O e e m
m»—mm-—m:m—-:omg
N

Q=0
£
= )= P
Y~
W

Zos o= EZan

NONUI—~

RRARZZRZOR ZZRIR2 R238
8o
8?8888?888%
New—0 gmo—(fl
'—\l\l\l\lgd‘mh Lo \32?
SRARR®N gwmv-ru

000
00000
o
nnn
anninNg
(1]
onoe
e bt e pe )
=L N
anan Ot
e b= 1= O OWN LV e
L
U e Pt Bt (st Pa
s s e )0 B
~N
P
o
n

2 FRRREERERAAARBBARAARAL
FMD\IVG‘(flthg?O—’—O}O‘
g;lh‘&
RENroR 2EENERREUrohooR
FrERRN 18
oo LEo0cOWw
oontLo

[k and ol ol e e e ey e e
L el el el el el ol oy Syt etwtwteteutetetetetetetotetutatetatetetestatetatetetete
Pt o Pt Pt Pt P Pt Pt Pt et Pt Pcn Pt e Pe ()00000000000 Q0
o
Q0
———=00000 QOO00000NNN NNNN
o
££
~o U
£00
Lo

CZRBEUBO RKE DR CPT PROG MACYL11
CZRB0GB.P11
02-DEC-77 10:46
30(1046)
000012
gsz2lee

11:48_
PAGE 71
02-DEC-77
PROGRAM SPECIFIC RESERVED LOCRTIONS

FO6

12> /START AT ADR 204 FOR PASS 1 CN SUBSYS
./<1S> 12>l

0s1101
o40440
030062
0S0040
023062
Q411es
027040
<12>/START AT ADR 220 FOR PASS 2 ON SUBSYS
./«1S>dla><la»

0s1040
0S3440
000
042526
054504
/TYPE
R<CR>

/DRIVE
RERDY

035040
/DONE

g44522
O44S 1Y
043040

/NO DRIVES LISTED FOR THIS SUBSYS

:
:

SEQ 0070

WHEN
/

<15><1¢>7SCORES FOR DRIVE

!/<¢1S>«l2>

(0-12 DEC.)
:/<I1S>dUlar<12>

/TRACK
DRIVE
OVRWRT
OVRWRT
RERD
RERD/<¢15> (12>

/NUM
REARD
SCORE
SCORE
SCORE
SCORE-/<¢1S><12>

OFSTOFST+
OFSTOFST+/<(15><12><
12>

CZR6ABO RKE DR CPT PROG MACY1l
CZReG@B.P11
-DEC-77 10:46
3385

3386

0l1l24

011132

3387
3388
3389
3390

011140
Q011146
011181
01115&

3393
3394

011176
011204

O0esSed

00S01S

30(1046)
000012

GO6

02-DEC-77
11:48
PRGE 72
PROGRAM SPECIFIC RESERVED LOCATIONS

047440

051126

051127

ORVERG:

.ASCIZ

~/ OVRWRT AVG = ~/

040
040::0

042Se2
0“3536

042101
020040

RAVERG:

.ASCIZ

7 READ AVG

042440
020106

042116
0Q42Se4

0201;;

gggé 81&1?0 88&01

053101

82881

020107

SEQ 0071

= /

020052 ENDTST: .ARSCIZ «1S><12><12>/%% END OF TESTING ##/¢15> 12>

gggg

0%}218

04?&11

8 86?;

047440
0S2123
025040

3398
3399
3400
3401
3402
3403
g:gg

011230
011235
0l1l24e
011243
011245
011252
gi{ggg

020040
123
000
011
23
000040
8588;8

004440
046105

000
004506

DORVBUF:
SELF:

.ASCIZ
.RSCI1Z

~
/SELF

000
051127

036440

TRB:
SWRMSG:

.ASCIZ
.RASCIZ

~
/SWR =

042868

020127

NEWMSG:

.RSCIZ

3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417

011265
011272
011300
011303
011310
011314
011322
011330
011333
011340
011346
011347

01S
042526
020075
104
020040
047516
051511
00S01S
116
040505
000
127

042012
0S1450
000
044522
000040
026516
042524
000
052117
054504

044522
0200S!

DRVSEQ:

.RSCIZ

<15 <12>/DRIVE(S)

042526

BRODRYV:

.RSCIZ

/DRIVE

GS410S
052116

NXDRIV:

.ASCIZ

/NON-EXISTENT/<1S><12>

051040
005015

NTREDY:

.ARSCIZ

/NOT RERDY/<1S><la>

044522

042524

WRTLOK:

.RSCIZ

/WRITE-LOCKED/<¢1S5><12>

3420
3421
3422

011366
011374
011402

047514
0S3440
046101

Q42101
052111l
043511

ALNPAK:

.ASCIZ

/LOADED WITH ALIGN PACK/<15><1a>

011416

000

045503

4210S
20110
020116

005015

020106

0S4130

REPLPK:

.ASCIZ

~/IF XXDP PACK ON DRV 0,

20113

047117

Q42040

3397 8115%4 888055 000011

3423

011410

3425

011447

3424
3426

342?

Qll4g4

0114

040520
0S0104

0OS0040

041501

TRKBUF: .RSCIZ ~/

/
/

NEW = 7/
=

TYPE

“Y

«CR>",

34e€
3423
3430
3431
3432

011440
011446
011454
0l1462
011470

053122
0S4524
020131
026042
04eSe2

030040
Q42520
041474
023040
046120

020054
021040
037122
020040
041501

3435
3436
3437
3438

011506
011514
011Se2e
011530

00S01S
047516
042526
0Se2040

025012
042040
020123
051505

020052
Q44522
047524
008524

NODRTS:

.ASCII

<15>¢12><12>/%#% NO DRIVES TO TEST/¢1S> ‘12>

042522

0S1523

CNTRDY:

.ASCIZ

~/PRESS

3439
3440

011536
011837

0ie
120

“CONTTM

WHEN RDY/<1S><12>

REPLRCE

051Q40

047503
Qu4127
0s4504

g4a2see

046101
0Sesat

021040

OSO 4Ye

21g
042043 843828

30(1048)

gg 052
120
0S1104
020055

HOB6

02-DEC-77
11:48
PRGE 73
PROGRAM SPECIFIC RESERVED LOCATIONS

HLTRQD:

.RSCIZ

+HAL”Y REQUESTED/«<1S><l1a>

DROXDP:

.RSCIZ

/DRIVE O IS LORD MEDIUM/<15><¢l@>

DROPDR:

.ASCIZ

<(15,<¢12>/%%

DROPPING DRIVE - 20 ERRORS/<¢15>
(12>

020107
02010S

o44524
044522

043516
042526
05015

TSTDRN:

.RSCII

<15>¢<12>¢12> /TESTING DRIVE /

44522

042040
040
000
0425¢6

DRVNO:
DRIV:

.RASCIZ
.RSCIZ

VAL
2X< SY2
/DRIV E /

0sea1e2

020056

CART:

.RSCIZ

/CART.

05110S

020056
802040
52103
000
052106
Q40
051440
051522
000
047117

SERNM:

.RSC1Z

/SER.

NO.

FRACTBS:

.RSCIZ

<15><¢12> /FRCTORY /

SOFTBS:

.HSCII

12> /SOFTWARE

BOSECT:

.RSCIZ

/BAD SECTORS

:/<¢1S<1a>

NOFALS:

.RSCIZ

BRDB3E:

.RSCIZ

s%%

CNTRLC:
CNTRLZ:
CNTRLR:
CNTRLU:
CNTRLG:
CReLF:
BKSLSH:
COMMA:
SPACEb:
SPACEM:
SPACEJ:
SPARCE?Z:

040
000105

047040

ge250se

020040

040503
0Ss1040
040s02
052103
040522
ooogle
000
oooole
000
0o00le
8]8]8)
000

4 0t 0t 5t 5t 5t Dt P

Q41505
035040

B40838

== ININININNNN N

040
104
000040
040503
000
123
847 1%
0S01
051117
0i2
o4ase?
102

e St fEodje

Dt Bt Pt

047111
053111

DDODDODDDODDODDDODDD
nununuvinuunnnn
OOOOOO0OOOO0

nNL£NINon£ VU‘DU"—-U’!ONM"O% IU"-O%?U’D%I NorOfh£

OO0O000ONNNNNNNNNNNNNOO
O 0 OO0 OO O NN
N—QONNOMNL
L LWWNNNRN—~=ONNOWNLL
L
==
0NN
£

P e e s e
bt Bt s e e e (D O
L
L L L EL£WWLWNNL—0O0N a
NONW—NWoE— LN
Lo

0000000000 00000000

3441

00000000 OOO0DOOODOOOODOO0ODOO0000CODOO00D

CoRBJIBO RK& DR CPT PROG MACY1l
CZR6GB .P11
02-DEC-77 10:46

NONE~/

CANNOT READ BAD SECTOR TRACK!/<1S><1a>

SEQ 0072

CZR6GBO RKE DR CPT PROG MACY1l

CZREGB.P11
3497
3498
3499
3500
3601
3502
gggg

02-DEC-77 10:46

012150

000040

012152
012156
012164
012170
012173

020040
047527

036440
020052
076

30(1046)

D2-DEC-77

000040

PRMBUF:
WORDSP:
EQUALS:
PROMPT:
PRMPSP:

3505
3506
3507

012176

012202

000403

105037

003126

3513

012204

DFSTRT:

3514
ggig

Q1é2le2
012220

112737

112737
000406

00000

3517

(0l2222

112737

000002

000062

003155

3520

O0l2236

012737

000340

3522
3523
3524
3525
3526
3527

Q12244
012250
012252
012256
012260

012706
005026
022706
001374
012706

001100
001140

3529

012264

012737

044606

gg{g

3521

3528

SEQ 0073

.ASCIZ
.EVEN
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ARSC1Z

/ ~
~
=/
/WORD /
~/ = ~
/» ,

EVEN

3510

ggié

PARGE
7

PROGRAM SPECIFIC RESERVED LOCQTIONS
SPACELl:

000075
042122
000040
000
000040

I06

11:48

012230

112737

000061

003126

PISTRT:

003126

P2STRT:

177776

CMSTRT:

003155

PISET:

CLRB

MDFLAG

PISET

MOVB

#1,

MDFLAG

MOVB
BR

s’| PASSNO
cMSERT

MOVB

82, MDFLAG

MOVB

&' 2, PRSSNO

MOV

:SET FLAG FOR 200 START

: CONTINUE

;SET FLAG FOR 204 START

*SET PASS NO. = 1
: CONTINUE

:SET FLAG FOR 220 START

'SET PASS NO. = 2
-BLOCK ALL

.SBTTML INITIQLIZE The connon 1R84S

INTERRUPTS

:CLEAR THE COMMON TAGS (SCMTAG) RREA
MOV
oschnc Rb
:sFIRST LOCATION TO BE CLERRED
CLR
(RE)+
! CLEAR MEMORY LOCRTION
CHP
csun R& ;;DONE?
BNE
s
:;LOOP BRACK IF
N
MOV
ACK , SP
:'SETUP THE STRCK POINTER

001100
000020

,,INITIRLIZE A FEN vectons
MOV

#SSCOPE , 98 I0TVEC

; 10T vscron FOR SCOPE ROUTINE

3530
3631
3532
3533
3534
3535

012272
012300
012306
018314
012322
(012330

012737
012737
012737
012737
012737
012737

000340
044102
000340
045320
000340
044452

000022
00003C
000032
0006034
000036
000024

MOV
MOV
MOV
MOV
MOV
MOV

8340, 98t0TVEC+2 ;;(EVEL
#SERAOR, JSEMTVEC' : EMT vscron FOR ERROR ROUTINE
$340, IsEMTVEC+2
;t
#STRAP, 38 TRAPVEC'
TRRP VECTOR FOR TRAP CALLS
8340, 9B TRAPVEC+2; (EvE
#SPWRDN, 98PWRVEC’ PONER FAILURE VECTOR

3537
3538
3539
3540

012344
012352
(12356
012364

013737
005037
112737
012737

017250
001316
000001
Gl2364

017242

MOV
CLR
MOVB
MOV

SENDLT, SEOPCT
sss
CAPE
. SERMAX
o ,sLP DR

012400

013746

00000M

3536 012336 012737 000340 000026

3541

3542
3543

3544

3545
3846

012372

Q12404
0l2412

012737

012737
012737

012372

001115
001106

001110

MOV

000004
001140

Qledde
012434

022777
001012

177777

1665049

35S]

(012436

000403

3550

355z

012440

O0l2716

012446

SETUP THE ERROR LOOP noo ESS

TO A "-1%

£Y4%:

SETUP FOR
R SOF TWARE_SWITCH REGISTER

MOV

JMERRVEC,-(SP)

MOY

cooxsfi o:sanv :'AND A HARDWARE DISPLAY REGISTER

MOV
MOV

3547 012420 012737 177570 001142
3848
3543

LPERR

:SETUP END-OF -PROGRAM COUNTER
:CLEAR THE ESCRPE ON ERROR ADDRESS
,,nLLou ONE ERROR PER TEST
;§ INITIALIZE THE LOOP ADDRESS FOR SCOPE

,,srzs FOR A HaRouhRE SWITCH REGISTER IF NOT FOUND OR IT IS

;jEQUAL

012940
177570

$340 asbunvsc+e ,,tevs 7

~;;SAVE ERROR VECTOR

#6499 aoshnvzc
#DSWR, S

,,ssr UP ERROR VECTOR
,,ssrup FOR A HARDWARE SWICH REGISTER

CMP
BNE

#-1,ISUR
668’

P'TRY TO REFERENCE HARDWARE SWR
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED

6S$

:'BRANCH IF NO TIMEOUT

MOV

#6585, (SP)

'AND

THE HARDWARE SWR

:SET UP FOR TRAP RETURN

IS NOT

-1

CZREQBO RKE DR CPT PROG MACY1l 30(1046)

CZREQGB.P11
3553

3654

3555
gggg

Ql2444

012446

Qlo4sd
0i2462

3558

(012466

3562

012510

3559
3560
35l
3563

Q12472
012500
012502
012510

02-DEC-77 10:46
000002

012737

012737
012637
005037

132737
001403
012737
00000S

000176

000174
000004
001336

001351
001140
00000OM4

012512
012520
012524
0.2530
015534
01z540
012544
0175852
0'2556
0leSe2
012564
012570
012574
02602
012610

012737
005037
105037
105037
105037
105037
112737
104401
105737
001004
104401
105237
012737
012737
013701

000006
000006
003143
003137
003135
001102
000001
007572
003153
054342
003153
020634
000200
003050

3580
3581
3582
3583
3584
3585

012620
012624
012630
012636
012642
012646

013711
105037
012737
012701
012700
005021

003052
003127
000060
005162
000006

3579 012614 012721 034722

012650

3588
3589

012654
012660

3587

012652

001142

000200
001352

3564
3565
3566
3567
3568
3569
3570
3571
3572
S5’S
3574
3575
3576
3577
3578

3586

001140

000060
000062

005037
004737

005432
021136

012737
004737
105737

123456
024176
003126

65%:

663

67%:

40%:

3594
3595

3596
3597

3598
3599

012672
012700
012704

012710
(012712

012716
Q12724

(012732
012734

001034
013700

013737
132737

001005
012700

001400

001404
000200

177776
42%:

012746
012752
012756
012760
012764
012770
012776

110037
105037
000300
042700
010037
112737
000137

042352

00SS10

: ;POINT TO SOFTWARE SWR

$PASS

RESET

SAPTSIZE, SENVM
679
#SSWREG, SWR

:CLEAR PASS COUNT

,,TEST USER SIZE UNDER RPT
:YES, USE NON-RPT SWITCH
*NO,USE APT SWITCH REGISTER
CLEQR THE UNIBUS

MOV
CLR
CLRB
CLRB
CLRB
CLRB
MOVB
TYPE
1STB
BNE
TYPE
INCB
MOV
MOV
MOV

86, a8ERRVEC
J8ERRVEC+2
TSTTYP
DRVERS
ERRCNT
STSTNM
81 HLPOVL
D2RE6Q
NOTYPE
40$
NOTMSG
NOTYPE
$KBOHDL , 38 TKVEC
#PRY aofxvsc+a
RKVEL . R

:CLERR ERROR COUNT FOR CURRENT DRIVE
:CLEAR ERROR RETRY COUNT
:SET TEST NO. = O
ser HCP FILE OVLD INDICTR
TYPE PROGRAM 1.D.
sss xr OPERATOR NOTE SHOULD BE TYPED
'BR IF NOT
:TYPE OPERATORNOTE
'SET FLAG FOR NEXT TIME
:LORD VECTOR FOR TTY KBD
:SET KBD PRIORITY
noo OF RKO& vscron STORAGE

MOV
CLRB
MOV
MOV
MOV
CLR

RKPRI, (R1)
TSTING
#PRO, 9 %PS
sPRVEMD, R1
%6, RO
(RIH+

'SET RKO6 PRIORITY
:CLEAR "RUNNING TESTSTM FLAG
TALLOW ALL INTERRUPTS RGAIN
:ZERO OUT PREVIOUS COMMAND
:SET COUNTER
:ZERO A WORD

42%

:BR IF NOT DONE YET

8l. xutn (R1)+

DEC

CLR
JSR

STRLLS

MOV

MOV
JSR
1578

BNE
MOV

18%:

#SWREG, SWR

CLR

BITB
BEQ
MOV

MOV
BITB

120210

177437
003052
00010f
013774

SEQ 0074

#DISPREC, DISPLRAY
(SP)+,asERRVEC ;;RESTORE ERROR VECTOR

BNE
MOV

003046
001351

0030S0
003051

JO6

PRAGE 75

MOV
MOV

BNE

3600 012740 012737 1774940 003046

3601
3602
3603
3604
3605
3606
3607

RTI

MOV

3580 012664 012737 176543 042350 44$:

3591
3592
3593

_11:48

INITIRLIZE THE COMMON TAGS

003152

005300

001375

02-DEC-77

MOV

MOVB
CLRB
SlWAB
BIC
MOV
MOVE
IMP

WRG

:SET TIME-OUT VECTOR
:CLERR OFFSET TEST IDENTIFIER

;SET IT TO RKO®6HnDLER

SDON’T ALLOW STALLS YET
:OPEN SOF TWARE SWR FOR MODIFICATION

c17&543 $HINUM ; INIT. PSEUDO-RANDOM NOS.
81234956) SLONUM
PC,GETTYP
MDELAG

;SEE IF RKOG OR RKO? & SETUP
:SEE_IF DEFAULT MODE

ALLSYS
SVECT1,RO

:BR_IF NOT DEFAULT MODE
:GET RPT RKO6 VECTOR AND PRTY

183
SAVECT1

;BR IF NO SIZING
'GET DEFAULT VECTOR AND PRIORITY

RO, RKVEC
RKVEC+]
RO
#177437 RO
RO, RKPR!
#'A, SUBSYS
OFLYDR

:STORE VECTOR
:CLERR HI BYTE
.
IGET PRTY INTO BITS 5-7
:CLEAR OTHER BITS
:STORE RKOE6 PRIORITY
'SET SUBSYSTEM NAME = A
:G0 CHECK ALL DRIVES

$BASE, RKBRS
8177, SENVM

$RBASE kxans

:GET APT RKO& BASE ADDRESS
:SEE_IF NO SIZING

*GET DEFAULT BASE RDDRESS

CZR6@BO RK& DR CPT PROG MACYI11l
CZR&GB.P11
0e-DEC-77 10:46

3610

30(10486)

K36

02 DEC-77
_11:48
PAGE 76
INITIARLIZE THE COMMON TARGS

SEG 007S

3611
3612
ggia

D REREREREERERERRERRRRE
T R ER R R SRR R RN RRE SRR IR A RS R ERERLEI 1142 S
H
.SBTTL
TEST O
PARAMETER INPUT ROUTINES

3616
3617
3618
3619
3620
3621
3622

013002
013006
013012
013016
013022
013026

kEQD RND STORE ALL SUBSYSTEMS AND DRIVES TO TEST
ALLSYs: TYPE
SCRLF
; TYPE_CCR>, (LF>
CLRB
$TSTNM
iSET _TEST MO, = O
Move
#’A,R3
:INIT SUBSYS INDICATOR
MoV
.DROLST R1
!GET DRIVE LIST ADDRESS
MoV
#17. RO’
:CLEAR OUT THE DRIVE LIST
cs:
CLR
(R1)4

3625

013034

361S

3623
3624

i RN

013030
013032

104401
105037
112703
0le701
012700
005021

001325
001102
000101
00ssie
000021

012704

005512

010112
010103

005300
001375

3626
3627
3628

013040
013044

110337
104401

3630
3631
3632
3633

01304
013056
013060
013062

013002
013002
013044
00S700

3629 013050 004737 023424

3634
3635
3636
3637

013064
013066
013072
013074

3640
3641
3642

013106
013110
013116

3644

013126

3646
3e47
3648
3649
3650
3651

013132
013134
013136
013144
013146
013150

020100
001406
126127
001353
005201
000757

3653
3654

013152
013156

012701
005021

3638
3639
3643

364S

3652

013100
013104
013120

013130

001767
022700
002005
104401

104401
000757

00S001
126127
103766

126127
101362

DEC
BNE

MOV

10%:

00Ss212

cs
148

00S212

013160
013162
013164
013166
013170
013174

005021
005021
005011l
005000
11600f
042701

3eb4

013216

001364

GET STARTING RDRS OF DRIVE LIST

JSR

PC RDCHRS

:READ INPUT STRING

BEQ
cMP
BGE
TYPE

6%
#15.,R0O
12%
, BUFFO

TYPE
BR

005212
000060

366l 013200 116061 00S212
3662 013206 062700 000002
3663 013212 105760 005211

) SQUES
3

; TYPE <?> AND <CR>, <LF~
;GO _ASK RGAIN

,BR TO_ASK AGRIN
; SEE_IF TOO_MANY CHARS TYPED
;BR IF NOT TOO_MANY
,ECHO BRAD INPUT

R1
BUFFO(R1),%'0
109

; CLEARR CHRR POINTER
;SEE_IF DRIVE NO. < O
;BR_TO_ECHO BAD_INPUT

BHI

109

;BR TO ECHO BAD

CMP
BEQ
cMPB
BNE
INC
BR

R1,RO
16
BUFFO(R1), s’
,
109
R1
14%

;SEE _If MORE CHARS TO CHECK
;BR_IF ALL CHARS CHECKED
; SEE_IF THIS IS A COMMA
;BR_IF NOT A COMMA
;INCR CHAR POINTER
BR TO CONTINUE CHECKING CHARS

MoV
CLR

#SCRLST,R1
(R1:+

;GET SCRATCH DRIVE LIST ADRS
iCLEAR OUT SCRATCH DRIVE LIST

INC

005212

:(1C) RETURN ADDRESS
:(+2) RETURN RDDRESS
: (#U) RETURN ADDRESS
,SEE IF NULL INPUT

CLR
CMPB
BLO

CMPB

005201

3655
3656
3657
3658
3659
3660

#DRVLST

ALLSYS
ALLSYS
63
TST

005212

005556

RO
23

E R R R R R AR A R AR R LRERS S

:ASK FOR DRIVES TO TEST’ ON THIS SUBSYSTEM
ALLSYI MovB
R3 SYSDRV+?
;SET SUBSYS NAME FOR PRINTOUT
TYPE
YSDRV
iASK FOR DRIVES ON THIS SUBSYSTEM

000017

00132Y

E RN RERRRRRE RN

BUFFO(R1),#*?7

,SEE IF CHRR >

INPUT

: INCR_CHAR POINTER

:PUT DRIVES FOR THIS SUBSYSTEM IfiTO SCRATCH LIST

les

18%:

CLR
CLR
CLR
CLR
Move
BIC

Move
ADD
1S78
BNE

(R1)+
(R1)+
(R1)
RO
BUFFQ(RO),RI1
#’'0,R1

; INIT CHARR POINTER
,GET A DRIVE NO.
i STRIP RSCII BITS

BUFPO(ROJ SCRLSTle)
:SET ASCII DRV NO.
%2, RO
POINTTO NEXT DRIVE NO.
BU#FO 1(RO)
;SEE IF NULL CHAR YET
{BR IF NOT DONE YET

CZRbuBO RK& DR CPT PROG MACY1l
CZREGE. P11
02-DEC-77 10:46

30(1046)

3665

3666 013220 00S000

3667
3668

013222
013226

116014
001411

LO6

02-DEC-77
11:48
PAGE 77
TEST O
PARAMETER INPUT ROUTINES

LOAD onxvss FROM SCRATCH LIST INTO TOTQL DRIVE LIST

ALLSY

005556

nLsta nova
BEQ

671 813534 6&845? 00SSS4

3672
3673
3674
3675

013240
813 42
013246
8132

103404
104401
000137
005200

020027
103760

000010

010130

3676
3677
3678

013254
013260

3679

013262

104401

3585

813 72

885000

3683
684

013276
013304

116037
001407

3686
3687

013310
013312

3630
3691

813324
013326

CMP

010245
013002

22%:

685

3688
3689

13279

013306

013316
013322

3692

013332

3694

013340

3693

013334

5001

005556
012141

005200
020027

000010

1106337

010167

1044C1
005201

002761

104401

005203

3697
3698
3699
3700
3701
3702

013352
013354
013360
013362

101035
105737
001002
000137

013734

013366

104401

010174

3704
3705
3706
3707
3708
3709

013376
013400
013402
013404
013406
013410

013002
013002
013366
005700
001417
0622737

000131

3711

013420

000137

013040

013432

00140S

013346

020327

24§ :
26%:

3712

3713

3714
3715

g;{g
3718

3719

3720

013416

013424
013434
013440

00I002

022737

013444

000750

0O0s212
0601324

013446

105037

001102

0134S2

109401

007752

TYPE

QCRRCH

CLR

TST

TYPE
INC

’ SCRACH
R1

BLT

23¢

:BR_IF NOT DONE YET

TYPE

oNSuUBS

STYPE ~ON SUBSYSTEM TM

MOVB
BEQ
BEQ
TYPE
INC
CMP

CMP

BR F NO OVERFLOW YET
:TYPE "MORE THAN 16 DRIVES ENTERED !'"
:GO START OVER, ASKING FOR DRIVES
: INCR SCRATCH ORIVE LIST POINTER

LTIST

TYPE ”HILL TEST DRIVE(S) *

PINIT CHAR OUTPUT BUF

,{NIT SCRATCH LIST POINTER

NIT COUNT OF LISTED DRIVES FOR SUBSYS

SCRLST(RO),SCRACH;SEE IF THIS DRIVE LISTED
263
;BR_IF DRIVE NQT LISTED
:SEE IF FIRST TIME HERE

248
,COMMA

:BR_IF FIRST
STYPE A COMMA

RO
RO, 88.

;INCR LI
‘SEE IF DONE cnecxxnc LIST YET

R3,0NSUBS+11.

R3,8'P

TIME

'TYPE A DRIVE
NO.
P INCP. 8¥NT ?F
LISTED DRIVES FOR THIS SUBSYS
;SET SUBSYS NO.

IN MSG

: INCR suasvsrsn NAME
, E

IF E

BHI
RSKSYS
RIFY
1578
MDFLAG
sss xr 200 START
BNE
28%
‘BR IF
JIMP
DRVTST
'START PQSS 1
.ASK IF THERE IS QNOTHER SUBSYSTEM TO SPECIFY
283 :
TYPE
NOTHR
TASK_FOR ANOTHER SUBSYS

003126

104401
104401

?9 gn v% LIST OVERFLOW

CLR

INC

000120

000116

R4’ sDRVLST+34.

224
DROVFL
ALLSYS
RO

MOVB

3703 013372 004737 023424

3710

233:

010154

013344

3696

00S444

3695

:INIT SCRATCH on LIST POINTER

SCRLST(PQ), (RY) novs THIS DRIVE INTO ACTUAL LIST
228
BR IF DRIVE NOT nnnxso

BLO
TYPE
JMP
INC

CLR

005701

001402
104401

CMP
RO, #8.
,sss IF DONE WITH THIS SUBSYS
BLO
ALLSY2
BR IF NOT YET
;ECHO DRIVES TO TEST ON THIS suasvsr

3680 013266 005037 00S444
36

SEGQ 0076

JSR

005212

O00S212

ASKSYS
#°Y,BUFFO

JIMP

ALLSY

:G0 _ASK FOR onxvss ON NEXT SuBSYS

BEQ

RSKSYS

‘BR IF (N>

28s

CMP

TYPE
TYPE

. 204

:READ RESPONSE

:(fC) RETURN ADDRESS
:(#Z) RETURN ADDRESS
:($U) RETURN ADDRESS
'SEE IF NULL INPUT
JBR_IF NULL INPUT TO ASSUME
"SEE IF <Y>

BNE

30%:

#c RDCHRS

ALLSYS
ALLSYS
26%
TST
BEQ
CMP

#'N BUFFO
,BUFFD
$QUES

OR 220 START

ASKSYS: CLRB

TYPE

- GET NAME

$TSTN

rvpsvs

:BR

‘SEE

IF NOT
¢

'ECHO BRD INPUT
STYPE <?> AND <CR>,<LF>

1GO ASK RGAIN

OF SUBSYSTEM TO TEST NEXT

:SET TEST NO. = O

'ASK FOR NEXT SUBSYS TO TEST

<N>

CZReEBO RKB DR CPT PROG MRCY11l
CZR6G8. P11
0e-DEC-77 10:46

103005
104401
104401
000754
2
083?

11373?
012700
122037

BUFFD
SOUES
ASKSY
agrro $'P

:ECHO BRD INPUT
TYPE <o> nND (CR>, <LF>»
:GO0 _ASK AGAIN
35 EF
A CHAR > P TYPED

8%:

005553

MOVB
MOV
CMPB
BEQ
INC
gEg

BUFFO, SUBSYS
$DRVLAT+1 . RO
(RO)+, SUBSYS
9§
RO
Sg #DRVLST+33.

srons CURRENT SUBSYSTEM NAME
'SET DRIVE LIST POINTER
‘SEE IF A DRIVE LISTED FOR THIS SUBSYS
:BR &F Es
PINCR POINTER
sss IF WHOLE LIST CHECKED YET

010652
013446
000002
005554

JMP
SUB
MOV

ASKSYS
,R
RG’ DRVPTR

co ASK FOR A SUBSYS AGRIN
'POINT TO LOW BYTE OF LIST ENTRY
:STORE POINTER

MOV

RKB -(5P)

oosele

000120

posele
005513
005510

005510

003050
003052

6%:

BHIS

TYPE

NODRLS

TYPE

Pé "N8 on?vss LISTED FOR SUBSYS"

PUT OLD VALUE ON STACK

KBADR

TYPE “RKO& BUS ADR =

RK EC,-(SP)

;PUT OLD VALUE ON STACK

JSR
Pc
GETPRM RS
TYPE OLD VGET Nsu RKBRS VALUE
STORE NEW
(S
s OPEN RKO6 VECTOR noohess FOR nobxrzcnrxon
MOV
MOV

TYPE

JSR

#c GETPRM

RSL
ASL
SWAB

(5P)
(SP)
<sp)

TYP

“RK0O6 ;c ADR

,TYP OLD, GE Nsu RKVEC VALUE

MOV
(SPY+,RKVEC
STORE NEW VALUE
OPEN RKO6 INTERRUPT HANDLER PRIORITY LEVEL FOR MODIFICATION
;GET OLD VALUE OF PRIORITY
RKPRI,-(SP)
MOV
ils:
ASL
(SP)
'GET IT INTO BITS 0-2
TYPE

PRTY

007727
021026

JSR

000004

CMP

000007

CHMP

RO, 87

ASR
ASR
ASR

RO
RO
RO

TYPE
R

$CRLF
ORVTST

TYPE

" $QUES

MOV

BLY

BGT
SWAB

MOV

003052
0013es
oosele
001324

'BR IF NOT

:OPEN RKD6 UNIBUS Aoonsss FOR nobxrrcnr:ou

[(e]e]

00000

+ SEE
(103 IFBETHRN
RBBEEéé
NULL INPUT

TYPE
TYPE
BR
ng

4$:

0osele
001324

704
£

RETURN ARDDRESS

BR IF NULL, TO nsx AGARIN
,,EE IFA CHAR ¢ A TYPED

000101

700

[

fekave
157

; READ RESPONSE

ng)

ASKSYS
BUFFO, #’A

003050

104401
104401

PC,RDCHRS

SEG 0077

BEQ
CMP

gosa12

003046
007660
021026
003046

N
n

wwwuwuwumwgwuwwwmwwuw
NNNNNYN

005700
001765
023727

JSR

ansis

Bi34de

0O~0

WWwWw

D000
——

3526
3534
3
3
3
3
3
3
3
3
3

MO6

02-DEC-77
11:48
PRGE 78
TEST O
PARAMETER INPUT ROUTINES

023424

O0O0O~—0

3
3
§

004737

013002

alalsy HD?H - 000 o

DO00O00O00O00OO0DOO0O000OODOO
[ N Ay Y N N N O
N VP I
iy P
I

474

WWWW

3725
3726
3727
3728

0000
[N

013456
013462

0000000000000 00000000
[ S N N N
Y Y Uy Y Wy VY NN Y N N Sy i g

3721
3722

30(1046)

12%:

TYPE

#c
csrpnn
(sP)+ RO

125

sTYPE

“RKO®&_PRIORITY = *

'TYPE OLD, GET NEW RKPRI VALUE
;SEE_IF AT LEAST LEVEL 4

'BR_IF NEW anue TO0 SMALL
JSEE_IF LEVEL
7 OR LESS

12%
RO

'BR_IF NEW VALUE_TOO Lchs
"GET PRIORITY INTO BITS
S

RG, RKPRI

: STORE NEW VALUE

,BUFFO

;ECHO BAD INPUT

CZR6GBO RK& DR CPT PROG MACY11l 30(1046)
CZRBGB. P11
02-DEC-77 10:46

g;;g

013732

000741

3779

013734

113737

003155

010331

3781

013746

122737

000061

0O031SS

3780

3782
3783
3784

g;gg
3787
3788

3789

013742

013754
013756

001002
000137

013776

000137

(013774

005000

013762

3790
3791
3792
3793

013776
019002
014010
014012

3796
3797
3798

014626
014030
014032

3800
3801
3802
36803

Q14044
014046
014050
014054

3794
3795

3799

104401

112737

013703
132737
001002
012703

014016
014022

012701
105060

014036

152760

030103
001405
110060
006301
005200
022700
001362

010307
014346
000004

O0ISI46

001406
000200
000377

0OSSSE

000060

3812
3813
3814
3815

014112
014114
014116

005300
001375
000137

3817

3816

014122

005000

3818
3819
3820
3821

014124

014130
QG14132
014136
Ol4142

00147%
010037
004737
042712

005556

000200

3823
3824
3825

014154
014160
Ql4ie2

105737
001003
012712

000001

3627

014170

0le712

002001

3628
3829
3830
3821
3832

014174
014200
014204
014206
014214

000402

00S037
005237
001375
032762
00I417

MOVB

PASSNO, SRPRSS+18.

CMPB

5'1 PASSNO

MOVB

TS
#4 srsrnm

TYPE

JMP

SRPASSTM

Tsts

OFLTOR: CLR

1$:
23:

#B8ITO,RI
SCRLSY(RO)

MOV
BITB
BNE
MOV

;GO ASK AGRIN
;SET PASS NO.

FOR PRINTOUT

:TYPE "STARTING PASS X*
'SEE_IF PASS 1 _

:BR IF NOT PASS 1
;STRRT PASS 1

'SET TEST NUMBER
=

:START PASS 2

005512
005510

108:

005554
000021

118:

BIT
BEQ
MOVB

R1,Rs
4$
RO,SCRLST(RO)

:SEE IF THIS DRIVE IS REOUEST:D
'BR_IF NOT
;MARK DRIVE IN SCRATCH LIST

ASL
INC
CHP
BNE

Rl
RU
#10,R0
2

BITB
BEQ
MOV
MOVB
MOV
MOV
MOV

CLR

8’0, SCRLST(RG)

$BIT7, SENVM
8s
$DRVLST, RY
SUBSYS, R3
RY,RI
RY’ onvprn
817,

<R1)$

'SET _BIT POINTER
:INITIALIZE DRIVE ENT

:CONVERT NO. TO

ARSCII

ISHIFT BIT POINTER
: INCREMENT DRIVE NUMBER
,sss IF DONE MARKING ALL DRIVES
'BR_IF _NOT DONE YET

'SEE IF PROGRAM SHOULD SIZE
:BR_IF YES
'GET DRIVE LIST RDDRESS
'GET SUBSYS NAME IN R3
*GET DRIVE LIST ADRS
'SET POINTER TO FIRST DRIVE TO TEST
'SET COUNTER

:CLEAR A DRIVE LIST WORD

DEC
RO
‘DECREMENT COUNTER
BNE
:BR IF NOT DONE YET
IMP
LLSY3
:GO MOVE SCRATCH LIST
. REMOVE NON EXISTENT DRIVES FROM'SCRATCH LIST

013220
005556

CLR

;CLEAR _DRIVE
NUMBER

3%:

BEQ
MOV
JSR
BIC

148
RO, DRIVE
PC’ xnxrss
81t (

:BR_IF NOT
MARKED
:SET DRIVE NUMBER FOR SCNDRV
:CLEAR DRIVER AND INIT S.S.
'DISABLE RKO® INTERRUPT

TYPFmt
c§
8GO, (R2)

:SEE IF RKO?7
'BR_IF YES
'ELSE SET GO BIT FOR RKO& IN RKCSI

#<CDT!GO>, (R2)

;ELSE SET GO FOR RKO?

003133

78 :
15%:

000010

1ST8

SCRLST(RO)

MOVB

onxvsRKcsa

B8R

TST8
BNE
MOV

5§:

0054454
005444

INTO LIST

8%:

12%:

005430
021170
000100

001000

'GET APT DEVICE MAP
'SEE_IF NO SIZING
'BR_IF NO SIZING
ISET UP FOR SIZING

BISB

4§:

: CLEAR DRIVE_NUMBER

SDEVM, R3
#BIT7 . SENVM
18
#377,R3

MOV
CLRB

001351

3822 014146 113737 005430 000010
014166

2%:

000010

132737
O00I41&
012704
113703
010401
010437
012700

3826

118

BNE
JMP

001351

00GCOO0!
00SSS6

81405&
014064
014066
014072
014076
014100
014104

105760

DRVTST:

SEQ 0078

.ADR 200 START - COMPILE SCRATCH LIST OF DRIVES TO SIZE

3804
3805
3806
3807
3808
3809
3810

3811 014110 005021

001102

NO6

02-DEC-77
11:48
PARGE 79
TEST O
PARAMETER INPUT ROUTINES

MOV

CLR
INC
BNE
BIT
BEQ

SCRACH
SCRACH
15%
$MDS,RKCS2(R2)
188

:SEE

IF THIS DRIVE

IS MARKED

IN SCRATCH LIST

IN RKCSI

'CLEAR STALL CTR
' INCREMENT STALL COUNTER
!STALL FOR SEVERAL MILLI-SEC
:SEE IF MDS ERROR
'BR IF NOT

CZR6GBO RKE& DR CPT pnoc MACY1l
CZR6GB.P11
02-DEC-77 10:46

3833

0l4216

3835
3836
3837
3838
3839
3840
3841
3842
3844
384S
3846

38349

112765

000104

Q014230
014234
014240
0lded2
Q14250
0i4254
014260
014266

004737
004737
104052
052737
000137
004737
112765
012737

037644
031224

014302
014306
014314

004737
012737
022737

030146
031504
000377

Q014224

011265

000016

000200
033336
021170
020141
020500

30(1046)

BO7

02-DEC-77
11:48
PAGE 80
TEST O
PARAMETER INPUT ROUTINES

000001

000001
003056

188:

3843 Q14274 012737 000377 00S476

3847
3848
3849
3850

3851
3852
ggga

014322
014324
014326
014332

014334
014340
014344

001006
005200
022700
001274

000137
105060
000767

148

014066
00S556

#SELDRV, P CMNO(RS)

JSR
JSR
ERROR
8IS
IMP
JSR
MOVB
MOV

PC, 1.cs
GET OTHER RK611 REGS FOR REPORT
PC. REPSUP
ser UP ERROR REPORT
&2’
'REPORT MDS ERROR
8ABORT,RECODE
;SET RBORT FLAG
ALLTRM
) naonr TESTING
PC, INITSS
:INIT THE S.S.
sROSTAT, P CHND(RE) :SET READ STATUS COMMAND
#NEDHDL , A. RBNL ,sef NED ABNORMAL RETURN ADR

JSR
MOV
CMP

PC, DRVCAL
SERRHDOL ,R.ABNL
8377, NEWON

JMP
CLRB
BR

108
SCRLST(RO)
148

MOV

003056
005476

000010

MOVB

MOV

005424

16%:

SEQ 0079

BNE
INC
CMP
BNE

SET CMND FOR ERROR REPORT

(R2), 651(

cef RKCS! FOR REPORT

8377 Neaon

;INIT ONLINE INDICATOR

168
RO
#10,R0
12%

:BR IF NO
'RETURN HERE IF DRIVE IS USERBLE
;SEE_IF DONE CHECKING LIST
'BR IF NOT DONE YET

{RERD DRIVE STATUS
:RESTORE RBNORMAL RETURN ADDRESS
:SEE IF THIS DRIVE EXISTS

:GO BACK TO LIST SELECTED DRIVES
'REMOVE INVALID DRIVE FROM LIST
!CONTINUE CHECKING THE LIST

3855
3856

3550

3859

iuunuuuunn“uluu"ulunu"nuuununuuuu

ggg?

irssr

3862

MOUNTING OF TEST CARTRIDGE FOR PASS 1

THE PROGRAM TYPES “STARTING PRSS 1*. THEN,

THE OPERATOR

3863

‘¥

MOUNTS THE PRCK ON THIS DRIVE AND MANUALLY LOADS THE HEADS,

3866

DETERMINE THE FORMAY. THE FORMAT IS STORED IN “FOQRfi

gggg

1T TYPES THE DRIVE AND CARTRIDGE SERIAL NUMBERS.

3864
3865

1
Sy

3867

3870
3871

014346

000004

3873
3874
3875
gg;g

014356
014362
014366
014372

004737
004737
004737
004737

3872

014350

012737

000001

022042
021170
020774
022110

001334

AS DIRECTED BY THE PROGRAM. IT THEN CHECKS THIS onxvs
FOR VALID ;anus
AND Rsno§ s ADER ON SECTOR
O

ALSO,

THE PROGRAM REARDS AND STORES THE BRAD SECTOR FILES

AND

: o 3536 3 3 36 3 36 36 36 36 36 35 36 3 36 3 3¢ 36 6 3 36 36 3 3 3 3 3 3 3 3¢ 3 3 3 3 3 % 3 3% 3 3 2 W 3 363 3 J 3 32 3 I X6 ENR
t&T1:
SCOPE
MOV

#1,$TESTN

JSR
JSR
JSR
JSR

SET TEST NUMBER IN APT MAIL BOX

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

SET UP FOR LOOP ON ERROR
:INITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPRRE FOR POSSIBLE KBD INPUT

3878
3879

3967

3882

; R Y Y Y12222222222:1222222222222:222122X3222222T22TXX2XT2IX2I2222T
L

ggga

iresr

3886

USING A

3885

3887
3888

BRSIC RERD/WRITE DATA TEST

THE PROGRAM PERFORHS A WRITE AND WRITE CHECK OPERATION
"WORST

CASETM DATA PATTERN,

AT THE RAPPROPRIATE SECTOR

FOR THIS onxvs (FROM TRBLE A) ON ALL SURFACES. THE PURPOSE
THIS OPERATION

TO VERIFY THE BRSIC READ/WRITE

CQO7?

-y

CZRB6@BO Rkb DR CPT PROG MACY1l
CZRBQB Pl
02-DEC-77? 10: 46

30(1046)

02-DEC-77

11:48

PRGE

SEQ

BASIC READ/WRITE DATA TEST

X
;%

CAPABILITY OF THE DRIVE ON PRSS 1. THE ENTIRE SECTOR
S WRITTEN WITH THE REPETITION OF THE DRTR PRTTERN SHOWN

TRBLE

0080

.g;illllggg;;ll!ll!i!i!lillll!llllllll!llliil!illillll!lllllliill

4400

000004
012737

000002

001334

4416
Y422

112737

000001

003127

YM30

004737

024502

4376
Y406
Y412

004737

MOV

00SS66
000002
005566

000002

005666

000002

116065

000004

18:

£ 0575

000001

004737

112765

000001

S4
60
66

105265
126527
101760

000002

éS

000003

022042

ggt

TING

sALLOW TTY ESCAPE

001334

GORV, RO

:GET LOGICAL DRIVE NUMBER

"CONVERT IT TO INDEX

TYPFMT

:SEE_IF RKO?

BNE

MOV
ADD
sgve

BR IF YES

ggg

TRBL?R(RO) P.CYLN(RS)

ARLER(ROD) ,P. CYLfi(RS) .
CYL 8 FOR THIS DRIVE
RO
NCREhENT INDEX
TQQLER(RO) P. SECf(RS) :GET SECTOR 8 FOR THIS DRIVE
RO

;GET RKO? TABLE

Move

TRQL?R(RO) P.SECT(RS)

SRUBH P BRI
ser Liord ROURYSFBROTEZEC
TR

Move

WR RJR P.CMND(RS)

MOVB

INRTCHK cnuo(RS)

THE DATA

JSR
C, DRVC
;PERFORM WRITE CHELK OF ssc

8
VCAL

cnPa
BLOS

P TRCK(RS)

;GET SECTOR 8 FOR THE DRV

SWRITE THE

ET _WR TE COMMAND
SECTOR

;SET WRITE CHECK COMMAND

PERFORM’ THE WRITE CHECK

INCREHEN TRRCK nb RESS

P.TRCK(RS),#2
X

: INCREMENT TRACK NO.

;SEE IF ALL SURFACES WRITTEN YET
iBR IF NOT YET

!iiii*;*;l!&i*iiiii.i&i;i;l;ii&l;liil;lliii;iil;;i!*;;;;{*&{ii*

174 3 ******:

000004
012737
004737

WRITE

W
- I wsGsBews wEws

888312 es:

000004

gi2 Bists

01 4570
01 4572
01 4600

PC, LODSEC

1578

wn
=)

506

016065
062700

JSR

MOVB

;:SET TEST NUMBER IN APT MAIL BOX

éT _UP FOR LOOP ON ERROR
INITIQLIZE DRIVER PARAMS AND SUB-SYS
PREPRRE FOR POSSIBLE KBD INPUT

;LORD RWBUF WIT ohrn PATTERN

003133

4474
4502

PC,'SETTUP
PC INITSS
PC EPKB

:SET UP Pgngnsrsng

003154

a3z b883%

82,8TESTN

JSR
JSR
JSR

WRITE OVRWRT RND COMPAT CYL BLOCKS FOR CURRENT DRIVE

ALL SECTORS RRE WRITTEN FOR THE CURRENT DRIVE NITHIN THE

SEBARTED R O " Tre PeF(p8 RANBOR USQ?SE§AT¥§§N
IN ?&EEkE LOGICAL DRIVE O

o cHRBRTIRTL 11" TELY onTR T ©/-ITOE
LE880RO OB ERTTE

2
BE USED IN PRSS

NI I

T3:

SCOPE

MOV

JSR

#3,STESTN

PC SETTUP

HHHHHHEHOH

;

:SET TEST NUMBER IN APT MRIL BOX

éET UP FOR LOOP ON ERROR

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

CZR6QB.P11
Y

1392

02-DEC-77 10:46

02-DEC-77

Y604
Y
?
884478
884537
BlakPd

3947
9y
9y
3950
3351
3952

0i4614 004737
gstgg 909
146
0i4626 001013
014630 oxsoss
014636 823737

gggg

014654

000412

3957
3958
3959

(014656
014664
Q4670

016065
004737
062700

3961

01420

3364

01471

022642

003133

006026
023106

4s:

000002

3353 014642
700 000002
3354
014646 016065
006026 000002
006060
023106
000002

000002

3960 014674 oxsoss 006060 000002
96
36

3965

1470
1471

013;2q

58105

882089
3;

002
00030

023022

3329
8147 6 88q739 p22642
3968 014732 105737 003133
3369

014736

001004

3973

014750

016065

2%:

83:

3370
014740
016065
006026 000002
33;é
014746
000403
gg;g

014756

004737

006060

023106

000002

S
Pl ANEARE

RDD

RO
INCREMENT TRBLEC POINTER
TRQLEC(RO)
P. CYLfi(RS)
:GET START COMPAT CYL FROM TARBLEC

JSR
CLR
7STB
BNE
MOV
JSR

S§:

PC. INTBLD
:LOAD INITIAL VALUES INTO TQBLED
RO’
"INITIALIZE TABLEC INDEX TO O
TYPFMT
{SEE IF RKO?
18
:BR IF YES
TQBLEC(RO) P. CYLfi(RS) :GET START OVRWRT CYL FROM TABLEC
PC WRTBLK
WRITE’ THIS OVRWRT CYL BLK ON ALL-SURF'S

MOV
JSR
ADD

TRBL?C(RO) P.CYLN(RS)
PC WRTBLK

JSR

PC, WURTBLK

B8GE

?SR
1578

3
INTBLD
thrnr

MOV
ADD
cMP
JSR

BNE

MOV

JSR

TRBL?C(RO) P. CYLN(RS)

82 RO
RO, 830

PC,ROTBLD

E H;S gnpnr
cYL
EkK ON ALL SURF'S

INCR ns
ABLEC
P
see F ON LARST cunnznr ZONE YET

;

oggrs ERBLE?
SEVERAL SECTORS

38 5n8 INI* 5 gLuEs INTO TABLED
e

E§

RBLEC(RO),P.CYLN(RS) :GET
5§

START OVRWRT CYL FROM TABLEC

TRBLZC(RO),P.CYLN(RS)

PC, WRTBLK

:WRITE THIS OVRWRT CYL BLK ON ALL SURF’S

3976
3377
3978

; o 2633 33 3 3 36 3 36 3 36 3 3 3 3 3 3 36 3 3 3 3 36 3 3 3 3 36 36 36 3 3 3 3 3 3 3 3% 3 3 3 3 3 3 3 % W 3 3 3 3 2 3 W I 3 3 3 ¥ % X%

3981

3384
3985

'y
D%

3373

,irssr 4

398%

§§§g

iP5
< ¥

3989

'¥%
- %

3930
3991

3992

3933
3332

S¥%

3996
3987

014762

000004

3999
4000

014772
014776

004737
004737

3938

014764

012737

000004

Q22042
021170

001334

SEQ 0081

D
R_PBR
RRE TNBL? UB-SYS
BN SARE IZE FBRPBAYERSE

j88R

MOV
BR
3%:

DO7

PAGE 82

WRITE OVRWRT AND COMPAT CYL BLOCKS FOR CURRENT DRIVE

MOV

1§:

11:48

DISMOUNTING OF TEST CARRTRIDGE IN PRSS 1

THE PROGRAM DIRECTS THE OPERATOR TO UNLOAD THE DRIVE CURRENTLY

g R TEST

nng
TO REMOVE THE TEST PRCK.

?? 19"fie I

THEN,

THE PROGRAM

HéR DRIVE TO TEST on THIS
SUBSYSTEM,
THE
500
ST
o

PR,GR?“TflE"PSIT° Tssrox FOR g”sr

fgssa ifiEs
nggtlggfigs% SRRl :SE Es OuE BROSRN BraRTS

() If ?ERE 1Snuovnsa Eflegvs4gn *oPsgrosnPSSS ON, THE PROGRAM

TELLS THE OPERATOF. TO RESTART AT noone;s204, AND THEN IT HALTS.
(4) 5‘ Eng ARE NOngne gnxv S T0 TES
PASS 1 ON ANY

OTHER

SUBSYSTEM

ROG

ELLS THE © ERQTOR 10

RESTART
AT noontss220 FOR PASS 2 ON THE NEXT SUBSYSTEM, AND
THEN IT HALTS.

: o 363636 36 3 36 3 36 36 3 36 36 36 3 3 3 36 36 36 3 36 36 3 3 3 36 36 6 3 3 3 3 3 36 36 3 36 36 36 3 3 3 3 3 3 2 3 3 3 I 3 3 3 3 % 3 3 3 ¥ 3 3 X X
+874:
SCOPE
MOV

JSR
JSR

#4,STESTN

PC|SETTUP
PC.INITSS

::SET TEST NUMBER IN APT MAIL BOX

QET UP FOR LOOP ON ERROR
:INITIALIZE DRIVER PARAMS AND SUB-SYS

CZR6QBO RK6 DR CPT PROG MACY1l

CZREQB.P11
4001

015002

02-DEC-77 10:46
004737

30(1046)

105037
004737
062737
013700

4007
4008
4009
4010
4011

015032
015034
015042
015044
015050

001420
126037
001004
105037
000137

4013
4014

015062
015066

104401
000000

4016
4017
4018
4019
4020
4021
4022
4023

015074
015102
015106
015110
O0I1S116
015122
015126
015134

012737
105737
001007
[12737
104401
000137
112737
104401

005512
003126

005554

000062
010307
015146
000101
010525

010331

:ggg

015142

000137

000220

4Qle
4015

4024

015054

015070

015140

005710

116037

000137

000000

003127
022472
000002
005554
000001

001102
014346
000001

0104S0
000204

11:48

005554
00SS10

010574

‘DON’T ALLOW TTY ESCAPE
'DIRECT OPERATOR TO DISMOUNT PACK
: INCREMENT DRIVE LIST POINTER

BEQ
CMPB
BNE
CLRB
JMP

8s
1(ROJ, SUBSYS
4s
$TSTNM
TST1

:BR_IF DONE WITH PASS 1
:SEE IF DONE
WITH THIS SUBSYS YET
:BR _IF DONE WITH THIS SUBSYS
'CLEAR TEST NUMBER
:D0 PRSS 1 ON NEXT DRIVE OF SUBSYS

TYPE
HALT

. STR204

TYPE RESTART MSG FOR Pnss 1 ON NEXT SUBSYS
'HALT THE PROCESSOR SO THAT

MOVB

B8%:

MOV
TSTB
BNE
MOVB
TYPE
JMP
MOVB
TYPE

JMP

12%:

HALT
JMP

4029

(PO

1(R0),STR204+39.

204

:SEE

IF ALL DONE WITH PASS

YET

:PUT SUBSYS NAME INTO MSG

" OPERATOR CAN RESTART AT PROPER ADRS

8DRVLST,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
s TYPE “STRRTING PRSS 2"
$s75
:GO START PRSS 2
#'A,STR220+439.
:PUT SUBSYS NAME INTO MSG
,STR220
ITYPE RESTART MSG FOR PASS 2 ON FIRST SUBSYS
220

'HALT PROCESSOR SO THAT OPERATOR CAN RESTART
.

AT THE PROPER RDRS

2222222222222 22222222:222X2222232X2X2X222X222222222X222
222222 L

:839

iTEST

4032

4034
4035

s
L

4033

PREPRRE FOR POSSIBLE KBD INPUT

TSYING
PC, DMCART
82 DRYPTR
DRYPTR, RO

43:

S§:
6S:

PC, PREPKB

SEQ 0082

IN PARSS 1

CLRB
JSR
ADD
MOV
TST

010517

EQ?

PAGE 83

DISMOUNTING OF TEST CARTRIDGE
JSR

015006
015012
015016
015024
015030

020774

4002
4003
4004
4005
4006

02-DEC-77

MOUNTING OF TEST CARTRIDGE FOR PASS 2

THE PROGRAM TYPES "STARTING PASS 2. THEN, THE OPERATOR

MOUNTS THE PACK ON THIS DRIVE AND MANUALLY LOADS THE HERDS,

4036

DETERMINE THE FORMAT. THE FORMAT IS STORED IN "Fonhnr"

4038

IT TYPES THE DRIVE nno CARTRIDGE SERIAL NUMBERS (IF STRRTED

4037

3833

4You4l
4042

4043

4o44
4045
4046
4047
3838

M
40S2e

;¥

ALSO,

THE PROGRAM READS AND STORES THE BRAD SECTOR FILES,

AND

AT ADDRESS 204 OR 220)

»*

015146

015150

0IS1S6
015162
015166
015172
015200

000004

012737

004737
004737
004737
112737
004737

000005

022042
021170
020774
000062
022110

001334

’ o 3636 36 3 36 36 36 36 3 3 3 36 36 36 36 3 36 6 3 36 3 3 96 3 3 3 3 3 3 3 3 3 3 3 3 3¢ 3 W 3 2 I I 3 3 A I A 3 3 3 36 3 WK W E X ® XX R
t&15.
SCOPE
MOV

JSR
JSR
JSR
MOVB
JSR

003155

85, $TESTN

PC,SETTUP
PC, INITSS
PC’ PREPKB
8’2, PASSNO
PC MTCART

:SET

TEST NUMBER

IN APT MAIL

BOX

ST UP FOR LOOP ON ERROR
:INITIALIZE DRIVER PARAMS AND SUB-SYS
!PREPARE FOR POSSIBLE KBD INPUT
!SET PASS NO. = 2

3633 3 3 36 36 3 3 36 36 36 36 36 36 36 36 36 3 36 36 96 36 36 36 36 36 36 36 36 36 36 3 96 36 36 2 3 36 36 3 36 36 3 36 36 3 36 3 3 36 3 3 3 36 3 3¢ 6 3 3 3 3¢ %

:8?3

iTEST

40OSe

4055

AS DIRECTED BY THE PROGRAM. IT THEN CHECKS THIS DR
FOR VALID STATUS,
AND READS THE HERDER ON SECTOR
O

OVERWRITE TEST

THE PROGRAM PROCEEDS TO TEST THIS DRIVE'S OVERWRITE CAPABILITY.

FIRST,

THE APPROPRIATE CYLINDERS

IN TABLE E FOR THIS DRIVE

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)
CZREGB.P11
02-DEC-77 10:46

FO?7

02-DEC-77
11:48
PAGE 84
16
OVERWRITE TEST

SEG 0083

4057

. ¥

ARE OVERNRITTEN

4089

‘x

DRIVE O USES WORD O, DRIVE ! USES WORD I, ORIVE 10 USES

4058

4060

4061

4064

4062

4063
4065

4066
4067

ON EACH SURFACE.

THE DATA USED

IS n

REPETITION OF
A 'SINGLE WORD OF THE PATTERN IN TRBLE
G
WORD

10,

ETC.

THEN, EACH CYLINDER OVERWRITTEN xs Rsno BACK BY ru:s onxvs

WITH' THE FOLLOWING RANGE Of OFFSET

L a

THE PROGRAM scnns FOR onrn CHECK ERRORS DURING THIS RERD

s
x

VALUES

100

300,

400, 500, 600, 00 800, 900, 1000, 1100, 1200 MICRO-IN. xn éo
THE' (+) AND’ (=) 'DIRECTIONS

nno

ONE OCCURS, THE PROGRAM osreanxncs uuxcu DRIVE’S DRTAHAD
N
BEEN CORRELTLY OVERWRITTEN,
AND
A
; FOR THAT DRIVE 1S

4068
4069

"
s¥

DECREMENTED. THEN, THE rnnflsrsn 1s con INUED AT THE NEXT SECTOR
WITH THAT OFFSET OnLue THE RERDS ARE DONE WITH ALL OF THE ABOVE

4071

WHILE THE CURRENT nvas IS PERFORMING THE OVERWRITES.

4070

4072

:8;3
407S

4076

015204

000004

4078
4079
4080
4081
4082
4083

015214
015220
015224
015230
015236

004737
004737
004737
1]2737
105037

015242

112765

4077

4084

015206

012737

4086

015254

009737

015260

012703

4091
4032
4093

015302
015304
015310

006300
062700
011037

000006

022042
021170
020774
060001
003147
000117

001334

003127
000001

876

015314
015322

012765
052

4104

015352
015356
015362
015370
015372

004737
004737
063765
005303

030146

006512
053342
053342
100000

027500
027570
0244l2

015406

005020

4110
4111
41.2

015414
018416
01422

103774
012703
113700

4109

018410

020027

SCORES ARE AVERAGED FOR ERCH OFFSET

007112
000007
0063154

COPE

MOV

86, STESTN

MOVB

CYLfi(RS)

#SEEK,

éeTCYL =0

JSR
MOV

6%:

000002

TEST NUMBER

;SET

SEEK

IN in

nnxL

BOX

P.CMND (RS)

PC DRVCAL
R3

COMMAND

!SEEK TO CYL o
SET COUNTER

ouhonrn P.CMND(RS) :SET WRITE onrn COMMAND
LOGDRY, RO
SGEY L
gcxan DRIVE NUMBER
RO, P. C?LN(RS) :SET STARTING OVERWRITE CYL FOR THIS DRIVE

MOY
BIS

sRWBJF P.anLocnsS
T BUS ADDRESS
s07BAIL,P PRST(R SET BUS
ADRS xncnsnenr INHIBIT

MOV
1ST8
8EQ
MOV

JSR
JSR
ADD
DEC
BNE

003143

:SET

MOVB
MOVB
MOV

ASL
ADD
MOV

000010
000014

001367

4105
4106
015374
112737
00000if
4107 015402 012700 0066i2
4108

1S KEPT,

DIRECTION, OVER ALL C?LINDERS TESTED.

CLRB

000007

4096 015336 0le7bS 137000 000012
4097 015336 105737 003134
4098
015342
001403
4099 015344 0127656 142000 000012
4100
4101
4102
4103

SCORE FOR EACH onxvs

JSR
PC.SETTUP
éer UP FOR LOOP ON ERRO
JSR
PC. INITSS
*INITIALIZE ORIVER PQRRMS AND SUB-SYS
JSR
PC. PREPKB
!PREPARE FOR POSSIBLE KBD INPUT
MOVB
81 TSTING
'ALLOW TTY ESCAP E
CLRB
DIf100
:CLERR “CYL DIF
= 100-/200" FLAG
; OVERWRITE THE RPPROPRIRTE cYLS FOR THIS DRIVE

4088 015264 1127656 000123 000001
4083 015272 113700 003154
4030 015276 010065 000002
4034
4035

FOR EACH TRACK

AND
A SEPARATE

: R 2221222222322 222222222X22222222222X2X22X2222222222222222
33

4085 015250 105065 000002
4087

OFFSETS APPLIED,

RO’
#TABLEG, RO
(RO), RWBUF

:GET DATA PATTERN INDEX
'GET PRTTERN WORD ADRS
PUT DRTQ WORD INTO BUFFER

$-16896.,P.WC(RS QE 22-SECTOR uono COUN
FORMAT
éTERanE THE FORM
6%
R IF 22 SECTORS
$-15360.,P. uC(Rsi :SET 20-SECTOR WORD COUNT

PC, SVPRMS
,sb
VE nnnnsrens OF TRANSFER
PC’ TRNSFR
TWRITE THE DRT
HO(LD3,P.CYLN(RS)' : INCR THE CYL NO.
R3
,QEE IF DONE WITH ALL CYLS YET
X3

B8R

NOT

YET

:RERD OVERWRITE chs NITH RANGE br OFFSETS
MOVB
STTYP
:SET INDICATOR FOR OVRWRT TEST
MOV
onbscno RO
{GET svnnrxnc ADRS OF OVRWRT SCORES

108:

CLR

CHP

BLO
MOV
MOVB

RD onoscno+192

108
o? R3
LOSDRV, RO

:INIT SCORE 10 O

*SEE IF ALL SCORES CLEARED YET

'BR_IF NOT DONE YET
:SET CYL CNTR
=
:GET LOGICAL onxvs NO.

_RK&

_CPT

PROG MACYL!1

0e-DEC-77 10:46
010065

004737
004737
004737

063765
112737
303
4737

TEE-DEC-??
11:48
PRGE
OVERWRITE TEST

oooouae
0egt4e
017300
017644

GO7

SEG 0gs4

MOV

RO,P.CYLN(RS)

JSR
JSR

PC. REDOFS
PC. ADSCOR

JSR

PC. INTBLD

;GET STARRT OVRWRT CYL FOR THIS ORIVE

"INIT TRBL?

‘D0 READS WITH OFFSETS ON THIS CYL
:RDD scnnrcn SCORES TO SUM

024442

RDD

MOVB

HOLD3.P.CYLN(RS) : INCR CYL NO.

023022
000001

DEC
JSR
CHP

8GT

R3’
PC ROTBLD

02004
003143

BEQ
JSR
CLRB

12&

:DECR CYL CNTR
‘ROTATE TRBLED FOR NEXT CURRENT ZONE
:SEE IF ON LRST ZONE YET

118
PC AVSCOR
1stTYP

'BR IF ON LAST CYL
:COMPUTE AVERAGE OVERWRITE SCORES
:CLEAR OVRWRT TEST INDICATOR

000001

L£LL L L L LWWWWWWWWWWINUNLNY

105037

30110486)

.l ox# 00

sT "CYL DIf= 100/200" FLAG

:BR IF NOT YET

N L £ WNun»—»—

OO0000000000O00C0000000

81wt

@ w1

ML wswr

llilllllllllllillllilllllllllliililllll!llll!ll!ll!li!ll‘llllli*

000004
012737
00%737

000007
022042
e1170
20774
00741¢e
007414
007416
007420
p074ee
007424
8 3147
0006
003154
000060

007432

DRIVE SELF-TEST

THE PROGRAM EVALURTES THE DRIVE'S ABILITY TO WRITE AND RERD

ITS OWN DATA,

AT VARIOUS RNGULRR POSITIONS ON THE PRCK.

FIRST

TR
TRRCer a! 18 BTV e“aRITTEN D T THEe SECTORS
DAt BaTTERN
SHOWN IN TRBLEB
RRE RERD

#80.'a00"
F8“805““85‘?5085EPTLED,10,500, 408,403‘B1R¢E¥Tons.
THE PRobnnn SCAné r?a oarnpgusgfl fnnbas ounxnc ERCH Reno AND
COMPUTES
A SCORE WHICH IS

MAGNITUDE

TH&N

TIONAL TO THE FAILING OFFSET

THE SCORES FOR ALL SECTORS RERAD ARE AVERAGED,

TO COME UP WITH
R’ DRIVE ss F-TEST SCORE FOR ERCH OFFSET

DIRECTION,

FOR ERCH SURFAC

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

{llll*llll!ii****llll!i‘lllllil 33363 3 3 3 3 3 3 3 3 96 3% 36 3 3 3 3 3 3 3 3 3 3 3% % 3 3% % % % %
SCOPE
MOV
87 ,STESTN
::SET TEST NUMBER IN qpr MAIL BOX

JSR
ISR
ISR

PC.SETTUP
PC NITSS
REPKB

CLR
CLR
CLR
CLR
CLR

NSSCRI
NSSCR2
PSSCRO
PSSCR1
PSSCR2

MOV

L0¢DRV RO
cer LOGICAL DRIVE NO.
RO’
COMPUTE STARTING CYL NO.
onuéur P.BALO(RSS iSET BUS ADRS
oésc
:LORD R/W BUF WITH DATA PATTERN
o-éss NC(RS) 'SET WORD COUNT FOR 1 SECTOR
stc7<
SET SECTOR = 4
fRCK(RS)
SET TRACK = O

CLR

CLRB

000004
105037

U')' ********!*******

3%:

MOVB
ADD
MOV
JSR
MOV
MOve
CLRB
CLRB

Nsécno

'&PT UP FOR LOOP ON ERR
INITIRLIZE DRIVER Panns AND SUB-SYS
'PREPARE FOR POSSIBLE KBD INPU

*INIT SELF-TEST SCORES TO G

o F100

:CLEAR "CYL DIF
= 100-200" FLAG

NSCORO

PINIT SCRATCH SCORES TO O

'SET CYL COUNTER
= b

CZR6GBO RK& DR CPT PROG MACY1l

CZR6GB.P11
4169
4170
4171
4172
4173

4174

4175

015642
018646
015652
015656
018662
015666

02-DEC-77 10:46
105037
105037
105037
105037
105037

30(1046)

007452
007472
007512
007532
007552

105037

003143

112766

000117

000001

000123

000001

005065

4177
4178

015704
015710

004737
010065

4183
4184

015740
015744

105265
126527

00000S
00000S ° 000002

062765

017644
000005

4179

015676

015714

112765

030146
000002

11:48

CLRB
CLRB
CLRB
CLRB
CLRB

NSCOR]
NSCOR2
PSCORO
PSCOR1
PSCOR2

CLR

P, C\LN(RS)

JSR
MOV

PC, o
RVCAL
RO.P.CYLN(RS)

CLRB

4185
4186

BLOS
JSR

4187

015760

000004

4189

4190
4191
4192
4193
:igg

4182

015774

015776
016002
016004
016006
016012

101716

063700
005303
001307
004737
105037

P TRCK(RS), 82
6$
PC noscoa

SECT(RS)

CMPB

T x "gégonnronJITHroaRANGE
ELF-TEST
aEno
OF OFFSETS
: INCREMENT TRACK

355 gr *L
TRACKS DONE ON THIS CYL

1
:ADD scnnTcu sconss TO SUMS
: INCREMENT SECTOR BY S

ADD
DEC
BNE
JSR
CLRB

020024
003143

gg s;sx COMMAND

SECT(RS) 823 ,sse IF ALL SECTORS DONE ON THIS TRACK

BLOS

024412

INDICATOR

= O

; PERFORM'
SEEK
:SET CURRENT CYLINDER NUMBER

3! Darreb
PS
REDOFS
P.RCK(RS)

ADD

4188 015766 126527 000004 000023

'SET CYL

$WRDATA, P cnno<n$1 SET RITE oarn COMMAND

INCB
CMPB

;CLEAR OFFSET TEST

8SEEK,
P. CMND(RS)

MOVB

%SCB
e

681745
4737

SEQ 0085

TSTTYP

MOVB

:}ao
080146 003143
1185 ois;ag
Bi275% 00333;
4737 819888
Q157
015754

HO?7

PAGE 86

DRIVE SELF-TEST

63:

018672

4176

000002

o: DEC-77

‘BR

HOLD3, RO
R3
33
PC,AVSCOR
TStTYP

IF NOT

YET

:INCR CYL NO. BY 100,200
!DECR_CYL CNTR
iBR IF NOT DONE HITH ALL CYLS YET
COHPH 5
F-TEST SCQRES
:CLEAR
OVRWRT 5EET IR0 126 0R

4198

ggg

;

0
,foé

Ea
L%

4204

4203

4205

4208

ERFEXRERERERENEEE €333 %

irssr 10

33 33 3 333 3 3 3 3% % % 3 3 3 3 3 3% 3 3% 3 % 3 3 3 3 % %% %W EEEREERR

COMPATIBILITY DATA READ TEST

HAY
F-TEST
FQOR_THIS DRIVE,
TH
PRO&RSM E 3 gkéfisHE ?o PEE?ORM
?HE S 88SQT?SILI
n*x READ
OF

THE PATTERNS WRITTEN BY
A

LOCK

<on sncu 8URFRSE

HOWN IN T

P ¥

100,200, 300, 460, 500, 600, 700,
8

4208

DURING EACH RE

4210

FOR_THAT

4212

P¥

DONE WITH ALL OF T

4216

4218
4219

x
Ly

4207

4209
4211

4213

4217

4220
4221

:ggg

D¥

‘x

RIVES

IN sncu CYLINDER

EQ?H cgnpnr BILITY CYLIN
2 R BLOCK

HE F LL WING O

VALUES :

PROGR

RMINES

1100 1200 MICRO-IN.
IN t+) AND -)ggxnssrx?fistus#figgknnHéénfl
Eng ERRORS’

WHICH DRIVE'S DARYA WAS BEING READ At
T
DRIVE

IS DECREMENTED.

AT THE NEXT SECTOR,

THEN

THE

INSTANT AND
A SCORE

TRQNSFER

1S CONTINUED

WITH THAT orrsef anue THE READS ARE

FOR EACH DRIVE IS x P

FFSETS APP E
NHILE THE

BND A

CURRENT

e ARATE SCORE

DRIVE

1S READING

; SFREE ?HE EEEEETHE RVEERGED SVEH ALL CYL INDER

BLOCKS

‘x
'y

SURFACE (TRACK). THUS,
THE SCORES REVEAL WHICH DRIVES ARE
INVOLVED INR SITURTION IN WHICH A PARTICULAR DRIVE HAS

ERCH

SCORE

PROPORTIONQL

THE

CAPRBILITY

THE

CURRENT DRIVE 70 SUCCESSFULLY REARD THE DATA WRITTEN BY ONE OF
THE OTHER DRIVES, AND SCORES ARE COMPUTED SEPARATELY FOR EACH

DIFFICULTY

IN READING

THE DATA OF

ONE

OR SEVERAL

OTHER DRIVES.

2222222

PSS

S22

ISR

R2SR2E22

222222222222 222

CZR6UETJ RKb DR CPT PROG MACYL1l
CZR6GB.P11
02-DEC-77 10:46
4225

016016

4227
4228
4229
4230
4231
4232

016026
016032
016036
Q0le042
016050
016054

4226

4232
4234

4235
4236
4237
4238
4239

016020

016060
016062

016066
016070
016074
016100
016104

000004

012737

004737
004737
004737
112737
105037
012700

005020
020027
103774
012703
004737
013701
012765

000010

022042
021170
020774
000002
003147
007112
000006
022642
024414
053342

016112
0l6120
016126

052765
012765
105737

100000
137000
003134

4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259

Ol6l42
016146
016152
016156
016162
Q016166
016170
0lel?72
016176
Q016202
016210
016212
016214
016220

012700
010165
004737
004737
00S265
005300
001370
004237
063701
112737
00S303
001353
004737
105037

000020
000002
017300
017644
000002

016224

012701

016132

001403

001334

4260

4261
4ebe
4263

000014
0000le

007112

012703
012700
012737

007412
00SS12
000014

016246
016252

162337
010104

001304

4268
4269
4270
4271
4272
4273
4274
427S
4276

016256
016260
016266

016272
016300
016302
016310
016314
016316

001417
013737
061437

101403
012737
013724
000757
062701

4278

016326

101742

4c80

018330

012701

4264
4265
4266

4267 016254 005720

023727

001304
001306

001304

BEQ

10%:

MOV

001306

#10, STESTN

PC,8ETTLP
PC, INITSS
PC, PREPKB
82, TSTTYP
DIF 100
#NCSCRQO, RO

(RO)+
RO, 8NCSCRO+192.
6$’
#6,R3
PC, INTBLD

SEQ 0086

SET TEST NUMBER IN RPT MAIL BOX

QET UP FOR LOOP ON ERROR
:INITIALIZE DRIVER PARAMS AND SUB SYS
;PREPARE FOR POSSIBLE KBD INPU
iSET INDIC FOR RERD TEST
iCLERR "CYL DIF = 100,/200" FLAG
:GET_ADRS OF COMPAT READ SCORES

;INIT R SCORE TO O
}SEE IF ALL SCORES CLEARED YET
iBR_IF NOT YET
iSET CYL BLK CNTR= b
:INIT TABLE D

HOLDY,R]
:SET START CYL
= 60/160
sRWBU# ,P.BALO(RS) ;SET_BUS ADR S

8DTBAIY,P.PRST(RS)
;SET BUS ADRS INCR INWIBIT
8-16836. ,P.WC(RS) QET ceSECTOR WORD COUNT
FORMRT
] EST _THE FORMA
108

BR_IF 22 SECTOR S

l-15360 ,P. HC(RS’ ; SET 20-SECTOR WORD COUNT

MOV
#16.,R0O
; INIT cYL CNTR = 16.
MOV
Rl P CYLN(RS)
ISET _CYL NO,
12%:
JSR
PC,REDOFS
:DO RERDS WITH OFSTS ON THIS CYL
JSR
PC,ADSCOR
;RDD_SCRATCH SCORES TO SUM
INC
P.LYLN(RS)
; INCR_CYL NO.
DEC
R
:SEE_IF DONE WITH THIS CYL BLK
BNE
128
:BR_IF _NOT YET
JSR
PC,RNTBLD
:ROTATE TQBLED FOR NEXT CURRENT ZONE
RDD
HOLD3, R
:INCR CYL BY 100/200
Move
#1,DIF100
:GFT =CyL DIF = 100" FLAG
DEC
R3’
{SEE_IF DONE WITH ALL CYL BLKS
BNE
108
iBR IF NOT YET
JSR
PC AVSCOR
:COMPUTE RVERRGES OF RERD SCORES
CLRB
1stTyp
:CLEAR OFST_TEST_ INDICATOR
; ADJUST COMPAT READ SCORES (- OFQTS) BY SELF-TEST SCORES
14%:

001306

000014
001306

007252

CLR
CME

BIS
Mov
T1S78

158:
000014

000040

JSR
JSR
JSR
Move
CLRB
MOV

MOV

001306

4277 016322 020127 007242

4279

003147

SCOPE

MOV

BLO
MOV
JSR
MoV
MoV

000010

020024
003143

016230
016234
016240

TST10:

6%:

4244 Q16134 012765 142000 000012

023022
024412
000001

107

02
-DEC-77
11:48
PAGE 87
T10
COMPATIBILITY DATA READ TEST

003143

007412

4240
4e4l
4e4e
4243

30(1046)

188:

; SET COMPAT SCORE POINTER

ONSSCRU R3
80ORVLST, RO
s12.,STAPI1

!SET SELF-TEST SCORE POINTER
;SET DRIVE LIST POINTER
:COMPUTE DIFFERENCE OF 12 (DEC) AND

suB
MoV

(R3)+ $TMPI1L
RY

;GET RERD SCORE POINTER

TST

(Rfi)+

BEQ
MOV
RDD

188
$TMP1L STMP12
(R4) 3tMPl2

BLOS
MOV
MOV
BR
RADD

s12.,8$TMP12
sTHPI2, (RW+
ISS

CMP

168:

#NCSCRO,R1

MoV
MOV
MOV

CMP

BLOS

sTMPI2, 812.

169

;

SELF-TEST

SCORE

FOR

THIS

IN RY

:SEE_IFA DRIVE LISTED HERE

iBR_IF NOT
PUT DIFFERENCE INTO $TMPI12
,RDD DIFF_TO RERD SCORE
;SEE _IF 1@ EXCEEDED
:BR_IF _NOT
ISET SCORE
= 12.
:PUT _BRCK RDJUSTED SCORE
iBR_TO CONTINUE
:POINT TO SCORES FOR NEXT TRACK

Rl ONCSCRO+BH QEE IF SCORE TRBLE EXCEEDED
IF

NOT

YET

; RDJUST COMPQT RERD SCORES (+ OFQTS) BY SELF-TEST SCORES
#PCSCRO,R1

TRACK

:SET

COMPAT

SCORE

POINTER

CZREOBRO RKE DR CPT PROG MACY1:
CZREGB.P11
02-DEC-77 10:46
4281

016334

012703

382
4283

016340
016344

012700
012737

4285

016352

162337

4284

4286

016356

010104

4288
4289
4290
4291
4292
4293
4294
4295
4296

016362
016364
016372
016376
016404
016406
Q16414
(016420
Dl16422

001417
013737
061437
023727
101403
012737
013724
000757
062701

:ggg

016432

101742

4287 016360 005720

30(1046)

007420

00SS5i2
000014

001304

Ja7

Ue-DEC-77
11:48 PAGE 88
T10
COMPATIBILITY DATA READ TEST

248

25%:

001304
001306
001306

001306

000014
001306

001306

000014

000040

26%:

28%:

4297 Q016426 020127 007352

MOV

#ORVLST| RO
si12.,STAPIL

suB

(R3)+ STMP11

MOV

4302

:SET SELF-TEST SCORE POINTER

:SET DRIVE LIST POINTER
:COMPUTE DIFFERENCE OF 12 (DEC) AND
:

Ry’

SELF-TEST SCORE FOR THIS TRACK

sGET Reno SCORE POINTER IN R4

TST

cnb,+

CMP

RI1 sPcscno+sq :8EE IF SCORE TABLE EXCEEDED

BEQ
MOV
ADD
CMP
BLOS
MOV
MOV
BR
ADD

BLOS

4301

#PSSCRQ, R3

MOV
MOV

SEQ 0087

:SEE IFA DRIVE LISTED HERE

28%
S§TMP11,$TMP12
(R4) ,$tMP12
sTMPL2, 812.
268
812, §/ P12
STHPI2, (v 4+
ass
%3

‘BR IF NOT
:PUT DIFFERENCE INTQ srnpxa
'ACD DIFF TO READ SCOR
‘SEE IF 12 EXCEEDED
:BR_IF NOT
:SET SCORE
= 12.
:PUT BACK no:usrso SCORE
iBR_TO CONTINUE
:POINT TO SCORES FOR NEXT TRACK

2ud

"SBR IF NOT YET

213222222221122222x22222:1222223222222223222222222XXX22222X22L
223

3%83

iTEST 11

4305
4306

;*
¥

THE OVERWRITE AND COMPATIBILITY DATAR READ TEST SCORES FOR THIS
DRIVE ARE CONVERTED AND TYPED. THEN,
THE OPERATOR IS

4308

THE TEST PACK.

4307

4309

4312
4313
4314
4315

Lx
¥
ty
‘x

4310
4311

Dy
L x

3§§§

4318

TYPE TEST SCORES, DISMOUNT PACK,

IN PRSS 2

DIRECTED TO UNLORD THE DRIVE CURRENYLY uuosn TEST
THEN,

THE PROGRAM DOES
1 OF
4 THIN

nno TO REMOVE

(1) IF THERE IS ANOYHER DRIVE 70 TEST on THIS suasvs THE

PROGRAM JUMPS TO TEST &
FOR THE NEXT DRIVE.
(2) IF THERE IS ONLY ONE suasvs (FROM 200 _START), AND IF

PASS 2 HAS BEEN COMPLETED ON ALL DRIVES, THE ENT!RE TESTING AND
REPORTING HAVE BEEN COMPLETED, AND THE PROGRAM TYPES A
COMPLETION MESSAGE, AND THEN YT RESTARRTS AT ADRS aoo
(3) IF THERE 1S ANOTHER SUBSYS TO PERFORM PARSS 2 ON, THE

?$OagE¥STELLS THE OPERATOR TO RESTART AT ADDRESS 220 AND THEN
(4)

IF THERE ARE NO MORE DRIVES TO TEST ON ANY OTHER SUBSYS,

:gég

y3el
4322

016434

000004

. o 30606 3 36 36 36 336 36 3 3 3 36 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 % 3 3 3 3 3 3 3 3 3 3 3 3 % 3 3 I 3 % % W I A K %% E XK
+&711:
SCOPE

4324
4325
4326
4327

016444
016450
016464
016460

004737
004737
004737
112737

022042
021170
020774
000001

4331
4332

016476
016502

111037
104401

010742
010717

4334
4335
4336

016514
016520
016524

012700
012701
110037

000060
005512
011225

4323

016436

012737

000011

001334

4328
4329
016466
013700
00SSSH
4330 016472 112037 010743

003127

PROGRAM TYPES
A COMPLETION MESSAGE AND THEN IT HALTS.

MOV

#11,STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR
JSR
JSR
MOVB

PC, SETTUP
PC,INITSS
PC PREPKB
TSTING

éer UP FOR LOOP ON ERROR
"INITIALIZE DRIVER PARAMS AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT
JALLOW TTY ESCAPE

MOVB
TYPE

(RO),RESLTS+19.
RESLTS

; TYPE TEST RESULT HEADINGS

#'0, RO
#DRYLST,R1
RO, TRKBUF
+1

:INIT TRACKNO. TO O
:GET DRIVE LIST POINTER
:SET TRACK NO. FOR PRINTOUT

: CONVERT AND TYPE fesr SCORES
MOV
DRVPTR,
RO
:GET DRIVE LIST POINTER
MOVB
(R0)+ hESLTs+ao :GET NO. OF THIS DRIVE

4333 016806 012737 006612 001306

MOV
53

MOV
MOV
MOVB

5noscao §TMP12 :GET POINTER TO OVRNRT SCORES

THE

CZR6QBO RKB DR CPT PROG MACY11l

CZREGB.P11
4337

4338

4339
4340
434]
4342
4343
4344
4345
4346

016530

016534

02-DEC-77
013704

004737

016540
O0le6544
016546
0l165s2
016554
016560
(016562
016566

104401
012103
020377
001003
104401
000407
110337
000303

016574

104401

4347

016570

4350

10:46

001306

025564

011235
011232

016604

005037

005214

4352
4353
4364
4355
4356
4367
4358

0le6i4
016620
016625
016634
016636
016642
016650

012437
012737
023727
103002
104401
023727
101003

00212
000004
005212

4360
4361

016656
016660

000402
104401

012147

4363
4364
436S

016670
016674
016700

004737
004737
104401

043174
043370
011243

4368
4369
4370

016720
016724
016726

005337
001340
104401

001304

8%:

011230

4349 016600 005037 00S21e2

4359

Q016610

016652

010437

104401

108:

001310

012150
005212

001304
000012

11§:

000007

12%:

012170

14%:

168:

4366 016704 062737 000140 001310
4367 016712 017737 162372 005212

4378
4379

001325

016732
016734
016736
016742
D16744
016752
016756

005711
001277
104401
005200
062737
020027
101660

016760

004737

020262

016770
016774

112037
111037

011312
011311

001325
000040
000062

001306

4380 016764 013700 005554

4381
4382

4383
4384
4385
4386
4387
4388
4389

4330

439]
438z

017000
017004
Q017012
017020
017024

005037
013737
012737
104401
104401

001304
007426
011132
011303

017626
017030

000000
012746

005212

017040
017044

0604737
104401

043370
001325

017034

004737

043174

MOV

DISMOUNT PARCK,

:GET SCORE POINTER

TRKBUF
{R1)+.R3
R3, ADRVPTR
gs’
SELF
10s
R3, DRVBUF
+2
R3’

TYPE TRACK (HEAD) NUMBER
:GETA DRIVE
NAME
' SEE xr IT IS CURRENT DRIVE
'BR IF NOT
:TYPE "SELF”
: CONT INUE
:GET DRIVE NO.

DRVBUF

CLEQR TTY CHAR BUF

MOVB

R3, DRVBUF
+1

TYPE
MOV
CMP
BNE
TYPE
BR
MOVB
SWAB
TYPE

CLR

éurro

RY,$TMP13

BUFF0+2

MUV
MOV
CMP
BHIS
TYPE
CMP
BHI

(R4 +,BUFFO
sy STHPII
BUFFO, #10.
12%
SPACE1
aurro 87
4%

BR
TYPE

lss

MOV

SEG 0088

IN PARSS 2

$TMP12,RY

PC,CTLOUT

PROMPT

ACE2

&aurro -(SP)

!CHECK FOR TTY ESCAPE RQST

GET SUBSYS NAME

TYPE NO. OF DRIVE RERD

:GET SCORE POINTER

'PUT AN OVRWRT scone INTO BUF
:SET COUNTER =
'SEE IF SCORE ¢ 10
'BR_IF NOT
*TYPE 1 SPACE
:SEE IF SCORE > 7
,BR IF YES

ITYPE "%~

: CONT INUE
:TYPE 2 SPACES

:GET BUF ADRS ON STACK

JSR
JSR
TYPE

PC, a#s0B2D
PC’ 9#8SUPRS
TAB

:CONVERT SCORE TO DEC.
,TYPE 17
:TYPE R TRB

DEC
BNE
TYPE

srn
18
SCRLF

:DECREMENT SCORE COUNTER
:BR IF RERD SCORE SHOULD BE TYPED
STYPE <CR>,
<LR>

MOV

DRVPTR RO

'PUT DRIVE NAME INTO BUF

CLR
MOV
MOV
TYPE
TYPE

$TMPI1
ovnnvc surro
80AVERG,2
, BADORV’

: CLEAR SCORE INDICATOR
'GET OVRWRT AVG SCORE

ARDD
MOY

he
P13
asrn#xa aurro

:PUT NEXT SCORE INTO BUFFER

TST
IR
'SEE IF ALL scones TYPED FOR THIS TRACK
BNE
68
:BR_IF
NOT
TYPE
§CRLF
*TYPE <(CR>,
(LF>
INC
RO
P INCR TRACK NO.
ADD
#32. ,§TMP12
: INCREMENT SCORE POINTER FOR NEXT TRACK
CMP
RO, #'2
:SEE IF ALL TRACKS TYPED YE:
BLOS
c§’
:BR IF NOT YET
: COMPUTE, CONVERT, AND TYPE TEST AVERAGES (OVER ALL SURFACES)
Ysr
PL,TRKAVG
sGET AVGS OVER ALL TRKS
MOVB
MOVB

005212
017026

KO?

PAGE B89

JSR

TYPE

4362 016664 012796 005212

4371
4372
4373
4374
4375
4376
4377

11:48

TYPE TEST SCORES,

167002

011231

4351

oe DEC-77

6%:

0Ol1224

110337

4348

30(1046)

20%:
22%:

(RO)+, BADDRV+7
(RO) , BADDRV+6

.WORD
MOV

O
8BUFFQO,

JSR
TYPE

PC’ 283SUPRS
$LRLF

JSR

- (SP)

PC, 3#3082D

s TYPE “DRIVE
X
:TYPE WHICH KIND OF AVERAGE
:PUT

POINTER

AVG ON

:CONVERT TO DECIMAL

STYPE IT
STYPE <CR>,

<LF>

STACK

LO7

CZR6GBO RKE& DR CPT PROG MACY1l 30(1046)
oe DEC-77
11:48 PAGE 90
CZR6GB.P1}
02-DEC-77 10:46
T1
TYPE TEST SCORES, DISMOUNT PACK,
4393

017050

013737

007430

(17064

005587

001304

4397

4398

017072

104401

001325

4399

4400
4401

Q17076

017102
017106

004737
865737

105037

003127

017120
817152
017124

005710
oggqg;
1e60

4394

017056

4396

017070

4395

4402
4403
4404
4405

4406
4407
4408

017114

Q17132
017134
017142

012737

001353

013700

00100S
(12737
000137

022472
888802

017026

3Tn911

TYPE

CRLF

: DISMOUNT PACK ofi THIS DRIVE
CLRB

STING

:GET READ AVG SCORE
COMPLEMENT SCORE INDIC

,e T6 TYPE READ SCORE

:TYPE <CR>,<LF>

;DON’T ALLOW TTY ESCAPE

*DIRECT OPERATOR TO DISMOUNT PACK
: INCREMENT DRIVE LIST POINTER

000001

005510

TST
gsg
MPB

(RO
3
1(R0O), SUBSYS

ses IF ALL oonc NITH Pnss 2 YET
R xr DONE WIT
?
EE
ONE HITH THIs suBsYs YET

000004
015146

001102

MOVB

1(R0),STR220+39.

81712§ 1 9481 8111?8

4415
4416
4417
4418

017200
017204
017206
017212

017214

COM

$RAVERS, 228

005554

4yl

3:§3

COMAVG, BUFFO

MOV
BNE

000001

10525

010574

44l4 017172 012737 005512 005554
105737
001002
000137
000000
000137

MOV

PC DMCART
'S gnvprn

8171qs

017154

005212

JSR
ADD

4409

4410

6507

011151

MOV

248%:

28%:

003126

000200

30%:

000204

4421
Yyyee

:353

.SBTTL

4428

BNE
MOVB
JMP
TYPE

{YPE
MOV

1578
BNE
JMP
HALT
JMP

248
84, STSTNM
15t5

BR xr DONE WITH THIS SUBSYS
:SET TEST NO. = M
:D0 PARSS 2 ou NEXT oaxvz OF SUBSYS

,STR220

TYPE RESTR

;PUT sug; §

MDFLAG
308
200

204

'SEE IF 200 START
:BR IF NOT
:RESTART AT ADRS 200
‘HALT THE PROCESSOR

'RESTART AT ADRS 204

END OF PARSS ROUTINE

Y Y Y Y

2222222222223 2223232x222 2222222222222 2222222222223

ixncnsnsnr THE PASS NUMBER ($PASS)

:zgg

:xIF THERE ISN’T JUMP TO 200

4y27

:%IF THERES
A nonxron GO TO IT

4430
4431

017220
017220

4434

017232

4435

4436

Y437
4438

0000OY

017222
017226

8 S037
§237

(17240

005327

017842

017244
017246

042737

Q017260

001405

Yy4e

4447

4448

017270

Q017272
017274

001336

013700
000005
004710
000240

000042

CLR
INC

srsrnn
§PASS

;

DEC

(PC)+

; ;LOOP?

$DOAGN
(PC)+,d(PC)+

;s YES
: tRESTORE COUNTER

.WORD

8GT
MOV

SEOPCT

SGETH2:

MOV

SENDARD:

RESET
JSR
NOP

000240

SCOPE

BIC

SENDCT:

4442

Q17262
017264
017266

100000

SEOPCT:

000001
017242

4443
4444
4445

001102
001336

003013
012737

P17250
017252

Q017284

SEOP:

000001

4439
4440

4441

INTO MSG

nsc FOR PARSS 2

EN
TYSQ 't
8 5 **"
hORVLsr DRVPTR ;RE-INIT onxvs LIST POINTER

4426

4432
4433

SEG 0089

IN PASS 2

BEQ
NOP

$DOAGN:

NOP

0100000 §PASS
1

442 RO

$DOAGN

PC, (RD)

;9ERQ_THE TEST NUMBER
NCREMENT
HE PARSS NUMBER

;;DON’T ALLOW A NEG. NUMBER

::GET MONITOR ADDRESS

: 'BRANCH IF NO MONITOR

::CLEAR THE WORLD
1160 TO MONITOR
; ; SAVE ROOM
:FOR

SACTLL

CZR6ABO RKE DR CPT

CZR&GB.PI1

::g

017274

PROG MACY1l

30(1046)

02-DEC-77

11:48

02-DEC-77

10:46

END OF PRSS ROUTINE

000137

000200

IMP

dies
4463

MO7

PAGE

8200

SEQ 0090

: s RETURN

, l!l!l!lll!ll!llllllllIlllllillillll!llllll!!llllllllillllllli}l

Y45y

: ¥REDOFS - Reno onrn WITH RANGE OF OFFSETS

::sg

*Tng 0

4459
qqg

l(IN THE SCRATCH SCORE TABLE) . ERCH RERD IS DONE TO
A PRCK
*nnsn WHOSE ADDORESS IS IN THE PARAMETER BLOCK ON EN
TR

4455

%THIS ;ggagur NE RFORMS RERDS WITH OFFSETS LISTED IN OFSTBL.

4458

4464

4465

Y466
467

4468

4469

4470

4471
4472

4473
4474
4475

4476

4477
4478
4479

017302

017310

017312
017316

017320
017324

017326
017334

0173490
017342
017350

017354

017362
017366
(017372

ltlllllllllll!lllllllllllllllll!!lllilll!!‘lllllllll!‘llllll!i
htoors SAVREG
:SAVE RO-RS

122737

000003

012700
10€020

007432

001406
020027

103774

112765
105737

00141
163765
004737

063765
105037
004737
105037

Q172420

001020

017430
017432
017434
017436

6301
006301
006301
062701

4492
4493

017446
017450

001402
062701

4496

017462

012701

4485
4486

(017422
017426

449]

017442

4487
4488
4489
4490

4494
4495

024416

000002

024416

000002

105737

12%:

00000S

BEQ
SUB
JSR

PC,

CLRB
JSR
CLRB

DIF100
PE gnvan
5

Moy
CLRB

CMPB
BNE

HOLDS,P.CYLN(RS)

ws94'R0

ofgcflr

0000&0
003156

177777

18%:

MOV

'BR IF NOT YET

;

T
:SEEK

HALF

THE CYLS

SEEK THE REST OF THE WAY

LERR "CYL DIF = 100200 FLAG"
PERF ggg
!CLEAR OFFSET DIRECTION FLAG

iSET
°“S“r§$“'v*5"‘e‘?8 66 0T
f f E?sg EH

:SEE IF SELF- TEST
'BR_IF NOT

OFSDIR

'SEE WHICH OFST DIRECTION

#1 R4
144

$NSCORO, R1

MOV
1518

#48. R4’
OFSDIR

BNE
INCB
DEC

18%
-1(R1)
RY

553
cHPB

:SEE IF DONE YET

oa TSTTYP
$
P RCK(RS),R1
Rl

17§
#48.

MOV
BR

"GET _RDRS OF scnnrcu SCORE TABLE
*INIT A SCORE T0 O

HOCLDS P.CYLN(RS)

BEQ
ACD

TSTB

IF DRIVE SELF TEST

DRVCAL

000060

003156

:SEE

‘BR_IF gs

#SEEK ,P.CMND(RS) :SET SEEK COMMAND
g Frod :
SEE }F CYL DIF = 100,200 (OCT)

007432

148

001002
105261
005304

MOVB
TSTB

OFFSET

Rl
R1
R1
#NSCORO, R1

3283
0%5478 801;02 075
4801 817§8q 1§§125 8031%5
017510
017512
017516

ongcoao,no
R

ASL
RSL
ASL
ADD

158%:

4502
4503
4E04

RO $NSCORD+96.

MOVB
ASL

007432

012704
105737

CHP

MOV
CLRB

ADD

17%:

817q 6
017472

012704
000411

&8:

18Tty

PERFORM Rsnos ux

3§:

003143

83,

aso
BLO

000001

003147
030146
003156

CMPB

Ys:

000117
003147
030146

Inxranng scanrgu gggnss

0000DI

4437
4498

017454
Q17460

116501
006301

003143

007572

448,
017908 Ois7om °°82‘3
4482 8174 6 1650 9 88
4483 017412 122737 000003
4484

éNREOTH
DIRECTIONS,

? hPLES§515§E8cogé Pos E@ BR¥E
INVOLVED ?s ?NSSEHENTED NO FURTHER

4y
4462 017300 104407
4463

PLIEDnxnxngn
10 Enxxnun

< 3%

lchono
R1
(R1)+,0FSCNT

:GET TRACK NUMBER

'MULT BY 16.
:GET

POINTER

'BR IF
'POINT

SCORES

NEGATIVE
TO POSITIVE

iSET_COUNTER TO 1
*CONTINUE

SCORES

"GET POINTER TO SCORES

'SET COUNTER TO 48.
SEE WHICH OFST DIRECTION

BETIE
?E?“é‘fién POS SCORES
ges IF THIS IS A PERFECT SCORE YET

:BR IF NOT
'
INCREMENT THIS_ SCORE
'DECREMENT COUNTER

rLrLLLr
i

CZRbuwB0 RKE DR CPT PROG MACY11l
CZR6Q B.P 11
02-DEC-77 10:46

017520

001371

017552

4737

02750

017570
017574

004737
105065

03014
000006

017606
017612
017016
017620
017622
017626
017632
017636
017640
017642

004737
062700
005303
001274
012703
012700
105137
001263
104410
000207

030146
000004

30(1046)

NO7

02-DEC-77
11:48
PAGE 92
END OF PRSS ROUTINE

017622 110065 000006
168:
017526 112765 000115 000001
017534
4737 03014
017540 105237 00315
017544 112765 00012! 000001

BNE

017556

JSR

4737

MOVB
MOVB
JSR
INCB
MOVB
JSR

02757

SAVE PRRAMETERS OF TRANSFER

JSR
CLRB

PC,DRVCAL
P.OFST(RS)

o A SUBSYSTEM CLERR
LEAR OFFSET VALUE

JSR
ADD
DEC
BNE
MOV
MOV
COMB
BNE
RESREG
1S

PC DRVCAL
4'RO
R3
68
#12. .R3
#4 RO
OFSDIR
128

“PERFORM OFFSET T0 O
:INCR OFST VALUE BY 100 UIN
:DECR COUNTER
'BR IF NOT DONE IN THIS DIRECTION YET
:SET COUNTER FOR POS SF3STS
:INIT POS OFST TO 100 UIN
:COMPLEMENT OFFSET oxnscrxon FLAG
'BR _IF POS OFSTS NOT DONE YET
'RESTORE RO-RS
:RETURN

MOVB

017600 112765 000115 0©00CO!

MOVB

; I

IF NOT DONE YET

OFST(RS) ctr AN OFFSET VALUE
OO#FSET CHNOLRE) :SET OFFSET GMND
PC,
DRVchL
PehFo
RM OFFSET
OFSCNT
NCR OFFSET NUMBER
opoonrn P. cnuo(RS) SET RERD COMMAND
PC sPnfis

017562 112765 000177 000001

000014
000004
003156

SEQ 0091

NSFR

o
XFER,

HANDLE DCK ERRORS

sSflBCLR P. cnuotaé) :SET SUBSYS CLERR COMMAND
oorrssr P. cnno<né1 szr OFFSET COMMAND

2222232222222223223223322222222Y2222222222322222222222222 222 L

&noscon - ADD THE + AND - SCRATCH SCORES TO THE + AND - SCORE
'33"5755?5 EITHER THE OVRWRT, SELF,
OR COMPAT READ TEST, AS DETERMINED
*

017644
017646
017654
017656
017662
017666
017672
017676
017702
017706
017712
017716
017722
017726

104407
122737
(001031
113700
060037
113700
060037
113700
060037
113700
060037
113700
060037
113?00

017736
017740
017744
017750
017756
017760
017764
017?7G
017774
020000
020004

000430
012700
012705
122737
001404
012700
012708
012704
012701
012703
112102

[1]

i!llll!ll!li!llil*lill*l!l!!*!l»i«ll!lllllllllllllllll!l*!lllilil

000002

003142

007432
007412
007452
007414
007472
G07416
007512
007420
007532
007422
007552

017732 060037 007424

006612
006752
00000{
007112
007252
000060
007432
007512

Abscon SAVREG
CMPB
BNE
MOVB
ADD
MOVB
RDD
MOVB
ADD
MOVB
ADD
MOVB
RDD
MOVB

ADD

2%:
003143
4g:
6%:

BR
MOV
MOV
CMPB
BEQ
MOV
MOV
MOV
MOV
MOV
MOVB

83, TSTTYP
28’
NSCORQ, RO

RO, NSSLRO
NSEOR1, RO
RO, NSSER1
NSLOR2
RO, NSSLR2
PSCORO, RO
RO, PSSERE
PSLORL, R
RO PSSCRI
pPsCoRr2

RO, Psstne

gs’
#NOSCRQ, RO
sPOSCRO) RS
g1, TSTTYP
yg'
#NCSCRO, RO
sPCSCRO, RS
#48. . RY
#NSCORC, R1
#PSCORO' R3
(R1)+,R2

: SAVE RO-RS
:SEE IF SELF-TEST
:BR_IF NOT
"ADD SELF-TEST SCORES

SEXIT
:GET POINTER TO (-) OVRWRT SCORES
'GET POINTER TO (+) OVRWRT SCORES
:SEE_IF READING OVRWRT DATA
IBR_IF YES
IGET POINTER TO (-) COMPAT DATA SCORES
'GET_POINTER TO (+) COMPAT DATA SCORES
*INIT COUNTER TO 48.
*GET POINTER TO NEG SCRATCH SCORES
:GET POINTER TO POS SCRARTCH SCORES
!GET
A SCRATCH NEG SCORE

CZREQB0O RK6 DR CPT PROG MACYI11
CZR6GB.P11
02-DEC-77 10:46

4561

4S6e
4563

4564
4565
4566

:ggg

020006

BO8

02-DEC-77
11:48
PAGE 93
END OF PRASS ROUTINE

060220

020010
020012

112302
060225

020022

000207

020014
020016
020020

30(1046)

RADD

D0OS304
001372
10441C

B8%:

4233
4s71

R2,

(RO)+

SEQ 0092

;ADD IT YO

(-)

SCORE SUM

MOVB
RADD

(R3)+_R2
RE,(R$)4

;GET PNTR TQ POS SCRARTCH SCORES
;ADD IT TO (+) SCORE SUM

RTS

; RETURN

DEC
BNE
RESREG

RY
69

§ s SEIEIEIEIE 0 00 060000 00 36 30 3000 0

;DECREMENT COUNTER
;sBR IF NOT DONE YET
;RESTORE RO-RS

06 06 00 30 00 3000 00 00 000606 06 0000 00 36 30 30 3 30

00 0 0 0000020

4572
4573

;iQVSCOR - COMPUTE THE + AND - RVERAGE SCORES FOR THE OVRWRT, COMPATIBILITY
; #DATA TEST, OR SELF-TESTY, RS DETERMINED BY “TSTTYP”. THE SUMS IN THE APPROPRIATE

457S
4576

; *COMPUTE THE RAVERRAGES.
o 33030 600 06 36 36 36 36 36 36 36 3 96 36 36 3 6 3 36 36 36 36 36 36 3 36 36 30 06 36 3 36 36 36 06 36 36 36 36 36 3% 3 3 3 36 36 3 3 36 3 3 36 3 3% 36 3 3 3 3 %

457y
4577

; ¥SCORE TABLES ARE EACH DIVIDED BY THE NUMBER OF CYLINDERS RERD, 71O
020024

104407

4578
4579
4580
4581
4582

020026
020034
020036
020044
0200%e

122737
001014
012737
012737
012705

4584

020064

000427

4583

020056

006612
006752
000007

001304
001310

4589
4690

020114
020116

001410
012737

4532
4593

020132
(020136

01e705
012737

020124

001304
001310

001306

012737
D0le73?
012705

459]

007412
007420
000030

000003

023066
020074
020102

020106

003143

012737

4585
4586
4587

4588

000003

122737

012737

003143

007112
007252
000140
000060

001304
001310

4594

020144

4597
4598
45399

020154
(020156
(020160

005002
00S004
017703

4601
4602

020170
020172

001402
017703

020202

010500

4606
4607
4608
4609
46510
4611
4612

020206
020210
020212
020214
020220
020222
020226

020100
10340l
005203
105137
001406
010377
062737

161056
000002

4614

020236

010377

161046

4535
45396

4600

020150
0201S2

020i64

4603

020176

4605

020204

4604

Y13

4615

Y616

020234

020242

020250

105037

000001

005000
005001

105737

004737

003156

001306

AVSCOR: SAVREG

062737

005337

;SEE IF SELF-TEST
;BR _IF NOT
;GET ADRS OF (-) SELF-TEST SCORES
;GET RDRS OF (+) SELF-TEST SCORES
;SET DIVISOR =
24.

12¢

: CONTINUE

1298:

;SET COUNTER =

BNOSCRO,STMP11
8POSCRO,$TMP13
#7. RS

;GET POINTER TO (-)
;;GET POINTER TO (+4)
;SET DIVISOR = 7.

BEQ
MOV

4s
SNCSCRO,S$TMP11

MOV
MOV

#96.,RS
#48. , STMPI12

;BR _IF YE§
;GET POINTER
;GET POINTER
;SET DIVISOR
;SET _COUNTER

MOV
4$:

23 stMP12

MOV
MOV
MOV

cMPB

#PCSCRO,STMP13

;SEE IF RERDING OVRWRT DRTA
TO (-)
TO (+)
= 96.
= 48,

COMPAT DATA SCORES
COMPAT DATA SCORES

;s INIT FLAG FOR (-) DIRECTION

161120

CLR
CLR
MOV

Re
RY
#3TMP11,R3

sSET

DIVIDEND

(-)

SuM

161112

BEQ
MOV

109
a$TMP13,R3

;SET

DIVIDEND

(4)

SUM

RS, RO

;GET

DIVISOR

CMP
BLO
INC
coMB
BEQ
MOV
ADD

MOV

003156

10%:

003156

001308

CLR
CLR

7S78

042676

000002

CLRB

OI,TSTTYP

OVRWRT SCORES
OVRWRT SCORES

OFSDIR

es:

006200

00074S

83, TSTTYP
cs
SNSSCRO,8TMP11
#PSSCRO,$THMP13
#c4. RS

MOV
29%:

:SAVE RO-RS

CcMPB
BNE
MOV
MOV
MOV

8%:
001304
001310

14¢%:

RO
R1

OFSDIR

JSR

PC,M.DPfD

ASR

MOV

RDD

DEC

;CLERR HI

BITS OF DIVIDEND AND DIVISOR

;SEE WHICH OFST DIRECTION

;DIVIDE TO0 GET AVERRGES

R1,RO
89
R3
OFSDIR
149
R3,a%TMP11
82,3TMPL1

;sDIVIDE

;SEE IF REMNDR > HALF DIVISOR
;BR IF NOT
;ADD 1 TO QUOTIENT
;COMPL DIR FLAG
;BR FOR (+)
;PUT (=) AVG INTO TRBLE

17 BY 2

R3,4%TMP13

;PUT

AVG

$TMP12

: DECREMENT COUNTER

#2,9TMP13

(+)

INTO TABLE

CZR6GBO RKE DR CPT PROG MRCY1l

CZREQB.P11

02-DEC-77 10:46

4617

4619

020260

30(1046)

02-DEC-77

END OF PRSS ROUTINE

00133

4618 858336 18u418
4620

000207

4623

020262

104407

020264

012700

4635

4637
4638

020270
72
7

005001
5037
2987

12702

020306
Q312

012703
005720

4643

020324

010204

4646

4639
4640
ng

4e4

444

4645

4647
4648

4649

4655
46
4657

:gsg

0314
0

020342
020346

MOV

CLR
CLR

007426

062537
055537

020 gz0S300

020370
020374

020227
101752

020376
020400

005004
005005

:SET POINTER TO OVRWRT SCORES

BEQ
énc
R

gs
R}l
35

"IN R

MOV

R2! Rq

ADD

94, (R%) , OVRAVG

DEC

cnp
g

R2, sNOSCRO+64.
8’

CLR

ADD

inng

COMAVG

007112

MOV
TST

$NCSCRO, R3
(RD)+

MOV

X ¥

100

437

#NOSCRO, R2

CLR

001402
;91
Y

38;

INIT DRIVE COUNTER
SINIT SUMS TO O

07430

00eble

007426

000136

007430
000136

007426

8%:

MOV

9s:

ADD

MOV

ADD
ADD

007430

EBE
ADD

006712

; DIVIDE

020410
020412

6305
012737

ASL
MOV

4665
4666
4667

020426
020430
020432

005001
005002
017703

4671

020446

020100

020420
0204aM

020436
020442
020444
020450

5037
5000

004737
010500
006200
103401

007426

001306
160646

042676

001304

108:

1,R0

( 4>+ OVRAVG

(RS)+, COMAVG
94. (RS), COMAVG

qga
Ra
#32. 'R3

o GET nveancss

466l
4eb2

4660 85 8: §§818§

POINTER

R1
OVRAVG

388

4672

W E W ®E KR EEN®ER

: TAKE SUMS OF ovsauaxr;
AND conPhT
R§98RTEET §cgnss OVER ALL TRACKS

00SS12

osoios

4668
4669
4670

IRETURN

!!lllllllll!llllllli!lllll!l!lllll!llllllllll!lllil!!I!llllll!l

020402

4663
4664

:BR_JF _NOT DONE YET

*RESTORE RO-RS

YAKAVG: SAVREG

:ggo
250 0 30164 00040
465 858324 825785 00040
4653
4654

RTS

SEQ 0093

irnxnvc - COMPUTE AVERAGES OF TEST SCORES OVER ALL SURFACES
'%THIS SUBRQUTINE COMPUTE THE nv RAGE OF THE OVERWRITE TEST SCORES
1#OVER ALL TRACKS (SURFACES)
LACES THE AVERAGE IN OVRAVG.
'%THEN, IT COMPUTES THE nvsnncs OF THE COMPATIBILITY DATA READ SCORES
:%OVER' ALL TRACKS AND PLACES THE AVERAGE IN COMAVG.

4630

4633
4634

128

cao8

PRGF 94

o J630 3036 36 36 36 3 3 36 36 3 36 36 36 36 96 3t 36 3 3 3 36 3 3 3 3 36 3 3 3 3 % 3 3 % 3 I 3 3 3 3 3 3 3 32 W

4624
4625
4626
4627
4628

wsgé

SEEREG

4655

4629

11:48

CLR
CLR

OF DRIVES IN RO

:SET POINTERS TO SCORES FOR THIS TRACK

:ADD SCORES TO SUMS
:SEE_IF ALL

SCORES ADDED FOR

THIS

ggrfir TgTSCSRES FOR NEXT TRACK
;SEE IF ALL TRACKS DONE YET
'BR IF NOT YET
:GET DIVISOR

IN R4-RS

covnavc $TMP11

;SET

TO ovnuar

POINTER

SCORE

$TMP12
RO

'CLERR SCORE INDICATOR
'GET DIVIDEND IN RO-R1-R2-R3

PC,M.0P1D
RS, RO
RO’

:DIVIDE TO GET AVERAGE
:GET DIVISOR
'DIVIDE IT BY 2

12%

:BR IF NOT

R1
R2
JSTMP11,R3

CHMP

R1,RO

BLO

:PUT NO.

Si.gs

CLR
CLR
MOV

JSR
MOV
ASR

:SET POINTER TO REARD SCORES
:COMPUTE TOTAL NUMBER OF DRIVES

:SEE IF REMNDR > HALF DIVISOR

SUM

TRACK

CZR6QBO RKb DR CPT PROG MACY11l
CZR6G8B. P11
0e-DEC-77 10: 46
4673
Hg?q
4675
4676
4?77
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690

0204Se

005203

858420 813357 389553

020466
020472
020474
(20476

30(1046)

001306

001304

02-DEC-77
11:48
PAGE
END OF PRSS ROUTINE

128:

104410
000207

TO QUOTIENT

;ADD 1

Hov

37
RE AVERAGE SCORE

cOM
BNE
RESREG
RTS

$THP12
108

' COMPLEMENT SCORE INDICATO
'8R 10 COMPUTE READ SCORE AVERAGE
'RESTORE RO-RS
' RETURN

MOV

0nnvc §twp11

(26T POINTER FOR READ SCORE SUM

3635 3 36 3% 36 3 36 36 38 36 3 3 3 36 3 3 3 3 3 3 % 9 3 3 3 ¥ 3 % 3 W 2 WA I

X W E W E K E W EE W E KW EEEEEEEEEE SR

‘% WHICH IS USED WHEN NED INDICATION IS EXPECTED (AND VALID).
;l

020500

03276S

010000

000020

031504

005201
006300
000772

020552

§9003?

005476

000137

033754

15884

(NED

NON-EXISTENT

DRIVE)

< 3036360638 26 36 06 06 06 06 36 06 30 30 06 00 30 0 00 00 00 B

NEDHDL glg
18:

IHP
MOV
MoV

MoV

2s:

005430

3s:

CLR

¢HPB

BEQ

U RO

SNED,P.CS2(RS)
18

ERRHDL
RO, -(SP)

R1-(SP)

81 .RO

R1,DRIVE

AR ORI

RN RN AR

;SEE IF NED ON DRIVE SELECT
0 HANDLE
~OTHER ERROR
AVE RO, R1

ser BIT POINTER

; CLEAR_COUNTER

JSEE_IF RI = CURRENT DRIVE NUMBER
'BR_IF

R1
RO
23

P INCREMENT COUNTER
ISHIFT BIT POINTER
TRY AGA]

MOV

§¢)+ Rl

'RESTOR

RETNML

: TRKE

BIC

IMP

RO, NEWON
(8P)+ RO

3% 38 3 3 3¢ 3 3¢ % 3 3% 3 3% % %

%EQR gnkang BIT FOR

MNORMAL

THIS DRIVE

RETURN

1222222222232
Y2 222X X222

iDCKHDL - onrn ChcCK ERROR HANDLER

NI SZSSZ 2L

T%THIS 63 s
ABNORMAL RE TURN rnon THE DRIVER, WHICH IS USED
‘¥WHEN DCK E
S EXPECTED (RND VALID)
:xIF A HEADER vqc ERROR OCCURS, IT IS HANDLED, ALSO.

LLrL £L£L£LJ

020556

005037
032765

4723

020630

000137

lllllll!lllliiliill!ll!!ll!l5!!!!!!!!!i*l!!illlllillllliillllii
BEKHDL: CLR
ECODE
; CLEAR ERROR FLRAGS

0as4e4
000400

000034

000004

0os424

100000

000034

4§

0os4e4

b%:
8%:

031504
900020
194
033754

BR IF NED SET

INC
ASL
BR

MOV

;
Lk

SEQ 0094

iNEoHoL - NON-EXISTENT DRIVE HANDLER
‘¥THIS IS THE RBNORMAL RETURN FROM THE DRIVE

000001

NNN NN
nrnyPt s Pt PPt e e e
ne—0 D NV
£ W

INC

Da8

B IT

BEGQ
gés

BIT

SEE IF HERDER VRC ERROR
ER IF NOT

#DCK,P.ER(RS)

SEE }F ESK ERROR OCCURRED

ERRHOL

GO HQNDLE OTHER ERROR

RETNML

TQKE NORMAL RETURN FROM DRIVER

#HVRC,P.ER(RS)

ggVRCER,RECODE

BNE

BIS
INCB

$DCKERR, RECODE
DCEFLG

JMP

EEITHVRC ERROR FLARG

E ;
h
NCR MEN
DCK ERROR FLRG

CZR6QUBO RKe& DR CPT PROG MACYI1
CZR6QB.PI11
02-DEC-77 10:46

30(1046)

02-DEC-77

END OF PRSS ROUTINE

4729

4730
4731
4732
4733

11:48

EO8

PRGE 98

SEQ 009

336 36 38 36 36 9 3 36 3 3 3 3 3 36 36 38 3 36 36 36 36 3 36 36 3 3 30 36 36 3 3 3636 3 36 3 3 2 38 3020 36 3 2 3 30 06 3 20 3 3 9 3 3% 90 % 3 3 3 % % %

éBTTL
$

4734
4735
4736
4737

KBDHDL - TTY KEYBORRD INTERRUPT HANDLER

IE 00000600 00 0600 00 0600 0000 06 06 00 0000 0 S

KBDHDL:

160304
177600
000172

000040
005442
000003

20%:
160232

18:

MOV

(SP)+.R1

'RESTORE Rl

4§ :

000007
gleles

5%:

ogs44e
001325

‘READ A CHAR FROM KBD BUFFER
*MASK OUT UNUSED BITS
'SEE IF LOWER CASE TYPED
:BR IF NOT

8141

baxrs IS TKS

:CLERR KBD INTERRUPT ENABLE BIT
'RETURN

CMPB
BNE

#032,R1
33

‘SEE IF (12) TYPED
PBR IF NOT (t2)

BNE

8022, R1
ys

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

TYPE

o12114

020766
020772

:BR IF
NOT
:MAKE IT UPPER CASE
:SAVE INPUT CHARACTER
:SEE _IF (1C) TYPED
:BR IF NOT (tC)
PECHO (1C)

TYPE
BR
CMPB

3%:

oooo22

000751
104401
104401
000744

208
$BITS,RI
R1, INYCHR
8003, R1
es
NTRLC

RI,

CNTRLZ
s

SECHO ($2)
RL TURN

CNTRLR

'ECHO

(tR)

:RETURN

CMPB
BNE
TYPE

#007,R1
S$

CNTRLG

'SEE IF (1G) TYPED
:BR IF NOT (1G)
SECHO ($G)

TYPE

, INTCHR

'ECHO

TYPE
BR

' §CRLF
Is

'RETURN

INPUT

‘D0 _<CR> AND (LF>
'RETURN

222212222222 222222222222::2:2222X222X2 2232223222222 E T

PREPKB - PREPARE FOR KEYBOARD INPUT

*88TTL

:%THIS SUBROUTINE CLEARS

! %DONE BIT,

'¥INTCHR,

THE KEYBOARD BUFFER AND

160146
oos442
000100

PREPKB:
160132

THE

AND CLEARS THE TTY INTERRUPT INPUT WORD

IN PREPARATION FOR NEW TTY INPUT.

:Egggtsé KBD INTERRUPT.

005077
005037
0Se7??7
000207

ON STACK

BLT
BIC
MOV
CMPB
BNE
TYPE

RTI

012107

;SAVE R1

3stkB R1
8177600, R1
Rl,#172’
20¢

BIC

2%:

000032

R1,-(SP)

MOV
BIC
CMPB
BGT
cMPB

000141

012102
000100

MOV

000 30 00 D00 000 0 0

IT ALSO

JSR

PC, PREPKB

CLR

9STKB

;CLEAR KBD BUFFER AND DONE BIT

BIS

#BITE,ASTKS

:ENABLE KBD INTERRUPT

CLR

RTS

INTCHR

T e

R R 2 2

R A A R R AR E P T

ST T

‘CLERR_TTY INPUT
WORD

i RETURN

P REREELRFHERAREERRER
R
AR R RN RN AR AR LA AR AERRAAA R AR AR R AL S

CZR6@BO RK6 DR CPT PROG MACY1!
CZREQB.P11
02-DEC-77 10:46

30(1046)

FO8

02-DEC-77
11:48
PRGE 97
ECOBAD - ECHO BRD TTY INPUT

SEQ 0096

4785
4786

.SBTTL
ECOBRD - ECHO BARD TTY INPUT
i %THIS suenourxns ECHOS A CHARACTER WHICH HAD BEEN

4730

lllllll!l'!llllillilllllillllllllll*«llllllllli*ll!llll!f!iii*!il

4787
4788
4789

"#TYPED IN AND WRS DETERMINED TO BE INVALID FOR SOME
: ¥REASON, FOLLOWED BY A QUESTION MARK (7). THEN, R <CR>
;nmo <LF> ARE DONE.
CALL

H;gé

4793

021014

4795

021024

4794

4796

021020

104401

000207

005442

001324

ECOBRD:

JSR

TYPE

, INTCHR

RTS

TYPE

PC,

ECOBRD

:ECHO BAD CHARACTER

' $QUES

'TYPE <?> AND <(CR>, <LF>
*RETURN

4797

4798
4799

1288
480¢2

’ **!l!llllllflflll!!lllflllili*l‘llIi!!lllll!!lll!lll!li*l!lll!*!!*!

4803
4804
4805
4806
4807

4808

4809
4810

4811
4812
4813

i
GETPRM - INPUT
A SIX-DIGIT OCTAL NO. ON TTY KBD
' XENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE
:#TYPES OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON
:%XTOP OF STARCK.

021026

O0l6646

02103%
021036

000
104401

021032
021034

021042

104403
006

004737

000002

021100
021100

4817
4818
4819
4820

021054
021056
021060
021062

005700
00100!
000207
020027

000006

(021070

10440f

162716

4821

021066

4823

021074

4822

4824

4825
4826
4827
4828
4829
4830
4831
4832
4833
4834

4836

4837

4838

4839

4840

021100

021104
021106
021112
021116
021120
021122
021126
02113C
021134

.BYTE
TYPE

023424

021046
021050
021052

TYPOS
.BYTE

0I1254

4g!w
4.5
4s16

R 2XIz22222222:22:22:222222222:XX222223X22XXXZXX2T2222LXTXLILESELLE
L

SETPRM: MOV

JSR
78
73

021100

003407
104401

000207
012746
004737
021070
012600
005737
001360
010066
000207

2(SP), -(SP)

GET OLD VALUE

s TYPE IT
:SIX DIGITS

; SUPPRESS LEADING, ZEROS
*TYPE
NEW

NEWMSG

AC, RDCHRS

'READ NEW VALUE FROM KBD

1(1C)
' ($#2)
J(#U)

RETURN A
RETURN RDDRESS

OR ERROR RETURN ADDRESS

4g:

157
BNE
RTS
CMP

RO
4§
PC
RO, #6

*SEE IF ANY CHARS TYPED
'BR_IF YES
‘RETURN - OLD anus UNCHANGED
'SEE _IF > 6 CHARS TYPED

00S212

6%:

TYPE

BUFFO

*ECHO BRD

000010

7%:

00S212
042116

8%:

001324

042250

000002

BLE

TYPE

SuB

RTS
MOV
JSR
63
MOV
TST
BNE
MOV
RTS

S 2 SN0

"8BTTL

gs’

'BR IF NOT BAD

' SQUES

510 (S5P)

INPUT

SFIX ERROR
RETURN PC

(SP)+,RO
sHIoct
68
RO, 2(SP)
PC

: ERRO
SPUT POINTER TO CHRRS ON STARCK
:CONVERT DIGITS TO BINARY
'ERROR RETURN ADDRESS
:GET NEW BINARY VALUE
:SEE IF HI BITS ARE O
'BR_IF NOT
SPUT NEW VALUE ON STACK
:RETURN

3000 00606 3 06 0600 3006 0

0606 00006 006 06 00000 000600 0006

:eurro ~(SP)
PC,OCTBIN

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

:¥THIS SUBROUTINE ALLOWS

THE

CONTENTS OF

:¥REGISTER TO BE MODIFIED BY TTY INPUT.

THE

SOF TWARE SWITCH

THE SUBROUTINE TYPES

RBQBO RK& DR CPT PROG HQCYél
LZRBQB Pll
02-DEC-77 10:4

30010467

GOS8

02-DEC-77
11:48_PAGE 98
GTSWRG - OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION
“SWR
= XXXXXX

NEW =

AND NSITS FOR A NEW OCTAL VALUE

oonneg £W
oo
Lo

e B
e
e Bt
s
Pt

Bt
Bt Pt
s s e

oo
ODOO%OD

;or UP TO SIX DIGITS TO QE TYP

36369636 3 36 3 36 36 36 36 36 3 3 3 3 3 3 3 3 3 I 3% 33 U 3% 3 % 3 3% % 32

022737
001010
013746
104401
004737
012637
000207

000176

001140

000176
gl1i24s
021026
000176

I K% W AW EE W KEE K E R R R EEEEEE %

& +SuwRG: gnz

g§uREc SWR

SEEIIF 3grrunas SWR SELECTED

MOV

sunsc -(SP)

PUT OLD VALUE ON STACK

(s¢)+ SWREG

'STORE NEW VALUE
'RETURN

TYPE

JSR

MOV
RTS

X ¥

RMSG

< 260606060606 30 3600 36 00 00 0600 0600 0 00 00BN MR

QBTTL

TYPE“SWR

Pc csrpnn

TYPE OLD, GET NEW SWREG VALUE

R RN

A R AR AARR AR AR RRERRRRRR

INITSS - INITIARLIZE SUBSYSTEM

!THIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS

:flngQOES RSUBEYSTEN CLERR.
‘%
e

CALL:

JSR

PC,

INITSS

003056
0030S4

INITSS:

W
~N

ser
'GET

CLRB
JSR

nonrnv

:CLER n “NO-RETRY” FLAG
:CLERR _DRIVER INPUT PARAMETERS

MOVB
BISB
RTS

000007

opnnno RS

(GET R

NORHRL RETURN ADDRESS
RES% RK611 REGISTERS

OF PARAMETER BLOCK

OSOBCLR P CMND(RS) ;SET SUBSYSTEM CLERR COMMAND

PC, DRVCAL
00’ SUBSYSTEM CLEAR
DRIVE,P.DRVN(RS)' :SET CURRENT DRIVE NO.
DRIVE. PARM1
.8ET DRIVE NO. IN ALTERNRTE P.B.

FORMAY, P. CSlH(RS) ‘SET CURRENT DRIVE FORMAT
TYPFMT.P.CSIH(RS)
DRV TYPE. 0=RKOB&, 4=RK0?
PC
SUBROUTiNE EXIT

SN0

QBTTL

;SET UP ABNORMAL ERROR RETURN ADDRESS

SERRFRE| A. NORM
RKBRS , R

JSR
MOVB
MOVB

000000

SERRHDL ,A.RABNL

MOV
MOV

MOvB

000001

003134
003133

MOV

O 0
e Q0
O

031504

NIV NV U
- >—
WWMNNY
= =0
onNLoOoLoO Lo

0000000000

NNNNNNNNBN

ll*l!illllil!!lillilllllil!lll!**lll!ll!i!!liii!!l!!l!iilll*lli

RN R

NN E R R AR EE AR RHAARERRRR

CLRPRM - CLEAR DRIVER INPUT PRRAMETERS

; #THIS SUBROUTINE

ZEROS

THE FIRST

BYTES

*PgRRHETER BLOC?SéuHOSEPRDERESSMIS IN RS)

THE DRIVER

’lilllfllllllllllll*'ll'llli!‘lll!!ll!fil!l*il!l!!l!!*ll*l*!!ii‘l‘liiii
0el1270
pgalaze
02l1e74
0ele7e
02130e

000016

CLRPRH:

MOV

RO, -(SP)

; SAVE RO

18:

CLR

(RO)+

:CLEAR
A WORD

MOV
MOV
ADD

RS, -(SP)
RS, RO
#P.CS1,RS

:SAVE RS
iGET_PARAMETER BLOCK ADDRESS
COHPUTE LIMIT RDDRESS

IN PARAMETER BLOCK

SEQ 0097

CZRBGBO RKE DR CPT PROG MACY11
CZREQB.P11
02-DEC-77 10:46

30(1046)

02-DEC-7?
11:48
PRGE 99
CLRPRM - CLERR DRIVER INPUT PRRAMETERS

1842 BSt38:Y BEPY9E
4899

4900
490]
4902

021310

021312
021314

012605

M
1

RQ,

] RS

MOV
RTS

(S5P)+.RD
PC

MOV

012600
000207

338
4282

;

4907

:XTHIS

SEQ 0098

YET
85 E 1#F IF DONE
REoSRE
vt

(SP)+,RE

Esrone RS

RESTORE RO
RETURN

.€

3636 3 36 3 3 36 36 3% 36 3 36 36 36 36 3 3 3 3 3 3 36 3 3 I 9 3 3 3 3 3 3 3 3 I 3 3 W3

"48TTL

SCNDRV - SCAN DRIVE FOR STATUS

SUBROUTINE

SCANS

THE SELECTED DRIVE

I W

KPR EEREEEERESE

INSURE

4908
4909
4310

:%THAT THE DRIVE IS ON-LINE, READY, NOT WRITE- LOCKED
:¥AND NOT LORDED uxrn AN ALIGNMENT' CARTRIDGE. IF
A
‘%0F THESE CONDITIONS ARE NOT MET, AN QPPROPRIQTE

4913
4q14

:%AFTER THE anL TO SCNDRV. THE REQUESTED DRIVE NO.
: ¥MUST BE PARSSED TO THE suaqouvxne IN WORD “DRIVETM.

4911

: *MESSAGE rs TYPED, Rxgs INTERRUPY IS DISARBLED,

4g12

'%A RETURNIS MARDOE'T

43]5

‘% CALL -

:gi;

‘Oglg

491

021316

004737

021170

4923

(21334

105737

003133

4924

4935
3357
4928

021322
021326

042712
113762

000100
00S430

(21340

001003

012712
000402

000001

021350

012712

002001

(21342
021346

4923
4330
493]
4932

(021354
021360
021364
021366

00S037
005237
001375
032762

001000

4334

(021376

112765

000101

00473
004737

37644
031224

4933

4935

4836
4937
4938
4939

021374

0041

(021404

oxx;s;

oastg
0214

6 “93?
2

021410
021414

SCNDRV:

000010

000200

1STB

c$:

7.
15§:

NDRV

TyPrmt

:SEE IF RKO?

‘BR

#(CDT!GO>,
(R2)

;SET

8GO, (R2)
7%

MOVB

ISELDRV
cnno<n$)

005424

BEG

MOV

4946
4947

021466

112737

000040

011312

4948

4949
4350

021474

012737

031504

000377

005476

43€]

(21502
(021510
021512

113737

00S430

011311

003056

011311

YES

'ELSE SET GO BIT

000001

005476

000060

s INITIALIZE DRIVER AND CLEAR SUBSYSTEM

000010

0600377

152737

xnxrss

sI1f (
:DISRBLE RKO6 INTERRUPT
DRIVE RKCSE(RE) :SET DRIVE NO. IN RKCS2

SCRACH
SCRACH
15%
#MDS,RKCS2(R2)

012737

Q21820

MOV

CLR
INC
BNE
BIT

021454

022737
00425

BIC
MOVB
MOV
BR

4944

4945 021462 004737 030146

JSR

BNE

005444
005444

00016

o)
051439 0o4r3r D333k
188:
4942 8 1440 112765 88 141 000001
4943 021446
012737
020500 0030S6

495z

AND

RODRESS LISTED IHMEDIRTELY

: ; 1222222222222 X2222232222222222222 22X 2222222222222 228

4920

4921
4922

(R2), Csx

FOR RKD&

IN RKCS!

GO FOR RKO?

*CLEAR STALL COUNTER
*INCREMENT STALL COUNTER
:STALL FOR SEVERAL MILLI-SEC
:SEE IF nos ERROR
R

IF NOT

SET CMND FOR ERROR REPORT

,csf RKCS] FOR REPORT

JSR
JSR

PC,1.cs
PSREPSUP

JoR

P50§an 3 CMND(R)&‘S B8R
<ca
NG
;SET Ssgo DRIVE STATUS COMMAND

ERROR
8IS

MOVB
MOV
MOV

S
cneoar RECODE

cngOHot .ABNL
WON

JSR

PC okvrnL

MOV

SERRHDL

:GET OTHER RK&11 REGS FOR REPORT
SE ap
ERROR SPORT
PORT
SET neoar FL

?Ef NED ABNORMAL RETURN ADDRESS
.

ON-LINE INDICATOR

:READ ALL CRIVE STATUS

MOVB
840, BHODRV+7
:PUT A SPACE IN MSG BUF
sSEE IF THIZ ovas txxsrs AND 1S’ ON-LINE
CHP
BEQ

MOVB

BISB

8377, NEWON
43

DRIVE

,R.RABNL

,BADDRV+6

#'0, BADORV+H

;RESTORE

ABNL

RETURN

ADDRESS

:SEE IF NED INDICATION ON THIS DRIVE
'BR IF NED NOT SET

:GET

DRIVE

NG.

INTO

:CONVERT TO RSCII

BUF

CZR6ABO RK6 DR CPT PROG MACY1l 30(1046)

CZREGB.P11
4953

4964
4985

4956

4987
4358

4329

(021526

021532
021636

Q021544

(021846

104401

104401
132737

001401

02-DEC-77

011303

011314
000200

TYPE

TYPE
BITB

001351

104123

BEQ

ERROR

Q42762

000100

000000

4963

(021564

032765

000200

000040

4§:

4965

021574

113737

00S430

011311

49e4

4966
4967
4968

4969

021572
021602
021610
021614

001013

152737
104401
104401

021620

000753

497]
4972

Q021622
021630

021632
Q021640
Q021646
021652
021656

032765
001413

4979

4970

000000

000060
011303
011333

000040

113737
152737
104401
104401
000734

005430
000060
011303
011347

011311
011311

(021660

112765

000103

000001

4984
43985
43986
4987
43988

QB21712
Q021720
021726
021734
021742

013765
112765
012765
012766
142765

024404
000002
053342
177774
000020

000002
000005
000010
000012
000007

4992
4993
4994

(021770
021772
021776

001402
104401
022737

012036
1777?77

053350

4995

(022006

113737

005430

011311

4373
4974
4975
4976
4977
4978

BIC

.SEE

4980 021666 004737 030146
498] 021672 112766 000113 000001
4982 021700 004737 030146
4983 021704 112765 000121 000001

4937
4998
4999

5000
5001

002

5003

2000
5006

5007

S00e

(22004

(022014
(022022
(22026

001013

152737
104401
104401

022032

000646

022040

000207

022034

062716

000060
011303
011366

000002

IF DRIVE

BIT

MOVB

B1SB
TYPE
TYPE

-SEE

IF onxvs

8%:

MOVB

63:

SEQ 0099

, BADDRV

s TYPE “DRIVE X"

'BR_IF NO

NXDRIV
kBIT7, SENVM
123

BIT
BEQ

:TYPE "NON-EXISTENT®
!SEE IF UNDER APT

'NED UNDER APT SIZING

#IE RKCS] RE)

J(SP),(5P
PC

IS RERDY

#S.DRY,P.AOO(RS)

:DISABLE RKO6 INTERRUPT

!SET UP ERROR RETURN ADDRESS
:ERROR RETURN
;TEST FOR DRIVE READY

,éR IF DRIVE IS RERDY

DRIVE ,BADDRV+6

:GET DRIVE NO.

:TRKE ERROR EXIT

8’0, BADDRV+6
BRODRY
NTREDY

IS WRITE ENABLED

INTO BUF

:CONVERT TO RSCII
*TYPE “DRIVE X
'TYPE “NOT REARDY"

#S. WRL,P.ROO(RS) ;SEE IF WRITE LOCK SET
83
QR IF WRITE LOCK NOT SET
MOVB
DRIVE ,BADDRV+6 ;GET DRIVE NO.
gIS8
'0, BADDRV+6
; CONVERT TO ASCII
TYPE
, BADDRV
:TYPE “DRIVE X
TYPE
NRTLOK
: TYPE ”HRITE-LOCKED"
BR
(3
TAKE ERROR EXIT
.SEE IF DRIVE NOT Lonoso WITH ALYGNMENT CARTRIDGE

10%:

011311

#PACK

CHND(RS

PC DRO
.47 VOLUME VAL 1D
snéan PanO(Rsi
:SET RECAL CMND
ORVEAL
RECAL THE DRIVE
oabonrn F.CMND(R&) :SET RERD COMMAND

gise
JSR
BIT

TYPFHT P CSIH(RS)
RvEAL
sREAD
4 WORDS OF BAD SECTOR FILE
onfivoen,nscooe ' SEE xr DATA ERROR

BEQ
TYPE
CMP

BNE

LSTCYL,P.CYLN(RS) SET CYLINDER
= 632(8)/1456(8)
SLSTTRK,P.TRCK(RS) :SET TRACK
= 2
$RWBUF, B.BALOC(RS) ;BUS ADDRESS
#-4 P.HNC(RS)
.READ 4 WORDS
#8.CFMT,
P SlH(RS
;SET 22 SECTOR FORMAT
108
‘BR_IF OK
BAD632
:TYPE RERD ERROR MESSAGE
k177777 RUBUF+& :SEE IF ALL 1°S IN I.D. WORD 3
12%

'BR_IF NOT RLL 1’s

%'0, BADDRV+6
, BRODRV
' ALNPAK

; CONVERT TO RSCII
:TYPE "DRIVE X*
' TYPE “LOADED WITH ALIGN PACK"

MOVB

DRIVE ,BRDDRV+E6

:TAKE ERROR EXIT

RTS

pc’

SRETURN

BIS8
TYPE
TYPE

ERROR FREE RETURN

{3s:

SET PACK RCKNOWLEDGE COMMAND

JSR
MOVB
JSR
MOVB

MOV
MOVB
MOV
MOY
BIcB

4989 (21750 153765 003133 000007
4990 (021756 004737 030146
4991 (021762 032737 100000 005424

4995

MOV
RTS
BNE

011311

004000

PRGE 100

SERVICE ERRORS HERE

017616
000207

4962

11:48

SCNDRV - SCRN DRIVE FOR STATUS

021556
021562

4960
4361

021550

02-DEC-77 10:46

108

ROD

82, (SP)

N NEEEREREREEREEEE R RN

:GET DRIVE NO.

sFIX UP RETURN PC
AR NF R

AR R

issrrup - SET UP FOR LOOP ON ERROR

R R

:#THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER

EREEERRRRR LR R

CZR6GBO RKE DR _CPT PROG HQC\él
CZR6QB.P11L
02-DEC-?77 10:H4

5009
5010
S011
S0l2
S013
S014
S01S
S016
S017
S018
S019
5020
S0el
5022
5023
S0e4
5025
5026
5027
S0e8
5029
5030
S031
S03e
5033
S034
5035
S036
5037
S038
5039
SO40
5041
5042
S043
SO44
S04S
S046
5047
5048
S049
SQS0
S0S1
S0se
S0S3
SO054
S0SS
S0se
S0S7?
S0S8
S059
S060
S0el
S062
S063
S0e4

30(1046)

JO8

02-DEC-77
11:48
PAGE 101
SCNDRV - SCAN DRIVE FOR STRTUS
: ¥SUBROUTINE

---

ONLY

MAIN-LINE

SEQ 0100
CODE

'!!!

il!ll!l!l!!l!l!lllllli!ll!{lll*llli!!!*lil!lllilll!llll!i*illii

Je2e04e
022046
022052
0e20Se
Qee0be
022066
022074
022100
022106

011637
012706
005037
105037
012705
112765
004737
012737
000207

001076
001076
00S4e4
003135
002640
000177
030146
000000

S4TTUP: MOV
MOV
CLR
CLRB
MOV

MOVB
JSR
MOV

000001
177776

RTS

(SP) alSTRCK 2
#STALK-2
RECODE
EPRCNT

;MOVE RETURN PC ON STACK
'RE-INIT THE STACK POINTER
:CLEAR ERROR RECOVERY FLAGS
;CLERR RETRY ERROR COUNT

:RETURN

$PARM

SET PARAM BLK RDRS

uSUBCLh P cnuocné) SET SUBSYSTEM CLEAR CMND
vCAL
- CL EAR TRE QUBSYSTEM
opho aops
‘RE- ESTQBLISH PRIORITY O

+ 3636 36 3 3 36 36 3 3 3 3 36 36 36 36 36 3 36 36 36 36 36 36 3 3 36 34 3 36 36 36 36 3 36 3 3k 36 3 36 36 3 3 36 3 3 3 3 3 B 3 30 3 3 3% % 3 3 3 3 3 % 3 %

QBTTL MTCART - MOUNT TEST CARTRIDGE, CHECK DRIVE STQTUS
lTHIS SUBROUTINE PERFORMS THE FOLLOWING FUNCTIONS

022110
QOee2ll0
0eell4
022120
Qeele4
022130
0cel32
022136
QOeezi42
022150
0celS4
Oe21e0
2194
022170
Q022172
022174
022176
022200
022202
0222
Oeez2le
Q22214
022220
82 224
0cceed
022232
022236
022242
022244
022250
022254
022262

;%17 TYPES “STARTING PASS _X*, DIRECTS THE OPERATOR TO MOUNT THE
;¥TEST CARTRIDGE, CHECKS THE' DRIVE STATUS, DETERMINES THE PACK FORMAT,
;¥READS THE BAD SECTOR FILES, AND TYPES THE DRIVE AND CRART. SERIAL
; ¥NUMBERS.
Mg;;;uuuiuuuuunlun{lu*u"uuuuuunuuuuun
013700
112037
111037
162700
006200
110037
004737
042762
104401

104401
104401
004737
022214
022236
022154
005700
001025
104401
104401

000760
012706
105737
80100
000137
000137
105737
001744
012706
000137
023727
001347

MOV

005554
010366
010365
00SS1e

0031s4
021170
000100
010340
010602
010623
023424

000000

10%:
5% :

00S2le
001324

6%:

001100
003126

12%:

012176
013002
003126
001100
01344
005212

148
169:
000122

8%:

DRVPTR, RO

;GET_POINTER TO FIRST DRIVE FOR THIS SUBSYS

MNtPARK
TYPRNN

: TYPE MOUNT PACK MSG
:TYPE “TYPE R(CR> WHEN "

MOVB
MovB
SuB
ASR
MOVB
JSR
BIC

(RO)+,MNTPRK+22.' ; PUT DRIVE NAME INTO MSG
(RO), INTPAK+21.
#DRV(ST,RO
:SUBTRACT LIST ADRS FROM POINTER
RO
‘DIVIDE BY TWO TO GET DRIVE NO.
RO, LOGDRY
*STORE LOGICAL DRIVE NUMBER
PC’ INITSS
*INITIALIZE SUBSYSTEM
#1£ RKCS1(R2)
;DISABLE RKOB INTERRUPT FOR MAN. INTERVENTION

TYPE
JSR
128
168
SS
IST
BNF

' DRIRDY
PC, RDCHRS

TYPE
TYPE

TYHE

TYPE

BR
MOV
TSTB
BNE
IMP
MNP
15TB
BEQ
MOV
IMP
CMP
BNE

! TYPE “DRIVE RERDY :"
JWRIT FOR R(CR> RESPONSE
1 ($C) RETURN ADDRESS
' (#2) RETURN ADDRESS
DY) RETURN nooness
ISEE IF NULL INPUT
‘BR IF NOT NULL

' §QUES

STYPE <?> AND <CR>, (LF>

,BUFFOD

&s
#STACK, SP
noFan
4$
orsrnr
ALLSYS
MDFLAG
5§
#STACK, SP
ASKSYS’
BUFFO, #'R
68

:ECHO BAD INPUT

160 ASK ARGAIN
‘RE-INIT THE STACK
:SEE IF 200 START
'BR IF
NOT
'RESTART PROGRAM - 200 STAR
‘GO ASK FOR SUBSYS’S AND onxvss AGARIN
'SEE IF 200 START
'BR IF YES, TO ASK RGAIN
'RE-INIT THE STACK
'GO ASK FOR SUBSYS TO TEST ARGRIN
'SEE IF R(CR> TYPED
'BR IF NOT

CZR6GBO RKB DR CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46

5065

5066

€067

022264

004737

022270

117737

021170
163260

022276
022304

6074
§075

022316
022324

112765
004737

000125
030146

000001

5077

022336

032762

000200

000000

024410

000000

022150

000066
021316

005430

5068
5069
5070
5071
5072

022310

142737
004737

30(1046)

€073 022312 004737 021170

005430

5076 002330 013762 024406 000000
5078
§079

5080

5081

5082
5083
5084
5085
6086

022344
(022346

001774
013762

022362

00I177M

022354

022364

032762

105037

022370
022374
022402
022404

005762
032762
001403
162737

5090

022426

001004

§0%2

022436

00:012

022444
022450
022456
022460
022464
022470

004737
032777
001402
004737
005037
000207

5087
6088
5089
5091

5093

5094
§095
6096
5097
5098
6099
5100

0Oe24i2
(022416
022422
022430

022440

000200

000000
000024

000020

003134

122737

000061

003155

004737

023736

021170
026540
003126

024056
000200

5108

5109

6110
111
6112
5113
6114
5115
5116
6117
€118
€119
§120

#'0 onxve
PC, SCNDRV

;SET DRIVE NUMBER

JSR

PC, INITSS

INTY. DRIOER PRRAMS AND S.S.

MOV

Hotox RKCS1(R2) D0 A RERD HDR, WITH FMT BIT = O

BEQ
MOV

24§
HOLD2,RKCS1 (R2)

BIT

28%:

BEQ

onbusno P.CMND(RE) :SET RERD HERDER COMMAND
RVCAL
,oo A READ HERDER

8ROY,AKCS1(R2)

#ROY,RKCS1(R2)

268

CLRB

FORMAT

JSR
JSR
YST8

PC, INITSS
PC. REDBSF
MOFLAG

CMPB

8’1, PRSSNO

TST
BIT
BEQ
BISB

BNE
BNE

JSR

JSR
BIT
BEQ
JSR
CLR
RTS

WRIT FOR RERDY

,oo READ HOR,

'WRIT FOR RERDY

WITH FMT BIT =

s INITIALIZE FORHQT BYTE T0 O

RKDB(R2)
#B1T79,RKDB(R2)
288
#8.CFMT FORMAT

:POP SILO ONE TIME
;TEST FORMAT BIT IN Hsnosn WORD 2
iBR_IF 22 SECTOR FORMAT
:SET 20 SECTOR FORMAT FOR THIS DRIVE

3238

'BR IF NOT 200 START

308’

'BR_IF NOT FIRST PASS

PC, DRVSER

PC’ CRTSER
#8177, SR
308
PC, TYPBSF
INYCHR
PC

:INIT THE S.S.
'READ BAD SECTOR FILE FOR THIS DRIVE
'SEE IF 200 START

‘SEE

IF F

PASS

i TYPE ~DRIVE SER.

NO.

Xxx-

STYPE “CART. SER. NO. XXXXXXXXXXX
'SEE IF BAD SECTORS SHOULD BE TYPED
'BR IF NOT
:TYPE BAD SECTOR FILES
SINIT. TTY INPUT CHAR BUFFER
'RETURN

222222222222222:223222222222222X:222222222
323223222222 X22222 2

DMCART - DISMOUNT TEST CARTRIDGE

:%¥THIS SUBROUTINE DIRECTS

5106
5107

DORVPTR,DRIVE

26%:

'&8TTL

§10S

MOVB

BICB
JSR

BIT

S104

INITIRLIZE S.S.

248:

308:

5103

PC, INITSS

MOVB
JSR

156462

2108

JSR

:STRIP THE ASCII
:CHECK STATUS OF THIS DRIVE 108
i
IF NOT VALID,
TYPE MSG AND RETURN
TO unxr FOR R¢CR> ARGRIN
sRERD THE HERDER ON SECTOR O, arbx o
AND GET THE DRIVE FORMAT

32%:

027030
005442

SEQ 0101

CHECK DRIVE STARTUS

:CHECK STATUS OF okxvs 70 B TESHED NEXT

003134

000024
001000

004737
004737
105737

KOS

02-DEC-77
11:48
PAGE 102
MTCART - MOUNT TEST CRRTRIDGE,

THE OPERATOR

IN THE DISMOUNTING

!%OF THE TEST CARTRIDGE ON THE DRIVE CURRENTLY UNDER TEST.
022472

022472

022476
022502
022506
022512
022520
022524
30
022534
022540
Q22542
022544

013700

112037
111037
004737
042762
104401
104401
104401
004737
022564
022606
022524

005554

010423
010422
021170
000100
010404
010602
010642
023424

21122222222222222222:222231222222223222223X2X222222222222222X22
2]

BHCART:

000000
5§:

MOV

MOVB
MOVE
JSR
BIC
TYPE
TYPE
TYPE
JSR
12%
168

DRVPTR, RO

;GET DRIVE LIST POINTER

(RO)+,DISPAK+15." ;PUT DRIVE NAME INTO MSG
(RG), DISPAK+14.
PC, INITSS
s INITIRLIZE SUBSYS
st RKCSI(RE)
‘DISABLE RKOB INTRPT FOR MANUAL INTERVENTION
,DISPA
:TYPE “UNLOAD DRIVE XX AND REMOVE PACK"
TYPRNN
;TYPE “TYPE R<CR> WHEN
°
' DRIDON
:TYPE "DONE :
AC,ROCHRS
*WAIT FOR R<CR> RESPONSE
:(#+C) RETURN RDDRESS
*(#2) RETURN ADDRESS
: (tU)

RETURN ARDDRESS

cznsaeo RK6 DR_CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46

5121

S122
5123

6124
§125
6126
6127
§128
5129
130
§13]
6132
5133
S134
§135
8136
§137
gigg

022546

00S700

25662

104401

022550
022556
(022562
02256M
022570
2674
022676
022602
06
0226l
0226l4
022620
Qe226o4
022632
022634
022640

001025
104401
000760
012706
105737
001002
000137
000137
105737
001744
012706
000137
023727
001347
004737
000207

6S:

001100
003126

12%:

012176
013002
003126

148 ;
168:

001324

001100
013446
005212

i¥THIS S

§145

* #WHICH

% THE

S150

022642

104407

5162

022644

012700

(022650
(022654

006552

022662
022666
022670

062701
005303
001373

000020

5160
8161

022672
022676

012700
005001

005512

Sie4
£§1658

022704
022706

§185 022660 112011

Si66

022700
022702

022712

005720
001404

ggsa 1
0127

002772

168
169

022714
022720

012700
012704

8171
€172

022726
022730

005203
020327

€174

022736

§170 022724 112003
5173
€175

Si76

TYPE

,BUFFD

"ECHO BRD INPUT

' $QUES
i3
8STACK, SP
MDFLAG’
148
DFSTRT
ALLSYS
MDFLAG
X3
$STACK, SP
ASKSYS'
BUFFO, #'R
6%
PC, INITSS
pC

"TYPE <7> AND <CR>,<LF>
:G0 ASK AGARIN
'RE-INIT THE STACK
:SEE IF 200 START
:BR IF NOT
:RESTART PROGRAM - 200 STAR
*GO_ASK FOR SUBSYS’S AND onxvss AGAIN
:SEE IF 200 START
'BR IF YES, TO nsx AGAIN
'RE-INIT THE
S
:GO ASK FOR suasvs TO TEST AGAIN
!SEE IF R<CR> TYPED
'BR _IF NOT
SINITIALIZE S.S.
*RETURN

0557 g

oggwo

022740

020301

022742

00500

002403

INTBLD - INIT AL zs
nourxns

HE CYL NDE

ED WITH THE INITIAL PATTERN OF DRIVE NUMBERS

K LAYOUT FOR THE FIRST CURRENT 20NE. IT USES

TRRT§N$ 2 évs NUHBER EEET
STDLST,

iNTBLo SAVREG

006112
000020

5167

IF NULL INPUT

'BR IF NOT NULL

FOR THE FIRST COLUMN

nno

P INCREMENTS THESE DRIVE NUMBERS'ACROSS ?He TABLE FORHING ROWS.
' %ANY DRIVE WHICH IS NOT PRESENT, THE ENTRY IS SEt
=
!ilill»l»!lllllfll!lll*!lllllillll‘lillll!illlllllll!l*!illll*!l!li

012701
012703

Sie2
§163

:SEE

l!lillilllilillIll!illl!!llilll!lllllll!!ll}l!lllllllillil!l!l!

§146

6156
§157
§158
§189

TYPE
BR
MOV
7578
BNE
JMP
IMP
Ts18
BEQ
MOV
JMP
CMP
BNE
JSR
RTS

8%:

'&gTTL

§144

5153
5164

000122

SEQ 0102

157

BNE

021170

G142

5151

LO8

02-DEC-77_
11:48
PAGE 103
DMCART - DISMOUNT TEST CRRTRIDGE

0O0S212

5143

S147
5148
5149

30(1046)

Yg:

nov
MOV

MOVB

MOV
CLR

$STDLST, RO

;STRRTING ADRS OF STDLST

(RO)‘ (Rl)

:LORD A BYTE INTO TABLED

OTRBLED Ri

8DRVLST, RO
RI

TST
BEQ

(RO)+
g%

BLT

INC
CMP

000020

SAVE RO-RS

;STARTING ADRS OF TABLED
*SET COUNTER = 16

ADD
$16.,RI1
: INCREMENT TRBLED POINTER
DEC
R3
'DECR COUNTER
BNE
4
‘BR IF NOT oons YET
:GET INDEX OF FIRST ZERO ENTRY Ifi DRVLST INTO

6%:

006112
000017

: LOAD THE FIRST COLUMN OF TRBLED' rnon STDLST

R1
R1, #16.

START {
3 noag
or DRVLST
NIT

ses xr ENTRY =
BR IF YES

NER?H
ENT POINTER
SEE
IF DONE LOOKING YET

'BR IF NOT DONE
Y

- INCREMENT THE DRIVE NOS. TO FORM THE ROWS

§:
16%:

18%:

MOV
MOV

BLED RO
815

IN
IT TABLED POINTER
"INIT ROW ELEMENT COUNTER

INC
CMP

R3
R3,

' INCR ROW ELEMENT VALUE
:SEE IF ROW ELEMENT IS VALID

CLR

MOVB
BLT

208 :

CHP

BLT

(RO)L R3

20$

820

R3,R1

FFL

"INIT ROW ELEMENT VALUE
'BR_IF VALU
'RESET VALU
'SEE

VALUE

'BR IF VALUE OK

ACTUAL

DRIVES

CZR6QBO RKE DR CPT PROG MRCYLll
CZR6GB.P11
02-DEC-77 10:46

S177
S178
S179
S180

022744
022750
022722
0227

112720
000401

22%
248

110320
005304
001363

268
30%:

8377, (RO)+
248

ser INVALID ENTRY = 377
PROCEED

MOVB
DEC
BNE
CMP
8LO

R3, (RO)+
RY
188
RO, sTRBLED+256.
164

ssr VALUE IN TABLE
"DECR ROW ELEMENT COUNTER
:BR_IF _NOT DONE WITH ROW YET
>SEE IF DONE WITH TRBLE YET
BR IF NOT DONE YET

MoV

TRBLED RO

,INIT COLUMN POINTER

crea

5“2’'Rl

sss (F ELEMENT IS VALID

MOVB

$377, (RO)

DEC
BNE

R3
26%

MOV

#16.,R3’

ADD

RESREG
RTS

000207

3 a BRI

QBTTL

00006 0

; INIT COL. ELEMENT COUNTER
xnv CID ELEMENT = 377

$16. RO

INCREHE

! RESTORE RO-RS
'RETURN

000000 06 00

COLUMN POINTER

SEE IF ALL DONE YET
'BR_IF NOT ALL DONE YET

3000 000330606 06 0 3 3000

B0 3 M

ROTBLD - ROTATE TRBLED RIGHT 3 COLUMNS

; #THIS SUBROUTINE ROTATES ALL

R R

AR R

ELEMENTS OF TABLED RIGHT 3 COLUMNS,

;%S0 THAT THE DRIVE DATA WILL BE ROTATED SEVERAL SECTORS IN EACH’

"
oy

023104

OO0
F= Q»a—ohwfl—ggr—nun—ocxm—
Pt s Pt Pt pt s = ()

: #CURRENT ZONE.
023022

5220

MOVB
BR

SEG 0103

;SET INVALID ELEHENTS OF FIRST CbLUHN= 377

e mos
¢ 83
022776
023000
883008
0230
023012
023014
023016
023020

MO8

02-DEC-77
11:48
PAGE 104
INTBLD - INITIALIZE TRBLED

000377

e g °S°9ss
S187
S$188
$189
5190
S191
5192
S183
S194
Siss
51396
5197
S188
51399
S200
Seol

30(10486)

!!llllllll!llll!l}llll!l!l!lllll!llllllilllill!lilll*iiliiil{i{

ooesie
000015

RBTBLD: SAVREG
MOV

4s:
6%:

MOV

MOV
MOVB

MOVB

92
OTQSLED+ESB,RO PO*NT
o NDOSITRBLED

clé. RY

'SAVE LAST 3 ELEMENTS IN THIS ROW

-(RO)

;MOVE AN ELEMENT RIGHT 3 PLACES

-(RO). $TMP1
-(RO) .’ STMP13

-~ (R1)

DEC

MOVB
MOVB
MOVB

$TMP11,-(R1)
§TMP12, -(R1)
§TMP13’ -(R1)

CMP
1
RESREG

SINIT Rou ELEHENT COUNTER

-(Roi,zrnpxé

:DECR ROW ELEMENT COUNTER
:BR IF NOT OONE YET
:MOVE IN 3 SAVED ELEMENTS

RO, #TABLED
4s

:SEE IF DONE WITH TABLE YET
'BR _IF NOT DONE YET
'RESTORE RO-RS

:RETURN

lll*llllll*!ll*lllllll!illl!ll!!llll!!illllllllil!illlllllillil

"LBTTL

:¥THIS

T%INTO

WRTBLK - WRITE ONE CYLINDERg
ROUT%NE WRITES ALL
SU

THE

ORS FOR THE CURRENT DRIVE

CYLINDER BLOCK WHOSE S QRTING CYL NUMBER IS IN

‘%P, CYLN(RS) ON ENTRY. THE DARTA IS WRITTEN ON ALL SURFACES
!THE LOGICAL DRIVE NUMBER MUST BE IN LOGDRV ON ENTRY.
*IT CALLS WRTSEC TO ACTUALLY WRITE EACH 256-WORD SECTOR.
JEEEEREEEEEEREH IR RR R R

E R R R B AR RN AR AR A AR

AR R AR R AR AR

ER S

CZR6080 RK6E DR CPT PROG MACY1l
CZR6GB.P1
1L
0e2-DEC-77 10:46

5233

234
5235
5236
5237
5238

023106

023110
023114
023116
023122
023126

113700
006300
016003
012701
012704

3C(i046)

003154
006512
006112
000020

Se40 023134 123720 003154
5239

Se4l
Se4e
5243
5244
5248
5246
5247
Seq48
5248
5250
Se5l
6eSe
5253
6254
8255
S25b

023132

010100

023140
023142
023144
(023146
0221854
023160
(023164
023170
023176
023200
023204
0232i0
023212
023214
023216

001375
005300
160100
116065
105065
004737
105265
126527
003770
06270!
005265
(._>-0u
00134,
104410
000207

006572
00000S
025770
00000S
00000S

cMPB

000002

000020
000002

MOVB
ASL
MOV
MOV
MOV
MOV

BNE
DEC
suB
MovB
CLRB
JSR
INCB
CMPB
BLE
ROD
INC
DEC
BNE
RESREG
RTS

L.OGDRV, RO
RO
TABLEG(RO) ,R3
$TABLED,R1
31& RY

L0¢DRV.(R0)+

SEQ 0104

; SAVE RO-RS

GET LOGICAL DRIVE NO.
CONVERT IT TO DATA PRITERN INDEX
GET DATA PRTTERN WORD INTO R3
GET TABLED POINTER
INIT CYLINDER COUNTER

;SEE IF DRIVE LISTED HERE

63
BR IF NOT FOUND YET IN THIS ROW
RO
BR" UP BY | BYTE
R1,R0O
:COMPUTE ROW POSITION
SECLST(RO),P SECT(RS) -GET SECTOR NO. FROM ROW POSITION
P.TRCK(RS)
;SET TRACK
= 0
PC,WRTSEC
NRITE 256 WORDS AT THIS SECTOR
P.YRCK(RS)
INCR TRACK NO.
P.TRCK(RS), s
SEE IF ALL TRACKS DONE YET
8%
BR IF NOT DONE YET
#16. Rl
POINT TO START OF NEXT ROW
P.CYLN(RS)
INCR CYLINDER NO.
RY
DECREHENT CYLINDER COUNTER
4s
BR IF 16 CYLS NOT DONE YET
RESTORE RO-RS
PC
RETURN

$ 3 IR IIEIRI 00000 000 0000

OO 0003000000 000 0

AR RN AR

- NOT PRESENTLY RERDING WITH OFFSET

IR ERR

iCKSCOR - DECREMENT DRIVE SCORES ROUTINE
lTHIS SUBROUTINE CHECKS TO SEE IF THE PROGRAM IS CURRENTLY
lRERDING OVRWRT OR CCOMPAT DATAR WITH OFFSETS AND HRNDLING DATA CHECK
!ERRORS IF SO, THE SCORE FOR THE DRIVE WHICH WROTE THE
:#FRILING DATR 1S DECREMENTED.
lON ENTRY, THE BYTE LRBELED “TSTTYP" HARS THE FOLLOWING
!POSSIBLE VALUES :

5272
5273

023220
023222

104407
105737

023226

001474

6276
g277

023236

001470

5279
5280
5281
6282
5283
S284
5285

023240

023244
023252
023254
023256
023260
023264
023270

004737

;
L
;!
P

003143

62?75 023230 032737 000024 005424

S286
5287
5288

69:
8%:

5267

5278

SAVREG

000004

5260
gebl
5262
5263
5264
5265
5266

g274

WRTBLK:

4§

5259

5268
5263
€270
5271

NO8

02-DEC-77
11:48
PAGE 10S
WRTBLK - WRITE ONE CYLINDER BLUCK

023272
(023274
023276

122737
001002
00S0o0d
000431
013701
042701
006301
006301
006301
006301

034310

000003

001174
177760

TSTTYP = 0

84SCOR: SAVREG
TS78
BEQ

= ]
= 2
= 3

- PRESENTLY
- PRESENTLY
- PRESENTLY
D

TSTTYP

B8IT

20s

JSR

PC, GTPKAD

REARDING OVRWRT DATR WITH OFFSET
RERDING COMPART DARTR WITH OFFSET
READING SELF TEST DATA WITH OFFSET
O M
T T R T T P
e T R

;s SAVE RO-RS
SEE IF CURRENTLY TJESTING WITH OFFSET
BR TO EXI

NOT

$0CKERR!HVRCER, RECODE; SEE 1F A DCK OR HVRC ERR OCCURRED

BEQ
208
‘BR IF'NOT
;GET THE NO. OF THE DRIVE WHICH QROTE DRTR WHICH CRUSED DCK OR HVRC ERR

003143

4g:

CMPB
BNE
CLR
BR
MOV
BIC
ASL

AsL
ASL
ASL

03 TSTTYP
yg'
RY
108
$REGS,R1
817 750 R1
R1
R1
Rl
R1

,CO UTE PACK ADDRESS OF ERR

; SEE IF DOING SELF-TEST
BR IF NOT
SET ORIVE NO. = O
CONTI UE
GET CYL NO. OF ERROR
CLER HI CvL BITS
CONVERT T0 TRBLED INDEX FOR ROW
]

CZR6GBO RKE DR CPT PROG MACYI1
CZR62B.P11
02-DEC-77 10:46

5289

023300

062701

5230
6291
6292
5293
Se94

023304
023306
023314
023316
(023320

005000
123760
001405
005200
020027

529

023326

0434

5295

5297

5298

5239
S300
S301
S302
€303

S304
530S
3
6307
6308

S309
G310
5311
5312
6313
6314
6315
6316
S317
5318

023324
023330

023332
023334
023340
023342
023346

023352
023354
023360
023364
023366

023372
023400
023402
023406
023410
023414
023416
023420
023422

2770

30(1046)

006112

001200

ADD

006572

1427
012700
105737

001402
012700
105737
001410
062700

123727
001402
062700
060400
121037
00100!
105310
104410
000207

6%:

BLT

BR
8%:

007432
003156

10$:

007512
001176
000020

001176
000020

003157

12%:

000001

20%:

; COMPUTE POINTER TO TABLED ROW

:BR IF NOT YET

208

:SECTOR NOT LISTED - EXIT

BEQ
MOV
TSTB

208
SNSCORO, RO
OFSDIR

CMPB
BEQ
AOD
ADD
CMPB
BNE
DECB
RESREG
RTS

148

$TRBLED,R1

RO, R!

BEQ
MOV
TSTB
BEQ
ADD

SEQ 010S

RO
SINIT SECLST INDEX TO O
$REG?,SECLST(RO)' ;:SEE IF SECTOR IS LISTED IN SECLST
8s
é IF YES
RO
:INCR SECLST INDEX
RO, 816.
,-EE IF WHOLE LIST CHECKED YET

ADD

MOVB
CMPB

000377

2350

g32!

CLR
CMPB
BEG
INC
CMP

000020

060001

111104
122704

BOS

02-DEC-77
11:48
PAGE 106
WRTBLK - WRITE ONE CYLINDER BLOCK

:COMPUTE TRBLED POINTER TO FRILING DRIVE

(Ry),R4
8377 R4

12%
#PSCORQ, RO
s EG6
4§
oxs RO

SREGS, 81
148
#16..RO
RY RO
(RO, OFSCNT
208
(RO)
PC

;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
gR IF YES
OINT TO scones FOR TRACK 1

‘SEE IF
T
1
‘BR_IF ES
:POINT TO SCORES FOR TRACK 2
:COMPUTE _POINTER TO SCORE FOR DRIVE
:SEE IF THIS SCORE IS PERFECT SO FAR
'EXIT IF NOT
'DECREMENT SCORE FOR THIS DRIVE
RESTORE RO-RS
:RETURN

o 63 3 36 36 96 3 3 3 36 36 36 3 3 36 36 36 36 36 3¢ 36 3% 36 36 36 36 36 36 36 36 36 36 36 36 36 36 06 36 26 3 36 36 3 3 3 3 36 36 3 36 36 3¢ 3 3 36 3 2% 4 3 3 % % %

5322

"&8TTL

5324
5325
5326
6327
5328

: #CHARRCTERS AT THE K
TERHINQTED Y (CR> nno PLACES
;#THEM IN BUFFO, TERMINATED BYA NULL (0) BYTE
: #RUB-OUT AND (dU) FEARTURES ARE PROVIDED.
"¥IMMEDIATELY FOLLOWING THE :UBROUTINE CALL THREE SPECIAL
*¥RETURN RODRESSES MUST BELISTED: THEFIRSY RETURN IS

gggg

I}HE gunazn OF INPUT CHRRACTERS IN THE BUFFER IS RETURNED

6336

6323

RDCHRS - READ A STRING OF KBD INPUT CHARS

; #THIS SUBROUTINE RERDS

£329
£330
5331
gggg

A _STRING OF gp TO EIGHTY

INPUT

T#TAKEN IF (1C) IS TYPED, THE SECONO IS TQKEN xr (¢2) IS
:#TYPED, AND THE THIRD IS TAKEN IF (#U) OR INVALID INPUT IS TYPED.
‘#IF (#8) IS TYPED, THE SOFTWARE SWITCH REGISTER IS OPENED
iEgRngglFICRTION IF SELECTED, AND THEN THE (1G) RETURN
- 3%

5337

6339
gg:?

%
;:

S342

:; I 22 1222222222222

5338

3
5344

secnusz

rnx%xnc DRIVE IS NOT BEINGTESTED

023424

CALL

RDCHRS:

JSR

PC, RDCHRS

<CONTROL-C’RETURN ADDRESS>

<CONTROL-Z RETURN ADDRESS>
<EON;ROLU OR ERROR RETURN ADDRESS)>

2222222X2222222222X2 2222222322222

222

CZR6@BO Rk®& DR CPT PROG MACY11
CZR6G8. P11
0e-DEC-77 10:46

S34S
S346

Q23424
023426

30(1046)

cOoS

02-DEC-77
11:48_
PRGE 107
ROCHRS - READ A STRING OF KBD INPUT CHARS

010146
010246

000003

gleloe
000004

000004

; SAVE R

}Ni¥iffE KUBRBGTE TNE TR T or

R2 -(SP)

846482

000004

#003,R2
4s

3s:

Q4(SP),4(SP)

000004

TYPE

MOV

BR
. CHECK FOR

7%:

e
ADD

(tU)

CMPB

BNE
TYPE

ggo

CHECK FOR

000007

(12)

CMPB

BR
.CHECK FOR

00002S

glzliel
000004

;CHECK FOR (1C)
CMPB
BNE

4g:

000032

122702

R1,-(SP)

L
:RERD A CHARACTER
ROCHR
éS:
MOVB
(SP,+,R2

17282

004737
000764

MOV

MoV

geda38 882887

(1G)

MPB

4s;

012137
oos44Y

118:

cMPB

023634
023640
023644

005037
110237
104401

005444
DOSH4Y4
00SH4Y

TST
BEQ

EYPE

CNTRLG

(DELETE)

$177 R2

118

R1
BKSLSH

$CRACH

TYPED

;SEE _IF

($2)

TYPED

;SEE _IF (fU)

TYPED

iBR IF NOT (12)
E
SKS OLS PC POINT TO NEXT RETURN RDR.
BR TO TRAKE (%2Z) EXIT

0 TRAKE

SCRACH

EXIT

TYPED

{TAKE (tU) RETURN
:SEE_IF RUB our

(DEL)

TYPED

'BR_IF NOT RUS-OUT
'CHECK THE CHQRQCTER COUNT
=
:BR IF COUNT
!CHECK THE RUB-OUT INDICATOR
'BR_IF WE HRD A PREVIOUS RUB-OUT
:SET RUB-OUT INDICATOR
rvp

BACK-SLASH (\)

USE scnntcu uoao FOR TEMP. BUFFER

cnensn COUN
LAST cunn

INTO BUFFER

tcno
CHRRACTER TO BE DELETED
GO READ ANOTHER CHARACTER
'CHECK THE RUB-OUT INDICATOR

R1
168

BKSLSH

CHECK FOR CRRRIRGE RETURN
CcMPB
#015,R2
BEG
19

;s HANDLE gogsraLE 01GIT

SCRACH

R2,

($G)

(tU)

iBR IF NOT (1G)
JECHO (1G)
:OPEN SOFTWARE SWITCH REG. FOR CHANGE

BUFFD(RO),SCRQCH

{es:

MOVB
TYPE

(¢C)

BR IF NOT (tC)
SECHO_($C)
iPUTY RETURN ADDRESS ON STACK
!BR TO TAKE EXIT

;SEE_IF

DEC

;SEE _IF

INTO R2

#007,R2

TST

CLR

HRRQCT?R

bq 4(SP)

148
RO

NC
YPE

G T CHR ACTER

‘BR IF NOT (tu)
JECHO (tU
HQK§ OLD PC POINT TO NEXT RETURN RDDR.

BNE
TST

TYPE

012137
00001S

8025, R2

8%
CNTRLU

bg GTSWRG

MOVB

005444

148:

122702
001426

NT
aS 55)

éER

BNE

023626
023632

0032 R2

BEQ

005001

248

.CHECK FOR RUB-OUT

000177

g0sele
005444

CNTRLC

BNE

TYPE

0l121es
021136

SEQ 0106

SCRACH

, SERACH

'BR_IF xnoxcnron IS NOT SET
*CLEAR THE RUB-OUT INDICATOR
"TYPE A BACK-SLASH
; SEE_IF

<CR>

iBR IF <CR>

TYPED

;USE SCRATCH WORD FOR TEMP.

BUFFER

'GET THIS CHARACTER INTO BUFFER
'ECHO THE CHARACTER TYPED

D09

so 0 RK& DR CPT PR

nacvxx 30(1048)
O
cPRGE
02-DEC-99
SHQE
- Rsné 1:48
A gTRING
OF 108KBD INPUT CHARS

6 P11
S401

023553

110260

005212

ngva

§§§§§s §g3§l§
000120
1264

3n$
BNE

023664
8532

104*01

1325

ggog

001324

TYPE

oos2le

uinnnnnnnn
LfLfrLLrLLEk
PUMN) = s e e s ot e
~OQJouONoTNLW

853;8% 688q8§
|95
853714 1927
886888 005212

023722

023730
023732
023734

062766

012602
012601
000207

000006

00000OM

24%:

080.,R0

$CRLF

MOV

58 PgFFO(Ro)

?59
MOV

72
58
BUFFO(RO)

MOV
MOV
RTS

(SP)+,R2
(SP)+.RI
PC

}igs

sE,BUFFO(RO)

RDD

' g Ulsg

86 4(SP)

SEQ

PHTRCHQS?CEEERAE}ERB“FFER

é
E §T00 nnnvM CHAR38¥ER§ TYPED
:BR IF NOT TOO
(TYP

R> AN

>
«
7))
YP
$
IfiPUTcg
Tngg ERROR ExtT FROM RDCHRS

(PUT Tss hn*xnc NULL INTO BUFFER
[4

SFIX UP
RETURN ADDRESS
'RESTORE R2
*RESTORE RI
'SUBROUTINE EXIT

; o 2636363606 36 3 36 36 36 36 35 3 36 3 3 3 3 3 3 3 3 3 3 2% 3 3 3 3 3 % 3 3 I W 3 I 2 3 I

'45TTL

:¥THIS

023740

104407

004737

16501

012704
010446
362783

006101

101

024010

006101

024014
40le
024020

006101
006101
010100

02:033

112083

4012

024022
024026

021170

SUBROUTINE

BAVSER: SAVREG
JSR

os4

TYPES

000003

105014
004737

024054

000207

4046
024052

104401
104410

SER.

NO.

XXX*

(IN DECIMAL),

4s:

177760
000060

CLEAR S.S,

AND PRRAMETERS

#$0CTVL ,R%
RY, - (SP)
#3.R3

ROL

11(RS),R1

IGET “A”

STATUS evrs 11

'GET ADDR OF CHAR BUFFER
srons IT ON srncx FOR $SUPRS
} f 8 8?
NITIALIZE

BIT POSITIONS

;GET NEXT 4 BITS

ROL
ROL
MOV

R1
R1
R1,RO

sGET
A WORKING COPY

ggge

so,tnq)+

Pugnnagg% ofigxr 53;9 CHAR BUFFER

CLRB
JSR

(RY)
Pg Sogsupas

TYPE
RESREG

RTS

%177760,R0
%’0,RO

*CLEAR ALL BUT LOW 4 BITS
:CONVERT A DIGIT TO ASCII

:BRCTEROT 5 eRaRe VET

INSERT NULL TERMINATOR
STYP
ve SER. NUMBER
PTYP
> AND <L
RESTORE RO-RS
RETURN

SRR AR EETERN R E RN

SBTTL

K% % ¥ % ¥

MOV
MOV
MOV

BIC
BIS

043370
001325

NITSS

s SAVE RO-RS

WITH

oRbSTnT P. cnnocnsx SET READ STATUS COMMAND
VCAL
Rsho STATUS OF THIS DRIVE
h
v
TYPE
“DRIVETM
E
TYP
SER. NO.

ROL

85483 883383

024040
8 4o42

“DRIVE

MOVB
JSR
TYPE
TYPE

MOV

043156

006101

042700
052700

W WX K% WX K E XK EE R W®E %

< 303 30 3 336 3 3 36 3 3 3 36 36 3 3 36 36 36 36 3¢ 9 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I I W 3 W 3 % K% % WK

37
112765 000141 000001
023752 004737 030146
3?77
184401 011731
6 Y401
866747
023772
023776
4

WI I A

DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

: #ZEROS SUPPRESSED.

023736

PflT T Rn NATIN NutL INTO BUFFER

F R AR

CRTSER - TYPE CARTRIDGE SERIAL NUMBER

; #THIS SUBROUTINE

TYPES "CRART.

SER.

NO.

IR AR R R AR LR R

XXXXXXXXXXX"

(IN OCTAL),

LEADING

010 ?

CZR6QBO RKE DR CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46

30(1046)

5457

5458

6469

004737

024074

001402

S46N
6465
S46b
€467
468
469
S470

024102
024110
024116
024124
024132
024140
024144

112765
013765
112766
012766
012765
004737
104401

E472
6473

024154
024160

012746
004737

024170
024174

104401
000207

E460
€461

024062
024076

6463

024076

E471

€474

6475
g:;g

024150
024164

021170

142765
105737

000020
003134

105265

000004

000121
024404
000002
053342
1772776
030146
011740

104401

011747

004737

043370

000007

024176
024202

104401
1044~1

024206

004737

S487

024220

005700

5488
5489
£490

g:gé
€433
494
495
€436

E497
S438
499
§500

X222 22X2222222222X22X2222 2222222222222

000001
000002
00000S
000010
000012

4S8:

113

:BR IF 22 SECTORS

INCB

P.SECT(RS)

BRWBUF , - (SP)
PC, 9830820

TYPE
RTS

SCRLF
pC

SERNM

PC’ 388SUPRS

0o42le
024214
024216

024222
(24224
(024230

024176
024176
024176

001005
104401
104401

024234

000760

(024236
024244
QOovede
024252

022737
001025
105037
012737

(024260
024266
Q024274
024302

012737
012737
012737
012737

001325
010025

GETTYP:

023424

, SCRLF
ASKTYP

JSR

PC, RDCHRS

TS7T

GETTYP
GETTYP
GETTYP

:TYPE "SER.

NO.

:TYPE CART.

SERIAL NO.

:GET POINTER FOR $DB20
: CONVERT BINARY TO OCTAL

STYPE <(CR> AND <LF>
'RETURN

$'6,BUFFO
s
TYPFMT
#632,LSTCYL

SEE IF & TYPED
‘BR IF NG
:SETUP FOR RK(b

003133

MOV
RTS
CMP
BNE
BIS8

840, HOLDS
PC
' 7,BUFFO
1
$8.CDT, TYPFMT

000066

005212

003133
000632

024404

000025
010025
000100
000060

024406
024410
024412
024414
00S212

2%:

MOV
MOV
MOV
MOV

002025

024406

MOV

#2025 HOLD1

(024360

012737

000200

024412

MOV

$200, HOLD3

024352
024366
024374
024402

012737

012025

012737
012737
000207

000160
000100

024404

024410
024414
024416

3%:

MOV

MOV
MOV
MOV
RTS

INPUT

!ASK AGAIN

825, HOLD1
810025 HOLD2
8100, HOLD3
860, HOLDY

012737

001456

024416

SETTYP

024344

000004

012737

:SEE IF CHAR TYPED

CMP
BNE
CLRB
MOV

6507

024336

:CONT-C RETURN
:CONT-Z RET
:CONT-U REY
:BR IF NO
IECHO BRD
*TYPE <?)

18:

BNE
TYPE
TYPE

:ASK DRIVE TYPE

'RERD INPUT STRING

23
BUFFO
$QUES

005212
001324

000040

TYPE
TYPE

000067

SSI0
5511
SSiz

MOV
JSR

012737
000207
882737
1336
152737

€609

RERD SECTOR

#RDOATAR,P.CMND(RS) :SET RERD COMMAND
LSTCYL,P.CYLN(RS) ;8ET CYL = 632(0CT)/14S6(0CT)
#LSTTRK,P. TRCK(RS)’:SET TRACK = 2
8RIWBUF,P.BALO(RS) ;SET RERD BUFFER ADDRESS
8-2,P.WC(RS)
;SET WORD COUNT TO READ 2 WORDS
PC, BRVCAL
:READ SERIAL NO. IN BSF
,CART
STYPE ~ “CART.”

(024310
024316
0 ”SSE
(024
024330

6508

:IF 20 SECTORS,

MOVB
MOV
MOVB
MOV
MOV
JSR
TYPE

6501
5502
503
E504
6505

5506

T T

8B.CFMT,P.CSIH(RS)
.SET 22 SECTOR FORMAT
FORMAT
:CHECK THE RCTURL FORMAT

JSR

001325

.CLERR S.S. RND PRARAMETERS

BICB
1578

TYPE

053342
043054

PC, INITSS

IN OCTAL

. THIS ROUTINE ASKS THE OPERATOR FOR THE DRIVE TYOPE AND ALL FUTURE
:TESTS WILL BE PERFORMED ASSUMING ALL THE DRIVES ARE OF THAT TYPE

6483

S4g4
€485
S486

Y222

LRTSER: JSR

BEQ

g478
g:gg
481
€482

SEQ 0108

- %WITH LEADING ZEROS SUPPRESSED.

Q24056

462

EOS

02-DEC-77
11:48
PAGE 1 09
CRTSER - TYPE CARTRIDGE SERIAL NUMBER

#1456, (STCYL

812025, HOLD2
160, HOLDY
%100, HOLDS
PC

:SEE_IF ? TYPED
'BR_IF NO
:SETUP FOR RKO?

024404
024406
024410
Oe44]e
Q24414
024416

30(10486)

FOS

02-DEC-77
11:48_
PAGE 110
CRTSER - TYPE CARTRIDGE SERIAL NUMBER
LSTCYL:
HOLDLl:
HOLD2:
HOLD3:

000000
000000
000000
000000
00000C
000000

HOLDY:
HOLDS:

O
O
O
O

QBTTL

SEQ 0109

:CYL DIF

O
O

S 2 SRR

CONPQT START CYL
‘HALF CYL DIF

RN RN R R R

STALL - STRLL FOR ST UNIT STALL TIMES

; #IF SNR BIT 8 =

THIS SUBROUTINE STALLS FOR ST

AR A RRRRR RN

STALL

TIMES,

; #WHEREA STALL TIfiE= 40 US, FOR RN "“AVERAGE" CPU. IF BIT 8
lIS EQUAL TO I, A RANDOM STALL IS ARPPLIED.
CALL -

JSR

PC,STALL

l!l!lll!!lill!*ll!llilll!llll!&lllillllllllillllllllllllillii*l

STALL:

024420
024422
Be442H
De4u4 32
024434

000400

8CM3

D447y
024476

p24s0Q

154506

g4eese
0423se2

00000
O-—-0000-

it n
vy wn
PUNU N — s bt pe be pe P
n—oO0WwE NN L W

CZR6QBO RK6 DR CPT PROG MACY11l
CZREGB. PL1
02-DEC-77 10:46

MOV

RO, -(SP)

:SAVE RO

BIT
BEQ
JSR
MOV

ceiroa JSWR
18
PC, SRAND
SLbnun RO

SAPPLY RANDOM STALL ?
:BR IF NOT RANDOM
:GENERATE PSEUDO-RANDOM NUMBER
'GET IT INTO RO

ASR

MOV

ASR

005432

1$:

000016

2%:
4%

6S:

MOY
BEQ
MOV
DEC
BNE
DEC
BNE
MOV
MOV
RTS

Rl -(5P)

*SCALE IT DCWN

;GO STALL WITH RANDOM NO.

STALLS,RO
A;
£i4.,RI
Rl
4§
RO
2s
(5P)+,R1
(5P)+ RO
PC

5360606060606 06 06 06 6 6 0 0 066 200

:SAVE Rl

'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
P BR
Rssrons Rl
:RESTORE RO
: RETURN
O IR
R RN
AR RN

i LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF THE DARTAR PATTERN
;#IN TABLEB INTO ALL 256(DEC) WORDS OF THE DATAR BUFFER (RWBUF).
024502

!lllll§ll!l!ll!!llli{ililillll!lllllillili*lll!illil*lllll{!iil

05334¢
005766
000020
054342

024530

(BDSEC: SAVREG

2%:
4§

MOV
MOV

MOV
MOV
CMP
BHIS
DEC

#RWBUF ,R1
#TRBLEB, RO

816. R3
(ROYY (R1)+
R1, RWBUF+512.
9’
R3

AVE RO-RS

cer ADRS OF R/W BUF INTO Rl
:GET _DATA PATTERN ADDRESS

PINIT PGTTERN COUNTER
'MOVE
A PATTERN WORD
:SEE IF DONE YET
:BR IF DONE
:DECREMENT PATTERN COUNTER

CZRbQBO RKE DR CPT PROG MACY!l
CZR6QB.P11
02-DEC-77 10:46

6569

S570
6671
6572

6573
SS74
§57S
5576

0e4s3e2

024534
024836
024540

30(1046)

GO9g

02-DEC-77
11:48
PAGE 111!
STALL - STALL FOR ST UNIT STAL.

001372

BNE

000765
104410
000207

99 :

225

B8R
RESREG
RTS

SEQ 0110

TIMES

;BR IF NOT RESTRRTING PRTTERN YET

BR TO RESTART PATTERN
RESTORE RO-RS
RE URN

5579

;-ll*lllll!lillllllill!llilllllllllllllilllllilllll!lll!lliiillll

§c8l

; #®THIS SUBROUTINE

5580

"88TTL

5c82
5583

6589
6530

024542
024544

104407
(013746

024550
024552
024554
024560
(24564
024572
024576
024602
024606
024612

0D0S416
005046
116616
00S066
116566
066616
005066
012700
105737
00140e

ce02
S603
5604
5605

024620
0Oc4ee2
024624
024626

020016
101004
160016
005266

5607
S608
5609
S610
5611

024634
024640
024642
024646
024652

112637
005046
116516
066616
005066

S613
5614
S615
5616
5617
5618
5619
5620
S22l

024662
(024664
024670
024674
024676
024702
024706
0Qe247ie
024714

101005
162716
00Se66
(000770
112637
066516
011637
005726
104410

S606

Sble

S6ee

IP CYLN(RS), P.TRCK(RS), AND P.SECT(RS) TO COMPUTE THE CORRESPONDING
lPRCK ADDRESS, WHICH IS RETURNED IN FINCYL, FINTRK, AND FINSEC.
iTHE SUBROUTIRE 1S USED TO DETERMINE THE PACK RDDRESS OF A SOF TWARE
*DRTR MISCOMPRARE.

5591
5592
6593
6594
G595
56896
§597
5538
5599
S600
Se0l

IS USED AFTEN A DATA TRANSFER HAS COMPLETED,

*COMPUTE THE FINAL PACK ADDRESS AT TERMINATION. THE 2°'S COMP. OF THE
lNORD NO. AT THE POINT OF INTEREST 1S PARSSED IN LASTWC. THIS IS USED WITH

ge84
6e8s
5586
5587
5588

FINRDR - COMPUTE FINAL PACK RDDRESS

024614

024632

024656

024716

012700

000772

122716

000207

o 363636 36 36 36 36 36 36 36 36 36 36 96 36 3 36 3 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 3 36 36 36 96 34 36 36 3 36 06 36 36 3 % 36 3 3 3 3 36 36 3 3 % % 3 % %

FiNADR: SAVREG
MOV

00S474
000003
000002
000004
000002
000002
000026
003134
000024

189%:
000002

19%:

000002
005473
00000S
000002
000002

000003

20%:

cl%:

000003
000002
005472
000002
008470

ces:

NEG
CLR
MOV8
CLR
MOVB
RADD
CLR
MOV
1ST8B
BEQ

; SAVE RO-RS
LRSTNC -(SP)
STORE WORD COUNT
(SP
HRKE IT POSITIVE
-(SP)
MRKE ROOM ON STACK
3(SP), (SP)
STORE NO. OF SECTORS TRANSFERRED
2(SP)
CLERR LOCATION ON STACK
P.SECT( RS),E(SP) STORE STRARTING SECTOR
2(SP), (SP)
bETERflINE FINARL SECTOR RDDRESS
2(SP)
CLERR NO. OF TRACKS TRANSFERRED
s#c2.,R0O
SE FOR 22 SECTORS
FORMAT
DETERHINE THE FORMART
199
,BR IF 22 SECTORS

CMP
BHI
sus
INC

RO, (5P)
20$
RO, (SP)
2(5P)

;CHECK FOR SFCTOR
ERFLOW
;
CHECK IF SECTOR CORRECT
;DEOREHENT SECTOR COUNT BY 20 OR g2
s INCREMENT TRACKS TRANSFERR

MOVB
CLR
MOVB
ADD
CLR

(SP)+,FINSEC
-(SP)
P.TRCK(RS),
(SP)
2(5P), (SP)
2(SP)

BHI
SuB
INC
B8R
MOVB
ADD
MOV
TST
RESREG

22¢
#3, (SP)
2.5P)
2ls
(SP)+,FINTRK
P.CYLN(RS), (SP)
(5P) FINCYL
(sp)d

;STORE FINAL SECTOR
;MAKE ROOM FOR TRRCKS TRANSFERRED
;STORE STRARTING
;DETERMINE FINAL TRRCK RDDRESS
;CLEAR FINAL CYLIN
;CHECK FOR TRACK OVERFLOW

MOV

B8R

cMPB

RTS

#20.,R0

199

#3,

(SP)

;SET FOR 20 SECTOR

;CHECK FOR SECTOR OVERFLOMW

NO CHECK FINAL TRACK
DEOREMENT TRRCK COUNT BY 3
INCR CYL COUN
CHECK FOR TRRCK OVERFLOW
STORE FINRL TRACk
CRLCULRTE FINAL CYLINDER
STO € FINAL CYLINDER
CLERN OFF STACK
,RESTORE RO-RS

:RETURN

CZR6ABO RK6 DR CPT PROG MACY1l 3011046)

CZRBGB.P11

02-DEC-77 10:46

2887
ees§

IDENTIFIED BY THE NG. OF THE BIT SET IN RL ON
P XOF THE PATTERN
ARE LOADED INTO THE BUFFER.

2633
2034

{SENTRY,

§*‘l"l*‘ill‘l‘lll’*l‘l'l**‘ll’!*I‘I"l*i’l!i’****l**l"lil*f!f’*lll***lil’!*lll

gggg

024720

0p47o2
Qp47o6
004732
054739
0c4740
094744
004750
024752
024759
0o4760
024762
0247649
004766
024770

2685
2623
2684
2655

054778
054779
024776
025000

2657
2c58
2629
2660
566l
2662
2e63
5664
2665
2066
2667
2668

025006
QoS0i2
095016
025020
008022
006024
005026
005030
005032
005034
025036
055040

2069

2670
8671
2e72

C673

005002

052042

104407

013702
005737
001007
012700
0127496
015701
000422
00S000
932701
DO1003
005200
006201
000772
006300
006300
006300
006300
006300

060700

012796
013701
010003
011604
012321
005302
001403
005304
001373
000770
005726
109410

005466

005446

LODBUF: SAVREG

005566
00ODH00
053342

00000

3§

005566

000020
005504

MOV
TS8T
BNE
MOV
MOV
MOV
BR
CLR
BI7
BNE
INC
ASK
BR
ASL

AaL
oL
RaL
AaL

ADD

308:

34s:

44$:

000207

MOV
MOV
MOV
MOV
MOV
DEC
BEG
DEC
BNE
BR
TST
RESREG
RTS

. SAVE RO-RS

WDSXFR, R2
PATRN
33
$PATOO, RO
8256 .2 (SP)
SRABOE, R1
308
RO
$81TO0,R1
6%
RO
RI
4§
RO

'GET NO. OF WORDS
'EEE IF QUICK VERIFY DATA TEST DESIRED
'BR IF NOT QUICK VERIFY
{SET DATA PATTERN STARTING ADDRESS
'2E7 PATTERN WORD GOUNT
‘267 BUFFER ADDRESS
'
PROCEED
'INIT PATTERN NUMBER
'SEE IF THIS BIT IS SET
'BR IF THIS BIT IS SET
P INCREMENT EXAMINE
PATTERN NEXT
NO. BIT
'SWIFT T0
'BR TO CHECK NEXT BIT
'MULTIPLY PATTERN NO. BY 32.DEC)

$PATOO, RO

.GET ADDRESS OF DESIRED PATTERN

RO
RO
RO
RO

sle. “tsp)
A A1
RO RS
(SP) R4
(Ra)i (R1)+

Ras

RY
348
308
(SP)+
PC

'SET PATTERN WORD GOUNT
'2ET BUFFER ADDRESS
i%ET A COPY OF PATTERN ADDRESS
'INIT PATTERN WORD COUNT
'L0AD A DATA WORD INTO BUFFER
' BECREMENT WORD COUNTER
'BR IF ALL DONE
' DECREMENT PATTERN_WORD COUNT
‘BR IF NOT DONE WITH PATTERN YET
'BR TO REPERT THE PATTERN
'POP THE STACK
'RESTORE RO-RS
} RETURN

**l‘ll’l********‘l’l"l*‘l"l"l*‘l****i‘***“*!**‘!***l*******!l********l’*ll

CMPBUF - SOFTWARE COMPARE DATA

5674

'48TTL

5678

' ¥00-15 (QUICK VERIFY_DEFALLT bnrnTEST

267
2676
2677

679

£&80

SEQ 0111

¢PARAMETER PATRN = o oM ENTRY THE DRTA WHICH 1S R OADED 15 conpnxsso
'XOF ALL THE PRTTERNS 00-15 (QUICK VERIFY DEFAULT DATA TEST
O, THE NO. OF WORDS IN THE WORD WDSXFR
'¥IF PATRN IS NOT

8632

2626

PAGE 112

;TT
OBeoRne
EERER (POINT DT BYT
¥ THARL AHBRRRAISS
h?@fl¢e gsgo/“ngz
BEARNTATE ERTQ
REAEATINGEDatROBAT

5630
2631

2638
Sp39
Se40
2e41
SE42
Se4S
2644
Se4S
Sede
2647
3648
2643
2650
2621

11:48

FINADR - COMPUTE FINAL PACK ADDRESS

*}‘l’l'*l’l’i*.‘I‘fl‘ll*"!"i‘l*'il!l"ll’**’l’i!’.‘ll’ll"l’*l!*l’!l’!l**li*{l

égSé

8637

02-DEC-?7

HOS

:3THIS SUBROUTINE PERFORMS A SOF TWARE COMPARE OF THE R/W DATA BUFFER (POINTED
'%T0 BY PMA AND PMA+2) TO THE APPROPRIATE REPEATING DATA PATTERN. IF
| xPARANETER PATRN = O ON ENTRY, THE DATA 1S COMPRISED OF ALL THE PATTERNS

‘¥IF PATRN ISNOT O, THE
NO. OF THE BIT 'S6T IN RL ON ENTRY IDENTIFIES THE

: #*REPEATING DATA PQ?TERN TO COMPARE AGRINST.

CZRBAEBO RKe& DR _CPT PROG MACYLL
CZRbGB. Pll
0e-DEC-77 10:46

30(1046)

109

0e-DEC-77
11:48
PRAGE 113
c MPBUF - SOFTWARE COMPRRE DATA

SEG 0112

(22222232222
SZSS2 222222223222 223 3222 24

%Ugmmm*—t—
fu IND:O?%

000040

0S1665S
053234

LPBUF : snvgsc

;RESTORE ERROR MSG PARAMS

SCRACH
PC, REPSUP

; CLEAR COMPRRE ERROR COUNT
:STORE _PREV CMND FOR POSS. PRIN
:SEE_IF THIS IS QUICK VERIFY DEFRULT DATA TEST
iBR_IF NOT
iGET DATR_PARTTERN STQRTING ADDR
iSET PATTERN WORD COUNT
iSET BUFFER RDDRESS

87 OF25+2
WDSXFR, R2

03lae4
00S446

PAtRN

005566
000400
053342

#256. , - (SP)
sRWBUF, R1

3s
#PATOO0, RO

39:
ys:

00oo00!

CLR
BIT

308

#8ITO,RI1

001202
024542

—

OOVOmNCN LW—OWV

wn nntnninninnnnanni
~ NN NNNNNNNNNNNYN
n m.—...p_._;_.p.-...;—._._

30%:

(R3)l,(R1)+

348

025214

053234
00l20e
00s474

319%:

. COMMON

3cs;

3
40
M

DH701+38.
85, DF25+2

ERkon HANDLER

uonFR SREG10
EGID

S$REG10’ LASTIWC
PC, FINADR
FINCYL,RO

005470
005472
00S473
030042
001000

FINTRK RI1
FINSEC R2
PC, BOSRCK
0gs4ey

$BRDSEC, RECODE

oo1004

: PROCEED
SINIT PATTERN NO.
:SEE_IF_THIS BIT IS SET

;BR IF THIS BIT IS SET
; INCREMENT PATTERN NUMBER

127777

001174

000001

153604

:PATTERN WORD COUN
iSET BUFFER RDORES
;GET_COPY_OF PATTERN ADDRESS
: INIT PATTERN WORD COUNT
:COMPARE DATR WORD TO PATTIRN WORC

iBR IF COMPARE ERROR
;JUMP_IF DATR COMPARES OK

:ADJUST DATA HERDER FOR MSG
;ADJUST ERROR DATA WORD COUNT
;GET WORD NO.

;GET 2°S COMP OF WORD NO.

iCOMPUTE ACTURL PACK ADRS
: SAVE RO-RS
(GET CYL
{GET TRACK
{GET SECTOR
;SEE_IF THIS SECTOR LISTED BARD
;RESTORE RO-RS
;BR_IF LISTED- DON'T REPORT ERROR

:CHECK THE ERRORCOUN
iBR_IF THIS IS NOT FIRST ERROR
:TYPE HEADING FOR ERROR MSG
JINIT CYL NO.

005444

025334

OF WORDS

;GET _RDDRESS OF DESIRED PATTERN

005566
000020
005504

025206

;SET NO.

'SHIFT TO EXAMINE NEXT BIT
iBR TO CHECK NEXT BIT
{MULTIPLY PATTERN NO. BY 32(DEC)

6%:

025536
0S166S
00000s

; SAVE RO-RS

%40, DH7C1+38.

#BITC, ISWR
38

; INCREMENT THE ERROR COUNT

{SEE_IF _ALL ERRORS SHOULD BE REPORTED
:BR TO REPORT ALL ERRORS

cznsaeo RK& DR CPT PROG MACY1l

SC P11

5737

6738

€733

025336

025344
(25346

02-DEC-77 10:46

30(1046)

022737

000012

005444

023737

001174

00S470

002504

5740
5741
S742
743
G744
5745
€746
S747

025354
025356
025364
025366
(025374
025376
025404
(025412

001010
653737
1004
123737
001412
013737
(13737
113737

001176

00S472

001200

005473

005470
005472
005473

001174
001176
001200

5749
6750
5751
6762

(25422
025426
025434
028442

005437
016337
815137
013737

001202
177776
177776
001202

028472

005537

5748

025420

6753
6754
G755
5756

0cS450
(025454
025460
025464

5768

025476

767

5759
6760
§761
6762

104115

005446

6770

025546

000137

025166

S§771
§772
§773
65774
g;gg

025552
025556

025556
025560
025562

44§

001013

001002
000137

153412
50$:
408$:

S3%:
54§

005726
104410
000207

X ¥

10(DEC)

ERRORS YET

$REGLO
-2(R3),$REGI1
-2(R1).8REG12
SREGI0,SREGIY

:GET WORD NO.
:GET GOOD onrn
:GET BAD DAT
:COMPUTE PHYSICQL ADDRESS

$REGS, FINCYL

115

SREG13
SREG1Y
SREG13
PMA, SREG1Y

:BR IF ERROR LIMIT EXCEEDED
:SEE IF DIFFERENT CYL

: TYPE NEW PACK ADDRESS

SREG]3

PMA+2, SREG13

)

MOV
suB
ERROR
BIT

R1,SREGLS
82, SREGIS
63
#8176, ISWR

TST
BEQ
DEC
BEQ
DEC

PATRN
40$
R2
T
RY

:SEE IF DEFRULT DRTR TEST
:BR IF YES
:DECREMENT WORD COUNTER
‘BR IF ALL DONE
DECREMENT PATTERN WORD COUNT

JMP

30%

JunP TO REPEART THE PATTERN

(SP)+

:POP THE STRCK
:RESTORE RO-RS
*RETURN

BNE

025172

NEG
MOV
MOV
MOV

ERROR

ROC

001214

:SEE

'BR_IF YES
'SEE IF DIFFERENT TRACK
IBR IF YES
'SEE IF DIFFERENT SECTOR
:BR IF SAME PACK ADDRESS
{SET NEW PACK ADRS FOR PRINTOUT

RDD

005737
001400
005302
001406
Q05304

G25544

42%:

#10.,SCRACH

429
$REGH, FINTRK
428
snsc7 F INSEC
44§
FINCYL, SREGS
FINTRK. SREGE
FINSEC, SREG?

CMP

0012:0

025530
025534
025536
02554N
07253542

SEQ 0113

BNE
CMPB
BNE
CMPB
BEQ
MOV
MOVB
MOVB

005SS06

5764
€765
6766
5767
€768
5768

38%:

063737

000100

JO9

114

54§

001212

001214
000002

025526

CMP

CLR
ROL
ROL
ADD

010137
162737
104063
032777

PAGE

BLY

001210
001212
001210
005504

001210

11:48

CMPBUF - SOF TWARE COMPARE DARTA

005037
006137
006137
063737

(025504
025510
025516
025520

S763

001204
001206
001212

02-DEC-77

JMP

TST
RESREG
RTS

54§

53%

:GET VIRT. RDRS FOR PRINTGOUT
: TYPE GOOD AND BAD DATA, MEM. ADRS.
,sss IF JUST 1 ERROR SHOULD BE REPORTED

‘BR IF JUST

34§

1 ERROR SHOULD BE REPORTED

IF NOT DONE WITH PATTERN YET

5777
5778
§779

; X

5781

;#IF

5784

i#IALIZED. IF THERE IS NO INPUT, OR INPUT OTHER THAN (tC) OR (12),

5780

6782
5783

WAS TYPED,

THE SUBROUTINE RETURNS TO DRVIST.

(12)

:¥NO ACTION IS TAKEN

8789
790

025564
025572

122737
001075

§792

025600

001472

6791

($C)

' ¥JRS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER CASE,
‘#Q RESET INSTRUCTION IS EXECUTED, AND THE STACK 1S RE-INIT

§785

£786
5787
5788

1Y 222222222222222222222z222:2222322X22
2222222222222 2XX22 2222

;i CTLOUT - THIS suanourxne CHECKS FOR ($C) OR ($2Z) TTY INPUT.

0256574

005737

000001
00S442

003127

‘%
CALL JSR
"PC,CTLOUT
;*
OR CKEXIT
22222222222222222222X22X22X2222X2X2X222
22222 IZTI2IIIL TS

&L ouT: CMPB
BNE
TST

BEQ

81, TSTING
10$
INTCHR

108

:SEE IF CURRENTLY RUNNING TESTS
.BR IF NOT RUNNING TESTS

:SEE

IF ANY TTY

{BR IF NO INPUT

INPUT

CZRbGBO RKE DR CPT PROG
HflCYél
6G@B.P11
02-DEC-77
10:4
CZRb

§793

5794
5795
5796
§797
$798
5799
SB00
5801
5802
S803
S804
S80S
5806
5807
5808
5809
5810
S811
5812
5813
S814
5815

025602

025606
025&10
025616
025620
02S6eu
025624
025626
025632
025636
025644
025650
025656
S6
0eSbbb
025672
025674
57
025704
025710
0gS71e
025720
025722

00
005037
105037
012737
012706
112765
004737
105037
005037
000110
122737
001021
012700
000745
122737
001012
104401

104401
012700
112737
000727
122737
001002
004737
004737
000”207

02-DEC-77
11:48
PRAGE 115
CMPBUF - SOFTWRARE COMPARRE DATA
1578

003126
000003

005442

01300e
005442
003127
031504
001100
000113
030146
003143
001102
000032

63:
003056

0gsy4e

4g:

00s44e

12%:

013446

000003
011567
011537
033542
000061

003155

000007

oos442

12%
#003, INTCHR
4s
#ALLSYS, RO

RESET
CLR
CLRB
MOV
MOV

INTCHR
TSTING
8ERRHOL , A. ABNL
#STACK,
8P

CLRB

TSTTYP

$TSTNM
3RO
8032, INTCHR
78
#ASKSYS,
RO
2%
£003, INTCHR
78

TYPE
MOV
MOVB

' CNTRDY
kHLTPRG, RO
$’
1,PASSNO

025770

104407

025772
025776
026002
026004
026006

012700
012701
010320
005301
001375

053342
000400

SB4e
gg:a

026010
026016

012765
012765

053342
177400

000010
000012

S84S
S846
S847

026024
026032
026036

11276S
004737
104410

000123
030146

000001

021136
020774

8%:

108$:

,HLTRQGD

BNE
JSR

8%
PC, GTSWRG

CMPB

JSR

RTS

SEQ 0114

;SEE_IF DEFAULT MODE RUN

iBR_IF _YES
iSEE IF (3C) TYPED
iBR_IF _NOT (4C)
= ALLSYS
:SET RETURN ADOR
;RESET ALL DEVICES

:CLEAR TTY CHAR BUFFER WORD
:CLEAR TTY ESCAPE ALLOW FLAG
RESTORE ERROR HANDLER RDDRESS
RESET THE STACK

nnean "B CMND (RS :SET_RECAL COMMAND
,06 CLE ANUP RECAL IBRATE
RVEAL

CLR
JMP
cMPB
BNE
MOV
BR
CMPB
BNE
TYPE

78:

MDFLAG

BEQ
CMPB
BNE
MOV

MOVB
JSR

000001

5816
S817
5818
5819
S820
5821
S8e2
5823
S824
5825
5826
£827
5828
5829
$830
5831
5832
5833
5834
5835
5836
S837
S838
5839
gg:?

5848

025726
025732
025736
025744
025746
025754
025756
025762
025766

105737

001441
122737
102
12700

3001046)

8007, INTCHR

PC. PREPKB

pc’

;CLEAR OFFSET TEST

IDENTIFIER

iCLEAR _THE TEST NO.
JEXIT FROM_TESTS
SSEE_IF ($#2) TYPED
:BR_IF _NOT (12)
:SET RETURN ADDR = ASKSYS
i TAKE EXIT
iSEE _IF (1C) TYPED
iBR_IF NOT

:TYPE "HALT REQUESTED"
'TYPE "PRESS CONT WHEN RDY*
iSET _HALT ADDRESS
!RESTORE PRSS NO. TO 1

EXIT
;
;SEE IF (tG) TYPED
;BR_IF NOT (1G)

{OPEN SOF TWARE SWR FOR MODIFICATION
‘EQEFTIBIfiE KBD INPUT AGRIN

$ 3636363030600 36 06 36 96 06 36 06 36 30 06 30 W06 30 00 0 6 3000 06 06 06 00 6 330 06 36 30 3000 3036 00 36 06 2 0303600 30

WRTSEC - WRITE A BLOCK QOF 400(OCT)

00 3030 30 00 3 0

WORDS ONTQ THE DISK.

lTHE PARAMETER BLOCK MUST BE PRE-LORDED WITH THE PACK

iQDDSESS DATA WORD IS PASSED IN R3 ON ENTRY. RWBUF IS THE BUFFER

026040

000207

o 3636 36 36 3 36 3% 3 36 3 34 36 36 36 36 3 36 36 36 96 36 3 36 36 36 36 3 3 36 3 3 3 3 3 3 36 3 36 3 3 36 3 3 30 36 3 36 36 3 26 36 3 3 3 3 36 36 96 3 3¢ 3 3

QQTSEC SAVREG

; LORD THE R/W BUFFER WITH DARTA

4§

nov

; SAVE RO-RS

#RWBUF , RC

: BUFFER_ADDRESS

;oscn COUNTER

#400, R

400(007) WORDS

MOV

R3, (h0)+

BNE

43§

'BR IF NOT DONE YET

#-400, P. WC(RS)

stT WORD COUNT

DEC

'LORDA BUFFER WORD

:SET UP PARAMETERS
MOV
#RWBUF ,P.BALO(RS)

MOV

:WRITE THE DATR

MOVB

JSR
RESREG
RTS

SWRDATA,P.CMND(RS)

PC,DRVCAL
PC

;SET BUS ADDRESS

:SET WRITE COMMAND

uRiTE THE DATA
*RESTORE RO-RS
*RETURN

LOS

02-DEC-77

10:M4

SEG 0115

02-DEC-77
11:48
PAGE 116
CMPBUF - SOFTWARE COMPARE DRTA

33NN
NN RN
IR

iLDMEHl - LORD MEMORY WITH INCREASING NUHBEPS

STQRTING WITH 1.

#LDMEM2 - LOAD MEMORY WITH REPEATED WORD, IN R3
O

*BOTH SUBROUTINES REQUIRE MEMORY ADDRESS’ IN PMA, PHQ+2 GND WORD COUNT
:%MUST BE IN WDSXFR.
0eb04e
026044

104407
005004
012703

000403
04407

12704
013702
013701
010321
005704
001001
005203

026110

!lllll&lll!llll!!iii*lli!illlllgzcglsslsgiiill*llll!ll!**il!li*

AMEM1: SAVREG
000001

177727
005466
005504

LDMEM2:

:PROCEED

LDMO

MOV

uoskrR R2

6S:

MOV

R3 IR1)+

12%:

MOV

PMA R1

TST
BNE
INC

ss
R3

DEC
BNE
RESREG
RTS

gfl
177977 INDICATES LDMEMZ2
iGET NO. OF WORDS

iGET_MEM ADRS
:LOAD A_WORD INTO BUFFER
{SEE _WHICH DATA DESIRED
:BR_IF NOT INCREMENTING DARTA
: INCREMENT THE DRTA

; DECREMENT COUNTER

R2
X3

:BR_IF NOT DONE LORDING YET
RESTORE RO-RS
ETURN

S 36003600 06 00 06 00 0 06 0 00 000 0 00 00

INDICRTES LDMEMI

;INIT DATA WORD TO 1

LDMO:
8%:
10%:

00s302
001372
104410
000207

;R4=0

RY
%1,R3

CLR
MOV
BR
SAVREG
MOV

0000 0O 0 00 3 0 30 3000 30 30 30 36 36 36 06 00 06 36 06 36 36 0606 30 36 06 30 36 30 6

2 2 20 0 30

iCKMEMI - PERFORM SOFTWARE COMPRRE OF MEMORY, WITH INCREASING
: ¥NUMBERS, STARTING WITH 1.

*%Knsgeo- EE?SQRH SOF TWARRE COMPARE OF MEMORY, WITH REPEARTED DATA WORD
: #80TH SUBROUTPNES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE

80000—0005—
—— 00000

i #IN WDSXFR

026170

0gbl7e
026176
026204
0eeele

o0
o=

£
~
[N
~

0000
OO+

n
[o]
W
~N

0403

C NI

&KMEM1: SAVREG
CLR
MOV

000001

1772777
005466
005504
00S44Y
031224

00120e
005466
001202
024542

CKMEM2:

CKMO:

SAVREG

06 300000 06 060 0606 000006 0000 0000 0N

RY
#1,R3

CKMO

;snvs RO-RS

; PROCEED

:SAVE RO-RS

#-1,RY
WDSKFR, R2
PMA, R1
SCRACH

:;o DH?Dé+3B.

;RESTORE ERROR MSG PARAMS

JSR
CHP
BEQ

PC
REPSUP

: STORE PREV CMND FOR POSS.
:COMPARE A DATA WORD
:BR IF DATA COMPARES OK

suB

uonFR $REG1O

:GET WORD NO.

JSR

PC, FINADR

:COMPUTE ACTUAL PACK RDRS

: COMPARE ERROR HQNDLER
MOV
Re,SREG10

MOV

$REGIO LASTWC

‘R4=0 INDICQTES CKMEM1
SINIT DARTAR TO
1

MOV
MOV
MOV
CLR

ggva
X ¥

0E 00006 06

IRY=177777 INDICATES CKMEM2
'GET NO. OF
WORDS
:GET MEM ADRS

;GET 2'S COMP OF WORD NO.

30(1046)

10:46

SAVREG
MOV
MOVB
Move
J

026242

001000

005424

026256

0S1665
00000S
005444

053234

177777

001174

00
000001

152614

oooole

005444

001174

005470

001176

oos47e

001200

005473

BeEs2s

® ]
SREREBBCCCS 0e
0= b e
wmummgwmom:w
~NUn

737

01174

5983 85 Sl
52

SCRACH
88170, aSWR
12§
#10., SCRACH
21§
REGS, FINCYL

10%:

12%:

026522
026524

026534
026534

000000 j=
000000 [«

005302
001402
000137
104410

IGET CYL

iGET TRQCK
,GET SECTOR

E_IF THIS SECTOR LISTED BAD
STORE RO-RS

ED- DON'T REPORT ERROR
A HERDER FOR MSG

DATA WORD COUNT
ST ERROR IN THIS BLOCK

FIRST ERROR
NG FOR ERROR MSG

INCREHENT THE ERROR COUN

E_IF ALL ERRORS SHgggo BE REPORTED

SREGE, F INTRK

§§207 FINSEC

FiNThk: 3RECE

148:

15%:

DDRESS

SET NEW PACK RDR FOR PRINTOUT
TYPE NEW PACK RDRS
ORD NO.
;

ATA

;COMPUTE PHYSICAL RDDRESS

ool12i1e
001210

152424

R1,SREGLS
82, SREG1S
63

lB%TG JSWR
e

BN
PROCEEDTNITH COSPRRISONS

les

0
005203

; SAVE RO-RS

scgncn

ool214

5952

C, BOSRCK

FINSEC, SREG?

001202
001204

026514

FI NCYL,RO
FINTRK R
FIN SEC.R2

SEQ Oll6

#BALSEC, RECODE
163
DH701+38.
#5 DF25+2

005473

£
£

(=]
n
o

737 88 4?2

oo
[N 5]

5923

MO9

PRAGE 117
02-DEC-77
11:48
CMPBUF - SOFTWARE COMPARE DATA

00S470
005472
00S473
030042

O WM NN LW

026230
34

04407
13700
113701

MARCYL1l

02-DEC-77

85
sgs

i
DU DO DO DO DD DD
U
N 0= 0 bt Pt Pt Pt P s

PROG

“e

CZR6GB.P11

CPT

[|
R

[y —

CZR6WBO RKb

183

0eblbb
RESREG

; GET VIRT ADRS FOR PRINTOUT
; TYPE _GOOD AND BRD DARTA

iSEE _IF JUSTII ERROR SHOULD BE REPORTED
iBR IF JUST
SEE WHICH DATRA DESIRED
IF NOT

INCRERSING DATAR

INCREMENT THE DATA WORD

R2
213
63

; DECR_COUNTER
;BR

IF DONE COMPARING

:CONTINUE COMPARING WORDS
:RESTORE RO-RS

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)

CZREGB. P11

5961

5962
£963
§964

02-DEC-77 10:46

026536

€967

RTS

£§973
5974
2975

026544
(026552
(026560

026540

< 36363 3 36 3 36 3 3 3 3 35 36 36 36 36 36 36 3 3 36 36 3 3 3 % 3 3 3 3 3 3 3% 3 K 3 3 3 3 3% % 3 3 3 3 % % % 9 3 3 3% 3% 3 % % % 3% 3% % % %%

004737

142765
112765
013765

5379

026604

001403

021170

000020
000121
024404

AéDBSF

000007
000001
00CC02

§98]

026ble

005203

(026606

JSR

PC, INITSS

INIT THE S.S.

MOVB
MOV
TSTB

P.TRCK(RS)
Olfi R3

FORMAT

;SET Tnntx =
:SET FACTORY asr SECTOR LIMIT

INCB

P.SECT(RS)

;BR_IF_22 SECTORS

8IcB
MOVB
MOV
BEQ

105265

000004

€983 026622

026614

012765

177400

000012

6$%:

MOV

€985

(26630

012737

027004

003056

8%:

MOV

€987
5988
£989

Cco642
(02vb46
026652
026654

105037

004737
105737
001413
062765

£39]1
5932
£393

026666
026670
026674

001360
0Q4737
104120

031224

6995
8996

026702
026710

012765
110365

003162
000004

€998

026720

026726

001402

003134

6000

(26724

105737

012703

6002

026740

105037

8984

636

012766 004162 000010
003145

030146
003145

000002

£990 026662 126503 000004
§994

: RETURN

2222222222222232222222222222X22222XX222222X222X2XXX22XX22XX2
2L

€976
026566 112766 000002 00000S
§977 026574 012703 000012
6978 (026600 105737 002134
6982

SEQ 0117

' YREDBSF - READ FACTORY BSF INTO BSFACT, AND READ SOF TWARE BSF
:#INTO BSSOFT.
G©c_540

€980

NOS

PAGE 118

CMPBUF - SOFTWARE COMPARE DATA

H X

£971

6972

11:48

000207

5968
£369
£370

02-DEC-77

(026676

000137

033542

8997 (026714 012703 000026

MOV

#-400,P.WC(RS)

CMPB

QECT(RS) R3

IMP

HLTPRG

108:
12%:

MOV
MOVB

MOV

:SET WORD COUNT FOR 1 SECTOR

#BDSCHD
. A.ABNL ;SET'ERROR HANDLER FOR BSF RERD

WCEFLG

BNE
JSR
ERROR

'SET STARTING FACTORY BSF SECTOR NO.

#B8SFARLT, P BRLO(RQ) ;SET BR FOR FACTORY BSF

CLRB

JSR
TSTB
BEQ
ADD

000004

000010

INC

%6 CFMT. P.CSIH(RS)
-SET 22 SECTOR FORMAT
$RODATR.P.CMND(RS) ;SET heno DATA COMMAND
LSTCYL B.CYLN(RS)
ET ch 63271456

“INIT THE ERROR FLAG

PC, DRVCAL
WCEFLG
as
SECT(RS)

*RERD THE FACTORY BSF
i SEE xr ANY ERRORS
'BR_IF NOT
:CHECK NEXT SECTOR

es
PC, REPSUP
120

:BR_IF NOT YET
'GATHER STATUS FOR PRINTOUT
.neonrrnc- BAD esr RERD

iSEE_IF anxr EXCEEDED YET
‘HALT- CAN’T PROCEED

oassorrBRLO(RQ) SET BA FOR SOFTNRRE RECORD
P.SELT(RS
,sst STARTING SECTOR
N

oeé R3

"SET 22 SECTOR LIMIT

1578

ronnhr

sss xr 22 SECTOR FORMAT

000023

6001 026732 012737 027004 003056 14%:

MOV

ssr 20 SECTOR LIMIT

6003
6004
6005
6006

003145

CLRB

JSR
7518
BEQ
ADD

WCEFLG

sINIT THE ERROR FLAG

CMPB

QECT(RS) R3

£§999

026744
026750
026754
026756

004737
105737
001407
062765

026770
026772
026774
027002

003760
000736
012737
000207

030146
003145

6007 026764 126503 000004

000004

031504

003056

6008
6009
6010
Egié

000002

6013

6014
€015

6016

168%:

BEQ

MOV

BLE
BR
MOV
RTS

IF _YES

ssoséuo A.RBNL ;ser ERROR HANDLER FOR BSF RERD

PC, DRVCAL
WCEFLG
1ss
SECT(RS)

1
os
OERRHDL,Q.QBNL
PC

IRERD THE SOF TWARE BSF
‘SEE _IF ANY ERRORS
;BR_IF NOT
:CHECK NEXT SECTOR

;SEE IF LIMIT EXCEEDED YET

'BR_IF NOT YET
'REPORT ERROR AND ABORT
'RESTORE ERROR HANDLER ADRS
; RETURN

. #THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO HANDLE

027004

027012

032765

001002

130600

000034

; ¥POSSTBLE ERRORS_IN READING BAD SECTORS.
BDSCHD: BIT
#BSE 'HVRC'DTE'OPI0CK,P.ER(RS)

BNE

4§

:SEE IF ANY READ ERRORS

'BR I A READ EAROR OCCURRED

CZR6GBO RKBH DR CPT PROG MACYI1
CZRBGB.PI11
02-DEC-77 10:46

6017

6018
28%3

027014

027020
027024

000137

105237
000137

031504

003145
033754

E058

30(1046)

B10

02-DEC-77
11:48
PAGE 119
CMPBUF - SOF TWARE COMPARE DATA

ys:

JMP

ERRHDL

INCB
IMP

SEQ 0118

:GO HANDLE OTHER ERROR

WCEFLG
RE TNML

:SET ERROR FLAG
‘TAKE NORMAL DRIVER RETURN

6023

H Y2222 22222%22222222222::x22X2X2XX12XZ2222222XXX2XXXXXXXX2XTS

ESS?

:gxg;sossspnnnrsz

6024
6025
6028

6029
6030
6031
6032

irvpesr ~ TYPE FACTORY AND SOFTWARE BARD SECTOR FILES (BSF’S)
:#WITH THE CYLINDER, rnncx AND SECTOR NO. OF EACH BAD SECTOR
027030
027032
027034
027040

6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043

027044
027050
027064
027060
027062
027064
027066
027070
027072
027076
027102

6046
6047

027110
027114

6044
6045

027104
027106

6048
6049
6050
6051

027116
027120
027122
027124

6055
6056

027136
027140

60S2
6053
6054

6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072

027126
027132
027134
027144
027146
027150
027164
027156
027160
027162
027164
027170
027174
027176
027200

' X 222X I

104407

005004
012700
104401

104401
104401
104401
005001
005710
100007
005701
001032
104401
104401
000425

012046
104402

104401
011003
105003
000303
010346
104402

104401
111003
010346
105402
10440f

005720
005201
020127
002742
005704
001006
005204
012700
104401
000725
104410
000207

+{PBSF: SAVREG
CLR
MOV
TYPE

004172
011762

012007
051432
00132S

3%:
4§ :

012027
001325
8%:

012147

TYPE
MOV

SPACE2
IRO),R3

TYPE
MOVB
MOV

TYPOC
TYPE

001325

0CUL176

148:
003172
011775
18%:

RY
#BSFACT+10,R0
,FACTBS

’BDSECT
' DHBOMY
' §CRLF
R1
(RD)
83
R1
14%
NOFALS
' §CRLF
{ys

CLRB
SWAB
MOV
TYPOC

012147

YIRS 222222222222
223222222228 3

TYPE
TYPE
TYPE
CLR
TST
BPL
7ST
BNE
TYPE
TYPE
BR

MOV
TYPOC

TST
INC
CMP
BLY
TST
BNE
INC
MOV
TYPE
BR
RESREG
RTS

A tABLE OF OCTAL VALUES, FOR ERCH OF THE

(RG)+,-(SP)

R3
R3
R3,-(SP)

SPACE2
{RO),R3
R3, -lsSP)
$CRLF

{RO)+
R1
R1,#126.
4%
RY
1es
uessor1+1o RO
SOF 78S
33
PC

:SAVE RO-RS

:INIT BSF FILE INDICATOR
;ADRS OF DATA IN FACTORY BSF
*TYPE “FRCTORY*

:TYPE "BRD SE( TORS”
STYPE
“CYLNDR TRARCK

SECTOR"

s INIT anxr COUNTER
'SEE IFA SECTOR LISTED HERE
‘BR IF YES
'SEE IF FILE IS EMPTY
‘BR_IF NOT EMP
:TYPE “NONE”
STYPE <CR>, (LF>
csr A ch NO.
TYPE IT

TYPE SEPARATORS
IGET TRACK AND SECTOR
;GET THE TRACK NO.
TYPE

TYPE sspnnnrons
:GET SECTOR NO.
sTYPE

: INCR THE POINTER
PINCR THE COUNTER
:SEE IF anxr 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
*TYPE "sorrunns BAD SECTORS :*
‘GO TYPE SOFT. BSF
'RESTORE RO-RS
:RETURN

D EEEEEEEFRAREEARRAR
R SRR RER AR RS A AR R RN RSN
AR AR ARRARRERES

CZR6GBO RKG DR CPT PROG MACY1l

CZR6GB.P11

02-DEC-77 10:46

6073

607
607

6083
6094
6095
6096
6037

11:48

CIO

PRGE

120

857583
7

04407
16500

027226
027230
027234
027236
027242
027244
027543
02725
027254
027256
027262
027264

001006
126501
001003
126502
001904
005203
04737
00763
000303
010337
104410

SEQ 0119

CMPBUF - SOF TWARE conpnns DRTA
OF WORDS XFERRED ON PARTIAL XFER

:#(TERMINATED BY BSE ERROR),

AND STORE

IN WOSXFR.

lllllill!!!llllllllllllllillllllll!llilllillllllll!‘llll!llllll‘l

000002

s 88781
gt AAe38S
el goeg:
£358
6081 027222 026500 000030

6082
6083
6084
6085
6086
6087
6088
6083
6030
6091
6032

02-DEC-77

: #F INMEM - COMPUTE NO.

6074

BO?S

30(1046)

£ tNMEN: snvnsc
63:

000027
000026
027266

005466

8%:
128:

000207

e
R
CHP

BhE
CMPB
BNE
CMPB
BEQ
INC
JSR
BR
SWAB
MOV
RESREG

RTS

P.CYLN(RS),RO

RSB
R3
P.DCYL(RS),RO

8$
P.DTS+1(RS),R1
g$
P.DTS(RS),R2
123
R3
PC, INCRSC

6
R3
R3, WDSXFR
PC

AVE RO-

ET OR c

ch NO.

gLieg
?u?r
SECTOR COUNT T0 O
:COMPARE ORIG. AND CURRENT CYLS

:BR IF NOT EQUAL
;COMPARE TRACKS
:BR IF NOT EQUAL
: COMPARE SECTORS
'BR IF ADRS RRE EounL
INCR secron COUNT
P INCR PACK ADRS BY 1 SECTOR
:GO COMPARE ADDRESSES
:COMPUTE NO. OF WORDS XFERRED
*STORE IT
Resrons RO-RS
'RETURN

T2 Z222222222222222222222222222XX23XX22X2X2X222X222XX22X2X2X2
2T

6038

'4INCRSC - INCREMENT PACK RDDRESS TO NEXT SECTOR

6101

’ X 222222222222222:222:2222222X22:2222:12X2X2222222XX222X2TX2X2XX2
RS

gggg

6102

6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114

21%2

;{nsnngxnoER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR
%

027266

027272
027276
027300
027304
027306
027310
027312
027314
027316
027322
027324
027326

027330

012704

105737
001402
012704
005202
020204
003407
005002
005201
020127
003402
005001
005200

000025

003134

000023

thcRsC: nov
4g:

000002

000207

6%:

e118

6118

; R

1578
BEQ
MOV
INC
CMP
BLE
CLR
INC
CMP
BLE
CLR
INC

RTS

821. RY

FORMAT
4§
#19.,RY
R2
R2,RY
X
R2
RI
R1,#2
63
R1
RO

sSET SECTOR LIMIT

' SEE IF Ea SECTOR FORMAT
;BR IF
YES
:SET secron LIMIT
*INCR. SECTOR
NO.
sse xr S$CTOR LIMIT EXCEEDED
‘BRI
ISET sscron 0
*INCR. TRACK NO.
'SEE IF TRACK LIMIT EXCEEDED
iBR_IF NOT
'SET TRACK = O
INCR CYLINDER NO.
:

RETURN

1122122222222322:222222222:12222T2X2XXXTT2XX2T2XTRSTISIEZTR22
RS2 LS

6120

iMIDXFR - MID-TRANSFER PARAMETER UPDQTE SUBROUTINE

6123
612y

415Rnxnnrso BYA BAD SECTOR ERROR (BSE), A DATA CHECK ERROR (DCK),
;%0RA HERDER VRC ERROR (HVRC)

6121

;#THIS SUBROUTINE UPDATES PMA,

6122
6125

6126
6127
6128

PMA+2

BALO(R

#P.BAHI (RS), nno P.WC(RS), IN PREPnhnrrou 10 RséuneA TRANSFER

027332
027334
027340

104407
004737
016500

il*illl!lll!lllll!illlll!l!ll!**lllli!lll!*lll*lllillllllil!**i

027202
000030

ftDXFR: SAVREG
JSR
MOV

PC,FINMEM
P.OCYL(RS),RO

:SAVE RO-RS
:COMPUTE NO. OF WORDS XFERRED
:GET CYL NO.

CZR6QBO RK6 DR CPT PROG MACYLl!
CZRBEB.P11
02-DEC-77 10:4%6

6129
6130

(027344
027350

clle G0
6134

613S
6136

6137
6138
6139

6140

blyl
biy2
6143

027370

7374
7400

027404
027410
027’414

rd )

e
74
027432

oii Rrik

6147
6i48
6149
61S0
6151
6152
£183

6154
615S
6156
6167

6158
6159
6160
6161
6l62
giba

027446
027482
027460
027464
027470
027474
027476

116501
116502

BnE

062703

882732

100000

005506
00SS04
00SS0
177774
000007

MOV

WOSXFR, R3

'GET NO.

33
8400, R3

‘BR IF YES
:SKIP BRD sscron

#DCKERR,RECODE

Pc, INCRSC

: INCREMENT

MOVB
MOVB
ADD

R1.P.TRCK(RS)
R2'P.SECT(RE)
3'P.WC(RS)

:UPDATE TRACK
;UPDRTE SECTOR
: UPDRTE P.MWC(RS)

RO.P.CYLN(RS)

168

:BR

f BUS ADRS INCR INMIB SET

YES

CLR

'GET BYTES XFERRED

ADD

R3, PMA

;UPDARTE Ptir, PMA+2

ADD

RY, PMA+2

ROL
ROL

R3
RY

ADC

16%:

PACK RDRS TO NEXT SECTOR

:UPDATE CYLINDER

#01BAII,P.PRST(RS) ;?FE

000010

OF WORDS TRANSFERRED

:SEE IF DATA CHECK ERROR OCCURRED

JSR

MOV

000014

:GET SECTOR NO.

PMA+2

MOV
MOV
BIC
BISB

RESREG
T3

;UPDRTE P.BALO(RS)

PMA. P.BALO(RS)
PMARi2 RO
8177774, RO
RO,P.BRHI(RS)

;UPDATE P.BAHI(RS)

'RETURN

'RESTORE RO-RS

NN R

;¥SVPRMS - SAVE INITIAL PARAMETERS FOR TRANSFER

AR RARR IR RN

; #GTPRMS - RESTORE SAVED TRANSFER PARAMETERS
027507
027500
82;506

104407
012700
012;0;

SRR

002642
008354
12
Y

6176
61?77
65178
6179
6180
6181
6182
6183
6184

cles
02720 Btudy BB%NLE
167 027252 8650 7 0S506

£168
6169
6170
6171
6172
6173
6174
6175

;GET TRACK NO.

P.DTS(RS),R2

BNE
ADD

JeBNY posso

060437
013765
013700
042700
1S006S
1044}
00020

P.DTS+1(RS),R1

MOVB

000400
00000S
000004
000012

SEQ 0120

MOVB

BIT
887266
0002

10
00S004
006103

D10

02-DEC-77
11:48
PRGE 121
CMPBUF - SOFTWARE COMPARE DRTA

000027
000026

737
0065

110165
110265
060365

3011046)

027536
027540
027542
027546
027552
027556
027560
027562

027564
027566

00040S
104407
012700
012701
012702
012021
005302
001375
104410
000207

005454
002642
00000s

&UPRMS: SAVREG
MOV

00S46b

GTPRMS:

GT0:

6%:

$PARMO+2, RO

R RN ER AR

: SAVE RO-RS

{ADRS OF SAVE ARERA
#SAVPRS R]
P.WC(RS),WOSXFR ';GET WORD COUNT
WOSXFR
;MAKE IT POSITIVE

GTO0

SAVREG
MOV

MOV
MOV

MOV

DEC
BNE
RESREG

RTS

sRuagr,Pnn
PMA+

;%NiT PMA TO_ RWBUF
PINIT PMA+2 TO

#SAVPRS , RO

:SAVE RO-RS
SAVE AREA
:ADRS OF

#5, R2

SET FOR 5 WORDS

#PARMO+2, R1

(ROY+, (R1)+

R2
X3
PC

AR AR R RRLER R

*ADRS OF PARAMS

MOV
MOV
NEG
MOV
CLR

05S04

: CONTINUE

:ADRS OF

PARAMS

:MOVE A WOR

"SEE IF DONE YET
NOT
_IF
‘BR
:RESTORE RO-RS
'RETURN

H 3636 36 36 36 3 36 3 3 3 3 3 3 3 % 3 3 3 3 3 3 3 3 3 2 I 3% 3 3 3 3 3 % 3 3 3 3 3 3 3 3 3 K W 3 W W2 KK W

'5TRNSFR - PERFORM A DATA TRANSFER,

EEE R R KRR EE

AND HANDLE BAD SECTORS

'%0R DATA CHECK ERRORS, IF ENCOUNTERED.
"%¥THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SuB-

CZR6GBO RKE DR CPT PROG MACY1l
CZREQB.P11
02-DEC-77 10:46

30(1046)

6185
6186

;ggsngnoxnc DATA WITH CFFSETS,
'I

XXX

6190
6191
6192

027570
027572
027574

010446
005004
105037

003.44

6194
6195
6196
6197

027604
027ble
027616
027622

012737
105037
004737
032737

020S5Se
00313S
030146
000026

6193

6198

6199
6200
6201

6202

6203

6204
6205
6206
6207
6208
6209
25%?

SEQ 0121

;Rourxne 1S SUBSTITUTED FOR DRVCAL WHEN BRD SECTORS MUST BE MANDLED,
AND IT 15 ALSO USED TO HANDLE THE DATA CHECK ERRORS CAUSED

2}35
6189

EL1O

02-DEC-77
11:48
PARGE 122
CMPBUF - SOF TWARE COMPARE DATA

027600

027630

027632
027634
027640

027644

027650

027652
027654
027656
0276b2
027666
027670
027676

005037

001410

005204
004737
004737

00576S

001353

005704
001404
004737
004737
012604
012737
000207

005424

4s:

CLR

MOV
CLRB
JSR
BIT

005424

BEQ

INC
JSR
JSR

023220
027332
000012
027540
027500
0030S6

8515

8%:

R4, -(SP)
R4’
DCEFLG
RECODE

:SAVE R4 ON STACK
:CLEAR ERROR INDICATOR
CLERR OCK ERROR FLAG
CLEAR ERROR FLAGS

;BR

157

1ST
BEQ
JSR
JSR
MOV
MOV
RTS

RY
8s
PC, GTPRMS
PC’ SVPRMS
(SPY+, RY
$ERRHOL,A.ABNL
PC

{F NOT

*INCR ERROR INDICATOR
‘DECR. DRIVE SCORE, IF NECESSQRY
uponr; PARAMS TO RESUME XFER

sss

ENTIRE XFER IS COHPLETED

sss }r
nnv ERRORS OCCURRED
IBR IF NOT
'RESTORE ORIGINAL PARAMS OF XFER
'RESTORE WDSXFR,PMA,PMA+2
:RESTORE R4
:RESTORE NORMAL ERROR HANDLER ADRS
:RETURN

6214

; X

6216

:¥THIS ROUTINE RETURNS A LIST OF BAD SECTORS FOUND

6215

.DCKHDL A.RBNL sev DCK ERROR HANDLER ADRS
ERRCNT
:CLEAR ERROR RETRY COUNT
PC, DRVCAL
:PERFORM THE S.S. FUNCTION
osssnn-ocxsnn HVRCER . RECODE sSEE IF BSE OR DCK OR HVRC ERROR OCCURRED
PC CKSCOR
PC. MIDXFR
P.UWC(RS)

BNE

X ¥

031504

222Y222222222222222Z2222222222222X22T2 22222222

YANSFR: MOV
CLR
CLRB

003056

IN THE OVERWRITE AND DATA COMPATIBILITY

2222222222222322222223:2223222X22222X2XXX222X2X2X2X22222XX2
22222

"&BTTL

SEARCH BAD SECTOR TABLES ROUTINE

6217
6218
Egég

‘%xTHE SPECIFIC TABLE (BAD SECTOR SOF TWARE OR BAD SECTOR FACTORY)
:xFOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MUST
*xCONTRIN THE CYLINDER AND TRACK, RESPECTIVELY.

6e2l
6222
6223

I%¥THE LIST OF BRD SECTORS IS FOUND ON_THE STACK WHEN THE ROUTINE
"¥RETURNS TO THE CALLER. THE FIRST ENTRY ON THE STACK WILL BE THE
: ¥NUMBER OF BRD SECTORS FOUND FOR THIS CYLINDER AND TRACK.

Y-2=0 )

R X222222222222222X:222222x22222
X222 223X22322222X2222222222 222 )

6225

027700

010237

001266

SAHTBS: MOV

622?
6208
6229
6230

027710
027714
027716
027722

012637
011402
012437
062737

001272

MOV
MOV
MOV
ADD

6232
6233

027732
027736

062702
005712

027742

020012

6226

6231

6234

6235

6236
6237
6238
6239
6e40

027704

027730
027740

027744
027746
027752
027756
027760

010337

005003

001270

001264
001000
000010

100430

001406
062702
020237
002021
000766

MOV

001264

CLR

1$:

ADD
TST
BMI

CMP

000004
001264

BEQ
A0D
CMP
BGE
BR

R2, $TMP2

R3 STMP3

(SPY+,$TMPY
STORE RETURN CONTENTS OF R4
(RY) ,R2 ;GET noohess OF BAD SECTOR TABLE TO SEARCH
(RY)$,STAPI
SETUP FOR LENGTH OF BARD SECTOR TRBLE
#1000’ $TMP1

#10,R2
(R2$

5§

RO, (R2)

3%
$4,R2
R2.$TMP1
S§
1%

:CLEAR R3 FOR COUNT

'SET R2 FOR PQINTER TO CYLINDER ENTRY
TEST IF ALL ONES
YES-DONE

TEST IF BAD SECTOR IN PRESENT CYL

:YES-GO CHECK TRACK
'ELSE BUMP POINTER
:TEST IF OUT OF TABLE
SYES-EXIT
:LOOP

uZRbQBO RK& DR _CPT PROG MACY11
CZREG8B. P11
02-DEC-77 10:46
6241
be4e
6243
b4y
6245
6246

027762
027764

005722
011237
042737

001302
174377
001303

30(1046)

F10

02-DEC-77
11:48
PRGE 123
SEARCH BARD SECTOR TRBLES ROUTINE
3%:

TST
MOV

BIC
CMPB

001302

BEQ
49

c§:

001266
001270
g001e7e

030040

B8R

; TRACK

YES
- GO PUT SECTOR NUMBER ON STACK
E
LSE BUMP POINTER TO NEXT CYL WORD

8174377 $TMP1O
§TMP10+] Rl

INC
MOV

R3
(R2)+,-(SP)

BR
MOV

1$
R3, -(SP)

BIC

177700

(R2 )+
(R2),$TMP10

(P2)+

TST

21777200, (SP)

MOV
MOV
MOV

§THP2, R2
§TMP3 R3
srnpq -(SP)

RTS

SEQ@ Clee
CHECK

- PUT POINTER AT

TRK-SEC

{GET TRK/SEC WORD
;CLEAR ALL BUT TRACK
CHECK IF BRD SECTOR IN THIS TRACK

BYTE

:G0 TEST NEXT CYL
:BUMP_BRD SECTOR COUNT
;PUT TRK/SEC WORD ON
S
:CLERR ALL BUT SECTOR NUHBER
{GO CHECK REST OF FILE
'EXIT - PUT NUMBER OF BAD
iSECTORS ON STRCK-RESTORE
:REGISTERS
:PUT RETURN ON STRCK

RETURN

!lllllilllillllllllllllli!**llillllll*llllill!llllilll!llii!i!}

"48TTL

BAD SECTOR CHECK ROUTINE

; #THIS ROUTINE

WILL

SEARCH BOTH

TRABLES

TO DETERMINE

IF
A

: #SPECIFIC SECTOR IS LISTED RS BAD. IF THE SECTOR IS LISTED IN THE
:#TABLES THE ROUTINE SETS THE "BADSECTM FLRG AND RETURNS. IF THE SECTOR
;#IS NOT LISTED THE FLAG IS RESET
030042
030044
030052

104407
012737
004437
000000

!lllllll!llllll!!llIllllli*llllllilllllll!llillill*lllllll!!ll*

004162
027700

030056

012603

030056

0031be

003162

030056

001000

005424

BASRCK: SAVREG

2%:
18:
7%:

00S424

JSR
. WORD
MOV
BNE
CMP
BEQ

MOV
3%:

4s:

6%:

001000

MOV

8%:

9§

BR
BIC

RESREG
g

:SET TABLE TO SEARCH

63
1S, 8BSSOF Y
33
88SSOFT, 18
23
#BARDSEC,RECODE

:GO0 SERRCH IT
TQBLE ADDRESS GOES HERE
,cs NUMBER OF BRD SECTORS, IF ANY
'IF ANY, GO TEST WHICH ONES
'ELSE _TEST IF OTHER TRBLE ALREACY SEARCHED
CIF YES-EXI
'SET OTHER TRBLE FOR SERRCH
:GO SEARCH IT
:CLEAR BAD SECTOR BIT

: RETURN

(SP)+,R3

CMP
BEQ
DEC
BNE

(SP)+,R2
8%
R3
69

DEC
BEQ

R3
4§

:CLEAR STACK OF OTHER BRD SECTOR
*NUMBER

SEXIT

BR
BIS
TST

000774

#8SFACT, 1S

R4, SRHTBS

73
#BADSEC,RECODE
(SP)+

'THIS SECTOR IN TARBLE?
‘YES=GO SET BIT 8 EXIT
:DECREMENT BAD SECTOR COUNT
:IF NOT ZERO-CHECK NEXT ENTRY

ELSE GO SEARCH OTHER TRBLE
:SET BRD SECTOR BIT

< 3033606 36 9 3 3 96 3 36 36 3 36 3 3 3 36 3t 36 3 36 3 3 B 36 3 3 36 3 3 3 96 3 3 36 9 3 36 3 3 9 3 96 3 3 6 3 3 3

"48TTL

: xENTRY

CALL DRIVER ROUTINE
JSR

PC, oncn

¥
WITH RS POINTING
' ¥RETURN RTS PC

TO PRRAMETER BLOCK

3 3 3 3 3 3 3 X KX R

CZReABO RKe DR CPT PROG MACY11

CZR&GEB.P 11

02-DEC-77 10:46

30(1046)

PRGE
11:48
02-DEC-77
CRLL DRIVER ROUTINE
; #THIS ROUTINE

G10

124

IS USED TO

*CRLLING THE DRIVER.

SEQ Cl23

INITIATE A SUBSYSTEM OPERATION BY

THE PARAMETER BLOCK MUST BE SET UP

Y THE CALLER RN
% U?T PSINT TO THE PARAMETER
#BLOCK WHEN
THE ROUTINE
IS CARLLED.

NN
L L

poN737
004737
105037
105037
004737
010537
004737
000000
004737
7
685?

030216

pe44e0
025564
00313e
0C3141
040e22
03457¢
003132

BRVCAL:

JSR

PC, STAL

CLRB
CLRB
JSR

DORNE
DRNAFG
PC, STRCMD
RS, 4%
PC.C.INIT

J5R

4S:
6%:

MOV
JSR
. WORD

JSR

15718
BEQ

RTS

000207

pC’ CTLOUT

PC,W.WTCH

DONE
63

X X%

: PERFORM A STRLL 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

‘DONE SET?
*NO-LOOP

: YES-RETURN

o 6363 3 3 36 36 36 36 3% 3 36 36 36 36 36 36 36 36 36 6 36 3 36 36 36 3 3¢ 3 36 3 3 3 36 3 3 36 3 3 3 96 3 3 3 3 3 36 3 3 3 4 3 3 3 36 3 3 3 3 3 3 2

iSTRCMD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS

005176

06000 06 00 0 0

000

MOV
MOV

SsPRVCMD,R1
COMSTR,RO

MOV
MOV
MOV
MOV
MOV

(RO)+, (R1)+
(RO)+. (R1)+
(RO)+. (R1)+
(RO)+, (R1)+
(RO)+. (R1)+

MOV

#COMSTR,R1

MOV
MOV
MOV
MOV
MOV

(RS)+. (R1)+
(R5)+) (R1)+
(RE)+) (R1)+
(RE)+, (R1)+
(RS)+, (R1)+

44RCMD: SAVREG

:STORE PREVIOUS COMMAND
MOV
(RO)+, (R1)+

RN R R AR AR R AR RN
R NN

;SAVE RO-RS

:ADDR OF PREV_COMMAND STORAGE
*ADDR OF CURRENT COMMAND STORAGE

. STORE CURRENT COMMAND

NO -

e e bt bt et s

LNy
O— RO

P P

e e ee

00000 Q
ov

e
Pt Pt Pt et s Pt
OOt
ba b pms gt pot

030246
03025e
030254
030256
030260
030262
030264
030266
030270

030232

00S
00s

030244

< B30I

000000
00

030220
030222
030226

O—-0000000

DONON LW

Pt ot Pt Pt Pt Pt Pt Pt Pt

oocoooocooo,
WWWwwwwww

lTHIS ROUTINE WAITS FOR THE QPERARTION TO BE COMPLETED.
;#WHILE WAITING THE WATCHDOG TIMER IS CALLED TO PREVENT
;#SILENT DERTH IN CASE THE SUBSYSTEM DOES NOT PROVIDE AN
:*INTERRUPT. THE TERMINATION HANDLER ROUTINES WILL SET THE DONE
:#FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER.

MOV

RESREG
TS

(RS)+, (R1)+

:RS POINTS TO DRIVER PARAM BLK

:RESTORE RO-RS
*RETURN

3696 3 3 36 3 3 3 3 3 9 3 3 36 36 36 3 3 3 36 36 3 36 36 36 3 36 3 3 36 36 36 36 3 3 36 3 3 36 3 36 36 3 3 36 3 36 3 3 3 3 96 36 36 3 3 3 3 3¢ 3¢ e N 2

éBTTL

DRIVE ERROR FREE RETURN ROUTINE

;#THIS ROUTINE

IS CALLED BY THE DRIVER WHEN NO ERROR

CZR6@BO RK6 DR CPT PROG MACYLl
CZR6G8B. P11
02-DEC-77 10:46

30:1046)

02-DEC-77

11:48

H10

PAGE

125

SEG Cle4

DRIVE ERROR FREE RETURN ROUTINE

6353

; #HAS BEEN DETECTED

THE

OPERATION.

lROUTI E.
< I U600 06 3608 06 00 06 06 06 06 06 06 08 06 0006 00 06 36 06 00 06

THE

ROUTINE

lDONE FLAG THRT IS TESTED IN THE DRIVER CALLING

6354

030272

152;3;

000377
100000

30310

105837

00313S

S g1

83831
16
708743
030322
030324

8 0330

0336
030340
03U34Y4
030350

11393?
104101

003132
005424

thFRE 91$e
Q

?STB

001174

ERROR
CLRB

1%:

000207

TEST IF ANY DATA ERROR

ERRCNT

CLE?R ERROR COUNT

18
2R585
RRCNT, SREGS

NO - SKIP TO EXIT

RR NT

CLR
RTS

;SET _THE DONE FLARG

8ANYOER, RECODE

éaRCNT

BEQ
CbR
Move

THE

H MR
NA AN R R XN N

CERB

es:

00313S

8377, DONE

SETS

RROR RECOVERY PRINT TEST
E
NO - DO

éCK IF _ANY ERRORS HAVE OCCURRED

GET RETRY COUNT

{PRINT RETRY SUC’ESSFUL MESSAGE
CL AR ERRS 8

EC OE

:CLEAR
!RETUR

RECOVERY FLQGS

; i!i!!llil!ill*lll!illl**illli*‘lilll!*lll!l{lliil!l*!il!li*!ll*
'&BTTL

; XENTRY

TYPE ERROR ROUTINE

PC, TYPERR
PC

JSR
RTS

iRETURN -

lTH&ROUT
NE USES THE “ITEM CONTROL BYTE* (SITEMB)
%
0 BE REPORTED.

TO DETERHINE WHICH
IT THEN USES THE "ERROR TARBLE"TM (SERRTB)

: ¥ENTRY T8DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING

!THE ERR
030323

104407

83638d 433527

003137
020000

838473

030774

030366

030376

6%:

CLR

1¢PERR SAVREG
15055e

001114

001410
030442

1%:

ADD

030471
03047¢

104401

030620

DRVERS
#SW13,dSWR
6%

RS
RS

$ITEMB,RO
RO
RO
RO
RO
#SERRTB, RO

(ROY+,2%

3%
, CRELF

012133
gys4le

012037
001467
104401
104401
013746
104403
002
000

NI MU0

2%:
3%:

. WORD
MOV

I N

; INCR_ERROR COUNT FOR_THIS DRIVE

: INHIBIT ERROR TYPEOUTS?

BR IF NO

;CLR RO FOR _ERROR NUMBER
, INIT

INDENT

INDICATOR

;ENTER_ERROR _NUMBER

;FORM INDEX FOR ERROR TRBLE
; FORM PODRESS OF ERROR ENTRY

IGET EM PCINTER
:BRANCH IF THERE ISN’T ONE

,AS2SP2

;TYPE “a%

0
\RO)+,48
3

iBR IF THERE ISN’'T ONE

$CRLF

: TYPE ERROR MESSAGE (EM)
;EM_POINTER GOES HERE
:GET_DH_POINTER

0013eS
045400
0c110e

$§TSTNM, - (SP)

*TSTMSG

;TYPE

‘2 DIGITS

012133

e
8]
,CR2LF

TEST

GETET§ST NO. ON STACK
; SUPPRESS LERDING ZERQS

CZR6UBO RKE DR CPT PROG MACY1]
CZR6GB.P11
02-DEC-77 10:46

6409

€410
6411
6412
6413

6414
6416

030476

030S04
030506

030Sie
030516

032777

001133
104401
104401
104401

030522
030526

104401
012701

030536
030540
030542
030546
030550

012246
104402
104401
005301
001372

010000

30(1046)

150434

6424

030562

104401

6427

030576

012246

6428
6429

030600
030602

6431
6432
6433

030610
030612
030616

6435

030622

6430

6434

030606

104402
104401

011246

0S0S34

0013eS
000006

TYPE
MOV

SCRLF
be

0013eS
050726

TYPE
TYPE

005005
032777
0010S6
012001
001454
01200
012002
112003

6445
6446
6447
6448

030654
030656
030660
030662

005703
001417
005705
001002

030670
030672
030674
030676

013146
104402
005303
001403

030704
030706
030710
030712
(030716

000771
005702
001402
104401
005302

6449

6450
6451
6452
6453

6464

6455
6456
E£457
6468
6459
6460
6461
462
E4£3

E464

030664

030700

030720
030722
030726
030730

030732

88{%2?

010000

10%:

105720

104401

012147

11%:

012147
001325

030754

104401

001325

' SPACER2

; INDENT

TYPOC
TYPE
TYPE

148:

16%:

,SCRLF

,o 102

tR2)+,-(5P)
SPACE2

tR2), -(SP)
,CR2LF

INDENT

*TYPE HDR FOR BA DATA
, TYPE PREV.

BA BITS

:TYPE PREV.

LO BR BITS

: TYPE DATA HERDER

.WORD

CLR
BIT
BNE
MOV
BEQ
MOV
MOV
MOVB

RS
#B1.12, 3SUR
20%
(RO)+,R1
20%
(R0)+,R0
(RO)+.R2
(RO)+,R3

s INIT INDENT INDICATOR
:REPORT DESCRIPTION ONLY ?
'BR IF YES
:GET DT POINTER
'BRANCH IF THERE ARE NONE
:GET DF POINTER
srone NUMBER OF DH’S
{GET
& STORE NUMBER OF DATA WORDS

757
BEQ
TST
BNE

R3
14%
RS
118

'TEST IF ANY DATA FOR THIS HERDER
'NO - SKIP DATA PRIN
:SEE IF SHOULD INDENT
,s IF NOT

MOV
TYPOC
DEC
BEQ

3TR1+,-(SP)

!PUT FIRST DATA WORD ON STACK
STYPE IT
'MORE DATA WORDS
NO-BRANCH

BR
TST
BEQ
TYPE
DEC

i1s
R2
14%
$CRLF
R2

BNE

34§

TYPE

TSTB

TYPE

12%:

003425
012037
105710
001004

G5%:

:STARTING RDDR OF PREV CMND VALUES

MOV

150302

;SIX COMMAND VALUES

' SPACER

TYPOC
TYPE

4§:

; TYPE PREV COMMRND HEARDER

TYPE

(R2)+,-tsP)

:BR_IF YES
:TYPE "PREVIOUS COMMAND :*

SPARCER
R1
308

MOV

O0l2147

OSQEGEB Re

; REPORT DESCRIPTION ONLY ?

:PUT_A_WORD ON STACK
STYPE 17
: TYPE SEPQRQTORS
!SEE_IF
7 VALUES TYPED YET
;BR IF NOT

TYPE

012147

, SCRLF
,DH101+10

SEQ Cles

MOV
TYPOC
TYPE
DEC
BNE
TYPE

012147

001325

030626
030630
030636
030640
030642
030644
030646
030650

030652

001325

104401

6436
6437
438
6439
6440
6441
6442
6443

6444

0l2li4?

012133

060000

30%:

MOV

110

126

#8IT12, JSWR

208
,DH10S

104402
104401
104401

030620

8IT

BNE
TYPE

6416 030532 012702 00123%
6417
6418
6419
6420
6421

_02-DEC-?7
11:48
PAGE
TYPE ERROR ROUTINE

BLE
MOV
7518

TYPE

$CRLF

(RO) +

SPACER

R3
12%

SPACER2

20%
(RO)+, 163
(RO)

.. aLF

‘DH POINTER GOES HERE

'BUMP PRST FORMAT WORD

: INDENT

:TYPE SEPRRATORS

L OOP
' SEE xr <CR>, (LF> NEEDED
:BR_IF NOT
‘TYPE IT
:MORE DH’S?
NO-BRANCH
*GET NEXT DH POINTER
:SEE IF ANY DATA FOR HDR

:BR

YES

ISKIP EXTRA LINE

C‘REQBO RK& DR CPT PROG MACY1l
CZREGB.PL1
02-DEC-77 10:46

646S

030736

00500S

6467

030742

00S10S

6469

030746

6471

030754

000000

6473
6474
6475
6476

030762
030764
030766
030772

105710
001331
062700
000751

6466

6468

6470
6472

6477
6478
6479

030740

030744

030752

030756

030774
030776

30(1046)

CLR

00040M4

001002
104401

104401
104401

02-DEC-77
11:48
PAGF
TYPE ERROR ROUTINE

348 :

012147

368%:

169%:

001325

20%:
<

COM

BNE

TYPE

SEQ 01les

sRE-INIT INDENT INDICATOR

;COMPLEMENT

, SPACE2

,. NDENT

369%

369

.WORD

1ST8B
BNE
ADD
BR

{RO)
10%
#2,RO
144

TYPE

000002

104410
000207

B8R

J10

127

INDENT

INDICATOR

BR IF NO INDENT REGUIRED
TYPE DH

DH POINTER GOES HERE

SCRLF

;TYPEA DT?
YES BRANCH
INCREHENT DF POINTER
SEE IF END OF Df BLOCK

RESREG
RTS
PC
NI U063 00636 06 06 06 36 00 06 06 36 36 36 06 06 36 36 36 36 36 06 06 36 38 36 36 36 36 36 36 36 26 36 36 36 36 96 36 38 36 96 36 36 36 36 3 3 36 3 3 06 3 2 X %

6480

éBTTL

g:gg

&RETURN'

648Y
6485
6486

¥THIS ROUTINE ODECODES THE CONTROLLER ERROR WORD AND
:REPORTS THE APPROPRIATE MESSAGE. THE RKb1l1 REGISTERS ARE
*RETRIEVED FROM THE RK&6!11 AND PLACED IN THE PARAMETER

6488

*RT THIS TIME.

6481

; $ENTRY

6487
6489

6480

031000

031002
031010

6494
6435
6496

031020
031026
031030

6497
6498

031014

031032
031034

6499
6500

Q031042
031844

6502

031050

6501

6503
6504
6505
6S06
6507

031046

031056
031060
031064
031066
031072

104407

152737
105237

000377
003135

003132

004737

033764

000001

003062

000470
032737

000002

003062

1%:

000004

003062

2%:

032737
001402
104064

001402
689065
o462

032737

001407
105737
001402
105237
104066

003141
003142

15%:

000447
032737

000010

003062

3%:

6Sle
6S13

031110
031112

000441
032737

000020

003062

4%:

000433
032737

000040

003062

659:

6516
6517

6518
6519
620

031104
031106
(031120
03l12e

031124
031126

031134
031136

031140

001402
104067
001402
104070
001402
104071
0004es

:SAVE RO-RS

c[SB
Ih“B

#3777, DONE
ERRCAT

SET DONE FLAG
INCREHENT ERROR COUN

BIT
BEQ
ERROR

OBiTO .CONT
1%
64

ERROR 0?
NO-BR NCH
CLERR CONT DID NOT CLEARR ERROR

BEQ
ERROR

c$
S

NO BRANCH
NO ATTENTION IN ARTTENTION SUM REG

BIY

#B8IT2,E.CONT

; ERROR 29

JSR

031074
031076

6514
6515

CONERR

< 3636 36 36 36 36 36 36 36 96 96 06 36 36 38 38 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 3 38 36 36 3 3 36 36 3 3 3 36 6 36 3 06 3 3 9 3 % % % %

LONERR: SAVREG

6508
6509

6510
6511

JSR PC,

RTS PC’

:#BLOCK. THIS IS DONE BECARUSE PARM O MAY NOT BE VALID

6491
6492
6493

CONTROLLER ERROR REPORTER ROUTINE

BR
BIT

PC TOPROC

79
#BIT1,E.CONT
]

LORD RK REGS

;ERROR

INTO SREGS

BEG
1578
BEQ
INCB
ERROR

33
DRNRF G
15%
REISSU
66

NO-B ANC
SEE IF DRIVE WARS SIEZED BY OTHER PORT
B IF NOT
SET FLAG TO RE-ISSUE COMMAND
UNSOLICITED ATTENTION

BEQ
ERROR

43
67

No BRANCH
UNEXPECTED DATA TYPE ERROR

BEQ
ERROR

S
70

NO BRANCH
RTTENTION DID NOT RESET WITH CLEAR

BEQ
ERROR

69
71

BR
BIT
BR
BIT

BR
BI

7’3
#BIT3,E.CONT

7%
$BITH, E.CONT
73
#BITS,E.CONT

ERROR 3?

; ERROR 47

ERROR 5?

NO-B NCH
SUBSYS CLERR DIDN’T CLERAR DRIVE ATTENTION

CZR6ABO RKE DR CPT PROG MACY!1 30(1046)

CZRE6GB.P11

02-DEC-77 10:46

652:

031142

032737

6523
6524
6525
6526
6527

031152
031154

031166

104072
032737
001401
104073
032737

031176

104079

6522

031150

031162

031164

6528

031174

6630
6531

031200
031206

6529

6622
6533
6534
6535

6536
6537

6538
6539
6540

031210
031212
031214
031220

6541

031224

6543

031226

6542

031224

00140l

001401

032737
00140l

104052
104075
005037
000137

104407

005037

031232
031240
031244

116537
012700
016520

S4g
6549
6550
6551

031254
031256
031262
031264

105020
116520
105020
016520

6554

031300

042703

6562
6563
6565
6566
6557
6558

6553

6560

031250

031270
031274

031304
031310
031316
031322

031326

031332

6561
6562
6563

031342

6566

031356

6564
6565

6567

031336

000400

003062

6%:

BIT

001000

003062

8%:

ERROR
BIT

002000
100000

003062
003062

9%:
10$:

118:
73

003062
033560

PAGE 128

SEQ 0127

#BIT8,E.CONT

BEQ

BIT

$81710,E.CONT

ERROR
BEQ

72
#BIT9,E.CONT

:BATA LATE WHEN UNLORDING HEARDER

s CONTRULLER ERROR DURING DRIVER SERVICE

108

ERROR

:DRIVE DETECTED PARITY ERROR

ERROR
ERROR
CLR
JMP

&2
75
E.CONT
BGNRTY

;MULTIPLE DRIVE SELECT
: UNDEF INED_ERROR
:CLEAR CONTROLLER ERROR WORD
:GO DO RETRY

BIT
BEG

#BIT15,E.CONT
118

HH *!llllllllll!llilllllll!!il*ll‘ll!!l!lllllll!ll*!lllll!!lllllll
'48TTL REPORT SUPPORT ROUTINE

116520

012700
116503

REPSUP:
005426

000001
001162
000002

000020

000026

016520

000022

016520

000024

016520

000034

031362

016520

P.TRCK(RS)
' (RO)+

BIC

000030

016520
016520

MOVB

177774

001174
000007

016520

031346
031352

ERRCOM

MOVB
MOV
MOV

000012

000004

00125
000010
00001

016520

SAVREG

CLR

CLRB
MOVB
CLRB
MOV

010337
016537
016520
016520

005426

00000S

MOV
MOVB

001260

.CLEAR ERROR COMMAND STORE

P.CMND(RS),ERRCOM :STORE COMMAND START VALUES
#SREGO, RO
;FOR REPORTING
P.CYLNIRS), (RQ)+
(RO)
+
P.SECT(RS), (RO)+
(RO)+
P.WC(RS), (RO)+

#SREGS RO
P.BAHILRS),R3
8177774 ,R3

MOV
MOV
MOV

R3, SREG36
:HI BA BITS
P.BALO(RS) ,$SREG3? :LO BR BITS
P.CSI(RS), {ROJ+ ;GET ALL THE VALUES FROM THE

MOV

P.DCYL(RS) (RO)+’;THE TEMPORARY REGISTERS

MOV

MOV
MOV
MOV

P.CS2(RG)’

(RO)+

:PARAMETER BLOCK AND LOAD

P.OTS(RS), tRO)+ ;FOR REPORTING. ALL THIS

P.WCR(RS)
. (RO)+ ;DATA MAY NOT BE VALID
:FOR _ALL REPORTS (TO BE
P.BAR(RS), (RO)+ ;DETERMINED LATER) BUT IT IS

000032
000036

MOV
MOV

P.ASOF (RS}, (RO)+' ;STORED ANY WAY.
P.DS(RS),
(RO) +

000040

MOV

P.AOO(RS)S, (RO)+

6568
6569
6570
6571
6572
6573
6579

031366
031372
031376
031402
031406
031412
031416

016520
016520
016520
016520
0165208
016520
016520

000042
000044
000046
000050
000052
000054
000056

6E7E€

031422

012701

001236

6575

11:48

CONTROLLER ERROR REPORTER ROUTINE

:%#THIS ROUTINE LOARDS ALL THE PARAMETER BLOCK DATA TO BE REPORTED
'%INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING.
ALL THESE MAY
¥NOT BE INCLUDED IN THE REPORT, BUT THEY ARE LORDED ANYWAY.

6544
6545
6E4E
6547

02-DEC-77

K10

MOV

P.ER(RS)’

(RO)+

MOV
MOV
MOV
MOV
MOV
MOV
MOV

P.BOO(RS)
) (RO)+
P.AOL(RS)
. (RO)+
P.BO1(RS)
) (RO)+
P.A10(RS)
. (RO)+
P.BI0(RS)
| (RO)+
P.AI1(RS), (RO)+
P.B11(RS) (RO)+

MOV

#SREG26,R1

:STORE PREVIOUS COMMAND FOR PRINTQUT

:ADRS OF PRINT BUF RREA

CZRBEUBO RKBE DR CPT PROG MACY!1
CZREQE.P1L
02-DEC-77 10:46

6577

031426

012700

6579
6580
6581
658
6583
6584
6585

031434
031436
031440
031442
031444
(031450
(031452

105021
112021
108021
012021
116021
108021
111021

6587

(031486

016021

031500
031502

104410
000207

6578

6586

6588
6589
6580
6591

6592
6593
6594

031432

031454

Q031462
031466
031472
031474

112021

105021

116003
042703
010321
016011

30(1046)

00Sl1ee

000001

CI0003
177774

000004

(R1)+
(RO)+,(R1)+
(R1)+
(PO)+,(R1)+
1(RG), (R1)+
(R1)+
(RO), (R1)+

MOV

6(RO), (R1)+

;CYL RDDRESS
; TRACK
; SECTOR
; WORD COUNT

HI BA BITS
;LO BR BITS

R NN NARE AR R R R REEERRRRRRE AR AR RRRERRES

REPORT ERROR ROUTINE

lRETURN

RTS

JSR

6599
6600
6601

; COMMAND

3(R0O),R3
8177774 R3
R3, (R1)+
H(RO),(Rx)

SBTTL

;% ENTRY

;DRIVE NO.

(R1)4

RESREG
RTS

g%gg

PC,

pc’

ERRHDL

lTHIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR IS DETECTED
§IN THE OPERATION.
THE RQUTINE DETERMINES WHICH COMMAND WAS
iBEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE.

gggg

6604
6605

031504
031506

104407
152737

6607
6608
6609
6610

031520
031524
031532
031534

005037
032737
001402
012705

eell
6612
6613
6614
6615
6616
6617
6618
6619

CLRB
MOVB
CLRB
MOV
MOVB
CLRB
MOVB

031514

031540
031546
031554

105237

012737
012737
004737

000377

003135

005424
000400
002724

033736
033754
031224

003132

T I

ERRHDL: SAVREG
BISB

INCB

005424

ERZENT:

003056
003054

652%:

CLR
BIT
BEQ
MOV

MOV
MOV
JSR

e Ry

s E

8377, DONE

; SET DONE %

RECODE
SLEVZER,RECODE
sc8
$PRARM! , RS

;CLEAR RECOVERY CODE WORD
;TEST IF 2ND LEVEL ERROR
;NO - SKIP PARAM BLOCK CHRNGE
;ELSE SET RS TO PARAMETER BLOCK

8RETRN£
A. ABNL
SRETNML
| A. NORM
PC, REPS(P

6620

; INCREMENT

6624
6625

ERROR COUNT

IS FOUND SET

REP?RTE

AND

THE REPORTIN
ERMINATED.
IF RDDITIONAL ERRORS ARE SET,

6626

THE RKB11 REGISTER PRINTOUTS

6627

WILL

6628

SHOW TH% ?

REGIS ER CONTENTS MUST BE

6629

HRNURLLY DECODED TO LOCRTE THE

031560

031Se4

016504

032765

000034

020000

000020

MOV

BIT

P.ER(RS),R4Y

sUPE, P C82(RS)

;SE
Ol ABNORMAL AND NORMAL RETURN FOR
;DRIVER OPERATIONS IN ERROR PROCESSING
GO SET ? EG%? ERS FOR REPORT
*NOW BEGIN
NG THE ERROR
BITS THE SEQUENCE IN
NHI HEEN F?
CONSIDER D SI
I CRNT IN
THRT ERRORS OF
R
QRTRETROPHIC NRTURE RRE FIRST
F AN ERROR

6623

6631

ERRCAT

662!l
ebe2

i
6632

SEQ 0128

;ADRS OF PREV CMND STORAGE

(RO)+, (R1)+

MOVB
BIC
MOV
MOV

£596

6606

SPRVCMD, RO

CLRB

000006

129

MOV

MOVB

6595

L10

02-DEC-77
11:48
PAGE
REPORT SUPPORT ROUTINE

EEEOM0
SR
TEST UPE. IF UES-SET
R4

ERROR REGISTER

CZR6GB0 RKE DR

CZReGB.P11

CPT PROG MARCY11l

02-DEC-77

6633
6634
6635

031572
031574
031576

001406
104001
052757

6638
6639

031616
lggg

001406

1"0‘
i
WWNRN
== OO NN O (TM
LNLOCNVOCOOO
Lo

o
o
N
[a¥]

6642

e b ——

Bgd?

OO0O00O00O0D0O0O000000000 00 o000
W W W W W W W
W LW W WL
WKWww W)

gb35 BiieTd 833588

10:v

30(1046)

010000

000020

000400

000020

033236
000020

010000

0000e0

033236

32765
001403
104010
000137

#NED,P.CS2(R5)
338
35
378

OLiVEER RECODE

033236
020000

000016

0c4000

0os424

S¢:

65%:

6%:

00S4eY4
000036

7%:

IF NED 8 UFE BOTH SET

;NED & UFE BOTH SET ERROR
; NED ONLY
; TEST UNIT FIELD ERROR

TES; %; UFE & NED BOTH SET

REPORT NED 8 UFE BOTH SET

; REPORT UFE ONLY
378
ggHDTO P.PRST(RS,

00s4e4

000014

DRIVE

000400

41¢%:

NON-EXISTANT MEMORY

; TEST

:?ao?osRECODE

40%:

; TEST

SUFE,P.CS2(RS:
38%
35
37s
3
37%
BUFE,P.CS2(RS)

00S424

4%:

;REPORT ERROR

; TEST NON-EXISTANT

8820o

838584 883518

032074
032076
c32100

39:

SEQ 0129

ggED,P.CSE(RS)

000014

0315ey
010000

001406
104007
737

e3:

39%:

033236

104006
052737

1
iRSORT,PECODE

033236
000100

033236

837488

130

2
2
$9ORT, RECODE

38%:

033236
000400

M10O

M,P.CS2(RS)

000020

005424

BEQ
ERROR

005424

ik gagg%p

032765
001412
832785
01403
104035
000137
104003
000137
032765
00ld1e
032765

02-DEC-77
11:48
PAGE
REPORT ERROR ROUTINE

5
378

Phedor”
END TIMEOUT

I TIMEOUT PROC?

; GO PROCESS TIMEQUT

- SKIP TO ERROR SB

YE ST IE YEVEY B RBOR,

ELSE MAKE FULL TIMEOUT REPORT

; TWO TIMEOUTS ERROR REPORT

EREENT

€0 abVB-aRB

378

#DRVSZD,P. PRST (R&)

37%
#SPAR,P.CS1(RS)
63
6
$RCLREQ, RECODE
37g

$DRPAR, R4

73
7

SRCLREQ,RECODE
37%
#ACLO,P.DS(RS)
8%
10
3793

HAKE 28D’ REPORT

; SEE_IF DRIVE SIEZEO BY OTHER PORT

BBIE BB EYED TRV PYo e ABkS

;TEST D

TO C PRARITY ERROR

; TEST DRIVE DETECTED PRRITY ERROR

; TEST

LOW

N10O

CZR6QBO RK& DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 131
CZR6GB.P11
02-DEC-77 10:46
REPORT ERROR RGUTINE

6689

032104

032765

000020

6693

032122

032765

004000

032134

032704

000001

€630
6691
6692

6694
6695

6696

032112
032114
032116

032130
032132

001403
104011
000137

001401
104027

033236

6697
€698
6699

032140
032142
032144

001403
104012
000137

6701
6702
6703

032156
032160
032162

001403
104013
000137

6705
6706
6707

032172
032174
032176

001403
104014
000137

6709
6710
6711

032206
032210
03eele

001403
10401S
00137

033236

6714
6715

2224
032226

104016
000137

033236

6700

6704

6708

671e
6713

6716

032150

032166

032202

03celeé
8%2222

032765

032704

032704
0014GC3

6726
6727
6728
6729

032274
032276
032300
032306

001406
104021
052737
000137

032316
032320
032322
032330

001406
104022
052737
000137

6730

6731
6732
6733
6734

6735

6736
6737
6738
6739

6740
6741

6742
£743
6744

032270

032312

032334

032340
032342
032344
032352

032356
032364

032366
032370
032376

032704

001406
104023
052737
000137

032765
001406

104024
052737
000137

BI"

2ss:

000020

12%:

i39%:

148:

033236

000200
033336

001000
004000
033236

002000
004000
033236
000040

005424

004000
033236

005424

000036

;TEST FOR CONTROLLER TIMEOUT

#ILC,RY

; TEST ILLEGAL FUNCTION COOE

#PGE,P.CS2(RS)

; TEST PROGRAMMING ERROR

sILF,RY

; TEST ILLEGAL DRIVE FUNCTION

#DTYE, R4

; TEST DRIVE TYPE ERROR

$FMTE, R4
148

; TEST FORMAT ERROR

SWLE,RY

; TEST WRITE LOCK ERROR

SUNS,RY

; TEST DRIVE UNSRAFE

#SKI, RY

; TEST SEEK INCOMPLETE

#COE , R4

; TEST CYLINDER OVERFLOW

#IDRE , R4

; TEST ILLEGAL CYLINDER

#DROT,P.DS(RS)
203

;TEST DRIVE OFF TRRCK

ccs
27

BEQ
ERROR
JMP

108
12
378

BEQ
ERROR
JMP

118
13
378

BEQ
ERROR
JMP

128
14
373

BEQ
ERROR
JMP

138
15
378

ERROR
JMP

16
37%

BEQ
ERROR
JMP

158
17
37%

BEQ
ERROR
BIS
JMP

163
20
$ABORT ,RECODE
ALLTRM

BEQ
ERROR
8IS
JMP

179
21
$RCLREQ,RECODE
37%

BEQ
ERROR
8IS
JMP

18%
22
#RCLREQ, RECODE
37%

BEQ
ERROR
BIS
JMP

199
23
$RCLREG, RECODE
3793

BIT

BIT
BEQ

BIT

17%:

BIT

18%:

BIT

19%:

8CTO,P.CS1(RS)

BEQ
ERROR

16%:

005424

; TEST SPEED LOSS

24s
11
373

BIT

00S4eH4

#SPDLSS,P.DS(RS)

BEQ
ERROR
JMP

15%:
00S424

000002
004000
033236

108:

11%:

000020

040000

001406
104020
052737
000137

a4%:

000040

032704

032252
032254
032256
032264

000016

033236

032246

6721
6722
6723
6724

BIT

000004

004000

001403
104017
000137

83:

033236

032704

032236
032240
032242

6725

002000

03ec232

6717
6718
6719

6720

033236

000036

BIT
BEQG

ERROR
BIS
JMP

SEQ 0130

24
#RCLREQ, RECODE
37%

CZR6UBO RKe6 DR CPT PROG MACY11

CZR6GB.P11

6745

032402

02-DEC-77 10:46

032704

6746
6747
6748
6749
6750
6751

032406
032410
032458
0324
Q3244
032432

001406
104025
2737
0137
276S
001403

6753
6754

032436
032442

000137
704

6752

032434

104026

010000
800200
033236
100000

(032446
N22450
032456

1470
052737
105737
0e

000010
003130

6760

032470

032737

000400

6762

032500

104054

6764
6765
6766
6767

032506
03251
030516
032524

6769
6770
6771
6772
6773

032532
032540
Q3cade
032554
52

6761

6763

6768

6774

6775

6776
6777
6778
6779
6780

6781

6782
6783

6724

6785
6786
6787

6788
6789
6790
6791
6792
6793

032476

032502

032526

001403

000137

004737
4737
032737
001036
013702

003143

001403
105037
000401
1043
052737

032622
032624

104054
000137

032630

032634
032636
032644

032650
032652
032656
032664
032666
032670

6794
6795

032674
032700

6797

032712

003046

105737

032576
032600
032604
032606
032610

032616

03444
034134
000400
000100
000024
000Co4
000624
100000

00134

000137

032704

001457
052737
105737

001402
000137
032737
001403

104055
000137

004737
004737

000020

033236

22s:
00S424

O00S424

6798
6793
5800

032714
032720
032726

013702
042762
016237

SO0S:

003130

033236
000400

378
80PI , RY

BEQ
S

29s

8O0PIERR, RECODE

; TEST

IF OPI ERROR

DERCNT

; TEST

IF FIRST ERROR

378

;NO

SKXP REPORT

268

*HAS ALREADY OCCURRED

S0$

SLEV2ER,RECODE

BIC
MOV
MOV
MOV
BIT

8I1E,RKCS1(R2)
RESET INTERRUPT ENRBLE
RKDB (R2),SREG10 ;FOR REPORTING
RKDB(R),»SREG11
RKDB(R2) SREG12
8CERR,RKS1(R2) ;TEST IF ERROR DURING STORAGE

IMP

MOV

54¢:
558:

308:
518:

318:

:TEST IFA SECOND LEVEL 2 ERROR

PC, BLDEXH
PC, ROHOO
oLtveen RECODE
H

0O0S424

000000
001202

;TEST DATA LRTE

ISR
JSR
BIT
BNE

29s:

034444
034134

; TEST DRIVE TIMING ERROR

268:

288:

033236

003046
000100
000024

JMP
BIT

37¢

RKBAS , R2

;GET_OUT OF ERROR REPORT

$GO_BUILD EXPECTED HEADER
:GET_HEADER OF SECTOR O
;TEST_IF ERROR GETTING HOR
'1F YES-GO MAKE ASREVIATED REPORT
STORE HEADER O_INTO REGISTERS

BNE

278

BEQ
CLRB
BR
ERROR
BIS

54§
ERRCNT
55§
30
BRCLREQ,RECODE

:BR_IF NOT
CLEQR ERROR COUNT
: CONTINUE
'MAKE_OPI REPORT
;SET RECALIBRATE REQUEST BIT

54
ER2ENT

;GO _MAKE 2ND LEVEL REPORT

23
8HVRCER
, RECODE
DERCNT

; JEST_IF FIRST ERROR

TSTB

O0OS424

80TE,RY

2ls
25
8ABORT, RECODE
37
#0LT,P.CS2(RS)
22%

SEQ 013!

ERROR

000000
001202
001204
001206
000600

000400

Bll

132

278:

COS424

00S424

PAGE

BEQ
ERROR
BIS
JMP
BIT
BEQ

031524
000004

BIT

ERROR

6796 032704 032737 000400 005424
001025

21§:

003135
004000

11:48

REPORT ERROR ROUTINE

0os4eY

033236

Q42762
016237
Qlbed7
016237
032762

032570

032572

033236

02-DEC-77

20s:

033236
020000

6755
67%
6757

137

30(1046)

TSTTYP

JHMP

37§

BIT

S$HVRC , R4

ERROR
JHP
BEQ
BIS
75TB

BEG
JHP
BIT
BEQ

ERROR
IMP

ISR
JSR

BIT

BNE

MOV
BIC
MOV

308
378
BLEV2ER,RECODE
318
37s

P, BLDEXH
ROHDO

; SEE IF READING WITH OFFSET

'TEST IF HVRC ERROR

:YES - REPORT
; JUMP TO RETURN
;TEST IF R 2ND LEVEL ERROR HAS ALRERDY
:OCCURRED. NO-SKIP EXIT
;GET_OUT OF ERROR REPORT

GO BUILD EXPECTED HEADER
!GO GET HOR O

WLEVER. RECODE TEST IF_ERROR IN GETTING HOR
2s

:IF_YES-GO MAKE ABREVIATED REPORT

RKBAS, R2
iGET RKB11 BASE ADDRESS
1€, RKCS1(R2)
iCLEAR INTERRUPT ENABLE
RKDB(R2),$REG10 ;STORE OFF HERDER

CZR6GB.PI11
6801
6802

032734
032742

PROG MACYl1l

02-DEC-77

10:46

016237
016237

000024
000024

Br R Whm

30(1046)

032762

000137

033236

6809

032774

032704

000200

6812

033010

6820

116501

RKDB(R2) ‘ngé§
§C§RR RS
s TEST_IN ANY

23%:

033034
033040

004737
032737

030042
001000

033050

105737

003143

6825

033266

042737

000002

6827
6828
6829
6830
6831

033076
83 18
033104
0331i2
033116

032704
80 H%;
0527
032704
001406

100000
000020
000100

683
683

033134

83 IHZ
3314

MDMD
0D

005424

317

8 317

684S
6846
6847

00000f

003130

001206

004737
016537
016537

034310
000060
000062

0137

033236

033206
033214
033222

042737
0S2737
105737

000200
000100
003130

6849
6850

033230
033234

004737
104033

034310

6852
6853
6854
68SS

033236
033244
033246
033250

032765
001404
104036
052737

000C20

000014

000200

005424

SST EBRSR FLAG

37%
104

:CONTIN'E
'ELSE R_PORT BAD BSE

8BSERR,RECODE
37%
5ggx,nq

:CLEAR ERROR COUNT

;RESET BSE ERROR F_AG
'GO EXIT
:TEST IF DATA CHECK

8DCKERR,RECODE

;SET DATA CHECK ERROR IN RECOVERY CODE

348

:YES SET UNCORRECTABLE IN
:RECOVERY FLAG AND R O IN

8ECH, RY4

$ECCNC, RECODE
SREG12
35

;hcn

:TEST IF ECC IS HARD.

‘REGI2 TO INDICATE UNCORRECTABLE,
‘A 1 IN REG 12 FOR CORRECTABLE

s TESTSKIP
IF REPORT
FéRgT ERROR

!NO

PC,GTPKAD
:GO GET PACK ADDRESS OF ERROR
P.EPOS(RS), SREGIb; STORE ECC POSITION &
P.EPRT(RS,
' SREGLI1
:PATTERN

001202
001204

2765 848880 000020

8RR ARTEO RS EEROBRERRT

TEST FOR BRD SECTOR ERROR

1BR 3 sT

SREG12

34%:
35%:

]
gNCE,P.CS2(RS)

368:

00S424
00S424

Rtponr DCK ERROR

;TEST WRITE CHECK ERROR

$AL .RT,RECODE

;CLEAR ABORT & SET WRITE

gEgC

TEST IF FIRST ERROR

INCERR RECODE

o
0

033150
033154
033162

S737
1033

SHOR

gss

RRCNT

PC,GTPKRD
33’

:CHECK ERROR IN RECODE

GOGE?
ADDRESS OF ERROR
iREPORT WCE

:8§VHRD,P.PRST(RS)

37%:
o
P

6838
6833
6840

012737

568:
33%:

S s ned mnop o
6834

MAKE FJLL REPORT

(n
SECTOR
9T ;
3ET
93
ALL afrs
EXCEPT SECTOR
O SEE IF THIS SECTOR LISTED
39Aossc RECODE YE?T RE%?* NO ERROR C REPORT
TSTTYP
:SEE IF REROING WITH OFFSET

005424

00S4e4

ERRQR_IN V"bEQBRT

MAKE

NO.
EET ?chx
1 :CLEAR
8?;&%73%5R3
1777?% Rl
ALL BITS EXCEPT TRACK

00002

177?;4

cecs 833980 84033 ooaias

6835

'gERR RECODE

0003

2701

033132 880483

Soenr
#BSE, RY

328%:

ggi? 833888 Bgé;gg 000002 00S424
3020

SEQ 0132

RKDB(R2),$REG1]

001204
001206

BEBE 835758 084D oaiseu
33014

Cll

133

PIY YES - "GO

6806

016

02-DEC-77
11:48
PAGE
REPORT ERROR ROUTINE

OO MmO
D MM~
D=~
DO +4UNO
4
O

CZR6@B0O RKE DR CPT

35
#$ABORT,RECODE

; TEST HARD ERROR

CZRBABO RKE
CZFB6EB.P11

6857
6858

CPT

PROG MRCYI11l

30(1046)

0e2-DeEC-77

10:46

033256
033264
033266
033270

032765
001404
104037
052737

000040

000014

000200

pos4ed

033276
033304
033306
033310

032765
001404
104040
052737

004000

000014

000200

00S4eH4

033316
033324
033326

032765
001404

000010

000014

000200

005424

033330

02-DEC-77
11:48
PRAGE
REPORT ERROR ROUTINE
43%:

44y

Y46$:

BIT

BEQ
ERROR
BIS
BIT

BEQ
ERROR
BIS

BIT

BEQ
ERROR
BIS

D11

134

SEQ 0133

SRQVDSC,P.PRST(PS)

; TEST

STATUS CHANGE

NOT

CLERRED

37
8ABORT, RECODE

.ggDSC,P.PRST(RS)

; IFST ATTENTION BUT NO FAULT OR DSC

#RBORT, RECODE

SUEXATT ,P.PRST(RS)
ALLTRM
4y
#ABORT
, RECODE

;TEST UNEXPECTED RTTENTION

;ALL ERRORS MUST EXIT THROUGH THIS POINT
33336
33342
033350
033354

ALLTRM:

033356
033364

Q33402
033406
033414
033416
033424

013702
032762
001004
052737
82044;

033434
333436

0014

033444

033452

033540

000200

479
SABORT, RECODE

{RECALIBRATE REQUIRED BIT IS SET
'ELSE ABORT WITH ABORT MESSAGE

cngsgsg
TEST IF DRIVE REQDY SET

ISSLREQ RECODE FOR
;IF RECALIBRATE
ISPREOUIRED
RE RY SET UP

47%:

BGNRTY

cnnotnsi BLOCK ro Do IT.
Egggtp
PC onch
ano PARM1

AVE

PARM] , PARMO
#DCKHOL , A. RBNL
EEITYP

003143

031504
000400

003056
00S4eY

000200

00s4e4

031524

F RBORT IS NOT st

THE DRIVE xs RERDY (Hns NOT

004000

: RESTORE_PARAMETER BLOCK SELECTION

:SET READ ERROR HANDLER
: SEE }F RERDING WITH OFFSETS

4gs

RKBAS,
R2
8RDY, RKDS (R2)

815783 093736
030146
013737 832?24
8127%7

052737
104060
000137
104061

sDCKHDL
,R.ABNL
TSTTYP

8ABORT, hscooe

0}3;37

105737
001003
012737
032737
001416

#PARMO, RS

EEénHo
A. ABNL SR: REE NTERRUPT V crons FOR RETRY
SERRFRE A" NORM S‘f‘VS OPERATIONS %

208%:

033372
033400

03§H§6

MOV
MO

S0%:

489%:

JM
ERROR

SERRHDL ,A.ABNL
ILEVEERJRECODE
BGNR
OQBORT RECODE
60

EREENT

; THE_PROGRAM WILL HALT HERE

COMMAND

: RESTORE COMMAND
,s T READ ERROR HANDLER

:SEE

IF RERDING WITH OFFSETS

iBR_IF YES
;RESTORE ERROR RETURN
;IF AN SRROR OCCURRED IN THE
iRECAL ATTEMP SET ABORT
:PRINT THS RECAL ERROR MESSAGE, AND
:GO REPORT DETRILS
; REPORT ABORT-RETRY FRILED

IF THE ABORT FLAG HAS BEEN SET OR

:IF THE DRIVE READY BIT IS RESET
033542
033544
023546

000005

000000
105037

HLTPRG:
003135

DISQBLE ALL DEVICES

RESET
CLRB

ERRCNT

iHALT THE CPU
iCLEAR ERROR COUNT

Ell

CZR6GBO RKE DR CPT PROG MACY1l 30.1046)
02-DEC-77
11:48 PRGE 135
CZRB6GB.P11
02-DEC-77 10:46
REPORT ERROR ROUTINE
6913

ggig

033552

0335584

00000S

000137

RESET

012236

JMP

6916

SEQG C134
;RESET ALL DEVICES

CMSTRTY

6917

;THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR

6919
6920

; THE INITIATING ROLTINE FOR RETRY. ANY O"HER ERROR ISTO BE
RETRIED HERE. IF RETRY IS UNSUCCESSFUL AFTER 4 ATTEMPTS, THE ABORT

6918

HRS OCCURRED. IF YES,

235%
6923

6324
6925
6326
6927

6928

FLRG IS SET AND PROGRAM HALTS.
033560

033566
(033570
033576
033600

033600

032737

001404
052737
000453

10S737

6929
6930
6931
6932
6933

033604
033606
033614
033616
033624

001371
032737
001044
123737
001012

6335

gg 632

113737

6934

033626

00S037

6936
63937
6938

640
033642
033650

104102
052737
000734

6943
6944

033674
033676

(012025
012025

6939

033652

013702

000136

00S424

BGNRTY: BIT

100000

005424

99:
33%:

003150

001000

00S424

00313

003136

001174

003135

001174

000200

005424

003046

940 033656 112765 000177 000001
6941 033664 004737 030146
6942 033670 012700 00S176

6945
6346
6947
6348

6949
6950
68951
6952
6953

0337?00
033702
(033704
033706

002640
000000
030146
003135

033734

6357

033736

152737

000377

5359

033752

000207

6961

3762

000207

0003?77

6956

033710
033714
033722
033726
033732

0120625
012025
012025
818025

0127058
012737
004737
105037
104410
000207

gggg

NORTRY

177776
23:

6960

003132

RETNML:

BR IF YES
TEST IF BAD SECTOR FLAG SET
IF YES-EXIT TO CALLER
BEGIN RETRY IF ERROR COUNT HRS
NOT BEEN EXCEEDED

MOVB

ERRCNT, SREGS

;GET ERROR RETRY COUNT

SREGS

102
$RABORT, RECODE
HL PRG

REPORT RETRY UNSUCCESSFUL
SET ABORT & QUIT

RKBR

GET RK BRSE ARDDRESS

(RO)Y+, (RS) +
(R0)+,(RS)+

QS IT WAS ENTERED INTO THE
PRRRMETER BLOCK

MOVB
JSR
MoV

ISUBCCR P. CMND(RS) SET UP TO CLERR SUBSYSTEM
RVCAL o 80 IT
OCOMSTR RO
GO AND REESTABLISH THE COMMAND

MOV
MOV
MOV
MOV

(RO)+, (RS)+
(RO)+, (RS)+
(RO)+, (RS)+
(RO)+,(RS)+

MOV
MOV
JSR
Ci.RB
RESREG

sPRRM0, RS
#PRO, akPSW
PC, DRVCAL
ERRCNT

RTS

BISB

2377

RTS

BIS

BISB

:LOWER PRIORITY TO ALLOW INTERRUPT
CRLL DRIVER
CLEQR ERROR COUNT
IF RETURN GETS HERE, NO ERROR
OCCURRED RECOVERY WRS SUCCESSFUL

;SET DONE

8377 ,00NE

;SET DONE

lLEVéER RECODE SET LEVEL TWO ERROR

6964

S 2

69E6

: ¥THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS

6965

6987

£968

;SEE IF "NO-RETRY" FLRG SET

93
$BADSEC, RECODE
23
ERRCNT,ERRLMT
19

MOV
MOV

RETANL:

1S2737

1STB

BNE
BIT
BNE
CMPB
BNE

MOV

(003132

0337S4

39
$ANYDER, RECODE
2s

ERROR
BIS
8R

18:

SBSERR'HVRCER!'OPIERR!DCKERR! WCERR,RECODE :TEST IF ANY DRTA ERROR

BEQ
BIS
BR

CLR

6358 033744 (052737 000400 00S4e4
£ae5

THE RETRY IS NOT DONE HERE BUT RETURNS T0

QBTTL

600 0000 3000 06 06 0 000 00 06 3 003 36 06 36 0 006 336 36 06 00 3 30 36 3600 6 96 36 3606 36 00 0 23600 30 20 00

TIME OUT PROCESSOR ROUTINE

!GQTHEPING DUTIES.
R

itz

TSR

ISR 2222222222222 222 20

CZRH6QBO RKH DR CPT PROG MACY1l
CZREGB.P1I
0c-DEC-?7 10:46
6969
6970
6971

033764
033764
033766

6972
6973

033772
033776

6975

034006

6974

(034002

104407
013702

003046

MOV
MOV

8SREGS, RI
:SET UP Rl FOR RK REGISTER STCRAGE
RKCS1(R2), (R1)+ :STORE ALL VALID RK611l

016221

000020

MOV

RKDC (R2), tR1)+

016221

000010
000006
000002
000004

6981
6982

034036
034042

016221
005000

000014

6985

034044

012705

002724

6989
6990
6991
6992
6993

034070
034072
034100
034104
034106

001403
052737
062705
012521
012521

016221
016221

MOV

000016
000012

6994
6995
6996
6997
6998
gggg

034110
034112
034114
034116
034120
034122

012521
012521
012821
012521
012521
012521

7001
7002
7003
7004

034124
034130
034132

012705
104410
000207

002000
000040

005424

002640

7007

7011
7012

'48TTL
034134
034136

104407
016501

nxoatns),(nx)+
RKWC(R2)
. (R1)+
RKBA(R2) (R1)+

MOV
CLR

RKER(R3)
| (R1)+
RO

MOV

#PARM1 . RS

000026

000052
160017

T UP TO USE PARM

oRosrnf P. CHNO(RQ) -DO READ DRIVE STRTUS COMMAND
vCAL
CcAlL DRIVER
ccfioro P.PRST(RS’ TEST FOR TIMEOUT

MOV
MOV
MOV
MOV
MOV
MOV

(RS)+, (R1)+
(RS)+. (R1)+
(RS)+. (R1)+
(RS)+. (R1)+
(RS)+. (R1)+
(RS)+. (R1)+

is
oruoros RECODE
#P.A00, RS
(RS)+, LR1)+
(RS)+. (R1)+

Nb SKIP
:SET TWO TIMEOUTS FLAG
:BUMP RS TO POINT TO DRIVE STATUS
‘MOVE ALL THE DRIVE STATUS INTO THE
'TEMP REGS FOR PEPORTING.

#PARMO, RS

;RESTORE

AER TR

SAVREG
MOV

034142
034146
034152
0341549
034156
034160
034162
034166
034172

016500
042700
006200
006200
006200
006200
012705
010165
010065

002724
00000M
000002

MOV
BIC
ASR
ASR
ASR
ASR
MOV
MOV
MOV

7024

034212

004737

030146

JSR

MOVB
MOV

PARM O

RERD HERDER O ROUTINE

7013
7014
7015
7016
7017
7018
7019
7020
7021

7022 034176 112765 000177 000001
7023 034204 012737 000000 177776

:THIS CODE WILL ATTEMPT TO

SEIRéEVE THE STATUS FROM THE

MOVB
JSR
BIT

&bHDO:

:REGISTERS

RKASOF (R2), (R1)+
RKDS(R2), (R1)+

MOV
RESREG
TS

7008

034134

MOV
MOV
MOV

BEQ
BIS
RDD
MOV
MOV

18:

43
7009

RKCS2(R2) . (R1)+

MOV
MOV

6986 034050 (12765 000141 000001
6987 034056 004737 030146
6988 034062 032765 000100 000014

7010

RKBRS,R2

001174
000000

016221
016221
016221

Egga

SAVREG
MOV

SEQ 0135

012701
016221

034012
034016
034022

034026
034032

F11

02-DEC-77
11:48
PAGE 136
TIME OUT PROCESSOR ROUTINE
TOPROC:

6976
6977
6978

6979
6980

30(1046)

P.DTS(RS),R1

LR EERAEEERERERRERERREL
RS

E R EERRENLEAEEREREEEREERERRRRE

:STORE

TRACK

AND

SECTOR

P.B10(RS) RO
#160017,R0
RO
RO
RO
RC
8PARM] . RS
Rl P SECT(RS)
CYLN(RS)

'GET THE CYLINDER ADRS
:FROM THE DRIVE STATUS. CLEAR
POFF UNUSED BITS AND POSITION
'FOR USE AS THE DESIRED
'CYLINDER IN THE RERD
HEADER connnno
'SET UP TO USE P.B. !
;INSERT TRK,SECT FOR READ HDR
:SET CyL o

PC, DRVCAL

SINIT THE
S

OSUBCLR CHND (R&>
S.S. CLERR CMND
$PRO, s@ #su
;ALLOW xfirsnnuprs

Gll

CZRHGBO RKE DR CPT PRO- MACY1l 30(1046)
02-DEC-77
11:48 PAGE 137
CZR6GB.P11
02-DEC-77 10:46
READ HERDER O ROUTINE
7025

034216

7052

834535

7030

034246

013762

7032

034262

001774

7006
7027

7031

7033

7034
7035
7036

;ggg

112735

000125

000001

8 2792

000200

000000
000000

G°4410

000000

000020

000007

03424
034230

004737
013762

Y49y

1774

034254
034264

032762

142765

034272
034300

1537656
012705

03430e

000207

034304

104410

030146
024406

0LJ200
003134
002640

000000

MOVB

248:

26%:

;SET RERD HEADER COMMAND

PC, DRVCAL
;00" A READ HERDER
HOLD1,RFCS1(R2) ;DO A RERD HOR, WITH FMT BIT = O

BEQ

o4s

BIT

$R0Y ,RKCS1(R2)

BIT

MOV

8ROY,RKCS1(R2)

;WRIT FOR READY

HOLD2,RKCS1(R2)

;D0 A RERD HOR,

WRIT FOR READY

WITH FMT BIT = 1

BEQ

268

B1SB
MOV

FORMAT,P CSIH(RS) ;RESTORE TYPE AND FMT IN USE
#PARMO . RS
:RESTORE P.B. O ADDRESS

RTS

RESREG

7039
7040

8RDHERD,P.CMND(RS)

JSR
MOV

BICB

000067

SEG 0136

#B.CFMT.F.CS1H(RS)

:CLERR THE FORMAT BIT

:RESTORE RO-RS

*RETURN

7041

M 1 Y121222222222222222222222222222:222323222222222 23X222222222222 8

7043

7042

7044

7045

7046
7047

7048

7049

7050

7061

7052

"8BTTL

034310

016537

000030

034322
034326

005037
116537

001200
000026

034316

034334

005037

116537

0343492

032737

034352

005737

034350

001034

7053

034356

001403

7055
7056

034364
034366

000426
032765
001404
012737
000403
012737

7084

034360

7057

034374

7061

034414

7058
7059
7060
7062
7063
7064
7065

7066

7067
7068

034376
(034404
034406

034420
034422
034426
034430

034436

034442

005337

005737

001403
005337
00040S
012737

005337
000207

001176

000027

000004

001174

GtPkARD: MOV

CLR

CLR
MOVB

001200

001176
005424

000016

000023

0601200

000025

001200

001174

BEQ

2%:

W4%:

BEQ
DEC
BR
MOV

3%:

001176
000002

S§

BR
BIT
BEQ
MOV
BR
MOV

1%:

001176

5%:

7069
7070

7071

SREG?
P.DTS(RS),$REG?

BNE

DEC

010000

$REGH

P.DTS+1(R%), SREG

TST

001200

P.DCYL(RS),SREGS ;GET CYLINDER NUMBER

MOVB
BIT

001200

001176

GET PACK ADDRESS ROUTINE

22222 2222222222222
2222222222222
2222 23

TST

DEC

RTS

:{LEAR REGISTERS FOR

:JRACK & SECTOR STORAGE
:STORE THE TRACK AND SECTOR

$HVRCER,RECODE

;SES IF HVRC ERROR

SREG?

-ADJUST THE ADDRESS CONTAINED IN

'BR

IF YES

:YHE RK REGISTERS FOR THE AUTOMATIC
: INCREMENT

$REG?

3
#CFMT,P.CS1(RS)

$19.,SREG?
33
#21., SREG?

SREGE

4g
$REGH
53
82, SREGH

$REGS

HH 363 36 36 3 3 36 36 36 36 3 3 3 3 3 3 36 3 3 3 3 3 3 3 I 3 3 3 3 3 I J 3 I 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 9 % J W% % % % % %

BUILD EXPECTED HEADER

7072

'4BTTL

7074

%WHICH HEADER WRS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND

7073

:%USES DESIRED CYLINDER,

7075

7076

:%7 FOR REPORTING.

7077

034444

7079
7080

034454
034460

7078

TRACK AND SECTOR REGISTERS TO DETERMINE

034446

104407

016537

016501
042701

o o Jo 363303636 36 36 36 3 36 3 3 3 3 36 3 36 3 36 3 3 3 3 3 36 3 3 36 3 3 3 3 3 ¥ 3% 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3% 3% 3 3 3 3% 3¢ % % % ¥ % %

000030

000026
174377

001174

B8CDEXH: SAVREG
MOV

MOV
BiC

P.DCYL (RS),$REGS

:CONSTRUCT EXPECTED HDR

P.DTS(RG),R1 ;DESYRED CYLINDER & DESIRED TRACK
2174377 .R]
:CLEAR ALL BUT TRACK BITS

CZR6@BO RK6 DR CPT PROG MACYI11l
CZR6GB.PIL1
02-DEC-77 10:46

7981

7o8

34464
34466

034470
034472

7986 834282
7088

5893
7

034512

2938
7833
7098
~096
7097

70Se

7099

034566
034570

11:48
PRAGE
02-DEC-?77
BUILD EXPECTED HERDER
ASR
RASR
ASR

006201
006201
006201

016537

000026

6??74

0117
140000
010000

001000
001174
881176
1176
001174

7091

30¢1046)

001200

H1l
;AND SECTOR. SHIFT THE TRACK
;OVER TO CONFORM TO HEARDER FORMAT

Rl
R1
Rl

001176
001176

P.DTS(RS),

001176
000016

#140000, SREGE

001176
001200
001200

SREGE

0177748 SREGE

R1,SREGE

8CFMT,P.CSI(RS)
238
239%:

#1000, SREGH

sgsgs,gasc7

gREG%ZSéEG?
$REGS 'R1

R1,SREG?
PC

SEG 0137

138

§ggigéTTHgsgofiflETHEABEQNPORnnT

i ebb

rAck BRD 2BETOR roceTHER

' INSERT BSE BITS

; COMPUTE THE HERDER VRC

CZRBQBO RKE DR CPT PROG MACY]11l
CZR6GB.P11
02-BEC-77 10:46

30(1046)

I11

02-DEC-77
11:48
PAGE 139
RK611/RK06-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERRARTIONS (REV.
.SBTTL

0N .LWMR—

NN EL £ £ £ LLL L L WWWWWHLWWWLWGWNNININ
RN
= e e be e b 000000000

7100

; XCOPYRIGHT

(C)

1975

OPERRTIONS

(REV.

1975 1977

:%DIGITAL EQUIPMENT CORP
: sMAYNARD, MA. 01754
: *AUTHOR: ~ROY smzsn
.SBTTL

OO0
N LW—-OWRONCNLWNN—ODONCINLWN—~DOMNN
LW
0O0m NN LW

NN NN NN NN NN NN N N NN NN NN N NN NN NN

RKb11/RK06-RKO? UNIBUS DRIVER FOR SEQUENTIAL

0.10)

)
!
'
!

'
!

,
’
|
!

B 060606

*
*
*
*

X»
*

*
9
!

¥
*
.
l

'
’
'

*
E

*
*

% CALL
*
E
l
'

’

’
’
!

!
’
!

034572

010546

010446
010346
010246
013746
005337
001034
013737
105737

003070
003110

034636
034642

013702
005337

003046
003124

001426

177776
003066
003066

034630 013737 003052 177776
034646

001016

#
*
*

306000000 0

TIMER

000006 00

000 00 0 T 0000 00 06 0

000 00 0 R0

00 00 0 0

THE WATCH-DOG TIMER DOES
A PSEUDO-TIMING OF RK06 RKO? UNIBUS

SUBSYSTEM COMMAND.

SINCE ONE CAN NOT_GURRANTEE
T

REAL-TIME CLOCK (KW11-P OR KW1l-L) IS ON THE SYSTEM
THE RKO6-RKO7? DRIVER WILL USE _THE LOCATION W.MTIM FOR
MILLI-SECOND TIMING. WHEN W.MTIM REACHES ZERQO THE
WATCH-DOG TIMER WILL SCAN THE ORIVES IN _USE RS

DETERMINED BY TH%V% Cfl;ION
W.TIME.

THE TIHER COUNTS

(ONE FOR EACH DR
) _ARE EPT IN THE TRBLE W.DRY.
IF ANY COUNT IN THE TABLE W.DRV_REACHES ZERO A _COMMAND
TIME-QUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STARTUS

USE

THE LOCATION W.MIN RS

THE NUMBER

OF MILLISECONDS FOR AN UNLORD OR START SPINDLE_COMMAND.

THE DRIVER WILL USE THE LOCATION
LIMIT FOR ALL OTHER COMMANDS.

W.SEC

THE

TIME

FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL
WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL

OPERATIONS ONLY ONE OPERATION WILL BE WARTCHED.

JSR
RETURN

PC,W.WTCH
IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADDRESS
BY LOCRTION A.ABNL WILL OCCUR AND THE CMDTO FLAG
IN THE PROGRAM DEVICE STRTUS REGISTER OF THE

APPROPRIATE PARAMETER BLOCK WILL BE SET.

3 33 36 96 96 36 96 3 36 3 36 36 36 36 36 36 36 36 36 36 3 36 38 36 36 36 36 36 3 36 36 36 36 3 36 3 3% 3 3 3 3 3 3 6 3 3 3 3% 36 3 36 3 3 3% 3 3 3 4 3 3 % % %

W. WTCH:

034574
034576
034600
034602
034606
034e6le
034614
034622
03426

#WATCH-DOG

MOV

RS, -(SP)

;SAVE RS ON THE STACK

MOV
MOV
MOV
MoV
DEC
BNE
MoV
15718

RY,-(SP)
R3,-1SP)
Re, - (SP)
PS,-(SP)
W.ATIM
208
W.MILI,W.MTIM
W.TIME

iSAVE R4 ON THE STACK
:SAVE R3 ON THE STRCK
:SAVE R2 ON STACK
:SAVE_PROGRAM STATUS HORD ON STACK
DECREHENT MILLISECOND TIMER
:IF _NOT_ZERO RETURN
REINITIQLIZE MILLISECOND TIMER
CHECK IF DRIVE IS BEING TIMED

MoV
DEC

RKBRS, R2
W.DRY

;LOAD BASE OF RKOG-RKO? REGISTERS
:DECREMENT COMMAND TIMER

BEQ

MOV

BNE

20$

RKPRI,PS
203

ETURN

LOCK OUT RKO6-RKO7 INTERRUPTS
:RETURN

TIME

OUT

SEQ 0138
0.10/

CZRBQBO RK6 DR CPT PROg MACY1ll
CZR6GB.P11
02-DEC-77 10:46
7156

034650

105037

034654

013705

003122

21589
7160

034660
034666

0S2765
020537

000100
003064

034672

001002

034674
034700
034704
034710

005037
004737
012637
012602

034716

012605

7161
7lee
7163

7164
716S
7166
7167
~168
2169

034712
034714

7171

034720

7170

012603
012604
Q000207

02-DEC-77
11:48
¥WATCH-DOG TIMER

003110

7157
7158

30(1046)

003064
040154
177776

CLRB

000014

5%:
20%:

PAGE

J11

140

W.TIME

SEG 0139
;RESET

TIMING

INDICATOR

MOV

PBLKT,RS

BIS
CMP

ILHOTO P. °RST(RS’ SET COMMAND TIME OUT
0.WAIT
,CQECK IF DRIVER IS WRITING FOR

BNE

CLR
JSR
MOV
MOV

0.WAIT
PC,R.ABNL
(SP)+,PS

MOV
MoV

MOV
RTS

(SP)+,Re

(SP)+,R3
(SP)+,RY
(SP)+,RS

LORD ADDRESS OF PARAMETER BLOCK
TABLE FOR

;

NO,

INDE ING

COMMAND COMPLETION
DO NOT ALTER WAITING FOR
OMMAND COMPLETION

CLERR WAIT FOR COMMAND COMPLETION
{BRANCH TO ERROR ROUTINE
{RESTORE PSW
:RESTORE R2
;RESTORE R3
!RESTORE RY

RESTORE RS
RETURN

02-DEC-77
¥RKO6

INTERRUPT

.SBTTL

#RK0O6

Nt Nt

1.)

WO WM

8
LRSS 8

WS NN WIWT B

PORT WAS SEIZED BY OTHER PORT
DRIVER IS WAIT FOR _COMMAND COMPLETION
POSITIONING COMPLETION
COMMAND IF DRIVE WRS RELERSED

FOR THE QUEUED RKO6 DRIVER.
IF NO SERVICE IS REQUIRED,
THE COMMAND WILL BE

FOR THE QUEUED RKO6 DRIVER.

ISSUED

THEY ARE:

A.NORM ADDRESS OF NORMAL RETURN

(SUCESSFUL COMPLETION OF COMMAND)

A.ABNL ADDRESS OF ABNORMAL RETURN

(UNSUCESSFUL COMPLETION OF COMMAND)

A.CONT ADDRESS OF CONTROL ERROR RETURN

THE LOCATION E.CONT CONTAINS

ROUTINES USED:
.OPT
.PUSH
.RMOV

S
WG

.CONT
.
.ABNL

Z
o
pe)
X

IN RS.

THE REASON FOR THE CONTROLLER ERROR.

SRS

PARAMETER BLOCK WILL BE

lalalalal
il
s]slel

WI WO BB

WD B

1. )
e. )
3. )

003062

SERVICE
SERVICE
SERVICE
REQUEUE

THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM.

RS RS

100000
040200

THIS ROUTINE WILL

WS W

EEEES

034760
034766

003012
00301e

INTERRUPTS.

PERFORM ONE OF THE FOLLOWING SERVICES:
LW

8
WS BB

88 &

8
3

8
8
8

UPON RECEIVING AN INTERRUPT,

I BT B

THIS ROUTINE WILL SERVICE ALL RKO&

FOR THE CONTROLLER ERROR RETURN,

003046
000010
001000

INTERRUPT SERVICE ROUTINE

THE RDDRESS OF THE APPROPRIATE

(QUEUED ONLY)
(QUEUED ONLY)
(QUEUED _ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)

336 36 36 3 3 36 3 36 36 3 36 36 36 36 3 3 36 3 36 3 3 36 6 3 36 3 26 3 3 3 26 3 36 3 3 3 3 36 3 3 3 3 3% 3 3 3 3 3 3 3 3 % 4 3 3 9 3 3 3 3 X%

034722
034724

SEQ 0140

ROUTINE

FOR NORMAL AND ABNORMAL RETURNS,

7201

SERVICE

(2222222222322222222222222232223222
2222222222222 8222222222222 2]

NNNNNNNNNNNNNNNNNNNN NNINNNNNNN
n Pt Bt ot Pt Pt Pt B Pt Pt Pt Pt Pt s s Pt ot s Pt Pt Bt Pt ot Bt Pt Pt Pt Pt s

DWODD DD DDRDEOMMEOMMEA
M I NNNIYIN
OV NCNLWN—DODONTMNLWN—-OVO NN
L WR)

30(1048)

P?ll

PAGE

0D
oo
[
]
oo

OO0
NN

0 RKE DR_CPT PROG MACY11
Pll
0e2-DEC-77 10:46

11:48

.INTR:

MOV
MOV
MOV
MOV
MOV
MOV

RS, - (SP)
R4, -(SP)
R3,-(SP)
R2.-(SP)
RI,-(SP)
RO’ -(SP)

;STORE
:STORE
'STORE
:STORE
:STORE
:STORE

BEQ

:NO,

MOV
MOV
BIT

BIS
JSR

RS
R4
R3
R2
RI
RO

ON
ON
ON
ON
ON
ON

THE
THE
THE
THE
THE
THE

STACK
STACK
STACK
STACK
STACK
STACK

RKBAS, R2
'LORD R2 TO ADDRESS RKO®& REGISTER
RKCS2tR2),T.CS2 :STORE €S2
#MDS, T.CS2
:CHECK IF MULTIPLE DRIVE SELECT

8E.MDS,E.CONT
PC.R.CONT

CONTINUE PROCESSING

;SEY MULTIPLE DRIVE SELECT
:REPORT ERROR

c & RSOBO RK&
d
R6GB.P11
¢<
-

7232

3001046)

02-DEC-77

11:48

PAGE

Lll

142

¥RKO6 INTERRUPT SERVICE ROUTINE

_CPT PROG
0c2-DEC-77

MARCY1l
10:46

034772

000137

03715¢

034776
035002
8 S0Q4
S006
03s01e

105737
001410
10040
10503
000473

003104

035014
035020

105037
000137

003104
036134

035024

032737

010400

035032
03s0
035040

001413

035056

000137

035344

035062
035070

016237
032737

0000le
000001

035076

001041

035100

032737

164000

003012

BIT

035106
035110

001007
016237

000014

003026

MOV

035116

032737

125700

003026

CHECK FOR DATA TRANSFER ERROR TYPE ERROR
BIT
$DCK!OPI'WLE!COE!YVRC!BSE!ECH,
T.ER

035124

001407

035126
035134
035140

052737
004737
000137

000010
040200
037152

035144
035150
035154

105037
005037
013705

003110
003124
0031ee

035160

052765

010000

035166
035172
035176

005037
004737
000137

003064
040154
037152

035202
035206

013705
001002

003064

03selo

000137

036134

035e14

013704

003012

JMP
1%:

1578

;CHECK

INTERRUPT

OR RELERSE

1.1C0

:CONtINUE PROCESSING INTERRUPT

cs:

CLRB
IMP

I.ISRL
I1.ATTN

:CLERR FLAG
'GO PROCESS DRIVE ARTTENTIONS

6%:

BIT

SNED'UFE,T.CS2

BEQ
MOV
BIC
MOV

7%
T.CS2,R4
sfc<okvnsx> R4
PBLKT,RS

;CHECK FOR NON- EXISTENT DRIVE OR
UNIT FIELD ERRO
.

*NO, WAIT FOR DUPL nccess INTERRUPT
'LOAD R4 FOR oaxvs NUMBER
KEEP DRIVE BITS
:STORE_PARAMETER BLOCK ADDRESS

1.ERRC

:REPORT ERROR

003012
177770

003010

003062

I.ISRL

6%
53
I.ISRL

003030
003030

: RETURN

BEQ
BMI
CLRB

003104

0O030le

I.RTRN

MOV

RKCSllRE) T.CS1 :LOAD TEMPORARY CSI FOR STATUS REPORT

MOV

RKDS(R2),T.DS

#DRR, 7.D%

cuggg IF DRIVE SEIZED BY OTHER

BNE

1.100

INO, CONTINUE PROCESSING INTERRUPT

JMP

7%:

INO, CHECK IF DRIVE AVAILABLE
:CHECK IF RELEASE COMMAND
*YES,CLERR FLAG

BIT

CHECK

BNE

;STORE STATUS REGISTER FOR COMPARISON

IF ANY DRTAR TRQNSFER ERROR EXISTS

#DLT!WCE'UPE'NEM, T.CS2
10%

RKER(R2),T.ER

: INDICRTE ERROR

:STORE ERROR REGISTER

BEQ

118

10%:

BIS

JSR

IMP

ue UDAT,E.CONT

kTRN

;SET UNEXPECTED DATA TYPE ERROR

11%:

CLRB

W. TIME

sRESET TIMING ON THIS DRIVE

CLR
MOV

BIS

000014

CLR

1.100:

R.CONT

W. DRV
PBLKT,RS

WRIT FOR RELEASE OF RKO®& DRIVE

'REPORT ERROR

:RESTORE REGISTERS

'CLEAR TIMING COUNT FOR THIS DRIVE
Logg sg gITH PRRAMETER BLOCK

ODRVSZD,P.PRST(RS) . gnxvs SEIZED IN THE
finoc
AM DRIVE STATUS REGISTER

0.WAIT

SCLEAR WAIT FOR COMMAND COMPLETION

JSR
JMP

PC,R.ABNL
I.RTRN

P INDICATE ABNORMAL TERMINATION
:GO RESTORE REGISTERS

MOV
BNE

0.WARIT,RS
2%

:LOAD PARAMETER BLOCK ADDRESS INTO RS
IS connnuo WAITING PROCESSING

MOV

T.CS2,RY

:STORE RKCS2 FOR DRIVE NUMBER

JMP

2%:

sNO,

I.ATTN

0 PROCESSING

NO Phocsss ATTENTION

¢ a1

S%RBQBO RKE DR _CPT PROG HQC\él
R6Q@B.P11
02-DEC-77 10:4

035220

042704

177770

832550

Y4
6865

000000

egis g1008

000164

005037

003064
003124

000010

035336
035342

oo4737
00040s

037622

035344

013765

003010
037644
000032
000030
037170

035400

032765

010400

035406
03s410
035414
035416

001046
004037

037726

IF ?RIVE NUMBER IS EXPECTED

; NO

F RERD QLb #EQ?E

CUTE NORMAL

ANSFER

:G0’ EXECUTE SPECIAL HERDER SEQUENCE

0.WAIT

;CLEAR WAIT FOR COMMAND COMPLETION

W.DRV
W. TIME
RKCS1(R2),T.CS1
ocsanT.C81
I.ERR

{CLEAR WATCH-DOG TI
ME
IRESET TIMING ON
THIS DRIVE
;STORE COMMAND AND STATUS REGISTER 1
: CHECK IF CONTROLLER ERROR
:YES

1.RTRN

'RESTORE REGISTERS

RKASOF (R2) , T. ASOR sfonenrvgnrxou SUMMARY
Ig;nsxnéor+1cégcx REPORT
IF onxgsflnarcnvron SET
PC,R.NORM
INotchE NORMAL RETURN
159:

SUEXATT,P.PRST(RS)

1.ERRA:

PC,1.CSTS

s STORE

T.CS1,P.CS1(RS)

;GET ERROR RKCS1

000016

1.ERRC:

000062
00006N

1.ERR:

I.ERR

;SET UNEXPECTED ATTENTION

'STORE

PC,1.45T71

CONTROLLER STATUS

PATTERN AND POSITION INFORMATION

:GET REST OF CONTROLLER STATUS

RKECPT(R2),P. epat(RS) sSTORE ECC PATTERN

RKECPS(R2) .P.EPOS(RS) :STORE ECC POSITION
RO, I.CCLR
CLERR' CONTROLLER
ERROR RETURN

SNED!UFE,P. CSE(RQ) CH CK_IF IT NRS NON-EXISTENT DORIVE OR

000020

Nyt
cnrfienovas srnrus

RO,I.STAT
5%

oon CLR

{ERROR RET
:LOAD COMM ND

003010

RO,

003111

003025

INTMSK, T.ASOF+1 ;CHECK IF RTTENTION RESET

000020

003062

035460
035466
035470

032737
001403
052765

040000

003034

2%:

000040
001000

000014
003036

39:

002000
040200
037152

003062

égzgs RRIVE CLERR
NDIC

DRIVE

ERROR

02 CLAT,E.CONT 581 & ?én N DID NOGT RESET
PC,R.CONT

<~
XY

040200
037152

I.IS5U° ¢

00000S
0372se

004737
000137

000157

1 os

109%:

035450
035454

035520

; CHECK

:YES, CONT
:NO, 'DRIVER ERROR

884737

;MASK OUT UNNECESSARY BITS

VIDNOHNO
VD

133737

#tC<DRVMSK>
,R4

I.HDAL

000014

SEQ 0142

ROUTINE

SRDALHD,P. CMND(RE)CHE K

39:

OO
M

035432
03544
03544

88%027
7152

000001

003024
003025

052765

SERVICE

M1l

143

000016
003111

035330

PAGE

P.DRVN(RS) ,RY

003010
003010

040166
037152

11:48

INTERRUPT

BIC

100000

004737
000137

838450

¥RK06

035602

035320
035324

03715
11273

02-DEC-77

S
DDODOMm
XN Mr<4Mi—~

035e3¢e

3001048)

REPORT CONTROLLER ERROR

I.RTRN

1GO RESTORE REGISTERS

3? DSC, T.MR2

CHECK IF onxve srarus CHANGE CLEARRED

#S.PAR,

HECK IF DRIVE PARITY ER ROR

SDRVDSC, P. PRST(RQ) SET Ssc
010 NOT CLEAR

S§

t.MR3

INDICATE nenonnnL TERMINATION

sE DPAR, E.CONT st DRIVE PARITY ERROR

hTRfiOfi

éonchs CONTROLLER ERROR

¢ ZR 6980 RTb
C ZRb
6QB.P
7340
7341
7342
7343
7344
734S
7346
7347

;g:g

7350

_CPT _PROG HQCYél
02-DEC-?7 10:4

30(1046)

035Se4
0355232
035534
035542
035544
035552
035560

032765
001017
(032737
001413
(0Se76S
113737
013737

000020

000014

020000

003034

020000
003111
003074

000014
0
00"
M
00...

035572

004737

040154

035566

000137

035576

;ggg

035602

016237

000000

003010

7357

03S€10

035616

032737

001422

100000

003010

7360
7361
7362
7363
7364
7365
7366
7367
;ggg

035620
03Ske4
035630
035634
0356Me
03S646
035652
035654
035660

005037
105037
005037
013765
004737
004037
037182
004737
000137

003064
003110
003124
003010
037644
037170

7370
7371

7372
7373
7374
7375
;g;g

03S6b4
035672
035700
035702
035706
035712
035716

016237
133737
001410
005037
105637
005037
000137

7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395

0435722
035726
035732
035736
035742
035746
035754
035762
035764
035770
035772
035776
036002
036006
0360i4
036022
036026
036030

013701
016221
0lee2l
0l6221
010137
Q016237
032737
001055
005337
001026
005037
005037
105037
0l2762
112737
004037
037152
013765

;ggg

#RK06

037152

I.HDAL:

003012
003012

003102

003036

:GO RESTORE REGISTERS

PC,R.ABNL

;GO REPORT ERROR

I.R7RN

¥READ

ALL

HERDERS

:GO RESTORE REGISTERS
INTERRUPT

RKCS1(Re2),T.CS1

'STORE CS1 TO CHECK CONTROLLER

BIT
BEQ

8CERR, T.CS1

iCHECK IF CONTROLLER _ERROR

S]KASOF (R2)

000056

ERROR

iNO, CHECK FOR ATTENTION

;CLEAR WAITING FOR COMMAND COMPLETE

'RESET TIMINGON DRIVE
:CLEAR TIME OUT COUNT
:STORE ERROR RKCSI
:STORE CONTROLLER REGISTERS
:CLEAR CONTROLLER
:ERROR RETURN
: INDICATE ERROR RETURMN
'RESTORE REGISTERS

ASOF

;STORE ATTENTION SUMMARY

INTMSK, RT QOF+1 ,CfiECK
IF DRIVE ATTENTION IS SET
7%
;NO,
CHECK IF READ ALL HEADERS

0.WAIT
W.TIME
W. DRV
1.ERRA

:CLEAR WRITING FOR COMMAND COMPLETION
'RESET TIMING ON DRIVE
*CLEAR TIME OUT COUNT
:GO REPORT ERROR

HDR.AD,R1

sGET MARIN MEMORY ADDRESS

RKDB(R&), (R1)+
RKDB(R2), (R1)+
RKDB(R2) ) (R1)+
R1,HDR.RY
RKCSE(R2),T.CS2
sDLT, T.CS2

35%
HDR.CT

258

000026
003010

SEQUENCE

MOV

. ABNL
1.RTRN

7%:

IF HARD DRIVE ERROR

1.RTRN

000016

S%:

:CHECK

108
sYES, GO REPORT ERROR
8S.PIP, T.MR2
:CHECK IF DRIVE IS CYCLING DOWN
108
:NO, REPORT ERROR
8E. UNLD P.PRST(RS) :SET onxvs UNLORDING
Ingrgg ane
sef UP8 SECONDS FOR DRIVE TO CYCLE UP

17T

003024
003025

SEQ 0143

ROUTINE

ME
Y
1,P.CS1(RS)
1
R

003064
003110
00312
035336

003064
003124
003110
000003
000001
0372%2

144

Q0O40154
037182

003100
000024
000024
000024
003100
000010
100000

PAGE

SERVICE

#DRVHRD,P.PRST(RS)

.SBTTL

000016
003111

11:48

INTERRUPT

10%:

7351
7352

7353
7354

000137

0371S2

0e-DEC-77

N1l

;GET FIRST WORD OF HEADER
:GET SECOND WORD OF HEADER
:GET THIRD WORD OF HEADER
:STORE ADDRESS FOR NEXT HEADER
;STORE €S2 T0 cuscx FOR DATA LATE
:CHECK FOR DATA LATE

:YES, REPORT ER ROR
oschsnsnr NUMBER OF HEADER YET TO RERD
-ZERO,

GO ISSUE NEXT READ HERDER

O.WARIT
u.onv

CLEQR
gnxveh unxvxnc FOR COMMAND COMPLETION
:CLEAR TIME OUT COUNT FOR THIS DRIVE

RO, 1. Iséu

:GET SECTOR COUNT

TIME
03 RKHRI(RE)
#DR.SEL,T.CS1

:CLEAR WATCH DOG TIME ON THIS DRIVE
:LOAD MAINTENANCE REGISTER FOR SECTOR COUNT
:LOAD SELECT COMMAND

:ERROR RETURN
T.MR3,F.BL1(RS) ;LOAD SECTOR COUNT

CZR6UB0O ]K6 DR CPT PROG MACY11l
CZR6GB.P.& 1
02-DEC-77 10:46
036036
035342

004737
0C0137

040166
037152

036046
036054
036062
036070

016562
016562
116565
042765

000002
000004
000007
165777

036076
036104
036112

112765
0

036116
036124
036130

052737
004737
000137

30(1046)

02-DEC-77
#RERD

MEADERS

000020
000006
000017
000016

25s:

003062

.SBTTL

1.ATTN:

Bl2

14§

INTERRUPT

SEQUENCE

PC,R.NORM

MOV
MOV

P.CYLN(RS) ,RKDCYL(R2) ;LORD CYLINOER aoonsss REGISTER
P.SECT(RS) | RKDA(R2)
L
SECTOR AND TRACK

MOVB
MOV
JMP

#RDHEARD, P.CS1 (RS} ;STORE COMMAND ISSUED
P.CSI(RE),RKCS1T(R2)' ~: ISSUE READ HERDER
1.RTRN
Resrbns REGISTERS

BIS

.E DLT E.CONT

MOVB
BIC

35%:

PRGE

JSR

IMP

000016
000000

000400
040200
037152

ALL

11:48

JSR
JMP
X¥DRIVE

; INDICATE NORMAL TERMINATION

1.RTRN

:RESTORE REGISTERS

P.CSIM(RE)P.CS1+1(RS) ;STORE BITS 8-1, OF CSl
.9CxC0T'CFhT>,P.CSIBS?&E,gLEQR ALL BITS EXCEPT FORMAT AND

ATTENTION

RKCS1(R2),T.CS1

003010

BIT
BEQ

8CERR, T.CS1
3

164000

003012

001007
016237

000014

003026

036170

032737

125700

003026

036176

001407

036200
036206
03621e

052737

004737
000137

000010
040200
037152

013704
042704

003012
177770

01370S

003122

016237

000000

003010

036142
036150

032737
001441

100000

036152

032737

036160
03ei6e

036216

036236

036242

042765

000006

036250

000137

035344

036254
036262
036264

032737
001002
000137

040000

BNE

MOV

036270
036276

016237
105737

000016
00302S

19:

:CHECK IF CONTROLLER ERROR OCCURRED
:NO, CHECK IF ATTENTION

#OL T WCE'UPE!NEM, T.CS2
18

RKER(R2),T.ER

: INDICATE ERROR

;STORE ERROR REGISTER

BIS

;NO DRTA TRANSFER ERROR

JSR
JIMP

PC.R.CONT
1.RTRN

4E.UDAT,E.CONT

;SET unexpscrso DATA TYPE ERROR

MOV

T.C

;SAVE €S2 FOR Rscxsrsn NUMBER

CLRB
CLR
MOV

TIME
u DRV
PBLKT,RS

:CLEAR WATCH DOG TIMER
'RESET TIMER VALUE
:STORE PRRAMETER BLOCK ADDRESS IN RS

BIC

'REPORT ERROR
IRESTORE REGISTERS

ofc<ohvnsx> R4 :STRIP OFF JUNK

CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER
IN PROGRAM DEVICE STQTUS REGISTER

000014

cs:

BIC

T(RS)
S
! DRVPDT,P.PRS
#DRVPO

IMP

1.ERRC

;GO REPORT ERROR

BIBNE

#0I,T.CS1
69

;CHECK IF ANY DRIVE RTTENTION
YES,
PROCESS INTERRUPT

MOV

RKASOF (R2), T.ASOF

JIMP

0371582
003024

;STORE COMMAND AND STATUS
:”
REGISTER 1 FOR COMPARISON

CHECK FOR DARTA TRRNSFER ERROR TYPE
BIT
SDCK!OPI'WLE!COE'HVRC!BSEECH, T .ER

2s:

003010

:REPORT ERROR
*RESTORE REGISTERS

CHECK IF ANY DATA TRRNSFER TYPE ERROR EXISTS

BEQ
003062

;SET DRTA LATE WHILE UNLORDING HERDER

SCANNER

MOV

036134

6%:

TST8

SEQ Olv4

I.RTRN

T.ASOF+1

Resfoas REGISTERS

;STORE ATTENTION SUMMARY

:CHECK IF ANY ATTENTIONS SET

CZR6@BO RK6 DR CPT PROG MACY11l

CZR60G8B.P11

02-DEC-77 10:46

30(1046)

7462

036302

001007

7455

036316

000137

037152

7457

036322

133737

003111

7460
7461

036340
036344

004737
000137

Q40200
0371Se

0363§0

013705

003122

036360

032765

020000

7467
74

036370

000137

037052

7470
7471
7472
7473
7474
7475
7476

036402
036406
036414
036420
0364
0364
036436

00S062
662737
40
037152
853?22
7
001401

000026
000001

003010

803036
00200

000042
00004e

7479
7480

036442
036450

013765
032765

003034
040000

000040
000040

7482

036460

052765

004000

000014

02-0EC-77
#DRIVE

;:gg ngggg 88&98; 000004 003062
7463

7465

036354

116504

000000

7477

7485

036440

036470

112737

004037

037252

00000S

003010

7488
7489

036504
036512

013765
133765

003024
003111

000032
000033

7491

036522

0S2737

000020

003062

7493
7494

036530
036534

004737
000137

040200
037152

7496
7497

036540
036546

013765
032765

003034
040000

Q0
0O

7499
7500
7501

Sggggq
6
036564

001404
052765
000407

000040

000014

7503

036566

105037

003110

036572
036576
036802

119:

037152

005037
004737
000563

003lew4
040166

SEQ O14S

SCANNER

; YES GO PROCESS

INTERRUPT

EST gogTTEBTégfl IN RTTENTION SUMMARY

GO RESTORE REGISTERS

INTMSK, T.ASOF+1

;CHECK

IF DESIRED INTERRUPT

ATRN

1GO RESTORE nsuxsrzns

PBLK

STORE Pnflansrsn BLOCK TRBLE

92 URTT
E.CONT :GO
SE?REPORT
UggOLISSFEB
A¥TENTION
CONT
E

onvh(ns>
:STORE DRI
UMBER
ce UNLD,P RST(RQ) cuecx F onxvs UNLORDING
118
CONTINUE
I.UNLD
szkvxce DRIVE IN POSITION AFTER ERROR
#DRVPOS,P.PRST(RS)

RKMRI(Ré)
oon SEL

.CS1

SEsl

:RESET DRIVE POSITIONING

,CLEAR nanTennuce REGISTER 1

DRIVE WITH ATTENTION HIGH
SELEC*
;LOAD

:ERROR RETURN
nna P. e 0(RS) srons STRTSE BYTE
00 _MESS B
FLY,P.BOO(RS)

000461

036476

7504
7505
7506

78:

000014

7486

Cle

146

5TRN

8%:

7428 036374 042765 000002 000014

RTTENT (Ut

PAGE

BE gOQT ; CONT

sued B3p3nd BRards BABARR O050°°
003025

11:48

128:

13%:

x f “RR

PRbCESS ERROR

CHECK FOR onxvs srnrus CHANGE

T.MR2,P.RO0(RS)

;STORE MAINTENANCE REGISTER
2

#DR.CLR,T.CS1

;LOAD COMMAND

#5.0S¢, P. AOO(RS)' ; CHECK FOR DRIVE STATUS CHANGE
13§
ES, PROCESS DRIVE STRTUS CHARNGE
BNOOSu,P PRST(R55 :SET NO DRIVE STATUS CHANGE
I.AERR
Phocsss ERROR

RO, 1.1s8u

Eksgn on%vs STATUS CHANGE
ETUN

T.ASOF,P .ASOF (RS} :STORE ATTENTION SUMMARY
INTMSK. P.nsor+1<ns$ ;CHECK IF ATTENTION RESET
158
; CONTINUE INTERRUPT PROCESSING
os CLAT,E.CONT :SET ARTTENTION 010 NOT RESET

15%:

WITH DRIVE CLEAR

PC,R.CONT
I.RTRN

'FLAG ERROR
IRESTORE REGISTERS

T.MR2,P. n00( RS)

;STC

_ MAINTENANCE REGISTER 2

#5.05¢,P.ROO(RS)’csggx IF DRIVE STATUS CHANGE

168
NTERRUPT PROCESSING
CDRVDSC
P. PRST(RQ) QE ONT}NUE
DRIVE STATUS
CHANGE DID NOT CLERR

1.RERR
16%:

W.TIME

W.DRV
PC.R.NORM
1.RTRN

GO’ PROCESS ERROR

:RESET TIMING ON THIS DRIVE

!CLEAR DRIVE TIMING COUNT
:REPORT SUCCESSFUL COMMAND COMPLETETION
'RESTORE REGISTERS

CZR6QBO RKE DR CPT PROG MACY11
CZR6EB.P11
0e-DEC-77 10:46

;50§

72?

7511

30(1046)

D12

02-DEC-77
11:48
PRGE 47
#ATTENTION ERROR HANDLER

.SBTTL

SEG 0146

#ATTENTION ERROR HANDLER

036604 042765 000004 000014 I.RERR: BIC

8sDRVPDT, P.PRST(RS) :RESET POSITIONING IN PROGRESS BECRUSE
OF DATA TRANSFER

RlS
Bueiz
i
BRSNS
7514
6
7
77741
00001
7815 836255 83573? 60003%
IR8818
b
SR B i ok
7218 832222 81 72? 883813 888858

G
HIRE
RLMCER
s one
¢
817774]1,P.CS1(RS
MMAN
8¥c
ofis 1.351
xte ufigs SON?SHLLER STATUS
T
R
MOV
T NES'P.NEs(Rg)

7520

7619

036660

7521

5974

75822

;sag

036666

035;12

013765

003016

313

83 2

013765

01376

oxg;ss

000024

7
7

036744

037152

7§w
786

é“ 7
737

746

7533

036764

3737

004737

T.0C P.gCYL(RS)

goz

Sn
T.
P, sngsgi

ooaoas

ggggg:

00032

003111

003025

000020

003062

000020

000014

040200

;ggg 036770 000137 037152
7536
036774
7837
839002
8 2765
101

MOV

JSR

;seg
036;30 037;5;
003010
7359 832?38 665037 889893
7530

T7.BR, P.BAR(RS)

000026

7?55 8327&4 86q03§ 8g?932
7529

MOV

003

0030

7638
037004 032737 020000 003034
7539 037012 001413

T.DA,P.DTS(RS)

T.ASOF,P._ASOF (RS)

RO ? T8§

%'SERN
R,CLR,T.CSI
JSR
38,1.&55u
I.RTRN

Q
8IS

JSR

2%:

énrnsx T.ASOF+1

[3
os CLAT E.CONT

R.CONT’

cneéx xr oaxvs IS UNLORDING

xnvnsx a TIME

I.RTRN

Rssrons REGISTERS

037030

013737

003074

003124

MOV

W.B8SEC, W.DRY

040154

JSR

PC,R.ABNL

000137

7545

037042

004737

;g:

037046

000137

037152

JMP

108:

037152

;g:g

.SBTTL

7550

0527

00l4

7662

037066

004037

037252

7565
7566
76567

037102
037104
037112

001406
012737
004737

000020
040200

003062

7660
7861

037120
037126

032737
001403

040000

003034

7563

037136

105037

003110

e8] B370e8 935733 B8882 9338is
7553

MOVB

(037072

037162

I.UNLD:

7662 037130 0S2765 000040 000014

I.RTRN

3VS UNLORDING DUE TO ERROR

N THIS DRIVE
sscouos FOR CYCLE UP TINE

;
:

REPORT ERROR

*RESTORE REGISTERS

%ERROR CAUSING DRIVE TO UNLORD
BIS

Bove

1.RTRN

xnrnsx(nw) T. nso¢+1 cuecx xr ATTENTION CLERRED

JSR

7564 037074 136437 003111 003025

;ggg 037116 000415

IMP

'RESTORE REGISTERS

ns PIP, T.MR2

7842

037036

: REPORT ERROR

108
: NO
8E.UNLC,P. PRST(RS)

8IT

000014

;g:a

* ?
"ATYENTION OID NOT RESET

8DRVHRD, P. PRST(RS) . C
F nuan
8
Higpoa
2 DRIVE ERROR

020000

003110

CK_IF
GTTiNTISN RESET

BNE

0S2765

003111

:
;S

BIT

037014

113737

,ERROR RE TURN

hTRN

7640

037022

Eggoa
ARMARD
E gn Snxvg ERRORS

JMP
BEQ
8IS

7541

:GATHER DRIVE STATUS

BiTB
BEQ
MOV
JSR

UNL

PRST(RS)

nxvs UNLOQDING BECAUSE OF ERROR

oAB
TN
DRIVE CLERR

;co 1SSUE onxvs CLERR
ERROR

RETU

158
oE CLRT CONT
CONT’

hTRN

s YES, CONTINUE
:SET ATTENTION DID NOT RESET
'REPORT ERROR

15%:

BIT
BEQ

#5.DSC, T.MR2
20%

cnscx
YE

20%:

CLRB

W.TIME

ReéET TIMING ON THIS DRIVE

BIS

:RESTORE REGISTERS
IF DRIVE
NTINUE

STAUS

CHANGE

RESET

oonosc P.PRST (RS} ésv DRIVE STAUS CHANGE DID NOT CLEAR

CZR6QBO RKE DR CPT PROG MACYI1 30(1046)
CZRBGB.PI11
02-DEC-77 10:46
7564

037142

00S037

7567

037152

012600

7569
7570

037156
037160

012602
012603

;ggg
7568
7571

7572
7573

037146
037154

004737
012601

El2

02-DEC-77
11:48 PRGE 148
#*ERROR CAUSING DRIVE TO UNLORD

003ie4

040154

CLR

W.DRV

;CLERR _TIME COUNT

MOV

(SP)+ RO

;RESTORE RO

MOV
MOV

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

;RESTORE R2
;RESTORE R3

JSR

I.RTRN:

MOV

037162

01e604

MOV

037166

000002

RTI

037164

012605

SEQ 0147

MOV

PC,R.ABNL
(SP)+,R1

(SP)+,RY

(SP)+,RS

; REPORT ERROR

;RESTORE Rl

; RESTORE RY4

;RESTORE RS
; RETURN

CZR6GBO RKE DR CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46

Fle

30(1046)

02-DEC-77
11:48
PAGE 149
#CONTROLLER CLEAR ROUTINE

SEG 0148

;g;g

.SBTTL

Zg;a

H ‘llllill!lliil!llllilll REERBEERELEREEEEEREETRREEEREREEEEREEERERRE

2679

7581

7580

7582

7583

7586
7587

;%
tx

7584
7585

;Egg

#CONTROLLER CLEAR ROUTINE

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER

AND CHECK

CLEARED,

IF THE CONTROLLER ERRORS ARE RESET.

THE ROUTINE

E.CCLR SET IN E.CONT

RS SFECIFIED

IN A.CONT

¥
'y

USE
—

R2
RS

ADDRESS OF RKO6 REGISTERS
ADORESS OF PARAMETER BLOCK

1IF THE ERROR

WILL

IS NOT

CALLED WITH

7530

:»CALL

JSR

RO,

I.CCLR

7691

;gg‘s’

:; 2222222222222 2222222222222 222222X22222 %)

7596

7597

037170

037176

012762

016237

100000

000000

0OC 000

0038{8

7598 037204 032737 100000 003

7599

7600
7601
7602
7603

037212
037214
037222
037226

001407
052737
004737
011000

000001
040200

7606

037232

012762

000100

;ggg

7607
7608
7609

037230
037240
037246
037250

I. CCLR:

003062

000200
112737
005720
000200

ngx

000000

003i04

5S%:

;CLERR CONTROLLER

BIT

BEQ
BIS
JSR
MOV

5§
8E.CCLR,E.CONT
PC.R.CONT
(RO),RO

RTS
177777

8CCLR, RKCS1(R2)

RKCS1tR2),T.CS1 ,STO E COMMAND QAND STRTUS REGISTER 1

MOV

MovB
TST
RTS

8CERR, TCél

$IE,RKCS1(R2)

#-1, I.ISRL
(ROJ+
RO

; CHECK IF CONTROLLER CLERR DID

;

_CLERAR ERROR

:YES, RETURN TO DRIVER PROCESSING
;SET CLEAR CONTROLLER DID NOT CLEAR ERROR
:REPORT CONTROLLER ERROR
{SET UP ERROR RETURN

:RETURN
;SET

INTERRUPT

ENRBLE

iSET INTERRUPT ENRBLE ISSUED
:ADJUST FOR NORMAL RETURN
{RETURN

Gle

CZREQABO RKE DR CPT PROG MACY1! 30(1046)
CZR6GB.PI11
02-DEC-77 10:46

02-DEC-77
11:48 PRGE 150
%#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

SEG C1M49

;gi?

.SBTTL

;slg
6l

,‘!llllifiiiiiillilllfillllilli!!l!lilllillllllii!lllllillil!!li!i
;

7614
7618
7616

#COMMAND ISSUED BY ORIVER SERVICE ROUTINE

X
;¥
;¥

THIS ROUTINE HILL ISSUE THE COMMAND RS SPECIFIED IN T.CS!
AND CHECK IF
R CONTROLLER ERROR OCCURRED.
IF CONTROLLER
ERROR OCCURRED,
E.CERR WILL BE SET IN E.CONT HND

7’618

RADDRESS IN R.CONT

7620

USE

L
;%

R2
RS

ADDDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

; #CALL

JSR

RETURN

;¥
(¥

ROUTINES USED:
memm—me—eeeee

7617

’619

7621
7622

I I
4

7623
;ggg

7626

7627

7629

; %

7632

7628
7630
7631
7633

7638

oMU
037252

013746

003010

037256
037262
037270
037276
037304

005037
116537
013762
116537
142737

003012
000000
003012
000007
177753

7645
7646

037312
037320

013762
105762

003010
000000

037326

004737

037474

7644

T.CS1,RKCS1(R2) ISSUE COHHRNO
RKCS1LR2)
RIT FOR RERDY

JSR

PC,I.STOR

;GO _STORE REGISTERS

108

s RETURN

100000

003010

001000

003012

100000
(040200

003062

7657
7658

037366

032737

024000

003010

7660

037376

032737

176400

003012

032737

131761

003026

122716

00000S

037374

001027

7661

037404

001023

;gga

037414

001017

76be

7665

037406
037416

STORE COMMAND ISSUED

MoV
TSTB

032737
001437
032737
001406
052737
004737

7659

N I MR A R RN

000000

037332
037340
037342
037350
037352
037360

000440

T7.CS1,-(SP)

003012
000010
003011
003011

7649
7660
7651
765¢
7663
7654

037364

MoV

I 0600 N0

7.€52°
CLEAR TEMPORARY CS@
P.DRVN(RS),T. CSE LORO IN DRIVE NUMBER
T.CS2,RKCS2(R2) ;L OAD_DRIVE NUMBER FOR COMMAND
P.CSIH(RS), T, CSlil ;STORE BITS 8-15 OF CS1
#+C<B.CDT!A. CFMT) T. CSl+1 :CLEAR ALL BITS EXCEPT

037324

7655

NI I

CLR
Move
MOV
MovB
BICB

7647

7648

100375

I.ISSU:

I.ISSU

I1.STOR

]

7639
7640
7641
742
7643

RO,

I.CCLR

Zggg

-—-

¢ADDRESS Of ERROR RETURN>

;¥

;ggg

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

1%:

BPL

BIT
BEQ
BIT
BEQ
BIS
JSR

BR
2%:

FORMAT

8CERR, T.CSI
5§
#MDS, T.CSe
e
8E.MDS,E.CONT
PC.R.CONT

AND DRIVE TYPE

:CHECK IF _CONTROLLER ERROR OCCUERED
iNO, RETURN
iCHECK IF MULTIPLE DRIVE SELECT
:NO, CHECK FOR OTHER CONTROLLER ERRORS
{SE} MULTIPLE ODRIVE SELECT FLAG
:REPORT CONTROLLER ERROR

CHECK IF ANY CONTROLLER ERROR IS SET
QIT
8CTO!SPAR,
T
BNE

BNE

cMPB

#DR.CLR, (SP)

BIT

SUFE!PGE!NEM!NED!UPE!WCE!DLT,
T.CS2

#ILC!DTYE!FMTE!ECH!BSE!HVRC!COE!DTE!OPI!DCK,
T.ER
:CHECK

IF CLERR ORIVE

CZR6GBO RKE6 DR CPT PROG MACYL11 3011046)

CZREGB.P11
7666

037422

766

8374 2

7670
7671

037440
037446

02-DEC-77 10:46

766

004037

037170

012762
00S72€

000100

037454

052737

001000

37482
037466
037470
037472

88
¥4 e
011000
00020C

040200

37436

037466

7672
;g;g

037460
037452

005720
000200

7675
7676

7677
7678
7679
768C

11:48

000000

003062

151

BNE

JSR

RO, I.CCLR

MOV
TST

8I1E RKCS1(R2)
(SP)+

%COMMAND ISSUED BY DRIVER SERVICE ROUTINE

001003

7667 037424 0S2765 000020 000014

PAGE

H12

02-0DEC-77

3%:
E%:

7%:

10$:

BIS

10%

NO, DO NOT SET DRIVE HRRD ERROR

SDRVHRD, P. PRST(RE) |:SET HARD DRIVE ERR

TST
RTS

(RO, +
RO

BIS

#E.CERR,E.CONT

JSR
187
MOV
RTS

PC,R.CONT
(SPY+
(ROY,RO
RO

G0’ ISSUE
A
CONTROLLER CLEQR

{ERROR RETURN

:SET INTERRUPT ENABLE
*ADJUST STACK

:ADJUST RO FOR NORMAL RETURN
'RETURN
;SET CONTROLLER ERROR DURING
:
DRIVER SERVICING

‘REPORT ERROR
*ADJUST STACK
:ADJUST RO FOR ERROR RETURN
RETURN

SEQ 0150

CZR6Q@BO RKE DR CPT PROG MACYI1
CZR6GB.P11
0e2-DEC-77 10:46

I12

30(1046)

02-DEC-77
11:48
PAGE 152
¥STORE RKb11 UNIBUS REGISTERS

SEQ 018!

;ggé

.SBTTL

;283

;il!llill!iif&illl!!!ilfllllllllli!!illi!{lll!l!lli!llili!llfili!!ll

;

768S

;ggg

L
HE

’688

;#CALL

7689

#STORE RK611 UNIBUS REGISTERS

THIS SUBROUTINE

RKb11

JSR

IS CALLED BY THE RKO6 DRIVER TO STORE ALL

TEMPORARY LOCATIONS.

PC,I.STOR

RETURN

7691

USE

7693
;ggg

;¥
P ¥

ADDRESS OF RKBl1

7690

7632

037474

016237

000000

003010

037510

016237

000002

003014

037502

7701
7702
7703
7704

037?516
037524
037532
037540

7706

037554

7705

7707

016237
Q016237
016237
016237
016237

000010

MOV

016237

000026

0376l2
037620

037?604

003032

016237
016237

000034
000036

003034
003036

016237
000207

000032

003042

016237

RKBR(R2),7.BA
RKDR(R2),T.DR
RKOS(R2),T1.0S
RKER(R2),T.ER

MOV

00302

003024

000030

003040

RKCSI(RE),T CS1

RKCS2(R2)

037562

7711
7712

MOV

MOV
MOV
MOV
MOV

000016

037570
03?576

I.STOR:

003016
003020
003030
003026

016237
016237

003012

000004
000006
0000l2
000014

037546

7708
7709

7710

REGISTERS

:R 2222222222222
2222222 2al et
ittt id)

7699

7700

-——

;gg%
7698

CSE

RKWC(R2), ¥.WCR

;STORE ALL CONTROLLER REGISTERS

MOV

RKASOF (R2) , T. ASOF

MOV

RKMR1(R2), t.MR1

MOV
MOV

MOV

MOV
RTS

EXCEPT DATR BUFFER

RKDCYL(R2),7.0C

RKMR2(R2),T.MRe
RKMR3(R2), T.MR3

RKECPS(R2),7.P0OS

RKECPT(R2),T.PRT
PC
; RETURN

CZREQBO RKe DR CPT PRCG MACY1l
CZR6GB.P11
02-DEC-77 10:46

J12

30(1046)

02-DEC-77
11:48
PAGE 153
#STORE CONTROLLER STATUS

SEQ 0182

z;ia

.SBTTL

?;12

;if!il!li!lil!}lllll!l!i!lllll!illll{lllllllli!llill!lll!llllll}l

7717
;;ig

E
ix

;

7720

#STORE CONTROLLER STATUS

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER AT PRIORITY 7.
THE FOLLOWING REGISTERS WILL BE STORED:

COMMAND AND STATUS REGISTER 2

7721
7722
7723
7724
7725
7726
;;Sg

.
iE
i
S ¥
x
e
¥

7729

{%CALL

JSR

;;gg

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

7734

7736
7737

L
;¥

3;38

;;g?

7735

7738
¢

RETURN

CONTENTS

RKOG BASE ADDRESS

042765

177741

000016

I.CSTS:

037630
037636
037644
037652

042737
053765
016265
016265

000036
003010
000010
000002

003010
000016
000020
000022

BIC
BIS
I.CST1: MOV
MOV

7750
7751
7752

037666
037674
037702

016265
016265
01626S

000006
000012
000014

000026
000036
000034

7755

037716

016265

000020

000030

7756

e It
b

ADDRESS

PARAMETER

BLOCK

:; 30 203 333633 36 3 2 3 3 9 3 3 32 3 33 3 3 % % 3 3 3 I 3 3 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 36 3 3 3 3 3 3% 3 3% % %
037622

;;ga

7744
7745
7746
7747
7748
7743

PC,1.CSTS

;;:é
7743

WORD COUNT REGISTER
BUS RDDRESS REGISTER
DESIRED TRACK AND SECTOR
STATUS REGISTER
ERROR REGISTER
ATTENTION SUMMARY/OFFSET REGISTER
CYLINDER ADDRESS REGISTER

037660

037710
037724

016265

016265
000207

000004

000016

00002H

000032

BIC

#177741,P.CS1(RS)

;CLEAR ALL

BITS EXCEPT

FUNCTION

#36,7.CS]
T.C81.P.CS1(RS)
RKC52tR2) ,P.C52(RS)
RKWC (R2), P.WCR(RS)

:OF LAST COMMAND ISSUED
{CLEAR FUNCTION OF CSI STATUS
:GENERATE CS1 STATUS INFORMATION
:STORE COMMAND AND STATUS REGISTER 2
,STORE WORD COUNT REGISTER

MOV
MOV
MOV

RKDA(R2),P.DTS(RS)
RKDS(R2),P.DS(RS)
RKER(R2),P.ER(RS)

RKASOF (R2) ,P. ASOF (RS)

:STORE DESIRED TRACK AND SECTOR
:STORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER

STSRESETTENTION SUMMARY AND

MOV

RKDCYL (R2)

STORE

MOV

MOV
RTS

RKBR(R2),P.BAR(RS)

,P.DCYL(RS)

:STORE BUS ADDRESS REGISTER

;RETU

CYLINDER

ADDRESS

02-BEC-77

CZR6QBO RK& DR _CPT PROG NQC\éI 30(1046)
0e-DEC-77 10:4

11:48

PRGE 154

*GATHER

DRIVE

.SBTTL

#GATHER DRIVE STATUS

I RIR
I R
I

CZR6GB.PI11

< 6006 36 36 96 36 3 3 6 36 36 36 36 36 36 36 3 3 3 36 ¥ 3 3 3 3t 3¢ 3 3 6 3 3 3 3 36 3 36 3 3 3 3 3 3 3 3 3 36 3 30 96 3 3 3 3 3 3 3 3 3% 3 3 ¥ %

'
*

THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STRTUS

BYTE 01,
10, AND 11.

] CALL
*

JSR

R
3

SEQ 01S3

STATUS

1.STA

(ADDRESS o# snnon RE TURN)>

RETURN

e RR

HE ]
R
;¥

IT IS ASSUMED THAT THE ORIVE

HAS PREJIOUQLY BEEN SEIZED. IT RUNS AT PRIORITY 7.

*
%

THIS ROUTINE ASIUMES THE FOLLOWING REGISTERS CONTARIN:

HE
*

LR
T

*
;%
*
*
s ¥

D R

CONTENTS

R2
RS

RKO6 BRSE ADDRESS
RADDRESS OF PARAMETER BLOCK

ROUTINES USED:
I.ISSU

037726

012762

000001

000026

B37734

112737
004037
040136
013765
013765
0127ee

000001
037252

003010

003034
003036
000002

000044
000046
000026

112737
004037

000001
037252

003010

013765
013765
012762

003034
003036
000003

000050
0000se
000026

040030
040036
040042
o4004Y4

112737
004037
040136
013765
013765
00S0e2

000001
037252

003010

003034
003036
000026

0000S4
000056

040064
Q40072
040076
040100
040106

112737
004037
040136
013765
013765
032737
001407

000001
037252

003010

003034
003036

000040
000042
003036

037764
037772
040000
040004
040006
040014
o400e2

o40052
040060

D401 14
o40122

001000

,l**illll*!lli**l!!!i*li*ililllii*{*!*l§§§iiilil!llll!lll!****il

.STAT: MOV

#1,RKMR1 (R2)

: LOAD nnxnvsunnce REGISTER 1

MOVB
JSR
33
MOV
MOV
MOV

#DR.SEL, T.CSl
RO, 1. 18U

*LOARD COMMAND
IGET srnrus BYTES 01
*ERROR RETU
:STORE srnrus BYTE 01 MESS A
'STORE STATUS BYTE 01 MESS B
LORO MAINTENANCE REGISTER 1

MOVB
JSR
33
MOV
MOV
MOV

#DR.SEL, T.CS1
RO, I.1S8U

MOVB
JSR
33
MOV
MOV

#DR.SEL,T.CSl
RO, 1-ISSU"

CLR

MOVB
JSR
33
MOV
MOV
BIT
BEQ

T.MR2, P AOL (RS)
T.MR3.P.BO1(RS)
82, RKMR1 (R2)

T.MR2, P A10(RS)
T.MR3 P.B1G(RS)
83, RKMR1 (R2)

T.MR2,P.A11(RE)
MR3 P.Bi11(RE)

RKMRI(RE) )

#DR.SEL,T.CC!
RO, 1 15U
T.MR: P.ADQ(RS)
T.MR3,P.BOO(PE
%S PAR, T.rR3
X3

FOR srn Us BYTE Ol

FOR STATUS BYTE

LORD COMMAND
'GET STATUS BYTES 10
:ERROR RETURN
:STORE STATUS BYTE 10 MESS R
:STORE STATUS BYTE 10 MESS B
LOQD MAINTENANCE REGISTER

Lono COMMAND
'GET STATUS BYTES 11
*ERROR RETURN
'STORE STATUS BYTE 11 MESS A
:STORE STATUS BYTE 11 MESS B

:LOAD
nnxnvsnnncs REGISTER 1
P
FOR srnrus BYTE 00

{LOAD COMM
:GEY srnrus BYTES 0o
'ERROR RETURN
:STORE STATUS BYTE 00 MESS A
*STORE STATUS BYTE 00 MESS B
!CHECK IF BAD PARITY DETECTED BY DRIVE
:NO, RETURN NORMALLY

CZR6GBO RKE DR CPT PROG MACYI1
CZREQB. P11
02-DEC-77 10:46
7814

Q40124

0S2737

;gig

040140

000200

7819
~820

(040142
Q40150
040152

0S276S
005720
000200

7815

040132

004737

7816 040136 011000
;ggé

002000

040200
001000

30(1046)
003062

000014

02-DEC-77
11:48
PAGE
%GATHER DRIVE STATUS

3%:
S%:

BIS

JSR

L12

os DPRR E.CONT

MOV

BIS
TST
RTS

#PBSVAL ,P.PRST(RS)
(RO
+
RO

RTS

SEQ 0154

155

; INDICATE BAD PARITY DETECTED BY DRIVE

REPORT ERROR

EQDRRO FOR ERROR RETURN
;SET PARAMETER BLOCK STRATUS VALID

QEJHEL RO FOR NORMAL RETURN

CZRb@B0O RKE DR CPT PROG MACYLLl
CZReGB.P11
02-DEC-77 10:46

7853
PBee B4Bizg 483937 793854
7827

g4oleH4

301 1046)

02-DEC-77

#COMMON DRIVER

.SBTTL
R.ABNL:

000207

R.NORM:

040176

000207

Q40200
Q40204

105037
105037

R.CONT:

040220

000207

PAGE

SE@ 0155

1Sb

RETURNS

#COMMON DRIVER

RETURNS

& TURE gRIV
INTERRUPT REPORTING
BNORMAL RETURN

JER®

A8 3R e

IN1E

CLRB
JSR
RTS

INTISK
PC, dR.NORM

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
; INDICARTE NORMAL RETURN
; RETURN

INTMSK
W.TIME
W.DRY
PC,aR.CONT
PC

; INHIB IT FUTURE DRIVE INTERRUPT REPORTING
;RESET WATCH OL3 TIMING ON THIS
vE

RTS

840138 583277
B4BE18 883997

11:48

CLRB
CLRB

Y&R

RTS

; RETURN

TyN O R VA

; RETURN

CZR6QGBO RKE DR CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46

30(1046)

02-DEC-77
11:48
PAGE
¥COMMAND INITATOR

SEQ 0156

;ggg

.SBTTL

;G‘OO
841

i
; l!l!ll!!l!lll{lllllll!!lilil!!l!ll!llllllll*l!illiiiillll!i!!il

7842
7843
;g:g

P *
TM
i *

76846

RELEASE

7849
;gg?

;¥
i

READ ALL DRIVE STATUS
READ SPECIFIED HERDER

;ggg

THE ABOVE COMMANDS ARE TRANSLATEC INTO A SEQUENCE OF COMMANDS

7856

7854

;#CALL

JSR

7858

Tk
X

LOCATIONS,

7861

ROUTINES usso

;ggg

DRI

7847
7848

762
7863
7864
;ggg

¥
‘x
D%
S
¥

040222

010546

040224
040226
040220
040232
040234
040236
040242
040250
040254
040262
040266
040272
040276
(040304

010446
010346
013246
010146
010046
013746
013737
017605
062766
016504
042704
010537
116437
116437

177776
003052
000016
000002
000000
177770
003122
003112
003112

;ggg 040312 013737 003072 003124
;gg;

040320

013702

003046

7888
7889
7890
789]
7892

177776
000016
00311l
003110

;
:
;
:
:

CONROLLER CLEAR
SUBSYSTEM CLEAR

NIT

FOR THE SEQUENTIAL OPERATIONS,
P8LKT AND

INTMSK.

|
THE DRIVER WILL LOARD THE

W.WTCH
1.csrs
1.STAT
I.CCLR

C.INIT:

7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883

INITATOR

THIS SUBROUTINE WILL INITIATE ALL COMMANDS RS SPECIFIED
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING
SPECIAL COMMAND ARE ALSO EXECUTED:

x
x

;ggg

7869

#COMMAND

N1le

157

RN
MOV

RS, -(SP)

;STORE

MOV

W.SEC, o
W kv

;LOAD WATCH-DOG TIME

MOV

RKBRAS, R2

;LORD R2 WITH RKO& ADDRESS BASE

MOV
MOV
MGV
MOV
MOV
MOV
MOV
MOV
ADD
MOV
BIC
MOV
MOVB
MOVB

R AR R RN R AR RS

STACK

RY,-(SP)
'STORE RY ON STACK
R3,-(SP)
!STORE R3 ON STACK
R2,-(SP)
:STORE R2 ON STACK
R1,-(5P)
'STORE RI ON STACK
RO, -(SP)
:STORE RO ON STACK
PS, -(SP)
:STORE PSW_ON STACK
RKPRI, PS
:LOCK OUT RKO& INTERRUPTS
16(SP) RS
: STORE Pnnnnerea BLOCK ADDRESS
82, 16(SP)
'ADJUST RETURN
P.DRVN(RS) ,R4
:STORE DRIVE NUMBER
8$C(DRVMSK},R4
:MASK OUT JUNK
RS, PBLKT
Lono PRRAMETER BLOCK TRBLE
1.0RV(RY), INTMSK LOAD INTERRUPT MASK
I.DRV(R4). W. TIME SET WATCH-DOG TIMER FLAG

RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT
DRIVE IN USE
NRITE FOR WRITE CHECK
NO CHECK
DROP DRIVE FROM TEST SEQUENCE

INHIBIT BUS ADDRESS INCREMENT

CZRHQEJ RKE DR CPT PROG MACY1l
CZR6@B.P11
02-DEC-?7 10:46
7894

040324

042765

07S17.

78396
7897
7898

Q40332
Q40334
040340

010500
062700
010501

000016

7899

(040342

062701

7901

040346

005020

037
o465

30(1046)

PAGE
02-DEC-77
11:48
#COMMAND INITARTOR

000014

000062
18:

003104
000020

7906
7907
7908
7909

Q40364
040370
040376
040400

00S062
132765
001402
000137

000026
000040

7911

040404

122765

000107

000001

041114
000001

3$:

B13

158

SEQ 0157

BIC

8¢C<DRVUSE ! W. WCK ! NOCHK!DRPORV!DTBRII>
,P.PRST(RS)

MOV
ADD

RS, RO

MOV
ADD

P’ CS1,R0

RS.RL

:CALCULATE FIRST LOCATION T0 BE CLEARED

CLR
cMP
BLOS
CLRB
MOV
CLR
BITB
BEQ
JMP

(RO)+
RO, R1
3

;CLEAR RETURN PARAMETER
:CHECK IF FINISHED
:NO,
CLEAR NEXT RETURN PARAMETER

33
C.SPEC

CMPB

SUNLORD,P.CMND(RS)

; STORE PRARAMETER BLOCK RDDRESS

:STORE PARAMETER BLOCK ADDRESS
;CALCULATE LAST LOCATION TO BE CLERRED

. ISRL

‘CLEAR RELEASE OR INTERRUPT ISSUED

PKMR1(R2)

:CLEAR RKO® MAINTENANCE REGISTER 1

RY,P.CS2(RS)

:STORE DRIVE NUMBER

#BITS,P. CMND(RS) ' ; CHECK IF SPECIAL COMMAND

:NO, PROCESS
:JUMP TO SPECIAL COMMAND PROCESSOR
.~

.
:
.
;
o4o412

101174

BHI

253

7923

7929
7930
7931
7932
7933
7934

Q40414

040422

122765
103540

:NO,

016562
0527?65
005037
122765
001007
QleSe2
016562
000431

7939
7340
7941
7942

(040472
040S00
040502
040510
040516

122765
001007
11656S
016562
000416

7945
7946
7947
7948
7949

040520
Q40526

122765
001003
013737
122765
001003

;ggg

;g:a

000001

CMPB
BLO

#SEEK,P.CMND(RS)

20%

040530
040536
(040544

000020
000002
003064
000117

000001

000002
002004

000020
000006

000l11S

000001

000006
000032

000032
000016

000111

000001

003076
000113

003124
000001

DRIVE COMMAND

SELECT DRIVE

PACK RCKNOWLEDGE
CLERR
;CHECK

IF DATA TRANSFER

;YES, DATA TRANSFER ( OMMAND
. "READ DATA
DATR
WRITE
READ
HERDER
WRITE HEADER
WRITE CHECK

’

040424
040432
040440
040444
040452
040454
040462
040470

7935
7936

000117

IF POSITIONING COMMAND

RECALIBRATE
OFFSET
SEEK
UNLORD

:
;
7924
7925
7926
7927
7528

;:CHECK

8TART SPINDLE

P.CS2(RS),RKCS2(R2) :LOAD DRIVE NUMBER
#DRVPOS,
P PRST(RS) :8ET DRIVE POSITIONING

000010
000014

0.WAIT

sCLEAR WAIT FOR COMMAND
IF SEEK
.NO, CHECK FOR OFFSET
5%
P.CYLN(RS
R DCYL (R2) :LOAD CYLINDER ADDRESS
P.SECT(RS)
| kKDA(R2) :LORD SECTOR AND TRACK
8$
;GO }SSUE COMMAND
#SEEK,P.CMND(RS) ' ; CHECK

5S$:

SOFFSET,P.CMND(RS)
23
:

;CHECK IF OFFSET
CHECK FOR UNLORD

(RE) ;STORE OFFSET
P.OFST(RS),P.ASOF
P.ASOF
(RG) | RKARSOF (R2)

8s
68:
7%:

#SRTSPL,P.CMND(RS)

:LORD OFFSET REGISTER

;GO ISSUE COMMANDG
NO,

;CHECK IF START SPINDLE
CHECK

IF RECAL

W.MIN,W.DRV
:LOAD WATCH DOG TIME FOR 1 MINUTE
sRECAL,P.CMND(RS} :CHECK IF RECAL
8%
:NO, CONTINUE

CZR6GBO RKH DR CPT PROG MACY11l

CZR6Q8.P11

02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

#COMMAND INITATOR

PAGE

Cl3

159

SEQ 0158

7321 Qoo Jleeat 090007 903017 Bs
;ggé 848352 643§g§ 152997 880015

MOVE
BIC

P.CorHlRGo
P cgibItRS) ;STORE BITS B-15 OF CSl
o¢c<crn7 CDT),P CSISfiS’pA?bE“?v?EL BITS EXCEPT FORMAT

;esq

owos;o

115;55

ooogox

000013

MOVB

P“cnggrns;h ngxgn TVERIO""?Sg uSI? chECK

7958

0Q406]4

2723

880100

000016

BIC

MOV
JSR
MOV

CSI(RS) Rxcsx(h ISSUE COMMAN
W.WICH’
; CAL
ALl
RATCH DOG TIMER
RKCSI(RB) T.CS1 :STORE COMMAND AND STATUS REGISTER |

oggnn T.CS1

73§2
8:820& 83&8? 888488 888814
7957 040612 001533
7959 Q40622 0165
00i6 000000
7960 830539 004737 034572
7961
06
016237 000006 003010

;ggg

040642

7965

7964 §§§§§g

7966

032;3;

000200

Bfi
BEQ

108:

003010

BéT

737 100000 003010

1011

040662

004737

034572

7971
7972
;334

040710
040714
046720

005037
88”7 7
0137

003124
040196
042074

7975

040724

016562

000010

7978

040746

oxsssg

118:

7967
0666 016237 000016 003024
3322 0:8974 é 3;3; 003111 003025
7970 0407
18%037 003110
15%:
/

7976
7977
7979

040732
040740
(40754

7980

7981
7982
7983

(040762

;383

041002

7986

041004

7987

040764
040772
040774
041012

016562
016562

000004

000012
000002

000002
000020

122765

000131

000001

032765
001404
012765

000200
000123

000014
000016

116565

000001

000016

001010

000406
042765

000004

000200

20%:

000006

000014

Q41034

7998
7999
BOO0

041072
(041074
041102

7993
7994
7995
7996
7997

gggé

041040
041046
Q41050
041086
041854

041110

0537

852§ss
001403
0S2765
016562
8 2765
140
042765
016562

000137

25%:

000014
000020
000010 27%:
000014

000100
000016

000016
000000

8005

30%:
.SBTTL

O0O4ill4

122765

(000141

00000L

C.SPEC:

(RE):
HéE NS
b SKIP CLEQR or znrsnnupr ENABLE
.

8IE,P.CS1(RS)

CLEAR INTERRUPT SNQBLE

:RDY1.Ccsi

iWAIT FOR READY

TCH

;CHECK FOR ERROR
YES

cxv: NonnnL nerunn

“§§

Eo$

RKhSOF(Ra) asof
ORE nrr 10N sunnnRY
{TT"SKnéor+1fiegx
IF xnrsnngs; 225OCCURRED
u.?rns
ger H?R& Sn Tufs anve

CLR
JSR
IMP

W, oav
PC,R NORH
C.RTR

MOV

P.BALO(RS),RKBA(R2)

MOV

P SECT(RS) RKDQ(RE) :LORD

MOV
MOV

CLEQR onxve TIMING
5” ¥8975 COMMAND IS FINISHED
ESTORE REGISTERS

kS“D ggs nonnzgé REGéSTER

P.WC(RS) _RKWC(R2) :L0
COUNT
P.CYLN(RS), RKDCYL (R3) :LOAD CYLINDER ADDRESS REGISTER
#WRTCrK
, P.LMNC(RS)

SECTOR AND TRACK NUMBER

CHECK

F uaxre cuecx COMMAND

25%

NO,

s§g£ Hg

268

;GO’ ISSUE COMMAND

AND

BTT
SEQ
MOV

$id. WCK,P. PRST (RS cnecx
WRITE connano SHOULD BE ISSUED
25%
NO, GO ISSUE THE COMMAND
$WRDATA,P. CS1(RSS P ISSUE WRITE COMMAND

MOVB

P. CHND(RS)

1008 G
000020
000020
000400

8883

MOV
géae
CLRB

BNE

003064

042074

JSR

CMPB

7988 041020 116565 000007 000017 268:
7989 041026 142765 177750 000017
;gg?
7992

BNE

sNOCHK | P
30%
.

BIC

MOVB

BICB
MOV

BIT
BEQ
BIS
MOV
BIT

BEQ
BIC
MOV

IMP

P.CS1(RS)

8. WCK
, P.PRST(RS)

:MOVE COMMAND

INTO CS!

xr nc FOR

COMMAND

:RESET WRITL FOR WRITE CHECK

P. CSlH[RS) P. csx+1ln5) jSTORE axrs 8-15 OF CSl
s+C<B.CFMT!B. cor-agn& ?.BAI7>,P.CS1+1(RS) ;CLEAR ALL BITS EXCEPT
BoMA onxvt TYPE, AND B80S ADDRESS
?8911 PRST(RQ) Snec {r xnnxa?? BUS RDDRESS INCREMENT
LORD €S2
oanx CS2(RS) ss? INH BIT BUS RDDRESS INCREMENT
P. CSé(RS) RKCS2(R3)
cs2
SNOCHK
, P. PRST(RS) cfiecx IN NO CHECK MODE

308
Nb SKIP CLEAR OF INTERRUPT ENRBLE
8IE.P.CSI(RS)
:CLEAR INTERRUPT ENRBLE
CSI(RS) RKCSI(RE)
1SSUE COMMAND

c.n

REStORE REGISTERS

#SPECIAL COMMAND PROCESSING
CMPB

#RDSTAT,P.CMND(RS)

;CHECK

READ DORIVE

STATUS

CZRBEQBO RKE DR CPT PROG MACYL1l
CZRb60G8. P11
02-DEC-77 10:46
841132
4114

o41132
041140

BAsseE

02-DeC-77
#SPECIAL

BNE
MOV
MOvB
BIC

goo01e
000000

mMove
MOV

003110
0c31ey4
000400

ooo014

0C1000

000020

D13

160

#OR.SEL .P.CS1(RS) :STORE

COMMAM
o

Pcsx(RS),nxcsxtnai : ISSUE COMMAND
-anL WATCH-DOG TIMER
TCH
RKSSI(RS%ITQg?l(? If FSQERESSHRND RAND STATUS REG. !
2s

Rkhae(a %,P noo<k§T°R§78327R?h¥5R g$$é5TMESSAGE A
RKMR3(R2),P.BO0O(RS)

TIHE
W.DRV

:STORE STATUS BYTE 00 MESSAGE B

REQETWATCH DOG TIMING ON THIS DRIVE
CLEAR WATCH DOG COUNT

SNOCHK, P. PRsr(Rsi ca;cx IF NO CHECK noos
Hg pICNonnn
8%
ELECT
ED IV
8MDS, P.CS2(RS) c (o4

xuoxcnrs CONTROLLER ERROR

E?Ofifl

SNED'UFE,P. csetns) cnecx F NON-EXISTENT DRIVE OR UNIT FIELD ERROR

000001

000036

gDRR P.DS(RS)

010000
O40154
042074

000014

cs:
BS:

RsbosROR

cuecx IF

DRIVE AVRILIABLE

P. PRST(RS) IN8§P875 EaxSE IS ssxzso BY OTHER PORT
Bavszo
R.ABAL
,Inb E ABNORMAL RETU
chTRN
RESTORE REGISTERS
RJ, I.STAT

W.TIME
u DRV

; GRATHER DRIVE STATUS

'ERROR RETURN
:STOP WATCH-DOG TIMING ON DRIVE
RESET WATCH-DOG TIME

SNOCHK, P. PRST(RS$
CHSE oar
NO CHECK MODE

000014

000000
Q40166
042074

OMMANDS

COMMAND

P.CSIH(RS),P.
csx¢1(né); STORE axrs
8-15 OF CSl
lfC(CFHT'CbT),P CSI(za)oh?vEgR
ALL axrs EXCEPT FORMAT

000020

RKCS1(R2)
PC.R.NORM

P
CLEQR
INTERRUPT ENARBLE
:REPORT COMMAND COMPLETE

$E.MDS,E.CONT

;SET MULTIPLE DRIVE SELECT

8%
89%:

100000
040200
042074

003062

000140

000001

10%:

003064

NO, PR8583
orn R

52(RS),RKCS2(R2)

010400

003110
00312y
000400

SEQ 0159

PROCESSING

RO, I.CCLR

037726

052737

PRAGE

ggERRP.CS1(RS) CHEéK*F SONTRO&LER ;RROR

037170

000137

BEQ
JSR
MOV

000040
ooogQ4e
000016

11:48

COMMAND

000010
000017
000016

3668
1E

00176?

00
£Lr
000
rLfr
000
£
ODDOD?
Lk

S
e

DOONON LW

[

116565
o4276S

000020
000007
165777

112765
016562
004737

8011
a0
M
M DM
O0o0O0000

Pedgs

30(1046)

C.RTRN

Ch$hfibNT

:RESTORE REGISTERS

:INDICATE CONTROLLER ERROR

#RELERS,P. CMND(RS)
13%

;CHECK IF RELERSE COMMAND
CHECK IF RERD ALL
HEADERS

RS O.WARIT

STORE PARAMETER BLOCK ADDRESS IN

#RLS,P.CS2(RS)

:SET RELEASE BIT

;

__WAIT FOR_COMMARND

P.CS2(RSY, RKCS2 (R3) LORD €S2 FOR DESELECT
#1 1.ISRL

.SET’FLAG FOR RELEQSE conmnno

P. CSlH(R CS1+1(RS); STORE
ITS B-15OF CSl
#4CCFMT?ch>P.CS1(RSY " :CLERR ALL BITS EXCEPT FORMAT
.

AND DRIVE TYPE

CZR6GBO RKE DR CPT PROG MACY1l

CZR6QB.P11
8062

Q41462

C2-DEC-77 10:46
112765

8063
8064
8065
8066
gggs

041470
Q41476
041500
041506
041514

032765
001403
042765
016562
000137

8069
8070

041520
041526

122765
001053

8071
8072
8073
8074
8075

041530
041534
Q41542
041550
041552

8078

041562

gg;g

8079
8080
8081
8082
ggga

041560

000101

30(1046)

02-DEC-77

000016

MOVB

000014

000100
000016
042074

000016
000000

11%:

000164

000001

13S:

010537
016537
132765
001404
012737

003064
0000i0
000020

003100
000007

000024

003102

012737

000026

003102

041570
041576
Q41604
041612
041620

016S62
016562
016562
116565
042765

000002
000004
000020
000007
165777

000020
000006
000010
000017
000016

8086
8087
8088
gggg

041634
041642
041644
041652

0327656
001027
016562
000137

000400

000014

000016
042074

000000

8091
8092

041656
041664

122765
001012

000176

000001

8094

Q41672

042074

gggg

148:

22§:

30%:

037170
000400

041710

032765
001472
005062

000467

8100
8101
8102

Q41712
041720
041782

122765
001406
0S2737

000177

000001

32%:

000100

003062

34%:

gigg

041734

8103

8106

041674
041702
041704

041730

004737

041736

012762

041760

001406

0S2737

000001

003062

041774

004737

000437

040200

041776

013746

003070

042002

016265

000000

8110

041762

8111
8112

giia
8115
8116

8117

041770

016265
032765

000000
100000

22%

MOV

000016
000016

#22.

:GO ISSUE READ HERDER COMMAND

,HOR.CT

:LORD 22

IN SECTOR COUNT

P.CYCN(RS),RKDCYL
(R2) :LOAD CYLINDER ADDRESS
P.SECT(RS) RKDA(R2) ;LOAD TRACK NUMBER
P.CS2(RS) ,RKCS2(R2) :LOAD DRIVE NUMBER
P.CSIH(RSY,P.CS1+I(RE) ;ST
BITS 8-15 OF CSI
}
lfC(CFHT!CbT),P.CSI(RS)Fbghsgfl ALL BITS EXCEPT DRIVE ~YPE

BIT
BNE
MOV
IMP

SNOCHK, P.PRST(RS) :CHECK IF NO CHECK MODE
343
.Y£S, INDICATE ILLEGAL DRIVER COMMAND
P.CS1(RS),RKCS1(R2) :1SSUE READ HERDER
C.RTRN
;RESYORE REGISTERS

CMPB
BNE

8CONCLR,P.CMND(RS) ;CHECK IF CONTROLLER CLEAR
328
“NO.
CHECK IF SUBSYSTEM CLEAR

$RDHERD,P.CS] (RS} ;STBRE RERD HERDER COMMAND

JSR

RO, I1.CCLR

BIT
BEQ
CLR

$NOCHK,P.PRST(RSY :CHECK IF NO CHECK MODE
408
:NO. INDICATE NORMAL RETURN
RKCS1(R2)
'RESET INTERRUPT ENABLE

CMPB
BEQ
BIS

8SUBCLR,P.CMND(RS) :CHECK IF SUBSYSTEM CLEAR
368
;YES, CLEAR SUBSYSTEM
#E.ILLD,E.CONT
:SET ILLEGAL DRIVER COMMAND

JSR

408

PC.R.CONT

'CLEAR CONTROLLER
:ERROR RETURN

: INDICATE NORMAL RETURN

:REPORT ERROR

C.ARTRN

'RESTORE REGISTERS

#SCLR,RKCS2(R2)

; ISSUE SUBSYSTEM CLEAR

378

*NO,

JSR

PC,R.CONT

:~
CONTROLLER ERROR
'REPORT ERROR

37%:

MOV

W.MILI,~(SP)

38%:

MOV

RKCS1(R2),P.CS1(RS) ;STORE CS!

36%:

MOV

MOV
BIT

RKCS1IR2).P.CS1(RS) ;STORE COMMAND AND STATUS REGISTER |
8CERR,P.C51(RS) ;CLEAR IF CONTROLLER ERROR RESET

BIS

#BIT0,E.CONT

BEQ

BR
000016

RS, 0.WRIT
:SEt WAITING FOR COMMAND COMMPLETION
P.BALO(RS) ,HOR.AD ;LOAD HERDER RDDRESS
#B.CFMT,P.LSIH(RS) ' ;CHECK IF 22 SECTOR FORMANT
14$
veS . LORD 22 IN HERCER COUNT
820. ,HOR.CT
'LORD 20 IN SECTOR COUNT

MOV
MOV
MOV
MOVB
BIC

BR
000010

041744
041752

;STORE COMMAND

SRDALMD,P.CMND(RS) ;CHECK IF READ ALL HEADERS
308
*NO!
CHECK IF CONTROLLER CLEAR

0000M0

8107
8108
8109

000457

000014

#SELDRV,P.CS1(RS)

CMPB
BNE

C.RTRN

000000

Q40200

SEQ 0160

#NOCHK ,P.PRST(RS) :CHECK IF NO CHECK MODE
_
118
:NO. DO NOT RESET INTERRUPT ENARBLE
#IE . P.CSI(RS)
:RESET INTERRUPT ENRBLE
P.C51(RS),RKCS1(R2) :7SSUE COMMAND
C.RTRN
.RESYORE REGISTERS

MOVB

004037

8095
8096
8097

041666

ELl3

161

BIT
BLQ
BIC
MOV
JMP

MOV
MOV
BITB
BEQ
MOV

8085 041626 112765 000125 000016

8083

PAGE

#SPECIAL COMMAND PROCESSING

000400

000403

11:48

C.RTRN

FINISH COMMAND

'SEt CLEAR SUBSYSTEM DID NOT CLEAR

'RESTORE REGISTERS

sLOAD 16 MILI-SECOND COUNT FOR ATTENTION
!
TO DISAPPEARR

CZR6QBO RKE&E DR CPT PROG MACYIl
CZREQB.P11
02-DEC-77
10:46

8118

042010

032765

8119
Bl120
812l
8l
8123

042016
042020
Q4el0ee
042024
042Cee

8125
gisg

042034
042040

004737
000415

8128

Q42042

005726

gled

8129
8130
8131
8132
giga
8135

8136

8137
8138
8139
8i40
8i4]1
8l42

3133
3132

042044
042052
042054
042062
042070
042074

042100

Q42102
042104
042106
042110
042ll2
042114

001411}
00s316
001367
005726
0S2737

04000C

000016

000040

003062

02-DEC-77
11:48
PAGE 162
#SPECIAL COMMAND PROCESSING

BIT

040200

(032765
001010
112737
012762
Q04737

000400

000014

177777
000100
040166

003104
000000

012637

177776

012600

F13

30(1046)

012601
012602
0128603
Dleed4
012605
000207

39%:

409 :
C.RTRN:

SEQ 0Ol6!

#DI,P.CS1(RS)

;CHECK

IF ATTENTIONS CLERRED

BEQ
DEC
BNE
T1ST
BIS

39%
(SP)
389
(SP)+
8E.SCLR,E.CONT

YES FINISH COMMAND
DECREHENT 16 MILISECOND COUNT
CHECK ORIVE INTERRUPT RGAIN
RDJUST STACK
SET SUBSYSTEM CLERR DID NOT CLEAR

JSR
BR

PC,R.CONT
C.RTRN

REPORT ERROR
RESTORE REGISTER

(SP)+

ADJUST STACK

TST

DRIVE ATTENTION

BIT
BNE
MOVB
MOV
JSR

SNQCHK ,P. PRST(RS5 CHECK IF NO CHECK MODE
C.RTRN
YES RESTORE REGISTERS
8-1,1.1ISRL
SET INTERRUPT ENRBLE SET
#IE RKCS1 (R2)
SET INTERRUPT ENARBLE
PC,R
NORM
INDICRTE NORMAL TERMINARTION

MOV

(SP)+,PS

MOV
MOV
MOV
MOV
MOV
RTS

(SP)+,Rl
(SP)+,R2
(SP)+,R3
(SP)+,RY
(SP)+,RS
PC

MOV

;RESTORE PSW

(SP)+,R0

,RESTORE RO
;RESTORE
;RESTORE
;RESTORE
;sRESTORE
;RESTORE
:RETURN

Rl
R2
R3
RM
RS

.SBTTL OCTAL TO BINARY CONVERSION ROUTINE

,‘llilllilll!l!llllllllll!lilllllilllllllll&ll}lli!liilllilflll!i

Bl4?7

8149
gigg

o #
%

8148

P ®

THIS ROUTINE WILL CHECK
A STRING OF ASCII CHARACTERS TERMINRTED

WITH A NULL

<000>

OR COMMAR.

IF THE CHARRCTERS RARE LEGRA

IT
WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS
ON THE STRCK AND THE HIGH 16 BITS IN LOCATION SHIOCT.

Bls2e

; #CALL

81S3
8154

¥
*

gigg

:,ll*ll!l*ll!lll!llli!ili!ll!lllllliilililllilliill!lii*i!lfi!iif

8185

8160

8lbl
8lbe
8163
gle4
8165

‘e

042116

042120
042122
042124
042130

O0I0l46
010246
016600
005001

005002

042136

001423

042144
Q42146

001420
122716

8168

042140

8171
Bi7e
B. 3

010046

042132

042134

8169
8170

<RDDRESS OF ASCII
PC,OCTBIN

STRING>,-~-(SP)

- ¥

8166

8167

MOV
JSR

042152
0Q4cliS4
042180

OCTBIN:

000010

112046
121627

003C~0
1227.002425

29%:
0000%4

000060
00006

MOV

MOV
MOV
MOV
CLR

RO -(SP)

SRVE R1
S VE Re
GET ADDRESS OF ASCII STRING
CLERR DATA WORDS

(RO +,-(SP)

;sPICK THIS CHRRRCTER

CLR

BEQ

BEG
CMPB

39
4'0, (SP)

MOVB
CMPB
BGT
CMPB
BLT

;SAVE RO

R1,' -(5P)
R2.-(SP)
lofSP) RO
R}
(SP), 8’

4g
8'7,(SP)
49

,IF ZERO GET OUT
; CHECK

IF COMMA

IF COMMAR GET OUT
HRKE SURE THIS CHRRRCTER IS
;

AN OCTAL DIGIT

CZRB6GBO RKE DR CPT PROG MACY1l

CZREQB.PI11
8174
8175

8176
8177
8178
8179

8180

8181

8182
8183
8184
8185

042162
Q4216M

02-DEC-77 10:46
006301
006102
006301
006102

(Q4e202

2601

(042204
(042206
042210
042214

042716

000753
005726
010166
010237

8186

042220

012602

8189

042226

062716

8187
8188

g}g?

(042222
Q42224
042232

012601
012600
0002G?7

8192
8133
8194
8195

042234
042236
042240
Q042242

005726
012602
012601
012600

8197
8198

042246
042250

000207
000000

8196

g;gg

042244

02-DEC-?7

11:48

ASL
ROL

ASL
ROL
ASL
ROL

177770

000010

PAGE

Gl3

SEQ 0162

OCTAL TO BINARY CONVERSION ROUTINE

006301
006102

042166
(042170
042172
(042174

042176

30(1046)

BIC

042250

013616

.SBTTL

28
(SP)+
R1, 10(SP)
R2 SHIOCT

:LOOP
:CLEAN PARTIAL FROM STACK
:SAVE RESULT

MOV
MOV

(SP)+ . RI
(5P)+ RO

‘RESTORE RI
'RESTORE RO

RTS

*RETURN

TST
MOV
MOV
MOV

(SP)+
(5P)+,R2
(SP)+.R1
(SP)+ RO

;CLEAN UP PARTIAL FROM STACK
'RESTORE R2
:RESTORE Rl
:RESTORE RO

MOV
$HIOCT:

BR
TST
MOV
MOV

ADD
4$:

:STRIP THE ASCII

MOV

000002

RI
R2
RI
RS _

#$tC7 . (SP)

AOD

3%:

Rl
R2

RTS
.WORD

(SP)4,R1

(SPY+,R2

82, (SP)

a(SP)+, (5P)

PC
O

{ADD THIS DIGIT

JUNK

:RESTORE R2

'ADJUST RETURN

‘PUT ADDRESS OF ERROR ROUTINE ON STACK
:GO PROCESS ERROR
:MIGH ORDER BITS GO HERE

RANDOM NUMBER GENERATOR ROUTINE

8201

HH (222222222222 22222222222 32222222222222222222X22222222222322233

8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213

"%WITH A RANGE OF O TO 2(+33)-1.
; #CALL:
S
JSR
PC, SRAND
;s CALL THE ROUTINE
T
RETURN
P RETURN HERE THE RANDOM
T
: 'NUMBER WILL BE IN
D #
; s SHINUM, SLONUM
Q42252
042252
042254
042256

010046
010146
010246

8215
8216
8217
8218
8219
8220
8221
8222
8223

042264
042270
042274
042276
042300
042302
042304
042310
042312

013701
012702
006300
006101
005202
001374
063700
00S501
063701

8225
8226

(042322
042324

8202

8214

g224

8227

8228

8229

:kTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

042260

042316
042330
042334

042340

$RAND:

MOV
MOV
MOV

RO, - (SP)
R1,-(SP)
R2’-(SP)

:;PUSH RO ON STACK
: 'PUSH R1 ON STACK
:'PUSH R2 ON STACK

042350

MOV
MOV
ASL
ROL
INC
BNE
ADD
ADC
ADD

SHINUM,R1
8-7,R2
RO
Rl
R2
13
$LONUM, RO
R1
SHINUM,R1

PIGET R1 WITH HIGH
1:SET SHIFT COUNT
;:SHIFT RO LEFT AND
i 'ROTATE CARRY INTO R1 AND
::CHECK FOR DONE
: :CONTINUE SHIFT LOOP
' ADD NUMBER TO MAKE X 129
: {PROPOGRTE CARRY
:1ADD NUMBER TO MAKE X 129

005501
062701

047401

ADC
ADD

R1
#47401,R1

: : PROPOGATE CARRY
::ADD HIGH CONSTANT

010137

042350

MOV

R1.SHINUM

013700

062700
010037

012602

042352
042350
177771

042352

001057
042352

MOV

18:

ADD
MOV

MOV

sLONUM, RO

#1057 ,R0

S'GET RO WITH LOW

::ADD LOW CONSTANT

RO, SLOAUM

'SAVE RO

(SP)+,R2

:1POP STACK INTO R2

::SAVE Rl

CZR6GBO RK6 DR CPT PROG MACY!!l
CZRBGB.P11
02-DEC-77 10:46

301046

02-DEC-77

Busdd B15B84

Q42346
Q42350
0423se

11:48

RANDOM NUMBER

000207
176543
123456

SHINUM:
$LONUM
SBTTL

RTS
.WORD
WORD

PRAGE

GENERRTOR

164

SEQ 01863

ROUTINE

(&RIL:RS

PC
176843
12 3456

+:pgp 2rak INT8 R
! I RETURN

TYPE ROUTINE

inuuuunnuunu}unuu"n"nuunnuui""uuu

iROUTINE TO TYPE RSCIZ MESSQGE MESSAGE MUST TERMINATE HITH 0 BYTE.

:#THE ROUTINE WILL INSERT
A NUMBER OF NULL CHARRCTERS RFTER
A INE FEED.
P ¥NOTE!L:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
: kNOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;Norsa
SFILLC CONTRINS THE CHARRACTER TO FILL AFTER.
*an

T¥[) usxuc A TRAP xnsrnucrron
’*on

YPE

, MESADR

: sMESADR

FIRST

ADDRESS

,,IS THERE A TERMINAL?

AN ASCIZ STRING

MESADR

$TYPE:

53[8

?;PFLG

042354

061157

000430

18:

0000e
00001

001350

000100

001351

g4e4eH
o44764
000040

000002
000011

042466
Q42470
Q4e47e
o4247Y
042476
Q4esoe
042504
Q42510
Q425 1M
g4esle

001351

001154

MOV

61%:
623

2%:

608

4%:

6%:

-(SP

HRL{
HERE IF NO TERMINAL
,,LERVE

i ; SAVE RSR

MOV

aetsp) RO

'GET RDDRESS OF ASCIZ STRING

BNE
BITB
BEQ

652%
NO, GO CHECK ron ArT CONSOLE
$APTSPOOL , SENVM ,,spb MESSAGE TO
APT
6528
co cuscK FOR CONSOLE

JSR

PC.SATY3

E&EB

gggrcsup,senvn. congo# U PRESSED

BNE

SAPTENY, SENV

,,RUNNING

RO,618

ss?P MESSAGE nooasss FOR APT

,,ng§s 2 g g

(RO)+,~(SP)

Pushcnnnncrsa TO BE TYPED ONTO STACK

(SP)+

,.IF TERMINATOR POP IT OFF THE STACK

ADD

82, (SP)

; ADJUST RETURN PC

SESB

ggT,(SP)

PIBRANCH IF <HT»

gnge

ggRLF,(SP)

: ;BRANCH IF NOT <CRLF>

757
TYPE
$CRLF

(SP)+

; s POP
<CR><LF> EQUIV
:'TYPE
A CR AND LF

CLRB
BR
JSR

$CHARCNT
2%
PC, STYPEC

: s CLERR CHARACTER COUNT
:'GET NEXT CHARACTER
::GO TYPE THIS CHARACTER

BNE
MOV

2%
$NULL, - (SP)

*2IF NO GO GET NEXT CHAR
:'GET 8 OF FILLER CHARS. NEEDED

MOV

04ee3e

013746

HALT
CMPB

000200

042566
001156

TYPE

_WORD

MOVB
TST

MOV
RTI

CMPB

(SP)+,RD

gFiLLc, (SPy+

N APT MQONE

: SPOOL nsssnc

RPT

'BR IF IT ISN'T THE TERMINATOR

: 'RESTORE RO
:RETURN

"1I1S IT TIME FOR FILLER CHARS. °

CZR6QB0O RKE& DR CPT PROG MACY1l
CZRBQB.P11
02-DEC-77 10:46
8286
8287
8288
8289

(Q4eSee
Q42526
042530

105366
002770
004737

gggé

Ov¥es40

000770

8290

042534

105337

30(1046)

000001

7%:

Q42566

0u42632

0Q42542

112716

000040

Q42552
042560
(Q42Sk2

132737
001377
005726

000007

Q42566

105777

136356

116677

000002

Q42546

8300

0Q4eSe4

8302

042572

8297
8298
8293
8301

8303

042574

8304

042602

8306

0Q426le

8305

8307

8308

8309

8310
8311
ggig

004737

000724

10037S

122766

00001S

105037

042632

122766

000012

Q4e610

001003

042616

000406

Q4ebed

001402

042620
042630
042632
042634

042566

10S2¢27
000000
000207

042632

9%:

B8R

; s LOOP

SCHARCNT

000002

MOVB

8’

_(SP)

JSR

PC, $§TYPEC

B8R

B8PL

STYPEC

BITB
BNE
T1ST

; ;REPLACE TAB WITH SPACE

07 SCHARCNT
qs’
(SP)+

;s TYPE A SPACE

,,BRQNCH IF NOT AT
AB STO
,,POP SPQCE OFF STACK
GET NEXT CHRRACTER

J9STPS

,,NQIT UNTIL PRINTER IS RERDY

2(SP) . a%TPB

;:LOARD CHAR TO BE TYPED

CLRB

SCHRRCNT

,,YES-~CLERR CHRARACTER COUNT

CMPB

8LF,2(SP)

,,IS CHRRACTER A LINE FEED”?

(PC)+
O
PC

; ;COUNT THE CHARACTER
; ; CHARACTER COUNT STORAGE

CMPB
BNE

1$:

; ;00 NOT COUNT RS A COUNT

TAB PROCESSOR

MOVB

000002

SEQ 0Ole4
; s AND THE NULL CHAR.
;;DOES
A NULL NEEC TC BE TYPED?
; ;BR IF NO--GO POP THE NULL OFF OF STRCK
:;GO TYPE A NULL

$TYPEC: TSTB
136350

I13

165

1(SP)
63
PC,STYPEC

; HORIZONTAL

8296

PRGE

DECB
BLT
JSR

DECB

gsga

8295

02-DEC-77
11:48
TYPE ROUTINE

BEQ

INC8
$CHARCNT: .WORD
S$TYPEX: RTS

OCR 2lsp)

STYPEX

INTO DRTA REG.

,,IS CHARACTER A CARRIAGE RETURN?
;BRANCH IF NO
sEXIT

; s BRANCH IF YES

B314

831e
8317

< 63630363 36 36 36 06 06 36 36 06 36 36 36 36 36 3 36 36 36 36 6 J 36 36 36 3 2 2600 06 3 22

8318

8319

DOUBLE-PRECISION MULTIPLY SUBROUTINE

USES ALL

ggS?

8322

o R

8327

; c BN NI

8329
8330
8331
8332
8333
8334
8335

042640
042642
042646
042650
042652
042654
042656

(00S001
O0l2746
006000
006001
6002
006003
103003

8336

042660

06050}

8339

Q042666

005316

8337
8338
8340
8341

0u4e6be
Q42664
042670
042672

005500
060400
001366
005726

fi DPIM: CLR
000041

M.DPOl:

JSR

(RO-R5)

INTEGERS

PC,M.DPIM

MULTIPLICAND IN RY4-RS
PRODUCT RETURNED IN RO-R!1-R2-R3

005000

NN H RN HENREXERLNE

MULTIPLIER IN’R2-R3

J#
;*

042636

REGISTERS

ENTER WITH

8328

SUBROUTINE TO MULTIPLY TWO DOUBLE PRECISION

8323

8324
gggg

QBTTL

NI NREEEWERERERRERRREEEARRRLRREEER
;CLEAR HI ORDER WORDS

CLR
MOV
ROR
ROR
ROR
ROR
BCC

R1
#41,-(SP)
RO
Rl
R2
R3
M.DPO2

ADC
ROD

RO
RY,RO

RDD DOUBLE PRECISION TO OBTRIN NEW PARTIAL
PRODUCT

M.DPO!L
(SP)+

; REMOVE

ADD

M.DPO2: DEC

BNE
TST

RS,R1

ash

;MOVE 33

(DEC)

TO COUNTER

;SHIFT TO ADD
;NO CARRY NO ADD

DECREMENT COUNTER

THE COUNTER

c‘asaao RKE DF CPT PRGG MACY11
CZREGE. P11
02-DEC-77 10:46
8342

0N2674

30(i046)

J13

02-DEC-77
11:48
PAGE 166
DOUBLE-PRECISION MULTIPLY SUBROUTINE

000207

RTS

8345

RERREBEEERRER AR EREREREREREREERREREEREEEREEREEREREREEEERTREEREERE

8346

"48TTL

gg:g

USES ALL REGISTERS

8350

‘»

ENTER WITH

8347

8361
8362

8363

8364
8365

(042676
(042702

(42704
042706
042712
042714

042720

012746
010446

010546
00S466
008416
005666

061601

Q42722
042724

005500
066600

8372

042734
042736
042740
042742
042744

006103
006102
006101
006100

00S716

8375
8376

042752
042756

066601
00SS00

8366
8367

8368
8369
8370
8371

8373
8374

8377
8378

8379

042730
042732

042746
042750

042760
042762

Q42766

8380
8381
8382
8383

042770
042772
Q42774
042776

8385
8386
8387

043002
043004
043006

8384

8388
8389
8390
8391
8392
8393
8394
8395
8396
8397

043000
(043010
043014
043016
043020
043022
(043024
Q43026
Q43030
043032
043034

103445
005046

001410
005016

005516
066600

000404

000040

MOV
MOV

NEG
SBC

000002

ADC
ADD

ADD

BCS
CLR

ROL
ROL
ROL
ROL

M.DP41:

000010

M.DP44:

2 3

%E X R

LO ORDER DIVISOR TO THE STACK
:FORM NEGATIVE
" VERSION OF THE DIVISOR

;PERFORM THE

INITIAL SUBTRACTION

M.DPSO
-(sp)

: IF CARRY THEN OVERFLOW HARS OCCURRED
:THIS 1S A LONGER LASTING CARRY BIT

M.DPY1
JSP

*IF NO “CARRY* THEN ADD ELSE SUBTRACT
*CLEAR UP FOR NEXT TIME

: TEST "CARRY

JSP
1
4(SP) RO’

INDICATOR”

:ADD -(DIVISOR)

'SET "CARRY”

M.DP42

ADD
ADC
ADC
ADD

RS, R1
RO
JSP
RY,RO

TST
BEQ
INC

JSP
.+
R3

DEC
BGT
ROR
BCS
ADD
ADC
ADD
cLC
ROL
ADD

I I3 I 3 I

JSP
2(SP)
JSP,R1
RO
2(SP) RO

RS -(SP)
2(5P)

2(SP),R1
RO

B8R

counrsa FOR DIVISION CYCLES
HI ORDER

AOD
ADC

M.DP42: ADC
000006

R I3 I3

#40, - (SP)
R4, - (SP)

1ST

ADC
ADD

000004

R3
R2
RI
RO
Jsp

BEQ
CLR

000002

005516
005366
003347
006003
103404
060501
005500
060400
000241
006103
062706

000002

M.DP40:

PID

QUOTIENT RETURNED IN R2-R3

MOV
NEG

000002

060501
005500
005516
060900

005716
001401
005203

Is BTN

M. DPID:

JSR

DIVISOR IN R4-RS
REMAINDER RETURNED IN RO-RI

‘e

HE2

(RO-RS)

DIVIDEND IN hoRl -R2-R3

‘e
¥

gggg

8359
8360

SUBROUTINE TO PERFORM DOUBLE-PRECISION INTEGER DIVISION

8352
8353

8357
8358

DOUBLE-PRECISION DIVIDE SUBROUTINE

8351

83S6

SEQ 0165

asP

6(SP)
M.DPY0
R3
M. DPYY4
RS, R1

s 1
;<
s
i1
i«

;ADD +(DIVISOR)
:SET “CARRY®

:SET_"CRRRY"

*TEST THE UPDATE Iuozcnron
:IF 2ERO FORGET IT
'NO CARRY POSSIBLE HERE
:DECREMENT COUNTER
'BR IF MORE TO DO

R4, RO
R3
#10,5P

;ADJUST

STARCK

BY 4

WORDS

C<REGBO ?TG DR _CPT PROG HQCfél
CZREGB.P
08-DEC-77 10:4

8398
8339
8400
8401
8402

8403
8404
840%S
8406
8407
8408
8409
8410
8411
8412
8413
8414
8415
8416
8417
8418
8419
8420
8421
g422
8423
8424
8425
8426
8427
g428
8429
8430
8431
8432
8433
8434
8435
8436
8437
8438
8439
8440
8441
8442
8443
8444
B44S
BY4E
8447
8448
8449
B450
8451
8452

043040
Q43042
043044
043050
043052

000242
000207
062706
000262
000207

00000E

30(1046)

K13

02-DEC-77
11:48
PAGE 167
DOUBLE-PRECISION DIVIDE SUBROUTINE

M.DPS0:

.SBTTL

CLV
RTS
ADD

PC
%6, SP

RTS

pPC

SEV

SEQ Cleb

DOUBLE LENGTH BINARY TO OCTAL ASCII

CONVERT ROUTINE

34063636 36 36 00 36 06 36 36 06 06 36 30 00 96 06 06 06 06 06 06 00 060 00 00 00 0300000 30 30 00 36 00 08 36 36 36 30 30 06 36 00 06 06 06 36 30 0 6 2 6 00 0 30 O 00

iTHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

*ggEEGNED OCTAL ASCIZ NUMBER.
:

Q43054
043056
Q43062
043066
Q43072
043076
043100
043102
043104
043106
043110
Q43112
043114
043116
043120
043124
043126
043130
043132
043134
043136
043140
Q43142
043144
043146
Q43150
043154
043156

104407
016601
012705
012704
012703
012100
012101
005002
110245
010002
00S304
003007
001405
005205
010566
104910
000207
006203
006001
006000
006001
006000
006001
006000
040302
062702
000753
000016

000002
043173
000014
177770

$DB20:

MOV

JSR

RETURN

SAVREG

MOV

2(SP),R1

MOV

#12. R4

MOV

000002

2%:

3%:

P1CALL THE ROUTINE
' 'THE ADDRESS

THE

FIRST

'PICKUP THE POINTER TO LOW WORD

; ;00 ELEVEN CHARACTERS
K

. ' TERMINATOR

MOV
DEC
BGT

RO, R2
RY
3%

P GET THIS DIGIT
: COUNT THIS CHRRACTER
:BR IF NOT THE LAST DIGIT

MOVB

R2,-(RS)

'HIGH WORD

' 'PUT CHRRACTER IN DATA TARBLE

BEQ
INC
MOV
RESREG
RTS

"'BR IF IT IS THE LAST DIGIT
:'ALL DIGITS DONE- QDJUST POINTER ron FIRST
::ASCIZ CHAR. & PUT IT ON THE STA
,.RESTORE ALL REGISTERS
*'RETURN TO
USER

ROR

: jPOSITION THE BINARY NUMBER FOR

ROR
ROR
ROR
ROR

R1
RO
R1
RO

ADD

8’0, Ke

ASR

ROR

23
RS
RS,2(SP)

:'POSITION THE MASK FOR THE LQST DIGIT

R3,R2
18

THE NEXT OCTAL DIGIT

sMASK OUT ALL JUNK

,,nnxs THIS CHAR. ASCII

1G0 PUT IT IN THE DATA TABLE

$OCTVL: .BLKB
14
:RESERVE DATR
TRBLE
.SBTTL DOUBLE LENGTH BINRRY TO bécrnnL ARSCII CONVERT ROUTINE
$ 3 JEJEEEIEIEIE 0606 0000000 06 0

300600 0

NN NI

RN R RN R AR

;4THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
iOECIMRL (RSCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
;*
'y

::POINTER TO DATA TABLE

CLR

(R1)+.R1

ASCIZ CHAR.

;i SAVE ALL REGISTERS

#$0CTVUL+13.,RS
#1C7 R3

,,LONER WORD

BIC

000060

: sPOINTER TO LOW WORD OF BINARY NUMBER

(RID$,RO

MOV

18:

#PNTR, - (SP)

PC, 3880820

MOV
JSR

#PNTR, - (SP)
PC, 3840820

: ;POINTER TO LOW WORD OF BINARY NUMBER

THE

STACK

30(1046)

L13

11:48
PAGE 168
02-DEC-77
DOUBLE LENGTH BINARY TO DECIMAL ASCII
RETURN

;s THE FIRST ADDRESS OF RSCIZ
;3 1S ON THE STACK

000002
043354
000002

$0BzD:

SAVREG
MOV
MoV

; ;SAVE REGISTERS
; ;PICKUP THE DARTR POINTER

: ;PICKUP THE BINARY NUMBER

043272

83 TNPUR RY

23 TNPWR2,
RS

R3
(R4),R1
R2
(RS),R2

;3SET UP TO DO 10 CONVERSIONS
; ; ADDRESS OF TEN POWER
; ; CLEAR PARTIAL
; ;SUBTRACT TEN POWER

;;BR IF TEN POWER TO LRRGE
;;ADD 1 TO PARTIAL

; :LOOP

; ;RESTORE SUBTRACTED VALUE

39%:

; ;MOVE TO NEXT TEN POUER
; ;CHANGE PARTIAL TO ASCII
SAVE IT

000060

BONE?

. :BR IF NO
! I TERMINATOR
' 'REGTORE REGISTERS
P RETURN
', 0EQ9

000014

$DECVL:

_SBTTL

.BLKB

_0EDB
P

. 0E07

. 0EC

.0EOS
[

.DEOY4

o000
n

043354

$TNPUR:

.0E03

. 0ED2

google
Q43304
043306

1851 ABBAESZ OF a2PYs STRING ON STACK

- .

Q43174
Q43176

CONVERT ROUTINE

-e

C_RKE DR _CPT PROG MACY11
Pl
0e-CcC-77 10:46
i

1.0€01

.+ 1.0E00
12

. . RESERVE STORAGE FOR ASCIZ STRING

TYPE NUMERICAL RSCIZ STR tAG SUPPRESS LEARDING ZEROS

;;*!*i!i!li*!l!**i!iil*!**lii*ii*i**l*!ll!!l!’*l*liii!ll*i!**i!lf

SEQ 0167

CZR6GBO Rk DR

CZR60B.P11

CPT

PROG MACY!l

02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

PAGE

M13

169

SEG 0168

TYPE NUMERICAL RSCIZ STRING SUPPRESS LEARDING ZEROS

8510
8511

:#THIS ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
: *LERDING NUMBERS.

8513

MOV

JSR

PC, 388SUPRS

$SUPRS:

MOV
MOV

RO, -(SP)
4(8P),RO

. s SAVE RO
;;PéCK?P THS POINTER

BEQ
CMPB

2s
#'0, (RD)+

;;BR IF YES
“53 THIS AN RSCII

DEC
MOV
TYPE

RO
RO, 3%

:tBACKUP BY
1
: ;SAVE FOR TYPING
1160 TYPE

gs1e

: #CALL

8514

8515
8516
8517
8518

DE
043370
043372

010046
016600

043400
043402

001403
122720

4341
043412
Q43416

30
010037
104401

gsxe

043376

gssg

434 8

G20
8521

g
8524
8525

10S710
8%7?

852
852

gngsg
434

800008
1260

8529

043426

000207

8528

ggg?

043424

000004

18:

TSTB

000060

BEQ

2%:

043420

3%:

012616

; ;FIRST ADDRESS OF ASCIZ STRING

(RD)H

: P

TERMINATEOR?

;i8R

IF YES

.WORD
MOV

O
(SP)+,RO

;;ngcxz PO&NTER GOES HERE
: 'RESTORE
RO

RTS

MOV

.SBTTL

8NUMADR, -(SP)

(SP)+, (SP)

: ;RESTORE

BINARY TO OCTAL (RSCII) AND

-RETUR

THE STACK

TYP

8833

HH 1222 222222222222222322322:2X2222X2X2XXX22X2223X2X2222 2222222238 ]

8534

;#0CTAL

(ASCII)

NUMBER AND TYPE

IT.

8537

MoV

NUM, - (SP)

; ;NUMBER TO BE TYPED

"ETHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO R 6-DIGIT

gggg

;:gglfos-——suren HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

8538
8539
8540
8541
gg:g

S
"
2
S
T

TYPOS
.BYTE
.BYTE

;;CALL FOR TYPEOUT
;;N=1 TO 3 FOR NUMBER OF DIGITS TO
;:M=1 OR
;3 1=TYPE LEADING ZEROS
: : 0=SUPPRESS LEADING ZEROS

N
M

8544
8545
8546
8547
gg:g

: k§TYPON----ENTER HERE TO
: #§TYPOS OR STYPOC
:#CALL:
s e
MOV
NUM, - (SP)
S ¥
TYPON

TYPE OUT WITH THE SAME PARAMETERS AS THE

ggg?

;.g;zfoc-—-snrsn HERE

TYPEOUT

8552

;¥
x

ggga

8555

(43430

8558

(043446

8556
8557

8559

043434
(043442

017646

000000

0627

000002

116637
112637

(043452

000406

043476
043500
(043502

010346
010446
010546

000001
043655

043653

$TYPOS:

16 BIT

NUMBER

MOV

NUM, - (SP)

; ;NUMBER TO BE TYPED

MOV

d(SP),-(SP)

; ;PICKUP

82, (SP)

: ;ADJUST RETURN ADDRESS

RSNk,
c?2§8cn9

S THE
R ERATI
O
PISET
ITERATION COUNT

TYPOC

MOVB
MOVB

ADD

1(5P) ) SOFILL
(SP)+!SOMODE+1

$TYPON

MOV
MOV
MOV

R3,-(SP)
RY,-(SP)
RS, -(SP)

SH
mug
g6 R
843495 [l
1157 7 g
80888? e
043652 sTeoc
S$TYPON: ngvg
8563
8564
8565

FOR

; ;NUMBER TO BE TYPED
{ICALL FOR TYPEOUT

:1CALL FOR TYPEOUT
THE MODE

::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

: 1SAVE R3
: :SAVE RY
::SAVE RS

TYPE

LAST

CZ R&OBO RKE& DR CPT PROG MRACY!l
CZRE6QB.P11
02-DEC-77 10:46

8566
g8ce7

043504
Q43510

113704
00S404

8569
8570
B8ETM1

(043516
043522
Q43526

110437
113704
016605

043534
(043536

006105
000404

8576
8577
8578
8579
8580
8581

Q43542
043544
Q4354
(04355
043552
(043556

00610S
(006105
010503
006103
105337
100016

8583

043564

8s68

Q43512

8572

043532

857

043540

8573
8574

8S82

062704

005003

042703

8584

Q43566

00S704

8586

043572

043570

001002

8587

(043574

8590

043610

8592
8593
g8S94
8595
8596
8597
8598

043620
(0Q4362¢
(043624
04362b
(043630
043632
043634

003347
002402
005204
000744
012605
012604
(012603

8600
8601

043644
043646

(012616
000002

8603
8604

043651
(043b65S2

8588
8589
859!

8599

8602

8608
8606

gggg
8609

8610
86l1
86le

043600
(043604

043614

(043636

043650

043653

043654

052703

1%:

ce:
3%:

043654

177770

000060

5%:

106337

04365¢

7%:

016666

000

000
000

000

000000

::GET THE NUMBER OF DIGITS TO TYPE

MOVB
MOVB
MOV

RY’ $OMODE
SO#ILL RY
12(SP),RS

;SAVE 1T FOR USE
GET THE ZERQO FILL SWITCH
,,PICKUP THE INPUT NUMBER

ROL
BR

CLR

ROL

043650

69:

000002

000004

8%:
SOCNT:

86, RY

..SUBTRQCT IT FOR MAX.

R23

; ;CLEAR THE OUTPUT WORD

;;FORH THIS DIGIT

RS
RS
RS,R3
R3
$0MODE
73

;3 GET LSB OF THIS DIGIT
;3 TYPE THIS DIGIT
s
IF
NO

BNE

;s TEST FOR O

BEQ

INC

#177770,R3

,,GET RID OF JUNK

,,SUPPRESS THIS 0?
IF YES

.,DON T SUPPRESS RNYMORE Q’s

8IS
Move

%' _R3
R3, 8%

,,MQVE RSCII IF NOT QLRERDY
; s SAVE FOR _TYPING

DECB

$OCNT

; ; COUNT BY

BIS

TYPE

BGT
BLY
INC
BR
MOV
MOV
MOV

8'0,R3
8

cs
69
R4
29
(SP)+,RS
(SP)+,RY
(SP)+,R3

;MAKE THIS DIGIT

ASCII

; ;GO TYPE THIS DIGIT

;;BR IF HORE T0 DO
; ;BR IF DGONE
,,INSURE LAST DIGIT ISN'T A BLANK
; ;G0 DO THE
LAST DIGIT
; ;RESTORE RS
; sRESTORE RY
; RESTOR

MOV

2(SP),4(5SP)

.BYTE

,,STORQGE FOR ASCII DIGIT

,,ZERO FILL SWITCH

MOV
RTI

.BYTE
.BYTE

(SP)+, (SP)

0
0

;s SET THE STACK FOR RETURNING
RETU

,,TERMINRTOR FOR TYPE ROUTINE
;OCTAL DIGIT COUNTER

$OFILL:

.BYTE

.SBTTL

CONVERT BINARY TO DECIMQC AND TYPE ROUTINE

$OMODE:

ALLOWED

.,ROTnTE MSB INTO "C”
;GO DO MSS

ROL
ROL
MOV
ROL
DECB
BPL

TST

000040
043650

104401

$OMODE+1, R4
R4

BIC

SEQ D169

MOVB
NEG

RADD

Q43654
043653
000012

0S2703
110337

.WORD

+NUMBER OF DIGITS 10 TYPE

iilliiilli&iiili*il*i*i**l*&lil!*ii*&ilii*ll;***ii*ii;*l******}

iTHIS ROUTINE 1S USED TO CHANGE R 16-BIT BINARY NUMBER TO
A S-DIGIT
lSIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
!NUHBER IS POSITIVE OR NEGATIVE R SPACE OR
R MINUS SIGN WILL BE TYPED

8613
gg%g

*BEFORE HE FIRST DIGIT OF THE NUMBER. LEARDING ZEROS WILL RALWAYS BE
:ggEtRCED WITH SPACES.

8616

gg{g
8619
8620
8621

(00G006

001403

005204

N13

02-DEC-77
11:48
PRGE 170
BINARY TO OCTAL (ASCII) AND TYPE

043655

006105

043560

BSB8S

3011046)

s #
043656
043656
043680

010046
010146

$TYPDS:

MOV

NUM, - (SP)

;; PUT _THE BINARY NUMBER ON THE STRCK

MOV
MOV

RO, -(SP)
R1,-(SP)

; ;PUSH RO ON STACK
; ;PUSH R1 ON STRCK

TYPDS

:3;G0 TO THE ROUTINE

CZR6UBO RKe DR CFT PROG MACY1l
CZRe0B. P11
02-DEC-77 10:46

30(1046)

Bl4

02-DEC-77
11:48
PAGE 171
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

00005S

000001

044072
000040

18:

2s:

044062

33:

4s:

5§ 000001
000060
000040

177777

6$:
73

[ 00000000
n D"‘"‘O"”""‘"‘"‘
W
oL
£
o
n
o
[+ d
o

8%:

O44066
044070
044072

o44072
000002

R2,-(SP)
R3. -(SP)
RS’ -(SP>

::PUSH R2 ON STACK
1 PUSH R3 ON STACK
1 PUSH RS ON STACK

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) RS
18
RS
8'-,1(SP)
RO
8SOBLK,R3

2iGET THE INPUT NUMBFP
18R IF INPUT 1S POS.
:IMAKE
THE
BINARY NUMBER POS.
:'MAKE
THE
ASCII NUMBER NEG.
: ZERO THE CONSTANTS INDEX
:ISETUP THE OUTPUT POINTER

CLR

:'CLER® THE BCO NUMBER

SuB
BLY
éSC

R1,RS
4§
gg

ADD
157

R1,RS
R2

: ;ADD BACK THE CONSTANT
PICHECK IF BCD DIGIT=0

(SP)
78
(SP)

::STILL DOING LEADING 0°S”
:'BR
IF YES
1
1MSD?

1(SP),-1(R3)

P YES--SET THE SIGN

8’

:MAKE

MOVB
MOV

177778

9§

$OTBL:

$DBLK:
.SBTTL
S

,(R3)+

:GET BLANK SWITCH AND SIGN

2 SET THE FIRST CHARACTER TO & BLANK

$OTBL (RO),R1

:1GET

THE CONSTANT

:'FuRM THIS BCO DIGIT
Ve
IF DONE
i 'INCRERSE THE BCD DIGIT BY

BCcC

8IS

#'0,R2

MOVB
TST

R2,.lR3)+
(RO)+

11PUT THIS CHARACTER IN THE OUTPUT BUFFER
11 JUST INCREMENTING

BLT
8GT

2%
83

:1GO DO THE NEXT DIGIT
1160 TO
EXIT

(GP)+
93
-1(SP),-2(R3)
(R3)

P'WAS THE LSD THE FIRST NON-2ER0”?
;BR_IF NO
::YES--SET THE SIGN FOR TYPING
::SET THE TERMINATOR

1578
BMI
ASLB

MOVB
BIS

MOV
BR
7578
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV

TYPE
MOV

000004

820200, - (SP)

BNE

CMP

000010

1772777

MOV
A0V
MOV

MOV

020200
000020

SE@ 0170

P'FALL THROUGH IF O

.R2

RO, 810
RS, R2
X

(SP)+,RS
(SP)+.R3
(5P)+.R2
(SP)+.RI
(5P)+ RO

$DBLK
2(SP),4(SP)

:iMAKE

THE BCD DIGIT ASCII

IT A SPACE

IF NOT ALREADY A DIGIT

:'CHECK THE TABLE INDEX

MOV
(SP)+. (SP)
RTI
10000
1000.
100.
10.
4
.BLKW
ERROR HANDLER ROUTINE

HNMMNENR NN E R

:'BR _IF NO

RR AR AR

PIGET THE
LSD
:'GO CHANGE TO ASCII

:1POP
:'POP
:'POP
:1POP
:'POP

STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO

RS
R3
R2
Rl
RO

S NOW TYPE THE NUMBER
1:ADJUST THE STACK
: sRETURN TO USER

EERRRR R RSN R RN RN RERRRRRRRRRRRE RS

:4THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

CZR6QBO RK6 DR CPT PROG MACY1l

CZR6QB.P11

02-DEC-77 10:46

30(1046)

02-DEC-77

11:48

PRGE

ERROR HANDLER ROUTINE

Cl4

172

SEQG 0171

8678

; #SAVE THE ERROR ITEM NUMBER AND THE RDDRESS OF THE ERROR CALL

8289

iTHE
SWITCH 09118~§ PROV&BSB BY THIS ROUTINE ARE:

8679

S#AND GO TO TYPERR ON ERROR

8682

‘#8W13= 1

8684

; #SW09=1

8683
8685

: #CALL

gggg
8688

12"
044102

8689
8690

044102
044106

105237
001775

001103

qu
g
8694

4116
441
04MI26

8 2777
1402
104401

002000
001320

4136

1116

8691

gqu
69

8697

044110
8341

“‘ES

013777

805237
15273

001102

$ERROR:

78:

135024

1112

000002

001116

1177237
03§777

8702

044172

104401

001325

8704
8705

Q044176
044204

122737
001007

000001

001350

044220

8708
8709

044220
(044221

000
000

001114
044774

8711
8712

044224
044230

8703

8706
8707
8710

4166 88498; 030352

(044176

044206
044214

113737
004737

044222

1200777

8713
8714

(044232
044234

8000
0327?77

8716
8717
8718
g;ég

044244
(044250
044254
833523

013716
005737
001402
013716

8721
8722
8723
8724
8725
g;gg

0M4262
044270
(044272
(044274
044274

022737
001001
000000

8715

8728

8729

8737

8732

134742
020000

18:

41
033}2&

044242

305777
10000l

001402

000002

001000

208:

22%:

2s:

3%:

001110
001316

4§:

001316

017264

ERROR

INCB
BEQ

SERFLG

BIT
BEQ
TYPE

SBELL

MOV

(SP)

000042
6%

.SBTTL

. ;ERROR=EMT AND N=ERROR ITEM NUMBER
73 SET THE
_ERROR FLAG
‘DON'T LET
THE FLAG GO TO ZERO

?TNH gorganv ,,gésanv Tagr NUMBER AND ERROR FLAG

INC

;

;BELL ON
s

OR?

RING sg

ERRPC

g s

MOVB
agr

218:

134676

LOOF ON ERROR

SUB

001114
134754

134710

BELL ON ERROR

MOV

135014

8698
ggeg

8701

INKIBIT ERROR TYPEOUTS

:#SW10=1

3SERRPC sxrsns
#BIT13, JSLR

,,co NT
:GET

THE NUMBER OF ERRORS

RDDRESS OF ERROR

INSTRUCTION

:STRIP AND SAVE THE ERROR ITEM CODE
§E§; ¥¥SEOUT IF SET

58 TYPERR

::co T0 usES EgROR ROUT INE

CMPB
BNE

SAPTENV, SENV
2%

,,RUNNING IN APT MODE
:NO,SKIP APT ERROR REPORT

.BYTE
.BYTE

TST
BPL

JSWR
33

TYPE

MOVS
JSR
BR

HALT
BIT

,SCRLF

SITEMB, 1S
PC, SATYH

1 SEY ITEM NUMBER RS ERROR NUMBER
,,REPORT FATAL ERROR TO APT

22%

; ;APT _ERROR LOOP

#BI1T09, aSKR

,,HQLTE
; ; LOOP on RROR SWITCH SET?

; ;HALTON ERROR
iSKIP xr CONTINUE

BEQ

SLPERR, (SP)
ESCAPE
3
SESCAPE, \SP)

,.ruoce RETURN FOR LOOPING
:CHECK FOR AN ESCAPE ADDRESS
‘B8R IF NONE
,,ruoce RETURN RDDRESS FOR ESCAPE

CMP
BNE
HALT

#SENDAD, du42
63

;;ACT-11 AUTO-ACCEPT?
: ;BRANCH IF NO
PIYES

MOV
TST
BEQ
MOV

RTI

TTY

INPUT ROUTINE

‘BR

. ; RETURN

ERRERERREERRREREREEREAEREE
R R RREE L LR AR LA REE LR IR AR R RALAL
LS

"NABL

LSB

DSABL L

LSB

CZR6QBO RkE DR CPT PROG MACYL1
02-DEC-77 10:46
CZReQB. PLL

30(1046)

8734
873S

02-DEC-77

TTY

11:48

INPUT ROUTINE

PAGE

D14

173

SEQ 0172

SRR RRRRRRREERRERRERERESRRRRRRR
RN R RN RER RS RRRRR SRS

iTHIS ROUTINE WILL INPUT A SINGLE CHRRACTER FROM THE TTY

:c LL:

RE?URN HERE

SROCHR:

MOV
MoV

844508 B14EeE

Q44306
e

000004
134632

000002

134626

000004
00004
00023

77600

00004

18:

2%:

134600
134574
177600
000021

Q44452
044460
Q44462

D4446Y

Q44470
044474
Q44476

044504
Q44S1e
044520
04452y
044530
044532

000004

000175

000040

000004

00S01S
006507
053523
000

000
000012
O20l1ee

047040
000040

044446

012737
000000
000776

O444EY

(SP)

; PUSH DOWN_THE

1STB

agTKs

SiWAIT FOR

MOVB

J8TKB,4(SP)

; ;A CHARACTER

;,Rsno THE TTY

B8PL

BIC
CMP
BNE

7578

BPL

053505

000024

3s:

134350

Sgr

:BRANCH IF NO
,,unxr FOR A ?HRRRCTER
§iLOOP UNTIL

BNE

i IF NOT DISCARD IT

CMP
BLY

4(SP), 8140
Y

}1 UPPER CASE?
,,annucu IF YES

BGT
BIC

4s
#40, 4(SP)

; ;BRANCH_IF YES
E IT UPPER cass

CMP

4(SP), #8175

:GET CHARACTER

;1S ITA CONTROL-Q?

,,YES

RTI

.RSCIZ
.RSCIZ
.ASCIZ

/tU/<15> 12>
/1G/<18>(12>
<15>¢12>/SWR =

SMNEW:

.RSCIZ

.SBTTL

POWER DOWN AND UP ROUTINES

NEW

HALT

4s:

GO BACK TO USER
: *CONTROL "U”
: 'CONTROL "G"

. POWER DOWN ROUTINE

$PWRON:
MOV

RESUME

:'1S IT A SPECIAL CHAR?

$CNTLU:
SCNTLG:
§MSWR:

ITS THERE

,,nnxe 1T 7-BIT ASCII

(5P)+,521

#SPWRUP, PURVEC
-2

POWER UP ROUTINE

000024
0000ee
000036

ET RID OF JUNK IF ANY
:116 1T A CONTROL-5”

#1C177 (SP

$PWRUP: CLR

044536
044536

044540

81C<177> 4(SP)
4(SP), 823
33

J$TKB, - (SP

044452

'SAVE THE PS

MOVB

CMP
000140

,,HITH PRRITY BIT STRIPPED OFF

4iSPY .

BIC

000004

EINSLS CHRRQ%TER FROM THE TTY

HQ QCTE

;SET vscron FOR POWER UP

:HANG

éng

s;uncr

$PWRCT

:WAIT LOOP FOR TTY TO COME UP

MOV

#$PWRDN, PURVEC

;SET VECTOR FOR POWER DOWN

MOV
MOV

#PR7 TRAPVEC+2
#5TRLK, SP

:RE-INITIALIZE THE STACK

MOV

TYPE
RESET
NP

#PR7,PWRVEC+e

, PWURMSS

JSLPADR

:RE-ESTABLISH POWER AND TRAP PRIORITIES

:TYPE “POWER FRILEDTM
:CLEAR THE UNIBUS
:RESTART THE CURRENT TEST

ElY4

CZR6QBO RKE DR CPY PROG MARCY11 30¢1046)
02-DEC-77
11:48 PRGE 174
CZR6@B.P11
02-DEC-77 10:46
POWER DOWN AND UP ROUTINES
8790

8791

8792
8733

8794

044536

Q44540
Q44546
044554

8795

000000

O00SCLIS
020122
Q42105

o44sSe2

047520
040506
00S01S

042527

046111
000

£
8798
8802

8803
8804
880S
8806
8807

Q44562

Q44566
Q44570
044576
044600
044604

10S737

8824
8825

001406
032777
001402
013716
000002

001000
001110

5¢OPE1 TSTB

044606

044620
044624
044632
044636
044642
044644
044646

013746
012737
005737
012637
000421
022626
012637

00000
044644
177060
000004

8838
8839

044654
044660

105737
001412

001103

8841

044670

001404

044200

000420

Q44652

8837 Q44654
8843

8844

8845

6S:
.SBTTL

SCOPE HANDLER ROUTINE

134342

8828
8829
8830
8831
8832
8833
8834
8835

8842

SERFLG

BEQ
BIT
BEQ
MOV
RTI

6%
#8179, ISKR
63
SLPERR, (SP)

;SEE_IF AN ERROR HRS OCCURRED

:BR_IF_NOT
iSEE_IF LOOP ON ERROR DESIRED
;BR_IF_NOT
iSET ERROR LOOP ADDRESS ON STRCK
:RETURN

IT WILL INCREMENT

:#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
s #SWI4=]
LOOP ON TEST
: #SW09=1
LOOP ON ERROR
,iCRLL

000416

8840

.EVEN

:¥AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY(¢15:08>

044616

8836

<«15>¢12>/POWER FRILED/
/1S 12>

< 3636303036 30 36 30 30 06 30 36 3¢ 06 00 06 0 0 6 0 0 0 06 0 00 00 0 0000 0000000600 30 36 38 36 30 36 00 34 36 90 00 30 30 36 30 30 00 00 6 30 00 6 0 00 00

032777
00I0S2

8827

iTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

044606
044614

8826

.ARSCIZ

< S0 3000 000 30 30 36 36 38 3% 36 B 06 36 3 3t 36 3 3 3048 3% 3% 3 35 3% 0% 3 3 2 08 0 3% 4% 3 4 98 0 3 30 30 3 3 3% 3 36 30 3 3 3% 3 3 2 3 08 3% 3% B

001103

8821

8822
86823

.WORD_

‘ SCOPE1 - INTERNAL SCOPE ON ERROR ROUTINE
:#CALLED BY “SCOPER"

00 (D O 00 00 MM O MM
00 0D 0D 0D 00 0O 0D 00 D D M
[ VP retwtetutuiutututes
OoWwoONOCNLWMN—0O

8808
8809

PWRMSG:

o S0 0 30003 300300 3 20 00 36 06 3 6 36 3 3 3% 3 3 3 2 3 36 36 3 3 3 2 3 3 3 3 2 20 3 36 30 30 30 30 0% 3 30 0 206 3 3 3 4 2 3 2% 2% 2 2%

8799
8800
8801

SPWRCT:

SEQ 0173

044662
044672

(044702

0O4470&

000407

040000

124324

18§:

BIT
BNE

00000H
S§:

000004

#BIT14, aSWR
SOVER

; ;LOOP ON_PRESENT TEST?
YES IF SWl4=!

;IF _RUNNING ON THE_“XOR" TESTER CHANGE

MOV
MOV
157
MOV
B8R
CMP
MOV

J8ERRVEC,-(SP)
§5S, J8ERRVEC
177060
(SP)+, 98ERRVEC
$SVLRD
(SP)+, (SP)+
(SP)+. IBERRVEC

STHIS INSTRUCTION TQ A "NOP” (NOP=240)
;:SAVE THE CONTENTS OF THE ERROR VECTOR
,,ss FOR TIMEOU
TIME OUT ON on
,,RESTORE THE ERROR VECTOR
;1GO_TO THE NEXT TEST
"CLEAR THE STACK AFTER A TIME oUT
,,RESTORE THE ERROR VECTOR

TST8
BEQ

SERFLG
$SVLAD

; 1HAS AN snnon OCCURRED?
F NO

BEQ

$OVER

:LOOP ON THE PRESENT TEST

63:; susw8END OF CODE FOR THE XOR ?Esrsno:.

001000

134250

013737

001110

001106

105037

001103

001102

; : SCOPE=10T

. 4u48uSTART OF CODE FOR THE XOR ftsrenssooo

§xTSTR: BR

032777

105237

sscops:

SCOPE

BIT
7§:
4g:

MOV

CLRB

$SVLAD: INCB

sBITOS, ASKR

$LPERR,SLPADR
$ERFLG

$TSTNM

,.LOOP ON ERROR?
R

IF NO

::SET LOOP ADDRESS TO LAST SCOPE
; ZERO_THE ERROR FLAG

,,COUNT TEST NUMBERS

CZR6QBO RKE DR CPT PROG MACYIl

CZREGQB.P11
8846

044712

8848

(044724

8850

0O44734

8852

0447?50

8847

8849
8851

8853
gggg
8856

044720

(044730

0Qu4742

044754

02-DEC-77 10:46
113737

001102

011637

001110

112737

000001

013716

001106

011637

005037
013777

000002

8857

Q44756

112737

8859

Q44772

000403

8858

Q44764

005737

105737

O0N1376

048076

012737

(45114
045122
(045126

0013S0

000100

001351

000004

105720

163700
006200
010037
000413
017637

062766
013746
004737

001346

001330

000004

045132

000002
177776
042354

105737
001416
005737
001413
005737
001375
017637

000004

8896

045172

005237

001330

045214

012600

8897
8898
8899
8900
8901

045176
045202
(045206
045212

062766

105037
105037
105037
012601

1$:
2s:

000004

045132
045134
046134
0O45i40
045142
045146
045150
045164
045156

Q45164

000004

3%:

001350
001330

000002
045222
045221
045220

$TSTNM,STESTN

(sP), ${ PADR

(SP)

SLPERR

SEG 0174
;;SET

TEST NUMBER

IN APT MAILBOX

::SAVE SCOPE LOOP ADORESS

1 SAVE ERROR LOOP ADDRESS

SESCAPE

MOV

$TSTNM, 3DISPLAY ::DISPLAY TEST NUMBER

MOVB

MOV

81 . SERMAX

SLPADR. (SP)

P:CLERR THE ESCAPE FROM ERROR ADDRESS
S ONLY ALLOW ONE(1)

ERROR ON NEXT TEST

' 'FUDGE RETURN RDDRESS

RT1I
: :FIXES PS
APT COMMUNICATIONS ROUTIME
move
MOVB

118:
001332

000004

SMFLG

::
70 REPORT FRTAL ERROR
2170 TYPE A MESSAGE

sAtyc

81, SFFLG

;;TO ONLY REPORT FATAL ERROR

MOV
MOV

RO, -(SP)
Rl -(5P)

; ;PUSH RO ON STACK
:1PUSH R1 ON STACK

BEQ
CMPB
BNE
BITB
BEQ
MOV

S§
:'IF NOT:
BR
SAPTENV, SENV
: 'OPERATING UNDER APT?
33
"IIF NOT:
BR
SAPTSPOOL
, SENVM ; : SHOULD SPOOL MESSAGES?
33
: IF NOT:
BR
d4(SP) RO
: 1GET MESSAGE RDDR.

TST

SMEGTYPE

:;SEE IF'OONE W/ LAST XMISSION?

(ROY+

:'FIND END OF MESSAGE

SJB
ASR
MOV

§MSGAD, RO
RO
RO, SMSGLGT

::SUB START OF MESSAGE
*1GET MESSAGE LNGTH IN WORDS
:'PUT LENGTH IN MAILBOX

BR
MOV

s$
JY(SP),

MOVB

ADD

SMALG

82, 9(SP)

BNE
MOV

13
RO, SMSGRD

BNE

1518

ADD
MOV
JSR

%49 SMSGTYPE
48

:'GHOULD TYPE A MESSAGE”?

. -BUMP RETURN ADCR.

P IF NOT:
WAIT
JIPUT ADDR IN MAILBOX

P TELL APT TO TRKE MSG.
. :PUT MSG ADDR

IN JSR LINKAGE

_WORD

#2.9(SP)
179776, -(SP)
PC,STYPE

. . BUMP RETURN ADDRESS
:;PUSH 1772776 ON STACK
::CALL TYPE MACRO

1STB
BEQ
TST
BEQ
TST
BNE
MOV

SFFLG
12%
SENV
128
$MSGTYPE
118
d4(SP),SFATAL

: s SHOULD REPORT FATAL ERROR?
‘'IF NOT:
BR
: 'RUNNING UNDER RPT?
: IF NOT:
BR
PIFINISHED LAST MESSAGE”?
PYIF NOT:
WRIT
::GET ERROR #

INC

SMSGTYPE

;s TELL APt TO TAKE ERROR

MOV

(SP)+.RO

ADD
12%:

#1.$FFLG

MOV

4%:
c§.
10%:

045222

F1y4

17S

EE Y2222 22222222X222222222:X2222X22212XX2 2222222222222 Y]

$ATvl:

001344

8886
8887
8888
8889
8890
8891
8892
8893
8894

88395

000000

001330

PAGE

CLR

1STB

0C0001

001344

045062

8883
8884
8885

oO4s222

045220

001375
010037

8876

045104
045106

000001

000002

045052
045054

8881
8882

SOVER:

.SBTTL

062766

8873
8874

8880

134172

$ATY4:
$ATYC:

045046

045064
045070
045072

001115

045222

8872

8877
8878
8379

MOV

000001

001450
122737
001031
132737
001425
0176060

045060

MOV

112737

045012
045014
(045022
046024
045032
045034

B875

MOVB

SARTY3:

8865
8866
8867
8868
8869
8870

045040

001334

045220

010046
010146

8871

001102

11:48

SCOPE HANDLER ROUTINE

000001

Q44?74
045002
046002
045004

045006

001316

02-DEC-77

112737

8860
8861
8862
8863

8864

001106

30(1046)

CLRB
CLRB
CLRB
MOV

#2,9(5P)

$FFLG
SLFLG
SMFLG
(SP)+,R1

. :BUMP RETURN ADDR.

" :CLEAR FATAL FLAG
:CLEAR LOG FLAG
* CLERR MESSAGE FLAG
::POP STACK INTO Rl
:1POP

STACK

INTO

CZR6GBO RKE DR CPT PROG MACY11l
CZR6Q@B.P11
02-DEC-77 10:46

8902
903
04

890S

8906

0458216
SHSESO
45eel

(uSeee

8907

000207
080
000

8909

000

SFFLG:

045224

RTS
.SYT
.BYT

.BYTE

.EVEN

PC
0
0

SEQ 0178

; :RETURN
,.MESSG FLAG
;LOG FLAG

,,FQTQL FLRG

APTS12E=200

000001

RAPTENV=001

000040

RPT?? 8
L
AVE AND RESTORE RO-RS ROUTINES

000100

8 10
BQié

Gl4

02-DEC-77
11:48
PAGE 176
RPT COMMUNICATIONS ROUTINE

SMFLG:
SLFLG:

000e0cC

8908

30(1046)

RAPTSPOOL = 100

8913

WM NRRNE RN REERE RS RE R

RRREERR AR R EE RN

RRE R RN

8914

' §SAVE RD-RS

gg}g

lUPON RETURN FROM SSRVREG THE STACK WILL LOOK LIKE:

891%
8916

lC LL:
l

8919

iTOP-—-(+16)

8920
8921
8322
8923
8924

,l +2---(+18)
(% +4---RS
;% +6---RY
.i +8---R3
; #+10---Re

B89eS
8926

*+12---R1
i+14—--R0

8s2?
8928
8929

(045224
04S2e4

8932

045232

8<3S

45240

8930
8931
8933
8934

8936

B337
B938
ggag
894
8942
8943

045234
Q045236

010046
010146
010246
010346
(010446
010546

45244

Q0l6e46

Q45226
045230

(046250
(045254
045260

8944

045262

BI46

(045266

8945

$SAVREG:

Qlee4s

000022

O0l6646
(0l6646
000002

000022
000022

0000c2

0l2666

000022

Q45272
Q48276
(045302
0Q4S304

(0l2666
0leebbet
012605
QOle604

000022
000022

83952

045310

012602

B3S4

Q4S314

8351

8953
8355
89St

045306

045312
(Q4S3ie

MOV
MOV
MOV
MOV
MOV
MOV

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3, -(SP)
RY,-(SP)
RS, -(5P)

MOV

BEISP),-(SP)

MOV
MOV
RTI

22(SP),~(SP)
22(SP),~(SP)

MOV

22(SP), - (SP)

; s PUSH RO ON STACK
;s PUSH R1 ON STACK
; ,PUSH Re ON STACK

; s PUSH R3 ON STACK

; s PUSH R4 ON STACK
; ;PUSH RS ON STACK

s ;SAVE

; s SAVE

PS
PC

OF MAIN FLOW

; ;SAVE PS OF CALL
;s SAVE PC OF CALL

; #RESTORE RO-RS
; #CALL:
<%
RESREG

Q45262

8947
8948
8949
83S0

SAVREG

012666

$RESREG:

000022

(SP)+,22(SP)

MOV
MOV
MOV
MOV

(SP}+,22(SP)
(SP1+,22(SP)
(SP)+,RS
(SP)+,RY

; ;RESTORE PC OF MAIN FLOW
; ;RESTORE PS OF MAIN FLOW
.,POP STRCK INTQ RS
;POP STACK INTO R4

MOV

(SP)+ . R2

,,POP STACK

MOV

012603

MOV

012601

MOV

012600

000002

MOV

MOV
.SBTTL

RTI
TRAP

(SP)+,22(SP)

(SP)+,R3
(SP)+,Rl1

(SP)+,R0O
DECODER

;RESTORE PC

CALL

,,RESTORE PS OF CALL

,,POP STACK INTO R3
INTO Re

;POP STACK INTO RI

..POP STACK INTO RO

RER RN

ZRSOBO ?T& DR CPT PROG MACY11 30(1046)
02-DEC-77

CZR 608.P

10:46

02-DEC-77

TRAP DECODER

PRAGE

11:48

H14

177

SEERRERRERRERRER RN AR

SEQ@ 0176

R AR F RS R SRR AR RN R

R AR RR RN

RN AR AR ARRS RS

iTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAPTM INSTRUCTION
iQND USE
NDEX THROUGH THE TRAP TR
TARTING ADDRESS

}GO

Q45320

010046

Biadoe BABSRE

Q45330
Q45332
Q45334
045340

045342

111000
006300
016000
000200

011646

B EP BoBBES

é THAT
OéSIRSD
ROUTYINE. THEN USING THE EBERESS OB§R?NED T WILL
ROUTINE.

$TRAP:

000002

MOV8
RSL

MOV

045354

000004

MOV

RTS

goooae

RO —(Sga

2(gh)

::&EZ IERE,8

(RO),RO
RO

.,GET RIGHT BYTE OF TRARP
;POSITION FOR INDEXING

; ;G0 TO ROUTINE

$TRPRD (RO),RO

,,INDEX TO0 TABLE

;; THIS

IS USE TO HANDLE THE "GETPRI* MACRO

$TRAP2:

MOV

.SBTTL

TRAP TABLE

1oy

ADDRESS

(SP),-(SP)

4(sP},2(sP)

:MOVE THE PC ooun

"EEXEO;EE

oROKN

:E¢I§HEQ§*EQSQN}fié¥3UE §OSTQRTING ADDRESSES OF THE ROUTINES CALLED
:

$§ TRPAD: , WOR

g4z3eg 833725

45342

045366

Q4345Y
Q43430
043470
043656

04537
Q4537
Q45374
045376

Q44276
Q45224
o4seke
o44562

Q45400
045406
o4s412
Q45417
045424
o454 32
045440
Q45443
045450
045456
D4S46Y
D4S467
O45474
Q45502
045510

ROUT INE

§TvP

§TYPOC

s RAP2

s CALL=TYPE

;:CALL=TYPOC

TTY TYPEOUT ROUTINE

TYPE OCTAL NUMBER (WITH

LEAGING ZEROS)

LEADING ZEROS)

§TYPOS

,,anL TYPQS

TRAP+3(104403)

TYPE OCTAL NUMBER (NO

$TYPDS

;;CALL=TYPDS

TRAP+S(104405)

TYPE DECIMAL NUMBER (WITH SIGN)

$ROCHR ; ; CALL=RDCHR

TRAP+ <104489)

TTY TYPEIN CHARACTER ROUTINE

SCOPEl

TRAP+11(104411)

INTERNAL LOOP ON ERROR ROUTINE

§TYPON

::CALL=TYPON

§SAVREG ::CALL=SAVREG
$RESREG ,,CRLL RESREG

02004C

TRAP+1(104401)

TRAP+2(104402)

::CALL=SCOPER

TRAP+4(104404)

TYPE OCTAL NUMBER (RS

TRAP+7(104407) SAVE RO-RS ROUTIN E
TRAP+10(104410) RESTORE RO-RS ROUTINE

TEST ~

O42524

TSTMSG:

.RSCIZ

000
052502
044522
ostlee

AS2SP2:
EMI:

.ASCIZ
JRSCIZ

/
/%%
/UNIBUS PARITY ERROR/

Q42455
047101
047515

EM2:

.ASCIZ

/NON-EXISTANT MEMORY~

042455
047101
053111

EM3:

.ASCIZ

/NON-EXISTANT DRIVE~

PER LAST CALL)

CZRE6QBO RKB DR CPT PROG MACYI1 30101046y

Q43040

EMY:

.ASCIZ

~/UNIT FIELD ERROR/

054523

EMS:

.ASCIZ

/SUBSYS TIMEOUT/

051101

(O41440

052111

EM6:

.ARSCIZ

0S3111

020105

EM7:

.ASCIZ

/DRIVE DETECTED PARITY ERROR-

0S3S517

EMIO:

.RSCIZ

/AC LCW/

042105

EMLL:

.ARSCIZ

/SPEED LOSS/

Q40507

EML2:

.ASCIZ

/ILLEGAL FUNCTION/

EM13:

.ASCIZ

/PROGRAMMING ERROR~/

EMIY:

.RSCIZ

/NON-EXISTANT FUNCTION/

EMIS:

.RSCIZ

/DRIVE TYPE ERROR~/

EMlb:

.ASCIZ

/FORMAT ERROR~/

EML7:

.ASCIZ

/WRITE LOCK ERROR~/

EM20:

.ASCIZ

/DRIVE UNSRFE~/

EM21:

.ASCIZ

/SEEK INCOMPLETE/

EMee:

.RSCIZ

/CYLINDER OVERFLOW/

EME3:

.ASCIZ

/ILLEGAL CYLINDER RDDRESS~

EM2Y:

.ASCIZ

/DRIVE OFF TRACK~

0S2l11l

9015
3016

045520
045526

042511
0Sl11g2

042114
O0S1117

042440
000

3018
9019

045540
045546

020123
0S2S17

0O44Se4
000124

(Q042S1S

V21

045560

9024

045576

0S1104

9029

045632

9017
9020

9025
3026
9027
3028
3030

9031

045552

123

020104

045604
045612
045620
0Q4Se26

042504
042105
0S2l111
047522

045640

000

045641

041501

123

Q41125
047524

042524
0S0040
020131
000122

046040
042520

0S2103
(0S1101
051105

046040

0S1S517

0001c3

9034
9035
3036
9037
9038

045662
045670
Q45675
045702
045710

(020114
O44524
120
046501
042348

052506
047117
047522
QO4451S
OSllee

041516
0
051 é
043
051 1

3040
9041
9042
9043
3044
3045
3046
9047
3048
3049
9050
3051
3052
9053
9054
905S
3056
9057
9058
9059
3060
9061
3062

Q45717
045724
045732
045740
045745
045752
045760
Q45766
Q45774
046002
046003
046010
046016
046024
046032
046040
Q46041
0O4B0Me
046054
046061
046066
046074
046102

116
044530
020124
O0O44Se4
104
052040
051105
Q47506
042440
000
127
046040
0S110S
0S1104
047125
000
123
047111
042514
103

047117
0S2123
052506
047117
Q44522
0S0131
047522
046522
051122

042
047
0418
(0425
020 1
0G0 1
052 1
0Sl 1

Q44522
041517
04?522
0S3111
040523

042 )
0201
0001
0201
0425

042504
051105
000

042505
047503
042524
046131

020122
046106

0201
0501
0
0471

3064
9065
3066
9067
9068
9069

046110
046116
046124
Q46132
046134
(0O4Bl42

046101
04711
042101
00012
055{?
04

O46114

Q041440
042504
0S1104

Q43 )
Q46 1
020 1
0S1 5

pS3111

020 1

9063

046103

0eol10e

0S31
0535

O0S1 1

0o—0
N~

~oOononNo—on

Q42514

CCNNWE .

046111

OO n

045654

===+

3033

~-—00

045646

9032

045533

PAGE 178

NN=~ONW

0Q4712S

11:48

0458512

02-DEC-77

TRAP TABLE

9014

0e2-DEC-77 10:46

nNo

CZR6GB.PL1

I1Y4

70 C PARITY ERROR/

SEQ C17

o
“

CREUBO RKE DR CPT PRCS MACY1l

ZREQB. P11
9670
9071
9072
9073
9074
3075
3076
3077

Q46211

3079

Q46224

3078

9080

Q46150
046154
046162
046170

De2-DEC-77

10:46

041501
0S1104
Q44524
042440

000113
053111
(Q44SIS
O0Sl1122

_02-DEC-77

TRAP TABLE

11:48

PRGE

J14

179

SEQ 0178

020105
043S1e
051117

EM2S:

.ASCIZ

/DRIVE TIMING ERROR/

EM26:

.ASCIZ

/DATA LATE~/

047117

020101
000
0S1124

EM27:

.ASCIZ

/CONTROLLER TIMEOUT~/

Q44524

042515

052517

046234
046242

050117
047511

051105
020116

052101
047111
Q42514

EM30:

.ASCIZ

~/OPERATION

Q46261
046266
Q46274
046302

040505
0S1126
047522
040524

042504
020103
000l12e2
041440

EM31:

.ASCIZ

/HERDER VRC ERROR/

EM32:

.ASCIZ

/DATA CHECK ERROR/

0S1117
044522

0a0
0425e4

EM33:

.ASCIZ

/WRITE CHECK ERROR/

0Sii22

O0S1117

052101
041523
Q42522
020117
020105
047117
042506
042130
044522
0S1122
046111
020124
000122
0S3111
052101
040510

020101
046517
000
051104
0425ee
042523
023040
000
042526
0S1117
020114
046103

EM34:

.ASCIZ

/DARTA MISCOMPARE
-

EM3S:

_
.RSCIZ

i
~/NO DRIVE RESPONSE-UFE & NXD/

EM36:

.ASCIZ

/DRIVE

EM37:

.RSCIZ

/DRIVE STATUS CHANGE WILL NOT CLERR/

EMH40:

.ARSCIZ

,ATT’N BUT NO STATUS CHANGE OR FAULT/

EMYL:

.ARSCIZ

ATT’N BUT DRIVE

Q46176
Q46177
046204

000
104
040514

052101
042524

046216

046117

042514

Q46232

103

000124

9081
9082
9083
9084
9085
9086
3087
9088
9089
9030
9091

046316
046323

110
020122
051105
040504
042510
051122
187

9093
9094
3035
3096
90¢7
90498
Q099
9100
9101
9102
9103

046336
046344
Q46345
046352
046360
Q46365
046372
046400
046406
046414
04642l

042440
000
1
044515
040S20
116
053111
0S0123
0Se455
047040
104

Q465250
Q46256

(046310

9104
3105
9106
9107
9108
9109
9110

046426
046434
046442
Q46450
046454
046462
046470

91l
9113
9114
9115
9116
9117
9118
9119
S120
9121
3122
9123
9124
9125

046504
046512
Q46517
046524
048532
046540
046546
046554
046562
046563
046570
Q486576
Q46604
04ebl2

Q111

30(1046)

046476

047503
042524

042440
053440
047516
040505
0S1104
052123
041440

020105

047040
04esi4
101
Q41040
020117
051525
043516
043040
000
101
041040
044522
0S2117
046111

0S011S
000

045503

Q44527

020122

042440

020105
051525
043516

INCOMPLETE~

ERROR WILL NOT CLERR/

046114

052117
0S1101
052124
052125
052123
Q0O41440
020105
052501

(O41440
000
047047
047040
0S2101
040510
051117
052114

052124
052125
042526
040440
041101

047047
(042040
047040
040526
042514

NOT

AVAILABLE~

OO O DB OD OO

et e Bt e s Bt s Bt Bt B

0e-DEC-77

Q46620

000

O4e626

053440

10:46

30(1046)

101

0S2l24

Q47047

Q46634
Q46642
Q46650

047516
042520
0og

020124
052103

054105
042105

046656
g4ebeY
046672
046700
046706
046714
Q46722

043440
044522
04452
040524
0Se2S1S
042514
Q42526

O0Sl1122

0S2101
043S16
04eSeb
0SesSed
0Se2li4
042040
O0SI1440

Q0S51117

042510
042040
051440
000123
050111
044522
046105

Q46734

042510

04210l

041125

—

[

046517
042340
00

041440
042522

o
£
~
Q
W
£

o
o

o
£
o

Q46742
046750

105

042510

_02-DEC-77

TRAP

TABLE

11:48

PRGE

K14

180

SEQ 0179

EM42:

.ASCIZ

/ATT'N WHEN NOT EXPECTED/

EM43:

.ASCIZ

/ERROR GATHERING DRIVE STARTUS/

EMSE:

.ASCIZ

/MULTIPLE DRIVE SELECT/

0S1105

EMS3:

.ASCIZ

/HEARADER COMPRARE ERROR~/

054523

EMSE:

.ASCIZ

~SUBSYS TIMEOUT/

EMBO:

.ASCIZ

/ERROR IN RECAL FOR RECOVERY/

EMEIL:

.ARSCIZ

/PROGRAM ABORTING FATAL ERROR IN RETRY/

EMB2:

.ASCIZ

/CYLINDER MISCOMPARE/

EMB3:

.ASCIZ

/CLEAR CONTROLLER DID NOT CLERR ERROR/

EMBM:

.RSCIZ

/NO ATT'N IN ATT’'N SUMMARY REGISTER~/

EMBS:

.RSCIZ

/UNSOLICITED RTTENTION~

EMBE:

.ASCIZ

~“UNEXPECTED DATA

020116

(040S20
oslilee

[ )

046651

WWwNWNW o N :mgmo-— —nNNWWw-N

046621

o
£
~N

Bt s bt ot B Pt e Pt et Pt Dt Pt Bt Bt P Dt Pt Bt P

Bt e bt Pt Bt s Bt et Bt Pt ot bt Bt Pt Bt ot it et Pt Pt o hs e s s

DDNNNNNVYNNNNOCOCOCoCOCCNNINNNNNNONE
L L L £ £ £ £ £ L£WWWWWWWWWWRINNN
== ODONCNLWN—OO0D
NN LWU—ODONN LWAU-0VO NN LWN—DOD NN LWNN—OODONT

D DD 0D 0D D DD DD DD0DD0DD0DD D0 DD0DD0D0DD0D0D00D00DOD00D0D0D0D0D0D000

@B.P11

Q
|=)
£
0non
£nn
nLnnn
~N — LO0—NLOr
=03~ o
= b= (Y0 (FY0 b 0 bt ([} s Pt e Qe
ta ()0 b
000000 WNOMN-—
QL0

OO
N
D0
oo

wBO RK& DR CPT PROG MACY!l

050115

O0S

040505

047164

042840

0Sllee

0OS

047173
047200
Q47206
047214
047222
047230
047236
047244
047252
Q47260
047284

116
023524
Q40440
0S1440
054522
0S51S11
Q47125
044503
052101
047511
047125

020117
020116
052124
046525
051040
Q42524
047523
042524
042524
000116
0S4105

QS
047
0470
040515
043505
000122
044514
020104
052116
042520

TYPE ERROR~

OC)
Nty
DD

0 RKE DR CPT PROG MACY1l
Pll
02-DEC-77 10:46

30(1046)

04210s
020101
Oo4e440
080
gsele4
g4elll

042040
054524
os1lee

047272
047300
Q47306

052103
052101
042520

05116?

02-DEC-77
TRAP TABLE

11:48

PAGE

L14

181

SEG 0180

EMB7:

.RSCIZ

7ATT°N DID NOT RESET WITH CLERR/

EM70:

.RSCIZ

/SUBSYS CLEAR DID NOT

020101
053440
047125
o47111
04el0l

EM71:

.RASCIZ

/DATA LATE WHEN UNLORDING HEARDER.

gS1ley
ge0lee
geolee
042040
Q20122
041511

EM72:

.RSCIZ

/CONTROLLER ERROR WHEN DRIVER SERVICING~

020105
052103
051101
0S110S

EM73:

.RSCIZ

/DRIVE

044506
05110S

EM7Y:

.RSCIZ

/UNDEF INED ERROR/

o47111
0S1S11
047524

EM75S:

.RSCIZ

/MARKING

EM76:

.RSCIZ

/BAD DATA VERIF'N WITH READ.

EM77:

.ASCIZ

/RETRY

EM100:

.RSCIZ

/RETRY UNSUCCESSFUL
-

1040

3440

46103

051502

Slq

111
OHIHHD
o42040
040440
00

047750

e
052440

CLERR DRIVE RTT’N/

oseiay

gs4See
O41525

DETECTED

PARITY ERROR/

THIS SECTOR

SUCCESSFUL~/

BRD/

ECC OF LAST RETRY IS:~

CZREQBO RKE
CZR6GB.P11

PROG

02-DEC-77

MACYL1

30(1046)

02-DEC-77

TRAP

10:46

11:48

PAGE

182

SEQ 018!

TABLE

0s15e3
0471186
047111

EMIOLl:

.ARSCIZ

/CANNOT FIND A VALID HERDER

EM102:

.ASCIZ

/BAD

EMI03:

.RSCIZ

/TIMED-OUT

ON REARD HDR/

EMIO4:

.ASCIZ

/TIMED-OUT

.ARSCIZ

/DRIVE

SIEZED

.ARSCIZ

/DATA

MISCMPR

.RSCIZ

/NO NEM ERROR WHEN REF’ING LOC 760000/

EM110:

.RSCIZ

/INTRPT

EM11l:

.RSCIZ

/NO RTT’N ON SEEK~/

EMll2:

.ASCIZ

/DRIVE’S CYLINDER INCORRECT/

EM113:

L.RSCIZ

/RBORT-

SECTOR ERROR

IN TRACK JUST RERD~

ON SECTOR NOT

LISTED BRD/

050266

055374
050102

mp—.p—
n—00
o~ N

EMI05:

0e 0
£0

Pt Pt Pt P
==
e

EMI0B:

""“"""m
Oretpmete
O
W=\

9243
24y

Q47774
050002
050010
0S0016
050024
050032
050040

CPT

EMI07:

g4e
2
o4 ?

23
8

SEEK~/
BY

OTHER

WHILE

BRI

PORT/

SET/

030060

518

052116
047516

000131
§4 qwg
4244
4550

WHEN CNTRLR NOT ROY/

020124

57
0S1ii2e

050436

051117
047101

026524
052047

CAN’T

REARD

BSF/

CZR6WBO RKE DR CPT PROG MACYI!
CZR6QE8 .Pl1
02-DEC-77 10:46

0S04Y4y
0s0u4se
0S0456
0S0464
0S0472
0E0M473
050500

051040
051502
0521 13
044 S0l
000
118
0s1101
0S110S
0S2S03
0c0ley
04710}
0s1120
05152S
040515

Q40sos
000106

0
1ee

W00 W0 OO DO DD D

WWWWwWwWWwWw
m.—.p—...— Pt Pt Pt Pt P
OV
NN LWy

051040
042523

046101

042510
047514
051040
Q42SaM
040524
041040
047503
0c01e4

040S1S

051074
osilioe

044516
040515

051040
047514
000060
027122
05es0e
ge0120

30(10486)

J2-DEC-77

TRAP

TABLF

11:48

NIY

PRGE

183

SEQ 0182

020104
043040
o4eSe2

EMIIN:

.ASCIZ

/KT11

FPILURE/

050040
020131

EM11S:

.RSCIZ

/MEM

PARITY ERR/

047105
046515
000072
047511
046517
035040

DH100:

.RSCIZ

/CURRENT COMMAND

DHICT:

.RSCIZ

/PREVIOUS

030461
051611
035040

DHe00:

.RSCIZ

/RKbl1l

o44501
051040
042524
gsell?
ouelll

DHS00:

.ASCIZ

/REMAINING REGISTERS NOT

043040
pu4s2?7
043505
0201ee
o46440
020105
psllee
poogze
041520
0S3111
046503
020040
051104
041501
042523
020040
052116

DHSOLl:

.RSCIZ

/THE FOLLOWING REGISTER DATA MAY BE

DH101:

.ARSCIZ

+ERR PC

040502
020117

DH1C2:

.ASCIZ

/HI

027126
0Sesge
020120

DH103:

.RASCIZ

/PREV.

043505
051040

DH104:

.RSCIZ

7/HI REGO LO REGO/

052440
020123
0ooo7e

DH106:

.RSCIZ

/CUR.

:~/

COMMAND

REGISTERS

CMND

DORIVE

LO BR/
UNIBUS

UNIBUS

MAP

:~/

VALID/

CYLNDR

INCORRECT

TRRCK

SECTOR

WD CNT~/

CZRBUBO RKE DR CPT PROG MACYIl 30(1046)
CZREGB.PLI
02-DEC-77 10:46

9350
3351
9352

0S1110
051116
0Slile4

046522

0c0Q4Q

0S1503
045522
020040

020061

0Si503
045522

_02-DEC-77
TRAP TABLE

11:48

PAGE

B1S

184

OH201:

.RSCIZ

/RKCS1

RKCS2

SEQ Ci83

RKDC

RKOA

RKWCR

RKBR

RKRSOF7

AO1

80!

RO2

BO2

RAQ3

S BliE piw s s
935S 0S1i4e Qe
8:5522 Q41527
2

9356
9357

0S11S4
051162

0122
0S02

9360

051177

9363

0Si2i4

030104

020040
020040

Q45522
020040

042113

020123

DH202:

.RA3CIZ

/RKDS

RKER/

020060

020040

DH203:

.ARSCIZ

~/AOC

800

S Zicd i Giow G
9364
9365
9366
9367
9368
9369
9370

(0Sie22
0S1230
051236
0Si2v¥4
0S1eSe
0S1260
0S1266

020040
020040
020061
030102
020040
02
02

030102
020040
0040
0061
030101
020040
020040

020060
030101
020040
020U40
020062
030102
020040

B gy eew et
937
13?8
eslo 8“2101 S110S DHBOl:
S Bl e Hou e
3376
9377
9378

051332
051340
0S1346

9379
9380
gggé

0S1354
051366
ggig;

9384
9385
9388
9389
9330
9391
9392
9393
9394
9395
9396
9397
9398
93399
9400
9401
9402
9403
9404

042510
047440
0S2103

042101
020106
051117

0S110S
042523
030040

0S
0S4503
051688

Q44510
Q44514
O44440

020123
Q4elle
035123

0SI1404
051“%8

042101
8%0123

0S1104
043117

051505
Q42440

0S1432
O0SI440
0Si446
0SI4S4
051461
0Si466
0S1474
0S1477
0S1S04
0S1Sle
0S1514
0S1S5¢e2
0S1530
0S1536
0SiS44
0S15S1
0S1556

0S4503
020040
020113
052103

047114
0S1l24
020040
0S1117
046131
0S2040
000
041503
020101

0S1104
041501
042523
000

020123
040520
020040
041505
03750S
051117
0S344L
020040

9383 051379

120 041501 020113 DHEO4:

S BN BNe mhig S

9405

0S1Se4

DHBO2:

103
Olee
(045503
10S
052101
00007
047520
020040
020040
0Silee
046102
127
020040
031104

.ARSCIZ /HERDER SHOULD BE:~
.ASCIZ

/HERDER OF SECTOR O THIS CYLINDER

.ASCIZ ~/PACK RDDRESS OF ERROR(S) :/

DHe04!:

.ASCIZ

/CYLNDR

TRACK

SECTOR/

042116
040Sse2

DHb042:

.ASCIZ

/CYLNDR

TRACK/

042040
0S1511

DHeDS:

.ASCIZ

/ECC DATA

020040
020124
Q47503
040524
0ao
030504
0S1117
0S3440

OHB0S1:

.RSCIZ

/POS

PAT

CORRECTRBLE”~

OH606:

.ASCIZ

~/WORDLI

WORD2

WORD3~

IS:~

IS:-

BO3/

CZR6QABO RKe [ CPYT PROG MACY1l

CZReEB.PL1

02-DEC-77 10:46

30(1046)

02-DEC-77

TRAP TRBLE

11:48

PRGE

ClS

18S

SEQ 0i8y

3:89 83}2;; 051165 Baé?g? 0#4888 DHBO7:

.RASCIZ ~/BRD MHEADER IS :/

9410
Sélbés
41}
€16

.ASCIZ /WD #

GO0D

DH702:

.RSCIZ

/GOOD

BRD/

DH703:

.RSCIZ

/FRILING DATA WORD

DH704:

.RSCIZ

/SRO

9408
9409

O0S1604
0Si6l

040S0S
0s1S

9412
9413
9414
1S
3419

0S163e
051640
0S1e46
CS1eSH

40
0104
2101
044040
0l

TM18
419
9420
94
94

0Sl1b
051704
0S1706
1714
17

S+
000066
047507

9424
94eS

0S1736
051744

0S3440
(000072

)

gqgg
4

12
1

1?7

8?1746
1754

042504
35040

0201ee
000

020040
020040
020111
46040
2 136

Q41040
020040
044120
g0617
8 40

0111

0S1101

042117
84
0e

020040
809104

040504

040SeM

é’ §s 4490
104 829?4;
DH701:
Q4751

HUMY

Mblll

0S1117

47111

112
0S2113
043505

006
030461
020123

0S1040
G00072

DH?0S:

.ARSCIZ

/KT1l

o4e 88

DH706:

.RSCIZ

/MEM REGS

047S14

DH707:

.RSCIZ

rPC

8811

4462

SR1

9428
9429
430
94
94

051762
051766
0S1774

9434
9435
9436

052022
052030
052036

1
0€110S
042511
0“2865

042101
040522
051515

9439

052052

020122

042101

04141l

B ool Beidl

11
B40

DH711:

.ASCIZ

~/CYLINDERS

444
9445

052077
852104

DH204:

.RSCIZ

/RKDS

9456

9457
9458
9459
9460
9461

052176

052204
0S2212
052220
052226
052234

g0
_ g

044011
004504
0S163!

128 004503 0S1503 DH710:

.RSCIZ /PC

REGS

SR2

SR3/

HIERRD

MEMSYS/

LOERRD

CSR AD CSR~/
:/

122
020040

042113
(051040

020123
042513

051040

046513

031522

0S1122

0581117

DHS02:

.ASCIZ

,ERROR TRYING TO GET FAILURE

042116

DHS03:

.ASCIZ

/SECOND TIMEOUT OCCURRED GETTING DRIVE STRTUS/

042523

[

0Se040
020107
052105
0sesiy
—

TN
£ GNR—

~N
n

—

V]
£
0
wn

£
P
Al
(=]

|»)
n
n
o
nY

9438 052045

Sedl

8223 ;
1

o
£

:~/

020104

WWS

HI PHY LO PHY VRT RD KIPARG/

20104

811 3
4y

BRD

052040
052125
051125
042507
020107

0S4S22
047524
043040
888??

047503

046511
047440
042522
0S2124
0S1104

047111
043440
Q44501
o44440
047505
041503
020104
047111
083111

RKER

RKMR2

RKMR3/

INFO/

[

st ot Pt (et

9470
9471

$47

st Pt Pt

9474
9475

s Pt

et Pt Pt

447

—

o
un

052434
052436
052440
052442
05244y
052446

00
wn

et [

R
g 838288883888888 8
000 S 000
MMM
NININ MY =) -

3468

e
050557
000
051110
007
0S0601
000

000007
oo
050716
007
051005
00e
0S0557
000
0S1110

0Se2470

007
0s11i?77
ooe
0sliely
ol10

052472
052474
052476
0sesoo0

000010
000
0S071e
007

02-DEC-77

TRAP

10:46

DHBOO:

00S430
001164

0os426
001166

DT100:

Q01214

881844

00lees
00le34
001176
001204
polzle

001200
001206

D0leee
001230
001200
001206
pool1214

.RASCIZ

.EVEN

T88T:

GRS

gREng SREG3?7

BT288:

:udR

gREGl%,gREGl;
REG16,SREG17,

- WORD
.WORD

$REGS, SREGE, SREG?

l:
2:

. WORD

.BYTE

000

000
000
000

DFO2:

.gORD

DFO03:

.gORD

000

000
000
000

000

/NUMBER OF RETRIES:~

SERRPC,DRIVE
,ERRCOM, SREGO, SREG1, SREGZ, SREG3

000

SEQ 0185

.WORD

DFO1L:

000

D15

186

0sel10l

o4esoe
0S1040
0S150S

001204

PAGE

TARBLE

046
043117
o4u4s2e

381738

11:48

REGS,

$REGE, SREG?, SREG10,SREG1
1, SREG12, SREGI3
SREG20, SREG21, SREG22, SREG23, SREG2Y, SREGES

$REG10,SREGI 1, SREG12, SREG13, SREG1Y, SREGIS, SREG16

onyw n OO
»— O
o
]
=]
@]
O
—
—
=)
(@]
n

4E7

Qr88F roRkRErwal 23R o

9466

g20l2e
052105
000072

30(1046)

oo NoOooo
D%NO NOO~N -00NN0O0
I~ Ir- X~ r p o

MACYL1

O
XII~ no n o000
o
o
|=]
o
[
[
o
n

CZREGBO RKE DR CPT PROG
CZRBGB.P11
02-DEC-77

; NUMBER OF HEADER LINES
;NUMBER OF COL FOR _FIRST HOR

;ALL CHARACTERS OCTAL

; SECOND HOR LINE
:NUM OF COL-ALL OCTAL

CZREGBO RKE DR CPT PROG MACY11
CZREGB P11
02-DEC-77 1D:46

052650

000005
000
050716
00?7
051005
002

DHSC1

;" THE

0,0

000

DH2G2

000
000

DFOS:

000
000
000
000

000
000

DFO7:

000
000
000
000

0oo
000

000

—

000

DF10:

~—

000

sligel:jelgeligdelde
He]
o
(=]
o
=]
=]
@)
—
—
o
ny
o
v

DFQO4:

—

000007
000
050716
007
051005
00e
051377
000
051432
003
051477
000
051514
003

7,0

000

0Ses0e

DH201

052576
052600

DAH200

000007
000
0S0716
007
051005
00e
051310
000
0S1551
003
051332
000
051551
0ao3

SEG Cl188

0,0

000

E1S

187

DH102
2,0

0S2546
052550
05esse
052554
052556

. WORPD
.BYTE

ooo

XI- Ir- - x(JOOOUODDN%\IOO
I~ N
NONOOoOWw

000003
000
050716
D07
0S100S
002

11:48

XIrI~ - - I
oo
o0oOCO—0—0
]
o
o
o
O
o

0Ses3e
052534
052536
052540
0sas4e
0Ses44

TABLE

052526
052530

051005
00e
050557
000
0s1110
007
00637
000
0S1177
00e
051214
010

052502
052504
052506
0Sesio

TRAP

PAGE

I
O—0+—0
o
Q
—
v

9518
3519
39520

3011046)

02-DEC-77

FOLLOWING REG DATR MB

INCORRECT"

<ZR6UBO RKE DR CPT PROG MACY1l
CZReGB P11
02-DEC-77 10:46

000011
000
05071&

. WORD

DFle:

. WORD

DF13:

. WORD

000
000
000

000
000

000

000
000

DF L4:

. WORD

DF15:

. WORD

Coo

000
000
000
000

—

n
[

000

;FORMAT FOR 2ND LEVEL ERRCR

'IN HERDER COMPARE ERRCR
:AND 2ND LEVEL HERDER
:VRC

ERROR

[

000

xXIr- - X poy

000

0
(=]
DU’IDO"DSDO—D»—D
o
(=]
v
o

000

eV e/wlo
ol elel ]

0og

[

000006
000
050716
007
051005
00e
0S1310
£no
0S155,
003
05213%
000

DFll:

O
o
DmDU‘DgD*—DHD
[
o
n

gsezee
0S2764
052766
052770
gse77e

3,0

(]

052760

000006
000
050716
007
051005
00
051310
000
0S1551
003
0s213S
000

0,0

052726

000006
000
050716
037
051005
002
050557
000
0S1110
007
0se077
004

SEQ 0187

DHBEOY1

000
000

F15

188

DHBOM

000

000
0S1-3¢e
003
051617
000

TARBLE

PAGE

XI-

000004
000
051377

TRAP

11:48

bod

051377
000
051432
003

02-DEC-77

r—-‘CJ

052652

30(1046)

;FCRMAT FOR 2ND LEVEL ERROR

: IN OPERATION INCOMPLETE ERROR

0s31e4

000002
000
051514
003

000
000

DF17:

000
000

000

DF20:

Doo

0oo
000

DfF2l:

o
P

n
W
—

w
—

[
n
Q
@)

[

000

[
n

000

@]
n

000

[

000

DF16:

000

NONONIONONNONNO—0O—0

000

joo]
w

000

O
-0o
flMDUKDgrDE%DHMDflKD*%D
O
o
=]

—-O000 OO NOOODNNO N
OX- - I I- - po I

000

—

000002
000
051046
002

000

|=]
n

000005
000
050716
007
051005
00e
052063
000
051706
002

000

[

00e
052135
000
050637
000
0sl121y4
010

000

—

coz
051005
002
050557
000
0S1110
007
051177

000

O
n

0s3
3
3
3
3

000011
000
0s0716

000

ONONO—-0O-0

3
3
0s3

WWWNRIMNMN
oo

3
3

Yt
=)
oooLnnoos

053056
053060
0S3062
053064
053066

0SielHy
010

PAGE

O—0
@)
£

0S3036
0%304
0S304
0S 3044
0S3046
053050
0s3052
053054

007
0s100S
00;
05055
000
gsitie
007
0S1177
0Qge
052176
000
050637
000

TRAP TABLE

11:48

CO0ONONOOONONOO—~
woon fl%%CMU -nooonNoONoOOoON
-—00
T Ir- xr- Irorx- - - I- - - I~ -

053020

02-DEC-77

- T=
oo
o
wn

CZREGBO RKB DR CPT PROG MACY11 30(1046)
CZRbwB P11
02-DEC-77 10:46

G15

189

SEQ Oiss

053314

00000S
000
050716
007
051005
00e
0S1766
000
051746
004

0S3316
053320
053322
053324
083326

00000S
000
050716
007
051005

DF27:

000

000
DF30:

DF31:

000
000
000
000

0oo
000

n
o

Ir-

ooo

000

|@]

O—0Or—0—0r—-0-0
o
O
OO
o
[m)

poy

000

Ir- - ONCNO—0O—0O
o
O
0
o

0s3272
053274

000

—

00000S
000
050716
007
05100S
00e
051722
000
051706
002

DF2b:

053246

000

[N]

000002
002
051214
010

053236
0S3240
053242
0S3e44

DFes:

000

0000CQ0
007

053232
053234

DFev:

ne— 00 NOD%NO
xI-NOOOOoOo
Ir- -

000

0o
[)

000

000001
002

053eb6
053270

DF23:

o
oNO
ja]
\lD*D-DO—C)
o
n

000

0co

000

ox- O

000

053226
053230

V¢

—

[ e] e lVelVelVs
[N IVe IV o IV ]
NN NNNINNN

000002
000
052253
00!

000

£OO00ONODNODON

000
0s0716
007
0S100S
00e
051066
000
051046
0oe

DFa2:

TABLE

PAGE

050818

coo

TRAP

11:498

- T~
—~0—0
0O
o
n

000086

02-DEC-77

ONOoOOoONn

053166

30(1046)

O000OMNONOON

CZReUBO RKBE DR CPT PROG MACYIl
CZRbUB .Pl1
02-DEC-?7 10:46

H1S

(90

Stad 0189

cZR6GBO RKE DR _CPT PROG MACYL!1

CZReG@B.P 11

002
052002
000
0S204S
003

0S334e

000400

054342

005015

UL N

b—h—b—-.—u‘b—ob‘-ab—b—o
= PO = TN Nt

053330
053332
053334
053336
0S3340

(=}
un
e NN W
— OW
U= 0= OO 0 (U e e e

9742
9743
9744
9745

02-DEC-77 10:46

30(1046)

TOE-DEC-??
RAP TABLE

11:48

PAGE

115

191

SEQ C130

.BYTE
. WORD
.BYTE
. WORD
.BYTE

000
000

000
RWBUF
:

.BLKW

2S6.

NOTMSG:

.ASCI1

C1S>r<lay s

020131
Q45522
Oegle2
045522
046440
042502
051105
006524

.RSCII

/ONLY RLL RKO6 OR ALL RKO7'S MUST BE UNDER TEST/<15>«<l2:¢12>

020114
051505
Q42502
o42524
0s2123
020105

0S1104
052040
0S2040
020104
044040
00e47e

.ASCII

/ALL DRIVES TO BE

042040

051505

.ASCII

/1.

DESIRED PORT SELECTED/¢15>«<12>

052103

04210S

053440

ouusee
041517
0405e3
005015
05150S
052040

.ASCII

#“2.

WRITE LOCK DISABLED/<«1S><12>

.RSCII

/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12>

0eCia3
046105
027104

.ASCII

/PORTS

040503
043504
052123
047506
Q42524
040440

.ASCII

/THE CARTRIDGE MUST BE FORMATTED ON A KNOWN GOOD-<«15>«<l2>

020040

046040

Q44504
042105

020040
020040
047516
025052

:RERD/WRITE DATA BUFFER
2%% NOTE saa/ (IS (2> <12

TESTED MUST HRVE

:/<1S><cla><la>

052040
020104
044040
o47s0e

054732
0S4740
854746

020104
045440

047127

DE-SELECTED. 7<1S><12>

+cREWBO RKb
ZFBeGH .P11

CPT

02-DEC-77

11:48

PRGE

J15

192

SEQ 0191

PRCG MACY1l

30(1046)

047517

006504

Q4610S
g43s11
0S1i04
050040
052040
052123
00S01S
02010S

02eS14
042S16
053111
o44see
020117
047111

.RSCII

/WELL-AL IGNED DRIVE,

047503
04a524
052040
051511
020060
050040
44522
012
041101
042524
0e61C7
020105
Q47522
057050
00s012

.ASCII

/THE

.ARSCIZ

/TO ABORT

0e-DEC-77

nLroeonLo U‘tfl&-‘%mho—

0S4754
054762

0ccoo1

10:46

TRAP

.END

TABLE

PRIOR TO TESTING./<1S><12>

COMPLETE RUN TIME

TESTING,

IS 8-10 MIN.

TYPE CONTROL-C

PER DRIVE.- <¢15><12>

(tC).
/<15 «<i2>¢«12>

ARPTENV=
000001

1497 %

6887
1893
628

e s Pt b Pt Pt Pt Pt e L
L W [NINTA
T ) elLt
o
oot o @ NN
O — N
O JODOWNN~— D00MNNN— whnno
£—
£0
OO~ "~
D0 WU - 00 £

32448

e L ()0 0 0o b

OE—DEC-77 10:46

_CPT PROG MACY11

L 4

000000

7744

b e et s bt e P s e P s e P Bt Bt Dt Bt Bt P s e )
N~ L oo
W00 O DO D DD
D D00 DD DD DD DD
WWWOrDWWWLHIIWO)WWWWWLWWWWWWNIW

o
O
=]

=]
o
=]

600208

W
o
o
o

o
o
o
O
o
(]

nNLWwu—-0
nunnunnrNnENERIRBIRNNN

C%P&OB.PII

0 0D == = () () =2 bun 4t bt s 0 Pt Pt st Pt o Pos Pms e
e ()
U
O Wi unnge
N
O DN OO
O DO D00 D0 00D [VelVelg)]
DCUNWWO
O WWLIWWWWWWWWLWIL Wwo

n
n
o

r
[¥3]
<
W

ABA

00
Oro0
o0ow
o

DD%
22
PR

DDXY
= {m

ngg$

|[w}
o
o
(]
o

<
0
n
1]

—

D
=4

CZR6GBO Rke DR
30(1046)

3838

1593

6902

93
86

?g.

11
77

CROSS REFERENCE TRBLE -- USER 3YMBOLS

02-DEC-77
1634

6937

11:48

6685
1608

6640
67223
6748
684S
£8SS
&860
6865

3631
3674
3704
3705
37ee
5058
S130
5797

6724
6868
6875#

6358
6325

8866
8308#

43939

663S

1635
4248

4S3Ss

3630

3600

PRAGE
194

K15
SEG 0192

6870
6881

CZREQBO RKE DR CPT PROG MACYI1
CZR6GB.P11
02-DEC-77 10:46

A.CONT
A.NORM

003060
003054

BIT1l
BITi2

= 004000
= 010000

BIT13
BITI4
BIT1S
BIT2
BIT3
BITY

=
=
=
=
=
=

BITS

= 000040

BI"&

020000
040000
100000
0000CH
00Q00IO
000020

000100

4257

457748

.893%

p89b®

5062

5134

s8ll

4943®

4948%

SBO2*

5984%

6001%#

6010*

6194%

6209%

6blls

4953

4965%

43ebx

4967

H973%

49742

2944

3784

5646

56935

5735

S9ece

264l

e27e0

2861

3247

6527

2629

2643

2722

3249

6409

2631

2645

2724

2862

BBaY4

4B8BS*

6880%

BB99%
7830

7826

H3g;l

aggg

494b#®

HO9SIx

49S2%

5911

6274

be8e

6818

6930

6817
6323
2537

2559

2707

28s1

6015

b2b4s
6901

fnrrrrcLrer
O
—g
DNOO~—NW L,

7
X3
33

UMY == =t 0t s ps Pt po pe

2511

-2 F

000100
000200
000400
001000
000002
002000

3€99

3742

=
=
BITOB =
BIT0S =
BITI
=
BITIO =

163e

3731

= 000040

37198

3726

ol o o ot ol oV ol o (0 oV i o o I o o o o i o
NVOOOWO OWOINI O = = s b b s ps pe b
£ NO NUVONODO—-NW
LN N

= 000004
= 000010
= 000020

309

eblex

U o
LN LN~

BITO2
BITO3
BITO4
BITOS
BITOR
BITO7

5713

3724

001000
012036
DDD020
000400
001000
027004
012007
030042
033560
DDOOOI

BITOD = 0D0O00]
BITOl = 000002

SEQ 0193

3723

011303

BADSEC=
BAD632
BA:
=
BA1E
=
BA17
=
BDSC.0
BOSECT
BOSRCK
BGNRTY
BITO
=

L1S

PAGE 195

CROSS REFERENCE TRBLE -- USER S5YMBOLS

384S*

NE NI

BADDRV

83907

11:48

L X

000200
Q00100
013496
010025
000000
Q45412
00000
00G000
000000
120210
000000
020024
0030Se

02-DEC-77

= %

APTSIZ=
APTSPO=
ASKSYS
ASKTYP
ASWREG=
AS2SP2
ATESTN=
AUNTT =
AUSWR =
AVECT1=
AVECT2=
AVSCOR
A.ABNL

30(1046)

asel

2543

2563

2564

2579

262l

2635

e71l

2855

2948

3241

25e3

2544

2565

2580

2594

2607

ekae

2636

ar1e

2856

3242

2713

2858

3243

CZReUBO RKH DR

CZRBGB.P11
BIT?

= 000200

BIT8

= 000400

BIT9 = 001000
BKSLSH
012137
BLDEXH
03444y
BPTVEC= 0882 Y

BSE

CPT

PROG MACYLl

0e2-0EC-77 10:46

30(1046)

2567

2568

2582

259%6

2609

2624

2638

271§

344

1450-

age?

2526

2547

2548

2569

2583

2597

2610

262s

2639

2716

2859

6524
34918
6764
I435s

8804
5384
6794

2626

2640

e717

2860

3246

S08y

5392
5077w

6809

.
4384

3987

3583

3545

3714
%
Y384

3727
4389
5489

5493

7989

8073

?613.

qué

Sl
3732

3734

32388
2954y

gggg

= 100000
= 010000

CKMEM]
CKMEM2
CKMO
CKSCOR
CLEAR =
CLR
=
CLRPRM

Q26112
026124
026132
023220
000105
000040
021270

CMSTRT
CNTRDY
CNTRLC

012236
011537
012102

¢MDTO = 000100
CMPBUF
025044

23624
2S11s
o5l2s
25138
25148
39658
25068
24998

5058
25028

6197
5383

4826
7989
7989
650%
4988
5470
7596
3827

6773
7056

3804

2527

4348!
5063

Hgsgi

5123

Hggg;
5135

5387

7643
5086

7989
5460

5973

7033

7643

4928

7402

7952

8009

8060

6803
7083

4892

6658

6988

3515
39408
34858

35208
5816
4745

6914

3q35.

q;sx

;351

6338

6942

COMSTR
005176
CONCLR= 000176
cgnsna
oséooo

29578
24838
?azg.

6329
8091
eg;go

ggl“

CR2LF
CTLOUT
CTO
=
CYLNDR

34908
4338
25008
239674

6336
576898
6693

6408
6310
7658

12181

RLF =
cn*ssa
§§w géé

012133
025564
004000
00S434

4328

%§qqo
9y

7357
7852

74916
8009

388

453y

7159

5355

OMM

7298
74902

58924
6200

]

2611

B
3 ?é

58864
58904
5889
52728
24658
25228
4874

27138
56828

2538
7662

5051

7260

2584
7426

cB6ovc” R1CES

012607

2549

5095

6923

i
i
iBas o563

4955

6825
6265

6811
6031

cHiRLe
aleist
ENTRED Bisid!
CNTRLZ

SEQ 0194

CROSS REFERENCE TABLE -- USER SYMBOLS
2546

CERR
CFMT

M15S

196

2525

3791

6015

005422
00000I
000002
000004
000020
011740
1000G0
002000

PAGE

2496

2546%

BUFPRT
B.BAlb=
B.BA17=
B.CDT
=
8.CFMT=
CART
CCLR
=
COT
=

11:48

14218

3597

= 000200

BSERR = 000002
BSFACT
004162

02-DEC-7?7

14
6432

7598
8060

S4Y01x

8083

7649

8083

SY0o6#

7964

5407

S4llx

8020

8108

CZR6ABO RKE DR CPT PROG MACY1l
CZRBQE.PI1
02-DEC-77 10:46

30(1046)
78698

Q40222
042074

8001
8135
8005

Q4il1y4
003144
100000
000320

4725%
4yzel
Y4724

b194

N15

11:48
PRGE 19 7
0c-DEC-77
CROSS REFERENCE TARBLE -~ USER

3YMBO.S

8046

80S0

SEQ 019S

[

7426

6829

80b7

8126

7662

6923

1527

012176
052406
052436

050716
05100s

051023
051046
050S34
051066
350557

1892

1898

1772
2000

1304

N
"N
oom

97078

e
s e

\n\»-fmo:mwmmmm.:o‘:m;mmxmmoom:mwom: Loo

0s0s1e

DO
T ON OO0 D TN s s 4 be b= D PO TV
- PUTU NN U 0e e oea poe pt Pt () s s Pt e
W
EW— O LT £
000N
+—1—Or— HOO- I— DD OO DM
DM ND
OL— LN
L~ L OO WINLWH own VW WNINW
Y= = 0= - OO

0000000000

Rdaainiintinaini k)
PO 0 4 s s s s e pee O
—ONONLW-0ON

0Se47e
052532

2036
1736
1964
94998

1362
2076
9555
9557

3633

3652

CcREUBO RKe DR CPT PROG MACYLL
CZReuB.PLI
02-DEC-77 10:46
DH20l
DHe0e
DH203
DH20M
DHSO0
DHSO1
DHS0e
DHSO03
pHe01
DH60e
DH60Y
DHEQY]
DHBE042
DHEOS
D46051
D06
DHE07?

0S1377
0S1432
0S1461
0S1477
0S1514
05155)
051577

DH?02
DH?03
DH?04

0S1706
0S1722
0S1746

DOH701

DH70S
DH706
DH707
DH710
DH711
DHB00

DI
=
DIF100
DISPAK
DISPLAR
DISPRE
DLY
=
DLTFLG
DMCART

0s1110
0S1177
OSIE;H
0S2077
0S06Q01
050637
052135
052176
051310
0S133¢

051617

051766
0S2002
0520:€S
0S204S
052063
052253

Q4000
003147
Q10404
001142
000174
100000
003146
Qec472

ODMD
=
DONE
DRA
=
CRDY
=
DRIDON
DRIRDY
DRIV
DRIVE

000040
003132
000001
000200
Q010642
010623
011731
00S430

DRNRFG
DRNAVL
=
DROPDR
DROT
=
DROVFL
DRPRAR =

003141
010000
(011641
000040
(010245
000010

DRPDORV= 002000
DRVBUF
011230
DRVCAL
030146
DRVDSC= 000040

93508
93608
93638
g
QU4
93138
93198
uSOs
94568

30(1046)

J4gy
§c09
3

Bl6

SEQ Cl19

11:48
PAGE 1938
D2-DEC-77
CROSS REFERENCE TRBLE -- USER 5YMBO.S
9596
9656
9662

9635

95C”
952
95

9522
9637
9643

9641
9624

9660
9658

%607

9620

957y
9561

9581
9576

9583

9563
9683
9550

3609

9622

S9] 3«

94108

958¢<

4llB8#
Slll#
3555«

4159+
Sll4
8691#

4231i#x

H2S4#

7254

7384

7420

7660

6318
8032

6357%

6491+

38ee

4696

S89S#
73

8118

9723

965y

9712

4472

H477%

660S#*

6957»

6960%

4877

4878

4922

4951

4965

4973

4086

4177

4180

4475

7024
7562

7026

4508
5846

4S14

6987

$yu78
580¢<

8851+

S108#s

4996

S067+#

S068+

4876

494§

6504

4347

4348

4990

S01?

3924

6951

7334

7500

507S

42?7

S469

5986

4517

6003

E19%6

63088

01102

052314

D1202
01203
DT601

052336
052342
05236¢e

DT1201

pT160e2

052370

007572
000040
020000
000100
021014
000030

EMIO
EMI00
EMIOL
EM102
EMI03
EMIOY
EM10S
EM106

045632
D47743
047766
0S0044
pS01le
050144
0501t
6
050eel

€M1
EMLIO
EMill

045641
050321
0S0254

EMI0?7

EMLll2

7g7¢2

748S
7471

75e?
7786

3779

3546

4eu0

6745
7662

1669
1747
1825
1915

400S

432

4O0lb#

4329

<4341

4380

#
4401

4402

g4 1Ya

034

7807

8011

6140

7662

167S
1753
1843
192;

2011l

201

2041

2047

2053

7260

7426

76862

94698

4335

052320

DZR6Q
ECCNC =
ECCW
=
ECH
=
ECOBRAD
EMTVEC=

gEMl

4004+

4282

045417

050254

0s0375

3532%

2113

9480s

WO OO
—W INWD

052276

7931

3809+

Ya6e

NYe—
o= pop
-0~

DT100

= 010000
= 000Q40

7S10
7469

4016

Tu
O Ofu
N
e r—W

DTE
DYYE

7880

3808

U=
o e e
00

DR.CLR= 00000S
09.55%:
00001
DROX
11610
DsC
= 040000
DSWR
= 177570
OTBRII= 100000

7435

3739

—r— NN

0001}

= 000200

7284

7667

TU—
b= b e
— DM NN
Om
@ O+

DRVUSE =

DRY

3735

e
pe
OODMNIN
O N D
Vo o

7536
3671

OO
N
OO IWO
(NN NINTT,

PRVIEY §6898~.

6381+«
7341
3625

NU»— =+

(011265
023738

3567#%

N0 ND
N NN

DRVSEQ
DsgsER

23268
e’lls

SEQ 0197

U
b= e e
OV
m N

000007
0l172sS
Q0000
000002
D0SSSH4

10:46

Clb

02-0eC-77
11:48
PAGE 199
CROSS REFERENCE TRBLE -- USER 51MBO.S

()

DRVMSK=
DRVNO
DRvPDT=
DRVPQOS=
DRVPTR

0e-DEC-77

30(1046)

NNo N

003137
DRVERS
ORVHRD= 000020
DRVLST
008Sie

PROG MACYI1

P bme b

CIREGB.PLI

CPT

NYo
p— b= ps
OWwm N

CZR6QUBO RKe DR

CZRe3B0O RKB DR

CZREQB.P1I

CPT

PROG MACYL]

De-DEC-77 10:46

gmw
M11S

g&&s&
S0473

182
2141

EM13

045675

1718

M1l3

EmMi2

EMINY

)

92928

1709

90338

Q45717

1721

9040s

Qus766
046003

1733
1739

Q4SESH

Q4S7u4s

EmMe

OMS443

EM20

gEmMel

ove02Y

S006s

1751

046177

1781

046061
Q46103
Q46134
046154

EM2?
EM3
EM30

04621l
Q45467
046234

EM31

1661

046041

Emee
EMel
EMoY
EMSS

EM2CB

9044s

Q4eeh 1l

S0478
90508

9053

9056

1757
1763
1769
177S

90594
90638
90684

1787
1667
1793

90778
2147
1913

180S
1811
1817
1823

0884
90S!#s
2ll7
90988

1799

9C?1s

907Ss

1919

EM32
EM33
EM34
EM3S

046302
046323
046345
046365

EMY
EM40
EM4l
EMY2
EMN3
EMS

p4ss1e
046517
046563
o466l
046651
o45€33

1673
184}
1847
1853
1859
1679

90148
Sl]l4s
9121l
9127
91328
9017

EMS3
EMSE
EMB
EME0
EMB]

046734
046761
Q45552
047000
047034

1807
1928
1685
1937
1943

914l
1931
90208
91488
91538

EM36
EM3?7

EMS2

gu4eH42L
L4645

046706

1829
183S

1901}

1949
186S
1871
1877
1883
1889
1691
1895
1997
2003
2009
20158

91608
1961
1967
1973
1979
198S
90248
1991
9199
8205
9212
92178

EM76

047640

202?

9824:

011170

33928

4413

En7?

NOTST

EQUALS

07610
0477;2
D0l2leM4

c0el

2033

3501

908Ss
909Ss

91378

047102
Q47126
047173
047236
Q47264
047317
045576
O47356
p47428
047465
047534
0N7570

£EM7S

9010
908l#

91038
910848

EME2
EME3
EMEY
EMBS
EMEE
EME?
EM?
EM70
EMZ]
E~72
EM?3
EM74

91458

91648
9171s
91778
91818
91868
91928

92208

2039

11:48

D16

PRGE 200

CROSS REFERENCE TABLE -- USER SYMBO.S

30368

1727

1745

(02-DEC-77

383,
32998

gEM1S
EMib
EM17

3011046

9233

SEQ C198

CLRBOBO Rk DF CPT PROG MACY11
CZR6GE. Pil
02-DEC-77 10:46

RRCOM
RRFRE

0S4

0400090
003Ce2

= 000400

SEQ 0139

636S

6367%

6492%

6606+

67774

6822+

6912

4869

5802

6010

6017

6209

66048

6879

6899

3556
6808

3564+
6904

88e9

8830#

8832+

8835+

7491

7532

7556

6498
7337%
810cx

6502
7408%
B110%

6509

6524
7532#

6527

6534»

7226

SOluys

302
031504
003136
800Co4
031524

—

po)

ELlb

11:48
PRAGE 201
De-DeEC-77
CROSS REFERENCE TABLE -- USER SYMBOLS

6195+

6952#
BS44R
63578

9469

4691

£880
4723

3S4SH
6783

6360

6362

7430#

8l23%

7653%

7556

7814
848

7430
7465

7640

5904
§721

§739

S906

5926

S93e

5723
g7e2

5743
S741

5308
S907

5930
5928

5934
5933

Yyede
3762
s484
8988
3827
6849

4879
4808#
548S
8989
4925
70449

S086#

S461

S599

5978

5998

S49]
8991

8994

893S

899

8997

8374

S8ee

5509+

SS17s

7426

7662
T049

—
—
]

7653

L 8

|
D

Ralaalnainalaaisaloaloslaslaaloaiaglag]

003135

mmmmm

ERRCNT

30(1046)

7662

ERERER

0000cy

7382%

8078#

6910

6938

SS07#»

SS51S»

5508%

SS5168

6510
6S01%
8314
6015

5518%
SSli#

4190

oo31ioe

8072#

807S#»

g27¢%

42563

6784

6197

7027
7030

54Q9»

SS19s
7260

6786

6923

6103

7034

767S#

F16

CZR6ABO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 202
02-DEC-77 10:46
CROSS REFERENCE TABLE -- USER S5YMBO.S

SEQ 0200

ZZR6GB.P11
IDRE

= 002000

1€

= 00C100

ILC

25508

guggo
12

673S

3821

4921
7662

= 00000l

25378

6696

02117

3820

3840

Iherse” B99906
INITSS

INTBLD oe;sz
Y4

NTCHR

EoBa"

1.CSTS

037622

1.CST1

037170
037644

I1.0RV
1.ERR
1.ERRA
1.ERRC
1.HDAL

003112
035356
035336
035344
035602

%'%2;5 883?55
.

6799

7606

7670

7958

7999

8065

3945

4000

4045

4151

4325

48638

4920

7371

5098%

5791

7489

5795

SWS9

4228

4793

4079

5800*

7641

SB809

7554

5813

5820

7823%

7833#

4742%

D85

3897

476l

47782

14368
25248

3529%

3530%

7477
7237

7315

7483
7281

7308

7365

7501
79148

77438

daas

9708

2485s

1.CCLR

6769

3874

INTR

000020
000100
036604
036134

5113

6135

ggggn

= 000300

5041

61058

§Nrfisx 88311?
I0TVEC=
IR
=
1.AERR
I.ATTN

4959

3835

2838s
7309
73088
7246
7232

Sggg

;%Eé

4936

7882
73138
7376
7299
73558

;Ség'

7325

7346

7668

8026

8093

7312

7364

77478

8017

73118

7444

7233%

7236%

7883

7904%

8058

B8l131#
7787

7794

7801

7808

7304

731

7433

7321

7448

7324

7455

7330

7461

7339

7487

7348

7351

7434

7366

7506

7368

6760

6766

6790

6796

6300

69358

5234

5240

4017

441S

5059

5089

5127

5131

3539

7502

I.57WT
I.STOR

037726
037474

7320
7648

7525
76988

77848

8038

KBDOHOL

020634

3576

47348

5718%

S5903%

6663

LASTWC
LDMEM®

005474
026042

29808
Se58s

LEVRER= 000400

32458

LBng- G2enes

SBe1°

5590

5ee

6608

13428
S6378
3901

LOWOCT

005416

239608

LSTTRK= 000002

32378

4985

003154

LSTCYL

024404

29408

4984

73?0

7562

]

8308

831u

Y164

SSb1ls

4089

4lle

416l

S039%

5465

S496%

S506%

SSl4s

5975

3903

S466

HOLK == G0G400

So83e4
E;ég.

3510

3513%

35i7%

3593

3698

MDS

25278

3831

4932

7224

7651

8026

MOFLAG
MEMABT

003126

= 00l100"

MEMVEC=

MERD

0031S1

000114

= 001000

29368
29Sis

25848

76388

7473

7826

75504

= 000012
LODBUF
024720
LODSEC
024502

LOGDRY

727

7828

7607%

7533

7530

8972

7528

7467

;3;5

seas

7486

037152
037052

2457

753t8

CRTRN

I.UNLD

2087, St

7510w

832585

;gg?

3073

§.§83u
.

;353

3020

50sS

CcREIBO RKe DR CPY PROG MACYI1
CZRBUEB.P1I
02-DEC-77 10:46
MESMSK=

000017
002000
027332

£00200
010340

000100
0eel110
017760
017760
042676
042636
042646
042666

30(1046)

Glb

02-DEC-77
11:48
PRGE 2 03
CROSS REFERENCE TABLE -- USER 5YMBO.S

SEQ 020!

cS778

c2s8ss
blcbs
25828
33188
c2S8ls
3876

SO036x

5042

5033
83578

042734

0427?20
043000
043032

Sessssssses

OAVERG
OC BIN
OFFSET=

NXDR1V
NXF
=

L WNWWWWWWIWWNWW
LOWWN
L L= r—r=OMNMN OU——
oM £~
0O
—r— W\
ONO =~ LoD
D L

043044
000007
007000
000003
100000
000760
077770

4234

4260

4277

4555

4530

4637

6642

6652

7239

7317

7660

8030

7254

7420

7660

3846

H701#

444

4q49

7956

7997

8024

8042

8063

8086

4109

4333

4551

458S

4636

4653

4466

4468

4490

4496

4538

4558

4539

4580

4542
4261
4YS41x
4543+

4516

7939

801S

5302

8129

coR6WB0O RKE DR

CZR6G8.P11
NU

Braty BB31e8

CPT

PROG MACYLL

3001046

688

wusas

02-DEC-77 10:46

11:48

PRAGE

H16

204

4491

usor

uspes

5313

4523%

HE94 4+

6015

6754

7260

7426

7662

32088
gegal

438+
?égg

Yo34x
7164

4645 %
7274

Y46
7278

§§§6gg

27548
27864

§g;é:

2909
4878%

4872
6610

S01S
6891%

Y46
005566
PBLKT
003122
PBSVAL= 001000
PC
= 004000

728
299cs
2909
27178
25868

5639
S641l

31748
3177
3180
25284
2571
13488

OP?

003156
004

EQEEI
;.

= 82860

Ssgau

OREGSH= 00690

OPIERR= 000010

OVRAVG
g.NQIT
ACK

PARMO
PARM]

gg§sno

007426
888064

103

002640
002724

PATRN
PRTOO

= 010000

CSCRU
PCSCR1
PCSCR2
PGE
=
PIP
=

PIRQ

007252
007312
007352
002000
020000
177772

BLAPS
i B094e0
PMA

005504

POSCRO

006752

PREPKB

020774

PRMBUF
PRMPSP
PROMPT
PRVCMD
PRO
=
PR]
=
PR2
=
PR3
=
PRY
=
PRS
=

32408

25874

3475
.

898%'
614

3152

387S

]

4600

YEeLC9e

5303

4662
7094

7360#

7373

7388+

7932%

7992»

8054#»

687S
7019

6895+

£949

7001

703S8

3781

6171
6985

6891

3779

6162
6895

S688
5656
7244

€764
8690
7270

§70S
7438

7463

7881#

4280

4297

4556

4591}

6700

7660

€756

§758

S86S

5893

S943

S94S

b14S#

bluybs

6l47s

4080

4182

4229

4326

97778

€823

7146
§30S

7152%

Tlbbx

787%

787b#

8135#

6756

35i4x

7157
7819

S658

3518#

c707

blb7H

3898

3946

4001

4046

4359
3583
3582

6328
c0i8

6577
6950

7023

e7ev

a7es

4SS2

3499
35038
3502
2955
13658
136648
13674
13684
1369
1370%

3577
2841

PS
=
177776
PSCORO
07Sie
PSCOR]
0G?53e
PSCOR2
00Q75Se2
PSSCRO
007420
PESSCR!
007422

]
13458
32278
3230%
32338
3197s
32008

1346
Yl71%
4172%
4173%
4Y156%
4157%

13758

6923

4498

blbb*

(012152
012173
012170
00Sl162
000000
000040
000100
000140
000200
000240

PRS-= 999398

SEQ 0202

CROSS REFERENCE TRBLE -- USER 3YMBO.S

4479%

gFSQIR

82598

02-DEC-77

3se0
<

4yo47s

S091

£818#%

4586

3520%
450
4S4b
4548
4281
YE47
%

3582+#
4S54y

S018%
4559

4E4Sx

4581

8071+

6148

CTREJBO_RKkb DR CPT PROG MACY1l
CZR6GB.P11
02-DEC-77 10:46
PSSCR2
007424
PSW
= 177776
PWRMSG
044540
PWRVEC= 000024

30(1046)

32038
13468
8787
14378

4158
£350%

27438
27468
27478

6569
6571
5430

P.ASOF= 000032
P.Q00 = 000Q40

27388
27418

P.BAMI1= 000007

27008

P.BAR = 000024
P.BO0 = 000042
P.BO1 = 000046
P.B10 = 000052
P.B11 = 0000SE
P.CMND= 000001

P.CS1

8731s
35358

116

02-DEC-77
11:48
PAGE 205
CROSS REFERENCE TABLE -- USER SYMBO.S
4549
7023#
3536%

8775%

6564
4963

7488
4971

b1S51®

BSS3

4094*®

41b3%

27358
27428
27448
27468
27488
26948

BS63
6568
6570
6572
574
3833%

7519%
7474%¥
7790«
7013
7395%
3B84l¥

000018

27328

3834%

P.CSl1H= 000007
P.CSe2 = 000020

26998
8008
27338
7517
26958
Y117%
6136%

P.A01 = 00004
P.AI0 = 0000SO
P.All1 = 0OOOSY

P.BALO= 000010

P.CYLN= 000082
P.DCYL= 000030
P.DRVN= 000000
P.DS
= 000036
P.DTS = 00002k
P.EPRT=
P.EPOS=
P.ER
_=
FP.OFST=
P.PRET=

000062
000060
000034
000006
000014

7941+
7480

4239%

49B8bs

7749
7475

7Blls

BOI9#

7797
7804
3920%

3923*

489S

4935#

4879%
8059
4689
7747%
3908%
417S%

H4BBO*
8073
6558
790S%
3913
H17B%

4988%
8082
6632
7930
3951%
H246%

27378
cb93s
27408
ggggl

6081
4877%
6565
%ggg

6le8
7287
6685
6085

6559
7464
6689
6129

]

7899

27018

6546

7021

7942
74Y96e

7497

7810+

BO18e

G4ETe

5B42+

5983#

5335&

Hl4Bs

6SSE

797S

40B4E

4088

H176#

4179

Y47ls

4SO7%

4S10#

4S13e

S57

800
667S

6693

7056

7089

73118

7363%

7401®%

7402%

4989%

S4EO®

S973%

7033%

7034

740l

7642

7951

6637
7995%
3954¥
HY249%
7935

bbY4e
7996
3957%
H474®
7977

644
8007
3960*
H47E®
8079

6650
8026
3970%
49B84x

6652
8030
3973%
5251

6700
80S6*
408S#
S46S5%

6750
8057
4090*
Sb18

6843
8081
4102
597S*

7988
7317
4113+
8077

7079

7085

7803+

7399

6812
7640
6740
6130

7044
879
7524%
6560

7078

7621%

7755%

7751i%
6813

B032
6815

7012

7047

7048

27508
27498
€7398
26988
27038

6840
6839
4717
4S06%
409Sx

7313%
7314%
4721
4S1S%
4240%

6015

6566

6631

7523%

7752

6140

6658

6671

6852

6857

egee

6867

£988

7562#%

7667%

7819%

7894x

7931%

7955%

795p

7981

7987%

7993

7997

7306%

P.SECT= 000004

26968

P.TRCk= 00000S

26378

P.WC

3317%

7S22%
€391

8784

7753
7479

7789
779
6573

7483
BS67

.
B8783:

SEQ 0203

73344
3910%

7341

3915x

794]

7345%
Y4i166%

4187

Y4167%

4183%

6006#*

6007

6079

65138%

Y rd

6078

6137#%

6547

000012

aggg.

P.WCR =
PISET
PISTRT
P2STRT
GNEWSW=

000022
oizele
(012204
(Qlee2ee
000000

27348
3511
1456
1458
2483

3926#%
ggé?§

6561
3S14#
35138
3517

3927

;g;g;

7518%

7442x

4099

7748%*

7465

7469%

7482%

7500%

4188

So4Y#

S4p3x

5895

4184

4485
Y44y

6549

7020%

Yi6S*

HYoulx

7400

7936

7S510*

71598

7272#

7536

7540%

7550%

S980#

5389

$930

S996»

8024

BO34+#

4985

7978

S24S*

8080

G247

Seus

S4bb#

5609

43987

S4HE8

S843#%

59824#

6139

ble4

G.INIT= Q40000
011151
000010
004000
000164

RAVERG
RCDASH=
RCLREQ=
RDALHD=
RDCHR =
RDCHRS
RDDRTA=
ROGATE=
RDHDO
ROHEARD=
RDSTRT=
=
RDY
RECAL =
RECODE

27244
3389
29478
324Es

3011046)

02-DEC-77

CROSS REFERENCE

J16

PRGE 206

TABLE

USER

SYMBO.S

SEG Ca0v

ee83

6728

6733

6738

6743

6780

3721

4813

SOL5

S117

S344s

5483

4942

S4ee

6986

800S

47164
beBex

4719%
6358

Y724#%
6368%

4939+
6607%

5080

6733%
6825%
6902%

REDBSF
REDOF
S

11:48

6885

£738%
6829*
B923

7028

£743%
6832%
£925%

7031

p748#*
6845
6930

se2l
6345

5668
477

659

6798

6971

7183

7222

Sl]13»

6799

6803

8088%

7606%

»
8097

6973
7645#
8107
7996+

RESREG=

n
ron

CZRSGBO RKE DR CPT PROG MACYLL
CZR6GB.P11
0e-DEC-77 10:46

RESVEC=
RETANL

n
"
maunanun

~—

)
x
= ¢
o)
n

x
O
wn

x
O
v

003046
000000

740G+
8014

7597

000010

7383

7747

7930#%

000006

8080#
6801

7380

7381

7798%

000030

7805+

K16

CZR6QABO RKb DR CPT PROG MACYL1l 30(1046)
02-DEC-77
11:48 PRGE 207
CZR6GB.PL1
02-DEC-77 10:46
CROSS REFERENCE TRBLE -- USER SYMBO.S
RKPRI

003052

cg84ls

3580

3605

3756

J77ex

7152

RKVEC
003050
RKWC
= 000002

28408
c443s

3578
6977

3601#%
7700

3602®
7748

3751
7976%

3754%

RWBUF

053342

3917

4093%

4094

4163

4239

4386

4994

R.CONT

040200

7ee?

7265

7329

7338

7409

7431

7454

RKPRTY
RkVADR

007727
007704

R.ABNL 040154

SAVREG= 104407
SAVWRD 003160
SCLR
000040
SCNDRV 021316

SCRACH

00SH4Y

SCRLST

00SS56

SECLST

SEEK

006572

SKI

g?gg
7677

Y462

5720

6327

2952
2523%
49208

STALL
STALLS
STDLST
STKLMT=
STRCMD
STR204
STRee0

8049

8103

4535

4577

4630

S1S0

6380

6430

6542

6604

5858

5291

24638

3833

25398
]

34958
34948
34934
25038
25638
62258

13368

3653

366l®

8125

€204

5233

6970

7011

5886

890

3688
S734*®

3828%
5737

3829%
5834*

Se43

Se32

7460

7493

7533

7557

7602

7654

5272

S4ay4

SSel

5589

S637

Se82

7077

8u41-

B84S8

§398+

5393+

§922

5349

8035

590S

6029

4929%
5915

4930%
5921*

6076

6126

6lbl

5385+
5924

5387%

S388

3667

3683

3795%

3798%

3799%

3817

3852#

7933

3896

3944

3999

HO44

4078

4150

Y227

4324

SClis

436l

6046

60S2

6419

L X

426

6429

6449

b4S4

6675
6689
6266

7658

3527

SO1l®

S012

S0s4

5061

5126

5133

5803

8786

5095

§837

5735

b725

gggkns=
629888
¢

5?68.

4511

elel ]

15268

8112

5566

7923

4013
4023

001140

78258

s5e2

4471

6309
3S88%
5152

4934

63278
40lex
40ce2*

SWR

7565

S472

4176

55354
29668
3l2is
13478
6313
33308
33388

c4g84s
29848

5862

7545

S467

4084

024420
005432
006552
177774
030220
010450
010SeS

SUBCLR= 000177
SuBsSYyS
005510

;g:g.

7876

839S»

6169

6264

8106
S069

S244

34968

STACK = 001100

78338

31318

29908

012147

0l1214¢
012145
012143
020000
003020
027700

7815

3683%
5728

3873

SPRCE3
SPACEY
SPRCEG
SPAR
=
SPDLSS=
SRHTBS

9588

3tB0*
Se86%

022042

SPACE2

;g;g

29718
S400
24708

= 000002

3761
3752

5834

= 000117

SELORV= 000101

SETTUP

32698
32658

SEG C20s

4S13
3606%

3525

8062

6469

S544

4875
3734%

3546

4409%

4410

5016
3736

6940
3807

7022
4008

8100
4405

3548

3554»

3Sbl#

4844

6207

sTe2

L16

CZRBEUBO RKH DR CPT PROG MARCY11 30(1046)
02-DEC-77
11:48 PAGE 208
CZREQB.PL1
02-DEC-77
10:46
CROSS REFERENCE TABLE -- USER 3YMBO.S

SWREG

SWRMSG
SWO
=
SKWO0
=
SWOl
=
SW0e
=
SW03
=
SWOY
=
SWOS
SWoe
SWO7
SW08
SW09

Skil

SW10
SWil
SWilg
SWi3
SWl4
SK1S
SWe
SW3

Ski4

SWS
SWe
SWw?

000176

6382

14528

011245
000001
000001}
000002
000004
000010
000020

34028
14008
13908
13894
13884
13878
13868

= 000002

1399

=
=
=
=
=

000040
000100
000200
000400
001000

=
=
=
=
=
=
=
=

00e000
004000
SéOOOO
020000
040000
100000
000004
000010

13804
1379
13784
13778
13768
137S#
1398
1397

= 880040
=
000100
= 000200

13958
13948
1393

= 000020

cw8
= 000400
SW9
= 001000
SYSDRvY
010103

13858
1384s
1383
13828
13818

13928
13918
32898

000100
000100
(040000
000400
010000
002000

c608s
26e3s
2b4Se
26asse
cblSs
ob41le

S.DRA_=
€.DROT=
S.DRY =
S.DSC =

000040
020000
000200
040000

2594
cblos
25968
26038

S.FLT =
S.FORM=
S.FWD =
S.HDFL=
S.HDHM=
S.ICyL=
S.ILF =
S.LIMD=
S.LOAD=
S.MHD =
S.NMOV=
S.OFF =
S.PAR =
S.PIP =
S.PLG =

000200
001000
002000
000200
000040
000040
000400
020000
010000
000400
(010000
00e0u0
001000
026500
004000

4847

6437

4g84Y

8632

8699

7497

75860

4846

4849+

1400
1339
1398
1397
1396
1395
1394
1393
139¢
1391

b382

13968

S.ACLO=
S.BRHM=
S.BRkE=
S.CART=
S.D0CLO=
S.DIB8 =

S.DOOR= 000200

6409

3554

3627*

3&e8

4963
7332
7475

7480

7335
7343

7812
7538

cbe4s

26098
2538
c6e7s
26388
c2bees
26074#
ebl0s
2644
2be9s
26398
26438
25994
cblls
26028
2642

8711

8714

SEQ 0208
S804

8824

8840

CZRbUBO RKE

CZReQB.P11

.REV =

CPT

PROG MACYL1L

02-DEC-77

10:46

26358

S.SPIN= 010000
S.SPLS= 010000

260l
cblys

S.TYPE=
S.UNLD=
S.UNS =
S.vw
=
S.WCLK=
S.WGAT=
S.d4dLE =

000400
040000
040000
000100
000040
000100
004000

25978
2631l
cb17s
25958
26368
26378
cbl3s

S.XDOK= 000020
S.XERR= (001000

ckels
2b40s

002000

S.SPOK=

001000

S.WRL

TAB
TRBLER

004000
0l1243
005566

TABLES Doeace
TR
LE
TRRLER BRBLLS

TABL7A
TRBL7C
TBITVE=

TKVEC =
TOPROC
TPVEC =
TRACK
TRAPVE=
TRKRVG
TRKBUF

BBSBBo
6060
00001M

4971

34018
2998

436€
3908

3910

gé
3b

E 168

J0cas

30188
3069s
14338

*
§0§§8
0RRY

14348

TST1

014346

3915
3960

3973

35764+
6660

3677
69698

3533
46308
4336%

3634x

4S5l1e2

3359.[}
45;8

Hgsg

3899
1

4002 *

4081 #*

4327%
¢

4399#

S806%

677S

6820

4464

4483

3637

3638

3673

4343
4413

4348
4745

4356
4751

3R88
3

3634
3776
4370

8785#»

4408

32478
5097
8991
3571

6661
60298

6990

3574

3E17

4020
4387

4023
4392

4332
4397

3720

gsel?

273

4i48s

3715

c208

015513

40768

£18S

se’

S04

4ee5s
4y3eos
3894#n
3942
33974

6190

4021

002000
027030
1044085
104401

SEQ 0207

4339

378S

015204

TWOT0S=
TYPBSF
TrPDS =
TYPE
=

3913
3957

015146

TIST6

TS8T1?7

3979

3871

018016
016434
014376
014570
014762

1S71S

4101

3954

3783

TST10
78711
T8Te
TS73
TSTH

M1G

209

CROSS REFERENCE TARBLE -- USER 3YMBO.S

26008

TRTIVEC= 000014

¥S¥?SN Délio;

PAGE

2bebs

005440
000034
020¢ebe
O01lee4

027570

11:48

cbles

14408
6483
1441
8
2969
1439
4379
3397

TRNSFR

000060
(033764
000064

02-DEC-77

Stg ]-

$: ngggg
2R
5 SECT= 0
S.SKI

30(1046)

4011

3729

3628
3730
4339
4410

3741

3747

3782

4365
4?61

4762

4553

3714

4013
4386
4794

RK6 DR CPT PROG MACY1! 30(1046)

EZRggggpll

TYPERR

TYPFMTM
TYPC.

TYPON
TYPOS

=
=

’

02-DEC-77 10:46

(02-DEC-77

6046
6414
6458

030352

63808

8701

104402

60Y4S

60s1

605S

6405

8989

103133
10404
10403
7

2922s
8990
4809

60S2
6419
6464

3823

PRGE 210

SEQ 0208

CROSS REFERE&CE TABLE -- USER SYMBO.S

6042
6413
qu;

89874

il:48

BO1

3906

6056
e4ee
e4e9

6065
e423
6470

3949

3968
6428

6431

6418

6396
b4e4
B472

6397
6425
8278

b42b

6402
6429
8590

6403
6432
8665

4880

4923
64S1

83e8s

4989

S495%

S505#%

6408
6433
8694

41l
6435
8702

Y12
6449
8787

T.ASOF

003024

c82bs

7300%

7301

73eS

7370

7371

7450%

7451

7457

74688

7522

7530

7584

T.CS1

003010

7297%
7515%
774S%
724

7298
7516
7746
7239

7311
7527%
7786%
7242

73ce®
75S1%
7793
7254

7355
7597%
7800%
7283

7357
7598
7807%
7383%

7363
7638
7961x
7384

7392%
764c%
7962
7420

74l4®
7643%
7964
7434

7446
7643

003012

7245%
748S*
7698%
7223%

7Y41%
7BMS

T.CS2

28188
2471%
7658
2820s

7517

7639*

7521
7248%

72706%
7249

7524

7703»

7426

7523

7662

7704%

7343
7395

7479
7474

7496
7709

7538
7790

7560
7797

7708
7804

7789
7811

7796
’812

7803

7810

7660

8030

5902

6091%

6131

6l64®

B165#

1.0A

003020

7640%
cga4ys

7641
7520

T.08

003044

2835

}.gsl

gggggg

Sggg.

;;g;l

T.MR2
T.MR3

003034
003036

003042

7332
7335

T.POS

003040

28318
cg832s
c834s

003014
000010
000400
000107
040000
020000
000002

cB8ees
27108
2Scbs
24ebs
2Ss4ys
25318
294Ss

000004
040000

T.0C
T.0S

003022
003030

T.PARY

T.WCR_
UEXRTT=
UFE
=
UNLORD=
UNS
=
LPE
=
VFHOSW=

WCDRSW=
WCE
=

WDSXFR

WHDSW =
WILTST
WLE
=
WORDSP
WRDATA=
LRHERD=
WRL
=
WRTBLK
WRTCHK=
WRTGAT=

000100

005466

000001
010130
0040u0
012156
000123
000127
004000
02310k
000131
040000

28258
28298
]

c833s

7711#

7710%

7651
7702%

7260

7660

7423%

7699%

7518
6867
664
791i
6720
6632

2700%
7306
6650

7239

7317

7254

7420

7660

29468
25328

6843

7254

7420

7660

29768

5638

5685

5717

5864

5892

6716

7260

7426

3920

4088

4179

S84s

7983

3958
3923

3961
7979

3974

5233

25664

2944s
32938
2SS1ls
3500
24728
24748
2S570#s
3952
24758
2589

3679

CeR6QB0 RKE DR CPT PROG MACY1!
2ZR6Q8.P11
02-DEC-77 10:46

30(1046)

34178
S246
2915

4976
S834s

cee8s
cgg4s
c8678

7149
7947
7INTH
7884

WRTLOK
WRTSEC

} w6=B
SED 3p b

up = W

W.ORV

011347
025770
003124

7835

7154#%

7884#»

7439

DRDR
SBOORT
SgELL

02-DEC-77

CMTAG
001100
$CM1l
= 000040

SCM2

000100

SCM3
SCMY

000040
000016

SCNTLG
SCNTLU
SCPUOP
SCRLF

Q44423
Q44416
001356
001325
o4407e
Q43174

co1

SEQ 0209

PAGE 211

CROSS REFERENCE TABLE -- USER SYMBOLS

7269

#
7947
811%

7295*
7950%

7347%
7971%

8023

8041

7375%

7389%

7437%»

7S044%

7513#

7542

7Sh4e

7848!

7361%

7374%

7390%

743E»

7503#

7512»

7541

1543
iSS&:

1544
iS;E:

154S#
1558%

15468
1559

15474
1560

15498
15628

1550#%
15638

15568

1557»

7362

7149

2483%
7

7987

7955
7960
7542

8726
8297

ERO=

11:48

8040 %

8013

8306*

3538

1553%
1566%

3531
16418
1554
1?67.
16418
15544
1567%

15694

1570%

1572%

1573%

157S»

2082

§303

3523
15408
15534%

8726
B673#
B8458#

154S»

1546
1559

15478
15608

154948
15624

15S0%
1563

15768

1577

15784

1579

15818

1582#

4335
Y

4397

diBE

2448

47
47

g2%

4955

8260

8265

8868

1&320

1244.

15584

Y448

8721

8704
3597
SEOPCT

4440

8866
3791

8830
3804

448
464

CZREQBO RK6 DR CPT PROG MACYLll 30(1046)
02-DEC-77
11:48
PRAGE 212
CZR6@B.P11
02-DEC-77 10:46
CROSS REFERENCE TABLE -- USER SYMBO.S

FFLG

FILLC
SFILLS
SGODADR
SGDODAT

835?22

1.36
001155
001120
001124

gLfigBE 8§H?8
L

SMAIL

001330

s$MAMS]
$MAMS2
$MAMS3
sMAMSY
$MBADR
SMFLG
SMNEW
SMSGRD
SMSGLG
$MSGTY

001360
001364
001373
D01374
001032
045220
44441
001344
001346
001330

SMTYP1

001361

]

O
001366

W
o
n

MADR1
SMADRe

SHADRY 001376

SMSUWR

s$MIYP2
SMTYP3

o44430

001365
001371

SNWTST= 00000!L
SOCNT
$OCTVYL

$CMODE

043652
043156

043654

8697%

3538

3
S
bs

48
&
.
]

2iiy

621
62S

491

6393
B869S*

1636#
B883Yx

B8860%
8283
8314

8802

8816

8838

8698

8726

9469

8717

8718

87ecb

8888

8897%

B90SH

B228x

B8233s

86938 *»
8726

8706

8726

ggéé

gecl

g227%

8850%

8726

8314

88SM

8844«

88SY4

88493%

]

001350
001410
001332

001316

ggggi

es
38

@TM
D
o
£

SETRABL
SETEND
SFATAL

SESCRP

é.

3539:

0Civ10
001112

8726

158

BB
" KBNS

SERRTB
SERTTL

B8689%

e e s e () =

gERRSE 80111£

15098

(D) L 0 e e bt () 0t Bt B

08&{65

ooy
Lw 0 -L£0unnn@ou £ oo
0 DO
N~ (WD O+ O £ +——(WWUN D DO
N
—OOL£LO000NW—DONW

001103

s () (D0 b= 0t e L ()8

SEESQX

@0 UMD L (o) 4= 4= b= bs 0= (D) = 0 == (D) CID) 4= $= e e pmo () st Bt P Bt Bt

SERFLG

SEQ 0210

5540

Y0¥

38a%s

BBRB.

BHsd

3872

3895

3943

3998

4043

4077

4149

4226

4323

3978s

3980

4029

4031

4os2as

4054

4129

1594w

3558

8864

8899

8903%

8874x
8879
8872

8877

8598

3861

38828

Se2#
431
5S7%x

8591+
8419

86048
BYuY
s
8566

7658

8880*

BB4Z"

8846

6158
6238
6268
6294
49ls
858#
7678
60l
c02s
5954

B234#

BEdE*

8704

258

1495

You

8892

8896%

3884

39338

3935

8569

8580

8606

6168

eeYs
6278

131

4198s
8561 %

4200

4302

4304

CZR6QBO RKE DR CPT PRGG MACY1! 30(1046)

CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

044742

882S

8843

88518

SPASTM
SPWRCT

001006
044536

1493
8780%

8781 %

87904

SQUES

001324

3638

SRAND
SROCHR

SRODEC=

001336

042252
044276
»au%xx

15984

15868

6539
8742
8995

3558#%

8210
8934

SROLIN=
SRDOCT=
$RDSZ =
SREGAD

muxxxx U
muxxx» U
000000
001160

899S
8995
87638
153648

$SREGIO

001202

égggu

gZ%gi

SREGL]

0O0l204

15478

S750#%

SREGI3

001210

1549n

5753*

155148

S759%

SREG12

SREGIY

SREGLIS

SREGI6

001206

O00lele

001214
001216

1548%
15S0#
15528

Q47?7
9469
qQy?7?
9477
Q477

SREG2Y
SREG2S

001232
001234

1558#
1559%

qQy?7?7
qQy??

001170

1641 %

9469

001244
00l246
001250
001252
001254

15638
1564#
1565
156648
156748

SREGE6
SREG2?

SREG3

SREG30

S ctG31
SREG32
SREG33
SREG3Y
SREG3S

001236
001240
001242

15574%

15604%
156148

15628

SREG36

001256

1568#

SREGS

Q01174

SREGE

001176

1543#
6572

SREG?

001200

SRESRE
SRCA
=

(045262
¥xxxxx U

S2CORE Ouacae
$SETUP= 000037

]

3718

3730

3776

4794

4823

5052

Sled

S408

S490

8314

8726

gz&zi

5718

S749%

5752

6301 %

5902

$903

5936»

5939

6770%

[}

5937%

6771%

6801 %

g473

481

5755*

G7S7#%

5758#%

S94o*

5944 %

594S#

473

9481

SQ4E*

SQY47%

S745%
7092

6552

5I34x

63935

7048%

7061

7063%

§754#

15534
15408
15544
15558
15564

001230

Y450

5752*

001220
001166
00le222
00lee4
001226

S760*
9481

6416

6555#%

94?72

5283
7044 %

S731#
7066%

5739
70784#%

708¢E *

7087 %

5309

154Ss
7060%

5291
7092

953"

Baa3

3506«

G756%

6840#*

6802%

6833%

6835

S939x

5941

S943x

SS40#

9476

9481

94?73

9481

9476

9481

6576

S306

89448
8997

6772%

9477

15448

7065

SEQ 0211

HYy34x

S938*%

SRECL17
SREGE
SREGeD
SREG2]l
SREGe2

SREGE3

4Y433%

Y43%

q4y?7?7

EOL

PAGE 213

CROSS REFERENCE TARBLE -- USER SYMBO.S

SOVER

$PASS

11:48

7085%

8996

3528

5318#%
709S

5926
9473

5Q3¢e*
9480

6364

6365#*

7091

7093

S9¢e8

7094

6933
3473

7045

7046+

7047 %

5732%

S741

5746#%

573#%
7094«

S743
7096#%

G747%
94?73

S320*
9480

5330

5934+

3529

3531

3833

353§

3537

3538

7088#

S919%

3540

9480

7051

7054+

7058+

Y432

8689

8714

gral

FO1

SEQ C2le2

CZREQBO RKE DR CPT PROG MACY11 30(1046)
02-DEC-77
11:48
PRGE 214
CZR6GB.P11L
02-DEC-77 10:46
CROSS REFERENCE TRBLE -- USER SYMBO.S

127?277

$SSTUP

$SUPRS
(0M3370
SSVLAD
Q44706
$SVPC = 000230
S$SWR
= 163000

35068

4364
8833
14678
13178
3541

4391
8839
1472
13198
3872

S4y?
8845

5474

8S17%

1324
389S

132S
3943

1326
3998

1327
4043

1328
407?

88l8

8819

8820

g8ed

8836

8838

4449
SSWREG
001352
SSWRMK= 000000

16068
8820

$TMPO

15708

STESTN
$TKB
$TKS

001334
001146
0011494

STMP1

001264

001eee

$TMPIO
STMPI1

001302
001304

$TMPl2

001306

$TMP13

001310

STRAP2
STRP

STRPAD
$TSTM

Yeebx

8846%

4368#*

4395

4580%

458S*

4291

4294

4333

4337

Ho14»

S210»

S216

4O438

40se

8726

8816

4043x
8752
8750

YO77%

6230%

6238

4590#*
1580
4375%

4599
42695
4S83#

4611 #
4270
4533

Yyblox
4271
Y616#%

4283+
Ybbo®
Y4o73%
H4663%

4285*
4667
4274
Y4676%

4289
Y674#
4289
5209%

3872%
4198

3882
Yeees

3895
4302

3933
43234

3943

39/8

3998#

4029

15818

Y-8 I
H4eb3x

65243
4265#*

YL]
4269

6225*

6253

15748

b227#%

6255

(043304
001182
001157

13068
4077
8465
1831»
15358

1317
4129
8466
8303
252

045320

3533

89648

8979%

89881

8989

89904

8991

89924

8994

893S

89968

8397

8998+

3569#%
8846

3618%
88S1

3719%
8854

3784%

4010%

Y407»

H432#%

5807

BHOY

8691

8979
8296
8312

8987
8301#

= p0o012

001150

(045342

= 000012
(045354
001004

001102
¥%%%%%
043656
D42354
042566
Q42634
(043454
(043470
(OM2430
001342
(001010
001354
001400
001402
0O4461E

157S»
15768
1577

15304

89754%

8969
14928

1508#
884Sx

8992
8619
8252
8282
8307
8560#
8559
8555y
16004
1494y
160748
1632
1633
8827

6226%

301

986

8986#

8991
888S
8289
8309
8988
85628
8989

35895

4367

4S81x

4586

S208%

157228

001274
001276
001300

STYPBN=
$TYPDS
STYPE
STYPEC
STYPEX
STYPOC
STYPON
STYPOS
SUNIT
SUNITM
SUSWR
SVECT!
SVECTEe
SXTSTR

4149

3998*
8746
8744

4366

001272

STSTHM

8714
8851

b229*

15788
15798

15738

STRAP

8699
884S

15718

001270

S$TPS

8632
8840

43Si#

001266

STNPAR
$7PB
STPFLG

8839

8662

3943%
8729
8729

STMP3

STN

8684

8681

3895*
Y7774
Y779%

1582
15838

S TMPS
STMPE
31 #P7

8683

3540

4427

3872%
4735
4746

Q001312
001314

STHPY

3561

8680

1585

1330

4226

1597
1529
15288

STMPIY4
STMP1S

$TMP2

4450

1329

4149

4591

44943

8817

6254

3859
41498

g486"
8314
8314

8314

8990

8302

CZR6QBO RKE& DR CPT PROG MACY1l
02-DEC-77 10:46
CZR6GB.PIL

043653
EERERE

055163

EREREE

0010CD
000226
000224

Y443

2867

DWW O

ERERER

000000

30(1046)

7171

02-DEC-77

11:48

GOl

SEG 0213

PRGE 215

CROSS REFERENCE TRBLE -- USER SYMBO.S
7406

7597

8570

8605

14554
29538
30858
31478
3ce?s
8729

%
1457
2954s
3086%
31528
32304
8769

7608

7646

7960

8001

8013

8067

8089

1467
29594
3087#
31558

14684

1470#
2982
3089
3163
3540
8854

1472#
29838
3080
3166

14738
2985
30918
3169

1479
29908
3092
31748
8314

14804
3080%
30938
3177
8386

3233
8777

3541
8906

4450
9748#

CZR6QBC RKeE DR CPT PROG MACH11
02-DeC-77 10:486
CZR6GB.P11
CKEX]IT

COMMEN
ENBS M
R

ESCAPE
GETPR]

GETSUWR

MSG

MULT
NEWTST

NEXTARD
NXTARD
PARMBK
PARMDF
POP
PUSH
P.DRVR
REGDEF
REPORT
R.DR1V
R.GDRV
SCOPE

SETPR]
SETTRA
SETUP

SKIP
SLASH
SPACE
STARS

2167
14438
14438
13374
651
666

BaEL
asy

14438
1443

1443

3389.
4200
14438
14438

2163
2159

SEQ 0214

CROSS REFERENCE TRBLE -- MACRO NARMES

5948
6639
6702
6792

3565

4029

4031

3859

4198

4302

£628

4OSes

8329

4322

14438
8979y
1443
14438
14438
14943
1295
38¢€3

7076
7840

8979
1443
14438
1443
14438
14438
14438
1443

HO1

PAGE 217

4957
6523
6677
674
686

S010
c419
5788
6119
6356

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

11:48

5935
6634
6698
6782

3837
B6S15S
6669

1
1w
1443.
14438
ls
1n
14438
is
18
1338

8676
1292
1
21554

02-DEC-77

6310

4425
Y767

SWRSU
S.DRVE
TEST

30(1046)

3542

3882

4431

6366
6648
6710
6807

6496
6654
6714
6824

4054

41298

4131

4198s

101

CZR6GBO RK&E DR CPT PROG MACY!]l 30(1046)
02-DEC-77
11:48
PAGE 218
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TABLE -~ MACRO NAMES

0CTeN

SSCMRE

14998

lggg

gggggg

{493!

14438

eiua
1538
lggg

1539
iggg

1540
15585

1541
1556

1842
15857

1543
1558

1544
1559

1545
1560

1546

3882
8389

3933
8930

3978
8991

4029
8334

40S2
8995

4129
8996

4198
8997

4302

iS?O

SSNEWT
SSSET

14438
89798

3859
8988

EQUAT

12928

1333

SETUP
SWRHI
SWRLO

12928
12928
1292#

3506
1320
13318

RBS.

055183

000

HERDE

1292

ERRORS DETECTED:

SEQ 0215

1571

1872

1573

1574

1575

1576

1577

1561

1578

1307

RMO3: CZREQGB, RMO3: C2R6QB. SEQ/SOL
/CRF /NL : TOC/DOC=RM03:DRIV10.P11/EQ: GNEWSW,RMO3: CZREGB. P11

RUN-TIME: 36 28 2 SECONDS
RUN-TIME RATIO:
CORE USED:
47K

DOCUMENT

PAGES:

6172/67=9.1
(93 PAGES)

@215

1547
1562

1579

1548
1563

1580

1549
1564

1881

1550

1565

1582

1581
1566

1583