Digital PDFs

AH-995B-MC

January 1978

213 pages

Original

111MB

view download

OCR Version

163MB

view download

Document:	CZRMBB0 RM03,02 PERFORMANCE EXERCISER AH-995B-MC JAN 1978 gray
Order Number:	AH-995B-MC
Revision:	000
Pages:	213
Original Filename:	CZRMBB0__RM03,02__PERFORMANCE_EXERCISER__AH-995B-MC__JAN_1978_gray.pdf

OCR Text

'PERFORMANCEEXERCISER
CZRMBBO

AH-99GB MC
COPYRIGHT©1977

~__FICHE10F2 umulun

PERFORMARNCE EXERCISER

CZRMBBO

AH-995B-MC

JAN 1978

FICHE20F2 MADE IN USA

——————————
S

EOF1C

mmgogx

78010S

.REM

POP10

411

HOR1CZ

MACY11 58( 1046) 22-NOV-7; 10:

SEQ

00010000

PAGE 2

PRODUCT NAME:

CZRMBBO RMO3/RMO2 PERFORMANCE EXERCISER

DATE CREATED:

AUGUST 1977

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

C. CHEN

ARC-A994B-MC

THE

1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.

INFORMATION IN THIS STATEMENT IS SUBJECT TO CHANGE

WITHOUT NOTICE AN
NOT BE CONSTRUED RS A
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

ACT

ISTRIBUTION OF T
TWARE DESCRIBED IN THIS
BGCURENT
uxbLBgs
eI
cT
Fo
TERNE
AND CONDITIONS To
ANNOUNCED ON SOME FUTURE DATE BY DIGITAL EQUIPMENT
BE
CORPORAT ION.

DEC ASSUMES NO RESPONS
RELIABILITY OF ITS

NGT SUPPLIED 8
THIS
T0 USE

SOFTWARE 1S F
ON A SINGLE

INCLUSION OF DEC’S

SYSTEM,

EXCEPT

THE USE OR
I
WHICH IS

M-

EWWWWWWIWWW

IDENTIFICATION

PRODUCT CODE:

445
ES L

1-NOV=-77 15:34

80%3/2 PES? EXER

P ot et dr 1 fx b tu dd vheto AT

W=t

T
—
W= DD - N L W= 10

0N
U L (fue-

CIRMBB.FPLI

C<RMBBC RMO3-2 PERF EXER

CIRMBB.PLI

-G

21-NOV=-77 15:34
e

MACY1l 30(1046)

R D

22-NOV-77

RBSTRACT

REQUIREMENTS

OPERATING THE PROGRAM
uc THE

2‘3‘

'..

nssr

£6

mnirh S R
3.6.1

11
38 ou
b‘d&bk
4.

:;
28

CONTROLLING THE PROGRAM

:. é gms 3 gpsnmon IDENTIFICATION
E

gl
e

4.3

3
g7

4.2.

. .a

..
SWITCH

Pnocmn CONTROL PARAMETERS

m. oevxcs ADDRESSES

cxsren

HE FIRST OPERATION

xsvgoeno
o

4.4.3
:.:.u

3
gtlz

'S’
COMMAND
"W’ COMMAND

4:4:2
w3 KBHRAND
4.4.7 GENERAL COMMAND INFORMATION
S.

PERFORMANCE SUMMARY TYPEOUT

5.1
.2

i
i<
%€
gg

101
102

DATA TRANSFER MOD

3.10 RPT ENVIRONMENTAL TABLE DEFINITIONS

133

ng“ »:

g.s :m& Tsanfmnonum on

gg '

SEQ 00Cce

S
é PRELIMINARY
ReBlR
2.3
PROGRAMS

PAGE 3

PMENT

g
Eg

COl

CONTENTS

§9

10:06

PERFORMNCE SUMMARY TYPEOUT EXPLANATION
HARD/SOFT ERROR DEF INITIONS
§.2.1 HARD ERRORS
§.2.2

SOFT ERRORS

DATA CHECKING 8 ERROR RECOVERY
6.1
&.2

DATA BUFFER COMPARISON
VERIFICATION OF DATA WRITTEN

BIPRZE¢

L
e e e e e e e o S
-|
= OO
0N L WM
DD

Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P P

RMO3/2 PERF EXER
.Pl1
21-NOV-77 15:34

MACY1l 30(1046)

22-NOV-77

10:06

DOl

PAGE 4

B:d BRE"PRack
SECTIR PEaceing
7.

ERROR MESSAGES

5.3 BERRTLCRAROA(IRES" TMTM
8.

PROGRAM DESCRIPTION

.§

8.4

HOW THE PROGRAM OPERQTES

chLVGSRRBL
RfléSELECTED FOR ERCH OPERARTION
DATA PATTERNS

RMO3 SOFTWARE DRIVER DOCUMENT

SEG 0002

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

NN NNNNCC

OO o e o O UININIUNIUILY

NWELLfifLfLfrirrww

Ben B Bt et Bt Pn et Pt Pt Bt Bt et Bt Pt Pt Pt Bt Pt Pt Bt Pt Pt Bt Bt Pt Pt et Bt Pt Pt et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt s Pt et Pt P T —

nrn
£W

122

22-NOV-7?7

MACY11l 30(1046)
1.

10:06

EOL

PAGE S

SEQ 0004

ABSTRACT
P$
x%no
;mc
M: T
r
3

o;g«

n ERR

TE AND SE

R PROGRAM IS DESIGNED TO PERFORM
gx gaxvs& CONNECTED TO A MASSBUS
ONTROLLED BY EITHER AN RH11

Pgnronnxnc AN
zg EM,

rv 'rmr T

THE

(

mzmcnvE TEST OF
INT

omma-: sxsncx

D 10 BE

ERROR RATE SPECIFICATIONS)

ggsn 'IE?T ARE

PERFORMING TO THEIR

R PROGRAM WILL EXERCISE DRIVES CONNECTED

Léao'*‘u’ic
v
AN
CRam mm"“csn‘%'éét’f?m‘*‘své%é;%"
I
"?LL E)éggISEn' n' gxeo
SYSrM OF DUARL PORT AND SINGLE
T

TAIN INTERACT

STING, OPERATIONS

THE

DRIVES ARE OVERLAPPED

(37% &ag
:
S:"Eroinsssxxgsn‘cuoggmfions uuis ONE

rmusr
THE

n ux Pogmon

MONIT

R gags
“fi
cut

D (

TION RATE IS MAINTAINED.
:

oavncmocnm

IF
A

on"xve
xu
T :S
3?m'?(THE
ANYOPERA
OF on
cmsconxes.
THAT
DRI
xcaL v
Y OVERRIDE
g%Tnu; " T
g«: m
s:
mocmn
ggpgms Pféaroms
open%?o‘ 3&TOMATICALLY ;x;ngv rsnnn:o av”rort”OPERATOR.
ALL

DATA TRANSF

3gg A?3ANDREWR
AD-IN

RECAL
IBRAT
DURING ERR

WRITE mm WRITE HEARDER

69595
ucu.
"WRITEANDCHECK
RECAL IBRATE

s ARTUP AND DRIVE INITIALIZATION.

orrsev nm ncrum-ro-csmsum: COMMANDS AREUSED

THE DATA TRANSFER COMMANDS RRE SELECTED RANDOMLY EXCEPT FOR THE

ung;s ngcx c
vioUS WRITE

a0 THE unpe CHECK COMMANDS RRE USED TO VERIFY
RATION.
WHEN A WRITE COMMAND IS SELECTED,

Eg;.m?n WRITTEN IS VERIFIED BYrhe APPROPRIATE WRITE CHECK
oergnomc gpon THER

PROGRAM HAS BEEN LOADED VIR APT AUTOMATIC

nooe WILL oersnnms WHETHER;

PROGRAM/OPERATOR

COMMUNIC
m: THROUGH THE KEYBOARD. DYNAMIC PROGRAM OPTIONS
gfi:TaELgérsgp%“ SWITCH REGISTER SETTINGS
AND ERRORS ARE REPORTED

ALL conmnos DATA Pmmms

AND DATA BUFFER SIZES ARE SELECTED

RANDOMLY BY THE PROGRA
AODITIONALLY THE ADDRESSES (EG, CYLINDER,
TRACK, AND SECTOR) FOR ERCH opsnmxon ARE SELECTED RANDOMLY.

alel
4

0 _RMO3-2_PERF

SRR 20N 8BBURR D028 Ja319
o

.Pll

El-NO\'-"; 15:34

MRCY11 30(i04€)

22-NOV-77

REQUIREMENTS

e.l

EQUIPMENT

PDP-

PARGE &

ESSOR

P%EmnK““NG
ok DEVICE

KWll=P CLOCK
RH11 OR RH70 WITH 1 RMO3 DISK DRIVE

e.z2

MEDIA
ORMANCE

I;R"CKS“CGENEPSQTED BYFT XEPT?
ALTERNAT Hgg S%TOQ 18

[

NLwh-—-0w

FR2L OB

nrururury

s P
Pt Pt ot Pt

FO1

PéFDRY (20K IF THE PROGRAM IS INCLUDED IN AN ’XXDP' CHAIN

THE

rorrorMrn

10:06

2.3

PRELIMINARY PROGRAMS
RMO3 DISKLESS DIRGNOSTIC
RMO3 FUNCTIONAL

TEST

SEQ 000S

CZRMBBO_RNMO3/2 PERF EXER
CZRMBB.P
21-NOV-77

MACY1l 30(1046)

22-Nov-77

10:06

GOl

PAGE 7

SEQ 000&

OPERATING THE PROGRAM

3.1

gj%'gg* bt
TR DRATETRSRS i,
*

HORSE
RVED
3.2

ING

%ROC
SOR WIT

CHAI
IF THE
TPE 'XXDP' LORDER WILL

% ONA SYSTEM WITH 20K OR

I'E
IN A 16K YSTEH

HE 'ABSOLUTE’ LOADER WILL BE

E PROGRAM STARTS AT LOCRTION 200(8).
PARAMETERS NOT INCLUDED IN
T&;TYPE DIAGLOGUEGROUP MUST BE CHANGED BEFORE THE PROGRAM
ORF? EST”
RATION TO “.# VES UN)ER TESTING AT THE 200(8)
LOCATION AUTOMATICALLY.

3.3

STMT 5 PRO&RM
AT LOCRTION 204(8)

3.4

movx

o ms

STARTING

IF THE RH11 OR THE RH70 IS

o nno STARTED VIA THE APT DUMP

or: PROCESSOR, DRIVE
o av x conmuos AND

suucu13; R..E"ég
u rmoc #
'S FIRST START,
suasvsrsn WILL BE
r srm uxs rvpsour MAY BE INHIBITED

BY SH(O >= 1.

uousven

ORDED vm mr

nxpr nooe au. SETUP

AND SW 'fCHnes'rs'3555'1'7{1«3 HILL BE PRO DT
THE APT E TABLE
TYPEOU'fifl H-E%?IER Og
NOT IC ReP
Sgnmn-.BI?I?&N#HEIE?flBLE
3.5

PASS/TEST TERMINATION

Rg‘

I-?R SITS READ OR ?gEKS
RFORMED.
_THE
E
RED
FOR R PARSS
DERIVED FROM EITHER
E SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION.

mflSPEC
CQTOR_(
ONS m -PTHE

RMO3’

CIFY NO MORE

K RELATED) IN 1 X_10%9 BITS REARD OR NO
éfl E%
ERROR IN 1 X 10t6 SEEKS.
THE NUPBER OF BITS OR
SEEKS ?E ;
A PASS
WERE
SELECTED TO PROVIDE
R 90% CONFIDENCE
LEVEL THART THE DRIVE IS PE FORMING TO THE APPLICABLE SPECIFICATION.
3.5.1

PARSS TERMINATION

END OF PASS FOR A SINGLE DRIVE MAY BE DETERMINED BY EITHER OF THE

FOLLOWING CONDITIONS.
BY PARAMETER 'ENDING'.
A.

THE END OF PRSS CONDITION USED IS DETERMINED

IF PARAMETER 'ENDING'

IS 1,

END OF PASS OCCURS WHEN THE DRIVE

HAS READ 1.875 X 1018 WORDS (3 X 1013 BITS)

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MARCY11l

30(1046)

22-NOV-?7

B.
3.5.2

10:06

PAGE 8

IF PARAMETER 'snomc'

SEQ 0007

1S0, END OF PASS OCCURS WHEN THE DRIVE

HAS PERFORMED 3 X 10t6 SEEKS.

TEST TERMINATION

THE TEST FOR A DRIVE IS TERMINATED (SW<O4>

THE DRIVE “AS COMPLETED THE NUMBER OF PASSES SPECIFIED INO
S -

B. mz'iy '7‘5
C.
D.

rurururury

B ORRED

3.6

= 0) WHEN:

ERR

n(:cunu.m:o excszo 100.

S’

R FATAL ERROR OCCURS: EM12
O
OPERATOR DERSSIGNS THE onxvs

RUN TIME

QETERRINED
67 T
BrETER erze > 1F1F Y127 13 one
gs
IN R
’él ZE’' APPROACHES
ua ngg;
mbcxIN xgsmggnn!&!DSBNM&&
(4
uus
A DATA mnusrsn
Issncacn
LY
DéPEN)?fl
THE OPERATION
LECTE
RILABLE OVER 16K, THE

READ/WRITE RATIO PARAMETER - 'RATIO’, AND BY SWITCHES 0, 1, & 2.
3.6.1

DATA TRANSFER MODE

1 QSIVE - APPROXIMATELY 3.6 HRS (TO REACH 1.875 X 1018 WORDS)
8 DRIVES - APPROXIMATELY 16 HRS (FOR ALL DRIVES TO REACH 1.875 X 10t8 WORDS)
IF THE PROGRAM IS RUN WITH BOTH SW<00> AND SW<01>
SET, THE RUN TIMES SHOULD BE RBOUT 20% FASTER.

Wt
0 W W WML W WD W
W W W W)
gLA VL
o Y ST Y Sy Sy Wy
ainswn== QW00 NN
E WO

3.6.2

327

SEEK VERIFICATION MODE
PARAMETER °'SIZE’ = 1 SECTOR (256 WORDS)
PARAMETER ’MAX
PARAMETER "MAXSEC' = 'MIN
EEC'
SW<00> = 1 (READ
ONLY MOD

1 D?éVE - APPROXIMATELY 25 HRS (3 X 10t6 SEEKS)
8 DRIVES - APPROXIMATELY 40 HRS (3 X 10t& SEEKS FOR ALL DRIVES)
3.7

UNIBUS & VECTOR ADDRESSES
THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND_VECTOR ADDRESSES.
(REFER
TO SECTION 4.2.2 FOR THE
LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES.)

UNIT

UNIBUS

VECTOR

ADDRESS

RH11 OR RH70

176700

a2s4

TTY PRINTER

177564

NOT USED

XER ¢
C’RHBBO RMO3/2_PERF E ¥R
CZRMSB. P11
21-NOv~-

MARCY1l 30(1048)

3.8

22-NOV-77

101

PAGE 9

SEG C00e

TTY KEYBOARD

177560

KWll=L

177546

100

Kill-P

172542

104

DUAL PORT OPERATION

C.
3.9

10:06

THE RMO3 PERFORMANCE EXERCISER PRUGRAM INTO BOTH

TR, T

START THE PROGRAM
EACH PROCESSOR WERE

T PO

IN EACH PROCESSOR.
RUN THE PROGRAM RS THOUGH
RUNNING INDEPENDENTLY OF THE OTHER

APT

THIS PROGRAM

IN THE PR

FOR OTHER

1.E. LOAD

APT COMPATIBLE TO

AND WILL WORK

THE EXTENT THAT APT HOOKS WILL

THRU THE 'OPTION INTERFRCE'.

INTERFACES,APT MAY ONLY LOAD AND S1ART THE PROGRAM.

DUMP MODE.

AUTOMATIC MODE (MONITOR)

1. THE
INPUT DIALOGUE IS BYPRSSED.
i
THE Alse
SS AND CONTROLLER INTERRUPT VECTOR IS
DEFRULTED.
DuMP nosgf §NPUT DIALOGUE AFTER PROGRAM STARTS
3.10

APT ETRBLE DEFINITIONS

THE FOLLOH*NG ?EFINITIONS ARE _VALID FOR SPECIFYING APT

HE APT UTIL TY“ngGRSHQB¥
NVIRONME

E) ENTRIES VIR RUNNING

SOF TWARE ENVIRONMENT:
= 1 IF APT SCRIPT MODE
= 0 IF STANDLONE MODE

ENVIRONMENT MODE:

BIT 7 = 1

= 0

ETABLE DOES SIZING

PROGRAM DOES

SIZING

BIT &6 = 1
= 0

SPOOL
DON'T

MESSAGES TO APT IF SCRIPT MCODE
SPOOL TO APT

BIT S = |
= 0

SUPPRESS CONSOLE OQUTPUT
ALLOW CONSOLE OUTPUT

BIT 4 TC BIT O ARE NOT USED

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOvV-77 15:34
384
385
386

MRCY11l

30(1046)

22-NOV-77

10:06

JO1

PAGE 10

SEG 0009

ITCH
A (SOFT
SWITCH
RgG%ST
ER)
}
ONHENT
EET
ING BIT ) 1 S SET_T0 1,
ag CH
ISTER
WILL BE_USED » INSTERD
CONSOL
SHITCH
GISTER.

SWITCH 2 (USER SWITCH REGISTER)
NOT USED

CPU OPTIONS
NOT USED
MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES
NOT USED
INTERRUPT VECTOR 1:
USED WHEN ENVIRONMENT MODE BIT 7

1;DEFAULT = 254

BUS PRIORITY 1:
SED.

INTE28¥P¥
VECTOR 2:
¥

407

Owwm VO(H&UNHDS

LELE Lfirrrsrrrrs
s
nurunure Wy Pt Bt Pt Pt Pt Pt Pt Pt Pt Pt
FAN OV

408

10.

BUS PR*OfiéEY e:

11.

BASE ADDRESS:
USED WHEN ENVIRONMENT MODE BIT 7

12.

DEVICE _MAP:
NOT USED

13.

CONTROLLER DESCRIPTOR WORDS:
NOT USED

1%,

CONTROLLER DESCRIPTOR WORDS:
NOT USED

1;DEFAULT

176700

CZRMBB.P11
42s

21-Nov-7

15:34

MACY11l 30(1046)
4.

22-NOV-77

10:06

PAGE 11

SEG 0010

CONTROLLING THE PROGRAM
THE F&g
ROUTI
IN
AR.

CONVENTIONS ARE USED BY THE KEYBORRD ENTRY
OGRAM:

TO MLETE AN INCORRECT cmmcrsn FROM AN

(*RO’).

ENTRY STRING, TYPE
A

TYPING
A 'RO’ WILL DELETE SUCESSIVE CHARACTERS

I'E INPUT.

TO DELETE AN ENTIRE LINE, TYPE A "CONTROL U’

NTRY FUST
BY '

("tU’).

TERM TE? g; EIT% 'CARRI
SE
IMT
E
RECOGN

RETI.RN OR
?Y THE

ERHIMTED

ME RE TURN

AC
EPT T
F
..1

KOl

WILL

NTV%&E
NO HXLL DEFAULT TO TD'E PRELOFDED RLUES
ENTRIES.

IFA
WILL
RE?N0#0

S_TYPED

ING KEYBOARD ENTRY, THE PROGRAM
KGIMI%*OF
THE GROUP &ING ENTERED.

DATE & OPERATOR IDENTIFICATION

The ”jp?‘
ReT

Ti€ PRocRaR
w17 15 TNITIALLY
STRATED
Mill
.oissmggRidf‘g
oR THESE ENTRIES

'mo'EMAY
’fzm'
) %: smn’?s
;'"g%'::"
wcu
%
Emé grum' N RE
T0 73
”?xon
OF OPERATOR
?DENT&I? ONYT&ENTERED.
BOTH #%Rgfl AND THE OPERATOR
I.D.
T

5:2

CHECK

*SA’ COMMAND IS

4.2

EITHER

ENTRY.

HARACTERS

D (SEE SECTION 4.4.3).

PARAMETERS

WHEN THE PR?GWé

ASKED TO ENTER P

TARTED FROM LOCATION 204,

TERS.

THE OPERATOR WILL BE

THE FOLLOWING MESSAGE WILL BE DISPLAYED:

ENTER PARAMETERS:

m;
RATOR

xr Pmr nx
AS A
cxven

; n‘ n nv
ENTRY xs NO

onnscv

TER n ry? Tsanxrmso BY A CARRIAGE RETURN ¢(CR>

BE MADE.
Y OTHER CHARACTER IS ACCEPTED
ALUE or THE M ER mo

u;u.
xoermrv THE PARAMETER BY THE NAME

gnsn.%

OTE:
__WHEN THE DIRGNOSTICTés
ARE _LOADED FROM T
YS

omscr

E9
NTRY

IF THE

T0 as TYPED

OADED VIR _APT SCRIPT HODE ALL PARAMETERS
TABLE.
THIS INCLUDES THE SOF TWARE

CZRMBBO RM0O3-/2 PERF EX R

RMO3/2 PERF EXER

P11

qex

..S§
:gus

486
487

488

489
:g&}

<32
i3

495
496

%
S00

21-NOV-77

15:34

MACY1l 30(1046)

4.2.1

22-NOV-77

10:06

LO1

PAGE 12

KEYBOARD ENTRY PARAMETERS

DEFAULT

BASE

SIZE

(SEE NOTE)

PASSES

RANDOM

502
503
504
505
506
507

RANGE
1 - 999

0 - 256

000000

OOR 1

499
S0l

SEG 0011

VALUE

NAME

MINUTE

VALUE

FUNCTION
gomn
N

'%a *

sga
F
A mmsr as

o§§:m‘§"§1
DL

INTERVAL (IN

R =

T_IF SW<07>=0
TH? DATA

"“s'ss et
N

éflNTHE
DATA

m "MA
z rsmx
P%
or PASS
D BYn-t uonos
READ’
}PMTER:O,EIDOFPQSS
og
TERMINED BY' THE NUMBER

ENDING

000001

0OOR 1

509

FORMAT

000001

0OOR 1

Ei%
g14
g1g

RATIO

]

000003

0-7

?Bgfi&s
THE APPROXIMATE
RATIO OF READ TO WRITE

508

€10
611

gig

KS.
NOT
TER = 0;
RFORM WRITE HEADER & DATA

on§ns- IF PARAMETER > O
RM WRITE HEADER & DATA
PERFO

ORDERS

gig

VALUE

R/W RATIO

s20
sl

0
1

1571
771

3/5

go2
523

=
3-

Se4
£25

526
£27

ggg
§30

gww
nL

€3]
£32
£33

MESSARGE

000001

0OR 1

6
7

/2
/3
44

a/s
1/7 = 1, DO NOT PRINT
IF PARAMETER
ERRORMESSAGES FOR DATA ERRORS

occunxnc m LOCRTIONS DEF INED
”f ATOR RS BAD PACK
LOC

nssocmfso WITH BAD
ncssncss
PACK LOCATIONS.

PRINT ERROR

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY1l 30(1046)

@22-NOV-77

PATTERN 10

10:06

MOl

PAGE 13

SEQ 0012
.

g ?
It

23
4y

Egg

£l

- 1S

IF PARAMETER=0,DATA

PATTERN IS RANDOMLY

&S&P&dm

Lfi&&mm SP?CIFIES

HEADER 8

&u%%mo?g

000001 O OR 1

NTED BY TD'E PMTER

(hieltl, B
mo

554

58
52

gLR
rogse 4,By %g
S
%.sfmw
T :so
S2
g
V&L? CIFI

S60

ggé

§§

000000

4.2.2

T LERS

‘0

N "MAXDL' DETERHI D BY

PERIP"ERN. ADDRESSES AND OTHER LOCATIONS OF INTEREST

£
269

1, OPUTOL RS
DRLacoTion
10 ATER
HESE LOCQT
ESS
ovI

£70

TAG

CONTENS

FuNCTION

Hy i

§30
Bz
%

%ggg
i1t
23

fiKS 177§‘45
%
'TM

R TRon VOCALIONCEE
(R, BBrk TMBCHORRSY ok N Recelve

§72

Sgec
g%

1 s

g%fls

ao&sss KHI - TUS REGISTER
IS 60 HZ;
CTRAL CIRERYSTEN
551%'
SYT SSOHZ
gs&cm.)F

11-RH70 ADDRE

4.2.3

PARAMETERS FOR THE FIRST OPERARTION

D WHEN THE

I59540¥ SEIRTRGS PREHEER G015, IITIAL opeRaTION (1

RMO3/2 PERF EX
;n

P11

21-NOV-77

15:34

MACY1l 30(1046)

?3-4

22-NOV-77

10:06

PAGE 14

INITIAL

SEG 0013

VALUE

Loc

TRG

1514

BEGPAT

1 - 18

602

1516

BEGCOD

0-5

£33
600
601

603
604
60S

VALUE

RANGE

FUNCTION
flg CODE FOR nc STARTING

PATTERN. (IFA WRITE ORDE
OR A WRITE CHECK
R IS
ficiri
IN "BEGCOD’)

NITIAL COMMAND FOR EACH DRIVE

sxtacug
“
=
= WRIT

sog
60

= WRITE
= WR

608
609
610

1520

gié
gia
615
6lb
6817
618

gg?

4.3

BEGSIZ

=1
7> =1

gfi <15

SW <10> = 1

SW S =1
SW &>

Sk ()

SW <3

SW &

SW <O

ggg
634

£35S

636
637
638

SW <6> =1

ENTRY ROUTINE:

g:
e4e

4 = READ DATA
§ = READ
HERDER g
Hf'
£R ss
on n: FIRST

DATA ¥
RANSFER OPERA
F_ERROR

;g S%RY IF ERROR; DO NOT DISPLAY
lfms

T MAx

RATION PARAMETERS

c&n’r
CHE

DO NOT DERSSIGN

IVES WHEN
iloTEST Acrto
D v flvg
(BEFORE RETRY ATTEMPTS)
x'
’
gn
’
E
AFTER THE 28TH
TRY
sr
'
L
1
T
t su<7> SET, DISPLAY REST
OF
FE
NHIBIT
n'rus T
our
ogaxnc STARTUP.
NH
T
?.mm
%
AFTER REFD ORDERS
ON A sux'rc

sor
SET x

g:g

643

Egg?

(3 1’%

ggg'rmcn
N KEYB

E42

gmxaTYPEOUT
T TYPE
n#Tn c

£39
B4l
640

2 - SIZE

DATA
ADER & DATA

SWITCH REGISTER SETTINGS

619

b3
bey4
BoS
bot
627
%)
€29
630
631

402

CK
DATA
CK HERDER & DATA

ESS

PROCESSOR (I.E.

AN 11/34)

ércu REGISTER IS

THE
ocmgu
33?“oISTER.
(8).
THE
THROUGH A KEYBOARD

EDc vaT nm 'mt XCEPT
'raggf
:E PROGRAM
WILL
WHEN THE
PROGRAM IS
A HIGHER PRIORITY Pnocgssmc AN

RSMO3AN 1 ocmL Nmeen N
"SWR = NNNNNN

HE PROMPT FROMARE ENTERED
THE SWITCH

SWITCH VALUES

NEW =’

ERACH TIME SWITCH SETTINGS ARE ENTERED,
~

THE ENTIRE SWITCH REGISTER

PERF E
ERER 5. oy
032 PRV
e RMO3/2
CIRa

MACY1l 30(106)

g 22-NOV-77 10:06 PRGE 1S

649

ll.'ST ENT

i
:
889

660

66kl

bbe
664

668

6E3
671
672

4.4

NOTE:

KE;WO

RUNNING IN THE

'RUBOUT'

L
TR COMMAND),
oo R REQUEST
U, Cliivo,
25&18
&
OMMAND), OR oenss GN a bnxvs WHICHA DRIVE
IS

mc TESTED, a:noxuc OR WRITING' ('D’ onmno
AFTER THE
WILL BE

PROGRAM HAS BEEN INITIALIZED,
TYPED:

‘ENTER COMMANDS : *

THE FOLLOWING MESSAGE

TIALIZATION COMPLETE

"TYPE ACéNT

TO ENTER COMMANDS’

TR
LTI
TAL
W PROGRAM
e R
r&6 OE
WILL ENTER

SBE3E

ms rououmc PROMPTING MESSAGE:

MM:SS

THE
HIkL THEN nccgpr ANY OF "'? VALID COMMANDS. AT THE
com.;
omar?
PROGRAM
L 5’:‘” COMMAND 'MODE; THE

OPERA

com
vmagfi

ILABLE

THE

'WT’,

T 'rvgs ANO kn'comn

¢’ TO

RETURN THE PROGRAM TO

;nwficnm
?:cxrxso AN 'R’
HLLR§ uncomnooeumn.m.n.

tvssHAVE BEEN &noc

'T’,

'MW

'R’

COMMANDS REQUIRE ADDRESS LIMITS

onxvs

ggg

AND aao {.ocmtonnbonsss ENTRIES FOR THE DRIVE BEING REFERENCED

E%Z

TYPEOUT:

636

ggg
701
;85

704

ANC

THE opsmroa MAY RSSIGN DRIVES

ggg

£93

_REQUIRED.

gms WILL BE DISABLED IF DIAGNOSTIC IS

flLL
STW?M
w% m

ggé

SCR? T MODE

680
BEl

689
£90

SEQ 0011%

KEYBOARD COMMANDS

' PROGRAM

£88

¥ PR
RIS B e
g,%:2#&
Gk "?"” iAN

674

686
687

THE_PROGRAM WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING
*ENTER ADDRESS LIMITS FOR DRV N / RMO3

THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT
PARAMETERS.

DEFAULT

VALUE

1.0,

MRCY11

30(1046)

22-NovV-77

NAME

'3.§§

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

BASE

NNNN NN NNNNNNNINIYY
T
SN Sy S
o
LW
OO NN EW—-0O

MINCYL
MAXCYL
MINTRK
MAXTRK
MINSEC
MAXSEC
NOTE:

10:06

PAGE 16

VALUE

10
1
1
1
10
10
1.

SEQ 0C1S

RANGE

o
BES

4
0
3l

FUNCTION

0 - 822
0 - Be2e
8-'4
-9
0 -3l
0 -3l

THE ADDRESS LIMITS ARE

2 T

coe

THE
THE
THE
T
THE
THE

MINIMUM
MAXIMUM
MINIMUM
XIMUM
MINIMUM
MAXIMUM

CYLINDER ADDRESS
NDER _RDDRESS
ngg
TRACK
SECTOR ADDRESS
SECTOR ADDRESS

IN DECIMAL

T LORCK 1

RS FORREBLEY

”fiéfifinsn*;fm;"s'samflsmBETWEEN "0 CAND THE

snculsg '”'n?x ¥E g}oaflfurgv “"?ugflgnivé 15&u¥&9§¢n Bk 2§¥R$OR
REQUEST IS MRDE BY THE FOLLOWING MESSA

*ENTER I.D.

FOR DRV #N:'’

THE opganroa MAY ENTER gu D.

NUMBER FOR THE onév:
OF

eHigggga(ss&gsssxzn::tTE0g
rsnn NATE
“.".1

av A

_'CARR

TR e Tl

USED TO RSSI?‘N DRIVE(S) FOR TEST._

PERFORM T&
COMMANDS

E;TOSF THE %VE(S).
T COMMANDS.

ANY'C

OR A 'PERIOD’
THIS

= DRIVE NUMBER.

MAY BE 0 TO
7 OR "R'.

TERMINIATED BY A CARRIAGE RETURN<CR>.

EXAMPLE:

'D’

COMMAND IS REQUIRED TO

THE OTHER COMMANDS ARE CONVIENCE

TN<«CR»

FORMAT:

NOTE:

ENTRY MUST BE

TD(CR> - RSSIGN DRIVE O FOR
T
TR<CR>

8’8}\51

= RSSIGN ALL RVQILRBLE DRIVES FOR TEST

88552 Ofls%s*gagémfiolflTELY

COMMAND

USED TO DERSSIGN A DRIVE(S)
FORMAT:

ONLY (NULL ENTRY)

DN<CR>

BEING EXERCISED.

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOv-77 15:34

MACY11l 30(1046)

22-NOV-77

10:06

D02

PAGE 17

SEG 00le

761

N = DRIVE NUMBER.
MAY BE 0 TO 7 OR "R’'.
ENTRY MUST BE
TERMINIATED BY A CARRIAGE RETURN «CR>.

764

EXAMPLE :

768

NOTES:

IF THE

RSS}GN DRIVE O
SIGN ALL DRIVES BEING
'

REFE%NCESA

fiit

VE r
wf‘
9 VE uor ASSIGNED’
ILL

769

DO(CID DR<CR>

DRIVES WILL ac DERSSIGNED AS THEIR

RATIONS COMPLETE.

776
777
775

780

LL
6?'E§ckgb Hé n% N (1) WILL
BE DISPLAYED FOR RLL DRIVES NOT ING TESTED.

4.4.3

782

'S’

USED TQ

78S

FORMAT:

790

EXAMPLE:

SRS
sy LRl
Ty, S ST

NOTES:

797

SO<CR> - TYPEOUT PERFORMANCE
SA<CR>
1.
2

- TYPEOUT PERFORMANCE

FO? ALL DRIVES BEING TESTED.

81?B8 SRy

ERCH
DRIVE ae

MINUTE’.

MMARY
P

ESTED AT A RATE DETERMINED BY

Ho-q-flt-o

e SS:E?on ENT nso 3nte OPERATOR I1.D., AND THE DRIE
OR EACH DR
EING’ TESTE
THE DATE AND OPERATOR
8 &LL NOT BE TYPED OUT
NO DRIVES ARE BEING TESTED.

Ly
O
w

€00 (D000
O M
Pt Bt s Bt Bt s e O
oM EW-0OWw

Y FOR DRIVE O

SUMMARY

IF 'SR’ IS USED ONLY DRIVES BEING TESTED WILL
BE DISPLAYED.

F OR

806
807

acxnc TESTED

SN<CR>

792
794

L VE

REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED

DRIVE(S).

791

'DR’

COMMAND

783
4

4.4.4

"W’

COMMAND

USED,

THE PROGRAM WILL TYPEOUT

COMMAND

USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RMO3 PERFORMANCE
EXERCISER PROGRAM.

FORMAT:

WN<CR>

N = DRIVE NUMBER.

MAY BE 0 TO 7 OR

TERMINATED BY A CARRIAGE RETURN

'A'.

<CR>.

ENTRY MUST BE

CZRMBBO RM0O3-2 PERF EXER

CZRMBB.P11

21-NOV-77

15:34

MACY1l 30(1046)

22-NOV-77

817

EXAMPLE:

820
ggé
823
824
825
826

NOTES:

gig

10:06
WRA<CR>

=~ ERITS‘.?QTR PQ?R PflCKmL AVAILABLE DRIVES.

ON DRIVE O.

NERATED
CZRMACO)% GE
&,EBY THE RMO3 FORMATTER PROGRAM
WRITE A NEW
Pncx ‘W’
urogg ? ?onscOTHERD T0
COMMANDS
ARE xssuso
s':c
HAS
BEEN
WRITTEN
BY
ANY
PROGRAM’
omcn mau THE FORMATTER.

831

SEGQ 0017

mm PATTE

827

830

PAGE 18

WO<CR> - GENE

859

EO2

THE 'W’ commo

ns A SEQUENTIAL WRITE OF THE

PACK mm } E ?n E%DATA Prmenn

832
833
834
ggg

USED
EACH WRITE IS SELECTED
HOWE VE
THE
OPERATION
OF
THE
COMMAND
%
ousmmc.
ascxmdnc
AT 'M NCYL' 'nmmx' AND CONTINUING 10 'MAXCYL'
"MAXTRK

837
ggg

THE 'W’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES
THAT THE FORMAT OF THE PACK IS GOOD.

840
841
842

THE "W’ COMMAND cnmor BE STARTED IF SWITCH O (RERD
ONLY MODE) 1S SET.
IF SWITCH o 1S SET DURING THE
opsmnon OF THE ‘W’ COMMAND, THE DRIVE PERFORMING THE

gga
845
846

gg;

COMMAND WILL IGNORE THE SWITCH.

4.4.5

'R’

COMMAND

ggg

USED TO PERFORM A SEQUENTIAL RERAD OF THE PACK.

ggé

FORMAT:

EEE

853

N = DRIVE NUMBER.
MAY BE 0 TO7 OR "A’.
ENTRY MUST BE
TERMINATED BY A CARRIAGE RETURN <CR>.

856

EXAMPLE:

8c9
32?

NOTES:

ggg

862

ggg

RA(CR> - READ THE PACKS ON ALL OF THE ONLINE DRIVES.
RO<CR> - RERD THE PACK oON DRIVE O.

863
ggg
B6E

RN<(CR>

4.4.6

'WT’

THE PROGRAM WILL PERFORM
A NORMAL CHECK OF ALL DATA
READ.
HOMWEVER, ALL OPERATIONS WILL BE SEQUENTIAL.

THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS

SPECIFIED BY 'MINCYL',
BY 'MAXCYL', 'MAXTRK'.

'MINTRK® TO THE RDDRESS SPECIFIED
THE RERD WILL BE SEQUENTIAL.

COMMAND

£ES

USED TO PERFORM A SEQUENTIAL WRITE PACK AND FOLLOWED BY

ge7e

FORMAT:

2;‘1’

A"TEST" COMMAND

WTN<CR>

EERMBE-P11"

372_PERF E
21-Nov-

§§RIS:3N

MARCY11l

30(1046)

22-Nov-77

10:06

FOe

PAGE 19

cmmc';’f RETU&N (CR>.

M= DRIVE

EXAMPLE:

NUMBER

O TO 7 OR "R".

SEQ 0018

ENTRY MUST BE TERMINATED BY A

WTA<CR> -WRITE ALL PACKS AND TEST ALL PACKS
WTO<CR>-WRITE PACK O AND TEST PACK O

GENERAL COMMAND INFORMATION
A.

CONTROL-C MUST BE ENTERED BEFORE

ISSUING ANY COMMAND.

T,R,W AND WT COMMANDS nn; EXCLUSIVE TO ONE ANOTHER

oN tHE SAME DRIVE

TESTING.

DC
MUST BE
ENTERED IN ORDER TO SWITCH COMMANDS
AMONG T,R,W AND WT .
C.

S COMMAND CAN BE ENTERED ANY TIME DURING THE TEST.

THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS
RESPONSE
PUNIT N OFFLINE
PUNIT N NOT ASSIGNED
PUNIT N ALREADY ASSIGNED

2UNIT N NOT PRESENT
"UNIT N UNSAFE
"UNIT N NOT AN RMO3

COMMAND (S)
T,
D,
T,

T
T,
T

W,
S
W,

W
W,
W,

R,MWT
R,WT

RIWT
RLWT
RIWT

15:34

22-Nov-77

10:06

GO2

PAGE 20

SEQ 0019

PERFORMANCE SUMMARY TYPEOUT

S.1

BE?NG gxsncxség
u:x SE §¥snn'gugo AUTOMATICALLY
Rsouggr
BY T sumagv ré%n
Rouse c“r'
M
T T CONTRINS
r:'?ououmc
T ,g} commwo'm“':DON
FIELDS:

WILL

g
Sibns
*SEEKS’®

THE
THE

* HARD"

*MISP

'OTHER’

TOT
TOT

FOR THE DRIVES

WRITTEN AND READ BY THE DRIVE
READ BY THE DRIVE

MR R OF PN BATA
DAL RSERRORS

R OF POSITIONING ERRORS

THE TOTAL ERRORS OF OTHER TYPES
ERRORS EM

EM3,

EM4,

$ne 'omsfi' ESSOR TotAL.

§.2

SOFT/HARD ERROR DEFINITIONS

$.2.1

HARD ERRORS

he o
et et AR BTN porve
T
R OF
OPESRT ONS THE DRIVE PERFORMED

*WRDS XFER'
*WRDS
READ’

NOTE:

nvn

A 'DTE’ (DRIVE
NHICH OCC¥RE

NOT

EMS,

3 EMIO ARE NOT INCLUDED IN

TIMING ERROR) OR R 'DCK' (DATA CHECK ERROR)
é
NG
R _READ DATA
RERD HEADER & DATA OPERATION

CORRECTRBL
OR

21-NOov-7

e Bt Bt Pt Pt Bt Pt Bt

D OO DD DD DDD
8\0\9
0
rururun
oI

NONLEw
LWN—-OODONIICN LWh—-0O

P11

MACY11l 30(1046)

RMO3/2_PERF EX =

¢
c

NOT BECOME CORRECTABLE AFTER THE PROGRAM

ON THE BAD SEC TOR.
D THEE
CETEE
S 6 895
RY SEQUENCE
R TRY S
AT
_TRACK CENTER AND 2 ATTEMPTS
OTH AT POS IVE GflTIV FSETS:

$.2.2

SOFT ERRORS
A.

B.
C.
o

ECC CORRECTRBLE
' DCK’

'DCK’

ERRORS

BECOME ECC CORRECTRBLE DURING

RETRY OR
Hfllgflnggggg
CORRECTLY DURING RETR

HERDER
RE
HRITE DATA ORDE

DATA,

READ HERDER & DRTR

RRORS HH{CH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE

’DCK' ERROR DURING THE RETRY SEQUENCE.

CZRMBBO RM0O3-/2 PERF EXER

CZRMBB.P11

358

360
325

21-NOV-77 15:34

MACY1l 30(1046)

22-NOV-77

10:06

PAGE 21

SEG 0020

DATA CHECKING
& ERROR RECOVERY

6.1

DATA COMPARISON

965

DATA COMPARIS

32?

THE ORDER TERMINATED WITH NO ERROR.

953

THE OPERATION TERMINATED "17"163°¥§ gg;ogu?srsgggnnon

§§9
323

T* (READ DATA) OR 'RDHD’
(RERD ucaoe§ 230“82?”?
SntfHunsgggrue
FOLLOWING CONDITIONS:

6.2

974

975

g;g

VERIFICATION OF DATA WRITTEN

g;g

6.3

LBRRECTL
Y RF TER RETRY ATTERPTS.

arn

RIF nrzon 1

EITHER THROUGH READING THE WRITTEN

VE 3«0 ¥~2°"Ee 6nrn WITH ONE OF THE 1S PATTERNS

nnoucn xssuxnc WRITE CHECK COMMANDS.

SECTOR REFORMATTING

98]
3

380

FOLLOH
§(
ren "FORMAT' MUST BE SET AND SW<DO> = 0).
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED.

PR?GR“"asé

384
985

R.
5.

385
333
gg?

335
3;%
997
998

1333

DATA C
uenoe

ORMAT AN UNCORRECTABLE ERROR secron IN THE

cx sanons - EM2
- sneo

EM24,

5. OPtRA
"""x‘“ %;‘gis
Rk- puoe
Enag5

6.4

THE

YSTEM

TOMATIC BAD TRACK

u&uSExugjcaggavaY?é THE nuu§xoné . sxsngzssn RLLOHN _
ARRET E SRYTel?. 1O BB BRGYGRESTR bR ADA
YT oA

s
d
1NFBR AT TON S

IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY

THE OPERATOR,

ERROR.

THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT

1004

DRIVE

1003

OPERA ;on
INCOMPL E ERRORS (’OPI’)

0 0s

TIMING

ERRORS (’DTE’)

HERDER READ ERRORS (’FER’ 8 "HCRC’,

007

OPTIONALLY,

009

PROGRAM WILL

gi?

EM27

BAD TRACK/SECTOR FLAGGING

DATA CHECK ERRORS (°'DCK’)
WRITE CHECK ERRong ("WCE’)

008

EM26,

22
WRITE
5u£cx"2

1001
1002

006

EM2S,

AREAS.

'HCE' 8 'HCRC'’,

"HCRC')

THE OPERATOR MAY REQUEST AN snnon REPORT ron FLQGGED

(PARAMETER 'NOTPRT' MUST

BE SET TO O AT STARTUP.)

THE

IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE Pncx

EnngagWILL NOT BE RDDED TO THE ERROR TOTALS MARINTARINED BY THE

THESE

CZRMBBO_RMO3/2_PERF EXER

CZRMBB.P11
}gig

21-NOV-77

15:3

MACY11 30(1046)
.

1014

1015

22-NOV-77

PAGE 22

SEG 0021

ERROR MESSAGES

ORTED ON THE

1016
i2is
1853

TELETYPE

1022

snaon

1024
iggg

POS

1023

7.1

MADE UP OF SE nL LINES.

scnxaxnc

ERROR DESCRIPTION LINES

iggé

THE LINE PRINTER (IF RVAILRBLE) on THE T

DISPLAYED

snx

EM2,

EM3,

ON'THE TTY.

EMY,

EMS,

EM10,

'THE OTHE nzssnbs

EM11,

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.)

1035
1036
1037
1038

MESSAGE
TAG
-

EM1

1041

EM2

EM3

1051

MASSBUS PARITY ERROR (MCPE=1)
DETECTED

INDICATED

EMY

A CONTROL BUS PARITY ERROR WHEN READING

MASSBUS PARITY ERROR (PAR=1)
THE INDICATED RMO3
WHEN THE RHI1 LORDED

EMS

iggé

1065
iggg

CLERRED.

UNEXPECTED ATTENTION OCCURRED

Tflf RH11

1056
iggg

i823

INTERRUPT OCCURRED (RMAS=Q)

THE INDICATED 33§v§ INTERRUPTED BUT THE DRIVE WAS NOT
PERFORMING AN
RATION.

1825

iggg

RH11

(RMAS)

1046
ig:g

iggg

TEXT
bbsnd

THE nuxbnénrennuprso AND THE ATTENTION SUMMARY REGISTER

}8..“%

iggg

8 EM12 ARE ALWAYS

nnt DISPLAYED ON EITHER

{833

THE

? N§§ WHICH MAY APPEAR ARE GIVEN IN u:
ARTICULAR ERROR HEADER.

n% SAGE

}833

EACH TYPE OF snnon

TI INES uuxcn MAY APPEAR WITH IT. ALL

1073

1030

OR (IF AVAILABLE)

xus annr
05 CONDIT oug Eas PORTED IN ERROR ME
S;
s !gsw
I € Fagencmorel
S
ocggn
HAS occCSTOED SO 3T
ceurngf PROCESSOR
FRILURE HAS

1021

iggg

10:06

102

ADDRESS PLUG CHANGE BIT SET
THE

EM6

DETECTED A CONTROL BUS PARITY ERROR
THE SPECIFIED REGISTER.

'OPE’'

BIT WRS SET WHEN THE INDICATED DRIVE INTERRUPTED.

RH11 DIDN’T RESPOND TO RDDRESSING

WHEN THE PROGRAM ADDRESSED THE RH11,
FROM THE INDICATED ADDRESS.

NO RESPONSE WAS RECEIVED

CZRMBBO RMO3-2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34
imosq

MACY1l 30(1046)

@22-NOV-77
EMIO

1070

EM11

1078

EM12

EM13

A PREVIOUS,

PERSISTENT DEVICE UNSAFE

OPERATION NOT COMPLETED WITHIN TIME LIMIT

EMIY

T COMPLETE THE OPERATION WITHIN 1 SECOND

UNIT WENT OFFLINE

THE DRIVE
(THE 'MOL’

1095
iggg

WENT
BIT

OFFLINE DURING THE INDICATED OPERATION.
BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY

DERSSIGN THE DRIVE.
me OPERATOR MUST RERSSIGN THE DRIVE
WITH
THE 'T' COMMAND TO RE-INITIARTE
TESTING.

EMIS

1100

NO RESPONSE TO PORT REQUEST

HE PROGRAM x§ ”ssnm A DUAL PORT DRIVE WHICH HAS NOT SWITCHED

1101

To THE nso&'s ING

i 85

O THE DRIVE

EM20

PORT WITH n 10 SECONDS AFTER PORT REQUEST

FROM THE PO TING PORT.

HEADER CRC ERROR

1106

A HEADER CRC

1108
1109
1
1
1
1
1
1
1
1
1
1
1
1
1
1

BE RETRIED

3 TIMES.

DATA CHECK

(’DCK’)

1107
PUNUNUN
e 5t 5t et st Pt Pt et Pt ot
W—-DWONCNLWNN—-0O

DIFFERENT PARITY ERROR.

nfisg“*& o&gm ION WAS INITIATED.

1093
1094

Bt Bt Bt Bt Bt Bt ot Pt et e Bt Bt ot Pt Bt Pt Pt et Pt Pt ot Pt et et

aus PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED

Exsncg
E CONDITION HAS BEEN
mmaL xmenv:mxou

} 3“5

PROCESS

g ggn uusars onxvs CLEAR TO THE DRIVE DID
g
TION. m: PROGRAM WILL
nurom %v
IVE. THE DRIVE CANNOT

1088

}833

INDICATED

FATAL MASSBUS PARITY ERROR
TO

1083
ioe"oes

iggé

SEG 0022

UNCORRECTABLE MASSBUS PARITY ERROR

cgg

1080
1081
1082

1839

PAGE 23

ig;g

ig;g:

Jo2

THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE

iggé
ig;a

10:06

ERROR

WAS

DETECTED AT THE

INDICATED DISK ADDRESS.

THE CONT ms 5 ?ae uénoen ARE DISPLAYED.

EM21

THE OPERATION WILL

ERROR

A DATA CHECK ERROR WAS DETECTED AT T HE INDICATED SECTOR.
THE FULL
RETRY SEQUENCE (INCLUDING O FF SET) WILL BE INITIQTED
;gflsgue SECTOR IN ERROR IF THE ECC HARD ERROR (’ECH) BIT
EM22

WRITE CHECK ERROR - DATR CHECK

(’DCK’)

SET

unmf' CHECK ERROR OCCURRED AND THE DATA CHECK
A
(’DCK’) BIT
F 'ECH’
1
o SET,
THE OPERATION NILL BE RETRIED
'ECH’ BIT IS SET, THE OPERATION WILL
0 3 TIMES; 1 F THE

BE RETRIED UP'TO 16 TIMES.

RMO3/2_PERF EXER

P11

JRR 2R OB 0 TN ol B0 YA LR B5d STt £ oo & D8 W
Y~ RRTERCETRNRNY

21-NOV-77

15:34

22-NOV-77

EM23

EM2Y

KO2

PAGE 24

SEQ 0023

WRITE CHECK ERROR - DATA CHECK ('DCK’') NOT SET

Rofs icy

YoN WILL BE RETRIED 3 TIMES.

HEADER READ ERROR - 'FMT' B1T DROPPED
TE

TR lfl TE

mgs

EM2S

IMILAR_TO EMeM, EXC PT THAT THE

‘HC C'é

DISPLA

nnEL
N NN NNNNO
OO OO
o O o NNN

FE OPERATION WILL

"HCE' ERROR BIT_WAS

SPERQTION 'I?L RETRIED 3 TIMES.

FORMAT ERROR (’FER’)
FORMAT

EM30

ING

HEADER READ ERROR - HEADER COMPARE ('HCE’) ERROR

EET IfNIT IALLY.
EM26

BIT WAS SET TFE

79 OR R REM DATA WAS

DISPLFIYED.

TR ED 3 TIMES.

EM27

4N
O

10:06

A WRITE CK
zmg 08 2& ' DCK’ Mg NaT"‘ ERRO&i

B 5t Bt Bt ot Bt Bt e Bt Bt s B Bt Bt Bt Bt B Bt Bt Bt Bt s Bt ot Bt Pt ot Bt Bt o Bt Bt Pt Pt Bt s Bt Bt Pt Bt Bt Bt Pt Pt Bt ot Pt Pt s Pt Pt Pt Bt Pt P
Bt Bt Pt Bt et Bt Bt Bt Pt et Pt Pt et Bt Bt ot Bt Bt s et ot Pt Pt et Bt Bt Pt Pt et et et s ot Pt Bt et Pt et s Pt s Bt

MACY11l 30(1046)

oa
OCCU!Rgg

THE HEADER WAS RE-READ,

THE

CONENTS OF THE HEARDER RARE

THE OPERATION HILL BE RETRIED 3 TIMES.

HERDER COMPARE ('HCE’) ERROR
IMILAR

M26 _EXCEPT THAT THE

bPE?ISN WILL

'HCE'

RETRIED 3 TIMES.

BIT WAS SET INITIALLY.

MISCELLANEOUS DRIVE ERROR
THIS MESSAGE 1S GIVEN FOR THE FOLLOWING ERROR BITS:
"AOE’, 'RMR’, 'ILF’, OR 'ILR’

EM31

OPERATION INCOMPLETE ('OPI’) ERROR
SECOPERGTIM INCOMPLETE ERROR OCCURRED AT THE INDICATED

EM32

DRIVE TIMING ('DTE’) ERROR

DRI:ETTIHII?LERROR 0?2%58% THE INDICATED SECTOR.
L BE RE
TIMES.
EM33

PARITY (’PAR’) ERROR AFTER OPERATION STARTED
THE
'PAR’
lfléé gs
OPERATION H LL

EM34

N THE OPERATION WAS COMPLETED.
3 TIMES.

WRITE CLOCK FRILURE (’WCF')
A WRITE
CLOCK FAILURE 0CCURR$D DURING THE OPERATION.
OPERATION WILL BE
RETRIED 3
TIMES.

EM3S

THE

INVALID ADDRESS ('IRE’) ERROR

THE

RMO3-/2_PERF E R
P11
21-NOV-77
15:34
ol el

EM36

EM40

PRGE 25

SEQ 0024

WRITE LOCK ("WLE’) ERROR

RH11 OR UNIBUS TRANSFER ERROR
' TRE'
S&T IN THE RH
;RROR
MS m

MES

EMY1

CONTROL REGIST
RRTIM WILL

D BY 'DLT",

"UPE’,

1
ED 3

"MXF',

BUS ADDRESS OR WORD COUNT INCORRECT

VE E
T E
RT
S _INDICATES
el .
INCORREST HURGER
U
LOKDS
WERE
TRAWSFERED
OR THE
IS MT ZERO.
T REGISTER

EM42

DATR COMPARE ERRORS - NO DRIVE ERROR DETECTED
NOO&YSTEH ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT
.

EM43

CAN’T MATCH DATA READ WITH A PATTERN
Tr‘ Eflffl IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD

PATTERNS.

EMYY

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11

Hégn COMPLETED NORMALLY: HOWEVER,
OPE

ms D £l

& gkt

LO2

Eociflkési OPERATION WAS ATTEMPTED BUT THE DRIVE WARS WRITE

EMYS

EM4E

ECC LOGIC FRILURE

B S ST

HE PATTERNAEISTEga( fllflg gROS

BUS RDDRESS OR WORD COUNT NOT CONSISTENT

TE
EMSO

gE
AS

SEEK INCOMPLETE

NOT USED

RROR AND FOUND THAT THE
CRTE? g THE _BUS RDDRESS

WITH THE TRANSFER COUNT FROM THE

ERROR

THE DRIVE SIGNALED EITHER 'SKI'
EMSI

THE PROGRAM

ERROR BITS IN THE RMO3 SET OR ERROR BITS IN

GTR S

10:06

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION.

OO NNLEWNN—-0O

22-NOV-77

el
e

s Pt Pt Bt P
s Bt Bt Pt s

el ol el el e el el el el

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

Bt Bt Bt Pt Dt Pt Bt Bt Bt et Bt ot

MACY11l 30(1046)

Bt P

38 SFogaRos SBIRRLON2B3BIRRELR2B

Pt Pt Pt Pt

¢
c

OR 'OCYL'

ERROR BITS.

2et

rororon

CZRMBBO RMO3/2 PERF EXER
21-NOV-77 15:34
CZRMBB.P11

MACYL1l 30(1046)

22-NOv-77

10:06

MO2

PAGE 26

SEG 002s

THE INDICATED DRIVE UNSAFE ERROR OCCURRED;

CLEARED BY A 'DRIVE CLEAR’
7.2

TT:TT:TT

(DESCRIPTION OF ERROR)

'TT:TT:77’

IS THE_TI

MINUTES:

SECONDS.

WAS ;TNT;E.

? NCE THE PROGRAM

TT:TT:7T

GIVEN IN HOURS:

PREVIOUS ORDER = YYYY’

*PRESENT ORDER = XXXX

MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOMW:
ORD (OCTAL 3)

gv“-%&\échs:t?(ocm.1

Bt Bt P

[

THE ERROR WRS

THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY.

§T':‘gi&.im (OCTAL 17)

o Bt ot ot ot Bt Bt Bt et B

t\\‘»mmmmm
2=(=]
8 D0 SYRBIER S g3

INSTRUCTION.

DETARIL ERROR LINES

N -

P “31-

TFNT -

SEARCH -

TRE

Lgav
fi“& - WR

Bt Bt Bt s B
e Bt Pt Bt

Bt 5t Dt e

DEVICE UNSAFE

EME0

ot ot Pt s P

&8 = 32

un
nL

Pt Pt B Bt Bt et s s s ot o

s Pt Pt ot Pt s B

e
3)
( c?‘fl.

(OCT

T c&?n ucg) (OCTAL 43)

TDAT

31)

(OCTAL 41)

IVE
CK
gx
A

(OCTAL 45)
DATA (OCTAL
R & DATA (OCTAL 53)
1)

umu:T) - WRITEDgr%cott 72“71) DATA (OCTAL 63)
- § usnoenoi gim (OCTAL 73)

(DISPLAY OF THE RH11/RMO3 REGISTERS IN TWO GRO
ng
Efi
nncsa
ng 5?'“5 %Rnng g
an nneca r nn THE FIRST

v;S

QYED )

T, ONLY

srs S IN me Ems
cnoup WILL BE

THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING

RMO3/2_PERF EXER

.P11

21-NOvV-77

15:34

NO2

PAGE 27

SEQ 0026

e B oo e s o Bes b

AR AR

LINE WILL

BE PRINTED

IF A DATA

.'mgogcxWH cno#l'-rgog:éaegm HJENT]
Poso

URES
AT AN ADDRESS

NG BAD. PARAMETER

conaorli?g‘?m?flo% BEnPIPY
RS riéEmion (A8 pROCEESEDBy
T
NE. n: ans xu THIS WORD ARE
E

1
f

RS F

BIT »

CletS b

10:06

'# ERROR AT BAD TRACK/SECTOR’

1
1

@22-NOV-77

THE NON-DATA TRANSFER PART OF THE OPERATION.

MACY1l 30(1046)

MEANING IF BIT xs 'y

{
igi?

ER o O?CUT'Io=0), BITS 14-9, 2, 1 SPECIFY TYPE
88‘5 g§m?-n BITS -3 QPECI}Y TYPE

igig

DRIVE 1S OFFLINE

igig

UNCORRECTRBLE PARITY ERROR OCCURRED

1318

rnmg m'grv

1:.aaaax[J

OPERATION NOT C

{319

1322
iggg

1325

iasaa?E
1325E.qi

‘

PERSISTENT UNSAFE CONDITION EXISTS

WAS

RROR OCCURRED.
D

MASSBUS CLEAR

TED WITHIN 1 SECOND

MASSBUS CLEAR PERFORMED.
ALL OTHER
OUTSTANDING
OPERATIONS WERE RESTARTED.

DONE - OPERATION COMPLETED

DATA ERROR OCCURRED DURING THE TRANSFER
ERROR occum&mmu&gsmcnmc FOR THE ’'TRANSFER’

i}};

CORRECTRBLE UNSAFE CONDITION OCCURRED

133*?

oaxvs ERROR OCCURRED THAT CAUSED AN AUTOMATIC

H;fi:

RECAL IBRATE

AL IBRATE OR OFFSET COMMANDS

SEQUENCE

PORT REQUEST TIMEOUT

NON-EXISTENT DRIVE REQUESTED

s
¥

1
1
1
1

Ww
W
£L
£
NOCNEWw-0O

1
1
1
1
1

1335
1336
13

SECTOR OR

ERROR AT CXXX TYy SZZ

PREV RDDR = CUUU TVV SWW

THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS

DISK ADDRESS ARE GIVEN IN THIS LINE.

CYLINDER,

TRACK,

RMO3/2 PERF

e ROVERER 5. 2y

Cprnoa7e

[ SV W R )

MACY1l 30(.0N6)

10:06

PRGE 28

SECTOR ADDRESSES ARE

gé Pfige
HIS

IN DECIMAL.

PRESENT ADDR = CXXX TYY SZZ

PREV ADDR = CUUU TVV Sk

NTIFIES THE ADORESS WHEN THE EPROR WAS o:rzcrso

u ooec?o
GIVEN. CYLINDER, TRACK

SECTOR

START CYL = XXX END CYL = YYY

Ad A
. RO

i%;é

22-NOV-?7

THIS L

NTIFIES THE STARTING CYL INDER

A SEEK

(IMPLIED)

AND T&&é%?fl*lsfl CYLINDER. CYLINDER ADD
RESSES RRE IN
[}

e RO

LINE &

START CYL = XXX

END CYL = YYY

RACTUAL CYL = 222

1373
1374

THIS anz x nrxrxss rus srnnrxnc chxnoen OF AN IMPLIED SEEK,
rugpgg
YLINDER, AND THE CYLINDER THE DISK ACTUALLY

1377

LINE

1379
iggfil

RMBA = XXXX

1375

1382

W
@
N

1 383
1 ggg
1
1 386
1

BAT:

chxnoen RDORESSES ARE TN DECIMAL.

rnxs LINE cx
REGIS

RMWC = YYYY

NOT pnxurso IF

S THE coursnrs or THE RH11 BUFFER ADDRESS
Hg oé
Rscxsrsn.
THIS LINE IS

SW<0S>

IS nor se

LINE 8

1388
1389

START CYL = XXX

139

1391

THIS

1394

1395

N
LINE
9_

1397

RMDA = XXXX

1299

AODRESS RECISTER AKOCTHE RONTENTS Sehiog JRACKAND.SECTOR

13%

1400

1401

1403

START TRK = YY

LINE IDENTIFIES

THE

START SECTOR = 22

STARTING DISK ADDRESS OF THE PRESENT

PERATION. [OEVL INGER, | TRACK AND sEaTer DRRESS O THE RE

HIS

RMCA
= YYYY

LINE GIVES

ADORESS REGISTER.

;

THE CONTENTS OF THE RMO3 TRACK AND SECTOR

THIS LINE IS NOT PRINTED IF SW<OS)

IS NOT

SEQ

0027

CZRMBBO RMO3-/2_PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY11l

22-NOv-77

30(1046)

10:06

CcO3

PARGE 29

SEG 00ce

{a8e
B B Bt Bt Bt e e Bt s Pt Bt Bt Bt Bt Bt bt Pt s Bt Bt e Bt B Pt s Bt s Pt st e —

L£LLscx £
S&I&l&&‘&&‘fil&&‘&“&‘&‘l
PUMUNUNY
N N 0= e e pes Bt P s Pt Pt P
BURRELR-EE ~N
8

1406
1407

BUFFER ADDR = XXXX

GAEeR] Talh
OCTAL,

SIZE = YYYY

ek e

THE SIZE AND

GOOD DATA = XXXX

POSITION

TR A 9 I

TRANSFERED VALUE ARE

BAD DATA = YYYY

THIS LINE GIVES THE GOOD DATA,

AND THE

ACTUAL NUMBR WRDS XFRD = 2222

SECT POS = 222

THE ACTUAL DATA FROM THE DISK

LOCATION IN THE SECTOR
OF THE ACTUAL DATA.
IS IN DECIMAL.

THE SECTOR

HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX
THIS #Il‘f GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH

GAR

HE ERROR.

RMEC1 = XXXX

RMEC2 = YYYY

THIS LINE WILL BE PRINTED AFTER ? gU C ESSFUL RETRY OF A SECTOR
R RETRY.

WHICH BECAME ECC CORRECTABLE DURING

ECC CORRECTABLE WITHOUT OFFSET
THE SECTOR IN ERROR IS ECC CORRECTABLE;
NECESSARY
.

NO RETRY ARTTEMPTS ARE

READ CORRECTLY AT (NEG OR POS) OFFSET
T

CTOR

IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED

oFFsE VALuE'

E (NEG OR POS) OFFSET
ECC CORRECTABLAT

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOv-77 15:34

£L
~o
ocw

£E£LE
oo
ne

o—.—.—;.—no—o—
£& £8

1460
1461

MACY11

30(1046)

22-Nov-77

10:06

PAGE 30

SEG 0029

BPESE$CTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED

CORRECTED ON X RETRY
TH? OP$RQTION WAS PERFORMED ERROR FREE ON THE
ATTEMPT.

INDICATED RETRY

UNCORRECTRBLE AFTER X RETRIES
THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE

INDICATED NUMBER OF RETRY ATTEMPTS.

DIFFERENT ERROR DURING RETRY
WHILE THE PROGRAM WAS RETRYING THE ERROR,

A DIFFERENT OCCURRED.

IF THIS LINE 1S PRINTED, THE RH11/RMO3 REGISTERS WILL ALSO BE

PRINTED (SEE LINE 2).

DATA COMPARISON ERRORS

TOTAL COMPARE ERRORS = XXXX

THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT.
VALUE GIVEN IS IN DECIMAL.

THE DATA COMPARED OK

THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING
ECC CORRECTION.

et B
Pt B

THE

LINE 22

s Bt Bt

GO
AL R
m&wn»—-oog
\188?(."\”~83

W
£

1498

s Bt Bt Pt Dt Bt Bt Pt

A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE.

ECC CORRECTION RESULTS

CZRMBBO _RMO3/2 _PERF EXER

15:34

STy ey
Y ST

EO3

SEG 0030

PRAGE 31
TS ARE REPORTED.

THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ’'DCK' ERRORS
WHICH ARE ECC CORRECTRBLE OR WHICH BECOME ECC
CORRECTABLE DURING

s27

RETRY,

DECIMAL.

S 30
S 31
S32

T S

'XXX' IS THE WORD OFFSET VALUE FROM 'RMECL’ AND IS IN

LINE 25

covecens

ERROR WAS NOT IN THE DATA READ ECC CORRECTION CAN'T BE PERFORMED

ggg

THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY.

S38

LINE 26

E:é

CONTENTS OF THE ERROR SECTOR (REPORTED RBOVE)

el el

533
égg

T e

?H(03>IS SET

S43

1544

'UC

THE

SECTOR WHICH GAVE THE 'DCK', "OTE’ OR,

TA CHECK ERROR IS PRINTED.

ig:g

CONTENTS OF THE SECTOR FOLLOW THIS LINE.

1547

LINE 27

igg?
1552
Bt Pt Bt

Ega

SSS

e Pt Bt Bt B

ggg

oo,

ORDERS: WWW

ERRORS: X

WRDS XFR: YYYY

THE

WRDS READ: ZZ2ZZ

THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING
TYPE ERRORS.

*ORDERS’ IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE

WHICH REPORTED THE ERROR.

'ERRORE &S T§ TOTAL
ERROR COUNT FOR_THE DRIVE AND INCLUDES
EVERY ER
~TECTED, REGARDLESS OF TYPE.
'WRDS XFR’' IS THE TOTAL NUMBER OF WORDS WRITTEN AND REARD BY
THE DRIVE.

*WRDS READ'

IS THE TOTAL NUMBER OF ..°RD RERD BY THE DRIVE.

—

Be B

Bt P

e B

s Bt Bt

nLw 3
NyToreo
W00

Ss8
SS9

IHEEgORO(S)

ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR

10:06

WORD
THE ADDRESS IN MEMORY OF THE
BEFORE CORRECTION AND THE WORD(S)

Sag

22-NOV-77

THE PROGRAM PERFORMED ECC_CORRECT

WO
W I

21-NOV-77

RSgmm.- e

CZRMBB.P11

MACY1l 30(1046)

ORDERS: WWWW TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI ERR = Z
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS.

0_RM03-2 PERF EXER

1572

Bt Bt Bt Pt Pt

i
[ 0 I B
|
OWwm o

5
74
's

e OvErS 15 3y

MACY1l 30(1046)

22-NOV-77

\ORDERS®

REPORTED

10:06

FO3

PRGE 32

e N

1S
THE TOTAL NUMBER OF ORDERS GIVEN TO THE DRIVE WMICH
THE

'TOTAL SEEKS’
BY THE DRIVE.
'TOTAL _SKI

ERROR.

IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED

ERR'

IS THE TOTAL NUMBER OF

SIGNALED BY THE DRIVE.

'SKI'

ERRORS

CZRMBBO RMO3-/2_PERF EXE

CZRMBB.P11

1581

1582
1583
isew

15536“

21-NOV-77

15:34

MACY1l 30(1046)

@22-NOV-77

10:06

GO3

PAGE 33

PROGRAM DESCRIPTION

8.1

PROGRAM OPERATION

SEG 0032

emmeeeseeccceeeaea

THE PROGRAM IS smmo PROVIDING APT TTY ENABLE BIT IS SET

i§°7

OR ox

189]
1892
1593

mc'r'f
TE
E IS
\
é-L
oe KiWl1-P' CLOCK 'Bg'r'm'mrso
WHEN "‘5? nc?&
EN COMPLE
PROGRAM TYPES OUT
*PROGRAM INTIALI C#LTE’'. COMMAND’ smnxss WILL NOW BE ACCEPTED

iggg

THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES,

1532
1590
igg

uros'n''EosL
Ear |I'\r ENTRY cflu*n&. &E éw:cx D FOR vm.x ITYi AND .
c
TENCY. RH1 xm;m% §ma.£("IE’) IS SET,

BY THE PROGRAM

1538
1599
1600

1601

iggg

1604
1605

Yog uRrTuW nst sgRIPT %’Em. ”r‘neumflzs AND

LOOKING FOR:

10 ns IGN/ a?-sxcu
T REQUESTS
mmnnou BUFFER ASSIGNEMENT,

hsc

IVES C

CURRENT OPERATIONS.

THE PROGRAM comxru
IN THE CASE OF

SCANNING ITS TABLES
AT INITIAL START,

iggg

BE MADE BY THE

1608

1609
1610

g‘%s&?&
hno;,
NLINE. THE ASSIGNMENT ROUTINE
i n%g;
xnsmucnou SETS 'FMT22°', AND ISSUES

1614

%sfi

1620

161
1613
1615

115
i%ig

1621
1622
1623
{ES;
1626

RATOR WHEN A

m. AN ENTRY IS FOUND.
THE FIRST ENTRY WILL

GNED,

LECTED

A BUFFER IS ASSIGNED.

LED uxm me

(WRITE CHECK ORDERS ARE

WILL

ség“
m'5' :35..% onoe"g THE ASSIGNED BUFFER

s 56

mn
°'§

NITIA

ROUT

FIRST

AT THE CYLINDER ADDRESS O

?" }'fio{ '&3:& mgt SEEK TO
THER CYLINDER TO
PROGRAM ISSUES A ssmcu INSTRUCT
ION
"fm T*' SECTOR WHICH ;s %crons sm:.x;n
n: SRIVE u‘c HES
e
NT DRI
o£°o%.'1én‘“*‘
HING %‘vgrm&’f" CTORS. ALL g&xs ISSUED BY

1634

mnnsrsn

136

foaleh
SRR?f'mnon
T TGROUTINE.
G BeSR e I
T e IEE i
o 70 ?rcCOMMAND
x
of:aive
FI REGIS

1632

THE xsvaomo ENTRY ROUTINE VERIFIES THAT THE

C{BRaTeron m:

1627
1628
1629

i‘:fi?
1632
1633

DRIVE IS ASSIGNED (°T° COMMANC).

K ggmcu op;mnous.)

N A SEARCHING
cYA) OFnr? N INTE
EW%ING
THE DRIVE
AM
READS
AND

mon
DISK WITH THAT OF THE DESIRED SECTOR
F
OTHER oax
ARE WA
va
so CHECK
THE
5?.mn ogsusg n%aseouesrgo
0 n To ne
NEAREST
INITIRTED.

1IF A DRIVE

SELECTED WILL uavs ANOTHER ssnncu

IS NOT SELECTED FOR TRANSFER AFTER TH

REVOLUTIONS or ITS DISK, IT IS GIVEN PRIORITY OVER DRIVES WHICH HAVE

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11

21-NOV-77 15:34

MACY11 30(1046)

22-NOV-77

10:06

HO3

PAGE 34

SEG 0033

xggg

NOT BEEN ON CYLINDER AS LONG.

1639
i :9

WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS
ARE STORED ANDA DATA TRANSFER 1S INITIATED FOR A WAITING DRIVE.

1642
1643

xr ms

%M THE ?wc

REGISTERS
ESS

1644
1645
1646
1647
1242
164

; T m uma
u TH
gr:
rm n ES m
mc

iees

RRORS
WHICH
NT
R
1" RA RTR
RoWeR. MULTIPLE

iggcla

nccx

DRIVE
11

CKE %
nxTmr°¥5
o HAT rgTWO REGISTERS
n
AD ORDER, THE
*s
c
TED, THE ORIvE
xvz mors
nss&scrstHENAND

REINITIATES ANOTHER on:mnou ou THE RELEARSED

}ggg

ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY.

168
1658

Psnsxsrsm unsnrs CONDITION - EM12
m TY mon - EMIO

1660
{Ef;f,é

OPE
ETED um-cxn nn: LIMIT - EMI3
UNIT usm OFFLINE - EMIM

1659

33
nss

igpa

1665

1666

ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY.

CORRECTABLE UNSAFE - EMBO

DRIVE 1IMING ERROR- EM32

1667

DATA CHECK ERROR

1668
1669

ITE

i£79
ig;g
1673
1675

CHECK WITH
R CRC ERRORS

DCK
-

SET - EM22

ol §
bes, e
fif..E"IECss POS nomnc
snngnRB E Senso
te EHeCKk 5@”
gg Ho3
03{03aug
rnen R - EMY0
o9
2 -B
35 IR- EE
nfisfl.mneous 55?35 ERROR - EM30

1676

2
1%
{sax

iggg

ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC.

1685
1686

US ADDRESS uono coum xnconnscr - EMY1
DATA COMPARE Dsg n?
;
non osrscvso - EM42

-1239

US ADDRESS on WORD COUNT NOT CONSISTENT - EM46

1687
1668
1EBS
1e92

CAN'T MATCH
DATA READ WITH A PATTERN - EM43
ERROR amsx SET,
BUT NO ERROR sxcrmso BY THE RH11 - EM44
CC LOGIC
FRILURE - EM4S
8.2

DUAL PORT OPERATION

E RMB

ZRMBB

RF EXE

P11“21-NOV-7? 15:34

22-NOV-77

MACY1l 30(1046)

1eas

w%‘

7
170

R§ 6

;‘}%n TRoF seT, "The

i70e

THE

OPERATION

DESC

PROGRAM RECEIVES
cISTER

MANNER (SEE

SECTION 8.1 RBOVE).

MAKES ANENTHY FOR THE ORIVE

N AN INT

- TABL
AR T'REQUEST
O PENDING:e
1 ERA HAS

/11

mx§ ERROR ME

1518

& 1

{»

7“ 4 u&g%: " fit%

-y
e O

nmu CONDITIONS
e PANTTY
_REPO
RTED
ON
THE
OTHER SYSTEM ‘A
Y)
THER
RATOR
|T“B£0g AWARE OF
E
T
_THE
gg*f&5
i“m “ ;&?
fic T. ALL
TIMES TO INTERPRET THE POR -

1714

718

1718

{718
1742

BFTER R

198%
17¢¢

WILL STORE

T o YA DRIVECTF
THE GPERATION

uim
“'&é THE 55?5NILL
8
NOBE
T RELEASED
aesk COMPLETE

1724

{72
17¢%
1788

8.3

UNTIL

OPPOSITE PORT ARE STILL
iéw-’»?(Bl
ILE
gprosiye
OR AT THE END OF port
ERROR ont
PROCESSING.
SNOTTION
G
HRS
NO
FUNCTIONA
L
EFFECT ON THE OPERATION OF TH
me on

i
@fi
ATED
ARELE. COMMARG
REE

1983

SELECTION OF OPERATION VARIABLES

ggLEgsf NI

1737

ADDRES

OGRAM W

1730
17u2

VALUES IN

OFF A MINTHUM
“%E" DRRESPONDING MAXC
MAXIMYL”UM ADDRES
S . THE

BETUEEN

ARTER T

RAND

ALL

MINCYL’

ADDRESSES

AND

WEEN "MAX'

AND 'HXN'

FROM

"MAXTRK® 1S

L
o FOR £SS § ;cnoflxzxflf E%gnjo?"?mcxsogsgsgs
FROM’ THE SELECTION AND SELECT AN RODRESS FROM AMONG AD

1743

k:g

on vg ss&crs AND RE

746

D
IN COMMAND SEQUENCE INITIRIBE
ATION

DENTICAL

IS AVA

1708
170

F_THE

1733
1738

SEG 0034

b i b,“’M"‘i .é.;-m%i%* e

1703

1735

PAGE 35

RATION

1695

103

?},’“kgg?gén??I‘.: Sxfienmé

163

1735

10:06

4 BTN
SE 15 Mn SELECTRD SR

0 D

THE

IN THE DATA PGRTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA
SSARY AS

THE PROGRAM REQUI

CZRMBBO RM0O3-/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY11l 30(1046)

22-NOV-7?7

i;;g

1751

i;gg
D

1758

1759

1761

1762
i;gg

1766

1767

1782
1784
1785
1783

1786
1787

s:u:creo AMONG m: 15 srmomo

»fi

mE 75 IF THIS

c:smsm
At

§n
xs ? orue
E&

"PAT

v
IATE mm

uLL fm

OR '3 ‘E

DATA PATTERN

§ SELECTED.

)

ms FIRST

g :E PATTERN

WRITE
.

CHECK

DATA AND WRITE

GRS 'FORMAT’
BT RPRARAMETER
nTe
}r THE

T WR7;

ADER & DATA (AND

5 PROGRAM sz#zcrs

r;syrs

S FORCED

RFORMED AFTER A urm 1S ASSIGNED W

IS NOT RANDOMLY SELECTED. ' gns &aflmersns

THE VARIABLES.

8.4

DATA PATTERNS

1S gn&or THE rogrn.oumc DATA PATTERNS TO

WHEN A WRIT

R I

LECTED.

THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM
c
S DATA ON A SECTOR BASIS: FROM THE FIRST 4 DATA' WORDS OF
EACH
SECTOR, THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING
PATTERNS.

PAT 1

PAT 2

PAT 3

PAT 4

PAT 7

PAT 8

000001

177776
177774
17777G
1777

000000

133331
1
1
1
1
1
1

026455
455
455
151322

066666
066666
066666
066666

177
1779
1
1
174
1
16
1M
18083

1
1
1
1
1
1
1
777277
1
1
1
1
1
1
1
1
>3
1
133331

4
1 xggs
4SS
1:|§
455
151322
6455

666
6
066666
066666
066666
066666
06666E
066
666

888&9;

000017
7

17727490
1777

177777
777277

1
1

15132
1

1772
772
17727
003777
7777
17777
037777
72277
177777

0000

133331

151322

%33

PAT 9

PAT 10

PAT 11

PAT 12

PAT 15

1801

000001

177776

172666

077777

1555558

167777

i;gg

1802
1803

1804

THE ENTIRE BUFFER IS FILLED WITH

1788
1790
1791
1792
1793
1794
1795
1796
1789

ORM A nuu ~-SECTOR ronmr

ron hc FIRST OPERATION ARE THE MINIMUM OR STARTING VALUE

i;gg

1777
1778
1779
i;g?

ug DATA WR neu xs

PA
rsm&‘

asa u
WRITE optm

1765

1774
1775
1776

SEQ 003S

moenz"
k

1760

1773

PAGE 36

Y THE VALUE

1756

1772

JO3

TO A PATTERN FOR DATA COMPARISON PURPOSES.

i;;g

10:06

377

000002
000004

000010

17777?S
177773

177767

155556
172666

137777
157777

455

177777

066667

1777727

177777

000000
000000

000000

666
666

066666

RMO3-/2_PERF EXER

P11

21-NOV-77 15:34

MACY1l 30(1046)

22-NOV-77

10:06

KO3

el
viss T
777
1
L;s
lggggg
177577
177377 1 ggg |77577

1807

i
1808
18093

177

1810

igié
1813
1814

777 i1;
}7 777
lg
157777 1;

6 7777
77?7

172666
1555885

181S
1816

SEQ 0036

PRGE 37

177677

177777
177777
3; 1777277

JL???S;
&ebb?
77797
77773
177775
177776

153333
06eeb?

177777

i77777
177777
177777
1777
177777

CZRM

RMO3/2 PERF EXER

P11

21-NOV-77

15:34

1817

1318

LO3
MACY1l 30(1046) 22-NOV-77 10:06 PAGE 38
9.1

1820
igsé

RH70(11)/RMO3 DRIVER
THIS DOCUMENT IS THE USER’'S GUIDE FOR THE RHM70/RMO3 DRIVER.

igga

9.2

TO INITIALIZE THE DRIVER:

1825

PC,RMINIT

T EXAM

13?
1830

NDICATED RS FOLL

1333
1

fgg?
1838
18
1842
1843
ie«
mng
184

18
»

LINE
?‘ ns
T AN
ésrem

DRVTYP
———

CONDITION
———
RMO3

-1

itggé

NOT AN RMO3

THE 'RMINIT’ ROUTINE WILL DO A READIN PRESET AND WILL SET FMT22.
9.3

AFTER THE DRIVER HAS BEEN INITIALIZED,

FOLLOWING SEQUENCE.
CALL:
JSR
RO,RMO3
nerum':é
RE
TORN
RETUR

{gg
i&.‘#

*DPB

1868

PNTOPB: .BYT

1869
1870
1871
1872

DRIVE
3n
tve

NONEXISTENT DRIVE

flgsx

1856
185
1858
1869
1861
1867
1862
1863

DRIVE STATE

T
T
S DEF
INED
BYTE LONG TRBLE TAGGED 'DRVTYP’.
r% gflmx conini D‘ons'%v 2ncu EnE AND IS INDEXED BY THE
DRIVE NUMBER.
ENTRIES ARE
E
LLOWS:

1850

1855

DRVSTA

.................

1835

1e~os“

TA” TABLE TO DETERMINE

vgm
ré'?on"?ss?flxg
THE OF'onvsm%aeLe
;E%
avr
n DRIVE. THE STATE
EACH DRIVE
ux

xegé

SEG 0037

IT IS CALLED USING THE

;MAKE THE CALL
:RPTLRN f1P QUEUE
QUELE IS FULL
:RETURN IF REQUEST IS IN
;oueg OR THERE IS AN
:ERROR

CONDITION

: (0)

DRIVE

(DATA PARAMETER BLOCK)

.gvr

‘BYT
TBYT
WORD

§
0
O

NUMBER

1(1) 8‘§F§Er VALUE OR FMT22, ECT, AND HCI

:(2) COMMAND
1(3) PSEL AND R17? AND AlE
1(4) WORD COUNT (MUST BE NEG.)

21-NOV-77 15:34

@22-NOV-77

10:06

1873

. WORD

1875

.BYTE

.WORD

1874
1

;;

1 ;g
18

1880
1881

CWORD

MO3

PAGE 39

SEQ 0038
s

: (10) SECTOR ADDRESS OR

iF R?T

1893

:(19)
;POINTS

igg

IDES

1387

1902

103

1402
1911

}Eig

1914

1915

fl:

FOLLOWING MANNER:

PC,RMTMR

nn.“gzg ONDS BETWEEN
3
BET

cnu. THE TIMER ROUTINE

VER WI

ro 1

aig BT TalncreR
ooy
9.4.1

EXAMPLE - WRITE 1000.

2s:

L_POSITIONING

dicySET eTamou 10

WORDS

e MOMOS

iWAIT FOR QUEUE IF

:ERROR OCCURRED

WRTDPB+16

gEIVE

1921

BYT

6“

{WRITE COMMAND

1
iqau

»
’“97

-1000.
WRTBUF

:WORD COUNT
-gurrgn ADDRESS

192
1928

"WORD
.WORD

900
ERRTBS

:CYL INDER
:ERROR TABLE

.BYT

-BYT

FULL

:WAIT FOR COMMAND TO COMPLETE

WRTDPB: ‘S’GE

135?

INT
OF TWENTY

ITY.

1315
191
iexg
lggs

T
Si
THAT v
T0
DRIVE THE
&oZROURABE
THE TEDEEAPsso
it"HosT Be IR M §8°Sm8.

SS OR

"5“&.»8..‘"v' ?rk “RM TIMER" ROUTINE

#16.,~(SP)
i

JSR

THE

TWARE T1

APSED TIME IN THE

ieqqm

1908
1906
i907

TO u; rfia ngnexl. TY Y

igg;

T
Tg

IS8R0
*
:‘g#&;fil&! "'%c&a%éfi“‘“‘
: x;'é{ B8IT06-B1T03

i
9.4

TRACK

:LAST REG
:(12)

;
:

180s
1883
i :

(B)

{REGISTER TABLE POINTER

xgs
1

1892

CZRMBB.P11

MACY11 30(i046)

CZRMBBO RMO3/2 PERF EXER

;DRIVE #5
:

TRACK

RMO3/2 PERF EXER
P11
21-NOV-77
15:34

MACY1l 30(1046)

22-NOV-77

10:06

NO3

PAGE 40

{

L.WORD

ALTERNATE DPB SETUP

has
1939
‘339
issq
1

WRTDPB:

isumx

1945

s R
1944

9.5
e

e P TR

-" WO
BYTE
.
.

;STATUS/ERROR INDICATOR

oy
.&T"Su;”'

55‘;&03{?’3&%750
:IN
A CLEANER rofir&fT

s TH

»oa.snmas.o

TUP ACHIEVED

RH70/RMO3 REGISTERS

MNEMONIC
et

1945
1946
1947
1948
1949

RMCS1
RMWC
RMBA
RMDA
RMCS2

1325

RMAS

1953
1954
1955
1959
195
1958
1959
1960
1961
1962
1963
iggg
i%‘?’

SEQ 0039

RMLA
RMDB
RMMR 1
RMDT
N
RMOF
RMDC
RMHR
RMMR2
RMER2
RMECI
RMEC2
9.6

INDEX

0
2
q
5
10

20
22
24
26
30
32
34
3%
40
42
v
46

COMMANDS PERFORMED BY THE DRIVER

}%9539

COMMAND

CODE

COMMAND TYPE

1970
{3"-,%

NO OPERATION

101

1973

UNLORD

103

107
111

P
N
P

{377'5“

SEEK

105

{gfi’
1982

RELEARSE

113

OFFSET

115

}:I:;,s,
ié;%
1983
1984

RECAL IRATE
DRIVE CLEAR

c
¢

RMO3/2 PERF EXER
P11
21-NOV-77
15:34

MACY1l 30(1046)

22-NOV-77

10:06

ou=

PAGE 41

SEG 0040

RETURN TO CENTER

117

i&g

READIN PRESET

121

{ggg

PACK ACKNOWLEDGE

123

1991

1992
im

131

GET REGISTER(S)

141

%gg

SET FORMAT

143

ig&?’

SELECT DRIVE

145

1399

WRITE CHECK DATA

151

)

2001
2002

153

2003
gggg

WRITE CHECK HEADER
AND DATA
WRITE DATA

161

gg%

WRITE HEADER & DATA

163

2008

READ DATA

171

Sgi?

READ HEADER & DATA

173

%fg
%ig

N ua%xsspxm
FER
8

gg{g

aegig

9.7

2020
2021
2022
2023
2024
BRSO
2026
2027

2 ggscm.
PROVIDED BY THE DRIVER

DPB STATUS/ERROR INDICATOR WORD

mxg INDICATOR WILL INFORM THE USER OF ue RESULTS OF THE REGUEST.
IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO
A ONE.
BIT NO
T

MEANING IF ON A “1"
ae————————

2028

ERROR OCCURRED

2031

14¢1)

2034
2035

13(1)

5833

12(2)

PERSISTENT UNSAFE CONDITION EXIST.

2040

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

R S

500233

sggg

DONE (BIT07=0); BITS 14-10 SPECIFIES TYPE
DONE (BITO7=1):

gggg

82&0228

BITS 06-03 SPECIFIES TYPE

QUEST FOR A FUNCTION TO BE

orruue OR UNSR}E DRIVE

USER MRDE A REQUEST FOR A FUNCTION
TO BE PERFORMED ON A DRIVE THAT HAS AN

UNLOAD

REQUEST IN QUELE.

CZRMBBO RMO3-/2_PERF EXER
21-NOV-77 15:34
CZRMBB.P11

22-Nov-77

MACY11 30(1046)

10:06

cO4

PAGE 42

SEQ 00M1

10(2) %)

FATAL PARITY ERROR.

9(3)(Y)

SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE

8(4)

SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

DONE

6(2)

ERROR OCCURRED DURING AN I/0 OPERATION

s(2)

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

3(2)

DRIVE ERROR OCCURRED THAT CAUSED AN
AUTOMATIC “RECALIBRATETM SEQUENCE

PORT REQUEST TIMEOUT.
YI:rE %‘{ESIEE%STED

PERFORMED aLL
ALL DRVACY'S

A MASSBUS CLEAR WAS

UES WERE EMPTIED, AND
O THE IDLE STATE'

o
deard b

s B

HITHIN
RELE%}V?FEJNIfi

SECONDS.

USER MRDE
QUESTED.
DRIVE
NON-E&STENT
~EXISTENT DRIVE.
A
ST FOR

AL R D oowos
bRy Ve O 1"
YO THE
TESHER" WEHTVERL PREM
REGISTERS ME SAVED

(1)

(2)

NOTE: ALL RH70/RMO3

AS PER DPB+14 BEFORE THE “DRIVE CLEARTM.

QSO%ST ?&kfi msmg:sss
EIPTIED

(3)

THE

BBRI W
4)

9.8

)

A "RECAL IBRATETM SHOULD BE ISSUED
BEFORE ANY OTHER COMMAND.

ERROR CALLS MADE BY THE DRIVER.
THERE RRE A

FEW ERRORS THART CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB.

DRIVER IT WILL MAKE
WHEN THIS TYPE OF ERROR IS ESTECTED BY’&HE
AN ERROR

CALL OF THE FOR

*N* IS THE ERROR

NUMBER AND THE ERROR HILL BE AN EMT’ INSTRUCTION.
N

TYPE

DATA AVAILABLE

MARCY11

22-NOv-77

30(104&)

10:06

DO4

PAGE 43

2097

RH70_ INTERRUPT

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

UNEXPECTED ATTENTION

0N £ o0 BB PR oS
R E ORI G
nn
~or

furufururuur LR DRV

V VYV

OCCURRED (RHAS=0)
OCCURRED

SEG 0042
#R4Y= RMCS1'S ADDRESS

Rl= DRIVE NUMBER
R3= ATA BIT

=RMDS
+2=RMER
:&
+4=RMER2
RRS+6=RMMR2
MRSSBUS PARITY
ERROR (MCPE=1)

RD.

SS
R IR DORBERE
AD

RERD

MASSBUS PARITY

ADDRE SS OF REG.
WRT.WD= WORD WR ITT EN
WRD=
WORD RE RD BACK

WRITTEN

ERROR (PAR=1)

OF REG.

VE NUMBER

ADDRESS PLUG CHANGE
BIT SET ('OPE’ ERROR)

%SB;;
ADDRESS
m&)
=RMDS

R%
+2=RMER1
RMERRS+4=RMER2

RMERRS+6=RMMR2

THIS

THE

ACTUAL

UNIBUS ADDRESS

(17&700)

0 RM03/2 PERF EXER

ESH s SBBURRELRVERS

21-NOV=-77 15:34

lD G
.

EOUIP

MRSS.

EO4

PAGE 44

SEQ 0042

T CORP.

0175'4

:Pncxncs (MAINDEC.:

SWITCH

HALT ON ERROR

i *
i ®

10
7

ch
1

A. PARTIAL

Bo 28

i ®

iTE®
Ptx¥

‘x

e
tx

ix
T®

TM
.SBTTL

EQUIV

' T

ERROR TYPEOUTS

RROR
L DATA conpnns ERRORS
pnnnnsrsas

REGIST

B. NO Ecg CORRECTION

B.
DO NOT
A. S}SFLRY
DISPLAYRETRYSECTOR
B. seru
8#55“ FOR

DATA

REMAI

A. DON'T T

00P ON PRESENT VALUES)

sgPL Y IF ERR

TS oxsanvso IF ERROR

NIFNOSHGL
END
OF TEST *WCF’
REACHED
TOR
’'DCK’,
’'DTE’
"DCK’ ERR uflconnsc?naus AFTERERROR

MAXIMUM

ERROR

COUNTS

RROR 8 SW? SET, DISPLAY
FER

YSTEM STATUS WHEN PROGRAM STARTED

ORMANCE SUMMARY
T
T
B.
INHIBIT DATA COMPARSION AFTER READ ORDERS

0
READ
BASIC DEFINITIONS

ONLY MODE

EMT,ERROR

TIOT.SCOPE

; ;BASIC DEFINITION OF ERROR CALL

::BASIC DEFINITION OF SCOPE CALL

#MISCELLANEOUS DEF INITIONS

000011

177776

pPS=

177772
177570
177870

PIRG=
osunDDISP=

000000

AD=

00000z

Re=

000001

INHIBIT

1 XINITIAL 880RESS OF THE STRCK POINTER #%# 1100 *x*

srncx-

.EQUIV

177774

USE

000012
000015
000200

JAN 19,

OPERATIONAL SWITCH SETTINGS

P¥

001100

8
EchSING THE PDP 1 MRINDEC SYSMAC

SBTTL

‘e

W
(O(D(Dg
OWVONCNLWNN—-OWVDNN
NNNNNYN \N\J\logmcrmavg;
LW C BB

!THIS PROGRAM WA

==l

RN RN RNV IVVIVIVIVIV VIV

10:06

lPROGRRfl BY C. CHEN

N LR B5® ST

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

22-NOV-77

Rfl9 /2 PERF EXER

VLU VUL VLU PV TVNV R VLUV Y PV VTV

VTV Y

P11

MACY11l 30(1046)

LF=
CR=
CRLF=

12
90

1 7778

S$KLHT: T§7§§q

17777
17757
177570

; ; CODE FOR uonxzourna TRB
s3C
FOR LINE FEED
: :CODE
FOR cnnnxggg
: :CODE FOR cnnn;

: :PROCESSOR STA

: ;STACK LIMIT 55335752

: :
PROGRAM INT
QUEST REGISTER
;;uazgugsg gu TCH REGISTER
i
I1SPLAY REGISTER

#GENERAL PURPOSE REGISTER DEFINITI

Rl=

“e

runu-ane FEED

:GENERAL REGISTER

..csnsn
L REGISTER
; s GENERAL REGISTER

R3=

RY=E

3
FLLELLL
L &s

N%NNNNNNNNNNNNNNNNW

¢
c

MACY11l 30(1046)
22-NOv-7?7
BRSIC DEFINITIONS

SP=

PC=

10:06

FOY4

PAGE 4S

%4
%S

g‘im
%cf?r
; ;GENERAL
REGIST

H
; ;

RAL

SEQ 0044

GIST

fioxn? 3

PROGRAM COUNTER

: #PRIORITY LEVEL DEFINITIONS

PRO=

40
100
140
SOO

; ;PRIORITY
;;PRIORITY
; ;PRIORITY
; ;PRIORITY

PR6=
PR7=

300
340

; ;PRIORITY LEVEL
; s PRIORITY LEVEL

PRS=

guifls

Sfllgs
SuWll=

)

0T T

SWi0=
SW09=

SHO;:

SW0?=
SWoe=
SWOS=
SWo4=
SW03=
SWie=
SW0l=
SWO0=

; s

PRIORITY LEVEL

100000

40000

10088

4000

2000
1000

400

200
100
40
20
10
4
e
1

.EQUIV
.EQUIV

, SW
, SW6

Sma
3.3#3

e
.EQUIV

.EQUIV
.EQUIV
.EQUIV

, SWe
, Sl
, SWO

: #DATA BIT

FINITIONS

8IT15= 100380

000200

LEVEL
LEVEL
LEVEL
LEVEL

'EHITCH REGISTER” SWITCH DEFINITIONS

&W18="

AT
A LA L LA A

; ;PRIORITY LEVEL

PRl=
PRe=
PR3=
PRY=

STIH:
T13=
BITl2=
B T16=
BIT10=
BIT09=
BITO8=
BITO?=

40000
20000
10000
4000
2000
1000
400
200

(BITOD TO BIT1S)

NoOnLswh—-0O

RMO3-2_PERF EXER
.Pl1
21-NOV-77
15:34

(

__ee-Nov-77

*8a4 7 der TR1TT0NS
BITO6=
B{TDS:

TOM=
%T
=
T02=
T01=

10
0004
1

)

BITOO=
.EQUIV
"EQUIV
.EQUIV
.EQUIV
-EQulv
"
v
.EQUIV
.EOU%V
.EQUIV
.EQUIV

10:06

GO4

PRAGE 46

100
4
10
M4
2

709,BI79
BITO8.BIT8
107,B117
T06,BIT
BIT
BITOS
TOMN,BITH
T03,BIT3
T02,BIT2
T01,BIT1
BITO0O0,BITO

IC “CPU” TRAP VECTOR flOORESS;

C= 10

,.R?SE

TR ¥Ec= 14

,,TRQC

ERRVEC= 4

;3 TIME

TBITVEC=1M

;371"

BPTVEC= 1M

30
EMTVEC=
TRAPVEC=34

¥;s

() 4

SEG 004s

g: 53

TRAP

AKPOINT TRAP(BPT)

T/?UTPUT TRAP (IOT) #2SCOPE#»

ATOR#RRP (EMT) %%ERROR#*#»

TKVEC=
60
TPVEC=
&M
PIRQVEC=240
ABARSE=176700

AND OTHER

D AND ILLEGAL INSTRUCTIONS

“TRAP” TRAP
;:TTY KEYBORRD VECT

:: TTY
INTER
o44
; ; PROGRAM INTERRUPT REQUEST VECTOR

AVECT1=2S4

RRRRERERRRE

.SBTTL
s

AR R R R R RN R R R RN

RRR RN RN RN ERRRRRERERERERRRRRERERRRRRS

RMO3 REGISTERS

RERERERRRERRRRERERERRERERERRRRRRRRERRERERRRERRRREERRRRRRRRRRRAR

;CONTROL AND STATUS REGISTER 1

IE=

ROY=
Al=
Alz=
PSEL=
MCPE=

TRE=
;8C=

100

200
4
1000
2000
20000

400
100000

(RMCS1)

; INTERRUPT

{RERDY (BIT
HIGH
ORDER
iHIGH ORDER
i PORT SELEC
; MASSBUSS
P

; IRANSFER €
iSPECIAL C

WORD COUNT REGISTER (RMWC)

(ERCH BIT IS CALLED BY BIT NUMBER)
;BUS RADDRESS REGISTER (RMBR)
; (ERCH BIT

IS CALLED BY BIT NUMBER)

100

MACYL11l

~—

;RlS:Jfl

CZRMBBO RMO3-2 _PERF EX
CZRMBB.P11L
21-NOv-7

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY1l

30(1046)

22-NOV-77

RMO3 REGISTERS

10:06

PAGE 47

SEG 0046

;CONTROL AND STATUS REGISTER 2 (RMCS2)

000001

Sgga

%
:,:

§§§§
EE :

3
68

fl¥§£§8; ;Eéifl%éfi INHIBIT (BIT #3)

2305

000100

IR=

100

:xmgu a&aov aHTos;

furunururuuuUrU
VLML N fVfV L Y
WWWwWwWwWwWww wwww

2299

893588
202000
Sgsd?b

Hg§£=
PoE =
M=

100000

DLT=

Sio08
853593

0
WeE=

;UNIT SELECT (BIT »0)

BPw'gY TEST

(BIT #4)

588
é§§§
~

;S&EsBUS PRRIé; sflngé (BIT #8)
: DROCRAM gRROR (BIT oxg§° oy
;NON EXISTENT ME
(BIT #11)

100000

:DATA LATE (BIT #15)

i
50000
FER

;i;DATA
(EACH BIT IS

T E

S DO
L W0

Sl rereretwades

398
99

UsSl=

N SHIBIEN
ORI ei?LT aids
eie)
;uaf
CHECK snson
ISTER_(RMDB)

S BY S?? NUMBER)

s RERERREEERERRERRERERRRERERRRERERRRRRERERERRRERERE
R ERRERRRRRRRRS

ggg

.SBTTL

RMO3 REGISTERS

ggsg

;;lillllll!llllll!ll!ll!lllll.ll!!illllllllll!llllilllilliilllill

gggg

;CONTROL AND STATUS 1 REGISTER.

2328

0022J1

5337
2332

200010
000020

2329

2233
sggg

000040
004000

ggg;
23

g3
gg:x

GO=

:GO BIT

B
Sggugo

(BIT 80)

FO=

:FUNCTION CODE BIT sl

Fi=
DVR=

40
4000

:
TION CODE BIT #5
:DEVICE AVAILABLE (BIT #11)

2
Fa=

1o
20

ERCTION
CODS BiT 85
;runcr}on 5885 Sfr s

DRIVE STATUS REGISTER (RMDS1)
0001

(#00)

OFFON=

(#01)
;OFFSET ON (BIT #0)

2
400

b
it
E§g¥3§ 352 NI ($II ’a)

234

882 0

pP:;
L§T;

Sgu

8%8888

P?b;

58888

;BSSIQ?oant 3££§g‘lou ?N PROGRESS (BIT #13)

5 gg

100000

ATA=

100000

IATTENTION ACTIVE (BIT #15)

23:4

2247
2350

004000
040000

fi L=
ERR=

éSSS

5LA3§R§EQ?55 1

4000

40000

:ERROR REGISTER #01

sr?nnso (BIT #10)

‘WRITE ngx ;axr .1%)01

:COMPOSITE ERROR

(RMER1)

(%02)

)

(BIT #14)

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY11 30(1046)
22-NOV-77
RMO3 REGISTERS

10:06

I04

PAGE 48

SEG 0047

2352
2353
2354
2355
2356
2357
2358
359
2360

000001
000002
000004
00001
000028
000040
%é%
000400

ILF=
ILR=
RMR=
PAR=
FER=
WCF=
ECh=
HCE=
HCRC=

2365
2366
2367
2363

020000
040000
100000

OPI=
.opgmnon NCOMPLETE (BIT #13)
UNS= 2000
40000
DRIVE wsa}s (BIT #14)
DCK=
100000
!DATA CHECK ERROR (BIT 1S)
sMAINTRINABILITY REGISTER (RMMR1)(#03)

2361
2362
236
2364

%woo
2000
004000
010000

2371

g3re

2374
237S
2376
2377
2378
2379
2380
gggé

000001
000002
000004
000010
000020
000040
000100
02

1000
2000
4000
10000

: ADD fg
oW
(BIT %9)
! INVAL
ERROR (BIT #10)
;unp' LocK €
(BIT #11)
DRIVE TIMING ERROR (BIT #12)

10
40
100
0
400

ATO=
AT2=
AT3=
AT4=
ATs=
ATe=

1
4
10
20
4o
100

ATl=

AT?=

200

(%04)

:DEVICE O (BIT %0)
H
V%C
(BIT #1)
iDEVICE 2 (BIT $2)
'DEVICE 3 (BIT #3)
'DEVICE 4 (BIT %)
iEVICE 5 (BIT 5)
iDEVICE & (BIT #6)
;DEVIC

(BIT 87)

:DRIVE TYPE REGISTER (RMDT) (#06)

000001
00
000010
00
000040
0001
00
000400
0040
020000
040000
100000

2402

DTO0=
DT0l=
DT02=
0T03=
DTO4=
DT0S=
DT06=
DT07=
DTOB=
DRG=
MOH=
TRP=
NSR=

|
2
4
10
20
40
100
200
400
4000
20000
40000
100000

:LOOK-AHEAD REGISTER (RMLA)

2404
2405

000100
000200

sCi=
§C2=

100
200

2407

001000

§Cio=

1000

240c

'p
YE
( iT 83)
!FORMAT ERROR (BIT #4)
'WRITE ogx FAIL (BIT 85)
‘E
(BIT
#6)
:
R
(BIT #7)
: HEADER
(BIT 82

: DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#0S)

2385

2388
2389
2339
239]
2392
2393
2394
23
239¢
2397
2398
23
2300

: ILLEGAL FUNCTION (BIT #0)
ExLLEcm.
R&?S*ER (811 D
;ngfirsnmnggxr CATION REFUSED (BIT #2)

:ATTENTION SUMMARY PSEUDO-REGISTER (RMAS)

g383
5333‘-}

OE=
IRE=
WLE=
DTE=

241

000400

eCO4=

400

:DRIVE TYPE NUMBER BIT 1
i ORIVE
TYPE NUMBER BIT 2
{ORIVE
TYPE
NUMBER BIT 3
'DRIVE
TYPE NUMBER
BIT 4
:
TYPE
NUMBER BIT S
iORIVE
TYPE
NUMBER BIT &
iORIVE
TYPE
NUMBER 17
‘DRIVE
T
R BIT 8
iDRIVE
TYPE
NUMGER BIT
'DRIVE
REQUEST REQUIRED (BIT #11)
'MOVING HEAD (BIT #13)
i TRPE ORIVE (BIT ai4)
!NOT SECTOR
SSED (BIT #15)
(#07)

sSECTOR COUNT FIELD O (BIT #&)
*SECTOR COUNT FIELD 1 (BIT #7)

'SECTOR COUNT FIELD 2 (BIT #8)

'SECTOR COUNT FIELD 3 (BIT #3)

MACY11l 30(1046)

22-NOV-77

RMO3 REGISTERS

SC20=

10:06

JO4

PAGE 49

2000

SEG 004e

;SECTOR COUNT FIELD 4

(BIT #10)

;
SERIAL NJ%R REGISTER (RMSN) (#10)
IgEC #ED SY BiT ufiagen)
:?Efléfl
;OFFSET
REGISTER (RMOF) (#11)

OFFDIR=
HCI=
EC =
MT1e=

|1
2888
4

;RMO3 OFFSET DIRECTION
;HSR R COMPARE INHIBIT (BIT #10)
;E
CORRECTION CODE INHMIBIT (BIT #ll)

10000

;FORMAT BIT

;DESIREE CY&INDER ADDRESS (RMDC)

(#12)

; CURRENT CYLINDER ADDRESS (RMCC)
; (REGISTER CURRENTLY NOT USED)

(#13)

;RMO3 ERROR REGISTER #02

(#15)

; (ERCH

OPE=

BIT

(RMER2)

200

Ivé=
DPE=

10000
20000
40000

SkI=

(BIT si2

IS CALLED BY BIT NUMBER)

Eggf

LSC=

5833

:SEEK INCOMPLETE (BIT #14)

:ECC POSITION REGISTER (RMEC1)
*(EACH BIT
*(EACH BIT

(#16)

IS CALLED BY BIT NUMBER)

;ECC PATTERN REGISTER (RMEC2)

(817)

IS CALLED BY BIT NUMBER)

s RREEERERRREERERRRERERRERRRRRRRRRRRRLRRRRRRRRER
R
R RRRERRRERLS

.SBTTL

e
[

NN £ £ LW
= W= (D == W=

ofatataletats)

===
U=

28888808

000
h—

[o]=

002000

00000000

TPYY FERRRRPPRYPEPPYRYY
TYYYYYYYYYYYY
Fih Eom ~538URRELR EEBNRR
LN 8 om0 in £ w028

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.PI11
21-NOV-77 15:34

RMO3 DRIVER COMMANDS

RN RN

RNOP
SEEK
RECAL

=
=
=

DRVCLR
RELSE
OFFSET

=
=
=

GETREG
SETFMT
SELDRV

=
=
=

RTC
READIN
ACK
SEARCH

WCK
WCKHD
WRTDAT

=
=
=
=

=
=
=

101
10;
10

111
113
115

117
121
123
131

141
143
148
151
183
161

RR RN R RN

RN R

R RN

R AR AR RRRRRRRERRAR

;NO OPERATION
;
SEEK
; RECAL
IBRATE

;DRIVE
CLEAR
;RELE
;OFFSET

;REESRN TO
CENTER LINE
; RE
N
SET
; PACK
ACKNOWLEDGE
;EE
H

;GET
REGISTERS
;SET FORMAT (& ECI OR HCI)
;SEL;CT DRIVE

;WRITE CHECK DARTA
;WRITE CHECK HERDER & DATA
;WRITE DATA

5555§

cznnaao RMO3/2_PERF EXER
CZRMBB.P11
21-NOV-77 15:34

000153
017

3017

246

gro

MACY1l 30(1046) 22-NOV-77 10:06
RMO3 DRIVER COMMANDS

WRT
RDDA

=
=

5375

RDHD

.SBTTL

TRAP CATCHER

() TCHng‘fis

c
.SBTTL

ae:g?
ew:g

.SBTTL

S:BH

2485
ggg

000210

;RERD HERDER & DATA

? ATIONS rnon nsnsomnm
A ", 42, HALT"
comm

a;g
X

SEG 0049

;WRITE HEADER & DATA
;READ DATA

173

eu;a

7S
5375
2477

PAGE SO

163
171

000000

KO4

STARTING ADDRESS(ES)

IMP
JMP

'"osgRRUPTS

T0 cmcn 1

#START1
#START

RLY LORDED VECTORS

AJUne TO’émmuc ADDRESS OF PROGRAM
HANGE
UNIBUS ADDRESS

men INITIAL START

ACT1l HOOKS

3 X 2222222212223 2:32232232223222222322322322232222222 2222222222222
! HOOKS Rsou;cneo BY ACT11
ve

; SAVE PC

gqug 000046 na”;mm]'.-'.oE
ma

seseuono
=

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

91
EEEE

=ssvpc
=1100

i; RESTORE PC

geo

0000S2

s:g

040000

000210
001100

24ss

8439
2500 000024 200059
000200
2501
000044
2507
2508

2509

000044

2512
2513

gig

PARAMETER BLOCK

001100

llIlllIlllllliilllil!lllllililIllllllllllllllflllllllli!illllllli

Ia
208“
. =4y
e :

FAIL up0POINT TO START OF PROGRAM
H1i3PYPOUER
Wsma‘
L]

;;PoiNT TO ann%gcr
ADDRESS PNTR.
g:.
;;RESET
L
non COUNTER

$APTHOR ; ;POINT T

=.8X
, Ilililllllllll‘ilIlllllllilllllllllllllllllllllliill!li!l!il{ii
gp T PARAMETER BLOCK RS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFACE SPEC.

001100

000000

001104

gw 001102
11

APT

éer LOCATIONS 24 AND 44 RS REQUIRED FOR APT

2503
2504

.SBTTL

;32)SET LOC.52 TO 40000

o 3636 3 35 36 36 3 36 3 36 36 45 36 36 36 3 36 36 36 36 36 36 36 3 3 36 36 36 3 36 3 3 3 36 3% 3 3 36 3 36 3 36 3 36 3 3 3 3 3 3 3 3 % 3 3% 3 3 3 % % % X%

ewg;

2502

.WORD _ 40000

001106
001110

001112

THD:

HIBTS:

.WORD

;3 TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

STSTHM:

.WO

180.

,.RUN

%gou

SMBADR: .WO

000264
000264

$PASTM:
SUNITM:

88??:1’5

.WORD
.WORD

iggngy

SMAIL
180.
180.

} AODRESS OF APT MAILBOX (BITS 0-15)
M OF LONGEST

TEST

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

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

COMMON TRGS

LO4

PAGE SI1

——
e

e asssss

5‘5%8 TMfE
CONTR NS VARIOUS COMMON STORAGE LOCATIONS

.=TRB.
XY

TSTNM: ngr

TEST

17789;

201
202

015
000012

000377

00000

::%2%3? %& INGICATOR
<

nv m m n
.-.

P8L:

TCH REGISTER

TKB:

LLS:
ILL
TPFLG:

;

RSC

.;
H

}

—

é?fl

#ood-

002
863

177266
"3&

177562

$NTRE: (BT

SWR:

NUMBER

ST#?ERATION COUNT

BYT

o—o—v—g

A
A
R

; ;START OF COMMON TRGS

[2)]

SCMTAG:

001114

Bt Bt e Bt Bt P Pt et P s s Pt Pt Pt Bt Pt ot Pt Pt s s s s s Pt Pt Pt s ot Pt Pt et Pt
$e B e Bt Pt Bt Bt Bt Bt s Pt s e Bt s B Pt ot P ot ot P ot P Pt Pt P ot B P

ettt

.SBTTL

COMMON YREE

10:06

R L

-NOV-77

—

mOP Zl-NOV-? 15:3‘i

MACY11l 30(1046)

m
0

RF E

(1))

OORESS

R FOR FILLS
LLE
mrsns
REQUIRED
.
AFTER
A
"LINE
FEED"
nxmaa.s" FLAG (BIT<07>=0=YES)

<§07><37‘h 377>

;;

s
12

: :CARRIAGE RETURN
s
FE D

3 il!llllll!llllllllllllllllll!li‘lllllllsl!lllillll!lillllllli*i

‘48TTL

APT MAILBOX-ETABLE

l!llllilllllillllllllllll'!’l‘illllillll!lll!lilillliIllllilll

5 ?voR

DEVCT:

:gfi: Zuono
SETRBLE:

;;"% ?om CODE

V?T

AHSGAD
"%AOORE
sg
ms + E

: :Apr Envmomsm TABLE

CZRMBBO RM0O3/2 PERF EXER

000000

DO L

1
g5 B

: .BYTE

WORD

TYPS: 'E¥¥‘
o
TYP3:
.BYTE
Y

asio 001270

838312

esia

172535

175703

131

:::
225 oo13v2

PACK:
:

173700

: .WORD

172542

25858
: 15838
: .WORD
. 5338

AMTYP

: .WORD

52{5 1 g
§
5219 001
1
261
mg
§ gi“
D074
asag

R l'tnrm

0% BB

. 25838

262l

PROCESSOR
mzfiZ?
BYTE

TING

eu BYTE)

sg
éYT;é THIS WORD AND LCW OF "TYPETM ABOVE

P
e.

;;H G'l

S§ B#¥!

HH
T
k1, BUS PRIORITYS1
'“"’ww”"w.
o

5215 8536 flgfio
001276

i
Amamsl ..u GH

fi g8 | g:E;x;PR P resr

%
§
&
22 i

ASWNEG : :gvx%TREGISTER
&23;05 16/eo=03 11/40=04, 11/46=05

253? m{zwo 883
S3555 Risk
coof
01
2

i ENVIROWENT BTE

B R Mi¥s
S,
1s5-1
P¥

—

gae

SSUNEG: TWORD

AENV

SEQ 00S1

8‘
8

2588

BVIE

PAGE S2

5383

SEw:

MO4

:?’5?

APT MAILBOX-ETARBLE

10:06

—

gxgg

22-NOV-77

za%

g?g

21-NOV-77 15:34

%ggg

CZRMBB.P11

MACYL1l 30(1046)

.WORD

883833 000000 OPERID: .WORD
RTIN: Cworp

iEOVIROLLER BEECRIRTION ioRBu

2540

;FIRST

SS OF RH11/RMO3 REGISTERS

:m XF xuu‘-'gcs''52US REGISTER
;ADDR OF 551}-? courTnsn BUFFER

1 7546
11
-1
54

:% § xgh gvzs;us REGISTER
i'0° 1 xfi fl?"xs SuSYSTEM
i'0" IF A
K IS
'??vfié)Tfirc'ff;vflsne“%fl(m IF S0 HZ SYSTEM

0,0,0,0,0

:OPERATOR ENTERED DATE

0,0,0,0
oI

‘W'

INDICATOR

; OPERATOR ID
R INE REGS TORAGE: "ERRORS 12578 10

LG
s st

NO4

TM RN o e 0

sto oo

CFLAG:
(MAXIMUM - 999.)

(

ONE SECOND)

'bCKER' OR CAN'T MATCH PATTERN
FOU?
I:'ERMT H PATTERN FLAG

v
.
v
.
'5353

-m
WORD

RSTREkROR WORD
T

(RELATIVE TO SECTOR)

WORD
WORD
WORD
COND ERROR WORD
S°"° WORD

Y.1

821

x=?§°
'fHIT

ESS LIMIT FOR RMO3

5 5 SEUE 360036 36 06 36 30 36 38 30 36 30 36 30 06 36 36 36 36 36 36 3036 36 36 36 96 36 36 36 36 36 36 36 36 06 36 36 38 36 38 36 30 36 36 36 36 6 36 36 36 36 36 36 36 36 9 36 3¢

SE;%

.SBTTL

sg;a

;;llllllll!ll!ll!llilllIIlll!lilllllIlllllllllllll!llll!llllllill

2675
gg;;

001450
ggxuse
14649

740
455

879
ifii:fifi 090001
2680 001462 000000
2681
2682
2683

DATA COMPARE ROUTINE

DOI46M

000144

ENDCON:
ENDSEK:

COMMON PRRAMETERS

.
.WORD

740
0S4SS
143300

PRSCNT:
'LORE
MAXOL: .WORD

1°
O

MAXER:

100.

.WORD

:1.875X1018 WORDS (10)
: MSW
13 X 1016 SEEKS
(LSW)

[3X10%9 BITS)

1iMAXIMUM
R OFDATA
PASSES§52ur£n
TO END g?zsOF INTEST
WORDS
.

;

:(FILLED BY PROGRAM AT STARTUP OR BY OPERATOR
:DURING PARAMETER ENTRY DIALOG.)
:MAXIMUM ERRORS - 100(10)
.

0009C0

WCSEL:

.WORD

000003

;

RATIO: .WORD 3

COND

TYPEQUT

INTEPVAL

THE INTERVAL

o oR

001476

;

“"nn"‘ns

.WORD

CMPLMT: .WORD

FORMAT:

806601

ng
IS T§
PERFOM

NHM

"THE VALUE

i%IT RQOV‘O {RANGE C - 7]

§3

01474

OO0~

01472

5,0

00000S

PRGE SM4

LRTR TR LN 3

.WORD

10:06

—

%%%%%%
N\PQ\PWVQLQQ\PQ ‘JQH, D RORGR00N
0 Ok ROk
V\Pifl\%gfl
OONOCWNLEW-0O
N FRZERS S8BIRR LIS

LA LAV LAV LAV LA VIV VLA VI VIV TV T VTV T ]

INTRVL:

=NOV-77

001466

001500

00C00C

COMMON POSSF‘TERS

MACY11 30(1046)

—

RMO3-/2_PERF EXER
.P11
21-NOV-77 15:34

c
c

.RE
;0 - 9
sl =
;1

"MAXDL'

FCOR

(READ/WRITE)

8
52
$9 = /9
:3

;S - S/S

ooisce

000001

AUTOCK:

001504

000001

oy S

R o
Xt oRork
I Tgms”
Es
INT ERROR MESSAGES RELATING TO

001506

000001

ENDET:

;x F 4

0ois10

000000

PATTEN: .WOR

oois12

000000

HEADER: .WORD

.WORD

;IF NOT E

;
CHECK
;IF EQ

RN GPPROPRITE WRITE

s WRITE ORDER.
SELEC
WRITE CHECK ORDERS

ND OF Pags
DETERMINED

(IF 507&
% ocr:s'mm:o
P IF Eo
cT
m PATTERN
l av%gsf
g:
T
OF PATTERN
t
oxnrsg
1 Q
ECT DATA BLOCK
SS.gt
NOT Eou SEQUENTIALLY

i
O

s LECT DATA BLOCK ADDRESS
5 5

IR0 30 00 00 3 00 00 00 30 30 40 06 36 36 30 30 36 36 06 06 36 3036 36 36 30 3 30 36 36 36 36 36 3 36 36 36 36 36 36 30 36 06 36 36 36 36 6 36 36 36 36 36 36 3% 3 3 %

.SBTTL

VALUES FOR FIRST OPERATION

; ;uiuuuunuuuunruinunnnuu“n“nuuulunin

000010
000004

BEGPAT: .WORD
BEGCOD:
[UORD

410

TARTING PATTERN
C
- 47 (ocTAL))
2
omg*g
COBE
tmncs
{RANGE
8]
HECK DRTA (' We
: Dz WRIT
CK HE nsmm(ucuxno')

= WRIT

("WRTDAT’

i3
= WRITE
HEADER & DATA
4 = READ
DATA ('RDDAT’)

0c1se0

000400

BEGSIZ:

.WORD

U URTHD®
)

S = READ HEADER & DATA (’RDHD’
:STARTING RECORD SIZE [RANGE 4 - MAXMEM]

400

~nc

RMO3/2 PERF EXER

e ROv=SS 15 3

MACY11 30(1046)

-7

CcOS

VALOES FORCFIRST OPEART
I8N

g?:\zg

PRGE SS

—.

7'43

.SBTTL

TABLES,

CONSTANTS,

ORDERQ:

.WORD

o,0,0,0,0,0,0,0,0

s;ssé

ASNLST:

.WORD

gfi

DUNIT:

.WORD

o,o0,0,0,0,0,0,0,0

; ADDRESSES OF DRIVES TO BE DERSSIGNED

NEWUNT:

.WORD

o,0,0,0,0,0,0,0,0

;ADDRESSES OF NEWLY ASSIGNED DRIVES

AVAIL:

.WORD

o,0,0,0,0,0,0,0,0

;LIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS

WARIT:

. WORD

o,0,0,0,0,0,0,0,C

;LIST OF DRIVES WAITING FOR BUFFERS

PRRQ:

. WORD

o,o0,0,0,0,0,0,0,0

;LIST OF DRIVES WAITING FOR NEXT PARAMETERS

fig
2747

7738

SR
1S22

000000

1& DOOO0OC
1

DOOC00

000000

000000 lll
000000

00C

2756

gfli‘bé

UUUUULU

AND VARIABLE LOCATIONS

I I NI 00000000 NI 0000000000000 00000
;LIST OF DRIVES PERFORMING COMMANDS

;R BIT SET IS AN ASSIGNED DRIVE

.‘l’l’lll
b
€770
2771

00l6e4
001672

5;;3 001700

e77s
e
eem ins
2l Bis
171

2781
2782

001
001742

2786 001762
787

2790
2791

2792

x%
D01

002006

Ao
2795

002026

000000

000000
000000
000000

BUFTBL: .WORD

U080
'8
- WORD
o,g
88 0
”

"WORD
CWORD

0.0
0.0

- WORD

Zuo:noE
- WOR

- WORD
.WORD

0.0
3'8
v

8'8

0.0

WORD

0.0

.WORD

0.0

:BUFFER ALLOCATION TABLE ENTRY COUNT

“

CZRMBBO RMO3/2 PERF EXER

LU LRFER

CZRMBB.P11

21-NOV-77 15:34

8511

S810
00Siis
2812
114
2813 %115

eegig 002120
2816 002122
2817
002123
2818 0C2!24
850
Oasize
-é 002127
2823
2824

002130
002131

2828
829

002135
002136

g‘aas Dooim
ooaiaa
$855
2830

002137

2 RO
2833 002142
2834 ooeizg
2836 ooe:iws

020

'BYTE

.BYTE
'BYTE

016

072

042523
O0S1104
000040

BRIVES
DRIVES

‘:

042101

045505

020040

041526

0S1114

MNTBL:

OF T

OF THE

TER BOGK FOR ORIVE4

PARAMETER BLOCK FOR DRIVE b

:
S5 OF THE PARAMETER BLOCK FOR DRIVE 7
;WRITE CHECK DATA
TWRIT
cgcx HERDER AND DATA
‘WRITE DATA
L READ pATA
hoDATA
DATA
ERE$
HERDERTAND

‘1’19
1M

:"“13‘
RELEASELEAR

;

2
M

;uuLono
: SEEK

iOFFSET
;gsr
TO CENTERL INE

IN PRESET

‘BYTE

-1

: TERMINATOR

TWRIT

'RERAD DATA

:READ ueaoen AND DATA

.ARSCIZ

/UNLORD ~

.ASCIZ

/SEEK

/DRVCLR

ASCIZ /RECAL ~

.ASCIZ

PARAMETER BLOCK FOR DRIVE S

SRkhewTod
soce
.w ;
c cx nenoen AND DATA
TWRITE noen AND DATA

BLOCK FOR

TER
&ocx
FOR 85”2 1
TER
BLOCK FOR DRIVE 2

oF
1
OF THE

TER

OF
T
OF T

ngvs';
WCKD
WCKHD
WRTDAT
RooAT
R

.EVEN
047514

SEQG 00ss

ok
S0
'Efl
gs
'BYTE &2
'BYTE

aeewEs 002c
ca};g Ecasec
cug 040503 020114
2849 002200 8300-«:
002202
002210

;

.BYTE

Jes

Su3
1
7125
£ R L
2850
28€]

.BYTE
‘BYTE

"W
BVE

377
002152

162

OPTBL:

.BYTE
.aer
BYT
‘BYIE
YTE

0?3
o018
014

002150

2846

COMTBL:

002
004

gggg
2841

gigx2
IVER

5556
151
153
161
131
173

070

10:06

DOS

PAGE Sb6
TRABLES, CONSTANTS, AND VARIABLE LOCATIONS

Ouuaas
4746

002146

002147

22-NOV-77

BLKADR:

2837

2838

MACY11 30(1046)

10:06 PAGE S7
2e-Nov-77
CONSTANTS, AND VARIABLE LOCATIONS

0S1S14

02010

.ASCIZ

/RELSE

051506

052105

.RSCIZ

/OFFSET

020103

020040

.ASCIZ

/RTC

o42101

047111

.ASCIZ

/READIN

045503

020040

.ASCIZ

/PACK

0s1101

044103

.RSCIZ

/SERRCH

042113

020040

.ASCIZ

/WCKD

044113

020104

.ASCIZ

/WCKHD

o42ia4

0s2101

.ASCIZ

/WRTDAT

oY4124

020104

.RSCIZ

/WRTHD

O40S04

020124

.RSCIZ

/RDDAT

042110

.RSCIZ

/RDHD

o42s1e

.ASCIZ

/NONE

EOS

MACY11l 30(1046)

OFMSGO:

.RSC1Z

/RFTER RETRY WITHOUT

OFMSG1:

/AT NEGATIVE

OFFSET/

OFMSG2:

/AT

OFFSET/

OFFCOD:

——

SEQ 00Se

TABLES,

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-Nov-77 15:34

POSITIVE

OFFSET~/

;OFFSET CODE T

1
0

iNUMBER FOR NE
iNUMBER FOR POSI

QFM3G0

; 1ST OFFSET HESSRGE

VE OFFSET
VE OFFSET

( DIR
(DIR

.EVEN

n
)
o
N

OFMTBL
:

(I RRREARE R

OFMSG1
OFMSG2
AR AR

RRERERR R

i2ND OFFSETMESSAGE
i3RD OFFSET MESSAGE

XA ERRRRRRRRERRRRRRRERER
RSP RRE
AR

ouT)
IN)

MACYLL 30LUDHR) BRSTANTS, AND VARIABLE LOCATIONS
.SBTTL

DATA PRTTERNS

LR
R R
R R
RN AR RN R AR R RN

STNDRT:

TRO

.WORD

DATAL:

.WORD

8888

WORD
WORD
WORD
.WORD

003777
807777
17777
037777

)

2962

002e3e

077777

T
TRO
TR1+642

DATAO:

%
2959
2960
2961
2962

; STANDARD DATA PATTERN POINTER TABLE

2233

TRl
TR1+40
TR1+100

3444

000000
000000

00000OO0O0000000 gggggggggggggggggg

002542

— :
i

WO NV
£ W

SEB333 33335

CIRnEE
e T3 8 Ve SR g3y

FOS

.WORD

077777

; ZEROES
; ONES

; DUMMY DATA PATTERN

; STANDARD PATTERN 1

——

RMO3-/2_PERF EXER

21-NOV-77 15:34

_22-NOV-77

DATA PATTERNS

10:06

GOS

PAGE S9

\77777

.WORD

177777

177776

;STANDARD PATTERN 2

;STANDARD PATTERN 3

CMPH

MACY11 30(1046)_

p02742
002744

133331
133331

;STANDARD PATTERN 4

133331

WOR

177774
177770
177760

FEREF
NS cho

L L L U SRR

77774

133331

002746

oozggs 133331
133331
005768
133331
885322 1 ?41

215
3012

133331
133331

ORD
" WO

133331
133331

002764

133331
133331
1'$~gx
133331

ggig

133331

"WORD

133331

3017
3018
3019

003002
00
003006

052525
052525
052525

WORD
WORD
WORD

052525
052525
052525

;STANDARD PATTERN §

SEG 00se

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY11 30(1046)

22-NOV-77

10:06

DATA PATTERNS

3857 B83BI8 }s=ses

‘WORR

f8esE8

§S§
3.39:311:

.WORD

-HoRp

125252

.WORD
-

xssss:

.WORD
.WORD
5858
[
.
[

155554
155554
1§sss~o
15555y
15555y
1 gsu

wzg

003014

125252

25828

3035

i§
1

3038
3039
3040
30-05
304
3043
3044

30ue
30-43
09

&g&?

-.WORD
HORD

15
15
1
155
155
1§

74 iss
155554

155554 ;STANDARD PATTERN &

igéééq
155554

WORD
-- WORD

is séd
xsgssu

003076
003100

155554
155554

.WORD
.WORD

3051
3052

003102
003104

0264SS
02645

.WMORD
[

026455
susg

18132

0031

- WO

3054 003 1?§ 151322

. WO

3056

.WORD

3055

3057

3929
3060

306

003112

003114

§§%§

158

003124

151322

5455

DE%as3

151322

BE
31
151322

3064

3065
30630667

003136
003140

026455
151322

3068 Do3te Bk
4

3070

003146

066666

30;1

ooaiso

06666

3074
3075

003156
003160

OBEEEE
0&6EEE

3075

003129 Oeeece

- WORD

‘WoRD

.WORD

‘

PAGE &0

125252

3048
305.:,30-4&1

3053

HOS

155554
155554

;STANDARD PATTERN 7

1 1325

151322

5§§§

11333

151322

= n
151322

"WORD

.WORD
.WORD

- HoR
)

"WORD

026455
151322

5666

0B6BGE

'3858

o%;;;;

"WORD
.WORD

0BBEEE
0BBEEE

‘WORD

DBEceE

;

——
STANDARD

PATTERN 8

SEG 00S9

)
(1
MRCY11 30(1046
ES-NOV-??
B
DATA PATTERNS

10:06

105

PAGE 61

SEQ 00eC

52 22

L
a
r
n
a
n
a
s
S
e
0
e
s
NAN N OLMNAN N N

e mmmmummm

mmmmwmwmmsmwmmmmmwmmiummmmwmwmmmmmmmmmmmmmmmm

CZRMBBO _RMO3/2_PERF EX;R
15:34
CZRMBB.P11
21-NOV=-77

h&b

bbbb
1

; STANDARD PATTERN 9

mw-mm

76
003300

=A]NeeNT eNeeNe ND eLNeWeML Lo0

"DN7MA7NANN7AONDU7INDA6MNN5A3NN7NN7NRowmommomlwm

TNSRS

HOR

167777
157777
137777
077777

1"1'&

3888 et

]ee7e5e7R5R7R5R7B5B757Re

DU DU
geade MSWS
555

R
un

4z — o
v — T z[=] xx Q & — — W'

; STANDARD PATTERN 11

CZRMBBO RMO3-/2 PERF EXER

R LR T G AR ADNANA £ £ £ £ £ £ 5.5 £ Epeiuabi

21-NOV-77 15:34

0033

I;SSSS
1 E&Sg

8&%

077777

‘E?E

177767

833% 15558

DATA

ES-NOV-77

PATTERNS

10:06

JOS

PRGE &2

SEG 006!

HORS
. WOR

155555
172666

- WORD

07777;

; STANDARD PATTERN 12

%g.él;

; STANDARD PATTERN 13

.WORD 1585585

W LW

WL ) W W L

i 338
FE

0034s0

agz

77
78
79

80
1

be
N

00 g%

333
67
3333
g?

6 3333
667

220
1 5332;

SETE

s
gk

177773

77775

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

s B

(W G G L) () () ) W) () G ) () () W) L) () L) L) ) () () () () (W () (W L) W W L) W

8 ot Pt s s Pt P 5t s Bt Be e B

e Bt

e Be e

e e e

) WWWwWwwWwWwWwwwww

CZRMBB.P11

MACY11l 30(1046)

. WO
177777

. WO

1777277

. WORD

177777

; STANDARD PATTERN 14
1772777

177777

777

177777

1777727

177777

177277

177777

.WORD

177777
177777

.WORD
. WOR

177777

WOR

1777277

177777
177777
177777

177277
177777

82
B3
B4
%

003472
003474
003476
00300

177777
177777
177777
177777

.WORD
.WORD
.WORD
.WORD

177777
177777
177777
177777

003s02

177777

.WORD

177777

;STANDARD PATTERN

ZRMBBO RMO3/2 PERF EXER

Y Sy e

o WWWwWwLWwwWwwwww
BRS BBIRRLE02838

gznnaa.lm

21-NOV=-77 15:34

MACY11l 30(1046)

_22-NOV-77

DATA PRTTES

10:06

KOS

PAGE 63

SEQ 0062

¢
c

EI-NOV-xg 1S5:34

MACY L

AR P01 RTER YRoLE 10:06
.SBTTL

& *

ATION SIT ?F
b

TEé

ERACH I

i &

i ®
¥

;®

003s42

LO5

PRGE &4

SEQ 0063

ERROR POINTER TRBLE

ITHIS T%CONTG}NS THE

TRI

INFORMATION Fgfi ERCH Em THAT CAN OCCUR.

R *

a $spsm CH 'IJ’E

R_FOUND IN

g P‘(;E%S(gs PERTINENT.

?l{ &CONTA
{§ 28 NTEss EXPLAINED AS FOLLOWS:
;:POINT

;3sPOINTS
;sPOINTS

T0 THE ERROR MESSAGE

TO T
TO T

: ;POINTS TO THE

Bgm HERDER
TA
DATA FORMAT

SERRTB:

;ERROE 1

;ERROR 1
Szi

;RH70 INTERRUPT OCCURRED

(RMARS = 0)

DT1

EM2

oot

ERROR 2

BYs

;sUNEXPECTED ATTENTION OCCURRED

;ERROR 3
Sgg

;MASSBUS PARITY ERROR

(MCPE=1)

;MASSBUS PARITY ERROR

(PAR=1)

DT3
0

DT
0

gfl:

o8 gg

;ERROR 4

R RIS 2
SEYERY BREE3S VEREORTM s DOV
N EWN—-0O

§§§§%

Pll

;ERROR S

gzg

R
ne

1226
000000

;ADDRESS PLUG BIT CHANGED

DTe
0

;8§

;ERROR &
Sng

;RH11

DIDN'T RESPOND TO RDDRESSING

CZRMBBO RMO3-/2 PERF EXER

21-NOV=-T7 15:34

MACY11l 30(1046 )

ERROR

22-NOV-?7

10:06

POINTER TRBLE

REEERREEEEE R

START:

003632

012737

000400

001356

START1: MOV

001210

START2: 22&7

i
¥ S
R B

000001

.SBTTL

177777

#-1, CHGADR

STRART2
A

#1,STESTN

TIALIZE
INITI

OV
&

:;CLEAR THE

%.gm
'&H
(R6)+

8SWR,R6 ; ; DONE?

INITIALIZE
A FEW

000032

MOV

RRRRR AR RN R RRRERR

REPARRE SR RS2

;SET RM11 ADDRESS CHANGE FLAG

iSTART THE

jCLEAR THE

PROGRAM

RH11 ADDRESS CHANGE FLAG
222 X XSS S S TSRS L S

::SET TEST NUMBER IN APT MAIL BOX

:CLEAR ‘r: BUS

ION TO BE CLEARED
"P¥RsARt LocaT
.i ;CLE
MEMORY LOCATION

i 16090 PE £7aC% POINTER

JENT VECTOR FOR ERROR ROUTINE
: v&#?vscroa FOR TRAP CALLS
R GENERATOR

}EaUAL TO

175146

T SETUF

AT
v
fi'x*i#oxsnnv i

ggi.ashn

TCH

Aogmmfimno
ISPLAY REGIS 25

:Rs{

Sess, (sp)

65S:

gog

osungcgunsp m;;mmr TO SOFTWARE SWR

Hie
@G ooy GBI oniess
ggig %&2 012737 001226 001154 e

e
MOV

ctiuze.sevwn
[ITEERASER
<FZE noes or
#SSWREG, SWR
: iNO,USE APT SWITCH REGISTER

0127

oom;s

85:3; %60«

ggug:

MOV

i BRONGE O Frap RETURN

B4S:

009758 004020

}’lt commoNTod)
TRES

e8133; i;fi;flB 001156

%%fi

MOV

s Pt Pt P
Bt

Pt P

001100

RSP R R ARG A AP UESBREEF R R BB B SRR

i_é;:?lli'l«!;llllllfill E22222222222322222222

W————
001154

R R

S =

START

001356

R RN

mss:?oEgmcan%m UNIBUS ADDRESS = 204

177777

asfi

R R

;;
012737

003640

SETUP AND INITIALIZATION ROUTINE

003622

000407

.SBTTL

3 BEPEERBEPRE R UL AR

003630

PAGE 65

876

E
-

CZRMBB.P11

?&?‘?S.e%vzt ; ;RESTORE ERROR VECTOR

= -1

DO0E

)

3331
33 00

3371

:1a7
11

;Z;

@37 oo1224

)

004376

000001

60 7

001150

TST

;;

1STB

?S?a
rs;

us:

034620
034622

008037

005037

0013123 001372
1364
13
1

001316

001360

?gra

?5
MOV

MOV
5,'22

es:
02
001100

HERAN RMO3 ?

81, SAUTOB

0 B
MOV

MOVB

gfim

22 mas
mum
D01272 034622
1

: INS w[:‘? THE OPERATOR ON HOW TO TEST DRIVE O

ggg:

D01

137
7

, LORDRY

NV, 81
”.osunsc

0C xga 001272

001150

;;

fie
CMP

001254

:’ ,41

BEQ
MOVB

.SBTTL 3# VALUEtan §onm sfixwgcxER

OC
0O

333355859558588888s
3
=

SR R
3370

000001
000176

.:.

CMPB

18:

:;:

BNE

000041

PRIORITY

S—

333

oYL K HTIR 12E°THE Common TRes Toc 66
80003¢
AoV
.538 i TRArvECa2 ‘&g
Chae ,; SRITY To 'y
Wfis
?m.e
H
C NUMBER
1ST
4
,&T aE PY
CHAIN MODE ?

BNE

MOV

SVECT1
B

T1,SRMVEC

EmomE
C.RMVEC
AUTOB

8-1

, RMADR
C.RMVEC

33 OPRDAT
)

EaRnE
P
eNovs 1s:ay
1% 8048
00

NOS

$STACK,SP

CLR
MOV
CLR
CLR

P8 SIXTEE

CLR

MINUTE
COND

CLR

CFLAG

ELR

Aok 2

KEYBOARD INTERRUPT

s
NG UNDER XXDP/ACT?

uc UNDER APT?
wiSW cu REG SELECTED”

ieca::r;' S’&

SETTINGS

; ;SET AUTO-MODE INDICATOR

;

R "r’.Tcgoo:

! fi“ c“m£° ?

:NOT Loago&r =0
; u
;

ADDRESS ?

o garven

vzcron xmo DRIVER

.nmo MODE ?

S:?.cx gus ADDRESS

g
on RDDRESS
r
T s mr ’

AND OPERATOR 1D
a'
¥'?
g#&T MCWY TYPEOUT FLAG

1LOOK FOR END OF SLEAR RREA
xr NOT EINISHE
STACK PO NTER

CLE
IGEAR'
.CL AR TTHE

/ R ssconoSCOUNTER vALLE
'S COUNTER
MINUTE'SOCOUNTER

jCLEAR THE

SECOND'S

COUNTER

;CLEAR THE

'CONTROL C'

{GLEAR THE 'R° on%'COMMAND FLAG
FLAG

CZRMBBO RMO3/2 PERF EXER

CIRMBB. P11 . 21-NOV-77 15:34
gil';

004402

042737

170000

MACY11 30(1046)
00146M

BIC

—

310

S
ROR
T

SEQ 0oee

;MAKE SURE ERROR LIMITS ARE NOT TOO HIGH

33
wfigsoows

174

004602

12
16

ogétm

60 737
00
104401
104401

3414
341S

;

3418
gég

004652
004654

001150
007070
001224
001201

MOV
MOV

LKPAR:
001264

ROLIN

MOV

122715 000131

10
012737

000004

TSTB
c
geo
STB

4714

CMPB

M6
40
7
6610
3417 00444 023727 001462 000004

ENTPR:

3421

MOV

JSR
CMP

BHIS
MOV

001462

$1400.

,BUFTBL
+4

TRACT PROGRER SPRCE

C
nr

hn '

ro
w‘nas
j

X om.n nocn'mxsron ?

ng“’?xg;
LoaosnPtz

4§
gg
88192
s?: L aacx , MAXIMUM
ngxoLburrauq gmr

gt MAXDL :USE mx av L MEMORY AS MAX BUFFER SIZE
TBL+4,PARLST+2 ;VALUE FOR
THE PARAMETER TRBLE

T
87070,

otSCOW1
Tvec

YveC

-'xxop mm MODE OR 'ACT11’' OPERATION ?
on T
ma FRIL RT. ?
H IF SO
npr STAND ALONE MODE ?

, SCRLF

" ASKPAR

.asx rga Pmnsrsns
HE oF

(SP)+

;

8’y(ks

nv T0 RS

-uns NTRY a 'v' (YES)

.STVEC
ARLST

PC mn:h
koL 4

ss
xgc
XDL

iBR_IF _NOT
TER RBL

ADDRESS

iGET THE PARAMETER ENTRY
1 IS THE 'mxm.' VALUE OK ?

iBR IF IT IS
:SET "MAXDL® TO THE MINIMUM VALUE

;:DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT

agg

3424

004662

%737

022632

3426

004672

012737

177777

466

004700

737

062727

034636
177777

THE PROGRAM WILL USE

SETVEC: JSR
034560

000000

IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS

055012

§91
1270

Ss:
;SEE

TST

4s:

IIS&TIOE %’fio ER KLOCGTION TABLE
ON SYSTEM

BUF TBL +4
lém. ,BUFTBL+4

BNE
MOV
&ng

§E lF
T‘lfi TO SIZE MEMORY

.é%“’ %&"’

gEO

413

3427

583
SL'%S

12
16

3425

JSR

#E%LEE

) Ut
) ()

L)
G
) G

01780 1s: hov 5

1 ool;
lgg:
1
[

o 28787 1%

3‘";

#170000,MAXER

SIZMEM: %

it
ey

tata
o

1777277

3403
3405
3406
3v07
3408
3409

;ROUTINE TO DETERMINE BUFFER AREA SIZE

33”399
39

BO6

10:

e T OVRLUE O SorTHARE SR TER
RESISTER

1394
g
:J%

22-NOV-77

JSR

MOV

ADD

PC, CKCLK

,smm T"S

s-1,SAVEFG

iSET THE SAVE REGISTERS FLAG

PC'RMINIT
#-1.%0

~AMc

SINITIALIZE me RMO3 DRIVER

:CHECK FOR FIRST START

C06

) Tunhl B1 1CA ReB s Ter
e 2RoROYoF
.y MRCYLL RYOUR
Pflm2 PR VSR
206 835797 000004 174236
BIT
s5H02, 3SUR
O PEOUT THE DRIVE STATUS TRBLE *
To—
:CR- STATUS- HERDING
CRLF
. ?v
201
11 11 gi‘w?e
‘?wt
:E :gvshr

010446

943

TST6
'

0S3244

TYPE

bo10s8
05764 034502

394

3444

Jade
N7

104401

5T TYP(RY)

0S3404

128:

as:
3s:

e =

3457
:NSg

012737 053512
Y

3::22

460
3461
463

00S064
034502

015759
064
é%u %33657 ggssoa
5791

i
3%;

it1 001201

3469
3470
371
g;g

001314

3329

12706

09;;91
1
B
001100

g:g

o
9§:
108:

TYPE

NOTRM

vgmgour

gménoNG ZEROS

t: HECK DRIVE’S STATUS

;&fi&gfi
OR NONEXISTENT
SEE }r {r;

i:DRIVE
8R IF norTm
1 mvnga

B
Joress
?OTOFF
TYPE

;Bgiv; %

iPRINT %\{ENEWPE

MOV
CMPB

anga gg
viYP(R4)

TYPE

TYP

CMPB
N

Py
TYPE

E'AS

BNE
TYPE
CLR
MOV

NOTSAF

cs"83v‘rv3<m)
SCRLF

s: X

gcm.r
p
#STACK, SP

BT ot eREcehr
'q

iPRIN

iDRIVE UNSAFE

YPE

;%&gs

:
§S OF RMO3 MESSAGE
;RMO3 ?

O
SEACe?
3585 HE§§v&:
O ERWToE - EXIT

TYPE
TaE oAV Tyeemessace
:CR=-LF

fg'x'gx Egr,oaxvs NUMBER-/TABLE POINTER
:BR IF NOT
;SE-L
*SET PRIORITY BACK TO 'O’
*SET UP STACK POINT

:SETUP IF °*XXDP’' OR 'ACT11’ OPERATION

33;9

iég

%z 7

000042

g:;a

oosiew

005737

3483

00S144

105737

ys:

053462

133381

BRVSTACRY)

1578

163
osaves
053313
!
1

RY,-(SP)

TYPOS

105764 034472
104401

MOV

i Rl

“ggsé

9 PPPYPYYYYY 2

2%%838&28&2838

%1@ %u

525

'XX?P Ngmm MODE OR 'ACT11’ AUTO ACCEPT

001356

gg}

c;cnon

$og

0OOOY!

TSTR

Je4l

Lonoeo rnon PAPER TAPE ?

024544

MONTR:

JSR

PC ASGN2

ngsxcn DRIVES

SEQ 0067

CZRMBBO RMO3/2 PERF EXER

21-NOV-77 15:34

3484
346S

00S1S0
00sise

001406
3727

0013S4

CZRMBB.P11

463 002162
057770
§§ 00S166 004737 030516
3491

00S172

g:g

73;

3500

3504 85‘5'8

nc::1‘

MACY11 30(1046)

3532%

1 -

BEQ

100000

2s:

105737 0G11S0

001356

fOWT1:

18:

352

352
%g

%g%

3526 00537

3527 oossws
%532&1.
%4
005037

3528
3529
3530

353%

33233

005410

00S414

000137

104401

114
120
017704

0000

0S4462

000137 00SS74

SEG 00ee

000116

2s:

TSTB

SAUTOB

;s AUTO

5{’7

Eomaa

E%mr AT 200 7

‘8%“6&.’;"‘5‘ INDEX

P8 ZNoLomo
QELLT
THE OPERATOR
THAT THE *XXOP* LOADER
VERWRITTEN
tWI
ggcz mpc.gg;n;m Son? %’Ié?flfi: THE KEYBOARD INTERRUPT HANDLER
oy
MoV
MOV
BR

a1
83900710
con
827,
ENDCON+2
Fouts
Rl

INC

2Z?.E'r
6T 88 LSH
OF
EMOING
VALUE
ngfi
8:
EQ%NG
VALUE
:START TO WRITE AND TEST

én‘asu

;gga
MOV
JSR
3R
MOV
T
BEQMOVB
MOV
MOV

:DRIVE @

03«.41

FROM DRIVE RMO3

EsrmrTrlIaon anvs 1

olswsm(nn
&xaonma),ao
PC, CLROPB
gi.csr
!rck%ynz

'88{32 ON Lili ”?
"Sno
ogsnooasss
: CLEAR
BLOCK
O NET agogscss
EROR GETADR
RT QUEUE
T0 ABAIL
hf:sr
T nogg ?
:
L+
Toa
:
7
uoxr
#-2 . SPACK (RO)
WRITE PATTERN THEN TEST
CYLIMT,
MAXCYL
(RO}
; cn;n&n
LIMIT
mxmr,mxmng) :
R TRACK LIMIT

oisron anr
si%m MAXSEC(RO) ;
LIM
;CLEAR L
MINCYLLRO)

MOV
CLR

CLEAR L&uin LIMIT
LOMER LIMIT
:: Em

MINTRK (RO)
(RO)
MINSEC

CLR
CLR

JSR
cx:zg

Scs
LR
FOWT3:

IF _YES
THAN 16K ON THE SYSTEM ?

CMPB

88&?56
4

PRGE 69

cs
xésmo,nmooo

EtS

000024 000041

-ws
11

D06

CMP

FOWT2: cn.s

3506 % %g?sx 034472
18:
35093”
w
002102
3509 005266
7
025432
217 %
0257 l1
_——
001570
%i%
ooy o
10 m&%
14 %gw
ggxs
3X16
16 61;;23 6077775 000026
3317
11
1446 000106
3518
1444 000112
3%19

10:06

GET VALUE FOR SOFTWARE SWITCH REGISTER

3433
002208 815745
4
1573,g; 999994
301398
3395
gfi
853027
001452
ESES
3499

22-NOv-77

PC, WRTPK
é&aau,mau

:
UP PARAME TERS
fig"fi'i" ?\T’EIMEX

:;.m

;nu.
BN, W
:TEST PACK rkngm

INTDON

:TYPE 'INITIALIZE COMPLETE’

PACK
MAINI

TYPE

IMP

hn,gm

: : SDOAGN:

;

:JUMP TO WAl

AMETER AND BUFFER LOOP

:START rug PROGRAM
AGAIN

:START

START

33§gg

3 ;illiilll!lllllllil!!llll!llillll!lilllllll.!lliillillllilhlliiI

363E
3235

.SBTTL

MAIN PROGRAM

338

R RN AR

AR E R R

R AR R R

RR RS

CZRMBBO _RMO3/2_PERF EXER
21-Nov-77 15:34
CZRMBB.P11

40
4l

18:

22-NOV-77

MAIN PROGRAM

MAIN:

737

MACY1l 30(1046)

rsg

igz

10:06

ycfisn

:LET ALL DRIVE FINISH ODDER

3544

)

737

sg:

igg

452

012705

3SS1 005:22

905

18:
2s:

(RS) '
TST
33.:«5
335
%N
br SGETH2
S
JMP
nosTr
osv?n..m
BE0
se.
CMP
;31).0:5)
358
.g Rl
4§’
BR
MOV
SWAIT,R1
(R1) '
TST

ggqg
Bl
354

QOSHYYY
DOSY46

3SSe
3553
3554
ggSS

4
00S476

1057
001039

3558
3559
3S60
3561

005510
12
1y
16

711
140S
1115
1;1?

005532

12701
OO??II

3227

3%:
-

Ooss0q Dlordl

£ s
3564
3565

13§;

5%:
6S:

’

5 B2 S

3568
3569
3570
3571
3572
3573
3574
357S
3576
3577
3578

40
S42
S46
S0
552
556
00SSee
00SSe4
00S
00SS72

001403
062701

000771
011100
68:401
737
00S01S
005011
004737
000733

3588
3589
3590
3831
3592
ggga
3595

’

;s§n¥xcs THE XEYBOARD

§¥E ?Tsmmlg e, SENT Posx$xon
; mkgfi 0 NEXT TRBLE POSITION
0N S
BT
StRETURN
CHE roa MONITOR
:(g
;&_’ano(éE?5,.?‘5,',8”8}'-‘7‘%&""“5' TABLE
?n
¢ ot END;
GO CHECK
;Bg é'rmfs
N 'AVAIL’'
THE 'AIT!
ONE TO TRBLE
BE DROPPED
: INC n:n§ 00K
*AVAIL’'
ING TABLE ADDRESS
!cou%
IMOVE T NDkooaéss
THE BUFFER
? TARBLE
TRBLE WAIT
'WAIT'
OF THE OF_ANY
!mvsrt
MORE ’'DROP’ REQUESTS
SEE IF
‘BR IF

YES:

#2,R1

: INC

NT "WAIT’ TRBLE RADDRESS

(Rl ‘)‘ ng

;;ur rg:m?gé

;gn,ms)

;gsn{afi I’s‘ "WAIT’ TRBLE ?

}ES‘
CLR

#gcwgssr
(RE)

THE DRIVE'’ PE%ORMNCE SUMMARY
ET;IP’E
:CLEAR THE 'DROP DRIVE’ TABLE ENTRY

53"

5%"’"

:SEE IF ANY MORE DRIVES

MOV

CLR

(R1} =

*CONTINUE LOOK THROUGH THE 'WAIT’ TABLE
'S g:iocxoeoonsss IN RO

,Rsoggggsgrgfim’xm

FE??VE"méfiE“IL' OR 'WAIT® TABLE

:LOOK FOR DRIVES TO BE RSSIGNED
00SS74
00S600

012703
005002

000010

005606
12
14

765

001570
000002

005622
005624
005626
00S630
00Se34

0S
o4
005303
001370
30
104401
010446

00Se36

104403

3864 00se04
3S8S
ggg;

78:

017666

3579

3281
Bl
gggg

328

ADD

000002

053771
0e3le2

BEQ

5555583“?»—’%5”“’“" ?

oonr DEASSIGN ANY DRIVE,IF SYSTEM NOT IDLE

)

SEG 0069

glsaoeno

00S4
Y4

PAGE 70

g;mc

3SH§

354

EOB

18:
2%:

CLS

?EE
goo
INC

gsuum(ns)
#2,RS
RY

BNE
BR

15
mn;a

DEC

05330S

;355
TYPOS

;nsax

L SI mgcx

h’éu D ivs xfims POSITION
?fic gr’fiRSs
NT RSSIGN INDEX
: &Nc

:DECREMENT DRIVE COUNT

gB?-TES,

::SAVE R4 FOR TYPEOUT

:BR IF MORE
DRIVES
;552?55995m IONS FOR THE AVAILABLE DRIVES
*'TYPE DRIVE NUMBER

;GO TYPE--OCTAL RSCII

czanaao RM03/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

359

3597

005640

35
%oo %

ooo

68;»0
w’é 0SH404
D016121

MACY1l 30(1046)
22-NOV-77
MAIN PROGRAM

.BYTE

ys:

3601
000002
masoa
16 g;o 001612 S§:
3605
%g'm 1564 83-. 001544
3509 005702 062702
3607
33211:3

3611

3612

3613
3614

005706

000742

.BYTE

TYPE
;g

ggo
gox
gIse
ADD

10:06

FOB

PAGE 71

gss/ASGND
IL(R2)

SEQ 0070

;;TYPE 2 DIGIT(S)

S LEADING ZEROS

' ARTED’
m
AVAILABLE TABLE

3§.Ra
?:Ng rtn avaaekz
m% oé .
;%Wu;fgg;,a
lge
f INTOnav"gn. LST
ATABIT(RY),ASNLSthc
s&é;veogssna&
fcmon
82,R2
E TRBLE POINTER

BR
2s
;GET Pmnnzreggmaurr R m nno START ORDERS FOR DRIVES IN
.

005710

MAIN2:

;
:

3332

seryr
ALL

3617

3618 00S710
005712 00S002
oosn; 001634

350 005720 016300 001634

,
18:

gggflcm;cn IN THREE TIMES OF

CLR

:START FROM THE

869

HAIYeR2), RO

tE3AD RO WITH THE DPB ADDRESS

TST

or3 005756
00938 0000
015630
%7
3625 oosr-gd ooéasé ::

MOV

GeR
CLR

350 005768

BNE

£
Bn Boy el
328 005784 OI 4 001522
%z,su

3635
3636

006002

000744
osarof

3639
3640
3641

006012
006014
006016

00C240
000240

gg:g 006020
3647 006026
3648 006032
%gg

noe.g.‘:«.é

%?7
137
016200

001612
006206
001612

3651

00e044

105760

000026

35353
66 01 0} 001634
353-43
% §m2 wuaqnan?u 017666
3638 atle.or:E i oE t:ltmaD
“40

343
3644 006016 00S002
gg%?g

000002

MOV

2%:

MRIN3:

000104

WAIT(R2)

‘'

18:

ggg
JSR
BR
ggo

NOP

FIRST LOCATION
‘WAIT FOR T "Eur
R% ”

Fc(:é'c’ér
.
gg'fifimro‘czg‘r'&x BUFFER
RT. (G
(SP)+,SBUF(RO) :IF oEaurrEn 1S
STILL NOT nvnanaLE
srnxa;nm
Eén.sm"nx:: ggxirfgg s

A
?o}/
lOkt))ERO.RS

13;§

363

uarou;ueron
IVES THAT WAITING

gg“,‘,}- 1
PC . CMPRES

Egur ?'%v=?LT
oucus INTO ORDER QUEUE
agfsmcH IF NO
h°28 »-;
SS INTO THE ORDER QUEUE
v;
ng?Tme WAITING QUEUE
ongSt
?

IOLE
D
R2

(OB
TF THERE BREo (EQUESTS
:CLEAR oa"?vz TRBLE POINTER

‘A3

RO -ms
18
:g.na

F DONE
Eo"ogmc"snc"exn QUEUE

NOP
NOP

B
CLR

gg{
JIMP
MOV

azgn.may
iDLE
nvmuna) RO
gr;sxnno

ssmxapqfic
S aesg SELECTED ?

TSTB

$PACK (RO)

‘"R’ OR 'W’' COMMAND FOR THE DRIVE °

Eag

‘Sfi" al}/gsmuemnc FOR PARAMETERS
EaiiINCH 1F NONE
:CONTROL
BLOCK ARDDR IN RO

RMO3/2 PERF EXER

EERnea
P 032 V=S5
%
9

5§
H

17354

¢s

3658
15630
3659
goooos
3660
1
w.;’;
gggé %fxo
85%9 %-}-’5
114
16342

3664 oosxéo 012705 001522
3665

0061

3“35689

13
010045
%iaa 000417

3670
ooug:
3671 006140
3672

3%73
3674

006146

%150
159

usa
101006
1
7

000072
000003

006168
&122 Oi0042
OOCIEM 062702 000002
006170 000713
006172 012701 001612

3683
3684

006200
006204

006176

060201

004737
000705

SEQ

FER
( GET
)+,2gwcn0) iGET
:: agrfsn
10
F ’3
(NO BUFFER)
g’gh!;'x‘%anu)
‘cfkknrr
; nsv':r?ss'
COUNT
C, GODRIV
iPUT C
NT
N DRIVER

BNE
MOV

INC

BV
BR
ADD
BR
MOV

ADD
JSR
BR

:BR_IF NOT

C. URTPK
7%
PC,SELPAR
P
GETPAR
-(8)

{GET DATA PACK PARAMETERS
iGET
THE BUFFER
PSELECT T
TERS
e
W
.
:
ON THE STACK FOR THE BUFFER AODR

sORDERQ, RS

: ADDRESS

(RS)+

RO, -(RS)
10§

SFAIR(RO)
83, SFAIR(RO)
9

SWAIT,RS
(RS)+

RD--(RS)
1
%2, R2
18’
SAVAIL,RI

R2,R1

PC . CMPRES
18

:END

nS"F"E .

R QUEUE IN RS

BRI
:PUT BLOCK ADDRESS INTO QUEUE

:CONTINUE LOOKING

:: %ucns
NTTIMESTHEgl.rr
FAIRR COUNT
THREE
*s NOT AVAILABLE?
:BRANCH

IF NO

THREE TIMES

:LOAD INTO THE WAIT QUEUE
:AN AVAILABLE LOCATION ?

BA0_INTO
k:%vé THE WalT
o‘a % AVAILABLE QUE
NCREMENT INDEX
:
u&cx"gos FIRE NEXT DRIVE
P TAvARIL
* TRBLE ADDRESS
: FORM

SS OF LAST ENTRY

:COMPRESS THE TRBLE
:CONTINUE LOOKING

:GET BUFFER ASSIGNMENTS FOR DRIVES IN THE 'BUFFER WARIT' QUEUE

3688

3329,3

:WMAIT FOR AN ORDER TO FINISH

3691

006206

3695
369%
3697
3698
3699
3700

%ng

012701

001522

gg oosafi oxfigg
3694 %515 %sno 000016

IDLE:

18:

001773
162701 000002
006230 010146
oosag 004737 015472
0062
000240
%533
73; 006460

3703

006250

006254

004737

001362
027064
027112

70S

012705

001612

737

3704 006260 8012501
3706
3707

108:

017666

33239

3701
3702

PRGE 72

JSR
MOV
gso
2R
J

CHP
BHI
MOV
TST

001634

%76
3%
3678
3680
3681
3682

000072

GO6

SR
B
ISR
Y8R
SR

TST

10:06

MOV

7;2

355; 0061
3667
0061

22-NOV-7?

BalR BRocRaN

017704
Qig420

3655
3
365

15 34

MACY11 30(1046)

00b2bb
00e270

005726
001376

MOV

"03
?57
BEQ
SUB
MOV
JSR
NOP
JSR
CLR
JSR

2%:

SORDERQ, R1

{“fi )I,Rb
s?n?usmm

SS OF THE ORDER QUEUE IN Rl

;P“gDDTIIlFSLgCK &goness INTO RO
Egzs IF &xvs ?*NEI D

1%
82,R1
R1.-(SP)
PC.STATIS
PC,PROCES
BADSEC

:
F ?"hvé NOT FINISHED
:C
c
QUEUE POINTER
:SAVE THE
% aognsss
: ACCUMULAT
TISTICS FOR DRIVE IN RC
:DEBUGGING RID
;
“ss HEW
R

;seg IF ANY DRIVE HAS XFERED 3X10t9 BITS

JSR

MOV

PC, ABNRML

PC . EOP

1CL
:SEE

MOV

TST
BNE

#AVAIL,RS

(RS)+
2%

:FIND THE

(SP)+,R1

TRK/SEC ERROR INDICATOR
IF ANY DRIVES HAVE TOO MANY ERRORS

:RESTORE THE ORDER TABLE INDEX

END OF THE 'AVAILABLE' TABLE

‘END OF
THE TABLE ?
'BR IF NOT AT END OF LIST

007
0071

CZRMBBO RMO3-/2 PERF EXER
CZRMBB. P11
21-NOV-77 15:34

88578
12

C17666
015764
000004

MACY11l

30(1046)
22-NOV-77
MAIN PROGRAM

MOV

I0LEL

172642 12:

001314

JSR
JSR

T BIT
ZEQE
CLR

001314
3034

2s:

420

JSR
JMP

10:06

HOG6

PAGE 73

SEG 0072

(R1),~(RS)

;MOVE THE BLOCK ADDRESS INTO THE TABLE

55“02, @SKR
?RTIN

TYPEFPENS;ME SUMMARY
?R TO TYPE THE PERFORMANCE SUMMARY ?

gmq

g
m TI"E IMICQTOR

PC,CHPRES
PC,RELBUF

ATPR

;COMPRESS THE ORDER QUEUE
;RESTORE BUFFER

'& ?
HE LOOP

;SETUP TO REFORMAT AN ERROR SECTOfl
172610

REFMT:

g'X‘T

& F;*QSW

gn?Foufv g‘uxrcu SET

172600
;lfllf;
000270

‘LE

BLOS

000102
000074

000104

%
REFORMAT
: vOID gi;
NOT on"“BaSPot

MOV

noxe

2s ;

98
ngsa

uor FORMAT

-cs? c
criflogscron-rnncx ADDRESSES

HovB
nove

IT
NIR & DATA ORDERS ALLOWED ?

{ug

JSR

couur ron FORMAT

PTG
PATTERN
SSTTERN
coSe TODCONTROL BLOCK

MOV
REFMTX: RTS

:SET PARAMETERS SELECTED INDICATOR
'RETURN

; PROCESS THE ORDER TERMINATION

ROcES: 1000

BIT
BEQ
BMI

000234

BIT

000234

S?$

000246

18:
172414
013016

2s:

JSR
BIT
BNE
JSR
RTS

VLT,

ORIV,

R PN R

xrxs snncsxtnoi
E xrs;
'sc' SET
aa
IT14, SRMCS1 (RO}

5 T14, SRMDS (RO) BR

greRdc
PC. CKBUS

C, CKERR

#SWO1, ISWR
23
PC,CMPAR
PC

E 1r

R RS

RE’ SET

SET'ERR' SET

BT
e
:NO snnon cuscx BUS ADDR & WC
NO

ERR

CHECK ERROR BITS ANYWAY

:DATA COMPARE
7
:BR IF NOT
:NO ERROR, CJMPARE DATA
*RETURN

;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR

cznneeo RMO3/2 PERF ex;n
CZRMBB.P11
21-NOV-77
15:34

3764

765

oossso

000200

3;5

MACY11l 30(1046)
22-NOV-77
MRIN PROGRAM

000016

3770

377
377

3774

006SEM

574

0065

006612 001058

377¢
3779

3781

006642

14
2

3780

006634

378¢

006644

0327
001076

032760
001111
032760

001141

010000

3791

006662

013746

006666

104403

oos;n
g
006712
006716
006722
006726
006732

004737
04414
60-47.
737
00475;
0047
004737
000137

3793
006671
3794
006672

001000

000016

040002

000016

000004

000016

006670

w-ng
104401
104401

104401

001201
0S4014

046552

001344

006742

006746

104401

000404

006750

'ERROR’

uxm ‘DONE’ BIT SET

'DONE NOT'

BITS

oan“g,STATUS(RO) sis
IF onxv: WAS UNSAFE

¥ PaR’
T smrusmoi
:BR_IFmmv
IT RROR
DID OCCURRED

en;

capoesmwsmo!- TIMEOUT?
SWTIN
:BR IF YES

FALPAR'

iBR_IF

THERE IS ONE

aue

#BIT14!BITOI sm‘tusmg) ;DRIVE WENT OFFLINE ?
OFLIN
;BR_IF _17°DID

BNE

:BR IF IT DID

PUNSAF: TYPE
TYPE
TYPE
MOV

oapa,STATUS(RO) '

;PORT REQUEST TIME OUT

:ERROR.

'BYTE
TYPE

001201

020406
6552
0462
021070
1540
3644
022150
026764
046454

RETURN

UCPAR: TYPE

TYPE

0S4014

FALPR1: TYPE

006764

013746

3818

00e772

002

3817 006770 104403
00e773

000

001344

{T‘
SI;SREgx LERDING
ZEROS

L
BE "Sc"“""‘
:G0EPe TYPE--OCTAL
ASCII

i3IV

#ng
;s

OF ERROR MESSAGE
Vv c
rE
MESSAGE

NE 3 or; nsssnce
5% smon
MESSAGE
NT TOTAL ERRO
an LINE 7 OF ERROR nsssace
:DROP THE DRIVE
mm .é
NE
4 OF

,SCRLF

sCR-LF

FALPRI

'FINISH

emo

CORRECTRBLE PARITY ennon- MESSAGE

PROCESSING THE ERROR

MASSBUS PARITY ERROR OCCURRED

104401

ggig

FOR TYPEOUT

: UNCORRECTARBLE MRSSBUS PARITY ERROR OCCURRED

FALPAR:

046517

O SCRLF

PC,LINEL
ehx;
PC,LINER
PC.LINES
PC.LINEY
PC. INCTOT
PC.LINE?
OROP

JSR

MESSAGE

..snvs uux

J?fl
DISPLY
JSR
JSR
ISR
JSR
IMP

;CR-LF
! "DRIVE UNSAFE’'
:DRIVE nwgen

ONIT,-(SP)
2

001201

104401

CRLF
Mie
oanun

BYTE

104401

006754

3819

0CESS

881710, STATUS (RO} rma% PARITY ERROR?

BIT

:"FATAL’

3813

3814

ONE

TYPOS

33%?
3812

SEQ 0072

391707 $TATUS(RO)
BIT SE -.
5
RC1
22
é ongsn
T COMPLETE NORMALLY

RTS

.azaoe,ECE 006736 104401 001201

33%

17
NE

BNE

002000 000016

geou

3807

PARGE 74

:DRIVE IS PERSISTENTLY UNSAFE

006646
0066S2
006656

3795
379%
3797
3798
3799
3800
3801
ggg

ERPRCl: BIT

000207

37
37
37

3792

000016

004000 000016

g;gg

3789

106

:PROCESS ORDER COMPLETION WITH

3775

37
37

gso

007204

;:;gg

3771

ERPROC: BIT

10:06

TYPE

, SCRLF

;s CR-LF

TYPE

"EM1I

'rnm. PARITY ERROR' MESSAGE

MOV

UNIT,-(SP)

,,;evs
UNIT
r% TYPEOUT

.BYTE

..TYPE 2 DIGIT(S)

TYPOS
‘BYTE

DRNUM

:DRIVE NUMBER

P?vpe--ocmL' I!aEsc:u

: : SUPPRESS LGomc ZEROS

CZRMBBO _RMO3-2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

o BN

MACY11

TYPE
JSR
BIT

172142

3825 007016 GJO?O;

18:

3826
3827

BEQ
nagr
RT

10:06

JO6

SCRLF
AC, INCTOT
ciaxs,asun
1

PAGE 7S

SEG 0074

:CR-LF
: INCREMENT TOTAL ERROR COUNT
‘HALT ON ;RRon ?
:BR _IF NO
:ERROR HALT

; SOFTWARE TIMEOUT OCCURRED

3829

737

020406

004737
004737
0047
0047
004737
000207

020462
021070

SWTIM:

wn
£
(=]

—

007030
007034
007040
007044
0070S0
0070S4

3830 %;359 104414 046603
3831

30(1046)
22-NOV-77
MAIN PROGRAM

023644
022150

3?"
SPLY
JSR
JSR
JSR
JSR
JSR

RTS

PC,LINE]
’Em
,LINE2
PC,LINE3
PC.LINEY
PC., INCTOT
PC.LINE?
PC

; PRINT ;rme % OF E
:PRINT THE TIME OU
:PRINT LINE 2 OF E
:PRINT L}NE 30F E
;PRINT LINE 4 OF E
;xucnff'nem TOTAL E
iPRINT LINE 7 OF

: RETURN

:DRIVE WENT OFFLINE

0070S6

3847
3848
3849
3850

104401

001201

OFLIN:

007066
104401 Osu61a
e A0l
il
007076
007100
007101
007102
007106
007112

104403
002
000
104401
004737
104414

3854

007132

3856
3857

007142

7136

004737

oowg;
0001

TYPE
MOV

DRNUM
UNIT, -(SP)

:"DRIVE WENT OFFLINE'

.BYTE

$iTY

JSR
DISPLY
SR

PC,LINEL
LEMIY
AC,LINE

onok

ISR
JSR

023644

a;so
&4

;CR-LF

TEMIN

.BYTE
TYPE

001201
020406
046655

MESSAGE

: 5335
R
i
UNIT FOR TYPEOUT
;;rvp; Ygngs NUMBER
;;$o

--0CTAL ASCII

IGIT(S)

Oscn%r

;-suSSaEs LERDING ZEROS
(ER-LF

PC.LINE
PC,LINEY

;PRiNT L}
(PRINT L

:PRINT LINE 1 OF T
iPRINT OFFLINE MES
:PRINT LI
g oF T

OF T
40F T

: DROP mé"&axvs

;PORT REQUEST TIMEOUT ERROR

3860

7146

737

0204

3862
3863
3864

007156
88;1
1

737
7%;
73

020462
851070
1540

PRTIM:

3861 837152 ?33414 oq5783

3ee
007176 00473
Osaies
3867 007252
07

3337c1I 7204
3872 %7212
007214
007220
007226

760 000030
1402
000137
012306

032760
001402

040000

JSR
DISPLY
JSR
JSR
JSR
JSR
J;n

RTS

3esg

3873
3874
375

, SCRLF

TYPE

TYPOS

£ i Buy e
3853 g;xas %37;
1540
3855

TYPE

PE LINEIL
fIS
PC,LINER
PC.LINE3
PC,LINEY
PC. INCTOT
PC.LINE?
PC

: TYPE L% 1 OF THE
iPRINT
T TIME OU
STYPE
L
20F T
T
L
30F T
STYPE
L
9 0F T
: INCREMENT TOTAL ERROR COUNT
:TYPE LINE 7 OF T HE ERROR MESSAGE
:RETURN

: PROCESS ORDER COMPLETION WITH 'ERROR’
000016

000244

DONE :

BIT
Q

BIT

#BITO4!BITO3, STATUS(RO)

& 'DONE’

BITS SET

-gnsnre OCCURRED

.+b
:BR IF NO
: REPORT UNSAFE
UNSAF
oggr:u.snncsa(noi IS "WCE' SET ?
BRANCH IF NOT S ET

cznnaso RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

;9
7e

MACY1l 30(1046)
22-NOV-77
MRIN PROGRAM

000246

000250

%‘

1§:

3889

:4393
* 1D
3892

g
175 cnecx ERROR
IT14, SRMDS(RD) Bc‘ K *

BIT

nex o8 mnunoiah "?

3':5

cxPmr
i GHek FORMAT
ERROR
oegrormnuno!
ET?

000250

JHP
Eé'

CKHCE
HECK 'HCE’ ERROR
#BITI3, sanemmoi
I’ §£n

o
gég
JMP

ofis SRMER1 (RO) b&“?g'uorz:.e'r
.RE T 'WCF’
?

Jng
BIT

000250

gg
JHP
BIT

3304

000250

3909

000250 2%

000246

%i?

3ie

g&
m;

JEHO’

IsT

3914
g{s

JMP
gxr

000276

3919
gxg

mzsgg
'm§

MoT

000250

ggg;
3908

;

000250

%
3900
3901

000276

PROS;9 'ucnc'

mnuno!

3929
3930

007530
00734

005760
001027

3931

007536

0004231

000302

DCKER:

SET

cax 10, snnsnunoiafl- ?Er'co?egs?r
rf'
i REPORT "10E]
oax 11,SRMER1 (RO} ;'WLE’ SET?

R
R0E” "‘rgs 3

%5159SRIERL(RO) 7

1710, SRMDS(RO) &ng'msgrge
PC
’
' & 'LST’ SET,

oama SRMER1 (RO w%s IF 'DTE’ SET

smsmmom

EXIT

B“won
NOTTE' RROR
: E_IFo0cK’ &Y

;
:
ss 'DCK’
321 14!BIT13, SRMER2(
sxxx ogc;ec;%; SET

a'fi
9$

o?'(
mswIT1S,
R SRMER2 (RO}%3'38 é"'
(s)g (NO, OTHER ERROR)

NP
RTS

SKIER
PC

; PROCESS DATA ('DCK’) CHECK ERROR

000300

NOT

iR JE NOTST

ggsg

?‘3?389 010041
%z&o 000300

§:!

035
: 9057"909%7
fia SRMER1(RO)' ; "PAR’ sen

3%:
4s:

oo?sxs

3921

3925
ggg;

SEG 007S

ucngsq

000250

JGI%

PAGE 76

JMP
BIT

BIT

000250

3653
gns

KOG

?53

000250

3080

10:06

:REPORT SKI ERROR
:EXIT FROM ERROR ANALYSIS

gms
ggg

fiooux sanscumnm,\{guhx&gtx_}tx)on COUNT ?
finscunm
ERS}PSUSCW'” 0 ?

TST
BNE

$RMEC2(RO)
4$

ROUT.

:VALUE IN PATTERN REGISTER ?
iBR IF YES
:DATA CHECK ERROR

18:

0013s1

046063

001350

spor ON THE PACK

D
E
T
?
:
:
:
5
'
'
s
m
'
?
@
%
.
%
g
o
,
é:sx;g'ggNTE%EEEOFERNHI!SQEE

. ,RETRY

né%
iRI IS orrssr CODE POINTER
NISH

RROR REPORT

PC, GODRIV

g;m:

:gzw
! STATUS(RD) ' ; "9
,,ELZ‘R TERMINIATED NORMALLY

Ts;

$TATUS(RO

gTO0T

; RETRY

.551
FOR

T
RR
NT
|: *f;o1s..ss.E
SR

gés

gc’asxim:nuno)
'

ahfi

&Pafl
1350

TOTAL ERROR COUNT

JSR

ngRYRETRY+1

000250

gs
8
£

2
%
&

010100

—

e
s et et Bt
= Dt

s B

Bt Bt et

o
[=]

1346 000250 14§:

3s:

o<
o

B men
e7

(alalelelelelelelelele]

R R
T
N

2s:

% @;g 000200 000016
3

016342

€t
DD 4t
VI VMY
VDO
© D

737

&m{”s gno 000016

~N
W
~N

;

12737 000020 001350 1§:

;

;gma-am m
TRY

-ors' STILL SET ?

nsn&fimCount

§}rcoo(nn csnopéBgn

FENTT EINI

5 mv
hopaosmrus

C,LINES

PC, INCHRD
PC, INCTOT

TfllE

nv u
sesr rmxsueo WITH OFFSET

Rzo—u—.

001346
000250

, SPOTCK

LINE or ERROR MESSAGE

R %'o?fasoa'&

MN
O

DCKER1:

—~<

OO0

(= [= P 4

R
|kot

—

NNNN

o«

NE
PERFORHXNG
OFFSET
RROR MESSAGE

R _COUNT
EHENT TOTRL ERROR COUNT

6S:

:RETRY

b 4

Queroe

; "?

ng'?gr

ht b

SEQ 0076
RST

’

020270

MOV

PRGE 77
:T

JSR

001350

ggi

LO6

nt:x

O
D

10:06

2:88:55383&3833_833333&3&3

MACY1L 30¢ fMSE"oW"

3858=3b 0

s b

an/aal;c_%v EXER e

MACY11l 30(1046)

23
58
001376

e
1 123

4010

§§§

11§:

JLINEGA

-Y
1578 rgi R+1

Lg;
o

B"k"'::smcgggTAND CHECK IT

e gl
Bl gide
ie BlgE

2
BoE B
QE QG oooso
022074

020270

g
iz
AT
Sgg 8&83%2 3%939 047707 010326
G IEE ..

HuBR R EE .

WCKER:

2s:

a;r

;

MESSAGE

rtss¢Tac£

~° —
: m“ 'x‘r
i

fls"

Bie
ORCHE
OREN

LINESD

?é:

gt he§

Ei;;;s‘:mnxtm:glgzdkssc; ;n;o::sm

S
B
B

ROV

i *w
:

;WRITE CHECK ERROR PROCESSING

000250

SEQ 0077

B Ko
Ye
,LINE?
iPRINT
LINE 7 smog
nessac:

§§

% i

PAGE 78

128:

10260

:8‘i
23
éfi.uriw

101

10:06

RERERRRE

u—o—o—o—o—gfi

s s o
P

fg
ia

22-NOVv-77

MARIN PROGRAM

g % R

21-NOV-77 15:34

=TT

.P 1

RMO3/2 PERF EXER

c
c

sporcx

BN S won res
b LhE & PR e
ER Wlewmon
' BRINT L

‘er

FCERROR

HES

BAD SPOT ON THE PACK

.fi
B
l
S8
‘*fif?:&sfi“fi
F
i
on37 138
: i: o-:cxO.pck* AND *WCK® NOT DURING

B EE_ RBIIENE

MACY11 30(%
MAIN

-NOV-77

10:06

NO6

PRGE 79

SG%HEfYiham5gB3wfLmRiamsmamwmra%nTHekRetmm

7/2_PERF EXER

6R B8 3

001350

a.
:

mmw

TRY

PC,LI

0002S0

000100

000250

N6C

TRY+

;érnv
R
F
F

rxu"
Ecfi?

'xf

c LINEBC

,LINES

'Lmeg

INCTOT

9s:
108:

ké FM

118:

;REPORT "HCRC'
J

JBJJBJVJJR mlalal=olelely]

HCRCER:

000244

18:

1
1

F ¥£$n

rav.#:rnvox
xtxs.snnsnxtnoi

100000

SEQ 0078

TY TTTR LR

Nscnmmuxcmm TS NR

ofoo)o)]o)o))o))))v)o)vl)oo)oeotvTI.'.lll.l‘l‘.l.“"l.l111111IQ

EI-NOV-§; 15:34

)

-P‘IN?HL
e
INI

RETURN

ERROR

E
4,

22 SR
& LINE

SE LINES"

,&T*g

EET
INT

BRINT
PR NT

pn NT

PR gr

Z;rn
1

TRY

RETRY
PRIN

FRif LIV
XIT
RINT
RINT
EFOR
ETUR

czmeao RMO3-2_PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY11 30(1046)
22-NOV-77
MAIN PROGRAM

3i§
1

¥l
-uo;
410

10674

:ho

10710

ngg

737

Y114

411

3}{9

:Hg

1
1

?
7
7

737

.v;n
RTS

; PROCESS FORMAT

0O0M00

§{g;§

{07

4120
:{z

01
i

1
7

412

415¢ 818750

I8
B
4128 011
4129

uxgn
4131
4132

4133
4134

011012

11014
011
011

011
011

4135
4136

uggs
011

:{33

gfiosa

4143

guwo

4137
4138

ugz
011

000250

010514

;

)

O46116

uwg

)

S344

lfilm

011106

760

:Hgg gi“% 3%%2
D11142

042737

000400

010514

150000

046116
0S6S512

; RLk EOF CERROR MESSAGE T ED UP
PBRINT L r% 1°0F S MESSAGE

I
t#w.smcsamoi ;!
Q

JSR
MOV

CKHCE:

;

.L{
PC.
PC. INC

.Lm:;c

JSR
JSR

Pc,Lflgw
PC LINE?

RTS

JMP

gzg
BIC

WHICH CAUSED 'WCE’
R
T ERROR COUNT

{RETRY
U“”Eg;rgfiam
:PRINT [‘?fts;%
MESSAGE

gg.uue

BIT

AY
AY

ggn

BEQ

F NOT

: ng gm TAL ERROR COUNT
:
ngsx

% .gznv
PC.
SRETRY

ISR

: i
;
;

PC. INCTOT
ogi 4 . MASK

MOV
JSR

BR
JSR

TED macx 8 SECTOR ADDRSSES

: im@"?s fm'
;EfiT ;Fzrngo?s spor ON THE PACK

QaPLy i CINE

JSR
JSR
JSR

§n gn ORIGINAL ERROR ?

g?r'

5§:
000250

nc'

:311 csmscmth .'ngc' SET WHEN HERDER REARD?

i RETRY #xnxr
IRETRY rfi

;PR rTn LINE 7 OF ERROR MESSAGE

'
m L
PRINT L

PC . REFMT

: PROCESS HERDER COMPARE
011114

ncsn

JSR

4§:

xn.mnuno)

Fr’n R
P(".EPOTCK

BIT

RROR MESSAGE

ERROR

%
gasn

001350

7y
50

SSAGE
SSAGE
nson COUNT

;

2s:

001346

BIT

gso

Psu'm
('FER’)

RROR MESSAGE

m L
m T r

2066

11104

4150 011116
4185

SEQ 0079

NT L

18:

3s:

:'oi:?
4i49

CKFMT:

000244

414} ou%
4i42 011074
:i:g

PAGE 80

NE1

:Hé

4113

BO?7

;REPORT DRIVE ERROR

10:06

roamr

90 RROR MESSAGE
OF ERROR MESSAGE

HE ERROR SECTOR

('HCE’) :mon

ogtre,SRMER1 (RO) ; HCRC%r
ou ORIGINAL ERROR ?

1
ucncsn

: REP T r:n?cn
CRC snnon

;

1
“&:mscmnem
;’HC cE:T
?

usoooo CYLDER

almld

cum FORMAT,MFG,USER BITS FROM HERDER

Cm
A aax-nov§7 o
4iSe

011150

3%55

1“

4161
0
1
}
:{S Sfism
¥l

¥1S7

011156

4164

011210

4168
4169
4170

guaao
011236
011

it
416 giisls
11

026037

000270

0S6S12

7
;g
7

14
7

1= 000244

:};3

737

023644

4176

011

737

15394

415 81132-4 %:‘.733

25532

1
.

4175 §ug % @3 1358

4178 011309
011330

000207

:igg

:{gg

3}}%

413s 011

oow:;

015174

w4
6S:
POSER:

011404

connscv CYLINDER 7

:'sz‘rrgxfxrs
N }s
i

} r«f‘

00,CYLDER ; 1,

nrc USER BITS

EEEIER
"zct 4 mmzas&s
OF

BIT
BEQ
JSR

cgi w.snncsa(nni ;
RROR AL
4
F NOT
PC,L
AY
WHICH

Jss

Pci%v;c"g;(

JSR

%er
gflsn

PC, SRETRY

E§:Lfi§9

BC.LINEBC

;ngl#T L!E ?co?EWMESSAGE

Jgfl

PC.REFMT

iRE

RTS

:g.nzfnv

“

;

INC

CAUSED 'WCE’

MENT TOTAL ERROR COUNT

Efiftm#nx
:RETRY

‘gTfl s

:RETURN

Ssru MESSAGE

¥ HE gnnon SECTOR

gss

PC.R%E‘R&.T

igsc%xf?ms

3 "gs

iPRINT L INE 3508&5“?“T

128?6?

INCREMENT
TOTAC
LRAOR COUNT
:PRINT LINE 7R OF ERROR MESSAGE

?Zgfl.v Pghki

&
ISR

000207

RTS

§m§m grgcg
Pos?'a T’%N m; ERROR

geNESwoo Ryl B
PC LINE7A

eccice

SEXIT

:REPORT 'OPI’' ERROR
oii:og

§1w$3

:a
qsfi OH:
81}4

B
JSR bdm
LINEY

3&5
811
@333
883859
41
6ii%00
737 022276

'.‘é

SPLY

U8 gt Gy M oesz
:%

SEQ 0080

;REPORT POSSIBLE POSITIONING ERROR

4190 oug:z fiuy %

3{%

SRMDC (RO) , CYLDER

3s: ggnJSR PC,'P’gégrmSPOTCK
_

:{g §fl§ gg 855??3
:ig

10:06 PAGE 81

CMP

0SeS12 28:

i gliEs Bvr
4

MACY11 w(fmb&ocssnnov-fl

co?

114

004737

020270

859“83

7“
3
7?7 fi?@?fi

184

OPIER:

JSR

gfg

gc,spovcx

§5’"‘1

ggne bfll
Pgitigg

4211 811452 81 737 888883 88%358 OPIERIL: n8v

[]

g é?h

;SEE IF snnon AT BRD SPOT

ggsmL1 & erroR MEssAce

NT t;gS’SFE
RROR
Pnim
8 figg

RROR MESSAGE

ETRY LIMIT

ZRMBBO RMO3 /2 PERF EXER

Ezmaa P11

460

21-NOV-77 15:34

MACY1l 30(1046)

00M

73; 8559573

004737
44219
50 011510
011514 000207

-N

006336

-'3 aé
qgaa

11
737 020270
:o'
fl
Z 020406
4227 011530 104414 047446
ugsg 011534 000137 007632
:aao

PARER: : IlopLy
001346

001350

011604

004737

015344

4243

011616

004737

022150

18:

2s:

Y44

011622

:2"5249 3“2233 ggaowo;% —

Eg:'tém?o
.

c. n;

i;mcgg
PRINT'grfi
4
RROR MESSAGE
NT TOTAL ERROR COUN
;sem
MASK

C,LINEBC

gg.uns?

JSR

PC,LINEED

uasg

3%9

011662

000207

:y 8“2% ?333?5 859222
uesé 011674
737 020462
4265

4ee?

011700
011704

011710

004737
004737

000207

h5§

"’°& LINESF

P INCTOT
Pc:Lme
PC

:REPORT 'WLE’ ERROR

4259

4263
424

JSR

RTS

023644
022150

; REPORT

:RETRY

'RETRY UNSUCESSFUL

*RETRY SUCESSFUL

‘E';i'rw LINE 7 OF ERROR MESSAGE

;PRINT LINE | OF ERROR MESSAGE

P : 5?gpu

qgs 011656 004737 022150

:RETRY LIMIT

PC,LINE1

632 004
:azgcx' gfisas
1mz:1’3 85%23

2R
ISR

mm; txfi gE ororsgnon ncngsgggg

18’

:REPORT 'IRE’ ERROR

4525
02365
3253 Dlitue
8{{2& Douryr
88334'3 855555

i REPORT- ' AR’

;

322351

4249

;
REFORMA
,ssrunn

:PRINT LINE 1 OF ERROR MESSAGE

g;g

LINE 60 OF ERROR MESSAGE
.méNTL;N;HE
grERROR MESSAGE

[EMS3NE1

PC %nc oT
s8 o; MASK
#3,RETR

JSR

nerzv UNSUCESSF
'E
ERY L X

JSR
MOV
MOV
BR

;RETRY THE onoen

Pchgxrm
bcxen

Pc
ugge

JSR

SEG 0081

PAGE 82

RE; ir ir 8 m BRAD SPOT
:Poysq Em"eonl or ERROR MESSAGE
:°
:FINISH PROCESSING THE 'DTE’ ERROR

Jsg
§§R

4240

You2 811512 %9"‘? 02

RTS

Pc
3
P L
e

:REPORT 'PAR’ ERROR

4234 011550 004737 020962
01161

%E.E
Jsg
JMP

4533 011249 004
ToWal4 0472801

Y241

SRETRY

DISPLY

4231

4239 811?7& 815;

gflsa
B

D07

:REPORT 'DTE’ ERROR
DTEER: g;fl
Ps, SPOTCK

:5%
8“?23 w..‘;g 85%%33
4237 011568 004737 023644
ye38
011570
01
10

10:06

MAIN PROGRAM

355 8{}%»4
ol
7
e Biiwe GRS
Aa0SR

.
:ge
§fi§§

22-NOV-77

DISPLY

JSR

PC,LINEL

JSR
g;g

gg,une-;

,EM36
Pg.%'x*gch

FORMAT ERROR

:FINISH ERROR MESSAGE

:PRINT LINE 6D OF ERRO

p——

:REPORT 'IAE

tPRINT
LINE TOTAL
Sr“or‘“s"”ma"‘néésn&
; ;Ncnrf'nsm
ERROR COUNT
'PRINT LINE 7 OF ERROR MESSAGE
*RETURN

;PRINT LINE | OF ERROR MESSAGE

;nspom WLE
;?Négg *Lms g Sf_ ESE“ rggssncs

:
iPRINT
:PRINT LINE 7 OF ERROR MESSAGE

—V=eA4-NytneWe-UVIJURNtReELIsa“s’R—IB.L='LIL.D".W"I.gO'-L3 csccwsccc 4 RTOxuva

czDcNcOcemsamcMNsMIcTsOMcmc-IOILEBubse

NOIO—§2%V,O5m8oM=r5OysO0o5T5q%2Nm4w8OibN,elmTNld¥vnlva_lgseUaqm-£mIboqsmsiaaym
Y VTVIAVTNTT VTGVIIVVOV
“u.3mnu

Mq qqMqq“04q40qMfl0oO.tq0odq0eoqt0“qg0“oot0wo0tn 1.m0olml.mle.mllmlmlRS
lmml.l.i.l. ]S0RneR0RReR0eReRE0R KR0eRBEkemR0kEenSbem
83 885 538 8%
S@AxQdoe¥xSowYHvcaS@eHsHuC@OsUDIVOWrFL¥ EMaEoXOPOET—SYXaM-uSOooH0aMLOo->Sx¥QHX 4ciQgnal=nlcaolnaalssal—oalooiogolacloeslqeleQl 4Cm®0000olE_auIlvweO—l|emUl_elB4—'Rea3JNg'OJbaO4e=0+UlOowLgGtm
FrTY

FIr¥YI7rIrTr

LBgpePYus

”.

77777%.7:

Vuwo

mmmm
mmmmmnmmmmmmm

0000000

004737
104414
004737
004737
18:

; PROCESS CONTROL/INTERFACE TRANSFER ERROR

020406
0SO44S
020462
021104

; PROCESS 'SKI’

w.e

=]laniaL et i y

HCEER:

FMTER:

inlelelels

csacno!

MAIN PROGSQH

2-NOv-77

18:

10:06

; REPORT HEADER COMPARE ERROR

UB-MTOEN m mw mrnx

- — TM m

'OCYL'

SGER S58

)VY BB R B

MACY11l 30(1046)

STCErrZ
yU=eT >XB Toal=

QO> =

15:34

O F

CZRMBBO RMO3-/2_PERF E
CZRMBB.P11
21-Nov-7

EOQ?7
PAGE B3

SEQ 008e

OF ERROR MESSAGE

ERROR MESSAGE

; PRINT LINE
R COMPARE E
4

e
3

ANSFER _ERROR

RROR_MESSAGE

"MXF ,
;'DLT",",UPE"

Y UNSUCESSFUL

ERRORS

OF ERROR MESSRAGE
ERROR
OF ERROR MESSAGE
B OF ERROR MESSAGE

'MDPE"*

SET ?

CZRMBBO RMO3/2 PERF EXER

CZRNBB P11l
“

=4358

4328
4329

21-NOV-77 15:34

1217

737

g B BR

81553 830237

0Qu737
1M

339

xaasa

737

1076

4337
4338

1
1

4339
4340
4341
4342
4343

0l
0l2e3M

0lges2
012260
012264
01226k
015272

737
7
7

7.
127

rRYS

WCFER:

1540
3644

0127
3335

015344

004737
004737

022066
022150

001350

001346

33"353 012306 004737

wggé 015312
012316
gxgaaa
012326
012332
012340

737
7
737
012737
004737

4359

012352

0004

436l

012360

335ch 3%53%3 004737
4360
“3325

)

mgasu
012364

2s:

737

000207

020406

020462
1070
44
3
015344

UNSAF:

022074

022150

:fi 012366 10S737 001376
012372
012374
012400
012404

ooxog;
0047
104414
GIH?,;I?

4375
4376
4377

0Ol24ee
01243z
012436

104414
104414
010146

001350

022066

4364

4367
4368
4369
4370

18:
28:

012440
0l2444

004737
104414

NOMTCH:

020406
0SO154

;}NCR MENT TOTAL ERROR COUNT
: INCREMENT *SKI’ OR 'OCYL' ERROR COUNT
:PRINT LINE 7A OF ERROR MESSAGE

022430
053246

INEL

sPRINT LI

RROR

;gslonr
“§§T §;°§“RROR
gnguaf
IPRINT L
MESSAGE

JSR
JSR
JSR
JSR
MOV

PC.LINE3A
PC, xngq
PC. INCTOT
'PRT
83.RETRY _

iPRINT L as
OF ERROR MESSAGE
iPRINT
4 OF E
MESSAGE
NT TOTAL ERROR COUNT
: INC
:
F
SECTOR TO BE PRINTED
:RETRY COUNT

BR
JSR

;sC,LINEGC

:RETURN
RE ?E RETRY UNSUCESSFUL
:PRINT LINE 6C OF ERROR MESSAGE

ggn

Tg.LINESD

;PRINT LINE 6D OF ERROR MESSAGE

g;g

{70s, MASK
, SRETRY

;E.ans7

iE
MASK
i RETRY THE

:PRINT LINE 7 OF ERROR MESSAGE

JSR

PC,LINEL

Jgn
JSR
MOV
JSR
BR
JSR

PC,LIN$3
Pc.agc oT
RETRY
83,
PC.SRETRY
;s
C,LINEGC

;annrnkxne 3 OF Ennon MESSAGE
;agcns NT TOTAL ERROR COUNT
*RETRY COUNT
:RETRY THE ORDER
IRETRY WAS UNSU%ESSFUL
ERROR MESSAGE
:PRINT LINE §c

JSR
JSR

PC,LINEBD
PC.LINE?

IPRIN Lxgg 90 OF ERROR MESSAGE
OF ERROR MESSAGE
TPRINT LI

DggPLY
J

RTS

TSTB
BNE
JSR
DISPLY

EME
PC,LINER

18:
2%:

;PRINT LINE 1 OF ERROR MESSAGE

;nsponr ?n vs UNSAFE
OF ERROR MESSAGE
:PRINT L

;co«r;nu% WITH ERROR REPORT
:RETURN

DATA PATTERN

PC,LINEL
43

;FIRST ERROR IN THE
SECTOR ?
ESSING ’DCKER’
;gn {‘ NOT °“°}‘
;nnon MES
(TYP #xus 1
MATCH DATA WITH PATTERN’
:*CAN’T

ISR
JSR
BR
DISPLY
DISPLY
DISPLY

PC.LINE3A
PC.LI
2s
,EM43
|SCRLF
'LINSI

:PRINT L fiE 3R OF ERROR MESSAGE
4 OF ERROR MESSAGE
(PRINT L
PROCESSING ERROR
:CONTI
:7CAN’T MATCH DATA WITH PATTERN’
iCR-LF
‘HEADER FOR DATA PRINTOUT

JSR

PC LINOCT

:TYPE WORD 1

JSR

020462

001201
052563

:REPORT AN 'UNKNOWN’

i dlae vy gl
4378
4379

PC, INCTOT
PC. INCSKI
PC.LINE7A

SEQ 0083

PAGE 84

:PROCESS DRIVE UNSAFE ERROR

14 ggosus

4
4353
4354
4355
4356

FO?7

DSEPL'
Pfihsq
J
AC,LINE2
MOV
JSR

18:

4345 015308 009237 022074
4346 012304 000792
4347

4348

10:06

:REPORT WRITE CLOCK FRILURE (’WCF’)

012210
égg

4335
4336

JSR
JSR
J?R

4331
4333

4333

MACY11l 30(1046)
22-NOV-77
MAIN PROGRAM

MOV

pispLy

FRSTER

PC,LINE2

RI,-(SP)

,LINSP

:PRINT LINE 2 OF ERROR MESS

:ADDRESS OF WORD 1

: SPACES

CZRMBBO RMO3/2_PERF EXER

CZRMBB.P11

21-NOV-77

MACY11l 30(1046)

RalR ‘BrocRan

15:34

1
2
30 BB
U
e

:3&

OY414

{

%lfl

001201

—

A 14 %1201

2430

;;? lggeg
60‘0‘“"0
(

0lgSee

004737

12514
1

4394

12146

60%1'0

g
R
—"
439 gl 40 104414 8533%
e
T
.
3 Nins WU
g
Y401
012S

i H1es
g
Y406

012604

162737

B2 NSl 1R

012650

0327

4419
01
e
izt
g
4420
O0Oleeb4
001003

Y42i
44

0lebbb
812672

005760
oow%;

::2‘4 iEST‘i
71'4
4425 8127
&;g;
Y426
Y427

4428

4429

4430
4431
4432
4433
4434
443

012710

0047

012753

0047

0lg7e4

004737

0127

012730

0047

000207

PC ”épuocr

,SCRLF

fié.-(sm
PC.LINOCT
ktnsp
IR1)+,-(SP)

J?fl

k&hocr

MOV
JSR

R1,-(SP)
PC.LINOCT

°’3’“’ lk})o (SP)

001410
000024

000002

001410
881 76

;

WORD 1

;

'm‘)&ég

;
T
;
;

WORD 2

33«8‘ WORD 3
3
g
S OF WORD
3

:TYPE WORD 3

iCR-LF

;
SS OF WORD 4
;gzs WORD Y

‘aeggzegg OF WORD 4

D18SPLY '&k&"“?
iliCR-LF
" BUFFER
F
b<252.%2.> ,R1
‘30
MENT
3s:

1377

001406

4412
4413

::1; 01264
e pize0 wems
4417

(R1)4,~-(SP)

SEQ 0084

51
31:8‘ H
i CR-LF

DISPLY

4411 012636 oogeor

PAGE 8S

no3’“’
lk}n (SP)
J'fn
PC hx.hoc?

MOV
JSR
DISPLY
MOV

1201

GO?7

;‘1'922‘.3.:8‘ 1
:CR-LF
;
SS OF WORD 2

DisPLy

%euao

10:06

?gn
PC LI'!OC?
DISPLY
,SLRLF
nsv
R1,-(SP)
fin

1281

4
4

4393

=NOV-77

aéoa
ADD
SUB
CLR

8256. . CMCNT
:
T
COUNT FOR MATCH
'8 00, SCODE (RO) i
R
RATION INVOLVED ?
#4,R1
;ADJUST BUFFER RDDRESS
82, CMCNT
;no:gr
c?um
COUNT IN R2
R2
:C
’
0C

MOV

8-1, FRSTER+]

MOV

RTS

81 FRSTER

CMPLMT,LIMIT

'%r

:SET E

T ERROR’

;nger THE COMPARE ERROR TYPEOUT LIMIT

:RETURN

;CHECK ERROR BITS IN THE RH1l 8 RMO3 REGISTERS
060000

000234

177400

000244

CKERR:

0002S0
000276

2%
6e

18:

021070

BIT
BNE
TST
BNE
TST
BEQ

023644

2s:

;SEE
IF 'TRE’ OR 'MCPE' SET
fm:nflgn
1 0000, SRMCS1(RO)-an'fi

#177400, SRMCS2(RO) :SEE IF ERROR BITS IN CS2 SET
;’
:BR IF ANY sgr
RMER1 (RO)
: ANY gzrs
IN ERI
18
:BR IF ANY ssf'r
RMER2(RO)
IANY BIT
;N ER2 ?
;% I
SE

IiepLy
Emag
Jss
PC,LINER

';Snxm
ERROR BITE
SET Efln
BUT
Lfni 3‘0#

00S760
001010

000236

CKBUS:

rsere
MES

JSR

PC.LINE3

iPRINT LINE 3 OF ERROR

JSR
JSR
RTS

PC.
PC.
PC

: INCREMENT TOT
RROR COUNT
;PR*NT LINE 7 OF ERROR MESSAGE
;
RETURN

JSR

021540

022150

BIT

g«e

PC.LINEY

INCTOT
7

IPRINT *me g %

: CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER
012732
012736

INDICATOR

OUND INDICATOR

TST
BNE

SRMWC (RO)
18

:CHECK WORD COUNT
‘BR IF NOT ZERO

MES

RROR MESSAGE

NOT

SET

ossoxs

Bis%ee 85 !

=
i
e
et
Qg gigfi ggae
g %é%gg
44?7

fizci

13618 833%37

18:

2%:

::57 gina wlwé 001404

‘fi %fi

H N N
1318
2
ONE
eRy
M RS
de7 OI13133 01373 001as8
44 oigiqau

a7l 813148

000006

016037

000012

OO1idde
7‘5799“ 001374 CWSTR:

001412

3014

[

BITB
T2

ROV

001412

%e
THE
START
1ING LOCAT]
ATION

.%N b!E1&&«&?%0!&&:&

AT
L o eea
;
.
R
HE P
s
}BRINT CINE 7 OF ERROR HESSA
GE

.Snoe.scooemm5§§ A0 OROER
AR

4 TR

(RQ) R}

ICATOR

YEEM%‘Em

R5 ngéssolThanditneo
Lo
f
h
g
WUW
Ween
BlIs
e
1o
womng
Loos
ST LIR

CHP

CHONT,SSSEC(RD) ' IS BUFFERSIZE GREATER THAN ONE SEC

MOV

il
das] §i§§§§ 008237 S
001404

cMSTR2: INC

BEE BUP oo

SEQG

%
e
?ng;é

i B am
5B

PAGE 86

B
e
R
PG,
LINE3D
B
OEHER
gfi S§;E'ffi£9'

HE GG 0N R
.o 2s: B
4479
000024 000005
CMPB
4480 013514
BnE
4481 0138l 082711 140000
cED: 8IS
4y
f?fié

PC LINEL

go
R

paLui0
DO141

HO?

W(m)+=(SP) HORRGEETRTE BYTE Ccount

"BEQ

e
°‘f’i§ E@? 001410 000022
4474 §§1

4475

10:06

;COMPARE THE BUFFER

::éé §1§§ m 000004 000024 CMPAR:
4
i

22-NOV-77

01374

MRIN PROGRAM
ASy

MACY11l 30(1046)

4438

21-NOV-77 15:34

/2 PERF EXER

EZW.P“

RMO3

§§§

ZRMBBO

82’0’

2} zr

o
EMENT
"

LR
aY L e ven INTO LINIT VALUE
&Emfl f S iR
2

gg
COUNTER 5§REmRINING BuFFER

HEmi
ma. me
sem
$CODE(RO),#S
;READ
HEADE

eBITISIBITLY, (mi ser
an'x‘fiisxT1S IN CRSE BAD SPOT ENCOUNTER

B Eew. gmgSR 1%
15

BRI

ERCTR

et T o e

S
! INCREMENT3THEreERRORsomrion
COUN

00es

ZRMBBO RMO3

Ezmae.ru laafsflrovf Rxs:aw

“
3390

o
fxgsg
70 %53;
7
014160

—ae lgfl
Y496

MACY1l

013276

:333 §iw

§§

1 ~7o§

366

013
0133

:339 8%213%;’

032777
M

000010

3oa7 S

165622

4208 Qisxie 0o34
013356

32{2 oi

]

737 013636

BS:

:seu
00S
4ese 0130 Ooiua oo

0024
|

013470

002457

423 0i3ue8 01370
4534
4635

(013472

4538

013506

1527;7

000024

00000S

000400

001410

3553736 g%asoaam g?a og 000400
00067

33% °i§i3 i
4541 813522 1
44

gxgag

? %i:i: 000040 1

iggq 27

001415

4By
105037
001415
M
TN44 92237
4243 Oi32es
Batuis

00000S

gg;

?fi?h?msn

5?8

BEE
ggs

(mnkns

gga

sg.cmnr

1ST8
BMI
CLR
MOV

FRSTER
78
ZROIND

—

BLTY
gnga

BLT

, SAVER]

ogom
CMCNT, #4

CMPRX
goosmm, 85
CMPRX

1
3

%;9

:monsoer
crs

s
SWITCH
.
sfi’

:5cr:m xzs COUNT

;:%#mr
agrtm
r POSOF COUN
I8m"?
pmr

:ég scgmm: cmmcrsn-o

;

omme

i SAVE

x'r‘:

:F
?
.an
F
NOT
:SET THE 2ERO INDICATOR

:YES
igggo HERD AND DATA

iSET_COUNTER = REMAIN BUFFER LENGTH
;

;
.mc

?g;nx,os

TNC

CMTRK

CLRB

CMCYL

OMP
NO
agflfoggnons:zeno

iLAST 3WORDS

c
CMSEC

gcsa

:g&
T¥

BR
INCB

cngfc.nae.
éggsc

ss IN RY

;Nocaeh

CMPB
gtg

NO MTCH WITH PATTERN

r:n uxm PRTTERN

3533i.cncm

8256. ,R2

SEG 008e

PORT THE coman
RE
HECK
THE nfir HE HEADER
rxno n:

S’EE

MOV

:S'C"PRT

ggg

:gua,asun

:aag
ga(m)

CMP

MPR
:g.c
52-"‘“‘:"!
gg,nomcu

5
fing ooy 001410
oo 000004 B8%:
4528 013440 0237
013446
013450

PAGE

TST Encm

4s§:

4216 3%34003“ 1“0739 001376
4219
3520519 8133& %-4 7 001374
4521 ofa-ua 10137 0014900

4529
4530

107

53:

001410

10:06

ggn

MOV

38:

3510 Sf
1361
32%5 81333523 oosm%? 177776
4513

ARIN mocSnn

2%:

.'}500"99 ig% 1% zz pa—
4504
4505

22-NOV-77

CMDAT: ifig
J

012

3501
§f§{q
%lél 001404
5%
Sl gy

30(1046)

Mm",ro co%me ¥

gg;!USNM@EEo;%ggofogpzs
1O

CoMPARE
OUN

“§2‘an ?

s
nessr
TRACKCYLINDER
#
P INCREMENT
NUMBE

MADE

M=SFTB3e0g-TAL&9oeH.TYRF-Zi50HU-Y8GEw>Z-HGT¢gHRsEKbNV0S9wfy05uloW4emvEe%,UiTdBeRolbo-.WTvgY“¥=M5fiB2WZCRRfW0PoiT~8H3fEEOmOO45¥QWIX5?Wo&e,oOM.-AQkHoSAMs8®RCoIX%.R8meWsm562lloOT.fl5fWoT-lM%§=€om3EF. OREmBOEoRoN—n~amNouPO

SHOMwvewTmewwG%A0$33vmmwWpoupaut=et,..omI.I.sQ—
0136

%537
07

; TYPE DATA COMPARE ERRORS

Efi:

To T -T
—-nT - -o w—T
@o P

>>> >

PROGRAM

014112

CMPRX:

o o — TM N 0

22-NOv-77

RTS

JSR

10:06

PC,ENDCMP
PC

-4t

[4+

;PRINT LAST LINE

£ao w:-

N U~ e~ o- +

MACY11 3%%3‘46)

D = 2a owr 3§ WS5 %

2 s =o T
ONER(EO81MN8E O~ODR-M>E PO>

~
—
—
elbt sarasEauS onfRd sw ECEER -an RLLL Al LR2

egt

ARN AR goo

0e
0B0 0k0 0 0
N— & 38 %18e 8IR

8UoLnO—5L¢.4-TPRiMOKO -WY"Y RBo¥ 4eRs=—Lo~eW%E0ATOVCEGTREARCPOERR2A0ENMO@DOWL-BB S"mmox- moco XOD=xOdM®o-o O

L
R38NO80vR8)S0ot~B)0o)]e0nA)S0mR)NnoS0&]%S0w)o]0S8¥)0SLoS0W)S0S]oo0]Mo]%)0DaBo0]y)~0oeL 0o)0oa8uN0oEo%m0oI0No8&Em0vlRw0oN8;0=N 4)dooeetooet
CZRMBBO RM0O3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

Jo7
PAGE 88
SEQ 0087

;LAST CYLINDER ?
NO
T
i NORMAL RET
AROUND

! COMPARE® TET i 156130 INCASE BAD SPOT ENCOUNTER

;MATCH

PNOT MATCH
; SECOND WORD OF HERDER
;MATCH
INOT MATCH
; ADJUST WORD COUNT
: COMPARE' IS DONE
;RETUSN TO COMPARE LOOP

IF ERRORS

[+
4[+
4 (=] a

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
21-NOV-77 15:34
32& 81

w6l

101496

01
01

108:

8“100
14104
014110

7
104414
7

2430
001201

4e3

gsn? 001404

18 ;

000207

2s:

:
014160

014162

010146

012704

L R

4S50

014 xg

4653

314513

4654

4655

4656

4657

;E.(
)
LInocT

:ADJUST ADDRESS
1T
T

MOV

:PRINT a&L DATA COMPARE ERRORS ?

Ri,~-(SP)
,LINSP

NOCT
,SCRLF
AC

R ADDRESS

‘Su

£5

1
2
;

£3
DATA

DATA ON THE STACK

(TYPE IT
iCR-LF
:RETURN

FRSTER+1
gcm

JSR

xhoec

93;3’
e #
mcr T
JSR
E
RTS

; xgwmsm ERRORS FOUND ?

3a MANY ERRORS

MBER OF
ERRORSw
1 [ TTERN
WLES
OF ERRORS
TOTRL
3NCR§ MENT
LINE
7 OF ERROR
ERROR COUNT
MESSAGE

;ROUTINE TO MATCH THE DATA WITH A PATTERN
.cnu.
:
MOV
oaurr R,R1
;BUFFER ADDRESS

4649 014
""Eé

;g IF YES
:
Tw

#SW07, ISWR

BigpLy
|
MOV
Skcm
-(SP)

MATCH:

000044

T —

R
11—
4648 wég 127 000004
46

;os
¢

?:-E;r

%%
*:‘f
4643

evs
RT

ENOCMP: nga

4635
4636
4637

4e42

SEQ 0ose

:LAST LINE OF COMPARE ERROR REPORTING

14156 66
Jo4d1q 001404
46s?
D141
4628 014136
7
24
4630
3 71; 853‘1’50
00123.1‘
4631 °i3i3§
814152 883737
014156

PAGE 89

;BR_IF NOT AT LIMIT

JSR
pispLy
RTS

%a%aig gmia wsl:z:g 001377

4632

KO?

" v
;5( ')‘basm
DISPLY |,
MOV
3¢ *) -(SP)

%a?

:gg 8“1

10:06

108

gx‘

DISPLY

%{é }uosoq
éi
4614 1:&:
14
53%
4615 014074 ém
6277775

%xg
46l
%{g

22-Nov-77

MAIN PROGRAM

000200 165116 9%:

1
1
4609
410

MACY11 30(10‘06)

1421

14214
01422

Q014224

014232
014234

022125

2s:

1363

1374

002476

766

000002

012601

000207

:COULDN’T MATCH PATTERN

MOV

;SAVE R1 ON THE STACK

MOV

B
MOV
CMP

gue

%zou

JS?uau
PG,
RATCh
runré
'

3%:

4s:

844 RY

Pmr RN TRBLE INDEX

Do
2“

(nln (RS)+
18

ol
BUSL IR
3 o?‘ o&‘jons

gn {

NST TI'E PRTTERN

mv NEXT PATTERN

BNE

;a&"

8STNDAT, RY

i MAKE

MOV

82,2(5P)

(sP)+ R1

: INCREMENT RETURN ADDRESS

RDD

000002

R1,~(SP)

;PATTERN ADDRESS IN RY

ADD
RTS

;

? NoE
T FIN

PATTERN nooasss ABSOLUTE

:RESTORE Rl

:RETURN

;USE ECC TO CORRECT THE DATR ERROR

CZRMBBO RMO3/2_PERF EX§R
CZRMBB.P11
21-NOv-77 15:34

:&o

4ebY
¥e6S

14236

i
014254
01

S&;NOV-??

001420 ECC:

MOV

SRMBA(RO) ,ECSEC ;RDDRESS OF LAST LOCN XFERED

(

ooggga

%%59

wssg

4678

014

1416

zgg

B
CL
MOV
Q

10:06

LO?7

MACY11 3&(\}348)

PAGE 90

SEQ 0089

ERCRRGD
i)mKsXTREeHE,e
o
-(SP)
;
:
K
LOCN
SSEC(RO),~(SP) ;
%n«ov

;

xrsnsgzsv,secron SIZE

4:2;“
67 izg
of: 2737 886024
%«
§20DE
Efi%82%
%;%
000005
c
ODE(RD),(RD)- #S %'
i gfi
a;
000004 001420
%
al:.ECSEC
:3
Rs é
%rs§)BACK IN
4675
i:
1€
001000
001420
g:
gfia
z
.
x
'
,ECSEC
:
msaELD
SIZE
(IN
BYTES)
:2;3 14
001416 y
ggcv
gunm,scan'
Pg:szxgg:
ouN
%9

£33
4681

B
014

i:
:& 81
:233 1

1049414

13749

DEC

g
01426

B
SIC

ASR

1426

4689
014420 OY414
737 030036
4630 xwg
052716
.."233
im
001426
4o 014446
1 014764
4688

m‘is
014414

4691

1420

4695

13:8
1

:2”

:gg gim
:701 {
47

§1§013

47TM

14516
14822

}

001422

1
01

i:xg
wSu

3s:

]

wg 001432 uS:

1M14;5

4 461M 164666

4
14544
37 14
urll
ot
1 qi’é
14
1434
4715 gw
73 80083 ggmgq
3;13 3}:5665N mmEE 000240 001434
4715 014676 005037 001434

GHnEe
8l Cms

;

BYTES

(A Lo on
n
g

:
:'
.

oum

pIsPLY
ADD

:
;

’
oum FOR MESSAGE
WORD COUNT

NNING OF THE ERROR BURST

n: STACK

ISR PCL Né ;
g n m FIELD OF ERROR SECTOR’
gz?IMP Srcc2 tRO), ECWRD é&?’_x;"
1
IN
DATA
RERD
ENOT IN A % - REPORT IT

001426

1416

: oms

gsn
gc
o?asav LINIOA
MOV
£CWRD, -(SP)
A
J

g 030436

iwfi

(5P)

MOV
cgn
Ee 5

(SP)
oC,
¢

ca(ao) ecmskd:C ér T HEfigfl

qcan

:
E

gcsf
SROL

Egsé(r(o
CMSK 1

a§c

CWRD.
(SP)
iC
: ns)u:
CWRD
;

MOV

CLR
MOV
BIC

?s?
RoY
ADD
Sflp
cu§

grr

CWRD, ECBARDO :
WRD
:§
CMSKO, (SP)
.PU
nfi

} EQUAL ZERO

WORD

m ? IT OFFSET COUNT
xu0 THE UPPER

CT WORD ADDRESS

ans FROM MASK
axts
FROM BAD WORD

g'sxl
'I
;
xmo NEXT WORD ?
CGRoECWRO1EcurDl : INC%
F g.e
og
XT uoao INue aurrsn
gshemam.scunm
ECWRD1
Lsm5~oWORD ADDRESS

CZRMBBO RM0O3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

4716 gxw

471

P18
éo Bl

Sé
g 14640
:723

58 MR
4
‘4223
47
14630

:71
47

64624

MACYL1l 30(1046)
22-NOV-77
MRIN PROGRAM

001440

e4 AT
1424 164604
14 001426
6&3828

13;?

SS:

ECCl:

WEK g
7
g
i

.‘n
7;'52
4709 O 7§;

24
1434

3;«

37§

014764

014774

104414

ONv1N

052757

ogum

032777

000010

000022

sgs fiifi fi?fi
i
e
1

47es

4763

Biegds
DISO44

Ecca:

001201

4751

ECCX:

164150

:;PUT EmcfioON THE STACK

e
Ecfiw:A

MOV

;ccmo -x?)

Biga.v

LEEWO
i TYPE
iPUT

om:co

summe&wmw
cONE BITS FROM DATA WORD

ON THE STACK

3%:* L,l.nbcr
e s
1

gr
c
PPRIN THE NEXT WORD

3, SSL}‘OE%SP)
PLINCET

ngE

€O1ou THE STACK

SECWRD! ON THE STACK

,LIN1OC

;PUT
2
$EXI

*8 1,-(SP)
IR
ttsxY

ISPLY

DISPLY

RTS

SCRLF

:ERROR BURST WAS NOT TRANSFERED TO MEMORY

;CR-LF

#SW3, ISWR

mx;«;éor:amsecron ?

Emi:?épsu;) .fiwTb:‘&cxmmzso}:":"&cggsno

$SSEC(RO), ~(SP)

:oggg ggifl?,‘a g@m B80828 ooooos !5

fim

W
BIC

PRTBAD: ax;

BIEEIE

mxm

CWRD1 ,ECBAD!

:ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR

1
000410

SEG 0090

sscx

o:n.v

4741 014
617;-3 1
M3 Olu7ee Towale OE5ade
B §1~o;§3 %&2
014770

PAGE 91

B By o B e s

%
Qive sfizy
it
52’0 gis;
%éwg
4745

MOV

MO?7

[y PHMICT
’:‘&"
L ubc#
Rov - at
-(SP)

3 A E e

B8R

10:06

WORDS musrsneo BY THE SECTOR SIZE

BT
Q
1

i8R

s EINISH rvf

EHEs

(%),

gSBE:Rb)..s

onh
A

1. S

e
xs - comm: SECTOR "“'?fifio"‘é?m i
ER6 " RBoREEE

:%*% th&%%ibfi B BATR 3

DEsmoee
i3

AL g

—

RMO3/2 PERF EXER

P11
4

4
37” :

21-NOV-77 15:39
7

i?i%
i i“

;2§ 835338
“in 053246

i i

MACY11 30(}

2-NOV-77

10:06

PRGE 92

us:

—

NO?7

&r
mmm
n£
gn.v

tkuo
-ufm

sTYPE
T

En
:2“’h"?Egtcron ”?
gat{.;

;
HE oam ON THE STACK
::
%mm
n: 7:2“&8“TAL
COUNT
NOT AT
OF THE
LINE
¥

3
i f
1
M
12l
L ——
-o;g 12132 04414 001201
37
015146 600207

5§:
6S:

:ROUTINE TO DO AN RTC - DRIVE ssu:crso IN RO

3;8

[ MOV

i
479
15150 11
e
:7’. L
} }

4795 81?1%
:;;

01817

"
%SPLY

SEG 0091

RLF

sDPB, RO

PC,RINCTR

' ERSTORE THE WORDS/LINE COUNT
: ;mWHAT REMAINS IN THE BUFFER

; OPB ADDRESS

ReTum "
THE DRI
TO THE GENERAL DPB
A
J
; DRI X
ENT

RTNCTR: MOVB

800017
364 oveos- 18:

% ey *8

'E‘gfl
D 'Taccc 25ORDER

:;g

,g&unus T0 DO A RECALIBRATE - DRIVE SELECTED IN RO

4800

4801

MOV

4802

4804

RETURN

4805

JSR

Pc,atcm.r

;DPB ADDRESS

MOV

#0PB,

;DPB ADDRESS

’

4806

d07
33?3

e MRlCicewes
[BRIVE Rooadss
-

RETURN

481

15174

111037

046062

RECALT

4919

015216

005737

046100

2s:

33}3

015224

000207

:MOVE THE

DRIVE 8 TO THE GENERAL DPB

;SEE

FINISHED

uexé §1seon 12937 000107 046064 RECALD: MOVB
onecAL GENDPB+SCOMND §§LCN.IWTE COMMAND
33{.. }seclag 60%37 035364
18
JSR g
,RMO3
;
"TQ“FSE
4815 81%1-0 %9?5
.
18
: vi PSN'T ncccepur THE ORDER
481?

015222

001775

BEQ

RTS

GENDPB+STATUS

:BR IF NOT FINISHED

:RETURN

:g?

‘85{3“ THE DRIVE IN RO (OFFSET CODE PRELOADED INTO 'RMOF')

4822

4825

4823
HE24
4826
4827

:
;
01S226

111037

046062

OFFST:

mMove

SOFFSET,GENDPB+SFMT

:OFFSET CODE

Hov
JSR

s0PB
PC, o#

;0P8 ADDRESS

MOvVB

(RO),GENDPB

;ORIVE

RETURN

TO GENERAL DPB

EERrEB P11
c

“21-NOV-77

RMO3-2_PERF EXER

15:34

RaIR BrockRn

MACY11l 30¢(

-NOV-77

808

10:06

PRGE 93

SEQ

483

4834
:ass

.um.nv READ HERDER ROUTINE
:CALL :

A
4843

4844
484s
neug
S8
4g4s8

4850
4851

015252

015260
0l
1
1
01

116637

615537
1
11
1

01230

000004

é%%

046073

046072
0460

g::sosw
€066

4823
012330 OB173% Dlei00
HEed §}s;|g§ oussog 000006
-43557

48Se

4858
4859
4860
4861

?5%

oooa“aw S

015344

004737

015350

00S760

4870
4871
4872
4873

mg%
81
125%
01

182423;

gfe

MOV

015354

oi 3

001775

716
0425

l»g':.a

016342

000016

;

4881

oxgu

000250

4882

015430

4880 812"%8 ?gu&u
015426

33760

001346

105237

(001351

001407

ngosggn'r
B FoRACCEPT RCOMMAND

Magrpcna g§"n§
;g
gT rggnggg

:gpébs(sm

PC .

;RETRY COUNT

%fl%fié

SRETRY:

JSR

PC, GODRIV

;RE- mn ORDER

BEQ

;

i33;5: B°i53{3
iEG gmy
e
oo%se 0002s0

:
:

001351
000002
000200

RDDRESS

; TRACK RDORESS

+
+SCYL
‘DRI
+$COMND ;

;RETRY THE PRESENT OPERATION
iCALL:
:
MOV
#COUNT, RETRY
;
JSR
PC, SRETRY

000016

4882

+$TRK

4868

we:;g

n“?g

3855

4869

,=(SP) ;CYLINDER

READHD:

:eaa
it

4867

2%:

3§:
4s:

i ShcEs
(«kg
§:x}"A
TRY,

157

?nx
NCB
ADD
BR
BIT

STATUS(RO)

2
RETRY+1
82, (SP)
;BIT?.SYQTUS(RO)

Hoxganemmm

ggi
B8R

RENT ERROR OCCURS DURING
TINE EXITS TO

'ERPRCI’

R FINISHED?

;
i1
1
.co T

uor

m RETRY COUNT
RETURN
oegen TERMINATE NORMALLY ?

1 oo

Ensx Fsun; THAT THE DRIVE ERROR REG IS CLEAR
Egon mx RETRY

:BR

BIT

MASK , SRMER1 (RO) ;

INCB

RETRY+1

BEQ

THE

ERROR?

IF NOT

: INCREMENT RETRY COUNT

CNA

wru
-

21-NOV-7%

15:34

MACY11 30¢(

001350

001351

RMO3/2 PERF EXER

ueas

015434

123737

oxswe 001340

el BRockAn

-NOV-77

10:06

cos

PAGE 94

RETRY,RETRY+1

;DONE ?

SRETRY

:BR IF NOT DONE

3@ f
022416
737 022150
:”0 is
7
4891 015462 104414 052433
:ggs 015466 000137 006SEY

E!;

gtag

ggthn: TO UPDATE THE PERFORMANCE SUMMARY STATISTICS

nl-

:9*

4316
4318
A

4319
: 929201
:

s Bliess oo

000024

E?EZ % 000020
000046
000050
2
000052 1§
Bize7e BRIZER

Se02 026060 000012 G00270 2%:
1 LG
50 000001 000042
gleis
v

5620
Se4

%339

015626

000000

000044

4937

49328
4939

SENT WEMTION AN AUTOMATIC WRITE CHECK ?

(RO) smnust. IF .'& uoaos WRITTEN
oA E’zm%(no) T cs READ WORD COUNT
GREARTAIRRTO RO B R cARRY

SCYL(RO), smocmbm oxo nm-mmsrsn SEEK OCCUR
81, SPOSIT(RO)
m
ftm SEEK COUNT
w3
Bkl

RDC
RTS

spbsxnamm
PC

noo CARRY TC UPPER WORD

FACTOR:

.WORD

;USED FOR WORDS TRANSFERED

$CALL: MOV
CLR

:ggo

AR
CMP

m REQ gfl WRITE

3s:

H450E
4329

GI(RO)

:ROUTINE TO GET A BUFFER

4933

@®

000002

gaas?usc ¥53ggfmgmeems
-

#B8ITO7!BITOG, smtusmm cmcn;“rgg Rg?m
TERMINATION

fi-

4324

STATIS:

URN

;DPB ADDRESS

P?.Pg?ngxs

000016

MOV

000300

032760

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

3914
aate

S472

5t et

—

5 £

wgo

;
0000000000 00000000000

4897

:E oxrrtnem ERROR
: } §"§c
s ADJUST
K POINTER FOR DIRECT RETURN
§
NT ERROR DURING RETRY'
; lonsnf E

P anv

o-o

78:

FE LINES
rc
oxsn.v
NBM
JMP
th}mcx
{3&

3B i’i‘fé

wggg

015630
015632

1564

01Se44

015650
01SeSe

JSR
RETURN

sDP2 RO

-(SP)
PC, GETBUF

Egpgm 9% gmcx

;BUFFER ADDR:ZSS WILL BE ON THE STACK

:STACK WILL BE ZEROC IF NO BUFFER AVAILABLE

010146

GETBUF: MOV

R1,-(SP)

;SAVE Rl

1g;32

MOV

R3.-(5P)

;SAVE

010246

1444

012701

026061

10140%

MOV

001700

MOV

001702

MOV

000020

000002

1S:

R2,-(SP)

aghaL.Ra

SBUFTBL+2,R1

'FIRST ADDRESS OF ALLOCATION TABLE

CMP

SWRDL (RO) |2(R1) ;SEE IF THERE IS A BLOCK LARGE ENOUGH
39

SEPARATE BUFFERS

BLOS

18R

R OF

BEQ

{BRANCH

VAILABLE

009

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
Y940

015660

:wg

}

:ws

{

21-NOV-77 15:34

4998
OF
:flig i
4

000002

:50 figfi

157

001700

ys:

4325
018738 00530%
4oy
015734
001407
4955 31 3% &g;gg
“
15740
000004

4958
Olorde 015351
4959 8123"58
305
4960

015752

4962

015756

4961

4963
:gg

001374

015754

gxasas

015760
015762

012601
000207

6S:

012602

4966

;CALL:

4969
4970

ggo

:q,m

om"

MOV

W ngu

(31) 10(SP)

;

aols

OINTER

a”?o STACK

.?‘no(.mo),amn :RDJ

gflgg

;fif:%i
RD) :mmsrc
u (RO’
: ;

B
BEQ
MOV
ADD

RX
R1,R3
#4' R3

ABL nsr ENTRY
.
:ggvé
%as
:
r

DEC

(LRl
'

; DECREMENT TABLEC

MOV

(SP)+.R2

IREST

ggc

MV
BNE

MOV

:
:

JEATH

MOV
JSR

010146
010246
mggus
010546
81 7&
01

001702
001700

RELBUF: MOV
MOV
MOV
MOV
MOV
MOV

4380

016006

016003

000020

MOV

016004

4382
016014
4383 0l

016012

001424
006303

BEQ

000006

18:

=
B oo
“499!89 i
oxggg
%57
01
137

3123%

4990 016046

16011

"“"né

312%2

%3502

001700

4993

016056

815021

000006

4995

(016066

005237

001700

4394

015764
015766
015770
015772
015774
016000

SEG 0094

oecnsrtm ma.: COUNT

4373
4974
¥a7s
4476
4977
4378
4381

PAGE 95

TBL

(SP)+,R3

(SP)+.RI
PC

. Zams

TES T

& RBORES
S

NTRIEs coum

:POINT T0 vcxr EN nv

mw i

:CONTINUE IF NOT m sno OF TABLE

;nsgr

;ns;ro
:
RETURN

:ROUTINE TO PUT BUFFER BACK IN TARBLE

4968

4379

D08

LH]

MOV
RTS

4367

3s:

10:06

DEC

BEQ

000004

22-NOV-?7

MAIN mocSm

005302

Y41 gxsssa 001434

MACY11l 30(1046)

16054

Q016062

016021

%ooos

0020

000020

ADD
CMP

R1,~-(SP)
R2.-(SP)
RY.-(5P)
RS -(SP)
Wrau ,R1
TBL,R

:
n§
; gmm
maLE
:

SWRDL (RO),R3

.nx

SAVE RL
vsna

.
g_'
nprv TRBLE

£
DEC
BNE

$BUF
(RO),R3
(R1),R3

; gfiACEN
mm
no.mcem BLOCK

rR2’
18

5:
COUNT
ONT INUEsgn*nv
ING

aur(ng)

(R1)

INC
INC

BUF TBL

MOV

$BUF (RO), (R1)+

MOV

2%:

:DPB ADDRESS

ASL

MOV

000002

sDPB, RO
PC, RELBUF

B8R

MOV
INC

;¢

T m:

FER BLOCK INTO THE TABLE

;inc rsn NTRY COUNT

WROL (ROJ,2(R1)
'’

: &mnf"’" R2 FOR USE LATER

:SEE

IF A LOMWER nomcem BLOCK IS IN THE TRBLE

;BLOCK RDDRESS

SWRDL (ROY, (R1)+ ;SIZE TO TRBLE

BUF TBL

TO TARBLE

: INCREMENT ENTRY COUNT

Py
ey

CZRMBB.P11

21-NOV-77 15:34

CZRMBBO RM0O3/2 PERF EXER

MAIN SnocSm

MACY11l 30(1046)

B
QLS
SO oooooe oo, %
4
m% 1
5%:
"

S000
6001
%g

16072

01611
0161i4
161

1
01

Ky
BR

MOV

10:06

EOS

ooy
ey | :iRelissenaurren 15 Louen aosacenT
;

32 -“(sm :

6S:

A5
%
ADD
DEC

BUFT
ns
oegsr B(+2,RS
s( ), RY

2015
3i2i§ %z;g 000002
- 000002 5014 0161
001700
5015 81515«
10

AoD
DEC

Su’a(

sox;

151%

5021
5022

016202
016204

012605
012604

5024

016210

012601

5004 }Ei
isi
S00S
p1
233? 16134 %;gg 000004
5008
8%2{33 :
8017
0161
12521
5018 016179 012521

5023

5025
soeg

016206

016212

000004

9g:

108:

MOV
ADD

e =

PAGE 96

MOV
MOV
MOV

001700
001702

22-NOV-77

i ENT
; BEGINN
; ocx

or meLE
uono§)

(35) RY
g:,(hn
gg#4,RS

’
:
*o
x550 ENTRY
;:uc
c m zunvcoum

mi?'gmsn

&
fiog
R BLOCK LENGTH
c
m N

MOV
MOV

R1,RS
84’ RS
(R§)+,
(R1)+
(RS)+. (R1)+

o&z
;
55

MOV
MOV

(SP)+,RS
(SP)+.RY

:
.REST

MOV

(5P)+.RI

;

012602

MOV

000207

RTS

(SP)+.R2

conmsss
m ro mxr ENTRY

;

wan

go:oeq
ae=

rxu. THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER)

5031
8032
5033

:
;
:

5030
%33;
5036

016214

104412

558% 8{5‘5&3 1327150 000004 000024

;

MOV

;

RETURN

FILBUF:

sDPB, RO

;DPB ADDRESS

MOV
MOVB
JSR

#BUF ADR sgurmm -LOAD BUFFER ADDRESS INTO THE DPB
SPATTERN, SPATTC(RO} ;PATTERN CODE
PC,FILBUF

SAVREG

#B1TO02, $CODE (RO) '

grx‘r:a

m: REGISTERS

E IF RERD ORDER

5039
gxsags
§‘1’1
000006
18:
5040
0162
000020
Smsmé oisaas 13&75013 000001 000024
5043
31253: ggnx
16011 010000
000012
S04 81

MOV
MOV
géaa
MOV
BIS

éfi"“%“&e :
881 .scbosmm Dgés VE un"cxlgs
Hsnosn TYPE ORDER
fgv#cnm
(R1) ghgfm;n
#BIT12, (R])

S04

MOV

$SEC(ROJ, (R1)+

;

R
MOVB

A%
spmrcmm R4

R
IF ENO OF PATTERN
:RELATIVE PATTERN ADDRESS

5045

S047

8xsass

721

oxsgax

162702

2048
D16574 BoaaBY
50s0 016276 116004
SOl

016302

O0le40S

140000

000010

000002
000030
002476

2s:t

BIS

SUB

MOV

8140000, (R1)+

82, R2

STNDAT(R4).RS

iADJUST

usza BITS

cronsmacx

THE WORD COUNT

:PATTERN ADDRESS

cznnaao RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

1805

2053

0SS

01l

}
1

MACY11l 30(1046)
22-NOV-77
MAIN PROGRAM

000020

1 40S 000020
002476

5060
00163
1
?
806l 0163490
ww'fé
00020
5059

ys:

:START

ms:ss

5067
2069
070 016342
010046
5071 016344 81083; 016354
507§
507

16350
16354

ssg;s\o i
so;; 01

50
sog

0163
0{237'0

000040
000034

508:’soea'

016416

000207

5084

: PATTERN

Beog

'(‘RSSO,(RIN

,no‘é%nt
mnc

B'EE

gs
€ n;

BNE
MOV

gog:

i DEC rg
NT
T
: *
mn

coum

%MOVSREG 3sSTNOAT(RY),RS >,sgr
r nscxsr
énc THE PATTERN
RTS
PC
:
THE ORDER FOR THE DPB

IN RO

GODRIV: MOV
MOV
18:
JSR
2s:
LWORD

RO, -(SP)
RO, 2%
RO, RMO3
O

: SAVE
: CURREN
s
CALL n:
82 \\ori BL

novT

ADC
SEHP

n03

3s:

mo rr: BUFFER

ADC
RTS

(SP)+,R
obgobsgcmo)

DPB ADDRESS

‘REST RCTED RE s
: INCRE m THE OPERATION COUNT

S
nmsmm
gsmvm (RO), SCYL (RO)

;;0S1T+2(R0O)
SPOSIT(RO)

mnoLsn
S GOES HERE

oxo ORDER REQUIRE A CYLINDER CHANGE

:?scsensm
sesx COUNT
:ADD ANY CAR

ge“nel-mrs PARAMETERS FOR THE OPERATION

soae.s
0ot

S087

2089
016420
0047
50391 0le424 032

S090

5092
5093
5094
5095

#20,R3

SEG 00%

000012

ggao
815385 ge?so 000001 000042
6081 016412 00SS60 000044

PRGE 97

PC
cboaxv

528 000001 000036

mwos

FO8

i: CALL: MOV
JSR
‘

035364

MOV

10:06

016432
016434
gumo
i‘fim

001012
0O ag;
7

000010
7974
1500

18:

2%:

%o«

€102

016479

110560

00iS12

€107

016522

026060

000100

€103 msgg

gt
LPAR

’
R
PAR: J
83%3? 162522 a??
'n%.asun:

'.-'.“9
t: cjE §i23§g 60-47 4 017276
5099
815%0“
ux“
u;-’a?;g
£100
15-0%
7
101 016M

MOV’
JSR

104 016
13%
€10 016506
016
000242 000076
S10e 0leS14 016060 000270 000100
000106

THERD:

BNE
MOV
JSR
Su"x’s :

28
810 n;
PC, BETREM
"RATIO

gnsn
MOV
BIC

T&%mr
SLONUM,
RS
ucx.ns

MOVB

ns $NCODE (RO)

ADD

4, RE

;DPB ADDRESS

;CYCLE

THE RANDOM NUMBER GENERATOR

: SEE gr SWO

SET

‘BRn3 SET- READ ONLY
:RE /mérg SELECTION DIVISOR
IGET
lic ON VALUE
DET RAIN
F READ OR WRITE

;set g A mxgg ORDER
55
CTouTRE
'tnoE#Eopemr}on
CODE
:
T
iT

OR RERD CODE

SELECTION
C
oos TO CONTROL BLOCK

TST

"Sfi R

CMP

SNCYL (RO) ) MAXCYL (RO’ oven MAX CYLINDER #

BEQ
MO
MOV

;ENARBLE A

sorr

ADDRESS SELECT

R ggc
'v's'g
SRM mm.snsscckm
ECTOR AND TRACK
$RMDC (RO) . SNCYL (RO) !noe NUMBER

RMO3/2 PERF

g@o,“
108

016530

16854

EXER

ax-nov-% 15:34

MACY1l 30(104)

mxnmocs

BLO

103
Biee32 OICRR
11 §15§%
&602%5 coouio
%»fl ool
39937
1

12
gxeé
2153
gxg
:5,’{59

INP

10:06

GOS8

PAGE 98

xucm

minCncmo).sev
(R ismeser
cvpnoen
ffim
):&4?&(5@
ér
RE
ucm

;

LelT

FER

mgen

; GENERATE A RANDOM SECTOR RDDRESS BETWEEN VALUES 'MINSEC'

RANSEC:

iF plemeo ugoe gt

§118
gig

v
nove

16772

2{};

-NOV-77?

016
f'és ;s

{

MOV

o
BEQ
SUB

000120

1
gxfi’g
gég 000040
Dl6e1S
Ocoods So01o0
gxssxf &82‘35
37
3%5524“& igé;gsa 000040

18:

MAXSEC

(RQ),

GESUBAE

n;nsccmo),ns

:aooL

832. ,RS
ng
"%%E?EE, RS

MOVB

,shggcmo)

INC
A06
8%
%S

MAX

SRR

iBR ;
&n
RACT
nxw

:
crr
Eism
sm
ys%ms Tousens DIVISOR
NEW ADORESG D NUGHENT
: vm.us ?30 LARGE ?
:
c

2s:

gig?

;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ’'MINTRK’

016634
gigfi

016005
gg?g?;

000112
0001 14

RANTRK : nov
aeo

giaag oi&% 166005 000114

SiP QieeB X570 ooooos
gi”

oiw

Jre—

18:

m
}gc’a

pfnfmmno),ns

ADDRESS IN DPB

3 'MAXTRK'

;GET MAXIMUM TRACK ADDRESS
;"MINTRK' AND ’'MAXTRK' THE SAME ?

ggdmrnxu'"anzn }mcx ?oonsss

jcontEc T Nmee
;xnc

:Em

IFFERENCE ro USE AS DIVISOR

2s:

gizg

:GENERATE A RANDOM CYLINDER nooness BETWEEN VALUES ’'MINCYL®' & 'MAXCYL®

€181

gig

016710
016716
016722

0167

gigg

gxsoa‘/
016005
ozsoo;

8810"
106
000110

166005

000110

00141

S154 016736 gflc:ca 001446

€185 016742
sxsg

016744

§18

816;?

€159

016760

€188

gsgum

MOV
RANCYL: MOV
CHP
BEQ

18:

110

016754

ggg

S160

016762
016766

010560

€163

017000

0014149

Slel

001446

000110
000100

mxcvu :cvum
:ASSUME
AN RMO3
mxch )IRS
;GET MAXIMUM CYLINDER ADDRESS
MINCYL (RO) RS
;'nmg
mgnémxcvu
’
THE SAME ?
‘gfe

Tsncvuno),ns

i SU xfi&"fi%&’& cT:vurotI:n ADDRESS

INC

;xngc %Em

FFERENCE TO USE AS DIVISOR

ADD

nxflcv#(m) RS

;NEW CYL nge

ADDRESS

ADD
JSR

BGT

Slee 016772 132760 000001 000074 XWCNT:

ng tr'finxmox

! HTRQCK““MU:SS“ anue on LIS
c
CT VAL
%&rmx%oness IN DPB

EEE

CMP
2s:

néhmmno) RS

:9% secr

5140 gxssggfim &gg“ 0001 14
5&:5 oi&n 101402 pa—
€143
016700 1627
gi:g 31570-4 11 33 %389?
S48
5149
5150

“29
gLOS
SUB
MOVB

MAXTRK(RO),RS
MINTRK(RO) RS

cro:xsoonsss

gig 016630 110560 000076
5132
§}§3

8 'MAXSEC®

MOV

BITB
BEG

CYLIMT,RS

PC, GETREM

chunoa ns
Yk

:GE

(1S

cT 1

VAL

:BR IF NOT

n“““

AUGMENT

00 LARGE
?

i CORRECT VALUE

i STORE CYLINDER ADDRESS IN DPB

!oo NCOOE(RO’ :HEADER OPERATION INVOLED2
;NO

0097

2ige
51

?1
51

gx
81
g1

PARGE 99

SEQ 0098

8%235 017172

§§8

flgfiéfim

EIono.fi;"?fi % gom Egmauo

%‘:‘S‘i 016420

ge“fg“a;

532“"31 *mmmngax

8872 B314%

1
1

1010

88
8a

1B
1

737

001462

2s:

001462

017132

00S70S

goaggs

oxa

000004 000074 3%:

000377
oooYoo

§171§§
6§3§§§
388085 000074
171
1
oowoggs
11
8658;5
012760

000207

177777

53 GETREM

osa

Oigié§ §§a

oi;{

BNE
18:

8171
017126

000004

8171

171

BRE

033652

013708 000004
865382

0171

mewl . gF. Y e

027474

01
31

0
0

MBeBVIRSSTM,niNERIRRGTITA10 20 FoR Ao oRoen

; GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN "MAXDL’

HOS8

ORER

i
Ex

10:06

NNNN

51
gx

MACY1l 30(1046)
22-NOV-77
MAIN PROGRAM

DIE7ER BOBNE BOBAR o

————

Q7008

b
e e

SRR R LS8 BBIRR 2OV 2BV 2N SDELF oo
ne

[ NSNS ——

WYY
UV

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

000104

Aoy
8R

&8s
3s’

BHI

CHP

MOV

§xra

MAXDL, RS

G?CR&ENT
THE n&x&u‘ SIZE

%’E
REMINJER
NOT 0, CONTINUE 0

;gch
RY

:LESS

THE RANDOM NUMBER GENERATOR

Hsz

4 ?

1997
S12E TO 4
!

:LARGE THAN MAX ALLOWED ?

:NO

RESET COUNTER

?7,RS

nov

#400, RS

Ezga

WORD COUNT ?

quroésnc005(no$ -READ OPERATION ?

TST

BGT

’

nno

35755'“"

siTOR BOUNDRRY FOR WRITE OP

,NONE
NO

:AT LEAST one SECTOR

§§§¥5 gkc88;(R05"°'En8
39
t

;GET A RANDOM PATTERN NUMBER

——— ggnvB

RANXIT: H?V

:S TS%(RO)
I-i SNEXT(RO)

\TIEP&H Egn 8855 TO CONTROL BLOCK

QST
PRRRP‘TERS SELECTED INDICATOR

;ROUTINE TO CI-ECK THE SELECTED ADDRESS IS NOT ON THE BARD SPOT

iCALLI GR
oPB nggaESS
g'
CHKADR

€211
§212

;

1014
3 13
1s §izi;5
017174 81854
€216
ggi;

017176
815589

010346
8{5585

RETI
RET2

O MOVo
000020

€219 017206 062702 000124

MOV
283

ADD

né
-( P)

R3’ -(sp)
3
6.

oséossc R2

NORMAL nzrunn
ERROR RET

. PU
"Pu

n ON
ON STACK
svncx

PUSH R3 ON STACK
rnaft 3 sEY OF BAD SECTOR RDDRESSES

‘DBP ADDRESS + TABLE ADDRES OFFSET

30(§ous

18:

1777277

000100
000011

000003

ss NOV-77

cCMP

BEQ
CHP

c
BNE
gnpe

000010
000002
2s:

000004
3%:

NQ‘)N
Zng

00000000

NN NNNNNNNNYN NN

EEER FER2

[ dand ad ol ol ol ol ol ol ol ol o ot Sl ol Sy Sy Y

MACY1l

10:06

108

FRERREESw8SReoRey

000003
000074

18:

YL(RO), (R2)
RK(R0O),3(R2)

000020
001510

;
;0N
;

ngxnoen ”

THE

H IF NO
_THE
TRACK ?
H IF NOT

rue

CTOR ?

B8R

3,R2

¥O agXT TABLE ENTRY
RgogST

(SP)+,R3

; sPOP STACK INTO R3

MOV

TST

MOV
MOVB
RTS

GETPAT:

MOV

2s:

BEQ
MOV
BR
JSR

00is10
027474

033eSe

Ww
NN
no

NNN
W
N
o

(5P)+.
R2
(5P)+.R1
RS

F NO

xs BAD SPOT CHECKED

,,POP STACK

'kE
STACK

INTO Re

INTO Rl

(OR WRITE HERD AND DATA)

82, RS

FORMAT

18
#4, SCODE (RO)
18
83,RS
RS SNCODE (RO)
PC

OPERATION

;SET un;rs DATA COMMAND
;s%Lou ORMAT OPERATION ?

':gzvxous A READ DATA COMMAND ?
;SET
A _WRITE HEAD AND DATA COMMAND

SE
;CT THE WRITE COMMAND

;ROUTINE TO SELECT A PATTERN

18:

;
:
[y

{EMPTYsn;nv ”

.oru;nux,TAKE ERROR EXIT

TST

15T

000234
177701

000027
0000e?

820, RS

PATYEN

23
PATTEN,RS
1S
PC,GETREM

INDEXED PARTTERN

URSP89$$RN
ZERO SELECTED ?

GE?PQT

i TRY AGAIN
iMAKE CODE INTO TRBLE INDEX

18
PC, SRAND

ASL
RTS

;SELECT PATTERN

.$NRBLE RANDOM PATTERN SELECTION ?

RS’

BNE
JSR

:ROUTINE TO GET
;CALL:

404

SEG 0099

BEQ
CMPB
BNE

000024

—

NSNS

00000000

e whete et

NNNNNNNNNNNN

000000000000

[STSTw

RANWRT:

100

3§ECIRO),2(R2)

MOV
MOV
RTS

0000
001474

PAGE

8-1, (R2)

;ROUTINE TO SELECT A WRITE

000

§R
wmfifigg
n

RMO3/2_PERF EXER
P11
21-NOv15:34

¢
c

CYCLE THE RRNDOH NUMBER GENERATOR

THE PREVIOUSLY SELECTED PARAMETER VALUES

JSR
JSR

#0PB, RO
stLPnn
PC,
PC.GETPAR

MOVB

SRfiCSl(RO) $PREVO(RO)

MOV

RE TURN

GETPAR:

MOV

BICE

; OPB_RDDRESS

iSELECT THE PARAMETERS

: SAVE RS
; SAVE CURRENT PARAMETERS
81C76, SPREVO(RO)
;STRIP GO,AND IE BITS
(SP)

ggg;

5308

§}§

1
53{3
éi?

74944

012 800032
000034
300018
34

MOV
Hov

18:

MOV

Hov"
g'x‘r

:
161466 228:

00101

&am

000060 000027

tixi)oux

%60-0 %835

2760
652"’0
7564
1401
7;§ss;§ 000760
116060
7576 01

000075
0000

000030
000010

7658

3001

000004

7604 81

000153
000062

000002
000027

PAGE 101

/SNCODE(RD)

iCYL(RQ)
E(RO):,

BCoRe

‘23”

’ §xr

(5P)+

$&e )+
(

MOV

n% 032“
127 000001
moootm 000022
000024

n"eov
ax;

76
000002 000022
;sss 00S060 000104
c§:
755“5 8602“8§

350
%5
RTS

817

(RO) ;C

(RO) | SCYL (

€327
gggg
£330
2337

017700
017702

016111

001403
062701

000772
000207

000002

MoV
JSR

RETURN

CMPRES: MOV

BEQ
ADD

000002

18:

CYLINDER

BR
RTS

RERD DATA COMMAND

Egog NUMBER CHANGED TO RERD DATA

Yh r?s

oass (ggs)i;c RO) mmtta.
vu.us OF SECTOR SIZE
%o R opsnmxou

C(RO)
55g

:
:

017672
017674

SECTOR AND TRACK ADORESSES

fd&&2§m. uugag
RSI%Eroa THE RH11

§320
€321
017666

z*ss.scom)mm‘WR
;&gfcx HEAD AND DATA COMMAND ?
oge.msvomo)
°‘f§ A WRITE HEAD AND DATA COMMAND?
4
;E
28
0 READ DATA COMMAND
SNPATC (RO) mmcmm mnsm CODE
C( ),&EC(SS)
cron RDDRESSES

;gg&r_ms TO COMPRESS A LIST

325
€326

. GET nc

Vfl#E(:S)

ggig

324

SPREVA+ ao) sa% TARTING
CYL INDER
vmgo
TING SECTOR
AND TRACK

3«.&638::(33)

g&m
CMPB
BEQ
BR
MOVB
MOV

;SEE IF MEXT OPERATION iS READ OR WRITE

&933

;gg

g%gg

SEQ 0100

320, SPREVO(RO) %
BUS & R ITE DATA COMMAND ?

JO8

geo

2s:

-,-,-

10:06

§ ;fi% ooE sggxcm.CODE FORoptl::gé)x(on
M%’Ee&‘§gTA
con%

3333

ot ot ot ot Pt Bt

g11

S
=1
i-

7484

MACYLL 30(104E)
22-NOV-77
MAIN
PROGRAM

000006 000074

.'3;._._

7450

| odad anland

Bt Pt ot Bt B B B P

DOOOOODO0OD

74
74

5300
§301
5302
5304
5305

741

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

0000000000000000000000000000000

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

8ADDRS,
PC,

R1
CMPRES

2(R1), (R1)
1$
82,R1

CMPRES
PC

:
HE n SIZE
;§§s$1 ’ AR TERS LOADED' INDICATOR
: ?

: COMPRESS LIST STARTING AT THIS ADDRESS
; COMPRESS THE maLs IN Rl

'BR WHEN ;zno FOUND
: INCREMENT R1

:CONTINUE COMPRESSING TARBLE
:RETURN

;ggEIINE TO SETUP PRARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK

CIRMBB.P11 . 21-NOV-77 16:34
CZRMBBO RMO3-/2 PERF EXER

RAIN BRocRAN

MACY1l 30(1046)

?335
g;

5338
6339 017704
737
033652
g:o 817710 %
goooao
1

s0P8
o-l.‘PRch(RO)

;0OPB
ss
;'mxtgcmci
K' FLAG

:
;

MOV
ggn

; "READ PACK’ FLAG

WRTPK:

.
157

81, SPACK (RD)
PC. WRTPK

JSR

: SEE ::inir
“%m

gssa

$PACK (RO)

172

2325
6354

5355
gg%
5358

WRTPK1: MOVB
JSR

0l
01
01

o1017776

ROV
CHP

BLO

D001
é§ 000011
D001
00001

S361

DO0110

000012

§§ %

53567 %

ggaéeo 161062

5365

5369

5373

124

237e %&%
140

5;1;9
s.:gg

383

154

638c
€387

gg@

020220
020226

112760

TPK1

uam

00000S

000173

112760
112760

000002
000161

000024

000002

mnou

;

"W’

;

SPREVD.

RK(RO), mxmxc

53&3%.(gm 5

Esg

JHP

MAIN

SRR,

Ber

MOV

NEG

(SP)+

.Ssm

mxgn.smmm

8377,

;

ATER THAN ’MAXCYL®
MAX TRACK
TER

: INC

DRIVE

:BUFFER

5558

nTsoonsss

ESSING

F’I;'“gE

iRET

ADDRESS

R ADOREGEUORESS
Fsm
cYL’

Nncvu

JSR

MOV

NT
PRARAME TERS
ED SECTOR AND TRACK ADDRESSES

vuam cvu y %
.L

&%So

(NORMAL TERMINATION)

smcx POINTER

og "?&
SI

rox TG

$UROM(RO) ;SECTOR BOUNDRY FOR WRITTING

— (RQ) ;SET
1 TO

s400,

SECTOR

w% m(m) :SET oo:ogscron
(RO)

‘S:

COUNT TO 2'S COMPLEMENT

ol
ogsgc SSEC(RD) ':SECTOR 155 FOR READ

MOVB

(RO)

OMND(RO) ' ~;

FOR READ HERDER 3 DATA

ggva

SROHD,

MOVB

u2, SCODE (RO)
CODE FOR WRTDAT
sWRTDAT, SCOMND(RO)
; OP CODE

000022
WRTPK3: MOVB
MOV
000024
000002

;

WE(%
‘0
.
vm ) ;

wn GENERATOR

OF COUNTER NOT ZERO

me(g %fi‘

MOV

;

noxg

MOV

3s:

sCYCLE

000402 000022 WRTPK2: MOV

7z§

127

000020

BHI
CMPB
BLO

BIC

000004

146 31

020174

000020

M 000004

e
§381
122 61
6382

1S:

7166

420

8370

Wo (RO)

MOV
MOVB
MOVB

1
(02001

-e

PAGE 102

MOV

§§ §177é§

5349
8350
8351

KO8

MOV

§gw

5349
31773-4
348 017742

10:06

: .

S345 oi;_;g

22-NOV-77

xvsrgnoo xrl'gn OPERATION

8256, , $SSEC(RO) :gfcth: SIZE

RMO3/2 PERF EXER

PL1 - C21-NOV-77

15:34

MACY11 30(1046)

1§
81355

WRTPKY: S#R
WRTPKS: CL;

00s420

JMP

CALL:

8400

940S

SPOTCK:

M
4

:
:

wil 0
1

414
415
'ug

»
14

18:

4“

2$:
38:
4s:

4
5:

]
@

gzg
“
Sy
:35

~.$8

g:%

L
TRCK LEVEL
3 JUMP TO MAIN
;
KGROUND LOOP

020402
020404

MOV

R1,=-(SP)

77777 001362
000004

57,2

012602
012601
000207

ERROR IS

DSEC . RI

RO,RI '

AT A LOCATION ON THE PACK DEFINED

TABLE FOR THE

DRIVE.

i
ENTRYF
ARGORESS OR
;Min norm?“ i 8
T

::m
fioggoSTARTING AODRESS

?gn
cHP
BNE

3&
(R1), (SP)+
2s

;
T %c%&‘ S&?RDDRESS
;w
;
H ir'' 'Euo YLINDER ?

TST
151
ADD

Y
5
(SP)+
(5P)+
#9, Rl
(R

;?L AR
:
RE

BNE
CMPB
BNE
BR
TST

Bec
DE
BNE
001504

TRACK/SECTOR

PC, SPOTCK

CMPB

M
¥l
S41
Sy
4
4

%0 Oi0e

MAIN

JSR

Hov
A0D

PRGE 103

:&;& 'P%TER SELECTED' INDICATOR
CL gNHT FLAG

INT

RETURNS

LO8

’ICQXY(RO)
PACK

;ROUTINE TO %T%I

Efi
Em )¢

10:06

Baln BrocRaN

5399

g:x

22-NOV-77

gmo,a(m)
(SP)+,2(R1)

TRACK ADDRESS

F r 1S NOT EQUAL
SECTOR ADDRESS
;gn }f uor
:
K 'NOTPRT’

msr 1

n’-i g
m T
mcx POINTER
5{ E m THE TRBLE
TRBLE

A2
18

:;gc%
BECRE n%
mxx om ENTRY COUNT
iBR
1

#-1,BADSEC

:E %rgxcmon
FOR THE IDENTIFICATION LINE

BR
TST

£3
;grpm

ADD
MOV
MOV
RTS

82,4(5P)
(SP)+,R2
(SP)+.R1
PC

noEvE

;
:
:C

EX xr
fn ; ERROR ANYWAY ?

N
..POP STACK INTO R2
::POP STACK INTO RI
: RETURN

3 ;llll!il!llllIlllllllll!llll!!llillllllilillll!lllllililiililiil

:gg

.SBTTL

::?

$ ;l!ii!l!llllliillllliilllllliIllllilllillllil!l!llllllliilllii!l

S442

ERROR MESSAGE GENERATION ROUTINES

;PRINT LINE 1 OF ERROR MESSAGE:

; "HH:MM:SS’

CZRMBBO RMO3-/2 PERF EXER

020406

020414

032777

21-NOV-77 15:34

402

002000

22-NOV-77

10:06

MO8

PAGE 104

SEQ 0103

ERROR MESSAGE GENERATION ROUTINES

160540

LINEL:

:guxo.asun

9 MBS seosen 1.

i B
e

asun

bl
o B Roe
RTS

SHITCH 10 SET ?

Efgygmm,,

Bgene

;RETURN & TYPE DESCRIPTION

R Ob 558 4s |

CZRMBB.P11

MACY11 30(1046)

*%s‘éfi"fi%m%m'm'

464

2469
5333
u;'

gibe

46
gfi

E:é '

N7S

?38?

&aé

051352 020622

5483

002130

Egfi
4
§:§

2438
4

RMMR2

RMDB

RMER2

002130
g&esg 020626

R3,
-(SP)
m:-(g)

RMMRI

RMEC1 _ RMEC2’
RMDT’

§L=

xgmr RS ifir :

R3
%
&
gTACK
38
'6Ro

o"c3§l R4’

:gég %%xr
ICANT gns

uxnsgws

}&mwxss STORAGE

noza umal:lg) e &é

051373 020622

eci
baos

549}

ADDRESS OR

H
= XXXXXX
XXXXXX"
P'BUFFER
RDR = XXXXXX SIZE
= XXXX ACTUAL NMBR WRDS XFRD = XXX’

63
ot

COUNT NOT cousxs%mRMERL

4s§:

SENT ORDER = °

n:nouxc ENTRY FOUND

ssor' OUS ORDER = ' MSG

Y
%fiéan
:8°"

ggge

ck»éraunsn,m

INC

AsL

m\;

.WORD

ggla

§§t

DISPLY

§§Taun5)

Eé

gmggn..ss
'

MNE

38«“‘" mfigé‘gil e
: ga18:&
5 rtm T

’2,’,3 .t

§fi
TnoEX
rr "Sr "gi

ngss II TEXT TABLE

: ssg
p

‘ADDRESS OF

;

'PRESENT'

;

OR 'PREVIOUS'

;

MESSAGE

x;RlS:fl

NO8

MACYLL JBRAGR nes8RE Cenerat ToN moUTINES "
Ss:

LLeLi

?5'2995
NN

—

NN LW

e e

J'fn
govSI JSR

! RS
RS
p

e B

)
U

1S:

BIT
Q

141
14

00737
7

2s:

001201

:BR IF NO

:SECOND DATA LINE
;?fi'?m
THEM
TM
TA LI
zmfi? ?“ c'firsns
;BR

(SP)

:DATA
IF

;

NOT

f'fgao

(SP)+,RS

551:}:« LINE
;;POP

STACK

::POP

STACK

:;POP

RTS

;RETURN T

RO, (SP)

;

(5P)+.R3

(RS)+,-(SP)

S(SP) -(SP)
c,LINOCT
(SP)+

: VAL
T

uga VE'

;PRINT

RLF

iCR-LF

{RS)
3§c

STACK

;5&1’ rr?

,LINSP

TST
BNE

g;sm.v

&mnE"

(SP)+.RY

ADD

s¥zs

LINE3:

DISPLY

NCREMENT

SS AND WORD COUNT ARE NOT CONSISTENT’

30 OF ERROR MESSAGE
4 OF ERROR MESSAGE
INTO RS

INTO R4
INTO gg

,LINM3

(IN3.1

PROCESSING ROUTINE

x%sf INDEX ON THE STACK

E ADDRESS

T THE STACK POINTER

2 SPACES

;AT END OF LINE ?
iBR IF NOT
i RETURN

; PRINT L INE 3 OF ERROR MESSAGE
PREVIOUS ADR = CCC TT SS’
; "ERROR AT CCC TT SS

0S1453

goun

(RO), (SP) ;&rr R STRRT
SS
( )+|.|2Rba(nm ;gfl cY
FER RDDRESS ?

MOV
MOV

m*n NG

:PRINT LINE

MOV

A '23
DRIVE NUMBER ON THE STACK

TR
:mfm
r=§ ?f
REGISTERS ?

PC,LINEY

DISPLY

4s:

8&'

LINE ?

IVE NUMBER

JSR

15T

053246

MOV
JSR

000000
022430

mm,-gp) ;

(RO),

ufi

» M'r

38:

A
:PUT THE

gg&;

JSR

,STATUS(RO)"

ADD

S53S

'
'

SEC

ADDRESS DEFINED AS BRD AREA

LInDEC

%
BIT

MAIN

INT 'Tn

NSPO
T,-(SP)

SPLY

1
1
1

Igt
fin

000016

THE OPERATION MNEMONIC
T0

LINE2A:

LINEZ2B:

SEQ 0104

RMO3/2_PERF E
P11
21-NOov-

c
c

;LINE 3 ENTRANCE

(FINISH PRINTOUT

~WTM—_TM\lm
2~—~9 ”TAS.c&E-iw..KpvRulDAoOl.D.1iCaTKumBSwoE’RmSsw—d..oOmwiMB'nSlE R¥SB¥a%EmB
—Tono—LYgesAues E E—L[

BR2ZSE2NogINImRNmAEmIENRRmIQNYTE&T2NURERE AN ARf

-aTRL8]-0-0Jd
un

miviv)lwT

4 4 =4

104414

0S1N71

38y8

KBARFPHRYIN

8ee

=—4eo
MW—

2(=]&

~¥ s8AGE GENERATT

—

;PRINT LINE 3F OF ERROR MESSAGE

'RMDA = XXXXXX

B |-

ROUT

TAR

TRk= 17

RMCA = XXXXXX'

CNQ

000S 14

MACY11l

-oeg0 5- s 5>5

021076

BLA
HoatB en'l
g&2§ ig2Z

021102

aSRR2
b

F344a44sNI (A
R
NININININIARNINIANRISNlE¥EBYYNYY
nnnin
ooL
o o) evo ol]eolv)l v ooo oo=l &D-4oy ———slor
S
838 8885
| TT FIO
CZRMBBO RM0O3-/2_PERF EX;R
CZRMBB.P11
21-NOV-77
15:3M

o=Nes
SEQ 0108

CRIRRT
AT .28 ERERD Ve ecc
LINE3A: %SPLY t&!"fl
tEINTSH ERROR |INE
N3.1

s5E8d

START SEC = SS’

CZRMBBO RMO3/2 PERF EXER

CIRMBB. P11

21-NOV-77

15:34

ssig 85}& mxmweo 000040

gis14 @;gg %«saég?4
-]

5619

e;(-..awE

131

1316

gffi

41y

MACY11

cos

A ASR e sOt
ER
RErat
TR R0l TR

157664 LINE3F: BIT

1621

Y 85?3301
4

:sus’ , 3SWR

;:ngn,.375“ »

.LINCA3

5¥sm.v '%th.[’“

nov'i
18:

PLY

RTS

:"CCC TT SS

PREV ADR = CCC TT SS’

(iaCit
iR Pg:firoec
pey
"7 ISR

% 021329 DQuai, Desdss

JiepLy

104414

1466

DISPLY
JSR

;

G210 ogi7y QZedes

’

imocxmo% ,=(SP) ;rT'uY;E ofi;mso CYLINDER ADDRESS ON THE STACK

§
004737 ggewse
022502
& 021334
gsxg:g 004737

5630

%0 0ics

1
¢
avSm gcmL'
;.‘oc'io% ,=(SP) PUT
sscron/mncx ADDRESS ON THE STACK

sous7 000270

Pcn;&n

€’

RO;Qcm
o RENEAfi ;uT TRACK
AR SECTOR ADCRESS
DECIMAL

SR Munoec

IPRINT* T°
;?ecas NT TRACK AND SECTOR ADDRESSES

Aadhastenn:

TR secton apomess

X Sl 104414
Sl gfié
1466

piseLy ,T’

3"““{352‘""""5’%&“?‘4‘“,.
age
:PRINT ’ ¥'

5640 gsm

fin

c.uméc

STYPE IT gn DECIMAL

J?R

C kxmec

;$YPE

RTS

S637 021400
5638
5639

021404
021

5641
SeM2
5643

1416
021422
1424

104414
00S046
116016

SENS

109414

CE4d
gzg

%:.‘

geumsa

w?‘ aé:z

382383

021440

000207

1512
000032

DisPLY

,SCRLF

:"START CYL = CCC

TR
1
4414
1942

104414

5523
851:& 6
ggg %f:% 06-07

m——

5657
ggg

021474

104414

%&3?8
022462

266eE? 051253
831?55 92018
6&395? 83 0ooRY
96

DECIMAL

END CYL
= CCC’

SPLY

né

*38

LIN3.4:

DISPLY

3C’

ENTRANCE

tb&30) -(SP) ;PRESENT
CYL? R
STYPE IT IN DECIMAL

;'ncrum. CYL = CCC
051570

IT IN

IRl
PL
SPLY
:PRINT "END CYL'

LIN3.

S661 oaisoo oxg;u; 056512
'
7
Efi
§§i SD'ig %‘«uu
16l
?

Z(SP)
:MAKE ROOM ON THE STACK
VA+1(RO), (SP} -mfvxous TRACK ADDRESS

SPLY ,S
:PRINT ' S’
CLR
Z(sP)
IMAKE ROOM ON THE ST
MOVB
;Pnsvncm),tsm PREVIOUS
SECTOR DDRESS

1201

%33

S660

CLR
MOVB

TRK = TT’
:PRINT

*ACTUAL’

nog

eé%gegoEégg)

fi698
:gn

m%om
(RO), (SP °b§“"
S TACK
C,LINDEC
$YPE TRACK
IT IN ON
DECIMAL

gésm *

mL: UAL_CYLINDER o
5@“ T
' PRINT
: :ch CIMA
o,

)

CZRMBBO RMO3-/2 PERF EXER

CZRMBB.P11

21-NOoV-77 1S5:34

MACY11l 30(1046)

5674

8818 aBcad °'*

ssaé
5683

021540

1604

021622

552}5 021626
5630

%35

o4 1Y

énfi
nfi%?
1600 6 14

S RIEQ
1616

S686
5687

032760

000100

1
1427
1§§6 ww
1
xs%

016046
7

052002

5697

021652

104414

0S2017

PAGE 108

BIT

gm.
Y
v

#81T06, STATUS(RO)

INMY

(RO),~(SP)

g"x;gnv L lfigfl !

SEG 0107

ACTUAL NMBR WRDS XFRD = XXX’
;DATA ERROR ?

;BR'IF_NOT
P TPRINT FER’
;BUFFER
STACK

'SR gt oTM & PR

Tox
#c' D rpes: ~sP) EgLEmc‘u&.
rsnngg CIMAL
o?gm ENxy
DS XFRD = °
MOV

001201

104414

5523?, gi?fif éfig’g‘g

LINEY:

1?3;

021630
1634

£2
57

000016

730

5693
5694

DOS

REPLY p2F
;PRINT 15 4 OF ERROR
gcs
;'BLFFEk
= XXXXXX 1? = XXXX

jeele 022462
oooce

104414

10:06

ERROR MESSAGE GENERATION ROUTINES

§;§
5675
ss;;
56

22-NOV-77

18:
: PRINT

B
JSR

tkmamm -(SP) ':VALUE ¥n BUFFER ADDR REGISTER

DISPLY

RTS

IR0
I
LINDEC
,SCRLF

PC
S OF ERROR

:*GOOD wr% = XXXXXX

——

LINES:

DISPLY

§°su§

k2,

i RETURN

fism'Gsn = XXXXXX

SECT POS = XXX’

,LINDS
SRMBA(ROD)

;PRINT ;Eooo DATA’
:BACK T
SS

iNBs

:PRINT ’'BAD DATA’

4 r«()c ),=(SP) T-' : ’ mncgnns_ f#Pms BUFFER LOCATION

DISPLY

it ats
O36
16046

MOV

§;°3
85170-0
o7 099022
27
1710 gxczsxs

Eg:v

gssEcx:'(«agg.-(sm
.Q?/CTORS
SFERED
BY SECTOR SIZE
(SP)+, (SP)
;
MAINDER
UP THE STACK

5707
5708

J%R
pisPLy

PC kmo:c
,SCRLF

270

5706

E;?B

(TYPE
IT fu DEC IMAL
i CR-LF

u?g

is%g 082046

021712

gms
1722
021726

1049414

004737
104414
000207

eop

052035

DISPLY

022462
001201

6711

RTS

oYY
1Y
0137

053
6512

718
€719

021744
0217s0

104414
oxargg

0S3246
514

DIsPLY
MOV

021760

104414

3246

pDIsPLY

021740

§720 Qai7ed 0g7
6722
€723

021764
021770

104414
10¥414

2430

053251
001201

3$:

D IVIDEND 10 IE

;PRINT 'SECT PQS’

:TYPE THE POSITION

SECTOR

XXXXXX

‘éi"‘sm
DISPLY
,LIN
.
MOV
CYLDES -(SP)

%5430

o7NGTHPONe
STARC

; "THEADER FROM ERROR

é;i;
85{;%
5716 021734
§721

D (RO, (5P

;PRINT LINE SR OF mg ERROR MESSAGE

g;ig

§717

HrYlo,
(R
(RO),-(SP) ;

XXXXXX

XXXXXX'

’
R CONTENTS OF ERROR SECTOR’
;.&'S&S POSITION

JSR

PC,LINOCT

ITYPE IT

TSR

pc.LINOCT

PTYPE IT

DISPLY
DISPLY

.LINXS
.SCRLF

:APPENDING INFO 1/23/77

,LINSP
LYLDER+2,~-(SP)
,LINSP

: SPACES
;HERDER POSITION +2

: SPACES

CZRMBBO RM03/2 PERF
CZRMBB.P11
al—uov-gs 15:34

g;g 021774
£§726

000207

O4Y414

052107

g;:afls

gaoaa

gxsgg;

gggggg

§739

INEPS

:"RMECL = '

?éx
*cbtl_c%ggx.-(sp) T%rgrxgecxsrsn CONTENTS ON THE STACK
81ISPLY
PLY ,L}N%P
:;7SPACESg ="'
[LINEOS

?osg

ggmx:am?),-(sm.T-‘Putxfrascxsren CONTENTS ON THE STACK

RTS

DISPLY

seh.

;PRINT LINE & OF ERROR MESSAGE

2;.."?

g;:g

RMEC2 = XXXXXX'

Lmssa: DISPLY

104414 001201

g;gg 022036 000207

5743

RTS
PC
mxm LINE SB OF ERROR MESSAGE
RMECL = XXXXXX

s;go ua1
61
ano-gqaooao
57%
ggga“xs
%fl;» Ezaa%
4
16 104414
120

§742

PAGE 109
ERROR MES22-NOVusm*?ouROUTINES

MACY11 30(1046)

§;§§

8736 0220

EOS

; RETURN

:"SECTOR IS ECC CORRECTARBLE’
022044

022050

104414

000207

0S2132
001201

5746

LINEG:

DISPLY

,LINBG

RTS

OF THE

o;spu

:ECC CORRECTRABLE

SCRLF

ERROR MESSAGE

g;:g
5749 022052
Y14
E;E? 022056 68&{; o

-'secmk %asnconn:'é?u AT OFFSET N’
:
DISPLY
6
:PRINT 'READ CORRECTLY AT OFFSET N’
p— 85
L%rst"cx
:TYPE THE REST OF THELINE

§§3 geosg 683362 0s2132

LINEGB: 855""

5758

anm LINE 6C OF THE ERROR MESSAGE

5762
g;gg

§757

E;gg

:PRINT LINE 6B OF THE

ERROR MESSAGE

:"SECTOR IS ECC CORRECTABLE AT OFFSET N’
{_nfix‘suas

;PRINT *'SECTOR IS ECC CORRECTABLE '

*CORRECTED ON NTH RETRY’

5761
022066
104414
g;gg
022072
ooouiu
—4

1
LI"E"C: 855PLY
. Llins.:s

S764

:PRINT LINE 6D OF THE ERROR MESSAGE

g;:g
5767

g;:_:g
D

074

022100

104414

00041!:

052243

LINEBD: DISPLY

LINU06

LING

: "UNCORRECTABLE AFTER N RETRIES’

iFINISH

:TYPE THE OFFSET VALUE IN MICRO-INCHES

§772

g;;q ggi% o‘jm‘fzm 002470 022114

022102

LING.1: R

§775

022114

000

18:

E;;g

022122

000207

£779

:TYPE THE REST OF THE LINE

: *UNCORRECTABLE RFTERN RETRIES’

g;‘;&:

776

: *CORRECTED ON NTH RETRY’

022116

301

104414

001201

Ségm o}maunn.xs

:DOUBLE THE OFFSET TABLE INDEX

.WORD

:OFFSET VALUE

RTS

DISPLY

,SCRLF

;RETRY COUNT TYPEOUT

'ADDRESS OF OFFSET POSITION MESSAGE

SEQ 0108

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

PEFEREREREREREE

2389

21-NOV-77 15:34

21
%g{g
055132
022146
1

g 1?3
160

aaggus
%Z-}’g
1Oaui4
000207
oYY 1Y
1 1

MACY11 30(1

2805 005559
22

B4y

S806

022240

06001

5807
5808

7
737

316

LINE?:

%oas

saxg

%}2

000207

73R

BRINT|

'axrs READ’

ADD

JSR
JSR

3%%’4
ifimfgés
fguxs.asua

156664

HALT
RTS

cou RT
IPRIN

zexxrmm.r ON ERROR' - SWITCH 15

'SWITCH 15 HALT

mxm LINE 7R OF Snnon nsssncs

égi 4

'ORDERS: XXXXX

6819

022276

104414

5821

oae;os

osoo:x’g

052316

S820 022302 012746 000036

2853 oag,:x“ 20 ;37 030030

:f'gu
852350 ?33-41'4 832325
325 oaa,Fu m‘em,1

Lxue'm.

DISPLY

MOV

ADD

036
270

pisPLY

€831
58

352
356

004737
60«14

2462
346

€834
835

022366
022372

004737
104414

022462
001201

6830 022346 016046
362

016046

0064

TOTAL SEEKS=XXXXX

JSS

TOTAL MISPOS ERR = XXX

baopggc -(SP) O%Q'R COUNT INCREMENT

Jgn
PC s ns
DISPLY
'Lgn
i ?sxr,-(sm

§|328
Eg’fg ooqu 9
5829 oagfflz 104414
583

PRINT ORDER COUNT

ro
smc
rlf' ?as: ADDRESS

MOV nkim -(SP) LOW WORD ADDRESS
18:

5919

R%&ngc -(SP)

DISPLY

0S50
36

2272 000000

022274

DISPLY

MOV
RDD

WRDS READ:XXXXXXX*

73R
DISPLY
%
romL smons
MOV
’c
munm -(sp)’
; TO STACK
et
T
SLOW WORD ON STACK
MOV
banms
-(SP)
:ADDRESS
OF
ADD
RO (SP)

semxo! ggg%
5
i i: ooiggi
ggzmmm 100000

gix

SEG 0109

-(
;CLEAR STACK
qg RY GE(SP)
gfiggvxgmmm‘roecx
)§PL cm.
S 4
%
fi
;PRINT
LINE 7 OF T
;'O&)ERgtXXXXX TOTALE%&E
: XXX WRDS XFRD:XXXXXXX

5805 852234 012746 %&e
104414

10:06_PAGE 110

LING.2: CLR

1351
03130

855166
004737
030036
7;;
31
4414
370
7
sx
= g%g&‘g R
B
geoo
1
5801
22l
1

5804

2-NOv-77

gzef!SSflGE GEP(RR*X

RDDRESS

PRIN RI . S—
:'TsTRL
SEEKS =
583?‘6 5$ e

;E'ssuggs
,LIN?

’me’f's
T“& SEEK coum
:* "TOTAL MISPOS ERR = *

JSR
pispLy

PC,LINDEC
,LIN?S

s TY
i

JSR
pDIsPLY

C,LINDEL
,SCRLF

:TYPE IT IN DECIMAL

MOV

tnxspomm -(sP)’
tsmnm -(SP)

;TOTAL ERRORS

p IN DECIMAL
TOTAL SKI,OCYL ERR =

:CONVERT & PRINT IT

TOTAL SKI= XXX

§§

e¢

:£ %

EtRmes.
P11

PERF
E
2 =Nov=

GOS

15:34

906201

Y Ll AR e sERaE CENERAT
TON ROUTINES

Eéi’LY fgfikaasun

156544
18:

;SEE _IF HnLr ON ERROR- SWITCH 1S5 SET

1S HALT
SHI‘;CH

;PRINT LINE 8 OF THE ERROR MESSAGE

; 'DIFFERENT ERROR CURING RETRY’

LINEB:

9§3 y

Pk.Lfnza

;PRINT LINE 2 OF ERROR MESSAGE

88IRL TYPEOUT ROUTINE

;

MOV

RETURN

JSR

A L L

LINOCT: MOV
02245
0S

022454

18:

PC,
anocr

:PUT THE NUMBER ON THE STACK

gcsp)-(SP)

;s PUT

(sb)+
18
1§
o

DISPLY
.WORD

RTS

MOV

(SP)+, (SP)

R IN PROPER LOCATION ON STACK

THE NUMBER TO OCTAL
:GET
THE
ADDRESS
OF THE ASCII STRING
:
§§ THE LAST & ASCII DIGITS
;convg T

3 TY
:

;CORRECT THE STRCK
:RETURN

;ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE

CSLNING ZERO SUPRESSION

;

03043¢

MOV

NUM, - (SP)

;

JSR
PC,
txno:c
RETURN

LINDEC:

MOV

JSR
JSR

ggg

030036

SFSR RL

5874

MOV
RDD

JSR

NUM, = (SP)

csb)o (SP)

;PUT THE NUMBER ON THE STACK
:SET

UP STACK FOR CONVERT

s CONVERT 1T 'TO DECIMAL
:TYPE IT (WITH LEADING ZEROS SUPRESSED)

'RESTORE STACK POINTER

REEERREERRERRERERERERRRRERRRERERERRRRERRERRRRRRRRERRRRERERRRR
LR

.SBTTL
P

(SP),-(SP)

c $S820
' §SUPRS

IT WITH

GENERAL SUPPORT SUBROUTINES

REREEREEREEERERERRR
RN RN R RN RN RN
RRRR R R AR RRRRRRRERR

,gECREHENT THE SECTOR-TRACK RADDRESS
MOV

JSR

sDPB, RO

PC,READDR

;DPB ADDRESS

RETURN
( SP) CONTRINS THE CYLINDER ADDRESS
e (SP)
v
(SP)

CONTAINS THE TRACK ADDRESS
CONTRINS THE SECTOR ARDDRESS

CZRMBBO RM03/2 PERF EXER

CZRMBB.P11
gg

21-NOV-77 15:34

852502

2506

2 Ea

652705

016616

?3% 855& ”

22-NOV-77

READDR: SUB

MOV

%883

:833
zg}'

18:

AR
T
meromm o
5911
2622
366 000002
2913
055630 989507
5914

§915

012737

DEC

RYs

§3§3 gsgggg 36553; m 000004

177777

001306

B
§925 (022700 0{2721 023766

O
MOV

EE%

6921 022660 005777 156410

2359 855;?3 81
%fi

%7;

593

7-4’6

:;;

(SP)

112

SEQ 0111

;DECREMENT THE STACK POINTER

:MOVE THE RETURN ADOR DOWN THE STACK

+1(RO), 4sP)’

zmcm).aism ,Wa
ADDRESS

fuar

2(5p)

: rtm secron
:E"”E03°K0 ”
be“gnefimom TRACK
’

CREMENT ONE CYLINDER COUNT

gso'fmn

:ROUTINE TO CHECK FOR KW1l-L OR KW11-P CLOCKS

MOV

ggafi

#6,SP

B &P),

PAGE

83 é?sm
$§; ;gsm
Bgc gééiflusm

33%9 022632 012737 177777 001310 CKCLK: MOV
022640

HOS

T
e S £ A
CLR
(SP oti hewpi } %&5’%& CYLINDER

m 000002

28?
“83 000006
§§ E% é@% 000004
gfi ggflg tiaoo-uo W

€918

10:06

GENERAL SUPPORT SUBROUTINES

589%

5899 ggfi

MACY11l 30(1046)

000131

TST

156360

MOV

156350

rgng;

000004 ——

111l
gg gggg o‘ififi

£33
;
S94] 023004 005337 000042
——

156310

= anv:

cKeLkz: QO
TET

5935
q
el BedRsd

437 888885 000004 CKCLK3: Mo
RhRig?
Ree

.-1, cum.c

;CLEAR CLOCK AVAILABILITY FLAG

ISLKCSR

.f*:cx FOR KW11-P

.-1

sgm KW11-P CLOCK AVAILABILITY FLAG

3°“Shvécsnmc HPPsvscton OR CLOCK CHECK

T
e
ser urpguu-P VECTOR

ocz.ockano

:3?265.‘:’&.“58 'f&‘o courInEn BUFFER WITH 16.67

&géggs(xcsa

iSET CLOCK - CNT UP, 10US, CONT INT

.f(c K2, JsERRVEC'R

cx
LkéfiKS

MBP

G 'E‘mg;“sgc';gg";g“c,m FOR KWll-L

B
4
:KiWll-L xn:snnu:r

1ESTRRE
LSRRG IR svsren
zn MONITOR CONTROL ?

Tl Picane

?‘.agzenavec
B8

.nssrofi@ PHE ERROR vE .TOR

nNIIINIVININININININIVIVIVN

OO0

RESERRERRRRASAATRRANTS 2Ng

RMO3/2_PERF Ex;R
P11
21-NOV-77
15:34

;

83
[

18:

002102

023064

034606

023100
023104

001201

749

023172

023106

000010

023112
023114
023116

001544

9%&

2s:
3s:

PC,STATPR
RO, -(SP)
RY -(?P)

:
3& RO
RY
:SAVE

ASALS

: ANY pnxvgs ASSIGNED ?

CLR

gg,suorvp

;?59& THE

MOV
ASR

ghxnon<nq),no

;SEY
:REST

ASL

RY4

HERDIMNG

:CLEAR THE DRIVE INDEX

IVE'S BLOCK RDDRESS

ATABIT(RY) ,ASNLSY
gs

;?R

TYPE
INC

$LRL
RY

:CR-LF
: INCREMENT THE INDEX

BNE
MOV
MOV

18
(SP)+,RY
(SP)+.RO

;
NOT
‘nEs ORE RY
{RESTORE RO

JSR

cMP
RTS

C 2D§TQL

RY, #8.

;IS

rgflxuoex WORDS

BITE

BEQ

023120

THIS DRIVE ASSIGNEC ?

F NOT

: vpé THE PERFORMANCE SUMMARY
iFIN §uso ?
:RETURN

‘“28[:”‘ TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE

;

JSR

PC, TYPEST

sDPB, RO

:DPB ADDRESS

TYPEST: MOV
MOV
JSR
CLR
MOVB

RO, -(SP)
RY.-(SP)
PC.SHDTYP
RY
(RO) ,RY

:SAVE RO
:SAVE RY
:TYPE THE HEARDING
:CLEAR R4 FOR DRIVE NUMBER
:DRIVE NUMBER

(5P)+.RO
PC

{RESTORE RO
IRETURN

023122
023124
023126
853132
3134

023136
023142

023144
023146

R R

rsg

023150

JSR

RETURN

STATPR: MOV
MOV

001544

853372

v
N00
\13 o
\lm 2 Wy
NNN S Y]

SEQ 0liz

;ggtllll'i TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED

nnnninInIvY
WO WD OW D DD D

109

MACY11l 30(1046)
22-NOV-77
10:06 PAGE 113
GENERAL SUPPORT SUBROUTINES

01004
010446
004737
00S004
111004

004737
012604

023150

023172

MOV

TURN

JSR
MOV

012600
000207

MOV
RTS

PC, SOETAL
(SP)+,RY

;rvp; THE STATISTICS
;RESTORE RY

‘EEEE THE HERDER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT
:

RETURN

JSR

PC,SHDTYP

SHDTYP:

JSR
JSR
SCRLF
JSR
STATHD
RTS

PC,STIME
RS TYPRIY

Sgaxso
3154
023160
023162
023166
023170

004737
004537
001201
004537
053524
000207

023670
030076
030076

RS, TYPRIY
PC

:TYPE THE TIME OF DAY
‘TYPE AT PRIORITY 4
{CR-LF
:TYPE THE HEADER
i HERDER
: RE TURN

,E‘Y{‘E THE PERFORMANCE SUMMARY DATE LINE

T SUBROUTINES

053247
030436
027746

ODn

©Ort——

2
ON THE STRCK

IGITS

z
=

Nu_iig

THE STRCK

§§g

20—
o=

.................gun.............
S2332°85
4
33$P 3
: 53
M‘g e AR
A 52 oF

e
~

OVUVN-H-4O

NO -

W
it
S
W
W

030436
027746

A
A
—

NO-

0S3247

o
§ 885 TBS1©3

R gcwu

weeow

AOREF " Ao

%
e
W

030436
027746

000004
000002

053247

827736

SEQ 0112

SR BB
iFIRST
rn?x TICAL FIELD
Ru FOR TyPEOUT
NUMBER
IVE
4i
T
AL Rect1

V-~
= e
R3o-*R o
ner RN E- ONROMEr
MNUta = = A
1
MmO~
ot
EL
n
r
rCRo
o
NO
-

7746

114

§g¥qidk¥?

SOPB,RE

DV~ L
noor
e MUre = =

%2 sBiteled 1%
n

—

PAGE

000036

830604

8888&8§§83§3833

JOS

SDETAL:

—

£0

s b

RRRRRRR RRR RRRRRRRRRRIRRIRRRRRRR/E RRRR
ww

10:06

GENERAL

22-NOV-77

MACY11l 30(1046)

MOV
MOV
RETURN

PEPPRY
8¥Rezo

LDONOTNLEWNN-0

&838223128225
0n RRS8Ok BBEEBSBEEES

CZRMBBO RMO3-/2 PERF EXER
.Pl1
c
21-NOV-77 15:34

AD ON THE STRACK
SRERD

DIGITS

NT R2
NT R2 AGRIN
T ON_THE STACK

SSOFT
T
SOF
DIGITS

ON THE STRCK

HARD
RT
; TYPEOUT SHARD
*TYPE 4 DIGITS
; SPACES
'PUT SSKI ON THE STACK
; CONVERT $SKI
; TYPEOUT $SKI1

KOS

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

83%7%
16601

ggx

BT,

én ,
1 12
023522

MACY1l 30(1046) sss;nov-77
10:06
PRGE 115
GENERAL
ORT SUBROUTINES

706

MOV
2&

027796

R
R
6100
6101
£102
£103

023524

Tepre

18:

BNE

ga?s

INC
RTS

BRADSEC

t L ERR STACK>

;SEE_IF

BAD TRK/SEC xuoxcnron SET

‘BR xr IT'S

SET ngou INCREMENT COUNT

$SOFT(RD)
PC

;. RETURN xncn:n:ur $SOFT

?gOFT(RO) #9999, ahx?r’ nt Y AT MAXIMUM?

;ROUTINE TO INCREMENT SHARD

023550
gsggsu

005737
1006

ggasas
3572

6027

023564 103002

001362

000062

iNOTE:

SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCHRD:

TST
BNE

023417

000062

CMP

BHIS

18:

INC
RTS

BADSEC
%’

HARD (RO) , ¥9999.

D(RO)

gigg

INOTE:
023574

£109
e110
6111

023600
oaasog
023610

21%4

023616

£11g

;ROUTINE TO INCREMENT $SKI

sxxg

SHISPC raon $To%a

INCREMENT SSOFT

gigg

6108

SSOFT WILL NOT BE INCREMENTED BEYOND 9999 (10)

000060

7 000060 023417

Rs"orTgrnen ERRORS

SKI(RO),!SP)
;SUBTRACT
nI
(RD), (5P) ;5UBT ACT,

3542
3535%
tJooaC
088 0"7’

T oc s

RTS

INCSOF: TST

gggg

001362

1006

[ 82

DIGITS

’

RS.REPLZ

00S737

023530

;

;ROUTINE TO

INOTE:

'%fis e st

#6¥§§Ea?)t-(§p)'
: r
(g)'( ) ;SUBTRACT

HTY

000207

SEQ 0114

023612

005737

10
027
103002

005260

000207

001362

000064
000064

INCSKI:

023417
18:

gss }r
x
1

TRK/SEC xnoxcnron SET
*S SET,
DON’T INCREMENT COUNT

D ALREADY AT MAXIMUM
?

.aflxr xs
; RETURN

: INCREMENT SHARD

$SKI WILL NOT BE INCREMENTED BEYOND 9999 (10)
TST

ags
¢
BHIS
INC

RTS

BADSEC

: SEE xr BAD TRK/SEC

xuoxcnron SET

18
$SKI(RO),#9999.
18

'BR IF IT'S SET, DON'T INCREMENT COUNT
':IS ssx ALRERDY AT MAXIMUM ?
.én IF IT IS

: RETURN

§SKI(RO)

; INCREMENT $SK1I

P11

21-NOV-77 15:34

MACY11

%:133&

T sm&ui?r‘ts

30(1046)

22-NOV-77

10:

PAGE

116

SES 0115

s Bt Pt P

;ROUTINE TO INCREMENT SMISPO

G105
7

R IFHESHEEBLYRRILRBBBY

e B

~N
-0

Bt Bt B

SR S

B A

Bt ot Bt s s ot ot ot ot s et s ot e Bt Bt Bt

Lol aloaloal o aloal o al o al o als v ol al o al e ol ol s ol ol oo alu ol ol alu alo oTo o1 o1 3 oo

s Bt Bt Pt P P B Bt Bt Bt s Bt Bt Bt Bt Bt ot Bt Bt Be Bt Bt Bt Bt Bt e Bt Bt Bt Bt Bt Bt Bt B

OO OO OO OO O O OO O O OO O O O O

RMO3/2 PERF EXER

001362

000066

3 i oo

iNOTE:

SMISPO WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCMIS:

023417

TST

18:

?‘és
T

BRDSEC
]

;8“‘ RERENY o
IN) CATOR

ISPO(RO) , #9999 ?

kISPO(RO

ADY

REMENT SMISPO

SET

MAXIMUM ?

;ROUTINE TO INCREMENT STOTAL

iNOTE:

g«

85
::

737

001362

INCTOT: TST

000056

18:

0000S6 023417

023666

STOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10)

BNE
%s

INC

RTS

BRADSEC

gsg
TRK/SEC xmxcmon SET

i*omuno) f; i aLn{.ngno NCREMENT
MAXIMUM 'COUNT
?

fiomuno)

.xucner:m STOTAL

;ROUTINE TO TYPE THE TIME

gsaagg

001310

3%
027746

1201
g‘ 1 &3&4

gxe

32
CE

STIME:

TST

?'v’#s
MOV
JSR
JSR

054330
366

TYPE
v

m
¥

: 831338
7?
w

JHSRO
TYPE
MOV
JSR
JSR
W0

cl: KFLG

i€ 0?5 %True SYSTEM ?

RLF-(SP)
PC,
PLZ

COLON
MINUTE, - (SP)

sg,
I
COLON
ésc
-(SP)

RS,

REPL

:CR-LF
:PUT 'HOURS’' ON THE STACK
:CONVERT TO DECIMAL
yomns

*MINUTES® ON ms STACK
::PUT
CONVE*'?o
DECIMAL
37332 gomns
ST
;PUT SECONDS ON THE STAC:

e
T T0 DECIMAL
:TYPE IT
FIO% 4 mt

;CLOCK HANDLER ROUTINE

gigs

001372

fig74

024022

024026

13% 001372

005237

001370
001470
001366

001370

CLOCK:

DEC

%xres

INC
Snp

SELOND
#60. , SECOND

ano'vE

CL
INC
INC

HZ,SIXTEE

§2co~o
INTRVL +2

MINUTE

NT THE 1'/40

: *fi usc an.c UE

ngxx

%ER'T‘EDCWNTER

'cu:&a
THE secono S COUNTER
:COUNT THE PERF nmcs SUMMARY INTERVAL

:COUNT THE MINU

SEQ 0116

001366

Bt Bt Bt Pt Bt e Bt s s Bt Bt Bt Bt s Pt Bt e e e

OO OO OO OO OO T OO O OO T O OO O

;A1

001364

NTRVL
, INTRVL+2 . D1

001470
001314

8-1,STATIN

INTRVL+2

;mm FINISHED ?

ORMANCE SUMMARY DISPLAY FLAG
CLEM THE PERFORMANCE INTERVAL COUNTER

IS NORMALLY SET BY THE TTY SERVICE

IN INTERRUPT MODE

; SYSTEM BUSY RETURN

;RETURN AFTER KEYBOARD SERVICED
001540

55‘3...*5.”?“?0 L
Ec&%flfgLg::IN THE TTY BUFFER

177776

I e

;YES

18:

328

1777277

, (RS)
8'T,>1(RS)
, NEWASN

1777277

28%:

§,0:-1(RS)
PC, DERSGN

T _STRING

:gg NT TO,
~N

000101

2% 19273 177770

: ;igxlrug CONTROL C

=
O

000124

APIAT P,

= DN

3 g o

;ANY OPERATIONS ACTIVE ?

(=}

8‘{5

§§§§82838§58”“”””
AR

i
T
ON i
mwz-R Sce swer -

;ROUTINE

s B
Bt Bt Bt

Bt B

RRRRR R

IMUM ?
NOT
RE m‘ S COUNTER

;"CFLAG’

SN:Slhfidhfi1h3£h€IEHB!NRSEIEflEEflBJfiI25#3(2

MACY11 30(1

&;fi;‘ei

CZRMBBO RMO3/2 PERF EXER
cm P11
ax-nov-fl 15:34

:SR giy.5; GREATER THAN AN RSCII 7 ?
IF

VE WR LESS THAN AN RSCII O ?

R&C.YLOKWER 3 BITS IF CHAR NOT ‘'R’

? Eflngglse FOR TEST

5"15: 34
000123

N 09

et R RTM 1 18
177777

OR 3B T

TSE G
—

oo
B

025136

goozuioiW?Wfi%

21-Nov-

154504

kYS

8°S ,=1(RS)

§§
,=1(RS)

SEQ 0117

Tg "W’

oarnrx

NOT 5
25
17
SET,

RSSIGN:
754

1544

026754
000041

ASGN1:

CMPB

7‘.n£onpx
#'W,~1(RS)

HT cm ?

8’A, 1(RS)

.nL

EL
1(RS),8'7
1(RS),
80

%3C7. 1(RS)
PC, uh%m(
TiwLo
“TK&
gg! T06,3$TKS
PC

8'A,

(RS)

AT THAN 7

f;ggz THAN O

i ASSIGN oaxcss?%5 u¥ COMMAND
OFF T

;rvp;

RES
:CLERR

BITS

NVALID COMMAND®

skf TTY:z
urz

NABLE
TO ZERO

;sr
PRIORITY BACK

RSSIGN ALL

MESSAGE

'R’,

'W’

COMMANDS)

IVES"

B et MESSAGE ADDRESS
ASSIGNED ?

BefialTolSIGN DRIVE 0 ?

(TRYING T

iBR

IF NO

sNOTAVL ,ASNMSG ; 'NOT
AVAILABLE® MESSAGE ADDRESS
824,41
;
}r L
g FROM AN RMO3

ASNERR
824,41

iBR
:

;

EXI

‘bfl

THE
F DRIVE ON

LOAD DEVICE
THE SYSTEM

snaon

FROM AN RMO3 ?

1
81,RY

;
NOT
:START WITH DRIVE 1

RY
SUNTASN, ASNMSG

;srna
WITH DRIVE O
RROR MESSAGE

28’
g2675
15494

COMMAND

DRIVES ?

ézgiafis"fiéuLs*'°?6n Yo
18

*W’

nor
EQ
A DATA PACK

#'R,~-1(RS)

Pg.nscua
. 000041
-

CAN'T oo

DATA PAC

;ROUTINE TO PROCESS THE ARSSIGN REQUEST ('T’,

R
&
8rE

§§§§§$§§%%%§&@W§$&WW

P11
Edrmes.

/e PERF
E

: CONT Nus

RIRBI(RY), QSNLsf
tRLRERDY ASSIGNED *?

001316
001316

iy o
%
i
%E
001570
714 1 uéu
000070

1
ogg

026734
034502

000026
026754

§;m
PE ASNERR

nssxcu me

R&a’? récxso ?
:
MESSAGE
0

533
JSR

ER UNDER WAY ?

fi%‘ é
r~§¥”§: rc OR NONEXISTENT
K'S ngn
w
JUST ASSIGNED

g
e
=R
MOV
g
MOV

2s:
ggcm:
GN&:
ASGN7:

i
nxg 10nu.s
S ouu?
1

gg
MOVB
ASR
RTS
MOV
JMP
TSTB
BEQ
BPL

PC
mrg.nsmsc
nsvg
DRVTYP (RY)
18
2%

PACK ?
WRITE DATA PACK INDICATOR
S
:
)
’
s% ADDRESS
T
1
: xvs
NT?
iBR
IF NO
:BR
IF oo&vs 5
'Ex 8 SS OF "NOT PRESENT' MSG

0S3404

026754

ozflmm

127

0S3426

026754

1§:

gflgv

5207Pns.asmsc

025004

012737

053313

026754

23;

8gmorr.nsmsc

:':323557 025012 000137 026734
-3

Bngv

is:’
:*T*

025016
025022

00S037
000137

001316
024462

:{}3

ABIT(RY), nsn.sfng READY ASSIGNED ?

g&i

102
432

u;‘:zg

ASGN3:

]

e,»gg?

6337
6338
£329

001544

é:g
?T

; 18:

024656

g7
736
g
74
4
760

6335
6336

:
s:

;s.asm

3023 2a : =t

034606

JSR

—

000007
026734

i
gEiess

233{?
6312
6313
6314
6315
5319
631
6318
6319

5330
331

024626

—

737

TM BB SBRORY TondlitesTM 12

024602

4ReRASRRER
LI REREESH

6284

ik38353843

T ST

BlO

JMP

COMMAND

NEWASN: CLR
JMP

gfs!OTRH,fiSNflSG

ASNERR

; B00R

*NOT

RMU3"

ss
orm'onxvs OFFLINE®

50
snnon ROUT INE

(ROUTINE TO RSSIGN A DRIVE)

PACK
RSSIGN

; CLEAR
COMMAND INDICATOR
:G0 TO me ASSIGN ROUTINE

:*D’ COMMAND (ROUTINE TO DERSSIGN A DRIVE)
025034
025040
025042

005004
012703
122715
001403
012703

000010
000101

000001

DEASGN: CLR
MOV
.

CMPB
BEQ
MOV

MSG

RY
8. ,R3

; COUNTER

#'A (RS)
18
#B1T00,R3

:DEASSIGN ALL DRIVES ?
:BR IF YES
:SET R3 FOR ONE UNIT

MESSAGE

CIRmBE P
63490

2 ROV s S g gy

02504

Cl0

RCYLL PCARAR) SGBRORY Elerdli TResTMOE 120
“NOV=

111504

6341 025050 13437 034606 0OISW 1S:

MOVB

ATABIT(RY),ASMLSTxgx

E34s

noy

BLKROR(RY), DUNITERY) “98? ADORESS
TR DERSE TGN L1ST

Biis Hsalzh fiiy 034606 001544

6347

§§

g’ggu 002102 001546

ozsi

.nseog

025126

001764

f‘

6354

z;g;

122715

%;:w

23295355 352{333 oooeo‘flm“o ——

6358
6359
6360

026754

(2l R N e

2s:
3§:
ys:

%Ng

(RS) ,RY

SEG

:GET DRIVE NUMBER

ASSIGNED ?

Atas1T(RY), asnLst il

THE
DRIVE FROM THE ASSIGNED LIST

1
x'r'°§£o DRIVES ?

" v

ogumorASNMSG

8288,; gr NOT ASSIGNE

YPE

éenza

RTS

5;& (

SCRLF

’

ete.g DRIVE ”?

D' MESSAGE

:"S’ COMMAND (ROUTINE TO TYPF DRIVE PERFORMANCE SUMMARY)
SCMND :
R

3:5

1
auaemn-n nsu.s?cssE“fiWnssmnso

gzé %g % 83(333: s754 o :

AoV
gflsn
MOV
JSR

ré@e

x
ADDR INTO WORD INDEX
KADR(RY),
RO
moi
BF
XE
eg, TYPEST
:TYPE DRIVE srmxsncs
SUNTNOT,
SD&? OF
ASSIGNED' MSG
PC,
RSNERRASNMSG "';%
ERROR*NOTMESSAGE

ggrmsr

52; DRIVE RSSIGNED ?

6376

s
PC,STATPR

YPERN
'TYPE
ALL STATISTICS

TYPE
TYPE

TEIS

&‘5' gig }m:os 034606 001544

Ooeite
1

g;«s

!
8351

4 m 001544

0252

3s:

177' 7 85:1‘333

4§ :

’

ggé %g zfizg}‘ 6'3“5%

118:

T 53

877;2 g

£380

6384

104401
0440

0S4332

imi

05?343

igga ??;2
;;P:

;fi:xgrm’)?ms' ENTERED

:"DATE; '
S
RATOR ENTERED

DAT

,a'fxér Ng;:mron I.D0. ENTERED

xoxs

3;opsnmgsrééoi:°'

E306
104401 Qo408
128:
0
3246
025336
"%
553
83%02 Soxsw 5§:
2399
tlmux?
ggg? %fi 010446
2333 oesgig muggg

TvF
BITB
BEQ
MOV
7;5?2

s a e
ADDRESS
v‘m-nnsnLg
F 08DRiVErngo
ASSIGNED
;BR’ IF nor 835{%"
nu -(SP)
55 Yr; 95155 Y gur
160
2
;:rvps TYPE--OCTAL
2 DIGIT(S)EfaEsc:u

£395

TYPE

,LIN4SP

6394

026313

02S314

000

104401

053244

MOV

‘BYTE

: suppnsss LERDING ZEROS

147

“NT1TMm

SPACES

0119

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

105777

MACY11

30(1046)
22-NOV-77
10:06 PAGE 121
GENERAL SUPPORT SUBROUTINES
1ST8

ooooi2

gnc

YPE

0S4410

108:

001201
000304

.HSSD
TYPE

7%:

8%:

: "W’
001316

;;o« 1
:

’

THE

DRIVE 1.D.

;
SS OF DRIVE 1.D. FIELD HERE
:CR-

RY
Sgc

RTS

03anr

5gc

TYPE

’s

NONE

ENTERED

IF DRIVE I.D. PRESENT

:BR

aos

:SEE IF DRIVE 1.D.

108

DEC

025336

001201

177777
024462

6S:

268

SEG 0120

8SRMEC2+2, 68

RLF

:DECREMENT THE COUNTER

AT END
: INC =Eu1
THE MESSAGE FIELD ADDRESS

: INC
NT DRIVE ADDRESS
; CONTINUE
:CR-LF

COMMAND (ROUTINE TO WRITE A DATA PACK)

DATAPK: MOV
JMP

o-g PACK

ARSSIGN

sSET THE "W’

COMMAND INDICATOR

{ASSIGN REQUESTED DRIVE

:*WT* COMMAND (TO WRITE A PACK AND FS%LOHED BY TEST PACK)

177776
024462

001316

000001
024462

001316

WATPAK: MOVB
MOV

1(RS), (RS)
#-2,PAC K

IMP

ASSIGN

REDAPK: MOV

3% PACK

;ADJUST DR

{PACK WRIT

NUMBER ADDRESS
OMMAND

JUMP TO RSSIGN ROUTINE

:*R’ COMMAND (ROUTINE TO RERD A DATA PACK)
IMP

SIGN

;ggr THE 'REARD’

INDICATOR

:ASSIGN THE REQUESTED DRIVE

,ggLLJEIfE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE
:

MOV

RETURN

;

t—o—gr—v—

00000

CLRDPB:

000002
00000S

000002
000070
000002

127

0
162703
001374

000014
000162
000002

18:

2s:

3s:

JSR

MOV

sDPB, RO

PC,CLROPB

R1,=-(SP)

;DPB ADDRESS

R1 ON STACK

;cks

Tu; #ocn ION

;

R OF LOCNS TO BE CLERRED

MOV
MOV
MOV
MOV
ADD
MOV

R3,-(SP)
RY.-(5P)
RS, -(5P)
RO, RY
82, RY
85 R3

;;P'JSH R3 ON STACK
RY ON STACK
i
;-P?SH RS ON STACK
.
THE DPB ADDRESS
:
:
gs OF FIRST LOCN TO BE CLERRED
;
OF LOCNS
TO BE CLEARRED

DEC
BNE
ADD

R3
15
82, RY

HE COUNTER
:D REHEN
‘BR IF NOT FINISHED
THE RDDRESS PAST THE 'REG’ ADOR
:MOVE

CLR

(R4)+

:CLE

CLR
MOV

SUB
BNE
ADD

MOV
CLR
Sug

BNE

(R4)+

ngfiexr-snsc.na

#2,R3
2s
$12. .RY

;gscngnsnr THE LOCN COUNTER
D
FIN
IF NOT
:BR
:MOVE PARST
SS LIMITS

#2,R3

'DECREMENT THE COUNTER
:BR IF NOT DONE

#SRMEC2-MINSEC,R3 :NUMBER OF LOCNS TO BE CLEARRED
;CLEAR A LOCATION
(R4)+

CZRMBB.P11

ax-nov-% 15:34

CZRMBBO RM0O3/2 PERF EXER

6153
‘s’u °

swgz
6457

E429

6460
6462

02s

;5.
4

02238

2%"53.,

02561

6467
6468

025624
025626

6465
6466

gggg

025630

000024

gooeo

nov

800001 900034

nov

1403

olg ooooomg

w—

000022

AWE-TT

TRT0
2 S COMPLEMENT

;fgie GROER 7

(SP)+.R3
(5P)+.R1

,,POP STACK INTO R3
::POP STACK INTO RI

000207

MOV
MOV

RTS

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

:ADD HEADER SIZE TO SECTOR SIZE
;;POP STACK
:POP STACK

INTO RS
INTO RY

: RETURN

:ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR

025634

025652
S4
025656
025657

010946

DRVPRM:

000042

0S4226

010446
104403
00
00C

:
:
;
:

£489

6490
6491
B492

'18:

104401

128

001201

6483 025664 012737 001465 001446 3§:
6494 025672 132764 000004 034502

6436 0oe709 0A0AGH
€43
6497 025704 116460 034502 000262 4$:
ggg

e 7?9

755

013760

0257S4

013760
00S060
013760
005060

025762

O0le403

6501
6502
6503
6504

0257
025734
025742
025746

6506

025760

006304

MOV

R3,-(SP)

;SAVE R3

TST
BNE
TYPE
ASR

y2'
3s
ENTLMT
Ry

Rumxnc uuoen MONITOR CONTROL
;
-'su ER
SSES’
:CONVERT INDEX TO DRIVE NUMBER

MOV

6488

€507

BiYe uScoSESS

C(RO) ";INITIAL VALUE OF SECTOR sxzs

MOV
MOV

£487

£50S

cofivsm coofc% A TABLE INDEX

mm -ascxm;uc RECORD SIZE

012603
012601

12605
12604

00S737
001010
104401
006204

6500

§mfls
1€Scia
Cook
R0 0P "

- , $SSEC (RO)

025636
025642
025644
025650

g:gg

omauo CODE

ADD

6475
64
B4
6478

E484
6485
£486

INITIAL

062760 000002 000022 -

010346

6481
g482
6483

rc!

SEQ 0121

iBR IF NOT

025632

6479

ccoo ooemm

122

BEQ

6473

6480

susnéu ?"

1S1&

o1i‘

ElU

nov-77

23-,7%

B474

GENERAL

MACY11 30(1046)

177777

000122

001446

000106

000110
001444
000114
001442
000120

0SS252

TYPOS
.BYTE
‘BYTE

TYPE
MOV
BITB
BNE

HALT

TYPE
. WORD
TYPE

MOV
BITB

HALT
MOVB
ggg

MOV

CLR
MOV
CLR
MOV

000112
000116
c§:

RY. -(SP)

RY, -(SP)

.snv: RY

:SAVE R4 FOR TYPEOUT

,,rvp; DRIVE

NUMBER

1160
TYPE--OCTAL ASCII
,,rvpe 2 DIGIT(S)
swness LEADING ZEROS

2
O

SLASH
kRMO3A, 2%
SS OF "RMO3’ MESSAGE
sBITO02,onvrvmm!
RMO3?
18
aa IF YES

:NOTnnog PROGRAM suouw NOT HAVE
nsnc

o THIS POINT

SSAGE WHICH FOLLOWS

;nsssac: ADDRESS

cn-n.r

baax YLIMT
ASSUME AN RMO3
oexmé onvwmmi ;MAKE SURE RMO3

1Ry

‘HALT IF
NOT
DRVTYP(RY) snnorlno
: INITIATE SRMDT
g;x,SFIRSTIRO)
EI}F nffi
RST TIME STARTED
CYLIMT mxcvunos :LOAD MAXIMUM CYLINDER
MINCYL [RO)
LEAR MINIMUM cvgfxnosn

CLR

mx%m MAXTRK (RO}~ :LOAD MAXIMUM TRACK
MINTRK{RO)
:CLEAR MINIMUM TRACK
SECLMT
MAXSEC(RO} ;LOAD MAXIMUM
SECTOR
MINSECIRO)
;CLtm MINIMUM SECTOR

MOV

TABLE(R4),R3

ASL

:SETUP TO ADDRESS WORDS

:PARAMETER TABLE ADDRESS

CZRMBBO RMO3-2_PERF EXER
21-NOV-77 15:34

CZRMBB.P11

13763

l
651

BS1Y
6S1S
6S1
6S1
ggi

026042

RIS e
116060

1
1
1

DOO114
000110

6531

532

ré

111016
104403

026074

104401

6S3M

026102

855605

635

026100

026104
026110

6537
6538

G2ell2
026116

6540
6541

oesxg
0261

6543

852190

6539
gS42

6544

6S4S

gg:g

CYLIMT

TST

'4%

MOVB
MOV
MOV

MIN
MINCY
(SP)+

MOV
RTS

026120

026134

144

(026150

026152

335

104411

010546

§§§§;§

6536

000011
0000ie

MOV

SEG Ol22

(SP)+
PC

;ROUTINE TO GET THE DRIVE I.D. FROM THE OPERATOR

523

6533

000010

12603
000207

280
652

NOOOS

001360
054201

001360

121527
1414

0000Se

112560
112560

112560

112860

012605

18:

001201

737

001361

GETID:

MOV

RS, ~-(SP)

;SAVE RS

cTYPE
(:LcB
MO

CFLAG
%P), ) (SP)
.,ENTDRV

CLE&
TD'E 'CONTROL C' FLAG
T
CL;&

ES{O

1446

MACY11l 30(1046) 22-NOV-77 10:06
GENERAL SUPPORT SUBROU

‘BYTE

TYP?

, SCRLF

flggsgsszoxnc ZEROS

MOV

(SP)+,RS

csr HE surnv ADDRESS

TST

BNE

(RS), 8.
2s

000225
000226

MOVE
MOVB

(52”'
(RS)+.

230

MOVB

000231

000207

MOVS

2s:

MOVB

MOV

RTS

NTRY

CFLAG
18

CMPB
BEQ

000227

nunasn ON THE STACK
oaxve NUMBER

T§$?§

ROL IN

000224

UNIR MNITW CONTROL 7

; - CONT
iBR IF IT

(RS)+,$ORVID(RO)

C’ ENTERED ?

WAS

i PERIOD sursaso ?
.aa * ;
;S one

10+1(RO)’
SORVID+2(RO) ,sr

ug .D.

HE I.D.
THE 1.D.

(RS)+,

vf +3(RO)

;ST

(§§)+,

vID+S(RO)

:STORE THE I.D.

(RS)+,SDRV 8+H(R0)

(SP)+,

THE 1.D.

;STORE THE I.D.

i RE fone RS

IRETU

£Sue

:ROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16)

6Se9

6549

‘CALL SEQ

8551
gggg

:
:

[

026154

6559

026160

eS6l
&5

gSe2

RETI
RET2

RS, GETADR

ERROR RET
NORMAL RET

‘RO DPB ADDRESS

6555
6556

6557
£558

JSR

026154
026156

010146
010246

026ib2

0104946

026164
026166
026172

GETARDR:

010346
010001
062701

012702

MOV
MOV

Rl,-(SP)
R2.-(5P)

.,PUSH R1 ON STACK
PUSH R2 ON STACK

MOV

R4, -(SP)

: PUSH nu ON STACK

MOV
000124

000040

MOV
ADD
MOV

R3.-(SP)
RO’ Rl
#$B0SEC,R1
#32. ,R2

,,PUSH R3 ON STACK

: bPB ADDRESS
nooaess OF BAD SECTOR TABLE
WORD CTR

CZRMBBO RMO3/2_PERF EXER
CZRMBB.P11
21-NOV-77
15:34

&
s&s
8 9
6569
sg

Gl0

MACY11 38&}2:&: Sl.a;PNOv-77 ?%ES 124
ORT SUBROU

177777

1 4
18 61
61 7
127

6e7s

22
&5

18:

171 832894Y
1466
73

001264

----

6579

fgggo

gsaé
6584

&m 4

0
13

£585
65!

]

659

390

fi%s

046100

123737

000002
001266

G KDl ocoie

e
ErE UEm Sl
6595 %2%3 1
79
5599
659

177777

6S:

162702

000002

6601

026410

6603
B604
660S
5606
6607
508

85241
00076
420
011311
026422 016361 000002
026430
000002
gzwg
63
4
703
000004

6200 05640 0ei78 0OOOOY
026414

4s:

5§:

378

0024

cGt

oV
CLRB

632)
s

0CS TO -1
nén:u?‘u% Em
T
"ng
62%9323
"L 'mm“
?avt. 'omumoE
NDER

GENDPB

; 7 gicron T

MOV

8252. R4

EA
g
iWORD CTR FOR ano SPOT FILE

BEQ

;gmncn

4, Rl

:no.rggr frere ENTRY

:OVER

CMP

ebiec

8-1, (R3)

gems

;;x,(m)

SUB

82 R2

AGD

23
#BIT0, SCOW!

TYPE

MERR1

66128 026504 001412
6619

301277
032737

026506

104401

0S4S7S

001264

MOV
MOVB

BEQ

;DONE YEY 2 »
iBRANCH IF

BNE
BIT

000001

026474
026476

q§:

NT SECTOR

H IF QUEUE FRILS

Mc.m

MOV

BblE
8617

1266
046072

*READ C

;

ADD

e
#BIT1,gcgul

01
112637

iLAST
2ECTOR
:START wcr

#B1TO, SCOM!

66
BIS

wed
026470

RE
2ol
:STARTING SECTOR 10

S&S

611
GB6uS8 8552GEZ7GI %oooa
ooooo 001264 B8$:
6613

BE614
6615

i ORROR FLAce!

82, GENDPB+$SEC
Ou2, GENDPB+SSEC

63
(R3), (R1)
2(R3},2(R1)
82, R4
39
#4,R3

E610 Ootude bogugs oooooe

TRACK
CTOR WORD CTR

Eznopaosmrus
El

BR
MOV
MOV
SUB
BLE
ADD

78:

:LAST
:

gegs
BPL

BLT

000002

s INITIALI

z?
812,-(SP)

JSR

ADD
gflmxs

177777

Fggg
6602

2%:

046072
046072

e
nbv
3s:

: 000001 001264

8-1,(R1)+

MOVB
MOV

627
e37 fig
B
T
6578 %

occ
%a
MOV

SEG 0123

WITHOUT ERROR

: INCREMENT TO NEXT 2ND SECTOR
;
“cr Noms TRIED ?

'&gg*vsusve FRILS

:BAD

SECTOR T

ADDRESS
1048 Seclon TaCE oomess
:END OF

SPOT FILE

F SO

‘92&%.‘ s"Eo TABLE ?
:DECREMENT WORD CTR

16 BAD SECTOR DETECTED

: LOOP ?&“
:LORD
TABLE
:TRK AND SECTOR
:DECREMENT WORD CTR FOR FILE
:
H IF
:ADJUST FIL
SS

: a&fi'ifi’& BxHaUSTED.

(SP)+. $COW2
(SP)+. GENDPB+$SEC

upom;uasr ssc OR
CTOR

108

ja0TUST
To8le EnTRY
‘ERRORFLAG-OVER 16 BAD SECTORS

*BRANCH IF NOT DYMMY PAIR
‘RETRIEVE FAILS ?

:BRANCH IF NOT

‘FRILS TO nzmrevs BAD SPOT FILE

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
21-NOV-77 15:34
&So 852212 104401 053305
1
16
11109
662

104403

ge g 104401
G 001201

MACY11l 30(1046)

ggg tw Ba3502
10“1
633 Doy | 002
ggig 805708 oooo02

€641 056000 1203
Hé
815283

6643
gg:.og

026604
026606

118:
12%:

012601

Ezz

%éxn.scosu

topEC

$COuI

Hov
MOV

(2P)+'R3
(ggu:a
(SP)+.R1

N,EE
MOV
R
06
RTS

, ggfifigc

tRO),-(SP)
UscRLF

: PARAMETER ENTRY ROUTINE

6648

:CALL

B RS o

2337 026626

e e s

6665
B667

026656

004537

es;o

026672

858733
oas%g

6673

026676

010215

7é 8522

6674
BE7S

026700
026702

001021
,715

18:

3s:

JSR

MOV

G
W

#ADR, R

PC, PARENT

MRGER

(R3:+,38

Y (DR
0

MOV
(Rg),icgm
Pe> . sLasH
ROLIN '
MOV
(SP)+ Rl
TST
CFLAG
BNE
JSR
33’

030300

RS,CK.DIG

6c§

852714

000746
1049401

MOV

PTETIIN

66
% 811?32
bbbl
30 104401 055036
6662 3221;‘2% 133311
66b3
026646
012601
£red
50 805737 001360
bbbb

S§:
0S4417

125

SEG 0124

;ON DRIVE
P

£S:

MOV

BR
TYPE

: CR-LF

gfiééchsxpmflogcrons "

BAD SECTORS DETECTED
16ER
;QV

;ERROR FLAG SET ?

as°RS

2249

guq

PAGE

{9SCRLF

TYPE

MOV

000205

H10

TY:OS

10:06

GENERAL SUPPORT SUBROUTINES
TYPE
UNTMSG
MOVB
tRO),-(SP)

Egz figfi %fi 000002 O0O0i2e4 10S:

fiéfi 104401 001201
ge3e
6636 026564 00S737 001264

22-NOV-77

i RDJUST FORNORMAL RET
$i00P STACK INTO R3
EEPSS §rS&< iNTS Rg

:1POP STACK INTO RI
JEXIT

; PARAMETER TABLE ADDRESS
:GET THE PARAMETERS

LTI Tfooness

&5 S

LA
35
TER

;

TEXT

:Mrfi VALUE OF PERRHET
§170, N6 GETENE WAAR F i, Fanieven
'READ THE KE
:INPUT ASCII
STRING ADDRESS
: "CONTROL C’' ENTERED ?

iBR IF y WAS
THE DIGIT(S)
;gengm%wmmsg%v ENTERED
{CHECK

L
ECAL iUt
;sggxm;so Exm g CARRIAGE RETURN

R2, (RS)

1
, BRDENT

:TERH NRTEB uim @ =

:MOVE NEW VALUE TO PARAMETER LOCATION
:GET MORE PARAMETER
:*BAD ENTRY’

CZRMBBO RMO3-2 PERF Exgfl
CZRMBB.P11
21-NOV-77
15:34

6678

71'4

6680
6681

7
;

6679

10:

6684 852732

I10

hESPm 126

SEQ 0le¢S

ggfl

:2.!!3

DSCREHENT THE TABLE POINTER

78:

sgv

R2, (RS)

iNEW_VALUE

9s:

BR
T%T

lg
(SP)+

22-NOV-77

GENERAL SUPPORT SUBROUT

00000&

703

s gErms

MACY11 30(1046)

CLR
MOV

RTS

c(SP),R3
bflG

&ém
THE 'CONTRO!f C' _FLAG
ORAD THE PARAMETER TABLE ADDRESS

;i RETURN

: TRY AGAIN
CORRECT THE STACK POINTER

EELPEOUT ASSIGN/DERSSIGN ERROR MESSAGE

0S4130
053305

?gv

RETURN

ASNERR:

TYPE

TYPE
MOV

TYPOS
.BYTE
.BYTE

TYPE
ASNMSG: .WORD
TYPE

001201

RTS

nssagghnsnnsc;ERROR MESSAGE RDDRESS
,QUES

oue TION MARK

' UNTMSG
RY,-(SP)

"DRIVE’
.,snvs RY FOR TYPEOUT

:GO0 TYPE--OCTAL ASCII
DIGIT(S)
.,TYPE

:+YPE SPECIFIC MESSAGE
iMESSAGE ADDRESS

P; DRIVE NUMBER

SCRLF

55 L%RDING
zenos

;ggffsxcn DRIVE IF A FATAL ERROR OCCURS

001544

——

BFom
g42

DROP:

PC, DROP

CLR

fleca
;CLEARR R4 FOR DRIVE NU

RO, DUNIT(RY)

;PUT DRIVE IN DROP LIST

MOVB

BICB
SL

nSNLsf
nrnatrtna)
RY

TYPE

,SCR

TYPE

—

JSR
RETURN

MOV

026764

TYPE
TYPE

ASR

REORTS DODNONEWh—-0O

08
6709

;
:

MOV
TYPOS

.BYTE

'BYTE

TYPE

000207

027440

19:

' §CRLF

FROM nssxcneo LIST
REMOVE DRIVE
NUMBER INTO A TABLE INDEX

VE_DRIVE NUMBER TO
R

DRIVE

]

' DROPNG
DRNUM

; TYPE 'DROPPING DRIVE'
:’'DRIVE
#

RY, -(SP)

;,;ags R4 FOR TYPEOUT

DRIVE NUMBER

,,rv

2 DIGIT(S)

:G0 TYPE--OCTAL ASCII

:DRIVE nunae

$CRLF

: 'SUPPRESS LERDING ZEROS

ggga

?guLsr

none DRIVES ACTIVE

TST
BEQ
TST
JHP

AT
13
(SP)+
$GETH2

nnv MONITOR ?
:NO
'CLEAR STACK
:GIVE CONTROL TO MONITOR

RTS

CZRHBGO RH03/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY11l

30(1046)
GENER

22-NOV-77

J10

10:06 s PAGE

127

AL SUPPORT SUBROUTINE

SEQ Ol2e

;ROUTINE TO DERSSIGN DRIVE IF ERRORS BECOMES EXCESSIVE

ge7052
027074
7064

027102
027104
027110

32777

023788

1030
00013
000207

000020

152062

001464

00C0se

026764

RBNRML:

BIT

#5U04,

CHP

MAXER, STOTRL(RO) “CHECK TOTAC ERROR VALUE

BHIS
18:

JMP

RTS

ISUR

gss IF SUITCH W SET

1§

I ERRORS

DROP
PC

RSSING

{

RETURN

T EXCEED MAX

BRIVE

;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST

.SBTTL

END OF PASS ROUTINE

CRERBLEF

ERE LR P EERI PR AR

AR LIRS TR

R R B AR

8
O

0014s2

0014Se
000042

001344
0

EOP1:

.aflx F EQUAL OR GREATER

BHI

oP2

En *r fiSW GREATER THAN LIMIT

CMP

BLO
TYPE
TYPE

001460

INST LIMIT

SPOSIT+2(R0), suossK+2 :CHECK

OF SEEK COUNT

OPX

XIT

EOPX
.scaLr

NDPRS

;ExYT IF LSW
iCR-LF
;END OF

SW04,ISWR

;

:BR

TYPE

LENDTST

TYPE
MOV

’ DRNUM
ONIT, -(SP)

TYPOS
.BYTE

TYPE

MOV

TYPOS
.BYTE

SEEK COUNT

THAN LIMIT

S FOR THE o 1 e

SCRLF

DRNUM

UNIT, -(SP)
2

THE DRIVE
N

iSWITCH 4 SET ?

sPnssc<nom PARSCNY

LESS

RT PARSS couur 10 oecxnnL AND TYPE

CMP

TYPE

THAN LIMIT

tpassccn0) -(SP)’ :PUT PARSS COUNT ONT

BNE

BYTE

IF MSW LESS

SPOSIT(RO), ENDSEK ; CHECK gau OF

(RO) UNIT

BLO

18:

gRERO(RO) ENDCON’ : CHECK LSW

MOVB

BIT

001201
0S4014
001344

zope

TYPDS

151736

iEND_OF Pnss DETERMINED BY SEEKS OR WORDS 2

gg:s

CMP

EOP2:

ENDET

E 50
:BR _IF gz
gs +2(R0),ENDCON+2
;
K MSW OF WORDS nsno COUNT
;BR IF nsu GREATER THAN LIMIT
iBR_IF MSW LESS THAN LIMIT

BLO

001454

001201
053737
000070

1ST

AR LR H AR R SR E RIS RS

BEQ
CHP
BHI
BLO

CHP

001450

SEnE
OO0
——C)

f£O
e 0w

4F
55888 3
£ (JS?
N&
fo 3

Of
00
nNw

O
-0
—
o

027266
027270

SEOP:
EOP:

—

[

= T

027,

EK ESERERBrRn
FNG L

NNNNN

ixucnsnsnr THE Pa§s NUMBER ($PASS)
:#IF THERES
A MONITOR GO TO IT
:#IF THERE ISN'T JUMP TO FISK

IF SET

;SEE IF AT END OF TEST

;BR’IF NOT

;TYPE

'END

OF TEST’

:"DRIVE #'
:;SAVE UNIT FOR TYPEOUT
;:; TYPE DRIVE NUMBER
;;co TYPE--OCTAL ASCII
i TYPE 2 DIGIT(S)

suppnsss LERDING ZEROS
LF

oenssxcn THE DRIVE
"DRIVE
#

. GAVE unxr ron TYPEOUT

--rvpe DRIVENUMBER

1160 TYPE--OCTAL ASCII
::TYPE 2 DIGIT(S)

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
g;aa

5733
&

21-NOV-77 15:34

787

7
?

5
3
6794
7 14
6795
67
679 gg;aao
3
3

322
7324
7

1
g% g;gg
6804 027340
6805
7
ggg;
02?7
6808 027356

JSR
MOV

ggg
1
1233
1

%35
10
2s
000070
001201

104401
111004
146437 034606

1
1
001212
ozflg
0274
%saa 100000
0274
000001
85;3
gg_;’;
1
g‘gfi:fl
1
3%
74
3
000042
14
000005
004710
000240
027454 000240
027456 000240
027460
027460 000137

027470

027462
027464

75 5?25
1034

10946
1
0Ol

010064
68503;
1

027464
005237

000137

001546
001544
001214
001212

001210

00SS74

22-NOV-77

END OF PASS ROUTINE

[1 ]

6809
6810
6811
sexg
681
6814
6815
sax;
681
6818
6819
6820
682
saeé_
6823
£oo4
5825
26
6827
6828
5829
6830
831
6832
5833
6834

027360
gg;g%
%

MACY11l 30(1046)

3s:
001544

oo1212

EOPX:

001212

MOV
MOV
ADD
MOV
CLR
c
MOV
MOV
sgc
TYPE
CLR
MOVB
BICB
ASL
MOV
TSTB
BNE
INC
INC
BIC
RTS
INC
BIC

DEC

SEOPCT: .WORD

BGT
SENDCT: MOV
.WORD
SEOPCT
$GETH2: MOV
BEQ
RESET

SENDRD: JSR

NOP

$DOAGN:
SRTNAD:
FISK:

10:06

K10

PAGE 128

Agfw
ST
R3, -(SP)
RY.-(5P)

ogOPERc.R‘O

#8.,R3
(R4)+

(SP)+,RY

.WORD
INC

IMP

; {SUPPRESS LEADING ZEROS

?
;
s

THE DRIVE'S STATISTICS

R3
‘33 RY
:
"5,,2
gsx RDDRES
:i NUMBER
RTING nooa OF SECTIONS TO CLEAR
LOCNS TO BE CLEARED
;(mga C
55"5 NOT CLEARED)
iCLEAR
T
# N
; CRFI!
r% LOCATION COUNTER
;
MORE TO GO
; g % RY
IREST
R3
: éucaer:m THE PASS COUNT

(5P)+'R3
gmssemm
;EXIT
OPX
SCRLF
RY
;CLEAR
RY FOR DRIVE NUMBER
(RO)
DRIVE
ATABIT(RY),ASNLSY ;DELETE DRIVE FROM ASSIGNED LIST
RY
:MAKE DRIVE
R INTO TABLE INDEX
RO, DUNIT(RY)
:PUT
BLOCK
S INTO DROP LIST
ASALST
:
xv;s ARE DESIGNED
OPX
;
H IF NOT
veT
: INC gm gevxcs COUNT
S
: INC
NT THE PASS NUMBER FOR APT
#100000,8PASS
;AVIOD
NEGATIVE NUMBER
PC
,airum
$PASS
s Ncngnem THE PARSS NUMBER
#100000,8PASS
;;DON’T ALLOW A NEG. NUMBER

(PC)+

: 1 LOOP?

N
(PC)+,a(PC)+

:: YES
: 'RESTORE COUNTER

as42,RO
AGN
PC, (RO)
F(PC)+

:;GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR
::CLEAR THE WORLD
;G0 TO MONITOR
; s SAVE ROOM
i :FOR
P:ACTI11
: s RETURN

MAINI

:RETURN TO LOOP

NOP
NOP

IMP

SEQ 0127

FISK
$TESTN

: INCREMENT THE TEST NUMBER IN THE MAIL BOX

aggg

;ggglme TO GET THE REMAINDER OF THE RANDOM NUMBER

6839
6840

;
;

282,%

6843

027474

D13746

033752

MOV
JSR

RE TURN

GETREM: MOV

NUMBER, RS
PC,GETREM

SLONUM, - (SP)

;:DIVISOR INTO RS
;REMRINDER IS IN RS

:STORE RANDOM NUMBER ON THE STACK FOR DIVIDE

cwpm/zett_gvg

115

saso
sess

RIS:J"O

MACY11 323%’:»:5?3&'?& 10:06

p—
80E3

@(’

%ov

ISt

L10

PRAGE 129

ggxmgp-(sm

SEQ 0128

Plifi
Do v%omo
n%ssmcx

(séum
(3P)+

RTS

eaea

o oy
10 g sS
CALL ING SEQUENCE
10 BE

585“9 g& 6?2265 000026

LIN(DV. raoE - as(sm RS

6855

-32

6860

ig;

6864
6865

10166
30
6-0-4
000032

sas;
&g
“ama
e87)

734 885370

4 6125{
7286 000203

6872

688
2&

14
16

105
000002
005416
000002
1

000002
M.DP40:

MOV

MOV
NEG
NEG
SBC
ADD
%
L

ROL
ROL

ROL

no%

£894

ggg;

6895

BEQ
CLR

€898 057624
OGGEOS 0ODOOM
027660 000404

€899

Pé.H.DPID

co ro r
3~v¥§ ROUT INE

%,g(sm
'32(5p)

novRESREG (SP)+, (SP)
RTS
e
IvISI
TILITY swaounns

ENTE

f4.DPID

rotf'

58;9 027570
01274
000040
;gm
10446

2‘3'75

MOV
MOV

m-né

:
:

Evc
(SP).R3

IR ———

6873
6874

=B
JSR

MAINDER1

aggu&r: THE STACK POINTER

ADD
ADC

06
BR

STACK
smcx

up THE STACK

1Vio

{rotf’ TER oxv 10N
=a 5 ansn
vISION
SR

#40, - (SP)

RY, ~(SP)

RS -(5P)
2(5pP)
ISP
g(sm
SP,R1
RO
2(SP),RO
M.DPSO
-(SP)

;COUNTER
FOR DIVISION CYCLES
:HIGH ORDER

;#ou % ?xvxson TO THE STACK
:FORM
:VERSION OF THE DIVISOR
;PERFORM THE INITIAL SUBTRACTION
F CARRY THEN OVERFLOW MRS OCCURRED
HIS IS A LONGER LASTING CARRY BIT

R3
R2

"6
R

asP

M.DPY1
Sp

(SP),R1

4c6p).ROI<M.DP42 '

; TEST “CARRY” INDICATOR

:IF NO “CARRY" THEN ADD ELSE SUBTRACT
:CLEAR UP FOR NEXT TIME
:ADD ~-(DIVISOR)

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

630, 0o76eq
7N
;

31t1

gl g

691

6914
6915

£3is
691
2350
1 H

gqew

n-oPul: W
1
1

M.DPY2:

000006

gsm

7794

T
T

ADD
LC

ook cLy

M.DPSO 203
;

g fiv

M1O

PAGE 130

OON
32,’,
ref

ADC

I 000010

R2
B(SP)

gjomo

SEG 0129

;ADD +(DIVISOR)

;3 1

zg,m

PSET “CARRY~

;;Er -cf-mv:TEST THE UPDATE INDICATOR
:1IF
F
T 11

IBLE HERE
;ég
:DECREMENT COUNTER

H IF MORE TO DO

RY,RO

T4810,5P

;ADJUST STACK BY 4 WORDS

:E ]
PC

‘2&‘,’{’"‘ TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES

2§

000006

060400

6925
3b

MACY11 30(1032)
22-Nov-77 10:06
END
PASS ROUTINE

g" s

b3 Bk NEN
12271

2
6938
2333

ux’g?‘
6
71

694

bl
18:
2s

g;:
6344
016637 0900C 030026 3%
gews S%éfi 8&3&3“07 8288%
’

MOV

JSR
. WORD

-S

A
Cr. B

%va
NC
énSTB

B’g
mosa
nooTY

8ADR -(?)

Rs.ntn

!
:10.‘-255;

8'0, (RO)
eo?oo (RO)
’
xg
(RO)

;ADDRESS OF NUMBER (IN ASCII)

;"N’ IS NUMBER OF DIGITS TO BE TYPED

DeeTTe g
¢ l
mx‘.'&)xae T

Wfiafi
R 1080
av E
x
‘g’ ?

ITH A smcs
nc
m“?»:
;
o§« Lenoxnc ZEROS
:

;

YTE r:mxumon

g;o §R3)
( )+:~og

:
m*ures
1
ATION FOR TYPEOUT
&ycx :gg8F sxta‘fn ANT DIGITS

RTS

;nove RETURN ADDRESS
: RETURN

MOV

#NUMADR, - (SP)

;FIRST ADDRESS OF RSCIZ STRING

6517
Gan0ee 1
6949 030032 012616

L
MOV
(SP)+,R0
MOV
(SP)+. (SP)

ggé

: TYPE NUMERICAL ASCIZ STRING SUPRESS LERDING ZEROS

£9E4

693cS

030034

000205

;CALL

| apReas ob NurbeR

RMO3/2 PERF E

CIRMBE
F i1 2o e NOv7 15234
3

10046

m
1
1

000004
000060

914 030066

12600

MACY11

30¢(

)

-NOV=-?7

NS08 patE ROUT INE
;

10:06

ISR

PC, SSUPRS

$SUPRS: MOV

CMPB

RO, -(SP)
msm.no
2s
8'0, (RO)+

RoY
o‘x‘%v

: 3s

18:

3s:

12616
000207

1ST8Q

)
MOV
RTS

MOV

PRGE 131

;;ave RO
:PICKUP
THE
POINTER
;
; YES
;g HIS AN RSCII 'O’ *

(RD)
5

0
(SP)+,
(SP)+.
PC

SEQ O

‘;éfinfimg ”
iBR

YES

+;éfi”imm
QAVECFOR TYPING

(SP)

;asc;z Possrsn GOES HERE
8§
iREST
THE STACK
:
RETURN
:

;ROUTINE TO TYPE AT PRIORITY 4

030

152

29
03012
seei xu

NO000C

177776

TYPRIN: MOV

8PS, - (SP)

031516

-H

JSR

PC.ST#E

:CALL
:
:

DISPLY
ME

6382
6383
5384

geas

;

RETURN

5987“ 030124 032777 020000 151022 SDSPLY: BIT
988 030132 001004
£989

030134

BNE

005037

CLR

#BIT13, 3SWR
18

ADD

2 (Ep)

geoq

£994

; THIS ROUTI

599’7'

£a%E
9 g

:
:

;001

;

mo'J3!
152 121127 000080
7004 8%128 1034
7005

0301

121127

7007

oaoxgs

111102

030174

7333

;8{?

RTI

SAGE ADDRE

GOE

: INHIBIT ERROR TYPEOUT ?

'BR x? YES

;?ET PRIORITY TO ZERO

INCEENENT TRE. SETURN
;nsn'}s«

CHECK IF AN

;gsn&x cmagsrés 5’3‘2 DIGIT BETWEEN O AND 7.

)

7006

S 8¢

.&?um
H

STATUS

;MUST DEFINED IN ’TRAP’ TABLE
; ADDRESS OF MESSAGE

8391 030149 Ooorie Ooboes
gggs 030150 000002

"? PRESENT

;rvé?%‘:

RTS
;ROUTINE TO TYPE ERRORS
g

;

030164

101004

030170

835702

030176

000205

725

000067

MOV

RE TURN2

CK.OCT: CMPB
BLO

;CHECK THE CHARACTER
: CHARACTER IS NOT BETWEEN 0-7

:CHARACTER

;OCTAL DIGIT

IS IN R2 RS A
_

:LESS THAN ZERO?
;vE -~ BRANCH

BHI

i YES

BIC

#1C7 R2

:STRIP

RTS

:RETURN

MOVB
18:

;aoonss§ OF RSCII CHARACTER

(R1),%'0
15 '’

CHPB

177770

8ADR, R1

JSR
RS, CK.OCT
RETURN1

TST

(R1),8'7

(R1),R2
(RS)4

:GREATER THAN SEVEN?

:GE

-- BRANCH

nfiugmmcrsa

Y THE ASCII

:ADJUST FOR RETURN

—

LOONTNEWN

A
;AND DETERMINE
i CALL

?%’

URN1

TURN2

Bll

PRAGE 132

SEG 0131

O
IT IS A DIGIT BETWEEN

ns.ck.&c

cagssc EHGROCTER

'T E

;
;

CMPB
BLO
s'_‘mex

——

rmum

2
8’-@

:mx *

[
T

MOVB
1
s$
s

—

R 2

CK.DEC:

(R1),#'0
13
fs“,8'9

;LESS THAN
ZERO?
;
H
;
msn nm NINE?

(R1),R2
mgh
RS

:g w
i STRIP
YT
nscu
:ADJUST
F
'?
: RETURN

#'0,R2

TINE ux% CHECK AN ASCII CHARACTER TO

NE WHAT

IS.

MOV
8ADR, R1
ga
&ck.cm
TURN
1
§nm
TURN

B L

030272
30276

CK.CHR:

CHPB
BEQ
CHMPB
BEQ
JSR

0000S4
0000S6e
030200
0301s2

n§cn CHARACTER
R
TER

omi
nsrum # (R1)=ADR+!
® (R&): +1

'8{ T

mo 9.

iR2 = oxcn % (R1)=ADR+1

(R1)

;

(R1),8",
2%
(R1),»’
18
RS, CK.DEC

; onm-’
;
BRANC
3" RI0DTM?
i YES -= BRANCH
i*DIGITTM?

(RS)+

:DIGIT

“CARRI

rum-v

i YES -

BR
JSR

4$
RS,CK.OCT

15T
157

(RS)+
(RS)+

;gécxr BETWEEN 0-7
:PERIOD

Rl
(RS),RS
RS

:MOVE POINTER TO NEXT CHARACTER
: UNKNOWN CHARACTER
:RETURN

157

157
157

4s:

cx c

:PE ;90
® é-nonfl .

grumu %
;éra

;

-c
.C

Rs;uan ADRY

10:06

; THIS ROUTINE I?FUSED TO CHECK_AN ASCI1 CHRRRCTER

[SYSTwywreywee

000000000

EZRmEB P11

372_PERF EXER
21-NOV-77 15:34

INC
MOV
RTS

INO -- BRANCH
?
:0CTAL

(RS)+
(RS)+

BETWEEN 8-9

: COMMA
: CARRIAGE RETURN

: THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL

; CHARACTERS AND
; CALL
MOV

MOV
JSR

ORMS
A DECIMAL VALUE BINARY NUMBER IN R2.

#ADR, R1

; ADDRESS OF ASCIZ STRING

mun R2
S,.CK.DIG

iMAX, MAGNITUDE OF INPUT NUMBER
:CHECK DIGITS

RETURN nofu

:“CR" ONLY ENTERED -- R2=0

RMO3-/2_PERF EXER
15:34
P11
21-Nov-7

MACY11 3?N603?)P“§§-

RETURN

SEG 0132

; "PERIODTM ONLY ENTERED -- R2=0

ADR2

OHHR“ -

= NUMBER

“PERIOO” - RE = NUMBER
:SAVE

:5av
7”? MAX.
:START WITH O

——

% zRwcb

Hmoo 3 OO

mfifi% =5a:§$e ¢ A
2B
;e
agfi“'
5o
O
§
5t§

TER
R

TURN POINTER PRST “CRTM & "PERIOD"TM RETURNS

NUMBER #2

3'—

2MO

m
D

*%.e‘c,fxsze
OO

3
o-n-o-cg

(R4)+
(RY)+
(R4)+
Ra,(SP)

o )¢

(R§
(RS)+

ERERERNS

858t558
O

SIZE ON THE STACK

#4,RS
R3
R3,-(SP)
R
R
(SP)+,R3
RS.R3
RS,CK.CHR

IOm

R
RS, CK.CHR

030226

n";ER“ FOLLOW THE “PERIOD"

SETURN
NYTEE

zms"mnol EaREEE
Tmflmfl PAST INVALID RETURN

T
TURN _POINTER
NTERED RLgE

(2p5s
(50103
(SS),hS

SIZE OFF OF STACK
MAX.
LERN
;REST
R3
3
?T
RY
:
RETURN ADDRESS
TURN

HIS R 0 UTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
UNSI GNE D DECIMAL ASCIZ NUMBER.
LL

MOV

JSR

-1 ik GAL ggflflflgufiacga INPUT TOO LARGE -- R2=

CK.DIG:

R LRSRS
PRSP SRR
DR BBE TN £ W OB 8 IR A EL RS

Bt Bt Bt

s Bt Bt Bt e (ot Bt Bt (ot B Pt ot e Bt Bt e s Pt e

N NN NN NNNNNNNNNNNNNNNNNNY

PAGE 133

URN

7074
075

Bt B

V-Y? 10:06

¢
c

Cll

NUMBER, -(SP)

PC, $5B2D

TM+
1

;PUT THE NUMBER ON THE STACK
CALL

CZRMBBO RM03-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY1l 30(1046)
22-NOV-77
END OF PASS ROUTINE

;ig;

RETURN

INOTE:

THE

$SB2D:

MOV

7129

7130

030436

016637

000002

4y 812?3? oaoggs

030462

;i
4 833002
5135: 030454
030480 00RS0S
;igg
030462
000000
000000

10:06

SYSMAC LI

MOV

)

unéi’cuSS SeTat ST NORBE

7139

;

;i:é

7143

7147

030466

016637

030474

01274

030510

000207

000002

030512

7148 030500 004737 034244
7149 030504 012666 000002

7150
;igé

030512

000000

030512

000000

7153

7189
7160
7161

;i%

JSR

-(SP)

THE PR

MOV

a(sp)

.WORD

0,0

;KEYBOARD INTERRUPT

030S16

(030524
030832
030536

030544

012737

012737
005777
012777

000207

030546

000100
150424
000100

000060

000062

STKINT:

MOV

150414

toaao
(5#)*,e(sp>

JSR

MOV
TST
MOV

RTS

#STKSRV, TKVEC

o oo TKVEC+2
g
caxr 6, ISTKS

;igg

ENTER VIR INTERRUPT

$TKSRV:

RDCHR

7168

030546

104410

7169
7170

030550
3]

112637
833727

030676
030676

717§

104401

1201

7174

030574

012737

7171

717

;i;E

1012

104401

031170

053

150352

177777

000003
001360

7177 055555 023727 001154 000176 1§:
7178

7179

030616

030e20

001024

023727

030676

000007

FORM OF ’$SB20’, NOT THE VERSION ON

;SAVE THE arnnnv NUMBER

:SET THE POINTER

:CALL THE DOUBLE LENGTH CONVERT
:PICKUP THE POINTER
: RETURN

PC, STKINT

:KEYBORRD

:CALL

SS OF THE 1ST ASCIZ CHAR IS ON THE STACK

INITIALIZATION ROUTINE

7164

7165

POIETE%"GT" qae—

REV C AND LATER

-lspP)

JSR
MOV

NTER

:PUT THE NUMBER ON THE STACK

QUIRES THIS

$SB20:

RTS

FORM OF ’'$SB2D', NOT THE VERSION ON

.é?u&'H§

PC,
ssaéo

THE svsnnc LIBRARY,

MOV

IS ON THE STACK

RY n 16-BIT UNSIGNED BINARY NUMBER TO AN

;CALL

7155

7158

RETURN

18:

7154

INOTE:

;}:2

7146

MOV

1ST ASCIZ CHAR

AND LATER

ssr THE

;}g

SEG 0132

;SAVE THE B Nnnv

(sfi)oa(sp)

7140

134

g&nss
THIS

?P
tég)

%35
RT3
T

PAGE

;ADDRESS OF THE

PROGRAM

THE

Dll

;SETUP vscron

:PRIORITY
Y4
iCLEAR THE BUFFER
SET INTERRUPT ENRBLE

I RETURN

INTERRUPT SERVICE ROUTINE

RERD THE KEYBOARD

MOVB
CMP

(SP)+,5%
5§, #3

iGET THE CHARACTER
:"CONTROL C’ ?

TYPE

,SCRLF

:CR=-LF

BNE

TYPE

MOV

SCNTLC

1TeC’

'SET THE 'CONTROL C' FLAG

SWR, #SWREG

:SOF TWARE SWITCH REGISTER IN USE ?

5§, 87

:*CONTROL

agrks

BNE

CMP

IF NOT

k-1,CFLARG

EER

CMP

iBR

‘Ckf?fl THE TTY INTERRUPT

:BR IF NOT

CZRMBBO RMO3/2_ PERF
CZRMBB P11
21-Nov-7

30(1046)

030634
030640
HY

S0
SY

1
1

030676

000000

150272

2%:
3%:

JMP
ggv

s un
o&oo, 98TKS

ne*kS—(sp)

4S:

RTI

TYPE

,5%

S§:

LWORD

et = =]
(o Lo o

ee
8508v&8=h— o—v—8
N
y
- B BB o
8
2.& \l§ b §o— OB ’3 NEJRRIREENY
oo

—

n
~N

00
n
o

177777
031170
000012

:ECHO THE CHARACTER

; RETURN

;ENTERED CHARACTER
INPUT A STRING FROM THE TTY

MOV

;SAVE R

28:

CMP

CLR

MOV

6$:

031154

001360

#STTYIN+10.,R3

NE
MOVB

63
#'\,98

MOV

k-1, (sP)

(SP)+,

(R3)

2177, R3)
(SP)

9s’

;CL;RR

RUBOUT KEY

:GE nooggss

:BUFFER FULL?

'BR
YES
;
AD ONE CHARACTER FROM THE TTY
:GET CHARACTE

;IS IT A RUBOUT
'BR IF NO

:1S THIS THE FIRST RUBOUT?

'BR _IF NO
:TYPE A BACK SLASH

:SET THE RUBOUT KEY

DEC
CHP
BLO

R3
R3, #STTYIN
43

BR
TST
BEQ
MOVB

$
(sp)
73
#'\,98

;GO nsno ANOTHER CHAR
*RUBOUT KEY SET?
;en IF NO
:TYPE A BACK SLASH

CLR

tsP)

;CLEAR THE nueour KEY

108

gfl F NO

:GO

CMPB

BNE
BR

(R3),9%
93

9s’

oas,tna)
SCNTLU

; BACKUP BY ONE
;sracx EMPTY?
iBR _IF YES

ssrup TO0 TYPEOUT THE DELETED CHAR.
GO
T

: IS CHARACTERA CTRL U?
A CONTROL UTM

START OVER

CMPB
BNE
MOV

#3, (R3)
8%
#-1,CFLAG

;1S CHARACTER A CTRL C
:BR_IF NOT
'SET CNTRL C FLRG

BR
CMPB
BNE

18
#12, (R3)
33

TEXIT
IS cuannc7:n A “LF"?
'BRANCH IF

TYPE

8%:

#STTYIN, R3

TYPE

108:

-(5P)

BNE

TYPE

78:

R3,-(SP)

MOVB
TYPE

5%:

INPUT A STRING FROM THE TTY

BLOS
ROCHR
MOVB

TYPE

033616

000002

iGE
rut ;uxrcu REGISTER ENTRY
‘Exx
Y KEYBOARD INTERRUPT

SROLIN:

031154

00002s

Oron
oN
== PNNOW
W=\

DRTRP8RREZREE

N AR

s ot et et ot et et

i
= WWot-N

—

000134
031154

.nsrggu
sgongss INTERRUPT ENABLE
.CL;
T

Aoonzss OF FIRST cnnancrsn WILL BE ON THE STACK
: TERMINATOR WILL BE
A BYTE OF ALL 0’S

TST

031154
031154

iCR-LF
174G’
:PUT THE STATUS WORD ON THE STACK

RETURN HERE

CMPB

031156

SEQ 0134

RDL IN

18:

000134
031154
1772777

135

:
:

wWwww

PAGE

:BR IF NOT

‘ESEE ROUTINE WILL

Dt Dt et Pt ot ot

Ell

YPE
TYPE
MOV

MOV
CLR

13746

0306
030674

10:06

gne

104401

e’
02
104401
000002

22-NOV-7?7

END OF PRSS ROUTINE

030630 %8

000

Be Bt s Bt s Bt Bt Bt Bt et Dt Bt Bt Bt Pt Pt

s s ot B

FERS g\l\l\l\)\)
BBIRRLON28BBIRREBR2S

NNNNNNNNNNNNNNY

577 15: 34

MACY11l

$CANTLC

iECHO IT

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34
72
723

831&2
1

7239

031

7238
7240

1074

105013
104401

401

70
1

;aql g“ lfilm?.g;

;gi

0311

7243

0311

7e49

7eS0

7eSl
7252

7eS3
7eSY
7eS5

7eSe
;257

LRB
YPE

001201

031156
001200

4s:

1154

ggug

031132
031134

031136
031144

031152
031154
031155
031156
031170

7259
7260

3
1

726

012603
O0lle4s

0lebbe
012766

000002
000
000

000012
041536

177777

001202

000004
031156

118:
000C22
000004
9s:

00S01S

000

031176

STTYIN:
SCNTLC:

PAGE 136

SEG 013S

(R3)
, SCRLF

-(f‘LEflR TI-%
CHRRQCTER
“LF"

B8R

.co ICKUP ANOTHER CHACTER

(ga) 9s

EICTEEJ*T:E"CHMSERER o~

CLRB

-1(R3)

CLEM RETLRN (TI-E 15)

TST

1SP)+

MOV
MOV

4(SP} 2(SP)
sSTTYIN,S(SP)

.BLKB_
.RSCIZ

O
O
10.
/tC/<CR><LF>

TYPE

1112 ios7e3 %‘x‘ég
*

7ed46
7247

MACY11 30(1 s)
g-NOv-?? 10:06
END OF PASS ROUTINE

F11

YPE

gTTYIN

s THE INPUT STRING

SQUES

Erfig 432, (R3)+
TYPE

MOV
MOV
RTI
.BYTE
.BYTE

; CHECK FORRET
;TYPE A L

(SP)+,R3
(SP),~(SP)

; CLEAN

;RESTORE _R3
;ADJUST THE

DUT KEY FROM THE STACK

FIRST

STACK AND PUT ADDRESS OF THE

ASCII CHARACTER ON IT

;
RETURN
;?‘ ORAGE FOR ASCII CHAR.
; TERMINATOR

TO TYPE

;RESERVE 10 BYTES FOR TTY INPUT
; CONTROL *"C*

.EVEN

;261

;gga

P REEREREEEEREREEREEERERER
R RN R R R AR R AR AR AR RRRRRRRRRRERRERR

;ggg

.SBTTL

MACRO ROUTINES

;%;

.SBTTL

ERROR HANDLER ROUTINE

7269

; ulnuunnluu"nuuuuuuuuunnn“nuuunuqu

7273

7e74

lTFE SHITCH 0PTION§

;g;g

7679

;:g&e:x

;g;g

i¥

7270
;s;é

iTH
VE R%Té% ullfi
NT THE_ERROR FLAG AND_THE ERROR COUNT,
ON RR
AND THE RADDRESS OF THE ERROR CALL

; #SW1S=1

{#SW13=1

7280

031176

7e82
7283

031200
031204

010337
010137

7285
7286

031216
031220

001002
737

7e88

031230

7e8l

7284

7e87

7289
7290
7291

031176

031210

03leed

031232
031240

031246

104407

SERROR:

001342
001216
020000

105237

023670
001117

013777

001116

032777

001402

002000

147706

ERROR
CKSWR

; ; ERROR=EMT AND N=ERROR ITEM NUMBER
; s TEST_FOR CHANGE IN SOFT-SWR

R3,ATTN
R1,DRIVE

:8AVE THE ATTENTION REGISTER CONTENTS
iDRIVE NUMBER

INCB

PC STIHE
SERFLG

iBR_IF ES
iTYPE THE TIME
..SET THE ERROR FLAG

MOV

STSTNM, ADISPLAY ,,DISPLRY TEST NUHBER AND ERROR FLAG

BIT

78:

147716

BELL ON ERROR

MOV
MOV

147736

BY THIS ROUTINE RRE:

HALT
ON E g
INHIBIT ERROR TYPEOUTS

BNE
JSR
BEQ

BIT

BEG

ostua aSWR

#81T10, ISWR
13

XNHIBIT PRINTOUTS ?

;DON’T LET THE FLAG GO TO ZERQO

; .BELL ON_ERROR?
; sNO

- SKIP

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
21-NOV-77 15:34
7
1
1174
7
831529
usg
;29-0

oaiasoq

7297

7299

1310

7$§

;
7
?

7
7305
7
7

1004

004737

}%
1
831

104401
122737
oosog;

831335
1

1
031336

147602

000777
005777

7312

031356

104407

;g{g

031360

000002

2317 831325 4330338
031360

1201
000001

001130
032016

031344
03134

30(1046)

g&r

ugg

MOVB
g'xg

1476496

001224
031342
218:

22%:
2s:
3s:

;gig

.SBTTL

7318

031362

7326

031372

005000

031376

001004

031400

013746

7330
331

7332

031366
031372

031404

104401

010046

153700

031406
031410

000426
00S300

7337

031416

006300

gguua
1414

031434

000000

7344

031442

012037

03142

000000

7347

PC aznmvp

0
0

BR
TST

BELL

;;coum“f'o{ NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION

gficégzm ;;smgp
AND SAVE THE ERROR ITEM CODE
“2.'8 M;Eour IF SET

.BYT
.BYT

MOVB
JSR

TEMB, 21$
PC,SATYY
22s
JSWR

P TYPEOQUTS

::GO TO USER ERROR ROUTINE

; ;RUNNING IN AP
:1NO,SKIP APT ERROR REP

1iSEY ITEM
R
RROR NUMBER
: 'REPORT FATAL ERROR TO APT
; ;APT _ERROR LOOP
:'HALT ON ERROR

FiORLT ON ERRORLE

CKSWR

::TEST FOR CHANGE IN SOFT-SWR

RTI

; s RETURN

ERROR MESSAGE TYPEOUT ROUTINE

TO ge REPORTED. IT THEN OBTAINS,

031436

031446
031460

104401

001404
104401

TYPE

001132

RO, -(SP)

BISB

J8SITEMB,
RO

MOV

TYPOC

18:

BR
DEC

001201

031452

2%:

RO
18

SERRPC, - (SP)

R ER AR

R AR

FROM THE “ERROR TABLETM (SERRTB),

RO
RO

BEQ
TYPE

s IF
DITY

T;n

R IS ZERO, JUST
THE ERROR

i
¢ FOR TYPEOUT
: 'ERROR ADDRESS

INDEX SO THAT

IT WILL

WORK FOR THE ERROR TRBLE

'’

3s:

MOV

tRO)+,48

4§

.WORD

BEQ
TYPE

:'PICKUP THE ITEM INDEX

;;GET OU
:'ADJUST THE

L.WORD

TYPE

; ;"CARRIAGE RETURN" & “LINE FEED"

) rvp;-—ocm. RSCII(ALL DIGITS)

6%
RO

ASL
ASL

ASL

;

SCRLF

MOV

BNE

300

7342

7345
7346

SERRPC

, SCRLF
SAPTENV, SENV
a

CLR

001130

7390
331;&
361433
7341
031432
104401

7343

SERRTYP:

001201

104402

7333
7334

73
73

; ;RING

#8IT13,

SEG 0136

:#AND REPORTS THE mmoSamrs INFORMATION CONCERNING THE ERROR.

7324

7328
7329

PAGE 137

TYPE
CMPB
BNE

:#ERROR IS

;%é
7327

JSR

Gll

:kTHIS ROUTINE USES THE "ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH

7320
7325

10:06

§ FEREREHBER B PR B URBERRPRR B IR BB R R BEERRR LR R R R RRA RN AL

7319
7323

22-NOV-77

ngfion mm&.sn ROUTI
TYPE
L
18:
INC
#

1362

1137
004737

7308
7309
7313

&30300

MACY11

$CRLF

3
O

;§sx‘fp
erou IF NO Poxmsfi
”TYSS THE “ERROR MESSAGETM

i I"ERROR
: 1»CARR]

MES

* POINTER GOES HERE

URN" 8

“LINE FEED"

:'PICKUP “DATA HEADERTM POINTER

::SKIP TYPEOUT IF O
::TYPE THE “DATA HERDER"
::“DATA HEADERTM

POINTER

GOES

HERE

CZRMBBO RM03-/2 PERF EXER

CZRMBB.PI11
?

7349

21-NOV-77 15:34

031484

031460

104401

011

MACY1l 30(1046)

7354

7355
?

§§1nra

000207

1479

013046

1474

83‘“58

10:06

H11l

PARGE 138

SEG 0137

ERROR MESSAGE TYPEOUT ROUTINE

001201

5%:

;3&? 831325
7352 031466 104401 001201
7353

22-NOV-77

6S:

7%:

TYPE

,SCRLF

335
TYPE

RTS

)+, RO
sant

H
..*cnnaxnct RETURN" 8 “LINE FEED"

MOV

J(RO)+,-(SP)

..snv: d(RO)+ FOR TYPEOUT

MOV

TYPOC

(RO) RO

; ;"CARRIAGE RETURN" 8 “LINE FEED"

.,gécxup
"Qarn rggLs~ POINTER

: :RETURN
;GO

TYPE--OCTAL RSCII(RLL DIGITS)

B7 §§1sxo
B1 600791
B
401 031512
7360

8s:

Rie
oo
BR
?s

;ggg

.SBTTL

TYPE ROUTINE

5388
;3se

"':*;e*:a'::sz";s"'az;;azz":e;"'";a;#"'a;:aa:z'az:;'a*a'
gvIE.
'Nflg
ROUTINE WILL T
NUMBER O
TsnugnSc
L
RFTER A LINE
FE

;g;x

cuorea

7361
;ggg

031512

020040
031516

000

7393

.RSCIZ
.EVEN

N rEé

;g;s

‘:on

;379

;:
;Eggon
STYPE: TSTB
STPFLG

t%]) usxnc A TRAP INSTRUCTION

7385

7
7
7388

031530

ggxsaa
1836
031544

;399

osisug

;392

oaissa

7395

031576

7341 831??5

010046

017539
1227
001011

EZtT

000002
000001

001224

132337

000100

001225

004737

032006

1fiog§ 031566

TYPE

nsv

JERRO

ggxggg

66204

MOVB

7299

031606

012600

7401

031614

00000

7402

031622

001420

7400

7402

031610

031616

osggxs

000002

122716

000011

608:
3:

4$:

aat§P) RO
SAPTENY, SENV
62$

$iGET
noon;ss
OF RSCIZ STRING
.
T MODE
,.uo GO cuscx ron npr CONSOLE

afi,sxs

::22733 ngggacs aogg 3 Fon APT

OR:TSPOOL.SENVH :SPOOL ME
"

1
005726

::1S THERE A TERMINAL?
"ESL¥HEEE IF NO TERMINAL
:ILEAVE

gxga

BITB

1
031604

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

RO, -(SP)

MOV
CMPB
BNE

932929 000040 001225 628:

739
7398

::TWO(2) SPACES

MOV

7394 3315

001003

, MESADR

7355 031516 105737 001173
;333 03{2%5 500055
7384 ggxsas 333928

TWO(2) SPARCES

i“Yth 83~731ns THE NUHggR gxsgsfunnzcHSs fitben NP

H#CAL

;379

::TYPE

SFILLC CONTRINS THE cuanncrsn TO FILL AFTER.

737

7374

3
: :LOOP T

Ec,snrva
60%

BNE
TST

4g
(SP)+

ADD

82, (SP)

CMPB

RTI

BEG

RPT

,,SPOOL
MES

SAPTCSUP, SENVM ::35?
CONSOL

BNE

MOV

; ;SAVE
R

PRESSED

:YES,SKIP TYPE OU

(RO)+,-(SP)

,,ggsfi CHARACTER TO BE rvpso ONTO STACK

(SP)+,R0

,.RE?TORE RO

#HT, (SP)

,,annncn IF <HT>

$iBR
IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK

ADJUST RETURN PC
TURN

cznneeo RMO3/2 PERF EXER
CZRMBB.P11
21-..0v-77 15:34

2405

7406
7907
7408
7409

1
031650
6827o&,

000200

7410

7413

0316

031774

031660

013746

001170

7416

031664

105366

000001

7418

031672

7417
7419
;359

3315
16

1
1
105037
00075;

TST

8817 0
1172

7418

ENEC

TYPE

00473
1 3;23

7414

CMPB

031632

83‘

1
0316
0316%M

7911
7412

MACY1l 30(1046)
22-NOV-77
TYPE ROUTINE

031670
031676
031702

7?7
737

105337

000770

5§:
£S:

031730

7425
74926
7427
7428
7429

031774

031704

031710
031714
031722
031724
031726

83{;33

7434

031752

112716

004737
737
1372

726
000724

iosr;;

000040

031730
000007

8% :

031774

001003

7435
7436
7437
7438

031754
031760
031762
031770

105037
000406
122766
001402

7440
7441
7442
74943

031774
031776

000000
000207

147230

031772

7448
7449

;:gg

000012

000002

105227

7454

032000

03
032014

342015

032036

74€8

03204

7457

74€9

(CR)(LF> EQUIV

,.CLERR CHARACTER COUNT
;GET
_NEXT CHARACTER

SNULL , -(SP)

;;csr 8 OF FILLER CHARS. NEEDED

1(SP)

::DOES A NULL NEED 70 BE TYPED?

DECB

SCHARCNT

032044
032054

MOVB

JSR
BITB
BNE

$TYPEC: Egla

PC, STYPEC

:IF

rux;os 5
HEE
F*LLE CHARS. ?
T NEXT

CHAR.

;;AND THE NULL CHAR.

: ;BR ;r NO--GO
POP THE NULL OFF OF STACK
1160

TYPE A NUL

D0 NOT COUNT AS A COUNT

; ;LOOP

1$:

: :CHARACTER COUNT

(PC)+

..Lono
CHAR TO as TYPED INTO DATA REG.
:IS CHARACTERA CARRIAGE RETURN?
: BRANCH é‘ NO

: 'COUNT THE CHARACTER

STORAGE

APT COMMUNICATIONS ROUTINE

X 1222222222233 232222222222332222222223 222222222222 2222223222222 222 2]

032242

MOvB

112737

000001

032244

§2¥¥2‘

MOVB

10S737

032242

122737

000001

001224

132737

00CI00

00122%

001425

P 'WAIT UNTIL PRINTER IS READY

O
PC

000001

1031

;;POP SPACE OFF srncx
:GET NEXT CHARACTER

,,YES--CL AR CHARACTER COUNT
TEXIT
..xs CHARACTER A LINE FEED?
:BRANCH IF YES

§ATY1:

001450

gsrggc

A SPACE
?“““c“og‘ NOT AT
;; AB ST

$CHARCNT
STYPEX
8LF,2(SP)
STYPEX

032244

112737
000403

(SP)+
28

..neancs TAB WITH SPACE

CLRB
B8R
CMPB
BEQ
INCB

000001

,(SP)

2(SP),a8TPB
#CR, 2{SP)

$CHARCNT: .WORD
§TYPEX: RTS

112737

8’

Pc, $§TYPEC
87 . SCHARCNT
E1Y

MOVB
CMPB

BNE

.SBTTL

7462 fl%qu 010046
7453 853025 010146

7455

9s:

031774

;::g

7447

;;POP

::TYPE A CR AND LF

1:GO TY
..x 17

TST
Gk

7432
ogxras 195577 000002 147222
7433 031744 122766 000015 000002

7“%

; ;BRANCH IF NOT <CRLF>

PC,STYPEC
sFiLLC, (SP)+

BLT
BR

SEG 0138

:HORIZONTAL TAB PROCESSOR

;:g?

7439

JSR

;:gg
7424

BNE

DECB

PAGE 139

(SP)+

SCHARCNT
23

JSR
cCMPB

I11

#CRLF, (SP)
5%

SCRLF
CLRB
BR

MOV
78:

10:06

S$ATY3:

sl,$FFLG

:: 70 REPORT FATAL ERROR

8l,SFFLG

;;TO ONLY REPORT FATAL ERROR

ntL

..SHOULD TYPE R MESSAGE?

onprsnv,ssuv

..opsnarxnc UNDER APT?

MOVB
B8R

8l SMFLG
satyc

MOV
MOV

RO, -(SP)
Rl -(SP)

TSTB

BEQ

CMPB
BNE

BEG

38178

1170 TYPE A MESSAGE

:;PUSH RO ON STACK
::PUSH R1 ON STACK
:IF

NOT:

:IF NOT:

8APTSPOOL , SENVM ,.SHOULD SPOOL MESSRGES?
i

CZRMBB.P11

21-NOV-77 15:34

CZRMBBO RMO3/2 PERF EXER

7460

7461 032062

032056

7464 032076

0100

7965

g}oa

7469

0321184

MACY1l

000004

7%'; 000002 000004
1;&

7;2

001204

001220

m# COMMUNICATIONS nout??:

30(1046)

18:
28:

;wqgg nggsfg £3700 001220

TST

SMSGTYPE

; s

1STB

(20)4

:'FIND END OF MESSAGE

naovE

12737 %ooou 001204

7473
7474

56
01374

ADD
MOV

7475

032150

1 ;5; 000004 032154 3%:
004737

;:
gg

335}22 000000
032{23
os;.z??

7481
7482

8351;2
1

7480 oaamxsu

7485

000002
177776
021516

739 001224

oom;
005737

001204

308 1337 000004 001206
005237

001204

322

105037

032242

7490

032220

032234

032236

7494

032243

;322
7497
7438
7499
%’?

105037

032244

032242

032244

012601

Bngv

MOV
JSR

LWORD
rs;a

ggr

BEQ
TST

ADD
128:

3 2g 105037 032243

;:35

7493

118:

206 855% 000002 000004

032214

gg:
108:

032244

7486
7487

000004

INC

oioo

SMFLG:

;;&n ADDR IN MAILBOX

:g"s i

3248 %MLN"G?MS AINE WORDS

4(SP), 48

:;PUT MSG ADDR IN JSR LINKAGE

PC,STYPE

:1CALL TYPE MACRO

n:.g:sc YPE

82, 9(SP)
172776, -(SP)

O
sr;m

ifnv

12%
SMSGTYPE

:PUT

IN MAILBOX

T LLL””? rolmxe hé'g

--;gm RETURN ADDRESS
:;PUSH 177776 ON STACK

;;:i;;_oo%

nssnom FATAL ERROR?

: :RUNNING UNDER APT?

::IF NOT: BR
;;r}m
D LAST MESSAGE?

$i%p)
srataL iiGET
CRROR
B
82, 4(SP)
o
. : BUMP RETURN ADDR.
SMSGTYPE
FFLG

; ; TELL APY TO TAKE ERROR

gn.n.c

R‘r’g

'(,gpn,no

EE”‘E’? STRCK INTO RO

SMFLG

(SP)+,R1

.BYTE

$FFLG:
.BYTE
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

S$LFLG:

000200
00
000100
000040

53 SMSGARD

; :BUMP RETURN ADDR.

SEE Ns; bouus#/ LAST XMISSION?

CLSS
MOV

000

82,4(5P)

::CLEAR FATAL FLAG

CLRB

mesgg

140

;: ;GET MESSAGE ADDR.

;:;o oaeiéo
x§

PAGE

d4(SP),RO

MOV

21
N9

10:

MOV

ADD

747

1222

22-NOV-77

.BYTE

: CLEAR LOG FLAG
: :CLEAR

MES

LARG

:'POP STACK INTO Rl

i iMESSG. FLAG
FLAG

:IFATAL FLAG

ggg

.SBTTL

POWER DOWN AND UP ROUTINES

7504

$3 3&;!5!!'!;5&;;gllllll!ll!llllllilll!lil!!llllli!!lilli!ii!ili

7506 gxaa% 015737 032412 000024 $PWRON: no:Iv

lglbLLP J8PURVEC ;-557 FOR FAST UP

7508

RO, -{SP)

32254

012737

7509
264
7510 03
7sxé 0322

010146
§1oa-+s
10346

MOV
MOV
MOV

7513

010546

MOV

262

7812

032272

714
715

03227&
032302

0322

016046

000340

010446

017746
010637

146652
032916

000026

MOV

8340,

98PWRVEC+2

;;PRIO:?

:1PUSH

RO ON STACK

RI.-(5P)
R2.-(5P)
R3.-(5P)

:iPUSH R1 ON STACK
:IPUSH R2 ON STACK
::PUSH R3 ON STACK

RS -(SP)

:'PUSH RS ON STACK

MOV

R4 -(SP)

MOV
MOV

FSLR, - (SP)
SP, $5AVRE

::PUSH R4 ON STACK

:1PUSH aSWR ON STACK

:iSAVE SP

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

{;

323%

316

7250
75-59

33«.

7529
7530

7233 ggg
7634 032364

7535
7536
7537
7538
g%
0
7541 gg:a‘u
7544
gus

1
1

12@
0127

27
1
1
032420
53

032414

000

&la-oao

00S01S

032416
32426

;ssfi
77233

032430

75
7554
7555
75
7557
7558
7559
7560

3%
H

000122

12
16
16
16

032246

000340

047520

32 unumfi;“

{

127
2705

00
1522

7566

2705

002102

7871

&VT

PAGE

141

SEQ 0140

8SPWRUP
, 98PWRVEC ; ;SET UP VECTOR
; sHANG UP

000024

:POWER UP ROUTINE

$PWRUP: MOV
MOV
CLR
18:
INC

novE
MOV

000024

000026

042527

sSIL urggmvec ;-ssr FOR FAST DOWN
gn
\
;;5 Sp
A
H
}1
OOP FOR THE TTY
lsmme.
;:WAIT FOR THE INC

(gmo,asm
(g)+,RS

EE%P

; ;sPOP

gsun
RS

MOV

BR
O

SPOWER: .RSCIZ
e

STACK
STACK

INTO

(?gn'né
::;85 21 x’éurg
né
#SPURON, 98PWRVEC' ; : SET 3'
POWER DOWN VECTOR

(2P)e'R

::POP
:3POP

STACK

(5P)+.RY
(smo,ng

MOV
TYPE
SPWRMG: .WORD
MOV
$PWRAD: a0
SILLUP: HALT
$SAVRE:

AR LS R8P0

MOV
MOV

Hov
MOV

032526
032530

032536

001374
012737

000137

SATPOW:

1364
1366
1370
1470

%?g

7561 032476

;ggg

000024

77776

ggg;g

7567
7568

POWER DOWN AND UP ROUTINES

146604

037
37
73;
27
374

Kll

INTO
INTO R3

$i00P 2TACK INTO RS

8340, I8PURVEC+2 "’"52'
;hgs‘i n-? POKER FRILURE
SPOWER
i
R FA % MESSAGE POINTER
(PC)+, (SP)
:
RESTART A
TPOW
ol
: iRESTART
55
; ; THE POWER UP SEQUENCE WRS STARTED
-2

<¢15><12>"POWER"

i} BEFORE THE POWER DOWN WRS COMPLETE
:1PUT THE SP HERE

POW UP

WAIT

iFIVE MINU s,"sntu AUTO STARTS AT SETVEC

7561

10:06

127

7528

7543

032320

22-NOV-77

33 PEFLBREDREDL LB A RLAPEBEF L AR BRI RRLIER S FE LRI LR RE LB RAC LB

7525

7842

§1§737

MACY11l 30(1046)

001470

1S:

%w?o

1370

007070

004410

RESET

CLR

001264

:CLEAR THE BUS

; %Em PSW

CLR
CLR
CLR
CLR
JSR
BHI
CLR

HOUR
MINUTE
SECOND
INTRVL +2
Pc.cxckx
85, INTRVL+2
18
INTRVL+2

:RESET THE
HOUR COUNT
;negsr T
rsqénurs COUNT
IRESET T
COND COUNT
IRESET THE
INTERVAL COUNT
:CHECK THE CLOCK
.rxv; MINUTES YET ?
(WAIT IF NOT
;QESET *msnvm COUNT

MOV
EEX

#400, CHGADR
?%%no,ns

:FORGE THE AUTO START
:CLEAR UP THE QUEUE AND BUFFER

#BLKADR, RS

;ALL DONE ?

CLR

001356

asPS

CHP

BNE
MOV

JMP

seconb

2s
#7070, SCOW1

SIZMEM

iRESET TIMER

:BRANCH IF NOT
:FLAG FROM POWER FAIL

:LOOP BACK

CZRMBBO RMO3-/2 PERF EXER

22-NOV-77

;g_g

.SBTTL

BINARY TO OCTAL (RSCII) AND TYPE

;g’s

h’u
uogsér?w%g xs-an BINARY NUMBER TO A 6-DIGIT

;E;g

.
rvpos---

7580
7581

‘e
‘e

21-NOV-77 15:34

L1l

30(1046)

CIRMBB.P11

MACY11

AR rooBcTaL (asciliRno TyPE 142

SEG 014

l!Illl!!'Il.llll!llI!llllllllllllilllll!l!llllll!llllllll!!llli

767

7285
£
o5

’

7586
7587

NUM, - (SP)

rup swmss ZEROS AND NUMBER OF DIGITS TO TYPE

%Ermo

..cau. roa 1
PiN=1 ro
FOR NUMBER OF DIGITS TO TYPE

R 'LB
ADINGo
=

Fenos

:-srvpou----smsn HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
.-s‘ripos OR STYPOC

75995“
7723?

3 nov
TYPON

NUM, - (SP)

;NUMBER TO BE TYPED

i 1CALL FOR TYPEOUT

7592
7593

-srvpoc---smcn HERE FOR TYPEOUT OF A 16 BIT NUMBER
: #CALL:

;g?é

7534

‘a

7597
42 0176
7698
(032546
ussg;
7599
SN 112637
m?boo
16
naé
7603
74 112737
112737

;23;

gggas

12737

7606
7607
;soe

03261

032612

032614

010546

n“m!

153«,

761
7614
7615
7519
761
7618

40
v

785}
7623 0326
;sas

7627

032702

11
137

00000S

032764

STYPON:

032766
%ss

18:
2s:

762e 032700 ooému

001403

177770

NUM, - (SP)

(SP),-(SP)

:PICKUP THE MODE
:.
ZERO FILL SWITCH
nurae OF DIGITS TO TYPE
..no.rusr RET ADDRESS
;;SET
THE zsn
SWITCH
.,gfr FOR
SIX(B)FILL
DIGITS

ug).s ILL
(SP)+’ SOMODE
+1
59582)
81,S0FIL +1
"6,
¥ .soggr
R3.-(SP)

""-"g’
RS -(SP)
g*ohoocu.nu

R TO

;3CALL FOR T

”?57 T

i1 SAVE R

TYPED

ouT

n RATION COUNT

1 35 RY
1IGET THE
NUMBER OF DIGITS TO TYPE
H

ROD

86, RY

MOV
CLR
ROL
ROL
ROL
ROL
MOV

12¢ )| RS
RS
38
RS
RS
RS
ng.na

:IPICKUP
THE
INPUT NUMB
::CLEAR
THE OUTPUT
:IROTATE MSB INTO “C*
::G0 DO nsg
*'FORM THIS DIGIT

BIC

%77770.::3

EE(T;E;TRE%R os JUNK

5§

1iBR IF YES

MO
MO

1
032766
100018

vMOVB

MOV
v
MOVB

032767

1g
xg
1

;s 002582

TYPOC

MOV
%o 032765 STYPOS: MOV
76
novg
%me
000001
000006 032765
032767 $TYPOC: MO33

osszo-o 000006

761
761

MOV

DECB
?’s‘$

BEG

RY ' SOMODE
SOFILL,RY

SOMODE
78
RY

: sSUBTRACT IT FOR MAX. ALLOWED

::SAVE IT FOR USE
,,gr THE gno FILL suxrcu

e
E;anpfr NOT

S PR

: 'SUPPRESS THIS 07

CZRMBBO RMO3/2 PERF E
CERnBe
Pl 2 ENOV-TF 16:34

M1l

Binane 1o22-NOV-77
ocTaL cascll;10:06%oPRAGE?35: 143

MACY11 30(1046)

4s:

INC

6S:

EEEv

B4%;

zgvgvgggm10fBicDOéIT -

goo

*
e e

S<
~~

~N~

0-0<§

::: Bégg £3;éc‘::
ME Iuoas
.SBTTL

BLATNK
NA '

IS
T DIG
DIGIT
T IT
"isLAS

..SET THE smcx FOR RETURNING

?,s
1o SRl
TaL D1c

000

w5
3.
socnT: IBvT

::ruu:n & 8“01?5 T0 TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

: uiuuuunuuuuu.uuuunuunnnuu"uuuluuu

i Rou INEIS USED
Tm A 16-BIT BINARY ruecn T0 A S-DIGIT
oecx
(QSCII) R_AND
IT. M
NG ON WHETHER THE

SP&

NOMBER. LEADING
agpfiégn'&mn:
'%Efi&o'fx

]

100004

BPL
VB

%}%

18
8-, 1(SP)

&;TCM
"2 SIGN

F xwr
fi

SS08LK
R3
32 ,(R3)+
5TBL (RO),R1
é},gs

e ¥
,.'}EE"85
zsgow
T un;
T BoINT
2 Tn;rc’fxgg
Pg
03755 TO A BLANK
::ngmr
'§
Ea Fm 8CD oxcn

ADD

fié RS

: ;ADD BACK THE CONSTANT

4§:

::EST F"EIWTIWR ON THE STACK

Vo
Gov
nga
OV
gt:?
wn

108

=]
n

o
W

=
&

033054

;

; :

IGN
BE T;EPED
WILEWILLRCWAvS

v 2e
0(5P) 'RS

NUM, -(SP)

oPA—S

e
s
b
Bm b

792782 ooo0s
0000SS 000001
01
o
&ggg 888833
01&8?8% " 033174
:
3s:

76
;g;g
N
o
[
w

s B

¢Bio5ie

;675
7682

STYPDS:

0000

032770

TYPDS

<<<

3 8

otot

R
o

7628

SEO 014

::mc ngg'?n: BCD DIGIT BY 1
; sCHECK

IF BCD DIGIT=0

RMO3/2 PERF E
R
P11
21-Nov-7
1S:34

c
c

MACY11 %&1‘92:

T BINARY TO DE

Ss:

o o ol S S e Sy Sy S ST =Ye pee

MEREEEMERIIEIRET

%
)
2
e
BI§

177776

BPL
MO
CL

<
-1(SP),-2(R3)
(R3)

RSl

el el ad

.§§§§§

MOV

ad
Ll

sGET

TYPE
MOV
SDOTBL:

&s ety
e
.'

;

MOV
MOV

1(3?) -1(R3)
#'0,R

8 ,R2

MOV

000004

§(SP)

CMP
BLY
BGT
MOV

MOV

SEQ 0143

MOV

L9REE ahG TvPE mouTINE

- R3)+
?Sfi)o

g(IJVB
ST

%TB

RT
1
1000.

ioo.

, 810

(SP)+

;zpur THI

Y A DIGIT

OUTPUT SUFFER

3.JHE
33
T

:;gg
$§u§
o] G
s
XIT

,,uns THE LSDTaéc;fasr NON-ZERO”

(g)o,

(SP)+.R

(SP)+,

(§SJ+,R6
(5P)+'R

K
2(SP),4(SP)
(SP)+. (SP)

$SDBLK:

.SLKH

.SBTTL

TTY INPUT ROUTINE

;;RETURN TO USER

2 uun:;;nnnulnnuuuunnuuunnuunuuuuuu;

ftuneL

—

NRRNARRN ~N
~
BEBVRREORn

T
e Sy C

DO NN LW-0O

3 §3333333333RS AR

17727277

N1l

2-NOV-77

!'lllIlllllll!lll|'Iillllll!lllll!llllllllllllllIlililllilillll

' .nourxfgRERSG}SOH
THE TR
. nvx

000176

001154 tcxsun

:: HAR r

145730

gs nof

1‘057%

033623

RE?

c'T WAIT AROUND

::§rn P-OFF ¥He ASCII

6775 2

001150

"RANGL
WILL
cnnggs
IN SOF TWAREERéuxrcu nscxsrsn TRAP CALL
siliec,
stk
.IS THE
sgn-sua SELECTED”?

000001

;:1S IT A CONTROL G?
:: NO,
TO0 0 USER
RE

i JARE WE

énc IN AUTO-MODE?

; ;BRANCH IF YES

; sECHO THE CONTROL-G (tG)

RMO3/2 PERF EXER
cmpu
21-NOV-77 15:34

2740

774
774

774
77
7745
77“;

774

mg
775?

104401

033641

MACY11l

61 3733 %01;2
1

100375

145646

33314 11774 w;agg
3

092716

7753EE

7754
7755
7756

$SGTSWR: TYPE
MOV
TYPOC
TYPE
198:
CLR
cga
78:
TSTB
BPL

000025
033616

30(1046) 22-NOV-7?7
39w
INPUT Soumc

000004

m??bg

145566
000006
gx 1
11S1 000001

7784

7783
7786
7786
7787
7788

3‘323
033466
033470
033474

mv;ous

NPUT

PiLET’S TRY IT AGAIN

(SP), 815

;1S IT A <CR>?

148:

BEQ
MOV
RDD
TY!

11
2(SP), 3SWR
86, SP
¥e F

i
IF YES
; :SAVE NEW gm
:;CLEAR UP STACK
;;Sgug <CR> “AND %5)

000100 145544 031730
168:
5 ———
000067

nv
155
cn"}
8an

axao.asncs
PC sr::sc
is")'
(23),«-.7

¥ ;:mau: '#v KBD INTERRUPTS
E;Ec : CHAR
4
r(c iF’? YES
;Egum":>

118:

%so

%Essa
16
000707
104401

000002

178:

001200

188:

177776

&‘

.DSABL.

4(SP)

fsm

, 8l

::YES,

IF ug

IS ;T

HE FIRST CHAR?

PIRE- ma.Hxs TT; KBD

SGT
IC
TST

188
etik)

ASL

(SP)

::NO, SHIFT PRESENT

2(SP)
-2(SP), (SP)
78
SQUES
208

K ;P COUNT OF CHAR
i
;N NEW CHAR
PIGET THE NEXT ONE
:TYPE ?<CR><LF)>
: 'SIMULATE CONTROL-U

BEQ

16
16

gt;

SCNTLU
b6, SP

; sPICK UP CHAR

g
733

033454

TRY RGAIN

7764
7765
776
776

7781
7782

RE?

19¢

TYPE
ngo

CMP

;ag

; s CHAR

::IF NOT

::1S
IT A CONTROL-U?
EEéSmcu
xg NOT
:1YES,
ECHO CONTROL-U (tU)

108:

7780

¥
T FOR nsu SWR
;;(f'l. AR CO%E
i
rfiu

(SP), 825
13:

000015

;77;3

CONTENTS

CMP
BNE

7761

77777701
7772
7773
7775
%

% KS

CURRENT

PIMAKE IT 7-BIT ASCII

77:5

, SMNEW
-(SP)

-(SP)

;;ésg\&aegcros
TYPEOUT
i
-=QCTAL ASCII(ALL DIGITS)

81C177, (5P)

208:

7760

SMSWR

SWREG, -(SP)
J$TKB, - (SP)

000006

;;gs
7759

PAGE 145

MOVB
BIC

9s:

10:06

ASL
ASL

INC
BR
TYPE
BR
BIS

LSB

860, (SP)+
17

HH
H
¥
3:

(5P)
(5P)

H
i

INTERRUPTS?

.H&F zgs
F
RSCII
HIS THE FIRST CHAR

m;p-

H ;F YES

Soonm& %snNEW ONE£

7791

53 P Y 2222222222222 222222222222222x2222222222222222222222T2222222
223

7794

‘E

;;gg
7795

;fgg& ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

RDCHR

s INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

: :CHARRACTER IS ON THE STACK

_— - 4y

RMO3/2_PERF E

P11

1S:34

21-NOov-

7797

1 R

-NQV-77

10:06

cle
PRAGE

SEQ 014S

:;MITH PARITY BIT STRIPPED OFF

eiil
B §gé..i

145414

DCHR:
soo:
gy
18:
TSTB

2s:

145410

=00

LFEIRaRInSg

04704
000040

e
&
F

L£WN-0O
@

(1046)
INPUT

779%

ARSdddsdads L
e

MACY11

3s:

vB
BIC
CHP

asrxa Y(SP)
81C<127> 4(SP)
Y(SP), 823

R
Erlg

(SP)+,Pk21 4

e] o TKS

THE
PC
:xag
foum,
€
HflI
cmr n

ADT
T nxo or Ju« IF ANY
17oac TROL-S?

13iWA
S Lo"geR
ReCaTs
4mx
i
Mascll
8

2
1
4(SP), 8140

x
..vgs ns
il it

nv;

3;591,.175

1318

axc

840, 4(SP)

::mx

BLY

wg:
Rééfi
NTLY:

g NTLG:

(
4T84,

/f /<15

¢1

ARD 1T
CASE?

IF YE

88
35

g
T ppsn CASE
0 USER
“y”

SMSWR:

.ASCIZ

/74G/¢15>¢]
; ; CONTROL *G"
<«15>¢12> VSR = /

SMNEW:

.ARSCIZ

.SBTTL

RANDOM NUMBER GENERATOR ROUTINE

AL CHAR?

1 n“x

= 7/
NEW

R RN
R RN R R R AR RARRRRRRRERRRRE

iTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
;#WITH A RANGE OF O TO 2(+33)-1.

: #CALL:
'x

¥
e

munn

PC, SRAND

::g;—@&22

199738

oo0e

033752

7881

0337

8
——

W
W[
NN
00

8§

7850

(=]

7
7
7848
7849

0337s2
033750

18:

L n:

..msn HILL BE IN

$SRAND:

TINE
RANDOM
THE

"S:

; ; SHINUM, SLONUM

MOV
MOV
MOV
MOV
Vv

RO, -(SP)
R1,=(SP)
R2' -(5P)
sLONUM, RO
su;nsn,m

; ;PUSH RO ON STACK
:1PUSH
R1 ON STACK
:iPUSH
R2 ON STACK
$:SET RO WITH LOW
1:SET R] uvn HI?H

ASL

8-7,Re

ROL
INC

R1
R2

ADD

$LONUM, RO

BNE

ADC

ADD

SHINUM, R

;3SET

iSHIF

CO?N

LEFT

: iROTATE _CARRY
: iCHECK F

§ s CONTI

AND

INTO R1 AND

SHIF

i ADD NUMBER TO mxs X 129

: PROPOGATE CARR

: 'ADD NUMBER TO mxs X 129

EERnE P11 c2inov-re as:ae
7852

7853
4

033716

alOS?,RO

i 7?

§u7;gé

337401

R
Rg‘s'

'(’SPH:RO

.WORD

123456

10137

7862

033752

7795;é

ADD

0313744

7861

001057

00SS01

7828
;ass

ot SRANBOR uRBERGeneratOd
RouTTRE 17

062700

033722

Dle

1560g

ADC

gg?so

xuéssauua

MOV

m'&u?wn

SHINUM: (WORD 176543

123456

SLONUM:

; ;ADD _LOW _CONSTANT

: ;PROPOGATE CARRY

;;éngo nggn CONSTANT

i 35 Rl

:iOP STACK INTO Ra

E;;Eo; STACK INTO RO

aly:

.SBTTL SAVE AND RESTORE RO-RS ROUTINES

;i;;sgl;a‘l;glllllllllllIll!lllllllllllllIl’iliilllllllillllllli!!

7868
7869

: #CALL:
e
SAVREG

383?

;:upou RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

7872

PETOP-==(+16)

7873
7874

;% 42--=(+18)
‘% +4---RS

7876

; % +8---R3

7875

‘% +b---RY

7877

; #+10---R2

7B87E

;e le-=--R]

7876

; #+14---R0

713:3-'1";&| 033754
033754

010046

$SAVREG MoV

RO, -(SP)

; ;PUSH RO ON STACK

7885

§10C§:si

MOV

Rg:-(gP)

:5:333 23 ON gmcx

;ggz’

7889 033768 01mue
:

7886
3764
7E
0337
7€

;ggg

010946
gxosws
16646

854""

0leb46

34010

000002

hov

000022

7897

7€

7901

833015

812555

000022

7904

034036

7907

034044

SRESTORE

$RESREG:

R4, -(SP)
RS -(SP)

22lsP), -(spP)

MOV

22(5P) . -(5P)

RTI

P iPUSH RE ON STACK

1:PUSH R4 ON STACK
: : PUSH gg ON STACK

; s SAVE

OF MAIN FLOW

::SAVE PC OF MAIN FLOW

RO-R
oy
RESREG
MOV

(SP)+,22(SP)

; ;RESTORE PC OF CALL

012605

MOV

<§$»:5%(§m

;Egfir

012603

MOV

(SP)+.R3

034032

7
7

‘%

026 815222 p00022

7902

7903

MOV

000022

7894

2890
789%

MOV
MOV

Re'-(2P)

034

gxasm

0
0
034042

012602
012601

012600

MOV

MOV
MOV

MOV

(S5P)+.RS

Pg OF MAIN FLOW

:1POP STACK INTO RS

(SP)+.RY

: 1 POP 2mcx INTO RY

(SP)+.R2
(SP)+.RI

1:POP STACK INTO R2
:1POP STACK INTO RI

(5P)+ RO

:1POP

INTO R3

:1POP STACK INTO RO

CZRMBBO RM0O3/2 PERF EXER

CZRMBB.P11
;903

;gi i:?

21-10V-77 15:34

034046

MACYL1 30(1046)

000002

22-NOV-77

10:06

BlE

PAGE 148
SAVE AND nfsvons RO-RS ROUTINES

SEQ 0147

RTI

.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

7912

$2 T2 2222222222222

7914

;¥DECIMAL (RSCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

7913
;gig

7918
7919
7920
7923

7924
7925
7926

e
e
034050

8‘3:%
034062

104412

81
12700
gmoss

000002
034230
000002

$DB2D:

MOV

JSR
RETURN
SAVREG

MOV

: ADDRESS OF TEN POWER

012705
161401
605502
1502

MOV
CLR
SUB
SBC
Su

7937

034122

005203

7936

7938
7940
7941
7942
7943
7944
7945
?
7947
7939

7948

7949

7950

7951
7225
7

7954

0341

18:

2s:

INC

034124
natug
0341
034134
gg-‘:xag
142
(034144
034146
034150

000772
005502
062402
022525
055733
1103
005327
000000
001357

034154

RESREG

145000
035632

$TNPWR: 145000
5632

034126

034152
034156

160
162
164

062401

105020
4

160400

38:

000060
4§:

BR
ADD
ADC
ADD
CMP
BIS
MOVB
DEC
.WORD
BNE
LRB

RTS

7957
7958
7959

034176

041100
000017
03240

7962

034206

000000

034210

001750

(RS),R2
33

2s
(R')+,R1
P2
(R4)+,R2
(RS)+' (R5)+
8'0,R3
R3, [RO)+
(P& +
O
13
(RO)+

: ;CLEAR PARTIAL

: :SUBTRACT TEN POWER
::BR IF TEN POWER TO LARGE

:'ADD 1 TO PARTIAL

: 1LOOP

: 'RESTORE SUBTRACTED VALUE

: sMOVE TO NEXT TEN POWER
: :CHANGE PARTIAL TO ASCII
PISAVE IT
::DO
;;BR IF NO
: ' TERMINATOR

: 'RESTORE REGISTERS
: 'RETURN

:11.0E09
;; 1.0E07

041100
17
103240

::1.0E06
::1.0E05

174
oawgg

13200

600230

(R4),R1

113200

2765

(0341

QUETRIE
[ s yuwu
:3SET UP TO DO 10 CONVERSIONS

::1.0E08

oog'éflss

7956 8;317

130

160400

0341

7955

7963

162

; ; SAVE REGISTERS

#10.,4%
S$STNPUWR , RY
8STNPURY2,
RS

034104
034110
034112
034114
oa-ués

ggzxso

:; THE FIRST
ADDRESS OF ASCIZ
::1S ON THE STACK
:'PICKUP THE DRTA POINTER
:GET ADDRESS OF "SDECVL” STRING
PIPUT $oasss OF ASCIZ STRING ON STACK

7931
7932
7933
7934
7935

1g;o~o

; ;POINTER TO LOW WORD OF BINARY NUMBER

2(SP),R2
#SDECYL RO
RO,2(SP)}

MOV

034100

#PNTR, - (SP)

PC, 3880820

MOV
MOV
MOV

735
815502
7929 034072 012737 000012 034146
7930

S SRR S

.:PoEEnvs.

7917

2222222222 2222222223222 X222

:kTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED

230
0

1750

::1.0E03

CZRMBBO RM0O3/2 PERF EXER

CZRMBB.P11
7964
7965

735;
796

034212
034214

34216

77%89

21-NOV-77 15:34

10: 0

Fle

PAGE 149

0
144

0000

:;1.0€01

TIP

000014

SDECVL: .BLKB

12.

.SBTTL

797S

$3 Iy 2 2222222222222

;3;6.

;:gg&cneo OCTAL ASCIZ NUMBER.

7980
;981

ma”

034244
034246
sggg

104412
016601
1 7g

000002
4363

7989

034262

034266

012703

177770

7992
7933

33:274
276

7990
7991

034270
034272

799% ggfi
7997
7998
7999
8000
%
8003
800N
8005
8006

oauaug
83331
14
034316
oswggg
o34
034324
034326
034330
034332

012100

MOV

JSR
RETURN

PC, 3880820

#PNTR, - (SP)

; ;POINTER TO LOW WORD OF BINARY NUMBER

$DB20:

SAVREG
MOV
MOV
MOV

2(SP),Rl
#$OCTVL+13. ,RS

812. ,RY

; s SAVE m.# REGISTERS
:IPICKUP THE POINTER TO LOW WORD
.;Poxmsn T0 DATA TA
;DO ELEVEN CHARACTERS

MOV

(RI)4,RO

; ; LOWMER WORD

0014

012101
00S002

110245
010002

MOV

18:

000002

006000
%3%

2s:
3s:

wEeNCNLW—-0O

[

0 (0 (0 (0 (0
0000000

Y N NN
——

aooa“w
3% o4 s
8009 034
osa: ;oaCE 000060

034344

034346

000753

000016

$OCTVL:
.SBTTL
P

(R1)+.R1
R2

BEQ

Re,-(RS)
RO.R2

: I MASK

: HIGH WORD
;;TERHéMTOR

:1PUT CHARACTER IN DATA TABLE
PIGET m*s DIGIT

;Eg fr IT IS o‘é LAST DIGIT

R3
R1

{:ALL DIGITS DONE-ADJUST POINTER FOR FIRST
:'ASCIZ CHAR. & PUT IT ON THE STACK
;;sgrons ALL
REGISTERS
ie
URN TO USE
:'POSITION THE MASK FOR THE LAST DIGIT
;'POSITION THE BINARY NUMBER FOR

S?E
ADD

R3,R2
2'0,R2

MASK OUT ALL JUNK
:'MAKE THIS CHAR. ASCII

.BLKB

1M.

: 'RESERVE DATA TARBLE

RS
RS,2(SP)

::CALL THE ROUTINE
::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

INC
MOV
RESREG
ASR
ROR
ROR
ROR
ROR
ROR

006001

#1C7'R3

MOV
CLR

MOVB
MOV

1405

005205
010566
tlnoao;m
%Sga
1

2222222222222 22222 2222222222222 2222222222 2

WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

TM
‘¥

7984
7985
7986
7987
7988

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

tETHIS ROUTINE

7979

0E00

; ;RESERVE STORRGE FOR ASCIZ STRING

;::;3

7976

RO
Rl
RO
R1

THE NEXT OCTAL DIGIT

::GO PUT IT IN THE DATA TABLE

TRAP DECODER

REESREREREEEREEERENERERERRRERRRRERRR
BB RRA R RRR R AR ERRRRERERENR

;%THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAPTM INSTRUCTION

;#AND USE IT TO INDEX THROUGH THE TRAP TRBLE FOR THE STARTING ADDRESS
; #0F THE DESIRED ROUTINE. THEN USING THE RDDRESS OBTRINED IT WILL

;#GO

SEG 0148

;;1.0E02

0
12

D000

o342

22-NOV-77

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

000000
000144

969
034224
000001
7970
oawag.z 000000

;:i;é

MACY11 30(1046)

THAT

ROUTINE.

P11

C21-NOV-77 15:34

RMO3/2 PERF EXER

8020

8021
soag

364
366

8026

802
85;

8027

eoa»aE
gg:axl)
8032

8033
38333

7e
T

wo'as
159

40
&%

000002

034400

016000

034420

034404

000200

034406

011646

034416

000002

034410

O0lebbb

000004

MACY11

305A8 BecobEr
30(1046)

STRAP:

-NOV-77

MOV
MOV

RO, -(SP)
2(5P) RO

ASL

RTS

TST
MOVB

MOV

000002

10:06

;3 THIS

IS USE

STRAP2:

MOV
RTI

PRAGE

1S0

; ; SAVE_RO
:'GET TRAP ADDRESS

-(ROY’
(RO),RO

;;Bfl?KUP BY 2
;;GET RIGHT BYTE OF TRAP

$TRPAD(RO) ,RO

;;mo;x T0 TABLE

TO HANDLE

MOV

Gle

::POSITION FOR INDEXING

::GO

TO ROUTINE

THE “GETPRI"TM MACRO

(SP),~(SP)

:MOVE THE PC DOWN

4(sP},2(sP)

,,no E THE PSW DOWN
P 'RESTORE THE PSW

gg%

.SBTTL

8038
8039

mcxs mess
conmms THE STARTING ADDRESSES OF THE ROUTINES CALLED
#*BY THE
NSTRUCTION.

aoué

8040

eo«E
C3 034420 034406
BO44

034422

031516

8046

034426

032542

gg:g

034432

805?

TRAP TRBLE

ROUT INE

$TRPAD: .WORD

STRAP2

; ;CALL=TYPE

mnpuug:qon

TYPOS

;;CALL=TYPOS

TRAP+3(104403)

TYPE OCTAL NUMBER

032770

STYPDS

;;CALL=TYPDS

TRAP+S(104405)

TYPE DECIMAL NUMBER

034434

033264

SGTSWR

; ; CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

8052
B80S3

034436
0O3444C

033214
033476

$CK
SROCHR

..anL-cxsm
; ; CALL=RDCHR

TRAP+7(104407)
TRAP+10(104410)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARARCTER ROUTINE

8056
8057

034446
034450

0349012
030124

SRESREG ;:CALL=
SDSPLY
;;CALL=DISPLY

8045

8047

8054
B0SS

eosg
ggg?

8063

034430

034442
034444

§TY

STYP

032602

TYPON

030700
033754

000032

: :CALL=TYPOC

TRAP+2(104402)

..csu:rvpou

mmwug:u

SROLIN
:;CALL=ROLIN
$SAVREG ..cnu.:gggc

RS RBERRER R R R R R R R R R R

.SBTTL

80668067

;

806€

: COPYRIGHT (C) 197

gg;é

'AUTHOR(S): JIM LACEY/CHUCK HESS/C. CHEN

88;3

807c

;STORARGE FOR RMDS,

8069
8070

R AR AR

R RREREERRES

sxnct. /DUAL PORT RH70/RMO3 DRIVER (REV 5.1)-24-AUG-77

;NEW DRIVE
T

ID FOR RMO2 ¥#sxsssxsx

10-RAUG-77 unluuu

;DIGITAL EQUIPMENT CORP
:MAYNARD,
MA 01754

ERAER AR R RN R R

R AR R R RS

RMER!,

(NO LEADING ZEROS)

TYPE OCTAL NUMBER (RS PER LAST CALL)
(WITH SIGN)

TRAP+13(104413) RES ons RO-RS ROUTINE
TRAP+14(104414) ROUTINE TO TYPE ERROR MESSAGES

8064

8065

OCTAL NUMBER (WITH LEADING ZEROS)

TRAP+11(104411) TTY TYPEIN STRING ROUTINE
mmusuo-ms) SA
RS ROUTINE

$TERM=. -§TRPAD

3 EFERERERERRERRERERERRERRRE R

)

TTY TYPEOUT ROUTINE

TYPE

RRR R

RMER2,

SRR RERRERERRRRERRRRERRRRRERS

AND RMMR2 ON AN ERROR "2"

CZRMBBO RMO3-2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY11l 30(1046)

10:06_PAGE 151

SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

8076

;RMERRS

8077

= RMDS

RflERRS*E = RMERI

8078

RRS+4 = RMERZ

8079

Hle

22-NOV-77

RRS+6 = RMMRZ2

8:{::28

%8888

000000

00COCO

RMERRS:

.WRD

o,0,0,0

: TRBLE OF DRIVE ncrévs Ieoxcnrons (DRVACT=8 BYTES)

iBRvAcT:8 1F BRIVE
=

12 AYtve witw & commano

:DRVACT«0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION
B08S

|
238
034464
000
%X
08
8 446
B804
8095 034470
000

DRVACT:

8833

3050
8091

gggg

034471

000

8100

BO
8

'BYTE
BYTE

O
O

BVE
'BYTE
B
‘BYT

onvsrn«o

DRVSTA: .BYTE

8105
8139

000
000

.BYTE
BYY

034473

81
aioa

03447E
oagu?r

034474
034475

§i?§ 834?8?

000

'BYTE

00C
000

‘BYT
.Ex;g

888

Bll2
B113
8114
e11s

-BYT

000

DRVTYP: .BYTE

9125 833589

000

ZEYTE

034503
034504
oaugos
O0O3MEID

034E]1]

000
000
ggg

‘BYTE
'BYTE
.a;}s

000

‘BYTE

O
0
§

;DRIVE O
:DRIVE |

:DRIVE 2
‘DRIVE 3
‘DRIVE 4
;figigg 5

O
O
0

ALSO)

:DRIVE O

‘DRIVE 1
;onva 2
:0213 3

§8R§VE 5

:DRIVE &

:DRIVE 7

s TRBLE OF oun#PORT INITIALIZATION INDICATORS

=0 IF INITIALIZATION IS NCT ACTIVE ON THE DRIVE

gigg
121

F DRIVE IS UNSAF

:DRVTYP=-1 IF NOT RMO3

034502

g1§2

(DRVSTA=8 BYTES)

ICATORS

TABLE OF onxvs TYPES (DRVTYP=8 BYTES)
:
DRVTYP g ir BEIVE ig NONEXISTENT (DRVSTR=0,
'DRVTYP=5
IF
v
RMOS
*Ex¥xs
:DRVTYP=4
IF DRIVE IS RMO3

g}ig

3{25

:DRIVE &
:DRIVE 7

TAT

000

BI04

B124

ooyTRBLE OFoR“éVS3 xrugnfcg ?s OF?LINE OR NONEXSITENT

axgg 034472

8118

iBRIVE
9
:DRIVE 2
:ENEg

1R>0 {r DRIVE IS ONLINE

8{01

8119
8120
gigx

opxnr<o IF INITIALIZATION IS IN PROGRESS
o0Qa4e12

0oo

DPINT:

.BYTE

:DRIVE O

SEQ 0150

RMO3/2

RECREE BVt LR SDE LT R TOR-EOBINR LS SFH £S5 25BBURR 20K §

P11

0 €D 00 00 €0 €0 €0 € €0 (0 (0 00 (0 4D 0 0 €0 €0 00 T €0 €0 €0 €D €0 €0 €0 €O € €O O 0O D €D €D €D €D €D €O G0 €O D GO €D €D €D €D €D €D €O €O €D €D €O 0 D

1
1

2
1
1
{

034513
034514

EEE
oang?

034520
034521

ax-nov-§§ 15:34

MACY11

30(1046)

sxucu?xo

000
000

e
BYT

000
000

BYTE
BYTE

i TRBLE OF

1
1
1
1
1
1
1
}

1
1
1
1

i
i

1
1

i
i

1
1

i
1

1
1

185

186
187

Il2

PORT RH? /ngsa 02%5:A(REV S.1)-24-AUG-77

.BYTE
'BYTE

000

1
1

22-NOV-77
O
O

;DRIVE 1
‘DRIVE 2

P
Egnfvs g
:DRIVE &
:DRIVE 7

PENDING PURL PORT
sr;
@S=0 IF
THAT A ounL PORT
REQUEST

IS NOT PENDING FOR THAT DRIVE

:DPRGS<0 IF THAT A DUAL PORT REQUEST 15 PENDING FOR THAT DRIVE
034522
523
034524
26
034527
034530
034531

000
000
000
000
000
000
000
000

DPRGS:

.BYTE
'BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

O
O
O
0O
O
0O
O
O

:DRIVE
IDRIVE
iDRIVE
:DRIVE
:DRIVE
‘DRIVE
:DRIVE

O
1
2
3
H4
S
b
:DRIVE 7

; TRANSFER_WAIT FLAG (TRNSWT=1 WORD)
T
HIS IS A_ONE WORD QUEUE. IT WILL CONTAIN THE RDDRESS OF

“DPBTM OF THE I/0O OPERATION.

034532

000000

TRNSWT:

.HORD

; SEARCH unxr
KiYS
(sacuur 1 WORD)
uono
EUE
THAT WILL CONTRIN A KEY FOR ERCH OF
ougn*vg
PERFORMING A SEARCH COMMAND FOR THE I1-0
HAT IS nT THE TOP OF THEIR REQUEST QUEUE.

Encu DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.

034534

000000

SRCHWT:

.WORD

;RMO3 DRIVER ACTIVE FLAG (RCTDRV=]1 BYTE)
;ACTDRV=0

IF DRIVER

INACTIVE

:ACTDRV>0 IF DRIVER IS ACTIVE
034536

000

ACTDRYV:

.BYTE

SOFTunRE T%H; ROUTINE RCTIVE FLAG (ACTSTR=1 BYTE)
STR=0 IF SOFTWARE TIMER ROUTINE IS INRCTIVE

nCTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE

034537

0oo

ACTSTR:

.BYTE

:UNLOARD FLAG

O
(ULDFLG=8 BYTES)

,ULDF
LG=0 IF NO UNLORD
ND
DFLG>0 IF UNLORD COMMAND IN PROGRESS

:ULDFLG<O IF UNLORD COMMAND IN WRIT QUEUE
034540

000

034542
D34E43

0090
000

034541

000

ULDFLG:

.BYTE

.gYTE
.BYTE
.BYTE

0
0

;DRIVE O

;DRIVE 1

;DRIVE 2
;ORIVE 3

e Gin

544
5

MACY11l 30 (1046)

8838%%8 §

Tl o

LACNT:

s Pt Bt Pt Pt Pt

BYTE

0
0

;ORIVE

;iDRIVE S
;iDRIVE b
;DRIVE 7

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYT
.BYT
.BYT

O
O
O
O
O
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

O
1
2
3
4
S
&
7

; SAVE REGISTERS FLAG (SA VEFG =1HORD

F? <0 IF SAVE THE RH70/RMO3 REGISTERS WHEN THE

,OPERR ION IS COMP ETED RS PER (DPB+1

;SAVEFG=0 IF SAVE THE RH70/RMO3 REGISTERS
; (DPB+14), AFTER AN ERROR.
034580

000000

SAVEFSG:

.WORD

AS PER

;SEEK FLAG (SEEKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK RODRESS ISN’T IN THE WINDOW
;FOR A DATA TRANSFER START
A SEARCH COMMAND

; SEEKFG<O IF DRTA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW

Bt Bt
B

10:06_

;LOOK AHEAD COUNT (LACNT=8 BYTES)
;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

bttt ORIV
PR RO RO BRI
LLLLEW
wWh—-0uw BURREOREBBYRRY Y DONOCNEWN-0

22-NoV-77

Jie

PAGE 153
S INGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

000
0

o S S S

——

R R 0D 0D 00 0D G0 00 €D €D €D D (D (D
R 83838&2882838

C’RHBBO RMO3-/2_PERF EXER
CZRMBB. P11
21-NOV-77 15:34

034862

1772777

THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
1727777
172772727
177777
177777
172777
177777
177777
177777

TIMER:

.uono

-1

;DRIVE O

HoRD
WORD

-1
-1

i DRIVE 3
;83%35 4

-1
-1

‘DRIVE
&
:DRIVE 7

"WORD

WORD

D
WORD

-1

;onxvs 1

;onva g

:DATA rnnusren UNDERWAY INDICATOR (DTUW=1 uono)
:DTUM<O IF NO onrn TRANSFER UNDERWA

:DTUW=+N (WHERE N=0 TO 7) IMPLIES oarn TRANSFER UNDERWAY ON DRIVE N

034604

172727727

DTUW:

.WORD

-1

RTTENTION BITS TRABLE

(ATABIT=8 BYTES)

THIS TABLE CONTAINS THE CORRESPONDING BIT TO EARCH DRIVES

iATTENTION BIT
034e06

00!

ATABIT:

.BYTE

;ORIVE O

SEG 01Sse

CZRMBBO_RMO3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

G2& B3t15
G
o3
8250 034615

8252
823
8255

8523

e
‘B 8§40
Mo
"BYTE
500
.BYT

059

oW
200
.

034616

MACY1l 30(1046)
22-NOV-77
10:06
PAGE 154
SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV §.1)-24-AUG-77

000003

gggg

iBav
iDRIVE4S
EEe
:
&
;

.FS
TO RU7Q“MASSEUS CONTROL
{CALLING IT FA
MX=1
MCPEMX:

.WORD

SEQ 0152

)

BUS PARITY ERRORSTM (MCPE) ALLOWED BEFORE

:STORAGE FOR RMADR(THE FIRST ADDRESS (776700)
OF THE RH70/RM03)
:RMVEC (THE VECTOR

SS (254)), AND RMVEC+2 (THE BR LEVEL (5)).

8260

8261 034622 000254 000240
5&3“:5

03420

176700

RMADR:

.WORD

8265

034626

000004

MXLACT:

8568 034630 001000

MXDL TA:

8271
8278

034632

000200

MNDLTA: .WORD
2%6M.
“MAXIMUM SEARCH FOR 1,0 WINDOW IS 5 SECTORS

8274

034634

00000

MXWNDW:

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046

;DEFINITIONS OF THE RH?0/RMO3 ADDRESS INDEXES
RMCS1=0
;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00
RMNC.3
:
YORECTLTER CHOT & DRIVE REG)
RMBA=4
{ N
GISTER (NOT A DRIVE REG)
RMDA=6
{0EST
%
SS REGISTER (DRIVE REG. 0S)
RMCS2210
* CON
TRTUS REGISTER w2 (NOT A DRIVE REG)
=12
{ORIVE STATUS REGISTER (DRIVE REG O1)
RMER1=1Y
'E
GISTER 81 (DRIVE REG. 02)
RMAS=16
PATTENTI
Y PSEUDO RECISTER (DRIVE REG. O)
RMLA=20
LOOK
AHERD RECISTER (DRIVE REG. 07)
RMDB=22
'DATA
BUFFER
STER (NOT A DRIVE REG.)
RMMR 1 =04
PAINTAINAGILITY REGISTER (DRIVE REG. 03)
RMDT=26
:
GISTER (DRIVE REG. 06)
RMSN=30
! SERI
GISTER (DRIVE REG. 10)
RMOF =32
:OFF
TER (ORIVE REG. IL)
RMOC=
' DESTRED
R
S5 REGISTER (DRIVE REG. 12)
RMHR=
! DUMMY
S5
REGISTER (DRIVE REG. 13)
RMMR2=40
PAINTENANCE REGISTER 82
RMER2=42
{ERROR REGISTER 2 _(DRIVE REG. 1S)
RMEC 1 =44
'ECC POSITION REGISTER (DRIVE REG. 16)
RMEC2:46
'ECC PATTERN REGISTER (DRIVE REG. 17)

8266

829

8276
307€
3579
8280
281
32
8283
8284
8285
8286
8087
8288
8289
8290
8291
8292
8093
8294
8295
8296
8237
98
8299

RMVEC: .WORD esw,ggaa.
;MAXIMUM NUMBER OF LOOK AMEADS ALLOWED IS 4 (MXLACT=1 WORD)
"

MAXIMUM DELTA DELAY IS B SECTORS (MXDLTA=1 WORD)

sMINIMUM DELTR
.WORD

o8 X6,

DELAY 1S 2 SECTORS (MNDLTA=1 WORD)
(MXWNDW=1 WORD)

;RH70/RMO3 DRIVER INITIALIZATION CODE

SRnBE P 2ROV S 1.0y

c
CZRMBB

8300

MOV

S%é

gg&a

830S

:CALL

gfigg?

8314

013

034644

77776

8316
& Oiar
3
331? % §5§§§4 83355
8319
!
8320 8%;8

aazém
8323
8324
8325
ugs;

g8:8329
83
8331

1
013713

8338
3339

774

1
ea-os
gg:“
8345
ag:;

e:a-o'ai

8350
8351
€
%'353
B35S

764

;98 1050611 034472
10
18

035020

TM
035040

035044
035046

2701
1366

1405
737

100

012637

uag
02

THIS

JSR

PC,RMINIT

RETURN

TERM r&m*cn RMO3

FOR
TING
R § ATE
FOR

INOTE:

DRIVES ARE

THE DRVSTA INDICATOR
EACH DRIVE.

INE CALLS DRVINT

177770
7776
1

042214

034812

;3335 n-; Pzgsem PROCESSOR STATUS

Aoy

o
.gz xr' gtné
R
xi'

T
EeT ABDRECS T0 BE CLEARED
'tn%? m&& T0 BEECL ARED
' RRE WE
DONE?
:BRANCH IF

MOV

BLO
MOV
MOV
CMP

BLOS
CLR

MOV
MOV

3s:

MOV
CLR
JSR

ys:
c§:

CLRB
INC

MOV

6S:

78:

8s:

177776

;ORIVE

RO -

8PS, -(SP)

MOV

000010

;

MOV

CLR

794 81
750
012764
756
760
0350S0

2s:

gg%gg

8332
8334
8335

3333

ROUTINE u; §

:AVAILABLE
:T0
THE

MOV

714

7
790

177776

1 1n9;99;

: THIS

RMINIT: SAVREG

8313 034640

e PONT am780k83 DRTVEACIREV &. 1)-24-AUG-77

INOTE:
THE °'P’ OR 'L’ CLOCK MUST BE STARTED
.

8310

815 034636 104412

Lle

I1C

MOV
L

7578

8<5%32.), 8PS

#0T
8-1, (R1)+
R}, R2

A+

DRvETAse
c n§
sISR,

(R3)+
uSama)

sBITOS,RMCS2(RY)’

§§

,DRVINT

DRVSTA(RL)
Rl
81C7,R1
3s
87,.R1
8PS

INT(R1)

JSR

PC,SET. IE

DEC

g's*r:a

BPL
MOV
n;gnzc
R

;gms

HE monpv 70 5

;IfRST RDDRESS
: INITIALIZE
: DONE?
:LOOP IF NO
:SET ALL DRIVES TO OFFLINE

;SETUP THE RH70/RMO3 VECTOR
;FIRST smsi OF RH70/RMO3
:MAS
NIT
;StART WITH DRIVE O
SINIT T
ogévs

:"DVA’

;se: T"?x

T OR PARITY ERROR

TATUS TO OFFLINE

GO T r?xr DRIVE
i MASK OU
BITS
iBR IF
S T0 GO

;gmm WITH
; ukim T
:WAITING

:BR

:SET

?
OR STATUS

TO SWITCH PORTS

INTERRUPT

g:tmmn

:CHECK NEXT DRIVE
iRESTORE THE PROCESSOR STATUS
;m:srong RO - RS
:BYE-BY

(SP)+,asPS

INITILIZATION ROUTINE

DRI

FOR DR

NOT WAITING

;

sngyc»:o PORTS ?

;GO %o THE NEXT DRIVE

CZRMBBO

RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

MACY11 30¢ 104%) 22-NOV-77 _10: %
SINGLE/DURL PORT

§§§§
§

3
DRVINT:

010546

1 B) 2 4e %‘Ei?
m 000000 i
83%

:;g

0116
8379 83?153
8353
8381

0351

B!
0351
0351
§ 1144
1§
8384

8389
83?

4 010000 000010

000000 18:¢
034502

{
1%

034502

ggg; @

034502

58 B

8400 oaseg

Egé §g~o

8404

w
s

8413
8411

;DRVSTA IS SET TO THE m COND

MOV

mmw?lo:l

MOV

RS, -(SP)

JSR

OF 'RM70/RMO3 (RMCSL)
lm}aus mnss

I
3&:
?%“5*?""
TirE
1
icAToR
eilméfiém §‘£DR gg:a COMMAND (8 SEIZE DRIVE)
ogx la.mcsamnmx T

IVE?

5(: SET.IE

sumcour A “TRE"

gg.v

xg \r’gr
AVAI nau:

e &3
8'!93
881 a(nn
1.mcsxm~n'@}
i ?%Lk INE

fpr
oo
oy
;ssnoa RETURN RDDRESS
MOV
(SP)+,RS
:PUT
DRIVE T
%N RS
ATOR
lm
g'oa
;SET
TYP(R1)
84
MOVB
T ”?
;gne*s
CMP 50823.5
BEQ
iBR I
§
8s

genz
MOVB
CMP
ging
ggva

024, RS
i r'&s RMO3 ?
85i DRVTYP(R1)
5 P T
i;SET m‘%‘wxcmon
,RS
PO‘T 3302 ?
3’ 025, RS
g;x.onvrvp(m) : x} . mica*&a TO 'OTHER’

n3v
JSR

RO, WRT.RM

:SET FMT22=1
.

RO,RD.RM

; READ, RMDS

(SP)+,RS

;AND SAVE IT _IN RS

N
R
gncsx
9sn
aes
MOV

00C016

1
XIST AND IF

1o
E?mg
ON T"€ !g
INGVo BRE
ON oL fi%otn:~'§
THEYR A= TSt
15&: AM0%50

m;or

33%

035264

PAGE ‘Sfi
DRIVER (REV S.1)-24-AUG-77

; THIS ROUTINE DETERMINES xr A oaxv:

8356

Mle

BPL
MOVE

oamg.-(sm

S e
: %

“i
:BRANCH IF ATA=0
ATABIT(R1),RMAS(RY);CLEAR ATTENTION SIT

SEGQ 0158

CoRmBE
P
c

8 Rov=5 15 34

RMO3/2 PERF EXER

15
1

D3S

041534
177777

g:
R

167077
000001

034472

060000
177777

034564
034512

034472

8436

aws 035364
84y
8333;2
D
BYMS 03540M
e«;
-oos
844
9l
8448
414
8449
“é?.
8450
4
8451
426
gy‘g
:30

R
(Hi
450

8320
a«é

sé

452

Na%a,fi

g%:

8465

0355

B4ee
8467

gum
1 73;
1127
104412

6S:
78:

10;

JSR

RO, RD.RM

g‘

(SP)+

%0 Ui

;FIND OUT WHMY ATA=1

MOVB

#-1,DRVSTA(RL)

Bl
aus
MOVB

#1C<BIT12!'81T08!BIT07!BI gb ]5
6$
;ISET H xvs
I ngt.
okbonvsm(m)
; Atus

ASL
m

Rl
;cmfi xnog::c TO ADDRESS WORDS
nmx , TIMER(R1) nég onE Sx C TIMER
#-1,DPINT(R1)
;SET PORT INITIALIZE INIDICATOR

TST

MOVB

(RO)+

; xtruwsart INDICATOR

!chngl. DPR, DRY, AND WV
DRY, ineOR VV IS CLEAR
71
;XTOVE HE
n:”fum

;EXIT

035506
03SS10

177776
33383“
1

:
:
:

PNTADR
RE TURN
nsrunué

JSR

RMO3:

MOV
]
-(SP)
MOV
RMVEL+2 a8PS
MOVB
#1,ACTORY
SAVREG
MOV
(RO),R2
CLR
xgéné)
MOVB
(R2) Rfiu
MOV
RMADR
1ST8
DRVSTA(RL)
BGT
18
1578
DFLG(R1)

:
177776

034536

000016
6“ 1
3704 ggxseo
761
472
14
&irg 034540

g 1

8455
e-osg
g45

846

ys:

-?7

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST
:CALL

437
awgg
84
By

ausg

RTS

3%
g%

g4t

30(1046)

RMER1

Nle

A
oURE PORT RH7O RMG3 DRIVEA 57(REV S.1)-24-AUG-77

MACY:il

104
105761

034512

035050
034472

761 034522
0 g; 000010

18:

1031

042656

122762

001003
112761

000002

177777

034540

INT(R1)

:C
THE
DRIVER
:
SS ormgsxmfn OF DRIVES PARAMETER BLOCK
i RETURN
F
;s FULL

IRET

ST IS IN QUEUE OR THERE

:
THE CALLING STATUS
iDON'T
Ol
RMO3 INTERRUPTS
:SET =
DRIVER® FLAG
: SAVE
; xcg THE
;
PARAMETER BLOCK POINTER
;c&s
THE STATUS/ERROR INDICATOR
:PICKUP T
R
;gn
S
RMCS1
;
K DR v& TATUS
:
H
:
D
N QUEUE?

:TRYING TO INIT THE DRIVE

BNE
JSR
B8R

Ss
RO, DRVINT
h

;
:
:

?fia
BNE
MOV

gpaoscnn
3
R1,RMCS2(RY)

;§§r§r
gnc PORT REQUEST FOR THE DRIVE ?
:
r' Q
5?5#‘?’ THE DRIVE

71578

ggn

000103

RO, 98RMO3

CMPB

BNE
MOVB

E’svsmum

gg,onvous

o§oa.e(ae)

2
#-1,ULDFLG(R1)

F YES
NIT. THE DRIVE
TURN

;15 ong:rsmms ONLINE?

‘oueue"ég Q&wtl. ST IN QUEUE
;IS THIS

REQ. FOR AN UNLORD?

IBR IF NO
;SET THE "UNLDAD IN QUEUE" FLAG
-

o Vo

RARRAARAA

DONCNEWN-O

SRERnaRE2ss%§§§%§§§3§3§%§§§§§§%5&%”3322

PTTos/aaT§§Sv§¥;Rxs:au

Bl3

PyL S

034462

L 0URE PORT RH7OVRMG3 DRIVER(REV §.1)-24-AUG-77

—e G

2s:

1578

gsvncrcnxx

38:

MOV

SSITIS!BITI3, 16(RE) iSET THE "UNLORD IN QUEUETM ERROR FLAG

036736

4s:

Isk

,C17

GO HANDLE THE PARITY ERROR

042656

5$:

, DRVQUE

s PUT nsog:grIN QUEUE

035656

120000

000016

GU0100

042214
034472

6S:

pogg oowois
100002 000016
110000

oPT

000016

7§:

9s:
108:

#B8IT06, (RY)

éaTHIS DRIVE ACTIVE?

ALLTHE OPTIMIZER

J
zg;a

,SET.1E
DRVSTACRL)

By,
§§$

g
ede)
2’1115:31101.15(:

LRe e o
PORT
DRIVE NONEXISTENT

WBITIS!BITIZ,
16(h

IVE 1S UNSAFE

MOy

(RO)+
108

RTS

SREG
5%
ACTORV
O

' XEF THE INTERRUPT
: E:S? DRIVE OFFLINE OR UNSAFE

:
:

£,T

32;
DRIVERS
FLAC
Wy Ve L,

‘RETURN TO CALLE

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE
;CALL

:
;

035656
0

104412

013

177776

035672 10503; 034522
4

035676

146137

034606

0047

042732

795

10164

12764

Y46

035736

761

000111

OPT:

034534

SAVREG

000000

,R1

CLRB

2'23 -(SP)

JSR

15T

BEQ
MOV

MOV

7R1,RMCS2(RY)

oxl# RMCS1(RY)

108:

#0R
PC,OP

MOV

BICB

000000

034472

MOV
JSR

BGT

og§7u

12762

04275M

JSR

140090

000016

MOV

03578¢
03S764

012762
00447

11000C

000016

MOV
BR

,GETREQ

#8IT11,RMCSL (RY)

i SR

PROC

Ln seacn FLAG
ns§sr TAEL§onr
anc Y

TRBET( x),sncnuf

1STB

QS(R1)

;oa;xs
uunasn T0 Rl
;
COMMAND

VSTA(R1)

iGET

PO nrsn

I:LORD
NO-- THE onxv:
Hr
:CLEAR r

QUEST

oueuev

SS EEEEEER

;70 PRO

;;g vsflgut
;

opous

(IS T USE A

! NO--REMOVE REQUEST FROM QUEUE

*s-gxrxu 1s(ka)

§sr OFFLINE STATUS/ERROR INDICATOR

sBITIS!BITI2, 15(&2) -SET uusnre STRTUS/ERROR INDICATOR
83
BRANGH TO EXIT

Op 0372 PERE EXER c.ay
8524

Cl3

MACYLL 3RLLRNE)
ouRE POKT Rur804RBa BRTGeA Trev 5. 1)-2v-auc-77

035766

18:

03s
035

i;
122762 000150 000002 '
002403

036012

005737 034562

83008 BBoddp %632
ot

% et

036114
036222

g5 é
8SYM
8545

g:g

3s:
4s:

177777 034522 S§:

§§

22 060000 034564

it
03555¢

&2
§§§
3
8557

%
Bs:

g'g’cxfl

%fh?fgfi’

X
BIT
8533
BLT

#BIT11, (RY)
aso.zme)

2&R
BGE

TST

gg‘

SEEKFG

DO IMPLIED sczxs'

§§.Lfl

;

85;3
03%28
79 oasies
Gl 01370:'43 938054
DU

B857c

036142

BS79

03e1E2

8577
8578

036146
036150

062704

815 24
012324
012346

000002

CIL:

??a&r A mrgE Rsnsrsn
;START A s:mcu

RTS

311 kgmosmu

g Egaw
“%ET
INDICATOR

eGP RNLE
MOV (A3 aePs
RELTohE
m&c“%*?a‘f‘u;’“‘"
RESREG
:RESTORE
R
gox

JgR

:ggVNgg,Rl

PC.EI"

114
7
gi%g
§i$§
Sgus2

;S
ugvza
I;O(:( 3'";9PARITY ERROR
’

ggoooo TIMER(R3) sk?r r18
Ti%

8570

§§‘\7

%39

8569

U
-s&mcu

Pg.cn
c,CI3

iCALL

;;

?“sn
?Rsn
o]

856;

8566
867

;?2 uz"gzwzsr FOR 1/0?

:%fiegg INITIATOR

;COMMAND INITIATOR

:
, o8Et“%RE

§§-°1"

8558
cg

BS&S

ksg m
53 THE STACK

;DRIVE NUMBER

ngxcxgmon CIY

1A RE srso BY DATA XFER
¥ggm%
4=NOT

JSR
nov

Rs
Tngug

ADD

oa RY

R°3
AaD

MOV
MOV
MOV

m
Rnésamun
4R
(R3)+, (R4)+
(R3)+ (RY)+
(R3)+.-(SP)

DATA

RE
T FROM "DRIVES WAIT" QUEUE
m%gfii“?msren
WAIT QUELE

%ét
8&
D u&XB COUNT

uono cou
LO BUFFER ADDRESS
'LOAD SECTOR AND TRACK

Sea oise

CZRMBBO RM0O3-/2 PERF EXER

CZRMBB.P11

8580
£581

21-NOV-77 15:34

MACY1l 30(1046)

22-NOV-77

JSR
Rngn

:LOAD "COMMAND+GOTM, “A178A16TM, AND “PSEL"

MOV
JMP

R1,DTUW
cI1s

:SET "DATA TRANSFER UNDERWAY"

MOV

v
MOV

8591
asgs

034604
036700

c13:

8599
596

000012
041710

8539
8600
8601

000010

8604
860S
8606

177740
000011 000001
041710

8609
8610

000131
041710

gig

034606

ggg

af,oaE
oG

Be1s

ggggeo

8615

10
000002
000131
000010

asx;
861
8618
8619
8620
8621
8622
8624
Boo4

8625
8626
8627

8628
8629
8630
8631
8632
8633
8634
BE3S

;
:

034534

30-4037 041710

001007
oxsqu 000012
000115

3%:

(036414
036420

004037
000022

041710

041534

RMDC
c17

MOVB
SUB
BGE

2(RY)

xgtne),-(sm
RO, WRT.RM

10(R2),R3
MXWNDW, R3
18
R3

mgé

:SELECT

DRI

:DESIRED CYLINDER ADDRESS

;PICKUP SECTOR ADDRESS
!BACKUP BY MAX. SEARCH FOR I/0 WINDOW

cga.

BIC
MOVB
gSR

R3,-lsP)

81277490, (SP)
11(R2),1(5P)
RO, WRT.RM

coname me ADJUSTED SECTOR WITH

MOV
JSR

0631 -(SP)
RO, WRT.RM

:START A SEARCH

g%sa

g}gsmnn,sncmr

MOV
MOVB
c
BNE
MOV

JSR

R1,RMES2(RY)
2(R2) . R3
#131,R3
18
10(R2),-(5)

RO, WRT.RM

iSELECT DRIVE
REQUESTED COMMAND
'PICKUP THE
115 IT A SEARCH COMMAND?
:BRANCH IF NO
:LOAD DESIRED TRACK & SECTOR

BR
g
CMPB
BNE
MOV

2s
#10S,R3
3
12(R2), - (SP)

;GO Lono CYL INDER
:1S ITA SEEK COMMAND
:BRANCH IF NO
:LORD DESIRED CYLINDER

cle
#115,R3
4§

:1S IT AN “OFFSET" COMMAND?
:BR _IF NO

RDD

MOV

RMDA

18:
2%:

%83
M
036736
404 000546
uos 632703
1013
41

MOV
JSR

000006

206403
122703 00010S

MOV

CIM:

ESS

2(R2),~(SP)

000002

CYLIWER

RO, WRt.RM

620

(R3)+ ~(SP)

cnu. THE Loaomnn:) ROUTINE
Sscx rg LOAD
E

JSR

041710
041710

RO, WRT.RM

gg}as

8597
EEEE]

PAGE 160

H&Vc
JSR

SCag

D13

SINGLE/DUAL PORT mm/nma DRIVER (REV S.1)-24-AUG-77

041710

10:06

JSR
RMDC
c17
BR
CMPB
BNE
JSR
RMOF

RMADR, RY

RO, WRT.RM

RO,RD.RM

Dgr ;xsmso BITS ,IF ANY
ms SIRED
LOAD DESIRED TRACK 8 SECTOR

;SET "SEARCH WARIT" KEY

;RMCS1 RDDRESS

: MERGE ms OFFSET VALUE INTO RMOF
‘BUT DON'T CHANGE THE UPPER

SEQG 0159

ZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77

15:34

MACYLi 30(10'48)

ggw;g
4
&un

000107
000117
1
000103
oox%s
112761
01
165051 034472
61 761
01

8652

036506

004037

8654

036514

8651

8653

8655
ass;
865
gggg
8660

4
h

833"
036462

S04

036512

27
1
2

153%

ggggoo

%
60
524
1014
&% %835
036736

10:06

ys:

034462
034540

BR
CMPB
BEQ
CMPB
BEQ
CHPB
MOVB
CLRB
MOVB

cle
ciw,na
cle
8117,R3
cxs
#103,R3
c3
8l onvncmu)
DRYSTA(RI)
81,ULDFLG(R1)

;GO smm THE COMMAND
55 IT A "RECALIBRATE" COMMAND?
RANCH IF YES
IT A nswm TO CENTER?
aamc
F YES
i1S IT nu “UNLOARDTM COMMAND?
:BRANCH IF NO
'SET THE DRIVE ncrxv: moxcmon
:PUT DRIVE STATUS TO OFFLINE
:SET "UNLORD IN Pnocazss* FLAG

RMCS1

CI?

5§:

041534

RTS
CMPB
BNE
538:
CI7

MOVB

R3.-(SP)

RO, WRT.RM

PC
#143,R3
63
RO, RD.RM

RO, WRt.RM

8665

B8R

12%

MOV
MOVB

6(R2),R3
10(R2),9%

esu;

036556

8671
B672

036576
036602

BIeTRe

65%3‘:

000141

6S:

&&Sg;

00001 1
0491534

8%:

86689 oassssaua 016203 000006
7%:
as“mE 036570 116237 000010 036606
8673
8674

036606
036610

8675
8676

036612
036614

012623
023705

036606

8678

036622

062737

000002

8681
wg

036636
-og

001405
mgg;

8686

036652

737

8689

036670

8677

8679
8680

036620

qg:

036736

001414

764
122703

86
4 So-o
041710
S TEs oo

118:

8690

8691

036672

03eE7E

73;
7

100002

004737

000207

042754

ooogoo
034560
042076

000016

11(R2) RS
RO, RD.RM

MOV

(SP)+, (R3)+
9§, RS’

RMCS1
cI17

125:

BR
CMPB

PC, POPQUE

BPL
138:

JSR

RTS

Eggxg:; ;& g{cagonsn
S OF WHERE
mer. THE INDEX FOR me FIRST REG.

8s
8145,R3

JSR

RO, WRT.RM
netm7 16(R2)
1as

PC,SVRH70

“HCI"

; ég nunl;csr REGISTERTM COMMAND?

12¢

128
R3, -(SP)

BIS
757

;COMBINE “FMT22", “ECI"

;LORD "FMT22", "ECI, huo/on "HCITM.

82,98

BEQ
MOV

JSR
Bgs:

;RETURN TO
R
FORMATTM COMMAND?
:BRANCH IF NO
'READ THE OFFSET REGISTER

:6:1,':3

MOVB
JSR

ADD

108:

3&225
4

gnspe

BEQ

036606

000145

8687
8688

:START THE *UNLORD"
:IS IT A “SET

1(R2), 1(SP)

gsa

000436

SEG 0160

(REV S.1)-24-AUG-77

;BYT
N LORDING THE
;Recisrs m°,,89,

JSR

000143

161

1(R2),(SP)
RO, WRY.RM

B6b2 036544 004037 041710
036554

PAGE

c17
MOVB
gagr

MOV

041710

8661 && 116266 000001 000001

Be6d 036588

ELl3

SINGLE/DUAL PORT RH70/RMO3 DRIVER

gg; 8§~SS
01
32333
g %S? 8901'510
8641
864
864
8644
8645
BE46
BEN7
8648
8649
8650

22-NOV-77

: INDEX OF LAST asg TO MOVE
‘READ
RH70/RMO3
REGISTER

:INDEX OF REG.

;GET T
ILAST

1GET oU

TO RERD

comsmg
OF RH70//RMO3 REG.
”

: INCRERSE T

xnosx BY 2

;LOOP--MORE TO READ
(IS IT R “SELECT DRIVETM COMMAND?

:BRANCH IF YES
:LOAD THE COMMAND
REHOVE REQ.

FROM QUEUE

;SET THE "DONETM BIT
:SAVE THE RH70/RMO3 REGISTERS”
annuc IF
NO

YES--GO SAVE THE REGISTERS

RETURN TO USER

CZRMBBO RM03/2 PERF EXER

CIRMBB.P11

21-NOV-77 15:34

MACY11l 30(1046)

8697
esg
86
8700
8701
8702
8703

036722
7
7
7
?

0367

032764

8704

036744

00S702

706

036746

001001

3708
8709

036752

012762

104000

01274
004037

00011l
041710

705

8707

8710
8711

036750

036760
036764

041710
761

000207

8712

oas;;g

000000

8714
8715

036774
037000

004
105061

8717
8718
8719
8720

037010
037014

105061
020237

037020

001005

8722

7026

012737

8713
8716

8721

8723

8724
8725

8726

8727
8728

8729
8730
8731

036

037004

037022

037034

837
7

037%
105061

005037
000207

633412
764

037046
037050

00S00!
005003

037056

001003

037064

001443

037052

037060

8734
8735

105761

010000

177777

010000

034532
034604

8737

037100

004737

042732

8739

"’”03

001413

037120

8738

037104

8740
8741

037:10
037116

8743

037126

8742
8744
8745
B74&
8747

037130
037136
037144

005702

032764
00I404

BEQ

2%:
:
2s:

F13
PAGE

162

SEQ 0l&

;
034604

000010

cis:
;

18:
:
228:

000010

012762

100002

00001&

012762

102000

O00001e6

012762
10S0E]l

177777
034462

034564

cIs
#81T12,RMCS2(RY)
;DRIVE NON-EXISTENT ?
cis
;BR IF YES

MOV
JSR

sBIT1 e;mx,xs(ke)
PC,S
0
:

MOV
JSR

Ccl7B
C

:ANYTHING IN QUEUE *

IF NOT

H IF QUEUE IS THERE

:OTHERWISE EXIT

:SET

:D0
A

JSR
CLRB

PC,EMPTYQ
DPRQS(R])

;EMPTY THE QUEUE
:CLEAR THE PORT REQUEST FLAG

CLRB
CHP
CMP
BNE

VACT(R1)
R2, TRNSWT
RI.DTUW
18

:DRIVE IS IDLE
:IF THIS DRIVE HAD AN I/0 REQUEST
:IF THIS DRIVE HAD AN I/0 REQUEST
:IN PROGRESS CLEAR ALL OF THE FLAGS

MOV

#-1,0TUW

cl8

RTS

gkon.cmn

TRNSWT
c

SAVREG
BIT

#BIT12,RMCS2(RY)’

CLR
CLR

R1
R3

BNE

1sT8
BEQ

BNE

"DRIVE

"PARITY” ERROR INDICATOR
& RHM70/RMO3 REGISTERS

s1l1,-(SP)
RO, WAT.RM

CLEAR"

:CLERR THE UNLORD IN GQUEUE FLAG

;SAVE RO - RS
;IS 'NED’ SET ?

;BR'IF YES

DRVACT(R1)
3
228

;DRIVE ACTIVE?
:BRANCH IF NO

:BRANCH IF IN ACTIVE

TSTB

DPRGS(R1)

:PORT REQUEST

MOV
CMP

TRNSWT, R2
R1,DTUN

iGET THE "TRANSFER WARIT" QUEUE
;ggo ruxtf DRIVE HAVE AN 170 IN PROGRESS?

JSR

PC,GETREQ

iGET THE DPB POINTER

:BR IF

BEQ

15T

BEQ

BIT
BEQ

MOV

38:
;
4s:

:LOAD THE COMMAND

BEQ

2%:

R3, -(SP)
RO, WRT.RM

BNE

CLR

18:

RTS

fioooo.nnznmn
:SET A ONE SECOND TIMER
81,DRVACT(RL) ;gsr
THE DRIVE ACTIVE
P
IRETURN TO THE USER

TST

CLRB

010000

000403

CI7:

RMCS1

034462

01
gsox

Egs‘g
ngva
RTS

MOV
JSR
RMCS1
cl?
gn
17
BNE

t17e:

0344
034532

O
037072
037076

Clb:

034540

034522

8736

000016

042636
034522

105761

8733

000010

c1s:

is:

034532

10:

CINGLE JOURC PORT RH7OVRMG3 DRIVERCIREV . 1)-24-AUG-77

§§§ 835“77821 853;2{ 060000 034564
XS
§§7é§
fig; 000001 034462
3636
?
?

22-NOV-77

MOV
JSR
MOV
CLRB

5§

:BRANCH IF
:BRANCH

:QUEUE

NOT

IF YES

ENTRY FOR DRIVE ?

NOT

#BIT12,RMCS2(R4Y)"
:*'NED’ SET
3s
:BR
IF NOT

#BITIS!BITOL,16(R2)

:SET 'DRIVE NON-EXISTENT'

: CONT ru,gs

INDICATOR

#BITIS!BITIO, 16(R2) ;SET "NON-CLEARABLE PARITYTM ERRCR INDICATOR
PC, SVRH70
; SAVE RH?0/RMO3 REGISTERS
s-1 TIMER(R3)
;STOP THE TIMER
DRVACT(R1)
:SET “DRIVE ACTIVE"TM TO IDLE

23R&28

VN3W\

Sgesatans 4Y

000010

5§:

;

000010

034472

034502
O4e2214

NN
n

300
037304
~,ixo

164

004037

080610

0000
W WL
N
N NN
£W
w
NNN
(=]

TRNSWT

B EMPTYG

DRVYSTA(R])

JSR
n;snsc
RTS

PC,SET.IE

CLRB

DRVTYP(R1)
PC

DRIVES
ER; UNDERWAY

:CLEAR THE 'TRANSFER WAIT' QUEUE

#81 705, RMCS2(RY) ' ;D0

CLRB

041534

0000e2C

JSR

RO, LA

RE TURN

MOV

MOV
BIC
CMP

034626

SBUS INIT.

NN
oR1ve"s aueue
Es& onxci ?8 3$er~c
;ckgnn THE DRIVE TYPE

INDICATOR

:SET
"IE” WITHOUT “TRETM
:
;ronz RO - RS
:RETURN

;onxv; NUMBER

:POINT

TO DPB

:GO CHECK THE WINDOW
;enggn RET!

:START A sfnacn

:START A DATA TRANSFER
RMADR , RY

:GET RMCS1'S RDDRESS

RO.RD.RM

‘READ DRIVE STATUS

R1,RMES2(RY)

:SELECT DRIVE

:ERROR RETURN ADDRESS

#4C020200, (SP) ;0N CYLINDER ?
8200, (SP)+
;PI1P=0,DRY=1"

BNE
INCB
CMPB

3$
INO
LACNT(R1)
;xncnsnsur THE LOOK AHEAD COUNT
LACNT(R1),MXLACT' ; EXCEED MAX?

MOVB

10(R2),R3

BGT

SWAB
ggg
17777¢

sDPB, R2

RETURN3

000010

000340
041534

SDRVNUM, R1

aggs

157577
000200

034550
034550

MOV

RET

LA:

e .gfigf’.' tAiwR88222888 00
8
#R3e i'g'i 2

S
&

;chsnn fik& OF THE REQUEST GUEUES

MOV

;
:

PC gLRous

MOV

;

_fifi__
NN

;BRANCH IF
INO DATA T

L]
N

1$
#-1,.0TUW

#1l7,R1

T FLAG

;55 THIS gflxeiig5§up ?oa A TRANSFER

:LOOK AHERD ROUTINE
;CALL

O
LV

BNE
MOV

CLR

X3
;
sér NO
#-1,0TUN
IRESET TEE ;nolcnron
TRNSWT
ICLEAR T
"“"SSER QUEUE
ULDFLG(RI1)
;CLEAR UNLORD FL
#BITI2,RMCS2(RY)"
:"NED’ SET ?
13
;
ér v£§
R1
:MOVE
TO
THE NEXT DRIVE
82, R3

JSR

7$:

8771

7
37

BNE
MOV
CLR
CLRB
BIT
BNE
IN
AD

n1.8§uu

;CLEAR PORT

SEQ Olee

DPRQS(R1)

BIC

034604

10:

CLRB

CMP

000002
177770
77777
4532

Gl3

P
63
(REV 5.1)-24-AUG-77
pied TN PORT nu76/9333 DE?SEA
-NOV-77

B3R

BR0000

LEE

00 €D €D €D Q0 00 €0 (D

SUNNSY

RMO3/2 PERF EXER
P11
21-NOV-77
15:34

c
c

MOV

2s
R3
gg

8340, I8PS

:BRANCH IF YES

:GET DESIRED SECTOR ADDRESS AND

IMULT. BY B4--ALIGN WITH
:LOOK AHEARD REGISTER
;PRIORITY LEVEL "7

éfifg

RO,RO.RM

!READ LOOK AHEAD REGISTER

“%
CHP
BEG

(SP),RMLA(RY)
78

;CORRECT LA NUMBER
Y

TST

(SP)+

:NG,CLEAR

STACK

CZRHBBOPTTO3/2 PERF EXER
CZRMBB
21-NOV-77 15:34

MACY11l

i
374946

834858

b(REV S.1)-24-AUG-77

78:

; CALCULATE THE DELTA

18:

034632
034550

2%:
3%:

037440
7942

4s:

036736

5§:

gUB
28‘
CHB

32?)0 R3
2 -54 ,R3
8
)

BLT
CHP
BGE
CLRB

3s
nnoLrn,na
3s
LACNT(R:)

B®

TST
ST

JSR

RTS

(RO)+
(RO)+

PC,C17

i;IF
CRECK
THE BELTA 10SbE
IT IS WITHIN THE
NDOW

HRECLOOK

AHEAD COGNT

:AND TAKE THE

1,0 EXIT

;ng:gsr THE RETURN ADDRESS

:PROCESS THE ERROR

;RETUSN

: INTERRUPT SERVICE ROUTINE

DONTNLEWNN—-0O

e Bt e e e e e

ss::;o

BB DD DD MDD

H13

22-NOv-77
10:06_
PAGE
SINGL E/DUAL PORT RH70/RMO3 DRIVE

30(1046)

000001

034536

ISR:

834e88

MOVB
SAVREG
MOV

037770

é;:
:

034536

RMADR , R4

; SET ”RCTIVE DRIVERTM FLAG

:§§ ggrn
rnausrER UNDERWAY"” INDICATOR

no¥

DTUW, R1

BR
JSR
SREG
CLRB

23
PC,SC

SflgkoazisaflL SgNDXYIONS

ACTDRV

CLES% “ACTIVE DRIVERTM FLAG

037514

#1,RCTDRV

Moo

EEEECTnsfispgnoflTfl TRANSFER UNDERWAY

034604

17727727

034564

034532

—

~N
o
et
P e N e

g@:

034462
17727727

W
N

: TRANSFER DONE ROUTINE

830235

CLRB
MOV
ASL
MOV

ASR
MOV

JSR

RMCS1

c1?

ROL

BMI

034560

52538

03seSe
Becs

037e32

000113

R1
TRNSHT R2

S
881707, 16(R2)
.
MOV
R1, nncéat
4)

000016

04153H

042076

DRVACT(R1)
8-1,DTUW
1
8-1,TIMER(R])

TST

BPL
Jsg

128
1T

RO.RD.R
(SP)+

SAVEFG

18
PC SVRH70

B‘c‘ HErhEq

;SET DRIVE ACTIVE

INDICATOR TO IDLE

:NO DATA TRANSFERS UNDERWAY
; CANCEL TIMEOUT

RANSPER WATT GUEUE CLEAR QUEUE
: eg"goue
.

’

;SELECT THE DRIVE

; TRANSFER ERROR(TRE=1)"?

ORVE
THE RH70/RMO3 REGISTERS?

!BRANCH IF NO

YES=-SAVE
THE RERITE CHECK TO BE PUT IN QUELE
.GeT pPB’ BOINER

;ENTRY FOR DRIVE ?

S§ oPT
58
3
THE RELERSE DRIVE COHHRNO IS FOkECD TO ENTER FOR DUAL PORT OPERATION

bg.

8113,

;RELERSE THE DRIVE

SEG Ole22

RMO3/2 PERF EXER
EoRmEE
P
8 RovESSR 15 3y
8860

8861

037636

037640

376
eesE
S
0376
8864 037656

000454

100100

7
8:2&35
7
2076
012714 04011l

MACY1l

3R30(104

000016

3%:

8865 037662 012714 000113
8858869
8868

8869
8870
8871
887
8873
8874
8875

037666

000002
000003
042656
000016

8878
8879

122762
001404
122762
p01027
004037
000424
00S062
037722 “%
037730 01
037736 ou,egg
03
1427

000010
000002

000032
000024

8881
:3882

037760
037766

1527
00020

000010

000002

8887

037774

001012

gggg

0002

000000

8876
8877
8880

037752

142762

000234
000012
000020

aeauim
eaasE
4 037770 116403 000016
8888

037776

004037

8891

040004

040020

8893

040010

100403

8835
8896
8897

14
2

8892

8894

040006

040012

104001

004737
%07
46

000024
000024

MWC.HK:
18:

000027
000034

000002
2s:

8113, (RY)

VE'S WAIT* QUEUE
:.stEaREné
HE RH o/nmg
REGISTERS
; ISSUE A
ASe T me DRIVE

CMPB
BEQ
CMPB
BNE
JSR
BR
CLR
MOVB
MOV
MOV
BICB

#2, SCODE (R2)
1
83, SCODE (R2)
RO, DRVQUE
16(R2)

;LAST opgnmxou WRITE DATA ?
:BR *r 1
:LAST OPERATION WRITE HERDER 3 DATA ?
;BR_IF NOT
:PUT THE
OPERATION IN THE QUEUE
:QUEUE
IS ruu.
:CLEAR "DONE’ xrx

BISB
RTS

810, SCOMND(R2)
PC

BNE

JSR

5’}851

ROLB

8907 g-“o%g 000207
8908
105761

RTS
7578

040056
(040060
040064
040070
040072
040076

8915

040102

SCH:

005726

001402
000137
105761
001402
000137
105761

003025

;CHANGE DRIVER CODE TO WRITE CHECK

:FINISH CHANGING CODE TO WRITE CHECK
TEXIT

;READ “RMASTM

‘BRANCH IF ANY 'ATA’ BITS SET

RO, RD.RM

:READ CONTROL AND STATUS REGISTER
;EXIT_IF FAIL TO RERD

(SP)+

.xs “l1E"=1?

BIT

BNE

8909
8910
8911
8912
8913
8914

820, SCOMND(R2)

SC3:

001373

040046

SSEC(R2) | SPREVA(R2)
82, SCODE
[ R2)
; CHANGE umE TO0 CHECK

serAmznnupr ENABLE
PROCESS ALL DRIVES THAT HAVE

040044

8306

;SAVE WRITE opsnmxou CODE
:SAVE CYLINDER
:SAVE SECTOR AND TRACK ADDRESSES

PC,SET.IE
PC
-(SP)

001005
005201

B930S

SRMCS1(R2),SPREVO(R2)
SCYL(R2), SPREVA+2(R2)

JSR
RTS
CLR

000001

106303

:CHECK FOR OTHER DR

18
23

ERROR

040036
040040
040042

TA_ERROR FLAG

1YES

8902
8903
8904

s:r

110316
012703
00S001
030316

PC,EMPTYQ
PC'
SVRH70
40111, (RY)

BMI

040024
040026
040032
040034

CHECK FOR OTHER DRIVES

JSR
JSR
MOV

8898
8899
8900
8901

8BIT15!'BITO6, xs(h

:SPECIAL CONDITION ROUTINE
SC:
MOVB
RMAS(RY) ,R3
g

042214

exs

BICB

041534

106126

10:
P
S
B2-NOV-77
PONT RH7BOkNE3
DRIVERCTREY
S.1)-24-AUG-77

MOV

ggwsm
037676
7700
377
037710
037714
037716

I13

SCS:

040764
034522

18:

040764
034472

2%:

NODRIVES T0 CHECK

; REP ORT
AN ILLEGAL INTERRUPT

MOVB
MOV
CLR

R3, (SP)
#1.R3
R1'

BNE
INC

SCS
RI

! YES--BRANCH
:MOVE TO THE NEXT DRIVE

SC3

:BRANCH IF MORE TO CHECK?

PC
DPINT(R1)

:RETURN TOUSE
;mnmu;mc THE DRIVE ?

ASLB

TST

034512

BEQ
JMP
IsTB
BEQ
JMP
IST8

BGT

R3, (SP)
R3

(SP)+

15
SC13
DPRQS(R1)
2%
SC13
DRVSTA(R])

c§

;AN
_

;ATA=1?

:CLEAN OFF THE STACK

‘BR IF NO
:PROCESS THE
DRIVE
:PORT neoussr OUTSTANDING ?
:BR IF NO
iSTART THE oursmnomc COMMAND
:CHECK THE DRIVE STATUS

:BRANCH IF ONLINE

SEG

016 "

CZRMBBO RM0O3/2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34
891
851

104
833110

gé

MACY11l 30(1046)
22-NOV-77
10:06 PAGE 166
SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

034540

891
8919
8320

048112
040116
040122

737
7
004737

042732
042076
040722

8922

ouoxgg

761

034472

8926

0O4014YN4

000137

040612
039454

3%:

8921

83929

0150
oxgz

3705

040162

ooxusr

105761

034462

5§:

8932
8933
8934

040170
Q40174

105761
001321

034512

6%:

8938

040202
040204
040212

100412
032737
00101l

8943
8944
8945
9999

040224
0226
040230
g:ggaa
g:

000000
040562
011605
104002
000701

040240
040242

4
040260

000677
006301
012761
ggsaox
737
010164

040274
040276
g:gggg

004037
000012
040562
géésos

8931 O04016M 004737 040722
8936

040176

105761

034472
020000

034456

;
78:
-

Equa Buégas 104005

8955

8956
8957
8958
8959

8360

gagggg

000137

177777

969

8970
8971

0330
040332
040334

040336
040342

SCh:

040612

126

000014
040562
012605

004737
012746

04207&
000111

JMP

A'DRIVE INIT (DRVINT)

DRIVE COME ONLINE?

PC,sC12

{YES -- chx¥9 RMER1 AND
: GO Pnoc£§s HE ERROR

;ggvé

EITHER
nnss,
RMER1, RMER2, AND RMMR2

iALSO DO A ?nvxnr
:TRYING TO
INIT THE DRIVE ?
;ga IF YES
?
CK ON MORE DRIVES

1STB
BNE

DPINT(R1)
SCY

BMI
BIT
BNE

7%
8BIT13, RMERRS+Y
83

iBR

(SP),RS
2
ScY

:REGISTER INDEX
:PARITY EXIT ADDRESS
:PICKUP (RMAS) BEFORE THE ERROR CALL
‘REPORT THE
UNEXPECTED ATTENTION
:GO CHECK
FOR MORE ATA'S

BR
ASL
MOV
ASR
JSR
MOV

5CY
RI
8-1,TIMER(R1)
R1
PC,GETREQ
RI RMCS2(RY)

:CHECK FOR M
IVES
,s;vup TO ADDRESS WORDS
:STOP THE rxngg
.nssrons T
xv; AD
IGET T
POINTER FROM THE QUEUE
:SELECT
DRIVE

JSR
RMDS
SC8
MOV

RO,RD.RM

‘READ THE RMO3'S STATUS REG.

(SP) RS

;AND PUT IT IN RS

DRVACT(RL)
SC11

CheCk
STATE WITH ORDER
:BR
IF DRIVE'S
on13§ ACTIVE

RO, RD.RM

;READ ERROR REGISTER #1

:83

RMCS1
SC8
MOV
ERROR

ERROR

fele
BGT
18:

:DID

;onxv; ACTIVE WITH COMMAND OR ERROR RECOVERY ?

JSR

ROL

000016

{ALSO

DRVACT(R1)
SCh

TST8

:GET DPB POINTER
iSAVE
THE
RH70/RMO3 REGISTERS
:
, RMER1,
RMER2, AND RMMR2

SC11

RMERRS+2, RS
SCEA

BNE

;UNLOAD IN PR
;gnhucn
fr n09: . 557

MBS THERE AN ERROR?
e
e
:NO ERROR

MOV
ER

JMP

041534

59&5 545555 56u037 041534
8967

034564

042732
000010

332%
108761 D3wue2
8963 833385
04031 é§§;37
aesg O40314
qgg 100210

DRVSTA(RL)

7578

o40214 012039 000111
8941 040220
041710

8949
8950
8951
8952
8953
8954

1STB

PC, GETREQ
PC . SVRH70
PC,SC12

BT
SBITI4 RMERRS
I

8930

8335

35DFLG(R1)

JSR
JSR
JSR

8953 040139 033757 OMO00D 03W4S2
P el S
8927
8928

1STB
BLE

gés

RMER1
SC8
MOV

JSR
MOV

DRVSTA(RL)

:{i?'°f§$§
RO, WRT.
S

scll

(Sp)é

:CHECK ON DRIVE'S STATUS
iBR
;

IF UNSAFE
SS PLUG CHANGED ?
IF
YES

;DREEQSELCES"QND
EuaI¥E $HE COMMAND INTO RMCS1

; REPORT THE

PC, SVRH?0
s1l1,-(sP)

SS PLUG CHANGE

: PROCESS THE SEARCH

:WAS THERE AN ERROR?

gg;fxsesxroreaxrba,1s(na)
:
(SP)+ RS

SEQ 0165

: INFORM USER OF ERRGR RECOVER COMPLETION

;AND SAVE IT

IN RS

:SAVE RH70/RMO3 REGISTERS
:1SSUE A DRIVE CLERR

CZRMBBO RMO3-/2 PERF E XER
CZRMBB.P11
21-NOV-77 15:34
8972

004037

ag&
wo
§§s

;WRS

18:

gggs

RO, RD.RM

;READ DRIVE STATUS REG.

SC8
MOV

(SP) RS

:SAVE RMDS IN RS

JSR
g%s

8-1,DRVSTA(R1) ;DRIVE IS UNSAFE
PC, SVRH70
SAVE RH70/RMO3 REGISTE
gg T15'BIT12, 16(R2)
; INFORM USER OF UNSAFE ERROR

BIT

5gxrxa.ns

000016

MOVB

034472

034462
034472

2s:

E” CONDITION =17

‘BB IF

NO--UNSAFE CLEARED

;;go%; ::é ”

ai.bnvsrn(nx)

034564

Eg:

3?0000 ,TIMER(R1)

000016 3$:
SC7:

éx
L

¥ 1;é§!axro7-axrou 15(&;:
; INFORM USER OF ERROR
ogv (R1)
;DRIVE IS IDLE

000016 1§:

2s
SC8:
%

034540
034462

x§
;anzucfl”§9'v£s
%
BN
N G
gg;rxssaxto7991705.xs(na)
; INFORM USER OF ERROR

5053
ggzs

Ow ONCNLEWNN-0O

PR8889998888GEEEESSR88
9027

SEQ 01686

SCeA:

000016

036760
840040
34540

PAGE 167

RO, WRT.RM

gggsx

041834

177777

10:06

JSR

041710

100240

22-NOV-77

SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

8
Jo'v

73
74

MACY11l 30(1046)

-9

SCil:
18:

#-1,DRVACT(R1) ;ACTIVE
ERROR RECOVER
:ONLINE
;START 30 SECOND TIMER

SCY

2R
gg;a

P&’
BoPOLE
?%bFLG(Rl)

CLRB

MOVB
;g}g

3#n519(n1),nnn5(ku)
:CLEAR ATTENTION BIT
ggvsrntnxy
553 Tgs 9a§§s UNSAFE ?

JSR

RO, WRT.RM

3P
gg;a

4
DRVACT(R1)

MOV
MOV

RMCS1

JSR

DFLG(R1)

!113.-(§P)
8111’ -(5P)

PC, GETREQ
’

JSR

PC,CI7?

TEEB

?gDFLG(Rl)

Jgg

CLRB

R
NOVE FHE BUEUE
;ggLogofléq RMOGRESS OR QUEUE?
:CLEAR

UNLOAD FLRAG

;BS&énséLE
:DRIVE
%”c' omn
:WRITE

THE COMMAND INTO RPCSI

;nec{ TER INDEX

CHECK
FOR
MORECDRTVES
5525
vg IBLE?
:GET

DPB POCINTER

,PROC?SS THE PARITY ERROR
: CONTINUE

;PROCESS THE PARITY ERROR

284°178

Egsggxss ngog?sggnscrnaLs PARITY ERROR

ULDFLG(R1)

:CLEAR UNLOAD FLAG

DRVACT(R1)

Eagghgaoiénugnocnsss"7
:SET DRIVE IDLE

RMO3/2 PERF EXER

15:34

MACY1l

OM0630

034606

034534

95 ouzrsy

chu
fi

21-NOV-77

9031

136137

116164

333
3043
043
3044
3045

qou!
:9

164
igzv
16437

3=
9053

geres
006301

3054

3026
9057
9059053

3060

BITB

339015 2s:
534

012761

177777

52
@3&:
460

034564

sCl2:

;
:

SC13:

010164 000010
1
116164 833'5’0" 000016
ig: {§ 601%35
12
18:

101
9061 fiioeg

8?5‘3&5

mausa
1025 05761 034472
064
gxgi
&mw
39065 o-oio
ooslzoa

905!
“9 o-mJuD2 84759 042732
3068 8:10% gyg; 140000 000016
3069
3070
w?é

1054
831823

7
7:143

mqofl

04{074

xm'.\(-,1

907”

9078

041110

ggg?
9082

O41116

0e3

;

041066 032764 004000 000000 2%:

90 831?&
90;9 o411
9079

042076
042754

041112

12761 060000 034564
1

000402

004737

000137

035656

040040

22-NOV-77

10:

L13
P

32,,.8,‘_‘2,00& PORT nmfi/a%a on“?\‘fsfi (REV S.1)-24-AUG-77

1 177777 034564

?1
10164

3048
3049

38
O
2076
LML

30(1046)

e
JSR

novg
g&x{

MOV
ASR
Top
MoV
MOV
%3
MOV

§§veFG’

Save
Tie_megiSrenssuc mm/nnoa REG'S
: YES- 3&%
.

{nm),RMAS (RY)
T(R1),SRCHWT

'%’hNTION

Img.‘:m m.xso szex SET

8-1, TIMER(R1) 5iREST
Tcg OSK1
&cq"’sa(ntn
$2NECK FOR MORE DRIVES
:SELECT DRIVE
mfis
:
THE FOUR REGISTERS THAT
“ mn
RR f.",’
sWILL TELL US SOMETHING
Rl

m« .

RO,
18

ASLv

R1
8-1,TIMER(RL)

;5TOP THE

NT(R1)
%,mvxfir

ERR THE
INIT xuoxcmon
Sé
n"n{
E
-z

:INIT. THE STATE OF THE DRIVE
;mTcs ERROR EXIT

1P
B¢ orr oF e STacK
;ggrus %oasss WORDS
TIME

Ao
vg
gg

RI.RMCS2(RY)
ISELECT THE
mhe;r?su nmsmq)
9%mremxon BIT
gm (R1)
n uf“”
DRIVE?

'r's: T8
BGT
523

DRVSTA(R1)
2$
Ra%

:
. ,
vsc"$
TART
ORDER
'gg“‘E'F
ENTRY FOR
THE DRIVE

J
ISR
gasn

,
SVRH70
PC. Emwo
gg' POPQUE

;SAVE' THE REGISTERS
{EMPTY THE REQUEST QUEUE
:REMOVE THE GUEUE

n“sn.

:SET THEN CALL OPT

5%38

JSR
BIS
BIT

JSR

PC,GETREQ
:GET DPB noonts
t
15- ITIM, 16(R2)
NFORM USER THAT DRIVE OFFLINE
8BIT11,RMCSI (RY)

860000, TIMER(R1)
Rl
38

PC,OPT

38:
IMP
sC4%
: /RMO3 TIMER ROUTINE
; CALL

£ :
:
nov$“
T FROM QUEUE

g:w(@

ooxuc
acs:mcn,opsmnon FOR

JSR
BR

MO
ASR

4§:

nmenmn.sncnur

:DVA SET ?

:START THE PENDING REQUEST

:PROCESS OTHER DRIVES

%0 0
'

SRR SN R OB S A AR
s fpom B B

034536

000001

Bt Pt R

:
;
RPTMR:
034537

3
9]

9104

18:

ovizie

022701

000010

105037

034537

s
104
1

MOV
JSR
TST

BNE
LR

g
g

034564

B pat
P o Pon B

9100

M13
P

SINGL:S/M PORT mfizn%:c mgv:E& (REV 5.1)-24-AUG-77

857

22-NOV-

3s:

ys:

STIME,-(SP)
PC,RPIMR
ronv

»
#1,ACTSTR

TST

£lSREG
CLRB

n?v

MER(R3)
SP),TIMER(R3)
PC, STO

Bhars

;ELASPED TIME IN MILLISECONDS ON THE STACK
:CALL RMO3 TIME ROUTINE
p
8 ACTSTR"

;

EXIT

3“‘51EN TH.&IVE o
THE T}ltfl RUNNING?

%&NO. SOF THARE - T1ME
ALL

TWARE TIPEWT ROUTI?(

ez-nov-% 15: 34

CZRMBB.P11

MACYLl 30(1046)

goen

CZRMBBO RMO3-/2 PERF EXER

nov:

O NEXT DRIVE

15"

.our OF?axvss’

(gmo,(sm

%{% THE STACK

ACTSTR

s
RO- RS
RO ACTIVE ;ormme TIMEOUT ROUTINE FLAG

gi%

; SOFTWARE TIMEOUT ROUTINE

9109

INOTE: n&s ROUTE& MUST BE ENTERED AT PRIORITY &

gflo

;

9ué

iCALL: STO

9113

;

9}{5

;

9114

041214
1
1
i

91§
fixgg
9]
9125

9126
31

Ei?

91§

010246
183:2
1
1370:'0

041240
1242

041522
{
4

{

105761

{

1} g

STO:
03%28

monulgsq
034512

°8§9 1 034s22

83:235

giaa
{304 0s27
9139 8:1312 0047

101000732
042076

91? gxgn; %5?7 ggsaa

TURN

MOV

MOV
MOV
MOV
nox

?gn

;DRIVE NUMBER

R1,~-(SP)

;SAVE Rl

R2.-(SP)
na.-(g)
R4’ -(5P)
gnhontmm)

: CALL

;
R2
;
R3
:
RY
iGET ggoo;&ssmor “RMCS1*

“DRIVE s*n US REG"

<§m+

‘63 'pRY":l’

TSTB

oo;xrmnn

;mvxgc TO INTIALIZE THE DRIVE ?

neovE
crev

?lR1,DTUNT,R2

ST0S

5709
7sT8

STOl1:

SDRVNUM, R1

PC,STO

n&:no 35

RMDS

;

MOV

3119 O41212 010146

9118
9]
91
3i 1

GREATER

BMI

ste

?ng
:

é‘?fl
s

sYo2

7355(«1)

é’oq

iBR

;Sfir§;

?nc PORT REQUEST FOR THE DRIVE ?

'chx F fimsr:n
WAIT QUEUE
UNDERWAY ON THIS DRIVE?

W Gonvfiaomen DRIVES

081%7?59709 15(&2)
LAGS
PC,SVSH;O
snvtss:-uro"snoa
nscxsmas

N13

U
T
9140

91y

91%
S

gtzg

1
i

1
034604
8392&
034s12
03452
:
”
535 - 12

ii"s i{

3{3
3138

i 9

31
TR
9154

915;

9185

TM R0
B
s el
e 0111

761

915

iuw

177777

3}20

{:1

037036

gigg

6-42732

140000

gi;é

f:n

83"?522

9174
9175

12&2
1

1407
2

9]
91;3
9]

151
041522
g:xsau

7
81228-0
12603

917,

91;;

1
i

1500

1215

1578

(R1)

;

o;“nnsmna)

BNE

BEQ

:GC

B
JSR

820
gs
MOV

STO8:
ST09:

18] 41250 o15e85
gig o-uggg 000207

g?
8-l nnzmaa)

THE

TIMER

HANDLE THE PARITY ERROR
T

NITIALIZE INDICATOR

RIS
ADDRESS

: nrom
A .
THE USER DRIVE NOT AVAILABLE
‘g}

BEQ
MOV

ST09
38":13'8"2 mné)

JSR
MOV
MOV

PC
70
(SP)+,RY
(5P)+.R3

Hov
RTS

nzo#:sr PENDING ?

§%e 1S!BITINY, 16(R2)

Eng%

JSR

;

PVlighe "0

PC, &*&

%59

1ST

gigg

709

gflsn

000016

STOS:

177777 034564 ST07:
00004
76

BRe.
eSTB

ou ron xs DRIVE UP ?
T ; iINTIAL
v!zztfiag: "
:
1w§
r
IVE ?
{08
1
RESPONSE | 10 REQUEST
:ST
INI }a&
r? Ngaxv: *

'?.2"

BB o T

é:saas

' ° Rmf&s

n; IT(RRI),RS
T?rmnn
(R1)
970
BNNT(R1)

18:

T06:

g8
B OB7
9165 331-«02
3ie
3{63
91%

034564

u (RY),RS ;;

;

;
:

sT02 E gv

034522

MASS BUS

tr1)

%orufwnu
-1, DTUM

RY
axcrs
gsfia

ST03:

mmsztm) "NT"T

g YQ

(2pre RS
:

5 Poa

.01.:

ouss ST INDICATOR

ts)a DRIVE ?

NONE
NFORM USER OF PORT REQUEST ERROR

THE

UE FOR THE DRIVE

; v;
n:
GISTERS
: 3
IREST
na

i RESTORE R
25?

;ROUTINE TO RERD A RH70/RMOs REGISTER

9186
3188
gi%

1CALL

9187

:
:

gigé

INDEX
ERRADR

9193

041534

013737

034616

041676

9195

O41E44

013737

034620

041560

9194 041842 gus%

JSR

RO, RD.RM

RETURN

RD.RM:

;

i
g
:
%x

nsc&:;rso

ss--mocsss ERROR STARTING

:comsu 3 or“ REEG. IS ON THE STACK

MOV

MCPEMX . RD.RM2

;MAX. RETRYS aLLoueo

MOV

RMADR, RD. ADR

:FORM THE o:sxnso noonsss

MOV

(SP),-lSP)

:SAVE RO FOR RETU

sea oies

OO0

72 PERF EXER

———

DD DO

PL o enOvrY 18: 34
041560

i 4

;

% 4

020000

1
8:{
o-o{“

041

6%3
716
8:15%
‘7’25
041646
15
g:igfi
716
o416
ég

04 166M
Eig;g

MACYL1l

30(1046)

22-NOV-?7

PAGE

ADD

RD.RM1: MOV

(RO)+,RD.ADR

?Scfi (PC)+

;

. xna:(sg

ERROR

000002 sg:mo; nov E
17
18:

040000
2s:
034620 041672

041672

g}
ax;
?57
BR
1S
MOV

INC
nogg

m}sm

o4l

011

RD.RM3: MOV

041706

000200

RD.RMY:

no.

mx?fi 83003

DEC

S~ ét:r:”c .

012616

SEG 0170

MOV
RTS

NDEX

WRD,2(SP)
um xr 7
1T12.3(SP)+ '

034604
040000

171

BN E JDURE PORT RH70UANG3 DRIVER (PEV §.1)-24-AUG-77

041704

BlY4

1G:

( m(mn

"fizcg:ré
OF THE RMO3

oil

:noJ T on

¥
TUW
sBITIY, (SP)

.
%m mmaren UNDERWAY ?
ag--gr'
ns' ":zu

RD.RM3

' }w (SP)
RMADR, 3§

ggx'qwg

(PC)+

WRIT

“% BYTE OF RMCSI

'x‘cgsgggoMAX. RETRYS

(RO)

rnm. ERROR EXIT

;REPORT "MCPE” ERROR

%?.Pu

%Em ?s wmcxAND

35
((JSP)#,O(PC)#

.RM]

gngmc A “1" TO “TRE
HIGH BYTE

H_IF NO

, RO

(smi,(sm

0 "
? R

;ROUTINE TO WRITE A REGISTER

Ecau.
:

:
;
;

041710

013737

0417

041716

034616

042062

WRT.RM:

MOV

MCPEMX, WRT.R2

;MAX

(spu,:‘ap)

{ADJUST

fiso.um.uo

'?gsr€ G r

mi;qag 1 27.1;? 000150 041776

gL P

ouxrsasu 042066

WRT.R3

041784
041786

037 041534

000316E
042716

177770

041776

onm ro
BE LOADED ON THE STACK
TINE o LOAD(WRITE) THE REG.

2(SP),WRT. WD

000002

INDE X
ERRADR
RE TURN

DATA, -(SP)
RO, WRT.RM

MOV

8:{744

016637

MO
JSR

MOV

gggfl

RO,RD.RM

SWAB

(SP)

BIC

: SAVE

RETRYS ALLOWED

uoaoro WRITE

"‘o?

HE--conaxNgE
ms&m;eflmr‘g:% %o"

:THE RH70/RMO3

#1C7, (SP)

onmIE“?SSE-}'!S’; —

8BIT12,3(SP)+

KO, RD-RM

F
O

HECK THE
'

8&3‘ PS&"F«'Ex OR 0N WRITE

881703, (5P)+

RROR

F_"PRAR=0"

i el

§§

£
375 Ous0es 000303

18:

ORRA

042050

e
:@5’ oS P
2

—

gTHE DISK REG.

THE

e s iLOAD
Stre
Pe. o
-

§§§§§§3

(SPN URT lOfl

@SD

77776
1534

—

000010

« 0
Do
w

7¢6

<o—

041534

292

HRT%

—

042000

0'02015 83718
032736 B30Bi0
010000

034620

0QM1777

[

9259

112637

RDDRESS ON ERROR

ITY ON WRITE ERROR

9274 (042064 002343

WRT.R2: o
JHORD
BGE

3i
WRT.R1

mv
RY AGAT __gmuor FINISHED

377

URT.RY: TST

,‘,80”

no.rusr FOR ERROR FREE EXIT

Que07e

Seq 171

MO R ARUR ) ouRE PR Rurb kR8s BRYDEA" Trev 5. 1)-24-auc-77

i
3827

091762

2830

9252

Cl4

$35EdSlutst]

8 oV T s e

€

RMO3/2_PERF
E

WRT.R3:

00S720

MOV

(RQ3
R0

gm{
BRRSE coun
¢
TRKE

TH:

Y8y ON WAITETM

ERROR EXIT

§§§

;ROUTINE TO SAVE THE RH70/RP04/S/RMO3 REGISTERS RS PER DPB+14

3585

%g Q45100 boe7es
Rl
9291' Egiifl h‘%&g oooois

.
i BUEE ENTRY FOR THE DRIVE *
£ R
RPN
,'203" 55&ékncsam'n 'EEE#ECT oggsm megs POINTER

geu

338 5152 B oveise

JSR

SDPBNUM, R2

PC,SVRH?0

;SAVE THE DRIVES REG’S

i &XT
iR DOR0905ER

3294 aaxi gfig 042156 000022 1S:

éwsp

REEL
L e

ADD
BR

?ncasnsn?
THE REGISTER INDEX
'CONTINUE READING THE REGISTERS

g owgwo

;

000200 000010

gg SRMDB

;DPB POINTER TG R2

,g ;:o p: BUFFER REGISTER ?

asxmmnncsemw)' ’

EEE
o
@
g
Bee
g
e
e
2 B D e ooow w
B
P
SISE toons
3300
OuSi7q DES733 D000 042156
9307 042202 000781

82,38
1S

RMO3/2 PERF EXER

9308
9309
93{0

g{é

P11

042204
042210
ovaz12

Cal-NOV-7F 15:34
004737
10441
oooao

MACY11

036736

oio;%

9324

ssg

042236

112714

Q42242

032764

9329
9330

042256
Q42262

112664
012604

fi §§§§ %
333%

3333
93
9335
9336
9337

9338
9339

9340

qaqé

O42264

042266
QM2267
042270
042271
042272
Q42273
042274
042275

000207

000
000
000
000
000

9’:«3 3
'a:s~o~:.i3
9346
3:
9347
042302

042420

9349

042306

042460

93S]
gfi

042312
042314

042520
042540

3348

8350

042

042310

2360
2400

042440

042500

ggg

9358

Q42322

g:gags

933559 owggés
1

9362
83632

PC,C17

;PROCESS THE UNCORRECTABLE PARITY ERROR
{RESTORE RO- RS
: RETURN

MOV

SORVNUM, R1

;ORIVE NUMBER TO Rl

""“%csam,

P vE

ROV

000160
010000

000001

gxs

MOVB

000010

BIT
1%
23

og’grlu
(sm
(SP)

#BI1T06, (RY)

iSET

“1ETM

sét"4
&?'JE

(042324

042332
042334

2360

:manncsumn

N ED"=1?

2 B e ETACK

MOVB
MOV

(SP)+, r‘e(m’
(5P)+.RY

c EAR “TRE"
STORE RY

RTS

oueus COUNT
&CN
.BYTE
BYTE
‘BYT
BYT
‘BYT
‘BYT
‘BYT
BYT

RETURN TO CALLER

0O
O
0
0
0
0
0
0

;DRIVE O
‘DRIVE 1
‘DRIVE 2
,on VE 3
RIVE 4
on VE S
:DRIVE &
:DRIVE 7

QUEUE INPUT POINTERS
NPT: .WORD QDRVO
"WORD QDRVI
.WORD
QDRV2
.WORD

QDRV3

:DRIVE O
:DRIVE 1
;

:DRIVE

-WORD

QDRVH

:DRIVE 4

- WOR
WORD

RVE
QDRV?

‘DRIVE b
:DRIVE 7

- MWOR

2400

QOUTPT: .WORD

042440

WORD

042420

g:gso
042520
042840

ae ol s

;; JIJST
n: FOR
- RseBIT OF THE WORD READ

RVS

‘DRIVE S

:QGUEUE OUTPUT POINTERS

9359

JSR
RESREG
RTS

MOV
WAB

716
040000
16

9325

D14

:
JSR
PC,SET. {E
:
RETURN
SET. IE: 583
-(SP)

%31 gsg
§181$
850850
2
11446
ggsg

10:

;gggzxus TO SET THE INTERRUPT WITHOUT GETTING A “TRETM
;

Q42214

22-NOV-77

A
B ouRe BORT RH7BORNEa DRIVER TREV §.1)-24-AUG-77
5§:
6S:

3314

9315
%{3
9318

30(1046)

- WORD

WORD

WORD
WORD
WORD

333\/1

QORV2

QDRVS

QDRVE
QDRV?

:DRIVE O

‘DRIVE 1

:DRIVE 2

:DRIVE

‘DR

:DRIVE
b
‘DRIVE 7

%0 17e

22-NOV-77

10:06

ElY

PRAGE é?fl
(REV S.1)-24-AUG-77

SEQ 0172

SINGLE/DUAL PORT RH70/RMO3 DRIVE

QSTART:
QSTOP:

:ez

272222227

042360

.WORD
.
2

QDRVO
QDRV
vg

.WORD
.
)

QDRVY
QDRVS
oonvg

.WORD

QTERM

;

;ODRIVE O START ADDRESS
;ODRIVE O STOP flOORE?S & DRIVE 1 START ADDRESS

; STOP
S

; STOP
; STOP
; STOP

DRI

-=-START
DP e €
LA
--START DRIVE 4

Y4-~START DRIVE S
S--START DRIVE &
6--START DRIVE 7
; STOP
;STOP DRIVE 7
VE

[S
——y

QDRVO:
QDRV1:
QDRV2:
QDRV3:
QDRVY:
QDRVS:
QDRVG:
QDRV7:
QTERM=.

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKMW

10
10
10
10
10
10
10
10

;:ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

Sv—

; CALL
:

o SO
NWNWn
W

800

N
-

000

042606

CLRQUE:

042266

g58

FSIS
I IS
I

[l
e e S e e el oY oy ey 8
OONCTNEWN~-0O

9377

MACY11 30(10#2)

;DRIVE REQUEST QUEUES

aXBeanct

R R 3543R38ke83 btata

74
375
176

9369
3370
937
937
9373

22222992

2
3368

229999992
oo
R
8 41

364
9365

P
POREI LN

R
CZRMBBO RMO3-/2 PERF E
CZRMBB .P11
15:34
21-NOov-7

JSR

SAVREG

MOV

CLR
CLR
CLR
CLR
MOV

000010

042336

18:

MOV
MOV

2%:

MOV
MOV

000010

042336

PC, CLRQUE

8QCNT,R2
(R2)+
(R2)+
(R2)+
(R2)+
#8. ,R3

80StART, R1
(R1)+, (R2)+

DEC
BNE
MOV

gsc

RggREG

#8.

,R3

#QStART RI
(R1)+, (R2)+

; SAVE
; ZERO THE Q@
;ORIVES 0 8 1

;ORIVES 2 8 3
;DRIVES 4 3 S
;ORIVES 6 &8 7

;MOVE THE STARTING
;ADDRESS OF THE QUEUE INTO
; THE QUEUE INPUT POINTER

;MOVE THE STARTING ADDRESS
;OF THE QUEUE INTO_THE
;QUEUE OUTPUT POINTER
;RESTORE RO - RS

:EMPTY THE QUEUE SPECIFIED BY Rl
;CALL
:

MOV

DRVNUM, R1

;ORIVE NUMBER TO Rl

EMPTYQ:

2§Ea

2?~1(R1)

;CLEAR NUMBER OF

MOY

QINPT(R1),GOUTPT (R1)

;
042266

042276

042316

JSR

PC,EMPEYQ

;SET

OUTPUT

ITEMS IN QUEUE
QUEUE

POINTER=INPUT POINTER

C’RFBBO RMO3/2_PERF

CZRMBRB.P11

21-NOV-7; 1S5:34

MACY11 30(1

)

Ris

waa

;CALL
:

9428
3429
ag?

9434

:
:
:
Q42656

(042664

8:25;5

122761

000010

105261

042266

02blbl
001003

042276

042340

042336

042276

001421

042266

DRVGUE:

042706
Q42714

9440

042716

01616l

a:a

042730

000200

9441
9442

042724
042726

006201
005720

nOV
MOV
J

TURN1

—

2s:

RO, DRVQUE

CMPB

#10,QCNT(R1)

A
;m§s“u359mrsa BLOCK

;GO % REQUEST IN GUEUE
IRET
HERE
IF QUEUE ;s FULL
{RETURN HERE
IF REGUEST IS IN QUEUE
; 1S ouemé ?5,(’

BEQ

33\5
ADD

ne aommm)
hg R1)

MOV

osmmnn QINPTIR1)

RTS

CHP
BNE
18:

:833'”32' '

TURN2

INCB

33332 2675 o?sagi 042276
9437 332
&eo;u 000002 042276
9438
9439

175

:ROUTINE TO PUT A REQUEST IN QUEUE

ag
59

9433

PAGE

0’02/DUAL PORT RH /RH03 DRIVER (REV S.1)-24-AUG-77

38 BuEs BoeE

9432

_F14

22-NOv-77

ASR
15T

ocrmm)

QI
18

?a 5:

NCREMENT

E nsrunm

QUEUE

;PUT THIS REQUEST IN QUEUE
TE ?us
UE POINTER

mu) GSTOP(RL):TIME ro RESET THE POINTER
gmhc g

mon

;YES--RESET POINTER

; TAKE RETURN 2

'RETURN TO USER

g::g

:ROUTINE TO GET THE “DPB" ADDRESS OF NEXT REQUEST IN QUEUE

Y47

1CALL

3448
9449
9450

3..“?,5
Q42732
042735

9456

042742

457
Q4S8
3459

g:ééc

MOV
JSR
RETURN

SDRVNUM, R1
PC,GETREQ

GETREG:

CLR
7ST8

R2
QCNT(R1)

ASL

9453
Q4Sy

Q4S5

:
;
:
00S002
105761

Q42740

001404

2744
(042750
2752

017102
006201
000207

006301

042266

18:

042316

2s:

q4E3

:CALL

94£S

3:29

105361

042266

9469
9470

042760
042762

006301
017102

042316

9472

042772

062761

000002

9471

042766

005071

MOV
ASR
RTS

iR2=0 IF NO REGUEST IN QUEUE

xs THERE ANY REQUEST

NO---BRANCH

IN QUEUE?

JQOUTPT(R1),R2
PC

;chxup “DPE” POINTER FOR THIS DRIVE
:RETURN TO USER

SDRVNUM R1

;DRIVE NUMBER TO
R

:ROUTINE TO "POP” THE REQUEST FROM QUEUE

S4E4

042754

BEQ

‘DRIXE wn 10 R1
: GO
HE REQUEST
:R2="DPB" ADDRESS OF THE REQUEST

042316

9473 043000 02Blbl 042316 042340
9474
043006
001003
9475 043010 OlElEl 042336 042316

MOV

RETURN

POPQUE:

DECB

JSR

ASL
MOV

CLR

ADD

CMP
MOV
BNE

PC, POPQUE
ocmmn

RI
00UTPT(R1),R2

aaounmm)

UTPT(RL)

:CALL TO REMOVE REQUEST

:R2=ADDRESS OF DPB REMOVED
; DECREMENT QUEUE COUNT
;GET THE “DPB"” POINTER

: REMOV!
UPDATE

8 noonsss Fnon THE QUELUE

THE QUEUE POINTER

QOOTPY(RI).QSTOPMI) : TIME O ESET THE POINTER”?
18
RANCH TO EXIT
QSTART(R]), QOUTPf(Rl) ;YES--RESET THE POINTER

—

22
88
3o

2200029
o A

372 PERF Exgfi
.Pll
21-NOV=-77
15:34

006201
000207

9483

GlY

PRAGE &76
22-NOV-77
_10: 08
PORT RH70/RMO3 DRIVER
(REV S.1)-24-AUG-77

MACY11 30(1046)

SINGLE /DURC
18:

ASR

RTS

SRR

.SBTTL

DRATA,

;RETURN TO USER

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

CONTROL,

R AR R R AR RREREERES

& STATUS BLOCKS

JIERERRRRRERER R R R R R ER AR R R AR

R R R R RN R R R RN

R AR R R AR R R R R RRRRERRRRRRRER

;:BLOCK LOCATION EQUATE STATEMENTS
SFMT

SPSEL
SWROM
$BUF

=
=
-

SFMT+
§FMT+
SFMT+5

:PORT
: WORD
:BUFFER

SCYL B
SREG
=
$TATUS =

SFMT+13

FMT+11
SFMT+15

:REGISTER

KRR RARRRRRRRRRRARRRARRRLLLLLLLL
n
e e e e
T S @ ]
£e
wrn
DO NN LEW—-0OWw BIRRZER-BBBIRRLDN

491

$SEC
$TRK

=
=
-

sFMT, MCI ECI 082 OFFSET CODE

SFMT+]

FMT+7
MT+10

:OPERATION C

ngr 3 gns Al6, Al17
(2'S COMP)
ADDR OR REGISTER TARBLE POINTER

:SECTOR ADDRESS OR 1ST REG ADD R
:
K o?onss OF LAST REG ADOR

: CYL INDE noog
Tosac; (IF ERROR)
:STATUS aoao (SET BY DRIVER)

:DRIVE’'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES

SWRDL

SFMT+17

SWRDOL +6

§SSEC
SCODE

SPREVO

$PACK

ATTC

COUNT (NOT

2°'S COMP)

‘WRITE

DATA PACK INDICATOR

'SSE?
gé
P
NT

;PR?V OUS COMMAND SELECTION CODE

+10

soggnc =
§POSIT
=
STRANS =
READ
=
§T0TAL =
§SOFT
=
HARD
=
SK1
=
$MISPO =
§PASSC =
SFAIR
=

SWROL+16
mousg
WRDL +
:&a&+
+36
SWROL +40
SWRDL +42
SWRDL +44
SWRDL +46
SWRDL +50
SWRDL +52

ggasvn =

+2
+4

+12

FOR ElRRENT
OPERATION
SELECTION CODE

*PATTERN C%RE

I PREV ougfl

;s - TRACK, SECTOR, CYLINDER

:
OPERAT
COUN
;;: K COUNT
:TOTAL BITS XFERED COUNT (R & W)
:TOTAL
BITS READ co¥m
;Tomqr RR
(ALL TYPES) COUNT
:"SOFT* ERROR COUNT
: "HARD’ ERROR
;;3«1' OR °* ?CYL' ERROR _COUNT
:PROG DETEC ED MISPOSITIONING ERROR S COUNT
:PRSS COUNTER
:OPERATION QUEUE 'FAIRNESS'

; INDEX EQUATES TO THE NEXT OPERATION PARAMETERS

$NCODE

NTRK

SNPATC
g EC

000104

SNCYL
SNWRDOL
SNEXT

=
=
=
=
=

SWRDL +54

:NEXT OPERATION CODE

SNCODE +1
NCODE
+

:NEXT PATTERN
INEXT
SECTOR

NCODE
+4
NCODE +6
SNCODE+10

'NEXT CYLINDER
:NEXT BUFFER SIZE
:PARAMETER SELECTION INDICATOR

NCODE

TRACK

; INDEX EQUATES FOR MAXIMUM/ MINIMUM ADDRESSES

SEQ 017%

CZRMBBC RMO3-2 PERF EXER

21-NOV=77 15:34

CZRMBB.P11

000106

aB81

B2
9538

po0l1e22

9539
9540
9541
954
9S4
354y
9545
3C4E
3547
3548
9245
9SS0

H14

PRGE 177
22-NOv-77
10:06
CONTROL, 8 STATUS BLOCKS

30(1046)

DATA,

MAXCYL
MINCYL

SNCODE+12

SFIRST

MAXCYL+14

HERTRR

000116
000150

9537

MACY11l

;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE
000124

MAXCYL+16

$BOSEC

;ORIVE ID AREA INDEX EQURTE
SBDSEC+100

SDRVID

000224

;ORIVE ID

;RH11/RMO3 REGISTER EQURTES
000234

SRMCS1
SRMWC

]
246

o
Y2

9583
3554
3255

322t

888522

ISEQ
3Sk1]
35

000264

3566
95k7

000274
00027

&
£s

;RMO3 REGISTER STORAGE

cpest
83857
0003
000302

9€70
9571
Q€72

B4 guges o

; BLOCK FOR DRIVE O

DRIVED:

:SZIE

8.0

. WORD
.BLKB

. +SRMCS1-$ REG
SRMEC2-SREG

;BLOCK FOR DRIVE

9ce4
9SS

;BAD SECTOR STORAGE TABLE

0O4334e
043344

ODDBBé

0O43See
D002EE

000

DRIVEL:

;:DRIVE NUMBER

:BEIE

é.O

. WORD
.BLKB

. +SRMCS1-SREG
SRMEC2-SREG

; DRIVE NUMBER

SEG 017

¥
PRARRRRRRAR
£ &PRRRRPRRERRS
DD NN £ W OB *8***8%*
BIRR LD S8B8IRR L0028 §

FRR
&R

9622

PERF

EI-NOV-?; 15:34

MACY11l

30(1046)

DATA,

22-NOV-77

CONT OL,

IlY

OSL PAGE

& STATUS

BLOCKS

178

SEG 0177

;BLOCK FOR DRIVE 2
000

DRIVEZ:

00026k

gYTE

E.O

WORD
.BLKB

.+SRMCS1-SREG
$RMEC2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 3
0000
044372
000266

DRIVES:

000

gYTE
.WORD

.BLKB

g.D

;ORIVE NUMBER

.+SRMCS1-SREG

SRMEC2-SREG

;BLOCK FOR DRIVE 4

004
00000S
Q44676
0002686

000

DRIVEY:

gYTE
.WORD

.BLKB

2.0

;DRIVE NUMBER

.+SPMCS1-SREG

SRMEC2-SREG

;BLOCK FOR DRIVE S
00s
00000S
045202
000268

000

DRIVES:

.BYTE
.BLKW

§,0
S

.BLKB

SRMEC2-SREC

.WORD

; DRIVE NUMBER

.+SRMCS1-SREG

;BLOCK FOR DRIVE &
006
00000S
045506
000266

DRIVEG:

000

gYTE
.WORD

.BLKB

3628

g.O

; DRIVE NUMBER

.+SRMCS1-SREG

SRMEC2-SREG

;BLOCK FOR DRIVE 7
007
00000S

DRIVE?7:

000

Q46012
000266

gYTE
WORD
.BLKB

7,0

S
.+SRMCS1-SREG
$RMEC2-SREG

; GENERAL PURPOSE DPB - USED BY

000024

000000

17777¢

000000

o4e102

GENDPB:

GENREG:

.WORD

0,0,-2,CYLDER

.WORD

0,0,GENREG,O

.BLKW

; DRIVE NUMBER

'RERDHD’,

'RECALT",

'OFFSET’ ,3'RTNCTR’

:REGISTER STORRGE IF ERROR

CZRMBBO RMO3-2 PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY1l

J14

30(1046)
22-Nov-77
10:06 PAGE 179
DATA, CONTROL, 8 STATUS BLOCKS
PR

.SBTTL
PR

SEQ 0178

R R R

R RN RSN

R RN AR

RN AR RRRARES

R AR

AR AR

RN R RRARERER

ERROR MESSAGES
R

.NLIST

BEX

R RN

O4el1S2

o44l22

030067

030450

EML:

.ASCIZ

/RH70(11)

Quse2l

128

o4asie

0S0130

EM2:

.RSCIZ

/UNEXPECTED ATTENTION OCCURRED/

04e2s?

118

0s1S01

o41123

EM3:

.RSCIZ

/MASSBUS PARITY ERROR

(MCPE=1)/

04:31S

118

0S1501

o4ll1e3

EMY:

.RSCIZ

/MASSBUS PARITY ERROR

(PAR=1)/

o4e3S2

042101

0S1104

0S1S0S

EMS:

.RSCIZ

/ADDRESS PLUG CHANGE BIT SET/

046406

o44l22

030067

0304S0

EME:

.RSCIZ

/RH70(11)

O4E45SY

047128

047503

0Silee

EMLO:

.RASCIZ

/UNCORRECTARBLE MASSBUS PARITY ERROR/

046817

106

0s2101

046101

EM11:

.ASCIZ

/FATAL MASSBUS PARITY ERROR/

O4eSs2

o42s20

0sisee

0S1511

EMi2:

.RSCIZ

/PERSISTENT DEVICE

046603

117

042520

o40sez2

EM13:

.ASCIZ

/OPERATION NOT COMPLETED WITHIN TIME LIMIT/

046655

104

o44sz22

o42s26

EM1Y:

.ASCIZ

/DRIVE WENT OFFLINE/

046700

047516

0S1040

0S1S0S

EMIS:

.ASCIZ

/NO RESPONSE

046734

o42s10

042101

0S110S

EM20:

.RSC1Z

/HERDER CRC ERROR/

0467SS

104

0s2101

020101

EM21:

.ASCIZ

/DATA CHECK

047006

0si127

0sz2111

020108

EM22:

.ASCIZ

/WRITE CHECK ERROR - DATA CHECK

('DCK’)

SET~

047061

127

o44s2e

o42sa4

EM23:

.RSCIZ

/WRITE CHECK ERROR - DATR CHECK

('DCK')

NOT SET~

047140

o42s10

042101

0s110S

EM2Y:

.ASCIZ

/HEADER READ ERROR - ’'FMT’

047206

042510

042101

0s110S

EM2S:

.ASCIZ

/HERDER REARD ERROR

047267

10e

0s111?

O40s1S

EM2S:

.ASCIZ

/FORMAT ERROR

047314

042510

042101

051108

EM27:

.ASCIZ

/HEADER COMPARE

047351

118

0S1E11

042503

EM30:

.ASCIZ

/MISCELLANEOUS DRIVE ERROR/

047403

117

042520

o40see

EM31:

.ASCIZ

/OPERATION

047446

0S1104

0s3111

02010S

EM32:

.ASCIZ

/DRIVE TIMING (’DTE’) ERROR/

47501

120

0s1101

os2lll

EM33:

.ASCIZ

/PARITY

INTERRUPT OCCURRED

DIDN'T

(RMAS
= 0)~/

RESPOND TO ADDRESSING/

UNSAFE~/

TO PORT REQUEST~/

(’'DCK’')

ERROR/

BIT DROPPED/

HERDER COMPARE

("HCE')

ERROR~

('FER’)/
('HCE’')

INCOMPLETE

('PAR’)

ERROR/

(’OPI’)

ERROR/

ERROR AFTER OPERATICON STRARTED~

MACY11 3gé£046)
2e-NOv-77
OR MESSAGES

10:06

K14
PAGE

180

SEQ 0179

os11e7

osa2111

02010S

EM3Y:

.ASC1Z

/WRITE CLOCK FRILURE

047620

087111

o40s2e

O44sS1Y

EM3S:

.RSCIZ

/INVALID ADDRESS (’IRE’) ERROR/

047656

0s1127

0s2111

02010S

EM36:

.ASCIZ

/WRITE LOCK

("WLE’)

ERROR/

047707

104

0s2101

020101

EM37:

.RSCIZ

/DATA CHECK

('DCK’)

SET DURING WRITE CHECK COMMAND/

047771

122

030s10

020061

EM40:

.RSCIZ

/RH11

0S0027

102

0s1ses

O40440

EMYL:

.ASCIZ

/7BUS ADDRESS OR WORD COUNT

0S0073

104

0s2101

020101

EM42:

.RSCIZ

/DATA COMPARE ERRORS - NO OTHER ERROR(S)

0S01s4

040s03

023516

o20124

EM43:

.RSCIZ

/CAN’'T MATCH DATA RERAD WITH A PATTERN/

0s0221

108

osiliee

0S1117

EMYY:

.RSC1Z

/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RM1l/

0S030S

105

041503

046040

EM4S:

.RASCIZ

/7ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/

0S0373

102

0s152s

040440

EMYG:

.ASC1Z

/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/

0S044s

123

04250S

020113

EMSO:

.ASC1Z

/SEEK

0S0s03

120

o47see

0S1107

EMSI:

.RSCIZ

/PROGRAM DETECTED POSITIONING ERROR/

0s0os4e

0S1104

0S3111

020105

EME0:

.ASCIZ

/DRIVE UNSAFE ERROR/

0S0s71

122

040S15

000123

DM1:

.RSCIZ

/RMRS/

0S0s7e

0S1104

0S3111

02010

DH2:

.RSCIZ

/DRIVE

RMDS

0Soes2

0S1104

0S3111

020105

DH3:

.RSCIZ

/DRIVE

REG ADR

0S0700

0S1104

0S3111

02010S

DHY:

.RASCIZ

/DRIVE

REG ADR

0s0737

o4y

o4eSe22

o42101

DHE:

.RSCIZ

/$RMADR/

0S0746
0si01e

0S1104
O46Se2

01
111

o4eS22
020062

DH14:

0S10s1

0siliel

122
122

351
ell

020103
020102

0S1150

O4eSe2

047123

020040

2R AR

047556

un (flg

c ZRMBBO RMO3/2 PERF EXE ]
CZRMBB.P11
21-NOV-77 1S:34

ERROR/

OR UNIBUS TRANSFER ERROR/

INCOMPLETE

/DRV_RMCS1

('SKI’)

INCORRECT/
DETECTED~/

ERROR/

RMERI

RMER2

RMAS~/

RMMR2

DATAR/
GOoD

RMCS2

RMDS

RMERI

/RMMR2

RMER2

DH1S:

.ASCII
.RSCIZ

/RMDB

/RMUWC

RMBR

RMDA

RMAS

RMLA

DH16:

.RASCIZ

/RMSN

RMOF

RMDC

RMHR

STATUS/<CR>
<LF>

RMMR1

RMEC1

BRD/

.ASCIZ

0Sieee

CSle4e

.ASCII

(’'WCF’)

RMEC2/<¢CR><LF>

RMDT/<CR><LF>

.EVEN

001342

000000

001216
034456
000000

034452
034460

034454
001342

LIST

BEX

DT1:

.WORD

ATTN,O

pT2:

.WORD

DRIVE,RMERRS
,RMERRS+2, RMERRS+4,RMERRS+6,ATTN, O

CZRMBBO _RMO3-/2_PERF E;;R

CZRMBB.P11

ggg

22-NOV-77

O4N1S60

041562

DT3:

.WORD

DRIVE,RD.ADR,RD.WRD,0

Ris B

041776

DTN:

. WORD

DRIVE,WRT.AD,WRT.WD,RD.WRD,O

DT6:

. WORD

SRMADR, 0

DTI1N:

. WORD

SRMCS1, SRMCS2, SRMDS, SRMER1 , SRMMR2, SRMER2, SRMEC 1, SRMEC2,0

242

DTI1S:

DT16:

. WORD

.NLIST

BEX

L
L

:
g

.RASC
e

# NM3:
:
gxms:

.RSC
.RSC
gs

21-NOov-

15:34

gg}g;

1254

%6‘50

0Si266

001270

000000

%6?

§i§

3668

%70

glgéfl

3660

9669

£
RIS
7
96

%74

ERROR MES SAGE S

0S1336

375 05134 000232 90056 000500
%73

9%78

0s1
gi

0s1

141

DS1483
0S1466
%igig

0s1

oS!

goa-oo

0512&
gigsa
1678

10
'

164
%15
1%‘0
1701

L
L
L
L

174

02270
0c231k

Sl1é
042504

b
g

ggg

.
3

LINUOG:
LIN?M:
LIN7G:

S, SRMLA, SRMDB, SR

NT ORDER = /
v 0U§ ORDER = /

BAD TRACK/SECTORa

/E
AT C/
/7 17
;PRESISENT ADDR = C/

7~
PRE
/START
CYL = 7 = C/
7 BeSuRL e
/ ?Sl( = /
s

7/ RMDC = 7
/

FER

.RSC
RSC
RSCIZ

DATA = /

/
POS
/HERDER F
/RMEC]
= /

= /

/SEC
/SECTOR
/ Sgfls TED
/

DATAR = /

.ASC

NMBR WRDS XFRD = -~

L
-l
LINCE:
.
LINGG:
.RSC

LINRG:

/
/

’

$RMSN, SRMOF , SRMDC , SRMHR, STATUS, 0

;

§.
g

SEQ 0180

/
= /
/
= /
/START TRK = 7
/STARY
C =7

i
R
- s

PAGE 181

L
L
L

gsg

.RASC

k.LINP3:R .e
t
o
.
"
L

1
1

10:06

LAY

MACY1l 30(1046)

Eg/

= /
ERROR SECTOR = 7

CC CORRECTRBLE CORRECTLY ~
ON

/UNCO
TRABLE AFTER ~/
7/ TOTAL MISPOS ERR = ~
/0ORDERS:
~

1,SRMDT,0

oPvJ-\4Oo[Z\QxTA\XSrQWN~uOxewm-Zne~oEX1iS4OwA\]EaNANVOamQAXW>\ANRl&Ew"XdNA(\aSNIwO-m\~ylX*W~xvo(O5fm1i]\ex-tTLQ@-g<~Ma%d\b—NMwEmoeQ‘s\/l—Yxv-m
@%

; CESER
TN
2
2
8
2
Bt de it U §8 § gHER

~ -~

OTAL SK;

OTAL SEEK

LINIOH

/RODR

/CONTENTS

CTION
CTION

/NMWMN &0

a So ~ w - - ~

RT uogg /

INT

ERR
DATAR/<CR>¢

Ww Ww

[x vW

vWo@ Ww o-w U0 |ANA~lA

Nnw

LINLIH

10:06

...

TNe TA oN IRlLoRao TlNaeo [leBL

1 3001046)
]2-NOvV-77
ERROR
wn

9% J0%

=W O QO W

S— — U22R

AOTityeTeR zT—t omm%—) — o g>—
BtNRVmN(NVEI0>(NNN0\N1w4N(Dv4NN(Btm0v0N(ttVYNDNNtP\tSDN-etoN-BtT0NtMA0NA0N0"NtlNBD'NA0lNoAlN04N0NN0N0
SQow4BQO[+GEWO0>NoWGX-wg T0A& L-SAE-nwRNQw ORA["e AwE¥7]~~A yX- W5—~~~> v T eN(N@\] N Q (4]
uOx£v-xv |('X(=vPV=-3Y]]= N\(%v&o44[[+%v -l ol
P o%m m y

CZRMBBO RMO3/2 PERF EXER
CZRMBB.P11
21-NoV-77 15:34

M1l4
PAGE 182

SEQ 0181

B
&5 ORTED RBOVE)/<CR><LF>

TS/(EEggLF)

CTOR/<CR> <LF>
AD - /<CR><LF>
D/

R> <LF>

/7RETRIEVED BY A RDHD COMMAND/

(&}

~ A - |8 ~

15:34

0S2i16

O0S110S

22-NOV-77

Pé SAGES

12 : %
ENTADR:

10:06

fRss
Aag
ASC
ASC

N1Y

PRGE 183

)< F>

SEG O

SENTER BAD TRK/SEC ADRS FOR DRV %3
'é 14

<CR><LF

<ca><u'>/

TOR E

(cmq.nq.r»/oav

21-NOV-77

30(1046)

P11

MACY11l

bge bt

RMO3/2_PERF EXER

—

I D /<CR> <LF>

g NTIY/(Sfi)(*F)

’5,’{,{{2,

Ram nxr an ATION COMPLETE/

«CR> <LF> /0véh& BAD sE‘c'?ons ARE DETECssoonN s

.EVEN
.LIST

3679
3680

:gsesax

BEX

; PARAMETER ENTRY TARBLE

0S4714

9684 0547

3685
0547
9686
0547
387 0547w

5
9690

0SS04

001462

D01

77777
001
17 00151
D014

PARLST:

EE054766 ED0SS B 1 g
001474

.WORD

;

055010

3636

0SS012

0471

gsoua

04452

05203 027490 00BG4O
5052
0S
05

gsx
511

1
1

0551

osgx
05514
osgx
0551

1,3
82

0552

0SS232
* 0SS242

020122

11131

1
1

PAR '{'%TOCK
mzxtxtficmen ; RANDOM_ADDRESS FLAG

101
17

117

042515
042510

1823

051523
042101

0s1

043501
O0S1105

i TABLE TERMINATOR

.NLIST

BEX

ASKPAR:

.ASCIZ

-ASCls

/ENTER PARAMETERS:

.ASCIZ

/SIZE

SChen:
PARl:

PAR2:
PMS:
PARY:

.ASCIZ
.RSCIZ
[ASCIZ

PARS:
%:

.ASCIZ
"ASCIZ

Fggg:
g
PARID:
PARI1:

sfi lm§c
TEN
mul %fi

moied
m1§:135

000000

3697

mxm

PAR

UUUUU

PAR],Bl

Pmé qf

:.
»

%35
0Su77y 0SSR
1 001504
3633 %sooe ossaas DO0001 001512
ggg

.ASCIZ

.
.ASCIZ

/corgx

PAR1G:

.ASC

PAR20:
PAR21:

/MINTRK 7

7
/
/
/

.ASCIZ

PAR19:

/MINCYL
/MAXTRK 7
/Mfig c
/MINSEC
/FORMAT
/RANDOM

PAR1Y:
PARIS:

/MINUTE ~/
/PATTERN/
/MAXCYL /

.ASCIZ

.ASCIZ
.ASCIZ

/RATIO
/S

ING
7

/PASSES -

/MESSAGE~
/HERDER
/

BoooBRMEElRoMoMERoRoARNERoGoEdE®ROS99Ree,08¢=§

hoSDaymBLnETSeRngtgnRoRRmms

oO.M.H.“.O.nwfl.fl.....O.n.”.u.m..MQorI0.&”.“.3.3.evKm
BRAGAND BARATYBRGR GE

eN TOBTSSSRNTTGONLSSTLQVoUNNTINENIRNENARATRS27I35

g;us

9748

3743

21-NOV-77

0SS 7

15:34
MACY

R
(

.LIST

)
=NOV-77

RIRET

33343343
,
o a ol ba bl e
SEEEEETE

$RnesP il
RMO3/2_PERF EX§R

g
:

5 qm voem o ! oo '

¢
c
10:06

BlS
PAGE 184

ol 1=

SEQ 0183

.EVEN

BEX

- WORD

33 BEBERAEBERPEP AR AR

§3s
=

TRBLE?: ggggg

gk
= r€§
SBB RAaEes

- HORD

&
TABLEG:

.WORD

TABLES:

8eg

. WORD

000000

SEQ 0184

. WORD

WWwE££00

000037
000037

0SSi42
0SS132

(0SSSS2
0SSS60
055566

(LB RECIRGT 1000 Pk 168

15:34

WWELOO
oo
o

21-NOV-77

ClS

MACY11

RN i i

9749
9750
9751

RMO3/2_PERF EXER

CM’H
c

RSB BRECL RS L REERAFRERR AR

RERRERRRE LRSS

‘ESEI’“‘ TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR

;

RETURN

PC, OPRDAT

'NOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START

1
575 1guot
0se0

gy 1E7 mus

7%
980
9803
9804

0S6022

0S6034
036
0Se042

112537

; JENTER, DATE:

Blign,

daleen

(SP)+,RS

(RE)+,DATE+2

§P¥$°T;$E K Ra ADDRESS INTO RS
;STORE THE DATE

RERE 2 g

001330

(EILBATES
,e~§xg'

001332

(SP)+,RS
(RS)+ OPERID
(RS)+ OPERID+1

ISIGRE TieOPERATOR
GaTe 1.D
E'ENTEE
;READ THE
ENTR

183401
6 41l
12608
112537

L ENTDAT

Egr

1
|12y ol

005037

OPRDAT: ITQIY)L::iN

f§§;+:§§75+3

123 Ba1is
(M

9797
73
0l1
9799

0S6113

001333

TflE Bg E

'ENTRY ADDRESS
.STORE THE 1.D.
.STORE THE 1.D.

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
9805
gggg

21-NOV-77 15:34
112537
1334
11
xgg

MACY11l 30(1046)

10:06

D1S
PAGE

TELETYPE MESSAGES
MOVB
(RS)+,0PERID+2
MO
(RS)+,
+3

13«0

gio

22-NOV-77

CLR

oggnm%

186

SEG 018S

;ST
ST

THE
T

:SET

TERMINTOR'

21 B B Sogp B

RTS

ENTDAT:

.ASCIZ

<CR><LF>/ENTER DATE:

ENTID:

.RSCIZ

/ENTER OPERATOR I.D.:

981

.EVEN

981S

0Se113

§i? 0261
g ERi%

g"”
B

0S2116

0S1105

0Se142

%Sé

.SBTTL

9823

3826

RETURN

$SIZE:

MOV

3524
e3¢5
9829

0S6l142

010046

9831 0Sei14e
wgg- ggxg

013746
3137

000004
000006

?;% eleg
Joues
§1§ 1

3839
9540

12701 020000
711
;;é

gs:é

3843
13 Olooge |P0002
9844 82514 81% 000006
384

CER!
9848
3849
ees?

935525

3gc3
384
gggg

REEEEERRRR

056220
24

0562

(0S6234
056236

185:17
010137

12601
012600

000207
000000

000004

R R R R R R R RN AR R R R AR RN RS RN PRI RRRERRS

PC,S$SIZE

MOV

RO, -(SP)

MOV
MOV

oémc -(SP) ::SAVE PRESENT ERROR VECTOR PS & PC
sE
cé2,-(spP)

I
MOV
18:

000004
0S6236

MOV
TST
15T
F

ROY
MOV

Rl -(5P)

;;SAVE

RO ON THE

STACK

;;snxs R1 ON THE Emcx

SLSTAD:

e angeceg!;;SET
P FM'?EOUT
0L 9 PONSTERG

M abe VEC
oagooo.m

(R1)
(R1)+

iFIRST

;s TEST THIS ADDRESS
;;;Tsp T EXT ADDRESS
IRY

THER

n(G’ o
i DR OT ORE THE STACK
)+.a.ennvec+a'5?§s%& ESnon VECTOR

MOV
MOV

(S5P)+ ISERRVEC
R1,S$LSTAD

; ;LAST ADDRESS

RTS
.WORD

PC
O

; ;CONTRINS THE LAST ADDRESS

MOV
MOV

(sbn,sé
(SP)+.

:
:

iRESTORE RI
'RESTORE RO

.SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH1l

: THIS nog;mc gs E§E° 10 xnsuns mE BUS RDDRESS
‘OF THE
RM11 IS SETUP FOR THE PROPER ADDRESS.
‘gofifli Dano READ THE ADDRESS FROM THE TTY IF

:NOTE: THIS ROUTINE DESTROYS RO-RY

985%

;CALL
:

e 3 novmc Psago i mssmsnvs THE STACK POINTER

vy
y
m

3857

:#SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

9830 0Se1¥4 010146
38

: RETURN

ROUTINE TO SIZE MEMORY

1 kCALL:
‘e
JSR

98289827

I.D.
.D.

JSR

PC,BUSRDR

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 15:34

age

MACY11l 30(1046)

ELS

-NOV-77

usaos EE wo&gsg‘nm %c*g ADDRESS FOR RM11
RETURN

%0 i

&é
%s
m?qes
wsg

0013S6
8{35?
0012
056360

ausaon: 1ST
§ES
18: novE
TYPE

gsncaoa
co;ccseg
§SRMADR,
RO
MRMCS 1

; INPUT rnonu TTY REQUESTED?
ET - LgsaTHE REQUEST FLAG
x§§r 1=noon:ss
ot

987
937%
987
grrg
3876
9877
9878

053246

TYPE
MOV
ggn
MOV
TYPE
MOV

,LINSP
(SP)+,R1
R , K NUM
#SRMVEC, RO
MRHVEC
trO),-(SP)

;
S
:
THE ENT
:
SS OF nscxx TEXT
-Em
n
TORE THE NEW ADDRESS

ROLIN
MOV
ggn
MOV

'’
(SP)+,R1
gi.cx.nun
#SRMADR, RO

»érf'mnv
; m srons Neu ADDRESS
FIRST noonsss OF NEW PARAMETE

RTS

*RETURN

386
3870

3880

2%:

053246

IYPEC

0S6402

001270
034620

9558

0S6360

046522

9892

056

020075

gg%

056376

036440

9893

ROL IN

056402
001272
056371

9881
3882
3683
9395!
¥
3890
9891

MOV
TYPOC

056371

122

3%:

trRO), =(SP)

,LINGP

MOV SRMADR, R1
MOV
MOV

(RO)+, LR1)+
(RO)+. (R1)+

051503

020061

MRMCS1:

.ASCIZ

SRMCS1

053110

041505

MRHVEC:

.ASCIZ

SRHVEC = a

000

000040

:
1

NT RMCS1 ADDRESS
17

m RH11 VECTOR ADDRESS ON THE STACK

.nsc

;r§nswss OF WHERE TO PUT THEM
:BUS
55
:VECTOR RDDRESS

= @

3e3¢
9897

.SBTTL CK
cuec
R (OCTAL)
; THIS nounus CHECKS AN nsc Z STRING FOR LEGAL CHARACTERS

3900
9901
9902
9903
9304
3305

:
:
;

gg.guoa
404

C10246
010346

9907

0Se410

012703

gggg

9906

9910
9911
9915
99]
9914
93915

991

'82& ORMS AN OCTAL NUMBER IN R2

0S6406

414

420
422
o
4

0Se434
0Sev3&

0SE440

gxoq &

]

MOV
JSR
RET
RET
K. NUM: MOV
MOV
000006

&axo«o

1424
1804?.7
103425
120427

101022
006302

103420

000060
0000&7

;ADDRESS OF ASCIZ STRING
R; CHANGE
;ERROR EX
:NORMAL EXIT
R2,-(SP)
; nvE "z
R3,-(SP)
:SAVE R3

MOV

RY. -(5P)

;snvs RY

CLR

mk ocm# VALUE

BEQ
CMPB
BLO
CMPB

33
RY,8'0
c3
RY,8'7

ANCH, 1 rznnxmron DETECTED
smL ER THAN ASCII-O
?
:YES,ERROR EXIT
:LARGER THAN ASCII-7 ?

MOV
18:

#ADR, R1
RS, CK

MOVB

BHI
ASL

BCS

86, R3

(R1)+,R4

o3
R2
3

X OCTAL DIGITS IN THE NUMBER
NT

POINTED

! YES,ERROR EXIT
ISHIFT LEFT
;

BYTE

30(1046)

85
RS
gc%

177770

2s:

0s7sie

NQR=ED

00S01S
125
0l
044527
047101
00S01S

10:06

o
Rf
3

I
ADD
ggc

8177770, RY
RY,R2
R

MOVB

BEQ

osesli2

22-NOV-77

PRGE 188

SEQ

CK NUR - CHECK NUMBER :iOCTAL)

Y4y

0S7512
05752S
057571
0S7660
0S7736
057770

943
9944

MACY1l

H4y2

§§§§

£:8:8:8
3238:8:8
SRRZE iSRR,
§

CZRHBBO RMO3/2_PERF EXER
CZRMBB. P11
21-NOV-77 15:34

MOV

;
:
:

:
3

(SP)e.RY

;cxr

CARRY BIT gzr

F HIGHER
BIT
né
URRENT DIGIT TO NUMBER
N
r; S

DEC

W, IF LRS
CK

$¥E

INATOR

ngt agpLacs
THE onxcxnaL VALUE

THE

‘asé%as‘%!‘.m

MOV

(5P)+'R3

:RESTORE R3

RTS

TEXIT

CYLDER:

.BLKW
ENDPGM

256.
=

.NLIST

BEX

TITLE:
LOADRY:

.ASCII
"
c¥§
.ASC

(CR><LF>/CZRHBBO/<CR>(LF>
JRMO3 nflog P§E
XERCISER J<CR> <LF) (LF>
CCR> <LF>/ o
EST DRIV
REPLACE THE 'XXDP'® PACK ON DRIVE 0/<CR><LF>

NOLOAD:

.ASCIZ

<CR><(LF>/SYSTEM HAS

.LIST

MOV

(EP)¢,R2

;n£§ron£ R2

;ONE SECTOR WORD CTR MAX SIZE

JASCII /WITH ANO gnc CLEAR MEMORY LOCATION 40, /<CR»<LF>
.nscx% /AND nssTHE Pkocnnn/<cn><Lr
BEX
.END

; ONE

::0CT
;

(R1)+,RY

REQ(RO)

ois

16K MEMORY,

'XXDP'

LOADER WILL BE OVERWRITTEN~/<CR>
<L

RMO3-2

P11

ABNRML
ABRSE

ACDM]1

aex -NOV-7§ 15:34

§504

0000(

ACPUOP=
RC

PERF EXER

B
1

Bl71s

RCTSTR
RADDKO =

8177s
1

ie
noouxés

i
eS6l

RADDW 1S=

MACY11l 30(1046)

32239
1

=
256%
s281
esSbl

RDEVCT=
ADEVM =
RENV
=
RENVM =

F4=1°%1
|
1

ggg 1

RAFATAL=

AMADR3=
AMADRY =

Quyde
9089

849S»

8821

74988

S103%

2567

2603
5372
73
2564

259

eSbl

2599

mg?
=

2561l
eSél

2591
2594

AMSGRD=

2561

2569

AMSGTY=
AMTYPl=
AMTYP2=
AMTYP3=

eSél
eSel
2Sbl
4191

2563
2584

AMAMS1 =

2561

AMAMSY=

2S6b1

eSél

AMTYPY=

2583

2597

2570

2532
2595

Skl

cese

APASS =
APRIOR=

eskl
2561

2556

APTENV=

730

7387

7456

7389
359
bob4s
3480

7458
96788

7499s

6263

62768

e3bls

APTCSU=

7394

APTS1Z=

= 000100
0S4041
47
ASGN2
024544

ASGND
REGN3

024626

331

6273

PRGE 190

esél

GlS

2602

2Sékl
=191

0 -=
AOOU =

0:06

CROSS REFESENCE TML& -= USER SYMBOLS

2561

RADDWY =
ADDWS =

ROE

-NQV=-77

7S00s

74978

eeBY

6c9ls

8830#

9087

SEQ 0188

CZRMBBO RM0O3-/2 PERF EXER

CZRMBB.P11

e
A

21-NOV-77 15:34

MACY1l 30(1046)

g ot

B0,

70%

281 %

g;gan'
oawsos‘m
e

cooe

AT0

23748

ATTN

ATl

AT2
AT3

Ars

%’992

= 000001

= 000002

= DODOOY
= 000010

aT3
=
AUNIT =

800200

nvnéci'

%EES

AUSHR

= ootlaooo

AVECT1= 000254

2}’5” = 000000

3%:

7282#%

3878
2561
a;gs.

2568
2575

22728

256l

76l8

3557

ggas:

Ol*

EEGC“,’

ooisig

a;aa:

BITO
=
1
gxrwsw

BIT03

BIT08 = 000040
axrgz = %0138
BI707 = 000200

EIT08 = DOO<00
gx;?q = 001000

a%noz%%%
BITil = 0OS0C0
glvle = 010000
BIT13 = 8500%
2ITIS =
0800

SEG 0189

ONE

gaxg-

zasg-

B322%

6324#

B371*

6700w

856

568

6388

3599

3603*

3645

3648

3681

3705

©S429%

5503

6084

6096

6108

6120

6132

5162

6339

G914

9652

BB
1
41

9654

&711

8807

B243s

8411

§§§:

filcn”
R
B0 c 13?5
I10] =
aygg - %on

PAGE 191

23768
23778

2601

accisxz gxgeo

23758

gssx.

10:06

CROSS REFERENCE TRBLE -- USER SYMBOLS

22-NOV-77

2600

:sa

6453

22568
:

6588
sesg

66l
4403

S04l

2438

3871

4238

573&.
s
Sy s

S54is
§§1'

24??
205
5?

645

3778
i

5585
g

a8
3332

22398

2249

27N

§9w

22388
ezzg:

23S

22338
20328
4481

2248
eew;

3772
77

3;29
376]
§E5]

3880
3779

3339

3901

4
503

8487
90

874
519

B494

8333

6763
404

8979
4058

4900

SB7M

6256

7161

8420

8478

9852

3886

4900

8420

B8e87

8842

BIeY

8379

8995

3032

3298

8380

8S14

7290

8744

3‘323

784

397

HuEY

o4y

S6b

375

8402

g%2C

EEEEE]

4306
3874

6987
3877

7297
3915

8472
9033

8937
<084

9206
4128

4168

9274

4289

8420
9138

g;gg

SQSS

3916
3763

4210
3778

8484

8519

8324

3264

8708

3068

9073

8991

3168

203

3214

325

9218

328

9322

dos

fi3

3749

10:06

I15

PAGE 192

SEQ 0190

8708

gggg

9178

3952

8742

4481

4SS1

6345

6268

7566

412

4056

8861

8%4

4l48

4183

4306

8744

4306

8979

8989

8472
8999

8484
068

8489
91e8

4134

2
396

3361

8 A L \33

0363ece

= W)
oLro0o0
O NI
b= \Joep e
onNELoCONOD

—

BrrerB82
R£ RERERAS

SEnss88IFREgiu&&

e2ORARROR
GRannny

036760

nNoNw LM
~N

8zR

i
~N

—

N
b L

Ghe"
Q; NN LW

A arararar
e

OOOO00O000

P44

OO0

3917

g8se2

NO84

CMPRES

22-NOv-77

CROSS REFERENCE TABLE -- USER SYMBOLS

un
N

—

BITIS

MACYL11l 30(1046)

CIRMBBO RMO3-2 PERF E
CSrmBE. P11
21-Nov-

854

3380#

49Sis

38638
96788

gg? “
7c%

4174

7080

7049
70748

3883
7051

4995+

S000

3388%

3389%
SC01

3392
SO14%

33%

3398

3399

40
748

6295!
M

6208
497

gSa2s*
7563%

6535
863

6652*
9865S*

ebb4

6EB0*

7174#

7231

870
BEY

8697

85986
87028

860
8816

gele
8846

8630
9308

8636

8e40

8654

5933#

bl42

H4p1#
H4ES#
4536

Y4E2#
4482
4538

4472
Y47 »

Y474
4548

447S*
452

4528

4532

4E3S»

4SS8»

3709

S324s

5327

S213s

S8e2
8674

8586
B868S

3385%

8590
8700

3386b%

433S

7557

S9468

9052.

094

9904

2917l
35

S922%
61638

3
762

431w
3928

4402 *
H4b3#
4490

Y406 *
H4E4#
44948

4452
4456
4410

Y467

3634

6308

4990*

9160

441Ss
4113s
41420
731

6302

4978

9022
87248

S9178
59300
S339s
5938

S9%1

3382%

4977

86950
864

Y4348

4118

338l%

S16
8570w
85938
B861S#
8614
8641

8551
8664

4874

3683

4478

J15

CZRMBBO _RMO3-2_PERF EXER
CZRMBB.P11
21-NOV-77 15:34

MACY1l 30(1046)
22-NOV-77
10:06 PAGE 193
CROSS REFERENCE TABLE -- USER SYMBOLS

CMPRY
CMPRX

“ggg
4

13636
3630

4492
4y

4S16
4S

4526
4

45678
4559

CMSEC
CMSTR

11*14
131

asggo
44698

Y46b#

“flsg

Hgggl

4S540

CMTRK

00141S

26548

4487

4S43s

Y491s

4SS

4557

g
ggl

g
?2
7
7443

7433

4159%
Sl48#*

CMSTR2

o
CR
==
CRLF

CYLDER
SZ*IHT

Sle2
4

TAl

88%205

DQTE

8glggg

gn,
§?172s¥
4155#
78

2914

2927

HlS?
351

]

2928
2278

2930
6381

3300

DRTEIS
4
OCK__
= 100000
DCKER
751e
DCKER1
7632
ggsgzflt 177570

23678
3914
3998.
178s

E
42e8
asgg.

DH1
DH14

050571
0S0746

3224
sS

96508
96508

DH2
DH3

CS0S76
0S0eSe

3e
3e

DHE
DISPLA

0S0737
001156

3259
2S44s

DEASSG 0539;1

DHY

0S0700

DISPLY= 104414

gg;s

4S44

788

324S5

36508

379

4Secs

flsqsl

4SS5

7443

9650

978

.12

9942

4193%
SIS4

Seél
S158

S716
6493%

S719
6S00

6593
es08

9638
6509

99378

2917

2918

2919

2920

2921

2922

2923

2924

2928

9792#

9793

_
794

9795#

9796#

9797»

9798+

9799+

YS4E#

2349
9791

3308%

7289

4lg4
4369
Y442
4725

4190
4374
4591
4728

4205
4375
4596
4731

Yee
Hg?
459
4734

4233
437¢
4598
4737

4251
4382
4616
474

4261
4385
4614
4743

SS1
5593
2237
97
S743
S809

ss1
5596
Egfll
06
5749
S810

597
gsus
708
§755
S819

s31
Se01
g SO
15
S761
s824

-3
Se0e
2953
18
5767
5829

SS4
S606
;20
1
5774
5832

S548
Sbl1Y
2?64
ee
5776
SB35

SHS?

3850

gfl

3333

547

S498

DISPRE
DLT
=
DONE
DPE _ =
DPINT

000174
100000
007204
020000
Q034512

24758
e314s
3766
24338
géai:

38718

8344

8347

B428%

BYSH

8308

8933

DPRCS
DRIVE =
DRIVED
ORIVEL
DRIVE2

034See
001216
043022
04332t
0438232

8l44s
cb2bs
2807
808
2809

B460
7283%
638
9cB2s
95308

B8508%
9654
95748
9721
9729

B546*
bS8
9713
9722
9730

B71S#
bl
9714
9723
9731

8732

B748%

9715
9724
9732

9716
9725
9733

3308

2926

96S0s

SOs
3300%

489

SEG 0191

q162#

MACY11l 30(1046)

CZRMBBO RM0O3-/2_PERF EXER
CZRMBB.P11
21-NOV=-77 15:34

IVE3

BhE ER
S

BRIVES
"
DROP
DROPNG

95988
96068
S6148

!
28{3

DRVCLR= 000111
DRVE
1
DRVINT

S027%
24Sls
391
83

VPRM

0256

2656

DRVSTA

6304

8463
344

DRVTYP
(034502
DRY
= 000200
177570
DTE
= 010000
DTEER
011516
DTUM
034604

906
3444
23408
el77s
2364s
391;
gg?ao

DT00
D101
D102
DT03

= 000001
=
=
= 000010

23888
53890
3908
23918

DT0S
DT0&
DT07?
D108
DTl
DT14
DTIS
DTle

=
=
=
=

00004
000100
000200
000400
ggxzaz
1272
0S1314
0S1336

38
3948
3958
aaggo
32
6813
gSIB
52l

pT3
0S1244
DT4
gglESH
D76
1266
DULP
DUNIT
1546
DVA
s
000

3239
32:8
32
83708
27538
23348

DTO4

DT2

0Sl1eee

BCea00” 00135
ECWI 1'4?08
UL

ECBIT
ECC
ECCX
ECC%
ECC
ECGD

ECGD!1

001416
014236
014770
014634
014764
001430

001436

10:06

CROSS REFERENCE TRBLE

€ 1;
3978

22-NoV-77

i
8

9737
9743
97%
76
76

K1S

PAGE 194

974

9738

9754
97
97
671

974

975§
979
97
67

9756
9764
9 g
678

g7flé

B717%

8729

B747%

8835

8929

8362

8993+

000#*

9746

75
9;95
9773
96788

67098

6739

BENS*

B69S#

8369

8456

061

76
3506
S8
163%
S8

8873
6297
8482

432
81038
BS16

B32S5#
8520

B8326%
B8649%

B8327#
B7bb#*

8328+
8914

8338#
8%ee

8370#
893S

#
8987

8379#

B417%
8994+

8422+
007

3461

8317

6494

E497

8118s

8371

8386+

#
8391

83%#

g48s

8767

2543

3299

BS99l

B722*

8735

8749

87S1#

8760#

8824

8836+

9134

Fl44#

6713#

BBO9*

4679

4680*

4697

4699+

788

8468

%
141

4103s

33730

Yeous

8321

B8S3S

gga.

3232

Soin
cbbYs
26558
3994
4738
471
HE9y
2bb0s

cbb3s

SEQ 0192

USER SYMBOLS

9652
96668
96708
96748
3253
9658
Sebls
s
9bb4
8381
3548
4703#%

96548

634SH
7

4717%

4677%

H?Sg
4678#

4754
4716

4746s
47228

c
RMO3/2_PERF EXER
CMPU
EI-NOV-;; 15:34
& =
531%
CMSKO
001422
36578
CMSK1
“53
g& s

MACY11l 30(1046)

22-NOV-77 10:06 PAGE 195
CROSS REFERENCE
TABLE -- USER SYMBOLS

CWRD1

gafl

'078%

n{v:cs

1”

.—

CSEC
CHRD

MPTYQ

14
1426

§
26598

g
M1

EniS
EM1Y

EMIS
EM2

700
21

e
E

R
7140

s )

&
3

330
3841

386l

Y69S*
4636
%

deels
ue73e

8765

350
96508

4igs

g
95§§o

Q47314
046257
805

4
32235;
oz

H
%6208
g

EM34
Enss

047556
O

4332
4251

96508
96508

M40
EMd
1
EM42
EM43

£
§ns

M50
EMS]
Ene

2%
73

154

2
3675

S04
03
046406

4obl

3
4395
4ssl
436

5
322}

4321
4190
328

N712#

46758
YBB3%

9176

471;

9417s

331b%

96508

96508
96508
96508

96208
3es0s
4374

96508

32§§3

96508
96508
350

e
ENET
00106

D27138 S
s
o
6752
9689

ENDSER- 901954

35%e

ENDPRS

053737

ENDTST

063783

H?;g

E
EM3
o

EM3E

4711l%

4673
W6B2%

96508

e
41
42
4233

4707

4670
4egls

'-0752

36308
3850

Enss

74496
7501

3288#

EM32
EM33

47 65

e
ger
Ma2
Q47208

4700%

6766

96788

£774

96788

o768

end

4720

4691
YEBYE

471S#

Y6Bb

4717

4e9l®

4719

Y4E92

4720%

4703

4721#

4706

4732

4707s

4735

4708+

4741

CZRMBBO _RMO3/2 PERF EXER

CZRMBB.P11

21-NOV-77 1S5:34

NT
Y
RIS
B
NT
NTID
;#:T

MACY1l 30(1046)

“e0l
0S6l113
“e

22-NOv-77

10:06

CROSS REFERENCE TABLE --

6526
9009
N7 -

M1S

PAGE 196

SEQ 019

R SYMBOLS

Bv
9788
981Ss
%788

E7608

6762

6764

6803

6811

6815

67620
4S1S#

4624

4627

S93l®

S5946%

9831

9832

9836+

9837#

4S69

4Se7

4599

4622

23478
§=

3297

3298%

3309%

S919%

S920%

FRCTOR

4903#

4905+

4906

4914

4922

24188
Se89s
, T

3726
ot

5243

9690

EEH
UDOOR

4002

4366

W09

WSSe

4S8

3982
52§
3

u791¥
uges
g§3§
g

4792¢
ugax
Sg5%
v

47O
Ngdms
6586

uglle
6615

4Bl2%
4G5S
9636w

BoISH

bSBF*

HS6O*

6563%

4828*

4830

6570#

6S71%

sasa

5388

5258
B8O48

68438
3067
B80S0

917

B0S3

gles

8054

912

4S3s
80SS

80se

8057

046102
026154
015630
(02604
(17374

GETREGTREM

042732

017332

74
AT

-O

GETPAT

B
%10

guSe

4
%

635
363
beaos
23558

€039
a9

s123
g7
8od4

333,
8503

S0l

65568
433cs

37648

8833

5139
3

5156
gale
046

5178
@9y
8037

3017

GENREG
CETRDR
CETBUF
CETID
CETPAR

't.
$3983%i
dgyas
6784
411

754

4046

4867

S070s

4115

4180

%
z 090010
. 890020
GENOPE. = DO0O4
096062

dge

[

8
£

0924
mégfig

Fours
ERST

§§§'y
16608

FNT16 =
01
T
001474
FOMT]
00517

wnn zmggm

015626

133

2R2

S
ERR
= ONO000
ERRVEC= 000004

40748

YBIY4

8052

4Ble

4827

98444+

H8432

N1S
Pacg 197
CROSS REFERENCE TABLE -R SYMBOLS

RMO3/2 PERF EXER

P11

21-NOV-77 15: 3N

5
3

]

MACY11l 30(1046)

7208

1698

EE]
33
282:
§g§§o

NCSK
NCTOT

w.}igg

NCMI

Lo
OTVEC=

s~
IvVC

“

434

196€

0S4

= 010000

CIMIT
CINA3

CINgS
CINBG
LINCA3
LINCG.
LINDA3
LINDEC

1
132
OSle2]
02216
051635
022962

L.nsgg 33213§

C
CINEL.

025:0
020406

LINE2

020462

LINE2R

020832

198

61308
8790%
v

,543

617S%

B176

61788

7553#

353
393

324
a1

35%%
3003

$0°
9237

a7
G264

3987
U263

WO
4er8

YO2I
4283

6170%

6181

6183

6186%

7556%

7558

7560

9684

8791

B812%

36918

wME

4630

elaze

YOBY
4305

YOR7
4324

4008
4336

61208

esais

3330
1708

14
1570

47.
g?xxo

§§;g-

24308

KeR1
Oouiag
CACNT
50
B
LBT
-=
12

4250 #
9%78

3
22648

10:06

blb

sxgg.
gggz
31

INT

198

B
IDLEL
LF =
kg =

gaa §

-NOV-77

5637
1
49
14

5933
7
3785
G204

395
4206

GOl0s
96784
%78
5755
36788
9678s
96788
Il

7267

4967®

GubB®

7437

40l

7443

9650

9678

9812

9942

Se00
Se86

Se0s
o707

SR
8763

Sbl
5798

SE3
8831

536
S8

MO
ce7is

Sedd

SeS2

S6SS

38E0

3932

3ME

4o7e

4103

Wiz

le3

4189

382
426

3934
4271

3948
4286

4080
4333

4105
4352

4125
4370

4165
4425

4191
4443

4603%

96788

S5
2881

36788

36788
32

399

de32

1
agg“

S1
gESE

S480

5485

SS03s

UeS0

Y20

429

4OIY

4284

4017
4302

Y03

4300

4039
4322

4320

4331

430

wEd

lfifi?q-&-l30371“M-Toy[gnx3”WD&B0—61”6“.0—TBmo8n0TW389Po@=O
tJS?'

@@=TTH TT TT FYro1rP FTr=yTwB vks

- +e <

|mSm0wRrmmnAmmRdmmNnrBmAxnImmdS5x8NmSm5dmSw32gm[[5zo8e~S|iT.ENSD[e*gi2w|uFnouiwdmivsdIExmIrBsxeL=ws[E—BuaPMWOgAenaeNRbLIbYBOIvisSDiyF.ntzturhwYLSeuoNLuy0Lu,lLm3
Y@NM£0T&Mooo9yTiTveToTT itnilm0o ofn 0eIyTTFYNTy-roLTOyrTTWoorTR vrmFRuTn'5ttMy ~wo® 8TR—b¥NM
158

agb

40s0

S5alu

5720

6£o7w9NO o®0y2 TmPBMM0mM80H~o0Ny —N&_— o=—~

Ead

4093
4141

6056

96788

~N T

CZRMBBO RMO3/2 PERF EX;R
P11
¢
21-NOV-77
15:34

Yl b 0e Rer ERENGE TABLE - CCUSER SYMBOLS

Blb
SEG J1%

CERnEB_
P c2ionov-rs us:aw

LIN2S

DSIY17

L NJ..;‘ 021334
LIN3.3
021442
LIN3.4
474

LINGSP
Line.1
LIne.

LIN70
LIN?P

16
052326

L
LINGT

CIN7X
LINSM

txr«!

052456

LINaE
LINSH

5506

44400
3R2g=8

087871

96788

S561

1
6824

5819
96788

3968

788
4891

278
96788

4s%

LKPaR
LoADRv_

o! RN her BRENGE TRt % usER EvAdALs

6656
5566
574

LINS

Clb

5573

'
.

S6278

56508

%788
§77on
7818
9578w

4+
788

%78

S8YS

9678w

36788

34038
3
S

99428

&»

wr*

oan

3485

3531

3558

3581

6835

3970

4Olb#*

4089#*

4134%

g;w

Sggfl

2500!

MATCH

g
&
44
6

00SS74

3529

m
141

CDS?iO

MAXCYL= 000106

XD_k

1462

MAXE

MAXSEC=

1464

116

MAXTRK=
MX

MERR]
MERRZ

16
00
0S4S7S
0S4643

MINCYL= 000110

MINSEC= 000120
MINTRK= 00C114

MINUTE

001

359

]

§17|

ggég:

5132

;l
23078
6619
6629

9193

3;29l

MRHVEC
MRMCS1

0S6371)
O0Se3&0

96784#
965784
5;09

9534

8370

8372

9&83

9742

9750

9758

ER1

9774

5361

6S01*

6s1S

95338

9537

§713

9717

971

Qz2s

9729

9S3Ss

715

9723

3731

973

S;EE

S;S;

S160

9757

976S

9773

388

3367%

6150

98938
9EeSis

9533

5189

s;go

g;zg

77
9868

4881

9754
3419#

9762
S174

9734

9732

9740

9748

9756

3764

9772

9240

g;%

34Ss

4876

35838

9724

“y

4339

9537

9716

9726

4309%

9536

95348

6S02*

4238*

9535

9718

8357

4210#=

9770
S187

95364

6504 #*

9749

328

9738
3398#

746
3417

4174#

3
339

211

4768

116

e
2;9;5

]

9741

MONTR _

g;o

]

B
5339.

%H;.

14
g

o Bates
MOH =
MOL

&52:

gll%

gl Y

5360

BYH8

6505#*

g; !

S140

8359

6S03#

6S14

Bl71#

6172

Bl74#

7554»

7562+#

6S13

3733

CZRMBBO RMO3/2 PERF EXER

CZRMBB.P11
mua

MXLACT

M.DPID
M.DPY0
M.

21-NOV-77 15:34

034634

027570

;ED

flg

010000

o
N NT

DCLK

NOLURD

NOMTCH

NONE

]

012366

8791

6863

68778
b

82748

1
w&s

u.:
69208

9%78s

3487

99428

2311

<]t
;.

.
32%2.

43668

Y496

3
J08s
o3
3433s

B2
£357
6318

orrcog
4
OFFDIR=
1
OFFON = DOO0O01
OFFSET=
115

28968
24158
2338
24538

3978

OFMSG1
OFMSG2

OFMTBL
002470
OPE
= 000010

op RID

opisn

OPIERI

OPRDAT

8:71

29028
EREET

gggo

9807%

9079
3691

6197

7564

9041

gg;e

ggwa

3628

6512

66S1le

3415

9683

23S5s
316

1316

218

6382

9788
S487

011540

3894

42328

PARG
PAR]

001656
0S5042

27698
9683

96978

PARIE
PARIE

0E5202
05212

PARIO
PAR11
PARI4

9806*

5773

8856

PAR
= 000010
PARENT
026610

PARLST

980S%#

2904

8S0Ss

3357

7478

PARER

9804*

4828

8470

881522

PACK

9803%

wm
96as
3eras

035656

59352:

6308%

4202

]

1£

ORDE

(0S4714

0SS152
0SS1ke
085172

3399

369
568
3688

SEGQ 0138

3604%

42ile

PAGE 200

3603

011452

055752

oPT

%
s

96788

3585

6385

D16

6398

G S
Tl

10:06

8808

4410

VAL
e
NOTPRT
OB1S89
NOTSRF De3uea
Nea ¥ = 180088

22-NOV-77

CROSS REFERENCE TABLE -- USER SYMBOLS

s
B

001

R'
M.

MACY11l 30(1046)

36974
TR

96978
96978
36978
96974

5489

28%

5392%

3664

£310

6312

6330%¢

6413%

9808+

9809+

E418%

e422*

¢ zmaagpm /2_PERF EXER

[

PAR19

PAR20
ngl
PaR

21-NOvV-77

15:34

MACY11l 30(1046)
2 o4

-NOV-77
sst

ROSS REFERENCE TRBL

P&RS

0sSS1

96978

PAR
m

1
%gl
14

96978
96978
%978

971
9719
971

968S

151
13%

178
§30%
ebl?8

bB772

5254
S91B®

5256
5923#

9686

85%8

8570

8686

9002

3700
3951

37468
3989

4337

47518

3364%

3471%

96978

ggl 1

Pfi?CNT

PATTEN"

PATTEN
PCLOCK

001460

96978

26798

PERIOD
*417
PGE = 002000

%78:
33098

Pws

22708

PGM
PIP
PIRG

= 001000
=
=

8’#275'4

PROCES
PRTBAD

006460
Dl4776

POSER

PRTIM
PRO

PR1

11332

146

PR
PR3

= 000100
= 000140

PRS

PR6E
PR?

3785

21938

1978

198#

= 002000
= 177776

34 3%
2c8bs
2l74s

PWRVEC= 000024

2cbss

GDRVO

934S

PSEL
PSW

006646

QCNT

042266

GDRV 1

042400

QDRVY
GQDRYS

QDRvZ
GDRV3

D42360

5?4

Sl®

9334s

3393

9346

9351

Dflagls

9738

97'43

9754

9762

9770

9732

9740

9748

9747
9750
9749

9756

97%
9758
9757

9764

9772

9723
97
97

9031

9071

94688

620l*

B257#

6974

6975*

£989*

7622%

7S34x*

7535

Q473

Q47Sx

9729

9737

9731
9734
9733

9739
9742
9741

974

9761

9763
9766
9765

9769

9771
9774
9773

6201

37868

2520

TPY

QINPT

38608

3771

9347
9348

042540

4188

1 go

042420
D42440

9730

3721

21948

21958
1968
2199
290.

= 177776

9712

9722

2342s
%3‘460
1768

= 000300
= ooo;wo

SEQ 0199

201

SYMBOLS

%978
96978
978
3 14
713

PQR;

USER

¥R

9693

PRRY

é 10:06
:0

042276

934Ss

QSTART
(042336
GSTOP
D42340
GTERM = 8*055?38
GUES

93658
93668
9373

93568

3291%

B4Y42

3292%

9417%

BY43%

7S06%

Jgg?

9365

93778

9358
9359

9%6
9368

93798
93804

9360
G%
9

9363

936

9
0
9371

q4ysS?7

9470

9399
9438
9385s

9404
9473

9419%

7S1b#

94SY

B555%

9468%

B797#

93818
93828
93838

93848

9436%

7507%

9434%

8506

93784

9372

9419

B49%*

9437

9438

9440

9475

QY71#

Y40
*

QY72

7183

7552

8313

8314#

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOv-77 1S: 34
RflNCY#

glflgl

169

:8 RM

oufsau

RD.RM
gg.

1s§s
19 3

%.m
asn%fi%

fssems
2502

1702

ncggno
READIN=
RECAL =
RECALT
RECALD

15362
LE;
1
1

REFMT
REFMTX
RELBUF
RELSE =
REPLZ

RESREG=

RESVEC=

2?230

9193

91998
35

4077

RMCS2 = 000010

000006
000022
000034
000012
26

RMDC
RMDS
RMDT
MC% s
Y
RMEC2
= 000046
RMERRS
(034452
PMER] = 000014

9253'
4076
4117

656

HSH?

383

6533

6bbe

80S4s

9789

9801

9872

9881

91?8'
qui

3233
3261

8658
3267

8672
9300

8784

8798

EEES)

9658
4116

%61
4151

5281

5348

5411

se27

Sgeacs

4295

92278

4152

48438

896

838l

4812
y8ils
6296

e4ees

§7§§'
7
gzxo
sg.
ggél.

4907
3725
49738

4069
3727

4098
3729

4148
373

4183
37428

4219

6024

6030

6036

6042

6049

60SY

6147

6l1S2

6157

5335
3

6254
3408

6866

7949

7999

80Ses

8352

8769

8829

9102

3980*

4Y0ee#

4Os4

4090*

413S#

qué
2835.

8313
9057

ggqa
9146

9121

9198

9201

8400
8973
83

8513%
9012
giy6os

BS14
9073
B512¢

8589
9248
BS74s

8684

8699

8712

872s
3296

9320#%

740

8754
932S

8597
8785

8629
8957

8982

9044

3124

8924
g284s

8927
8413

8937
89&7

9044%
3045

904SH
3262

26308

= 000004
= DOO0OO

=
=
=
=
=

]
s

41
ugxso

RMAS = 000016

RMDA
RMDE

gi5§
91978

22608

RETRY

RMBA
RMCS1

B. e e
8, e% B2 oo

SEG 0200

g ok

S
S
S

ROY

F16

MACY1l 30(1046)
22-NOV-77
10:06
PAGE 202
CROSS REFERENCE TRBLE -- USER SYMBOLS

280
82788
845
82828

8763%
gg o
82874

82928
82838
828398
82968
82978
goels
4118

42ll=

JQg;I

4239%

32 ¥
BvYll®

55&?'
8886

B374x

380

g 33+

B8373s

1
234
8585
8407
8383

8607

9304
8316
4153

3974

333
9006#
B354s
8622

397S

4338#

9043*

43E5Ce

90SE*

4871#=

9l122%

S046+#

=
Q047

9S4

RMO3/2 PERF

P11

EXER

mXNIT.
%
RMLA =

ga3se

RMSN

RMO3A
RMO38

RNOP_

RPTHR

$364
i2

8635

8639

9659

8663

598%
8273
4793

3354s
4813

82618
4829

8329
uBY3

8331
5072

8443
6579

ews2e

05381

3460

96788

1122

34aas

§180

36788

9087

o4Sus
G7918

4792

SeM1

96788

926

2esie

82118

8688

8849

9033

SAVREG= 104419

6200

7353

7389

BOSSe

8312

6445

BSOS

SCMND
025136
3CoM . = DODHO0
2¢1
= 000100
3¢10
=
001000

6230
2406
4098
54078

63608

215
gres
2c3° . 838283
2c3° = 935094
25
533«0

8
24058
€a01s
4%

9014

9023

9042

9080

DOOLL?
QIS150

348

SEG 0201

8801

S047
8404

= 0ODIO]

RTC
=
RTNCTR

[
Is
BT]

RMOF . =
RMR
=

10:06

2.] 8312
Gg‘!s

RARS =s

22-NOV-77

Glb

PAGE 203
e e rERENCE TABLE -P USER
“EYHBOLS

C21-NOV=77 15:34

RMER2 =

RMVEC
RMMC
=
RMO3

MACY11 30(1046)

2aTPOW 032430
SAVEFG

034560

037770

211

061

2¢s
3¢

00s2
04024S

2CBA
27"

3¢a

040356
D40504

2OETAL

023179

COND

001370

ECLHT

8857

8860

8866

8955

8963

9024s

8333

e94e

8949

8998

89758
B978

8980

8990

9000

5986

6008w

012

90ise

3368%

6155

6l66*

6167

6169

75558

7S61x

sosos

s170

Bety

B7es

Bese”

93ies

8913

83088
89508

6393

93§

8928
8966
%5

DoTuas

£E5s

2EERFG ougcassgms

3198

8317

2ETVTE Duaseq

8346

837

2ELPAN. 016430
SHDTYP
ZIXTEE
EI7MEM

023150
061372
004910

358
6408
$376s

3519

393

pde

BS0Y

8537
3480

5935
Bl63#

Bl6SH

88868

8724

@822

9090

929

CZRMBBO RMO3-/2 PERF EXER
CZRMBB.P11
21-NOvV-77 15:34

MACY1l

H16

22-NOV-77
10:06
PAGE 204
CROSS REFERENCE TRBLE -- USER SYMBOLS

30(1046)

len
= 0550;3
812708
SLfl$gK

?Eg* %

363;.

4202

SEG Oc02

4224

S40Ss

9161

9167

g 33
66
7284

429
445
7290

T
LRST TS

[

SWo

e Pt Pt Pt Pt Pt Pt Pt b

SUWR

SHTE

8729299999
LT\l
L NE
0
-

P33R
QRRERS

L UILN w

44— -t

6185+

S0s9

9157

9159

ré
1
6987

ggéfli
b
7177

573"

7728

2407 = B830as
=

SW02
SW03

SW0?7
SW08

= D000CH4
=
0

= 0001
= 000200
= 000400
=

10
=
SuWl]
=
Sule
= 010000
SWi3
= 020000
SWIY
= D40000
SW1S
=
100000

&5I
=

SUWE
SuWe

SW?

Sue

6770

= 000040
= 000100

= 000200

= 000400

7284

sell
4751

S837

8988

7741

903S

9069

9286

g?gq

579

7814

757
512

7527#

3822
g1l

7728

gvS‘mT =

1466

TRABL.

TABLED

M
gg;s

TARBL ;
T

S;l
S70M4

T
TRB.

RMO3/2_PERF EXER
.Pll
21-NOv-77
15:34

XY=

; ITVE:= 0‘.%1*0
Yg
037514

THERD
TIMER

%Sm
4

TITLE
0S7S1
TKVEC =
TPVEC =
03]

;SEWVE:

TRFER

TRKLMT

TRNSWT

TRTVEC=

14944

%'4532
0014

TET!
00364
TYPDS = 1044
TYPE
= 104801

MACY11 JO(IMAEFESENOV-”
oii“uszgchg&,S
CROSS
NCE TABL

.}i

2198

7028

97538

$os
9
97
9

37578
974Ss
8

261.8
S098
gzégé:

8
7158

7159%

267:

3289%

3290%

ccb9s

81578

2262

32768

3320

3464
3807
6021
6205

BS71#

s 02

gm
3cS

34
38

6355

64
699

65293

gotog.

; 86

3359

356

742

2'43;

;9800
ggg

998

1848

237

B746%#

B8B83B®

B9S1#

B899%=*

9039#

0S4+

9076+

8721

8734

87S2%

B876l#

8840

8841+

9133

9143#

3433

3447

3449

3451

3453

6630
724

635
76S

665S

S093

3095+

3317%#

8
14
6038
)

30
20
6044
6381

357
B84
60S1
[}

6701

g 14

375

Sgg'
9 ;g

?SHO

7;~0

[

990‘0

740

;ng

;871

841
60S
b3E
1

384

1
6386
9

181

729

3786
3848
6066
6395
182

7300

787
447
6144
398

g?gg
4
614

3458

3794
RIS
6154
6402

bbb

189

zale

7218

324

7341

7343

3806
6016
1
6408

667S
775
223

7345

?;et?)g

;Sgo

7740

7743

7756

7767

7786

3608

6790

B04Ss

9870

9879

%gé .

3817

384S

6013

6392

6481

6529

ge22

6832

66936

6721

8467+

BbESO#

27160

87S3#

89%&

9003

300S*

<9024

3026#

69748

g;‘fa-

g4c2

4o®

8693

7
.}!2

;

030076
D067 36
Y

T‘(Pgfl
Ucp

034840

3S1

g 8

332
8047s

" 83

883Ss

3
e

104402
104404

ULDFLG

25ee

x;g:

TYPOC =
TYPON =

Uflé"

97618
97390

103
1%&:

TYPOS = 104403

9788

7138

6477
6992

TYPEST 023122

9:78s

SEG 0202

3789

UNTASN 0&3 Se

UN?“

0 agos

387
626

43S0s

5331

96788

UNTOFF

[0E3213

3451

e324

9788

38185

3843

S10

6769%

E£77B

6784

J16

CZRMBBO RM0O3/2 PERF EXER
CZRMBB.P11
21-NOV=-77 15:34

= 020000

UNTON

= 00000
s

usl
use

MACY1l 3&(10‘06) 22-Nov-77 10:06 PAGE 206
ROSS REFERENCE TRBLE -- USER SYMBOLS

S
312
.

27658

WCFER

HCF =
HC§§ s

Eé

WCKER
WCKHD =

1
1

3578
7
gasli

WCSEL

1§l

1S1

;z%g

96788

[}

Hfl*T

% Pfl('

3564

b417s

3618

3832

3673

HDI;D
§:

1;2

3284

8941

8E3¢&

8606

8610

9262

9269

327Ss

9252

925Ss

966l

4520%

4524

S0
346

3403

3491

3514

7736

7826

4460

4903

4382

4388

6S72#«
£586
7426

£588#
bblYs#
7435#

6613#

6617

6627

2813
Se
,sg

S387
39
3478

gmq

< 80

53858

SRODD

020252
2908
WRT.RM gl 1
WRT.RD

S346

ggea-%
ggé

92548

9274
738

868

WRT.R1
WRT.R2
WRT.R3
WRT.RY
WRY.RS

0OM1774
8:2062
2072
29;9

9265
gszs

XWCNT
igOluB

6772
1374

Sl
Eswéo

2066

WRY. WD

1776

1100

TAT= sssxss U
YC
032024
Sfl;;é
032000

835806

SAUT

feocees
SBUF

tCDHI
COWe
CHARC
SCKSUWR

38ls

S364i
533
[N]

166

50212

9687

5%3.
g:gSI
3
g:m

HRTPK%

Oé.

250

7478
7449
;HH?I

ggg

001150
t'{l

S4Os
8

142

378

[
7go

924

S11
Y4698

2508s

§§§3

Slees
NS14s

972

9011

92408

8621

8ees

8638

8ese

8662

4992

4957

S03%

sca8

Se77

Sea4

6636

7S68%

7493
74S1s
-

74508

337%
344

001264
001266
031774
033214

26048
2e0Ss
7409%
77288

4
B£577%
7419%#
B80S2

g&%g:

43318

2816

&H( =
ML = B04060
WRTDAT=
lgs
WRTPR - O
WRTPK
77
=

SEQ 0204

S9%

4438

me
74408

HTRG-

niLc

NTLG

[

ror

lg ’

’

Hg&él

481 :

3409

43333

3530'

ueu?-

w&?l.

3466

s078

s278

S306#

S3S3#

S3s4

SEq4

6S1S#

eSegs

s8z2

s827

6023

6029

603s

8041

79238

EBSYl®

BS42®

BSH3®

ESY4s

95468

35S0

7302
3%

7387

7Sk

7480

M43

9434

OPCT

0574

68198

RMAX
RROR

061153

001131
0311

1138

6831
6S40#

333
331

339

5883,

36338

75948

7295%

7296

7315

7330

7293%

7315
8398

9211

9270

9479

3670¢

3671

9518

S218s
7539

sipT
1126
SESCAP= Eussss U
SeTaeL”
0012

2€30s
8834
2571

SFAIR =
SFATAL

000672
001206

*
gskds

0diize
00171

gssle
HEE

YY7%

72808

7338
7333
068

Se63%
7ugux

7450#

S443

7478

7487 %

74958

4G9

MWW

WAL

6730

82y

E498%

S78r

9988

ScETas Ooraus

$226"

couz

5186

339

7ul
S

$F1RST= 00122
033264

343

o
5397
6765

§:

2?25%?@?5

iég5352
i
go%

682S
653;!

95338
37408

8080

gzs
8
Bl4Y44
7443

79718

= §§??g$

S&606

4375

7408

;;69.

8880+

7352

;ggg.

1550

3812

4746

6SE7#

?;7“

3242
031

BHEH4e

;13“

gguflgg
RRTY

3806

383#

L
732

33204

385

8258

S288+

73?%

SO43

RFLC

S037

300

4916

949Ss

4910

S6
S366
6724

4B4S*

w?b?

3R S 5p a0
3432

HH;;

: 75:

SCTSWR

gfl

= 000012

1234
2

70;20

R
181
e3

ey
SErvm

e
(LS

72576

SEQ 0208

3298

FLG

;;

gfl

3281

R
;72; 6804
820

SETE

3280

FBrTINS

$CyL

iui

SCOMND= 000002

§ga s

NTLU

K16

PRGE 207
MACY1l 30(1046)
22-NOV-77
10:06
CROSS REFERENCE TABLE -- USER SYMBOLS

CZRMBBO RMO3/2 PERF EXE R
CZRMBB.P11
21-NOV-77 18:34

]

3495

3436

9497

9sC1

RMO3/2_PERF EXER

P11

21-NOV-77 15:34
1

[}

MACY11

N s

sgwu

;333.

eblis

TE
Fk
g

ONUM

7843

7851

7856

7318

7327

7842

7849

7855%

78628

3277

3311

3331

7302

7387

5197

saves

S27e

Sees

6010

Y&L
e

SS08s
3e0us

7861w

75418
74948

7247

927%

ES
.

;

6844

SEG 020e

SSi4s

729%#*

208
%flég“REFESENCE Tfl - USE YMBOLS
6100%

7826

73CH4
7318

5924

7443

g‘i

6843

2528

PE
PVEC
STRD

L16

6098

3l
128

NOV-77

9846*

98S0s

2S1M4

2S62s

;830

7467

eSb3s

7462

7482

7486#

gi0e

Sle2

SIS

519

51i0¢
1448
43

«
gzg-

519«

032764

E04%

7633%

76468

S076%

0 77%

5
S340

—

W
o
n

Siews

0001

o187
7«

3733%
3732#%
gcisn

O
nn

7470%

9S16s

8248

78
170

RDy=

351%
}%:g

TRK =

388
35

W
wn

SNSEC =

80 1

SNPATC=

74bM®

7493s

blo4s

ShexT=

go8
RRR23

25698

SNCODE =

SOCNT

ele2

25848

TYee
TYPY

7489%

071

i
Tvp

794SH

o169
2hiqs

Sl
2384

S222
2555

5307

sa08

9527

H
g342

§792

S820

95238

5lo8%

952Ss

5305

9524

5306
3298,

4YB8%

I1SPO=

un
W
JO
w

;31 i3

n
w
N
0

n
W
o
w

2S83s
2591s
Q4
978

wn
W
£
B s

S
gw

95268

See9

vs2a

%23

32y

CZRMBBO RM0O3-2_PERF EXER

CZRMBB.P11

MACY11 30(1

21-NOV-77 15:34

0:06

M16

PAGE 209

ROg“‘REFEsSNCE mau‘. -=- USER SYMBOLS

.5.053.

6767

6772

6802%

9517s

2000+

So8is

Sgse

o%00°

6763

95098

79%

S282%

S283%

S284*

S349s%

S53S0%

S3Sis

Se3S

639

Se43

SeS1

S80S

6754

6757

9%32

9633

9585

9592

9593

9600

9601

9608

9609

%16

g;”:s 529;. S300 S347% Su4B2 8876% 950Ss
3%

8083

B8OS4

991‘0:

491S#

6443

%64

9867

4ele

4240

4310

4340

4356

48678

488S

g‘&

4661

4692

4713

4783

4773

4902

5529

ss8e

S683

S694#*

SB9S

see
7
S10S

¥
B8
%.

S619

SeS4

B
B/
9670

Xk
%666

;fi

¥
B/e
95538

BN
B
BB 323.

‘:g;;

S666

0t
BM
S898

RY O E

%IS

o
g8
897

5899

9S64s

%74

33%2.

9601
@@

9609
/UL

%17 9625
k@&

&3;81

P #4
a87
3917
96;‘-0

.y
#

A = sRssss |
033754
032416

9674

334

3353

gé%.

263562

SBLOS

S734
A%

2'4@
3B

644
38w

&gl
M

9577
MW

958S
W

9533
Py

5585

5700

9551s

9670

442l

95678

9666

3118
‘Néfl

43e3e

398
"30263

33
u?gs

987
5222

78818
7515«

N
no
on
wuun

]

’=

9S11s

4176

3915
9SESe

9584

4136

3653

9577

409

497

9576

g’gég:

SSAVRE
SSAVRE

9436s

SEO -

7S24%

752S#

75438

:585;.

95528

EERoB
PI1 CaioNov-rr 1ssaw
;@

fi%
1

BOl1

o RR08e herERENCE TAeLE - SusER EvAboLs

6018

6048

60S3

6058

6063

6072

6146

6151

6156

7129

fi.

s226

s279

S30S%#

S3S2%

S360%

S604

e513%

6578%

BS6S*

6586

3289

3291

3293

3295

3328

6816

7281

7312

7314

7723

%éi:

951Ss

SSETUP= 000156

X ' :

Z%I

Y44

SSHR

¥R

FRIR

1226
16

s§uuc
STATUS=

TSTNM
T
EN

’¥
$Tveec
ST

:lr'W‘W

11
11

{
SUNITM

S313%

S381%

S38S*%

5703

6460*

6463*

95029

R OFY.

$823
B
W8

828
%
o0

873
B8
#B

69588
MY
R

2ae

’f%

7;5

7732

7799

7803

7809

7lbl®

7175

7185

7187%

7721

7730

7746

7770%

7801

7807

32778

’.lfl

b136%

6737

95128

Y9les

4913%

SB00

95108

5-:’53.

S359%

gfleo

30'090

80S0

£S69%

80Sls

949us

80S2

80538

B80S4®

B0S5s

B0S6s

'
7ese

7256%

494S

4947%

4949%

4980

4989

4994

Sl4%

8058

1031758
1776

TYP?S

S310%

S808
B
8

794

TSTH

4757

$803
WA
2

TRPRD

7312
72l

7238

7
juss®
74418

74
.
P399Y
.

8047

12l
i

1254

VECT% 001
=

3343

4563

S307%

4754

S370%

4912

S5371%

4938

S5377%

5525

Se80

4948

5701

64S7»

9501

9502

9503

032
e eSS g3y
s%

950‘70

; -

ROREEY
.SASTA= #xxxss U
.$X
= 001100

B
7

COl

MO QRO BRENGY TRl O: 20 usER%E v AbALs
9505

;&l

7494
a4

gggi

meopm

ool
981

9506

9507

S372%
»

9508

S373%

9509

5374

9510

S376%

SEQ 0209

9511

S378%

9812

64SB*

9513

H4SIH

oo ome BR OB N S

9s14

9s1S

9516

6570%

9491

7931

2%
’

957Ss

CQNGN%EP&GIEN’BGR

21-NOV-77 15:34

DO1

22-NOV-77 10:06_ PRAGE 213
NAMES
CROSS REFERENCE T ABLE -- MACRO

MACY11 30(1046)

6103

g%s

8348

3Y4

6639
6556

7451

7483

7491

7527
7474

7528
7508

7703
7514

80s2

80S3

80s4

80sS

80S6

8057

&®~ ToM wN[Vn}

6694

74390

@N 17] s[ wo0

5834

SEQ 0210

S431

S40S

80S0

8047

7857
7662

381S

3[¥+]

8047

8048

2147

2148

2150

7741

805S

N ~&

0 [

——

3789

w N

7902
7838

7882

CZRMBBO RMO3/2 PERF EXER

CoRnEE Il

S ol cNOV=7 15: 34

.SCAT

1288

)

i :

l:4

1§o

7316

“
.
“
=

1288
1288
1288
1288

18
786M

.S§T

1288

7650

21288

7572

.srgg

.STYPO
.

RBS.

1288

0600&S

ERRORS DETECTED:

MACY11 30(1046)

22-NOV-77

10:06

EOL

PRGE 214

CROSS REFERENCE TRBLE ~- MACRO NAMES

7364

000
O

RMO3: CZRMBS ngga:cm.scom:m:nc:cuo:Toc/ooc/soucnrznnoaznflonvs.Pu.nnoa:cznnea.Pu

RUN-TIME:

nun-nz RATIO:
CORE USED:

42K

DOCUMENT PAGES:

CONDS

/64=40.7

(83 PAGES)
211

SEQ

—