Digital PDFs

AH-9197D-MC

November 1979

218 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZRJDD0 RP04-5-6 RP04-5-6 MLT DR LGC NOV 1979 bw
Order Number:	AH-9197D-MC
Revision:	000
Pages:	218
Original Filename:	CZRJDD0__RP04-5-6__RP04-5-6_MLT_DR_LGC__AH-9197D-MC__NOV_1979_bw.pdf

OCR Text

RP04/5/6

CzRiDDO

comveiour 7o0e NANCRD
FICHE
1 OF
2

MADE IN USA

RP04/5/6

FICHE 2 OF 2

MADE IN USA

CIRI0D0,
M T=DR { (S
WACY!Y
(IR,0D.PVY
06-.UN=79 08:8%2

30AC1082)

0%3-JuL=79

10:4'

PAGE

]

SEQ 000!

LREM 3

PRODUCT

CODE:

PRODUCT NARE:

DATE

C(REATED:

MAINTAINER:

DENT

CATTON

AC(-91950-m(
CIRJDDO RPO&/S/6 ML T1-DR LGC

MAY,

1979

DIAGNOSTIC

ENGINEERING

THE INFORMATION 1IN THIS DOCUMENT [S SUBJECT TO C(HANGE
WITHOUT NOTJCE AND SHOULD NOT BE CONSTRUED AS A
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.

DiGITAL EQUiPMENT (ORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR

[N THIS DOCUMENT.

DIGITAL EQJUPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OR RELIABILITY OF ]TS SOFTWARE ON EQUIPMENT
THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED
(OMPANIES.

(C)

1976,1979 DIGITAL EQUIPMENT CORPORATION

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OFfF

POP
DECULS

DIGITAL EQUIPMENT

UNIBUS
DECTAPE

(ORPORATION

MASSBUS

JCIRIDDO MLT-DR LGC

06-JUN-79 08:32

30AC10592)

03=-4UL=79

10:41

PAGE

SEQ 0002

REVISION HISTORY
PSP

OECRR LR RRRROPCRRRRRRCRRREROPRCERRRRRORCEROEROSRORCEOSOEPROROROSRPRPOCRPRPOROROEROEORROERRORTOTTORTOYS

' CHANGE T]TLE FROM CZRJDCOTO CZRJDDO
2.MODJFY STARTING ADDRESSES TO SAFEGUARD DRIVES
PROCESSOR ENVIRONMENT.

3.MODIFY CODE

SEE

IN MULT]-

PARAGRAPH 2.. BELOW.

IN ""CLEAR DRIVE PARAMETER BLOCK' SUBROUTINE

(CLRDPB) TO PREVENT CLEARING LCCATION $RPDT,
&.MODJFY CODE IN ''DRIVE INITIALIZATION'® ROUTINt (DRVINT)
10 STORE DRIVE TYPE IN APPROPRIATE DRIVE PARAMETER BLOC(K.
00RO ROCEREOPRROEC

R ER RO RPERERRPORRPRRRNROECRCECEORRORRONCRRSOEOROSONSROORERNRORROEOROTPOERRERREYS

CONTENTS
1.

ABSTRA(CT

REQUIREMENTS

2.1

2.2

2.3
2.4

s
s
s
s

LSNP
-

3.6

3.7
3.8

PRELIMINARY PROGRAMS
PROGRAMMABLE DRIVES

LOADING THE PROGRAM
STARTING THF FROGRAM

RESTARTING THE PROGRAM
PROGRAM (ONTROL
PASS/TEST TERMINATION

PASS TERMINATION
3.5.1
TEST TERMINATION
3.5 2
RUNT l H%
DATA TRANSFER MODE
3.6.
3.6. 2
SEEK VERIFICATION MODE
UNIBUS & VECTOR ADDRESSES
DUAL PORT OPERATION

ING THE PROGRAM
(ONTROLL

& OPERATOR

PARAMETERS

4.2.1
4.2.2

4,2.35

IDENTIFICATION

PROGRAM CONTROL PARAMETERS
PERIPHER]AL DEVICE ADDRESSES

PARAMETERS FOR THE

SWITCH RCGISTER SETTINGS
KEYBOARD C(OMMANDS
'T' COMMAND

4.3
4.4

DATE

4.2

P o
S
S
L]
.
.
NS AN

&.1

F 2l R

‘.

EQUIPMENT

RMECIA

OPERATING THE PROGRAM
(VAW
RV LV LV ]

CIRJDD.PVI

MACYTY

‘D'

COMMAND

'R'

COMMAND

*S*'
‘W'

(OMMAND
(OMMAND

FIRST OPERATION

CIRJODO,MLT=DR LGC

(IRJDD.PI1Y

MACYTY

06-JUN-79 08:3°2

30AC1052)
G.L.6

PERFORMANCE
S.1
5.2

PAGE S

[NFORMATION

SUMMARY TYPEOUT

PERFORMANCE SUMMARY TYPEQUT EXPLANATION
HARD/SOFT ERROR DEFINITIONS
5.2.1
HARD ERRORS
5.2.2
SOFT ERRORS

DATA BUFFER COMPAR]SON
VERIFICAT]ON OF DATA WRITTEN

6.6

BAD

SECTOR REFORMATTING

TRACK/SECTOR FLAGGING

ERROR MESSAGES

7.2

ERROR DESCRIPTION LINES

DETAlL ERROR LINES

PROGRAM DESCRIPT]ON

8.1
8.2
8.3
8.4
9.

COMMAND

6.1
6.2

7.1

GENERAL

10:41

DATA (HECKING & ERROR RECOVERY

6.3
7.

O03-JUL=79

HOW THE PROGRAM OPERATES
DUAL PORT OPERATION
HOW VARJABLES ARE SELECTED FOR tA(W OPERATION
DATA PATTERNS

PROGRAM L ISTING

SEQ 0003

MACYI1
CIRJODO,MLT=-DR LGC
CIRJDD.PYY
06-JUN=79 08:32
1.

30A(1052)

O03%-uuL=79

10:4)

PAGE 6

SEQ 0004

ABSTRA(T

THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM IS DESIGNED TO PERFORM
AN INTERACTIVE TEST ON RP04/5/6 DISK DRIVES CONNECTED TO A MASSBUS

SUBSYSTEM.,
THE SUBSYSTEM MAY BE COMPOSED OF INTERMIXED RPO4, RPOS
OR RPO6 DISK DRIVES CONTROLLED BY EITHER AN RM11 OR AN RH70.
IN
ADDITION TO PERFORMING AN

INTERACTIVE

TEST

THE

DISK

DRIVES ON

THE

SUBSYSTEM, THE PRCGRAM IS INTENDED TO BE USED TO VERIFY THAT THt
DRIVES UNDER TEST ARE PERFORMING TO THEIR DATA ERROR RATE AND SEEK
ERROR RATE SPECIFICAT]ONS.

THE RPO4/5/6 MULTIDRIVE EXERCISER PROGRAM WiLlL EXERCISE DRIVES CONNECTED
AS E]1THER SINGLE OR DUAL PORT UNITS.
DUAL PORT DRIVES ARE TESTED

BY LOADING AND RUNNING THE PROGRAM FROM BOTH (ONTROLLING SYSTEMS,

THE PROGRAM WiLL EXERCISE A MIXED SYSTEM OF DUAL PORT AND NON DUAL
PORT DRIVES.
PROGRAMMABLE OPERATION IS INHIBITED WITH STARTING
ADDRESS 200-SEE

SEC

2.4.

204 OR 220 FOR DUAL PORT

THEREFORE,

TESTING.

USE

STARTING ADDRESS

TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE DRIVES ARE OVERLAPPED
(OTHER DRIVES ARE PERFORMING SEEK/SEARCH OPERATIONS WHILE ONE

DRIVE IS PERFORMING A DATA TRANSFER OR WRITE (HECK CPERATION).
OPERATIONS AMONG THELPRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA
TRANSFER RATE

OR A #]GH POSITIONING OPERATION RATE

THE PERFORMANCE OF

EACH DRIVE

|S MONITORED BY

THE

IS MAINTAINED.

PROGRAM.

DRIVE EXCEEDS A PPESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES,
THAT DRIVE IS AUTOMATICALLY DEASSIGNED.
(THME OPERATOR MAY OVERRIDE
THE

AUTOMAT]IC

DEASSIGNMENT

FEATURE.)

THE

PROGRAM REPORTS PERFORMANCE

STATISTICS FOR EACH DRIVE BEING EXERCISFD ON REQUEST FROM THE
OPERATOR OR AUTOMAYJCALLY AT AN INTERVAL DETERMINED By THE OPERATOR.
ALL DATA TRANSFER COMMANDS ARE USED

(1.E., WRITE DATA, WRITE HEADER

£ DATA, READ DATA, AND READ HEADER & DATA) AS WELL AS WRITE C(HECK
DATA AND WRITE (HECK HEADER & DATA COMMANDS.
RECALIBRATE AND
READ=IN PRESET (OMMANDS ARE USED AT STARTUP AND CRIVE INITIALIZATION.
RECALIBRATE, OFFSET, AND RETURN-TO-CENTERLINE
DURING ERROR PROCESSING.

COMMANDS ARE USED

THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE
WRITE (HECK COMMANDS.
THE WRITE C(HECK COMMANDS ARE USED TO VERIFY
A PREVIOUS WRITE OPERATION.
THUS, WHEN A WRITE COMMAND ]S SELECTED,
THE DATA WRJTTEN 1S VERIFIED BY

COMMAND
.

THE

APPROPRIATE WRITE

(HE(CK

PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD; DYNAM;(
PROGRAM OPT]IONS ARE SELECTED BY SWITCH REGISTER SETTINGS.
ERRORS
ARE REPORTED ON THE

TELETYPE.

ALL COMMANDS, DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED
RANDOMLY BY THE PROGRAM.
ADDIT]ONALLY THE ADDRESSES (EG. CYLINDER,
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RAND MUY,
REQUIREMENTS

iy
MACY1T1

(ZRJDDO ,MLT-DR LGC

06-JUN-79 08:32

2.1

03-JuL=79

10:41

PAGE

SEQ 0005

EQUIPMENT
REQUIRED

POP-11

PROCESSOR

16K MEMORY

(20K

THE PROGRAM 1S INCLUDED

TELETYPE
PROGRAM LOADING DEVICE
KWll=-L OR KkW11=-P (LOCK

RM11

OR RH70 WITH

RPO&,

IN AN 'XXDP'

RPOS, OR RPO6 DISK

C(HAIN

CRIVE

OPTIONAL

ADDITIONAL MEMORY

2.2

TO A MAX|MUM CF

28«

70 7 ADDITIONAL RPO4/5/6'S ON THE

SAME RH11 OR RH70

MEDIA

THE RPO4/S5/6 MULTIDRIVE EXERCISLR PROGRAM REQUIRES FOPMATTED DISK PACKS
WHICH CONTAIN RANDO® OR PATTERNED DATA RECOGNIZED BY THE EXERCISER,

DISK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE RP04/S/6 FORMATTER

PROGRAM (MAINDEC=11-DZRJB) OR BY THE 'W' (OMMAND OF THE RP04/5/6 MULTIDRIVE
EXERCISER (SEE SECTION 4.64).
THE PACKS MUST BE FORMATTED IN 22

SECTOR (16 BIT) MODE;

NOT

2.3

SUPPORTED.

PREL IMINARY

THME ALTERNATE

(20 SECTOR - 18 BI') MODE

PROGRAMS

RPO4/5/6 DISKLESS CONTROLLER TES!
PART 1 (MAINDEC-11-DZRJG)
PART 2 (MAINDEC=11-DZRJH)
RP0O4/S/6 FUNCTIONAL C(ONTROLLER TEST
PART 1 (MAINDE(=-11-DIRJI)
PART 2 (MAINDEC-11-DZRJJ)

RP04/5/6 DUAL CONTROLLER LOGIC TEST

[

PART 1
PART 2

C(ZRJDD.PY

30A(1052)

(MAINDE(-1'-DIRJL)
(MAINDEC-11-DZRJF)

PROGRAMMABLE DRIVES

(FOR DUAL PORT DRIVE

TESTING)

{(DUAL PORT ENABLED)

THIS REV INCORPORATES A SAFEGUARD TO PREVENT INADVERTENT
(ORRUPTJON OF DISKk PACKS IN PROGRAMMABLE CRIVES,
THIS 1S A POTENTIAL HAZARD IN RUNNING THIS PROGRAM IN A

MULTIPROCESSOR SYSTEM,

FOR THE STANDARD STARTING ADDRESS OF 200

THE PROGRAM HAS BEEN MODIFIED TO PREVENT INIVIALIZING DRIVES
FOUND TO BE PROGRAMMABLE.
THIS MODIFICATION APPLIES
(XXDP C(HAIN, STANDALONE)
ENVIRONMENT
ONLY 1O THE FIELD
LOCATION 46. FOR Tht
EQUAL
WHERE LOCATION 42 DOES NOT
MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PROGRAMMABLE

(IRJDDO MLT=-DR LGC

(ZRJOD.PWY

MACY1Y

06-.UN-79 08:%2

30A(1052)

O03-JuL-79

10:41

PAGF 8

SEQ 0006

DRIVES wiLL NOT Bt INMIBITED.
If THE OPERATOR DESIRES TO RUN TMIS PROGRAM USING
PROGRAMMABLE DRIVES IN A vt [ELD ENVIRONMENT USE STARTING ADDRESS 220, «HERE 220 IS
THE

SEE

SAME

200 WITHOUT

INMIBITING PROGRAMMABLE

SECTION 3.2.3.3 FOR A SUMMARY OF

DRIVES.

ALL STARTING ADDRESSES.

OPERATING THE PROGRAM

3.1

TME PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR
17 MAY BE LOADED FROM THE APPROPRIATE 'XXDP' MEDIA USING THE ASSOCIATED
LOADER.
THE PROGRAM MAY BE INCLUDED IN AN *XXDP' CHAIN.
IF THE
PROGRAM ]S BEING RUN ON A PROCESSOR WITH 16K, THE 'XXDP' LOADER WILL
NOT BE PRESERVED.
THE PROGRAM MUST BE RUN ON A SYSTEM WITH 20k OR
MORE 1O PRESERVE THE 'XXDP' LOADER.
THE 'ABSOLUTE' LOADER WliL BE
PRESERVED

5.2

IN A 16K

SYSTEM,

HOWEVER.

TME PROGRAM STARTS AT {OCATION 200(8).
THE

TELETYPE

DIAGLOGUE

GROUP MUST

1S STARTED. PROGRAMMABLE DRIVES ARE

XXDP CHAIN-SEE

5.3

SEC

2.4.

PARAMETERS NOT

(HANGED BEFORE

THE

INCLUDED IN
PROGRAM

INWIBITED STANDALONE AND

START THE PROGRAM AT LOCATION 204(8) IF THE RH11 OR THE RH70 IS

NOT AT ADDRESS 176700.

(NO INHIBITIONS)

STARYING THE PROGRAM AT 220 IS THE SAME AS 200 BUT PROGRAMMABLE
DRIVES ARE NOT INHIBITED.

3.4

ONCE THE PROGRAM 1S LOADED AND STARTED, OPERATIONS ARE INITIATED AND
CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS.
IF THIS 1S THE PROGRAM'S FIRST START, THE STATUS Of THE DRIVES ON
THE SELECTED MASSBUS SUBSYSTEM wiLL BE TYPED OUT.
ON SUBSEQUENT

STARTS, THIS TYPEOUT MAY Bt INHIBITED BY SETTING Sw<02>,
5.5

PASS/TEST TERMINATION

A PASS IS DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED.
THE
NUMBER OF BJTS OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER
THE SOFT ERROR RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION,
THE SPECIFICATIONS FOR RPO4'S, RPO5'S, AND RPO6'S SPECIFY NO MORE
THAN 1 SOFT ERROR (NON=-PACK RELATED) IN 1 x 109 BITS READ OR NO
MORE THAN 1 SEEK ERROR IN 1 x 10%6 SEEXS.
THE NUMBER OF BITS OR

SEEKS DETERMINING A PASS WERE SELECTED 10 PROVIDE A 90X CONFIDENCE
LEVEL THAT THE DRIVE 1S PERFORMING TO THE APPLICABLE SPECIFICATION.

3.5.1

PASS TERMINATION

END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS.
THE END OF PASS CONDITION USED IS DETERMINED BY PARAMETER "ENDET',
A.

IF PARAMETER 'ENDET' 1S 1, END OF PASS OCCURS WHEN THE DRIVE
HAS READ 1.875 x 108 WORDS (3 x 10%9 BI1S),

IF PARAMETER 'ENDET' IS O, END OF PASS OCCURS WHEN THE DRIVE

mACYYY
{IRHDD0,MLT=-DR LGC
06-JUN-79 08:32
C(IZRy0D.PYY

30A(1092)

HAS PERFORMED

3.5.°7

3 x

10:41

PAGE 9

SeQ 0007

106 SEEKS.

TERMINATION

TEST

THE

TEST

THE DRIVE HAS COMPLETED
PARAMETER 'PASCNT',

B.
(.
3.6

O03%-4uL=79

FOR A DRIVE

TERMINATED
THME

(Sw<0&> = 0)

NUMBER OF

WHEN:

PASSES

SPECIFIED

THE TOTAL ERRORS ACCUMULATED EXCEED 100.
A FATAL ERROR OCCURS: EM12 OR EM14,

RUN

TIMe

THE

EXERCISER

PROGRAM MAY

RUN

TWO MODES.

THE

MODE

DETERMINED BY TME VALUE IN PARAMETER "MAXDL'.
IF °'MAXDL' IS ONE
SECTOR, THE PROGRAM RUNS IN A SEEK HWEAVY MODE; IF °'MAXDL' APPROA(MES
ONE TRACK IN SIZE (5720 DECIMAL) THE PROGRAM RUNS [N A DATA TRANSFER
HEAVY MODE.
THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON
THE OPERATION MODE SELECTED, THE MEMORY AVAILABLE OVER 16K, THE

QEAD/WR]TE RAT]O PARAMETER 3.6. 1

°"RATIO®,

AND BY

SWITCHES O,

& 2.

DATA TRANSFER MODE

1 DRIVE = APPROXIMATELY 2.5 MRS (70 PEACH 1.875 x
10

10“8 WORDS)

8 DRIVES = APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 x 108 WORDS)
NOTE:

ARE
1

SW<01> = 1
THE

(NO SOF TWARE DATA COMPARSIONS),

FOLLOWING VALUES, APPROXIMATELY:

THE RUN TIMES

DRIVE = 1.7 HRS (1.875 x 10*8 WORDS READ)
ADD 1/2 HOUR FOR EACH ADDITIONAL DRIVE TESTED,

It THE PROGRAM 1S RUN WlTH BOTH SW<00> AND SwW<01>
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER.
NOTE :
3.6.2

ON THE FIRST PASS (QUICK VERIFY) THE TIMES ARE
APPROXIMATELY ONE EI1GHTH OF THE ABOVE VALUES.

SEEX VERIFICATION MODE

PARAMETER °*MAXDL® = 1 SECTOR (256 WORDS)
PARAMETER "MAXTRK® = °'MINTR«®
PARAMETER 'MAXSE(' = °"MINSEC'
SW<00> = 1 (READ ONLY MODE)

1 DRIVE ~ APPROXIMATELY 25 MRS (3 X 10%6 SEEKS)
10

8 DRIVES = APPROXNIMATELY 40 MRS (3 x 10%6 SEEXS FOR ALL DRIVES)
3. 4

UNIBUS € VECYOR ADDRESSES

THE PROGRAM ‘SSUHES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES.
T0 SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO (HANGE
UNIBUS

VECTOR

(REFER

THESE ADDRESSES.)

CIRJCOO,MLT=-DR LGC

CIRJDD.PY

MACY1Y

S0AC10S2)

06=-JUN=-79 08-32

OS=JuL=79

o
RH11

3.8

OR RM70

10:41

PAGE

SEQ 0008

omess

dooRtsy

176700

256

TTY PRINTER

177564

NOT

T1Y xEYBOARD

177560

Kwll=t

177546

100

Kwll=-p

172542

104

USED

DUAL PORT OPERATION
‘o

LOAD THE RPO&4/5/6 MULTIDRIVE EXERCISER PRUGRAM INTG BOTH

PROCESSORS.

SWITCH THE

U:ICH
U

'CONTROL.ER SELECT® SwIT(w TO 'A/B' ON EACH DRIVE

1S 70 BE

TESTED AS A DUAL PORT DRIVE;

C(YCLE

THE

DRIVES

START THE PRCGRAM [N EACH PROCESSOR.
RUN THE PROGRAM AS THROUGH
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER,

PROGRAMMABLE (DUAL PORT) OPERATION IS INHIBITED WlTH STARTING ADDRESS 200-SEE SEC 2.4.
THEREFORE, USE STARTING ADDRESS 204 LR 220 FOR DUAL PORT TESTING.

L THE PROGRAM
ING
CONTROL

THE FOLLOWING KEYBOARD (ONVENTIONS ARE USED BY THE KEVBOARD ENTRY

ROUTINES

IN THE

PROGRAM:

TO DELETE AN INCORRECT (HARACTER FROM AN ENTRY STRING, TYPE A
*RUBOUT® ('RO').
TYPING A 'RO' witi DELETE SUCESSIVE (HARACTERS

FROM THE

INPUT.

TO DELETE AN ENTIRE LINE, TYPE A 'CONTROL U'

('*U").

AN ENTRY MyUST BE TERMINATED BY EITHER A 'CARRIAGE RETURN' OR
A 'PERIOD'.
THE °'PERIOD' TERMINATION IS RECOGNIZED BY THE
PROGRAM AS A DEFAULT ENTRY REQUEST. WHEN A LINE IS TERMINATED
BY A 'PERIOD' INSTEAD OF A "CARRIAGE RETURN', THE PROGRAM WiltL
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO TME PRELOADED VALUES
FOR ANY REMAINING ENTRIES.

IF A "CONTROL C* IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM

WilL RETURN TO THE BEGINNING OF THE GROUP BEING ENTERED.
DATE & OPERATOR IDENTIFICATION

WHEN THE PRCGRAM ]S INITIALLY STARTED, !V wltL ASK FOR DATE AND
(THE REQUEST FOR THESE ENTRIES OCCURS
OPERATOR ].D. ENTRIES.

MACYTY
CZRJDDO, MLT=DR LGC
CIRJDD.P1Y
D6=JUN-T79 08:32

30AC1092)

03-0uL=79

10:41

ONLY WHEN THE PROGRAM 1S FIRST
THE

PROGRAM

|S RESTARTED.)

PAGE

THE

SEG 0009

STARTED AND wiLL NOT

THESE

ENTRIES

ARE

BE BYPASSED BY ENTERING A "CARRIAGE RETURN'
REQUEST.,

PROGRAM DOES NOT

ECIT

APPEAR WHEN

OPTIONAL

AND MAY

N RESPONSE TO THE

OR (MECK EITMER ENTRY,

UP TO

8 THARACTERS OF DATE INFORMATION AND UP TO 6 CHARACTERS OF OPERATOR
IDENTIFICATION MAY BE ENTERED.
BOTH THE DATE AND THE OPERATOR ].D.

WiLL BE TYPED WMEN THE

°"SA® (OMMAND |S PERFORMED (SEE SECTION 4.4.3).

PARAME TERS

WHEN THE PROGRAM S STARTED FROM LOCATION 200,
ASKED

TO ENTER PARAMETERS.

TME

TwE OPERATOR wiiLL BE

FOLLOWING MESSAGE

WiiLL

DiSPLAYED.

ENTER PARAMETERS:

THE OPERATOR MUST ENTER A

1¥

°'Y'

TERMINATED BY

PARAMETER ENTRIES ARE TO BE MADE.

AS A

'NO'

ENTRY,

THE

PROGRAM WiLL

A (ARRJAGE RETURN <(R>

ANY OTHER (HARACTER ]S ACCEPTED

IDENTIFY

THE

PARAMETER BY

GIVEN BELOW, DISPLAY THE CURRENT VALUE OF THE PARAMETER AND
WAIT FOR THME ENTRY.
THE PROGRAM wWiL. TYPE *INVALID ENTRY' ]f

ENTRY

6.2. 1

THE NAME

]S NOT (ORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED.

KEYBOARD ENTRY

ThE

PARAMETERS

DEFAULT
VALUE

VALUE
RANGE

NAME

BASE

MAXDL

(SEE NOTE)

PAS(NT

= 999

CONTROLS THE MAX]MUM BUFFER
SIZE USED FOR DATA TRANSFERS
NUMBER OF PASSES TO END OF

INTRVL

0 - 25¢

DETERMINES THE INTERVAL (IN

cmpemt
Ww(SEL

10
8

3
000000

0 = "MAXDL'
0 OR 1

FUNCTION

TEST.

MINUTES) BETWEEN AUTOMATIC
PERFORMANCE SUMMARY TYPEQUTS

ERRORS PRINTED OUT IF SwW<07>=0
THE NUMBER OfF DATA {OMPARSION
IF PARAMETER = (O, THE DATA
TRANSFER WORD

COUNT

THE

"MAXDL'.

SELECTED BETWEEN &

(L.}

1¥f

VALUE

PARAMETER =

TRANSFER WORD

ENDE T

000001

0 OR 1

BE THE VALUE

(10)

RANDOM_Y

AND

1, THE DATA

COUNT

WILL

IN °*MAXDL'

I# PARAMETER = ', END OF PASS

DETE?HINED BY THE
COUNT,

'WORDS READ'

1f PARAMETER = 0, END Of PASS
1S DETERMINED BY THt NUMBER

FORMAT

000001

0 OR 1

SEEKXS.

1f PARAMETER = 0. DO NOI

PERFORM WRITE HEADER & DATA
ORDERS; 1F PARAMETER > O,
PERFORM WRITE HEACER & DATA
ORDERS

CIRJDDO,MLT=DR L GC

06-JUN=-79 08:32

30AC1092)
8

RATIO

O03-0uL=79
000633

10:41

PAGE

-7

SEQ 0010

CONTROLS THE

RATIO OF

READ

APPROXIMATE
TO WRITE

ORDERS.
VAL UE

R/W RATIO

A wmNO—O

15/1
7/1
6/2
573
&/6

5/9%
2/6
1/7

0 OR 1

000001

AUTOCK

PARAMETER = 1, THE PROGRAM

PERFORM WRITE

EACH WRITE

(HEIKS AFTER

C(OMMAND.

1f PARAMETER = 0, THE PROGRAM

WiLL

PERFORM WRITE

RANDOMLY.,

0CR 1

000001

NOTPRI

CHMECKS

PARAMETER = 1, DO NOT PRINT

ERROR MESSAGES FOR DATA ERRORS
OCTURING AT LOCATIONS DEFINED
BY THE OPERATOR AS BAD PA(CK
LOCATION.
If PARAMETER = 0, PRINT ERROR
MESSAGES ASSOCIATED wlTH BAD
PACK LOCATIONS,

NOTE:

THE

PROGRAM WiLL

A MAXIMUM BUFFER SIZE WHICH

INJTIAL VALUE OF

'MAXDL®

DETERMINED By

PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF
TO ALTER THESE LOCATIONS,

NOT PROVIDE

b —

OO ~N~NWVWINE
O SANOO

LoC

IHE PROGRAM,

INTEREST

THE OPERATOR MUST MAKE MANUAL ENTRIES

BEFORE THE PROGRAM S STARTED.

—

4.2.2

SELECT

THE MAX]MUM BUFFER
1S DETERMINED BY THE MEMORY AVAILABLE.
SIZE ASSIGNED BY THE PROGRAM IS 5980 (10) WORDS.
THE
OPERATOR MAY SPECIFIY ANY OTHER MAXIMUM SIZE AS LONG AS THE
VALUE SPECIFIED 1S AT LEAST & WORDS BUT NO LARGER THAN
THE

PONY ot i e

(2ZRJDD.PW

MACYYY

THF KEYBOARD ENTRY ROUTINE DGES

ACCESS TO THESE LOCATIONS.

TAG

CONTENTS

FUNCT]ION

$7KS
$TKR
$TPS
$1P8
$LKCSR
SLK(SB
$LPVEC

177560
177562
177564
177566
172540
172542
104

TTY KEYBOARD STATUS REGISTER
TTY KEYBOARD BUFFER REGISTER
tTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
ADDRESS OF xWl1=P STATUS REGJSTER
ADDRESS OF xwl1=P (OUNTER BUFFER
kwll=-P VECTOR ADDRESS

$LKS

177546

ADDRESS OF xWil=L STATUS REGISITER

MACY1Y
CIRJDDO,MLT=-DR LGC
06-JUN-79 08:32
CIRJDD.PIY
1204
1212

30A(Y052)

O03-J0uL=79

10:41

100

SLLVEC

Kwll=-L

PAGE

SEQ 001

VECTOR

ADDRESS

(60 DECIMAL)

62 (S0 LECIMAL)

SYSTEM IS 60 Mi:

1F SYSTEM IS 50 wWl.

THE RM11-RH70 ADDRESS AND VECTOR MAY.BE CMANGED WHEN THE PROGRAM

15 STARTED FROM LOCATION 204(8) OR If, THE PROGRAM DOES NOT RECEIVE
A RESPONSE WHEN 1T ACCESSES THE DEFAULT RM11-RW70 ADDRESS.
€.2.5

PARAMETERS FOR

THE

FIRST

OPERATION

THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION
ADD]TION TO THE 'MINIMUM® ADDRESS VALUES).

LO(

TAG

1612

BEGPAT

1614

INITIAL
VALUE

VALUE
RANGE

(IN

FUNCTION
THE

(ODE

FOR

THE

STARTING

(IF A WRITE ORDER
PATTERN.
CHECK ORDER ]S
WRITE
OR A

BEGCOD

0-5

SPECIFIED IN 'BEGCOD')
THE INITIAL COMMAND FOR EACH DRIVE

EXERCISED.
0 = WRITE CHECK DATA
1 - WRITE CHECK HEADER & DATA
2 - WRITE DATA

3 - WRITE HEADER & DATA

1416

& - MAXDL

READ DATA

DATA TRANSFER OPERAT]ION.

FIRST

W <&

]
e
e

T
S

RS
R

T
L U

SW <6>
SW <S>

<15
<13>
<10>
<>

SW
SW
Sw
Sw

]

SWITCH REGISTER SETTINGS

—y

6.3

404

BEGSIZ

S - READ HEADER £ DATA
THE BUFFER SIZE FOR THE

W <

HALT

ON ERROR

INHIBIT ERROR TYPEOUT

RING THE TELETYPE BELL ]F ERROR
DISPLAY ALL DATA COMPARE ERRORS

DO NOT ALTER THE CURRENT OPERATION PARAMETERS
PARTIAL REGISTER DISPLAY [F ERROR; DO NOT DISPLAY
ECC CORRECTION RESULTS

INHIBIT MAXIMUM ERROR COUNT C(HECK; DO NOT DEASSIGN
DRIVES WHEN NORMAL END OF TEST REACHED.
DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPIS,

'DCK*, °*DTE', OR 'WCF' ERRORS OR AFTER THE 28TH

RETRY

I1F UNCORRECTABLE

°'DCK'

ERROR.

1F DATA _OMPARE ERRORS & Sw<7> SET, DISPLAY RtST

SW <>

Sw <1
Sw <O»>

1
1

BUFFER

INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTUP,
INHIBIT PERFORMANCE SUMMARY TYPEQOUTS.
INHIBIT DATA COMPARSION AFTER READ ORDERS

READ ONLY MODE

1f THE PROGRAM ]S BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34)

THE PROGRAM WwlLL DETERMINE THAT THE HARDWARE SWwlT(H REGISTER ]S
NOT PRESENT AND WILL USE A 'SOFTWARE' SWIT(H REGISTER.
THE

MACYI1
CIRJODO,MLT-DR LGC
CIZRJDD.PY
06-JUN-79 08:32

30AC1052)

O03-JUL=79

10:41

PAGE

SEQ 0012

*SOF TWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).,
THE
SETTINGS OF THE °*SOF TWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD

ROUTINE WHICH
RECOGNIZE THE

1S CALLED BY TYPING A "CONTROL G'.
THE PROGRAM wWiLL
°CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM |S

IN KEYBOARD ENTRY MODE, OR IS AT A WIGHER PRIORITY PROCESSING AN

RP04/5/6 INTERRUPT.,
THE °SOFTWARE® SWITCHM VALUES ARE
AS AN OCTAL NUMBER IN RESPONSE TC THE PROMPT FROM THE
FNTRY ROUTINE:

‘SWR = NNNNNN

ENTERED
SWIT(HM

NEw =°

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER

IMAGE MUST BE ENTERED.
‘CONTROL U'

LEADING ZEROS ARE NOT REQUIRED., °'RUBOUT® AND

FUNCTJONS MAY BE USED TO CORRECT

DURING SWIT(H ENTRY,

TYPING ERRORS

ON PROCESSORS WlTH HARDWARE SWIT(M REGISTERS, THE 'SOFTWARE' SWITCH
REGISTER MAY BE USED.

THE PROGRAM FINDS ALL

16 SWITCHES

‘UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE 10 THE
é?O;éUAREéDREGlSTER AND THE PROCEDURES DESCRIBED ABOVE MUST

IN THE

LLOWED.

KEYBOARD COMMANDS

THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES
FOR TEST ('T' (OMMAND), WRITE AND C(HECK DATA PACKS ('Ww' COMMAND),

PERFORM A SEQUENTIAL READ OF A PACK ('R' COMMAND:, REQUEST A DRIVE
PERFORMANCE SUMMARY ('S’ COMMAND), OR DEASSIGN A DRIVE WHICH IS

BEING TESTED, READING, OR WRITING ('D°'

COMMAND)
.

AFTER THE PROGRAM HAS BEEN INITIALIZED,

THE

wiLL

TYPED:

FOLLOWING MESSAGE

'PROGRAM INITIALIZATION COMPLETE
‘TYPE A CONTROL C TO ENTER COMMANDS'

KEYBOARD ENTRIES WILL NOT BE RECOGNIZED UNTIL THE OPERATOR TYPES

A 'CONTROL C'.

WHEN THE PROGRAM SEES A 'CONTROL (' ENTRY,

IT wiLL

SUSPEND THE SCHEDULING OF FURTHER DEVICE OPERATIONS AND WAIT UNTIL

ALL OUTSTANDING ORDERS WAVE TERMINATED.
THE PROGRAM WiLL ENTER
COMMAND ENTRY MODE AND TYPE THE FOLLOWING PROMPTING MESSAGE:
"HH:MM:SS

'ENTER (OMMANDS:'

THE PROGRAM WiLL

THEN ACCEPT ANY OF THE JALID COMMANDS.
AT THE
(OMPLETION OF A (OMMAND, THE PROGRAM WILL EXIT COMMAND MODE; THE
OPERATOR MUST TYPE ANOTHER °'(ONTROL (' YO RETURN THE PROGRAM 10

IF THE COMMAND ENTERED SPECIFIED AN ‘A’
COMMAND MODE.
DRIVE NUMBER, THE PROGRAM WILL REMAIN [N COMMAND MODE UNTIL ALL
AVAILABLE

DRIVES HAVE BEEN PROCESSED.

THE

‘W',

*T°',

AND

°*R'

(OMMANDS REQUIRE

ADDRESS LIMITS, DRIVE

1.D,

AND BAD LOCAT]ON ADDRESS ENTRIES FGR THE DRIVE BEING REFERENCED.

THE PROGRAM wiiLL FIRST ASKk $OR ADDRESS LIMiTS wlTw TWE FOLLOWING

MACY1Y
CIRJDDO, MLT=0UR L GL
=-T9
CIRJDD.PY
06=JUN
08:32

30AC1092)

O0%=JuL=79

10:41

PAGE

]

SEQ 0013

TYPEQUT-

*ENTER ADDRESS LIMITS FOR DRy #% / RPOL°
THE

(OR RPOS OR RPOG)

PROGRAM wiiL REQUEST VALUES FOR TuE FOLLOWING ADDRESS LIM]T

PARARE TERS,

NARME

DEFAULT
VALUE

BASE

MINCYL
MAXCYL
MINTRK
MAX TR

10
10
10
10

0
18

MAXSE(

MINSEC

NOTE:

Twe

VALUE
RANGE
(SEE
(SEE
0
0

FUNCTION

NOTE)
wNO°E)
- 18
- 18

0-2

THE MAXIMUM VALUES OF

(10)

OR 814

(10)

RINIMUR
MAXIMUR
MINIMUR
MAX]MUR

(YL INDER ADDRESS
CYLINDER ADDRESS
TRACK ADDRESS
TRACK ADDRESS

TWE

MAXIMUP SECTOR ADDRESS

THE RINIMUR SECTOR ADDRESS

0-2

ADDRESS LIMITS ARE

THE
THE
ToE
THE

IN DECIMAL

°"MINCYL® AND "MAX(YL' WiLL BE E]THER

DEPENDING ON THE

TYPE

DRIVE.

THE MINIMUM (YL INDER, TRACK, OR SECTOR ADDRESS MAY Bt
SPECIFIED AS BEING LARGER THAN THE MAXIMUM ADDKESS.
wHEN

THMESE VALUES ARE INVERTED, TWE PROGRAM wiiiL SELECT
ADDRESSES BETWEEN "HE °'MIN' ADDRESS AND THE UPPER
PHYSICAL LIMIT FOR THAT ADDRESS AND BETWEEN °*O° AND
VALUE IN 'MAX’,

EACH COMMAND, EXCEPT THE °*S' AND THE
A DRIVE
REQUEST

‘D' (OPMANDS, wiL. ASK FOR

IDENTIFICATION ENTRY,
THF DRIVE IDENTIFICATION ENTRY
1S MADE BY THE FOLLOWING MESSAGE:

'ENTER
THE

THE

1.D.

FOR DRv ON:'

OPERATOR MAY ENTER AN

(HARACTERS IN LENGTH.

].D.

NUMBER FOR THE

DRIVE

UP 10 &

THIS 1.D. WILL BE DISPLAYED, ALONG wlTH THE

DATE AND OPERATOR 1.D. ENTRIES (SEE SECTION 4.1), WHEN THE "SA®

COMMAND 1S EXECUTED.
THE OPERATOR MAY ENTER ANY (MARACTER STRING,
TERMINATED BY A 'CARRIAGE RETURN', OR A 'PERIOD® ONLY (NULL ENTRY)
IN RESPONSE TO THE 1.D. REQUEST,
THE PROGRAM WILL THEN ASK FOR THE ADDRESSES Of
THE

DISK PA(K USED, UP TO 16 ADDRESSES MAY BE

kxNOwWN BAD SPOTS ON

ENTERED:

‘BAD TRK/SEC ADRS FOR DRv #N ?'
THE OPERATOR MAY DECLARE UP TO '6 BAD LOCATIONS ON THE PACK BEING

USED.

TME LOCATION MAY BE AN ENTIRE CYLINDER, A BAD TRA(K, OR A

FORMAY

SECTOR.

THE FORMATS USED ARE AS FOLLOW:

SINGLE

C.1,5<CR>

THE PROGRAM WilLL INH]IBIT DATA ERROR MESSAGES OR WlLL

IDENTIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED ADDRESS,

MACY1Y
(2ZRJDDO,MLY-DR LG(C
0D.P
06-JUN-T79 08:32
(IRJ

30AC1052)

LEADING ZEROS ARE NOT

2:
WHEN

THE

*1'

8
SEQ 0014

PARAMETER

°'NOTPRT',

REQUIRED.

IS USED,

THE

ENTIRE

TRA(K wILL BE

HANDLED AS

C<CR>

WHEN THIS FORMAT 1S USED, THE ENTIRE CYLINDER WlLL
BE CONSIDERED BAD; DATA ERRORS WiLL BE HANDLED AS IN

LEADING ZEROS ARE NOT

'FORMAT

ABOVE.

TRACK,

OPERATOR MAY

REQUIRED.

AND SECTOR ENTRIES ARE

TERMINATE

THE

INSTEAD OF

A °'CARRIAGE RETURN'.

IN RESPONSE

WITH A 'PER]IOD'
6.4.1

THIS FORMAT

CYLINDER,

*PERIOD'

CONSIDCRED BAD; DATA ERRORS WiLL BE
'FORMAT 1°', ABOVE.
LEADING ZEROS ARE NOT REQUIRED.

NOTE:

PAGE

C.1<(R>

fORMAT

10:41

DEPENDING ON THE VALUE OF

B.
FORMAT

O03-0uUL=79

BAD

[N DECIMAL.

ADDRESS ENTRY

TO THE ENTRY REQUEST

OR BY

ENTERING A

TERMINATING AN ENTRY

COMMAND

USED TO ASSIGN A DRIVE(S) FOR TEST.
THIS COMMAND IS REQUIRED
PERFORM THE TEST OF THE DRIVE(S).
THE OTHER COMMANDS ARE CONVIENCE
COMMANDS OR

SUPPORT

COMMANDS.

TN<(R>

FORMAT:

N = DRIVE NUMBER.

MAY BE 0 1O 7 OR

"A'.

TERMINJATED BY A CARRIAGE RETURN <CR>.

TO<(R> - ASSIGN DRIVE O FOR TEST

EXAMPLE:
NOTE:

6.4.2

‘D'

ENTRY MUST BE

TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST

DRIVE OPERATION BEGINS IMMEDIATELY
AFTER COMMAND

IS ENTERED.

COMMAND

USED TO DEASSIGN A DRiVE(S) BEING EXERCISED.
FORMAT:

DN<(CR>

N = DRIVE NUMBER.

MAY BE O 1O 7 OR 'A'.

TERMINIATED BY A CARRIAGE RETURN <(R>.

DO<CR> = DEASSIGN DRIVE O

EXAMPLE:

DA<CR> - DEASSIGN ALL DRIVES BEING
TESTED.

NOJES:

ENTRY MUST BE

IF THE 'D' (OMMAND REFERENCES A
DRIVE NOT ASSIGNED THE PROGRAM

CZRJDD.P11

MACYI1 30A(1052)

06-JUN-79 08:32

03-JuL-79

WILL TYPEOUT

10:41

PAGE 17

‘

OPERATIONS COMPLETE.

'DA"

'S’ COMMAND

IN (1) ABOVE WILL NOT

‘

USED 10 REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED
DRIVE(S).
FORMAT:

SN<CR>

= DRIVE NUMBER.,

MAY BE 0 TO 7 OR 'A'.

TERMINIATED BY A CARRIAGE RETURN <CR>.

EXAMPLE:

NOTES:

ENTRY MUST BE
.

SAKCR> = TYPEOUT PERFORMANCE SUMMARY
FOR ALL DRIVES BEING TESTED.

1. IF

'SA'

SO<CR> - TYPEOUT PERFORMANCE SUMMARY FOR DRlVE 0

IS USED ONLY DRIVES BEING TESTED WILL

BE DISPLAYED.

’

IF THE 'SA' COMMAND 1S USED, THE PROGRAM WILL TYPEQUT

THE OPERATOR ENTERED DATE, OPERATOR I.D., AND THE DRIVE 1.D. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR
1°D. WILL NOT BE TYPED OUT If NO.DRIVES ARE BEING TESTED.

"W' COMMAND

“

TSN

FORMAT: WN<CR>

“

DRIVE EXERCISER PROGRAM.

:
-

L
4

WO<CR> = GENERATE A DATA PACK ON DRIVE 0.

)

DATA PACKS GENERATED BY THE RP04/5/6 FORMATTER PROGRAM
(MD-11-DZRJB) OR BY THE RP04/5/6 MECHANICAL & READ/WRITE
PROGRAM (MD-11-DZRJA),
-TEST 20, ARE ACCEPTABLE. (PACKS
.
WRITTEN BY TESTS 16, 17 OR 21 OF 'DZRJA' CANNOT BE USED
AND MUST BE REWRITTEN.)

_—
S
S

“

WACCR> = WRITE DATA PACKS ON ALL AVAILABLE DRIVES,
1.

’

-~
= DRIVE NUMBER. MAY BE 0 T0 7 OR 'A'. ENTRY MUST BE.
TERMINATED BY A CARRIAGE RETURN <CR>,

AR O

USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE 10 THE RP04/5/6 MLTI-

NOTES:.
.

WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMARY
FOR EACH DRIVE BEING TESTED AT A RATE DETERMINED BY
*INTRVL'

EXAMPLE:

)

1F PARAMETER 'INTRVL® IS NOT ZERO, THE PROGRAM

4.4

1S USED, ONLY DRIVES BEING

TESTED WILL BE DEASSICNED = THE

ERROR MESSAGE
BE DISPLAYED.

4.4.3

SEQ 0015

°?DRIVE NOT ASSIGNED'

2. THE DRIVES WILL BE DEASSIGNED AS THEIR
3.

—

|
.

’

oin

.
)

CZRJDDO,MLT~DR LGC

30A(1052)

THEt

O03-0uL=79

‘W'

10:41

THE

°'W'

SEQ 0016

10O WRITE

A DATA PACK

TOO GREAT

C(OMMAND PERFORMS A SEQUENTIAL WRITE OF

PACK USING A
THE

"WRITE DATA'

OPERATION OF

A;A'HIN(VL'.
'MAXTRK',

'MINTRK'

THE

THE DATA PATTERN

IS SELECTED RANDOMLY.
COMMAND IS

HOWEVER,

SEQUENTIAL, BEGINNING

AND CONTINUING TO ‘'MAXCYL',

THE

THE ‘W' COMMAND CANNOT BE STARTED IF SWITCH O (READ
ON_Y MODE) 1S SET.
IF SWITCH O SEY SET DURING THE
OPERATION OF THE 'W' COMMAND, THE DRIVE PERFORMING THE

THAT

THE

COMMAND.

(10).

‘W'

THE

(OMMAND DOES NOT
FORMAT

COMMAND WILL

THE

WRITE

PACK

IGNORE

HEADERS AND ASSUMES

IS GOOD.

THE SWIT(H.

THE DATA WRITTEN 1S VERIFIED BY A "WRITE C(HECK DATA'
COMMAND,

(OMMAND

USED TO PERFORM A SEUWUENTIAL READ OF
FORMAT:

)]

(OMMAND SHOULD NOT BE USED UNLESS ‘MAXDL'

USED FOR EACH WRITE

‘R*

PARAMETER |S APPROXIMATELY 1 TRACK IN SIZE - 5000
1F THE BUFFER SIZE 1S MUCH LESS THAN 1 TRA(K, THE

TIME REQUIRED
BE PRACTICAL.

PAGE

RN<CR>

DRIVE NUMBER.

TERMINATED BY

EXAMPLE:
NOTES:

THt PACK,
v

MAY BE 0 TO 7 OR

A CARRIAGE

'A'.,

RETURN <(R>,

ENTRY MUsS! Bt

RA<CR> - READ THE PACKS ON ALL OF THE ONLINE DRIVES.
RO<CR> = READ THE PACK ON DRIVE 0.
1.,

THEL PROGRAM WILL PERFORMA NORMAL C(HECK OF ALL DATA
HOWEVER, ALL OPERATIONS WiLL BE SEQUENTIAL.

READ.

THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS
SPFECIFIED BY 'MINCYL', 'MINTRK' TO THE ADDRESS SPECifIED
BY 'MAXCYL', °"MAXTRK'.
THE READ WILL BE SEQUENTIAL.

GENERAL (OMMAND [NFORMAT]ON

WHEN A COMMAND ]S ENTERED, THE PROGRAM WILL TYPE QUT THE

TIME

IF THE COMMAND ENTERED [S NOT VALID, THE PROGRAM WiLL 1YPt

£,

DRIVES ASSIGNED (WITH THME 'T1' C(OMMAND) OR DEASSIGNED (WITH THE
'D' (OMMAND) MAY BE ENTERED IN ANY SEQUENCE.

*INVALID COMMAND'.

MACYY1Y
CIRJODO,ALT-DR LGC
06-JUN-79 08:32
CIZRJDD.PYY

MACYI1
CIRJDDO,MLT-DR LGC
06-JUN-79 08:32
CIRJDD.PWY
D.

30AC1052)

THE

03-0uL-79

10:41

ERROR RESPONSES FROM THE
RESPONSE

PUNIT
7UNIT
7UNIT
7UNIT
JUNIT
7UNIT

N
N
N
N
N
N

PAGE

PROGRAM ARE

Sea 0017
AS FOLLOWS

COMMAND
(S)

OFFLINE
NOT ASSIGNED
ALREADY ASSIGNED
NOT PRESENT
UNSAFE
NOT1 AN RPO4/5/6

SUMMARY

T,
P,
T,
1,
T,
T,

W,
S
W,
W,
W,
W,

R
R
R
R
R

PERFORMANCE

TYPEOQUT

5.1

THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES
THIS SUMMARY WiLL BE DISPLAYED AUTOMATICALLY
BEING EXERCISED.
1F THE PARAMETER 'INTRVL' 1S NOT ZERO OR (AN BE DISPLAYED ON
REQUEST BY THE OPERATOR THROUGH THE USE OF THE 'S’ COMMAND.
THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS:

‘DRV'’

THE DRIVE NUMBER

‘ORDERS'
'SEEKS'
'WRDS XFER'
'WRDS READ’
‘SOFT’

THE
THE
THE
THE
THE

‘PASS'

THE PRESENT PASS COUNT

'HARD

NOTE:

NUMBER OF ORDERS PERFORMED BY
NUMBER OF SEEX OPERATIONS THE
TOTAL NUMBER OF WORDS WRITTEN
TOTAL NUMBER OF WORDS READ BY
NUMBER OF SOFT DATA ERRORS

THE NUMBER Of

'Sk’
'MIsSP’
'OTHER'

THE DRIVE
DRIVE PERFORMED
AND READ BY THEt DRIVE
THE DRIVE

HARD DATA ERRORS

THE NUMBER OF °'SKI' OR 'OCYL' ERRORS
THE NUMBER OF POSITIONING ERRORS
THE TOTAL ERRORS OF OTHER TYPES

ERRORS EM1, EM2, EM3, EM4, EMS, & EMIO ARE NOT
THE

'OTHER®'

ERROR TOTAL.

5.2

SOF T/HARD ERROR DEF INITIONS

5.2.1

HARD ERRORS

FOR THE DRIVE

A °'DTE'

(DRIVE

TIMING ERROR) OR A °'DCK'

INCLUDED IN

(DATA CHECK ERROR)

WHICH OCCURS DURING A READ DATA OR A READ HEADER & DATA OPERATION
AND IS NOT CORRECTED OR BECOMES CORRECTABLE AFTER THE PROGRAM
HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD SECTOR.
THE RETRY SEQUENCE 1S 16 RE-READS AT TRACK CENTER AND 2 ATTEMPTS
AT

EACH OF

THE FOLLOWING CFFSETS:

RPO&4/5
+600 MICRO=-INCHES
=400 P]JCRO-INCHES
+800 PICRO-INCHES

-800 MICRO=-INCHES

RPO6
+200 MICRO-INCHES
=200 MICRO-INCHES
+400 MICRO-INCHES
=400 MICRO-INCHES

06-JUN-79 08:32

30A(1052)

03-yuL=79

10:41

PAGE 20

+1200 MICRO-INCHES
=1200 ®ICRO-INCHES

5.2.2

Sea 0018

+800 MICRO-INCHES
-800 MICRO-INCHES

SOFT ERRORS
A.

B.
(.
D.

ECC

CORRECTABLE

'D(K'

& 'ECH'

'DLk'

ERRORS.

ERRORS WHI(H BECOPE ECC CORRECTABLE DURING

RETRY OR WHICH ARE

READ CORRECTLY

DURING RETRY,

HEADER READ ERRORS = READ DATA, READ HEADER & DATA, OR

WRITE

'DTE'
'DCK®

DATA ORDERS.

ERRORS WHICH ARE CORRECTEC OR WHICH BECOME ECC
ERROR DURING THE RETRY SFCUENCE.

DATA CHECKING & ERROR RECOVERY

6.1

DATA COMPAR]SON

DATA (OMPARISON OCCURS AFTER EACH °'RDDAT'

CORRECTABLE

(READ DATA) OR ‘ROHD'

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

THE ORDER

THE OPERATION TERMINATED WITH 'CCKx*® SET AND THE ERROR
1S ECC CORRECTABLE OR THE SECTOR IN ERROR [S READ

TERMINATED WITH NO ERPOR.

CORRECTLY AFTER RETRY ATTEMPTS,
6.2

VERIFICATION OF

DATA WRITTEN

AFTER EACH WRJTE OPERATION, THE DATA WRITTEN IS CHECKED WITH THE
APPROPRIATE WRITE CHECK COMMAND If PARAMETER 'AUTOCK® ]S 1,
(1F

6.3

"AUTOLK'

]S 0,

WRITE

CHECKS WlLL BE

PERFORMED RANDOMLY.)

SECTOR REFORMATTING

6.4

THE PROGRAM WILL REFORMAT AN UNCORRECTABLE ERROR SECTOR IN THE
FOLLOWING CASES (PARAMETER °'FORMAT' MUST BE SET AND SW<00> = 0).
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED.
MO
A
>P>

CIRJDD.PY

MACY11

DATA (HECK ERRORS - EM?1
HEADER READ ERRORS - EM20, EM24, EM2S, EM26, EMZ7
DRIVE TIMING ERRORS - EM3]
OPERATION INCOMPLETE ERRORS - EM3?
WRITE CHECK ERRORS - EM22, EM23

BAD TRACK/SECTOR FLAGGING

SINCE THE RPO& SUBSYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRA(CK

HANDL ING CAPABILT]Y, THE MULTIDRIVE EXERCISER ALLOWS THE OPERATOR
T0 IDENTIFY UP 10 8 BAD TRACK/SECTOR LOCATIONS WHEN THE DRIVE IS

ASSIGNED FOR TEST,

(SEE SECTION 4.1 FOR ADDITIONAL INFORMATION.)

1f ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED Bv

THE OPERATOR,

THE PROGRAM wlLL

INHIBIT

THE

ERRCR REPCRT

FOR

ThAl

[eaNan)

CIRJDDO,MLT=-DR LGC

30A(1052)

O03-4uL=79

10:41

PAGE

6
sta 0019

{ RROR,

DATA CHECK ERRORS ('CC(K')
WRITE (HECK ERRORS ('WCE')
OPERATION INCOMPLETE ERRORS

ORIVE TIMING ERRORS ('DIE")
HEADER READ ERRORS ('FER' €

(°OPI1"®
"WCRC',

"MCE'

"WCRC',

"HCRC')

OPTIONALLY, THE OPERATOR MAY REQUEST AN ERROR REPORT FOR FLAGGED
AREAS.
(PARAMETER 'NOTPRT' MUST BE SET TO O AT STARTUP.)
THE
PROGRAM WILL IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE PACK; THESE
f;ROSS"UlLL NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE

PROGRAM,

ERROR MESSAGES

CRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (1f AVAILABLE) A
LINE PRINTER.
ALL ERROR CONDITIONS ARE REPORTED IN ERROR MESSAGES;
THE PROGRAM (ONTAINS NO CODED ERROR HALTS.
IF THE PROGRAM HALTS
(ASSUMING, OF COURSE, THAT SW<15> 1S NOT SET), AN UNRECOVERABLE
PROGRAM (ONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS
CCCURRED.

ERROR MESSAGES ARE MADE UP OF SEVERAL LINES.

EACH TYPE OF ERROR

HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT1.
ALL OF THE
POSSIBLE ERROR MESSAGE LINES WHI(H MAY APPEAR ARE GIVEN IN THE
SECTION DESCRIBING THE PARTICULAR ERROR HEADER.
7. 1

ERROR DESCRIPTION LINES

MESSAGES EM1, EM2, EM3, EM4, EMS, EMIO, EMIY, £ EMI2 ARE ALWAYS

DISPLAYED ON THE TTY.
THE LINE

PRINTER

(THE MESSAGE

TAGS ARE

MESSAGE

TAG

THE OTHER MESSAGES ARE DISPLAYED ON EITHER

AVAILABLE)

OR THE

RH11

GIVEN FOR REFERENCE.)

INTERRUPT OCCURRED (RPAS=0)
RH11

(RPAS)

INTERRUPTED AND THE

WAS

ATTENTION SUMMARY REGISTER

CLEARED.

UNEXPECTED ATTENTION OCCURRED
THE

INDICATED DRIVE

INTERRUPTED BUT THE DRIVE WAS NOI

PERFORMING AN OPERATION.

Em3

T1v,

TEXT

THE

EM?2

(1F

MASSBUS PAR]ITY ERROR (MCPE=1)

MACYTY!
(IRJODO,MLT=-DR LGC
(IRJDD.P
06-JUN-79 08:32

30A(1092)
THE
THE

tMe

(O3-JuL=79

10:4%'

PAGE 22

[anNan)

MACYT1Y
(IRJDDO,MLT-DR LGC
(IRJDD.PW
06=-JUN=T79 08:32

SEQ 0020

RH11 DETECTED A CONTROL BUS PARITY ERROR WHEN READING
INDICATED REGISTER FROM THE INDICATED DRIVE.

MASSBUS PARITY

ERROR

(PAR=1)

PLUG CHANGE BIT

SET

ADDRESS

DIDON'T

FROM THE

RESPOND

WHEN THE

ADDRESS.

RH11,

NO RESPONSE

THE PROGRAM HAS TRIED 3 TIMES 10O READ OR WRITE

FATAL MASSBUS PARITY

THE

10 PROCESS A PREVIOUS,

PERSISTENT

THE

DRIVE

DEVICE

BECAME

INDICATED

ERROR

A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH1T
Emi12

WAS RECEIVED

UNCORRECTABLE MASSBUS PARITY ERROR
REGISTER.

EMI

INTERRUPTED.

TO ADDRESSING

PROGRAM ADDRESSED THE
INDICATED

INDICATED DRIVE

DIFFERENT

PARITY

ERROR.

ATTEMPTED

UNSAFE

UNSAFE;

DRIVE

CLEAR

TO THE

DRIVE

DID

NOT CLEAR THE UNSAFE CONDITION.
THE PROGRAM WILL
AUTOMATICALLY DEASSIGN THE DRIVE.
THE DRIVE CANNOT

BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN
(LEARED.

EM13

OPERATION NOT (OMPLETED WITHIN TIME LIM]T
THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1
AFTER THE OPERATION wihS INITIATED.

EMis

SECOND

UNIT WENT OFFLINE

THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION.
(THE 'MOL' BIT BECAME ZERO.)
THE PROGRAM WILL AUTOMAT][CALLY

DEASSIGN THE DRIVE.
THE OPERATOR MUST REASSIGN THE DRIVE
*T°' COMMAND TO RE-INITIATE TESTING.

WITH THE
EM15

NO RESPONSE TO PORT REQUEST

THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SwWwiT(HED
TO THE REQUESTING PORT WJITHIN 10 SECONDS AFTER PORT REQUEST
10 THE DRIVE FROM THE REPORTING PORT,
£EM20

RH11

WHEN THE

BIT WAS SET

°"OPE'

HEADER CRC ERROR

A HEADER (RC ERROR WAS DETECTED AT

THE

INDICATED D]Sk ADDRESS,

Em6

THE

EMS

THE INDICATED RPO4& DETECTED A CONTROt BUS PARITY ERROR
WHEN ThE RH11 LOADED THE SPECIFIED REGISTER,

30AC1052)
THE

O03-uuL=79

CONTENTS OF

10:41

THE

WEADER

BE RETRIED 3 TImes,
Em

DATA (HECK

(°'DC(Kx*)

PAGE
ARE

SEQ 002i

DISPLAYED.

THE

OPERATION WiLL

ERROR

A DATA (HE(K ERROR WAS DETECTED AT THE INDICATED SECTOR.
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) wliLL BE INITIATED
FOR THE SECTOR IN ERROR IF THE ECC HARL ERROR (°'ECH) BIT
1S SET.

Eme?

WRITE

(HECK ERROR - DATA (HECK

('DCK')

SET

A WRITE CMECK ERROR OCCURRED AND THE DATA (HECK (°N(Kx') BIT
WAS SET.
IF "ECH' IS NOT SET, THE OPERATION WiLL BE RETRIED

EM23

UP 1O 3 TIMES; IF THE 'ECH' BIT
BE RETRIED UP 1O 16 TIMES.

IS SEY,

WRITE

('DCK') NOT

(HECK ERROR - DATA C(HECK

THE OPERATION WiLL
SET

A WRITE (HECK ERROR OCCURRED AND 'DCKx' WAS NOT SET.
TME
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR
MESSAGE.
THE OPERATION WILL BE RETRIED 3 TIMES,
EM24

HEADER READ ERROR -

'FMT'

A WRITE

CHECK DATA, OR

DATA,

WRITE

PERFORMED AND A

'FMT'

BIT

DROPPED
A READ DATA WAS BEING

ERROR OCCURRED.

THE PROGRAM RE-READ THE

HEADER OF THE ERKROR SECTOR AND THE 'HCRC' B]T1 WAS SET.
THE
CONTENTS OF THE HEADER ARE DISPLAYED.
THE OPERATION WiLe
BE RETRIED 3 TIMES.
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.
WHEN THE HEADER WAS RE-READ, THE
'MCRC' BIT WAS NOT SET.
THE CONTENTS OF THE HEADER ARE

DISPLAYED.
Eme7

THE OPERATION WltL BE RETRIED 3 TIMES,

HEADER COMPARE

('HCE') ERROR

SIMILAR TO EM26 EXCEPT THAT THE 'WCE' BIT WAS SET
THE OPERATION WiLL BE RETRIED 3 TIMES.

INITIALLY,

MACYT!
CIRJDDO
ML T-DR LGC
06-JUN-T79 08:32
(28400.PVY

Em30

30AC10%52)

O03-0uL=79

MISCELLANEOUS

DRIVE

10:41
ERROR

PAGE 24

SEQ 0027

MACY1Y
(IRJDDO,MLT-DR LGC
06=JUN=79 08:32
(IRJDD.P1Y

CIRJDDO,MLY=DR LGC
(IRJOD.P1
06=-JUN=-79 08:32

30A(1052)

03-JuL=79

THIS MESSAGE

tm3

]S GIVEN FOR

OPERATION INCOMPLETE
Ag ?SSRATION

Em32

10:41

SEC

CRIVE

TIMING

PAGE 25
THE

PARITY

('OP1') ERROR

INCOMPLETE
('DTE')

THE

('PAR')

'PAR'

BIT

SEQ 0023

FOLLOWING ERROR BiTS:

ERROR OCCURRED AT

ERROR

DRIVE TIMING ERROR OCCURRED IN THE
OPERATION WiLL BE RETRIED 3 1IMES.
EM33

THE

INDICATED

INDICATED SECTOR.

THE

ERROR AFTER OPERATION STARTED
WAS SET WHEN THE OPERATIGN WAS COMPLETED.

OPERATION WiLL BE RETRIED 3 TIMES.

EM34

WRITE

(LOCK FAILURE

A WRITE

CLOCK

('wCF')

FAILURE

OCCURRED DURING

OPERATION WitLL BE RETRIED 3 TIMES.

THE

OPERATION.

THE

TwE

MACY11

Em3sS

30A(10%92)

‘NVALID ADDRESS
AN

Em36

03-JuL=79

10:41

PAGE 26

('IAE') ERROR

INVALID ADDRESS ERROR OCCURRED DURING

WRITE LOCK

RH11

OPERATION.

THE

DRIVE

WAS WRITE

OR UNIBUS TRANSFER ERROR

'TRE'

SET

IN THE

ERROR HAS OCCURRED.

RHM11

CONTROL REGISTER

AND NO DR]VE

THE OPERATION WiLL BF RETRIED 3

TIMES 1F THE ERROR WAS CAUSED BY
OR "MDPE".
Ema

THE

('WLE') ERROR

AOURégE OPERATION WAS ATTEMPTED BUT
LOCKED.

EMeO

SEQ 00c04

BUS ADDRESS OR WORD COUNT

'DLT®,

'UPE',

'MXF',

INCORRECT

NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES
THAT AN INCORRE(CT NUMBER OF WORDS WERE TRANSFERED OR THE
WORD

EMG?2

COUNT

IS NOT

ZERO.

DATA (OMPARE ERRORS - NO DRIVE ERROR DETECTED
NO SUBSYSTEM ERROR WAS SIGNALED; HWOWEVER,
COMPARZ
,

EMe3

(AN'T

MATCH DATA READ WITH A PATTERN

THE DATA

PATTERNS.

EM&LG

THE DATA DOES NOT

IN THE BUFFER DOES NOT MATCH ANY OF

THE

STANDARD

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RM11
THE OPERATION COMPLETED NORMALLY, HOWEVER, THE PROGRAM
FOUND EJTHER ERROR BITS IN THE RPO4& SET OR ERROR BITS IN
THE

EMLS

RH11

SET,

ECC LOGIC FAJLURF

THE CONTENTS OF E1THER THE ECC POSITION REGISTER (RPEC1)

OR THE CONTENTS OF ECC PATTERN REGISTER (RPECZ) ARE NOT
THE POSITION REIGSTER IS EITHER'O' OR > 10041 (8)
VALID.
OR THE PATTERN REGISTER CONTAINS ZEROS.

EM&6

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 ADDRESS
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THt
WORD COUNT REGISTER.

EM50

SEEK INCOMPLETE OR OFF CYLINDER ERROR

THE DRIVE SIGNALED EITHER °*SkI' OR °'OCYL' ERROR B]TS.

[S—

oTM~

MACYTT1
(2RJDDO,ALT=DR LGC
06=JUN-T79 08:32
CIRJOD.PY

30AC1052)

EmS1

03-4uL-79

10:41

PAGE 27

SEQ 0025

PROGRAM DETECTED POSITIONING ERROR
A HEADER COMPARE ERROR OCCURRED ('MCE'), HOWEVER, WHEN THE
PROGRAM EXAMINED THE HEADER OF THE SECTOR IN ERROR,
[T
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS

OF
EM60

"RPCC'

INDICATED DRIVE UNSAFE

CLEARED BY A
DETAIL
THE

THE DRIVE WiLL BE RECALIBRATED.

DEVICE UNSAFE
THE

7.2

THE ORIVE.

'DRIVE

CLEAR'

ERROR OCCURRED;

THE

INSTRUCTION.

ERROR WAS

ERROR LINES

LINE *.UMBERS GIVEN BELOW ARE

TT:17:17

(DESIRIPTION Of

*TT:TT7:7T71"' IS
WAS STARTED.
MINUTES:

THE TIME
TT:TT:TT

FOR REFERENCE

ONLY.

ERROR)

SINCE THE PROGRAM
[S GIVEN IN HIURS:

SECONDS.

)

"""

*PRESENT ORDER = XXXX PREVIOUS ORDER = vv.v\;‘ .
MNEMONICS USED FOR THE ORDERS ARE DEFINED BELO\U;“,"
UNLOAD = UNLOAD (OCTAL 3)

SEEK (OCTAL 5)
SEEX RECAL - RECALIBRATE (OCTAL 7)
DRVCLR = DRIVE CLEAR (OCTAL 11)
RELSE - RELEASE (OCTAL 13)

OFFSET - OFFSET (OCTAL 15)
RTC = RETURN TO CENTERLINE
READIN - READIN PRESET

a
¢

-~'

(OCTAL 17)

(OCTAL 21)

PACK = PACK ACKNOWLEDGE (OCTAL 23)
SEARCH - SEARCH (OCTAL 31)
WCKD = WRITE C(HECK DATA (OCTAL 51

WCKHD =~ WRITE CHECK HEADER & DATA (OCTAL 53)

WRIDAT - WR]ITE DATA (OCTAL 61)

WRTHD = WRITE C(HECK HEADER & DATA (OCTAL 63)
RDDAT = READ DATA (OCTAL 71)

RDHD =

READ HEADER & DATA (OCTAL 73)

(DISPLAY OF THE RH11/RP04/5/6 REGISTERS IN TWO GROUPS:

RPCS1,RPCS2,RPDST,RPERT
,RPER2 ,RPER3 ,RPECT, & RPE(2 FORM THE FIRST
ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP.
GROUP;
1F Sw<05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WiLL BE
DISPLAYED.)

MACY11
CIRJIDDO,MLT=DR LGC
CIRJDD.PVY
06-JUN-79 08:32

N
MACY11
CIRJDDO, MLT=-DR LGC
-79
.PYT
CIRJDD
06-JuN
08:32
THE

30A(1052)

ABOVE

THE

LINE

NON-DATA

03-4uL-79

WILL BE

10:41

TYPED

TRANSFER PART

TME

THE

]

PAGE 28

SEQ 0026

ERROR OCCURRED DURING

OPERATION.

*s ERROR AT BAD TRACK/SECTOR'
THE

ABOVE

LINE

WILL BE

PRINTED

A DATA ERROR OCCURES AT

AN ADDRESS

ON THE PACK WHI(H THE OPERATOR MAS IDENTIFIED AS BEING BAD.
'NOTPRT® MUST BE O FOR THE ERROR 10O BE REPORTED.

PARAMETER

A WORD CALLED °SYATUS® 1S DISPLAYED WITH THE RP0O4/S5/6 REGISTERS.
(ONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE

RPO4L/5/6 DRIVE
AS

MANDLER ROUTINE.

THE

BITS

IN THIS WORD ARE

THE

ENCODLD

FOLLOWS:

LINE

IS '1!

Bll &

MEANING IF BIT

ERROR OCCURRED

DRIVE

PERSISTENT

UNCORRECTABLE

FATAL PARITY ERROR OCCURRED.

OPERATION NOT COMPLETED WITHIN 1 SECOND
MASSBUS CLEAR PERFORMED.,
ALL OTHER
OUTSTANDING OPERATIONS WERE RESTARTED.

DONE

DATA ERROR OCCURRED DURING THE

ERROR GCCURRED WHILE SEARCHING FOR THE °*TRANSFER'

CORRECTABLE UNSAFE CONDITION OCCURRED

DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC

PORT REQUEST TIMEQUY

NON=EXISTENT

DONE
DONE

(B1107:=0), BITS 14=-9, 2, 1V SPECIFY 1YPE
(BIT07=1), BITS 6-=3 SPECIFY T(PE

1S OFFLINE

UNSAFE

CONDITION EXISTS

PARITY

ERROR OCCURRED

WAS PERFORMED

= OPERATION COMPLETED

TRANSFER

SECTOR OR DURING RECALIBRATE OR OFFSET (OMMANDS

RECALIBRATE

SEQUENCE

DRIVE REQUESTED

ERROR AT (XXX Tvy §ll

MASSBUS CLtAR

PREV ADDR = CUuUU Tvv Suwu

THE

30AC1052)

ACTUAL

O03-JuL=79

ADDRESS

THE

10:41

ERROR

PAGE

SECTOR

DISK ADDRESS ARE GJVEN IN THIS LINE.
SECTOR ADDRESSES ARE

PRESENT

ADDR

(XXX

THIS LINE

IDENTIFIES

ADDRESSES

ARE

THE PREVIOUS ADDRESS

CvyL

START

GIVEN

N DECIMAL.

TYy

SII

THE

ADDR

IN DECIMAL.

= XXX END CYL -

AND

SEQ 0027
THE

CYLINDER,

ADDRESS WHMEN THE

IS ALSO GIVEN.

CUUU

TRA(K, &

Tvv

Sww

ERROR WAS CETECTED;

CYLINDER,

TRACK,

& SECTOR

YYY

THIS LINE IDENTIFIES THE STARTING CYLINOER OR A SEEK (IMPLIED)
AND THE DESTINATION CYLINDER.
CYLINDER ADDRESSES ARE IN
DECIMAL.

START (YL = XXX

END CYL = YYY

ACTUAL (YL -

221

THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEX,
THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY

STOPPED AT.

CYLINDER ADDRESSES ARE

RPBA =

RPWC

XXXX

IN DECIMAL.

YYYY

THIS LINE GIVES THE CONTENTS OF THE RH11 BUFFER ADDRESS
REGISTER AND THE RH11 WORD COUNT REGISTER.
THIS LINE 1S
NOT PRINTED IF SW<05> IS NOTV SET.

STARY CYL = XXX

START TRK - YY

START SECTOR = 71

THIS LINE IDENTIFIES THE STARTING DISk ADDRESS OF THE PRESENT
OPERATION.
(CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL.

RPDA

XXXX

RPCA -

YYYY

THIS LINE GIVES THE CONTENTS Of THE RPO4 TRACK AND SECIOR
ADDRESS REGISTER AND THE (ONTENTS OF THE DESIRED CYLINDER
ADDRESS REGISTER.
THIS LINE IS NOT PRINTED IF Sw<05> IS NOT

TM~

MACY1Y
CIRJIDDO,MLT=-DR LGC
06-JUN=T79 08:32
(IRJDD.PYY

30AC1052)

O03-JuL=79

10:41

PAGE 30

SEaQ 0028

SET.

LINE

BUFFER ADDR - XXXX

SIZE

vYYYY

ACTUAL NUMBR WRDS XFRD -

277!/

THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR TME
CURRENT DATA TRANSFER OPERATION, ITS SIZE, AND THE ACTUAL NUMBER
OF WORD TRANSFERED.
THE STARTING ADDRESS OF THE BUFFER IS IN

OCTAL,

THE

SIZE AND WORD TRANSFERED VALUE ARE

GOOD DATA = XXXX

BAD DATA = YvYY

IN DECIMAL.

SECT POS = 211

THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE
AND THE LOCATION [N THE SECTOR OF THt ACTUAL DATA.
THE
POSITION IS IN DECIMAL.

LINE

HEADER CONTENTS OF

ERROR SECTOR

THIS LINE GIVES THE

(ONTENTS OF

ERROR.

GAVE

THE

LINE

RPECT

= XXXX

XXXX

THE HEADER OF

XXXX

THE SECTOR WHI(H

RPEC2 = YYYY

THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF
WHICH BECAME ECC CORRECTABLE DURING RETRY.
LINE

DISK,
SECTOR

A SECTOR

1¢

ECC CORRECTABLE WITHOUT OFFSET

THE SECTOR IN ERROR IS ECC CORPECTABLE; NO RETRY ATTEMPIS ARE

NECESSARY.,

LINE

READ CORRECTLY AT OFFSET

MICRO-INCHES

THE SECTOR IN ERRUR WAS READ WITHOUT ERROR AT THE

OFFSET

LINE

VALUE.

INDICATED

[gn
¥ an]

MACY!Y
CIRJDDO,ALT-DR LGC
CIZRJDD.PVI
06=JUN-79 08:32

30AC1052)

O03-JuL=79

ECC CORRECTABLE AT OFFSET
8?ESé§£TOR

10:41
x

PAGE

SEQ 0029

MICRO-INCHES

IN ERROR BECAME ECC CORRECTABLE AT

THE

INDICATED

LINE

CORRECTED ON X RETRY
THE

OPERATION WAS PERFORMED ERROR FREE ON

ATTEMPT,

THE

INDICATED RETRY

LINE

UNCORRECTABLE AFTER X RETRIES
THE OPERATION COUNT NOT Bt PtRFORMED CORRECTLY AFTER ThE
INDICATED NUMBER OF RETRY ATTEMPTS,

DIFFERENT ERROR DURING RETRY

WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED.
IFf THIS LINE 1S PRINTED, THE RHI1/RPO4 REGISTERS WilLL ALSC Bt
PRINTED

(SEE

LINE

2).

DATA (OMPARISON ERRORS

A PRINTOUT OF

THE

TOTAL

ERRORS

COMPARE

DATA COMPARISON ERRORS FOLLOW THIS LINE.

XXXX

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

THE

DATA

THIS LINE

ECC

COMPARED OK

INDICATES THE RESULTS OF

CORRECTION.

LINE 23

THE

THE DATA (OMPAR]SON fOLLOWING

[eaNan)

MACY11
CIRJDDO,ALT-DR LGC
CIRJDD.PIY
06-JUN-79 08:32

30A(1052)

03-0UL=-79

10:41

PAGE 32

MACY1T
CIRJDDO, MLT-DR LGC
CIRJDD.PWY
06-JUN-79 08:32

Sea 0030

ECC CORRECTION RESULTS
THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE
THE ADDRESS IN MEMORY Of THE WORD(S) [N ERROR ARE GIVEN,

BEFORE CORRECTION AND THE WORD(S)

REPORTED.
THE WORD(S)

AFTER COPRECTION ARE PRINTED.

LINE 24

ERROR BURST BEGINS AT WORD XXX

IN DATA FIELD OF ERROR SECTOR

THIS 1S AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR °'D(K’ ERRORS
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING
RETRY,
'XXx' IS THE WORD OFFSET VALUE FROM °'RFECT' AND IS IN
DECIMAL.

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

DATA ERROR WAS NOT

IN DATA TRANSFERED

0 MEMORY.

LINE 26

CONTENTS OF

THE ERROR SECTOR

(REPORTED ABOVE)

1F Sw<03> IS SET, THE SECTOR WHICH GAVE THE °'DCx', *DTE' OR,

‘WCF' ERROR OR 'HARD' DATA C(HECK ERROR IS PRINTED.
(ONTENTS OF THE SECTOR FOLLOW THIS LINE.

THt

LINE 27

ORDERS: wWww
THIS
TYPE

ERRORS: X

WRDS XFR: YYYY

WRDS REAC: 72117

IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING

ERRORS.

'ORDERS'

1S THE TOTAL NUMBER OF

WHICH REPORTED THE ERROR.

COMMANDS GIVEN TO THE DRIVE

1S THE TCTAL NUMBER Of WORDS WRITTEN AND READ BY

'WRDS READ'

S THE TOTAL NUMBER OF WORD READ BY THE DRIVE.

THE

DRIVE.

ORDERS: wwwiw TOTAL SEEKS: XXX TOTAL POS ERR - vvy TOTAL Sk, OCvL ERK

'WRDS XFR'

*ERRORS 1S THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES
EVERY ERROR DETECTED, REGARDLESS OF TYPE.

THIS

30A(1052)

THE

‘ORDERS'

REPORTED

LAST

IS THE

THE

'TOTAL

LINt

10:41

PRINTED

FOR

TOTAL NUMBER Of

ERROR.

'TOTAL SEEKS'
BY THE DRIVE.
THE

03-JuL=79

]S THE

POS ERR'

ALL

THE

'TOTAL SK1,0CYL ERR' IS THE
SIGNALED BY THE DRIVE.

SEQ 0031

POSITIONING

TYPE

ERRORS,

SEEX OPERATIONS PERFORMED

TOTAL NUMBER OF

FOR

CRDERS GIVEN TO THE DRIVE WHI(H

TOTAL NUMBE® OF

THE

PROGRAM DETECTED

PAGE

DRIVE.

POSITIONING ERRORS WHICH

TOTAL NUMBER Of

'Sk1'

'OCYL'

ERRORS

PROGRAM DESCRIPTION

PROGRAM OPERATION
WHEN THE PROGRAM S STARTED, ALL TABLES AND
PARAMETERS ARE CLEARED OR INITIALIZED.
THE

PARAMETERS WHICH ARE

UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND
CONSISTENCY.
RH11 INTERRUPT ENABLE (']E') IS SET, Ty KEYBOARD
INTERRUPT ENABLE 1S SET, AND THE KW1l=L OR Xwll1=P CLOCK IS STARTED.

WHEN THESE ACTIONS HAVE BEEN COMPLETED, THE PROGRAM TYPES OUT
"PROGRAM INTIALIZE COMPLETE'.
COMMAND ENTRIES WiLL NOW BE ACCEPTED
BY THE PROGRAM
THE

PROGRAM SCANS
1)

2)
3)
&)

THE

17S

INTERNAL

ASSIGNMENT

TABLES,

DRIVES

TO ASSIGN/DEASSIGN

DRIVES

COMPLETING CURRENT OPERATIONS.

LOOKING FOR:

PERFORMANCE SUMMARY TYPEQUT REQUESTS
DRIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT,
OR PARAMETER SELECTION.

PROGRAM CONTINUES SCANNING

IN THE CASE OF

THE PROGRAM AT

1TS

TABLES UNTIL AN ENTRY

INITIAL START,

[S FOUND.

THE FIRST ENTRY WILL

BE MADE BY THE OPERATOR WHEN A DRIVE [S ASSIGNED ('T' COMMAND).

WHEN A DRIVE ]S ASSIGNED, THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE
DRIVE 1S PRESENT, IS AN RP0&4/5/6, AND 1S ONLINE.
THE ASSIGNMENT ROUTINE
THEN ISSUES A 'READIN PRESET' INSTRUCTION, SETS 'FMT22', AND ISSUES
A

'RECALIBRATE'

INSTRUCTION.

PARAMETERS FOR THE CPERATION ARE SELECTED AND A BUFFER IS ASSIGNED.
THE OPERATION 1S A WRITE OR WRITE CHECX ORDER, THE ASSIGNED BUFFER

WwilL BE FILLED WITH THE SELECTED PATTERN.
(WRITE C(HECK ORDERS ARE
ISSUED AFTER EACH WRITE ORDER.
THE WRITE CHECK ORDER USES THE
PARAMETERS SELECTED FOR THE PRECEEDING WRITE

ORDER.)

1S THEN PASSED TO THE COMMAND INITIATION ROUTINE.

THE
THE

(ONTROL

COMMAND INITJATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS Of
REQUESTED OPERATION.
If THE DRIVE MUSTM SEEX 1O ANOTHER CYLINDER

MACY11
CIRJDDO ,MLT-DR LGC
CIRJDD.PI
06=-JUN-79 08:32

MACY11
CIRJDDO
ML T-DR LGC
(IRJDD.P
06=-JUN-79 08:32

30A(1052)

O03-JuL=79

PERFORM THE

OPERATION,

THE

DRIVES,

SEARCHING FOR

10:41

PAGE

PROGRAM

ISSUES

°'TARGET'

SECTORS.

SEQ 0032
SEARCH

INSTURCTION

10 THE DRIVE WITH A "TARGET' SECTOR WwMICH IS 8 SECTORS EARLIER
THAN THE °'TRANSFER' SECTOR.
(THIS ALLOWS THE PROGRAM TO INITIATE
OPERATIONS ON ANOTHER DRIVE WHILE THE PRESENT DRIVE, OR OTHER
THE

ARE

PROGRAM ARE

[MPLIED

DRIVE FINDS THE

°"TARGET'

THE

LOOK

SEEX

AHEAD REGISTER

COMPARES THE

POSITION OF

ALL

SEEKS

OPERATIONS.)

]SSUED BY

WHEN A

SEARCHING

SECTOR AND INTERRUPTS,

THE PROGRAM READS

THE DISK WITH

THE DESIRED SECTOR.

(RPLA)

THE

INTERRUPTING DRIVE

THAT

AND

If OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO C(HECKED.
PROGRAM THEN 1SSUES THE REQUESTED ORDER TO THF DRIVE NEAREST ITS
TRANSFER

SECTOR.

INITIATED.

I1F

THE

A DRIVE

DRIVES NOT

IS NOT

REVOLUTIONS OF TS DISK,
NOTE BEEN ON CYLINDER AS

ARE

1T IS GIVEN PRIORITY
LONG.

STORED AND A DATA TRANSFER

IS COMPLEYE,
INITIATED

THAT.NO ERROR BITS ARE

AND WORD COUNT

ADDRESS

ARE

W]TH EACH OTHER;

CORRECT NUMBER Of
CONSISTENT

ANOTHER

REGISTERS ARE

OVER DRIVES WHICH HAVE

THE

DRIVE REGISTERS

FOR A WAITING DRIVE.

THE OPERATION HAS BEEN COMPLETED NORMALLY,
CHECKED TO VERIFY

HAVE

SELECTED FOR TRANSFER AFTER THREE

WHEN THE DATA TRANSFER OPERATION
ARE

SELECTED WILL

THE

CHECKED

THE SAVED DRIVE REGISTERS

SET;

THE RH11

TO VERIFY

WORDS HAVE BEEN TRANSFERED AND THAT
AND

THE

THAT

THE

BUS ADDRESS
THE

TWO REGISTERS

ORDER WAS A READ ORDER,

THE

DATA BUFFER IS COMPARED.
WHEN THIS SEQUENCE |S COMPLETED, THE DRIVE
IS RETURNED TO THE ASSIGNED, INACTIVE LIST.
THE PROGRAM THEN
INITIATES A DATA TRANSFER ON A WAITING DRIVE AND RESELECTS AND

REINITIATES ANOTHER OPERATION ON THE

RELEASED DRIVE.

ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER.
ERRORS WIiLL BE REPORTED AS THE FIRST ERROR TYPE (HECXED.
A.

ERRORS REPORTED FOR OPERATIONS WHICH HAVE

PERSISTENT

UNSAFE

NOT

MULTIPLE

COMPLETED NORMALLY.

CONDITION - EMI?2

UNCORRECTABLE MASSBUS PARITY ERROR =~ EM10
FATAL MASSBUS PARITY ERROR - EMI11

OPERATION NOT (OMPLETED WITHIN TIME LIMIT - EMI3
UNIT WENT OFFLINE - EMISG

ERRORS REPORTED FOR OPERAT]IONS WHI(H COMPLETE NORMALLY.
(ORRECTABLE UNSAFE - EM60
DRIVE TIMING ERROR - EM32
DATA CHECK ERROR - EM21
WRITE CHECK WITH DCK SET - EM2?2
HEADER (RC ERRORS - EMZ20
FORMAT ERRORS - EM24, EM26
HEADER COMPARE ERRORS - EM25, EM?27
PROGRAM DETECTED POSITIONING ERROR - EM5]
SEEK INCOMPLETE OR OFF CYLINDER ERROR = EMSO
WRITE CHECK WITHOUT 'DCK' SET1 - EM23
RH11 OR UNJBUS TRANSFER ERROR - EM&OD
'OPi' ERROR - EM3I
‘PAR'

ERROR - EM33

'W(F*

*JTAE'

O03-uuL=-79

10:41

PAGE

SEQ 0033

ERROR = EM34

ERROR = EM3S

'WLE' ERROR -~ EM36
MISCELLANEQOUS DRIVE ERROR - EM30

ERRORS NOT

FLAGGED BY

THE HARDWARE

ERROR DETECTION LOGIC.

BUS ADDRESS OR WORD COUNT INCORRECT - EM41
DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EM&?
CAN'T MATCH DATA READ WITH A PATTERN = EM4A3
ERROR BJIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 - EM&S
ECC LOGIC FAILURE - EM4S
BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM&O
B.2

DUAL PORT

OFERAT]ON

PROGRAMMABLE DRIVES (DUAL PORT) OPERATION IS INHIBITED WliTH STARTING ADDRESS 200-SEE
THEREFORE, USE STARTING ADDRESS 204 OR 220 FOR DUAL PORT TESTING.

DUAL PORT OPERATION 1S NEARLY IDENTICAL TO THE OPERATION DESCRIBED
THE DIFFERENCES ARE IN (OMMAND SEQUENCE INITIATION
IN SECTION 8.1,
AND ORDER

TERMINATION.

WHEN THE DUAL PORT HANDLER ROUTINE
A REQUEST

FOR A DRIVE,

IN THE MULTIDRIVE PROGRAM RECEIVES

THE PROGRAM VERIFIES

THAT

THE

DRIVE

THE DRIVE 1S SELECTED AND 0'S ARE WRITTEN INTO ‘'RPDS1°:
ONLINE.
1F THE DRIVE IS IN NEUTRAL, THIS WILL SEIZE THE DRIVE.
[IFf THE
DRIVE 1S SEIZED BY THE OTHER PORT, WRITING INTO 'RPDS1*® wWlLL SET
"PORT REQUEST'.
THE PROGRAM (MECKS 'DVA' IN °'RPCS1'.
IF THE DRIVE
1S AVAILABLE AS INDICATED BY THE 'OVA' BIT, THE COMMAND SEQUENCE
WiLL BE INITIATED IN THE NORMAL MANNER (SEE SECTION 8.1 ABOVE).
IF 'DVA' WAS NOT SET, THE PROGRAM MAKES AN ENTRY FOR THE DRIVE
IN AN INTERNAL 'PORT REQUEST PENDING' TABLE AND
STARTS A 20 SECOND TIMER FOR THE DRIVE.
IF THE DRIVE HAS
NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 20 SECOND INTERVAL,
THE PROGRAM REPORTS A 'NO RESPONSE TO PORT REQUEST' ERROR.
NORMALLY
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTRCL
LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS
(E.G. MASSBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM
ON A MOD33 TTY), THE OTHER PROCESSOR WAS UNABLE 10 PROCESS THE DRIVE
AFTER 11 HAD REQUESTED THE DRIVE.
THE OPERATOR MUST BE AWARE Of
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE POR!
RELATED ERROR MESSAGES PROPERLY.

AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WiLL STORE
THE REGISTERS AND ISSUE A ‘RELEASE' TO THE DRIVE; If THE OPERATION
TERMINATED WITH AN ERROR, THE DRIVE wiLL NOT BE RELEASED UNTIL
ERROR PROCESSING HAS BEEN COMPLETED.

SINGLE PORT DRIVES, DRIVES WHICH
ARE IN NEUTRAL BUT NOT BEING EXERCISED BY THE CPPOSITE PORT ARE STIti
TREATED AS DUAL PORT DRIVES IN THAT A RELEASE COMMAND [S ISSUED

AT THE END OF NORMAL ORDER PROCESSING OR AT THE END OF ERROR PROCESSING.
A RELEASE COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL
EFFECT ON THE OPERATION OF THE DRIVE.

SEC

2.4.

Wan

30AC1052)

MACYYY
CIRJDDO,MLT-DR £GC
(ZRJDD.PIY
06-JUN-79 08:32

8.3

30A€1052)

SFLECTION OF
A.

O03-uUL=79

10:41

PAGE

SEa 003«

OPERATION VARIABLES

SECTOR ADDRESS SELECTION 1S RANDOM BETWEEN THE VALUES IN
‘MINSEC' AND °'MAXSEC'.
TRACK ADDRESS SELECTION IS RANDOM

BETWEEN THE VALUES IN "MINTRK' AND °'MAYTRK'.
CYLINDER ADDRESS
SELECTION 1S RANDOM BETWEEN "MINCYL' AND °'MAXCYL'.
IF A MINIMUM
ADDRESS

IS GREATER

THAN

THE

(ORRESPONDING MAXIMUM ADDRESS,

THE

PROGRAM WILL EXCLUDE ALL ADDRESSES BETWEEN 'MAX' AND 'MIN' FROM
THE SELECTION.
FOR EXAMPLE: JF 'MINTRK® [S 18 AND 'MAXTRK' [S

1S 5, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 6 - 17
AN ADDRESS FROM AMONG ADDRESSES

:gOHoTHE SSLE%I]ON ;ND SELECT
4
4
’
L4
4 ‘l

THE BUFFER SIZE 1S RANDOM SELECTED BETWEEN & (10) - AND THE
VALUE IN 'MAXDL'.
THE SIZE SELECTED IS WEIGHTED TO ENSURE
THAT

LEAST

& WORDS ARE WRITTEN

IN THE

DATA AREA OF

THE

LAST

SECTOR.
THIS IS NECESSARY AS THE PROGRAM REQUIRES & LOCAT]IONS
IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MAT(H THE DATA
10O A PATTERN FOR DATA COMPARISON PURPOSES.

THE DATA WRITTEN 1S RANDOMLY SELECTED AMONG THE 15 STANDARD

PATTERNS.
THE KEYWORDS IN THE HEADER
HEADER & DATA ORDER) ARE ZERO FILLED.
FIND

THAT

THE

KEYWORDS

ARE

ZERO.

(WHEN PERFORMING A WRITE
THE PROGRAM EXPECTS T0

THE ORDERS ARE SELECTED RANDOMLY.
WRITE CHECK DATA AND WRITE
(HECK HMEADER & DATA ORDERS ARE PERFORMED ONLY [f THE PREVIOUS

IF THE 'FURMAT® PARAMETER
ORDER WAS THE APPROPRIATE DATA ORDER.
1S ZERO, THE PROGRAM WILL NOT SELECT WRITE HEADER & DATA (AND
WRITE CHECK HEADER § DATA) ORDERS.
WHEN THE PROGRAM SELECTS
A WRITE HEADER & DATA ORDER,

260 (10);

WRITE

THE BUFFER SIZE

1S FORCED 10

THE PROGRAM WILL NOT PERFORM A MULT]-SECTOR FORMAT

OPERAT]ON.

THE FIRST ORDER PERFORMED AFTER A UNIT
'R'

'T',

'W', OR

THE

VARJABLES.

1S ASSIGNED WlTH A

THE PARAMETERS
THE MINIMUM OR STARTING VALUES Of

COMMAND 1S NOT RANDOMLY SELECTED.

FOR THE FIRST OPERATION ARE
DATA PATTERNS

THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE
THE ENTIRE BUFFER IS FILLED wliM
WHEN A WRITE ORDER 1S SELECTED.
WHEN DATA IS READ FROM THE DISK, THE PROGRAM
THE SELECTED PATTERN.
COMPARES DATA ON A SECTOR BASIS: FROM THE FIRSY & DAYA WORDS Of
EACH SECTOR, THE PROGRAM MAT(HES THE DATA TO CONE OF THE FOLLOWING
TO MANTAIN COMPATIABILITY WITH PACKS WRITTEN BY THE FORMAT
PATTERNS.
PROGRAM (MAINDEC-11-DZRJB), THE PROGRAM WiLL ACCEPT ALL JERO'S AND
AND ALL ONE'S PATTERNS; HOWEVER, ALL ZERO'S AND ALL ONE'S
PATTERNS ARE NOT WRITTEN BY THE EXERCISER PROGRAM.

PATTERN '8'

}S DEFINED AS THE

'WORST CASE' PATTERN.

PAT 1

PAT 2

PAT 3

PAT &

PAT S

PAT 6

PAT 7

PAT 8

000001

177776

000000

052525

0CG7&17

026455

165555

MACY11
CIRJDDO MLT=DR LGC
(IZRJDD.PIN
06~JUN-79 08:32

NONTNSNNNNNSNNWWNO
YN
NN TN TN TN SN TN TN N N TN N SN AWML

100000

177776
1
1
1
1
1
1
1
1
1
1
1
1
1
1
NWWVON NSNSNSNSNSNSN NN NN
NNNNUWWVWO
N NNNNNNN
NN NNNNNWWVONINNNN

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

172666
1555595
172666
155555
172666
155555
172666
155555
172666
155555
172666

1559%5
172666
155555
172666

155555

077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737

177757
177767
177773
177775
177776

VA
VA
U
VY]
VAV VAV TV IV,
VIV TV IV, TV RV,
VAV TVIIV
VARV TV
TV
VAV
(VR

VAV TV ARV

VAV

VARV TVRV
VAV TVAIV
VRV
VAV

VARV IRV TV

VAV
VAV

(WA

cwald
o
=l

MO O
N

-l

il
—d
D
el
el
il
)
ol

RV ]
N
(¥ o][pS R

1322

125252

PAT

V77777

—

PAT

177777

125252
125292

WO WO N WNO

052525
125252
052525
125252
052525

LW L U1 V1, CAV LV, ]
IV LW, T V], V] SRV LV ]

125252
135673
146314
156735
167356

104210
114631

000000
177777
000000
177777
000000

177777
177777

007417
0074617

V1 VR

052925
052525
125252
125252
125292
052525
052525

153333
Q66667
153333
066667
153333
066667
153333
066667
153333
066667
1533%3

066667
153333
066667
153333

066667

177777

177777
000000
000000
000000
000000
000000
000000
000000
000000
000009
006000
000000
000000
000000
000000
000000

PROGRAM LISTING

1817
1818
1819
1820
1821
1822

1823

1824
1825
1826
1827
1828

CZRJDDO, RPO4/S5/6 MLT-DR LGC
LTITLE
;*COPYRIGHT (C) 1975,1979
:*DIGITAL EQUIPMENT CORP.
; *MAYNARD, MASS. 01754
M

-THIS PROGRAM WAS ASSEMBLED USING THE PDP=1i MAINDEC SYSMA(
'PA(KAGE (MAINDEC=-11-D2QAC-C3), JAN 19, 1977,
.SBTTL
X

OPFRATIONAL SWITCH SETTINGS

£~

SEQ 0035

N [QURC 1 SRV ]

010421
021042
031463
042104
052525
0631646
073567

[o BT
o JEY, JEVEETYe e JETI
IR e o
~ (VR
G RV
S VAIVTYi SV
IR o

000000
000000
177777
177777
177777
000000
000000

~~ ~N NN ~

000000

PAGE

~ -~ -~ N~ -~

177777

177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000

10:&1

~~ SNNN
N ~

000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777

03=-0uUL=79

30AC1052)

NNNNNNNNNNNNN
NNNNNNNNNNNN -~

MACY11
CIRJIDDO,ALT=-DR LGC
(IRJDD.P
06-JUN=79 08:32

1829
1830
1831
1832
183
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859

1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884

30A(1052)

O03-JuL-79

@eoeoeeesese

M
M
M
s

.SBTTL

@ 323z

15
13
10
4
6
5

:*
.?
HAd
H
Ml

PAGF

SEQ 0026

USE

SWITCH
@

M
M
.*
M
Mg
A
.
HAd

2
1
0

92|/

eocooecescacocosocsocaccs

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
DISPLAY ALL DATA (OMPARE ERRORS
DON'T (HANGE PARAMETERS (LOOP ON PRESENT VALUES)
A. PARTIAL REGISTER DISPLAY ]F ERROR
B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR
A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS

8. DO NOT DROP DRIVE WHEN NORMAL END OF TEST REACHED
A. DISPLAY ERROR SECTOR IF 'DCK*', 'DTE', OR 'wW(F' ERROR
B. DISPLAY SECTOR IF 'DCK' ERR UNCORRECTABLE AFTER
28TH RETRY
C. IF DATA COMPARE ERROR & SW7 SET, DISPLAY
REMAINDER OF BUFFER

A. DON'T TYPE SUBSYSTEM STATUS WHEN PROGRAM STARTED
B. DON'T TYPE PERFORMANCE SUMMARY
INHIBIT DATA (COMPARSION AFTER READ ORDERS
READ ONLY MODE

BASIC DEFINITIONS

;*INITIAL ADDRESS Of THE STACK POINTER wev 1100 wver

001100

STACK=
.EQUlV
JEQUlv

000011
000012
000015
000200

HY=
LF~
(R-=

000000
000001
000002
000003
000004
000005
000006
000007
000006

OPERATIONAL SWITCH SETTINGS
i

177776

10:41

e )

MACYTY

1100
EMT,ERROR
107,SCOPE

;:BASIC DEFINITION OF
;;BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

s*MISCELLANEOUS DEFINITIONS

CRLF=
PS=

1"
12
15

::CODE FOR HORIZONTAL TAB
::CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN

200
1777176

::CODE FOR CARRIAGE RETURN-LINE FEED
::PROCESSOR STATUS WORD

STKLMY= 177774
PIRQ177172
177570
DSWk=

:,STACK LIMIT REGISTER
::PROGRAM INTERRUPT REQUEST REGISTER
: HARDWARE SWITCH REGISTER

LEQUIV

PS,PSW

DDISP=

177570

: :HARDWARE DISPLAY REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS
ROX0
;s GENERAL REGISTER
::GENERAL REGISTER
21
R1=

R2=
R3=
R& =
RS=
R6=

000007

R7-=
SP=
PC=

000000
000040
000100
000140

PRO-=
PR1:
PR2:
PR3:

) ¥4
%3
x4
%5
X6

%4
16
X7

;;GENERAL
;;GENERAL
::GENERAL
:;GENERAL
;;GENERAL

::GENERAL REGISTER
:3STACK POINTER
:;PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS

0
40
100
140

;:;PRIORITY
;:PRIORITY
::PRIORITY
::PRIORITY

LEVEL O
LEVEL
LEVEL 2
LEVEL 3

CIRJDDO, RPOL/S5/6 MLT=-DR LGC
CZRJDD.PI
06-JUN-79 08:32

(IRJDDO, RPO&L/S/6 MLT=-DR LGC
CIRJDD.PY
06-JUN-79 08:32

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

SW15=
Swi&é=
swid=
Swi2SWwil=
SWwi0=
sw09=
SWw08=

1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940

PR7=

100000

200
2«0
300

340

10:41

PAGE

]

SEQ 0037

;:PRIORITY LEVEL &
::PRIORITY LEVEL S
::PRIORITY LEVEL 6

::PRIORITY (EVEL

o 'SWITCH REGISTER' SWITLH DFFINITIONS

SWw07-=

SW06-

100000
4B000
20000
10000
4000
2000
1000
400

200

100

SW05-=

LEQUIV
LEQUIV
LEQUIV
JEQUIV
LEQulv

SW07,Sw?7
SWw06,S5W6
SWO05,SWS
SWO4,SWe
Sw03,Sw3

Swo4s=
sw03=
Swi2=
SWwol=
Sw00=
LEQulvy
LEQUIV

LEQUIV

1927

PR6=

LEQUIV
.EQUIV

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

03-JuL=-79

BASIC DEFINITIONS
PR& =
PRS=

1925
1926

30A(1052)

000200
000240
000300
000340

b e

P O RV ] V] —=OV®NO
NS W

oo PNIN) =t od e

—
el
anld
el
)
e
D
il
e
it —t ——
-t

O
0 O VOV OO0V OOOVOO0

1885

MACY11

20
10
&
2
1
SW09,Sw9
SW08,Sw8

SW02,SW?

SWO1,Sw!
SW0O0,Sw0

:*DATA BIT DEFINITIONS (BITO0 70 B1115)

BI1T15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BI108=
B]107=
817106=
BI1105=
BI1T04=
BI1103=
B81102=
BI1101=

81100=
LEQuUlv
EqQulv
eqQulv
EQulv
Eaqulv
eQuliv

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
&
2

1
BI1109,BI19
81108,8178
81107.8117
B81106,B176
B81105.B115
B1104,B8174

1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952

1953
1954
1955
1956
1957
1958

1959
1960
1961
1962

000004
000010
000014
000014
000014
000020
000024
000030
000034
000J60
000J64
000240

1987

1988
1989

1990
1971
1992
1993
1994

1995
1996

10:41

PAGE ¢V

SEQ 0038

B1703,8173
B81102,8112
B1701,BIM
B1100,B110

:*BASIC "'CPU'" TRAP VECTOR ADDRESSES

ERRVEC= &
RESVEC= 10
TBITVEC=14

;:TIME OUT AND OTHER ERRORS
;;RESERVED AND ILLEGAL INSTRUCTIONS
2T Bl

BPTVEC= 14
10TVEC= 20

; ;BREAKPOINT TRAP (BP1)
;s INPUT/OUTPUT TRAP (]0T)

TRIVEC=

PWRVEC= 24

EMTVEC= 30
TRAPVE (=34
.

TKveC=
60
TPVEC=
64
PIRQVE(=240

::TRACE

TRAP

; ;POWER FAIL

:;EMULATOR TRAP (EMT)
;. "'TRAP'" TRAP

#«SCOPEe*

#+ERRORe*e

;:TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR
:;PROGRAM INTERRUPT REQUEST VECTOR

::""""t"""""""""""""""'."."""l""'.'.""

LSBTTL

RH11 REGISTERS

::.""'"'"""""""""""""""""""l".""'!'l'lt'

;CONTROL AND STATUS REGISTER 1

1966

1981
1982
1983
1984
1985
1986

30A(1052)
O03-JUL=79
BASIC DEFINITIONS

.Equlv
.EQulv
.EQulv
.tqulv

1963
1964
1965

1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980

MACY11

000100
000200
000400
001200
002J00
020000
040200

k=
RDY=
Al6=
Al7=
PSEL=
MCPE=
TRE=

:SC=

100
200
400
1000
2000
20000
40000

100000

(RPCS1)
; INTERRUPT ENABLE (BIT #6)
;READY (BIT #7)
;HIGH ORDER BUS ADDRESS BIT (BIT #8)
;HIGH ORDER BUS ADDRESS BIT (Bl
#9)
;PORT SELECT (BIT #10)
;MASSBUSS PARITY ERROR (B]1 #13%)
: TRANSFER ERROR (BIT #14)

;SPECIAL CONDITION (BIT #15)

:WORD COUNT REGISTER (RPW()
;(EACH BIT IS CALLED BY BIT NUMBER)

;BUS ADDRESS REGISTER (RPBA)
; (EACH BIT IS CALLED BY Bl1 NUMBER)

;CONTROL AND STATUS REGISTER 2 (RP(S?2)
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000

us1=
usé-=
UsS&=

BA]PAT =

(LR=
IR=
OR=
MPE =
MXF =
PGE NEM-

1
2
&

40
100
200
400
1000
2000
4000

;UNIT SELECT (BIT #0)
;UNIT SELECT (BIT #1)
;UNIT SELECT (BIT #2)

;BUS ADDRESS INCREMENT INHWIBIT (BI1 #3)
;MASSBUS PARITY TEST

(BIT #4)

sCLEAR (BIT #5)
; INPUT READY (BIT #6)
;OUTPUT READY (BIT #7)
;MASS BUS PARITY ERROR (B]T1 #8)
;M]SSED TRANSFER ERROR (BT #9)
;PROGRAM ERROR (BIT #10)
JNON EXISTENT MEMORY (BIT #11)

CIZRJDDO, RPOL/S5/6 MLT=DR LGC
CZRJDD.PIY
06-JUN-79 08:32

CIRJDDO, RPOG/5/¢ M_T-DR G(
CIRJ0D.PIY
06-JuN-79 08:32
1997
1998
1999
2000

2001
2002
2003
2004
2005
2006
2007

(10200
020200
040300
100000

2048
2049
2050
2051
2052

30A(1052)
O03-4uL=79
RH11 REGISTERS

NED-=
UPE -

w(E=
DLT=

10:41

PAGE

10000
20000

S€q 0039

:NON EXISTENT DRIVE (BIT #12)
;UNIBUS PARITY ERROR (BIT #13)

40000
100000

;WRITE CHECK ERROR (BIT #14)
;DATA LATE (BIT #15)

;DATA BUFFER REGISTER (RPDB)
: (EACH BIT IS CALLED BY BIT NUMBER)
;;""""""""""".""""""""'"""""'.""..'."'

2008

2009
2010
20N
2012
2013
2014
2015
201¢
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047

MACYYY

.SBTTL

RPO&/S/6 REGISTERS

;;"""""""""""""'""'""'"."'.'.'.""""""'Q'

000001
000002
000004
000010
000020
000040
004000

000002

000004
000010

000020
000040
000100
000200
000400
001000
002000

004090

010000
020000
040000

100000

;CONTROL AND STATUS 1 REGISTER.

(#00)

60=
Fl=
Fe=
F3-

1
2
4
10

;60 BIT (BIT #0)
;FUNCTION CODE BIT #1
;FUNCTION CODE BIT #2
;FUNCTION CODE BIT #3

FS=
DVA=

40
4000

;FUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT

Fé&=

;DRIVE STATUS REGISTER (RPDSY)

(#01)

JDFS=

DRIVE FORWARD 5°''/SEC.

;DORIVE

DFF20=

DIGB=

GRvV=
DL64=
DE1=

10
20
&0

PGM=

1000

vv=
DRY=
DPR=

LST=

WRL =
MOL =
PlP=
ERR=
ATA=

ILF=
ILR=

(BIT #1)

INNER GUARD BAND

(RPER1)

;ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)

;PARITY ERROR

40
100
200

400
1000

(BIT

#2)

(BI1

(#02)

|
2

FER-

HCRC=
AQE =

(BIT #0)

;VOLUME VALID (BIT #6)
;DRIVE READY (BIT #7)
;ORIVE PRESENT (BIT #8)
:PROGRAMABLE (BT #9)
sLAST SECTOR TRANSFERRED (BT #10)
;WRITE LOCK (BIT m11)
;MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PRCGRESS
;COMPOSITE ERROR (BIT #14)
SATTENTION ACTIVE (BIT #15)

2000

w(f=
ECH=
HCE=

#11)

;60 REVERSE (B]T #3)
;DIFFERENCE LESS THAN 64 (BIT #6)
;DIFFERENCE EQUALS 1 (BIT #5

4000
10000
20000
40000
100000

RMR=

PAR=

:DRIVE FORWARD 20°'/SEC.

100
200
400

;ERROR REGISTER #01
000001
000002
000004
0C)010
000020
000040
000100
000200
000400
001000

;FUNCTION CODE BIT #4

;REGISTER MODIFICATION REFUSED
. FORMAT

ERROR

(BIT

#3)
°

(BT

w4)

SWRITE CLOCK FAIL (BIT #9)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (B]1

#7)

;HEADER (RC ERROR (B]1 #8)
;ADDRESS OVERFLOW ERROR (BT

#9)

#2)

#13)

CIRJDDO, RPOL/S/6 MLT=-DR LG(
(IRJDD.PYY
06-JUN=79 08:32
2053
2056
2055
2056
2057
2058
2059
2060
2051
2062
2063
2064
2065
2066
2067
2068
2069

002000
0046000
010000
020000
040000
100000

2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102

000001
000002
00000¢
000010
000020
000040
000100
000200

JAE=

10:41

2000

WLE=

4000

DIE=
OPlUNS =
D(K=

10000
20000
40000
100000

¢
PAGE

SEQ 0040

; INVALID ADDRESS ERROR (BI1 #'0)
;WRITE LOCK ERROR (BIT #11)
;ORIVE TIMING ERROR (BIT #12)

;OPERATION INCOMPLETE (BIT #13)
;DRIVE UNSAFE (BIT #14)

;DATA (HECK ERROR (BIT 15)

sMAINTAINABILITY REGISTER (RPMR) (#03)
;DIAGINCST]. MODE (BIT #0)

SMAINTAINABILITY CLOCK
;MAINTAINABILITY INDEX

;MAINTAINABILITY SYNC DETECTED (BIT #7)

;ATTENTION SUMMARY PSEUDO-REGISTER

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

10
20
40
100

;DEVICE 6 (BIT #6)

;DEVICE 7 (BIT #7)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)

000040
000100
000200
000400
004000
020000
040000
100000

10
20
40
100
200
400
4000
20000

D103=
D104=
0705=
DT060D107D108=
DRQ=
MOH=
TAPNBA -

40000
100000

;DRIVE
;DRIVE
:DRIVE
;ORIVE
;DRIVE
;DRIVE
;DRIVE
;:DRIVE
;DRIVE

TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE
TYPE

NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER
NUMBER

; TAPE

DRIVE

(BIT

|
|
l
]
I
I
l
l
]

1
2
&

D100=
D101=
D102=

000001
000002
000004
000010
000020

(#06)

;DRIVE TYPE REGISTER (RPDT)

(#05)

NUMBER)

O A0

IS CALLED BY BIT

——

;(EACH BIT

#0)
#1)
#2)
#3)
#4)
#5)

— ol

200

O
1
2
3
&
5

)

AT7:=

AT3ATL=
ATS=
AT6=

(#0¢)

:DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE
;DEVICE

2
4

(RPAS)

]

AT0-

;DRIVE REQUEST REQUIRED (BIT #11)
;MOVING HEAD (BIT #13)
#14)

;NOT BLOCK ADDRESSED (BI1 #15)

TIRY]

oSN =Ny —
OOO
N L

4
&
&
&
5
B

000002
000004
000010
000020
000040
000100

P
e
e B |

;LOOK=AHEAD REGISTER (RPLA) (#07)
000001

(BIT #3)

;MAINTAINABILITY READ (BIT #4)
;MAINTAINABILITY WRITE (BIT #5)

200

AT1:=
AT?2:=

(BT #1)
(BIT #2)

;MAINTAINABILITY SECTOR CLOCK

10
20
40

)

pISY=

]

mMSTCk=
MRD=
MWR =

]

MINX=

—t

DMD -

MCLK=

e oo
oNoelooeoRooRo
olloofool

000001
000002
000004
000010
000020
000040
000200

2103
2104
2105
2106
2107
2108

S0A('052)
O03-JuL=79
RPO4/5/6 REGISTERS

VMMM
M mm

2070
2071

MACY1Y

;EXTENSION 1 (BIT #0)
;EXTENSION 2 (BIT #1)
;EXTENSION 3 (BIT #2)
SEXTENSION 4 (BIT #3)
;EXTENSION S (BIT #4)
;EXTENSION 6 (BIT #5)
;SECTOR COUNT FIELD O (BIT w#¢)

NN = OO
OO0~
NS NN
OO0V

D
il
ol il
il
P
D il
e

el e

M NN

D e
e
il el e

MM N N N N N

i ol el

B B 5

[aVEaS L VEA R

N—=OOVB NN

i
i
i Sl
D
ol
D sl
i

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002300
004000
010000
020000

il ol

— et d bt ettt et et et O

000200

RNU RO PO PO NI PO PO

VLT VT V1 VT, V] VY VY UL V1 VT, VY V1, VY, V1 V1 W1, VI, S, V], Y, VT, V7, V1, V1 NT, V7, V1, V1. V)

DO NONE
Wy —O

it
o
el
el
D
sl
el
el
i ol
—

(o MV RV TV S, RV LV RV LU RV RV ]

rururLrLURUrRO
NV RO RUNL RN

2143

001000
002000
004000
010000
020000
040000
100000

MACY11

30A(1052)
03-JUL=79
RP04/5/6 REGISTERS

S(2=
)
SC10
5(20=

<0000
100000

100000

vu30-

PLU=
ACU-=

w(uCSF=
WSu(Su=
RAW1DF
=
=
TUF
ABS
=
WRU=
MHS=
NHS-

IXE
PLU=

FIELD
FIELD
FIELD
FIELD

1
2
3
&

(BIT
(BIT
(BIT
(BIT

(BIT #11)

#7)
#8)
#9)
#10)

;TRACK FIELD 2 (BIT #12)
;TRACK FIELD 3 (BIT #13)

;TRACK FIELD &

;TRACK FIELD 5

(RPER?2)

40
100

200

400
1000

2000

4000
10000
20000

100000

:RP05/6 ERROR REGISTER #02

000001
000002
000004
000010
000020
000040
000100
000,00
00000
001000
002000
004000
020000

COUNT
COUNT
COUNT
COUNT

;TRACK FIELD 1

20000

;RPO4 ERROR REGISTER #2

SEQ 0041

;SECTOR
;SECTOR
;SECTOR
;SECTOR

2000

TRK10=
1Rk 20=

NHS=
IXE=

PAGE 63

200

4000
10000

w(u=
(SF=
WSu=
(sus=
mSt=
1DF
=
TUF
=
FEN=
WRU=
MHS=

)
1000

TRK 1=
TRK 2=
TRK4=

10:41

(BIT #14)

«BIT #15)

(#10)

;WRITE CURRENT UNSAFE (BIT #0)
; CURRENT SINK FAJLURE

(BIT #1)

;WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)
;MOTOR SEQUENCE ERROR (BIT #&)

;TRANSITIONS DETECTOR FAILURE
; TRANSITIONS UNSAFE

(BIT

(BIT #5)

#6)

;FAILSAFE ENABLED (Bl1 #7)
;WRITE READY UNSAFE (BIT #8)

;MULTIPLE HEAD SELECT (BIT #9)
;NO HEAD SELECTION (BIT #10)
;INDEX ERROR (BIT #11)
;30VOLT UNSAFE

(BIT #12)

;AC UNSAFE

#15)

:PLO UNSAFE (BIT #13)
(RPER2)

(BIT

(#10)

;WRITE CURRENT UNSAFE (BIT #0)
;CURRENT SINK FAILURE (BIT #1)
;WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWIT{HM UNSAFE (BIT #%)
;READ AND WRITE (BIT #4)
;TRANSITIONS DETECTOR FAILURE
;TRANSITIONS UNSAFE

(BIT

#6)

(BIT

; ABNORMAL STOP (BIT #7)
;WRITE READY UNSAFE (BIT #8)
;MUTLTIPLE HEAD SELECT (BIT #9)

;NO HEAD SELECTION (BIT #10)

:INDEX ERROR (B]T #11)
;PLO UNSAFE

(BI~

#12)

;OFFSET

000001
000002
000004
000010
000020
000040

000200
002000
004000
010000

0f 250f50-=
0F100=
0fF2000F4&00-=
0F 800OFREV:=

;OFFSET 25 MICRO INCHES (BlT #0)

;OFFSET 50 MICRO INCHES (BIT #1)
;OFFSET 100 MICRO INCHES (BT #2)

;OFFSET 200 MICRO INCHES (BI1 #3)
;OFFSET 400 MICRO INCHES

Hil=

;HEADER COMPARE

INWIBIT

PMY22-

;FORMAT BIT

#12

ECI-

(Bl1

#4)

OFFSET 800 MICRO INCHES (BIT #%)
;OFFSET NEGATIVE (REVERSE) (BT #%
(BIT #10)

;ERROR (ORRECTION (ODE INWIBIT (BI' #°°
(BIT

[ea
N
nl

CIRJDDO, RPO4L/5/6 MLT-DR LGC
CIRJDD.PY
06-JUN-79 08:32

30A(1052)

O03-4uL=79

RPOL/S5/6 REGISTERS

10:4

PAGE

SEQ 0042

:DESIRED CYLINDER ADDRESS (RPCA) (#12)
;(EACH BIT IS CALLED BY BIT NUMBER)

wowrum-aooonwowbuum—-oooowomruw-aoog

el -—
D
il
el

)

D ol

N L VT V1 V) V1 NN, CL WY VI V], UL, V] VY V) VY VY ST, UT W] V], V], V] V] UL VI VY

e
el

[AS RV

VOOV OVO0DOVV00EMPOOCEOOCEOOOD
NN NNNNNNN~NO

1,V V)[o Y]

2165
2166

MACY1Y

;CURRENT CYLINDER ADDRESS ‘RPCC) (#13)

; (EACH BIT

IS CALLED BY BIT

NUMBER)

;SERJAL NUMBER REGISTER (RPSN) (#14)
; (EACH 1S CALLED BY BIT NUMBER)

;RPO4 ERROR REGISTER #03 (RPER3)

000001
000002
000010
000040
000100
040000
100000

PSU=
VUF =
UWR =
ACLDCL=
SK1=
GCyL=

(#15)

;PACK SPEED UNSAFE

1
4
10
40

100
40000
100000

;OFF

;RP05/6 ERROR REGISTER #03 (RPER3)
000001
000002

000040
000100
020000
040000
100000

D(u=
WAO=
ACL=
DCL=
CPE=
SK1=
ocvL=

(BIT #0)

;VELOCITY UNSAFE (BIT #1)
;ANY UNSAFE EXCEPT READ/WRITE
;AC LOW (BIT #5)
;0C LOW (BIT #6)
;SEEK INCOMPLETE (BIT #14)
CYLINDER

(BIT #3)

(BIT #15)

(#15)

;0C UNSAFE (BIT #0)

1
2
40
100
20000
40000
100000

;WRITE AND OFFSET

:AC LOW (BIT #5)

(BIT #1)

;0C LOW (BIT #6)

;OPERATOR PLUG ERROR ‘BIT #13)
;SEEK INCOMPLETE (BIT #14)
;OFF CYLINDER ERROR (BT #15)

;ECC POSITION REGISTER (RPEC1) (#16)
; (EACH BIT IS CALLED BY BIT NUMBER)

;ECC PATTERN REGISTER (RPEC2) (#17)

;(EACH BIT

IS CALLED BY BIT NUMBER)

:"l."'"""""""t"""'"""""'ltit"ll"'l"""'t'.tl'

LSBTTL

RPO4/5/6 DRIVER COMMANDS

.'"l""t't"'t"""'.t""""'"""'I!'l"ltt""t'l!t"l"tt'

000101
000103
000105
000107
00011
000113
000115
000117
000121
000123

000131
000141
000143
000145

RNOP
UNLOAD
SEEK
RECAL
DRVCLR
RELSE
OFFSET
RTC
READIN
ACK

SEARCH
GETREG
SETFMT
SELDRV

=
=
=
=
=
E
=
-

=
=
=

101
103
105
107
IRA
113
115
117
121
123

13
141
143
145

:NO OPERATION

+UNLOAD
: SEEK
;RECALIBRATE
;DRIVE CLEAR
sRELEASE

;OFFSET
;RETURN TO CENTER LINE

;READ IN PRESET
;PACK

ACKNOWLEDGE

:SEARCH

;GET REGISTERS

;SET FORMAT (R ECI OR HLD)
;SELECT DRIVE

(IRJDDO, RPO&/S5/6 MLT-DR LG(
CIZRJDD.PIN
06-JUN-79 08:32

.SBTTL

000200
000204

N —

T I
I

AN =4 (N =

PAGE

SEQ 0043

;WRITE CHECK DATA
;WRITE CHECK HEADER & DATA
;WRITE

DATA

;WRITE HEADER & DATA
;READ DATA
;READ HEADER & DATA

CATCHER

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ''.42 HALT"

;*SEQUENCE 1O CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O 10 CATCH IMPROPERLY LOADED VECTORS
2174

000174
000000
000000

000137
000137

TRAP

15
19
16

.=0

000000

000174
000176

wCKD
WCKHD
WRTIDAT
WRTHD
RDDAT
RDHD

T ]

10:41
30A(1052)
03-y uL =79
RPO4/S5/6 DRIVE R COMMANDS

MACY11

C(IRJDDO, RPO4/S5/6 MLT=DR tGC
06-JUN-79 08:32
CIRJDD.PII

004140
004122

0
DISPREG: .WORD
0
SWREG:
.WORD
LSBTTL
STYARTING ADDRESS(ES)
JMP
ONSTARTM!
JMP
a#START

;. SOF TWARE DISPLAY REGISTER
;;SOF TWARE SWITCH REGISTER
;:JUMP T0 STARTING ADDRESS OF PROGRAM
; CHANGE

THE

Rr11

UNIBUS ADDRESS

CIRJDDO, RPO4L/S/6 MLT=-DR 1 GC
CIRJOD.PWY
06-JUN-79 08:32
2240

MACYT1

30AC1052)
03-JuL=79
STARTING ADDRESS(ES)

10:610

PAGE

LAFTER

SEQ 0044
INITIAL

START

[N
on

2261

MACY11

30A(1052)
03-4uL-79
STARTING ADDRESS(ES)

PAGE

;D0 NOT INHIBIT PROGRAMMABLE DRIVES

St@ 0045

(IRJDD0, RPO4/S/6 MLT=DR LG(
(IRJ0D.P1
06=-JUN=79 (08:32

10:61

CIRJDDO, RPOL/S/6 MLT-DR LG(
06-JUN-79 08:3?2
(IRJDD.PWY

2242
2243

2244

000220

00013/

2245

2246
2247
2248
2249
2250
2251

2252
225%
22564

MACY1T

30A(1052)
03-JuL=79
STARTING ADDRESS(ES)

.=220

004106

SNSTARTY

Jnp

LSBTTL

ACT1Y

10:41

PAGE

SEQ 0046

;SAME AS 200 WITHMOUT

INMIBITING PROGRAMMABLE DRIVES

HOOKS

';"""""""""""""'.""""""l.""""'.".""'.'.

000046
000052

000224
000046
005446
000052
040000
000224

*HOOKS REQUIRED BY ACT11
$SVPC-.
.54b
SENDAD
=52

“WORD

T $SVPC

: SAVE

;:1)SET LOC.46 TO ADDRESS GF SENDAD IN .SEOP
40000

;:2)SET LOC.52 10 40000
;; RESTORE PC

CIRJDDO, RPOL/S/6 MLY=DR 1 GC
06-JUN=79 08:32
CIZRJDD.PIY

.SBTTL
RNt

10:41

&
PAGE

SEQ 0047

COMMON TAGS
R RN

R RRRRCCEORRCRRRORROETRCRRRRRNTROSRRORRRRRRORNRRRRQRRCRORRRRORORRRRROORTPORCOTYS

'THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;s*USED IN THE PROGRAM,
001100

001100

SCMTAG:
$PASS:
$STSTINM:
$SERFLG:
$I(NT:
$LPADR:
SLPERR:
$SERTTL:
$ITEMB:
SERMAX:
$ERRP(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000
000
000000
000000

000000
000000
000
001

2269
2270
227

000000
000000
000000
000000
000000
000000
000000
000
000
000000

2272
2273
2274
2275

2276
2277
2278

2279
2280
2281
2282

2283
<284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2507
2508
2309
2310

30A(1052)
03-4uL-79
COMMON TAGS

$AUTOB:
$INTAG:

177570
177570
177560
177562
177564
177566

000
002
012
000
177607

077

001166

001170
001172

001174
001176

015
000012

000015
000012
176700
00025¢
172540
172542

000104

177546
000100
177777
177777

000074
000000
000000

000377

.=1100
.WORD
.BYTE
BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE

.BYTE

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

SWR:
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
177566
$TPR:
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$BELL:
LASCIZ
$QUES:
LASCII
.ASCI]
$CRLF:
SLF:
LASCIZ

COOOOOOOOOO—-OOOOOOOO

2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268

RMACY1T

:;START OF (OMMON TAGS
:; CONTAINS PASS (OUNT
:; CONTAINS THE TEST NUMBER
:; CONTAINS ERROR FLAG
::CONTAINS SUBTEST JTERATION COUNT
;;CONTAINS SCOPE LOOP ADDRESS
::CONTAINS SCOPE RETURN FOR ERRORS
:; CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE

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

MAX.

TEST

'BAD' DATA
; ;RESERVED-=NOT TO BE USED
::CONTAINS

;:AUTOMATIC MODE INDICATOR
;; INTERRUPT MODE INDICATOR
;s ADDRESS OF SWITCH REGISTER
:;ADDRESS OF
;.7T7y
:: 7Ty
::T1Y

DISPLAY REGISTER

KBD STATUS
XBD BUFFER
PRINTER STATUS REG.

ADDRESS
PRINTER BUFFER REG. ADDRESS
:; CONTAINS NULL CHARACTER FOR FILLS
;; CONTAINS # OF FILLER CHARACTERS REQUIRED

::77Y

ERRORS PER

PC OF LAST ERROR INSTRUCTION
ADDRESS OF °'GOOD' DATA
ADDRESS OF 'BAD' DATA
'G00D" DATA

;o INSERT FILL CHARS. AFTER A ‘"LINE FEED'
o TERMINAL AVAILABLE' FLAG (B1T1<07> 0-YES)

<207><377><377> ;,CODE FOR BELL
/77
;;QUESTION MARK
<15
;; CARRIAGE RETURN
<12>
;LINE FEED

:;"""""""""'l""""'""""""'."l'."""""l""

(R
LF
$RPADR:
$RPVEC(:
$LK(SR:
$LK(SB:
$SLPVEC:
$LKS:
$LLVEC:
PILOCK:
CLKFLG:
Hl:

STATIN:

PACK:

15
12

.WORD
.WORD
.WORD
.WORD

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

176700

:FIRST

172540
172542
1C4
177546
100
-1
-1
74

;ADDR OF XW11=P STATUS REGISTER
:ADDR OF XWl1-P COUNTER BUFFER

254

0
0

ADDRESS Of

RH11/RP0&/5/¢ REGISTERS

:RP0O& VECTOR ADDRESS
:ADDR OF
:ADDR OF

kwWl1=-P VECTOR
kWll=-L

STATUS REGISTER

:ADDR OfF xWwil1-L VECTOR

;0"
-'0'

(76

IF
IF

(B)

KW11=P 1S ON SYSTEM
A CLOCK [S AVAILABLE
IF

60 HZ SYSTEM; 62 (8)

SUTYPE STATISTICS® INDICATOR
;'W ' COMMAND INDICATOR

50 Wl SyYS'EM

CIRJDDC, RPOL/S/6 MLT=-DR LGC

CIRJDD.PYY

000000

DATE:

.WORD

0,0,0,0.0

;OPERATOR ENTERED DATE

000000

OPERID:

.wORD

0,0,0.0

:OPERATOR D

000000

DRIVE:

.WORD

:DRIVE # STORAGE: ERRORS 1-5 ¢ 10

0000900
000000
000

UNIT:
MASK :
RETRY:

.WORD
.WORD
.BYTE

0
0
0.0

;DRIVE # STORAGE FOR PRINTOUT
:ERROR RETRY REGISTER MASK
;ERROR RETRY LIMIT IN THE LOWER BYTE
:RETRY COUNT IN THME UPPER BYTE
;MAXIMUM TIME [N QUEUE VALUE
:STORE LAST MEMORY ADDRESS HERE
:CHANGE RH11 UNIBUS ADDRESS FLAG
;"CONTROL (' FLAG
;BAD SECTOR/TRACK FLAG

2311
2312
2313
2314

001220
001226
001232
001240

000000
000000
000000
000000

2316

001244

000000

2315

2317
2318
2319
2320
2321
2322
2323
2324
2325

2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337

2338
2339
230
231
2342
2343

2344
2345
2346
2347
238
2349
2350
2351
2352
2353
2354
2355

2356

2327

001242

0012646
001250
001252
001254
001256
001260
001262
001264

000003
000000
000000
000000
000000

001301
001302
001304
001306
001310
001312
001314
001316
001317
001320

001266
001270
001272
001274
001276
001300

001322
001324
001326
001330
001332
001334
00133
001340
001342
001344
001346

001350

000000
000000
CO0000

COMMON TAGS

ATTIN:

000

PAGE SO

:ATIN REG STORAGE: ERRORS 1-5 8 10

.WORD
.WORD
.WwORD
.WORD
.WORD

3
O
O
0
0

000

.BYTE

000000
000000
000000
000000
000000
000000
000
000
000000

SAVER1: .WORD
SAVERS: .WORD
ERCTR:
.WORD
LIM]T:
L.WORD
CMCNT:
.WwORD
CMCYL:
.WwORD
(MSEC:
.BYTE
(MTRK:
.BYTE
.WORD
ECBIT:

0
O

O
O
O
O
0
0
O

;HOUR COUNT STORED MERE (MAXIMUM - 999.)
SMINUTE'S COUNT STORED HERE
:SECOND'S COUNT STORED HERE
:TIMER ROUTINE COUNTER (FOR ONE SECOND)
:lJERO INDICATOR FOR THE DATA (COMPARE ROUTINE
:DATA COMPARE ERROR FLAG
:1F > 0, PROCESSING °'DCKER® OR CAN'T MATCH PATTERN
;1F < 0, MISCOMPARS]ION FOUND
:MISCOMPARSION OR CAN'T MAT(H PATTERN FLAG
:1F < 0, ERROR [N BUFFER
:SAVE R1 HERE
;:SAVE RS HERE

000632

CYLIMT: .WORD

0
O
0
0
0
0
0
0
0
2.
18.

410.

;ERROR BURSTY BIT OFFSET
;ERROR BURST WORD OfFSET (RELATIVE TO SECTOR)
;CORRECTION MASK FOR FIRST ERROR WORD
;s CORRECIION MASK FOR SECOND ERROR WORD
:LOCATION OF FIRST ERROR WORD
;600D DATA, FIRST WORD
;BAD DATA, FIRST WORD
:LOCATION OF SECOND ERROR WORD
;GOOD DATA, SELOND WORD
;BAD DATA, SECOND WORD
;SECTOR ADDRESS LIMIT
:TRACK ADDRESS LIMIT

000000
000000
000000
000000
177777
000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000025
000022

FAJRNS:
LSTAD:
(HGADR:
CFLAG:
BADSEC:

.MWORD

10:41

30A(1052)

06-JUN-79 08:32

O03-4UL=79

MACY1Y

HOUR:
MINUTE:
SECOND:
SIXTEE:
IROIND:
FRSTER:

ECSEC:
ECMSKO:
ECMSK1:
ECWRD:
ECGD:
ECBADO:
ECWRD1:
ECGDY:
ECBAD1:
SECLMT:
TRKLMT:

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD

O
O
0
G
-1
0

:NUMBER OF ERRORS
:DISPLAY LIMIT
;WCORD COUNT
:CYLINDER ADDRESS
:SECTOR ADDRESS
;:TRACK ADDRESS

:CYLINDER ADDRESS LIMIT FOR RPO&/S5'S

: (CHANGED T0 814. FOR RP0O6)

Sgsg

""tttt"t""t"""t"""'ttt"'t""".tt't""tt""ltttt't"

2261

LSBTTL

2360

COMMON PARAMETERS

5;2%

.';"lttt"lt't"'t"'Ilt""'!tt't'!t't'ttttlttt't!t!tltlt'l'ttt'

2365

;PROGRAM USES THESE PARAMETERS TO DETERMINE REGULAR END OF PASS

2364

2366

001352

002740

FNDCN:

.WORD

002740

;1.875x1048 WORDS (10) (3x10%9 BITS]

SEQ 0048

2400
24601
2602
2403
2604
2405
2406
2607
2408
2409
2610
2611
2612

2613
2614
2415

2616

2617
2618

005455

001362
001364
001366
0061370

120274
000005%

143300
000055

ENDSK:

QvSEK:

000005

001402
001404

000001
000000

001406
001410

000144
000005

.WORD
.WORD

.WORD

SEQ 0049

;ASW

(LSW)

;MSW

:3.75 x 105 SEEKS 10)

s MSW

;THE NUMBERS TO DETERMINE END OF PASS ARE LOADED [N HERE BY THE PROGRAM,
FIRST

TIME

THROUGH,

REGULAR PARAMETERS ARE
ENDCON: .WORD

000000

ENDSEK:

.WORD
.WORD
.WORD

PASCNT:
MaxDL:

.WORD
.WORD

MAXER:

.WORD

INTRVL:

.WORD

THE

USED.

QV PARAMETERS ARE

USED,

AFTER

THAT

THE

:NUMBER OF PASSES TO END OF TEST
:MAXIMUM DATA TRANFER

SIZE

IN WORDS

:(FILLED BY PROGRAM AT STARTUP OR BY QOPERATOR
:DURING PARAMETER ENTRY DIALOG.)

;MAXIMUM ERRORS - 100010)
;FIRST WORD IS THE PERFORMANCE TYPEQUT INTERVAL
:CIN MINUTES).
SECOND WORD IS THE INTERVAL

:COUNTER

001414
001416

000004
000001

CMPLMT:
FORMAT:

_WORD
_WORD

001420

000000

WCSEL:

.WORD

UPPER BYTE IS VALUE.
:COUNTER.
:NUMBER OF COMPARE ERRORS TYPED OuT
:1F NOT EQ O, ALLOW WRITE HEADER & DATA CRDERS
:1F EQ O, DO NOT ALLOW WRITE HEADER & DATA ORDERS
:1F EQ TO O, GENERATE A RANDOM WORD COUNT
FOR THE OPERATION.
;

:1F NOT EQ 70 0, USE THE VALUE iN °"MAXDL® FOR
;

001422

000003

RATIO:

.WORD

THE

WORD

COUNT

;READ/WR]TE RATIO [RANGE 0 - 73

(READ/WRITE)

;0 -0/8
1

32
;3
4

)
001424

000001

AUTOCK:

,WORD

:1F NOT EQ O, DO AN APPROPRITE WRITE
(HECK AFTER EACH WRITE ORDER.

:1F EQ O, SELECT WRITE C(HECK ORDERS
001426

000001

NOTPR1:

.WORD

;

RANDOMLY.

BAD PACK AREAS.

THESE

:1F EQ 1, DO NOT PRINT DATA ERROR MESSAGES
ASSOCIATED WITH OPERATOR SPECIFIED
;
:1F NOT €EQ 0O, PRINT ERROR MESSAGES RELATING TO

001439

000001

ENDET:

.WORD

2619

2620
262
2622

;3 X 10%6 SEEKS

134330

.WORD

;THE

000000
000000
000000

&
PAGE

;PROGRAM USES THESE PARAMETERS TO DETERMINE Q.v. END OF PASS
QVCON:
.WORD
;20274
;2.3437x10%7 WORDS (10)

136330

001372
001374
001376
001400

005655
1643300
55

.WORD

OOOO

001354
001356
001360

30A(1052)
03-JuL-79
(OMMON PARAMETERS

2367
2368
2369
2370
237
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399

MACY11

SRR

’e

AREAS.

:1F NOT EQ O, END OFf PASS DETERMINED
;
BY THE 'WORDS READ' (CUNT,
:1fF EQ O, END OF PASS DETERMINED
:
BY THE SEEX COUNT.

ERSETITERERERER LTS CRESEESORANRONCERNOSRORROERNCOEOSERRABROONOEBROOEOEOERNTETTY

N r~

CIRJIDDO, RPO&L/S/6 MLT=DR LGC
CIRJDD L1
06-JUN-79 08:32

(IZRJDDO, RPOG/S/6 MLT-DR LGC
CIRJDD. P
06=JUN=-79 08:32

2623
2624
2425
2426
2627
2428
2629
2430
2431
2632
2433
2634
2635
2636
2637
2438
2639
2640
2641
2442
2643

MACYN

30A(1052)
03-0UL=79
COMMON PARAMETERS
LSBITL

10:41

VALUES FOR FIRST

PAGE 52

SEG 0050

OPERATION

:;"Q""'"""""'""""""'"""""""l"""'."""Q'

001432
001434

000010
000005

BEGPAT:
BEGCOD:

,WORD
.WORD

10
¢

;STARTING PATTERN (ODE [RANGE 1 - 17 (OCTAL))
;STARTING COMMAND CODE [RANGE 0-95]

001436

000404

BEGSIZ:

.WORD

404

;5 = READ HEADER & DATA ('RDHD')
;STARTING RECORD SIZE [RANGE & - MAXMEM]

20
;1
;2
;3
;&

=
=
=
=

WRITE CHECK DATA ('WCKD')
WRITE CHECK HEADER & DATA ('W(HKHD')
WRITE DATA ('WRTDAT')
WRITE HEADER 4 DATA ("WRTHD')
READ DATA ('RDDAT')

;NOTE:
THE SIZE MUST BE AT LEAST & |Ff
;URITE DATA OR READ DATA; THE SIZE MUST

;BE AT LEAST 8 IF WRITE HEADER AND
;DATA OR READ HEADER AND DATA,

;1F THE SIZE IS GREATER THAN 1 SECTOR, THE
;SIZE MUST ALLOW FOR OVERLAPPING & OR 8
;WORDS INTO THE LAST SECTOR USED.

2644

2645

::t'"‘"'!""""'""'""""""'."""'l...""""'.""'

2647
2648
24649
2450
24651
2652
2453
24564

.SBTTL

24646

2455

2656
24657
2458
2459
2460

24661
2462

2463
2464

2465
2466
2467
2468
24669
2470
267
2672
2473
2674

2675
2476
2677

2678

TABLES,

CONSTANTS,

AND VARIABLE LOCATIONS

:;t.'l"""'t"""'i"""'"l"""""'l""""""""""'

ORDERQ:

.WORD

0,0,0,0.0,0,0,0,0

ASNLST:

.WORD

000000
000000
000000

DUNIT:

.wORD

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

;ADDRESSES OF

DRIVES TO BE DEASSIGNED

000000
000000
000000

NEWUNT.

.wORD

0,0,0,0,0,0,0,C,0

;ADDRESSES OF

NEWLY ASSIGNED DRIVES

000000

000000
000000
000000

AVAIL:

.wORD

0,0,0,0.0,0,0,0,0

;LIST OF

001552
001560
001566

000000

000000
000000

000000
000000
000000

WAIT:

.WorRD

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

;LIST OF DRIVES WAITING FOR BUFFERS

001574
001602
001610

000000
000000
000000

PARG:

.WORD

0,0,0,0,0,0,0,0.0

;LIST OF DRIVES WAITING FOR NEXT PARAMETERS

001616
001620

€00000
000000

BUF TBL :

::828

8'0

000000

001440
001446
001454

000000
000000
000000

001462

000000

001464

001472
001500

000000
000000
000000

001506
001514
001522

000000
000000
000000

001530
001536
001544

¢00000
000000

000000
000000

000000

000000
000000
000000

;LIST OF

;A BIT

SET

DRIVES PERFORMING COMMANDS

IS AN ASSIGNED DR]VE

DRIVES WAITING FOR BUFFERS/PARAME
TERS

;BUFFER ALLOCATION TABLE ENTRY (OUN!

—

pa—y
—

(OMIBL:

LEVEN

VARIABLE

Sea 0051

LOCATIONS

OF
OF
OF
OF

: ADDRESS

;ADDRESS OF
;ADDRESS OF
;ADDRESS OF

FOR
FOR
FOR
FOR
FOR
FOR
FOR
FOR

DRIVE
DRIVE
PRIvE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

CHECK DATA
CHECK HEADER AND DATA
DATA
HEADER AND DATA

.BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE

;WRITE
;WRITE
;WRITE
;WRITE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
LBYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE

: UNLOAD
s SEEK
sRECAL
;DRIVE CLEAR

:READ

THE BLOCK
THE BLOCK
THE BLOCK
THE BLOCK
THE BLOCK
THE BLOCK
THE BLOCK
THE BLOCK

DATA

;READ HEADER AND DATA

;RELEASE

;OFFSET

RETURN TO CENTERLINE
;READIN PRESET
;PACK ACKNOWLEDGE

;SEARCH

;WRITE CHECK DATA

;WRITE CHECK HEADER AND DATA
;WRITE

DATA

;WRITE HEADER AND DATA
;READ

DATA

;READ HEADER AND DATA
; TERMINATOR

N
ST
ST
BT
BT
ST
ST
3T
8%
%
&8
T
T
%
T
«

OOOOOOOOOOODOOOOOOO

:ADDRESS
. ADDRESS
; ADDRESS
. ADDRESS

NN —

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

AND

PAGE

NO NS

BLKADR:

10:41

COCOOOOOCOOOOOOOODOODOOO
. v

.WORD
.WOKD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

Gt} Gt G

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

377

002010

03-4UL=79

CONSTANTS,

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

OP1BL:

001766
001767
001770
001771
001772

001773
001774
001775
001776
001777
002000
002001
002002
002003
002004
002005
002006

TABLES,

044266
04646572

001760
001761
001762
001763
001764
001765

042036
042342
062646
043152
043456
043762

—

001740
001742
001744
001746
001750
001752
001754
001756

2492
2493
2494
2495
2696
2497

001674
001700
001704
001710
001714
001720
001724
001730
001734

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

—

2491

001624
001630
001634
001640
001644
001650
001654
001660
001664
001670

NN AV,]

2679
2480
2481
2682
2483
2684
2685
2686
2487
2488
2489
2490

30AC1052)

QOO OCO
VOV DV O X

CIRJDDO, RPO&/S5/6 MLT-DR LGC
CIRJDD PN
06-JUN-79 08:32

MACY11

2535
2536
25%7
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586

2587
2588
2589
2590

002010
002016
002020
002026
002030
002036
002040
002046
002050
002056
002060
002066
002070
002076
002100
002106
002110
002116
002120
002126
002130
002136
002140
002146
002150
002156

002160
002166

002170
002176
002200
002206
002210
002216
002220
002221
002222

002223

002224
002225

002226
002230
002231
002232
002233
002234
002235
002240
002242
002244
00246
002250
002252

MACY11

30A(1052)

03-JUL=79

1C:4)

TABLES,

CONSTANTS,

AND

MNTB.:

LASCIZ

/UNLOAD

067516

042101

0642523
(00040
042522

045505

020040

LASCIZ

/SEEK

040503

020114

ASCIZ

/RECAL

061526

051114

CASCIZ

/DRVCLR

051514

020105

.ASC1Z

/RELSE

051506

052105

ASCIZ

/OFESET

020103

020040

ASCIZ

/RTC

042101

067111

ASCIZ

/READIN /

045503

020040

LASCIZ

/PACK

051101

0464103

.ASC1Z

/SEARCH /

062113

020040

CASCI2

/MCKD

064113

020104

<ASCIZ

/WCKHD

042124

052101

LASCIZ

/WRIDAT

064124

020104

LASCL?

/WRTHD

040504

020124

-ASC1Z

/RDDAT

042110

020040

<ASCIZ

/RDHD

042516

020040

LASCIZ

/NONE

000040
051104
000040
042522
000040
043117
000040
052122
000040
062522
000040
040520
000040
0642523
000040
041527
000040
041527
000040
051127
000040
051127
000040
042122
000040
042122
000040
047516
000040
000
010
210
020
220
030

230
020
220

040
240
060
260
002240

002274
002327
002363
002617
002453
002507

OFFCOD:

000

.EVEN
OFMIBL:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BY}E
.BY E
.BYTE
.BYTE
.BYTE

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

PAGE

VARIABLE

047125

000040

S¢

LJOCATIONS

SEQ 0052

:0OFFSE T CODE TAB.E

;4200
;=200

260,0

OFMSGO
OFMSG!
0FMEG2

0FMSG3
OFMSG4

OFMSGS

INCHES
INCHES
;44600
INCHES
;=400
INCHES
0
INCHES
;460
INCHES, TERMINATOR
;=600
INCHES
;4400
INCHES
;=400
INCHES
;+800
INCHES
;=800
;41200 U INCHES
cCccccccccc

CIRIDDO, RPO&L/5/6 MLT-DR LGC
CIRJDD P11
06-JUN-79 08:32

:=1200 U INCHES, TERMINATOR
FFSET
FFESET
FFSET
FFSET
FFSET
FESET

MESSAGE
MESSAGE
MESSAGE
MESSAGE
MESSAGE
MESSAGE

25N
2592
2593
2594
2595
29596
2597
2598
2599
2600

2601
2602

2603
2606

2605
2606
2607
2608
2609
2610
2611
2612

2613

2614
2615
2616

2617
2618
2619

2620
2621
2622
2623
2624

2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
26465

2646

002254
002256
002260
002262
002264
002266
002270
002272

002274
002302
002310
002316
002324
002327
002334
002342
002350
002356
002363
002370
002376
002404
002412
002417
002424

002432
002440
002446
002453
002460
002466
002474
002502
002507
002514
002522
002530
002536
002543
002550
002556
002564
002572

002577
002604
002612
002620
002626
002633
002640
002646
002654
002662
002667
002674

MACY11

002543

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

002274
002417

002453
002577
002633
002667
002724

043101
042522
0644527
020124
052105
101
051506
030062
051103
044103
101

051506
030062
051103
044103
101

051506
030064
051103
0664103
101
051506
030064
051103
044103
101
051506
030066
051103
044103
101
051506
030066
051103
064103
101

051506
030070
051103
044103
101

051506
030070
051103
064103

101
051506

042526
051124
066124
063117
000
020124
052105
020060

026517
051505

020124
052105
020060

026517
051505
020124
052105
020060
026517
051505
020124
052105
020060
026517
051505
020124
052105
020060
026517
051505
020124
052105
020060
026517
051505
020124
052105
020060
026517
051505
020124
052105
020060
026517
051503
020124
052105

30AC1052)
PAGE %>
10:4!
03%-4uL=79
TABLES, CONSTANTS, AND VARIABLE LJOCATIONS

0FASGH

0FMSGO

OFMSG3

;7TH OFFSET MESSAGE
1ST OFFSET MESSAGE
;4TH OFFSET MESSAGE

CFMSGL

;S5TH OFFSET MESSAGE

OFMSGA

;9TH OFFSET MESSAGE
;10TH OFFSET MESSAGE
11TH OFFSET MESSAGE

0FMSG?
OFMSG8
CFMSG9

;8TH OFFSET MESSAGE

020122
020131
052517
051596

OFMSGO:

CASCIZ

/AFTER RETRY. WITHOUT

043117
025440
044515
047111
000
063117
026440
044515
047111
000
043117
025440
044515
047111
000

OFMSG1:

ASCLE

/AT

OFFSET

+200 MICRO-INCHES/

OFMSG2:

LASCIZ

/AT

OFFSET

=200 MICRO=INCHFS/

OFMSG3:

.ASCIZ

/AT

QFFSET

4400 MICRO-INCHES/

OFMSG4:

LASCIZ

/AT

OFFSET

=400 MICRO-INCHES/

OFMSGS:

LASC1Z

/AT

OFFSET

+600 MICRO=-INCHES/

0FMSG6:

LASCIZ

/AT

OFFSET

=600 MICRO-INCHES/

043117

026440
044515
047111
000
043117
025440
044515
047111
000
043117
026440
044515
047111
000
063117
025440
06446515
047111
0C0

043117
026440
0446515
047111
000
063117
025440

OFFS E1/

N
OFMSG7:

ASCIZ

/AT

OFFSET

+800 MICRO-INCHES/

OFMSG8:

LASCIZ

/AT

OFFSET

-800 M!CRO=-INCHES/

0FMSG9:

LASCLZ

/AT

OFFSET

+1200 MICRO=-INCHES/

SEQ 0053

TM~

(IZRJDDO, RPOL/S5/6 MLT-DR LGC
CIRJDD P
06-JUN-79 08:32

(IRJDDO, RPO4L/S5/6 MLT-DR LG(
CIRJDD P
06-JUN-79 08:32

2652

2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672

2673

2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

2698
2699
2700
270
2702

002702
002710
002716
002726
002732
002740
002746
002754

044103

030060
047522
062510
047640
020124
020060
026517
051505

30AC1052)
TABLES,

CONSTANTS,

046440
044455
000123
043106
030455
066515
047111

OFMSGA:

LASCIZ

10:41

AND

PAGE

VARIABLE

/AT OFFSET

LOCATIONS

=-1200 MICRO-INCHES/

000

002762

LEVEN
;;""'""""""""""'""'0"""'..""..'.l'.""l.""'

LSBTTL

DATA PATTERNS

;;""""""'IQ'"""""".'""'"'.'."..".""'."".'..'

002762
002764
002766
002770
002772
002774
002776
003000
003002
003004
003006
003010
003012
003014
003016
003020
003022
003024

003726
003766
003026
003730

003026
003030
003032
003034
003036
003040
003042

000000
000000
000000
000000
090000
000000
000000

003044
003046
003050
003052
003054
003056
003060
003062
003064

003066
003070
00307¢

000000
003066
003126
003166
003226
003266
003326
003%66
003426
003466
003526

STNDAT:

003566
003626
0036066

0
DATAI
DATA1+40
DATA1+100
DATA1+140
DATA1+200
DATA1+240

DATA1+300
DATA1+340
DATAY+400
DATAT+440
DATA1+500
DATAL1+540
DATA1+600
DATA1+640
DATA1+700
DAVTAQ
DATAT+642

DATAQ:

.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

DATAY:

.WORD
.WORD
.WORD

000001
000003
000007

000000
000000

000000
030000
00000
000000
020000
090000
0000C0

000001
000003
000007

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

OOCOOOOOOOOOOOOCOC
OO

2647

648
2649
2650
2651

03-JuL-79

MACY1Y

;STANDARD DATA PATTERN POINTER TABLE

; JEROES
sONES
;DUMMY DATA PATTERN

;STANDARD PATTERN !

SEQ 0054

(IRJDDO, RPOL/S5/6 MLT-DR LGC
06-JUN-79 08:32
(IR.DD P
00307¢

NS LN
= OO0 NO
W

00D ~NOor VB

2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
27564
2755
2756

2757
2758

30AC1052)
DATA

03-0uL-79

PATTERNS

003122
00312¢

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

003126
003130
003132
003134
003136
003140
003142
003144
003146
003150
003152
003154
003156
003160
003162
003164

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

—O D00

U NN NN
RO
O
NNNN NN NNNNNNNNNNNNNNNN
(AN
O3, SY ¥ POPONIPNIPNIN
o e b e o e e e et et (DO

2703
2706
2705
2706
2707

MACY1Y

000000

003166
003170
003172
003174
003176
003200
003202
003204
003206
003210
003212
003214
003216
003220
003222
003224

000000
000000
000000
177777
177777
177777
0C0000
000000
177777
177777

177777
000000
177777
000000
177777

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

003226
003230
003232
00323¢
003236
003240
003242
003244

000000
010421
021042
031463
042104
052525
063146
073567

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

000000

10:41

PAGE

:STANDARD PATTERN ¢

000000
000000
000000
000000
vt
177777

;STANDARD PATTERN 3

177777

000000
000000
1727777
177777

000000
177777
600000
V77777
000000
177777

;STANDARD PATTERN 4

SEQ 0055

170360

007417
170360
007417

170360

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322

026455
15132¢

026455

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

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

el
e
D
)
il

SEQ 0056

~NO NN
O
NN
NN
NW~NWOrROO
N
SNANNIN
= YN —
~NO NN
— O

;STANDARD PATTERN 5

—

o
-~
Po

— Py

PRI

Y = Sy

¥ oY )

NP
ND AN NN
NN
ANV NP AN NN NN
NN
AN
oo oW
AN
N NN
O
(aS AV N oaURW N SRV ) (SR RV SV ] V) O} G LV NV L}

—

PAGE

; STANDARD PATTERN

170360
170360
170360

007417
007417

170360
170360

007417
170360
007417

170360

007417

170360

026455
026455

NN GV TV L VN U}V (¥l

007417

.WORD

007417

(Wl o SRV [

170360
170360

007417

R (]

NIV
TN SN
N e XV ¥ YWY~n -

NN NN ~oOo
(W 1 VAV 1 VXV 1 V1, S AV IV 1, VT VY WV IV IV ]
n

il
il
vl
el
il
el
D

007417
007417

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

10:41

o
PRV PRV TPi oV
LV V) £~
oW
oW
o) N

003416

170360
170360

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

003366
003370
003372
003374
003376
003400
003402
003404
003406
003410
003412
003414

007417
007417
007417
170360

.WORD

Ul SRV LV LV o )]

003326
003330
003332
003334
003336
003340
003342
003344
003346
003350
003352
003354
003356
003360
003362
003364

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

Y e Y e B

788

003306
003310
003312
003314
003316
003320
003322
003324

30A(C1052)
03-JuL-79
DATA PATTERNS

[pURVW 1 SRV LU ]

787

003276
003300
003302
003304

MACY1Y

(e JE Y o PEF I

785

003266
003270
003272
003274

(V1 VAV, L RV T VAV V.1 VT NIV IV IV 1 NT U7 ST
[ASAV T NIV, T, VIV. 1, VY U XV TV, 1, VY VT XV IV, IV R

7
7
7
775
7
7
7

003246
003250
003252
003254
003256
003260
003262
003264

—_,O OO~
= OO ——=—-00D

2759
2760
2761
2762
2763
2764
2765
2766

no [V SRV T NIV [ V] VIV IV 1. V1 VT VIV W W BN VT
V. I YUV G
N [ASAV. I SRV J SRV IV [ V1, UV IV IV T, VY VT NI NENTe
Jo SV, IV ] P

(IRJDDO, RPOL/S/6 MLT-DR LGC
(IRJDD P
06-JUN-79 08:32

;STANDARD PATTERN 7

CZRJDDO, RPO&L/5/6 MLT-DR LGC

CIRJIDD.PIY

06-JUN-79 08:32

MACY11

30A(1052)

03-0uL=79

DATA PATTERNS

10:41

PAGE $9

2815
2816
Sg}g

003420
003422
003424

151322
026455
151322

LMORD
.WORD
.WORD

151322
026455
151322

2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
gggg

003426
003430
003432
003434
003436
003440
003442
003444
003446
003450
003452
003454
003456
003460
003462
003464

165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333

LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.WORD
LWORD
.WORD

165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333

STANDARD PATTERN 8

2836
2837
2838
2839
2840
2841
2842

003466
003470
003472
003474
003476
003500
003502

000001
000002
000004
000010
000020
000040
000100

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

000001
000002
000004
000010
000020
000040
000100

;STANDARD PATTERN 9

2843
2844
2845
2846
2847
2848
2849
2850
232;

003504
003506
003510
003512
003514
003516
003520
003922
00352¢

000200
000400
001000
002000
004000
010000
020000
040000
100000

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

000200
000400
001000
002000
004000
010000
020000
040000
100000

2853
2854
2855
2856
2857
2858
2859
2860

003526
003530
003532
003534
003536
003540
003542
003544

177377
176777
175777
173777
167777
157777
137777
077777

LWORD
LWORD
LWORD
LWORD
.WORD
LWORD
..WORD
.WORD

LWORD
LWORD
.WORD
.WORD
LWORD
LWORD
LWORD
.WORD

177776
177775
177773
177767
177757
177737
177677
177%177

;STANDARD PATTERN 10

003546
003550
003552
003554
003556
003560
003562
003564

177776
177775
177773
177767
177757
177737
177677
177577

177377
176777
175777
173777
167777
157777
137777
077777

003566

172666

WORD

172666

;STANDARD PATTERN 11

2861
2862
2863
2864
2865
2866
2867
2B68

2869

2870

SEQ 0057

(IRJDDO, RPOL/S/6 MLT-DR LG(
P
(IRJDD.P
06-JUN-79 08:3%2

PAGE €&V

SEQ 0058

003626
003630
003632
003634
003636
003640
003642
003644
003646
003650
003652
003654
003656
003660
003662
003664

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

;STANDARD PATTERN

003666
003670
003672
003674
003676
003700
003702
003704
003706
003710
003712
003714
003716
003720
003722
003724

.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

;STANDARD PATTERN 13

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

;STANDARD PATTERN 14

000000
NN
TN

NN
N

NN NN

NNV

177777
o

003726
003730
003732
003734
003736
003740

066667

2917
2918
2919
2920
2921
2922
2923
2924
2925
2926

.WORD
.WORD
.WORD

)

2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

10:41

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

NN
N

2904
2905

30A(1052)
03-JuL=79
DATA PATTERNS

003570
003572
003574
003576
003600
003602
003604
003606
003610
003612
003614
003616
003620
003622
003624

—

2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
288?2
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
28995
2896
2897
2898
2869
2900
2901
2902
2903

MACYTT

.WORD

2944

2945

2946
2947
2948
2949
2950
2951
2952
2953
2954

003766
003770
003772
003774
003776
004000
004002
004004
004006
004010
004012
004014
004016
004320
004022
004024

177777
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

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

PAGE

¢!

;STANDARD PATTERN 1€

.WORD
.WORD

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

.WORD
.WORD

.WORD

10:41

NN TNTN

30AC1052)
03-JuL=79
DATA PATTERNS
NN
SN SN NN N

MACYT1

TSNONTNTN

~ NNNNNNN

NNNNNNNNN
~ NNNNNNNN
~ NNNNNNN~N

ok
il
i
mnld
il
il
D
i

003742
003744
003746
003750
003752
003754
003756
003760
003762
003764

2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943

NNNNNNN~N~

(ZRJDDO, RPO&4/S/6 MLT-DR LG(
(IrRJDD P
C6-JUN-79 08:32

000000

SEQ 0059

(IRJDDO, RPOL/S/76 MLT=-DR LG(
06-JUN-79 08:32
CIRJDOD P

2955
2956
2957
2958
2959
2960
2961
2962
2963

2983

2984
2985
2986

2987
2988
2989
299C
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3063
31004
3005
3006
3007
3008
3009
3010

30A(1052)
03-JuL=-79
ERROR POINTER TABLE
.SB8TTL

10:41

PASE ¢

SEQ 0060

ERROR POINTER TABLE

;*THIS TABLE

(ONTAINS THE

INFORMATION FOR EACH ERROR THAT

(AN OCCUR.

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
L:
;*NOTE
1F SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRP().

;*NOTE?:
(TR
TR IR

2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982

MACY1Y

EACH

3,
DM
D1
Df

TTEM IN THE

;. POINTS
;;POINTS

TABLE

CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

10 THE ERROR MESSAGE
10 THE DATA HEADER

;. POINTS 10 THE DATA
;:POINTS TO THE DATA FORMAT

SERRTB:

004026

;ERROR 1

004026
004030
004032
004034

065166
047626
050260
000000

Emi
DH1
DT

;RHIY

INTERRUPT

OCCURRED

(RPAS

EM2

JUNEXPECTED ATTENTION OCCURRED

:ERROR 2
004036
004040
0064042
004044

045231
047633
050264
000000

DH?
D12

:ERROR 3
004046
004050
004052
004054

;MASSBUS PARITY ERROR

045267
047710
050302
000000

(MCPE-1»

;EKROR 4

004056
004060
004062
004064

;MASSBUS PARITY ERROR (PAR 1)

045325
047736
050312
000000

D14

;ERROR S
004066
004070
004072
004074

045362
047633
050264
00000C

EMS
DH?
D12

s ADDRESS PLUG BIT

EMo

;RH1T

(HANGED

;ERROR 6

004076
004100

DHO

DIDN'T

RESPOND

10 ADDRESSING

CIRJIDDO, RPO4L/S/6 MLT=-DR LGC
CIRJDD. P 1
06~JUN=79 08:32

30AC1052)
O03-JuL=79
ERROR POINTER TABLE

0503264

10:41

PAGE

¢3

SEQ 0061

D16

000000

R R
R R
L R
R
R A A

LSBTTL

SETUP AND

START

INITIALIZATION ROUTINE

ADDRESS = 200

ADDRESS TO (HANGE

RM11

UNIBUS ADDRESS = 204

;.'"."""""""""""""".""""""""""""""Q"

004106
004114
004120
004122
004130
004136
004140
004144
004150
004152
004169
004166
004174
004202

006202
004206
004210
00424
004216

012737
005037
000413
012737
012737
000404
005037
005037
000005
013737
013737
013737
013737

000001
001260

034264

172777

001260
034264

000001

mov

START1:

001260
034264

001352
00135¢
001356
001360

START3: MOV
CLR
BR
START:
MQv

001372
00137¢
001376
001400

STARTZ2:

SETULP:

LSBTIL

012706

001100

030626
000340
033174

600340
176563
123456

004324
004326
004332
004334
004362
004350

NNNMNOO
W

ONNNNO

014266
004272
004 300
004306
004314
004322

000004
004326

177570
177570
177777

CLR
RESET

MoV

Mmov
mMov
mov

ENABLE PROGRAMMABLE DRIVES
“CLEAR THE RH11 ADDRESS C(HANGE

START?

;START THE PROGRAM

TSTPGM

(CHGADR

;SET RH11
;ENABLE

ENDCN,ENDCON

000030
000032
000034
000036
032560
0325€2

;SET

DRIVES

UP FOR NORMAL

#OCMTAG,RE

(mp

#SWR,R6 ; ;DONE?

(R6) ¢

.=6
#STACK,SP

;oINITIALIZE A FEW VECTORS

;;FIRST LOCATION TO BE

;sCLEAR MEMORY LOCATION
::L00P BACK
;:SETUP THE

#SERROR,QNEMTIVEC

;:EMT

MoV

FSTRAP,3FTRAPVEC

;:TRAP VECTOR FOR

#340,30EMTVEC+? ;;LEVEL

CLEARED

[F NO
STACK POINTER

MOV

MOV
MOV
MOV

PASS

COMMON TAGS

MoV

MOV

FLAG

DRIVES

;DISABLE PROGRAMMABLE
;CLEAR THE BUS

ENDCN+2 ,ENDCON+2
ENDSK ,ENDSEK
ENDSK+2 ,ENDSEK+?2
THE

ADDRESS CHANGE

PROGRAMMABLE

FLAG

;CLEAR THE RH11 ADDRESS C(HANGE FLAG

TSTPGM

INITIALIZE

BNE
MOV

VECTOR FOR ERROR ROUTINE

TRAP CALLS

#340,90TRAPVEC+2;LEVEL 7
#176543,8HINUM
;:PRIME THE RANDOM NUMBER GENERATOR
#123456,8LONUM
::BOTH HIGH AND LOW WORDS

;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;.EQUAL Y0 A ''=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOv
MOV
MOv
MOV
(Mp

000004
001140
001142

174616

BNE

004334

000176
000174

65%:

000004

(LR

CLR

001100

004222
004230
004236
0042446
004252
004260

n,
TSTPGM
CHGADR
-TART?
#-1,(HGADR

::CLEAR THE (OMMON TAGS (SCMTAG) AREA

001140

OOOOO0O
ON)
=t bt b
LA YA 1aY 1oV XV ]
O NNNN~N
—_ AN
S

31057
3058
3059
3060
3061
3062
3063
1064
3065
3066

004102
006104

OOOOOO
—
s et O = O
roNONONVO
O NNO NS
WWIWNO
— O

3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
2043
3044
2045
3046
3047
3048
3049
3050
3091
3052
3053
3054
3055
3056

MACYTY

66%:

OFERRVEC,-(SP)
#64% ,aNERRVEC
#DSWR,SWR
#0DISP,DISPLAY
#-1,35WR

66%

;;SAVE FRROR VECTOR
::SET UP ERROR VECTOR
;iSETUP FOR A HARDWARE SWICH REGISTER
;:;AND A HARDWARE DISPLAY REGISTER
;:TRY 7O REFERENCE HARDWARE SWR

;;BRANCH IF NO TIMEOUT

::AND

BR
MOV

65%
#65%, (SP)

MOv

#SWREG, SWR

;;POINT TO SOf TWARE SWR

MOV

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VvECIOR

R11

MOV

#DISPREG,DISPLAY

TRAP OCCURRED

THE HARDWARE SWR IS NOT - =}

::BRANCH 1F NO TIMEOUT
::SEY UP FOR TRAP RETURN

CIRJDDO, RPO&/5/6 MLT-DR LGC

CIRJOD.PI1
3067
3068
3069

3070

3071
3072
3073
3074
3075
3076

06-JUN-79 08:32

004356
004362
004370

004374

004376
004404
004606
004614
006416
006422

012737
012737
005227
001030
023737
001004
012737
000402
1064401
005737

000240
000240
177777

000032
000036

000042

000046

000001

034264

3077 004426 001402

055652
034264

3078
3079
3080

004430
004434
004434

106401

052326

005737

000042

3082

004442

122737

000011

3084

004452

104401

055703

3081 006440 001006
3083

004450

MACY1T

001002

3087
3088

004462
004466

3090
3091
3092
3093

006476
004500
004502
0064504

3095
3096
3097
3098
3099
3100
3101
3102
3103

004512
004516
004520
0045264
004532
004540
004544

005227
001015
004737
013737
013737
005737
001002

3104
3105
3106
3107
3108
3109
3110

0045646
004552
004556
004562
004564
004570
004572
004576

004737
005037
012705
005025
022705
001374
012706
005037

054756
001214
001440

3117
5113

004634
006640

005037
062737

001262
170000

3089

3094

3111
3112
3113
3114
3115
3116
311

004470

004512

006602
004610
004614
004620
004624
004630

005737
001006

68:

000041

023727

001005
104406
000403
112737

013737
005037
005037
005037
005037
005037

121

JSBTTL

001140

000176

000001

001734

177777

055242
001170
001172
000042

001100
177776

001212
001266
001270
001272
001412
001216

€7$:
68%:

2%:
38

€01274

001406

10:641

5
PAGE €4

#2640, 9MEMTVEC+? : CHANGE EMT PRIORITY 10 5
9260 a#TRAPVEC+2
- CHANGE TRAP PRIORITY 10 S
y-1
:FIRST START ?
is
"BR 1F NOT
arL2 ,anue
“ACT11 AUTOMATIC MODE?
43
"BRANCH 1F NO
",
TSTPGM
-ENABLE PROGRAMMABLE DRIVES
5¢
LTITLE
:TYPE THE PROGRAM'S TITLE
1STPOM
"CAN WE USE PROGRAMMABLE DRIVES?

TYPE

,USE

BEOQ

"BRANCH 1F NO

181

BNE

CMPB

SAUTO ACCEPT OR CHAIN MODE

BNE

#11.41

TYPE

“LOADED FROM AN RP04/5/6 2

,LOADRV

“BR IF NOT

“BR IF EITHER

005227

177777

“INSTRUCT THE OPERATCR ON HOW TO TEST DRIVE 0

JSR

PC.LSTKINT

“TURN ON THE KEYBOARD INTERRUPT

TS1
BNE

ING2
67

- ARE WE RUNNING UNDER XXDP/A(T?
“'BRANCH IF YES

BNE
GTSWR
BR
MOVB

68%

“'BRANCH IF NO
“IGET SOFT-SWR SETTINGS

INC
BNE

JSR
MOV
MOV
181
BNE

y-1
2%
PC,BUSADR
SRPADR,RPADR
SRPVEC .RPVEC
G2
2%

JSR
CLR
MOV
CLR
CHP
BNE
MOV
(LR

PC.OPRDAT
STATIN
FORDERQ,RS
(RS)+
#BLKADR RS
3
¥STACK,SP
PS

CLR
BIC

CFLAG
#170000
. MAXER

GET VALUE TOR SOF TWARE SWITCH REGISTER

MOV
CLR
CLR
CLR
(LR
CLR

SWR, #SWREG

68%
#1,$AUTOB

MI,SIXTEE
HOUR
MINUTE
SECOND
INTRVL ¢2
PACK

SIIMEM: INC

v-1

|
f

“TYPE MSG

" 1SOF TWARE SWITCH REG SELECTED?

.:SET AUTO-MODE INDICATOR
:FIRST START ?
'BR 1F NOT

TCHECK RH11 BUS ADDRESS
:RH11 ADDRESS
:RH11 VECTOR ADDRESS
TACT=11 AUTO OR CHAIN MODE?
"BRANCH IF EITHER, SKIP
"DATE & OPERATOR iD INPUT
"GET THE DATE AND OPERATOR ID
"CLEAR PERFORMANCE SUMMARY TYPEOUT FLAG
“START OF AREA TO CLEAR

:L00K FOR END OF CLEAR AREA
Bk 1F NOT FINISHED
“SETUP THE STACK POINTER
“CLEAR THE PROCESSOR STATUS WORD

1760 TH OR 1/50 TH SECOND COUNTER yAl UE
“CLEAR THE HOUR'S COUNTER
“CLEAR THE MINUTE'S COUNTER
“CLEAR THE SECOND'S COUNTER
“CLEAR INTERVAL COUNTER
“CLEAR THE 'R® OR 'W' COMMAND FLAG
“CLEAR THE 'CONTROL (' FLAG
-MAKE SURE ERROR LIMITS ARE NOT 100 HlGw

-ROUTINE 10 DETERMINE BUFFER EREA SIZE

006646

SEQ 0062

MoV
MOV
INC
BNE
CMp
BNE
MOV
BR
TYPE
151

CMP

033430
033432

001740

2120

3122

18:

000042

03-JuL-79

INITIALIZE THE COMMON TAGS

0$:
5% :

3085 004456 006737 030146
3086

30AC1052)

SSEE IF TIME 10 SIZE MEMORY

CIRJIDDO, RPOG/S/6 MLT-DR LGC
CZRJOD.P1
06-JUN-79 08:32

142

31643
3144

001005
0047
0
0
0
0

005002
005010

013737
013737

005000

Y N~

004652
004656
004660
004666
004676
004702
004710
004716
004720
006724
004732
0047640
004742
0064746
004750
004756
004762
004764
004772

0
006037
162737
023727
103406
105737
001403
162737
005737
001012
012737
023737

055136
055232
000001
054756
001256
054756

BNE
001256
001616
001620
001622
001622

103403

001622
000144
001256

30A01052)
03-JUL=-79
10:641
PAGE €5
GET VALUE FOR SOFTWARE SWITCH REGISTER

19:

—

P ol DBV TV IV IV IV IV IV TV TV TV 1 1 ST, V1, V)
= OOV
NO VNS WN OO0V~

—

AN N L

LN U

)

N AN

)

3123
3124
3125

MACY11

PC,9SI1LE

;SEE HOW MUCH MEMORY ON SYSTEM

SUB
Lc

NENDPGM,BUFTBL*4

;SUBTRACT PROGRAM SPACE
:CLEAR THE *C' BIT

MOV
MoV
MOV
MOV

BUF TBL*4

TST8

BNE
MOV
(mMp
BLO

6%
#5980. ,MAXDL
MAXDL,BUFTBL+4
3

002570
001404

001622

8EQ
SuB
157

013534
001404

001404
001622

001622
001622

001404
053746

3%:

6%:

SLSTAD,LSTAD
:SAVE THE LAST ADDRESS
#1,BUFTBL
;LOAD NUMBER OF BUFFERS
#ENDPGM,BUSTBL+2
;STARTING ADDRESS OF BUFFER
LSTAD,BUFTBL*4
;LASY ADDR TO BUFFER ALLOCATION TABLE

ROR

100000

000041

:BR 1Ff NOT

JOR

SUB
(mp
B8LO

001622

183

SEQ 0063

#100.,BUFTBL+4
LSTAD,#100000
1%

:CONVERT

T0O WORD COUNT

;SAVE ROOM FOR THE 'ABS' LOADER
;16K ON THE SYSTEM ?
;BR IF YES
:SEE WHO LOADED THE

PROGRAM

1%
:BR IF LOADED BY PAPER TAPE
#16400.,BUFTBL*4
;SUBTRACT °'XXDP' LOADER SIZE
MAXDL
;VALUE IN '"MAXDL' ?

Mov

BUF TB1 +4 ,MAXDL

Mov

;BR If VALUE ]S
;ASSUME FULL TRACK +
;IS THAT TOO LARGE ?
;BR IF NOT

SEC MAXIMUM

;USE MAX AVAIL MEMORY AS MAX BUFFER SIZt

BUFTBL+4,PARLST+2

;VALUE

FOR THE

PARAMETER TABLE

;SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS

NP —
~NO NS

WIVv—=O

0NN

NNNNNNNNNOCOCOCOCOOC
OO
NN

NN = OO0
N
W NO

s A

el wad

LU LA L

N U

d s

D ol

L U A

W A L L

AN U

D ol

e el

N U AN N AN U

N N

D el el el e

3148
3149
3150

005016
005022
005024
005030
005032
005034
005040

005737
001022
104401
104411
012605
122715
001013

005042
005046
005052
005060
005062

012703
004737
023727
103003
012737

LKPAR:

000042

TS1
BNE

N6
SETVEC

(MPB
BNE

(SP)+ RS
#'Y,(RS)
SETVEC

;WAS ENTRY A 'Y'
:BR If NOT 'Y’

MOV
JSR
cMp
BHIS
Mov

#PARLST ,R3
PC,PARENT
MAXDL ,#4
SETVEC
N4 MAXDL

;PARAMETER TABLE ADDRESS
;GET THE PARAMETER ENTRY
;1S THE "MAXDL' VALUE 0K ?
:BRIF 1T IS
;SET '"MAXDL' TO THE MINIMUM VALUE

TYPE
ROLIN
Mov

054042
000131
053744
026370
001404

000004

001404

ENTPR:

.ASKPAR

;"XXDP' (HAIN MODE OR
:BR IF YES

'ACT11'

OPERATION ?

;ASK FOR PARMETERS
:READ THE ENTRY
;ADDRESS OF ENTRY 10 RS

(YES)

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

005070
005074
005100
005106
005114
005116
005124
005126
005134
005136
0051642
005146
005146

004737
004737
012737
062727
103004
032777
001105
012737
005004
104401
104401
010446

SETVEC: JSR

022500
033446
177777
177777

033370
000000

000004

174014

000349

177776

001165
052634

THE

JSR

MOV
ADD

11%:
|

BCC
BIT
BNE
MOV
(LR

TYPE

MOV

PROGRAM wlLL USE

PC,CKCLK

;START THE CLOCK

#-1,SAVEFG
¥-1,40

:SET THE SAVE REGISTERS FLAG
;CHECK FOR FIRST START

PC,RPINIT

sINITIALIZE THE RPQO&4/5/6 DRIVER

108
#PR7,PS
R4

;:BR IF FIRST START
:TYPEOUT THE DRIVE STATUS TABLE
;BR If NOT
:SET PRIORITY 10 7
;DRIVE TABLE POINTER

,SYSTAT

;TYPE STATUS HEADING

11%

#SW02,aSWR

LSCRLF

R4,=(SP)

s CR=LF

::SAVE R4 FOR TYPEOUT

;. 1YPE DRIVE NUMBER

VIV IV

ol el

oo
0

)

VIV IV VIV I

TV v T

CIRIDDO, RPO&L/S5/6 MLT-DR LG(C
C(IRJDD PN
06-JUN-79 08:32
005150
005152
005153
005154
005160
005164
005166
005170
00517¢
005176
005200
005204
005206
005212
005214
005222
005224
005230
005232
005236
005240

005244
005246

005252
005256
005264
005272
005274
005302
005310
005312
005320
005322
005324
005330
005332
005336
005340
005344
005350

104403
002
000
104401
105764
100425
001027
105764
001404
100006
104401
000447
104401

000444
132764
001403
104401
000410
104401

000405
106401
000402
104401
104401

012737
132764

001012
012737
132764
001003
012737
104401

000000
104401

005204
020427
001303
104401

005037
000137

MACY11

30A(1052)
03-JuL-79
10:41
PAGE €6
GET VALUE FOR SOf TWARE SWITCH REGISTER
1YPOS

;:TYPE 2 DIGIT(S)

BM]
BNE

63
5$
DRVTYP(RS)

DRVSTA(RS)

;CHECK DRIVE'S STATUS

1S18

Bfa
BPL

TYPE

2%:

052570
000010

052624

:
L%

052467
052323
052654
000001

005322
033312

5%:
6%:

052661
000002

005322
033312

052666

005322

001165

3233
3234

005737
001402
004737
005227
001011

TYPE

023727
103002

001256

005416
005422

MONTR:

024362
177777

1%:

000041

104401

056102

004737

030146
053631

104401

;DRIVE UNSAFE

L,UNTON

;DRIVE ONLINE

LLINSP

98:

000042

105737
001406

LNOTSAF

;PRINT DRIVE TYPE
:DRIVE OFFLINE
;PRINT DRIVE TYPE
;PRINT

INC
CMP
BNE

R4
R4, 48,
1%
LSCRLF

TYPE

CLR
JMP

;SPACES

;RPOS ?

TYPE

RPO& MESSAGE

RPOS MESSAGE

:BR IF YES
:ADDRESS OF RP06& MESSAGE
;TYPE THE DRIVE TYPE MESSAGE

:MESSAGE ADDRESS HERE

LSCRLF

;CR-LF

PS
MONTR

:SET PRIORITY BACK T0 '0°
:CHECK rOR 'XXDP' OR 'ACT11® MONITOR

: INCREMENT DRIVE
;FINISHED ?
:BR 1F NOT
;CR=LF

NUMBER/TARLE

POINTER

'XXDP' OR "ACT11' OPERATION

151

BEQ
JSR
INC
BNE
1518

TYPE

2%:

7%
#RP06,8%

.WORD

BEQ
(mp
BHIS

100000

DRIVE

#RPOLB, 8%
;ADDRESS OF
#81T00,DRVIYP(RG)
:RPO4 ?
14
:BR IF YES
#RP0S,8%
:ADDRESS OF

:SETUP 1F
005354
005360
005362
005366
005372
005374
005400
005402
005410
005412

:BR IF OFFLINE
:DRIVE NOT AN RP04/5/6
;CHECK NEXT DRIVE

;PRINT MSG

7%:

005354

OR NONEXISTENT

:BR IF NONEXISTENT

,NOUSE

6%
LUNTOFF
6%

Mov
TYPE

10%:

177776

33
,NOTRP
9s

;BR IF UNSAFE
:BR IF ONLINE
;SEE IF OFFLINE

#BITO1,DRVIYP(RG)

000010

001165

:;SUPPRESS LEADING ZEROS
;SPACES

;DRIVE NOT PRESENT
;CHECK NEXT DRIVE
#B1T03, DRVIYP(R&)
:DRIVE PROGRAMMABLE?
12%
;BRANCH IF NO

052403
12%:

0
LLINGSP

,NOTPRS
9%

033312

052456

;.60 TYPE--0CTAL ASClI

.BYTE
.BYTE

TYPE
1518

052547

SEQ 0064

JSR

TYPE

U XXDP'

2%
YZA
2%

:BR IF NOT
:LOADED FROM PAPER TAPE ?
:BR If YES
:MORE THAN 16K ON THE SYSTEM °
:BR If YES

1%
PC,ASGN2
v-1

LSTAD,#100000
2%

,NOLOAD

PC,$TKINT

,INTDON

CHAIN MODE OR 'ACT11*

:BR It NEITHER
;ASSIGN DRIVES
;FIRST START ?

AUTO ACCEPT

cTELL THE OPERATOR THAT THE ‘*XXDP' LOADER
;WILL BE OVERWRITTEN
INITIALIZE

TYPE

THE XKEYBOARD INTERRUPT HANDLER

"INITIALIZE COMPLETE'

CIRJDDO, RPO&L/S/6 MLT-DR LGC
06-JUN-79 08:32
CIRJOD.PVY
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261

3262

326%

3264
3265
3266
3267
3268
3269
3270
3271
3272
327%
3274
3275
3276
3277
3278
3279

3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290

005426

000137

"ACY11

005610

005454
005456

013700
001002
000137
000005
004710
000240
000240
000240
000137

000042
005610

004140

MAINT

Jnp
;" XXDP!

005432
005436
005440
005446
005446
005450
005452

30A(1052)
10:41
PAGE ¢7
03-JuL-79
GET VALUE FOR SOFTWARE SWITCH REGISTER

*ACTI1"

$GET4L2: MoV
BNE
JMP
1%:
RESET
$ENDAD: JSR

$DOAGN:

NOP
NOP
NOP
JMp

END OF

SEQ 0065
THE PROGRAM

;START
TEST ROUTINE

&2 ,R0

19
MAINT

PC, (RO

START

;MONITOR ADDRESS

;BR IF MON]TOR
;sNONE, C(GNTINUE
sCLEAR EVERYTHING
;60 TO THE MONITOR
;SAVE RCOM

;FOR
SACTI
;START

AGAIN

;:t""t"""""""""'l""'""'""."t""."""'..""'

LIBTTL

MAIN PROGRAM

;;"'"I"".""""."'.""""""""t'.""'Q.".'t""".'

005462
005466

005472
005474
005476
005502
005504
005506

005512
005514

005520
005524
005526
005530
005532
005534
005540
005542
005546
005550
005552
005554
005556
005562
005564
005566
005572
005576
005600
005602
005606

012703
012705
005715

001011
062705
005303

001372
005737
001036
000137
012701
005711

000010
001464

MAIN:

1$:

MoV
Mov
187

000002

2%:

ADD

001462

005432
001530

001405

3%
4%:

021115

001414

062701
000771
012701
005711
001752

021115
001403
062701
000771

011100
106600

004737
005015
005011
004737
000733

151
BNE
JMP

MOV

151
8tQ
(MP
ADD

5%:
6%:

000002

053140

DEC
ENE

BEQ

000002

001552

BNE

MoV
1S7

BEQ
(Mp
BEQ
ADD

7%:

022764

MOV
TYPE

JSR
CLRe
CLR
JSR
8R

017616

#8.,R3
#DUNIT
RS
(RS)

;DRIVE COUNTER

#2 RS

; INCREMENT TO NEXT TABLC POSITION
.DECREMENT DRIVE COUNTER
:BR IF MORE 70 (HECK

R3
1%

ASNLST

MAINT
$GET4?2

FAVAIL
R

;ADDRESS OF 'DROP DRIVE' TABLE
;SEE IF ENTRY AT PRESENT POSITION
;BR

THERE

;ANY

DRIVES

]S ONE

ACTIVE

;ADDRESS OF

'AVAILABLE

IF AT END OF

(R1)

JSEE

#2.R1
(%
FWALT R
(R

;AT

THE

END OF

¢BR

5%
(R1),(RS)
7%

(R1), (RS)
7%
¥2,R1
6%
(R1) ,RO

.DEASSG

PC,TYPEST
(RS)
(R1)
PC,CMPRES

012703
005002

00CO10

MAINT:

Mov
(LR

#8.,R3
R2

TABLE

DRIVES'

1ABLE

;BR IF AT END: GO CHECK 'WAIT' TABLE
;1S DRIVE IN 'AVAJL' THE ONE TO Bt DROPPED
¢BR IF YES
; INCREMENT °*AVAIL' TABLE ADDRESS
;CONTINUE LOOKING
;MOVE THE ADDRESS OF THE BUFFER WAIT TABLE
THE

'WAIT'

TABLE

;BR IF YES: SEE |F ANY MORE 'DROP' REQUESTS
;DRIVE [N THE 'WA]T' TABLE ?
IS

: INCREMENT 'WAIT' TABLE ADDRESS
: CONTINUE LOOK THROUGH THE 'WAIT®' TABLE
;PUT THE DRIVE'S BLOCK ADDRESS IN RO
;TYPE

'DRIVE DEASSIGNED'

;TYPE THE DRIVE'S PERFORMANCE SUMMARY
;CLEAR THE 'DROP DRIVE' TABLE ENTRY
;REMOVE THE DRIVE FROM THE "AVAIL' OR "WAIT'
. COMPRESS

;SEE

THE

RESPECTIVE

1f ANY MORE DRIVES

;LOOK FOR DRIVES TO BE ASSIGNED
005610
005614

;BR IF YES
;CHECK FOR MONITOR RETURN

;DRIVE COUNT
s "AVAIL'

INDEX

TABLE

005616

005620
005622
005626
005630
005634
005636
005640
005642
005644
005650
005652
005654
005655
V05656
005662
005666
005670
005674
005676
005704
005710
005716
005722
005726

005004
00500%
005765
00100¢e
06270%
005204
005303
001370
000432
104401

010446
104403
002
000
104401
005762
001403
062702

000772
016562
005065

156437
016200
062702
000740

03-JuL-79

MAIN PROGRAM

001506

1%:

000002

2%:

052450

1%:

(LR
(LR
151

053210
001530

000002

001506
001506
033416
001530
000002

001530

5%:

001462

10:41

6
PAGE ¢38

BNE

ADD

InC
DEC
BNE
BR
1YPE
Mov

SEQ 0066

R&
RS

;ASSIGN LIST INDEX
;NEW DRIVE INDEX

%
#2,RS

;BR IF

NEWUNT(RS)

R&
R3
1%
MAIN?
,UNTMSG
R&,=(SP)

TYPOS

:NEW DRIVE

IN THIS PGSITION

THERE 1S
; INCREMENT RS

; INCREMENT ASSIGN INDEX
;DECREMENT DRIVE COUNT
;8R If MORE DRIVES
;START OPERATIONS FOR THE AVAILABLE DRIVES
;'DRIVE'
;s SAVE R& FOR TYPEOUT
;. TYPE

DRIVE

NUMBER

;60 TYPE--OCTAL ASCI!

BYTE
.BYTE

2
O

;s TYPE 2 DIGIT(S)
s SUPPRESS LEADING ZEROS

181
Bta
ADD
BR

AVAIL (R?2)
5%
N2 ,R2
4%

;AT END OF AVAILABLE TABLE
;BR IF YES
; INCREMENT AVAILABLE TABLE INDEX
:CONTINUE LOOKING FOR END OF TABLE

T1YPE

Mov

CLR
B158
Mov
ADD
BR

. ASGND

;"ASSIGNED’

NEWUNT(RS) ,AVAIL(R2)
NEWUNT(RS)

;MOVE ADDR OF DRIVE INTO AVAIL (ST

. TAKE DRIVE OUT OF NEW DRIVE TABLE
ATABIT(RL) ,ASNLST ;SET DRIVE ASSIGNED INDICATOR
AVAIL (R2),RO
;PUT STARTING ADDRESS OF BLOCK IN RO
; INCREMENT AVAILABLE TABLE POINTER
" ,R2
2%
;LOOK FOR MORE DRIVES

;GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN

006034
006040
006042

001403
000773
006737
004737
004737
005046
004737
012660
001426
00473/

MAINZ:

T1S7
BNE

v01530

1$:

001530
000104
000026

017634

001574

1
1
1

.—‘w—-

105760

001403
004737
000415
012701
020011
001403
005721

001552

005737
001113
005002
005762
001551
016200
005760
001021

THE

~O~
FRV
Yo

005730
005734
005736
005740
005744
005746
005752
005756
005760
005764
005766
005772
005774
006000
006002
006004
006006
006010
006012
006016
006022
006026
006030

;

QOO

AN
N[V

RV AV AV R

Y AV RV AV

W IV IV IV IV IV TV ]

N NN L LN AN L W L U AN A U N AN NN AN AN
s =t b ot e e ed e o s
(1.1,
¥ [a¥] POPUPNUNIND
oo~ N BN
2O OGO NS W
—=O

3291
3292
3293
3294
3295

30A(1052)

015760
000006
016330

2%:

3%:

5%:
6%:
7%:

(LR
ST
BEQ
MoV
151
BNE
1518
BEQ
JSR

'AVAILABLE'

QUEUE

WALT
MAIN3
R

PC,WRTPK

;ANY DRIVES WAITING FOR PARAMETERS
;BRANCH 1F NCNE
; CONTROL BLOCK ADDR IN RO
;PARAMETERS BEEN SELECIED ?
;BR IF THEY HAVE
;'R' OR 'W' COMMAND FOR THE DRIVE ?
;BR IF NOT
:GET DATA PACK PARAMETERS

Mov

#PARQ, R

;ADDRESS OF THE PAPAMETER QUEUE

BEQ
151

6%
(R1)+

JSR
(LR
JSR

PC,GETPAR
=(SP)
PC,GETBUE

(MpP

BEQ
BR
JSR
JSR

MOV

BEQ
JSR

AVAIL (R?2)
IDLE
AVAIL(R2) RO

;OUTSTANDING BUFFER REQUESTS
;BR If THERE ARE
;CLEAR DRIVE TABLE POINTER

SNEXT(RO)
6%
$PACK(RO)
2%
7%

;GET

THE BUFFER

RO, (R1)

;1S CURRENT DRIVE

5%
3%
PC,CMPRES
PC,SELPAR

;BR 1F AT END
;CONTINUE LOOKING
. COMPRESS THE TABLE
;SELECT THE PARAMETERS

(SP)+ ,$BUF (RO)

8%
PC,H1LBuUE

IN THE QUEUE

:BR IF 1T IS
;AT END OF THE QUEUE

;LOAD NEW PARAMETERS
;MAKE ROOM ON THE STACK FOR THE BUFFER ADDR
.GET BUFFER
;MOVE BUFFER ADDR 10 DPB

;BR If '0' ADDR (NO BUFFER)
SFILL THE BUFFER

YTM

MACY11

(IRJDDO, RPO4/5/6 MLT-DR LGC
CIRJDD P11
06-JUN-79 08:32

CIRJDDO, RPOL/S5/6 MLT-DR LGC
CIRJDD P
06-JUN-79 08:32

006046
006052
006056
006062
006064
006066
006070
006074
006076
006102
006104
006106
006110
006112
006120
006122
006126
006132
006134
006140
006142

006144

006150
006154
006156
006162

005060
004737
01270%
005725
001376
010045

105760
001025
012705
005725
001376
010045
000417
026037
001405
005260
062702
000702
012705
005725
001376
016245
012701
060201
004737
000666

30A(1052)

03-JuL-79

MAIN PROGRAM

(LR
JSR

000072
016456
0C1440

MoV
191

BNE

000026

MOV
1518

001574

MOV

BNE

181
BNE

MOV

000072

001254

8%:

000072
000002

BR
(mMp
BEQ
INC
ADD

001552

9% :

001530
001530

10¢%:

017616

BR
MOV
151
BNE

MOV
MOV
ADD

JSR
BR

10:41

o6
PAGE

€9

SEQ 0067

$FAIR(RO)

;CLEAR THE °'FAIRNESS' COUNT

#ORDERQ,RS
(RS)+

;ADDRESS OF ORPSR.QUEUE IN RS

PC,GODRIV

;PUT

CURRENT

006164
006170
006172
006176
006202
006204

006210
006214
006220
006224
006230
006232
006234
006236
006242
006244
006250
006252
006254
006256
006262
006266

MAIN3:

013700
005046
004737
012660
001002
000137
004737
004737
005060
012705
005725

001552

105760

000026

MOV
1518

001574

MOV

001376
010045
001005
012705
005725
001376
010045
012701
004737
000620

015760
000006

006270
016330
016456
000072

=g
—

—

(LR
JSR

MOV

1%:

BNE
JMP
JSR
JSR
(LR
MOV
191

001440

BNE

TST

BNE

001552
017616

2%:

;WAIT

006270
006274

MOV

001440

IDLE:
1%:

MOV

MoV
JSR
BR

DPB

;END OF QUELTTM
;B8R IF NOT

IN DRIVER

RD,-(RS)
;PUT BLOCK ADDRESS INTO QUEUE
$PACK(RO)
;'R' OR 'W' COMMAND FOR DRIVE ?
10%
;BR JFeE]ITHER
#PARQ,RS
;PUT BLOCK INTO THE PARAMETER QUEUE
;FIND THE END OF T#f QUEUE
(RS)+
.=?
;BR [F NOT AT END OF QUEUE
RO,-(RS)
;PUT BLOCK ADDRESS INTO THE QUEUE
10%
; CONTINUE LOOKING
,FA IRNS
SFAIR(RO)
;ENTRY BEEN IN THE QUEUE LONG ENOUGH ?
9%
;BR IF YES
$SFAIR(RO)
; INCREMENT THE ENTRY COUNT
#2,R2
; INCREMENT THE POINTER
1%
;LOOK FOR SOME MORE DRIVES
FWALIT,RS
:"WAIT' QUEUE ADDRESS
(R5)+
;L0OOK FOR AN OPENING
.=2
;BR IF NONE YET
;MOVE DRIVE'S BLOCK ADDRESS 10 QUEUE
AVAIL(RZ)
,~( RS)
FAVAIL ,RI
R2,R1
PC,CMPRES
1%

; "AVAILABLE' TABLE ADDRESS
;FORM ADDRESS OF

WAIT,RO

-(SP)
PC,GETBUF

(R 0)
(SP)+,$BUF
1%
I0LE
PC,FILBUF
PC,GODRIV

$SFAIR(RO)
#ORDERQ,RS
(RS)+
.=2
RO,-(RS)
$PACK (RO)
2%
#PARQ,RS
(RS)+
.=2
RO,-(RS)
FWALT ,RY
PC,CMPRES

MAIN?

LAST

. COMPRESS THE TABLE
; CONTINUE LOOKING

;GET BUFFER ASSIGNMENTS FOR DRIVES IN THE

3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3379
3376
3377
3378
3379
3380
3381
1382
3383
3384
3385
3386
3387
1388
3389
3390
31391
3392
3393
3394
3395
3396
31397
3398
3399
3400
3401
3402

MACY11

ENTRY

'BUFFER WAIT'

QUEUE

;MOVE THE 'WAIT' ENTRY TO RO

;MAKE ROOM ON THE STACK FOR THE BUFFER ADDR
;TRY

:;MOVE

TO GET

A BUFFER

THE BUFFER ADDR TO THE

:BR IF A BUFFER WAS ASSIGNED
:NO BUFFER AVAILABLE YET
;FILL THE BUFFER
;PUT THE ENTRY IN THE DRIVER
;CLEAR THE 'FAIRNESS' COUNT

DPB

;ADDRESS OF ORDER QUEUE IN RS

;AT END OF THE QUEUE
:BR IF NOT
:PUT BLOCK ADDRESS IN QUEUE
;'R' OR 'W' COMMAND FOR DRIVE ?

;BR I1F YES, DON'T PUT BLOCK INTO 'PARG'
;FIND THE END OF THE PARAMETER QUEUE
;OPEN SLOT IN THE QUEUE ?
;BR IF NOT
;PUT BLOCK ADDRESS INTO THE QUEUE
;ADDRESS OF TABLE TO 1O COMPRESS
; COMPRESS THE WAIT TABLE
;LOOK FOR MORE ENTRIES

FOR AN ORDER 10 FINISH
MOv
MOV

#ORDERQ
R
(R1)+,R0

;ADDRESS OF THE ORDER QUEUE
;PUT BLOCK ADDRESS INTO RO

IN R}

(IRJDDO, RPOL/S/6 MLT-DR LGC
CIRJDD. PN
06-JUN-79 08:32
006276
00630¢
006304
006306
006312
006314
006320
006322
006326
006332
006336
006342
006344
006350
006352

006354
006356
006362
006366
006372
006374
006400
006402
006410

006412
006416
006420
006424
006430
006434
006436
006442
006446
006452
006456

001433
005760
001773
162701
010146

8tQ

151
BeQ
SUB
MoV
JSR
NOP
JSR
CLR
JSR
JSR

000002

015614

005037
004737
005737
001410
013700
004737
012701
004737
000137

001214
022702
001574

006626
001264
026622
026650

001530

2%:

IDLEY:

023776
172530

001214

2%:

001574
016534
001574
017616
005462

6
PAGE

1DLEY
$TATUS(RO)
1%
0 ,R1
R1,-(SP)
PC,STATIS

PC,PROCES

SEQ 0068

;BR IF END OF QUEUE
;SEE IF DRIVE FINISHED
;BR IF DRIVE NOT FINISHED
;CORRECT THE QUEUE POINTER
:SAVE THE QUEUE ADDRESS

:ACCUMULATE STATISTICS FOR DRIVE

;DEBUGGING AlD

:PROCESS END OF

IN RO

ORDER

PC,ABNRML
PC,EOP

Mov
Mov

NAVAIL RS

:FIND THE END OF

181
BNE

JSR
JSR
1S1
BEQ
J3R
BR

BIT
BNE

181
BEQ
(LR
JSR
1S1
BEQ

Mov

JSR

Mov

3%:

10:41

:CLEAR THE BAD TRK/SEC ERROR INDICATOR
:SEE If ANY DRIVES HAVE T0O MANY ERRORS
;SEE IF ANY DRIVE HAS XFERED 3x10%9 BITS

MOV

017616
016114
001262

000004

03-JuL-79

MAIN PROGRAM

000016

004737
000240
004737
005037
004737
004737
012601
012705
005725
001376
011145
004737
004737
005737
001403
004737
000733
032777
001007
005737
001404

30A(1052)

3403
3404
3405
3406
3407
3408
3409
3410
3411
3612
3613
3614
3415
36416
3417
3418
3419
3420
3421
3422
3623
3424
3425
3426
3427
34,28
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3647
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458

MACY11

JSR
JMP

BADSEC

(SP)+,R1
(RS)+

(R1),-(RS)

PC,CMPRES
PC,RELBUF
CFLAG
i
PC,KSR

;RESTORE

THE

ORDER

TABLE

THE

INDEX

°'AVAILABLE'

:END OF THE TABLE ?
:BR IF NOT AT END OF LI1ST

TABLE

:MOVE THE BLOCK ADDRESS INTO THE TABLE
:COMPRESS THE ORDER QUEUE
;RESTORE BUFFER
s"CONTROL C'

FLAG ENTERED ?

;BR IF IT WAS
;SERVICE THE KEYBOARD

IDLE
#5W02,aSwR

;SYSTEM WAS BUSY

STATIN
2%

:TIME 70 TYPE THE PERFORMANCE SUMMARY °
;BR IF NCT
;CLEAR THE INDICATOR

STATIN
PC,STATPR
PARQ

3%
PARQ,RO

PC,SELPAR
#PARQ,R1
PC,CMPRES
MAIN

PERFORMANCE

:TYPE

:BR If NOT

THE

;TYPE

SUMMARY

:ENTRY IN THE PARAMETER QUEUE
;BR IF NOT

:PUT THE BLOCK ADDRESS INTO RO
;GET THE PARAMETERS FOR NEXT OPERATION
;SETUP TO COMPRESS THE TABLE
;: COMPRES> THE PARAMETER QUEUE
:CONTINUE THE LOOP

;SETUP TO REFORMAT AN ERROR SECTCR
006462
006470
006472

006500
006502
006506
006510
006516
006522
00652¢
006532
006540
006546
006550
006556
006564
006570
006574

032777
001055
032777
001051
005737
001446
016060

004737

112660

000001

172450

000200

172440

001416

REFMT:

BIT

#SWO,asSwR

;READ ONLY SWITCH SET ?

BIT
BNE

#SW7,aSWR
REFMTX
FORMAT

;SWITCH 7 SET ?
;BR IF IT IS
;WRITE HEADER & DATA ORDERS ALLOWED ?

BNE

1§17
Beaq

000272
022402
000077
000076
000404
001404

000100

000102
000404

MOV

001404
000003

000102
000074

MOV

017362
000075

177777

000104

Mov

JSR

MOVB
MOvB

CMP

BHIS
MOVB
JSR
MOvB
MoV

REFMTX

;BR

.BR

NOT

,;USE PRESENT CYLINDER
$RPCC(RO) ,SNCYL(RO)
PC,READDR
;GET CORRECTED SECTOR-TRACK ADDRESSES
(SP)+,SNTRK(RO) ;TRACK ADDR TO DPB
(SP)+ ,SNSEC(RO) ;SECTOR ADDR T0 DPB
#260.,SNWRDL
(RO)
,WORD COUNT FOR FORMAT
MAXDL ,#260.
;CAN A FULL SECTOR BE WRITTEN ?
%
;BR IF 1T CAN

MAXDL ,$NWRDL (RO)

;PUT TRANSFER SIZE

#3,SNCODE (RO)

. COMMAND CODE

RS, SNPATC(RO)
#-1 SNEXT(RO)

;PATTERN CODE

PC,GETPATY

;GET

A PATTERN

INTO THE DPB

TO CONTROL BLOIK

;SET PARAMETERS SELECTED INDICATOR

CIRJDODO, RPOL/S/6 MLTI-DR LGC
(IRJDD.P1Y
06-JUN=79 08:32
3459
3460
3461

006602
006606
006610

012701
005714
001405

001576

MACY11

30A(1052)
03-JuL=79
MAIN PROGRAM

mov

131
Bta

10:4!

#PARQ R
(R
REFMTX

6
PAGE

;SET UP TO SEE IF BLOCK
;SEE IF AT END OF TAB.E
:BR IF AT END

SEQ 0069

[N THE

PARAMETER QUEUE

CIRJDDO0, RPOG/S/6 MLT-DR LG(
CIRJDD.P1Y
06-JUN-79 08:32
3462
3463
3464
3465
3466
3467
3468
3469

006612
006614
006616
006520
006626

020021
00137«
005041
004737
000207

017616

MACY1Y

30A(1052)

O03-JuL=79

MAIN PROGRAM

REFMTX:

(mp
BNE
(LR
JSR
RIS

10:41

6
PAGE

RO, (R1)e

=(RY1)
PC,CMPRES
PC

;PROCESS THE ORDER THRMINATION

SEQ 0070

:SEE IF BLOCK AT PRESENT POSITION

;BR 1f NOT

:CLEAR THE ENTRY

;COMPRESS THE

sRETURN

TABLE

-—]

3470
3471
3472
3473
34,746
3475
3476
3477
31478
3479
3480
3481
3,82
3483
3484
3485
3486
3487
3488

3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
1504
3505
3506
3507

3508
3509

006626
006632
006636
006640
006646
006650
006656
006660
006666

006670
006674
006700
006706
006710
006714

111037
005760
100427
032760
001410
032760
601017
032760
001013
004737
004737
032777
001002
004737
000207

006716
006726
006726

032760
001402
000137

006732
006740
006742
006750
006752
006760
006762
006770
006772
007000
007002
007010
007012

032760
001025
032760
001055
032760
001056
052760
001076
032760
001111
032760
001141
000207

040000

000234

040000

000246
1%:
172232

013242

23:

PAGE

Sta 00N

MOvB
157
BM]

(RO) ,UNIT
$TATUS (RO)
ERPROC

BEQ
BI
BNE

;BR IF NOT SET
1%
#BIT14,8RPCST(RO)
;SEE If 'TRE®
ERPROC
;BR [F SET

811

000200

000016

:DRIVE NUMBER FOR ANY ERROR MESSACES
;SEE If DRIVER SIGNALED AN ERROR
;BR |F ERROR

#BIT1S5,8RPCST(RO)

SEE If

Bl
BNE

;SEE IF
#BIT14,SRPDST1(RO)
[F SET
:BR
ERPROC

JSR

PC,CKBUS
#SWO1,3SwR
2%
PC,CMPAR

JSR

BIT
BNE
JSR
RIS

ERPROC: BIT

BEQ
JMP

007352

010000

000016

004000

000016

002000

000016

001000

000016

040002

000016

000004

000016

ERPRC1: BIT

BNE
BIT
BNE
Bl
BNE
BIT
BNE

PC,CKERR

;NO ERRCR,

;RETURN

'SC' SET

SET

'ERR' SET

(MECK ERROR BITS ANYWAY

:NO ERROR, (HE(K BUS ADDR & wC
;OATA COMPARE ?
;BR If NOT
:NO ERROR, COMPARE DATA

#B1107,8TATUS(RO)

ERPRC1
DONE

;DONE BIT SET

;BR IF ORDFR DIDN'T (OMPLETE NORMALLY
;PROCESS ERROR WITH °'DONE' BIT SET

007034
007036
007037
007040
007044

004737

007074

004737
004737
0047587
004737
0067%7

007050
007054
007060
007064
007070

1046401
104401
104401

013740

000

104401

1064614

001165
020266
045556
020332
020740
021414

023512
022050

#B1709,8$TATUS(RD) ;TIMEOUT?
SWTIM
.BR If YES

BNE

PRTIM

#BIT2,$TATUS(RO)
PC

;PORT REQUEST

:BR IF

;ERROR.

IT DID

TIME

Oul

RETURN

15 PERSISTENTLY UNSAFE

PUNSAF: TYPE

TYPE
T1YPE

MOV

TYPOS

104403
002

PUNSAF
;BR IF YES
#BIT11,$TATUS(RO) ;PARITY ERROR OCCURRED
UCPAR
:BR If 1T DID
#BIT10,9TATUS(RO) ;FATAL PARITY ERROR?
FALPAR
;BR 1F THERE IS ONE

;DRIVE WENT OFFLINE
#BIT16:BITOY,$TATUS(RO)
sBR IF 1T DID
OFLIN

RTS

001165
045556
053163
001246

“#B1T12,8$TATUS(RO) ;SEE IF DRIVE WAS UNSAFE

BIT
BNE

BIT

;DRIVE

3515
3516
3517
3518
3519
3520
3821

3525

000234

10:41

;PROCESS ORDER COMPLETION WITH 'ERROR' & °'DONE NOT' B!TS

007014
007020
007024
007030

3522
352%
1524

100000

O03-0UL=79

MAIN PROGRAM

PROCES:

001246
000016

013056
013156
000002

30A(1052)

:ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR

3510
3511
3512
3513
1514

MACY1Y

JOCRLF

;CR=LF

UNIT,=(SP)

::SAVE UNIT

LEM1?2
,DRNUM

:"DRIVE UNSAFE' MESSAGE
;DRIVE NUMBER
;:TYPE

DRIVE

FOR TYPEQUT
NUMBER

;:60 TYPE-=-OCTAL ASCI]

.BYTE
.BYTE

;s VTYPE 2 DIGIT(S)
;:SUPPRESS LEADING ZEROS

JSR
DISPLY
JSR
JSR

PC,LINED
,EM1?
PC,LINEZ
PC,LINE3

sPRINT LINE
;PERSISTENT
;PRINT LINE
;PRINT LINE

JSR

PC,INCTOY

TYPE

JSR

LOCRLF

PC,LINES

PCL,LINE7

s CR=LF

1 OF ERROR MESSAGE
DEVICE UNSAFE MESSAGE
2 OF ERROR MESSAGE
3 OF ERROR MESSAGE

;PRINT LINE & OF

THE ERROR MESSAGE

; INCREMENT TQTAL ERROR C(OUNT

;PRINT LINE 7 OF ERROR MESSAGE

P Wan

CIRYDDO, RPO&L/5/6 MLT-DR LGC
CIRJDD P11
06-JUN-79 08:32

CIRJDOO, RPOL/S/6 MLT-DR LGC
CIRJDD.PTY
06-JUN-79 08:32

00C137

3526
3527

007100

3530
31531
1932
3533
3934
3535
3536
3937
3538
7539

007104
Q007110
007114

007122
007126
007132

104401
104401
013746

3541
3542
1543
3544
3545
3546
3947
3548
3549

007136
007140
007141
007142
007146
007152
007160
007162
007164

104403
002
000
104401
006737
032777
001401
000000
000207

3928
3529

3540

3550
3551
3552

3553

3556
3555
3556
3557
3558
3599
3560
3561

3562
3563

3564
3565
3566
3567

3568

3569
3570
3571

3572
3573
3574
3575
3576
3877
1578
3579
2280
81

MACYTY

30AC1052)

O03-JuL=79

10:41

6
PAGE

SEQ 0072

MAIN PROGRAM

026544

JMP

DRGP

;DROP THE

DRIVE

;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED
104401
104401
000404

001165
045460

UCPAR:

TYPE

BR
J'FATAL®

007116

104401

001165

FALPAR:

045523
053163
001246

FALPRT:

007172
007176
007202
007206
007212
007216
007222

004737

104414

004737
004737
004737
004737
004737
000207

020266

045607
020332
020740
021414
023512
022050

SWIIM:

THE

UNIT,=(5P)

::SAVE UNIT FOR TYPEOUT

.BYTE
.BYILE

2
0

::TYPE

JSR

PC,INCTOY
FSW15,asuwR
%

HALT
RTS

;SOF TWARE

007166

;FINISH PROCESSING

:"UNCORRECTABLE PARITY ERROR® MESSAGE

;CR=-LF

817
BEQ
1$:

FALPRY

JSCRLF
LEMN

TYPE

1YPE
TYPE
mov

TYPE

171760

JCR=LF

ERROR

MASSBUS PARITY ERROR OCCURRED

TYPOS

001165
023512
100000

CSCRLF

LEMI0

.DRNUM

JSR

DISPLY
JSR
JSR
JSR
JSR
JSR

RTS

;ORIVE NUMBER
;. TYPE

DRIVE

NUMBER

;:60 TYPE=--OCTAL ASCII

CSCRLF

TIMEOUT

:"FATAL PARITY ERRGR' MESSAGE

2 DIGIT(S)

:;SUPPRESS LEADING ZEROS
;CR-LF
:INCREMENT TOTAL ERROR (OQUNT
sHALT

ON ERROR

;BR 1F NOT
;ERROR HALT

OCCURRED

PC,LINED

PC.LINEZ
PC,LINED

;PRINT
;PRINT
;PRINT
;PRINT

LINE 1 OF ERROR MESSAGE
THE TIME DUT MESSAGE
LINE 2 OF ERROR MESSAGE
LINE 3 OF ERROR MESSAGE

;PRINT LINE & OF ERROR MESSAGE

PC,LINEG
PC,INCTOT

; INCREMENT

:RETURN

PC,LINE?

;PRINT

LINE

TOTAL ERROR COUNT
7 OF

FRROR MESSAGE

;DRIVE WENT OFFLINE
007224
007230
007234
007240
007264
007246
007247

007250
007254
007260
007264
007270
007274
007300
007304
007310

1044017
104401
1064401
013746
104403
002
000

104401
004737
104414
004737
004737
004737
004737
004737
000137

001165
045661
053163
001246

OFLIN:

TYPE

1YPE
TYPE
MOV

TYPOS

001165
020266
045661
020332
020740
021414
023512
022050
026544

.BYTE
BYTE

TYPE

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR
JMp

JOCRLF
LJEMIG
,DRNUM

sCP=LF

UNIT,=(SP)

:*DRIVE WENT OFFLINE® MESSAGE
;DRIVE NUMBER
;:SAVE UNIT FOR TYPEOUT

2
0

;.60 TYPE--OCTAL ASCII
2 TYPE 2 DIGIT(S)
;éSUP?RESS LEADING ZEROS

LHCRLE
PC,LINEY

MG
PC,LINE?
PCLLINES

PCLLINES
PC,INCTIOT

PC,LINET7
DROP

:;TYPE

DRIVE NUMBER

JOR=-L

:PRINT LINE 1 OF THE ERROR MESSAGE
sPRINT

OFFLINE

MESSAGE

;PRINT LINE

2 OF

THE ERROR MESSAGE

:PRINT

& OF

THE

ERROR MESSAGE

;PRINT LINE 7 OF
;DROP THE DRIVE

THE

ERROR MESSAGE

sPRINT LINE 3 OF THE ERROR MESSAGE
LINE

:INCREMENT TOTAL ERROR (OUNT

CIRJDDO, RPOL/S/6 MLT=-DR LG(
(IRJDD.PYI
06=-JUN-79 08:32
3582
3583
3584
3585
3586

3587

3588
3589
3590
3591
3592
3593
3594
39595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613

3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634«
3635
363¢
3637

MACY11

30A(C1052)

03-4UL=79

MAIN PROGRAM

10:41

6
PAGE

SEQ 0073

;PORT REQUESY TIMEOUT ERROR
007314
007320
007326

004737
104414
004737

020266
045704
020332

00733«
007340
007344
007350

004737
004737
004737
000207

021414
023512
022059

007330

004737

PRTIM:

020740

JSR
DISPLY
JSR
J3R
JSR
JSR
JSR

RTS

PC,LINEY
LEMS
PC,LINEZ
PC,LINED
PC,LINEG
PC,INCTOT

;TYPE LINE 1 OF THE ERROR MESSAGE
;PRINT PORT TIME OUT MESSAGE
;TYPE LINE 2 OF THE ERROR MESSAGE
;TYPE LINE 3 OF THE ERROR MESSAGE
;TYPE LINE & OF THE ERROR MESSAGE
; INCREMENT TOTAL ERROR (OUNT

:RETURN

PCLLINE?

sPROCESS ORDER COMPLETION WITH

007352
007360
007362
007366
007376
007376
007406
007406
007412
007420
007622
007426
007434
007436
007442
007450
007452
007456
007464

0076466
007472
007500
007502
007506
007516
007516
007522
007530
007532
007536
007544
007544
007552
007560
007562
007570
007572
007574
007602
007604
007610
007616
007620

032760
001402
000137
032760
001006
032760
001002
000137
(032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402

000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001402
000137
032760
001405
032760
001401
000207
032760
001402
000137
032760
001402
000137

000030

000016

012554
040000

000244

040000

000246

012320
000400

00025C

010776
000020

000250

011160
00C200

000250

:
DONE

BIT
BEQ

JMP

BNE

BI1

BNE
JMP

Bl
BEQ
JMP
811

BEQ
JMP

000250

011654
000010

000250

811

012006
000040

000250

012456
002000

000250

012100
004000

000250

012132
001C00

000250

002000

000246

010000

000250

010450

#B1104 .BITO3,$TATUS(RO) ;UNSAFE
.46
;BR IF NOT
UNSA¥F
;REPORT UNSAFE

1BIT14,9RPCS2(RO)

;1S

JMP

BEQ
JMP

B11

BEQ
JMP

811

BFQ
JMP

81T
BEQ

JMP

811
BEQ
BI1
BEQ
RTS

Bl
BEQ

JMP

BI1

BEQ
JMP

THE ERROR MESSAGE

°'DONE' B]i5 SET

°"WCE®

SET

1%
;BR IF SET
#B1T14,8RPDST(RO) ;CHMECK ‘ERR®
1%
;BR IF SE1T

OCCURRED

TRFER
:PROCESS 'TRE’
#BITOB,SRPERT(RO) ;°HMCR(C' SET?
.*6
;BR IF NOT
MCRCER
;PROCESS °"MCRC®
#B1T04,8RPERT(RO) ;'FMT' SET?
;BR IF NOT SET
.46

(KEMTY

:CHECK FORMAT ERROR

CKHCE

;CHECK

.*6

;BR

#BIT13,8RPERI(RO)

BIT
BEQ

0002446

#B1T07,8RPERI(RO) :"MCE' SET?
.+6
;BR IF NOT SET

011354
020000

011764
040000

'ERROR®

7 OF

BIT

BEQ
JMP

2%:

;TYPE LINE

OPIER

'HCE'

;'OPI*

:REPORT

SET?

NOT

ERROR

SET

°'OPI*

#BIT3,$RPERT(RO) ;'PAR' SET?
.*6
:BR IF NOT SET
PARER
;REPORY °‘PAR’
#BITS,SRPERI(RO) ;'w(F"' SET?

:BR IF NOT SET
.46
WCFER
:REPORT ‘W(F®
#B1T10,$RPERV(RO) ;'"IAE® SET?
:BR IF NOT SET
.+6

TAEER

:REPORY

WLEER

:REPORY

;BR

‘]AE®

#BIT11,8RPERT(RO) ;'WLE® SET?
.*6
;BR JF NOT SET
#BITO,SRPERT(RD)

;'AOE'

‘'WLE'

SET?

NOT

SET

#BIT10,8RPDST(RO) ;°'LST® SET?
2%
:BR 1F NOT SET

PC
;'AOE' & 'LST' SET, Fxl1T
#BITI2, SRPERI(RO)
,SEE IF °DTE* SET
;BR 1f NOT
.46

DIEER

;REPORT

'DTE' ERROR

#BIT14, SRP(SZ(RO)
;SEE IF ‘'Ww(K'
;BR |F NOT SET
.40
;REPORT ‘w(x'
W(KER

SET

CIRJDDO, RPOG/S5/6 MLT-DR LGC
06-JUN=79 08:32
(ZRJDD.P1N

2V}

o
o

010030
010036
010044
010046

—d

3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693

010024

—

3674
3675
3676
3677
3678
3679
3680
3681

007734
007736
007742
007744
007750
007754
007756
007762
007764
007772
007774
010000
010004
010010
010014
010020

3673

007716
007722
007730

3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672

007656
007664
007666
007672
007674
007700
007702
007706
007712

)

3653

005760

000250

000137
032760
001402
000137
000137

007656

100002

140000

30A(1052)

03-JuL-79

MAIN PROGRAM

1S1
BPL

Jmp
BIT
BEQ

000276

& JMP

012420
011126

JmPp

10:41

6
PAGE

SEQ 0074

SRPERT (RO)
;SEE IF °'DCx* SET
:BR |F NOT
.46
.PROCESS 'D(«k’
DCXKER
#BITIS.BITI4, SRPERB(RO) ;'SK]' OR *OCYL®
;BR IF NOT SET
.46
;REPORT ERROR
SKIER
;REPORT DRIVE ERROR
DRVER

SET

;PROCESS DATA ('DCK") (HECK ERROR

—

3650
3651
3652

007624
07630
007632
007636
007644
007646
007652

[esleolololololelelelololels)

3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649

MACY11

022760

010042

005760
001403
005760
001026
004737

000300

101406

104414

004737
004737
012737
004737
(00403
004737
000402
004737
004737
000402
004737
000207
126027
101002

000137
004737
1044614

004737
004737
004737
004737
012737
032769
001003
004737
000541

012737
005001
032760
001002
012701
004737
004737

112660
112660

016060
026060

103010

000300

DCKER:

000302

020266
047311
020332
023512
000003
015466

1%:

001252

2%:
1%:

020° 30

4%
5¢:

000001

010450
020266
045761
020332
020740
021414
110100

010100

6%:

DCKER1:

001250
000250

001252

000002

000262

000007
016114
022402
000011
000010
000272
000022

1¢:

16%:

000012
000020

JSR
8R
JSR
8R
JSK
JSR
BR

JSR

RTS

(mMPB

BHI
JMP
JSR

DISPLY
JSR
JSR
JSR
JSR

Mov

021740
000020

BNE
JSR
DISPLY
JSR
JSR
Mov

021774
022050

015130

BLOS
1S7
8tQ
181

021766

000024

(mp

Bl
BNE
JSR
BR
Mov

(LR
BIT
BNE
MOV

JSR
JSR
MOVB
MOvB

MOV
(mp

BHIS

#10042,8RPECTI(RO)
;VALID POSITION COUNT
1%
;BR If NOT VALID
;POSITION COUNT O ?
)
SRPECT(ROD
1%
:BR If 0's

$RPECZ (RD)

43
PC,LINEN

LEMGS

PC,LINEZ
PC,INCTOT
#3,RETRY
PC,SRETRY

PC,LINEGC

PC,LINEGSD

PCL.LINE?

PC,SPOTCK
PC

$CODE (RO) . #1
6%
WCKER
PC,LINED

LJEM21

PC,LINE?
PC,LINES

:VALUE IN PATTERN REGISTER ?
;BR

;TYPE

YES

FIRST

LINE

ERROR MESSAGE

;TYPE 'ECC LOGIC ERRCR'
;TYPE LINE 2 OF ERROR MESSAGE
;INCREMENT TOTAL ERROR COUNT
;RETRY
;RETRY

COUNT
THE ORDER
NO7 SUCCESSFUL
WAS
RY
;RET

;TYPE LINE 6C OF ERROR MESSAGE
;FINISH THE ERROR REPORT

;TYPE
;TYPE

JEXIT

LINE
LINE

6D OF ERROR MESSAGE
7 OF ERROR MESSAGE

:SEE 1F ERROR AT A BAD SPOT ON THE PA(K
;17 1S, DON'T REPORY T
: 1S ORDER A WR]TE (HE(K ?
;BR IF NOT

:REPORT ERROR UNDER WRITE C(HECK
;PRINT LINE 1 CF ERROR MESSAGE
;DATA CHECK ERROR

2 OF
5 OF

sPRINT
;PRINT
;PRINT

LINE
LINE
LINE

1%
PC,LINEG

;BR IF
;PRINT

SET
LINE 6 OF

#16. ,RETRY

;RETRY

COUNIT

16%

;BRIF

PC,RELBUF

:RELEASE

PC.,LINEG
PC,PRTIBAD

& OF

PROCESSING

ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE

;SEE IF BAD SECTOR 10 BE PRINTED
#BIT15!B1T12!81706,MASK
:LOAD ERROR MASK
#B1T12!81106,$RPER](RO)
;CHECK 'DTE' & °'ECH'
8%

ERROR MESSAGE

;FINISH THE ERROR REPORY

;R1 IS OFFSET CODE POINTER
R1
#BI1T01,8RPDT(RO)
;1S DRIVE AN RPO6 ?

" ,R1

: INCREMENT PAST RPO6 OFFSET
THE BUFFER

CODES

PC,READDR
:GET THE ADDRESS OF THE ERROR SECTOR
(SP)+,$TRK(RO)
;TRACK ADDRESS OF ERROR SECTOR
(SP)+,$SEC(RO)
,;SECTOR ADDRESS OF ERROR SECTOR
;PRESENT CYLINDER
SRPCC(RO),$CYL(RO)

;SEE 1F TRANSFER LENGTH LESS THAN 1 SELTOR
$SSEC(RO) ,SWRDL(RO)
1T IS; USE PRESENT TRANSFER LENGTH
IF
;BR
15%

(IRJDDO, RPO4L/S/6 MLT-DR LGC

CZRIOD.P1Y

06-JUN-7G 08:32

MACYTY

3694
3695
%96
3697
3698
3699
3700
3701
3702
3703
3706
3705
3706

010136
0101446
010152
010156
010160
0101646
010170
010176
010200
010202
010204
010212
010214

016060
016060
005460
005046
004737
012660
004737
005760
001775
100075
032760
001006
004737

000022
0000.0
000004

3708
3709
3710

010226
010230
010236

000137
033760
001430

006732
001250

000250

010100

000250

37°6
3715
3716
3717
3718
3719
3720
3721
3722

010256
010262
0102664
010266
010274
010276
010304
010310
010314

123737
001342
005201
116137
001435
062737
004737
005737
001775

001253
001252

001253

002220

045077

000002
015360
045114

001252

3707

3711
3712
3713

3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
373«
3735

3736
3737
3738
3739
3740
3741
37642
3743
37644
3745
37646
5;47

3748

3749

010220

01024G
010246
010250

104414

032760
001437
105237

010316
010320
010324
010330
010334
010340
010344
010346
010352
010356
010362
010366

100324
004737
004737
004737
004737
004737
000436
004737
004737
004737
004737
000407

010374
010376

000753
004737

010370

010402
0106406
010614
010420
010424
010426
070632
010436
010442

010446

004737

004737
012737
004737
105737
100406
004737
104614
004737
004737
000207

15%:
2%:
1%:

000016

023512

051476

148%:

5¢:
6%:

021760
021676
023372
016370

7%:
8%:

021774

9%:

021752
023372
000001
013260
001301

10%:

001300

11%:

12%:
13%:

PAGE

JMP
BI1
BEQ

ERPR(]
MASK,SRPERV(RO)
5%

(MPB
BNE

RETRY,RETRY+]
:DONE ?
2%
:BR IF NOT
R1
. INCREMENT TABLE INDEX
OFFCOD(RY) ,GENDPB+$FMT
;OFFSET CODE
9%
:BR IF END OF OFFSET TABLE
¥2 RETRY
;NEW RETRY LIMIT
PC,OFFST
;OFFSET
GENDPB+STATUS
;SEE IF FINISHED WITH OFFSET
(%
:BR IF NOT

INC
MovB
BeaQ
ADD
JSR
187
BEQ

$SSEC(RO) ,SWRDL(RO)
;CHANGE TRANSFER SIZE 10 1 SECTOR
$WRDL (RO) ,SWRDM(RO)
;SETUP WORD (OUNT FOR OPERATION
SWRDM(RO)
; CHANGE COUNT T0 2'S (OMP
=(SP)
;SPACE FOR NEW BUFFER ADDRESS
PC,GETBUF
;GET A BUFFER
(SP)+,$BUF (RO)
;NEW BUFFER ADDRESS TO DPB
PC,GODRIV
;RETRY
$TATUS (RD)
;TEST FOR DONt
3%
:BR IF NOT DONE
10$
;BR IF NOT ERROR
#B117,8TATUS(RO)
;SEE IF ORDER TERMINIATED NORMALLY
149
;BR IF NOT
PC,INCTOT
: INCREMENT TOTAL ERROR COUNT

Bl
BEQ
INCB

6%:

10:41

MOov
mMov
NEG
CLR
JSR
MOov
JSR
187
BEQ
BPL
BI1
BNE
JSR

DISPLY

(22316
023416
023512
022050
015130

023512
051710
022050
006462

03-0uL=-79

MAIN PROGRAM

000020
000006

015760
000006
016456
000016
000200

30AC1652)

BPL
JSR
JSR
JSR
JSK
JSR
BR
JSR
JSR
JSR
JSR
BR

,LINBM

;"DIFFERENT ERROR DURING RETRY'
;SEE WHICH ERROR
;LOOK AT CURRENT ERROR
BR 1F DIFFERENT ERROR

#BIT12'BIT6,SRPERTI(RO)
'ECH' OR °DTE' STILL SET ?
7%
;BR If NEITHER SET
RETRY+1
; INCREMENT RETRY COUNT

2%
PC,LINES
PC, INCHRD
PC,INCTOT
PC,LINE?
PC,PRTBAD
13¢
PC.LINEEB
PC,LINESB
PC.,INCSOFf
PC,ECC
11%

;BR IF NO ERROR PERFORMING OFFSET
;PRINT LINE 8 OF ERROR MESSAGE
; INCREMENT °'HARD' ERROR COUNT
: INCREMENT TOTAL ERROR COUNT
;PRINT LINE 7 OF ERROR MESSAGE
;PRINT THE BAD SECTOR
;CLEAN UP AND RETURN
;PRINT LINE 6B OF ERROR MESSAGE
;PRINT LINE 5B OF THE ERROR MESSAGE
:INCREMENT °'SOFT' ERROR COUNT
;CORRECT THE ERROR USING ECC AND (HECK [T
. COMPARE THE BUFFER

BR
JSR

6%
PC,LINEGA

; INCREMENT ERROR COUNT
PRINT LINE 6A OF ERROR MESSAGE

RTS

;RETURN

JSR

JSR
MOv
JSR
1518
BM1
JSR
DISPLY
JSR
JSR

PC,LINEGD

PC,INCSOF
#1,FRSTER
PC,CMPARD
FRSTER¢1
13%
PC,INCTOT
,LINSG
PC,LINE?
PC,REFMT

;WRITE (HECK ERROR PROCESSING

;PRINT LINt 6D OF ERROR MESSAGE

; INCREMENT 'SOFT' ERROR CGUNT
;SET PROCESSING 'DCKER' INDICATOR
. COMPARE THE BUFFER
;ERROR IN COMPARE ?
;BRANCH If ERROR
; INCREMENT TOTAL ERROR COUNT
;'DATA COMPARE OK' MESSAGE
;PRINT LINE 7 OF ERROR MESSAGE
;REFORMAT THE ERROR SECTOR

SEa 0075

CIRJDDO, RPO&/S/6 MLT=DR 1LGC
06-JUN=-79 08:32

CIRJDD. P

3750
3751
3752
3753
3754
3759

032760
001034
004737
10644614

3756
3757

020266
046065
001250
020332
020740
021414
021504
023512
060003
015466

000250

000000

004737
00473/
004737
004737
032760
001442
012737
004737
005760
001775

)

el ol

100405
105237

676
710

004737
000431

105237
123737

00174
032760
001407
032760
001347
004737
000403
004737
000405
004737
004737
000406

30A(1052)

WCKER:

021774

1%:

020130

’%:

010610
000244

046713

010610

020740
021414
021504
000100

000020
016456
000016

BIT

001253
021766
001253

100000

000250

000100

000250

6%:

022316

’%:

023512

8¢:

022050

#BITIS,SRPERT(RO)

PC,LINED

LEM23

MASK

PC,LINEZ
PC,LINES
PC,LINEG
PC,LINES

PC,INCTOT
#3,RETRY
PC,SRETRY
1%
PC,LINEGC

PC,LINEGD
10$
PC,SPOTCK
11%

JBR

SEQ 0076

;SEE JF
IF

;PRINT

'DCK' SET ALSO

LINE

ERROR MESSAGE

;PRINT WCE & DCK NOT

sCLEAR ERROR MASK

;PRINT LINE 2 OF
:PRINT LINE 3 OF
sPRINT LINE 4 OF
;PRINT LINE 5 OF

ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE

ERROR MESSAGE

; INCREMENT TOTAL ERROR COUNT
SRETRY LIMIT
;RETRY THE OPERATION
;RETRY UNSUCESSFUL
;PRINT LINE 6C OF ERROR MESSAGE

;FINISH PROCESSING THE ERROR

;PRINT LINE 6D OF ERROR MESSAGE
;FINISH PROCESSING THE ERROR
;SEE IF ERROR AT BAD SPOT ON THE
SEXIT IF AT BAD SPOT ON PACK

DISPLY
.WORD
JSR
JSR
JSR
JSR

0
PC,LINEZ
PC,LINED
PC,LINEG
PC,LINES

;MESSAGE ADDRESS
;PRINT LINE 2 OF
;PRINT LINE 3 OF
;PRINT LINE & OF
;PRINT LINE 5 OF

8%
#16.,RETRY

;RETRY LIMIT - 16 (10)

$TATUS(RO)
5%
6%
RETRY+1

;ORDER FINISHED ?
:BR IF NOT
;BR IF ERROR ON ORDER
; INCREMENT RETRY COUN1

;FINISH ERROR PROCESSING

RETRY,RETRY+1

:DONE

8tQ

MoV

JSR
157
BtaQ
BM!]
INCB
JSR
BR
INCB
(MPB
BEQ

JSR
BR
JSR
BR
JSR
JSR
BR

PA(K

PC,LINE]
;PRINT LINE 1 OF ERROR MESSAGE
NEM22,13%
;ASSUME THAT EM22 WILL BE PRINTED
#BIT14,8RPFS2(RO)
;DID 'W(K' ALSO SET ?
12%
;BR IF 1T DID

WEM3T7,13%

Bl
8ea
811
BNE

021766

10:41

6
PAGE

MOv

5¢:

001253
001252

JSR
BR
JSR
BR
JSR
BR
JSR
BR
+SR
BNE

000250
001252

BNE
JSR
DISPLY
CLR
JSR
JSR
JSR
JSR
JSR

MOV

138

020332

Bil

MOV

021766

020266
046012
040000

03-JuUL-79

MAIN PROGRAM

001252

104414

3795
3796
3797
31798
3799
3800
381
3802
3803%
3804
3805

10556

—

3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
37;1
3772
3773%
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
31788
3789
3790
3791
3792
3793
3794

005037
004737
004737
004737
004737
00737
012737
004737
000403
004737
000502
004737
000506
004737
000507
004737
012737
032760
001003
012737

100000

MACY1T

;MESSAGE FOR

°'DCK®

AND

JWRITE CHECK
;TYPE THE ERROR MESSAGE

GOES HERE
ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE

#B1706,$RPERT(RO)
SECH SET ALSO ?
;FINISH PROCESSING THE
PC,GODRIV

PC,LINEGC
RETRY+1
1%

;RETRY

THE ORDER

;PRINT

LINE

; INCREMENT
;BR

RETRY

°'WCK' NOT DURING

ERROR

ERROR MESSAGE

COUNT

LIMIT

;21115.$RPER1(R0)
;'DCK* SET
;BR JF NOT - DIFFERENT ERROR
#B1106,8RPER1(RD)
s"ECH® ALSO SET ?
3]
;BR IF IT 1S, RETRY ORDER
PC,LINEGC
:PRINT LINE 6C OF ERROR MESSAGE
8¢
;FINISH PROCESSING ERROR
PC,LINES
9%
PC,INCTOT
PC,LINET
1%

;PRINT LINE 8 - 'DIFFERENT ERROR '

;FINISH PROCESSING ERROR
:INCREMENT TOTAL ERROR (OUNTY
:EXN%SH THE ERROR MESSAGE

EX]

CIRJDDO, RPO&L/S5/6 MLT=-DR LGC
CIRJDD.P
06-JUN=79 08:32

3806
3807
3808
gg?g

010760
010764
010770
010774

004737
004737
004737
000207

MACY11

023512
022050
006462

9% :
10%:

gg}}

3813

3814
3815
3816
3817
3818
3819

010776

011002
011004
011010
011014
011020
011024

004737

000450
004737
104414
004737
004737
004737

1820
3821
3822

011030
011036
011040

38264
3825
31826
3827
3828
3829
3830
3831
3832

011050
011054
011062
011070
011074
011076
011102
011106
011110

004737
012737
012737
004737
000405
004737
004737
000406
004737

gggs

011124

000207

3823

3833
3834
6

011044

011114
011120

032760
001402
004737

004737

004737
004737

020130
020266
045740
020332
020740
021414
040000

38641
38642

3843

3844

;gas

023372

'MCRC'

BR
JSR
DISPLY
JSR
JSR
JSR

1%:

JSR

PAGE

PC,INCTOT
PC.LINE?
PC,REFMT
PC

SEQ 0077

:INCREMENT TOTAL ERROR COUNT
;FINISH THE ERROR MESSAGE
;REFORMAT THE SECTOR IN ERROR
:RETURN

ERROR

PC.,SPOTCK

3$
PC,LINE!
LEM20
PC,LINE2
PC,LINE3
PC.LINEG

:SEE 1F ERROR AT PACK BAD SPO1
CEXIT IR IT IS
;PRINT LINE 1 OF
:REPORT 'HCRC(®
;PRINT LINE 2 OF
:PRINT LINE 3 OF
;PRINT LINE & OF

ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE

#BIT14,8RPCS2(RO)
;'WCE' ERROR ALSO ?
1%
:BR IF NOT
PC,LINES
:DISPLAY WORDS WHICH CAUSED "wW(E'

PC,INCSOFf

:INCREMENT *'SOFT® ERROR COUNT

2%:

PC,INCTOT
#B118,MASK
#3,RETRY
PC,SRETRY
2%
PC,LINE6C
PC,LINE?
33
PC.LINEGD

:INCREMENT TOTAL ERROR (OUNT
:SET ERROR.HASK\ .
;RETRY LIMIT
J
:RETRY ORDER
:RETRY NOT SUCESSFUL
;PRINT LINE 6C OF ERROR MFSSAGE
:PRINT LINE 7 OF ERROR MESSAGE
JEXTT
:PRINT LINE 6D OF ERROR MESSAGE

3%:

RTS

;RETURN

021766
022050
021774
022050
006462

BI11
g8ta
JSR

10:41

JSR
mov
MOV
JSR
BR
JSR
JSR
BR
JSR

001250
001252

JSR
JSR

PC.LINE7
PC,REFMT

:PRINT LINE 7 OF ERROR MESSAut
;REFORMAT THE ERROR SECTOk

:REPORT DRIVE ERROR
011126
011132

011136
011142

011146

011152

011156

004737
1064164

004737
004737

004737

000207

020266
046355

DRVER:

020332
020740
023512

022050

gga;
&

3849
3850
3851
3852
3853
3854
3855
3856
3857

011160
011166
011170
011174
011200
011204
011212
011214
011220

032760
001402
000137
004737
004737
032737
001002
000137
004737

000400

3859
3860
3861

011226
011232
011236

004737
104414
004737

020266
046144
020332

011224

000452

010776
022402
015606
000400

012160
020130

JSR
DISPLY
JSR

PC,LINET
LEM30

:PRINT LINE 1 OF ERROR MESSAGE
;REPORT DRIVE ERROR

JSR

PC,INCTOT

:INCREMENT TCTAL ERROR COUNT

JSR

PC,LINE2
PC,LINE3

JSR

PC,LINE?

RTS

3658

:REPORT

000244

gggg

3839
3840

11%:

JSR
J3R
JSR
RTS

HMCRCER: JSR

021504

023512
000400
000003
015466

30A(1052)
O03-4uL=79
MAIN PROGRAM

000250

:PRINT LINE 2 OF ERROR MESSAGE
;PRINT LINE 3 OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE
“RETURN

:PROCESS FORMAT

('FER') ERROR

CKFMT:

BIT
BEQ
JMP
JSR
JSR
811
BNE
JMP
JSR

#B1T18,$RPERT(RO) ;"HCRC' SET ON ORIGINAL ERROR ?
1%
:BR IF NOT SET
HCRCER
:REPORT HCRC ERROR
PC,READDR
:GET CORRECTED TRACK & SECTOR ADDRSSES
PC,READHD
;READ HEADER
#B1T8,GENREG+RPERT ;"HCRC' SET WHEN HEADER READ?
2%
:BR IF 'HCRC' SET7
FMTER
:NO, ERROR IS 'FMT' ONLY
PC,SPOT(K
:SEE IF ERROR AT BAD SPOT ON THE PACK

JSR
DISPLY
JSR

PC,LINEY
,EM?4
PC,LINE2

1%:
045132
2%:

B8R

CEXIT IF JT OIS

:PRINT LINE 1 OF ERROR MESSAGE
:HEADER RUAD ERROR - FMT BIT DROPPED uP
;PRINT _INE 2 OF ERROR MESSAGE

CIRJDDO, RPOL/S/6 MLT-DR LGC

CZRJOD.PVY
3862
3863
3864
1865

06~JUN=79 08:32

3866

011262

004737
004737
032760
001402
0064737

3868
3869
3870
3871
3872
3873
38764
3875

011272
011276
011302
011310
011316
011322
0113264
011330

004737
0064737
012737
012737
004737
000405
004737
004737

3877

011336

004737

011352

000207

3867

3876

3878
3879

ggg?

011242
011246
011252
011260

011266

011334

011342
011346

004737

000406

004737
004737

020740
021414
040000

023372
023512
000020
000003
015466

MACY11

‘

022050
006462

01135¢
011362
011364
011370
011374

3800
3891
3892
3893
3894

011406
011610
011416
011424
011426

3900
3901
3902

3903
3906
3905

3906
3907

3908
3909
3910
3911
3912
3913
3914
3915
3916
3917

PC,INCSOf
PC,INCTOT
#BITG, MASK
#3,RETRY
PC,SRETRY
63
PC,LINEGC
PCLLINE7

PC,LINESA

:DISPLAY MEADER

SEXIT

JSR

PC,LINEGD

RTS

PC,LINE?
PC,REFMT

011400

011632
011440
011444
011450
011452

011656
011462
011466

011472
011476
011504

011506
011512

011516
011522
011526
011534
011542
011546
011550

011556
011560
011562

032760
001402
000137
004737
004737

032737

001016
0642737
026037
001402
000137

052737
000137
004737
000452
004737

1066414
004737
004737

004737
032760
001402

004737
004737

004737
004737
012737
012737
004737
000405
004737

004737
000406
004737

000400
010776
022402
015404

000250

1%:

000400

045132

010000
000272

054746
054746

011600
010000
012236
020130

020266
046212
020332
020740
021414
040000

054746

;PRINT LINE 6D OF ERROK MESSAGE

:PRINT LINE 7 OF ERROR MFSSAGE
:REFORMAT THE ERROR SECTOR

;RETURN

2%:

#BIT8,$RPERT(RO) :HCRC SET ON ORIGINAL ERROR ?
1%
:BR IF NOT SET
HCRCER
:REPORT HEADER (R( ERROR
PC,READDR
:GET CURRENT SECTOR & TRACK ADDRS
PC,READHD
;READ HEADER OF CURRENT SECTOR

BNE
BIC
CMP
BEQ
JMP

38
:BR IF SET
#BIT12,CYLDER
;CLEAR FORMAT BIT FROM HEADER
$RPCC(RO),CYLDER ;CORRECT CYLINDER ?
2%
:BR IF 1T IS
POSER
;REPORT POSITIONING ERRIR

BIS
JMP
JSR
8R
JSR

DISPLY
JSR
JSR

000244

XY
001250
001252

021766

022050
021776

BIT
BEQ
JMP
JSR
JSR

B1T

3%:

021504
021604

023372
023512
000200
000003
015466

CKHCE:

5% :

JSR
BIT
BEQ

JSR
JSR

JSR
JSR
MOV
MOV
JSR
BR
JSR

JSR
BR
JSR

#BIT8,GENREG+RPERT ;'HCR(C' SET ?

#BIT12,CYLDER
:RESTORE THE FORMAT BI!T
HCEER
:REPORT 'HCE' ERROR
PC,SPOTCK
:SEE 1F ERROR AT BAD SPOT
6%
SEXIT IF 1T 1S
PC,LINET
;PRINT LINE 1 OF ERROR MESSAGE
LEM25
;HEADER READ ERROR - "H(CE' SET
PC,LINE2
:PRINT LINE 2 OF ERROR MESSAGE
PC,LINE3
:PRINT LINE 3 OF ERROR MESSAGE
PC,LINEG
;PRINT LINE & OF ERROR MESSAGE
#BIT14,$RPCS2(RO) ;'WCE' ERROR ALSO ?
;BR IF NOT
4%

PC,LINES
PC,LINESA

PC, INCSOF
PC,INCTOT
#B1T7,MASK
#3,RETRY
PC,SRETRY
5%
PC,L INEGC
PC,LINE7
6%
PC,LINCED

SEQ 0078

: INCREMENT SOFT ERROR COUNT
: INCREMENT TOTAL ERROR COUNT
:SET ERROR MASK
;RETRY LIMIT
:RETRY THE ORDER
;RETRY NOT SUCESSFUL
;PRINT LINE 6C OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE

.PROCESS HEADER COMPARE ('HCE') ERROR

3884
3885
3886
3887
3888

3895
3896
3897
3898
3899

JSR
JSR
MOV
MoV
JSR
BR
JSR
JSR

JSR
JSR

5% :

PAGE 89

PC,LINES
;PRINT LINE 3 OF ERROR MESSAGE
PC,LINFL
:PRINT LINE & OF ERROR MESSAGE
#BIT164,3RPCS2(RO)
:'WCE' ERROR ALSO ?
?
:BR IF NOT
PC,LINES
:DISPLAY WORDS WHICH CAUSED 'W(E'

B8R

43:

10:47

JSR
JSR
811
8EQ
JSR

JSR

021766
022050

388

3889

11 ¥

00125C
001252

021774

03-JuL=79

MAIN PROGRAM

000244

021504

021604

30AC1052)

:DISPLAY WORDS WHICH CAUSED ‘wW(E'
L,PRINT LINE 5 OF ERROR MESSAGE
:INCREMENT SOFT ERROR COUNT
:INCREMENT TOTAL ERROR COUNT
;SET ERROR MASK
SRETRY LIMIT
;RETRY THE ORDER
:RETRY NOT SUCESSFUL
:PRINT LINE 6C OF ERROR MESSAGE
;PRINT LINE 7 OF ERROR MESSAGE
SEXTT
;PRINT LINE 6D OF ERROR MESSAGE

(IRJDDO, RPOL/S/6 MLT-DR LG(
06-JUN-79 08:32
(IRrRJDD

7963
3964
3965
31966
3967
3968
3969
3970
3971
3972
3973

OCOOOOOOOO00O

004737
004737
000207

000207

022050
006462

015326
020266
047540
020332
020766
010000
021604
023466
023512
022176

30A(1052)

004737
000207
004737
104414

004737
0046737
004737
004737
012737

012737
004737
000405
004737
004737
000207
004737
004737
004737
000207

RTS

:REPORT

POSSIBLE

POSER:

JSR
JSR
DISPLY
JSR
JSR

106414

000137

004737
104414

004737
004737
004737
04737

THE ERROR MESSAGE

JSR

PCLLINET7A

;PRINT LINE

7A OF

ERROR MESSAGE

'OP1'

JSR
DISPLY
JSR
JSR
JSR
JSR
MOV
OPIER1: MOV
JSR
BR
JSR

PC,INCMIS
PC,INCTOT

ERROR MESSAGE
;PROGRAM DETECTED POSITIONING ERROR
;PRINT LINE 2 OF ERROR MESSAGE

;PRINT LINE 3C OF ERROR MESSAGE
;RESTORE THE FORMAT BI7

: INCREMENT MISPOSITIONING COUNT
; INCREMENT TOTAL ERROR COUNT

ERROR
PC,SPOTCK

;SEE IF ERROR AT BAD SPOT

PC,LINEN
,EM3]
PC,LINEZ
PC,LINES
PC,LINES
PC,INCTOT
#B1T113, MASK
#3,RETRY
PC,SRETRY
1%
PC,LINEGC

;PRINT LINE 1 OfF ERROR MESSAGE

;RETURN

;'OP1' ERROR
;PRINT LINE 2 OF

ERROR MESSAGE

;PRINT LINE 3 OF ERROR MESSAGE

;PRINT LINE & Of ERROR MESSAGE
; INCREMENT TOTAL ERROR (OUNT
MASK

LIMIT
THE

ORDER

UNSUCESSFUL

LINE 6C OF

ERROR MESSAGE

PC,LINE?

LINE 7 OF

JSR

PC.LINEGD

JSR

PC,REFMIT

LINE 6D OF ERROR MESSAGE
LINE 7 OF ERROR MESSAGE

RTS

JSR

RTS

046452
010010

020266
066505
020332
021044
021414
023512

JSR

020266

POSITIONING ERROR

S5A OF

RTS

DTEER:

;RETURN

;PRINT LINE

020266
046407
020332
020740
021414
023512
020000
000003
015466

020130

;PRINT LINE 7 OF ERROR MESSAGE

;REFORMAT THE ERROR SECTOR

BIS
JSR
JSR
JSR

1%:

Sta 0079

;RECALIBRATE
;PRINT LINE 1| OF

OPlER:

021774
022050
006462

PC,RECALT
PC,LINET
,EMS5Y
PC,LINEZ
PC,LINE3C
#BIT12,CYLDER
PC,LINESA

020130

021766
022050

10:41

PC,LINE7
PC,REFMT

JSR
J3R

6%:

;REPORT

004737
000207
004737

03-JuL=79

MAIN PROGRAM

;REPORT
OCOOOOO0OOOOOOOOOOOOOO

3918
3919
3920
3921
392°2
3923
3924
1925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
1960
3961
3962

MACY1Y

'DTt'

PC,LINE?
PC

PC,SPOT(K

JSR
DISPLY
JMP

PC,LINE]
,EM3?
DCKERI

;REPORT

'PAR'

PARER:

JSR
DISPLY
JSR
JSR
JSR
JSR

THE

ERROR

SECTOR

ERROR

JSR

RTS

;REFORMAT

;RETURN

;SEE IF ERROR A7 BAD SPOT
;RETURN IF 1T IS
:PRINT LINE 1 OF ERROR MESSAGE
;'DTE' ERROR
;FINISH PROCESSING THE

'DTE'

ERROR

PC,LINET
,EM33
PC,LINEZ

;PRINT LINE 1 OF ERROR MESSAGL
;PEPORT 'PAR'
;PRINT LINE 2 OF

ERROR MESSAGE

PC,LINEG
PC,INCTOT

;PRINT

ERROR MESSAGE

PC,LINE3E

;PRINT LINE 3E OF ERROR MESSAGE
LINE

; INCREMENT

& OF

TOTAL ERROR COUN!

(IRJDDO, RPO4L/S5/6 MLT=-DR LGC
06-JUN-79 08:32

CIRJDD. P11

e
el
——d
el
md

S2NOLHOMOS0O

- = OO ~NNOO
i~

242

NNNO VNN
S
ornoOoONONO

rornorufNuNDNO
N

b
e
e
el
il
el

WRIN)
— = OO
OroOorosro

—t
e
o
ad el
et
—

(G AV W 3 SRV RV
oo
N

POPNIPININD
— s — —

[\¥] ¥Y, VY, U7, V1. V1,1 N1 ,V]1 V1,V ] V)

rororuRrU
RN POV
NY

[LSY VY, VY,V1,1,
N1, V)

OCOOOO0OO

V]S YN ]

o
i

]
VL

) e

COOOO00O

—

——ld

—l

—

OOO0OOOOOOOOOOO

s
el
il

4016
017
4018
4019
4020
4021
4022
402%
4024
4025
4026
0027
4028
4009

il ol

4013
6014
4015

(01
4012

3994
3995
3996
31997
3998
31999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010

3985
3986
3987
3988
3989
3990
31991
3992
3993

——

3980
1981
3982
3983
3984

012036
012044
012052
012056
012060
0120646
012070
012072
012076

ODOOOOOOOOO0O

3974
3975
3976
3977
31978
3979

302

012737
012737
004737
000405
004737
004737
000207
004737
000772

004737
104414

004737
004737
004737
004737
000207

004737
104414

004737
004737
004737
000207

004737
104414

00473’
004737
004737
032750
001402
004737
004737
004737
004737
000207

004737
106614

004737
004737
004737
032760
001402
004737
004737
00473%7

000010
000003
015466

MACY11

30A(1052)

03-4uL=-79

MAIN PROGRAM

001 250
001252

MOV
Mov

021766
022050

1%:

JSR
BR
JSR
JSR

021774

2%:

JSR

020266
046624
020332
021132
023512
022050

020266
046273

021504
021604
023512

sREPORT

"1AE'

TAEER:

JSR
DISPLY
JSR
JSR
JSR
JSR

#B1T03,MASK
#3,RETRY
PC,SRETRY

PC,LINEGC

PC,LINEY

LEM3S

PC,LINEZ
PC,LINE3F
PC,INCTOT
PC,LINE7
PC

:REPORT

FORMAT

ERROR

FMYER:

JSR
DISPLY
JSR
JSR
JSR
Bl
BEQ
JSR
JSR
JSR
JSR

HCEER:

JSR
DISPLY
JSR
JSR
JSR

000244
1%:

BI1
BEQ
JSR
JSR
JSR

ORDER

;RETRY UNSUCESSFUL

SRETRY SUCESSFUL
JEX

ERROR

HEADER

;RETRY

;PRINT LINE 6D OF ERROR MESSAGE
;FINISH ERROR Mt SSAGE

JSR
DISPLY
JSR
JSR
JSR
RTS

;REPORY

;ERROR MASK
;RETRY LIMIT

PC
PC,LINEGD

WLEER:

RTS

SEQ 0080

:PR%?T LINE 7 OF ERROR MESSAGE

'WLE'

1%:

PAGE &2

PC,LINE?

;REPORT

000244

021504
021604
023512
022050

020266
046320
020132
020740
021414
040000

RTS

020266
046662
020332
023512
022050

020332
020740
021414
040000

RTS

10:41

;PRINT LINE 1 OF
;REPORT 'IAE'
;PRINT LINE 2 OF

ERROR MESSAGE

;PRINT LINE

7 OF

ERRCR MESSAGE

;PRINT

ERROR MESSAGE

;PRINT LINE 3F OF ERROR MESSAGE
;INCREMENT TOTAL ERROR COUNT

;RETURN

ERROR
PC,LINED

LEM36

PC,LINEZ

PC,INCTOT

PC,LINE?

LINE

;REPORT 'WLE'
;PRINT LINE 2 OF

ERROR MESSAGE

; INCREMENT TOTAL ERROR COUNT
;PRINT LINE 7 OF ERROR MESSAGE
;RETURN

PC,LINED

;PRINT

PC,LINEZ
PC,LINES

;PRINT LINE 2 OF ERROR MESSAGE

PC,LINES
PC,LINESA

;DISPLAY WORDS WHICH CAUSED 'wCE’
;PRINT

LINE

SA OF

PC,LINE?

;PRINT

LINE

7 OF

LEM26

;FORMAT

LINE

ERROR

;PRINT LINL

3 OF

ERROR MESSAGE

;PRINT LINE & OF ERROR MESSAGE
#BIT14,8RP(S2(RO)
;'WCE' ERROR ALSO ?
1%
;BR IF NOT

PC,LINES

PC,INCTOT

ERROR MESSAGE

; INCREMENT TOTAL ERROR COUNT

ERROR MESSAGE

COMPARE

ERROR

PC,LINED

JEM27

PC,LINE?
PC,LINES

;PRINT LINE 1 OF ERROR MESSAGE
;HEADER COMPARE ERROR
;PRINT LINE 2 OF ERROR MESSAGE

;PRINT LINE

3 OF

ERROR MESSAGE

;PRINT LINE & OF ERROR MESSAGL
#BIT14,8RPCS2(R0O)
:'WCE' ERROR ALSO ?
%
:BR 1F NOT

PC,LINEG

PCLLINED
PCLLINESA
PC,INCTOT

;DISPLAY WORDS WHICH CAUSED ‘wCE’®
;PRINT LINE

5A OF

ERROR MESSAGE

; INCREMENT TOTAL ERROR COUNT

<080
<081
4082
408%

4084

40RS

— e O
oo

N AN N

e
—

[aS 1AV
1, V)

OOoOOo

RTS

104414

004737
004737
004737
004737
032760
001415
012737
005037
004737
000403
004737
000402
004737
004737
000207

020266
046775
020332
020740
021416
023512
121400

000003
001250
015466

TRFER:

000244

001252

MOV

021766
021774
022050

JSR

DISPLY
JSR
JSR
JSR
JSR

817
BEQ

1%:

2%:

10:41

PAGE 83

Sea 008!

;PRINT LINE 7 OF ERROR MESSAGE

PC,LINE7

;REFORMAT

PC,REFMT
PC

;RETURN

THE

ERROR SECTOR

CLR
JSR
BR
JSR
BR
JSR
JSR
RTS

;PRINT LINE 1 OF ERROR MESSAGE
;RH11 OR UNIBUS TRANSFER ERROR
;PRINT LINE 2 OF ERROR MESSAGE

PC,LINEY

,EM&O

PC,LINE2
PC,LINE3

;PRINT LINE 3 OF ERROR MESSAGE
;PRINT

PC,LINES
PC,INCTOT

LINE

ERROR MESSAGE

; INCREMENT TOTAL ERROR COUNT
"MXE,
#BITIS!BIT13!B119!BIT8,$RP(S2(RO)
J'DLT',C,UPE"
SET
2%
;BR [F NONE
;RETRY LIM]T

#3,RETRY

:CLEAR ERROR MASK

MASK

PC,SRETRY
1%
PC,LINEGC

;RETRY

THE

OPERATION

;RETURN HERE IF RETRY UNSUCESSFUL
;PRINT LINE 6C OF ERROR MESSAGE
;FINISH THE
;PRINT LINE
;PRINT LINE

PC,LINEGD

PC,LINE7

ERROR REPORT
6D OF ERROR MESSAGE
7 OF ERROR MESSAGE

;PROCESS 'SKI' OR °'OCYL"' ERRURS
004737
104414

004737

004737
004737
004737
004737
000207

SKIER:

020266
047451
020332

020754
023512
023442
022176

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR

RTS

PC,LINEZ

;PRINT
;'SK1'
;PRINT

PC,INCTOT
PC,INCSKI

; INCREMENT 7TOTAL ERROR COUNT
; INCREMENT *SKI' OR 'OCYL' ERROR COUNT

PC,LINEY

LEM50

PC.LINE3B

PCLLINETA

LINE 1 OF
OR '0OCYL'
LINE 2 OF

;PRINT LINE

3B OF

;PRINT

7A OF

LINE

ERROR MESSAGE
ERROR
ERROR MESSAGE

ERROR MESSAGE
ERROR MESSAGE

;REPORT WRITE CLOCK FAILURE

004737
104414

004737
004737
004737
004737
004737
012737
012737
004737
000405
004737
004737
000207
004737
000772

WCFER:

020266
046562

020332
020746
021414
023512
015130
000003
000040
015466

(],
V)

Pl ol Ll LV (VLY AV AV IV LV AV LV IV v
o )
[ AV RV I
WO
N
- OO0~ ~
oSO no
ocCOoOsro H12 O8N0

i
s
i
D
e
i
D
i
e
e
e
e
e
e

004737

—

4071
4072
4073
4074
4075
6076
4077
4078
4079

JSR
J3R

no RO

4061
4062
4063
4064
4065
6066
4067
4068
4069
4070

004737
000207

MAIN PROGRAM

022050
006462

OO
OO

4059
4060

RNV
NN NN NN N

6051

4052
4053
4054
4055
64056
4057
4058

4040
6041
6042
6043
4044
4045
4046
6047
4048
4049
4050

039

004737

03-JuUL=-79

;PROCESS CONTROL/INTERFACE TRANSFER ERROR
COOOOOOOOOOO0O0OOO0O0O

4030
4031
4032
4033
4034
4035
4036
64037
4038

30A(1052)

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR
MoV
MOV

021766
022050

1%:

021774

’%:

JSR
BR
JSR

JSR
RYS

JSR
BR

PC,LINED

LEM34

PC,LINEZ2
PC,LINE3A

PC,LINEA
PC,INCTOT
PC,PRIBAD
#3,RETRY

#B1T10S,MASK
PC,SRETRY

('WCF')
;PRINT LINE 1 OF ERROR MESSAGE
;REPORT WRITE CLOCK FAJLURE
;PRINT LINE 2 OF ERROR MESSAGE
;PRINT LINE 3A OF ERROR MESSAGE

;PRINT LINE & OF ERROR MESSAGE
; INCREMENT TOTAL ERROR COUNT
;SEE 1F BAD SECTOR TO Bt PRINTED
;RETRY

COUNT

;ERROR MASK

PC,LINEGC

RETRY THE ORDER
;RETURN HERE IF RETRY UNSUCESSFUL
;PRINT LINE 6C OF ERROR MESSAGE

PC
PC,LINEGD

;PRINT LINE 6D OF ERROR MESSAGE

PC,LINE7
1%

;PROCESS DRIVE UNSAFE ERROR

;PRINT LINE

7 OF

ERROR MESSAGE

"MDPE'

SET

~ e

MACY11

(2RJDDO, RPOL/S/6 MLT-DR LG(
CIRJDD. P 1
06-JUN=79 08:32

004737

4086
4087
4088
4089
4090
4091
4092
4093
409¢
4095

104414

00473%7
004737
004737
01273%7
004737
000403
004737
000402
004737
00473%7
000207

4096

4097
4098
4099
4100
6101

6140
4761

RU D RO RN PR RO R AU N PRD N AL PO N

12656

704
06

R W WD RO

4133
6134
6135
4136
4137
4138
4139

021766
1%:

022050

2%.

NOMT(CH:

3040

020332
020746
C214614

0647160
001165
051640

2%:

022330
052323

TSTB

BNE
JSR
DISPLY
JSR
JSR
JSR
BR
DISPLY
DISPLY

DISPLY

022330
001165
022330
052323

022339
007165
000770
001300
001301
001310

MOVB
MOV

ERROR MESSAGE

;PRINT LINE

2 OF

ERRCR MESSAGE

:INCREMENT

TOTAL ERROR (OUNT

;PRINT LINE 3 OF

PC,INCTOY

#3 _ RETRY
PC,SRETRY
1%
PC,LINEGC

ERROR MESSAGE

;RETRY COUNT
:RETRY THE ORDER
JRETRY WAS UNSHLCESSFUL
;PRINT LINE ~C OF ERROR MESSAGE

;CONTINUE WITH ERROR REPORT

PC,LINE?7

;PRINT LINE

;PRINT

LINE

6D OF

7 OF

;RETURN

ERROR MESSAGE

DATA PATTERN

FRSTER

:FIRST

ERROR

IN THE

SECTOR

1%
PC,LINE]

:BR IF NOT OR [F PROCESSING °*DCKER'

PC,LINEZ
PC,LINE3A
PC,LINEG

:PRINT
;PRINT
:PRINT

LHCRLF
LLINGIL

; CR=-LF
:HEADER FOR DATA PRINTOUT

LEML3

(R1)+,-(SP)
PC,LINOCT

JSR
DISPLY
Mov
JSR
DISPLY
Mov
JSR
DISPLY
ADD
CLR
MOVB

LINE

PCLLINES

MOV

Mov

:PRINT

:REPORT DRIVE UNSAFE

R1,-(SP)
PC,LINOCT

JSR
DISPLY
MOV
JSR
DISPLY

SEQ 0082

LEMG60

PC.LINE?

Mov
JSR

MOV

PAGE 84

PC,LINE

'UNKNOWN'

JSR
DISPLY

022330
052323

MOv

022330
001165

0014614

JSR

RTS

10:41

PC,LINEGD

JSR
DISPLY

022330
052323

177727

JSR
BR
JSR
BR
JSR

DISPLY

022330
001165

000001

JSR
DiSPLY
JSR
JSR
JSR

MoV

020206
047160

OOOOOOOOD
NN NNSNSNNSNNNNNNNNNN
N —
WU
— = OO0 NN (& [+ SV IV IV 35LRV NN
OSSOSO
SO o oSSO0 OSSO

6113

6114
4115
4116
G117
4118
4119
4120
6121
4122
412%
4124
4125
6126
6127
& 28
4129
4130
4131
6132

001252

001300

WWN N W W W

L1110
6112

MAIN PROGRAM

UNSAF:

021774

03-JuL-79

30AC1052)

;REPORY

6102

410%
4104
4105
6106
6107
4108
4109
«110

020266
047603
020332
020740
023512
000003
015466

MACY11

LINSP

+SCRLF

R1,-(SP)
PC,LINOCT

:TYPE

LINE

LINE
LINE
LINE

;CONTINUE PROCESSING ERROR
:"CAN'T MATCH DATA WITH PATTERN'

;ADDRESS OF WORD 1
:TYPE WORD

:SPACES

;ADDRESS OF WORD 1
:TYPE

;CR=LF

WORD

;ADDRESS OF WORD 2

+LINSP

LSCRLF

:TYPE WORD 2
;CR=-LF

R1,-(SP)
PC,LINOCT

+LINSP

(R1)+,=-(SP)
PC,LINOCT

LHCRLF

R1,-(SP)
PC,LINOCT

LLINSP

(R1)+,=(SP)

PC,LINOCY

SCRLF

#<252.¢2.>
,R1
R2
¥, FRSTER

#-1,FRSTER*]
(MPLMT,LIMIT

ERROR MESSAGE

2 OF ERROR MESSAGE
3A OF ERROR MESSAGE
& OF ERROR MESSAGE

;TYPE WORD 2
:SPACES

(R1)+,-(SP)
PC,LINOCT

s"CAN'T MATCH DATA WITH PATTERN'

;ADDRESS OF WCRD ¢

;ADDRESS OF WORD 3

:TYPE WORD

:SPACES

;ADDRESS OF WORD 3
:1YPE WORD

;TYPE

WORD

:TYPE WORD

;CR-LF
;ADDRESS OF WORD ¢4
;s SPACES
;ADDRESS OF WORD 4

;CR-LF
;s INCREMENT BUFFER POINTER

;CLEAR 'WORDS TO COMPARE' C(OUNT IN RZ
;SET 'NOT FIRST ERROR' [NDICATOR
:SET ERROR FOUND INDICATOR
;RESET

THE

COMPARE

ERROR TYPEQUT

L IM{!

[ Ya)

(IRJDDO, RPO4/S/6 MLT-DR LGC
CIRJDD P11
06-JUN-79 08:32

:}2%

06-JUN-79 (8:32

013054

MACY11

RTS

013056

032760

060000

1N0023¢

L1648

013066

032760

177400

0002644

005760

000250

005760
001003

000274

013064

013074

6150

013076

64152
64153

013104
013110

64151

4154

6155
L£156

6157

4158

013102

013112

001011

001006

005760

001416
004737

013130

004737

013140

004737

0131264

013134

4161
4162

013144
013150

4}63

001015

013116
013120

6159
6160

013154

106414

004737

004737
004737
000207

013156

013162
013164
013170
013172
013176
013202

4131

013240

6182

«185
<186
<187

4188
<189

64190

<191
4192
6193
4194
4195
4196
4167

;RETURN

#60000,3RPCST(RO)

;SEE IF

#177400,8RPCS2(RO)

,SEE IF

151

$SRPERT(RO)

1S7
BNE

$RPERZ (RO)
1%

BEQ
JSR

2%
PC,LINE

;BR IF NONE SET
;PRINT LINE 1 OF

ERROR MESSAGE

JSR

PC,LINEZ

;PRINT LINE 2 OF

ERROR MESSAGE

JSR

PC,LINES

BNE

181

020266

1%:

047225

020332

020740

DISPLY
JSR

021414

023512
022050

2%:

0132064
013210
013214
013220
013224
013230
013234

005760

001010
016046
006316
066016
022660
001416

004737
104414
004737
004737
004737
004737
004737
000207

000236

(kBUS:

000020

000006
000240

020266
047033
020332
020776
021414
023512
022050

1%:

2%:

L\gS
6184

SEQ 0083 |

JSR
JSR

RTS

(BR

;BR

:BR

SRPER3I(RO)
,EM&4

PC,LINE3
PC,INCTOT
PC,LINE?
PC

'TRE' OR

IT EITHER SET

'M(PE'

SE?

ERROR BITS [N (S2 SET

ANY

SET

ANY SET

;ANY BITS SET

IN ERI

;ANY BITS SET IN ER? ?
;BR IF ANY SET

;ANY BITS SET IN ER3 ?

;ERROR BITS SET, BUT

'SC' OR 'TRE' NOT SET

;PRINT LINE 3 OF ERROR MESSAGE
;PRINT LINE & OF

ERROR MESSAGE
; INCREMENT TOTAL ERROR COUNT
;PRINT LINE 7 OF ERROR MESSAGE
;RETURN

;(HECK BUS ADDRESS REGISTER & WORD COUNT REGISTER

4168
4169
6170
4171
6172
4173

6174
175
4176
4177
64178
6179
4180

PAGE 8>

BIT

BNE

000276

4}65

6167

(KERR:

BNE

4164
64166

10:41

:CHECK ERROR BITS IN THE RH11 & RPO4/5/6 REGISTERS

6146

4149

O03-JuL=-79

MAIN PROGRAM

000207

2}22
6147

30AC1052)

. COMPARE

013242
013250
013252

01325«
013260

013266

013270
013272
013276
013302
013310
013316
013324

132760
001001
000207

000004

000024

005037
032777

001300
000002

165652

000207
005037
016001
(16037
066037
016037
052737

001306
000006
000020
000236
000012
0100C0

001401

001312
001312
001314
001314

(MPAR:

TST

$SRPWC (RO)

; CHECK WORD COUNT

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR

PC,LINEN
,EM&)
PC,LINE2
PC,LINE3D
PC,LINESG
PC,INCTOT
PCLLINE7

;PRINT LINE 1 OF ERROR MESSAGE
:BUS ADDRESS OR WORD COUNT INCORRE
(1
;PRINT LINE 2 OF ERROR MESSAGE
;PRINT LINE 3D OF ERROR MESSAGE
sPRINT LINE & OF ERROR MESSAGE
; INCREMENT TOTAL ERROR COUNIT
;PRINT LINE 7 OF ERROR MFSSAGE

BNE
MOV
ASL
ADD
(MP
BEQ

RTS

1%
$WRDL
(RO) ,=(SP)
(SP)
$BUF (RO, (SP)
(SP)+ ,$RPBA(RO)
2%

:BR IF NOV ZERO
;WORD LENGTH
;CHANGE INTO BYTE COUNT
;ADD THE STARTING LOCATION
;BUFFER ADDRESS PROPER ?
:BR IF 0K

THE BUFFER

BITB
BNE
RTS

1%:
(LR
(MPARD: BIT
BEQ
RTS
CLR
1%:
MOv
MOV
ADD

MOV

BIS

#B1702,8CODE(RO)
;SEE 1F READ ORDER
1%
(BRIF IT IS
PC
;RETURN

FRSTER
#5W01,aSWR

;CLEAR "FIRST ERROR' INDICATOR
;1S SWITCH 1 SET?

PC
ERCIR
$BUF (RO) ,R1
$WRDOL (RO),CMINT
SRPWC(RO) ,(MCNT
$CYL(RO),CMCYL
BITI2, CMCYL

;YES, DON'T COMPARE
;(LEAR THE ERROR COUNTER
;BUFFER ADDRESS
;WORD COUNT TO WORKING LOCATION
;CALCULATE ACTUAL WORDS TRANSFERED
;CYLINDER ADDRESS WORKING LOCATION
;SET FORMAY BT

;BR 1f NOT

[N o]

C(IRJDDO, RPO4L/S5/6 MLT=-DR LG(

CIRJOD.PVY

Fo7

6198
6199
4200

013332
013340
013346

016037
013737
005237

000010
001414
001310

4202
203

013360
013364

005037
005037

001302
001304

6201

6206
4205
4206
6207
4208
«209
6210
6211
4212
6213
6214

215

4216
217

(218
6219
4220
6221
4222
422%
6224
6225

013352

013370
013376
013400
013404
013406
013412
013420
013426
013430
013434
013436

013442

013446
013%50

012737
023760
101003
013702
000402
016002
166037
126027
001036
023721
001402
004737

023721

001402
004737

013456
013456
013460
013464
013466
013470
013474
013500

005721
001402
004737
005721
001407
004737
162702
003530

4228

013510

000405

4233
6234
4235

013530
013532
013536

4226
4227

4229
4230
&231
6232

623
4237
4238
64239
42640
6241
42642
6263
4244
62645
4246
0247

2648
4249

013502
013506

013512
013516
013522
013524

013540
013542
013546
013550
013552
013556
013560
013566
013570
013574
013576
013600

013602
013604

4250

017606

4252
425%

013614
013622

4251

013612

001316
001310

Mov
MOV
IN(

$SEC(RO),CMSEC
(MPLMT,LIMIY
LInMIY

;SECTOR & TRACK ADDRESSES TO WORKING LOCNS
;DISPLAY (IM]T
:(ONVERT PARAMETER INTO LIMIT vALUE

(LR
(LR

SAVER1
SAVERS

:CLEAR THE RV SAVE WORD
:CLEAR THE RS SAVE WORD

001276

001312

000022

(MSTR:

001312

000005

001314

cmMp

1%:
2%:
(MHED:

013512

001316

1%:

013512

2%:

013512

013512
000004

022702
101125

000004

005237
004737
000207
004737

001306
013770

5% :

014312

(MDAT:

000403
004737
000456

011405
012723
022125
001016
005737
001406
032777
001402
004737
005302
001436
005303

001361
000755

012634

001306

000010

165352

013770

005761

177776

012737
005237

177777
001306

001410

2%:

000020

(%:

5%:
001276

MOy

BHI
MOV

001312

000022
000022
000024

7
PAGE 86

30A(1052)
03-JuL-79
MAIN PROGRAM

177777

B8R
MOV

SUB

(MPB

BNE
(MmP
BEQ
JSR

10:41

MACY1T

#-1,IR0OIND

;CLEAR THE

SEQ 0084

'ZERO'S'

CMONT,$SSECC(ROY
;1S BUFFER SIZE GREATER THAN ONE
1%
:BRIF IT IS
CMONT ,R2
sLESS THAN, USE REMAINING BUFFER
23
:
$SSEC(ROY,R?
; COMPARE SECTOR
$SSEC(RO),CMCNT ;DECREMENT WORD (OUNT
$CODE (RQ) ,#5
;READ HEADER B DATA?
(MDA
(MCYL,(R1)#
1%
PC.S%

:BR ]F NOT
;CHECK CYLINDER
;BR 1F COMPARE Ok
:REPORT ERROR

BEQ
JSR

2%
PC,5%

:BR IFf EQ
:REPORT ERROR

BEQ
JSR

3
PC,5%

(MP
BHI

0 ,R2
(MPRX

(Mp
191

1ST
BEQ
JSR
SuUB
BLE

B8R

INC
JSR
RTS
JSR

B8R
JSR
BR

CMSEC, (R1)»
(R1)+

(R1)+
4%
PC,5%
#4,R2
(MPRX

CMDAY

; COMPARE THE DATA PORTION

ERCTR
PC,CMPRT
PC
PC,MATCH

2%
PC,NOMTC(H

BNE
B8R

8EC

191

MOv
INC

=2(R1)

#-1,IR0OIND
ERCTR

SE(TOR ?

:COCMPARE SECTOR & TRA(K
:1ST KEY WORD ZERO?
:BRIF IT IS
:REPORT ERROR
:CHECK 2ND KtY WORD
:BR IF ZERO
;REPORT THE ERROR
;SUBTRACT HEADER LENGTH FROM S17¢
:BR IF FINISHED

8%
(R4),RS
#20,R3
(R1)¢, (RS,
5%
ERCTR
4%
#SW3,a5WR
4%
PC,CMPRT
RZ
8%
RS
3%
2%

MOV
MOV
(MP
BNE
151
BEQ
BI1
BEQ
JSR
DEC
BEQ
DEC

INDICATOR

:SEE 1F AT LEAST & MORE WORDS TO (ME(K
:BR IF NOT

:INCREMENT THE ERROR COUNT
;:REPORT THE COMPAR]SON ERROR
;CHECK THE REST OF THE HEADER
;FIND THE PATTERN

:FOUND A PATTERN
:RETURN HERE IF NO MATCH WITH PATTERN MADE
:BYPASS COMPARE POUTINE
:ADDRESS OF PATTERN ADDRESS IN R4
:R3 IS PATTERN POS COUNTER
;:COMPARE BUFFER WITH PATTERN
:BR IF NOT EQUAL
;ERRORS DETECTED ?
;BR 1F NO ERRORS
;SWITCH 3 SET ?
;BR 1F NOT SET
:DISPLAY THE WORD
;DECREMENT SIZE COUNT
:BR WHEN AT END
:DECREMENT PATT POS (QUN!

;BR IF NOTV AT END OF PATT
:RESTART THE PATTERN

;1S MISCOMPARED CHARACTER O
:BR IF YES

:SET NON=ZERO M]SCOMPARED INDCATOR
JINCREMENT THE ERROR COUNTER

~ e

ZIRIDDO, RPO4G/S/76 MLT-DR LGC
(IRJDD.P1Y
06-JUN=-79 08:32

627%

6274
6275
4276
w277

6278
4279
4280
6281

013626
013632
013634
013640
013642
013646
013652
013656
013660
J13664

013666
013672
017676

QOO OO0OO0OO0OVOOOOOO

6254
4255
4256
6257
4258
4259
4260
4261
6262
6263
6264
4265
4266
€267
4268
6269
270
62N
4272

4282
4283
4284
4285
4286
6287
4288
4289
4290
4291
4292
4293
4294
4295
4296
6297
4298
4299
4300
4301
4302
4303

6309

105737
100407

065037
010137
010537
000746
005737
001743
004737
000740
005737

30AC1092)

013770
001300

6%:

001276

001304

7%:

013770
001312

001316

8%:
000C05

0146246

005737
001010
105737

001302

004737
004737
000422

014064

100402

010146
010546

013701
013705
004737
004737
005037
005037
012605
012601
004737
000207

000026

(MPRX:

105737
100425

014100

001013
004737
106414

(MPRT:

1%:

2%:

001302
001304
014064
014146
001302
001304
016146

001300
020266

047077

B8R
1S1
BEQ
JSR
BR
161
BLE

7
PAGE

SEQ 0085

CLRB
INC
JMP
JSR
RTS

DATA

;FIRST

ERROR?

7$
IROIND
R1,SAVER]
RS,SAVERS
'3
IROIND
3

;BR [F NOT
JSET THE ZERO INDICATOR
;SAVE CURRENT R1

FRSTER

4%
CMONT
CMPRX
$CODE(RO)
,#5
CMSTR
CMSEC

;SAVE CURRENT RS

; CONTINUE COMPARE

;ANY MISCOMPARIONS NOT

;AT

END OF

BUFFER

; INCREMENT

SECTOR

(MSEC
CMTRK

;SECTOR GREATER THAN MAX °
:BR IF NOT GREATER THAN MAX
;CLEAR SECTOR ADDRESS
; INCREMENT TRACK

(MSTR
CMTRK
Moy
(MSTR

;:BR 1F NOT GREATER
;RESET TRACK ADDRESS
; INCREMENT CYLINDER ADDRESS
;CONTINUE WITH (OMPARE

CMSEC,#22.
(MSTR

(MIRK
, 419,

PC,ENDCMP
PC

s TRACK

GREATER

;PRINT

LAST

THAN MAX

LINE

ERRORS

SAVER!
2%

FRSTER

;PRINT

;BR

;FIRST

SAVED

VALUES

NOT

MOV
MOV
MOV
MOV

R1,-(SP)
RS,=(SP)

;:PUSH R1 ON STACK
;sPUSH RS ON STACK

JSR
JSR
(LR
(LR

PC,6%
PC,8%

JPRINT
;PRINT

JSR

PC.8%

1518
BM|

SAVER1,RI
SAVERS,RS
SAVERY
SAVERS
(SP)+ RS
(SP)+ ,R1

PC
FRSTER

sPRINT
JPRINT

SEXTT

ERROR?

BNE
.
JSR
DISPLY

:BR IF AT END
;SEE 1F READ HEADER § DATA
;BR If NOT

:BR IF NOT

R1S

ZEROS

;BR IF NONE-ALL ERRORS ZERO
;REPORT ERROR
; CONTINUE COMPARING

1%
PC,48
PC,8%

MOV
MoV

1% :

ERROR

; CONTINUE COMPARE

COMPARE

19§17
BNE
1518
8M]
JSR
JSR

;REPORT

PC,CMPRT

BNE
INCB
(mPB
BLO
(LRB
INCB
(MPB
8LO

001300
014146

1518

BMi
(LR

(mPB

000023

000207

10:41

PC,CMPRY

JSR
BR

MoV
MOV

001276

000024

O03-JuL=79

MAIN PROGRAM

;TYPE

« 304
4305
4306
4307

4308

004737
000760

MACY11

IN, 1AL MESSAGE [NFO
"EMAINDER OF MESSAGE

;DISPLAY SAVED RI
;DISPLAY SAVED RS

INITIAL MESSAGE
SAVED VALUES

INFO

;CLEAR SAVED REGISTER INDICATORS
;CLEAR THE OTHER ONE
;:POP STACK
;;POP STACK

INTO RS
INTO R!

JPRINT

REMAINDER OF

sFIRST

ERROR

;PRINY

LINE

;RETURN

MESSAGE

;B8R IF NOT
;BR JF FIRST ERROR AND PROCESSING *[/x' ERRCR

JEMG?

:DATA COMPARE

PC,LINED

ERROR MESSAGE

ERROR

(2RJDD0O, RPOG/S/6 MLT=-DR LGC
06-JUN-79 08:32
(ZRJDD.PV

4310
6311
6312
£313%
6314
6315
6316
«3%17
4318
4319

6320
6321
322
4323
64324
6325
4326
6327

(328

4329
4330
6331

4332

4333
433

%335

6336
63%7
6338

4339
4340
6341
6342
4343
L3464
4345
64346
6347
6348

4349

4350
4351
6352
«35%
4354
4355
4356
4357
4358
4359
4360
6361
4362

4363

4364
4365

0146104
0146110
0146114
014120
016122
0146126
016132
0146136
0146144
016146
016152
0146154
014160
016162
014170
0146172
014174
014176
016202
014206
014212
014216
0146222
014226
014232
014236
014242

004737
004737
0047%7
000404
1064614

104614

104414

012737
000207
005737
001403
005337
001005
032777
001001
000207
010146
162716

004737
106614

016546
004737

051533
001165
051562
177777

5%:

001300

6%:
7$:

8% :

001310

001310
000200

000002
022330
052323

164750

9% :

10%:

JSR
JSR
JSR
BR
DISPLY
DISPLY

DISPLY

Mov

BtQ
DEC
BNE
Bl1
BNE

RIS
MOV

SUB
JSR
DISPLY

177776

MOV

022330
001165

PAGE

SEQ 0086

PC,LINEZ

:PRINT

LINE

2 OF

ERROR MESSAGE

PCLLINEG

;PRINT

LINE

& OF

ERRGR MESSAGE

.LIN9B
SJOCRLF
LLIN9H

;HEAD%R MESSAGE OF

PC,LINE3A

¢S

#-1,FRSTER

;PRINT

LINE

#Sw07,a5wR
10%
PC

RY,=(SP)
¥2,(SP)
PC,LINOCT

LLINSP
=2(RS),=(SP)

JSR
DISPLY

PC,LINOCT

JSR
DISPLY
RTS

PC,LINOCT

LINSP
-2(R1),=(SP)

3A OF

ERRCR MESSAGE

:GO TO TYPE HEADER

PROCESSING

°'D(k’

ERROR

s CR=L

;DISPLAY MEADER
:SET ERROR FLAG
;RETURN
:TYPEOUT

191

mov

106414

10:41

RT1S

177776

022330
052323

000207

30AC1052)
03-JuL=-79
MAIN PROGRAM

020332
020746
021414

104414

016146
004737

MACY1Y

)

RPIL/S/6 MLT=DR LGC
06-JUN=-79 08:32
CIRJDD.PIY 1

LIMIT

REACHED

;BR IF 1T MAS
;DECREMENT LIM]T CGUNTER
:BR JF NOT AT LIM]T
:PRINT

ALL

DATA (COMPARE

;BR IF YES
JRETURN
;BUFFER ADDRESS
:ADJUST
;TYPE

;TYPE

ADDRESS

:2 SPACES
;PUT

ERRORS

GOOD DATA ON
17

THE

STA(K

;2 SPACES

;BAD DATA
;TYPE

;CR=LF

;RETURN

sLAST LINE OF COMPARE ERROR REPORTING
016244
014250
014252
014256
014260
0146264
014270
016274
014300
014304
016310

105737

001417
005737
001410
104414

013746
004737
106414

004737
004737
000207

201301

ENDCMP:

001306

051660
001306
022362
001145
023512
022050

Mov

1%:

2%:
;ROUTINE
sCALL:
:

014312
014314
014320
01432°2
016326
014332

000044

000002
002762

TSTB
2130
181
BEOQ
DISPLY

MAT(H:

JSR
DISPLY
JSR
JSR

RTS

FRSTER+1

FRCIR
9

.LINOE

ERCTIR,=-(SP)
PC,LINDEC

;ANY

(OMPARE

ERRORS

;BR IF NOCT
:SEE HOW MANY ERRORS

FOUND

:BR IF ONLY CAN'T MAT(H PATTERN
: "NUMBER OF ERRORS:'
;NUMBER OF ERRORS
JTYPE

PC,INCTOT

s CR=LF
:INCREMENT TOTAL ERROR COUNT

;RETURN

LOCRLF

PC.LINE?

:PRINT LINE 7 OF ERROR MESSAGE

TO MATCH THE DATA WlTH A PATTERN
#BUFFER,RI
PC,MAT(H
JSR
RETURN]
RE TURN?

MOV

MOV
MOV

R1,=(SP)

MOV

,RS
STNDAT(R&)
3%

MOV
SUB

Bea

rLi R4

(SP),R\
¥ ,R4

;BUFFER ADDRESS
;PATTERN ADDRESS

IN R4

;COULDN'T MAT(CH PATTERN
:SAVE R1 ON THE STA(CK
;PATTERN TABLE
:RELOAD R1

INDEX

;DECREMENT INDEX
;ADDRESS OF PATTERN ADDRESS
;BR IF ALL PATTERNS (HECKED AND NO MAT »

[aa N

CIRJDDO,

6375
6376
6377
4378
6379
4380
6381
4382
4383
4384
4385
4386

4387

4388
4389
4390
4391
4392
4393
6394
4395
4396
6397
4398
4399
44600
4601
644602
4403
4604
4405
4606
4607
4608

44609
4410
6611
64612
4413
L4614

4415
4616
4617
4418
4619
4620
4621

014364
014366

012705
022125
001366
005303
001374
062704
000403
062766
012601
000207

000004

2%:

002762
000002

000002

8RS

BNE
DEC
BNE

IR )

(mp

b1 ¥

ADD

MOV
R1S

014414

014420
014422
014624
014426
014432
014440
014442
014450
014452
014460
014464

014472
014476
014504
014512
014520
014524
014530
014534
014540
014544
014546
014552
0146556
014562
014570
014576
014600
014604
014612
014616
014622
014624
014630

014634
014640

016037
016046
066016
005046
016046
004737
005716
001413
006316
161637
126027

001007
062737
000403
162737
062706
016037
005337
013737
042737
042737
006237
006237
006237
104414

013746
006216
004737
004737
1064414

063737
026037
101002

000137
016037
005037
005737
001407

005337
006337
006137
00766

000240
000236
00002C

001322

ECC:

CLR

000022
027152

MOV

JSR
151
BEQ
ASL

001322
000024

000005

000010

001322

001000

001322

000004
G00300
001320
001320
177760

000017
001330
001330
001330

SuUB
(MPB
BNE
ADD

001320

001320
001324
001326

ADD
MOV

MOV

BiC
glc

ASR
ASR

ASR

DISPLY

MOV

ASR
JSR
SR
DISPLY
ADD
(MP
BH]
JMP

030066
027466
051773
001322
000240

001320

BR
SUB
DEC

001330
001320
001330

051737
001330

015116
000302
001326

MOV

MOV
ADD

001324

MOV

3%:

(LR

1ST
8€Q
DEC
ASL
ROt

R3
2%
lgTNDAT,RL

4
#2,2(5P)
(SP)+ R
PC

7
PAGE &9

(R1)+,(RS)

USE ECC TO CORRECT
014370
014376
014402
014406
014410

10:41

Mov

ADD

N o

4369
6370
6371
64372
637%
6374

016334
014340
016342
014344
014346
014350
0143546
014356

O03-4UL=79

MAIN PROGRAR

ry—

6366
6367
4368

30A(1092)

sEQ 0087

; FOUND

;NUMBER OF

:COMPARE

LOCATIONS

TO (HEC(K

THE BUFFER AGAINST

;BR IF NOT EQUAL,

THE PATTERN
TRY NEXT PATTERN

;FINISHED CHECKING?
;BR I1F NOT FINISHED
;MAKE PATTERN ADDRESS ABSOLUTE
SEXIY
:INCREMENT RETURN ADDRESS
;RESTORE RI1
;RETURN

THE DATA ERROR

$SRPBA(RO) ,ECSEC

(RO) ,=(SP)
$RPWC
$SWROL(RO),(SP)
-(SP)
$SSEC(RO),-(SP)
PC,LINKDV
(SP)
1%
(SP)
(SP) ,ECSEC

;ADDRESS OF

LAST LOCN XFERED

;ACT WORDS XFERED (2'S (OMP)
;ADD WORDS REQUESTED
:CLEAR NEXT STACK LOCN
;SECTOR SIZE

:DIVIDE WORDS XFERED BY SECTOR SIZt
;PARTIAL SECTOR XFERED ?
:BR IF NOT
;CONVERT INTO NUMBER OF

;SUBTRACT

SECTOR RESIDUE

BYTES

$CODE (RD) ,#5

;WAS OP READ HEAD & DATA

2%
#1000,ECSEC

;G0 ADJUST THE STA(CK POINTER
:SUBTRACT SECTOR DATA FIELD SIZE

2%
#8. ,ECSEC
0y ,SP

SRPECT(RO) ,ECBIT

:BR If NOT
:ADD HEADER SIZE

(IN BYTES)

;ADJUST

POINTER

THE

STACK

BA(K

ECBIT
ECBIT,ECWRD
ECWRD
ECWRD
ECWRD

; CHANGE T0 BYTE COUNT
;CHANGE TO BYTE COUNT
;CHANGE TO BYTE COUNT

L,LINT0A

(IN BYTES)

;ECC POSITION COUNT

:ADJUST THE POSITION COUNT
:LOAD THE WORD COUNT LOCATION

#AC17,ECBIT
#17,ECWRD

;SAVE THE BIT OFFSET COUNT
;CLEAR THE BIT OFFSET

: *"ERROR BURST BEGINS AT °*

ECWRD,-(SP)
(SP)

;PUT THE WORD COUNT ON THE STACK
;CONVERT TO WORD COUNT FOR MESSAGE

PC,$SUPRS

:PRINT

PC,9$S82D
,LINTOB

;:CONVERT THE WORD COUNT
IT

;' IN DATA FIELD OF ERROR SECTOR®

;FIND THE BEGINNING OF THE ERROR BURSI
ECSEC,ECWRD
$SRPBA(RO) ,ECWRD
:SEE IF BURST WAS IN DATA READ
.46
:BR IF IN DATA READ
:NOT IN DATA READ = REPORT |1
ECC2
;GET THE ERROR MASK
SRPEC2(RO) ,ECMSKO
ECMSK ]
:CLEAR THE UPPER MASK WGRD
ECBIT
;B1T OFFSET EQUAL ZERO
6%

ECBIT
ECMSKO
ECMSK 1
3%

:BR

:DECREMENT THE BIT OFFSET (OUNIT
:SHIFT THE ERROR MASK
:SHIFT THE LOWER INTO THE UPPER
:CONTINUE THE SHIFT

(IRJDD0, RPO4/5/6 MLT=DR LG(
06-JUN-79 08:32

CIRJOD., P1 1

MACY1

L4646

6647
64648
4449
4450
4451
4652
6453
4454
4455
L6456
4457
4458
4459
44660

015032
015036
015042

015044

104414

013746
004737
104414

017746
004737
104414
005737
001427
104414
013746
004737

013746
004737
104414

017746
004737

64661

4465

4467

MoV

001330
000002
000240

5¢:

MOV

€CCl:

BIS
DISPLY

1663564

mMov

JSR
DISPLY

164302
022330

Mov

JSR
DISPLY

052323
001336
001165

164232

LINIOH

;HEADER

#2,ECWRDY
:INCREMENT ERROR ADDRESS
$RPBA(RO) ,ECWRD]
;1S NEXT WORD IN THE BUFFER
:BR IF IT 1S
5%
ECWRD
:CLEAR 2ND WORD ADDRESS
;PRINT WORD CORRECTED
ECCI
oECWRD1,ECBAD1
:5AVE THE SECOND BAD WORD
;PUT THE UPPER MASKX ON THE STA(K
ECMSKT,-(SP)
at CWRD1,(SP)
;CLEAR ERRONEOUS ONE BITS FROM UPPER MASK
ECMSK1 ,3ECWRD1
:CLEAR ERRONECUS ONE BITS FROM DATA WORD
(SP)+ ,aECWRD1
;SET DROPPED BITS

ECWRD,-(SP)
PC,LINOCT

LLINSP
ECBADO,=(SP)
PL,LINOCT

LLINSP

JECWRD,-(SP)
PC,LINOCT

LLINSP

MOV

ECWRD1,-(SP)

LSCRLF

JSR
DISPLY

PC,LINOCY

JSR
DISPLY

PC,LINOCT

MOV

JSR
DISPLY
BR
DISPLY
DISPLY
RTS

SEQ 0088

ECMSK1
ECc)
ECWRD,ECWRD]

ECWRD1
ECCX

Mov

:SAVE THE INCORRECT WORD
sCLEAR SECOND INCORRECT WORD ADDRESS
:PUT LOWER MASK ON STACK
:CLEAR ERRONEOUS ONE BITS FROM MASK
;CLEAR ERRONEOUS ONE BITS FROM BAD WORD
;SET DROPPED BITS
;DOES BURST GO INTO NEXT WORD ?
:BR If BURST ONLY IN ONE WOURD
;DUPLICATE ADDRESS

SECWRD ,ECBADO
ECWRD1
ECMSKO,=(SP)

151

BEQ
DISPLY

001336
022330
052323
001342
022330
052323

052034
001165

MOV

JSR
DISPLY

001334
022330
052323

104414
1044614

PAGE

(SP)+ ,ECWRD

001336
001336
001336

001342

ECMSKO,8ECWRD

001336
166374
001326
166362
001326
164350
052141
001330
022330
052323

10:41

aE CWRD, (SP)

164436

001326

022330
052323

000207

L4466

166432

104414

000402

L4464

LINSP
ECBAD1,=(SP)
LLINSP
SECWRD1,=(SP)
PC.LINOCT

LLINSP

ECCX

,LINT0C
LSCRLF

;PUT ECWRD ON
;TYPE ECWRD

THE

STA(CK

:SPACES

;PUT ECBADO ON THE STA(K
;TYPE

ECBADO

;TYPE

SECWRD

;TYPE

ECWRDI

;SPACES
;PUT SECWRD ON THE STACK
:SPACES
:PRINT THE NEXT WORD ?
;BR IF NOT
;CR=LF
:PUT ECWRDT ON THE STA(K
;SPACES

:PUT ECBAD1 ON THE STA(K
;TYPE

ECBAD?

;SPACES

:PUT QECWRD1 ON THE STA(K

; TYPE SECWRD1

s SPACES
EXIT

:E:RO? BURST WAS NOT TRANSFERED TO MEMCRY
s

(R=L

:RETURN

Omun.onbbwm

o=l

ik
sl

)
—d

)
i

)

il el
—r

—

(W N TV TV, IV TV IV, AV

sROUTINE 1O DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR
OOO0OO0O0O0O

4470
LG 71
4472
4673
4474
4475
4676
4677

013746
004737

104414

4662
44663

4468
4469

104414

164444

001324

001334

> N

4645

101003
005037
000414
017737
013746
047716
043777
052677

1646462

001336
001324

[N}

AN N

017737
005037
013746
047716
043777
052677
005737
001431
013737
062737
026037

03-JuL-79

MAIN PROGRAM

4438
£639
4440
6641
64662
L4643

016642
014650
014654
014660
014664
016672
014676
014702
014704
014712
014720
01472¢
014730
014734
014736
014744
014750
014754
014762
014766
014772
014776
015002
015006
015012
015016
015022
015026

30A(1052)

6422
6623
64626
6625
6426
4427
4428
L4629
6430
463
6632
4433
64634
64635
L4636
6637

MACY1Y

032777
001460
016001
016046
066016
005046
016046
004737

000240
000020
000236

MOV
MOV
ADD

#SW3,aSuR
6%
,R1
$RPBA(RQ)
,=(SP)
(RO) DL
$WR
(SP)
$RPWC(RD),

000022
027152

MOV

$SSEC(RO) ,=(SP)

000010

164002

PRTBAD:

BIT
BtQ

(LR

JSR

=(SP)

PC,LINKDV

;PRINT

THE

;BR IF NOT

BAD

SECTOR

;PUT THE END ADDRESS INTC R1
:FIND THE BEGINNING OF THE SECTOR
;SUBTRACT THE WORDS NOT TRANSFERED
;MAKE THE UPPER DIVIDEND O

6?1¥RE THE WORDS TRANSFERED BY TWt SECTOR SI1ZE

.DiviD

[aaNan)

CIRJDDO, RPOL/S5/6 MLT=-DR LGC
CIRJDD.PIY
06-JUN=79 08:32

CIRJIDDO, RPO&/5/6 MLT-DR LG(
CIRJDD.PN
06-JUN-79 08:32
4478
4479
4480
481
4682
64483
46846
64685
4686
4487
4488
4489
66490
4691
4692
469%
4494
64495
4496
4497
4498
4499

64500
4501

4502
4503
4504
4505

450¢
4507

4508
4509

015166
015170
015172
015174
015176
015200
015204
015212
015214
015220
015224
015230
015234
015236
015242
015246
015250
015254
015256
015262
015264
015266

015272
015274

015300

MACY11

30A(1052)

03-JuL=79

MAIN PROGRAM

005716

181

001403

BEQ

161601

SuB
BR
SuB
(MPB
BNE
Sus

006310
000410
162701
126027
001002
162701

062706
106414

012702
010146
004737
020160
0014612

104414
012146
004737
005302
001366

ASL

001000
00002¢
000010
000004
052226
000007

022330
000240

1%
4%

104414

001165

ADD
DISPLY

MOov
Mov

JSR
(Mp
BtaQ
DISPLY

Mov

022330
001165

000207

2%:

052323

1044614

000756

000005

1%:

5¢:

6$:
;ROUTINE
;CALL:

. SR
DE(
BNE
DISPLY
BR
DISPLY
RTS

Mov
RETURN

PAGE 91

Sea 0089

(SP)
1%
(SP)
(SP) ,R1

;REMANDER = 0 ?

#1000,R1
$CODE(RO)
,#5

:SUBTRACT FULL SECTOR SIZE FROM END ADDR

710,R1
0 ,5P

LLINVTIH

"7 ,R2
R1,-(SP)
PC,LINOCT
R1,$RPBA(RO)
5%

LLINSP

;BR IF IT IS = COMPLETE SECTOR TRANSFERED
:CONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT
;SUBTRACT

IT FROM THE END ADDRESS

;FINISH THE

SIZING

;WAS OPERATION READ HMEADER & DATA

;BR 1fF NOT
:SUBTRACK HEADER SIZE FROM ADDR
JRESTORE THE STACK POINTER
;PRINT

THE

HEADER

;R2 CONTAINS THE WORDS/LINE COUNT
;PUT

THE

;TYPE

THE

ADDRESS ON

THE

STA(K

ADDRESS

;PRINTED ALL

THE

SECTOR

:BR IF ALL PRINTED
;SPACES

(R1)+,-(SP)
PC,LINOCT
R2
4%

;PUT THE DATA ON THE
:TYPE THE DATA

3%
LSCRLF

;RESTORE THE WORDS/LINE (OUNT
;PRINT WHAT REMAINS IN THE BUFFER
:RETURN

JBCRLF

10 DO AN RTC - DRIVE
JSR

[

10:41

#DPB,RO
PC,RINCTR

STA(K

;DECREMENT THE HOR]IZONTAL COUNI
;BR IF NOT AT THE END OF THE LINE
;CR-LF

SELECTED

IN RO

;DPB ADDRESS

”

CIRJIDDO, RPO&L/S5/6 MLT-DR LGC
CIZRJ0D.P
06-JUN-79 08:32
111037
112737

6510
5N
6512
6513
6514

004037
045076
000774
000207

6515

6516
6517
6518
6519
4520
6521
6522
6523
45264
6525
4526
6527
6528

045076
000117
034266

MACY1Y

045100

30A(1052)

MAIN PROGRAM

RINCTR:
1%:

MOVB
MOvB
JSR

GENDPB
B8R
R1S

10:41

7
PAGE 92

SEQ 0090

(RO) ,GENDPB
sMOVE THE DRIVE #
#RTC,GENDPB+SCOMND
;COMMAND (ODE

GENERAL DPB

;ORIVER ENTRAN(CE

;DRIVER DIDN'T ACCEPT ORDER

;OPB ADDRESS FOR ORDER
;RETURN

IN RO

MoV
JSR
RE TURN

#0PB,RO
PC.RECALY

;DPB ADDRESS

MoV
MOVB

#DPB,RO
#ORIVE ,GENDPB
PC,RECALTO

;DPB ADDRESS
;DRIVE ADDRESS

(RO) ,GENDPB

;MOVE

6529

111037
112737
004037
045076
000774
005737
001775
000207

045076
000107
034266

045100

045114

JSR

®e

JCALL:
;

TO THE

RO,RPO4

;ROUTINE TO DO A RECALIBRATE - DRIVE SELECTED

4530
6531
6532
4533
6534
6535
6536
6537
4538
6539

RETURN

RECALT:

MOVB

1%:

JSR
GENDPB
BR

RECALO:

2%:

mOovB

187
BEQ

RTS

THE DRIVE # TO THE GENERAL DPB

#RECAL ,GENDPB+SCOMND
;RELCALIBRATE
RO,RPO4
;DRIVER ENTRANCE

1%
GENDPB+$TATUS
2%
PC

C(OMMAND

:DOPB ADDRESS FOR ORDER

:DRIVER DIDN'T ACCEPT THE ORDER
;SEE IF FINISHED
;BR IF NOT FINISHED
:RETURN

;OFFSET THE DRIVE IN RO (OFFSET CODE PRELOADED INTO 'RPOF')

;CALL:
;

4540
65461
6542

MOVB
MOV

JSR
RE TURN

6543

6544
4545
65646

045076
000115
034266

045100

OFFST:
1%:

000207

MOVE
MovB
JSR
GENDPB
BR
RIS

FOFTSET,GENDPB+$FMT

#0PB,RO
PC,OFFST

;DPB

;OFFSET

ADDRESS

CODE

(RO) ,GENDPB
;DRIVE # TO GENERAL DPB
NOFFSET,GENDPB+$COMND ; COMMAND
RO,RPO4
;DRIVER ENTRANCE

:DPB ADDRESS FOR ORDER
;DRIVER DIDN'T ACCEPT ORDER

;UTILITY READ HEADER ROUTINE

000002
000004
045076
000272

000172

0645107
045106

045110
045100

MOV
MOV
MOV

JSR

®e

(W AV LV RV LV |
SNONTNNTN

e
i
s (O

5432

O =00
~NOoOOoOoOo

b
ol
—

5604
5612
5620
54624

®.

;CALL:
;

(elolelale]

6547
6548
4549
4550
6591
6552
6553
4554
4555
6556
6597
4558
6559
4560
4561
6562
6563
4564
€565

03-JUL=79

RETURN

READHD:

MOVB

MOvB
MOvB
MOv
MOvVB

#DPB,RO
#SECTOR,={SP)
#TRACK ,=(SP)
PC,READDR

;DPB ADDRESS
;SECTOR ADDRESS
s TRACK ADDRESS

2(SP) ,GENDPB+$TRK

4(SP) ,GENDPB+$SEC

;TRACK ADDRESS

;SECTOR ADDRESS

(RO) ,GENODPB
;DRIVE NUMBER
$RPCC(RO) ,GENDPB+SCYL ;CYLINDER ADDRESS
#RDHD ,GENDPB+$COMND

; COMMAND

CIRJDDO, RPO&L/5/6 MLT=DR LGC
CZRJDD.P11
06=-JUN-7 9 08:32
6566
6567

6568
6569
6570
64571
6572
6573
6574
6575
6576
6577
6578
6579
4580
4581
4582
4583
6584
4585
6586
4587
4588
4589

4590
6591
6592
6593

6594

4595
6596
6597
4598
4599
4600
4601
4602
4603
4004
4605
4606
4607
4608
<609
4610

015440
015444

015446
015450
015654
015456
015462
015464

004037
045076
000774
005737
001775
012666
005726

MACY11

30A(1052)
1$:

045114

2%:

000002

JSR
GENDPB

BR
151
8tQ

000207

;RETRY
;CALL:

THE

7
PAGE 93

RO,RPO&

Sta 0091

;DRIVER ENTRANCE
;DOPB ADDRESS FOR ORDER

CENDPB+$TATUS
23

;ORIVER DIDN'T ACCEPT COMMAND
sFINISHED?
;BR IF NOT
;ADJUST STACK FOR RETURN

:RETURN

(SP)+,2(SP)
(SP)+

MOV
11
RTS

PRESENT

OPERATION

Mmov
#COUNT RETRY
PC.SRETRY
JSR
RE TURN1
RETURN?

;RETRY COUNT
SRETRY

UNSUCESSFUL

sNOTE:

;SUCESSFUL RETRY
;RETRY,

015466
015472
015476
015500
015502
015506

015512
015514
015522
015526
015530
015532
015536
015540

015542
015550
015552
015556
015564

0155066
015570
015574
015600
015602
015604
015610

004737
005760
001775
100405
105237

062716
000425
032760
001430
005737
001004
005760
001014
000404
033760
001407
105237
123757

001340
006207
004737
004737
005726
000207
104614

000137

$SRETRY:
1%:

016456
000016

000200

000016

2%:

BIT
BEQ
181

BNE
151

000250

001253
001252

BEQ
INCB
ADD

001250

JSR
151

BMli

001253
000002

BNE

000250
001253

3%:
4%

5%:
6%:

022316
022050

7%:

051476
006732

BR
BI1
8eaQ

INCB

(MPB

;RE=START

MASK

:1S ERROR MASK 0 ?
;BR 1F NOT

;ORDER FINISHED?
;BR IF NOT
2%
;BR |* ERROR
¢
RETRY
; INCREMENT RETRY COUNT
n2,(sP)
; INCREMENT RETURN
5%
;60 10 EX]T
#B117,8TATUS(RO)
;DID ORDER TERMINATE NORMALLY ?
7%
;BR 1F NOT
1%

3%
SRPER' (RO)
6%
6%

. MASK,$RPER1(RO)
6%
RETRY#

RETRY,RETRY+!

SRETRY

JSR
JSR

PC,LINEB
PC,LINE7

181
RTS

DISPLY
JMP

ERROR OCCURS DURING

ORDER

PC,GODRIV
$TATUS(RD)

BNE

RTS

A DIFFERENT

THE ROUTINE EXITS TO 'ERPR(C1’

(SP)+
PC

,LINBM
ERPRC1

;MAKE

SURE

;BR IF NOT

THAT

THE

DRIVE ERROR REG

MoV

JSR
RETURN

015614
015622
015624
015632
015640

032760
001454

016037
166037
001434

000300

000016

000240 015756
000006

015756

STAT]S:

Bl
BEQ
MOV

SUB
BEQ

'DPBTing
PC.S

|S CLEAR

;CONTINUE RETRY
; SAME ERROR?

:BR IF NOT
:INCREMENT RETRY COUNT
;DONE ?
;BR IF NOT DONE
:RETURN

:REPORT DIFFERENT ERROR

;PRINT LINE 7
;ADJUST

;RETURN

STACK POINTER FOR DiRECT

RETURN

:"DIFFERENT ERROR DURING RETRY
:REPORT

THE

ERROR

;ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS

s CALL:

4614
4615

4616

10:41

MAIN PROGRAM

0342¢¢

6611
6612
4613

4617
4618
4619
4620
4621

03-0UL=79

;DOPB ADDRESS

gngO?.BlTOb.STAIUS(RO) ;(HECK FOR DATA TERMINATION
;BR IF NOT DATA TERMINATION
$SRPBA(RO),FACTOR
:STORE THE FINAL BUFFER ADDRESS
$BUF (RO),FACTOR sSUBTRACT THE INITIAL ADDRESS
'
2%
;BR IF NO DATA TRANSFER

CZRJDDN, RPO&L/S5/6 MLTI=-DR LGC
CZRJDD.P1Y
06-JUN-79 08:32
4622
4623

6624
4625
4626
4627
4628
4629
4630
4631
4632
4633
L4634
4635
4636
4637
4638
4639

4640
L4641
4642
6643

015654
015660
015666
015670
015674
015676
015704
015706
015714
015720
015726
015732
015740
015742
015750
015754

006237
063760
005560
132760
001021
005737
001411
126027
101005
066060
005560
063760
005560
026060
001405
062760
005560
000207

015756

000000

015642
015646

015756
015756
000050
000002

MACY11

30A(1052) - 03=-JUL-79
MAIN PROGRAM

000024

001424
000001

000020
000050
015756
000054
000012

000046

000001
000044

000042

000052

1%:

000270

2%:

$WRDL (RO) , STRANS
(RO)
:ADD WORDS WRITTEN
$TRANS+2(R0O)
;ADD A CARRY FACTOR,$READ
(RO)
sUPDATE THE READ WORD COUNT _
$READ+2(R0)
:ADD ANY CARRY

BEQ

cMp

ADD
ADC

#1,8P0SIT(RO)
$POS1T+2(R0)

;ADD CARRY TO UPPER WORD

;USED FOR WORDS TRANSFERED

3%:

RTS

“PC

FACTOR:

.WORD

L6L6

4651

4652
4653
L4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
L4667
L668

4669
4670
671

4672
4673
4674
4675
4676
4677

MOV

JSR

CLR

RETURN

;
015760

015762
015764
015766
015772
015774
016000
016006
016010
016012
016014
016020
016022
016026
016034
016036
016042
016046

016052
016054

016060

016062
016064
016066
016070
016074
016076

GETBUF: MOV
MOV
MoV
MOV

001616

001620
000020

BEQ

000002

MOV

1%:

CMP
BLOS
DEC
BEQ
ADD
BR

000004
000010
000020

000002

MOV

3%:

000020
000020
000020

001616

000004

4%:

5%:

SUB
BEQ
ASL
ADD
ASR
BR
DEC
BEQ
DEC
BEQ
MOV
ADD

MOV

:DID MID-TRANSFER SEEXK OCCUR
~
:BR 1F NOT
s INCREMENT SEEK COUNT

$CYL(RO) ,$RPCA(RO)

sROUTINE TO GET A BUFFER
s CALL:

L64T7
L64B
L649
4650

PAGE 94

ADD
ADC
ADD
ADC

L644

L645

ASR - FACTOR
;CONVERT 10 A WORD COUNT
ADD
TM~ FACTOR,$TRANS (RO)
sUPDATE WORD COUNT
..
ADC
$TRANS +2(R0)
:ADD ANY CARRY
#81101,$CODE (RD)’ ;SEE 1F ORDER READ OR WRITE
B11B
BNE
2%
:BRANCH IF ORDER WRITE
AUTOCK
181
;AUTO WRITE CHECKS BEING PERFORMED .
1%
Q
:BR_IF NOT
BE
.
SCODE(RO)
M
;PRESENT OPERATION AN AUTOMATIC HRI!E CHECK ?
. (MPB
1%
BH1
:BR 1F NOT

000046

000024

10:41

#DPB,RO

=(SP)

PC,GETBUF

;DOPB ADDRESS

;CLEAR THE STACK

;BUFFER ADDRESS WILL BE ON THE STACK
;STACK WILL BE ZERO IF NO BUFFER AVAILABLE

:SAVE R}
R2,-(SP)
:SAVE R2
:SAVE R3
R3,-(SP)
:NUMBER OF SEPARATE BUFFERS
BUFTBL,R2
6%
:BR 1F NONE AVAILABLE
#BUF TBL+2,R1
sF1RST ADDRESS OF ALLOCATION TABLE
ggRDL(RO)»2(R1) :SEE IF THERE IS A BLOCK.LARGE ENOUGH
;BRANCH IF IT IS
:DECREMENT TABLE COUNT
;BR 1F THROUGH TABLE
R1,-(SP;

; INCREMENT TABLE POINTER
; CONTINUE LOOKING
(R1),10(SP)
;BUFFER ADDRESS TO STACK
22RDL(R0).2(R1) ;ADJUST BUFFER SIZE
:BR IF DIFFERENCE 1S ZERO
$WRDL (RO)
:CONVERT # WORDS TO BYTES
$WRDL (RO), (R1)
$WRDL (RO)
6%
BUF TBL
6%
R2
6%

R1,R3
#4,R3

"(R3)4+,(R1)4
(R3)¢,(R1)+

sMAKE NEW STARTING ADDRESS
;RETURN # BYTES TO WORDS

¢RETURN
;DECREMENT ENTRIES COUNT
;BR IF ALLOCATION TABLE EMPTY
:DECREMENT TABLE COUNT
:BR IF ITEM WERE LAST ENTRY
:MOVE TABLE POINTER
:POINT TO NEXT ENTRY
;MOVE 1TEMS

SEa 0092

[T
)

CZRJDDO, RPO4/5/6 MLT-DR LGC

CZRJDD.PY
4678
L4679
4680
4681
4682
4683

L684
L685

016100
016102
016104
016106
016110
016112

MACY11 30A(1052)

06-JUN-79 08:32

03-JUuL-79

MAIN PROGRAM

005302
001374

012603
012602
012601

6%:

000207

DEC
BNE
MOV
MOV
MOV
RTS

10:41

8
PAGE 95

‘R2
5%

(SP)+,R3
(SP)+,R2
(SP)+,R1

;:DECREMENT TABLE COUNT
:CONTINUE IF NOT AT END OF
;RESTORE R3
sRESTORE R?2
;RESTORE R1
sRETURN

4,686

;ROUTINE TO PUT BUFFER BACK IN TABLE

4,688
L6865

:
:

-L687

4690
4691

4692
4693
4694
64695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706

s CALL:
:

016114
016116
016122
016126
016130
016134
01
01
OV
01
01
01

4707
4708
4709

4710
4711
4712

4713
4714
4715
64716
4717
4718
4719
4720
64721
4722
64723
4724
4725
4726
4727

4728
4729
4730
4731
4732
4733

010146
012701
013702
001424
016003
006303
066003
021103
001424
062701
005302
001372
016011
016061
005237

005202
000414
016021
016214

016216
016222
016230
016232
016236
0
01
016250
016252
016254
0
01
01
01
0

01
01
01
01
01
01

016021
005237
000443

016011
066061
010246
013702
012705
016504
006304
061504
020411
001406
062705
005302
001366
005726
000415

012602
066165
005337
010105
062705
012521

001620
001616
000020

000006
000004

000006
000020
001616

000002

000006
000020
001616

000006
000020
001616
001620
000002
:

4%:
5%:
6$:

000004

000002
001616
000004

000002

RETURN

RELBUF: MOV
Mov
MoV
BEQ
MoV
.
ASL
ADD
1$:
CMP
BEQ
ADD
DEC
BNE
MOV
Mov
INC

2%:

000002
.

Mov
JSR

8%:

9%:

INC
BR
MoV

Mov
INC
BR

MoV
ADD
Mov
Mov
MoV
MoV
ASL
ADD
CMP
BEQ
ADD
DEC
BNE
187
BR

Mov
ADD
DEC
Mov
ADD

MOV
N

SEQ 0093
TABLE

#DPB,RO
PC,RELBUF

:DPB ADDRESS

R1,-(SP)
NBUFTBL+2,R1
BUFTBL,R2
2%
$WRDL(RO) ,R3
R3
$BUF (RO) ,R3
(R1),R3
4%
Ho Rl
R2
1%
$BUF (RO),(R1)
$WRDL(RO),2(R1)
BUF TBL

:SAVE R1
;BEGINNING OF TABLE
sENTRY COUNT
:BR IF EMPTY TABLE
¢+ TRIAL ADDRESS
:CHANGE T0 BYTE COUNT
:ADDRESS OF HIGHER ADJACENT BLOCK
:UPPER ADJACENT BLOCK
:BR If YES
; INCREMENT POINTER
;DECREMENT ENTRY COUNT
s CONTINUE SEARCHING
;PUT THE BUFFER BLOCK INTO THE TABLE.
;BLOCK SIZE
s INCREMENT ENTRY COUNT

SWRDL{RO),(R1)+
BUF TBL
108
$8UF (RO),(R1)
$WRDL(RO),2(R1)
R2,=(SP)
BUF TBL ,R2
#BUFTBL+2,R5
2(R5) ,Ré
R4
(RS) R4

;SIZE TO TABLE
: INCREMENT ENTRY COUNT
JEX1T

R2
5%
$BUF
(RO) ,(R1)+

R4, (R1)
8%
#4,R5
R2
6%
(SP)+
10%
(SP)+,R2
2(R1),2(RS)
BUF TBL
R1,R5
¥4 ,RS
(R5)¢,(R1)¢

)

¢ INCREMENT R2 FOR USE LATER
:SEE IF A LOWER ADJACENT BLOCK IS IN THE JABLE
;BLOCK ADDRESS TO TABLE

;RELEASED BUFFER IS LOWER ADJACENT
; INCREMENTED SIZE
:SAVE R2
sENTRY COUNT
;BEGINNING OF TABLE
;BLOCK SIZE (IN WORDS)
:CHANGE TO BYTE COUNT
:ADD BLOCK BEGINNING ADDRESS
:R1 STILL POINTS TO INSERTED ENIRY
;LOWER ADJACENT IN TABLE
: INCREMENT POINTER
:DECREMENT ENTRY COUNT
; CONTINUE LOOKING
;RESTORE STACK POlNTER
;END

:RESTORE R2
: INCREMENT LOWER BLOCK LENGTH
-;DECREMENT ENTRY COUNT .
:GET READY TO COMPRESS
: INCREMENT TO NEXT ENTRY
; COMPRESS TABLE

47%
473%5
47%
67%7
4738
6473%9

4740
6«74
6762
6743
G764
4745
4746
G747
L4748
4749
4750
4751
4752
475%
4754
4755
6756
64757
4758
6759
4760
4761
4762
4763
4764
4765
4766
«767
4768
4769
4770
7N
4772
677%
4774

4775
4776
G777
4778
779
4780
4781
4782
478%
4784
4785
«786
4787
4788

4789

016316
016320
016322
016324
016326

MACYT1

03-4UL-79

30A(1052)

MAIN PROGRAM

012521
00530¢
001374
012601
000207

mov

10%:

DEC
BNE

Mov
RIS

10:41

8
PAGE 96

SEQ 0094

(RS)+, (R1)e
R
9%

;MOVE SIZE FIELD DOWN
;DECREMENT ENTRY COUNT
;BR |F NOT FINISHED

;RETURN

(SP)+ ,R1

;RESTORE

;FILL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER)
; CALL:
mov
#0PB,RO
;DPB ADDRESS
#BUFADR,$BUF
(RO)
;LOAD BUFFER ADDRESS INTO
Mov
#OATTERN,SPATIC(RO)
;PATTERN (ODE
move
PC,FILBUE
JSR
RETURN

016330
016332
016340
016342
016346
016352
016360
016362
016366
016372
016376
016400
016402
016406

016410

016412
016416
016422
016426
016430
016432
016434
016436
016440
016444
016450
016452
016454

104412
132760

001044
016001
016002
132760
001413
016011
052721
016021
005021
005021
162702
003421

005004
116004

016405
012703
012521
005302
001407
005303
001373
012703
016405
000766
104413
000207

000004

00006

000006

100020

000001

t 1LBUF
:

1$:

000024

MOv
MOv

BI18
8t0

000012
010000

MOV

BIS

000010

MOV

000004

000030
002762
000020

SAVREG
8118
BNE

2%:

000020
002762

(LR
(LR
SuB
BLE

(LR

MovB
Mov
MoV
Mov

DEC
BEQ
DEC
BNE

MOV
mMov

L$:
;START
sCALL:

RESREG
RTS

JSR
RETURN

016456
016460
DibLdae
016470
016472
01e474

010046

010037
004037
000000
000000
012600

016470
034266

GODRIV:
1¢:
2%:

MoV
mMov

JSR
.WORD

HALT
Mov

THE REGISTERS

;BR

NOT

TYPE

DPB

ORDER

$CYL(RO), (R1)
#BIT12,(RY)+
$SEC(RO),(R1)+
(R1)+
(R1)+
r ,R2
4%
R&

;CYLINDER ADDRESS
;SET FMT22 BIT
;MOVE SECTOR & TRA(CK
;CLEAR FIRST XEY WORD
;CLEAR THE SECOND
;ADJUST THE WORD COUNT
;BR IF END OF PATTERN
;CLEAR R4

STNDAT(R&) ,RS
#20,R3
(RS)¢,(R1)e
R?
3
R3

;PATTERN ADDRESS
;PATTERN COUNT
;MOVE THE PATTERN INTO THE BUFFER
;DECREMENT THE WORD COUNT
;BR If DONE (WORD COUNT = 0)
;DECREMENT THE PATTERN COUNI

$SPATTC(RO) ,R4

sRELATIVE PATTERN ADDRESS

:BR

MORE PATTERN

#20,R3
STNDAT(R4) RF

;RESTORE
;RESTORE

;RETURN

THE ORDER FOR THE DPB
Mov

;SAVE

#B1102,8CODE
(RO
,SEE IF READ ORDER
4%
;BR IF READ
$BUF (RO) ,R1
;BUFFER ADDRESS
- .
$WRDL (RO) ,R2
:POSITIVE WORD COUNT
#B1700,$CODE
(RO)
;SEE IF WRITE HEADER

THE

PATTERN COUNT
THE ADDRESS

;CONTINUE DISTRIBUTING THE
;RESTORE THE REGISTERS

PATTERN

IN RO

#0PB,RO
PC,GODRIV

.DPB ADDRESS

RO,=-(SP)

; SAVE RO

;ORIVE BLOCK ADDRESS GOES HERE

RO,2%
RO,RPO&

(SP)+,RO

; CURRENT DPB ADDRESS
;LALL THE DRIVE HANDLER

;DRIVER REJECTED REQUEST
;RESTORE

[ Nan]

CIRJDDO, RPO4/S5/6 MLT-DR LGC
CIRJDD P
06-JUN-79 08:32

(IRJDDO, RPO&L/S/6 MLT-DR LGC
CIZRJDD.PIY
06-JUN-79% 08:32
4790
479
4792
6793
4794
4795

4796
4797
4798
4799
4800

016476
016506
016510
016516
016520
016526
016532

062760
005560
026060
001405
062760
005560
000207

000001
000040
000034
000001
000044

MACY1Y

«82%

4824
4825
4826
4W827
4828
4829
4830
4831
«8%2
4«83%3%
4834
4835
4836
«83%7
4«83%8
4839
4840
4841
842

64843

6846
4845

03-JuL=79

MAIN PROGRAM

000036

000042

3%:

10:41

#1,80PERC(RD)

$SOFERC*2(R0O)

ADD
ADC

#1,8P0SIT(RO)
$POSIT+2(RO)

RTS

PAGE 97

ADD
ADC

(mp
BEQ

000012

SEQ 0095

: INCREMENT THE OPERATION COUNT

$PREVA+2(R0) ,$CYL(RO)
;DID ORDER REQUIRE A CYLINDER (MANGE
NOT
%
IF
;BR

;s INCREMENT SEEKX COUNT
;ADD ANY

CARRY

;GENERATE PARAMETERS FOR THE OPERAT]ION
;CALL:

;
:

4801

4802
4803
4804
4805
4806
4807
4808
4809
«810
«811
4812
4813
«81¢
4815
816
4817
<818
4819
4820
4821
4822

30AC1052)

016534
016540
016546
016550
016556
016560
016564
016566
016572
016574
016600
016604
016610

004737
032777
001012
012709
004737
020¢1/

032462
000001

004737

017256

013705
042705
062705

032562

103003

000406

110560

000010
027124
001622

177776

000004

000074

162372

SELPAR:
1%:

#0PB,RO

.DPB ADDRESS

JSR

PC,SRAND
#5wW0,35wWR

MOV

#10,RS
PC,GETREM
RS,RATIO

sCYCLE THE RANDOM NUMBER GENERATOR
;SEE IF SWO SET
:BR IF SET = READ ONLY
;READ/WRITE SELECTION DIVISOR
SGET SELECTION VALUE

MOV
JSR

RE TURN

Bl
BNE

JSR

(mp

2%:
1%

PC,SELPAR

;DETERMINE

;:BR IF READ

READ OR WRITE

BHIS
JSR
BR

PC,RANWRT

;SELECT A WRITE ORDER

BIC

#4C1,RS
#4 ,RS

;MASK OUT

MOV
ADD

mMovB

3
$LONUM,RS
RS,SNCODE (RO)

;CONTINUE WITH THE SELECTION
;SELECT READ OPERATION CODE
;VTABLE

ALL BUT BIT

OFFSET

FOR READ

CODE

;ORDER SELECTION CODE TO CONTROL BLOCK

;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES 'MINSEC' & °'MAXSEC'
016614
016620
016624
016626

016632
016634

016640
016642
016646
016652
016656
016660
016664

016005
026005
001417
166005
100002

062705
005205
004737
066005
020527

101402
162705
110560

000116
000120

RANSEC:

000120
000026

027124
000120
000025
000026
000076

MOV

(Mp
BEQ
SuB
BPL

MAXSEC(RO)
,RS
MINSEC(RO)
,RS
2%
MINSEC(RO)
,RS

ADD

1%:

INC

JSR

ADD

2%:

(mp
BLOS
suB

MOvVB

PC,GETREM
MINSEC(RO),RS
RS.#21.

2%
n22.,R5
RS,SNSEC(RO)

;GET MAXIMUM SECTOR ADDRESS

;"MINSEC' AND 'MAXSEC' THE SAME ?

THEY ARE
;SUBTRACT MINIMUM SECTOR ADDRESS
;BR |F MAX LARGER THAN MIN
;CORRECT THE NUMBER
; INCREMENT DIFFERENCE TO USE AS DIVISOR
;GET THE RANDOM AUGMENT
:BR IF

;NEW ADDRESS

;1S VALUE TOO LARGE ?
;BR IF NOT
. CORRECT VALUE
;STORE SECTOR ADDRESS IN DPB

;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES 'MINTRK' & 'MAXTRK'
016670
016674
016700
016702
016706
016710
016714
016716
016722
016726

016005
026005
001417

000112
00011¢

062705
005205

000023

166005
100002

004737
066005
020527

RANTRK:

000114

027124

000114

000022

1$:

MOV

(mp
BEQ
SUB
BPL

ADD

INC
JSR
ADD
(mp

MAXTRK(RO)
,RS
MINTRK (RO) ,RS
2%
MINTRK(RO)
,RS
1%
719, ,RS
RS
PC,GETREN
MINTRK (RO) RS
RS,#18.

:GET MAXIMUM TRACK ADDRESS
:'MINTRK' AND °'MAXTRK'
:BR IFf THEY ARE

THE

SAME

;SUBTRACT MINIMUM TRACK ADDRESS
:BR IF MAX LARGER THAN MIN
:CORRECT THE NUMBER
s INCREMENY DIFFERENCE TO USE AS DIvISOR
:GET

THE RANDOM AUGMENT

:NEW TRACK

ADDRESS

;1S VALUE T00 LARGE ?

4846
847

4848
4849
4850
4851
4852
485%
4854

4855
4856
4857

4858
4859

016732
016734
016740

016744
016752
016760
016762
016770
016774

100002

4865

<898
4899
4900
4901

012737
032760
001403
012737
016005
026005
001417
166005
063705
00520%
004737
066005
023705
101002
165705

4866
867
4868
4869
4870
4871
«872
4873
4874
4875
4876

010560
122760

001013
012760
023727
103062

013760
000456

O03-4uL=79

MAIN PROGRAM

2$:

BLOS
SUB
mOvB

10:41

PAGE

StEQ 0096

;BR 1F NOT
;CORRECT VALUE
;STORE TRACK ADDRESS

2%
216, ,RS
RS,ENTRK(RO)

IN DPB

000633
000002

001350
000262

001457

001350

000106
000110

MoV

BIT
gtaQ
RANCYL:

000110

001350

1%:

027124
000110
001350
001350
000100
000003

000074

000404
001404

000102
000404

001404

000102

2%:

MOV
MOV

(mp
BEQ
SUB
BPL
ADD
INC
JSR
ADD

c(me
BMl
SUB
MOV
(mMPB

BNE
MOV
(MP
BHIS
MOV
BR

;ASSUME AN RP04/S
#6101, ,CcvLim
#B1101,8RPDT(RO)
:SEE 1F RPO6
RANCYI
:BR IF NOT

;CHANGE CYLINDER LIMIT

815, ,CyLInY
MAX(YL(RO),RS
MINCYL(RO),RS
2%

:GET MAXIMUM CYLINDER ADDRESS

s"MINCYL' AND 'MAXCYL®
:BR IF THEY ARE

THE

SAME

;SUBTRACT MINIMUM CYLINDER ADDRESS
:BR 1F MAX LARGER THAN MIN
:CORRECT THE NUMBER
INCREMENT DIFFERENCE TO USE AS DIVISOR

MINCYL(RO),RS

1%
CYLIMT,RS
RS
PC,.GETREM
MINCYL (RO),RS

THE RANDOM AUGMENT
sNEW CYLINDER ADDRESS
;1S VALUE TOO LARGE ?

;GET

CYLIMT,RS
2%
CYLIMT,RS
RS,ENCYL(RD)
#3,$NCODE (RO)

:BR

NOT

;CORRECT VALUE
:STORE CYLINDER ADDRESS IN DPB

:WRITE HEADER & DATA
;BR IF NOT

RANS]Z
¥26(C. ,SNWRDL (RO)
:CHANGE WORD LENGTH 10 260 FOR WRTHD ORDER
;CAN A FULL SECTOR BE WRITTEN ?
MAXCL ,#260.
RANFAT
;BR IF IT CAN
:CHANGE TRANSFER SIZE
MAXDL
, SNWRDL (RO)
RANPAT
:CONTINUE WITH THE SELECTION

;GENERATE A RANDOM BUFFER LENGTH BETWEEN & & THE VALUE IN 'MAXDL'
B NANININ
= s = OO
oSO

4879
<880
4881
<882
4883
4884
4885
4886
4887
4888
4889
4890
489
4892
4«89%
4894
4895
4896
4897

000023
000077

30A(1052)

;GENERATE A RANDG® CYLINDER ADDRESS BETWEEN VALUES °'MINCYL' & "MAX(vL’

4860
4861
4862
4863
4864

“877
4878

101402
16270%
110560

MACYTY

013705
005737
001010
005205
004737
005705
001003
004737

000763
010560
010546
005046
012746
132760

001402
062716
004737
012616
021627
103012

005737
001403
161660

RANS1Z:

001404
001420

027124
032462

1%:

000102

000400
000001

000004

027152

MOV

MAXDL ,RS

181

WCSEL

BNE
INC
JSR
181
BNE
JSR
BR

MOV

2%:

ADD

#4,(SP)

JSR

000004

001420

191

:DIVIDE BY MAX VALUE

;1S THE REMAINDER 0 ?
sNOT 0,

CONTINUE

:CYCLE THE RANDOM NUMBER GENERATOR
:TRY

AGAIN

:WORD LENGTH TO CONTROL BLOCK

;NEW WORD LENGTH ON STACK FOR (HE 'K
;MAKE UPPER DIVIDEND Z2ERO

;SECTOR SJIZE IS THE DIVISOR
:SEE 1F NEXT ORDER IS A HEADER ORDER
;BR IfF NOT
:ADD MEADER SIZE 1O SECTOR SIZt
;DIVIDE BUFFER SIZE BY SECTOR SI1Z¢E

¥1,$NCODE (RO)
2%
PC,LINKDY

(SP)+,(SP)
(SP), o4 ;SEE

;INCREMENT THE MAXIMUM SI1ZE

RS, $NWRDL (RO)

RS ,-(SP)
-(SP)
#256.,-(SP)

MOV
(mp

000102

1%
RS
PC,GETREM
RS
1%
P(,$RAND
RANSIZ

MoV
CLR
MOV

BITB
BtQ

000074

:GET BUFFER SIZE
:SELECT A RANDOM WORD COUNT
;BR IF NOT

;MOV REMAINDER UP THE STA(K
REMAINDER LESS THAN &

:BR If NOT
:SELECTING RANDOM TRANSFER SI1ZES °

BHIS

BEQ
SuB

:BR IF YES
1%
L
(R()
$NWRD
(SP),
;ADJUST WORD LENGTH DOWNWARD

w(SEL

[anan]

CIRJDDO, RPO&/S/76 MLI-DR LGC
CIRJDD P
06-JUN=-79 08:32

C(ZRJDD0O, RPO4/S/6 MLT=-DR LGC
(ZRJDD.P1I
06=-JUN-T79 08:32
4902
4903
4906

017212
0172'¢
017216

000404
005726
004737

(906
4907
4.883

017224
017226
01723

005726
122760
001004

6905

017¢22

000727

MACY1Y

1%:

032462
000002

3GAC1052)
O03-0uL=-79
MAIN PROGRAR

000074

8
PAGE 99

SEQ 0097

BR
157
JSR

4%
(SP)+
PC,SRAND

: CONTINUE
;CORRECT THE STACK POINTER
;CYCLE THE RANDOM NUMBER GENERATOR

151
(mPB
BNE

(SP) ¢
#2 ,9NCODE (RO)
RANXIT

;CORRECT THE STACK POINTER
;SEE IF WRITE DATA
:BR IF NOT WRITE DATA

10:41

RANSI?Z

:TRY AGAIN

ag}?

;GET

A RANDOM PATTERN NUMBER

4912

017236

004757

017%2

6914
«g}S

017246
017254

012760
0002G7

177777

(913

0172642

110560

000075

RANPAT:

000104

JSR

PC,GETPAY

Move

RS,SNPATC(ROD)

RANXIT: MOV
RTS

#-1,SNEXT(RO)Y
PC

;GEY

PATTERN (CODE

:MOVE PATTERN CODE 70O (ONTROL BLOCK

;SET PARAMETERS SELECTED INDICATOR
:RETURN

L9116

431;
W9

;ROUTINE

T0O

SELECT

A WRITE

(OR WRITE

CHECK)

OPERATION

4919

017256

012705

000004

RANWRT: MOV

24 ,RS

;WRITE OPERATION SELECTION DIVISOR

4921

017266

005737

001424

191

AUTOCK

:ARE WRITE

6920
4922

017262

004737

6923

017272

001403

4926
4927

017302
017306

020527
101015

017316

001407

4924
4925

017274
017300

4928

017310

4930

017320

4929

4931

4932

017326

01733

BEQ

000002

132760

000002

000024

116060

000024

000074

000001

1%:

000002
000002
001416

2%:
3%

000001
000074

052705
005737
001002
042705

ngg

017360

000207

110560

9000074

#?2,RS
1%

B1718

#2,8CODE(RD)

(mp
BHI

RS, #1
1%
2%

;GET SELECTION (ODE
JRANDOMLY

:BR

CHECK ORDERS T0O BE

THEY ARE

:WRITE CHECK SELECTED
;BR 1F NOT

;PREVIOUS WRITE OPERATION ?
:BR

$CODE (RO) ,$NCODECRO)

B8R

5¢%

PREVIOUS WAS READ OR WRITE

:MOVE CODE TO °*NEXT CODE®

#2 ,8NCODE (RO)

;CHANGE WRITE

BIS
181
BNE
81

¥2,RS
FORMAT
43
#1,RS

;CHANGE WRITE (HE(K TO WRITE
;WRITE HEADER ORDERS ALLOWED ?
:BR IF THEY ARE
JALTER POSSIBLE WRITE HEADER

RTS

MOvB

RS ,$NCODE (RO)

SELECTED

:SET CODE TO EXCLUDE WRITE (ME(X ORDERS
;COMPLETE SELECTION

MOVB
BI(B

5¢:

PC,GETRENM

BISB
BR

BEQ

142760

000411

017336
01732
017346
017350

01735

JSR

152705
000420

49%7
493«
4935
4936

6937

027124

JEXTT

JSETUP NEXT®
;RETURN

TO WRiTE (HE(KX

CODE

434?
694

6942
49643
4944
4945

4946
4947
4948

aggg

JROUTINE

017362
017366
017372
017374

017376
017402
017404

017406

012705
004737
005705
001003

004737
000767
006305

000007

000020
027124

032462

TO SELECT

GETPAT: MOV
JSR
151
BNE

JSR

1%:

BR
ASL

RYC

A PATTERN

#20,RS
PC,GETREM
RS
1%

PC,SRAND
GETPAT
RS
P(

:SELECT PATTERN
:GEY CODE
;WAS PATTERN ZERQ SELECTED ?
:BR If NOT ZERO

:CYCLE THE RANDOM NUMBER GENERATOR
;TRY AGAIN
sMAKE CODE INTO TABLE INDEX

4951

:ROUTINE

4953
4954
4955

:
N
:

4952

4956

<957

JCALL:

;

TO GET

Moy
JSR
JSR

RETURN

THE PREVIOUSLY SELECTED PARAMETER VALUES

#DPB,RO
PC,SELPAR
PC,GETPAR

:0OPB ADDRESS
JSELECT THE PARAMETERS

(HECK

CIRJDDO, RPGCL/S/6 MLT-DR LGC
06-JUN-79 08:32
C7RJDD LN

17470
7676
7500
7506
7512
7520
7526
7534
7542
7550
7556
7562
7570
7576
7600
7606
7612
7614
sl
el
il
D
B
i
il
D
il
D
D
)
ol
il

4962
6963
4964
4965
4966
L4967
4968
4969
4970
6971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
<987
4988
4989
4990
4991

4960
4961

017410
017412
017420
017426
017430
017436
017444
017446
017452
017456
017462

OCOOOOOO0OO0OOOOOOOOOO

(958
%959

010546
116060

032760
001007
016060

016060
000411
004737
112660
112660
016060
032777
001043
116060
116005
116560
116060

016060
016060
016060
016060
005460
012760
032760
001403
262760
005060
012605

MACYY)

000234
000006

000027

000012
000010

000034

022402
000033
000032
000272
000100
000074
000074
001760
000075
000076
000100
000102
000102
000004
000400
000001
000004
000104

30AC1052)

MAIN PROGRARM

GETPAR:

0000746

MOV

Mov
BR

JSR
Move
move

MOV

B17
BNE

000024

MOvB

MOVB

000002
000030
000010
000012
000020
000004

MOVB
MOVB
MOV
MoV
MOV
MOV

000022
000024

MOV
B17
BEQ
ADD
(LR

000022

NES

MOV
RTS

000207

10:41

4993
6994
4995

016111

001403
062701
000772
000207

4996
4997
4998
4999
5000
5001
5002

000002

(MPRES:

000002
1$:

MOV
BEQ

PAGE

100

Sta 0098

RS,=(SP)

:SAVE

#6,8NCODE (RO)

:SEE

$SRP(S1(RO),$PREVO(RO)

1k 3

;SAVE

32EC(R0).$PRFVA(R0)

(URRENT

PARAMETERS

OPERATICN

:SAVE

STARTING CYLINDER

;BR IF EITHER

$SCYL(RO),SPREVA+2(R0)

[S READ OR WRI'E

;SAVE STARTING SECTOR AND TRA(K

PC,READDR
;GET TME DECREMENTED SECTOR AND TRACK
(SP)+ ,$PREVA+1(RO)
;TRACK ADDRESS
(SP)+ ,SPREVA(RO)
;SECTCR ADDRESS
:CURRENT CYLINDER
SRPCC(RO) ,$PREVA+2(R0)

#5w06,85uWR

:SWITCH 6 SET 2

COMTIBL (RS),$COMND(RO)
:RPO& COMMAND CODE
SNPATC(RO) ,$PATTIC(RO)
;PATTERN (CODE
SNSEC(RO),$SEC(RO)
;TRACK AND SECTOR ADDRESSES
SNCYL(RO),8CYL(RO)
;CYLINDER ADDRESS
$SNWRDL
(RO) ,$WRDL (RO)
:BUFFER SIZE

L
(RO) ,$WRDM(RO)
SNWRD

$SWRDM(RO)

;WORD COUNT FOR THE RH11

;COMPLEMENT 17

#256.,9SSET(RO)
#1,8CODE (RO)
3%
#4,8SSEC(RO)

;INITIAL VALUE OF SECTOR SIZE
:HEADER OPERATION ?
«BR IF NOT
;ADD HEADER SIZE

;RETURN

SNEXT(RO)
(SP)+,RS

;RESET 'PARAMETERS LOADED®
;RESTORE RS

INDICATOR

;COMPRESS LIST

THIS ADDRESS

STARTING AT

IN R!

2(R1),(RD)

; COMPRESS THE TABLE

(MPRES

; (ONTINUE COMPRESSING TABLE

ADD

1%
¥ ,R1

BR
RTS

;BR WHEN JERO FOUND
; INCREMENT R1
sRETURN

;ROUTINE 10 SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE CF

;CALL:
:

5003
5004
5005

5006
5007

MOV
MOV

#DPB,RO
#-1,8PACK(RO)

:DPB ADDRESS
;'WRITE PACK'

MOV

8, $PACK(RO)

;'READ PACK'

JSR

PC,WRTPK

JSR

PC,SRAND
$OPERC+2(RO)
WRTPK1
SCFERC(RD)
WRTPK1

THE DISK

FLAG
FLAG

RETURN
[(elelolele]

17634
17640
17644
17646
17652

004737
00576V
001007
005760
001004

032462
000040
000036

WRTPK:

151
BNE
151

BnE

ADDRESSES

;BR IF SET
i
$NCODE (RO),$CODE(RO)
;LOGICAL CODE FOR OPERATION
:LOAD RS FOR USE AS TABLE INDEX
$NCODE(RO),RS

sROUTINE 1O COMPRESS A LIST
s CALL:
#ADDRS,R1
;
MoV
PC,LMPRES
JSR
;
:
RE TURN

4992

5008
5009
5010
SO0
5012
5013

MovB
BNE

1%:

161442

MOV

000032

00003«

03-4uL=79

;CYCLE THE RANDOM NUMBER GENERATOR
:SEE IF FIRST OPERATION
;BR 1F UPPER WORD OF COUNTER NOT JERO
;LOWER WORD ZERO ?
;RR [F NOT 1ST OPERATION

5014
5015
5016
5017
5018
5019

17654
17660
17662
17664

50264
5025
5026
5027
5028
5029
5030

5365
5066
5067
5068
5069

000026

1160060

000234
022402
000033
000032
000272
000242
000270
000012

000012
000106

000011

000112

000114
000120
000110
026724
000020

000011
000010
000012

000470

004737

016060
016060
016060
026060

5023

5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
5064

105760
100503

112660
112660

5020
5021
5022

103427
101004
126060
101422
116060
116060

016060
004737
032777
001003
005726
000137
013760
013760

020126

MACY11

005462
001404
001404
000004
000026

30A(1052)

03-JuL=79

MAIN PROGRAM

1518
BM]

000027

WRIPK1:

BR
MOVB
JSR

MOvVB

MOvB

000034
00001C

MOV
MOV
MOV

1$:

MOVB
MOV

JOR

811

161132

000020
000004

(mp
BLO
Bkl
(mPB
BLOS
MOVB

2%:

000404
000005
000173

000022
000024
000002

WRTPKZ2:

000400
000002
000161
017362
000030
000104

000022
000024
000002

WRTPK3:

BNE
167
Jmp

MOV

NEG
1518
BM]

MOV

MOVB
MOVB

B8R
MOV

MOVB
MOvB

JSR

WRTIPK&G&:

MOvVB
(LR
RTS

10:41

8
PAGE

101

Sea 0099

SPACK(RO)
WRT1PK3

;SEE WHICH - 'R' OR ‘W'
;BR IF ‘W’
WRTPK?
;'R’ OPERATION
SRPCST(RO) ,$PREVO(RO)
;SAVE CURRENT PARAMETERS

PC.READDR
;GET THE DECREMENTED SECTOR AND TRA(CK
(SP)+ ,$PREVA+1(RO)
,TRACK ADDRESS
(SP)+ ,$PREVA(RO)
;SECTOR ADDRESS
;CURRENT CYLINDER
$SRPCC(RO) ,$PREVA+2(RO)

$RPDA(RO) ,$SEC(RO)

SRPCA(RO) ,$CYL(RO)
$CYL(RO) ,MAXCYL(RO)

2%
1%

;NEW SECTOR & TRACK ADDRESS
;NEW CYLINDER ADDRESS
,SEE IF AT END

;BR IF LESS THAN "MAXCYL'
;BR IF GREATER THAN °'MAX(YL'

;SEE IF AT MAX TRACK
$TRK (RO) ,MAXTRK (RO)
2%
;BR IF NOT GREATER
MINTRK(RO) ,$TRK(RO)
;RESET TRACK ADDRESS
MINSEC(RO) ,$SEC(RO)
;RESET SECTOR ADDRESS
MINCYL(RO),$CYL(RO)
;RESET CYLINDER ADDRESS
PC,EOP2
;OROP THE DRIVE (NORMAL TERMINATION)
#Sw04 ,aSWR

;1S

SWIT(H 4

SET

2%
(SP)+
MAIN

;BR IF SET
; INCREMENT THE STA(K POINTER
;RETURN DIRECTLY TO 'MAIN’

$WRDOM(RO)

; CHANGE WORD COUNT TQO 2'S C(OMPLEMENT

MAXDL ,$WRDL (RO)
MAXDL ,$WRDM(RO)

;BUFFER SIZE
WORD COUNT

1S MAX]IMUM

$PACK(RO)
;READ OR WRITE ?
WRTPK3
;BR IF WR]TE
#260,,9SSEC(RO)
;SECTOR SI1ZE FOR READ
#5,$CODE(RO)
;CODE FOR READ HEADER & DATA
#RDHD ,$COMND(RO)
;DRIVE CODE FOR OPERATIOMN
WRTPK4
;SET UP FOR EXIT
#256. ,$SSEC(RO) ;SECTOR SIZE
#2,$CODE(RO)
;CODE FOR WRTDAT
#WRTDAT ,$COMND(RO)
;0P (ODE
PC,GETPAT
;GET PATTERN (ODE

RS,$PATTC(RO)

sPATTERN (ODE

:RETURN

SNEXT(RO)

;CLEAR 'PARAMETER SELECTED®

INDICATOR

ROUTINE 10O DETERMINE OF ERROR IS AT A LOCATION ON THE PACK DEFINED
.CALL.

M
:
:

020130
020130
020132
020134
020140
020142
020146
020152

SPOTCK:

000124

000020
000272

1¢:

IN THE BAD TRACK/SECTOR TABLE

PC,SPOTCK
JSR
RE TURNI
RE TURN?

MOV
MOV
MOV
ADD
MOV
(mpP

BNE

R1,=(SP)
RZ,=(SP)
#$BOSEC,R)
RO,R1
#e6. R
(R1),8RPCC(RO)
4%

FOR THE

DRIVE.

;ERROR AT AN ADDRESS IN TABLE

;NO TABLE ENTRY FOR ERROR ADDRESS OR
;PARAMETER 'NOTPRT' IS O

;:PUSH R1 ON STACK
::PUSH R2 ON STACK
: INCREMENT FOR BAD SECTOR TABLE
;ADD THE BLOCK'S STARTING ADDRESS
;BAD SECTOR TABLE SIZE COUNI
;1S CYLINDER IN THE TABLE ?
.BR

NOI

ADDRESSES

lala)

(lRJDDO§1$P06/S/6 ML1-DR LGC
CIRJDD.
06-CUN-79 08:32

(IRJDDO, RPO&/S5/6 MLT-DR LG(
CIRJDD.PIY
06-JUN-79 08:32
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086

5087
5088
5089
5090
S09
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101

020154
020160
020162
020166
020172
020174
020200
020202
020204
020206
020212
020214
020216
020220
020224
020226
020230
020232
02023¢
020236
020242
020244
020252
020260
020260
020262
020264

105761
100426

004737
122661

0010
105761

100002

005726
000414
122661

001002
000410
005726
062701
005711

MACYT1

30A(1052)
03-4uL=-79
MAIN PROGRAM

1STB
BMl

000003
022402
000003
000002

2%:

000004

100411

005302
001345

000406

005737

001006
012737

062766

9% :

001426
177777

000002

001264
000004

?::

012602
012601
000207

YO NS W= OO0~
NE NN —= OO0V

D
e
el rd e
il e
i
il
b
i e
i
i e
sl
i
i
—

Sea 0100

;BR 1F ONE

(SP)¢

5¢%

(SP)+,2(R1)
4%

ADD
11

f6 R
(R1)

:DECREMENT THE SECTOR/TRACK ADDRESS
:COMPARE THE TRACKX ADDRESS
:BR IF IT 1S NOT EQUAL
;1S A SECTOR ADDRESS IN THE TABLE ?

:INCREMENT

(MPB
BNE

THE

STACK

:DISPLAY THE MESSAGE

POINTER

;COMPARE THE SECTOR ADDRESS
;BR IF NOT EQUAL

5%
(SP)+

sCHECK 'NOTPRT
:INCREMENT THE STACK POINTER

BMI
DEC
BNE
BR
157
BNE
MOV

6%
R2
1%
6%
NOTPRT
7%
#-1,BADSEC

:BR IF PAST
:DECREMENT THE MAXIMUM ENTRY (OUNIT
:BR IF MORE 10 (MEC(K
JEND, EX]T
;PRINT THE ERROR ANYWAY ?
;BR IF NOT
:SET THE INDILATOR FOR THE IDENTIFICATION L INE

MoV

(SP)+,R2
(SP)+,R1

::POP STACK

B8R
187

ADD

#2,4(SP)

MOV
RTS

;60 TO THE NEXT
:PAST THE TABLE

LOCATION IN
ENTRIES ?

;INCREMENT

RETURN

THE

TABLE

INTO R2
::POP STACK INTO R}

:RETURN

";""t""""""""""""""'l"""t"'.I'.'.'."".l"l'

LSBTTL

ERROR MESSAGE GENERATION ROUTINES

"".".""'".""'""""""""""'t'.'il'.!'.ll"'tt."'.l'

;PRINT LINE
D THH:MM:SS!
N IV SV IV IV IV SV LV VW TV SV LV SV LV W LV LV VU AV AV,

102

:TRACK ENTRY
:BR IF NOT

PC,READDR
(SP)+,3(R])
3%
2(RD)

PAGE

3(R1)
5%

JSR
(MPB
BNE
1518

BPL

000002

10:41

020206

020274
020276
020302
020310
020312
020316
020320
020324
020330

032777
001402
104401

032777
001403
104414
000404

004737
104414

000207

002000

160644

tINEY:

001160
020000

160630

1%:

001165

023536
05232¢

2%:

ERROR MESSAGE:

;SWITCH 10 SET 2

#SW10,a5wR
1%

:BR 1F NOT

B17

#SW13,35WR

SINHIBIY

RTS

BEQ

TYPE

LOBELL

;RING THE

;:BR 1f NOT
:CR-LF
JEXIT
;TYPE THE TIME
JSPACES

2%
,$CRLF
3%
PC,$TIME
,LINSPO

BEQ
DISPLY
RR
JSR
DISPLY

BELL

TYPEOQUT

:RETURN & TYPE DESCRIPTION

;PRINT LINE 2 OF ERROR MESSAGE

; "PRESENT ORDER = xXxXxX
PREVIOUS ORDER = xxxx'
;'* ERROR A1 BAD TRACK/SECTOR’

;'DRV RPCS1
; "RPW(
; 'RPSN

RPBA
RPOF

RPCS2

RPDA
RPCA

RPDS)

RPAS
RPCC

RPER1

RPER2

RPLA
RPDB
STATUS'

;"BUS ADDRESS OR WORD COUNT NOT CONSISTENT'

;'RPBA = XXXXXX

RPW(C = xXxXxxxx*

RPER3

RPMR

RPEC(!

RPDT'

RPEC2®

CZRJIDDO, RPO4/5/6 MLT=DR LGC
06-JUN-79 08:32
CZRJDD.P11

MACY11

K 8
30A(1052)
03-JuL=-79
10:41
PAGE 103
ERROR MESSAGE GENERATION ROUTINES

]

b e

b Sd o

el e

sand md) o

ek o

e e

el md ed e

i e

D e

~
OONNNNNNNNNY~NOOCOOOCOO
OO
VNWVWNWTNNWIWVWNWNAL
—_=OOVONO VNN
= O OVONO WV NN =OVONO NS NN =000~ o

i e

)

D el

D o

il o

(U T TV IV TV YV IV IV IV TV TV IV IV TV IC AV LV IV U U IV TV LU JV JU LV U LV IV IV IV IV TV IV IV IV IV TV IV IV IV TV TV TV IV TV, IV IV TV IV TV IV 1V IV

:"BUFFER ADR = XXXXXX
020332
020332
020334
020336
020340
020344
020350
020352
020360
020364
020370
020374
020400
020402
020410
020414
020420
020424
020426
020430
020434
020436
020442
020444
020446
020450
020452
020454
020456
020464
020470
020472
020474
020476
020500
020502
020506
020510
020514
020520
020524
020530
020534
020540
020544
020550
020554
020560
020566
020570
020574
020600
020604
020610

010346
010446
010546
104414
005037
005004
012737
116004
042704
004737
005737
001440
012737
116004
042704
004737
000426
005005
126504
001405
105765
100402
005205
000770
006305
006305
006305
012737
060537
104414
000000
104414
000000

000207
005737
001404
104414
104414
104414
104414
104414
013746
004737
104414

012705
004737
032777
001014
104414
012705
004737
104414
012705

LINEZ:

Mov
Mov
MOV
DISPLY
CLR
CLR

001165
020472
050410
000234
177701
020426
020476

020472

050431
000027
177701
020426

020472

Mov
MOvVB

BIC
JSR
1ST
BEQ

MOV
MOYB

BIC
JSR
BR
CLR
CMPB
BEQ
1518
BM]
INC
BR

001766
001766

3%:

002010
020476

020476

.
4%:

001165
050455
001165
050004
052324
001246
022362
052323
050330
020704
000040

050110
050352
020704
050207
050374

R3,-(SP)

::PUSH R3 ON STACK

R5,=(SP)

::PUSH R5 ON STACK
:CR-LF
:CLEAR MESSAGE ADDRESS STORAGE
sWORKING REGISTER
:ADDRESS OF 'PRESENT ORDER = ' MSG
:GET THE OPCODE

R4 ,=(SP)

LSCRLE

4%
R&
FLIN2C,4%
)
R4
$RPCS1(RO
NC76,R4

5%
LINE2A

FLINZP,4%

)
,R4
SPREVO(RO
#"C76,R4
PC,1$

LINE2A

RS
OPTBL (R5),R4

::PUSH R4 ON STACK

:SAVE ONLY SIGNIFICANT BITS
:TYPE THE FIRST MNEMONIC
:SEE IF MNEMONIC ENTRY FOUND
:BR IF NOT

:ADDRESS OF °'PREVIOUS ORDER = ' MSG

:PREVIOUS OPERATION CODE
:SAVE ONLY SIGNIFICANT BITS
:TYPE THE PREVIOUS MNEMONIC
s CONTINUE
:CLEAR THE TABLE INDEX
:LOOK FOR THE OPCODE
:BR WHEN OPCODE COUNT EQUALS OPCODE
:LOOK FOR END OF TABLE
:8R IF END
: INCREMENT THE POINTER
:CONTINUE - NOT END OF TABLE
sSHIFT INDEX
:SHIFT THE INDEX
:SHIFT THE INDEX
:ADDRESS OF ASCI] TEXT TABLE

ASL
ASL
ASL

ADD

R5,5%

;ADD THE

:ADDRESS OF 'PRESENT' OR 'PREVIOUS' MESSAGE
:TYPE THE OPERATION MNEMONIC

Moy
DISPLY

BEQ
DISPLY
DISPLY
LINEZB: DISPLY
DISPLY
DISPLY
MOV

JSR
DISPLY

#MNTBL,5%

BADSEC

LINEZB
SCRLF

LIN2S
+SCRLF
.DH14
LINSPO

UNIT,=(SP)
PC,LINDEC

JTYPE

INDEX

:ADDRESS OF MESSAGE

:RETURN TO MAIN ROUTINE

:PRINT THE BAD SECTOR LINE ?
:BR IF NOT
:CR-LF
:E:RO? ADDRESS DEFINED AS BAD AREA
sCR-L

:STANDARD RP04/5/6 REGISTER HEADER

sTYPE A SPACE

:PUT THE DRIVE NUMBER ON THE STACK
:TYPE DRIVE NUMBER

#SW05,aSWR
1%

:SPACES
sREGISTER INDEXES
:PRINT THE REGISTERS
:PRINT THE OPTIONAL REGISTERS ?
:BR 1F NOT

MOV

#DT15,RS

:SECOND DATA LINE

MoV

#DT16,R5

: THIRD DATA LINE

MOV

160352

ACTUAL NMBR WRDS XFRD = Xxx'

3%
OPTBL(R5)
3%
RS
2%
RS
RS
RS

.WORD
DISPLY
5%:
.WORD
RTS
LINEZA: 151

001264

SIZE = XXXX

SEQ 0101

JSR
Bl
BNE
DISPLY

JSR
DISPLY

LINSP

#DT14,RS

PC,3%

,DH15

¢PRINT

THEM

CIRJDDO, RPO&L/S/6 MLT=-DR LG(
CIRJDD. P\\
06-JUN-79 08:32
5182
5183
5184
5185
5186

020614
020620
020626
020630
020634
020640
020642
020646
020652
020654
020660
020664
020670
020674
020674
020676
020700
020702
02070¢
020706
020710
020714
020720
020722
020726
020730
020732
020736

006737
032760
001422
016046
066C16
006316
066016
022660
001410
104414
1046414

004737
004737
012605
012604
012603
000207
012546
060016
017646
004737
005726
106414

005715
001365
1044614

000207

0207064
000100

MACY1T

000016

18:

000020
000236

021414

PC,3$

;PRINT THE REGISTERS

BEQ

:BR

(SP)
$BUF (RO),(SP)
(SP)+,SRPBACRO)
2%

:CONVERT TO AN BYTE INCREMENT
:BUFFER STARTING ADDRESS
:CORRECT BUFFER ADDRESS ?
:BR IF YES

052323

001165

:"BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT'

JSR
JSR

PC,LINE3D
PC,LINEG

SPRINT LINE 3D OF ERROR MESSAGE
:PRINT LINE & OF ERROR MESSAGE

MOV

(SP)+,RS

:;POP STACK

MOV
RTS

(SP)+,R3
PC

::POP STACK INTO R3
“RETURN TO ERROR PROCESSING ROUTINE

ADD

RO, (SP)

MOV

151

48:

,EM&46

JSR
181
DISPLY

022330

IF NO~

DISPLY

MOV

000000

;DATA ERROR

SWRDL
(RC) ,=(SP)
SRPWC(RO),'SP)

MOV

38:

#B176,$TATUS(RO)

MOV
ADD

DISPLY

’

SEaG 0102

JSR

BIT

ASL
ADD
(MP
BEQ

000006
000240

047377
001165
020776

30A(1052)
03-JuUL=-79
10:41
PAGE 104
ERROR MESSAGE GENERATION ROUTINES

BNE

DISPLY
RTS

,S$CRLF

(SP)+,R4

(RS)+,=(SP)

2(SP),=(SP)*

; TRANSFER SIZE
:ADD REMAINING WORD (OUNT

CR-LF

::POP STACK

INTO RS

INTO R4

:PUT THE REGISTER INDEX ON THE STACK
SADD DRIVE'S TABLE ADDRESS
:VALUE

PC,LINOCT ° ~
(SP)+
,LINSP

:TYPE IT
:CORRECT THE STACK POINTER
IPRINT 2 SPACES

:BR

(RS)

,SCRLF
PC

:AT

END OF

:CR=LF
:RETURN

NOT

LINE

;PRINT LINE 3 OF ERROR MESSAGE
;"ERROR AT (CCC TT SS
PREVIOUS ADR = CCC TT sS'
020740
020744

104414

000517

050511

LINE3:

DISPLY

,LINM3

LIN3

;LINE 3 ENTRANCE

;FINISH PRINTOUT

;PRINT LINE 3A OF ERROR MESSAGE
;"START (YL - CCC

020746
020752

104414

000514

050527

LINE3SA: DISPLY
BR

END CYL = CCC'

,LINN3

LINI

:LINE 3A ENTRANCE

;FINISH ERROR LINE

;PRINT LINE 3B OF ERROR MESSAGE
;'START (CvL = CCC
END CYL = CCC
020754
020760
020764

004737
104614

000207

021316
001165

LINE3B: JSR

DISPLY
RTS

PC,LIN3.3
,SCRLF

:LINE 3B ENTRANCE

;PRINT LINE 3C OF ERROR MESSAGE
END CYL = (CC
;'START CYL = CCC
020766
020772

004737
000137

LINE3C: JSR
JMP

ACTUAL CvL - cCcC’

PC,LIN3.3
LIN3.4&

;PRINT LINE 3D OF ERROR MESSAGE
RPWC = XXXXXX'
;'RPBA = XXXXXX

ACTUAL CyL = (CC

;LINE 3C ENTRANCE
;FINISH MESSAGE

TRk = "T°

CIRJDDO, RPO4/5/6 MLT=DR LGC

CIRJDD.PI
5238

5239

5240
5241
5262
52643
5264
5245
5246
5247
2%:8

06-JUN-79 08:32

020776

021004
021006
021012
021016
021022
021026
021032
021036
021042

032777

001416
104414
016046
004737
1044146
016046
004737
104414
000207

000040

MACY11

30A(1052)

160134

LINE3D: BiT

050700
000240
022330
050710
000236
022330
001165

ggbg
6

021044
021050
021054
021060
021064
021070
021072
021076
021102
021106
021112
021114
021120
021124
021130

104414
016046
004737
104414
104416
005046
116016
004737
104414
104414
005046
116016
004737
104414

000207

050574
000012
022362
(052323
050722

LINE3SE: DISPLY
MOov
JSR
DISPLY
DISPLY
CLR
MOvVB
JSR
DISPLY
DISPLY
(LR
Mmovs
JSR
DISPLY

000011
022362
052323
050737
000010
022362
001165

021132

032777

000040

5276
5275
5276
5277
5278
5279
5280
5281

021142
021146
(021152
021156
021162
021166
021172
021176

1044146
016046
004737
104414
104414
016046
004737
104414

050670
000242
022330
052323
050657
000270
022330
001165

021140

021202

001420

000207

RTS

5293

160000

LINE3F: BIT

BEQ

1%:

DISPLY
MOV
JSR
DISPLY
DISPLY
MOV
JSR
DiSPLY
RTS

;'CCC 7T SS

g%gg
5286
5287
5288
5289
5290
5291
5292

s
PAGE 105

#SwW05,35wR

SE0 0103

JSWITCH 5 SET ?

1%
;BRIF IT IS
,LINB3
;'RPBA = *
SRPBA(RO) ,-(SP)
;BUFFER ADDR REG CONTENTS
PC,LINOCT
;CONVERT TO OCTAL AND TYPE 1T
,LINW3
;'
RPW(C =
$RPWC(RO),=-(SP)» ;WORD COUNT REGISTER CONTENTS
PC,LINOCT
; CONVERT TO OCTAL AND TYPE 17
,SCRLF
PC

START TRK = T1

,LINS3
$SCYL(RO),-(SP)
PC,LINDEC
,LINSP
,LINST}
=(SP)
$TRK(RO), (SP)
PC,LINDEC
,LINSP
,LINSS3
=(SP)
$SEC(RO), (SP)
PC,LINDEC
,$CRLF

START SEC = SS°'

;'START (CvL = '
;MOVE CYL TO STACK
;TYPE IT IN DECIMAL
s SPACES
;'START TRk = °
;CLEAR STACK
;TRACK 10 STA(K
;TYPE IT IN DECIMAL
: SPACES
:*START SEC = °
;CLEAR STALK
;SECTOR ADDR 10 STA(K
;TYPE IT IN DECIMAL

;PRINT LINE 3F OF ERROR MESSAGL
:'RPDA = XXXXXX
RPCA = XXXXXX'

5272

gggg

eeaQ
DISPLY
MOv
JSR
DISPLY
MOV
JSR
DISPLY
RIS

;"START (YL = (CC

5269
gg;?
5273

;PRINT LINE 3E OF ERROR MESSAGE

g%g;

5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5266
5265
5266

10:641

ERROR MESSAGE GENERATION ROUTINES

1%:

5250

03-JuL=79

021204
021210
021214
021220
021224
021230
021234

021240

016046
004737
104414
004737
004737
104414
004737

104414

000272
022362
050524
022402
022362
050550
022362

050553

LIN3.1: MOV
JSR
DISPLY
JSR
JSR
DISPLY
JSR

DISPLY

#SWS5,asuR

;SWITCH 5 SET 2

,LINDA3
$RPDA(R0) ,-(SP)
PC,LINOCT
,LINSP
,LINCA3
$RPCA(RQ),-(SP)
PC,LINOCT
,SCRLF

;'RPDA = *
;PUT SECTOR/TRACK ADDRESS ON THE STA(K
STYPE |7
s SPACES
;' RPCA =°
;PUT DESIRED CYLINDER ADDRESS ON THE STACK
STYPE 1T

;BR IF NOT

PREV ADR = CCC TT SS°
$RPCC(RO),=(SP)
PC,LINDEC
,1
PC,READDR
PC,LINDEC
.S
PC,LINDEC

,LINP3

;PUT CYLINDER ADDR ON STA(K
STYPE 1T IN DECIMAL
JPRINT ' T°
;DECREMENT TRACK AND SECTOR ADDRESSES
;1YPE TRACK IN DECIMAL
;PRINT * §°
;TYPE SECTOR ADDRESS

;PRINT 'PREV ADDR'

CIRJDDO, RPO4/5/6 MLT=-DR LGC
06-JUN=7 9 08:32
CIRJDD. P11
5294
5295
5296
5297
5298
5299
5300
5301
5302

021244
021250
021254
021260
021262
021266
021272
021276
021300
021304
021310
021314

016046
004737
104414

005046
116016

004737
1064614

005046

116016

004737
1046414

000207

MACY11

000034
022362
050526

MOV

000033
022362
050550

MOvVB

JSR
DISPLY
(LR

JSR
DISPLY
CLR
MOvB
JSR
DISPLY
RTS

000032
022362
001165

N AN LN NN

SV IV IV TV TV IV SV AV SV TV SV IV SV W LV W SV LV LV LV IV RV IV LV SV TV TV RV LV IV LV LV IV IV TV IV IV IV ]
N

NI
— 2 b
i ed b b e
P ol P
olo9 o
[l olP NV IV IV TV VIV IV IV ] WAWNRNONINOPNORNINIPNONI
N WVE NN
OOV
NO VW
—O
30 ~NO WD v} = OV
~NO NN
-2 OOV

\:WWWWWWWWWWWWWU‘MWWWWWWWWWU‘U‘WWWU‘U‘WW

;"START

349

021316
021322
021326
021332
021336
021342
021346

1046414

016046
004737
106614
016046

004737
000207

Mov

JSR
DISPLY

MOV
JSR
RTS

;ACTUAL CyL =

021350
021354
021360

021364
021370
021374
021376
021402
021406
021412

104414

013746
042716
0604737
104414

005046
116016

004737
104414

000207

LIN3.&: DISPLY

050626
054746
010000
022362
050646

Mov

BIC
JSR
DISPLY
(LR
MOvB
JSR
DISPLY
RIS

000243
022362
001165

PC,LINDEC

;TYPE

-(SP)
SPREVA(RO),(SP)
PC,LINDEC
fitCRLF

;MAKE ROOM ON THE STA(K
PREVIOUS SECTOR DDRESS
;TYPE T IN DECIMAL

;PRINT

032760
001427
104414

016046
004737
104414

016046
166016
006216

004737
104414

000207

0001060

000016

LINE4:

050754
000006
022330
050773
000020
022362
051005
000240
000006

022362
001165

IN DECIMAL

' S

LLINS3

CLINE "3E & 3(C" ENTRANCE

LLINEN3

;PRINT

'END CYL'

;PRINT

*ACTUAL'

SPREVA+2(RO) ,-(SP) ;PREVIOUS CYLINDER
PC,LINDEC
;TYPE IT IN DECIMAL

$SRPCC(RO) ,=(SP)
PC,LINDEC

ccc

;PRESENT CYLINDER
TYPE IT IN DECIMAL

IRK = TV

LINA3

CYLDER,=(SP)
#B1112,(SP)
PC.LINDEC

LLINTS

;ACTUAL CYLINDER
;CLEAR THE FORMAT BIT
;TYPE IT IN DECIMAL

;PRINT TRACK

=(SP)

;sCLEAR STACK WORD

PC,LINDEC
fi:CRLF

sTYPE

$RPDA+1(R0O),
(SP) ;PUT

TRACK ON STACK
IT

IN DECIMAL

ACTUAL NMBR WRDS XFRD

Xxx'

BIT
BEQ
DISPLY

#81706,8TATUS(RO)
;DATA ERROR ?
1%
;BR IF NO?

L INMS

: "PRINT BUFFER'

JSR
DISPLY

MOV

PC,LINOCT
LINSG
SWRDL
(RO) ,-(SP)

;CONVERT T0 OCTAL R PRINT
;PRINT *'SIZE®
;BUFFER S]ZE

MOV

LINXS
$RPBA(RO),-(SP)

;:"ACTUAL NMBR WRDS XFRD = ‘'
;VALUE IN BUFFER ADDR REGISTER

MOV

JSR
DISPLY

SuUB
ASR

1¢:

END CyL = ccCC’

;PRINT LINE & OF ERROR MESSAGE
SIZE = XXXX
:'BUFT R ADR = XXXXXX
021414
021622
021424
027430
021434
021440
021444
021450
021454
021460
021464
021470
021472
021476
021502

SeQ 0104

SPREVA+2(R0) ,-(SP) ;PREVIOUS CYLINDER
PC,LINDEC
TYPE 1T IN DECIMAL
.
:PRINT * T°
-(SP)
;MAKE ROOM ON THE STA(K
SPREVA+I(R(),(SP)
;PREVIOUS TRACK ADDRESS

(CvyL = CCC

LIN3.3: DISPLY

050574
000034
022362
050611
000272
022362

30AC1052)
03-JUL=79
10:41
PAGE 106
ERROR MESSAGE GENERATION ROUTINES

JSR
DISPLY
RTS

$BUF (RO),-(SP)

PC,LINDEC

$BUF (RO), (SP)
(SP)
PC,LINDEC

LOCRLF

SPRINT LINE 5 OF ERROR MESSAGE

;BUFFER ADDR ON STACK

STYPE

IN DECIMAL

;SUBTRACT STARTING ADDRESS
;CONVERT INTO A WORD COUNT
;TYPE IT IN DECIMAL

s CR=LF

;RETURN

MACY1Y

;600D DATA -

5350

5351

5352
5353
5354
5359
5356
5357
5358
5359
5360
5361
5362
5363

5364
5365
5366
5367
5368
5369
5370
537
5372
5373
5374
9375
5376
5377
5378
5379
5380
5381
5382
5383
5384
95385
5386
5387
5388
5389
5390
5391

5392
5393
95394
9395
5396
5397
5368
9399
5400
5601

021504
021510
021516
021522
021526
021532
021536
021542
021546
021552
021554
021560
021564
021566
021572
021576

021602

1064614

162760

017046
004737
104614

016046
0064737
016046
066016
005046
016046
004737
012616
106414

004737

104414
000207

051040
000002
000240
022330
051055
000256

000240

LINES:

DISPLY

SuB

BAD DATA

LLINDS

PC,LINOCT

JTYPE

$RPDB(RO) ,-(SP)

Mov
ADD

$RPWC(RO) ,~-(SP)
$WRDL
(RO) , (SP)

000022
027152

MOV

051073
022362
001165

DISPLY
JSR
DISPLY

JSR

MOV

RTS

:'GOOD' DATA - AT
1T

021634

021640
021644
021650
021654
021660
021664
021670
021674

013746
004737

051111
054746
022330

013746
004737

054750
022330

104414

013746
004737
104414

013746
004737
104414
104414

000207

LINESA:

052323

DISPLY

'BAD DATA'

;PRINT

PC,LINOCT

;TYPE

;MAKE

INTO A POSITIVE

;BAD DATA FROM BUFFER
:WORD LENGTH ON STACK

PC,LINKDV
(SP)+,(SP)
PC,LINDEC

;TYPE

$5SEC(RO),=(SP)

LLINPS
,SCRLF

;PRINT

'SECT POS'

THE

POSITION

052323
054752
022330
052323

JSR
DISPLY

PC,LINOCT

:TYPE

JSR
DISPLY

CYLDER+4,-(SP)

PC,LINOCT

JHEADER POSITION
;TYPE T

:SPACES
JHEADER POSITION

JSR
DISPLY
DISPLY

CYLDER+6,-(SP)

PC,LINOCT

MOV

RTS

.LINSP
(YLDER+Z2,-(SP)

+LINSP

,LINSP

LINSP
JOCRLF

104414

016046
004737
104414
104614
016046

004737
104414

000207

051145
000300
022330
052323
051156
000302
022330
001165

LINESB:

DISPLY

MOV

JSR
DISPLY
DISPLY

s SPACES

;TYPE T
;SPACES

1046414

051170

LINE6:

LLINEPS

;'RPECY

PC,LINOCT

JTYPE

$RPECT(RO) ,=(SP)

LINSP

LLINEOS

:SPACES
;'

RPEC?2 =
;PUT REGISTER CONTENTS ON THE

PC,LINOCT

;TYPE

RTS

;RETURN

LOCRLF

;PUT REGISTER CONTENTS ON THE STACK

$RPEC2(R0) ,=-(SP)

DISPLY

ERROR MESSAGE
RPECZ = XXXXxx'

;PRINT LINE 6 0" ERROR MESSAGE
;"SECTOR 1S ECC CORRECTABLE®
021740

FRROR SECTOR'

sHEADER POSITION +2

MOV

JSR
DISPLY

XXXAXNAN®

;PRINT LINE 5B Of
J'RPECT = XXXXXX

021676
021702
021706
021712
021716
021722
021726
021732
021736

:"HEADER CONTENTS OF

PC,LINOCT

Mov

054754
022330
052323
001165

,LINSS

CYLDER,=(SP)

XXAXXN

JSR
DISPLY

MOov

NUMBER

;UPPER DIVIDEND TO ZERO
;SECTOR SIZE ON THE STACK
;:DIVIDE WORDS XFERED BY SECTOR SIZE
;MOVE REMAINDER UP THE STA(K

-{(SP)

JHEADER POSITION
;TYPE T
;SPACES

MoV

THE BUFFER LOCATION

,LINBS

;PRINT LINE SA OF THE ERROR MESSAGE
XXOUXXX
XXXXXX
; '"HEADER FROM ERROR SECTOR
021604
021610
021614
021620
021624
021630

xxx'®

SECT POS

XXXXXX

;PRINT 'GOOD DATA'
;BACK THE ADDRESS uP

Mov

CLR

SEa 0105

#2 ,3RPBA(ROD)

83RPBA(R()) ,-(SP)

JSR

000020

XXX XX

Mov

JSR
DISPLY

022330
000236

95402

5403
95404
545

30A(1052)
PAGE 107
10:4)
03-4uL-79
ERROR MESSAGE GENERATION ROUTINES

.LINB6

sECC CORRECTABLE

STACK

(ZRJDDO, RPO4/5/6 MLT=-DR LGC
CIRJOD. Pl 1
06-JUN-79 08:32

5606
5407
5408
5409
5410
5611
5412
56413
95414
5415
5416
5417
518
5419
5420
5421
5422
9423
5424
9425
5426
5427
9428
5429
5430
9431
9432
5433
5434
5435
5436
9437
5438
5439
5440

5441
5442

5443
9444
95445
5446
54647
5448
9449
5450
5451
5452
9453
5454
5455
95456
5457
5458
5499
5460
5461

021744
021750

1046414
00020+

MACY1T

30A(1052)
03-JuL=-79
10:41
PAGE 108
ERROR MESSAGE GENERATION ROUTINES

001165

DISPLY

RIS

SEQ 0106

,SCRLF

;PRINT LINE 6A OF THE ERROR MESSAGE
;'SECTOR READ CORRECTLY AT OFFSET N'
021752
021756

104414
000411

051223

LINEGA:

DISPLY
BR

;PRINT "READ CORRECTLY AT OFFSET N'

,LINCG
LING.

;TYPE

THE

REST

THE

LINE

;PRINT LINE 6B OF

THE ERROR MESSAGE
;"SECTOR IS ECC CORRECTABLE AT OFFSET N'
021760
021764

1044146
000406

051170

LINEGB:

DISPLY
BR

;PRINT

,LINB6
LING.

'SECTOR

IS ECC

CORRECTABLE

;PRINT LINE 6C OF THE ERROR MESSAGE
;'CORRECTED ON NTH RETRY'
021766
021772

104414

000414

051252

LINEG6C:

DISPLY

;"CORRECTED ON NTH RETRY'

,LING6

LING.?2

;TYPE

THE

REST

THE

LINE

;PRINT LINE 6D OF THE ERROR MESSAGE
: '"UNCORRECTABLE AFTER N RETRIES'
021774
022000

10446414
000411

051301

LINEG6D:
;TYPE

022002
022004
022012
022014
02201¢
022022

006301
016137
1046414

000000
104414

000207

002240
001165

022014

THE

LING6.1:
1%:

JRETRY

022024
022026
022032
022036
02204¢
022C46

005046
113716
004737
104414
104414

000207

001253
022362
051270
001165

DISPLY

B8R

LIN6.2:

,LINUOG

OFFSET

ASL

MOV

DISPLY
LMWORD
DISPLY

VALUE

IN MICRO-INCHES

;DOUBLE

THE OFFSET

;OFFSET

VALUE

,SCRLF

COUNT

TYPEOUT

-(SP)
RETRY+1,(SP)
PC,LINDEC
L,LINR6
,$CRLF

;ADDRESS OF

106414

012746
060016
004737
004737
1046414
016046

004737

051354
000036

032660
027466
051433
000056
022362

LINE7:

DISPLY

,LINT7O

#$0PERC,-(SP?
RO, (SP)

Mov

$TOTAL (RQ) ,=(SP)

JSR

TAB

POS

INDEX
ION MESSAGE

MOV
ADD

JSR
JSR
DISPLY

OFFSET

;CLEAR STA(K
:RETRY COUNT
STYPE IT IN DECIMAL
;'RETRY

;PRINT LINE 7 OF THE ERROR MESSAGE
TOTAL ERRORS:XXX
:"ORDERS : XA XXX
022050
022054
022060
022062
022066
022072
022076
022102

AFTER N RETRIES®

RIS

;FINISH

OFMTBL(R1),1%

RTS

(LR
MOvVB
JSR
DISPLY
DISPLY

:"UNCORRECTABLE

LING.?2

PC,$0B2D
PC,$SUPRS
,LIN7T
PC,LINDEC

WRDS XFRD :OOOOXXX

;PRINT ORDER COUNT

;10 STACK
;ADD THE BASE

; CONVERT [T
JPRINT 1T

ADDRESS

: TOTAL ERRORS
;TYPE

;10 STA(K

IN DECIMAL

WRDS READ
1 0000(XX*

CIRJDDO, RPOL/S/6 MLT=-DR LGC
CIRJDD. P
06-JUN=79 08:32

1064414

5462
56463
5464
5465
5466
5467
5468

012746
060016
004737
004737
104414

012746
060016
004737
004737

5469
95470
5671
5472

il
el el
it
el
)

~NF RN NN
-

(U IV I AV TV LV JV ]
N IV IV RV RV SV 3V ]

5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
54,86
5487
5488
5489
5490
5491
5492
9493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505

104414
104414

022174

032777
0016401
000000
000207

DISPLY
Mov

051445

000046

ADD

JSR

032660
027466
051461
000052

032660
027466
001165
001165
100000

PAGE 199
30A(1052)
03-JuL-79
10:41
ERROF MESSAGE GENERATION ROUTINES

;PRINT 'WRDS XFR'
;ADDRESS OF LOW WORD ON STA(K

PC,$0B2D

; CONVERT

#SREAD,-(SP)
RO, (SP)

;LOW WORD ADDRESS

RC, (SP)

sPRINT
;'BITS READ'

PC,8S5UPRS
,LIN7R

JSR
JSR
DISPLY
DISPLY

PC,8082D
PC,9SUPRS
,$SCRLF
,SCRLF

; CONVERT
;PRINT

BtaQ
HALT

;BR IF NOT
JSWITCH 15 HALT

1$:

,LINT7X
#TRANS ,-(SP)

JSR
DISPLY

Mov
ADD

156750

Sea 0107

RTS

;SEE IF

SW15,a5uR
PC

;PRINT LINE 7A OF ERROR MESSAGE
TOTAL SEEKS-XXXXX
;'ORDERS : XX XXX
022176
022202
022206
022210
022214
022220
022226
022230
022232
022236
022242
022246
022252
022256
022262
022266
022272
022276
022302
022310
022312
022314

104414

012746
060016
004737
004737
10464614

012746
060016
004737

004737
104414

016046

004737

104414
016046
004737
104414
106414

032777
001401

LINEZA: DISPLY

051354
000036

001165
100000

000000
000207

PC,80B2D
PC,$SUPRS

:CONVERT THE C(OUNT
:PRINT [T

MOV
ADD

#8POSIT,-(SP)
RO, (SP)

:TOTAL SEEKS
;DEVICE TABLE

1%:

LLINTZF

;ADD BASE

TOTAL SK][,0CYL ERR

INCREMENT

;'TOTAL SEEKS - '

ADDRESS

:CONVERT THE SEEK COUNT
:PRINT [T

PC,$082D
PC,$SUPRS

MOV

$MISPO(RO) ,-(SP)

DISPLY

,LIN?S

#SW15,a54R
1%

;SEE IF HALT ON ERROR =~ SWITC(H 15 SET
:BR IF NO1T
JSWITCH 15 MALT

,LINTM

PC,LINDEC

MOV
JSR
DISPLY
DISPLY

$SK1(R0O),=-(SP)
PC.LINDEC
,SCRLF
,$CRLF

RTS

811
BEQ
HALT

xxx*

ADDRESS

JSR
JSR

JSR

156630

RO, (SP)

;ORDER COUNT

JSR
JSR

DISPLY

022362
001165

:"ORDERS =

#SOPER(C,=(SP)

DISPLY

032660
027466
051326
000066
022362
0514604
000064

LLINTYO

TOTAL MISPOS ERRTM XXX

MOV

ADD

032660
027466
051364
000042

'HALT ON ERROR' - SWITCH 15

TOTAL MISPOS ERR

;TOTAL ERRORS

;TYPE

IN DECIMAL

TOTAL SK1,0CYL ERR

;CONVERT & PRINT [T
;TYPE 1T IN DECIMAL

¢PRINT [ INE 8 OF THE ERROR MESSAGE
;'DIFFERENT ERROR DURING RETRY'
022316
022322
022326

106414

004737
000207

051476
020332

LINEB:

DISPLY
JSR
RTS

,LINBM
PC,LINE?
PC

;PRINT LINE 2 OF ERROR MESSAGE

;OCTAL TYPEOUT ROUTINE
;CALL:

;

MOV
JSR

RE TURN

NUM,=(SP)
PC,LINOCY

;PUT

THE

NUMBER ON THE

STACK

e
.
.

[Nl

MACYT1

" 13

(IRJDDO, RPOL/S/6 MLT=-DR LGC
CZRJDD. P11
06-JUN-79 08:32

5518
5519
5520
5521
9522

9523

9524
5525

022330
022334
022340
022344
022352
022354
022356
022360

016646
004737
012637
062737
104614

000000
012616
000207

000005

02¢35¢4
1%:

Sta 0108

2(SP),=(SP)

;PUT NUMBER [N PROPER LOCATION ON STA(K

mov
ADD

(SPYe, 18
£5..,19%

;GET THE ADDRESS OF THE ASCII STRING
;ADDRESS THE LAST 6 ASCII DIGITS

MOV

0
(SP)e,(SP)

LINGCT: Mov
J3R

00000?2
030116

022354

30AC1052)
03-JUL=79
10:41
PAGE 110
ERROR MESSAGE GENERATION ROUTINES

DISPLY
.WORD

RTS

PC,$5820

;CONVERT
;TYPE

THE

NUMBER

sADDRESS
:CORRECT THE
;RETURN

STACK

T0 OCTAL

C(IRJDDO, RPO&L/S5/6 MLT-DR LGC
06=JUN-79 08:32

CIRJDD AR

MACYI1

C(IRJDDO, RPO&/S5/6 MLT=DR LGC
06=JUN=-79 08:32
(IRJOD.PVI

F
9
30A(10952)
PAGE 111
'7:41
03-JUL=79
ERROR MESSAGE GENERAT,ON ROUTINES

;ROUTINE 10O CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WilTH
;LEADING ZERO SUPRESSION
;CALL:
mov

JSR

THE NUMBER ON THE

STA(K

NUM, = (SP)

;PUT

2(SP),=(SP)

;SET UP STACK FOR (ONVERT

PC.LINDEC

RETURN

022362
022366
022372
022376
022400

016646

004737
004737

012616
000207

LINDEC: MOv
JSR
JSR

000002
030066
027466

MOV

P(C,$582D
PC,$SUPRS
(SP)+,(SP)

k1S

;CONVERT
;TYPE IT
;RESTORE

[T 10 DECIMAL
(WITH LEADING ZEROS SUPRESSED)
STA(K POINTER

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

LSBTTL

GENERAL

SUPPORT

SUBROUTINES

.';""""""'""""""""""""'l't'"""""""""'0'

;DECREMENT THE SECTOR-TRACK ADDRESS

;CALL:

#DPB,RO
PC.READDR
JSR
RETURN
(SP) CONTAINS THE

022402
022406
022412
022416
022422
022430

022434
022436

022444
022452
022456
022460
022466
022470
022476

162706

016616
005066
005066
116066

005366
100015

012766
116066

005366
100007

012766
000403
116066

000207

000004
000004
000004
000002
000242
000004

READDR:

SUB

Mov

CLR

000004

000025
000243
000002

000004
000002

000022

000002

000243

000002

1%:

2%:

;DPB ADDRESS

MOV

2(SP)

TRACK

ADDRESS

(ONTAINS THE SECTOR ADDRESS
ne,SP

;DECREMENT

4(SP)

;CLEAR STACK FOR SECTOR

4 (SP), (SP)

;MOVE

THE

STA(K

PCINTER

THE RETURN ADDR DOWN THE

(LR
MOvB
DEC
BPL
Mov
MOvB
DEC
BPL
MOV

2(SP)
SRPDA(RO) ,4(SP)
4 (SP)
1%
#21.,4(SP)

;CLEAR STACK FOR TRACK
; INCREMENTED SECTOR ON STA(CK
;DECREMENT THE SECTOR ADDRESS
;BR IF SECTOR GREATER THAN 0
;JAM SECTOR ADDRESS 1O 21¢(10)

2(SP)

TRACK ADDRESS
;BR IF 1T DIDN'T GO NEG
;RESET TRACK T0 18(10)

MOVB
RTS

$SRPDA+1(RO),2(SP)

B8R

$SRPDA+1(R0O),2(SP)

2%
;lS..Z(SP)
PC

STA(K

;TRACK ADDRESS

;DECREMENT

;TRACK ADDRESS

sRETURN

—

D O

N NN

a1, STV TV RV SV 2V L SR V] V]
NNNOONO~N~NN

022532
022536
022542
022546
022552

—

022500
022506
022514
022522
022526

o] (=) OOOOOO
o OO
— wt —

;ROUTINE 1O (HECK FOR KWll-L OR Kwll-P (CLOCKS

ole

5926
5527
9928
5529
5530
5531
5932
5533
5934
5535
9936
5537

MACY1Y

177777
177777

022574
000006
156442

001210
001206
001200
023634
000300

001210
001206
000004

(KCLK:

Mov
MoV
MOV

(LR
151
CLR

(LR

MOv
MOV
MOv

#-1,CLKFLG
#-1,PCLOCK

;CLEAR CLOCK AVAJLABILITY FLAG
;CLEAR KWi1=P CLOCK AVAJLABILITY

dLKCSR
CLKFLG
PCLOCK
$SLPVE(,R]

;(HECK FOR XWl1-P
;SET CLOCK AVAILABILITY FLAG
;SET KWwll=P (LOCK FLAG
;KWw11-P VECTOR ADDRESS

#300, (RY1)

;PSW - PRI &

#CKCLKY,ERRVEC
SNERRVEC+?

#CLOCK,(RY)

;SET UP VECTOR FOR CLOCK (HECK
;NEW PSW

;SET UP xwll-p VECTOR

FLAG

SEQ 0109

5582
5583
5584
5585
5586
9587
5588
9589
5590

5591
5592
5593
5994
5595

5596

5597
9598
5599
5600
5601
5602
5603
5604
5605

022556
022564
022572
022574
022600
022606
022612
022616
022622
022626
022632
022640
022642
022646
022652
022656
022660
022664
022666
022672
022700

012777
012777
000437
062706
012737
005777
005037
013701
01271
01271}
012777
000414

062706
106401

005737
001402
000137
000000
000137
012737
000207

174575

000131

000004
022642

156370

001210
001204
023634
000300
000100

000004

156342

005432

5633
5634
5635
5636
5637

(xCLK1:

000004

005737
001421
004737
005004
006304
016400
006204
136437

001402
004737
005204
020427
001362
012604
012600
000207

023034

000010

JNEDCLK
42
1%

:KWll=-L VECTOR ADDRESS
;SET UP Kwll-L VECTOR
:PSW - PRl 6
sSET kWl1=L INTERRUPT

JMP

$GET4?2

:ABORT PROGRAM

JMP

START

HALT

SHALT
:TRY

AGAIN

JRESTORE THE ERROR VECTOR

10 DISPLAY STATISTICS FOR ALL DRIVES ASSIOGNED

STATPR:

MOV
MOv
197

RO,=(SP)
R&,-(SP)
ASNLST

(LR
ASL
MOV

R4
R4
BLKADR(R4) ,RO

B118
BEQ
JSR
INC
(Mp
BNE
MOV
MOV

;1S THIS DRIVE ASSIGNED ?
ATABIT(R&L) ,ASNLST
;BR IF NOT
2%
:TYPE THE PERFORMANCE SUMMARY
PC,SDETAL
:INCREMENT THE [INDEX
R4
R4, ¥8.
;FINISHED ?
:BR IF NOT
1%
;RESTORE R4
(SP) ¢ R4
(SP)Y+,RO
;RESTORE RO

BEQ
JSR

1%:

ASR

001462

2%:
38:

RTS

:
:

10 TYPE

11
PC,SHDTYP

#DPB,RO
PC,YYPEST

TYPESY: MOV
MOV

RO,-(SP)
R4 ,=(SP)

RETURN

JSR

(LR

:SAVE RO
:SAVE R4
;ANY DRIVES ASSIGNED
:BR IF NOT
;TYPE THE HEADING

;CLEAR THE DRIVE INDEX
:CHANGE TO INDEX WORDS
;GET THE DRIVE'S BLOCK ADDRESS
;RESTORE R&

;RETURN

STATISTICS FOR AN INDIVIDUAL DRIVE

MoV
JSR

023012

#6,a88ERRVEC(

;RESTORE THE STACK POINTER
;P OR L CLOCK MUST BE ON SYSTEM'
;UNDER MONITOR CONTROL ?
:BR IF NOT

PC,STATPR

;CALL:

010046
010446
004737
005004

TYPE
1587
8tQ

SLLVEC, R
#CLOCK,(RY)
#300,(RV)
#100,a8LKS
(xCLk3
#4,5P

JSR

:ROUTINE

022764
022766
022770
022774

#-1667..88LK(SB ;LOAD COUNTER BUFFER WITH 16.67
#1371, a%LK(SK
;SET CLOCK = CNT UP, 10US, CONT IN?

RE TURN

023012

033416

SEQ 0110

001462

001740

112

Mov
1S7
(LR

R1S

010046
010446

CkCLk3
#4,5P
:RESTORE THE STACK POINTER
#CKCLK2,@#ERRVEC
;CHANGE ERROR VECTOR T0O (MECK FOR Kkwll=L
asLKS
:LOOK FOR KWll=(
(LKFLO
;SET CLOCK FLAG

(KCLK3: MOV
;ROUTINE
;CALL:

022702
022704
022706
022712
022714
022720
022722
022724
022730
022732
022740
022742
022746
022750
022754
022756
022760
002762

BR
ADD

MOV
MOV
MOV
MOV
BR
(KCLK2: ADD

1%:

9606

5607
5608
5609
5610
5611
5612
9613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
563!
5632

MoV
Mmov

156412
156402

000004
053223
000042

0046122
000006

30A(1052)
O03-JUL=-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

PC,SHDTYP

:DPB ADDRESS

:SAVE RO

:SAVE R4
:TYPE THE HEADING
CLEAR R4 FOR DRIVE NUMBEK

TMy

(IRJDDO, RPOL/S5/6 MLT=-DR LG(
(ZRJDD. P11
06-JUN-79 08:32

MACYT1

CIRJDDO, RPO&L/S/6 MLT=DR LGC
CZRDD.PYY
06-JUN-79 08:32

5664
5665
5666
5667
5668
5669
5670
5671
5672

5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693

mOve

023034

JSR

nov
Mov
RTS

012600

000207

004737
004537

023536
027526

004537
052673
000207

027526

001165

010246
010002
062702
010446

SHDIYP:

023046
023050
023051
023052
023056
023062
023066
023072
023074
023100

106403
002
000
104401

023102

016046
004737
004537
000003
104401

010246
004737
004537
000006
104401
062702
010246
004737
004537
000006
104401

062702
010246

004737
00537
000012
104401

062702

SDETAL:

;TYPE THE
;HEADER

027376
052323
000004

SUMMARY

MEADER

;KETURN

SUMMARY

DATE

LINE

R4
#DRIVE
#0PB,RO

:DRIVE NUMBER

MoV
MOv

R2,=(SP)
RO,R2

; SAVE

ADD
MoV

.BYTE
.BYTE

JSR
JSR
.WORD

TYPE
ADD
MOV

JSR
JSR
.WORD
TYPE

ADD
Mov

JSR

JSR
.WORD

1YPE
ADD

TYPEOUT

THE TIME OF DAY
AT PRIORITY ¢

MOV
MOV
RETURN

TYPE
MOV

032660

s CR=LF

PERFORMANCE

052322

052323
000004

;RETURN

RS,TYPRIG

TYPE
MOV

032660
027376

;RESTORE RO

;TYPE THE STATISTICS
;RESTORE R&

;TYPE
;TYPE

052323
000070
030066
027376

052323
000004

(SP)+ R4
(SP)+,RO

PC,STIME
RS,TYPRISG

TYPOS

032660
027376

:DRIVE NUMBER

JSR
JSR
SCRLF
JSR
STATHD
RTS

000036

(RO) ,R&

PC,SDETAL

PC,SHDTYP

;TYPE THE
JCALL:

023034
023036
023040
023044

SEQ 0111

JSR

RE TURN

023012
023016
023022
023024
023030
023032

113

THE HEADER FOR THE DRIVE PERFORMANCE

;CALL:

NOO NN
SN
OO NOSH~ATOONO SO

5663

111004

004737
012604

H
9
PAGE
30A(1052)
10:41
03-JuL-79
GENERAL SUPPORT SUBROUTINES

;TYPE

OOO0OOOOOOOOOO0O0O

5661
5662

022776
023000
023004
023006
023010

[aS 2 VT NI N1, UL VI, VL N V1, VI UL,V N
[ IV ]V IV TV T QV_ LV LV LV RV RV AV

5638
<639
9640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
95655
5656
5657
5658
9659
5660

MACYI1

#SOPER(
,R?2
R&,=(SP)

.DPB ADDRESS

;DPB ADDRESS

sEIRST

STATISTICAL

;s TYPE

DRIVE

FIELD

::SAVE R4 FOR TYPEQUT
NUMBER

;:G0 TYPE--0CTAL ASCII]

LINSP

;2TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS
sSPACES

PC,$582D

; CONVERT |71

2
0

$PASSC(R(O) ,=(SP)
gS.REPLZ

LLINSP

RS,=-(SP)
PC,90B2D
RS,REPLZ
6

.LINSP

#6 ,R2
R2,-(SP)

PC,$0B2D

RS ,REPLZ
6

.LINSP

#4,R2
R2,-(SP)

PC,$DB2D
RS,REPLZ
10.

LLINSP

24,R?

;PUT

;TYPE

THE

PASS

COUNT

ON THE

;TYPE 3 DIGITS
;SPACES

;PUT SOPER( ON THE STA(K
: CONVERT T
;s TYPE
sTYPE

SOPER(
6 DIGITS

:SPACES
s INCREMENT RZ
;PUT

SPOSIT

THE

STA(CK

;PUT $TRANS ON THE
; CONVERT $TRANS

STA(K

; CONVERT
;TYPE

;TYPE

$POSIT

6 DIGITS

;SPACES

s INCREMENT R?2
sTYPE

;TYPE

10 DIGITS

JSPACES

JINCREMENT R?

STACK

CIRJDDO, RPO&L/S5/6 MLT=DR LG(
06-JUN-79 08:32
CIRJDD. P11

IV IV IV IV IV IV, TV IV, TV IV IV YV TV RV SV LV IV IV IV IV IV IV IV IV XV IV XV IV _IV IV XV TV XV IV TV XV YU TV TV 3V |
~ N NN SNNNNSNNNNSNNNNNN NN SNSNSNSNNSNNSNNNNSNNNNNN
LY LSLYLY [aY] POPORNININD
b e b ot e e
D s e
N ol
O N &~ F N S
N
NV TT VAV IV R IV IV ]
SO0~ W S NN =00V
NN
NN - O
WD ~NO
Wf
W
= O 00D ~NO N
winy

5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
09

023174
023176
023202
023206
023210
023214
023220
023224
023226
023232
023236
023240
023244
023246
023252
023256
023260
023266
023266
023272
023276
023300
023304
023306
023312
023316
023320
023324
023330
023334
023340
023344
023350
023354
023360
023362
023366
023370

010246
004737
004537
000012
104401

062702
062702
012246
004737
004537
000004
104401

012246
004737
004537
000004
1044601

012246
004737
004537
000004
104401

012246
004737
04537
000004
104401
016046

166016
166016
166016
166016

004737
004537
000004

106401
012602
000207

MACY1Y

30A(1052)
PAGE
10:41
03-JuL-79
GENERAL SUPPORT SUBROUTINES
mov
JSR

032660
027376

JSR
.WORD

052326
000004

TYPE
ADD
ADD
MOov

000002

030066
027376

JSR
JSR
.WORD

05232¢

TYPE
Mov

030066
027376

JSR
JSR
.WORD

052326

TYPE
MOV

JSR
JSR
.WORD

030066
027376

052324

TYPE
MCv

JSR
JSR
.WORD

030066
027376

0523264
000056
000060
000062
000064
000066
030066
027376

TYPE
MOV

001165

TYPE
Mov
RTS

SuB
Sus
SuB
SUB
JSR
JSR
.WORD

;ROUTINE

023372
023376
023400
023406
023410
023414

005737
001006
026027
103002

005260
000207

001264

000060

R2.-(SP)
PC,80820
RS,REPLZ
i0.

LLINSPO

"6 ,R2

#2,R2
(R2)+,=(SP)
PC.,$SB2D
RS,REPLZ
&

LLINSPO

(R2)¢+,=-(SP)
PC,$5B82D
RS .REPLZ

114

SEQ 0112
SREAD ON THE

;PUT

;(ONVERT SREAD
;TYPE

;TYPE

10 DIGITS

SPACE

; INCREMENT R?

; INCREMENT R2 AGAIN

;PUT

ON THE

$SOFT

;CONVERT $SOF1
:SPACES

;PUT

SHARD ON THE

; TYPEOUT 85K
;TYPE & DIGITS

PC,$SB82D
RS,REPLZ

.LINSPO

(R2)+,=(SP)
PC,$SB2D
RS,REPIZ
4

STA(K

:CONVERT $HARD

(R2)¢+,=(SP)

LLINSPO

STACK

;TYPEQUT $SOFT
;TYPE & DIGITS

;TYPEQUT SHARD
:TYPE & DIGITS
;SPACES
;PUT $SK]1 ON THE

STA(K

: CONVERT $5«]

STA(K

:SPACES

;PUT SMISPO ON THE STA(K
:CONVERT SMISPO
:TYPEOUT SMISPO
;TYPE 4 DIGITS

;SPACES
LLINSPO
(RO) ,-(SP)
$TOTAL
; CALCULATE NUMBER OF OTHER ERRORS
$S0F T(RO), (SP)
:SUBTRACT $SOFT FROM $TOTAL
(RO) , (SP)
$HARD
:SUBTRACT SHARD FROM $TOTAL
;SUBTRACT $SK] FROM STOTAL
$SK1(RO), (SP)
(SP) :SUBTRACT SMISPO FROM STOTAL
$MISPO(RD),
PC,$5B2D
:CONVERT ‘OTHER' COUNT
;TYPE 1T
RS ,REPLZ
4

LSCRLF

(SP)+ ,R?

;TYPE & DIGITS

;RESTORE R2

TO INCREMENT $SOFT

;NOTE:

$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCSOF:

TS7

023417
1%:

BNE
(MpP
BHIS
INC
RTS

;SEE |F BAD TRK/SEC INDICATOR SET
1%
;BR IF IT'S SET, DON'T INCREMENT COUNT
$S0F T(RO), #9999,
;1S $SOFT ALREADY AT MAXIMUM ?

BADSEC

;BR

;RETURN

$S0F T(RO)

: INCREMENT $SOFT

:ROUTINE 10 INCREMENT SHARD

"NOTE:

SHARD WwlLL NOT BE INCREMENTED BEYOND 9999 (10)

(ZRJDDO, RPO&/S/6 MLT=DR LG(
CIRJDD. P11
06-JUN-79 08:32
5750
5751
57952
753

023416
023422
0234624
023432
023434
023440

005737
001006
026027

001264

005260
000207

000062

103002

000062

MACY11

INCHRD:

023417
1$:
;ROUTINE

023442
023446
023450
023456
023460
023464

005737
001006
026027

001264

005260
000207

000064

103002

000064

PAGE
30A(1052)
10:41
C3=JuL=-79
GENERAL SUPPORT SUBROUTINES

Sea 0113

;SEE IF BAD TRK/SEL INDICATOR SET
BADSEC
3
;BR IF I7'S SET, DON'T INCREMENT (OUNT
SHARD(RO) ,#9999,
;1S SHARD ALREADY AT MAXIMUM ?

137
BNE

cmMp
BHIS
INC
RTS

115

;BR

;RETURN

$HARD (RO)

INCREMENT

; INCREMENT $HARD

$5kI

JNOTE:

$SK1 WILL NOT BE INCREMENTED BEYOND 9999 (iD®

INCSK]:

TS7
BNE
(mep
BHIS
INC
RTS

023417
1%:

IF BAD TRK/SEC

BADSEC

;SEE

sRETURN

1%
$SKI1(RO),#9999,
1%
$SK1(RO)

INDICATOR SET

;BR IF IT7'S SET, DON'T INCREMENT
IS $SKI1 ALREADY AT MAX]MUM ?
JBR IF IT IS
; INCREMENT $5K]

COUNT

;ROUTINE TO INCREMENT $MISPO

023466
023472
023474

023502

023504
023510

005737

001264

026027

000066

001006

103002
005260
0002G7

JNOTE:

$MISPO WILL NOT BE

INCM]S:

157

023417

000066

BHI1S
1$:

;ROUTINE

023512
023516
023520
023526
023530
023534

005737

001006
026027
103002
005260
000207

001264

000056
000056

BNE
cmp
INC
RIS

;SEE 1F BAD TRK/SEC INDICATOR SET
;BR JF JT'S SET, DON'T INCREMENT (OUNT

?:DSE(

?:lSPO(RO).l 9999,
$MISPO(RO)

TO INCREMENT

INCTOT:

T1S1
BNE

(MP

1%:

;RETURN

IT IS
s INCREMENT $MISPO

MAX[MUM ?

$TOTAL

$TOTAL WILL NOT BE

BHIS
INC
RIS

;1S SMISPO ALREADY

;BRIF

;NOTE:

023417

INCREMENTED BEYOND 9999 (10)

BADSEC

:SEE

If BAD TRK/SEC

;BR

:RETURN

INDICATOR ST

:BR IF IT°'S SET, DON'T INCREMENT (OUNT
$TOTAL(RO) ,#9999.
;1S STOTAL ALREADY AT MAXMyUM ?
1%

$TOTAL (ROD)

s INCREMENT $TOTAL

;ROUTINE TO TYPE THE TIME
023536
023542
023544
023550
023554
023560
023564
023566
023572

005737
001033
104401

013746
004737
004537
000002
1046401

013746

001210

$°IME:

TSI
BNE

001165
001266
030066
027376

TYPE
Mov

053477
001270

TYPE
MUV

JSR
JSR
.WORD

CLKFLO
1%

LJOCRLF

= (SP)
HOUR,

PC,$5B2D
gS.REPLl

.(O.ON

MINUTE ,=(SP)

;CLOCK ON THE SYSTEM ?
:BR 1F NOT
:CR=LF
;PUT

"HOURS'

ON THE

:CONVERT 10 DECIMAL
;TYPE

STA(K

;]va 2 DIGIYS

SPUT 'MINUTES® ON THE STACK

CIRJDDO, RPO4/S5/6 MLT=-DR LG(
06=JUN-7 9 08:32

CIRJDD. P11

5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
58264
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
€840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
585¢
5855
5856
5857
5858
5859
5860
5861

023576
023602
023606
023610
023614
023620
023626
023630
023632

004737
004537
000002
104401

013746
004737
004537
000002
000207

MACY11

K
9
30A(1052)
03=0UL=79
10:4"
PAGE
GENERAL SUPPORT SUBROUTINES

030066
027376

JSR
J3R
.WORD

053477
001272
030066
027376

TYPE
Mov

1%:

JSR
JSR
.WORD

RTS

PC.,$5B2D

SS,REPLI

. COLON

SECOND,=(5P)
PC,$582D
RS,REPLZ
2

116

SEQ 0114

:CONVERT
JTYPE

T0 DECIMAL

:!YfE 2 DIGITS
;PUT

SECONDS ON THE

;CONVERT T0 DECIMAL
;TYPE
;TYPE

STAC(K

1T
2 DIGITS

;CLOCK HANDLER ROUTINE
023634
023640
023642
023€50
023654
023662
023664
023670
023674
023700
023706
023710
023714
023720
023726
023730

023734
023740
023744
023750
023752
023760
023762
023770
023774

005337
001035
013737
005237
022737
001024
005037
005237
005237
022737
001012
005037
005237
022737

0601270
001266
001747

005037
012746
004737
005737

001266
000021
040026
001410

023737
001005
012737
005037
000002

0014610

001412

1727777
001412

001214

103002

001411

001274
001212
001272
00007¢
001272
001412
001270
000074

(LOCK:

001274
001272

001270

001266
1%:

2%:

DEC
BNE
MOV

INC
CMP
BNE
CLR
INC
INC
(MP
BNE
CLR
INC
(MP
BHIS
(LR

Mov

JSR
151
BEQ
CMP

BNE
Mov
(LR
RT1

SIXTEE
1%
HZ,SIXTEE
SECOND
#60.,SECOND
1%
SECOND

#2
INTRVL

MINUTE

#60. ,MINUTE
1%
MINUTE
HOUR

. ,HOUR
#999
1%

HOUR

#17.,-(5P)

s INCREMENT THE 1760 SECOND COUNTER
:BR IF A SECOND NOT COUNTED
;RESTORE THE VALUE
:COUNT THE SECOND
;AT

MAXIMUM

:BR If NOT

;CLEAR THE SECOND'S COUNTER
:COUNT THE PERFORMANCE SUMMARY INTERVAL
:COUNT THE MINUTE
JAT

MAXIMUM

;BR IF NOT

:CLEAR THE MINUTE'S COUNTER
:COUNT THE HOURS

;AT MAXIMUM
:BR IF NOT

:CLEAR THE HMOURS
;17 MS ON THE STACK

:DRIVER TIMER ROUTINE
:DISPLAY THE PERFORMANCE SUMMARY
2%
;BR IF NOT
INTRVL, INTRVL ¢?2 :DISPLAY INTERVAL FINISHED ?

PC,RPTMR
INTRVL

#-1,STATIN

¢
INTRVL

;BR

URN

NOT

;SET PERFORMANCE SUMMARY DISPLAY FLAG
:EEEA: THE PERFORMANCE INTERVAL (OUNTER

. COMMAND DECODE ROUTINE

:CALL:

MOV

#-1,CFLAG

PC,KSR
JSR
RE TURN1
RE TURN?

0¢3776
024002
024004
024010
024012
024020
024022
024026
024030
024032

005737
001003
00503%7
000410
062737
00100¢
104401

000207
000000
104412

000001

053610

SERVI(CEC

ORDERQ
|3 )

;ANY OPERATIONS ACTIVE

ADD

KSR1
#,3%

1YPE
RTS

;PROCESS THE KEYBOARD REQUEST
;COUNT THE TIMES THROUGH THE 1 O0OP
:BR IF NOT ENOUGH

;PROCESS ANY

BNE
(LR
BR

024030
024030

BNE

?S:
KSR1:

;SYSTEM BUSY RETURN

;RETURN AFTER KEYBOARD

1581

001440

;"CFLAG' 1S NORMALLY SET By THE TTvy SERVICE
;ROUTINE IN INTERRUPT MODE

.WCRD
SAVREG

BUSY

:BR 1F SOME ARE
;CLEAR THE LOOP COUNTER

¢ "SYSTEM BLSY,..'

COMPLETED DRIVES

;LOOP COUNTER
THE REGISTERS

;SAVE

CIRJDDO, RPO&L/S5/6 MLT=-DR LGC
C(IZRJDD. P11
06-JUN-T79 08:32
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889

5890

5891
5892
5893
5894
5895
5896

5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5607
5908
5909
5910
5911
5912
5913
5914
5615
5916
5917

024034
024042
024046
024052
024056
024062
026064
026066
024072
024074
024076
024102
026104
024110
0264112
026116
024120
0246124
024132
024134
024140
0246142
024150
024152
026156
024160
0246166
0246170

024174
024176
0264204
026206
024214
024216
024222
024224
024232
024234
024240
024242
024246
026250
024254
024260
024266
024272

012737
005037
004737
005777
104401

106411
012605
005737
001065

000200
001262
023536

MACY1T

V77776

053323
00182

000067

177777

1%:

024640
177777

2%:

024650
177777

024756
000127

177777

000001

154724

4%:

177777

5¢:

025240

053301

6%:
7$:

000002

1564666

005037

000100
177776

831kB

(MPB
BLO
BI(B
(MPB
BNE
JSR
BR
(MPB
BNE
JSR
BR
(MPB

BNE
JSR
BR
(MPB
BNE
BIT

BNE

025226
000122

151
TYPE
ROLIN
MOV
187
BNE

(mMPB
BHl

000060

000123

¥PR4 ,PS

INC
(mPB
BEQ

000101

000104

MOV

(LR
JSR

155070

177770
00012¢4

3CA(1052)
10:41
PAGE
03-JuL-79
GENERAL SUPPORT SUBROUTINES

1564656

JSR
BR
(MPB
BNE
JSR
8R

T1YPE
RESREG
ADD
1S7

BIS
(LR
RTS

(FLAG
PC,STIME

LENTCOM

(SP)+ RS
CFLAG
7%
RS
F'A,(RS)
1%

(RS) ,0'7
6%
(RS, 9'0
6%
#4(7,(RS)
#'7,-1(RS)
2%

117

SEQ 0115

;SET PRIORITY 10 4
;CLEAR THE 'CONTROL (' FLAG

TYPE

THE

;POINT

024302
024304
024312
024316
024324

000101

052521
000001
033416

ASSIGN:

026534
001462

ASGN1:

(MPB

BEQ

MOVB
MOV
MOv

Bl18
BNE

TO SECOND CHARACTER

;EQ TO AN ‘A’
;BR IF 1T 15

;DRIVE NUMBER GREATER THAN AN ASCI] 7 ?
;BR

;DRIVE NUMBER LESS THAN AN ASCII 0 ?
;BRIF IT IS

:LEAVE ONLY LOWER 3 BITS IF (HAR NOT ‘A’

:EQ 10 'T°

7%
#'S,-1(RS)
6%

:BR IF NOT EQ
:ASSIGN DRIVE FCR TEST
SEXIT
:EQ 10 'D* ?
:BR IF NOT EQ
:DEASSIGN DRIVE
JEXIT
:€Q 10 'S’
;BR IF NOT EQ

SEXIT

PC,NEWASN

7%
#'D,-1(RS)

PC,DEASON

PC,SCMND

#'w,=-1(RS)

:TYPE

STATISTICS

;EQ 10 ‘W

#'R,=1(RS)
6%

:BR If NOT EQ
;1S SWITCH O SET ?
:BR IF SET, CAN'T DO ‘W'
;WRITE A DATA PA(K
JEXTY
:EQ 10 'R ?
:BR IF NOT ta

JEXTT

#5W0,asSuWR
6%
PC,DATAPK
7%

P(,REDAPK

., INVLD

#2,(SP)

9% TkB
#B1T06,38TKS

PS
P

#'A,(RS)
ASGN?
(RS) ,R4

NUNTASN,ASNMSG

#1,R3
ATABIT(RG),

(OMMAND

;READ A DATA PA(K

:TYPE

'INVALID COMMAND'

MESSAGE

;RESTORE RO - RS
:INCREMENT THE RETURN ADDRESS
:CLEAR THE TTY BUFFER

:SET TTY INTERRUPT ENABLE
:SET PRIORITY BACK 10 ZERO
:RETURN

;ROUTINE TO PROCESS THE ASSIGN REQUEST
024274
024300

TIME

;CLEAR ANY GARBAGE IN THE TTy BUFFER
; "ENTER COMMANDS'
;READ THE KEYBOARD
;GET ADDRESS OF INPUT STRING
;CHECK THE (ONTROL C FLAG
SEXIT JF "CONTROL C' ENTERED

('T’,

'R',

'W'

COMMANDS)

;ASSIGN ALL DRIVES?

:BR IF ALL DRIVES
;PUT

DRIVE

IN R4

;'DRIVE ASSIGNED' MESSAGE ADDRESS
;RELOAD R3 FOR 1 UN]T
:DRIVE ALREADY ASSIGNED ?
;BRIF IT IS

CIRJDDO, RPOG/S5/6 MLT=DR LG(
06-JUN-79 08:32
CZRJDD.PIY
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970

5971
5972
5973

024326
024330
024332
026340
024346
024350
024354
024360
024362
024370
024372
024376
024402
024404
024406
024412
024416
024422
026424
026430
024434
026442
026444
024450
024452
026456
024462
024466
024470
024472
024474
024502
024506
0264512
024516
026522
0246526
0246534

024540

024562
024550
024552
024554
026556
024560
024562
024566
024570

024576
024600
024604
024606
024610
024616
024620
024626

005704
001007
012737
122737
001402

004737
000137
000207
122737
001005
012704
012703
000403
005004
012703
004737
000137
000207
012746
000137
136437
001043
005737

100375
110437
004737
105764
0014446
100437
006304
016464
016400

004737
004737
004737
004737
012760
005737
001403

113760
006204
005303
001402
005204
000725
062716
000207
012737
000207
105764

001405

100010

012737
000407
012737
000403

052605
000011

MACY11

n9
30A(1052)
10:41
PAGE
03-JuL-79
GENERAL SUPPORT SUBROUTINES
151
BNE

026534
000041

MOV

(mMP8
BEQ
JSR
JMP

026434
026514
000011

RIS

000041

(MPB
BNE

000001
000007

MOV
MOV

1%:

000010
024434
024424
024416
024552
033416

2%:
3%:
:
4%

001462

033414

ASGN3:
1%:

045076
015332
033302

001740
001740
025252
025456
025740
026050
000001
001216

001506

001216

000026

052547

026534

052570

026534

B118
BNE

151
BPL
move
JSR
1518
BEQ
BMI

6EQ

2%:

ASGNG:

ASGN7:

033312

Mov
JMP

MOV
187

ASGNS:

026534

JSR
JMP
RTS

JSR
JSR
JSR
JSR

ASONSG:

052624

MoV

ASL
MOV
MOV

000070

000004

BR
CLR

MOvB

ASR
DEC
8tQ
INC
BR
ADD
RTS
MOV

RTS
1518

BEQ
BPL

MOv

1%:

MOv

118

SEQ 0116

;TRYING TO ASSIGN DRIVE 0 ?

#NOTAVL ,ASNMSG
1,41

:"NOT

2%
PC,ASGN3

ASNERR
PC
[ 2RI

1%
”1,RG
#7.,R3
2%

#8.,R3
PC,ASGN3
4%
PC

;BR IF NOT

AVAILABLE'

MESSAGE

ASGN6
R&

ADDRESS

:SEE 1F LOADED FROM AN RP0/4/5/6
:BR IF RP04/S5/6 1S THE LOAD DEVICE
:SEE IF DRIVE ON THE SYSTEM
;RET?RN HERE IF ORIVE NOT AVAIL
JEX]

;LOADED FROM AN RP04/5/6 ?
;BR IF NOT

;START WITH DRIVE

;SETUP FOR ONLY 7 DRIVES
; CONTINUE

:START WITH DRIVE O

:DRIVE COUNT FOR 8 DRIVES
;ASSIGN ALL UNASSIGNED, AVAIL DRIVES
:DRIVE NOT Ok SYSTEM
;RETURN

#3%,-(SP)
;PUT RETURN ADDRESS ON THE
ASGN&
:LOOK FOR MORE DRIVES
ATABIT(R4L) ,ASNLST
;DRIVE ALREADY ASSIGNED
ASGN4
:BR IF IT IS

DTUW
1%
R4, GENDPB
PC,RECALO
DRVSTA(RG)
ASGN7

;DATA TRANSFER UNDER WAY

:BR it IT IS
;:DRIVE NUMBER
;RECALIBRATE DRIVE
:DRIVE AVAILABLE?

STA(K

°?

:BR IF DRIVE OFFLINE OR NONEXISTENT
:BR IF DRIVE UNSAFE
;MAKE

INTO WORD

INDEX

BLKADR(R4) ,NEWUNT(R4) ;DPB ADDRESS
,RO
BLKADR(R&)
:PUT BLOCK'S ADDR INTO RO
PC,CLRDPB
PC,DRVPRM
PC,GETID
PC,GETADR

:CLEAR BLOCK FOR DRIVE JUST ASSIGNED
:GET THE DRIVE'S ADDRESS LIMITS
;GET DRIVE 1.D.
:GET BAD SECTOR ADDRESSES

PACK

:WRITE DATA PACK ?
;BR IF NOT

#1,$PASSC(RO)

2%
PACK,$PACK
(RO)
R&

R3
ASGNS
R&

ASGN3

¥4, (SP)
PC
#NOTSAF ,ASNMSG
PC

DRVTYP(RSL)
1%

;PRESET PASS COUNT

10 1

;SET READ/WRITE DATA PACK INDICATOR
;RESTORE DRIVE ADDRESS
;DECREMENT DRIVE COUNT
;BR IF FINISHED
s INCREMENT DRIVE NUMBER
; CONT INUE
; INCREMENT RETURN
;sRETURN

;s "UNSAFE' MESSAGE ADDRESS
;RETURN

:DRIVE PRESENT?
;BR IF NOT
;BR JF DRIVE OFFLINE

ggoTRP,ASNHSG

:ADD?ESS OF

°'NOT RPO&/S5/6' MSG

ANOTPRS ,ASNMSG

;ADD?ESS OF
SEX]

°*NOT PRESENT' MSG

b} )

JEXL

CIRJDDO, RPO4/S5/6 MLT-DR LG(
CZRJDD.PIY
06-JUN-79 08:32
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022

6023
6024
6025
€026
6027
6028
6029

024630
024636

012737
000207

052656

MACY11

026534

N 9
30AC1052)
03-4uL-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

2%
3%:

MOV
RTS

119

StQ 0117

FUNTOFF ,ASNMSG ; ADDRESS OF °'DRIVE OFFLINE' MESSAGE
PC
;ERROR RETURN

;"1 COMMAND (ROUTINE TO ASSIGN A DRIVE)
026640
024644

001216
024274

NEWASN:

(LR

JMP

PACK

ASSIGN

:CLEAR

‘W'

(OMMAND

INDICATOR

:6G0 TO THE ASSIGN ROUTINE

;'D' COMMAND (ROUTINE 10 DEASSIGN A DRIVE)
024650
024652
024656
026660
026664
024666
024674
024676
024704
024706
024714
024716
024720
024722
024724
024726
024732
026734

024742
024746
024750
024754

DEASGN:

000101
000001

033416

001462

033416

001462

001740

001464

1%:

052477
026514
000744

024756
024760
024764
024766
024770
024776
025000
025002
025006
025012
025014
025022
025026
025030
025034
025042
025044
025046
025050
025052
025054

005004
122715
001421
111504
136437

001406
006304
016400
004737
000504
012737
004737
000476
012703
136437
001004
005204
005303
001371
000464
004737

033416

052477
026514

000010
033416

022702

INC

1%:

001462

2%:
3%

6%:

R3
4%

THE DRIVE FROM THE

ASSIGNED LIST

ADDR INTO A WORD INDEX
;PUT ADDRESS IN DEASSIGN LIST

;ANY MORE DRIVES ?
;BR JF NOY

(MPB
BEQ
MOV
JSR

#'A,(RS)
2%
NUNTNOT ,ASNMSG
P(,ASNERR

;DEASSIGN ALL DRIVES ?
;BR IF YES
:ADDR OF °*NOT ASSIGNED® MFSSAGE
:REPORT |1

MOV
BR

#8.,R3
1%

:SET UNIT COUNT

CLR

(MPB
BEQ

10 8

ASL
MOV
JSR
BR
MOV
JSR

#'A,(RS)
sALL STATISTICS ?
2%
;BR IF YES
(RS) R4
;GET DRIVE NUMBER
ATABIT(RG) ,ASNLST
;SEE IF DRIVE ASSIGNED
1%
:BR IF NOT
R4
;MAKE DRIVE ADDR INTO WORD INDEX
BLKADR(R4) ,RO
:ADDR OF BLOCK
PC,IYPEST
;TYPE DRIVE STATJSTICS
9%
JEXIT
#UNTNOT ,ASNMSG
;ADDR OF 'NOT ASSIGNED' MSG
PC,ASNERR
:TYPE ERROR MESSAGE

B8R
JSR

9%
PC,STATPR

BI18
BEQ

026534

3%
;BR 1F NOT
ATABIT(R&L) ,ASNLST
;DELETE

RG
;MAKE
BRLXADR(RL) ,DUNIT(RG)
R4

MOVB

001740
022764

;DEASSIGN ALL DRIVES ?
:BR 1F YES
:SET R3 FOR ONE UNI]T

COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY)

SCMND:

001462

2'A,(RS)
5%
#B81T00,R3

ASL
MOV
ASR

R1S

5¢:

000101

(R5) ,R4
;GET DRIVE NUMBER
ATABIT(RG) ,ASNLST
;DRIVE ASSIGNED

B8R

026534

;'S

MOVB
B118

DEC
BEQ

1%:

000010

(mpPB
BEQ
MOV
BEQ
BI(B

2$:

000101

(LR

BR
MOV
8118
BNE
INC
DEC
BNE

SEXLT
9%
#8.,R3
;ORIVE COUNT
ATABIT(RSG) ,ASNLST
;SEE IF DRIVE ASSIGNED
4%
:BR IF YES
R4
; INCREMENT DRIVE ADDRESS
:DECREMENT COQOUNTER
R3
3%
sMORE T0 CHECK
;NONE ASSINGED, RETURN
;TYPE OALL STATISTICS

053557

012737
005004
012703
136437
001417
010446

001003
000404

062737
005204
000746
104401

000207

8 10

30AC1052)
PAGE
10:41
03-JuL=79
GENERAL SUPPORT SUBROUTINES

001220

1518

DATE

TYPE
1YPE

LDATEILS
,DATE

BtQ

053501
001220
001232

11%:

053512
001232
053534
042262

025'74

000010
033416

001462

12%:

5¢:

000304

7%:

025174

9%:

OPERATOR ENTERED DATE

;SEE JF OPERATOR 1.D. ENTERED
;BR [F NOT

;'OPERATOR [.D.:

#8.,R3

R&,=-(SP)

;s COUNTER
;SEE IF DRIVE ASSIGNED
:BR IF NOT ASSIGNED
:;SAVE R4 FOR TYPEOUT

.BYTE
.BYTE

2
0

;.60 TYPE--OCTAL ASCII
;3 TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

1ST8
BNE

26%
10%

;SEE IF DRIVE 1.D. ENTERED
;BR IF DRIVE 1.D. PRESENT

B8R

;CONTINUE

.WORD

DEC
BEQ
ADD

R3
8%
NSRPEC2+2,6%

BR
TYPE

5¢
,SCRLF

;ADDRESS OF DRIVE 1.D. FIELD HERE
sCR-LF
:DECREMENT THE COUNTER
:BR IF AT END
; INCREMENT THE MESSAGE FfIELD ADDRESS
; INCREMENT DRIVE ADDRESS

12%

:THE OPERATOR
;HEADER LINE

1.D.

TYPE
MoV
(LR

LHEDLIN
;DRIVE ].D. FIELD ADDRESS
#ORIVEQ+$DRY ID,6%
R&
;DRIVE ADDRESS

BI'B

ATABIT(RL),A SNLST

MOV

BEQ

TYPE

INC

8%:

001165

:THE

LIDIS
LOPERID

TYPE

001165

:SEE IF 'DATE' ENTERED

;BR IF NOT
;'DATE: °

TYPE
TYPE

BEQ

TYPE

10%:

SeQ 0118

OPER.D

TYPOS

6%:

11%

120

1518

MoV

104401

000000
104401
005303
001405

RTS

,LINGSP

.NONE

LSCRLF

;s TYPE DRIVE

NUMBER

;4 SPACES
;TYPE

°'NONE’

;TYPE

THE

DRIVE

1.D.

; CONTINUE

sCR=LF

~N -~

—~
(v

025226
025234

:'W' COMMAND (ROUTINE 10 WRI TE A DATA PACK)
177777
024274

001216

DATAPK: MOV

JMP

#-1,PACK
ASSIGN

;SET

THE

'W'

COMMAND

;ASSIGN REQUESTED

INDICATOR

DRIVE

025240
025246

~N TN

;'R' COMMAND (ROUTINE TO REA D A DATA PA(K)
-~

6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085

104401

104401
104401
104401

6064
6065
6066

052321
000012

105737
001404

6061

6062
6063

025146
025150
025151
025152
025156
025162
025164
025170
025172
025174
025176
0252C2
025204
025206
025214
025216
025220
025224

104403
002
000
104401
105777

104401
104401

6057
6058
6059
6060

105737
00140«

6056

025060
025064
025066
025072
025076
025102
025104
025110
025114
025120
025126
025130
025134
025142
025144

000001
024274

001216

REDAPK:

MOV
JMP

#1,PACK
ASSIGN

;SET THE 'READ' INDICATOR
;ASSIGN THE REQUESTED DRIVE

:ROUTINE TO CLEAR THE DPB fO R THE ASSIGNED DRIVE
;CALL:

;

:
;

025252
025252
025254
025256

OO0

6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055

MACY11

10346
10446
10546

(LRDPB:

MOV

#DPB,RO

.DPB ADDRESS

MOV
MOV
Mov

R3,-(SP)
R4 ,=-(SP)
RS,=(SP)

::PUSH R3 ON STACK

JSR
RETURN

PC,CLRDPSB

:;PUSH R4 ON STACK
;;PUSH RS ON STACK

(IRJDDO, RPOG/S/6 MLT-DR LGC
CIRJLD. P11
06-JUN-79 08:32

6086

025260

6088
6089
6090
6091
6092
6093
6094
6095
6096
6097

025266
025272
025276
025300
025302
025304
025310
025314
025316
025322

6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120

025330
025334
025336
025342
025344
025352
025356
025364
025372
025376
025404
025412
0256416
025424
025432
025434
025442
025446
025450
025452
025454

6123
6126
6125
6126
6127
6128
6129
6130
6131
6132

025456
025460
025462
025466
025470
025474
025476

062704

012703
005024
11 3760
O1 3701
11 2160
113760
106360
8}3760
3760
00 5460
01 2760
13 2760

000002
000070

2%:

000002
000014
000162

1%:

000002

001434
001434
001760
001432
000030

30AC1052)
GENERAL SUPPORT

1%:

000024

001436
001436
000004
000400
000001

0000¢0
000004

000004
000262

000022

000022
000024
4%

;ROUTINE

ADD
MoV

(LR
SUB

BNE
ADD
Mov

(LR

SUB
BNE

ADD

Mov

MOV
MOV
MOV
RTS

T0 GET

— AN

[T
o

052661
000002

052666

025554

—

RO,R&
"2, R4
f5,R3
(RG)+
R3
1%
"2, R4
#ENEXT-SREG,R3
(RG) ¢+
#2,R3

SeEa 0119

(REVD)

;SAVE DRIVE TYPE

;GET THE DPB ADDRESS
;ADDRESS OF FIRST LOCN TO BE CLEARED
:NUMBER OF LOCNS 10O BE CLEARED
:CLEAR THE LOCATION
;DECREMENT THE COUNTER
;BR IF NUT FINISHED
;MOVE THE ADDRESS PAST THE °'REG' ADDR
;NUMBER OF LOCNS TO BE CLEARED
;CLEAR
;OECREMENT THE LOCN COUNTER

;BR IF NOT FIN]JSHED

"2, R4
;MOVE PAST ADDRESS LIMITS
NSRPEC2-MINSEC,R3
;NUMBER OF LOCNS TO BE CLEARED
(RQ)+
;CLEAR A LOCATION
¥2,R3
;DECREMENT THE COUNTER
3%
;BR IF NOT DONE

; INITIAL COMMAND (ODE
E
(RO)
BEGCOD,$COD
;GET THE ACTUAL OP CODE
BEGCOD ,R1
COMTBL(R1),$COMND(RO)
,OPERATION CODE
CODE
;PATTERN
,SPATTC(RO)
BEGPAT
$PATTC(RO)

; CONVERT

$SWRDM(RO)

;MAKE 17 INTO 2°'S COMPLEMENT

BEGSIZ,SWRDL(RO)
BEGS1Z,SWRDM(RO)

CODE

TO A TABLE

;BEGINNING RECORD SI1ZE
;VALUE FOR DATA TRANSFER

#256.,8SSEC(RO)
#1,$CODE(RO)

;INITIAL VALUE OF
;HEADER ORDER ?

#4,8SSEC(RO)

;ADD HEADER SIZE

(SP)+,$RPDT(RQ)
(SP)+,RS

;BR

NOT

SECTOR SIZE

TO SECTOR SIZE

;RESTORE DRIVE TYPE
:;POP STACK INTO RS

(SP)+,R4

::POP STACK

:RETURN

(SP)+,R3

INDEX

::POP STACK

INTO R3

ADDRESS LIMITS FROM THE OPERATOR

BNE

62
38

:RUNNING UNDER MONITOR CONTROL
:BR IF YES

TYPE
MOV

BITB
BNE
MOV

8118
BNE
MOV

(REVD)

INTO Ré&

:SAVE R3

.BYTE
.BYTE

~no~

012737
132764
001012
012737
132764
001003
012737

054066
052654
000001

$RPDT(RO),-(SP)

121

R3,-(SP)

TYPOS

002
000
104401

¢ 10

10:41
PAGE
SUBROUTINES

MOV

Mov
1S7

TYPE
ASR
MOV

NN
NN

025510
025516
025524
025526
025534
025542
025544

053375

025500
025502
025503
025504

DRVPRM:

000042

CLR
DEC
BNE

BITB
BEQ

€00207

010346
010446
005737
001035
104401
006204
010446

Mov
MoV
ADD
MOV

MOVB
MOV
MovB
MOVB
ASLB
MOV
MOV
NEG
mMov

000002
000030

6133
6134
6135
6136
6137
6138
6139
61640
6141

000002
000005

NS
NN

6121
6122

025324

062704
012703
005024
005303
001375
062704
012703
005024
162703
001374

010004

6098

025264

000262

(W 1,8

6087

016046

03-JuL~-79

R4, =(SP)
LTHTLMT

R&
R4, =(SP)

2
0
. SLASH

#RPOLB, 28

: SAVE R&

\\\\

: "ENTER ADDRESSES"

:CONVERT INDEX 70 DRIVE NUMBER
::SAVE R& FOR TYPEOUT
;s TYPE

DRIVE

NUMBER

;G0 TYPE--OCTAL ASCII
:TYPE 2 DIGIT(S)
..SUPPREbS LEADING ZEROS

ADDRESS OF 'RPO4' MESSAGE

#B1T00.0RV YP(R&)
;RPOL ?
1%
:BR IF YES
#RPOS,2$
ADDRESS OF
#B1T01,DRVIYP(R4)
;RPOS ?
%
JBROIF YES
#RPOG, 2%
;ADDRESS OF

'RPOS® MESSAGE
'RPO0' MESSAGE

(X al

(ZRJDDO, RPO&/S/6 MLT-DR LGC
CZRJDD.P11
06-JUN-79 08:32

MACY11

103417
013760
005060
013760
005060
013760
005060
006304
016403
013763
013763
005737
001002
004737
116060
116060

016060
012604
012603
000207

001350
033312

001456

001350
000122

001350
000110
001346

000106

001344
000120

000116

177777

000114

054246
001350
001350
000042

026370
000120
000114
000110

000112

5%:

000002
000010

000010
000011
000012

6%:

.WORD

BI18B
BtQ

MoV
ADD
BCS
Mov
CLR
Mov
CLR
Mov

CLR

ASL
Mov
Mov
MOV
151

BNE
JSR
MovB

MOvB
MoV
Mov
MOV
RTS

#10.,CYLIMT

;ASSUME AN RP04/5

LSCRLF

TRKLMT ,MAXTRK(RO)
;LOAD MAXIMUM TRA(CK
MINTRK (RO
;CLEAR MINIMUM TRA(K
;LOAD MAXIMUM SECTOR
,MAXSEC(RO)
SECLMT
MINSEC(RO)
R&

TABLE (R4) ,R3

005737
001036
005037
104401

005046
111016
104403
002
000
104401
104411

012605
005737

000042
001262
053350

GETID:
1%:

.BYTE
.BYTE

TYPE
ROLIN
MOV
151

001165
001262

BNE
CMPB
BEQ

000056
560

000224
000225
000226
000227
000230
000231

Mov
1S1
BNE
(LR
TYPE
(LR
MOvB
TYPOS

MOvB
MovB
MOovB
MOVB
MOVB

2%:

MOvB
MOV
RTS

;CLEAR MINIMUM SECTOR
;SETUP TO ADDRESS WORDS
;PARAMETER

TABLE

ADDRESS

sLOAD CYLINDER LIMIT FOR LAST CYLINDER
;LOAD CYLINDER LIMIT FOR STARTING CYLINDER
;UNDER MONITOR CONTROL ?

PC,PARENT

;GET THE DRIVE'S PARAMETERS

CYLIMT,2(R3)
CYLIMT,10(R3)

;BR IF

YES

MINSEC(RO) ,$SEC(RO)
;INITIAL SECTOR VALUE
MINTRK(RO) ,$TRK(RO)
;INITIAL TRA(CK VALUE
MINCYL(RO),$CYL(RO)
INITIAL CYLINDER VALUE
R4
(SP)+
;RESTORE R&
(SP)+,R3
;RESTORE R3
;RETURN

RS,-(SP)
42

CFLAG

LENTDRV

=(SP)
(RO), (SP)

2
0

JSCRLF

(SP)+,RS

CFLAG
1%

[.D.

FROM

THE

; SAVE RS

OPERATOR

;UNDER MONITOR
;BR IF NOT

CONTROL

:"ENTER DRv 1.D.:
;CLEAR THE STACK

;PUT THE DRIVE NUMBER ON THE
;TYPE THE DRIVE NUMBER
;TYPE 2 DIGITS

: SUPRESS LEADING ZERQS
s CR=LF
;READ THE ENTRY
;GET THE ENTRY ADDRESS
:'CONTROL C' ENTERED ?
;BR IF IT WAS
;PERIOD ENTERED ?
;BR IF YES

(RS),#'.
2%
(RS)+,8DRVID(RO)
;STORE THE 1.D.
(R5)+,$DRVID+1(RO)
;STORE THE |
(RS)+,8DRVID+2(R0O)
;STORE THE 1.D.
(R5)+,$DRVID+3(RO)
;STORE THE I
(R5)+,8DRVID¢4(RO)
;STORE THE |
(RS)+,$DRVID*S(RO)
;STORE THE |
;RESTORE RS
(SP)+,RS
PC

;CLEAR THE 'CONTROL C' FLAG

026020
026024
026030
026034
026040
026044
026046

010546

;CR-LF

zleOZ.DRVTYP(Rk)
;SEE IF RPO6
;BR IF NOT
; CHANGE LIMIT 10 814
#8146, ,CYLIMT
g;1.SFlRST(R0)
;SEE IF FIRST TIME STARTED
;BR IF NOT
LOAD MAXIMUM CYLINDER
CYLIMT, MAXCYL(RO)
MINCYL(RO)
;CLEAR MINIMUM CYLINDER

;ROUTINE TO GET THE DRIVE
025740
025742
025746
025750
025754
025760
025762
025764
025766
025767
025770
025774
025776
026000
026004
026006
026012
026014

WHIC(H FOLLOWS

;RETURN

STA(K

lenlan]

3%:

TYPE
MoV

:TYPE THE MESSAGE
;MESSAGE ADDRESS

132764

001403
012737
062760

TYPE

2%:

Sea 0120

012737

001165
000632
030004

1%:

SUBROUTINES

6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197

106401

SUPPORT

D 10
PAGE 122

6164
6165
6166

025656
025662
025670
025676
025702
025704
025710
025716
025724
025732
025734
025736

000000

GENERAL

10:41

6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163

104401

03-JUL=79

DOCTOoOCO

6146

025552
025554
025556
02556¢
025570
025576
025600
025606
025614
025616
025624
025630
025636
025642
025650
025654

30A(1052)

6142
6143
6144
6145

MACY11

(ZRJDDO, RPO4/S5/6 MLT-DR LGC
CIRJDD P
06-JUN-79 08:32

(ZRJODO, RPO4/S/6 MLT-DR LGC
CZRJDD P
06-JUN-79 08:32

6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
62464
6245
6246
6247
6248
6249
6250
6251
6252
6253

MACYI1

E 10

30A(1052)
03=-JuL=79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

¢ROUTINE
026050
026050
026052
026054
026056
026060
026064
026066
026072
026076
026100
026102
026104
026105
026106
026112

010146
010246
010346
010446
005737
001012
005037
104601

005046
111016
104403

026116
026122
026124

026130
026132
026134
026140
026142
026146
026152
026154
026156
026162
026164
026170
026174
026176
026200
026202
026204
026206
026210
026212
026214
026216
026220
026222
026226
026232
026234
026236
026240
026242
026244
026246
026252
026254

GETADR:

000042
001262
053436

14%:

7O GET THE ADDRESSES OF

177777

1%:

000042
000100
000020

2%:

001262

001350
027730

MOV
Mov

::PUSH RY ON STACK
;:PUSH R2 ON STA(K

R4,
- (SP)

:;PUSH R4 ON STACK

R3,-(SP)

151
BNE
CLR

CLR

- (SP)
(RO), (SP)

.BYTE
.BYTE

2
0

TYPE
MOV
Mov
ADD
Mov

DEC
BNE
1ST
BNE
SUB
Mov
ROLIN
MOV
181
BNE
MOV
JSR
12%

15%

CFLAG

LENTADR

LSCRLF

#32.,R3
#$BDSEC,
RS
RO,R&
#-1,(R4)+
R3
1%
&2

13%

H64.

4%:

001346
027730

000003
110264

000003

5%:

t%:

16)

::PUSH R3 ON STACK

;UNDER
:BR IF
;CLEAR
;ENTER

MONITOR CONTROL ?
YES
'CONTROL C' FLAG
SECTOR ADDRESSES

;CLEAR THE STACK

;PUT THE DRIVE NUMBER ON
;1YPE THE DRIVE NUMBER

THE

STACK

;TYPE 2 DIGITS

#6. ,R3

(SP)+ R
(FLAG
14%

CYLIMT,R2

RS,C(x.DIG

:SgPRESS LEADING Z2EROS
sCR-L

;NUMBER OF
;TABLE

LOCATIONS IN THE

INCREMENT

R2, (R&)
13%
R2, (R4)
11¢
R2,(R&)
TRKLMT,R?
RS,C(x.DIG

R2,3(RS)
13%
R2,3(RG)

TABLE

TO PRESET

;BLOCK STARTING ADDRESS

;SET LOCATION T0 1°S
;DECREMENT TABLE SIZE COUNT
;BR IF NOT FINISHED WITH TABLE
;UNDER MONITOR (O TROL ?
;BR

YES

:SET POINTER TO BEGINNING OF TABLE
;NUMBER OF ADDRESSES IN TABLE
;GET ADDRESS FROM OPERATOR
;TEXT

POINTER

;"CONTROL C' ENTERED ?
;BR IF IT WAS
;UPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
;CARRIAGE

RETURN ONLY

;PERIOD ONLY ENTERED

13%
12%

3%:

ANY BAD SECTORS (UP TO A MAX OF

R1,-(SP)
R2,=(SP)

MOvB
TYPOS

15%:

SEa 0121

mMov
MOV

TYPE

001165
000040
000124

123

ENTERED

:TLLEGAL INPUT
:TERMINATED WITH A CARRIAGE
;TERMINATED WITH A '',°

RETURN

;TERMINATED WITH A CARRIAGE

RI TURN

;TERMINATED WITH A """
;CYLINDER ADDRESS
JEXIT, PERIOD ENTERED
;CYLINDER ADDRESS
;FINISHED WITH THIS ADDRESS, °'CR" ENTERED
;CYLINDER ADDRESS
;UPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
;CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY ENTERED
sJLLEGAL INPUT
;TERMINATED WITH A ',
;TERMINATED WITH A *'.*
; TRACK

ADDRESS

:TRACK

ADDRESS

JEXLY, ENTRY TERMINATED BY PERIOD

}

CIRJDDO, RPO4/S5/6 MLT-DR LGC
P11
CIRJDD.P
06-JUN-79 08:32
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309

026260
026262
026266
026272
026276
026300
026302
026304
026306
026310
026312
026316
026320
026324
026326
026330
026334
026336
026342
026350
026354
026356
026356
026360
026362
026364
026366

000421

110264

013702
004537
026336
026356
026336
026320
026336
026312

001344
027730

000002

110264

000002

005303
001413
062704
000706
012714
012764
104401
000676

F 10
10:41
PAGE
30AC1052)
03-JuL=-79
GENERAL SUPPORT SUBROUTINES

000003

110264

000417

MACY11

9%:

118

000004
177777
177777

053566

000002

12%:

13%:

012604
012603
012602
012601
000207

MOvBe
MOV
JSR

12%
13%
12%
10%
12%
9%

11%

R2,3(RG)
SECLMT,RZ
RS,(x.DIG

SEQ 0122 l

;FINISHED WITH THIS ADDRESS,
: TRACK

ADDRESS

:UPPER LIMIT OF
;CHECK THE

R2,2(R&)

BR
MOVB
DEC
BEQ
ADD
BR

R3
13%

Mov
MOV
Mov
MOV
RTS

(SP)+,R3
(SP)+,R2
(SP)+,R1

13%

R2,2(R&)

¥4 ,RG

#-1,(R4)
#=-1,2(R4)

LBADENT

(SP)+ ,Rs

'CR'

ENTERED

INPUT

:CARRIAGE RETURN ONLY ENTERFD
:PERIOD ONLY ENTERED
: TLLEGAL INPUT

RETURN

;TERMINATED WITH A ',

;SECTOR ADDRESS
SEXIT, ENTRY TERMINATED BY PERIOD
:SECTOR ADDRESS

:MORE

ENTRIES

;BR IF NOT

:INCREMENT THE TABLE POINTER
; CONTINUE

;CLEAR PRESENT TABLE ENTRY
;CLEAR PRESENT TABIE ENTRY
;" INVALID ENTRY'
;TRY

AGAIN

;;POP
:.POP
;. POP
;. POP

INTO Ré&

STA(K
STA(K
STA(K
STA(CK

INTO R3
INTO R?
INTO R1

;RETURN

sPARAMETER ENTRY ROUTINE
;CALL

026370
026372
026376
026402
026404
026406
026410
026412
026414
026416
026420
026424
026426
026430
026434
026436
026442
026444
026446

026450
026452
026454
026456

010346
005037
012337
001442
104401
000000
012302

001262
026406

MOV
JSR

#ADR,R3
PC,PARENT

;PARAMETER

PARENT:

Mov

R3,=-(SP)

1%:

;SAVE THE PARAMETER TABLE ADDRESS
;CLEAR THE 'C(ONTROL (' FLAG

Mov

012305
011546
104405
104401
104411
012601

005737
001021
004537
026376
026510
026462
026456
026462
026474
010215

054066

(LR

BtQ

TYPE

.WORD

MOV
MOV
Mov
TYPDS
TYPE
ROL IN
Mov

1571
BNE
JSR
%
9%

001262

027730

CFLAG

(R3)+,3%
9%

0
(R3)+,R?
(R3)+,RS

(RS),-(SP)
+SLASH

(SP)+,R1
CFLAG

RS,(k.DIG

5¢:

MOV

ADDRESS

;GET THE PARAMETERS

;ADDRESS Of PARAMETER NAME
;BR IF AT END OF TABLE
;TYPE

THE

PARAMETER NAME

;ADDRESS OF PARAMETER NAME TEx1
;MAXIMUM PARAMETER

VALUE

;ADDRESS OF PARAMETER
;CURRENT VALUE OF PARAMETER
:TYPE

THE

CURRENT

;READ

THE

KEYBOARD

;l/O

VALUE

THE

PARAMETER

:INPUT ASCI] STRING ADDRESS
;"CONTROL C' ENTERED ?
:BR IF ]T WAS
; (CHECK THE DIGIT(S)

;CARRIAGE RETURN ONLY ENTERED
;PERIOD ONLY

ENTERED

:ILLEGAL INPUT
;VTERMINATED WITH A CARRIAGE RETURN

6%
5%
6%
7%

TABLE

RZ, (RS)

;TERMINATED WiTH A "
;TERMINATED WiTH A "'."

|
|

DIGIT(S)

:TERMINATED WITH A CARRIAGE
;TERMINATED WITH A ',

MOVB

MOV
MOV
T1YPE

124

;MOVE NEW VALUE TO PARAMETER LOCATION

CZRJDDO, RPOL/S/6 MLT-DR LGC
CZRJDD.PIY
06-JUN-79 08:32
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321

6322
6323
6324
6325
6326
6327

026460
026462
026466
026472
026474
026476
026500
026504
026506
026510
026512

000746
104407
162703
000741
010215
000404
005037
011603
000733
005726
000207

026524

010446

6332
6333
6334
6335
6336
6337
6338
6339

026526
026530
026531
026532
026534
026536
026542

104403
002
000
104401
000000
104401
000207

6345
6346

6347
6348
63649
6350
6351
6352
6353
6354

6355
6356

6357
6358
6359
6360
6%1
6362
6363
6364
6365

6%:
7%:

8%:

001262

9%:

104401
104401

053277
052450

BR
T(PE
SUB
BR

MOV
BR

(LR

MOV

B8R
151

RTS

026606

026610
026612
026613
026614
026620

146437
006304
010064
104401
104401
104401
104401
006204

;TRY AGAIN

;CORRECT THE

(SP)+

:RETURN

STACK POINTER

2
0
0

sMESSAGE

ASNMSG:

TYPE
.WORD
TYPE
RTS

:1YPE

LOCRLEF

PC,DROP

DROP:

(LR

R&
(RO),R4

MOVB

B1(B
ASL
MoV
TYPE
TYPE
TYPE
TYPE

ASR

MOV

104403
002
000
104401
000207

TYPOS

.BYTE
.BYTE

001165

TYPE
RTS

ADDRESS

;CLEAR R4 FOR DRIVE NUMBER
:MOVE DRIVE NUMBER TO R4

;REMOVE DRIVE FROM ASSIGNED LIST
ATABIT(R4) ,ASNLST
R&
;MAKE DRIVE NUMBER INTO A TABLE iNDEX
;PUT DRIVE IN DROP L]ST
RO,DUNIT(R4)
LSCRLF

+SCRLF

;TYPE 'DROPPING DRIVE'

.DROPNG

;'DRIVE #'

,DRNUM

R4
R4 ,=(5P)

:DRIVE NUMBER
;:SAVE R4 FOR TYPEOUT
;. TYPE

DRIVE

NUMBER

;.60 TYPE-=-0CTAL AS(C]I
;. TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

2
0
LOCRLF
PC

TO DEASSIGN DRIVE

ABNRML. BIT

MESSAGE

A FATAL ERROR OCCURS

JSR

RETURN

SPECIFIC

ADDRESS

001462

152310

;CLEAR THE 'CONTROL (' FLAG
;RELOAD THE PARAMETER TABLE ADDRESS

;QUESTION MARK
;TYPE 'DRIVE'
::SAVE R4 FOR TYPEOUT
:;TYPE DRIVE NUMBER
;:G0 TYPE--0OCTAL ASCI]
s TYPE 2 DIGIT(S)
; : SUPPRESS LEADING ZEROS

001464
001165
001165
053052
053163

000020

SJEXTT

CFLAG
(SP),R3

LQUES
LUNTMSG
R4 ,=(S5P)

010446

032777

TYPE
TYPE
Mov

;ROUTINE

026622

:TRY AGAIN
sNEW VALUE

;DECREMENT THE TABLE POINTER

ASNERR:

JSR
RETURN

.BYTE
BYTE

033416

i
RZ,(RS)

;ERROR MESSAGE

026550
026556
026560
026564
026570
026574
026600
026604

LBADENT

"6 ,R3

#MESADR ,ASNMSG
PC,ASNERR

s CALL

005004
111004

:GET MORE PARAMETERS

; "BAD ENTRY'

MOV

;DEASSIGN DRIVE

026544
026546

SEQ 0123

ASSIGN/DEASSIGN ERROR MESSAGE

TYPOS

001165

125

;

.
:

026514
026520

6340
6341
6342
6343
6344

053566
0C0006

G 10

30A(1052)
03-JuL-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

;TYPEOUT
s CALL

6328
6329

6330
6331

MACY1Y

#SW04,a5uWR

IFf

ERRORS BECOMES EXCESSIVE
JSEE

SWwITCH & SE!

CIRJDDO, RPO4L/S5/6 MLT-DR LGC
CIRJDD.PY?
06-JUN-79 08:32

6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378

6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411
6412
6413
6414

6415

6416

6617
6418
6419
6420
6421

026630
026632
026640
026642
026646

001006
023760
103002

000137
000207

001406

MACY11

H 10
30AC1052)
03-JUL=79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

BNE
(Mp

000056

026544

1%:
;ROUTINE

005737

026650
026654
026656
026664
026666
026670
026676
026700
026702
026710
026712
026714
026722
026724
026730
026734
026740
026742
026746
026754
026756
026764
026766
026772
026776

013746

027002
027004
027005
027006
027012
027014
027020

104403
002
000
104401
000431
104401
013746

027024
027026
027027
027030
027034
027040
027042
027044
027046
027052

104403
002
000
104401

027056
027060
027062

001412
026037
101017
103405

026037

103012
000510
026037
101005
103503

026037

103477
104401
104401
016046
104405
111037
032777
001017
026037
103413
1046401
104401

004737
010346
010446
010004
062704
012703
005024
005303
001375

EOP:

001430
000054

001374

000052

001372

000044

001400

000042

001376

EOP1:

EQP?2:

001165
053106
000070
001246
000020

152164

000070

001402

001246

151

BtaQ
(MP
BH]
BLO
(MP
BHIS
BR
CMP
BH1
BLO
(MP
BLO

TYPE
TYPE
Mov
TYPDS
MOVB

TYPE
BR

TYPE
MoV

TYPOS

.BYTE
.BYTE

TYPE
JSR
MOv
Mov
MOV
ADD
Mov

000036
000010
2%:

;DEASSING THE DRIVE

T0O (HECK

.BYTE
.BYTE

001165
022764

CROP
PC

JMP

TYPE
TYPE
MOV

1%:

;BR IF

RTS

TYPOS

053163

IT'S SET

BHIS

BNE
CMpP
BLO

001165

SEQ 012«

MAXER,$TOTAL(RO)
;CHECK TOTAL ERROR VALUE
1%
:BR IF ERRORS DONOT EXCEED MAX

BIT

053122
053163
001246

126

(LR
DEC
BNE

FOR END OF

ENDE T

;RETURN

PASS AND END OF

TEST

;END OF PASS DETERMINED BY SEEXS OR WORDS ?
IF

SEEKS

EOP1

cBR

EQOP2
EOP1

;BR IF MSWw GREATER THAN LIMIT
;BR IF MSW LESS THAN LIMIT

LSCRLF

;CR=LF

SREAD+2(R0O) ,ENDCON+2

;CHE(K MSW OF WORDS READ COUNT

; CHECK LSW AGAINST LIMiT
$SREAD(RO) ,ENDCON
If EQUAL OR GREATER
:BR
EOP2
JEXTT
EOPX
;CHECK MSW OF SEEK COUNT
$POSIT+2(RO) ,ENDSEK+2
;BR IF MSW GREATER THAN LIM]T
E0P2
SEXIT IF MSW LESS THAN LIM]T
EOPX
;CHECK ' SW OF SEEK COUNT
$POSIT(RO) ,ENDSEK
SEXIT IF LSW LESS THAN LIM]I
EOPX
LENDPAS
;END OF PASS FOR THE DRIVE
$PASSC(RO),=(SP)
;PUT PASS (OUNT ON THE STACK
(RO) ,UNIT

#SW04 , aSWR

; CONVERT PASS COUNT 70 DECIMAL AND TYPE
:STORE

THE

SWITCH &

1%
:BR IF SET
;SEE IF
SPASSC(RO) ,PASCNT
1%

LJENDTST
,DRNUM

UNIT,=(SP)

:BR

DRIVE

SET

AT END OF

TEST

NOT

:TYPE 'END OF TEST®

:'DRIVE #'

::SAVE UNIT FOR TYPEOUT
;. TYPE

DRIVE

NUMBER

2
0

::G0 TYPE-=-0CTAL ASCII
;:TYPE 2 DIGIT(S)
:; SUPPRESS LEADING ZERQS

3%
,DRNUM

:DEASSIGN THE DRIVE
;'DRIVE #'

;s TYPE

LOCRLF

UNIT,=-(SP)

LSCRLF
PC,TYPEST

R3,-(SP)
R&,=(SP)
RO,R&

WSOPERC RS
#8.,R3
(R4«
k3

NUMBER

;CR=LF

::SAVE UNIT FOR TYPEOUI
;. TYPE DRIVE NUMBER
;.60 TYPE=-=0CTAL ASCl]
2 DIGIT(S)

;. SUPPRESS LEADING ZEROS
;CR=LF
;TYPE THE DRIVE'S STATISTICS

;SAVE R3
; SAVE R4
;ORIVE'S BLOCK ADDRESS
;ADD THE STARTING ADDR OF SECIONS 10 C(LEAR
;NUMBER OF LOCNS TO BE CLEARED
: (ERROR COUNTERS NOT
;CLEAR THE LO(N

CLEARED)

;DECREMENT THE LOCATION COUNTER
;BR 1t MORE 10 GO

CIRJDDO, RPO4L/S/6 MLT-DR LGC
CZRJDD.PYY
06~JUN-79 08:32
6422
6423
6424
6425
6426
6427
6428
6429
64630
6431
6432
6433
6434
6435
64636
64L37
64L38
64639
6440
6441
6442
64L4L3
646446

6445

64L46

6447
64L4L8
6449
6450
64651
6452
6453
6454
6455
6456
6457
6458
6459
6460
6401
6462
6463
6Lb64

6465

64L66

6467
6468
6469
6470
6471
6472
6473
6474
6475
6476

6477

027064
027066
027070
027074
027076
027102
027104
027106
027114
027116
027122

012604
012603
005260
000412
104401

0050064
111004
146437
006304
010064
000207

MACY11

110

30A(1052)
03-JUL-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES
MoV

mov

000070

001165
033416
001464

3%:

;ROUTINE

s CALL

:
:
:
027124
027130
027134
027136
027142
027144
027146
027150

013746
013746
010546
004737
012605
005726
000240
000207

ATABIT(RL) ,ASNLST

ASL

EOPX:

; INCREMENT THE PASS COUN’

BI1(B

TO GET

MOV
JSR
RETURN

032562
032560

GETREM: MOV
MOov

027152

JSR
MOov
1S1

Mov

NOP

RTS

(RO) ,R&

RO,DUNIT(R4)
PC
THE

Ré

;RESTORE R3

$PASSC(RO)
EOPX
LOCRLF
R4

Mov
RTS

SEd 0125

;RESTORE

(SP)+,R3

INC
BR
TYPE
(LR

Mov/8

001462

(SP)+ ,R&

127

JEXTT

;CLEAR R4 FOR DRIVE NUMBER
.MOVE

DRIVE NUMBER

;MAKE

DRIVE

;DELETE DRIVE FROM ASSIGNED L]ST
NUMBER

;PUT BLCCK ADDRESS
;RETURN

REMAINDER OF

THE

INTO

TABLE

RANDOM NUMBER

NUMBER,RS
PC,GETREM

;DIVISOR INTO RS

$LONUM,=(SP)
$SHINUM,-(5P)

; STORE RANDOM NUMBER ON THE
;UPPER PARIT

PC,LINKDV
(SP)+,RS
(SP)+

;DIVIDE THE RANDOM NUMBERS
;PUT THE REMAINDER INTO RS
;ADJUST THE STACK POINTER

RS,=(SP)

INDEX

INTO DROP L]ST

;REMAINDER IS IN RS

;PUT

THE

DIVISOR ONTO THE

STA(K FOR DIVIDE

STACK

.FOR DEBUGGING HALT

;LINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE
:
THIS ROUTINE ALLOWS THE °'SYSMAC' DIVIDE ROUTINE

:
g27152
027156
027160
027162
027166
027172
027174

027176
027202
027206
027212
027214
027216

104412
016605
605004
016602
016603
005000
005001

004737

010166
010366
104413
012616
000207

000026

LINKDV: SAVREG

;CLEAR OTHER DJVIDEND REGISTERS

JSR
MCv
MOV
RESREG
MOV

PC,M.DPID
R1,30(SP)
R3,32(SP)

;60 1O THE DIVIDE ROUTINE
;REMAINDER ON THE STA(K
;QUOTIENT ON THE STA(K
;RESTORE RO - RS
:MOVE RETURN uUP THE STA(K

30(SP) RS
32(SP) ,R3

(SP)+,(5P)

;UPPER DIVIDEND WORD
;LOWER DIVIDEND WORD

DIVISION UTILITY SUBRCUTINE

:
:

RO-R1-R2-R3=DIVIDEND
R4=R5=DIVISOR

;

R2-R3-QUOTIENT

:
012746
010446
010546
005466

(L:

RTS

;DIVISOR
;OTHER DIV]SOR WORD

26(SP) RS
R&

027220
000030
000032

;STORE RO - RS

MOV
CLR
MOov
MOv

000030
000032

027220
027224
027226
027230

CALLING SEQUENCE TO BE USED

RO-R1-REMAINDER AFTER DIVISION

ENTER WITH JSR

AFTER DIVISION

PC,M.DPID

000040

M.DPID: MOV

#40,-(SP)

;COUNTER FOR DIVISION CYCLES

000002

MOV
NEG

R5,=(SP)
2(SP)

:LOw ORDER DIVISOR 10O TWE STA(R
JFORM NEGAT]VE

MOV

R&,=(SP)

;H]GH ORDER

CIRJDDO, RPO&L/5/6 MLT-DR LG(
(ZRJDD.P1Y
06-JUN=-79 08:32

6478

6479
66480

6481
6482
6483
6484
6485
6486
6487
6488

6489
6490
6491
6492
6493

6494

027234

005416

027244
027246
027252
027254
027256
027260

005500
066600
103445
005046
006103
006102

027236
027242

027262
027264

005716
001410
005016

027302

005516

027316

005516

027274
027300

027304
027310
027312
027314

6500

027320

6501
£502
6503
6504
6505
6506
6507

6508

027322
027324
027326
027330
027332
027336
027340

027342

066600
000404
060501
005500

000004

103404

060501
005500
060400

6513
6514

027354
027356

006103
062706

062706

6515
6516

6517

6518
6519

6520
6521

027352

027362
027364

027366
027372
027374

000242
000207

0002562
000207

THE DIVI]SOR

RO
2(SP),R0O
M.0PSO
-(SP)
R3
R?

;PERFORM THE

INITIAL SUBTRA(CT]ON

;1F CARRY THEN OVERFLOW HAS OCCURRED
:THIS 1S A LONGER LASTING CARRY B]1T

1ST
BEQ
(LR

asSP
M.DP4!
asSP

;TEST "'CARRY' INDICATOR
:1F NO "'CARRY'" THEN ADD ELSE SUBTRA(T
CLEAR UP FOR NEXT TIME

ADC

3SP

asP

;]

SB(
ADD

ADC(
ADD
BCS
CLR
M.DP40O: ROL
ROL

ADD
ADC

ADD
BR
M.DP41: ADD
ADC

M.DP&2: ADC
181
BEQ
INC
DEC
BGT
ROR
BCS

ADD
ADC
ADD

000241

SEQ 0126

:VERSION OF

ADD

000006

128

asSP

ADC

060400

027344
027346
027350

NEG

ROL
ROL

000002

6509
6510
6511
6512

000002

066601
005500

005516
005716
001401
005203
005366
003347
006003

J 10
30AC1052)
03-JuL=-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

000002

006101
006100

027266
027270
027272

6495
6496
6497
6498

6499

005666
061601

MACY11

cLc

2(SP)
asSP, R

R1
RO

2(SP),R1
RO

4(SP),R0:
<~
M.DF&2
RS,R1
RO

R4 RO

aSP
asSP
b
R3
6(SP)
M.DP4O
R3

:SET ''CARRY"

;SET ""CARKY''
:TEST THE UPDATE INDICATOR
:1F JERO FORGET 17
;NO CARRY POSSIBLE HERE
:DECREMENT COUNTER
:BRANCH IF MORE 10 DO

RS,R1
RO
R4 ,RO

000010

R3
#10,SP

000006

M.DP50: ADD

PC
#6,SP

SEV
RTS

i=>
HE
i <=

;ADD +(DIVISOR)

M.DP&4

M.DP44: ROL
ADD

cLv
RTS

sADD =(DIVISOR)

:SET "'CARRY"'

:ADJUST STA(CK BY & WORDS

623%

:ROUTINE T0O REPLACE LEADING ZEROS IN A NUMERIC STRING wlITH SPACES

6524
6525

:
;

MOV
JSR

#ADR,=-(SP)
RS,REPLZ

;'N' 1S NUMBER OF DIGITS 10 BE TYPED

REFPLZ:

MOV
MoV
SUB
MOV

RO,-(SP)
#10.,-(SP)
(R5)+,(SP)
6(5P),RO

;SAVE RO
;MAXTMUM NUMBER OF DIGITS TO BE TYPED
;SUBTACT DIGITS TO FORM [NDEX
:ADDRESS OF NUMBER 10 RO

BNE

:BR IF NOT

s CALL

62%3
6

6528
6529
6530
6531

6532

6535

027376
027400
027404
027406

027412

027416

010046
012746
162516
016600

122710

001004

000012

000006
000060

1%:

.WORD

(MPB

#'0,(RO)

;ADDRESS OF NUMBER (IN ASCID)

;BYTE EQUAL T0 ASCID *'0* ?

CZRJDDO, RPO4/S5/6 MLT-DR LGC

CIRJDD.PI
6534
6535
6536
6537
6538
6539

65640
6541
6542

6543
6544
6545
6546

6245
654

06-JUN-79 08:32

027620
027424
027426
027430
027432
027434

027436
027442
027450

027454
027456
027460
027462

027464

112710
005200
0007
105710
001003
005300

112710
016637
062637
104601
000000

MACY11

30A(1052)

2%:

0276456

3%:
4%:

012600
012616

10:41

GENERAL SUPPORT SUBROUTINES

000040

000060
000006
027456

03-JuL-79

000205

MOVB
INC
B8R
1S1B
BNE
DEC

MOovB
MOV
ADD

TYPE
.WORD
MOV
MOV

RTS

K 10

PAGE

#40, (RO)
RO
1%
(RO
3%
RO

7'0,(RO)
6{(SP),4%
(SP)+,4%
0

(SP)+,RO
(SP)+,(SP)

129
;REPLACE THE ZERO WITH A SPAC(E
:INCREMENT THE BYTE ADDRESS
;G0 BACK AND LOOK FOR MORE LEADING ZEROS
;SEE IF ZERQ BYTE TERMINATOR
;BR IF NOT
;BACKUP STRING POINTER

;TYPE THE NUMBER
;ADDRESS OF NUMBER
:RESTORE RO
;MOVE RETURN ADDRESS

;:RETURN

;TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS

6551

JCALL

6553
6554

;

6555
6556

027466
027470

6559

027500

6557
6558

6560
6561
6562
6563
6564

6565
6566
6225
6

027474
027476

027504
027506
027510
027514
027516

027520
(027522
027524

010046
016600

000004

12c720

000060

105710
001403

001773
005300
010037
104414
000000

6571
6572
6573
6574
6575
62;$
é

027516

012600
012616
000207

027526
027532
027540
027544
027550
027552

013746
012737
012537
004737
000000
000205

177776
000200
027550
031132

177776

:SAVE RO
;PICKUP THE POINTER

(MPB

#'0,(RO)+

;1S THIS AN ASCIT '0* ?

MoV
MOV
R1S

0
(sP)+,RO
(SP)+,(5P)
PC

1S1B
BEQ

BEQ
DEC
MOV
DISPLY
. WORD

PC,9SUPRS

(RO)
2%

1%
RC
RO, 3%

TYPRi4: MOV
MOV
MOV
JSR
.WORD
1%:
RTS

afPsS,=-(SP)
#200,9#PS
(RS)+,1%
PC,$TYPE
0
RS

:ROUTINE TO TYPE ERRORS
s CALL

M
:

623%

6585
6586
6587
6588
6589

RO,-(SP)
4(SP),RO

JSR

;TERMINATOR ?
:BR 1F YES

;BR IF YES
:BACKUP BY '1°
;SAVE FOR TYPING
;60 PRINT
:ASCIZ POINTER GOES HERE
:RESTORE RO
;RESTORE THE STA(CK
;RETURN

:ROUTINE 10 TYPE AT PRIORITY ¢4

6580
6581
6

$SUPRS: MOV
MOV

3% :

6578
6579

6584

;FIRST ADDRESS OF ASClZ STRING

2%:

62?8
6

#NUMADR,-(SP)

1%:

MOV

027554

027562
027564
027570
027574
027600

032777

001004
005037
000137
062716
000002

020000
177776
031132
000002

151356

DISPLY
MESADR

RE TURN

$DSPLY: BIT
1%:

BNE
(LR
JMP
ADD
Ril

#BIT13,3S5WR
1%
a#PS
$TYPE
#2,(SP)

;PUT A 2ERO BACK N
:PUT ADDRESS IN LOCATION FOR TYPEOU?
:BEGINNING OF SIGNIF]JCANT DIGITS

gzgg

6552

SEQ 0127

;SAVE THE PRESENT STATUS
;CHANGE THE PRIORITY 10 &
;MESSAGE ADDRESS
;TYPE THE MESSAGE
:MESSAGE ADDRESS GOES HLRE
:RETURN

:MUST DEFINED IN "TRAP' TAB.E
:ADDRESS OF MESSAGE

;INHIBIT ERROR TYPEOQUT ?

:BR IF YES
;SET PRIORITY 10 ZERO
;TYPE THE MESSAGE
s INCREMENT THE RETURN
;RETURN

CIRJDDO, RPO&L/5/6 MLT-DR LGC
CZRJDD.P1
06-JUN-79 08:32
6590
6591

SUBROUTINES

L 10

PAGE

130

SEQ 0128

IFf AN

. CALL
;

;ADDRESS OF ASCI! CHARACTER

000060

(K.0CT:

000067

MOV

027630
027634
027636
027642
027644
027646
027652
027654

121127

103407
121127
101004
111102
042702
005725
000205

(CMPB
BLO
(MPB
BHI

(R1),#°0
1%
(RY1),#'7
1%

BIC

#4C7,R2

MOVB

177770
1%:

000060

#ADR,R1

RS,CK.OCT
JSR
RE TURN1
RETURNZ

(R1),R2

TS7
RTS

;AND DETERMINE
; CALL

(RS)+
RS

;CHECK THE

:LESS THAN ZEROD?

;YES =- BRAN(CH

:GREATER THAN SEVEN?
;YES == BRAN(H
;GET THE (HARACTER
:STRIP AWAY

;RETURN

IS A DIGIT

;ADDRESS OF ASCII CHARA(CTER
;CHECK THE CHARACTER
:NOT BETWEEN O AND 9
:BETWEEN O AND 9
:R2 = DIGIT

(K.DEC:

CMPB
8LO
(MPB
BHI
MOvB
BlIC
1§71
RTS

;LESS THAN ZERO?

000071

000060
1%:

(R1),#°'0
1%
(R1),#'9
1%
(R1),R2
#'0,R2
(RS)+
RS

;YES =-- BRANCH

;GREATER THAN NINE?
;YES -- BRANCH

;GET THE CHARACTER
:STRIP AWAY THE ASCII
;ADJUST FOR RETURN
sRETURN

et \ SV

NN —
NN

ADRS
ADR6

;DIGIT BETWEEN O AND 7.
;01GIT BETWEEN 8 AND 9.
:R2 = DIGIT ~ (R1)-ADR¢1

ADR3
ADRS4

TSTB
BEQ
(MPB
BtO
(MPB
BEQ

(R1)
3%
(R1),#°,
2%
(R1),#°,
1%

(K.CHR:

RETURN
RETURN

:ADDRESS OF ASCII CHARACTER

RETURN

CHARACTER

#ADR,R1
RS5,CK.(HR
ADR1
ADR?

MOV
JSR
RETURN
RETURN

.
:

000056

T [S.

:
:
;
:
;

000054

CHARACTER

BETWEEN O AND 9.

#ADR,R1
MOV
RS,(K.DEC
JSR
RE TURNI
RETURN?

; CALL

027660
027662
027666
027670
027674

ASCII

:
;
:
H

:DETERMINE WHAT

027656

THE

;ADJUST FOR RETURN

IS USED TO CHECK AN ASCI]
IFf

CHARACTER

;CHARACTER 1S NOT BETWEEN 0-7
;CHARACTER IS IN R2 AS A
;OCTAL DIGIT

;THIS ROUTINE WILL CHECK AN ASCI1

6641
6642
6643
6644
66465

10:41

:THIS ROUTINE 1S USED TO CHECK

;THIS ROUTIMNE

SN
ONY
=N\ —b —>

6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640

121127
103407
121127
1010
1111
042702
005725
000205

—h

6618
6619
6620
6621
6622
6623
66264
6625

027602
027606
027610
027614
027616
027620
027624
027626

OoONONNOO

6608
6609
6610
6611
6612
6613
6614
6615
6616
6617

03-4uL=-/9

GENERAL SUPPORT

:
:
:

O—=O—O
—

6602
6603
6604
6605
6606
6607

30AC1052)

;ASCIT CHARACTER 1S A DIGIT BETWEEN O AND 7.

6592

6593
6594
6595
6596
6597
6598
6599
6600
6601

MACYI1

;CHECK CHARACTER

: UNKNOWN CHARACTER
; CARRJAGE RETURN « (R1)-ADR+1
;COMMA « (R1)=ADR+1
;PERIOD * (R1)=ADR+]

;""CARRIAGE RETURN'"
;YES

=- BRAN(H

:"'COMMA*"?

;YES == BRAN(CH

;"'PERIOD'"?
;YES

== BRANCH

CIRJDDO, RPO&L/S5/6 MLT-DR LGC
CZRJDD.PIY
06-JUN-79 08:32

6646

6647
6648

6649
6650
6651

027676

027702
027704

027710
027712
027714

004537

000470
006537

005725
005725
005725

MACY11

n10
30A(1052)
O03-JuL=79
10:41
PAGE 131
GENERAL SUPPORT SUBROUTINES

027630

JSR

BR
JSR

027602

1%:

151
181
1871

RS,C(K.DEC

$DIGIT'TM

(RS) ¢
(RS) ¢
(RS) ¢

;01617 BETWEEN 8-9
;DIGIT BETWEEN 0-7
;PERIOD

4%
RS,cx.0CT

:NO == BRAN(H
;OCTAL ?

SEQ 0129

CIZRJDDO, RPO&/5/6 MLT-DR LG(
CZRJDD.PIY
06-JUN-79 08:32

6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663

027716
027720
027722
027724
027726

005725
005725
005201
011505
000205

INC
MOV
RTS

(RS)+
(RS)+

SeQ 0130

: COMMA

R1
(RS),RS
RS
CHECKS

1352

AN ASC Il

:CARRIAGE RETURN
;MOVE POINTER TO NEXT CHMARA(CTER
;UNKNOWN CHARACTER
;RETURN
STRING FOR LEGAL

: CHARACTERS AND FORMS A DEC IMAL VALUE BINARY NUMBER IN RZ.

s CALL

.
.
;

6666

6706
6707

151
151

: THIS ROUTINE

6665

6705

N 10

30AC1052)
03-JuL=-79
10:41
PAGE
GENERAL SUPPORY SUBROUTINES

2%:
3%:

6664

6667
6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704

MACY11

027730
027732
027734
027736
027740
027742
027744
027750
027752

027754

027756
027760
027762

027764
027770
027772
027774
027776

030000
030002
030004
030010
030012
030014
030016
030020
030022
030024
030026
030030
030032
030034
030036
030040
030042
030044
030046

010446
010346
010246
005002
005003
005004
0046537
030044
030052
030044
030046
027764
027764

062705
006303
010346
006303

(k.DIG:

101004
000402
005725
005724

JSR

RS5,Cx.DI1G

RETURN

ADR3

;"'PERIOD'' ONLY ENTERED -- R2-0
:ILLEGAL CHARACTER OR INPUT 10O LARGE == R2:=?

RETURN
RETURN

#NUM,R?

ADR1
ADR?

ADR4

ADRS
ADRS6

:""CR' == R2 = NUMBER
SU'COMMA'’ == R2 = NUMBER
:"PERIOD'' == R2 = NUMBER

MOV
MoV

R&,=-(SP)
R3,-(SP)

:SAVE R4

RETURN

JSR
6%

R2,-(SP)
R2
R3
R4

RS,(K.CHR

2%:

1%
1%

#4,R5

MOV
ASL
ASL
ADD
ADD

R3,~-(SP)
R}
R3
(SP)+ ,R3
R2,R3

JSR
8%

027656

RS,C(K.(HR

5%
4%
3%

2%
2%
1S18
BNE

4%:

181
187

6%:

(MpP
BH]
BR
167

5%:

7$:

187

191

:START WiTH O

*
SIZE

ON THE

STACK

; CHECK ONE CHARACTER

;ILLEGAL CHARACTER

DIGIT 0-7

ADD

ASL

:SAVE R3
:SAVE THE MAX.

: CARRIAGE RETURN

6%
7%

000004

;"CR"" ONLY ENTERED =-- R2-0

RETURN
RETURN

CLR

027656

#ADR,R1

:ADDRESS OF ASCIZ STRING
;MAX, MAGNITUDE OF INPUT NUMBER
;CHECK DIGITS

MOV
CLR
CLR

006303
062603

060203
004537
030050
030034
030032
030024
027770
027770
105711
001010
00572¢
005724
005724
020316

MOV

‘DIGIT 8-9

;STEP RETURN POINTER PAST °''CR'" & ''PERIOD'' RETURNS

: INPUT NUMBER «?2

;SAVE
ivh

«10

;(12)4(8)

:CHECK ONE

CHARACTER

;UPDATE THE

INPUT NUMBER

i ILLEGAL CHARACTER
; CARRIAGE RETURN

[}
.

DIGIT 0-7
(R1)

(RG)¢
(RG)¢

(RG)¢

R3,(SP)
9%
8%
(RS)+
(R5)¢

DIGIT 8-9

:DOES A "'CR'" FOLLOW THE ''PERIOD’
;BR IF NOT

; INCREMENT THE RETURN
; INCREMENT THE RETURN
; INCREMENT THE RETURN
CHECK THE MAGNITUDE OF THE NUMBER
:BR 1F ENTERED NUMBER TOO LARGE
;BYPASS INCREMENT
; INCREMENT RETURN PAST INVALID RETURN
; INCREMENT RETURN

6708
6709
6710
6711
6712
6713
6714
6715

030050
030052
030054
030056
030060
030062
030064

MACY1T

8%:

060405
01030¢
005726
012603
012604
011505
000205

9%:

6749
6750
6751
6752
6753
6754

6755
675

6757
6758

6759
6760
6761
6762
6763

;SETUP RETURN POINTER

MOv

(SP)+,R3

;RESTORE R3

MoV
181

k3,R2
(SP)+

;ENTERED VALUE
;CLEAN MAX, SIZE OFF

(SP)+ ,R&
(RS),RS

STACKF

;RESTORE R&
;GET RETURN ADDRESS

;RETURN

;THIS ROUTINE WILL CONVERT A 16-Bl1 UNSIGNBD\E::fRY NUMBER TO AN

:gNSlGNED DECIMAL ASCIZ NUMBER.

.
:

CALL

6721
6722

030066
0300764
030100
030104
030110
(030112

016637
012746
004737
012666
000207
000000

000002
030112
032660
000002

030112

JSR

;PUT THE NUMBER ON THE STAC(K

NUMBER ,=-(SP)

s CALL

PC,$SB2D

RETURN

;NOTE:

THE PROGRAM REQUIRES THIS FORM OF °"$SB2D', NOT THE VERSION ON

$S82D:

MOV
MOV
JSR

1%:

000000

mov

:ADDRESS OF THE 1ST ASCIZ (HAR [S ON THE STA(K

THE SYSMA(C LIBRARY, REV ( AND LATER
2(SP),1%
#1%,-(SP)

MOV
RIS
LWORD

:SAVE THE BINARY NUMBER
;SET THE POINTER
;CALL THE DOUBLE LENGTH CONVERT

PC,80BZD

(SP)+,2(5P)
PC
0,0

:PICKUP THE
:RETURN

POINTER

;THIS ROUTINE WILL CONVERT

A 16-BIT UNSIGNED BINARY NUMBER TO AN
;UNSIGNED OCTAL ASCIZ NUMBER.
s CALL

MOV
JSR

ENOTE:

THE PROGRAM REQUIRES THIS FORM OF °'$SB20', NOT THE VERSION ON
THE

SYSMAC LIBRARY,

$SB20:

MOV
MOV

2(SP),1%
#1%,-(SP)

;SAVE THE BINARY NUMBER
;SET THE POINTER

MOV
RTS
.WORD

(SP)+,2(SP)
PC
0,0

:PICKUP THE
;RETURN

;
QOO

0116
0124
0130
030134
030140
030142

016637
012746
004737
012666
000207
000000

000002
030142
033054
000002

030142

RETURN

JSR

000000

;KEYBOARD
; CALI

;
;

030
030

01273%7
0127%7

030176
000240

000060
000062

030

012777
000207

000100

150750

030162
030

005777

150760

;PUT THE NUMBER ON THE STA(CK
sCALL

NUMBER,-(SP)
PC,$5B20

:
.
:

6763
6744
6745
6746
6747
6748

SeQ@ 0131

R4, RS

RTS

6720

6734
6735
6736
6737
6738
6739
6740
67461
6742

153

ADD

MOv
MOv

6716
6717
6718
6719

6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733

B 11

30A(1052)
03-,UL=-79
10:41
PAGE
GENERAL SUPPORT SUBROUTINES

RETURN

$STKINT: MOV
MOV
151
MOV
RIS
;YEYBOARD
JCALL

THE

1ST ASCIZ CHAR 1S ON THE

REV ( AND LATER

PC,80B20

INTERRUPT

JSR

:ADDRESS OF

;CALL THE DOUBLE LENGTH CONVERT
POINTER

INITIALIZATION ROUTINE

PC,9TKINT
#STKSRV,TKVEC
#PRS,TKVEC+?
3% T1kB
#B1106,3%TKS
P(

INTERRUPT

JSETUP VECTOR
;PRIORITY 10 S
;CLEAR THE BUFFER
;SET INTERRUPT ENABLE
;RETURN

SERVICE ROUTINE

ENTER VIA INTERRUPT

STA(K

‘

CZRJIDDO, RPOL/S5/6 MLT-DR LGC
CIRJDD.PIY
06-JUN-79 08:32

6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
¢774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788

6789
679C
6791
6792

6812
6813
6814
6815
6816

6817
6818
6819

GENERAL

$TKSRV:

030176
030200
030204
030212
030214
030220
030224
030232
030236
030240
030246
030250
030256
030260
030264
030270
030274
030300
030304
030310
030316
030320
030324

000002

030326

000000

000003

000176

030326

SUPPORT

RD(HR

MOvB

000007

030326

LOCRLEF

LOONTLC
#-1,CFLAG

adTKs
4%
SWR,#SWREG
3%
5¢.47
3%
LOCRLF
LSCNTLG
PS.,=-(SP)
2% ,-(SP)

a%TKS
$GTSWR
#100,3%1xS

3%:

TYPE

,5%

RT1]

5% :

.WORD

PAGE

.03

(LR
JMP
MOV

150640

(SP)+,5%

TYPE

TYPE
1YPE
MOV
MOV

150626

SUBROUTINES

CLR
B8R
(mp
BNE
cmMp
BNE

1%:

10:41

(Mp

TYPE
MoV

001165
032433
177776
030310

032074
000100

O03-JuL=79

BNE

001262

134

SEQ 0132

;READ THE KEYBOARD
:GEY

THE

C(MARA(TER

;"CONTROL C'
:BR

;CR-LF

NOT

A0
:SET THME

"CONTROL (' FLAG
:CLEAR THE TTY [NTERRUPT
SEXTT
:SOF TWARE SWIT(CH PEGISTER
:BR IF NOT
:"CONTROL G' ?
:BR IF NOT

IN USE

sCR=LF
;16!
;PUT THE STATUS WORD ON THE
:RETURN ADDRESS

STACK

;CLEAR THE TTY INTERRUPT ENABLE
:GET THE SWITCH REGISTER ENTRY
:ENABLE TTY KEYBOARD INTERRUPT
JEXIT

:ECHO THE
;RETURN

CHARACTER

SENTERED CHARACTER

:T:lS ROUTINE WILL INPUT A STRING FROM THE TTY
s

;

6793
6794

6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811

30AC1052)

:
:
030330
030332
030334
030340
030344
030346
030350
030352
030356
030360
030362
030364
030372

030376
030402
030404
030410
030412
030416
030422
030424
030426
030430

010346
005046
012703
022703
101467

104410
112613
122713

001022
005716
001007
112737
104401
012716
005303

020327

103445
111337
104401

000746
005716
001406

112737

000177

030604

177777

6%:

030606
030604
030604

030604

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+10,,RY
6%

::INPUT A STRING FROM THE TTY

:ADDRESS OF FIRST CHARACTER WiLL BE ON THME STA(K
:TERMINATOR WiLL BE A BYTE OF ALL O°'S

:SAVE R3
:CLEAR THE RUBOUT KEY
;GET ADDRESS
;BUFFER FuLL?
:BR 1F YES
;GO READ ONE CHARACTER FROM THE
;GET CHARACTER
;15 17T A RUBOUT
;BR IF NO
;1S THIS THE FIRST RUBOUT?
;BR IF NO
;:TYPE A BACK SLASH

(MPB
BNE
187
BNE
MOVB
TYPE

(SP)+,(RY)
#177,(R3)
5%
(SP)
6%
#'\,9%
,9%

DEC
(Mp
BLO
MOVB

R3
RZ,#$TTYIN
4%
(R3),9%

;BACKUP BY ONE
;STACK EMPTY?
:BR IF YES
;SETUP TO TYPEQUT THE DELETED (TMAR.

BR
197
BEQ
MOve

2%
(SP)
7%
#'\,9¢%

:G0 READ ANOTHER (HAR,
;:RUBOUT kEY SET?
;BR IF NO
;TYPE A BACK SLASH

MOV

TYPE

5%
000134

RDLIN

RETURN HERE

$SRDLIN: MOV
CLR
1%:
MOV
ra ¥
(Mp
BLOS
RDCHR
MOVB

030606
030620C

000134
030604

CALL:

#-1,(SP)

,9%

;SET

THE RUBOUT

;G0 TYPE

KEY

(X el

(IRJDDO, RPO4L/S/6 MLT-DR LGC
(IRJDD P
06-JUN-79 08:32

MACY11

6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848

6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870

6871
6872
6873
6874
6875

030436
030442
030444
030450
030652
030456
030460
030464
030466
030474
030500
030502
030506
030510
030512
030516
030522
030524
030530
030532
030536
030542
030546
030550
030554
030560
030562
030564
030566
03057¢
030602
030604
030605
030606
030620

104401

030604

122713

000025

106401

032426

005016

001003
000726
122713
001006
012737
104401

000427
122713
00101

MACY1Y

TYPE

7%:

030620

(LR
(MPB
BNE
TYPE

10%:

000003
V77777

D
30AC1052)
10:41
PAGE
03-JuL-79
GENERAL SUPPORT SUBROUTINES

001262

Mov
TYPE

8%:

000012

BR
(MPB
BNE
BR
(MPB
BNE
CLRB

105013
104401
104401

001165
030606

104401

001164

A ¥

TYPE

104401
122723

030604
030604
000015

1%:

MOvB

000706
000701
111337

001274

105063
104401

005726
012603
011646
016666
012766
000002
000
000
000012
041536
030626

TYPE
TYPE

177777
001166

000004

030606

005015

11%:

1S7

000002
000004

000

135

SEQ 0133

;CLEAR THE RUBOUT KEY
:1S CHARACTER A CTRL L?
:BR IF NO
:TYPE A CONTROL 'V
;GO START QOVER
;1S CHARACTER A CTRL C ?
:BR IF NOT
;SEY CNTRL C FLAG

(SP)

#25,(R3)
|
i0%

LSCINTLU
1%
#3,(R3)

#-1,CFLAG

CJOONTLC

;ECHO

;TYPE

THE

JEXLT
:1S CHARACTER A ''LF'"7?
;BRANCH IF NO
;CLEAR THE CHARACTER

1%
#12,(R3)

(R3)
LSCRLF

.STTY!N
2%

.BYTE

$TTYIN:
$ONTLC:

BLKB

ASCIZ

STRING

. $QUES
1%
(R3),9%

:TYPE A 2
;CLEAR THE BUFFER AND LOOP

#15,(R3)+

2%
-1(R3)

;CHECK FOR RETURN
;LOOP 1F NOT RETURN
;CLEAR RETURN (THE 15)

(SP)¢+

;CLEAN RUBOUT KEY FROM THE STACK

(SP),=(SP)
4 (SP),2(SP)
FETTYIN,L(SP)

;ADJUST THE

;ECHO THE CHARACTER

.99

LSLF

;TYPE

A LINE

;RESTORE R3

(SP)+ ,R3

0
0

10.
/20

FEED

STACK AND PUT ADDRESS OF

FIRST ASTI] CHARACTER ON 11

;RETURN

9% :

INPUT

;GO PICKUP ANOTHER CHACTER

;STORAGE

FOR ASCI1

C(HAR,

;RESERVE

10 BYTES FOR

; TERMINATOR
<CRO<LED

:CONTROL "'C"

TTY

TYPE

[NPLT

.EVEN
"""'.""""""'.i""'"'""""'.'t"l"".t'.'."""l'tll

LSBTTL

MACRO ROUTINES

.SBTTL

ERROR HANDLER ROUTINE

N S

'TH]S ROUTINE WILL INCREMENT THE ERROR FLAG AND THME ERRCR COUNT,
'SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALlL
;*AND GO TO SERRTYP ON ERROR

;'THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
APER
R
3=
INHIBIT ERROR TYPEOUTS
;eSWi
BELL ON ERROR
;*SW10:=1
seCALL

030626

$ERRCR:

ERROR

;;ERROR EM1

AND N-ERROR ]TEM NLMBtR

Tkt

[eaNan)

(IRJDDO, RPO4L/S5/6 MLT-DR LGC
CIRJDD. P
06-JUN-79 08:32

(ZRJDDO, RPO4L/S/6 MLTI-DR LGC
(ZRJDD. P11
06-JUN-79 08:32
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902

6903
6904
6905
6906
6907
6908
6909
6910
6911
6912
6913
6914
6915
6916

6917
6918
6919

6920
6921
6922

6923
6924
6925
6926
6927
6928
6929
6930
6931

030626
030630
030634
030640
030646
030650
030694
030660
030662
030670
030676
030700
030704
03G710
030714
030722
030730
030736
030740
030744
030750
030750
030754
030756
030760
030762
030762
030770
030772
030774

106407

010337
010137
032777
001002
004737
105237
001775
013777
032777
001402
104401

005237
011637

162737
117737
032777
001004
004737

001244
001242
020000

001102
002000
001160
001112
001116
000002
150170

020000

005777

150164

7% :

150252
150242
1% :
001116
001114
150202

20%:
2%:

.SBTTL

1
PAGE

136

SEQ 0134

RI,ATIN

;:TEST FOR CHANGE [N SOFT-SWR
:SAVE THE ATTENTION REGISTER CONTENTS

BIT

#SW13,85wWR

:INHIBIT PRINTOUTS ?

BNE
JSR

INCB

BEQ

MOv
Bl
8tQ
TYPE

INC
MOV
SuB
MOVB

R1,DRIVE

;ORIVE

.46
PC,STIME

;BR IF YES
:1YPE THE TIME

$ERFLG

;iSET

$TSTNM,aDISPLAY
#B1110,a5WR
1%
LJIBELL
SERTTL
(SP) ,$ERRP(

#2,3ERRPC
OSERRPC,SITEMB

NUMBER

THE

ERROR FLAG

::DON'T LET THE FLAG GO TO ZERO
;:DISPLAY TEST NUMBER AND ERROR FLAOG
:;BELL CON ERROR?
;;NO - SKIP
:RING BELL
::COUNT THE NUMBER OF ERRORS
:;GEY ADDRESS OF ERROR INSTRUCTION

;:STRIP AND SAVE

THE

ERROR

Bl
BNE
JSR

#B1T13,35WR
20%
PC,$ERRTYP

:SKIP TYPEQGUT F SET
::SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE

187

aSWR

;;HALT ON ERROR

TYPE

BPL

HALT

JOCRLF

b33

;;HALT

T YT 1Y
YA

ERROR MESSAGE

I1TEM (ODE

::5K1P IF CONTINUE

(XSWR

(mp
BNE
HALT
RT]

000046

10:41

(KSWR
mov
MOV

"
000042

03-JuL=79

ERROR HANDLER ROUTINE

030776

N01165

023737
001001
000000
000002

30AC1052)

150272

023536
001103

106401

100002
000000
104407

MACY1Y

ON ERROR!

::TEST FOR CHANGE

[N SOFT~SWR

;ARE WE IN ACT=-11
:BRANCH 1F NOT
:HALT ON ERROR [F
:RETURN

AUTO MODE?
A(CT AUTO MODE

TYPEOUT ROUTINE

M "'I""""""""""'"t""""""tll't'lt"l'.t"t""'.

'THIS ROUTINE USES THE “'ITEM (ONTROL BYTE' (SITEMB)

TO DETERMINE wHi(w

;*ERROR 1S TO BE REPORTED. 11 THEN OBTAINS, FROM THE ''ERROR TABLE'' ($ERRTEB),
;'AND REPORTS THE APPROPRIATE

104401

001165

153700

001114

010046
005000
001004

013746

$ERRIYP:

BNE

MOV

001116

TYPOC(

106402

000426

005300
006300
006300
006300
062700
0120%7
001404

TYPE

MOV
(LR
BISB

1¢:

004C26
031050

LOCRLF

RO,=(SP)
RO
af/$1TEMB,RO

$ERRP(C,=-(SP)

ASL
ASL
ADD

RO
RO
#$ERRIB,RO

DEC
ASL

MOV
8ta

RO
RO

(RG)+,2%
14

INFORMATION CONCERNING THE ERROR.

;' 'CARRIAGE RETURN'' & "'LINE FEED"

::SAVE RO
:;PICKUP THE

;:1F

ITEM INDEX

1TEM NUMBER IS ZERO,

::TYPE

THE

P(C

THE

ERROR

1UST

::SAVE SERRPC FfOR TYPEQUT

: ;ERROR ADDRESS

::G0 TYPE=-=0CTAL ASCII(ALL DIGITS)

;;GET 0oUl

::ADJUST THE INDEX SO THAT [T WwiLL
H
WORK FOR THE ERROR TABLE
::FORM TABLE

POINTER

:PIOKUP "'ERROR MESSAGE'' POINTER
oSKIP TYPEQUT IF NO POINTER

6983
6984
6985

6986
6987

PIPONY
b e et et e OO o
(o JF pE Yo 3P N Nl Yo Yo J V] )

e
e
el
i
i
D
i
D
D
d e
sl

ol
il

e
e

il
el

i
d

D
D

[V QW

OOOO0OO0O0OO0OOOOOOOO0OOO0OOOOOOO

104401

2%:
3¢

104401

000000

4%:

011000
001004
012600

5% :

104401

000207

001165

104401

,::TYPE THE ''ERROR MESSAGE''

::"ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & "‘LINE FEED"
::P1CKUP ''DATA HEADER'® POINTER
;:SKIP TYPEOUT IF O
;;TYPE THE ''DATA HEADER"

6%:

BNE
MoV

7%
(SP)+,RO

RTS

LSCRLF

::"'CARRIAGE RETURN'' & "'LINE FEED"

MoV

3(RO)+,=(SP)

::SAVE @(RO)+ FOR TYPEOUT

MOV

(R0O),RO

1YPE

TYPOC
151
BEQ
TYPE

031126

000

0
LSCRLF
(RO)+,48
5%
O
,SCRLF

106402

000771
020040
031132

LWORD
TYPE
MoV
BEQ
TYPE

SEQ 0135

.WORD
TYPE

013046
005710
001770

TYPE

1357

8%:

ASCIZ
LEVEN

TYPE

::"DATA MEADER'' POINTER GOES MERE
;:""CARRIAGE RETURN'' & "'LINE FEED"

::PICKUP "'DATA TABLE'' POINTER
::60 TYPE THE DATA
::RESTORE RO
: :RETURN

(RO)
6%
,8%

::G0 TYPE=-=0CTAL ASCIICALL DIGITS)
::1S THERE ANOTHER NUMBER?
;:BR IF NO
;:TYPE TWO(2) SPACES

;:TW0(2)

;:LOOP

SPACES

ROUTINE
R

ALY

'ROU11NE 10 TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE,
;v THE $0UTlNE WILL INSERT A NUMBER OF NULL C(HARACTERS AFTER A LINE FEED.
;*NOTE
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARA{TER.
;'NOTEZ:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
J*NOTEZ:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
X

;eCALL:
:*1) USING A

TRAP

TYPE

;e
;v

TYPE
MESADR

.'OR

[NSTRUCTION

LMESADR

;:MESADR 1S FIRST ADDRESS OF

AN AS(C1Z STRING

e
N
L
AN U
L
U A
L

6980
6981
6982

104401
000000
104401
012037
001404

A L

6976
6977
6978
6979

046
050
052
056
062
064
066
070
074
076

F 1
PAGE
30A(1052)
10:41
9
03-JuL-7
ERROR MESSAGE TYPEOUY ROUTINE

LSBTTL

WAL

6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975

(alelelelololelelolelololalelohs]

6932
6933
6934
6935
6936
6937
6938
6939
6940

QW RV RV RV AV JV RV IV IV IV LV 1V IV ]V JV JV JV JV VvV ]|

(IRJDDO, RPO4L/S5/6 MLT-DR LGC
CIRJDD. AR
06-JUN=-79 08:32

MACY11

105737
100002
000000

001157

000407
010046

017600
112046

601005
005726
012600
062716
000002
122716

001430
122716
001006

000002

000011
000200

$1YPE:

1%:

2%:
60%:
1% .
4%

1S71B

$TPFILG

b3 )

MOVB
BNE
151
MOV
ADD

(RO)+,=(SP)
4%
(SP)+
(SP)+,RO
#2,(SP)

BPL
HALT

MOV
Mov

RT11
(MPB

BEQ
(MPB
BNE

RO,~-(SP)
a2(sSP),R0

#HT,(SP)

8%
H(RLF,(SP)
5¢

::1S THERE A TERMINAL?

;.BR 1F YES
:;HALT HERE IF NO TERMINAL

;s LEAVE

::SAVE RO
::GET ADDRESS OF ASCI2 STRING

::PUSH CHARACTER 10 BE TYPED ONTO STA(KX
:BR IF IT ISN'T THE TERMINATOR

1F TERMINATOR POP [T OFF
;o
; ;RESTORE RO
s ADJUST RETURN P(
;s RETURN
;iBRANCH [F

<HT>

::BRANCH 1F NOT <(RLF>

THE STALK

(ZRJDDO, RPO&/S5/6 MLT=DR LG(

CIRJDD

06-JUN=-79 08:32

6988
6989
6990

031204
031206
031210

005726
10440:
001165

6992

031216

000755

031226
031230
031232

123726
001350
013746

6991

6993

6994
6995
6996
6997
6998
6999
7000
7001
;88%

031212

031220

105037

031346

004737

031302

031236
031242

105366
002770

0312%

000770

031244
031250

004737
105337

MACY1Y

5¢%:

001156

7007
7008
7009
70.0

7011

7012

7013

105777

147642

116677
122766
001003
105037
000406
122766

000002
000015

031306

031310
031316
031324
031326
031332
031334

7021
7022
7023

031344
031346
031350

7024
7025

;829

;:POP
<CR><LF> EQUIV
;:TYPE A CR AND LF

(LRB

$CHAR(ONT

;s CLEAR CHARACTER COUNT

JSR

PC,STYPEC

;G0 TYPE THIS (MARACTER

031342

000724
100375

001402

105227
000000
000207

031302
000007

7$:

DE(B
BLT

1(SP)
6%

219 1T TIME fOR FILLER CHARS.?
::1F NO GO GET NEXT (HAR.
;:GET # OF FILLER CHARS. NEEDED
;AND THE NULL CHAR,
;;DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL COFF OF

;. LOOP

8%:
031346

9%:

PC,STYPEC
$CHARCNT

MOvVB
JSR
BlT1B
BNE
1S1

$TYPE(C: T1S18
BPL

147634
000002

1%:

MOVB
(MPB
BNE
(LRB
BR
(MPB

BtQ

INCB
$(HARCNT: WORD
$TYPEX: RTS

LSBTTL

;:G0 TYPE A NULL
::D0 NOT COUNT AS A COUNT

STA(K

TAB PROCESSOR

000002

;:GET NEXT (MARACTER

$FILLC,(SP)e
’%
$NULL,=(SP)

031346
000012

JSR
DECB

000040

031302

031300

7014
7015
7016
7017
7018
7019

7020

112716

004737
13272
001372
005726

SEQ 0136

(mPB
BNE
MOV

031302
031346

031262
031266
031274
031276

138

(SP)+

;HORIZONTAL

031256

6 11
PAGE

6%:

001154

000001

10:41

TYPE ROUTINE

187
T(PE
$CRLF

;882

7006

03-JUL=79

30A(1052)

L(SP)

;;REPLACE TAB WITH SPAC(E

PC,STYPEC
#7,%CHARCNT
9%
(SP) ¢

;s TYPE A SPA(E
;;BRANCH 1F NOT AT
;:TAB STOP
;:;POP SPACE OFF STAC(K

a%1PsS

;:WALIT UNTIL PRINTER 1S READY

$TYPEC

;:GET NEXT CHARACTER

2(SP),a%1PB
#(R,2(SP)
1%
SCHARINS
$TYPEX
#LF,2(SP)

::LOAD CHAR 10 BE TYPED iNTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH [F NO
;i YES==CLEAR CHARACTER COUNT
3 0
;3 1S CHARACTER A LINE FEED?

(PC)+
O
PC

;;COUNT THE C(HARA(CTER
;s CHARACTER COUNT STORAGE

$STYPEX

;;BRANCH IF YES

BINARY T0O OCTAL (ASCII) AND TYPE

7()58

7030
70%1

;*OCTAL (ASCII) NUMBER AND TYPE 7.
;e$TYPOS=-~=ENTER HERE 10O SETUP SUPPRESS ZEROS AND NUMBER OF TiGITS T0 TYPE

7029
7032

A R

AR A A R A

AR RS

:*THIS ROUTINE 1S USED 10O (HANGE A 16-B11 BINARY NUMBER 10O A 6-DIGIIT
;*CALL:

7033
7034
7035

B
;e
.t

7040

70%9

:2$TYPON=-==ENTER HERE T0O TYPE QuTl WITH THE SAME PARAMETERS AS THE (AST

7042

s*CALL:

7036
7037
7038
7041

706%

X
;e
B

MOV
TYPOS
.BYTE
LBYTE

NUM, - (SP)

; :NUMBER 10 BE TYPED
;s CALL FOR TYPEOQUT
;iN=1 10O 6 FOR NUMBER OfF DIGITS 'O TYPE
;iM=1 0RO
::1=TYPE LEADING ZEROS
; :0=SUPPRESS LEADING JEROS

;e$TYPOS OR $1YPOC

MOV

NUM, = (SP)

::NUMBER 10 BE TYPED

(IRJDDO, RPOL/S/6 MLT=DR LG(

(ZRJDOD.P1Y

06-JUN=-79 08:3%2

MACY1Y

30A(1052)

03-4uL=79

7046

:*$TYPO(---ENTER HERE

;8;3

cvCALL:
L

70517
7052
7053
7054

031352
031356
031364
031370

017646
116637
112637
062716

000000
000001
031577
000002

7056
7057
7058
7099

031376
031404
031412
031420

112737
112737
112737
010346

000001
000006
000005

7061
7062

031424
031426

7066
7065

031434
031440

7055

7060

7063

7066
7067
7068

7069

7070
7071
7072
707%
7074
7075

7076
7077
7078
7079
7080
7081
7082
708%
7084
7085

7086

7087
7088
7089

7090
7091
7092

7093

031374

031422

031432

031444
031450
0314564
031456
031460
031462
031464
031466
031470
031472
031474
031500
031502
031506
031510
031512

031574

03155«

(012604

031556
031560

7098
7099

O%
0%

031
0%

RS,=(SP)
$OMODE +1,R4

::SAVE RS
;:GET THE NUMBER OF DIGITS 10 TYPE

105337
003347
002402

3¢ :

177770

6%:
5¢:

7%:

005204
000744
012605

012603
016666

012616
000002

000
000

6%:
000002

NUMBER

;3SET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT
:;SAVE R3

1%:

031536
031542
031544

16 BIT

#1,80F1LL
#6,30MOCE +1
#5,80CNT
R3,~(SP)

031575
000012

031572

$T1YPO(: MOVB
MOVB
$TYPON: MOVB
MOV

ADD
MOVB

104401

;:PICKUP THE MODE
;:LOAD ZERO FIiLL SWITCH
; :NUMBER OF DIGITS 10 TYPE
::ADJUST RETURN ADDRESS

000006
031576

000060
000040
031572

FOR TYPEQUT

FOR TYPEOUT

a(SP),=-(SP)
1(SP),80F1LL
(SP)+,90MODE+1
#2,(5P)

0627064
110437

000404
006105
006105
006105
010503
006103

::CALL

$TYPOS: MOV
movB
MOvVB
ADD

NEG

006105

SEQ 0137

:;NUMBER TO BE

031577

113704
016605
005003

159

NUM, - (SP)

TYPOC

Moy

031514
031516
031522
031526

031946
031550
031552

MoV

MoV
MOVB

005404

PAGE

TYPON

010546
113704

031576

031532

031575
031577
031574

010446

105337
100016
042703
001002
005704
001403
005204
052703
052703
110337

7094
7095

7096
7097

000406

031575

H 1

BINARY 10 OCTAL (ASCII) AND TYPE

;8zg
7047
7048

10:41

000004

8%:

MOvVB
MoV
(LR
ROL
B8R
ROL
ROL
ROL
MOV
ROL
DE(B
BPL
BIC
BNE
197
Bea

INC
BIS
81s
MOVB

1VYPE

DE(CB
BGY
BLT

INC
B8R

MOV
MOy
MOV
MOV

Mov
RT!

Byt
Byt

$TYPON

R4 ,-(SP)
R&

#6,R4
R& ,$0MODE

$OFILL,RG
12(SP) ,RS
R3
RS
3%
RS
RS
RS
RS,R3
R3
SOMODE
14 )
#177770,R3
4%
R&
5¢

R4
#'0,R3
2 ,RY
R3,8%

,8%

$OCNT
2%
6%

TYPED

:;CALL FOR TYPEOUT

;:SAVE R4

::SUBTRACT IT FOR MAX, ALLOWED
::SAVE 1T FOR USE

::GET THE ZERO FILL SWIT(H
;:PICKUP THE INPUT NUMBER
:;CLEAR THE QUTPUT WORD
;:ROTATE MSB INTO ‘'C"
;.60 DO MSB
;.FORM THIS DIGIT

::GET LSB Of THIS DIGIT
::;TYPE THIS DIGIT?
;.BR IF NO
;:GET RID OF JUNK
::TEST fOR O
;s SUPPRESS THIS 0?
;:BR IF YES

::DON'T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASCII
:MAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

;:60 TYPE THIS DIGIT
:;COUNT BY 1
::BR [F MORE 10 DO
::BR 1f DONE

R4
2%
(SP)+,RS

;o INSURE LAST DIGIT ISN'T A By ANK
;.60 DO THE LASY DIGIT

(SP)+ ,R3
2(SP),&(SP)

;sRESTORE R3
;:SET THE STACK FOR RETURNING

(SP)+ R4

(SP)s+,(5P)

0
0

: ;RESTORE RS
:RESTORE R4

s sRETURN

::STORAGE FOR ASCII DIGIT
;;VTERMINATOR F0R TYPE ROUTINE

(IRJDDO, RPO&/S/6 MLT=-DR LG(
(IRJ00.P11
0o-JUN-79 (08:32
7100
7101

SEQ 0138

;}82

SBTTL

CONVERT BINARY

7106

7107
7108
7109
7110

:*THIS ROUTINE 1S USED TO CHANGE A 16-B]T BINARY NUMBER T0 A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THME
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

7112
7113
;}}g

seCALL:
X
o

000000

$OMODE:

IARD

031600

7118
7119

031602
031604

7120

7121
7122

031600
031606
031610

7123
7124
7125

031612
031616
031622
031624

7127
7128
7129
7130
7131
7132
7133

031634
031636
031642
031646
031650
031656
031656

7136

031664

7126

713
7135

7137
7138
7139
7140
71641
7142
714%
7144
71645

71646

71«7
7148
71«9

7150
7151
7152
718%
715«

7199

::0CTAL DIGIT COUNTER
;. JERO FILL SWITCH

; ;NUMBER OF DIGITS
10 TYPE
TO DECIMAL AND TYPE ROUTINE

AR AR AR A A A R A A A A R A A R A A AR R AR A

AR AR

ARl

;*REPLACED WITH SPACES.

7116

7117

.WORD

0
0

140

.BYTE
.BYTE

031576

000
000

1 1
30A(1052)
03-JuL=79
10:41
PAGE
BINARY T0O OCTAL (ASCII1) AND TYPE
$OCNY:
$OFILL:

;}8%

031574
031575

MACY1Y

031626

010046

010146
010246

016605
100004
005405

112766

005000
012703
112723
005002
016001
160105
002402

005202
000774

031666
031670
(031672
031674
031676
031700
031702
031710
031714

005702
001002
105716
100407
106316
103003
116663
052702
052702

031722
031726
031730

031732
03173¢
031736
031740
031742

031744

020200
000020

000055

000001

032014
000040

005720
020027
002746
003002
010502
000764

105726
100003

116663

;:PUT THE BINARY NUMBER ON THE
;60 TO THE ROUTINE

MoV

RO,=-(SP)

;;PUSH RO ON STACK

MOV
MoV

R3,=-(SP)
RS,--SP)

;;PUSH R3 ON STA(K
;:PUSH RS ON STACK

LYY
MOV
BPL
NEG
1%
2%:

032004

1% :

060105

110223

NUM, = (SP)

MoV
Mov

010346

010546
012746

031660
031662

031720

$1YPDS:

Mov
TYPDS

5¢:

000001
009060
000040

177777

6%:

7%:

8%:

177776

#20200,-(5®)
20(SP) ,RS
1%
RS

#'-,1(SP)

::PUSH R1 ON STACK
;;PUSH R2 ON STACK

;:SET BLANK SWITCH AND SIGN
;sGET THE INPUT NUMBER
::BR 1F INPUT IS POS.
;;MAKE THE BINARY NUMBER POS.

;;MAKE THE ASC]] NUMBER NEG.

(LR
MOV
MOVB
(LR
MCv
SLB
BLT

RO
#$DBLK R}
' L(RY;
R?
$DTBL (RD) R
R1,RS
6%

;;IERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
:;SET THE FIRST CHARACTER 10 A BLANK
;s CLEAR THE BCD NUMBER
;.GET THE CONSTANT
;;FORM THIS BCD DIGIT
::BR IF DONE

ADD

R1,RS

;s ADD BACK THE

RZ2,(R3)

::PUT THIS CHARACTER IN THE QUTPUT BUFFER

INC
B8R

T¢1
BNE
1S18
gmi
ASLB
BCC
MOVB
BIS
BIS

MOVB
191
(mp
BL1

000010

177777

MOVvVB

R1,-(SP)
R2,-(SP)

STACK

861
MOv
BR
1S18
BPL

MOV8B

R?
3%

R?
5%
(SP)
7%
(SP)
6%
1(SP),=1(RY)
#'0,R2
»” ,R2
(RO)+
RO,M0
2%

8%
RS,R?
6%
(SP)e
Qs

«1(SP),=2(RY)

;:;INCREASE THE BCD DIGIT By 1
CONSTANT

;s CHECK IF BCD DIGIT=0
::FALL THROUGH IF O
::STILL DOING LEADING 0°'S?
;:BR IF YES
;.MSD?
::BR IF NO
;oYES==-SET THE SIGN
;;MAKE THE BCD DIGIT ASCII
::MAKE 1T A SPACE |f NOT ALREADY A DIGIT
;2 JUST INCREMENTING
;. CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
;:60 TO EX!T
;:GET THE LSD
;G0 CHANGE T0 ASCII

;:WAS THE LSD THE FIRST NON=ZERO?
;.BR I1F NO

soYES==SEY THE SIGN FOR TYPINo

C(IRJDDO, RPOG/5/6 MLT=DR 1. G (
06-JUN-79 08:3%2
CIRJDD.P1
7156
7157
7158
7199
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170

ARA
7172

031752
031754
031756
031760
031762
031764
031766
031772
032000
032002
032004
032006
032010
032012
032014

MACYIT1

105013

012605
012603
012602
012601
012600
104401

016666
012616
000002
023420
001750
000144
000012
000064

9% :

032014
000002

7184

7185
7186
7187
7188
7189
7190

7191

7192
7193
719¢
7195
7196
7197
7198
7199
7200
7201
7202

7203
7206
7205
7206
7207
7208
7209
7210
7211

(LRB

MOV
mov
Mov
mov
Mov

LSBTTL

TTY

"ENABL
R

;:NOW

TERMINATOR

TYPE

INTO
INTO
INTO
INTO
INTO

THE

RS
R3
RZ
R!
RO

NUMBER

STAC(K

THE

;;RETURN TO USER

INPUT ROUTINE

ZE E

LSB

XXX 22K

THE

SEQ 0139

STACK
STACK
STACK
STACK
STACK

;s ADJUST

10000.
1000.

$DBLK:

. $DBLK

:;POP
;;POP
;;POP
;;POP
;;POP

(SP)e+,(SP)

Mov
RTI

100.
10.
.BLKW

SR X2

;:SET

2(SP) ,4(SP)

Mov
$DTBL:

(RY)

(SP)+ RS
(SP)+ RS
(SP)+ ,R?
(SP)+ ,R1
(SP)+ RO

TYPE

000004

7173
7174

7175
7176
777
7178
7179
7180
7181
7182
7183

J N

30AC1092)
O3-JUL=79
10:61
PAGE 141
C(ONVERT BINARY TO DECIMAL AND TYPt ROUTINE

EZZ

EREENAR R

2SRRI

RN AN RN AR AR AR AR AR SR

RRAERAEAR

AR AR AR

RN A

ARN)

;*SOFTWARE SWIT(H REGISTER C(HANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP (ALL

032026
032032
032034
032040
032042
032046
032052
032056
032060
032066
032070
032074
032100
032104
032106
032112
032114
032116
032122

032124
032130

03213
032140
032142
032146

022737
001074
105777
100671
117746

042716
022726
001062
123727
001456
10660
104401

013746
104402
104401

005046
005046

. *WHEN OPERATING

::1S THE SOFT-SWR SELECTED?
::BRANCH If NO

147100
177600

MOVB
BIC

a%$TKB,-(SP)
#*C177,(SP)

::SAVE THE (MAR
::STRIP=-OFF THE ASCil

001134

BNE
CMPB

15¢%
$AUTOB. . M

::NO, RETURN 10 USER
:;ARE WE RUNNING IN AUTO-MODE?

LJOONTLG

:;ECHO THE C(ONTROL=G (*G)

147104

BPL

(MpP

000007

032433
032440
000174
032451

000001

BEQ

$GTSWR:

19%:
’y:

147022

117746

147016
177600

021627
00100%

000025

9% :

032426
000006

20%:

104401

062706

TYPE

15¢%

#7,(SP)¢
15%

TYPE
MOV

L, OSMSWR
SWREG,~-(SP)

TYPE

LOMNEW

TYPOC

105777
100375

042716

FLAG MODE.

#SWREG, SWR
15%
a%T1Ks

001140

$CKSWR:

IN TTY

(MpP
BNE
T1ST8

000176

;s CHAR THERE?

::1F NO, DON'T WAIT AROUND
:;1S

A CONTROL G?

;;BRANCH

YES

::TYPE CURRENT (ONTENTS
::;SAVE SWREG FOR TYPEOUT

::60 TYPE=-=OCTAL ASCIIC(ALL DIGITTMS)
;;PROMPT

FOR NEW SWR

CLR
(LR
1518
8PL

-(SP)
=(SP)
a%1KS
7%

:sCLEAR COUNTER
;: THE NEW SWR
;s CHAR THERE?
::
18 NOT TRY AGAIN

MOVB

a%1k3,-(SP)

;.PICK UP (HAR

{Mp
8NE
1YPE
ADD

(SP),#25
10%
LOONTLU
86,5°P

;215 17T A (ONTROL=UL?
;;BRANCH ]F NOIU
JiYES, ECHO (ONTROL=U (*U)

£2C177,(5P)

soMAKE 1T

7-BIT ASCII

:: 1GNORE PREVIOUS INPUT

CIRJDDN, RPO&L/S5/6 MLT-DR LGC
(IRJDD.PWY
06-JUN-79 08:3¢
7212
7213
7214
7215

7216
7217

7218
7219
7220
7221
7222
7223
7224
7225
7226

7227
7228
7229

7230
7231
7232
7233
7234
7235
7236
7237
7238
7239

7240
72641

7242
7243
7244
7245
7246
72467

7248
7249
7250
7251
7252
7253
7256
7255
7256
7257

7258
7259
7260
7261
7262
7263
7264
7265
7266
7267

032152

000757

032154
032160
032162
032166
032170
032176
032202
032206
032214
032216
032224
032226
032232
032236
032240
032244
032246
032252
032256
032260
032262
032264
032266
032272
032276
032300
032304

021627
001022
005766
001403
016677
062706
1046401
123727
001003
012777
000002
004737
021627

000015

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707

000067

002420

104401
000720

MACY11

30AC1052)
TTY

03-4uL=79

INPUT

ROUTINE

000002
000006
001165

146742

001135

000001

000100

146720

031302
000060

;;BRANCK IF

ADD
TYPE
(mpP8
BNE

15%:
16%:

17%:

001164

18%:

#100,a$1ksS

R11
JSR
(mMp

PC,8TYPEC

ZA 22

:ECHO CHAR

::CHAR < (0?
:;BRANCH

YES

18%
#60, (SP)+

::BRANCH

YES

17%

; :BRANCH

YES

::CHAR > 7?7

(SP), 067

::STRIP=-0FF ASCII
2215 THIS THE FJRST (HAR

2(SP)

::NO, SHIFT PRESENT
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
M
;;KEEP COUNT OF (HAR
;SET IN NEW CHAR
::GET THE NEXT ONE

20%

::SIMULATE CONTROL-U

(SP)
(SP)
(SP)

2(SP)
=2(SP), (SP)

.SQUES

ZE2

NOT

;:RE-ENABLE TTY KBD INTERRUPTS
; ;RETURN

(SP),#60

BIS
BR
TYPE
BR
LSB

XXX

;;BRANCH [F

18%

ASL
ASL
ASL
INC

.DSABL

;:RE-ENABLE TTY XBD INTERRUPTS?

MOV

157
8taQ

000002
177776

::ECHO <CR> AND <Lf>

M
SINTAG,
15%

BLT
(mMp
BGT
BIC

000060
000002

YES

;:SAVE NEW SWR
;3 CLEAR UP STALK

MOV

11%:
14%:

SEQ 0140

2318 1T A <(R>?
;;BRANCH IF NO
2:YES, IS IT THE FIRST (HAR?

(mp
BNE
181
BEQ

000004

142

;sLET'S TRY IT AGAIN

19%

BR
10%:

11
PAGE

10:41

222X

2<CRO<LE>

;s TYPE

AR RS

ARASR

RNl

E;THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTv
;eCALL:
o
.t

RDCHR
RETURN

HERE

032306
032310
032316
032322
032324

032332
032340
032346
032350
03235
032356
032362
032366
032372
032374

000004
146622

000002

146616

000004
000004
000023

177600
000004

166570

146564
177600
000021

000750

$RD(HR:
1%:

2%:

MOV
MoV
1518

BPL
MOvVB
BIC
(Mp
BNE
1S1B
BPL
MOvVB

BIC

(MP
BNE
BR

(SP),-(SP)
4(SP),2(SP)
9%$7KS

1%
a$T1kB,4 (SP)
#40C<177>,4(SP)
4(SP),#23
3%
9%71KS
2%
abT1kB,-(SP)

#4C177,(SP)
(SP)+,#21
2%
1%

;s INPUT A SINCLE C(HARACTER FROM THE TTy
;s CHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED CQFF
;:PUSH DOWN THE

::SAVE THE PS
;:WAIT FOR

:sA CHARACTER

;;READ THE TTy
;:GET RID OF JUNK JF ANY
;019 1T A CONTROL=-S?
;;BRANCH IF NO
::WALT FOR A CHARACTER

:;LOOP UNTIL I7S THERE
::GET CHARACTER

;:MAKE

7-BI1T

ASCl]

;1S 1T A CONTROL=-Q?
;:1F NOT DISCARD 1T
;s YES, RESUME

CIRJDDO, RPO4L/S5/6 MLT-DR LGC
CZRJDD.PY
06-JUN-79 08:32
7268
7269
7270
7271
7272
7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284

e OO0y
M)

NN
NN NN
P A L LM L\ L N

PPN
ot = et s

7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299
7300
7301
7302
7303
7304
7305
7306
7307
7308
7309
7310

032376
032406
03¢406
032414
032416
032424
032426
032433
032440
032446
032451
032456

026627
002407
026627
003003
042766
000002
052536
136

005015

020075
040
036440

MACY1T

000004

000140

000004

000175

000040

000004

005015
006507
053523
000
047040
000040

30A(1052)
TTY

INPUT

1%:

03-JuL-79

ROUTINE

{mp
BLT

10:41

L1
PAGE 143

4(SP),#140
3
4(SP),mM75
3]
#40,4(SP)

;. 1S 17 UPPER (ASE?
; :BRANCH [F YES
;1S 1T A SPECIAL (MHAR?
:;BRANCH IF YES

000
000012
020122

4%:
$CNTLU:
SCNTLG:
$MSWR:

(mp
BGY
BIC
RTi
ASCIY
CASCHY
<ASC1Z

053505

$MNEW:

LASCIZ

LSBTTL

RANDOM NUMBER GENERATOR ROUTINE

/2U/<15><12>
12G/7<15><12>
<15><12>/5uWR
/

SEQ 0141

;sMAKE

;.60 BACK
;s CONTROL
;; CONTROL

UPPER CASE

NEW =

:"""""""""""""I"'t"""."'t't'.lt'."""l""'.'t

;*THIS ROUTINE IS A DOUBLE PRECISION FSEUDO RANDOM NUMBER GENERATIOR
;*WITH A RANGE OF O TQ 2(+33)-1,

;*CALL:

$RAND:

032462
032462
032464
032466
032470
032474
032500
032504
032506
032510
032512
032514
032520
032522
032526
032532

032562
032560
177771

1%:

032562

RETURN

MOV
MOV
MOV
MOV
Mov
Mov
ASL
ROL

.SBTTL

$LONUM,RO
SHINUM,R1

ADD

$HINUM:
$SLONUM:

RO, =-(SP)
R1,-(SP)
R2,=(SP)

ADC

MOV

MOV
MOV
MOV
MOV
RTS
.WORD

.WORD

;:CALL THE ROUTINE
:;RETURN HERE

THE

: NUMBER WILL BE
:; SHINUM, $SLONUM

INC
BNE

ADD
ADD
AD(

047401
032562
032560

PC,$RAND

¥-7,R2
RO
R1
R?
1%

ADD

032560
001057

123456

JSR

$LONUM,
RO

SHINUM,RY

#1057 ,R0
R1
047401 ,R1
RO, SLONUM
R1,SHINUM
(SP)+,R2
(SP)+,R1
(SP)+,RO
PC

176543
123456

RANDOM

;:PUSH RO ON STACK
:;PUSH R1 ON STACK

:-PUSH R2 ON STACK
::SET RO WITH LOW
::SET RY1 WITH MIGH
::SET SHIFT COUNT

;:SHIFT RO LEFT AND
::ROTATE

CARRY

INTO R1

::CHECK FOR DONE
:;CONTINUE SHIFT LOOP

AND

:;ADD NUMBER TO MAKE x 129
; ;PROPOGATE

CARRY

;:ADD NUMBER TO MAKE X 129
;. ADD LOW CONSTANT
: :PROPOGATE CARRY
;;ADD HIGH CONSTANT

;:SAVE RO
;:SAVE R
::POP STACK INTO R?
;;POP STACK INTO R1
::POP STACK
:;RETURN

INTO RO

SAVE AND RESTORE RO-RS ROUTINES

":""."""""""'""""""""t'l"."'.'ll'lll'l"'l"t!

;*SAVE RO-RS

;eCALL:

SAVREG

CZRJDDO, RPOL/S5/6 MLT=-DR LGC
(ZRJOD.PYI
06-JUN-79 08:32
7326

7326

7339
7340
7341
7362
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7578
7379

SAVE

10:41

LRA

PAGE
AND RESTORE RO-RS ROUTINES

144

SEQ 0142

STACK wltLL LOOK LIKE*:

;'TOP°-'(016)

7327

7338

03-JuL=79

30A(1052)

'UPON RETURN FROM $SAVREG THE

7325

7328
7329
7330
7331
7332
7333
7334
7335
7336
7337

MACY11

;v 42=-=-=(+18)
;v
*

+4===RS
+6=-==R{

+ +8--<-R}
*+10---R2
*+12-==R1

*414===R0

032564
032564
032566
032570
032572
03257¢
032576
032600
032604
032610
032614
032620

$SAVREG:

010046

010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

MOV
MOv
Mov

Mov
MOV
Mov
Mov
MOV
Mov
mny
RV

000022
000022
000022
000022

RO,=(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

;;PUSH RO ON STA(K

:;PUSH RT ON STACK
;;PUSH R2 ON STACK

R3
R4
RS
PS

ON
ON
ON
OF

STA(K
STACK
STAC(CK
MAIN FLOW

(SP)+,22(5P)
(SP)+,22(SP)
(SP)+,22(5P)
(SP)+,22(SP)
(SP)+ RS

:sRESTORE
:;RESTORE
;sRESTORE
;;RESTORE

PC
PS
PC
PS

C, CALL
OF CALL
OF MAIN FLOW
OF MAIN fFLOW

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0O

::POP STACK INTO R3

R&,=(SP)

RS ,=(SP)
22(SP),~(SP)

22(SP) ,=(SP)
22(SP},=(SP)
22(SP),~(SP)

::PUSH
::PUSH
;;PUSH
;SAVE

..SAVE PC OF MAIN FLOW
;. SAVE PS OF CALL
;:SAVE PC OF CALL

:*RESTORE RO-RS
'CALL

032622
032622
032626
032632
032636
032642
032644
032646
032650
032652
032654
032656

012666
012666
012666
012666

000022
000022
000022
000022

SRESREG

RESREG

MOv

MOV

MOv
Mov
MoV
MOv
MOV
Mov
Mov
Mov
RTI

000002

.SBTTL
B

(SP)+ R4

:;POP STACK INTO RS
;;POP STACK

INTO R4

;;POP STACK

INTO R?

::POP STACK

INTO RO

;:POP STACK INTQ R1

DOUBLE LENGTH BINARY TO DECIMAL ASCI] CONVERT ROUTINE

2322222222232 222222202222202022022R0Rd2RRRRRdRRRRRlRRRRS
Rl
]

'THIS ROUTINE WILL CONVERT A 32-BIT1 BINARY NUMBER T0 AN UNSIGNED
;*DECIMAL (ASCI]) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
:'POSITIVE.
;eCALL
B

MOV

RETURN

032660
032662
032666

104412

016602
012700

000002
033040

$0B2D:

JSR

SAVREG

MOV
MOV

#PNTR,=-(SP)

PC,a#$DB2D

2(SP) ,R2
RO
#SDECVL

:;POINTER TO LOW WORD GF BINARY NUMBER

s THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK

::SAVE REGISTERS
::PICKUP THE DATA POINTER
::GET ADDRESS OF ''$DECVL'" STRING

CIRJDDO, RPO&L/S/6 MLI-DR LGC
(ZRJDD.PIY
06-JUN-79 08:32
7380
7381
7382
7383
7384

032672
032676
032700
032702
032710

010066
012207
012202
012737
012704

7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400

032720
032722
032724
032726
032730
032732
032734
032736
032740
032742
032744
032746
032752
032756
032756

005003
161401
005602
161502
002402
005203
000772
062401
005502
062402
022525
052703
110320
005327
000000

7585

032714

76401
76402
76403
764064
76405
76406
76407

032760
032762
032764
032766
032770
032772
032774

76409
76410
7411
76412
76413
7414
7415
76416
7417
7418
7419
76420
7421
76422
76423
76424
;455

033000
033002
033004
033006
033010
033012
033014
033016
033020
033022
033024
033026
033030
033032
033034
033036
033040

76408

426

742;

032776

012705

001357
105020
106413
000207
145000
035632
160400

MACY1T

N1
30A€1052)
03-yUL-79
10:41
PAGE 145
DOUBLE LENGTH BINARY TO DECIMAL ASCII

000002

000012
032770

032772

032756
1%:
2%:

000060
6%

$TNPWR:

002765

113200
000230
041100
000017
103240
000001
023420
000000
001750
000000
000144
000000
000012
000000
000001
000000
000014

CONVERT ROUTINE

SEQ 0143

MoV
MoV
Pov
mov
MoV

RO,2(SP)
(R2)+,R1
(R2)+ ,R2
710.,48
#STNPWR ,RG

::PUT ADDRESS OF ASCIZ STRING ON STACK
:;PICKUP THE BINARY NUMBER

(LR
SUB
SB(
SUB
BLY
INC
BR
ADD
ADC
ADD
(mp
B1S
MOVB
DEC
.WORD

R3
(R&) ,R1
R2
(RS),R2
3%
RY
2%
(R&)+,R1
R2
(RG)+ ,R2
(RS)¢,(RS)*
#'0,R3
R3, (RO)+
(PC)+
O

::CLEAR PARTIAL
;:SUBTRACT TEN POWER

MOV

BNE
(1 RB
RESREG
RTS
145000
35632
160400

:;SET UP TO DO 10 CONVERSIONS
: ADDRESS OF TEN POWER

#STINPWR+2,RS

::BR |f TEN POWER TQ LARGE
:sADD 1 TO PARTIAL
;:L00P
;;RESTORE SUBTRACTED VALUE
:;MOVE TO NEXT TEN POWER
::CHANGE PARTIAL T0 ASCII
;:SAVE T
; :DONE?

1%
(RO)+

::BR IF NO
::TERMINATOR
::RESTORE REGISTERS
: :RETURN
::1.0809

;:1.0€08

2765

$DECVL:

113200
230
041100
17
103240
1
23420
0
1750
0
144
0
12
0
1
0
.BLKB

.SBTTL

DOUBLE

;:1.0€07
::1.0€06
::1.0€05
::1.0806
::1.0803
::1.0802

;3 1.0E0N
::;1.0€00
12.
LENGTH BINARY

:;RESERVE
TO OCTAL

STORAGE

ASCII

FOR ASCIZ

CONVERT

STRING

ROUTINE

;4229

;;ttltt""i"tt'tt't't"'t't't"'lt"ttltt'tlttl'tt!ltt't"llt'!

76431

:*UNSIGNED OCTAL ASCIZ NUMBER.

7430

:*¢THIS ROUTINE WILL CONVERT A 32-BlT1 UNSIGNED BINARY NUMBER TO AN

7432

;eCALL

7434

‘e

7433

7435

MoV

RETURN

JSR

#PNTR,=(SP)

PC,antnB20

:;POINTER T0 LOW WORD OF

SSCALL THE ROUTINE
SITME ADDRESS OF

TMi

BINARY NUMBER

FIRST

ASCIZ (HAR.

15 ON THE STALK

CIRJDDO, RPO4/S/6 MLT-DR LGC

(ZRJDD.P1Y
7436
76437
76438

06-JUN-79 08:32

76439
76440
76461
76462

033054
033056
033062
033066
033072

104412
016601
012705
012706
01270%

7646
7645
7646

033100
033102
033104

012101
005002
110245

7443

76447
76448
76449
7450
76451
76452
76453
76454
7455
7456

7457

7458
76459
76460
7661

76462
7463
76464
;465
L66

033076

033106
033110
033112
033114
033116
033120
033124
033126
©33130
033132

033134

033136
033140
033142
033144

033146
033150
033154
033156

012100

010002
005304
003007
001405
005205
010566
104413
000207
006203
006001

MACY11

$0B20:

000002
033173
000014
177770

03-JuL=79

1%:

000002

2%:
3¢ :

006001
006000
006001
006000

2(sP),R1
#80CTVL*13.,RS
#12.,R6
#°C7,R3

::SAVE ALL REGISTERS
::PICKUP THE POINTER 70 LOw WORD
;;POINTER TO DATA TABLE
::D0 ELEVEN CHARACTERS
; :MASK

MoV
(LR
MOVB

(R1)+,R)
R?
R2,-(RS)

; sHIGH WORD
;s TERMINATOR
::PUT CHARACTER IN DATA TABLE

MOV
DEC
BG1
8EQ
INC
MOV
RESREG
RTS
ASR
ROR

ROR

ROR
ROR
ROR
ROR

BIC
ADD
BR
$0CTvL: .BLKB

000060

10:41

SAVREG
MOV
mov
Mov
MOV

mMov

006000

0640302
062702
000753
000016

8 12
PAGE 146
DOUBLE LENGTH BINARY T0 OCTAL ASCI! CONVERT ROUTINE

30AC1052)

(RY)+,RO

RO,R2
R4
3%
2%
RS
RS,2(SP)
PC
R3
R1

R
RO
R
RO

R3,R2
#'0,R2
1%
14.

:;LOWER WORD

::GET THIS DIGIT
;:COUNT THIS CHARACTER
::BR If NOT THE LAST DIGIT
::BR IF IT IS THE LAST DIGIT
::ALL DIGITS DONE-ADJUST POINTER FOR FRST
;;ASCIZ CHAR, & PUT |7 ON THE STA(K
::RESTORE ALL REGISTERS
;;RETURN T0O USER
::POSITION THE MASK FOR THE LAST DIGIT
::POSITION THE BINARY NUMBER FOR

THE NEXT OCTAL DIGIT

;:MASK OQUT ALL JUNK
; :MAKE THIS CHAR. ASCII
;:60 PUT IT IN THE DATA TABLE
;sRESERVE DATA TABLE

76467

.SBTTL

74L69

;;t'.ttttt"'tt'tt""""'tt"tttttttltttttl'ttt'tt'tl"tit't'll

;4;3

:«G0 TO THAT ROUTINE.

76468

7470
76471
76472
“74

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "'TRAP'® INSTRUCTION
s*AND USE 17 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:+0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

7475

033174

010046

7680
7481

033210
033214

016000
000200

7476
7477
7478
7479
7482
7483

033176
033202
033204
033206

016600
005740
111000
006300

$TRAP:

000002

033230

7485

7490
74691

MOV

RO,-(SP)

MoV
RTS

$TRPAD(R0) ,RO
RO

MOV
ST
MOVB
ASL

2(sP),R0O
-(R0O)
(RO),RO
RO

::SAVE RO

;:GET TRAP ADDRESS
: ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
::INDEX TO TABLE
: ;G0 TO ROUTINE
,

7484

76486
7487
;Agg

T7TRAP DECODER

::THIS 1S USE TO HANDLE THE "'GETPRI' MA(RO
033216
033220
033226

011646
016666
000002

000004

000002

$TRAPZ2: MOV
MOV
RTI
LSBITL

(SP),=(SP)
4(SP),2(SP)

TRAP TABLE

;:MOVE THE PC DOWN
;:MOVE THE PSW DOWN
;RESTORE THE PSW

SFEQ 0144

MACY1Y

30A(1052)
03-JUL-79
TRAP TABLE

10:41

¢ 12

PAGE

147

SEQ 0145

7692
7493

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF
;*BY THE "'TRAP' INSTRUCTION.

7695

;

7694

7496
7497
76498
7499
7500
7501

033230
033232
033234
033236
033240

033216
031132
031376
031352
031412

;232

0332446

7506

7509
7510
7511

;28%

7507
7508

;2;5

s
$STRPAD:

ROUTINE

eesee-e
.WORD
$TRAP?
S$TYPE
;. CALL=TYPE
$1YPOC
;. CALL=TYPOC
$1YPOS
;;CALL=TYPOS
$STYPON
;;CALL=TYPON

$TYPDS

;;CALL=TYPDS

032074

$GTSWR

;; CALL=GTSWR

TRAP+6(104406)

GET

033246

032024

$CKSWR

;;CALL=(KSWR

TRAP+7(104407)

TEST

033254
033256
033260

032564
032622
027554

$SAVREG
SRESREG
$OSPLY

;;CALL-SAVREG
;:CALL=RESREG
;;CALL=DISPLY

TRAP+12(104412)
TRAP+13(104413)
TRAP¢14(104414)

SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE
ROUTINE TO TYPE ERROR MESSAGES

033242

033250
033252

031600

032306
030330

SRDCHR
SROLIN

000032

$STERM- . -$TRPAD

; ; CALL=RDCHR
;;CALL=ROLIN

;2}3

.SBTTL

7520
7521
7522
7523
752‘!
7525

;COPYRIGHT (C) 1976,19/9
;DIGITAL EQUIPMENT CORP.
;MAYNARD, MA 01754

;STORAGE

7527
7528
7529
;gg?

7564%
7544
7545
7566
7547

TTY
T1Y

SOFT-SWR SETTING
FOR (HANGE

IN SOFT-SWR

TYPEIN CHARACTER ROUTINE
TYPEIN STRING ROUTINE

SINGLE/DUAL PORT RH11/RP04/S/6 DRIVER

(REV 1.0)

;"t'tt't""'t""'t'tt""""t'tt't't'tttl!t'ttttttit"tl"ttt'

7526

7535
7536
75%7
7538
7539
75640
7561
7562

TRAP+10(1064410)
TRAP+11(104411)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

;'-tt'ttttt"tt'tt"t't'"t""tt"""lttt"t!tttt'tt"'tlttttt't

7515
7516
7517

ROUTINES CALLED

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

7514

7532
;2;3

THE

033262
033270

000000
000000

000000

RPERRS:

FOR RPDS1,

;RPERRS
;RPERRS+2
;RPERRS*4
;RPERRS+6
.WORD

=
=
=
=

RPER1,

RPDS!
RPER!
RPER?
RPER}Y

RPER2,

AND RPER3 ON AN ERRUR '"2"

0,0,0,0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVA(CT 8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE
;sDRVACT>0 if DRIVE IS ACTIVE WITH A (OMMAND
;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION
033272
033273
033276

033275
033276
033277
033300
033301

000
000
000

000
000
000
000
000

DRVALT:

.BYTE
.BYTE
BYTE

.BYTE
BYTE
BYTE
BYTE
.BYTE

0
0
0

O
0
0
0
0

;DRIVE 0
;DRIVE i
:DRIVE 2

:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

3
&
5
6
7

late)

CIRJDDO, RPO4/S/6 MLT-DR LGC
CIRJDD.PIY
06=JUN=79 08:32

(IRJDDO, RPO4L/S/6 MLT-DR LG(

CIRJDD.PIY

06-JUN=-79 08:32

7548

7549
7550
7551

033302
033303
033304

000
000
000

7558

033306

000

;265
6

033305

033307
033310

033311

7574

033316

ono

033315

033317
033320

033321

DRVIYP:

0
0

:DRIVE

;DRIVE 5§
;:DRIVE 6

;DORIVE 7

0
0
0

:DRIVE 0
;DRIVE 1
;DRIVE 2

.BYTE

;DRIVE &

.BYTE
:TABLE OF

0
0

DUAL PORT

:DPINT=0 I1F

(DRVSTA=0, ALSO)

:DRIVE 3

:DRIVE S
:DRIVE 6

;DRIVE 7
INITIALIZATION INDICATORS

INITIALIZATION 1S NOT ACTIVE ON THE DRIVE

:DPINT<O IF INITIALIZATION IS IN PROGRESS
033322
033323
033324

000
000
0C0

7587

033326

000

033325

033327

033330

033331

DPINT:

000

.BYTE
.BYTE
.BYTE

0
0
0

:DRIVE O
;DRIVE 1
;DRIVE 2

.BYTE

;DRIVE &

.BYTE

000

.BYTE

000

.BYTE

000

7592

0
0

;DRIVE 3
;DRIVE S

;DRIVE 6

:DRIVE 7

;:TABLE OF PENDING DUAL PORT REQUESTS

7593
7594

:OPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
:DPRAS<O I1F THAT A DUAL PORT REQUEST IS PENDING FOR THAT DR]VE

7596
7597
7598
7599
7600
7601

033332
033333
033334
033335
033336
033337

000
000
000
000
000
000

7603

033341

000

7602

.BYTE
BYTE
.BYTE

.BYTE
LBYTE

000

7583
7584
7585

7595

:DRIVE &

.BYTE

;gg;

;23?

.BYTE

000
000

7580

7589

.BYTE

.BYTE
.BYTE

000

7579

7588

:DRIVE O
;DRIVE 1
;DRIVE 2

DRIVE TYPES (DRVTYP=8 BYTES)
:DRVIYP=0 IF DRIVE IS NONEXISTENT
;DRVTYP=1 IF DRIVE [S RPO4
:DRVIYP=2 |F DRIVE IS RPOS
;DRVIYP=4 [F DRIVE IS RPO6
;DRVIYP==1 [F NOT RP04/S/6

000
000
000

7586

¢
0
0

:TABLE OF

033312
033313
033314

;g;g

.BYTE
.BYTE
.BYTE

.BYTE

000

7570
7571
7572

7575
7576

DRVSTA:

000
000

7564
7565
7566
7567
;268

7573

10:41

0D 12
PAGE

148
SINGL E/DUUAL PORT RM11/RP0O4/5/6 DRIVER (REV 1.0)

000

7563

03-4uL-79

:DRVSTA<CO [F DRIVE IS UNSAFE

7554
7555
7556

7559
7560

30AC1052)

:TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
:DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>Q IF DRIVE IS ONLINE

;22%

7557

MACY1Y

033340

000

DPRQS:

.BYTE
.BYTE
BYTE
BYTE
BYTE
.BYTE

O
0
0
0
D
0

;:DRIVE
:DRIVE
;DRIVE
:DRIVE
:DRIVE
;ORIVE

LBYTE

;DRIVE 7

BYTE

O
1
2
3
4
S

:DRIVE 6

SEQ 0146

7604
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619

7624
7625
7626

7627
7628
7629
7630
7631
7632
7633
7634
7635
7636
7637

7638

7639
7640
7641
7642
7643
7644
7645
7646
7647
7H48
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659

30A(1052)

03-JuL=79

10:41

£ 12

PAGE

149

SEQ 0147

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
;TRANSFER WAIT

FLAG

TRNSWT:

(TRNSWI=1

WORD)

;THIS 1S A ONE WORD QUEUE. 1T WILL CONTAIN THE ADDRESS OFf
.''DPB*' OF THE [/0 OPERATION.

033342

000000

.WORD

;SEARCH WAIT KEYS

(SR(HWT=1

WORD)

:THIS IS A ONE WORD QUEUE THAT wiLL CONTAIN A KEY FOR EACH OF
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE [/0
;REQUEST THAT 1S AT THE TOP Ot THEIR REQUEST QUEUE.
;EACH DRIVE 1S ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O.

033344

000000

SRCHWT:

.WORD

;RP0&/5/6 DRIVER ACTIVE FLAG (ACTDRv=1 BYTE)
;ACTDRV=0 |F DRIVER IS INACTIVE

7620
7621
7622

7623

MACYT1

;ACTDRV>0

033346

000

ACTDRV:

,BYTE

DRIVER

ACTIVE

:SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
;ACTSTR=0

;ACTSTR>0 If
033347

000

ACTSTR:

.BYTE

SOFTWARE

TIMER ROUTINE

SOFTWARE TIMER ROUTINE

INACTIVE

S ACTIVE

SUNLOAD FLAG (ULDFLG=8 BYTEY)

;ULDFLG=0 IF NO UNLOAD COMMAND
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS
:ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

033350

000
000
000
000
000
000
000
000

ULDFLG:

.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BY1E
.BYTE

.BYTE

;DRIVE 0
1
2
3

;DRIVE
;ORIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

0
O
O
0
0
0

&
5
6

;DRIVE 7

;LOOK AHEAD COUNT (LACNT:=8 BYTES)
JLACNT WiLL INDICATE THE NUMBER GF LOOK AHEADS PERFORMED
LACNT:

365
366
367

_BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE
LBYTE

BYITE

0
O
0
0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DORIVE
;DRIVE
;DRIVE

:DRIVE 7

sSAVE REGISTERS FLAG (SAVEFG =1 WORD)
sSAVEFG <O JF

O
1
2
3
&
9
6

SAVE

THE RMIT/RP04/S/6 REGISTERS wHEN Twt

—-—

(IRJDDO, RPO4/S/6 MLT-DR LGC
(IRJDD. P
06-JUN-79 08:32

(IRJDDO, RPO4/S/6 MLT-DR LGC

(IRJYDD.P

06-JUN=-79 08:32

MACY11

30A€1052)

10:41

PAGE

150

SINGLE /DAL PORT RMI1/RP0O4L/5/6 DRIVER (REV 1.0)

7660
7661
;bg%
;bgg

03-JuL-79

;OPERATION 1S COMPLETED AS PER (DPB*14),
SSAVEFEG=0 IF SAVE THE RM11/RP0&4/5/6 REGISTERS, AS PER
;(DPB+14), AFTER AN ERROR.
033370

000000

SAVEFG:

7666

.WwORD

JSEEK FLAG

7667

(SEEXFG=1

WORD)

SEEXKFG=0 IF WHEN THE DISK ADDRESS ISN'T

7668

FOR A DATA TRANSFER START

;b;?

;DISREGARD THE WINDOW

7669
6

;6;§
6

033372

000000

SEEKFG:

;6;5

676

;bgg
6

033374
033376
033400
033402
033404
033406
033410

033412

177777
177777
177777
177777
177717
177777
1177777

(TIMER=8 WORDS)

TIMER:

=1
=1
-1
-1
-1
-1
-1

.WORD

7695

7697
7698
7699
7700
7701
7702
7;83
7704

;;gg

03314

177777

DTUW:

7715

.WORD

IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

-1

;ATTENTION BITS TABLE (ATABIT-8 BYTES)
;THIS TABLE CONTAINS THE CORRESPCNDING RBRIT TO EACH DRIVES
ATTENTION BIT
033416

033417
033420
03321
033422
033423
03324
033425

ATABIT:

002
004
010
020
040
100
200

.BYTE

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

1
2
4
10
20
40
100
200

;DRIVE O

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;ORIVE

1
¢
3
&
S
6
7

:RP04/5/6 10 RH11 "'MASSBUS CONTROL BUS PARITY ERRORS' (M(PE) ALLOWED BEFORE
:CALLING 1% FATAL (MCPEMX=1 WORD)

033426

MCPEMX: .WORD

000003

;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RMIV/RPO4L/S/&)Y,
:RPVEC (THE VECTOR ADDRESS (254)), AND RPVE(C+Z (THE BR LEVEL (%)),

7710
7711

7712
7718
77t

;DRIVE 7

:DTUW=+N (WHERE N=0 TO 7)

7705
7706
7707

O
1
2
3
4
5
6

;DTUWCKO 1F NO DATA TRANSFER UNDERWAY

7692
7693
7694
7696

-1

:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

:DATA TRANSFER UNDERWAY INDICATOR (DTUW-1 WORD)

7688
691

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD

:TIMEQUY TABLE

177777

7687

;690

.WORD

;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION

7686

7689

IN THE WINDOW

A SEARCH (OMMAND

JSEEXKFG<O IF DATA TRANSFER WiLL DO IMPLIED SEEKS,

7674

7677
7678
7679
7680
7681
7682
7683

SEQ 0148

03330
0334832

176700
00025

000240

RPADR:
RPVEC:

.WwORD
.WORD

176700
25&,5+%2.

(IRJDDO, RPO4/S/6 MLT-DR LG(
CIRIDD.PIY
06=JUN-79 08:32

G 12

10:41

PAGE

151

SINGLE/DUAL PORT RH11/RP0O4/5/6 DRIVER (REV 1.0)
OF

LOOK AMEADS ALLOWED

033436

000004

4
MXLACT: .WORD
;MAXIMUR DELTA DELAY

033440

001000

MXDLTA: .WORD
B.164.
JMINIMUM DELTA DELAY [S 2

033442

000200

MNDLTA: .WORD
sMAXIMUM SEARCM

033444

000005

MXWNDW:

.WORD

S &

SEQ 0149

(MXLACT

WORD)

IS 8 SECTORS (MXDLTA-1 WORD)

SECTORS (MNDLTA=1 WORD)

264,

FOR 1/0 WINDOW 1S 5 SECTORS (MXWNDW-1 WORD)
5

;DEFINITIONS Of THE RMI1/RP0O&/5/6 ADDRESS INDEXES
:WORD COUNT REGISTER

A DRIVE

;ATTENTION SUMMARY PSEUDO REGISTER

sMAINTAINABILITY REGISTER (DRIVE REG. 03)

;DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)

;OFFSET REGISTER (DRIVE REG.

11)

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)
:CURRENT CYLINDER ADDRESS REGISIER (DRIVE REG. 13

;ERROR REGISTER #2 (DRIVE REG.
;ERROR REGISTER #3 (DRIVE REG.

14)
15)

;ECC POSITION REGISTER (DRIVE REG. 16)
179
;ECC PATTERN REGISTER (DRIVE RESG.

INITIALIZATION CODE

;THIS ROUTINE WILL DETERMINE WHICH RP04/5/6 DRIVES ARt
;AVAILABLE FOR TESTING AND SET THE DRVSTA
;10 THE PROPER STATE FOR EACH DRIVE.

:NOTE:

THIS ROUTINE

JSR
RETURN

PC.RPINIT

INDICATOR

CALLS DRVINT

S CALL

3446
3450
33454
3462
3466
3472
3476

177776

000240
041600
033262
033372

RPINIT:
177776

1%:

(DRIVE REG. 064)

;LOOK AHEAD REGISTER (DRIVE REG. 07)
;DATA BUFFER REGISTER (NOT A DRIVE REG.)

;RH11/RP0O4/5/6 DRIVER

NOTE:

REG)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 0%)
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;ORIVE STATUS RECISTER (DRIVE REG 01)
;ERROR REGISTER #1 (DRIVE REG. 0Oc¢)

RPCS2=10
RPDS1=12
RPER1=14
RPAS=16
RPLA=20
RPDB=22
RPMR=24
RPDT=26
RPSN=30
RPOF =32
RPCA-34
RPC(C-36
RPER2=40
RPER3=42
RPEC1=44
RPEC2=46

000040
000042
000044
000046

(NOT

;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)

RPBA=4
RPDA=6

000036

(DRIVE REG. 00)

;CONTROL AND STATUS REGISTER #1

RPCS1=0
RPW(=?

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034

(A3LY

7763
7764
7765
7766
7767
7768
7769
7770
7771

03-JUL=79

30A(1052)

sMAXTMUM NUMBER

[wlelelelolels

1716
7717
7718
7716
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734
773%5
7736
7737
7738
7739
7760
7761
7762
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762

MACY1Y

THE

'P' OR

SAVREG

"L'

CtOCr MUST BE STARTED

JSR

a#PS, - (SP)
#<5¢32.>,a0PS
PC,CLRQUE

(LR

tR1)¢

MOv
MOV

Mov
MOv

#RPERRS ,R1
#SEEXFG,R?

:SAVE RO = RS
:SAVE THE PRESENT PROCESSOR STATUS
:CHANGE THE PRIORITY 10 5
sCLEAR ALL REQUEST QUEUES
;FIRST ADDRESS TO BE CLEARED
;LAST ADDRESS
;CLEAR

10O Bt

C(LEARED

(ZRJDDO, RPO&/S/6 MLT-DR LG(
06-JUN-79 08:32
CIRJDD P11

(mp
BLOS

012702
012721
020102

7776
7777
7778
7779

2%:

101774

7780
7781
7782
7783
7784
778%
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798

000040

n33302

4%
5¢%:

000007
177776
033322

041234

033322

7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820

6%:
7%:

033656

106413

177776

mov

(mMp
BLOS
(LR
(LR

R1,R?
2%
DRVSTA
DRVSTAS?

:DONE?
;LOOP If NO
:SET ALL DRIVES TO OFFLINE

MOV

;DRIVE

DRVSTA+4
DRVSTA+6
RPVEC,R3
#1SR,(R3)
RPVE(C+2,(R3;

MOV

#B1T05,RPCS2(R&)

SINITIALBZE

;SETUP THE

RH11/RP04/5/6 VECTOR

RPADR,R4

;FIRST ADDRESS OF

R1
RO,DRVINT
A3
5%
DRVSTA(RY)
R1
#°C7,R1
3%

:START WITH DRIVE 0
;INIT THE DRIVE
:*DVA' NOT SET OR PAR]ITY ERROR
:NCRMAL RETURN
JSET DRIVE STATUS 10 OFFLINE
;G0 TO NEXTM DRIVE
:MASK OUT UNUSED BITS
;BR 1F MURE DRIVES 10 GO

(LR
1518
BEO
JSR

NPS
DPINT(R1)
8%
PC,SET.IE

;CLEAR THE PROCESSOR STATUS
:WAITING FOR DRIVE TO SWIT(H PORTS ?
:BR NOT WAITING
;SET INTERRUPT

BNE
DEC
BPL
MOV
RESREG

7%
R1
6%
(SP.+,3#PS

:BR IF NOT
;60 TO THE NEXT DRIVE
:CHECK NEXT DRIVE
:RESTORE THE PROCESSOR STATUS
;RESTORE RO - RS

(LR
JSR
BR
BR
(LRB
INC
BIC
BNE

1S18

"7 ,R1

DPINT(R1)

;MASSBUS

INIT

RM11/RP0O4

:START

WITH DRIVE

:DRIVE

SWITCHED PORTS

;BYE-BYE

INITILIZATION ROUTINE

;THIS ROUTINE DETERMINES IF

A DRIVE EXIST AND IF IT IS
;AN RP0&/5/6. 1F 1T IS, A ""READ-IN PRESET'' IS ISSUED AND FMT2?
;1S SET TO A “'1'', THEN MOL, DPR, DRY, AND vv ARE C(HECKED TO

;INSURE THEY ARE ALL ON A "'1'", AND DEPENDING ON THE!R STATE,
;s CALL

;DRVSTA IS SET

MoV

MOV
JSR

RE TURNI
RETURN?

7821
7822

DRVINT: MOV

7824
7825
7826
7827

Mov

7823

#=1,(R1)e

(LR
(LR
MOV
MoV
MOV

RTS

000207

SEQ 0150

;ARE WE DONE?
:BRANCH ]F NO
;LAST ADDRESS

MOV

8%:

7802

7809

000010

10:41

R1,R2
1%
#DTUW,R?

MOV

033660

177770

7799
7800
7801

O03-JuL=79

w12
PAGE

132
SING.E/DUAL PCRT RM11/RP04/5/6 DRIVER (REV 1.0)

101775

7774
7775

7807
7808

30AC1052)

020102

7772
7773

7803
7804
7805
7806

MACYYY

CLRB
(LRB
(LRB

MOVB

TO THE PROPER CONDITION,

#DRVNUM R

;DRIVE NUMBER 10 R}

RPADR ,R&
RO,DRVINT

;UNIBUS ADDRESS OF RHI1/RP0&/5/6 (RPLSI1®
;CALLED By A JSR

RS,=(SP)

; SAVE RS

R1,RP(S2(R4)

JSELECY A DRIVE

DRVSTA(RY)
DRVIYP(R1)
ULDFLG(RY)

#111,RP(ST(RG)

;ERROR OCCURRED (PARITY)
;NORMAL RETURN

;START DRIVE STATUS AS OFFLINE
;CLEAR THE DRIVE TYPE INDICATUR
sCLEAR THE UNLOAD FLAG
;DO A DRIVE

CLEAR (OMMAND (& SELZE

CRIvE!

(IRJDDO, RPOL/S/6 MLT=-DR LGC(
CZRJDD P
06-JUN-79 08:32

03c764
001405
004737
000543

7828
7829

7830
7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872

750

112761

022705
001420
022705

001415
112761
022705
001407
022705
001404
112761

000471
005737
001010

032764
001404
152761
000456
006301
0161C%

010563
006201
012603
012746
004037
000000
034260
012746
004037
00032
034260
004037
000012
034260
012605
100015

116164

034176

004037
000014

112
03-JUL=79
10:41
PAGE 153
SINGLE/DUAL PORT RMY1/RP0O4/S/6 DRIVER (REV 1.0)

30A(1052)

000010

04055¢

BIT
BtO
JSR
BR
(LRB
BIT
BEQ
JSR

000001
020020

041234

033302
004000

000000

1%:

000002
020021

033312

000004
020022

033312

;ERROR RETURN ADDRESS
:PUT DRIVE TYPE [N RS
:SET RPO4 INDICATOR
1S IT A SINGLE PORT RPO4?

MOVB

#264020,RS
2%
#2,DRVIYP(RY)
#20021,RS
’$

;1S 1T A DUAL PORT RPO4?
;BR IF VYES
;SET RPOS INDICATOR
:SINGLE PORT RPQS ?
;8BR IF YES

MOVB

(MP
BEQ
(MP
BEQ

024022
177777

033312

MOVB

2%:

034264
001000

000012

000010

033312

001740
000262

151

BNE

BIT

9%:

;60 SET "€’ WITHOUT A ''TRE'
;LEAVE TH]S ROUTINE
;SET DRIVE STATUS TO OFFLINE

(SP)+,RS
#1,DRVIYP(RYT)
#20020,RS

(mp
BEQ
(mp
BEQ

024021

BEQ
BISB
BR

MOV
ASL
MOV
MOV

ASR
MOV

#BIT11,RPCST(RG)
;SEE
7%
:BR IF

#24021,R5
2%
#4 ,DRVTYP(RY)

#20022.,R5
2%

;BRANCH

YES

;DUAL PORT RPOS ?
;BR IF YES
;SET RPO6 INDICATOR

;SINGLE PORT RPO6 ?
;BR

YES

#24022,RS
2%
#-1,DRVTIYP(RT)
6%

:DUAL PORT RPO6 ?
;BR IF YES
:SET INDICATOR TO
SEXIT

R3,-(SP)

:SAVE R3

,R3
BLKADR(R1)

;GET DPB START ADDRESS

;DO A ""READ-IN=-PRESET"

RS,$RPDT(R3)
R1
(SP)+ ,R3

;CREATE WORD

#121,-(5P)

010000
040730

MOV

#B1712,-(SPk)

;SET FMT22:0

RO,RD.RP

;READ RPDSI

JSR
RPOF

8%
JSR

RPDS1

MOV

033416
040554

000016

BPL

MOVB

JSR
RPER

RO,WRT
. RP

RO,WwRT.RP

INDEX

;STORE DRIVE'S TYPE
;RESTORE DRIVE NUMBER
:RESTORE R}

MOV

JSR
RPCS1
8%

°OTHER'

TSTPGM
:INHIBIT PROGRAMMABLE DRIVE?
9%
;BRANCH IF NO
#B1709, RPDST(R4)
;1S DRIVE PROGRAMMABLE?
9%
,BRANCH [F NO
#B81703, DRVIYP(R1);SET INDICATOR
SEXIT
6%

000121
0403730

060554

DRIVE?

MOV
MOVB
(mP

BEQ
CMP
BEQ

024020

PC,SET.IE
¢$
DRVSTA(RY)

SNONEXISTENT
:NO---BRAN(CH

RO,RD.RP

033312

IEIT1Z.RP(SZ(RQ)

SEQ 0151

IF DRIVE AVAILABLE
DRIVE NOT AVAILABLE
;READ THE DRIVE TYPE REG.

RPD1

010346

7873
7874
7875
7876
7877
7878
7879
7880

7881
7882
7883

105061
032764
001537
004037
000026
034260
012605
112761
022705
001431
022705
001426

010000

MACY1T

{SP)+ RS
;AND SAVE T IN RS
(3 3
;BRANCH IF ATA O
ATABIT(R1),RPAS(R4) :CLEAR ATTENTION Bl
RO,RD.RP

:FIND OQUT WHY

ATA:1

(REV

(REV
(REV
(REV
(REV
(REV

C(IRJDO0O, RPO&/S5/6 MLT-DR LGC
06-JUN-79 08:32
CZRJDD.P
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
9N
7912
7913

034200
034202
034204
034206
034214
034216
034220
034224
034226
034234
034236
034240
034242
034250
034252
034256
034260
034262

MACY11

034260
006126
100004
112761

000407
005105
062705
001003

112761
005720

000410
006301
012761
006201
105161

005720
012605
000200

ROL

V77777

033302
6%:

167077

000001

033302

003720

033374

7927
7928
7929
7930
7931
7932
7933
7934
7935
7936
79%7
7938

7939

(SP)

7%:

;TEST

:BR If NOT
;SET UNSAFE
JEXTT

#C<BIT12!B1T08:BIT07:BIT06>,RS

SEQ 0152

UNSAFE?

BlC

,CHECK MOL,

DPR,

(RO)+
8%

;STEP OVER THE ERROR RETURN
JEX]T

DPINT(R1)

;SET PORT

;SET

DRIVE

DPR,

AND

181
BR

DRVSTA(RY)

MOL,

DRY,

6%
#1

;BrANCH IF

[NDICATOR

BNE

STATUS

DRY, OR vv

TO ONLINE

ASL
MOV
ASR

R1
;CHANGE INDEX TO ADDRESS WORDS
#2000.,TIMER(RT)
;START 2 SEC TIMER
R1
;RESTORE R

151

(RO)+

(OmM8

8%:

3
#-1,DRVSTA(RY)
6%

movB

6%:

BPL
MmOvB
BR
com

033322

MOV

(SP)+ RS

RIS

;RESTORE

PROGRAMMABLE

DRIVE FLAG

(TSTPGM 1

INITIALIZE

IS (LEAR

INIDICATOR

JEXIT

WORD)

:THE FLAG WiLL BE SET BY THE PROGRAM UNDER
;MANUFACTURING CONDITIONS

(ACT,APT)

AND

;CLEARED UNDER FIELD CONDITIONS(XXDP (HAIN,

;STANDALONE) WITH STARTING ADDRESS 200.
;THE

FLAG WILL

SET

UNDER

;WITH STARTING ADDRESS 220.

034264

TSTPGM:

000000

.WORD

;=1

TEST

ALL

CONDITIONS

PROGRAMMABLE

DRIVE

JREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

7914

7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926

J 12
10:41
PAGE 154
9
03-JuL=-7
SINGLE/DUAL PORT RMI1/RP04/5/6 DRIVER (REV 1.0)

30A(1052)

s CALL

JSR

RO,a#RPOL

;CALL THE RPO4/5/6 DRIVER

RPO& :

MOV

a¥Ps,-(SP)

:SAVE

MovB

#1,ACTDRY

;SET ""ACTIVE DRIVER'' FLAG

:
;
;

177776

034266
034272
034300
034306
034310

034312
034316
034320
034324
034330
034332
034336
034340
034344
034346
034352
034354

033434
000001

177776
033%6

PNTADR
RE TURNI
RE TURN?

MOV

SAVREG

MOV

000016

(RO) ,R2

16(R2)

033430
033302

MOvB
MOV
1518

033350

1S1B

(R2) ,R1
RPADR,R4
DRVSTA(RY)
1%
ULDFLG(RY)

1518

DPINT(RY)

8R
1STB

6%
DRVSTA(RY)

033322

033¢60
105761

(LR

RPVE(+?2,a#PS

0333C2

BGT

BNE

BNE
JSR

5%
RO,DRVINT

;ADDRESS OFf POINTER OF DRIVES PARAMETER BLO(K
;RETURN HERE IF QUEUE IS FULL
;RETURN HERE [F REQUEST IS IN QUEUE OR THERE
;1S AN ERROR (ONDITION
THE

CALLING STATUS

;DON'T ALLOW ANY RP04/5/6 INTERRUPTS
;SAVE RO - RS
;PICKUP THE

DRIVE

PARAMETER BLOCK

sCLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
;UNIBUS ADDRESS OF RP(S1
;sCHECK DRIVES STATUS

sBRANCH 1F

ONLINE

;BRANCH [F

YES

;UNLOAD COMMAND

IN QUEUE?

;TRYING 10

THE

INIT

;BR IF YES
;00 INIT, THE DRIVE

DRJVE

sERROR RETURN
;1S DRIVE STATLS ONLINE®

POINTER

CIRJDOO, RPOL/S/6 MLT-DR LG(
(ZRJDD.P1Y
06-JUN-79 08:32

MACY1]

30A(1052)
03-JuUL=79
10:41
PAGE 155
SINGLE/DUAL PORT RM11/RP0O4/5/6 DRIVER

SEQ 0153 |

(REV 1.0)

7940
7941
7942
7943
7944
79645
79646
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957

036360
034362
036366
0364370
0343764
034400
03446402
034410
0344612
034420
034426
034426
034432
034434
0344642
034446
034450
034452

003445
105767
001031
010164
004037
000460
122762
001003
112761
105761
001043
004737
000440
012762
000434
004737
000431
004037

7959

034460

032714

034472
034474
034500
034502

000420
105761
002412
012762

034514

001007

7958
7960
7961

7962
7963
7964
7965

7966
7967

7968
7969

034456
034464
034466

034510

034516
034526

000431

001023
004737

105761

012762
000403

7970
7971
7972
7973
7974
7975

034526
034534
034536
034540
034542
034544

012762
104413
005720
000401
104413
005720

7977
7978
7979

034552
034556

012637
000200

7976

7980
7981
7982
7983
7984
7985

7986
7987
7988

7989
7990
7991
7992
7993
7994
7995

034546

105037

1%:

033332
000010
061676
000103

000002

177777
033272

03335¢C

6%
DPRAS(RY)
5%
R1,RP(S2(R4)
RO,DRVQUE
9

;BR IF NOT
:OUTSTANDING PORT REQUEST FOR
;BR IF YES
;SELECT THE DRIVE
:PUT THIS REQUEST IN QUEUE
sQUEUE IS FULL

BNE

;BR

(mPB8

2%:

MOVB
1578
BNE

JSR

034560
120000

000016

1%:

035670

041676

5¢:

000100

041236

6%:

033302
140000
033312

000016

100002

000016

110000

BLE
1518
BNE
MOV
JSR
BR

000016

7%:

8%:

10%:

17777

#-1,ULDFLG(RY)
DRVACT(RY)
8%

gg.0P1

:1S THIS REQ. FOR AN UNLOAD?

1f NO
;SET THE ''UNLOAD IN QUEUE'" FLAG
;1S THIS DRIVE ACTIVE?
;BR

YES

;CALL THE OPTIMIZER

#BIT1S.BIT13,16(R2) ;SET THE ''UNLOAD IN QUEUE'' ERROR FLAG

JSR
BR

g(,(l?
$

JSR
BR

BIT
BNE
JSR
BR
1518
BLT
BNE
MOV
BR

MOV

RESREG

JEXIT

RO,DRVQUE
9%

;PUT REQUEST IN QUEUE
;QUEUE IS FULL

#B1106, (RG)

181

(RO)+

(LRB
MOV

1S '"1E*

#BIT15.BIT12,16(R2)
(RO)+
10%

RESREG

;G0 HANDLE

THE

PARITY ERROR

SFT ALREADY ?

8%
;BR IF IT IS
:SET INTERRUPT
PC,SET. It
8%
;RETURN, REQUEST IN QUEUE
DRVSTA(R)
:SEE 1F DRIVE OFFLINE OR UNSAFE
7%
;BR IF UNSAFE
#BITIS BITY4L,16(R2)
;SET OFFLINE ERROR INDICATOR
DRVIYP(R1)
;SEE 1F OFFLINE OR NONEX]STENT
;BR IF OFFLINE
8%
#81715 BIT01,16(R2)
;REPORT DRIVE NONEX]STENT
;60 TO EXiT
8%

151
BR

RTS

ACTDRYV
(SP)+ ,a#PS

;DRIVE

IS UNSAFE

;RESTORE RO - RS

:SETUP FOR NORMAL RETURN
cFINISH UP, THEN EY]T

;RESTORE RO - RS
:CORRECT THE

RETURN ADDRESS

;CLEAR "'ACTIVE DRIVER'' FLAG
:RETURN "'PS"" TO USER LEVEL
:RETURN TO CALLER

:OPTIM]ZER=-CALLED FOR A PARTICULAR DRIVE
s CALL

MoV

OP1:

SAVREG

:
034560
034562
034566

034574
034600
034602
034604
034612
034614
034622

104412
013746
146137

004737
005702
001505
032764
001407
032764
001003

177776
033416

041752

033344

JSR

000000

000100

000012

#DRVNUM,RI

PC,OPT

:DRIVE NUMBER T0 R1

:SETUP A COMMAND
:SAVE RO = RS

MOV

PSS, -(5P)

JSR

PC,GETREQ

:GET ''DPB'' POINTER OF REGQUEST

BEQ

:NO-=-BRANCH T0 EX]T

10%

;BRANCH IF NOT

10%

;BROIF

BI(B
157

004000

MoV

MOV
1518

9% :
03334

#103,2(R2)

THE DRIVE

#BIT11,RP(ST(RG)

#BIT16,RPDST(RG)

BtaQ
BNE

:SAVE PROC.

STATUS

:CLEAR "'SEARCH WA]T" KEY

ATABIT(RY),SRCHWT

;1S THERE A REQUEST

;1S DVA SE1?

;1S

SET

IN QUEUE?

CIRJDDO, RPO4/S/6 MLT-DR LG(
CZRJDD P
06-JUN-79 08:32
7996

7997
7998
7999
8000
8001
8002
8003
8004
8005
8006
8007
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019
8020
8021
8022
802%
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035

8036
8037
8038
8039
8040

034624
034630
036632
034636
034640
034644
034652
034656
034660
034666
034670
034674
034700
034702
034704
034710
034712
034720
034722
034726
034730
034734
034736
034742
034744
034750
034752
034754
034760
034762
034766
034770
034776
035000
035002
035010
035012
035016
035022
035024
035030
035034
035036

004037
000470

105761
003014
004737
012762
105761
100064

012762
000460
012746
004037
000000

035012
032714
001427
122762

002403
004737
000440
005737
002012
005737
100404

004037
000427
000403
004737
000423
004737
000420
112761

910103
006303
012763
000402
004737
032714
001002
004737
012627
104413

L 12
PAGE 156
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

30A(1052)

033660

9% :

033302

10%:

061774

033302

000016

110000

000016

000002

2$%:

033614

033372

035040

3%:

035146

177777

033332

023420

033374

041234
177776

1518

DRVSTA(RY)

BGT

MoV
BR
MOV
JSR
RP(SH
6%
BIT
BEQ
(MPB
BL1

5¢:

6%:
7%:

8%:

000207

DRIVE

STILL ONLINE

;PARITY OR °*DVA' NOT SLT
;1S DRIVE

ONLINE?

;YES--BRANCH

#111,-(SP)

:LOAD COMMAND ONTO THE

PC,POPQUE
:NO-~REMOVE REQUEST fROM QUFUE
#BITIS
. BITI&,16(R2)
;SET OFFLINE STATUS/ERROR INDICATOR
DRVSTA(RY)
;1S DRIVE UNSAFE ?
:BR TO EXIT IF NOT
8%
PBITIS'BIT12,16(R2)
;SET UNSAFE STATUS/ERROR INDICATOR
8%
:BRANCH TO EXIT

RO,WRT . RP

#BIT11, (RG)

1S1

SEEXFG

157
BGE

sSEE

SEQ 0154

5%
#150,2(R2)
2%
PC,.Cl&
8%

gMl
JSR

036224

035670
000100

RO,DRVINT

JSR

035254

10:41

JSR

8PL

004000

000150

03-4UL=-79

SR
MOV
1578

1%:

000111
040730

DTUW
4%

3%
RO.LA

:LOAD THE RECGISTER
:REGISTER INCREMENT
;ERROR RETURN ADDRESS
:DRIVE

AVAILABLE

STAC(K

:BR IF NOT
;1S THE REQUEST FOR [/0?
; YES--BRANCH
sCALL THE COMMAND INITIATOR
;BRANCH TO EXIT

;DATA TRANSFER UNDERWAY?
:YES==G0 START A SEARCH
;DO

IMPLIED SEEKS!?

;YES==-BRANCH
;NO-=-DO LOOK AHEAD

é;R

8%
4%

gg.c11

;RETURN HERE ON A PARITY ERROR
:GO START A SEARCH

JSR

PC,C13

:START

MOVB

#-1,DPRQAS(RY)

;SET PORT REQUEST INDICATOR

BR
BR

:START A DATA TRANSFER
A SEARCH

:6G0 TO THE EXI17T

MOV
ASL

R1,R3
R3

;SET UP TO ADDRESS WORDS
:CONVERT TO WORD INDEX

JSR

PC,CL17

:PROCESS THE PARITY ERROR

JSR

PC,SET.IE

sSET 'IE'" WITHOUT A "'TRE"

MOV
BR
BIT
BNE

MOV
RESREG
RIS

#10000.,TIMER(R3)
;START
JEXTT
7%
#B1106, (R4)
B%

(SP)+,a#PS

10 SEC TIMER

;SEE IF 'IE'
:BR IF SET

ALREADY SET

;RESTORE PROC. STATUS
;RESTORE RO = RS

:COMMAND INITIATOR

8041
8042

; CALL

:
;

8043
8044
8045

;

8046
8047
8048
8049

8050
8051

MACY 1Y

Mov’
MOV

JSR

#ORYNUM,RI
#DFB,R2

PC,CL1?

004737

041774

(11

;C17= C11,C13, OR (14

JWHERE:

;CL1=DATA TRANSFER
;C12=SEARCH REQUESTED BY DATA XfER
;C14=NOT DATA TRANSFER

K
;
.

035040

;DRIVE NUMBER
;ADDRESS OF DPB

JSR

PC,POPQUE

;REMOVE REQUEST FROM "'DRIVES WAIT'' Qutut

CIRJIDDO, RPO&L/S5/6 MLT-DR LGC
CZRJOD.P
06-JUN=79 08:32
8052
8053
8054
8055
8056
8057
8058
8059

035044
035050
035052
035056
035062

010237
010203
013704
010164
062703
062704
012324
012324
012346
004037
000006
035670
012346
004037
000034
035670
016246
004037
000000
035670
010137
000137
013704
010164

016246

004037
000034
035670
116203
163703
002002

062703

010346
116266

004037

000006

035670
012746
004037
000000
035670

040730

Mov

040730

JSR
RPCA

000002
040730

Mov

033414
035632
033430
000010
000012
040730

MOV

JSR
RPCST

13:

040730

Mov
Mov
MOV

R2,TRNSWT

;PUT

RPADR,R4

:RPCST

R2,R3

R1,RPCS2(R4)
¥, ,R3
#2,R4
(R3)¢+,(R4L)*
(R3)+,(RG)+
(R3)+,=-(SP)
RO,WRT.RP
(R3)+,=-(5P)
RO,WRT.RP

REQ.

SEQ 0155

IN TRANSFCR WAIT QUEULE

;DOPB ADDRESS 10 R3
ADDRESS

:SELECT DRIVE

;DESIRED WORD COUNT
;RPWC

ADDRESS

;LOAD WORD COUNT
:LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRA(K
;CALL THE LOAD(WRITE)

ROUTINE

;INDEX OF REGISTER TO LOAD
:ERROR RETURN ADDRESS
:LOAD CYLINDER ADDRESS

2(R2),=(SP)
RO,WRT.RP

:LOAD '‘COMMAND+GO'', “"A178A16'", AND

R1,DTUW

;SET ''DATA TRANSFER UNDERWAY'

RPADR,R&

;RPCS1

C15

.'PSEL..

ADDRESS

R1,RPCS2(R&)
12(R2),=(SP)
RO,WRT.RP

;SELECT DRIVE

10(R2) ,R3
MXWNDW,R3
1%
#22..R3
R3,-(SP)
11(R2),1(SP)
RO,WRT.RP

:PICKUP SECTOR ADDRESS
;BACKUP BY MAX, SEARCH FOR ]/0 WINDOW

;DESIRED CYLINDER ADDRESS

RPCA

MOvVB
SUB
BGE

000026
000011

JMP

JSR

000010
033444

000001

1%:

ADD
MOV
MOVB

JSR

RPDA

000131
040730

116203
122703

122703

JSR

kPDA

033430
000010
000002
000131

001007
016246

MoV
Mov
Mov
Mov
ADD
ADD
MOV
MOV
Mov

033430
000010
000004
000002

033416

001007
016246
004037
000006
035670
000403

n 12
PAGE 157
10:41
03-JuL-79
SINGLE/DIIAL PORT RM11/RP04/5/6 DRIVER (REV 1.0)

30AC1052)

033362

156137

000567
013704
010164

MACYTT

Mov

JSR
RPCS1

(17

033344
Cl&:

B1SB
BR

Mov
MOV
MOvB

(MPB
BNE

Mov

000010
040730

JSR

#131,-(SP)
RO,WRT.RP

;COMBINE THE ADJUSTED SECTOR WITH
:THE DESIRED TRACK
;LOAD DESIRED TRACK & SECTOR
:START

ATABIT(R1),SRCHUWT
(15
RPADR R4

R1,RPCS2(R4)

2(R2),R3

#131,R3

1%
10(R2) ,=(SP)
. .RP
RO,WRT

;RPCS1

A SEARCH

JSET "'SEARCH WAIT' KEY
ADDRESS

;SELECT DRIVE
;PICKUP THE REQUESTED COMMAND
;1S 1T A SEARCH COMMAND?
;BRANCH IF

;LOAD DESIRED TRACK & SECTOR

RPDA

(17

000105

1%:

000012

BR
(MPB
BNE

MoV

2%
#105,R3
3t

12(R2),=(SP)

.60 LOAD CYLINDER
;1S IT A SEEX COMMAND

;BRANCH [F NO
;LOAD DESIRED CYLINDER

8108
8109
8110

8111

8112
8113
8114
8115
8116

035326
035332
035336

004037
000035«
035670

040730

035340
035344
035346
035352

122703
001013
004037
000032

000115

000001
040730

035336

035354

000546

035670

8117
8118
8119
8120
8121
8122
8123
8124
8125
8126
8127

035356
035362
035366
035370
035372
035374
035400
035402
035406
035410
035414

116216
004037
000032
035670
000530
122703
001525
122703
001522
122703
001016

8129
8130
8131
8132
8133
8136
8135

035426
035430
035436
035440
035444
035446
035450

105061
112761
010346
004037
000000
035670
000207

8137
8138
8139
8140
B141
8142
8143
8144
8145
81646
8147
8148
8149
8150
8151

035450
035460
035464
035466
035470
035476
035502
035506
035506
035510
035514
035516

001014
004037
000032
035670
116266
004037
000032
035670
000436
122703
001023
016203

035522
035530
035534
035540
035542

116237
116205
004037
000000
035670

8128

8136

8152

8153

8154
8155
8156
8157
8158
8159

8160
8161
8162
8163

035416

035452

035544
035546
035552
035554
035562
035564
035570
035572
035574

112761

122703

012623
023705
001414
062737
000764
122703
001405
010346
004037

MACY11

N 12
30AC1052)
03-4uL-79
10:41
PAGE 158
SINGLE/DUAL PORT RMY11/RP0O4/S/6 DRIVER

18-

040556

6%:

000117

000103
000001

033302
000001

033272

040730

000143

5¢:

040554
0C0001
040730

000001

000141

6% :

000006

7% :

000010
00001
040554

035540

8% :

9¢:

035540
000002

000145
040720

035540

10%:
1%:

1.0)

RO,WRT.RP

(MPB
BNE
JSR
RPOF

#115,R3
43
RO,RD.RP

;1S 1T AN "'OFFSET'' (OMMAND?
:BR IF NO
:MERGE THE OFFSET VALUE INTO RPOF
:BUT DON'T (HANGE THE UPPER

MOVB
JSR
RPOF
17
BR
(MPB
BEQ
(MPB
8EQ
(MPB
BNE

1(R2), (SP)
RO,WRT.RP

;BYTE WHEN LOADING THE
:REGISTER (RPOF)

cl6
#107,R3
Cl6
M17,R3
(16
#103,R3
5%

;GO START THE (OMMAND
;1S 1T A “"RECALIBRATE'® (OMMAND?
;BRANCH IF YES

MOVE

033350

(REV

JSR
RPCA
€17

000107

[

CIRJDDO, RPO&L/S5/6 MLT-DR LGC
CIRJDD.PIY
06-JUN-79 08:32

(LRB
MOVB
MOV
JSR
RPCS1
17
RTS

Cleé

#1,DRVACT(RY)

DRVSTA(RY)
#1,ULDFLG(RY)
R3,-(SP)
RO,WRT.RP

;1S 1T A RETURN TO CENTER?
;BRANCH IF YES
;1S 1T AN “‘UNLOAD’' COMMAND?
;BRANCH IF NO
;SET THE DRIVE ACTIVE INDJCATOR
:PUT DRIVE STATUS TO OFFLINE
:SET "'UNLOAD IN PROGRESS'' FLAG
;START THE "'UNLOAD'* COMMAND

:RETURN TO USER

BNE
JSR
RPOF
c17
MOVB
JSR
RPOF
17
8K
(MPB
BNE
MOV

cs
RO,RD.RP

:BRANCH IF NO
:READ THE OFFSET REGISTER

MOVB
MCVB
JSR
RP(S)
<17

10(RZ),9%
11(R2),RS
RG,RD.RP

CMPE

MOV
CMP
BEQ
ADD
BR
(MPB
BEQ
MOV
JSR

#1463,R3

1(R2),1(SP)
RO,WRT.RP
12%
#161,R3
10%
6(R2),R3

(SP)+,(R3)+
9% ,RS
12%
"2,9%
8$
¥145,R3
12%
RY,=(SP)
RU,WRT.RP

;1S 1T A ''SET FORMAT'' COMMAND®

;COMBINE ''FMT22°'."'ECl'', AND "'W(C]'"
CLOAD “'FMT22'', “'ECI'', AND/OR "‘WCI''.

;1S 1T A “"GET REGISTER'' COMMAND?
;BRANCH IF NO
;POINTS TO 1ST ADDRESS OF WHERE
;10 PUT THE REGISTER(S)
:INIT. THE INDEX FOR THE FIRST REG.
:INDEX OF LAST REG. TO MOVE
:READ RP04/5/6 REGISTER
; INDEX OF REG. TO READ

:GET THE CONTENTS OF RH11/RP04/5/6 REG.
;LAST REG. BEEN REAC?
:GET OUT IF YES
: INCREASE THE INDEX BY 2
:LOOP==MORE T0 READ
:1S 1T A “'SELECT DRIVE'' (OMMAND?
;BRANCH IF YES
:LOAD THE (OMMAND

SEQ 0156

8195
8196
8197
8168

8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219

035662
035664
035666

035670
035676
035700
035702
035704
035712
035716
035722
035726
035730
035732
035736
035742
035746
035752
035754
035760
035766
035770
035772
036000
036002
036004
036006
036012

036014
036020

036924
036026
036032
036034
036036
036044
036046
036054
036056
036064
036070

112761

000207
010346
004037

000000

035670
000761
032764
001034
005702
001405
012762
004737
012746
004037
000000
035770
004737
105061
105061

020137
001009%
005037
012737
000207
1064612

032764
001002

001750

033374

000001

033272

061116

(lé6:

040730

105761

001443
013702
020137
001402
004737
005702
001415
032764
001404
012762
000405
012762
004737
012763

RTS
ASL
Mov
ASR
MOvVB
RTS
mMov

JSR
RPCST

010000

000010

cl7:
1%:

104000

re1116

000016

000111
040730

(178:

177777

010000

1ST

BEQ
JSR

Mov

JSR
RPCS

c18

0461656
033350
033272
033414
033342

BR
BIT
BNE

MOV

0334614

000010

JSR
CLRB
CLRB
(Mp
BNE
CLR

1%:

(18:

005001

005003

Ci?

JSR
BIS

151
BPL
JSR

000016

12%:

004737
000207
006301
012761
006201

0461774
000200
033370

100002

SEQ 0157

(REV 1.0)

RPCST

8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194

000000
035670
004737
052762
005737

03-JUL-79
10:41
PAGE 159
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

—

8166
8167
8168
8169
8170
8171

035600
035602
035604
035610
035616
035622
0356264
035630
035632
035634
035642
035644
035652
035654
035656

B 13

30A(1052)

€

8164
8165

MACY11

1%:

033272

041752

2%:

;REMOVE REQ.

SAVEFG

;SAVE THE RM11/RP04/5/6 REGISTERS?

#B1T07,16(R2)
138
PC,SVRHIY
:%

#1,DRVACT(RY)

PC
R3,-(SP)

RO,WRT.RP

REGISTERS

;SET A ONE SECOND TIMER
;SET

THE

DRIVE

ACTIVE

:RETURN T0 THE USER
:LOAD THE COMMAND

RO,WRT
RP

PC,EMPTYQ

ULDFLG(RY)
DRVACT(RY)
R1,DTUW
1%

;EMPTY

THE

QUEUE

;CLEAR THE UNLOAD IN QUEUE FLAG

;ORIVE IS IDLE
;1F THIS DRIVE HAD AN /0 REQUEST
:IN PROGRESS CLEAR ALL OF THE FLAGS

:SAVE RO - RS

#BIT12,RPCS2(RL)
;1S °*NED'
1%
;BR IF YES

SET

DRVACT(R1)

;DRIVE ACTIVE?

TRNSWT,R?
R1,DTUW
P 3

:GET THE "'TRANSFER WAIT'' QUEUE
:DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?
:BRANCH IF YES

;BRANCH

BEQ

PC,GETREQ
:GET THE DPB POINTER
R
:QUEUE ENTRY FOR DRIVE
4%
;BR 1fF NOT
#BIT12,RPCS2(R4)
;°'NED' SET ?
1F NOT
:BR
1%

:CONTINUE

#-1,TIMER(RD)

;STOP THE

817

010000

000010

100002

000016

102000
041116
177777

000016

3%:

MOV

033374

A ¥

MOV

JSR

;BR 1F NOT
(178
#BITIS'BIT11,16(R2)
:SET "PARITY' ERROR INDICATOR
PC,SVRH11
;60 SAVE THE RM11/RP04/5/6 REGISTERS
#111,-(SP)
:D0 A "DRIVE CLEAR'

(MP
BEQ
JSR
151
BEQ

;BRANCH 1F NO
;YES--GO SAVE THE
;RETURN TO USER

RTS

'S18
BEQ

FROM QUEUE

THE '‘DONE'’ BIT

#BIT12,RPCS2(RL)
;DRIVE NON-EXISTENT
(18
:BR IF YES
R2
;ANYTHING IN QUEUE ?

TRNSWT
#-1,DTUW

SAVREG
BI1
BNE
(LR
CLR

;SET

;}000.,TIHER(R1)

Mov

033362
033414

PC,POPQUE

#BIT15.B1T01,16(R2)

;SET

°'DRIVE NON-EXISTENT®

INDICATCR

#BITIS!'BITI0,16(R2) ;SET ''NON-CLEARABLE PARITY' ERROR INDICATOR
PC,SVRH
:SAVE RHI11/RP04/5/6 REGISTERS
TIMER

(Y]

(IRJDDO, RPO4L/S/6 MLTI-DR LGC
CZRJDD P
06-JUN-79 "8:32

CIRJDDO, RPOL/S5/6 MLT-DR LGC
CIZRJDD.PIY
06-JUN-79 08:32
82°0
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240

8241
8242

8243
8244
8245
8246
8247
8248
8249

036076
036102
036106
036110
036116
036122
036126
036134
036136
036140
036144
036150
036152
036160
036164
036170
036176
036200
036204
036210
036214
036220

036222

105061
020137
001005
012737
005037
105061
032764

005G37
004737
012764
000406
004737
105061
105061

004737
104413
000207

c13

30A(1052)
03-JUL=79
10:41
PAGE 160
SINGLE/DUAL PORT RHV1/RPO4/5/6 DRIVER

033414
000010

001021

005201
062703
042701
001316
012737

MACY1Y

5¢:

000010

041656
033302
033312
041234

7%:

ACTIVE' TO IDLE

;BR IF

ULDFLG(R1)

:CLEAR UNLOAD FLAG
:BR IF YES
;MOVE TO THE

;BRANCH

TRNSWT

;CLEAR

THE

R1,DTUM

#-1,0Tuw
TRNSWT

#BIT12,RP(S2(R&)

#2,R3
#eC7,R1

MOV

#-1,DTuw

CLR
JSR

PC,CLRQUE

B8R
JSR
CLRB
(LRB
JSR

RESREG
RTS

;IS

THIS DRIVE

NOT

;RESET
;CLEAR

THE
THE

'NED'

;NO DATA
;CLEAR

SETUP FOR A

TRANSFER

INDICATOR
TRANSFER QUEUE

SET

DRIVE

DRIVES

TRANSFERS

UNDERWAY

°'TRANSFER WAIT'

ALL

THE

REQUEST

QUEUE

QUEUES

#BITO5,RPCS2(R4) ;DO A MASSBUS INIT,
7%
: CONT INUE
PC.EMPTYQ
;CLEAR THE DRIVE'S QUEUE
DRVSTA(RY)
;SET DRIVE TO OFFLINE
DRVIYP(R1)
;CLEAR THE DRIVE TYPE INDICATOR
PC,SET.IE
;SET "'IE" WITHOUT “'TRE''
PC

;RESTORE RO - RS
;RETURN

;LOOK AHEAD ROUTINE

CALL

Mov
MoV

JSR

RETURNI
RE TURN?

8250
8251
8252

8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270
8271
8272
8273
8274
8275

;SET ""DRIVE

6%
R1

MOV

SEQ 0158

DRVACT(R1)

BNE
INC

Bi1

BIC
BNE

033414

1.0)

(LRB
(mp
BNE
MOV
CLR
CLRB

ADD

177777
033342
041600
000040

(REV

#DRVNUM R1
#DPB,R2

RO,LA

RETURN3

036224
036230
036234
036240
036242
036244

013704
010164
004037
000036
036354
022662

036250
036252
036256
036264
036266
036272
036274
036276
036300
036306
036312
036314
036316
036320
036322

001037
105261

126137
003026
116203
000303
006203
006203

012737
004037
000020
036354

033430
000010
060554

033360
033360

JSR

RPADR,R&
R1,RPCS2(R&)
RO,RD.RP

6%
Cmp

(SP)+,12(R2)

MOV
MOV

033436

000010

BNE
INCB
CmMPB
BGT

MOVB

SWAB

002600

177776

THE WINDOW

;ERROR RETURN
:START A SEARCH
A DATA

TRANSFER

;GET RPCS1'S ADDRESS
;SELECT DRIVE
READ CURRENT CYLINDER

;ERROR RETURN ADDRESS
;1S

CURRENT

CYLINDER-DESIRED

;CYLINDER?
3%
SEXIT IF NO
LACNT(RY)
:INCREMENT THE LOOK AHEAD LOUNT
LACNT(RY) ,MXLACT :EXCEED MAX?
2%
10(R2),R3
RS

;BRANCH IF YES
:GET DESIRED SECTOR ADDRESS AND
:MULT. BY 64=--ALIGN WITH

:L00OK AMEAD REGISTER

#340),38PS

;PRIORITY LEVEL ‘7"
:READ LOOK

AHEAD REGISTER

4%
SuB

§2P)0.RS

;CALCULATE

THE

ADD

#<22.465.>,R3

;MAKE

ASR

000340
040554

NUMBER
T0 DPB

;60 (HECK
;START

RPCC

000012

162603

002002
062703

LA:

:DRIVE
;POINT

ASR

MOV

JSR

RO,RD.RP

RPLA

BGE

THE

DELTA

DELTA POSITIVE

(IRJDDO, RPOL/S/6 MLT=-DR LGC
06-JUN-T79 08:32

(IRJDD P11

8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294

8295
8296
8297
8298
8299
8300
8301
8302
8303

wno
~NO N
= OV
WA

(PRI
IV IRV IV IV RV RV TV ]

Oo 0o 0o Go 00 0o 0o O 0o 0o Oo OO

8304
8305
8306
8307
8308

036326
036332
036334
036340
036342
036346
036350
036352
036354
036360

023703
0024006
023703
002003
105061

005720
005720
000402
004737
000200

MACY11

033440

1%:

033442
2%:

033360

1%:
035670

0 13

10:41
PAGE 161
03-JUL=79
SINGLE/DUAL PORT RH11/RP04&/S5/6 DRIVER (REV 1.0)

30A(1052)

4%:

112737
104412

013704
013701
002403
004737
000402
004737
106613
105037
000002

000001

033346

ISR:

105061

012737
006301
012761
006201
013702
005037
052762
010164
004037
000000
035670
006126
100421
005737
100002
004737
004737
004737
005702
001403
004737
000462
012714
000457
052762

004737
004737
012714

MNDLTA,R3
b43
LACNT(RT)
(RO)
¢
(RO)+
5%
PC,CI7
RO

SERVICE

MOvVB

SAVREG

#1,ACTDRY

MOV
MOV

RPADR,R&

036426

JSR
BR

PC,TD

BLT

JSR

036710

RESREG
CLRB

033346

033272
177777

0334614

177777

033374

033342
033342
0002090
200010
060554

CLRB
Mov
ASL
Mov
ASR
Mov
CLR

000016

BIS

Mov

JSR

RP(ST

ROL
BMI]

033370

041116
036602
041752

1%:

034560
2%:

000113
100100
061656
041116
06011

000C16

1%:

TST
BPL
JSR

JSR

JSR
151
BeQ
JSR
BR
Mov

BR
BIS
JSR
JSR
MOV

JIF 1T IS WITHIN THE
;WINDGW~---]F YES, ZERO

: THE LOOX
;AND TAKE

AHEAD COUNT
THE [/0 EXIT

:€0f¥ST THE RETURN ADDRESS
JEX

;PROCESS THE ERROR

;RETURN

:SET "ACTIVE DRIVER'' FLAG

:SAVE RO - RS
:ADDRESS OF RMSCSI
:GET "'DATA TRANSFER UNDERWAY'' INDICATOR

DTUW,R1
1%

;BRANCH 1F

JEX]T

ACTDRY

;CLEAR ""ACTIVE DRIVER' FLAG
;RETURN

PC,SC

RTI

DONE

;CHECK THE DELTA TO Sc&

ROUTINE

033430
033614

; TRANSFER

036426
036432
036440
036442
036450
036452
036456
036462
036470
036474
036500
036502
036504
036506
036510
036514
036516
036522
036526
036532
036534
036536
036542
036544
036550
036552
036560
036564
036570

(LRB
181
187
BR
JSR
RTS

;INTERRUPT

036362
036370
036372
036376
036402
036404
036410
036412
036416
036420
036426

MXDLTA,R3

(mp

BL1T
(mp
BGE

SFQ 0159

:CALL

NO DATA TRANSFER UNDERWAY

TRANSFER DONE

;CALL SPEC!IAL CONDITIONS
;RESTORE RO - RS

ROUTINE

DRVACT (RY)

#-1,DTUwW
R1
#-1,TIMER(R 1)
R1

TRNSWT ,R2
TRNSWT
#B1107,16(R 2)
R1,RPCS2(R4 )
RO,RD.RP

(SP)+

SAVEFG
s

pclsvRH1I

PC,uC
PC.GETREQ
R¢

PC,OPT
X

#113,(RG)

;SET DRIVE

ACTIVE

INDICATOR

:NO DATA TRANSFERS UNDERWAY
s CANCEL

TIMEOUT

;GET ''DPB'' ADDRESS FROM THE
; TRANSFER WAIT

:SET DONE

QUEUE--CLEAR QUEUE

SSELECT THE DRIVE
; TRANSFER ERRCR(TRE-1)?

:BR IF YES

:SAVE THE RH11/RP04/5/6 REGISTERS?
:BRANCH IF

:YES=-=SAVE THE REGISTERS
;SEE IF WRITE CHECK TO BE PUl
;GET DPB POINTER
SENTRY

FOR DRIVE

PC,SVRHI

#6011, (RS

IN QUEUE

:BR IF NOT
;CALL OPTIMIZER
:CHECK OTHER DRIVES
sRELEASE THE DRIVE

;CHECK FOR OTHER DRIVES
SC
#BIT15.81106,16(R2) ,SET DATA ERROR FLAG

PC,EMPTYQ

10 iDLE

JEMPTY THE “DRIVE'S WAIT' QUEUE
:SAVE THE RH11/RP0O4/5/6 REGISTERS
;1SSUE A "'DRIVE CLEARTM

(IRJDDO, RPO4/S/6 MLT-DR LG{
CIRJDD P
06-JUN-79 08:32
8332
8333

8336
8335
8336
8337
8338
8339
8340

8341
8342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
8385
8386
8387

036574
036600

012714
000445

MACY 1Y

E 13
30A(1052)
03-40L-79
10:41
PAGE 162
SINGLE/DUAL PORT RH11/RP(4/5/6 DRIVER (REV 1.0)

000113

MOV

#113,(R4)

;ISSUE

SE@ 0160

A RELEASE

TC THE

DRIVE

JAUTOMATIC WRITE

CHECKS

;CHECK FOR OTHER DRIVES

;FORCED WRITE CHECK ROUTINE
035602
036606
036610
036616
036620
036626
036630
036634
036636
036642
036650
036656
036664
036672
036700
036706

005737
001437
122762

001404
122762
001027
004037
000624
005062
116262

016262
016262
142762

142762
152762
000207

001424

w(:

000002

000024

000003

000024

041676

000016
000234
000012
000010
000002
000020
000010

1%:

000027
000034
000032
000024

000002
000002

181

2%
#2,$CODE(R?)
1%
#3,8CODE(RZ)
2%

BR
(LR

2%
16(R2)

;QUEUE
.CLEAR

#2,8%CODE(R2)

;CHANGE WRITE 10O (MECK

JSR

RO,DRVQUE

;BR If NOT
.
;LAST OPERATION WRITE DATA ?
;BR IF ]T WAS
;LAST OPERATION WRITE HEADER & DATA ?
;BR IF NOT
;PUT

THE

OPERATION

IS FULL
'DONE' BIT

THE

QUEUE

IN DPB

MOvB
MOV
MOV

$RPCS1(R2) ,$PREVO(R?)
;SAVE WRITE OPERATION CODE
$CYL(R2),SPREVA+2(R2)
;SAVE CYLINDER
$SEC(R2),$PREVA(R2)
;SAVE SECTOR AND TRACK ADDRESSES

BI(B
BISB
RTS

#20,9COMND(R2)
#10,9COMND(R2)
PC

BI(B
2%:

AUTOCK

BEQ
(MPB
BEQ
(MPB
BNE

;(HANGE DRIVER CODE TO WRITE C(MECK
;FINISH CHANGING CODE TO WRITE (MECK
JEXTT

;SPECIAL CONDITION ROUTINE
036710
036714
036716
036722
036724
036726
036730
036732
036734
036740

036742
036744
036746
036752
036754
036756
036760
036762
036764
036766
036770
036772
036776

116403
001012
004037
000000
035770
106126

000016

004737
000207
005046
110316
012703
005001

041234

100403
104001

040554

1%:

2%:

106303

SC4:

;MOVE

BNE

ASLB

037666
033302

’$:

061752

RTS

1518

BEQ
JMP

1518

BEQ
JMP

1518
BGT
1518

BLE
JSR

SCH

SC3

(SP)+
PC

DPINT(RY)
1%

SC13
DPRQS(RY)
2%
S(13
DRVSTA(RI
5%
ULDFLG(RY)
5%
PC,GETREQ

ALL

AN "'ATA''=1

R1
R3

105761

0047%7

;PROCESS

INC

(LR

BNE
181

033350

:RETURN

sATA-1?

1%:

105761
003422

PC,SET.IE
PC
-(SP)

°'ATA' BITS SET

;1S "1EY=1?
JYES, NO DRIVES 10 (MECK
sREPORT AN ILLEGAL INTERRUPI
:SET INTERRUPT ENABLE

R3,(SP)

037666
033332

003025

(SP)+
1%
1

ANY

;READ CONTROL AND STATUS REGISTER

BIT

105761

001402
000137

(LR

RO,RD.RP

;READ "'RPAS'’

;BRANCH IF

SC3:

SC5:

000137

ROLB
BM]
ERROR
JSR
RTS

RPAS(R4) ,R3
2%

R3, (SP)
#,R3

033322

105761
001402

MOVS
BNE
JSR
RP(SI
(18

MOVB
MoV

000001

030316
001005
005201

001373
005726
000207

SC:

DRIVES

THAT

HAVE

s YES==-BRANCH

TO THE

DRIVE

;BRANCH 1F MORE 10 CHE(CK?
;CLEAN OFF THE STA(K
;RETURN 10 USER

sINITIALIZING THE DRIVE
;BR 1F NOT

:PROCESS THE DRIVE
;PORT REGUEST OUTSTANDING

;B8R IF NOT
:START THE OQUTSTANDING (OMMAND
;CHECK

THE

;BRANCH IF

DRIVE

ONLINE

STATUS

;UNLOAD IN PROGRESS?
;BRANCH IF NOT

;GET

DPB POINTER

(IRJDDO, RPO4/S/76 MLT-DR LG(
(IRJDD. P11
06-JUN-79 08:32
8388
8389
8390
83N
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8419
84611
8412
8412
8414
8415
8416
B&17
8418
8419
8420
8421
8422
8423
8424
B425
8426
8427
8428
8429
8430
8431
8452
B4&33
8434
8435
8436

8437
8438
8439

8440

8441
8442
Bt

037036
037042

037046
037052
037054

004737
004737

061116
037616

105761

033302

037062
037064
037070
037074

003416
032737
001002
000137
013705
000476

037102
037104

001027
004737

037110
037114
037116
037122
037124
037132
037134
037140
037144
037146
037150
037152
0371564
037156
037156
037160
037162
037164
037172
037174
037200
037204
037210
037212
037214

105761
001321
105761
100412
032737
0010
012746
004037
000000
037476
011605

037076

105761

040000

MACYT1

3% :

033272

5¢:

6$%:

033322

033302
020000

033270

’$:

104005

033374

S(é6:

0461752
000010
040554

00001¢

037476
012605
004737
012746
004037
000000
037476
006105

100406

;010 DRIVE

JMP

MOV

BR
1518
BNE

6%
#BIT14,RPERRS

b3 3

RPERRS+2,RS
SC6A
DRVACT(RY)
SCé

(OME

INIT (DRVINT)

ONLINE?

sNO=-=-=BRAN(CH
;WAS THERE AN ERROR?

:BR IF ERROR
:NO ERROR

:YES == PICKUP RPER!

AND

;GO PROCESS THE ERROR
:DRIVE ACTIVE WITH (OMMAND OR ERRCR RECOVERY
;BR IF EITHER

1STB

DPINT(RD)

1518

DRVSTA(RY)

;CHECK

BNE

PC,SC12

;ALSO DO A DRIVE

;SAVE RPDS1, RPER1, RPERZ, AND RPER3
;ALSO DO A DRVINT
JTRYING TO INIT THE DRIVE °

SC4

;BR

YES,

CHECK ON MORE

ON DRIVE'S

STATUS

gM]
BI1
BNE

7%
;BR IF UNSAFE
#BITI3,RPERRS+6 ;ADDRESS PLUG CHANGED ?

JSR

RO,WRT RP

SC8

MOV

8%
#113,-(5P)

(SP),RS

;BR IF YES
;RELEASE COMMAND

:WRITE THE COMMAND
;REGISTER

INDEX

INTO RPC(CS!

sPARITY EXIT ADDRESS
;PICKUP

(RPAS)

THE

5
SC4
R1

;REPORT THE ADDRESS PLUG CHANGE
;CHECK FOR MORE DRIVES
;SETUP TO ADDRESS WORDS

JSR
MOV

PC,GETRLQ
R1,QP(S2(R4)

;GET THE DPB POINTER FROM THE QUEUE
JSELECY DRIVE

#-1,TIMER(RY)
R1
RO,RD.RP

THE UNEXPECTED ATTENTION

;60 CHECK FOR MORE ATA'S

JSTOP THE TIMER
;RESTORE THE DRJVE
:READ

THE

ADDRESS

RPO4'S STATUS REG.

SC8
MOv

(SP),RS

;AND PUT

033272

BM]
TS18

1%
DRVACT(R1)

:BR IF ERROR
;CHECK DRIVE'S STATE

100210

B1S

'B;T‘S!81707!81103.16(R2)

JSR
RPER1
SC8
MOV

RO,RD.RP

;READ ERROR REGISTER #1

(SP)+,RS

AND SAVE

MOV
JSR
RP(ST

#111,-(SF)
RP
RO,WRT

s 1SSUE

ROL

040554

BGT

000016

1%:

JSR

SCOA:

ERROR C(ALL

ERROR
BR
ASL

MOV
ASR

JREPORT

BEFORE

SC4

S(8

gM]

(SP)e

sSc1
SC

PC,SVRH1I

DRIVES

ERROR

JSR
RPDSI

037476
011605

003137
052762
000470
004037

PRYSTA(RY)

RPCSI

104002

006126
100407
105761

1518

MOV

000113
040730

177777

:SAVE THE RM11/RP04/5/6 REGISTERS
:SAVE RPDS1, RPER1, RPER2, AND RPER?

JSR

037616

SEQ 0161

PC,SVRHII
PC,SC12

BNE

037526
033264

(REV 1.0)

JSR
J3R
BLE
BI3

033262

000701

000677
006301
012761
006201
004737
010164
004037
000012

F 13
03-JUL=-79
10:41
PAGE 163
SINGLE/DUAL PORT RM11/RP0«/5/6 DRIVER

30A(1052)

;WAS THERE

IN RS

AN ERROR?

:BR IF DRIVE ACTIVE WITH ORDER

;INFORM USER OF ERROR RECOVER COMPLETION

IN RS

:SAVE RH11/RP04/5/6 REGISTERS
A DRIVE

CLEAR

;WAS "'UNSAFE' (ONDITION -12?
;BRAN(H

YES

8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
8464
8465
84666
8467
8468
8469
8470
8471
847¢
8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
849¢
8495
8496
8467
8498

8499

OO0
O0OO0OC OO0 o

8466
8447
8448
8449
8450
8451

N LN U U

8444
8445

N R N AN N NN w
SNNN
NN NNSNNN ~

CIRJDOO, RPOL/S/6 MLT=-DR LGC
CZRJDD.PIY
06-JUN-79 08:32

037342
037350
037352
037356
037360
037366
037374
037376
037404
037406
037412
037420
037424
037430
037434
037436
037442
037450
037454
037456
037462
037466
037470
037472
037476
037502
037504
037510
037514
037516
037522
037526
037532
03753
037540
037544
0
0
0
0
0
0
O

005702
001447
052762
000443
004037
000012
037476
011605
006126
100011
112761

004737
052762
000423
032705
001015
112761
112761
006301
012761
0062901
000137
052762
105061

004737
105761
003002
105061

116164
105761
100406

012746
004037
000000
037476
000137
105761
001405
004737

004737
000402
004737
000137

105761
003402
105061
105061
136137

100240

03-JuL-79

177777
041116
110000

033302

2%:
033272
033302

072460

033374
000016

3%:
SC/:

033350
033416
033302

000016

1%:

2%:
SC8:

0641752
035670

1%:
2%:
SCHl:

035716
036760
033350

033344

004737

061116

033416

1%:

2%:

SEQ 0162

(REV 1.0)

;ANYTHING

SC7
;BR IF NOT
:%;115 B1107.81105,16(R2)

IN QUEUE

; INFGRM USER OF

SC8
Mov
ROL
BPL

(SP),RS
(SP)+
2%

;SAVE RPDS1 IN RS
;"'ERR''=1?
;BR IFf NO-=UNSAFE CLEARED

PC,SVRH1]

;SAVE RH11/RP04/5/6 REGISTERS

Move

#-1,DRVSTA(RY)

BIS

08;115.81T12,16(92)

;"RIVE

811
BNE
MOvB
mMovB

#BIT12,RS
3%
#-1,DRVACT(RY)
#1,DRVSTA(RY)

MOV
ASR

#30000.,TIMER(RT)
R1
SC&

JMP

BIS
CLRB
JSR
1518
BG1
CLRB
MOvB
1518

STATUS REG.

ERROR

IS UNSAFE

; INFORM USER OF UNSAFE

ERROR

;MoLtt = 1 2
;BR IF YES
;ACTIVE ERROR RECOVER
; ONL INE
;START

30 SECOND TIMER

#BIT1S!BLTO7!B1T04,16(R2)
; INFORM USER OF
DRVACT(RY)
;DRIVE IS IDLE
PC,EMPTYQ
;DUMP THE QUEUE
ULDFLG(RY)
;UNLOAD IN PROGRESS OR QUEUE?
;BR 1F NOT
1$
ULDFLG(RY)
. CLEAR UNLOAD FLAG

ERROR

ATABIT(R1) ,RPAS(R4)
;CLEAR ATTENTION BI1T
DRVSTA(RY)
;1S THE DRIVE UNSAFE ?
2%
;BR IF IT IS
#113,-(SP)
;RELEASE COMMAND

JSR

RO,WwRT.RP

;WRITE THE COMMAND INTO RPCS!

JMP
1518
BEQ
JSR
JSR
BR
JSR

SCe
DRVACT(RY)
1%
PC,GETREQ
PC,C17
2%
PC,CI7B

;CHECK FOR MORE DRIVES
;1S DRIVE IDLE?
; YES--BRANCH
:GET DPB POINTER
;PROCESS THF PARITY ERROR
. CONTINUE
;PROCESS THE UNCORRECTABLE PARITY ERROR

(LRB
(LRB

ULDFLG(RY)
DRVACT(R1)

;BRANCH [F NO
;CLEAR UNLOAD FLAG
.SET DRIVE IDLE

BNE
JSR

2%
PC,POPQUE

;BRANCH 1F YES
;REMOVE REQUEST FROM QUEUE

1§17
BPL

SAVEFG
2%

;SAVE THE REGISTERS?
;BRANCH 1f NO

RP(ST
SC8

JMP
1518
BLE

BITR

BIS

000016

164

;READ DRIVE

BM]
Mov

000113
040730
036760
033272

PAGE

RO,RD.RP

ASL

100220

033272
041656
033350

613

JSR

RPDS1

JSP

000016

177777
000001

036760

BtQ
ggs
1%:

010000

10:41

SINGLE/DUAL PORT RM11/RP04/S/6 DRIVER

000016

040554

041774
000200
033370

116164

30AC1052)

1§71

001012
0047%7
052762
005737
100002

MACY1T

JSR

MOVB

SC4
ULDFLG(RY)
1%

;CHECK MORE DRJVES
;""UNLOAD IN PROGRESS'"?

ATABIT(R1),SRCHWT

#B1107,16(R2)

PC,SVRHI

;DOING A SEARCH OPERATION FOR
;AN

1/0 COMMAND?

;SET "'DONE’’ BIT

JYES==SAVE ALL OF THE RM11/RP0&/S/6 RE,'S

ATABIT(RY) ,RPAS(RG)

;CLEAR ATTENTION BI!

(IRJDDO, RPO&L/S/6 MLT-DR LGC
C(IZRJDD.PIN
06-JUN-79 08:32

016437

000040

033266

MoV

RPERZ2(R&L) ,RPERRS+4

037644
037652
037656
037660
037662
037664
037666
037670
037676
037700
037704
037712
037716
037720

016437
004037
000401
000207
005726
000704
006301
012761
006201

000042
033660

03327C

Mov
JSR

RPER3I(R&L) ,RPERRS+6
RO,DRVINT
JINIT, THE STATE OF
1%
; TAKE ERROR EXIT

037722

012761

037730
037732
037734
037740
037742
037746
037752
037754
037760
037762
037764
037766
037772
040000
040004
040010

006201
000433
105761
001424

040012
040016

040022

0101¢4
116164

032714
001006
006301

000010
033416
004000

0235620

033322
033660

105761

033302

003014
005702
001416
004737
052762
004737
004737
000404
105061

004737
000137

033374

041752

140000

041116
041656

SC13:

033374

1%:

000016

2%:

033332
034560
036760

3%:

RPER1(R4) ,RPERRS4?2

SWILL TELL US SOMETMHING

THE

;RETURN

ASL
MoV

SC8

R1
!;1,11HER(R1)

;PROCESS THE PARITY ERROR

ASR

R1,RPCS2(R4)

SSELECT THE DRIVE

(SP)+

;POP PC OFF

THE

STACK

;SETUP TO ADDRESS WORDS
;STOP THE TIMER

ATABIT(R1) ,RPAS(R&)

;CLEAR THE ATTENTION BIT

BIT
BNE

#RIT1T,(RG)

;DRIVE

AVAILABLE

:BR

AVAILABLE

ASL

MOv

#10000.,TIMER(RY)

ASR
BR
1518

EXIT

(LRB
JSR
NOP
1S1B
BGT
181
BEQ
JSR
BIS
JSR
JSR
BR
CLRB
JSR
JMP

DPINT(RY)
RO,DRVINT

;CLEAR THE INIT INDICATOR
;G0 INIT THE DRIVE
:DUMMY PARITY ERROR RETURN

BEQ

DPINT(RY)
2%

DRVSTA(RY)

THAT

DRIVE

RTS
151

Mov
MovB

000076

033322

105061

004037
000240

1%:

177777

MOV
Mov
Mov

:START

10 SEC

TIMER AGAIN

INITIALIZING THE DRIVE
;BR IF NOT

;DRIVE ONLINE ?
;BR IF YES == START ORDER

DPRQAS(RV)

:CLEAR THE PORT REQUEST INDICATOR

R2
;QUEUE ENTRY FOR THE DRIVE
3
:BR 1F NOT
PC,GETREQ
;GET DPB ADDRESS
#BIT15'BITI4,16(R2)
;INFORM USER THAT DRIVE OFFLINE
PC,SVRH11
:SAVE THE REGISTERS
gg,EMP1Y0
;EMPTY THE REQUEST QUEUE

PC,0PY

SC4

:START

THE PENDiING REQUEST

;PROCESS OTHER DRIVES

;RP0&/S5/6 TIMER ROUTINE

#TIME,-(SP)

ELASPED TIME

1S1

ACTDRvY

:CHECK “"ACTDRV & ACTSTRTM

040034
040042

040044
060046

005737
001030
112737
104412

005001
005003

RPTMR:

033346

000001

033347

BNE
MOvB
SAVREG
(LR
(LR

PC,RPTMR

¥1,ACTSTIR
R;
R

;1F

STAlK

NON ZERO EXIT

sSET 'ACTSIR"

:SAVE RO - RS

:START WiTH DRIVE O

JSR

040026
040032

IN MILLISECONDS ON THE
:CALL RP0O4/5/6 TIME ROUTINF

Mov

s CALL

8527
8528
8529
8530
8531
8532
8533
8534
8539
8536
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
8547
B548
8549
8550
8551
8552
B55%
8554
8555

037636

SC12:

8526

016437

033262
033264

010164
016437

JSR
JMP

8509
8510
8511
8512
8513
8514
8515
8516
8517
8518
8519
8520
8521
852°2
8523
8524
8525

PC,0PT
;START A REQUEST
SC4
;CHECK FOR MORE DRIVES
R1,RPCS2(R4)
JSELECT DRIVE
;SAVE THE FOUR REGISTERS
RPDS1(R4) ,RPERRS

034560
036760
000010
000012
000014

8506
8507
8508

004737
000137

SEQ 0163

8502

8503
8504
8505

037606
037612
037616
037622
037630

W13
03-0UL=79
10:41
PAGE 165
SINGLE/DUAL PORT RM11/RP0O4/S/6 DRIVER (REV 1.0)

30A(1052)

8500
8501

MACY1T

(ZRJDDO, RPO&L/S5/6 MLT=DR | GC
C(IRJOD.PY
06-JUN-79 08:32
8556
8957
8558
8559
8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578
8579
8580
8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611

040050
040054
040056
040064
040066
040072
040074
040076
040100
040104
040106
040110
040114
040116

005763
002407
166663

003003
004737
000405
005201
005723
022701
003361

1044613
105037
012616
000207

MACYT1

033374
000002

30AC1052)

10:41

113

PAGE

166

SINGLE/DUAL PORT RM11/RP04/5/6 DRIVER
1%:

033374

040120

2%:
000010

3%:

033347

03-JuL-79

151

BLT
SUB

BGT
JSR
BR
INC

181
(MP
BGT

RESREG
CLRB

Mov
RTS

SEQ 0164

(REV 1.0)

TIMER(RD)

;1S

2%
PC,STO
3%
R

;BR IF NO SOFTWARE TIMEQUT
;CALL SOFTWARE TIMEOUT ROUTINE
;G0 10 THE EXIT
;MOVE TG NEXT DRIVE

2%
2(SP) ,TIMER(RY)

(R3)+
#8. R
%

ACTSTR

(SP)+,(SP)
PC

THE

TIMER RUNNING?

;BRANCH IF NO
;COUNT THE INTERVAL

;OUT OF DRIVES?
;BRANCH IF NO

;RESTORE RO - RS
;JERO ACTIVE SOF TWARE
;ADJUST THE
;RETURN

STA(K

TIMEOUT ROUTINE FLAG

;SOF TWARE TIMEOUT ROUTINE

;NOTE: TH]S ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

:CALL:

040120
040122
040124
040130
040134
040140
040142
040144
040146
040150
0460154
040156
040162
060164
040170
040174
040176
040202
040210
060214
040222
040226
040232
06023¢

060236
060242
060244
040250
040252
040256
040262

010146
010346
013704
010164
004037
000012
060442
105726
100477
105761
001074
105761

00107
013702
020137
001402
004737
052762
004737
012764
105061
105061

005001
005003

004037
000477
105761
001414
013702
023701
001402

ST0

:
:
H

MOV
JSR
RETURN

PC,ST0

#DRVNUM, R

;DRIVE NUMBER
:CALL

S10:

MoV

R1,-(SP)

;SAVE R1

MOV

RPADR,R&

:GET ADDRESS OF ''RP(CS1TM

JSR

RO,RD.RP

033430
000010

MOV
MOV

04055¢

RPDSI

S105
1S18

ST01:

033322

033332
033342
033414
041752

101000

041116
000040
033272
033350

033660

033272
033342
033414

BMI]
1518
BNE
1518
BNE
MOV

(mMp

BEQ

000016

1%:

000010

2%:

JSR
BIS

JSR

MOV
CLRB
(LRB
(LR
CLR

JSR
B8R
1S1B
BEQ
MOV
(mp
BtQ

R3.-(SP)

R1,RPCS2(R4)

;SAVE R3
:SELECT

THE

DRIVE

;READ ''DRIVE STATUS REG

(SP)+

:1S "DRY''=1?

S102
DPRQS(RY)
S102
TRNSWT ,R2

;BR IF YES
;OUTSTANDING PORT REQUEST FOR THE
;BR IF YES
:PICKUP TRANSFER WAIT QUEUE

$102
DPINT(RV)

R1,DTUW
1%

;BR IF YES
:TRYING TO INTIALIZE THE DRIVE

:TRANSFER UNDERWAY ON THIS DRIVE?
;BRANCH

YES

PC,GETREQ
;GET DPB ADDRESS
#BIT15!B1109,16(R2) ;SET THE ERROR FLAGS

PC,SVRH1Y
:SAVE RHV1/RPO4/S5/6 REGISTERS
#B17T0S,RPCS2(R&L) ;"'INIT' THE MASS BUS
DRVACT(RY)
ULDFLG(RY)

R1
R3
RO,DRVINT
S105
DRVACT(RY)
4%
TRNSWT ,R?
DTUW,RI
3%

:DRIVE IS IDLE
;CLEAR THE UNLOAD FLAG

:START WITH DRIVE O

sINIT. THIS DRIVE
:PARITY ERROR RETURN
;:DRIVE IDLE BEFORE THE INI1T.?
s YES=-=BRANCH
;GET TRANSFER WAIT QUEUE
:WAS THERE 1/0 ON THIS DRIVE?
; YES==-BRAN(H

DRIVE

‘

(IRJDDO, RPO4/S/6 MLT-DR LG(
CIRJDD. P "
06-JUN-79 08:
8612
8613
8614
8615

8616
8617
8618
8619
8620
8621
8622

8623
8624
8625
8626
8627
8628
8629
8630
8631
8632
8633
8634
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644
8645
8646
8647
8648
8649
8650
8651
8652

8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
8667

04N264
040270
040276
040302
040306
040314
040316
04640320
040324
040326
040334
040340
040344
040346
040352
040356
040360
040364
040366
040372
0640374
040400
0460402
040406
040410

040412
040414
040416

040622
040424
040430
040432
040440
040442
040446
040450
040454
040400
040466
040472
040474
040476
040504
040506
040514
0460520
040524
040526
040530
040536
040542
040546
040550
040552

004737
05276¢
105061
105061

012763
005723
005201
022701
003344
012737
005037
004737
000500

061752

100400

033272
033350
1772777

177777

033342
041600

000016
033416

105761

033322

105761

033332

001031
001045
020137
001263
004037
000000
040442
105726
100255

000414

012763
105061

004737
005702
001407
012762
004737
004737
012603
012601
000207

MoV
151

#-1,TIMER(RY)
(R3)+

CLRB

ULDFLG(RY)

:NO UNLOAD

R1
#8. ,R1
2%
f-1,0Tuv
TRNSWT
PC,CLRQUE

; INCREMENT THE DRIVE NUMBER
;LAST DRIVE BEEN CHECKED?
:NO--LOOP
:NO DATA TRANSFERS UNDERWAY
;CLEAR TRANSFER WAIT QUEUE
;CLEAR ALL REQUEST QUEUES

MOVB
BI118

RPAS(R&4) ,RS
ATABIT(R1),RS

;READ ATTENTION REG
;1S ATTENTION FOR THIS DRIVE UP ?

1518

DPINT(RY)

1518

DPRQS(R1)

INC
(MP
86T
MOv
(LR
JSR

033414

S102:

BNE

JSR

BNE

RPCS1

ST0S

1518

033332

004737
005702
001424
052762

PC,GETREQ
GET THE DPB POINTER FROM QUELE
#BIT15!B1708,16(R2) ; INFORM USER OF INIT.
DRVACT(RY)
;SET DRIVE ACTIVE 10 IDLE

040554

105761
001446

105061
105061
012763

177777

S103:

033374

1%:

035770

S105:

033322
033302

S106:

V77777
041752

033374

000016

177777
033332

033374

100004

000016

S107:

S109:

JEXTT

S103

; YES==BRANCH

ST06

;BR IF

5107
R1,DTUW

;BR IF YES = NO RESPONSE T0O REQUEST
;DATA TRANSFER UNDERWAY FOR THIS DRivE

S101

RO,RD.RP
(SP)+

s1Ct

;TRYING 1O INTIALIZE

THE DRIVE

YES = DRIVE NOT ONLINE

;OUTSTANDING PORT REQUEST
:BR

;BR [F "RDY''=0
;INITIALIZING THE DRIVE ?

;STOP THE TIMER
JEXTT
;GO HANDLE THE PARITY ERROR

(LRB
MOV
JSR

DRVSTA(R1)
#-1,TIMER(R3)
PC,GETREQ
R2

;SET UNIT OFFLINE
;STOP THE TIMER
;GET THE DPB ADDRESS

CLRB

MOv
(LRB

MOV
JSR
JSR
MOv
MOV
RTS

DPINT(RY)

#-1,TIMER(RY)
S109
PC,C18
S109

DPRQS(RY)
ST09

DRIVE

;YES--CHECK "'RDY"

mMov
BR
JSR
BR

1518
BtQ

FOR THE

BNE

JSR
1§71
BeQ

S108:

5109

;STOP THE TIMER
;UPDATE THE INDEX

DPINT(RD)
1%

BtaQ
B1S

041752

041656
041116

BPL
1518

151

140000

SEQ 0165

(REV 1.0)

JSR
8is
(LRB

033414

033322

012763
000442
004737
000437

033374

38:

BNE
(mp

105761

001003

000016

J 13
30AC1052)
03-JUL=-79
10:41
PAGE 167
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

000010

116405
136105

001017

MACY11

;BR

INIT PENDING

;PORT REQUEST
;BR 1F NOT

PENDING ?

;CLEAR THE INITIALIZE

;REQUEST

IN QUEUE

INDICATOR

ST109
<BR IF NOT
INFORM THE USER DRIVE NOT AVAl{ ABLE
#BITIS!BIT14,16(R2)
S108

;FINISH

:STOP THE TIMER
;CLEAR PORT REQUEST INDICATOR
PC,GETREQ
;GET DPB ADDRESS
R
;QUEUE ENTRY FOR DRIVE ?
;BR IF NONE
S109
INFORM USER OF PORT REQUEST ERROR
#BIT15!B1T2,16(R2)
sCLEAR THE QUEUE FOR THE DRIVE
PC,EMPTYQ
PC,SVRHIN
:SAVE THE REGISTERS
(SP)+,R3
;RESTORE R3
;RESTORE R1
(SP)+ ,R1
<RETURN
PC

#-1,TIMER(R3)
DPRQS(RY)

:ROUTINE TO READ A RH11/RPO4/5/6 REGISTER

CIRJDDO, RPO&L/S/6 MLT-DR LGC
06-JUN-79 08:32
CIRJDD. P "
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683
8684
8685
8686
8687
8688
8689
8690

8691
8692
8693

8694

0 Oo 0o 0o O GO Co o 0o 0o Co GO

NN NN N NN NN ~
POPLURNUND
— b =2 =t et b s —

W=
OV ~NT N ~no

8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711

MACY1Y1

30AC1052)

03-JuL=79

10:41

K13

PAGE

SINGLE/DUAL PORT RHI1/RP0O4/5/6 DRIVER

E(ALL

JSR
INDEX

RO,RD.RP

040600
040602
040604
040612
040616
040622
040626

040630

040634
040640
040642
040644
040646
040646
040650

040654
040656
040662

040664
040666
040670

040674
040676

040704
040710
040712
040714
040716

040720
040722
040724
040726

104003

005737

100405
032716
001402
005726
000415
052716
000316
013737
005237
112637

033426

040716

033430
040600

040600

040602
033430
000010
010000

RD.RP:

RD.RP1:

000002

RD.ADR:
RD.WRD:

MoV
MOv
MOV
ADD
Mov

.WORD
.WORD

MOV
Mov
ADD

BIT
BNE

172574
020000

2%:

033430
040712

040712

3%:

000000
005327
000003
002326
011000
012616
000200

;ROUTINE

tCALL

0
0

RD.WRD,2(SP)
- (SP)
RPADR,
WRPCS2, (SP)

041100

WRT.RP:

;SAVE RC FOR RETURN
;FORM THE

DESIRED ADDRESS

;ADDRESS

;USING THE BASE AND THE INDEX
;READ THE DESIRED REGISTER OF THE RPO4
FORMED HERE

:REG. CONTENTS PUT HERE
;RETURN

TO THE

USER

;PUT THE ADDRESS ON THE STA(K
;FORM THE ADDRESS OF RP(S?2
;CHECK THE °'NED' BI1

;BR IF DRIVE NON-EXISTENT

#B1113,(SP)

;01D MCPE SET?

;READ RP(CS?

ERROR
1587
BM]

(SP)+,(R0O)+

YES

RD.RP4

JEXIT

;REPORT

"MCPE'' ERROR

BEQ

3
DTUuwW
2%
#B1 14,(SP)
2%

BR
BIS

RD.RP3
#B1114,(SP)

;TAKE

SWAB
Mov
INC
MOVB

.WORD

DEC

RTS

(SP)+

(SP)
RPADR,
3%
3%

(SP)+,a(PC)+

(PC)+

3
RD.RP1
(RO),RO

(SP)+,(SP)

TO WRITE
Mov

MOov

RETURN

:DATA TRANSFER UNDERWAY?
:NO--BRANCH
;NO--""TRE''=1?
:NO--BRANCH

;YES--CLEAN OFF
THE

FATAL

THE STACK AND

ERROR EX]T

;CLEAR 'MCPE’" BY SENDING A “'1"' 10 *'TRETM
;POSITION BEFORE WRITING
:FORM ADDRESS OF

HIGH BYTE

THE HIGH BYTE OF RP(S!
STORAGE
S
ADDRES
;
MAX. RETRYS
ED
;EXCEED

;WRITE

;BRANCH If NO
:FATAL ERROR EXil

A REGISTER

DATA,=(SP)

;DATA 10 BE LOADED ON THE

M(PEMX,WRT
. R?

;MAX

T
RO,WRRP

RE TURN

033426

ALLGWED

#BIT12,3(SP)+
RD.RP3

ERRADR

013757

RETRYS

FOR

JSR
X
INDE

040730

;MAX.

;ADJUST

MOV

RD.RP4:

MCPEMX,RD.RP?
(SP),-(SP)
RPADR,RD.ADR
(RO)+,RD.ADR
d(PC)+ (PC)

;BRANCH

.WORD
BGE
RD.RP3: Mov

RD.RP2:

IS ON THE STA(K

;CONTENTS OF REG.

151

040000

THIS ADDRESS

BNE

040000

INDEX FROM BASE

aRPADR,-(5P)

(Mp

033414

JREG.

Mov

BIT

1%:

;60 READ A REGISTER
;AT

RETURN

013737
011646
013737
062037
013727
000000
000000
013766
013746
062716
032736
001035
017746
032716
001002
022620
000430

SEQG 0166

(REV 1.0)

;ERROR ADDRESS=--PROCESS ERRCR STARTING

ERRADR

040554
040562
040564
040572
040576

168

STA(K

:CALL THE ROUTINE TO LOAD(WRIVE) THE REG.
;INDEX OF THE REGISTER 10O Bt LOADED
; ADDRESS TO RETURN 1O ON AN ERROR
;ERROR FREE RETURN
RETRYS

ALLOWED

(IRJDDO, RPO4L/5/6 MLT-DR LGC
CIRJDD RAR
06-JUN-79 08:32
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
8749
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
&r75
8776
8777
8778
8779

040736
040744
040746
040752
040754
040762
040764
040770
040772
040774
040776
041002

041006
041014
041016
041020
0461022
041026
041032
041036
041040
0461044
041046
041050
041054
041056
041064
041070
041072
041074
041076

016637
0126106
01203%7
001015
122737
002411
004037
000000
041106
000316
042716
112637

063737
012737
000000
000000
013746
062716
032736
001023
004037
000014
041106
032726
001416
016037
004037
000000
041106

000002

MACY1Y

L 13

30A(1052)
03-JuL=79
10:41
PAGE 169
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

041016

MoV
MOV
Mov

041020

000150

BNE
(MPB

041016

BLT
JSR
RPCS1
WRT.R3
SWAB
81C

04055¢

177770
041017
033430

041020

1%:
WRT.R1:
WRT.WD:
WRT.AD:

033430
000010
010000

000010
041070

MOov

1%:

104004

005327
000003
002344
005726
011000
000401
005720
000200

.WORD

.WORD
Mov
ADD

BIT
BNE
JSR
RPER]
WRT.R3
BIT
BtaQ

040554

177776
040554

MOVB
ADD
Mov

WRT.RZ:

JSR
.WORD

WRT.R3
ERROR

DEC
.WORD
BGE
151

WRT.R3: MOV
WRT.R4.

WRT.RS:

BR
1S1

RTS

2(SP) WRT.WD
(SP)+, (SP)
(RO)+,WRT.AD

%
#150,WRT.
WD
1%
RO,RD.RP

SEQ 0167

(REV 1.0)

;SAVE THE WORD TO WRITE
;ADJUST THE STACK
sGET INDEX OF REGISTER TO BE WRITTEN
;BRANCH IF NOT RP(S1
¢ 1S THE COMMAND FOR DATA TRANSFERS?
;YES--DON'T GET THE OLD A16 & A17, & PSEL
;NO---COMBINE A168A17, €& PSEL WITH

. THE COMMAND BEFORE
:THE RH11/RPO4

SENDING

(SP)

NAC7,(SP)
(SP)+,WRT
. WD¢1
RPADR,WRT.AD
(PC)+,a(PC)+

0
0

RPADR,-(SP)
#RPCSZ, (SP)
#BIT12,9(SP)+

;FORM THE

ADDRESS OF

THE

;LOAD THE DESIRED REG.
;WORD

1O WRITE GOES HERE

;PUT THE ADDRESS ON THE STA(K
;FORM THE

ADDRESS OF

RPCS?2

WRT.R3

#BITO3,(SP)+
WRT.RG

:BRANCH IF ''PAR-0'’

1%
-2(R0),

SO.RD.RP

(PC)+

. RI
WRT
(SP)+

(ROY,RO
WRT_RS
(RO)+
RO

MoV

JSR
041116

041120
041122
061124
061130
041134
0641140
0641142
0461146
0641154
041156

SVRH11:

104412

005702
001430

013704
111264

016203

001433
005037
023727
001006

032764

SAVREG

T1S1

BEQ

03343)
000010
000014

MOV
MOVB
MOV

061176
041176

000022

000200

000010

1%:

BEQ
(LR
(MP
BNE

Bl1

#DPBNUM,R?
PC,SVRHI

6%
RPADR ,R¢

REG.

;ADDRESS 1S FORMED HERE

;CHECK THE °NED' 311
;BR IF DRIVE NON=-EXISTENT

RO,RD.RP

DISK

;CHECK

FOR PARITY ERROR ON WRITE

;PICKUP THE INDEX
;READ THE REG.

;REG. INDEX
:RETURN TO THIS ADDRESS ON ERROR
;REPORT THE PAR]TY ON WRITE ERROR
;DECREMENT THE ERROR COUNT

;RETRY COUNTER
;:TRY AGAIN [F NOT

CLEAN OFF
;TAKE

JEXTY

FINISHED

THE STA(K

THE "'PARITY ON WRITE'' ERROR EXIT

;ADJUST

FOR ERROR FREE

EXI]T

;ROUTINE TO SAVE THE RH11/RP0O4/S5/6 REGISTERS AS PER DFB¢14

“CALL

;DPB POINTER 10 R?2

:SAVE THE DRIVES REG'S
:SAVE RO - RS
;QUEUE

ENTRY

;BR IF NONE

FOR

THE

DRIVE

(R2) ,RPCS2(R4)
JSELECT DRIVE
14(R2) ,R3
;GET THE ERROR TABLE POINTER
6%
JEXIT IF NO ADDRESS
3%
;COUNTER & POINTER
;REACHED THE BUFFER REGISTER ?
3% ,#RPDB
2%
;BR IF NOT
#B1T107,RPCS2(R4)
;'OR' SET ?

CIRJDDO, RPO&4/5/6 MLT-DR LGC
CIRJDD P
06-JUN-79 08:32
8780
8781
8782
8783
8784
8785
8786
8787
5788
8789
8790
8791
8792
8793
8794

041164
0461166
041170
061172
04641176
041200
041202
061204
0461212
041214
061222
0461224
041230
0461232

001002
0050253
000405
004037
000000
041224
012623
023727
001406
062737
000751
004737
10464413
000207

MACY11

BNE
(LR
BR
JSR
.WORD
5%

04055¢

041176

000046

000002

041176

(R3)+
L%
RO,RD.RP

(MpP
BEQ

(SP)+,(R3)+
3¢ #RPEC?
6%

BR
JSR

1%
PC,C17

MoV

#2,3%

ADD

5%:
6%:

035670

RESREG
RIS

;ROUTINE T0 SET THE

8795
8796

8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835

n13
03-JUL=79
10:41
PAGE 170
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

30A(1052)

sCALL

MOV

JSR
RETURN

041234
041236
041242
041246
041250
041254
041256
041262
041270
041272
041274
041276
041302
041304

SET.IE:

033430
000010

MOV
Mov

040000
000100
010000

012604
0002C7
000
000
000
000
000
000
000
000

000001

8IS
SWAB

mMovB

000010

041400
0614620
041440
0461460
041500
041520
041540
041560

BIT
BNE
151
BR

1%:
2%:

MOvVB
MoV
RTS

;QUFUE
QCNT:

CCUNT

;QUEUE

061316
041320
041322
041324
061326
0641330
061332
06133

Mov
Mov

QINPT:

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

INPUT

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

;BR IF

SEC 0168

SET

;STORE RPDB AS ZEROES
:CONTINUE
;READ THE SELECTED REGISTER

;REGISTER INDEX
;ERROR RETURN ADDRESS
;STORE THE REGISTER CONTENTS
;REACHED THE END ?
:BR IF YES
; INCREMENT

THE

INDEX

:CONTINUE READING THE REGISTERS
:PROCESS THE UNCORRECTABLE PARITY ERROR
:RESTORE RO - RS
;RETURN

INTERRUPT WITHOUY GETTING A "'TRE"

#DRVNUM,R1
PC,SET.IE

:DRIVE NUMBER 10 R1
SSET IE

R4 ,-(SP)

;SAVE R4

R1,]P(S2(R4)

:SELECT

RPADR R4

(R&) ,-(SP)
#B1714,(SP)
(SP)

;P1CKUP ADDRESS OF RP(S1
DRIVE

:READ RPCSI
:SET THE "'TRE'" BIT OF
:ADJUST

FOR DATO

#B1706, (RG)
SET IR
#BIT12,RP(S2(R4) ;1S ''NED''=1?
1%
:YES==CLEAR "'TRE"
égP)*

;CLEAN OFF

THE

(SP)+,1(R&)

;CLEAR "'TRE'

STA(CK

(SP)+ RS
PC

;RESTORE R4
;RETURN TO CALLER

0
0
0
0

;DRIVE
;DRIVE
;DRIVE
;DRIVE

;DRIVE S

O
1
2
3

;DRIVE &
;DRIVE

;DRIVE
;ORIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

O
1

:DRIVE 7

POINTERS

QDRVO
QDRV1
QDRV?
QDRV3
QDRV4
QDRVS
QDRVE
QDRV7

2
3§

6
7

THE WORD READ

N 13

;QUEUE

OUTPUT

POINTERS

.WORD
.WORD

QDRVO
QDRV1
ADRV?
QDRvV}Y

;DRIVE
:DRIVE

QDRVS

;ORIVE

041356
041360
041362
041364
041366
061370
041372
061374
041376

0414600
04641420
061440
041460
041500
041520
061540
061560
041600

QSTART:
QS10P:

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

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

:DRIVE
:DRIVE

JORIVE

QDRV&

;DRIVE
;ORIVE

QDRVE

QDRvV?7

SEQ 0169

;DRIVE O START ADDRESS
;ORIVE O STOP ADDRESS € DRIVE
.STOP DRIVE 1--START DRIVE
;STOP DRIVE 2-=START DRIVE
:STOP DRIVE 3-=START DRIVE

QDRVO
QDRI
QDRV?
QDRV3

QDRV4

QDRV6

;STOP DRIVE &=-START DRIVE
;STOP DRIVE 5--START DRIVE

QTERM

:STOP DRIVE

QDRVS

CDRvV?7

;STOP DRIVE

6=-=START

DRIVE

QDRVO:
QDRV1:
QDRVZ2:
QDRV3:
QDRV4:
QDRVS:

000010
000010
041600

JROUTINE

TO CLEAR ALL OF

QTERM-=.,

TCALL
1046412

012702
005022
005022
005022
005022
012703
012701
01212¢
£ =N rUNORY —

041600
041602
041606
061610
041612
061614
0461616
041622
041626
041630
0461632
0641634
041640
041646
041646
041650
041652

041306

000010
04i356

000010
041356

CLRQUE:

JSR
SAVREG

Moy

CLR
(LR
(LR
(R

1%:

MOV
MOV
MOV

2%:

MOV
MOV
MOV

DE(
BNE

DEC
BNE

RESREG

WDRvy7:

QDRV6:

000010
000010

LBLKW
.BLKW
BLAW
.BLKW
.BLKW
.BLKW
BLKW
.BLKW

000010
000010
000010
000010

0461400
041420
0614640
061460
0461500
041520
041540
041560

OCOOO0OO0CO

;DRIVE REQUEST QUEULES

THE REQUEST QUEUES

PC,CLRAUE

#OCNT,R?

(R2)+
(R2)+
(R2)+
(R2)+
#8.,R3
#QSTART,R)
(R1)+,(R2)+
R3
1%
#8. ,R3
#3START
R
(Ri)¢,(R2)*
R3
2%

JSAVE RO - RS
s2ERO THE QUEUE COUNTS
;DRIVES 0 & 1
;DRIVES 2 ¢ 3
;DRIVES 4 & 5
;DRIVES 6 £ 7
;MOVE THE STARTING
:ADDRESS OF

;s THE QUEUE
;MOVE

:OF

THE

GUEUE

STARTING

QUEUE

ADDRESS

INTO THE

;QUEUE OUTPUT POINTER
:RESTORE

INTO

INPUT POINTER

RO - RS

~NO
NS W

QOUTPT:

1.0)

XV P

0461400
061420
061440
061460
041500
0461520
061540
041560

(REV

JVIT VY o)

30A(1052)
03-4UL=-79
10:41
PAGE 171
SINGLE/DUAL PORT RM11/RP0&/5/6 DRIVER

061336
041340
041342
0461344
0461346
0461350
041352
061354

—-O0000O0
OO0
—— =0

8836
8837
8838
8839
8840
8841
8842
8843
8844
8845
8846
B847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
88¢2
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8889
8890
8891

MACY11

IRJDDO, RPO4/S/6 MLT-DR LGC
(ZRJDD P
06-JUN=79 08:32

START ADDRESS

8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907
8908
8909
8910
8911
8912
8913
8914

8915
8916
8917
8918
8919
8920
8921
8922
8923
8924
8925
8926

8927
8928
8929
8930
89731
8932
8933
8934
B935S
8936
8937
8938
8939
8940
8941
8942

8943

8944
8945
8946
8547

061654

MACY11

B 14
03-JUL=79
1C:41
PAGE 172
SINGLE/DUJAL PORYT RMI1/RP04/S5/6 DRIVER (REV 1.0)

30A(1052)

000207

RTS

SEQ 0170

041656
041662
041664

041672
041674

105061

006301
016161
006201
000207

EMPTYQ:

041306

041316

041336

;ROUTINE

CALL

JSR

PC,EMPTYQ

DRVNUM, RI

;DRIVE NUMBER T0 Rt

CLRB

O%NI(R1)

;CLEAR NUMBER OF

MOv

ASL
MOV
ASR
RTS

10 PUT

mov
rov

JSR
RE TURN]
RE TURN?

0461676
041704
041706
061712

0641714
041720
061726
0461734
041736
061744
0461746
041750

122761
001421
105261

006301
010271
062761
02616]
001003
016161
006201
005720
000200

000010

041306

DRVQUE:

041306

CMPB

BtQ
INCB

041316
000002
041316

041316

ASL
MOV
ADD

041356

041316

MOV

041360

(MP
BNE

1%:

2%:

ASR
151
RTS

QINPT(R1),QOUTPT(R1)
R1

MOV

JSR
RETURN

061752
041754
041760
041762
041764
041770
041772

005002

105761
001404
006301

017102
006201
000207

041366
0461336

GETREQ:
1%:

2%:

;ROUTINE

TCALL

(LR
1STB
Bta
ASL
MOV
ASR
RTS

INPUT POINTER

IN QUEUE

#DRVNUM,R1
#DPB,R¢
RO,DRVQUE

;DRIVE NUMBER
;ADDRESS OF PARAMETER BLOCK
.60 PUT REQUEST IN QUEUE
;RETURN HERE 1F QUEUE 1S FULL

;RETURN HERE IF REQUEST 1S IN QUEUE

#10,0CNT(RT)

QCNT(R1)
R1

;1S QUEUE

;BR If

FULL?

YES-TAKE RETURNI

; INCREMENT QUEUE

COUNT

R2,aQINPT(R1)
;PUT THIS REQUEST IN QUEUF
#2,0INPT(RY)
;UPDATE THE QUEUE POINTER
QINPT(RY),QSTOP(R1) ;TIME TO RESET THE POINTER
1%
;BRANCH [F NO
QSTART(R1) ,QINPT(R1) ;YES--RESET
R1

(RO) ¢

#DRVNUM,R1
PC,GETREQ

POINTER

: TAKE RETURN 2

;RETURN TO USER

IN QUEUE

;DRIVE NUMBER T0 RI
;G0 GET THE REQUEST
;R2=""DPB'’' ADDRESS OF THE REQUEST
;R2=0 IF NO REQUEST IN QUEUE

QCNT(RY)
2%

;1S THERE ANY REQUEST
:NO---BRANCH

SQ0UTPT(R1)
,R2

;PICKUP "'DPB'' POINTER FOR THIS DRIVE

;RETURN TO USER

T0 ''POP'' THE REQUEST FROM QUEUE
Mov

IN QUEUE

;SET OUTPUT QUEUE POINTER

;ROUTINE T0 GET THE “'DPB‘'' ADDRESS OF NEXT REQUEST

TCALL

ITEMS

A REQUEST

#DRVNUM,RI

|
l

;EMPTY THE QUEUE SPECIFIED BY R

"CALL

‘.

;DRIVE NUMBER 10 R1

IN QUEuE?

(N a]

CIRJDDO, RPC&L/S/6 MLT-DR LG(
CIRJDD P11
06-JUN-79 08:32

8997
8998
8999
9000
9001

9002
9007%

006201
000207

001003
016161

061336
000002
041336

041336
041360

041356

041336

;CALL TO REMOVE REQUEST
;R2=ADDRESS OF DPB REMOVED

DECB

QCNT(RY)
R1

;DECREMENT QUEUE COUNT

ASL
Mov
ADD

CMp
BNE

1%:

MOv

ASR

RTS

,R2
dQ0UTPT(R1)

:GET THE ''DPB’' POINTER

#2,Q0UTPT(R1)
;UPDATE THE QUEUE POINTER
QOUTPT(RY) ,QSTOP(RY) ;TIME TO RESET THE POINTER?
1%
.NO-=BRANCH T0 EXIT
QSTART(R1) ,Q0UTPT(R1) ;YES-<RESET THE POINTER
R1
re
;RETURN TO USER

;:.'0""""""I"""""""'"""'."'0'"""l'.'t.'lttt"

LSBTTL

DATA,

CONTROL,

& STATUS BLOCKS

:;""'"'"'""""""""""""""'t"""""l""'It"'t

$CyL
$REG
$TATUS

TR T
LU

$BUF
$SEC
$TRK

Y T

SFMT
$COMNC
$PSEL
SWRDM

[

000001
000002
000003
000004
000006
0009010
000011
000012
000014
000016

;BLOCK LOCATION EQUATE STATEMENTS

Wou ot

042022

POPQUE:

Sea 0171

1.0)

PL,POPQuUE

1
SFEMT+1
$FEMT
$FMT+3
$FMT+S
$FEMT+7
$FMT+10
$FMT
$FMT+13
$FMT+15

;DRIVE'S HISTORY AND CURRENT
000020
000022
000024
000026
000027
000030
000032
000036
000042
000046
000052
000056
000060
000062
000064
000066
000070

000072

$SWRDL
$SSEC
$(ODE
$PA(K
$PREVO
SPATTC
$PREVA
$OPER(
$POSIT
$TRANS
SREAD
$TOTAL
T
$SCF
$HARD
$5k1
$MISPO
$PASS(

$FAIR

8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
2990
8991
8992
8993
8994
8995
899¢

042024
042032
042034

042006

041306

(REV

JSR
RETURN

oot

8977

042014

105361
006301
017102
062761
026161

041774
042000
042002

C 14

30AC1052)
O03-JuL-79
10:41
PAGE 173
SINGLE/DUAL PORT RH11/RP0&/5/6 DRIVER

8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972
8973
8974
8975
8976

MACY11

SFEMT+17
$SWRDL
+?2
+4
SWRDL
SWRDL+¢E
$SWRDL+7
$SWRDL+10
SWROL+1?
$SWROL+16
$SWRDL+2?
SWRDL+26
SWRDL
+ 32

SWRDL +36
SWRDL +40
SWRDL +42
SWRDL +44
SWRDL L6

$WROL+50
SWRDL +52

;FMY _HCI,ECI

OR OFFSET

;OPERATION (ODE

CODE

;PORT SELECT & BITS Al6, A7
;WORD COUNT (2'S (COMP)

;BUFFER ADDR OR REGISTER TABLE

;SECTOR ADDRESS OR 1ST REG ADDR

: TRACK

ADDRESS

LAST

:CYLINDER ADDR
;REGISTER STORAGE
;STATUS WORD

POINTER

REG ADDR

(I1F ERROR)

(SET

DRIVER)

INDICATOR STORAGE EQUATES

;WORD COUNT (NOT 2°'S (COMP)
;SECTOR SIZE FOR CURRENT OPERATION
;PRESENT COMMAND SELECTION CODE
;WRITE DATA PACK INDICATOR
;PREVIOUS COMMAND SELECTION CODE
;PATTERN CODE
;PREVIOUS ADDRESS

;OPERATION COUNI
: SEEX (OUNT
;TOTAL BITS

XFERED

TRACK,

COUNT

;TOTAL BITS READ (OUNI
;TOTAL ERRORS (ALL TYPES)

;'SOFT' ERROR COUNT

. "HARD' ERROR COUNT
;'SK1' OR 'OCYL' ERROR

SECTOR,

B W)

COUNT

;PROG DETECTED MISPOSITIONING ERROR

.PASS COUNTER
;OPERATION QUEUE

;INDEX EQUATES TO THE NEXT OPERATION PARAMETERS

CYLINDER

‘FAIRNESS' COUNT

(OUN!

CZRJDDO, RPO4L/5/6 MLT-DR LGC
CIRJDD.PIY
06-JUN-79 (08:32

9006
9007
9008
9009
9010
9011
9012
9013
9014
9015
9016
9017
9018
9019
9020
9021
9022
9023
9024
9025
9026
9027
9028
9029
9030
9031
9032

=
=
=
=
=

SWRDL +54
SNCODE+ 1
$NCODE +2
$NCODE+3
SNCODE+4
SNCODE+6
$NCODE+10

174

SEQ 0172

;NEXT OPERATION (ODE
;NEXT PATTERN
SNEXT SECTOR
;NEXT TRACK
;NEXT CYLINDER
;NEXT BUFFER SIZE
;PARAMETER SELECTION INDICATOR

;INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES
000106
000116
000112
09G114
000116
000120
000122

MAXCYL
MINCYL

=
=

SNCODE+1?2
MAXCYL+?

;MAXIMUM CYLINDER ADDRESS
;MINIMUM CYLINDER ADDRESS

MINSEC
$FIRST

=
=

MAXCYL#+12
MAXCYL*14

MINIMUM SECTOR ADDRESS
;FIRST OPERATION INDICATOR

MAXTRK
MINTRK
MAXSEC

=
=

MAXCYL*4
MAXCYL*6
MAXCYL+10

;MAXIMUM TRACK ADDRESS
;MINIMUM TRACK ADDRESS
;MAXIMUM SECTOR ADDRESS

;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE
$8DSEC

000124

MAXCYL#+16

;DRIVE 1D AREA INDEX FQUATE.
$DRVID

0002024

$BDSEC+100

;BAD SECTOR STORAGE TABLE

AN
;DRIVE

;RH11/RP0O4/5/6 REGISTER EQUATES

SRPCS1

000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272
000274
000276
000300
000302

9033

9034
9035
9036
9037
9038
9039
9040
9041

9042
9043
9044
9045
9046

9047

9048

9049
9050
9051
9052

9053
9054
9055
9056
9057
9058
9059

) 14
30AC1052)
03-JuL=-79
10:41
PAGE
DATA, CONTROL, & STATUS BLOCKS

$NCODE
SNPATC
SNSEC
$NTRK
SNCYL
SNWRDL
SNEXT

000074
000075
000076
000077
000100
000102
000104

9004
5005

MACY11

$RPW(
$RPBA
$RPDA
$RP(S2
$RPDST
$RPERY
$RPAS

=
=
=
=
-

$RPEC1
$RPEC?2

;RPO4& REGISTER STORAGE

$RPCS1+420
$RPCS1+22
SRP(S142¢4
$RP(S1426
$RPCS1+30
$RP(S1+32
$RP(S1+34
$RP(S1+36
$RP(STeql

$RPLA
$RPDB
$RPMR
$RPDT
$RPSN
$RPOF
$RP(A
$SRP((
$RPER?

$RPER3Y

SDRV]D’%O

SRP(S1+
SRP(S1+4
SRP(S1+6
$RPCS1410
SRPCS1+12
$SRP(S1+14
SRPCS1416

$RP(S1+42

SRP(S1+44
$RP(ST+46

;BLOCK FOR DRIVE O
042036
042040
042052
04205¢4

000
000005
062272
000266

000

DRIVEOD:

.BYITE
BLKW
.WORD
.BLKB

0.0
5
L*BRP(ST=$REG
$SRPE(2-%REC

;DRIVE NUMBER

(IRJDDO, RPOL/S/6 MLT-DR LG(
06-JUN-79 08:32
CIZRJOD.P

(IRJDDO, RPO4/S/6 MLT-DR LGC
P11
CIRJDD.P
06-JuN-79 08:32
9060
9061
9042
9063
9064
9065
9066

9067
9068
9069
9070
9071
9072
9073
9074
9075
9076
9077
9078
9079
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090
9091
9092
9093
Y094
9095
9096
9097
9098
9099
9100
9101
9102
9103
9104

MACY1Y

30AC1052)
03-JuL=79
10:41
PAGE
DATA, CONTROL, & STATUS BLOCKS

175

SEQ 0173

.BLOCK FOR DRIVE 1
042342
042344
042356
042360

o
000005
042576
000266

000

DRIVEl:

.BYTE
BLxw
LWORD
.BLKB

1,0
S
. +SRP(SI-$REG

;DRIVE

NUMBER

SRPE(2-3REG

;BLOCK FOR DRIVE 2
042646

042650
042662
042664

002
000005

000

DRIVEZ:

0643102

000266

.BYTE
BLKkW
.WORD
.BLKB

2.0
S
L4SRP(S1-%REG
SRPEC2-$REG

;DRIVE NUMBER

;BLOCK FOR DRIVE 3
0463152
0431564
043166
043170

003
000005
043406
000266

000

DRIVE3:

.BY!E
.BLKW
.WORD
.BLKB

3,0
5
L*ORP(S1=8REG
$RPE(Z2-$REG

;DRIVE NUMBER

;BLOCK FOR DRIVE &
043456

043460
063472
063474

004

000005
043712
000266

000

DRIVEGL:

.BYTE
.BLKW
.WORD
.BLKB

4,0
5
LYSRPCSTI-%REG
$SRPECZ2-$REG

;DRIVE NUMBER

;BLOCK FOR DRIVE 5
043762
0437064
043776
044000

005
000005
044216
000266

000

DRIVES:

.BYTE
BLKW
WORD
.BLKB

5.0
5
,+SRP(S1-%REG
SRPECZ2-$REG

;DRIVE NUMBER

;BLOCK FOR DRIiVE 6
0644266
044270
044302
044304

006

000005
044522
000266

000

DRIVE6:

.BYTE
BLKW
LWORD
.BLKB

6,0
5
. +$RP(S1-$REC
SRPEC2-$REOC

R
;DRIVE NUMBE

;BLOCK FOR DRIVE 7
044572
044574
YA YY)
Oué&t10

007

000005
045026

000266

000

DRIVE?:

.BYTE
BLKW
. WORD
.BLKB

7.0
S
LHSRPCST=BREG
$RPEC2-3REG

:DRIVE

NUMBER

CIRJIDDO, RPOL/S/6 MLT-DR LG(
P11
CIRJDD.P
06-JUN-79 08:32

MACY11

9116
9117

30A(1052)
03-JUL-79
10:41
PAGE
DATA, CON'ROL, & STATUS BLOCKS

176

SEQ 0174

;GENERAL PURPOSE DPB - USED BY 'READHD', °"RECALT', °'GFFSET',8'RINCIR'
045076
045104
045106
045114
045116

000000
054746
000000
000000
000024

000000

177774

000000

0465116

GENDPB:

GENREG:

.WORD

0,0,=-4,CYLDER

.WORD

(,0,GENREG,O

.BLKW

;REGISTER STORAGE

IF ERROR

;;"ltt"'.""""""""l"'"'"'".Q"'."'.""'I'."'.""

LSBTITL

ERROR MESSAGES

;;!"t'tt't"'""'0""""""'l"'Q".""."'.""'...""."

044122
052116
052120
051125
051050

030461
051105
067440
042522
040520
024460

0464440

EMl:

LASCIZ

/RHI1

125

062516
042524
042524
02011¢
051122

050130
020104
052116
041517
0462105

EM2:

LASCIZ

/UNEXPECTED ATTENTION OCCURRED/

115

051501
050040

EM3:

LASC1Z

/MASSBUS PARITY ERROR (MCPE

036505

041123
051101
051105
046450
024461

051501
050040
020131
020122
030475

041123
051101
051105
050050
000051

EMG:

LASCIZ

/MASSBUS PARITY ERROR (PAR 1)/

051104

051505
043525
043516
020124

EMS:

LASCIZ

/ADDRESS PLUG CHANGE BIT SET/

030461
023516

042040
020124
047117
040440
051523

EM6:

LASCIZ

/RW11 DION'T RESPOND 10 ADDRESSING/

045166
045174
045202
045210
045216
045224

020075

045231
045236
0452644
045252
045260
045266

041505
052101
047511
052503
000

045267

045274
045302
045310
045316
045324

051525

020122

045325
045332

045340

0465346
045354

045362
045370
045376
0454064
065412
045616
0654264

045632

045440
045446
045654

020131

062523
064122
042111
06c5¢22
020104
042104
067111

046120
040510
044502
00012¢4

050123
047524
042522
n00107

052522
041503
020104
020123
000

INTERRUPT OCCURRED (RPAS
= 0)/

1)/

MACY1T

(IRJDDO, RPO&/S5/6 MLT-DR LG(
06-JUN-=79 08:32
CIRJDD. A1

9174

9175
9176
9177
9178
9179
9180

9181

9182
9183
9184
91895
9186
9187

9188
9189
9190
9191

91972
9193
9194
9195

9196
9197
9198
9199
9200
9201
G202
9203
9204
9205
9206
9207
9208
9209
9210
9211
9212

9213

9214
9215
9216

9217
9218
9219
9220
9221
9222
9223
9224
9225
9226
9227

10:641

G 14
PAGE 177

SEQ 0175

047125
041505
020105

047503
060524
0640515
020123
056524
051117

EM1G:

LASCIZ

/UNCORRECTABLE MASSBUS PARITY

106

052101
051501
050040
020131
000122

LARF

CASCIZ

/FATAL MASSBUS PAR]ITY

045544
045552

046440
051525
052111
047522

045556
045564
045572
045600
045606

042520
042524
053105
047125
000

051522
052116
041511
040523

EmMi12:

LASCIZ

/PERSISTENT

042506

045607
045614
045622
045630
045636
045644
045652
045660

117
044524

042520
047117
061440
052105
052111
0445264
046511

040522
047040
046517
042105
044510
042515
05211

EM13:

LASCIZ

/OPERATION NOT

042526
20124

EM1G:

ASCHZ

/DRIVE

045460
045466
065674
045502
045510
045516
045923
045530
045536

052502
044522
051122

052117
046120
053440
020116
046040
000

WENT

DEVICE

ERROR/

UNSAFE/

COMPLETED WITHIN

TIME

LIMIT/

OFFLINE/

045661
045666
045674
045702

104
0535440
043117
000105

044522

045704
045712
045720
0465726
045734

047516
064750
047524
020124
051505

051040
051516
050040
042522
0001264

051505
020105
051117
052521

EMI1S:

LASCIZ

/NO RESPONSE

045740
045746
0465754

042510
061640
051122

042101
04152

051105
042440
000

EMZ0:

LASCIZ

/HEADER (RC

ERROR/

045761
045766
045774
046002
0646010

104

020101

EM21:

LASCYZ

/DATA (HECK

('DCK')

EM22:

LASCIZ

/WRITE (HMECK ERROR = DATA (HECK (°*D(Kk*) SET/

046012
046020
046026
046034
046042
046050
046056

047105
046106

~n0

9:72
9173

30A(1052)
03-JuL=79
ERROR MESSAGES

020113

044103
023450
020051
000122

051127
044103
051105
020055
061440
024040
024447

047111

10 PORT

REQUEST/

ERROR/

023513
047522

051449

020105
020113
020122
060524
045503
045503
052105

(IRJDDO, RPO&L/S/6 MLT-DR LGC
(IRJOD P
06-JUN-79 08:32
9228
9229
9230
9231
9232
9233
9234

9235
9236
9237
9238
9239
9240
9241
9242

9243

9244
9245
9246
9247
9248
9249

9250
9251
9252
9253
9254
9255
9256
9257
9258
92959

9260

9261
9262

9263

9264
9265
9266
9267
9268
9269.
927¢
9271
9272
9273
9274
9279
9276

9277
9278
9279
9280
9281
9282
9283

0460664

000

0466065
046072
046100
046106

127

MACY11

044522
042510
051122
0462040
0644103
023450
020051
042523

000124

30A(1052)

O03-JuL=79

ERROR MESSAGES

10:41

tEM23:

+ASC1Z

/WRITE

H 16
PAGE

178

SEQ 0176

(HECX ERROR = DATA (MECK

(°'D(Kk*') NOT

046122
046130
046136

061440
042440
026440
020101
020113
023513
020124

0461464
066152
046160
046166
046174
0466202
046210

0642510
051040
051105
020055
020047
051104
000104

042101
040505
047522
0643047
0446502
050117

051105
020104
020122
052115
020124
042520

EM2e:

LASCIZ

/HEADER READ ERROR = °'FMT® BIT DROFPED/

046212
046220
046226
046234
0466242
046250
0466256
046264
046272

042510
051040
051105
020055
051105
040520
0664047
062440
000

0462101
040505
047522
042510
061440
042522
042503
051122

051105
02010¢
020122
062100
046517

EM25:

LASCIZ

/HFADER READ ERROR - HEADER C(OMPARE

046273
046300
046306
046314

020124
020122
023522

106

051117
051105
023450
000051

040515
0647522
042506

EM26:

LASCTZ

/FORMAT ERROR

046320
046326
046334
066342
046350

042510
041440
042522
042503
051122

0462101
046517
024040
024447
051117

051105
040520
066047
042640
000

EM27:

ASCI2

/HEADER COMPARE

066355,

15
060114
051529

05151
047101
062040
042440
000

042503
047505
0446522
051122

EM30:

LASC1Z

/MISCELLANEQUS DRIVE

046407
0466414
066422
0664630
046436

062520
<047117
046517
020105
023511
047522

060522
044440
046120
023450
020051
000122

EM31:

LASCIZ

/OPERATION INCOMP ETE

('OP1")

0466452
046460

053111
064515
062047

020105
0643916
0462524

Em32:

LASCIZ

/DRIVE

ERROR/

0466114

0466362

046370
046376
066404

042526
051117

046444

066466

044524
024040

0246040
024447
051117

TIMING

(°"FER®)/

(°'MCE') ERROR/

('DTE’)

ERROR/

SET/

('MCE') ERROR/

CIRJDDO, RPOL/S/6 MLT-DR L GC
06-JUN-T79 08:32
CZRIDD.PI
9284

9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295
9296
9297
9298
9299
9300
9301
9302
9303
9304
9305
9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
9334
9335

9336
9337
9338
9339

MACYT1

0464746
0466502

026447
051117

0466505
046512
046520
046526
046534
046542
046550
046556

020131
023522
047522
062524
051105
020116
042524

0466562
046570
046576
046604
046612
0466620

051127
046103
040506
020105
023506
047522

000122

046624
046632
046640
046646
046654

047111
020104
051505
04051
051105

040526
042101
020123
023505
047522

000122

046662
046670
0466676

046704

051127
047514
053447
042440

052111
045503
0642514
051122

046713
046720
046726
046734
046762
046750
066756
046764
046772

0441903
023450
020051
052504
053440
061440
061440
042116

104

046712

046775
047002

047010

047016
067024
047032

047033
047040
047046
047054
047062
047070
047076

062440
000

30AC1052)
03-JUL=79
ERROR MESSAGES

10:41

1 14
PAGE

179

SEQ 0177

051122

EM33:

LASCIZ

/PARITY

EM34:

CASCLZ

/WRITE

EM35:

LASCIZ

/INVALID ADDRESS

020105
024040
026447
051117

EM36:

LASCIZ

JWRITE

(OCK

("wLE')

ERROR/

052101
041505
041504
042523
044522
046522
042510
046517
000

020101
020113
023513
020124
063516
042526
045503
040515

EM37:

LASCIZ

/DATA (HECK

('DCK')

SET

122

030510
052440
020123
043123
051122

020061
044516
051124
051

EMLO:

102

051525
042522
020122
041440
064440
042522

000

051117
052502
047101
042440
000
042106
047440
062122
052116

051117
000

051101
023450
020051

EMGT:

/RH11

LASCLY?

('PAR')

(LOCK

ERROR AFTER OPERATION STARTED/

FAILURE

OR UNIBUS

("Ww(F')

('IAE')

ERROR/

DURING WRITE

TRANSFER ERROR/

/BUS ADDRESS OR WwORD (OUNT

INCORREC(T/

CHECK

COMMAND/

CIRJDDC, RPO4/S/6 MLT-DR ' G(
CZRJDD.PWY
06-JUN-79 08:32
9340
9341
9342
9343
9344
9345
9346
9347
9348
9349
9350
9351
9352
9353
9354
9355
9356
9357
9358
9359
9360
9361
9362
9363
9364
9365
9366
9367
9368
9369
9370
9371
9372
9373
9374
9375
9376
0377
9378
9379
9380
9381
9382
9383
9384
9385
9386
9387
9388
9389
9390
9391

9392
9393
9394
9395

MACY1Y

LASCLZ

/CAN'T MATCH DATA READ WITH A PATTERN/

051117
051450
026124
047040
047522
047107
041040
020105
000

EMLGG:

LASC1?

JERROR BI1(S)

041503

0646040
043040
042522
051517
020116
052123
046101
047517
042507

EMGS:

LASCLZ

JECC LOGIC FAILURE = POSITION REGISTER VALUE

051525
0642522
042116
020104
020124
047503
0642524

060440
051523
053440

EMLG:

LASCIZ

/BUS ADDRESS AND WORD COUNT NOT

042505
047503
042524
0464513
020122
054503
05110%
054503

020113
050115
024040
024447
043117
046514
024040
023514

EMS50:

LASCIZ

/SEEK

044523
042105
064124
030461

067377
067604
047412
047420
047426
06474634
067642
047450

102

047451
047456
047464
047472
047500
047506
047514
047522

042104
040440
051117
047125
020124
051511
000
123

067111
062514
051447
06474640
020106
042116

067447

SeQ 0178

EMG3:

023516
04615264
040524
020104
040440
042524

047316
047324
047332
047340
047346
047354
047362
047370
047376

130

020124
020110
051040
044527
050040
047122

047160
047166
047174
047202
047210
047216
047224

105
043517
044501
026440
052111
042522
051105
0642525
046040
000

PAGE

/DATA COMPARE ERRORS = NO OTHER ERROR(S) DETECTED/

042040
042524

047311

J 14

LASCIZ

052101
050115
051105
026440
052117
051105
024523
041505

044122

10:41

EMGL?:

047077
047104
067112
047120
047126
067134
047142
047150
047156

047225
047232
047240
047246
047254
047262
067270
047276
047304

30AC1052)
03-JuL-79
ERROR MESSAGES

04151
052514
050040
047511
044507
053040
052040
051101

SET, BUT NO ERROR SIGNALED BY

THE RH11/

100 LARGE/

CONSISTENT/

047503
047516
051516
052116

INCOMPLETE

('Sk1®) OR OFF

CYLINDER ('OCYL') ERROR/

CZRJDDO, RPOL/S5/6 MLT=-DR LGC
(ZRJDD.PYI
06-JUN-79 08:32

94611
9412

9413
9414
9415
9416
9417
9418
9419
9420
9421
9422

9423
9424
9425
9426
9427
94728
9429
9430
9431
9432
9433

9434
9435
9436
9437

9438

9439
9440
9441
9442
9443

9444

9445
9446
9447
9448
9449
9450
9451

047530
06753%6

020051
00012¢

051105

30AC1052)
03-,uL=79
ERROR MESSAGES

10:41

K 14

PAGE

181

SEQ 0179

047522

047540
047546
047554
067562
047570
047576

040522
062526
050040
047511
042440
0CC

EMST:

LASCIZ

/PROGRAM DETECTED POSITIONING ERROR/

047603
047610
047616
047624

EM60:

LASCIZ

/DRIVE

000122

042526
043101
047522

0467626

050122

051501

000

Dhl:

LASCLZ

/RPAS/

047633
047640
047646
047654
047662
047670
047676
047704

104

020040
030523
042520
051040
020040
031522
040520

046522
051040
020040
030522
042520
051040
020040
000123

062526
042120
051040
020040
031122
042520
051040

DHZ:

LASCIZ

/DRIVE

RPDSI

06771y
047716
047724
047732

051104
020040
042101
052101

0531
0425
0201

020105
020107
042040

DH3:

LASCIZ

/DRIVE

REG

ADR

047736
047764
047752
047760
047766
067774

051104
020040
042101
043440
020040
000

DH&:

LASCIY

/DRIVE

REG

ADR

047517
041040

020105
020107
020040
020104
042101

047775

050122

0642101

DH6:

LASCIZ

/$RPADR/

050002

044
000122

050004
050012
050020
050026
050034
050042
050050
050056
050064
050072
050100
050106

051104
051503
050122
020040
020061
051105
050122
020049
020063
041508
050122
000012

020126
020061
051503
050122
020040
020061
051105
050122
€20040
020061
041505

050122
020040
020062
051504
050122
020040
020062
051105
050122

DH1&:

LASCL]

/DRvV RP(S]

LASCIZ

/RP[R2

RPER3

RPEC)

RPEC2/<(R><LF>

050110
050116

050122
020040

041527
050122

020040
040502

DH1S:

LAS(L

/RPW!

RPBA

RPDA

RPAS

R
—
—rONy
—

9396
9397
9398
9399
9400
9401
9402
9403
9404
9405
9406
9407
9408
9409
9410

MACY11

UNSAFE

ERROR/

RPERT

RPER2

RPER3

RPAS/

DATA/

600D

RPCLS2

BAD/

RPDSI

RPER1

020040
006462
RPLA

CIRJDDO, RPO4/S5/6 MLT-DR LGC
CZRJOD.PIY
06-JUN-79 08:32
9452
9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9L67
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
94S0

9491
9492
9493
9494
9495
9496
9497
9498
9499
9500
9501
9502
9503
9504
9505
9506
9507

MACY1Y

050124
050132
050140
050146
050154
050160
050166
050174
050202

020040
040504
050122
020040
020040
050122
020040
020040
052104

020040
020040
051501
050122
020040
041104
050122
020040
005015

050122
020040
020040
060514

050207
050214
050222
050230
050236
050244
050252

122

051520
051040
020040
020101
041520
051440
006523

020116

020040
020106
041520
051040
020040
0525264

30A(1052)
O03-4uL=79
ERROR MESSAGES

020040
051115
050122
00C
047520

DH16:

10:41

L 16

PAGE

182

Sea 0180

CASCIZ

/RFDB

RPMR

RPDT/<(R><LF>

LASCIZ

/RPSN

RPOF

RPCA

RPCC

STATUS/<CR><i
F>

051040
020040
020103
0640524
000012

.EVEN

DT1:

.WORD

ATIN,O

033264
001244

D12:

.WORD

DRIVF ,RPERRS ,RPERRS+2 ,RPERRS+4 ,RPERRS+6,ATIN,O

040600

040602

D13:

.WORD

DRIVE ,RD.ADR,RD.WRD,0

001242
040602

041020
000000

041016

DT4:

.WORD

DRIVE ,WRT.AD,WRT .WD,RD.WRD,0

050324

001170

000000

D16:

.WORD

$RPADR,O

050330

050336
050344

000234
000250
000300

000244
000274
000302

000266
000276
000000

D114

.WORD

SRPCST,SRP(S2,8KPDST,SRPERT
,SRPER2 ,$RPER3 , SRPECT ,SRPECZ,0

050352
050360
050366

000236
000252
000260

000240
000254
000262

000242
000256
000000

DT15:

.WORD

SRPW(,SRPBA ,SRP[A $RPAS,SRPLA,SRPDB,
$RPMR ,$RPDT U

050374
050402

000264

000272

000266
000016

000270
000000

D116

.WORD

$RFSN,SRPOF
,SRP(A, SRP((,$TATLS,O

050410
050416
050424

051120
020124
020122
040
046526
051117
020075
052
051117
0460502
041501

051509
051117
020075
050040
052517
042504
000
042440
040440
020104
027513

047105
042504
000
042522
020123
020122

LINZC:

LASC1Z

/PRESENT

LINZP:

LASCLZ

051122
020124
051124
062523

LINZS:

LASCIZ

a* ERROR AT BAD TRACK/SECTORA

050260

01244

000000

050264
050272
050300

001242
033266
000000

033262
033270

050302
050310

001242
000000

050312
050320

050431
050436
050444
050452
050455
050462

050470
050476

ORDER

PREVIOUS ORDER

{

(IRJDDO, RPO&L/S/6 MLT-DR LG(
C(IZRJDD.PIY
06-JUN-79 08:32

9562

9563

0460440
052040
120
052116
020122
051440
040
053105
020122
052123
054503

051117
051122
020124
000
042522
0460440
020075
000
020040
040440
020075
051101
020114

000
051117
000103

LINM3:

_ASCIZ

/ERROR AT (/

LASCIZ

7S/

_ASCIZ

183

042523
062104
000105

LINN3:

05112C
042104
000103
020124
020075

LINP3:
LINS3:

(ASCIZ

/START (vL

042440
046131

042116
036440

LINEN3:

_ASCIZ

END (YL

041501
041440
000040
051124
000
050122
000040
040504

052526
046131

LINA3Z.

LASCIZ

ACTUAL (YL

020113

LINT3:

L.ASCIZ

TRK =/

040503

LINCA3:

.ASCIZ

/ RrCA -/

036440

LINDA3:

.ASCIZ

/RPDA =/

040502

036440

LINB3:

(ASCIZ

/RPBA - /

050122
000040
051101
020113

041527

LINW3:

LASCIZ

020124
020075

LINST3:

_ASCIZ

/START TRK = /

040524
041505

052122
036440

LINSS3:

,ASCIZ

/START SEC -

043106
042104
000
051440
020075
040440
020114
053440
043130
000040
042117
020101

051105
020122

LINMG:

_ASCIZ

/BUFFER ADDR

- /

055111
000
052103
0646516
042122
042122

LINS&:

(ASCIZ

SIZE -/

LINX&:

L(ASCIZ

ACTUAL NMBR WRDS XFRD

042040
020075

LINDS:

.ASCIZ

/GOOD DATA = /

041040
052101
000
051440
047520
000
040505

042101
020101

LINBS:

.ASCIZ

BAD DATA

041505
020123

LINPS:

LASCIZ

SECT POS =/

0462504

LINSS:

LASCIZ

/HEADER FROM ERROR SELIOR

_ASCIZ

SEQ 0181

]

9559
9560
9561

050657
050664
050670
050676
050700
050706
050710
050716
050722
050730
050736
050737
050744
050752
050754
050762
050770
050773
051000
051005
051012
051020
051026
051034
051040
051046
05105¢
051055
051062
051070
051073
051100
051106
051111

10%

n 14
PAGE

9540
9541
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551
9552
9553
9<54
9555
9556
9557
9558

050602
050610
050611
050616
050624
050626
050634
050642
050646
050654

052103

10:41

9522
9523
9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539

050504
050511
050516
050524
050527
050534
050542
050550
050553
050560
050566
050574

30A(1052)
03-JuL-79
ERROR MESSAGES

9508
9509
9510
9511
9512
9513
9514
9515
9516
9517
9518
9519
9520
9521

MACY11

/PRESENT ADDR - C/

PREV ADDR

RPWC - /

CIRJDDO, RPO&/5/6 MLT-DR LGC
CIRJOD.PIY
06-JUN=-79 08:32
9%
4
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593
9594
9595
9596
9597
9598
9599
9600
9601
9602
9603
9606
9605
9606
9607
9608
9609
9610
9611
9612
9613
9614
9615

9616
9617
9618
9619

051116
051126
051132
051140
051145
051152
051156
051164
J51170
051176
0512064
051212
051220
051223
051230
051236
051244
051252
051260
051266
051270
051276
051301
051306
051314
051322
051326
051334
051342
051350
051354
051362
051364
051372
051400
051404
051412
051420
051426
051433
051440
051445
051452
051460
051461
051466
051474
051476
051504
051512
051520
051526

051533
051540
051546
051554«

020122
042440
051440
020122
122
036440
051040
036440
042525
044440
020103
041505
020105
123
020122
041440
052103
047503
042524
000040
051040
051505
125
042522
042514
051105
020040
020114
051517
036440
051117
000072
052040
0516440
036440
052040
051440
054503
020122
040
051117
040
020123
000
040
020123
000072
044504
047105
047522
0446522
052105

106
047503
051511
051122

051
051
041
020075
042520
000040
042520
000040
052103
020123
047503
040524
000
041505
062522
051117
054514
051122
020104

MACYTT

30AC1052)

03-JUL=79

10:41

ERROR MESSAGES

PAGE

184

SEQ 0182

046517
051117
047526
000
030503

LINEPS:

ASCIZ

/RPECY

031103

LINEOS:

LASC1Z

051117
041505
051122
046102

LINBG:

ASC1Z

/SECTOR

047524
042101
042522
000040
041505
047117

LiNC6:

LASCIZ

/SECTOR READ CORRECTLY

LINGG:

.ASCIZ

/CORRECTED

044522

LINRG:

LASCIZ

051117
061101
052106

LINUOG:

ASCIZ

/UNCORRECTABLE

040524
050123
051122

LIN7M:

LASCIZ

051522

LIN7O:

LASCIZ

/ORDERS:/

046101
051513

LIN7P:

LASCIZ

TOTAL

SEEXS

046101
067454
051105
000
051122
009
042122
035122

LIN7S:

LASCI1Z

TOTAL

Sx],0CYL

LIN7T:

LASCIZ

ERRORS:/

LINZX:

LASCIZ

WRDS XFR:/

053440
042522

LIN7R:

CASCIZ

WRDS READ:/

043106
020124
020122
043516
05452
5
1
05210
0501
82; }
1

LINSM:

LASCIZ

/DIFFERENT

LINOB:

<ASCI2

/DATA

052105
000
041516
052103
040440
000040
047524
046515
0426440
000040
042504

052117
042505
000040
052117
044513
020114
020075
042440
035123
053440
043130

000123

RPEC2 -

IS ECC

CORRECTABLE

RETIRIES/
AFTER

TOTAL MISPOS ERR

ERR

ERROR DURING RETRY/

COMPARISON ERRORS/

9645

9646

9647
9648
9649

9650
9651
9652
9653
9654

9655
9656
9657
9658
9659
9660
9661
9662

9663

9664

9665
9666
9667
9668
9669
9670
9671
9672
9673
9674
9675

105

051117
047511
023516

042104
041040
20040
0642522
006440
052116
047440
047522
052103

600D

BAD/<CR><LF>

CASCIZ

/1L0C

DATA

DATA/<(R><LF>

LING]:

LASCIZ

/10¢

DATA/<(R><LE>

LINOE:

LASC1Z

/TOTAL COMPARE

LIN9G:

LASCIZ

/THE

LINT0A:

LASCIZ

/ERROR BURST

LINI10B:

LASCI?

LINIOC:

LASCII

/ERROR WAS NOT

LASCIZ

/ECC CORRECTION CAN'T BE PERFCRMED/

LASCLI

/ECC CORRECTIGN RESULTS/<(R><tF~

CASCIZ

/ADDR

LASCLZ

/CONTENTS OF

PN SR

020114
051101
047522
000040
040504
046517
020104
000
051117
052123
047111
053440
000
042040
044506
043117
051117
047524

020122
047516
052040
052101
042101

012
0461440
052103
040503
062502
047506
000
041440
052103
042522
006523

ERRORS = /

DATA (OMPARED OK/<CR><LF>

BEGINS AT

IN DATA FIELD OF

WORD /

ERROR SECTOR/<CR><LF>

020040
052101
042040
000012
020040
052101

ASCLI

LINGH:

SEQ 0183
NN

020040
0647537
0641040

B 15
PAGE 185

S, ST, PR, S

020040
043440
020040
005015
020103
042040
020040
006501
020103
062040
000012
040524
050115
051105
036440
020105
041440
042522
005015
051122
051125
043505
052101
020104
047111
020101
020104
051122
041505
000012
047522
020123
047111
062040
042522
006440
041503
042522
020116
020124
051105
042105
041503
042522
020116
052114

ERROR MESSAGES

10:41

W Vatalal
el

020040
0200640
020104
042101
067514
020040
020101
052101
047514
020040
006501
047524
047503
020105
051522
044124
040524
040520
045517
105
041040
041040
020123
051117
040
052101
046105
0426440
051440
006522
051105
040527
020124
042510
020101
026440

03-JUL-79

9641
9642
9643
9644

051562
051570
051576
051604
051610
051616
051624
051632
051640
051646
051654
051660
051666
051674
051702
051710
051716
051724
051732
051737
051744
051752
051760
05176¢
051773
052000
052006
052014
052022
052030
052034
052042
052050
052056
052064
052072
052077
052104
052112
052120
052126
052134

30AC1052)

[

9620
9621
9622
9623
9624
9625
9626
9627
9628
9629
7630
9631
9632
9633
9634
9635
9636
9637
9638
9639
9640

MACY11

LINIOH:

LINVTIH:

BAD

IN THE DATA READ = /<(R><LF>

CORRECTED /<(R><LF>

ERROR SECTOR (REPORTED ABOVE)/<(R><L?>

— Ea Swn SR SEm SRR SVR PRGN PUR () ST PR PR 9 3 3 T € €2 S

(IRJDDO, RPO4/S/6 MLT-DR LGC
(IRJDD P
06-JUN-79 08:32

051106
040504

020040
040524

10:41

15
PAGE

186

SEQ 0184

DATA/<(R><LF>

.ASCIZ

/ADDR

LINGSP:
LINSP:
LINSPO:

LASCH]
LASCI]
LASC1Z

LSBITL

TELETYPE

047122
050040
046501
020105
051505
041040
042105

USE:

LASCIZ

<CR><LF>/WARNING:

043517
041101
0464522
046111
020124
042523

:
NOUSE

LASC1Z

053111
043106
000
047117
000
047516
047111
052123

000105
044514

UNTMSG:
UNTOFF:

LASC1Z
LASCIZ

/DRIVE/

044514

UNTON:

LASCIZ

ONLINE/

020124
020107
042105

UNTNOT:

LASCIZ

NOT

046101
020131
020107
042105
047516
051040
027465

042522
042502
042524
000
124
020
030120
000066
050040
052116

UNTASN:

LASCIZ

ALREADY BEING TESTED/

NOTRP:

LASCIY

@ NOT AN RP04/5/6a

NOTPRS:

LASCIZ

/ NOT

PRESENT/

047516
0464501
000105

020124
040514

NOTAvVL:

LASCIZ

/ NOT

AVAILABLE/

043101

NOTSAf:

ASCIZ

/ UNSAFE/

051440
035123

SYSTAY:

LASCIZ

JUNLT

RPO4B:

ASCLZ

/RPQO&/

000
040

052440

052117
042523

1516

000

/
/
/

MESSAGES

PROGRAMMABLE

PROGRAMMABLE-DRIVE

WiLL

DRIVES MAY BE

NOT BE

USED/<CR><LF>

USED/

/ OFFLINE/

BEING

TESTED/

STATUS:/<CR><LE><LF>

052656

052440
000105
047125
060524
005015
050122

047520
0404640
006451

30A(1092)
03-JUL=79
ERROR MESSAGES

[NV

005015
0647111
047522
040515
051104
046440
020105
005015
040
040522
042514
042526
020114
042502
000104
0511064
047440
042516
40
042516
040
042402
04224
(00
040
02101
067111
052123
040
047101
027464
047040
042522
000
040
053101
666102

062522
0642105
0642526

ONO—=OOON)
OV = 2NN~

026040
052122
047502
000012
042101
020C40
005015
040
040
000040

MACY11

NN
N

9727
9728
9729
9730
9731

SN2 OONNONSO

9676
9677
9678
9679
9680
9681
9682
9683
9684
9685
9686
9687
9688
9689
9690
9691
9692
9693
G694
9695
9496
9697
9698
9699
9700
9701
9702
9703
9704
9705
9706
9707
9708
9709
9710
971
9712
9713
9714
9715
9716
9717
9718
9719
9720
9721
9722
9723
Q724
9725
9726

QO =lelelolololalo)]
NN NN
NN
rnoro [aS1 V1, VY VT ST, N1, N T
LN N AN N
N N N N N
NN
= 2 OO NC W

CIRJIDDO, RPO&L/S5/6 MLT-DR LGC
CIRJDD P11
06-JUN-T79 08:32

C(IRJDDO, RPO4L/S/6 MLT-DR LG(
(IRJDD.PIY
06-JUN=-79 08:32
9732
9733
9734
9735
9736
9737
9738
9739
9740
97641
9762
97643
9744
9745
97646
97647
97648
9749
9750
9751
9752
9753
9754
9755

052661
052666
052673
052700
052706
052714
052722
052726
052734
052742
052750
052756
052764
052772
053000
053006
053014
053022
053030
053036
053042
053050
053052
053060

*22
05012¢
106
050040
046°22
051440
056%22
051104
051523
051105
042¢23
0200640
054040
0200640
051040
047923
051°01
0446913
020°20
006922
047504
000012
037407
020114

040506
051117

9761
9762

053122
053130

051°17
047°05
050040
005015
043117

9764
9765
9766
9767
9768
9769
9770
9771
9772
9773

053140
053146
0531564
053162
053163
053170
053176
053204
053210
053216

005015
020105
044523
000
015
025052
020052
020105
051440
042105

9783

053277

9756
9757
9758
9759
9760

9763

9774
9775
9776
9777
9778
9779
9780
9781
9782

9784«
9785
9786
9787

053066
053074
053102
053106
053114

053136

053223
053230
053236
053244
053252
053260
053266
053274
053275

053301
053306
0533'4
053322

0641530
062526

000124

015
023514
050047
041517
052521
047440
052123
000
056

077

111
062111
040515
000

030120
033060
046522
051105
047101
046525
005015
020126
047440
020123
045505
051127
042506
051127
040505
052106
020104
0646640
052117
9000012
042516

MACY11

30AC1052)
03-4uL-79
TELETYPE MESSAGES

000065
000
0642526
047506
062503
0460515

RPOS:
RPOG:
STATHD:

040520
042122
020040
020123
051504
020122
051504
020104
044040
051440
051511
042510

10:41

D15

PAGE

187

SEa 0185

ASCIZ
LASCIZ
.ASCI1

/RPOS/
/RPOG/
/DRIVE PERFORMANCE

SUMMARY/<CR><LF>

ASCI1

/DRv PASS ORDERS

SEEKS

<ASCIZ

/SOFT

HARD

SK|

PDONE:

.ASCIZ

/DONE/<CR><LF><LF>

040524
042440

DROPNG:

.ASCIZ

<O07>/7FATAL

000123
020104
051501
047105
052040

043117
000123
020104
051505

ENDPAS:

_ASCIZ

/END OF

ENDTST:

,ASCIZ

<CR><LF->/END OF

051104
042504
047107

0531
0515
04621

DEASSG:

.ASCIZ

<CR><LF>/DRIVE

025012
0250652
051104
000043
060524
005015

0250 2
02505 2
053111

DRNUM:

_ASCIZ

<(R><LF>/enwwnnecee DRIVE

052122

ASGND:

.ASCIZ

NEDCLK:

,ASCIZ

<CR><LE>/?

PERIOD:

.ASCIZ

/./

INvLD:

LASCIZ

/INVALID (OMMAND/<(R><LF>

0376412
047440
020047
020113
051111
020116
046505

053116
(41440
042116

WRDS READ

OR EXCESSIVE

ERRORS/

044523
051122

1
1

PASS/

TEST/
DEASSIGNED

000
023440
020122
066103
042522
042105
054523
005015

000

XFER

MISP OTHER/<CR><LF>

005015

051505
042440

WRDS

046107
046517
0050'5

QUES:

ASCLIZ

STARTED/<CR><LE>

/7Y

'L*

'P'

(LOCK REQUIRED ON SYSTEM/<(R><Lf>

CIRJDDO, RPO&L/S/6 MLT-DR LG(
CZRJDD. P11
06-JUN-79 08:32
042612
041440
042116
000012
042526
027104
042040
000
042612
040440
051523
0521
020122
000043
0642526
020104
0642523
051522
062040
000
000
042012
000040
050117
051117
035056
042012
051104
027104

9788

9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799

9800
9801
9802
9803
9804
9805
9806
9807
9808
9809
9810
9811
9812
9813
9814
9815
9816

9817

9818

9819
9820
9821
9822
9823
9824
9825
9826

9827
9828
9829
9830
9831
9832
9833
9834
9835
9836
9837
9838
9839
9840
9841
98..2
9843

053372
053375
053402
053410
053416
053424
053432
053436
053444
053452
053460
053466
053474
053477
053501
053506
053512
053520
053526
053534
053542
053550
053556
053557
053564
053566
053574
053602
053610
053616
053624
053631
053636
053644
053652
053660
053666
053672
053700
053706
053714
053722
053730
053736

051504

MACY11

30A(1052)

03-JUL=79

10:41

£ 15
PAGE 138

SEQ 0186

TELETYPE

MESSAGES

ENTCOM:

ASCIZ

CLROCLE>/ENTER

ENTDRV:

LASCIZ

/ENTER

ENTLMT:

LASCIZ

<CR><LE>/ENTER

ENTADR:

ASCIZ

aENTER BAD TRK/SEC ADRS FOR DRv #3

COLON:
DATE]S:

ASCIZ
LASCJZ

/:/
<CR><LF>/DATE:

ID]S:

LASCIZ

<CR><LF>}OPERATOR 1.D.: /

HEDLIN:

LASCIZ

<CR><LF><LF>/DRV

1.D.

(COMMANDS:

/<(CR><LF>

FOR DRv #/

ADDRESS

LIMITS

FOR DRv

051104

020122
051124
020103
043040
053122
052101

051105
0646640
000040
053122
020126
005015

DRV

1.D./<(R><LF>

047117

006505

:
NONE

LASCIZ

/NONE /<CR><LF>

047111
020104
006531
052123
0515295
005015
050012
046501
044524
052101
047503
042526
054524
023440
047522
052040
042524
0646515
005015

040526
047105
000012
046505
02711
000
047522
044440
046101
047511
050115

BADENT:

LASCIZ

BUSY:

<ASCIZ

/SYSTEM BUSY.,../<CR><LF>

INTDON:

LASCII

<CR><LF>/PROGRAM

LASCIZ

<CR><LF>/TYPE A '(ONTROL C'

INVALID ENTRY/<LR><LE>

.EVEN

;PARAMETER ENTRY

TABLE

INITIALIZATION COMPLETE/

TO ENTER (OMMANDS/<(R><LF><Li>

(IRJDDO, RPO4L/S/6 MLT=DR LGC
CZRJDD.P
06-JUN-79 08:32
9844
9845
9846
9847
9848
9849
9850
9851
9852

9853

9854
9855
9856
9857
9858
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880
9881
9882
9883
9884
9885
9886
9887
9888
9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9899

PACY1Y

30A(71052)
PARLST:

053744
053752
053760
053766
053774
054002
054010
054016
054024
054032
054040

054072
0564100
056230
054207
054177
054205
054222
056170
056213
054237
000000

000000
177777
177777
177777
000001
000007
000001
000001
000001
000001

001404
001410
001402
001414
001420
001422
001430
001416

054042
054050
054056
054064
054066

047105
040520
042524
000040
027440

062526
040522
051522

020122
042515
020072

056072
054100
054106
054107
056114
054116
054124
054125
054132
054134
054142
054143
054150
054152
054160
054161
054166
054170
054176
054177
054204
054205
054212
054213
054220
054222
054230
054236
054237
056244

040515
047111
000
103
000124
040515
000

042130
051124

03-JuUL-79

TELETYPE MESSAGES

001424
001426

.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.wORD
.WORD
.WORD

10:41

PAGE

189

PAR1,0,MAXDL
PARZ,=1,INTRVL
PAR19,-1,PASCNT
PAR3,~1,(MPLMT

PAR11,1,WCSEL

PAR14,7 ,RATIO
PAR16,1,ENDET
PAR10,1,FORMAT
PAR1S,1,AUTOCK
PAR20,1,NOTPRT

;TABLE TERMINATOR

ASKPAR:

.ASCIZ

/ENTER PARAMETERS:

SLASH:

LASCIZ

000114
046126

PARY:
PARZ:

LASCIZ
LASCIZ

/MAXDL/
/INTRVL/

050115

046514

PAR3Y:

.ASCIZ

/CMPLMT/

041530

046131

:
PARG

.ASCIZ

/MAXCYL/

0471M1

054503

PARS:

LASCIZ

/MINCYL/

052130

045522

PARG:

LASCIZ

/MAXTRK/

047111

051124

PAR?7:

.ASCIZ

/MINTRK/

051530

041505

PARS:

CASC1Z

/MAXSEC/

047111

042523

PAR9:

LASCIZ

/MINSEC/

046522

052101

PAR10:

LASCIZ

/FORMAT/

051503

046105

PAR11:

LASC1Z

/WCSEL/

052101

047511

PAR14:

LASCIZ

/RATI0/

052125

041517

PAR1S:

LASCIZ

/AUTOCK/

062504
041523

000124
052116

PAR16:
PAR19:

LASC1Z
LASCIZ

/ENDET/
/PASCNT/

052117

051120

PARZO:

CASCLY

/NOTPRT/

000040

SEQ 0187

.EVEN

JPARAMETER TABLE POINTERS FOR ADDRESS LIMITS
054246
054250
054252

054266
096334
054402

TABLE:

TABLED

.WORD
.WORD

TABLE

TABLE?

;PARAMETER
;PARAMETER
;PARAMETER

TABLE
TABLE
TABLE

fO R DRIVE
fO R DRIVE
FO R DRIVE

0
2

(IRJDDO, RPOL/S/6 MLT=DR LGC
CIZRJDD.P1Y
06-JUN-79 08:32
9900
9901
9902
9903
9904
9905
9906
9907
9908
9909
9910
9911
9912
9913
9914
9915
9916
9917
9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936
9937
9938
9939
9940
9941
9942
9943
9944
9945
9946

9947
9948

9946
9950
9951
9952

9953

9954
9955

054254
056256
056260
056262
054264

MACY11

30A(1052)

TELETYPE

03-JUL=79

MESSAGES

.WORD
.WORD
.WORD
.WORD
.WORD

054450
056516
054564
054632

€54700

;PARAMETER

000000
000022
000022
000025
000025

042146
042144
042152
042150
042156
042156

TABLEO:

054125
054116
054143
054134
054161
054152
000000

000000
000000
000022
000022
000025
000025

042452
042450
042456
042454
042662
042460

TABLE1:

054402
054410
054416
054424
054432
054440
054446

054125
054116
054143
054134
054161
054152
000000

000000
000000
000022
000022
000025
000025

042756
042754
042762
042760
042766
042764

054450
054456
054466
054472
054500
054506
054514

054125
054116
054143
054134
054161
054152
000000

000000
000000
000022
000022
000025
000025

054516
054524

054125

054562

054564
054572
054600
054606
0564614
054622
054630

054125

054116

056143
054134
054161
054182

000000

FOR ADDRESS

;PARAMETER
:PARAMETER
:PARAME TER
:PARAMETER
:PARAME TER
LIMITS

.WORD

PARS,0,MINCYL*DRIVE!
PARL,0,MAXCYL+DRIVE1
PAR7,18.,MINTRK¢DRIVE1
PAR6,18.,MAXTRK+DRIVE!
PAR9,21.,MINSEC+DRIVE?
PARS,21.,MAXSEC+DRIVEL,O

TABLE2:

.WORD

PARS,O,MINCYL*DRIVE?

043202
043260
043266
043264
043272
043270

TABLE3:

.WORD

PARS,0,MINCYL+DRIVE3

000000
000000
000022
000022
000025
000025

043566
043564
043572
043570

TABLEG4:

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

PAR&L,0 ,MAXCYL+DRIVESG
PAR7,18.,MINTRK+DRIVES4
PAR6,18. ,MAXTRK+DRIVES
PAR9,21. ,MINSEC*DRIVESG
PAR8,21.,MAXSEC+*DRIVES,O

000000
000000
000022
000022
000025
000025

044072
046070
046076
0644074
066102
044100

TABLES:

.WORD
.WORD
.WORD
.WORD
.WORD

PARS,O,MINCYL*DRIVES
PAR4,Q0,MAXCYL+DRIVES
PAR7,18.,MINTRK¢DRIVES
PAR6,18.,MAXTRK+DRIVES
PAR9,21.,MINSEC+DRIVES
PARS8,2V. MAXSEC+DRIVES,O

054334
054342
054350
054356
054364
054372
054400

056161
054152
000000

TABLE

190

.WORD
.WORD
.WORD
.WORD
.WORD

000000

054143
054134

TABLES
TABLE&
TABLES
TABLE®
TABLE7

PAGE

PARS.O,MINCYL¢DRIVEO
PARG,0,MAXCYL*DRIVED
PAR7,18.,MINTRK+DRIVEOQ

054125
054116
054143
054134
054161
054152
000000

054532
054540
054546
054554

615

.WORD
.WORD
.WORD

054266
054274
054302
054310
054316
054324
054332

054116

10:4)

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

043576
043574

LWORD

PAR6,18.,MAXTRK+DRIVEOQ
PAR9,21.,MINSEC+DRIVED
PARS8,21,,MAXSEC+DRIVED,O

PARG,D,MAXCYL+DRIVE?
PAR7,18.,MINTRK+DRIVE?
PAR6,18.,MAXTRK+DRIVE?
PARG,21. ,MINSEC+DRIVEZ
PAR8,21,,MAXSEC+DRIVEZ,0

PAR4L,0,MAXCYL+DRIVE3
PAR7,18.,MINTPK+DRIVE3
PAR6,18.,MAXTRK+DRIVE3}
PAR9,21.,MINSEC+CRIVES
PARS,21.,MAXSEC+DRIVE3,0
PARS,O0,MINCYL*DRIVESG

SEG 0188
TABLE
TABLE
TABLE
TABLE
TABLE

FOR DRIVE

CIRJDDO, RPO&L/S/6 MLT=DR LGC
CIRJDD P11
06-JUN=79 08:32

054125
054116
054143
054134
054161
054152
000000

000000
000000
000022
000022
000025
000025

044702
044700
044706
064704
044712
064710

TABLE7:

.WORD

000000
000000

000000

(YLDER:

.wORD

0,0,0,0

ENDPGM

054756

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WURD

W15

PAGE

191

SEQ 0189

PARS,0,MINCYL¢DRIVEG

PAR&,O,MAXCYL+DRIVESG
PAR7,18. MINTRK+DRIVEG
PARG,18. ,MAXTRK+DRIVEG
PAR9,21. ,RINSEC+DRIVEG
PAR8,21.,MAXSEC+DRIVEG,O
PARS,0,MINCYL4DRIVE?

PAR4,0 ,MAXCYL+DRIVE7
PAR7,18. ,MINTRK+DRIVE7
PARG6,18. ,MAXTRK+DRIVE?
PAR9,21. MINSEC+DRIVE?7
PARB,21. ,MAXSEC+DRIVE7,0

;HEADER BUFFER FOR

‘READHD®

;LAST LOCAT]ON OF

ROUTINE

PROG ¢ 2

;;l"il""""'t""""""""""'lt'!"."'l""""'l"""

:ROUTINE TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR

;CALL:

;

JSR

RE TURN

PC,OPRDAY

ENOTE: THIS ROUTINE 1S ENTERED ONLY AT INITIAL STAR®

055026
055032
055034
055036
055042
055046
055052
055056
055062
055066
05507C
055076
0551064

SN NINISNI N N N NN
=

054756
056762
054764
054766
054772
054776
055002
055006
055012
055016
055022

OPRDAT:

055070

005015
020122
020072

TYPE

LJENTDAT

;'ENTER DATE’

MOV

(SP)+ RS

;PUT

MOVB
MovB
MOVB

(RS)+ ,DATE+?
(R5)+ ,DATE+3
(RS)+ ,DATE+4

RDLIN

MOVB
MOvB

001220
001221
001222
001223
001224
001225
001226
001227
055107

MOVB
MOVB

Move
TYPE

RDLIN

NN NN NN N

9998
9999
10000
10001
10002
10003
10004
10005
10006
10007
10008
10009
10010
10011

054754

044406
044404

V1, V] V) V) V1,3 S L VI " Pk

9997

054746

000022
000022
000025
000025

9967
9968
9969
9970
9971
9972
9973
9974
9975
9976
9977
9978
9979
9980
9981
9982
9983
9984
9985
9986
9987
9988
9989
9990
9991
9992
9993
9994
9995
9996

10:41

TABLEG:

O WNWNINNINNO
= O WWNNNNNNNDG — O

9966

054700
054706
054714
054722
054730
056736
054744

000000
000000

30AC1052)
03-4UL~-79
TELETYPE MESSAGES

0644376
0644374
044402
064400

LYYV IV RV SV YV RV Yo W0 o0 LRV RV LV RV LV LV LV AV Fo 30 o0 o

9965

054125
054116
056143
054134
054161
054152
000000

[SY,91, V1, C1, VY V1 UL VW W

9961
9962
9963
9964

056632
054640
054646
054654
054662
054670
054676

O—a—a—-—a—._‘o—a_._._n_a_.-a_._a_oo_...—n

9956
9957
9958
9959
9960

MACYTY

062524
0a2524

ENTDAT:

(RS)+,DATE
(R5)¢ ,DATE+]

(R5)+,DATE+S
(P5)+ ,DATE+6

(RS)+ ,DATE+7
LENTID

;READ

THE

ENTRY

THE ENTRY ADDRESS

;STORE
;STORE

;STORE
:STORt
;STORE
;STORE
;STORE

THE
[HE

DATE
DATE

THE
THE

DATE
DATE

THE DATE
THE DATE
THE DATE

;STORE THE DATE
:"ENTER OPERATOR
;READ

MOV
MOvVB
MOvB
MOvVB
MOVB
MOvVB
MOvB
RTS

(SP)+,RS
(R5)+,0PERID
(RS)+,0PERID+:
(R5)+ ,0PERID+2
(RS)+,0PERID+3
(RS)+,0PERID+4
(R5)+,0PERID*S
PC

[ASCIZ

<CR><LF>/ENTER DATE:

THE

ENTRY

SENTRY ADDRESS
;STORE THE [.D.
;STORE THE 1.D.
;STORE THE 1.D.
;STORE THE 1.D.
;STORE THE [.D.
;STORE THE 1.D.
sRETURN

1.D.'

INTO RS

(IRJDDO, RPO4/S/6 MLT-DR LG(
06-JUN-79 08:32
CZRIDD.PIN
10012
10013
10014
10015
10016
10017
10018

055107
055114
055122
055130

105
0474640
047524
027104
055136

MACYT1

30A(1052)

051105
0460522
02711
000

ENTID:

10028
10029
10030
10031
10032
10033
10034
10035
10036
10037
10038
10039
10040
10041

10062

10043
10044

10045
10046
10047
10048
10049
10050
10051
100%2
10053

055136
055140
055142
055146
055152

10067

ROUTINE

TO SIZE MEMORY

PL,$SILE

JSR

RT TURN

$S1ZE:

MOV

RO,=-(SP)

::SAVE RO ON THE STA(K

MOV

SNERRVEC,~-(SP)

;:;SAVE PRESENT ERROR VECTOR PS & PC

055154
055156
055162
055170
055174
055176
055200
055202
055206
055210
055214
055220
055224
055226
055230
055232

000004
000006

MOV

LAST

AVA]| ABLE MEMORY LOCATION

R1,-(SP)

MoV

ANERRVEC+2,-(SP)

MOV

SP,RO

;:SAVE

ON THE

STA(K

:;SAVE THE STACK POINTER

;:SET THE ERRVEC PS TO THE PRESENT PS
000006
055202
020000

000002

TRAP

000004
1%:

2%:

000006
000004
055232

::PUSH OLD PSW AND PC ON STA(K

MOV
MOV

(SP)+ ,@#ERRVE(+?2
::SAVE THE PSW IN Q#ERRVE(C+?
::SET FOR TIMEOUT
#2% ,3MERRVEC

SuB
MOV
MoV

; :DROP BAC(CK
¥2,R1
::RESTORE THE STA(K
RO,SP
(SP)¢,a#ERRVEC+2 ;.RESTORE ERROR VECTOR

MOV
MOV
MOV

R1,8LSTAD
(SP}+,R1
(SP)+,RO

::LAST ADDRESS
::RESTORE RI1
J;RESTORE RO

.WORD

;;CONTAINS THE LAST ADDRESS

MOV
157
187
BR

#20000,R1
(R1)
(R1)¢
1%

MoV

$LSTAD:

000000

.SBTTL

(SP)+ ,3#ERRVEC

RTS

::FIRST ADDRESS
;. TEST THIS ADDRESS
:STEP TO NEXT ADDRESS
::TRY ANOTHER

BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RHI1

:THIS ROUTINE

1S USED TO INSURE

THE BUS ADDRESS

:OF THE RM11 IS SETUP FOR THE PROPER ADDRESS.
;1T WILL ALSO READ THE ADDRESS TROM THE TVy [IF
JREQUIRED.

sNOTE: THIS ROUTINE DESTROYS RO-R&
; CALL

;

10057

10064
10065
10066

[.D.:

:*SLSTAD WILL CONTAIN THE

10055
10056

10063

/ENTER OPERATOR

SEQ 0190

LEVEN

;eCALL:

10054

10058
10059
10060
10061
10062

,ASUIZ

10:41

;;""""'"'""""""""""""'0"."'.l"""""'."l"

10021
10022
10023
10024

10025
1026
10027

192

TELETYPE MESSAGLS

LSBTTL

10019
10020

115
PAGE

03-JUL-79

055234
055236
055240

000776
000000

055242
055246
055250
055254

00573%7
001456
005037
012700

177700

JSR

PC,BUSADR

;

RE TURN

HIAD:
HIVEC:
BOUND:

.WORD 177700
.WORD 776

.WORD 0

001260

BUSADR: TS1

001260
01170

1%:

BEQ
(LR
MOV

CHGADR

7%
(CHGADR
#SRPADR, RO

;INPUT FROM TTY REQUESTED?

:NO==BRANCH
;VES==CLEAR THE REQUES' FLAG
;F1IRST ADDRESS

(IRJDDO, RPO4L/S5/6 MLT-DR LG(

CIRIDD.PII

06-JUN=79 (8:32

10068
10069
10070
10071
10072
10073
10074
10075

055260
055264
055266
055270
0535274
055276
055300
055306

104401
012046
104402
1064401
1044611
012601
013737
004537

10077
10078
10079

055314
055316
055320

055404
055254
055326

10076

055312

055332

05%23&
055510

10086
10087
10088
10089
10090
10091
10092
10093
10094

055342
055346
055350
055352
0553€¢0
055364
055366
055370
055372

104401
104411
012601
013737
004537
055404
055404
055332
055400

052323

10097
10098
10099
10100
10101
10102
10103
10106
10105
10106
10107

055400
055404
055410
055416
055422
055426
055432
055436
055440

177776
000004
055444
123546
000004
001170
033430

055442
055444

010260
013701
012737
005777
010137
012700
012701
012021
012021
000207
010137

10109
10110
10111

055452
055454
055460

104006
005737
001675

000042

000137

005432

10095
10096

10108

181}%
101

055374
055376

055450

055462

055332
055400

022626

10:41

1YPE
MOV
TYPOC
TYPE
ROLIN
MOV
MoV
JSR

055240

b3 )

LMRP(S
(RO)+,=(SP)
LLINSP
(SP)+ ,R1
#1AD,BOUND
RS,CK.NUM

7%
1%
2%

055256
055400
010260
104401
012046

104402

03-JuL=79

177776

2%:

055477

055236
055510

3%:

1%
4%
MOV
TYPE
MOV

T1YPOC

TYPE
ROLIN
MOV
MOV
JSR
7%
7%
3%
6%

055240

000004

6%
7% :

8%:

3%
4%

MOV
MOV
MOV
1ST
MoV
MOV
MOV
MOV
MOV

RTS
MOV

(MpP

R2,=2(RO)

JMRHVEC
(k0)+,=(SP)
LLINSP

(SP)+,R1
HIVEC,BOUND
RS,(x .NUM

R2,=2(RO)
FRRVEC,R
#8% ,ERRVEC
a$RFADR
R1,ERRVEC
#SRPADR,RO
#RPADR R
(RO)+,(R1)+
(RO)+,(R1)+

PC
R1,ERRVEC

(SP)+,(SP)+

ERROR
181
BEQ

6
FY Y.
%

JMP

$GET14Y

055466

050122

051503

020061

MRP(S1:

.ASCIZ

QRP(S! = @

10116
}8}};

055477
055504

122
036440

053110
000040

041505

MRHVEC:

.ASCIZ

GSRHVE(C = a

055474

020075

000

193

;URPCS1E"
:PRESENT RP(CS1

ADDRESS
CTYPE T
;2 SPACES
;GET THE ENTRY
:ADDRESS OF ASCII TEXT
:SET THE ADDRESS MAX
:CHECK THE NUMBER

:CARRIAGE RETURN ONIY ENTERED

:PERIOD ONLY ENTERED
:ILLEGAL INPUT
;TERMINATED WITH A CARRIAGE RETURN

10116

10119

J 15
PAGE

BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

052323

055322
055324
055326
055332
055336

055340

30AC1052)

055466

10080
10081
10082
10083
10084

10085

MACY11

:TERMINATED WITH A *',""
;TERMINATED WITH A "'
:SAVE NEW RP(SI
URMVEC=E"
;PRESENT RH11 VECTOR ADDRESS ON THE STA(K

TYPE I

:2 SPACES
:READ THE ENTRY
:ASCI1 TEXT ADDRESS
;SET THE VECTOR-MAX
:CHECK THE NUMBER
;:CARRIAGE RETURN ONLY ENTERED
:PERIOD ONLY ENTERED
:1LLEGAL ]NPUT
:TERMINATED WITH A CARRJAGE RETURN

:TERMINATED WITH A "
;TERMINATED WITH A "'

;s SAVE INPUT
:SAVE THE ERROR VE(TOR
;SETUP FOR TRAP
;CHECK FOR RH1I
:RESTORE ERROR VECTOR
;FIRST ADDRESS OF NEW PARAMETERS
:FIRST ADDRESS OF WHERE "0 PUT THEM
:BUS ADDRESS
:VECTOR ADDRESS

;RETURN
:RESTORE ERROR VECTOR

;CLEAN OFF THE STA(K

;REPORT THE ERROR
:1S THERE A MON;iTOR?
:NO=-=G0O ASK FOR ADDRESS

;GO 10 END OF PROGRAM

10119
10120
10121

JSBTTL (XK. NUM = (HECK NUMBER (NCTAL)
:THIS ROUTINE C(HECKS AN ASCIZ STRING FOR LEGAL C(HARACTERS
:AND FORMS AN OCTAL NUMBER IN R?

10123

10122

cCALL:

MOV

#ADR,R)

; ADDRESS OF ASCIZ STRING

SEQ 0191

~no

W AN NN
-~ [0 MV IV o}

ed
e

e
e

e
D
e

(HECK

RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

d el e

el
i

03-JuL=79

Mov

d ool

30A(1052)
(K.NUM -

10138
10139

10140
10141
10142
10143
10144
10145
10146

10147
10148

10149
10150
10151

10152
10153
10154
10155

10156
10157
10158
10159
10160
10161

10162
10163
10164

10165
10166
10167
10168
10169
10170
10171
10172
10173
10174
10175
10176
10177
10178
10179

055510
055512
0555146
055516

055520
055522
055524
055530
055532
055534

055536
055540
055542
055544
55550
55552
p5554
0 5556
055560
055562
055564
055566
055572

055574
055576

055600
055602
055604
055606

055610
055612
055614
055616
055620
055624
055626
055630
055632
055634
055636
055640
055642
055644
055646
055650

010446
010346
010246
005004
005003
005002
004537
055630
055634
055630
055632
055544
055630
062705
006303

CLR
(LR
(LK
JSR
6%
8%
6%
7%
%
6%

027656

000004

INUM R2
RS,C(K.NUM

ADR1
EDR2
ADR3

005726
012603
012604
011505
000205

194

;MAX

SEa 0192
OF

SIZE

INPUT NUMBER

;G0 FORM THE NUMBER
;"'CR'" ONLY ENTERED -- R2 = 0

ADR6

0
;"'PERIOD’' ONLY ENTERED == R2
STRING
INPUT
;ILLEGAL (HARACTER IN THE
NUMBER
=
:"CR'" ENTERED == R2
:"'COMMA’ == R2 - NUMBER
NUMBER
;'PERIOD =-- R2

R4 ,=(SP)

;SAVE

ADR&

ADRS

R3,-(sP)
RZ,=(SP)
R&

R3
R
RS,(K.CHR

:SAVE R3
;SAVE R?

:RETURN POINTER

:STAR1

NUMBER AT

ZERO

;STORE RESULT
;CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

:0IGIT 0-7
;DIGIT B8-9
; INCREMENT RETURN PAST “'CR'' AND ''PERIOD'® ONLY RETURNS

ADD
ASL

103426

006303
103424
006303
103422
060203
004537
055634
055516
055614
055606
055550
055634
105711
00101
005724
005724
005724
023703
101003
000401
005725
005725
060405
010302

MOV
MOV
MoV

PAGL
10:41
NUMBER (OCTAL)

MACY11

J3R

b
b

d e
el

- —

—

o OCOODOO0OOOOOO0O o

CIRJDDO, RPOL/S/6 MLT=DR LG(
CZRJDD.PY?
06-JUN=79 08:32

;FOR THE OCTAL NUMBER

IN R3

;DON'T LET IT GET T0 BIG

BCS
ASL

BCS
ADD

027656

JSR

.. CHR

8%
5%
4%

1%:

055240

4%:
5¢:

6%:

8%:

[

3%
2%
8%

MOV

MOV
MOV
RTS

’

;DIGIT 0-7
;DIGIT 8-9

;DOES A "'(R"' FOLLOW THE °'‘PERIOD"
;BR IF NOT
: INCREMENT THE RETURN
: INCREMENT THE RETURN INDEX

1STE

BNE
151
181
TST
(MP
BH1
BR
1§71
181
ADD
Mov
187

;CHECK ONE CHARACTER
; ILLEGAL CHARACTER
:CARRIAGE RETURN

.R3

(SP)+

(SP)+,R3

(SP)',RA
(RS),RS
RS

s INCREMENT THE RETURN INDEX
;s INPUT

VALUE

T00 LARGE?

;BR IF IT IS
;BR IF NOT
;s INCREMENT THE RETURN ADDRESS
:INCREMENT THE RETURN ADDRESS

;SETUP FOR PROPER RETURN
sLOAD ENTERED VALUE
sCLEAN OFF THE STAC(K
;RESTORE R3
sRESTORE

;GET RETURN ADDRESS
;RETURN

—

0180

181
182
183
184
185
186
187
10188
10189
10190
10191
10192
10193
10194
0195
0196
0197
0198
10199
10200
10201
10202
10203
10204
10205
10206
10207

055652

055660
055665
055672
055700
055703
055710
055716
055724
055732
055740
055746
055754
055762
055770
055772
056000
056006
056014
056022
056030
056036
056044
056050
056056
056064
056072
056100

10208

056102

3
&
5

056140
056146
056154
056162
056170
056176

e et

10209
10210
10211
10212

|o R

7
g
0

056110
056116
056124
056132

06-JUN-79 08:32
005015

026504
115
020122
005012
015
042524
044522
020054
041501
020105
023520
020113
044522
005015
044527
047516
050040
041440
0406440
020131
044524
026060
047101
052123
044124
043517
000012

005015

046505
030440
046505
023440

020047
051105
020114
0462526
052124
090
000001

055103

006504
052114
043514
000
052012
052123
042526
042522
020105
054047
050040
047117
042526

30A(1052)

045122

TITLE:

012
042055
006503
020117
042040
030040
04612C
044124
042130
041501
042040
030040

03-JuL-79

10:41

L 15

PAGE

(K.NUM - (HECK NUMBER (OCTAL)

LOADRV:

195

SEQ 0193

LASCID

<CRO<LF>/CIRJD=D/<CRY<LE>

LASCIZ

aMLT=DR LOCA<CRICLE><LE>
’

.ASCII

<CR><LF>/T0 TEST DRIVE

O, REPLACE

THME

°XXDP'

PACK ON DRIVE

044124
044124
0641501
042514
046505
047514
047117
005015
020104
051101
020105
040522

(40440
051105
026113
051101
051117
040503
032040

JASCILT

/WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CR><LF>

042522
020124
051120
006515

JASCIZ

/AND RESTART

054523

052123

.ASCIZ

<«CRO<LF>/SYSTEM HAS

044040
045466
051117
054130

047514
053440
042502
053522
047105

051501
046440
026131
050104

NOLOAD:

O/<(R><iLf>

THE PROGRAM/<CR><LF>

16K MEMORY,

°'XXDP' LOADER WILL BE OVERWRITTEN/<(R><L

042101
046111
047440
044522
005015

.END

CZRJDD.P1)

MACY11

(ZRJDDO, RPO&/S/6 MLT-DR LG(

CIRJDDO, RPOL/5/6 MLT-DR LGC
(IRJDD.PY1
06-JUN-79 08:32
ABNRML
ABS
=
ACK
=
ACL
=
ACTDRY
ACISTR
ACU
=
AQE
=
ASGND
ASGN1
ASGN2

026622
000200
000123
000040
033346
033347
100000
001000
053210
024302
024362

ASGNS
ASGNG6
ASGN7
ASKPAR
ASNERR
ASNLST

024562
024570
324600
054042
026514
001462

ASGNY
ASGNG

024434
024552

ASNMSG
026534
ASSIGN
024274
ATA
= 100000
ATABIT
033416
ATIN
AT0
=
AT
=
AT2
=
AT3
=
AT4
=
AT1S
=
AT6
=
AT7
=
AUTOCK
AVAIL
Al6
=
A17
=
BADENT

BADSEC
=
BAl
BEGCOD
BEGPAT
BEGSIZ
=
8170
BI1100 =
BI1T101 =
81102 =
B1103 =
81104 =
81105 =

001244
000001
000002
00000&
000010
000020
000040
000100
000200
001424
001530
000400
001000
053566

00126«
000010
001434
001432
001436
000001
000001
000002
000004
000010
000020
000040

81106 = 000100

81107 = 000200
81708 - 000400
81109 - 001000

3412
21460
22164
2180#
76240
76300

21354
20524
3306
5913
3224
5923
5937
5960
5946
5945
3150
5924
24554
6429+
5014
59114
20394
3313
7988

23164
20724
20734
20744
20754
20764
20774
20734
20794
2L08#
24654

MACYT1

mni15

30A(1052)
PAGE 197
03-4uL=79
10:41
CROSS REFERENCE TABLE =-- USER SYM80LS

SEQ 0194

63654
2189#
7925
8552+

7976
8567

8289+

8298+

8550

9772n

5912
5933
5939
59634
59654
59674
98564
6002
3262

59264
59384
5959«

5962

6020
3313e

63284
5611

5920+
5980

5965+
6068

5618
8093
6877«

5916
8472

9472

6013

6023

6042

6347

6042

6347

6429

76964

7881

3415

5618

5938

5989

5991+

5970
6074

5972+

6001+

6019+

63364

5938
8491
9474

5989
8499

6013
8626

6023

4921

3307

3324

3326

3368

3369

6273
23254

98204
5091+

5751

5763

5775

5787

24L2°#
2428
26364

6104

4625

4853

6139

7968

8215

7861

8431

8747

19704
19714

19884

19444
19344

19334
19324
19314
19304
19294
19284

8328

19274
19264
1925#

" 6109
3204
3207

6136

3678

5987
3684
6146
3974
8466
8235
3782

8446
3797

8600
4617

5333

5905

6758

7890

7959

8033

5609

L4617

7890

8167

' 8310

8631

B44o

8466

8495

8779

$18%

4754
3502
4750

4075

7786

3193
3595
3677

3488
3603
3500

3595
3606

7890
7858

8613
8598

N
B

RJODO, RPO4/5/6 MLI-DR LGC
CIRy
(IRJDD.P1Y
06-JUN=-79 08:32

817V
= 000002
B111G = 002000

MACY1Y

N 15

30A(1052)
03-4uL=-79
10:41
PAGE 198
(ROSS REFERENCE TABLE == USER SYPMB0OLS

1943
19244

3498

3621

19228

3494

3632

81113 = 020000

19214

3612

31946

81115 = 100000

6025
19194

71965
3473

B1T1Y = 004000
Bi112 = 010000
81114 = 040000

B112
B!13
BIT&4
B11S
B116
BI117

=
=
=
=
=
=

000004
000010
000020
000040
000100
000200

B119
=
BLKADR
BOUND
BPTIVEC=
BUFTBL

001000
001740
055240
000014
001616

BUSADR
BUSY
(FLAG

055242
053610
001262

8118

= 000400

1923%#
7872

192C»

€17

(178
(18
(kBUS
k(LK
CKCLKY
(KCLK2
CKCLKY
(KERR
CKFMT
CKMCE
CKSWR =

CK.CHR
(K.DEC
(k.DIG
(K.NUM
(k.0CT

(LKFLG
(Lock

001260
035040
035146
035254
035632
035654

035670

035716
035770
013156
022500
022574
022642
022672
013056
011160
011354
104407

027656
027630
02773C
055510
027602

001210
023634

CLR
= 000040
{LRDPB
025252

(LRAQUE

041600

7890

3475

3624

3629

7833

3677

7970

8004

3477

3502

6885

7992

3678

8182

8217

8010

8186

8519

8201

8213

8226

3600

3635

3641

3711

1891

6042

6584

658972

8001
3641

8393
3677

8537
3751

8653
3795

8697
6042
8456

8701
7953
8466

6757
8686

8742

8808

3772

3820

31864

3904

4010

8537

7968
8598

7970
8613

8001
8653

8004
8660

8689
8805
7965

8458

5321

7828

5183
3910

7994
4591

1935#
2499#
100624
19514
2677
4670
3097
5858
Zgggl

3627
3107
10074+

4042
5616
10089+

31854

3884

31889

4042

5948
10166

5949

5993

6016

7864

3126«
4693
100644
98234
3117

3127
4694

3128+
4706

3129+
G711

3131
4716

3132+
4717

3137
4730

3141

3143

3144

4654

4656

3421

5863+

5869

6176+

6186

6208+

6278

6288+«

6300

63162

6771

2323
8023
8025
8014
8073
8111

3024
8051»
8074n
8095#
8094
8121

3026+

3029+

10064

10066+

8172¢
8123

8181
8125

8177#

8140
8185
8183
3480
3165
5574
5586
5584
3479
3608
3611
6876
66408
66188
6231

8144
81884
8191
L1674
55724
55854
55944
5593
L1464
38494
38844
6900
6677
6640
6244

8154
B48S
82004

8165

8180

8088

8092

8103

8110

CRRE

8120

813

31849

8446

8406

6197

8217
8660

31825

8431

7953

3929

8456

8215
3504
3615
3870
3618
71
3704

19364

8328

1598

3895

)

8186
19424
19414
1940#
1939«
1938#
19374

CHGADR
cn
13
Clé
15
cle

31496

SEQ 0195

7955

10075
66008
23074
5580
19904
5950
7768

8032

10090
6648
5572+
5590

60824

8234

8063

8067

8071

8360

8645

6691

10139

10154

6257
10133«

6302

66718

5677«
58184

5688+

5797

8623

8875#

56014

75064

8079

81824

8284

8314

8483

8791

(MCNY
(meyL
(MDAT
(MHED
(MPAR
CMPARD
(MPLMT
(MPRES
(MPRT
CMPRX
(MSEC
CMSTR
(MIRK
COLON
c(om18L
CR
=

CRLF
=
CSF
=
¢su
=
CYLDER
CvLImt
DATAPK

001312
001314
013524
013430
013242
013260
001414
017616
013770
013762
001316
013352
001317
053477
001760
000015

000200
000002
000010
054746
001350
025226

DATAO
DATAY

003026
003066

DATE
DATELIS
pck
=
DCKER
DCKERYT
=
pcL
=
pcu
DDISP =
DEASGN
DEASSG
=
DE1
DFF20 =
DH1
DH14
DH1S
DH16

001220
053501
100000
007656
(010010
000100
000001
177570
024650
053140
000040
000002
047626
050004
050110
050207

DMl
DH3
DH&
DH6
=
DIGB
DISPLA
DISPLY=

047633
047710
047736
047775
000004
001142
104414

23408
231a

62N
62120

3483
3740

2392
3284

4230
6225

23624

62014

23634
5804
25084
18594

9650
9772
10009
18604
21224
21244
3891+
23564
5895
2680
2665

26/8
23114
6032
2058#
3640
36734
21814
2187#
18664

5885
3280
20294
20254
2975
5168
5177
5180
2982
2989
2996
3010
20264
22834
3520
3900
6105

6175

IANAA
4608

MACY11

B 16
30A(1052)
10:41
PAGE 199
03-JuL-79
CROSS REFERENCE TABLE =-- USER SYMBOLS
6206
G278

4209

6266

3419

1636

3465

49948

997

4271
4279

4273

7025
9680
9796
10195

9443
9689
9809
10203

9457
9728
9811
10208

9462
9734
9814

9620
9747
9818

9626
9752
98°0

9628
9761
9823

99734

6160

6250

2676

61950
6197
42328

6204
w21?

4141

4199

9847

6244
4227
(198¢
6269
4274
5809
4973

6256
6267
6215
6272
6275
9808«

4264
4280#
4270+
6276
6277+

4285%

7015

0194

4190
6228

41854
41894

3339

22974

9662

9774

10180

6986
140N
214620
3892
4852+
60674
26834
2666
2679
6030
98094

313N

6105
6854

9667
9784
10182
7025

3396

9672

9788
10185

SEQ 0196

3929+

4861

5320
6865

5374
4867

5377
614650

5380
61468¢

9120

4855+

-dw

(IRJDDO, RPOL/S/6 MLT-DR LGC
CZRUDD.P1
06-JUN=79 08:32

2667
2681
6033

2668
27004

2669

2670

2671

2672

2673

2674

2675

9991«

9992+

9993+

9994+

9995«

9996«

9997«

3655
3969
4115
4316
4456
5158

3672
3987
4118
4329
4459
5160

3744

3754

3776
4037

3816

3895+

9990+

6159

9635
9764
9826

J6u4

9768
9832

2677

36484
3964
21904

2283
59844

3056

Q764N
94114
94374
94504
96620

3003

94134

3056+
3554
3926

3064
3574
3941

96220
96274
94340

4110
4309
Li4?
5112

N
«1
4314
4450

5115

6884«
3589

3963

6112
4315
4453

5132

4006
6124

4335
6464

5166

4021

4127
63464
6465
5167

6130
4347
4488
5168

4057

6133

L4046
4494
5169

3860

3840

4087
4157
664!
4501
s\77

4068
4136
4609
4699
5172

—

c 16
10:41
PAGE 200
03-Jut =79
CROSS REFERENCE TABLE == USER SYMBOLS

CIRJODO, RPO4L/S/6 MLT-DR LGC
(ZRJOD.PYI
06=-JUN=-79 08:32

MACY11

30A(1052)

5180
5257
5304
5367

5191
5261
5309
5373

5192
5262
5312
5376

5205
3266
5319
5379

5208
52764
5323
538¢2

5214
5277
5327
5385

5220
5278
5335
5386

5227
5281
5338
5392

5244
5291
5346
539¢

5247
5293
5352
5399

000174
100000
000020
000001
007352
DFINT
033322
= 000400
DPR
DPRQS
033332
DRIVE
001242
DRIVED 042036
DRIVEY
042342
DRIVEZ2
042646
DRIVES 043152
DRIVESL
043456
DRIVES
043762
DRIVEG 044266
DRIVE7?
044572
DRNUM
053163
DROP
026544
DROPNG
053052
DRQ
= 004000

5473
22350
2000
2028#
20624
3490
7583
2032»
75964
23158
2499
2500
2501
2502
2503
2504
2505
2506
3512
3526
6352
2095#

5482
3064

5487

5497

5495

5498

5499

5508

6563

75114

DRVCLR= 000111
011126
DRVER

8490«
2211
3644

5612

DISPRE
LY
=
DLe&
=
oMD
=
DONE

DRVACT

033272

DRVINT
DRVPRM
DRVAQUE

033660
025456
041676

DRVSTA

033302

75408

7797

7800

7898«

7935

8377

8402

7941
6878+
6039
90644
90724
90804
9088#¢
90964
91044
91124

8027«
9474
90564
9916
9924
9932
9940
9948
9956
9964

8541+
9481
9909
9918
9926
9934
9942
9950
9958
9966

8592

8630

3566
63454

8380
9478
9908
9917
9925
9933
9941
9949
9957
9965
6353
6369

9910
9919
9927
9935
9943
9951
9959
9967

9911
9920
9928
9936
9944
9652
9960
9968

8128+«

8175+

8194+

8205

8220+

8509

8530

8605

3538
3580
97544

7949

8601+

38394

8607

86141

6397

6405

5448

5459

5462

5467

9572

8590

8628

8639

B647e

8429

8460

B4b7+

8480

9768#

8915#

g9sg

7963

7998

8002

8129+

8238«

8383

8391

8404

86540

B4ble

B4T73

8532

3207

5967

6136

6139

6146

75708

7824+

7839

7844

7849¢

8016

8072+«

8195

8198«

8208

8221

82023+«

82%2+«

8292

8304

3183

648

000001
000002
000004
000010
000020
000040
000100
000200
000400

8595
20864
20874
2088»
20894
2090#
2091#
2092#
20932
20944

050260

5447

8343

= 000200
= 177570
= 010000
011764
= 000200

5439

7996

DRY
DSWR
DTE
DTEER
DISY

=
=
=
=
=
=
=
=
=

5437

7937

7854+
20314
18654
2055#
3634
20684

D100
D101
D102
D103
D104
D105
D106
D107
D108

5430

5256
5300
5365
5406

78224
61234
7957

033312

033414

35954

5424

5253
5296
5356
5605

7788
5951
7944

DRVIYP

DTUW

54618

SEQ 0197

3186

5940

2976

5944

7554

2193

3204

2282

3055

7860+

7966

7778+

8239+

7779+

7780+

7781+«

7791«

7823«

7832¢

7887«

7892+«

7931

39604

76904

8610

94728

7774

8621+

8632

8695

CIRJDD0O, RPOL/S/6 MLT-DR LGC
(IRJDD.PI
06-JUN-79 08:32

L1146

050330

D11%

050352

D12
D13
D14
D16
DUNIT
DVA
=
ECBADO
ECBAD1
ECBIT
ECC
ECCx
eCt
eCC?
ECGD
ECGDY
=
ECH
EC!
=
ECMSKO
ECMSk1
ECSEC
ECWRD

050264
050302
050312
050324
001464
004000
001334
001342
001320
014370
015122
014766
015116
001332
001340
000100
004000
001324
001326
001322
001330

ECWRDY
EMPTYQ
EMIVEC=
Emi
EM10
Em1
EM12
EM13
EMig
EM1S

001336
041656
000030
045166
045460
045523
045556
045607
045%61
045704

Em22

066012
046065
046144
046212
066273
066320
045267
066355
046407
046452
046505
046562
046624
0646662

D116

gEme
EM20
1. VAl

EM23
EM24
EM25
EM26
Eme7
Em3
EM30
Em3
Em32
Em33
EM34
Em3S
Em36

Ems7
EMG
EMa0
EMe

050374

0465231
045740
045701

066713
045325
066775
047033

5173
5178
5181
2983
2990
2997
3011
24574
20204
23504
23534
23464N
3733

6652
4429
6613

c 3690
23524
20494
21634
23464
23674
23654
23484
6430

23514
8192
19544
2974

3531
3537
3511

355¢4
3565
3585
2981
3816
3672
3771

3754
3860
3900

4006
4021

2988
3840
3941
3963
3969

4068

3987
3997
3774
2995

4037
4175

MACY1Y
94864
94904
94944

D 16

PAGE 201
30A(1052)
10:461
03-JuL-79
CROSS REFERENCE TABLE -~ USER SYMBOLS

3004
94784
94814
94844
3256

94764

L4220

L4445
6457

L4360

6396+
(3804
6463
4435

6349

64631

4398

43G9

4419
6620¢

4424
L4628

L4626

4400+

5993«

4397

Lute

SEQ 0198

GLBy

L4654
Y

LLbLnN

L6140
44157
4380
43G8+
6642
4423

8237
3045
91324
91724
91794

3520

91914
3574
92054
9139«
92114
92154
92214
9230
92394

92474
92574
92624
91464

92684
92744
92814
92874
92964
9303
9309#
93154
9153
9325«
93324

4389«

L4448

4630

8329
3046

9185«

9200#

4639

6392+
4401

6637
6394
4602

64610
4603

4405

46100

6611

6422

4425

4426

&LLQ27e

4431

6632

4434y

L4636

4438

4439

46400

6651

6656

44660

8468
3067+

8539

B661

B900#

(IRJDDO, RPO4/S/6 MLT-DR LGC
CZRJDD.PWY
06-JUN-79 08:32

EMG2
EMG3
EMs4
EMLS
EML6
Ems
EMSO
EMST
Em6
EM60
ENDCMP
ENDCN
ENDCON
ENDET
ENDPAS
ENDPGM=
ENDSEK
ENDSK
ENDTST
ENTADR
ENTCOM
ENTDAT
ENTDRV
ENTID
ENTLMT
ENTPR
EoP
EOPX
EOP1
E0P2
ERCTR
ERPRC1
ERPROC
=
ERR
ERRVEC:=

047077
0647160
067225
047311
047377
045362
047451
047540
045616
047603
014244
001352
001372
001430
053106
054756
001376
001356
053122
053436
053323
055070
053350
055107
053375
005042
026650
027122
026702
026724
001306
006732
006716
040000
000004

=
Ex11
ExT10 =
ExT2
=
Ex720 =
=
ExX16
ExT40 =
FACTOR

000001
000010
000002
000020
000004
000040
015756

FAIRNS
FALPAR
FALPR1
FEN
=
FER
=
FILBUF
FMIER
FM122 =
FORMAT
fRSTER
Fl
=
Fe
=
F3

001254
007116
007126
000200
000020
016330
012160
010000
001416
001300
000002
000004
000010

4309
610%
6157

3655
5191
3002
4057
3926
3009

4087
4280

23664
2378#
26174
6388
3127
23804
23684

6396
6209
5866
9987
6177
9998
6127
31564
3413
6381
6375

5032
23384
3489
3472
20384

MACY11

93404

4170

93584
9368#
93794
91594
93884
93994
9165#
94064
63400

3032
3032+
6374

97594

3129
3034
3034
97614

30AC1052)
03-JuL-79
10:41
PAGE 202
CROSS REFERENCE TABLE == USER SYMBOLS

9350

3033
3033

6376

6379

3035
3035

6382

6385

6386
63824
6380

64625

64320

9850

99764

98024
9788«

100094
97924
10012#

97964

63740
6384
6378
6377

6383

63874

4192+
36940

£229+

4253¢

6342

4345

3476

3708
3478

4240
4609
34884

3053

3054+

3065+

5575+«

5586+

5601

10028

10029

10033

10034+

418Be

256

4/87

“wt [ &

L5317

&40

19474
10042+

10098

10099+

10101

5574
10107

4£619¢

4620

4622+

4623

4633

L6618

3382

L7498

3445
3739+

4934

4139

61400

21024
21054
2103#
21064
2104#
21074

23214

StQ 0199

3360
35364
35384

40054

3741

9851

4102

10041

GENDPB

045076

GENREG
GETADR
GETBUF
GETID
GETPAR
GETPAT
GETREG=
GETREM
GETREQ
OGNS

045116
026050
015760
025740
017410
017362
000141
(027124
041752
seteRe

= 000001
60
016456
GODRIV
GRV
= 000010
GTSWR = 104406

HCE
=
HCEER
HCl
=
HCRC
=
HCRCER
HEDLIN
H1AD
HIVEC
HOUR
Ml
=
M2

=
1AE
JAEER
IDIS
IDLE
IDLEN
=
3
=
ILF
=
ILR
INCHRD
INCMIS
INCSK]
INCSOF
INCTOT

KSR
KSR

023776
024032

LACNT

3854
5953
3343
5952
3341
3456
22184

wesees

036224
033360

4808
7989

2234
20144
3348
c027n
3091
20504
3896
21624
20514
3605
6038

100604
100614

23264
18574

23084
20534
3623
6036
3325
3403

002000
012100
053512
006270
006366
000100
000001
000002
023416
023466
023442
023372
023512

053631
001410
053301
000020
000100
036362
004000

KIPARQ:z

4562¢

000200
012236
002000
000400
010776
053534
05523¢&
055236
001266
000011
001212

INTDON
INTRVL
INVLD
JOTVEC=
=
IR
ISR
=
I1XE

2018#
2019«
3717

= 000020
= 000040

19684

F 16
PAGE 203
30A(1052)
1¢:41
03-JuL=-79
(ROSS REFERENCE TABLE == USER SYMaOLS

8597

8650

8657

89364
7510

751

3726
3999

3743
4014

3760

2803

3806

3824

6943

64408

7504

7506

4584

L7840

5831

5833+

L9420

4947

5049

4827

4843

7499

4863
8387
7500

4,883

7498

8321

3700

3785

38134
98144

3351

3886

3112+
6984
I

5800
7025
5820

5830

34014

2424

3823

3383

6549

4920
8482
7502

4958#
4912

8210

6547

8421
7501

L6514

3378
61734

4546

4533
9120#

3698

3889

6535

6531
5942«

4511y
65657
91248

62014

Sea 0200

6530

64513
4567

4510
6564
9122

3721

4563

4569

8536

7508

7509

456"

7504n
40204

10074
10089

39864
98114
3381
34214

204634

20440
3725
3931

4061

3732
1524
3843

4090

3234
23884

5901
19524
19914
7783

2132#

10024

3423
5855
8020

76494

\WoRV

Fé
£S

MACY11

~ 00
SO
Q —

CIRJDDO, RPO&L/S5/6 MLT-DR LGC
CZRJDD.PIN
06=-JUN-79 08:32

7514
7754

57634
3738
3545
3869

6161
98264

3115¢»
97844

3558
3909
6179

3868
31578
3932

«348

3908
3589
3945
5787»

57394
3657
3973

3706
3990

5825+

5836

5838

5841

9845

8263

8280+

82894
21504
58524
58614
8254n
8262+

4029

4061

4060

4072

CZRJDDO, RPOL/S5/6 MLT-DR LGC
06=-JUN=-79 08:32

CIRJDD PN
Lf

= 000012

L INDEC

001310
050626
050700
051055
051170
050657
051223
050670
022362

LINDS
L INEN3
LINEOS
LINEPS
LINED

051040
050611
051156
051145
020266

Limid

LINAY
LINB3
L INBS
L INB6

LINCA3
LINC6

LINDA3

18584
9650
9772
10009

MACY11

30A(1052)

22984

6854

7025
9680
9796
10195
4319

9443
9689
9809
10203
4321

9457
9728
9811
10208

9462
9734
9814

9620
9747
9818

9624

9752
9820

Gol8
9761
9823

9635
9764

9826

9768
9832

5260
5345

5265
5366

5287
5446

5290
5461

5292
5494

5295
5697

5299

5303

5311

5314

3553
3962

3584
3986

3654
3996

3671
4005

4020

4036

4056

3555
3970
5128#
5145
51674
3556
4039

3586
3998

6007

4022

3673

3756
4038

3778
4058

4069

4088

4106

3587

3757

3779

3818

3842

3862

4159

3674

52334
5193
952534
952724
3557

3588

3675

3758

3780
4312

1819

966¢
9774
10180
L1411
95254
95344
95574
5418
95304
95774
95324
5171
5326
9554#
95224
95704
95684
4308

020332

LINE2A
LINEZB
LINED

020502
020520
020740

LINE 3A
L INE3B
L INE 3¢C
LINE3D
L INE3E
3F
L INE

020746
020754
020766
020776
021044
021132
021414

4107
52264

021504
021604

3781
3907
5392#
56405#
54124
54184
3764
3735
3559
3915

LINES
L INESA
LINESB

LINEG
LINEGA
L INEGB
LINEG6C
LINEGD

LINE7

LINE7A
LINES
L INGO
LINKDV

LINMS

L INMS

| INN3Y

LINOCT

021676
021740
021752
021760
021766
021774
022050
022176
022316
051252
027152
050511
050754
050527
022330

SEQ 0201

7019
9672
9788
10185
4200+

LINE?2

LINEG

G 16

10:41
PAGE 204
03-JuL-79
CROSS REFERENCE TABLE ==~ USER SYMBOLS

4040

4180
4062

3801
95814
“a77
95094

9667
9784
10182
4199+

9644

95724

5220#

4108

3866

4013

3799
3832
3590
3951

4605

3656

52144

4160
3906
4028

4178
4012
5373

3829
3877
3664
3954
54548

3874
3917
37¢
3979

64643

64538

6126

4129

3753

4027

3914
3953
3745
3991

3770

3815

55344

3839

3859

3899

3925

4104

6156

4158

3901

3927
6176

3902

3943

4008

3903

31944

3672

4009

4078
+096

64094

56248

3807
4015

4048
4081
3830
4030

4328
5266

4331
5276

&334

3817

5194

4067

1841

4086

3861

53524

3950
3981
3804

4000

3978

4050

3833

4051

56308
31844
4079

3875

4097

55084

5363

n
9544

95124
117
4455

L4691

4496

6135

5243

5280

4643
5337

(YRR

5355

LINSPO
LINSS3
LINSTY
LINSY
LINSG
LINSS
LINT3
LINVO6
LINWY
LINX&
LINIOA
LINIOB
LINTOC
LINIOH
LINTIH
LIN2C
LIN2P
LIN2S
LIN3.Y
LIN3.3
LIN3.&
LINGSP
LIN6.1
LING.2
LIN’M
LIN70
LIN7P
LINZR
LIN7S
LINTT
LIN7X
LINBM

LIN9B
L INGE
LIN9G
LINON
LIN9]
LKPAR
LOADRY
=
LS
LSTAD
MAIN
MAINT
MAIN2

050553
051073
051270
052323
0523264
050737
080722
050574
050773
051111
050646
051301
050710
051005
05173%7
051773
052034
052141
052226
050410
050431
050455
021204
021316
021350
052321
022002
022024
051326
051354
051364
051461
051404
051433
051445
051476

051533
051660
051710
051562
051640
005016
055703
002000
001256

005462
005610
005730
006164
MAINS
MASK
001250
MATCH
016312
MAXCYL= 000106

5358
5293
5365
5647

5375

95162
Y5604
9584#
6115
5172
5686
5169
9541
9538«
5309
954 7#
9563
95284
95864
95364
9549#
96394
Q644N
9650N
96624
96724
9497
95004
95044
5221
5233
5319#

6049
5419
531

9590#
56482
95964
9608#
9599«
9603
96054
4608
96164
96214

M 16
30AC1052)
O03-JUL=79
10:41
PAGE 205
CROSS REFERENCE TABLE == USER SYM3O0OLS
5378

5381

6121
5205
5692

SEQ 0202

5384

5394

5398

55184

4133

4229

4332

L4464

10071

10086

5715

5720

96854

5261

5710

5698

5277

5376

5379

4447

64656

6459

1YV
56 75

‘.f

5399

5382

5670

9519«

5286#
5309«

96834
54354
444N
95944

5508

Q6114

96354
96204
96284

10185#

3125+
3437
3241
3321#
33764
36771

43604
50264
9933

3133

3709

3755

3825+

3870+

3910e

3946

3974

045

(75

&%93%

6151

9014#
9949

9015
9957

9016
9965

9017

9018

9019

9020

9204

WO
=
Poo NV 18]
~NWOOn

LINPY
LINPS
LINRG
LINSP

MACYIT1

(VR
AN IV ]

(IRJDDO, RPO&/ 5/6 MLT=-DR LGC
(IRJDD.P
06-JUN-79 08:32

9941

3229

3289#

%
.

CIRJDDO, RPO&L/S/6 MLT-DR LG(
(IRJDD.P
06-JUN-79 08:32

000114

001270
000004
033442
002010
020000
010000
005354
000400
000020
055477
MRPCS)
055466
MSE
000020
MSTCK
000010
MWR
000040
MXDLTA
033440
Mxf
= 001000
MXLACT
033436
MXWNDW
033444
M.DPID
027220
12.DP40
027256
MINUTE
MINX
=
MNOLTA
MNTBL
MOH
MOL
MONTR
MPE
MRD
MRHVE

M.DP41

M.DP&?
M.DP4&4

M.DPSO
NBA
=
NED
=z
NEDCLK
NEM
NEWASN
NEWUNT
NHS
=
NOL OAD

027312
027322
027354
027366
100000

010000
053223
004000
024640
001506
002000
056102

NOMT(H
012634
NONE
053557
NOTAVL
052605
NOTPRS
052570
NOTPRT
001426
NOTRP
052547
NOTSAF
052624
NOUSE
052403
ocvL
- 100000

3452

34564

4872

L4874

9913
9016#

9921
9911

9929
9919

9937
9927

9945
9935

9653

9943

9961
99<1

9969

9959

9967

4864

5031

5152+

6166

9015#

9908

9916

9924

9932

9940

9948

4LB28
9968
4844

5030

5099

6156+

6164

90194

9912

9920

9928

9936

9944

5029

6154

6165

9017#

9910

9918

9926

9934

9942

9950

58C5

5826+

5827

5829

4857
9956
4821
9952
4,837
9958

23274
20640

33N

337 2e

5948+

77244

25354
20964
20364

3218
1993
20664
10083

10068

21254
20654
20674

7721
19944
7718#
77274
6460
66854
6490
66496

6508
6483
2008«
1997#
5595
19964

5881

4879

5037

8723

21304

32227
—

MINTRK=

3160¢

Fkel
B n

000120

3158

6153+

19734
7708#

SEG 0203

3143

6367

20634

3141

9018«

4820
836

———r

]

MINSEC=

30AC1052)
10:41
PAGE 206
03-JuL-79
(ROSS REFERENCE TABLE -- USER SYM30LS

3140+

—

001406
000116
000112
MCLK
000002
MCPE
020000
MCPEMX
033426
MHS
001000
MINCYL= 000110
MAXER

MAXSEC
MAXTRK

2384n
5038
2387

001404

MAXDL

MACY11

8276
8263
8081
0474k
6506
64974
6501
6513«
65174
97744
59794
3293
2169¢
10208#
4234
9818«

97234
5972
5089
5970
5965

96974

21934

9720#
9853
97174
97264

(IZRJIDDO, RPO&L/S/6 MLT-DR
CZRJDD.PW
OFFCOD
OFFSET=
OFFST
OFLIN
OFMSGA
0FMSGO
OFMSGY

0fFMSG2
OFMSG3
OFMSGL
OFMSGS
0FMSG6
OFMSG7
OFMSG8

002220
000115
015360
007224
002724
002274
002327

PACK
PAR
=
PARENT
PARER
PARLST
PARQ
PAR1
PARI0

PAR1I
PAR14
PAR1S
PAR16
PAR19
PAR?

PAR20
PAR3
PARG
PARS
PARG
PAR7
PARS
PAR9
PASINT

001232
020000
011654

6034

6037

(054756
034560
001766

99874

002633

000004
000010
000001
000020
000002
000040
020000

011720

000200
001440

001216
000010
026370
012006
053744
001574
054072
054170

054177
054205
054213
054222
054230

054100

054237
054107
054116
054125
054134
054143
054152
054161
001402

SEQ 0204

3717

6547
L5460
35644
26504

26004

002363
002417
002453
002507
002543
002577

30A(1052)
10:41
PAGE 207
G3-JuUL=79
(ROSS REFERENCE TABLE == USER SYMBOLS

2592
2605#
26104
2593
2594
26254
26304
26354
26408
26454
5436

OFMSG9 002667
OfmMIBL
002240
OFREV = 000200

0fF 100 =
0F200 =
=
0f25
0F400 =
0fS0
=
0f800 =
OPE
=
OPERID
oP]
=
OPIER
OPIERY
OPRDAT
oP1
OPIBL
OR
=
ORDERG

MACY11

26154
2620

10001«

10002+

10003

10004+

10005+

10006+

39384

5147

79864

8324
5149

8542

3105
3116¢

3349
5955

3401
5979+

5852
6067

6073

6163
39684
3156
3333

6287#

3391

3431

3433

3435

3459

9925
9924
9927
9926
9929
9928

9933
9932
9935
9934
9937
9936

9941
9940
9943
9942
9945
9944

9949
9948
9951
9950
9953
9952

9957
9956
9959
9958

98624
98794
98814
98834
98854
98874
98884
9863
98904

98654
9909
9908
9911
9910
9913
9912
6394

9844
3355

9917
9916
9919
9918
9921
9920
9846

9961
9960

9965

9964

9967
9966
0969
9968

(ZRJDDO, RPO&/S576 MLT=-DR LG(
(IRJDD.PYI
06=-JUN=7G 08:32
PAY
=
PCLOCK
PDONE
PERIOD
PGE
=
PGM
=
FiP
=
PIRQ
PIRQVE=

PLU
=
POPQUE
POSER
PROCES
PRIBAD
PRYIM

PRO
PR1
PR?
PR3
PR&
PRS
PR&
PR7

PSEL
PSU
PSW

PUNSAF

000020
001206
053042
(53275
002000
001000
020000
177772
000240

1989#
23064
Q7524
97824
19954
20334
20374
18640
1958#

020000
041774
011600
006626
015130
007314

2134#
8000
3894
3410
3676
3505

= 000000
= 000040

18814
18824

5573«

21514
8051
39240
3,704
3728
3584

K 16
30AC1052)
03-yuL-79
10:41
PAGE 208
CROSS REFERENCE TABLE -- USER SYMBOLS

000140
000200
000240
000300
000340

18844
1885«
18864
1887#
1888¢

= 177776

18614
7796+

= 002000
= 000001
= 177776

5578+

8166

8494

4073

44708

19724
21774
18624

007014

PWRVEC= 000024

3172

1862
7804+

3110
7923

3172+«
7924+

3217«
7977+

3495

35104

19534

8917+

041306

88174

8876

8900+«

8915

QDRV1

041420

8829

8840

8849

88614

QDRV?2
QDRVY
QDRY4
QDRVS
QDRVE
QDRV7
QINPT

QOUTPT
QSTART

041400

8828

041440
041460
041500
041520
041540
041560
041316

8830
8831
8832
8833
8834
8835
8828#

88394
88484

041336
(041356

QSTOP
QTERM =
QUES
QVCON
GVvSEK
RANCYL
RANPAT
RANSEC

041360
041600
053277
001362
001366
016770
017236
016614

88494
8856\
6328
23714
25734
4854
4873
4«820#

RANTRK

016670

8364

RANSIZ

017102

RANWRT 017256

RANXIT 017246
001422
RATIO
= 000020
RAW

89514

5867
6756

QCNT

GDRVO

SEC 0205

18834

= 000100

=
=
=
=
=

MACY1Y1

8839

8841
8842
8843
8844
8845
8846
8902

8902+«
8882

8921
8808
G783

8848

8850
8851
8852
8853
8854
8855
§91G

8940
8887
8955

48564
4875

49124

4870

L8754

4887

<811

\4919#

4908
23994
2143

L9140
4809

9849

88604
BB62#
88634
88644
88654
88664
B867#
8920+

8953
8923

4905

5862+¢
7987

8036

5906*

8937

8951¢

8923
8955

8957

891,
8954+

8957

6571
8269+

6572+

6586+

6780

7766

77670

RESVEC= 000010

RETRY

001252

RMR
RNOP
RPADR

= 000004
- 000101
033430

RPAS
RPBA
RPCA
RPCL
RPCS!1

=
=
=
=
=

000016
000C04
0000364
000036
000000

RPCS2 = 000010

RPDA
RPDB

RPDS1

)00006
00002°2

= 000012

RPDT
=
RPECT1 =
RPEC2 =
RPERRS
RPERY =
RPERZ =
RPERY =

RPINIT
RPLA
RPMR

000026
000044
000046
033262
000014
000040
000042

033446

= 000020
- 000024

10072

10087

8312

8358

8423

8433

8448

55544

9478
3852
L5614

G481

3887

4965

5018

5072

5289

ono

8270

oD 0o

~ N

9999

o
RN}
w o

9478
8114
8730

9988
©o Oo

8684
7882
86764

7508#
-~y —
(U R0]

104413

8634
8709
87084
8700
8712#
8683
3688
3888

5044
6226

87104

4531
45304

5943
60734
3746

3808
3446

3879
34664

3919

3955

L692N

3834
3461

4031

3444
3687

5678

5684

5690

5696

5703

5708

5713

5718

5727

5802

5807

5812

$90¢2
8891

6463

7403

7453

7510#

7805

7971

7974

8037

8241

8297

8566

3658
3047+

3682+
3975+

3713«

3714
4074

3719«

4091+

3761+

4588+

3784

4600

3789«

4601

3792+
5445

3793

3826+

3871

7930

8054
8802
8499«

8074
10103
8518+

8095

8254

8291

8583

8678

8684

8688

7992

8008

8091

8133

8153

8164

8179

8190

8096+
8685

8182
8741

8201

8213
8779

8226
8803.

8235

8508+

9474

77134

7785

6044

8736

8740
8356

8772
8472+

8066
8257
7827«
8359
7786+
8311
8062

8078

8109

7833
8410

7870

8440

8477

8422+
8087

7858
7836

7881«

8777

8787
7769

3889
8506
8508
77654

8271

8625

8502¢
8102

7943

8517

8635
8055¢
8584+

8070
8731
8075
8600+

7877

7994

8424

8449

8503

8586

RESREG=

7876

6565
6184

8396

8400
8434

8503+
8504

8504+
8745

8506+

7826+

040576
040716
040722
040726
040602
022402
015404
000121
000107
015326
015332
025240
006462
006624
016114
0003
02776

8679+

SEC 0206

7507#

RD.RP1
RD.RP2
RD.RP3
RD.RP4
RD.WRD
READDR
READHD
READIN=
RECAL =
RECALT
RECALO
REDAPK
REFMT
REFMIX
RELBUF
RELSE =
REPLZ

6802
2512
2513
5867

104410
000N
000173
104411
000200
040600
040554

L 16

30A(1052)
PAGE 209
10:461
03-JuyL=-79
CROSS REFERENCE TABLE =-- USER SYMBOLS

RDCHR =
RODAT =
ROHD
=
ROLIN =
RDY
=
RD.ADR
RD.RP

MACY1T

CIRJDDO, RPO4/5/6 MLT-DR LGC
CIRJDD.P1Y
06-JUN-79 08:32

7828

7883

8773

8808

CIRJDDO, RPO&L/5/6 MLT-DR LGC
06-JUN-79 08:32
CIRJDD.PY
RPOF
=
RPSN
=
RPTMR
RPVEC
RPWC
=
RPO4
RPO4LB
RPOS
RPO6
RTC
=
RINCTR

S
SAVEFG
SAVERY
SAVERS
SAVREG=

SC
SCMND
sC1
SC10
sc1
SC12
SC13
sc2
$C20
$C3
SC&
SCS
SC6

SCoOA

=
=

SC7
SC8
SDETAL
SEARCH=
SECLMT
SECOND
=
SEEK
SEEKFG
SELDRV=
SELPAR
SETFMT=
SETUP
SETVEC
SET.JE
SHOTYP
SIXTEE
SIIMEM
=
Sk}
SKIER
SLASH
SPOTCK
SRCHWT
STACK =
START
STARTY

MATY11

30A(1052)

03-4uUL=79

CROSS REFERENCE

TABLE

10:41

mn16
PAGE

8115

8119

8139

7782

7784

7924

6548
97314
97324
9733

4566

4,786

7923%#

4259
6260

8317
4285
4296

8496
4295
4300

4299+

036710
024756
000100
001000
037526
037616
037666
000200
002200
036754
036760
036772
037162

8327

8333

83564

8414

84617

037420
037476
023034
000131
001344
001272
000105
033372
000145
(16534
000143
004202
005070
04123
023012
001274
004646
040000
012420
054066
020130
033344
001100
004122
004140

8447
8435

6256
5810

000032
000030
040026
033432
000002
034266
052654
052661
052666
000117
015302

050550
033370
001302
001304
104412

037272

774640

95154
8168

76438

SEQ 0207

8143

7509#

7765

7926

7986

8465

8479

8486

8501

8543

8457
8441

LINYE
8450

8478

84804

8513

5821+

5822

5824+

3159

31654
8035

8240

8364

8801#

5818+

5820

31897

3938

3960

6453

7377

210

== USER SYMBOLS

84874
85024
8514

56624

8018
4804Ln

7961
56494

9860#

31813
8093
3109
5600
3247

3857

849

50628

8200

8290

8553

8769

C(ZRJDDO, RPO&/S/6 MLT-DR LGC
(IRJDD."N
06-JUN=-79 08:32

TABLE2
TABLED

054402

054450

86614
8642

30A(1052)
03-JUL=-79
CROSS REFERENCE TABLE == USER SYMBOLS

3427

3429+

5840

4372

6765

4773

8638
8593

8625#

8636

B64LSH

8644

6029

4242

6470

6392
3089

19164
19064
19054
1904
19034
19024
19014
19004
18994
18984
18974
1915#
18964
18954
18942
18934
18924

4805

5893

3481
3170

4189

5033

6365
5239

22824

—

5893
22364
3501

8218
3055

5175
6969
(323

5107

5110

6879

3546

56474

6242

6470

5272

3443

95114

8652
8330
3063+«
6969
6774
7182

3425

1907

9728#
5296
98974
9908#
99164
99244
99324

SEQ 0208

30314

8646
839
3057
4805
6584
6774

8626
8170

)

000176
007166
000001
000001
000002
000004
000010
000020
000040
000i00
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
052634
05052¢
054246
054266
054334

86394
8606
86474
86554

)

SWREG
SWTIM
sw0
=
=
Sw00
Sw01
=
=
sw02
sw03
=
Sw04
=
SWw0S
=
=
sSw06
Sw07?
=
Sw08 =
sw09
=
SWi
=
swi10
=
Swil
=
swi2
=
=
sw13
swi4
=
=
SWw15
=
Swl
sw3
=
SWé
=
=
SWS
=
swé
Sw?
=
SwB8
=
Sw9
=
SYSTAT
1
TABLE
TABLED
TABLE!

4364
85814
8633
8591

040442
040450
040506
040536
040546
0641116
001140

060416

3028
3023#
9734n
3104+
L6178
5609«

—t

S105
SY06
s107
S108
S109
SVRHI1
SWR

S$103

3025
2243
5653
2309
3408
3430
18634
26644
8560
85904
8589
8627
8587
8629
8631
8654

O OO OOOO0O
o [am I R e
o OO =W
N

004150
004106
052673
001214
015614
022702
177774
002762
040120
040150
040348

—

START?
STARTS
STATHD
STATIN
STATIS
STATPR
STKLMY=
STNDAY
S10
STON
S102

MACY11

I
PAGE 211
'0:41

5500

6392

8659
8188
3089
5033
6879
7195

86634
8437
3170
5107
6885

8455
3425
5110
6892

8498
3441
5175
6897

8538
3443
5239
7182

8599
3481
5272

7219+

8662
3546
5474

87694
4189

5500

CIRJDDO, RPO4L/5/6 MLT-DR LGC
CIRJDD.P1
06-JUN-79 08:32
TABLEG
TABLES
TABLEG
TABLE?
TAP
=
181TvE=
10
10F
=
TIMER

054516
054564
056632
054700
0460000
000014
036426
000040
033374

TITLE
055652
TKVEC = 000060

TPVEC =
TRAPVE=
TRE
=
TRFER

000064
000034
040000
012320

TRKLMT
TRK1
=
TRK10 =
TRK2
=
TRK20 =
TRk&
=
TRNSWT
TRTIVEC=
TSTPGM
TUf
=

001346
004000
040000
010000
100000
020000
033342
000014
034264
000100

TYPE

104401

TYPDS

104405

9901
9902
9903
9904
20974
19494
8294
21264
76274
8643

MACY11

99484

995¢4
99644

83034
21440
7896+

8649+

101804
6755+

3047+
60364

104404
104403

TYPRIG

027526

UCPAR
ULDFLG

UNiT
UNLOAD=
=
JNS
UNSAF
UNTASN
UNTMSG
UNTNOT
UNTO?F
UNTON

007104
033350

001246
060103
040000
012554
052521
052450
052477
052456
052467

8030+
8655¢

8173«

8219+

8306+

8419+

8463

8515

8523¢

8556

8309«

8594

8609

8622+

319

8558¢

8616+

7210

3195
3510
3572
5729
6052
6291
6388
6809
6932
7221

3199
3512
5595
5804
6056
6311
6397
6820
6937
7498#

3201
3518
5670
5809
6062
6328
6403
6824
6939

6756+
3048+

3068+

6153

6243

8052+

8197+

8207

8224+

8308

3027+

3030+

3073

3076

7911#

6390
3078
3210
3531
5680
5866
6134
6335

75024
3084

3150
3216
3537
5692
6032

3174
3231
3538
5698
6033
6177
6351
6769
6840
7162

3182
3280
3564
5710
6037
6209
6353
6778
6887

3189
3300
3565
5715
6038
6215
6360
6779
6895

6046

6131

6180

6212

6357

6400

8471«

8489

8602+

21454

6834

TYPON =
TYPOS =

SeaQ 0209

99404

6411

(022764
TYPEST
TYPOC = 104402

1
¢
30A(1052)
10:41
PAGE 212
03-9UL-79
CRUSS REFERENCE TABLE =-- USER SYM8OLS

3212
3536
5686
5901
6142
6337
6426
6835
6989

6950
10068
56344

10071

2303

3515

5652

65714

6947

7500#

35304
7825+
3470+

6017

6543
6837

7086
10083

6412

7194

10086

7197

5720
6049

6273
6387
6786
6915

74994

10070

3541

3569

7933

7948+

8130+

8193+

8225+

8385

8469

3513

3539

3567

5170

6391«

6398

6406

7196

40864

97134
6329
6019
5974
97074

6144
6350

3306
3566

97048
97094
9705#

9987

CIR2DDO, RPD4L/5/6 MLT=DR LGC
CZRIDD.P
06-JUN-79 08:32
uPt
USE
us1
use
usé¢
UWR
VUF
vu30
Vv

= 020000
052326
= 000001
= 000002
= 000004
= 000010
= 000002
= 010000
= 000100

WALT
wAO
=
Wl
w(E
=
WCF
=
WCFER
wikd
=
WCKER
WCKHD =
WCSEL
wiu
=
WLE
=
WLEER
WRL
=
WRIDAT=
WRTHD =
wRTPK
WRIPK1
WRTPK2
WR1PK3
WRTPKSG
WRT.AD
WRT.RP

001552
000002
036602
040000
000040
012456
000151
010450
000153
001420
000001
004000
012132
004000
000161
000163
017634
017664
020044
020070
020122
041020
040730

WRT.R1
WRT.R2
WRI1.R3
WRT.RG
WRT.RS
WRT.WD
WRL
=
=
wSL

041014
041100
0641106
041112
(041114
041016
000400
000004

001276
001134
001122
$8DDAT
001126
00024
$80St
001160
$BELL
= 000006
$8UF
IRCIND

SAUTOB
$BDADR

$CHARC
$CKSWR
$CMTAG
scm3
=
SCNTLC
$CNTLG
SCNTLU

031346
032024
001100
000000
030620

032433
032426

MACY11

1
D
30A(1052)
03-4UL=79
10:41
PAGE 213
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0210

96894

3376

3395

8069
8439

8077
8476

8086
87234

8090

8101

8108

8118

8132

8189

8065
8409

8752

8758#

8738«

9481

4201«

4258«
7280

4262

6217
5109
3379«
8974N
7001

9028
6906
LN

6193

4620

4698

4704

4709

6713

6752

5188

5336

7017+

70224

3038

3051

3272

3321

3365

83374
L0674

2508
3670
2509

4880
21394

37514
4899

9848

39964

2510
2511
50094
5013
50424
5041
5051#
8736+
7873

8163
8756
8755#
8743
87604
87614
8728
21474
21614

3093+

7506

6829
7193
7210

9481
8061

$COMND
= 000002
SCRLF
001165

$CyL

= 000012

$0BLK
$0B2D
$0B20
$DECVL
$DOAGN
$DRV1D=
$OSPLY
$OTBL
SENDAD
SERFLG
SERMAX
SERROR
SERRP(
SERRTB
SERRTY
SERTTL
SESCAP=
$SFAIR =
SFILLC
S$FILLS
$FIRST=
A
t 11
$GDADR
$GDDAT

$GET42

$GTSWR
$SHARD
$HD
$HINUM
$1CNT
$INTAG
SITEMB
SLF

$LK(SB
SLKCSR
$LKS
SLLVEC
SLONUM
SLPADR
SLPERR
SLPVEC
$LSTAD
SMAIL =

032014
032660
033054
033040
005456
000224
027554
032004
005446
001103
001115
030626
001116
004026
030776
001112
[2Z XX X |

000072
001156
001155
00012°
000001
001120
001124
005432
032074
0000¢2
000000
032560
001104
001135
001114
001166
001176
001174
001202

001204
032562
001106
001110
001200
055232
X |
[ X2XA

000066
032451

1
E
10:41
PAGE 214
30A(1052)
03-JuL-79
CROSS REFERENCE TABLE -- USER SYMBOLS

6210
5047+
L5647
3212
6136
5208
5448
6337
6915
L5640

3668
4981
6511
2294n
6124

5167
56406
6183
6895
3691+
8347
7128

5457
6745

4268
6103
6565
3216
6315
5227
5472

6350
6934
4635

5473
6351
6939
4756

6756

4928

6499

8351
3564
4501
5346
5799

89714
3572
5112
5367

4962

4976+

8339
3518

4347
5266

64792

4750
89854

6411
7221
5023«

5044

4335
5247

4629
8349+
6105+

5493
6360
6943

4973+

Sea 0211

4465

4484

3510

4625
8341
5048+
3530
4453
5281
5499
6387
6990

4390

6112

3536

5304
5651
6403
7025

8350+
3544
5327
5729

71704
5670

5685

5490

5677

5683

5689

5695

6191+

6192

6193¢

6194+

6195

90284

9032

6891

6906

6921

8975

8976

8977

4930
O (N
—
O Ny
—

$COCt = 000024

MACY11

(S RV ¥
N
— -

CIRJDDO, RPO4/S5/6 MLT-DR LGC
CIRJOD.P
06-JUN-79 08:32

6056

6769

6062
6778

5024

5031«

5256

6166+

6728

73774

8978

8979

6426

7131

2251
22654
22714
3045
22724
29694
6894
22694
8363
3347+
22904
22894
6149+
3717+
22734
22754
32394
6783
5723

6906

6890+

6906
8416
3362+
7025

1827
3049+

22660
22804
22704
22954
23024
2301#
23044
23054

3384

90004

8753

8961

8971

8972

8973

8974

5598
7504
5755+

10112

7297

7305

7310«

7315#

7303

7309+

7280

6906
6906

8694

89964

6918
7025

5583+
5592+

6440
5579
10063
3089
5725

72784

7296

8998¢

73164

64118

5165
5399
6144
6834

7379

32470
6039
65844

4971«

8983

CIRJDDO, RPO&/5/6 MLT-DR LGC
CZRJDD.PWY
06-JUN-79 08:32

MACY11

7194

72764
4816+
9007
4868+

SMSUR
032440
$NCODE= 000074
SNCYL
SNEXT
SNPATC
S$NSEC
SNTRK
SNULL
SNWRDL
=
$OCNT
$OCTVL
$OMODE
SOPERC=
$PACK =
$PASS
$PASSC=
SPATT(=
$POS1T=
$PREVA=

000100
000104
000075
000076
000077
00115¢4
000102
031574
033156
031576
000036
000026
001100
000070
000030
000042
000032

$PREVO=
$PSEL =
$QUES
SRAND
$SROCHR
$RDDEC=

000027
000003
001164
032462
032306
|248884

030330
tRNCERTY

000001
000052
000014
$RESRE
SRETRY
$SRPADR
$RPAS
SRPBA

032622
015466
001170
000252
0002«0

SRPCA
$RPCC

000270
000272
000234

$RPCS1

$RP(CS2=
SRPDA
$RPDB
$RPDS1
SRPDT

000244
000242
000256
000246
000262

$RPEC1= 000300
SRPE(2= 000302

$RPER1= 000250
SRPER2= 000274
$RPER3- 000276

34550

9006

3447
3327
3457
34500
3449¢
22884
3451

7058+
746440
7053+
4790+

3329
22634
5671

4764

6637+
4792

8347+

6959+

89724
2293

4804
72534
7509

67974
7509
72740
4633
6094
9099
7351»

3659
22994
9039#
6172
9490
4635
3447
3473
9038
9051
3578
5022
5357
3477
3684
3648
3652
9115
3603
371
6152
364!

3458«

6913«
4832¢
(8487
6996
3456
7087+
74654
7057+
4791

3353

5954
6974
4638+
6962+

8348w
5017«

6837
4886
7507

30A(1052)

F
o1
10:41
PAGE 215
TABLE -- USER SYMBOLS

03-JuL-79

CROSS REFERENCE

5298

5302

5310

9098

5664
89864

6416

89904

B999#
8988#
6382
4968

6385
5019+

89914
5020+

9010#

LB74r

4888t

4901

70£2
5010
3389

7065+
5072
5014

7076+
5455
5040

6389
5050+

6394
6106+

6624
6107+

5488

5294

71024
5483
5957«

609¢

4967¢

5021+

9009#

5051

L4795
6966+

9005

4978

4931

L4794
4963«
89894
5142

90044

4977

4930
9014

71004

4972

4960

4907
9010

9007
7025
4871

4937

4892
9009
90084
(984
9005#
9006#

4869
9Co8
6976
6914y
4974
4975%

SEQ 0212

8346+

8987«

7025

7240
5009

9058

6376
9059

8993
9067

9074

9075

9082

9083

9090

9091

9114

6379
9066
9115

3827

3872

31912

3948

3976

4046

6076

4092

(5840

4602

6906
4904

4946

72924

7508
4634+
8978#
9106
7510

3762
3098

9490
<380

5023
3691
3475

5668

9107
9484

10067

10100

10102

4611

4432

4472

4492

4619

5189

5242

5342

5353

5354

90348

5279
3892

90464
6564
4959
9041
9074

9494
4968
5017
9042
9082
3864
5562

5021
5136
9043
9090

5068
8346
9044
9098
4010
90354

5286
9032«
9045

5313
9033
9046

90478
9034
9047

9494
9035
9048

9036
9049

9037
9050

6042

4148

90364

9486

9037w
6115
5393
6059

9486

7865+
90504
6099

90434
9486
9051#

9490
9059

9067

907¢

9083

9091

9099

9107

3612
3795

3615
3797

3618
3849

3621
3884

6150

3624

3627
4595

3632
4598

3638
9038#

3678
9486

3709

146

4614

9040
9066
3772
5325
9490
3629
6086
4396
5397

3606
3751

3609
3782

903¢
9058
3635

5275

90414

3600

4853
3650

9486
9048#
6154

9486
90494

3820
5558

9486

3604
5567

9106
4025
9490

9114

9486

CIRJIDDO, RPO4L/S/6 MLT-DR LGC
CIRJDD.PVY
06-JUN-79 08:32
$RPLA - 002564
SRPP”
V00260

Vlg

L« PSN
SRPVE(
SRPW(
$R2A
$SAVRE
$5B82D
$5820
$SEC
=
$SETUP=
$S112t
$SK1
=
$S0FT =

000266
000264
001172
000236
(A ARAR

032564
030066
030116
000010
000146
055136
000064
000060
000022
177777
027466
000224
122000

000016

000032
023536
001146
030146
001144
030176
000001
$TNPWR
032770
$TOTAL= 000056
$1PB
001152
$TPFLG
001157
$TPS
001150
$TRANS= 000046
$TRAP
033174
$TRAP?
033216
$TRK
000011
$TRP
000015
$TRPAD

033230

001102
$TSTNM
STTYIN
030606
$TYPBN= seRERSE
$TYPDS
$(YPE
$STYPEC
$STYPEX
$1YPOC
$TYPON
$TYPOS
$WRDL -

90404

904624

90454
9044N

2300#

L167
511
73354
4407
5519
3690+

30144
3124

MACYT1

30A(1052)
10:41
PAGE 216
03-JuL-79
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0213

9490
9490
9494
9494

3099

6195

7509
5535
674630
4198
3044

100264

5724
5741
3694
89844

56458
2254
1827
6892
3471
4535
5649
5865

3233
5905+
67654
1827
7385
5721
7014

6972

7012
4624+
74754
7497
4561
76994
75124
74974

6884
6800
7502

6587

7000
7020
7499
70584
7500
3694
4705

8986

4381

4474

5186

5245

5359

9033

9490

5672

5702

5707

5712

5717

5726

5801

5806

5811

67°.4

4562¢

3045

4758
3047

4963

4975

3051

5022+
3086

5030+
6876

5264
6900

6164+

8348

89754

5765
5743

89974

4204

5767
89954

4208

4209

4384

6676

4980+

4983

5042+

5046

5362

6111

5466

5647

5486

5491

5536

65554

1831
6897

1832

1833

1834

2292

3051

6868

6869

6870

6871

6872

9494

3595

3701

3704

3721

3049

6902

[ANg

7280

6901
3494
4585

6906
3496
4591

3333

3504
89794

5864
6757

6881
7175

7186

7203

7257

7263

6772+

6782+

6784+

7175

7184

7200

7224+

7255

7261

5791+

6367

89944

4631«

4632¢

5463

5027

5029+

5259

89764
7504

75054

7506

7507#

75084

7509#

75108

7512
6906
6812

6835

6849

69724
7007

7490
7012¢#

7498
7013

6169
714

4194
475%

6473

4631

L6064

4666

4667

46689

3488

4569

57974
5904
€7554

6758+
74054

5789
7025
7025
7025

75004

70234

7501#

7502#

7501

3695

6710

8987

8988

8989

4382
L4G7 7
8990

5057+
8991

5185

8992

5360
8994

6108+
8995

8983#
8996

8984
8997

CZRJDDO, RPO&L/S5/6 MLT-DR LGC

CIZRJDD.PIY

$WRDM = 000004
$OFILL
031575

$LOCAT=

seveee

= 056177

06-JUN-79 08:32
8698
3695+

7052+
6894
22504

MACY11

30A(1052)

8999
3696+

9000

9004

7066

71014

2234H
3357
3633

2262/
33¢7
3636
7175
8868
90894

7056+

71704

88674
90834
91244

O03-JuUL=79

CROSS REFERENCE
4978+

9976

TABLE

10:41

1
PAGE 217

SEQ 0214

-- USER SYM8OLS

&979+

5028+

5039+

6109+

8973«

2249
3387
3639
7280
90574
9090

22508
3393
3642
762560
9058
90918

22524
3596
6612
74650
90594
9097¢

2254N
3604
6503
7512
90654
9098

2296
3610
68564
88614
90674
91054

100164

25334
3613
6880
88624
90734

9106

25834
3616
6903
88634
9074
9107#

26564
3619
6906
88644
90754
91134

3042
3622
69534
88654

9081#
9114

CIRJDDO, RPO4/5/6 MLT=-DR LGC
CIZRJDD.PYY
06-JUN-79 08:32
5746

5758

5770

18174
1817«
1817«

6677
6230
10075

6691
6243
10090

10139

10154

18534
1%

8363

8413
8413

SWRSU
TRMIRP
TYPBIN

TYPDEC
TYPNAM
TYPNUM
TYPOCS

TYPOCT

TYPTXT

$SCMRE
SECMIM
$SESCA
SONEWT
$$SET
$8SK]P
.EQUAT
.HEADE
KT
.SETUP
. SWRH]

.SWRLO
JBACTH
.SAPIB
LOAPTH
LOAFPTY

9126
oY]
74904
1
¥
1YJ
1
14
14
18

2255#
2255#4
1
1Y
74904
»
1#
14
1Y
14
14

1817#
14
1
14

2449

7028
9130

19594
7512
1959#
1959«
1959«
1959
19594
19594
1959«

19594
19594
7499
1959«
18174
18174

2658

2662

7506

2006
3014

2010
3021

7245

7507

7508

7509

7510

7511

2201
3249

2247
5098

2257
5102

2296
5540

2359

5544

2363
6858
7524

2422
6864
8962

3567

5605

6044

6129

6330

6355

6398

6406

7509

7510

7511

7283

1964

7504

7356
7336

1960

7502

73N
7292

-—

7501

6275
6201

2645

6957

19594

7500
3036

6116
6082

SLASH
SPACE
STARS

19594
7499
19594
19594
19594

5093
5062

N
WO
NN
O
O Wi

SETIRA
SETUP
SK1P

1854#
4
74904
¥
i
14
19594
14

4301
4292

7366

7106
9978

7174
10020

3176
6921

3301
6945

SCOPE
SETPR]

1
1
1»
1Y
1%
19

10109

10032
19594

3539

7500

7501

7502

7504

7506

7507

7508

1836

1838

1840

1845

1847

1848

3051#

—un

MuLT
NEWTST
POP
PUSH
REPORT
RPO4.D

19594
19594
1817#
2297
1959#
19594
19594
1959#
19594
7516

8693
8694

O —

i
¥
22554

6302

~ W

GETPR]
GETSWR
MORETA

ERROR
ESCAPE

1959#
19594
6877
8363

SEQ 0215

5782

1849
1818
~a LN

"
19
68624
75164

COMMEN
ENDCOM
ERENTR
ERRCAL

6902

oo
O
S eny
—
(VLIV NP

(KCHR
(kD1G
CKNUM

1
l
30A(1052)
10:41
PAGE 219
03-JuL=-79
CROSS REFERENCE TABLE =-- MACRO NAMES

5734

S733#

68624

AUTOM

MACY11

7429

7669

7514

2426

6909
8966

CIRJDDO, RPO&L/S5/6 MLY-DR LGC

CIRJDD.PIY
JSASTA

S$CATC
“$CMTA
.$DB2D
.$0B20

.$D1V
-SEOP

-$ERRO
.SERRT
-sMuLT

-$POWE
-SRAND
.SRDDE
-$RDOC
SREAD
.SR2AZ
.$SAVE
.$5B2D
.$5820

.$5C0P

.$S12¢E

06-JUN-79 08:32

1w
1w
W
W

18170
18170
1B\7H
18178

2228
2255
7364
7627

18
%

18170
18178

6862
6907

%
Y
14

¥
18174
1%
¥
1%
w1817
9
1w
8174
Y
1%

7172

18174

10018

W
1

18178

7467
7104
6955
7026

.$SUPR

.$1YPD
.STYPE
-$1YPO

1w
1w
1w

18174
18174
18178

056177

000

-S$TRAP
.$T1YPB
.$40CA
1170

ABS.

MACY11

"
¥

ERRORS DETECTED:

7281

30A(1052)

03-JuL=79

10:41

PAGE 220
CROSS REFERENCE TABLE == MACRO NAMES

7318

SAIL:CZRJDD.BIN,CZRJDD.LST/CRF/SOL/NL:TOC:MD:MC:CND/LI:ME=CZRJDD.SML,CZRJDD.O1Y,CZRIDD.PI]
RUN-TIME: 73 104 8 SECONDS
RUN-TIME RATIO: 452/186-2.4
(99 PAGES)
50k
(ORE USED:

SEQ 0216