Digital PDFs

AC-B161B-MC

March 1978

217 pages

Original

110MB

view download

OCR Version

152MB

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

OCR Text

RK611/RK06

isass”

o ns RO
FICHE1 OF2

MADE IN USA

RK611/RKOB

SrsassTM TMTM i,. il
FICHE20F2

MADEIN USA

EOFICZ

ot
o
L
e £ WU~
et
LWe OWDM
0N
L W= DWW e
IO U1
O

10U £ (WM

PDP
CZR6QB.P11

00010000

780223

POPI0 411

CZREQBO RKE DR CPT PROG

MRCY11 30010496

02-DEC-77 10:46

HOR1CZR6UBSE

02-DEC-77

11:48

gooli0coe

PRAGE 2

.REM
3

IDENTIFICATION

PRODUCT CODE:

AC-B161B-MC

PRODUCT NAME:

CZR6QBO RKE DR CPT PROG

DATE:

FEB 1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

DAVE HOFFMAN

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
AND SHOULD NOT
CONSTRUED RS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORRTION.
DIGI
EQU IPMENT CORPORQTIOGHES$UHES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPERR IN THIS DOC

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER

AND_

MAY

LICENSE

ONLY

LICENSE

BE USEC OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH

GITR% %?UIP NT_CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIRB
DIGITA

ITS

SOFTWARE

1977,

EQUIPMENT

THAT

IS NOT SUPPLIED BY

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

02-DEC-77

11:48

PAGE 3

TABLE OF CONTENTS

HARDWARE REQUIREMENTS

GENERRL Paggggn CONSIDERATIONS
OWU"-‘U'\»—

PRELIMINARY PROGRAM REQUIREMENTS
8&-‘8&8‘

INTRODUCTION

»NV
W
£

REB 8B SRR 2SN E BB SRR BN 8 5a o't N ODE UG E o B0 I8 h £ Lor

[

SEQ 0002

4.9

§;BP

ACT

APT

DUAL -ACCES
MEMORY MANAGEMENT
MORY PRR%TY OPTION
SECTOR
EXECUTION TIME

PROGRAM LORD MEDIA
PROGRAM OPT
I?NS

6.1
6.2

STARTING ADDRESSES
SWITCH REGISTER OPTIONS USED

RUNNING THE PROGRAM

OPERRTIONRL DIRL

8¥
RL

%gESS
RESS

Hills
.5

00 STAR
204 STAR

S 220 STAR

-«44

CZRBQBO RKE DR CPT PROG MACY11 30(1046)
CZREQB.P11
02-DEC-77 10:46

COl

PRAS

9.0

DESCRIPTION OF
T

10.0

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

11.0

ERROR REPORTING
COMMON E
11.1
HANDL ING
ERROR
11.2
11.3 ERROR PRINTOUT EXAMPLE

35 BRRCAIETISN o hass 4 YESTS

TRBLE A -

BASIC READ/WRITE TEST SECTORS

TABLE B -

WORSE CASE DATA PATTERN

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

103
104

02-DEC-77

11:48

PAGE 4

DOl

iOS

TABLE C - CYLINDER BLOCK RSSIGNMENT FOR AR GIVEN SURFACE

i?g

TABLE E - OVERWRITE CYLINDERS

i§2

TABLE D - BRARSIC CYLINDER BLOCK LAYOUT EXAMPLE

i;é

TABLE F - SELF-TEST CYLINDERS

114

TABLE G -

PSEUDO-RANDOM DATA PATTERN

SEG 0003

CZREQABO_RKE DR _CPT PROG MACY1l 30(1046)

CZREGB.P11

02-DEC-77

10:46

O02-DEC-77

11:48

PAGE S

EOL

SEQ 0004

i Y

oo NN

EELELEELELE

Pt Bt Bt Bt Bt Bt s ot et et Bt Pt et Bt B ot Bt Bt s et Pt s Pt Pt s s Pt s o

s Pt et Pt Pt ot et Pt Pt

1
1
1

INTRODUCTION

PURPOSE OF THIS PROGRRH IS T0 VERIFY TI-E COMPATIBILITY OF UP TO 16
06 OR_RKO?7 Ygfl '\:ES
WHICH MAY %% ONE OR MORE RKB611/RK06-07 SUBSYSTEMS
(INCLLDING
)
TE
WITH MULTIPLE
SYSTEMS). _ COMPATIBILITY
IS
HE ABILITY OF A DRIVE TO HRITE DATA WHICH CAN BE READ
SUCCES%I.LLY
L OTHER DRIVES,
AND ADDI TIONALLY THE
i
AB ILITY

COIPLETELY OVER-WRITE Dh'l’fl WRITTEN BY ALL OTHER DRIVES.

NOTE:

RKO6 AND RKO7 DRIVES CANNOT BE MIXED FOR COMPATIBILITY TESTING.

THE PROGRAM éé ?ESIGNE?

COMMONLY C
1.

TECT _THE FOLLOWING CONDITIONS WHICH

NCOMPATIBILITY BETWEEN DRIVES:

MOST

HERD MIS-ALIGNMENT
POSITIONER LATERAL MISALIGNMENT

120
121
1e2
123

1.0

SPINDLE-CARTRIDGE INTERFACE RUNOUT

117
i g

IMPROPER LEVELS OF WRITE CURRENT

m&wmuoomvom:ugpoamme;wmf8$g%ggggguwmmmmmmmmmmp~pup
- OwvoNor

118
116

INCORRECT RDDRESSING OF READ/WRITE HERDS

THE rssrxuc 1S oou;é" TWO

PRTTERNS

PASSES.

TTE CABRBILITY OF

x?u i«cnsEExNS"’“n6°8kE’*D“T“ F
n¥
H

e
ABILITY_TO

COMPATIBILITY

DATA

II
DR

IN BOTH PASSES, THE

UNLOADING

PASS 1,

ALL THE onxv:

URIVE

DRIVE THROUGH ME

DIRECT Tlfi OPERRTOR
CONSOLE T

W TI'E

TEST%TIBILITYT ST %}& T:STSSS% .
WITHIN THE vanxous TESTS OF BOTH PASSES,

N__THE

TRIDGE FROM ORI

AT THE COPPLErT‘%ON

TS0,

THE CAPABILITY IS PROVIDED TO

LOOP ON c
T OPERATIONS, AND SWITCH REGISTER OPTIONS ARE PROVIDED
gggTIgN
vF a§£ 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 BAD TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS.

QV*WIUM*-O\DO NONEWN—-0ODONO"NLWN~-0OW

- Bt e Dt Bt Bt Bt Bt s Bt Bt Bt Bt Bt Bt e Bt Bt Bt s Bt B Bt e Bt Pt Pt Bt Pt s Bt e
OWwoD
D0 WD D, 00 D DD 0D 00D 0D 0 0D N N N N NN NN oo
ow
o~

CZRE@BO RKE DR _CPT PROG HSCY&I 30(1046)
CZR6GB.P11
O2-DEC-77

e0l

02-DEC-77

2.0

11:48

PRAGE b

FOL

SEQ 000S

HARDWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RKOB-O? DRIVE COMPATIBILITY
PROGRAM, FOR EACH SUBSYSTEM WHICH MAY BE PRESENT

PDP-II/OH? (0S,10 MFG. ONLY), 20,30,34,35,40,45,50,70, OR PDQ

1 ?6ggObhRKO7 DISK DRIVES PER CONTROLLER

IN RODITIONh SINGLE RKO6 DISK CARTRIDGE IS REQUIRED WHICH MAY BE
FORMATTED I ;ITHER 20 OR 22 SECTOR FORMAT, ON A RELIABLE WELL-ALIGNED

RKO6 DRIVE.

THIS CARTRIDGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON

TO 16 DRIVES) ON ERCH OF TWO PRSSES.

3.0

PRELIMINARY PROGRAM REQUIREMENTS

BEFORE RUNNING THE RKO6 DRIVE COMPATIBILITY PROGRAM,

SUBSYSTEH(S)

THE

UNDER TEST SHOULD BE_ CAPABLE OF PASSING THE CONYROLLER DIAGNOSTICS
CZREA-CZRBE AND CZREK, THE DRIVE DIRGNOSTICS CZ BH-CZRBJ
AND THE
SUBSYSTEM _ VERIFICATION ~ PROGRAMS CZR&M-CZRE!
IN
_ADDETION THE
CARTRIDGE MUST BE FORMATTED IN 20 OR 22 SECTOR FORHfl SING THE' PACK

FORMATTER
DRIVE).

CZReL,

EQUIVALENT

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

;géEREEOGRRH USES PORTIONS

4.2

(PERFORMED

THE

SYSMAC

KNOWN GOOD, ALIGNED

DIAGNOSTIC

SYSTEM

MACRO

MODE

XXDP

THIS PROGRAM MAY BE LOADED UNDER XXDP,

MANUAL INTERVENTION
ONL
DUE
TO
M
PROGRRM IS NOT XXDP CHAINARBLE.

AND MAY BE

RUN

DUMP

AND LACK OF END-OF-PASS HOOKS, THE

CZREQ@BC _RK& DR_CPT PROG MACY11l 30(1046)
02-DEC-77 10:46
CZR6GB.P11

02-DEC-77

4.3

11:48

GO1

SEQ 000&e

RACT

THI?
PRO RAM MAY BE
S NOT CHRINARBLE

4.4

PRAGE 7

LOA EDggNDER ACT AND MAY BE RUN IN DUMP MODE ONLY.
UND

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

DUAL-RCCESS

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

WAY,

AND

ag% IRR&;ES UNDER TEST SHOULD BE DE-SELECTED THROUGH THE PORT WHicH IS
4.6

MEMORY MANAGEMENT

MEMORY MANAGEMENT_ IS NOT UTILIZED IN
INSTALLED, IT IS DISABLED BY THE PROGRAM.
4.7

PROGRAM.

IfF

MEMORY PARITY OPTION

g;ogsggTY MEMORY IS INSTALLED,

4.8

THIS

MEMORY PARITY 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.
RCCORDING TOA SWITCH
REGISTER OPTI?N (E;E ?EC I?N 6.2)
_THIS LI%T E TYPED AT THE
HE_STAR
E FIRST PASS.
ALL DR RRORS OCCURING IN
THE PROGRAM ARE IGNORED IF THEY OCCUR IN SECTORS DESIGNATED AS BRD.
4.9

EXECUTION TIME

THE TOTAL TIME §QUIRED
TO RUN_

DIRECTLY

PROPORTIONAL

THE

DRIVE

NUMBER

REQUIRES ABOUT 8-10 MINUTES PER DRIVE.

COMPATIBILITY

DRIVES

PROGRAM

BE TESTED AND

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

02-DEC-77

S.0

11:48

PAGE 8

SEQ 0007

PROGRAM LOARD MEDIRA

THIS PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE

ABSOLUTE

LOADER

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

6.0

PROGRAM OPTIONS

b.1

STARTING RADDRESSES

200 - m'lfi &2 TlélF STRRTIN? Wfigs

%sflfg}’ERS

Rug

* oniaflo
'”&L
nfiro%?igmfiv:&E;sm"*‘m&’&fi
o‘rfigv S ro TES

BRIVES TEOBED:
o8 URSOERED- o Mo ML AL“§uh*ysrsn
= 7 RETy Akoe"SueSYSTERS. WATCH RESIDE o TwiS Pe-1 1}“3;5;7
\l;CTORsP’zbZ?Y(
%
F8=E%#Y?&fi ON
TH?g
SY T;H
GNED
OTHER

SUBSYSTEMS, RND THE DRIVE(S) WHICH HILL TESTED ON

sl su&% 7%2?},‘,2“ W325132 ozu'r‘uxgfligp-u sreh-

INTERRUPT

320

AND THE DRIVE(S) HHICH WILL BE TESTED ON

6.2

SWITCH REGISTER OPTIONS USED

THIS PROGRAM IS DESIGNED TO ALLOW

THE

USE

THE

HARDWARE

SWITCH

R%gISQED“RAF PES
: NO?RPRHEESYS"RS ?gPPORT;g EOFTNQRESSHITCH REGI?TER
_q

WWwWwwWwwwwwww
P b b b b b s b b b ()
DO NN LW~

xsasfls RTN TASaeeGlhausten v, Efs8T 0

“séEgETTHE
FOLLONING OPTIONS RRE IMPLEMENTED WHEN THE APPROPRIATE BITS
BIT

OPTION

15
14

HALT ON ERROR
LOOP ON CURRENT TEST

02-DEC-77

WL
RESREE

CZREGBO _RKE DR_CPT PROG
NSCYél 30(1046)
CZREGB.P11
0z2-DEC-7

PRGE 9

101

SEQ 0008

13
12

INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS

o8
07

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

11
10
09

UNUSED
BELL ON ERROR
LOOP ON ERROR

0e-00

7.0

11:48

UNUSED

RUNNING THE PROGRAM

ONCE THE PROGRAM HAS BEEN LOADED INTO CORE

THERE

ARE

THE PROGRAM:

1.
2.

8.0

(IN

GIVEN

SYSTEM,

MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN

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

PORT SELECTED.

LOAD THE DESIRED START ADDRESS.

SET ANY DESIRED BITS IN

PRESENT).

THE

HARDWARE

SWITCH

(IF

START THE PROGRAM.

PROGRAM
PERTAINING
TO
FOLLOW ALL INSTRUCTI 0 NS TYPED BY THE
REQUIRED, AND THE ALTERNATE USE OF
THE
__MANUAL
_INTERVE N TION
MULTIPLE SYSTEMS (IF THERE ARE ANY).

OPERATIONAL DIALOGUE

THIS SECTION
D§§CR¥EES THE
CONSOLE TERMINAL DIALOGUE THROUGH WHICH THE

THE SELECTIOEEETOPO}ONSHSNOTE
E

IN THE FOLLOHING DISCUSSION AND

THE

MOV

RRTR
CH IS6.1).
USED DEPENDS UPON THE STRRTING
WHICHTHEHflgCHOSEN(SE SECIION
SgGE
PRINTOUT

TEST

RESULTS

DRIVES TO BE TESTED WILL BE RE ERRED TO BYA LETTER AND A NUMBER. THE
TER _NAME
(OPERATOR
ASSIGNED),
AND
THE
UMBER _IS THE DRIVE NUMBER ON THAT SUBSYSTEH FOR EXAMPLE, DRIVE C6
REFERS TO DRIVE & ON SUBSYSTEM C.

CZREQGBO RK& DR _CPT PRCG MACY1l 30(1046)
CZRBGB.P11
02-DEC-77 10:46

02-DEC-77

8.1

11:48

PRGE

JO1

SEQ 0009

DIALOGUE FOR ADDRESS 200 START

THIS STARTING ADDPESS nnv BE

SIZING

AND

ALL

THE PROGRAM NOW PROCEEDS WITH PRSS
1, AND oxnecrs THE OPERATOR IN

THE

DEFAULTING

ONLY.

PARAMETERS,

USED

FOR

WHEN

RAUTOMATIC

THE

onxvs

DRIVES RESIDE
ON ONE SUBSYSTEM

THE PROGRAM FIRST IDENTIFIES ITSELF RS FOLLOWS:

CZR6GB0O - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM
THE DRIVES ou

THE

SYSTEM

ARE

AUTOMATICALLY

SIZED,

Efruc DRIVES WILL BE MARKED FOR TESTING. THE PROGRAM TYPES THE
DRIVE LIST,

AS IN THE FOLLOWING EXAMPLE:

DRIVE TYPE

B&¢<CR> FOR RKOB,

7<CR> FOR RKOD7:

THE OPERATOR MUST TYPE EITHER A B<CR>

OR A 7<CR>

DRIVES = 2,5,7

MOUNTING OF THE PACK, RS DESCRIBED xh SECTION 8.4

Zhgfl§E ?OTE THAT THERE IS ONLY_ONE SUBSYSTEM ON AN

S_NAMED SUBSYSTEM A.

ADR.

LfLfrfrrLrrL
L
U == s bt Bt Bt Pt Pt st P
OWwONNCN LW

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

8.2

200

START

THE DRIVES IN THE ABOVE EXAMPLE WOULD BE
AT

THE

END

DIALOGUE FOR ADDRESS 204 START

ruxs STARTING ADDRESS MUST BE useo on EACH SYSTEM

uuen THERE IS

THAN
ONE SUBSYSTEM,
BUT IT MAY ALSO BE USED WHEN THERE IS JUST ONE
ngfingEFoénggg)l T0 SPECIFY onxvss TO TEST AND NON-DEFAULT PARAMETER
THE PROGRAM IDENTIFIES ITSELF RS FOLLOWS:

CZR6GBO - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM

42l

THEN,

THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES

EACH’ OF

THE

POSSIBLE

FROM SUBSYS A TO SUBSYS P.
DRIVE ON ERCH ) :
DRIVE TYPE

B&<¢CR>

TESTED

THERE COULD BE UP TO 16 SUBSYSTEMS,

FOR RKO&,

THE OPERATOR MUST TYPE IN B6¢<CR>
SUBSYS A DRIVE(S)

SUBSYSTEMS (STARTING WITH A - THE NAMES RQNGE

WITH
A

7<CR> FOR RKO7:

OR 7<CR>

E;gflgtg?flTOR THEN TYPES THE DESIRED DRIVE NUMBERS,

RS IN THE FOLLOWING

CZReQ@BO RKE DR _CPT PROG MACY1l 30(1046)

CZREGB.P11

02-DEC-77 10:46

02-DEC-77

:gg
:33

PAGE 11

SEQ 0010

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

:zé
443

11:48

KOl

BY TYPING :

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

THE PROGRAM ASKS THE FOLLOWING QUESTION:

CZREQBO RK6 DR _CPT_PROG chxél 30(1046)
02-DEC-77
CZR6GB.P11

02-DEC-77

LO1

11:48

SEQ 0011

PRAGE 12

Huy

445

446

IS THERE ANOTHER SUBSYS (Y OR N <CR>)?

w47

THE OPERATOR TYPES Y( R) OR

PROGRRH

RSSUHEE

N<CR)

(IF

N<CR> WAS
T PED

JUST

<CR>

_TYPED

IF _THE OPERATOR TYPED N

THE

OGRAM_PROCEED HITH PASS1, ANDD RECTS THE OPERATOR IN THE HOUfiTING

SsstFOER?HE
fiaflBE§ER3P59né"o§§E§°¥o Bs nggso 3fisT§EPEEkTT"§u5g#@fl
(SUBSYS B) AS FOLLOWS
SUBSYS B DRIVE(S) =

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

THE PROGRAM THEN VERIFIES THE DRIVE NOS.

BY TYPING :

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

THE PROGRAM WILL ASK :

IS THERE ANOTHER SUBSYS (Y OR N <(CR>)?

R RS

S B

G PEE AL SECAER LB PRI

NEXT,

THE PROGRAM ASKS FOR THE LETTER NAME ASSIGNED TO

TO BE TESTED NEXT :

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

O R OF
THE

SUBSYSTEM

THE OPERATOR RESPONDS, RS IN THE FOLLOWING EXAMPLE :
TYPE NAME OF NEXT SUBSYS TO TEST (R-P)

RLL
%YSTSHS
T BE
TF%ED sg%fl
;N T%
IN WHICH
TP?RR*S;ngSnLQR

Pean$95”
Y T3
“fivSE“
N
n
u
ALUE
EEflSRNDC;HE
r .rus T LORDED,
£8> GIVE
fnggh
?THE ¢0LL
%rPgQ' IP%T
*
WHEN
PROGRAM
uz nnz nssxcneo THE
_RKB11
BUS
RRUPT
PgIORITY FOR THIS

nooness 1774940

vscron

thngénc ExnnPLe SHOWS A anntour
RKB11 BUS RDR

RK611 VEC RD
RKb11 PRIORITY

177440
210
)

NEW
NEW
MNEW

AND

PRIORITY = 5.

THE

uhxcu ONLY THE VECTOR MAS
240

THEN THE PROGRAM Pnocesos urrn PRSS
1, AND DIRECTS THE_OPERATOR IN_THE

AT THE COMPLETION
MOUNTING OF THE PACK, AS DESCRIBED IN SECT ION 8.4.
OF PASS | ON THE SUBSYSTEM, THE PROGRAM WILL INFORM THE OPERATOR HOW

CZREQBO RKE DR _CPT PROG HflCYél 30(1046)
02-DEC-77 10:4
CZR6GB.P11

02-DEC-77

11:48

MO1

SEQ 0012

PRGE 13

S00

——0)
{xfl)mmmmo-h-o-o—o—b—b-oSUNHOGQ\IG‘MIUNU-(D-Dg%

S0l
S02
§03
04
0S

TO PERFORM PASS 1 ON THE NEXT SUBSYSTEM.

8.3

DIALOGUE FOR ADDRESS 220 START

Tnsa STARTING RDERESS
H¥STI?E ggED
2ngRCH
S:EEEEQEN
THERS 5357"85%
N

SUBSYS+EH iO?RL)

F&Rgfiugifl

VQLUES.

FOR

TO_ SPECIFY
PASS

IVES

THE

PROGRAM IxNTAFIES ITSELF flS

CZR6GBO - RKO6-RKO7 DRIVE COMPATIBILITY PROGRAM

'“Sa?‘“égggi

Boy

et
Mg e

HE SPECIFICATION

pnoé222 "?fu nggsgfnFTEEc;gx§nggbggu§ossc ‘fi%eenéfl$
RS DESCRIBED IN SECTION
8

N
THAT
xars PROCES
Syt
aasszssTHETS
A

TEST MAY

DISTANT

ORMED

Locn xous

srsps

MOVING

AT VARIO

AT
THE
R

STAR

ous

THE TEST PRCK nuo snvxnc rns PRINTOUT

FROM EACH PASS ON
tncn PDP-11 SYSTEM INVOLVED.
8.4

PASS 1 DIALOGUE

AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON_THE
CURRENT SUBSYSTEM (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START
OF PRSS 1 RS FOLLOWS:

#% STARTING PASS

NEXT,

THE PR cnnn

suas?§HEn

HEADS on

THE

rsn§

RIVE

TESTED

THIS

THE OPERATOR TO MOUNT THE TES cnnrnrocz AND
IVE, AS IN THE FOLLOWING EXAMPL

MOUNT PACK ON DRIVE A2 AND LORD.
TYPE R<CR> WHEN DRIVE RERDY:

THE opsnnron PERFORHS THIS TASK AND TYPES R<CR> WHEN THE
DRIVE
REARDY
LIGHT
o
THE PROGRAM PERFORMS PASS 1 FUNCTIONS ON THIS DRIVE (SEE
ggcrxou 1) AND THEN INSTRUCTS THE OPERATOR TO UNLOARD THE DRIVE AND

MOVE THE PACK RS

FOLLOWS:

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

WHEN DONE:

99 Tg?zél 3001046)
CZRBGBO RKE DR CPT PR

EoReag e e DR S it

02-DEC-77

NO1

11:48

PAGE 14

SEQ 0013

THE OPERRTOR PERFORMS THESE FUNCTIONS AND TYPES R(CR> AFTER
HAS BEEN REMOVED.

IN THE SANE MANNER,

THE

PACK

SUBSYSTEM.

THREE

PACK

THE PROCRAM INSTRUCTS THE OPERATOR IN THE WOVEMENT

THROUGHOUT

THE

REST

THE

THERE

ONLY

ONE SUBSYSTEM (FROM ADR 200

WHEN THIS HAS BEEN COMPLETED,

nxncs:

THE

(1)

THE

DRIVES

PROGRAM

THE CURRENT

DOES

ONE

PR
U s suBSys
TER o EE
oSFOLLOWS
R OGRAR (AND
DIRECTS
THE: opznnrgn 15 PERFORE
PASS
1 OTHER
ouTussfig
THEN HALTS)
START AT ADR 204 FOR PASS 1 ON SUBSYS B

W
OO0

0V~

F THERE ARE NO MORE DRIVES TO TEST_IN PASS 1 ON ANY

SECT.

AM_

SUBSYS,

THE

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

B8.5) AS FOLLOWS (AND THEN HALTS)

oo
el
TM |
- 0Ouw

8.5

PRASS 2 DIALOGUE

#% STARTING PRSS 2 ##

THE PROGRAM THEN DIRECTS THE OPERA

AND

OF ALLonxves ON THE

RS oescaxaco FOR PASS 1
HOWEVER,

(SEE SECTION 8.4

AFTER PASS f ; TING (

cxveuOg}v§

HIS

IN THE UNLORDING, PACK MOVEMENT

FIRST SUBSYSTEM, IN THE SAME MANNER

usn
NT

TEST

9.2)

COHPLETED

RESULTS FOR THAT DRIVE ARE TYPED.

THE

nag DESCRIBED IN SECTION 10, RFTER THE

osrast OF THE TESTING nns DESCRIBED.
uueu PRSS 2

EN C

TED

FOR RLL

YHE pmnmm”%&§ oRe BF CTWo

IVES ON THE

THIRGE: oo o)

SUBSYSTEM (FROM ADR 200 START) on xr RLL DRIVES ON
BEEN
TESTED
IN PASS 2
(FROM ADR 220 START), TH

REPORTING HAVE BEEN COHPLETED AND THE PROGRAM'TYP
#% END OF TESTING #x

SUBSYSTEM
IRST
RE I
ONLY ONE
UBSYSTEMS HRVE
v

nunniniNNIIIYY DO
U‘Sfl‘
89 G006 BBIRRLOVEIBIR
BRREEnE

START AT ADR 220 FOR PASS 2 ON SUBSYS A

TIRE TESTING AND

D02-DEC-77

11:48

PAGE

BO2

SEQ 0014

DO I

Bt Ba Pt Pt Pt P

oooooooo

RKE DR CPT
k'sm’gSCI
g
C
e
l 30(1046)

(2)

IF THERE

IS ANOTHER SUBSYSTEM,

HOWEVER,

THE

PROGRAM

DIRECTS

THE

OPERQ)OR O PERFORM PRSS2 ON THE NEXT SUBSYSTEM AS FOLLOWS (AND THEN
START AT ADR 220 FOR PASS 2 ON SUBSYS B

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

02-DEC-77

9.0

11:48

coe

PRGE 16

SEQ 001S

DESCRIPTION OF TESTS

NOHBERS Func;xoml.
E"gsi
IDENTIFICATION
IN ERR
““S*?‘Dr
5
BEPEEQSN
?R
355%
r«sfi'r
Bf
&
uf
;&mr:s
oe
nx
§?ons
8.1-8.
OTHER
r;g;s nu%
acLou m THE
osscnx TION or PRSS 1

nuc

m THE FOLLOWING SECTIONS, TABLES A-G ARE REFERRED T0.
IN THESE
TABLES, DRIVE S ARE NAMED FROM 0-17 FOR ILLUSTRATIVE PURPOSES, ALTHOUGH

THE DRIVES ARE NAMED THE
o,Al,

9.1

FOLLOWING

Re,...B0,B1,B2,...C0,C1,C2,...

WAY

ETC.

ACTUAL

SITUATION

(SEE SECTION 8.0).

DESCRIPTION OF PASS 1 TESTS

PRSS

BASIC

READ/WRITE

CAPABILITY

EARCH

DRIVE

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

osnousmmsb
DRIVES UPON hc
SAMEgma
TEST &%Tv
DGE.DATA PATTERNS ARE MWRITTEN BY ALL
1.

TEST 1 -

MOUNTING

TEST_

CARTRIDGE

FOR

PASS

THE

OPERATOR MOUNTS THE PACK ON THIS DRIVE AND MNJN.LY LONS THE
HEADS, RS DIRECTED BY THE PROGRAM (SEE SECTION B.4

TEST 2 n
- écmflimmgtfigfiTEST

-l

82!?3

PRTTE RT THE

Ség‘&S '%R "ERRS£

Pgss {
I
THE
A ?“I.REn
gugfl

/g IE WRIT éfi IS WITH
THE PE%;ION
OF
PATTERN CONSIST
NCY
NTS AND BIT STRINGS

REQUIRING VARI

(SEE

S W PRECOMPENSATION, WHEN ENCODED.

Be
Bl
i PRTTERN IN
suaracs
sz
TABLE G. L }cm. 1
¥
LOGICAL
DRIVE
3.;
m
ESOEHILE Efign bfiv&“&sM mgmln“*g SEEN n?f?knx?fo
g'ecsssg
ORRE HRTTIEN %fl.’&u
? xsnfiS”‘EvL?fiosE“Stocsg“‘“?‘
HE FIRST 16 CYLINDERS
O

WRITTEN

LATER

ovenunxnsn

ounx ms

OVERWRITE TEST. IN THE LAST 16 CYLINDERS OF tncu CURRENT

CZR6QGBO RK6 DR CPT PROG MACY11l 30(1046)
CZREGB.P11
02-DEC-77 10:46

02-DEC-77

PRGE 17

11:48

H8N$TE(EX
EPT 5

‘I‘INTEHR

SEQ 0016

T ;or?

i,PP

"OHPRT%BILITY ?flTRI

B Rl T

ROLOGS

AP RSAT VR ToUiS
gL“:I::EN R N a TPOA

“&p&mi&?‘ N T AmgER
O 'Bnzves BETRG TesTED) o;‘"
ON 2
secrons
.

e 13,14, 15,17,20,21 ae(ocmu

Renhfflfic s:e#mé 411116
23 ARE USED FOR DRIVE
SELF-TESTING IN PRSS '(sés 8ECTION 9.2)

o
3
B
I
P
z%w B g SO
aasxc LAYOUT OF
A TYPICAL

CYLI

INSIDE TFI BLOCK

AL
e
L eyRESERVED
DRPRwsn?mlm
&?W&;
n
afs
MI
st
sim.v um EN.
THAT

“ZS..ZZ:?
"°"‘3°°?72RESPE
Py RO AR POSITIONS
S vsm
%
WITH
8VEFEREN
cvoa WRITES

Qowcmimg

RWRIT

INSURES

WDRTR
OFPGTIBILI

ORCTRE NES§ ogi .
SaSveasrs'fi'g

TING

OCEED 'WITH

02-DEC-77

9.2

EQ2

SEQ 0017

PRGE 18

11:48

DESCRIPTION OF PRSS 2 TESTS

IN PASS 2, THE RBILITY OF

WRITTEN

DRIVES,

IS TESTED

OTHER

EACH

DRIVE_TO

DRIVES

COMPLETELY_

_OVERWRITE

DATA

AND TO READ DATA WRITTEN BY ALL OTHER

THE SEQUENCE OF OPERATIONS PERFORMED BY ERCH DRIVE IS RS FOLLOWS:
1'

E ? MOUNTING OF TEST CRRTRIDGE FOR PRSS 2
THE
RATOR MOUNTS THE PACK ON
THIS DRIVE AND MANUALLY LOROS THE
HEADS, RS DIRECTED BY THE PROGRRH (SEE SECTION B8.5).

TEST

- OVERHRITE TEST

ovemiTEN

APPROPR% CYL

mf'n

cvu

BEEN C

THE

PROGRAM

ERN m meLs

LoGIcAL

ITTEN IS nsno BACK

rou.
Nc

OFFSET VALUES:
1

, 1100 ..é

INVOLVED

m CH A

Posxo;sug

APPROPRIAT

WRITTEN WITH

LITY

nc PACK.
YLI

THE DATA

100

THIS

DRIVE

300,

MICRO-INCHES

SCANS FOR
IF NOT
ONE
DATA HAS

THAT

DORIVE

i‘gz’.
g

Era

ARE AVERAGED cTva

r WROTE
HE OT
PRINTOUT §vsa|.s WHICH DRIVES ARE

s DATA.

TEST 7 - on¥v§
SELF-TEST

DRIVE'S

DRIVE

ONE OR SEVERAL

THE

3 muTfi
"Exl
ANDDRI
A ! cofl%
T
}on
Egtu
1S
ING T

b 4

SUCCE
IVE’

T '“&

3@;:

WITH THAT

_TO

FIRST,

1 USES WORD
1, LOGICAL DRIVE 10

m 'E%‘
-).
(
w&c
.)oflm
THIS ga
occué

DEET
35
DRIVE

PROCEEDS

camen.;w.

ARE
acf‘s E rongssoHIS033 ADRIVE'
REPETITION

USES
. L
xcm.
USES uono

NEXT,

ovsaunxr

AmeeEonT

E
A

TEST

gEO
fi'“é

CZR6GBO RKE DR _CPT PROG HgCYél 30(1046)
CZREGB.P11
02-DEC-77

CANNOT

THE PROGRAM NEXT

WRITE AND READ

FIRST, ?tCT
SHOWN'

IVE

PATTERN

SHOWN

;vnwmss

ITS OWN DATA,

u,éx
TABLE'F

FOR’

OVERWRITE

6, AND

THE

AT VARIOUS

23 OF THE

THIS DRIVE ARE

TABLE B,

FOR

ALL

sunmcgs.
THEN, T
358 ORS ~ARE
AD WITH THE FOLLOWING
OFFSETS APPLIED :
I
, 300, 400
600,
700,
800,
900, 1000, 1100, 1200 MICRO-INCHES, IN EACH OFFSET DIRECTION.
THE 'PROGRAM SCANS FOR READ ERRORS DURING EACH READ,
AND IT
COMPUTES A SCORE WHICH 1S PROPORTIONAL TO THE FAILING OFFSET

CZR6GBO RK& DR CPT PROG MACY1l 30(1046)

CZREGB.P11

02-DEC-77 10:46

02-DEC-77

FO2

11:48

PAGE 19

SEQ 0018

772

253
775

GNITUDE.

776
777
778
;53
781

782

THEN, THE

SCORES FOR ALL 4 SECTORS READ

cvume
a.ocx ARE
RAGED,
710 COME UP WI
LF-TEST % ;ncu swnbe FOR EACH O'gr T
uxs SCORE
OR LATER USE, 10 BEC
T
COMPATIBILITY DATA RERDS WHICH ARE TO FOLLOW
4.

THIS

DRIVE
DIRECTION
0

10 - C
T1 mv mm READ TEST - HAVING ESTABL ISHE
nTESTsa.r? og
smvs,mmcammocseos

ity LITyOW18 B m.*asz*gsmw A

78
792

EacnE.2“%&‘“.2‘
N, 1o8E € 1S Rend
oskoi’gn
NI
gg T 12‘8fi%s:%
*’RMSFNSER
gx* 5»4 THAT o#rser

790

791

793
794

%
ED

414
799

BLOCK
BLOCKS.'EtmrT§u

803804ggg

SET
PT il-lILE

sELF rsst

e AREoF, 7
T’8
rfi %SE

INTOUT RE 5 ?Em":i
A SITUAxTHEbnDATAm
xcuuv ININRengmc

CURRENT

ggé

msronc (%

no T

WHICH
A
uué
OF ONE SEVERAL ov
5.

TEST 11 - T
TEST St
THE
OVERWRIT
4‘%iI?L?TY
THIS DRIVE ARE CONVERT

810

UNLOADS

gig

THE NEXT DRIVE.

811

"\P“E

800

807
808
809

’

THE

RSC

N av

ron encn

T PACK IN PRSS
nm
READ
TEST
3CORES FOR
THEN,
THE OPERATOR

DRIVE AND oxs oun s HE PACK AS DIRECTED BY THE

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

gZRngOPTTS DR _CPT PROG MACY1l 30(1046)

ZR6

02-DEC-77 10:46

02-DEC-77

11:48

GO2

PRGE 20

SEQ 0019

814

s
gi;

10.0

819
820

ms TEST RESULTS m: PRINTED AT THE END OF PARSS 2 ON ERCHY DRIVE
asmc
g
35uu
PERTRIN TO THE OVERWRITE
TEST AND
THE

g21

PRINTOUT OF TEST RESULTS

conm xaxuw

TA RE

822

ggg

10.1

’

ggg

HE RESULTS OF BOTHn?‘
W

829

ee gg?
832
833
834

OVERWRITE AND DRIVE COMPATIBILITY DATA TEST RESULTS

Resuus‘fis

Aog_ne commxaxugvsrs onggflpEE‘T“:J

?o gemgh'
: & Egcuogfvs,n?‘meEND OF Pnss ]

ons ron T ,E NT
xucm uarrm"n BY ; C: - OF
05gcsugF
?r: '6'&:
m&
oanh
ON THE ansx 12(DEC)(u?mA
;
SMEL&SO SEPARATELY FOR EACH
mc

ACE) . FOR EncnbrrssrDIRECTION

AN OVERALL AVERAGE FOR

ggg

ALL mnse TRACKS, ON THE CURRENT DRIVE, 1S’ PRINTED.

837

gag

%es

838

N THE rouou NG Exanp

snoun BELOH

30 55

mens ms 2 SYSTEMS, AND

S‘dé

SCORES FOR DRIVE Al

(0-12 DEC.)

843
844

TRACK
NO.

OVRWRT
SCORE

gzg
,

847

849
850
851
852
853
854
855
856

0
0
0

859
860
861
862

848

ggg

gga
865

:329
8E8
ee9

DRIVE
READ

OFST-

THE

DRIVES

OVRWRT
SCORE
OFST+
12

READ
SCORE

OFST12

READ
SCORE

OFST+
12

SELF
Re
B0
BS

1
1
1
1

RO
SELF
A2
B0

8BS

2
2
2
2

AD
SELF
A2
BO

12
12
11
12

12
12
9
12

12
12
11
12

B8S

DRIVE Al READ AVG

%7
11
3

¥ b
12
12

12
11
12
12

11
10
11
12

12
12
11
]

11
12
12
g

DRIVE Al OVWRT AVG =

BEING

BS. THE TEST RESULTS FOR DRIVE Al ARE

12
11
11

= 10

THE ABOVE EXAMPLE REVEALS A
POSSIBLE
COMPATIBILITY
PROBLEM
BETWEEN
DRIVES
Al
AND A2.
NOTICE THAT ON TRACK 0, THAT THE OVERWRITE SCORES

CZREQBO RKE DR CPT PROG MACY11 30(1046)
CZREQ3.P11
02-DEC-77 10:46

02-DEC-77

11:48

HO2

PAGE 21

SEG 0020

870
871

OW (7 OR LESS), AND THE

H AN RSTE RISK (%),
"N TEPTARB
SECRe

PROGRAM

NOTED

THESE

BRD

CZRBABO RKE DR _CPT PROG MACY1l 30(1046)
CZR6GB.P11
02-DEC-77 10:46

02-DEC-77

11:48

102

PRGE 22

11.0

ERROR REPORTING

11.1

COMMON ERRORS

NON-EXISTANT MEMORY ERROR

NON-EXISTANT DRIVE ERROR

UNIT FIELD ERROR

SUBSYSTEM TIMEOUT

SERCON PARITY ERROR

DRIVE DETECTED PARITY ERROR

RAC LOW

SPEED LOSS

10.

ILLEGAL FUNCTION ERROR

11.

PROGRAMMING ERROR

12.

NON-EXECUTARBLE FUNCTION ERROR

13.

DRIVE TYPE ERROR

14.

FORMAT ERROR

15.

WRITE LOCK ERROR

16.

DRIVE UNSAFE ERROR

17.

SEEK INCOMPLETE ERROR

18.

CYLINDER OVERFLOW ERROR

19.

ILLEGAL CYLINDER ADDRESS ERROR

20.

DRIVE OFF TRACK

21.

DRIVE TIMING ERROR

DD DWW WD WD DO DD DD

L) =t 0t Bt Bt Bt s ot Bt st
= OwoNo"NLEW—-0O

UNIBUS PARITY ERROR

—

THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGE S W HICH R$C0
MPAMY ERROR
TYPEOUTS
FROM
THE
RKO6 DRIVE COMPATIBILITY PR GRH.
HE ERRORS ARE
SELF-EXPLANARTORY.

SEQ 0021

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

02-DEC-77

11:48

JO2

PRAGE 23

350
ggé
gga
§§§

22. DATA LATE ERROR
23. CONTROLLER TIMEOUT ERROR
24. OPERATION INCOMPLETE ERROR

ggg

25.

HERDER VRC ERROR

g:?

26.

DATA CHECK ERROR

942

§§§

27.

WRITE CHECK ERROR

28. DATA MISCOMPARE

g:g

29.

NO DRIVE RESPONSE - UFE AND NXD

g:g

30.

DRIVE ERROR WILL NOT CLEAR

gg?

31.

DRIVE STATUS CHANGE WILL NOT CLEARR

952

3?3
Egg

32.

ATTENTION BUT NO STATUS CHANGE OR FAULT

33. ATTENTION BUT DRIVE NOT AVAILABLE
34. ERROR WHILE GATHERING DRIVE STATUS

ggg

35.

MULTIPLE DRIVE SELECT

gg?

36.

HERDER COMPARE ERROR

ggg

37.

ERROR IN RECALIBRATE FOR RECOVERY

ggg

38.

CLEAR CONTROLLER DID NOT CLEAR ERROR

ggg

39.

NO ATTENTTON IN ARTTENTION SUMMARY REGISTER

ggg

40.

UNSOLICITED RTTENTION

g;?

41.

UNEXPECTED DATAR TYPE ERROR

g;g

42.

ATTENTION DID NOT RESET WITH CLEAR

g;g

43.

SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ARTTENTION

g;g

44.

DATA LATE WHEN UNLOADING HEADER

g;g

4S.

CONTROLLER ERROR WHEN DRIVER SERVICING

gg?

46.

RETRY UNSUCCESSFUL

982

47.

BAD SECTOR ERROR ON SECTOR NOT LISTED BRD

SEQ@ 0022

;
|
|

CZR6QBO _RKE DR _CPT PROG MACY1l 30(1046)

CZREGB.P11
384
98S
986

02-DEC-77 10:46

O02-DEC-77

11:48

KOa

PAGE 24

SEQ 0023

ggg

11.2

989
930
991
992

ERRORS REPORT: BY THE PROGRRH CONSIST OF COMMON FAILURES RESULTING
F
:
FUNCTIONS, AS WELL RS CERTRIN ERRORS UNIQUE
*g
T?ETS
ER%H ERROR PRINTOUT CONSISTS OF
ERROR
DESCRIP
POSSIBLY FOLLOHE? BY _HERDER L"’S COLUMN

HEADINGS

HF
NGFfiL

SINGL

igg?

11.3

997
998
999

iggg

0S
06

[y S

eyt

oNoCnNLwn~-o0

07
gg

RND
OF' REGISTER CONTENTS IN OCTAL.
AS ~_MUCH
STER DATA RS POSSIBLE (FOR EXAMPLE, RKbll <EGISTERS)
I
GIVEN ERROR. OTHER ERROR REPORTS MAY CONSIST OF A

DESCRIP I E LINE.

ERROR PRINTOUT EXAMPLE
¥% WRITE CHECK ERROR

PREVIOUS COMMAND:

DRIVE
000000

HI BA
000000

CMND
0o0i21

LO BA
061566

EgflfiggT
ORI Ve
oqx%sgn 886080
000000

CYLNDR
000016

TRACK
000001

SECTOR
000000

MND
800131

CYLNDR
000016

TRACK
cooool

061556

PACK ADDRESS OF ERROR(S):

CYLNDR
000016

TRACK
000001

SECTOR
00000e

WD _CNT
175000

SECTO
00000

993
94
995

ERROR HANDLING

WD CNT
175000

CZR6QBO RKE DR_CPT PROG MACY1l 30(1046)
CZREQE.P11
02-DEC-77 10:46
1019
1020
1021
1022
1023
1024
102S
102¢
1027
R
1029
igg?

R L B

O02-DEC-77

s T S

11:48

PAGE 25

SEQ 0024

TRBLE A
BTl T

T L

BASIC READ/WRITE TEST SECTORS

1032

1034

ioas

1033

DRIVE

iggg

1040
e

%°3§
1044

1045

S R

0
1
2

T R

ADDRESS OF SECTOR ON ERCH SURFACE
CYLINDER
Y

SECTOR

RKO&/RK0?
e
s

/1444
25 /1444

620/ 1444

1046
1047
1048
1049
1050

3
o
S
)
7

620/ 1444
558/1444
620/
1444
620/ 1444
620/ 1444

1825

855/ 1due

1054
1055
1056

13
14
15

1058

1057

0
eE

6
10
12
14
16

B22/ 1446
622/ 1446
622/ 1446

6
10
12

B22/ 1446

(IN OCTAL)

Pt Pt Pt

s Pt

s Pt Pt

2%PRRZRER

s Pt Pt Pt P

O02-DEC-77
11:48

WORD NO.

Lt
TM [ [ [T
o-o-b—oo-og
L OO
0"01!\).:0—8
LWL
AN
CWWNINTNL
W

s Pt Pt Pt Pt Pt Pt

1= O 0000000000
®
NNNNNNNN
o
NN L£W—~-0Ww

s Pt Pt

NONILZWwWh—-ON"NLEW=-0

(=)
m
n

s Bt Pt s et

Pt P

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

MOe

1059

1061

TRBLE B

DATA (OCTAL)

SEQ 00es

CZR6EQBO RKE DR_CPT PROG MACY1l 30(1046)
CZR6GB.P11
02-DEC-77 10:46

02-DEC-77

11:48

NO2

PRGE 27

SEQ 0026

1094

1095
1096
1097
1098
1099

11
1101

1102

B
%igg

TABLE C

CYLINDER BLOCK ASSIGNMENT FOR A GIVEN SURFACE

1107
1108
1108

1110
1111

i*ig

CURRENT

OVERWRITE CYL

COMPATIBILITY CYL

ZONE - RANGE

BLK RANGE (OCT)

1115
1116

1 - CyL 0=77
g -177

CyL 0-17
100-117

CyL 60-77
160-177

1118
1119

4 - 300-377
S - 400-477

300-317
400-417

360-377
460-477

114

1117
1120
iigé
1123

3 - 200-277

200-217

& - S00-577
7 - 600-632

S00-517
600-617

1 - CyL 0-177

i124

g *

liez
1128

S - 1000-1177
& - 1200-1377

1125
1126

iigg

-377

3 400-577
4 - 600-777

7 - 1400-1456

CyL 0-17

e00-217
400-417
600-617

1000-1017
1200-1217
1400-1417

BLK RANGE (OCT)

e60-277

Se0-577
CYyL 160-177

360-377

S60-577
760-777

1160-1177
1380-1377
e

ROTATING
STARTING

SECTOR

SECT O
3

RKO6
RKO6

RKO6

ee
0

RKO6
RKO&

13
17

RKO&
RKO6

SECT O

7
13

17
ee

RKO?

RKO?7

RKO?
RKO?

RKO?
RKO?
RKO?

71“9050312&5”6576m-7\a5s90oqmIun12345%789%1yx&lu
124730655037”21

——

1S
16

16
17

—it

——t

5~0=N3“7W7T0]2“F5.O32u11n-0M2U“1.3M76eU3t2N07O55T“
351643 4515207

ey et

I.lal.l.

(SHOWN FOR RKOB,

11:48

———

C2-DEC-77

%
MACY11l 30(1046)
10:46

————

02-DEC-

NNDODDDDD
OQO—M=U—MNOITe0U1NO3N6O2—~7U5MONNI“T4L5O7
14—oq“5;t.[1a05s3a20l1o7e60t4ly27a5ee3g1yt5?0s4“q3
6Oe510UN532T~ 7M0e"u72U012M52W1e“5N47O33e=0Tt06.D5N
0T1~3.1_20“2735“0 57526et503170
q.blsanv? OgSl.buya

4DoOotDoOotDooleooduedtontuenouolnounoluonluoneoooIooIlToot3o“ot"eo4ot“eolt4ot“4otoootototoo4TtM
CZR6GB.P11

CZR6GBO _RKE DR _CPT PR
PAGE 28

BO3
SEQ 0027

TRBLE D

BASIC CYLINDER BLOCK LAYOUT EXAMPLE

USE CYL 160-177 FOR RKO7)

CYLINDER

SECTOR NUMBERS (OCTAL)

-4otoo]oeoogw](&
9*RMo(ooN(4l)o=4OO—=o=uoeotuUOteoM—Mt~eToTuUoNlMANoOmlONoetNOA—t~UMUtTMNm—O~NNOOI>Nw“On@=Wi3§1mBnfl
-=T[+ ]eee R R b b x-||

eTBRRReRRRRKRRLgyPoPRoBBLReRDRRRRRBKBBRl
WoWZO4wOao dOo=deudeUdMedTodNeOieNdO—~UMTNON OWI|f=lil
e(>Z."VLo&y)IOOD@".'.eu4DOFOO"m—I——lul==Om=u=Utu'TDuu.ooMunFUOUuoOgl"IMfMTn”DMsITI~u'oOoTnTon"umLWNoo.TuNnDVmnoI"ooO"lOaOTTLN=DNoN'n.I.To'lale'.'lER"No—P'b-w—o~-l\ ]Xo-xQ>-b wOi|n\13ill !w"iOx4]z 1x|\~|
&o w

oW
>
wu
mnm

02-DEC-77
11:48

(=]

(6] > =

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

PAGE 29

CO3
SEQ 00es

[+4]XZ DN4

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

11:48

PRGE 30

SEQ 0029

1210
1211
1212
1213
1214

HE
1218

1
1220

1221

1222
1223

Y e0

AT T

SELF-TEST CYLINDERS
memeemmceememeeees

DRIVE #

1229
1230

0
1

1
1532
1233

1 gg

15%
15 a

1239
1240
ISHI

f53§
1248

&0, 160,260,
360, 460, 560
61,161,261,361,461,561

1
85,165,585,
363,
463,
363564
4, 164,264,
364,
464,

201
01

’

’
B

’

50!
1901890,1e71, 370,:4751571
470,
870
75:17

15
16

75,175,275, 375,475,575
76,176,276, 376,476,576

NOTE:

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

10
11

12
13
14

1242
1243
1247

TABLE F

T R TR

i%g?
1228

1246

72,172,772,
372,472,572
73.173.873,373,473,573
74,174,274,
,w7q,§7u

77.177.277.,377 477,577

THE ABOVE TABLE GIVES CYLNDER NULMBERS FOR THE RKOG.

REFER TO TABLE C TO OBTAIN CORRESPONDING CYLINDER
NUMBERS FOR THE RKO7.

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

02-DEC-77

Pt Bt Pt Pt et

s Pt Pt

NONLZWR—ONO'NLEW-0O

VLW

DDDNCNILEW—-0O

T
N Nv
vv
MMM
INNNNN 3
v
LW-=OWwoNonN INN’-‘O\Dg\)

11:48

EOS3

PAGE 31

SEQ 0030

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

02-DEC-77

11:48

FO3

PRGE 32

.NLIST MC,MD,CND

{gtw

smsx.

S Fh

12¢
12¢

LIST

1290

RBS, AMA

.#%% REV 003 ¥#¥

1291
1292

1533
1295

X222I2I:2222232222232222323223222322222
232322222222 222222222222 24

iggg

QaTTL

1299
1300
1301

e
"
P

1298

iggg

1304
1308
1306
1307
1308
1309
iai?

SEQ 0031

STARTING ADDRESSES

200
204
220
224

T PARAMETERS AND nun PASS 1 AND PASS 2

ELECT
PARAMETERS AND RUN PASS
1
SELECT PARAMETERS AND RUN PASS a
MEMORY DUMP ROUTINE

33R 2222222222222 222322233232322222332222223322222222222222232222222 3

000001

TN=1
.TITLE
cznsoao RKb on CPT PROG
: #COPYRIGHT (C) 1977
;;oxcxrsb EQU PHENT CORP.
;lm
v
S.
01754

igig

:pnocnnn BY DAVE HOFFMAN

1314
ig{g

nruxs PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
!PQCKRGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

{gig-

160000

1319

163000

igg?

tsun-xsoooo.
:§8TTL

1322

$SWR=163000

OPERATIONAL SWITCH SETTINGS

SWITCH

1326
1327
1329
1329
1330
iggé

%
Tx
¥
‘¥
¥
‘¥

13
12
10
9
g
7

igga

.SBTTL

1353
1325

133S

1336
1337

;ggg
A

1340

001100

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

18
s

USE

;a:;
"""RROR
8“5 9

xnuxaxr snnoa TYPEOUTS
REPORT DESCRIPTION ONLY, ON ERRORS
955% ON
ERROR
L
ON
ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
TYPE BAD SECTOR FILES (BSF’'S) AT START

BARSIC DEFINITIONS

- %INITIAL ADDRESS OF THE STACK POINTER #%¥ 1100 %%

&§TACK="
LEQUIV

.EQUIV

1100

EHT ERROR

TIOT,SCOPE

; ;BASIC DEFINITION OF ERROR CALL

:'BASIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48
CZR6GB.P11
02-DEC-77 10:46
BRSIC DEFINITIONS

e
igzg
1347

136

{gg?

1352

1353

iasw

13?2

cogsls
?97; 3

7
177570

1CO08
RENAN
v reco
::SS ES EOR
OR SoRIngE
STA uoso

DDISP= 177570

55“328525& 3¥SPLRY REGISTER

000000

RO=

77774

000001

888885

1375

515

R3=

PR3=

PRS=
PRb=

000340

PR7=

000

Su1s=

040000
020000
010000
004000
002000
001000
00400
0200
000100
000040
000020
000010

SWid=
SWi3=
SWi2=
SWil=
SWi0=
SW09=
SWo8=
SW07=
SW0e=
SuW0S=
SWo4=
SW03=

1390

000001

SWo0=

1391

1382
1393
1394
1395
13%%

000004
000002

1 BRoChan INTERROPTRéauesT ReGISTER

: ;

GENERAL REGISTER

,ggmm

RAL

cts;gg

8 TER

100

:IPRIORITY LEVEL 2

200

:PRIORITY

140

240
300

340

:IPRIORITY LEVEL 3

LEVEL H

P IPRIORITY LEVEL S
::PRIORITY LEVEL &

!PRIORITY LEVEL 7

- ¥"SWITCH REGISTERTM SWITCH DEFINITIONS

1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389

Rb=
%6
;;EEEEaaL EEEI?T R
2
e
PC=
%7
H
éouursn
fisgnxoner
TY LEVEL
PRI1= 40 - oerxnxrxogg
:EPR¥82¥TY
L§VEL O1

PRY4=

000240
000300

: :STACK LIMIT

. ¥GENERAL PURPOSE REGISTER DEFINITIONS

000200

1370
1371
1374

Prras - 177772

PR2=

000140

ig;g

STKLMT= 172774

00100

1368

1369

SEG 0032

.
Pgsu;v i527323

1359
Sos
B
{ggg
000007
i%&;
000000
1366
000040

1367

GO3

PAGE 33

SWo2=
SWoli=
.

ou;v

"EQUIV
"EQUIV
"EQUIV
"EQUIV
"EQUIV

000

40000
20000
10000
4000
2000
1000
400
200
180
20
10
4
2
1
ugq, W9
S g. We
SW07.S5W?
SWOG. SWE
SWOS. SWS
SWO4
. SwWd

E8Re

MACY1L 30(104)
0_RKE DR oEPI EROG
P11
DEC

1397

02-DEC-77
11:48
BASIC
DEFINITIONS
.EQUIV

ety

PAGE 34

suog,sgg

S8,

: ¥DATA BIT DEFINITIONS

100000

81T1S=

Eiqug
113=
Tle=
BITlil=

100000

(BITOO

TO BIT1S)

BIT10=
I1T09=

1409
LfLfLfrrrrrr

s Pt Bt Pt Pt Pt P

i
107=

BITOb=
BITOS=
91;045

Bt e B

Eirgg; Y

s s bt Bt B

I-fi-‘:l&:&fi&&l‘&&l:
PERLEES ~

ety S

-EQUIV
.EQUIv

167.BIT
BITO6.BITE

-EQUlv
e
Isoufv

BiTo3'BIT3
R
frgé:axro

e Bt Pt Bt Bt s

.EQUIV

BITOS.BITS

. ¥BASIC “CPU"

e e Bt

ERRVEC= 4

TRAP VECTOR aoonessss

;; TIME OUT AND OTHER ERRORS

§E§¥sgz_ig

.,§§§EE¥§D AND ILLEGAL INSTRUCTIONS

T
=- Y
iu
Bg¥8£8=
I0TVEC= 23

.,INPUT/gg}PUT TRQP (IOT) ¥%SCOPEX»

;53585 '53

,,T;v gsvaonao
VECTOR

::TRRSKPOINT TRAP (BPT)

::gnfifnronRAP (EMT) #¥ERROR¥¥

Ezgggg_gg

000240

PxnavEc=3qo
.SBTTL

000000

1
i4sl
1452

SEG 0033

000174
000176

000174
000000
000000

* PROGRAM xnrs§5up?REQUEST VECTOR

TRAP CATCHER

*.+2,HALT"
CON TRéRRR

FROM 4 - 776
38WNEED,L88TCH ILLEGAL
TRRPS AND INT
ATIONS

lLOCRT ION
CONTRINS 0O TO CATCH IMPROPERLY LORDED VECTORS

DISPREG:
SWREG:

=174
.WORD
. WORD

O
0

; SOFTWARE DISPLAY REGISTER

,,SOFTNRRE SWITCH REGISTER

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)
CZREGB.P11
02-DEC-77 10:46
1483
1454
1455
14S6
1457
i:gg

000220

000137
000220
000137

1460

000224

000700

i:gé

000200
000204

000226

000137
000204

001100

5323
1465

146

000230

1469

000046

1471

0000S2

1470

1472

1473
i:;g

1498

;:JUMP TO STARTING ADDRESS OF PROGRAM

700

1100

ti ittt sttt aas e s 2222222222222 2222222222222 22222 222222 222

hooxs Rsougnso BY ACT11

; SAVE PC

. =46

SENDARD

140000

. WO

-SSD

000230

001000

.=§SVPC

.SBTTL

;3 1)SET LOC.465 TO RADDRESS OF SENDAD IN .SEOP
140000

,,E)SET LOC.S2 TO 140000

.=1000
APT PARAMETER BLOCK

;; RESTORE PC

LN LA R LN R RSB B LR BRI FF RS SRR R

000024

000044

001000
001000
001002
001004
001006
001010

.$X=,

. 2
200

001000
001000

¥
POHER FR;L TO
,,FOR APT START
UP
;POINT TO RPT IND

INT TO START OF PROGRAM

CT RDDRESS PNTR.

:RESET LOCRTION COUNT R

; !li!llil!liiiliilliiiil;i{il!&i&i!il!iil!liiiililfi;li*&ii*ii*{;
Q
T PARAMETER BLOCK RS DEFINED IN THE APT-PDP11 DIAGNOSTIC
INTERFQCE SPEC.
APT
SHIBTS:
MBADR:
$TSTM:
SPASTM:
SUNITM:

120210

AVECT1=120210

000377

,,ggvsURRENT L

SRPTHDR .,PO NT TO AP

000000
881330
1320
001546
001546

1774940

R L PR AR A LR L2 2

lIlllIll!llllllllllllllllll!lililllllllll!llllllllll!ll!ll!ll!l

000024
000200
000044

1495 001012 000030

1487

RCT11 HOOKS

.WORD

O EEAEAFERREN LR E R F YR B RN

1485
1486
i:gg

1496

.SBTTL

..HIGH:

SEQ 0034

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1478

1489
1490
1491
1492
1493
1494

.WORD

O0l2ee?

017264

001000

1479

1484

..LOW:

012204

0000Se

1477

1483

STARTING RDDRESS(ES)
JMP
J8DFSTRT
. =204
JMP
J#P1STRT
. =220
JMP
J#P2STRT

000046

1476

1480
1481
1482

.SBTTL

Bt t

146

1468

012176

103

02-DEC-77
11:48
PAGE 35S
STARTING ADDRESS(ES)

.WORD
.WORD
.WORD
.WORD
.WORD

. WORD

ABASE=177440
ADEVM=000377

0
SMAIL
1320
1546
154

;; TWO HI
BITS OF 18 BIT MAILBOX
ADDR
,,RDDR;? OF APT MAIL
?OX (BITS 0-15%)
; s RUN
M OF LONGES
EST
,,RUN ME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
: AD
RUN TIME (SECS) OF A PASS FOR ERCH ADDITIONAL UNIT

SETEND-SfihIL/a ,,LENGTH MARILBOX-ETABLE (WORDS)
;RKVEC=210

'RKBAS ADRS

KPRI=S

;SET DEVICES 0-7

IN MAP

CZR6080 RK6 DR _CPT PROG MARCY11l 30(1046)
CZRBGB.P11
02-DEC-7
10:46

02-DEC-77
11:48
COMMON TAGS
.SBTTL

JO3

PAGE 36

SEQ 003S

COMMON TRGS

S EEEEERRREEERRRRRRERRRT
ERERRRRRRERRRR R R ERER AR AR AR R RN RRRRR

150

;%USED IN

[

oo
n
n

A
298b4£RO
47441
8888

SN
D

e58888

001100

e Pt ot Pt

e RPngJINITTR BB E R R YN

Wit wud wd wy wst wi i

wd e wi

et ut e

TR o R 2 oReE

888 =l 833838338 8833888 888818888 ate SRRRERRRRRESCS
e e e S
e e et o wsd w w e S
e i S e e
e

Py Wy
P
F

iTHIS TABLE CONTRINS VARIOUS COMMON STORAGE LOCATIONS

000
000

e Bt et Bt Pt

s ot ot et P

s Pt ot

s Pt

s ot Bt

s Bt ot ot Pt it Pt ot

s Pt

mmmguu:.:::
W
OwmoN ELSELER0EO000000 5% S4555 Ry DONC
N
LEWN-0O

s Pt Pt PtPt Bt Bt Bt Pt Pt ot e et Bt Pt Bt ot Bt Pt Bt Pt

U'Nfl:;l i

29FREZoR-0

1499
1S
{501

$CMTAG:

THE PROGRAM

.=1100

; ;START OF COMMON TAGS

StRFLE:
'Eflg 85
sfigm:' Zuong

..coumius gc Esr
nsmnou COUNT

3&% 'gas l l

::comn CSNT
x EM

SERRPC: .

gmcom; - WORD

T0B: .BYT

$GDADR:
.
$BDADR: .

’ :flgao

SINTgGa: Ez;o

SWR:

i CONTAING
EHROR FLAG CCR
P OF

ERROR
E
TNSTRUCTION
mfi
OF
'GOOD’
DATA
DORES OF 'BRD’ DATA

..cgum
::C

32"lav':‘s--uoEI'? 78“35 USED

::xmzmufi %85 N»&cmon

DDISP

::no%

.,coum

DATA

AUTOMAT

INDICATOR

DISPLAY: .MW

DSWR

2’;5&‘(8; 'a%e

"i(vm
m{r@'rm %g
rmc (BIT<07>=0=YES)

::comn

((

.,cgam

((

.WORD

0
O

: ;CONTA
: ;CONTA

((
((

)+12)
)+14)

?R:E 12: .WORD

: :CONTA

(

(SREGAD) +24)

§TPS: 177564
SnoLL:
BYIES o
SFILLS: 'BY‘{ aa

SREG1: .
SREG2:

.WORD

SREGH:

.WORD

SREG3:

SREGS:
SREGG:

0000C0o

SREG7:
SREG10:
815:

.WORD
.WORD
"WORD

SREG13:
ga GI4:
GIS:

.WORD
.WORD
.WORD

SREG13.
‘HORD
SREG20: .WORD

xrcu REGISTER

SPLAY REGISTER

,,nv
ssc
aoonsss
i.,conmingxo
LTPRI k:;’dgegr
aCTERFOR
EILLS
cf‘EummcR
A Tsllasengggénso
:CONTA

((

%ua)
)+4)

)+6)

)+10)

O
O
O

.;coum}ns ((SREGAD) +16)
: ;CONTA
(
(SREGAD
) +20)
,,coumi
((
cnousa)

O
O
O

: :CONTAINS ((SREGAD)+26)
.,coummg ((SREGAD) +30)
: :CONTA
((SREGRD) +32)

i GONTRING ¢ (SREGAD)+36)

: :CONTRINS ( (SREGAD)+40)

CZR6QBO_RKE& DR
CZR6GB.P11

1%‘5,

1552

001

1 30(1046)

02-DEC-77
11:48
COMMON TAGS

SREG21:

.WORD

SREGSS:

.WORD

[s55
001
xéa xs

fEos: .WORD
e
gg‘sceu:

1560
1861
1562
1563
1564
1565
155;
1?23
1

SREGeb:
gnecah
REG30:
:
:
:
SREG34:
s%ggz
$
:

1
1
1
001
001
001
D01
D01
001

.WORD
WORD
.WORD
.MORD
.WORD
.MORD
.WORD
.WORD
.WORD

1233
0Q168
1571
1264
{ers Sisse
i
mie
1576 %1575 %

STRPO.. CHORD
§TMP1: .WORD
res R
Lo
§TMPG: .WORD

1578

§TMP10:

1577

001300

00 ‘fi

D01

1S81

001

1580

1
1

1584

1585

001306

00131
DO1314

%1358

§TMP7:

STMP11:

.WORD

§TMP12: .WORD

TMPIN: .
$TMP1S: .WORD

TMP13:

.WO

SESCAPE:0

$BELL:

.ASCIZ

KO3

PAGE 37

SEG 0036

: ;CONTAINS ((SREGAD)+42)

¢O

COAIS (e
;Ecorma%%
uficaousm

O
O
O
O
O
O
O
O
O

;;comn}us ((
%ustn
; CONTA E ((
)456)
; ;CONTA
(
(SREGAD
) +60)
: ;CONTA
(
(SREGAD
) +62)
; ;CONTA
(
(SREGAD
) +64)
: SCONTA
(
(SREGAD
) +66)
: ;CONTRINS (
(SREGARD)+70)
,;conmgg (
(SREGAD)+72)
: ;CONTA
((SREGAD) +74)

: :CONTAINS ((SREGAD)+52)

O
O
8
O

i OPR DEFINED A0 +76)
: sUSER {nso
iR
Brhes
i
B
E;%fl
INED

; ;USER
; s

NED

USER

; s USER

NED

i s USER

33
¥

]

<207><377><377>

NED

RROR ADDRESS

;;

1285
00135e
8
1588 001326 000012

SCRLE.
R (16>
i QR TACE RETORN
SLF:
Iggcfz (2>
::UINE FEED
IR 2222222222222 22222222222323333223233333232223 3332222223322 222328 ]

iggg
1594 001330
1565 (001330 000000

'EVEN
§MAIL :
§MSGTY: .WORD

1290
1891

1596

001332

isgg

iaau

1603
1604
1605

1350
1350
001351

1608

001356

000000

oogg%

1609
1610

001352
001354

2 222222222222222222233223223232322322232333
3222222322222 3222222222

§FATAL:

.WORD

s s APT MAILBOX

AMSGTY ;;rsssacé TYPE CODE

AFATAL

;;FATAL ERROR NUMBER

s;ggm: - WORD

ggggm

:ITEST NUMBER

000
000

SETRBLE :
SENV:
.BYTE
SENVM: .BYTE

RENV
RAENVM

: iAPT
ENVI
NT TABLE
: iENVI
NT
BYTE
;;ENVIRONMENT MODE BITS

§CPUOP: .WORD

1?99 1333
00
1601 001344 800000
1602
1346 33

1606
1607

-SBTTL APT MAILBOX-ETABLE

000000
000000

gosv T: .uon"c'g
SHoGAD: ‘HORD
inscn.c; :uoag

$SWREG:
SUSWR:

s¥

.WORD
.WORD

ADEVCT ;;DEV COUNT
AMSGAD | MESSAGE ADDRESS
nnggfg 52:5 ge& ngncgu
ASWREG
AUSWR

ACPUOP

;;APT SWITCH
;;USER SWITC

;:CPU TYPE,OPTIONS

817s 15-11=CPU TYPE
11,04=01,

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

LO3

SEQ@ 0037

POLAR=002

ifififiiflflfili
grIele

——

*g***#

28
oR2RBetu IS :

LAST’

e
<<
mm
00
4

(HIGH BYTE)
?RE=001

MOS=003

SS,BLK#3

HEGH
ss n S.BYTE

888

o—o—r—v—o—o—o—-o—.—o—z—)
LLfL LW

W
N

FREORZE8D

LI
I ]

ey Sy Sy S Sy Sy Sy
el T e
e
e o

s Dmm
TR~

s e e
er we we
g 3 3
8
-4D
<3
o;m

e B
e
e
e bt Bt B

DO
P

Y S

SO VY S

U Sy

Y S

N
)
o

LW - 8

PAGE 38
11:48
02-DEC-77
CZR6QBO_RK& DR_CPT PROG HflCYll 30(1046)
APT MAILBOX-ETABLE
.P11
02-DEC-77

éaassERjeE T
“‘é?‘s“.
: :I"?Em“”
OF EQUIPMENT UNDER TEST
i BEVIcE

CZR6GBO RK& DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

1638

isig

te2e

16 2
11663

lebd

SEQ 0038

.SBTTL ERROR POINTER TABLE
! ¥NOTE2:

164
164
164
164

1657
1658

ERROR POINTER TABLE

MO3

PAGE 39

:Lgsnhonsné ?8 BERpfiéfl‘?ss
uuicu
xrsgnfi rtq.t’:gaugcxs PERTINENT.

1 gg

11:48

; XTHIS TABLECONTAINS THE INFORMATION FOR EACH ERROR Tgn’_r_ CAN OCCUR.

igzg

1650
1681
lese

02-DEC-77

. %
Py
Py
P
001410

ODI4le

052406

i
001452 052276
DBagers

D014
001424

ODI42e

EM
OH
T
OF

; sPOINTS
t'POINTS
{iPOINTS
i {POINTE

TO
TO
10
TO

THE ERROR MESSAGE
THE DATA HEADER
T
T
TA FORMAT

$ERRTB:

801413
84342
001419
022276
e

ERCH TTLR IN THE TRBUE CONTAING 4 POINTERS EXPLATNED AS FOLLOWS:

052408

16€

1 32? 001430 DuSHE7

. ERROR 1

Smoo
DT100

.UNIBUS PARITY ERROR

DFO1

SERROR 2

H100
i
0T100

:NON-EXISTANT MEMORY

OFO1

ERROR 3

. NON-EXISTANT DRIVE

1668
1669
1670

001432
001439
001436

050512
052276
0824

OH100
DT100
DFO1

1678
1673
le7d
1676

DOIwg
golus2
001444

Quss)
0SOSI
052376

ERROR 4
h
OH100
DT100

:UNIT FIELD ERROR

1678
1673
1680
1681
lege

DOl4S0
001482
001484
001456

Quss3ay
050512
052276
05243

.ERROR 5
M5
DH100
07100
OF 02

s SUBSYSTEM TIMEOUT

1684
1685
1686
1687

001460
DOI462
001464

045552
050519
052376

ERROR 6
M6
OH100
DT100

1676 0DI44e

less

0Oldee

082472

1897 00147
1692 147

5576
0812

1693

001479

052276

OFO1

:D TO C PARITY ERROR

OFO03

"
DH100
DT100

DRIVE DETECTED PARITY ERROR

NO3

CZRE6QBO_RK& DR CPT _PROG MACY11 30(1046)
02-DEC-77__11:48 PAGE 40O
ERROR POINTER TABLE
CZR6GB.P11
G8
02-DEC-77 10:46
1694

001476

123 fsoo

isq?

0sa472

095635

12% -’- g
1700
i;°1

001506

SEQ 0033

DFO3
; ERROR 10
M

;AC LOW

0S2436e

x7§§ D01S10
Pixgla gese

; SPEED LOSS

1705
1706

001514
001516

1709

001520

; ILLEGAL FUNCTION

1711
1712

001524
001526

1715
1716

001530
001532

1712

D01536

17!

1710

{71

052276
052436

001Se2
13

1734
1735

001562
001564

};%% 001560
17?

1536
1739

001566

00iS70

i BRiers
1742 881275
1743

{73 coreoo

1746
1747
i748

001602
001604
001606

5 BTRAY
=1]

& = I FroS

001554
0015Se

Rone

1729
1730
1731

{72
172
1550
1728 881552

RARE

1842

001544
001546

; NON-EXISTANT FUNCTION

;DRIVE TYFE ERROR

; FORMART ERROR

1723
1724

iRRAEL
R

175?
ggxswo
1725

RAL

1719 1234

; PROGRAMMING ERROR

;WRITE LOCK ERROR

;DRIVE UNSAFE

BO4

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 41
CZR6GB.P11
D2-DEC-77 10:46
ERROR POINTER TABLE

1750

:ERROR 21

i? 1

%igig

001614

2276

OF 02

ooiszo

%ssosé

1760

001

tn;a

052436

Bilts

{;23

gigg

ggégg

gna;go

1765

0016

276

DT100

igg B016le 025456
1;;9

{7 mie
176

1755
i;gg

001636

1769

gfl?fio

:ERROR 22

:ERROR 23

:ERROR 25

%15_52

276

001660

046177

i;;g:
1780
1781

1782

001662

436

DT1

OFO
:ERROR 26
EM2e

%xssu
1666

052276
052436

DH100

i;g;

%ig;g

gsuggié

Sfl%’

1789
{;gcll

001674
001676

052276
052436

DT100
02

i;%

1794
1785
1796
1797

001702
001704
001706

0S0S12
052276
052546

OH100
DT100

1799

001710

046261

£M31

1798

1800
1801
1802
1803
1804

1805

y DRIVE OFF TRACK

DF02

050512

1783
i;és“
1786

; ILLEGAL CYLINDER

DF02

1774

1777

;CYLINDER OVERFLOW

DF02

ifagT o
Smoo
DT1

001646

:SEEK INCOMPLETE

DT100

001
134
1750
O0ieds
Bagiia
1771 0O1E
052276
1772
1773

SEQ 0040

DT100
DFO02
:ERROR 27

érs‘ggon 30

:ERROR 31

001712
831714
1716

0S0512
2276
546

DH100
DT100
DFOS

001720

046302

EM32

:ERROR 32

;DATA LATE

:CONTROLLER TIMEOUT

; OPERATION INCOMPLETE

;HEADER VRC ERROR

:DATA CHECK ERROR

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

1
1803
881785 82233¢2
1808

iga {“

001726

052602

1912
%17% 050512
1813

02-DEC-77__11:48

ERROR POINTER TABLE

cOo4

PAGE 42

SEQ 0041

DH100
87190
DFO7

fianon 33

DH100

17
ooxrgz
0017

046323
052276
052636

£NM33
DT100
F10

:WRITE CHECK ERROR

1§19 D01
1818 174:'2

6345
0S12

EM3Y
DH100

:ERROR 34

:DATA MISCOMPARE(S)

ERROR 35
EM3S

;NO DRIVE RESPONSE-UFE & NXD

Bras
:ERROR 36
EM36

;DRIVE ERROR WILL NOT CLEAR

:ERROR 37

;DRIVE STATUS CHANGE WILL NOT CLEAR

igig
181

1819
1820

001744
001746

052276
|

1855 001750 046365
1355

= 001786
i Oes40e
ROl

1856
f
1

1830
1831
i§§

1835

001760

046421

1841

1 ug
1

1844
1846
1847

000000
000000
000000

0
0
0

001770

046454

EM37

002000

046517

EMY0

;ATTENTION BUT NO STATUS CHANGE OR FAULT

052436

DFO2
:ERROR 41
EMY1

;ATTENTION BUT DRIVE NOT AVAILABLE

:ERROR 42
EM42

;ATTENTION WHEN NOT EXPECTED

1845

002010

ggog;a
2276

046563

1893 00014 OSo3%6
e
BBl G
1852
1853

1854
1

ies7
12

1860
1861

001762
001764
001766

{e
Sirs oooos
{5 iz
583088

1840

DT100
DFO4

2030

002032
002034

046621

12
San

:ERROR 40
100
T100

87100
Br4e
H100
T1

436

DFO

046651

EM43

0S0S12
052276

:ERROR 43

DH100
DT100

;ERROR WHILE GATHERING DRIVE STATUS

CZREQABO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11
02-DEC-77 10:46
xesg 002036 052702

igu

186S

002040

047126

002050

047173

1863 O0oO4% 0e9376
{gg 8583.'5 Eg 02
1

1871

137
187

1874

2
276

ig?fg
1877
7236
1878
@2
§asxa
18
4
052276
Hfi 002066
1882
1883 002070

1884
1885
1

002072
002074
002076

igg;eaa
1523 851
1

702

047264

050512
052276
052702

7317
12

02-DEC-77

11:48

ERROR POINTER TABLE
DF12

:ERROR 44

EMe3

27100
DF12
:ERROR 45

EMEY

814188
T1

PAGE 43

SEQC 0042

;CLEARR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

DF12

ERROR 46
BDT100
100
EMES

;UNSOLICITED ATTENTION

DF12
:ERROR 47
EME6

s UNEXPECTED DATA TYPE ERROR

ERROR 50

sATTENTION DID NOT RESET WITH CLEAR

DH100
DT100
DF12

H100

1891
iaea

%1
1

276
052702

DT100
DF12

1895

002110

047356

ENM70

002120

046706

EMs2

sMULTIPLE DRIVE SELECT

1904 002126
1905
1906
1907 002130
1908
1
1909
1

0512
gga 76

DFi2
:ERROR 53
EMS3
DH100
DT100

:ABREVIATED HCE ERROR

EM30

1994“3

i§§§ fiiifi
0e033¢
ile 825508
1893

1900
1901

1902
1903

igi?

1912

002122
002124

12
052276

046734

2732

1913

gewo

046234

1915
igig

002144
002146

052276
052762

1914

2142

0S1

:ERROR 51

24198
il

:ERROR 52

DH100
DT100

;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION

DF13

:ERROR 54

DH100

DT100
DF 14

;sOPERATION INCOMPLETE ERROR

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11
1918

1919

02-DEC-77 10:46

%zxgg

046261

ggxso

g-sos?sx

166

3012

002170

046761

2 e
Eok
igsé
1?2
732
13;6«

{58 gl B
igg
1930
1931

1932
1933
iggg

002172
002174
002176

050512
052276
053056

133 002200

047000

02-DEC-77

11:48

ERROR POINTER TABLE
:ERROR S5

EM31

s
ongo
:ERROR 56

EO4

PAGE 44

;ABREVIATED HVRC ERROR

EMSE

:2 TIMEOUT ERROR

DF1S
:ERROR 57

:2ND LEVEL IN SUBSYSTEM TIMEOUT

Bt
EMSE

DH100
DT100
DF16

ihegor &0

ERROR IN RECAL FOR RECOVERY

=
{35 B3ER BReRS

’

1943

: ABORT MESSAGE

1942

:ERROR 61

002210

047034

EMe1

1949

0022

047102

EMe2

1955

002230

000000

i fecls oo
ig:g %5215 %oooo
1948

:
0

:ERROR 62

1381
B0sssq 029356
iesé %ge
ggaxaa
19i55-+3

87100
F17
:ERROR 63

1956
1957

DT602

1958

1959

002232
002234

0022

0000
052370

éfiggon
DH100

i%g
1966

DFO02
:ERROR 65

002244

052276

1967

002250

047173

002246

052436

1329 835255 052436
1972

1973

002260

047236

:DATA ERROR WORDS

DF25

iesm
002
7126
1955 ooagg ggosxa
1963

; CYLINDER MISCOMPARE

DT100

EMeY

CLEAR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

DF02
:ERROR 66

EMBS

:UNSOLICITED ATTENTION

FOu4

CZREQGBO RKE DR _CPT PROG MACY1l 30(1046)
02-DEC-77__11:48
PAGE 4S5
CZR6GB.P11
02-DEC-77 10 146
ERROR POINTER TABLE

1974
1975

13;9

1978

1979
1980
1981
iggg
1984

1885

1386
1987

{988

1990

1991

1992
1993

iggg

1999

1997

ggaasa
2264

050512
825276

270

7264

002266

436

DH100
DT100
DF02

:ERROR 67

EMEB

272
274
276

0512
052276
052436

DH100
DT100
DF02

300

047317

EMe7

:ERROR 70

302
ggsggz

0S0512
276

DH100
DT100

002310

047356

¢M70

2436

:ERROR 71

0S0512
052276

DH100
DT100

002320

047425

EM71

052436

:ERROR 72

002322
002324
002326

050512
052276
052436

DH100
DT100
DF02

2003

002330

047465

Em72

2004

ooaggg

EBEE 5053
£003

nsos;g

3es 36

:ERROR 73

8#%33

DF02

:ERROR 74

2009

002340

835 42
344
002346

047534

12
052276
3%

EM73

201S

002350

047570

EM7Y

047610

Em7

2010
2011
aoxs
201
2014
2016
2017
33}3

002352
002354
002356

2020

2021

2022
2023
025
2026

027

2028
2029

0S0512
052276
052436

DH100
DT100
:ERROR 75

DH100
DT100
DFO2
:ERROR 76

002362
002364
002366

000000
000000
000000

0
0
0

002370

047640

EM76

002372
002374

051477
052362

:ATTENTION DID NOT RESET WITH CLEAR

: SUBSYSTEM CLEAR DID NOT CLEAR ATT

DF02

1998
1999
aooc:m

Sgae

:UNEXPECTED DATA TYPE ERROR

DFO02

002312
002314

002316

SEQ 0044

:ERROR 77

DHE0S
DTe0!

;DATA LATE WHEN UNLOADING HEADER

: CONTROLLER ERROR DURING DRIVER SERVICE

|
:DRIVE DETECTED PARITY ERROR

; UNDEF INED ERROR

:MPRKING SECTOR BAD MESSAGE

:BAD DATA VERIFICATION WITH READ

CZR6QBO RKE DR_CPT PROG MACY1l 30(1048)
CZR60GB.P11
02-DEC-77 10:46

&30
5033

002376

2034
203sS

ERROR POINTER TRBLE

053156

DF21

047722
000000

EM77

3216

02-DEC-77__11:48

:ERROR 100

0
DTe01
DF23
.ERROR 101

=)
2039
0

EM77

993993
3

LWy

OT 01
b3

204S

047743
000000
822362
3216

2047
Q48

7766

:ERROR 102

¢EM100

0
DT601
DFe3

;ERROR 103

1461
0S2362
0S3226

'ERRgR 104

002470

;ERROR

10S

;ERROR

106

'ERRgR

107

;ERROR

110

GO4

PAGE 46

SEQ 004S

;RETRY SUCCESFUL MESSAGE

;ANOTHER RETRY SUCCESSFUL MESSAGE

; RETRY UNSUCCESSFUL MESSAGE

;NO VALID HEADERS IN TRACK JUST RERD

;BSE ERROR ON SECTOR NOT LISTED RS BAD

; TIMED-OUT ON READ HEARDER

; TIMED-OUT ON SEEK

;ORIVE SIEZED BY OTHER PORT

7
76

05227
0S3e246

;"DATA MISCMPR WHILE BRI SET"

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

2089
2090
2091

$edassan

VY
PRV
PRV
VRV
RV
RN RN R RN

111

112

113

FREEREEBBVFRELRBom
e n £ O BBIRR 2o S
LLWWW
OO0\

PRAGE 47
11:48
02-DEC-77
ERROR POINTER TRBLE

ERI07

runur

HO -4

114

115

116

117

120

121

SEQ 004&

;"NO NEM WHEN EXPECTED"

;" INTRPT WHEN CNTRLR NOT REARDY"TM

;"NO ATT’N ON SEEK"

;ORIVE’S CYLINDER INCORRECT

;:TYPE ADRS OF DATA MISCOMPARE(S)

;DATA MISCOMPARE

:PART OF DATA MISCOMPARE

;ABORT- CAN'T READ BSF

;KT11

FAILURE

053272

0S0473

122

(11-/70)

:MEM PARITY ERROR

104

42
43
Y

Nooo

oo oo NN

Bt Bt Bt Pt et s Pt s ot Pt Bt et Pt Bt Bt Pt et Pt Pt ot et

E £ £

s Pt Bt ot Pt Pt Bt P

RN RNV

CZR6GBO_RK6 DR_CPT PROG MACY1l 30(1046)
_02-DEC-77__11:48
PAGE 48
CZREGB.P11
02-DEC-77 10:46
ERROR POINTER TABLE
002622
002624

050512
052276
053316

DH100
DT100
DF31

002630

045467

EM3

002632
002634
002636

000000
000000
0D0000C

;ERROR

0
0
0

123

SEG 0047

;NED ON SIZING UNDER APT

DAD DD \D D 0 DD D CD D D €D DD D DD~ 0~~~

nurororrn RN
RPN RV n
n
—
MO
NNN
NN ~

CZREGBO RKE DR _CPT PROG MACY11l 30(1046)
CZREQB.P11
02-DEC-77 10:46

8.—.—0—-0—-.—.
< b bOS OO
DO NN LW

eel0l
2

TV TV VT LV TV
A
n LD LA

n
Y
wn [

mmmmrummmmmmmmmm

208

224

JO4

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

SEQ 0048

BIT ASSIGNMENTS IN THE RKbll REGISTERS

i RDY !
P

R’W!

;RKCS2

! SPARE!

RMWI!

RMW I

:DLT ! WCE
;

! UPE

! NED

! NEM

! PGE

! MDS

! UFE

! CLR

! BAI

PNU
;

R/W

(DESIRED CYLINDER)

RW I

;RKDC

;

RMI

RMWI

iOR

! DESL ! DS2

! DSl

! DSO

' DCY

! DCB

RZ/W

§ RZW

NU !
READ ONLY

| RZW

; DC7 ' DC6

! DCS

! DCY

! DC3

! DC2

! DCI

! DCO

;RKDA (DESIRED TRACK AND_SECTOR)
;15
i
13
12

! TR2

! TAL

! TRO

iNU
;

P UN
3

READ ONLY

! SAY4

! SA3

! SA2

! SAl

! SARO

READ ONLY

RMI

!
i

!
|

KO4

02-DEC-77
11:48
PAGE SO
CZR6QBO_RK& DR_CPT PROG MACY11l 30(1046)
BIT ASSIGNMENTS IN THE RKb11 REGISTERS
CZReGB.P11
0:46

SEQ 0043

;RKDB (DATA BUFFER)
15
14
13

;

:DpB7 'DBe

' DBS

! DBY

! DB3

! DB2

! DBI

! DBO

' OF2

' OF1

! OF0

'WCIS ! WCIY ! WC13 ! WC12 ! WCI1 ! WCID ! WCY

! WCB

P UN
;

! OF6

' OFS

:RKWC (WORD COUNT)

P WC7 ! WCBE

! WCS

;RKBA

! OFY

READ/WRITE
12

READ/WRITE

;
:

READ/WRITE

! WCY

! WC3

! WC2

! WC1

! Wco

READ/WRITE

(eus ADDRESS)

]

i!
!
i

iBALS ! BAIY ! BA13 ! BAL2 ! BAIl ! BALO ! BAY
RERD/WRITE

! BA7 ' BAB

! BAS

’

s ———————————

:
.

! BAB

! BAY

! BA3

! BR2

! BAl

! BAOD

READ/WRITE

TALWYSO!

LO4

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77 11:48 PAGE S1
CZR6GB.P11
02-DEC-77 10:46
BIT ASSIGNMENTS IN THE RKbll REGISTERS
7

;RKER (ERROR REGIgTER)

ee79

i DCK ' UNS

! OPI

! DTE

! WLE

eesl
82

2280

)

;

SEQ 00s0

)

READ ONLY

! IDAE ! COE
S

it o

558%

: BSE ! ECH

2287
2288

! DTYPE! FMTE ! DRPAR! ILF

! SKI

! ILC

RKDS (DRIVE STATUS)

533

:SVAL ! DSC

agg?

2294
295

2298
5 99

2302

2333

! PIP

DROY !

! DTP

! DRA

;

e
e e

RKMR1

(naxnrsnnucs REG 1)

2307

ggi?

2312

IMIND ! MSP

! DMD

S%i&

! DROT ! Ezbs ! ACLO ! OFSET!
R

'RD__

2308
2309

ON !

R?Po ONLY

Sgos

2306

e
e P
L

aggg
00
2301

! HVRC !

ees3

saae

! WRT ! ECCW! PCD ! PCA ! MEWD ! MERD ! MCLK !

‘GATE ! GATE

READ ONLY

;

i READ/WRITE

;

e
e

;

! PAT

! MS3

! MS2

! MS1

! MSO

READ/WRITE

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

CZR&GB.P11

02-DEC-77 10:46

MO4

11:48

PAGE S2

; RKECC/PAT
: 15
14

§313

Ve
W Rl B R

PUN ' UN !

2321

et Sy2

FA AR

f o iHadl B

2324

! UN ! UN ! EPAIOD' EPA9 ! EPAS !

;

8458

SEQ 00s1

BIT ASSIGNMENTS IN THE RK&11 REGISTERS

5 15
19

5318

:EPA7 ! EPRG ! EPAS sREPnu ' EPA3 ! EPA2 ! EPAL ! EPAOD !

gg;

S XD AR

328

; RKECC/POS

gggg

:PUN

2334

)

2337

‘EPO7 ! EPOB ! EPOS ! EPO4 ! EPO3 ! EPO2 ! EPOl ! EPOOD !

£338

Sawo
ag:é

2343

§3.d
gigg

aawg

§§§5

8.7

SO,

EPQ12'

WO,

ggig

...

; ’

SO,

339

O02-DEC-77

EPO11!'

RERS SNLI

EPO10!

EPO9 !

EPOS !

aef e A el R

D i i s Ay

ARG

.-~

R o& B

A Sinly: A

;DRIVE STATUS INFORMATION

;LINE A MESSAGE 00

s 1S

: PAR ! DSC
-

! PIP
5

B st Kol

! SPON ! WRLK ! OFFON! FMT ! DRTP !
1

]

IDROY ! W ! DRA ! NU ! NU ! DRIVE SELECT CODE !

02-DEC-77
CZR6QGBO RKE DR _CPT _PROG MACY11l 30(1046)
CZR6GB.P11
02-DEC-77 10:46
BI

NO4

11:48

PRAGE S3

T ASSIGNMENTS IN THE RKB11 REGISTERS
;LINE B MESSAGE 00
;: 1S
14
13

!PAR ! UNS
s

! DROT ! DCLO ! WLE

! SKI

§ LDG

! REV

! FWD

:
: PAR ! UNLDG! RTZ
:
;

HDS

! PERR ! ILF
1

! SPEED! CART !
i

PRES !

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

iDOOR ! BRUSH! HEADS! TRK
;LTCH !

HOME ;

HOME @

ngOHs

SEEK !
O MO !

PLO
ERR

!
!

DRIVE SELECT CODE !
H

DIBIT!
ERR !

'HEAD_'MR GTE'WR CUR! SEC ! NU ! NJ !

{FAULTIAND NOIAND NO! ERR
XISTON!WR GTE!

;

i
;

;
;

INDEX! MULTI®
ERR !HD SEL!

O !

1 !

;

o -

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

cfnsoe.ru

02-DEC-77 10:46

-DEC-77

BOS

11:48

PAGE 54

5 91

;LINE A MESSAGE 10

< 92
ggqs

;1S
PPAR !
B

[

333
401
2402

14
NU

13
NU

12
11
10
9
! CYLINDER DIFF/OFFSET VALUE
s

2405
2406

: PAR ' ALIGN'
:
i SIGN !

g;o?g

g:i;
2413
2414

:
CYLINDER ADDRESS
.
:LINE R MESSAGE 15

2'4%

! PAR !

5-407

]
'

gSRR ey T ey

DRIVE SELECT CODE !

]

CYLINDER ADDRESS

'
i

408

5319

R NG | AR

§as?

i 7

- M

g_zgg
28

1
i PAR !

.LII“E B MESSAGE
1113
14

429

430

2335
2433

a:gg

5435

2437

ggzg

000000
0002
000004
000006
000010

UN !

UN '

Bl . DR

3O g

SECTOR COUNT

'
0

DRIVE SELECT CODE !

2
!

RKO& CONTROLLER REGISTER DEFINITION

RKCS1=
RKWC=
RKBA=

O
2
4

&
10

R ek .

11
10
DECODED HEAD

.SBTTL

RKDR=
RKCS2=

SR . R | s Rl W . B

; DRIVE SERIAL NUMBER

52353

DRIVE SERIAL NUMBER

augg

2445
2446

:CYLINDER DIFF/OFFSET VALUE!
y
;LINE B MESSAGE 12

22:83

2442
2443
2444

SEQ 0053

ecfi ASSIGNMENTS IN THE RK&11 REGISTERS

]

]
! SECTOR!

i COUNT i

1
'

0
'

;CONTROL AND STATUS REGISTER 1
iWORD COUNT asgxs ;n
1 BUS
SS
REGISTER

:DESIRED
TRACK SECTOR REGISTER
:CONTROL AND STATUS REGISTER 2

COS

SEQ 00S4

02-DEC-77
11:48_ PRAGE SS
CZR6QGBO RKE DR CPT PROG MACY1l 30(1046)
RKO& CONTROLLER REGISTER DEFINITION
CZR6GB.P11
02-DEC-77 10:46

203

45?7

e4sy

RREE g

e4sl

000012
000014

2447

Eflgg

3000

Rfisnfir
le
§x8§= é&
=

sfigc:Lz 20

e e

Ty ey

o
Emmmfoo—o—
e
VROESh-[R8R

O e

8\1\10':&
N
L0

R azcxsrsn

;oe; RED g

eAT:. 32

Tf
TE pieommTIo
ECE PRHEAY

Ripeas 38
-

RKECPT=

DRIVE COMMANDS

SELDRV= 101
=
1

= 11

ggcgf'é 115
orrggn P;

el
“ES’ ies
-

WRHERD= 127
WRTCHK= 131
:

E“é'i

10N

s SELECT DRIVE
n?x nsxnouLsocs

-srnnr SPINDLE

:RECALIBRATE
,orraev

; R xrs onrn

u:aoen AND DATA
CHECK

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

TO SIMULATE A SPECIFIC DESIRED OPERATION

RELEAS= 140

sogrnr: 1»&

i?s
Cgflttg;
SUBCLR= 177

; RELEASE DRIVE

IGET nkthrn;gerRon DRIVE

RE caxr 15 OF CS1)
'gsa?ROLLEEECLE
:SUBSYSTEM CLEAR (BIT 5 OF CS2)
:GENERATE INTERRUPT TO CPU

INTR=

300

;

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 00l

DR.CLR= 005

010000

E¥R°RTREGIS
;Beéiasé
ngsnn2"?sFSET REGISTER
:33
NRNEE REGISTER1
:MA
"rzunnceREGIS Ln 2

;

002000
004000

;DRIVE STATUS a:cxsven

RKMR1=
52
RKMR2= 34

SBTTL

5006
B8g8ssassases

n
PRPPRPY s TERE PP 22
£
] \No
NN
2 R 2833 NN
2 AL
4A

246l
b2

RKDS=

;DRIVE SELECT

:DRIVE CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

GO=

BITO

BIS
Bl
¢DT= BITiO
CT0=

BIT11

CFMT=

BITI2

;GO BIT

BE
ROL gsxvs 1TYPE (0=RKO6, 1=RK07)
coni
CONTROLLER

TIMED OUT WAITING FOR

DRIVE nsspouss

CONTROLLER DRIVE FORMAT (0=22 SECTOR,

1=20 SECTOR)

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

DOS

11:498
PRAGE Sb
02-DEC- 77
CONTROL AND STATUS REGISTER 1 BITS

3R B&333%%33M¥
DD TN £ N-0.B B IR 26

CECR=

Bitis

SEQ 00SS

Bg}si ?U?RRUsTY ERROR DETECTED BY CONTROLLER

i CONTROLLER EFBRR

HE SE BIT DEFINITIONS ARE USED FOR RDDRESS
H
E OF RKCS1

B BAl5: BH1Y
B GPAT- Bifa

882¥58t‘§§ BRIVE FoRMa 40?5533'§E§¥853 1=20 SECTOR)
;MASK FOR DRIVE SELECTION CODE

DESELECT OR RELEARSE

iin
.'<‘

:% ot
Ko

B B

855
———

D
l'

g B bt Bt B P

— -

-4

et Dt P

0D DD 0D tH{D T € T (D D T

e o o
e o i
i i 1 i D
b=t ba s s e b O O NN
LW W
nLwn~-o0

CONTROL AND STATUS REGISTER 2 BITS
M

.SBTTL

iBb2 ABBRE22 BIT 1%

ERROR REGISTER BIT oerxnxrxou

BITO

Bi¥é

BIT2

E{;g

ILLEGAL ruucr*gn CODE

uucrxon

: ILLEGAL DRIVE FUNCTION

,pfl

ED DRIVE BUS PARITY ERROR

:DRIVE TYPE ERROR

BIT8

iHEADER CRC ERRROR

SIT?
E o]
T

5588

CTOR ERROR

1CYL
ESLING R

ITio
BIT1I

i INV
'R T

BIT14

iDRIVE UNSARFE

Exrxe
IT13
100000

; ILLEGAL FUNCTION CODE

BITIS

SS OVERFLOW ERROR
REoe

ox
ADDRESS ERROR
x

.on
nx
:OPERATI
<senncn) INCOMPLETE

:DATA CHECK

STATUS REGISTER BIT DEFINITION

CZR6QBO_RKE DR _CPT PROG MACY1l 30(1046)

CRe08 P11°
2559
2560
3
o2
2563
2564
2565

5265
3
Sgge
2569
2570
2571
72
73

DlOS-DECSFS 1046

_02-DEC-77_

DRA=

000004
000010
000020

OFST=
BIT2
cLO=_
BIT3
SPpLSS= BITH
DCLO=
BITY
DROT=
BITS

8002

000400
004000
020000
040000
00000

8875

DRy== =

DoT=
WRL=
PIP=
DSC=
SVAL=

.SBTTL

744

000017

2579

000020

BITO

BIT?
BIT?
BITS

BITIl
BITI3
BIT1H
BITIS

BITY

;FORCE

BIT?
BITS

:MAINT
MAINT

001000

MERD=

2586
258

004
010000

2589
2530

040000
00000

2594

000040

S.DRA=

2
2597

000200
000400
001000
002000
004000
010000

5.0Rv=_ BIT7
§.TYPE= BITS8
S.FORM= BITS
S.0FF= BITID
S.WRL= BITIl
5.SPIN= BIT12

gggg

2535

2599
3
260

3
2603

0000

000100

0200
040000

2605
2607

2608
2609
2610
2611
2612
2613
2614

000040

0001
000200
0004
001000
002000
004000
010000

WRITE LOCK
;POSTTIONING IN PROGRESS
DRIVE STATUS CHANGE
STATUS VALID

PAT=

2584

:;83135
DRIVE READY
READY
DRIVE TYPE (0=RKOG,1=RK0?)

;MESSAGE MASK

DMD=
=

2585

;ORIVE AVAILABLE (CONTROLLER IS SET IF
!
THIS BIT IS RESET
:DRIVE OFFSE
AC_LOMW
: SPEED LOSS
iDC L
:DRIVE
OFF TRACK

MESMSK= 17

000040
000100

00
000400

SEQ 0056

MAINTENANCE REGISTER 1 BIT DEFINITION

2580
2561

82
2583

EOS

_PAGE 57

STATUS REGISTER BIT DEFINITION

000001

11:48_

MIND=
MCLK=

BITS
BIT6

BITS

M
MAINT

BITiO

:MAIN

ECCW=_

BIT13

iECC

BITIl
BITI2

WRTGAT= BIT1H
ROGATE= BITIS

TOR PULSE
ROEX

MAINT

MEWD=
PCA=
PCD=

EVEN PARITY ON DRIVE BUS MESSAGE LINES

i
PREC
: PREC

WRITE
READ GATE

D READ DATA

T
TION

D WRITE DATA

VANCE
DELAY

IS BEING READ OR WRITTEN

.SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A

§.vw=

BITS

BITE

;DRIVE AVAILIABLE

: VOLUME VALI

i DRIVE" READY
:DRIVE
TYPE
DRIVE _FORMAT
iOFFSET
{WRITE LOCK
-58§
E ON

POSITIONING IN PROGRESS
DRIVE STATUS CHANGE

5.PIP=
§.05C=

BIT13
BITIH

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 0O MESSRGE B

S.ICYL= BITS

§.ACLO= BITE
S.FLT= BIT?
S.ILF= BIT8
S.PAR= BIT9
§.sKl= BITIO
S.WLE= BIT1I
5.5PLS= BITI2

; ILLEGAL CYLINDER ADDRESS

*AC_LOW
jORIVE FAULT
:ILLEGAL FUNCTION
DRTVE DET CTED DRIVE BUS PARITY ERROR
:SEEK_INCOMPLETE
WRITE LOCK ERROR
:SPEED LOSS

3242 2338

-rngggoucsn 0K

iHE

Ecugnc

ED
58832H¥NTERL0CK
INTERLOCK

:CARTRAGE
:SPEED OK

or-0
ND
no nn
n

RETURN 90:§£no
:HERDS L

:HEADS UNLOADING

DOOODDOO0DD

DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B
B
R 0 1 1
o
B Pt et e e ) 0D N O
LW—-0

T4
1S

;SECTSR ERROR
;WRITE
CLOCK AND NO WRITE GATE

;WRIT

—

LA LR T 1
LR TR 13

BITIS
3

ITOOOmMVO
mMMoD< <<
20

007000

zxx3II3II

COMMON MASKS
000007
100000

TE AND NO TRANSISTIONS

TION

Iot . . -

DOBBODOON
mmgmmwmmmmm .

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A

.SBTTL

0
040000

;DC LOMW
;DRIVE OFF TRACK
;DRIVE UNSAFE

040000

IT12
S.DCLO=
S.DROT= BIT13
S.UNS= BITIY

¥DXIMO

020000

010000

oRORRoR08
3
R
AREREELLS

11:48 PAGE S8
RKE DR CPT PROG MACY1l 30(1046) Dg?-DEC-??
FINITION OF DRIVE STATUS BYTE 00 MESSAGE B
.P11
02-DEC-77 10:46

N SEEK

CZREQGBO_RKE DR _CPT PROG MACYI 1 30(1048)

CZR6GB.P11

02-DEC-77 10:46

11:48

GOS

SEQ 00ss

RRRHE?ERBLOCK ALLOCAIgfl

sgsg

.SBTTL

PARAMETER BLOCK ALLOCATION

2659
2660
61

;®
"
ix

nnnnnuunuunuuuuunnununuu;
' con%
! DRIVE NO.
g gt.s
R ADDRESS
_—
:

0
5

2663

‘¥ 7

IBA gw& fi"

‘e 35
-

I C
J

Sees
Ssss

5
2

i OFFSET

Rx 13 IP %gt
iyLflsonmnou
Ut L
onva
§
S?
1% 17
1 C
gg TATUS gc STER 1

2667
ssse
[T

2670

1% 25

i¥ §7

2673

E: 33

BERIRED

: ATT

TAT
REGIS

GISTER 2

REGIS gg

CVLINDER®

CCTOR

i 16
i 20
i 22

: gs

2677

T 43

‘¥ 45
R 74
‘% 5]
1% 53
1% 55
¥ 55
P®

LL 2 TAT
YTE
01
iyy
TAT
YTE Ol
i yg
L 2 TA
YTE 10
i 50
L
TAT
YTE 10
i 52
L S n‘n'"u:§ 11
i 54
E *
&!
i B2
lIullnll“"“nnlunnl"uuuuu""!nn

51: 133

.SBTTL

PARAMETERS PASSED TO THE DRIVER

2690

;

THE FOLLOWING

gggé

2693

000000

DEFINITIONS ARE USED TO PASS PARAMETERS

T0 THE RKOB/RKO?

P.DRVN= O

YTE 00

: %

2678
2679
2680
2681
2682
5685
Sggg
D

mrus

iP14
18
i 2y

;fimv AND DRIVE OFFSET

DRIVER

;DRIVE NUMBER

2694

000001

P.CMND= |

2697

P.JRCK= S

;mncx

P.PRST= 14

: PROGRAM onxvs STATUS mronmnon

2695
2696

S8a0
S70s
g;ga

000002
000004

800003
000007
000015
000014

5;%

P.CYLN= 2
P.SECT= 4

p:2ETh:
P.BAHI= 57
P hcs- 13
.SBTTL

;cw.*wn ADDRESS
:SEC

keI
BITS B-15
,gus g%ss
(BITS 16 AND 17)
t HORD COUNT (2°5, COMPLEMENT

PROGRAM DEVICE STATUS REGISTER DEFINITION

5708

200002

BRVEOS= BIT1

i DRIVE &o'i?i

5710
2712

200029
000040

BRuRD=
BIT4
DRVDSC= BITS

8“%52“’
°~8£5‘s OR
:DRIVE STATUS CHANGE DID NOT CLEAR

2709

000004

DRVPDT= BIT2

:DRIVE

xouso FOR DATA TRANSFER

CZREGBO RKE DR CPT PROG MACY1l 30(1048)
CZREQB.P11
02-DEC-77 10:46

000100
000200
000400
001000

002000

73888
8000

02-DEC-77
11:48
PAGE &0
PROGRAM DEVICE STATUS REGISTER DEFINITION

CMDTO=

BITE

;NO Tennxuarxon TO COMMAND FOR AT

W.WCK=
BIT?
NOCHK= BITS

un&?

PBSVAL= BITS

WORDS VAL ID

xunrxon OR

D0RIVE r§on TEST ssousmuLT Mt

B9 11
5
%Eir1u
DfBAII=
BITIS

I8 B
ggfinnf
cln§§5:g§°u§
?R
;erxnrxon QUEUE
INHIBIT
NCREME

.SBTTL

PARAMETERS PASSED FROM DRIVER TO PROGRAM

THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS

FROM THE DRIVER TO THE CALLING PROGRAM

p:Ga3: 2816
P.WCR=
22
P.BAR=
54
P.DTS=
26

G
SM&B TAT
mfl? RECISTER
&
g
T0R
REGISTER

P.CSl=

P.DCYL= 30
P.ASOF= 32

rsu

GISTER
/orrssr REGISTER

Pbo:
PR3- 33
P.BO0=
42

srn&
"Sgé
§a$us gv

92216; 5
Pall:24

;
'

B EPRY: 22
.SBTTL

PARMO :

TATUS

BYTE oo

2 TAT
YTE 10
°§¥2¥§
"n 17

EEE PRTIEAR
1 oSmn

PARAMETER BLOCK O FOR DRIVE

Wi
YT

:;gnx

"WORD
'BYTE

O
O

:CYLINDER ADDRESS
i
SECTOR
S

‘BYTE

BYTE

3555

;

IOFFSET Vi

;Bus ADDRES!

(axrs 16nno)17)

: PROGRAM gfis

ETéurgnnnrxon

WORD

£u3§on888§§s%éonp

WORD
WORD
WORD
WORD
WORD

O
O
O
O
O

: COMMAND
TUS RE
:COMMAND
AND STATUS REGISTER 2
:WORD COUNT
REGIST gn
:BUS ADDRESS
ISTER
‘DESIRED TRACK AND SECTOR REGISTER

WORD

002666

WRITE CHECK

oo no SET INTERRUPT ENABLE

Pnannersk STA

DRPDRV= BIT10

2768

SEQ 0059

CZR6GBO RK6 DR CPT PROG MACYLl 30(1048)

cznsgg.mx

5;23

02-DEC-77 10:46

02-DEC-77

11:48

;7%

WOR

.=§s§

o 8
o

.%33
WORD
‘WORD
WORD
o
CWORD

2;}3;;

.SBTTL

£785 Dos75e

PARML: WORD
. BYTE

3O
OO

» flE 8O
'WORD
.

CWORD
WORD

CWORD
'58%

"WORD
.ugsg
Eggg
WORD
HoRB
WORD
‘WORD
WORD

756
;22
806
00576e
230° 002770
£809 DBas774
2810

883000
3002
003004
003006

:DESIRED CYLINDER REGISTER

;ggENT'IEGG{éWRY/OFFSET REGISTER

R
eeo
9

;

LINE B

WORD
WORD
WORD
WORD

O
O

O
g

O
8
O
0O
OO

O
O
O
O

: A N&?(gns
16 AND 17)
;BUS
(BITS 0 - 15)
’

: WORD
: PROGRAM
:C
‘fiono

(2'S COMPLEMENT)
énronmnon
gmr

’

BUS
'3%2
52 N
Esm?
iEneg
NE22AGE
tNESSACE
i MES

ISTER 1
GISTER 2

x R%cggn’anscxsrsn

5n£g
L E A STATUS BYTE 11
:ME
L
B STATUS BYTE 11
{ECC POSITION INFORMATION
:ECC PATTERN INFORMATION

000000

T.CS1:

.WORD

gggg
gz:gii gggggg
2823 003016

T.CS2:

2824 003020 888388

TAT
TAT

‘fs R
%&v/ 555 REGISTER
;gn
LLINE :E BA STATUS
BYTE 00
grmus BYTE
Ol
LINE
A §¥2¥Bss BYIE 10
LINE B STATUS
10

TEMPORARY CONTROLLER REGISTER STORAGE

003010

YTE 00

;OB
AHaNDER
Ecw.;gca ADDRESS

.SBTTL

ggig

STAT

;gs
smtgg svrs
;mgg LL E AB STAT
YTE 01
Ol
iEnesggé
NESSACE
LINE
L fi BA STATUS
STATUS BYTE
BYTE 10
11
BEERGL et
e L
{ECC PATTERN INFORMATION

PARAMETER BLOCK 1 FOR DRIVE

‘

%8{9

SEG 0060

PARAMETER BLOCK O FOR DRIVE

S;N
arg
;%
57
4
577?978
-Z-i-"i
e
Rl
a;gg 002722

Smé
81
2813
ggig

105

PAGE 61

ETE%%RRRISTERSIORRGE FOR COMMAND AND STATUS

TT.BA:
:i: .WORD
:2:2 1O0:

: TEMPORARY STORAGE FOR COMMAND AND STATUS

'WORD

: TEMPORARY STORAGE FOR BUS ADDRESS REGISTER

r.gn:

5755505255“5%@%; FOR WORD COUNT RESISTER

: TEMPORARY STORAGE FOR DISK TRACK AND SECTOR

3042
3044

000000
000000
000000

R
o I

SEQ 0061l

TEHPORRRY
R

FOR DRIVE

CYLINDER

g 32325 FOR ATTENTION SUMMARY

¥EHPORRRY 3733232
F SRIVE g$G¥STER
GISTER
REGISTER 1
g"sm
fios Ei BVIEE
(ERICTH E
;T HPORRRY ST

FOR ECC PATTERN
FOR DATA BUFFER REGISTER

DRIVER PARAMERTERS
- WORD
D

S840 00050 DODal0
Ky

77440

003052
003054
883056
3060
003062

000240
030272
031504
031000
00000

177440
ell
PRS

RDggEgg 8; RKSIIVEN¥BUS ADDRESS BLOCK

agRITY
NTERRUPT

RDO

FROM DRIVER

FRO?URRIVER

CT§IONCLRRED HHENEVERYRCOHHRND
¥QTEPOLLOHINGgNT
RSSIGNHENT IS

mmmmmm

003064

000000

003066
003070

000400
000400

EEX

.MTIM:
+MILI:

Y REG

Tl
TENTION (SEQUENTIAL
ONLY)

ERROR

RTTSN% 2 NOTTYPE
RESET WITH CLEAR

DID NOT CLERR DRIVE

%scgk HxEN CO""RN?NG HERD
PRRYRING

RIVER SERVICING

DRIVE
"E
: CONTROLLE COHHRND T
OUT (QUEUED ONLY)
iMULTIPLE DRIVE SELEC
PRRRHETER BLOCK OF THE DRIVE

. WORD
. WORD

i WAITING ?R COMMAND COMPLETION
;LOOP COUNTER FOR MILISECOND SCAN OF DRIVE
16 MILISECOND TIME FOR PROGRAM

R NN

mmmmmm

000100
000400
001000
002000
040000
100000

CLERR ONT ?*8
NOT Cg
NO RTT
NTION

00000
000010
000020
00004

000001
000

ggg?

2852
853
2854
2855
2856
2857
2858
2859
286
2861
ef
2863
2864
2865
2866
eB67
2868

00000000

2@;7

2841
2842
e84
2844
84S
a4s
2847
2848
2849

-WORD
- WORD

[

.DC:
:
.ASOF

000000
000000

:
cE

3022
3024

e b I

BBBBDEH DD
AR
FR O83

282s
2826

JOS

11:48
PRGE 62
02-DEC-77
TEMPORARY CONTROLLER REGISTER STORAGE

Lo [

CZR6QBO RKE DR CPT_PROG
HgCYél 30(1046)
CZR6GB.P11
02-BeC-77

CPU

/4S5

VALUE

400

CZREGBO RK6 DR CPT PROG MACY1l 30(1046)

CZREGB.P11

02-DEC-77 10:46

02-DEC-77

11:48

DRIVER PARAMERTERS

2881
286

003072

000300

W.SEC:

330000

003104

3000
000000
000000

W.MIN: .WORD

3074
76
3100
102

003110

002

I1.ISRL: .BYTE

;-3?

003105

000

2883
ECER
=3¢
2886
cb8/

2889
SO

000

g83¢

‘:gg

003111

000

gtagg

G|
112
S:EIQ‘!
%gus

001
002
004

2903
2904

040
100

2900 ggauu
5%5
3115
003116

003117
003120

003121

2912

ggh

003124

2917

003126

2925
2926
2927

2931

gag

3
2934
2935
2936

2,4,10

W.TIME: .BYTE

003127
:ugo
3131
3132
133
3134
3135

003136
003137
003140
gm
142
143

3144

132

1
003147
003150
003151

000000
000

000
000
000
000
000
000

004
000

000
000

000

000
000
000
000

O
O

;

INTERRUPT MASK TRBLE

I1.0RV:

.BYT
-BYT
BYTE

.BYTE
.BYTE

.BYTE
"BYTE

.SBTTL

§
10
20

40
100

BYTE
200
PARAMETER BLOCK TARBLE

PBLKT: PARMO
W.DRV:

.SBTTL

MDFLAG:

SEQ 0062

; SECOND COUNT coggr FOR ALL COMMANDS
:
gécem START
SPINDLE

8
ovg FOR oaxv; CYCLE DOWN
IME FOR START SPINDLE
: RDDRE sogs:o FOR READ ALL HEADERS
;uunaE ’Ewgsnosns LEFT TO READ FOR READ

IMINU

Em%nau?r OR RELERSED COMMAND ISSUED
s

: HERD gccooss

:DRIVES

BEING WATCH-DOG TIMED

INTERRUPT MASKS

INTMSK: .BYTE

.SBTTL

5915

2921
eeag
292
2924

H.HERD: .BYTE

200

gi?

2918
2919

3000
30000
O
O

010
020

aqoqai
08 003122 002640

916

010

300

W.BSEC: .WORD
HDR.AD: .WORD
HDR.CT: .WORD

.SBTTL

[ 4 - b |

5382
2907

004

.WORD

KOS

PAGE 63

; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK
: INTERRUPT MASK FOR
DRIVE O
Efm
RRUPT MASK FOR ngvs
1

: INTERRUPT MASK FOR ngvs 2
; msnaum MASK rgg
IVE 3
: INTERRUPT MARSK FOR
DRIVE 4
: INTERRUPT MASK FOR 8§xvs g
: INTERRUPT MARSK FOR
DRIVE 6

: INTERRUPT MARSK FOR DRIVE 7

;ADDRESS OF PARAMETER BLOCK GIVEN WITH
'DRIVE CALL.

MUST BE LOADED INTO PBLKT

TIME FOR WATCH-DOG TIMER

.WORD

: TIME F?R INSTRUCTION IN PARAMETER BLOCK

PROGRAM SPECIFIC RESERVED LOCATIONS
.BYTE

TSTING: .BYTE
osn NT:
TE
OPCOMP: .BYT
DONE:
.BYTE
TYPFMT: .BYTE
ORMAT: .BYTE
ERRCNT: .BYTE

O
8

O
O
O
O

;FLAG TO INDIC.

DEFLT OR PARAM MODE

:CURRENTLY RUNNING TESTS IF = 1
:DATA ;naon 8?#“7
:OPERATION COMPLETE FLAG
:DONE SWITCH
:DRIVE
TYPE & FORMAT CONTROL
:DRIVE
FORMAT IN BIT 4 OF BYTE
;ERROR
COUNT

ERRLMT:
ERS:
OPCONT:
DRNAFG:
REISSU:
TSTTYP:

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

4
O
O
O
O
O

{ERROR LIMIT
;ERROR COUNT FOR CURRENT DRIVE
:OPERATION CONTROL SWIT
:=1 INDICATES DRIVE SIEZED BY OTHER PORT
;ouaginc
FLAG TO RE-ISSUE COMMAND
;OFFSET
TEST
IDENTIFIER

WCEFLG:

.BYTE

‘WRITE cnscx

DCEFLG:

DLTFLG
DIF100:
NORTRY:
MEMABT:

.BYTE

YTE
.BYTE
.BYTE
.BYTE

O
O
O
O

:DATA CHECK ERROR FLAG

RROR FLAG

:DATA LATE
ER
FL
i®CcyL DIF = 100/200" FLAG
:*NO-RETRY”
FLR
iSET BYTE = 1 FOR NO RBORT

RK®& DR CPT PR
99 MACY11l 30(1046)

E2REGE P11

02-DEC-

10:46

2937

11:48__PAGE B4
p2-DEC-77
PROGRAM SPECIFIC RESERVED LOCATIONS

: .,.;fii‘%%

HLPOVL:

.BYTE

NOTYPE : gYTE
LOGDRV :

HRITE
CFECK??!TR SW TC

MEMVEC=114

EER%E
HObY TRAP VECTOR

ACT:
CMD:

.BLKW

0,5,8,0,0,0

COMSTR:

.WORD

o,0,0,0,0,0

Eurro%

.BLKW

LICOCT: ‘HORD

E
VALCE: ‘HORD

gurpnr:

WORD

chnus; -WOR
INTCHR:

WDSXFR: Ebno
FINTRK:
FINSEC:

LASTWC:
uou:
S asv :
VLST:

.WO

PLOFST: 25858

ga%gai.

;

000
0000
g

.gvr
.BYTE

.WORD
"WORD

"BLKW
‘BLKW

.WORD

.BLKW

gflTR
SWITCH
ITCH
ITCH

RSc

DRVPTR:
SCRLST:

00sse6

PATOO:

.WORD
.BLKB

F ER 1
OF C

,OUTPUT
?H ls

50 &
DRIVEIN USE

T_IN
'?F
K
*
STTY INTE

; (+) OFFSE
; (=) OFFSET

0
O
O
O
2
2
O

;FINAL SECTOR

;ACT

;NEH L

O
8.

RTED _BINARY NUMBER

STRLLS TO APPLY
EURfiNT CYLINI!H‘IT

;SAVE INIT
,Pom

HIGH
ONVER ED BINARY NO.
BI.FFER POINTE

NPUT WORD

RATCH WORD
LIST WORD
UE

F
flCTUfiLSLY XFERRED
S

AT ONLINE DRIVES

Efl““fionfi‘%&?’i"
S s1omegs (escls)
rso uxcu BYTE IS SUBSYSTEM
1SDRIVE NO.

(ASCII).

:! IF ubno= 0 o IVE IS NOT TESTED.
NRHE

00SSSH4
00ssSe

; CURRENT COMMAND STORAGE

;RL%;DATA

000000
000000

LOG
CR*LgnswORQED IF O

SW=BIT2
RC
SW=BIT3
OREQSW=BITH
EVEN

rgwéx?x

000000
000000

RR ORS

CRTOR

azfzs"‘?mss okesmas"s?afl

W=BIT

BSSOFT:

MEMORY PAR

ey o ]
\WORD
RS - .BLKW

BB BBBDBBD
PR FEARN

SEQ 00e3

:DRIVE LIST POINTER

*SCRATCH DRIVE LIST

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

O02-DEC-77

11:48

MOS

PAGE &S

SEQG 0064

PROGRAM SPECIFIC RESERVED LOCATIONS

993
9
)

.
;

:TABLE A

2998

tABLEA:

. WO
WO
- WO
.

HORD

3025
.

3034
3035

3839

3038

005766

3040
Yy

7
772
7749
776

3033

3044
3045
304
3047

3048

00S766

006004
006006

006010

072307

‘HoRD
-WORD

1446,4

WORD
WORD
WORD

1446, 12
1446, 14
1446, 16

072307

135143
156461
167230
3514
035646
016723

135143
156461
167230
073514
035646
016723

061672

107351
14356

1444,6

1444 1
1444, 1
1444 14

.TABLE B -

tABLEB:

1444, 0

- WO
:
0

.uogg
WO

3031
3032
3033

’
gl
655’4
:SS:s
622, 10

gCWORD
uogg 14442
1444,4
.WO

ggno

3053

£58:
’ 12

’

3
10
i
:
12
;;
13
14

‘:

16
17

CORRESPONDING CYL NUMBERS FOR THE RKO?

.WORD

‘

;

625’14
.335:15

:TRBLE A TABL7A:

620,65

620,49

HoRD
.uosg

30}9

filg
3020

;DRIVE
.

620, 14

fi%
11

15
ig

620,0
0,2

.WORD

o.
‘WORD
- WO
- WO

BASIC READ/WRITE TEST SECTORS FOR RKOG

.WORD

3005

107351
143564

iz:{i.m

1dde’d

{w?,s
446, 10

i12

;DRV 0

T
H
H3

;zo

112

113
114

i 15
116
117

WORST CASE DATA PATTERN

NOS

PAGE 66
11:48
02-DEC-77_
CZR6 QB0 RK& DR _CPT PROG MACY1l1 30(1046)
PROGRAM SPECIFIC RE SERVED LOCATIONS
CZR6GB.P11
02-DEC-77 10:46

SEQ 0065

WWWwww

ZOR=28388
-

b
e s b

goeies
+TABLE OF STARTING CYLINDERS FOR ALL OVWRT AND COMPAT CYL BLKS FOR RKO&

tABLEC: .WORD

0,60

- WORD

gooza

.WORD
.WORD
.WORD
;TRBLE C
TABL7C:

400,460
500,560

;FOR CURRENT ZONE

3
:
:

CORRESPONDING CYL NUMBERS FOR RKO?7
.WORD

0,160

; CURRENT ZONE 1

-WORD

400,560

.WORD

200,3

.WORD

600,760

.WORD
.WORD

1200, 1360

.WORD

1000,

:CYLINDER BLOCK LAYOUT TABLE

tABLED: .BLK

.BLK
.BLKB
.BLK
.BLK
.BLK
.BLKB
.BLK
.BLK
.BLKB
.BLKB
.gLK
.BLK
.BLKB
BLKB

.BLKB

16.

16.
1b.
16.
16.
16.
16.
16.
16.
16.
16.
16.
16.
16.
16.

16.

¥
4

43
s7

;CYLINDER O IN BLK

;
:
;
:
;
;
:
:
;
:
:
:
:
;

:TABLE G - PSEUDO-RANDOM DATA PATTERN

tRBLEG:

040135
177070
070414
064531

1
e
3
4

5
6
7
10
11
12
13
14
15
16
17

NoOnLswn

iFasaatanacnFaaasetetststetetatate]
CERERRR AR
S

0}
£

12
14

CZR6QGBO_RKE DR

cggoe.ru

MACY11l 30(1046)

OS-MC-

10:46

DO NTFNLWN—-0O

s Pt Pt Pt

7447,
&aq

02-DEC-77

BO6

:48__PAGE 67

PROGRAM SPEC#IC RESERVED LOCATIONS
174473

06242

03155

3 éo
2

001

00S
015
3%3

007

gos

go;

012
014

1
004

013

011

:LIST OF STARTING DRIVE NUMBERS, TO GENERATE TABLED

&ToLsT: .BYTE

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

002

B B Bt B

05134

Pt Pt

s Pt Pt Pt P

Pt P

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

_CPT

3127

3159
3130
gxax

572

135

000

001

007
013

010
014

sgg

003

po2

005

006

:LIST OF USERBLE SECTORS IN EACH CYLINDER BLOCK

&ecLst: .BYTE

31
3134

006

gizé

006612

000020

NOSCRO: .BLKW

006652

000020

NOSCRI: .BLKW

006712

000020

NOSCR2: .BLKW

006752

000020

POSCRO: .BLKW

007012

000020

POSCRI: .BLKW

007052

000020

POSCR2: .BLKW

IE
3135
313
3140
3143

3%33
3146

3i3§
3151

3i§§
3154

gigg
3157

gigg
2160

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

012
015

: TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR NEG OFST

16.

. TABLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR NEG OFST

16.

:TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR NEG OFST

16.

: TABLE OF OVERWRITE TEST SCORES FOR TRACK O FOR POS OFST

16.

: TRBLE OF OVERWRITE TEST SCORES FOR TRACK 1 FOR POS OFST

16.

. TABLE OF OVERWRITE TEST SCORES FOR TRACK 2 FOR POS OFST

16.

SEQ 0066

CZR6GBO RKE DR _CPT PROG HflCYll 30(1048)

CZR6GB.P11

02-DEC-77 10:46

onLswn—-0

bt b

e b

R LELL

R R W W W (W W () () ) G ) ) W W W W W W W W W W Wt W
.—.—.—.—o—p.—.—.......—;.—.—.—p-.—.—.—.—.—.—.—.—.—.—.—p.—.—..—.—.—.—.—;—.—
R —888IRR
2502833 ~N
R EAR R FRRAE LY H A A S

3161

CO6

ngcgsfi f?iRESERVEDLOCATIONS
nahs OF DATA COMPATIBILITY TEST SCORES FOR TRACK O FOR NEG OFST

007112

000020

NCSCRO: .BLKW

007152

000020

ficsc I: .BLKW

oo7z212

000020

16.

€ OF DATA COMPATIBILITY TEST SCORES FOR TRACK 1 FOR NEG OFST

1E.

figggLE OF DQTR C?EPRTIBILXTY TEST SCORES FOR TRACK 2 FOR NEG OFST

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

BCSCRO: .BLKM

0072s2

16,

E'OFBE“T“ C?EPRTIBILITY TEST SCORES FOR TRACK 1 FOR POS OFST

007312

000020

007352

000020

007412

000000

007414

000000

NSSCR1: .WORD

007416

000000

NSSCR2: .

007420

000000

PSSCRO: .WORD

007422

000000

#ggcnxz .uoag

007424

000000

PSSCR2: .WORD

007426

000000

OVRAVG: .WORD

007430

000000

8OMAVG: .WORD

007432

000020

ASCORD: .BLKB

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

BCSCRa: .BLKW

16,

&gELF-TEST SCORE_FOR TRACK O FOR NEG OFST
SCRO:

.WORD

:SELF-TEST SCORE FOR TRACK 1 FOR NEG OFST

:SELF-TEST

SCORE FOR TRACK 2 FOR NEG OFST

:SELF-TEST SCORE FOR TRACK 0O FOR POS OFST

:SELF-TEST

SCORE FOR TRACK 1 FOR POS OFST

-SEEF-TEST SCORE FOR TRACK 2 FOR POS OFST

. AVERAGE OF OVRWRT SCORES OVER ALL SURFACES

AVERAGE OF READ SCORES OVER ALL SURFACES

SCRATCH TABLE OF SCORES FOR TRACK O FOR NEG OFST

16.

SEQ 0067

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

11: 48

DO6

PRAGE 69

PROGRAM SPECIFIC RESERVED LOCATIONS

SEQ 0068

; SCRATCH TABLE 0§BSCORES FOR TRACK 1 FOR NEG OFST

NSCOR1: .BLKB

AR
i

:SCRATCH TABLE O§6$CORES FOR TRACK 2 FOR NEG OFST

NSCOR2: .BLKB

: SCRATCH TABLE OF 5SCORES FOR TRACK O FOR POS OFST

007512

PSCORO:

.BLKB

007532

pECORIS"
. BORE"

007ss2

PSCOR2: .BLKB

OF 6SCORES FOR TRACK 1 FOR POS OFST
1

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

LSTTRK:E

A—

.&;BHECK ERROR

Fo FOROFOR)
WP FORROROIA
R

:wgtl?&sfi"%

g
8

¥-Brren pont
r&"g“
§5?3t

(15>¢12>¢12>/CZR6QB0O - RKO6E-RKO7 DRIVE COMPATIBILITY PROGRAM/¢1S><l12><12

O
Or=
> L
0N

8RG

02-DEC-77

RKBRDR:

.RSCIZ

<12>/RK06-07 BUS RDR =

RKVARDR:

.ASCIZ

/RK0&-07 VEC RDR =

RKPRTY:

.RSCIZ

/RK06-07 PRIORITY =/

EOB

33
3327
3328

SEQ 0069

TYPSYS:

.RSCIZ

<«12>/TYPE NAME OF NEXT SUBSYS TO TEST

ASKTYP:

.ASCIZ

<12>/DRIVE TYPE

SYSDRV:

.ARSCIZ

/SUBSYS

WILTST:

.ASCIZ

/WILL TEST DRIVE(S) /

ONSUBS:

.ASCIZ

~/ ON SUBSYS

ANOTHR:

.ASCIZ

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

DROVFL:

.ASCIZ

<12>/MORE THAN 16 DRIVES ENTERED !/<1S><12><12>

SRPASS:

.ASCIZ

<l12>/#% STARTING PRARSS

MNTPAK:

.ASCIZ

<12>/MOUNT PACK ON DRIVE

DISPAK:

.ASCIZ

<12>/UNLOAD DRIVE

B&<CR> FOR RKO6,

(A-P)

7<CR> FOR RKO7:

DRIVE(S) = /

/<«ISXd2x<12>
? /

0420
0426
0434

488

?ié&

0 0!

1
li

NN LOonNWoN

SRR
0io3ve

010S
042116
0S3117

0040
0S1040
020105

040440
04650
040520

NO=-

2 B 5t ot Pt Pt Pt Pt Bt ot Pt Pt Pt ot Pt Pt Pt ot s Pt e P

333

DOV

5SULEEEOOEE

LWN—-0O

e Bt s s e =t et Pt Pt Pt P Pt s

[l e ol oo alada

RRRR
SaJotel
2

11:48
CZR6QBO RKE DR_CPT PROG MACY1l 30(1046) ng =DEC-77
PRGE 70
GRAM SPECIFIC RESERVED LOCATIONS
CZR6GB.P 11
02-DEC-77 10:46

¥R/C1S<12

AND LOARD.~ <1S><12>

AND REMOVE PACK./<1S><12>

FO6

MACY11l 30(1046)
11:48__PAGE 71
02-DEC-77
PROGRAM SPECIFIC RESERVED LOCATIONS
:

SEQ 0070

—

.-.-g

CZR6GBO_RKE DR _CPT
CZR6GB.P11
02-DEC-

.ASCIZ

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

./<«1S>
<12 12>

STR220:

.ASCIZ

<12>/START AT ADR 220 FOR PASS 2 ON SUBSYS

./«I1SX<d12><«12>

TYPRUWN:

.ARSCIZ

/TYPE R<CR>

WHEN

DRIRDY:

.ASCIZ

/DRIVE RERDY

DRIDON:

.RSCIZ

/7DONE

NODRLS:

.RSCIZ

/NO DRIVES LISTED FOR THIS SUBSYS

RESLTS:

.ASCII

<15><12>/SCORES FOR DRIVE

.RSCII

/TRACK

DRIVE

OVRWRT

RERD

RERD/<1S> <12>

.RSCII

/NUM

REARD

SCORE

SCORE/<15>¢12>

.ASCIZ

OFST-

OFST+

OFST-

OFST+/<
15> <12>< 12>

DO +

-_-__-

ACD

STR204:

]

7/
!/<«1S«<«12>

(0-12 DEC.)

:7<1S> <1212

B
e NWWWW— 8
Fea
1)
s,
—

ou—‘p—o—o[SoYsTasTasruiy
o
D008

b
wn
7T, = [

1
17
17
17
11

RARA PEEER

% RRRRE
' 2P

55 Rl

el
TM ]

e B
e

So)

B Bt s et Pt Bt B

e B

e e e e B

s e

Bt Bt s e e B

s Pt B

0000000000000
00

W
W
~N

S.:

GO6

MACY11 30(1046)
02-DEC-77
11:48 PAGE 72
10:46
PROGRAM SPECIFIC RESERVED LOCATIONS

O00000000000000000000000000000000000000000000000000000000

%{{Efl a0 005?15 000?1; OAVERG

115 %&ag3 ool oebiby

11151
11156

S22

Giewd

.ASC1Z
.RASCIZ

/SWR = 7/

020127

NEWMSG:

.ASCIZ

044522

020051

DRVSEQ:

.ASCIZ

<«15><12>/DRIVE(S) = 7

042526

BARDDRV:

.ASCIZ

/DRIVE

-0
on

NXDRIV:

.ASCIZ

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

NTREDY:

.ASCIZ

/NOT RERDY/<1S><12>

WRTLOK:

.ASCIZ

/WRITE-LOCKED/¢15>¢<12>

ALNPAK:

.ASCIZ

~/LOADED WITH ALIGN PACK/<1S><12>

REPLPK:

.ASCIZ

~/IF XXDP PACK ON DRV 0O,

NODRTS:

.ASCII

<«1S><¢12><12>/%#% NO DRIVES TO TEST/«<1S»<«12>

0S1523

CNTRDY:

.RSCIZ

~/PRESS "CONT"TM WHEN RDY-/<15><l12>

Bt
sp

9
14
101

360

S03

i?g

NEW = 7

116

005015
4

TYPE "Y <«CR>",

BrRS&den

03s04

2858

ARIS

/
/
/

TAB:
SWRMSG:

7/
~
/SELF

036440

i 1

o
W

SELF:

.RASCI1Z
.ARSCIZ
.RASC1Z

OgO
0S1127

:{5

TRKBUF:
DRVBUF:

Oé
1

ggsgég

40%

s /

004S06

——

7 RERD AVG

D46105

“4

.ASCIZ

688

Cromh =

11
40

fi‘

1
i

RASCIZ 7/ OVRWRT AVG = /

QBIIE G740

2 B

s ot Bt Bt P

11
11230
i

RAVERG:

SEQ 0071

020052 ENDTST: .ASCIZ «<15»«<l12><12>/%% END OF TESTING *x/<1S 12>

1176

042101
020040

iiigfi

et B Bt B B Bt Bt Bt Bt Bt s Bt ot ot ot Bt et s s s s Bt B B o Bt Bt ot ot et s s s Pt Pt ot P
Bt Bt Bt et et st et s Bt ot Pt s o ot ot Pt Bt ot P P P Pt s et s et P Pt e

P2EP

s Bt Bt Bt Pt e Pt

s e

bd
£
PEEPPIIIRRPY PEEEEY
SERZEREEBRVRREORS DO NN LW

8§RRQBBES 32

RKS& DRDgPT
.P 11
-DEC-

Se Y

REPLARCE IT :

HOB

02-DEC-77
11:48__PAGE 73
CZREABO RKE DR CPT PROG MACY1l 30(1046)
PROGRAM SPECIFIC RESERVED LOCATIONS
CZR6GB. P11
02-DEC-77 10:46
0S2116

Bosbie

097503

HLTRQD:

.ASCIZ

/HALT REQUESTED/<15><12>

DROXDP:

.RASCIZ

/DRIVE O IS LOAD MEDIUM/<1S5><12>

DROPDR:

.ASCIZ

<15><12>/%%

TSTDRN:

.ASCII

«15><12><12> /TESTING DRIVE ~

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

;D/<$E>(12>

CART:

.ASCIZ

/CART.

SERNM:

.ASCIZ

/SER.

NO.

FACTBS:

.ASCIZ

<15><12>/FRCTORY

SOFTBS:

.ASCII

12> 7/SOF TWARE ~

BDSECT:

.RSCIZ

/BAD SECTORS

NOFALS:

.RSCIZ

BRDB32:

.RSCIZ

/%%

CNTRLC

e b

b b

et g Bt

88%

101

SPRCEE

—==-ININININNNNN

osz2iz2e2

RV :ASELS

25805 Hnsaad

021040

DRBDDBBBBBRG
OOOOOOOOOOO0

g S

o S

St ot o

RN
RN N

g S

SRR SRR§_.._._._
PEPRIERE S

Lad od

O000000000000000000
000000000000000000000000000000000000
i
e e e e e S T e Y Yy e =
o =y ==t el wiw wwt ettt ettt et aputatatud egutat et et
s
N
n
LLrrrrww
£
NONW—NW S
£N
o2

oxfisqu

7/
/

:/<15<12>

NONE~/

CANNOT RERD BAD SECTOR TRACK!/<«1S>
<12

SEQ 0072

CZR6GBO RKE DR CPT PROG MACY11 30(1046)

CZR6GB.P11
02-DEC-77 10:46
ggg 012150 000040
99

ggo
1
gssg
3504
gggg

012152

012156
81 164
121

01217

020040
7527
440
076

000075
2122
40
000

000040

ié 012202
13

012204

012220

012222

355

ggsx

012212

012230

.ASCIZ
.RSCIZ
-RSC 5
.ASC
.RSCIZ

DFSTRT: CLRB

000403

112737

000001

112737

000061

112737

000002

000406
112737

000062

003126

PISTRT:

003155

PISET:

003126

P2STRT:

003155

12706

LSBTTL

001100

012706

001100

3530 E{awfi
01227 8{5;3%
127
3553‘
3535 153”5 127

012264

012737

044606

3537

01532
01
01233

012344

127
157 7
0127

0137

017550

017242

3539

012356

112737

000001

001115

3543
32“

813:83

81374

gogg.oq

0l2412

012737

177570

012420
015-433

0124

1273

012737
022777

001012

3551 012436 000403
3552

012440

012716

12940

177570
177777

012446

MDFLAG

;SET_FLAG FOR 200 START

PISET

MOVB

%1, MDFLAG

cMSIRT

MOVB

82, MDFLAG

MOVB

: CONTINUE

s’|, PASSNO

#'2,PASSNO

8PR?7, 28PS

;SET FLAG FOR 204 START

iSET PASS NO. = 1

: CONTINUE

;SET FLAG FOR 220 START

iSET PASS NO. = 2

:BLOCK ALL INTERRUPTS

;N TIALIZE THE COMMON TRGS

000020

02
333032
4

'’

000004

001140

001142
166504

ReT LOCATION TO BE CLEARED

BNE

O
e|CLEAR
RERGRY LocATTon
-6
" ;;LOOP BRCK IF NO

MOV
533
MOV

MOV

#$SC

MOV
MOV
MOV
MOV

2340,
s
#340

gggge

9k
c+2;LEVEL 7
d
C’;;POMER FAILURE VECTOR
'*“3,!5‘:* ; ;LEVEL
7

MOVB

81,

SERMAX

CLR

£ B Gl siss BBHGS
oY
3542
:;SIZE FOR A

gggg

mmnf?gs 5 Fgg %&

3
000036
4
000024
340 000026

3538 012352 oosog7: 001316

3547
3548

SEQ 0073

/WORD
7 = /7
7% /

PiCLERR e oM nTag. ke T he) AR

T 001374 —

3526 mgs&

3534
ggas
36

PRMBUF:
WORDSP:
coum§=
PROMPT:

012236 012737 000340 177776 CMSTRT: MOV

3255 012

106

PAGE 74

.EVEN

351chi 012176 105037 003126

ggxg

11:48

PROGRAM SPECIFIC RESERVED LOCATIONS
SPACE1: -232,’,2 o,

PRMPSP:

3507
3508

S14

02-DEC-77

::SETUP THE STACK POINTER

S8I0TVEC ;;10T VECTOR FOR SCOPE ROUTINE

&
s10TVE
sLEVEL
7
:fi%
go&n‘f;5%c';
-Ef‘fiLv;croa
FOR ERROR ROUTINE
.i‘r'flai nmfivég'f-sxsp VECTOR FOR TRAP CALLS
SEOPCT

APE

; ;CLEAR
$iALL

;@-or-mocnm COUNTER

Escap: ON ERROR ADDRESS
R TEST

LRPER
LN LG 00AOiness
Fon score
" Pgsmcu REGISTER. IF uog rouub OR ?9 IS

:EQUAL TO A *-1" gs\r'gp FOR A SOF TWARE
TCH n;gasrsn.
MOV
ake
c -\(EP) : s SAVE
VEC
MOV
#6498, JSERRVEC
;;SET
E
VECTOR
MOV
#DSWR, SWR
::SETUP
FOR R mngm SWICH REGISTER
MOV
CMP

64S:

#DDISP,DISPLAY
#-1,3SUR

;:
A HARDWARE DISPLAY REGISTER
;3 TRY TO REFERENCE HARDWARE SWR

65%

: ' BRANCH xr' No'cT”Im»:our

BNE

668

MOV

#658, (SP)

;;aggncg Hér NO T ngogzm Tl}gPN(O)?chRED

:1SET UP FOR TRAP RETURN

JOBb

CZREQBO RK&E DR CPT PROG MACY1l 30(1046)
02-DEC-77 11:48 PRAGE 75
CZR6GB.P11
02-DEC-77 10:46
INITIALIZE THE COMMON TARGS
322“

012444
gxsgus

815737

176

ggg;

012462

012637

000004

S8
59
60

012466
(012472
01

005037
132737
goxw

001336
000200

001351

001352 001140 .

MOV

12737

000006

0ODOOY4

MOV

1
18ggg;
1
i

3143
137
3135
82

‘1

0l24s4

i 0

5 glgl

3564

:
356
3568
gg;g

1
i
013534
81 540

012737

12737

000005

1§'44 1
3571
gx.ésa
1044
ggz
zsgzs 6857
Sce

3574

3575
35;9
35

012564

012570
12574
1

3578

01261

gggg

3579
3580
3581
3584

333;
gsa
3

012614
01
01

01
012642

i
1
1

0127

13701

813721
1371
1

12701
012700

174

0006

1
72
153

1142

881140

3050

00
5162
000006

000060

000062

w——

8838“5

3%
3601
36

1
01
815

003046

3605
3606
3607

012764
012770
012776

3598
3599
36
3604

3608

40S:

448:

112737
000137

0030
000101
013774

CLR
BITB
BEQ

spnss
$APTSIZE,SENVM
67%

,,CLERR PASS COUNT
;;TEST usen SIZE uuosa APT
NON-APT SWITCH

86, I8ERRVEC

:SET TIME-OUT VECTOR

STTYP
DRVERS
ERRCNT
STSTNM

;CLEAR OFFSET TEST IDENTIFIER
;CLEAR ERROR COUNT FOR CURRENT DRIVE
; CLEAR sanon RETRY COUNT
i SET TEST
=0

RESET

81, HLPOVL

TYPE

NOTMSG

40$

No,fissAPT SWITCH REGISTER
,CLERR THE UNIBUS

;

T
:,sss

rst VLD INDICTR

TOR NOTE SHOULD BE TYPED

;

INCB
MOV

i 1Y
NOT
i
SE anc
ssnF
$KBDHDL , 8 TKVEC ;LORD gscr

MOV

RKVES,R1

MOV

sPRO, 9%PS

MOV

MOV
MOV

SEE
BNE
CLR

8PRY, 98TKVEC+2

;SET K

#1.INTR,(R1)+
RKPRI, (R1)
TSTING

:SET IT TO RKOG
;3ET KOS PRIORITY
:CLEAR "RUNNING TESTS" FLAG

sPRVEMD, R1
%6, RO

§51)+
42$
STALLS

I0RIT

TTY xao

. OF RKOB vscton STORAGE

: ALLOW R#L

NTERRUPTS ARGAIN
::SET
ZEROCOUNTER
OU Pszvxous
COMMAND

;2ERO A uoso
:BR IF NOT DONE YET

iDON’T ALLOW STALLS
‘?Pf" sgr WARE SWR FOR MODIFICATION

JSR

PC, GTSWRG

?8%
1578

3&2 qr ngonun
notESG
5355 irF RKO6
o; AULOR RKO7 8 SETUP

MOV

ggn;;.hkaas

;gET APT nxgs BASE ADD

MOV
MOVB
CLRB

SE ,RKBARS
RO, RKVEC
RKVEC+]

*GET
DEFAULT BASE ADDRES
:STORE
VECTOR
;CLEAR HI BYTE

MOV
MOVB
JMP

0,RKPR}
#'A, SUBSYS
oFLDR

:STORE RKO6 PRIORITY
‘SET SUBSYSTEM NAME
=
G0 CHECK ALL DRIVES

MOV

SWAB
BIC

00SS10

?ognnvsc+a

D2R6Q
NOTYPE

BITB
BNE
MOV

18%:

#SSWREG, SWR

TYPE
1STB

BNE
MOV

1351

127
0127

;;RESTORE ERROR VECTOR

MOV
MOV
CLRB

42s%:

i
01
1
01
01

(SP)+,d%ERRVEC

MOV

177776

042350

01
0l

suns
écDISPLAY : ;POINT TO SOFTWARE SWR
o

BNE

3?35
3593

MOV

CLRB
CLRB
CLRB
CL

722

127

RTI
MOV

CLR

4342

sg;

66S:

003152

94
595

65%:

SEQ 0074

ox?gsaa,suxuun

ALLSYS
SVECT1,RO

177,
SENVM
183
:agscrx RO

RO
#177437 R0

: INIT.

PSEUDO-RA

‘EE IF NO 8§FRULT M
iGET RPT RKO6
VECTOR AND PRT

iSEE_IF NO SIZING
:BR_IF NO SIZING
iGET EFRULT VECTOR AND PRIORITY
:GET PRTY xnro BITS 5:CLEAR OTHER BITS

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

%
11

%ié

sam. TEST O

36185

llll!llllll!lllllQlllll!llilllllllllll!llllllll!ll!ll!l!l!llfill

013002

10«0;

001325

ALLSYS:TYPE

19
1

013012
1
3
01

112703 000101
1§7o 005512
127
000021

MOVB
MOV
MOV

3625
3626
3627
gggg
3630
3

013034

012704

013006 105037

3655
33% 85%50
3624 8130
375

3641
3545
364
3644
gus
46
3647
3648
3649
3650
3651
3654
3655
3529

013156
013160
13152

3634
3635
3636
3637
3638
gae
40

001102

00SS12

013040 110337 010112
10103
3424

8‘&3 68:“3#
1
7
013054 013002
1
1
1
1
1
00S
013064
1767
0l
27
01
01
1
1
0131
1
1
8131
7
0131
1
013110 126127
81315 1
131
1261
mgx
01362
81 1
01
0131
0100
013134
1406
013136 126127
0131494
%égsa
oxausog
01
0131
000757

000017
o0os212
00132¢
00S212
00S212

000060
000067

005212

0000SY

%ES 013152 012701 0OSSS6
13164
813155

011
005000

3660
gssx
6

013174
132@
132

042701
usgsx
062700

3664

013216

001364

3659

013170

116001

005212

0060
5212
000002

3663 013212 105760 00S211

188:

005556

hsr

6EC
BNE

fag“‘

MOV

#SCRLS¥e

CLR
CLR

(R1)
RO

BIC
MOVB

#'0,R1
:STRIP ASCII gn?
aur#omm SCRLSTIR1)
:SET ASCII DRV NO.

#’A,R3
SDRYLST,R1
817,

<cn> u.r)

T NO.

xrm suasvs NDICATOR
“ga vg gf15T noones
CLE ou
DRIVE LIST

MOV
%
:GET STARTING ADRS OF DRIVE LIST
:ASK FOR DRIVESTO
TEST ou THIS SUBSYSTE
Au.svx- MOVE R3 SYSDRV+7
;s”g$ SUBSYS NAME FOR PRINT
TYPE
SYSDRV
IASK
F
onxv;s ON THIS suasvsr:n
JSR
Pc.nocuas
;
NPUT STRING
ALLSYS
:(fC)
RETURN ADDRESS
ALLSYS
1(42) grum
55
63
;ug)
TURN
55
TST
RO
iSEE IF NULL INPUT
BEQ
X3
iBR TO a?( AGAIN
CMP
#15.,R0
: SEE }r
MANY CHARS TYPED
BGE
1es
'BR
NOT TOO
MANY
108:
TYPE
FFO
;;c
BAD INPUT
TYPE
QUES
iTYPE <?> AND <CR>,<LF>
BR
é.s
i GO g«
IN
12%:
CLR
Rl
:C E
c
POINTER
14§:
CMPB
BUFFO(R1),#'0
;S
F
VE NO. <
BLO
108
;gs 10 E
BAD INPU
CMPB
aurrouu) #'7
iSEE_IF CHAR > 7
BHI
108
iBR
TO0 E
Pgao NPUT
INC
R1
:
INCR g
3"7 R
CMP
R1,RO
: SEE }
T0 CHECK
BEQ
168
iBR I
L CHARS CHECKED
CMPB
BUFFO(R1),%’,
;SEE ér HIS IS A COMMA
B
108
; as
NOT R ?oma
INC
RI
NC cmn POINTER
s onxegs =l %:fs et o fl%onnuuzTcuscxmc CHARS

les

005021
005021
%goax

36
3658

PARAMETER INPUT ROUTINES

keno AND STORE nu.sgasvsrsns
AND
%xvss TO TEST

SEQ 007S

R33212223223222223232322322232233232322222232222
2222222222222 222 2223

3616

KOB

02-DEC-77
11:48 PAGE 76
INITIALIZE THE COMMON TAGS

CLR
CLR
CLR
MOVB

ADD

TSTB

BNE

(RI}+
(R1)+
(R1)+

s‘s‘-cmCHfixvs LIST ADRS

sm OUT SCRATCH DRIVE LIST

; INIT CHAR POINTER

BUFFO(RO),RI

iGET A DRIVE NO.

eu#ro 1(RD)

:SEE IF NULL CHAR YET

;POINT TO NEXT DRIVE NO.

:BR IF NOT DONE YET

LO6

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 77
CZR6GB.P11
02-DEC-77 10:46
TEST O
PARAMETER INPUT ROUTINES

68 E{ga
13220 00S000
63
?3}}' 005556

INC

—

oy Sg.smm
sé‘*iré..“%v#**s"
§g:s,~su°"=

A
A AR Adaed

T
o
§{ Bgagég 000010 S ’ BLHS agtoe

%703

1
8;
§11
§111

37 005444
82%?

%2037 00SSSe 00S444 23%:
14

§i§§

17 7

401

010174

13002

3783 81 1

1
24s

YPE

TYPE
CHP

RO*IG.

013444

750

105037

109401

00S212
001324

001102

007752

imfifi*fi
F Tl

%
:

E xr

Ega

ng;uac

ss ;r 20

JMP

%P
nsksvs
Snv

TYPE

JSR

ALLSYS

30%:

#cRDCHRS

srso DRIVES FOR THIS SUBSYS

rzcxmc LIST YET

S4ls.
2liae®
hg

5§~

YS NO. anc
5983
&as
¥2
gencn
YSTEM mns
;uas
S

> P

START

&7 T PASS 1

:ASK IF msnz 1S morfin SUBSYSTEM T

00S212

POIN

NINC

CMP
BHI
28%:

INCR_LIST

cng

600"01

SCRACH

MOV

023424

868040
116

, COMMA

§7§7 000131 005212

gg%g

013452

geg

BLT

001002
822537
7
001405
104401

013446

SCls?LST(RO),SCRACHéz
;
F THIS

255~

013416
81
1
01
81 34
013440

268:

MOvB

013966

3710
?,"5
71
3713
3714

3720

248%:

003126

013408

3719

Yyy

013734

308

3718

865”1

3715

; ECHO m*"fié
T0 §
TE 8“ THIS suaSv
v;é
Y,
“WILL TEST DRIVE(S) *
CLS
égmcu
;iui;
ngfl:l{r
R1
t
T
T OF L?STES onfvss FOR SUBSYS

010130

§1
000010
1
761
1% 1
10167
§1gxggz
164981 010184
1
000120
013352 101035
1

3703

‘

63;301

&E ?cwrfou?“n"?u'f SUBSYS
ii-

013230 %saou

hn.fge
IST nctum.
POINTERLIST
ALLSY2:PRWSS
ggx FROI";OSCRRTCH
gggLsrmm—
(RY) xmoTm%n%u"fiav
x LTO

SEQ 0076

CIFY

ANOTHER SUBSYS

;Pouse

:(fC) RETURN ADDRESS

) %?w““" ADBRESS
#’Y,BUFFO

: SEE xr 3%*vpg
.

BNE
JMP
CMP
BEQ
TYP

308
ALLSY1
#’'N,BUFFO
ASKSYS
,BUFFD

'BR rugr
;gg
K FOR ?vass ON NEXT SUBSYS
1SEE IF <N> TYPE
iBR IF «<N>
,;c
BAD INPUT

28s

:GO ASK AGAIN

TYP

SQUES

:TYPE

<?> AND <CR>,<LF>

;204 OR 220 START - GET NAME OF SUBSYSTEM TQ TEST NEXT

ASKSYS: cuaa

TYPE

STSTNM

, TYPSYS

:SET TEST NO. = O

{ASK FOR NEXT SUBSYS TO TEST

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

uputettty

RLLS;

2§§§ve
000101

801528
oosza12

000120

oosz2ie

00ss10

010652
0134496

Goeetn

BEQ

(r}

0000

0030s2

S ey e e winiy

000000000000000000000

86365
8874
06

CMP

uae
Tgs
Bhp
Sux
MOVB

8%:

MOV

CEPB

CMP

005553

003050

YPE

3§

JMP
s

Qege

ngL

V::V N

SToR2

iBR IF NULL,

1B Bhe INPUT
:5#2 ) &40 (CR>, <LF>

BUFFO suasvs

: STORE cuaasur suasvsrsn NAME

agrro ')

TO ASK AGARIN

;355 }r A CHAR ¢ A TYPED

52‘Poourp

ogow.ér @
§

RO, $DRVLST+33.

180 1 oK G
5> P TYPED
235
3
:SET

DRIVEok é

iSEE_IF Rs

; nc& POINTE

VE LI TED FOR THIS SUBSYS

;SEE IF HHOLE LIST CHECKED YET

8s’

=§“,£F gs YET

Asxsvs

NODRLS

i TYPE

~NO_DR vss LISTED FOR SUBSYS"

ASK FOR

sag T

A SUBSYS AGAIN

ng BYTE OF LIST ENTRY

INTER

nLuccon STACK

nxv

:GET IT

SWAB

(SP)

JSR
MOV

AC, GETPRM
(SP)+,R0

RKPRTY

s TYP

BLT
CMP
BGT
SWAB

RO, #4

12%
RO, 87
12%
RO

:SEE_IF AT LEAST LEVEL

:BR IF NEW VALUE TOO SMALL
:SEE IF LEVEL 7 on LESS
iBR_IF NEW_ VALUE oo LARGE
‘GET PRIORITY INTO BITS 5-7

MOV

ng RKPRI

;STORE NEW VALUE

, BUFFO

;ECHO BAD INPUT

CMP

000007

iSEE IF NULL INPUT

ASKSYS

(SP)

TYPE

000004

n
n

i (363 BETHRN ABRRE=E

:OPEN RKOB
INTERRUP
AauoLER anbnxrv
LEVELFOR MODIFICATION
sGET o#o VALUE OF PRIORITY
RKPRI, - (SP)
MOV

{1s:

1026

ASR
ASR
ASR

383938
ooszi2
001324

;READ RESPONSE

: ($C) RETURN ADDRESS

; OPEN RKO6 vscron noofi:2“? nob? 'gu
JSR
PC(SP)+,
cgegnn
iST OL czi
ngfl”nxvsc VALUE
v
RKVEC
MOV

7727

3726

PC,RDCHRS

SEQ 0077

:OPEN RKOB
uuxaus Aoonsss
FOR nobgr;cnrxouVAL on srncx
MOV
-(5P)
TYPE
ggfl
’Ep,RK
Y§SSOL cgzusu RKBAS VALUE

ASL
ASL

WwW

et el et et el et el et el e et el T ST =] Sy S

——————
e

JSR

023424

ooszi2

0000

37%
3731

004737
013002

et et ettt et

0000000000 OOO0OOO000O0D

013456
1awsa

wiwiwi
ey et et wt

3721
3722

MOB

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

128:

TYPE
BR

TYPE

(5P)
(5P)

RO
RO
RO

CRLF
ORVTST

‘TYPE

INTO BITS D-2

“RKO) PfiéOR;TY ="

OLD,

GET

KPRI VALUE

CZRBOBO RKE DR_CPT PROG MACY1l 30(1046)
CZR60GB.P11
02-DEC-77 10:46

013732

000741

1
1

BiSRE?
01%38&

010331

PASSNO,SRPASS+18.

001102

JMP
MOVB

BNE
2s:

JMP

;G0 ASK AGAIN

;SET PRSS NO.

FOR annrour

SRPASS
b’ 1,PASSNO

:TYPE_“STARTING PASS
X
iSEE_IF PASS 1

STi
#4, §TSTNM

:START PASS |
iSET TEST NUMBER = 4

Tsts

OFLTDR: CLR

MOV

00SSS6

4§:

000010

ggs

[

Sfi}s

NOSSS6
S56
60

MOV

001351

DOGC001

V22
Yasr 8%=8

[ ey

0000

(=l=]

28o'%
ooLnNo

SRR
£

MOVB

003155

000377

nN
=N

P
—

118

TYPE
CMPB

DRVTST:

SEQ 0078

‘BR

_IF NOT PASS 1

;START PASS 2

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

001406
000200

et
Lk

£L£LLL
GGhhsEzszzs
D o oS

Bt bt s e Bt e P

Pt s e

BHODED Db DD D BDHHD
WS DONONLEWN—-0O3
BBD
Rwwnny
®
[y

mm
W

NOB&

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

000200

001351

possie
00SS510
%555"10

118:’

013220

12§:

005430
021170

003133

000010

3%:

i
-

5%:

002001

001000

73:
15§:
000010

DRIVE NUMBER

iGET “’7N85V§§‘ MAP

;gssllrflo

=§§’r
{170 DRIVE ENT
;anéxrr ¥¥IS DRIVE IS Rsoussreo

#377.R3

§21§E°

iSET UP rofi SIZING

EEE
MOVB
BISB
:
gnc
EEEB
MOV
2833
MOV

fic.na
SCRLST(RO)
c'b SCRLST(RO)
RO
géo,ao
3gxrv,senvn
$DRVLST,RY
HBSISA3
RY'
onvprn

;ég $
xficEELL DRIVES
Es sI;r'SaoESSE
SHOULD SIZE
:csr '5% LIST ADDRESS
LIST
;'gf;T xu
RI"
10 rxnsr»DRIVE TO TEST

EEE
JMP

RO
;

;cI n§g$néoun¥§2
n3¥5u
LIST INTO LIST

EEEB

§c§Lsr(a0)

ses }r§xs ':255 IS MARKED IN SCRATCH LIST

EEX

MOV
JSR
BIC

?RZ)‘

: MARK gg?ve IN SCRATCH LIST
;CONVERT NO. TO ASCII

,suxrrng
IT

'8enn ; va

DRIVES FROM’sEnncn
%vgr

POINTER

T WORD

RO, DRIVE
PC xuxrss
%

serngn VE NUMBER FOR SCNDRV
;CLEAR
DRIVER AND_INIT S.S.
;DISABLE RKO®& INTERRUPT

ss Fat

:SEE IF RKO?

MOVB

o VE RKCSE

ggv

;co.(na)

'Esé sE%GO BIT FOR RKDO®& IN RKCS!

#<CDT!GO>, (R2)

;ELSE SET GO FOR RKO? IN RKCS!

ggga

000001

;CLEAR

oexr7 SENVM

éggnovs geg-sxxs;gu

00S5S6

608430

108:

M,R3

MOV

LR
INC
BNE
BIT
BEQ

SCRACH
SCRACH
158
#MDS,RKCS2(R2)
189

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

oos424

—

14
14
14

14314

476
005476

14
14
14
143
14
14
14

JSR
MOV

003056

000010
014066
SS6

SN"E
INC
snng

148:

TER

INPU

CMND(RS) .

(Raqu
)P ns)

AL
gm:n.m

'5;7"‘
fio

:ég.no
108
SCRLST(RO)

BRCLRB 148
JMP

168:

SEQ 0079

ROUTINES

OR smon REPORT

g;%%s
ns*
ks FOR REPORT
L

—t

14
14
14
14

000001

29T
(0]
&

Loy

1'0

@01

BO?7

———

_L1:4

S48 &
St
£
St éfl

w
RK6& onogpr ngg M(.:Yll 30(1046) . 02-0EC-77

N JHOTCATOR
STofe
%mflsstmss
&
x

i oaVE IS gsenau:
gs
r:cxNG LIS
,
T
CTED DRIVES
: 5“ T0 L035
vE V§

He mé
CHECKING THE LI

uulnnnuulnnnnun"uuunnuluuunlunulun

MOUNTING OF TEST CARTRIDGE FOR PASS 1
P&Y:Ea‘ ?TMT n¥
Pfl&l"
TI'EN T

bo
ITflrpss THE DRIVE mo cna DGE SERIAL NUMBERS.

3868
3869
3870

gg;é gizggg 012737 000001 001334
3873

3874
3875
g;g
3878
3879
38
ggax
82
3883
3884
85
886
3887

RRTOR
HE HERDS,
DRIVE

Olflgg

014
014366
014372

004737
004737
004737

!lllll;lg;éllillllllllll!llll!llllllll!lilllllilllllllll F222322]
C

MOV

JSR
JSR

022042

021170
020774
022110

JSR
JSR

8l,ST;STN

PC,SETTUP
PC, INITSS

PC, PREPK
PC,MTCAR

T TESTWR IN APT MAIL BOX

liP
ON_ERROR
sNIT
FlI%E DRIVER PARAMS AND SUB-SYS
OR POSSIBLE KBD INPUT

lllllli!lllllllllllllllill!lllllllllilllllllilllIilllllllllilli

’h

BRSIC READ/WRITE DATA TEST

THE Pnocnm

RFORMSA WRI

WRITE CHECK OPERA

USING A P§
gs“ gmn
Psn'!'gn AT THE nppnomm*eSECTOR

OF THIS OPERATION IS TO venxrv ms BASIC READ/WRITE

FOR THIS onxvs (F

ON ALL SURFACES. THEPURPOSE

CZR6GBO RKE DR CPT PROG MACY11 30(1046)

CZR6GB.P11

02-DEC-77 10:46

oa-o:c
-77

cO7

é /WRITE &am TEST

TM
i~

0080

CAPABILITY OF THE DRIVE ON PASS 1. THE ENTIRE SECTOR
is uaanzu WITH THE REPETITION OF THE DATA PATTERN SHOWN

0002 001334

11:4

i é;;ll'lIll&lllllllll!llllllllillllill!l“lllllilllll!lllll!!Ill

?ény

gca.srfiltg

7 n:sr

PC, INITS

P&x

R xu mr MAIL BOX

mo SUB-SYS

gbtmo o;”'"i' 003127 ; LOAD .‘g't'}sWITHPéhzg
':C:r P'fé
&E m.Lou SI&E53:0 e
fingfl:m

A—

ol ol nova" ETERS.
kgnc,RO
Esva

sGETuvtm
LOGICAL
:o
IT 10DR vz mnasn
rvprm
; s F RKO?
*3&:9(&0) P. CYLI'O(RS) &? CYL & FOR THIS DRIVE
INCREMENT
m&smnm p.sect(rRE)
GETINDEX
SECTOR & FOR THIS DRIVE

18:

MOV

TABLZA(RO) ,P.CYLN(RS)

IOV

BRHBHTR
et word EOURYS
T FO
EEcTR
oR

zgza

DONCNLE WO

ADD

?wmno).r.secnnw

;WRITE THE DATA

igo

fn!gefl

&s:

noye

Move

WRT

; PERFORM WRITE

014

000005

% Q14580 126227 0O0O00S 000002

CHELK

;GET RKO7 TRBLE

;GET SECTOR & FOR THE DRV

CHNJ(RS)
drrTe TIEELEHBEIE COMMAND

CTOR

Afcmomsy
derrorn’ S5k URITE GHEGK commAND

IMRE"EN$REM
P.TRC
MPE P.TRc.«%%,.a

MENT TRA

égg"j gysrnces WRITTEN YET

3930

5
g

3*!EglIlilllllilill?lllllll#lmIlllllillliilllilgllllllgfigllls;IVE

‘¥

H
5

?:é

014570

0O0O0M

w
0
£
£

3335
33§§§
600

004737

813572 819737 000003 001334
022042

CTORS

mmzu FOR THE CURRENTDRIVE WITHI

&%’?EB BoRS3 I PBE o8 RARBOR DATA PATYEAN 1 fi ?ME LOGICAL DRIVE O
&sszxmt’mvsmmCORPATIBIL
I TESF DATA 706 ©

fsgslI!Hls;gllllllIlll!!lll'lllll!llll!llllllllii!ilillll!!l!lll!

MOV

JSR

3, STESTN

PC,SETTUP

:SET TEST NUMBER IN APT MAIL BOX

QET UP FOR LOOP ON ERROR

CZR6ABO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

394

BEHTS
Bliefd BBuP% g22642

33??
g

1f
i

mflg gl
7

003133

000002
000002

000002

ooooo2

02-DEC-77

§2§ § :fi % 006026 000002
72

73
gg:;g

014750
014756

016065
004737

006060
023106

3978

000002

DO?7

PRGE 82

SEQ 0081

WRITE OVRWRT AND COMPAT CYL BLOCKS FOR CURRENT DRIVE

B"Ea

T;PFHY

i PREFARE #5e BOLETSCERES LT —SY®

o
JSR

4s:

1§:

3&5 8
3&9
8
398 0 b 14

11:48

piy akg#
e TS

PC, INTBLD

NTO TABLED

MOV
%38
$v

*am.ecmo) P. cw.hms)
; VRWRT
T OVRWRT
CYL FROM TABLEC
nE;s
ch x ON ALL~SURF’S
BRPAT ch FROM TABLEC
méL8C(RO),P. cvu'u "&E
:GET ST 5COMPAT

meu;mo),P.CYLN(RS)

MOV3

K0
;néucr:éfo)
P.CVLINEE)

RO,

cuaa:m ZONE YET

8s:

?SS
?Rsa
;ga

53 ROTBLD
93
INTBLD
TYPFMT

3$%:
S§:

MOV
JSR

TABLZC(RO) ,P.CYLN(RS)
PC, WRTBLK
;WRITE THIS OVRWRT CYL BLK ON ALL SURF’S

gflqv

: orTre 3&.:0 SEVERAL SECTORS
538"1.3%‘
INI x&.vgtfifs INTO TABLED
iSEE_IF RKO?

géea.scmm P. cvu'«n5§ &? START OVRWRT CYL FROM TABLEC

lli!llII!I!!illl!l!!I!llll!iliilllil!lllil!lilllllllill!lllllll

§§73

hesr Y

3333

3982

3985

3389

HE PROGRAM DIRECTS THE OPERATOR TO UNLORD THE DRIVE CURRENTLY

%g8'€$r

)

TOnsnove THE TEST PACK. THEN, THE PROGRAM

oaxvs 10 rssr ON mxs SUBSYSTEM, THE

ITo TEST

;gDR

H%Ls’__r gg:mron '?% qu;%

H¥

3390

DISMOUNTING OF TEST CARTRIDGE IN PASS
1

LA AR 60Hs 2008 BB

1F Tertos %fi&"&afis
" 10
ps&sinpiss o&‘%
1 ON, ITTHEHALTS.
PROGRAM

333
3993

S¥

‘il%

: o 363636 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 3 36 3 36 3 36 3 36 36 36 3 36 36 36 36 36 36 3 3 36 % % % %

omei su'a‘sagoat
En- ?9: eBSn"fiEu?
o&saS"Sfito
OR PASS 2 ON THE NEXT SUBSYSTEM, AND

35:33
3%3325 8?892; 000004 001334 Fera: 288"‘
#4,STESTN
3999 014772 004737 022042
JSR
PC.SETTUP
Y000

014776

004737

021170

JSR

PC INITSS

:SET TEST NUM nONmERROR
APT MAIL BOX

t4ET UP FOR LOOP

; INITIALIZE DRIVER PARAMS AND SUB-SYS

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

02-DEC-77

CLRB

B Bt Pt Bt

00SSs4

B
Bt Bt Bt B
B
B Do (e e e e B

4§
c§:
6S:
8s:

010574

e B

Ts‘fégcgm

Pnemn: on

T ALL

E KBD INPUT

% APE

TST

(RPO)

8: cTMENT mxv: LIST
0 DISMOUNT
PACK
POINTER

CLRB
Ao
rvpg
HALT

TSTNM
;CLE 92;
N.I'EER
L tRD) . STR204+39. ' JPUT ‘fi" A O
e
, STR20Y
;t%
T%
}on
ng‘s:
1
ON NEXT SUBSYS
(HALT T
mgsfl
SO THAT

DRYPTR

TR, RO

F ALL oor: WITH mss 1 YET

CMPB I o
1(RO), SUBSYS
i
BNE
4%

§ SEE ;rOBORE ;r
THIS SUBSYS YET
-&
WITH
THIS.
;&
H THIS SUBSYS

JMP
MOV
1STB

;RE-INIT

JMP
MOVB
TYP
HAL
JMP

12%:

PC, PREPKB

PC,
82

naoan
TYPE

010331

e P
e
s e b
B
e B

00000000000000

OONCNLEWNN-O

&JLC&JL‘Jé?C&
EFD 0000000000

£L
Y

00SSs4

SEQ 008

ADD
MOV

00ss10

010817

EO?7

PAGE B3

DISMOUNTING OF TEST CARTRIDGE IN PASS 1

a0z 012008

11:48

204
SDRVLST,DRVPTR
; LAG

;
:

#'2,SRPASS+18.
;SET
ASS
;

OPERA
SEE ;

START AT PROPER ADRS

xv;
L# POINTER

NO, = 2mgn
PRINTOUT

mgzgswc

;GO _START
;PUT SUBSYS
0 MSG
TYP§ gsgmr MSG
r?e PASS 2 ON FIRST SUBSYS
ESSOR HAT OPERATOR CAN RESTART
i
AT THE PROPE

15
#’A,STR220+39.
, STR220
220

3 o 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 36 3 3 3 36 3 36 36 3 3 3 3 3 36 3 3 3 3 3 3 36 3 3 3 3 3 3% 3% % %

;fir ST 5

:¥

MOUNTING OF TEST CARTRIDGE FOR PARSS 2

THE PR

TART

‘¥

MOUNTS
°$"""3«?

H°

FOR VALID sr TUS

s¥

RS DIRECT

Rs"‘"HE
a#

‘1a TY

S 2", Tl-EN T

RATOR

"?' z«: gfigg HE HERDS,
cxsH* onxvs

nmcs

°§SB és 08“"‘
CTOR

FILES,

AND

nxm. NUMBERS (IF STARTED

’

0000000

(=]
£

?g¥gllIllglllllllllilllll!lllilllllllllllli!!l!lllllllllll!l!!Ii*

novmI
.
JSR

001334

112737
004737

JSR
JSR

c,MTCART

MOVB

003155

S, rfim

PC,
UP
PC, NITSS
PREPKB

2 PASSNO

T TESTNu%snINERROR
APT MAIL BOX

mmnuzs DRIVER Pmnns AND SUB-SYS
:PREPARE FOR POSSIBLE KBD INPUT

iSET PASSNO. = 2

H ll!ll!l!lll!lllllllllllllllllllllll!!lillll&ll!Ill!l!llilllll!i

hss

;;
‘¥

OVERWRITE TEST

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

FIRST,

THE APPROPRIATE CYLINDERS

IN TABLE E FOR THIS DRIVE

FO7

CZR6GBO RK6 DR CPT PROG MACY11 30(1046)
02-DEC-77
11:48 PAGE 84
CZR6GB.P11
02-DEC-77 10:46
16
OVERWRITE TEST

4057

4
s %

chET

WORD 1

;¥

WITH THE F

4065

;«»

THE

4067
4068
4069
4070
4071

¥
H
‘¥
¥
x

WITH THAT
sE
wm.
HE C

33773

4828
Y

4061

4062
:gga

4066

4072

407S
4076

40;7

‘¥

mssggz

001334

Y4 81?5
4083
4 e
1
&

bosa

3873
§1§5§o
3030
}sag

4087

4083

4088

4
332
“

015264
1

4102

015362

000012

gxgvg

1837

%sgg;

4106

015374

112737

4109

015410

020027

4111

015416

012703

uxgg

015414

RERD

VALUES

.soom,

BY THIS DRIVE

100, 200, 300,

, 1200 MICRO-IN., IN BOTH

PROGRAM

NG THIS READ,

AND IF

rfi WHI °§§v:¥ &m HAD NOT

FOR

THA
‘}@ S
AT THE
NEXT SECTOR
WITH ALL OF THE ABOV
mgn;
1S KEPT,
ITES.

OR
THE

RE“?"'

mg
nvsmcso FOR ERCH OFFSET

10N,

TESTED

26, rs;m

:8
mrgg
. T xuc

ovenunne m:

;:SET ngr u@n
m apr MAIL BOX

:i PREPA
er'fi.x

nuo SUB-SYS

IBLE KBD INPUT

okTHIS “CYDRIVE
L3?= 100/200" FLAG
EFed o

103774

000001

006612
007112

000007

41.2 015422 113700 003154

003143

nre cv s FOR

nov

MOV

TA P.cno(as

ADD
MOV

6S:

MOV
BIS
MOV
TSTB
BEQ
MOV

;

G, RO

Bfii Rg%
;
P Hg
RS) ;
;

JSR

ADD

uotoa
cvu.mnm mc

DEC

BNE

;RERD OVERWRITE

108:

)

6%
#-15360. ,P. ucmsi
Pc,§vpnné

JSR

MOVB

MOV
CLR

CMP

BLO
MOV

MOVB

m conm

,P.CYLN(RS) ;

MOV

000002

4107
°‘§"8§ 00
012700
4108 0154
4110

THEN, Acu

?gx

000010
000014
000012

4101 01
4103

35
o
g‘uoé
Souvz
1 USES WORD I, DRIVE 10 USES
8

4 IlI'l!lIlilIllI'lilllllIlIlllIillllflilll!!lll!lllll.l!ll!llilllli
t4Te:
SCOPE

000001

18310
18314
1
1
1
33
01
1

40398
s
4100

nrsn ou EACH
smrnc;wr'gtmggm Lxsgzgnéfs“c

4030 i
3835
“833

SEQ 0083

PG’ TRNSFR
3

sm TE ch FOR THIS DRIVE
mo BUFFER

RMINE

F
r

NCREMENT INHIBIT
COUNT

c
g

r; rgmm

TOR

WORD COUNT

;

OF TRANSFER

STE

uxm ALL CYLS YET

oé

vn.s uxm RANGE
¢
TSTTYP

NJICRTOR FOR OVRWRT

TEST

mbscno
RO
(RO)+

?s
oné"$ 3 S OF OVRWRT SCORES
NIT

10&

iBR_IF NO

RO, SNOSCRO+192. ;SEE xr

Lobonv,no

L SCORES CLEARED YET

ISET CYL CNTR

NE YET
=

!GET LOGICAL DRIVE NO.

CZR6GBO RK& DR CPT PROG

CZR6GB.P11

02-DEC-77

MACY1l 30(1046)

02-DEC-77

GO?7

SEQ 0084

OVERWRITE TES

nox

gO.PfigYLN(RS)

JSS

PC nosgonvwns),
gcc
TCH SCORES
TO SUM

oisgas

mogss

oooooaq

3“7

} 3:5

m.ug

4124

015500

004737

020024

"'“2 §1§u§ fi?% §f§308

152
UL

fia

:ixa ng-os\o
7 883361 g1u5§
:ig 8{?3;23 %;82 uaaogf
uxag 18474 fig o
412
18476
1

§§ge
ggg
GT
EQ

:isg

CLRB

105037

10:46

:{ia

015504

11:48

JSR

003143

4158

cg s T OVRWRT CYL FOR THIS DRIVE

PS&ED&Q

,gé'r“CYLo'x‘? = 100/200" FLAG
:ggi TEYENso rczm uexg CURRENT ZONE
'BR }} “? k.
‘BR FONLRTCL

1stTyP

:CLEAR OVRWRT TEST INDICATOR

.
35,8%108
55'5?"’"0
PC, AVSCOR

u?m orrssrs ON THIS CYL

:COMPUTE AVERARGE OVERWRITE SCORES

:igg

3i;g;#l;!ll'lllllg«;cgl&::l#ggllllll!llllllllIlllllllllllll!l!l!i

f:i:asé

THE PROGRAM EVALURTES THE DRIVE'S

~u§§

?fi T

4138

H
sx

BATamtE
ALY RMING QFF
THE

3133

4139

4140

Y142

‘¥

4141

3132

:i:;

01S510

000004

4149

Q015512

012737

H
::

000007

001334

i 4y
20

015540

4157

015554

4158

015560

005037

4166

015

11276

?RE

up WITH A’ DR

THE

TEROIN:

ACH RE

ga %oé‘ ogns

g
7O BECOME
ron THE
conigria'
xE?rvon#Atsc..ggfWHICH

JSR

CLR

D074
D074

CLR

007414

CLR

007422

CLR

4183 sigzsa 473935
0%
416l 015574
113700
3154
4162 01
700 %ooso
4163 81
273;
42 000010
4164
015612
7
4165 gra & 0127

conpu

MOV

el
Biesd By BenD
4153 015534 00S037 007412
4154

sr'& ?hxg}o

FOR

ERCH orrser

AND

7400 800012
0004

4167
015632 105065
00000S
4168
015636
105037
007432

000004

4s:

,$STESTN

STANDARD
0 THE
FOLLOW.

T TEST

s
NSSCRO

Rl RSl

Rg
R

PSSCR1

JSR

o-égsP HC(RS)

MOVB

CLRB
CLRB

:INIT SELF-TEST SCORES

PSSCR2

MOV

R IN APT MAIL BOX

§$ % ERROR

CLR

hoeC
MOVB
ADD
MOV
3%:

Pc,gsfiup

6A3°
EEERRy ClbuRTER" < B07200" FLAG
Loconv RO
PGET L xc 9R
860 R
:COMPUTE STARTING ch "NO.
cnuéur P.BALO(RS) ;SET aus ADRS
(RS)

TRCK(RS)
N ORO

Lbao R/W BUF WITH DATA PATTERN

ET uoao coum FOR1 SECTOR

ET SECTO
,ss
nnc
JINIT scnmcu SCORES TO O

AVERAGED,

;gll!ll!ggg;gll!IllllllllllllIil!lllllllllIllllll!l!lillllillll!l

4150 oxéseo 004737 022042

q1§§
41

LITY TO WRITE AND READ

IT§TMS gaml'llf VE
OUS ANGULAR
Pg§
ONS ON THE PACK. FIRST,

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

HO7

oe DEC-7?
11:48
PARGE 86
DRIVE SELF-TEST

4133 BisguE
1
4171
417

015652
1

4174

CLRE

4178

6S:

fig 8%22&5

000001

?ggm

157494

o;ooou

Hgé
016004 001307
4133 8 sgog osw 7
:ies

4196

:igg

e0l2

iSET CYL 0

s
T ;sx COMMAND

mgnmns) mss"sE‘r"S"T
°&$"°E"
N%E "
'

88 EE&*}E

P. tRCK(RS)
P.TRCK(RS),#2

:iEEo’gBé?oI
xfi“nifitE‘oFsorrsers
;1
;

: }r q'L

xs DONE ON THIS CYL

%2 P3aeer
: n:mc"
kc?znsa823 ;gzs"f.r
nLL sgonssvrg
Tc?gng DONE—
ON THIS TRACK

SE%E
920

Hgt.oa,RO

CLRB

gflE‘
JSR

024

1 5037 Bfigwa

NC ch no 8Y 100,200

35 gvgcoa

DEC“ CYL “g
cnms; WITH
nu. CYLS YET
r—r§ S? 3

SOEP T

Tgt Y

nfl Svn T Esr

3 05

: o 3636363636 36 36 36 36 96 36 36 36 36 36 366 36 36 36 3 3 3 3 36 36 36 36 3 3 36 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3 3 3% % %

7'1,33

sfiresr 10

:eoa

;CLEAR OFFSET TEST INDICATOR

K P cnroms»

npg

000023

4190 §§7

P CYLN(RS)

12x°
INCB

- 000002

3%37
1 7;5
:igg 8}?;%

15T

CLR

r}ggs

PSC

CLRB

000001

4185 Bi28%
015740

PSCORO
PSCOR1

CLRB

3{;9 §i

4183
Y1

NaCoRs

CLRB
CLRB

417 Ex

SEQ 0085

COMPATIBILITY DATA RERD TEST

‘fi&fi&éfifl“éfib"“flemfi?fix'x‘fi BRI aeADE

or cx" nus mm

:giu

gg'csnéu
gaax
I;sP?‘Lsm §a
VEEES%
IS

4218
213
y221

"
1
tx

us 53? 5?8“5&&5'}?“_“['v %
THE fimun'y 'x'fltnBY oue or
TS
8b
S uuxcu
o CmuIED
SRy s Eoch
INVOLVED INglsx'ruaI
m
a

o8
4206
i
4209
210
Y21

:gsg

HE¥
100
i
tx %:.a
xcu'son?n
PR1y
g
Tfi

ERIPLL

az nLL

icsnc cLINDER

aw..sgbgu
SR
900
MICRO- m
n'frmr HTANT SER s
e o
FSE
I

*mg'..;eswf’s'gssmsvsm
Tl e

DIFFICULTY IN RERDING THE DATA OF ONE OR SEVERRL omsa DRIVES.

2222222223222 2222222222222 2 22222222 2222222222222 2222

CZROQBO_RKE DR

ONEs.Fil
42
dgse

us
se
4o

Bi€
1€

gl1€

.':gg

1603¢

4g38
4239

Y24l

1606

16
016100074

0161
16
113

igie geise
-

usus
“

usdg Olel
25 131l
4] ole
458y
4gss

qa"s;?
iS2s

4580

161

[of

0s
991Y
033308
1

87%

806020

000

: qifigfi
:

piezor

013
8% 143

427e

1014

Qleoge

h4275
4573

016314

1417

;;7 7

000757

:ggé §1ggés 101742

BIS

MOV

108:

107

e
BNE

JSR

r'i'&.x
VE
g"lm
OR POSSIBLE KBO

PCINITSS

ssTers
T T3

Blicsconse.

ST
L

14s:

158%:
188:

MOV

HOV
i
T
g8

MOV

ot PR

Cachhes

G £l cumen ver
RO, INCSCRO+192. (
P:BRIF vy§L
E.sg
2
DCNTR 5
s&xgraw

:SE¥T ;A‘g‘f CYL
= 60/160

INHIBIT
YBATL.b,m&r"‘g
és»fSECTOR WORD CO
UNT
§-168%P
.

T wccnst G
1

,RO

gésgeg&g“‘s’

BoeiORGRS
198
SCOR

;

e0-SECTOR on

TOR WORD COUN
T

: %"eruQFSTSON_THIS CYL

LBCR CVEONG" uiTH THIS CYL BLK
RS re"Phal ED FOR NEXT CURRENT ZONE
; ADD

é&goraw

.10 §“‘Fwo & FLaG
’

AVSCOR

WNSSCRO!R3

OF READ SCORES

xmxcm

n
scons POIN
TER

&vg
sr
"°13§Em i
) sThPu
OMPYTE 2 es FOR THIS TRACK
g
somal i g
)
ssg gs“sBR90E COLIERNe
Wes 1 Sopan 8
- rrsasncsINIQ$THP12

STHPLL

STHP

2
RPs
CH
so

e
l
»
6§
818,
o

S1ip12,

ADD

(R )+

,sss I %Re?
g

K noJu

#32. A
Rl CROYEY.
SCOR
E TRBLE EXC
ses IF
SCO SeT
rad
+ OFQTS) 1By
LF
=T
BYSE
SE
LF
- EST SCORES

s
;ADJUST Slo
COMPAT Rgggsgcgflsf (*
BLOS

INPUT

INDICeFO
= 10
T
0,F
200 FLAG

;B
1AOIST gE”
Sares ngTS%sHTgggfiglS (- OFS%;)

001306

4S80 016330 012701 0O7ES2

ROV

SEQ 0086

TEST NUMBER IN GPTMAIL BOX

DEC

ooia 00130
001306
0000

Bie
3s2 026,
1
897913
01 97

BLO

280

708 Ogse1s
4S63 0lesdo 015
015737 0000
1 001304
4563 BIESE8
4270

§AF

MOV

128:

go7LL2

4Ses §i§§3~
55 gees poa oo
Mo
§isa § 00

?gé

00
10
583813
>

016308 113737
01 oo
01210
ifialq
020024
Oless0 1 1;3.; 00
3143
o1

e
o

003143

03;

01:,377?
81

PAGE

SCOPE
N
3R

0161

Qleiuz

001334

4€

MACYI1 30(1046) 02-DEC-77 L1:48
PACE87

B3
45
M

CPT PROG

OF25Et COMPAT SCORE POINTER

CZREGBO RKE DR CPT PROG mcvu 30(1046)

CZREGB.P11
4281

282
3533

016334

016340
016344

02-DEC-77 10:4
012703

012700
012737

007420

00SS512
000014

3235
Y 39 isasa
123% 1?2337
}2§ o
4288

016362

141

uggs
Y4
:ggg

153&
16
oiggg

Oé-og;
127
000014
137 4 001306

001304

S8
o
4291 fie
016376 Uy
5737 mam
1306 000014
001306

4296
016422 822701 000040
4297 016426 020127 007352

:ggg

016432

oa DEC-77

110

24$:

25%:
268:

28%:

101742

4302

11:48

JO7

PRAGE 88

SEQ 0087

COMPATIBILITY DATA READ TEST
MOV

MOV
MOV

38‘3
TST

BEQ

B
CMP

#PSSCRO, R3

#DRVLST.RO
s12.,8TAHP11

(Rat)fis
mo,+
283

HEgamee
sTMP12,
812.

;SET sen.r TEST scons POINTER

:SET DRIVE LIST
conpggfro Esgnsncs oroéaTaggc%Rgcng

:g& Rf
AD SC
IN R4
055 POINTER
LISTED HERE
G
aogree
:SE bEme
?3 1; EXCEEDED

BLOS
MOV
ESV

26$
812. 37 12
ggri ,(4)+

BLOS

R1, 8PCSCRO+64. ;SEE IF SCORE TABLE EXCEEDED
24$
;BR IF NOT YET

ADD
CMP

832

iBR_IF NO
:SET SCOREu§
‘PUTrmoK TIJ TED SCORE

'ggmrg sc%s FOR NEXT TRACK

, o 3636 3 36 3 36 3 3 36 3 36 3 36 3 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3 36 36 36 3 36 3 36 36 36 6 36 36 3 36 3 3% 3 3 3 3% 3 3% 3 3 3 % %

:gga

firssr 11

::3’32

vgvenunx
THE
gomn;
chxw mm nsno TEST
sco?gs FOR THIS

33?3
4311
zgig
4314
4315

;:
"
%
‘¥‘¥

(1) 5 'gomg;[mpaTO mxs suasvs THE
(2) IF
smm) AND IF
Pnss
; “ge
g
THEN;%RESTESTING AND
c)sfi'gu
ME 'ia 3;55
Nh
15 2RS
HE
ssnronn PRSS 2 ON, THE

:ggg

:gig

4318

:g,‘x,g

:ggé

016434

00000

4323

q:«sq 815%«

016436

012737

000011

001334

4327

'4359
4329

016460

112737

000001

003127

016466

0137

oos;gq

4333
4334
4335
4336

016506
016514
016520
016524

012737
012700
012701
110037

006612
000060
00SS12
011225

016472
gu_ms
16502

737 ggaoqa

112037
111037
mwo;

omecT:ng 10 ’l(fl.

‘h. um: TET Smo TO REMOVE

IT GRAN TELLS THE OPERATOR
(4) IF THE

PROGRAM TYPES

TO assr TA

ngag

sS 220, AND THEN

S TO TEST ON ANY OTHER SUBSYS, THE

A com. ON ne SAGE AND THEN IT HALTS.

;-é;::-llllglllllllll!llll!llll!lll!l!llllllllllilllllllllllillllll

4356 OlE4Eq 00473, 00779
4330
4331
43

TYPE TEST SCORES, DISMOUNT PACK, IN PRSS 2

010743
010742
10717

MOV

JSR

ou sr;sm

PC, gP

5%:

R IN nPT MAIL BOX

SN Ea

MOVB

P NE

MOVB
MOVB
TYPE

(RO)+,RESLTS+20. ;GET NO. OF THIS DRIVE
(RO),RESLTS+19.
RESLT
s TYPE _TEST RESULT HEADINGS

81’

TSTING

: CONVERTMOV
AND TYPEDRVPTR,
YEST RO
SCORES

001306

liP gfl

MOV
MOV
MOV
MOVB

UNOSCRO,STMP12
#'0,R0
#DRVLST,R1
RO, TRKBUF +1

"” AE FOR POSSIBLE KBD TNPUT = ">

nLLou nv ssc

;GET DRIVE LIST POINTER

;GET POINTER TO OVRWRT SCORES
:INIT TRACK NO. TO O
:GET DRIVE LIST POINTER
:SET TRACK NO. FOR PRINTOUT

cznsoeo RK6E DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

4337

016530

:ggg

iz 5

:
3

é
3

ig
{ 54

4347
4

0116574

3
4351

B
335;

uig;

02-DEC-77 10:46

001306

8??223

16544

ol
B
{

CMP
BHI

BUFFO, 87
148

PROMPT

sss }r
SCORE > 7

lgg

p; -. S.

B
TYPE

R
T

;YPE n TRB

11243

4368

0167

:g%
33;.,

1_‘7’»
iggua 104401 001325

000007

012147
12

148:
168:

140

doT30q

4901 001325

000040

4379
Dleree 18iegn Coooee
4378

38._1;310

gxaoq

4386
4 Bg

17012
017020
i;gg

012737
104401
683336

0111
011303

4389
4330
4391
4392

(017030
017034
017040
017044

012746
4737
004737
104401

00S212
043174
043370
001325

TY&E

TYPE

TYPE
MOV

Nee

001306

@l
SPACE L

;GET
_SUBSYS NAME
:TYPE NO, OF DRIVE RERD

3CLEAR TTY CHAR BUF
;GET SCORE Po;

;

ACE2
kBUFFO, -(SP)

59?. ’7"562

lidar

c2" &z‘ ¥st NO.

1 SPACE

on xuus

2 SPACES
T BUF ADRS ON smc

R EROE

LT 2 i RNg

Espfi%“"
LA S
ESE INg#t SCORES TYPED FOR THIS TRACK

E?J;
ng

et.s
kganr

;f’:‘c ‘8&’: ,‘,‘5""

§%

PBRCIF

Y
MOVB

DRI,
#PUT DRIVE e INTO Gl
(RO) énoonws

MOV

ovnnvc BUFFO

ADD

#32. ,STMP12

: INCREMENT SCORE POINTER FOR NEXT TRACK

NOT-YET
ko TYPEDYEV

; COMPUTE.'rsnouv:n?P, AND
TYPE TEST ;GET
AV
génces
(OVER ALL SURFACES)
Tnxnvc
AVGS OVER ALL TRKS

e
R
4382 016774 111037 011311
1

ADD

|oeele

4379 016760 004737 020262
17

R3,DR
DRVB

12%:

e
15;8

01l

nso'
st
TYPE

iGET A on%v: NAME

;ssl-: E_rmscone < m.

i4365

4383

gz }r
IT IS CURRENT DRIVE
vp; -ssu"-

tmnR3

?gir ,#10.

012170

062

53, dDRVPTR
SELF

S,’.‘,”

016744

S?E
gzps

MOV

118:

4375

gucPEx
FOR "Yuesgcm: nogr

é
r3+a
m STMP13

4330 0167
{g;

;GET SCORE POINTER

pg kcnbur

gts
MOV

12150

$TMP12, RY

.{;gs

108

4369

MOV

SEQ 0088

IN PASS 2

is
1310

1664
0166

436l
Ol
4362 oxss%

TYPE TEST SCORES, DISMOUNT PACK,

MOVB égfonvaurm

Y
uasg

435

PAGE 89

8s:

B
oo
00S212 000012

KO?7

11:48

011232

011231
11230

i
016610

T11

6S:

167002
011235

oa-osc
-77

CLR

00s212

017026

208:
o],
’

MOV
TYPE
Tfigfio

MOV
JSR
JSR
TYPE

sTHPl 1

;CLEAR SCORE INDICATOR

S0AVERG, 223
, BADDRV
.

; TYPE "DRIVE
X
:TYPE WHICH xmo OF AVERAGE

8BUFFQ, - (SP)
PC, 3880820
PC acssupns
, SERL

;PUT POINTER TO nvc ON STACK
con ERT TO DECIMA
; YPE IT
:TYPE <CR>, <LF>

iGET OVRWRT AVG SCORE

LO7

cznsaeo RK& DR CPT PROG MACY1l 30(1046) 02-DEC-77 11:48 PAGE 90
CZR6GB.P11
02-DEC-77 10:46
T11
TYPE TEST SCORES, DISMOUNT PACK, IN PASS 2
4393

4394

017050

017056

013737

012737

007430

011151

%4397 017072
Bt
Bgtler
oL
104401
001325

00S212

MOV

017026

MOV

COMAVG, BUFFO

SRAVERS,
228

g
TYPE
SCRLF

4398 0170
127
;DISHOUNT
FCK OR THIZ DRIVE
sag
Qifiee
o090F 832823
SRR
ISR SRETIS
o€ bnconr
qqgg
§ni§
@83
B0
::
i?l
z:
TST
(RO)
88
BiZAEE P8 ooocor oossio
B8
fhoswsrs
Y406 017132 001005
BNE
Y

Y407

gx713~

Y415
4416

017
0172

12737

gooooq

105737
001

003126

001102

MOVB

3388
1;135 ffiuugx
563; 8?823§
50001 010574 24$:’
Yy
81715%
::11 017160 ooo?og
268:
4418
BiZiee 988437 879358
28s:
Y414 81717 012737 005512 00SSSY
Y417
441
3350

017206
817212
17219

0001
ooooog
000137

000200

figp
TYP
4"&
TSTB
BNE

84, STSTNM

SEG 0089

;GET READ AVG SCORE

SREHETR
SER SR
TYPE <CR>, <LF>

oo aLou TTY

g.azsgkamezR 73Bigmaunr
pack
n F ALL oou: WITH PRSS 2 YET

B i eurn
bl THIS
i SUBSYS
nons ver

T T

Ist)
TR220+39. 758: agg§*§
"EXT DRIVE 8F2 §Rg
28
—
T THE
Pnocezion S0 ;Hggngpsnnron
ERoTsT
TYSE"-.. TERDOF TET¥RGRz~
5DRVLST DRVPTR ““1"272851V$nh¥57 POINTER
285

LAG

ses 1
%

308:

JMP
HALT
JMP

zggg

.SBTTL

END OF PASS ROUTINE

:.l: 2

,;;;E;E;E;#l#;&l;ggglmg;;&:;;aggllll!lll!l&ll!!llllli!l!il!!il!

000204

Y421
Y422

Y427

:%IF THERES A nouxtoa GO 10 IT

3353
Yy

:%IF THERE ISN’T JUMP TO 200
017220

33
1
4y : oi;aao
817555 00000;
-fit¥3r 881533
UL

Y434

017232

:3§§ §i7
e

Y438

017246

Y441

0172549

4430 gigggg
Y442

Y443
Y444
Y445
Y446

4447

4448

204

RES ART nr ngg
‘HALT THE PROCESSOR
*RESTART AT ADRS 204

017260

1704

1405

471
000240

017272

000240

017274

100000

001336

BIC

SEOPCT: DECRD
" BG

012737

817
017264
017266

017270

SESPE
fnc

[]

042737

SEOP:

MOV

000042

TSTNM
gpgss

THE T srPgsg
NUMBERNUMBER
::fEMENT

iPC)’

(PC)+,a(PC)+

: 'RESTORE COUNTER

#100000, SPASS

$DOAGN

SENDCT: WoRer !
$GET42:

MOV

as42, RO

$SENDAD:

RESET
JSR
NOP

PC, (RO)

000240

BEQ
NOP

$DOAGN:

NOP

$DOAGN

..oou nLLou NEG.

NUMBER

;; YES

,,csr MONITOR ADDRESS

:'BRANCH IF NO MONITOR

:'CLEAR THE uonLo
1160 TO MONITOR
; ; SAVE ROOM

PiACT1L

CZR6QBO RK6 DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

4449

017274

02-DEC-77 10:46

000137

02-DEC-77

11:48

END OF PASS ROUTINE

000200

JmP

:::

MO7

PAGE 91

2%200

; sRETURN

llI'iIlllll!llllllllllll’llllll‘llllll'lllllllllllllllllll!lilll!ll

I L

4459

' IN THE SCRA

Te b

EitllgisI‘IlngsfiI‘glllll"fillill"llll!IIflsngig&l:i%isinnunuu

:usa Py ——
INITIRL scnnr H
s
:3&4 okgage §32337 000003 003143
éfisa
og §$?$S
Yy
x7§1§ Aégg 007432
wee giale
8
. D oORO, RO
-P

4ueq
017359 Toary o07s7@
Yy
33;

017326

gi; 3

112765

000117

003147

000001

S5%:

Yy7iy 01717§32 004737 030146
024416 000002
Y47,
817 4
19 000002
4478
0173 0%
14152
as:.
qu?g §1732§
3390

1;3

{;31

““§§ §i7u8§ ?

Yy,

817%52

Y430

0174

003143

0{7wsu

178:

158:

B3 Bizele agesed
Q01751

148

177777

"$ ENSCORDH3%. BEE 17WP
YET

égra

#SEEK,P. CHND(RS) ssr SEEK COMMAND

F100

FNSYL DIF = 100/200 (OCT)

JSR

PC,

ggx

oxaq,na

;ssr OFFSET gguvren ?g ?gg 8?375

%3, TSTTYP

ESEEI}F sgLr-rssr

ADD

JSR
CLRB

DS,P.
CYLN(RS)
:SEEK HALF THE CYLS
DRVCAL
”?E
P.CYLN(RS)
L
K THE REST OF THE WAY
PC.ORVCAL
: SERFO ¥Orr'= 168200 FLAc"
oSsB?X
EcLsnsngrfgir oxnscrxou FLAG

CLRB

3?80&?0

MOVB

*RCK(RS) R1

EEET Tflggk NUMBER

ADD

onsc?no,nl

‘GET POINTER TO SCORES

gaga

=
b
=R

:geg 8i$322
::99 §i;:2§
Y4
:§§2 §i7§10
4503

12%:

6S:

i o
4435 017450
::gg

BLo

Ly
sssxxr ogrvz SELF TEST
?:’T ngargc
RATCH SCORE TABLE
C17gie or scaar

: PERFORMkgaos
WITH OFFSET

Y475

%
b

'?HE’&»IHSFE 5§£"gcoaéLF5§ rfifl°IQVQEQEDPngso NO FURTHER

:*BEZ

Y471

SEQ 0090

o
ADD

#48. ,R1

:03
ggsa
MOV
gfiza

gugcogg,nx
orgbtn
#PSCOR
{gi)+ 8¢sénr

ESV

BE
N

:& RY

-1(R1)

: Ni¥ 559

NUHgtHE

B R DIReCTIOn
;POINT TO POSITIVE SCORES

,ssTTcouursn T0'1

329 #o NTER TO gconss
355 ufl!gnors? o?nscrxon
T P xur R r R P
ORES
gEE
TH 5 12 82R§ECT
SCORE YET

RRCHERERT Togs
NCREMENT THIS

SCORE

55488
83:

RKE& DROSP PROG

£
U
n
wn

SE5SSSSESS

DONCNLEWNN—-O

P11

1
17540

17544

a2
1
1;?
17574

1?7

-DEC-77

;

&
273;
7

MACY11l 30(1046) EOE-DEC-??
10:46

11:4
ND OF PASS ROUTINE

168:

11S

000001

121

000001

1
15

177

146

000001

11S

000001

30146

BNE

MOVB
MOVB
JSR
INCB
MOVB

:BR

IF NOT QONE YET

0,P.OFST(RS) :GET AN
OFFSET VALUE
8OFFSET,P.CMNDIRS) fi?fign°'F§§E CMND
PC
CAL
; PE
gE
OFSCNT
:INCR
OFFSET NUHBER
cnooarn
P.CMND(RS) se

JSR

PC, SVPRAS

MOVB

#SUBCLR,P.CMND(RS

cLsnn connnuo

Y
Rg

-xucn ors
.gscn

UE av 100 UIN

#12.,R3
#4 RO
gggoxn

ssr counte
on POS SFSTS
IN
0 100 UIN
EHEN °‘§§5§091§5§g1°2 FLAG

JSR

880:
HQNEEE
or Tnnusrsn

JSR
CLRB
MOVB
JSR

PC62RVCAL
¥§n
P.OFST(RS)
Lnn
8OFFSET,P.CMND( ) . T or
PC, DRVCAL
vgf

BNE

ADD
DEC

el
S
175&3
12
e B g
iggsg 10%56 003156
17638 134968
017642
000207

SEQ 0091

MOV
MOV
cgga

BESREG
15

RRORS

IN THIS gxnecrxon YET

SEdoa?So-aE

3 lll*ilIllillll!llllllIllllill!ll*llll!lllllllillllllill!ll!llli

ino
SCOR- ADD THE
+ AND - SCRATCH SCORES TO THE
+ AND - SCORE

.39"51
roa EITHER THE OVRWRT, SELF,
017644
017646
817@54
17656
017662
17€

i
i

1n§§

!ll!!lllllllllllllllil!lllll!lIllllllllllllillllllll!lllll!ll!l

104407
122737
1031
113700
060037
37

003143

177

652737

i??&D Olé;

017;?3
017
017774
020000
020004

0
ADD

B
RO, NSSER2

ADD
MOVB
5839

ssséno
1
nocpssésx

BR
MOV
MOV

8s
#NO
M

MOVB

ADD

2%:

815?
127
012701
012703
112102

007112

7e
0060
007432
007512

CMPB

003143

83, TSTTYP

BNE

MOVB
ADD
ggga

g
o
fios
e R
i
fieE pes
1;;%2

ADSCOR: SAVREG
CMP

177

OR COMPAT RERD TEST, AS DETERMINED

NSCORO, RO
RO, NSSERO
NSEOR1 so

53,3§§¢R2

gg.gg

#1,TSTTYP

ysg'

4$:

MOV
MOV

#PCSCRO, RS
#48. . RY’

6S:

MOV
MOVB

sPscoao R3
R1)+,R2

MOV

IF NOT

noo SELF-TEST SCORES

PSCORO, RO

BEQ

MOV

: SAVE RO-RS
sss IF SELF-TEST

#NCSCRO, RO

suscbno Rl

SEXIT
:GET POINTER TO (-) OVRWRT SCORES
:GET POINTER TO (+) ovaunr SCORES

:SEE }r READING OVRWRT DARTA

‘BR _IF

YES

:GET POINTER TO (-) COMPAT DATA SCORES

;?sr POINTER rg
(+) COMPAT DATA SCORES
:INIT COUNTER TO 48.

:GET POINTER TO NEG SCRATCH SCORES

:GET POINTER TO POS SCRATCH SCORES
:GET A SCRATCH NEG SCORE

EoReaa Pt

{14

mcvu 30(1046)

ORoStoe

02-DEC- 77

ENG OF PASS

20
:

ROUT

ADD

bo2t?

8s:

RT3

BO8

PRAGE a3

SEQ 0092

(RO)+

;ADD IT

(RS)+

;sgo

)+, R2

ADD
gEC

8
1

1:98

3 53R 5

RK& DR

TO (-;ogconz

:GET PNTR TO

T '1"? (+)

DECREME !

SCRATCH SCORES

SUM

OUNTE

Il!ll!lllllll!l!.l!ll!lllll!lllll'll!l.'llli!lllllllllIllllllll

gt,,,.
Oyt
SRRRt

OF
ivxoe THE NUMBER

003143
001304
001310
001306

'llIlllill!llllillllllllllllll!lil!llllllllllllllllllllIlillll!i
AVSCOR: gnvnsc
:
RO-RS

001
2s:
131D0
003143

4591

Y4 g
g

DO1304
1310

001306 Y4$:
12%:
6S:

Y g;
4

nov
MOV
MOV
gv

vv
MOV
gsuaa
MOV
ggx
MOV
CLRB

,TSTTYP
msscno, TMP11l
TMP13
o s1' 12

% TMP1l
TMP13
ts TYP

RO,$TMP11
§E
fmn

9§§ g MP12

;SET DIVIDEND = (-)

MOV
JSR
MOV
ASR
MP

aSTMP13,R3
PC,M.DP1D
RS, RO
RO
R1,RO

;SET DIVIDEND= (+) SUM
;DIVIDE
TOogsr "AVERAGES
IGET
v*s
iDIVI
T BY a
iSEE_IF REMNDR> HALF DIVISOR

INC

TSTB

?rogox

32{
4614

4615

4616

001304
001310

148:

J$TMP11,R3

328?

8%:

MOV

;GET
“?m‘
RT8 )) OVRWRT
;GET
N
OVRWRT ggon:Eg
;SET lV
7
i SEE IFR ING' OVRWRT DATA
;GET PO
(-) COMPAT DATA SCORES
: ; Povrxn R T0
TOg{,”
COMPAT DATA SCORES
1SET 8
R = 48,
:INIT FLAG FOR (-) DIRECTION

0
gé

CLR

108:

;
x}F LF-TEST
;GET
(=) SELF-TEST SCORES
;GET
(+) SELF-TEST SCORES
iSET
DIVI
s-o
=
; TT

CLR
CLR
CLR

4599

461
461

coMB
BEQ
MOV

:CLEAR HI BITS OF DIVIDEND AND DIVISOR

:SEE WHICH OFST DIRECTION

iBR_IF

NOT

{ADD 1 TO QUOTIENT

ggo

OFSDIR
148
gg,ggmm
e MP11

:COMPL DIR FLAG
iBR FOR (+)
iPUT (=) AVG INTO TABLE

MOV

R3,3$TMP13

;PUT (+) AVG INTO TARBLE

DEC

$THP12

; DECREMENT COUNTER

ADD

82 $TMP13

cos

CZR6QBO RKE DR CPT PROG MACY1l1 30(1046)
02-DEC-77
11:48
PAGE 94
END OF PRSS ROUTINE
P11
02-DEC-77 10:46

B 1

geBsee §84373
020260

000207

RTS

SEQ 0093

slRt

i IIlllllllllll!llllIIIl!lIl!ill'lllllll'l'!llliil!!‘lll!llllllll

.T%R$d'3QV&‘?ETIBIL Y DRTR REH) SCORES
Illllllllllll"l.Illllllllll!lIlll!!'l.l'lllll'l"lllllllllllIl

*$§2¥suégzggcov§§555§§.ggo °°"PA§:gE“Ba18§
_JEQRES OVER ALL TRACKS
INI
R
8

MOV
TST
BEQ

#NCSCRO, R3
(RO)+
8s

288
v

007430

385840

006712

?5025

;s DIVIDE I
L

n—o JO

= EEEELE LL
oo
EEEE

160646
042676

108:

counrsn

;SET -oxnr R TO OVRWRT SCORES

:SET POINTER TO READ SCORES
;COMPUTE TOTAL NUMBER OF DRIVES
i
IN RI

;PUT NO.

)
(
)
(

;ADD SCORES TO SUMS

s‘é

832.

R2, $NOSCRO+6M.

T AVERAGES

OF DRIVES IN RO

SET POINTERS TO SCORES FOR THIS TRACK

F G#LE(f‘ORES ADDED FOR THIS TRACK

POINT TO SCORES FOR NEXT TRACK

sSEE_IF ALL TRACKS DONE YET
:BR IF NOT YET

;GET DIVISOR IN R4-RS

CLR

SOVRAVG,STMP11
$TMP12

;SET POINTER TO OVRWRT SCORE SUM
:CLEAR SCORE INDICATOR

CLR
CLR
MOV

Rl
R2
a$TMP11,R3

MOV
ASR
CMP

RS.RO
RO
R1,RO

ASL
MOV

001304

:xux
INIT

CLR
ADD
288
007426
001306

%gt

9s:

3EE4REE

007426

8s:

6S:

cfiggégo.na

~2020 D00

007112

448

[+
ELE

HEY

74
TM

.afig? o

oossi2

CLR

JSR

BLO

RS
R1,RS
R1,
RI.R
RS

PC,M.0P1D
128

‘GET DIVIDEND IN RO-R1-R2-R3
:DIVIDE TO GET AVERAGE

1GET oxvx§on
‘DIVIDE IT
BY 2
:SEE IF REMNDR >

iBR IF NOT

HALF DIVISOR

D08

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48
PAGE 95
END OF PRSS ROUTINE
CZR6GB.P11
02-DEC-77 10:46

2 B 850w
is7e 76 000207
37

;;

1354

001306

001304

128:

INC

ggflx

1 TO_QUOTIENT

Egggzggf“mu

SN
108
2?:5.‘““‘ PC

SEQ 0094

gzfiox,‘:zgfio&"%&
k9

f57
imgfid

&Eogvsm

llllllIlll!ll§§§!l§Illllll!lllllllllllllllllllllllIllllllfilllll

-:T”ufixN§
IS USEDWHENDguoxcga 10N 18 EXPELTED (AND VALID).
010000

000020

l:nin“nnnuuluuuuuulunn“nlnul"unuunu

AéDHDL Bt'ET

031504
000001

2s:

005430
<+2=

J20540

D204,
3=

0007

4704

020552

000137

3$:

005476
033754

#D.P.CS&(RS)

.SEE IF liD ON DRIVE SELECT
iBR

B2V

R1,=(

Be v

gEHgB

Rg ,DRIVE

MOV
CLR

Egc
JMP

#1,R0
R1’

gg)‘uag
)+ R
nsmn(

;SET BIT POINTER
; E ngER

}F 1 = CURRENT DRIVE NUMBER

sm.és'sn conTER
’

&SM* BIT FOR THIS DRIVE
;TAKE NORMAL RETURN

Ill!!lliilllill‘ll'l.l!l!lillllllliilllililllillll!llll!llllll!

lwés 6&( 'finmxpgirgu &fl\lfl.fi?RIVER WHICH IS USED

H;iz 020556 005037 005424

;%IF A HEADER VRC

4717

020562

032365

000400

000034

BEKHDL: CLR
BIT

oos424

u7ss OS0E16 GAToEs 10000
4723
020612
000137
031504
6

—

4726

020630

000137

20
4

033754

IS HANDLED,

ALSO.

IlllIllllllll!llllll!lllll!lilllllll‘llllllilllllllllllllllllll

000034
00S424

4s:

3§§

gxr

?Nga
JMP

RECODE

:nvac.r.smnsm

;CLEAR ERROR FLAGS
;

"'xy n;noen VRC ERROR

grswncen,nzcoos : XTTWRS ERROR FLAG
ggcx.v.sams)

;sselpvggx ERROR OCCURRED

Emn’:glfin ol

RETNML

TRKE NORHQL RETURN F ROH DRIVER

ogsru: !

LE OTHER ERROR

RB 8" ehng LAG

CZR6QBO RK& DR _CPT PROG MACY11 30(1046)
CZRBOB P11
02-DEC-77 10:46

02-DEC-77

11:48

END OF PASS ROUTINE

EOS8

PRGE 96

iilllllI!llll!lllllllIll!l!li!llllllllllllll;llll!llll!illllll!

'Se

KBOHDL - TTY KEYBOARRD INTERRUPT HANDLE

llll!l!llIlllll!llllllllllllll!!llililllIll!ll!lllllllllillllll

KBDHDL: MOV

R1,-(SP)

;SAVE R1 ON STACK

BGT

R1, %172’
20$

Bss }r
LOWER CASE TYPED

208:

g%f:
MOV
CMPB

Rl
%a%rsINTCHR
R1,
.ooé.m

T u Emfincren
gevi
f
}r
u

18:

gés

?ggtz, gfrxs

%?Tn xaolxmsnnupr ENRBLE BIT

2s:

CMPB
BNE

#032,R1

:SEE }r (#2) TYPE
;ER IF NOT (2)

SE
CMPB

139800

000172

000141

9
03

B3158

160232

000032
012107

RTI

;;PE

3%:

000022
012114

CMPB

ol2126

CNTRLC

gmm.z

! cno c

R uS',';‘

; CD;Ow'(‘ 12)

8022, R1

:«’}Ee IF ;rNOT
(#R)(tR)
TYPED

iBR

CMPB

#007,R1

; zu}r (4G) TYPED

TYPE

CNTRLG

;Rchao htl 1G)

BNE

5%:

00S442
001325

R1, #8141

BNE

ERYPE

Ys:

000007
1
1
104401
égHHOI
0744

ETYPEE

e O

%PE
TYPE

lgmm.n

;

iBR

fmcnn
' §CRLF

chao (tR)

NOT (tG)

5551-03“ INPUT

D0 <CR> AND <LF>
i RETURN

Illllllllllilllll!l!llllililll!illiliillillllllll!llilllilll*ii

mus

nué"g5n5§“$
“%r
x~7“58u2¥‘x~puvHoRPIN PRE
OR NEW TTY INPUT. IT ALSO
ou

;xmcm

xevao

c s KBD INTERRUPT.
i¥ E

!¢
"JSR
PC, PREPKB
nuunuuuuhnnununnnuuunnnuununu*un
005077
005037
052777
000207

160146
005442
000100

PREPKB.
160132

CLR

?ST B

;CL RR KBD BUFFER AND DONE BIT

BIS

#BIT6,a$TKS

;ENABLE KBD INTERRUPT

CLR

RTS

NTCHR

.CL TTY INPUT WORD
; RETURN

S NEEREERFEERRRERRRRRRRRRRRERRRERRRRRRERRR
R R LR AR AR R RR AR ERRRRRRS

FO8

czasoao RK6 DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PARGE 97
CZREGB.P
02-DEC-77 10:46
ECOBRD - ECHO BAD TTY INPUT

M4
47

sa.r‘r CRROUTINE ECn
CHARBETER WHICH HAD BEEN
v& SEE % uns&:?meT Ss INVALID 903 gone

Y7
47

mnou.h

4790

ON MARK (?).

THEN,

R <CR>

PC,ECOBAD

!llll!lillllllillllllll‘llllllllll.lllll!lll!!lllillllll!lllfllll

4793

021014

104401

4795

(021024

000207

4796

,; CALL

:;gé

4794

SEQ 0096

021020

104401

005442

001324

Ecoano. TYPE

TYPE

RTS

, INTCHR

$QUES

;ECHO BAD CHARACTER

TYPE m AND <CR>, <LF>
IRETUR

4797

4798
4799

4801
94802

3 !l!ll!llllllllllllilflllili!llllllllllllllllll!lllli!lfillll!ll!!l

4803
4804
:g%
4807

i GETPRM - INPUT A SIX-DIGIT OCTAL NO. ON TTY
:%ENTER SUBROUTINE WITH OLD PARAMETER VALUE ON smcx SUBROUT INE
:;zgegr o:s.mcnwe. AND INPUTS NEW VALUE, RETURNING NEW VALUE ON

4808

021

4811

38%3
4814

4919

481

umg

Y4
Y

6S:

11
uxg
111
021120
oeugg

8%:

4833

021134

4836
4837

021130

2(SP),-(SP)

-cst

9 VALUE

BYTE O

}EEE
78

Pgegggfins
y

:guwgésgLsnomc ZEROS

15T

:ss } ?

RTS

i RE T

EaHs

bfgufgm
PC

X
RETURN PC
sanos sslTILRN

BNE

4s:

0211

4834

o 303036 36 36 36 36 36 36 36 36 36 36 26 36 36 36 36 36 36 36 3 36 36 3 36 36 36 36 36 3 36 3 3 3 3% 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 W X K K % %% XX

SETPRM: MOV

4831

4832

000002

:naaa
h”
Y4
851 1§

4826
qsgg
Y4
4829
4830

016646

4§

BRI

CMP

RO, #6

TYPE

, BUFFD

BLE

TYEE
§¥s

MOV
J?R
[
MOV
TST

-asSE
W an50&52" KBD
:uca 5

oaurro -(SP)
CTBIN

21. VALUE UNCHANGED

}r
> cums TYPED
xmur

uT POINT?R TO CHARS ON STACK

Egugsm ?

TS TO ammv

BNE

(SP)+ RO
sH1oct
&S

NEW axmnv vn
E
see 1r HI BITS ARE O
gn IF NOT

RTS

i RETURN

MOV

RO, 2(SP)

UT NEW VALUE ON STRCK

o 363636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3636 36 36 36 36 36 36 36 36 36 36 26 36 36 36 36 36 36 36 36 36 36 3 9 3 3 3 % % ¥

4838

"8BTTL

4840

:¥REGISTER TO BE MODIFIED BY TTY INPUT. THE SUBROUTINE TYPES

4839

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

:¥THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOF TWARE SWITCH

CZRSOBD RK& DR _CPT PROG MACY11l 30(1046)
02-DEC-77 10:46
CZR6GB.P11

SogTuflngSE?TCH REGISTER FOR MODIFICATION

SEQ 0097

AND WAITS FOR A NEW OCTAL VALUE

001140

X223 2321122322322222233233212223323 3322232222222 2222232X2222223

&tswrG: CMP

I?HREG,SHR
b
SWREG, - (SP)

QD*

d ol ol

FREROF
£8

e bt

Ll ol el ol

e e P

4or"SWR
UP =TO sxxoxc"?s =T0 be TYPED.

6%:

SWRMSG
AC,GETPRM
(s#)+ SWREG

RTS

;EEEI;F"g?FTHfiRE SWR SELECTED
;PUT_OLD

VALUE ON STACK

TTYPE=
:TYPE OLD cer Neu SWREG VALUE
sgogs NEW V

RPEea

00 MMm
e
NONLW

ELLELLELLLE

££

o®

X222

£
ne

382

GO8

02 DEC-77__11:
GTSWRG - OPEN

§ 3 BRI

QBTTL

RN R R R R AR RRRR R

INITSS - INITIALIZE SUBSYSTEM

R RRRA R

ITHIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS
!nflggOES gUSgYSTEH CLERR.
l

JSR

PC, INITSS

003056
0030s4

INITSS.

MOV
MO

SERRHOL ,A.ABNL

;SET UP RBNORMAL

opgano,
:
ol

A A

85:::§:§E
§ wo QVu

P.CMND(RS) ;szr

ERROR RETURN ADDRESS

PQSAnsT R

WWW
NNNNN

FRESE

e bt e

nwnn
NNNN

0000

rav-

BLOCK

PARAME TERS

vs EH CLERR COMMAND

flLTERNRTE P.B.
Ponnnf
csxutggi
R;NT
on*vs
FORMA
TYPFMT
. P.CS1H(
:SE
YPE. o-nxos, Y4=RK0?

000007

SUBROUTINE sxxr

CD
€D 0!
m
£

£rc LfLrrrrrrrrrrrd

*ii;llii!!iliiiiil;ll&lli{i;!&&5illiiill;iiliiill&ili}:;lli*iil

o 363636 36 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 3 36 36 36 36 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 6 36 36 000 2NN A XX

]
N

*&BTTL

CLRPRM - %E DRIVER I NPUT PRARAMETERS

()

; #THIS SUBROUTINE

JSR

wnnrnn
ONNNN
noeLno

[ty teres

llllll!llll!llllllllllll‘lllllllill!llill*lllllllill*lllll!ll!i
PR

CALL

ZEROS THE FIRSTIéHIBYEES IN THE DRIVER

!PRRRMETER BLOCK (WHOSE

CL RPRM:

000016

1%:

MOV
MOV

RO,-(SP)

RS, -(5P)
RS, RO
#P.CS1,RS
(RO)+

,SRVE RO

SRVE RS
;GET P ? ER ELOCK
ADDRESS
COHPUTE LIMIT
:CLEAR
A WORD IN PRRQMETER BLOCK

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

O02-DEC-77
11:48
PAGE 99
CLRPRM - CLEAR DRIVER INPUT PRRAMETERS

3836 8523!1!2 B§?§9§

§§§

333
ééxg
8152
4301
1314 000207

MOV
RTS

4303

T?P':f -

(5P)+.RO

SEQ 0098

P BRE 147 Rgl?‘oofie YET
YET

REnggE 3

0 -

4304
3382

l#%till!llllllllllllil!%Iglll!llll!lllllllllll}llllll!llllllli

4308

mm n:

33{5

:2’__
RET ms cau. !

4307

; ¥THIS SUBROUTINE scmga* SSEECTEDonxvs TO INSURE

1353
4911
4914

‘"EET

33{9
1316

004737

aau7o

g 28 el g

021

4928

021350

Y
4931

1
021364

7
1375

gsxgg

Efsé ss§ GO BIT FOR RKOB IN RKCS!

#<CDT!GO>,
(R2)
gcaggu
Eesnsc T%L
cou

MOV

15§:

INC
BNE

73:

112765

000101

000001

gglgrnf
8GO, (R2)

5%:

4494

1376

021:30

E%Eg
MOV

002001

000010

:930

INITIALIZE DRIVER AND CLERR SUBSYSTEM

001000

-4332 8514%

PC, INITSS

000402

é"n;

Y
ggx:g

scnonv. JSR

L, B

ggi'g\%

Y
3§§§

<ERROR nznm

11 m uono "omv:"

ll»l!I'!I'lllllll!!l!llllll!ll!llllillil!llllllli!ll!lllll!lll!ll!

3355 85*353 1637
383 gg
Y
851_33% 8%9”13 000001

3é

m§a£'
?r‘t
' gsLET%megimsu

TO n-s

LL -

:gig

WRITE- 9cxeo

FeaiiTfié
g
RK

4315

4920

..7 7
ooo;g;

16
031224

000200 005424
033?;3

:333 85;:33% 9?27 8561'41 ooooog

CLR

CRACH
15§

lgs
JRKCS2(R2)

MOVB

PC ¢

JSR
1S

MOV
gggm
s

M PELER.
SRE
53& ?Yngor ’

gm;

n§39

(RE)
-

;SEE

cmoms) :

S1(RS)

T RECODE

,sm.

5857 oT
t
iSET

: T

T STALL co TER
sevsmL MILLI-SEC
FOR smgn REPORT

RKb11 REGS FOR REPORT
OR REPOR
ORT

FLAG

T Tegnm

30.‘»%73 nuo(ns) ”E' &néaognxve sm;gsngoggggo

: » 85{454 817 858329 8835%
r}ov
P:;ok9|'&vcm 2NIT. 8""‘;1;'1‘5:12?:&?
Y
851
fia?g 883643 011312
HSR]
$kv+7
!PUTn“!‘.b E IN MSG gur
43y
;SEE IF THIS onxv: txxs S AND IS'ON-L

4948

021474

012737

85%425

0003

03159;

003056

005476

ggg

' 77 ,

4951
4952

021512
021520

113737
152737

00S430
000060

011311
011311

MOVB
BISB

DRIVE,BADDRV+6
%'
0, BADDRV+6

:ggg

851?%

MOV

Rm')é A. ABNL

NEWON

RESTORE

NL RETURN ADDRESS

,ss I}FNNS 5 écmxon ON THIS DRIVE

;GET DRIVE NO. INTO BUF
:CONVERT TO ASCII

CZR6GBO RK& DR CPT Pngg
nacv11 30(1046)

CZR6GB.P11

02-DEC-

3953

oax§§§

iouuox

85 gws 934125

4959

§§1 50

02-DEC-77

4960
4961

496

4964

4965
436
496
4968
4969

4970

497

4973

762

011303

000100

000000

616

000000

765

000200

000040

gt
131

113737
87
1
104401
763

005430
60
011303
011333

011311
011311

figis

765

004000

000040

1
1

851
1

021614
021620

1013

1632 113737 005430 011311

33;; §§ig~o

isa 3{ 8?1

:fi?& na}&é% 1 1 01134

11:48

PAGE 100

SEQ 0099

SCNDRV - SCAN DRIVE FOR STATUS
;$gs

:3?5 85{ 13%235 866360 001351
4958

108

axgg

anoo?v

ESROR

“9”
7, SENVM

123

. SERVICE ERRORS HERE

2§:

BIC

8IE nxcsxcnax

a(SP),
PC

RTS
:SEE IF DRIVE IS ngg

4§:

.SEE IF

68:

011311

BIT

BNE

MOVB
BISB
TY
TYPE
32
seo

MOVB
g$gg

ggs
xr“fluof 3P§

:NED uuosn APT SIZING
ox;ngke
RKO® INTERRUPT

:ERROR

neruan ADDRESS

#S.DRY,P.ROO(RS) TEST
sgn
DRIVE READY

DRIVE ,BADDRV+6
cégbghoonv+s
RV
' NTREDY
[

DRIVE IS WRITE ENABLED

BIT

rvps
:oaxvsxx -

VE IS READY

csr
VE NO. INTO BUF
gon RT_TO nscxx
i TYPE "DRIVE
X
;TYPE “NOT RERDY"
; TAKE ERROR EXIT

#S. WRL ,P.ROO(RS) bfi:; IF WRITE LOCK SET

oaanoonv+s

rvps aQrox

WRITE LOCK NOT SET

oflvgn¥v§ NO.

TO n§cxx

TEEE ~unf¥E-Lg$xso"

4579 oeisso 112;55 uooioa 000001 8§:
:SEE IF vas
NO#SLOGOSD
WITH tcun;n‘nggzrsxocs
MOVB
(RS) sct vsfcx
ACKNOWLEDGE COMMAND

:979

gggg §§i9§§ fifiaggg ?Qpia
] []

000001

“385
Y

88881;
0

4983

‘IH

851704

43ge
051758 11
4386 oaxrg& 01276
1734
17;8 01
14

121

000001

MOVB

30 2 800005
000010

4989
4990
3335

17
021756
85};98

xssrs;
7
15 P

1
033638
3

005424

4993
:ggg

021772
351775

104401
85?5?7

0120
177777

053350

4996 02

MOVB

.cnuocasiREcm TEEET
RECAL CMND

cagoatn

.CMND(RS)

MOV
BICB

10S:

#-4,P.HC(RS)
-Rtno.529533 SECTOR FORMAT
#8. CFMT, P.CS1H(RS)

BISB
JSR
BEE

TY
P.CSIH(RS)
PC, DRVEAL
;READ 4 WORDS OF BAD SECTOR FILE
f8§
R,RECODE ; E;}‘gfl“’“ ERROR

TYPE
gng

BAD
55;77

MOVB

; TYPE READ ERROR MESSAGE
, RWBUF +6 ESEEI}FNQ#LRLLS xg 1.D0. WORD 3

DRIVE ,BADDRV+6 ;GET DRIVE NO.

4338
055053 10audi Oiraag ~risil
BIR
B
RAORVee
4999 8553%5 1ongg 011366
gvps
’ ALNPAK
5389
:ERROR FREE
RETU%N
5002 022034 062716 000002
12s:
ADD
82, (SP)
5003
S006

5007
s00e

022040

000207

gnnn

Hove
%Es$¥kk’p°¥‘az‘.‘<?%é
°"kgc"°‘ S
Vv
onuagr p ggLO(RS)

000007

113739 005430 011311

3gt

RTS

§ 5 MMM

PC’

O
1o ]

'ran Ek38852x¥17“ ALIGN PACK"
;FIX UP RETURN PC

i RETURN

iserrup - SETUP FOR LOOP ON ERROR
: #THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER

R AR RR RN

RRRERRR

JO8

CZR6GBO RKE DR CPT PROG MACYLl 30(1046)
02-DEC-77
11:48 PAGE 10!
CZR6GB.P11
02-DEC-77 10:46
SCNDRV - SCAN DRIVE FOR smrus

5009

; ¥SUBROUTINE --- ONLY MAIN-LINE CODE !!!!

5010

llllll!l!Illlllllllllllllllllllllllll!llllllllllllllilllllllill

28‘5815;&7,

001076

&ETTUP: MOV

5013
5014
5015

88542%
3135
002640

CLR
CLRB
MOV

5016 oe
5017
5018 1
5013

5020
5021
502
502

SEG 0100

022106

005037
6
7
12705

001076

12765 000177 000001
737 030146
12737 000000 177776

MOVB
JSR
MOV

000207

RTS

.gm
aosmcx 2

;MOVE R§

ON STAC
i RE-INI ¥us'y PC
STACK
POINTER

EPRCN
#PARMO, R

: CLEAR ERROR RECOVERY FLAGS
chm RETRY ERROR COUNT
nmn BLK ADRS

osuacmcmo(RS) 'iyasvsrsn CLEAR CMND
AL
cn.tm
THE SUBSYSTEM
opkoo
iRE-ESTABLISH PRIORITY O
: RETURN

ggsz

3 l!l«lllillllllllll!ll!llllilll!lllillllll!llll!lllll!l!llll!lil!

5027

; ¥THIS SUBR

'&BTTL

5033

022110

5037

5034

gg;g

022110

sx1 4

2039 0551

000000

108:

5§:

giw
176

6S:

3 85
0222

128

5055

?829
505
S0

8555
0222
s ag

00110

5062 022250
65063
S0e4

ons

'§ll!llllllll!llilllllllll!lllllllll!lllll!ll!llllll!llllilliill

ftCART:

2330 022136
1 02214
gg"g
gsgl154
H
S044
160
Y4
164
1

§3§

uc oLLOW!

.*ESTYPEETR
ocs8ECTOR
cuec ILE
mfficr%r
nnmssTD-EUNPQ&EFORHRT
AND Tvpssu?hs on? AND CART. SERIAL

ssgg?
5035

rssr cmmmce Nsl-; gnxvsSTATUS

022254
022262

023727
001347

01344

005212

148:
168:

MOV
MOV

MOV

DRVPTR

ggg

HowB

:#DRVLST,RO

RO,LOGDRY

JSR
BIC
TYPE
TYPE
TYPE
JSR
128

B8%:

PC. INITSS
#IE RKCS1(R2)
,' MNtPAK
TYPRWN
DRIRDY

#cRDCHRS

NAME INTO MSG

;suamac LIST ADRS gn&nlch%sn

;2%0&2‘L§cm
08135
’

sINITIAL §
;DI
E
msnnum FOR MAN. INTERVENTION
;TYP
MSG
T
“TYPE R(CR> WHEN *
T
;%
IWAIT
FOR“DRIVE
R<CR> YRESPONSE
;usa
TURN
55

138
?gr

i (3%} RETURN ADORESS
Eseg }F NULL ?%ag

YPE
TYPE

,BUFFO
$QUES

:ECHO BAD INPUT
;rvps <?) AND <CR>,<LF>

gns

Bov
TSTB

%gTRCK sp

MDFLAG’

NE
MP
NP
1STB
BEQ

14%
ALLSYS
MDFLAG
5§

CMP
BNE

BUFFO, #'R
6%

MOV

000122

;GET_POINTER TO rmsr DRIVE FOR THIS SUBSYS

mgu
hmpm+aa ;PUT DRIVE
(RO) , MNTPAK+21.

JMP

DFSTRT
#STACK, SP

ASKSYS

;En IF

NOT NULL

1
e
iSEE I

e START
s TACK

'BR ;r
T
:RESTART PROGRAM - 200 STAR
co sx FOR SUBSYS’S AND onrvss AGAIN
200 START
r ve ro nsx AGAIN
NIT

ACK

co "ASK ron suasvs TO TEST AGAIN

:SEE IF R(CR> TYPED
:BR IF NOT

KO8

CZR6GBO RK&E DR CPT pnoc MACY11l 30(1046)
oe DEC-77
11:48 PAGE 102
CZR6GB.P11
02-DEC-77 10:46
MTCART - MOUNT TEST CARTRIDGE, CHECK DRIVE STATUS

S06S

5071
?
7
74
gg

022264

004737

021170

022270
117737
163260 005430
76
ua7g; ggooso 005430
7
1316
10
2150
004737
27
7
137

% 44
5079
soe?

1170

125
146
4406

000001
000000
000000
000000
000000
000024
003134

5085
soa;

003155

5095
5096

156462

364

?.897

a8
5099

p— smr

268%:

288:

022472

5109

2472

5111

sus
gu
114

5115
su;
811
5118
5119
§120

JSR

xux‘t

MOVB
JSR
MOV
gg
MOV
gg

CLRB
TST

BIT
BEQ
BISB
JSR
JSR

328:

g%e

msx (iSET RE
P
;00°A RE%
HOLD1
suaa) :D0 A READ HOR, WITH FMT BIT =
” Y,RKCS1(R2) ;WAIT FOR READY
HOLD2,RKCS1(R2) ;D0 A READ HDR, WITH FMT BIT = 1
onov,hxcsuna) iWAIT FOR READY

56
nxogns’)(

;TEST
T ?n IN HERDER WORD 2
iBR
_IF
s;c OR FORMAT
;SET ag
ga FORMAT FOR THIS DRIVE
$INIT
\
: READ gno
CTOR FILE FOR THIS DRIVE

:o" PASSNO

18R

ngiu:c

508’
PC, DRVSER

JSR

PC, TYPBSF

CLR
RTS

; INITIALIZE
FORMAT
;309
S}L
TIME BYTE TO O

oa 9,RKDB(R2)
oa CFMT,FORMAT
PC, INITSS
PC. REDBSF

BNE
JSR

JSR
BIT
BEQ

R<CR> AGAIN
GET THE DRIVE FORMAT
AND S.S.
Ag:a COMMAND

PG’ CRTSER
#8177, 3SWR
308

INTCHR
PC

SEE ; ngo

mnr

gaPé}
*Rgm
T Pass
:
NO.

PTYPE *
sen. NO. XXXXXXXXXXX*
i SEE }
sectons S§HOULD BE TYPED
;
1
T
YPE
SECTOR FILES
(INIT. TTY INPUT CHAR BUFFER
:RETURN

l!llllllll!lllllllllllllll!illlllllllllllll!lill!Illill!lll!!ll

gigg

5110

ggr'fia
TRIP TO-E scxx
;c
CK
STATUS03OF TTHIS MSG
DRIVE
:
IF NOT
AND RETURN

1518

5100

5104
5105
5106

gs M
8a
o'
scnonv

:
TO WAIT FOR
;RERD THE usnoen s§$ron
ON
0,TRAEK
O cvbn

308:

Slgg

OFPCINIT =T:.s soud
mmn%xzs S.S.

axca
JSR
108

24%:

SEQ 0101

"8BTTL DMCART
Rgun TEST C 53(:5
mus SUBROUT INE o cTS mcogsnm N me oxsnoummc
%0F THE TEST CARTRIDGE
RENTLY UNDER TEST.

bfillllllllllll!ll!llll!lilll!llilllllllllllllllll!llllllil&l!li!!

013700

005554

MOV

DRVPTR

111037

010422

MOVB

(nm DISPAK+14.

104401
wg;
737

010602
010642
023424

sgsg 112037 010423
2524
022540
022542
022544

89-037
27
401
022564
022606
022524

1170
100
010404

MOVB

000000
5%:

JSR
BIC
TYPE

TYPE
TYPE
JSR

12%
168
5§

.csr onxvs LIST POINTER

(RO)+ bzsm<+1s :PUT DRIVE NAME INTO MSG
INITSS
SPAK

'5% RKCS1(R2)
rvpnuu
' DRIDON
PC, ROCHRS

m nug&su?
mnpr FOR MANUAL INTERVENTION
ve XX AND REMOVE PACKTM

T
WHEN
*
,r *
iWAIT FOR a<ca> RESPONSE

1($C) RETURN ggonsss
:(+Z) RETURN
ADDRESS
:(tU) RETURN RDDRESS

LO8

000122

BS:

021170

MOV
JMP

CMP
BNE

T
)

ALLSYS
LAG
S§

JMP
TSTB
BEQ

148

ASK 583
SUBSYS S AND DRIVES AGAIN
E_IF
F YE? Tg fi K RAGAIN

8STACK, SP
ASKSYS
BgFFO,.'R
b

=INIT
TACK
GO ASK FOR SUBSYS TO TEST AGAIN
ESE F R<CR> TYPED
IF NOT

00S212

DFSTRT

-INIT THE STACK
}r”890 START

*T ALIZE S.S.

M=z

148:
168:

126
nglOO
13446

JMP

w
wn

1
3727
1347
£
N

RR
®

744

#STACK, SP
MDFLAG

B
s B
Bt Bt

T T T T T
T T T T T

T T

e s Bt Bt Bt Bt e Pt (s B

MOV
TST8

Bg xFano"mxm:u“u%
5\32ASK<?>AGAIN
AND <CR>,<LF>

T T T T T T T T T

12
Y

;g;

SEE IF NULL INPUT

asurro
UES
ig

12176

128:

?’fp
TYP
BR

’

001100
003126

SEQ 0102

u 1
2
Y %

1ST

i
=
"o

98&2836%&%6#5838388%28%”“

e Pt s s e

T T T T T T T

CZR6GBO RK6 on cm PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 103
CZR6GB.P11
DEC-77 10:46
DMCART - DISMOUNT TEST CARTRIDGE

1
i

1
{1
1

Ty Ty T Ly T T L

T
%éfifltgfiflfiaw‘m& 3;:3OR
"f
}Szn N?. Hflus RNSR
DRIVE
WHICH IS NOT PRESENT, THE enm
i";stsllgamaiillllllllilflllIl‘lllll&llll.lIlllllilllll!illlll

022642 104407
022644 8127

012701

006112

ORD nc FIRST C

OF TABLED'F
g‘f&"
n% NELzons or srm.sr

#TABLED, m

smn Agns

i S oagssq
oiam:la
"
{§9
85
% 000020

4s ’

Ly Ly T

022650

006552

123

022670

001373

%ggz

:GET INDEX OF FIRST ZERO ENTRY xflDRVLS IN

INT
_IN
%K
&?
I
&i%Epwfl
INITIAL
PATTERN
OF 2DR'IéIE NUHBEEE
K _LAYOU THETl'E
FIRST
CURRENT

1
163

022702

0014

129

165

8537

00s512

6S:

000020

171 8557

18%:

igg

~
o

174
175

022730

565383
020327

8573 80808
022742

0301

002403

000020

%39
328

?figis (R1)
aéb..kx

E"E

cfa

R?RVLS,RO

-ffifirg%fig Sr DRVLST

TST
BEQ

(RO)+
g%

iSEE 1
TRY =
iBR IF YES

éfig

i&%
TR RS 006112
1sg 85 753 12

ABLED

R, #16.

5;
55me
LED
ch
aét.sla
POINTER
¢o

&"E

;

YET

NT POINTER

F DONE LOOKING YET

mcnensglf
THE ossv
NOS TO FORAs INI
T Fts
Yo% WY
MOV
*5
'7'8&5 POINTER

208 :

INC

:fuén 585 ELER&

Bssé VALE 13 8

22%

an IF VALUE OK

CMP

CHMP

BLT

R3 ‘020

R3,RI1

:SEE IF ROMW su:nem IS VALID

SEE IF VALUE IS > ACTUAL DRIVES

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

66838?

000377

8377, (RO)+

;SET _INVALID ENTRY
= 377

4S$

Ry3ROV
ggcnRNELEMENT
- COUNTER $TRABLED+256. ,ggMWTRBLEVES
168

BLO
;SET xuanxo
ELEH%NTS OF FIRST chUfluB

268:

308:

oxLELsg'Ro

CMPB

377

'}5 ;
U'EEoeNT couursn

(52) 'R1

:SEE

IF E§
EMENT IS VALID

°L3a
0377.(80)
280
#16. RO

:gsrxznv
ELEMENT
= 377
s?ficaénsu ID OLUMN
POINTER

gggasc
RTS

{RETURN

DEC

ggs

; SEE }r
ALL ooug YET -

ESES*OREonkk o

e Bt B

Pt Bt
Bt P

; PROCEED

s Bt B

808365

MovB
BR

SEQ 0103

ot e ot Bt et Bt

e ——

ROFOROR RO OO ROROR POROPORDunnnninuininTninniWTUWIDY twnn
o
SREB S8 SRR LR 283 BIRR2 SR8

176 gs8

MO8

02-DEC-77
11:48
PRGE 104
INTBLD - INITIALIZE TABLED

Il!llllll!illlIlliillllllllillllll!l!!illillllllllill!Illlll!!l

855

TABLEDR

g 3r ¥n~s

!THIS suanou INE norn ES ALL ELEHENT

ABLED RIGHT 3 COLUMNS,

;

l*Illlllllllllllliliiililllilllllll!llllllllllllllllillli!lllli

RbTRLD: Nov
sn oy ROCRI
$TABLED+256. ,RO 3“
NTR?
E or TRBLED
c2$
&»"?
4s:
6S:

MOV

015. RY

5833

NIT nou 5

-(ngi,grnpxé
-(RO)

MOVB
MOVB

AVE LAST

$TMP1

-(RO).STMP13
-(RO) . =(R1)

DEC
N

:DECR_ROW_ELEMENT COUNTER

as IF NOT DONE YET

anxé,-(ax)

MOVE IN 3 SAVED ELEMENTS

TMP12. -(R1)
§TMP13. -(R1)

MOVB

CMP
gnx

ESREG

RTS

ELEHEN S xn THIS ROW

;MOVE
AN ELEMENT RIGHT 3 PLACES

MOV

nOGE

——t—

88€E g

Ot
000
oL+
LW
O
NO L N tape

BRI
e

e ©) OO0
et e
e b o b pe b b (O
£
£
Quww88 00
£
3 (=}
LW o0
£ =NNN2 ~N

:ggflagn;
!
DRIVE DATA WILL BE ROTATED SEVERAL SECTORS IN EACH

RORI
WWww
88
ER8ASE

SS:EGEE&:S%%B&?

s B

'&BTTL OTBL? - ROTATE

RO, $TRBLED
4g

}r ONE uxru TRBLE YET
S % r oo
ES

& 363636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 3636 36 36 36 38 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 30 36 6 6 36 6 36 36 06 06 36 36 36 0 3 2 2 B

ST SRR ATB il AT 10 Lpragro

lP CYLN(RS) ON ENTRY.

HRITTEN ON flL%
SURFRCES

lTHE LOGICAL DRIVE NUHBER HUST IN LOGDRV ON ENTRY

&IT CALLS WRTSEC TO ACTUALLY WRITE EACH 2S6-WORD SECTOR.
R I

r T

R I

NO8

8¢S

112
20

ys:

6S:

003154

3{=3%<5
—

RIS:

s s B

Bt B

Bt (s Bt Bt P

SIS LF ERS RPN Z6R

e e

WWWWWWWWWWWwWWwWwWww

WRTBLK:

003154

006572

000004

000005

000002

8s:

SAVREG
MOVB

ASL
MOV
MOV
MOV

Tngbfg(ng),na
#TABLED,R1
816, RY

:CONVERT IT TO DATA PATTERN INDEX
iGET
DATA PflTTiRN WORD INTO
IGET
TABLED POINTER
:INIT CYLINDER COUNTER

LOGDRY, (RO)+

; SEE ;r DRIVE LISTED

SuB

R1,RO

: COMPUTE

JSR
INCB

PC,
WRTSEC
P.YRCK(RS)

TWRITE
333TRACKuogos
AT THIS SECTOR
: INCR
NO.

905
INC

P.CYLN(RS)

#16. ,R1

§ggxur
T s?éng 55 NEXT ROW
: INCR CYLINDER NO.

MOV

R1,R0

BNE
DEC

6%
RO

CMPB

MOVB
CLRB

sgrncxtasn.na

RESREG
TS

:#FAILING DATA

ROW

POSIT

;sssxg R%L raacxsroone YET

.ggs§oné
ng
: RETURN
’

: *READING ?vauar

: 8ERRORS

:BR IF
NOT FOUND ET xn THIS ROW
: BACK gg 85 1
v

SECLST(RO),P.SECT(RS);GET SECTOR NO FROM ROW POSITION
P. TRCK(RS)
sSET_TRACK =

gEPB

000020
000002

SEQ 0104

; SAVE RO-RS
:GET LOGICAL DRIVE NO.

OGDRV, RO

* 4CKSCOR
- DE
:¥THIS SUBROUTI

INE
PROGRAM IS CURRENTL

cggpnr ga
A u TH

FSETS

AND HAND ING DRTR CHECK

DRIVE WHICH WROTE

gec

THE

;:ggsg¥gfz,
THE
gv LaecLso “TSTTYP" HAS THE FOLLOWING
’

e
%
:
RRR ORI R
AR
KRSB
REFRS

gzgaeasggzauaazaa:fifiss§$$§§§§$§§§§§§§§§§§qsfi aas §§§§§§§

PROG MACY1l 30(1046)
02 DEC-77
11:48_
PAGE 10S
CZR6@BO RK& DR CPT
WRTBLK = WRITE ONE CYLINDER BLOCK
CZR6GB.P11
02 -DEC-77 10:46

rsrrp =0

é
Et
= -gSESEN
PRESENTLY
=
- PRESEN

Y READ

WITH

5egun¥
sfru orrser
nc
conpnr ?F
arn uxrn
NG SELF T
urrn or ssr

lllllll!llIIlIlIlilllllllll!!Illlllllllll!llilIllllill!lllllll!

¢kscon SAVREG
TE B

003143

000024

00s424

034310
000003

003143

001174
177760

TSTTYP

ss:IF cunnsanv
;Esvxnc WITH OFFSET

§éo
aggxsnn-nvncsn RE
Ee irn ocx OR HVRC ERR OCCURRED
:GET THE NO. OF ?uc onxve WHICH an Tn WHICH CAUSED DCK OR HVRC ERR
JSR

4s:

PC, GTPKAD

Snpa
NE
CLR

83, TSTTYP
4§’
RY

MOV

$REGS, R

BIC
ASL

ASL
ASL
ASL

#177760,R1
R1
Rl
R1
R1

E PACK ADDRESS OF ERROR

,sse ooxnc SELF-TEST
:BR_IF NOT
ISET ?vas NO. = O

s CONTINUE

:GET CYL no

OF ennon

:CLEAR ux % g
:CONVERT TO TRBLED INDEX FOR ROMW
%

c§§'233°m

RKE& DR

Ecss
16

MACY11 30(1046)

006112

001200

006572

7432

156

2308
V

801176
897958 oooo01

000020

003157

231

STABLED,R1
RO

cn;

RO, #16.

8s:

ADD

128:

BEQ
MOV
g;fl

6S:

g:m

Q
INC

:
108 2

§§0

333

G7,SECLST(RO)

D
CMPB
00
ADD
MPB
cB
SREG

148:

RTS

SEQ g10s

; COMPUTE
JINIT

3
:

: g ?a

coMp

,.":E gg"'fi-."
senov"
%fisz:. RO
TST8 orsogn”n'

208:

1
1
1

11:48

ADD
CLR

000020

000377

B80S

WRTBLK - WRITE ONE cnnégg BLOCK
-DEC-77

; E IF
;;35 x!

ggc
ORO, RO
3R Gb

;
;
:

816.,R0
Gb, 81
816.
&1 RORO
R4,
éRfi),OFSCNT
(%)

SEE }

POINTER TO TABLED ROW
&
? 9

CT ‘is LISTED IN SECLST
r?g
L T CHECKED YET

sr:

m ?gnt RCDRIVE

T ING TESTED
”2 SCORES
OFS ?o?ficct%u

G
R%KposSCRATCH SCORES

!omfi
oaesmarmcxx
Hé
ngl(
:‘38
xm
iC
NTons IS Psnrzcr
ggx
;
r TH I
FAR
5
m scoat: FOR THIS DRIVE
3
;T

;

831

aé 0

llll'llllllll!llllllilllll;;!“llllIllllllllIlllllllllllllllll!l

8302
5323

.mcn
u
(lw
FfNAT
nnx n IF u uxno
r (96)

8326
2357
8328
8329

r«f~

‘:-

'f
*
sn r ?
uz
(1
xmuv xs TYPED.
SWIT u REG srs S OPE
ms
srgcx

: cmxon xr LECTED mo HEN THE (G) RETURN

g?él
33

::I'»anma OF INPUT CHARACTERS IN THE BUFFER IS RETURNED

233

P;%¥

337
338
8339

8340
8341
8342
2343
S344

”fzggr
T&E!GHTY 51."’"7

‘%

CALL -

LE” 'Egum
{2ONTROL
<CONTROL~Z RETURN

SS>

ESS)

égguumm.-u OR ERROR RETURN RDDRESS>

; ;ll!lllilllllll!lllllllllll!lll!lllilillllllllllllllllllllllllli

023424

RDCHRS:

CZR6QBO RKE DR CPT PROG MACY11l 30(1046)

02-DEC-77 10:46

023424

023426

5335

MOV

010246

&R
B?
:
geflm
(SP;+,R2
(tC)
;CHECK FOR
CMPB

gjzice 000004 3S:

MOV
2R

#003,R2

gcsm 4(SP)

-snscx rgn (12)

B 763 865682e 000004

MPB

f’

gfi

000007

1 012126
021136

8
17

000177

CMPB

éfl
: CHECK FOR

0 gg

i 012137

gsggg

'fzgg

023634

005037

023644

104401

gq
4R§3)
%007,R2

gamm.c
, GTSWRG

RUB-OUT

(DELETE)

sss IF ($2);mo

&6 PC POINT TO NEXT RETURN ADR.

:BR TO TAKE (12) EXIT

;SEE IF JIFNOT
(1)(1U)
TYPED
£

Fm(,%cg'gpso

gus

?PEE “wmn; t&xrcn REG. FOR CHANGE

TST
gx

R1
*13

gfl
§x

gsnncn

&
i2%
BEQ
335

éKSLSH

012137

o BB
?sps hSKSLSH

000015

les:

O0O0S444

BR TO mxs EXIT

és

118:

g%
URN ADDRESS ON STACK

“7,R2

00S444

832355 005444

'.x,r mt,;czfzm:o

r&gEx
POINT TO NEXT RETURN ADDR.
E (tU) EXI

; CHECK FOR (tG)

115k RUBZGGTTnGTERTon
&mcmTimo R2

e
80

BNE

;23

ESHECK FRRog
TMY 3025, R2

8s:

; SAVE Rl

ifl‘li

bs,ww)
O

Rl %
MK 86865-0 000004 7§:
ggg

6399 023640 110237 0OS4Y44
S400

SP)

iRERD A CHARACTE!

xaa:ma 000003

SEQ 0106

KBD INPUT CHARS

1 -(SP)

MOV

883433 BT
gyy lw

cOS

Pflcioé
07

ROCHRS - READ A STRING

010146

RRR

R
R |

CZR6GB.P11

02-DEC-77_11:48

T ?cu TYPED

R cur

HE fia
-r xmxcmon
n;
nua-our
ron TEMP. BUFFER

?egg eugrommscnncu58"8: %gs%
MR

i rgn
Rsmm& seand
aeo

19;5,R2

;HANDLE POSSIBLE DIGIT
CRACH
c

nbva
TYPE

gascmcu
,SCRA

%fimx

?"Pé aeé
CLEM THE R ou'r INDICATOR
ggsIF <sm TYPED
CRATCH HORD FOR TEMP. BUFFER
cg ¥HIS
HARACTER INTO BUFFER

{ECHO THE CHARACTER TYPED

D09

REQB0AK6 DR CPT PROG MACY11 30(1046) ROCHRE - READ A 'STRING OFCKBD INPUT CHARS

£3

5:01

023650

110260

00S212

)

="
?588 833706 480783 ">
Eif Ui {9080 BSES ooeeio
.
412
0237
766
000004

S B
413

415
416

re:

734

e
2319
2457

£ig3

BEYRRZEREBB
YRR

NIV
£L£rrrr

2
(7]

4
4

HIS

023736

IRICR
]

86, 4(SP)

:é§f“§9‘7§o
=3§$°£§na38¥gn§ TYPED

.rxx UP nsr RDDRESS

:RESTORE
u3R85$1N§ EXIT

DRIVE

SUBROUTINE TYPES “DRIVE

000001

bkvse R: SAVRE

i
1

SER. NO.

XXX* (IN DECIMAL), WITH LEADING

NITS

000060

:IN 1&';'5:g'f'r'POSITIONS

ROL

;GET NEXT 4 BITS

MOV

R1,RO

;GET A WORKING COPY

BIS

#’0,RO

ROL
ROL
ROL

Rl
Rl
Rl

8177760, RO

MOVB

go,tnq)+

L
YPE

,SCQL?

105014

024054

000207

10441

RESREG

iGET
OFCHAR BUFFER
.s;oas ON STACK FOR $SUPRS

é?

BIC

177760

#$0CTVL ,RY
RY,555”

goll:

024040

TY;E 'ggfiun
;TiGET -a- AT,sg avvz 11
P.AL1(RS),R1

4s:

2700

ngva
:gbé53 cnuocnSJ
45&
.Th§
ATUS or THIS oaxve

MOV
noz

SERIAL NUMBER (LOW 3 DIGITS)

ll!l'llIlllalllllllll!l!llill.lfillllilllllilililllillllll!llill

104407

Oy
e
44

RV
RTS

RDD

MOV

HY
44

S4S0
5451

RLF
:
?figpygFO(RO) ‘P?éY:gn?zpfl¥a§$a?E§L INTO BUFFER
’tous
g
YPE :flnbncg’t Lrfion RDCHRS
l&?EbFFOtRO)
:;figsrsfinxflufiruc NULL INTO BUFFER

#ZEROS SUPPRESSED.

Sude

?95
Eggé
gn
HECE

.,RO

;PUT cunancg:n INTO BUFFER o

440

§uy
445

R2,BUFFO(RO)

Q? %
DRVSER - TYPE

MOVBE

éRS

S BEk BUR ooue
BB BED (e PG oosaie

SEQ 0107

:CLEAR ALL BUT #ou 4 BITS
: CONVERT A 8101

,PUE nscg*

xcir

TO ASCII

sgg CHAR BUFFER

i BRCTE ROT 3 ua8§ ey

L
2LP>
<c§> nfifiS
;rvp A

iRESTORE RO-RS

{RETURN

8452
453
454
485

= 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 36 36 36 36 36 36 36 36 36 36 36 36 36 96 3 36 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 6 3 36 36 36 3¢ 2 2

"8BTTL

CRTSER - TYPE CARTRIDGE SERIAL NUMBER

; ¥THIS SUBROUTINE TYPES “CART.

SER.

NO.

XXXXXXXXXXX*

(IN OCTAL),

RK6 DR CPT PROG MACY1l 30(1046)

%““P

02-DEC-77 10:46

5457

oe-oec-77

11:48

EOS

PAGE 109

SEQ 0108

CRTSER - TYPE CARTRIDGE ssnmL NUMBER
;#WITH LEADING ZEROS SUPPRESSED.

lllllll!!Illlllllllllli!"ll!llllllll!llilllll!ll!!lll!llll!ll{

q%o
461

883820 000007 ehTSER: UE
ISR
7 ?3“737
o= 803134

crm3 csxmns)
2 ss So%FORMAT
F:8
uscx ré‘mfi

465
467

11 61
1116 111

LSTCYL,P é;kmas: ;
0CT)/1466(0CT)
STTRK,P. TRCK(RS)";
P.gg.omsn aur ADDRESS

1s0 jowsd]

466

-«_,g
"?o

73
475

474

88%2
2 000010

00000S

160
164
1

737
104401

76 000012
538

737

4
1325

333750

176

"E?

éS

104401

401

001325

010025

PC, a8
st

;

i RETURN

PERFORMED ASSUMING ALL

GETTYP:

, SCRLF

18:
236

438

TYPE
cg

'ASKTYP
AC,ROCHRS

iCONT-C RET

:CONT-U

RET

;snR exg_ Ngum TYPED

SETTYP

{ECHO
BAD INPUT
STYPE <7)

CMP

c;a.aurro

:SEE IF 3 TYPED

ggggz

agg

osae LSTCYL

4418

MoV

oos212

2%:

- 3%:

EL B

MOV

iASK AGARIN

oos212

RS
SHE

88°'“°L°5
:;7,aurro

024406
Y41

MOV
MOV

#2025 HOLD
.5035 HOLD2

5510

Ssqa?s

024414

MOV

#160, HOLDH

S512

024402

024416

MOV
MOV
RTS

gswpFOR RKDS

uofiag"uowa

5507
g

4374

;ASK DRIVE TYPE
iREAD
INPUT STRING

:CONT-Z RET

?'#Ps
TYPE

DRIVE TYOPE AND ALL FUTURE

THE DRIVES ARE OF THAT TYPE

, Eouss
BUFFO

Y410

TYPE

gnvp

s: 1

8511

gouvsm gxma
Y TO OCTAL
CAR
nmL NO. IN OCTAL
T
<CR>
<(LF>

:TESTS WILL BE

TTYP

gug

2202

PC SL

GETTYP

JSR
ISR
T

; THIS ROUTINE ngés THE OPERATOR FOR THE

5485

2230

;
ouu
;
uo nsgo 2 WORDS

RTS

202

8-2,P.NC(RS)
PC

174

Y
Y

MOV
SR

TYPe
2
MOV
b! SeRmm -(SP) cn
Po'fE
NTER.r = 0

MOV
MOVB
MOV

1?3 flxmé 011747
53'42

481

$20 ,

#100, HOLDS

gssIF g TYPED

FOS

B e Pt e pe
oP
OWVONC"NLW

RERRas U §mmmmmmm

uinnnINVIININVINUN

02 DEC-77
11:48_PAGE 110
CZR6QBO RKE DR _CPT PROG MACY1l 30(1046)
CRTSER - TYPE CARTRIDGE SERIRL NUMBER
CZR6QB.P11
02-DEC-77 10:46
LSTCYL:
HOLD1:
HOngz
HOLD3:

;CYL DIF

O
O

COHPRT START CYL
{HALF CYL DIF

m
W=~

HOLDY:
HOLDS:

O
O
0
O

SEQ 0109

3 lll!llllllllllllllllilll!ll!llllllll!llilIllllll!lllllll«llll!ll

&BTTL STRLL - STRLL ron ST UNIT STALL TIMES
;%IF SWR BIT 8

—

N
o
W

: ¥WHERE A sr L73
ilgnEEURL

THIS SUBROUTINE STALLS FOR ST STALL TIMES,

= 40 2?

FOR AN “AVERAGETM CPU. IF BIT 8
ALL IS APPLIED.

Il!lll!ll!lllllillilil!llll!!lilil!!llllllllllllll!ilIIilll!Inll

STRLL.
000400

154506

042252
o423s2

MOV

hov

RO, -(

JSR

PC snnuo

Ryt

greme

MOV

356"0" RO

ASR

6S
#14.,R1

18:

000016

=4 |

BEQ
MOV

gg%
BN
MOV

H R

00s432

)

MOV

ALLS,RO

DEC

MOV
RTS

(SP)+,R1
(SP)+,R0O
PC

:g
o8

i 2AVE
R

SRymomgas

GENERATE PSEUDO-RANDOM NUMBER

257 é' ;ogun

;GO _STALL H TH RRNOOH NO.

GET REQUESTED NO. OF STALLS
URN

N? ;TRLL REQUIRED
TS

uT R88"82
L
UNTER
8u
; RE

2222222222222 2222222:2332323233 332232232332 22222223222222 22227

i LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF THE DATA PATTERN

;#IN TABLEB INTO ALL 256(DEC) WORDS OF THE DATA BUFFER (RWBUF).
I

053342

054342

( dDSEC: SAVREG

2%:

4§

; SAVE RO-RS

MOV
MOV
MOV

onuaur R1
& RBLSQ,RO
$16. , R3

:GET ADRS OF R/W BUF INTO Rl
:GET DATA PATT RN nooness
FINIT PGTTERN OUNTER

CMP
BHIS

R1, SRUBUF+512.
95’

;SEE IF DONE YET
:BR IF DONE

MOV
DEC

(RO)S (R1)+

iMOVEA PATTERN WORD

:DECREMENT PATTERN COUNTER

GOS

CZRSGBO RKB DR _CPT PROG MACY11l 30(1046)
02-DEC-77
11:48
PAGE 111
STALL - STALL FOR ST UNIT STALL TIMES
CZR6GB.P11
02-DEC- 77 10:46

BNE

001372
000765

9s:

410

024532

0207

BR
RESREG
RTS

SEQ 0110

;BR IF NOT_RESTARTING PATTERN YET

iBR_TO RESTART PATTERN
RESTORE RO-RS

; RETURN

; n1lln;i“uininnuniiinn&nunnunnnnuuunuu

§$HIS
?UBROUT;INRL
. USED
égth A?“T
b TA_TRANSFER
TO THE
lCOHPU
PACKRDORE
RMINATION. HAS
THE COMPLETED,
2°'S COMP. OF
IP CYLN(RS)

H§
POINT OF INTSREETI

Pfl?gsg
IN #RSTHC THIS 1S USED WITH

OMPUTE THE CORRESPONDING

Eg&i"é
-0
wE

l'lIlll!lllllllllllillllll!llilll‘l'lllll‘llllllIllllllllllllllll

00S474

188:
000002

T IN 208 £N

000002
005473

208:

00000S

=
s
) e

198 3

218:

1044

W
N

116

S472

00S470

22%:

-(SP)
gtg;),(SP)
(5P)

-nnx

2(SP), (SP)

Q:T
RMINE o}NfiL

MOVB

P.SECT(RS),2(SP)’

CLR

2(5P)

MO v

003134
000024

CLR
MOVB
CLR

ADD

680662

[=]
o
o
n
O
NO

NTNLW-D
W=DV

Foen

£ o o#v

¥eA
K53§2?fi$zfle fiség “STBE"ESn}§:F4fisY?hc§xgsggtssOF A SOF TWARE

#22.

;ST
iC

se§30n§
TRANSFERRED
;gn

1ST8

FORMAT

e
BHI
SuB

INC

BRECK F
:NO
: egg NT

)
208
RO, (SP)
2(5P)

CLR
MOVB

-(SP)
P.TRCK(RS), (SP)

BEQ

MOVB

ADD
CLR
CMPB
BHI

19%

198

(sp>+,rxussc

2(SP), (SP)
2(5P)

#3, (SP)

Tian

5:2
:

5ctgnVERF
LOW
CORRECT
ao OR 22
Em 03
?me”sn
gn SEC

:STORE FINAL

;nax
-ST

CTOR

KS Tnnusrsnnso

cron

TRACKS TRANSFERRED
ARTING TRACK

ranL Tnncx ADDRESS
CHE
cxx
F F
anou

SUB
INC

2(5P)

ADD
MOV
TST
RESREG
RTS

P.CYLN(RS), (SP) ;CALCULATE rxuaL chxnosn
(SP),FINCYL
;
FINAL
(spr4
;CLEAN OFF STA
nesrons RO-RS
PC
:RETURN

BR
MOVB

%3, (SP)

228

218
(SP)+,FINTRK

:; ucn ccgsgc
5ncxcouur BY 3
;CHECK FOR
:ST
r;

K OVERFLOW
TRACK

CZR6ABO RKE DR CPT PROG MACY1l 30(1046)

02-DEC-77 10:46

CZREGB.P11

ik LSEfim‘fifiefi?fiix@“’“fi“fivfi%&ro&mg10 91

&
5B \dflfifif“%

:8?“32;7e P
_PAT eR §§-1s
¢
R rv"fiéggufi
LORSEQ
13 COMPRISED
:xg
¢flsagar$sonoé8tnr§rxgg BYTHENO. OF THE BIT ser xn R1 ON
*ENTRY

5631
Sé
gg 3

87
Seu4s

2623

2626 052008

062300

s&§§
S6k

5"’""

776

§670
6671
8672
§673
674
£75
5676
8677
E678
€679

088352

011604

SAVREG
MOV

TST

BNE
MOV
MOV

MOV

33
6S:

&Y
NE

348:

1403

1393

44§:

WORDS
gg
E r
xcx VERIFY DATA TEST DESIRED
QUICK VERIFY
gg
oarn Pnrrenu STARTING ADDRESS
OUNT
gsr

308

SBrrome
sg !

F“%IEE" "¥"§§“ .
‘ggé’
; 1} THIS B * 1 525

IMULTIPLY PRTTERN NO. BY 32(DEC)

SRWBUF

RO
R1
43

ASL

,R1

IPRTOO RO

MOV

;xncngncur PATTERN NO.

;SHIFT TO xnnxn; NEXT BIT
'BR TO CHECK NEXT BIT

ASL

308:

WOSXFR, R2
33
#PATOO, RO
. aa. Z(SP)

PATRN

INC
ASR
BR
ASL

300

104410
7
5669 §§§§:a0 g§oe
5668

LODBUF:

005566

000001

geurd

5654

00S46E
00544t

604407
~

—

NNNNNNN

gesesge
‘QV“”-V&=
no i&u

ggflfl

llllii!ll!ll!l.lll’lllillllllllI!lllllllllllll!llil!lllllllllll

A Py
NIFIRENS PR

556 B

gg“l
ggfl

SEQ 0111

‘gt

02-DEC-77
11:48 PRGE 112
FINADR - COMPUTE FINAL PACK RDDRESS
o 363636 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 38 36 36 36 36 36 36 3 36

S627

HOS

-tsp

;GET ADDRE

PT RN
iSET

oesxnso PATTERN

§ERN nooness

MOV
MOV

A A1
Pn
RO ha

,gsr
iGET

DEC
BEQ
DEC

R2
44§
RY
348

COUNTER
: DEC HEL
L
iBR I
TTERN WORD COUNT
,ggcnsneur
IF NOT DONE WITH PATTERN YET

MOV
MOV

(SP),RY
(R3)4, (R1)+

308

B oo
TST

(SP)+

$INIT
;L

INTO aurrsn

iBR_TO REPEAT THE PATTERN

RS R

llll!!lll&lillilll!Il5!lllllilllll!lllllllll!li!illllilllll!l!l

UF- SOF TWARE COMPAR;uggrn
'Sg
€ COMPARE OF THE R/W DATA BUFFER (POINTED
HIS suaa TINE Psnronns A SOF
;%70 BY PMA AND PMA
+a TO THE RPPROPRIQTE REPEATING DATA PATTERN. IF
: XPARAMETER PATRN
=
THE DATA 1S COMPRISED OF ALL THE PATTERNS

S_(QUICK VER FY D FR T RATA
§ 3 E gL THE EIT SET IN R1 ON ENTRY IDENTIFIES THE
fiflTR
?E
lREPERTING }
DRTR PflfTERN TO COHPQRE AGRINST

CZR6QBO _RKE DR _CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

gg:gé

5683
'

5687

.
;
.

.
|
:

2g3

5§97

5707

5783
82

1
1

g;ég

52
%

5722

025246

s;as

5721

§7ga

001202
005466
001202

024542

5731
57

5733
€734
€735
5736

gsggxs

31
025322
025326
025334

612

37
005237
032777
001004

RO
RO

moa"%z?n WORD COUNT

MOV
SUB
MOV

Esssnsc*g
XFR, SREG10
3&:010 LAST

C, FINADR

FINCYL,RO

Y72

MOVB

FINTRK.RI

00y

%grsanm

PC,

BIT
905

177777 001174 48%:

MOV

1200
005444
000001

CLR
INC
BIT

831175

153604

36%:

CLR

BNE

: INC
NT PATTERN NUMBER
ISHIFT
TO EXAMINE NEXT BIT
iBR TO CHECK NEXT BIT

mnc%}'r
Rflmn
mouuPATTCRN
- WORD
,c
m mono

3cs:

001000 005424
005444

SET22¥$g’“""‘" 200Nte ADDR

SET
‘PR
:INIT
PATTERN NO.
: SEE }r THIS ? T 1S SET
iBR IF
THIS BIT
IS SET

(58) R4
éag)l.mn

PMA
k

85, DF 25+2

MOVB

:CLEAR COMPARE ERROR
:STORE PREV CMND FOR POSS PRINT
s:s F mxs IS QUICK VERIFY DEFAULT DATA TEST

ngaa:o£§m£o
OF
PATTERN
PRTT

MOV

;SET NO. OF WORDS

sPATOO, RO
#16., -1SP)

’

ggsnm

;RESTORE ERROR MSG PARAMS

IMULTIPLY PATTERN NO. BY 32(DEC)

;COMMON COMPARE ERROR HANDLER

83837

e SRE
34§:

005470

6726 025264
e
8

ASL

MOV

001202
005474

RO
Rl
43

ADD
MOV

053234

sRWBUF , R1
308
RO
$BITO,RI
6%

ggt

ASL

00SS04

5714 025206
8716
5717
5718

sooe 0:tdp,

ASL

005566
000020

.| 2708
g;fl: g5t
oasi7e
5715

Wov

INC
BR

6S:

WDSXFR, R2

SCRACH
PC, REPSUP
gg‘rnu

ASR

5704

4s:

#40,DH7C1+38.
87 brsse

CLR
JSR
Efi{

MOV
BR
CLR
BIT
BNE

3%:

000001

144

:
.

MOV

053342

i:g

s;fi%

MOVB
MOV

44y
031224
446

1
1
1

456

051665
053234

SEG 0112

bh;;a;!l;acagaiillllllllllll!llli;asgl;slagllllllll!llll!!lll!ll!

3300

114
1
1
1
1

ggg

7
737

0seilo

5p94

groo

uue7g;
012737

gggg

109

02-DEC-77
11:48 PRAGE 113
CMPBUF - SOF TWARE COHPRRE DATA

rxnggc R2

BDSRCK

.csr WORD NO.

:GET 2’S COMP OF WORD NO.
ggngu ngruaL PACK ADRS

iGET CYL

:GET TRACK

,gET ?ECOR

m-:gr

mtxjsassecron LISTED BAD

¥BADSEC , RECODE
.5
CRACH
8" &k FHE ERRORCounT:
ont ERROR

o-x snscs

mx CYLNO.

nec7
SCRACH
#BI1T0, aSWR

: INCREMENT THE ERROR COUN
:SEE IF ALL ERRORS SHOULD ee REPORTED

3
388

‘BR TO REPORT ALL ERRORS

1214
000002

g;l:?
>

5762

000100

goiz21e
0012:0
001214

153412

S0S$:

2760
5766

40$:

S;§§

025166

771

025172

77
A

TST

BE
DEC

;GET VIRT. ADRS FOR PRINTOUT
Eooo BAD
DATA,

MEM.

ADRS.

sss 1 JUST 1 ERROR SHOULD BE REPORTED
iBRIF
J
1 ERR OR SHOULD BE REPORTED
iSEE_IF DEFRULT DATA TEST
iBR IF
Y
E;
;:DECREMENT WORD COUNTER
i8R AE RL#
flTTEfi?TNORD COUNT
DEC MEN
NOT _DONE

TERN YET

JUHP TO REPEAT THE PATTERN

JMP

TST

;POP_THE STACK

RESTORE RO-RS

RESREG
RTS

RETURN

o 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 36 6 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 2 2

'i CTLOUT - TH *SPESBR?UTINE
CHECKS FOR_($C) ?R (¢Z) TTY_ INPUT.
!IF (fC)
NE RETURNS
TO DRVTST. IF
(t2)

§782
§783
5784
§78S
5786
5787

URNS T0 I NPUTP. IN EITHER CASE,
STRACK IS RE-INITIS EXE UTED AND THE
S NO I

E;gg 025564 122737 000001 003127
S790
5791
5792

S53%:

2e8:

S774
5775
5776
§7277
5778
§779
§780
5781

;GET BAD DAT
COMPUTE PHYSICRL ADDRESS

1212

:BR_IF _ERROR LIMIT EXCEEDED
EEE IFYE FFERENT CYL
SEE F gFFERENT TRACK

TYPE NEW PACK RDDRESS

5;§g
575

001204
881 06

; SEE IF 10(DEC) ERRORS YET

iGET WORD NO.
iGET GOOD DRTQ

—

S
5753
S754
S7
g?

76
777
1
1510
1 15
121
209
1210
S06

NEG

44§:

(2]

S750
S;gé

1202

?793

001200

+60r

005473

4es:

S74

1174
1176

A
0
Z
o

%2'47
S T4

S;QQ:;
g

SEQ 0113

SEE IF DIFFERENT SECTOR
iBR_IF _SAME PACK ADDRESS
;SET NEW PACK ADRS FOR PRINTOUT

005473

(1]

001200

5743

G6,F INTRK

00S472

SREGS, FINCYL

(2]

001176

=38348R
e e DB
EF)
al‘% g&LCGEQ:QJC)

g;:

CMP

S740

38%:

“MMme

0011749 00SN70

DEDW

g?Sg

, SCRACH
210.

005444

£
[

000012

INDL

5;37

J09

PAGE 114
02-DEC-77
11:48
CMPBUF - SOFT WARE COMPARE DATA

OOOOD
ot s e pron o

CZR5080 RK6E DR CPT PROG MACY11l 30(1046)
CZREGB.P11
02-DEC-77 10:46

025572
025574
025600

00107
005737
00147

005442

OR -

CKE IT

OR INPUT OTHER THAN ($C) OR (12),

"PC,CTLOUT

iillllllillllllillillllllllllilllllilllllllilllllllllliilll*!il

6 LOUT: CMPB
BNE
TST
BEQ

81, TSTING
10
INTCHR
108

;SEE_IF CURRENTLY RUNNING TESTS

iBR_IF _NOT RUNNING TESTS
iSEE_IF ANY TTY INPUT
:BR IF NO INPUT

MACY11l 30(1046)
10:46

5793

003126

000003

[y ey

1
1

13
46

000032

CMPB

003056

RESET
CLR
CLRB
MOV

INTCHR
TSTING
.gnauoL A. ABNL

0oono1

MOVB

.
6%:

MOV

oos44e

4s:

00s442

128:

—

737

000007

oos442

021136

78:
8s:

020774

LR
JMP
CMPB
BNE
MOV
BR
CMPB
BNE
TYPE
TYPE

$TSTNM
RO
, INTCHR
7
SASKSYS,
RO
%30
3, INTCHR
78

108:

SEE }F EEFRULT MODE RUN
EE_IF (1C) TYPED
IF_NOT (tC)
T RETURN RDDR ALLSYS

L AR
:t? ofinéigurrzauongc

uaNOLER
ADDRESS

B
CMPB
BNE
JSR
JSR

230
8007, INTCHR
$
PC, GTSWRG

;EXIT_FROM TESTS

, HLTRQD
CNTRDY

MOV
MOVB

003155

SEQ 0114

TACK, 5P
SE
ACK
SRECAL .P. cnno(asi :SET RECAL c
PC, DRVEAL
CLERN?P AL IBRATE
15tTYP
CLERR ?fisngTEST IDENTIFIER

JSR
CLRB

11537
11537

#003, INTCHR

ys
#ALLSYS, RO

013446

128

BNE
MOV

MDFLAG

BEQ

0os442

Y42

KOS

oa-osc-77
11:48 PAGE 115
MPBUF - SOF TWARE COMPARE DATA
1STB

013002

2
9
& ifiifiasgg\rfl\rfl

SHLTPRG, RO
8’ 1,PASS

PC, PREPKB
PC’

RTS

llllll!lll!illl!lllllilllllill!!llllllll.lll!ll!lllliilllllll!l

'iuar

C - WRITE

ocx
gr
400¢(
gflgcronggnos ?NT?
THE DISK

#THE naancren BLO K M
ufiggnc
A WORD IS PRSSED IN R3 ON ENTRY. RHBUF IS THE BUFFER
= 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 2 36 36 36 6 36 36 36 26 0 2 2

nhrsec SAVREG

025770

8877

LOAD THE R/W BUFFER WITH DATA
v

000908
05334

026002

4s:

137
026010
026016

01 2765
01 2765

053342
177400

000010
0ooo12

032
36
026040

004737

276S

000123

000001

030146

MOV
DEC
BNE

cnggur RO

#400,R1
ga.<ho>+

; SAVE RO-RS

LHORD
35( cr)

BUFFER ADDRESS

.DECR COUN ER

(h
;BR IF NOT DONE YET
;SET UP ggnnne ERS
SRWBUF ,P.BALO(RS) ;er BUS ADDRESS
#-400, P. WC(RS) ;SE WORD COUNT
MOV
;WRITE THE gn
ouaonrn P.CMND(RS) :SET WRITE connnno
MOV

JSR

RESREG

VCAL

THE
! RITE

DAT
RES ORE RO-RS
ETURN

Esinndinidihin

DODDOD
PAPAT A
£r DDDDDDDBDDED
=B
0 LR DY

Bt Pt Pt Pt

DOV

s et Pt et

LW+

%fi%fi%fifififi

090 RK&E DR _CPT PR
P11
O2-DEC-

s
ggOP?TG DR CPT PR?; ?8?1&1 30(1046)
02-DEC-

gS-D C-??*Hflflg
PAGEI}E[J:a

SEQ 0118

;ll!lii}!i!i&lililillllili;;il;;ill{ll!iiliiilllii&iiliiiliigic

AR TH RE

NUHBE:Sh STRRTIN%WITH 1.

ibOTH"guaflhaa?NQE"SEGUI&E Hgs Ssonggg
IN P

7gg

l*iIIlllll!all!ll’lillillllllll!Illlllllllllllllllllll!!lli!lll

tbnc

|—h?§hwn—

LDMO:

6%:’

0207

MOV

333
TST

BNE
INC

108:

DEC

12%:

nggnec

xuoxcnrss LDHEHI

#1,R3

LDMEM2 © ggvaec
LoAO
MoV
-1,RY

177777
005466
00SS04

—

CLR

MOV

000001

WDSXFR,
R2

55“:Ei,+

RY’
53
R3

A WORD TO
1

gnvs 7951Noxcnrss LDMEM2
ggno'sluon89§ntgegyrrsn
WHICH
NC

5:
nzur

NCREMENTING DATA
HE DATA

]

oscnsnenr COUNTER

; NOT oouc LORDING YET

Rz§
RE
R

BRI

000000 6 06 00 0 36 0600 00 06 00 00 0 30 060600 0600 30 0636 360006 3600 000000 000 36 0030 0006 30 0036 30 00 303 3

iCKHEnl > PERFORNGSOFTHRRE COMPARE OF MEMORY, WITH INCREASING
: ¥NUMBERS, START
WITH 1
: %CKMEM2 - PERF
SOF TWARE COMPARE OF MEMORY, WITH REPEATED DATA WORD

0004

000001

005504
ooswqq

805007

WWWww
NN

gore
Zabo

03IEEH

BBAGEE

001202
024542

MOV

cbn

RY
#1,R3

’aqVE
Ngxgnrzs CKMEM!
INI

MOV

uogkrn R2

iGET

ggga

cqobpn70é+ae

;RESTORE ERROR MSG PARAMS

SR
énp

R
REPSUP
ug

TORE
PREV CMND F R POSS. PRINT
BORPRRE
& DATA_WO
:BR IF DATA conPnnss 0K

CKMEM2 " ggvnec
CkAO
MOV

77777
5956

e Pt bt B

Ck;E;:llgasagzllllllllllllll&lllllalllllllllll!lllllill!lllllil*!

104407

Bt s e

s e Bt o

Bt e

SR EFDRRRERoL

e
e e

58 %5 BOEERRRREEss.

:égTEDSUBRSUT £S REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE

o P be
NN

g
$

Fasscaatie¥58e e 83

N
~N

A
oo 2R q

S864

b%g L

104407
00S004

+2, AND WORD COUNT

CKMO:
851565
53234

68:

ggx

nAc
4

conpnnengnnon Hg
00l20e
005474

SUB

MOV
JSR

ksn

uSser%gscxo

$REG10 LASTWC
PC, F INADR

PRSEE
38-17;977
xuo&gnrss CKMEM2

iGET nen nons

po by,

;GET 2'S COMP OF WORD NO.
:COMPUTE ACTUAL PACK ADRS

MOS

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48
PAGE 117
CMPBUF - SOFTWARE COMPARE DATA
CZR6GB. P11
02-DEC-77 10:46

eBER
5

SR o n 0 TR Rk
,A
P

me
—

S
5958
5959
5960

*nNE

5= BERER

RORREE

SR2L

NTUWY Lall] NI
NTUIN NTURNTINTNIUILY
oo

5954
3955

SAVREG
MOV

6514

9s:
178:
118:
108:

128

158:

eLka
MOV
TST

BNE
ERROR
MOV

CLR

CLR
éuc
17
BNE
CMP

01438,
85 DF25+2

8-1,SREGS

YP$
; INI

SRESH

SREG?
SCRACH
#8170, aSWR
128
#10.
, SCRACH

lafw,rmssc

SREGE,
F INTRK
15§

Hove FINYAk' SREGE

MOVB
ERROR
NEG
MOV

B
ADD
MOV

FINSEC, SREG?
é&?
G10

R3,SREG11

-2tR1),

18%:
208:
026166

21%:
22%:

15T

DEC
BEQ
JMP
RESREG

SREG12

G10,SREG1Y
813

NG FOR ERROR MSG
RROR

MENT T

NER§

EERSR
SHOULD BE REPORTED
RLL ERROR
YET

SEE IF 10(

h
T EXCEEJED

gFFE

CyrL

,SEEI}F DIFFERENT TRACK

E_IFB?FFERENT SECTOR
IF_SAME PACK RDDRESS

SET NEW PACK RADR FOR PRINTOUT
TYPEHgEH
PflCK ADRS

;GOOD DATA
;BAD DATA

; COMPUTE PHYSICAL ADDRESS

B
+2,

SREG13

R1,SREGLS

2,SREG1S

#BIT6, ISKR

. PROCEED WITH COMPARISONS
BNE
INC

ERROR

,SEE ;s*gw
Rg R§RR°R
IN o
THIS BLOCK

108

Eana

gea

%JLIIETL&TSD 28’5‘ gPORT

SCRACH

alscs
FINCYL
108

MOV
CLR

les:

EgggZRETHSSRgECTOR LISTED BRD

Bhp
BN

sanon
9§E

0S?7

104410

#BACSEC
, RECODE

SUB

1007

£ §)01001
005203
geEes
S302
1402
A
000137
026533
026534

BIT

MOV

162537
953

iGET TRRCK

!
PL BOSACK

CMPB

—

SE¥E
RO-RS

r NCYL, RO

v
]

RESREG

SEQ 0116

188
R3
R2
218
X

;GET VIRT ADRS FOR PRINTOUT
; TYPE EO?D A ND E

gEEII
UST

RROR

RATA

SHOULD BE REPORTED

E
NOT ?flcns IhG Bara
{BR-1F
H

DATA

IRE

; INCREMENT THE DATA NO

; DECR_COUNTER

iBR IF DONECOMPARING
;CONTINUE COMPARING WORDS
; RESTORE RO-RS

NOS

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77 11:48 PAGE 118
CZR6GB.P11
02-DEC-77 10:46
CMPBUF - SOFTWRARE COMPARE DATA

2365

026536

000207

RTS

SEQ 0117
; RETURN

5963
5964
g%s

5967

, X 12121221222 222222222322222223222323222223223323223322322322232322222222 23222

g%%g
g::;?

597
97
974
975

&15935555 OFRsno FACTORY BSF INTO BSFACT, AND READ SOF TWARE BSF
026540

guo 004737
1170
Y4 142765 gfiooeo 000007
61 76
121 000001
1
4404 ooooog

gg
§2§
2380

574

61 ?

gg%a'

000004

;

1276
1
1

§%

Emsex

774
7

145

“lsgllIll'lIlllllllllll!illllllllllllllllllllllllllllli!llllllll«l

JSR
BIcB
MOVB
MOV

00000

MOVB

000012 6S:

880010
3056 B8§:

liqg %85 000004

108:

fis{% 031224

5995

oig%g

3633 000010 12%:

127
127

3134
3
?gg

334
2939
gmeqe

61 13 7

g%
1 gee

Efi
6

6005
6006
ggg;

6009

744

026

gégnq

wg
14

653;

000004

012737
000207

031504

1407
765

7:7:au 000736

6010 8‘397"
ggi é
002

3542

003056

6016

MOV
MOV

T,P.BALO(RS) ;SET
i
% gcuo,n.
iSET

CLR8

168:

!SET FACTORY BSF SECTOR LIMIT
xr 22 SECTORS
T STARTING FACTORY BSF SECTOR NO.

#-400,P.WC(RS)

ser

secron
FORoé
cgum

WCEFLG

; INI

msn ron asr RERD
RE

Putc:t
uc LG"

1; BEED F mv“csa%;s

85 P.SECT(RS)
SECTOR
SN"EB sisec
(RS),R3 :.G“Ex FNEXT
NHmfsxcesoso
YET

éggm

v;c REPSUP

5“55?':‘’émr RgggSE}BTWT

5333

JMP
MOV
EEEB

uf?pnc
:
§$§°"¢';E§%°(Rg’ } ET“gn zgn sgonums RECORD
é.'gg
,sE g
éTOR LIMIT
rl'qom!us T
15 s
E SECTOR FORMAT

MOV
gexa

819, g
:SET sg
zgg;fc ,A.ABNL ;& m; R

JSR
I518

PC
uctPLcCAL

SEEB

quecr(nsma

MOV
RTS

SERRHDL , A. ABNL
PC

BEQ
ADD

000004

6013
6014
8015

14%:

s SET TRALK
=

ognhr
ss
Résscmm

ADD

gggg

RCK(RS)

" ¥a
Q
Incca

I5T
STB

PC, INITS
INIT THE S.S.
#B.CFMT, CSIH(RE)
-SET 22 SECTOR FORMAT
TR P. cmoms; sSET hea?
oam COMMAND
LIS?SCYI'# £.CYLN(RS)
SE S = 63271456

168
#2,P.SECT(RS)

108

CTOR LIMIT
"“"DL‘PLSS“ BSF RERD

5:
:iauv§onunns
}
ERRORS BSF

.an I
;CHECK
NE

seelgrm'i"" sxcssoso YET

epoar ERROR ano ABORT

.nss ORE ERROR HANDLER ADRS
: RETURN

: ¥THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO HANDLE

027004

027012

032765

001002

130600

000034

; ¥POSSIBLE ERRORS_IN READING BAD SECTORS.
BDSCHD: BIT
#BSE! HVRC! ore-opx ocx P.ER(RS) :SEE IF ANY READ ERRORS

BNE

R If A READ ERROR OCCURRED

%ggo RKB oa CPT

MACY11 30(10‘06)
10:46

4s:

P11

5‘:-77 %1
: 48

2
3

JMP
}ma

B10

lla““

ERRHDL

&;FLG

NML

SEQ 0118

; GO

THER ERROR

;SET ERRO% ?

; TARKE NORMAL MIVER RETURN

llllllll.lll’!l!lllllll!ll!lll'llli!lll.lllllllill!lllilllllll!

§%{TTofifi'ij&xfi"?fi§§§vs::g&ofig
oFTHE
e bome 18 IR
B
o

llllllII!lll..llll!lllll!llll.lllllll‘!’llll.lllll'lllIllllIIII

3s:
4S:

881325

8s:

012147

TYPE

1{;&‘

$g¥
TST

T#:E

MOV

YPe.
T

MOV
CLRB
SWAB
MOV
TYPOC
TYPE
MOV
MOV
TYPOC
TYPE
1ST

148:

188

:figl
4( kfl)
1

'sgn&

gsncse

lRO),R3
R
R
R3,-(SP)
asncsa

na -tsp
RLF

{RO)+

Rl
sg,uas.

BNE
INC
MOV

18%
RY
#BSSOFT+10,R0

TYPE

r'FiL £yEMPTY
;s gz

SOFTBS

ER
EG 5
n%gn
PC

;

(RO)+,~-(SP)

INC
cn;

?'ér

.r$§ mgméamimcx SECTORTM
§ng xrmS%wusrso HERE
T A YL NO.

nm SECTOR
csr THE TRACK NO
T;gs
SEPARATORS
iGET SECTOR NO.
;TYPE IT
Ncn
17,;2
POINTER

TER
:EI}F
L*HI REACHED IN THIS FILE

: E }r m FILES TYPED YET
;

T'1

mgn
ron orr FILE
é ums asr

285159:
RO RS
: RETURN

P RERREBERRERERERERRERERRERERERERRERRRRRRER
R AR R LR R R RRRRRRRRRRER

Cl0

“Z7Sor tARE comPARE DATA

CZR6QBO RKE DR _CPT PROG MACY1l 30(10%)

CZR6GB.P11

02-DEC-77 10:46

6073
74

!FIN{H - COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER
l( TERMINATED BY BSE ERROR), AND STORE IT IN WOSXF R.

!llllllllllllllllli!llll.‘l!!ll!lllllll!ll!l!ll!llllllllllll!ll

000002

ttnnsn- agzntc

000030

6s:

nog

P.CYLN(RS),RO

P. TRCK(RS)Rl

Rox

SECT(RS) RE

cMP

P.DCYL(RS),RO

000026

027266

6091

00s466

P.DTS(RS),R2

INC

ROV

R;gRE

128

PC,

INCRSC

aeg“

R3, WDSXFR

- INCREMENT PACK ADDRESS TO NEXT SECTOR

7
731
731
731‘0
7316

000023

lllllllllllllll!liili!!l!lll!llil'.lllllll‘l!Illli'llllIlllll!ll

thcrsc: nov

TST8

4s:

MOV
INC

CLR

INC
CMP

000002

No-

1
1527

000025
003134

6s:

RIS

Sk MIT

TOR FORMAT

#19. ,RY

OR LIMIT
SETRSEC

R;,Rfl

C%RLIMIT EXCEEDED
0

oo,e

R1
R1, #2

;F
T

TRflC

—

300

1
012704

£N

012704

m
m

027266

ettt

K LIHIT EXCEEDED
0

; N(f‘R. CYLINOER NO.

URN

nluuulunuuunununnu"uuunununnnunui

n‘"

PARAMETER UPDATE
P,
+2,

lTHIS

OUT INE

lTEEfi“:;%D
BYm%uctng) xgPgspaknr nséune TRANSFER
o

104407
004737
016500

A DflTR CI‘ECK ERROR (DCK),

llillll!lllllllll!llllllIlllllllllllllll!il!li*!ll!l!li!ll!llil

027202
000030

hioxrn SAVREG
JSR

MOV

INMEM

P.bCYL(RS).RO

; SAVE RO-RS

; COMPUTENg OF WORDS XFERRED

iGET CYL

027332
027334
027340

(BSE),

3BIRR2ER"8
JD DN
N LW—O

s s s et s Pt ot

Bt o ot s ot et ot ot ot

— e e Bt ot Pt Bt Bt Pt

s s et B

128:

Bt B
B

8s:

MPB

Seo

l}'lfi RSYLIN)ER IS PRSSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR

ot ot Bt

o
oL W

e B

FMT

CLRRENT CyLs

; lllllllll!lllllIlllll!lllllllllilllllilllllllllll!llllllIlllll!

6099

Leadenloalo ale alo gl ale gl alo oo gl alo alo gl glo alu ol ale aTo ol oo alu ol ale plu ol oo 200 3

N coga1
SE(TORsss??g.

.DTS+1(RS),R1

000027

SEQ 0119

D10

7344

;; 4

et ot (o Bt B P Pt B

z21

10g

027 '26€

oz;q-oae

103

027446

37 005506

RRRR

IErEE

000014

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

P DTS+1(RS),R1

JA v
m&S
ADD
B'I‘T

:
nfil Dzkgasc
;
Lgég&%rss&
K _ADRS TO NEXT SECTOR
- vazns;
;
:%E ;zmi
cT
nét (g)
(RS)
(RS
nons INCR INMIB SET
1 1I,P msnnS&R, vlWCBUS

CLR
sou.

83?82
000010

;GET TRACK

DTS‘RSRé
T RO
°R mm
?xsafi E: 29
fin%x
35ERR
Eunn:o

5'4

iGET BYTES XFERRED

g§§

Sae

; UPDATE Phi, PMA+2

ADD

RY, PMA

MOV
MOV

16s:

SEQ 0120

MOVB

5839
S,I,E

0os424

ot o B

Lopdeplenleploploale gle gl ploale o al e plo pl o ado al gl ale oo gl al s o ol e e alo alo alu ado ol o als oo il als s ale oo oo oo o

ot Bt Bt s Bt Bt et s Bt Bt ot s P Bt et P B

o0 ado alls ol oo o8 oo o o s o0

xssox 000027

7
g:;'s@

2OREE 3NN 2SN S5 NG hT DR SE VT RLLNCESE SFRES S5 BBYRRVLRETY |

CZR6GBO RK6E DR CPT PROG MACY11 30(1046)
02-DEC-77 11:48 PRGE 121
CZR6GB.P11
02-DEC-77 10:46
CMPBUF - SOFTWARE COMPARE DATA

BIss

PM
SGLO(RSJ
PMA}

h
anfl

RGIREC oo

; UPDATE P.BALO(RS)

; UPDATE P. anuxms)

RE#LSRE

IlllllllIlllllllllilillllllllllllll'lllilllgalllillllllllll!lil

o444

RVERS
- SBUS INTTIGL
PR
TERS
E
l!IIli!llli!illlllll!llll‘lll!llIllllllllllllllllllll!l!llilill

002642

&0PRMS: SAVREG

MoV

Hov

7318 gigsggl mgoooswsu 005466

g %fi
2
ggg
40
M

104407
1

11
0275 012021
gsggg
35
857265
109410
027566 000207

e 005504
usu

oV
CLR
BR

GTPRMS: SAVREG
ngv

GTO:

6S:

;

- Rsikuos1XFR ;lfiT ugagmg T

c! R ' P;on
PMA+E
gn

MOV
c nnno+é
1
MOV
R2
MOV
mbu (R1)+
R
EC
RESREG °PC

iTNTT
.;CONTI
INIT PMA
:SAVE
:

210,10 RUBUF

RO-

AREA

;:SET FOR 5 WORDS
S
;
R YET
ISEE IF
RS
TORE “RO-RS
;RE?

H o 363636 36 36 36 36 3 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 3 3 36 36 36 36 36 36 36 3 3 36 36 36 3 3 3 3 3 3 3 I 3 3 3 % % % % % %K% X%

' ATRNSFR - PERFORM A DATA 'mnnsrsn AND HANDLE BAD SECTORS
%0R DATA CHECK ERRORS, IF ENCOUNTERED.

:%THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SUB-

ELO

CZR6GBO RKE DR CPT PROG MACY1l1 30(1046)
02-DEC-77
11:48 PAGE 122
CZR6GB.P11
02-DEC-77 10:46
CMPBUF - SOFTWARE COMPARE DATA

; ¥ROUTINE

8188
2}97

gis 0275
6191

6133
6194
bl
bl
gi
sxg

£501
§§§é

B508

6239

o
1

us ]

%0
44

. Q4737

0576

Ta737 027540

857339
8503?5

126

621l

HE
::Si‘s’

CLR

SECT

T BE HANDLED,

RY’

iCL nn RROR&gxcmm

J2R
i?é

PC'HIDNER
:s C(RS)

: INC

g80
JSR

Bs
PC, GTPRMS

{ERE
¥ GHY EARGRS OCCURRED
!gs*one ORIGINAL PARAMS OF XFER

CLR°
CLRB
JSR
gg

REGOBE
:
CK
A.ABNL
ADRS
snncu
.
:
5:“8“
nioa
:E&m
C, DRVCAL
:
%n ség F
ogszmsocxmsw.
¥ sss:OR DCK OR HVRC ERROR OCCURRED

MOV

INC

737 027500
8%:
25?3 0277275 géggo; 031504 003056
2509

fk;ll!llll!llill;:ll:;;’ll!llllllm!aia‘l‘llll!;lll!Ilillll!llll

mfl 1Y€ 145088 Laes 10 .&q BATA 8‘& RRORS
CAUSED
. RngNG DATA WITH OFFSETS, IN THE
AND DATA COMPATIBILITY

010446

757

SEQ 0121

JSR
ggg

INDICATOR

1O AESUME
:DPOATE
. FPARAMS
'5174'?1"&5 xssn
ig XFER
csmevso

PC’
SVPRMS
iiREST
RESTORE RY
noéxrn,rm,me
(SP)+,RY
%Rm,n.m& EE?{% NORMAL ERROR HANDLER ADRS

MOV

5sllilllllllli!lllllll'lllllllllgl;&ljl!lllll!Illllllllllllllllllll

:5}3
£is

mc%c%
?%gt&:%ORasscron rgfigonn
SES T"?&a
IOy,

b21b

: ¥THIS nour

b2l

%gg

IST OF BAD

mer N o;o THE

SECT

THE STACK WHEN THE

ROUTINE

3''sm?
ig
? 8"mv ou mzsvm§ngcLL BE THE

I::ee'i 5 1 7 001266
8 B
oy RS
b2e8
027714 ouuga

;h;;sgll:‘sslllllllll¥gllllll!'lllllllllllllllllll!&lllll!ll!ll!il
K
MOV
( L GET nookesI
OF aagflgsc —————
OR TABLE TO SEARCH

5231
5;5

CLR
ggg

BMI

553

%52

7g; 33%533 S

7730
;;

€0

705§ 000010
1

S
6237 027746 062702 000004
’

6238
6239
6240

027752

027756
027760

020237

2021
000766

001264

283

‘?363ghpi

R3
a(n
0,R2

5
ADD

G
¥4, R2

BGE
BR

5§
18

CMP

R2.$TMP1

;SETUP FOR LENGTH OF BAD SECTOR TRBLE

cu:m R3 FOR COUNT
‘2{
POINTER TO CYLINDER ENTRY
-

CSERSTEIRR I PREsENT o

{ELSE BUMP POINT
:TEST IF OUT OF TRBLE

IYES-EXIT
: LOOP

CZRSOBO RKE DR_CPT PROG MACY11l 30(1046)
CZR6GB.P11
02-DEC-77 10: 46

,§§§§§§§§§

11:48

F10

_PRGE 123

SEARCH BAD SECTOR TABLES ROUTINE
38:

6241

001302

;33

5%:
’

|x7u377 $TMP10
MP10

$TMP10+1,R1

INC

BIC

8177700, (SP)

;gr
Ys:

(R2)+

CMPB

BEQ

MOV

gSV
MOV
nov

i§2)+

RQCK C

E = PUT POINTER AT TRK/SEC BYTE

i
BTTRack
c?éCK
8
0
mxg
IN
TH&STRQ?RCK
:
:E
E

couur

(R2)+,-(SP)

IPUT

és -(SP)
$THP2,
R2
TMP3,R3

!cg su:cx o FaEE
Eggé
:§§"?EEEgEETSQE
;REGI 'rrf'

TMPY . - (SP)

ER T0 NEXT CYL WORD

:CLEAR

?n STACK

CTORTM NUMBER

:E RETURN ON STACK

!lIl!Il.!!llll.lllllllllIlllllillll!llllll!illlllllllllllll!lll
TURN

.;pECé"§fif§Esgssg;gg;s%
OOETEITEBy 1 e
.

1STED THE FLAG

IF THE SECTOR

bb;;szfll!llIlilllllllllllllllllllllllllllllll!llllllllll!lllllll
0300s6e

?g:

MOV

oasrncr

78:

gfié”n
ggg

égp)+,n3

MOV

gassorr,xs

RESREG
RTS

;

BEQ
DEC
BNE
BR
BIS
DEC
BEQ

8%
R3
6%
73
#BADSEC,RECODE
R3
43

: YES-GO s; BIT
:DECREMENT BRD
:IF
NOT 2 no-c
{ELSE GO
H
;SET BAD E on
,CLERRSTACK OF
:
NUMBER

SEXIT

003162
030056

00s4e4

RERRRREEES

SR8 ENSr ER 2R EINE

;

3s:

4s:

6%:

Y
G

CNDC%B

[

S Sy W

WWww
0000

s =RAN
8RIS

02-DEC-77

001000

oos424

8%:
93:

JSR

3§c

CMP

TST

é§3

, 8BSSOF T

T TABLE TO SEARCH
25
ESS%?

GE?L

SgsSSSEERSRS IF ANY

fkse
rt OTHER TnaLs nLnsnov SERARCHED
or

n TRBLE FOR SEARCH

canossc.nscoocLESE gscroa BIT
(SP)+,R2

(SP)+

,THIg sccr?n {N TRBLE?

& EXIT
SECTOR COUNT
CK NEXT ENTRY
OT HER TRBLE
BIT
OTHER BAD SECTOR

5 lIllllllli!llllilll!lll!il!li!lllllllllllllili!ll!liilli!I!liii

‘&gt
CALL oaxgsnnnourxns
lENTRY
JSR PC,D C L

;:RETURN RTS PC

WITH RS POINTING TO PARAMETER BLOCK

G10

02-DEC-77
11:48 PRGE 124
CZR6QBO RKE DR _CPT PROG MACY1l1 30(1046)
CALL DRIVER ROUTINE
CZREGE.P11
02-DEC-77 10:46

¢3LoE&EquhL§fiz“58u§§u9“§§ESENEDTOB%SEPARANE TER

; #THIS ROUTINE IS USED_TO INITIATE A SUBSYSTEM
02522;182 BY

97
98

;INTERRUPT THE
OO OO O O OO O O O OO
A OO
N
Y
e e e s Bt s bt s Do e
un%uwuwuuuuu
) LW~
O OO
LW

SEQ 0123

Y420
S564

bkvan- fgnR

SRRk

030}:6
737
8381
%:737
030156
030162
939{2?

030202
04

10
14

030216

105037
105037
0047?;

737

7;7
1773

003132
003141
030220

034572

3132

HflNOhE

S WILL

SET THE DONE

;#FLAG
WHICH I KEYS
$HEe
ROU*?“E
TO e i RETURN
13"7
ékLet
25
R
g I
e T
i
e

TALL T
gg'grL

;PERFORM
cuscx r A STALL
(1C) IF (12)REQUIRED
an INPUT

DRNAF G

CL AR oaxvs SIEZED BY oruen PORT FLAG

MOV

RS,

ESL PARAM gLocx

43?9

PC,W.WTCH

.éght un;gn DOG

CLRB
CLRB

JSR

4s:

6%:

JSR
. WORD

BEQ

RTS

000207

DORNE

PC, STRCMD
PC.C.INIT

22 .
PC

E DONE FLAG

gaz V_AND cunnsnrMMANDS

:
CALL onxvs
:P.B. ADDRESS GOES HERE

: -Loéi

: YES-RETURN

§ 3 BIE 6060606 00000 06 0000 060000 06 0000 36 0606 00 06 00 0606 36036 36 0000 3030 3630 060 36 00600600 0

iSTRCHD - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS
¢ 333603 02 0020 06 0006 00 0000 06 00000 0026000600 060 000236030000 30 0 0

&tRCMD: ggvaec
030226

012700

030232
0302

012021
12021
12021

005176

12851

030244

12021
012021

030246
030252

012701
01252l

030262

12521
12521
glesel

108

005176

;STORE PREVIOUS
MOV
MOV
MOV
MOV
MOV
MOV

ng. 6
TR.R

C
ND
(RO)+, (R1)+
(RO)+, (R1)+
(RO)+. (R1)+
(RO)+. (R1)+
(RO)+. (R1)+
(RO)+ (R1)+

: STORE CURRENT connnu¢
MOV
8COMSTR,R1
MOV
(RS)+, (R1)+

MOV
MOV
MOV
MOV
MOV

R;gnsc

(RS)+. (R1)+
(RS)+. (R1)+
(RS)+. (R1)+
(R5)+. (R1)+
(RS)+. (R1)+

; SAVE RO-RS

20 00 0

: ADDR8FF PREV c?nnnuo STORAGE
: ADDR
CURRENT COMMAND STORAGE

:RS POINTS TO DRIVER PARAM BLK

;RE?TORE RO-RS
*RETURN

o 36363636 36 3 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 2 36 J 26 3 2223

éBTTL

DRIVE ERROR FREE RETURN ROUTINE

; #THIS ROUTINE IS CALLED BY THE DRIVER WHEN NO ERROR

R X RN

CZR6QBO RKE DR CPT PROG MACYI1l 3071046)

CZR6GB.P11

02-DEC-77 10:46

6353

6360
6364

11:48

H10

PAGE

125

SEQ Ol24

DRIVE ERROR FREE RETURN ROUTINE

; #HAS BEEN DETECTED IN THE OPERATION.

6354

Egg;

02-DEC-77

THE ROUTINE SETS THE

:ggsgxzkflc THAT IS TESTED IN THE DRIVER CALLING
030272

30
030

152737

000377

003132

2737
100000 00S4a4
4 ;

030 lq

003135

838315 ?82;5; 003135
030322

001410
7

135

W WE M ome
70

23?1

6372

IIllllllfil!llllIlilllillllllll!!llliIl!lllllilllllIllli!!lllll!

ERRFRE BISB

es:
001174

;SET_THE DONE

lflNYbER,RECODE T
ST IF RNYE OR5ECOVERY
8 PRINT TEST
cs
iIF N0 - DO

?STB

éRRCNT

CLR

25585

ERROR

101

CkRB

BEQ

MOVB

ERRCNT

;CXERR ERROR COUNT

NO - SKIP TO EXIT

EH&EK IF _ANY ERRORS HAVE OCCURRED

NT, SREGS

T RETRY COUNT

INT RETRY SUCCESSFUL MESSAGE

GEGERSE
GF bw
.ll!lllllll**lill!iil!lll!lllllilllllllllllllll!l!illl!!llllilll
"8BTTL TYPE ERROR ROUTINE
,!ENTRY

23;3

ONE

E&TQ

IRETURN -

JSR

RTS

PC, TYPERR

PC’

g§7
gg;g

ITH

RASR ?E* agssfpofiso *f- ? u§£ E “ERROR TABLE"TM (SERRTB)
:%sgavTgRDEFINE WHAT xNFORnnTION IS TO BE REPORTED CONCERNING
ROUT INE

6379

D030

0630 30 06 06 00 30 06 0600 36 36 06 26 36 36 06 26 36 06 06 36 36 06 06 6 36 06 06 6 3606 36 6 26 06 36 6 06 06 06 06 6 36 06 6 36 36 06 36 26 06 06 06 2 26 2

*“ITEM

6381 838320
030385 6336;7
102397 8286807 150552 9%:
Hperr: él?
NGB DRVERS
nsu?a.asun

6383

030

001402

638;

030376

00S00S

6390
6391

030410
13

2333
6394
95

6396

6397

006300

104401

001410

030442

1467

6404
24
4

6407

030462

012133

8384
4

030471

104401

001325

013746

001102

104401

104483
0

000

19:

045400

6408 030472 104401 012133

BEQ

2%:
3%:

sss

iEE

n§va
DEC

agTEHB,RO

ASL
gSL

Rgb

RO
ggs

RRTB,RO

TYPE

nsaspa
O

BEQ

TYPE

MOV

TYPO
.BYT

TePEE

0)+,2¢

,CR2LF

s
.WORD

MOV

YTE“ (SITEMB) TO DETERHINE WHICH

T FOR THIS DRIVE
NHIB?RR8SSU?YPEOUTS?
;B

;CLR RO FOR ERROR NUMBER

MOV
BEQ

TYPE

045412

(3
BENS4 012037
MBR 030620
6400
030444

6401

6%:

ZZ§gf;
001114
v
14

030434

30774

CONTRO

\RO)+,48
,?CRLF

STMSG

INIT INDENT INDICATOR

NTER
ERROR NUMBER
ORM INDEX FOR ERROR TRBLE

;FORM ADDRESS OF ERROR ENTRY
GET EM PCINTER
BRRNCH IF THERE ISN’T ONE
&

DGET DH
hoiioon
ressecg(e
OIN
POINT
BR IF THERE ISN T ONE
;TYPE
TM

TEST *

‘TSTNM.-(SP)

;GET TEST NO. ON STACK

e
0

; SUPPRESS LERDING ZEROS

,CR2LF

s TYPE IT
:2 DIGITS

CZR6EGBO RKE DR _CPT PROG MACY1l 30(1046)
CZR6GB.P11
02-DEC-77 10: 46

104401
104401
104401
1
12701
12702

34
1325
726
1325
%0006
1236

1044
Y i

012147

TYPE ERROR ROUTINE

150434

#BIT12, 3SWR
208

CRLF
'DH101+10
SCRLF

308:

SPRCE2

104401

6438
6439
B440
b4Y 1

1056
012001
14sy
12000

e442
BY43
BY4Y

Euue
48

7e
74

453

(0307
4

g
1

gusd
030716
B B

b461
B46
E4E
e464

SPACE2

tR2), -(sP)
,CR2LF
4$:

001325

gCRLF

$81.12,3JSWR
c0$
(RO)+,R1
c0s

150302

7e2
8
7
7
030732

001002
lowor
13146
104402
5303
1403

&3‘001
771
005702
14

012147

118:

001325

SPACE2

3(R1)+,-(SP)
R3
12%

012147

Qosaos oo
o
012037
030754
105710
1004
104401

; TYPE SEPARATORS

SEE IF 7 VALUES TYPED YET
IF NOT

TYPE HDR FOR BA DATA

; INDENT
,YPE PREV.

BA BITS

; TYPE PREV.

LO BA BITS

; TYPE DRTA HERDER

iDH POINTER GOES HERE
; INIT

REPO?

INDENT INDICATOR

SCRIPTION ONLY ?

10%:

004747

6448
6449
6450
6451
6452

B4SY
6485
6456
6457

SPACE2

tR2)+,-(SP)

012147

012002
1

TYPE IHORD
ON STACK

;

001325
012147

010000

; SIX COMMAND VALUES

STRRTING ADDR OF PREV CMND VALUES

SPACE2

i1s

12%:

R2
148

148:

15%:

$CRLF

20s$
(RO)+,16%
(RO)
4$
, SCRLF

; TYPE PREV COMMAND HERDER

;*NDENT

iOflHO? 012133
18:9 1

iTYPE “PREVIOUS COMMAND :*

E
S
2
o

2331
§=gg

ggpogr ggSCRIPTION ONLY 7

ng
401
12246
1044
6
1
11246

SEQ Cles

53
D

1
6

T
#SREG26 , R2
(R2)+,-1SP)

Sflsg
1372
B
suSw HEE 1B 1 o
851005

6425
6426
427
64
b4
B4

110

PAGE 126

641
641
b4l
B41Y
BY1S
6419
B4l
5“12
g:l

010000

11:48

2 ; -C'DH‘OI.D -.
Z
£

032777
001133

6409
€410

02-DEC-77

;EY;E SEPARATORS
SEE IF <CR> <LF> NEEDED

{¥0
edY
; MORE DH S?

; NO-BRANCH
iGET NEXT DH POINTER
iSEE_IF ANY DATA FOR HDR
iBR_IF YES
iSKIP EXTRA LINE

cznsaao RK6 DR CPT PROG MACYll 30(1046)
CZREGB.P
02-DEC-77 10:46

g:gg

ggg7qo

6470
6471

4401
722

6473
BY74
6475

722
764
766

6857 0
1331
062700

6477
6478

030774
030776

104410
000207

104401

001325

6476 338772 000751

000002

E480

02-DEC-77
11:48
PRGE 127
TYPE ERROR ROUTINE

§§§gos

E4E8
030744
646
;gg °§4C8 012147
6472

J10

M
368:
168:

208:

SEQ 0126

gkn

ggs

sRE-INIT INDENT INDICATOR

BE
?UE:

Ses
, SPACE2

FCR
TF MO INOENT REGUIRED
O
E?fioeur

TYPE
.MORD

1STB
BNE
ADD

tng)
10
#2,R0

RESREG
RTS

TYPE

:TYPE DH
:DH POINTER GOES HERE

$CRLF

s TYPE A DT?
: YES-BRANCH
; INCREMENT DF POINTER

14$

:SEE IF END OF DF BLOCK

FARTTL CONTROLLER ERROR REPORTER ROUTINE o rrrxyRENBayymayans

6481

;.eurnv:

JSR

PC,

CONERR

233;

¢ruxs noutxne 3255
THE CONTROLL 5zss§ga uogglgqgns -

6486
g:gg

nnernxz o non THE nxsxx nuo PLaceo IN THE PARAMETER
.:gTogfixs T;s DONE BECAUSE
PARM O MAY NOT BE VALID

031000

104407

ébagaall}illggllllllllllIll!lllll!llllllll!llll!!lllll!!l!lllll!l

Bugs
§§i°°am
64
181u 186237
5937 D03155
333554 o033k
6494

031

032737

@:99

iii

10409#

6499

031042

55
3

1
1

6495

031

001402

3439 831835
3?8?

8827
1407

igi

5507

°3{§7$

§§§33?

6510

031104

1402

ggié
651

831 76

§§ii?§

BEQ

6§§§§§

000004

003062

2%:

003141

158:

737 000010 003062 3$:

o&z

001402
uo;g

737

000020

003062

4S:

6517

031126

032737

000040

003062

5S:

031134
831138

4
68335&

o annuc

CLERR CONT DID NOT CLEAR ERROR

BEQ

i NO-BRANCH

BIT
BEQ

ogxra,s.cour
3

;ERROR 27
: NO-BRANCH

BIT

INCB

Egnon

SIT

BEQ

ggnon

031120
83{{55

#8110,E. CONT

TNCREMENT
:330 sEsERMOR
?NroCOUNT
gnscs

ggza

003142

ERRONIE
Sc
?opnoc

sgnoa
sgnon

6514
ggig
6518
ggég

111

BIT

739 000002 003062 18:

Eggg

6506 031

003062

1402

1832

000001

TncB
SR

BIT

BEQ
ggnon
BIT

BEQ
gsnoa

#BIT1,E.CONT

;ERROR 17

:NO ATTENTION IN ATTENTION SUM REG

gggnrc

-sss }‘
DRIVE WAS SIEZED BY OTHER PORT

:UNSOLICITED ATTENTION

REISSU
ogITa,E.CONT

;;

$BITH,E.CONT

5§
;g

#BITS,E.CONT

X3
;g

’ger FL32 TO RE-ISSUE COMMAND

ennon 37

0-BRANCH

uuexpscrso DATA TYPE ERROR
; ERROR 4?7

NO-BRANCH
:ATTENTION DID NOT RESET WITH CLEAR
;ERROR 57

: NO-BRANCH
'SUBSYS CLEAR DIDN'T CLEAR DRIVE ATTENTION

K10

SEQ 0127

#8v—o—;o—o—o—o—o—
2FERERES

003062

6$:

001000

003062

8%:

002000

003062

9%:

100000

003062

108:

118:

Pt Pt Pt Pt Pt Pt Pt Pt

o
TU s s e
o£no

Bt Bt s Pt Pt Pt P

000400

78:

003062
033560

BIT
BEQ
ERROR
BéT
BEQ
ERROR
BIT
BEQ
ERROR
BIT
BEG
ERROR
ERROR
CLR
JMP

II I

#BIT8,E.CONT
83
72
ggIT9,E.CONT

;DATA LATE WHEN UNLOADING HEARDER

73
:g}TlO,E.CONT

; CONTROLLER ERROR DURING DRIVER SERVICE

;ORIVE DETECTED PARITY ERROR

:?ETIS,E.CONT

;MULTIPLE DRIVE SELECT

; UNDEF INED_ERROR
;CLEAR CONTROLLER ERROR WORD
:GO DO RET RY

E. CONT
BGNRTY

I 000

PABTTL REPORT supponrno¥INE

MOV

BA BITS

+ ;gtr RL# THE VALUES FROM THE
+ ;PAR
)+ : THE

ERogLOCK AND LOAD
cxsrsns

$ ;#on REPORTING. nLL xs

35 Sian

E§§¥§

; STORE PREVIOUS

G37 :LO

;DATA MAY NOT BE VRL
14
E

e i e e e hen T
DVDVVDD0D
VOO0 O0000--2D
0~ Nt Nt Nt Nt Nt ot et e e YN
He 444+ ++e

016520

HI 8“ BITS

1416

moOD

i3 b

016520

0CrODDD0DDDD DN

1338 0lees0
1336 815520

18 g6
ol
2
o
1412 8165

T(RS), (RO)+

NNZ e ~2

1342

Q-O

g§g

001260

EOOOO

O~ 4+0O+

0Ol
1

RCK(RS), (RO)+

2 O-‘Og(fl

8SRE

CYLN!RS) (RO)+

VUVVOVO
:U:U‘:U'D‘D. o= 'Ufi'DH‘D
s s s
0+

1270

LEAR ERROR COMMAND STORE

CHND(RS) snscofi
batgne
COMMAND START VALUES
EPORTING
;

OO
b s e

i
1584

005426

#OTVUVVIVOVOD
O * » & ¢ ¢ s s
VXMDOD
L b= ST S

BRRREERRERNE BEEEOEELERLEERLEELEWG

1254

REP

iaau
1
1

ALL ESE MRY
lINTO HENCLUDED IEHPORRRY QSQISTERS FOR REPORTING.
BUT THEY ARE LOADED ANYWAY
!NOT BE
N THE REP

1224

AMETER _BLOCK DATA TO BE REPORTED

; #THIS ROUTI

[

659
5552
figg?

o
w

6521
6522

200082288288088 :

11:48__PAGE 128
02-DEC-77
CZR6080 RKE DR_CPT PROG MACY1l 30(1046)
CONTROLLER ERROR REPORTER ROUTINE
02-DEC-77 10:46
CZR6GB.P

;D TERHINES
LRTER) BU? IT IS
ANY WAY

) +';STORED

NTOUT

;ADRS OF PRINT BUF AREAR

¢
c

MACY11l 30(1048)
10:46

6QB0 RK6E DR CPT PR
QB.P11
02-DEC-

6577

6572

012700

0281
l:§1

0144
31

665851
éggl

S
&58Y

Se?

Eggg

2593

6534

14§§ 1
144
14

1
1

G3iuse oicoel

o
e
1474 86 16

1S00
031502

10441
000207

;ADRS OF PREV CMND STORAGE
;DRIVE NO.

MOV
CLR

(RO)+,(R1)+
(R1)+

; COMMAND

CLR
MOVB

;CYL RDDRESS
; TRACK

MOV
MOVB

S(ROJ,(R1)+
(RO) .R3

; WORD COUNT

Y(RO), (R1)

;L0 BA BITS

BIC
MOV

000004

(RO)+, (R1)+
(R1)+’

(PO)+, (R1)+
1(RG), (R1)+
(R1)+
(RO), (R1)+

CLRB
0003
177774

SREG

RTS

; SECTOR

(R1)4

iHI BA BITS

8177774 R3
R3, (R1)4
PC

= 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 3 2 6 2 2 M

'SarrL

REPORT ERROR ROUTINE

,.neruau

RTS

EE XXX R

ERRHDL

ITH
ROUT INE }SCALLED
b
ISHEOU
Lg
D BY THE DRIVER WHEN AN ERROR IS DETECTED
HRS
TINE DETERMINES WHICH CO

naexnc EXECUTED AND czuennrss THE PROPER ERROR ME MESS

6501

llllllll!lllllll!’llllllll'l'll"lll'llIllll!llllllllllllll!llfllllill

03}58:

iOH;O?

e Dl iy
660
031520
037

003132

#3 i
Ry
2211 831540 8%578§
031546
031554

012737
004737

005424

03124

0030S6
003054

ERRHDL:

SAVREG
I

gtgfl
ER2ENT:
BIT
§§3
52%:
MOV
MOV
JSR

%
Sn
fi?°“‘
?NCRSONETkaSOR COUNT
HEeokl
8
vesn RECODE
s§
casrnntng ABNL

SRETNML
| A. NORM
PC,REPSUP

6615

gel
6618

BALERl

?E;@EBROPHIC NRTURE ARE FIRST

2l
622

Tt B PR,
R&&s?sé"m?és""..fi?"l‘é”’s

6625
6626

rrgs

HflNURLLY DECODED TO LOCATE THE

6629

gggl 031560 016504

6632

SEQ Ol28

ROUTINE

#PRVCMD, RO

MOV
MOV

000001

L10

PAGE 129

MOV

MOVB
CLRB

6599
6600

6612
ggia

SUPP

oos1e2

(596
6597
6298

6603
6&0;

Rgsag Cc-77 o&*:flfl

031Se4

032765

000034
020000

000020

MOV

BIT

P.ER(RS),RY

#UPE,P. C52(RS)

gE?
gg $REQROR REGISTER
TEST UPE. IF UES-SET

M10

CZR6QBO RKE DR CPT PROG MARCY11 30(1046)
02-DEC-77
11:48
PAGE 130
REPORT ERROR ROUTINE
CZReGB.P11
02-DEC-77 10:9%

et Bt (s Bt Bt s (s B Pt s P Pt Pt Pt Pt s Pt Bt Pt Pt Pt Pt Pt Pt P

001406

SIS F SRS SRS T ORI E%
oo

000137

Bt s P

B002888208088888082888088888:

fiéas

8¢*

000020

000400

000020

010000

000020

033236

M,P.CS2(RS)

; TEST NON-EXISTANT MEMORY

g ORT, RECODE
2s:

38%:

033236
000400

ORT, RECODE

000020

033236

39:

39%:

5gED,P.CSE(R5)

; TEST NON-EXISTANT DRIVE

SUFE,P.CS2(RS?
388

; TEST

%755 P.CS2(RS)
u? o

#NED, P.CS2(RS)
95
g
378

IF NED & UFE BOTH SET

;NED & UFE BOTH SET ERROR
;NED ONLY

; TEST UNIT FIELD ERROR
; TEST IF UFE & NED BOTH SET

REP3R¥NED & UFE BOTH SET

; REPORT UFE ONLY
378
OCHDTO P.PRST(RS) ;
1

033236
000100

000014

882684

oos424

P?ao?osofiecooe 2N0P§?fiESfiTTI"E??HEOUT PROC?

000400

oos424

g&EVEER, RECODE

40%:

033236

83152H
10000

4s:

'E?'-’Ex&i"% EbOL,

LSE MAKE FULL TIMEOUT REPORT

033236

41%:

379

2ENT

THO TIMEOUTS ERROR REPORT

{8°gbTB
aRD A 280 ree
BY OTHER PORT

000014

#DRVSZD,P. PRST(R&) ;

033236
020000

000016

$
giPRR,P.CSl(RS)

004000

oos424

¢ Bk
1

00Ss424

0os424

833618

00
wWw
rn
o

f§§§

e e B Bodecs
031615

; REPORT ERROR

ge 831878 §64001

SEQ 0129

033236

65%:

;TEST D TO C PARITY ERROR

6
$RCLREQ, RECODE

6S:

SORPAR, R4

78
7

; TEST DRIVE DETECTED PARITY ERROR

g; LREQ, RECODE

00s424
000036

BEva“BHisRo B LB
SIEZED

7%:

#ACLO,P.DS(RS)
83
10
378

: TEST AC LOW

N1O

SEQ 0130

s B

855600

148:

0332
0400

158%:
00s424

16%:
oos424

6744

00S424

18%:
00s424
000036

032376

004000
033236

0os424

19%:

Bo~D

178:

NUMY
s

o
v

p )

ILLEGAL FUNCTION CODE

; TEST PROGRAMMING ERROR

ILLEGAL DRIVE FUNCTION

m
2
£

; TEST

; TEST DRIVE TYPE ERROR

; TEST FORMAT ERROR

P
£

e
e
s

e B

i3%:

; TEST

H—A
<

12%:

; TEST FOR CONTROLLER TIMEOUT

118:

; TEST SPEED LOSS

37?
8CTO,P.CS1(RS)
41
e
S$ILC,RY

)
ra
o
-v ar
"

108:

O&?DLSS.P.DS(RS)

— [ATETE
1A LT
A T

000020

NNNNNNNN

sl gl ale sl gl ale oo ale ol o 4

24s8:
258:

NNNNNN
}l\l\l\l\l\l\l‘l\l\l\l‘l\lfla\lfl\lVV\I\JQV\IV
n
FRECR=EBBY
eOO NN LW

s sl ol s ale ol al als ol Lo sl sl

000016

oqigszigzzgfidza

855600

BigOR

000036

DM OD~MDDMDDmM
2‘-4!’"%
InBo~
3B S330 30—
FEEE L
>
-

000020

SOMDOD<DMDD«OMDOD
DMDD < M MDD <MD
DM
=DM
IO
noO—
(=]
[=]
2
2
2

SERZERCESBIRRLIN2S

02-DEC-77
11:48_ PAGE 131
CZR6QBO RKE DR _CPT _PROG MACY1l 30(1046)
REPORT ERROR ROUTINE
c
P11
02-DEC-77 10:46

16
37%
, RY
$ULE
15§

17
37%
SUNS, RY
s

$ABORT
, RECODE
ALL TRM
R4
#SKI,

$RCLREQ, RECODE
378
, R4
#COE
188

; TEST WRITE LOCK ERROR

; TEST DRIVE UNSAFE

;s TEST SEEK

INCOMPLETE

; TEST CYLINDER OVERFLOW

$RCLREQ, RECODE
37%
RY
#1DAE,

13%
e3
#RCLREQ, RECODE
378
#DROT,P.DS(RS)
20s
4
#RCLREQ, RECODE
37%

; TEST

ILLEGAL CYLINDER

; TEST DRIVE OFF TRACK

——

Bll

C%:E&EOPQT‘ oaogfggpngs 10:46

PRGE 132
l*&fi

L= {0

21s:

2es:

8DTE,RY
s

%T,r.csams)
3

I,RY

ngggfl.ascooc

0oos424

BLEV2ER, RECODE

00S424
000000
001202

005424

2 ig 8°s

005424

0os424

; TEST DRIVE TIMING ERROR

; TEST DATA LATE

;TEST IF OPI ERROR

;TEST IF FIRST ERROR
T
SKIP
;NO_=

t A;&: LEVEL 2 ERROR
Phae ALig
ERROR REPORT

[
~
ey

TED_REPORT

-n

D
Cetaty

2=R3et
ogueo- R AT S 59320 L

00s424

cos4a4

SEQ 0131

T,RECODE

et -y

oos424

0=
OO
<O<

oo o ToreTe
~N

N 3wwwgv$§§§§§§§fiq§§vvvrvrwowvw
AARR s

oo
O OO

+ .

UUUZUU
-

o—

010000

fi"z

MACY11 30(1046) MC-??

GISTERS

SCORA, ARLSTCRS ; TEST IF ERROR DURING STORAGE
gs FRgnomc WITH OFFSET

STT

§§§CNT

g&‘m ERROR COUNT

gggLflEO.RECOOE

; MAKE
REPORT
;SET RECALIBRATE REQUEST BIT

19TF R ERbaEPORT
.HVRC$R, RECODE

5L§vasn, RECODE
7

‘38?" ERROR
;TEST_IE

“ 2N
0L VELERROR HAS ALREADY
IS2R
P

TR
e
l
o
V2ER, RECODE

C, BLDEXH
ROHDO

(R2)
OIE RkCS1
2), SREG10
2

RKDB(R

rsRoEPORT
é
x
v
g
g
§E
§§
5n
°
%(
YS
&T
cu:m xms T ENABL

; STOROF
EF HEADER

CZR6GB0_RK6 DR CPT PROG MACY11 30(1046)

CZR6GB.P11

02-DEC-7710:46

ey g

02-DEC-77

REPORT

!T
13
. iu

oos424

gi;

23s:

Bre

Eg
8‘:.33

005424
005424

338:

1 001206 348:
358:

01282
000020

e REE

2
55
BIT

6835
283?

36S:

000014
033950

093733

000200

O0OS424

37%:

;

;mmmsmm*
:g§sr FOR BAD SECTOR ERROR

AR, RECODE : T :&85FLAG
S%fi%a?&
1681
¥
%
i
55&2"2
i CLEAR ALL l!TS EXCEPT TRACK

R nsoooe ; %&fl'
?nx?5820,, ffsvso

ig :
STTYP

EnR T

K,RY

:
:

ag
xuc uxrn orrss

COUNT

?gsIF DATA CHECK

KERR , RECODE gt
I DATA
CHECK ERROR IN RECOVERY CODE
£ ECC
oeSEufg.necooc cx RY FLAG ANmflé"

r%v
81, hc’fi?SREG12
;;5&3

"Ssr ;

UCE, P. CS2(RS)

?" 3:3. 12PoR
EoRRECTARL
T _ERROR

P°S"°°'I"?3~°§ s

rzsr WRITE CHECK ERROR

G
IRULEGRE
R
RN LI
ISTe
DERCNT
'r‘gsr IF FIRST ERROR
7

;nspgsT WCE ESS OF ERROR

SDRVHRD,P.PRST(RS)

B, 8
BIS

PORT

SECH, RY

JSR
gc,c'rpxno
ERROR
33

sess§
£628

P
B,RY
BIT

BIC

28%

JMP

ST8

gsg
30
%

SEQ 0132

aza;.ge&u

gég

Cll

PAGE 133

ERROR ROUTINE

mEm

BR2
6809

11:48

$ABORT
, RECODE

;TEST HARD ERROR

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

§825 03364 DOIUD

685

033276

033316

032765

000014

000200

00S424

004000

000014

000010

000014

11:98

D1l

PAGE 134

SEQ 0133

REPORT ERROR ROUTINE

43$:

BIT

Bea

RROR
1S

448:

000200 00S424

9..3; 000200 00S424
i

BIT

BEQ

46$:

SDRVDSC,P.PRST(RS)

wag
37

;TEST STATUS CHANGE NOT CLEARED

ABORT, RECODE

SNODSC,P.PRST(RS)

;IFST ATTENTION BUT NO FAULT OR DSC

4p%

ERROR

SABORT, RECODE

BIT

SUEXATT,P.PRST(RS)

IS
"
SoonT,RECODE

;TEST UNEXPECTED ATTENTION

;ALL ERRORS MUST EXIT THROUGH THIS POINT

0030s6 "' MOV
5,5%3
:
Togy oooad

W
R

rreT
NNN
cn
2w

6867

032765

001404

—

6863

000040

02-DEC-77

BLOCK SELECTION
ER
SDOKMDL.R.ABNL ?T%SO%TE
vfi;m WITH o:rs:r:on R
13T

o g8 - [ o PR
00S424

BIT
BNE

% 000200 000012

MOV

g'xé

R¥

000200

:mT.RicwE

DO30YE

1S n:nov (MS NOT

fi?fixosmz)

w WIRED BIT IS SET

REOUIRED
}mfi%fllflfu;s
i % 004000 O00S424 47%: s l mr0hcRECODE
wmsiBEotkTM16B0 1.

£83¢
62?
6901

6902

6903
b
g

033540

BUE
BS
e
gtfig
737

003143

2737

031504

737

1'459

0Se?7

089
01
104061

00S424

000200

O00S424

031524

6907

BN
R
myemcmeo
BNE
:é
x} vz
K

TSTB

SO0S:

MOV

séT

48$:

OER

8LEV2ER

BGNRTY

ERROR
MP
ERROR

0
R2ENT
1

BIS

nvp

:SEE

, A. ABNL

, RECODE

a s
EC&

S$ABORT , RECODE

READING WITH OFFSETS

TTEMP

OgE%fiRED *N THE

T THS RECAL ERROR MESSAGE, AND

REPORT DETRILS

'REPORT ABORT-RETRY FAILED

; THE_PROGRAM WILL HALT HERE IF THE ABORT FLAG HAS BEEN SET OR

gggg

;IF THE DRIVE READY BIT IS RESET.

6910

033542

00000S

912

033546

105037

631 é

003056

000400

T WITH ABORT MESSAGE

Jfigf

% s BOETLY BoRcH

£33

00S424

033544

000000

HLTPRG:

003135

RESET

HALT

CLRB

;DISABLE ALL DEVICES

ERRCNT

iHALT THE CPU

iCLEAR ERROR COUNT

Ell

cznsaeo RK6 DR CPT PROG MACY11 30(1046) 02-DEC-77 11:48 PAGE 135
CZR6GB.P11
02-DEC-77 10:46
REPORT ERROR ROUTINE

6913

gg%g

83 000005

Re'én

3554 000137 012236

6916

6917

m-: rou.

£919
ggsg

8e IRITIATING

figg 000136 00S424 BGNRTY: gg

737

g33

%174

6%
gggo

000200

1
11

swé

Rsmmc IF AND DATA TYPE

ROCTINE

ERROR

TRy My ORERCERRON 16 T8 BE '°

§?‘7

xsoes
815852
i

1STB

NORTRY

gne

s:mcm,smmr é‘or
aeggTExcéFoggnos COUNT HAS

033%2

gégg ;

69 033726 105037
104410
232?, 033732
033734 000207
6957

6961

3762

008?32

3135

0377

177776

003132

g'fi
CLR

18:

BIS
BR

s SEE xr "no-nsmv* FLAG SET

gaoszc.ascoos Fvsé Qa? % ESELF};“G SET

*ascs

T,RECODE

HLTPRG

RKBAS, R2
:GET afscESS SUBSYSTEM
T0 CLEAR
gguac{.n P.CMD(RQ‘); ssr

MOV
MOV
Ny

(RO)+, (RS) +
czau,(asu
(RO)S' (RE)S

MOV

A
MOV

2s:

MOV
?g:‘ra

?gx

CLRB
S

RESREG

RETANL: BISB

gegg ggg;-w
57517 goqoo 005424
g;g
3
33 7?5 ?22;37 000377 003132 RETNML: BISB
000207

SANYDER
, RECODE

IO el

176

o4 813%?
b 002640

3ogsenamvnc£nsopxsmocxsnmucsan,nscooe :TEST IF ANY DATA ERROR

gas

005424

003046
fisg%zg 000001

6953

8363

un.;f

9S:

-y

003135 003136

6956

00S424

35 001000 005424

23%

gggg

100000

fi;;? 003150

223‘-33

;RESET ALL DEVICES

CMSTRT

'ch is gf mgr
RETRY xs uusuccssru AFTER 4 ATTEMPTS, THE ABORT

§3§§

694
3
BIE

SEQ 0134

RTS

oggnsm'r's 0

ovgnno Rg

opngkaé&su

STABL
THE onmno
ns
ugg
1T
Emsnés"m
PRARAMETER BLOCK

;(L:OHER 05?582”" TO ALLOW INTERRUPT

snhc
PC

:IF RETURN GET

:CLEAR_ERROR c
: OCCURRED, Rscovsnvfins succsssrm

8377, DONE

;SET DONE

g%svésn.nscooe:SET LEVEL TWO ERROR
8377, DONE
:SET DONE

Eggg

3ss:#tll#}figisa#lgasggggsalas'll;!Elllll!Il!lilllll!iilllilllli{!l

6966

:¥THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS

6967

6968

4GRTHERING DUTIES.
PEEEERERRERRRER

RR R

E R R AR R AR R R AR R RRRRRRERRRR RS

F11

CZR6GBO RKBE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48
PAGE 136
CZR6GB.P11
02-DEC-77 10:46
TIME OUT PROCESSOR ROUTINE

6359

6970

697

376M

033764

TOPROC:

104407

6974
6975

MOV

RKBRS,R2

MOV
MOV

nxcsétna)’(a1)+
:3£cxsrsns
RKDC(R2), tR1)+

sfl;9
£
£9

638? §§§§q

DO0014

UUULU

6982
2333

6985
ggg;

012705
665;3§

gggg

6991
£99p

£999

6995
6996

1
1

ré

034118

112
114

705
12521

SAVREG

MOV
MOV
MOV

RKDA(R2), (R1)+
RKWC(R2),
(R1)+
RKBA(R2), (R1)+

MOV

axE§<ES,:ca1;+

MOV
?gxe

#PARM!1 , RS
:SET UP TO USE PARMI
BSD reght.cnuotngénéoo R§323°R’VE STATUS COMMAND

CLR

002724
oizé

000001

002000

005424

SEE

DOOO4

ADD
MOV

#P.A00, RS
(RS)+, R1)+

MOV

(RS)+, (R1)+

BIS

O1525]

012521

MOV

012521

O
153
0341
034122

12521
12521
012521

MOV
MOV
MOV

7002

oguxao

104410

RESREG

7389 034124 012705 002640
7003

034132

000207

7008

;88;

;8?3 —
7011 034133 104407
7012
7013

034136
034142

016501
016500

2oie
§§3i§
7019
Y1

ssfi

7014

034146

042700

160017

006200
012705

002724

7021

034172

010065

000002

7022
7023
7024

034176
034204
034212

112765
012737
004737

#TWOTOS,RECODE

;SET TWO TIMEOUTS FLAG

;BUMP RS TO POINT TO DRIVE STATUS
iMOVE ALL THE DRIVE STATUS INTO THE

SRS X S
.

(RS)+, (R1)+

<n§)+,(n1)+
(RS)+, (R1)+
(RS)+, (R1)+

MOV

#PARMO, RS

RTS

;RESTORE PARM O

P.DTS(RS),Rl
P.B10(RS) RO

;STORE TRACK AND SECTOR
iGET THE cgkiugen ADRS

AR
ngn

RO
RO

;CYLINDER IN THE RERD

ASR
MOV

000004
000177
000000
030146

MOV
MOV

BIC

010165

:ghoro,P.Pnsrtnsiflbrtsgziga TIMEOUT

éélsalilnnunuunnuinnnnuuun"uuuuuuuuln"
HDO:
SAVREG

000026
0000S2

034160
034162

034166

s THIS CODE WILL ATTEMPT TO
igg}sésve THE STATUS FROM THE

; és#.;ill;g;;l:é;;g;l;l;gfi#;;zliilllillllllllll!lili*llllilllli!ll

7018
7019

7020

000100 000014

6997
6998
9999

7004

SEQ 0135

MOV
000001
177776

MOV

MOVB
MOV
JSR

#160017,R0

iFROM THE

STATUS. CLERR

1 O0R LSERS THE DESIRED
. TO"
.

8PARM] , RS

; HERDER gounnno.
;SET UP
TO USE
P.B.

RO, P.CYLN(RS)

:SET CYL NO.

R1,P.SECT(RS)

;INSERT TRK,SECT FOR READ HDR

#SUBCLR,P.CMND(RS)
:SET S.S. CLEAR CMND
$PRO, 9#PSW
sALLOW INTERRUPTS
PC, DRVCAL
: INIT THE S.S.

Gll

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)
02-DEC-77 11:48 PAGE 137
CZR6GB.P11
02-DEC-77 10:46
READ HERDER O ROUTINE

;852 gggsg Me;g;

7027 034230 013
;858 833533 88?
70

;gsé

152 000001

406 000000
333200 000000 24%:

&’.ww

0200

000000

26%:

7 33 83:3 42 i'és;fig 883?33 8888877
;gas oa:sg ?133?3 002640
;gae ggwgos 0207
; :a
1
7045 83331
7046

034322

005037

3;;;%3

7051

034352

005737

7833
2 0010347
7050
034350
.

001200

%fi?

4 goswau

034374

0014

§6§z 7

000023

001200

706
7061

Y
034414

127
005737

000025
001176

001200

3833 7

001176

012737

000002

001403

7064

0344
0344
Yy,

7066

034436

005337

7065

7067
7068

0344

034442

000207

001174

001176

gggv,kxcsuna)

uon.oa RKCS1(R2) ;D0 A READ HOR,

:WAIT FOR RERDY

WITH FMT BIT = 1

;8;5

nggg

§(n5) 32557
srons ms mncx nuo secron

TST

snec7

B
BIT

e
#CFMT,P.CS1(RS)

2%:
3s:
4S:

onvn E# Réc
>

BEQ

MOV
TST
BEQ
DEC
BR

#21.,SREG?
SREGS

4$
gREGS
3

DEC

SREGS

ggv

5§:

7os:

MOV
RTS

Er xr anc ERROR

no:s n: ADDRESS CONTAINED IN

mg Efie fiEGISTERS FOR THE AUTOMATIC

$19.,SREG?

82, SREGE

;ss#uunulgnuiuuuuu;uuuuunuuuuunuunuu

7073

nusé ogg{kg cvn.?nsgn TSSCK AND SECTOR REGISTERS TO DETERMINE

;g;g

*7 ron REP NG EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND

;8;

034444

7078

034446

7080

034460

7079

MOV

BIT
BNE

001200

7057

7063

nof.ox RKCS1(R2) ;DO A READ HOR, WITH FMT BIT = O
gv,RKCS1(R2) ;WAIT FOR READY

CLR

ogi:izgg

B
A o
7056
366 032765 010000 000016 1%:
gsgfi

MOV
B&E

”
001174 b*;:agll;‘l’cillil;lilgttaggI;figgll’:lglg:llllll!lillll!lllllilll!l
862337 881“10 3
CLR
REEG
GE Rt(l-l gssnsros

§$§§3

;gsse

;Tas R n&: Hengen COMMAND

sg;#!i!zg#!;&:llillg;;l;&l’l;'{‘llll'lll!llllllllllllllllllliil!l!

;ow
7005253

'RW cmom5)°;

#B.CFMT,P.CSIH(RS)
AR THE FORMAT
E{%S rgafin'?,h.cgfl
? k&sons
vpsomo rres BIT IN USE
EEVm #PARMO, RS
.st
rons nohso ADDRESS
3
PC
:nfiun

;Ozé

?gga

SEQ 0136

034454

104407
016537

016501
042701

QtSE)I‘:‘llgacggaiilil!lll!Illllll}lllllllllllllllllllll!l!l!!i!l!ll
000030

000026
174377

001174

MOV

MOV
BIC

P.DCYL(RS),$SREGS

;CONSTRUCT EXPECTED
HDR

#174377,R1

CLEAR ALL BUT TRACK BITS

P.DTS(RS),R1 oestnsoCYLINDER & oesxnso TRACK

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

02-DEC-77

ASR
ASR
ASR

006201

;

03:472

016537

001176
001176

;088

sl2

737

001176
000016

001176
001200

7
7091

i
it

7095
7096

BB G

ae
45
034See

Sy
i

3701
050137

7038 034858 880207

709

001200

868

H1l1

238%:

;AND SECTOR. SHIFT THE TRACK

{OVER TO CONFORM TO HERDER FORMAT

P.DTS(RS),

3140000 $REGH
#1000, SREGE

;EE s.gnsc7

'sfiec7

$REGS R1

R1,SREG?

=YP‘&ET’”§z§°?fl@’u255:fl"90nnar
Sbfi“finfitk Rko_SECTSR roceTHer
; INSERT BSE BIT

SREGE
;

3{7754865k£cs

SEG 0137

138

S;nr,P.CSI(RS)

DODOOODITI
M
=00
U
NHLlele
i

034470

PAGE

BUILD EXPECTED HERDER

7885 B34ue 80201
;gga

11:48

; COMPUTE THE HERDER VRC

CZREGBO RKE DR _CPT PROG MACY1l 30(1046)

CZRBQGB.P11

02-DEC-77 10:46

e 1 = O O O O OO0 OO O
BBURRELRE DONCNLWN=OO0 NN LW
0OV NN LWg

PAGE 139

0.10)

RK611/RKO6-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV.

; ¥COPYRIGHT

(C)

1975

1975 1977

;oxchnL EQUIPMEN qb
RYNARD,

MA.

017§

lRUTHOR "ROY SPITZER
*WATCH-DOG TIMER
I

THE WATCH-

TIMER_DOES
A PSEUDO-T *HING OF RKO?-RKD? UNIBUS
zr

)

=
a3rm

mor

ACHES ZERO"R"

HE PROGRAM DEVICE STRTUS
1 N RS _THE NUMBER
T SPINDLE COMMAND
.

C AS THE TIME

Q
? OPE
H UP TO 8 OPERATI

5o LINT
38 =M

BLOCK.

RETURN

TCH-DOG TIMER
WILL
MULATEOUSLY. FOR SEOUENTIRL

S ONL Y ONE OPERATION WILL BE WATCHED.
c, W.WTCH

SUBSYSTEM COMMAND. SINCE ONE CAN NOT GURRANTE
AL-TIME CLOCK (KW1l-P OR KWll-L) IS ON THE SYSTEM
RK
THE LOCRT;ONH;&E FOR

1y
1]
o)

.. ***************t*** *#.***#****‘
O
D,
£

3 B0 0000

.SBTTL

IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

OTHERWISE AN RBNORHRL RETURN TO THE ROUTINE QDDRESS
BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG
IN THE PROGRAM DEVICE STATUS REGISTER OF THE
APPROPRIATE PARAMETER BLOCK WILL BE SET.

034614

034646

0546
446

s Pt bt Pt s

o =]
WW
L£
U

034572

0000

3 336 3 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 3 6 36 36 36 06 00 46 00 B N 22

j=]
W
£
o
£
n

)

LLfrLrrrrrrcx
DONCNLEWN—-0OW

I11

11:48

RK611/RK06-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV.
.SBTTL

o TUNMNININY = b= bt bt bt s e

s Pt ot ot Pt Pt ot Pt Pt ot s ot et s Pt Pt ot Pt ot Pt Pt s s Pt ot Pt Pt ot Pt P Pt Bt Pt et Pt s Pt Pt Pt Pt P Pt Pt e Pt Pt Pt Pt Pt

NN NN NN NNNNNNNN NN NN NN NN NN NN N NN NN NN NN NN N NN NN NN NN NN NI NN

o
nrw

Pt et Bt Pt Pt

02-DEC-77

796

337

1034
013737

105737
14
3737
3702

5337
001016

W.WTCH:

177776

003066
003070

003110
003052
003046

003124

MOV
MOV

RS, -(SP)
R4, -(SP)

MOV

PS.-(5P)

BNE
MOV

208
W.MILI,W.MTIM

MOV

20s$
RKPRI,PS

.NO RE ¥RN
06;LOCK OUT RKO6-RKO7
INTERRUPTS

DEC
BNE

W.DRV
c0s

DECREHENT COMMAND TIMER
:RETURN IF NO TIME OUT

DEC
003066

177776

5259
MOV

W.MTIM

W.TIME

RKBAS,R2

snvs RS ON THE STACK
N THE STACK

S
E PROGRAM TRTUS HORD ON STACK
CRE HENT MIL ISECOND TIMER
Rg ae
TUR
F NO T
EINITIALIZE MILLI sscono TIMER

HECK ¥r DRIVE IS BEING TIMED

LOAD BASE OF RKOG6RKO? REGISTERS

SEQ 0138

0.10)

CZR6GBO RK6 DR CPT PROG MACY1l 30(1046)
CZR6GB.P11
02-DEC-77 10:46
7156
7167
7158

034650
034654

7160

034666

020537

7162

034672

001002

7164

D474

7159

7161

7165

7166

zie7
7168
7169

7170
7171

034660

105037
013705

003110
003122

0S2765

000100

005037

00306Y

012637

177776

034700

004737

Q34710
034712
034714

O
Ol
012604

034704

034716
034720

003064

012605
000207

040154

02-DEC-77
11:48
*WUATCH-DOG TIMER
CLRB
MOV

000014

BIS

5§

208

J11

PAGE 140

W.TIME
PBLKT,RS

SEG 0139
;RESET TIMING INDICATOR
!LOAD ADDRESS OF PARAMETER BLOCK
:~
TABLE FOR INDEXING

BCMDTO,P.PRST(RS) ;SET COMMAND

TIME OUT

CHMP

RS,0.WAIT

;CHECK IF DRIVER IS WAITING FOR

BNE

5§

N0, DO NOTanrsgrgggtxnc FOR

CLR

0.WAIT

‘CLEAR WAIT

(SP)+,PS

RESTORE PSW

(SP)+.RS
PC

:RESTORE RS
'RETURN

JSR

PC,R. ABNL

MOV
MOV
MOV

(5p3+.R2
(SP)+.R
(SP)+ RY

MOV

MOV
RTS

: " COMMAND COMPLETION

COMMAND COMPLETION

'BRANCH TO ERROR ROUTINE

‘RESTORE
R2
'RESTORE
R3
‘RESTORE R4

Kll

02-DEC-77_11:48_PAGE 141
¥RKOb

#RK06

2222222222222 222 2222222322222 2222222222 2222222 2222222222

I BE B i I I IE I I I i i K K

THIS ROUTINE WILL SERVICE ALL RKO® INTERRUPTS.

N
R R I T I mTmmMmnm

UPON RECEIVING AN INTERRUPT,
*|

B2l

FOR THE

QUEUED RKOB DRIVER.

IF NO

SERVICE

-0

ggég;fl S WAIT F . gzflflflb COMPLETION
COMMAND.
IF DRIVE- RELERSED
OUEUED Rxgg DRIVER.

!3?"2

LW
n

I IE IC I IC I

003062

PORT Hfl? SEIZED

REQUIRED,

THE COMMAND WILL BE ISSUED

1.)

A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)

g .) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND)
.) A.CONT ADDRESS OF CONTROL ERROR RETURN

FOR NORMAL AND ABNORMAL
PARAMETER BLOCK WILL

RETURNS,
IN RS.

FOR THE CONTROLLER ERROR RETURN,

THE ADDRESS OF THE APPROPRIATE
THE LOCATION E.CONT CONTAINS

THE REASON FOR THE CONTROLLER ERROR.

ROUTINES UgE s
(QUEUED ONLY)
C.OPT
Q.PUSH (QUEUED ONLY)
Q.RMOV (QUEUED ONLY)

R.CONT (SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)
R.NORM
R.ABNL (SEQUENTIAL ONLY)
I1.CSTS
I.STAT
I.1SSU
—

RN 00 I R B

100000
040200

003012
003012

RVICE

Y OTHER PORT

gERVI
REQUEUE
FOR T

$£Rkéuxs ARE PROVIDED TO THE DRIVING PROGRAM.

T
T

22222222222222222232323332332323232222323
3222322222222 2222222222222 223

. INTR:

ggv
v

MOV
MOV
MOV
MOV

003046
000010
001000

THIS ROUTINE WILL

PERFORM ONE OF THE FOLLOWING SERVICES:

R IC I I R I

L
L L
R e

034766

—

034722

SCKNDOCWNMDQ
() b= B B Bt s s s e

INTERRUPT SERVICE ROUTINE

O
O
r
2

nLwnefi; Ehgghggbmfldhfld%gfl“bfl"nfl”flfl“bflfig;fig:fi;afigfl
DO NN LW
o~

NNNNNNNNNNNNNNNNN NNNNNNNYNNNNNNYNY
n et Bt Bt Bt ot Bt Bt s Pt Bt Bt et Pt Pt Pt ot Bt Bt B Bt ot Bt B Bt s Pt Pt B

.SBTTL
It

SEQ 0140

INTERRUPT SERVICE ROUTINE

CZREQBO RKE DR _CPT PROG MACY11 30(1046)
CZR6GB.P11
02-DEC-77 10:46

MOV
MOV
BIT
BEQ

BIS
JSR

RS,-(SP)
R4, =(3P)

R3.-(SP)
R2.-(SP)
RI.-(SP)
RO -(SP)

;STORE
;STORE
:; STORE
;STORE
;STORE
:STORE

:NO

RS
R4
R3
R2
RI
RO

ON THE STACK
ON THE STACK
ON T THE STACK
8“ Tns grncx
T
TACK
ON THE STACK

RKBAS, R2
;ngg ng T0 ADDRESS RKO& REGISTER
RKCS2tR2),T.CS2 ;STORE €S2
#MDS, T.CS2
iCHECK IF MULTIPLE DRIVE SELECT

8E.MDS,E.CONT
PC,R.CONT

INUE PROCESSIN

;SEY MULTIPLE DRIVE SELECT
:REPORT ERROR

CZR6
CZRb

08-0C-79

0 _RKE DR _CPT P
P11

034772

000137

MACY11 30(1046)
10:46

KO&

18:

003104
Ss:

003104
036134
010400
003012
177770
?3122

35344

016237
032737

0oo0le
000001

003012

6%:

003010

003030
003030

7%:

001041

PAGE 142

SEQ 0141

INTER UPT SERVICE ROUTINE
JMP

037152

003104

L1l

OS SEC

1ST8

I.RTRN

: RETURN

I.ISRL

cuecx

1.1G0

cowfxuuePROCESSING INTERRUPT

IF INTERRUPT OR RELEASE

BEQ

an;
CLRB

CLRB
JMP

I.ISRL
1.ATTN

BIT

#NED!UFE, T.CS2

cnsgltrg§ston-sxxsrsur DRIVE OR

1.ERR

;

§s. ISRL

cn:gx Rsévs AVAILABLE

cngc

;CLERR FLAG
:GO PROCESS DRIVE ATTENTIONS

BEQ
MO\'4
BIC
MOV
MOV

7s
::
032
ACC
INTERRUPT
T.C
oS?S& NUHS?E
cfc<ohvnsx> RY KEEP onxvs
PBLK Rg
Pannflcten gLog
nxcsxln ),T.CS1 s TEMPORARY
C
OR 2? Fus REPORT

MOV

RKDS(R2),T.DS

#DRA, T.D8

cngggrxr DRIVE SEIZED BY OTHER

BNE

1.100

iNO, CONTINUE PROCESSING INTERRUPT

BIT

PORT ERROR

;STORE STATUS REGISTER FOR COMPARISON

:CHECK IF ANY DATA raansrsn ERROR EXISTS

032737

164000

003012

BIT

#DLT!WCE'UPE!NEM, T.CS2

01007
16237

000014

003026

BNE
MOV

2
RKER(R2),T.ER

032737

125700

003026

CHECK FOR DRTQ TRRNSFER ERROR TYPE ERROR
BIT
SDCK!OPI!WLE!COE!MVRC!BSE'ECH, T.ER
BEQ

001407
052737
004737
000137

000010
040200
037152

ESSIHH
35150
035154

185037
37
01370s

003110

035160

052765

035166
03517¢
035176

003062

000137

036134

035214

013704

003012

8E.UDAT,E.CONT

;SET UNEXPECTED DATA TYPE ERROR

PC.R.CONT
I.RTRN

:REPORT ERROR
:RESTORE REGISTERS

11%:

CLRB

W.TIME

;RESET TIMING ON THIS DRIVE

MOV

PBLKT,RS

LOAD RS WITH PARAMETER BLOCK

BIS

#DRVSZD, P. PRST(RS) :

CLR

037152

035210

WAIT FOR RELERSE OF RKO& DRIVE

JSR
IMP

040154
003064

;NO,

BIS

003064

01370S
001002

118

10%:

000014

035202
035206

.IND CRTE ERROR
;ST
ERROR REGISTER

I.100:

0.WAIT

CLERR TIMING COUNT FOR THIS DRIVE

iCLEAR

xvs SEIZED IN THE

GRRH VE

WAIT
F

MPLETION

gag

PC,R.ABNL

I:flTRN

'INDRESTSREBRSR"“# RERHINRTION

MOV
BNE

0.WAIT,RS
2%

oao Pnanusrzn BLOCK ADDRESS INTO RS
i1 E
PgnxrxncPROCESSING

MOV

T.CS2,R4

;STORE RKCS2 FOR DRIVE NUMBER

JMP

2%:

W. DRV

I.ATTN

iNO, gkoggss 8$§3N¥13n

EEREGE P11

CZR6QBO_RKE DR CPT PROG
02-DEC-77
7284

035220

042704

MACY11l 30(1046)
10:46

*¥RK06 xnrsn%uprSERJ?EE
ROUTINE
BIC

177770

% o

3s:
108:

003010
003010

037252

[

[ ]
[N
~
[A]
|

7329
7§§g

035450
0354S4

004737
000137

040200
037152

035460

032737

040000

035520

moo

000137

037152

3§

;CHECK

gts

5211
0.

cLenn ?
ua roa COMMAND COMPLETION

Sfi{

'CESE T.C81°

EE 8~r?fl

E NUMBER IS EXPECTED

MPB SRDALHD, P. cnuotns)cCIEEEAERALe
iy
E SPECIAL HEADER SEQUENCE

CLRB
MOV

T TIMING
ONrnns
Rxchtne) T.CS1 n%
35:
3nnggg
§ “QngSecxsrsn 1

158:

BIS

cuexnrr.P.Pnsr(Rs)

1.ERRA:

éfi

1.ERRC:

MOV

1.ERR:

JSR

JSR
MOV
MOV
JSR

BIT

1.RTRN

BNE
JSR

ssroas REGISTERS

.CSTS

:ST

TROLLER STAT

:3325 38"7£3§ 5«0 POSITION INFORMATION

1 csx P. CSI(RS)

é$
P (R
nx CP <n
RO, I

;SET UNEXPECTED ATTENTION

GET snnon

Pnf )
POS(RS) ; 1
,c AR
ngut

gnrao##sa STATUS
g

SNED!UFE,P. csetné) chx F IT WAS NON-EXISTENT DRIVE OR

:g" nersg
83
1vz srnrus

003010

MoOVB

RO, I.STAT
#DR.CLR,T.CS1

003025

BITB

éurnsx,r.nsor+1

JSR

PC,R.CONT
I.RTRN

;GO RESTORE REGISTERS

BIT

#S.DSC, T.MR2

cuecx IF DRIVE §anus CHANGE CLEARED

1.RTRN

Sfivau

8?2

003062

JHP
003034

2s:

000014
003036

3%:

003062

7339

407 737 000020

P.DRVN(RS) R4

I.RTRN

e
N
&

[ F <N

7
4y
7§§2 83?442

2 IR
i

—-

416 ??2;56 00000S

SEOT

IMP

000020

WWWWWWWWWw

Pt Bt Bt et Bt et s Pt Pt P

8 DO NV LW~ 598

NNNNNNNNNNNNNNNNNY NNNNN

B806€5

414

;MASK OUT UNNECESSARY BITS

"?¥a éfiRSOF(§a)
h%cx
arreurxou SET
BeC
18
§poa~"Ea
JSR
PC,R. NORM
xnoi
RETURN

883024
025

000014

SEQ 0142

#1C<DRVMSK>
,R4

MPB

000001

Mll

02-DEC-77

Sig
BEQ
BIS
BIT
JSR

JIMP

0,1.Is5u

iGA
;
;
i

CLEAR

IFCQ;TENTIOQ Regsr

OE.CLRT,E.CONT NS?3@?%u¢3§n°8ix qu gsssr
REPORT CONTROLLER ERROR

VvDSC,P. PRST(RS)55?"53c DIBLNOT CLERR
cnt
N6
PARIT ;
c§
xch
ue DPAR, E.CONT t onxve PAR] onnnL ERHINRTION
os PAR, t.MR3
C.R.CONT

1krnn

INDICRTE CONTROLLER ERROR

:RETURN

-DEC-

000020

000014

020000

003034

0630

'31;“
1
1 se

035566

gzes7e 88013

BNE

108:

003010

== O NN

100000

I.HDAL:

%agg o000

003024
00302s

YES,

; CHECK IF

IVE ERROR

GO REPORT

os PIP,T.MR2

81
MOvB
MOV
JMP

oe UNLD,P.;-ggnas%dse DRIVE
UNLOARDING
5"52&E
UP 8 SECONDS FOR DRIVE TO CYCLE UP
I1.RTRN'

;GO RESTORE REGISTERS

JSR
JMP

PC,R.ABNL

;GO REPORT ERROR

I.RTRN

#READ ALL HEADERS

cu:éx IF ?axvs gs CYCLING DOWN

ih0, BeroRt ¥

:GO RESTORE REGISTERS
INTERRUPT SEQUENCE

MOV

RKCS1(R2),T.CS1

STORE CSI TO CHECK CONTROLLER

BIT
BE

8CERR, T.CS1

CKHéF CONTROLLER _ERROR

0.WAIT
W. TIME
W.DRV

.cLzm unmuc FOR COMMAND COMPLETE
RESET MING ON DRIVE
!f r ne og;
COUNT

fi?'RNe

(=]

i
=GO
;U;‘O\l\l @ SR-REOREeG O
S
HRYSR SRERCAGCENVNG GeGR-w
~

108

CK FOR ATTENTION

;écmégi?s“%)
T:&LE
n REGISTERS
no:}chm
§L %

000016

003010

SORVHRD,P.PRST(RS)

BIT

81s

2110
3.4

000000

SEQ 0143

nggs INTE UPT SERVICE ROUTINE

000014

o4 015
S4
0371 se

Nll

PAGE 144

Cc-7

.SBTTL

R R R PR<

grescs

g it

oo
O
-0
W
ENN

NNNNN NNNNNNNY NNNNNNNNNNYN ~N NNNNNNNNNNNY
WWw
Ww
i
(¥<

oEEITeY.

MACY11l 30(1046)
10:46

Ss:

:-‘F.:O\JHD
-0
BZX
- O

& DR_CPT PR

AS OF (R2) , T. ASOF “ET
TMSK, K T.RS0F+1 ;CHECK

TIME
ERRA
DRV

7%:

5:"3*0&: nEcx ngwnn

HDR.AD,R1
RKDB(R2),
(R1)+

iNO,

ATTENTION_

IF DR

SUMMARY

RTTREIISEQBS SET

CHECK

ERS

;CLEAR WAITING

COMMAND COMPLETION

iRESET T gm ON %vs
iCLEAR T
T COUNT
:GO REPORT

;EET MAIN nsgggv ADDRESS
;GET F
3'10
OF HEADER

RRDBRE)’
(R1)Y :IGET TRIRD%ss
WORDr%
OF ‘E‘x'geuenosa
HEROER
1,
HDR.
R
D
nxc§a(na) T.CS2 ;ST
gg
CHECK FOR DATA LATE
’

883012
301e

003102

ggL ,T.CS2

uog.cr

258

303124

003110
03
0001
037es2

000026
003010

003036

000056

‘vsscx

?Ec

m L TE

uou

0.WAIT
W.DRV
W, TIME

-c1.
ne OUT
cLsm WATC

RO, 1-1S5U

EEE[
gemgn
COUNT
RETURN

:ghnggf1 %ng% .

usnosn YET TO READ
gsxr READ HEADER

F
g
OMMAND COMPLETION
ouu FOR THIS DRIVE
ME ON THIS DRIVE

Lscgmncszgcxsrsn FOR SECTOR COUNT

T.MR3,FP.B11(RS) ;LOAD SECTOR COUNT

°saes°.~ o8 0ec 79

Ble

SRERD AL uEADERS TNTERRUPT SEQUENCE

MACY11l 30(1046)
10:46

JSR

JIMP

NNNN

835% 880i% £

et Pt Pt

s Pt

FRIIIIIT FRRAFJJJJIJIJIIIAA ~
REER=
RECRTM DONCNLEWN-—

0 Pt

% sé% i

000016

600005

fi%z’%
'

003062

036134

016237

003010

737
1441

003010

B
g31s
036152

164000

003012

g3eiel 014287

000014

003026

036170

032737

125700

003026

036176

001407

e B

052737

003062

g85is Qe

i 5
042765

036250

000137

036254

P32737
037152

036270
036276

000016
003025

TERMINATION

AR
ngflm
u
fi gtc‘é'fl FORMAT AND
B RSB Tymg&i

MOVB
JMP
BIS
JSR
IMP

)

TER

.DLT,E.CONT
3%
E‘cbui
1.RTRN

ST
GISTERS
;SET
DATA LATE WHILE UNLOADING HERDER
EW
E
{RESTORE REGISTERS

*DRIVE ATTENTION SCANNER

I.ATTN: MOV

BIT
aéo

RKCS1(R2),T.CS1

8CERR, T c;x
gy

gmwo STATUS

:cs:cx irmcQ?"TFOR
:NO
?’Ftnnonsuoc”CURRED

:CHECK IF ANY DATA mmsr rm ERROR EXISTS
sOLT! ucs'upsmsn
BIT
BNE
MOV
fixeama) T.ER §'%§AT
nzcxsrsn
;

cmf'cx FOR

DATA TRANSFER ERROR TYPE

K!OPI'WLE
! COE'HVRC!BSE'ECH, T.ER

BEQ

;NO DATA TRANSFER ERROR

18:

ggg

as uom
;.CONT

;

2s:

MOV

T.CS2,RY

:
000014

&'2*82: REGIST

&
BIC

IMP

003010

5%:

003024

6%:

1krfim

!§

wéfigm DATA TYPE ERROR

ISTERS

BIC
CLRB

FOR
REGISTER NUMBER
#CDRVMSK)
,
RY
‘?@::fir
o
W.TIME
;
DOG TIMER

MOV

PBLKT,RS

CLEAR

DRIVE POSITIONING
POSITIONED FOR DATA TRANSFER
PROGRAM
DEVICE
sm
ag
us
&
?E
! DRVPDT,P
$ODRVPOS

CLR

83e5es 000755

016237
105737

35%:
.SBTTL

032737

036242

hm«

IN
BIC

;

T TIMER VALUE

TER

BLOCK ADDRESS IN RS

IMP

1.ERRC

BIT

#DI,T.CS1

MOV

RKASOF (R2), T. nsor :STORE ATTENTION SUMMARY

9«:
E]
TSTB

3
.RTRN

T.ASOF+1

;GO REPORT ERROR

; CHECK xr ANY

vss E %
RESTORE REGISTE

vs mmmou

;CHECK IF ANY ATTENTIONS SET

cle

‘c:zasoei .:r?x“ mo%'-osc
7452

036302

001007

77:

036322

133737

"8‘1&‘ — °.Ea?‘v2‘mn‘.no"8 s%fi%
BNE

7B
foird: ERagE oo
gg 036316 000137 037152
003111

: % g%
1

s BeNs

INTMSK,T.ASOF+1 ;CHECK IF DESIRED INTERRUPT

BITB

000014

8s:

MOV

7 036370 000137
75’3%5 402
000014
74
%
747
003010

BN
1.ATRN

7§:

BB
036344 L
000137 e oo

118:

;YES GO PROCESS INTERRUPT

G
IMP

003025

[E
R ATTELY M AT Tonion sumesy
;GO RESTORE REGISTERS

B
JIMP

B
hmu

BIT

E:&m%
#nsnas;%firVE UNLOADING
118

BEQ

JIMP
BIC
CLR
V8

(080
oo
;GO
RESTORE REGISTERS
T

PARAMETER

BLOCK TABLE

I.UNLD
s:kvxceoaxv: IN POSITION AFTER ERROR
PPRST(RS); AR:RESET
DRIVE POSITIONING
nmu
ya'x'@ncz
MA
REGISTER 1

TM Lo,fB
e&*&'{
BHR B0,
S

SRNg!

AL g

aume g RRR e

:"sse"..was,'“%m

;wqg
fig

036466
é

000446
27

BR
?gg:m

I1.AERR’
38"i°%“§u.CS1

7
77353

§§§

R
Eig

125

#E.CLAT,E.CONT

;

'}fig

l;ckgkgom

:nts

BYY
ggg

i
"8&"#“280“2%)'5'“&"?}”05ETATUS CHANGE
NTERRUPT PROCESSI
oBfivosc P. msnns)s: mi%‘shws 085 NOT CLEAR

773 gag % 004000 000014
7»95

L8 4

:fi 8%& %T

839?23

003010

13§:

gom g0Rg%
000020

003062

83%2%

ggg g3e2ue BA3782 893830 933848 'S*:
74
Y
;sox §§§§s % 000040 000014
% e

% BaRegefanzm oot

- Ppnsnasi"%%é‘i’%gvfiég?m"gGE TIGE
:ono

AM
: YES,

u‘r'n

. g —

X, s'"%?g..
R
T_PROCESSING
GISTERS

JEB5L BATH g5

RV o comererion

PRI

003034

2§:

003124

gg%

.SBTTL

;ggg %fig

037072

83"58

7663

037136

737

040000

105037

003110

1403

m
P

i Efl

#2503
Aaflflfl

xCO“

géa

’ .PIP, T.MR2

.cébx F DRIVE IS UNLORDING

?gg

‘f:%
rm

kesroaz

i RECPoRe"gsagsrsns

B,Ié

ch E.CONT :
0

"QTION

"?“om:E2ISTERS

VHRD, P.PRST(RS)

e,(A

nguéxggn
4

NOT RESET

DRIVE ERROR

T NOS_B
e
OR CYCLE UP TINE

%ERROR CAUSING DRIVE TO UNLORD

003025

éga

7662 037130 0S2765 000040 000014

REURN
ERROR
O
O

},?,’3

I.UNLD: BIS

003034

;GATHER DRIVE STATUS

’

E{éa

_RTRN

7104
2737
0 003062
75?9
837112
86-47
7
333%80
;ggg 037116 000415
7220

g) ,ST&EWT&LE REGISTERS

l
TMSK, T.ASOF +1 :igcx

£
000014

G TIPSRs onve

ico1cr)
G558 SRR IR
Pen svamus
- '1, X

ge55583%%g
-4

—

774

7548

Ao
85

BIE

2%
o B

e s e

e B

DO
LW -

AN ANATN

003062

gs; B3784E

7861

SDRVPDT,P. PRST(RS) &RESET
POSITIWIM IN PROGRESS BECAUSE

003025

i755.:3 837030L

7553

#ATTENTION ERROR HANDLER

I.RERR: BIC

% 0

SEQ 0146

#ATTENTION ERROR HANDLER

.SBTTL

000014

PAGE 147

M'U"'

02-DEC-77 10:46

Dle

11:48

CZR6GB.P11

02-DEC-77

- ANANAN
;...
—AD

CZR6GBO RKeE DR CPT PROG MACY1l 30(1046)

MOV

JSR
BR
158:

BIT

208%:

CLRB

BEQ

BIS

,P-PRST(RS)

:CLEAR

RADING BECAUSE OF ERROR

{g;nsx(mn,T.ASOF
vé
+ végn IF ATTENTION CLERRED
-snaoa

TURN

ol—: CLAT,E.CONT

R.CONT
h
TRN

T'ATTENTION DID NOT RESET
35
E&a
srons REGISTERS

#S.DSC, T.MR2

cK sr ?axvs STAUS CHANGE RESET

oonvosc P. msrmsa ésr DRIVE STAUS CHANGE DID NOT CLEAR
TIME

RESET TIMING ON THIS DRIVE

CZRBGB.P11

g B3714E

O2-DEC~

—uMIT

—d 4 4 e o

10:46

8G9 G%GiE

ebtL0I —etAihinB5D Saities

El2

SEQ 0147

148
0" UNLORD

MACY11 30(1046)

CLR
J

PE, R. ABNL

444: 4. U4

CZR6QBO_RKE DR _CPT

—umIun

R
TIME COUNT
CLEA

PORT ERR

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

CZR6GB.P11

02-DEC-77 10:46

772

02-DEC-77

FlE

SEQ 0148

conmou.sn cu:m aoum:

.SBTTL

g;g

PAGE 1

#CONTROLLER CLEAR ROUTINE

$illllll!lllllllllll!lllI!lilllllllllllllIlllllllllllilllllllllll

ngg

80
7581

THIS ROUTINE WILL BE USED BY THE DRIVER TO

CLEAR THE CONTROLLER

T
‘¥

AND CHECK IF T
comnousn ERRORS ARE RESE
IF THE ERROR IS NOT
cu:m D m? ngu
AS SPECIFIED IN A.CONT WILL BE CALLED WITH

7884

Q¥

USE

7586

3 *

e
H

R
RS

ADDRESS OF RKO& REGISTERS
ADDRESS OF PARAMETER BLOCK

7590
7591

'%CALL
iy

JSR
RO, I.CCLR
(ADDRESS OFf ERROR RETURN>

;Egg

: H 122222222222 222232232222322233223223333223223232233 2222222322222 222332222

7585

87
7533

;ggg

0127
;23? 037170
037175 §:1‘gaa

emmmeea-

E.CONT.

-—

RETURN

#CCLR,RKCS1(R
EAR C
Rxcgune)
* gx g#
8'.‘.‘2%L5«0 STATUS necxsrsn 1

75on °33215
0l 003062
;&gg
3;522 ggégg;
0041737 8302“00
;sow 37553 8602%

g%?
'1135
RTS

%E CCLR, E.CONT EEPOS#
i YEg' CEnccoo:'?
"EEE“D?B“N%?S&‘EM
ERROR
756?'33“?
omn
le' %&
ERROR
RO '’
35

7607
7608

MOVB
TST

#-1 1.ISRL
(ROY+

037204

737

100000

03010

SET

MOV

;sgg

1000
00000

E.CCLR

00000

I.CCLR:

003010

7e.Eoe,CE 037232 012762 000100 000000 5%:
7609

037240
037246
037250

2737
5720

000200

177777

003104

MOV

BIT

MOV

RTS

creEnE( mi Ecomnou.en CLEAR DID

#1E,RKCS1(R2)

;SET INTERRUPT ENABLE

“5xmsnnupr emaLe 1SSUED
J
OR NORMAL RETURN

02-DEC-77

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

*COMMAND

.SBTTL

Gle

11:48_PAGE 1S0

#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

CREERMEERE RN

R R 0OCC

037416

001000

003012

100000
040200

003062

024000

003010

176400
131761

00000s

ADDDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK
RO I. OH

OF ERROR
<ADDRESS

RETURN>

ROUTINES USED:

Re2
RS

2SS

SRR

7414

003010

USE

1.CCLR
1.STOR

23
1122221222222 2222222222222223222333321222323322222222222222222

.1SSU: MOV

18:

037474
100000

RETURN

71 753
883010
00

RN R R RERRRRRRR R RRRRRRERARRRERRRER

Ogaggg
WILgfi $US§ ovs& #OB§H2EROUTXNE gPECIF ED BY THE

JSR

R L
H

003010

THIS ROUTINE
Ul ool THE O Aae SPECIFIED IN T.CS1
OLLER ERROR
A _CONTROLLER

SEG 0143

ISSUED BY DRIVER SERVICE ROUTINE

CLR
MOVB
MOV
MOVB
BICB
MOV
5319
JSR

SEZ

BIT
BEQ

BIS
JSR

BR
2%:

T.CS1,-(SP)

; STORE COMMAND ISSUED

C
:CLEAR TE
1.CS2
P.DRVN(R%) 1.C82°;
o&"
IVE NUMBER
NUMBER FOR COMMAND
IVE
T.CS2,RKCS2(R2) ;L
P.CSIH(RS),T.CS141 ;STORE BITS B8-15 OF CSl
ALL agzs EXCEPT
#$C<B.CDT18. crnr> T csx+1 ECLsgg
T.CS1,RKCS1(R2) xss¥£ onnauo
?gcsxlna)
FOR READY
PC,1.ST0

ggtna T.CS1

#MDS, T.CS2

os nos E.CONT
CONT

1ot

REGISTE E

CONTROLLER ERROR OCCUERED
x
cue ¥

:HNOtcx
xr HULTIPLE DRIVE SELECT
HECK FOR OTHER CONTROLLER ERRORS

set
REPOR

RETURN

TIPLE DRIVE SELECT
CONTROLLER ERROR

FLAG

ACHECK IF ANY CONTROLLER ERROR IS SET

gfis

?gro'SPAR, T.CS1

003012

ggg

;gFE!PGE!NEH!NED!UPE!HCE!DLT,T.CSE

003026

ggg

;}LC!DTYE!FHTE!ECH!BSE!HVRC!COE!DTE!OPI!DCK,T.ER

CMPB

#DR.CLR, (SP)

:CHECK IF CLEAR DRIVE

CZR6GBO RK6E DR CPT PROG MACY11 30(1046)

CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

11:48

Hle

PRGE 151

%*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

;223 °"‘333‘°' 005903
000014
;ggg §§;u§ 732 829?;8
3%:

BT
%E

::’ VHRD, P msnaé';o' DCT’ NaRD B 3““;’%82‘“’ ——
nB?x'f'égtn'
;g;%%%n&&n CLEAR

7e7%
037428 02758
7673 837422 838280

SRR

#1E RKCS1(R2)

;SET INTERRUPT ENABLE

RTS

;nsfugu

R
187
MOV

PC,R.CONT

; RETURN

7670

037440

012762

000100

000000

S§:

;275 037454

0S2737

767

001000

79E
04737
040200
7876
B3TdgE
@gas3r
ouoeo
7679
037470
011000
7680

037472

000200

003062

7%:

0s:

MOV

BIS

RTS

#E.CERR,E.CONT

cep’s
(RO),RO

'ROTUST ROFOR NORMAL RETURN

;SET ceg;:ggufis?cgzgon DURING

T
R
tRBTUST
STACK
;ADJUST RO FOR ERROR RETURN

SEQ 0150

I12

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

02-DEC-77
11:48 PAGE 152
¥STORE RKB11 UNIBUS REGISTERS

SEQ 0151

;ggé

.SBTTL

;gga

3‘llllllllllllllllll!illll!llllillllllllilllllll!llll!!llllllll!l

7685

;?fi;

7688

:%CALL

7689

7690

7691
7692
7 ?93

‘¥
(8
®

;?gg

7999

037474
37502

016237

gxsag;

7704

016237

162

7705
?

03
837'55'4

7708
7709

oa;g
037576

7711
7712

0376l2
037620

7710

JSR

PC,1.STOR

RETURN

USE
e

ADDRESS OF RKG11 REGISTERS

:3X I22222222222322222322222323223323223233332223222232332332222222222222222

000000

000010

003010

003012

00 037516
037510 016237
000002 003016
003014
7701
016237
7707

THIS SUBROUTINE IS CALLED BY THE RKOG DRIVER TO STORE ALL

RKb11 REGISTER IN TEMPORARY LOCATIONS.

;ggg

7698

#STORE RKG61l UNIBUS REGISTERS

037604

016237
0162

016237

016237
000207

MOV

RKCS1(R2), T CS1 ;STORE ALL CONTROLLER REGISTERS
RKCS2(R2)T.CS2 ;

MOV
MOV

aqu(Ra),t.ucn
RKBA(R2),T.BA

MOV

RKDS(R2).T.DS

MOV

EXCEPT DATA BUFFER

Rxomgs),r.on
RKER(R2)

T.;R

Y4
3022

MOV
MOV

RKASOF (R2), T. ASOF
RKDCYL(R2).T.DC

000036

30
003036

MOV
MOV

RKMR2(R2)
) T.MR2
RKMR3(R2) | T.MR3

000032

003042

MOV
RTS

RKECPT(R2)
. T.PAT
PC
; RETURN

162

162
016237

3026

I.STOR: MOV

003032

030

3040

MOV
MOV

RKMR1(R2),
1. MRI

RKECPS(R2}, 7.POS

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

Jl&

02-DEC-77
11:48
PAGE 153
%¥STORE CONTROLLER STATUS

SEQ 0182

;;%3

.SBTTL

;;is

;‘l!l!!ll!lllllllllllllllllilllilllll«llilll}lill!lli!llllilli!!}l

771

;;ig

7720

#STORE CONTROLLER STATUS

THIS SUBROUTINE IS CALLED BY THE RKOG& DRIVER AT PRIORITY 7.

THE FOLLOWING REGISTERS WILL BE STORED:

COMMAND AND STATUS REGISTER 2

772l
7722
7723
7724
7725
7726
;;S;

"
e
"
D¥
¥
T
H

7729

'%CALL

JSR

;;gg

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

;;gg
7736

1
R

CONTENTS

‘¥

RKO® BASE ADDRESS

;;g?

RETURN

7737

;;33

7738

;;:é
;;:3

WORD COUNT
REGISTER
BUS
SS
REGISTER
oesxns nncx nuo SECTOR
RE?
cnaon RE
TTENT sunnnnv/orrser REGISTER
CYLINDER ADDRESS REGISTER

PC,1.CSTS

ADDRESS OF PARAMETER BLOCK

: ;lll!!!lill!l!l!lll!lil!!l!!il!llll!lll!lllllllilllllllllllll!ll
037622

042765

177741

000016

I.CSTS:

BIC

#177741,P.CS1(RS)

gksna
RLL sxcgué
BITS
FUNCTION

#36,T.CS1
ch
.CS1(RS)
R tne CS2(RS)

us
csgsgnr!'ésxsrnrug
i
TUS nscxsrsn c

7745
037630
042737
000036
003010
BIC
7746
037636
053765
003010
000016
BIS
7747 037644 016265 000010 000020 1.CST1: MOV
7748 037928 1626
00022
MOV
7749 837?
1252
D000
MOV

RK R(RS),P.SQR(RS)

,sr

77681
7762

037674
037702

oxsesg
01626

RKDS(R2) ,P.DS(RS)
RKER(R2) .P.ER(RS)

;STORE
iSTORE

7765

037716

7750

;;gg
7766

7666

037710
037724

D00026

MOV

000032

MOV

016265

0012
0014

000016

000036
000034

016265

000020

000030

000207

MOV
MOV

MOV

RTS

caam.#.uca<n5)

RKDA(R2) ,P.DTS(RS)

:ST0

I REGISTER

IRED

gac GISTER

SECTOR

DRIVE srnrus REGISTER
ERROR REGISTER

RKASOF (R2) ,P.ASOF (RS)

,SnggngTENTION SUMMARY AND

RKDCYL(R2),P.DCYL(RS)

;STORE CYLINDER ADDRESS

*RETURN

cznsaao RK6 DR CPT PROG MACY!11l 30(1046)
CZREGB.P11
02-DEC-77 10:46

Kle

02-DEC-77 11:48 PAGE 154
¥GATHER DRIVE STATUS

SEQ 0183

;;gg

.SBTTL

;;??

,‘illllilllllll!llllllllllil!lllllillllllli!lilllllI!I!illl!lllll

7?62

7763

;;Fg
D

7766
7767

#GATHER DRIVE STATUS

THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS

BYTE
O

10,

AND 11.

IT IS ASSUMED THAT THE DRIVE

.!CRLL
e

JSR
RO, I.STAT
<ADDRESS OF ERROR RETURN>

HRS PRE&IOUQLY BEEN SEIZED. IT RUNS AT PRIORITY 7.

;;Eg

RETURN

;;;?

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

7772

;;;3

777S

;;

;;;s

7776

CONTENTS

RKO& BASE ADDRESS

ROUTIN

ADDRESS OF PARAMETER BLOCK

7779

;;gg

: 5 RN

2
#1,RKMR1(R2)

L°§8g"§ g;figflgg ERSGISTER 1

:LORD COMMAND
i § TnTgs BYTES 01

MR NN RN RN

;;Eg

037726

012762

000001

000026

I.STRT. MOV

7786
;;Es

037734
o ;;:E

112737
823?%%

000001
037252

003010

MOVB
JgR

#DR.SEL,T.CS1
RO,I.ISQU

7790

037756

13765

003036

000046

MOV

T.MR3,P.BO1(RS)

; STORE

#DR.SEL,T.CS1

T.MR2,P.A10(RS)
T.MR3,P.BlO(RS)
83, RKMR1 (R2)

: g
YTE 10 MESS A
STORE TAT
YTE 10 MESS B
: °?Sn"21g¥u§“fl$$gR§?ISTER

7789 837750 8137}5 003834 000044

MOV

;;gé

MOV

037764

7793 037772

;;gfls 83 000

012762

2737

000002

000026

1 003010

o?’;g 3ggasauu

MOVB

T.MR2,P.RA01(RS)
%2, RKMR1 (R2)

ggn

RO, Isfssu
RO,1.1S5U°

E TORE R$RTUS BYTE 01 MESS A
TQTES BYTE 01 MESS B

;Loggnnn42; Nflgg;EREEISTER 1

c§flflflg§

!cg%r T¥S YTES 10

7796
7797
;;gg

04
040014
040022

013765
013765
012762

883034
3036
000003

0000S0
000052
000026

MOV
MOV
MOV

7800

;885 g:oo

040030

112737

003010

MOVB

7803

7804

040044

ggg?z gggoesé
01376

0000S4

000056

MOV

7807
7agg

0064
oqgg;%

00s

383836

112737
geg?gz

1
037252

003010

MOVB
ggR

#DR.SEL,T.CS1
RO, I. 15U

'LORD COMMAND
EEEOETRT¥3RGYTES 00

7810

040100

013765

003034

000040

MOV

T.MR2,.P.A0O(RS)

ESTORE STATUS BYTE 00 MESS A

7813

040122

001407

BEQ

No RETURN NORMALLY

;ggg
7811
7812

830028

040106
040114

013765

013765
032737

003036
001000

000042
003036

ggn

MOV

CLR

MOV
BIT

$DR.SEL,T7.CS1

:LOARD

T HRE P.A11(RS)

STORE
gTRTUS

MR3,P.B11(RE)

RKHRllRa)

T.MR3,P.BOO(PE}
¥S. Pnk T.riR3

gs;03?55'7"LTss"3 'Evrss 11
)

TATUS

YTE 11 MESS A

BYTE 11 MESS B

‘L°98g"2¥gyfi§“§°‘g"§8’STE" 1

;STORE STATUS BYTE 00 MESS B
CHECK IF BAD PARITY DETECTED BY DRIVE

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

;aiq

moiew

273;

;gia

0140

000200

781§
7819

7820
7821

481

(040142

481
1

05276

05720
00200

ggemooo

001000

003062

000014

Ll2

02-DEC-77
11:48
PAGE 155
%¥GATHER DRIVE STATUS

3s:
5%:

9:2

;s.gpmfig.com

RTS

OPSSVRL,P.PRST(RS)

ngv
T§
RTS

(So);SS

(RO
RO

SEQ 0154

'xauoxcms
BAD PARITY DETECTED BY DRIVE

SngflROrosERROR RETURN

T PARAMETER BLOCK smnujg VALID

n JUST RO FOR NORMAL RET
*RETURN

CZR6GBO RKeE DR CPT PROG MACY1l 30(1046)

CZREGB.P11

02-DEC-77 10:46

;gss
7827

040164

%fi
Ssg lgggg7
7837

§ 8839 983la0

040220

000207

11:48

Mle

PRAGE 156

SEQ@ 01585

#*COMMON DRIVER RETURNS

.SBTTL

7852 Busied 6839;; 093344
7828

02-DEC-77

#COMMON DRIVER RETURNS

R.ABNL: CLRB

égfgfi{( .

zggé;sr%wxfi (INTERRUPT REPORTING

INTflSlé

&ES&?ILTKE ;I;L%EDR{VE N((.NTERRUPT REPORTING

RTS

R.CONT: gts

R
RTS

BeSR.conr

ithcn¥éLORTROLLER" BRaOR
" Re TOAN®

CZR6GBO RK& DR CPT PRO
CZREGB.P11
02-DEC-77

N12

MACY1l 30(1046)
10:46

O02-DEC-77
11:48 PAGE 157
%COMMAND INITATOR

SEQ 0156

;ggg

.SBTTL

#COMMAND INITATOR

;g:?

‘
3 !lllllllll!lllll!llll!lllllllllllllllllllllllllllll!ill!lllllli

784

rux

OUTINE W

NITIATE

ALL COMMANDS AS SPECIFIED

784
7844

e
1%

7846

R:Lsn

7848
7849
;gg?

¥
¥
;:

suasvsr M CLEAR
READ ALL
DRIVE STATUS
READ SPECIFIED HERDER

;ggg

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS

7854
7855

:%CALL
H

JSR
PC,C.INIT
<ADDRESS OF PARAMETER BLOCK>

7858

7845

; *

7847

$H2ugg éLb
3r 5AMETER BLOCK. THE FOLLOWING
ARE ALSO Exscurso

i *

2825

; gg

7861

CONR:

LOCATIONS,

CLERR

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOARD THE
PSLKT

AND INTMSK.

ROUTINES USED:

7862
7863
7864
;ggg

;
e
TE
;:

W.WTCH
1.CSTS
1.START
1.CCLR

;IgS?

: ;lllflllllil!llIlllllllllIlll!Illlll!llllilll!llillllllil!iillllii

7323 040222 010546

C.INIT: MOV

7875 oM
10146
7874 au%%%fi 810045

Hov
MOV

7870
7975

787
78
7878
7879

7880

7881

040224
Y ass

0104946
81
4e

gsas

1 739

q
0250
0254
040262

sg
7

1772776

137
01 ;as
2766
016504

003052
000016
000002
000

10537

00312

2704

040276

116437

7884

040312

013737

116437

003112

;§s§

040320

013702

003046

040304

000016

17777

7882

7883

177776

3112

003072

003110
003124

PS’ -(5P)

'270RE
Ri ON STAGK
;21322 n6 ON grncx

MOV
MOV
ADD
MOV

RKPRIPS
916(SP) RS
82, 16(SP)
P.ORVN(RS) R4

: LOCK ognnnx
INTERRUPTS
: STORE
AMETER BLOCK RDDRESS
;ADJUST RETURN
;STORE DRIVE NUMBER

MOV

RS, PBLKT

;Loago

MOVS

x onvcnq) .TIME ;SET WATCH-DOG TIHER FLAG

MOV
MOV
;

;gg?

;

7892

7833

MOV

;STORE RS ON STACK

;STORE R4 ON STACK
;grgns R3
ON
STACK

RI'-(2P)
RO, -(SP)

MOVB

7888

7889

RY,-(5P)
Rg,-(SP)

BIC
003111

RS, -(SP)

MOV
MOV

8$C<DRVMSK} ,R4

1.0RV(RY), xnrnsx

W.DRV"

Rxans R2

: STORE P;u ON STACK

:MASK
LOAD

OUT

TER BLOCK TABLE

INTERRUPT

;LOAD WATCH-DOG TIME

;LORD R2 WITH RKOE& ADDRESS BASE

RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT
DRIVE

IN USE

oIEEeEOR WRITE CHECK

DROP DRIVE FROM TEST SEQUENCE
INHIBIT BUS ADDRESS

INCREMENT

10:46

07517

02-DEC-77
#COMMAND IN

000014

000016

000062
18:

O41114

L£WN-O

s b Bt be e bs

fifizmafimoaaaaaaagfi

NNNNNNNNNNNNNNNNNNNNNY

§§3104

122765

000107

000001

3%:

SEQ 0157

BIC

#1C<DRVUSE
! W. WCK !NOCHK!DRPDRV!DTBARII> ,P.PRST(RS)

%x@%@wfi
R

éq?“t ..

;%f"??flh

;
wxrfi,r.cmtm)
gfspsc
nxh’(gs)

oa mz'BT TSS0ED

GISTER 1
comag
mL
CIAL COMMAND PROCESSOR

.UNLORD,P.CHND(RS) éggssksgi PO?ITIONING COMMAND

b 0 pe b

EK
UNLORD

258

101174

oL PRI
g
K _ACKNOWLEDGE

W=D

UMY

CLERR

122765
103540

000117

OSEEK,P.CHND(RS) CHECK
¥F
208

000001

TA TRANSFER
RfiNSFER COMMAND
TR

LoSSRLES)ms?**z’
“sognfm
CHND(RS)

886818

g EK P
ol2&88"52"’g;w
S
as
Go t
¢

000001

680668
H
-1

040536
040544

‘r__- -____

11aToR

Bl3

PAGE 1S8

3 BareeG 8383

i]
e
55 §

E4Re88
P 11" o8 0ec-

MACY11 30(1046)

001003

000111

000001

bS:

003076
000113

003124
000001

7%:

SOFFSET,P. cmo(RS)

.cnecx IF
ogrrssr

;iRTSPLP CHND(RS)

;CHECK IF START SPINDLE

S‘o,- T(RS), ott )

:’ (RS))RKR§0F 22s&%iog‘sgREGISTER
W.MIN,W

.no CHECK IF nsgL
LOAD WATCH DOG TIME FOR 1 MINUTE

:NO, CONTINUE

SRECAL, P.cmo(nsi :CHECK IF RECAL

CZR6GBO RKG DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

%COMMAND INITATOR

7950 o-oosug 013737 003074 fi'fl i

338222

040570

11:48

Cl3

PAGE 159

MOV

g.essseslu.?n; -

MOVB

MND(RS) ,P.C

g?ga

fic

nov

ngc
BIT

SEQ 0158

0625cbri,aéxfi

EEDER W

ME FOR 8 SE

Vé#2 S'xcgg* FORMAT

mflifi’#"
1(RS)
§?§$P
B “u
')‘,n(csu %&

RKESi(R3),T.CS1 ; T
’

v,T1.08!

:WAIT FOR READY

géogvuom
C.RTRN

’: &
gé

Em'

'?r'mus REGISTER 1

gt i 2?:“5"“&32m‘
VAR nmm
SRR
BITB INTMSK, T.AS0F+1 ; r mr ms occumso

158:
—

°§5
fm

8&89
v

MOV

268:

308:
3
B00S

.SBTTL
041114

122765

000141

000001

C.SPEC:

R '5‘2
@?‘ifi
TERER

P.cvuT«Egg , RKDCYL(

ss Rscxsrsn

» | 6n?x::R gggfiaéfigo
SHOULD BE ISSUED

iNO,

$WRDATA,P.CS1(RS)
%
co
P.CMND(RS) P, c ms> 8. WCK . P,

B8BEQ¥
.

PRerRsToRkit

.
,

afim
MOVB
MOVB P.CS
ulns' Ssrél
i 7>,P.C u ngsomgLL BITS EXCEPT
BICB
#4C<B.CFMT!B.
3
5%axgs

MOV
258:

113
W.TIME

BIS
y
Q
BIC
MOV
JMP

53?8#I; msnns'imsvrx
chxmxa‘f?mnoonzss INCREMENT
& §z

&Pkg h
) g:f NHIB aus ADDRESS INCREMENT
HGCHK P,#nsrmsm c‘isx IN NO C
30
P CL'E‘SR &xm T ENABLE
81E,P.CS1(RS)
Ltnn
P.CS1¢( ).nxcsu
c
C.RTRN
; s'rons REGISTERS

#*SPECIAL COMMAND PROCESSING
CMPB

#RDSTAT,P.CMND(RS)

;CHECK IF READ DRIVE STATUS

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

02-DEC-77

201 Rl
166 oot
Bid

Wil
B
1
121

1
fio Exgg %

5 0]TMl

8023
8024

B02E

!
xgzg

i
1?

BN 000042
oo

100000 000016

go:n 0031
765 000400 000014

BIT

003110

gxg
Efié
1
Y

i
g &1%
8317
041372

0S2737

9'.6559 041404

137

8049
eosg

041400
m{:m

oog?og
ao?u
100000

737

040200

xae735

000140

000014
003062

8s:’
9%:

042074

000001

§§§g 831%3 10537 003064
+: gfi% fig?&
J %figg

B Gl Mot 9 BSRRNC

108:

us érichTs, §1%@av&n 81*3 Sicifi% FORMAT
Pcéu )gégnsiST

P,CS1( R
g e am STATUS REG. 1
B

Rt
o oSO SRINER BN
RKMR3(R2) ,P. aooms: - ORE STATUS
ogsmrcsuns) 'uo

§ hn

Sir
g'fi

6S:

mesilh IRLS

3%
ISR RO,I.CCLR

010400 000020
92; 000001 000036

037170

:REQE?'M
CH
:CLEAR uar

105037

SEQ 0159

CLRB
n DRV
TIME
CLR

@%g
0C1000 000020
104

83}?@ m 037726

BO48

by
B

FHR B0 pam oo,

miaas

BIC
W

MOV
gg

041324 000137 042074

D13

PAGE 160

¥SPECIAL COMMAND PROCESSING

0% Biiis e

fi ggxiuo
ié Etfs’a

11:48

ggocmpmsnnsi cr:gx!

o
&
SSAGE
B

nnxm ON THIS DRIVE

MDS, P. CS2(RS) E%e«
g" %
?g"scr
; YE mn
CONT
RROR

SNED'UFE,P. csams
%om P.DS(RS) re

NON-EXISTENT DRIVE OR UNIT FIELD ERROR
IVE AVAILIABLE

J§
JMP

Hepperod
;m
R IR . wwn 2w
C. hmu
i1
RE
REGISTERS

gEgs

W.
55"5

géa

P'écglfigaar)n
C.RTRN

LA
1T GIS ss?’LETE
5??"0:&

BIS

ue nos E.CONT

;SET MULTIPLE DRIVE SELECT

IMP

gnga

ORELERS,P.CMND(RS) ;CHECK IF RELEASE COMMAND

gsgrm RO, 1.STAT

BIT

J%fi
NP

JSR

MOV
fiééa

.Rgaxvs STATUS

sropun

mocux P. Pnsrmsi
W
uot
bT

T nmc ON DRIVE

cx MODE

: INDICATE CONTROLLER ERROR

fig 0.WAIT
's‘?bng'finmsrgsg&.%x 583555 IN
gmé (Ri‘?&(flgéathgc» ;&8 Eon ossem.scr

B8 IRBT
e SIS E R romar

CZREGB.P11

10:46

CZR6GBO RK& DR cm

MACY11 30(1046)

14
iq

_.g
7

i
1

807

:
8;3

1
1?95

11519

807 1 s1
5'3772
1;9
8076 i041

fi
%
808E
B08S

1576

10 003100
003102
102
%oeo

12765

100

glgg

g:x?

651

041736

0127

8112
gfia

041770
041774

004737
000437

040200

gflg

041776

013746

003070

8117

042002

016265

000000

gi% o417

118: MOV
JMP

148

17
000016
000016
000014

1
1'(53
1642
1644
1682
809
16
R
8093
15;3
%%
i;ro
8096
%97
11 735
80
041710

BIT
S?S

000007

127
1
016

000000

000
:
Rl

149
737

SEQ O

#SELDRV,P.CS1(RS) ;STORE

HK,P.PRST(RS)
fie P.CS1(RS)

'2
g%
X "TE

P.C81(RS),RKCS1(
c. 5%! . hfi:st gnws
STERS

gflcm
MOV

SRDALHD, P. cmDmS) .co: x %&LE
IF
cum
3?’0 WAIT
:
OMMAND COMMPLETION

BITB

88, CFMT,P.LSIH(RS)' ;

MOV
MOV
MOV

#22. ,HOR. C
L
P.CYLN(RS),
mocv{.(gg
o&
E‘CTOR
me'so%oncss

MOV P.BALO(RS) ,HOR. ab
sé‘:’%.22088” COMMAND
BR553 H%“‘ HOR.CT ::ES“?

HovB
BIC
MOVB
BIT
BNE
MOV
JMP
JSR

P.SECT(RS)’

(gs);L

P.CRIMG
’;“é"
r%&"fi ax*g 2‘
uc<crm'
T, st
céx % }u
cspr DRIVE TYPE

AD,P.CS1(RS) ;
mocux
# p%# 5?Yt
!
gu
c§1m5)nxcsu
s?

ONCLR P.cnro(RSJ s CHE

RO, I.CCLR

“?.: nogs IVER COMMAND
xr C
R CLEAR
g%z%#
RS

5i¥mfl
HK,P. Pnsrmsic
BEQ
02:
'?xé
Skfi
RKCS1(R2)
NTER&’'?'
L RETURN

000014

11:4

MOVB

000164 000001 13%:

1618
u.g 5-4116

3101 8317

2 M
14
oo %363

ELl3

¥SPECIAL
commg P:%Esé?m

oa-oec-77

408

000177

000001

32%:

CMPB

100

003062

348:

BIS

000010

368:

040200

8189 O41794 01
000016
g{gg mi;% 03%’ 65 100000 000016
gi{? 3:1752 %27'39 000001 003062

000Ol6

BEQ

JSR

35?5:

LR,P. cmoms) :CHECK

os
%u.;.CONT

;

IF suasvsrsn CLERR

§C5 a& sgs

vsn conmuo

;

MOV

c.h

MOV
gég
BIS

RKCS1R2 sukSJ
?&s
STATUS nscxsrsn 1
5;;&::Pcé(RS) 'No
mou.sn smon RESET
#BITO,E.CONT
: cou#sEuasvsrsn DID NOT CLEAR

JSR
BR

PC,R.CONT
C.RTRN

'REP T ERROR
:RESTORE REGISTERS

37§:

MOV

W.MILI,-(SP)

.Long 6?525;'53;?;35”"0 COUNT FOR ATTENTION

38%:

MOV

RKCS1(R2),P.CS1(RS);STORE CS1

oscua RKCSE( R2)

;RESTORE REGISTERS

TEM cLsm

CZR6GBO RKE DR CPT PROG MACY11 30(1046)

02-DEC-77

11:48

CZR6GB.P11

02-DEC-77 10:46

exxg

765

040000

000016

Sé’

000040

003062

a§1

gzsg10

giel
§i23

‘“il

737

$5
§i§§ 83B Lix
7 wm
0166 oy 408:
8135

8139
8140
Bil41
8l42

042106
042110
042112
042114

9‘33
81

3133

1
1

012637

oxssoo

177776

C.RTRN:

81 601
12602

.SBTTL

gizg

SEQ 0161

#D1,P.CS1(RS)

cuzcx }r
nrr:nrxons CLEARED

g"%
S

?33)

BIS

ur s

#E.SCLR,E.CONT

BRJSR

PC,R.CONT

Be
JSR

plldme,
PC,R.NORM

COUNT

nTgLsna DID NOT CLEAR
T

as
C.RTRN
;RESTORET REGISTER
035
K MODE
?HK,P. Pnsrtns$
§figgngssREGISTERS

MOV

(SP)+,PS

SRS
?fioxéE
uonnaL TERMINATION
STORE PSW

MOV

(SP)+.R0

;RESTORE RO

MOV
MOV
MOV
RTS

(SP)+.R3
(SP)+ R4
(5P)+.RS
PC

:RESTORE R3
:
27855
IRESTORE
RS
: RETURN

MOV
MOV

012603
315304
012605
000207

F13

#SPECIAL COMMAND Pnocsssxuc

1
737 040200
gigé
8:5833 833415
8155
033762 ooowoo 000014 %
3153 Ousoua
§§ 88?010

8136

PARGE
1

(SP)+ Rl
(SP)+.R2

iRESTORE RI
iRESTORE R2

OCTAL TO BINARY CONVERSION ROUTINE

’illllllllliillllllllllllllllilill!lillllll!lllllllllilllilll!lll

8147

ruxs ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED

8148

‘¥

u¥
H A NUEE 329 OR COMMA.

gigg

ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOC

8149

8152

:.cm.L

8153
8154

¥
tx

8155
it

tx
-A

gigg

8160

8161
Blb2
8163
8164
B16S
8166

8167
8168
8169
B170
8171
Bi72
81°3

MOV
JSR

WILL

IF THE CHARACTERS ARE LEGAL

GENERATE TWO BINARY WORDS PLACING THE LOW *s BITS

noonsss OF ASCII STRING>,-(SP)
OCTBIN

<ADDRESSo# ERROR RETURN)
B

:; P Y 2222 22222222222223223232222322332232223223223322232222222222 2223
042116

042120
042122
042124
042130
042132
042134

gqaxas
42140
042144
Q42146
042152
042154
042160

010046

010146
010246
016600
00S001

OCTBIN:

000010

005002
662045

1423
121627
001420
652715
3030
1227.6
002425

2%:

000054
000060
000067

MOV

RO -(SP)

MOV
MOV
MOV
CLR

Rl-(sp)
R2. -(SP)
1otsp> RO

BEQ
CMPB
BEG
CMPB

3%
(SP),»’,
33
¥'0, (SP)

CLR
MOVB

Ra
(RO)+,~(SP)

BGT
CMPB
BLT

4g
#'7,(SP)
4s

;SAVE RO

:SAVE Rl
:SAVE R2
:GET ADDRESS OF ASCII STRING
:CLEAR DATA WORDS
sPICK THIS cnnnncrsn

*IF ZERO GET OUT
CHECK IF COMMA
:IF COMMA GET OUT
‘MAKE SURE THIS cunnncrsn IS
:

AN OCTAL DIGIT

8’—%

; %2

ASL
ROL
ASL

R1
=
R1

;

RDD

(SP)4,R1

;STRIP THE RS %I JUNK
;ADD_THIS DIG

ROL
BIC

177770
3%:

42250

MOV
MOV

R1,10(SP)
R2 SHIOCT

MOV
MOV

(SP)+.R1
(SP)+ RO

—

53 BRI

(SP)+

;CLEAN PARTIAL FROM STACK
; SAVE RESUL

(SP)+,R2

RTS

;RESTORE R2
;RESTORE Rl
;RESTORE RO
;ADJUST RETURN
; RETURN

TST

(SP)+

;

ASPI4,(

;RESTORE Rl
;RESTORE RO
;PUT_ADDRESS OF ERROR ROUTINE ON STACK

MOV
MOV
MOV

MOV

SHIOCT:
.SBTTL

R2
81C7. (SP)

TST

ADD

4s$:

MOV

000002

SEQ Ole2

ASL

ROL

00010

0$-DEC-7?
11:48
PAGE 163
OCTAL TO BINARY CONVERSION ROUTINE

RTS

82, (SP)

(5P)+,R2
(SP)+,R1
(SP)+ RO

CLEAN
PARTIAL FROM STACK
;nsgrongpna

i?*
o

PROG MACY11l 30(1046)
10:46

N N 8§

grnfl“flGNDGNDCMMDGMDGKDGNDCNDINMDGMDCWND
U = 5= Bt Bt s B s e Bt Bt Dt o Bt s Pt s B Bt Bt Bt Bs Bt s Be e [
SR SRR 2SR 28 BBIRR2BR2B
I3 It z

CZR6@BO RKE DR
CZR6GB.P11

.WORD
O
RANDOM NUMBER GENERAT

BER BITS GO HERE

OR ROUY

000 060006 00 0000 00000 00 0030 0606 000 00600 0030 366

02 030 3636 0600 3030 000 3000 0

;%THIS ROUTINE IS A DOUBLE_PRECISION PSEUDO RANDOM NUMBER GENERATOR
*CALL:
®
¥

JSR
RETURN

18:

ASL

PC, SRAND

; ;CALL THE ROUTINE
; ;RETURN HERE THE RANDOM
; ;NUMBER WILL BE IN
; s SHINUM, SLONUM

L£rr
oo

000000

042352
042350
177771

—

(=]
,—

2EORRRRAAASE o-;o—u—o—r-—
BB
Ia eo8gNNo

8220

(=]
£

e Bt et Bt B

NNNN%

et Bt P

0D €D D €D €D D 0D 0D @
(0
rrn n

s P

DONCNEWN—-0O

; ¥WITH A RANGE OF O TO 2(+33)-1.

042352

ADD

042350
001057

ADD

047401
042352
042350

19
gLONUH,RO
1
SHINUM,R1

ADD

31057.&0

MOV

RO, SLOAUM

MOV

(SP)+,R2

ADC
ADD

MOV

ADD

::raovoéa$§

NUMBER

TO MAKE X 129

1
#47401,R1

R1SHINUM

;3 SAVE R
; ;POP STRCK

INTO R2

CZR6QBO RKE DR CPT PROG MACY1l

CZR6GB.P11

02-DEC-77 10:46

30(1046)

O02-DEC-77

11:48

PAGE

164

8547 Bisd4g BiskBA
8535 8353?2
OuoIe 190e3
§s§;
123456
8235

WY
(EB)::RY
HINUM: : WORD
19654
;LO
33
figwsg
- '1'*” TYPE ROUTINE

gsgg

8239

:me nourm: WILL INSERT A

83_3?

-.%r“

245
46
8247

ACK

LLA

042354

105737

3533 8:5323 -*-

001157

R cn-mncrsns ;‘mfimfio —

%CALL

TYPE

MESADR

$TYPE:

042364

"E c

% smmcrsns
AF ngn
A LINErsso

FILLC38:'3ng fl'-i %TER 73 ?

m usmc A TRAP INSTRUCTION
TYPE
, MESADR
lOR

8255

lll'l!llllIlll!llllll!il!lllllllllllllllll!llilllll!llll!lllll!l

;:mrsgz

8244

8551

1:pP 21ACK INT8 Rd
U

! EROUTINE TO TYPE ASCIZ MESSAGE. nsssnce MUST TERMINATE WITHA O BYTE.

gzg

8252

SEQ 0163

RANDOM NUMBER GENERATOR ROUTINE

000430

Egla

HALT
BR

S;PFLG

: sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

i31133 TI':_ERE A TERMINAL?

::md NEYSE IF NO TERMINAL

B
e 88888 oo013so
e
32539
8259 Q42402 omgu
60
oM
7 000100 001351
12g
8~oa~+e~+

BNE

B
cpe
BITB
BEQ
MOV

BT
%ssron
TEne SENV
ST oSk
P:'T cousou:
omvspom.,senvn
sss.sx*
on gt.sOR APT

£o5y

.ugao

g'x*e B

gg:rcsup,ssnvn "vss

gns

gs;

8267

aasg

826

0424

332“

244,

70
71

g:s::z

gg;a

042454

8272

042452

8275 8:

112046
1

04476M

000040 001351 628:
2s:

000002

60S:
38:

??4:1;3

000011

4§:

000002

122716 000200

8276

042466

001006

8280
8235

042476
845585

105037
00 072;

042632

8285

042516

013746

001154

8277
gg;g

2
8283
8284

72
q;q

425
042510
042514

61§:

726
~1m

D047
123726
001350

JSR

MOVB

5%:
" B§:

(R0)+,-(SP)

(SP)+

.é

TO ae TYPED ONTO STACK

'7 THE TERMINATOR

OR POP xr OFF THE STACK

MOV
ADD

(SP)+,R0
#2, (SP)

..nssrons
; ;ADJUST RETURN PC

SESB

ggr,csp)

;;anancu IF <HT>

BNE

5§

(SP)+

::POP_
<CR><LF> EQUIV
:TYPE A CR AND L

CLRB
R

$CHARCNT
2%

,,CLERR CHARACTER COUNT
:GET _NEXT CHARACTER

RTI

CMPB

TST
IESEF

042566
001156

PC.SATY3

JSR
CMPB
BNE

MOV

#CRLF, (SP)

PC, STYPEC
sFiLLC, (SP)+
2%

$NULL, -=(SP)

; ;BRANCH IF NOT <CRLF>

,,co TYPE THIS CHARACTER
‘IS IT TIME FOR rn.u:n CHARS. ?
.,xr NO GO GET
NEXT CHAR.

:iGET # OF FILLER CHARS. NEEDED

CZRBABO RKB DR CPT PROG MACY1l 30(1046)
CZREGB.P11
02-DEC-77 10:46
aaag

8287
eagg
82

8290
1

042522
sg

2540

105366
835779
7

105337
000770

aegg
S%gg p42542 112716

000001

2632

042566

gggo

5555 1057

oggr;;

835272
749

1003;;
1166

136356

8302
8303

000007

000002

8304

042602

1227

000015

8306

o2bl2

105037

042632

g:sgao
26

682755
1402

000012

042632

000000

830S

gzasxg

8307

042616

8310

042630

ggig

042634

agsg
3

8311

100
06

105227

DECB
BLT
JSR

DECB
BR

042632

9s:

;;AND THE NULL CHAR.

1(SP)
£3
PC, STYPEC

:'DOES A NULL NEED TO BE TYPED?
{iBR IF NO--GO POP THE NULL OFF OF STACK
:360 TYPE A NULL

:DO NOT COUNT AS A COUNT
: 1LOOP

JSR

PC $§TYPEC

,,TYPE A SPACE

: iGET_NEXT CHARACTER

BPL
MOVB

S$TYPEC
2(SP),asTPB

BITB
BNE
TST

$TYPEC: TSTB
136350

000002

CMPB
1S:

#CR, 21sSP)

STYPEX

INCB

$TYPEX:

ISTPS
;s

CMPB
BEQ
RTS

; ;REPLACE TAB WITH SPACE

7 SCHARCNT
qs
(SP)+

BNE

CLRB

000002

SEQ 0164

$CHARCNT
7%

$CHARCNT: .WORD

000207

PAGE 165

;HORIZONTAL TAB PROCESSOR
8s:
MOVB
8’ ,(SP)

000040

0047

32737
1372
726

7%:

2566

8296

8297
8298
8249

02-DEC-77
11:48
TYPE ROUTINE

113

iBRANCH IF NOT AT
:TAB STOP
,,POP spncz OFF STACK

{WAIT UNTIL PRINTER IS READY
;;LOAD CHAR TO BE TYPED INTO DATA REG.

5 1S cunnncren A CARRIAGE RETURN?
iBRANCH

IF NO

CHARCNT

,,YES--CLERR CHARACTER COUNT

SLF, 2(SP)
STYPEX

.,xs CHARACTER A LINE FEED?
,,annucu IF YES

,,cunancren COUNT STORAGE

(PC)+

;COUNT THE CHARACTER

8314

it
8317

H lllilllll!lllllllllllllii!llllllllll!llllllllllilll!!i*ll!!*ill

8319

8318

@gg?

8322

QBTTL

DOUBLE-PfiE ISION HULTIP%Y SUBROUTINE

USES ALL REGISTERS (RO-RS)

8323

;132

8324

83327

328

8329
83
8331
aaag
63
53
8335

1333;

333
338

8339

B340
8341

SUB

ENTER WITH

005001
0127496
006000
001
2
003
103003

2
2664

500
osguoo

042670
042672

001366
005726

2660

04266k

0501

005316

PC,M.DPIM

MULTIPLICAND IN RY-RS

PRODUCT RETURNED IN RO-R1-R2-R3

R 2 2222222222222223322322233232323233223223233233233222222222222222222

(042640
042642
042646
26
Sg
554
2656

__JSR__

uo DOUBLE PRECISION INTEGERS

MULTIPLIER IN’'R2-R3

042636

TO MULTIPL

f1'DPIM: CLR
000041

M.DPOl:

;CLEAR HI ORDER WORDS

CLR
MOV
ROR
ROR
ROR
ROR
BCC

R1
#41,-(SP)
RO
R1
R
R3
M.DPO2

:NO CARRY NO ADD

ADC
ADD

RO
RY, RO

;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL
!
“PRODUCT

M.DPO1
(SP)+

:REMOVE THE COUNTER

ADD
M.DPO2: DEC

BNE
TST

RS, RI1
asp

;MOVE 33

(DEC)

TO COUNTER

;SHIFT TO ADD

:DECREMENT COUNTER

J13

02-DEC-77
1: 48
PAGE 166
CZR6QBO RKE DR _CPT PROG chxél 3001046)
DOUBLE-PRECISION MULTIPLY SUBROUTINE
CZREGB.P11
02-DEC-77 1

8342
B343
8344
8345

042674

000207

RTS

8363

ENTER WITH

42976
e 85
e7
E?OS

012746
810946
10546
005466

iy Boeile

0427
8:5?

2742
Quezdd
e
Q427

5 ges
Qusy

061601

04e
fifigigg

£
B
fen
o
non o

QUOTIENT

TURNED IN RO-RI

RETURNED IN R2-R3

H 3lllllllllllll!lII'lllllllllllllllli!lilllllllllIlllllllllllil!II

; COUNTER FOR DIVISION CYCLES

000002

MOV

#40, - (SP)

NEG

a(sp)

SBC
ADD
ADC
ADD

JSP

:FORM NEGATIVE

0oooo2

NEG

2(SP)
aSP,R1
RO
2(SP),RO

f'D

ROL
ROL
ROL
ROL
TST

R3
R2
Rl
RO
JsP

000002
M.DP40:

MOV

BCS
CLR

BEQ
CLR

ADD
ADC
ADC
ADD

000002
000004

M.DP41:

000006

0coo10

M.DP44:

VERSION OF THE DIVISOR

;PERFORM THE INITIAL SUBTRACTION

: IF_CARRY THEN OVERFLOW HAS OCCURRED
:THIS IS A LONGER LASTING CARRY BIT

: TEST "cmnv INDICATOR"

‘IF _NO “CARRY" THEN noo ELSE SUBTRACT
:CLEAR UP FOR NEXT TIME

2(SP),R1

;ADD -(DIVISOR)
'SET "CARRY"

P
4(SP).RO

M.DPY2

R4,RO

JSP

asP

TST
BEQ
INC
DEC
BGT

JsSP
<
R3
B(SP)
M.DPY0

BCS
ADD
ADC
ADD
cLC
ROL

M. DPYY
RS,R1
RO
R4Y,RO

ADD

M.DP41
P

ADD

ROR

:LO 6RBER DIVISOR TO THE STACK

M.DPsh
-(SP)

RS,R1
RO

M.DP42: ADC

PHI

RS -(5P)

ADD
ADC

ADC

;16
5716
1401

005203
369
334
6003
103404
060501
005500
060400
000241
006103
062706

RY, -(SP)

QuErh OOESIC
5;76 0400

3006
10
14
16
043020
043022
8:3029
3026
043030
043032
043034

PC,M.DPID

MOV

0coo40

006100
Q0e7ie
1410
16
01

JSR

vxgsso IN ho-nx-na-na

Rznnxno$

837
378
37
8374
375

838
83
8
8390
8391
8392
8393
8394
8335
839
8397

USES ALL REGISTERS (RO-RS)

2;39

384
3385
geg

TINE TO PERFORM DOUBLE-PRECISION INTEGER DIVISION

8368

S3
838

DOUBLE- PgEgIgION DIVIDE SUBROUTINE

g7 0i7

8377

EREREFRREERERXERRRBRRRERRRRRRRRRRRRERERRRR
AR AR R SRR RRR AR AR

QBTTL

83435

8348
8349
8350
8351
835¢
8353
354
835S
8356
8357
8358
8359
8

SEQ 0165

#10,SP

s
;

i)
Pl
i«

:ADD +(DIVISOR)

:SET "CARRY"

;SET_"CARRY"

:TEST THE UPDATE xnoxcnron
:IF ZERO FORGET IT
:NO CARRY POSSIBLE HERE
:DECREMENT COUNTER
‘BR IF MORE TO DO

:ADJUST STACK BY 4 WORDS

K13

CZR6GBO RKE DR CPT PROG MACY11 30(1046)
02-DEC-77
11:48 PAGE 167
CZREQB.P11
02-DEC-77 10:46
DOUBLE-PRECISION DIVIDE SUBROUTINE
398

o242

399
83%4
830207
400
043044
062706
40l

g402
8403

043050

043052

000262

CLV

000006

RTS
M.DPS0: ADD
SEV

000207

RTS

B40e

PC
%6, SP
PC

gggg

.SBTTL

8409

FETHIS ROUTINE WILL COMVERT A 32-81T UNSIGNED BINARY NUMBER TO AN

g:i?

‘¥

8413

g:ig

043054
ougggg

104407
016601

000002

8420
842l

gaaogg
30

312704
12703

000014
177770

g423
8424
8425

gzazgg
gx
1

012101

8428

ougxxa

8455
8429
84
8431
g:gg

0OM

043076

04318

012705

012100

83 114
3153
0431
§§§ia~

010566
104410

g438
8439
8440
8441

043140
043142
043144
oqaxgg

006000
006001
006000
040302

8443
g444

043154
043156

000753
000016

8442

gzgg

PICALL THE ROUTINE

$DB20:

SAVREG
MOV

2(SP),R1

; ;SAVE ALL REGISTERS
::PICKUP
THE POINTER TO LOW WORD

MOV
MOV

#12.,RY
#1C7 R3

;D0 ELEVEN CHARACTERS
: 1
MASK

0431

MOV

1405

062702

RETURN

MOV
CLR
MOVB

000002

2%:
i/
000060

.SBTTL

: 'LOWER WORD

: 'HIGH WORD
: ' TERMINATOR
;;EET
TER IN DATA TABLE

PBR IF ngr T”?gERST DIGIT

BEQ
INC
MOV
s;gnsc

23
RS
RS,2(SP)
.

ROR
ROR
ROR
BIC

RO
R1
RO
R3,R2

BR
.BLKB

15
14,

ADD
$OCTVL:

(RI)+,RO

i BSUNT TRIS. CHARACTER

PIBR IF 5
gs
LAST DIGIT
i iALL gx I
-ADJUST POINTER FOR FIRST
::ASCIZ
CHAR. &
PUT IT ON THE STACK
;;gg§ag§:TsLL ascxsrsns

R3
RS
R1

'POSITION rflgennsx FOR THE LAST DIGIT
11 POSTTIOn
ThE BT oeTnL BIcTT | On
o
: sMASK OUT ALL JUNK

2’0, k2

i 'MAKE THIS CHAR. RSCII

1i1GO PUT IT IN THE DATA TABLE
: :RESERVE DATA TABLE

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

G THIS ROUTINE WILL CONVERT A 35-BIT BINARY NUMBER TO AN UNSIGNED

g:gg

3:858}??55‘“5°11’ NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

8451

: ¥CALL

8453

8452

‘¥

;

MOV

JSR

#PNTR,

- (SP)

PC, a#$0B2D

IS ON THE STACK

;:POINTER TO DATA TABLE

(R1)+.R1
R2
R2,-(RS)

Ra'Te

ASR
BB
ROR

::THE ADDRESS OF THE FIRST ASCIZ CHAR.

#$0CTVL+13.,RS

Dot
BGT

8434
133
Bi3e 043139 00C00s
8437 oqaxgz 006001

: sPOINTER TO LOW WORD OF BINARY NUMBER

PC, 3880820

18:

DBe30

#PNTR, - (SP)

JSR

043173

118595

MOV

x
¥

8416
B417
8418

8422

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

E:ggfficuco OCTAL ASCIZ NUMBER.

g4y12

8419

SEQ 0166

; sPOINTER TO LOW WORD OF BINARY NUMBER

L13

gfnsgo RK& DR _CPT PROG MACY1l 30(1046)
_02-DEC-77 _11:48 PAGE 168
REQB.P11
02-CEC-77
10:46
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
gw Y
455

§~ni§
4 e

22222
DRI

464

gi73
74
8475

8179

8478
837

g481
g482
483
Y

8486

Szgé

gmo
176

60%07
{sgoa

{..

12201

ooouos

RETURN

$DBZD:

SAVREG
:1103

g% §1§022 833382
1

681401

2s:

1502
02

Ou3e8 0o5doe
5
3262

052703

327
043274

00
001357

043304

359

026

3%:

MOV

SuB
SBC

4s:

68%;%

#10.,45
#$ TNPUR , RY

#STNPWRY2,
RS

(R4),R1

(RS),R2
33

;3SET UP TO DO 10 %XERSIONS

: 'ADDRESS OF TEN P
; ;CLEAR PARTIAL

; ;SUBTRACT TEN POMWER
;3BR_IF TEN POWER TO LARGE
33 ADD 1 TO PARTIAL

#'0,R

: :CHANGE PARTIAL TO ASCII

O
18

; ;BR

.WORD
BNE

145000

(RS)+’
(Re)s! (R5)+

Rg tRO)+
(PC)+
(RO)+

2765

ééggfi

:13:143200

041100

'RESTORE SUBTRACTED VALUE

: ;MOVE TO NEXT TEN POMER

;;snxs IT
; ;
DONE?

;;TERHINRTOR
IR ?TORE REGISTERS

;;

RETURN

::1.0E09

::1.0E07

17ioaaqo

::1.0E0S

1750

;;1.0E03

§3§ figg 83002338

gaqao

e B R

8438 &{gg 001750

; ;PICKUP THE BINARY NUMBER

BIS

MOVB
DEC

oR2(RY)+,R1

;5351 %Bfli&? 8§ nggsgvgm?-uc ON STACK

oADCDD

RESREG

$TNPWR:

(R2)+,R1

; ; SAVE Regxsn
;;PnT:xup HE DATA POINTER

CMP
e

000060

8493
gaaea 000017
a:eu 043324 10324?
Y

(R2)+,R2

INC

145000

MOV

SuB
BLT

Q00725
0
502

scgpé ORERO

R3 Stsb)

MOV
MOV
18:

;;THE FIRST
ADDRESS OF ASCIZ
;31S ON THE STACK

MOV

16 8{ 3295 000012 043272

:_,?o

PR P PR R PR PR R PR PP PR R PR PR

842
S“

SEQ 01867

::1.0E0B

::1.0E04

B p
o
8205 Q4332 099090
8506 833354 000014

5
;
$DECVL: .BLKB

8509

DI EREEEEREEEEERREEERRRERRRRREERER
R RN AR RN ERRRR R AR RRRER RS RRRS

gggg

_SBTTL

12.

. :RESERVE STORAGE FOR ASCIZ STRING

TYPE NUMERIcAL Asc1Z STRIANG SUPPRESS LERDING ZEROS

CZREABO RKeE DR CPT PROG MACY1l 30(1046)
CZR6GB. P11
02-DEC-77 10:46
o

; #THIS ROUTINE

;

JSR

MOV

PC, J8SSUPRS

SNUMADR,

-(SP)

PR
18:

SN
?grs

§08p 5 R0
(RD) '’

; ;FIRST ADDRESS OF ASCIZ STRING

Bt B

e B

SEQ 0168

IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

; *LEADING NUMBERS.
: %CALL

e B—

&
aeIRmeaRaRIRaD
O CHDED VO £ O

M13

02-DEC-77
11:48
PRAGE169
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

000060

010037
104401

2s:

043420

012616
000207

BEQ
égpa

2%
8’0, (RD)+

..aa IF YES
Egc}pxs nn RSCII "0" 7

MOV

RO, 38

,,snvs FOR TYPING

33 b

812688

i
THE _POINTER
:: ESH?EQTE

TISED
MOV

MOV

959)4 RO

(SP)+. (SP)

KUP SY o

182 TYPEOLNTER GOES HERE
"223*5R£
: 'RESTORE THE STACK

.SBTTL Exannv TBCOCTRL (RSCII) Aflfis¥

; unuluununnuulniunuuunuuulunu"lnnnn

lTHIS ROUTINE IS
USED TO CHANGE A 16-BIT BINARY NUMBER TO A B6-DIGIT

;#0CTAL (ASCII) NUMBER AND TYPE IT.
lgTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

nov

NUM, -(SP)

; sNUMBER TO BE TYPED

*
:

.EYT
.BYT

N
M

;;N=1 08 8 FOR NUMBER OF DIGITS TO TYPE
siM=1

; ;CALL FOR TYPEOUT

; 1=TYPE LEADING ZEROS

; 0=SUPPRESS LEADING ZEROS

!STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

I(S:HEOS OR S$TYPOC

;;

" MoV

TYPON

NUM, - (SP)

i i MBER TO

TYPED

::CALL FOR TYPEOUT

:g;ztoc---snrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER
¥
‘¥
000000

8322

043653

800008 B33

NUM, -(SP)

$TYPOS: MOV

MOV
MOV
ggo

a( P),=(SP)

$TYPOC:

noxa

:1,80:5L%+1

000002
000001

MOV
TYPOC

ER TO
TYPED
L FOR TYPEOUT

THE MODE
sgp)3 ILL
:::PICKUP
330 ERO
FILL suxrcu
OMODE +1
NUMBER
OF DIGITS TO TYPE
o;vtgfim
,.noJusr RETURN RDDRESS

STYPON: n§8

ag:iggg?

MOV

RS, -(SP)

MOV

RY.-(SP)

I
;gs zsno FILL SWITCH

::§ET THE ?*STIBNéouur

,,save nq
::SAVE RS

N13

c%asoao RK& DR CPT
MACY11l 30(1046)
02-DEC-77
11:48 PAGE 170
CZR6QB.P11
02-DEC-77 10:46
BINARY TO OCTAL (ASCII) AND TYPE
&

sg;g

i
}

|
|

‘

8581

gggg

8S94

esg

gsgg

%gz

8S
8597
i

' 7!

maoov

3&'?0!1005

;;SUGTRQCITTFIT FOR MAX. ALLOWED

S
8600

8601
8602

figgga

8603
8604
8605
8606

gggs
8609

8610
8611

0s
1

3%:

043654

1
104401

337

3347

043644

833628

000002

043651

000

000
000
000000

SOFILL,RY

ROL

CLR
ROL
BR

;3;GET RID OF JUNK
;; TEST FOR 9

RS,R3
R3
78

BNE

4yg

BIS

#'0,R3

7%:

MOVB
TYPE

o8
RY4
#’

.R3

; sBR_IF NO

HiBR TEyEs
Tie 07ANYMORE 0’S
EE%N'T
sugmsss
; s MAK

; s MRK

THI? DIGIT ASCII

RSC¥

F NOT ALREADY

R3,8%
8%

i iSAVE
;GO

FOR TYPING
YPEYTHIS DIGIT

= 1

;sBR

DECB

$OCNT

BLT
INC

6%
R4

; ;BR_IF DO
;; INSURE LAST DIGIT ISN'T A BLANK

MOV
MOV

(SP)+,RS
(SP)+,RY

; ; RESTORE
; ;RESTORE RY

MOV
MOV

2(SP) ,4(SP)
(SP)+, (SP)

::SE

.BYTE

.BYTE
.BYTE
.WORD

O
O
O

BGT

MOV

$OCNT:
$OFILL:
$OMODE:

; ;FORM THIS DIGIT

#177770,R3

043652

8%:

NUMBER

;;?ET LSB OF THIS DIGIT
;; TYPE THIS DIGIT?

BIS

000004

THE INPUT

$OMODE

5$:

000002

;;PICKUP

;;CL;
THE OUTPUT WORD
; ;ROTRTE MSB INTO “C”
; ;GO DO _MSB

DECB

MOV
ROL

000040

6%:

R3
RS
38

1iGET THE zggo #L SWITCH

RS
RS

BB
INC

043650
8

12(SP),RS

ROL
ROL

4§:

1
012616

MOV

BIC

02
8;0‘0
81,?11

MOV

BPL

177770

RTI

.BYTE

(SP)+,R3

; ; COUNT
; ;GO

TO DO

TI-ESLRST DIGIT

;;RE;FT% R?

STACK FOR RETURNING

; ; RETURN

;;STORAGE FOR ASCII DIGIT

;; TERMINARTOR FOR TYPE ROUTINE

;;OCTAL
DIGIT COUNTER
;3 ZERO FIL
ITCH
; ; NUMBER
IGITS TO TYPE

.SBTTL

CONVERT BINARY TO DECIMAL'AND TYPE

ROUTINE

53 BRI

0000 00 00 00 0606 06 0000 06 0606 06 06 636066 360600 30 0000 000606 360 36 00036 0030 30000 30 0006 36 0036 36 036 330 30 2 0

;iTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
; #SIGNED DECI
(ASCII) NUMBER AND TYPE
IT. DEPENDING ON WHETHER THE

g6l2
8613
ggig

; #NUMBER IS POSITIVE OR_NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
; ¥ BEFORE THE
ST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;iEEEtRCED WITH SPACES.

8616

gg}g

B619
8620
B2l

2s:

lgg
1

3632

043652
043653
043654

18:

012605
012604

NEG

000012

;;GET THE NUMBER OF DIGITS TO TYPE

i
.

ggnooeu.m

4e
Y4

‘

MOVB

B85

043655

Yd
gg?
74

SEQ 0169

043656
O0436SE6
043660

010046
010146

1%
;%

$TYPDS:

MOV

NUM, -(SP)

; ;PUT_THE BINARY NUMBER ON THE STACK

MOV
MOV

RO,-(SP)
R1,-(SP)

; ;PUSH RO ON STACK
; ;PUSH R1 ON STACK

TYPDS

;;G0 TO THE ROUTINE

CZR6QB0O_RKb DR CPT
Pflgg
HRCYII 30(1046) CO?-ES =77
CZR6GB.P11
BI

A
Q43720

7
%fi

043721

044062

43740
v
:g : ;Zi
fi 4375
D4 3756

Thaam
0Q4377¢

g Q44002
.w.fi".

R5v
cx.mn

D440 1€
0

D4 0

Q4402E
e
1 ..
C -‘{

Q404G

BEES 04404

8666

8670

gggé

8673

NN
N

%;g

OQuu0S0
D4405E
”q”

177777 177776

'&'

4s:

INC

5§:

ste
ggs.s
BCC

(5P
(SP)
3

e
78:

b
BIS
MOVB

TST

?fi";

Q44064

001750

044072

000004

8s:

“1'3

,RS

e~
8’ 'R
“fi!l“s“

( )+

a.uo

xcn

BCD DIGIT BY 1

i3
53

TANT

Eig%%zwg
zzgo.
;i8R
_IF_NO

NG 0°S?

R
i
IT A
1G1T
;:Purm
1 r&“fifigmr
IN
sur}sn

o éB fi R§ . 8;

..g

MOV

cspu,sé

: 1 POP

2(SP),4(SP)

i ;ADJUST THE STACK

MOVE
GBS
MOV
MOV

SOTEL £

'?gTO A BLANK

”'ix T

,,gs”p: LSOtficHnsr NON-ZERO?

5 R2

;;H

?Rra ;?)4

MOV

109907 044072

000002 000004
Qlebeb
1

K,R3
;e,mé)o

HOv ~ SDTBL(RO),RL

000010

lwll

SEQ 0170

lwll,

11:

MOV

TTI

-1(SP),-2(R3)
.
(S5P)+.R3
(5P)+.R2
‘Sback

(SP)+, (SP)

;; ;—-se”? THE SIGN FOR TYPING
DR
i
T
¥mo
::POP STACK INTO R2
T%K

NTO R1

FiROW TYPE THEN

; ;RETURN TO USER

100.

ERRoR HANDLER ROUTINE

ittt

iTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

CM RK& DR _CPT PROG MACY11 30(1046)

CZR6GB.P11

02-DEC-77 10:46

1:42“ 172

W
E‘

é&fg’gnm
YP?M

e;og o442

3715

INHIBIT

000001

999

20s:

82777 134710

001000

76 3%:

100001

; ; ERROR=EMT AND N=ERROR ITEM NUMBER

T’

ERROR

001350

s oo
g B
66-07 7 %»w
218:

LOOF ON ERROR

ERROR TYPEOUTS

Bon:
TTC
LET THE nfi 60
To ZERQ

$5 Mren

Em ITEM CODE
SE
K1P
TYPE SAVEIF Tl'E
TYPEOUT
IP
1870 "o oK bieon rourine

CMPB

num NG IN APT

B
JSR

.BYTE

-BYTE

?gr

BPLT

'§

78:

8
8

SERROR

PG FERFRR Pro RRR

BY THIS ROUTINE ARE:

BELL ON E ERROR

2&09:1

;I ALL

714

——

-ISQVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

ISHIOSI

B;fa

Cl4

wrsnv SENV

35Fwmee
ia"??

RO B
MT"'E"Em%i
0 APT e

SS&:

#BIT09, ASKR

iSKIP gm

SWITCH SET?

g"/is
244
01 71:E 1110
— Ys: .%3
“gpsnn'(sm
S;fz
sgg %332
1316
rg
igscnpt

..g‘;K F

72l

;;ncr 11 AUTO-ACCEPT?

7%3

fig

ommg

§;

g:g;q

4274

g;gg
728

;0
g;ax

013716

001316

022737

017264

%mm

000002

000042

MOV

}

CMP

BNE

HALT

’

LSBTTL
3 R

RTI

SESCAPE, (SP)
#SENDRD, 98442

TTY INPUT ROUTINE

ruo& Reum ronn?eQOPING
ARDDRESS

:FUDGE RETURN RDDRESS FOR ESCAPE

: ;BRANCH IF NO

;3 YES

; ;sRETURN

22212222222 22222222:222222 2232222222332 322322222232222222222222]

"NABL

LSB

.DSABL

LSB

CZR6QBO RKE DR CPT PROG MACY1l1 30(1048)
02-DEC-77
11:48
TTY INPUT ROUTINE
CZReGB.P11
02-DEC-77 10:496

PAGE

J i EEREREERRERREER RN

D14

173

RE R R

SEQ 0172
AR

RRR RN

&flfin HERE

RSVMOV

AR AR AR AR

R RE R

R AR AR RNS

,fia{f ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
x

"
i ®

R FROM THE TTY

;;éflx?zi 'x'gLSN "’Hc'o 'gficx

;sWITH PARITY BIT STRIPPED OFF

8768

18:

134632

i G
7!

134600

"?VB
8H$

.e’¥?¢¥§55259) 3E;ggt x?}2 8SN4355-§?
!
F ANY
u(gP).oeé

&
81

8oggxr? (5P)

00
L TTRRE
;;nnxi 1T 7-BIT ASCII

BNE

f§

;;xrsno;E ISCARD IT

BLT
cng

y$
:;spx,ox7s

¥
::1S

#40,4(SP)

JIMAKE

c
000140

359

000175

12
1ee
05350S

535332 ?fi: PSTHE PC

aTKS

MOVB

(SP),~(SP)
4(sP},2(sP)

g{fl

o%%8

134574

764
8765

5 e

9997799727799

SROCHR:

33TKS

TKB, - (SP)

(SP)+, k2l

§(SP), 8140

SEATLU:
TRSCIZ /tUsc1Sr<1@>
CNTLG: .ASCIZ /1G/<15>¢12>
:

.ASCIZ

«<1S><12>/SWR = 7

SMNEW:

.ASCIZ

;;‘l‘fl TF

TER

::IS

IT A CONTROL-Q?

E§¥§ it

CRSE?

IF YES
“x
CIAL CHAR?

L: ICONTROL
mgeooer
;CONTROL "G"

CARSE

NEW = 7

8769
8770

044460
0OMYM¥B2

012737
000000
000776

044464

8*)*3\)
PoRYY NINN

8776
8777
877

ONMMS2

044536
044536

21—
8781 D44uz0
7
7
7

8787
3788
B789

4476

(044524
0'4‘?30
DM4532

N
~N

775

.SBTTL

—

8775
774

044452

1100
D44540
134350

000024

POWER DOWN AND UP ROUTINES

: POMER DOWN ROUTINE

$PWRON: MOV

HALT

#SPWRUP, PURVEC

;SET VECTOR FOR POWER UP

)

: POMER UP ROUTI
$PURUP:
CLR
'%PMCT

4s:

000024

B0005€

:HANG UP

;WAIT LOOP FOR TTY TO COME UP

INC

apuncr

MOV

#PR7, PWRVEC+2

;RE-ESTABLISH POWER AND TRAP PRIORITIES

#STALK, SP

;ne;énxrxntxzs THE STACK

aSLPADR

:CLEAR THE UNIBUS
:RESTART THE CURRENT TEST

MOV

BNE
MOV

MOV

TYPE

RESET
MP

cgpunou PWRVEC ;SET VECTOR FOR POWER DOWN
8PR7’ TRAPVEC+2

, PURMSG

:TYPE

“POWER FRILED"

CZR6QBO RKE DR _CPT

CZR6GB.P11

MACY1l 30(1046)

02-DEC-77

10:46

02-DEC-77

POMWER

3;30
g
236 009018
Qu7s20 Qu2se?
§
4546
fi:ig
guos0e
046111
]

11:48

PAGE 174

SEQ 0173

MEG: -ASCIZ

000

ens

733
;

880

llllll:lilg;;gmlgzgzl&:lggg;l;sfi::glll!lll!llllllilllll{!

“2;5 68?3; 001103
3272 83?3 0; 001000

m‘”B
BY “SCOPE
llllllllllllllllllllllll“llllllllllllllllllllll!lllllllllll!l’

134342

&L0PEL: BT ga

RFLG

; Ex FNst; ERROR HAS OCCURRED

&1:5

usmq, 3SWR

6S:

n?v
RTI

SLPERR, (SP)

gg{é

.SBTTL

SCOPE HANDLER ROUTINE

s lIIlllIllilllll!!llllllllllllllIllillllllll!!l!llllllllllllill!

%ig

1'2 %u: QCH’%P&ONS Pkov

853363 001110

8810

hnxs82'.8”*.'&

eeis

8819

-; u09 1

8830
aegé
3

8831

gg
gg

:%gm.u.' SCOPE
4606

044606
094614

032777
001052

O4Y4616

000416

83:259
Y

He4Y
5%
Y4
Sy

040000

134324

13746
12737 000004
044644 000004
005737 177060
2637

000004

esg7 000004
1335 001103

$SCOPE:

18§:
:

BIT
an;

MOV
MOV
TST

MOV

33:5
gov

8844

CLRB

(0447068

105037

105237

001103

001102

TROLS

s#a ESTS. IT WILL INCREMENT

ru%nnn.c; img Due o‘stn“goggc (DISPLAY<7:0>)

LOOP ou s

BY THIS noufipré
ARE :

; ;SCOPE=10T
#BIT1M, 3SR
VER

,,LOOP ON PRESENT TEST?
; IF SWi4=!

i:; RUNNING ON THE "XOR" TESTER CHANGE

iRlF TRr?nsouO TP
e CERRORVECTOR
os.s:E
gp y ::?zar
)+ aocnavec

1 n;
sg

ON XOR?
THE m?a VECTOR

B8R
s§§m6
XT TEST
AFTER A TIME OUT
,,CLE T r% STACK
(SP)+, (SP)+
CMP
5§:
Bmgv
?)4' 98ERRVEC ..nesrog“c T:E S*&Efi%{&?
ERSS888
FOR THE XOR''rt
OF CODE
6S:; S4NNSEND
28:
gga
ndsg
gs gnNsmon OCCURRED?

044702

§§ET ERROR LOOP ADDRESS ON STACK
*RETURN

#8888START OF csgt FOR THE XOR tESTER#ssss

§xXTSTR: BR

ae:tla maan
1-7+ou 001000 134250
§§:g &3972 068335 001110 001106 7%:
884S

gasselgr Nbgor ON ERROR DESIRED

4S:

$SVLAD: INCB

osnoq, 3SWR
3'55%"“,SLPADR

,.Looog onoERROR?
;;SET LOOP ADDRESS TO LAST SCOPE

SERFLG

:;ZERO_THE ERROR FLAG

§TSTNM

:;COUNT TEST NUMBERS

30(1046)

F14

02-DEC-77
11:48
PAGE 175
SCOPE MANDLER ROUTINE

001334

MOVB

STSTNM,STESTN

() 3:53

SEQ 0174

T TEST
::§§
Sc
'“%pN APTSMAILBOX

CLR
sesc
::CLE
ruz ESCAPE
001115
MOVB
*
*:
::
Y
augu
%cr(m
mos
ON NEE? 'Erssr
134172 SOVER: MOV
&s NM,DISPLAY ;;DISPLAY TES

.SBTTL

no
PROR,(SP)
iF
RETURN ADDRESS
%
:FIXES PS
APT COMMUNICATIONS nounft

2 llllllllIll!!llllllIlll'lllllllllll“illlll'l"llll.ll!lllllllll

ous2zz

$ATY1:

045220 smva MO
3338

o4s222

ggng:

MOVB

001350

001351

s 18:
28:

iafl
£535

8989

O4E1

8088
1
8869
140
8830
142
8891
51
8892
1
8893
184
g894
156
8835
5164
8896 045172
8897 335132
£898
52
8899
8900
8901

833685 3%:

(045206
045212
045214

7
459
7
001350
m;
7
001330
13
17926 88800-4
002
005237 831330
182037
5222
105037 045221
105037
012601
012600

045220

118:

001332
000004

128:

YPg ssacE

;,TO ONLY REPORT FATAL ERROR

MoV

RO, -(SP)

gp
CHPB

B
&mrem.senv

o gUNDER
A Assace
%s%;xm
APT?

MOV

geax ia

R1.-(5P)

ao ON STACK

1 ON smcx

omrsm,ssnvntfuou.g spoa. MESSAGES?

AR
gag
f’,‘g“
MOV
RO,(ROY+SMSGAD
1STB

==°='o
a u/ msv XMISSION?
::&n"%oaggmx BOX
PIFIND

nssn“
ggv

——
w
mvps

5&99
smnm xn MAIL
m
$
::Pgu.SP AKE c.

17?775 -(SP)

,,PUSH 77 76 ON
smcx

BNE

MOV

g-nsp) ~)os

JSR

PC,STYPE

1STB
BEQ
TST
BEQ
TST
BNE
MOV
ADD
INC
CLRB
CLRB

SFFLG
128
SENV
12%
§MSGTYPE
118
J4(SP),SFATAL
82,9(5P)
snécrvps
$FFLG
SLFLG

no:vn

Py
108:

0 REPORT FATAL

81,SFFLG

MOV

001330

#1,S$FFLG
a;&c
LG

CLRB
MOV
MOV

SMFLG
(SP)+,R1
(SP)+.RO

; ;PUT MSG ADDR &c J %gxnggg
:CALL TYPE MACRO

; ;SHOULD REPORT FATAL ERROR?
:IF NOT: BR
,.nummc UNDER APT?
:IF NOT: BR
:F INISHED Lnsr MESSAGE?
,.xr NOT: WAIT
;;GET ERROR
#
aum RETURN ADDR.
;s TELL abt T0 TAKE ERROR
,,CLERR rnm% FLAG
:CLEAR LOG FLAG

:CLERR MESSAGE FLAG
,,POP STACK INTO Rl
::POP STACK INTO RO

77 10:46
EEREGE%PTI® "8 0eC8902

04S216

000207

o—b-v-v-.-o—v-:e
R33223322333243
=L

MACY11l

O4seee

000
SeeY4
0oC
000001
000100
000040

OO NN LWh—-0

8303 Busss]

Gl4

Wkelhachtidfs RESFE

30(1046)

MFL
RT$T
iLFL&E SBYT

SFFLG:

.BYTE

-EVEN
APTSIZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040

SEQ 0178

RET
R go
62
; ;FATAL FLAG

~
8
0

.SB??L 23VE AND RESTORE RO-RS ROUTINES
Y

: kSAVE RO-RS
; :cnu.:
3

SAVREG

; ®UPON RETURN FROM SSAVREG THE

TSI

STACK WILL LOOK LIKE:

; #TOP-==(+16)

;% 42---(+18)

i% +4---RS

: ;PUSH RO

5222

VOV
O

TACK

Ezpugn Fil 83 grncx
FiDUCH R3 ON STACK
PiDU2H B3 ON STACK

; ;RESTORE PC OF CALL
; ;RESTORE PS OF CALL
: RESTORE PC OF MAIN FLOW
; tRESTORE PS OF MAIN FLOW
1 :POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
:'POP STACK INTO R2
11POP STACK INTO RI
:1POP STACK INTO RO

unuuunn

e
1) e

eeowm
W
e

S33
uvwvm

DD DDD

.
NN

X
[=]
<

NNM\)&:UNO—D

P 4
(=]
<
<

329

[yt

oo oo
oo oo

000022
000022

fruronon

$SAVREG:

££§
RF #fl'd'tfu
T £ oo

SEDOOOOC’QOO

;% +b---RY
; # +8---R3
; #+10---Re
i #+12---R1
; #+14---R0O

Pé gf nn{N FL8H

::SAVE PS OF CALL
::SAVE PC OF CALL

; *RESTORE RO-RS

.SBTTL

RTI
TRAP DECODER

Nt Nt
N

20202020200
O=nw L£unnnn

+++++ 44+

012601
012600
000002

Bus318 OisE0s

Nt Nt Nt Nt

04S31e
045314
045316

Nl Nt Nt N

12666
012605
012604

15&66

2
5302
04S304

04527,

015?66
012666

X
o
<

RESREG
NN NN TN NN

$RESREG:

vV
TVOVOVOVTVOVVTVTOO

; #CALL:

IIIIITY]

RKE DR CPT PROG MACY11 30(1046)

EIREaBopTIE DRSPIeln9s TBTue
8953

8964

gsg 8&&988

045320

010046

045334
045340

11000 ro

016000
000200

$TRAP:

045354

THAT

ROUTINE

MOV

RO, - (SP)

MOV
RTS

$TRPAD(RO) ,RO
RO

zgta
%éé?gnoo
ASL
RO '

39;5 0“53:3
Eg;e
833352 T
868885 000004 000002 o ReY

5?§5S-§?§5)

B979

.SBTTL

£zl

s ¥T

gggg

;

4
Q4534
83?3?5
843355
8988 045360 043454

TRAP
$ TRPAD:
9 §TYPOC
s??fiB ?,CRLE-TYPE
;;CALL=TYPOC

owgasa
045364
045366

043430
043470
043656

?
4276
{33
§§§372
835524
396
8374 (045262

397

(045376

044562

9033

g:gzgg

gggggg

ggggzg

O42524

9001
3835

04541
3 7

oi S

020040
4E16

000
osgggg

4524

244

1122

§3 338

ouq§58

§§§{ 4

:;?g?

8456

0124

515

047515

381?

83?395

quéég

000

8}5}53

gngg?

9012
9013

045502
045510

020124
00010S

0S1104

0S3111

]

98%

::csrkggcu¥n§vrs
OF TRAP
;1POSITION FOR INDEXING
,,xnoex T0 TABLE
:GO TO ROUTINE

iMOVE THE Pcuoogfifl
::B8§$OLE‘TEE
P20

TRAP TABLE

S4b4

§§1117
4522

ROUTINE

§TYPOS
§TYPON
§TYPDS

gggg

7”85 DRESS

T
TARTING ADDRES
L
PrRaB YRR
T ING AoORESSES OF THE ROUTINES CALLED

8933

3883

;;ggis

:;THIS IS USE TO HANDLE THE “GETPRI" MACRO

97,

aegg
g9
3335

SEQ 0178

W:é‘d;xa&o
"8‘¥INE“°?&E~ HE 1N e RBBRESS OBTATNED IV%?E

7 flflé

5335

H1Y

PAGE 177

Illlll!!llllll!lllllllllIll!lil!lllllllll!llll!lllll!llllilllll

368 333555 605300

8969
gfi;o

TRAP BECODE

11:ue

iruzs ROUTINEH{LL PICKUP THETLOHER BYTE OF THE “TRAP" 1¥sr onsss

gggg

-DEC-77

Tnnp+1txouqox)
TTY
TYPEOUT
ROUTINE
TRAP+
82
TYPE
OCTAL NUMB n <uxru L “Ré“% isnos>

;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+
3)
rnnp+thoqqou>
TRAP+5(104405)

ROCHR ; ; CALL=RDCHR
isgvnsc
!ICALL=SAVREG
SRESREG ; ;CALL=RESREG

TRAP+6(104406)

TYPE OCTAL NUMBER (NO
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TTY TYPE
unnncrsn ROUTINE
TRAP+
(13
489)
SAVE
Ru-fis
TRAP+10(104410) RESTORE RO-RS no xu:

SCOPE1

::CALL=SCOPER

TRAP+11(104411) INTERNAL LOOP ON ERROR ROUTINE

TSTMSG:

.ASCIZ

AS2SP2:
EMI:

.ASCIZ
"ASCIZ

/%%
/
/UNIBUS PARITY ERROR/

EM2:

.ASCIZ

/NON-EXISTANT MEMORY~/

EM3:

LASCIZ

/NON-EXISTANT DRIVE~

TEST 7

1.-3—_n_.m5“m.10.%d)eud1ailw%f%T)m1&l17LDoN3.O1=t&O%D.=lm.amw_Tle.o1~uq1Nl%7.1Ms11—qtllb)s—54(M|)Lf)o4ot—5-lOtlmollM-y)ett1eI&))FT-ONoetyUeWttMNy

eoE8REF"H-E58BwROSumZM8UmZS8mmiS5wmam1%&.%1.%m@iumTM=8A
o TFULON

8oMO&mMm&uoO8Q5D3tQ38tQU~QUOQQUOQ~Q WoQO—Q 2O0.O1-0 QO 803Q58T0 8QTOQMN~Q
w)4]n* &g wx>

EoO3—LADo08Tw[=eQW—NAo«>[mxeN1N[)-p+UtO30Di—3—n~01UTM3aFNlwiT=8v—Nv-wo4Qwo&a¢8l0N6a.Molsd\ti[l-+aZMWl8Us~1[woNLw=(aW-—43so>-=N)NWl&X'[O]*m—~3wN[(8W4--<WNWLQ=x&woYN7t14[]|ma5TeuF[\[40wo=4Wa_>&w&-NN1O'e}wp]u8—It—Um3-NM=1w8—WmwNoQNx-4-D)m4l\¢'[+m%[—Tw=NxoWm194&-.7VmM+t12['S}4]+1w[ww(4eNxw-W44>aQo>1N=7n''[m]+wN(—1w('e=NmWxo&zQ--)=1]Sd-]|mDOmN-4[WT[4N'oao-Q4x&W247+OtM13''ob4]mDONmwEeNJwoxo4J-(QzNwDTOM5mw—W0EeUauNwa&oN\S-O4ma8WEnONTQ-=aN5~mm3w8VmM[8~m2—woe.xw@-oQ<L>4ax--4N7¥ro1lY'["v]l+ww3O—w8Nw(3w4—Nw.noxQ&oboU-='*])ws8Qm1[%OWL—N.%x|¥-|7>o]o1t=)m-wM53w~(N-W=ve.xwwq-4oW-NV5NlY\'[]
¢
C

$Recs-P11

RKE DR_CPT PROG

LmETELELEE m
o0 0

OE-DEC-% 10:46

MACYI1l 30(1048)

TRAP TRBLE

-DEC-7

7
349

8 PRAGE 17Ifllq
SEQ C177

298lm%m%fimORoNazoNYSNBEBELaNIA
fiww .% w w 2w mw@mwRw wfiW%mwwZa5Ws
xx=x[-o QQ xz-- |Q—Wv &- XQ d- Qax —-w- -Qx-W=o w] Qx=- Q-a4[+ xQ-N xQ4=' |wxQbN-= O£=-aQ-O xQ-vN
gx (o.[V7] 9zeb[,e 4s' i>

-(NT=|O-~[@oebwTz-w—o"-4>>h0]4N~.l[-})+TOtO—NO~—V1|(~L==(@=To=N-&4[~2o<t=N-T'][et)b|OTON~V(1T=v—Nw=(4oea[&->x-4")M8&~42'"m])}O=BT[M-o]ON-w=Wma--44>oo=x04=['}]NQamneLRxNe([a'u1N=TMow&oo4zz>-7=7T|tRM2n'0]1]1O—]'e~NTm[QNw=oQx4ax-NtM.}-L-MNO[(Tw5W=mWoxo44-NN&8RM'}7]pOToO[YT(=TMN4wxxxo4o40=]M''M}T]hOeN(RU=O-184[mm—NQw=Qo>4-7=D4''T1]O=—tT[-oNTov=—-mQ4xzoQ=¥~MY[o]+0—OO0tTmvN—BeoJwJBOo4--yNO'OU~NvQ-Wa=aN-NeeON—Ot=1)NuoNmm=WW—o=o4>-—)Ln[pbS+b
olalsoAalsaleoooo oooooolgoolaolaleelel eLl
3 Zzg 28 32 43z 584 § 823

b576
046604
O4ebl2

Y1l

870 gui0dy Desics Oa

044522
0S2117
046111

042526
Q40440
041101

30(1046)

047040
040526
O42514

TRAP TABLE

02-DEC-77
11:48

b x oW

CZR6GBO _RKE DR
CZR6GB.P11

PAGE 179

J14
SEQ 0178

R6QBO_RKE DR

osfscgggg 10:46

02-DEC-77

TRAP TABLE

11:48

Kl4

PAGE 180

TUQOT - -

5555525585558552SR RSRSR PRRSLR LR

l—NoOb"O&OD0"OVt|TxN‘TV1O1VTBUO1MSO1p~VNiSD1hTOu1s4UON81ONT1NT23RO1O03‘TR.SS=sO10iOReaO1MLgTT0A1OF101RD8"10tO0a1"~Nt0P"Mi1N0&maO0T"NOn21—T~1m80U2m0M18mT0mT01m8POm2awOn1RmTOrm6m1e8m0mmN12mTUOM8m1O0NMZ0z10RN3810y-310

S%RSOB.PII

MACY11l 30(1048)

EM42

.ASCIZ

/ATT'N WHEN NOT EXPECTED/

EM43

.ASCIZ

/ERROR GATHERING DRIVE STATUS/

EMS2:

.ASCIZ

/MULTIPLE DRIVE SELECT/

EMS3

.ASCIZ

/HEADER COMPARE ERROR/

4523

EMSE:

.ASCIZ

/SUBSYS TIMEOUT/

EMBO:

.ASCIZ

/ERROR IN RECAL FOR RECOVERY/

EMBI:

.ASCIZ

/PROGRAM ABORTING FATAL ERROR IN RETRY/

.ASCIZ

/CYLINDER MISCOMPARE~/

.ASCIZ

/CLEAR CONTROLLER DID NOT CLEAR ERROR/

=l T~ ety

AM1)V}.3“@59105%1mql-?wmam.w%maammwuwmmoNoSwuATS0

8&%

Saoown8-etne

SEQ@ 0179

117

052;

T0ONU—N~0=O0—Osumlm.l5o7784

Tet —tdlf)

—f

/NO ATT'N IN ATT'N SUMMARY REGISTER/

.ASCIZ

/UNSOLICITED ATTENTION/

.ASCIZ

~/UNEXPECTED DATA TYPE ERROR~

OwJ@£D0 = NwOwUNNUTTWoTO

35885858 -—Lo) 5&335838

L) ——~NCQO) U
47

.ARSCIZ

11:48

L14

PAGE 181

SEQ 0180

9 93939 %9 9

ST=—RnNoaRLnARRTUEN—OzCSI@RLNm—ONfSTiTwfOimm@UaMm~m%wFUmmNOmMUm~nxmnmm-l0%2&QTmm—fifmiNww3Of58oi~rg3n

SSot2LSOSTLseBylb85§987

oB28z0m8Z8mYmBwmmEwxmwOmumuwmmuw3QBmmEa8CSu2m%8TmIgLoN8munmaOummSuTmnIwEummwBymw3mmRwmSumwwzmgmnBmUTmSZAmNmdmgmRaS:zmRmaNzOmTdmADmBTamRsmEA&sBmm3RoTi8YmtEmw
o @N< & G & && && N¢

Eisggsepfffi Dfioggaesggg Tgszgl 30(1048) Tgs;o;gazz

/ATT'N DID NOT RESET WITH CLERR/

.ASCIZ

/SUBSYS CLEAR DID NOT CLEAR DRIVE RTT'N/

.ASCIZ

/DATA LATE WHEN UNLOADING HEARDER~

.ASCIZ

/CONTROLLER ERROR WHEN DRIVER SERVICING/

.ASCIZ

/DRIVE DETECTED PARITY ERROR/

.ASCIZ

/UNDEFINED ERROR~/

.ASCIZ

/MARKING THIS SECTOR BRD~/

/BAD DATA VERIF’'N WITH READ.

..§
I

15
bl
el
15

—

.ASCIZ

/RETRY SUCCESSFUL~/

.ASCIZ

/RETRY UNSUCCESSFUL~

ECC OF LAST RETRY

IS:~/

2117

02-DEC-77
TRAP TABLE

11:48

PRAGE

182

EMI01l:

.ASCIZ

~/CANNOT FIND A VALID HEADER IN TRACK JUST READ/

EMI02:

.ASCIZ

/bAD SECTOR ERROR ON SECTOR NOT LISTED BRD/

EM103:

.ASCIZ

~/TIMED-OUT ON READ HDR/

EMIO4:

.ASCIZ

~/TIMED-OUT ON SEEK/

EMI0S:

.ASCIZ

/DRIVE SIEZED BY OTHER PORT~/

EMIOB:

.ASCIZ

/DATA MISCMPR WHILE BRI SET/

EMI07:

.ASCIZ

~/NO NEM ERROR WHEN REF’'ING LOC 760000/

BRGNS

£§ ! &

SRRy

SEEES

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

EM110:

.ASCIZ

~/INTRPT WHEN CNTRLR NOT RDY/

835355

EM111:

.ASCIZ

/NO ARTT’'N ON SEEK~/

§6

EM112:

.ASCIZ

/DRIVE’'S CYLINDER INCORRECT/

026Se4
0S2047

EMI113:

.ASCIZ

/RBORT- CAN'T READ BSF/

L
+

)

8% 528279992 R

o
o

—

(= L
. TM I oTM|
OW—=0"NN
==

?w
w

[
B

2299992830N
v—Bo—r—o—

000124
O0S1117
047101

no~-oO

SO0S
101
Y40

833

i
(=4

0S0424
0S0430
050436

299998 22220928

BR
0000,0,0.0,0,0.0BRI
8

[

g 2 2R

SEQ 0181

C%G RK6& DR _CPT PROG
c
.P11
02-DEC-77

MACY1l 30(1046)
02-D$C—77
10:46
TRAP TABLE

555

106
1

S0S

033113

{

152

§354
3358

3040
2522

EM114:

.ASCIZ

/KT11 FRILURE/

0S0040

EMI11S:

.ASCIZ

/MEM PARITY ERR/

710S

DH100:

.ARSCIZ

~/CURRENT COMMAND :~/

75}1

DHICE:

.ASCIZ

/PREVIOUS COMMAND

030461

DH200:

.ASCIZ

/RKb11 REGISTERS :/

DHSO:

.ASCIZ

/REMAINING REGISTERS NOT VALID/

DHSOl:

.ASCIZ

/THE FOLLOWING REGISTER DATA MAY BE INCORRECT :~/

DHIO1:

.ASCIZ

/ERR PC

DRIVE

.ASCIZ

/HI BA

LO BA/

.ASCIZ

/PREV. UNIBUS MAP :/

020131

051511

117
111

2510

043040

3505
12

820108
55

1520

114

3
9334
333

0SC
050

933

1117
O41440

2523
020040
052116

DHIC2:

334

§§i

& 82011
92
ge7
gudeie 0E24f8
040515

020120

93
3345

1
051

0S1040
Q47e1d

043505
051040

DH1O04:

051
051

052502
020120

020123
000072

08l

0040
051104
031501

3338 05!
9340 051
3341 081

9348
9349

CMND

6503

933
33
93

3343

:~/

101

PAGE 183

020104

4SOL

931
1
1

11:48

0502

H103:
MO

”

.ASCIZ

/HI REGO LO REGO/

027122 0S2440 DH10B: .ASCIZ /CUR. UNIBUS MAP :/

CYLNDR

TRACK

SECTOR

WD CNT/

RK
CZReGB.P11

EoReaB

PI1.

MACY1l 30(1046)

oo m 10:46

_02-DEC-77

TW%&E

11:48

Bl1S

PRAGE 184

SEQ
O

/RKCS1

RKCS2

DH202

.ASCIZ

/RKDS

RKER/

DH203:

.ASCIZ

~/A0C

800

DHEOl:

.ASCIZ

/HEARDER SHOULD BE:/

DHE02:

.ASCIZ

~/HEADER OF SECTOR O THIS CYLINDER IS:~/

DHEO4:

.ASCIZ

/PACK ADDRESS OF ERROR(S)

DHBO41:

.ASCIZ

/CYLNDR

TRACK

DHBO42:

.ASCIZ

/CYLNDR

TRACK/

14
177

DHEOS:

.ASCIZ

/ECC DATA

RKDA

RKWCR

RKBA

RKASOF7

AO1

801

RO2

BO2

RAO3

RKDC

e b

W RRG

o0
ISR EFERYeS

.ASCIZ

s Pt Pe Pt B B B

DH201:

OO0

‘1-

Bt et Bt Pt Bt Pt Pt Bt B

s b

T
02-DE

DS 14904

0514

214
14
1
1454

1512

1514

SECTOR/

1S:/

DHEOS1: .ASCIZ

/POS

PAT

CORRECTRBLE?/

DHE0B:

/WORD1

WORD2

WORD3/

1249

51581
051564

.ASCIZ

B03/

DH701:

.ASCIZ

/WD #

GOOD

.ASCIZ

/GO0D

BRD/

.ASCIZ

/FAILING DATA WORD

.ASCIZ

/7SRO

.RSCIZ

/7KT11

.RSCIZ

/MEM REGS :/

.ASCIZ

/7PC

£8

.ASCIZ

7PC

.RSCIZ

/CYLINDERS

SEQ 0isv

/BAD HEADER IS :7/

.ASCIZ

/RKDS

DHSO02:

.ASCIZ

/ERROR TRYING TO GET FRILURE

DHSO03:

.ASCIZ

/SECOND TIMEOUT OCCURRED GETTING DRIVE STATUS~

HI PHY

LO PHY VRT AD

22538

BRD

[

—

-0

—

@G=3

R
]

—
—

=00
LW

—0r)

I222% 8
§8§:: g
s
b

335340

Cl5

PRGE 185

.ASCIZ

;
|

11:48

DHB07:

REREEE
WNO

222299
85

REGAESE
st aat

289p 2 2P e PR PR RRRRRE
BBYR&R 2ER8 BBV REONTB
om0 £ w0

5 Beisss OSUE B3181

CZRE6QGBO RKE C? CPT PROG MACY1l1 30(1046)
02-DEC-77
TRAP TABLE
CZReGB.P11
02-DEC-77 10:46

SR1

:~/

SRe

SR3/

LOERAD

HIERAD

MEMSYS/

CSR AD

CSR/

REGS

:~/

RKER

RKMR2

RKMR3/

INFO/

KIPARG/

CZREGBO RK6 DR CPT PROG MACY11 30(1046)

02-DEC-77 10:46

m
:

0201

3117

042502

051%

DHBOO:

|ot

033274 (Goob72

PAGE 186

SEQ 018S

.ASCIZ

/NUMBER OF RETRIES:~/

-ORD

SERRPC,DRIVE
,ERRCOM, SREGO, SREG1 , SREG2, SREG3

SRECZS4AEEE7%rec,
sreci0, sREG11, SREG1I2, SREGID

HORD

figiz:figfi,mm,mex.mcae.mcza.mcau.mces

HORD

gggcm.snsch.sascxa.snscxa.snecw.snzcxs.snscxs

GS, SREGH, SREG?

]

051005

9510
9511
ggis
9514
9515

052470
72
749

051110
007
051177
0s1214
010
000010
000

9517

007

ggg
4

052476

0S0716

.BYT
" HOR

—

goi 8 R

0,0

DFO2:

BYT

000

.BYT

000

BYT
- WO
-BYT
.WORD
BYTE
WORD
BYTE
WOR
.BYTE
.WORD
'BYTE
-WORD
.BYTE

.WORD

000

000
000
000
000

000

[anySey—.

8 BBBEE

-—

200 BTA3T: MORB

052446

9516

RAP TABLE

D15

11:48

052@
0s2101

i Sl
FUHE

22088
8\0

”fi*‘%fi%’%’fi%fi%fifi%fi&

CZR6GB.P11

OE-DEC
=77

DFO3:

]

601

DH102

00
DAH201
7,0
DAM202
Sfio
203
10,0
10
0,0
DA1O01
7,0

:ME“ &E n&nosnL}'fir HOR
:%kouowrgcnm
NUM OF COL-R.L OCTAL

ZR6@B0O_RK

MACY11 30(1046)

&
e02-DEC-77 10:46
CZR6GB.P11

Zi8

000

§S§
§S§
gg

000
000
000

ggg

000
000

95%A

Go4
95
g

g 5
95
9552
955

PAGE 187

e
2
.BYT
om
YT§ 5gflsc.o 1
>.s.nom:8

DFOY4:

DFOS:

000

.BYTE
Za' vc'7'2
.BYT

uong
-BYT
.WORD
"BYTE

Za”vcr"g
.
.a"vmrlg

ooa
c:03
10,0

0
Sh?oa
DA101

2,0
7
0,0

.BYTE 2,001

000

.av:r:g gfim

000

.%T

000

- WO

DFO7:

000

5254

000

gggg

000

3568
gg;e
0
9571
9572
9573

000
000
000

.MWOR

gfiuox
0
ghma
0
ghsou

'5‘9?2
.WORD

3"
305
DAHBOS1

.WORD
.BYTE
.WORD
BYTE
.WORD
'BYTE

S
0,0
DH1O0!
7,0
DAl1O2
2,0

"BYTE

'BYTE

DFI0:

0,0

- WORD
"BYTE
- WORD
-BYTE
- WORD

"BYT

000

3,0
DHB02
006

.BYTE §.0E
BYT

:"THE FOLLOWING REG DATAR MB INCORRECT"

.WORD

.BYT
W

SEQ Cl18e

102

'av: TsE 9"601
DA1O2

000

000
4

ELS

11:48

000

TWD%G.E

000

000
000

_02-DEC-77

3,0

;0PI, HVRC

S04FOPLETLSLEL*S:-EUBUECRUELEYSheceresSios.

gmmwzm%m@.mO4ETom(mw=]iYTEINRTASRLWmEmmN60nTmOw.NmT.e&mowNmTYmT9O%NTOY%e783
P8R=e]8 8@)TQ8am3u8mTNn8eNEoRn82gs3é8AsN8gOm83AwNm8IN8RSmN8éT8AoNs&%888f88iZ8winmof%n82mi8e8wo
SoSfgofofWo(UePoNRWofOoWfOlWfOoWfOlWe[ToFfPraEfraPlLoFElRoEfRiNooErgEordEroEfrefFoEgro
wo
DF13

’

DF 14

W
i
l
- ~Jxoc

a&]&o-do[v oTGS0gWOo>&Lg
emREm LoS4[+

CZR6GBO RKE DR CPT PROG MACY1l1 30(1048)
TRAP TRBL
CZR6GB.P11
02-DEC-77 10:46

02-DEC11:48
PAGE 188

F15
SEQ 0187

DF11

DFle2:

’

CZREQBO RKE DR CPT PROG MACY1l 30(1046)
_D2-DEC-77
CZR6GB.P 11
02-DEC-77 10:46
TRAP TABLE

acag 0s1

9534

964
964,
a5y
%3;
36
343
3648

0s2
0S0637
000
0s1214
3054
010
0000
966
050716

000

82 B8R 051177
S
36

%49

95?1’

5
9656
9657

9661
9662
gg:;g
D
3665

053064

051307

0S0S57

0s1

749

1
053102
3104

083

051177

002

§§fi§
“2633
112
050637
053114
053116
053120
122

000
051214

9673
%;g

053136
053140

gggwa
144

052063
000

9676

0S3146

000002

010
0000

3666 823158
0
O
R
9669 823133 05100S
9670 053134
002
9671
9672

051783
0

000
000
000

053164

.a“vmr's

- WORD

02
1

7“?02

00
01

DH202

2,0

'ger
8"302
.WORD
DASOI

000
DF17:

000
000
000

000

9684

03
0
DHSO1
0,0
DH203
10,0
1
bl
DH101

.BYTE
.WORD
'BYTE
.WORD

003

051514

.BYT
,
BYT
.WORD
BYTE
.WORD
.BYTE
.WO
‘W5
- WOR

000

053162

0,0

.avrs

000

9683

.BYTE

‘BYT
»
BYT
.WORD
"BYT

9682 323150

000002

7,0

000
000
000

°O°
000

3156

DF16:

000

%76
053188 o0sigue
327 053123
005

9681

.BYTE

R G0
.WORD DH202

000

PAGE 189

;-BYT
:

000
000
000
000

000

G1S

11:48

‘BYTE
om0
- WOR
'BYTE

DF21:

0,0
oo
DH102
2,0

.WORD
.BYTE

DA711
0,0

.WORD

. WOR!
BYT
DF20:

0,0
D203
10,0
§

DH702
2,0

"HORD
TBYT

g,o

'BYTE

0,0

'BYTE

.WORD
.WORD

D104

DAHBOSI

SEQ 0188

CZREGBO RKE DR CPT PROG MACY1l 30(1046)

CZR6GB.P11
9686

3690
969

%
3694

02-DEC-77 10:46

053166

172

000006

3174
3176
ggfi

0S0716
051007

802

051066

$F
%39
9698

BRI14 o8 003

3
9701
::;
9704
z

053224
3226
3230

9710

0S3236

000002

053240
ggggqa
44

9715

053246

gn;

9718

089

002
0s1214
010
5

il
2,0

000
000
000

007

000

DF23:

DF24:

.BYTE

1
2,0

.BYT
.WORD
.BYTE
.WOR

BYT

9,0

DF26:

.MWO

.WORD

DF27:

‘BYT
-WORD
"BYTE
BYT

.ggt;o

DH102

"BYTE

goo

000

BYT

002

000

BYT

9726

9727
97
37

0S3272

00000S

053274

9731

9732

000
050716
8 7

000
000

002

000

051005

053306

051766

8.5»

051746
004

000

3;37

osagég

oooggg

9740

053324

007

000

9733

053310

3;35

3314

9741

8? 322 050716
083326

051005

H101

97 g

2,0
DH203
10,0

. WOR!

051005

051706

0
DMBOO
1,0

DF25:

053256
?3

600

i
WORD
DH106

g;xq

S
BYTE

000

975? 3?3522 051925

000

goo

050716

.BYT
-

ooo

000

0000

.WORD

DH10:
7 ?ca

000001
002

8?3535

DF22:

PRGE

.BYT
.WORD
.BYT

0s22
001

g:;o

TRAP TABLE

11:48

000
000

9711
9713
g;h

000

02-DEC-77

- WOR

Sh?oa
0

- WOR
DF30:

.WORD

- WOR

DAH1O2

"WORD

DH70S

.BYTE
- WOR
-BYT
BYT

.BYTE

-WOR
TBYT

DF31:

H702

-5‘8'}0

0,0
9"601
2,0
0,0

DHZ04
4,0

5 s

- WOR

8#101

.WORD

DAH102

'BYTE

7,0

H1S

190

SEQ 0189

CZREGBO _RKE DR _CPT
CZR6QB.P11
02-DEC-

gn o

MAC Y11l
10: 46

30(1046)

02-D$C-7?
TRAP
TABLE

000

.BYT
. WO
.BYTE
. WORD
.BYTE

000

PAGE

115

191

SEQ 0130

e,0

ghgos

DH710
3’0

.BLKW

256.

NOTMSG:

.ASCII

1S <12>7

.ASCII

/ONLY ALL RKO6& OR ALL RKO7'S MUST BE UNDER TEST/<1S><l2>
<12

.ASCII

/ALL DRIVES TO BE TESTED MUST HAVE

.ASCII

/1.

DESIRED PORT SELECTED/¢<1S><12>

4sz22
1517
0523

.ASCII

/2.

WRITE LOCK DISABLED/<15><12>

1505

.RASCII

/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12>

020123

.ASCII

/PORTS DE-SELECTED. /<1S><12>

040S03

.ASCII

/THE CARTRIDGE MUST BE FORMATTED ON A KNOWN GOOD-<1S><12>

;READ/WRITE DATA BUFFER
2%% NOTE

#»x/ (1S

12> ¢«12>

Uy
SERnRe BoEZ

RWBUF:

BoRZaNN
RO

£EE

ggogoloiog

FEE i:&&&:&t

SRR

000

[

RARRRBARRRRAR
RRRRRAR
£ LELELELL
NNN
i
R e
£
2

1508

0S4
0S4740

o
n
£
~N
I
o

11:48

:/<1S><l2><1a>

2105

000001

e e e Pt et e D

FERE
Sy A NER LT
FATSTS

SRE2

°§0 e

s
b

RRE
0N

ounn
o0
ow<x(N1

;5—‘0—-—.—.—.—-—0—-

FOREe—2

SRR

824
4
4

DO
D
MMM
rurunnnn
onNLwWwne-—

DD DDDDD
DD HDHHD
S DO NN
E W—O

Sesis

9798
9799
3800
980
98

.
TM |

02-DEC-77
CPT PROG MACY1l 30(1046)
TRAP TABLE
02-DEC-77 10:46

CZR6GB0O_RKH
CZR6GB.P11

.END

11 :48

PAGE

J15

192

SEQ 0191

.RSCII

/WELL-AL IGNED DRIVE,

PRIOR TO TESTING./<1S>
<12

.ASCII

/THE COMPLETE RUN TIME IS 8-10 MIN. PER DRIVE. /<155 <12

.ASCIZ

/TO ABORT TESTING,

TYPE CONTROL-C

(tC). /<1Sx<12r <12

CZREGBO RK6 DR CPT PROG
CZREGB.P11
08-DEC-77
ABASE = 177440

K15

3
MACY1l 30(1046)
02-DEC-77
11:48
PAGE 194
10:46
CROSS REFERENCE TABLE -- USER SYMBOLS

14978

ABORT = 000200

32448

ngoué s

éfiqg

ACLO . =
. ACPUOP=
AGDWO =
28
l =
10=
1l=

ADDW1 ¢=
15=

ege7’

2628
1293
1893
1593
1593
1593
129
129

6685
1608

' AboH1ez
DO =

1293
1893

ADDWS =

1593

ADDW3 =
ADDWY =

1634

3600

4939

635

660

6723

6748

6845

6855

6860

6865

1635
4o4B8

4535k

3630

3631

3674

3704

3705

3722

5058

5130

5797

6724

6868

687SH

6937

1893
1893

ADDE =
ADDW?
=
ADDWS =
ADOWS =
VeT=
ADEVM =
ADSCOR

1593
1833
1593
1893
129
19988
4116
1533
1293
1233

1599
1593
4186
1604
1805
598

36278
3678
36668
3833
349208
1533°

3711
3677
3814
4340
4999
[e2]

3894

1593

3838

0000

AMADRY= 000000

AMAMS1= %886“6

=
AMAMa3= 000000
AMAMSY =
AMSGAD=
0
AMSGLG=
AMSGTY= 000000
AMTYP1=
AMTYP3=
00

AMTvPas
ANYOER= = 100000
APRSE
539088

APRIOR= 000000
APTCSU= 000040
APTENV= 000001

1833

1593

1293
1833
1293
1283
1233
1833
1593
1833

£i7s

1631

1615

1623
1656
1699
1801
1802
1835
166
1629

1293
39508

16%
389,

6388

6925

1293
8265
8268

B910%
8704

8866

8908k

1633’

1998

L1S

11:48
PAGE 195
CZREGBO RKE DR _CPT PROG nnczéx 30(1046) o 02-DEC-77
ROSS REFERENCE TABLE -- USER SYMBOLS
CZR6GB.P11
02-DEC-77 1

2:;5128 000200

3723

3724

3726

3731

3742

s0e2

S134

S8l1

4943%

6899%

494g#
7826

S802#

S984*

6001#

6010*

B194%

6209+#

bbllx

4953

4965%

4966
*

49867

4973%

=
4974

2944

3794

Sg46

S693S

§73S

S9e22

UMY b b e b b b e e e b
LNrLrrrrrrrrr

286l

3247

6527

nn
unin
o
n

ASK T

e7el
2722

3e48
3249

6409

2;23

8699

10025

=
TN=
AUNIT =
AUSKR = 000000
AVECT1=
120210
AVECTe=
Av

3719

3599

A.ABNL

003056

45778
4869%

A.CONT
A.NORM

003060
003054

&880*

7830
434b#

49Si#

4a52*

6274

6282

6818

6930

2559

2707

2851

' BADDRV

6896%

011303

4398

' BADSEC= 001000

0885

BIT11 = 0O4000
BIT12 = 010000
BIT13 = 020000

BIT14
BITIS
BIT2
BIT3
BITY

=
=
=
=
=

040000
190000
000004
000010
000020

BITS

= DOOO4O0

BITe

= 000100

2ED
:%PNNNNNNNNNO—QS
DO=-NWILNCNOO
£

Bitio =

TETTTEESNS o

= 000020
= 000040
= 000100
=
02
= 000400
= 001000

%Q’uoho—o—o—b—o—o—o—

BITO4
BITOS
BITO6
BITD?
BITO8
‘a‘;?e

E'Tog = 000004
703
= 000010

BITOD = 000OO1
BITOl = 000002

NI
o
—
=N
NO
w
ONOO=NWENC
N[+1]

BGNRTY
033560
BITO
= 0ODOO

c\'..p.. ._—.p...—o\y— ...m.-.—.—.—.—.—.—.—.—.—.—.—c\

012036
00!

‘

' BADB32

SEQ@ 0193

5280

£856

8824

2855

2948

3241

2712

28se

3242

2713

2858

3243

M15

CZREQBO RKE DR CPT PROG MACY11l 30(1046)
02-DEC-77
11:48
PAGE 1 %
CROSS REFERENCE TABLE -- USER SYMBOLS
CZR6GB.P11
02-DEC-77 10:46

BIT?

000200

BITB

000400

BIT9

= 001000

2137

%&3
494

31
oos2le

14218
3&97

SEQ 0194

252s
3804
2526

2546
4955
2547

2567
S09S
2548

2568

2582

2596

2609

2624

2638

2718

3244

2569

2583

2597

2610

262s

2639

2716

2859

2527

2549

2584

2598

ebll

2626

2640

2717

2860

3246

S084

6809
6811
6031
60&4

7260
6825
6265
6230

7426
6923

7662

geza

S0s1

S063

s1a3

3582

S13S

3383

338%x

33645

3727
4389

8073

7575

#8308

SH0b#

714

S407

SYllx

8020

8108

4Yee

7643

s460

5973

7033

4928

7402

7952

8009

6988

7159

7
TBBBe

wers

S =88AERRIKEES

& 8-e8 00000

L0000
U=
N RN N YONOO
= eL0 4= bt b 1 )
NO—
oo

e S =y

9883
9

12133

7989

S086

72?2
740

7357
7952

741
800

6914
535S
8373

;361
GES8s

74
U5

6338

6942

gglfl
14
6408
6310

7658

B432

7964

S489

583

493

N1S

02-DEC-77
11:48
PAGE 197
CZR6GBO RKE DR CPT PROG MACY11l 30(1046)
CROSS REFERENCE TARBLE -- USER SYMBOLS
CZR6GB.P11
02-DEC-77 10:

!
DCKERR=
| DCKHDL

gngP =

BERCNTTM 003130
=

DES#
=
;3
BEL RR
lg
STRT
12176
01
Y
DF02
052436
3

7
29318

2555s
32418
47168

4ys

53534
251;0
360
1454
1658
1682

5772

1688

8036

8039

8046

80S0

b192%
6015
5275
6876

6827
6132

7260
6157

7426
6829

6923

6787

6836

6847

S0Ss7

S129

790

1844

6896

8067

8089

8‘13
Fl4

DF 1S
DF16

ggég
DF21
DFES
DF2
DF24
DF2s
DF26
8F§7
F30

DF31
DHIOO

025368

101
T862

1916

8257

05301
053056

3122

S3146

DS3156
3166
3216
.ggas
053232
053236

0S324
05327

0S331
0S0S

1910

1670
1706

1676
1712

1718
1724

2060
2072

2078
9514s

1874
96018

1880

1886

1892

2048

9699

S714%

5B9%*

S59l4#x

9707#

1668
1746
1824
1914
2010
9688
9488
9690
9490
9%

1674
1752
1842
1920
2016

1680
1758
1848
1926
20s8e

9501
9717
9503
9719

9516
9728
9518
9730

9520

9594

18
2066

1850

1952

elel

2084
2138

2144
1656
1734

1908

DHIO!

0S0716

DH102

051005

6413
SENB
gzga

DH103
DH104

51023
51046

ells
93448

DHIOS
DHiO&
DH200

0S0S34
0S1066
0S0557

1898

1928
1934

5030
126
2036
2054
1958
2108

b411
93478
9309

8104

8113

8126

1754
1982

1760
1988

1766
1994

1772
2000

3547

9538

4
BFis

8094

7662

nnooo

114
Slflfl

8029

EFLGC

78698

31
8?7

| £,

8:0222
2074

T o

C.INIT
C.RTRN

SEQ 0195

9696

9505

9633

dkS2

1904

95884

Bl6

%Pii° TS 0ec 73 10sue. 1M RBsS ReFErenté
ToaLE - USER SYMBOLS
13638

2 7'e
:

788

2e 8

S06"

907

9620

s
%
.
M

HE4S

1:
2e33s
D0

Susos

7§

94108

958S

uu:

'-0}535

Y231%

4254

7254

7384

%73

. *

H7%

4400

géégl

i': gl
G

ven B

DRVDSC= 000040

27128

Y4778

8851#
7420

7660

6357%

6491 #

e60S#*

6957»

6960#

4696

4877

4878

4922

495]

496S

4973

4996

S067#

S0e8+

oun

oum

E?gl 3822
b3l12#

6504

6894

4472

S108#

33508

BBS7

N347%

951

334

987

gSOO

7562

026

——
S

9712

‘

P43

;

o nydns

CZRE6QBO RK6 DR CPT PROG MACY1l1 30(1046)
02-DEC-77
11:
CROSS REFERENCE
02-DEC-77 10:46
CZR6GB.P11

"?Mm- USER SYMBOLS

IARrrATrrrsrxrQOimfia|fiemfifli8s&?t o

Clb

193

BRVHRD=
000020
ST
DRVL

0ossie

3625

7284

7435

7880

"'s. 1]

SEQ 0197

3739

3806

4O16

I D

4282

4335

Y4l

4632

400s

4016#

4329

4341

4380

Y401
#

4402

Y4 14a

So34

736

7807

8011

$8co

783

7993

eDt

3§

l lm

11%m1%

239

2047

2053

7426

7662

llmm

2113

9480s

TMM

88s

897

SOAN NAUAN
o o oo— —\ o

[WIV [WIW IFIW]

—

MmTn

()LU(U(U(U(AU=4——o 4444tSo=eodtoefoe-e eleeeleee5])eoeooeIeoeeeSeootototUototototUotLo078=4CUIUINUOAT

NSShTI,SBadB0,9590BaNREA,SOErernr
CZRE6ABO RKe DR CPT PROG MACYIL1 30(1046)
02-DEC-77
11:48
PAGE 200
CROSS REFERENCE TABLE -- USER SYMBOLS
CZR6GB.P11
02-DEC-77 1

D16

EXr x

047534
047570
;6

D¥Ot~y

el
11

SEQ C198

RK& DR
P11

ELB

77
_CPTY 5599 ?gfxal 30(1046) cgs;gtgir

ggg&éé"?ggtgcs-zagg. SYMBOLS
6195+«

‘m

c
c

6360*

6362

636S

SEQ 0199
6367%

6492#

6777%

6010

6017

6604s

8912+

4723

’flQfl

2&!

7832

7556

6502

S09

8832#

3565#%

5asls

15,

7408*

7540

7550

§739

S748

5926

932

743
741

747
746

s9
592

934
933

SpB2#*

S461

S599

8994

BSa4

7532#

Se0le

6103

7034

N
kX

—

¢
6153

4948

gacs"

B8110%=

4879

& W

8076+

5822

4326
70448

22658

lg;filfiill
&F
&

Qe
4928

6938
s5158

Ges3"

SSigs
ES1.i#

6784
6197

7027

S499#

S509+#

SS17%»

7426

7662
7049

SS19s
7260

6786

6923

978

5998

8997

F16

PAGE 202
11:48
02-DE C-77
CZR6GBO RKe DR CPT PROG MACY11 30(1046)
REFERENCE
TABLE
-- USER SYMBOLS
CROSS
10:46
CZR6GB.P11
02-DEC-77

D22642
0OS442
003111

7529
73
764

g
8RR

148

6769

6799

siie

8137

4079
s4esS

8434

$5%2

432S

48698

4793

;gggl

3084

;gg?l

788

78234

3825

7668

8028

8093

7364

77478

8017

7794

7801

7ige

7330
7461

7393

748

6358

S04l

B
423
1508
4778%

2
*

021170

7346

7371

7
7
7
73558
7clbs
7230
7393

75eS
76988
75508
47348

7444

7236%
74

7607%
7528

7
7410
7546

73
74
7583

8038

0S8#
6388

75678

S718%

S903*

861
324Ss
13“;.

SBe4s
6608
8308

6663
8314

6760

6766

6790

6796

6900

594 :

4164
3

4089

4112

4161

S039*

Sa3y

Sa240

4985

S465

S49E#*
S466

SS06*

SS14s

§975

3510%

3513#%

3517%

3593

3698

4017

4415

3831

4932

7eeq

7651

8026

Sk
1
4984

32370

9824
2583
9178
5793
S278
9364
2951s
25848

7833#

75108

5590

7670

Sl113

4359

3821

°Q

NICHR

6735

NCRSC

INITSS

25508

= 002000
= 000100

IDRE
IE

SEQ 0200

SSbl#

s0ss

7358

734

S0s9

s089

sia?

S13!

RKE& DR CPT

CM”H

02-DEC-77

MACY11l 30(1046)

10:

Gl6

CROSSREFERENCE
TRBLE -~ USER SYMBOLS

SEQ 020!

s
1268
#
8

Rwer
NLE=N0
N L0 L

D U=
e pe

nNWwwwwn

& NNW

U1
s pe

WNWWW

OROR0R0 RN
D
A%DO
E RO O
1 2=

8357

£ oD

S033s

NE Lrerape
£ NUUUW%

RER

333%%% Ny

ZZRAZZZZIIIXIIIIIIIIIIAAT

32z
32223

§X4 &
mDM
ots]
—-“Z
Z0 <2
o

00 Z2ZZ
NOD

S036*

188
18

S042

4234

4260

4277

4555

4590

4637

6642

6bS2

7239

7317

7660

8030

7254

7420

7660

3846

Y701%

4944=

4949

7956

7997

8024

8042

8063

8086

4109

4333

4851

458S

4636

4653

446

4468

4490

4496

4538

4558

4ebl

4539%

4580

4516

7939

338

8095

5302

8129

CZReABO RKE DR CPT PROG MACY11l 30(1046)

CZR6GB.P11

02-DEC-77 10:46

m22F

—

£33

OFSDIR

SFLtHY BB31%8

0le
7052
020774
0121

PRMPSP
1217
PROMPT
17
PRVCMD
1
PRO
=
PR1
=
0
PR2
=
0100
PR3
= 000140
0208
=
PRY
PRS
=
Y4
PRE
=
300
PR?
=
0340
Pg
=
177 72
PSCO
781
PSCOR]
7532

PSSCR1

007422

UTINWDOW WM

7772
240
DOSH4SO
00Sso4

W O U

POSCR
POSC
PREPK
PRMBUF

8088

POSCRO

007312
70

PLOFST

601S

6756

4S94#

6754
6923

7260

7426

7662

4384

Y634#*

4E4C#

HYe4b

4662
7294#%

4878%

4872
6610
3518%

S01S
6891 %
3779

bl62
6895
3781

6171
6985

4047%

7019
S091

S688
S656
72494

€764
S690
7270

S70S
7438

7463

7881#%

4280

4297

4556

4591

6700

7660

Eiges
4552

272?

€756

5758

S86S

£893

4586

3898

3946

4001

4046

4080

6328
S0i8

6577
6950

7023

920x
250"
454

3283
d3eq5

so1gk
a9i8

£408

4E4S

4581

7164%

167%

7274%

7278

SEQ 0202

4600

4609+

8303

7360%

7373

7388%

7932%

7992+

80S4#

6875

6891

6895+

6349

7001

7038

S943

S94S

b14S#

bl4b#

Bl47=

4152

4229

4326

47778

s823

7152%

7leb®

787S

7876%

8135+

6
4548
4281
%
4E47

B071#

S8io#

B3 R 8 B

PIRG
=
PIRQVE=

PMA

3694

8313
4523

7157
7819

WWWOTY
MY s+
&fifl&%-wuL8 QLGB0
OO0V NNINNE

=
=

003122

[N e el e e Sy
n NWWW
W nNLNN
o
n= O
N

Pg VAL=

Pgs

3693#

4509
438

3514%

PBLKT

PCSCRO
PCSCR1
:CSCRE

4501
4491

S639

PATOOD

F
=

Y482+
H479%

PATRN
AT

H1&

02-DEC-77
11:48
PRAGE 204
CROSS REFERENCE TABLE -- USER SYMBOLS

6148

CZR6QBO RKE DR CPT PROG

CZR6GB.P11

02-DEC-

PSSCR2 097H
PSW
=
1777

RAAAAATRARAAAA

=
238F'
.
=
RO& =
A10
All

=
=

MACY11l 30(1046)

10:46
1

8 g

#
@

14378
7388
7418
7438

€
g;fl?:

&6:

ngo

BAR =
BOO =
BOl =
Bl0 =
Bll =
CMND=

27358
27428
27448
7468
7488

P.CS1 = 00001&

4S1b%
S974#%
945

;? 4]

Y04 #
7986%
b

P.CS1H= 000007

26998

P.CS2 = 000020

;73 8

P.CYLN= 000002
=

P.DCYL= 000030

P.DRVN= 000000

agé H
411:
&;

27378

-DEC-77

4YS49»
7023%

3536%
7488%
497
7789%

6564
4963
656
57

779%#%
ggg

6563
b6
6570
B572
S74
33%

7519%
7474%
7790%
7
7395%
3841#%

489S

B877S%
7489
6S67

HB7S#
S44
948
#

7988%
3879'

; 0%
4175%
*

2 46

MQ34Yx®
;892l
9S4

7514%
7989%
B8065#%

38901
S

39 H
tu;gi

7749
7475
7804#*

3920%

4942x
940 *
979

4935

7516%
7999

3915#%
6079

b138%

S976#%

6078

bl137%

6547

6561
3514
35138
3517%

7518%

QGNEWSW= 000000

2453

4721

3927

;g;gg

6le9

6015

674

652

700

6750

6843

7317

7755%

7751%

8032

6631

7523#%

7752%

4187
6549
4165%

4099

6566

8129

4183#%

7402%

6650

6815

6671
7465
7955%

7401 %

7988

681

bb%
H1b6
4167%

7524#%

7363%

951

6560

6658
7442*
7931%

09S

7879

Jll®

7033%

613

9311)
sgqqi

bl
7 4S5 #

7977

4S513#

973%

7899

6085

7464

4S10#

8086

27348
3511
1456
1458

6644

4507%

7959
8020
;118

6685

3910%
6007

000022
plezle
012204
O0leee2

SY60*

Y471%

7958%
BOI;
8l17%

7521%

806

ggéx'

goe

4179%

7954%
8014#»
108

0S6

07€

287

7975

7952%
0
107%

7044

8042

P.WCR =
PISET
PISTRT
P2STRT

8018+%

7951%
BOll#*

7393

26968
6006#%

Eggg.

7810%

SO074#
7907
8091

B5¢

7021%

P.SECT= 000004

000012

7497

SOlb#*
72
906

3353:

*
ggggl
¥

9946

Y176%

gg;Ol
49BY#

:ggg:

P.WC

43%

9;5

49B83%*
7025%

3286!
HY7ZB®

5933:

3926#%

4981*
7022%
8093

3957%
HYZYER

;_g;g: 8888?3

2b978

4084Y#

3954:
H249®

7313%
7314%

P.TRCK= 00000S

7942
7496#

3951 %
Ho4b%®

684
6839

N717

3923%

g&g?

27508
27498

27398

7941#
7480

H4979%
986 #
9

P.EPAT= 000062
P.EPOS= 000060

= 000034

8019#%

4989%

6565

7811%

4988%

;ggg:

8784
7753%
7479s

7797%

P.DTS = 000026

27408

B783%
75c2%
£991

17% 4094% 4163% 4239% 498b* S4E7* SB42# S983% S995& BlY48s BSSE

H4B877%

= 000036

SEQ 0203

7803*

2b938

P.DS_

PAGE 20S

ngss REFERENCE TABLE -- USER SYMBOLS

41S8%
950
7918

116

11:

034#

9;35
251*

S4Heb®
7911
100

SYb4Y®
792

7642

S804#
7933

S845S#
7939

7983
8059#

wogg:
S4eS*

ggggl
SB18

s?géi
S375%

Y113#
50#

7012

7047

7048

7079

70858

6852
7469%
7956

£857
7482%
7981

6862
7S00#*
7987%

6867
7510%
7993

£388
7536
7997

7159%
7540#
8024

7S50%

4188
7020%

Co4Y
7400

S99%*

S24S#

S980#*
8080

§990

4985 *

55895
7978

§989#

4485

SHE3*
7936

S247#

S248

SHEE#

Se09

Yol

Ho4Y»

4987 %

SHEB*

S843#

5982%

6139%

blg4

4184

7748%

—-

—

7272%
8034#

CZRSGBO RKE DR CPT PROG

CZR6GB.PI11

02-DEC-

MACY1l1 30(1046)

10:46

.IN;E:

7248

RCDASW=
RCLR&SS

78
ce

3898

02-DEC-77

11:4?

CROSS REFERENCE

J1e

PAGE 206

SEQ 0204

TABLE -- USER SYMBOLS

4394
6738

6743

6780

S117

S344s

S483

RDSTAT:
RDY =

§3e§:
5 J993 4% £9m6 8005
24968 gg;" 5008 6885 9023
031

7962

801S

. RECODE

296;.
619
6723#%
Geléi

S013*
6635%
6722
6855*
6958#%

S527%
E640#
67
6860%
6990#*

%fl.

g2s

CHR =

RDCHRE

RDDATA=

24718

- RDGATE=

Z;;Jl

24688

!
REDBSF

829540

REIESU

; REbths

| REPLPK
REP

. RESLTS

17300
14

5141
leey

010717

RESREG= 104410

RE?VECS

RETNg%

0010

3736

033754

RKASOF= 000016

411

2929

4808

4258
36

003046

RKCS2 = 000010
= 000006

= 8888%3

RKDCYL= 000020
:

RKDS
=
12
RKECPS=
032
RKECPT= 00003

3703

3721

4813

2055

NS510
”

4983

SHEH

;

974

;sl
*
g; *
1
2900
9718
41

SO6#
937

590“

heqs

4716%
b28o*
b7 33%
f
*
6902 *

H;g ®
6358
6738%
b
*
£923

Y247

44628

Se87

794

4724%
6368#%
6743%
6832#*
£92S*

4939%
6607%
b748*
6845*
6930

4991
6608
6756%
6846%
6937%

5897

5992

654l

6613

4678

5193

s219

S2s4

S847
7002

;873
036

§910
7097

960
8432

6019

eble

6960#

7701

7749

7975%

14328

4566

4618

bll

6893

69578

4498

£979

7;00

704

ggst
H44yos

4726
697
74

SH49

8275

6345

Se2l

See8

E477

6592

7458

7708

7753

7942#%

7967

3749%

4871

6768

6798

6884

£939

6971

7183

7eee

079%

080

S113%

7405+

6769%

7414

6773

799%

597

6803

973

6176

€571

g§72<

§g3l

76%

S077

7959

7245
791

;297

8000*

8012*

8014

8044#=

8066#

8088%

8097 %

8107

g?gg:

4932

6974

7223

7383

7641%

7699

7747

7930#

799%6#

7379

7380

7381

gggi'

c44Ss

6976

e4Sls
24478

939
E3
885

4S9

7313

24SS#
24588
24564

8316

6193#
6683
6796
68872

030%

7023

sgg;:

| RKMR3
= 000036
RKPAT = 000032
RKPOS = 000030

6152

6786+#
6870%

6132
6678%
790
881

4959

gaa :

2454 s

6092
8996

915

666

3746

7698

45748

067
B48+4

§726
bbbl
6780#
6865%
7049

3600%

g?gg:

g: 2:

7370

£889

9b*

g???

PUNEY
24538

000034

4981

S774
6953

4525

RKER
= 000014
RKMR]1 =
0026

6733

4332

;02 *

| RKMR2

6728

4331%

| RKCS1 = 000000

RKDA

6E83

4330%

NYY 8
32618

s&g

8069

33618

RKBR
=
0004
RKBADR
007660

BRS

290

RECAL =

REDOFS

96?8

7400%

7702

S g

so84

6770

314

6980
7710
7711

6981
7391%
7708
7709

7706

7257
7470%
8018

8019

7750

7936%

35S

7978%

8080*

6771

6800

6801

6802

7248

7935#%
7703

6772

7423
7707

7704
7784%

7752
7791 %

7798%

7805#

7906%

7758

7977%
7751

8079#

7596#*

7606#

E4S»

CZR6GBO RKE DR _CPT PROG MACY1l1 30(1046)
02-DEC-77 10:46

CZREGB.P11

7935

RKPR
RKPRTY
RKVADR
RKVEC
RKWC
=

1
D"
ROTBL
RUBOF 08385

R CoNY

O40154
040200

' R.NORM

3580
3761

&
805

4120
H093#
Y

45t
735
6163

' SAVPRS
. SAVREG=

4535

S834
6380

02-DEC-77
3605%
;6011

:
(Hotetsre 88 HHhFSONm
NN
-

Bt Bt Bt B Be )

[yttt

000000

PAGE 207

SEG C20S

748

252

S204s

5388

737

4094

7329
78338

6170
4577
5858
6430

3772%

7152

3751
7976%

3754»

7876

gse2

SSe6

Sb43

Se’2

338
49

75833

7857

7602

7654

4630
5862
6S42

SSe1
ik
8458

5589
elbl
839Ss

S637
6169

Se82
ek

€387%

5388

5398+

5399+

ss22

5349

4163

4239

8298

4929%

3688
S734%
3667

5915
3798#%

4930*

S921#*
3799%

3852#

4471
8062

S471
3944

3999

4150

4227

SClis

6046

60S2

6426

6429

B4SH

S061

5126

5133

S803

8786

7022
4008

4405

3Sb1#

ERE

S09S

8537

§73S

B4&9

7658

3780

4019#%

4020

S011%

5012

S0S4

nL
= U ~N

L Lrer

88 ReR
38
o

O
—
Pt
t AR

wnwv
b )
X

09'0'0'0'
o
EFetetotetel

gm
N mmmmm
LW

SOF TBS

3756

700

3683%
5728
36bl®
5291
4176
4934
042

11:48

CROSS REFERENCE TABLE -- USER SYMBOL.S

4013
4023
4875

HY409%
S0l6

3734#%

3736

6lbls

6207

3546#*

3548

8100

s7e2

L16

CZREGBO RKE DR_CPT PROG
11:48
PAGE 208
C%RBgS.Pll
Dg-DEC-g? MACY11
10:46 30(1046) CROSS-DEC-77
REFERENCE
?RBLE
-- USER SYMBOLS
m

gfigo
.

| SWOY

| SWOS

5‘0

SW10
1
1
|
1
SWIY
SWisS
'

- SWe
| SW3
i
W

1397

= 000040

1385s

1395

13818
13998

1391

1388%

= 000020

13868

e
13828

=
1000
= 000002
= 002000
=
=
=
=
=1

1380%
13798
1378%
13778
13768
1375s

= 000004
H
10

4844

8692

8699

7497

7580

4846

4849#

1400
1398

1396

i
1392
6382

&
i

=
=

1
1

1393s

13928
1391#
3289
c608#
ebe3s
2645
2beSs

3627%

3628

Seits
Soads
25944

g.
0T=
.DRY =
S.
g =
S.FLT
=
S.FORM=
S.FWD =
S.HDFL=
S.HDHM=
g.{CYLz
.ILF =
S.L%:
S.L
= 010000
S.MHD =
0400
.NMOvV=
0100
.gFF =
20
.PAR =
00100

cblbs
SS6#
6038
2609
25984
cb278
26384
cbees
6078
6108
cb44s
2b29s
2639
2b43s
99
blls

S.PLO = 004000

2b4es

6028

0CO00

S.PIP =

6437

1398#
1397%

2: BooR=
D78 =
2:
S.
=

(_-“

484

13878

SWB
=
0400
| SW9
= 001000
SYSDRV
0
g.flCLO:
D
.ggflfls
S.
K;:
S.CART=
5

3554

SWli

6409

4028
14008
13908

B
% :
|

=
=
s

6382

ézg

4963

7332
7475

7335

7343

7480

7812

7538

8711

8714

SEQ C20e
8804

8824

8840

CZR6GBO RKE DR CPT PROG MACY1l 30(1046)

02-DEC-77 10:46

11:48

M1b

PAGE 209

SEQ 0207

CROSS REFERENCE TABLE -- USER SYMBOLS

=;5SS nITggena

mmmmmmmm

CZR6GB.P11

O02-DEC-77

;RBtEB

3038:

ToRLES
T

P M

1RBC7
T8

TKVEC =
TOPROC

TPVEC =
TRACK

14398

3538!

3534#*

TSTH
TS1S
TSTE

14762
15146
015204

978
8s
40768

015510

TWOTOS= 002000
TYPBSF
027030
TYPDS = 104405
TYP
= 104401

4081 %

4327%

4399%

5237

s289

5789

S801=

6677"

e837"

8785#*

4339
6190#

3899%

4002*

3783
4225
43228
38944

15717

EQ6gl
§ggé. 498t
4 % BdA53¢ e Y174%
4181% 4194#*
G279
gdeRgt
dadr 8Lt
3]

014346
016016
016434
14376

14;70

4
@
4336#%
451

3359:

TST1
TSTIO
7ST11
TST

3577%
69698

43 ;
3397
4101
14348

;S¥¥$§ §§§T§g

3576%
660

TRKR
TRK
TRNSFR
0
TRTVEC= 000014

UIIIO;

1440%
6493

14418
29698

BB
B

14338

TRAPVE=

¥S¥I

5563

3871s

4011

4021

S0428

66bl
60294

6990

574

3E17

qou

41484

32478
S097
ge 18
S

4408

3628

3637

3638

3673

3687
3773

4361

4759

“aty

4483

4536

45583

BO1

C%RS%SO
o CPTERO; Tgczél et ngggEsE;ERENCEq?RBLE UEER SYMBOLS
481

S04
37

00313

5475

S48l

641q

b414

6419

23228

6046

60Se

3906

6051

B0SS

YPoS
= 104
T
0106

4809
3346

£405
5043

B989s
5115

T.ASOF

282bs

TYPSYS

104404

007752

003024

8930
3273%

UNLORD=

' UNS

| vHCv

=
=

uaggzn

sueu

3949

3968

4880

4923

B418

428

4989

S495%

5505

8988

6433

B411

g4le

603S
B43S

6041

6449

7311
7527%
7786%
;EQS.

7322%
75S51%
7793%
7254

7355%
7597%
7800%
7283

7357
7598
7807%
7383%

7363
7638
79%l1*
7384

7392%
7b64c*
7962
7420

7414¥
7643%
7964
7934

7416
7BM4S

7446
7649

7517

7639%

7521

7706%

7524
7423%

7703%
7426

7523

7662

7704%

7479

7496

7538
7790

7797

7708%

7789

779%

7803

7810

7306
6650

7239

7317

7660

8030

6632

7254

7420

7660

25328
6335

6843
£a9e

7254
E9oy

7420
ocooex

7660
eOo%

eDiew

6091%

6131

BlEY4%

B165*

3679
6716

7260

7426
7983

7343

3338
] ‘go

7710%
751

5555.

7911

afié;:

27108
68
25548

533 :

000100

2562:
29‘-'

833336

29768

7 3=

686
bbYY
6720

5638

7395

7474

7709%

5685

5717

5864

0
004000

WRDATA=

4728

3920

4088

4179

5845

3952
24758

3958
3923

3961
7979

3974

5233%

708

7560

7804

7811

7812

7700%

WILTST
WL
=

8395

6432

6408

S367

7298
7516
7746
;Egg

7332

WRTBLK
8881
TCHK=
1

6429

6034

SY70

7297%
7S1S®
7745%
;ee?

2944
s
32938
3536:

R0z

64YS1

6426

640

4999

S361
Y
S448

7245
748S*
7698%
;Esan

28318

;

6431

6425

6033

4998

7554

3034

e423

422

5032

S355
S429

7530

7249
7260

ucg - 898883
HCERR= 000100

640

S8l6

4993

7522

7368
7701

7248%
? g;:

= 040000

;3;:

63398

S8l

Slag4
S4yes

7488

7367%
7519

28298
:

639

4976

7457

28258

UEXATT=
10
UFE
= 883“89

sia23
S410

SHQO

6065

4975

S116
s408

s483

6056

4968

Sil
sS40

7451

3022

T.POS
T.MWCR

4967

7450

T1.0C

gllq

7371

003012

¥'S§

4954

7370%

T.CS2

3030

s4yge

495

7325

281BS
7471%
7658
;Esg:

1.0S
¥'§§1

SOS1
392

7301

003016

003010

3720

4847

7300%

7705%
2823

T.BA

T.CS1

4
388

BOYS

TYPON =

Y438

384

4Y8c3

S471

604%

TYPor =

4823

5892

5902

COl

SEQ 0209

7347%
7971%

7362%

7375%
BO41*

7389%

7437%

7S04

7513%

7542

7Sb4#

g2+

7361%

7374%

7390%

743E*

7503#%

7S12%

7541%

b8
9

1S47%
15604

15468%
1S61s

1549
1562

1SS0#
1563

68
9%

15478
1S60#

1548#
1S61#

1549%
15624

1SS0O#
1563#%

15738

1578%

1579

1580#

1581%

15828

¢308

gu3e

448

e
464

8275

7269%
7947 %

8118

20970

8023%

7149%

003066
002072
003:10

SZm x an-—-zr

4976
S834s

o
nr

E g3z 3

(=)
£
o

éé

—

0D 07— 1 (00 (D) == == b=t bt =t Bt s Bt s e (L) () Bt Bt Pt P pme
LW
o
i
on
We—- DDOONC'D
[=]
¥
- LUNDWEWO
gErgReRRO OLEWNW

e
*
w”
»”
»
£

EXEXXXL

S246

EEEY

34178

011347
026770
003124

URTSEC

o
nLe

PAGE 211
11:48
02-DEC-77
CZR6QBO RK6 DR CPT PROG MACY1l 30(1046)
CROSS REFERENCE TRBLE -- USER SYMBOLS
CZR6Q8. P11
02-DEC-77 10:46

4448

g72al
8704
3597
4440

8866
3791

8830
3804

4955

8260

826S

8868

CZR6QBO RKE DR CPT PROG MACY1ll 30(1046)
02-DEC-77
11:48 PAGE 212
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TABLE -- USER SYMBOLS

SERFLG
RMAX

1103
ax

15098
gso

B8689*
§§9:

8726
8850%

8802
8854

8816

8838

8698

8726

3469

§cm5 1515

1584s

gggg.

e7f9

8719

8726

2849

was.

1533:

ggee

8897%

B890S%

saég
185

8223
B8I98w

g228%

8233

ggee

3999-

8706

8726

55::0ll

8214

aasx'

8257:

EBIZ*

BBS.

BEed

3872

3895

3943

3998

4043

4077

4149

CEEL)

4323

39788

3980

4029%

4031

40S2%

4OS4

41298

RABL

111

001350

“Z‘%@

001410

FLG
L

11
T

1120

001124

SGETY2
017254
SGTSWR= ##xx¥% U

1603%

15338

1517%

i;@

ié;é.

3591:

BEdE

6333

6332'

3558

886Y4

8899%

B8903%

16028
15958
87624

gezax

o’

}‘5’3“:

8285

8314

4131

41988

4200

éggi'

SMAMS1
$MAMS2

001360
001364
001370

16158
16238
16268

SMFLG
SMNEW

045220
044441

8858%
87674

SMTYP1
SMTYP2
SMTYP3

ssm.ugfmL

001361
001365
001371

%Hg&

16258
{259'

16168
16248
16278

SNWTST= 000001

3essn

R, B

SOMODE

043654

8070

1366
00{3;2

ShecLe 001346
SMSGTY
1330
SHSUR' 094430

9963.
£ifx

1621#

SMADR2
SMADR3

%‘?‘E“ 1 30

8314

15198

13408
*
55
Ll
12338
1%%
éaqg:

§Sg;

B8697%

8854

44yie
8993

BTS
H T g
SINTAc
001135
1TEMB
1&:
FF’LG
éeax

042352

8844%#

SEG 0210

8557%

8872

3861

BSbl*

8880%

.
8234#

8832

8896

3882

3884

3933%

3935

BSEB

8569*%

BS80*

BE06#

43028

4304

‘

EOL

CZR6QBO RKE DR _CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 213
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TABLE -- USER SYMBOLS
SOVER

SPRS§

0O44742

88es

14938

1336

15988

CT
SPWRDN

4S
::Es

8780%
g;;g

SRAND
22882R

8:2253
4276

5539
87428

. gOUEg

1324

15868

C= #uuxx® U

8995

T= sxssss U

;.qg

SROL IN= #%xxxx U

8843

88S1#s

B781%
:/;3:

8790#
8783

3558%

3638
-rd

8210%
B899

44Y33%

3718

SEQ 0211

HY434x

4450

3730

3776

4794

4823

S0se

s124

S408

sS40

8314

8726

S936*

5939

6770%

594Sx

9473

9481

6364*

H365%

6552

6934#

£33Ce

8995

1160

87638
15368

SREG10

001202

gggg:

gz;gl

gZéil

5718

5749%

5752

6901%

5902

§903

SREG11
SREG12

001204
001206

15478
15488

%
©S751%

S5937%
S938%

6771%
(772%

6801*
6802%

6840%
6833

9473
6£835%

9481
9473

9481

14
SREG1S

1212
1214

1SS0%
1SS1s

752%
759%

S5754%
S760%

S75px
S946%

5939%
S5947%

9476

9481

SREGAD

| SRECT

2%5213
SREGI;
gsi

Ge3
Ga4

oB1led

881510
1216
1222

11
1222
1 sz
D01

SRE
| SRE
SRE
SRE
SRE
SRE
SRE
SREG3S
gg&

001230
881232
1234
831236
1240
001170
001242
gglaflfl
1246
001250
p012se
001254
1%56

SREGS

001174

|
SREG7

001200

SRESRE
045262
SR2A
= #xxx¥x U

S2COPE
OMacoe
SETUP= 000037

12398

1549%
15528
15538

15408
15548
15558
15568

S3e3

763%

9477
9477

S5755%
9481

S757%

5758%

S940*

S942*

S944x

5926

5932#%

S941x
9476

S943%
9481

9469
9477
9477
9477

15578
15588
15598
15608
156148
1S418
15628
15638
15648
1565#
1566#
1567
15688

)
£5S55*

1543#

;283

731%

5739

S745%

S918%

JRid
154Ss

5328,
5291

9982,
S733%

3035F
743

S0abe
S747%

5920%

5930

SQ34%

7046%

9973

gqeg.
7047 %

ovee
70S1

o6l
70S4#

70ea
7058+

89448
8997

8996

3529

3631

3533

35835

3537

3538

3540

4432

8683

8714

8721

6S72

7060%

3553"
35068

9477
9477
9477
6416

6576

9469

O4Y*
*

7092%

Bac3e
3528

Obb*

7094#%

7078%

096%

7092

9473

709S

Fhois
9480

9473

2333

9480

2054

FO1

CZR6QBO RK&E DR CPT PROG MACY1l 30(1046)
02-DEC-77 11:48 PRAGE 214
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TARBLE -- USER SYMBOLS
77777

S
gSUHP
64
70

$SSVLAD

SSVPC = 000230

$SWR

= 163000

35068

4364

4391

8833

8839

13178

13198

14678

41
4449

Bg&g

1472

SY4?7

B884SH

1324

S474
1325

85174
1326

1327

2998
8662

4043
8683

4077
8684

4149
8692

4226
8699

4Yo77%

ggé?

8820

8824

8836

8838

iTEgTN

881339

1597%

3872#%

3895#%

3943#%

3998#%

4o43%

g;ggo

88%%:3

ig;g:

Y746%

Y779%

8729

8744

8750

zTHPl
TMP10

881264
1302

/9%
2%

6230%
6243*

STMP12

001306

$STMP13

001310

4583%

4E93x

STMP11

001304

Teid 81312
STHPé
001266
STMP3
001270
STMPY
STMPS

s
I

STN

001272
001274

GiEn

= 000012

15718
15788

473S

1579s
4590*
15808

HYob3*
4599
4269

1581#s

43S1#

4375%

i5ezs
15728

15738
1574%
157S%

12788
1306%

STRAP2 OME3TS

3355,

Boge"

§¥STH

14 gl

ggggl

8846

001152
001157
gaéISO

STRP

= 000012

$STSTNM

001102

83?83:

15318
153Ss
1§
s

8979

1508#

8303
8252
8301

8988#

3569%

STYPEX
STYPOC

042634
043454

STYP
SUNIT
SUNITM

ON2430
001342
001010

86198

8991

8307
8S60#

8309
8548

85554
16008
1494

3989

4395%

4S580%

HEREs

Y294

4333%

4337

Y3h6%

4367

4S8l %

yegL#

4591 %

4602

Ho14»

HY6515%

S210%

5216

4YO43s

40s2

8726

8816

Y616#%

4Y676%

5209%

52185

4198

4yeebs

4302

43238

3933

39438

39/8

3998#%

4029

8989

89904

8991 %

8992#%

899y

8995

8996#

8997

8998

3618%

3719%

3784#%

4010#%

Y407 %

44y32%

5807 %

6404

8691

4149
8486#

3872

3882

3895

8314
8314
8314

8851

€854

001354

16078

3595

YoE3%

[Ey=tey

85549

1632
1633
88274

834E#

4383%
S2l4
4293%

043470

001400
001402
O0ONM4B1E

4323»

4368%
S208#*
4291

STYPON

SVECT1
SVECT2
$XTSTR

Yeebx

4443
8817

4353%
4575%
4290#%

Bl B e e

SUSUWR

4149%

8851

3540

Y4289
H674%
HYo8G%

S GuEiS

BS6CH

8848

4433
8726

YPR5%
4667
4274

STYPDS

8752

884S

8840

3538

4383!
4Yobeo*
HYo73%

3859

043304

6238
Heuy

8746

1585

Y427
8714

Y269
Yplox
4271

1317

b2e7%

8729

8839

1584

4323
8711

YeaEs
4611#%
4270%

bes
BS54

4129
8466

ST
STPFLG
§¥22P

Y777%

@825!
BEPHE

40778
84685

STNPWR

1330

3943
8681

6820.
15298

1329

3895
8680

001338
1146

1328

3872
Y450

gSHREG
TK

SEQ C212

83124

8990

GOl

CZR6QBO RKE DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 21 5
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TRBLE -- USER SYMBOLS
2525748 000000

.$.5M= ®xsxsx U

SOFIL*

043653

SHOCAT= =xxxxx U

= 0SS163

HHH;O

2?33

7171

7406

7597

SSe*

B8S60%

8570

860SH

14468
SOSs
838

1589
30848

29538
308S%

-4 |

32278

8701

géfl #

198

.SASTA= =xxxxx U

. $X

..HIGH

":LOW

= 001000

000226

000859

8824

1450

géqql

8673

8726

14798

1484

8858

14618

14608

8861

14558

31478

8729

SEQ 0213

7608

7646

7960

8001

8013

2954
3086%

1467
9598
087

2975
3088#

14688

1470%
9824
089

14728
9838
0908

2985%
3091s

2990%
3092%

2338

445

14578

glgg:

8769

1554

8777

géggl

87944s

é&g.

8854

16?0

89064

14738

3169

q748#

8067

1479

S 748

8089

8107

8134

1480%

14828
gl8
S4s

1484s
828
09Ss

3080
3093

géggi

1808

Yy4e

ggég:

HO1

CZR6QBO RK&E DR CPT PROG MACY1l 30(1046) 02-DEC-77 11:48 PRAGE 217
CROSS REFERENCE TABLE -- MACRO NAMES
02-DEC-77 10:46
CZR6GB.P11
EKEX T
OMMEN

ERS

1678
Y438

333: 3837
Egég

4938
gz}g

EE;;

4957

§730
6526

€748
6529

5761
6S32

6533

5917

5935
6634

s94e
6639

£993
6646

6366
6648

6496
6654

6500
6656

6507
B66S

25@:

Eggs

Eggz

ggg

747

2785

g?sg

6779

6782

6792

6805

6807

6824

6841

68S0

MSG

3gsos

g6l

3ggee

3834

3933w

3935

39784

390

4029

403

40528

40S4

41298

4131

41988

NEXTAD

21638

3933

3978

4029

4052

4129

4198

4302

PARMBK

3
2678

00
B3

0
82Y

Rk
Bded

eves

3M2

3997

OM2

4076

4148

ueas

4322

4431

1592

3611

3615

3859

3870

3882

1
NEHTST

| NXTRD

22&}

194 ]
14438

2159w

BoP
-| P.DRVR
PUSH

o
ddds
1s

PORT
R.DRIV
R.QDRV

14438
18
1%

REGOEF

'
'

6310

SEQ 0214

SCOPE

2ETTRA
TUP

SKIP
SLASH
SPAC

STAR

TYPTXT

13388

@973s

1443s

14438
1443s
14438

1295

3863

SR
3859
2751

B85
2815

S
3882

2783

2439
7100

3871

@988
3521

1302

3333

8989

8990

1443%

1465

3941

978

8991

1476

39%

899

1478

4023

8995
1485

4041

B89%
1501

40se

8997
1589

HO7S

4129

Hid7

4198

Heed

4302

4j2l

101

CZR6GBO_RK6 DR CPT PROG MACY1l 30(1046)
02-DEC-77
11:48 PAGE 218
CZR6GB.P11
02-DEC-77 10:46
CROSS REFERENCE TABLE -- MACRO NAMES

SDECBN

s8cn

14988

1553

1S54

1SsS

1S40

IS4l

1SSe

1557

1SSB

SS9

Se0

ISYS

IS4
iSel

USe2

1Se3

ISed

1%eS

1See

1339

1570

172

1573

1s74

1S75

1S76

1577

1578

1S79

180

ISBl

1sB2

1SEd

SSNEWT
§§SET

1443s
8979

3859
8988

3882
8989

3933
8930

3978
8931

4029
8994

4052
8935

4129
83%

4198
8397

4302

.EQUAT
HEADE
"SET
(SURHI
SWRLO
SACT1

12928
12928
12928
1292s
12928
12928

1333
1307
3506
1320
1331w
1463

1232w

Bgcy

isse’

gscnTM

Y438

$SSETM
SSSKIP

35584
14438

.SAPTE
SAPTH

15908
12928

$APTY

$CATC
SCMTA
$DB20
SEOP
RRO
SPOME
SRAND
AD
SSAVE
§SCOP
§SIZE
SSUPR
§TRAP
§STYPD
STYPE
§TYPG

1
&
12928
12328
12928
12928
12928
12928
12928
1292
12928
12928
1292
1292%
12928
12928
1292
1292

| . ABS.

055163

ERRORS DETECTED:

1533

1539

1542

1S43

IS44

SEQ 0215

1474

1444
1499
guds
B406
4423
8674
8199
8726
891l
8811
8507
835K
8607

8235
8530

000
O

RMO3: CZR6GB, RMO3; CZREGB. SEQ/SOL/CRF
/NL : TOC/DOC=RMO3: DRIV10. P11/EQ: GNEWSW, RMO3: CZREGB. P11

RUN-TIME:

36 28 2 SECONDS

nuu-rxne RATIO:

CORE USED:

47K

DOCUMENT PAGES:

617/67=9,1

(93 PRGES)

215

1547

1548

1549

1SS0

1S55)