Digital PDFs

AH-9197C-MC-B01

January 1978

192 pages

Original

103MB

view download

OCR Version

151MB

view download

Document:	CZRJDC0 RP04-5-6 MULTIDRIVE LOGIC JAN 1978 bw
Order Number:	AH-9197C-MC
Revision:	B01
Pages:	192
Original Filename:	CZRJDC0__RP04-5-6__MULTIDRIVE_LOGIC__AH-9197C-MC__JAN_1978_gray.pdf

OCR Text

FICHE10OF1

MADE IN USA

flg

Cave

L]8

L L)

o m

BOl
411
1

15-DEC-?7

10:S

JOOOOMLT-DR78GE0S MACY11l

30(10RBPICIS4DEC-77

11KOBORPOEBRIBCSEG

.REM 3

IDENTIFICATION

PRODUCT CODE:

AC-9195C-MC

PRODUCT NAME:

CZRJDCO MLT-DR LGC

ORTE CRERTED:

RPRIL,

MRINTRINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

(C)

1977

HESS

1974,1977 DIGITAL EQUIPMENT CORP., MAYNARD,

NFORHRTION IN THIS DOCUHENT IS SUBJECT TOQCHRNGE

""'*39,4.9*@ R
DIGITAL EOU PHE*
SUHESNO RESPO?SIBILITY
OFT

THAT

LIC

6
SC BED IN THI
MAY ONLY

1S NOT SUPPLIED BY DIGITAL.

S_DOCUMEN
NT
S FURNISHED
OR
COPIED IN

MRSS.

00010000

78010S

SEG 0001

SZR:o~ MLT-DR LGC

1S-DEC-77 10:58

MACY1l

30(1046)

15-DEC-?7

11:03

PRGE

CONTENTS
1.

RABSTRACT

REQUIREMENTS

EOUIPHENT

_ 3 95
LIMINARY PROGRAMS
3.

OPERATING THE PROGRAM

3'5 srnnt?ficr?e ngécnnn
Rcsr

gia

anrxuc

HE PROGRAM

m-—im

THE

CONTROLLING

s
S.7

odiu:

3.5 Pnss/rss T enxunrxon
DATA T

ER_MODE

vgt?( VERIFICATION
CTOR_RDDRESSES

3.8 DURLPORT OPERATION
4.

4.1
9.2

MODE

PROGRAM

DRTE 8 SSERRTOR
PQR

H2. 2

IDENTIFICATION

PROGRAM CONTROL PARAME TERS

PERIPHERIAL DEVICE ADDRESSES

4.2.3
PARAM
4. 3 SWITCH
gEGISTERETSER§ING THE FIRST CPERATION

KEYBORRD COMMANDS
3.4.1

4§ o

N.4.5
4.4.5
mn

S-1
S.2

INFORMATION

PERFORMANCE SUMMARY TYPEOUT EXPLANAT
ION
HQRD/SOFT ERROREDEFINXTIOS
ORS

5 e.
é
SOFT ERRORS

DRTA CHECKING & ERROR RECOVERY
LWrus-

€.

‘R
R’
COMMAND
GENERAL COMMAND

PERFORMANCE SUMMARY TYPEOUT

Laalealial
e gl

CIRIDC.#

DATR BUFFER COMPARISON

VERIFICATION OF DATA WRITTEN

SECTOR REFORMATTING
BAD TRACK/SECTOR FLAGGING

CIRIDCO, MLT-DR LGC

CZRIDC.#11

MACY1l

1S-DEC-77 10:58
7.

1S5-DEC-7?7

11:03

PAGE Y

DOl
SEG 0CC2

[ERROR MESSAGES

7.1
7.2
8.

30(1046)

ERROR DESCRIPTION LINES
DETAIL ERROR LINES

PROGRAM DESCRIPTION

HOW THE PROGRAM 0P ERQTES

g:g Bg“L98358
E RfiéSELECTED FOR EARCH OPERATION

8.9
3.

DRTA PATT

PROGRAM LISTING

MACY1l 30(1046)
DCO MLT-DR LGC
C.P11
15-DEC-77

1S-DEC-77

11:03

PAGE-S

SEG 0004

il.

THE RPO4/S/

TIDRIVE EXERC

TO P ERFORM
TO A MASSBUS
DRRPOH.
RPOS
H70.
IN
DRIV;S ON THE
T
THE
ATE AND SEEK

’fl

AN
INTE:QCT?VEU¥
?RON RPO“S
R_TES

§220

TE SPECIFICATIONS.

HU%T&RR%&SLEXERCISER
PROGRAM WILL EXERCISE DRXVES CONNECTED

SINGL

S.
DUAL PORT DRIVES ARE TESTED
PROGRAM FROM BOTH CONTROLLING SYSTEMS.

RUNN

WILL EXERCXSE A MIXED SYSTEM OF DUAL PORT AND NON DUAL
IVES ARE OVERLAPPED
WHILE
ONE
ON).
SUBSYSTEM DATAH
NTARINED.

.E.

- RECAL IBRA
82$2 gonnn3¥33'nno
vag
HRIT CHECKRgg:HRND
THE HR?TEECHEC
NDS ARE USED TO VERIFY
A PREVIOUS WRITE OPERATIO
R HRITE COMMAND IS SELECTED,
ggE DQTR WRITTEN IS VERIFIED BY TflE
flPPROPRIRTE WRITE CHECK
TR

ER CgHHRNDS AR

LECTED RRNDOHLY

XCEPT FOR THE

PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD;

PROGRAM
OPTIONS ARE SELECTED BY SWITCH REGISTER SETTINGS.
ARE REPORTED ON THE

ALL COMMANDS

ERRORS

TELETYPE.

onrn PRTTERNS

RANDOMLY
BY THE

DYNAMIC

PROGRAM.

AND DATA BUFFER SIZES ARE SELECTED

RODITIONALLY THE ADDRESSES (EG

CYLINDER,

TRACK, nuo secron) ron EACH OPERATION ARE SELECTED RANDOMLY

RCIAUIREMENTS

|
CZRIDCO, MLT-DR

1§
oec-7?
2.1

1S-DEC-77

11:03

PAGE &

FOL
SEG 00CS

EQUIPMENT
REQUIRED
PDP-11 PROCESSOR

BK
HEHSRY (20K IF THE PROGRAM IS INCLUDED IN AN 'XXDP*'

OGRRH
KWll-L

OADING DEVICE
KW11-P CLOCK

RH11 OR RH70 WITH 1 RFO4,

RPOS,

CHRIN

OR RPOB DISK DRIVE

IONAL MEMORY TO A MAXIMUM OF 28K

7 ADDITIONAL RPO4/5/6’S ON THE SAME RH11 OR RH70
e.2

ZED BY THE EXERCISER.

OF
C
UST BE FORMARTTED IN 22
ECTOR - 18 BIT) MODE IS

PREL IMINARY PROGRAMS

RPO4/5/6 DISKLESS CONTROLLER_TEST
PART
MAINDEC-11-DZRJG)
PART 2 (Hfl NDEC~11-DZRJH)
RPO4/5/6_FUNCTIONAL CONTROLLER TEST
PART 1 (MAINDEC-11-DZRJI)
PART 2 (MAINDEC-11-DZRJJ)

RPO4/5/86 DUQL CONTROLLER LOGIC TEST (FOR DUAL PORT DRIVE TESTING)
1

(MARINDEC-11-DZRJE)

(Hfl NDEC-11-DZRJF)

OPERATING THE PROGRAM
THE PROGRAM MAY ag
LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR

[

PQRT e

CERIDC. P11

Tgcgél 30(1046)

IT nnv onos

PROGRRHaz

HE APPROPRIATE 'XXDP’ MEDIA USING THE nssocxnrso
BE INCLUDED IN AN ’'XXDP’ CHAIN.
IF THE

RUN on PROCESSOR WITH 16K,

MORE TO Pnessnvs THE 'XXDP'
PRESERVED

THE

'XXDP’

%onoen WILL

THE PROGRAM MUST BE RUN ON A SYSTEM WITH 20K OR

IN
A 1BK SYSTEM,

LOARDER.

HOWEVER.

THE

'RBSOLUTE'

LOADER WILL BE

MACY11 30(1046)
1S-DEC-77 10:5S8

1S-DEC-77

T-DR LGC

11:03

PAGE 7

GOl
SEQ 00Ce

THE PROGRAM STARTS AT LOCATION 200(8).
PARAMETERS NOT INCLUDED IN
IgES¥EkEEBPE DIAGLOGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM

3. 2

START _THE PROGRAM AT LOCATION 204(8)
NOT AT ADDRESS 176700.

IF THE RH11 OR THE RH70 IS

HE _PROGRAM IS
OPERATIONS ARE INITIATED AND
$ROLLED
8GRKEY onhgflgsnnnflos STARTED,
AND SWYTCH
REGISTER SWITCH SETTINGS.
IF THIS IS ruc ocnan's FIRST START,

THE SELECTEg

STARTS,

rvpeou

YSTEM WILL

THE srnrus OF THE DRIVES ON
TYPED OUT.

ON SUBSEQUENT

Y BE INHIBITED BY SETTING SW<02>.

PASS/TEST TERMINATION

pasg
A
1S oergngaueo EITHER gxrs READ OR SEEKS PERFORMED.

THE sorr

THE spccx

THAN 1 SOF

S REQUIRED

RATE spsc FICATION OR THE SEEK E

xcnr ONS FOR

(NON-PACK

MORE THAN
én§E§ nnon
sesxs
LEVEL

FOR A PASS 1S

'at npgs's

THE

gévso FROM EITHER

RATE

SPECIFICATION

AND RPOB’S SPECIFY NO MORE

RELATED) IN 1 X 1019 BITS READ OR NO

X ggfg ;EBK§.

THE NUMBER OF BITS OR

TERMINING A PRS
RE
SELEC
0 PROVIDE A 90% CONFIDENCE
THRT THE DRIVE IS PERFORMING TO THE APPLICABLE SPECIFICATION.

PASS TERMINATION

END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS.
THE END OF PASS CONDITION USED IS DETERMINED BY PARAQMETER

B.
TEST

IF PARAMETER

'ENDET'

END or PASS occuns WHEN THE DRIVE

IF PARAMETER

'ENDET’

IS
O

eno OF PASS OCCURS WHEN THE DRIVE

HAS READ 1.875
X 1018 WORDS (3
X 10t3 BITS)

HAS PERFORMED 3 X 1016 SEEKS
TERMINATION

THE TEST FOR A DRIVE IS TERMINATED
A.

B.
C.

'ENDET’.

(SW<04>

= 0)

WHEN:

THE DRIVE MRS COHPLETED THE NUMBER OF PARSSES SPECIFIED
PRRAMETER ’'PASCNT

rus TOTAL' ERRORS ACCUMULATED sxcsso 100.

A FATAL ERROR OCCURS:

EM12 OR EMI

RUN TIME
THE EXERCISER PROGRAM MAY Bs RUN_IN TWO MODES.

DET;RHIN‘ BY gs VALUE IN
TER 'MAXDL'.
HE
AM
_RUNS IN A SEEK HEAVY MODE;

THE MODE IS

IF IF *MAXDL
IF ’HRXDL’

1S ONE
APPHOACHES

ONE TRbCK IN SIZE (5720 DECIMAL) T HE ngGAM UNS IN A DRTA TRANSFER
HEAVY
.
THE OPERATION MODE SELECTED,

TI ME VARIES
GREATLY DEPENDING ON
TH E MEMORY AVA LRB
LE OVER 16K, THE

READ/WRITE RATIO PARAMETER - 'RATIO’, AND BY SWITCHES O, 1, & 2
-1

DATA TRANSFER MODE

CZRJDLD MLT-DR LGC

15-DEC-77

1S-DEC-77

11:03

PARGE B

Ol
SEG 0007

1 ?gIVE - APPROXIMATELY 2.5 HRS (TO REACH 1.87S X 1018 WORDS)
8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REARCH 1.87S5 X 10t8 WORDS)
NOTE:

asES“HEIFOLL6H§Rg
S FTERREQBQAQX gg?gfiéIONS) THE RUN TIMES
1 DRIVE - 1.7 HRS (1.875 X 108
WORDS READ)
RADD 172 HOUR FOR ERCH RADDITIONAL DRIVE TESTED.

IF THE PROGRAM IS RUN WITH BOTH SW<00> AND SW<01>
SET, THE RUN TIMES SHOULD BE ABOUT 20% FARSTER.
NOTE:
3.6.2

ON THE FIRST PASS (QUICK VERIFY) THE TIMES ARE

APPROXIMATELY ONE EIGHTH OF THE ABOVE VALUES.

SEEK VERIFICATION MODE
PARAMETER "MAXDL' = 1 SECTOR (256 WORDS)
PARAMETER 'MAXTRK®' = "MINTRK
PARAMETER "MAXSEC' = "MINSEC’
SW«00> = 1 (RERD ONLY MODE)

1 D?%VE - APPROXIMATELY 25 HRS (3 X 10t6 SEEKS)

B DRIVES - APPROXIMATELY 40 HRS (3 X 10t6 SEEKS FOR ALL DRIVES)
UNIBUS & VECTOR RDDRESSES

THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND_VECTOR ADDRESSES.

(REFER

TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES. )

C2RIDC.PI1L

MACY!11l 30(1046)
10:58

UNIT

RDORE SS

ABCRESS

RH11 OR RH70

176700

254

TTY PRINTER

177564

TTY KEYBORRD

177560

KWll-L

177546

100

KW11-P

172542

104

NOT USED

DUARL PORT OPERATION

%880
THE RPOH/S/B MULTIDRIVE EXERCISER PROGRAM. INTO BOTH

SHITCH TH$ CONTRO ER SELECT' SWITCH TO 'A/B’ ON

ETART THE PROGRAM IN EARCH PROCESSCR.
RUN THE PROGRRM RS THRCUGH
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER

EACH DRIVE

figICH IS T0 BE TES D RSR DUAL PORT DRIVE; CYCLE THE DRIVES

GC
-DEC -7

MACY1l 30(1046)
10:S8

1S-DEC-77

11:03

PAGE S

101
SEG COoce

CONTROLLING THE PROGRAM
THE FOLLOWING
ROUTINES IN

TO DELETE AN INCORRECT CHMQCTER FROM AN _ENTRY STRING,

' RUBOUT*

FROM THE

KEYBOARD CONVENTIONS ARE USED BY THE KEYBORRD ENTRY
THE PROGRAM:

RO’

TYPE A

TYPINGA 'RO’ WILL DELETE SUCESSIVE' CHRRRCTERS

TO DELETE AN ENTIRE LINE,

TYPE A "CONTROL U’

("tU’).

QN ENTRY MUST % TEERHIMTEQ SH rE‘ATMER ' CARRIAGE RETURN' OR

A 'PERIOD’.

OGRAM

A _'PER 00

INRTION IS RECOGNIZED BY THE
FR#’ET
ENTRY REQUEST.
Hfi? LINE I TERHINRTED
A *CARRIAGE RETURN’,

THE

PROGRAM WILL

ACCEPT THE ENTERED N.UE AND
WILL DEFAULT TO'THE PRELOADED VALUES
FOR ANY REMAINING ENTRIES.

IF A *CONTROL

C’

WILL RETURN

IS TYPED DURING KEYBOARD ENTRY,

THE PROGRAM

TO THE BEGINNING OF THE GROUP BEING' ENTERED.

DATE & OPERATOR IDENTIFICATION

WHEN THE ocnnn
§§ éuxran Y srnar;o OAT WILL ASK FOR DATE AND

OPERATOR I1.D

ONLY WHEN T

FIRST

THE PROGRAM

n£o¥e

FfOR

THESE ENTRIES OCCURS

S anr;o AND WILL NOT APPEAR WHEN

“ssss n;ss ARE OPTIONAL AND MAY

BE avpnsseg
nxnc
E
85 URN’ IN RESPONSE TO T
REQUEST.
s NOT
ED
CHECK EITHER ENTRY.
UP TO
8 CHARACTERS OF DATE
INFORMATION AND UP TO ? CHARACTERS OF OPERATOR

IDENTIFICATION MAY
ENTERED.
BOTH THE DATE AND THE OPERATOR I.D.
WILL BE TYPED WHEN THE 'SA' COMMAND IS PERFORMED (SEE SECTION 4.4.3).
PARAMETERS

N _THE PROGRAM IS STARTED FROM LOCATION 200,

QSKED TO ENTER PARAMETERS.

THE OPERATOR WILL BE

THE FOLLOWING MESSAGE WILL BE DISPLAYED:

ENTER PARAMETERS:
THE OPERATOR HJ?

NTEI"‘ R

IF PRRRHETER EN RI

’Y'

TERMINATED BY_R _CARRIAGE RETURN

E MADE.

<CR>

ANY OTHER CHARACTER IS ACCEPTED

AS A "'NO' ENTR
HILL IDENTIFY THE PQRRHETER BY THE NAME
cxven BELOW
ox Pan rus CURRENT VALUE OF THE PARAMETER

WAIT FORTHE
E

THE PROGRAM uxLL TYPE *INVALID ENTRY' xr THE

ENTRY IS NOT coaazcr AND WAIT FOR
A CORRECT ENTRY TO BE TYPED
KEYBORRD ENTRY PARAMETERS

DEFAULY

VALUE

30(1046)

1S-DEC-77

11:03

PAGE

Ol
SEG 0C0%

NAME

BRSE

MAXDL

PRSCNY

INTRVL

0 - 2se

CMPLMT
WCSEL

10
8

0 -

FUNCTION

RANGE

(SEE NOTE)

000c0o0

- 999

"MAXDL'

NTROLS THE MAXIMUM BUFFER
ZE _USED FOR DATA TRANSFERS
g?ER OF PASSES TO END OF
M NUT

gNE

THE INTERVAL (IN

)

BETWEEN RUT

RTIC

;RESRS PR ETES 0? IF 25?3;§-0
c OHPRRSIO

OOR 1

RRNDOHLY
H?
1
=)

VALUE

§5;

CZRJDCO MLT-DR LGC
MRCY11
CZRIDC.A1L
15-DEC-77 13:58

AND

COUNT

000001

OOR

TF PARAMETLR = 1, ENDOF pass

"WORDS READ’

END OF PASS
THE NUMBER

M WRI
DERS: IF PARAMETE

COR 1

000001

FORMAT

O'UN
mommm
8
Ro

ENDET

onRFnsfi WRITE HEADER 3 obrn

-7

AUTOCK

0coool

O ORI

R/W RATIO

VU‘U\ LWhu—-0

VALUE

000002

RATIC

IF nnnnsrsn

THE PROGRAM

PERFORM WRITE cutcxs AFTER

EACH
unxr;
COMMAND.
IF PARAME
?
= fEYHE PROGRAM

NOTPRT

000001

OOR

WILL PERF
RANDOML Y
IF Panangr
R é
=

ERROR MESS

CHECKS

DO NOT PRINT

OR DATA ERRORS

OCCURING AT Locnrxons DEF INED
BY THE OPERATOR RS BAD PACK
LOCATION.

JOCO,MLT-DR LGC
MARCY11 30(1046)
cszoc P11
1S-DEC-77 10:58

1S-DEC-77

11:03

KOl

PAGE

SEQ 0010

Psacsmmeg
iE
ZE?oEmfeS“&?%‘SSS"

PRCK

NOTE:

THE PROGRAM WIL

1S DETERHIPEé Y

SIZS Rg&l@!
OPERATOR
MAY

ATIONS

S;L CT A MAXIMUM BUFFER ;&E HH{

MEMORY AVAILABLE.

VALUE SP?CIF IED IS AT LERST 4 KORDS BUT
THE

“.2.8

MAX HUH BUFFER

Y T
PROGRMJ;
980(10) g
CIF ANY OT
MAXIMUM
%ZE
=} LONG RS THE

INITIAL VALUE

'MAXDL'

LARGER

DETERMINED BY THE PROGRRN

PERIPHERAL RADDRESSES AND OTHER LOCATIONS OF INTEREST
TO ALTER THESE LOCRTIONS THE OPERATOR

BEFORE THE PROGR

T MAKE MANUAL ENTRIES

THE KEYB

ENTRY ROUTINE DOES

NOT PROVIDE QCCESS 0 HESE LOCRTIONS
LOC

TAG

CONTENTS

FUNCTION

1144
1146
1150
1152
1174
1176
1200
1202
1204
1212

$TKS
TKB

177560
177562
177564
177566
172540
172542
%09
177546
100

ITY KEYBOARD STATUS REGISTER
TTY K YB?QRD ?UFFER REGISTER

TPS
STPB
SLKCSR
SLKCSB
SLPVEC
KS
SLLVEC

TTY
PRINTER
STAT
GISTER
TTY PRINTER BUFFS
GISTER
Sg
KWll-P
STATUS
REGISTER
g
OF KWll-P
COUNTER BUFFER
KWllVEETOR
SS
ADDRESS
KWll-L STATUS REGISTER
KWllCTOR
SsS
74 (
CIMAL) IF SYSTEM IS 60 HZ;

b2 (

CIMAL) IF SYSTEM IS SO HZ.

THE RH11-RH70 ADDRESS AND VECTOR MAY BE CHGNGES WHEN THE PROGRAM

ISR2TRRTE FROM OCRTION

WHEN

IT ACCESSES

(8) OR_IF THE PROGRAM DOES NOT RECEIVE

THE DEFAULT RH11-RW70 RADDRESS.

PRARAMETERS FOR THE FIRST OPERATION

THE FOLLOWING PARAMETERS ARE USED FOR THE
ARODITION TO THE 'MINIMUM' ADDRESS VALUES)

INITIAL OPERATION

VALUE
RANGE

TRG

1412

BEGPAT

414

BEGCCD

0-8§

=18

(IN

FUNCTION

n "g m_—

INITIAL
VALUE

LoC

-OM-4ANO
V-

4.2.3

RESPONSE

IN "BEGCOD’ )
AL COMMAND FOR EACH DRIVE
"CHECK DATA
CHECK HERDER 8 DATA

11
RT0C BT

MLT-DR

-77
-DEC

flgcgéx 30(1046)

1S-DEC-77

1416

4O4

BEGSIZ

11:03

LOl

PRAGE 12

SEG 001l

4 - MAXDL

SWITCH REGISTER SETTINGS

SW <15 = 1
SW <13 = |

HALT ON ERROR
NHIBIT ERROR
TPE

SW (W

INHIBIT MaxI

SW <

W D =1
§u<
SW 5s =11

RINGTHE TELET YPE
s%“ e
r
Eca
1SPLAY

WHEN

THE

gn-:
Ts

T DERSSIGN
RE;E; QITENPTS)

T
ER&% togm?)
SET, DISPLAY REST
m%i &BSY%TEH STATUS TW;OUTDURING STARTUP.

@ =1
3%

IVES

aTER
m?xonm
F ERROR; DO HaT B1ePLAY

{

;Em
T mgomafisi AFTER &% SROERS

HE PROGRAM IS !ING Rlfl ON R SHITCKESS PROCES

' SOF TM'TSHI CH

SETTINGS OF THE

RECOGNIZE
IN xeveomo

: WT

ROUT V? W%CH

RPO4/5/6
QSMOCT,

OCRTE guocmT; 8). THE

LED TMOUGH A KEYBOARD
fi PROGRAM WILL

N THE PROGRAM IS
Tlli
R PR TY PROCE SING AN

RRLP
'S
NUMBER IN RESPONSE TOT

PRO!PT FROH THE SH CH

NEW =’

'SWR = NNNNNN

EACH TIME

SWITCH
SETTING
b, THE ENTI
IMAGE
nflgr
BE
m
eo
LEZSING
52505
RRE NOT
0 CORRECT TYP
U’ ruuc
"CONTROL

DURING

REGIS

I.E. AN 11/34)

GI%TER 1S

STER

'RUBOUT'

AND

SWITCH
En ;

SSORS WITH ngéutfl.‘.fl REGI;'.'T‘SRS

MY BEUSED.

_IF

THE *SOFTWARE’ SWITCH

PROGRAM FINDS ALL 16 SWITCHES IN THE

‘UP’ P
R%t SWITCH REGISTER R FESENCSS WILL BE TO THE
égof'&;ouéomus R AND THE PROCEDURES DESCRIBED ABOVE MUST
¥YEYBOARD COMMANDS

THROUGH THE KEYBORRD COMMANDS,

THE OPERATOR MAY ASSIGN CRIVES

1 sr

1S-DEC-77

MOl

11:03

PRGE 13

SEQ 0Clz

WRITE AND cn:cx DATA PACKS ( 'k’ c?nmgg),

<M=

mwu 30(i0N6)
CZRJDCO, MLT-DR LGC
IS-DEC-77
CZRIDC. P11

munfinoornmcx
'n'aggmmo
ucs cuxs
A DRIVE
rcunbnveuul
DE

’ES , RERDING, OR WRITING ('

AFTER Tl-? PROG!M HRS BEEN INITIALIZED, THE FOLLOWING MESSAGE
WILL BE

TYPED:

A IR 190 BNrER"Chminos
}:M

2%fiig}T; g‘ft
ENTRIES LL % %0%%5UN?I#R
eyggfingo

m TER"Euinc

%msm?v

NG n‘e‘é

rENiER 2OMMANDS: *

OF THE VALID COMMANDS.
HE PROGRAM WILL THEN ACCEPT mv

AT THE

16
Pflggg&l
5!? %}TNT
oN
rwftn T&ts
co";k?g&’"fi;
QN 'R'
NoT
gnzxm%ivzsMN&&Rfises TSP
ROOR% HITS DRIVE 1.0,
THE 'T’, "W’', AND 'R’
BARD LOCQ?ION N)DRESSENTR?ES FOAR%'E DRIVE BEINGREFERENCED.
AND
;I'EYPESSQGRQH WILL FIRST RSK FOR ADDRESS LIMITS WITH THE FOLLCWING

*ENTER ADDRESS LIMITS FOR DRv @M / RPOM' (O RPOS OR RPOS)
;5 PR?GRRH WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT
AMETERS.

NAME

BRSE

MINCYL
MAXCYL
MINTRK
MAXTRK
MINSEC

10
10
1
1

MAXSEC
NOTE:

DEFAULY

VALUE

2
0

2l
1.

VALUE

RANGE

FUNCTION

(SEE NOTE)
(SE
NOTE)
g-ie
-1
0 -2l

0 -2l

THE MINIMUM CYLINDER ADDRESS
THE
MAXIMUM CYLINDER
ADDRESS
S
THE MINIMUM TRACK
ADDRES
MAXIMUM TRACK
THE
THE MINIMUM SECTOR RODRESS

THE MAXIMUM SECTOR ADDRESS

THE ADDRESS LIMITS RRE IN DECIMAL

THE MAXIMUM VALUES OF 'MINCYL’' AND 'MAXCYL' WILL BE EITHER

410 (10) OR 814 (10) DEPENDING ON THE TYPE OF DRIVE.

THE MINIMUM CYLINDER,

TRACK,

OR SECTOR ADDRESS MAY BE

SPECIFIEC AS BEING LARGER THAN THE MAXIMUM ADDRESS.

WHEN

1S-DEC-77

MACY1l 30(1046)
10:58

11:03

NO1

PRGE 14

SEQ 0013

OGRAM WIL

B B

ecr

N Ll 0t 70 o e

.n"?ne"%négé:ineuvxr?bnt{hh 2§¥R$0R
;gcnnscfg§§iogflgnriv
S“C“xgg
OLLOWING MESS
REQUE
"ENTER 1.D. FOR DRV #N:'

THE opgnaron nnv NTER nn
R ron T
DRIVE OF UP TO &
THE
WITH
ALONG
oWHEN
rn
TH o$£§n
IN #oQ 5
CHARACTERS
'SR’
THE
u,
H%ec
DATE AND 1S EXECUTE ruz
T
Y _ENT

COMMAND

TERMINATED

BY AR '

IN RESPONSE TO rue B o

auz

xoo' ONLY (NULL ENTRY)

ORA "’

FORTHE ADDRESSES OF KNOWN BAD SPOTS ON
THE PROGRAM WILL THEN R?K
THE DISK PRCK USED, UP TO 1
SSES MRY BE ENTERED:
'BAD TRK/SEC ADRS FOR DRV #N 7’

THE OPERATOR MAY DECLARE dP 10 ?
1 BAD LOCATIONS ON THE PACK BEING

USED.

SECTOR.

THE LOCATION MAY

THE FORMATS USE

rgg PROGRAM HIEL INHIBIT DATA znnon nsssncss OR WILL
SPECIFIED ADDRESS,
A
IDENTIFY DATA ERRORS WHICH OCCUR
OF PRRQHETER °norpnr-.
DEPENDING ON THE VALUE
ARE NOT

LERDING

REQUIRED.

C, T<CR>

FORMAT 2:

WHEN THIS FORMAT ? USED,

LERDING

THE ENTIRE TRACK WILL BE

consxognso BAD; DATA ERRORS WILL BE HANDLED AS IN
"FORMA

VE.

ZEROS ARE NOT REQUIRED.

C«CR>

FORMAT 3:

NCTE:

SINGLE

c,T,S¢CR>

FORMAT 1:

IRE CYLINDER, R BAD TRACK, OR A

nasS FOLLOW:

ENTIRE CYLINDER WILL

WHEN TH SEronnnrIS u;s

LERDING ZEROS ARE NOT REQUIRED.

1
"FORMAT

A tRRORS WILL BE HANDLED AS IN

CYLINDER, TRACK, AND SECTOR ENTRIES RRE IN DECIMAL.

THE OPERRTOR MAY TERMINARTE THE BAD ADDRESS ENTRY BY ENTERING
A

OR BY TERMINATING AN ENTRY
PERIOD’ IN RESPONSE TO THE ENTRY REQUEST

WITH A "PERIOC’
'T'

COMMAND

INSTEAD OF A 'CARRIAGE RETURN®.

CZRIDCO,MLT-DR LGC
Tgcgél 30(1046)
CZRIDC.P11
1S-DEC-77

11:03

BOe2

PAGE IS

SEQ 0014

USED TO RSSI?N DRIVE(S) FOR TEST._
THIS COMMAND IS REGUIRED
PERFORM THE
Eg OF THE ORI;E(S)
THE OTHER COMMANDS RRE CONVIENCE
COMMANDS OR

ORT CO!

TN<CR>

FORMAT:

?R%g?

NIRT

EXAMPLE:
NOTE:

0 TO
7 OR "AR'.

ENTRY MUST BE

IAGE RETUURN<CR>.

T0<CR) - ASSIGN DRIVE O FOR TEST
R(CR> - RSSIGN ALL AVRILABLE DRIVES FOR TEST

DRIJE OPERATION BEGINS IMMEDIATELY
AFTER COMMAND IS ENTERED.

COMMAND

USED TO DEASSIGN R DRIVE(S) BEING EXERCISED.
FORMRT:

DN<CR>

N = gnx VE NUMBER.

MARY BE 0 YO 7 OR 'R’.

ENTRY MUST BE

ERMINIATED BY A CARRIACE RETURN <CR>.

EXAMPLE:

MNOTES:

DO<CR> - DERSSIGN DRIVE O

DR<CR>
1.

-E
RSSIGN ALL ORIVES BEING

IVE

WILL TYPEOU & |

REFERENCES 3]

VE NOT QSSI"NED'

. sggflg¥}VES “3H#LE$DERSSIGNED RS THEIR

1S-DEC-77

¥ESTE8 H{LL
§E
ONEYDRBVES
BEING
BE DISPLGYE

'S"

IN (1) RBOVE NILL NOT

COMMAND

gg%DETgREQUEST A PERFORMANCE SUMMRRY TYPEOUT FOR THE REFERENCED
FORMAT:

SN<«CR>

= DRIVE NUMBER.

HRY BE O TO 7 OR 'A'.

TERMINIATED BY
A CRRRIAGE RETURN <CR>.

EXAMPLE:

S0<CR>
SA«CR»

ENTRY MUST BE

- TYPEOUT PERFORMANCE SUHHRRY FOR DRIVE O
- TYPEOUT PERFORMANCE SUMMA
FOR ALL DRIVES BEING TESTED

CZRIDCC,MLT-DR LG

CZRIDC.P1L1L

15-oec-77

MACY11l 30(1046)
10:58

NOTES:

IF 'SR’

11:03

PRGE

coe

SEQ OCis

IS USED ONLY DRIVES BEING TESTED WILL

BE DISPLAYED.

IF PAR
r
NTRV
s NOT
R
HskL
ggr
35&
§x§
SERPQRHHE
Eg GRAM
MMARY
EINTELy DRI
IN rzo AT RTE MINED BY

‘W’

1S-DEC-77

IF THE *SA’ COMMAND IS

USED,

THE PROGRRH WILL TYPEOUT

THE opsnnroa ENTERED DATE, OPERATO

AND THE DRIVE

1.0.
FOR ERCH DRIVE BEING TESTED. THE oh AND OPERATOR
1.0. WILL NOT BE TYPED OUT IF NO DRIVES nns BEING TESTED.

COMMAND

USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPO4/S/6 MULTIDRIVE EXERCISER PROGRAM.
FORMAT:

WN<CR>

= DRIVE NUMBER.

MAY

0 70
7 OR 'R'

TERMINATED BY A CARRIAGE RETURN <CR>

EXAMPLE:
NOTES:

WACCR>
WO<CR>
1.

ENTRY MUST BE

- WRITE DATA PACKS ON ALL AVAILABLE DRIVES.
- GENERATE
R DATA PACK ON DRIVE 0.

DATA PACKS GE?(RRTED BY T

(HD-H-DZRJB) OR

RPO‘O/S/S FORMTTER PROGRAM

HANICAL REQD/HRITE

R) TS%T20F% ACCEPTABLE. (PACKS
HRITEN BYTgé %?
ZRJA" CANNOT BE USED
D UNLESS 'MAXDL’

;F‘*"%:Eb*.é* L bt

i 1,

b B8t eoGBI,
LUIF O T

Ta escmn!nc
HE OPERA RINTRK® “AND CONTINGING
9;g§?£"°YL
10 "HAXCYL
USED FOR $QCH
HRITE IS ELECT?D RANDOML

THE_'W’ COMMAND DOES NOT WRITE HERDERS RAND ASSUMES
THAT THE FORMART OF THE PACK IS GOOD.

THE "W’

COMNO
IS SE

ONLY MODE)

gE
TRRTED IF SWITCH O (RERD
IF WITCH
O SET SET DURING THE

opsnarxonflgr W Snno THE onxvs PERFORMING THE
"W COMMAND
WILL IGNORE THE SWITC

zgg DRBR WRITTEN IS VERIFIED BY A "WRITE CHECK DARTR'

1S-DEC-77

?chél 30(1046)
DCO MLT-DR LGC
15-DEC-77
DC.P11
4.4.5

'R*

11:03

D02

PAGE 17

SEC 0Cie

COMMAND

USED TO PERFORM A SEQUENTIAL READ OF THE PACK.
RN(CR>

FORMAT:

NUMBER.
N = DRIVE

7 OR "R’.
Y BE0 TO

TERMINATED BY A CRRRIRGE RETURN <CR>.

RR<CR> - 2228 Tfis PACKS ON ALL OF THE ONLINE DRIVES.
PACK ON DRIVE
0<CR> =

EXAMPLE :
NOTES:

ENTRY MUST BE

THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA
READ. HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL.

PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS
S CIFIED BY 'HINCYL' "MINTRK' TO THE ADDRESS SPECIFIED
THE READ WILL BE SEQUENTIAL.
BY "MAXCYL'’, "MAXTRK’

GENERAL COMMAND INFORMATION

WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME

THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE

'XNVQLID COMMAND* .

DRIVES ASSIGNED (MITH THE 'T' COMMAND) OR DERSSIGNED (WITH THE

THE ERROR RESPONSES FROM THE PROGRAM RRE RS FOLLOWS

*D' COMMAND) MAY BE ENTERED IN ANY SEQUENCE.
COMMAND(S)

RESPONSE

N
N
N
N
N
N

OFFLI
NOT ASSIGNED
ALREADY ASSIGNED
NOT PRESENT
UNSAF
NOT AN RPO4/5/6

T,
D.
T,
T
T,

W,
S
M,
W
W,
A

R
R
R
R

2UNIT
"UNIT
PUNIT
2UNIT
*UNIT
2UNIT

THE PROGRAM WILL DISPLRY S PERFORHQNCE SUMMARY FOR THE DRIVES
BE DISPLRYED AUTCMATICALLY
BEING EXERCIS; TH 2 SUMMAR I&L
RO OR CAN BE DISPLA ED ON
'INTRVL' IS NOT
P
IF THE
REQUEST BY THE OPE ATOR THROUGH
THE USE OF THE 'S’ COMMAND.
THE PERFORMANCE SUMMARY TYPEOUT CONTQINS THE FOLLOWING FIELDS:
'ORYV’

THE DRIVE NUMBER

<R JDCO,MLT-DR LGC
15-DEC-77
CZR J0C.B11

1S-DEC-77

?8C§él 30(1046)

FOR THE DRIVE
?RHE THE DRIVE
S THE DRIVE PERFORMED
RRT
N AND RERD BY THE DRIVE

ERRORS EM1, EM2,

THE 'OTHER'

EM3

an EMS, 3 EMIO ARE NOT INCLUDED IN

ERROR TOtAL

S. e

SOFT/HARD ERROR DEFINITIONS

S. 2.1

HARD ERRORS

A 'DTE’ (DRIVE T%HING SEROR) OR A _'DCK' (DATA CHECK ERR
HEADER & DATA OPERQTION
RERD DATA OR A READ
WHICH OCCURS DURING A
AND IS NOT CORRECTED OR BECOMES CORRECTABLE RFTER T
HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE B
_SEQUENCE IS 16 RE-RERDS AT TRACK CENTER AND 2 RTTEHPTS
TRY
THE FOLLOWING OFFSETS:

AT EACH OF

RPO6

RPO4/5

ns
+40C M CRO-}
-400 MICRO-INCHES

+200 MICRO-INCHES
-200 MICRO-INCHES

+400 MICRO-INCHES
-400 MICRO-INCHES
+800 MICRO-INCHES
-800 MICRO-INCHES

SOFT ERRORS

( D

+800 MICRO-INCHES
-800 MICRO-INCHES
+1200 MICRO-INCHES
-1200 MICRO-INCHES
2.2

DRIVE

NUHBER OF
THE NUMBER OF 'SKI’' OR 'OCYL' ERRCRS
THE NUMBER _OF POSITIONING ERRORS
THE TOTAL ERRORS OF OTHER TYPES

*SKI*
'MISP’
'OTHER’

SEG 0017

Y THE
RRORS
A
Dfl
OF
HARD DATA ERRORS

O
TOTAL
THE NUMBER

RERD’
'WRDS
*SOFT’
'HARD’

EO2

PAGE 18

PRESENT PRSS

'PRSS’
" ORDERS’
' SEEKS’
'WRDS XFER’

NOTE:

11:03

ECC CORRECTARBLE 'DCK' ERRORS

BECOME ECC CORRECTABLE DURING
’'DCK’' & 'ECH' ERRORS WHICH
READ CORRECTLY DURING RETRY.
RETRY OR WHICH ARE
HERDER RERD ERRORS - READ ORTA, READ HERDER 3 DATA, OR
KRITE DATA

ORDERS.

EE' ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTRBLE
' ERROR DURING THE RETRY SEQUENCE.

DATA CHECKING 8 ERROR RECOVERY
DATA COMPARISON

DATA COMPARISON OCCURS AFTER EACH 'RDDAT'

(READ DATA) OR 'ROHD’

(READ HERDER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS:

THE ORCER TERMINARTED WITH NC ERROR.

11:03

1S-DEC~?7

TSCYél 30(1046)

FO2

PRGE 19

SEC OCie

THE opsnnrxon TERHINQTED WITH *DCK' SET AND THE ERROR
cron IN ERROR 1S READ
1S ECC CORRECT Bk ;
RETRY RTTEMPTS

CORRECTLY AFTER

VERIFICATION OF DATA WRITTEN

AFTER

THE DATA WRITTEN IS CHECKED uxru THE
'AUTOCK® IS 1.
- IF PARAMETER
COMMAND WILL
E , CHECK
BE PERFORMED RRNDOHLY )
WRITE CHECKS

EACH uaxr; OPERATION,

095
(IF -aurocx' xs

SECTOR REFORMARTTING

THE PROGRAM WILL REFORMAT RN UNCORRECTRBLE ERROR SECTOR IN THE
FOLLOWING CASES (PARAMETER 'FORMAT’ MUST BE _SET AND SW<00> = 0J.
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED.
A.

DATA CHECK ERRORS
- EM2l

SRITE LhEcK323557€
Egggnseaagnae

B.
E.

RRORS - EHEO
SSRQE RERO

EM3

TIH

EM24, EM2S5, EM2B, EM27

BAD TRACK/SECTOR FLAGGING

NOT HAVE AN AUTOMATIC BAD TRACK
SINCE THE RPO4 S¥BSYSTEH DOE?
IDRIVE EXERCISER RLLONS THE _OPERATOR
HANDL ING CAPRBILTI

TO IDENTIFY UP TO 8°BAD TRRCK/SECTOR LOCATIONS
WHEN THE DRIVE IS

RSSIGNED FOR TEST.

(SEE SECTION 4.1 FOR ADDITIONAL INFORMATION.)

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

EHE
OPERATOR,

THE

PROGRAM WIL L INHIBIT THE ERROR REPORT FOR THAT

DRTR CHECK ERRORS (’ DCK'

INEOHngTERRORS ("OPI")
8:%52TION
HEARDER RERD E

ORS be FER’ & "HCRC', "HCE' & "HCRC’, 'HCRC')

OPERATOR MAY REQU ST
OPTIONRLLYzgg

HRERS

'NOTPRT’ HUST

RROR REPORT FOR FLRGGED
T STARTUP.

PROGRAM HILL IDENTIFY ERROR ME SRGES RSSOCIRTED WITH THE PRCK THESE

ERggRSWILL NOT BE RDDED TO THE ERROR TOTALS MAINTAINED BYTHE

ERROR MESSAGES

DRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (IF AVRILABLE) A
LINEPRINTER. ALL ERROR CONDITIONS ARE REPORTED IN ERROR MESSAGES:
THE PROGRAM CONTAINS NO CODED ERROR HALTS.
IF THE PROGRAM HALTS
(ASSUMING, OF COURSE, THAT SW<IS> IS NOT SET),
AN UNRECOVERABLE

PROGRAM CONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FRILURE HAS

DR LGC

1S-DEC-77

MACY1l 30(1046)

15-DEC-77 10:58

GOe

PAGE 20

11:03

SEC 0C1S

OCCURRED.

ARE MADE UP OF SEVERRL INES. ERCH TYPE OF ERROR
MESSA
ERROR
ALL OF THE
WITH IT.
PEAR
M
OPTIONAL LINES WHICH
HAS SEVERAL
ERROR MESSAGE LINES HH&&H HRY APPEAR ARE GIVEN IN THE
POSSIBLE
SECTION

DESCRIBING THE PARTICULAR

ERROR HERDER.

ERROR DESCRIPTION LINES

MESSAGES EMI, sna

EM3, EMY,

oxsanvso ON'THE tTY.

EMS,

'THE OTHER'

EMIC,

EMIL,

& EMI2 ARE ALWAYS

MESSAGES ARE DI SPLAYED ON EITHER

THE LINE PRINTER cxr AVAILABLE) OR rue TTY.

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.)
MESSAGE
TAG

EMI

TEXT

RH11 INTERRUPT OCCURRED (RPRS=0)

THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER
(RPAS) WAS CLEARED.

EM2

UNEXPECTED ATTENTION OCCURRED
THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WRS NOT

PERFORMING AN OPERATION

EM3

MRSSBUS PARITY ERROR (MCPE=1)
THE RH11 DETECTED A_CONTROL BUS PARITY ERROR WHEN RERDING
THE INDICATED REGISTER FROM THE INDICAT ED DRIVE.

EMY

MASSBUS PARITY ERROR (PAR=1)
THE INDICATED RPOY DETECTED
A CO NTROL BUS PRRITY ERROR
WHEN THE RH11 LORDED THE SPECIFI ED REGISTER

EMS

ADDRESS PLUG CHANGE BIT SET

THE 'OPE' BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED.
EHE

RH11 DIDN’T RESPOND TO ADDRESSING

WHEN THE PROGRAM ADDRESSED THE RH11, NO RESPONSE WARS RECEIVED
FROM THE INDICATED RDDRESS.

EMIC

UNCORRECTABLE MASSBUS PARITY ERROR

THE PROGRQH HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED

EMLL

FATAL MASSBUS PARITY ERROR

A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH1l RTTEMPTED

CZRJDCO,MLT-DR LGC

CZRJDC.PL1

1S-DEC-77

MACY1l 30(1046)

1S-DEC-77 10:58

PAGE 21

11:03

SEQ 00z0

TO PROCESS R PREVIOUS, DIFFERENT PARITY ERROR.
EMI2

PERSISTENT DEVICE UNSAFE

Mycioioli Y phagtte

T RN

EEEEXESCISED UNTIL THE UNSAFE CONDITION HRS BEEN
EM13

OPERATION NOT COMPLETED WITHIN TIME LIMIT
THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND
AFTER THE OPERATION WAS INITIATED.

EMIN

UNIT WENT OFFLINE

ggOICRTED OPERATION.
THE
HE DRIVE WENT OFFLINE gRING

'HOL’HEIT ?ECRHE
(T

?RRH Hg%L fl?TOHRTICflLLI

REASSIGN THE DRIVE
T
DERSSXGN
H THE 'T’ COMMAND TO REINITIQTE TESTING

/
EM1S

OPERQTO

NO RESPONSE TO PORT REQUEST

THE _PRO

TO THE

g? TEST3N$ ?URL PORT DRIVE

REQUESTING PORT

SECOND

WITHIN 10

TO THE DRIVE FROM THE REPORTING PORT.

EM20

WHICH HAS NCT SWITCHED

QF ER PORT REQUEST

HEADER CRC ERROR

A HEADER CRC ERROR WAS BETECTED AT _THE INDICATED DISK ADDRESS.
THE CONTENT THE HEARDER ARE DISPLAYED. THE OPERATION WILL
BE RETRIED

EM2]

DATA CHECK (’DCK’) ERROR

CHECK ERROR WAS

DETECTED

AT T

NDICATED

SECTOR.

ATA
INITIATED
(INCLUDING OFFSET) WILL BE
SEQUENCE
THe
oL L RE TRY
TRY CRGuERCE
IN ERROR IF THE ECC HARD ERROR ('ECH) BIT

FORSEHE SECTOR

EMze

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

B IT
A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ('DCK')
RI
s
IED
BE
WILL
OPERATION
THE
SET,
NOT
1S
ECH'
1IF
s SET.
T0_3 TIMES; IF THE
BE RETRIED UP'TO 16 TIHES

EM22

BiT 1S

SET, THE OPERATION WILL

WRITE CHECK ERROR - DATA CHECK (°'DCK') NOT SET
gTE CHECK ERROR OECE sg
"DCK' WAS NOT _SET.
THE
DISPLAYED _IN THE ERROR
NORD WHICH CRUSE
THE OPERATION WILL BE RETRIED 3 TIMES.
MESSAGE.

EM2Y4

HEARDER READ ERROR - 'FMT' BIT DROPPED

MACY1l 30(1046)
DR LGC
15-DEC-77 10:58

1S5-DEC-77

102

PRGE 22

11:03

A unxr:
gm mxrs CHECK DATA,

SEG OCzi

OR
A READ DATA WAS BEING

RROR OCCURRED.

REQDETHE
THE PROGRAM RE-

BIT WAS SET
OF THE ERROR SE OR AND ?HE"HCRC'
THE OPERATION WILL

S_OF TH? Hg R ARE DISPLAYED.
CONRE
TRIED 3 TIME

EM2S

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

SIMILAR TO EM24, EXCEPT THAT THE 'HCE' ERROR BIT_WAS

SET INITIALLY. 'THE OPERATION WILL BE RETRIED 3 TIMES.
EM26

FORMAT ERROR

('FER’)

FORMAT ERROR OCCURRED

"HCRC' BIT WAS NOT SET.

DISPLAYED.
EM27

HHEN THE HEQDER WAS RE-RERD, THE

THE CONTENTS OF THE_HEADER' ARE

THE OPERATION WILL BE RETRIED 3 TIMES.

HEADER COMPARE ('HCE') ERROR

SIMILAR TO EM26 EXCEPT THAT THE HCE BIT WAS SET INITIALLY.
THE OPERATION WILL BE RETRIED 3 TIMES.

EM30

MISCELLANEOUS DRIVE ERROR

THIS HESSRGE IS GIVEN FOR THE FOLLOHING ERROR BITS:

*IXE',

EM31

'ROE’,

"RMR’,

'ILF’',

OR '"ILR

OPERATION INCOHPLETE s OPI’) ERROR

QECQSERRTION INCOMPLETE ERROR OCCURRED AT THE INDICARTED
EM32

DRIVE TIMING (’'DTE’) ERROR

DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR.
OPERARTION WILL BE RETRIED 3 TIMES.
EM33

THE

PARITY ('PAR’') ERROR AFTER OPERATION STARTED
THE 'PAR’ BIT WAS SET WHEN THE OPERATION WAS COMPLETED.
OPERATION WILL BE RETRIED 3 TIMES.

EM34

WRITE CLOCK FRILURE

('WCF')

A WRITE CLOCK FRILURE OCCURRED DURING THE OPERATION. THE
OPERATION WILL BE RETRIED 3 TIMES.

THE

MACY1l 30(1046)
CZRJDCO, MLT-DR LGC
15-DEC-77 10:58

CZRIDC.P1L

EM3S

15-DEC-7?7

11:03

JOoe

PRAGE 23

SEG COezz2

INVALID ADDRESS ('IARE’) ERROR

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION.
EM38

WRITE LOCK ('WLE') ERROR

A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE
LOCKED.
EM4Y0

RH11 OR UNIBUS TRANSFER ERROR

"TRE’'

IS SET IN THE RHll CONTROL
REGISTER _AND NO DRIVE

ERROR HAS OCCURRED.

THE OPERATION WILL BE RETRIED 3

TIMES IF THE ERROR WARS CAUSED BY 'DLT’,

OR
EMY]

'MDPE’

'UPE',

"MXF’,

BUS ADDRESS OR WORD COUNT INCORRECT
INDICATES
NO DRIVE ERROR OCCURRED BUT EITHER THE BUS RDDRES S INDIC

WORDS WERE TRANSFERED OR
THAT AN INCORRECT NUMBER OF

WORD COUNT REGISTER 1S NOT ZERO.
EM42

T THE

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED

NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT
COMPARE.

EM43

CAN'T MATCH DATA READ WITH A PATTERN

THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD

PATTERNS.
EM4Y

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH1l
THE OPERATION COMPLETED NORMALLY; HOWEVER,

THE PROGRAM

§3ENRH§{TQE¥ ERROR BITS IN THE RPOY SET OR ERROR BITS IN
EM4E

ECC LOGIC FAILURE

THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RPEC1)
OR THE CONTEN OF ECC PATTERN REGISTER (RPEC2) RRE NOT
REIGSTER IS EITHER'O' OR > 10041 (8)
Hg TION
VRL%
HE PATTERN REGISTE

EM4YE

CONTAINS

ZEROS

BUS ADDRESS OR WORD COUNT NOT CONSISTENT

THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE

NUMBER OF WORDS TRANSFERED AS_INDICATED BY THE BUS RDDRESS
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE
WORD COUNT REGISTER.

EMSC

SEEK INCOMPLETE OR OFF CYLINDER ERROR
THE DRIVE SIGNALED EITHER ’'SKI'

OR 'OCYL' ERROR BITS.

Z2RJDCO, MLT-DR LGC

CZRIDC. P11

=77
IS-DEC

HSC;éI 30(1046)

1S-DEC-77

KOe

11:03

PRGE 24

SEQ 0023

EMSI

PROGRAM DETECTED POSITIONING ERROK

A HEADER COHPRRS ;RROR
OCCURRED_('HCE'}:

Pnocannfls

OF
EMBO

'RPCC’'

T THE CYLINDE

NHENTTHE

FIELD DID NOT AGREE
WITH THE CONTENTS

OF
THE DRIVE.

THE DRIVE WILL BE Rsanxanarso

DEVICE UNSRAFE
THE

INDICATED DR%&E UNSARFE ERROR OCCURRED;

CLEARED BY A
7.2

HOKEVER

HE
ER OF THE secTdR IN Ennbn

CLEAR®

INSTRUCTION.

THE ERROR WRS

DETRIL ERROR LINES
THE LINE NUMBERS GIVEN BELOW RRE FOR REFERENCE ONLY.

TT:TT:7T

(DESCRIPTION OF ERROR)

"TT:TT:7T7’ IS THE_TIME SINCE THE PROGRAM
WAS STARTED.
TT:TT:TT IS GIVEN IN HOURS:
MINUTES: SECONDS.

'PRESENT ORDER = XXXX

PREVIOUS ORDER = YYYY’

MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW:

sesx -

RECAL -

DRVCLR -

LSE -

(OCTAL 3)

Ex
T

vé

;

(OCTAL 7)

cL snn (OCTAL 11)

(OCTAL 13)

OFFSET - OF 5%5 (OCT

fS)

c 0
CEN
NE (OCTAL 17)
READIN - REARDIN
T (OCTAL 21)
CK K
ACK
;ocs (OCTAL 23)
ARCH - SEARCH (OCTAL 31)
WCKD MWRIT
SHEEK DATA (OCTAL
KHD T
K HEADER & DATA (OCTAL S3)
WRTDAT WRITE DATAR (OCTAL 61)

THD - WRITE CHECK HEADER & DATA (OCTAL £3)
RDDAT READ DATA (OCTAL
71)
ROHD AD HEADER & DATA (OCTAL 73)

(DISPLAY OF THE nuxxznpou/s
/6 REGISTERS IN Tuo GROUPS;
RPCS1,RPCS2, RPDSI RPE
5
R2,RPER3,RPEC]1,
&
RPEC2 FORM THE FIRST

GROUP: ALL

6§ 333926 Is ser ONLY
)

cxsrshs ARE' IN THE SECOND GROUP.

HE REGISTERS IN THE FIRST GROUP WILL BE

Tgcgél 30(1046)

1S-DEC-77

LO2

PRAGE 25

11:03

THE ABOVE
LINE WILL BE TYPED IF THE ERROR OCCURREC DURING
THE NON-DATA TRANSFER PART OF THE CPERATION.
*# ERROR AT BAD TRACK/SECTOR’
THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS

ON Tgs PACK WHICH THE
*NOTPRT' MUST

OPERATOR

0 FOR

THE ERROR

ngfl;éF659 AS BEING BRD.
PORTED.

PRRAMETER

A WORD CALLED °'STATUS’ 1S DISPLAYED WITH Tgs RPO4/5/6 REGISTERS.
THE
CONTENTS OF THIS HOR% IDEN ;FY HOW THS ;RR
Hfl? PROCESSED BY THE
RPOY/S/6 DRIVE HANOLER ROUTINE.
uT
THE
BITS IN THIS WORD ARE ENCODED
RS FOLLOWS:

BIT #
15

MEANING IF BIT IS '1’
ERROR OCCURRED

DONE

(BIT07=0), BITS 14-9,

1 SPECIFY TYPE

(BITO7=1), BITS &-3 SPECIFY TYPE

DRIVE 1S OFFLINE

PERSISTENT UNSAFE CONDITION EXISTS

UNCORRECTRBLE PARITY ERROR OCCURRED

FATAL Pnnérvflgnnon OCCURRED.

OPERATION uornsonpkgrso WITHIN 1 SECOND
ALL OTHER
Ps ogggo.
MASSBUS CLE
WERE RESTARTED.
OUTSTANDING OPERATI

DONE - OPERATION COMPLETED

WAS PERFORMED

MASSBUS CLERR

DATA ERROR OCCURRED DURING THE TRANSFER

ERROR OCCURRED uust SEARCHING FOR THE ‘' TRANSFER'
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS

CORRECTABLE UNSAFE CONDITION OCCURRED

DRIVE ERROR OCCURRED THAT CRUSED AN AUTOMATIC

PORT REQUEST TIMEOUT

NON-EXISTENT DRIVE REQUESTED

RECAL IBRATE SEQUENCE

LINE 3

ERROR AT CXxX TYY SZZ

PREY RDOR = CULU TvV SWW

SEG OCz4

MACY1l 30(1046)
CZRJDCO,MLT-DR LGC
15-DEC-77 10:58
CZRJDC.P11

THE ACT
DISK

1S-DEC-77

11:03

PRAGE 26

RODRESS OF THE ERROR SECTOR AND THE PREVIOUS
SS RARE GIVEN IN THIS LINE CYLINDER, TRACK, &

SECTOR ADDRESSES RRE IN DECIMAL
LINE 4

PRESENT RDDR = CXXX TYY SZZ

PREV ADDR = CUUU TVV SWW

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED;

SS IS ano cxv:n

THE PREVIOUS

ADDRESSES ARE GIVEN IN DECIMAL

CYLINDER, TRACK, & SECTOR

LINE S

= XXX END CYL = YYY
START CYL

THIS LINE IDENTIFIES THE STARTING CYLINCER OR A SEEK (IMPLIED)

RN% THE DESTINRTION CYLINDER.
DECIMAL.

CYLINDER ADDRESSES ARE IN

LINE &

START CYL = XXX

END CYL = YYY

LTA

R
RPBA = XXXX

ACTUAL CYL = 222

RPWC = YYYY

THIS LINE GIVES 7HE CONTENTS OF THE RH11 BUFFER RDDRESS
REGISTER AND THE RH HORD COUN REGISTER
THIS LINE IS
NOT PRINTED IF SH(DS)

IS NOT SET

LINE B

START CYL = XXX

START TRK
= YY

THIS LINE IDENTIFIES THE STRRTING

OPERATION.

= XXXX
RPDA

CYLINDER, TRACK, AND

START SECTOR
= 2ZZ
DISK ADDRESS OF THE PRESENT

SECTOR VALUES ARE DECIMAL.

= YYYY
RPCA

OF THE RPCY TRACK AND SECTOR
INE GIVES THE CONTENTS
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER
THIS LINE IS NOT PRINTED IF SW<0S> IS NOT
€S REGISTER.

SEC C0CzsS

CZRIDCO,MLT=-DR LGC

CZRIDC.P11

MACY11 30(i046)

15-CEC-77 10:58

1S-DEC-77

1i:03

NO2

PRGE 27

SEQ 0026

SET.

LINE 10

RACTUAL NUMBR WRDS XFRD = 2272

SIZE = YYYY

BUFFER ADDR = XXXX

LINE GXV$S gE STRRTI ADDRESS OF THE BUFFER USED FOR THE

Reht bath
ThaeFer orention, ISSize gF eBUFFER
T TN
OCTRL THE SIZE HORO TRRNSFERED VALUE ARE
E

GOOD DATA = XXXX

= YYYY
BRD DATA

THE ACTUAL DATA FROM THE BISK

gooo DATA,
THIS LINE cxvss THE

AND THELOCATION

POSITION IS IN oec

= ZZZ
SECT POS

SECTOR
OF THE ACTUAL DATA.

THE SECTOR

HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX
THIS LINE GIVES THE CONTENTS OF THE HERDER OF THE SECTOR WHICH

GAVE THE ERR

RPEC1 = XXXX

RPEC2 = YYYY

SUCESSFUL RETRY OF A SECTOR
A
THIS LINE WILL BE PRINTED AFTER

WHICH BECARME ECC CORRECTABLE DURING RETR

ECC CORRECTABLE WITHOUT OFFSET

&gEEEECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ARTTEMPTS ARE

READ CORRECTLY AT OFFSET

THE

OFFSET

MICRC-INCHES

SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED
VALUE.

Tgcgél 3001046)

1S-DEC-77

ECC CORRECTARBLE AT OFFSET

11:03

BO3

PRGE 28

SEQ 0027

MICRO-INCHES

BFE gECTOR IN ERROR BECAME ECC CORRECTRBLE AT THE INDICATED

CORRECTED ON X RETRY
THE OPERARTION WAS PERFORMED ERROR FREE ON THE INDICARTED RETRY
ATTEMPT.

LINE 18
UNCORRECTARBLE ARFTER X RETRIES

THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE
INDICRTED NUMBER OF RETRY RTTEMPTS.

DIFFERENT ERROR DURING RETRY

WHILE THE PROGRAM WAS RETRYING THE

ERROR

DIFFERENT CCCURRED.

IF THIS LINE IS PRINTED
THE RH11/RPOY4 REGISTERS WILL ALSO BE
PRINTED (SEE LINE
2
DATR COMPARISON ERRORS

A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE.

TOTAL COMPARE ERRORS = XXXX
THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT.
VALUE

THE

GIVEN

IN DECIMAL.

THE

DATA COMPARED OK

THIS LINE

INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING

ECC CORRECTION.
LINE 23

MACY1l 30(1046)
CZRJDCC,MLT~DR LGC
15-DEC-77 10:58
CZRIDC.P11

1S5-DEC-77

11:03

Cco3

PRGE 2%

SEC COze

ECC CORRECTION RESULTS

HME PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED.

ae'foggmS&&sé’r‘xo’fi"flm ?rue L%RBOs?(&zrég 5038“cnSn 3n§"9nm EBORD(S’
ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR
THIS IS AN INFORHRTIONGL LINE HHICH WILL BE PRINTED FOR 'DCK' ERRORS

WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING
RETRY.
’'XXX' IS THE WORD OFFSET VALUE FROM 'RPEC1' AND IS IN

DATR RERD
BE PERFORMED

ERROR WAS NOT IN THE
ECC CORRECTION CAN’T

THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY.

CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE)

IF SH<03> IS SET,

ROR OR °’
;

THE SECTOR HHICH GAVE THE 'DCK', °'DTE’' OR,

D’

CONTEN S OF THE SECTOR FOLL b

ORDERS: WWW

ERRORS: X

RROR IS PRINTED.
LINE.

MWRDS XFR: YYYY

THE

WRDS RERD: 2222

THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING

TYPE ERRORS.

HHICH

THE_TOT

PORTED THE E

NUHBER OF COMMANDS GIVEN YO THE DRIVE

*ERRORS IS THE TOTAL ERROR COUNT FOR_THE DRIVE AND INCLUDES
EVERY ERROR DETECTED, REGARDLESS OF TYPE.
’HRDBRXFR’ IS THE TOTAL NUMBER OF WORDS WRITTEN AND RERD BY

THE

DRIVE.

*WRDS READ®

IS THE TOTAL NUMBER OF WORD RERD BY THE DRIVE.

ORDERS: WiWW TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI, OCYL ERR =

1S-DEC-7?7

Tgcgél 30(1046)
CIRJDCO, MLT-DR LGC
1S-DEC-77

CZRIDC. A1

PARGE 30

11:03

SEG 0029

THIS IS THE LARST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS.

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

REPORTED THE ERROR.

' TOTAL SSEKS'

DRIVE.

BY THE

IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED

'TOTAL POS ERR’ ? THE TOTAL NUMBER OF POSITIONING ERRORS WHICH

THE PROGRAM DETECTED FOR THE DRIVE.

*TOTAL SKI,OCYL ERR’ IS THE TOTAL NUMBER OF 'SKI’' OR 'OCYL®' ERRORS

SIGNALED BY THE DRIVE.
PROGRAM DESCRIPTION
PROGRAM OPERATION

ARE
unxcu
sPmmcrsns
sémm?fi; 'fiLw?'HE
Pmmtzngngsn c;rls
AND
FOR VALID
Y EN RY C
IE')

RH11 N

CONSISTENCY

WHEN THESE ACTION

S SET, TTY E BOARD

KHU-P CLOCK
#é L OR

INTERRUPT Wi g

D, THE PROGRAM TYPES

WWE BEEN COHPLE

IS STARTED.
OUT

COMMAND ENTRIES WILL NOW BE ACCEPTED

PR?GRM
5
INTIKIZE COMPLET

THE PROGRAM SCANS ITS INTERNAL RSSIGNMENT TABLES, LOOKING FOR:
1)

3)
4)

VES TO ASSIGN/
9?
E&M
NG c
IVES
OR P
DRIVES C

R% ESTS
ouT
INITIARTION, BUFFER ASSIGNEMENT,

Sé?

LECTION,
ETING CURRENT OPERATIONS.

THE PROGRRH CONTI

CWANG IT? TRBL;S %NT;
L_AN

T INITIAL STAR

IN THE CASE_OF

ENTRY

IS FOUND.

HE FIRST ENTRY HILL

BE MADE BY THE RQTOR WHEN A DRIVE 15 ASSIGNED ('T® COMMAND)

uuen A onva
xs RSSIGNED THE staoano ENTRY nourxne VERIFIES THAT THE
AND IS ONLINE. THE RSSIGNMENT ROUTINE
VE IS PRESE Rs S AN RPOY

ISS
HE
"RECALI

R?gNT’ INQTRUCTION SETS 'FMTE22', AND ISSUES
%RUCT

TE'

cveo aurr R IS ASSIGNED.
Sg; FOR n% nmagu m; s%

rxu.sncWITHWRITTHE
WILL
xssuso
HE

JION IS A WRITE

ua E

cukneCHECK onoens ARE
snu.
WRITE CHECK ORDER USES THE
CK OR

ASSIGNED BUFFER

WRITE OR ER ) CONTROL
FOE HE PRECE;DING
bi CTED
TO 0 THE COMMAND 1
IATION ROUTI
H

?ROE

IS Tl-EN PRSSE

ROUTINE FIRST LOOKS AT THE CYLINDER RDDRESS OF
1A
THE COMMAND INITIATION
THE REQUESTED OPERATIO N.
IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER

15-DEC-7?7

15-DEC-77
1

PERFORM TO-E
0 T

THAN

RATI

DRIVES

EO3

11:03

RRT ONTRR&

Hgn

R’ sscron.

uxnc

PRGE 31

SEG 0030

RAM ISSUES A SERRCH_INSTURCTION

(

cron uuxcu s 8 SECTORS

% CTO

EARLIER

PROGRAM TO INITIATE

onx&

ALL

gfl gt

SEEK x SUED BY

SREvE Pind G5 INELIED. SSE&““‘“ ?’?“Tu?"g?1o JHEN B_SEARCHING
N DISK WITH mS’r“b’? the BESTReD'Sector.
OF THE
CoMPRAES THE POSTTIO
TRANSFER
INITIRTED.

SECTOR.
IF A _DRIVE I

NGYE
BEEN ON CYL INDER
RS

TAR RO

55573"%
D TO

HEY ARE ALSO CHECKED.
THE DRIVE NERREST

033

CZRIDC. P11

Hscgél 30(1046)

sfi%‘

CZRIDCO,MLT-DR LGC

ILL

HAVE

ITS

THE

ANOTHER SEARCH

TRANSFER AFTER THREE
TY
R
VES WHICH HAVE

IVE
REGISTERS
ITING DRIVE

nxrv %Tcg?’
RROR a' ir'" 4 %LL
;PT‘

DRIVE
11
B

REGISTERS

§a€ADDRESS

mn%& &msgsu'f"Tx?
LIT
MEcOGEEE*HEHE
tve
mes
ofl Aum*mc
TIATES msn opsmnou ON THE RELERSED DRIV
PRCCESSED IN THE FOLLOWING ORDER.
S WHICH OCCUR
S WILL BE REPORTED RS THE FIRST ERROR TYPE CHECKED.

MULTIPLE

ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY.
PERgAéTENT
UNSRFE

ONDITION
- EMi2
PflRITY ERROR - EMIO

FATAL MASU PAR
OPERATION NO COHPLETED
HITHIN TIHE LIMIT - EMI3

UNIT WENT OFFLINE -

ERRORS REPCRTED FOR OPERATIONS WHICH COMPLETE NORMALLY.
TRB% UNSAFE - EMBO

RE orE NG ERROR - EM32
82T
WRITE

M2l

cx W m ocx ssr - EM22

HEADER
E
E 5835 EM2S, EM27
PROGRAM DETECTED POSITIONING ERRCR - EMS]
SEEK mcom.sr

OR_OFF cvuuosn ERROR - enso

WRITE CHECK
2 E SET - EM23
RH11 OR umau
m NSFER snnon - EMS0
"OPI' ERROR - EM3
"PAR’ ERROR - EH33

LGC

HRCYél 30(1046)

16-DEC-77 10:5

'WCF'
'

11:03

1S-DEC-77

FO3

PAGE 32

SEG 0Cz!

ERROR - EM34
OR - EM3S
ERROR - EM36

MISCELLANEOUS DRIVE ERROR - EM30

ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC.
BUS RDDRESS OR HORD COUNT XNCORRECT - EMY1
ERROR DETECTED - EM42
I
DATA_COMPARE

no ERROR stum.soBY THE RH11 - EM44

ITH
CAN'T MATCH DflTR SG?

ECC LOGIC rnn.uat =

BUS ADDRESS OR_WORD coum NOT CONSISTENT - EM46
8.2

DUAL PORT OPERATION

pom opsnmxou IS NEARLY IDENTICAL TO THE OPERATION DESCRIeso
% = me oxrrsnencss ARE IN COMMAND SEQUENCE INITIATION
m secr
n TERMINATION

HANDLER ROUTINE IN THE nuux?nxvs PROGRAM RECEIVES
P
HHEN THE DUAL
VERIFIES THAT THE DRIVE IS
aeouesr FOR A DRIVE, THE

ONLINE.

uegfl

I
xvz &

xvs 1

"PORT REQUEST'
AVAILABLE RS
IS
WILL BE INITIR

WAS NO
g»; ;gv?;“

o’

%cr D

OTHER

unx'rrg‘: INTO 'RPDS1’:

wux&fixer

INTO

IVE.

1IF THE

'RPDS1’ WILL SET

A’ IN 'RPCS1’, IF THE DRIVE
ms COMMAND SEQUENCE
BIT
a'(gt
’'
xcm vR
s; TION 8.1 RBOVE).

ENTRY FOR THE DRIVE

THE THEDRI couo INTERVAL
AD com%S“F& Tn“e'f
STARTSsuxr
umun
NOT
T' RROR Nonnm.m
THE m
THIS ERROR ME
a rncnmm
P conomons
I
R
D
THE
IN
LOGéC
(E
THER
s me onxvs
0OPROe
Mg n;
2PARIT rso
gngRnoo
THE PORT
r R3‘2MVSTALLT?:ES T8RIN|'!fgnpgsr

RELRTED E

nrren A on

*E I§
Rnxm D WITH AN

E' TOT9 IF THE OPERATION
n.t;LSR

srso
opemnon mz Pnocm WILL STORE

ERROR PROCESSING HAS SEEN COMPLE ED

5“‘“?5
NeOTRAL

BE RELEASED UNTIL

BOT" u8“‘¥?n¢""§x;ncxsso
BY_THE QPPOSITE PORT ARE STILL

PORT DR v
TREATED QS DUGL

R THE END OF

WILL NOT

A REL ERSE
OHHQNO
C

COMMAND IS ISS

THESE CONDITIONS HAS NO FUNCTIONAL

EFFECT ON THE OPERQTION OF THE DRIVE.
g.3

SELECTION OF OPERATION VARIAELES

75 HE END OF ERROR “B
PROCESSING.
PROCESSING OR RT

SECTOR ANDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN

GO3

PAGE 33

X
2

HE VALUES

11:03

z
R

1S-DEC-77

1 30(1046)

T-DR LGC

RS
48”§a

" IEEFIEEI
£
'}

T8I

aT PoRTION OF THe. SEcTOR T07SE RelE 0 RATCH The ATA

PR’;TTEQPT{‘S‘ URITTEN
$§ RANDOMLY SELECTED
?QONS ;EHEWéEH?;GRNgnEgITE

HERDER
DRTRORSE
W%EMEERO
FILEES #E PROGRAM EXPECTS TO
FIND THAT THE KEYWORDS

A Ho:
5% "BnZ2T

R c.cc.?“%m;*i
%#E%SS;W”
REORED
SRy
1P
The ERE
Y TaLE
R
‘I‘
E DRTR r
R.
T
v
R & DATA_(AND
PgOGRm SELE CTS
mmx mza&tm
RS.
oO—
D
-

ED.

WITH
THE PQRRHETERS

TING VALUES OF

Eg'c”p:
SEgT%
2] ERNSz
- THE PROGRAM MATC
TI%?L THE O;
AND ALL ONE'S PATTERNS;
RO’S AN
PATTERNS
ARE NOT MITT‘N
BY Tti EXERCISER
PROGRAM.
PRTTERN

*B’

PAT

PAT 2

PAT 3

PAT 4

PAT S

PAT E

PAT 7

17777&
177774
177770
177760

8800

000000
010421
021042
031463

0525 5
052525
052525
125252

07417
007417
007417
170360

856"05
e4S
026455
151322

000001
000003
000007
000017

IS DEFINED AS THE

OO 000
177777

°'WORST CASE'

PATTERN.
PAT B

CZRIDCO,MLT-DR LGC

CZRIOC.F11

MACY11l 30(1046)

15-DEC-77 10:58

000037
000077

177740
1777

000377
880 77

1774
177

000177 177
1777
oo;;;;

176
i;wooo

1S5-DEC-77

177777
77777
1
177777
oggggg

11:03

042104
62

149

b
104210

114631
{esegg

HO3

PRGE 34

125252

1
|
052525

170360
7
9

151322
13 5

165555
133233

7417
170360

026M g
181

1agaag
16555
133333
{sssss

gai

170360
007417

Srr I Lot 1 MR M

151322
ggzgss

165555

(e 1

T
1777272 R e
1
108
177
Nad
i
GED
1
M
181322
133333
IS
000001

000040

77777

1533

177776

077777

1§

1737727 1

1 773 1 gé&é 137777 66662; 177777 60 00
1;5555

i? ;

3 177777

066667

1;;;;;

888&6- 177577 {séggg 1727377 623§§; i

000000

010000
020000
040000
100000

000000
000000
000000
000000

i;;7;;

S
S
SO ST SO S
X ST ST S
el
T
L

NUINNNINNNNNNNNINN
OO " NN
£ WO D0 N L W=

000008 173y,
1iceee
197277
deddey 177777
080000
002
x?g
1§gss§
177737
0233§;
177777
Efi
000
004000
173777
158558
177757
0666
177777
(000000
167777
157777
137777
077777

172666
155555
172666
155655

177767
17?7773
177778
177776

153333
066667
183333
O0B6667

177777
177777
177777
177777

PROGRAM LISTING

.TITLE
CZRJDCO, RP u/s/s MLT-DR LGC
77
: #COPYRIGHT (C)' 197

:#DIGITAL EQUIPMENT bonp

.navnnno MARSS. 01754

.pnocann BY C. HESS
lTHIS PROGRAM WAS ASSEMBLED USING THE PDP- 11 MRINDEC SYSMRC

QPRCKRGE (MARINDEC-11-DZQRC-C3), JAN 19, 1977

SBYTL

OPERATIONAL SWITCH SETTINGS

SWITCH

USE

;

SEG 0023

15-DEC-77 10:58

1€28
1823
1880

W
i

)
S

1764
1795
119&

1837

;

179
11'9-3

179;
1798
1799
1800
1801
1802
1803
1808
1808
1808
1807
180e
1809
1810
1811
1812
1813
1B18
1818
1B1E
1617
3]
119
1820
1821
18z2¢e
1823
1824
1e2¢
1E2E
1827
182g
1829
1830
1831
1e32
1823
1834
183¢
1836

15
13

i *
i *

1785
1786
1787
1788
1783
1790
1f9£

; &

HE4

i
TM

: &

P ®
s &

.SBTTL
001100

.EQUIV

LF=
CR=

Pgfiuxv

1727774
1727772
177570
177670

PIRG=
DSWR=
DDISP=

COUNTS

B. ggtav S'ocx' ERR uficoansc?naLE AFTER

RROR & SW7 SET, DISPLAY

REHRINDER
OF FE
DON'T TYPE SUBSYSTEM STATUS WHEN PROGRAM STARTED

PERFORMANCE SUMMARY
B. DON'T TYPE
1 NHIBIT DATA COMPARSION AFTER READ ORDERS
R E AD ONLY MODE
0
BARSIC DEFINITION S
1

1100

EMT,ERROR

IOT,SCOPE

CRLF=

FINITION OF SCOPE CALL

FINITION OF ERROR CALL

,,22§§E
P

FOR HORIZONTAL TAB

FOR LINS FEED
FOR CARRIAGE RETURN

12
15

::C
$:C

527325

.,Pnocssson STATUS WORD
;3 STACK LIMIT REGISTER

200

STKLMT= 172774

177772
177570
177570

FOR CARRIAGE RETURN-LINE FEED

INTERRUPT REQUEST REGISTER
i
SWITCH REGISTER
i
: t HARDWARE DISPLAY REGISTER

#GENERAL PURPOSE REGISTER DEFINITIONS

ko:

0000
000001
000002
000003
000004
000G0S
00000E
000007
00000E
000067

5
RS:=
%
=B
%6
RE=
%7
R7=

000000
600040

PRO=
PRIl=

000140
000208
00Cz40

B
n.

QHISCELLRNEOUS DEFINITIONS

000012
00001S
008200
177776

000100

E
ELOSRTR COMPARE
I%P
#$
TS
ONE PRESENT VALUES)
IF
’
ReCISTaéLAY
n " pRRTTAL
TS DISPLRYED IF ERROR

:#INITIAL ADDRESS OF THE STACK POINTER #x# 1100 ###

&TACK=

.EQUIV
000011

RROR TYPEOUTS

INHIB

T ®

SEC JC3z4

HALT ?N
OO

RPON.S. & MLT-DR LGC

CZRIDCO,

CZRIDC.P11

103

_11:03
PAGE 35
1S-DEC- 77
MACYLi 38 (1046)
PERARTIONAL SW TCH SETTINGS

SP=

PC=

%6
%7

; s GENERAL

{ICENERRL REGISTER
o
feiig EEG‘STER
EEgENERflL
; sGENERAL REGISTER
P

: 'STACK POINTER

: PROGRAM COUNTER

. #PRIORITY LEVEL DEFINITIONS

PR2=
PR3=
PRY=
PRE=

a)
40

100
140
200
240

: ;PRIORITY LEVEL O
;;PRIORITY LEVEL 1

::PRIORITY LEVEL 2
:'PRIORITY LEVEL 3
:'PRIORITY LEVEL 4
:'PRIORITY LEVEL S

VFYV]IFVIVYFVIFVLYV' lmbmd’ “a + =

NK.AéReaaRaTaRa~LaT0-a0taQ0a000a.0.0.0-.00SSw.n.ws..Sw.Ny~T0000000000000000o0o0r

b»IU—~ODTMOu—-oQTA4ML010000B00B00B0000000

0—UMC~Me=T—OUE=N~—RT0UNE~0Tr0U—00~O0@O20OD0M2D2m“DM@DOI1e0D=I0TmDo0=MIo~.“oWwRnUoWSoUWoUPoEqSgUTUl-o+qU0—g~sT0fS0iHTuU‘S0aNT0lUSomT0uoU—0oTmcnnm
CZRIDC.P11
CZRIDCO,
RPOM

15-DEC-77
MACY11 30(1046)
BRSIC DEFINITIONS

0—~o00 88BR833a788d387R80-47 0>CTUHHI3HNRERIRIERTB5UED>SO
be@DMOT

11:03

JO3
PAGE 36

#"SWITCH REGISTERTM SWITCH DEFINITIONS

IXIXIXIXIX

DEFINITIONS (BITOO TO BITIS)

SEQ 0C3¢

CZRJDCO,

RPO4-S/6 MLT-DR LGC

CZRIDC.P11

15-DEC-77 10:58

1897
iggg
1900
1901
1902
1903
1904
190S
1906
1907
1908
1909
1910
1911

{gig

MACY11 30(1046)

1S5-DEC-77

.EOUIV
.EQUIV

BITO1,BITI
BITOO,BITO

BRSIC DEFINITIONS

11:03

KO3

PAGE 37

04
000010
000014
000014
000014
000020
000024
0030

; #BASIC “CPU" TRAP VECTOR RDDRESSES
RRVEC: 4
)
EE
T
OTHER ERRORS
SVEC= 10
55
D AND
ILLEGAL INSTRUCTIONS
Tg%TVEC:lfl
T
TRTVEC= 1M
; s TRACE
TRAP
BPTVEC= 1M
; s
BREAKPOINT TRAP (BPT)
I0TVEC= 20
;s
INPUT/0UTPUT TRAP (IO0T) #%SCOPE#*#*
PHR&EC:
4
33
R Ffll#
EMTVEC=
30
; sEMULATOR
TRAP (EMT) %*ERROR#*#%

000240

PIRQVEC=240

0034
000060
0C00&4

TRAPVEC=34
TKVEC=
60
TPVEC=
&M

i JRAP" TRAP
;3 JTY KEYBOARD VECTOR
;3 TTY PRINTER VECTOR

; s PROGRAM INTERRUPT REQUEST VECTOR

igig

.SBTTL

igig

igg?

; CONTROL AND STATUS REGISTER 1

1922
1823
1924

000100
000200
000400

1926

002000

18925

1927

1928

iggg

- SEG 003&

222 222222222222 222222 2212221222222 2222222222222 222 222222222227

RH11 REGISTERS

2222222222 22222

IE=
RDY=
Alb=

; INTERRUPT ENABLE (BIT s&)
;RERDY (BIT #7)
;HIGH ORDER
BUS ADDRESS BIT

2000

;PORT SELECT

40000

; TRANSFER ERROR

Al7=

020000

MCPE=

20000

;SC=

100000

040000

1931
iggg

TRE=

(RPCS1)

100
200
400

001000

PSEL=

222222222222 222222 2222222222222 2222222222232

1000

s HIGH

(BIT

(BIT #10)

(BIT #14)

;SPECIAL CONDITION (BIT #1S)

;WORD COUNT REGISTER (RPWC)
; (EARCH BIT IS CALLED BY BIT NUMBER)

1934

;BUS ADDRESS REGISTER (RPBR)

; (EACH BIT IS CALLED BY BIT NUMBER)

iggg

; CONTROL AND STATUS REGISTER 2 (RPCS2)

1939
1940
1941
194g
1943

0001
000002
0000CY
000010
020

usi=
use=
USY=
BRI=
PAT=

1
e
4
10
e0

;UNIT SELECT (BIT #0)
;UNIT SELECT (BIT #1)
(UNIT SELECT (BIT #2)
;BUS ADDRESS INCREMENT INHIBIT
;MASSBUS PARITY TEST (BIT #4)

1995
194

000100
000200

IR=
OR=

100
200

;6
urt nggz (BIT_#6)
; OUTPUT
Y _(BIT #7)

1348
1949
1950

001000
0020C0
004000

MXF =
PGE=
NEM=

1000
2000
4000

UPE=

200CaC

1947

19€]

1%€e

;

;MASSBUSS PARITY ERROR (BIT #13)

iggg

1944

#8)

R_BUS ADDRESS BIT (BIT #9)

00040

0100600
020000

CLR=

MPE=

NED=

400

10000

;CLERR (BIT #S)

;MASS

BUS PARITY ERROR (BIT #8)

;HgggfigflTRflNSFER ?RROR (BIT #9)
sP
;RROR (BIT %10)
;NON
EXISTENT MEMORY (BIT sil)

;NON EXISTENT DRIVE (BIT_#l12)
;UNIBUS PARITY ERROR

(B1T #13)

(BIT

#3)

040000
100000

DWW

RREOR
$ERSERERRY

B2 oot

L) 0 Bt 5t Bt et Bt s Bt Bt Pt et Bt ot Bt Bt et Bt Bt Bt Pt Bt Bt ot Pt s ot Pt Bt ot Bt Pt Bt i
0 L0
V]
J
[+V]
NN
N
£
LW—-0OW

'bcc
10:58

MACY11

30(1046)
1§-g£c-77
RH11 REGISTERS

WCE=
DLT=

11:03

LO3

PAGE 38

40
100

SEG 0037

:WRITE CHECK ERROR (BIT #14)
:DATA LATE (BIT #1S)

:DATA BUFFER REGISTER (RPDB)
: (EARCH BIT IS CALLED BY BIT NUMBER)

al al

Y ey

CEFREEIRESENe

Efid&fih

RPO4/S/6 MLT1
15-DEC-77

3 ;iilllllliillilllillllIllllll!!!lllll!!llll!l!llliillll!llllii!!

.S8TTL

RPOY4/5/6 REGISTERS

$3 (2221222222332
2 2222222222222 1222222222222
22222222232223

ogggox

000010
000020
000040
004000

:CONTROL AND STATUS 1 REGISTER.

(#00)

??f

;go a;r éaxr #0)

Fa=
Fi=
FS=
DVA=

10
20
40
4000

:FUNCTION CODE BIT #3
PFUNCT gz cggs 811 #4
'FUNCTION
€
IT #S
‘DEVICE
AVAILABLE (BIT #113

Fa=

EFH“8T18N 3885 gfr M

:DRIVE STATUS REGISTER

060004
000010

:DFS=

bFF20=

DIGB=
GRV=
DLe4=

DEl=
VV=

(RPDS1)

(#01)

DRIVE FORMARD

§
10
20

:DRIVE
T0
;cg
‘8 FFERENCE

:DRIVE

40
100

:DIFF

5”/SEC.

FORWARD 20"/

(BIT %0)

(BIT #1)

R GUARD
BANC (BIT #2)
(BIT #3)
LESS THAN 64 (BIT #4)

gouan 1 (BIT &5)

000100
02

DRY=

;KS%UHE
:
32

001000
20
4
010000
0000
040000

PGM=
LST=
WRL =
MOL =
PIP=
ERR=

1000
2000
4000
10000
2000
4000

:
(BIT ¥9)
:LAST SEC
TRANSFERRED (BIT 810)
‘WRITE LOCK
(BIT #11)
;ntoxgn ON-LINE (BIT #12)
:POS
ouéug Sgsnar§on IN PROGRESS
‘COMPOSITE
ER
(BIT #l4)

100000

DPR=

ATA=

400

100000

:ERROR REGISTER %01
000001
000002
000004

000010

LF=
LR=
RMR=
PAR=

oooogg
0001
000200

WCF =
ECH=
HCE=

001000
002008

ACE =
IRE=

000020

000400

004000

I
(?;T #6)
Y (BIT
#7)

NT (BIT #8)

'ATTENTION ACTIVE

(RPERL)

(BIT

(#02)
s ILLEGAL FUNCTION (BIT %0)
;I&LEGRL REGISTER (BIT #1)
R °{§YE“R288" CATION REFUSED

40
100
200

IWRITE CLOCK FAIL (gxr #S)
:ECC HARD ERROR csx
#6)
:HEADER
COMPARE ERROR (BIT #7)

1000
2000

ADDRESS OVERFLOW ERROR (BIT #9)
:INVALID ADDRESS ERRGR (BIT #10)

HCRC=

400

4000

(RIT #13)

#15)

1
2
q
10

FER=

WLE=

DRI

‘PARITY

(BIT #3)

: FORMAT Ennon (BIT #4)

;HengER

RC sanon <gxr %8)

'WRITE LOCK ERROR

(BIT

#11)

(BIT

#2)

CZRJIDCO,

RPO4-S/6 MLT-DR LGC

15-DEC-77 10:58

MARCY1l 30(1046)

1S-DEC-77

RP0O4/5/6 REGISTERS

11:03

PAGE 39

SEQ 0038

010000

;ORIVE TIMING ERROR (BIT si12)

QQT&J?WFTEwxr

A CHECK
;MAINTAINABILITY REGISTER

000001

000002

880838

DMD=

,omc*

IMAINTA

MCLK=

MSTCK=
MRD=

58
:

MINX=

E‘fs'?x

380

LITY CLOCK (BIT #i)

IMAINTA
;"ng
NTA

LIty
t T;

Hks

(RPAS)

;DEV

(BIT #3)

;

(BIT #S)

;gqggtgrg,

:DEVICE 4 (BIT %)

: DESIRE D

(ERCH BIT

(8” 82)

OR CLOCK (BIT #3)
mT)E(anToq))

(#04)

AT?=

ug;x

Em Nni&h“v %nvg«c oé?écvéa (BIT 87)

AT3=

DEV

[gEvicE & (Bl1 16
DEV

(BIT

SECTOR/TRACK QDDRESEUSEGISTER (RPDR)
IS CALLED BY BIT
ER)

;DRIVE TYPE REGISTER

000100

LITY

:DEVICE 0 (BIT #0)
:DEVIC
(BIT #l)

ATS=

000004
000010

MODE (BIT #0)

‘MAINTA

1
2

AT4=

OOOOOé

OR (BIT 15)

ATO=
ATl=

#13)

(RPMR)(#03)

ATTENTION SUMMARY PSEUDO-REGISTER

Bo00
e
REOR-E

T
SR
e

[

NN L WIee-0)

CZRIDC. P11

(RPDT)

875

(#0S)

(#06)

pTO0=

;DRIVE

83
s
878
aompNBA=

40
i
400
“383
5 2
188880

831 T m Sfr £
SRV T tren o1
§§
T
] {T E
iDRIVE
REQUES
agoumso (BIT #11)
'?%Ngn VE ((BT ":)”
iNOT BLOEK aogksséo (BIT #15)

; LOOK-AHEAD REGISTER (RPLA)
EXTl=
XTe=

XTH=
XT10=
XT20=
XT40=

Cl=
sCe=
;SC4=

1
@2
4§
10
20
48

1G0
200
400

TYPE NUMBER BIT !

ca R

(#07)
;EXTENSION 1 (BIT #0)
;EXTEN
5 (BIT #1)

;EXTEN
sEXT
;EXTEN {
SEXTEN

4
2

(BIT #2)
(BIT 83)
(BIT s4)
(BIT #5)

;SECTOR
COUNT
FIELD O (BIT s&)
;SECTOR COUNT FIELD 1 (BIT #7)
;SECTOR COUNT FIELD 2 (BIT #8)

RPO4/S/6 MLT~-

P11

1s-oec-79axb:se
1

1
2888

04
1

MACY1l

1S5-DEC-77

30(1046)

32?03/2/5 agc TERS

11:03

NO3

SEG 0029

PAGE 40

5388
§C20=
4
TRKI=

:SECTOR COUNT FIELD 3 (BIT #9)
4811)(8IT sid)
COUNT F{EL?
:SECTOR
(
K FIEL
:

TRKY=

:TRACK FIEL

SC10=

TRK10=
TRK20=

(BIT #12)

:TRACK FIEL

TRK2=

(BIT #13)

: TRACK F Lg 4 (BIT #1¥)
:TRACK FIELD S (BIT #1S5)

“38880
1

:RPOY ERROR REGISTER #2 (RPER2) (#10)

000001
02

WCU=
CSF=

000010

CSuU=

00004
000100
001000
002000
00
010000
020000
100000

WSU=

sWRIT Ngunncnr UNSAFE (BIT #0)
(9*7 81)
SéNK FAIL
H
E (BIT 82)
cT
TWRIT
E (?;r 83)
TCH
CUR EN
:

1
2
4

MSE=

i MOT

FEN=
WRU=

200
400

;rn}*
PWR

TOF =
TUF=

MHS=
n;g:
IXE=
vU30=
PLU=
ACU=

O
. OBBNCN £ RR-ODB IR B

#4)

1000
2000
4000
0000
00
100000

(#10)

000001
000002

WCU=
CSF=

1
2

CURRENT UNSAFE (gxr %C)
;MRITE
!CURRENT SINK FRILURE (BIT 1)

000010
000020
000040
000100
000200
000400
001000
00
004000
020000

cSu=
RAW=
TOF =
TUF=
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

10
20

ufi' H UNSAFE (BIT #3)
N
:
IDE (BIT #4)
: READ
TECTOR FAILURE (BIT #5)
{r
:T
AFE (BIT #6)
T
T
(E}T 87)
n3
:
E (BIT #8)
Y
tWRI ;
TMUTL £8L usng SELECT (BIT #9)
LEC {on (BIT s10)
INO HE
: INDEX 5 OR (BIT #11)
:PLO UNSAFE (BIT #12)

0000GCH

mNNN'\lNNNNNNNNNNNNNNNNB
»-o—:»-:o—v—o—-o—o—o—o—-o—o—o—-o—o—h-r—o—o—

RROR (BIT

TECTOR FRILURE (BIT #S)
E (glt $6)

(BIT 87)
E (BIT #8)
Y
LECT (BIT #9)
usns
;szr
(BIT #10)
Rasks T
:
#11)
(BIT
;xnogf
E (BIT #12)
T
:
(?IT 813)
1PLO
E (BIT #15)
:

;RPOS/6 ERROR REGISTER #02 (RPER2)

Wwsu=

0001
000002

000010
000020
00
00200

004000
010000

TWRIT

100
200
400
1000
2000
4000
20000

:OFFSET REGISTER (RPOF)

§§

: TRANS
TIONS
T

40
100

CT UNSAFE (BIT #2)

(#11)

:OFFSET 25 MICRO

INCHES (BIT %0)

25z

OF200=
OF400=
OF800=
OFRcvV=

10
20
40
20

n*cno Ncnss (BIT 83)
:OFFSET
MICRO INCHES (BIT #4)
:OFFSET 400
‘OFFSET 800 MICRO INCHES (BIT #S)
NEGATIVE <n§vznss) (BIT #5)
‘OFFSET

ECI=
FMT22=

10000

:FORMAT BIT (BIT #!2

OFS0= 2
OF100= 4

HCI=

2000
4000

;DESIRED CYLINDER ARDDRESS (RPCR)

:OFFSET §3 nfcno
fncuss (BIT s1)
MICRO INCHES (BIT #2)
:OFFSET 100

C npnae INHIBIT (BIT #10)
:HERDER
‘ERROR CORRECTION CODE INHIBIT (BIT #1l)
(#12)

vunnunnunnunnunuunnunnunnunnunnunnunnunnunnunnunnmmnnunnunnunnunnunnunnunmmunnvnnuna!;;‘
NN NN C O T O T O
NN
£ £& ££ £ £ & £ £ £ &0 w:fl-k>fl~kuwvhuu-mru-»~u- Caty
"
NN
£
T LRI DD 10N E o 0r- DD QN £ LR B b S ih E Do 58 BUFRZEREEIBVEREON- 88

OO0

O O SetoreT bogg

BO4

vl RUATIE)e ABcTETERe 11103 PAGE HI
; (ERCH BIT

; CURRENT

; (EACH BIT

IS CALLED BY BIT NUMBER)

CYLINDER RDDRESS (RPCC)

; (EACH IS CALLED BY BIT NUMBER
;RPO4 ERROR REGISTER #03

PSU=

00C010
000040

=
ACL=

040000
100000

SKI=
OCYL=

000002

000100

VUF=

OCL=

(.13)

IS CALLED BY BIT NUMBER

;SERIAL NUMBER REGISTER (RPSN)

000001

(814)

(RPER3)

(#1S)

;PACK SPEED UNSAFE

10
40

:ANY UNSAFE
EXCEPT READ/WRITE
1AC LOW (BIT"¥S)

(BIT %0)

VELOCITY UNSHFE (BIT s1)

100

;0C_LOW (BIT 46)

40000
100000

;SEEX INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

;RP0S/6 ERROR REGISTER %03

(RPER3)

(#15)

000001
02
0
000105
020000

Deus
WA0=
ACL=
DLz
=

L
2
40
|1
20000

;0C
E (BIT 8)
WRITE AND OFFSET (BIT #1)
1AC LOW (BIT #6)
iDC_LOW
(BIT #6)
:
;OPERATOR PLUG ERROR (BIT #13)

100000

OCvL=

100000

:OFF CYLINDER ERROR (BIT #15)

040000

SKI=

400

SEEK

ECC POSITION REGISTER (RPECL)
(EACH

INCOMPLETE

(81T #14)

(816)

BIT IS CALLED BY BIT NUMBER

ECC PRTTERN REGISTER (RPEC2)

(#17)

; (ERCH BIT IS CALLED BY BIT NUMBER)

D REEREREPRRRERERRRR
RN ERRERREREERRERRRRERRERE LRI R R LA
ERR

.SBTTL
S

RP0O4/S5/6 DRIVER COMMANDS

EEREEEEREE RN AR R R R

RN AR RER AR RRRRRERRERRERRRRRRRREREER

000101

RNOP

10i

;NO OPERATION

00010S

SEEK

10S

; SEEK

REL

000103

UNLORD

000107
000111

RECAL
DRVCLR

00011
000117
000l1el
0C0131

000113

000ie3

000141
000143

00014
000151
0001c3

103

,UNLORD

=
=

107
111

; RECAL IBRATE
RRIVE
CLEARR

OFFSET
RTC
READIN

=
s
=

115
117
121

: OF FEST
: RETURN TO CENTER LINE
REflD IN PRESET

SERARCH

131

GES

SELDRV
WCKD
WCKHD

=
=
=

1458
isl
183

SELEC DRIVE
iWRITE CHECK DAT
iWRITE CHECK HERDER 8 DARTR

ACK

GETREG
TFMT

il3

123

=
=

141
143

ACK ACKNOWLEDGE

T
EGI
F?RHGT (& ECI OR HCI)

(BIT #3)

SEG 00MC

CIRJDCO,

15-DEC-77 15: se

RPON/S-6 MLT-DR
L

CZRIOC.P1L

0001&1

2177

a889

00017

ig?

‘

WRTDAT

gnrgg

888{§3

{zg

& CommANd

RPOY/

MACY11 30(10‘02/s 63ESEC 4 4

cO4

161

{ 3

175

.SBTTL

jp—
a}eu
5188
o1
BA0G0O
o007 883388
§18¢
888i%
£182
ngé

2xTCh itFR n
tW&‘?oLOCATIONS

000200

-HORD B
QlREGEC:
.SBTTL §7anrx~c ng?ns§5(55)
-

004116

{3;

Sigg

.SBTTL

Slgg

000210

2201

000046

2207 00004e 885350
2203

2204

2208

0000S2

00S2

040000

006210

J8START

JIMP

193 000204 000137 004106

2200

WRITE nosn 8 DATA

Heaoen & DATA
Ens

N n . 42 HAL T
ONTA
NIERR
.Locarxonconrnxus ro CRYCH IMPROPERL Y Lonoso VECTORS
REGISTER
ISPLAY REGISTER
ISPREG: * LR
1 8OF THARE SHTTCH

000137

unxr

TRAP CATCHER

2182

2183

SEG 0041

PAGE 42

77
$3

.JUMP TO STARTING ADDRESS OF PROGRAM

gpnnge n; nnxé gu}flus ADDRESS
TER

INITIAL

ACT11 HOOKS

YT T T I I I I Iz IIZIZIIZIIZIZZ222222 3223222222222 2222 2

: HOOKS Rgouxneo BY ACTI1!

$ENDAD
. =62

"WORD

. =$§SVPC

:SAVE PC

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

40000

..a)ggr
LOC sa TO 40000

TORE

11:03

DO4

PAGE 43

MARCY11l 30(1046)

IE-DEC-7?

gggg

.SBTTL

COMMON TRGS

2208

lllllll!lllllllllilllll!il!llillllllfllllllll!§lll!llllllil}lilif

CZRIDCO,

LG
RPO4/S.6 MLT-DR DR LGC
15-DEC-77 7 10:58

CZRIDC.P11

221l
2213

001100

2214 001100 000000

:;11§2 000000
2519
000000
2218 0011
R g
Sl 83111u
2221
000

$CMTAG:

$PRSS

.=1100

uoao

2227 001126

000000

SBODAT: .

001134
83{{3:2

000
000300

$AUTOB:
SINTAG:

001140 177570
001142 177570
2234
2235 001144 177560
2233

8C
iicn#:'
8
o
Loy
SITEMB:
.BYTE
O1
RMAX: .BYT

001

2230
ggax

SLPRgs: "WORD

00111S

2222

SEG 0042

fiag&8#E cggss ga VARIOUS COMMON STORARGE LOCATIONS

gsgg
2515

COMMON TRG

.BYTE
.BYTE

.,srnn OF COMMON TRGS

;CONTA

Pags co¥ur

COUNT
??Eantxou
RR?RSTkggp
82
::,.conrn
ADDRESS
ERLim FonEopges
COMAING Soo
:: :CONTAINS
x?an
cSur
BYTE
MAX snggns ;sn TEST
:CONTA
rnxug 'BAD’ DATA

O
8

,.nuronntxg MODE INDICATOR
: : INTERRUPT MODE INDICATOR

DSWR
DISPLAY: .WORD DDISP
SWR:

.;noggs S OF

::AD Kgg

grcn REGISTER
REGISTER
ISPLAY

22
2237
2238
2239

001146
001150
001152
ggxxsu

177562
177564
177566
000

§TKS:
svxg:
§TPS:
§TPB:
§PULL.

|
177562
177564
177566
YT

2244
2245
2246

001164
001165
001166

077
01
000012

SBELL :
SQUES:
§CRLF:
SLF:

SCIZ
.ASCII
.ASCII
RSCIZ

<207><377>(3?7> ,,“
OR BELL
i nng
ON MARK
xncE RETURN
H:
<1s>
«12>
:LINE FEED

S541
001126
001157
2242
2243 001160

gs:g
2249

815
000
177607 000377

000015
ogooxa

5520
091178 booaeq
2252 001174 172540
2253
2254

001176
001200

172842
oogxou

FILEE: BYIE
'§v1E
$TPFLG:

0T2

PITTY
STATUS
g
DITTY K
NTER STATUS REG ADDRESS
SITTY
P:TTY PRINTER
ER
CHARAC
rn}zg NULL
-

“IONTQT ka?f§3L5~
F00 FILLESF?ER
(BIT<07>=0=YES)
FLAGgcrsgsengggéneo
e

Ckl!l!li!lllll!ltll!lll!!l!lllI'liiII!Il!lilllllllllil!!llilI!llil
;
=
LF

SRPUPR: ‘UORD 263
00
172540

SLKCSR: .WORD

SLKCSB: .WORD
SLPVEC: .WORD

s VECTON ROSRESH.L/RPO4/S/6 REGISTERS

:ADDR OF KW1l-P srnrus necxsrsn

172542
104

‘ADDR OF KW11-P COUNTER BUFFE
:ADDR OF KW1l-P vgc R

oo®

O0DR OF KHI1-L VecTon TCCISTER

DO1504 00108
5536
2257 001206 177777
eeSe

001210

177777

HoRD
StiVEc:
PCLOCK: .WORD
CLKFLG:

.WORD

-1

1'0° IF KWll-P IS ON SYSTEM

26l

0Cl12le

000CCG

PACK:

.WORD

:'W ' COMMAND xnoxcnron

-1

;'0" IF A CLOCK IS RVQILQBLE

CZRJDCO,

RPOM/S/6 MLT-DR

CZRIDC.P11
2

15-DEC-77 10:58

;OPERATOR ENTERED DATE

ooigwo

OCO000

000000

OPERID:

.WORD

0,0,0,0

; OPERATOR ID

DRIVE:

.WORD

:DRIVE
8

0000

001244
001246
001254
001256
001260
001262

000

000003
000000

2276 001264 000000

5576 091538
2279 331272

09 0
00

001274
001276
001300

00
177777
000

2285

001301

000

2287

001302

000000

2297
2298

2299

001304
001306
001310
001312
0013i4
001316
001317
001320

001322
001324
001326

001330

000000
0O
000000

.WORD
.BYTE

O
0,0

rnxnus
LSTAD:
CHGADR:
CFLAG:

.WORD
.WORD
.WORD
.WORC

3
O
O
O

: ERROR
RY
{§ MASK
'ERROR
RETRY LIMIT
IN THE LOHER BYTE
iRETRY co¥n7 IN THE uppe BYTE
: MAX IMUM
*nz IN QUE
ALUE
ST
LAST
MEMORY
nzss HERE
:
RH11 UNIBUS ADDRESS FLAG
"28"7
08

O
0

HINOTE & 1°“‘° “"“1 g
;sécous 3 883“%3358

BADSEC: .WORD

HINUTE:
[LORD
SECOND: .WOR
SIXTEE:
ZROIND:
FRSTER:

SAVERl:

.WORD
.WORD
.BYTE

O
-1
O

.BYTE

.WORD

‘éfi < g

:SAvE

Rl HE

IN BUFFER

ECMSKO:
ECMSK1:

.WORD
.WORD

O
O

:CORRECTION MASK FOR FIRST ERROR
WORD
: COR
grxon MASK FOR SECOND ERROR WORD
:GOOD DATR, rxn;r WOR
‘BAD DATA, FIRST
WORD
iLOCATION' OF SECOND ERROR WORD
:GOOD DATA,
SECOND WORD
:
DATA
OND WORD

000000

ECSEC:
ECWRD:

ORD
ORD

001346
001350

000022
000632

TRKLMT:
CYLIMT:

.WORD
._WORD

18.
410.

000025

SECLMT:

sgfil

sgig

.SBTTL

g;i:

B
5

:MISCOMPRRSION OR CAN’T MATCH PATTERN FLAG

000000
000000

000000

2306
2307

001282

:TIMER zsgrsns r;
NE SECOND)
1 2ERO 1
HE onrn COMPARE ROUTINE
;DATA
;;r >
0, ’"285§§I"° 'ocxsn' OR CAN’'T MATCH PATTERN
*IF <
»
ARSION FOUND

000
000
000000

O
O
O
O
O

2217

:SAVE
RS HERE
‘N
R OF ERRORS
‘DISPLAY LIMIT
:WORD COUNT
‘°Y54325" RDDRESS
;;e
SS
: TRACK ADDRESS
;Enn
T BIT orrsgr

WORD
.WORD
.WORD
.WORD
RD

22l

szg# /TR

O
O
O
O
0
0
O
O

CGD:
CBADO:
ECWRDL:
ECGDl:
ECBAD:

S1%S

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

000000
000000
00000
000000
000C

gggg

IATTN nfc s onncc ERRORS 1-S & 10
:DRIVE # § ron PRINTOUT

SAVERS:
ERCTR:
LIMIT:
CMCNT:
CMCYL:
CMSEC:
MTRK:
ECBIT:

001332
001334
001336
001340
001342

001344

ERRORS 1-5 & 10

.WORD
.WORD

MASK:
RETRY:

O
O

AGE:

ATTN:
UNIT:

2300
2301
22302
2303
2304

2305

SEG 0042

0,0,0,0,0

001250
001282

229%

PRGE 44

.WORD

2269
2270
2271
2272
2273
2274
22

2288
2289
2290
2291
2292
2293
2294
2295

EOY

DATE:

001242

2286

COMMON TAGS

11:03

000000

2266

2280
2281
2282
2283
2284

1S-DEC-77

800000

2267
2268

MACY1l 30(1046)

ooxg

226

gggg

LGC

002740

.WORD

21.

:ERR

T WORD OFFSET (RELATIVE TO SECTCR)

:LOCATION OF FIRST ERROR

WORD

'SECTOR ADDRESS LIMIT

;rnncx ADDRESS LIMIT
:CYLINDER ADDRESS LIMIT FOR RPO4/5'S

: (CHANGED TO 8I4. FOR RPOB)

EEEEEREERERERREERER
R RRR RN R R R R R RN R R RSP RARRRRRENE AR R R R R RRRES
COMMON PARAMETERS

222 222222 22222 222 2222222 2222222222222

22 2222233222222 22222282]

. PROGRAM USES THESE PARAMETERS ro DETERMINE REGULAR END OF PASS

ENDCN:

.WORD

002740

1.875X1018 WORDS (10)

[3X10t3 BITS]

]

fururururuuuufuueRD RPN RYYNYNY ;&D

RPONS/6 ML 9& EGC

SRROYERCRNS &% ;R

LWhY»r-

15-DEC-7

001354
001356

0OS4SS
143300

001362
G01364

120274
00000S

MACY11l 30(1046)

COMMON PRRAME TERS
005455
.WORD
143300
.WORD
ENDSK:

FOY4

PAGE 45

SEG 0044

; 1SW
i3 X 1016 SEEKS

: MSlW

(LSW)

. PROGRAM USES THESE PARAMETERS Tb DETERMINE G.V. END OF PASS

OVCON:

QVSEK:

001358 134330
001370 000005

.WO
;

’5833

SE n?gg§n§
T

000000

.uono
.WORD
.WORD

000000
000000
000000

ENDSEK:

001402

000001

PASCNT: .WORD

MAXDL:

000000

2.3437X1017 WORDS (10)
ns
13,75 X 1015 SEEKS (10)
‘M

20274

éauaao

END OF 'PASS ARE LOADED IN HERE BY THE PROGRAM.
?ersnnxwe
’

TERS ARE'USE
o

001374
001376
001400

001404

11:03

- WORD ,,25

001360 0000SS

001372

C-77

.WORD

O
O

QV PARAMETERS ARE USED, AFTER THAT THE

:NUMBER OF PASSES TO END OF TEST

xngn

DURING

:(FI&L D

TA TRANFER SIZE IN WORDS

BY PROGRAM AT STARTUP OR BY OPERATOR
TER

ENTRY DIALOG.)

S - 100(10)
:MAXIMUM E
:FIRST WORD IS THE PERFORMANCE TYPEQUT INTERVAL

.WORD
MAXER:
INTRVL: .WORD

100.
5,0

0OOO04
001414
0014ie 000001

.WORD
CMPLMT:
FORMAT: .WORD

.
UPPER BYTE IS V
:COUNTER.
OUT
TYPED
ERRORS
consnns
OF
:NUMBER
ALLOW WRITE HEADER 8 DATA QRDERS
‘IF NOT EQ O,

001420

WCSEL:

‘IF EQ 70 O,

DO1406
0Gi410

001422

000144
00000S

000000
000003

000000

RATIO:

.WORD
.WORD

‘ééflfl¥ RUTES).

:IF EQ O,

DO'NOT

SECOND WORD IS THE INTERVAL

ALLOW WRITE HERDER & onrn ORDERS

GENERATE A RANDOM WORD COUNT

FOR_THE OPERATION.

"IF NOT EQ TO O,

USE THE VALUE IN *MAXDL' FOR

0 - 0/8

(READ/WRITE)

:" THE WORD COUNT
‘READ/WRITE RATIO [RANGE 0 - 7]

S
TE
;@ - b/2
;13 - 573
§

4/8

5 - 3/5

oo
WWWWWWWW

001424

000001

AUTOCK: .WORD

001426 0C0C0!

NOTPRT: .WORD

:IF NOT EQ 9 oo nn nppnopnxrs WRITE
ITE_ORDER
_CHECK RFTER
.xr EG O SELEC unxrz cuccx ORDERS
i

fIF
go D NOT
DATA ERROR
MESSAGES
; aggogink
WITHPRINT
OPERATOR
SPECIFIED

PIF Nggsea 0

001430

000001

ENDET:

.WORD

INT ERROR MESSAGES RELATING TO

osrsnnzueo
COUNT
’ bnsnor PASS
BY THE
O, END OF Pnss DETERMINED

;xr NOT E

‘IF EQ
1" BY THE SEEK COUNT.

;;9!0091}&0Q*Qlilllii!iifiiilli*il‘iii’li!fill*lliiiilliii!iiiiii

2 E C-77
MACY11l 30(1046)
COMMON PARAMETERS

R RN

RRRRRRRER R

gTRR“£"§
PATTERN
CgBE ERRNGE 6 - é? (OCTAL
)]
H

T')

rn ('nouo')

RE“%SS 3

THE SIZE MUST

e HEADER AND

AND DATA.
TER THAN i SECTOR,

THE

()

s
U)

ovsnanngc 4 0R'E
w
m
O

srfl

Eo5

- Hflxninl

ge AT Lsnsr IF

2
st

“0OM

DATA ('

BEGSIZ: .WORD

000404

.WORD

BEGCOD:

-t

EEEERERERERRR

001436

VALUES FOR FIRST OPERATION

BEGPAT: .WORD

0 0010
O 000S

SEG 0Q0u4S

001432
001834

PAGE 46

GO4

UMflJHJfl»—

.SBTTL

11:03

BMBS

& HLT-?R LGC
-DEC-77
10:58

;;illllil!lllll!llllllil!lll!lllI!lllllll!ll!ill!l!ii.lllllllii!l

.SBTTL

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

AR R RS
ERR
RR R RRL R AR RERRR
EEER
RN R R AR R AR
RRER
R SRR
S REEEEEEE

DC1440

000000

0Ci4e2

000000

0Ol1464

000000

333
“”U“"U"”Bn"“fl"“hfl~bfl—Fwfl—hfl—hdj
DO NN
EWN—=OWO
NN LWN-0OWw

001446
0014s4

00000C
NO000O0

000000

000000
000000

000000
000000
000000

ORDERG: .WORD

0,0,0,0,0,0,0,0,0

ASNLST: .WORD

;LIST OF DRIVES PERFORMING COMMANDS

;A BIT SET IS AN ASSIGNED DRIVE

000000

DUNIT:

.WORD

0,0,0,0,0,0,0,0,0

; ADDRESSES OF DRIVES TC BE DEASSIGNED

ggi

8883g

NEWUNT: .WOROD

0,0,0,0,0,0,0,0,0

; ADDRESSES OF NEWLY ASSIGNED DRIVES

001

000000

001S

000000

AVAIL:

.WORC

0,0,0,0,0,0,0,0,0

;LIST OF DRIVES WRITING FOR BUFFERS/ PRARAMETERS

0000

WARIT:

.WorRO

0,0,0,0,0,0,0,0,0

;LIST OF DRIVES WARITING FOR BUFFERS

PARG:

.WorROD

0,0,0,0,0,0,0,0,0

;LIST OF DRIVES WAITING FOR NEXT PRARAMETERS

001472
001s0C

000000
000000

000000

000000
000000

001S
001S

000000
000000

000880
0

001552

000000

880000

001See&

000000

001560 008888 000000
1574

8oigcz
B00000
880000
0C1el10C
0000OC
000000
CClele
00lez0

000000
000CCO

0OCCOO0

OOOO00

000000

BUFTBL: .WORD
.WORD

0,0

;BUFFER ALLOCATION TARBLE ENTRY COUNT

CZRJDCO, RPO4/S/6 MLT-DR LGC

CZRJOC.P11

15-DEC-77 10:58

MACY1l 30(1046)

15-DEC-77

001624
001630
00l6
001640
DO164Y
Q01650

.WORD
WORD
"WORD
"WORD
JWORD
- WOR

0,0
0.0
0.0
0,0
0.0
.8

2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448

001660
001664
001670
001674
001
001
001710
001714
001720
001724
001730
001734

JWORD
JWORD
"WORD
"WORD
WORD
WORD
WORD
WoRD
WORD
WORD
WORD
WORD

0,0
0.0
0,0
0.0
010
O,
0.0
010
0.0
0.0
0,0
0,0

S0
2451
2482
2453
2454
2455
2456
57

001740
001742
001744
001746
001750
001752
001754
001786

041670
042174
042500
043004
043310
043614
044120
O44d24

BLKADR: .WORD
"WORD
WORD
WORD
WORD
WORD
WORD
WORD

2459

001760

151

COMTBL: .BYTE

2460
2461
2462
2463
2464
-

2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
247
2478
2479
2480
2481
242
24E4

PAGE 47

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

2430
3
2432
2433
2434
2435
243%

11:03

00165

- WOR

001761
DOi7be
001763
001769
001765

153
161
163
171
173

001766
001767
001770
001771
001772
001773
001774
001775
001776
001777
002000
2001
002
002003
004
002005
0020CE

g2
004
006
010
012
014
016
020
0e2
030
050
052
0E0
062
070
072
277

OPTBL:

002610

LEVEN

DRIVED
DRIVEI
DRIV
DRIVE3
DRIVEY
DRIVES
DRIVEE
DRIVE?

:ADDRESS OF THE BLOCK FOR DRIVE O
OCK FOR DRIVE 1
AQDRESS OF T
;
OCK FOR DRIVE 2
T
:
85 OF THE BLOCK FOR DRIVE 3
:
'ADDRESS OF THE BLOCK FOR DRIVE
' ADDRESS OF THE
BLOCK FOR DRIVE S
'ADDRESS OF THE
BLOCK FOR
FOR DRIVE
DRIVE &
7
BLOCK
'ADDRESS OF THE

WCKD

;WRITE CHECK DATA

'BYTE
'BYTE
'BYTE

WCKHD
WRTDAT
WRTHD
RODDAT
ROMD

{WRITE CHECK HEADER AND DATA
WRITE CATA
'WRITE HEADER AND DATA
READ DATA
'READ HERADER AND DATA

.BYTE
‘'BYTE
‘BYTE
'BYTE
‘BYTE
BYTE
BYTE
BYTE
‘BYTE
BYTE
BYTE
'BYTE
'BYTE
BYTE
BYTE
BYTE
BYTE

2
&
&
10
12
14
16
20
@22
30
&0
&e
&0
62
70
72
-l

; UNLOARD
: SEEK
i REC
'DRIVE CLEAR
i RELEAS
' OFFSET
‘RETURN TO CENTERLINE
'READIN PRESET
! PACK ACKNOWLEDGE
: SEARCH
'WRITE CHECK DATA
'WRITE CHECK HERDER AND DATA
iWRITE DATA
WRITE HEADER AND DATA
READ DATA
READ HEADER AND DATA
' TERMINATOR

BYTE
'BYTE

SEG 004&

042101

045S0s

MNTBL:

.RSCIZ

/UNLORD 7

020040

.ASCIZ

/SEEK

040s03

020114

.ASCIZ

/RECAL

o41526

0S1114

.RSCIZ

/DRVCLR 7

0S1S14

020105

.ASCIZ

/RELSE

0S1S06

0s2108

.ASCIZ

/OFFSET

020103

020040

.ASCIZ

/RTC

042101

047111

.RSCIZ

/READIN

04SS03

020040

.ASCIZ

/PACK

0s1101

044103

.ASCIZ

/SEARCH

042113

020040

.ASCIZ

/WCKD

044113

020104

.ASCIZ

/WCKHD

o421a4

0s2101

.ASCIZ

/WRTDAT

. T

o44leH4

020104

.ASCIZ

/WRTHD

O40S04

oz20124

.RSCIZ

/RDDAT

042110

020040

.ASCIZ

/RDHD

042c1e

020040

.RSCIZ

/NONE

o
0O

000

e40
&0
.EVEN
OFMTBL:

;#4900 U
i-400 U

0co

:OFFSET CODE TRBLE

14200 U
:-200 U

040

§ 2
nONOND
Lrhonwwnn
000000

o
o
o

OFFCOD:

SEQ 0047

CONS ANTS,

002232

104

6:03__PAGE
4
AN VARIABLE LOCRTIONc

TABLES,

2é%%
n

[

;RRRsRRRaee

g A

“ERR NNNB
W
co 85 SFEFREF 5888 r R0

Eeils 2

PE ey

047514

EC-77

Lhurnunwnnn—o
OnNOWoONNO~-0O

15-DEC-7

P11

BRRRRRARRR IR IO
ROVONCNLEWN-0O
ZEBBYRRLER

1675

MACY1l 30(1046)

RPOY/5/6 MLT-

RR20E00%$ERREBES83BER 5T
: :Y

260,0

OFMSGO

;+600 U
1-600 U

INCHES
INCHE

INCHES
INCHES

INCHES
INCHES,

14400 U
INCHES
:-400 U INCHES

TERMINATOR

14800 U INCHES
:-800 U INCHES
141200 U INCHES
1-1200 U INCHES

ME SSAGE
2ND orrggr
::3RD
OFFSET MESSAGE
. 1ST OFFSET MESSAGE

'4TH OFFSET MESSAGE
O0cete

00esC7

OFMSGS

‘STH OFFSET MESSAGE
'6TH OFFSET MESSAGE

CZRJDCO,

/
RPO4/S/6
MLT-DR
LGC

CSRIDC.P11
"

15-DEC-77 10:58

Y
(1046)
MACY1l
30(1046)

-DEC-77
1S-DE

JO4

11:03
PAGE 49
VARIRBLE
LOCATIONS

TRBLES, CONSTANTS, AND

.MORD

OFMSG6

:7TH OFFSET MESSAGE

002260

483

‘WORD

"WORD

OFMSGO

OFM3G3

S248
005538
005683
gssgg ooaggg 002724

‘WORD
.WORD

OFM3G?

'4TH OFFSET

OFMecS
OFMSGA

{8TH OFFSET

8245

Bossee

%fi %&

5244

S2ug

‘WORD

"WORD

3
74
g2l
85308
ggégé
gfig
5283 D0S3l
Go5
4154
S22¢ 00S3h
Deoibe O '3hap

3286

1sT OFFSET MESSA

OFMSGH

3%6

T OFESET FESCRGE

020122 OFMSGO: .ASCIZ /AFTER RETRY WITHOUT OFFSET/
858155
052517

Osisoe

129

043117 OFMSGl: .ASCIZ /AT OFFSET +200 MICRO-INCHES/

051505
1

000
3117 OFMSG2: .ASCIZ /AT OFFSET -200 MICRO-INCHES/

5267

002424

103

e GED il Bl B0us
g5
g RUR
L OFMSG3: .ASCIZ /AT OFFSET 4400 MICRO-INCHES/
020Igd Qu3LI7
10] BRR
266 00ou1>
051506

5268 Dos4us 83«0391““

5:3-,’?.2 m@fi

052105

025440

471l

1si.3e1. géfim %gggg OFMSGY: .RSCIZ /AT OFFSET -400 MICRO-INCHES/

5275 Dosuee 030064
044515
272 DDoc0a 034103
oec2he CVEhG
gS7e

0ocs07

2573

002530

{

030IeY

Qu3LI7

§17

047111

OFMSGS:

.ASCIZ

/AT OFFSET 4600 MICRO-INCHES/

BT Bl me Bin B
5280
9gt
000
g581 Qo3 gaa183
101 gé?g
3117
OFMSGe: .ASCIZ /AT OFFSET -600 MICRO-INCHES/
£28% Boscen ng“"u 059 Ou71l1
RS

£ el

051103

3?32 OFMSG7: .RSCIZ /AT OFFSET +B00 MICRO-INCHES/

g?
] D‘Oqi
3?%9 OFMSGB: .RSCIZ /AT OFFSET -8B00 MICRO-INCHES/
£l
Be
001 822%65
BE poll
=]

2593

002646

259

0026E7

030070

020060

044515

101

020124

043117

£ Bor mhn gk M
€597

00ee?4

O0S1506

052105

025440

OFMSGS:

.ARSCIZ

MES

:11TH OFFSET MESSAGE

£
mr i
i
e
5229 %
11
§17 047111

5260
2861

MESSAG

iSTH OFFSET MESSAGE

/AT OFFSET +1200 MICRO-INCHES~/

CZRJDCO,

RPO4/S/6 MLT-DR LGC

CZRIDC.P11
2598
99

8500

15-DEC-77 10:58

002702
710
75&

g e

002754

044103

0027
2604
746
22282

1061
1511

32%83

O
1

0i24
S17

0S150S

MACY1l 30(1046)

1S5-DEC-77

11:03

KO4

PAGE SO

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

Q46440
Y455
123

315

0304
047111

OFMSGR:

.RSCIZ

/AT OFFSET -1200 MICRO-INCHES/

000

002762

.EVEN

gg?g

H ;lllil!lllllill!lllllfllllllillllll!llll!i!lll!l!lilllllflllll!lili!

S%ié

.SBTTL

%ia

3 FERRERRRERRERER R R E R LA LR RRER R R PR LR R AR

aagig

ooa;lf,s

ggoooo

2618
26.9
2620

002770
002772
002774

003166
003226
003

2e.a§E

300

00 3

3
003766

5617 D0s76e

262l
2622
2623

S
5253

2629
2630
g6

0B31%6

- HoRD

¥2i1338

- WORD
- WORD

8mm+suo
ATAL+700

"WORD

DATAL+E42

:ONES

.WOR

‘WORD

;DUMMY DRTR PATTERN

HORD
WORD

.WORD

000000

003042

ué

003044

2643
44

003050
003052

DATAD:

WORD

003046
3054

%goo

WORD

000000

WORD

000N000
%oooo

003066

000001

262 003070 000083
26€3 003072 000007

DATAl:

DATAL+4O

TA1+60

DATAD

'5358

.uong

; 5590:5

O
O

.WORD
.WORD
-WOR

; STANDARD DATA PATTERN POINTER TABLE

TRL+24
TR1+300
TA1+340

WORD
WORD

WOR
WOR

5235 09
ooaa:Concl
gegso % 000000
26S1

gnmmoo
ATAL1+140
83"'“508

‘MORD

o
Iuogg

63
00303 090000
39 3040 %88
2640
2645
2t

- WORD
- WO
- WORD

M 14 G
666

5635 %%% 000000

F13

gfl o

- WOR
W
- W0

gggas

RE LR AP REFRRRERLRRRAREERES

.WORD

%Sooom 003326
003
3002 %g:as

ce34

2636

STNDAT:

DATA PATTERNS

3]
0

000001

;STANDARD PATTERN 1

000003 '
080807

SEG 0049

2068

128

177778

77776

2670

132

177770

1727770

136

17774

1777

el
bbY

565

258

267

It
&

139

1777
777

7777

177777

177760

177700
138 177600

003184

2685

Do3lee

00000

Zrie

179

177777

WORD

800000

*- HORD
HORD

7%
s677
278
2679

142

fodlie 1177000
150
182
174

So81
188 190000
Sees Do3lee
100000
(003164 000000
2683

5683 003178
2083

26a
26

176

JUUU

177777

2694 003210 177777
263
26
2637
2698

299
£700

278§
27,

2704
2705
27
27

2708
2708

12
3214
003
0032

0032
003224

177

77777

177777

;STANDARD PATTERN 2

177760

3 BEBL

267
2674

g m
8%

-o

T U Bl 103 P

»o—»-v-.—o—-o—o—o—.—y}

R PO IR I

LO4

- HORD

172740

177

177008
i7
174

170000

150000
108000
000000
0

177777

HORD

177777

-WO

1277

-0
HORD
- WORD
- WORD

- WOR

77777

- WORD
.WORD

- WO

10421

0 ;STANDARD PATTERN 4

-WO
WORD

021042
031463

.WORD

073%&7

WOR
WOR

00
77
00
177777

. WO

;STANDARD PATTERN 3

42104
52525

SYTV VIT VVSIVLTI Lm ERSNARSN7ADNO0QCO-0 ;1 l.l.lbl.l‘l"lo

B S ii

aLU8I3I5gL1OrN5NlU3WsmTWIN5ATP5EfR%iSW%mxrZRFEm7AmlmN.25nnNR—7teS—aB7—7t7Bo”T7R7S77S7R77l”“R”777A7R7m””m79um-(.-w”s?q
CZIRJDCO,
RPO4/S/6 MLT-DR LGC
CZRJDC P 11
1S-DEC-77 10:58
MACYL1i
30(1046)

1S-DEC-77
DATA PATTERNS

11:03

MO4
PAGE S2
SEQ 00s!

;STANDARD PATTERN S

; STANDARD PATTERN &

; STANDARD PATTERN 7

NOY4

?:722
77

s%%i

PEERERERERTE

2301

se0
2804

28
2806
2807
2808

éflw;é

;gg:agg ; STANDARD PATTERN 8

1333

jesess

o feseee

§§§§§§
1o

§§§§§ §g§§§§
R

1RESE

5§H‘§§

ooooog

; STANDARD PATTERN 9

* WORD

0400

00000

177776

g81s
2816
2817
2818
2813

003552
003554
003556
Q03560
00352
003564

1777
17777
177767
17775
1
177677
177577
177377
176777
777
173777
167777
157777
137777
077777

2821

003SBE

172666

2810
11
g8le
281
2814

;%%

s O RUARBl 100 P 6
TR IO HERT

003534
003536
3540
42
4y
Qoue

:
i
WO

Yocooo0

MORD

177776

;STANDARD PATTERN 10

;STANDARD PATTERN 11

- WO
.WORD
.WORD
.WORD
.WORD
b
.WORD
.WORD
-WORD
WORD
WORD
WORD
.WORD
.WORD

17777
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

.MORD

172666

guReesREERERAREgfig &8

RPOY/S/6 MLT-DR

P11

1S5-DEC-77
155555

LGC

10:58

MACY1l 30(1046)

I agsc-77

DATR PATTE

11:03

.WORD

155555

15555¢
1

:
.

1; 55
17266

155558
172666
1; 33
172666
155585

.MORD
.uong
- WOR
.WORD
.WORD

155555
17 sgg
1; 5
172666
1558585

077777
137277

.WORD
-WORD

077777
137777

ggasgs

167777
173777
178777
176777
177377
177877

.WORD
.WORD
- WORD
.WORD
.WORD
"

167777
173777
75777
176777
177377
1775877

003652
gz

177737
177757

.WORD
.WORD

177737
177757

003664 177776

.5338

177775

§§
003674

.figgg

-‘WORDWO

3§3339

- WORD

saga;

o
.WORD

e
153333

.WORD
WORD

153333
066667

x?gsss

)

15655

- WORD

1? bbb

1877277

BRRRERL L He328iAR
e

nn
[ L] Leele]
~N ~ NN
N o nL

OO0

003662

177677

{7275
177775

333

2%%%5;

15333;

923353

066667

.WORD

.HBHB

g
-

SEG 00S32

172666

1?2555

i? §s

;STANDARD PATTERN 12

157777

177677

177776

333
DBBBE

. WORD

:STANDARD PATTERN 13

003722
003724

WORD
WORD

0666

3716
003720

153333
?

003726

.WORD

000000

003732
003734
00373
003740

177777
177777
177777
177777

. WORD
. WORD
.WORD
.WORD

17272777
1772777
177777
177777

003730 1727777

PAGE 54

.HBkS
gégaga
- WORD
6667

e L8
383712
1 33337
%;71‘0
153333
7

BOS

"WORD

153333
0BE6E?

177777

;STANDARD PATTERN 15

CZRJDCC,

RPOYS/6 MLT-DR LGC

CZRIDC.P11
2878
2879
g

003742
003744

15-DEC-77 10:58
177777

MACY11 w«xmgané;;gcc-w

DATA

.MORD
.WORD
"

N
-WO

-WO
.sggg
:

"WORD

-WO

2886

5832

;

2893

é&fé

2900

2901
2902
2903

LY
£
Q
wn

2904

004024

000000

11:03

277
1772777

177777

1772777

177777

77?77

000

.WORD

000000

"WO

80830

.WORD

000000

- WOR!

PAGE S5

177777
177777
i;? 7

. WORD

-- WOR
WORD

COS

88800

0000

;STANDARD PATTERN 1S

SEG 004

CZRJDCO,

RPO4-S-6 MLT-DR LGC

1S-DEC-77 10:58

MACY11 30(1046)
1S-DEC-77
11:03
ERROR POINTER TABLE
.SBTTL

DD BDDDDbDDDD
ruru:x O
0
3 DOICNLWwhu-0O 28 1

CZRIDC. P11

PRGE Sb

SEG 00cSE

ERROR POINTER TRBLE

THIS Tfle E CONTRINS T
?N F?R ERCH ERROR THAT CAN OCCUR.
X NUMBER FOUND IN
%gBY
RTON??%
#THE
lLOCQ ION $IT HB
CRTES HH CH ITEH IN THE TRABLE IS PERTINENT.

l NOTEL:

;

§NOTE2

ERCH ITEM IN

T ®

P®

[

004028

H; N%

TABL

T DATA 1S (SERRPC)

CONTQINS 4 POINTERS EXPLAINED AS FOLLOWS:

;;POINTS TO THE ERROR MESSAGE

; s POINTS TO TSE

:3POINTS TO T

: ;POINTS TO THE DATA FORMAT

$SERRTB:
:ERROR 1

En}

2 2
: B

;ERROR 1

:RH11 INTERRUPT OCCURREL (RPRS = 0)

DTl
0

ERROR 2

,SES

:UNEXPECTED ATTENTION OCCURRED

DTe
0
ERROR 3

gng

:MASSBUS PARITY ERROR (MCPE=1)

D73
0

;ERROR 4

Es:

:MASSBUS PARITY ERROR (PAR=1)

DTH

;ERROR S

EMS

:ADDRESS PLUG BIT CHANGED

SEE

;:RH11 DIDN'T RESPOND TO ADDRESSING

DHe
pTe
o]
:ERROR &

€960
e%el

004078
004100

0, RPO4/S/6 MLTP11
15-DEC-7
004102
004104

bGC
:58

MACY1l 30(1046) 15-DEC-77 11:03
ERROR POINTER TABLE

EOS

PAGE S7

SEQ 00Se

DTe
0

0S01S6
000000

E AR AR

SRR

.SBTTL

SETUP AND INITIALIZATION ROUTINE

;

RDDRESS TO CHANGE

AR AR RRRERRRR

START ADDRESS GEDO

RH11 UNIBUS ADDRESS = 204

;;lllllllllll!llll'lil..l!!l!ill!il!lil'il!llllillll!i!l!llili!il

004106

012737

177777

001260

START:

MOV

BR
o;
004114
CLR
START1:
37 001260
004116
START2: RESET
004122
MOV
004124 013737 001352 001372
MOV
001354 001374
004132 013
OO4140 013737 001356 001376
MOV
004146
004154

013737

001360

012706
00S026

004166
004170

001374
012706

001100

0O4174

012737

030530

004202

022706
012737

001140
000340

CHP

030

032

Seiiaiiahi
e

Bt B

e B

rlatatetstatatel

pO4240

013746 000COM
004244
015737 004300 000004
004252 012737 177570 001140

'’

004274

004276

MOV

#SWR,R6 ; ;DONE?'
sc

001012

assnrv ; EHT v;croa FOR ERROR ROUTINE

ntn

.,L
RAP
TRRP VECTOR FOR TRAP CALLS
ab
Rapvsc+aLgfl
RANDOM NUMBER GENERATOR
i
.17553,

MOV

MOV
MOV

CMP

#-1,3SUR

sga

go H chu auo LOW WORDS
OR IT
ER. IF NOT FO
n:c
83
REGISTER.
A SOF TWARE SWITCH
5gp FOR

-(SP) ;; veusnaon VECTOR
8648
aoskavsc
PiSET
ERROR VECTOR€ SWICH REGISTER
;3 SETUP FOR A
SWR
%D

8NE

668

65$

8658, (SP)

004314
0127 888174
004 001142 66%:
004322 012637

MOV

MOV
MOV

$SWREG, S

004326

MOV

¥240, IWEMTVEC+2

004306

004306 39%952 000176 001140 65S:
004334
0042342
004346
004250

012737

012737
005227
001017
023737

000240

000240
177777
000042

000032

00003€

0O0004E

MOV
INC
BNE

CMP

oooxs# DISPLAY

R?¥

012716

; ;LOOP BACK IF NO
::SETUP THE STACK POINTER

KffiSs

B4S:

gg:ggg

:SET UP FOR NORMAL PASS

MOV
MOV
MOV

MOV

022777

000403

ENDCN suocou

Enocnl ENDCON+2
NDSK , ENDSEK
ENDSK42, ENDSEK+2

MOV
sl
::SIZE FOR A HAR
:IEQUAL TO A "-1%

001142
004260 012737 177570
177777 174644
004266

MOV

cncnos

. =B
BNE
vnxran?ze " rgfi

004210
012737
883073
000034
004216
012737
kL]
032462
012737 176543 g?ooas
GO4e2d
004232 012737 1234956 032464

SETUP:

:START THE PROGRAM
THE RH11 ADDRESS CHANGE FLAG
:CLEAR
:CLERR THE BUS

LSBTTL ;Nx ZE THE COMMON TAGS
onnou TAGS (SCMTAG) RREA
: ;CLEAR
,,rxnsr LOCATION TO BE CLEARRED
oagnrnc.ns
:CLEAR MEMORY LOCATION
(RE)+
CLR

001100

DO4154
004160

O0C4162

001400

:SET nnxx ADDRESS CHANGE FLAG

#-1, CHGADR

START

,,TRY TO

; ;BRANCH IF

REFERENCE

NO TIMEOUT rnnp OCCURRED

1AND TH? HARDWARE sun 1S
NOT = -1

,,ennn
F NO TIMEOU
UP FOR TRAP nsrunn
::SET

..POINT TO SOFTWARE SWR

NDISPREC,
BIsPL ..nesron: ERROR VECTOR
(SP)+, aotnavsc
oauo J8TRAPVEC+2
s

anqa.a-ue

;CHANGE EMT PRIORITY TQ S

cnnncs TRAP PRIORITY T0'S
,FinsT START
:BR IF NOT

'ARE WE IN ACT-11 AUTO MODE?

)

OO0

QENER TIononEs
mg
Wo
: B2
S

FOS

MACY11 3?( 1046)
15-DEC-?7
11:03
PAGE S8
NITIALIZE THE COMMON TAGS

\awg FPY

ORGP

000041

S464
30050

ooco42

WWW—-n
NNNNNNN

N £

000011

1772777

001140

ggg:

033332
033334

BNE

s7s

BNE

6588

5888888858
o

:NAME AND MAINDEC NUMBER
nuvongcgpr OR CHAIN MODE

}

§on AN RPO4/5/6 ?

YES

,,csr SOFT-SWR SETTINGS

MOVB

£1,SAUTCB

:;SET AUTO-MODE INDICATOR

INC
BNE
JSR

8-1

;FIRST START ?
:BR _IF NOT
:CHECK RH11

MOV

snknonADR
RPADR

1ST

FILH

SRPVEC| RPVEC

JSR

PC, OPRDAT

QEX

oggosno,RS

CLR

MOV

‘RH11

sg E ADDRESS

VECTOR ADDRESS

IACT-11 AUTO

{BRANCH IF sx

CHAIN MODE?

:DATE & OPERATOR
:GET THE DAT

SKIP

1D INPUT

OPERATOR 1D

#BLKADR, RS
33
#STACK, SP

;LOOK FOR END OF CLERR AREA
'BR_IF NOT FINISHE
ISETUP T
ACK PO

:START

,é/so TM °“H$6§° TH SECOND COUNTER VALUE

MINUTE

iCL na THE

SECOND

INTRVL+2
PACK

CFLAG
o17oooo,nnxzn

iCLEAR T

AREA TO CLEAR

PS
HZ,SIXTEE

CLR
CLR
BIC

iRHI1

:CLEAR ggnronnnncs SUMMARY TYPEOUT FLAG

HOUR

CLR
CLR

: BRANCH ;r NO

STATIN

CLR

001406

NG UNDER XXDP/ACT?

:BRANCH IF

.,sorrunae SWITCH REG SELECTED?

CMP
BNE
MOV
001274

SWR, $SWREG

BNE

[
e e e
orvn £ n
OO0 —— NN —
oo
oTY

;BRANCH IF ves

JSR

MOV

8
Py

:}1,91

CMP

000176

(=]

gnpa

TST

001134

ITLE

r?%e
L0 av
;
T THE OPERATOR ON HOW TO TEST DRIVE O
pC
T
xevaonno INTERRUPT
LSBTTL GET VRLUE ton sorrunns SUITCH sEcxs

18:

2%:

28
N6
2BE34EY
GUYYYYYYYR

g;sun
000001

YPE
1ST

BNE

—

gzo

SEG GOS7

iCLEAR T

i CLEAR H;

gnocsssonS nru WORD
'S COUNTER

M NUTE’S COUNTER

OND’S counrsn

CL
% E an COUNTER
E
'R’ OR 'W’ COMMAND FLAG

CL AR THE *CONTROL C' FLAG
:MAKE SURE ERROR LIMITS ARE NOT TOO HIGH

£0L£L
LON0
ocOLLE
-

—

ROAR 3

N
N
N

:ROUTINE TO DETERMINE BUFFER AREA SIZE

001256
0S4466

004662

00le22
000144
O0l1ese

SIZMEM:

INC

BNE

JSR

18:

MOV
MOV
MOV
MOV
SUB
cLC
ROR

SUB
CHP

:SEE IF TIME TO SIZE MEMORY

#-1
$SIZE

,an IF NOT

'SEE HOW MUCH MEMORY ON SYSTEM

sLéTno LSTAD
;SAVE THE LAST ADDRESS
uF t8L
OF BUFFERS
oskopcn BUFTBL+2’: LORD
srnnNgnasn
ING ADDRESS
OFBUFFER

LSTAD,BUFTBL+4 ;LAST ADDR TQ BUFFER ALLOCATION TRBLE
SENDPGM, BUFTBL+4' ;SUBTRACT Pnocnnn SPACE
;CLEAR Tn; 'c’ ax
BUF TBL+4
:CONVERT TO WORD
C

8100.,BUFTBL+4
LSTAD.#100000

;SAVE ROOM FCR rus nas' LORDER
:1&K ON THE SYSTEM ?

GC
6 MLTCZRJDCO, RPO4/S.
15:59
15-DEC-7
C%gJDC.Pll

10
70
000041
632;g9
88:272
3078
30;;
14 ;

3079
3080

004712
714

7e2
3081
3082 0047

001622 3%:
6857737 382570
14904
0010l
8553

10340;

xasg:

001404

001622

3083 004732 31373 001622 001404
2 0S34Se 4§:
013737
gggg 004740

S78

§358
ST
BNE
MOV

CMP

1022
183401 053552
104411
012605
122715 000131
0010!3
103003
012737

000004

B
oseao

:BR IF VALUE ;
; ASS
F?% RACK + 1 SEC MAXIMUM
:BR _IF NOT

buFT +#4 ;IS THAT TGO LARGE?

MOV
MOV

BNE
TYPE
ROL IN
MOV
CMPE
BNE

3855 004772 012703
0S3454
ENTPR: MOV
JSR
026272
004737
004776
3097
CMP
3098 00S002 023727 001404 000004
005010
00SGl2

3s
‘°§u6'
D
APER TAPE
Loaosn SIZE
9
'XX
';SUBTRACT
-1483.,BUFTBL+Y
:VALUE IN ’MAXOL'

BLO

LKPAR: TST

3838 004746 885737 000042

3099
3%8?

:BR_IF YES
WHO
Loaoso THE PROGRAM
:SEE

3s
41

guoq,MAXDL :USE MAX AVAIL
MEMORY AS_MAX BUFFER SIZE
TBL+4 ' PARLET+& :VALUE FOR THE PARAMETER TABLE

:SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS

3099

3089 004752
3090
754
3081
760
3092 004762
3093 004764
goqw 004770

SEG 0oSe

3 PAG
SESISTER
?og g un%é gulrcu
VALUE 15-DEC-77

MACY11 30( 046)

3074

gg 78

GOS

001404

BHIS
MOV

any2

SETVEC
. ASKPAR
(SP)+,RS

8'Y, (RS)
SETVEC

SPARLST,R3
PARENT
PC,
nnkuu '
SETVEL
¥4, MAXDL

-xxop' cnaxn MODE OR 'ACT11® OPERATION °
'BR
IF YES
{ASK F Pnnnsrsns
nzno
;
or ENTRY TO RS
'v' (YES)
uns EN n
iBR I

,Pnnnnsrsn
ENTRY
$snRDDRESS
:GET THEP TABLE

i 1S THE 'nnxoL- VALUE OK ?

:BR IF IT IS
1SET 'MAXDL’ TO THE MINIMUM VALUE

3102

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

00S020 004737 022412
004737 033350
005024
3106
3107 005030 012737 177777

SETVEC: JSR

3183

3105

177777

033272
000000

777 0D000ON

174064

000340

177776

O&e727

3108

005036

3111
3112
3113
2114
3ii§

005054
005056
005064
00S06e
ooso;g

1076
012737
00S004
104401
104401

3118
2119
3120
3121

005100
333102
103

104403
002
0

2109

005044

3110 005046

3004

3117 855875 010446
3125
3123
3124
3128
2126
3127
3128
3129

005104 104401
005110 105764
005114 100416
oosxés 001020
105764
0051
005124 001404
00Si2e 10000€
005130 109401

0O011ES

052344

852153
033204
033214

o0s2zs”

THE PROGRAM WILL USE

JSR

PC, CKCLK
RPINIT
PC

BCC

118

MOV
ADD

BIT

118:

s-1,SAVEFG
s-1.%0

#5WL02, ISWR

TART THE
%ue RPOH/S/G DRIVER
HEE CLOCK
?nxr

(SET Hsogn
REGISTERS
rxnsv START
cuscx
IF FIRST START

YPEOUT THE DRIVE STATUS TABLE ~

MOV

108
#PR7,PS
RY
, SCRLF
'SYSTAT

RY,-(SP)

a IF NOT
:SET PRIORITY TO
7
,onxv: TABLE POINTER
:CR-LF
-rvpe STATUS HEADING

TYPOS
.BYTE
‘BYTE

2
O

"TYP§YEE NUMBER
16
E--OCYRL ASCII
i3 IYPE 2 DIGIT(S)
SUPPRESS LERDING ZEROS

BNE
MOV
CLR
TYPE
TYPE

TYPE
TSTE
BMI
BNE
TSTB
BEG
BPL
TYPE

LINYSP
DRVSTA(RY)
4§
53
DRVTYP(RY)
2%
3%
"NOTRP

FLAG

: s SAVE Rq ron TYPEOUT

éPACES
:CHECK DRIVE’S STATUS
:BR IFUNSAFE
.a IF or&me
OFFLINE on NONEXISTENT
:SEE IF
‘BR IF NONEXIS ENT
‘BR IF OFFLINE
:DRIVE NOT AN RPO4-5/6

CZRJDCO, RPO4/S-6 MLT-DR LGC
CZRJDC.PL1
1S5-DEC-77 10:58

3130
3131

Sggxgz
1

3i35

oosisa

§§§§
150
1 §§§}35

000440
104401

052300

u§z 052166
o4
104401 052334

HOS

MACY1l 30(1046) 15-DEC-77 11:03 PAGE 60
GET VALUE FOR SOFTWARE SWITCH REGISTER
;CHECK NEXT DRIVE
9%
3R
:DRIVE NOT PRESENT
NOTPRS
TYPE
2%:

3i
4s:

00101;

31%
&s&a 68%
3145 005224 012737 052376
3146

3147

005232

88?532

104401

005234

7%:

035 195592
§1§§ §§§§§§
62 000137 005266

3122

737

3152

3164
3165
3166
3{27

iBR'IF YES

ENE

7onpos,es

LWORD

’

szs
éns
?955
CLR
IMP

5%!” TOFF

Eog VE ONLINE
uurog
'goo gs OF RPOY MESSAGE
§RPOYB, 8%
ogxroo"DRVTYP(R4) ;RPDY ?

kgCRLF

RY,
#8.
lsanr
Pg
MONTR

; BR ?foéss

SAGE
: ADDRESS O
rvpe MESSAGE
TYPETuengngz

NT DRIVE NUMBER/TRBLE POINTER

}?gflf
an xr nor
PRIORITY BACK TO 'O’
ger
CHECK FOR 'XXDP' OR 'ACT11' MONITOR

:SETUP IF 'XXDP' OR 'ACT11' OPERATION

gigg

318
3160
3161
3162
3163

BNE

MOV
TYPE

8%:

COALGS
2 MR oty7 000010
gi:g
3180
88?53&
3{51 005250 001312 .

‘gorsnr

FEHE xfi
K DEF
tRE E
SvaéflstE
;BE
;gsxx; BS?SEETYPE

$¥gg
MOV
BITB

gg:
§ig§ 88§i§§ 1§§:8§ osaxgg
3133 832190 6127g4 8?2554 005234 ’
3140 882553 132764 000001 033214
3141

B8R
T;PE

D00S274
005300
00S304

14
0047237
00S227
001011
7

005314
2

023727
133002
104401

001256

000137

00Ss22

MONTR:

000042

024274
177777
000041
055663

18:

TST

'XXDP'

BHIS
TYPE

LSTAD, #100000
28
, NOLORD

THAN 16K ON THE SYSTEM ?
nong
g HE
ELL T
opsnnroa THAT THE °XXDP®' LORDER

TYPE
IMP

INTDON
MAINI

TYPE *INITIALIZE COMPLETE®
:START THE PROGRAM

JSR

PC,STKINT

i8R ?EYES

THExsvsonao INTERRUPT HANOLER
&*ngxgs

gxsg 005330 004737 0300S0
3170 005334 104401 063341

2%:

3%33

:*XXDP' OR 'ACT11' END OF TEST ROUTINE

gigé

DOS34C

gi;s

D0S344

3178
3179
2180
2181
3182
3%33

005356
DOS360
005362
DOOS3e4
00536
00S370

3178

Zles

013600

000042

$GETH2: ngv

0041i&

18:
RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN: JMP

800737
oosszz
00000S
004710
000240
000240
000240
000137

HAIN MODE OR 'ACT11®' AUTO ACCEPT

NEITHER
'BR IF
'ASSIGN DRIVES
:FIRST START ?
:BR IFNOT
'50
D FROM PARPER TAPE ?

1
PC, ASGN2
u-1
2%
goux

BEQ
CMP

100000

BEQ
JSR
INC
BNE
TSTB

ONF

?e,no

Bgnx;o: nogggss

PC, (RD)

:GO 1O THE MONITOR
:SAVE ROOM
.ron
'ACT11
:START AGAIN

MAINI

START!

i:CLEAR
RONE. CONTINGE
svznvrnxuc

33 P 2222222222222 22223232222 22222 2222222222222 2222 2t n bl bl bl bty

SEG 00E9

l-4

’-‘U\
w
Cfl"

gn
et P Bt s ot Pt Pt Pt Pt ot Bt Pt Bt e
gl
R WWWWWwWwWwWwWwwWwwivuw
NOB
T
NN £W—0.BE IR EDR— BB SRR LD BBB I8 S0

OO0

9R bGL

MACY11 30(

I10S

VRLUEI?OBEEOZ;Hfl&é gaITgHEEGISTER

046)

.SBTTL

SEC COes

MAIN PROGRAM

017530

23
(R1), (RS)
78
#2,R1

JSR
CLR

bc TYPEST
s>

JSR
B

PC,CHPRES
cs

MOV
TYPE

(R1),RO
DERSSG
R1)

..gsmfifi

ro-—

SO M-

—

<re
D

<
—-D

il-‘Hflg‘gg

{R1)

SWRIT,RI

URN
DRIVES®’

TRBLE

K "WRAIT* TABLE
HE ONE TO BE DROPPED

TABLE ADDRESS

BUFFER HRIT TABLE
OF H;
TABLE
7
RNY HORE *DROP* REQUESTS
TRBLE
7

T
RESS
HROUGH THE 'WAIT'

TABLE

SS IN RO

RFORMANCE SUMMARY

VE'

O D

0S26S0
022676

ré ¥

#2,R1

4§

000002

BEQ
CHP
BEQ
ADD

TST

001ss2

ADD
BR
MOV

000002

.:.%N
22
85 =83 3 g8
5
*es
<o ~DUN Bifl 3F 38933g 22
3
MmmD
fi
-2282

CHP

TST

S _ONE

DRIVE

VM
3D
=D

MAIN1
SGETH
SAVAIL,R1
(R1)
c§
(R1), (RS)

00S344
001530

ASNLST

TRABLER POSITION
0 NEXTCOUNTE

etmmm

BNE
JMP
MOV

TST

001462

3%
82,RS
ng
1

000002

BNE
ADD
DEC
BNE

TABLE

%s ENTRY AT PRESENT POSITION

(RS)

Bz 5

1ST

COUNT
DROP DRIVE'
;

18:

sDUNIT,RS

#8.,R3

MOV

DV
wnom

MOV

momr 44O
OO
C
g
D
— 9z 3% 2357
TM
fim 2
mxX3xXmMm
.(
(R
O
e
T
x
A
A2
M 23

W= WO 8 30
== O = b= AT
et

NNNNN
L= ENN=DONW

—

(=]

000733

MAIN:

B e

N
NWWNONNN
o
it YR
YNO R

ron

88202
BRERegegReREREsesssrEs
5 NE=NNE

;;llllll!llllilil!liliilli!Iliiilllllilllll!liill!Illlllllliliii9

TABLE ENTRY

THE 'AVAIL’'
E TABLE

"WAIT'

;LOOK FOR DRIVES TO BE RSSIGNED

S40

00SS4e
D0SSH¢
DOSSS(
Se
00SSS4
=1

00ssSe4
00csee

00see?

00043¢
104401
010446

104403
002
oco

000010

MARINI:

001506

19:

000002

2%:

0s2160

3%:

MOV

#8. ,R3

CLR
CLR
CLR

RZ
RY
RS

BNE
ADD
INC
DEC
BNE
BR

33
82,RS
RY
R3
13
MAIN2

MOV

RY,-(SP)

TST

TYPE

TYPOS

BYTE
BYTE

Ore<Cre m-«;(lz

HIS POSITION

NEWUNT (RS)

UNTMSG

2
O

G
E _COUNT
V ES

IVE'

N S FOR THE AVAILABLE DRIVES

,,SRVE RY FOR TYPEOQUT

..TYP§ gRIVE NUMBER
Y E--OCTQL RASCII
T(S)
PITYPE 2

.,SUPPRESS LEQDING ZEROS

TABLE

CZRJDCO

RPO4/5/6 HLY-DR LGC

JOC.P11

15-DEC-77 10:58

3242

005570

683”25

3244

005600

001403

3243 005579
q;
3247

3248

3249
3250
3251
ggg

005610
516
b2
005634

005640

%7
77,
016

00506

15643
016200
062702

000740

MACY11 30(10‘46)

MAIN PROGRA

052720

001530

Ys:

000002

001506
801505
33320
001530
0002

0C1S30
001462

3259
3260

3261
3262

005650
00Se52

3263

005664

3265

005672

3264

005670

801551
16200

105760

000026

004737

017546

012701

001574

3266

005676

001403

3268

005704

000415

3267
3269

005700
005706

3270

005712

020011

3272
3273

005716
005720

005721
001403

3271

3274
3275

005714

005722
005724

3276
3277
3278
3279
3280
3281

730
734
740
%me

3283

005760

3286
3287
32

005774
005776
006000

725
001376
010045

3291

3297

3282

3284

3285

3289

3292
3293
3294
3295
329c

00S754

%g;%

18:

016446

737
001424

015672

2%:

3§:

4§:

5§:
63:
78:

quasso 000006

00S06

oxsaua

ORIVE oU

NEW DRIVE TABL

ATABIT(RY) ,ASNLST
;vs ASSIGNED INDICATOR
AVAIL (R2), RO
,Pb
TARTING ADDRESS OF ELOCK IN RO
82, R2
: INCREMENT AVRILABLE TABLE POINTER
:LOOK FOR MORE DRIVES

BNE

£3

R2
AVAIL (R2)

SNEXT(RO)

: PARAMETERS BEEN SELECTED ?

'BR IF THEY HAVE

P'R’ ga "W’ COMMAND FOR THE DRIVE ?

PC, WRTPK

iGET gnm PACK PARAMETERS

78’

MOV

:CLEAR DR
TRBLE POINTER
:ANY DRIVES WAITING FOR PARAMETERS

$PACK (RD)

BEQ

iBR_IF

NOT

:GET

THE aurrsn

#PARQ . R1

‘ADDRESS OF THE
PARAMETER QUEUE

4§’

iBR

IF IT x;;

: CON
H

nug
S

CHP

RO, (R1)

TST
BEG

(R1)+
c§

‘AT
:BR

JSR
JSR
CLR
SSR
MOV
BEQ

PC. SELPAR
PC’ GETPAR
-(8P)
PC, GETBUF
(SP)+, SBUF (RO)
g3

iSELECT T
ARAME TERS
L
NEW 'Emrsns
:MAKE ROOM ON THE STACK FOR THE BUFFER ADDR
:GET BUFFER
;nov; BUFFER ADDR TO DPB
:
r 0’
R (NO BUFFER)

CLR

JSR

$FAIR(RO)

PC, GODRIV

.c;

TST
BNE
MOV

(RS)+
=2
RO, -(RS)

fpgcxmm

;E
o
:BR _IF or
;PUT BLOCK ADDRESS INTO QUEUE

,és-lgns HESO""D FOR DRIVE ?

#PARQ, RS

:Pur BLOCK INTO ms PRARAMETER QUEUE

:BR IF YES

BEQ

BR
JSR

gaga

006010

012705

001574

MOV

00e032

00140S

MOV

B%:

oursmuoxuc BUFFER REQUESTS

:BRANCH IF NONE
: CONT,
BLOCK ADDR IN RO

JSR

0C1254

WAIT

IDLE
avnxune) RO

000026

000072

nvaxmeu: ABLE INDEX
LOOKING FOR ENO
meLs
Ao?n
DRIVE INTO AVAIL LST

BEQ
MOV

CLR
TST

o%gg

00S725
001376
01004S
000417
026037

IF YE

82,R2
: INCREMEN
"3
:CONTINUE
NEWUNT (RS) ,AVARIL {R2)

BRIFT

805370

006C14
006016
006020
006022
006024

ND OF AVAILABLE TABLE

MAIN3

8927

moosooa

73;

JSR

% 37 017322

0O47

NEWUNT (RS)

TSTB

017530

004737

CLR

ADD
BR
MOV

SEG 00!l

;'nsgxcuso'
iBR

TST

001403

00077;
004737

SGND

BEQ

BISB
MOV
ADD

001530

000104

021

PRAGE &2

hvnxuna)

BNE

001530

760

JOS

TST

MAIN2: TST

001113

005762

11:03

;GET PARAMETERS rEnmcs AND START ORDERS FOR DRIVES IN
:
THE "AVAILABL
EUE’

32532575 DOS6M2 005737 001552
00Se46

S§:

TYPE

3254
3285
3258

15 DEC-77

TST
BNE
MOV
8R
CMP

BEG

35
PC, CMPRES

PC,FILBUF

#ORDERG, RS

: 1S CURRENT DRIVE IN THE QUEUE ?
END 9:
HE QUEUE
IF AT
END

;nu.

00K ING
TABLE

FER

"FAIRNESS’ COUNT

nem PB m onxvsn

DERQUELE IN RS

(RS)+
:FIND THE ENO OF THE QUEUE
:BR_IF NOT
AT END OF QUEUE
RO, -(RS)
:PUT BLOCK ADDRESS INTO THE QUEUE
10
:CONTINUE
LOOKING
$FAIR(RO),FRIRNS ' ;ENTRY BEEN IN THE QUEUE LONG ENOUGH

1S-DEC-77
MRIN PROGRAM

1830
1530

108:

017530

(RS)+

.-S
AVAIL(R2),~(RS)
SAVAIL ,R1
R2,R1
Pg,CHPRES
1

'inov§
;

| COMPRES
| CONTINUE

4
OLE

PC,FILBUF

CLR

SFAIR(RO)

BNE
MOV

.RO,
-(RS)

BNE

TST8

MOV
TST

BNE

~N
wo
ONe-

(SP)+,SBUF (RO)

JSR
MOV
TST

28:

-(SP
PC, GETBUF

MOV

MOV
JSR

SORDERG,
RS
(RS)+

ACK (RO)

#PARG,
RS
(RS)+

RO, -(RS)

SWAIT, R
PC,CMPRES
meinNg

HE ThBLE

LOOKING

’'BUFFER WAIT’

QUEUE

;HO%E THE "WAIT’ ENTRY TO RO
3
ROOM ON THE STACK FOR THE BUFFER ARODR
; TRY T?HSET &
::

;
3

FER

BUFF

T0 THE COPB

F A SUFFE
ASSIGNED
;E
AVAILABLE YET

BUFFER

ngrgx

g -

BNE
JMP

WRIT RO

QCK RDORESS TO QUEUE

.
ADORESS
SS OF LAST
ENTRY

N _THE DRIVER

SS’ COUNT
QUEUE IN RS

2083
=2 B

LR
JSR

ENTRY COUNT
NTER

xv:!g

1AvA
FORM

~§3:'*=g§§ip
L

18:

gov

MOV

—

TST

BNE
MOV
MOV
ADD
JSR
BR

PN S2BDBOVNZED

MAINS:

865672

:WAIT FOR AN ORDER TO FINISH
001440

IDLE:

18:

(R1)+,R0

JSR
JSR

PC, ABNRML
PC.EOP

TST
BNE

(RS)+
2%

RA-IYYLS

;DL;I

026524
0eesse

BEQ

€40

015526

WNN
N

SORDERQG,R1

MOV

TATUS(RO)
18
82,R1
RI.-(SP)
PC.STATI

000002

o
o

MOV
TST
BEG
SUB
MOV
JSR
NOP
JSR

000016

—

JP IR

1
SWARIT,RS

SEG 0062

INCREMENT THE
INCREMENT T

#2,Re

PAGE 63

;GET BUFFER RSSIGNMENTS FOR DRIVES IN THE

0o1ss2

ey k

SFRIR(RO)

KOS

WINININI
NI VIS NI NI
SRS

LF R pRINE 752k

R PR ee o aoRoe:

INC

ADD

9s:

11:03

ooisse

Bt Bt Bt Bt Bt Pt Pt ot Bt o ot o o o Bt Bt s Bt Bt

—

R %§ *R
W

30¢( 1046)

s0002

:
.—8§
%g%&
N -4R2
R
Bigd RRS

SECE

555

MARCY11

001830

CLR

2%:

MOV
MOV

;BR
xE NOT
F
D
; CORRE
M% POINTER
; SAVE
THE EUEUE
DRESS
; ACC
AT R?gflTISTICS FOR DRIVE IN RC

PC, PROCES

BADSEC

(SP)+,R1
sAvAIL,
RS

HAS XFERED 3X10t9 BITS
TABLE INDEX

'END OF THE TRBL

'BR IF NOT AT EN

HE
,

*AVAILABLE®

OF LIST

TABLE

CERIBE%H POo T
WS7
;B

e
o

l7 7

; 001214

3362
%
5

lgg; JZIH
: i
011310
157‘0
78

337¢
gg;a

7
000137

006374

032777

3380

006412

00103;

T
: 4

338S 006434 11

=
3386

00EYH0

3330
3393

IDLEL:
172616

18:

2%:

017530
00S374

3s:

882502

000001

172536

REFMT:

172526

PRAGE &4

SS*SS%E
guocx
nooness
Uémo THE TABLE

?&xsn

:om c'

senv cn: xsvaomo

ATIN

?R ro rm THE PERFORMANCE SUMMARY 7

PC,
RELBUF
&:;an

BIT

suSe.asun

gga
gEEE
gm

’s,cnggwn

;E?i

PARQ

JSR
NP

MAN

MOV

'1183

SEG 003

s('cm é hfiéeng)

JSR
T z

000076

6137%’

1404

110528

000100

C00102
000404
000102
000074
000104

BIT

g?$
aéo
MOV
5359
gfl;

001416

ég% ga0ies
11

ol
e
55 Bl
e
g Ml
£ e m

MOVB
MOV

5
LAG ENTERED ?

s SUMMARY

tr: xno'cmon

§:Tv xn uemmrsn QUELE ?

PcAggLPm

sswp

a.ocx nooa:ss INTO RO

Rron nsxr OPERATION

2 $: PémE"E

cmés
PC

ormuu: n£

- 4o, 3

,ém
oufv
SWITCH SET 7

:, ¥CH
‘&
i WR; R 3 DATA ORDERS ALLOWED *
%c
), sucvukm
YL INDER ADDRESSES
( fi%flx(m)
; 6%5%35
SECTOR-TRACK
aSW7

REFMX

(5P)+ inssc(RO)
:seIc$on r?°SS
(RO)" ~;WORD COUNT
gn

'esx&'.'

gms

MOvB

JSR
By

RS, SNPATC(RO)

,PQTT 0?: T0 CONTROL BLOCK

B
gnz

&
gg,uun

B
FIS
SR POSITION
:gsslgr
BLOCK AT PRESENT

5339

CLR
REFMTX:

2404

11:03

;SETUP TO REFORMAT AN ERROR sscron

3377

gggé

5’8};’

000004

MACY11 33&1343%0GAEEDEC-77

J§n

RTS

» 8260.

;chu a 9. CTOR BE mmsm ?

‘ mo: PUT¥mER SIZE INTO THE DPB

PSZ N‘f\P
GRS

LIS D
R e
ren ke

- (R1)

{CLEAR THE_ENT

: RETURN

PC,CMPRES

;PROCESS THE ORDER TERMINATION

:COMPRESS THE meLs

B
Y Y P Y P P PP PR PR
&
HEaiERLggéssaffi£§§§uaaussxssmsxmmwmwesza:sa:az:§§3§3
8

CZRIDCO,

CZRIDC.

RPO4/S/6 MLT-DR LGC

P11

iS-DEC-77 10:58

MACY11l 30(1046)
1S-DEC-77
MARIN PROGRAM

B084d AMA%%0 BBAGIE

G R

e frg Looooo

040000

s
§§:7§7 oéo;gé
l% 013154

007264

18:
172320

2s:

MOVB

S
J§¥

9"5

JSR
RTS

000016

Bdeees fATEse 01000

000016

004000

000016

002000

000016

001000

000016

0066SY

032760

006672

001056

006724

SEQ 00e+4

sTandtho)
22&"&"3%‘?&. QT CNALED
?§x¥i§ sarcsx(noi zr
Ao SET
T4 sarcsxxnoi
'TRE'
SET
sg5n5c
T
sBITIN, sa9051<no$
F "ERR’
R F

cflgnn
PC, CT
C, CMPAR
RPR

ERPROC:

BIT

AN ERRCA

SSAGE

RROR,T cuecx BUS
ERRADDR
BITS& ANYWAY
WC
xr nor
no ERROR, COMPARE DATA
: RETURN

oexro7 STATUS(RO)

ERPRC1:

gag

BIT
B?‘

BNE

000016

000207

331

'ERROR’

'DONE NOT'

BITS

oaé 1 srarus<noiafipn§x}¥ RROR OCCURRED

10, STATUS (RO} rarnL

YTY ERROR?

ga;rossrnrus:noi
39114!BITO!, srnfus<

BNE

PRTI

RTS

BIT SET

, STATUS(RO) sis
IF onxvs WAS UNSAFE

xr
axr

5?5

000016

;DONE BIT

ggoé
n xou T comp ETE NORMALLY

; PROCESS ORDER COMPLETION WITH

Gt Wi |,
o000
%;ég ELL
0011

a $TATUS(RO)'

T nz

IVE WENT OFFLINE

.ah IF 1T DID
:ERROR.

ONE

ST TIME OUT ?

“RETURN

;DRIVE IS PERSISTENTLY UNSAFE

s 1o
0067
o440
006746

104403

%26

137

oy
R

00674

PUNSAF:

geres oy RO
006766
004737
737

o
n
W
£
n
£

007002
007006

~N
W
N

[

000234

e
Egi
BIT
SIE

PAGE 6S

;ORDER TERMINATED WITH AN ERKOR
- PROCESS THE ERROR

%712

000234

040000

006674

PROCES:

11:03

0047237

021762

TYPE

,SCRLF

MOV
rvsgs
%Y;E
SR

ONIT, -(SP)

Ssni
kc LINEL

JSS

fic.Lm-:a

JSR
ISR

PC. INCTOT
PC.LINE?

;;gg

pIsPLY

728

Sgfifin

pe'HiNEd

;CR-LF

62“6”‘ unsa;c' MESSAGE

:,§3 §§¥3§F°" TYPEOUT
..go rvpe--ocrgLaascxx
::U;SRE2 Lénofnc ZEROS
Pnsg #}"? OF ERROR MESSAGE
;s

vxcs uusnrs nzssacz

M HNE 8‘? F@RSSEn&Esgcs

NCREMENT TOTRL ERROR
annr LINE 7 OF ERROR nsssncs

EERIBE 17" TE%0kE At
T

000137

SEG 00eS

;DROP THE DRIVE

; UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED

§§fifis

5353 8383 &a353 m%m m m B

7026

gl BRASS
32
-

FiN
NNR

-t

CR-LF

FINI

; "FATAL' MASSBUS PARITY ERROR OCCURRED
FALPRI]:

;CR-LF
wnig
DRI

TYPE
))
TY

$i 28

MoV

;360

Own
172046

MESSAGE

TAL

)

ERR

19:

; SOFTWARE TIMEOUT OCCURRED
SWTIM:

olal=lalaleleliel:mGm m <Q.ocaa
>

cE sgy

;DRIVE WENT OFFLINE

Qe
AQMJA—G>OJabBdWoJcaOdohAJagnEO—ao_PriV4caXXRaneNmnr&O5= $el|TtOzXz3S 2L8
PeYcY wE £ w

ONSR5INB5RL¢ES gSN2ZI4S8NnaN—(\agN—eUonTNTgHoMepze

TY ERROR’

NUMBE
T FOR TYPEOUT

i SlpBRESS LEADTNG ZEROS
INCREMENT Tgng.flmaacmmr
sHALT
"

SF PROCESSING
THE ERKOR o
-

S - -4 2

wo=tvyve=s=y(,7TmR,>WGaEeS-

SBRITIE0Yo2o5gneg

iszgisze3saise,go5&20Bi£2h

TYPE

FALPAR:

(=]

THRTPRCR

UCPAR:

wmmw

Rondod

PAGE 66

JMP

026446

SLR8AS 83888

NOS

EST2ETSEeALrwimAlRmDO L -ETXE

TEe e
BDU SRRtS

007012

-DEC-77

M FRaIRTRR

11:03

e"uE¥os

58£.85y8 GTaCa[]x(LMWw

e—4

3888 RBD

H[T]I

ov oy v

fib

o0 -4

RPO4/S/6 MLT
79R1LGC
P11l
15-DEC-

g.zg

R S8
oo OO

MACY11 30(lflfls&
laEDEC-77
MAIN
PROGR

11:03

BO6

PRAGE &7

; PORT REQUEST TIMEOUT ERROR
PRTIM:
l‘l
L

9
JSR
JSR
JSR

J§a

RTS

PC,LINEL

LI
PC,LINER

000016

DONE:

000244

C,LINE?

ig =
880

Oy
LN

—

£
£

gEgEers
YREYRESICEREYRE

Lol <N = £

861728

0002s0

BIT

012370
002000

0oo2se

gl2012
004000

000250

012044
001000

0002s0

002000

000246

010000

0002se

01167¢&
040000

000244

010382

:TYPE LI

i RETURN
"ERROR®

'DONE* BITS SET

ng) ¥nsnrs OCCURRED

bleore

ITIN snposunoigézuscx'ERR’
'ms'
oax$oe snpsnunoi HEgC sen
54
;s 'ncnc'
OBEI’T mnunoia*'rn ?‘ssr

CK FORMAT ERROR

JMP

CKHCE

: CHECK ucs' ,ERROR

e
JMP
SH.
JHP
gés
JMP
g;z
THE
BIT

-%&S
Nooei
P?g’ms$7;n
;
'%Pom
"PAR’
.ex S, SRPER1 (RO)
ucl:; N§T§U
;
ggpom "WCF’
cex 10, SRPER1 (RO} : f’_gemgg&
mss
sgpom "1RE’
oagnxsnpsmmoi 'x E';O'?‘ETE?T
WLEER
'ggpom
PuLE
oaxrq SRPER1(R0)";:
"RCE’ SET?

3&5

ogxnosnposunoi -'L§T'; E,T

oaévo7snpemmoiek HE£’g;;

#BIT13,SRPER1 (RO} ; "OPI’ SET?

oaf?a SRPER1 (RO)

RTS

JMP

DTEER

JHP

WCKER

géa
Eéé

IF NOT ssr

oaénzsnpcnuno;

aagnqsnpcsemoi

LT’

SET,

-?EE (IJF "DTE’ SET
EPORT

SSAGE

ERROR
MESSAGE
OR_COUN
OF THE ERROR MESSAGE

CKFMT

BEQ

2%:

THE

JNP

géz

000250

éttmsnpcsamo% is 'ugs' SET 2

géa

000250

ERROR MESSAGE

LI
L

S,‘,{

0002s0

18:

TYPE
:T
: INC

#BITO4!BITO3, smr

0002s0

ERROR MESSAGE

BIT

?'I‘E
MF
EéE
JMP
géa

000246

s TYPE LI

:PRINT P
T
LI

PC,LINE3
Pc,lf rgu
PC. INCTOT

; PROCESS ORDER COMPLETION WITH

RAR BRERRRAAA RARRRRRR
BUEA RIEEE SFhEbR-S

SEG OCee

'DTE’

ERROR

?EE CIJ SE(T:K’ SET

'REPORT '"WCK'

EXIT

CZRIDCO,

RPOM/S/6 MLT-DR LGC

15-DEC-77 10:58

CZRIDC.P11
3574
3575

gg;;

007536
007542

005760

000250

;

00757

007544

14
0C g
14
3578 0C
3579 007560 000137 012332
ggg? 007564 000137 011040

3582
3584

358s uo“;grs
7600
3586

osano

010042

1406
000300
?

MACY1l 30(1046)

104414

1ST
*

T
Q
IMP
IMP

000276

000300

149

0S
ST

$E BRE B
021700
7

gggg

8;2?2

2%:
33:

021706
7
7
350? oom% 004737 021762

76
3503“5
%n'm
masm 007676

7 7 020042
7 000024

ggg 877;03 %;y
1

3608 007716 683“5;

8335

3616
3617

3513

361

352:13

%177
737
12737
00774
007750 03:1-1750
007764

3?7776

oxgogg
1101
0101006

021652
%2?3
g
1

%arw

001250
000250

000020

001252

000002

000262

362% oi 015937 Ex 000007

33254
3115 8373; Béggawa
3625 010022 112660
0011
3526

627
3628
3629

010026

010032
010040
O01004€

112660

016060
026060
103010

oo;o

000272
000022

ys:
5§:
6S:

5613

310
0 47 85?3353
%7753 %73;
361} 007756

3612
3613
%ig

000001

000012

000020

S
%69
9~£

JSR
JSR

DisPLY

MOV

3594 oo?sau 012;37 g?gggg 001252

CO6

PAGE 68

SRPERL (RD)
. +6

osxgn

SEQ 00&7

;SEE IF 'DCK’ SET
F NOT
:
PROCESS 'gcx'

#B8] 15!91114.smtngt ) ! “é' OR 'OCYL' SET
iBR IF NOTSET
. +b
:REPORT ERROR
SKIER
:REPORT DRIVE ERROR
DRVER

:PROCESS DATAR ('DCK’) CHECK ERROR
#10042, SRPEC1(RO)
DCKER: CMP

18:

gsgeog

ggsw
8:73;
24
7

ggg

11:03

MAIN PROGRAM

388
b 000302
3589 007612 oomgg
ggqo 875 4 og:z

15-DEC-77

1
SRPEC1(R0)
C2(R0)
dfee
59

INTNPATTERN REGISTER ?

FIRST LINE OF ERROR MESSAGE

oa,mEst;Y

{RETRY Toum

,LINEBD
PC.LINE?

:TYPE LINE 6C OF ERROR MESSAGE
gpom
iFINISH THE
ER OR MESSAGE
LINE
T
;T;fi LINE 7 OF ERROR MESSAGE

xrga
pC,
PC. INCTOT

'€CC
L
T
NT
: INC
]

ERROR’
MESSAGE
ESROR
TOTAL ERROR COUNT
LOGIC

% SR %ucorssru,

J
n?g
SH'";

ggooemm.u

SPOT ON THE PACK
5% E IF ERROR AT A
:;gg5 onbe"
x§ Ngr“ TWRITEngpon
T
CHECK ?

JSR

PC,LINEL

JMP

DISPL

JSR
MOV
gxr

;gn

LEMY

PC, SPOTCK
WCKER
EM2]

ockeml: ISR
v - Pc:Lfiiq
Lh.LingR
18:

*VALUE
1 ORLUE

PC Lgnsx

PC,LINEBC
JSR
SR
ggn

;vm.'x‘g POSITéON COUNT

:BR’ IF NOT COUNT
VALI C ?
'POSITION

:'35

MOV

3 ,LINEB

816. ,RETRY

?gx

87RL

MOVB

(SP)+,$TRK(RO)

TSR

MOVB

MOV
CHP
BHIS

;m LINE

;ggac CK

'DRINT Lgi
LINE g3 8:
OF Em
ERROR MESSACE
SA
;mfm
PS PRTB
62“ F BAD
SECTOR
TO
PRINTED
sBiTisiBITI2!'BIT m&( L ERROR
ogmasanos,mn (x ) ;rcrecx 'DTE’ & 'ECH’

CLR

g'xé

R WRITE CHECK PROCESSING

Egspom RROR

:airm.snpormm

(5P)+ ggecmm

iPRINT LINE & OF ERROR MESSAGE

;rxnasu THE ERROR REPORT

IRETRY

SET CODE POINTER

iRI IS

.1 Fon vg AN RPOG ?

: ucE

:,mngx
5T

:SEC gfl

T gpge OFFSET CODES

S SF THE
ERROR SECTOR
OR SECTOR

SS OF

ERROR SECTOR

$RPCCLRO), SCYL(RO) ;PRESENT CYLINDER
§SSEC
(RO) . SWROL (RO) ';SEE IF TRANSFER LENGTH LESS THANi SECTOR
:BR IF IT IS; USE PRESENT TRANSFER LENGTH
158

gégg g
8
;ToERRE58
ToR : TAERRBER
8&8ot 2FRENEXRRR
TG
Yz&Rt

00020

gooooq

0000000000000
0000

MOV

158:

o P

2%:

3%:

s Bt s Pt B

000016

Bt s Bt B

et o

000250

£
oL

148:

001253

001252

4§:

5§:

isg38RoR
49954

044731

QURYY

68:

001300

138:

C(RD),SWRDL(RO)

PC, GODRIV

£0
L
BIT

108
#BIT7,STATUS(RO)

JSR

Cc,

;CHANGE TRANSFER SIZE TO
1

INCTOT

iRETRY

TEST r

:
:

,gfi
:

NO
0§D€

iF
F
s

INC

R TERMINIARTED NORMALLY

nr TOTAL ERROR COUNT
ERROR DURING RETRY’

;;g FFERENT

JIMP

ERPRC1

BEQ
BIT
BEQ

5
:BR6r DIFFERENT ERROR
8BIT12!EITe, SRPERI(RO) ;'ECH’ OR 'DTE’
78
.BR IF NEITHER SET

BIT .

MASK, SRPER1(RO)

uu; H

NT ERROR

STILL SET *

RETRY+]
ggrnv,RETRY+1

MOVB
BEQ

INC

orrcoornx) csnopb+sr
FSET CODE
9g
.an IF ;flo OF orrsev TRBLE

15T

csfiopa+srnrus

gss }r
r;nxsu:o WITH OFFSET

BPL
JSR

es
PC,LINES

'BR x NERROR PERFORHéEgSgEESET
(PRINT LI

ADD
JSR
BEQ

INCREMENT RETRY COUNT
?

a;r:m
TRBLE INDEX

O-,RETRY
PC.OFFST

ISR
ISP
JSR
JSR

PC. INCHRD
Pc.xucror
,
n§7
TBAD

JSR

PC,L INESB

g&
PC,LINEGB

PC. INCSOF

e
JSR
PC,LINEED

BR
JSR

:
;

INCB
gzge

ISR

12%:

SEG 0OCee

TATUS(RO)

8s:

118:

PRAGE 69

15T

JSR

BR
JSR

108:

D06

MOV

cgn

JSR

7%:

qg:

11:03

gHESL 8 ifig
DM(RO) szggvuono COUNT ron opsn
USF?R
Egpacgsroa
Ns
QDDRESS
raur
iGET A BUFFE
(s¢)+oaaur(no> :NEW BUFFER RDDRESS TO DPB

BNE

000250

e s B

RRRRRR R
W
o

ggé

DISPLY

e Pt Bt Bt e P

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

e Bt et Bt Bt s et B
000
o

s Pt ot Bt s ot s

O00000000000000000000000 000000000000 000000 0000000000 000

~-un

OO0

MACY11 30(10“8)
&g-DEC-??
MAIN
PROGRAM

53
PC,LINEGA

i NEW ng RY LIMIT
:
OFFSE

;iuc
MENT
: INC
HENT
rorgk E
oun
;PR*N
#
RROR MESSAGE
iPRINT
THE BAD ssc OR

'Ekfn"
uP
TPRINT LfflE

IPRINT

: INC

’

$HERROR?ESSRGE

T
T e,
iPRINT LINE & or snnon MESSAGE

USING ECC AND CHECK

; INC
nsur ERROR
C
IPRIN
NE 6A OF ennon nsssncs

JSR

PC . INCSOF

1STB

FRSTER+]

;ERROR N COMPARE ?

,LiNaG

ann LINE 7 OF ERROR MESSAGE

MOV
JSR

BMI
JSR

pIsPLy

JSR
RTS

81, FRSTER
PC ' CMPARD

138
PC INCTOT

Pc.Lx~£7
PC.REFMT
PC

;WRITE CHECK ERROR PROCESSING

§E°

'SOFT’
OR R COUN
CESS NG 'DCKER’ INDICRTOR
THE BUFFER

annuc IF ERROR
INCREMENT TOTAL ERROR_COUNT

COMPARE OK' MESSAGE

{REFORMAT THE ERROR SECTOR
:RETURN

1IT

JDCO,

RPON/S.6 MLT-

JOC.P11

15-05c-79fixb:sa

3686
3687

oioasa

oafrso

100000

3690

0103

60&414

5717

3694
3695
369
3697
3698

010416
org:ae
010426
010432
010440

3232 81837

SSugg; 020200

s 9104
9%
3293 §133?3 333737

3699

010444

004737
737
737
012737
oou78§

GOO4Y

MACY1l 30(1046)

MAIN PROGRAM

000250

WCKER:

25aq
52

1326
1416
3424
000003
015400

15-DEC-77

DISPLY

,EM23

:ES

PC,LINE]

ooq73;

020042

3707
g;gg

010474
8%33?8

2737
7sg

Se44
0000

010522
000244

MOV
Efié

g;{?

0105i2

012737

046545

010522

MOV

3712

010520

3706 010470 004737 020200

3713
3714
3715
3716
3717

3718
3719

720

010522
010524
010530
010534
010S40

010544
010552
010SS4

104414

12%:

000000
004737
004737
737
004737

020244
020652
021326
021416

000100

000250

012737

000020

001252

60
001442

3721

010S62

004737

3723
3724
3725

010572
010E74
8105?5

001775
132305
105237

016370

3722 010566 005760 300015

3729
3730

010614
010622

3732

010632

3734

010642

2731

3733

123737
1714

001252

001253

010624

032760

100000

000250

010634

032760

000100

000250

3% 010650

001407
1347

0i06b0

004737

2741

O0I0E70

000406

0106E4

3$:

5%:

6%:

004727

023424
021762

ggn

DISPLY

.WORD
JSR
ISR
JSR
JSR

T?tsporcx

{PRINT L§§E 4 OF
ERROR MESS
;PRINTHE
S OF
ERROR MESSAGE
: INCREMENT TOTAL ERROR COUN
:RETRY #IHIT
:RETRY
OPERATION

:RETRY

UCESSFUL

P TNTSH- '%cggs?‘m‘fi"m“ss‘néé““

;S§§TI§FERT

ntsgg? 35°Sa8fi THE PACK

iPRINT L%NE ? 5r ERROR MESSAGE

csfiea 138
‘RS
fe%qu'sgpcsa(RO’an‘xé

HAT EM22 WILL BE PRINTED
;ug;a ALSO SET ?

8EM37, 138

sfig?re angs *DCK’ AND 'WCK’ NOT DURING

O
PC,LINE2
PC.LINE3
PC.LINEY
PC LINES

iMES
TPRINT
IPRINT
iPRINT
:PRINT

Ervpgflgge

RROR MESSAGE

SS
LI
OF
L
OF
LINE 4 OF
ang S OF

GOES HERE
ERROR MESS
ERROR MESSAGE
ERROR MESSAGE
ERRCR MESSAGE

881706, SRPER1 (RO}
;ECH ;g ALSO 7
8s
;FINISH
PROCESSING THE ERROR

JSR

PC, GODRIV

'RETRY THE ORDER

BEQ
BMI
INCB

oy
£g
RETRY+1

'BR IF NOT
'BR IF
ERROR ON ORDER
;xncag
NT RETRY COUNT

MOV

TST

R
INCB

CMPB
BEQ

#16.

,RETRY

$TATUS(RO)

o' -INEEC
RETRY+1

'RETRY LIMIT -

;ORDER FINISHED ?

(10)

ETNISH ERRORPROCEGGING
= oreE
: INCREMENT RETRY COUNT

RETRY,RETRY+1
18

:;DONE ?
:BR IF AT RETRY LIMIT

BEQ

:BR'IF NOT - oxrr;nenr ERROR

BNE

;ga IF IT IS,

BIT

8% :

1 OF ERROR MESSAGE

:PRINT WCE & DCK NOT

BIT
BEQ

BIT

OO0us Coi700

3733

3740

138:

001253

3753 010606 Oaou3, °oio0
3728 0i06I0 ?83337 001253

FERTNT
CING2OF ERROR MESSAGE
iPRINT Lffif S OF ERROR MESSAGE

JSR

8{8322

SET ALSO

A
Pc:L{fiES

S—

g;gg

;§§EI%F ;ocx'

: n}ur LINE

C,LINEL

PC,LINEY
PC,LINES
PC. INCTOT
83, RETRY
PC, SRETRY

2%:

PAGE 70

chrzs.snpsnxta0)

JSR
ISR
JSR
MOV
JSR

001252

EOCBE

gxr

SeR
JSR

3703 010460 0006De o708

11:03

#BIT15,SRPERI
(RO}

;'DCK’ SET

#BIT06, SRPER1 (RO}

; "ECH’ ALSO SET

JSR

PC, INCTOT

11§

JSR

PC LINE?

RETRY ORDER

{PRINT LI B f ERR ESSAGE
: INCREMENT TOTAL ERROR COUNT

:FINISH THE ERROR MESSAGE

TEXIT

SEG 00e9

CZRJDCO,

RPO4/S/6 MLT-DR

LGC

CZRIDC.P11

15-DEC-77

10:58

3742

010672

004737

023424

010706

000207

3743
3794

§;3§

010676
010702

3837 ?
737

MACY1l 30(13'46)

1762
006374

3748
3;20
3751
3762

3753

764
37SS

010710
016714
010716
010722

818;

01
010736

010766
010774

g;zx

011036

0047

0047
7

15737
012737

737
0S
737
004737
06
004737
737
4737

3304
023424

000400
000003
015400

021706
021762
006374

004737

3777

011050

004737

020244

HCRCER:

38:

:FINISHTHE ERROR MESSAGE
'REFORMAT
THE SECTOR IN ERROR

ERROR
PC, SPOTCK

LINEL
0

:SEE IF ERROR AT PACK BAD SPOT
;sxir IF IT IS
:PRINT LINE 1 OF ERROR MESSAGE
:REPORT 'HCRC’

PC,L
LINEY

iPRINT L
OF
ERROR
MESSAGE
(PRINT Exne 4 OF ERROR MESSAGE

Jgn

Pc.Lf“ES

SEB

oairxu sapcsa(noiaa.igcflarsanon ALSO 7

JSR

ERROR

MESSAGE

:gxsanv uoags WHICH CAUSED 'ucs'

s8} g
83, RETRY

;
OR MASK
TRETRY LIMIT

PC. INCSOF
PC ;ncror

JSR
BR
JSR
JSR
BR
JSR
ISR
JSR

PC. SRETRY

RTS

;PRINT Lins s OF

Pc.angs

ISR
JSR

MOV
MOV

2%:

DRVER:

011054
011060
011064
011070

004737
004737
004737
000207

020652
023424
021762

g;gg
011072

DO0400

011100
011102
011106

001402
000137
004737

3791
2792

011124
011126

00ID
000137

3799

011136

ooous;
004737

020200

3797

011180

004737

020244

011112

004737

010710
022314
0IS316

000250

3790 011116 032737 000400 044764
012072

3793 011132 004737 020042
2785

"HCRC'

PC.
hé
PC,REFMT

SEG 0C70

C,LINEBC
"LINE?

3
PC,LINEGD
PC.LINE?
PC.REFMT

;
:

INCREMENT *SOFT* ERROR COUN
REEE"T TOTAL ERROR couur

:RETRY on?:n
:RETRY NOT
SUCESSFUL
iPRINT LINE 6C OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE
TEXIT
:PRINT LINE 6D OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE
‘REFORMAT THE ERROR SECTOR

*RETURN

:REPORT DRIVE ERROR
911040

3789

:REPORT

001250
001252

3776 ClI0N9 104414 046207

3786
2787
2788

'RETURN

021700
021762

3775

3785

pc’

18:

gg;g

3778
3779
3780
3;85

RTS

ISR
JSR

3761
3762

011002
311005
011010
011014
011020
011022
011026
011032

118:

52
021326

851415

3763
3764
3765
3766
3767
37
3769
3770

: INC nsnsnr TOTRL ERROR COUNT

7
004737

010752

010756
010762

PC,xncrgr

ISR
JSR

045572

3758

3769
3760

JSR

JSR
gn
SR
DISPLY

040000 000244

PAGE 71

9s:

020042

g;g; 8%3338 33?7

FOB

PROGRAM

004737
39
7
104414

88373;

11:03

MARIN

108:

3;:;

15-DEC-77

011180

379 011144 104414 04S77€

JSR

DISPLY

PC,LINEL

;PRINT LINE 1 OF ERROR MESSAGE

ISR
ISR
ISR
RTS

PC,LINE2

PC.LINES
PC.INCTOT
PC.LINE7
PC

'PRINT ang 2 OF

£h56

:REPORT 6nxvs ERRO

: PROCESS FORMAT

('FER')

CKFMT:

#BIT8, SRPERL (RO)

18:

2%:

BIT

ERROR MESSAGE

'PRINT LINE
3 OF ERROR MESSAGE
;;ncn;nsnr TOTAL
ERROR COUNT
:PRINT
LINE 7 OF
ERROR MESSAGE
*RETURN

ERROR
; 'HCRC'’

ssr on ORIGINAL ERROR ?

BEQ
JMP
JSR

15
HCRCER
PC choon

;BR IF NOT SET
'REPORT HCRC ERROR
:GET CORRECTED TRACK 8 SECTOR ADDRSSES

BNE
IMP

2%
FMTER

,an xr HCRC’ SET
RROR IS *FMT'

.E TIF IT IS

JSR

AC,L

JSR

BIT
JSR
JSR

EADHD

READ HEARDER

oetre GENREG+RPER] ;'chc' SET uuen HERDER READ?
PC, SPOTCK
LINEL

DISPLY shaq

ONLY

see IF ennon AT BAD SPOT ON THE PACK

iPRINT_ LINE

OF ERROR MESSAGE

Hsnoen READ ERROR - FMT BIT DROPPED UP
!PRINT LINE 2 OF ERROR MESSAGE

-—

RPO4/5/6 I%T;gfilbcc
1
15-DECS8

0000000000000 000000

11154
11160

}{}gg

11200
11
11210

1zso

0652
6853

73; 83‘“15

004737
7
737

0127
012737

0
300003

iig:g

004737
737

021700
021762

11269
11260
11264

004737
004737
000207

021762
006374

112
11234
11236

11250

3833 7

015400

JSR
JSR

000244

1516
33

11214
11 SS

gé;
3:

001250
001282

4729 021706

JSR

5$:

ogi 14, SRPCS2(RO}

11266

032760

000400

11276

000137

010710

11274

001402

000250

11302 004737 022314
11306

11312
11320
11355

113

004737

332737
1016
2737

015316

CKHCE:

18:

000400

044764

010000

0S4456

#8174 MASK
83, REIRY

:SE
MASK
;RETRY *xnxr

gg.uxue7

;p; Qr LINE 7 OF ERROR MESSAGE

PC,LINEBD
PC,%%NE?
PC.
REFMT
PC

1133
000135
011512
11394
733 010000 0S44Se 2%:

11
11356

BIT

JSR

PC .

cgire,csnaec+npskén;-ucnc' SET ?

CMP

e
BIS

352200
094

BR
JSR
DISPLY

11400
11404

004737
737

020652
gsxaes

JSR
JSR

11416
11420
11424
11430
11434

001402
7
737
737
737

11410

11440
11446
11454
11460
11462
11466
11472
11474

812737
012737

004737
00040S
004737
004737
000406
004737

851415
1516
023304
023424

000200
000003
015400

BIT

4§ :

001250
001282

-( .‘..

c§:

PC, RERDDR

RERDHD

3
#BIT12,CYLDER

:HCRC SET ON ORIGINAL ERROR ?

;BR IF NOT SET
: REPORT

ngen CRC ERROR

iGET CURHEN SECTOR 8 TRACK ADDRS
:READ HEADER OF CURRENT SECTOR

;BR’IF gsgfln
:CLEAR
T ?17 FROM HEADER

SRPCC(RO),CYLDER' ;CORRECT CYLINDER ?

SSER

#8IT12, CYLDER

;B*PIFTI;
L3 TIONING ERROR
;SEs?Sne ?fié fonnnr BIT

HCEER
PC, SPOTCK
£3
PC,LINE1
25

(EXITIF IT IS
SPRINT LINE 1 orognaon MESSAGE
;ucno;n READ ERROR
- 'HCE' SET

"LINE3
PC.LINEY

iPRINT LINE 3 OF ERROR MESSAGE
:PRINT EINE 4 OF ERROR MESSAGE

PC,LINER

:REPORT 'HCE’ ERROR
‘Eei IF ERROR AT BAD SPOT

IPRINT

881714, SRPCS2(ROY

BEG
JSR
JSR
JSR
JSR

4$
PC,LINES
PC.LINESA
PC. INCSOF
PC. INCTOT

JSR
BR
JSR
JSR
BR
JSR

PC. SRETRY
5%
PC,LINEBC
PC.LINE?
68

MOV
MOV

021700
021762
021706

JMP
JSR

JSR

000244

ERROR

HCRCER

73
68:41»

020244

:PRINT LIN$ 7 OF ERROR MESSAGE
:REFORMAT
THE ERROR SECTOR
*RETURN

JSR

11382
11364
11370

737

;Saxur LINE 6D OF ERROR MESSAGE

JMP

012150
0200492

11374

:RETRY
ORDER
:RETRY NOT
SUCESSFUL
:PRINT LINE 6C OF ERROR MESSAGE

ogxre.snpeax(no)

137
737

3%:

(’'HCE’')

:DISPLAY HEADER
: INC
NT
SOFT ERROR COUNT
: "?
NT
TOTAL ERROR COUNT

BIT

BEQ

BNE
BIC

335037 000272 054456

;'gcflét RROR ALSO ?

; xssan WORDS WHICH CAUSED ’'WCE’

PC. SRETRY
4$
PC,LINEBC

JSR
JSR
RTS

SEG 0071

C,LINES

JSR

PAGE 72
;PRINT LINE 3 OF ERROR MESSAGE
:PRINT EINE 4 OF ERROR MESSAGE

PC.LINESA
PC . INCSOF
PC.
INCTOT

JSR
JSR

GO6

PC,LINE3
PC #rnsq

JSR
JSR
JSR

MOV
MOV

4§ :

11:03

: PROCESS HEADER COMPARE
000000000000 0000000000000O000O0OO0O00

DO LEW—-0

ie
RRRsEBsR
28 85

11179

oo~7g7
737

MACY11 %%Rflg&odgfimc-77

#8177 ‘MASK
83, REIRY

PC,LINEED

LINE 2 OF ERROR MESSAGE

;"WCE'

ERROR ALSO ?

:BR' IF NOT
4
;QA?P#RY WORDS WHICH CRUSED ’WCE
:PRINT
LINE S OF ERROR MESSAGE
;xncsgnsnt SOFT ERROR
COUNT
: INC
NT TOTAL ERROR COUNT

:SET ERROR MASK
IRETRY LIMIT

:RETRY
'RETRY
'PRINT
:PRINT
TEXIT
:PRINT

THE ORDER
NOT SUCESSFUL
LINE 6C OF ERROR MESSAGE
LINE 7 OF ERROR MESSAGE
LINE 6D OF ERROR MESSAGE

LEB888

¥3}3§33§mw§§iit o8

Cot
o

gn b
0, RPOY 5/
P11
xs-occ77 1

giie
011810

MACY11 3o<§043& 1S5-DEC-77
MAIN
PROGRAM

737
1?2
T
ME
0207

6S:

R
73R
RTS

11:03

HOB

PAGE 73

pS REFET

SEG 0072

SECTOR SAGE
HH"%.: ORRORRROR

PR NT

:REPORT POSSIBLE POSITIONING snnon

011512

004737

POSER:

015240

011516 004737 020200
Y 7372
6844
gxxggg
ii
u; 4
2 q

000207

PC RECALT

C LINEL
hs
L§nga

JSR

C,LINE

éZg
IR
Jgfl

0S4456
§11§gf §§§7§7
ol
e By
853329
?
§§u7
8112?9
011560
4737 022110
0i15e4

JSR

JSR
DISPLY
Jss

RTS

RECRLIBRRTE

INT LINE 1 OF ERROR MESSAGE
POSITIONING ERROR
ggrscreo
:.PPROGRAM
g:xur L§NE 2 OF ERR "fiés
SAGE

85*2 8YLDER
fo
E:I~Sr§

ERE%T TH£3F08§a§?fl T fonon
st énfigg
DL
"8?Ugsece
gEur 8§
:IQE

TEXIT

,an LINE 7R OF ERROR MESSAGE

:REPORT 'OPI' ERROR

OPIER:

004737 020042
7? 020200
011872
011574
0115

011632
011640
011644
01164

giiggg
oi{sag

004737
73;

127

012737
737
0s
004737
§§§g ;
q;a;

021326
8584
060

000003
015400
021700

021762
oaz;og

811
0 8847 7 88&39u
011674 000207
011676
011702
011704

011710
011714
011720

011724

004737
000207
004737

10N4414
000137
004737

104414

020042

001250

001252

PC.
Pg 4N ToT
#8113, MASK

18:

Jss

;E"LINE?
PC,LINEGD

:REPORT

'DTE’

DTEER:

JSR
RTS
JSR

OPIERL: MOV
JSR
BR
JSR
% g

020200

04E£337

811740
8047 7 8 1332
011744 004727 023424

PC
PC,LINEL

JSR
JSR
MOV

fgn
RTS
pisPLY
JMP

046304
007722
020200

PC, SPOTCK

Y g PEhL
pc:Lifiii

011609
311510 804757
737 265ua
85

011614
811259
11

JSR
RTS
JSR

83 psrbv
PC. SRETRY
18’
PC,LINEGC

PE kérnr

ERROR AT BAD SPOT

F
ir 1T IS
;RE%U&N
'PRINT LINE 1 OF ERROR MESSAGE

' oRINT CINE 2 OF ERROR MESSAGE

EPR{NT
szf S OF ERROR MESSAGE
:PRINT LINE 4 OF ERROR MESSAGE

;éucgsnenr TOTAL ERROR COUNT
'ERROR
MASK

:RETRY %xnxr
'RETRY THE ORDER
:RETRY UNSUCESSFUL

:PRINT LINE 6C OF ERROR MESSAGE

525 ?T LINE 7 OF ERROR MESSAGE

Egnlfl; LINE go OF EngR nzgggge

5952
nk‘"‘ne RRSR Ssc¥83
RETURN

ERROR

PC, SPOTCK
PC
PC,LINEL

,EM32
OCKERL

; SEE sr ERROR AT BAD SPOT
TRETURN IF IT
:PRINT LINE 1 OF ERROR MESSAGE

:*'DTE’' ERROR
:FINISH PROCESSING THE

°'DTE' ERROR

:REPORT

'PAR’

PARER:

JSR

PC,LINEL

;PRINT LINE1 OF ERROR MESSAGE

Jg
JSR

E
IE
PC. xncvor

xncnensnr TOTQL ERROR COUNT

DISPLY

ERROR

EM33

REPnr 'PQR

fNT Lfns 09 E RO nz snu?E

OO0
.

s
BB\ DDDDDD. DD ety
el
R LWh—-0O
N Sy S Y Y ?O
OONN
C)

RPO4/5/6 MLT-DR LGC

P11

15-DEC-77 10:58

MACY11 30(1046)

MAIN PROGRAM

11:03

106

PAGE 74

881703, MASK
ug.RETkv

SEG 0072
'

;ERROR MASK
LIMIT
'RETRY
{RETRY ORDER

12737

MOV

0117684
8117
1177
8}177&

7
004737

1700
1762

18:

?n
SR
g;g

PC,SRETRY
gs
C,LINEBC
;E.Lxue7

;RETRY gfié ggSSFUL
FUL
:RETRY
‘E§§¥T LINE 7 OF ERROR MESSAGE

01
012010

004737
000772

021706

2s:

JSR
BR

PC,LINEGD
18

:PRINT LINE 6D OF ERROR MESSAGE
:FINISH ERROR MESSAGE

:REPORT

'1RE’'

IREER:

JSR

001250
0000
551252
i%ooég
811;22 815737
004737 015400
11

:
S5aREse

vy
fu
Whr-

15-DEC-77

012012

004737

020200

004737
004737
004737

021044
023424
021762

012016
012022

104414
004737

012042

000207

012026
012032
012036

046456
020244

012044

004737

020200

012060
01206M

004737
004737

023424
021762

012050
012054

012070

104414
004737

000207

MOV
JSR

DIsPLY
JSR

JSR
JSR
JSR

RTS

046514
020244

ERROR

PC,LINEL

:PRINT LINE 1 OF ERROR MESSAGE

LEM3
AC,LINER

:REPORT 'IAE’
'PRINT LINE 2 OF ERROR MESSAGE

:RETURN

PC.LINESF
PC. INCTOT
PC.LINE?

ERROR MESSAGE
'PRINT LINE 3F OF
: INCREMENT TOTAL ERROR COUNT
:PRINT LINE 7 OF ERROR MESSAGE

:REPORT

'WLE’

WLEER:

JSR

PC,LINEL

:PRINT LINE 1 OF ERROR MESSAGE

ISR
JSR

PC. INCTOT
PC.LINE?

: INCREMENT TOTAL ERROR COUNT
'PRINT LINE 7 OF ERROR MESSAGE

DIsPLY
JSR

RTS

ERROR

,EM36
PC,LINE2

:REPORT 'WLE’
;annrnéxuc z

ERROR MESSAGE

*RETURN

:REPORT FORMAT ERROR

012072
012076

004737
104414

012106
012112

004737
004737

012102

0i121le
012124
012126
012132
012136
Dl2142
0il2146

004737

032760

001402
004737
004737
004737
004737
000207

0200
6125

FMTER:

020244

020652
856383

18:

PC,LINEI
LE e?

;PRINT LINE 1 OF ERROR MESSAGE
:FORMAT gnnon

PC.LINE3
PC #xucu

:PRINT LINE 3 OF
IPRINT LINE 4 OF

15
PC,LINES
PC.LINESA
PC. INCTOT
PC.LINE?

:BR’IF NOT
:DISPLAY WORDS WHICH CAUSED ’WCE’
'PRINT LINE SR OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT
'PRINT LINE 7 OF ERROR MESSAGE

JSR

#C,LINER

BIT

881714, SRPCS2(RO}

JSR
JSR

0Co244

021416
021516
023424
021762

JSR
DISPLY

BEQ
JSR
JSR
ISR
JSR
RTS

:PRINT LINE 2 OF ERROR MESSAGE

;'WCE'

ERROR MESSAGE
ERROR MESSAGE

ERROR ALSO ?

:REPORT HEARDER COMPARE ERROR

012150

004737

020200

012164
012170

004737
004737

020652
021326

012159
012160

012174

012202

012204
012210
012214

104414
004737

032760

001402

004737
004737
004727

HCEER:

046152
020244

04000C
021416
O021SlE
023424

000244

JSR

PC L;NEI

;PRINT LINE 1 OF ERROR MESSAGE

JSR
JSR

PC.LINE3
PC LINEY

'PRINT LINE 3 OF ERROR MESSAGE
'PRINT LINE 4 OF ERROR MESSAGE

pIsPLY
SR

BIT

BEG

18:

JSR
ISR
J%R

,EM2
AC,LINE2

:HEADER COMPARE ERROR
:PRINT LINE 2 OF ERROR MESSAGE

#B81T14,8RPCS2(RO)
13

PC,LINES
PC.LINESA
PC. INCTOT

;'WCE' ERROR ALSO ?

:BR’IF NOT

;stpknv WORDS WHICH CAUSED ‘WCE®
'PRINT LINE SA OF ERROR
MESSAGE
: INCREMENT TOTAL ERROR COUNT

S/6 MLT-DR LGC
1S-DEC-77 10:58
220

004737

8835 7
7

MACY1l 30(1046)
1S5-DEC-77
MRIN PROGRAM

021762

JSR

006374

JSR
RTS

11:03

JOB

PAGE 75

PC,LINE?

SEQ 0074

:PRINT LINE 7 OF ERROR MESSAGE

PC.REFMT
PC

'REFORMAT THE ERROR SECTOR
: RETURN

B TR2BBER

N e N S

NN
M

000000000000 00000

: PROCESS CONTROL/INTERFACE TRANSFER ERROR

004737

020200

737

020244

104414
7

350652

gsle

121400

004737
004737

TRFER:

046627
1326
023424

JSR

DISPLY
ISR

JSR
JSR

000244

gés

0127377 000003
001252
001250
737

015400

737

021700

02
004737
004737
000207

MOV
CLR
JSR

021706
021762

RRF R

$e Bt B

et B

e Bt

00000000

:PROCESS

004737

104414
004737

004737
004737
004737
004737
000207

020200

SKIER:

047303
020244

020666
023424
023354
022110

;PRINT

AC,LINER

iPRINT LINE 2 OF ERROR MESSAGE

,EMNO

ISR
ISR
ISR
JSR
RTS

PR NTHE
4 OF
ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT

83, RETRY

;ggrav LIMIT

MASK

iRETRY THE OPERATION

185

'RETURN HERE IF RETRY UNSUCESSFUL

IPRINT L;N: 6C OF ERROR MESSAGE

2s
PC,LINEGD
PC.LINE?

'OCYL'

tFINISH “E ERROR REPORT
:PRINT LINE
6D OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE
ERRORS

PC,LINE!L

;PRINT LINE 1 OF ERROR MESSAGE

PC.LINE3B
PC, INCTOT
PC, INCSKI
PC.LINE7A
PC

:PRINT LINE 3B OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT
: INCREMENT *SKI' OR
'OCYL’' ERROR COUNT
:PRINT LINE 7R OF ERROR MESSAGE

LEMS
PC,LINER

&£ 3 ERRPRRY
£0
£5R¥8z6 T
B3
\u

s B Bt Bt B

iflflfiz

Bt Bt Bt B B

et s et Bt Bt Bt

00000000000 00000

:REPORT WRITE CLOCK FRILURE

004737

104414
004737

004737
004737

737

020200

0660
021326
015042

012737

000040

737

0s
004737
ggggg;
004737
000772

000003

015400

JSR

DISPLY
JSR
JSR

34924

73;

127

WCFER:

6414
020244

JSR
JSR

001252

MOV

00125C

MOV
JSR

021700
021762

18:

021706

2s:

;’DLT*,'UPE’,"MXF', "MOPE’ SET ?

;CLEAR ERROR MASK

PC, SRETRY

JSR

UNIBUS TRANSFER ERROR

sgt 15!91113!9:192axrg,snpcsgé¥0)

RTS

DISPLY
JSR

LINE 1 OF snnon MESSAGE

'PRINT L “E 3 OF Ennon MESSAGE

PC.LINEY
PC %NCTOT

PC,LINEBC

'SKI'

‘RH11

PC.LINES

JSR

BR
JSR
JSR

18:
2%

PC,LINEL

1'SKI' OR 'OCYL' ERROR
iPRINT LINE 2 OF ERROR MESSAGE

('WCF’)

;PRINT LINE 1 OF ERROR MESSAGE

,EM3Y
PC,LINE2

:REPORT WRITE
IPRINT LI“E

PC.INCTOT

;xncng

#3'RETRY

*RETRY COUNT

PC.LINE3A
PC.LINEY

PC.PRTERD

#B81 705, MASK

PC, SREtRY

CLOCK FRILURE
OF ERROR MESS

(PRINT LI
OF ERROR MESSAGE
;pnxnrflttuc 4 OF ERROR MESSA

:SEE

NT TOTAL ERROR COUNT

IF BAD SECTOR TO BE PRINTED

:ERROR M

IRETRY THE onogn

BR
JSR
5;2

2s
PC,LINEBC
;E.LINE?

'RETURN HERE IF
RETRY UNSUCESSFUL
:PRINT LINE 6C OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE

JSR
BR

PC,LINEBD
18

:PRINT LINE 6D OF ERROR MESSAGE

:PROCESS DRIVE UNSAFE ERROR

CZRJDCO,

RPO4/S/6 MLT-DR LGC

CZRIDC.P11
gss

15-DEC-77 10:58

MACY11l 30(1046)

UNSAF :

1
1

:gsg 1
1

18:

2s:

:ggg

40
4040

4041
uoug

05737

001300

012560
12568

104414
004737

047012
020244

12852
012554

404
4044
4045
uoug

gxesro
012674
012600
gxgggs

4o48

012612

404

195;

737
737

104414
104414

6ouuxu

047012
001165
051472

40S]
i05¢
4
4054
4055

104414
Q12146
37
6ouu14
101

4058
4053
4060
406l

012654
01 ES
01266
Ol

0121
0047
OY414
o;

022242
001165

4063
40ed4

012674
0127

6o~q14
1214

0S2155

4067

012712

4069

0157

104414

4072

012732

104414

4074

815742

uosoo;

4076
4077

012752
012760

112737
013727

4062

406S
4Geb
4068

15244

o;;;

12650 6 Y1y

012670

0127
01

0047
< 104414
010146

012753- 004737

4070
81012726
724 865145
71
737

NOMTCH:

p22242

0S2155
2242
1165
2242

1SS

Ngn:

PC Lxucsc

anur

012744

rnv

11273

p22242

’'UNKNOWN’

FRSTER

DISPLY
JSR

EMY
PC,L%NEE

18:
2%

DISPLY

ISPLY

MOV
JSR
pisPLY
MOV
JSR
DIsPLY
MOV

2242

1165

NT r TAL

rnv

ERROR
C

go ssnon
MESSAGE

Pn;nrLINE 7 OF E

MESSAGE

;FIRST ERROR IN THE

SECTOR
?

;s
C Lsuex

;
;

PC.LINE3A
PC.LINEY

(PRINT L
OF
OR MESSAGE
TPRINT L
4 OF ERROR MESSAGE
:CONTI
ESSING ERROR
P7CAN’T MATCH DATA WITH PATTERN'

JEM43
|SCRLF
'LINSI

RI,-(SP)
PC.LINOCT
,LINSP
IR1)+ S(SP)
PC, LINOC
,SCRLF
R1,-(SP)

F NOT °“°}‘ PROCESSING *DCKER’
*xnc é
§nnoa MESSAGE

:?CAN’T MATCH DATA WITH PATTERN’
:PRINT LI
OF ERROR MESSAGE

:CR-LF

:HEADER FOR DATA PRINTOUT

;noggss OF
1
ITY
1
: SPACES
; ADORESS OF WORD 1
T
WORD 1
:CR-LF
;
SS OF WORD 2

IR1)+,~-(SP)
PC,LINOCT
,SCRLF
R1,-(SP)

; ADDRESS OF WORD 2
:TYPE WORD 2
:CR-LF
:
SS OF WORD 3

pisPLY
MOV

,LINSP
IR1)+ -c;P)

: SPACES
; ADDRESS OF WORD 3

biNSP

PC.LINOCT

PC kxhoc
,SCRL

MOV

R1,-(SP)

pispLy

LIN

PC L%NOCT

MOV
JSR

tn1)+-(SP)
PC,LINOCT

CLR

MOVB
MOV

8-1, FRSTER+!
CMPLMT, LIMIT

MOVB

OR MESSAGE
ERROR nsssncz

£ SERRG snce
CWMoots‘ms:*asps%

MOV
JS
DISPLY
MOV

ADD

001301
001310

UNSAF

OF
OF

PC LINOCT

DISPLY
300

OF ERROR MESSAGE

JSR

2155

REPORT

DATA PATTERN

TSTB

BNE
JSR

JS
pispLy

2242

177777
001414

;g'LINE?

224
116

0001

C,LINEBD

g§g

DISPLY

4073 012736 062701 000770
407

PC NC

ISR
JSR
8F
8xspuv

1326

015258
81
Ol
01
1
15233
01264

4059

JSR

:REPORT AN
gxasus

SEG 007S

;PRINT L

JSR

{5333

PAGE 786

PC
LINEL

MOV

f
B3 e

:§n

KOB

9 gPLY
S
JSR

11:03

MAIN PROGRAM

:ggg

15-DEC-77

,SCRLF

b<esa ¥2.> Rl
81

FRSTER

WORD 2

WORD 3

i TYPE
:CR-LF

: ADDRESS OF WORD 4

:TYPE

; ADDRESS
OF WORD
i 1Y
uono
:CR-L

Iucneneur BUFFER POINTER
:CLEAR 'WORDS

iSET

TO COMPARE’ counr IN R2

'NOT FIRST ERROR’

xncx TOR

:SET ERROR FOUND INDICA
'RESET THE COMPARE znaoa rvpeour LIMIT

CERIEC 11 766

)

1s-

ugrg o 12

000207

LL
3

15-DEC-77

RN
o

)

1R388

;CHECK ERROR BITS

787

013086

41
41

4103

1307

013074

4103
o8
41

013104

Biti

10 §1§1

000207
00S

00 101

0131

022660
1738

7
dis Bi
M
3;19 §{g{i vy
§ 000207
ot
80473

R1(RO)

R
JS
S

13s8

15T

ASL

—

gm
“:?'a‘on e

s
T

18:

DISPLY
ISR

S6 R
EGIS

SRPLC (RO)
S

hnot.

€ Line2

RD C

;

BRI
¢

SS E

—

HORD

T.E fg NT
cmwfl

'fi'fl‘o{,

; PRINT

S PRO
PE

ERR

OR
OF
"ss1mH
INCO
RRE
O%OSO
}QSSA
E
GE

LINE

30,

AGE

,
& 02‘B
EECE
2“% CP
"T,ém
T9T0F
OUNT G
ERRO

E';&I:

; PRIN LINE

COUN

T ZERG

Eg“"s
;

0% Co
$
u8
nAce
ME

&
ER
RO
R

{6R-TF NO
;

BA(R

gao

"INCTOT

pC!

9''SFC'E

é9
N
T

ER & WO

(SP)+, SRP

$E'L

TIn e
r2 »

LN} “{
8P)

"IN ERI

RTS

SSGG

g
IR
S

000020

STERS

;;r
B8lnb

BC,L
PC

c.;-xBUS'

/6 REGI

Rmx

:CHECK BU

00024

RPCSE‘”l
’ fii

2s:

%" 4
eB
4113

?77-400S

3424

0000, SRPCS1(RO)

40%

i
S
e
BiBx R
B
4095
i
17

{

E”

- “
0002

iNi0

PAGE

’

4085

11:03

34 CKERR
:

LO6

R MES
SA

s
; COMPARE e b
4120
#81T02, SCOD
S
CR: g
13154
41
E
)
(
8268? 000004 0
R
O
h
odS
s
EE
3
f 15 560
00024
N
1
336
RROR® INDIC
307
4153 Ri13d18i5
R
Eapn TEIR
ATOR
.
F
ed
R
s
C
T
S
TEM
LR
e
r
1T
C
#
P
8
S
A
W0!, IS
06382 165
RD: BIT
ng“m“
e U
KR
BIT
7
4
0
13
»
B
ARE
ATe
YE
OR COU
AnD
g
ERCTR
R
N
4]
R?
NTER
E
AB
ORR
ER
CS
..153 Digg
v
160C
G _LOCAT
5
i §ug
T
ie Olggzé
ION ON
4130
OR COUNT
e
A
20131
013214
g
W
§
A
O
413§
CT
RGISN TR
§32M¢CYsL=%S
R
023g %{g 8
0
832%
3
0
{
=
G L
oK
MOV
q
r
0150 7
00001
O
'7
T
FORM
0100 2
B
00131
T12,c
B
L
I
S
00
hC
4
wl

4118

15-DEC-77 10:58

MACY11l 30(1046)
MAIN

[ttt etwtepetedepeteteted

001316
001310
001276

CMSTR:

Bt Bt Bt Bt Bt Pt Pt Bt

CMHED:

18:

e B

cs:

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

s
2

B Bt B

4S§:

11:03

MO6

$SSEC(RC) ,CMSEC

TR
8-1,ZROIND
&

CMCNT, SSSEC(RO)
MCNT,R2

959 001306
;% 000010
737

013702

76l

177776

005237

001306

S?é;.}ig 177777

39:

YL (R1)+

Cflég (R1)+
(Rl)¢

CYLIIOER
IF GPQRE

TOR 8 TRACK
SE

IFI

gERP
FT TD'E RROR
,g&fl
R LENGTH FROM SIZE
SEE }F
AT LERST 4 MORE WORDS TO CHECK

“"%mggg,.,saflcsm

CI'ECK THER;?T THE HEARDER

né%PflgF NO MTCH WITH PATTERN MADE
A

(R1$+ (RS)+
PC,CMPRT

!§am
N&V%H:TH
g
PQTTERN

ézslxg.f"s i
SPL

D CHARACTER=0

Ss:
001276

Sg
L
'mm USE REMAINING BUFFER

.gsl{
K ogY WORD

8SW3, ASWR

4s:

EF’gflé %
GRERTER THAN ONE SECTOR ?

PC 5%

’CTR
165440

i ST

;SECTOR 8 TRACK ADDRESSES TO WORKING LOCNS

00§

CMDAT:

125

'SEG 0077

E&s::sz;ssm FRIU e
55"3. Ay

cs:

2s:

PAGE 78

CHMPLMT, LINMI

FRIRY
28NS £

Pt Pt B0t Bt s e Pt (s Bt B

Bt B

38:

15-DEC-77

egBB
AERIER© %3 §333200sa2
O—-HVO-IVO

RPON/S/6 MLT-DR LGC
0000000000000 0000OODOD000000000000 00000000000000O0000000

B3ado'd 2RSSR LG HE OREE BN R IO

SETRR2S

B Bt et B0 Bt ot Bt Bt ot ot B

LfELELLLirrLrrffrrsrsrssLrrsrssrses LI
LS
ELLELELEE

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

B S8 5S¢ H ESAZE3BR R

CZRJDCO,
CZRJOC.

#-1,ZROIND

ERCER

SET NON-ZERO MISCOMPARED INDCATOR
; INCREMENT THE ERROR COUNTER

NOG6

EIRTBE%
PO S0l M b%s TM! Al BhochRn
O M3 PRE TS
i8imw
33
4l
:ig i
:1 } 4
3g
ol
Mt

:
“
4504
“eos
:
4
4518
qMi

Yol4

Y21

et
D01
{30-0

001

“:ggx

291315

001317 000023

iasso
&28

001317

8135%

314

136

13264

014156

°}3;§ %%% 001302
0137

:5:0
454
35:3

CMPRX : g;g

4245

4 ,CMPRT
CMCNT
(RO) ,’ #5
FOOE
nscgs
¢ E , 822
cR§§
Cheee
CHTRK

CMPRT: TST

18:
S
:

;

REPORT

nfr ERROR”
contrg
Creane
iSET THE ‘Em ‘tloxcmon
; cuansm
PRy RIS NONE-ALL10NS ERRORS=ZERO
NOT ZEROS ?
{BR_IF
;
4

"
5cg«’§ax R
iAT END gr aur:rsn
HERDER & DATA
5%:
NO
:: INC xfe
.
ngfi MA s
1SECT rzmgron
ss
iR AR Nérga

CMTRK, #19

:: fiéfl:
Rack L,
ATER THAN
TRACK
;gg F “gacx ATER

‘c:%}'

; égcm mmug}rh reoen ngoness

T
Sv'finx

gg.enocnp

: TYPE DATA COMPARE ERRORS

i
;
13667.
1302
013764
Oisene
|oi3od
i
l:e

}3;0(7:3 105737 001300
5010, 5%;3 020200
14
13382
014012 104414 0M6731

5
e
TheB
CMPB
}SS

ig;% 86493} 014060

ST
Bhee
BNE
NC
&39

:ggé i 30 ig 5 ggiaaouoa
“333
:aas
4535
M

o,STB ; TER
gg& 530 ND .
v
,éfiv&né
gR ":io 1'

o
o——
013702
8s:
001312
000024 (00000S
001316 000026
1315

}
1
01361
1 3
i
1
i
O136ed

323 Giin 1822 ooiano
@732 813557,3
137 000422
4558
:gg
{g;
3 B o
“eob

6S:

3§is 8{3;74
3213

,CMPRT

70e

s€0 0078

SAVER1

NUE

OMPARR

:PRINT LAST LINE IF ERRORS
-Esgm; §g¥eo VALUES 7

Yo Fhsex
fgfi 58’3
BR
3
R

322
CLR
G5%
MOV

Pg'
SAVE
CopIe
RS
(5P)+.R1

?Pflém
égxg REGISTER
VALUES INDICATORS
:CLEAR
F::POP_STACK
bR S TREK INTOINTO Ao
Rl

FRSTER
L3

gggnzisg 58?“ ?
:
‘BR_IF FIRST ERROR AND PROCESSING 'DCK' ERROR

283

gg qnéin%

JSR

;ge

JSR

PC,LINEL
,EMN2

'T‘STB
BNE
pisPLY

R1,R

[PIRST KRvon
i
:PRINT REMARINDER OF MESSAGE
;
ST LY
:PRINT INITIAL MESSAGE
i PRIN

TACK

5% P nvN?Tw‘rE :E b .

: ¥mflREMAINDER OF MESSAGE

'PRINT
LINE 1 ornesnon MESSAGE
‘DATA COMPARE ERRO

CZRJDCO,

RPOY/S/6 MLT-DR

CZRJ DC.P11
4
yo4?
yo4g
4a4s

1
01
01
Of

4251
4

01
1

4254
4255

4
4258
4259
4260

1S-DEC-77
?
7
7

14064

014114

051365

SS:

}gPLY

BS:

oxsva

001165
4149

7 001300

7$:
gg:

001310

1
;

4265

014120

104414

4267
4268

014130
014134

4270
4271
:g;g

0I41Nd
014150
014154

004737
1044:i4
000207

000200

165036

98:

108:

022242

155

4269

O0I414C

016146

177776

35;;
42

4278

014156

737

001301

14193

737

001306

814152

417

0141

001410

4yoB4

014212

004737

4286

014222

000207

458
DI4176
013746 022274
0B1306
4282
014202
363;39
4283 014206 104414 001165
4588

,kxnea

sPRINT LIi
or ERROR MESSAGE
;PR NT L
nnon MESSAGE
; NT *
OR MESSAGE
;
Pgsgss

n ME

;

usnosc
Ay

F ,é’

PC
%xnxr

RET
:TYPEOQUT LIMIT REACHED ?

3&0
NE
BIT
gus

LIMIT
108
og§o7.asun
&

JSR

PC LINOCT

JSR
DISPLY

PC,LINOCT
,5tnsp

JSR
DisPLY
RTS

PC hfinbcr
,SCRLF
pC

BEQ

MOV
SUB

b-x FRSTER

Ri,-(SP)
o§:t§§)
,LINSP

L3(RS),~(SP)
L3(R1),-(SP)

:DEC
NT L¥nxr COUNTER
:BR
IF NOT AT LIMIT
:PRINT “E% DATA COMPARE ERRORS ?
;gg IF Y

'BUFFER ADDRESS
;23§UST ADDRESS
TTYPE 1T

E
:PU coog
DATA ON THE STACK
STYPE
;sag

IT
;s

DATA

PTYPE IT
:CR-LF
I RETURN

0Iv216

004737

023424

021762

ENDCMP:

TSTB

2s:

s ANY conpaae ERRORS FOUND ?

BEQ

JSR

#C, INCTOT

xnc

RTS

;

18:

FRSTER+1

RCTR

DISPLY
LIV
ooy
SR
C,LINDEC
DIsPLY
,SCRLF
J5R

PC.LINE?

:BR_IF NO

s E HOW nnnv snaons

IF ONLY cnu MATCH PATTERN

inATRRR
P RnnoRse’
nugg:
:CR1

neur TOTAL ERROR COUNT

ane 7 OF ERROR MESSAGE

4289

:ROUTINE TO MATCH THE DATA WITH A PATTERN

4291

nov

;

nErunnx

MATCH:

MOV

R1,-(SP)

18:

MOV
SUB

(spi R1
RY

4290

,CQLL

4292

;

4293

:sgg
4296

4297

4298
4299

or PROCESSING ’'DCK' ERROR

:LAST LINE OF COMPARE ERROR REPORTING

4279

4285

gfl

SEG 0079

nr
TS

MOV

2242
O0OI16S

C.L{
C,L
PC.LI
X3

PAGE 80

: CR:

MOV

2242
155

11:03

'SCRLF
NIH

DISPLY

426b 014124 016S4e 177776
737
Y1y

&gflDEC=77

JSR
JSR
J

001210

4se: 014106 010
uggg 8xu1xo 685;
4oed

ROG

021

104414
044 14

813893
01
G1407Y
314185

MACY11 30&10"03

10414

01
Q1

LGC

10:58

BO?7

:
014224

010146

014232
014234

011601
162704

gxqaas

012704

000044
000002

4300
014240 01640 0027t2
4301 014244 001411

$BUFFER, Rl

PC,MATCH

RETURN2
MOV

MOV
BEG

:BUFFER ADDRESS
;PATTERN_ ADDRESS IN R4

:COULDN’T MATCH PATTERN
;SAVE R1 ON THE STACK

#44 RO

PQTTERN TRBLE INDEX

srfionrcnw),ns
33

'ADDRESS
OF PATTERN ADDRESS
'BR IF ALL PATTERNS CHECKED AND NO MATCH

RELOAD n%
oecnsnsu INDEX

CZRJDCO,

RPO4/S5/6 HLT;?RXEGC

15-DEC-

:58

303

%’%

0000

CZRIDC. P11

:30-#
oi:'o
14264
Y

MACY1l 3ga%g“g&océgaDEC-?7

2s:

"39

11:03

co7

PAGE Bl

SEQ CCel

; FOUND

?Rl?f,msu

i::

R OF LOCATIONS TO CHECK

#2,2(SP)
(SP)+,R1

;Zcrénggm
RETURN ADDRESS
;REST
R1

n{
NOT

}snm
T THE PATTERN
NEXT PATTERN
TRY

N TCFXN‘I(SHE,
;avxa"irsPATTERN
noongss ABSOLUTE
ngx

1;@ 002762

aé
ngo

23
:smom,aq

12&8?

MOV
RTS

S8 m:aw
piue 066016
flegy 000020
gew oo oo :

::ug

my
gog

KB ECHC RS
PRfingc
08No EERES
S
gt;no%( ! ), (SP)" ;ADD

& i

(SP)

.'307 8i§14
3308

44311
13 §}~o
14276

766

33‘5 014300 000207

000002 000002 ng
3%:

e 8 NS o
1

001322 00000S

0000

335

4330 BlaBsd Aes737 98ARRR 001320
oo i

:gg

000300

oxm

Oi4dig o 7 391358 001330
4334
1320
335 014416
4336 81-«%2 33573; goo"xg
4337 014
1330
4338 0144 006237
37
13

&SEW
81443'3
§339
4340
014446
1044914
4341 guwsa 6137-«,
4342

014456
4343
01
4344 8&29
434S 0OIY470
014474
)
u33~9
ox«sos
33-03g 8%%%2
4350 014516
4351 §1%
4383 014e34
4354 81u§§
4%2: Qlicee

1
fiii
7

104414

6861

rd
OO1upy
ooéa:a?
B9eiyr

4387 0l4863 000766

:RETURN

:USE ECC TO CORRECT THE DATA ERROR

:gi;

i:
4
:325 oi::m

1330

11587%
1 36

727t
7376
0S1625
001330
225 001330
015030
001324
1
~oi3e0
W
001320
ooidee
.

T LOCN XFERED

,ECSEC ;

(RO)

TIREAR

e——

it iyebobord;

:
T INT
BYTES
SESTMXSFLE
°“¥§§a
:E““SI
AD HERD & DATA

S
CMPB

(8P) ,ECSEC
$CODE(RD), #5

W
2B
UaT THE. STACK POINTER
R guno),ecan. %Tp?s'érlggxg%rcwm

ggg

MOV¥c

Echir.gcuno
£$1C17 138"

DISPLY

t&mfi.-(spy

Ec
ASR
ASR
AS
MOV

ASR

JSR
JSR

pIsPLY

cm;

R SIZE (IN BYTES) BACK IN

LOCATION
WORDCOUNTT COUNT
' LORD_THE aéror

;gnv&r

817,EC
CWRD
Ecu
cu%

:CLEAR THE BIT OFFSET
:CHANGE T
TE COUNT
‘3
10
BYTE
COUNT
70 BYTE COUNT
;

(SP)

IN1OR

‘PUT ls

, ECWRD ig xr“x'u

;ggS
,LIN
]Ecmg
§S§§°
" AtRO)

i 'E

BEGINS AT'

COUNT ON THE STACK

70 "38&,‘:“"" FOR MESSAGE
S&%
RT
THE
COUNT
: iN I7
:? n?nm FIELD
OF ERROR SECTOR’
OF THE ERROR BURST
HE fig u‘gm
;r&ng

S IN DATA REA

MP
Ecc2
:NOT IN ga?g READ - REPORT IT
ga C2(R0) ,ECMSKD;cu.g-gr THEHE USPE MASK WORD
CMSK 1
CLR
g
1 T ?ns
Ise BIT OFFSET COUNT
:Rc&sném
DEC 1 ECBIT
RIC
Ecmark:
iZHIET THE COWER INTO THE UPPER
MOV

' CONTINUE THE SHIFT

01
014610

:355

§i3§12

4371
4372
4373
437%

0146
gxus
014656
014662

4376

0146

.
i
3355 8fus
4390 01464

77
737

143;

014700
014704
014710
GIN714
014720
014724
014730

432
631
164

001334

4§:

164524

001326

oog;xu
017737
013746
0877

684452
1326
68%50

164436

1049414
013
0047
104414
863
7
104414

1326

831773
1330
2242
135
13
2242
155

001342

4393

014750
014754
014756
014762
014766
014772

8wnm

005737
001427
1044I4
863
73
104414

4395
4396
4397
4398
4399

(015006
812312
015016
015022
(015026

104414
863739
737
104414
000402

4394

4400
4401
4402
4403

da0e
4406
4407
4408
4409
4410

137

015002 80-47

015030
015034
0150%
:
015042
015050
015052

815056
015062

104414
104414
000207

csggo.zcaaoo

SRVE
3 ORRECT

o : °23§$'z‘5§’
n§§ ;E CWRD
e

5§:

Socl:

352155

BR
ggg

gscanol (5P)

pIspLy
MOV
JSR
pDIsPLY
MOV
JSR
DI%PLY

,LINSP
gcaaoo -(SP)
C,LINOCT
,LINSP
ECWRD, - (SP)
PC,LINOCT
LINSP

a%g
tgP)+lngfigg?1
Ry
LIUON
s
JSR
PC,LINOCT

BEQ
DISPLY

D0O1165
cu:gxaaa
2242
0S2155

)

gxc

001336

MOV

Ecunox

2242

ECC2:

0S1666
001165

ECCX:

JSR
D%SPLY

Scuaox -(SP)

LINOT
QEEQSP

Bxsva ,LIN1OC
|SCRLF
DISPLY

RTS

INTO NEXT WORD ?

OfiE WORD

ACK

OM UPPER MASK
OM DATA WORD

gUT
CBADD ON THE STACK
TYPEE
CBARDO

; TYPE

;
;

T SECWRD ON THE STACK
JECWRD
SPA ;S
PRINT
THE NEXT WORD ?

.BR IF NOT

cCX
,SCRLF

g?gPLY
EihéQOCT
MOV
$ca 1,-(SP)
oy
TLihaRICT
MOV
gEcuRol -(SP)

1392

052155
164320
Q022242
0S2155

8@
SITS
M MASK
ITS FROH BRD WORD

e
gn#aa(RO).scuaox
3unox
cC1
cun?x,g

CT HORD ADDRESS

K ON

g;g

4385 014790 Obur3s boasus
4386 014744 10-445;

4387
4388
4389
4390
4391
4392

geg

3 335332
OB
001336
gzp
16100
.
63%0300; 001336
CL

4375 oxusge 3;3349
4377
4378
4379
4380
4381
4382
4383

164550

4
4364

436 Oiu
qggs 8xw 7f

7737

SEG Coel

mmfio

014SSY

8wssa

PRAGE 82

mm §

4358

4359

15-DEC-77 10:58

11:03

CZRJIDC.P11

MACY11l 30(1046)
1S5-DEC-7?7
MAIN PROGRAM

: %‘%

RPON/S5/6 HLT-DR LGC

ceswsupw .-e:g.f.
-

CZRIDCO,

; CR=LF

iPUT ECWRD1 ON THE STACK

TYPE ECHRD1
ACES

PUT
Ecgaox ON THE STRCK

i m E CHRDI ON THE STACK
s

e
TPUT

JEXIT

ERROFFQ BURST WAS NOT TRANSFERED TO MEMORY

: RETURN

:ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR
032777
001460
016001

000010

000240

01604
06601E

000020
000236

004737

027054

d4i3 012098 DB1E046 000022
4413
015074

164070

PRTBAD:

gés
MOV

MOV

MOV
JSR

ggua, 3SWR

PRINT THE

$RPBA(RO),R1

;NRDL(R

v
I¢ NOT
18R
PUT THE END ADDRESS INT R1

-(gP)iFIND

$SSEC(RO), -(SP)
PC, LINKDV

THE

; SUBTRACT

BAD SECTOR

BEGINNING OF THE SECTOR

THE WORDS NOT TRANSFERED

iMAKE THE UPPER DIVIDEND O

;OIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE

:O0IVIDE

RPO4/5/6 &T-?fl hGC
10:58
1 S-DEC-77
1

00S716
ggéwoa
316
601

15112

162701

0000000000000 000000000000

1S100
15135
151
151

1811
15116
151
151

151
15133
1514

001000

000C10

15146
15130
15184
15160

010146
737
160
001412

151?3

12149

15162

151

15174
15176
15200

104414

000024

2%:
3%:

022242
000240

Ys:

052155

p22242

104414

001165

104414

001i6S

00S302
001366

000756

1€212

000207

000005

18:

000004
2060
0007

80473

15204
15206

ST
BEQ
ASL
SUB

10
7

oN4 1Y
15702

MACY11 30(10'43) A%DEC-??
MAIN ROG

B8R
SuB
CMPB

PRAGE 83

(SP)
13
(5P)
(5P),R1

SEQ 0Cee

;REMANDER = 0 ?
iBR IF ;T 1S - COMPLETE s;cron TRANSFERED
;
RT THE
RESIDUAL SECTOR SIZE INTO BYTE COUNT
,§¥ar ACT
FROM THE END RDDRESS

23
#1000,R1
SCODELRD) , #5

; u*gu THE
SIZING
:SUBTRACT
L SECTOR SIZE FROM END ADDR
' WAS gpsnar ON READ HERDER & DATA *

sSSP
%tuxxu
k7,R2

IREST
THE
STACK POINTER
iPRINT
HEADER
WORDS/LINE COUNT
THE
:R2 cg«rn

;
;
;Sgg

NOT
K =E

23
#10,R1

MOV
JSR
CMP
BEQ

R1,=(SP)
PC,L;NOCT
R, SRPBA(RD)
c§

MOV

{R1)+ -(;P)

PC,LINOC

:PUT THE DATA ON THE STACK

R
4s

,SCRLF

:DECREMENT THE HORIZONTAL COUNT
:BR IF NOT AT THE END OF THE LINE

ADD
DISPLY
MOV

JSR

DEC
BNE

DISPLY

5§:

EO?

8
S

DISPLY

11:03

LINSP

:PUT THE
SS ON THE STACK
: TYPE _THE ADDRESS
:PRINTED ALL THE SECTOR ?
:BR IF ALL PRINTED
: SPACES

:TYPE THE DATA
:CR-LF

'RESTORE THE WORDS/LINE_COUNT

RTS

*RETURN

DISPLY

,SCRLF

:PRINT WHAT REMAINS IN THE BUFFER

‘ESE{’"‘ TO0 DO AN RTC - DRIVE SELECTED IN RO
:

K sxgs FROM RDDR

MOV

JSR

RE TURN

#DFB, RO

PC,RINCTR

:DPB RDDRESS

&I;?filhcc
gé
RPO4 /S
RJgEOP
11

Yy4b

Y447
4448
4449

Y450
3325

015219

015220
oxsagg
0Ol
015234
01523s

111037

112737
004
37
044730

044730

000117

034120

11:03

MACY11 3gé gflSROGRE-DEC=77

044732

RTNCTR: MOVB

18:

000774
000207

MOVB
JSR
GENDPB

RTS

FO7

PRGE B4

(RO), GENDPB

:MOVE THE DRIVE 8 TO THE GENERAL OPB

13
PC

:DR ve
IRETU

#RTC ' GENDPB+$COMAND
onnnuo CODE
RO,RPOY
onxbtn
ENTRANCE
op? ngonsss FOR ORDER

DIDN'T ACCEPT ORDER

::ga

goulxne TO0 DO A RECALIBRATE - DRIVE SELECTED IN RO

4yySg

Y456
Y457

;

Y458

Y459
)

:0R
;

4461

Y462

4469

4470
4471
4472
::;3

#DPB

;DPB ADDRESS

MOV

oopa RO

;DPB ADDRESS

RETURN

(RO) ,GENDPB

:MOVE T

18
GENDPB+$TATUS
2s

.onxvsn DIDN'T ACCEPT THE ORDER
-SEE IF FINISHED
:BR_IF NOT FINISHED

;

3323

4467

JSR
PC, thnLT
RETURN

Y463

4466

MOV

015240

015244
015252
015256

0iS260
015262
015266

015270

111037

044730

112737 000107
004037 034120

044730

000774
005737
001775

MOVB

JSR

RECALT: MOVB

044732 RECALO: MOVB
18:
JSR

GENDPB

044746

2%:

BR
TST
BEQ

RTS

000207

DRIVE

PC
RscAL

:DRIVE ADDRESS
x 8 TO THE GENERAL DPB

onscéb csuopa+scbnn9 REc TE COMMAND
4
k TR
E
PC

DORESS FOR ORDER

*RETURN

::;2

8SEEET THE DRIVE IN RO (OFFSET CODE PRELORDED INTO 'RPOF')

Y477

4478

Y478

MOVB

MOV

::g?

RETURN

4482

OFFST:

MOVB

015272 111037 044730
4483
015276 112737 000115 044732
4484 015304 004037 034120
4485
015310 044730
4486 018312 000774
::gg

01314

18:

000207

4489

MOVB
JSR
GENDPB
BR
RTS

iCALL:

MOV

4434
::%

RETURN

44g]

4492
4433

4498
4499
400
4E01

#0PB, RO’

PC,OFFST

. OFFSET CODE

DPB ADDRESS

(RO) GENDPB

% TO GENERAL DPB
SET
csuopa+s¢onuoconna
no RPO
VER EN
DEE
1%
oaxvsn oxon r nccspr ORDER
PC

;UTILITY READ HERDER ROUTINE

4490

4497

SOFFSET, csnoPe‘srn

015316

(015324
018332
01833
018344

116637

116637
111037
016037
112727

000002

000004
044730
000272
000173

044741

044740

044742
044732

MOV
MOV
JSR

READHD: MOVB

MOVE
MOVE
MOV
MOVE

oscton -(SP)
ornncx Z(SP)
READDR

:DPB_ADDRESS

;SECTOR
ADDRESS
:TRACK ADDRESS

2(SP),GENDPB+$TRK ; TRACK ADDRESS

4(5P) GENDPB#SSEC :SECTOR ADDRESS
(RO) , BENDPB
DRIVE NUMBER
$RPC
¢
<n0)
csnopelschchxnosn
ADDRESS
$ROHD, GENOFB+SCOMND; COMMAND

SEG 00e2

CZRIDCO,

c%ngg P11

£c

GC
10:58

S02

004037

034120

4503
4S04
4505
4S06
07
4S08
:ggg

RPO4/S./6
MLT15-DEC-77

015352

01
01
gxg
01
015370
015374
018376

4730
774
7;;
17
012666
726

MACY11 30(1046)

MAIN Snocézn
18:

ON4746

2%:

000002

000207

MOV

;

RETURN1

4514

;

4516

;

4515

4517

;

:gig

4523

015400

015404
015410
(015412

004737

005760
001775
1oowo;

016370

605;3

001253

4527

015426

000200

4529

4256 Q1ousy
015434

001430

430 015442

015436

8357

001250

4532

015444

00S760
001014

000250

4533

0154s0

015452

1033

4534

015454

3760

001250

4536

018464

105237

001253

015476

1340

015462

4537

815470

4539

(015500

441

015506

4543
444

(015514
Q015516

4E38

4S540

442

:g:g

1407

23737

015502

004737

015512

005726

018522

004737

000207
109414

000137

$RETRY:

000016

QDI1S414

4531

GO?7

PAGE 85

RO, RPO4

SEG COoe+

;:DRIVER ENTR

:DPB nooness FOR ORDER
:DRIVER DIDN'T ACCEPT COMMAND

:BR

GENDPB+STATUS
(SP)+,2(SP)
(SP)+

JSR

#COUNT, RETRY

PC, SRETRY

RE TURN2

:FINISHED?

IF NOT

:ADJUST STACK FOR RETURN
: RETURN

001252

18:

000250

001253

2%:

JSR

18T
BEQ

INOTE:

022230

006E4YY

iBR

13076 EXIT

BEG

: INC

IF E

#BIT7,STATUS(RD) ' oxo

fiENT nernv COUNT

:BR IF NOT

ER TLRMINARTE NCRMALLY 7

BNE

TST

MASK

;IS fnnon MASK O

TST

BNE

SRPER1 (RO)
£g

‘MAKE S

.BR IF NO

4§:

INCB

7%:

R FINISHED?
;an IF NOT

BIT

- A

BEQ

CMPB

BNE

RTS

JSR

157

051330

;RE-START ORDER

$TATUS(RO)
18

RETRY+1

BIT

£S:

021762

IF
A oxrrsnsnr ERROR OCCURS DURING

PC,GODRIV

INCB

3%:

5§ :

: RETRY UNSUCESSFUL

iRETRY, THE ROUTINE EXITS TO 'ERPRCI

BMI

000016

:RETRY COUNT

:SUCESSFUL RETR

4524

4528

GENDPB
BR
TST
BEQ
MOV
TST

11:03

CEERY THE PRESENT OPERATION

4513

4S21
4522

JSR

RTS

:gié

4520

-DEC-77

RTS
DISPLY

JMP

iBR IF NOT

THAT THE DRIVE ERROR REG IS CLEAR

: CON
TINEE
RETRY

iBR
IF NO

MASK, SRPER1 (RO)

RETRY nernv+1

PC.LINEB

;SAME E

,INCREHENT RETRY COUNT

;gon;
:BR

IF NOT DCNE

: RETURN

.nsponr oxrrsnenr ERROR

PC.LINE?

iPRINT LINE
7

PC
,LINSM

i RETURN
i *DIFFERENT ERROR DURING RETRY’

(SP)+

ERPRC:

,ao:usr STACK POINTER FOR DIRECT RETURN

:REPORT THE ERROR

32:5

;fégglms TO UPDARTE THE PERFORMANCE SUMMARY STATISTICS

s g
4E50

3%?5
4SE3

(Q1SS26

032760

000300

0O0001&

46
4E
4EE7

(01SS3¢
0168494
Q1EEc2

016037
166037
(001434

000240
O0O0000E

015670
015670

4E64

(015534

QOI4SY

MOV
JSR

RETURN

STATIS:

BIT

BEQ

MOV
SUB
BEG

$DPB, RO

PC,StATIS

:DPB ADDRESS

sBITO7!BITOE, svnrus<n0) cugcx FOR onTn TERMINATION

i8R

ATA

TERMINATION

$RPBA(RO) ,FACTOR' srons THE FINAL BUFFER ADDRESS
$BUF (RO’ ,FACTOR ;SUBTRACT THE INITIAL ADDRESS
23
:BR IF NO DATA TRANSFER

CZRJDCO, RPO4-S/6 MLT-DR LGC
CZRJDC.P11
15-DEC-77 10:58

4560

4563

o
~N

4564
4565

015SS4

0IS

0000000000000
000

4558

4559

006237
063760
1021

005737

015670
015670

MACY1l 30(1046)
1S-DEC-77
MAIN PROGRAM

nurocx
0oooc1

S60

000020
000050

000046

026060

SY
000012

00SS60
000207

000001
000044

‘3 ODE(RO),
(RO 81

WRITE

nuroruzé;e cuccxs aexnc PERFORMED

WRITE CHECK ?
-Bfi;é;N;ogpERATION
T1 AN AUTOMATIC
T
;

$R
gng(RO)
snpcntnb)

cs:

000042

0000030

upoan AHORD COUNT

(RO) , STRANSLRO)
;ADD WORDS WRITTEN
%(RD)
;ADD_A_CARRY
ngr
no:no)
TE THE READ WORD COUNT

0000s2
000270

SEC 0ces

:CONVERT TO A WORD COUNT

rncrontgranusznoi

1701 COSE(RO)::gfis
IF 0888

001424

PAGE 86

FACTOR

000024

ASR

000046

11:03

3%:

RTS

FRACTOR:

.WORD

CARRY
:DID MID-TRANSFER SEEK OCCUR

SPbSIT#E(RO)

81, $POSIT(RO)

Ncaenenr
SEEK COUNT
noo CARRY TO UPPER WORD

:USED FOR WORDS TRANSFERED

ROUTINE T0 GET A BUFFER

Cfi

;

;
;

CLR
JSR

RETURN

:
GETBUF

880658

000020
000020
000020
00lele

1]
N

PC GETBUF

-(5P)

BUFTBL,R2

3%:

MOV

THE STACK

;BUFFER ADDRESS WILL BE ON THE STAC

;SAVE Rl

Pnn?

sspnanre aurrsns
AVA
o?

nLLocnron TABLE
xs R BLOCK LARGE ENOUGH

%n%l?flT
RBL COUNT

:q,nx

mcT MENT TRBLE poxnrsn

4
x
SWRDL (RO)

:Eg rsfisos S ZERO
;
?
¢ BYTES

SWROL (RO), (R1)

:MAK

TRRTING ADDRESS

i BRCTF

ENTRIES COUNT
TA8LE erry
UL OGATTON

ggRDL(ROJ
FTBL

g
00004

:CLEAR

SBUFTBL+2,R1
SWRDL
(RO) . 2(R1)
;

000002

0ooooz

:DPB ADDRESS

iSTACK WILL BE ZERC IF NO BUFFER nvnanaLE

8010

(5P}

R1,-(SP)

000004

000010
000020

0P8, RO

R2,-(SP)

00iel16

£
o

00000000000 0000000000000000

$e Bt Bn Bt Bt Bt Bt Bt Bt Bt Bt ot ot Bt ot ot Bt Bt s Bt Bt Bt Bt Bt Bt Bt Bt

;

MOV

,RETURN
avrss TO WORDS
CREMENT

oecnencur TABLE COUN

gr uens LAST ENTRY

1,R3

nov

(R3)%, (R1)+

novs ITEMS

$4’R3

(R3)+. (R1)+

TRBLE POINTER

NT TO NEXT ENTR\

SrasAdsadtas RS

68:

;CALL:

JSR

MOV

RETURN

CMS ST

PC,RELBUF

sDPB, RO

QZzO

11:03

-l

gy,

MACY11 30(1046 )
15-DEC-77
MAIN P ROGRAM
2

Z W

TFunono

lbl‘l‘

Q=2
oxaoaa
W—OooOa
oo -

c2
RPOY/S/6 HLT-?R LGC
Joc.fixx
1 0:58
1S-DEC-7

> - Q

FIPPPY
0g o0o0ooo
et g et —t

e080 00 0 50 050505M0e50606060560N50N 0PR0 0 0 0 0 D)DpEwPD.EERbLB

1ao>dQB103>e18Q(8N=[>@91adA1>TQ>1>81>_"J10£L8T10018w®0(3o8eW1=]-"TN31>8S1L0u%" oAl12A18(o3g2=9]12188 188 11A--198S1118N111-Wo Por1et?01
>
2
0
>
1
0
0
0
0
Q
0
W
>
>
0
0
s_WwRX4sd[o+a—dfOOZa-=& wZw4 S2IoR0Q-Euox4yQw-ouwWTBawZeai=8naov—e~Enwu4[=+TO0o-2*+~ py~8SM~4oZ-dPwlBy=|g~.,8[-zZ=,olpxiTloa>)x-WeSd8OWy%RwQa.O25=S3iS0ywo
[T-~ niWzoWeol QWQZxb L—oQvb]4m[ J=w Iox| @-W oQ&xa -

iIQOSAFRDyoWLpdIlyo0eiDOElCnsRo0iE2b=n“EgI9cAMF€I“-BIsoiwDew“pmaSa8n£gSIloREe.3Sgd“8SaiIeS8\EnQ%.Egs,IndaPs2uou8gx&Wct2QoRrv.tv@c.m&tuo§Za82uTO0cwShacoSBEa2Bgy8drE

8ZeeZ1APQX3EvO1.ZZBUNo7TWZ-m5geeOWR&=MSu>MZTz-eaeFnAAmNHIm"-r~NTmPMNWUBLLz=~EoxDRANo-z-OEwAZ->s~RAM-eBRsnWETZcoNlzmoY-A>TZly'alDxeNA=W>J=BsEX'TlmT—vJsOloDnXSTmNAAm1S7E7Rx"“EEyMEEOT[*V]
CZRIDCO,

107
PRGE 87
SEG Coee

Zw Q oL [ am. [*Y]

;ROUTINE TO PUT BUFFER BACK IN TRBLE

; DPB ADDRESS

-u

- XI w

= X@Jw

gfl bGC

S%fifi

goggo©

-7
C

MARCY11 30(10% s
IS-DEC
=77
MAIN
PROGRA

12521

MOV

108:

DEC
BNE

MOV
RTS

11:03

JO7

PAGE 88

(RS)+,(R1)+

;

MOV

;
:

MOVB
R

FILBUF:

18:

MOV

RETURN
SAVREG

BITB

BNE
MOV

MOV

BITB
MOV

Lol ol ot ot

BIS
MOV

NE
853& N
no
SH AT o
SegEtoa
W

000030
002762
000020

2%:

3%:

OL£00

oogo—o—

000

.‘_gb—o—hw &

\=]

BEQ

O--000

UTotot

s Pt Pt Pt it s Pt ot Pt Pt P

R
WG
FRERE3 m§28§SEESETY 5%B

s o ot ot ot 8 Pt s Pt

OO0CO000000000000O0O00000O0000

Bt Pt s s s ot s Pt

88BIRR L0028 BR00
RRPERo83

L L L EELELLLEE &5

000020
002762

(SP)+,R1
PC

:
;

og DR,

;DPB ADDRESS

SBUF (RO)’

Cizcelo

:LOAD BUFFER ADDRESS INTO THE DPB

s nrrsnh SPATTC(RO)
PC,FILBUF

;PATTERN CODE

;SAVE THE REGISTERS

#BI1T02, SCODE(RO)’ ;SEE IF READ ORDER

sQUf

(RQ)

;
:

SWRDL (RO},
a
R

;r READ
ER ADDRESS

;POSITIVE WORD COUNT

1 xroo.scboe RO) -sig IF WRITE HERDER TYPE ORDER
CYL (RO),

(R1)

;BR

8BIT12, (R1)+
sgscrnb),(nx

NOT

;cv#xnogn ADDRESS

:SET FMT22 BIT
: MOVE s;cron & TRACK

(RI)+
(R1)+
#4,R2
4s

{CLEAR
FIRST KEY WORD
:CLEAR THE SECOND
‘32’?57 THE WORD COUNT
;
F END OF PATTERN

MOVB

SPATTC(RG),RY

#97555
PQTTERN RDDRESS

CLR

MOV
MOV

MOV

DEC

RY4

cEAR RY

srnon7<nq>'RS
R3

RESS
PQTTE counr

! DECRE

cnsi+ (R1)+

BEQ
DEC
BNE

4%
R3
[

MOV

STNOAT(R4) ,RS

MOVE THE PATTERN INTQ THE BUFFER
THEWORD COUNT

:
AE
(WORD COUNT = ()
:
DEC
NT THE PATTERN COUNT
:BR gr nogsATTERN

o;o R3

iRESTORE

BR_

: CONT INUE oxsraxaurxnc THE PATTERN

RTS

RESREG

MOV

#DPB, RO

JSR

RETURN

PC, GODRIV

GODRIV:

MOV

RO, -(SP)

18:
2%:

E; ORE R1
RETURN

(IF WRITE OR WRITE CHECK ORDER)

‘ngff THE ORDER FOR THE DPB

;

; DECREMENT ENTRY C
;SR ;F NOT FINISHED

CLR
CLR
sug
BL

MOV

4$:

;MOVE SIZE FIELD DOWM

Re
9%

EAtt THE ASSIGNED BUFFER

SEG 0Ce7

MOV
JSR
_WORD
HALT
MOV

RO.2%
RO, RPOM
O

(SP)+,RO

PATTERN COUNT

;RESTORE THE ADDRESS

RESTORE THE REGISTERS
RETURN

IN RD

;DPB ADDRESS

;

SAVE RO

cunnsnr DPB RDDRESS
:CALL THE DRIVE HANDLER
onxvs BLOCK ADDRESS GOES HERE
‘DRIVER REJECTED REQUEST
'RESTORE RO

CZRIDCO,

RPO4/S/6 MLT

CZRIOC. P11
:;

ig:w

bcc

1s-oec-79 10:

MACY1l 30(1046)

% 000036

3;
ig:
97
4231 0164
:;gg 016444

559

000012
000042

1S-DEC-77

MAIN PROGRAM
ADD

&:Eo:

38:

ADC

RTS

11:03

KO?7

PAGE 89

gggg%g?)

; INCREMENT THE OPERATION COUNT

vmacno),scné:mF -o*o ORDER REQUIRE A CYLINDER CHANGE
bgpgsmm: ;xnc&:n:m SEEK COUNT
gg +2(R0)
:ADD ANY CARRY

:;gws

cc;smrcmre PRARAMETERS FOR THE OPERATION

4736

4737
47490

D16%

36M

:;:1 oings 032597 835001 162460

)
§153§ fié‘rg
ggoow
4744 016
?
7026

4745

4746

4747

4748

0164

016

016504

017170

4749

gu,sog

13705

o;;;;w

4751
:;gg

016516
016522

062705
110560

0000CH
000074

4750

01651

708 |

:gg
4756

016526

016005

000116

000120

SELPAR:

JSR

18:

MOV
JSR

PCGE REM

S,‘é

CHP

BHIS
JSR

2s:

38:
RANSEC:

§xs§33 166005 000120

g
—
4762 Su:gsa %gg
4763 016554
7
7026
4764 ou,gw
oooégo
4765

stLPm

csfia.asua

n§

nz'RATIO

;

C, RANWRT

;DPB ADDRESS
;CYCLE

_THE RANDOM NUMBER GENERATOR

ang
f
ssr
4

gsnfixuaZr;
g‘u:cnon oxvxson
T SELECTI

;

1r READ OR WRITE
*

52“ é"“& “g H
15 'fzu:cuou

ADD
MOVE

.. RS
1
RS.SNCODE(RO)

-meL
;ORDER

MOV

BIC

8fCl
Rs

ECT

OFF
on
no cooe
E
SELECTION CODE TO CONTROL BLOCK

:GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES 'MINSEC’ & 'MAXSEC’

:757 gigsaa Gee00

475

flé“

001422

737

MOV

016564

18:

MAXSEC(RO),RS

;GE

fiusecmm RS

gfb*mcrnm"r'inm sscron ADDRESS

cng

MINSEC(RO).RE

B
INC
JSR
ACD

dees

E‘ua

4763 016879 10706 0ODOZE

MOV

CMP

wu.ue

AL
3P

LARGE 7

2%:

:;;?

; GENERATE A RANDOM TRACK RDDRESS BETWEEN VALUES 'MINTRK’

166

016005

000112

166005

000114

477
8166%
oesoo;
000114
4774
QOlebl2
00141
4775

4776
4777
4778

4779
4780
4781

D1E
01662

81;6%8

0166

016634
0ibE4C

100002
705
g;

066005
020527

000023

087025

000114
000022

RS, sfisscmm

EelecEER e O
E?nc
NT x%me 70 USE RS OIVISOR
; T
RANDOM AUGMENT
;30

:;gg 016576 110560 000076
477

MOVB

cmm RS

MUM SECTOR RDDRESS

;' ms:c’ AND 'MAXSEC' THE SAME ?

: STORE secron ADDRESS IN DPB

RANTRK: MOV

CMP
BEQ

MAXTRK(RD),RS

BPL
ADD

SUB

MINTRK(RO)
RS

INC

18§
819.,RS

IBR IF mx
: CORRECT

ADD
CMP

MINTRK(RO),RS
RS, #18.

;NEW TRACK ADDRESS
:IS VALUE TOO LARGE

18:

JSR

MINTRK(RO)
|RS
28
PC, GETREM

8 'MRXTRK®

;GET MAXIMUM TRACK ADDRESS

'nxmnx'
moARE"MAXTRK' THE SAME 2
;

:5UB nncr nmmun mncx ADDRESS

ARGER T
wnaen

MIN

.mgnflzm DIFFERENCE ro USE AS DIVISOR

nm&on
AUGMENT

SEG 0088

LO?7

EIRIBE0
TPV eSolt P B8 TM! IRBhocARROECTTT 11309 PAGE S0
47

16694

:782 §i&§3
:;

1019

ix%

GH
;
:%
47

4
:;g

16702
167!

0160

}2;‘4

%;;

"’7%2
{2;

102
%mmfl 88840-4

Bigiié
lF SRl s mn
7014

0137

3'51
8‘7
E18
17026

5;% imuo

1§3§ 032364

18:

RANSIZ:

:gga? {7 76 az.i;? Sgrumm:
4833 i?iou 351629 000004
33% f;“g 63391 001420

2%:

3333c 813%%8 ?21228 000102

vuuosa LIMIT
£
RAXTMN
CYLINDER
ADDRESS
'nxngvhfl
MAXCYL® THE SAME °

RS
évt.xm
ag
'

2 a“""TO-USE AS DIVISOR
Ft:r'"NTfl% DIFFERENCE
8‘
;

MINCYL(RO),RS £gfia¥mcr nxw gvumen ADDRESS

5 RS
YLIMT,RS '

:
:

?
e
;é

SS IN DPB
ch"?
(RQ)
"
2 BiGiw
e mihoe

MOV

T
FER SIZE
LB
wono counr

”gv; A

3?'sp?“m)
-(8P)

: WORD

INC

%
}nc

881S.,C xm
MAXCYL(RO)
RS
gucvu )RS

: GENERATE A RANDOM BUFFER LENGTH BETMEEN 4 8 THE VALUE IN "MAXOL'

—_

01
1
0o
{% @é %8301 000074

Tmcxusoon:ss IN DPB

ANSFER

485s 81{7 4
4827

né,ik'r'ixmm

LENGTH TO 260 FOR WRTHO ORDER
mo)
, SNWRDL
Sumis MA8260. ,{naso
SguEE:gcma
WRITTEN ?

cerom

3';I;g

819

MOV

213 BiEE o
1

#41i..C
AN npou s
STggfl

000110

3% Ei"%

MOV

457
MOV
%13&
001350
pancyL:
MOV
110
§25

——

den

MOVE

;GENERATE A RANDOM CYLINDER ADORESS BETWEEN VALUES 'MINCYL' & 'MAXCYL'

UOm EE MR

= g g BB .,

2s:

LOS

seq 0083

ggsn

n"8¥
CLR

MOV
&.,-(SP)
. g,sueoo:(m)
Séé“

m m: mxmun SIZE

.g "x‘ mon NUMBER GENERATOR

INEW
:
;sec

TH TO

CONTROL BLOCK

e ED °vxH ONND_STACK
FOR CHECK
ZERO

S THE DIVISOR
1S A HEADER ORDER
ORDER

0 SECTOR SIZE
%49, (SP)
;’,38 7&%}@;)
ovxge'?Eszgx
av
sscron SIZE
im by;SEE IF th R LES
gg%s WCSEL
gsl.lgngg RANDOM TRANSFER SIZES *?

253

3¢

(SP), SNWRDL(RQ) ';ADJUST WORD LENGTH DOWNWARD

CZRJDCO

MACY1l 30(1046)
1S-DEC-77
MAIN PROGRAM

RPO4/S/6 MLT-DR LGC
15-DEC-77 10:58

i 8
8

000074

11:03

PAGE 91

SEG 0090

3s:

Br
TST

-3
(SP)+

conrxnu:
oanccr THE

ys:

ca;g

(SP)+ ot

onni

BNE

33&%??

STACK POINTER
ANDOM NUMBER GENERATOR

srncx POINTER

qu
E onrn

FOL8

;GET A RANDOM PATTERN NUMBER

000104

RANPAT: J30s

RTS

RANXIT: MOV

RE’ ifipsgc(noa
o-l SNEXT(RO)

B6VE PATTERN
COBE TO CONTROL BLOCK
TERS SELECTED INDICATOR
RETORN
T
'?55
;SET

;ROUTINE TO SELECT A WRITE (OR WRITE CHECK) OPERATION

D074
074

Y522

guamegogmR

MR&R =72

18:

NNN
nn

e Bt Bt Bt Bt Bt Bt Bt Bt ot Bt Bt s s
s e

?gé
Q

0000000000000000

ot Pt

000

NNN

RANWRT :

TB
B8

(5
BNE

§§f§§1“‘"

gfis Efieggcnscxoggoens TO BE SELECTED

82,RS

i3 T CODE TO enguoe WRITE CHECK ORDERS

gg.ox

sWRIT

’gg

JON

SELECTION DIVISOR

u: ARE

sgfi??k‘cfi;ifi‘EELl8¥so ?

8ozRe82

e Pt Pt Pt

s et P

NNNNNNNYN
L WWW

GETPAT:

§o§27
Y

m"x'r‘g‘m&RGROERs
ALLGueD-

3359
RPg''sucoostnox EEETURN
'“LTégEES¥BLE" N—
RTS
MOV

{sn

PC, GETREM

820 n§

BNE
JSR

18
PC, SRAND

:BR IF NOT
CYCL THE

ASL

naxe CODE INTO TABLE INDEX

18:

RTS

GEtPAT

_PC

;

SELECT PATTERN
ERN ZERO SELECTED ?

TRYEcnx

ZERO
RANDOM NUMBER GENERATOR

goulxns TO GET THE PREVIOUSLY SELECTED PRRAMETER VALUES

;;

MOV

Jga
JSR

RETURN

|
l
}%m&é %R‘“&"
OR WRITE CHECK
TR S VW hirt et

;ROUTINE TO SELECT A PATTERN
00000000

171
171

4843

032364

171

32 : 171
71
171

FERIERY

ZRIDC.P1 1

#DPB,

Pc.gékpnn
PC.GETPAR

; DPB_ADDRESS

:SELECT THE PARAMETERS

NO?7

S S

U
S

Y S

£rcx

“

4321

3925

7946
7454

7737'4
81781

MOV

-n-2
000022 3s:

7520
7524

7526

MOV
MOV

.’%3
BIT
a0
CLR

MOV

4926
4327
:929

;
:
:

ma!:aoiE 017530 016111 000002
4931

017534

001403

017544

00020

4932

4933

817535

062701

017842 00077;

000002

CMPRES: MOV

BEQ
RDD

18:

RTS

ooga
ADDRESSES
55
FOR THE RH1l

H
OF SECTOR
SIZE
WYE%IM
?
IR SIZE
TERS LORDED' INDICATOR
T’

TURN

:ROUTINE TO COMPRESS A LIST

MOV
JSR
RETURN

HE T

??m

RRTION

:RESTORE RS

4924

:CALL:

WE ron

r%n

'
)

RTS

492¢

.GET m: DECREMENTED SECTOR AND TRACK ADORESSES

;T
;C

MOV

UUUL

TING CYLINDER

Lono
oMND (RO)

wg
T s:cr AND TRACK

(nm ERN C

O
R
D

S%non IS no OR WRITE

(ko"b’étn&“ CYLINDER

Hove
V

000002

VNI

33is
fl9l§
4318

iS:
MO

sca cos

d?t

MOV

000024

NI N

431
491y

741

[

331
-431
vmg

?."I;}m

: 10 7%
4

GETPAR: MOV

18:

NNNN

SRTSRS I AT 100 P

$ADGRS "§

:COMPRESS LIST STARTING AT THIS ADDRESS

amu (R1)

; COMPRESS THE mau: IN RI

L%Nuue comnessmc TRBLE

PC, CMPRE

né

‘BR

xucnsnen

:no OUND

:ggg

22{’""‘ T0 SETUP PARAMETERS ron A SEQUENTIAL RERD OR WRITE OF THE DISK

4338

“Gu

23..33

uewé
233..

4945

017546

4737

032364

4948
4949

017560
017564

005760
001004

000036

H45NE 81755.2 835750 000040
4947 017556 001007

MOV

sDPB, RO

:DPB ADDRESS

;

MOV

oé,smcx(nm

; "READ PACK® FLAG

JSR
PC . WRTPK
RE TURN

WRTPK:

JSR

sobsnc+amm
PK1

;CYCLE

157
BNE
TST
BNE

s-1,8PACK(RO)

$RAND

sopencmom
WRTPK

;'WRITE PACK' FLAG

THE RANDOM uunaen GENERATOR

sss Er
FIRST OPERATION
PPER_WORD OF COUNTER NOT ZERO
Lou 3 uon ZERQO
?
:BR IF NOT 1ST OPERATION

CZRJDCO

RPO"O/S/S H.T#lLGC

CZRIDC.P11

4
M
4

17
17674
1

17576

M
4955
4
M
495

4360
436l

qag
M
4364
:%s

15-DEC-

4969
4970
4371
4972
4973
4974

4975
4976

3935“

0176
0176

1
175
017662

oimu

ooooix

%813

01771
0177
0177
0177

%8%0

0177

Q17794
01

000022

o
2

020052

060001

010246
012701

000124

021160

000272

S003 020054 012702 00C020
5004

§00c

020060
0200ed

BIT
B
TS
JMP
MOV

001022

BRI

'
(5P
MAI
MA

MOV

.
;

18:

'PATT m CODE

SEr
ns
; 'Pmnnsrzn SELECTED® INDICATOR

TERMINE
OF ERROR
PC,SPOTCK

MOV

R1,-(SP)

ADD

16 R2

BNE

AT A LOCATION ON THE PACK DEFINED

BRD mncx/sscron
.

ron OPERATION
iy
XIT

RETURN]
RE TURNZ

CHP

Rggs

INDER
ADDRESS
TERMINATION)
(NORMAL

Rg'
SNEX

MOV

E ?

?g\flm

MOV
MOV

TER THAN ’MAXCYL'
MAX
TER

T
smcx POINTER
Y T0 'MAIN’
S MAXIMUM

WRT

MOVB
WRTPKY: CLR

SPOTCK:

AND TRACK ADDRESSES

COUNT TO 2'S COMPLEMENT

WR
8256
.2,

JSR

TERS

g 1 K RDDRESS
vkxlqe
sS
AT END
THAN ' MA
’

MO
e
BR
WRTPK3: MOV
MOVS

SEQ 0092

NDER

BRI
RK(RO), MAXTRK
(R
:
1

WRTPK2: MOV

:
:
:
.

;

n*ncs&s (58izsvu :

BMI

010146

MAXCYL(

g ""é}”";

MOV

s ROUTINE m

(020042

P CALL:

020044
020046

%va

RTS

499]
4992
4993
499y
499¢
:3999
(020042

BHI
CMPB
BLO

mso SECTOR

&onb)
.

A(RO)

TSTB

.,9590“

S000
S001

; SEE uuxcu - 'R’ OR "W’
R’

,an x

YL(RO),

JSR

017750

:qee 02004G

4999

18:

PAGE 93

(RD), sPREVD n
( g

¢t(

CMP
BLO

161220

0177

(SP)+,
(5P)+

MOV

000112

4386
35%%
4387 020034

4938

JSR
MO
MO
MOV
MOV

010
12
106

4980 801
%
4381
4%

untpxg

000027 WRTPK1: MOVB

1
(017610
17614
1
1

11:03

SPACK (RO)
WRTPK

4977 31;;&

4978

IEEDEC-'/’?

1ST8

436 §1%
017706

4968

MRCY1l 335%2"02)

BO8

ABLE FOR THE DRIVE.

:ERROR AT AN ADDRESS IN TABLE
'NO TRBLE ENTRY FOR ERROR ADORESS OR
:PARAMETER 'NOTPRT' IS O
;;PUSH R1 ON STACK

R2' -(5P)
oséossc Rl

::PUSH
R2 ON STACK
: INCREMENT FOR BAD SECTOR TABLE

mn,snpccmm

1S CYLINDER IN THE TRABLE °

'BAD

g OCK'S STARTING ADDRESS
SECTOR
TABLE SIZE COUNT

‘BR IF NOT

CZRJDCO,

RPOM/S/6 MLT-DR LGC

CZRIDC.P11

15-DEC-77 10:58

MACY11l 30(1046)

15-DEC-77

MRIN PROGRAM

11:03

cO8

PAGE 94

soo;

oaoogg

105761

000003

Tara

3(R1}

§§?3

gig

000003

CMPB

(ifin,acnn

3%3 858#. 6@7@ 022314

i1 1 1 1 000002
soig fiiii
mu?uaua
2013
S5Bile
B834%%
sois 020120
Z&é 000002
2818
B8sgisd
film755
soxg
1

2s:

]

501
5020

1
i

soas:

0201
020154
0201
{t;;

55032033

020176

1
711

000004

001426

205s mlE
¢ }-oe B0eg 305
s
5024 020146
06
1

12737

5030
ca:wa 12602
5031 35817-4 815201

177777

000002

38:

4§

58
001264

000004

ggz

)

SEG 0092

rmcx ENTRY ?

?3 READOR

?'s‘ga Smn
?P%
?’p)o
£f°;‘£°
&3sinn,amn
BN15T 5(SP)+

}n;Rggcron/mncx ADDRESS
ADDRESS

s 3 noonE: ‘fn THE TRABLE ”
ME “F:és&eK POINTER
6"§n
MTWTM ADDRESS
& m TBRT’
éo"c
n: STACK POINTER

AD
1S

#4 Rl
ml)

Pasr n: TRBLE

TST
BNE
MOV
ADD

ngwm
7
0-1 anosec
2,4(sP

,mm n-; ERROR ANYWAY ?
iBR_IF NO
:SET THE
INDICATOR FOR THE IDENTIFICATION LINE
: INCREMENT THE RETURN

B"é
n
s
B8R
MOV
MOV
RTS

( P)+.RI
)+,R2

ocmxon IN THE TRBLE
TRIES ?

c .E‘.:? m: MAXIMUM ENTRY COUNT
DR
:END sxx

,,POP
TACK INTC R2
i OP mcx INTO RI

IRET

ggg‘s‘

$3 T2

2232222222222 2222222222222

%g;

.SBTTL

ERROR MESSAGE GENERATION ROUTINES

%gg

3 ;llIvllllillllll!lllllllllllllllll!ll!l!illi!iliIlvi{ilillililllil-

5040

:PRINT LINE 1 OF ERROR MESSAGE:

gg:é

; "HH:MM:SS’

S043
S044

020200
020206

032777
001402

5047

020222

001403

020236

5045

]

S048

020224

S0S¢
E0E7

5058

E0E9
S0eQ
S0el

020242
-

002000

794

836638

104414

001165

004737
104414
000207

023450

5049 85855? txmwou

5050
6051
05
E0EY
5055

2222222222223

052156

160732

LINEl:

160716 18:

BIT
?:o

YPE

BIT

BEQ

DISPLY

#SW10, ISKR
1

BELL

kSWI3, ISWR

:SWITCH 10 SET ?
:BR IF NOT

,nm? THE BSEL

P INHIBIT TYPEGUT 2

iBR IF NOT

CRLF

:CR-LF

,;xx

2s:
JSR
STIME
YPE THE TIME
DISPLY
,LINSPO
: SPACES
3s:
RTS
pC
:RETURN 8 TYPE DESCRIPTION
;s PRINT Ly*:
z or _ERROR MESSAGE
;’PRESEN
= XXXX PREVIOUS ORDER
= XXXX'
:*% ERROR AT an
:*"DRV RPCS]

mncx/sec OR’
RPDS1
npsm

i 1 RPSN

RPCA

;'nPuc

npan

RPOF

RPOR

RPAS
RPCC

RPLA

npsae

STATUS'

RPDB

'aus ADDRESS OR WORD COUNT NOT CONSISTENT'
RPBAR
= XXXXXX

RPWC = XXXXXX'

RPER3

RPMR

RPEC1

RPDT’

RPEC2®

CZRJDCO,

RPO4-S/6 MLT-DR LGC

CZRIDC.P11

MACY1l 30(1046)

15-DEC-77 10:58

g&g
020244

LINE2:

88
P

SO;O
1
3875 850532 1

826-434
NN

%% ggé;ig 127;9
14

8077 @Z
.

m
e

11 a7g-o 177701
27
737 020340
26
005005

18:

MOVB
JSR
BR
CLR

spnsvolnm
R4
nc7
xhsen

;

BEQ

OPTBL(RS).RH
3s

;bgon FORTHE OPCODE

CMPB

001766

ga;a

§103

104414

1165

LINE2B: DISPLY

052155

DISPLY

soa?5
085
005205
INC
2089
806305
3s:
BeL
5092 020370 8957337075 &noaogig 020410
nog
5095
4§:
.WORD
S509% 020406 104414
DISPLY
2098
0SO41s 009287
RTS
ssc«a'amn 'oeouw wooslzgz 001264
LINE2RA: TSE
§101 nfisg 104414 001165
stm.v
£102
26 104414 0S0307
DISPLY
€109
€110
Eiié
€113
S114
€11

85335
020472

020512
Slle 020516
€117 ‘020S22

104414

8657g§
7
oaamlgfi
104414
01270
004737
104414
012705

Oeai

ggoxsa
0616
000040
047742
05020
02061l
0S0041
050226

g;rauns;

RS
H
SMNTBL , 5§
O
pC
Lasxaosgg
.sE'SLF
.LINSS

MOV
JSR
ghxé
DISPLY
MOV
JSR

oxspu

8Ls aoonsss STORAGE
e

’%‘ ynorE
el
SS OF 'PREVIOUS ORDER = ' MSG

;PREVIOUS Ypfié“"
OPERATION
CODE
FICANT BITS
:
Vi
MNEMONIC
iCONTI
:CLEAR THE TABLE INDEX
;§n
'BR

WHEN OPC

Emcnsmn'? THE P
F O Y Roex
! END OF ThBLE
aoongfé ?r ngcxx TEXT TABLE
:'TYPE ésTHE OFOPERATION
*PRESENT’MNEMONIC
OR ’'PREVIOUS' MESSAGE
$Eggn;; R0
MATN RQOTINE
;g; BAD SECTOR LINE ?
;i CR-LF
;ERROR ADDRESS DEFINED AS BRD AREA

iCR-LF

,LINSP

'SPcg

kGT14,RS
PC, 38
:gaos,asun
,DM1S
kDT15,RS
PC, 3§
DH1B
kDTi6,RS

coum EQUALS OPCODE

E'§8°'I‘F'2“ END OF T

.SCRLF

BIepty ' Dinero

160440

ACK

sLl

BIC

28:

,,PU?:
R3 ON
gmcx

,,Pu

':"
C.4
M
g\: sem ORDER = ' MSG
fiéggxtns),m :
ré ODE

733

€108

R3,-(SP)

ACTUAL NMBR WRDS XFRD = XXX’

%5
MOVB

2i0c Doouds 10udiy

SIZE = XXXX

RY. -(5P)

BEQ
MOV

020404

SEG 0094

MOV

5085 8583?3

020432

PRAGE 95

gga 8533:5 65“83 001766
19

MOV

2 020404

5078
5079
ggo
1
5082

11:03

:"BUFFER ADR = XXXXXX

506N

1S-DEC-77

ERROR MESSAGE GENERATION ROUTINES

$32°‘*‘s’“’E“’-""’ IR J—
REGI ;n NDEXES
HE REGISTERS
.ESI?}
me OPTIONAL REGISTERS ?
i
secono DATA LINE
‘PRINT THEM
: THIRD DATA LINE

§O2

nggmmmmmmmmmg
£t
DO LW~
OO
N &f&&&
w-SS8YRRZEREBBVFRELA
8o 88

P1l

4
ggggza

gg:ssu

0S66

15-DEC-77

10:58

737

020616

020640

020642
020644

020652

NANINNCoo
oo o
W OwooNmINnE

SEG 0095

;PRINT THE Rscxsrsns

,EMY6

020614

020634

NERATION nou NES

DISPLY

012604

020622
020626
020632

JSR

EOB

104414

og‘x:uo

020610

020620

ERROR MESSA

ogt &,8TATUS(RD)’ oarnnsROR 7
={SP) '?fi
IFFERTS
4 uoso coun
i‘afi%m&), (&8’
iaod
BAINIAG
.cou
70 AN BYTE xncnensnr
saur
i BUFF n STARTING ADDRESS
(SP)+, sn#an(RO) :C cr FER RDDRESS ?

047231

Panaua 012605
020616

é Ggsc

17
n‘e
AgD
ASL
ADD
CHP

05027¢
§§§;13
025453
020553
737 021326
020612

MACY11 30(1045)

?32 000100 000016 1§:
xlq 16 000236
16
gssox
asss 000006
000240
-

012603

012546

0016

017646 000000
004737 022242
726
109414

005715

001365
104414

000207

BEQ

38:

052155

001185

:'BU

tERINT LINE 30 OF ERROR MESSAGE

MOV

(SP)+,RS

MOV

(5P)+.R3

::POP

(SP)+.RY

RTS

ADD

MOV
JSR
1ST

RO, (SP)

TST

{RS)

MOV

BNE
oxsva

RTS

:1POP STACK INTO RY

STACK INTO R3

:RETURN TO ERROR Paocsssrnc RCUTINE

(RS)+, -(SP)

:PUT THE REGISTER INDEX
ON THE STACK

,LINSP

'PRINT 2 SP

atSP) -(SP)
¢, LINOCT
(s#)+

‘ADD DRIVE'S TRBLE nooasss

: VALUE
PTYPE IT
:CORRECT THE STACK POINTER
:AT END OF LINE ?

3s
$CRLF

:BR IF NOT
:CR-LF

: RETURN

;PRINT LINE 3 OF ERROR MESSAGE

:"ERROR AT CCC TT SS
14

D0S0343

LINE3:

DISPLY

PREVIOUS ADR
= CCC TT SS'

,LINM3

LIN3. 1

;LINE 3

'FINISH

ENTRANCE

PRINTOUT

;PRINT LINE 3R OF ERROR MESSAGE

i"START CYL
= CCC
020660

02066

104414

0S0361

LINE3A:

DISPLY

END CYL
= Ccc’

,LINN3

LIN3.1

;LINE_3R_ENTRANCE

‘FINISH ERROR LINE

;PRINT LINE 38 OF ERROR MESSAGE

:"START CYL = CCC
020666

004737

020676

000207

020672

104414

021230

001165

LINE3B:

END CYL= CCC

JSR

PC,LIN3.3

RTS

DISPLY

,SCRLF

;PRINT LINE 3C OF ERROR MESSAGE

i"START CYL= CCC
020700
CeC704

004737
000137

O
O

LINE3C: an
NP

PC,LIN3.3
LIA3. Y

;PRINT LINE 3D OF ERROR MESSAGE

("RPBA = XXXXXX

RPWC
= XXXXXX'

ACTUAL CYL = CCC’

:LINE 3B ENTRANCE

END CYL= CCC

ESS AND WORD COUNT ARE NOT CONSISTENT’

IPRINT LINE4 OF ERROR MESSAGE
; ;POP STACK INTO RS

DISPLY
4§:

2L3PLY
peTineaD
JSR
PC.LINEY

MOV

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

i enunnununauuuinanudicen nuineE oo aadauanaadauauuaon oo

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

RPOY/S/6 MLT-

ACTUAL CYL = CCC

;LINE 3C ENTRANCE
'FINISH MESSAGE

TRK = TT’

LGC
10:58

MACY11 30(1045)
15-DEC-77
11:03 PAGE 97
ERROR MESSAGE GENERATION ROUTINES

000040

160222

LINE3D:

2242
0S42

224
116

uiuos, 3SWR

DISPLY

3
gkggg<ao),-(sp)
FER noon REG CONTENTS

JSR
DISPLY
MOV
J?R

gT PLY

E“ITSH § sgr ”

LINO
tkguua

.éonvs T 70 OCTAL AND TYPE IT
i RPWC =
C(RO),~-(SP) ;WORD COUNT REGISTER CONTENTS
PC,LINOCT
:CONVERT TO OCTAL AND TYPE IT

pgt

:"START CYL.= CCC

RRRRRRRRRREBR B
& RNAR

050426

LINE3E:

000012
022274
052155
050554

Q0
£
n

Or=Wre eI
NENOCC
£ LN

000011
2274
2155
050571

000010
022274
001165

SEG 00%%

Sé’

;PRINT LINE 3E OF ERROR MESSAGE

DISPLY

MOV
JSR
DISPLY
DISPLY
CLR
MOVB
JSR
DIsPLY
DISPLY
CLR
MOVB
JS
DISPLY
RTS

START TRK= TT

,LINS3

§CYL(RD),-(SP)
PC,LINDEL
,LINSP
.LINST3
~(SP)
$TRK(RO), (SP)
PC,LINDEL
,LINSP
.LINSS3
Z(SP)
$SEC(RO),(SP)
PC, L INDEL
,SCRLF

START SEC = SS’

:"START CYL

:MOVE CYL TO srncx
:TYPE IT IN DECIMAL
: SPACES
:7START TRK = ’
:CLEAR STACK
;TRACK TO STACK
STYPE IT IN DECIMAL
i SPACES
"START ssc s’
:CLEAR STACK
:SECTOR RDDR TO STACK
:TYPE IT IN DECIMAL

£0

000040

BEES§§

—

8o
R

g28-323

(=]
neEN
oW
NEN

283733
£0

[

-t

e b

e Bt e

e Pt Be

RRRRRRRLMD

annr LINE 3F OF ERROR MESSAGE
'RPDR = XXXXXX
RPCA = XXXXXX*

160066

anear: BIT

Q
DISPLY
MOV
JSR

050S22

000242
022242
052155

pispLY

050511

DISPLY

000270

MOV

022242

001165

JER

18:

DISPLY
RTS

RFRGRG
e

e
Pt Pt
Bt Pt Bt P

Pt Bt Pt Pt Pt Pt Pt P

:*CCC TT SS

etRCE SRR e R IR IRRPBREBIINAD BT

RO
R RO RO
NNN&&?NNNN-—.—.—.—.—.—».—.—-—
W= OWO NN LW-O

Bt Bt

s Bt Bt ot Bt Bt

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

OO0
~Ne

nuwn
rnrn

FO8

000272

022274
050356
22314
22274

0S0402
022274
0S040S

LIN3.1:

MOV

#SWS, ISKR

:SWITCH S SET 2

,LINSP

i SPACES

PC,LINO

TYPE IT

,an IF NOT
185
gg
:TRPDA = '
.
$§RPDA( 0) -(SP) :PUT secron/rancx ADDRESS ON THE STACK
PC,LINOCT
.r PE IT
'LINCAR3

,SCRL :
pC

PREV ADR = CCC TT SS*

$RPCC(RD), -(SP)

JSR
pispLy
JSR

PC,LINDEC’
T’
#c READOR

DISPLY
JSR
pIspLy

s
PC,LINDEC
LINP3

ISR

RPCA
=

tapcn(RO) -(SP) PUT ossxnso CYLINDER ADDRESS ON THE STACK

LINDEC

pur CYLINDER ADDR ON STACK

vps IT xn DECIMAL

scnc

NT TRACK AND SECTOR ADDRESSES

vp T RACK IN DECIMAL

S’
rvps secron ADDRESS
‘PRINT 'PREV RDDR’

~
n

Ps pe Pe

RRSSSSERRESS

BRE5383 e

[

O
.

GOS8

MACYL1 3 (IOQGAESéEGgEC-77RQ*f603 PAGE 398
RROR
GENE
N ROUTINES

MOV

sru

JSR
QEEPLY

9 ggaé;3S

MOVE
JSR

0S0402

DISPLY
LR

MOVB
JSR

022274

001165

PREVA+2(R0),~(SP)

C,LINDEC

050426

SRRRRRE

LIN3.3: DISPLY

000034
022274
0S0443
000272

END CYL
= ccCC’

,LINS3

LIN3.4:

001165

PC,LINDE

$§RPCC(RO),-(SP) :PRESENT CYLINDER

DISPLY

:TYPE IT IN DECIMAL

TRK = TT'

LINR3

;PRINT "ACTUAL'

MOV
BIC
JSR
DISPLY

R,-(SP)
oax 12’ (SP)
PC L;flbsc
Ltu 3

MOVB
JSR

zRPDA+1(R0) (SP)' :PUT TRACK ON STACK
INDEC
;tYPE IT IN DECIMAL

(SP)

:ACTUAL chguosn
..Lsnn THE FORMAT BIT
:TYPE IT IN DECIMAL
;anu TRACK
'CLEAR STACK WORD

DISPLY éRLF

RTS

:PRINT LINE 4 OF ERROR MESSAGE

; "BUFFER ADR = XXXXXX
000016

LINE4:

SIZE = XXXX

ACTUAL NMBR WRDS XFRD = XxXX°*

0S0606

BIT
BEQ
DISPLY

2242
050625
000020
022274
050637
00240
06

JSR
pIisPLY
MOV
JSR
pDIsPLY
MOV
SUB

PC,LINOCY
,LINSY
$1RDL (RO) , - (SP)
PC,LINDEC’
,LINXY
gRPBR(ROJ -(SP)
BUF (RO, tsP)

: CONVERT o OCTAL & PRINT
'PRINT 'SIZE
;gurrsn SIZE
:TYPE IT IN oscxnnL
-'nc UAL NMBR WRDS
X
n%
UE IN BUFFER noon nssxsren
,sua RACT STARTING
RESS

022274

JSR

PC, L INDEC

; TYPE IT IN DECIMAL

8gooos

'38 & 3C’ ENTRANCE

JSR

CLR

000243
022274

LINE

gpnevno (RO),-(SP) ;PREVIOUS CYLINDER
¢, LINDEC
;TYPE IT IN DECIMAL
,LINEN3
IPRINT 'END CYL'

RTS

054456
010000
022274
0S0S00

EESRNNIR RN

iP
’
nxe ROOH ON THE STACK

MOV
JS
pIsPLY
MOV

022274

RRRRRRRDLN

spnsvn(no; (sP) ':PREVIOUS secron oonzss
L INDEC
;YYPE IT IN DECIMA

:"ACTUAL CYL = CCC

RRRRERERRRRRANS

iPREVIOUS chxnosn

TYPE IT IN DECI
(PRINT * 17

gpgsvn¢x(n0) (sps §n§5¥oug"rnncx
ADDRESS
#: T IN DECIMA

:"START CYL = CCC

000100

SEQ C097

DISPLY
sCRLr
RTS
PC

L
Y,L=A
53BYRRAZEREY

—

OO0

bGC

00116E

MOV

ASR

18:

DIsPLY
RTS

#BITO06,STATUS(RQ)
_;DATA ERROR ?
NOT
:BR' IF
s
P TPRINT aurrsa'

taurcRO) -(SP) :BUFFER

(SP)

,SCRLF
AC

;PRINT LINE S OF ERROR MESSAGE

N ST

:CONVERT INTOC A uono CUUNT

:CR-LF
! RETURN

HO8

ESRIBECs,
TPOU Selol
I-0R B0Eg MACYIL P LARAEe ARGPELENERat1ONROUTINES
;"GOOD DATA = XXXXXX

2588?

§§§2 ge14s8
182760
B
5292

021440

104414

o8 oooewo ST "gv
SURCY
:

PLY

BAD DATA = XXXXXX

SE L Noc? 3

gap(RQ),-(SP)

6046 000236
85% 021460 §éggxg
000020

MOV

(5#)4(SP)

e300 081500 109414 030750

134
737

9§3PLY pE e Roec

022

§§§§

2309 g21516 1044l 0SO743
S3iC
1S2e
01l
ggié
081538 10waly DSsioe
313
021536
013746
0OS44
23ie
BS}5§§ {04414 oaafgg
5316 021§
é637737
“6 §§s”
022242
23la 051268 10441y OS2ise
ggég gSigg‘B’ &4;39 022242
£35]
021576
104414
052155

RO)($B)’

vaps R

D27054
0

ATA’

ks RPBA(RO_ )T?P
iBACKgogTHE
oa?RE
Y
THE BUFFER LOCATION
g
;PRINT_*GOQD D

MOV

SECT :os XXX

,LINDS

050707

SEG 0098

DOTA Fron "BuF

iMAKE

INTG

;

by LI

POSITIVE NUMBER

tUPPER DIVIOEND 0ZERO

e iMOVE_R
IR EMAINDERBe i

FYPE THE POSTTTON

:
ERROR ME
——
R
NDER FROR A_OF
ERRORTHE SECTOR
. XIOODRK. XXKXXX xxxxxxorx::R
ER iy
LINESA: DéSPLY CYL02365§5P’
HEESESR§ NTENTS

JSR

PC. LI

hov - C$L32502*-(SP) gg:z %POSITION +2
JSR
PC,LINOC
:
i ¢5L325+u’-(sp) -H$§DERPOSITION +4
JSR
PC,LINOC
;
! SPACES
QALY ¢YLDER+E*-(SP) ¥egge¥POSITION +6
g%gPL
Yg
m
spgcgs
BigRLY

5§32

ed
éig

g;gg g21b10

1oua1s 080777

PR%’E‘ExL!N)EtxiB_OF
xxx ERROR_ME
RPEC2 =SSAGE
XXXXXX

hNESDs DéEPL
"

gEPE?IERO) -(SP) Téggrlnscxsrsa CONTENTS ON
INEPS

"RPEC1

5330

021620

0Q4737

(022242

238pLy

| LihsP

{SPACES

£333

021634

016046

000302

PeLIocT

STYPE IT

£33t

0216

£ fie joal g
3

2337
338
3

4737

Qee24e

£347 oceiesz 1oweiw osiceR

THE

STACK

B Pt oo feien camos on e s

;PRINT LINE & OF ERPORTEEEEQGE
{"SECTOR IS ECC CORREC

LINEG: DISPLY ,LINBSG

;ECC CORRE

—un

/6 MLT-DR LGC
5-DEC-77 10:58

104414

000207

108

15-DEC-77 11:03 PAGE 100
MACY1l 30(1046)
ERROR MESSAGE GENERATION ROUTINES

g;sva

001165

SEG 0099

$CRLF

:PRINT LINE 6A OF THE ERROR MESSAGE

:"SECTOR RERD CORRECTLY AT OFFSET N°

104414

000411

LINEBA: ggsva

051085

LINC

LING. 1

:PRINT 'READ CORRECTLY AT OFFSET N’

:TYPE THE REST OF THE LINE

:PRINT LINE 6B OF THE ERROR MESSAGE

'"SECTOR IS ECC CORRECTABLE AT OFFSET N’

104414

0004086

LINEEB: SASPLY

051022

LINBG

LING.1

:PRINT *SECTOR 1S ECC CORRECTABLE °

:PRINT LINE 6C OF THE ERROR MESSAGE
:*CORRECTED ON NTH RETRY’

104414

000414

LINEBC: DISPLY

0S1104

,LINGE

LING.2

: *CORRECTED ON NTH_RETRY’

STYPE THE REST OF THE LINE

;PRINT LINE 6D OF THE ERROR MESSAGE
: *UNCORRECTRBLE RFTER N RETRIES’

104414

000411

LINEBD: DISPLY

051133

%xnuoa

LINe.2

: *UNCORRECTABLE AFTER N RETRIES'

IFINISH

RRRRSS
BRIIRN

. TYPE THE OFFSET VALUE IN MICRO-INCHES

006301
9633?3
0000C0

109414

000207

002240
001165

021726

R1
OFMTBL(R1),1$

:DOUBLE THE OFFSET TABLE INDEX
:ADDRESS OF OFFSET POSITION MESSAGE

.WORD

:OFFSET VALUE

RTS

LING.1: ASL
S?ZPL
18:

DISPLY

,SCRLF

3\3\0\1\1
NL£LW
& L0L£o0om

e
s bt e
B
P

RRR0R

:RETRY COUNT TYPEOUT

00S04E
113716

4737
104414
104414
0207

001253

022274
OSil22

LINE.2: CLR
MOVB

JSR
pispLy
DISPLY
RTS

O0O11ES

-(SP)
RETRY+1, (SP)

PC,LINDEC
,LINRE
|SCRLF

:CLEAR STACK
*RETRY COUNT

'TYPE IT IN DECIMAL
P *RETRY’

:PRINT LINE 7 OF THE ERROR MESSAGE

RRBRRRRR
BEENNSSS
TE2EINER

; " ORDERS: XXXXX

104414

051206

LINE?:

DISPLY

MOV

012746

000036

004737
104414

032562
027370
051265

ISR
pispLy

004737

022274

JSR

060016
004737

016046

0O0COSE

ADD
JSR

MOV

TOTAL ERRORS: XXX

WRDS XFRD: XXXXXXX

,LIN70

:PRINT ORDER COUNT

RO, (SP}
PC. $DB20

‘ADD THE BASE ADDRESS
:CONVERT IT

hSOPERC,-(SP)

PC ' SSUPRS
,LINZT

$§TOTAL(RO), - (SP}

PC,LINDEC

:TO STARCK

'PRINT IT
i TOTAL ERRORS

:TO STACK

:TYPE IT'IN DECIMAL

WRDS READ: XXXXXXX*

RPO4/S/6 MLT-DR LGC

ggmc.#u

MACY11l 30(1048)
ERR OR

11:03

JO8

PRGE 101

SEC 0100

MESSAGE GENERATION ROUTINES
DISPLY

0S1277

MOV

LIN?X

337?29?"‘59’

ER,
FLi
.sc&kf

RS
'

18
=

:BR _IF NOT
:SWITCH 15 HALT

SCRLF

kSW1S, ASWR

18:

:ADDRESS OF LOW WORD ON STACK

CONVERT
is ERINT
READ’

33 (gg’-tsp)

157036

:;PRINT 'WRDS XFR’

:
S
3E0ER
P&’
LAg?R |
PC

; 'BITS
:LOW WORD ADDRESS

;SEE_IF "HALT ON ERROR’ - SWITCH 1S

;PRINT LINE 7R OF _ERROR _MESSAGE

TOTAL MISPOS ERR = XXX

XX
RS
: XXX
; ' ORDE

TOTAL SEEKS=XXXXX

LINE7R: DISPLY

bSOPERC.-(SP)

;ORDER COUNT INCREMENT

LiN7P
kSPOSIT,-(SP)

1" TOTAL SEEKS = '
;TOTAL SEEKS
DEVICE TABLE ADDRESS
'CONVERT_THE SEEK COUNT
:PRINT IT
;' "TOTAL naspos ERR = °

&S*S\JVU‘ b

MOV

LIN70

ng.csw:
PC, $DB2D
PC’ SSUPRS

, (5P)

PC. $DB2D

PC . SSUPRS

LIN?H

TOTAL SKI,OCYL ERR = XXX*

: *ORDERS = '

§£
;
! CONVERT _THE
iPRINT

IT_

DRESS
COUNT

gn SPO(RO),-(SP)" _; TOTAL ?R ORS

C L;Noec

LiN7S
$SKI(RO) . -(SP)
PC,LINDEL
,SCRLF

N
Ll
£

€ 27

RO LR

N
o
o
o
o o

n
~N

1?“41”

Y
R

DTN EWN-0O)

nunniinIOUIOIAOUION

8300
240

022020

o—o—o—b-;b—»:no—t—;\—’u::
%%fi%%%g
T
Li
R
NEOE PN

5398

15-DEC-77 10:58

RRRRRRRMLM
RRRRRRMRRR
N RN

JOC0

15-DEC-77

SCRLF

kSW1S, ISWR

156716

13
o

198:

;TYPE IT

IN DECIMAL

TOTAL SKI,OCYL ERR = °
:CONVERT 8 PRINT IT
:TYPE IT IN DECIMAL

:SEE_IF HALT ON ERROR - SWITCH 15 SET

‘BR_IF NOT
'SWITCH 15 HALT

;PRINT LINE 8 OF THE FRROR MESSAGE
:'DIFFERENT ERROR DURING RETRY’
051330
020244

LINEB:

DISPLY

JSR

RTS

,LINSBM

AC,LINE2
PC

‘8SIEL TYPEOUT ROUTINE

:
:
:

MoV
JSR

RETURN

NUM, = (SP)
PC,LINOCT

:PRINT LINE 2 OF ERROR MESSAGE
:PUT THE NUMBER ON THE STACK

CZRIDCO,

RPOM/S/6 MLT-DR LGC

~ MACYLL 30CIQW6)

CZR JOC.P11

10:58

s:gg

oooooa30020

456
457

460

S4el

15-DEC-7
p22242 oxsgu;

SSZS
022256

Q22

02227

xas§;
2266
737
000005 022266
414

862515
02C7

IS-DEC-77

11:03

KO8

PACE 102

ERR OR MESSAGE GENERA xon ROUTINES
LINOCT: r}osx

MOV

18:

DISPLY

MOV

RTS

SEG 0101

g(SP)
-(SP)

con

aoggs § THE msr & ASCII DIGITS

gfinu

(spu (SP)

R IN
mopsnongcTaHou ON STACK

: v§ n&nsOF THE ASCII STRING

: ADDRESS

:CORRECT THE STACK
RET

LO8

APTR B0y MACY 1L D e e s dRcE Generat
1ON ROUTINES
@%&I}% ;gns

;

LINDEC:

%fig oaggngag
§§§§$ °‘S§69
8553{2

zgox

Rng%x"UT NUMBER TO DECIMAL AND TYPE IT WITH

%
3?;

;PUT THE NUMBER ON THE STACK

Pnt:“(;l(égé

TURN

MOV

SEG 0102

-(5P)
sm

sg
icg(SP)
:‘%P)o

STACK FOR CONVERT

s:r

ng sggfl%
wgofi
POINTE 2EROS SUPRESSED)
'RES STACK

;;llIlIllll'llllllllllllllifil!Ili!I'llIlllD.Qlliililll!lllllilill

.SBTTL

GENERAL SUPPORT SUBROUTINES
R

SRR

R R R

RN RS R R RN R R

R RRRRRR RN RA AR

gEnEREIiNT THE SECTOR-TRACK ADDRESS
MOV

;DPB ADDRESS

(SP) CONTAINS THE TRACK

2(SP) CONTAINS THE SECTOR

2314
852350

READDR: SUB

162706

16616 %
6066

MOV

-uSP) (SP)

CLR

23"'L

CLR

000004

c
AoV
MOVB
gsc

000004
% 000004
000002

2356 81
6
000022 000002
065433
85

1$:
16066 000243 000002 2s:
22:4‘% 600207
02241

MOVB
RTS

CREMENT THE STACK PQOINT
ADDR DOWN THE STACK
RETURN
%vsfi
K FOR SECTOR
g

SLE
:CLEAR STACK FOR TRACK
(RO),4(SP) ' ; INCREMEN ;o SECTOR ON STACK

; DEC NT THE SECTOR ADDRESS
22
SECTOROGRESS 10 S1010)
M
zp (SP)
ofiumm
acspi
rsscx
s ADDRESS
RF
E(SP

818.,2(SP)
C

NEG
sé oxon T0m)

RACK TO 1

omunm,z(sm : TRACK ADDRESS
; REYURN

B Be bt Bt e

Pt Bt e

nniunuiuniuuney
wnnuunaieuen

Vfl%fl&hflUhC£3

:ROUTINE TO CHECK FOR KWll-L OR KW1l-P CLOCKS

Qcguce

022440
2444
s«go
484

022460
0224e4

127

37
013701
012721

012711

CKCLK:

MOV

Eex

TST

CLR

CLR
MOV
MOV

MOV

--1
gum.c

CLOCK

SL AR CLOCK AVAILABILITY FLAG

sE AR"5&"’ CLOCK AVAILABILITY FLAG

ocxéu.x éemvsc

LKC

‘g

CTOR FOR CLOCK CHECK

uxiop

LKFLG

sE CLOCK AVAILABILITY FLAG

#CLOCK' (R1)+
#300, (R1)

PSN - PRI &

Pcboc
SLPVEC,R!

T KWll-P CLOCK FLAG
xu 1-P VECTOR
ADDRESS
UP KWI1-P VECTOR

CZRIDC.P11

15-0EC-77 10:58

gg W

MACY11 30(1046)

15-DEC-77

11:03

MO8

GENERAL SUPPORT SUBROUTINES

00131 126490

oooopy CFCEKA:

é;észgua&scsa $6270cC x'E"cE‘fb, 1608, "EoRt 1t
%
x ( 1)+

xu*x ‘} v:cr"R

EEE? xux‘x‘-t.

g.qv
CKCLK2:

P0Be

18:

HALT

CKCLK3:

ngg

JMP

CTOR

KiWll-L INTERRUPT

BeLk

18T

000004

SEG 0103

=§3
o

Hov

156430

PAGE 104

?&ggxz JWERRVEC “&%
ERRORAGECTOR
10 CHECK FOR Kiil-L

RPO4/S/6 MLT-DR LGC

#2893

CZRJDCO,

STAR

og,aoemvzc

iBSOR3

THE
STACK PQINTER
T CLoCR
AU 8& SR svsTEM"

; nonxron
UNDER
c
,

8221

.n:sr

THE ERROR VECTOR

E&unm T0 DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED
:

ggn

TURN

STATPR: MOV

TST
éxs.’g
ASL

“g

2?.53
655
§§§

§§§ Egg
22y
S672
gg%
855675

2264

1364

033320

727 fi:’;

001462

MOV

AS!

BITeE

g873
8275

0557
055706

0227

010046

§60‘."0

4737
00SGDY

KADR(RY) ,RO

: SAVE RO

3:«
gaxv;s ASSIGNED
YPSnfl:"fig?v:
xnoex
,cmmf*z
32‘DS
¢

-gEr

ATABIT(RY), RS?LSf

&x *S BLOCK RDDRESS

HIS DRIVE ASSIGNED ?

'ngpsnronmncs SUMMARY

MOV
RTS

(3P)+!RO

'RESTORE RO
;ns?um

:et JSR

RETURN

R
|
ngg{rpgsr

TYPEST:

MOV

RO, - (SP)

:SAVE

TSR
LR

PC} SHDTYP

IFYPE THE HEADING
'CLEAR RY FOR DRIVE NUMBER

:ROUTINE TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE

ggg
022676

saae;kLs?'P
$
:5'5'0""
RY
-(5P)

,SDETAL
'

8270

RO, -(SP)

ggg

2268
229
-4

18:

001740

PC,STATPR

1831'?

022724

Rq -(SP)

DPB ADDRESS
RO

SflE
R

Wflw

C gccohx ’fsfn&l;?',b“ —ory 30(1 su?»%‘:
'
m&uf?amc: gon
2

7 98338
116
?

£
27

gggé

34
23
gg

861
3]
5615

§§§

055730
774
gx

000036

RETURN

.87
PRIy
RE
JeR
}cm'

THE T
ATEprIORITY
¥$E
g

STATHD

;'i

RTS

MOV

#DRIVE,RY
soPB.Rb
Nov
RETURN

TR ADD
Y
MOV

TYPOS

BYT S

008570
35"70
052155
32

novMOV

JSR
JSR
oee’
MOV
JSR

032562
027300

3 gsfi
30;4
sseg
3070

000004
032562
027300

ADD
MOV
JSR
JSR

023076

052155

TYPE

562
5628
629

300
155

335004

3074
023102

BB
sSOPERC , R2
-(SP}
R4,

052155
000004

m: HEADER
;nzruau

YPE0

_WORD
ADD

i DP8 RODAESS
R

:FIRST 3-4
STATISTICAL
¥ rmo

YPE

.BYT

S61

ssx;

RS, TYPRIY
PC

EKYPEL THE PERFORMANCE SUMMARY DATE LINE

JSR
_WORD
TYPE
ADD
MOV
JSR
JSR

561
saxg

%& rfimxsncs

PC,SHOTYP

SHDTYP: J

::E

=3
g
8600 022
% 022756

261}
saxé

(uo:’n:q

E&PE THE HERDER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT

ggg
57
5
027430
74
24
gggo 022744 000207

2609

F R

022746

ASCII

E Enomc ZEROS
xc T(S)

Abee
cmm,-csp) $STREES THE PASS COUNT ON THE STACK
IT
;gbuvcm
$5820
Cc,
1 TYP
RS.REPLZ
3LineeP)
DIGITS
ON THE STACK
O'ngopsnc
:LNPEed
hg.-(
P .ag

I;MT

RS.REPLZ
&
LINSP
b4,
R2
R2.-(SP)
PC, SDB2D
RS.REPLZ

RC
;T;:E
T
& DIGITS
;
S
;: r«f~ MENT
R2
SIT ON THE STACK
:CONVERT IT
$POSIT
1

ag.-(gm

PUT

&b4,
1nsp
R2

P 30 20
RS.REPLZ
10
LinsP
k4, R2

i: LXPEee
DIGITS
NCREMENT R2

mms ON THE STACK

:CONVERT STRANS
;rvgs 17
:TYPE
10 DIGITS
: SPACES
: INCREMENT R2

SEQ 010

AL SUBPORT sueaéuf?

PAGE

%25889911 XS-DE

m%mm%
P

ERKE £5RRINS TR

R2, =(

333E‘QN&M‘L‘M 5

SbuB

S6S0
S6S1

S6b4
S665
5666
Seb?
S6E
59
SE70

SE71
Se72
Se73
SE74
Se75

s ePt s Pt Pt Pt Pt P P

DIGITS

s B

;r u ocxrs

ON THE STACK

:Tz:sR

I ON THE STACK

:iz:s
gl

SPO ouorus STACK

$E°“’?“

et
; “h g#ng nynacn
OF oruen ERRORS
:
iuano TOTAL

,ggrmct
SK1 raon
$TOTAL
s
SUBTRACT 8"1
rnon $TOTAL

; CONVERT *OTHER’
(TYPE IT

COUNT

:TYPE 4 DIGITS

32
3274
3300
3302

;RESTORE Re

;ROUTINE TO INCREMENT SSCFT

§NOTE:
001264

Ss?g 853325

000060

ceec

ON THE STACK

BT
T

:=§
E THE srncx

023304

S679
St
B1
b82
See3
SEg+

SEC 0108

;PU

e e B

Seb4
SEYY
SEYS
Se
SeY

106

e B

(

R8RS

§at
£
W

S640

AL
A

¢
C

809

/’5/6

023322
023328

000060

INCSOF:

023417
18:

$SOFT WILL NOYT BE INCREMENTED BEYOND 9999 (10)
BADSEC

:SEE IF ano TRK/SEC xnoxcnron SET

2
PC

;ah IF IT IS

.an IF IT'S
18
1S ssorr
$SOFT(RO), #9999.
$SOFT(RO)

; RETURN

SET, DON'T INCREMENT COUNT
ALREADY AT MAXIMUM °

; INCREMENT $SOFT

;ROUTINE 7O INCREMENT SHARD

§NOTE:

$HARD WILL NOT BE INCREMENTED BEYOND 9999 (10!

CZRJDCO,

RPON-/S/6 flLT-Dfl LGLe

CZRIDC.P11
5686
6687

15-DEC-77 10:5

023330

T
2637 Do3ue
gggs

0233s2

00S737

000207

MACY1l 30(1046)

INCHRD:

023417

18:

8696
5697

ssgg
3900

5701
5702
5703
§704

§70S
5706
§707
§7
5709

3354
737 001264
3360 %?oos

023362
023370
023372
023376

026027
103002
0

000064

gss rxggg TR¥/:§8N
}cn;

‘HGRD(RO),OQQQQ

?:35 iaan0(noz
PC

RTS

snna gfnt Y AT A% "E" coun

BA " ITI’WCREMENT S$HARD

;RETURN '

INCSKI:

TST
BNE

CMP

BHIS

INC
RTS

snossc

.ses xr
F 1

.éa IF IT IS

SSKI(RO) #9999,
;sxxcROJ

mx/sec moxcmon SET
T INCREMENT COUNT

xs ssxx nLnenbvRT MAXIMUM7

: RETURN

: INCREMENT $SKI

;ROUTINE TO INCREMENT SMISPO

16
023422

000207

iNOTE:

S$MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCMIS:

TST
BNE

BADSEC
1S

INC
RTS

§MISPO(RD)
PC

023417

D000BE

18:

85?5

E éF ?flg TRK/S C INOICQTOR SET
SET
INCREMENT COUNT

ISPO(RO), neeee }; ?flI?PO nLnenov AT MAXIMUM 7
,RETURN

: INCREMENT SMISPO

;ROUTINE TO INCREMENT STOTAL

853353

8355 7

001264

:NOTE:

STOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCTOT:

TST
BNE

BADSEC
18

SEE
xr

anxs

&’

:BR'IF IT IS

023417

2758 DSIMME 000Ses

€729

LCo00se

£730

£731

5;33
737 001210
8733
B83uQ 9857%2
5735
02345e
103;01
001165
%
pne
g Dol
E;gg
023472
023504

18:

CMP

INC
RTS

STIME:

TOTAL (RO)
PC

CkKFLG

MOV

CRLF

003337

027300

012746

001270

MOY

TYPE

;sRETURN

INCREMENT S$TOTAL

TIME

TST

BNE
TYPE

rnx/ssc Inoxcnton SET
INCREMENT COUNT

$TOTAL (RO), #9999, IS sroan n(nsnov AT MAXIMUM 7

;ROUTINE TO TYPE THE

JSR
JSR
.WORD

5740 853308 ?8448? 053207
€741

828

agossc

SEG Cli0e

S$SKI WILL NOT BE INCREMENTED BEYOND 9999 (10)

15:

5718
§71
§720
§721

5722
% 3

TST

PAGE 107

NOTE:
023417

000064

L B o o
£717

Cc09

;ROUTINE TO INCREMENT $SKI

sgio
7 001264
8515 BS348% 8833

£715
5716

11:03

GENERAL SUPPORT SUBROUTINES

001264

—
000062

15-DEC-77

houn -(SP)

; CLOCK Og THE SYSTEM ?

:BR IF
,CR-LF

:PUT "HOURS’ ON THE STACK

PC, $582D
RS, REPLZ
2

couvsn TO DECIMAL
YPE IT
TYP 2 DIGITS

AINUTE, - (SP)

,PUT *MINUTES® ON THE STACK

COLON

219

s;us

égguox

3207

JSR

Ecgflgé-(SP)

1578

537 027300

18:

00020

023656
0236b2
0236g4
023672
023679
023702
023706

005737
001411
023737
001005
012737
00S037
000002

001410

ooi412

ggTRVL INTRVL+2

177777
00i412

001214

#-1,STATIN
c%:

5788

€789
€790
€74]
€792
€793
€794
€785
€795
€767

owm
om
|=

=0
mD

"85ah
%g
"3

o
-0

pr]

b 4

]

8.—1
S
[Ty

flCK

Irx

MER_ROUTINE
HE PERFORMANCE SUMMARY ?

AY INTERVRL FINISHED ?

ERFORHRNCE SUMMARY DISPLAY FLAG
THE PERFORMANCE INTERVAL COUNTER

; COMMAND DECODE ROUTINE
CRLL

£782
€783
£784
E78E

INTRVL+2

TE'S COUNTER

O}
-'01.0

18:

INTERVAL

:dié

5
2577 BRi
Bs3ees e
005733 mues
037660

ro——

ooiaro

'S COUNTER
MANCE SUHHQRY

—

001266

005037

2763
05
82353,
001593
5768
023640
103002

oag

MDD
x

001270

MINUT

SECOND
INTRVL+2

COND COUNTER
NTED

'U"lf‘

0cia7e

HZ¢SIXTEE
SECOND
:gfl.,SECOND

P
4

001274

SIXTEE
18

3
RSye 3 gm353 gehT
A
AoA
3
32z gz
A=Zh%

2737 goi272

DEC
B

1 73? 001212

CLOCK:

XX o R
e
2763 053680 06101
5772
§773
§774
§775
8776
€777
§778
2779
£780
£781

TYPE 2 DIGITS

853§sa

2789 o324 0
e mrn
By mi
5765

’Snvéi$° CamaL oK

g;g

. WORD

RTS

RS,REPLZ

;CONVERT TO DECIMAL

;TY E éT
TYPE
DIGITS

;:CLOCK HANDLER ROUTINE

PC, $5820

RS EPLZ

BuE BAOr B3

g%%

(02354
023544

027770

§749
5750

oaasag

737

000

2748
5748

¢3 857300

DOUVIDOmMO
M MDD

g?w

MOV

#-1,CFLAG

JSR

PC,KSR

RETURN1
RETURN2

033710

023714
023716
(023722
(0237
02327
(023734
(023740
023742
(023744

00S737

001003
005037
10
2737
1002
104401
000207
00OOGC
1041z

001440

KSR:

023742
000001
053320

TST

BNE
CLR
BR

RADD

023742

BNE

TYPE
RTS
. WORD

SAVREG

NORMALLY SET BY THE TTY SERVICE
INTERRUPT MODE
Y RRETU

ER KEYBORRD SERVICED

ORDERQ
18
3$
K SR1
8 1,3%
$
BUSY

pC
0

RNY

LEQR T

KEYBORRD REQUEST
H%Hé 0

.COUNT

ACTIVE ?

QUNTER

TIMES THROUGH THE LOOP

'BR IF _NOT ENOUGH
SY
; 'SYSTEM BU

PROCESS ANY COMPLETED DRIVES
:LOOP COUNTER
{SAVE THE REGISTERS

(&)
~

[

(%]

11:03 PAGE 108
GENERAL SUPPORT SUBROUTINES

15-DEC-77 10:58

15-DEC-77

CZRIDC.P11

MACY11 30(1046)

RPO4/S.6 MLT-DR LGC

CZRIDCO,

[

AL A ALY
SESEEOEES2 RHSeREg38 88
$e80oD
ARW C R

RPO4/S/6 &T-?R bGC
P11
1S-DEC-7 10:58

D23746

012737

3760

737

85g7su

85“;?3

001262

égsxss

737

001262

109401
9l
1

0240'0
8530Au
016
024022
gs:nsa

88&355
0S
122715
1419
121527
101054
121557

024032

g2
024054
0 4

10345)

142715
2765
100
737

2
122765
1ggg

177777

000127

177777

48:

000001

155012

122765
(001003
004737
000402
104401
104413

000122

024196

00S777

177777

5S%:

025152
053011

154754

000100
177776

:TYPE

TYPE
ROL IN

LENTCOM

6%:
7§:
154744

cFLAd
astke

;CLsnn THE 'CONTROL C' FLAG
THE TIME

:CLEAR

ANY GARBAGE IN THE TTY BUFFER

(SP)+,RS

;'Enrsnugonnauos'
{READ THE
KEYBOARD
‘GET
SS OF INPUT STRING

78
RS
#’A, (RS)
18
(R5),8'7
X
(RS),#’0

{EXIT IF "CONTROL C’ ENTERED
:POINT TO SECOND CHARRACTER
‘EQ TO AN A’
iBR IF IT
:DRIVE
R GREATER THAN AN ASCII 7 7
iBR IF IT IS
;gngg
R LESS THAN AN ASCII 0 2

#1C7, (RS)
#'T,-1(RS)

:LEAVE ONLY LOWER 3 BITS IF CHAR NOT
‘EQ TO 'T’
:BR IF NOT EQ

CFLAG

CHECK

‘BR

JSR

PC, NEWASN

gga

;g.oenscn

;55? SIGN DRIVE

CMPB
BNE
JSR

#’S,-1(RS)
4%
PC, SCMND

‘EQ 10 'S’
:BR IF NOT EQ
:TYPE STATISTICS

BR
CMPB
BNE

78
#'D,-1(RS)
3s

BR
CMPB
BNE
BIT
BNE

7$
#'W,-1(RS)
3
#SW0, ISWR
X3

PC, DATAPK

122715

000101

024212

001430

024216

012737

0S2231

026436

024230

136437

033320

001462

024214
024224

02423

111504

012703
001013

000001

'ASSIGN DRIVE FOR TEST

(EXIT
:EQ TO 'D’ ?
;gn
F NOT EQ

TEXIT
'EQ TO W’
iBR IF NOT
:1S SWITCH O SET 7
'BR IF SET,
CAN'T DO

iWRITE A DATA PACK

#'R,-1(RS)
63
PC, REDAPK
78
, INVLD

:EQ TO 'R’ ?
‘BR 5r NOT EG
'READ
A DATA PACK
TEXIT
;rvp; * INVALID COMMAND'
RES
RO RS

TST

astkB

:CLEAR THE TTY BUFFER

AOD
BIS
CLR
RTS

82, (SP)

sBITOR, 3$TKS
PS
PC

ASSIGN:

CMPB

ASGNl:

MOVB

COMMAND

TEXIT

CMPB
BNE
JSR
BR
TYPE
RESREG

MESSAGE

: INCREMENT THE RETURN ADDRESS

:SET TTY INTERRUPT ENABLE
:SET PRIORITY BACK TO ZERO
:RETURN

;ROUTINE TO PROCESS THE ARSSIGN REQUEST

024206

CONTROL C FLAG

BLO

BICB
CMPB
BNE

JSR

G24162 65271& 000002
0S2777
00S037
000207

2%:

024670

024136
024144
024146
024152
024154
024160

024172
024200
024204

18:

3%:

025140

PC,STIME

BNE
INC
CMPB
BEG
CMPB
BHI
CMPB

177777

004737

JSR

TST

024552

000104

:SET PRIORITY TO 4

1ST

177777

SEQ 0108

#PRY , PS

CLR

000060

000123

000411

MOV

000067

122765
001003
004733

134

177776

GENERAL

000101

024562

0004
122765
835007
777
001012

lf;-DE(%-??
11:03
PAGE 109
SUPPORT
SUBROUTINES

3033

177770
000124

EOS

MACY11l 30(1046)

023450

024072
024100
gs:xoe
106
024110
024116
024120
024126

85:130

000200

037

3
35“77"
k

U
@
(=]
~

o B

OO0

(’'T’,

'R’,

#’A, (RS)

;ASSIGN ALL DRIVES?

(RS) , R4

‘PUT DRIVE # IN R4

81, R3

:RELORD R3 FOR 1 UNIT

:BR'IF

'W’'

COMMANDS)

ASGA2

MOV

#UNTASN,ASNMSG ; 'DRIVE ARSSIGNED’ MESSAGE RDDRESS

EITB

ATABIT(RY),ASNLSY

MOV

BNE

iBR _IF ALL DRIVES

;DRIVE ALRERDY ASSIGNED ?
IT

'R’

T O Re okt 7715758
E 1 RPOY/
EERTBJOC.
LGC_

CZRIDCO,

ssss

sei.;gEEE

§S§a
5859
S%sasol

5862

oauawo

oosm;

8?% 7

026416

g;s

749

o
6813
004737 024346
122737 000011

000001
2864
000007
1
ig xéfi
5865
sasm? 853315 W
xa7g; 000010
5868 gs:gsg
ggs_}g

2870

gs:gg

0047

137

1ST

6436

o 18:
2s:

000041

024346
024336

15-DEC-77

RASGN2:

n'!ovE

ngvg

S&PB

18:

MOV
33"
CLR
MOV

38:

ggg

2%:

%;9 02.,03"“35235" : 7;; 033316
€880
2881

024374
gg::g

&gq?'?
737
105764
?00633;

044730
015244
033204

18:

JSR

ggz

MOVB
JSR
15718
Efi?

ASL

024404 006304
5883
5884 024406 016464 001740 001506

MOV

5885 024414 016400 001740

MOV

ggxa
ggqa 8533% 613750 001216 000026 iy
ASGN4: DEC
024464 00S303
5895
6896 02446k 001402
BEQ
£897 oe-w?g oos;oq
INC
5898
Q024472
00072S
BR
ASGNS: ggg
geqe oawgg 062716 000004
€305

86 737 052334 025436 RASGNE: 59},'
ASGN7: QEEB
5?*"“ 033214
001

ggg; oa:g 35 86533; 052257 026436
€908
£308

Q024832 Dle737
0127237 052300 026436
26436
D2us3s

fli:

sNOTAVL , ASNMSG

gghena

wL4l

$1.RYo;,R3
#8. R3
;g

PC,ASGN3

1§
1§:

BPL
SSV

33
MOV

SEG 0109

;varrqc Ncr)g ASSIGN DRIVE O

E' ncss

ADDRESS

6 0EVT

1SHEHE%020 ot
s TM
SEynkouég
ss;
r:a: xr DRIVE NOT AVAIL
iR
‘léa

Nsnon AN RPO4/5/6 7

iRSSI

L UNASSIGNED,

DRI ; &uvss
'START WITH
FOR o%r
;senTp
DRIVE8 3
;g%fi CWITH
FOR
OUNT
;ong
5324&‘ NOT ON SYSTEM

AVRIL DRIVES

At nsm.s‘rm;
UL
ST sxacgnsnov
SORETS.
I T St
?
ASSIGNED
r”fi
n?namm)

?;uu

""-,%E"D
PC . RECAL
oaOsmmm

gggrlrmm?'rnssn UNDER WAY ?

:DRIVE wn
iRECALI
E DRIVE
;onxv; nvn\x'tngksv
LINE OR NONEXISTENT
I
iBR I

’angxérm %o uo%smoex

xnomnu) NEWUNT (RY)

?gmon ) RO

opEE
.
§§S
Pc
G
c?m
u $PASSC(RO)
MOV

ELE RUy737 Kl
=5
£888 0244
02564
£889
024434
0047
3535351 000070
12760
5830 gs::uo

gem : 0
gqoitg oa:sx

11:03

5&1'“
SE"SB
PC,ASGN3
JSR

2075 oew%
Goudns 006133
OoudEd 001462 RASGN3:
48
N
g'xéa
1 13-4; 033320
%;g

se;g oaua%
58
0243

S
FO
PA

11:03 PAGE 110
S-DEC-77 SUBROUTINES
GE NERAL SUPPORT

MACY11 30(1046)

,PUT ng(.ocx'sADDRESS
ADDR INTO RO

:
: ¥°Raao
c?gé RDDRESSES
1
T PASS COUNT T0O
;P

sgcx,spacxmm ;%;ngo/m\x&e DATA PACK INDICATOR
: DECRE N?RII)RIVE cgfifisr-’
R3
ASGNS
:BR IF FINISHED
RY4
: INCREMENT DRIVE NUMBER
ASGN3
EéomfnucNT RETURN
: 'xag%emm
;g,(SP)
grgorsnr,asmsc gég;sugzs' MESSAGE ADDRESS
Egsx\{g PsESENT"
tlangpmq)
23

gomP.nsnnsc

520 T PRS, ASNMSG

IF DRIVE OFFLIN
OF 'NOT npsu/S/s' MSG
ggg@sss
;§an

OF ’ *NOT PRESENT' * MSGMSG
;ggggsss
:

ety

£2

555 £2288 etVEREORo8BRENEN¥ R-—fiam NN EWh-0O

nnaunuuuauaidniucian auadviauiuuin o NNNNNINNNNNNINNININIAINNIUNINIUNUIVY
vy
WD DD
WD DO
0
DODHOOOOODD
m
v
(UF SN
OO
LW~-0uWw
wh

GOS

RPOY-S/6 MLT-DR LGC
i1
15-DEC-77 10:58

MACY11 30(1046)
xs-ozg
3 PAGE 111
GENERAL SUPPOR sueaour NES

Q24542

026436

024550

012737

000207

0S2166

2%:
:*T"

024552

024556

005037

000137

001216

COMMAND

JMP

SUNTOFF ,ASNMSG

PACK

ASSIGN

95?7
12703 000001
Bsug7s
9747
gsws
111504

v
oy
MOV

sBITOO,R3

gs:sos

BEQ

10
024616
4626

024630

DEASGN:

000101

136437 033320 001462 1$:

001414

146437
006304

033320

001462

01548: 001740 001464

0062

303

024632
024634

1412
oos;gwo

024644

001771

024646
024bSH

024

D24662
024666

012737
004737

052207
026416

012703
0007494

000010

000207

670
€72
4676

00S004
122715
001421

4712

006304

024700

111504

024714
024;53

016400
004783

DEC

;ANY MORE DRIVES ?

#'A, (RS)

:DERSSIGN ALL DRIVES ?

#8.,R3
18

CLR
CMPB
BEQ

nraaircnq) nsNLs?
ENOT
IF DRIVE ASSIGNED
5’
an

MOV
ggn

BLKADR(RY) ,R0
gg,rvpzsr

RDO OF BLOCK
r;?g DRIVE STATISTICS

MOV
JSR
DEC

000464
Q04737

ER
JER

024762

024764
024766

001371

MOV

4§:

onxvs NUMBER

‘MAKE

SUNTNOT ,ASNMSG Esoon ERROR
OF 'NOTMESSAGE
ASSIGNED' MSG
onxv

nvnéxrlnqy nsuLst

INC

BNE

DRIVE ADDR INTO WORD INDEX

PC, ASNERR

BITE
ENE

022614

:SET UNIT COUNT TO 8

BITE
BEG

005303

00E204

MESSAGE

PALL srnrxsrxcs *
R IF

033320 001462 3%:

RY
#'A, (RS)
zs

001004

ggw

2%:

iBR IF YES

MOV
BR

024754

7496 1364

000010

iBR IF NOT

SUNTNOT,ASNMSG ; ADDR or 'NOT ASSIGNED'
PC, ASNERR
;REPORT IT

000476

05579;

43
li'l;l

:PUT ADDRESS IN DERSSIGN LIST

MOV
JSR

024740

Ss:me

F NOT

ngnon(nu).DUNITIRY)

ASL

4726 315;37
052207 026436 18:
004737 026416

0247

IVE ASSIGNED ?

MOV

MOVB

001740
022676

(RS)

COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY)

SCMND:

024702 001406
136437 033320 001462
85471

sr R3 FSon ONE UNIT
E
03E NUMBER

nraaxrtau) asnLst ;DELETE THE onxvs FROM THE ASSIGNED LIST
:MAKE ADDR INTOA WORD INDEX

RTS

5§:

enssxcn ALL DRIVES

BICB
ASL

CMPB

4§:

'R, (RS)

ATRBET (RW), nsNLs?

BEG

026436

000101

:GO TO THE ASSIGN ROUTINE

BIT

BEG
INC

3s:

:*S*

CHMPB

ASR

2s:

853233 122715 000101

;CLEAR 'W’ COMMAND INDICATOR

COMMAND (ROUTINE TO DEASSIGN A DRIVE)

122715

;ADDRESS OF 'DRIVE OFFLINE' MESSAGE

{ERROR RETURN

(ROUTINE TO ASSIGN A DRIVE)

CLR

024SeM

00S004

RTS

NEWASN: CLR

024206

:"D*

024562

MOV

38:

SEG 0110

4§
R3

33
PC,STATPR

COUNT

E xr DRIVE RSSIGNED

6Ncnsgsur
onxv
ECR

noonsss

NONE nssxncso RE TURN
:TYPE ALL STATISTICS

CZRJDCO,

RPO4/S/6 MLT-DR LGC

CZRIDC.P11
1S-DEC-77 10:58
~
477
7 oo1220

MACY11 30(1046)

15-DEC-77

; ?556
236
118:
01232
“ i 0?384
gg;tln
104401 O
97,
375 025026
85818 1044
184dBi; 053244
B3is%s
128:
€974
7 042114 025108
gg;z 853835
]

TYP
gggs
TYP
IYPE
TYPE
EEX

2378 Bsafds
0S20uE A3%ui?
°‘3383 ggggég 001462 5% B
"°¥a
2378
MOV
025056 010446
23
sqgé
025060 104403
TYPOS
.BYTE
002
§983 025062
gggg

852&3

§986

025070

§930
£99]
€992

Y4
1
683086
853182
(025110 104401 001165

104401

105777

000012

108:
6%

it
fil
S5
£§995 (025120 062737 000304 025106
8521%3

€998

(025132

233

025136

883 8:
104401

000207

O0O011&S

8%:

9s:

:SEE _IF 'DATE' ENTERED

ENTERED
EHERATOR
! THEEI}FNOOPET
8“ £
ENTERED
I1.D. DATE
RATOR
Eg
bpgnm
: "OPERATOR I1.D.: '
, IDI
'OPERID
TR
OPERATOR 1 D.
m&n INE
ucou
gonxvemsonvm "‘oflivsxgokgs FIELD ADDRESS
.

nmémn«n
nsm.sfcTBR’TTER
ASSIGNED
FCNOTF ROSIGNED
%
;190

‘BYTE

e
O

53 TY
i

1STB

RHI;EOR mr;ssegm

££co Vgg--OCTRL
ASCII
glGéT(S)

ADING ZEROS

L INYSP

mhe.
a;
TYP
.WORD

103 7;‘
O

ool
o BERES 10- PRESET

ADD
ggc

: INCREMENT HE MESSAGE FIELD ADDRESS
éucnfnem DRIVE ADDRESS

$CRLF

;CR-LF

TYPE

RTS

sognug 025140 012737 177777 001216 DATAPK: MOV
025146

000137

024206

JMP

6006

SCRLF

B$SRPEC2+2, 6%
PC

: SEE ;F
onxve 1.0. ENTERED

r
o?nfinxvé1.0. FIELD HERE
Sss

BTy o

#-1,PACK

RsSiGN

:SET THE "W’ COMMAND INDICATOR
:ASSIGN REQUESTED DRIVE

:*R’ COMMAND (ROUTINE TO READ A DATA PACK)

2385
£009

SEQ Olil

"W’ COMMAND (ROUTINE TO WRITE A DATA PACK)

%oox

2883

PAGE 112

R4, -(SP)

TYPE

052153

BH
e KGR
£3989 oesw?g
000305 ——

ggg

11:03

GENERAL SUPPORT SUBROUTINES
1STB
omz

025152

012737

00000]

ggi? 02€160 038137 024206

001216

REDAPK: MOV

JMP

ASSIGN

81, PACK

:SET THE 'READ’ INDICATOR

JSR

PC C[ f.RDPB

:DPB ADDRESS

MOV
MOV
MOV

R3,-(SP)
R4, -(SP)
RS,-(S P)

: ;PUSH R3 ON STACK
; ;PUSH RY ON STRCK
$:PUSH RS ON STACK

'ASSIGN THE REQUESTED DRIVE

ggig

goupnz T0 CLEAR THE DPB FOR THE ASSIGNED DRIVE

e014

nov

Egig

RETURN

8015

018

€019
6020
g2l

02S1e4

02€164
Q2Siee
0e2€170

010346
Ol1044&
01 0S4t

CLRDPB:

gfl LGC
10:58

npowfs

fie

c:n:oco

CZRIDC.P11

1S-DEC-77 11:03 PAGE 113
MACY11l 30(1046)
GENERAL SUPPORT SUBROUTINES

£955
882178 Bid2
02
127 388505
8024 Sggaoo
88?883
852582
2352
001375
10
8027
000002
7
1
6028
000070
12703
1
6029
6030
5«
so&x

632 03

000002

6036

152793

000002

2s:

035 oesagg
2304 000014
6034
0252
855703
000162
6035
2 00S024

3s:

2833
0?5350 001434
6039 025252
025260 613701
001434 000024

001760 000002
116160
040
6041 025264
025
113760
001432 000030
106360 000030
O
B042

6043

025304

oxa7§8

BOYS

gsgggg

460
557@0

6044

025312

001436

000020

0004
000400

000022

881435

'3na

SuB

oa R3

ADD
MOV
CLR

;BB DREGET09'1.
ngr“gg¥ssgcn
BE _CLEARED
CLEARRED
5 10
n
;NUHBE
ES&EMEN#gf
L BR r T FINIS
THE 'REG’ RAOOR
;MO
roPAST CLERRED
L
;
.CL
an
MENT THE LOCN COUNTER
: DEC RE

PRST89:
PODRESE
L ¥o
IM BE CLEARRED
oiSPtca-nxnscc = BOVE,
NUHBER
5cns
c
*og
nsn:

HE couuten

5859
MOV
MOVB
MOVB
ASLB

TION CODE
ra#tnxxcoMnB(
ae
tTC(RO)
Par?snu
CODE
coflvs T CODE 7O A TABLE INDEX
$PATTCL

MOV

BEGS

BITB
BEQ
ADD

1, SCODE (RO)
'
%4, $SSEC(RO)

: HERDER ORDER 7
:BR IF NOT SIZE TO SECTOR SIZE
:ADD HEADER

MOV
MOV

(SP)+,RS
(SP)+.R4

; ;POP STACK INTO RS
;;POP STACK INTO RY

R3,-(SP)

;SAVE R3

NEG
MOV

ggcc
nL
onfinuo
88 gc ooe¢n0) *N%né
un&
oP CODE
coos

aecsi HROL(RO) ;BEGINNING
RECORD SIZE
DM(RO) :VALUE FOR DATA TRANSFER

SWRDM (
sMAKE IT xnrous's COMPLE
8256, SSSEC(RO)
s INITIAL VALUE
OF SECTOR SIZE

025332
025340
gsgggs

132760
001403
062760

6051

025350
025352

01260S
012604

012603
000207

MOV
(sp). R3
; POP srncx INTO R3
RTS
IRET
:ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR

025360

010346

DRVPRM: MOV

025354
02535¢

000024
000022

CLR
SuB

MOV

000004

9
Ry
?ngg
na
-; RY
8kexr-snsc.na

6047
6048
6049
6053
sosg

000001
000004

hoD
gox
DEC
BNE
ADD
MOV

SEQ Clliz

2829
6058

6059
8060
B0E]l
60be
8062
6064
6065
80B6
£067

6068

€070
8071

e072

£073

074

£07S
£07%
£077

025
025364
025370
025372
025376
025400

010446
005737
001035
104401
006204
0104496

025402
025404

104403
002

025406

104401

025405
025412
0254

025426
430

000

012737
132764

000042
053i0S

0S3576

R4, -(SP)
y2'
3%
ENTLMT
RY
R4, ~(SP)

TYPOS
.BYTE

.BYTE

TYPE

SLASH

'SAVE RY
RUNNING UNDER MONITOR CONTROL
:BR IF YES
:"ENTER_ADDRESSES'’
:CONVERT INDEX TO DRIVE NUMBER
:;SAVE R4 FOR TYPEOUT
.,Tvp;
DRIVE NUMBER
$3G
PE--OCTAL ASCII
:TYPE 2 DIGIT(S)

.,suppness LEADING ZEROS
77

052364
000001

025456
033214

MOV
BITB

kRPO4B, 28
ADDRESS OF 'RPO4’ MESSAGE
sB1T00,DRVTYP(RH’ : RPOY

012737

052371

025456

MOV

#RPO

001002
012737
108401

0S2376

025456

0061012

BNE

G436 132764 000002 033214

025444
028446
02t4c4

MOV
TST
BNE
TYPE
ASR
MOV

BITB
18:

BNE
MOY
TYPE

an IF vss

R'IF
YES
TYPE THE MESSAGE WHICH FOLLOWS

aaxrolonvrvpcnqi onsss
RPOS?OF 'RPOS’ MESSAGE
SRPOG, 2%

ADDRESS OF 'RPOE’ MESSAGE

J0C. P11

eo;g.

10:58

289329

1165

37Y4

6080
?g.gé
2&

soem?
2%
6030
609

soeé 353523

6033
6094 025564

16403
013

6095 %‘53 og7
5096

6097 gsswu 8}33;

6038

LGC

xs-ozc-

MACY1l 30(1046)

GENERAL SUPPORT SUBROUTINES

2s:

32 ggxaso
3214 3:

% 001350
000122 4$:
1
000106

000112
1 35%?8
114
344
120 000116

3756
1350 000002

5§:

026272

116060 %130
000010 6S:
615050
114 00001}

6103

012603

016060 000110 000012
025626
025634 012604
025636

6108

025642

025644
025650

sug

025656

111 025652
6114

B11S
au;
£117
£118
6119
6120
glal

£l23

gEl22

Elo4
£125
sxeg
6127

gl28
£l2§

£130
£131

Eigg

ncssac: ADDRESS
,cn-

E
naw CYLIMT
g;x,SFIRST(RD) ;
CYLIMT mxcvuno

ASL

CLR
MOV
CLR
MOV
CLR
MOV
MOV

KPU4/S
ANpT' RPOG

Mg
onvrvmms
02,CYLIMT

# Rgr 10rgm
STARTED
T TIME
INDER
IMUM CYL

cv xuésg
cu.thg nnxm
YLIRO
ns
%”
(RO
TRK
m
TRKLM
mc
xnmm
Ltm
{RO)
MINTRK
gscron
IMUM
MAX
ORD
mxszcmo!
CLMT
s§
TOR
:C ; MIN
n§£
TABLEm~n R3
CYLIMT (han

CYLIMT oma

iSETUP T

: PARAMETER
CYL%
L

;

L%HI

ONTROL 7

MOV
MOV

ny«,;scmg).
SEC(RO)
;{rmim
MINTRK(RO)
.STRK(RO) ;INITIAL

JSR

MO
MOV

RTS

PARENT

Ss LAST CYLINDER
FOR

R k n;r FOR smn ING CYLINDER

CYL

R MONI

TST

BNE

:BR_IF YESDRIVE'S PARAMETERS

:GET THE

CTOR VALUE

TRACK VALUE

MINCYL(RO) .SCYL(RQ) ;: INITIAL CYLINDER VALUE
(SP)+,RY
;nesrbag RY
(5P)+.R3

:RESTORE

:RETURN

:ROUTINE TO GET THE DRIVE I.D. FROM THE OPERATOR

6109
6110

MOV
ggg
MOV

MOV

gigg 025640 000207
2i8§

MOV
géga

MOV

1350 000010

000042

6099
855491
6100
=
6101
6102

.WORD
TYPE

PAGE 114

649

010546

005737
gmas

000042

104401

053060

5037 001262
3

111016

; SAVE RS

CLR

CFLAG

;cu:m THE 'CONTROL

MOVB

(RO), (SP)

TYPE

CLR

42
2

smonv

Z(sP)

.unoen MONITOR CONTROL
:BR IF NOT
C* FLAG
:"ENTER DRV

CL AR T

THE

I.D.
? ACK

001262

121527

0000SE

CMPB

r..qs:,-'

:PERIOD ENTERED ?

112560
112660

000227
000230

025710

001361

714
7ie
025722
0257

001414
11
000224
112560
00022S
112660
0226

025742
02874

éxasao
01260S

000207

000231

BNE

2%:

iBR IF IT

826
MOVB
MOVB
MOVE

ag
:BR IF vz«;
(RS)+,$DRVID(RO) ' ;STORE THE I.D.
(Rsu.gonv 8+1m0)
;srons THE 1.D.
(RS)+. SORVID+2(RO) ;gron THE 1.D.

MOVB
MOV

(RS)+,$DRVID+S(RO) :STORE THE I.D.
(SP)+.RE
:RESTORE RS

MOVB
MOVB
RTS

(R5)+.SDRVID+3(RO)
(RS)+. $DRVID+H(RO)

;STORE THE I.D.
;STORE THE I.D.

RETURN

VE NUMBER ON THE STACK

ns DRIVE NUMBER
;
GITS
s
ss LGomc ZEROS
:CR“br
IREAD
THE ENT
:GET THE smnv noafisss
.'conmo.. C’' ENTERED ?

001165

02€7s0

RS, -(SP)

TST
BNE

2
O
, SCRLF
§p)+,RS
c

025671
025672
025676
g§7$
7

028732
0257

18:

MOV

TYPOS
.BYTE
‘BYTE
TYPE
ROLIN
MOV
TST

104403
002
000
104401
104411
865“?
737

025706

GETID:

RPO4/S/6 MLT-DR

JOS

[w)

JOCO,

11:03

1S-DEC-77

RPOY/S/6 ML

Bt Bt Bt Bt Bt Bt Bt Bt e ot ot Bt et Bt s Pt Pt et Pt Bt Pt s s ot et s ot et ot Pt ot sPt Pt et s Pt Pt Pt Pt P

s Pt Pt Pt et Pt Pt et Pt Pt

P11

1s-occ7

10:58

MACY11 30(10%) u&."‘?"’

11:03

KOS

SUBROUTINES

PAGE 115

SEQ 0119

%
779

GETADR:

1739 000042
; 82 262

109401
005046

146

148:

1 1013

1043

104 éx104401
001165
7& 8880%
1

G 00e
;m
056048

026044
4

852&3
026066

85237

124

00110k 000100
|poowe

6«703
4il
12601
??73{

000020

013702

3321

DO4S37

026240

1;3
1

026154
0261S5e
026162

iv;EE
MOV
MOV

o%soésc.m

RO, RY

BRE
SUB

15s
#6M4. ,RY

B
gng

BLee
12

MOV

CYLIMT,R2

2%:

027632

ROL IN

JSR

128

RS,CK.DIG

133
S
53
3%:

5%:

R2, (RY)

MOV

MOV
JSR
128

150

164

mku.m R2
RS, CK.DIG

6%:

000003

78:

MOVB

BR
MOVB
BR

R-o ?"03
TRCK
comaou ?

:gt;
’ §u
;ENTER

’ 3&m

SR,

STAR mf- ADDRESS

LRl
UuxmoTRBLE
:BR IF NOT
rssxgusg
tBROTE vee

:SET POINTER TO gccxmmc OF TABLE
:
R OF aogn: SES IN TABLE
cg

;7 T

2 ROM OPERATOR

r
TRO

;

;cgsx

ENTERED ?

nm OF INPUT

HE Rg;c T(S)

ONLY ENTERED

;rmmr

WITH
A =~

;

,rm 353 nfiog
mxs ADDRESS,

:CYL

of SS

: CARRIAGE

unn onu ENTERED

:
R #xmr mpuv
:CHECK THE ; 17

'CR' ENTERED

FERLR, Oy fVTE
;%snn NATED u{mA CARRIAGE RETURN

000002

e EoaL TED TReUT
TE
5*
WITH A CARRIAGE RETURN
: TERMINAT! § uirHA~

MOV

i3
Ve |

000441
110264
000421

: SOFg%?m
R—IN THE TRBLE TO PRESET
;nmn
%nnons
T
mca# NT

RDD

B
156
110264

osanr
k32. R3

001350

0261
13702
13;5
026130 80-4537 0276
144

; ;m '%a
iPU
VE uunasn ON THE STACK

é?mc
,ENTRDR

001262

10214

158:

:; ;PUSH R1 ON §TQCK

Z(SP)
(RQ), (SP)

1&)

R3,~-(SP)

CLR

(UP TO A MAX OF

ms (5P)

MOV

#16. ,R3
(SP)+,R1
crninc

010214

e
14

MOV
TST

Rl,-(SP)
Re,-(SP)

MOV
MOV
Efi}

Q6108
Os6590
85210'4 gfi?fi
gsgx
oesxas
110
0261l
026112

MOV
MO

—

(=]

;ROUTINE TO GET THE RDDRESSES OF ANY BAD SECTORS
b

moccceoeeoco oo e oo e
o o e
N O O O O O O O O T O OO O O O O gré
BIRREORC8SSRR R FRRRR A AR NN K A
Ge
m g

OO0

: TERMINATED WIT
R2,3(RY)

13%
R2,3(RY)
118

: TERMINATED ugm n "o
: TRACK ADDRES

{EXIT, ENTRY TERMINATED BY PERIOD
: TRACK ADODRESS
'FINISHED WITH THIS ADDRESS, 'CR® ENTERED

15-DE

Sor
M REAERRL slRRBRT
S0 ditTneo
s
8s:

MOVB

g
Ll

JSR

§§¢3fi¥"&a

t 016

32
3
:

Bses7s

001262

026300 012337 (026310
x

CALL

MOV
JSR

Angercil ¢
13:

;83

e
15
01
316
01159

OV
MOV
MOV

TZ 2(RY)
Re,2(RY)

TH
A

FEX T,

ENTRY TERMINTED BY PERICD

2s’
-1, (RY)
b-1i2(RY)

FIC
PENT THE TABLE POINTER
ONT
CLEAR ggs NT TRBLE ENTRY
!
NT TRBLE ENTRY
;cEEnn

;

&
i

INTG R3
STACK furo
:13008
1 POP grggn
R2
INTO RI

138

(SP)+,R1

= 4
O

TST

oo0l2e2

JSR

027632

364

1€
Y&

3,-(SP)
AG

: "INVALID

TRY AGRIN

ENTRY’

1:pOP STACK
:RETURN

(SP)+,R1
CFLAG
=})
RS,CK.DIG

;
ADDRESS

THE

TER rneLE Aooaess

$RBL

THE

FLAG

Bl %m“«g*e

;

.aoo

TER

VALUE

TEXT

TER

OF PARAMETER
NT VALUE OF THE PRRAMETER

.II’PUT §CI§ TRING RDDRESS
'CONTRO% C'

ENTERED
*

Cgégoki%z;?ch
URN ONLY ENTERED
é

gNTERE

; ILLEGAL INPU

MOV
BR

;C ? VALUE
YYPE THE C

T RM TED HITH A CARRIAGE RETURN
TERMINRTED WITH A *.*

b
cs

: PARAMETER T

IGET THE PAR

: MAX

£$

364
76

#ADR, R3

PC, PARENT

0S357¢

—

[

N+
o b pe

e OO

401

(=)
N

FEEREE

?&;
NTE%Y ENTERED

:PARAMETER ENTRY ROUTINE

T
REYY

§§§mxuc :

RRRR
AEESE
LS
ZORS DO NN LW
R RO ROR
SEYRREER-E

RTS

SEG 0118

TH A CWIQGE RETURN
TH

#4. R4

oooao%

116

RPOY/S/6

P11

SRRESESE53

oorororor
o oo oo

L 09

Re, (RS}
1%

TERH NATED WITH A “.*

VE NEW VALUE TO PARAMETER LOCATION

GET MORE PARAMETERS

ge3e7e

6s:

7\04

026414

JPPORT LlebliTNesTM
ot BENTRRL slBRORT
o 17
78:

0C1262

8s:

000207

sg.ge

ARENT

Esv

, (RS)

P o

TRY:

:DEC

;

NT THE TABLE POINTER

TRY

;u’c(urva.tz

LR
MOV

CFLAG

:CLEAR

RTS

(SP)+

;CORRECT THE STACK POINTER

ig)'”

s€0 0116
|

THE ’CONT
.
%&%}""
Snm"&ss = mkf?
ADDRESS

iRET

Em’fout RSSIGN/DERSSIGN ERROR MESSAGE

:
;

URE RRe

10446

MOV
gfl

SMESADR, ASNMSG ; ERROR MESSAGE ADDRESS
PC, ASNERR

MOV

M.—?gg)

TURN

v
;Ocmr
Té?g
ASNMSG: #850

e
o-w%
026434
A m s
RRR

LYY

RTS

Rfix‘r'& rmgur

1Y FYPE %z?%%s;n
ZER0S
%flég(
Et#
f?MS
MESSAZE. RODRESS

;gemnfsmn DRIVE IF A FATAL ERROR OCCURS

PC, DROP

DROP:

111

TURN

001462

TYP

ASR

gsggxa w-wog

5295

05e21s
026516

104401

saag oasses 000207
EE%

0O011€S

6300
£301

026S24
O02e€32

032777
00100&

000020

IT(RY)

;

:MAKE

DRIVE N.»Géfl T0 R4
VE DRIVE

:DRIVE NUMBER

RLF

B$CRLF

;PUT

FROM ASSIGNED LIST

DRIVE nug:n xm? A TABLE INDEX

:gggt'.:
DROPNG

RY,-(SP)

TYPE

152406

MOV

TYPO

;CLEAR RY FOR DRIVE NUMBER

ATABIT(RY) ,AsNLSt

TYPE

10446

(RO) ,RY

MOV

tfl; -5
WRGWAE

033320
e

464

Ll ol o

333

SR
S
A

CRRIBC
BT O Te-okt-77 abrse

DRIVE

DROP

LIS

'DROPPING DRIVE'

;7 ILfvt: .’

;;;evs "“,‘“&8‘"

;;go"vg':‘-- TAL ASCII

i
PPRESS LEADING ZEROS
&4

RTS
BC
;ROUTINE TO DERSSIGN DRIVE IF ERRORS BECOMES EXCESSIVE

ABNRML: BIT
BNE

#SWOY, ISWR
15

;SEE IF SWITCH 4 SET
‘BR IF IT'S SET

NOS

EIRIBE%. TP Seoolt 7P 6% TMY AR slBRORT Slenblithes . 1
001406

23'4

CcMP

0000Se

18:

MAXER,STOTAL(RO)

s€q 0117

;CHECK TOTAL ERROR V&\%

el S

GRS

;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST

001430

None

[Terefetefetederes

DO00SY 001374

0000S2

001372

000044

001400

000042 001376

gééss

1246

EOP:

EOP1:

gm.o

g AU MOV
A -|

wcgs

é% 026

104403

1246

MOV

001165

A
SC(RO),~-(SP)’W

(RO),UNIT

MOV

UNIT, -(SP)

TYPE
TYPOS

NUM

ADD
MOV
CLR
MOV

:83

2%:

un{r FOR w::our

:’
; nsg o

880035
1 g;’ifi §L§98:
12703
0010
sgu
? gggoe«
53:53
766 012604

gasg

s:gr AT END OF TEST

Q’CRLF

TYPE

18332

* NUMBER
qr T DRIVE
fan TCHTHE

;;PE

BYTE

RY. x5 &P)

OPERC , RY
(R4)+
(SP)+,RY

THAN mm

S FOR THE
?‘,“ngc,(
3
coum TO DECIMAL AND TYPE IT
RY

;,§n

£
RLF
mse bg,rvpe(spv.;;r

8527%

;

¢ ASSC(RO) , PASCNT

£ g@
i 1165
o440
7
£34 ;:é ; 735 Sgasrs
234

UNIT, -(SP)

TEW‘E

18:

ot?s;si
IT(RD), snosckBl?%

'END OF TEST’
:?“
:'DRIVE
#

60%01

€340
§§75
5 137496
401 052673
3 é
7
001246
£343
726 10440

K_COUNT
WSEE

,ENDTST
NUM

6331

!gXI*
i

TY:E
TY

1:335

W’ai

IT+2(R0O) ,E

osuofi.agm

g?o

104401 332573

BIT

026037 000070 001402

63
%7;ig
6338

ENDCON+2 ;é‘récxngu OF WORDS n;no COUNT
AD+2(RO),
2

;

13746

Sfl x?' msg DETERMINED BY SEEKS OR WORDS ?

LSkEERINSI’EIST
opéomo).znocoua“Clg;(:l(

1444 80020 152262

€

&ET

::90

gxlcsgm' ASCII

aomc
ZEROS
o

:i xvégflt
s’ FOR TYPEOUT
3 P BR e Vo YAl CRECTT

| ER L LR zemos
'sa rs: DRIVE'S STATISTICS

SCR

E SA

OF SECTIONS TO CLEAR
i
%v‘é&?f:nms
r(tsmaz c

Lgcnng 'maag “gggr):o

sckegg #oE
'n:s¥on£
R

;

CZRJDCO,

RPOM/S/6 MLT1S-DEC-7

30(1046)

000070

GENERAL su3985$
SUBROUT?fiss
MOV
)+
S
3:§sc
NC

001168

3s:

1675

CZRIDC.P11

033320
001464

MRCY11

CLEAR n« ron OR vs NUMBER

E DR :srnon ns

nrneir<n4) asuLsf

LIST

géb Ro58' DUNIT(RY) Rg
Tb§cx
uSh aoonzss xnroznopE Sgcx
CB

001482

SEG Cl11e

:REST
"3
THE PASS COUNT
;én%négsut

RLF

YPE

3559

PAGE 119

EOPX:

595

%gnTURN PCL,ngEH

;ggEIxNE TO GET THE REMAINDER OF THE RANDOM NUMBER

8882

032464
032462

MOV

R,RS

GETREM: MOV

MOV

JSR
MOV
ST
NOP
RTS

027054

;DIVISOR INTO RS
;REMAINDER IS IN RS

ONUM,
- (SP)

;

LINKDV
PC. ,=(SP)

JSR
MOV
MOV
RESREG
MOV
RTS

onNEOoO
no
LW

80*-0(:
TM L

Moy
EtS

(5P)+

NUMBER ON THE STACK FOR DIVIDE

T0 BE U

ss(sp>.ns
4

;ST

;o;v
:0

RO - RS

OR
WORD
BfVI32R

39(3P)'R3
:
5?

i UPLER o*uegso
DIVIDENDvxoeno
HORD REGISTERS
Ecfiggn

PC,M.DPID
RI.30(SP)
R3.32(5P)

ROUTINE
DIVIDE
;GO TO THE
;nenn*
ON T
TACK
:QUOTIENT ON THE STACK
:RESTORE RO - RS
;MOVE RETURN UP THE STRCK

(SP)+, (SP)

oxvxsxou UTILITY SUBROUTINE

u-ns:

R3=DIVIDEND

vxsoa

DIVISION

n RFTER
Re- Ré-ogg AFTER DIVISION

;

RO-Rl=

ENTE

PAR

TILITY SUBROUTINE
'SYSMAC' DIVIDE ROUTINE

;
:

00000

7
e
e

3Lo 28012

V
L
e e (|

TPUT ru:
DIVISOR ONTO THE STACK
gnuoon
:DIVIDE
xnro RS
nn}noen
THE
,zgr
IADJUST r
ING HALT
.ron

(SP)+,RS

CALLING SEQUE

LINKDV: SAVREG
MOV
CLR

;ST

:UPPER

INUM. -(SP)

LINK nogr§ns 10 T=E oxvxsgon
tou THE
HIS ROUTI

EUTRRRNTINNGR

BIRRE

oo
W

#334349ghaasaRRs

[eyeres

000

88%3‘%
A%y
SERRYF
T

;;

H an

PC,.M.DPID

000040

#1.DP1D: MOV

owo,-c P)

000002

MOV
NEG
NEG

ns -(5P)
E(SP)
ISP

MOV

2(SP)

: COUNTER FOR DIVISION CYCLES

iHIGH ORDER

;LOW ORDER DIVISOR TO THE STACK
:FORM NEGATIVE
:VERSION OF THE DIVISOR

CZRIDCO, RPOY/S/6 MLT-DR
LGC
CZRIDC.P11
1s-occ-79“ xfi:se

B41N 027140 00Se66 000002
41

7194

6418
64

s:i
B4

6421

Z}ES

suSu 8531%
g42s 027172
:gz

g;xfl

SBC

753
1

BCS
Sba
ROL

ROL

415

410

B429 027204 005516
44

15-DEC1;
PRGE 120
csugg& suis»BS?
suan&ur?fics

M.DP40:

MACY1l 30(1046)

7184 1

ClO

BEQ
g

ADC

)

000004

2(SP)

BP. 1

ISP

“‘85’ RO: ¢~
M.

BCS

64
Luy

g;g“

00
1

86
cLC

E449

027

6448

027256

szgo

7064

g463
E464

027270
027279
027276

BuS]
g452

006103

ADD

706

000010

062706
000262
000207

000006

a RO

M.DPY44: ROL

ADD
cLV

RYS
M.DPSO: ADD
SEV
RTS

UP FOR NEXT TIME

;ADD -(DIVISOR)
:SET "CARRY"

DPY2

M. DP44

ROR

103404

5 1

gSP
;=)
L4
Mepy St
B8P

027244

027246

'CLEAR

‘Tm?
aéo
BEC
BT

BY43

ku“s

:IF NO “CARRY"” THEN ADD ELSE SUBTRACT

gg_"m o

B44

s TEST “CARRY"” INDICATOR

JsP

M.DPY1

5:w% g;gg
7
;12
@61
40 %;g:g
057574 %
%2 000006
B

388

CARRY THEN OVERFLOW HAS OCCURPED
:IF
!THIS IS A LONGER LASTING CARRY BIT

e i L T
SP

@bfl

;PERFORM THE INITIAL SUBTRACTION

n.gssb
-(SP)

E433
027816 00SS00
ug
4

SEG 0119

ADD +(DIVISOR)

iSET "CARRY"

;$E;T~$“FERY~
¥
x*
ZERO FB:SQYTE_INDICATOR
515
OTER
%8 oo
BRANEH-TF P MORE
IDR

gg,m

R4.Po
R3

$10,5P

;ADJUST STACK BY 4 WORDS

PC
%6, SP
PC

g:gg
E4E9
E460
E:fié

;gggzm&: T0 REPLACE LFADING ZEROS IN A NUMERIC STRING WITH SPACES
MOV
JSR
"WORD

#ADR, - (SP)
N

Eued Dor308 O01294e 000012
E4E7
027214
122710 0000&C
E462
027220
001004

el < 18:
CHMPB
BNE

)
e
R0y Sh2e)
8’0, (RO)
2%

Euus: ggam 6%%260 000006
E4ES

027322

112710

0O0OOHO

ROY

MOVE

RS,REPLZ

:ADDRESS OF NUMBER (IN ASCII)
:*N’ IS NUMBER OF DIGITS TO BE TYPED
‘t’"??
eOVEMUM NUMBER
OF DIGITS TO BE TYPED
;av?s
Egu& - ggcu '0* 2
‘BR_IF NOT

éégg’fagm

;ggefigg OF "t ?S gésgo§N°Ex

%40, (ROJ

'REPLACE THE ZERO WITH A SPACE

CZRIDCO,

RPOY-S5.6 MLT-DR LGC

CZRIDC.P11
6470
8471

BuY?,
647

N7y
B47S

476

6478
6479

6480
6481
g:gg

15-DEC-77 10:58

027326
73

73qo

€200
77

000060

027360

8%3237

7362

012600

7323 04401
7
6ooooo

30(1046)

000006

027360

15-DEC-77

GENERAL SUPPORT SUBROUT

112710

73;3

027364
027366

MACY11l

4§:

012616
000205

INC
§R

STB

MOVB

nov

Rg
1

; INCREMENT THE BYTE aooasss
;GO
K AND 5
FOR MO ; LEADING ZEROS

(RO)

ICEE ;

RO
#’'0,

SEG 0120

iBR IF
(RO)

!BACKUP
iPUT
A

(SP)+.48

.gec NN

6(SP),4%

rvps
ORD

RTS

(8P)+.(SP)
RS

(gpu,no

ZERO

NOT

1PUT

BYTE TERMINATOR

STRING POINTER
ZERO BACK IN

SS IN LOCATION FOR TYPEOUT
OF

Acnxrxcnnr DIGIT

:TYPE THE uuneé
;
OggOF NUMBER

IREST

:MOVE RETURN ADDRESS
: RETURN

2382

: TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS

6485
B487

;CALL
:

MOV

ouunnon -(SP)

§SUPRS:

MOV

RO, -(SP)

18:

2%:

TSTB
BEQ
CMPB
BEQ
DEC

(R
as
8'0, (RO)+
18
0

,rcn 1 TOR
?
‘BR IF YES
:1S THIS AN ASCII
.an x YES
. og

38:

DISPLY
.WORD

c
INT
ngc
z PO&NTER GOES HERE

(SP)+. (SP)

RESTORE THE STACK

g:gg

e430

027370

010046

§482
6483
6494
E495
£496

027376
(027400
(027402
(027406
027410

108710
001403
122720
1773
005300

6498
499

027416
027420

491

6487

027372

016600

027412

010037

500

027422

012600

gggg

027426

000207

6501

027424

104914
000000

000004
000060

027420

012616

JSR

MOV

MOV
MOV

MOV

RTS

2?8;

C, SSUPRS

uzsp) RO

RO, 3%

(SP)+,RO

507 357w3u 012737
200 177776
6508 027442 012537 027452
6509 027446 004737 031034

TYPRIY:

£S13
6514
gE1s
£E16
Eéié

:ROUTINE TO TYPE ERRORS
:CALL
:
DISPLY
:
MESADR
:
RETURN

7430

013746

BE10
Egié

027452
027454

Go0
000206

6521
S22

£€23
€24

AVE RO

: PICKUP rus POINTER

rvpxnc

RETURN

:ROUTINE TO TYPE AT PRIORITY 4

6506

BE19
€20

;FIRST ADDRESS OF ASCIZ STRING

027456
027464

032777
001004

027476

062716

027466
027472
027502

005037
000137
000002

177776

020000 151454
177776
031034

000002

18:

MOV
MOV
JSR

uoP

LWORD
RTS

O
RS

SDSPLY: BIT
BNE
18:

3 aaps
)s
pc579P£

MOV

CLR
NP

ADD
RTI

-(SP)

:CHANGE THE PRIORITY TO 4
; MESSAGE ADDRESS
:TYPE THE MESS
:SAVE THE

PRESENT STATUS

'MESSAGE RDDRESS GOES HERE
*RETURN

:MUST DEFINED IN 'TRAP'
:ADDRESS OF MESSAGE

#BIT13, ASWR
18

: INHIBIT ERROR TYPEOUT ?
an IF YES

82, (SP)

xncasnsnr THE RETURN

I8PS
$TYPE

ET PRIORITY TO ZERC
YPE THE MESSAGE

{RETUR

TRBLE

GENERAL SUPPORT

61-?3

ELOD

SUBROUTINES

PAGE 122

£526
gggg

;THI? ROUTINE IS gssg TO CHECK IF AN
;ggELx CHARACTER IS A DIGIT BETWEEN O AND 7.

6529
6530

:
;

6531
sgag
gsg“

RETURN1
RETURN2

#ADR, R1
RS,CK.OCT

CK.OCT:

CMPB
BLO
CMPB
BHI
nove
gxc

(R1),#'0
13
(R1),%'7
18
(Ri),R2
#1C7 R2

;LESS THAN ZERO?
:YES -BRANCH
:GREATER THAN SEVEN?
'YES
-BRANCH
iGET THE CHARACTER
:STRIP AWAY T
1

18:

RTS

:RETURN

6535
6536
6537
6538
6539
6SN0

027504
oe;gxo
027512
027516
027520
027522

121127
103407
121127
101004
111102
042702

gg:g

027530

000205

6841

:
:

MOV
JSR

027636

005725

000060
000067
177770

(RS) 4

;nagn:s;
:
CHECK

ASCII CHARACTER
CHARAC TER

:CHARACTER
IS NOT BETWEEN 0-7
: CHARACTER *s IN R2 RS A
:OCTAL DIGI

:ADJUST FOR RE

BS4Y

: THIS ROUTINE IS USED TO CHECK AN RSCII CHARACTER

£547
AT

:
:

MOV
JSR

#ADR, R1
RS, CK.DEC

;ADDRESS OF ASCII CHARACTER
;cu;cx TuE CHARACTER

CK.DEC:

CMPB
BLO
CMPB
BHI
MOVB

(R1),#'0
18
(R1),%'9
1%
(R1),.R2

:LESS THAN ZERO?
'YES -- BRANCH
:GREATER THAN NINE?
:YES
-- BRPNCH
:GET THE
CHARACTER

*RETURN

EE:E

;ggELoersnnxne IF IT 1S A DIGIT BETWEEN O AND 9

6549
65
ggsx

:
:
:

6563
6554
£SS5
65
6557

027532
(027536
027540
027544
027546

ggsl

02755e

65
£569

027550
(027554

121127
103467
121127
101004
111102

(042702
0OS72S

000060
000071

0000&D

000205

18:

RETURN1
RETURN2

BIC
75T
RTS

#'0, R2
(RS} +

:NOT
BETWEEN O AND 9
;gerus N O AND 9
iR2 =
DIGIT

:STRIP AWAY THE ASCII
:ADJUST FOR RETURN

65
ggga

:THIS ROUTINE WILL CHECK AN ARSCII CHARACTER TO
?EE{ER"I"E WHAT IT IS.

£S65

MOV

6567

RETURN

ADRI

ADR2
ADR3
ADRY
ADRS
ADRB

:CARRIAGE RETURN ¥ (R1)=ADR+!
:COMMA # (R1)=RDR+1
:PERIOD * (R1)=RDR+l
:DIGIT BETWEEN O AND 7
:DIGIT BETWEEN 8 AND 9
:R2 = DIGIT # (R1)=ADR+1

CK.CHR:

TSTB
BEQ
CMPB

(R1)
3s
(R1),%',

:*CARRIAGE RETURN"?
'YES -- BRANCH
1 *COMMATM
?

£SE6

6568
6569
8570
£S71
6572
gg;a
6575
6576
6577
6578
££79
eS80
EEE€1

:
:
:
:
:
:
027560
027562
027564
027570
(027572
027S7¢
027E00

105711
001417
121127
001413
121127
001407
004S27

0OO0OSHY
0000SE
027532

JSR

RETURN
RETURN
RETURN
RETURN
RETURN

BEQ
CMPB
BEQ
JSR

$ADR, R1

RS, CK.CHR

2%
(R1),8".
1%
RS, CK.DEC

; ADDRESS OF ASCII CHARACTER

: CHECK CHARACTER

: UNKNOWN CHARAC TER

{YES -- BRANCH
1 *PERIOD"?
PYES -- BRANCH
:*DIGIT"?

10:58

15-DEC-77

MACY11l 30(1046)

)

CZRIDC.P11

LGC

RPDY-S.6 MLT-DR

CZRIDCO,

MLTGC
1s-o£c-?9a15:ss
PlRPO4/S/6

027606
0276le
027614
g27ele

000410
004537
005725
005725
005725

F10

3 PAGE 123
SUBROUT NES
SUEPOS?

MACY11 30(10%:

027504
18:

JSR
TST
157
TST

RS,CK.OCT
(RS)+
(RS)+
(RSI+

;NO_-- BRANCH
;OCTR# ?
;DIGIT BETWEEN 8-9
;DéGIT BETWEEN 0-7
;PERIOD

SEQ Ol22

SFREEESRSES S8

A R

24
30 ) L5785 77 3(;;££g
MACY11l BT
LlanblifesTM
!
SUBROUT

857522

762

%g?

gg:

01108
866202

3222
DO NN EWN-0O

o
o

e Be
e Bt et bt B
e

S O e

e B

157

MOV

RETURN

062705
006303
010346

000004

18:

2%:

027560

005724
020316
101004
000402
00E72¢€
00E72€

4§

513
£S:

78:

:CHECK DIGITS

1»PERIODTM ONLY ENTE
;kasan CHARACTER on xupur 700 LARGE -- R2="
iCR" -= R2 =
= NUHBER
:»COMMATM -- R2

ADRE

!~PERIOD” -- R2= NUMBER

RY,-(SP)

:SAVE R4

R3.-(5P)
R2.-(5P)
Rg

:SAVE R3
:SAVE THE MAX. SIZE ON THE STACK
:START WITH O

JSR
68

RS, CK.CHR

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER

R
R4

:CARRIAGE RETURN
e

.oxch 0-7

ADD

#4,RS

ASL
MOV

R3
R3,-(SP)

ADD
ADD
JSR
sg

(5P)+,R3
R2,R3
RS CK.CHR

R3
R3

c§
33
3s

; ADDRESS OF ASCIZ STRING

MOV
MOV
CLR

ASL
ASL

7736
7734
77;6

027672
027672
105711
001010
005724
005724

{“CR" ONLY ENTERED -- ne:o

1§

006303
006303

062603
060203
004537
027752

ADRI

33
63

7666

.|R CHARACTER

IMAX. MAGNITUDE OF INPUT NUMBER

aona
ADR3
ADRY
ADRS

CLR
CLR

857754
7796

RE TURN

onon Rl

RETURN
RETURN
RETURN
RETURN

005003
005004

027560

: CARRI

RSck D1G

CK.DIG: MOV

004537
027746

(RS)+

JSR

010446

010346
010246
002

; COMMA

(RS)+

RO CIRALTE
(RS),RS
oy
FRESURN
RS
RIe
CKS AN nsc 1 srn NG F
ROUT
§"§N°“F { gnunsvNUMBER IN R2.
?S

:
:
:
:

TgT

SEC Ciz2

23
2%
TSTB
BNE
TST
15T

157
BH1I
BR
15T

,o¥cxr 8-9

'STEP RETURN POINTER PAST “CRTM 3 "PERIOD" RETURNS

:INPUT NUMBER #2
:SAVE *2
P %Y
%8
= 10
P(%2)+(#8)
‘UPDATE THE xupur NUMBER
:CHECK ONE CHARACTER
*TLLEGAL CHARACTER

:CARRIAGE RETURN
a0
;lo.u

(R1)
8%
(R4)+
(R4)+

(R4)+
9§
83
(RS )+

CHP

R3, (SP)

187

{RS)+

:picIT 0-7
:oxcxr 8-9
:DOES R "cn" FOLLOW THE "PERIOD"
:BR _IF NOT
;}Ncnsnsur THE RETURN
: NCRE NT THE RETURN

RETURN
: INCREMENT THE
MAGNITUDE OF THE NUMBER
: CHECK
‘BR_IF ENTERED NUMBER TOO LARGE
:BYPASS INCREMENT
: INCREMENT RETURN PARST INVALIC RETURN
: INCREMENT RETURN

CZRJDCO, RPO4-/S5-6 MLT-DR LGC
CZRJDC.P11
15-DEC-77 10:58

6643

gbY4

0277

027784

MACY1l 3C(1046)
15-DEC-77
11:03 PAGE 125
GENERAL SUPPORT SUBROUTINES

060405

og:

010302

B64S 027756 005726
EE4s
857768 015604

be48
027764
8115
0s
gggg
027766
000205

nw RS

:SETUP RETURN POINTER

ENT RED

(sfi)o
EES:: RS

VALUE

n%nax SIZE OFF OF STACK
i REST

(RS),RS

cE? S"?un" ADDRESS

s TH
WILL
CONVERT A s-axr UNSIGNED BINARY NUMBER TO AN
o
é?a@fl T BEETHAL
aSQY
Y RIMBEAS
: zgx
Pgflggaé-(sp)
PUT THE NUMBER ON THE STACK

§§§7

6658

gggg
027770
027776

016637
012746

030012

000207

000002
030014

030014

0OOC00

030014

000000

Sobksss OF THE 1ST ASCIZ CHAR IS ON THE STACK

'Nors

THE PROGRAM REQUIRES THIS FORM OF '$SB2D’, NOT THE VERSION ON

$SB2D:

MOV
MOV

;

6663
030002 004737 032562
bbbY 030006 012666 000002
6666

TST
HoV

MOV

gggg
BESH

B6bS

MOV

RTS

Bbbl
662

ADD

SEG Oz

18:

THE SYSMAC LIBRARY, REV C AND LATER
2(§P)
13

JSR
MOV

(s¢)+ 2(SP)

. WORD

RTS

gavz THE axnnav NUMBER
ET THE POINTER

toeao

:CALL
THE DOUBLE LENGTH CONVERT
:PICKUP THE POINTER
:RETURN

6668

;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

gg;

gg;q

?og

BE7

INOTE:

THE PROGRAM REQUIRES THIS FORM OF '$SB20’, NOT THE VERSION ON

$SB20:

MOV

2(SP).

MOV

csb>+ 2(SP)

.WORD

0,0

BEE9
8670

:UNSIGNED OCTAL ASCIZ
NUMBER.
(CALL

22;9

6678

030020

016637

6679
3

030026
030035

012746
004737

£682

030042

000207

681 0300

EFS&

030044

000002

030044
032756

030044

012666 000002

0000600

000000

18:

£68S
EEBE
EEB7
gggg
oaooso

012737

gggc
EESE

30076

000207

BES?
eese

E"EER
-(SP)

THE SYSMAC LIBRARY,

MOV
JSR

RTS

PHT THE NUMBER ON THE STACK

noonsss OF THE 1ST ASCIZ CHAR IS ON THE STACY
REV C AND LATER

; SAVE THE BINARY NUMBER

oxs -tSp)
¢, $0820

:SET THE POINTER
:CALL THE DOUBLE LENGTH CONVERT

'RETURN

chxup THE POINTER

:KEYBOARD INTERRUPT INITIALIZATION ROUTINE
:CALL
:
JSR
PC,STKINT
:
RETURN

EES0

£e9]
£EES2
EE33

RE
!

03005e
030064
3 0070

012737
€777
012777

030100

000240
151056
000100

000060

000062

1S104&

STKINT:

MOV

MOV
TST
MOV

#$TKSRV, TKVEC

oPRS TKVEC+2
TK8
oaxvos.asrxs

;SETUP VECTOR

:PRIORITY T0 5
:CLEAR THE BUFFER
seréNTERRUPT ENABLE

RTS
PC
:KEYBOARD INTERRUPT SERVICE ROUTINE
:CALL
$

ENTER VIR

INTERRUPT

'5/6 MLT-DR LGC
15-DEC-77 10:58

030100

838182

838530

1
838““
116
838155

6708

001165
0;0;;2

1
830{3#

oggxgg
0301
030125

0301

030162
030166

1
oaaggg

001

104401
104401

030172
03017

013
127u9

030206
030212

000137
012

0302

030220
030222
030226

03023C

30507

000402
104401
000002

1777727
151004

I10

MACY1l 30(1046)
15-DEC-77 11:03 PAGE 126
GENERAL SUPPORT SUBROUTINES

$TKSRV: RDCHR

MOVB

000003

CMP
§n§
YPE
TYPE

001262

001140 000176 18:
037230

000007

5§, 83
1;
,SCRLF
SCNTLC

BNE
CMP

3s
5§, 87

iBR IF NOT
: "CONTROL G’ 7

TYPE
TYPE

SCNTLG

CMP

SWR, 8SWREG

PS. -(SP)
o%% -(SP)

031776
000100

NP
MOV

3
oxo , 38TKS

CLR

030230

000000

2%:

: "CONTROL C*
iBR IF NOT
iCR-LF
1Tec’

;scr THE
;cxsgn

MOV
MOV
150724

‘GET THE CHARACTER

k-1,CFLAG
4,7*9

177776
030;55

150

;READ THE KEYBOARD

MOV
Sfi“

BNE

001165
032335

cip)o,ss

:SOF

*CONTROL C’' FLAG
HE TTY INTERRUPT

TWMARE SWITCH REGISTER IN.USE °

:BR IF NOT
:CR-LF
174G

(PUT THE srnrus WORD ON THE STACK
:RETURN ;

:CLEAR THE TTY INTERRUPT ENABLE
iGET THE
SWITCH REGISTER ENTRY
'ENABLE TTY KEYBOARD INTERRUPT

3%:
48:

BR
TYPE
RTI

43
,5%

TEXIT
.ecno THE CHARACTER
'RETURN

c§:

.WORC

;ENTERED CHARACTER

E”Is ROUTINE WILL INPUT A& STRING FROM THE TTY

:
:
0

0
0
022
1014
104410
112613
652713
1022
005716
001007
112737
104401

012716
005303
020327
103445
111337
104401
000
00S

1
2

ROL IN

RETURN HERE

$ROLIN: MOV

030510
030822

18:
28:

000177
000134

03050e

030506

177777

030506
030506
c§:
000134

0320506

R3,-(SP)

-(5P)
#$TTYIN,R3
#$TTYIN$10.,R3
43
(SP)+, (R3)

2177, [R3)

INPUT A STRING FROM THE TTY

h
DDRESS OF FIRST cnnnncrsn WILL BE ON THE STACK
:TERMINATOR WILL BEA BYTE OF ALL 0'S
;SAVE R3

:CLEAR THE RUBOUT KEY
‘GET ADDRESS
:BUFFER FULL?
:BR IF YES
:GO RERD ONE CHARACTER FROM THE TTY
:GET CHARACTER
:1S IT A RUBOUT

BNE
TST
BNE
MOVB

5§
(SP)
68
#'\,9%

'BR IF NO
:1S THIS THE FIRST RUBCUT?
‘BR IF NO
:TYPE A BACK SLASH

MOV
DEC
CMP
BLO
MOVB
TYPE
BR
TST

k-1, sP)
R3
R3, #STTYIN
43
(R3),9%
33
tg
(5P)

:SET THE RUBOUT KEY
'BACKUP BY ONE
srncx EMPTY?
iBR IF YES
ssrup T0 TYPEOUT THE DELETED CHAR.
:GO TYPE
:GO RERD ANOTHER CHAR.
TRUBOUT KEY SET?

TYPE

6%:

030510

CLR
MOV
cMP
BLOS
ROCHR
MOVE
CMPB

BEQ
MOVE

73
2,98

:BR IF NO
:TYPE A BACK SLASH

CZRIDCO,

MLTRPOY/S/
15-DEC-7

bGC

00SOIE
03034
-x;
271

030S0e

728

032330

;
=

e () = ()

EL£00N
£N
OOr= ==

e e

—

Q008N;Broe

TYPE

00002s

??5:

001164

4s:

030506
030506
000015

3s:

000004
030s10

118

JEXIT

(R3)
,SCRLF

sz nn THE cnnnncrsn

ég

$o xcxup ANOTHER CHACTER

0co

SCATLC

cMPE

5‘2,(n3)

STTYIN

NE
CLRB
TYPE
TST
MOV
MOV

3§:
00sC1s

Egsr CNTRL C FLAG

?932

000002
00Co04

; vpéSTART
A CONTROL
*“U"
OVER

#-1,CFLAG

YPE

118:

CNTLU

;ég cga§8c1sn A CTRL U?

MOV

MPB

1777277
001166

:CLEAR THE RUBOUT KEY

(R3)

:G0
;gg ?gnzggrsn ACTRL C ?

CLE
TYP

001165
030s10

SP)

3 , (R3)

TYPE

8s:

0ooo12

825,

SEG Clz2e

gzga

001262

(=]

Q2&~ Q 8
A 7 Al @ @ z
(=]
iy N & y: o

CMPB

108:

000003
677777

CLR

7S$:

§5888558

@
z
E52RRE8ENG

%2%%%%%

§§Joc P11

J10

11:03 PAGE 127
15-DEC-77
GENERAL SUPPORT SUBROUTINES

MACY11l 30(1046)

(ECHO IT

IS cunnncrsn A “LF"?
:
T

QUES

Lsnn rus BUFFER AND LOOP

(R3),9%

bis,(na)o

2
-1(R3)
gLr
tSP)+
(SP)+,R3
(SP), =(SP)

MOV
29\11

4(SP} a(sp
sSTTYEIN, G (SP)

.g;;

.BLKB 10.
$TTYIN:
SCNTLC: .ASCIZ /1C/<CR»<LF>

A
"CR* & "LF"
THE INPUT STRING

CHO THE CHARACTER

cuscx FOR RETURN

:LOOP IF NOT RETURN
:CLEAR nsrunn (THE 15)
:TYPE A LINE FEED
:CLEAN RUBOUT KEY FROM THE STACK
!RESTORE
R
no:usr T"S ;rncx AND PUT ADDRESS or THE
b

ASCII CHARACTER ON IT

onncs ron ASCII CHAR. TO TYPE

xEo BYTES FOR TTY INPUT
RESERV
:CONTR

.EVEN

;;I}ll!!lllfiliillllllliili!llllli!liiQlliililllilll.iiliil‘iiii*’

.SBTTL

MACRO ROUTINES

.SBTTL

ERROR HANDLER ROUTINE

CEERERERRERERE R

RRE R R RN R R R R AR

AR R AR R

AR AR AR R AR R RS RRRRS

HI%LEINCREHENT THE_ERROR FLAG AND_THE ERROR COUNT,
iggls ROUTINE
55 AND THE ADDRESS OF THE ERROR CALL
ERROR
;
:%AND

TO SERRTYP ON

:#THE SWITCH oprxous PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
:#SW15=1
INHIBIT ERROR TYPEOUTS
t#SW13=1
BELL ON ERROR
‘:?fifile

W
(&}

o
W

e
$ERROR:

ERROR

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

s e

NN
£ WM

s Bt Bt

78:

Orerm
Wr—er—
Or=tosor

—

18834

000042

000046

3%:

030674
030676

ofixa.asun

STSTNM,

JSR
TYPE
rer

BPL

kgLé

3DISPLAY ;

’ ?rzo.ggug .
#L
(SP) Egnnpc
ogpst

JSERRPC, SITEMB
og}fxs.bsua

Sc
SERRTYP
,SCRLF
ISWR

TO %5

;DISPLAY TEST NUMBER AND
LL
OR?

: ;RING

; ;COUNT

ERROR FLAG

BELL

THE NUMBER OF ERRORS

;;GET ADDRESS OF ERROR INSTRUCTION
;;STRIP AND SAVE THE ERROR ITEM CODE

;;SK}P T;;EOU IF SET
; ;SKIP TYPEOUTS
;;G0 TO USER ERROR ROUTINE

; s SKIP 3; CONTANUE

;s TEST FOR CHANGE IN SOFT-SWR

W42, INe
.44

RTI
.SBTTL

;

; ;HALT ON ERROR

T
HAL
CKSWR

CMP
BNE
HALT

SEG 0127

'gévé'r§8“n$%s~$§o~nscxsré“nconrzurs

R3,ATTN

PC,STIME

B g
¥$PE
%88
SUB

PRGE 128

R1.DRIVE

5289

MO
gxr

RA
HE

; ARE WE %N ACT-11 AUTO MODE”?
;BRRNCH
F_NOT
;HALT ON ERROR IF ACT AUTO MODE
; RETURN

ERROR MESSAGE TYPEOUT ROUTINE

llllllllll!lillll!llil!llllllllllllilllllll!ll!lll!l!l!illlll!l

E pathi
104401
010046
00S000

013746

001165

TYPE

MOV
CLR

001114

BISB
BNE

001116

MOV

88048

ek
00S300
006300
006300
300
062700
012037
001404

SERRTYP:

TYPOC

18:

004026
03072

BR
DEC

ASL
ASL
ASL
ADD

MOV

o N eR
“ITEM CONTROL BYTETM

$CRLF

RO, -(SP)
RO’

J8SITEMB,.RO
18
SERRPC,
- (SP)

3
RO
RO
RO
RO
#SERRTB, RO

é§01+,et

(SITEMB)

TO DETERMINE
WH
WHICH

;;“cnnngscs RETURN" 8 "LINE FEED"

:'PICKUP THE ITEM INDEX

Pé $HE PC OF THE ERROR
..*
: ;SAVE SERRPC ron TYPEOUT
::

_ITEM NUMBER xs ZERO,

JUST

; s ERROR flDDRE?S

..GOTTYPg--OC AL RSCII(ALL DIGITS)

.,ROJUgg THE NDEX SO THAT IT WILL
$3

WORK

FOR THE ERROR TRBLE

ABLE POINTER
ERROR MESSAGE"TM POINTER
'PEOUT IF NO POINTER
:

iTHIS ROUT

>4
o

6850
6851
e8se

150370

K10

SSEEEC-?7
11:03
ROUTINE

CKSWR
MOV

e pe

(b 0 0 (b (0 6o
""E?B8SERRRARRES5600
P55EEEE
PRURREL
88

MACY11 32&&8:6)

EERIBE AT OV TESoBE b
6867

04401

2%3

!
687524
;g k

1165
20 9 8%0570
:
1 401 001165
5580
4 ; 001165

687

sngo

x§1
101

uaa:

{853

%; 0

uaaé

::fi

6887

1019 16«3333
ioaa

031

; 1 031030

004

031034

000

L10

M FRABR
e sdRR FPE Lt hSfln’m““
o

3s:’
4§:

s§:

es:
78:

TYPE

?'#:m

i3 ]YPE THE ~ERROR

RLF
v lgtcl)o,fls
LRyO
.WORD
TYPE
Hov
tRG), CRLF
RO
MOV
;}rgs 5(SP)+
CRLF RO
MOV

repoc

rsa

8s:

g:m

(RO)+,~(

,‘,§°’

SAcE

'!"

were

L
éig
::PL}fia3?‘
xm:
fil
M :
r PO
o-?o,?ss“ gg
.;u‘
§5Px“&anew' POINTER
E: nztumrum
8 "LINE FEED"
o

)

’gs

..xs nc:so mom: NJHBER

ASCIZ 7 7

185&“’
A
P?mu. DIAITS)
TWO(2) SPACES

:Ehoca: SPACES

-EVEN

21'33?

.SBTTL

g}ggg

lsalllllll!lll!l.l!!Iillllllillillllllill'llllll!;g;ll;l;;l;isl e

fl%

n soumc ukanfnéfmmg:“GE3?ru.“#cmn&:
ngs ‘T;s
R ALélé sésgmmrsn

5896

morse

gggg

'rcm.

geox

£900

ILLC

CONTAINS T:E
CONTRINS T

1%]) USING A TRAP "éusmucnon

£3cs

%'i- cmnncrsns REGUIRED.

cumncren TO

LL AFTER.

TYPE

,MESADR

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

Ty
$TYPE

T
ggLa

fimc

T&? msns A TERMINAL ”

18:

MOV

28:

ngsera

P
I

£907
e307 §§11034
332

105737
oooge

gg?g

iow 600089

£91

10s0

i
23%9

i%“

€921
e321

031100

5915 §§10~s §1n9msc

ggég

g;xu

morsa

66899

23{3

TYPE ROUTINE

{8;2

017600

66?0%

00115 7
000002

s
716 000002
3?355 000011

7
éSfoé‘;;

000200

o
3s:
4§:

g,‘;'-’

MOV

stTJD

33 -(SP)

32{sP), R0

..n&Ensns IF NO TERMINAL

'SAVE RO

,,c:r noonsss or RSCIZ STRING

‘(.RO)O,-(SP)

gagsu ,7 me

82, (SP)

::R u T RETURN PC

;,‘2‘{‘,,2782'0 STACK

EEEREREISNE.

ggoa

#HT, (SP)

PIBRANCH IF <HT»

3529

ggm.r,(sp)

:s;BRANCH IF NOT <CRLF>

SEC Olze

CZRIDCO,

RPOY./S/6 MLT-DR LGC

CZRIDC.P11
s& 0311

15-DEC-77 10:58
?

MACY1l 30(1046)

1{1? @;
g 03 xio 7 4 031250

TYEF
;ER

6 1 0311 1 001154

]

B3i14q AQ3%%p O0000:

2935 gif% 00473; 83}23%

1S-DEC-77

TYPE ROUTINE
ST

HiE

11:03

PAGE 130

(SP)+

; ; POP

SEG 0129

<cn><Lr> EQUIV

:iTYPEA CR AND LF
&gm m’“rifi""

§n:::::

MCV

,-(sm

Jsga
e

§¢srvr;c

" ru.tucms "NEEDED

uo--

'{&“ML F OF STACK

cam"?uas A COUNT
BNOT

;HORIZONTAL TAB PROCESSOR

G4 031169 BBG735 DB31204
sm

ifi

29-45 -&

fi? 7

Zef

000007

031250

Efi gigfi ggfi; 147740
830 031538 18877 BROBTE

6951
Egs

031226
1§£

001003
m 031250

ggg

031252

000207

i
2 B
B
i

Bc.siveec

::“‘v&“fi‘ pace | W SPACE

(SP)+

ITB

STYPEC: ?nn
Ad%E

CRPE

BNE
RB

87, SCHARCNT

\Tr;?c
xm

000012 000002 1S:
MPB SLF,2(SP)
SCHARCNT:Mg,uSno 0 T
STYPEX:

RTS

::&8“&&'&"8 A CARRIAGE RETURN? Mo

iscmrsn A LINE FEED?
B
wnct'éf EOuNT
B
s?onnc:

.SBTTL BINARY TO OCTAL (ASCII) AND TYPE

£96

£965

RERREEEEERERERERRERERREERERERERRRRREERERER
RN AR R R E R ERRRERERRER

LATHIS nounuc 1S USED TO cumc.s A 16-BIT BINARY NUMBER TO A 6-DIGIT
: #0CTAL msg 1) NUMBER

gggg

.grvpos--- NTER HERE TO

sqsg

€352
eg;x
Eggg
£97¢

E OFF STACK

i 3 BRANC
--cx.san cmmcrsn COUNT

Eészéo
£964

IF NOT AT

311urmE R"IINCTER 1S READY

scR 2t28)78
18

g:
:

Hoy

BYIE
‘BYTE

NUM, - (SP)

TYPE IT.

SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TC TYPE

ElélLlflElFi m;oracwE &PED

':N-1Lro
:iM=1 OR

FOR NUMBER
OF DIGITS TO TYPE
i

4A S PPRESS L ERDTNG “2EROS

#§TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

23;9

.:gzzpos OR STYFOC

£378

‘e

MOV

NUM, -(SP)

; ;NUMBER TO BE TYPED

CZRIDCO,

-"6 DR Bk

RPOY-5.
6
1S

N10O

ro'BcPhC (Asc 13 %m0 TvPe

MACYM IBLARRY

SEG 013C

; sCALL FOR TYPEOUT

TYPON

—&i—o—xT_im¥—%m?.o-5s0§izme2WoagMlumu,'c&o&o“bTo2SRo)o8-HoeNy2l[3=]M|a'"le[Syy(&)RX&XS2KMrw-aeulyvYok

CZRIDC.211

TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

ALL:

MOV
TYPOC

- (SP)
NUM,

L
TYPEOUT
FoRRL
{E

B
S5as 828 ¥et- i
OAPy—eRTeEnNEPR3%55 H ALT4ntPtyW

DIODLDODIDONIDLDD

tfi&u

aBHSxR2@GmYWewm

1501
1476

STYPOC:

STYPON:

5
2
-

2s:

0 -

SuBT

,R3

177770

31474
-— T N T

476

el
THE
T,o
ATE
#0anDO
T L
F

mé

$°
YSE-I

(0COo0CH

u“m-AeHQw=

-0 .

NSlfiE
vk

000002

-1- =

*"u4-+~9Bei4ZbeD»ox>eU.~Nm——TM=<¢-tW~v))0
1477

\l N NS S e W R Y

3|0|.|‘|l1‘1111!&1"111111111‘11‘111115mmmaummmumuamnxumammuummmwmmu&mumnm 857
i

TURN

ORAGE FOR RSC
g
;i TERMINATOR FOR

Bll

CIRIBEe PTetore ST ub%Ee T FRINGRY 10" BcTAL msc“%“%m"‘r‘%e"’
1o g, aren
. Bl 8
g 000000
5® 831456
gono.l’
:: 6F Die1Te TC TYPE
.SBTTL

CONVERT BINARY TC DECIMAL AND TYPE ROUTINE

Iill!!.!!ll!ll'llllll.Iill!llllllilll‘l!!lllll.'il!llll!lll.li!

.ngg1

NUMBER To;-oxc*r
A

"THIS
.k%&)
&!fifl
RO # . ’1
MPEPOI

;§§g
€

ACED uxru

;owq

MOV

NUM, ~(SP)

1 PUT ngflglnnnv NUMBER ON THE STACK

031
010046
031 202
252!
010146
7555
1 S04
015246
1 sns
7054

aay
PUICOE MOV
MOV

RO, -(SP)
Rx:-(gg)
"‘22’

STACK
ON STACK
RO ON
Rl
;;:32&
:iPUSH R2 ON STACK

010S4%

MOV

RS, -(SP)

iGET "f

7060

7061
?

1
1
1
1
1
1

706
7068

;83?

7074

x§7w

70€S

707,
707

707
70

020200

MOV

0O00SS 000001

MOVB

7084

0217i&

i
1

1622
1

0316

031634

7083
7090

031644
03164

chsag
g3164
031642

NEG

18:
2s:

03170e

752
11572 001002

7085

7
7
7088

BPL

000040

100407
106316

S$:

177777

662;

7496

6%
78:

8s:
177777

177776

ég
4

-(5P)

"~ 1(SP}

ggT%(ROJ,Rl

INC

ESD
TST

3?
R2’ RS

BMI
ASLB

7
(SP)

ON STACK

: i PUSH
¥
i3

ON_STACK

NUMBER

1N£gv

JMAKE T

THE

ngfi TCH AND SIGN

nunaen POS

;

MTER TO A BLANK
Igg

HE
TTH
°t."s§“smn

(iBR IF

: t INCRE

HE BCD DIGIT BY 1

ADD grBACK BCO
THE CONSTANT
DIGIT=0
EECHEC&

S
<§P)

:IFALL THROUGH IF O
;;3;1%# DOING LEADING 0’S”?

BCC
MOVB
Bis
BIS
move

63
1(SP) ~1(R3
»'0,R2
S
w2, lR3)+

::BR IF _NO
: YES--SET THS SIGN
iMAKE THE BCD DIGIT ASCII
PIMAKE IT A SPACE IF NOT ALREADY R DIGIT
*IPUT _THIS CHARACTER IN THE OUTPUT BUFFER

CMP

RO, 810

BGT

BLT

10502
764
105726

820200,

20(SP)

CLR

TST

000010

3002

100002
11E6E3

CLR

MOV

BNE
1518

183315

70;9
1
103003
70;3
1604
70
1612
0825983 3885801
7080 031616
702

706
7

MOV

000020

R3.-(5P)

ROUTINE

1360 10

o
BoMmm

705

1
1
1

323
>3

MOV

10346

7959

CRERD
£ Sy

70Ss

1
1

TYPDS

e
245

7048

MOV
BR
TSTB

BPL
MOVE

(RO)+

s
; s MSD?

YES

;3 JUST INCREMENTING

: 1 CHECK Tns TABLE INDEX

1160

RS,R2
X
(SP1+

;;cer THE so
1160 cuaucs T0 ASCII
:WAS THE LSD THE FIRST NON-ZERO?

9§
Z1(SP),-2(R3)

::G0

DO THE

TO EXIT

NEXT DIGIT

.,an IF NO
YES--SET THE SIGN FOR TYPING

s€G 0131

CLRB
gSV
v

TYPE

000CCH

wn:

MOV
MOV

.SBTTL

§£

YP23ROUTINE
1

SEQ 0132

2§§ THE TERMINATOR

G gl 1S
s
’:
NTO R
:,POP
§123xNTO R

..ROJUSTP$HESTACK
;;RETURN TO USER

1
1%

SDBLK: gLKH

foa

)
T0

3
i

=7 7
%S-OEC

CONVERT BINAR

MOV
MOV
MOV

o
s P

30(1046)

9s:

0S013

1
1
1
1
1
1
1
1
i

i
1
1
1

MACYil

*C+++++

m‘mfi&*

AR R AR A A AR e

031654

TTY INPUT ROUTINE

i!lll.l;;llllllll!lll!llillll!llll!l!li!lllllllll’!lIil!lilllll

llllll!llilllllllll!llllllllllil!llilllllllilllll!blilliillil!l

000176

”?qu

001140

158,

147202

P+

SR?TOB sl

000001

00
0323S3

10037S

147120

$GTSWR:

TYPE

19%:

CLg

78:

TSTB

117746
042716

021627
001085
104401
0e270e

TY FL
G, SWR

nfc17# (SP)

866687
001134

nnp unuoLsn

158
P)
dSTKB, - (SP

147176

[

S rehatepeeteute

e 88880888 (==
ww

OBB IR A E e

FhESHESIBYRRY

—EBBVER IR B0t £

e Nt
g

SNNNNNNNNNNNN
NN NN NNN NN NN NN NN NY NN UINININ YNNI NN
NN

091

15-DEC-77 10:58

p
w

RPOM/S-6 MLT-DR LGC

CZRJDCO,

CZRJDC. P11

,SCNTLG

Sungc -(SP)

9%:

CMP

032330
000006

c0s:

ADD

--63fl"gi §2FT-SHR SELECTED”?

F NO HBON'T WAIT ARCUND

o.?ER}P-gFFTHsofSC;I

HE RENN
NG IN RAUTO-MOCE?

;;BRRNCH 1
,,; HO T
3: 7Y

CONTROL-G (1G)
ON

~(SP)

-(SP)

agrxs
7

IF NOTH$RY AGRIN

T
(SP)
J$TKB,~-

,.PICK uP C
PIMAKE IT 7exr ASCII

(SP), 825

3318 17 RIEONTROL u?
..enqnc
oT
i
ECHO CONTROL-U {tU!

81Cl
C17?, (SP)

0000z2s

WILL

SOF TWARE suxrcnnscxsrsn TRAP CALL

108
SCNTLU

k6,
S

xcnbne PREVIOUS xnpur

CZRJDCO,

RPO4-/5-6 MLT-DR LGC

CZRIDC. P11
;i:?

2148

15-DEC-77 10:58

032054

MACY11l

30(1046)

000757

71S0

108:

71§

7154
7122

147040

7157

CMP

?t?

1S-DEC-77

TTY INPUT ROUTINE

(SP),s1S

;:1S IT A <CR»?

; ; BRANCH IF N?

;;gtaw«cu IF

YES

:;CLE

TACK

4(SP)

;s YES, IS }T

MOV

2(SP) ASKR

negs

HE FIRST CHAR?

vsflr:u

SCRLF

1ECHO <CR> AND <LF>

1 30

;;EMCH

86, SP

JSR

PC,STYPEC

ie) gete o
7166 035150
093758
0O00LO
7129 3351?9 %273 oooa

.
%9

8,
I e
e(gba

oD
i OTRIPOFF ASC
EE?S *mg’ms Sgsr CHAR

7169

ASL

(SP)

; s NO,

16
00S266

000002

17%:

ASL
INC

(SP)
2(SP)

104401
000720

001164

18%:

TYPE
BF

SQUES
208

ogs;

0321

BNE

158:
168:

7168

032160

001403

8%51 4

7173
7174

032174
032200

7171
7172

7178
7176

2177

032162

1
0321

032202
032206

0S6ble
000707

BEQ

ASL
177776

.DSABL

2178
7180

7183

;ig

;igé

032210
Q03ecle

0lle46
016669

?lgé
71

8,-!222'4
,12253

10037S
g‘ 766

7193
7194
7195

7196
7197

3eee0

0322
03
03

10577

000004

146720
146714

177600
000004

146666

0%9;;

10037S

032

6.1‘77%

7201
72Ce

032274
03227¢

00136E
0007cC

0,12294
032270

42766
%6627

7198

7199
7200

LSB

(SP)

RRRRRE R

NOT

;RE-ENRBLE TTY KBD INTERRUPTS

: sRETURN

; ;ECHO CHAR

; ;BRANCH IF YES
3

-2(SP), (SP)
78

EREEREREERRARERE RN

7188
7189

7190

BIS
BR

178

;

'E'“'If TTY KBD INTERRUPTS”?

SH;FT PRESENT
O\OIER

MAKE

¥
ROOM FOR
NEW ONE
; ;KEEP COUNT OF CHAR

;;SET
;sGET

IN NEW C
THE NEXT ONE

R DR

R RN R R R R AR R AR AR

;3 TYPE ?<CR><LF>
; s SIMULARTE CONTROL-U

RERRRERES

figg&f ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

7184

7187

RTI

38TKS

g’

#8100,

7161

147016

;;LET'S TRY IT AGARIN

MOV

7160

148:

19%

134

témm.u

71589

000001

118:

PAGE

CMPB

rd |

11:03

716
022627

146662

177e00
000021

000002

$RDCHR:

18:

000004

000004
000023

RDCHR

RETURN HERE

; ;CHARACTER

SINGLE CHARACTER FROM THE TTY
IS ON THE STACK

;s WITH PARITY BIT STRIPPED OFF

MOV
MOV

(SP),=(SP)
Y(SP),2(5P)

; ;PUSH DOWN THE PC
;;_Sflwf' THE PS

BPL
MOVB

18
JdSTKB,4(SP)

; ;A CHARACTER
::READ THE TTY

; ;BRANCH

;;LOOP UNTIL ITS THERE

#tC177, (5P}
(SP)+, k21

;,HRKg IT 7-BIT ASCII
:;IS IT A CONTROL-Q?

TSTB

BIC
CMP
c2s:

;3 INPUT A

?NE

STB

BPL

MOVB

BIC
CMP
BNE
BF

J98$TKS

81C<177> 4(SP)
H(SPJ,I?Q
a@$TKS
J$TKB,~-(SP)
23
1%

;s WRIT FOR

; ;GET RID OF JUNK IF ANY
;31S IT A CONTROL-S?

;;WAIT FOR

IF NO

A CHARACTER

; ;GET CHARACTER

;3
IF NOT DISCARD
;s YES, RESUME

RRRRRRRRRRIR
EHBRRRNESES :

Sy
T S

000140

000004

000175

000040

000004

oeois 000012

Bl o
%

MACY11 3?(10“6)
lsaaggfi£7
TY INPUT

000004

000040

020122
053s0S

3s:

11:03

Ell

CMP

Y(SP),s140

MP
g T

4(SP),#17S
-

8LT

ue .

RT1

SMSWR:

.ASCIZ

PAGE 135

#40,4(5P)

SEG 0134

;;1S IT UPPER CRSE”?

H_IF YE?

;3IS IT A
; ;BRANCH 1

;s MAKE IT
; ;G0

BACK

IQU/<1§)<12>
/tG/«1S <12

SMNEW:

.RSCIZ

.SBTTL

RANDOM NUMBER GENERATOR ROUTINE

<«15X<12>/SWR = /

; s CONTROL UTM
; ; CONTROL "G"

.RSCIs
.RSCIZ

gCNTL :
CNTLG:

AL CHAR?

R CASE
=

NEW = 7/

bboboabohobobofedobalfobofofafobe
y
bt
s
R Lt

1 RTHIS ROUTIgE é? 8 QOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

NN LW

52B

15-DEC-77 10:58

NI NN N NIN NI NN Y Cots
Ig'i

B¢ Pl

fururufurururuu

0 2(+33)-1.

;:gg{t A RAN

7eel

JSR

RETURN

e B

W
== WNNN

== 000000
[V [
T
e = =

A%
£

$RAND:

e e e

§§ODQDQO
PG: 390n
B
I EG800LEo6808g 358000 352

[A]

E;.E¥2
AR

‘e
e

RPO4/S/6 MLT-DR LGC

032464
032462
177771

032464
g3246e

:;PUSH RO ON STACK
:iPUSH R1 ON STACK
R2 ON STACK
:1PUSH

MOV
MOV
ASL
ROL
INC

SHINUM.RI
8-7,R2

;;gsr RI WITH HIGH
PISET §uxrr COUNT
;;su¥r RO LEFT AND
: tROTATE _CARRY INTO R1 AND
: :CHECK FOR

R1
R2

$0onum, RO
RI
SHINUM, R!

ADC
ADD

R1
#47401,R1

PiSET

RO WITH LOW

D MACEX 129
3N I BCARRY
;;333953395
::aDD NUMBER TO MAKE X 129

#1057 ,R0

;;ggo LOW CONSTANT

MOV

RO, SLONUM

::SAVE RO

MOV

(5P)+

047401
032464
032462

MOV

MOV
MOV
RTS
SHINUM: .WORD
SLONUM: .WORD

R1,SHINUM

(5P)+.R1
(5P)+.RO
PC
176543
123456

:PROPOGATE CARRY
:
:ADD HIGH CONSTANT
; s SAVE Rl

:1POP

STACK INTO R2

::POP STACK INTO RI
:1POP STACK INTO RO
: RETURN

SAVE AND RESTORE RO-RS ROUTINES

2222222222222 2222222222222 2222222222222 222222 st s ld

§¥SAVE RO-RS

:#CA LL:

sLONUM, RO

a6
ADC
ADC

ADD

: RETURN HERE THE RANDOM

: 'NUMBER WILL BE IN
: : SHINUM, SLONUM
RO, -(SP)
R1.-(SP)
R2. -(SP)

001057

.SBTTL.

: ;CALL THE ROUTINE

MOV
MOV
MOV

MOV

18:

PC, SRAND

SAVREG

RPOY-5.6 MLT-

C2RIDCO,

1s-o£c-7?flxb:se

:ERJgg.fixx
7259

i # #4--=RS
; # +6---RY

7265

(% +8---R3

7266

i#410---R2

7267
7268

iwe]2---R]
; %4 14---R0O

7269

466

7271

gxoows

7275
72

032476

010446
10546

032470
835372
74

16646
0l6b46

0325

016646

;ggé

032516

D32522

018845

032512

$SAVREG:

010146
gxogwe
01034

7e
7e
7279

000002

7287
7288
7289
7290
7291
292
7293
7294
7295
729%
;Sg;

RO, -(SP)

; ;PUSH RO ON STACK

RY,-(SP)
Rg -(SP)

:iPUSH R4 ON STACK
: 1 PUSH gg ON STACK

MOV
MOV
MOV

R1,-(5P)
ng,-(gp)
R3.-(5P)

MOV
MOV
MOV

22lsP), -(SP)
22(5P) . -(SP)
22(5P) . ~-(5P)

MOV

000022

RTI

22(5P) . -(5P)

:1PUSH R1 ON STACK
;;Pugn RS ON STACK
:1PUSH
R3 ON STACK

OF MAIN FLOW
: $SAVE
::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
:'SAVE PC OF CALL

: #*RESTORE RO-RS

;#CALL:

7284

7286

MOV
MOV
MOV

000022
000022
000022

7283
7285

;:upou RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
; RTOP==~(+16)

7
b=

7280

PAGE 136

i# 42---(+18)

7272
7273
7274

:03

-DEC-77
no-fié Eoutxues
AND 52595R£
3?930(1046)
H

[

726l

7570

MACY1l

F11

032524

032524
032530
032534
032540
032544
032546
032550
032852
032564
03
032560

‘e

012666
012666
012666
012666
312&05
012604
012603
gxesoa
012601
012600

000022
000022
000022
000022

$RESREG:

000002

RESREG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

_SBTTL

;ggg

(SP)+,22(SP)
(SP)+,22(5P)
(SP)+.22(5P)
(spyo,ascsp)
(5P)+.R
(SP)+.RY
(SP)+.R3
(SP)+.R2
(5P)+.RI
(5P)+.RO

:;RESTORE PC OF CALL
: RESTORE Pg oF CALL _
P 'RESTORE PC OF MAIN FLO
:'RESTORE PS OF MAIN FLOW
1P
grncx INTO RS
:1POP STACK INTO RY
:1POP STACK INTO R3
::POP STACK ¥Nro R2
1iPOP STACK INTO RI
:1POP STACK INTO RO

DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE

¥ FEREERRBREARERERER SR B ERARRE R R AR R AR AR R R R R R R R R R ERER AR R R R RRERERR

7301

7305
730

'ETHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
'#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

7306
7307
7308

e
L%
‘¥

JSR
RETURN

§$DB2D:

SAVREG
MOV

238e

SoRCL Ve
MOV
;l

7309

313

7212
7313

7314

032%e2
0325e4

022870

104412
oxseos

012700

000002

032742

MOV

#PNTR, - (SP)
PC, 3880820

: ;POINTER TC LOW WORD OF BINARY NUMBER
:: THE FIRST ADDRESS OF ASCIZ

;; IS ON THE STRCK

2(SP),R2

#$DECVL , RO

:;SAVE REGISTERS
::PICKUP THE DATA POINTER

::GET ADDRESS OF "SDECVLTM STRING

SEG 0138

MACYLL 3B i8R LereTRE S Thary 46 BecTha AZZ11 convERT ROUTINE

§§0012

eb7¢e
26

032660

CLR
SuB
SBC
§
BL
INC

R
(RY),R1
RSs
(RS),R2
33
R3

; ;CLEAR PARTIAL
: :SUBTRACT TEN POMWER

ggg

égw)o,nx

DEC

b4 RERE NS

NNNNNNN

fihll.ll )!

£
o

n
~N NNN

;;BR IF TEN POWER TO LARGE
::ADD 1 TO PARTIAL

; ; LOOP

(R4)+,R2
(RS)+ (RS)+

::MOVE TO NEXT TEN POWER

: 'RESTORE SUBTRACTED VALUE

2'0,R3

;;cunnc; PARTIAL TO ASCII

R3, IRO)+

i;SAVE

(PC)+

RTS

145000
35632

TO DO 10 CONVERSIONS

;;aoonggs OF TEN POMWER

=4 1

. WORD

BNE
CLRB
SREG

:
AR Rt AR A AR

WL R yotata

ITAATN]

;:SET

::PICKUP THE BINARY NUMBER

.s$TNPWR$Z,
Nfiua RY RS

MOVE

STNPWR:

#10..4

BIS
4s:

MOV

ADD
CMP

000060

00000000

; ;PUT ADDRESS OF ASCIZ STRING ON STRCK

:gg;:,sé

3%:

32742

RO,2(SP)

MOV
MOV

18:
2%

; s 00!

18
(RO)+

s
IF NO
: : TERMINATOR
;;RE?TORE REGISTERS

; ;

RETURN

;:1.0E09

92;00

::1.0€E08

118200

::1.0E07

9;1100

::1.0E08

ioaauo

::1.0E0S

gauao

::1.0E04

6750

:;1.0E03

éqq

::1.0E02

::1.0€E01

:;1.0E00

SDECVL:

.BLKB

.SBTTL

DOUBLE LENGTH BINARY TO OCTAL RSCII

SEG Ol13e

MOV

ggx

[

)

BE% 17
115S SDEE-77 1Boe

Gll

12.

; ;RESERVE STORAGE FOR ASCIZ STRING

R R R AR R

CONVERT ROUTINE
R

R AR

R AR AR R R

R AR

;ETHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TG AN

::UEEEGNED OCTAL RASCIZ NUMBER.
;

i #

MOV

JSR

RETURN

#PNTR,

- (SP)

PC,as$0B20

; sPOINTER

TO LOW WORD

;sCALL THE ROUTINE
; s THE

ADDRESS

THE

BINARY NUMBER

FIRST

RSCIZ

CHAR.

15-DEC-77
11:03
PRAGE 138
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

is:

MOVB

>—

HRSK
.,LOHER WORD
;HIGH HORD

.
; TERH

?
R IN DATA TABLE
H*S

g
"grlm
mse P?INT?R
1L
FOR FIRST

?ea%é: Rebtirde

RS
RS,2(SP)

nsx FOR THE LRST DIGIT
§
:!RSSYou

VDO
own-—+4
2

wry
B

0ccoce

AT ST Lo o
LEVEN CHARACTERS

- DI
DDWETD
-0
R

177770

L REGISTERS

0\
N~
0
wn

$0B20:

——OnNoWw
—w—
' OV

i ;POSITION THE BINARY NUMBER FOR

THE NEXT OCTAL DIGIT

,,HRSK QUT AL

00C0e0

SOCTVL:
.SBTTL

i MAK s THI? ¢

1160

PUT IT

; s RESERVE DAT

.BLKB

TRAQP DECODER

!lllilllll!lillIllilillllll!lllllllillllililli.llillll!i!l!iill

bR
IEE i THE ‘STARTING ADDRESS
PST
ING THE RDDRESS OBTRINED IT WILL
DESIRED
ROUTINE.

THEN

STRAP:

0ooo0e

0)'

S?RPQD(RU: RC

b
b

P),RO

(RO) RO

033132

wnn
oo

W
W

000

i s 2AVE

RO,-(SP)

e B

PRGLO0G
wwwwwg
FROR 200t

lGO TO THAT ROUTINE

000CO4

000002

;s THIS

IS USE

STRAP2:

MOV

.SBTTL

MOY
11

TRAP

7O HANDLE

(SP),-(SP

OF TRAP

1:60 0 nourxne

THE "GETPRI"TM

4(sP}, 21 SP)

TABLE

..GET RIGHT BYTE

,,POBéTI?N
FOR
ENDEXING

MACRC

:MOVE THE PC DOWN

..nov; THE _PSK_DCMWN
' 'RESTORE

THE PS5

30(1046)

MACY11l

DDDD~~uuul)

CZRJDCO, RPOY.5.-6 MLT-DR LGC
CZRJDC. Pl 1
1S-DEC-77 10:58

CZRJDCO,

RPOY-S-6 ML

CIRIDC. P11

xs—occ

bc;

MACY11 30(10“?)
1S-DEC-77

797

;q '

7434

8 3134

0310

7435

7436

;31Ng

33142

031254

3144

031802

; ;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUT%NE

TYPOS

;;CALL=TYPOS

TRAP+3(104403)

TYPE OCTAL agngg

TYPDS

;,CALL=TYPDS

TRAP+S(10440S)

TYPOC ; s CALL=TYPOC

TRQP#%(I wos) TYPE OCTAL

031776

SGTSWR

;;CALL=GTSKR

TRAP+6(104406)

GET SOFT-SWR SETTING

033150

031726

SCKSWR

;; CALL=CKSWR

TRAP+7(104407)

TEST FOR C

033154

1330232

DL IN

,,CN.L:RDLIN

033160

032524

033156

033162

032210

;;CALL=TYPON

SROCHR

032486

TRAP+4(104404)

; ; CALL=RDCHR

SAVREG

TRAP+11(1049411)

;;CALL=SAVREG

SOSPLY

000022

TRAP+12(104412)

TTY

TRAP+I4(104414) ROUTINE TC TYPE ERROR MESSAGES

E R R RR R

2:%3

.SBTTL

SINGLE/DUAL PORT RH!1/RP04-S-6 DRIVER (REV 1.0:

7455

; COPYRIGHT

(C)

R RRR

R RN R R R R R R R AR RN

1976

:DIGITAL EOUIPHENT CORP.
; MRYNARD MR
01754

;:gg

iAUTHOR(S): JIM LACEY/CHUCK HESS

;:2?

LR R

7462

;STORAGE FOR RPDS1, RPER1, RPER2, AND RPER3 ON AN ERROR "2"

7462
7464

033164
833162

00000C
210000

00cC
00CC0

000000

RPERRS
PERRS:
; TRBLE

7473

R AR R R R R R R R AR AR R AR R AR RN R AR RSN RS

OrRD
.WOR

0,0,0,0
,0,0,

OF DRIV; ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE

;DRVQCT)D IF DRIVE IS ACTIVE WITH A COMMAND

Z:;g

;DRVACT<«0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY (OPERATION

7476

032174

000

7478

032176

[s]8]e]

7477 033175
7482

;RPERRS+4 =
RPERZ2
;RPERRS+6 = RPER3

7471
7472

7479

;RPERRS
= RPDS!
; RPERRS+2 = RPERI

74ES
;:g?
7468
;:%g

IN SOF T-SWR

TYPEIN STRING ROUTINE

R R

7456
7457

(WITH SIGN)

SAVE RO-RS ROUTI

é:gg
'

R (RS PgR LAST CALL)

TRAP+13(104413) RESTORE RO-RS ROUTINE

;;CALL=DISPLY

S$TERM=. -STRPRD

OCTAL

DECIMAL NUMBER

TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE

SRESREG ..CRL
L=RESREG

027456

TYPE

WITH LEADING ZERGCS)

(NO LERDING ZEROS)

033146

79444

Z::g

STRAP2

THE ROUTINES CALLED

TYPON

033152

744

SEG 0138

031314

T942

7446

ROUTINE

§TRPAD: (MORD

033136 031300

Z:gg

;HH3

03332 033120

7441

PRGE 139

Y THE "TRAPTM INSTRUCTION.

7429

Z:gg

Il1

!THIS TABLE CONTARINS THE STARTING ADDRESSES OF

428

Z43e

11:03

033177
L

033202

000

00C

DRVACT:

.BYT

.gYTE

.BYTE

;DRIVE O

;DRIVE 1

;DRIVE 2

:DRIVE &

;DRIVE 3

748S
7486
7487
79

2489

; TRBLE OF
:
:
;

7430
7491
7492

033204
33
208

7494
7495

033210
03321

7493

749
7437

.BYTE

03320

000
000

03321
0331

000
000

DRVSTA:

.BYT
.BYT
.BYT

;ORIVE
;8:1
;ORI

O
é

.BYT
.BYT

:DRIVE
iDRIVE

§
S

iDRIVE

BYTES)

B
iDRIVE
iDRIVE 7

;DRVTYP=2

:DRVTYP=4

7206 paz21y

7807
033215
7508 033216
033217
033220
033221
033222
033223

000

00Q
00

DRIVE

IS RP

:DRVTYP=-1" IF NOT RPO4/5/6

DRVTYP: .BYT

.BYT
.BY

000
000
000
000
000

.BYTE
BYTE
BYTE
BYTE
.BYTE

-0

O
O
O
O
O

;

;85
iDRIVE

2
;DRIVE 3
9§
iDRIVE
iDRIVE
S
iDRIVE
B
iDRIVE 7

INITIALIZATION INDICATORS
15 NOT ACTIVE ON THE DRIVE
I INITIACISATION
;oggn#=oPORT
IF INITIALIZATION IS IN PROGRESS

15
sele

; TRBLE OF

:DPINT<O

7el?

033224
033225
03322
03322
033230
033231
D33e3e
03323

000
000
000
000
000
000
000
000

7528
7£29

DPINT:

.BYIE
BYIE
BYTE
.BYT
.BYT
.BYT
.BYT
.BYTE

O
@
0

;
iDRIVE
i DRIVE
iDR
DRIVE
:DRIVE
iDRIVE
iDRIVE

0
1
2
d
S

B
7

; TRBLE OF PENDING DUAL PORT REQUESTS
;DPROS=C IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE

7530

738

(DRVSTA=8

TYPES (DRVTYP=8 BYTES)
(DRVSTA=O, ALSO)
TEIF DRIDRIVE 4 RONEXTSTENT
;oavpvr?:o
RF
;DRVIYP=1

7832
7833
782
783¢
36
737

RL INE OR NONEXSTTENT

.BYT
.BYT

7603

755
7526

TORS

; TRBLE OF DRIVE

7500
7801

7€19
7520
7821
7822
7823
7824

VE
TA=
TR
DRVSTRA¢

.BYT

000
000

7499

7809
7810
7811
7512
7813

;ORIVE 7

"fiu

000

033203

PAGE 140

SINGLE/DUAL PORT RHM11/RP04/5/6 DRIVER (REV 1.0)

:23

7483

11:03

1S-DEC-77

MACY1l 30(1046)

honD

15-DEC-77 10:58

RPO4-S-6 MLT-DR LGC

388"

CZRJDCO,

CZRIDC. P11

'DPRQS<0 IF THAT A DUAL PORT REQUEST

033224
023235
033
(033237
033240
(023241

033242

000
000
000
000
000
000

dlald

DPRGS:

.BYIE
'BYTE
'BYTE
‘BYTE
'BYTE
‘BYTE

.BYTE

O
O
O
O
O
O

;DRIVE O
;DRIVE }
iDRIV
:DRIVE 3
iDRIVE 9§
:DRIVE S

iDRIVE &

IS PENDING FOR THAT DRIVE

SEG 0139

ZRIDC. 11

ZRIDCO,

1s-occ-79 10:58

RPON/S.
6 MLT-

;233 033243
754

000

. ué

MACY11l

: TH
:

(033244

000000

TRNSWT:

033246

000000

75?3 033250
756“ 1:

000

7555

SRCHWT:

033251

g?g
7672
033252
7575 033253
7878
7S
3255
B33see
?57;
33256
033257

3260
033261

7sa§

00g

ACTIVE

A KEY r

sncn

FLAG (ACTDRV=1 BYTE)

F DRIVER

000

000
908

000

000
000

7599

000

033264

33265

7288
7€80 O335cs
033270
033271

00O
000

890
00C
00C

IS ACTIVE

ACTDRV: .BYTE O
SOF TWARE T;n;f- ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
;r

ACTSTR: .BYTE

rmsum T;

SOFT

;UNLORD FLAG (ULDFLG=8 BYTES)
IF NO UNL

IF UNLORD C

:ULDFLG<O IF UNLOARD €
ULDFLG: .BYTE
O
.BYT 0
‘BTE
YT
0
.BYT
0
.ger

R ROUTINE

TIMER ROUTINE

IS INACTIVE

IS ACTIVE

:ULDFLG=0

0og

7865 (033063

7894

OPERATION.

IULDFLG>Q

7'.;|a~oEE 033

7€93

.WORD

;§3§

1/0

ncr TR>0

7568

758

.WORD

acronv»

77224

78
;gg
7581

THE

an8 §r &xv&n }s INACTIVE

gsr

;27

;DRIVE 7
WORD)

‘3;“ ONE uong’éu.c;fi IT WILL CONTAIN THE RDDRESS OF

;RP04/5/6 DR

rgsa

7*:.1E;;

SEG 0140

e"5
U ONE L
52018 O.
::E&.”‘ Sl
IVE 1S ASSIGNE
g'xrrLASO
'fimnf 37 Bt
8?‘35 O FOR DRIVE

7855

7865

11:

—— “ms Ysa(fi% THAT WILL CONTAIN

gs3
;ssgq

15-DEC-77

.BYTE
0O
; TRANSFER WAIT FLAG (TRNSWT=]

:“

Kll

meutxm g‘ofit mu/aggws/so&xv:n (REV 1.0
30(104%)

COMMAND

{n PROGRESS

N WAIT GUEUE
;DRIVE O
iDRIVE 1
;DR
:BRIVE
3
;DRIVE
4
:DR

‘BYT
:DR
‘BYTE
O
:DR
:LOOK AHEAD COUNT (LACNT=8 BYTES)

£
7

sLACNT WILL INDICATE THE NUMBER OF LOOK AHERDS PERFORMED

ACNT: .BYT

‘BTE
YT

YIE

‘B
BYTE
BYTE

:DRIVE O

fORIVE

:DRIVE

;oniv

:DRIVE 7

:SAVE REGISTERS FLAG (SAVEFG =1 WORD)

:SAVEFG <0 IF SAVE THE RH11/RP0O4-/S/6 REGISTERS WHEN THE

Y e ore P hEg

MACYIL 39i0N8)DUAE-RSST nuxxzfigsufgnfto‘xvsn (REV 1.0)
RATION

flS

5?:9 Iw?WEhf

033272

000020

SAVEFG:

.uono

(DPB+1Y4).

/S/S REGISTERS

SEG 014l
RS PER

; SEEK FLRG
(S;EKFG

Og 3}
WHEN%‘g&gl(
wggsgg Iéfl
T IN THE WINOOW

:sggxr
IF
ER WILL DO IMPLIED SEEKS,
:D cago ugauxuoou

033274

000000

SEEKFG:

.WORD

; TIMEOUT TABLE (TIMER=8 WORDS)
; THIS TABLE CONTRINS THE
3327

77777

TIMER:

g gé i77777
33

177277

ggaou

1772277

312

17727227

3306

33312
33318

0323216

.uong

-1

.WORD
.
.

-1
-1
-1

; DR
: DR
;gg

.MORD

177777

177777
177777

.
- WORD

177777

-1

;

-1

TIME ALLOWED FOR AN OPERATICON

H
;DR

iDATA T

8
oL'FE
Rg
¥n
*anusrsn UNDERWAY
Tuusou (WHERE
N=0 TO 7) IMPLIES DATA TRANSFEK UNDERWAY ON DRIVE N

DTUW:

.WORD

NDICATOR (DTUW=1 WORD)

-1

ok ié §R8L Eournxa% THE CORRESPONDING BIT TO EACH DRIVES

s ATTENT ou

(RTABIT=8 BYTES)

{ATTENTION BIT

~
L\

FROoioioe
o
W
~N
SBVERZERE

§ERRRSRRRRT

~
o

e Bt e Bt Pt Bt Pt P

~
olm docr'ele'olo! o
RR

leiel

otidetots B3
4B88IRR
88

033320
03332]
g;ag

333

001
002
004

ATABIT:

.BYT
‘BYT
JBYT

ég

'°¥¥s

?80

;ggivc 5

.BYT

3'112

588

.BYTE

040

200

npou/s/s TO RH11

03333C

000003

HCPEHX:

:DRIVE O
:DRI
:
DRI

.BYT

gfi:_"‘

3332¢

1
2
9

DR 35 ?

“MASSBUS CONTROL BUS PARITY ERRORSTM

(MCPEMX=1 WORD)

(MCPE)

ALLOWED BEFORE

.WORD

;STORAGE FOR RPADR (THE F IRST ADDRESS (77&700) OF THE RHM11/RPO4-5-8&)

iRPVEC (THE VECTOR ADDRES S
232
324

176700
000254

000240

RPACR:
RPVEC:

.WORD
.WORD

176700
2S4,5#32.

(254)),

AND RPVEC+2

(THE BR LEVEL

(5)).

CZRJDCO,

RPON/S. 6 MLT-DR LGC
CZRIDC.P11
1S-DEC-77 10:58

dlotolel olale?

033340

000004

MXLACT:

.WORD

033342

001000

MXDLTA:

MXWNDW:

.WORD

;MAXIMUM DELTA NLRY IS 8 SECTORS (MXDLTA=1 WORD)

HINXM DELTA éLRY IS 2 SECTORS (MNOLTA=1 WORD)
'mf( WCH FO& 170 WINDOW IS S SECTORS (MXWNDW=1 WORD)

033346

;DEFINITIONS OF THE ®M11/RP04/5/6 RDDRESS INDEXES

iz
RPOASS

NN
WO

R
%
e eI IV A g?? ot2 o

SEQ Clv2

;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD)

033344

BB
:
c
s RECTATERCORIVE REG. 0S)

RPCS221

} CONTROL

§{:14

:Efi
PATT

5:53. é

“3°9
Vel

=52
nrnnggz
RPON=30
RPOF

20D
W

GIST

)

iSTER (DRIVE REG. O4)

EBoSTHAIER el LG e

RPEC2=46

RH“/RPO"O/S/S DRI

[

nors THIS

an
)
g
¥E
H
RPO4/S/
ol
SRRl B, BT E
1

ROUTINE CALLS oavxnr

:CALL

:
:

agn

TURN

PC,RPINIT

INOTE: THE 'P’ OR 'L’ CLOCK MUST BE STARTED

177776
ggs;g
we

33164
3274

APINIT: SAVREG
177776

18:

4 DRIVE
RE

,§"=§§, sggé%s SEelelER (BRI 65 18

AN svar

'i baTA
"Eg%?T ER"
o fisc
)
MAINT
ILITY
xsr"g¥‘a
(on?eé
G. 03)
ORI
10)
35&'%?
CIETER CRee(ORIVErégsf REG.1VE)RECS
g

~
r

N A A A AA

M1l

15-DEC-77
11:03 PAGE 143
SINGLE/DUAL PORT RH11/RP0O4/5/6 NIVER (REV 1.0)

MACY11l 30(1046)

MOV
MOV
JSR
MOV
MOV

CLR

JWPS, -(SP)
o«s-5£.> J8PS
PC,CL gus
#RPERRS,
R1
#SEEKFG.R2

{(RI)+

;SAVE RO-

: SAVE ru:
g

seur Pnocssson STATUS
* 70 §
gu;s QUELES
rx ST
0 BE CLEARED
ILAST nooness T0 BE CLEARED

:CLEAR

N1l

ER%BE%T”“’?&‘-o&‘#" 5% MRCYIL QL L0NE ) nuAL BORT
2s:

251

771
771
rad S

B b,
-1, (R1)+

MOV

CHP

771

;

‘Es
;

TR
TR+2

CLR
CLR

TA+4
T

MOV

C.R

IF NO
ALL DRIVES TO OFFLINE

;SETUP THE RM11/RP04/5/6 VECTOR

ln )+

771

MOV

;FIRST
sBITOS, npcsacnw) nn§

MOV

000010

;; 3

5 :

éNC

tosge?
24

6S:

=
$§;s DPINT(R1)

33224

78:

77§§

ug:

;;
77
;;
77
77

1066

77
77
;;:é

8s:

177776

774

A
DRVINT
g !
1

TA(R1)

81C7,R1

?gn
DEC
BPL

SE s;r.xs
R1
52,

;gga

*
;

E T

or RH11/RPOM

" "r 1 x
OR PARITY ERROR
aneg T0 OFFLINE

2‘70 -

: MASK

=§““'
R f eTO suxrcu
cron PORTS ?
E
: T ure
No*rcuso PORTS ?
; DRT
: *o THE NEXT DRIVE
i CHECK NEXT DRIVE

9:1« (R1)

(5P)+,3PS

;
gr
THE PROCESSOR STATUS
IREST
RO
- RS
{BYE-BYE

:DRIVE INITILIZATION ROUTINE

; Hf§950u¥xns

TERMINES IF A DRIVE EXIST AND IF IT IS
AN
?fl/gfs
1
xrnés. A -assg-xn PEESET”
1S ISSUED AND FMT22
IS SET 10 A ~1". THEN'MOL,
Y
VW ARE CHECKED TO

7745
7746
7747

; NSURE THEY n&;

;;:g

010546

33570
033574
033600

033604

10506l
105061
010164

112764

03:
033214
033

000111

00000

VSTA

IS SET

MOV

VNIM, R1
R4
agnon

DRVINT:

CLR
CLR

336 YRCR1)
DRVTYP(R1)

:
:

7785
7764

033562
;;Eg
;zég 33564 10506l

7
77€]

7762

CLRB

MOV
RESREG
RTS

7744

4
7760
7761

5%5

(R3)

3s -

;;

MOV

SEG 0143

R1, k2

CLR

771
771

Rii/kPO/S/6DRIVER (REV 1.0)

L ON A é*.
THE PROPER

ey "0 DRI
LSTORNS
MOV

(
-(SP)

CLR

WLOFLG(R1)

move

#1l1,RPCSI(RY)

MGV

1,RPCS2(RY)

DEPENDING ON THEIR STATE,

CONDITION

;DRIVE

{UNI

ER TO R1
OF RH11/RP04/5/6 (RPCS1)
Ngsgnss

OCCURRED (PARITY)
ERROR
; NORMAL RE TURN
;

52?557
i CLEAR

‘CLEAR THE

STATUS
RS OFFL INE
IVE TYPE INDICATOR

UNLOAD FLAG

:SELECT A DRIVE

DO A DRIVE CLEAR COMMAND (8 SEIZE ORIVE!

EERIBE e, 1T Se 0ok -79“15‘;29
’753

m:i

Q :l
778

é"
é"“

?
O3

3744

77g

77
7791
7735

D3
33760

;;94 0337ce

7735 %fi
77%
7797

77
7798

7800
7801
7802
7803

023

7808

7
7810
7811

112761
1

03403&

G34040

0O
034054

7817
7818

024072
034074

BE#
SEO

033214

MOVB

8:"'5
CHP
Sto
MCVB

024022

177777 033214

000121
040562

2%:

)

105
&2705
003
12761
720

000410
006301

167077

000001

033204

6$:
7%:

onvmamn
;
INDICATOR
52602
; r«;;mson
5
824022, RS
:BRI’POR
RPOB *?
5%
VES
ET INDICATOR TO 'OTHER’
8-1,DRVTYP(R1)

£
8121,-(SP)
RO, WRT.RP

X1T
‘00 A "READ-IN PRESET"

RO,RD.RP

:READ RPOSI

(SP)4+,RS
¥

;AND SAVE IT IN RS
BRANCH IF ATA=0

4s:

H
:

92x

RPER1

033204

1,RS

; %
INDI5
PORT RPOY?
;mcu:
pom RPOY”?
:
|: nc% ro cAToR
;

;SET FMT22=1

ROL

177777

e
5

caxgg,-cspx

MOVE
JSR

006126

:50328""‘““
,RS
%%woao.as
TYP(RI)
1,RS

: qgoa nzrum

RO, WRT . RP

RPDS1
83
MOV
BPL

MOV
JSR

RPOF

15654
033320 000016
37 040406

100004
?85

ER
MOV
%ga

BSCSI

10000
0562

4114
01
10001

034114

MOVB
gcng
CHP
Rove
CHMP

p21021

7812
7813
7814
781%

7816

gg%m
033214
20
024020
033214
83%2%

33400
B3unes
37 040406
xg ggooxa

7804
7805
7

11
%é
i

“' DO

1
14
16

m DRIVE?

z;gz
7787
788

1T12,RPCS2(RY) i

: 114

7784

§g

aas"
,SET.IE
:ggunT A "TRE"
OFFLINE
%TRBQ 73881 TA(R])
u,n#csuma; xgsr?
%
nvnx nau:
Rgg
RO,RD.RP
1

7’;30

7774
':'77?.77
77;9
7578
ng

010000 000610

eDUAL BSET A1l RPO4/BE:o&?een (REV 1.0)

737 041066
1 883583 000000 18:
4
1514 040406

7;2;
7rsg
777

PRCYL 3

Ble

ARO,RD.RP
namnx) msmw
-CLEAR ATTENTION BIT
sFIND OUT WHY ATA=1
(SP)+

;1S IT UNSAFE?

geL
MOVB

4s
#-1,DRVSTA(RL)

com
BIC
BNE
MOVB

RS
HECK MOL, DPR, DRY, AND WV
#1C<BIT12!BIT08!BIT07:B1T06>RS’
6%
.gnmcu 1F MbL opn on« OR V¥ 1S CLEAR
81 DRVSTA(RL)
;r onxvs STA “E
tNE

5F
ASL

mb;

iBR_IF NOT
;SET UNSRFE INDICATOR
s EXTT

:STEP OVER

THE

ERROR RE URN

TEXIT
:CHANGE INDEX TO ADDRESS WORDS

SEG 0144

(2]

£ )y

RPOu-E/6 MLT-DR LGC

76
{?3
%

118
034116

1S-DEC-77 10:58

MACYLi 30(10%)

012761 003720 033276
ztgéB 033224
's

01l
000200

1 -ge

SINGLE/DUSL

8s:

Cle

aggq o&

PORT RM11/

DRIVER (REV 1.0)

/6/6

$2000., TIMER(R1) ;START S SEC TIMER
MOV
T INITIALIZE INIDICATOR
:SR
: gér;zmn
con
%
v
RTS

(SP)+,RS
RO

:RESTORE RS
TEXIT

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

Slalaiol
(et

CRLL

&fli%l o ey

%&S’g”?’!/s'fb?LS}?}VES PARAMETER BLOCK

#PS, ~(SP)
MOV
vECoa 28PS
MOV
@Wsc #1,ACTORV

;

RETURNZ

RPO4:
7777
137
177776
égggo
81§739
1 033250
H 7%

1
i

142
000016
194
615 g
122
1
1
033332
156 105761 033204
162 6839“ 033252
164 105761
170 001036

0
3‘3:5”

aS%
/

037

73;
: i

fi?e

B34 76

033204
033234

034412

73‘{

p3ss22

120000

83: 10 mgz1 041530
034312
034316
034220

18:

032714
001023
004737

000100
0410eE

RO, DRVINT

000016

3%:

4s:

5§:

gpxmuu)
3

STA
ING
nc
INTERRUPTS
n?o-vgss
;; n%fifi"km
DRIVER* FLAG

pmrea
THE
g"?rK POINTER
s?"%
THE
.fidf’

gus

C 1

cr: K DR vs& TATUS
"f
aan%
N QUEUE?
: UNL
e§
H
;

INIT THE DRIVE
;?n"v" 'nc:
YE

'BR
:GO

INIT. THE DRIVE

Tgnu

R1,RPCS2(RY)
RO, DRVGUE

:1PU#gr"2uszomvs
QUEST IN QUEUE

gxa

goa.ama:

;

S
BR

ggvh (RI)
,OPT
8%

ggn

PC,C17

;GO mes THE PARITY ERROR

BR
BIT
BNE
JSR

sBITOE, (RY)
PC,SET.IE

‘1S 'IE’ SET ALRERDY ?
1SET INTERRUPT

BEEB
;aga

MOV
JSR

000002

77777 033252 2%:
33174

37
000440

JSR

§n

041530

21
fiag
85”«5& 8&;";
034264

033562

000102

DRVSTA(R1)
18
ULDFLG(R1)
3

BNE

10164 000010
60 762

CLR

(RO) ,R2
16(R2)
‘RS’g",!...

MCVB
MOV
1ST8
GT
STB
BNE

1578

75; 033224

104

MOV

RgWEfi ém&%‘ST IS IN QUEUE CR THERE

MOV
é,s%

22"

JSR

gsvsm(nn
g:nosmu
9

;
:

Fx
Tz;

‘?&‘#‘

. TATUS ONLINE”
ING PORT REQUEST FOR THE DRIVE °
FELL

ngmne

FOR AN UNLORD?

ORD IN QUEUETM FLAG
T
;?gr
5-1 &on,cmn ER
TM"Eo IVE ACTIVE?
ALL THE

OPTIMIZER

ogms'ama xsmex.SET THE "UNLORD IN QUEUE"” ERROR FLAG

Sa.onvous
3g
£5

s{QUEUE
PUT REQUEST
IN QUEUE
IS FUuLL

‘BR IF IT IS

SEG 014s

c§;JgEo

RPOY/5/6 MLT-DR LGC

CZRIDC.P11
78

15-DEC-77 10:58

324

000420
7?1

7?81
7§3§
7884

7885

7883

6S:

000016

;E;a

11:03

MOV

9§§ 100002 000016
2755 110000 000016 7%:

Dl2

PQGEDéfl7

ggv
MOV

TA(RL)

n£§a£c

034379

109413

as.

Resrec 108

034410

000200

(RO)+

i8ISl
o 098,
MOV
(SP)+, a8PS
RTS

;RETURN, REGUEST IN QUEUE

szx}r DR

§1

;ggé

034412

104412

7901

034420

146137

;903

034432

7907

ugs

;g?g

03445

7900 034414 013746 177776

033320

7902 034426 6ou737 041604
|

ber:
033246

000100

oouo;g

033562

7913

9s:

737

7914 83:375 812752 1»0358 000016

2316 O3uelo 1006ey 03%e0d

;3i5

ggzgx

725

110000

7919
7

0
034526

12746
009037

000111
040562

000016
18:

73ce

42
oawggg

1427
xga73g

0349

ooe+03

034Se2

005727

000150

Rl Mg oo
7823
7930

024See

002012

033316

;:DRIVE NUMBER TO Rl

MOV

SAVREG

8PS, -(SP)

; SA

ATABYT(R1),

srRcHut

:CLEAR “SEARCH WAIT" KEY

EEE

;IS T

s REQU ST IN QUELE?

ggg

:e T6,RPDS1(RY)

éésxgvx

Is’

RO, DRVINT

;gss ¥§ °"IYEVE!’hBT°2E¥"E ?

MOV

PC,POPQ

: NO-~

ggn

Bp
JSR

; GE ;EE%"

INTER OF REQUEST

#BIT11,RPCS1(RY)’
B'm-is DVA
SET?
108
; BRANCH
T

fewan

BB athe

REQUEST FROM QUEU

lgiTIS!gngfl.lstkf) . 9 5FFLI

STATUS/EREOE INDICATOR

gg:rxszaxrxa,xs(hsa

i3 08 T

MOV
JSR

#111,-(SP)
RO, WRT.RP

:LOAD COMMAND ONTO THE STACK
:LORD THE REGISTER

BIT

#BIT11, (RY)

§onxv§ nvnanafg ?

2%:

-sn3§ ggoc.ngrnrus

ggv

BEG
gnga

PC,GETREQ

:SETUP A COMMAND

i STs
gecs:

7523 333236 882714 004000

7924
7925

oonvn¥n,n1

BIT
BEQ

000012

Bl R Ll o

PC,OP

JSR

7905
333332 001407
30 §25 004000 000000
7906
034444

OR NORMAL RETURN

JSR

BIcB

17oa

INDICATOR

:RETURN TO CALLER

:CALL

7893

ERROR

$! RETURN
CORmRCT THE
€ L AOORE'SS
“fis~v$o u£¥E LEVEL

7895

MOV

RTOHE RO I"Sg —y

:OPTIMIZER-CALLED FOR A PARTICULAR DRIVE
:

OFFLINE OR UNSAFE

55 e ccn e

;gga
7896

SEG O14e

agxrxseaxrox.xsth ) rHREROR
IVE NONEXISTENT
- sBIT1S!'BIT12,16(R2) : xxs IS
E

720

DRIVER (REV 1.0)

ITIS!'BITIN, 16(R2)

7889
04408
10203% 033250
7890 033483 6?3237 xgggrs
gggé

15-DEC-77

SINGLE /DUAL PORT RHM11/RPO4/S5/6

033204

17e§ 440900

MACY11 30(1046)

TST

BGE

c§
5§so.e(na)

DTUW
4g

E§E¥OUE§?§E STATUS/ERROR INDICATOR

RIS G

:BR IF NOT
;52
neoaesr FOR 1,07

;

YES—--BRANC

Rkl oCgge ITIAToR

‘DATA TRANSFER UNDERWAY?
'YES--GO START A SEARCH

CZRIDC.P11
CZRJDCO,

xs-occ-79Rxb=sa

RPOY/S/6 MLT-

7931

;gg;

;g
~qy

3%:

;3:

023420

7345
7946

355
goox

7947

03466E
034670

413
000207

ouxggs

177776

7953

033276

798¢

ag
4
PC,CI1

,§§ 22"
A panxrv ERROR
;
:
n DAT nnusren

ASL

ouvg

JSR
BIT

oeigos (RY)

JSR

PC,SET. IE

BNE

MOV

RESREG
RTS

:COMMAND

7954

oo IHPLIED sssxs'

ggv

8s:

: CALL

e ,C13
8-1,DPRGS(R1)
R1,R3
3

(SP)+,a8PS

MOV

#DRVNUM, R1

7958

JSR

pc,ct?

7959

034672

004737

041626

034676
83:7
7

010237
81 03
13704

033244

7969

034714

825703

034720
0347

7974

7976

034740

7978

794

7972 0347
7973 0347
7977

7979
7980

7492

865 39

034766

035522

034770

034774

016246
000000

010137

000127

S THE PARITY ERROR
;szsi *1E’ ALREADY SET
iBR IF SET

{SET "I1ETM WITHOUT A "TRE"

;gEsrons PROC.

STATUS

{RESTORE RO -

;DRIVE NUMBER

:ADDRESS OF DPB

:CI1?= CI1,CI13, OR CIY

!CI1=DATA TRANSFER

:C12=SEARCH REQUES
ED BY DATA XFER

;CI4=NOT DATA TRAN
JSR

PC, POPQUE

;REMOVE REQUEST FROM “DRIVES WAIT" GUEUE

033332

R2. TRNSWT
R2 R
RPA

:PUT REQ. IN TRANSFER WAIT QUEUE
;gge nogsss T0 R3
;
§‘
B

000004

ADD

4'R3

;

(R3)+.
(R4)+
(R3)+ -(SP)

Y
aurgs ADDRESS
:LCAD §£croa AND TRACK

MOV

nx nptsa(nw)

000002

ADD
MOV

c
2 RY
(R3)+, (RY)+

040562

JSR

JWRt.R

03SS22

004037

034764

79BE

034760

7982

7985

000034
035522

034754

7984

012324
12 w;

750
762

7981

7982

04
015329

xnsn

MOV
MOV
MOV

7968 034710 010164 000010
7970
7971

CI1:

; WHERE :

;

7965
?
796

s0PB,R2’

738

7964

MOV

;

7360

7961

.srnnr a
:ggugar “ESSSET INDICATOR
05

INITIATOR

;goooorxn:ncnai xt? ART xo SEC

795%

7957

SEG 0147

SEEKFG

ggn
MOVB
MOV

6%:
7%:

11:

18T

035000
4s:
177777 033234 5§:

7950
;3§é

1S-DEC-77

?2‘

034672

Ele

32 2 ORT nuxxxngguxs/so&xvtn (REV 1.0)
30(1046)

036056

?93;

7949

MACY1l

033274

;335

7948

MOV
MOV

RPDA
c1?

040562
000002

040562
033316

035464

MOV

RPCA
c1?

MOV

JSR

RPCS1

c17

MOV

IMP

{SELECT DRIV

:
L

51"58038“

;c§5t
:

COUNT

OUNT

HE LOR?(HRITE) ROUTINE

INDEX OF

:ERROR RETURN RDDRESS

(R3)+,-(SP)

:LORD CYLINDER ADDRESS

2(R2)

;LOAD “COMMAND+GOTM,

RO,WRY.RP

-(sp)

RO,WRY.R
R1,DTUW

cIg

"A178A1&TM,

:SET “DATA TRANSFER UNDERWAY"

AND "PSEL"

MY FBIAGLEoukl PORT i1 }APBuS7E ORTVER (R 1.0)
C13:

0Se2

ggga

,WRT RP

MOVB
ZEQ

MOV
cl

18:

MOVB
CMPB

33
2(R2)
#131,R3

000010

MOV

10(R2),=(SP)

BNE

000105

18:

000012

040562

3%:

000103

036250

112761

000001

02€28c

4s:

000117

1522
682703

10S0E!

033204

BNE

JSR

RG,

cl1?
BR

cle

BNE

4§

MOV

CMPB

033174

:SET “SEARCH WAIT" KEY

!g?cxuv ?fiéVSEQUESTED COMMAND

115 IT A SEARCH COMMAND?

:BRANCH IF NO

:LOAD DESIRED TRACK 8 SECTOR
:GO LORD CYL INDER

:LOAD DESIRED CYLINDER

#115,R3

: BRANCH £r NO

;18 {’ AN “OFFSETTM COMMAND?
IBR

IF NO

RO,RD.RP

‘MERGE THE OFFSET VALUE INTO RPOF

1(R2;,(SP)

gvre WHEN

cle

CMPB

#117,R3

CLRE

:START A SEARCH

12(R2),-(SP)

BEQ
CMPB
BNE
MOVB

DESIRED TRACK & SECTOR

:1S IT A SEEK COMMAND

RO, WRt.RP

CMPB
BEQ

LOAD

rus agflgsrso SECTOR WITH

#105,R3

JSR

RPOF
c1?

000107

oggng

CMPB

MOVS

0Se2

g?gr

0001

#131,-(SP)

RO, WRT.RP

JSR

040406

0, WRT.RP

JSR

RPCA

000115

1016

THE

040562

03524

;coMB

gIgBIT(RX).SRCHHT

000131

2703

-lSP)

gésa

033246

0352

oga. R3

R3,

D CYLINDER ADDRESS

; PICKUP gscron ADDRESS
MAX. SEARCH FOR 1,0 WINDOW
: BACKUP

RO, WRT.RP

MOVB
MOV

040562

gggsaa

).ng
3

JSR

000001

000131

3325

10
T§

JSR
c19

835%52

220
035eee

RDD

MOV

‘olnzx,-(sp)

;RPCS1 ADDRESS

‘35&532 oaxv;

Axlus).xtspa

RPADR , RY

né RPLS2 (RY)

000026

MOV

@
(=

0w
O

6%
33

NN EWN—-0O

iel

; 5
ratetatated
BEEgEssss
gEREFREER-E
Jii
SR
R§ a8

%, 10 Teolt

Fle

#107,R3
cle

[ {3
#103,R3
3
81 ,DRVACT(R1)

DRYSTA(RL)

:BUT DON'T CHANGE THE UPPER

LOADING THE

EGISTER (RPOF)

:GO START THECOMMAND

~ncanxanan" COMMAND?
A
(1S IT
:BRANCH IF YES

:1S IT A RETURN TO CENTER?

:BRANCH IF YES
115 IT AN “UNLOADTM COMMAND?
.ennncn IF
NO

:SET THE DRIVE ACTIVE INDICATOR

‘PUT DRIVE STATUS TG OFFLINE

s€a 0148

c!fl:gg P11
CZRIDCO,

xs-o:"éqrxh?ga

RPOM/S/6

8043

MLT-

000001

805

000143

“

0001

gossé

gggg
807
807
807
8074
8075
80;;
80
w;g

8%4
404
406
qiy
416
035422
“
“
Y4
4

8‘53705

'022

&gcgg;

8084

035462

000207

g
208
8089
8030

83?"53
Y
035476
832

2781
1
112761
7
103496

8320
A
8081 0354
Rt

035464

8091

035510

809
8094
803¢S
809
8097

"3533
gas
355235
0355
036632

809¢

035514

C2SE34

1253
1418
764
2703
1405
37

3§:

035372
000002
00014S

§5

;RE

MPB

is”fior

037

0000

35522
032764
001034
00&702

800751

00140S

001750

033276

000001

033174

040562

010000

tcu;gsx

MOV

1(R2),1(5P)
no.un?.ng

;COMBINE

“FMT22"
cx*
AND "HCI"
:LORD "FMT22",
Ec?
on
“HCITM.

128
#141,R3
108

xr A -csr REGISTER" COMMAND”

&(R2),R3
10(R2),9%
&11( ) RS
,RD.RP

oxn o 1sr s('.s OF WHERE
.xn r nzxggx
FOR?n: r RST REG.
ngg-o,é"’
nscxsr:a

(SP)+, (R3)+

.csr THE

CONTENTS OF RH11/RP04/S/6 REG.

?Pk

;

gEHOV’E‘RESMFROg.e
:SAVE THE nmunpows,s REGISTERS?

138:

RTS

nerunu 10 USER

Clb:

MOV
ASR
MOVB
RTS
MOV

#1000., TIMER(R1)
;SET A ONE SECOND TIMER
R1
#1,DRVACT(RL)
;SET THE DRIVE ACTIVE
PC’
RETURN TO THE USER
R3, -(SP)
! LORD THE COMMAND

cis:

Bie
rs?
S

ASL

JSR

RPCS1

000010

:RERD Tu&
OFFSET REGISTER

',’,S:';S;‘“,’E(Ra,
SAVEFG

78 Dooses ooooie 2¥
737 033272

006301

MOV
MO
MOV
JSR

,RD.RP

:5 ~ssv romm- COMMAND?

;&a§r
. BEEN RERD”?
;
ou
: INCRE
n-; INDEX BY 2
:LOOP=-~
(IS ITA
LECT DRIVE"TM COMMAND”
:BRANCH IF YES
:LOAD THE COMMAND

108:
118:

040750

BR
CMPB
BNE

#143,R2

9§, RS
i2$
82,98
8s’
wos R3
ng
-

522
9

;SET "UNLOAD IN PROGRESSTM FLAG

:START THE "UNLORDTM COMMAND

CHP
BEQ
AOD
R
MPB
BEQ
MOV
JSR
RPCS1
c1?

035372

040562

81,ULDFLG(RL)

53"“?’
‘wrY.RP

MOVB
gpsgr

6%:

Gl2

PAGE
T mufkgswsa
o‘?esn (REV 1.0)
11

ngx
J

c1?

000001

000006
78
000010
035372
8300 1
04
8s:

8068059

]

5§

000141

9085

MOVE

c1?

8058
8059
8060

808

RPCS1

040406

8068

033252

32 8
: ou&.
30(1

040S62

fig

8064
8065

MACY11l

CI7:
18:

c1?
BIT
BNE
75T

BEG

C,SVRH11

RI1

BRRNCH IF NO

YES--GO SAVE THE REGISTERS

RO.WRT.RP

cIS

#81T12,RPCS2(RY) _;DRIVE NON-EXISTENT °
R IF YES
[-H]
nnvmmc IN QUELE *
cI8

CI7B

:BR IF NOT

SEG 0149

033174

18:

gxég 832246 8?5703 ‘033244
ai%é
123

Eggggg

Eggaég 033316
041604
7

OgITIERPCSZ(RH)

lflq ]

gzx.oruu

AJ. -

PrL

000010

MOV

010000

nLon? RE?UFans

F uaz BnévELE
r

C"Z
CR

gt.orua
GETREQ

ggv

géxrxs'axrox 15(A§e529 *DRIVE NON-EXISTENT® INCICATOR

535
CLR

CLRB
gg

§£1
DTUW
TRNSWT

éés
xnoxCATOR
1CL an r
rnnnsrsn QUELE

ULDFLG(RL)
:CLEAR uugoaoLAG
gEITle,RPCSE(RH) aé'?FD'ssET ?

INC

iMOVE TO THE NEXT DRIVE

MOV
CLR
JSR

E v

$-1.DTUM
TRNSWT
PC, CLRQUE

:BRANCH IF MORE DRIVES
NO
Tn TRANrsns s
*TRANSFER WAIT® oueue
CLsnn RLL OF THE nsouesr QUELES

;giros RPCS2(RY) 680 ?Nflgsseus INIT

JSR

PC,EMPTYG

iCLEAR THE DRIVE'S QUELE

T I

MOV

DRVACT(R1)

?gnsur EH

;

;xxsv

033316

nééotuu

t
g
aixa

177777

iGET THE "TRANSFER WAIT" QUEUE
X

033316

:EMPTY THE
OAD IN GUEUE FLAG
T QUEUE
ofi?“fl

el
—unm

11
118

EMPTYQ
(R1)
brL
ACT(R1)

%38 3.2

§ii§8

cxesx

c
CLR

041510

E%§§§§ £

111

7= ~§5§
S

gxxo

8108
8188

1
;

1
1

SIS
LT
onx CLEAR"
-rap el
n611

(4]

aios

Eg%4

e c178:

SCG C1S2

1
104

0 @R
[41]

(g 1

MACYL1 30(1046) 1S-DEC-77 11:03 PAGE 1Sl
SINGLE/DUAL PORT RM11/RP04,/S/6 DRIVER (REV 1.0)

oD
D4

CZRJDCO, RPOY4/S/6 MLT-DR LGC
15-DEC-77 10:58
CZRIDC.P11

;§£ rnxfrogév: HAVE AN 170 IN PROGRESS?
B POINTER
IGET

GE 33:
Ry 010000 00G0iC . 522
iR531712 RPCS2(RY)';éggfiw
I
R,
; 'NED’ §sr ”?

§;§§ 832298

g%sg §§§2§§ §Z§za§ 100002 000016
8130 035710 0l2762

102000 000016

3%:

MOV

oaxrxs-axrzo 16(R2)

E PARITY" ERROR INDICATOR

B BRs R MO o 0 2 T 58§555"1193P°“'5f° ECISTERS
MR
B B
6D B e i

8{32
8137

;32
,§98§37 033244
177777 033316
750

81
gi

754
5;22

1
15 ?

033252
D1000C

gl4]1

035770

g145
a1u9
Bl4

004
xs
1

737
9 7
4737

177777
033244
041432

737

041510

6%:

7%:

8145
032776 0usr01 19999
144 036002 001316
gi:g 8
gisc

03608z

104413

5%:

S
BNE

033316

§§q38: 000040 000010

iel
[peel Gl
41066
oasgws 60493%
e:sg oxbe
E1E8

000010

G
%n

RESREG

]
15 '

EARGD
,SET. é
9

ELERE
W RETHEi poroos
“IE*?
§§§
H

:RESTORE RO - s

GC
CZRIDCO, RPOY. 5.6 MLT15-DEC-7 xb:se
c!n:gg.flu

MACY1l

}

15-DEC-77
30(1046)
9‘031 RM117
’&N&S/w&

RTS

§i§ 036054 000207
.

:CALL
:

3125

MOV
MOV

%rm
TURN

8122
13704 033332
167
0010
10164
832823
§1sg
1% gasoss 004037 040406

gxsa

164

8177

030006 000012
036074
76 83252352

e{;;

oas{xo

ef“x’

oasizs 006203

0361

gigé
102 001037
8174
817% gas”xou 105261 033262
655137

033262

162033 000010
3§1é§ 500
gxn
8179 036l
3

31§§ 8%1%
aas{w

gigg ficig

8188

037

seso“ausi’

184

osgm

8191 036166
192 036172

3703

2189
190

036160
036164

8193

036174

685061

036202
036204
036206

005720
000402
004737

8194

195
B19€
197

/5/6 dficn (REV 1.00
: RETURN

:LOOK AHMEAD ROUTINE

515
1

gig

Il2

11:03 PAGE

036200

703
ewog

5720

gigg 036212 000200

JSR

RO, LA

MOV
MOV
gn

RY
RP
m,gptsamm
RO,RD.RP

cCHP
BNE
INCB

(SP)+,12(R2)
3s
LACNT(R1)

TURN

033340

033342

18:

033262

2%:

033344

38:
4§:

035522

5§:

538?

A
:START
:START A

WINDOW

SEARCH
DATA TRANSFER

:GET RPCS1’S ADDRESS
;%Lscrjé%vs
NT CYLINDER
:READ C

R
RET c“vunosnso:sms
o
?mgglfil
E%sRROR
NO
E%Pft
; ucni NT THE LOOK AHEAD COUNT
pa&

ggg

:LOOK AHEAD REGISTER

JSR

RO,RD.RP

:READ LOOK AMEAD REGISTER

{?’”"‘3

;CALCULATE THE DELTA

#¢22.%64.>,R3

;MAKE THE DELTA POSITIVE

RPLA

002600

:GO CHECK

: mflsn RET

%QCNT(RI),HXLRCT ézscs

MOV

M0 177778

;onxv§ NUMBER
:POINT _TO m

ggf;a

MOVB
SWAB

0404

#DRVNUM, R1
ogpe Re

ADD

CMP
BLY

&Sma),na
3
8340, I8PS

MXDLTA,R3
3%

CHP
BGE

MNDLTA,R3
k! ;

TST

(RO)+

CLRB

187
BR
JSR

RTS

ossfnso §:c1on ADDRESS ANC
IGET
IMULT. BY b4--ALIGN WITH

:PRIORITY LEVEL "7"

:CHECK THE
DELTA TO SEE
(IF IT IS WITHIN THE

' WINDOW---1F YES, ZERO
: THE gfoox AHERD COUNT
TAKE THE 1,0 EXIT

LACNT(R1)

‘AND

(RO)+
5§
PC,C17

;ADJUST THE RETURN ADDRESS
TEXIT
:PROCESS THE ERROR

*RETURN

: INTERRUPT SERVICE ROUTINE

¥ 112737
3285
8%552
104412
8204 036224 013704

30
'g

g2
B208
8203
€210

0362
036242
036244
036250

013701
403

004737
00040
004737
104413

000001

033250

ISR:

033332

033316

036260

036542

13
23

MOV

#1,ACTORY

MOV
BLTY

DTUM,R1
18

snvSsc
MOV

JSR
BR
JSR
RESREG

RPADR, RY

PC,TD
2%
PC,SC

:SET "ACTIVE DRIVER" FLAG
;sSvs
RO - RS
:ADDRESS OF RHSCS!

;csr “DATA TRANSFER UNDERWAY" INDICATOR
'BRANCH IF NO DATA TRANSFER UNDERWAY
:CALL TRANSFER DONE
TEXIT
:CALL SPECIAL CONDITIONS
:RESTORE RO - RS

ZRIDCO,

RPOY./S.
6

EIRJSE.M:
8211
i

036252
036256

MLT-

15-05"6—79 xbcga
105037
000002

MACY11 30(1046)

033250

CLRB
RTI

ACTDRY

036260

ggeo

gg
82

033316

10:

033276

MOV

DRVACT(R1)

ser DRIVE

8-1, TIMER(R1)

-cmc:L TIMEOUT

a;x.oruu

ASR

"53

oax 07 u(-, ))

MOV
gm

000016

aag

CLRB

2&\:

JSR

r#nsut
R2
T

RPCS1

eagg

ROL

(SP)+

BgL

sgvsrc

Jga

PC . WC

8227

c1?7

aaaé
gg

823S
82

4
0353;8

N
8239
8240
8241
B242
EER!

79
76
wgs
Y4
036412
8%“3

824S

8oy

18:

03
37

012714
57
62
004737
737

42
12714
012714
036432 005343
036426

000113
100100
041510
8:0750

000016

2s:
3%:

0111

001424

WC:

eztsc;EE 036462
oouo°§7
041530
g
24

18:

036

g82%

434

wg
4

825
gese
9323

Y
474

26l
eess
826
B2e4

036510
ogg é"
8
4
036832

2522

JSR
15T
BEQ
JSR
BR
MOV

BR
BIS
JSR
JSR

C,SVRH11

ACTIVE xnoxcmon T0 IDLE

NO DATA

TRANSFERS UNDERWA

032 FROM THE

cg 5 UE--CLEAR QUEUE

SELECT

?E :a'fnggnv'fn:=1)7?
;

F%unpows/s REGISTERS”

:vs
--;ng57:
THEEn:cx
REGISTERS
EE
10 BE PUT IN QUELE

PC.GETREQ
R2
L
PC,OPT
s¢’
8113, (RY)

;

sadlll, (RY)
8113, (RY)
sC

SSUEA “DR
c%sna"
0 THE DRIVE
:CHECK FOR OTHER DRIVES

smnv

oa DRIVE

&5 oprn

c
K
IVES
SC
cnec on 9 »%n
onxves
oams'anas 16(R2) sstrgn A
FLAG
PC,EMP
Em?
“DRIVE' s mn- QUELE
PC’ svnm 5
AVE m: RH11/RP04/S/6 REGISTERS
xssue A REL

;FORCED WRITE CHECK ROUTINE

8261

eess
aesg

JSR

MOV
MOV
BR

000113

gzg

8250

;CLEAR "ACTIVE DRIVER" FLAG
:RETURN

: TRANSFER DONE ROUTINE

Ji2

sxmbw& 983 mumgs-vs/so&?esn (REV 1.0

{;-'

1S-

036540

00S737
5437

762 000002 000024
f’
000003 000024
1404

61
1

000016
000234
000012

15276

000010

Ole2be
1427
14276
000207

000010
8800
002

888857
2
00024
00002
000002

2%:

1ST

BEQ

CHPB
BEQ
CMPB

AUTOCK
2

82, SCODE (R2)
1
ss.scoosma)

;AUTOMATIC WRITE CHECKS ?

:BR_IF NOT

.LRS op;nmxou WRITE DATA ?
;
?
hgslrozemnm ON WRITE HERDER & DATA ?

a.rsaE

RO,
DRVQUE
as

MOV
BICB
BICB

ssecma) smsv (R2)
:SAVE SECTOR mo TRACK ADDRESSES
82, SCODE {R2)
;C
WRITE TO CHECK
w2l connomsa
:CHANGE DRIVER CODE TO WRITE CHECK

BR
LR
MOVB
MOV
BISE

RTE

RS
;RP (na
CYL (R2

uo COMND (R

Epur
T opsmuon IN THE QUEUE
;oucg S FULL

ck
R£v6< )
EV ¢am )

"DONE’ BIT
DPB
53“
}'opsmmon CODE
VE CYL

'FINISH CHANGING CODE TO WRITE CHECK

TEXIT

SEG 0152

MARCY11 30(1

)

1S-DEC-77

11:03

PRAGE l?

SINGLE/DUAL PORT RM11/RP0O4/5/6 DRIVER (REV 1.0)

;SPECIAL CONDITION ROUTINE

000016
040406

SC:

MOVE
R\

041066

000001

28RN L ®28 23T

SRS EEOEE

SC3:

—

NNNN

CRRRRRReE

00 (0 00 00 (D (D (0 (0 (0 (D
WWWWwWwWwwhwWwwwuw
LA AU A T e e e el o Sl Sy Sy
- OWDLNCNLW-0O

0
W

[+
W

389&a8asSRR343

SCY:

1393

cLz

RPAS(RY),R3
,RD.RP

;READ “RPAS”
;ggmcu IF ANY "ATA®
BITS SET
:READ CONTROL AND STATUS REGISTER

(SP)+

;

Pg.s:r.xe

;

18
g

-(SP)

MOVE

R3, (SP)

CLR
IT

Rl
"85‘5"‘

MOV

Inc
fi
?

81.R3

Eé’
SC3
(SP)+

:
;

W 6“

no{ 2
10 c
CK
!f ERRLPT

: £§s
ALL DRIVES THAT HAVE

mg:w

nSv: 0 Tus NEXT DRIVE
:ng;'
TO CHECK?
o
A érF MORE
THE STACK

@“sx

033224

SCS:

R ?
TST8

PC
DPINT(RI)

fizg

033234

18:

ETB

e @S(R1)

Pomrns

0S761

033204

2%:

rga

ggvsmmn

i Cx

"2“

PC,GETREQ

1.95 037520
1

g;wsao

1 033252

7737

95“0

C13

BLESTB u‘on.cmn
S
J3R
JSR

7450

PC.SVRHI
1
PC.SC12

;
gm USER
gx ;% ING THE DRIVE ?

SS THE onx

ST OUTSTANDING 2

OUTST

DRIVE
S

s BRANCH r nor

:unL Mss’
iGET_DPB_POINTER

11/RPO4/S/6
REGISTERs
RPER2, AND RP

“CE“i

k T (DRVINT:
v: NE"

05761 033204

EETQ

2nvsmuu)

;
’30

wo;
;3

BNE
IMP

§pé$a

‘BR é‘ RROR
: NO

59 040000 033164

0S5
76

037360

033166

38:

60 75;

033174

5§:

004737

037450

6857“
1321
xgg:vgé

033224

102

327

59“
1274¢

004027

MOV
gn

STB

3fl

S+2,RS

VACT(R1)

:YES -- P cxgp RPER! AND
:GO PROCESS
THE ERROR
;g:xvs

033204

1578
BNE
5'5179

DPINT(R1)
SCH
ggvsmmu

000113

BNE
MOV

8s
ma -(sm

'BR
IF YES
,REL ASE COMM

040562

ISR

WITH COMMAND OR ERROR RECOVERY

PC,sC12

:BR

IVE

JSR

020000 033172

SCe

;WAS m:ns m ERROR?

EITHE
;snvs npog
RPER1, RPER2, AND RPER3
?avyw
:ALSO DO
;mv NG Tg NIT T
RIV
:BR
IF YES,
CHECK ON none onxvss
.cnecné ON DRIVE'S STAT

£S:

BNE

ogmu RPERRS

mc COMMAND

$BIT13, npems‘s: o 3
0, WRT.

uE CHANGED

‘WRITE THE conmmo INTO RPCS!

10:58

-DEC-77

S/B &T# LGC

SRIBC BT

Y Teoobe
T bk

831

L12

vl 3R

ouhl BERT w1l taPau EPE DATVER (REV 1.0)

7$:

177777

G803

033276

§§§

033174

§§

040406

8344

8353

sgu
S

332?
353

8363

5%;

104

70;
i

7iud

?? 040406

7{ 3

]

93 9

337
837

100240

000016

%éu

665 g;

7%3
21

101

; 74

77777
0750

033204

110000 000016

765

010000

18:

»?cx
r

o-x TIMER(RL)

?E T B

(SP).RS
(5p)4

ff:éx
Wé gémrc
IF
VE uxm

ngenm

33 RD.RP

;RERD ERROR REGISTER sl

SC8

ROL

s¥Q

RCT(R1)

(SP)+ RS

nvs mu npvévs/sREGISTERS

wsnrs;sconomon =17

s1ll,-(5P)
RO, WRT.RP

SSUE
A

#SC7

bgn g

RG. RD.RP

.READ DRIVE STATUS REG. #1

ggz

259; iRS

;savz msx

ess

5C8

oa;ns-axroraxr

mvmxr«:
IN QUEUE °
1 (R2)

; INFORM USER OF ERROR

IN RS

BPL

JSR

PC, SVRH]|

sn E RH11/RPO4/5/6 REGISTERS

g’%s

BIT
BNE

o-x DRVSTA(R1)

xr uo--uuswe CLERRED

gg;ns'ama 16(R2)

#8IT12,RS

#-1,DRVACT(R1)

IVE IS UNSAFE

; INFORM USER OF UNSAFE ERROR

;"MOL”
=]?
iBR IF YES

;

112761

fi‘ 531 600001 033204

177777

033174

ngfa

MOVB

3},DRVSTA(RL)

837
837
g378

8372
3723

812781
00E2 ;

072460

03327&

MOV
ASR
JHP

#30000., TIMER(R1)
R1
SCH

036612

R OF snnon RECOVER COMPLETION

PC,SVRH11

837

000127

TanINERROR?
RS

1 15-91707-31103 xst ) S INF

g g

037290

"%“‘ e

RoY
aox

MOVB

2%:

'fm

G
2&*#S-.'SST
e et
: ns
STATUS REG.

RPCS1

71582
837335
7{54
usgsg

5359
8236

762

;

MOV
JSR

SCeA:

gcw

JSR

1085,

Zé Jas
fig'firfmmnc‘“

B
JSR

SC8

ngs

gos;

MOV

111
040862

71
1

18:

750

7110
037114

RPDS1

100210 000016

]

mx;rm
NDEX

nggm (SP),RS

.ASL

SCh:

040406

8&0

mscasx

SEG 0154

;ACTIVE

ONLI

ERROR RECOVER

;START 30 SECONC TIMER

RPOY/S/6 MLT-DR LGC

CZRIDC.P11

MACY1l 30(1046)

1S-DEC-77 10:58

PAGE 156

sj m’m USER OF ERROR
%&;
ngnéflziY%}W'DXT'?';
Lll‘ (R1)

rTc

SS OR QUEUE”

gieud?
§

%
u

(o)

’

S5 THegzvgig:;f:aas PARITY ERROR

PR o

§§

ggtgfig?%me)

E&;&3};7595’

BRI sklgzs.%grn}ss By woves meos

3‘:“mge(m)

1(R3), RPERRS
1(RY)!

;chEgT
s}a HEFOUR
S REGISTERS : THAT

RPER2(RY)
| RPERRS+Y4
RPER3(RY)
| RPERRS+

RO,
DRVINT
§

;gmc A SEARCH OPERATION FOR
i
X/g COMMAND?

MOV
MOV

JSR

—

ATABIT(R1)

18:

g&#fiPgltv ERROR

DRVACT(RI)

B 178

sc12: i'to"\'}

0164
[

c
wm
INTO RPCSI
i $on Ve s
IDLET DRIVES

tRE

%géog 000016

818}23

fi: g:c ;n:o

033246

;5‘ BRVACT (R1)
34

83%?2‘2'

&
%

—

Mle

ot
®%"

033174

;

?
a:

"LEND

ZORTSS

8418

?gfl

033320

iBEfiBEEfl%
AR

588

%fifig’% sfii&m@%
=
$33
g%
Je4=

138555 é’%fi%fi@fim
S‘Jig

11:03

SINGLE/DUAL PORT RH11/RPOY4/5/6 DRIVER (REV 1.0)

33;3 837533 182061 633259 oocole 28,

1S-DEC-77

-0
un—

CZRIDCO,

PWILL TELL US

SOMETHING

-2er.
THE smrs OF THE DRIVE
: TAKE ERROR EXIT
PC OFF OF THE

STACK

PROCESS THE PARITY ERROR

5325 03
301
3359
nggg fig&i
177777 033276 SC13:g

gggL;

8353 83;?33 0101
6 ;%5 899952 000016 .
B428

037532

E?;a

2%@3???53?“&pns<h:§I‘:EkERE Eaé:grrsnrxon BIT

8431
e:ag

03
oa;gg

om301
006

ggf

gqgu 037554 0127&i 023420 033276

MOV

#10000., TIMER(R1) ;START 10 SEC TIMER AGAIN

flIl,TIMER(R1)

?‘ogpu?. “?[ S SS WORDS
:BR IF AVRILABLE

SEG 0155

Nl2

C2RDe0,
PO TR e MOy Il 3 e oulL PoRT A1l /AB04/5/6DRIVER (REV 1.0)

18:

033224

D)
gfia
033204

éso

151

INT(R1)

000016

2s:
3s:

?gflm
IMP

&sgm

TEMPTY

JSR

SC%

3329
ggg

:75?‘5. 16« 2 000001 033251

o.:;;g

037752

000010

..80

gé
g4
8%

Y
4B

4E3
8450

MOV

RPTMR:

;ag

033251

JSR

MOVB

SAVREG

18:
033276
000002 033276

;;
;g

0376

2%:

3%:
-

)
i egfl nu,xsch

;L;
sg

;
;;
;

:CLEAR

,DRVINT
TA(RL)

.E&m/sm TIMER ROUTINE

-'m.au 857; 033250

SEXIT

INT(R1)

; nfgu."gxm THE DRIVE ?

@CLRB
1578
T
T

ggag?u
035515

?ga

]

STIME,-(SP)
REthR
B

SEG 0iSe

NIT INDICATOR

xrm'?oé g& e
fntSTART ORDER
v; YE

5
EN
nv "FOR

THE DRIVE

n mm DRIVE OFFLINE

vm‘i& sr QUEUE

mv r ::0% ::GoussrNOICATOR
£SS OTHER DRIVES
STACK

D TIME IN MILLISECONDS ON THE
.
TN
e TN TME ROUT
AP

A TDRV

’Tacrsm-'
groflv
.crcho"

#1,ACTSTR

gsv

T WITH

"3‘1

DRIVE O

539,7,5‘5 };rfig RUNNING?
tinenma)
;sm,nnsnma) ;cou?; n:s NTE S

C,STO

sggrmTIMEOUT ROUTINE
Sggu.
160 TO THE EXIT

ula:m

iMOVE TO NEXT DRIVE

ggg

rg.,m

‘33&48:; txanges’

'c“LJea

?csge;,ln(sm

*g‘r:

RESREG

RTS

: SOF TWARE TIMEOUT ROUTINE

‘RESTORE RO - 3;

555’}85‘7“’}”‘ ;TWARE TIMEOUT ROUTINE FLAG

:RETURN

§NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY &
OR GREARTER

;CALL:

STO

3
$

JSR
RETURN

MOV

SDRVNUM,R1

PC,STO

;DRIVE NUMBER

; CALL

flmm
0
SRRLORS¢

CZRIDCO, RPON/S/6 LT DR KOEg

850

033224

Bl3

MACYLL 30 e UL BORT AH1l APOu/E e DRIVER (REV 1.0)
ST0:

5
2%
%g

033234
-

gfl%

0M1604
01% 000016 18:

8506

%ig
i B

854

B543
BE4S

s bt et Bt

e Bt B

Bt B

BARGERKEF
S 28R

333332933933

1{3

38:'
105061 T05900
033174 000016 Ys§:
1

i
1

0000i0

O
STB
4 NT(R1)
fia < (R1)
gs%

Rl| '3'
e

PC §

Jsa
)i

033276

cnz

oTul, Ri

CLRB

ULDFLG(R1)

T(R1)

'7’8‘7’

hmsmla:n
o-x

Oé.,Rl

s Bt

RPCS!

HT
Tgég
DRIV

’

THE INIT.”

izo
ONT%L%RIVE’

ggg
T'r? ngfi
POANTER
o My
CLR8 acgtfiwg?ma
onvnc?' B 16(A 7'6mv:
VE TO *,IDLE

000000

D04 37 040408

kz
GISTERS
MASS BUS

H 4//s/s

.onxvs

gegvxm

OM0ZS0

0323234

¥ mg‘ %g DRIVE?

STB

%3“

040232

gzggg

033224

§T02:

grfigfi%z?r

bn
S .rw%FLAG

BNE

1031
105761
6

033320

EtSE
euwn.csm)

cMP

033316

o;
st
npcsa(nm - *INIT

c1'3°§ 033316
gm 53

(0OM02
g‘x
0210
12
i

177777
033244
1432
%oaxs

1A
i1 ?c 0 INTIALIZE THE DRIVE °
, ;T rT' NG PORT REGQUEST FOR THE DRIVE *
:
;

2
8-1,.0TUW
TRNSWT
PC, CLROUE
5709
RPAS (RY)
mnemph
RS
ST03
2mem1\

12737
37
733
0005
116405
136105
00L01°
1 731

SRVE Rl

Ac
ge-axroe 16( :
s8

8GT
MOV
CLR
jse
BR
MOVE
BITE
BNE
TSTB
eNE

BE4S O4G234
BEYE

8335'}5

MOV

2s:

023174

BRR R
8541

000010

033562

8518

853
8532
3
8534
8635
8536
8537
8538
8539
8543

gés?g

Ffi}g

:asex

STO1:

Rl.-(SP)

T
T

Pr'nz

8509
8510
85il

MOV

SEG 0157

ono

§EéxECKED"
L g}

I NO-,no DATA T
FERS UNDERWAY
'CLEAR TRANSFER WAIT QUEUE
:CLEAR ALL REGUEST GUELES
TEXIT
‘READ ATTENTION REG
;IS
nnsgflgos FOR THIS DRIVE UP 7
Y
: TRY uc TO INT auzs THE DRIVE ?

TSR

DPRQS(R1)

ST07

{BR
ONL INE
.our
mc Pom' nsouesr FOR THE DRIVE ?
:BR IF YES- NO RESPONSE
TO REQUEST

JSR

RO, no RP

:YES--CHECY “RDY"

CME
BNE

Rl
muu
574

:DATA
TRANSFER UNDERWAY FOR THIS DRIVE
:BR IFNO

C2RIDCC, RPOY/S.6 MLT-DR LGC

15-DEC-77 10:58

czluoc P11

MACY11 30 1
O4e)

1S-DEC-77

NGLE 7DUAL oar nnu/

PRGE DRIVER
159
(REV 1.0):
/56

SEG G158

HE
?'E‘rs
9%
BEQ

o
3? NT(R1)
@S(R1)
ST09

!stigu.mgrm THE DRIVE ?
nl STCPERDING 2
:Eon*
iBR IF

ggn

4 nga

:co HANDLE THE PARITY ERROR

ik m3)s5 WY
3'l¢3n’tso

140000 000016

ggs

s%;1S!B8ITIN, 15(

105061

033234

CLRB

(R1)

32;5 8333?5 86u773;

1510

S5 mRE e
@%z 033224
fi
033234
g2

§T03:

3; 035622

ST0S:

8c
gsu

§§
85

8564 040330

177777 033276

033224

%6 95307 033276
6’41
z

1§:

STO6:

gfif 838338 8?2?&: 177777 033276 ST07:

8567

£t
8570
8573
8574
g57s
8552‘7’

g?g

Bz Oveo

0374

8333
040404

737 040750

000016 ST08:

gsga
12601

ST09:

SSV

Cng

MOV

'?59 IMER(R3)

DPINT(R])

JSR

PC SVRH11

MOV

MOV
MOV
RTS

: CLERAR n: uxmuze INGICATOR

mrom THE USER DRIVE NOT AVAILABLE

»-1 msnma)

8
BEQ

JSR

g‘% mc nrzn

m PORT

ST INDICATOR

oR1vE -

usen OF PORT REQUEST ERROR
A&
9'8”'3'8572 mmé)
:CLEAR THE QUEUE FOR THE DRIVE

(SPY+,R
(5P)+.R1
pC

RES

me necxsrsns

;ROUTINE TO READ R Ruu/npm/s/s REGISTER

€80

:CALL

e
ERRADR T

;;

8e8a
gggg

RE TURN

BSE7

comsms OF REG

MOV
B8S88 040406
O4O0%IN 013737
011646 033330 040550 RD.RP: MOV
U R
By g oo fio'fipé‘ "flvn
%
30 013727
859}

(sP),-lSP)
ogebw
3(PC)+, (PC)+

TRY
OWED
vs 25
%
R
me RE Recxsrsn or THE RPO4
:

2
AD
BI

Gamagn
onpcs%,(sm
#BIT12.9(SP)+

LY *g‘oass..s
IShe
OF RPCS2
FORM m“%fiéss
::CHECK
THE 'NED’ BIT

8293 Duou3q m

DSl
o2
8:&53
esg
040484
es
8538
£L95
8600
8e01
BECZ

8:0%0
0462
040466
040472
040474

g oo
Syt
§003?8
7&
10000
7

005935
017746
032716
001002
022620

172644

020000

RB-ORG: ‘HORB

BNE
MOV
BIT
BNE
CMP

MCPEMX, RD.RP2

RN
R --Paocsss ERROR STARTING
ES
IS ON THE STACK

o.npg
-(SP)
$BIT13, (SP)
13
‘SP)o,(ROH

JRPADR,

;%8‘:"28«4

HERE

,ga F Rgng/e NON-EXISTENT
s E
CS1
‘DID MCPE SET?
:BRANCH IF YES
'ADJUST FOR RETURN

Gisis
e

CIRJDCO,

RPO4-/S/6 MLT-DR LGC
15-DEC-77 10:58

gece

(EXIT

RROR
R

»MC
P
R

¥§?

a?s
guaa
?gg

(59)0

TlH (SP)
§8
$
gADR, 3%

s--;HE

MOV

RD.RP2:

.WORD

b(SP)+,d(PC)+
(PC)+

HIGH BYTE
THE
Rl
RETRYS
EXCE oco MAX.

BGE
RD.RP3: MOV

RS.RPé
(RO),RO

annnc IF NO
FATAL ERROR EXIT

RD.RPY:

é%~

040000

553
222
gfiGEREF£

O40S44

SEG 5159

RD.RPY

033316

040000

11:03

3332
T

1S-DEC-77

D13

PAGE 160
SINGLE /DUAL PORT RH11/RP0M4/5/6 onxvcn (REY 1.0)

T
DEC
MOV
RTS

5§IT1H,(SP)

(SP)+, (SP)

YRE”:I’
;:8--

ERROR
i

TACK AND

xfiéx; “1* 10 “TRE"
SE
un'fixm
HIGH BYTE

Sn
CL
"53&?‘
P
S5
: FORM
WRITE

OF RPCS!

:ROUTINE TO WRITE A REGISTER
;CALL

MOV

RETURN

;
:
wWw

8BRS

NS&5

FRR F&

222 22 2222222

3
o

W
~N

fatntoiniotoiniots
»uzigi 5_
ge-kQ;;§§§§§§§§s§§fi°g**

00
WL
no
NN
nr
oo

PRERFRRRRRRRERPR
LR
B 58 Sain £ e

s
ER T Pk

Bt Pt s ot

st Pt P

OO NN LEWN-0O

CZRIDC.P11

MACY11l 30(1046)

3330
002

0“073%
O40&s

033332

GoR315
o40406

000010

CMPB
BLT

8150, WRT.WD
18

SWAB
BIC

77770

0eS1
033332

2(SP), WRT.WD
(SP)+. (SP)

JSR
RPCS1
WRT.R3

O40406

O40ese

MOVB

ADD
18:
WRT.R1: MOV
WRT.WD: .WORD
WRT.AD:

MCPEMX, WRT .R2

MOV
MOV

ggz
040650

DATA, -(SP)

RO, WRT.RP

RRADR

WRT.RP: MOV

o40eS2
000150

JSR
NDE X

.WORD
MOV

ADD
BIT
BNE
JSR

RPER1

WRT.R3

BIT

i20)+,unr.ao

RO,RD.RP

(SP)
81C7, (SP)

(SP)4,WRT.WD+1

onrn TO BE LOADED ON THE STACK

ROUTINE TO ORO(HRIYE) THE BEG.
RE ISTER TO BE LOADED

smon n::

nax

u TO ON AN ERROR

TRYS ALLOWED

no:usr

uono To WRITE
o?

nzcxsrsn T0 BE WRITTEN

xnosx

ron oatn TRANSFERS”?
E HSO"
D AlE 8 AL7, & PSEL
Ngs
v S--

o---gflggx nésa 17 8 PSELWITH
ruc RH11/RPO4

ORE senoxnc IT 10

O
RPADR, - (SP)

:FORM THE ADDRESS OF THE DISK REG
:LOAD THE DESIRED REG.
{WORD TO WRITE GOES HERE
,
:ADDRESS IS FORMED HERE
‘PUT THE nggnegs ON THE STACK

#BIT12.3(SP)+
WRT R3
RO, RD.RP

;CHECK THE 'NED’ BIT
‘BR IF Pnave NON-EXISTENT
!CHECK FOR PARITY ERROR ON WRITE

RPADR, WRT. AD
(PCI+.J(PC)+
O

sRPCS2, (SP)

#BITO03, (SPI+

:FORM THE

ADDRESS OF RPCS2

EERIBE 1T O P tobe 7o abogg
-

&0 §§§;°§ §z é
77776
7
6uo~
g7es 830990

8664
ggss

0 726

866
8668
8669

07
7
0740
0744
040746

8670

867
gg;

E1l3

MOV 3N
AL BERT AM1 ] taPou EPEEORTVER (REV 1.0
040722

Ry
SlAD).1s
JSR
gs.ng.kp
e B3

i BTOKUP THE TNOEL
Engno Tnsusté.
;E§$UR§"?8x1n1 ADDRESS ON ERROR

WRT.R2:

.WORD

IRETRY

104004

0742

ERROR
DEC

4
(PC)+

WRT.R3:

<
MOV

WRT.R1
(SP)+
(RO),RO

: TRY RGAIN ;
NOT FINISHED
:CLEAN OFF
THE STACK
:TAKE
THE "PARITY ON WRITETM ERROR EXIT

WRT.RY:
WRT.RS:

TST
RTS

(RO)+
RO

:ADJUST FOR ERROR FREE EXIT

WRT.RS

:REPORT THE
ITY ON WRITE ERROR
‘SEQRE"E"T T”E ERROR COUNT
ouurs

PEXI

gg;g

;ROUTINE TO SAVE THE RM11/RPOM/5/6 REGISTERS AS PER DPB+14

8679
867

; CALL
:

gg;g
BESO
8681
esgg

:
040750
040752
040754

104412
005702
001430

040766

016203

86!
AL 8BS

g:orss
0762

8686

0407

88§333

8688
8689
8630

041000
041006
041810

023727
001006
64

8692
8693
2€34
8€3<
BE96
8697

041020
041022
g:xoaw
1030
041032
041034

005023
000405
037

2£99
8700
8701

041844
04104
041054

001406
062737
761

8685

8687

8691

8638

8702
8703
g;gg

040774

041016

041036

041056
041062
041064

013704
111264
37

1002

041056
012623

3727

004737
104413
000207

SVRH11:

033332
000010
041030

000022

000200

100010

040406

1§:

000046

000002

041030

4$:
5§:
£s:

sDPBNUM, R2

:DPB POINTER TO R2

JSR

PC,SVRH1 1

:SAVE THE DRIVES REG’S

SAVREG
TST
BEQ

R2
h

;SAVE RO - RS
:QUEUE ENTRY FOR THE DRIVE
:BR IF NONE

MOV

14(R2),R3

;SELECT DRIVE

acg

TEXIT

CHP
BNE
BIT

3§, sRPDB
{REACHED THE BUFFER REGISTER ?
2s
iBR 55 NOT
8BITO7 ,RPCS2(RY)" ;°*
'sggr ?

(R3)+
4$
RO,RD.RP
O

BEQ
AOD
BR

68
$2,3%
18

JSR
RESREG
RTS

(SP)+,.

NO ADDRESS

:COUNTER & POINTER

CLR
BR
R
WORD
g3
MOV

CMP

iGET THE ERROR TABLE POINTER

(R3)+

3§, sRPEC2

PC,C17

:BR IF

;STORE RPDB AS ZEROES
: CONTINUE
{RERD rus SELECTED REGISTER
‘REG3§TEE INDEX
;gnn
TURN no?nsss
: STORE ru; REGISTER CONTENTS

'REACHED

THE END ?

‘BR IF YES
i INCREMENT THE REGISTER INDEX
:CONTINUE READING THE REGISTERS

'PROCESS THE UNCORRECTABLE PARITY ERROR
'RESTORE RO - RS
:RETURN

g;gg

‘ESE{I"‘ TO SET THE INTERRUPT WITHOUT GETTING A “TRETM

g70e
£709

:
:

ggig
8712

713
714

:
041066

(041070
041074

01044E

013704
O1DIEY

033232
000010

SET.IE:

RPADR, RY
(R2),RPCS2(RY)

BNE

2%:
3%:

041030
035522

MOV

MOV
MOVB

000014

041030

SEG G160

MOV
JSR

RE TURN
MOV

MOV
MOV

#DRVNUM, R1
PC,SET. {E
RY, -(SP)

RPADR, R4
R1,RPLS2(RY)

:DRIVE NUMBER TO Rl
(SET “I1ETM
: SAVE RY

‘PICKUP ADDRESS OF RPCSI
:SELECT DRIVE

GC
:S8

MACYLl 32{1

NGL

JoUAC

F13

BT RH1 1L iPO4 /5C DRIVER (REV 1.0)

SEG Clel

RueaeaaNTegNTs (d=]ntithe,-T—dGeldflm

T
T
T
B
P
N
P
R
t
V(YAOVUOVUIOUVTIMVIRIG=V4IA=V4IVetL-Yt 0y =g o o - g — t S8Y8STAERA
—d——t4t4et ]iee

E3RIBE.B

RPO4/5/6
11
18-

8§S.b p*5%§ e

; QUEUE INPUT POINTERS

4
g
g
8
e
e
e

;

gEazsasSTV

oQauvunununym Sasaana

oO—uMIT

@xa

biR}ee i

O—uMT

; QUEUE OUTPUT POINTERS

VT4VIAVIRLVIOu

873

e ]ABNASBDD
o BBLBeL i L —uMmMIwn
5
55&338%
TT UMMM MU~ 0—

AS5ISbekRteRkB]TITITIT 83 83 83
TUMM
55E385L 2EEE5E TNAMM
53ELEE 5&5ELEESRLeBt I=T—MNO

aSEEEEEEE
ePrLLLLy
e smB e sR SR
SA
EEEEEES
A
grLsLLY
¢ Yo
NNO—uMI

——

W
M
O
@
O
O
M
O
M
®
5L5ELEES

ISSI og=)

"TRETM BIT OF THE WORD RERC

;ORIVE REQUEST GUEUES

START RODRES S

MLT-

MACY1l

[
———

15-DEC-7 xb:ss

1S-DEC-77

ngngzt/oufiL
§§§¥O:

g
k2 |1
ggnvi ‘BLKW

%:
ve:

1432

.BLKKW
.BLKW
.BLKW

11:

Gl3
PHGE

1 nnxx/hgngs/s o‘?esn (REV 1.0}

1
1

=uxs

30(1046)

SEQ 0182

1
1

QTERM=.

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

Y e STy S
——

2227 PPRRIRRRRR?

104412
12702

iz
e
:gs

e
5022

440

454

:22

123

Sef

375
2
703

476

122

HEH

472

S00
g02

S04
S0e

041140

JSR

PC, CLRGUE

CLRQUE:

SAVREG
MOV

SQCNT,R2

:SAVE RO - RS
;5sno THE
QUEUE COUNTS

CLR
CLR
CLR

(R2)+
(R2)+
(R2)+

;
:
:

#0START RI

;

CLR

000010

041210

18:

000010

041210

2%:

303
1375

104413
000207

MOV

(R2)+

;:DRIVES 0 8 |

28, zg

(R1)+, (R2)+

: MO

355

5
1
VE "2

TARTING

THE QUEUE INTO

ouéu: INPUT POINTER

1
e
MOV
#8. .R3

:MOVE THE STARTING RDORESS

MOV

:QUEUE OUTPUT

MOV

sQStaART R!

DEC
BNE

R3
B

RESREG
RTS

(R1)+, (R2)+

;OF THE QUEUE

INTO THE

POINTER

:RESTORE RC - RS

:EMPTY THE GUEUE SPECIFIED BY Rl

:CALL
:

MOV

JSR

PC,EMPEYQ

DRVNUM, R1

:DRIVE NUMBER TO Rl

EMPTYG:

ggpa

3gnrra11

;CLEAR NUMBER OF ITEMS IN QUEUE

MOV

QINPT(R1),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT PCINTER

PPERR

;
[y SySN

N LEWN-0O

432
434

gig

€le

€24
€26

682%8%

041140

0lBleEl

041180

oosgox
000207

041170

ASR
RTS

R1
PC

DWW

:ROUTINE TO PUT A REQUEST

:CALL

:
:

MOV
MOV

:
O

N LW

by (DD (00

\y [l
ny PUOPO PO NN 8= 5 5an e e s Pt s s s

€0 00 €00 (0 (0 0 (D (0 (0 (D O DD DBDED

DD
BBIRRZLM

:CALL

i227el

000010

041140

IN GQUEUE

sDRVNUM, R1
s0PB, R2

:
:

JSR

RETURN|
RE TURN2

RO, DRVGUE

DRVGUE:

CMPB

810,QCNT(RL)

;DRIVE
NUMBER
:ADDRESS OF PARAMETER

:GO PUT REQUEST IN QUE
:RETURN HERE
‘RETURN HERE

BLOCK

IF QUEUE IS FuULL
IF REGUEST IS IN GQUELE

: IS QUEUE FULL?

H13

} CY1140

BN
11
161

10271

y
gered

g
121

041210 041180 -

MOV

ggg

:
105761
T4

041140

Qui6ie 013108 041170

S
1

GETREG: CLR

FET®
BEQ

HOV

R7s

23:

rnxs RET

;DRIVE NUMBER TO Rl

SDRVNUM, R1

:GO GET THE REQUESTrn: e

PC,GETREG

-gg-oclp NOCREGLEST TN GUETE"

.15 THERE ANY REQUEST IN QUEUE”
NO-~-—BRANCH

GENT(R1)
2%

SGOUTPT(RL).R2

:PICKUP “DPE" POINTER FOR THIS DRIVE

.RETURN TO USER

041140

PUPGUE: DECB

017102 041170
0&2761 0000 Q4117
D41640
041212
33{233 88?6 5 041170
g:iggg §é§%§1 041210 041170 .

REL
MOV

ADD
CHP
gov

;DRIVE
TO novcRséuss
:CALL
:R2=ADDRESS OF DPB REMCVED

SDRVN
Rl
98?903305
JgR
RETURN

041634

g2,

&y(RO)+

MOV

AR R

.SBTTL

;DECREMENT QUEUE COUNT

CNT(R1)

THE ”DPB“ POINT
R1) Ra -cs
g
3“535:
;
)
7pr(n
g
5
METO RESET HE POINTEP’
a GTPT(R1),QSTOP! x) 4!1
gsrnnr(nx)oourp?(nx)vss--nssev THE POINTER

;RETURN TO USER

AR R RN

R R

RN RN R R R

AR R

RRERRRRES

DATA, CONTROL, & STATUS BLOCKS

AR RRERR SRR R

R AR

R ER R

SRR RN R

R RN

AR R R R R AR AR R AR AR R AR AR A

;BLOCK LOCATION EQUATE STATEMENTS
0000C:

sleluialerd

SFMT

SCOMND

SFMT+}

OR OFFSET COCE

;FMT,HCI,ECI
opsknvON CoDE
(‘i.-‘

41666

N
THI
xnrr(ax)
o
REN
GLURE
AT
NPT(RL), osropthx) TIME TO RESET THE POINTER

R2,

;ROUTINE TO "POP" THE REQUEST FROM QUEUE

nL
§a
s

€361
16
B4ie3s
86301

;
YES-TAKE runm
QUEUE COUNT
-?5c‘sn:u§

;:ROUTINE TO GET THE "DPB" nooa:ss OF NEXT REQUEST IN QUEUE

005302

oi;nnr(nx)OINPTI §) vs§--n:s£1 POINTER

187

ICALL

1
181

§2 (R1)

v
B
C

Q
ZEE

MACY11 30(1046) 1S-DEC-77 11:03 PAGE 1&9
SINGLE /DUAL PORT RM11/RP04-/5/6 DRIVER (REV 1.0)

ya1

=0
G

Pt Pt Pt e Bt P
e P
pe

;

L
i A

SGC
0, RPOY/S.6
i
1s-o£cP11

ESRIBCp

RPOY.

ey
v2
8es

et8¢

2559
8850
3o

:ggqa

o3
2
8898
gag
3
fx
£
830
8305
3%
8911
8315

Tecorto7 iboe

ooaoos'

80001
300012
30801i

0005
00002
8800
29
Emy
800080
B3200%

000066

833872

833

A
S

oM 3&:*3’“LontRoe.

=
z-

gCYL -=

I13

-DEC-77

s Sratls OB ook

$FMT+
SFMT+
SENTs

SFMT+11
MT+1

STER
gg*us

ReeS &(IF DRTVER)

ggégt SPREVO ==
SPREVO
’QSRS
OPERC =
M
e
SOFT =
oe =
SRI1P0
-

:
ELECTION CO0E
HROLDL+o3
'fiv
08c
“OMMAND
.2 SELECTION CODE
; PREVIOUS
'zgsv T §s - TRACK, SECTOR, CYLINDER
:ig
+16
;
BRSO o conr s w
nE Bl o
BRUEol
33,5°‘m:°§
SHRBL
oK1’
OR ' MISPOSTTIONI
RROR COUNNG ERROR S COUNT
: PROG o:r:msgl'
+48
SURDL +4e
{PROG
'
:

.DRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES

SFAIR. =

FMT417

SHRDL 22

;UORD COUNT_ (NOTf o)o

I OPERATION GUEUE *FRIRNESS® COUNT

. INDEX EQUATES TO THE NEXT OPERATION PARAMETERS

DL +54

OPERATION CODE

pemn

ERAMETER SELECTION INDICATO

POB

§Rc Esl0

e
qu

men o
MAXTRK =

gSNde
+4
MAXCYL

355

000124

Reg Hgs
ASY S

s
: CYL INDE

SEMTeL

800104

ga3s
Baze
g927
g2%5
e3¢

iPORT SELECT 8 BITS A1, a7
&
1 meLE PCINTER
R PE R CHOOR OSRECTSTER

fRtus =

Bas]
8acs

166

g
SRRl

. INDEX EQUATES FOR mxmunmxuxnun ADDRESSES
=

;

C;;g:&;g
R

R ADDRESS

neX

.BAD SECTOR/TRACK ADDRESS STORAGE ARER INDEX EQUATE
.
)
$BOSEC =
MAXCYL+16
.BRD
SE CTOR STORAGE TABLE
3
.DRIVE
10 AREA INDEX EGUATE

B
ety

FEF
R a8

)
NN

3323393
Jdo'nt
3348RgL

“

RPON.S.6 MLT-

1S5-DEC-

lt:Sfl

MACY11 30« gflfi)

Dfl# . CON%
SORVID

000224

J13

PAGE 166
S
, 8 STR*USOSLOCK

-DEC-77

)¥

$BDSEC+100

;ODRIVE ID

;RH11/RPOM/S/6 REGISTER EQUATES

RPCS1

000234

Eggggg
S

RPC

D+10

RPCS1+4

gf z

1+1
1+1

146

RPC21+16

ShPRs. =

Qo2

‘%g

gRP :

Eggg%é

SRPSN

0264

gRP
RPCA

SRPCC

00027

;RPOY REGISTER STORAGE

1+
1+

s
s

1+
1+

=
s

=
=
=

;BLOCK FOR DRIVE O

8:1670
1e7e
041704
041706

00000S
eled
0OCO2ee

oco

DRIVED: .SEYE

.BLKW
.WORD
.BLKB

0,0

S
.+SRPCS1-SREG
SRPECZ2-SREG

; DRIVE NUMBER

:BLCCK FOR DRIVE 1

8:217“
el
O4eel
Ou4ezl

08%

C0oco
430
00266

000

ORIVEL:

.BYTE

.BLKW
.WORD
.BLKB

1,0

S
.+SRPCS1-SREG
SRPEC2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 2

000

0‘02582
Q4es

O42S14
O4esle

DRIVEZ2: . SYTE

.BLKW

042734
000z2ee

.WORD
.BLKB

;OCRIVE NUMBER

.+SRPCS1-SREG
SRPEC2-SREG

;BLOCK FOR DRIVE 3

004
8:%006
800805
043020
C430cz

O4z2e4l
00Ccek

00C

DRIVE3:

.BYTE

.SLKN

.WCRD
.BLKB

.+SRPCS1-SREG
SRPECZ2-SREG

;DRIVE NUMBER

SEQ 0l6S

RPO4-S (6 MLT-DR LGS

1S-DEC-7

MACYIL 30(1046)

A, CONTROL, & STA

¥
9

88?

%
%05

90!%
gggg

%io

3310

={§§

004

- 3544

000

DRIVEY:

3326 000266
3B1Y

361
36
36

4120

301
%i!

'flgz
41

9029

358

.BYTE

-Iung
BSR0

4,0

000

DRIVES: .SZTE

.BLKW
. WORD
.BLKB

40S0

4122

000S

000

DRIVEG:

4354
EE

soSRPCS
-$REG
'smca-&ngc
2.0

;DRIVE NUMBER

. +SRPCS1-SREG
SRPEC2-SREG

.BYTE

6,0

5 HORS
.BLK

. +SRPCS1-SREG
SRPEC2-SREG

.BLKW

;DRIVE NUMBER

;BLOCK FOR DRIVE 7

8:‘«2'4
4426

044440
O44442

00?7

00000S
D44660

000

DRIVE?:

.BYTE
.BLKW

. WORD
.BLKB

000266

7,0

S
.

;DRIVE NUMBER
+SRPCS1-SREG
EC2-SREG

: GENERAL PURPOSE DPB - USED BY °'READHD',

8031
3038

0447
Oauz

000000

I 77774

LMWORD

,0,-4,CYLDER
0,0,

%gs

8::;:0

888838

000000

044750

.WORD

0,0,GENREG,0

o447

000024

GENREG:

.BLKW

3835

R R RN

3833

.SBTTL

38:%

9043
3044

SEG Olee

;DRIVE NUMBER

;BLOCK FOR DRIVE S

302

PAGE 167

0CKS

;:BLOCK FOR DRIVE 6

Q1S

9024
9025

11:03

;BLOCK FOR DRIVE 4

%i“

901;

K13

IS-DEC-77

045020
0O4S026

9045

045034

S0E0

0ONS0e2

044122
116

120

030461
1105

8;%'40
2522

7940

041503

042516

0S0130

GENDPB :

'RECALT®',

;REGISTER STORAGE IF ERROR
R R

AR R

R R R R AR

RRRERE AR

ERROR MESSRGES

R AR

INTERRUPT OCCURRED

R RSN R RN R AR AR AN ER AR

EML:

.ASCIZ

/RH11

(RPAS = 0)~/

EME:

.ASCIZ

/UNEXPECTED ATTENTION OCCURRED~

3045 DdZ0oh DS10S0 Q4sesR Be8is3
3839 8:5056 0200;3 024460
600
125

'OFFSET’
& 'RTNCTR®

i
S

SEQ Q187

3HNeOnNeDlTOMP25N=8&33 -- 3S(RMo~f-—0NONRmY-ig oS—4Fo3rAnoonm-QTRGG5Z -O~SotpT-eMS—obgsTgL -MoOSa

%E?

L13

smZmIw%I3méZ%8£&28%%mm 8mm28z BRS gowmwSR v.L&%.R

116
llee

ASCIZ

/MASSBUS PARITY ERROR

(MCPE=1)~/

RSCIZ

/MASSBUS PARITY ERROR

(PAR=1)/

RSCIZ

/ADDRESS PLUG CHANGE BIT SET~

.ASCIZ

/RH11 DIDN'T RESPOND TO RDDRESSING~

RSCIZ

/UNCORRECTABLE MASSBUS PARITY ERROR~

RSCIZ

/FRATAL MRASSBUS PARITY ERROR-

AsCIz

/PERSISTENT DEVICE

AsSCIZ

/OQPERATION NOT COMPLETED WITHIN TIME LIMIT~

LT—-uonMwm00NgO~Nm ..l.lDT—-t—t

128

Q42

;éé
1

UNSAFE~/

OtT:&m~Ww3&&][N'unTroWnNf5&;ifilL. wbo=QNaS' Qaw~53g;iN og3EoNgoNH\£5Ngx ~[mW2o3-7N)]~wvs“N

12z1mmum8ygmmmmmomammmmgmm
x x

ERROR

gfi?g

SSAGES

1S5-DEC-7?7
11:03

M13
PRGE

][

MACY11 30(1046)

(4=[]+ -N

OO~ -y

¥S:e-g 5&¥-2e: o2SsEa3 11eWS-2a &2Bl¢ 3TP-N|GR}S
=5~-— o 2>-& b*xg-

1BgDIDo1AoTWW1NOT1TTC1OOT1nOFO—Y51]&O.81aOumOi1sOxT=-1vN00n1OWTmOMueToluT.e.«)O.%).O3.]O:w.9Tofol)i.aw]mmOv2W=B]0AJeTo.§UwW-5Z8O0fm0eIoO5o)wfA)08So.)5T7ee]O01ww w8 ooA)2vB5oeA25ioST
CZRJDCO‘erOW'St’S MLT-DR LGC
CZRJOC.
1S-DEC-77 10:58
i8S

SEGQ Ole8

Besiit

EMIN:

824182
gaadl

§?

RPO4/S/6 %Y#lb?&

EERIBE% 11

MACYil TW&S%C-”

15-DE

555 0 T

fi;’gfififi

11:03

N13

PAGE 170

SEQ 0169

1117

11 7
1

EM26:

.ASCIZ

/FORMAT ERROR ('FER’)/

zxo;

EM27:

.ASCIZ

/HMEADER COMPARE ('HCE') ERROR~

EM30

.ASCIZ

/MISCELLANEOUS DRIVE ERROR/

EM31:

.ASCIZ

/OPERATION INCOMPLETE (’OPI') ERROR/

EM32

.ASCIZ

/DRIVE TIMING ('DTE') ERROR~/

EM33

.ASCIZ

/PARITY ('PAR’') ERROR AFTER OPERATION STARTED~/

EM34

.ASCIZ

/WRITE CLOCK FRILURE ('WCF') ERROR~

EM3S

.ASCIZ

~/INVALID ADDRESS ('IRE’) ERROR~/

I.‘aIoSI.I.I..o!;.ls

9
%000

“8

g;:fiég
1

111

O—n

1300

-t

CZRIDCO,

T
RPOM/ 5/)
-7
1S -DEC

WfiRIBiedRiEds RsRiR£E 8OR OT N0OO

c?n‘:oc.#x )

—f

Egégg

225554

% fi m

FRGWBON

sBSEanL-

m am az

N —J

m:xw“mmw“m w
et

wno

RROR MES

E§§IO

MACYLl 39(10“5)

1
1

OTU

m. m—o.gq.osn

-DEC-77
S

11:03

BlY4

PAGE 171

SEG CI ']

EM36:

.ASCIZ

/WRITE LOCK

('WLE')

EM37:

.RSCIZ

/DRATA CHECK

('DCK') SET DURING WRITE CHECK COMMAND/

EMNO0:

.ASCIZ

/RHM11 OR UNIBUS TRANSFER ERROR/

EMY]:

.RSCIZ

/BUS RDDRESS OR WORD COUNT INCORRECT~

.RSCIZ

/DATA

.RSC I -

X c = ¥4

«Ne

COMPARE

ERRORS

ERROR/

OTHER

ERROR(S!

DETE CTED/

/CAN'T MRTCH DRTA REAC WITH R PATTERN-

/ERROR

BIT(S)

SET,

BUT NO ERROR SIGNALED BY THE RHIil~

TP ubGCS8
De%oRt m,
ZRIIBE0

11:03

Cl4

PAGE 172

SEC C17.

¢
C

MACY11 JEéég:SAEségasgc-?7

EMYS:

.RSCIZ

/ECC LOGIC FAILURE - POSITION REGISTER VALUE TOO LPRGE/

OQHO

EM46:

.ASCIZ

/BUS RDORESS AND WORD COUNT NOT CONSISTENT/

MONKTOT

(w] ¥o

- ] o - ~N

/SEEK INCOMPLETE ('SKI’'; OR OFF CYLINDER ('CCYL') ERROR.

EMS1:

.RSCIZ

/PROGRAM DETECTED POSITIONING ERROR~/

EME0:

.ASCIZ

/DRIVE UNSAFE ERROR~/

DHl:

.RSCIZ

/RPRS/

.RSCIZ

/ORIVE

l‘xll

OO DM~

*otet

“EPasy

SRORPOES he rae

AFRCARON

30355

| B BRae bt e s b L

et)=

BNAADA

ggfl222
i 16

045526
043101

0S1S01

000

0Si 108

047460

0S0l22

746 S
747

O0ON7See

o4 751 v
C4 7Se2
04730

02004C

031522

D0S1040

020040

042520

0S1040

RPOS1

RPER!

RPER2

RPER3

RPRS~

CZRIDCO,

RPOY.S.6 MLT-DR LGC

CZRIDC.P11
3331

MACY11 30(1046)

15-DEC-77 10:58

047536

0O40S20

000ie3

101
33 047564
Qureee §§°“°
101

1
101

‘% 047542 0S1104

3111

35
;lgg;

9338

3333

gg;rg

3348

047636

3
9354

.ASCIZ

DMY:

(

gg;

0S0034

9373

9375
Q376
S377
Q378
gggg

(0S00sS4
0S0062
0S0070
0S0076
0S0104

DHIM:

0
1954

it2

051105

REG ADR

GOOD

BRD~/

.ASCIZ /SRPADR~/
.ASCII

/DRV RPCS!

RPCS2

RPDSI

RPER!

.ASCIZ

/RPER2

RPER3

RPEC1

RPEC2/«CR:<LF)

.ASCII

/RPUWC

RPEA

RPDA

RPAS

.RSCIZ

/RPDB

RPMR

RPOUT «CRY <LF>

LASCIZ

/RPSN

RPOF

RPCRA

050158

091508 DObedes

0501

/DRIVE

004

% SIS

104

008015

RPLA

020116

850101
1520
OSI440
006523

0S1040
020040
020103
040524
000012

000

ol IR foous
106
020040
041520
0S1040
020040
0S2S24

DH1S:

047716

SEG Ci72

g@xg;

O
o
£0CN

(04771

333 G055 g
9

020126

JD D

33559

“
~N

9355

1104

7B44 %éga gg
Ourees
030090
020

PAGE 173

.ASCIZ /DRIVE REG ADR DATA/

§ 852590

Eé:éé

11:03

020105 DH3:

&x 047612
'46 04751 35%{8?
343 ourese
20848
c):!ms3
7
044 0S0122 042101 DHe:
33339 83753 000122
9349
3321

15-DEC-77

ERRGR ncssac?g

9381
9382
ggga

0SCl12

001244

000000

9385
938t

(QCS0lle
080124

001242
033170

033164
033172

DHIE:

RPCC

STRTUS/<«CR»
<LF>

EVEN

033166
001244

DT1:

. WORD

ATTN,O

DT2:

.WCRD

DRIVE,RPERRS,RPERRS+2,RPERRS+4,RPERRS+A ,ATTN, O

E RIBE

T okt 7T ubrEe

0S0132

9330

134

ElY

T “BRADR mesdAcBE"TTT 11109 PRGE 1T

000000

1242

040432

040434

DT3:

.MORD

DRIVE,RD.ADR,RD.WRD,0

I94
001242
040652
Be0ias
838535 809835

O0406SO

DTY:

.MORD

DRIVE,WRT.AD,WRT.WD,RD.WRD,0

$33%

0s0156

001170

000000

DT6:

.WORD

SRPADR,0

os0ie2

%fim

246

DTI4:

.MORD

SRPCSI,SRPCS2,SRPOSI,SRPER1,
SRPERZ, SRPER3, SRPECI, SRPECZ.0

9399

050176

3401

050204

00023

000240

00022

DTIS:

.WORD

3483

0502

000262

000G00

DTi6:

.WORD

142 M

3403 020558 %fi

3405

2 000600
70

358 02053% 000252 9085%e 580500

9408

3410
gg%

g&i

83‘?3&?'

153

413 050278

9415
341
Q4]
3418
9420

q4o1

Ju2e
423
q424

314
352
330
05035
1
050

Q425 050374

7106 LIN2C:

See

LINZP:

1122 LIN2S:
1949
1124
042523
117 LINM3:

0S11]
Q0802
Q41
1

835163

1
11

Qu2s23
104

0201

806103

T
LINNG:

SRPUC,SRPBA, SRPDA, SRPAS,SRPLA, SRPDB, SRPMR, SRPOT,O

SRPSN,SRPOF,
SRPCA, SRPCC,STATUS,O

.ASCIZ /PRESENT ORDER= /
.ASCIZ

PREVIOUS ORDER
= /

.ASCIZ 3% ERROR AT BAD TRACK/SECTOR3
.ASCIZ /ERROR AT C/
.ASCIZ
RSCIZ

/ T/
PRESENT ADDR = C/

104
1120
Linea: [ASC1Z ~ °PREV ADOR
=¢
3428 050412 0s3igs 8:‘:%;2 832{03
ik
.

3450
g&g
ggx
9431
0504
g

&101
114

3438

042440

9432
9433

05044
0504

3437

0504

9440
Q441
d44z

050806
DBOB11
OEOEIE

000
040

440 O4EI31

46101

3439 020800 026040
020075
040
026440

g45 LINS3: .ASCIZ /START CVL = /

042116

03644

LINEN3:

.ASCIZ

END CYL
= ~

QUISOL
0S2524
LINA3: .ASCIZ / ACTUAL CYL = /
Q1440
O4EISI
997529 020113 LINT3:

000
0S0l22
000040

040503

LINCA3:

.RSCIZ ~+ TRK= /

.ASCIZ

~ RPCA =

s€a 0173

LINDAR3:

.ARSCIZ

/RPDA = ~

036M40

LINB3:

.ASCIZ

/RPBA = /

041527

LINW3:

.ASCIZ

85%;;

LINST3:

.ASCIZ

/START TRK = /

Sgiliss

LINSS3:

.ASCIZ

/START SEC = /

mgl

8261

LINMY:

_RSCIZ

/BUFFER ADDR = /

0s 1

0SS111

LINS4:

.ARSCIZ

LINDS:

.ASCIZ

/GOOD DATAR = ~

LINBS:

.ASCIZ

BRD DATA = ~

e feck s

036440

LINPS:

.ASCIZ

SECT POS = 7

LINSS:

.ASCIZ

/HEARDER FROM ERROR SECTOR = /

114

s Pt Pt

%252‘4

—

Nehgkiges

R
020135

Bl83
gl
OS1104
0Sill

0‘0;“7

030§§§ LINEPS: .ASCIZ /RPECl = /

031103 LINEOS: .RSCIZ ~ RPEC2 = ~
LINB6:

Exe

‘1‘

SRR ZRaRocs

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

77;

SIZE =/

16
512
12

101

050;;‘4 %

RPKC = ~

égg LINX4: .ARSCIZ ~ ACTUAL NMBR WRDS XFRD = ~

.ASCIZ

~/SECTOR IS ECC CORRECTRBLE -

1 047524 LINCE: .RSCIZ ~SECTOR READ CORRECTLY ~

252;

U
llés
01

042101

gee
;505 LINGE: .RSCIZ ~/CORRECTED ON 117

i
i 2 Rl
10:0 0s2loo 044522 LINRE 5 RASCIZ ~ RETRIES~/
ZiE
_
1117 LINUOB: .ASCIZ /UNCORRECTRBLE AFTER ISS Q4isie
Bt et Pt

333?32““23$8¥ §§§£§§zzflzw

22209 229288
12
£

PELLLLLRP 2epeeeepes 2292200900292
BURR ROBBSRRAZONCS

lalel

oD
Cats

e O RURS i
0 POVRSB

F14

PS1133

OS1140

O42Seec

0Sei03

041101

£t

T ;931892.

MACY11 JEé&ERSAES

- sC-77

11:03

Gl4

PAGE 176
SEQC Q178

LLSTotat8NN8yPo5Ee+NokeIgeebeNeRenTeeeTeBF)-Oo)TT)N)CBF)OS)eTLB)RT8)S2ei9eNe8ne5)—aoF&)NoelTeTe]oevo) lBeoevLleeeoe08

RPOM.56
P11
1s-

§§N51§

§§§?§§

LIN?M:

RSCIZ

2S04

0s1522

LIN70:

ASCIZ

/ORDERS:
7

éos

LIN?P:

ASCIZ

LIN?S:

RSCIZ

# TOTAL SKI,OCYL ERR

LIN?T

.RASCIZ

ERRORS:
/

LIN?X:

RSCIZ

WRDS XFR:~/

RSCIZ

WRDS RERD:
-

LINBM

ASCIZ

/DIFFERENT ERROR DURING RETRY~

LINSB

RSCIZ

/DATA COMPARISON ERRORS~

LINSH

X O
.HS

os2 1

513
4

GResz2 GeEiST

S(—=]
7

TOTAL

)

TOTAL MISPOS ERR =

SEEKS

GOOD

BAC/ <CR» <LF>

DRTAR-<CR> <LF>

.ASCIZ

/L0OC

DRTA

LINSI:

.ASCIZ

/L0C

DATA/«CR> <LF>

LINSE

RSCIZ

/TOTAL. COMPARE ERRORS

LINSG

.ASCIZ

/THE

LINIOA

RSCIZ

/ERROR BURST BEGINS AT WORD

DATA COMPARED OK~<«CR»<«LF»

=,
SRE25Y

101

MACY1l 30(1046)

1S-DEC-77

ERROR MESSAGES

2040

4506

1i1:03

PRGE 177

SEG 0178

LINIOB:

.ASCIZ

~ IN DATA FIELD OF ERROR SECTOR/<CR»<LF>

LINIOC:

.ASCII

/ERROR WAS NOT IN THE DATA RERD - /<CR»<«LF»

.ASCIZ

/ECC CORRECTION CAN'T BE PERFORMED~

£-00
[@
TTE
o

Y ey e
e e e e e e e

835161

101

e e [ e

S S

SN
SN T R e S

9569

RRARRRRRARAAPARAAR

9555

15-DEC-77 10:58

7511

371
:
§§§ g@ Ml

l&l

052036

87
3233

052102
0S2110
gggx £

2523
02404C

3c
9593

1;8
0821

v
00S01S

3290
051
3Eg §§§1

gggg

oseisg

RJ’gD'—DJION
INWO~—n

006523

C
St

95;7'3 gfig

052323

052103
04
g:ax

0S1117
g:7seo
0440

04
000

040524

gwo

040

0S1104

9685
3E
3%83

052193
0821
8?5553

7440
2516
oqeg?g

3606

822214

2502

3e08

052230

3605 052207
07

9603
SE10

0S3111

043106
000
047163

BRD

CORRECTED /<«CR><LF>

.RSCIZ

~/CONTENTS OF ERROR SECTOR

.ASCIZ /ADDR
txnugpz

.gggxl

.SBTTL

TELETYPE MESSAGES

DATR/<CR> <LF>

Lfflgpbz Znsc*% /7 7

gggg
0S2160

LINLIH:

O S
66 835&““ gaoouo

gggg 3251?6 000040
9600

.ASCIZ /ADDR

RRZ

052014

RECER

%;;

e‘gg LINIOH: .RSCII ~/ECC CORRECTION RESULTS/<CR><LF>

000105

UNTMSG:

.ASCIZ

/DRIVE/

044514

UNTOFF:

.ASCIZ

~ OFFLINE~

O4Y4514

UNTON:

.ASCIZ

~ ONLINE~/

UNTASN:

.RSCIZ

~ ALREADY BEING TESTED:

040 047815 020124 UNTNOT: .ASCIZ ~ NOT BEING TESTED~
047111

020107

cce2

042824

0S2123

042108

02231
0S2236

040
042101

046101
020131

042522
042502

alols]

(REPORTED RBCVE) <CR><LF>

RPOM 6.6 MLT-DR LGC

C2RIDCO,

CZRIDC.P11

RPOY-5./6

MLT-

244

71
040

Efnjg‘c:%u
91
9]

?s- "5-79“ 13620

Eid g
%1;
36

poidl

353

0e5376 osoigs 0 4

32335.

9630 3?53
oM
S
BnR mess
3€£35
336

B 0
D
3240
74
%4

364

3E4S

0525
052576

1:5520-4

,12

%gg

8?%:5

9657
%52

9660
9E]
w,g

965

9&E
Sge4
3ees
3eEe

;

mul

85%

NOTRP:

.ASCIZ

SQEL?T*YPE n?sgs&s

MNOTAVL: .ASCIZ

11:03

Il4

PARGE 178

SEG 0177

@ NOT AN RPOY.
S/ 63

~/ NOT AVAILABLE~/

1101

.ASCI1

/DRV PASS ORDERS

.ASCIZ

/SOFT HARD

PDONE:

.ASCIZ

/DONE-<CR><LF’<LF’

ENDPAS:

.ASCIZ

/END OF PRSS.

122

SEEKS

WRDS XFER

6%3

404

194

""9

1511

2516

00S01S

7'46; o4

114
041530

3 STATHD:
RPoG. Insc%x
-ggg!§ phids
/DRIVE PERFORMANCE SUMMARY, (CR>«LF)>

BeT86a
104

gzg 0525

9654

1
i

€4

96E3

1S-DEC-77

3 NOTPRS: .ASCIZ ~/ NOT PRESENT/
B

g%g

965]
9652

o42524
1

30(1046)

sl
B s
33 %5}4
1516 043101 NOTSAF: .ASCIZ ~ UNSAFE~/
394
%g
11«20 SYSTAT: .ASCIZ /UNIT STATUS: /<CR><LF»<LF>
ffi4 0S0122
15
12
npgue:
ASCIZ
/RPO4~/

962%
9524”
%52

3650

geier

MACY1l

0S11l
051505

2940
123

SKI MISP OTHER/¢CR><LF>

gzosau DROPNG: .ASCIZ <«07>/?FATAL OR EXCESSIVE ERRORS.

2440
044523

O0s1122

?&8‘1‘

311;

062% 538
%ga

ox;
15‘.

047103
05204

oeoégu

ENDTST: .ASCIZ

<CR><LF>/END OF TEST~

0526
052656
052664

gm
42604
047107

3111
1501
042105

DERSSG:

.ASCIZ

<CR><LF’/DRIVE DERSSIGNEC-

02S012

025052

DRNUM:

.ARSCIZ

‘
_
<«CR)<LF> /sssesnssasx DRIVE &

agg

OSEI:ag
0Sek?

0£2700
052706

01
"553

(o]
01lS

02S0S2
020062

025052
0S1104

025052
02111

WRDS REAC ~

PEERRRRRR
ad
RBaotud
2dn 258; 83

gz"%

MACY1l

0se

113

PAGE

179

SEC C178

.ASCIZ

<«CR>«LF>7?

OR 'P’' CLOCK REQUIRED ON SYSTEM/<CR;<LF>

.ASCIZ

<«CR»<LF>/ENTER COMMANDS:

ENTDRV:

.ASCIZ

~/ENTER ]1.D.

ENTLMT:

.ASCIZ

<«CR><LF>~/ENTER ACODRESS LIMITS FOR DRV s~/

ENTRDR:

.ARSCIZ

QJENTER BAD TRK/SEC ADRS FOR DRV #3

COLON:
DRTEIS:

.ASCI
.ASCI

73/
<CR><LF>/DRTE:

IDIS:

.RASCIZ

<«CR><LF>~/0PERATOR I.D.:

HEDLIN:

.ASCIZ

<«CRX<ILF><LF>/DRV

INVLD:

.RSCI

7/INVALID COMMAND~/<CR>
<LF>

~/<CR»<LF>

FOR DRV »/

—

OU-e
N
U=
Nt
WN

ENTCOM:

/o7

.RSC §

.RSC

R
B2RS FRZ2R R2R
-t
ww
O O Ng
wLn ?UO
NZo% m§~

NEDCLK:

PERIOD:

2
e13S5BEtE
£
n

—

23
382

B
—

J14

QUES:

gg'—

bt
N
b o 1Y)
OO0 L£r=re
NE-O

@
T, (=[S0

“
[

—

11:03

008315

DSS
e0

040
3% 2

104

018

1S-DEC-?7

000

Ogl

ELETYPE HESSRGES
30(1046)

ASGND: .ASCIZ ~ STARTED/<CR»<LF>

slnie

PELIRNERS

PRPRRRLRR
8&-»—&-0—-5—.—.—.—.—0—3BIFR ZORC8
88 IRRE 882

O ¢

DD DD DD DD D DO
WD DOO DO
NN NNNNNNNNNNNYN NN
NNNNNNN
nru
LU
OONCNLEWwh-0
Jun DWW

ecC 79.18:58
T~

:
DRV I.D. <«CR><LF>

g5 8
1e 047117 00BSOS NONE: .ASCIZ /NGNE/(CR>(LF>
053276 1t%7A B20104
7111 Ourroe
040526 BRDENT: .ASCIZ ~? INVALID ENTRY.<CR><LF>
053304
023355 024esy esras
4€ Busy
ASCIZ /SYSTEM BUSY... <CR><LF>
053334
0E333)

0270S€

005015

0S0012

000

047522

INTOON:

.ASCII

<CR»<LF»/PROGRAM INITIALIZATION COMPLETE-

L3R

LASCIZ

<«CRY<LF>/TYPE A "CONTROL C*

DO1YIN
D014
D014

35
35

1924
001426

000001

PRLST: SR
:%%
.
- W0

:
'5858

.
ASKPAR: .ASCIZ
SLASH:

%léq
126

PAR]:

PARZ:

.ASCIZ

.flSCi%

B0
MPLMT
ma% -1.¢
mel.;.uc 5
PARIY.Z.RA

PAR1
,1.; T
PAR10, 1. FORMAT
PAR1S.
1. AUTOCK
PAR20.
1 . NOTPRT

0
: TRBLE TERMINATOR
/ENTER PARAMETERS: ~
& 7 @

/MRXDL 7

/INTRVL/

g;::B

gg%g;

?I;l;g

0536

.RASCI1Z /MAXCYL~/
.ASCIZ /MINCYL~/

—

/CMPLMT/

(=]
w

.RSCIZ

PAR3:
O4eS14
a7ee
124
3771:.. i% 89850% 041530 046131 PARY:
g;::; Egag woi {5 047111 0S4S03 PARS:

040515

0S2130

045522

PARC:

.ASCIZ

/MAXTRK/

536

047111

0S1124

PAR7:

%&Déé 0S1530 041505 PARE:

.ASCIZ

/MINTRK~

:=;;'43I

Dsggé

000%63

047111

042523

PARYS:

.ASCIZ

/MINSEC/

g;;é

gég;?:

é SS

0S1803

Q4e108

PARLIL:

.ARSCIZ

/WCSEL/

_ :;;;

TO ENTER COMMANDS~/‘CR> <LF»<LF>

—O
N—=RNNE

777727

11 8814
001y 6

gssgs

8§

DO1410
001402

RZ2

0s361

1
177777

Jsés
%

e
£3

SEQ Q179
:

9749

PAGE 180

1
11

g7
974

Kl4

.EVEN
RPR
>4
&

ERCT]
3745

11:03

Y440
01

73
97“33

MESSAGES

g@RRe
=

1S-DEC-77

ETYPE

.1‘407
1

# SRV

SRRRRRRRR:

SRR

2’

:58

CZRJ

MACY1l QUO"’S)
—

“@W

c*n.ggo“ -x&I#leC

.ASCIZ /MAXSEC/

:;;;2 %g;00 0‘0750% O4eS22 052101 PARIO: .ASCIZ /FORMAT/

EERIBES 1P TeSolt
P ubTEs
7

;;g;

3786

§787

053754

0S2101

MY MelPVhe MESSREEET 11100 PR ®
047511

PARI4:

il
1

2504

116

0S2117

000124

000124 PAR1G:

.ASC

0S1120

.ASCIZ

PAR20:

3776

TABLE:

0837
osfié’}“
3764
4168

77
053774

9804

0S3776

gio

0S4042

38 gu
0S4

0S40ee

Eus
4ige

38
817 054102
Bif

367

992935% 054160
8832

9833
9834

05421

0S4216

DE4224

2310

2306

i2
262
25 0M2616

3626
3653
o536l
367,

osasss

00000

g314
2312
0

eal
friv
9824
(064142
05367
3825 %:i

meL 1
g

;

TER TABLE FOR

PARS, ,nmcn

:
:
.
:

TER T
FOR g¥
TER TABLE FOR

TER 1

xvsa

Pma
él'e
HANSECSORIVED. 0

‘HORD
"WORD
TABLE2:

g u RK+DRIVE1

" MAXTRK+DRIVE 1

P
éxMINSECDRIVEL
PARS’ nAx
1,0

0 P

.WORD

0N
elvER
MINTRK+DRIVER
MINCYL
+0R

ng. mxmxo VES
¢WORD PAR
.éx MINSEC+DRIV
PARB.21..MAXSEC+DRIVEZ,0

KORO

114 TABLE3: . uo“cnlg PARY)
PARS, 0,0. MAXCY
MINCYL $DRIVE3
IVE3

333112
3120
116

WORD

WOR

PAR7.1

000028

043122

WORD

PARS.21. MAXSEC+DRIVE3,OD

0000

43124

WORD

ARE. |

PARS’

4
5
TER TABLE FOR DRIVE ;

ma? 1P N TR DR T v

DRIVE

{PARGMETER TABLE FOR BRIVE |
;
TER TABLE FOR DRIVE 3

z
TABLEL: .
NCYL +
gy Teecl: 40
EoSgICHBRINE)

2ip
2614

3829 0541;3
3830
41
983]
0S4 02

84500o

TABLED: .

000

3653

TABLED

:PARAMETER TABLE FOR ADDRESS LIMITS

wxé
£is pen pm
3815

.WORD

.
"

5
:
.
- WORD

£l
3383
054034 figg"%4

3855

/NOTPRT/

;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS

4226
4g7y
4342
054410

9814

.EVEN

3
3738
§7
9800

ggg%m

/RATIO/

373

979

.ASCIZ

s€0 0180

ggi 052125 041517 PARIS: .ASCIZ /AUTOCK/

379

L14

,nunm

TRK+DRIV.

21.. MINSEC+DRIVE?2

FOR DRIVE

CIRIOC
P11 O TeoDrC-77 1bogs ot
3835

)

TRBLEY:

TRGLES: U0

431

M "r§1

PARB, 21 . , MAXSEC+

4 4

s,0

oS
8. AN SOR1 i

F““’:‘S::%&"‘

vcg

28 SRR

%3
%

. WORD
- W0

=
&;

386

fi
ggé

4,0

BARS.
0. TGN SpRlvES
PAR7,18.

seq 0181

Fggé - 'MINSEC+

&= B

MI!

11&&‘&80
= -figit

985

3655

PARS,Q,

:]
:

384

LIPNee
AEsSRGeST 11003 PRcE le2

0S4466

:&s.o.w :gsxvev
Pmrtgs..fillnm v?v 7
PARS. 21 :n&gfgo

CYLDER: .WORD

0,0,0,0

ENDPGM =

7,0

;HERDER BUFFER FOR 'REACHD’ ROUTINE
;LAST LOCATION OF PROG + 2

?”g;g

3 (RREP RN PR R AR R RN

377;

fhgfpm TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR

gggg

;

%‘éé

iNOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START

3680

9ee3

:
104401

DS4&00

%Sg E% é?“egbé o

§§ gzg 11%37 GO 1551
83 DEuels 11583, 001555
ggec 8&21 135337 125-4

ggfl

OPRDAT: TY

R PR R R

AR AR R

AR AR B ERR R AR AR AR AR AR R R AR RRB RN

PC,OPRDAT

LENTDAT

> fi" ESP;:.RST

Hove mg)o‘ggrfn
o
B (Re)+
T Dk
MOV
Bm+4

NTER

DATE’

ggr n-ggzmnvADDRESS INTO RS

ETSQE THe BATE
L
R R
E ORE T:E gnTE

0, RPON/S./6 %T#‘bcg.

15-0E

Foigt
&
SRnRA

T
ROL IN

MOV
MO
MO

N14

PAGE 183
;ST

;ST

,DAT!

(RS)+

N
’

(SP)+,
*
(RS)+,
(RS)+,0PERID+1l

RID+
RID+
RID+4

(RS)+,
(RS)+,
(RS)+,

RID+S

(RS)+,

SEC 0182

ERE
;EN

;ST
;ST
;57
;ST
;ST

;ST

RTS

ENTDAT:

.ASCIZ

<CR><LF>/ENTER DARTE: ~

ENTID:

.ASCIZ

~/ENTER OPERATOR I.D.: ~

-EVEN

.SBTTL

ROUTINE TO SIZE MEMORY

illllill!l!!llllll!!lillllllll!llllllllll!!ll!!llllllllllil!lli

[

Y S

885888883

DM NN LW

. s

11:03

(RS)+,DAT

e
e
P Bt Pt P Pt
e

R LR

2;%;7

'i
H

$SIZE:

MOV

RO, -

nov

nnvtc 2’
)
..scrg
bg
a
.22
o
,,T s r H
1)
(Rl)+
n:ss

PC,$SIZE

;’SLSTQO WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

g*fl 12 000004
020000

RO ON THE

rncx

Rl -

Pfisssur on vscron PS 3 PC
-(sp)
oennggc
MOV
MOV
SAVE THE STACK POINTER
MOV
ERRVEC PSR90 THE Pazssfif Psu
;;SET ru;
PC ON STACK

18:
2s:

MOV

MOV
MOV
1ST
15T
BF
suB

MOV

MOV
MOV
E$§

SLSTAD: .WORD

PSW IN JSERRVEC+2

13
8 .g}

HE STACK

(Sfi)+,g.ERRVEC¢Z ,.nssroas ERROR VECTOR
(SP)+,a8ERR

ng $LETAD
(SP)+,R1
égp)+,no

AST aooa:ss
TORE Rl
,,RESTORE RO

; ;CONTRINS THE LAST ADDRESS

- GE
.SBTTL_BUSADR

; THIS ROUTINE IS USED

BUS ADDRESS AND VECTCR ADDRESS FOR RH11

m—
o

EERIBE" P11

MACYLL q

TO INSURE THE BUS ADDRESS

:0C THE mxéoxaigsr? FOR THE PROPER ADDRESS.
i3 “ik#o‘l

ME ADDRESS FROM THE TTY

9950

:NOTE:

THIS ROUTINE DESTROYS RO-RY

3953

;

ggn

HX@:

&8 ;77700

HIVEC:

1325? 001260

: g 2 2’? .ooxfgg
"
66'“ 1 % 176

cnsi
as;
39309

s& 1
1 0S2185
0220% Diacos
859 ocurws osu7s0

qcn;é

;};3 05

9987
EEEL]
3389
999C
934]

9‘;E!35
554
9995
G996
9997
9«.@
99

10000

10001
10002

085220

bl
oL

Btz
e]

—_——

537

gguu
114
%soua
£110
0855042

,LINSP
(sPre.Al
HIRD,
BOUND

sxg
g1
€142

810 7
1
012701

0S5is0
O0E€1€2

01202i
000207

012021

IRO)+,-(SP)

RS, CK. NUM

2777

65520:5'

38:

052155
gS4746
085220

0S4750

S110 055110
010260 177776
4s:
S1i4 0137 %
7%:
(0551
7
ggsuégw 000004
0551
124636
5146

TYP
RV
MOV

?eg

203

gss
5076
ossxgg
ggx
104

ossxog

Eucnon .
m"chx'

JSR

3 14

;rsmoa

%3
TYPE

000004
033332

001170

; INPUT raoz iTY REQUESTED?

;ggs-%c m: ggs REQUEST FLAG
E"Rgésxs"

i®

N} RPCS1 ADDRESS

2
2
ASCI1 M
TEXT
:fgga%s 6F
RDORESS
: fix

HE %n

i PERIOD

ONLY ;m:neo

;

;mz
TYPE

,LINSP

78
3%
4%
35

MOV
MOV
MOV
15T
4%

MOV
MOV
MOV
MOV

MOV
RTS

ONLY ENTERED

TED

MITH A CARRIAGE RETURN

TR
H A 5‘
: SAVE
cS1
i28

HIVEC, BOUND
RS, CK.NUM

R2, -2(RO)
:thEc Rl
#8S, ERRVEC
gsnbaon
* snnvsc
#RPADR,
R1

NT RH11 VECTOR ACODRESS ON THE STACK
‘ TEXT

(SP)+ Rl

JSR

CARRIAGE RE

‘Efin

-2(R0O)
Rfih HVEC
tRO)+, -(SP)

9979

SReRees

IR 3

RARRRRARRA

3975

;

n
L]

:7?%

BUSRDR: ;g

cmam
9%“43
3365

PC, BUSADR

995?

—

‘

&0777(13

P 4

0SH47494

3385

'-4

—

mmg

9947

" BUAR0R- 4ETOBUS
Aokt S a0 VECIOR moomess Fom AmiL

EERIBE BT O TaSokE 7P ubEe

B1S

;NTRY

E
Y ;u RE
.;L GAL INPU
:
INATED
WITH A CARRIAGE RETURN
: TERMINATED
WITH A *,*

:SAVETERMINATED
INPUT WITH A ~.*
: SAY msnsnflon VECTOR
iSETUP FOR TRAP
;CHECK FOR RMil
:

:REST
‘FIRST

RROR g;croa
39
NEW PHRAMETERS
RESS OF WHERE TO PUT THEM

PLE ggn RO

iF sg

(RC)+, (R1)+

; BUS ADORESS

(RO+. (R1)+
PC

RDDRESS

l‘? VEC TOR-gRX

'VECTOR RDDRESS
:RETURN

S£G 0ig3

Gai6e

010137

«ai!

geify
S17
l4

MY FBULEOR’- LB7OB0S
RooAl 8w VECHBR ooress For mui:

000004

8s:

g137 005344
oo
;g
12
036440

IRt ZE

JMP

SGETHY2

oS!

02006

MRPCS1:

.ASCIZ

3JIRPCS] = 3

8831.‘1.

O41S0S

MRHVEC:

.RSCIZ

QSRHVEC = 3

OB B

;

TORE ;RRM

CTOR

er.fimiy

PR PRI e

GO TO END OF PRCGR

n
n

2050
Q051

©S

4, RE
3
§

;
:

3|
2,R3
2

ISk
5

€. CK.CHR

CARRIACGE RETURN

cT
*TLET IT GET T

IN R3

CHECK ONE CHRRACTER
LLEGAL CHARACTER
CARRIAGE RETURN

'u.u

%
ers
BE

3 10O

A
AsL
BCS

£§

5324

opeeE DEedi2ie
Bee3is
J0e7
Oee3le 10€711
joe 028328 GOI0i1

; SA

inow
: LLEan:RS
EHARAC TER

AOD

004837 027560
oS 34

-(SP)

{ SAVE

Ri e

1s:
28:

;gn

OTM«

705 000004
103426

= NUMBER

RY,~-(SP)

055344

055242

- Rl
S RIOD” Ro= ESNJHBER

AR3

MOV

Besl G5340

I%‘IAE%igfl:fiorfiémpmosmmc

ag'-(8P)

MOV

BRI

MOV

CK.NUM:

oo
PR

10446

10346

i
URN B3

WILMD
OOV
wnrror

§¥@ gé

B0
363
3%
004 055274 060203
g

é’ERRVEC

SEG Ol

HECK WR (OCTAL)
mgs gggsllf SCOfiCKS
RaC 5 a; ING FOR LEGAL CHARACTERS

ooue
004
0044

00S3

MOV

-0~
D

0SSiSv

Pt Pt Pt Pt Pt Pt

DM NN L WO

——

R
o
R88888888o 5’53%5%3

EERIBE
e T O T oRt P ub s

C1S

'pig
BOES
A =GR FOLLOW THE “PERIGD
BR T N

ipiaIr g-7

iWf4i-4(s1m[amwe]m
-w>~ 4Q=1 mo—wb wo~- mLo -~

.M-l:w=~m3~z0Wy-soo]5nlg.1=Wb0O?3o&l-211f5l15.5%354100Ow.4&-[Vmfl”W.niom’Me.H&.Hq.2&o(-xT~~HM.!83 28 38wmmmm

—LzQSOETN —BuUORdE B<O2ZVM3ON28

momc1) ofiu
T—

m
T
o
M
zo-(=y].Sowy (g7—T)3g£t

- o -d

- CHECK NUHBE‘ (ggYflL)

15-DEC-77
11:

5- 3% >Sa

¢ :
CK. NUM

Lmfiau

or TM

0TSF GO0

m—~eOlM%oNeo“Olt)&woDmoUOvuN)mCIow—]~§ewOome(gYmM]OUeIne)tN—%]tnw))mwemeoom)]om)]w]mwd)melmemomomelmomolmebmv=memomvemlomlomelmelmNem2melmmetmmTFmwTm%R
3-~v[(“N~% >[~Wa )v QL XxI aN~ 7-)4N]—b) —w=Q-xX-ebb v[w—[)x@=[~~&tlT] w'~]-IoN"nYN[ 'v" QQ -QLa@~~Y)x| -+4yAUNS+ =2 e+*
=QxA&b ]Q= --(~~h€ &QoQm== w*o=>a w9woQm2 ~~oQo“-NlN
;

D1S
PRGE 186

-e QA

b4a xWvLC~ =-~

a - -w o

O['
% -~ - wd TM"

(TM%

LOADER WILL BE OVERWRITTEN-<CR>
<L

] bib kee e
cdeqerdrdrdrdodd

E1S
SEC QJlee

.END

""00,081T) HH QO— [8 NNHO

]ALDOUIVIN=- Iflfl!aprlnlxX.Jlsololvnvl

XDV2DOiD0—oa-~EtwMOx-02vMDuTX0moM'D0.U-n0TDVoL[+6mD+m7c+0+DmIT1UDF2=UTMD—ITNuOmTBNTOmDs-TN(QyOTOMTOOxTWo>T~LT)fTiT—TTH38ipegpemGeleDb

l3£R03l085a7,2f3Rl5.%3b05WYR8W2Q7oB9mC7CmNa,VuYmMaEsSSUsWBaNI2EDa@yNoOBNN%RE&Wwnxmma0mmmMnmuunmwa

8LReIRBWRLIXIOOTN—~AZINTKORKOmRTRYqu7zWO—uMT
SioaolSRet t 8u8n3mu5m3u0m3 mwm %

&eT2S=iImLNe5StHn=eo(NOlm|0T.U4DQ=ZstOoMOLYL

T fi%fi%&%a&E

Nun — £ T

11:03

001
00

101800000

3
0
3

O MOTM= NB=

S-DEC-77

F1l5
PAGE

TBB

T&°ot Aubits
T

0
O
0
O
0
0
O
0
O
0
O
0
0
0
0
0
0
8 85 508wm.m wm @

£ ,"85901
?PO'O" S/6

SEQ 0187

VOVOLVLOLV

. .ou

w 0

NOPRS

aeSRst

(&2

ER%BE?MT’“"’?&‘-’ £t

T ;gflxb?g‘

MACY11 32(1

)

7
oL

S-DEC-77
E

11:03

G1S

PAGE 190

SEG Cle8

HxO—~MWD-tTc3%375%”2LC5752Hflwfifiowm1mmm111

i WL EEaay
L LLLLini LLiiuul
Errrors CPPeY 00000000

ORCENCT7qumRSgeRg xxmmaaaaaaugm

AR EBRRM > w5, TDES, &

x> - Q

ad 2%

NZNZNNZNNZ mmomooo SNTYQD—UOM

LPe

?—-30Nq—I10.OI01.2M

000

mwmm

b|s

NAR3

xlmmmmm

000

e gmezr om
om

PR(PV

[8}

(10

CIRJL0 T
P11
A
CIRJID
2
A o
C.
15
l
,
o
C

446

pak'

3?323;
BRI
;53
BKID

BaR

g"asgg”

pans

P
R
P

362

RR’_

e
PCLOC

3671

1402
es

PSU

= 0000
=

8RRVg

= 8268
88
S
PPN
. %qz
VE
;é

ets

PRY
<

177

el
%2

2 B00E

e
< T 2 00

Seess

-?7

O141140
33

SRve

Bul

ga8

RIS

35?;;} gi
gg
e
Bl
SUES
1
gtY fo
int
=

RanenT 8}25
22:‘.3?2

144,

RANTRK §%§§
RANXT

2§

l4ce

Y
0001

RESh

==l

QO1O102]7

LpRY= Q

2:82 .
&
-1
i
RPIN

§§§g:’.

°
c

TART

STARTS

fi?

Do2ic

cEFiTx Ble

§TA

B
o8]

sst

RELEE = G011

§=15

000143

STATIN
TAT

e
T

Z
Herar”
TRBL
2k
g

TReL 3

113

04123

321'4

TBITV

S106

S5 v

0302
9

ol i
t
WR
EGM

2388

anfl

DOO178

.B
0

= 0o0
C

881000
L300
3738
g

Deus

g&g

B
E

TRBLER 2

}'I'T‘

10
ST05

0S427s4e

TRBL S

1214

8357

gug

4186

g
21§

00145

i
e i
e
2KTER fig
gsg
B B
.

R:O“

3"‘*5 .

RPHR =
RP:E

s
-

iz i
l
T y§

RPOF

gEEKF

2
¢

7
5

T gaiase

RPcad =

SCBA

;

gg“

é:

REROR

RMR

Swo

B B
READ
Y

ok
.,

§ VEF

RECAP

IN=

SEG

:E%

191

RPOE

ggfi“
.

PAG

11:

-RP

Zoigm
i,

DEC

131

-l

Peh
Sina

RATIO

geet

1SBL

OCNT-~
8051

H1S

:03

46)

i
RS e
y

PaRio
PRl
PaR]
e

gss3

T
gggg
TRFER
= 81
TRFE
LMT
1346

k1
TTRRNNSWSTWT

0 014

R33294

2189

C2RIDCO,

RPOS S.6 MLT-

MACYLL

ERRIBe
B O SetorE
77 15os
TUF

= 0001

WRTPK

s ]

UNT

UNTNO
UNTOFF
UNTON

= C0CO1

vU30

»'Lf

20
l%
el

UWR

USH

I
=

*%?:

lflld

231

25
usSe

AIR =

WRT.R

88900)
005

0004

TRP

TRK

FUN-TIME RATIC:
CORE USED:
HOK

é SECON
£€77/€7=
(79 PA

TSTNM

1562
123‘0

v* =

TYPOC

1300

NSEC =
NTRK =
NU

WROL =
WROM =
SOFILL

020
OQ;
147

OCTV
oMC
OPERC=

RUN-TIME: 30

;vposn"
T

$OCN

RMO3: CZRIDC cg:oc SEQ/

TRAP

MSWR
NCODE=

{

TNPUR
TOTAL=
Tl;g

NEXT =
NPRTC=

ERRORS DETECTED:

TkeRY

TRAP2

H?T

122

ATUS=

T?Rfl =
TIME
TKB

LVEC

4 g&= 0083

CJo

TPe-C
TRANS=

vPC

SLPE

chg

= 000100

CN
NT%
TE

0S4ENE

T =

;sllfl

ONUM

001582

INu

WRIT

C10000

PARGE 192
gx

WRT.

WRT.
WRT.
WRT.

I15

AT R
WRY.

UNIT
ORD=

11:03

ABL

WRTPK

S-DEC-77

WRTPK

oo & 1owts
TY 4
Ng

UcP

(1046)

TYPEC
1
X

1204
1252

TYPON
TYPQOS

1218
1254
S760

J15