Digital PDFs

AH-9197E-MC

April 1982

224 pages

Original

118MB

view download

OCR Version

165MB

view download

Document:	CZRJDE0 RP04,RP05,RP06 RP04-5-6 MLT-DR LGC APR 1982 bw
Order Number:	AH-9197E-MC
Revision:	000
Pages:	224
Original Filename:	CZRJDE0__RP04,RP05,RP06__RP04-5-6_MLT-DR_LGC__AH-9197E-MC__APR_1982_gray.pdf

OCR Text

RP04/5/6 MLT-DR LGC

CZRJDEO

AH-9197E-MC

APR 1962

TAr

FICHE 1 OF 2 reanuvea @BBBI@M

RPO4

RP05.RP0O6

RP04/5/6 MLT-DR LGC

CZRJDEO

AH-9197E-MC

APR 1982

Aan

FICHE 2 OF 2 wmoeanuen ELHMEBD

CZRJDEO RPO4L/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 1
-REM

SEQ 0001

IDENTIFICATION
PRODUCT CODE:

AC-9195E-MC

PRODUCT NAME:

CZRJDEO

PRODUCT DATE:

NOVEMBER 1981

MAINTAINER:

CX DIAGNOSTIC GROUP

RP0&4/5/6 MULTI-DRIVE LOGIC TEST

AUTHOR:
REVISED BY:

MIKE LEAVITT

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD = NOT
BE _ CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT
3?'@{*{“" OF ITS

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT
IS NOT SUPPLIED BY

3.5

3.6
3.7
3.8
4.

4.2

36
38

4.3

39
40
41

4.4

4
“

RESTARTING THE PROGRAM
PR OGRAM CONTROL

PAS%/TEST TERMINATION
«3.1 PASS TERMINATION
.5.2 TEST TERMINATION
RUN_TIME
g.b.‘l
DATA TRANSFER MODE
.6.2 SEEK VERIFICATION MODE
UNIBUS & VECTOR ADDRESSES
DUAL PORT OPERATION

DATE & OPERATOR IDENTIFICATION

PARAMETERS
4.2.1

PROGRAM CONTROL PARAMETERS

4.2.3

PARAMETERS FOR THE FIRST OPERATION

4%
50

KEYBOARD COMMANDS
4.4.1
°'T' COMMAND
4.4.5
4.4.3
4.4.4

‘D' COMMAND
'S' COMMAND
‘W' COMMAND

4.4.6

GENERAL COMMAND INFORMATION

°'R'

COMMAND

PERFORMANCE SUMMARY TYPEOUT
5.1
5.2

51
g%

PERIPHERIAL DEVICE ADDRESSES

SWITCH REGISTER SETTINGS

4.4.5

LOADING THE PROGRAM
STARTING THE PROGRAM

4.5.

PROGRAMMABLE DRIVES

CONTROLLING THE PROGRAM

4.1

MEDIA

OPERATING THE PROGRAM
§ 1
g

EQUIPMENT

.i PRELIMINARY PROGRAMS

REVISION HISTORY
ABSTRACT

REQUIREMENTS

e T

INTRODUCTION
1.1
1.2

gg
g‘l

CONTENTS

QNS R

IR P S

gNOMbWNQBOONO\R&W-'OMWU!bW_.

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 2

PERFORMANCE SUMMARY TYPEOUT EXPLANATION
HARD/SOFT ERROR DEFINITIONS

5.2.1
5.2.2

HARD ERRORS
SOFT ERRORS

DATA CHECKING & ERROR RECOVERY
6.1

6.2

DATA BUFFER COMPARISON

VERIFICATION OF DATA WRITTEN

SEQ 0002

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 2-1
;3
20
61

6. 3
6.4
7.

2‘50

SECTOR REFORMATTING
BAD TRACK/SECTOR FLAGGING

ERROR MESSAGES

7 ERROR DESCRIPTION LINES
7.2

DETAIL ERROR LINES

PROGRAM DESCRIPTION

8.1

HOW THE PROGRAM OPERATES

8.4

DATA PATTERNS

8.2

DUAL PORT OPERA TION

8.§ HOWVARIABLES ARE SELECTED FOR EACH OPERATION

RP/RH DRIVER DOCUMENT

10.

PROGRAM LISTING

SEQ 0003

INTRODUCTION

1.1

REVISION HISTORY

2. MODIFY STARTING ADDRESSES TO SAFEGUARD DRIVES IN MULTIPROCESSOR ENVIRONMENT.

SEE PARAGRAPH 2.4 BELOW.

3. MODIFY CODE IN "°CLEAR DRIVE PARAMETER BLOCK'®' SUBROUTINE

TR Y

(CLRDPB) TO PREVENT CLEARING LOCATION SRPDT.

YOI Y

4. MODIFY CODE IN 'DRIVE INITIALIZATION'' ROUTINE (DRVINT)

TO STORE DRIVE TYPE IN APPROPRIATE DRIVE PARAMETER BLOCK.

5. INSTALL XON/XOFF FIXES FOR HIGH TERMINALS AND THE DIANA
BOX USED BY REMOTE DIAGNOSTICS (RD). (REV E)

SEEYBURUKLEIRVENRUNES VO NN

SEQ 0004

1. CHANGE TITLE FROM CZRJDCOTO CZRJDDO

WN = OO0V
W -

CZRJDED RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3

1.2

ABSTRACT

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 RH11 OR AN RH70.
IN

ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES ON THE
SUBSYSTEM, THE PROGRAM IS INTENDED TO BE USED TO VERIFY THAT THE
DRIVES UNDER TEST ARE PERFORMING TO THEIR DATA ERROR RATE AND SEEK
ERROR RATE SPECIFICATIONS.

THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM WILL EXERCISE DRIVES CONNECTED

AS EITHER SINGLE OR DUAL PORT UNITS.
DUAL PORT DRIVES ARE TESTED
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING 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.
THEREFORE, USE STARTING ADDRESS
204 OR 220 FOR DUAL PORT TESTING.
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 CHECK OPERATION).
OPERATIONS AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA
TRANSFER RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED.

THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM.

IF A

DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES,

THAT DRIVE IS AUTOMATICALLY DEASSIGNED.
(THE OPERATOR MAY OVERRIDE
THE _AUTOMATIC DEASSIGNMENT FEATURE.)
THE PROGRAM REPORTS PERFORMANCE

STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR.

ALL DATA TRANSFER COMMANDS ARE USED (I.E.,

WRITE DATA, WRITE HEADER

€ DATA, READ DATA, AND READ HEADER & DATAS AS WELL AS WRITE CHECK
DATA AND WRITE CHECK HEADER & DATA COMMANDS. RECALIBRATE AND

READ-IN PRESET COMMANDS ARE USED AT STARTUP AND DRIVE INITIALIZATION.
RECALIBRATE,
OFFSET, AND RETURN-TO-CENTERLINE COMMANDS ARE USED

DURING ERROR PROCESSING.

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-1
58
§9

WRITE CHECK COMMANDS.,

COMMAND .

PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD; DYNAMIC

ARE REPORTED ON THE TELETYPE.

ALL COMMANDS,

NN ~
oy ~
2SI N~ ~=~

TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY.

PROGRAM OPTIONS ARE SELECTED BY SWITCH REGISTER SETTINGS.

—

1
}

RRAR S8 S8RV RGN 2SRRI

DATA PATTERNS

ERRORS

DATA BUFFER SIZES ARE SELECTED

RANDOMLY BY THE PROGRAM. Aéomomuv THE ADDRESSES (EG, CYLINDER,

THE WRITE CHECK COMMANDS ARE USED TO VERIFY

RGNS o 3R

1
}

SEQ 0005

A PREVIOUS WRITE OPERATION.
THUS, WHEN A WRITE COMMAND IS SELECTED,
THE DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK

‘8

;

THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE

€0

61
6§

1
1
1

REQUIREMENTS

2.1

EQUIPMENT
REQUIRED

PDP=-11 PROCESSOR
}gff?sgg“ (20K IF THE PROGRAM IS INCLUDED IN AN *XXDP' CHAIN
PROGRAM LOADING DEVICE

KW1l=L OR KW11=-P CLOCK
RH11 OR RH70 WITH 1 RP0O4, RPO5, OR RP06 DISK DRIVE
OPTIONAL

ADDITIONAL MEMORY TO
A MAXIMUM OF 28K
1 70 7 ADDITIONAL RP04/5/6'S ON THE SAME RH11 OR RH70

2.2

MEDIA
THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED BY THE EXERCISER.
%SK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE R
/5{6EF0RMTTER
OGRAM (DZRJB) OR BY THE ‘W' COMMAND OF THE RP04/5/6 MULTIDR
EXERCISER (SEE SECTION 4.4).
THE PACKS MUST BE FORMATTED IN 22
SECTOR (16 BIT) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE IS

NOT SUPPORTED.
2.3

PRELIMINARY PROGRAMS
RP04/5/6 DISKLESS CONTROLLER TEST

PARY 1 (CZRJG)
T 2 (CZRJH)

RP04/5/6 FUNCTIONAL CONTROLLER TEST
PART 1 (CZRJI)

6
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-2

SEQ 0006

RP04/5/6 DUAL CONTROLLER LOGIC TEST (FOR DUAL PORT DRIVE TESTING)
PART 1 (CZRJE)
PART 2 (CZRJF)

2.4

PROGRAMMABLE DRIVES (DUAL PORT ENABLED)
THIS REV INCORPORATES A SAFEGUARD TO PREVENY INADVERTENT

CORRUPTION OF DISK PACKS IN PROGRAMMABLEDRIVES.

THIS IS 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 INITIALIZING DRIVES

FOUND TO BE PROGRAMMABLE.
THIS MODIFICATION APPLIES
ONLY TO THE FIELD ENVIRONMENT (XXDP CHAIN, STANDALONE)
WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46.
FOR THE
MANUFACTURING ENVIRONMENT (WHERE LOCATION 42 EQUALS LOCATION 46) PR
DRIVES WILL MT BE INHIBITED.
IF THE OPERATOR DESIRES TO RUN THIS gs
PROGRAMABLE RIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220. WHERE

THE SAME
AS
SEE SECTIW

200 WITHOUT INHIBITING PROGRAMMABLE DRIVES.
.2,5.3 FOR A SUMMARY OF ALL STARTING ADDRESSES.

OPERATING THE PROGRAM

3.1

THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR

IT MAY BE_LOADED FROM THE APPROPRIATE ‘XXDP®'

MEDIA USING THE ASSOCIATED

LOADER.
THE PROGRAM MAY BE INCLUDED IN AN °XXDP' CHAIN.
IF THE
PROGRAM IS 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 TO PRESERVE THE 'XXDP' LOADER.
PRESERVED IN A 16K SYSTEM, HOWEVER.

THE °"ABSOLUTE' LOADER WILL BE

3.2

THE PROGRAM STARTS AT LOCATION 200(8).
PARAMETERS NOT INCLWED IN
THE TELETYPE DIAGLOGUE GROUP MUST BE CHANGED BEFORE THEPROGRAM
IS STARTED. PROGRAMMABLE DRIVES ARE INHIBITED STANDALONE AND
XXDP CHAIN-SEE SEC 2.4.

3.3

START THE PROGRAM AT LOCATION 204(8) IF THE RH11 OR THE RH70 IS
NOT AT ADDRESS 176700. (NO INHIBITIONS)

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

3.4

ONCE THE PROGRAM IS LOADED AND STARTED,

OPERATIONS ARE INITIATED AND

CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS.
IF THIS IS 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 BE INHIBITED BY SETTING Sw<02>.

3.5

PASS/TEST TERMINATION

A PASS IS DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED.

THE

NUMBER OF BITS OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER

220 IS

SEQ 0007

THE SOFT ERROR RATE SPECIFICATION
THE SEEK ERROR RATE SPECIFICATION.
THE SPECIFICATIONS FOR RPO4°'S, RPO5'S,
AND RP06°'S SPECIFY NO MORE

THAN 1 SOFT ERROR (NON-PACK RELATED) iN 1 X_10*9 BITS READ OR NO

MORE THAN 1 SEEK ERROR IN 1 X 106 SEEK
THE NUMBER OF BITS OR
SEEKS DETERMINING A PASS UERE SELECTED TO PROVIDE A 90X CONFIDENCE
LEVEL THAT THE DRIVE IS 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'.

B.
3.5.2

IF PMTER 'ENDET' IS 1, END OF PASS OCCURS WHEN THE DRIVE

HAS READ 1.875 X 108 WORDS (3 X 109 BITS).
IF PARAMETER *ENDET' IS 0, END OF PASS OCCURS WHEN THE DRIVE
HAS PFRFORMED 3 X 106 SEEKS.

TEST TERMINATION
THE TEST FOR A DRIVE IS TERMINATED (SW<04> = 0) WHEN:
A.

3.6

THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN
PARAMETER ‘PASCNT'.
THE TOTAL ERRORS ACCUMULATED EXCEED 100.

A FATAL ERROR OCCURS: EM12 OR EM14.

RUN TIME
THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES.

—

NN
-2

S8R R R RS 2 8RR R RIT 2SIV

—.-‘-.-.-l—l—lzd-‘—ld-.—.—.-l—l—ld—l-‘-ldd—.d—l

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-3

THE MODE 1S

DETERMINED BY THE VALUE IN PARAMETER °'MAXDL'.
IF °"MAXDL' IS ONE
SECTOR, THE PROGRAM RUNS IN A SEEK HEAVY MODE; IF "MAXDL®' APPROACHES
ONE TRACK IN SIZE (5720 DECIMAL) THE PROGRAM RUNS IN A DATA TRANSFER

=S OVRNOWNSWNNO

3.6.1

DATA TRANSFER MODE

1 gGIVE = APPROXIMATELY 2.5 HRS (TO REACH 1.875 X 108 WORDS)

8 DRIVES = APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 X 10*8 WORDS)
NOTE:

IF SW<01>
= 1 (NO SOFTWARE DATA COMPARSIONS), THE RUN TIMES

ARE THE FOLLOUING VALUES, APPROXIMATELY:

1 DRIVE = 1.7 HRS (1.875 X 10*8 WORDS READ)
ADD 1/2 HOUR FOR EACH ADDITIONAL DRIVE TESTED.
IF _THE PROGRAM IS RUN WITH BOTH SW<00> AND SW<01>
SET, THE RUN TIMES SHOULD BE ABOUT 20X FASTER.

INSIASAS LN LS LS TS N LN LS NS DN

HEAVY MODE.
THEPROGRAM RUN TIME VARIES GREATLY DEPENDING ON
THE OPERATION MODE SELECTED, THE MEMORY AVAILABLE OVER 16K THE
READ/WRITE RATIO PARAMETER - 'RATIO®, AND BY SWITCHES 0, 1, & 2.

222

NOTE:

3.6.2

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

SEEK VERIFICATION MODE
PARAMETER 'MAXDL' = 1 SECTOR (256 WORDS)

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-4

SEQ 0008

PARAMETER 'MAXTRK' = "MINTRK'
PARAMETER "MAXSEC' = "MINSEC'

SW<00> = 1 (READ ONLY MODE)

1 DIT%VE = APPROXIMATELY 25 HRS (3 X 106 SEEKS)

8 DRIVES = APPROXIMATELY 40 HRS (3 X 106 SEEKS FOR ALL DRIVES)

3.7

UNIBUS & VECTOR ADDRESSES
THE PROGRAM ASSUMES TKE FOLLOWING UNIBUS AND VECTOR ADDRESSES.

(REFER

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

3.8

RH11 OR RH70

176700

254

TTY PRINTER

177564

NOT USED

TTY KEYBOARD

177560

KWil=L

177546

100

KW11=pP

172542

104

DUAL PORT OPERATION

B.
C.
D.

%%‘c’egg&gm"s“ MULTIDRIVE EXERCISER PROGRAM INTO BOTH

SWITCH THE "CONTROLLER SELECT® SWITCH TO 'A/B' ON EACH DRIVE

WHICH IS TO BE TESTED AS A DUAL PORT DRIVE:

CYCLE THE DRIVES

uP.
START THE PROGRAM IN EACH PROCESSOR.
RUN THE PROGRAM AS THROUGH
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER.
PROGRAMMABLE (DUAL PORT) OPERATION IS INHIBITED WITH STARTING ADDRESS 200-SEE SE
THEREFORE, USE STARTING ADDRESS 204 OR 220 FOR DUAL PORT TESTING.

CONTROLLING THE PROGRAM
THE _FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY
ROUTINES IN THE PROGRAM:
A.

TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE
A

'RUBOUT' ('RO').

FROM THE INPUT.

TYPING A "RO" WILL DELETE SUCESSIVE CHARACTERS

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

('*U%).

AN ENTRY MUST BE TERMINATED BY EITHER A 'CARRIAGE RETURN' OR

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-5

SEQ 0009
-

286

A 'PERIOD'.

ACCEPT THE ENTERED VALUE AMD WILL DEFAULT TO THE PRELOADED VALIES
FOR ANY REMAINING ENTRIES.

228‘

ggg

4.1

297
298
299
300
301
302
303

DATE ©& OPERATOR IDENTIFICATION

IDENTIFICATION MAY BE ENTERED.

BOTH THE DATE AND THE OPERATOR 1.D.

WILL BE TYPED WHEN THE 'SA' COMMAND IS PERFORMED (SEE SECTION 4.4.3).
4.2

PARAMETERS

WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILL BE

b b e d b e bl ek

309

ASKED TO ENTER PARAMETERS.

THE FOLLOWING MESSAGE WILL BE DISPLAYED:

ENTER PARAMETERS:

5
6
7

THE OPERATOR MUST ENTER A _'Y' TERMINATED BY A CARRIAGE RETURN <CR>
IF PARAMETER ENTRIES ARE TO BE MADE.
ANY OTHER CHARACTER IS ACCEPTED
AS
A 'NO* ENTRY.
THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME
GIVEN BELOW, DISPLAY THE CURRENT VALUE OF THE PARAMETER AND

ENTRY IS NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED.

WAIT FOR THE ENTRY.

) =

NN N NN NN N NN NN

IF
A "CONTROL C' IS TYPED DURINGKEYBOARD ENTRY, THE

WILL RETURN TO THE BEGINNINSG OF THE GROUP BEING ENTERED.

WHEN THE PROGRAM IS INITIALLY STARTED. IT WILL ASK FOR DATE AND
OPERATOR I.D. ENTRIES. (THE REQUEST FOR THESE ENTRIES OCCURS
ONLY WHEN THE PROGRAM IS FIRST STARTED AND WILL NOT APPEAR WHEN
THE PROGRAM IS RESTARTED.) THESE ENTRIES ARE OPTIONAL AND MAY
BE BYPASSED BY ENTERING A *CARRIAGE RETURN® IN RESPONSE TO THE
REQUEST. THE PROGRAM DOES NOT EDIT OR CHECK EITHER ENTRY. UP TO
8 CHARACTERS OF DATE INFORMATION AND UP TO 6 CHARACTERS OF OPERATOR

gg‘
302

ggg

THE 'PERIOD' TERMINATION IS RECOGNIZED BY THE

PROGRM AS
A DEFAULT ENTRY REQUEST. WHEN A LINE IS TERMINATED
BY
A 'PERIOD' INSTEAD OF A 'CARRIAGE RETURN', THE PROGRAM WILL

233

287

3%}

323
g%g

4.2.1

THE PROGRAM WILL TYPE *INVALID ENTRY' IF THE

KEYBOARD ENTRY PARAMETERS

DEFAULT
VALUE

VALUE
RANGE

NAME

BASE

328
329
gg(’)

MAXDL

(SEE NOTE)

PASCNT

1-999

332
333

INTRVL

0 - 256

334

335

336
337
338

339

340
341

342

FUNCTION

CONTROLS THE MAXIMUM BUFFER
SIZE USED FOR DATA TRANSFERS
lTAEgER OF PASSES TO END OF
DETERMINES THE INTERVAL (IN
MINUTES) BETWEEN AUTOMATIC

PERFORMANCE SUMMARY TYPEOUTS

CMPLMT
WCSEL

10
8

3
000000

0 = "MAXDL'
OOR 1

ERRORS PRINTED OUT IF SW<07>=0

THE NUMBER OF _DATA_COMPARSION
IF PARAMETER
= 0, TlE DATA

TRANSFER WORD COUNT IS RANDOMLY

SELECTED BETWEEN 4 (10) AND
THE VALUE IN "MAXDL®.
IF PARAMETER
= 1, THE DATA

TRANSFER WORD COUNT WILL

VOO NS WN = O VNN
W

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-6

SEQ@ 0010

ENDET

000001

OOR 1

FORMAT

000001

OOR1

BE THE VALUE IN *MAXDL*

F PARAMETER = " END OF PASS
g

ET Elrlfll'fb BY THE
"WORDS READ'
C OUN
1 F PARAMETER = 0, END OF PASS
Og
1
gEEEgHINED B8Y THE NUMBER

IF_PARAMETER = 0; DO NOT

PERFORM WRITE HEADER G DATA
ORDERS; IF PARAMETER
> 0,

PERFORM WRITE HEADER & DATA
RATIO

000003

0-7

ORDERS

CONTROLS THE APPROXIMATE

&;&gsor READ TO WRITE

AUTOCK

000001

0 OR 1

R/W RATIO

NOWVSWN=O

VJW\N\# SEEESRERSE
S RRER AR

VALUE

IF PARAMETER = 1, THE PROGRAM

PERFORM WRITE CHECKS AFTER

EACH WRITE commo
IF PARAMETER
= 0, THE

WILL PERFORM mfe CHECKS

NOTPRT

000001

0OR1

OMLY.
IF PARAMETER = 1, DO NOT PRINT
ERROR MESSAGES FOR DATA ERRORS
OCCURING AT LOCATIONS DEF INED
BY THE OPERATOR AS BAD PACK
LOCATION.
IF PARAMETER
= 0, PRINT ERROR

MESSAGES ASSOCIATED WITH BAD

PACK LOCATIONS.

NOTE:

THE PROGRAM WILL SELECT A MAXIMUM BUFFER SIZE WHICH

IS DETERMINED BY THE MEMORY AVAILABLE.
THE MAXIMUM BUFFER
SIZE ASSIGNED BY THE PROGRAM IS 5980(10) WORDS.
THE
OPERATOR MAY SPECIFIY ANY OTHER MAXIMUM SIZE AS I.MG AS THE
VALUE SPECIFIED IS AT LEAST & WORDS BUT NO LARGER THAN
THE INITIAL VALUE OF 'MAXDL' DETERMINED BY THE PROGRAM.

4.2.2

PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF

INTEREST

TO ALTER THESE LOCATIONS, THE OPERATOR MUST MAKE MANUAL ENTRIES

BEFORE THE PROGRAM IS STARTED.
THE KEYBOARD ENTRY ROUTINE DOES
NOT PROVIDE ACCESS TO THESE LOCATIONS.

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-7

SEQ@ 0011

LocC

TAG

CONTENTS

FUNCTION

1144

$TKS

177560

TTY KEYBOARD STATUS REGISTER

1146
1150
1152
1174
1176
1200
1202
1204
1212

$TK8
$TPS
$TPB
SLKCSR
SLKCSB
SLPVEC
$LKS
SLLVEC
HZ

177562
177564
177566
172540
172542
104
177546
100
74

TTY KEYBOARD BUFFER REGISTER
TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
ADDRESS OF KW11-P STATUS REGISTER
ADDRESS OF KW11=P COUNTER BUFFER
KW11=P VECTOR ADDRESS
ADDRESS OF KW11-L STATUS REGISTER
KW11=L VECTOR ADDRESS
764 (60 DECIMAL) IF SYSTEM IS 60 HWZ;
62 (50 DECIMAL) IF SYSTEM IS 50 HZ.

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

IS STARTED FROM LOCATION 204(8) OR IF THE PROGRAM DOES NOT RECEIVE

A RESPONSE WHEN IT ACCESSES THE DEFAULT RH11<RH70 ADDRESS.
4.2.3

PARAMETERS FOR THE FIRST OPERATION
THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION (IN

ADDITION TO THE °"MINIMUM' ADDRESS VALUES).

Loc

TAG

1412

BEGPAT

1414

BEGCOD

INITIAL

VALUE
10

VALUE

RANGE
1=-15

0-5

FUNCTION
THE CODE FOR THE STARTING

PATTERN.

(IF A WRITE ORDER

OR A WRITE CHECK ORDER IS
SPECIFIED IN °*BEGCOD')

THE INITIAL COMMAND FOR EACH DRIVE

EXERCISED.

0 = WRITE
1 = WRITE
i = WRITE
= WRITE

CHECK DATA

CHECK HEADER & DATA
DAT
HEADER € DATA

& = READ DAT

1416
4.3

BEGSIZ

404

4 = MAXDL

5 = READ HEADER € DATA
THE BUFFER SIZE FOR THE FIRST
DATA TRANSFER OPERATION.

SWITCH REGISTER SETTINGS

SW <15>
SW<13>
SW <10>
SW <>
SW<6>
W<

= 1
=1
= 1
=1
=1
=1

SW <>

HALT ON ERROR
INHIBIT ERROR TYPEOUT
RING THE TELETYPE BELL IF ERROR
DISPLAY ALL DATA COMPARE ERRORS
DO NOT ALTER THE CURRENT OPERATION PARAMETERS
PARTIAL REGISTER DISPLAY IF ERROR; DO NOT DISPLAY
ECC CORRECTION RESULTS
INHIBIT MAXIMUM ERROR COUNT CHECK: DO NOT DEASSIGN
DRIVES WHEN NORMAL END OF TEST REACHED.
DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS)
IF *DCK*,
*DTE', OR 'WCF' ERRORS OR AFTER THE 28TH

RETRY IF UNCORRECTABLE 'DCK' ERROR.

———————

———

SEQ 0012 |

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-8

(l): gaTAECWME ERRORS & SW<7> SET, DISPLAY REST

458

SW<2»>

SW<1>
SW<0>

=1
=1

INHIBIT SUBSYSTEM STATUS TYPEOUT DWING STARTUP.
INHIBIT PERFORMANCE SUMMARY TYPEOUTS
INHIBIT DATA COMPARSION AFTER READ ORDERS
READ ONLY MODE

IF _THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34)

THE PROGRAM WILL DEYEMI'E THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE
A °SOFTWARE' SWITCH REGISTER.
THE

'SOFTWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE 'SOFTWARE® SWITCHES ARE CONTROLLED THROUGH A KE YBOARD

ROUTINE WHICH IS CALLED BY TYPING A °CONTROL G'.

THE PROGRAM WILL

RECOGNIZE THE *CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM IS
IN KEYBOARD ENTRY MODE, OR IS AT A HIGHER PRIORITY PROCESSING AN
RP04/5/6 INTERRUPT.
THE ‘'SOFTWARE® SWITCH VALUES ARE ENTERED
egrav g&%*mm IN RESPONSE TO THE PROMPT FROM THE SWITCH
'SWR = NNNNNN

NEVW =*

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., °*RUBOUT'
‘CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE °'SOFTWARE® SWITCH
REGISTER MAY BE USED.

THE PROGRAM FINDS ALL 16 SWITCHES IN THE

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE

;gO;BmSEDREGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
4.4

KEYBOARD COMMANDS
THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN DRIVES
FOR TEST ('T' COMMAND), WRITE AND CHECK DATA PACKS (‘W' 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 FOLLOWING MESSAGE
WILL BE TYPED:

'PROGRAM INITIALIZATION COMPLETE
‘TYPE A CONTROL C TO ENTER COMMANDS'
KEYBOARD ENTRIES WILL NOT BE RECOGNIZED UNTIL THE OPERATOR TYPES

A 'CONTROL C'.
WHEN THEPROGRAM SEES A "CONTROL C' ENTRY, IT WILL
SUSPEND THE SCHEDULING OF FURTHER DEVICE OPERATIONS AND WAIT UNTIL
ALL OUTSTANDING ORDERS HAVE TERMINATED.

THE PROGRAM WILL ENTER

COMMAND ENTRY MODE AND TYPE THE FOLLOWING PROMPTING MESSAGE:
'HH:MM:SS

'ENTER COMMANDS:'

THE PROGRAM WILL THEN ACCEPT ANY OF

THE VALID COMMANDS.

AT THE

COMPLETION OF A COMMAND, THE PROGRAM WILL EXIT COMMAND MODE; THE

SEQ 0013 |

nN=O

—d

d i

FEL
N NN
m\a\naw&m&&ammmxw\flmmmmmwmmwmw
NN
NV ¥ 3
BEIFARUKZS oowombw-agR eleENT.

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:77 PAGE 3-9

543

OPERATOR MUST TYPE ANOTHER *CONTROL C' TO RETURN THE
PROGRAM TO
COMMAND MODE.
IF THE COMMAND ENTERED SPECIFIED AN ‘A’
DRIVE NUMBER, THE PROGRAM WILL REMAIN IN COMMAND MODE UNTIL ALL

AVAILABLE DRIVES WAVE BEEN PROCESSED.
THE T,

'W',

AND "R’ COMMANDS REQUIRE ADDRESS LIMITS, DRIVE I.D,

AND BAD LOCATION ADDRESS ENTRIES FOR THE DRIVE BEING REFERENCED.

WEESfi?GRM WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING
'ENTER ADDRESS LIMITS FOR DRV #N / RP0O4'

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

NAME

BASE

MINCYL
MAXCYL
MINTRK

10
10
10

MINSEC
MAXSEC

10
10

MAXTR

NCTE:

2.
3.

DEFAULT

VALUE

RANGE

FUNCTION

(SEE NOTE)
(SEE NOTE)
0-18

0
21

0-21
0-21

V00NN

WA -

VAWV
AW
Vi

THE MINIMUM CYLINDER ADDRESS
THE MAXIMUM CYLINDER ADDRESS
THE MINIMUM TRACK ADDRESS

0-18

THE MAXIMUM TRACK ADDRESS

THE MINIMUM SECTOR ADDRESS
THE MAXIMUM SECTOR ADDRESS

THE ADDRESS LIMITS ARE IN DECIMAL

THE MAXIMUM VALUES OF "MINCYL' AND °"MAXCYL® WILL BE EITHER

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

THE MINIMUM CYLINDER, TRACK, OR SECTOR ADDRESS MAY BE

SPECIFIED AS BEING LARGER THAN THE MAXIMUM ADDRESS.
THESE VALUES ARE INVERTED,

SEEEETFEXEE

(OR RPO5 OR RP06)

THE PROGRAM WILL SELECT

WHEN

ADDRESSES BETWEEN THE °'MIN' ADDRESS AND THE UPPER
cles.léc?h I'.'I‘I:,IJ FOR THAT ADDRESS AND BETWEEN '0°' AND THE

EACH COMMAND,

EXCEPT THE 'S' AND THE °'D' COMMANDS, WILL ASK FOR

A DRIVE IDENTIFICATION ENTRY.

THE DRIVE IDENTIFICATION ENTRY

REQUEST IS MADE BY THE FOLLOWING MESSAGE:

'ENTER 1.D. FOR DRV #N:"*
THE OPERATOR MAY ENTER AN 1.D. NUMBER FOR THE DRIVE OF UP TO 6
CHARACTERS IN LENGTH.
THIS I1.D. WILL BE DISPLAYED, ALONG WITH THE
DATE AND OPERATOR I.D. ENTRIES (SEE SECTION 4.1), WHEN THE °‘SA’
COMMAND IS EXECUTED.
THE OPERATOR MAY ENTER ANY CHARACTER 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 KNOWN BAD SPOTS ON
THE DISK PACK USED, UP TO 16 ADDRESSES MAY BE ENTERED:

'‘BAD TRK/SEC ADRS FOR DRV #N ?°

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 3-18 2

SEQ@ 0014

7
7
g;‘

THE OPERATOR MAY DECLARE UP TO 16 BAD LOCATIONS ON THE PACK BEING
USED.
THE LOCATION MAY BE AN E
NTIRE CYLINDER, A BAD TRACK, OR A SINGLE

g;z

FORMAT 1:

§77
578

THE PROGRAM WILL INMIBIT DATA ERROR MESSAGES OR WILL
IDENTIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED ADDRESS,

gg?

LEADING ZEROS ARE NOT REQUIRED.

ggg

FORMAT 2:

584
585
586

SECTOR.

THE FORMATS USED ARE
AS FOLLOW:

5§79

ggg

C.T.S<CR>

DEPENDING ON THE VALUE OF PARAMETER °'NOTPRT®.
C.T<CR>

WHEN TH.S FORMAT IS USED, THE ENTIRE TRACK WILL BE
CONSIDERED BAD DATA ERRORS WILL BE HANDLED AS IN
"FORMAT 1',
ABOVE.

B. LEADING zefiosARE NOT REQUIRED.

ggg

FORMAT 3:

C<CR>

591

WHEN THIS FORMAT IS USED,

593
ggg

"FORMAT 1° ABOVE.
LEADING ZEROS ARE NOT REQUIRED.

592

THE ENTIRE CYLINDER WILL

BE CONSIDERED BAD: DATA ERRORS WILL BE HANDLED AS IN

ggg

NOTE:

598
599
23?

THE OPERATOR MAY TERMINATE THE BAD ADDRESS ENTRY BY ENTERING A
'PERIOD' IN RESPONSE TO THE ENTRY REQUEST OR BY TERMINATING AN ENTRY
WITH A "PERIOD' INSTEAD OF A 'CARRIAGE RETURN'.

28%

4.4.1

CYLINDER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL.

'T' COMMAND

604
605

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

283

FORMAT:

610

N = DRIVE NUMBER.

289

COMMANDS OR SUPPORT COMMANDS.

611

VOO
NS W

d ek =
ed =
—

MAY BE 0 TO 7 OR "A'.

TERMINIATED BY A CARRIAGE RETURN <CR>.

612

gg?

TN<CR>

EXAMPLE:
NOTE:

4.4.2

ENTRY MUST BE

TO<CR> = ASSIGN DRIVE 0 FOR TEST

TASCR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST

DRIVE OPERATION BEGINS IMMEDIATELY
AFTER COMMAND IS ENTERED.

'D"' COMMAND

gs%

USED TO DEASSIGN A DRIVE(S) BEING EXERCISED.

ggg

FORMAT:

626
627

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

DN<CR>

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO VO04.00 5-NOV=-81 09:16:17 PAGE 3-1%
628

9
630
2%1

EXAMPLE:

NOTES:

634

SEQ 0015

DO<CR> = DEASSIGN DRIVE 0
DA<CR> = DEASSIGN ALL DRIVES BEING
TESTED.

1. IF THE °'D' COMMAND REFERENCES A

DRIVE NOT ASSIGNED THE PROGRAM

ggg

WILL TYPEOUT °'?DRIVE NOT ASSIGNED®

637
2%3

2. THE DRIVES WILL BE DEASSIGNED AS THEIR
OPERATIONS COMPLETE.

640
641
642
643

3. IF 'DA' IS USED, ONLY DRIVES BEING
TESTED WILL BE DEASSIGNED - THE
ERROR MESSAGE IN (1) ABOVE WILL NOT
BE DISPLAYED.

644
645
&9

4.4.3

'S" COMMAND

648

USED TO REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED

gg}

FORMAT:

653
gglso

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

656
657
ggg

EXAMPLE:

660

NOTES:

‘633

DRIVE(S).

225

663
664
665

SN<CR>

SO<CR> = TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0
SA<CR> = TYPEOUT PERFORMANCE SUMMARY
FOR ALL DRIVES BEING TESTED.

1. IF °"SA' IS USED ONLY DRIVES BEING TESTED WILL
BE DISPLAYED.

IF PARAMETER 'INTRVL' IS NOT ZERO, THE PROGRAM
WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMARY
FOR_EACH DRIVE BEING TESTED AT A RATE DETERMINED BY

229

"INTRVL'.

668
669

IF THE 'SA' COMMAND IS USED, THE PROGRAM WILL TYPEOUT
THE OPERATOR ENTERED DATE, OPERATOR I.D., AND THE DRIVE

670
g;}

g;z

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

4.4.4

"W' COMMAND

675
2;9

USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM.

g;g

FORMAT: WN<CR>

680

N = DRIVE NUMBER.

683
684

EXAMPLE:

235

MAY BE 0 TO 7 OR "A'.

TERMINATED BY A CARRIAGE RETURN <CR>.

ENTRY MUST BE

WA<CR> = WRITE DATA PACKS ON ALL AVAILABLE DRIVES.
WO<CR> = GENERATE A DATA PACK ON DRIVE 0.

D
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-12

NOTES:

687
688

SEQ@ 0016

DATA PACKS GENERATED BY THE RP04/5/6 FORMATTER PROGRAM

(MD=11=CZRJB) OR _BY THE RP04/5/6 MECHANICAL & READ/WRITE
PROGRAM (HD-11-CZRJA)i7ngTZZO ARE ACCEPTABLE.
(PACKS

689

WRITTEN BY TESTS 1

gg?

AND MUST BE aeunxrrén )

1 OF *CZRJA® CANNOT BE USED

692

THE 'W' COMMAND SHOULD NOT BE USED UNLESS °*MAXDL®
PARAMETER 1S APPROXIMATELY 1 TRACK IN SIZE - 5000 (10).
IF THE BUFFER SIZE IS MUCH LESS THAN 1 TRACK, THE
TIME REQUIRED TO WRITE A DATA PACK IS TOO GREAT TO
BE PRACTICAL.

698
699
700
701

THE 'W' COMMAND PERFORMS A SEQUENTIAL WRITE OF THE
PACK USING A "WRITE DATA' COMMAND.
THE DATA PATTERN
USED FOR EACH WRITE IS SELECTED RANDOMLY.
HOWEVER,
THE OPERATION OF THE COMMAND IS SEQUENTIAL, aecxnnxne

693
694
695
239

702

AT 'HINCVL' "MINTRK® AND CONTINUING TO °‘MAXCYL'

;82

"MAXTRK *

705

THE 'W' COMMAND DOES NOT WRITE HEADERS AND ASSUMES

708
709
710
;}5

THE 'W' COMMAND CANNOT BE STARTED IF SWITCH O (READ
ONLY MODE) IS SET.
IF SWITCH O SET SET DURING THE
OPERATION OF THE ‘W' COMMAND, THE DRIVE PERFORMING THE
'W' COMMAND WILL IGNORE THE SWITCH.

713
71%
715
716
;}g

THE DATA WRITTEN IS VERIFIED BY A "WRITE CHECK DATA®
COMMAND.

;89

4.4.5

THAT THE FORMAT OF THE PACK IS GOOD.

"R' COMMAND

;%3

USED TO PERFORM A SEGUENTIAL READ OF THE PACK.

;g}

FORMAT: RN<CR>

723
;%g

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

726
;Sg

EXAMPLE:

729

NOTES:

;gg

732
733

;gg

736
;gg

RA<CR> = READ THE PACKS ON ALL OF THE ONLINE DRIVES.
RO<CR> = READ THE PACK ON DRIVE 0.
THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA

READ.

HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL.

THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS
SPECIFIED BY 'MINCYL', 'MINTRK' TO THE ADDRESS SPECIFIED

BY 'MAXCYL', "MAXTRK'.
4.4.6

THE READ WILL BE SEQUENTIAL.

GENERAL COMMAND INFORMATION

;%3

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

741

IF THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV<-81 09:16:17 PAGE 3-15
;2

SEQ@ 0017

"INVALID COMMAND'.

744
'7’22

DRIVES ASSIGNED (WITH THE 'T' COMMAND) OR DEASSIGNED (WITH THE
‘D' COMMAND) MAY BE ENTERED IN ANY SEQUENCE.

;‘z;

THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS

749

RESPONSE

751
752
753
754
755
756
;gg

COMMAND (S)

2UNIT N OFFLINE
2UNIT N NOT ASSIGNED
?UNIT N ALREADY ASSIGNED
2UNIT N NOT PRESENT
2UNIT N UNSAFE
PUNIT N NOT AN RP04/5/6

.
.
T.
T.
T,

W,
S
W,
W,
W,
T, W,

R
R
R
R
R

759

761

;g%

764
765

5.1

766

767

PERFORMANCE SUMMARY TYPEOUT
THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES

BEING EXERCISED.

THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY

IF THE PARAMETER °'INTRVL®' IS NOT ZERO OR CAN BE DISPLAYED ON

768

REQUEST BY THE OPERATOR THROUGH THE USE OF THE °'S' COMMAND.

;93

THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS:

144

'DRV'

772
773
774
775

'PASS*
'ORDERS*
'SEEKS'
'WRDS XFER'

776

'WRDS READ'

777
778

'SOFT"*
'HARD*

779

'SK1’

780
;g;.

'MISP*
'OTHER'

783
;gg

NOTE:

THE DRIVE NUMBER

THE
THE
THE
THE

PRESENT PASS COUNT FOR THE DRIVE
NUMBER OF ORDERS PERFORMED BY THE DRIVE
NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED
TOTAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE

THE TOTAL NUMBER OF WORDS READ BY THE DRIVE

THE NUMBER OF SOFT DATA ERRORS
THE NUMBER OF 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, EM5, & EM10 ARE NOT INCLUDED IN
THE 'OTHER' ERROR TOTAL.

;gg

5.2

SOFT/HARD ERROR DEF INITIONS

;gg

5.2.1

HARD ERRORS

790
474
792
793
794
7732
797
798

A 'DTE' (DRIVE TIMING ERROR) OR A °*DCK' (DATA CHECK ERROR)
WHICH OCCURS DURING A READ DATA OR A REAL 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 EQUENCE IS 16 RE-READS AT TRACK CENTER AND 2 ATTEMPTS
AT EACH OF THE FOLLOWING OFFSETS:
RP04/5
c——mee

RPO6
———

F
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-14

-0 VN
VS WN=O

R 2000 02000902000002

SEQ@ 0018

+400 MICRO-INCHES
=400 MICRO-INCHES
+800 MICRO-INCHES
=800 MICRO-INCHES
+1200 MICRO-INCHES
=1200 MICRO-INCHES

ZR3ERRaR28

799

5.2.2

+200 MICRO-INCHES
=200 MICRO-INCHES
+400 MICRO-INCHES
=400 MICRO-INCHES
+800 MICRO-INCHES
=800 MICRO-INCHES

SOFT ERRORS
A.

ECC CORRECTABLE

RETRY OR WHICH ARE READ CORRECTLY DURING RETR
HEADER READ ERRORS = READ DATA, READ HEADER l DATA, OR
WRITE DATA ORDERS.

°'DCK® ERRORS.

°'DCK' & "ECH' ERRORS WHICH BECOME ECC CORRECTABLE DURING

'DTE' ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE
'DCK* ERROR DURING THE RETRY SEQUENCE.

DATA CHECKING & ERROR RECOVERY
6.1

DATA COMPARISON
DATA COMPARISON OCCURS AFTER EACH °"RDDAT' (READ DATA) OR °"RDHD'
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS:

832

6.2

THE ORDER TERMINATED WITH NO ERROR.

THE OPERATION TERMINATED WITH °'DCK' SET AND THE ERROR
IS ECC_CORRECTABLE OR THE SECTOR IN ERROR IS READ
CORRECTLY AFTER RETRY ATTEMPTS.

VERIFICATION OF DATA WRITTEN
AFTER EACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED WITH THE
APPROPRIATE WRITE CHECK COMMAND
- IF PARAMETER *AUTOCK' lS 1.
(IF "AUTOCK' IS O, WRITE CHECKS WILL BE PERFORMED RANDOMLY.)

6.3

SECTOR REFORMATTING
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.

DATA CHECK ERRORS = EM21

DRIVE TIMING ERRORS- EM3{

D.
E.

850

6.4

HEADER READ ERRORS = EM20,

EM24, EM25, EM26, EM27

OPERATION INCOMPLETE ERRORS = gnsz
WRITE CHECK ERRORS = EM22, EM2

BAD TRACK/SECTOR FLAGGING

SINCE THE RPO4 SUBSYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRACK
HANDL ING CAPABILTXY THE MULTI DRI v E EXERCISER ALLOWS THE OPERATOR
TO IDENTIFY UPTO 8°BAD TRACK/ SEC T Of'lLOCATIONS WHEN THE DRIVE IS
ASSIGNED FOR TEST
(SEE SECTI ON o 4.1
FOR ADDITIONAL INFORMATION.)

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-1? 2

SEQ@ 0019

IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY
EREOgPERATOR. THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT
DATA CHECK ERRORS ('DCK')
WRITE CHECK ERRORS (°'WCE')
OPERATION INCOMPLETE ERRORS (°OPI')
DRIVE TIMING ERRORS (°'DTE")
HEADER READ ERRORS (°'FER' & 'HCRC',

"HCE' & "HCRC',

"HCRC')

OPTIONALLY, THE OPERATOR MAY REOUEST AN ERROR REPORT FOR FLAGGED
AREAS.
(PARAMETER 'NOTPRT' MUST BE
SET TO 0 AT STARTUP.)
THE

PROGRAM WILL IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE PACK; THESE
szSORS
WILL NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE

ERROR MESSAGES
DRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (IF AVAILABLE)
A

LINE PRINTER.

ALL ERROR CONDITIONS ARE REPORTED IN ERROR HESSAGES

THE PROGRAM CONTAINS NO CODED ERRCR HALTS.
IF THE PROGRAM HALTS
(ASSUMING, OF COURSE, THAT SW<15> IS NOT SET), AN UNRECOVERABLE
SggfisagDCONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS

ERROR MESSAGES ARE MADE UP OF SEVERAL LINES.
EACH TYPE OF ERROR
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT.
ALL OF THE
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE
SECTION DESCRIBING THE PARTICULAR ERROR HEADER.

7.1

ERROR DESCRIPTION LINES

MESSAGES EM1, EM2, EM3, EM4, EM5, EM10, EM11, € EM12 ARE ALWAYS

DISPLAYED ON THE TTY.
THE OTHER MESSAGES ARE DISPLAYED ON EITHER
THE LINE PRINTER (IF AVAILABLE) OR THE TTY.
(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.)

MESSAGE
TAG

EMI

TEXT

RH11 INTERRUPT OCCURRED (RPAS=0)
THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER
(RPAS) WAS CLEARED.

EM2

UNEXPECTED ATTENTION OCCURRED
THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT
PERFORMING AN OPERATION.

H
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-16

EM3

MASSBUS PARITY ERROR (MCPE=1)
THE RH11 DETECTED A _CONTROL BUS PARITY ERROR WHEN READING
THE INDICATED REGISTER FROM THE INDICATED DRIVE.

EM4

MASSBUS PARITY ERROR (PAR=1)

THE INDICATED RPO4 DETECTED A CONTROL BUS PARITY ERROR
WHEN THE RH11 LOADED THE SPECIFIED REGISTER.

EM5

ADDRESS PLUG CHANGE BIT SET

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

EM6

RH11 DIDN'T RESPOND TO ADDRESSING
WHEN THE PROGRAM ADDRESSED THE RH11, NO RESPONSE WAS RECEIVED
FROM THE INDICATED ADDRESS.

EM10

UNCORRECTABLE MASSBUS PARITY ERROR

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

EM11

FATAL MASSBUS PARITY ERROR

A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR.

EM12

PERSISTENT DEVICE UNSAFE
THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DID
NOT CLEAR THE UNSAFE CONDITION.
THE PROGRAM WILL
AUTOMATICALLY DEASSIGN THE DRIVE.
THE DRIVE CANNOT

%EE%ESCISED UNTIL THE UNSAFE CONDITION HAS BEEN

EM13

OPERATION NOT COMPLETED WITHIN TIME LIMIT

THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND

AFTER THE OPERATION WAS INITIATED.

EM14

UNIT WENT OFFLINE
THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION.

(THE 'MOL' BIT BECAME ZERO.)
THE PROGRAM WILL AUTOMATICALLY
DEASSIGN THE DRIVE.
THE OPERATOR MUST REASSIGN THE DRIVE
WITH THE *T' COMMAND TO RE-INITIATE TESTING.

EM15

NO RESPONSE TO PORT REQUEST
THE _PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED
TO THE REQUESTING PORT WITHIN 10 SECONDS AFTER PORT REQUEST
TO THE DRIVE FROM THE REPORTING PORT.

EM20

HEADER CRC ERROR

SEQ@ 0020

CZRJDEO RP04/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 3-1;
970
971
g;%

g;g

A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS.
THE CONTENTS OF THE HEADER ARE DISPLAYED.
THE OPERATION WILL
BE RETRIED 3 TIMES.

EM21

976
977
978
3;3
gg12

DATA CHECK (°DCK') ERROR
A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR.
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED
FOR THE SECTOR IN ERROR IF THE ECC HARD ERROR ('ECH) BIT
IS SET.

EM22

WRITE CHECK ERROR = DATA CHECK ('DCK') SET

983

A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ('DCK') BIT

ggg

BE RETRIED UP TO 16 TIMES.

984
985

ggg

WAS SET.
IF "ECH' IS NOT SET, THE OPERATION WILL BE RETRIED
UP TO 3 TIMES: IF THE 'ECH' BIT IS SET, THE OPERATION WILL

EM23

990
991

A WRITE CHECK ERROR OCCURRED AND °'DCK' WAS NOT SET. THE
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR

33’;

MESSAGE.

EM24

996
997
998
999
EM25

SET INITIALLY.

EM26

1009

EM27

WHEN THE HEADER WAS RE-READ, THE

HEADER COMPARE ('HCE') ERROR
SIMILAR TO EM26 EXCEPT THAT THE 'HCE®' BIT WAS SET INITIALLY.
THE OPERATION WILL BE RETRIED 3 TIMES.

EM30

1020
}85}

1025
1026

FORMAT ERROR (°'FER®)
'"HCRC' BIT WAS NOT SET.
THE CONTENTS OF THE HEADER ARE
DISPLAYED.
THE OPERATION WILL BE RETRIED 3 TIMES.

1015
}8}9

}8%2

THE OPERATION WILL BE RETRIED 3 TIMES.

FORMAT ERROR OCCURRED.

1010
}8}3

}8}3

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

SIMILAR TO EM24, EXCEPT THAT THE 'HCE' ERROR BIT WAS

}8}2

HEADER READ ERROR = 'FMT' BIT DROPPED

BE RETRIED 3 TIMES.

1004
}88;

THE OPERATION WILL BE RETRIED 3 TIMES.

A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING
PERFORMED AND A °‘FMT' ERROR OCCURRED. THE PROGRAM RE-READ THE
HEADER OF THE ERROR SECTOR AND THE 'HCRC' BIT WAS SET. THE
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL

}88?
‘%88%

WRITE CHECK ERROR = DATA CHECK ('DCK') NOT SET

MISCELLANEOUS DRIVE ERROR
THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS:
'IXE', 'AOE', "RMR', 'ILF', OR "ILR'

EM31

OPERATION INCOMPLETE (°OPI®) ERROR
AN OPERATION INCOMPLETE ERROR OCCURRED AT THE INDICATED
SECTOR.

SEQ@ 0021

CZRJDEO RP04/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 3°1‘

SEQ@ 0022

027

EM32

DRIVE TIMING ('DTE') ERROR

8%8

PR S P

030
8%5

EM33

8%2

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

035

RS RSN
v

R
S
R

EM34

EM36

e S S

wviwn

EM4T

N
G
e S
W

EM42

S
T

COMPARE .

EM43

I R
R

CAN'T MATCH DATA READ WITH A PATTERN
THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD
PATTERNS.

EM4S

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

THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM

FOUND EITHER ERROR BITS IN THE RPO4 SET OR ERROR BITS IN

078

THE RH11 SET.

8;3

DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED

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

077

BUS ADDRESS OR WORD COUNT INCORRECT

WORD COUNT REGISTER IS NOT ZERO.

072
8;2

083

RH11 OR UNIBUS TRANSFER ERROR

NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE

823

835

WRITE LOCK ('WLE') ERROR

'TRE' IS SET IN THE RH11 CONTROL REGISTER AND NO DRIVE
ERROR HAS OCCURRED.
THE OPERATION WILL BE RETRIED 3
aflgaogg.Tflf ERROR WAS CAUSED BY °'DLT', 'UPE', 'MXF®

=d=l=] (elelelelelel]

EM4O

067

8;2

INVALID ADDRESS ('IAE') ERROR

:ogzégf OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE

822

8;(1)

THE

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION.

EM35

THE

WRITE CLOCK FAILURE (°WCF')
A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION.
OPERATION WILL BE RETRIED 3 TIMES.

061
062
822

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

839

068

THE

EM45

ECC LOGIC FAILURE
THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RPEC1)

D d D d d D d

&wguuwwmwmmwwwmmmdddddddddd
oogogooos
W
VS
W=
WN—AOOQNOMJ\WN-‘OOONOMbWNdogu\l
EERE S BRI

K
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-19

EM46

D e
) D nd D D e
) D

SEEK INCOMPLETE OR OFF CYLINDER ERROR

)

PROGRAM DETECTED POSITIONING ERROR

D d D

A HEADER COMPARE ERROR OCCURRED (°'HCE'); HOWEVER, WHEN THE
PROGRAM EXAMINED THE HEADER OF THE SECTOR IN ERROR,
IT
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS

D d D

ed D D

D D

EM60

'RPCC' OF THE DRIVE.

THE DRIVE WILL BE RECALIBRATED.

DEVICE UNSAFE
THE INDICATED DRIVE UNSAFE ERROR OCCURRED;

CLEARED BY A 'DRIVE CLEAR' INSTRUCTION.

DETAIL ERROR LINES

THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY.

)
D e

D d d

THE ERROR WAS

7.2

TT:TT:TT

(DESCRIPTION OF ERROR)

"TT:TT:TT' IS THE TIME SINCE THE PROGRAM
WAS STARTED.
TT:TT:TT IS GIVEN IN HOURS:
MINUTES: SECONDS.

d D

)

) d D d cd d D e

D d
D d

) D ad D

D
b

d D

) b

b md d e

b
—

—d d

37
38
39
40

THE DRIVE SIGNALED EITHER 'SKI' OR °OCYL' ERROR BITS.

D e
) =
D

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 THE
WORD CGUNT REGISTER.

EM51

)

SE@ 0023

OR THE CONTENTS OF ECC PATTERN REGISTER (RPEC2)
VALID.
THE POSITION REIGSTER IS5 EITHER'0O' OR >
OR THE PATTERN REGISTER CONTAINS ZEROS.

EM50

D d D d D e e

'PRESENT ORDER = XXXX

PREVIOUS ORDER = YYYY'

MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW:

UNLOAD = UNLOAD (OCTAL 3)
SEEK - SEEK (OCTAL 5)
RECAL - RECALIBRATE (OCTAL 7)

OFFSET = OFFSET (OCTAL 15)
RTC = RETURN TO CENTERLINE (OCTAL 17)
READIN = READIN PRESET (OCTAL 21)
PACK = PACK ACKNOWLEDGE (OCTAL 23)

SEQ 0024

SEARCH = SEARCH (OCTAL 31)

WCKD = WRITE CHECK DATA (OCTAL 51)
WCKHD = WRITE CHECK HEADER & DATA (OCTAL 53)
WRTDAT = WRITE DATA (OCTAL 61)

WRTHD = WRITE CHECK HEADER l 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,RPDS1,RPER1 , RPER2 ,RPER3,RPECT,
& RPEC2 FORM THE FIRST

GROUP: ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP.
g;sgmgs gs SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE
THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING
THE NON-DATA TRANSFER PART OF THE OPERATION.

'* ERROR AT BAD TRACK/SECTOR'
THE _ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS
ON THE PACK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD.
PARAMETER
'NOTPRT' MUST BE 0 FOR THE ERROR TO BE REPORTED.
A WORD CALLED °STATUS' IS DISPLAYED WITH THE RP04/5/6 REGISTERS.
THE
CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE

RP04/5/6 DRIVE HANDLER ROUTINE.

AS FOLLOWS:

BIT #

MEANING IF BIT IS *1°
ERROR_OCCURRED

DRIVE 1S OFFLINE

PERSISTENT UNSAFE CONDITION EXISTS

UNCORRECTABLE PARITY ERROR OCCURRED

FATAL PARITY ERROR OCCURRED.
WAS PERFORMED

OPERATION NOT COMPLETED WITHIN 1 SECOND

DONE (BITG7=0), BITS 14=9, 2, 1 SPECIFY TYPE
DONE (BIT07=1), BITS 6-3 SPECIFY TYPE

MASSBUS CLEAR PERFORMED.

MASSBUS CLEAR

ALL OTHER

OUTSTANDING OPERATIONS WERE RESTARTED.

e el R
R
B

THE BITS IN THIS WORD ARE ENCODED

YO W

0
O O O
020010010
0 10O 00
00 0o
00 0o
00 00
00 o
00 00 00 00 00 00~ ~J I ~J ) ~J I ~J VO On OO ON O O8N O ON O N AV NN NP A

QU R

SY R

AV % B B £ B o B B B

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:15:17 PAGE 3-28

DONE - OPERATION COMPLETED
DATA ERROR OCCURRED DURING THE TRANSFER

ERROR OCCURRED WHILE SEARCHING FOR THE °TRANSFER®
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS

CORRECTABLE UNSAFE CONDITION OCCURRED

(w4

DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC

PORT REQUEST TIMEOUT

RECALIBRATE SEQUENCE

NON-EXISTENT DRIVE REQUESTED

ERROR AT CXXX TYY SZZ

PREV ADDR = CUUU TVV Sww

THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS
DISK ADDRESS ARE GIVEN IN THIS LINE.
CYLINDER, TRACK, &
SECTOR ADDRESSES ARE IN DECIMAL.

LINE &
PRESENT ADDR = CXXX TYY SZZ

ADDRESSES ARE GIVEN IN DECIMAL.

LINE 5
START CYL = XXX END CYL = YYY
THIS LINE IDENTIFIES THE STARTING CYLiNDER OR A SEEK (IMPLIED)

AND THE DESTINATION CYLINDER.
DECIMAL.

START CYL = XXX

W
bbbb&l\&bwg
~
WN=OV

S UWN=O VNV

Vil
s &~

—

) e

) D o

) ——d —d cd

) —d D

D d

30
31
32
33
gg

PREV ADDR = CUUW TVV SWW

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED;
THE PREVIOUS ADDRESS IS ALSO GIVEN.
CYLINDER, TRACK, & SECTOR

) D

MNININININONININININ)
b =
e
e e d b

VO NS NN = O VRNV
NN =O

38R o
wv

) D d

) D

D e cd

) D nd D

)

D D d e

) D D

) e

) D e

) d -

SEQ 00

NORINININNLNLNNLNINININLNLNL
AN N NI NN NI NV AL AL NI NNV R NI NV NI AN NI NV NN NN NP NN RN NI NN NN NI NI NN =

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 3-21

CYLINDER ADDRESSES ARE IN

LINE 6

.......

END CYL = YYY

ACTUAL CvL = 222

THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK,
THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY
STOPPED AT.
CYLINDER ADDRESSES ARE IN DECIMAL.

RPBA = XXXX

RPWC = YYYY

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

START CYL = XXX

START TRK = YY

START SECTOR = 22

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV<-81 09:16:17 PAGE 3-22

7
2

SEQ@ 0026

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

1259

LINE 9

1261
}%2%

RPDA = XXXX

1264
1265
}ggg

THIS LINE GIVES THE CONTENTS OF THE RP04 TRACK AND SECTOR
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER
ggg*fss REGISTER.
THIS LINE IS NOT PRINTED IF SW<05> IS NOT

LINE 10

}%;g

BUFFER ADDR = XXXX

1274
1275
1276

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

}%;;

......

SIZE = YYYY

ACTUAL NUMBR WRDS XFRD = 2222

OCTAL, THE SIZE ANG WORD TRANSFERED VALUE ARE IN DECIMAL.
LINE 11

} gg?

......

}sgg

GOOD DATA = XXXX

1284
1285
}539

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

1288

LINE 12

}%3}

HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX

1293
12

THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH
GAVE THE ERROR.

1279

LINE 13

—

b e

N N AN NN

D e

D d

N NN W W W

D e

BAD DATA = YYYY

SECT POS = 222

.......

RPECT = XXXX

|
—

N O NN

0
SSIRIRAREV2SERIRRR

} ggg

|
l

RPCA = YYYY

1269

} g;?

c2l

{

1255
1256
}%gg

1268

;

RPEC2 = YYYY

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

LINE 14
ECC CORRECTABLE WITHOUT OFFSET
THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE
NECESSARY.

131;

LINE 15

}3}2

READ CORRECTLY AT OFFSET

1318

OFFSET VALUE.

1%17

SEQ 0027
X

MICRO-INCHES

THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED

1319
1320

LINE 16

}ggz

ECC CORRECTABLE AT OFFSET

1325
1326
1327
1328

THE SECTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED
OFFSET.

1329

1330
}§§}

LINE 17

cocecee

CORRECTED ON X RETRY

338
33

UNCORRECTABLE AFTER X RETRIES
THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE
INDICATED NUMBER OF RETRY ATTEMPTS.

LINE 19

DATA COMPARISON ERRORS

WVSWN 2OV

DIFFERENT ERROR DURING RETRY

=O VRN

THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY
ATTEMPT.

WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED.
IF THIS LINE IS PRINTED, THE RH11/RP04 REGISTERS WILL ALSO BE

3333

Dl e

d e

D nd D ) e

D D e

D i

D ) D D e

) D el

DIAAAIAAAIAR
R R RR R R RR

WN—=OO

LINE 18

D ) ) D

1333
1334
335
336

— e

MICRO-INCHES

PRINTED (SEE LINE 2).

LINE 20

A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE.

LINE 21
TOTAL COMPARE ERRORS = XXXX
THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT.
VALUE GIVEN IS IN DECIMAL.

LINE 22

THE

@n
|

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-2!

N NNNNNNNNY

SEQ 0028

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

LINE 23
ECC CORRECTION RESULTS

THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK' ERRORS
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING
SEZ?;AL 'XXX* IS THE WORD OFFSET VALUE FROM 'RPEC1' AND IS IN

288 oo~

ERROR WAS NOT IN THE DATA READ ECC CORRECTION CAN'T BE PERFORMED
THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY.

LINE 26
CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE)

IF SW<03> IS SET, THE SECTOR WHICH GAVE THE ‘DCK', °'DTE' OR,

'WCF' ERROR OR 'HARD' DATA CHECK ERROR IS PRINTED.
CONTENTS OF THE SECTOR FOLLOW THIS LINE.

THE

LINE 27

NNV

—

d D d

)

D d

)

SN o at al 2R T S O O

)

)—

o
A N
Db D b

0 af
[wl=l=]

d ek ek

—

Aoy W W

VOO

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

d d D e

LINE 24

) D e

THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED.
THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S)
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED.

d cd cd D

) d

RESLEERSROLEE

W
0000

D ) D d

) e

s WNWWWWNWWWWNWWWW
— D d D d

C
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5=NOV-81 09:16:17 PAGE 3-24

ORDERS: WWW

ERRORS: X

WRDS XFR: YYYY

WRDS READ: 2222

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

'ORDERS' IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE
WHICH REPORTED THE ERROR.

"ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES
EVERY ERROR DETECTED, REGARDLESS OF TYPE.

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV<=81 09:16:17 PAGE S-Zg
1426

SEQ 0029

'WRDS XFR' IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY

}253

THE DRIVE.

}253

'WRDS READ' IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE.

1431

LINE 28

}2§§

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

}239

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

1438
;223

"ORDERS' IS THE TOTAL NUMBER OF ORDERS GIVEN TO THE DRIVE WHICH
REPORTED THE ERROR.

1441
;22%

"TOTAL SEEKS' IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED
8Y THE DRIVE.

1444
}222

'TOTAL POS ERR' IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH
THE PROGRAM DETECTED FOR THE DRIVE.

1447
1448
1449
1450
1451
1452
1453
}22?

"TOTAL SKI,OCYL ERR' IS THE TOTAL NUMBER OF
SIGNALED BY THE DRIVE.

1456
1457
1458
1459
1460
1461
1462

PROGRAM DESCRIPTION

8.1

PROGRAM OPERATION

°*SKI' OR *OCYL' ERRORS

WHEN THE PROGRAM IS 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 (*IE') IS SET, TTY KEYBOARD
INTERRUPT ENABLE IS SET, AND THE KW11-L OR KW11-P CLOCK IS STARTED.
WHEN THESE ACTIONS HAVE BEEN COMPLETED, THE PROGRAM TYPES OUT
'PROGRAM INTIALIZE COMPLETE'.
COMMAND ENTRIES WILL NOW BE ACCEPTED

;222

BY THE PROGRAM

}222

THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES. LOOKING FOR:

1467
1468
1469
1470
}2;5

1)
g)
)
4)

DRIVES TO ASSIGN/DEASSIGN
PERFORMANCE SUMMARY TYPEOUT REQUESTS
DRIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT,
OR PARAMETER SELECTION.
DRIVES COMPLETING CURRENT OPERATIONS.

1473

THE_PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND.

}2;2

BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ('T® COMMAND).

1477
1478
1479
}23?

WHEN A DRIVE IS ASSIGNED, THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE
DRIVE 1S PRESENT, IS AN RP04/5/6, AND IS ONLINE.
THE ASSIGNMENT ROUTINE
'HEN ISSUES A "READIN PRESET' INSTRUCTION, SETS *FMT22', AND ISSUES
A *RECALIBRATE' INSTRUCTION.

1482

PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED.

1474

IN THE CASE OF THE PROGRAM AT INITIAL START,

THE FIRST ENTRY WILL

IFf

SE@ 0030

WILL BE FILLED WITH THE SELECTED PATTERN.
ISSUED AFTER EACH WRITE ORDER.

IS THEN PASSED TO THE COMMAND INITIATION ROUTINE.

CONTROL

THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF
THE REQUESTED OPERATION.
IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER
PERFORM THE OPERATION,
THE PROGRAM ISSUES A SEARCH INSTURCTION

TO THE DRIVE WITH A *TARGET® SECTOR WHICH IS 8 SECTORS EARLIER

THAN THE °‘TRANSFER' SECTOR.
(THIS ALLOWS THE PROGRAM TO INITIATE
OPERATIONS ON ANOTHER DRIVE WHILE THE PRESENT DRIVE, OR OTHER

DRIVES, ARE SEARCHING FOR °TARGET' SECTORS.

ALL SEEKS ISSUED BY

THE PROGRAM ARE IMPLIED SEEK SEARCH OPERATIONS.)
WHEN A SEARCHING
DRIVE FINDS THE °‘TARGET®' SECTOR AND INTERRUPTS,
THE PROGRAM READS

THE LOOK AHEAD REGISTER (RPLA) OF THE INTERRUPTING DRIVE AND

COMPARES THE POSITION OF THE DISK WITH THAT OF THE DESIRED SECTOR.

IF OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED.

THE

PROGRAM THEN ISSUES THE REQUESTED ORDER TO THE DRIVE NEAREST ITS
TRANSFER SECTOR.
THE DRIVES NOT SELECTED WILL HAVE ANOTHER SEARCH

INITIATED.

IF A DRIVE IS NOT SELECTED FOR TRANSFER AFTER THREE

REVOLUTIONS OF ITS DISK, IT IS GIVEN PRIORITY OVER DRIVES WHICH HAVE
NOTE BEEN ON CYLINDER AS LONG.

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

IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH11 BUS ADDRESS
AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIFY THAT THE
CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE TWO REGISTERS
ARE CONSISTENT WITH EACH OTHER; AND IF THE ORDER WAS A READ ORDER, THE
DATA BUFFER IS COMPARED.
WHEN THIS SEQUENCE IS 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 WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED.
A.

MULTIPLE

ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY.

PERSISTENT UNSAFE CONDITION - EM12
UNCORRECTABLE MASSBUS PARITY ERROR - EM10

FATAL MASSBUS PARITY ERROR - EM11

OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13
UNIT WENT OFFLINE - EM14

ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY.

CORRECTABLE UNSAFE - engo

DRIVE TIMING ERROR =

37
38
39

WRITE CHECK WITH DCK SET - EM22
HEADER CRC ERRORS = EM20
FORMAT ERRORS - EM24, EM26

(WRITE CHECK ORDERS ARE

PARAMETERS SELECTED FOR THE PRECEEDING WRITE ORDER.)

e
e o
b e
— e

THE ASSIGNED BUFFER

THE WRITE CHECK ORDER USES THE

D e e

THE OPERATION IS A WRITE OR WRITE CHECK ORDER,

D e

d e

D d e

D e

d e e

d D

)

D e

D e e

d D e

d e e

oo
\hv\\h\hMM&WMMMMWU‘MMWMWWWMMU‘MMU’O\h\fl\fi\fl\fl\l‘\flMMU‘MU‘M&bbbbbbbbbb&’b’&b
W NN
oNNNNNNNNNd-&dd—.-n.....-n_n
IR A RGN 28TIIRAR [o
(V]
ONOM“WN-‘OOONOW&WN-‘O%“N SERECSSER

£
CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NCV-81 09:16:17 PAGE 3-26

EM32

DATA CHECK ERROR - EM21

D
D
D
D
D

'IAE' ERROR = EM35

D e

'WLE' ERROR = EM36
MISCELLANEOUS DRIVE ERROR - EM30

b e e

BUS ADDRESS OR WORD COUNT INCORRECT = EM41

DATA COMPARE ERRORS = NO DRIVE ERROR PETECTED - EM42

Db D

CAN'T MATCH DATA READ WITH A PATTERN = EM43
ERROR BIT(S) SET BUT NO ERROR SIGNALED BY THE RH11 - EM44
ECC LOGIC FAILURE BUS ADDRESS OR WORD COlNT NOT CONSISTENT - EM46

R
R R LIS INRT IR
ol SEESFBRRRIEIINFININNSEE
W&
£32 20

VIS

b
e e
b
S e e
d D e
b
)
)
D
b
D e
D
)
b

ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC.

DUAL PORT OPERATION
PROGRAMMABLE DRIVES (DUAL PORT) OPERATION IS INHIBITED WITH STARTING

ADDRESS 200-SEE SEC 2.4. THEREFORE, USE STARTING ADDRESS 204 OR 220
FOR DUAL PORT TESTING.

DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED

IN SECTION 8.1.

THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION

AND ORDER TERMINATION.

WHEN THE DUAL PORT HANDLER ROUTINE IN THE MULTIDRIVE PROGRAM RECEIVES
A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS

ONLINE.
THE DRIVE IS SELECTED AND 0'S ARE WRITTEN INTO °RPDS1°:
IF THE DRIVE IS IN NEUTRAL,
THIS UILL SEIZE THE DRIVE.
IF THE

DRIVE 1S SEIZED BY THE OTHER PORT, WRITING INTO *RPDSi® WILL SET
REQUEST'.

THE PROGRAM CHECKS 'DVA" IN_'RPCS1°'.

IS AVAILABLE AS INDICATED BY THE °'DVA' BIT,

IF THE DRIVE

THE conwo 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

LOGIC IN THE DRIVE BEING TESTED; HOWEVER,

UNDER CERTAIN CONDITIONS

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 CONTROL

(E.G. HAS;BUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM

ON_A MOD33

WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT
RELATED ERROR MESSAGES PROPERLY.

— e

0
W

) D

8.2

D d cd e

SEQ@ 0031

HEADER COMPARE ERRORS = EM25, EM27
PROGRAM DETECTED POSITIONING ERROR = EM51
SEEK _INCOMPLETE OR OFF CYLINDER ERROR
- EM50
WRITE CHECK WITHOUT °'DCK' SET - EM2
RH11 OR UNIBUS TRANSFER ERROR = EM40
'OPI' ERROR - EM31
'PAR' ERROR - EM33
'WCF' ERROR - EM34

D d

Vi oy
VIS
SS NSNS NN &H
W=
VONOWVNSWN=OVONO
VS WN=O

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-27

TTY),

THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE

AFTER IT HAD REQUESTED THE DRIVE.

THE OPERATOR MUST BEAWARE OF

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.

‘

D D

§so~
S SR20%8 353
38¢

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-23 3

D D e

d D

SINGLE PORT DRIVES, DRIVES WHICH
ARE IN NEUTRAL BUT NOT BEING EXERCISED BY THE OPPOSITE PORT ARE STILL
TREATED AS DUAL PORT DRIVES IN THAT A RELEASE COMMAND IS 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.

8.3

SELECTION OF OPERATION VARIABLES
A.

D e e

d =D e

SEQ 0032

609

SECTOR ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN

‘MINSEC® AND "MAXSEC®.
TRACK ADDRESS SELECTION IS RANDOM
BETWEEN THE VALUES IN 'MINTRK' AND °‘MAXTRK®'.
CYLINDER ADDRESS

SELECTION IS RANDOM BETWEEN °'MINCYL® AND °‘MAXCYL®.

610

IF A MINIMUM

ADDRESS 1S GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS THE

PROGRAM WILL EXCLUDE ALL ADDRESSES BETWEEN 'MAX' AND°'MIN® FROM

d D e

611

612
613

THE SELECTION.
FOR EXAMPLE: IF 'MINTRK® IS 18 AND 'mm' ;s
IS S, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 6 = 1

FROM m; SELECTION AND SELECT AN ADDRESS FROM AMONG ADDRESSES

D ed e

g}g

616

1624

b e cd

617
618
619
620
621
1g%§

1625

1626
}ggg

THE BUFFER SIZE IS RANDOM SELECTED BETWEEN 4 (10) = AND THE
VALUE IN "MAXDL'.
THE SIZE SELECTED IS WEIGHTED TO ENSURE
THAT AT LEAST & WORDS ARE WRITTEN IN THE DATA AREA OF THE LAST
SECTOR.
THIS IS NECESSARY AS THE PROGRAM REQUIRES & LOCATIONS
IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA
TO A PATTERN FOR DATA COMPARISON PURPOSES.
THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15 STANDARD

PATTERNS.

THE KEYWORDS IN THE HEADER (WHEN PERFORMING A WRITE

HEADER & DATA ORDER) ARE 2ERO FILLED.
FIND THAT THE KEYWORDS ARE ZERO.

1629

1630
1631
1632
1633

THE ORDERS ARE SELECTED RANDOMLY.

THE PROGRAM EXPECTS TO

WRITE CHECK DATA AND WRITE

CHECK HEADER & DATA ORDERS ARE PERFORMED ONLY IF THE PREVIOUS

ORDER WAS THE APPROPRIATE DATA ORDER.
IF THE 'FORMAT® PARAMETER
IS ZERO, THE PROGRAM WILL NOT SELECT WRITE HEADER & DATA (AND
WRITE CHECK MEADER © DATA) ORDERS.
WHEN THE PROGRAM SELECTS

1634

A WRITE HEADER & DATA ORDER, THE BUFFER SIZE IS FORCED TO

;233‘9

WRITE OPERATION.

1635

260 (10); THE PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT

1638
1639
1640

11225

124“3.

me msr onoen PERFORMED AFTER A UNIT IS ASSIGNED WITH A
OR
COMMAND IS NOT RANDOMLY SELECTED.
THE PARAMETERS
roa ms fmsr opmnou ARE THE MINIMUM OR STARTING VALUES OF
THE VARIABLES.

8.4

DATA PATTERNS

1645
1646
1647
1648
1649

THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE
WHEN A WRITE ORDER IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH
THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM
COMPARES DATA ON A SECTOR BASIS: FROM THE FIRST 4 DATA’ uoaos OF
EACH secroa THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING

1651

PROGRM (csza)

1650
1652
1653

PATTE

fo MANTAIN COMPATIABILITY WITH PACKS WRITTEN BY THE FORMAT
THE PROGRAM WILL ACCEPT ALL ZERQ'S AND

AND ALL ONE'S PATTERNS: HOWEVER, ALL ZERO'S AND ALL one's
PATTERNS ARE NOT WRITTEN BY THE EXERCISER PROGRAM.

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-29
1654

SEQ@ 0033

}ggg

PATTERN '8'

}ggg

PAT1

PAT 2

PAT3

PAT &

PAT S

PAT 6

PAT7

PAT 8

1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673

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

000000
000000
099999

177777

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

000000

1777
177777
00099
1777
099
1777
000000
177777

000000
010421
0;104;
0 168
0451 6
052525
0931‘9
073567
106210
114631
1§525§
13567
146314
156735
167356

052525
052525
05%5 3
1252
125252
1 5%5
052525
052525
1252 S
125§S
052525
125; 2
052 gs
125252
052525

007417
007417
007417
170360
170360
70360
007417
7417
170360
170360
7617
170360
007417
170360
007417

026455
026455
ng‘SS
151322
151322
151322
026455
0;6455
151322
151322
0;6455
151322
026455
151322
026455

1?5555
133333
1%5555
133333
1%5555
133333
135555
133333
1%5555
133333
165555
133333
165555
133333
165555

}g;%

PAT 9

PAT 10

PAT 11

PAT 12

PAT 13

PAT 14

PAT 15

1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692

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

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

172
155555
172662
155555
1726??
1555
17;622
1555
172
155555
172266
155555
17;66?
155555
172662

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

153333
06%327
153333
0
7
153333
066667
153333
0
/7
153333
0
7
1
3
066667
153333
026627
153333

000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

177777
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
020000
000000
000000
000000

}g;g

}ggz

1695
1696
1697
1698

}938

100000

};83
1710

155555

RP/RH DRIVER DOCUMENT

9.1

RH11/RP04/5/6 DRIVER

177777

177776

125252

066667

170360

177777

151322

133333

000000

THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH11/RP04/5/6 DRIVER.
THE DRIVE INITIALIZATION ROUTINE HAS BEEN MODIFIED TO

};82

1707

077777

177777
177777
000000

1701
1702

};82

IS DEFINED AS THE "WORST CASE' PATTERN.

FLAG A PROGRAMMABLE DRIVE (OCT 1978).
9.2

TO INITIALIZE THE DRIVER:
JSR

RETURN

PC,RPINIT

UPON RETURN YOU MUST EXAMINE THE 'DRVSTA'' TABLE TO DETERMINE

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-38
1
171§

SEQ 0034

THE DRIVES THAT ARE ONLINE FOR TESTING.
THE 'DRVSTA' TABLE IS
EIGHT BYTES; ONE BYTE PER DRIVE.
THE STATE OF EACH DRIVE WILL

};}‘

BE INDICATED AS FOLLOWS:

1715

DRVSTA

1717
1718
1719
1720
1721

DRIVE STATE

>0
=0

};55

ONLINE RP04/5/6
OFFLINE RP04/5/6, DRIVE
IS NOT AN RP04/5/6, OR
NONEXISTENT DRIVE

1724
1725
};59

UNSAFE RP04/5/6

THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED °‘DRVTYP'.
THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE
DRIVE NUMBER.
ENTRIES ARE ENCODED AS FOLLOWS:

1728

DRVTYP

CONDITION

1730
1731
1732
1733
1734
1735
};;9

0
1
2
4
10
s |

NONEXISTENT DRIVE
RP04
RPOS
RP06
PROGRAMMABLE DRIVE
NOT AN RP04/5/6

};gg
1740
1741
1742
1743
1744
1745
1746
1747
1748

THE
9.3

"RPINIT® ROUTINE WILL DO A READIN PRESET AND WILL SET FMT22.

AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE
FOLLOWING SEQUENCE.

CALL:

JSR
RO,RPO4
PNTDPB
RETURN1
RE TURN2

};gg

:MAKE THE CALL
:ADDRESS OF DPB*
*RETURN IF QUEUE IS FULL

*RETURN IF REQUEST IS IN
*QUEUE OR THERE IS AN

*ERROR CONDITION

};21

*DPB (DATA PARAMETER BLOCK)

175
1754
1755
1756
1757
1758
1759
1760
1761
176
176
1764
1765
1766
1767

PNTDPB:

.BYTE
BYTE
BYTE
BYTE
WORD
WORD

0
0
0
0
0
0

BYTE

.BYTE

LWORD
WORD

0
O

:(0) DRIVE NUMBER
:(1) OFFSET VALUE OR FMT22, ECT, AND HCI
:(S) COMMAND
:(3) PSEL AND A17 AND A16
*(4) WORD COUNT (MUST BE NEG.)
+(6) BUFFER ADDRESS OR
*REGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR
*FIRST REG. INDEX
$(11) TRACK ADDRESS OR
:LAST REG. INDEX
+(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
*POINTS TO THE FIRST OF TWENTY
*LOCATIONS OF WHERE THE DRIVER

%g\

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-31
1
1
1

LWORD

9.4

NNNNNN

179%

1795

1796
1797
1798
1799
1800
1801
1802

1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
}g}g
}g}g
1818
1819
1820
1821
1822

}ggz

(16 STATUS/ERROR INDICATOR
8IT 15=1=>ERROR OCCURRED

THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY.
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE 'RP TIMER'' ROUTINE

WITH THE ELAPSED TIME IN THE FOLLOWING MANNER:
MoV

#16.,-(SP)

JSR

PC.RPTMR

:16 MILLISECONDS BETWEEN
sCLOCK _TICKS
sCALL THE TIMER ROUTINE

IT SHOULD BE _NOTED THAT YOU MUST PROVIDE THE CODE TO DRIVE THE
CLOCK.
AND THE ELAPSED TIME MUST BE IN MILLISECONDS.

THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING
AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30

}733
1791
};3§

1S T 0_STORE THE RH11/RP04
REG 1 STERS ON AN ERROR. IF LEFT
ZER? REGISTERS ARE NOT SAVED.

BIT07=1=>DONE
:BIT14-BIT09 AND BIT06-BITO3
s INDICATE TYPE OF ERROR

SIR SR

1
1
1
1
1
1 777
1 778
1 779
1
1 781
1
1 83
1
1
1
}

SEQ@ 0035

SECONDS FOR ERROR RECOVERY OPERATIONS.

4.1

EXAMPLE - WRITE 1000. WORDS
1$:

28:

WRTDPB:

JSR

RO,RPO3

BR
ST
BEQ
BMI
.
-

1$
WRTDPB+16
28
ERROR1

sWAIT FOR QUEUE IF FULL

.BYTE
BYTE
.BYTE
BYTE
"WORD
"WORD
BYTE
BYTE
"WORD
.WORD
WORD

5
0
161
0
=1000.

:DRIVE #5

WRTDPB

WRTBUF
3
§
400
ERRTBS
O

sCALL THE DRIVER
:DPB_ADDRESS

;WAIT FOR COMMAND TO COMPLETE
;ERROR OCCURRED

*WRITE COMMAND
sWORD COUNT
:ggf; ER ADDRESS

sERROR TABLE
sSTATUS/ERROR INDICATOR

ALTERNATE DPB SETUP
WRTDPB: .WORD
-WORD
"WORD
"WORD
BYTE

-WORD

"“6'5
=1000.
WRTBUF
3.5

400,ERRTBS,0

sTHIS SETUP ACHIEVED

sEVERYTHING THE
sABOVE TABLE DID, BUT
sIN A CLEANER FORMAT

K
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-32
}ggz

9.5

SEQ 0036

RH11/RP04/5/6 REGISTERS

1827

MNEMONIC

1829

RPCS1

1831
1832
1833

RPBA
RPDA
RPCS2

4
6
10

RPER1

1830

RPW(C

1834

RPDS1

1835

1836

RPAS

1837

RPDT
RPSN
RPOF
RPCA
RPCC
RPER2
RPER3
RPEC1
RPEC2

9.6

RPMR

1840
1841
1842
1843
1844
1845
1846
1847
}ggg

12
20

RPDB

}gg

RPLA

1838

1839

INDEX

26
30
32
34
36
40
42
L4
46

COMMANDS PERFORMED BY THE DRIVER

}g%%

COMMAND

CODE

COMMAND TYPE

1854
1855
1856
1857

1858
1859

NO OPERATION
UNLOAD
SEEK
RECALIRATE
DRIVE CLEAR
RELEASE

101
103
105
107

m
113

N
B
P
P

N
N

1870
1871
1872

WRITE DATA
WRITE HEADER & DATA
READ DATA

161
163
171

]
D
D

1860
1861
1862
1863
1864
1865
1866
1867
1868
1869

OFFSET
RETURN TO CENTER
READIN PRESET
PACK ACKNOWLEDGE
SEARCH
GET REGISTER(S)
SET_FORMAT
SELECT DRIVE
WRITE CHECK DATA
WRITE CHECK HDR & DATA

READ HEADER & DATA

}ggz
1875

N = HOUSEKEEPING
P = POSITIONING

1876
1877

173

D = DATA TRANSFER
S = SPECIAL PROVIDED BY THE DRIVER

}g;g
}g(‘)

115
117
121
1;3
131
141
143
145
151
153

9.7

DPB STATUS/ERROR INDICATOR WORD

P
P
N
N
P
S
S
S
D
D

8%:

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 3-3‘.',
188
188

;ggg

SEQ 0037

THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST.
THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO

A ONE.

1886
1887

BIT NO.
———————

MEANING IF ON A *"1"

1889
1890

ERROR OCCURRED
DONE (BIT07=0); BITS 14=10 SPECIFIES TYPE

1893
}ggg

14(1)

USER MADE A REQUEST FOR A FUNCTION TO BE
PERFORMED ON AN OFFLINE OR UNSAFE DRIVE

1896

13(1)

USER MADE A REQUEST FOR A FUNCTION

138(1’

12(2)

PERSISTENT UNSAFE CONDITION EXIST.

}ggg

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

1904
1905

10€2) (4)

FATAL PARITY ERROR. A MASSBUS CLEAR WAS
PERFORMED, ALL QUEUES WERE EMPTIED, AND

}383

9(3) (4)

SOF TWARE TIMEOUT OCCURRED ON THIS DRIVE

8(4)

SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

1888

}ggg

1897
}ggg

DONE (BITO7=1): BITS 06-03 SPECIFIES TYPE

}38‘7’

TO BE PERFORMED ON A DRIVE THAT HAS AN
UNLOAD REQUEST IN QUEUE.

ALL DRVACT'S SET TO THE IDLE STATE

}g}g

6(2)

1916

5(2)

}g}g

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

1921
}355

3(2)

DRIVE ERROR OCCURRED THAT CAUSED AN
AUTOMATIC ‘RECALIBRATE'* SEQUENCE

1924
1925
}ggg

PORT REQUEST TIMEOUT.
THE DRIVER REQUESTED
THE DRIVE BUT THE o»osns PORT DID NOT
RELEASE THE DRIVE WITHIN 20 SECONDS.

1928
}3233

NON-EXISTENT DRIVE REQUESTED.
USER MADE
A REQUEST FOR A NON-EXISTENT DRIVE.

}3};

ERROR OCCURRED DURING AN 1/0 OPERATION
ERROR OCCURRED DURING AN OPERATION

OTHER THAN 1/0.

1931
;gg

NOTES FOR ABOVE

1934

(1) =

REQUEST WASN'T PUT IN QUEUE.

1937
1938

(2) =>

REQUEST QUEUE HAS BEEN EMPTIED.
THE DRIVER
ISSUED A “DRIVE CLEAR'* TO THE DRIVE.

}ggg

REGISTERS WERE NOT SAVED)

(RH11/RP04

3%:

———————

n3
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-34
1939
}3‘«?

(3) =>

1947

(4) =>

}34‘2

REQUEST QUEUE HAS BEEN EMPTIED. THE
DRIVER ISSUED A MASSBUS INIT. ALL
RH11/RP0%4 REGISTERS FOR THE DRIVE WERE
SAVED AS PER DPB+14 BEFORE THE INIT.

mg
9.8

A "RECALIBRATE'® SHOULD BE ISSUED

aeroae ANY OTHER COMMAND.

ERROR CALLS MADE BY THE DRIVER.

113%

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

1954
1955
}3;9

WHEN THIS TYPE OF ERROR IS DETECTED BY THE DRIVER IT WILL MAKE
AN ERROR CALL OF THE FORM "ERROR N'‘, WHERE 'W'' IS THE ERROR
NUMBER AND THE ERROR WILL BE AN EMT INSTRUCTION.

1958
1959

N
-

ok e o w

TYPE

DATA AVAILABLE

1962

RH11 INTERRUPT

*R4= RPCS1'S ADDRESS

1965
1966
1967
1968
1969

UNEXPECTED ATTENTION
OCCURRED

R1= DRIVE uu\eea
R3= ATA BIT
*Ré= RPCS1'S ADDRESS
RS= (RPAS)
RPERRS =RPDS1

}%?

}ggz

OCCURRED (RHAS=0)

1970
1971

RPERRS +2=RPER1
RPERRS +4=RPER

}3%

RPERRS +6=RPER

1974

MASSBUS PARITY

RD.ADR= ADDRESS OF REG. READ

1977
1978
;g;g

MASSBUS PARITY
ERROR (PAR=1)

WRT.AD= ADDRESS OF REG. WRITTEN
WRT.WD= WORD WRITTEN
RD.WRD= WORD READ BACK

1981
1982
1983

ADDRESS PLUG CHANGE
BIT SET ("OPE' ERROR)

R1= DRIVE uuaen
R3=
ATA BIT
*Ré= RPCS1'S ADDRESS

}3;2

ERROR (MCPE=1)

1984

RD.WRD= WORD READ

RS= (RPAS)

1985

RPERRS

=RPDS1

1986

RPERRS+2=RPER1

}ggg

RPERRS +6=RPER

1987

RPERRS +4=RPER

}33(1)

}335
;991.

CZF

NOTE: ALL RH11/RP04 REGISTERS ARE SAVED
AS PER DPB+14 BEFORE THE ‘DRIVE CLEARTM.

1942
1943
1944

}329

SEQ 0038

* THIS IS THE ACTUAL UNIBUS ADDRESS (176700)

PROGRAM LISTING

——

———

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 4
1

SEQ@ 0039

s*LAST REVISION 05-NOV-81

53
54

.TITLE
CZRJDEO RPQ4/5/6 "L;E!I’R LGC
s*COPYRIGHT (C) 1975,1979

:*DIGITAL EQUIPMENT CORPORATION

'COLORADO SPGS., CO. 80919
.t

;*THIS PROGRAM WAS ASSEMBLED

'PACKAGE

e 8000 800800080000,

0,09,8,08,0808s08.0

.SBTTL
*

*
f

OPERATIONAL SWITCH SETTINGS
SWITCH

15
13
10
7
)
5

000004

B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR

A. DO NOT CHECK FOR MAXIMUM ERRM COUNTS

DO NOT DROP DRIVE WHEN NORMAL END OF

A. DISPLAY ERROR SECTOR IF

'DCK'

1f 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

s*INITIAL ?X‘DBGESS OF THE STACK POINTER #xx 1100 #e«
STACK
=
ERROR
= EMT
::BASIC DEFINITION OF ERROR CALL
SCOPE
= IOT
;:BASIC DEFINITION OF SCOPE CALL
tHISCELLANEOUS DEF INITIONS

LF
CR
CRLF

STKLMT

PIRQ

177570

000000
000001
000002

DSWR

DDISP

::CODE FOR NORIZONTAL TAB

= 1
= 1
=

..cooe FOR LINE FEED
:;CODE FOR CARRIAGE RETURN
;;CODE FOR CARRIAGE RETURN=-LINE FEED

= 177774

::STACK LIMIT REGISTER

= 177570

: *MARDWARE SWITCH REGISTER

:gu " 17 776
= 177772

= 177570

; ;PROCESSOR STATUS WORD

ROGRAM INTERRUPT REQUEST REGISTER

: sHARDWARE DISPLAY REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

= %0

= 1

= %2

TEST REACHED

‘DTE', OR "WCF' ERROR

. D%g;hA;ESECTm IF *DCK® ERR UNCORRECTABLE AFTER

*
*

104000

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
DISPLAV ALL DATA COMPARE ERRORS
DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES)
A. PARTIAL REGISTER DISPLAY IF ERROR

.
.

001100

USE

seseeee

*
*
*
*
*
*

.SBTTL

USING THE PDP-11 MAINDEC SYSMAC

(MAINDEC-11-DZQAC=C5), 18~MAR-81

;GENERAL REGISTER

..GENERAL REGISTER

: ;GENERAL REGISTER

CZR

TAB

T=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 6-1.
13
15
!9

:;GENERAL
s sGENERAL
33
RAL
s s GENE

s:STACK POINTE

e858: =

nunnnnnn-

REGI

REGI
REGI

REGI]

: ;GENERAL REGI

: :PROGRAM COUNT

LEVEL DEFINITIONS
0
s:PRIORITY LEVE
40
ssPRIORITY LEVE

100

ssPRIORITY LEVE

s:PRIORITY LEVE

140

s:PRIORITY LEVE

JsPRIORITY LEVE

ssPRIORITY LEVE

g 100000
NN

888

=13

e
'S

ssssss2§2

SEQ 0040

40000

20000

10000
4000

2000
1000

400

200

100
40

20
10

2
1

;*DATA B IT DEFINITIONS (BITOO TO BIT1S)
T
100000

40000
20000
10000
4000
%’000
. 000
400
200
100

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 4-2

SEQ 0041

e e e

St Bomg
By Pt Bt B

i
e

ot By b

e e B

°°°2°°°°8"
-2 NN ES WO
0D
nernnn

e
By S

ODOODODD®

Bt Bt by B

000040
00002
00001
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010

T
[=l=la)

BASIC DEFINITIONS

BIT1=8
8I1T0=B1T00

82
83

85
86
87
88
89
90
91
92
93

prs

000200
000400

nunnununnnnnnnn

L ]

NION ONNANNIN)
=3 b b = SN
&»H SHOHLrOHlONHSSO
o

::"TRAP'"

TRAP

SSTTY KEYBOARD VECTOR

SSTTY PRINTER VECTOR
: PROGRAM INTERRUPT REQUEST VECTOR

RH11 REGISTERS

1E=

100

s INTERRUPT ENABLE (BIT #6)

400
1000
2000

:HIGH ORDER BUS ADDRESS BIT (BIT #8)
:HIGH ORDER BUS ADDRSSS BIT (BIT #9)
:PORT SELECT (BIT #10)

RDY=

0000

TRE=

020000

::TRACE TRAP
: iBREAKPOINT TRAP (BPT)
:: INPUT/QUTPUT TRAP (IOT) #+SCOPEw+
:POVER FAIL
::EMULATOR TRAP (EMT) ~*ERRORw*

(RPCS1)

2000

001000

TIME OUT AND OTHER ERRORS

..QgSEgYED AND ILLEGAL INSTRUCTIONS

;CONTROL AND STATUS REGISTER 1

Al6=
A17=
PSEL=

MCPE=
:SC=

200

20000

40000

100000

:READY (BIT #7)

:MASSBUSS PARITY ERROR (BIT #13)
:TRANSFER ERROR (BIT #14)

:SPECIAL CONDITION (BIT #15)

sWORD COUNT REGISTER (RPWC)
s (EACH BIT IS CALLED BY BIT NUMBER)

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

95
96
97
98

.SBTTL

79
80

PIRQVEC

SJANY

; *BASIC "CPU" TRAP VECTOR ADDRESSES

;CONTROL AND STATUS REGISTER 2 (RPCS2)
000001

000002

UsSi=
us2=

1
2

:
SUNIT

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 4-3
RH11 REGISTERS

SEQ 0042

100
101
10%

000004
000010
000020

USé=
BAl=
PAT=

“
18
2

sUNIT SELECT (BIT #2)
BUS ADDRESS INCREMENT INH
8" (BIT #3)
MASSBUS PARITY TEST (BIT #4)

105
109
10

000200
000400
001000

OR=
MPE=
MXF =

200
400
1000

:OUTPUT READY (BIT #7)
MASS BUS PARITY ERROR (BIT #8)
:MISSED TRANSFER ERROR (BIT #9)

109
110

004000
010000

NEM=
NED=

4000
10000

H‘

100000

DLT=

100000

10
104

108

m
11%

000040
000100

002000

020000
040000

CLR=
IR=

PGE=

UPE=
WCE=

40
100

2000

20000
40000

;CLEAR (BIT #5)
: INPUT READY (BIT #6)

:PROGRAM ERROR (BIT #10)

:NON EXISTENT MEMORY (BIT #11)
:NON EXISTENT DRIVE (BIT #12)

:UNIBUS PARITY ERROR (BIT #13)
:WRITE CHECK ERROR (BIT #14)
:DATA LATE (BIT #15)

115
116

;DATA BUFFER REGISTER (RPDB)

119
]'%(1)

.SBTTL

}%%

;CONTROL AND STATUS 1 REGISTER. (#00)

124
125
126
127
128
129

}g(‘)

s (EACH BIT IS CALLED BY BIT NUMBER)

000001
000002
000004
000010
000020
000040

004000

}gg

134

GO0=
Fl=
F2=
F3=
Fé4=
F5=

DVA=

RP04/5/6 REGISTERS

1
2
4
10
20
40

4000

;60 BIT (BIT #0)
sFUNCTION CODE BIT #1
sFUNCTION CODE BIT 0%
sFUNCTION CODE BIT #
sFUNCTION CODE BIT #4
:FUNCTION CODE BIT #5

:DEVICE AVAILABLE (BIT #11)

;DRIVE STATUS REGISTER (RPDS1) (#01)

:DF5=

DRIVE FORWARD 5'/SEC.

&
10

:DRIVE TO INNER GUARD
;GO REVERSE (BIT #3)

000002

DFF20=

138
139

000020
000040

DL64=
DE1=

141
142

000200
000400

DRY=
DPR=

200
400

002000

LST=

2000

.LAST SECTOR TRMSFERRED (BIT M0)

10000
20000

:MEDIUM ON-LINE (BIT #12)
:POSITIONING OPERATION IN PROGRESS (BIT #13)

136
137

140

143

144

000004
000010

000100

001000

145

004000

148

040000

146
147

}gg

Vv=

PGM=

20
40

100

1000

WRL=

4000

ERR=

40000

010000
020000

MOL=
PIP=

100000

AT4=

}g;
153
154
155
156

DIGB=
GRV=

100000

:DRIVE FORWARD 20'‘/SEC.

(BIT #0)

135

(BIT )

(BIT #2)

:DIFFERENCE LESS THAN 64 (BIT #4)
:DIFFERENCE EOUALS 1
T #5)

sVOLUME VALID (BIT 06)

:DRIVE READY (BIT #7)
DRIVE PRESENT (BIT #8)
PROGRAMABLE (BIT #9)

sWRITE LOCK (BIT #11)

sCOMPOSITE ERROR (BIT #14)

;ATTENTION ACTIVE (BIT #15)

;ERROR REGISTER #01 (RPER1) (#02)
000001
000002
000004
000010

ILF=
ILR=
RMR=
PAR=

2
&
10

sILLEGAL FUNCTION (BIT #0)
sILLEGAL REGISTER (BIT #1)
sREGISTER MODIFICATION REFUSED (BIT #2)
:PARITY ERROR (BIT #3)

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 4=4

SEQ 0043

RP04/5/6 REGISTERS

157

000020

16%
16

001000
002000

158
159
160
161

FER=

;FORMAT ERROR (BIT #4)

000040
000100
000200
000400

WCF=
ECH=
HCE=
HCRC=

4
100
200
400

SWRITE CLOCK FAIL (BIT #5)
:ECC_HARD ERROR (BIT #6)
:HEADER COMPARE ERROR (BIT #7)
:HEADER CRC ERROR (BIT #8)

164
165

004000
010000

WLE=
DTE=

4000
10000

:WRITE LOCK ERROR (BIT
#11)
:DRIVE TIMING ERROR (BIT #12)

167

040000

166
}gg

020000

100000

};(1)

000001
000002
000004

177

000040

}Zg

000001
000002
000004
000010
000020
000040
000100
000200

:DRIVE UNSAFE (BIT #14)

:DATA CHECK ERROR (BIT 15)

DMD=
MCLk=
MINX=

1
2
&

;DIAGINOSTIC MODE (BIT #0)
sMAINTAINABILITY CLOCK (BIT #1)
:MAINTAINABILITY INDEX (BIT #2)

MWR=

:MAINTAINABILITY WRITE (BIT #5)

10
20

200

:MAINTAINABILITY SECTOR CLOCK (BIT #3)
:MAINTAINABILITY READ (BIT #4)

:MAINTAINABILITY SYNC DETECTED (BIT #7)

SATTENTION SUMMARY PSEUDO-REGISTER (RPAS)

(#04)

ATO=
AT1=
AT2=
AT3=
ATé4=
AT5=
ATé=
AT7=

(BIT #0)
(BIT #1)
(BIT #2)
(BIT #3)
(BIT #4)
(BIT #5)
(BIT #6)
(BIT #7)

1
4
&
10
20
40
100
200

sDEVICE O
:DEVICE 1
sDEVICE ;
sDEVICE 3
sDEVICE &
;DEVICE 5
sDEVICE 6
sDEVICE 7

(#05)

;DRIVE TYPE REGISTER (RPDT) (#06)
000001
000002
000004
000010
000020
000040

pT00=
pT01=
DT02=

020000

MOH=

100000

NSA=

000100
000200
000400
004000

209

040000

:OPERATION INCWLETE (BIT M3)

s (EACH BIT IS CALLED BY BIT NUMBER)

201
202
203
204
205
206
207
WN=O

40000

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

sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)

%39

— e

100000

DTSY=

195

nNONON

DCK=

000200

}gz

208

20000

MSTCk=
MRD=

191
192

198
199
200

OP]=

UNS=

000010
000020

}g?

182
183
184
185
186
187
188
‘}38

1000
2000

sMAINTAINABILITY REGISTER (RPMR) (#03)

172
173
174

175
176

AOE=
1AE=

1
2
4
10
20
40

sDRIVE TYPE NUMBER BIT 1
;DRIVE TYPE NUMBER BIT i
:DRIVE TYPE NUMBER BIT

20000

:MOVING HEAD (BIT #13)

pT03=
DT04=
DT05=
DT06=
DT07=
DT08=
DRQ=

100
200
400
4000

sDRIVE TYPE NUMBER BIT 4
:DRIVE TYPE NUMBER BIT 5
:DRIVE TYPE NUMBER BIT 9
sDRIVE TYPE NUMBER BIT
:DRIVE TYPE NUMBER BIT 8
sDRIVE TYPE NUMBER BIT 9
sDRIVE REQUEST REQUIRED (BIT #11)

TAP=

40000

sTAPE DRIVE (BIT #14)

100000

:NOT BLOCK ADDRESSED (BIT #15)

;LOOK-AHEAD REGISTER (RPLA) (#07)

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 4-5

SEQ 0044

2333

g ey ey

0D D D O

By $omg

~ '~

400
1000
2000
4000
10000
20000

1
2
&
10
20
40
100
200

WS NN) =2~ o~ o~~~

001000
002000
004000
010000
020000
040000
100000

EXT1=
EXT2=
EXTé=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
:SC4=
SC10=
$C20=
TRK1=
TRK2=
TRK4=

;RP04 ERROR REGISTER #2 (RPERZ)

(70)

WwCuU=
CSF=

1
2
“
10
20

sWRITE CURRENT UNSAFE (BIT #0)

200
400
1000
2000
4000

:FAILSAFE ENABLED (BIT #7)
:WRITE READY UNSAFE (BIT #8)

WSu=
CSU=
MSE=
TDF=
TUF=
FEN=
WRU=
MHS=
NHS=
IXE=

vu3o=

PLU=
ACU=

40
100

10000

20000
100000

:CURRENT SINK FAILURE (BIT #1)
sWRITE SELECT UNSAFE (BIT #2)

sCURRENT SWITCH UNSAFE (BIT #3)
:MOTOR SEQUENCE ERROR (BIT #4)

sTRANSITIONS DETECTOR FAILURE (BIT #5)
:TRANSITIONS UNSAFE (BIT_#6)

IMULTIPLE HEAD SELECT (BIT #9)
:NO HEAD SELECTION (BIT #10)
s INDEX_ERROR (BIT #11)

:30VOLT UNSAFE (BIT #12)
:PLO UNSAFE (BIT #13)
:AC UNSAFE (BIT #15)

;RP05/6 ERROR REGISTER #02 (RPER2) (#10)
WCU=
CSF=

1
2

WSu=

RAW=
TDF=
TUF=

2
b
1

WRU=
MHS=
NHS=

4
1
2000

PLU=

20000

CSu=

ABS=

IXE=

4000

URITE CURRENT UNSAFE (BIT #0)

sREAD
BIT #4)
sTRANSITIONS DETECTOR FAILURE (BIT #5)
:TRANSITIONS UNSAFE (BIT
#6)

:ABNORMAL STOP

(BIT #7)
E
(

INDEX ERROR (BIT #11

:PLO UNSAFE (BIT #12)
i

S W

241

000001
000002
000004
000010
000020
00004
000100
000200

]
4
8
9

R
RV SCRUERRNRRNERYY

e
T

14
15

e e P

RP04/5/6 REGISTERS

;OFFSET REGISTER (RPOF) (#11)

sOFFSET gS MICRO INCHES (BIT #0)
sOFFSET 50 MICRO INCHES (BIT #1)
;OFFSET 100MICRO INCHES (BITli)
sOFFSET 200MICRO INCHES (BIT #3)

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 4-6

SEQ 0045

RP04/5/6 REGISTERS

000020
000040
000200
002000
004000
010000

0F400=
0F800=

sOFFSET 400

OFREV=
HCI=

0
0

ECI=
FMT22=

MICRO INCHES (BIT #4)

:OFFSET 800 MICRO INCHES (BIT #5)
:OFFSET NEGATIVE (REVERSE) (BIT #5)

HEADER COMPARE INHIBIT (BIT #10)
:ERROR CORRECTION CODE INHIBIT (BIT #11)

:FORMAT BIT (BIT #12)

;DESIRED CYLINDER ADDRESS (RPCA) (#12)
s (EACH BIT IS CALLED BY BIT NUMBER)
sCURRENT CYLINDER ADDRESS (RPCC) (#13)
s (EACH BIT IS CALLED BY BIT NUMBER)

sSERIAL NUMBER REGISTER (RPSN) (#14)
s (EACH IS CALLED BY BIT NUMBER)

PSU=

VUF=
UWR=

ACL=
DCL=
SKI=
oCYL=

1
2
10
40
100
40000
100000

(#15)

sPACK SPEED UNSAFE (BIT #0)

sVELOCITY UNSAFE (BIT
#1)
:ANY UNSAFE EXCEPT READ/WRITE (BIT #3)
:AC LOW (BIT
#5)
;DC LOW (BIT #6)
:SEEK_INCOMPLETE (BIT #14)
:OFF CYLINDER (BIT #15)

sRP05/6 ERROR REGISTER #03 (RPER3)
1
2
40
100
20000
40000
100000

DCU=

WA=

020000
040000
100000

(#15)

:DC UNSAFE (BIT #0)

sWRITE AND OFFSET (BIT #1)
sAC LOW (BIT
#5)
:DC_LOW (BIT #6)
:OPERATOR PLUG ERROR (BIT #13)
:SEEK_INCOMPLETE (BIT #14)
:OFF CYLINDER ERROR (BIT #15)

sECC POSITION REGISTER (RPEC1) (#16)
:(EACH BIT IS CALLED BY BIT NUMBER)
PATTERN REGISTER (RPEC2) (#17)
CH BIT IS CALLED BY BIT NUMBER)

b e

moe

b e e

d e

VONOWVS W=D

WA LN N NN N N N NN

e ok

SRR
ARSREg3ELE34

;RP04 ERROR REGISTER #03 (RPER3)

e
e
B

- OO000
W= NN
—

S23838
353888

RP04/5/6 DRIVER COMMANDS
=
=
=
=

101
103
105
107

JNO OPERATION
sUNLOAD
:SEEK
JRECALIBRATE

113

JRELEASE

DRIVE CLEAR

H
T=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 4~7

SEQ 0046

OMMANDS

OFFSET

115

sOFFSET

151
153

SELDRV
WCKD
WCKHD

145

151
153

sSELECT DRIVE
sWRITE CHECK DATA
sWRITE CHECK HEADER & DATA

171

RDDAT

177

:READ DAT

S2888888883822

11;

1
121
123
131
141
Mg
161
193

173

RTC
READIN
ACK
SEARCH
GETREG
SETFMT

WRTDAT
WRTHD

RDHD

=
=
=
=
=
=
=
=

=
=
=

117
121
1;3
131
141
143
161
193

173

:RETURN TO CENTER LINE
READ IN PRESET
:PACK ACKNOWLEDGE
: SEARCH
:GET REGISTERS
;SET_FORMAT (8 ECI OR WCI)
WRITE DATA
WRITE HEADER € DATA

:READ HEADER € DATA

CZRJDEO M’O‘/SM MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 5

SEQ 0047

TRAP
C

.SBTTL

TRAP CATCHER

=0
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A '‘.+2 HALT"

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
'LOCATIM9 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

DISPREG: - UORD 8

000174
000176

SWREG:

.SBTTL
004166

aNSTART

JMP

S#START1

004216
.SBTTL

;:JUMP TO STARTING ADDRESS OF PROGRAM

:CHANGE THE RW11 unx
SAFTER INITIAL STAR

S ADDRESS

:DO NOT INWIBIT PROGRAHHABLE DRIVES

aNSTART3

;SAME AS 200, EXCEPT, DO NOT INMIBIT

*PROGRAMMABLE DRIVES

ACT11 HOOKS

e AR AR AR AR AR

AR AT R

sHOOKS REQUIRED BY ACTU

::SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)
JMP

004200

;s SOFTWARE DISPLAY REGISTER

.WOR

A R AR AAAARAAARAAAARANAAAIRRAAA
AR AR AN

$SVP
_‘6c=.

:SAVE PC

000046

$ENDAD

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

000052

JWORD

~=$SVPC

40000

..2>ssr Loc. sz TO 40000
3 RESTORE
P

SEQ 0048

COMMON TAGS

.SBTTL

COMMON TAGS

SRR ARRARAARAAAARAAAARA
AR TN AARAAAAAAAAAAAAAAARAAAAAAAAAROAOORONS

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.
001100

001100

001100
00110;

000000
000

001104
001106

000000
000000

001112

000000

00110

001110
001114
001115

001116

000

001157
001160
001164
001165
001166

SICNT:
.WORD
SLPADR: .WORD

0
0

SERTTL: .WORD

SERFLG: .BYTE

SITEMB: .BYTE
SERMAX: .BYTE

000000

001152

001156

0
8

000
001

001140
001142
001144
001146

001154
001155

$PASS:
.WORD
STSTNM: .BYTE

SLPERR: .WORD

000000
000000
000000
000000
000000
000000
000

00115g

.=1100

000000

001120
001122
001124
001126
001130
001132
001134

001135
001136

$CMTAG:

$SERRPC:

$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

.WORD

0
0
1

s:START OF COMMON TAGS

L CONTAINS PASS COUNT
ssCONTAINS THE TEST NUMBER

s ;CONTAINS ERROR FLAG

s sCONTAINS SUBTEST ITERATION COUNT
s ;CONTAINS SCOPE LOOP ADDRESS

::CONTAINS SCOPE RETURN FOR ERRORS
s sCONTAINS TOTAL ERRORS DETECTED

ssCONTAINS ITEM CCNTROL BYTE
s sCONTAINS MAX. ERRORS PER TEST

s sCONTAINS PC OF LAST ERROR INSTRUCTIN

.WORD
.WORD
.WORD
.WORD
LWORD
WORD
$AUTOB: .BYTE

0
0
0
0
0
0
0

s ;CONTAINS ADDRESS OF °*GOOD' DAT.
: sCONTAINS ADDRESS OF ‘BAD‘ DATA
s sCONTAINS °'GOOD* DATA
:CONTAINS °'BAD' DATA
s sRESERVED==NOT TO BE USED

177570
177570
177560
177562

WR
«WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562

DSWR
DDISP

: ;ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
..TT KBD § A Us
sTTY KBD BUFFER

177566

$TPB:

000

$INTAG: .BYTE
WORD

177564

$TPS:

012
207
077
015
012

177564

177566

000

377

ssAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR

:TTY PRINTER STATUS REG. ADDRESS

:sTTY PRINTER BUFFER REG. ADDRESS

SNULL: .BYTE
SFILLS: .BYTE

0
2

$TPFLG:
S$BELL:
$QUES:
$CRLF:
SLF:

0
‘TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
<207><377><377> ; :CODE FOR BELL
sQUESTION MARK
<1S>
..CARRIAGE RETURN
<12>
LINE FEED

$FILLC: .BYTE
377

0
0

.BYTE_
.ASCIZ
.ASCII
.ASCII
ASCIZ

..CWTAINS NULL CHARACTER FOR FILLS
ssCONTAINS # OF FILLER CHARACTERS REQUIRED

..!NSERT FILL CHARS. AFTER A °'LINE_FEED'’

;;ttttttittttttttttlitttt't'I.ttitttt.t'.tti.ttit.'tt.t.'tt"tttt

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 6

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV=81 09:16:17 PAGE 7

SEQ 0049

USER DEF INED TAGS

+SBTTL

USER DEFINED TAGS

001170

176700

SRPADR: .WORD

001502
001204
001206

177546
ooo1og
17777

001172 ooogs:.
001174 173 40
001176 172542
001200 009104.
001210

177777

000000

001220
001232
001242
001244
001246
001250

000000
000000
000000
000000
000000
000000

001216 000000

001252

000

FIRSI’ mness or RH11/RP04/5/6 REGISTERS

$LKS:
.WORD
SLLVEC: .WORD
PCLOCK: .WORD

177546
100
=1

:ADDR OF KW11=L STATUS REGISTER
ADDR OF KW11-L VECTOR
:°0° IF KW11=P IS ON svsrsn

Hi:

WORD

PACK:

.WORD

CLKFLG: .WORD

001512 000074
001214

176700

SRPVEC: .WORD
SLKCSR: .WORD
SLKCSB: .WORD
SLPVEC: .WORD

STATIN:

000000
000000

000

000000
000000

DATE:
OPERID:
DRIVE:
ATIN:
UNIT:
MASK:

RETRY:

gs«
172540
172542
104

.WORD

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

0.0.0.0.0
0.0.0.0
0
0
O
0

.BYTE
:

0.0

RPO4 VECTOR ADDRESS
ADDR OF KW11-P STATUS REGISTER
:ADDR OF KW11-P COUNTER BUFFER
*ADDR OF KW11-PVECTOR
30" ‘r A CLOCK IS AVA

274

IF 60 HZ §v$tEHo

'rwe STATISTICS

m IF 50 HZ SYSTEM

*” COMMAND moxc oa

opemon ENTERED DATE
*OPERATOR ID
:DRIVE # STORAGE: ERRORS 1-5 & 10
*ATTN REG STORAGE: ERRORS 1-5 & 10
:DRIVE # STORAGE FOR PRINTOUT
*ERROR RETRY REGISTER MASK

*ERROR RETRY LIMIT IN THE LOWER BYTE
*RETRY COUNT IN THE UPPER BYTE

001254
001256
1260
001262
001264
001266
001270

000003
000000
000000
000000
000000
000000
00000

FAIRNS:
LSTAD:
CHGADR:
CFLAG:
BADSEC:
HOUR:
MINUTE:

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

3
0
0
0
O
0
O

*MAXIMUM TIME IN QUEUE
VALUE
*STORE LAST MEMORY ADDRESS HERE
cwwcs RH11 uruaus ADDRESS FLAG
:CONTROL C' FLAG
*BAD SECTOR/TRACK FLAG
:HOUR COUNT STORED HERE (MAXIMUM
= 999.)
*MINUTE'S COUNT STORED HERE

001274

000000

SIXTEE: .WORD

*TIMER ROUTINE COUNTER (FOR ONE SECOND)

001272

001276

001300

000000

177777

000

SECOND: .WORD

ZROIND: .WORD

FRSTER: .BYTE

001301

000

BYTE

001302

000000

SAVER1: .WORD

000000

ERCTR:

.WORD

000000

CMCNT:

.WORD

001304

091306

000000

mmg 000000
€91312

001314

001316
001317

000000

000
000

SAVERS: .WORD

LIMIT:

CMCYL:

CMSEC:
CMTRK:

.WORD

.BYTE
.BYTE

001320
001322
001326

000000
000000
000000

ECBIT:
.WORD
ECSEC:
.WORD
ECMSKO: .WORD

001330

000000

ECWRD:

001336

000000

oo13§3 000000

001332
001334
001340

001344 00002

000022

.UORD

ECBAD1: .WORD

SECLMT: .WORD

TRKLMT: .WORD

u= < 0. MISCOMPARSION FOUND

MISCOMPARSION OR CAN'T MATCH PATTERN FLAG

1r <0

mon IN BUFFER

*SAVE ui

*SAVE RS usne

*NUMBER OF ERRORS

*CYLINDER ADDRESS

0
0

0
0
0

ECGD1:

YIF > o PROCESSING 'DCKER® OR CAN'T MATCH PATTERN

ECWRD1: .WORD

000000

*DATA COMPARE ERROR FLAG

SDISPLAY LIMIT

ECGD:
.WORD
ECBADO: .WORD

*ZERO INDICATOR FOR me DATA COMPARE ROUTINE

.WORD

000000
000000

001342 ooooog
001346

ECMSK1: .WORD

*SECOND'S COUNT STORED HERE

0
0
8

21.

18.

*WORD COUNT

*SECTOR ADDRESS
*TRACK ADDRESS

*ERROR BURST BIT OFFSET
*ERROR BURST WORD OFFSET (neunve TO SECTOR)
*CORRECTION MASK FOR FIRST ERROR

*CORRECTION MASK FOR SECOND ERROR WORD
*LOCATION OF FIRST ERROR
:GOOD DATA, FIRST WORD
*BAD DATA, FIRST WORD

*LOCATION OF SECOND ERROR WORD
+GOOD DATA,

SECOND

:BAD DATA, SECOND WORD

*SECTOR AbonssS LIMIT
*TRACK ADDRESS LIMIT

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 7-1

SEQ@ 0050

USER DEF INED TAGS

001350

000632

CYLIMT: .WORD
.SBTTL

410.

sCYLINDER ADDRESS LIMIT FOR RP04/5'S

; (CHANGED TO 814. FOR RP06)

COMMON PARAMETERS

;PROGRAM USES THESE PARAMETERS TO DETERMINE REGULAR END OF PASS
001352

002740

ENDCN:

.WORD

002740

1 875X10%8 WORDS (10) [3Xx109 BITS]

001356

143300

ENDSK:

.WORD

143300

3 X 106 SEEKS

001354

001360

005455
000055

JWORD
JWORD

005455
S5

MSW

(LSW)

:PROGRAM USES THESE PARAMETERS TO DETERMINE Q.V. END OF PASS
001362
001364

120274
000005

001370

000005

001366

QVCON:

134330

QVSEK:

.WORD
WORD

120274
S

MORD

.WORD

134330

2 3437x1o~7 WORDS (10)

3 75 X 10*5 SEEKS (10)
*MSW

:THE NUMBERS TO DETERMINE END OF PASS ARE LOADED IN HERE BY THE PROGRAM.
:THE FIRST TIME THROUGH, THE QV PARAMETERS ARE USED, AFTER THAT THE
*REGULAR PARAMETERS ARE USED.

001372
001374
001376

001400

000000
000000
000000
000000

ENDCON: .WORD
WORD
ENDSEK: .WORD

0
O
0

001402
001404

000001
000000

PASCNT:
MAXDL:

1
O

001406
001410

000144
000005

001414
001416

001420
001422

WORD

.WORD
.WORD

MAXER:
.WORD
INTRVL: .WORD

100.
5.0

000004
000001

CMPLMT: .WORD
FORMAT: .WORD

&
1

000000

WCSEL:

000003

000000

RATIO:

.WORD
:

;NUMBER OF PASSES TO END OF TEST
*MAXIMUM DATA TRANFER SIZE IN WORDS

*(FILLED BY PROGRAM AT STARTUP OR BY OPERATOR
*DURING PARAMETER ENTRY DIALOG.)
.mmn ERRORS = 100(10)
*FIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL

&1”‘ngnures»

SECOND WORD IS THE INTERVAL

:COUNTER.

UPPER BYTE IS VALUE.

<1F EQ 0,

DO'NOT ALLOW WRITE HEADER & DATA ORDERS

*NUMBER OF COMPARE ERRORS TYPED OUT
*IF NOT EQ 0, ALLOW WRITE HEADER & DATA ORDERS

xr 53
70 0bgsfiume A RANDOM WORD COUNT

xr nor so TO 0, USE THE VALUE IN "MAXDL® FOR
.WORD

THE WORD COUNT

*READ/WRITE RATIO CRANGE 0 -

0 - 9/8
1 -

mmmnn

26 = 4/4

:5-3/5

001424

006001

AUTOCK: .WORD

$2%$%
*1F NOTEQ 0, DO AN APPROPRITE WRITE
: cnscx rtéa EACH WRITE ORDER.
CIF eoooSELECT WRITE CHECK ORDERS

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 7-2

SEQ@ 0051

COMMON PARAME TERS

001426

000001

NOTPRT: .WORD

sIF EQ1, DO NOT PRINT DATA ERROR MESSAGES

aigogiflfbWITH OPERATOR SPECIFIED

AREAS.

:IF EfgaoSPRINT ERROR MESSAGES RELATING TO
001430

000001

ENDET:

.WORD

F_NOT EQ 5 END OF PASS DETERMINED

8Y ms *WORDS READ®' COUNT.

1F EQ0. END or PASS DETERMINED
BY THE SEEK COUNT.
.SBTTL

VALUES FOR FIRST OPERATION

BEGPAT: .WORD
BEGCOD: .WORD

10
5

sSTARTING PATTERN CODE
:STARTING COMMAND CODE

[RANGE 1 = 17 (OCTAL)]
CRANGE 0 = 5)

:0= WRITE CHECK DATA (*WCKD'®)

WRITE CHECK HEADER Q,DATA ("WCHKHD*)
WR

001436

000404

BEGSIZ: .WORD

404

WRITE HEADER & DATA ('WRTHD')
READ DATA (°RDDAT®)
READ HEADER & DATA (°RDHD®)
TING RECORD SIZE CRANGE 4 - MAXMEM]
:

THE SIZE MUST BE AT LEAST 4 IF

E DATA OR READ DATA; THE SIZE MUST

:BE AT LEAST 8 IF WRITE HEADER

A OR READ HEADER AND DATA.
IF THE SIZE 1S GREATER THAN 1 SECTOR, THE

:SIZE MUST ALLOW FOR OVERLAPPING 4 OR 8
:WORDS INTO THE LAST SECTOR USED.

.SBTTL

001440

000000

001462

000000

001464

000000

001506

000000

001530

000000

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

ORDERQ: .WORD

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

ASNLST: .WORD

000000

DUNIT:

.wWORD

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

;ADDRESSES OF DRIVES TO BE DEASSIGNED

000000

NEWUNT: .WORD

0,0,0,0,0,0,0.0.0

sADDRESSES OF NEWLY ASSIGNED DRIVES

000000

AVAIL:

.wWwORD

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

sLIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS

001552

000000

WAIT:

.WORD

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

sLIST OF DRIVES WAITING FOR BUFFERS

001574

000000

PARQ:

.WORD

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

sLIST OF DRIVES WAITING FOR NEXT PARAMETERS

001616

000000

000024

BUFTBL: .WORD

-REPT

;LIST OF DRIVES PERFORMING COMMANDS

sA BIT SET IS AN ASSIGNED DRIVE

;BUFFER ALLOCATION TABLE ENTRY COUNT

001620
001624
001630
001634
001640
001644
001650

000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000060
000000

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

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

001664
001670
001674
001700
001704
001710
001714
001720
001726
001730
001734

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000
000000
000000
000000
000000

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

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

001740
001742
001744
001746
001750
001752
001754
001756

043110
043414
043720
044224
044530
045034
045340
045644

BLKADR: .WORD
.WORD
WORD
.WORD
.WORD
«WORD
.WORD
.WORD

DRIVE%
DRIVE
DRIVE4
DRIVES
DRIVE
DRIVE

sADDRESS OF
sADDRESS OF
sADDRESS OF
sADDRESS OF
sADDRESS OF
;ADDRESS OF

001760
001761

151
153

COMTBL: .BYTE
.BYTE

WCKD
WCKHD

;WRITE CHECK DATA
sWRITE CHECK HEADER AND DATA

00176
001764
001765

163
171
173

.BYTE
.BYTE
.BYTE

WRTHD
RDDAT
RDHD

sWRITE HEADER AND DATA
sREAD DATA
sREAD HEADER AND DATA

001766
001767

002
004

.BYTE
.BYTE

2
&

sUNLOAD
+SEEK

00176;

161

.BYTE

OPTBL:

DRIVEO

DRIVE1

WRTDAT

sADDRESS OF THE BLOCK FOR DRIVE 0

sADDRESS OF THE BLOCK FOR DRIVE 1

;WRITE DATA

THE BLOCK FOR DRIVE ;
THE BLOCK FOR DRIVE
THE BLOCK FOR DRIVE 4
THE BLOCK FOR DRIVE 5
THE BLOCK FOR DRIVE 9
THE BLOCK FOR DRIVE

—
—

SEQ 0052

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 S5-NOV-81 09:16:17 PAGE 8

SEQ 0053

ABLES, CONSTANTS, AND VARIABLE LOCATIONS

881;;?
17;;

17
177%

14
1

001775

001;;9
001
00
002001
00 00;
00.

850

002005
002006

g?
7

.BYTE
BYTE

BYTE
BYTE

.BYTE

g
1

:DRIVE
CLEAR
*RELEASE
;RECAL

14
1

SOFFSET
*RETURN TO CENTERLINE

:READIN PRESET

BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE

60
92

*PACK ACKNOWLEDGE
: SEARCH
JWRITE CHECK DATA
SWRITE CHECK MEADER AND DATA
JWRITE DATA
:WRITE HEADER AND DATA

.BYTE
.BYTE

72
-

JREAD HEADER AND DATA
sTERMINATOR

.ASCIZ

/UNLOAD /

BYTE

0
52
70

*READ DATA

.EVEN

002010

125

116

114

002050
005060
002070
002100
002110
002120

122
117
125
12
120
123

10
106
124
105
101
105

114
10?
10
101
103
101

"ASCIZ
.ASCIZ
ASCIZ
"ASCIZ
"ASCIZ
.ASCIZ

/RELSE /
/OFFSET /
/RTC
/READIN
/PACK
/SEARCH

7
/
7
/

103
122
122
104

113
124
124
104

LASCIZ
LASCIZ
"ASCIZ
"ASCIZ

/WCKHD
/VWRTDAT
/WRTHD
/RDDAT

/
/
/
/

117

116

0020
0020
00

002130

002140
002150
0021
002170

002200

002210

153
122
104

127

1%7
127
127
122

122

116

002220

000

00222

020

002221
00222

002224
002225
0022;3
0022
002231
00223

105
105
12;

103

104

002235

260

002240
002242
002244
002246
002250
002252

002274
002327
oogses
002417
002453
002507

MNTBL:

113

LASCIZ
ASCIZ
.ASCIZ

LASCIZ

110

.ASCIZ

ASCIZ

OFFCOD: .BYTE

010
210

220
030
230
020
220
040

105
103
126

BYTE
BYTE

/WCKD

/RDHD
7/

/
/

;OFFSET CODE TABLE

10
210

14200 U INCHES
:=200 U INCHES

BYTE
BYTE
.BYTE
"BYTE
BYTE
BYTE

gzo
30
230,0
so
220
40

2=400 U
14600 U
:=600 U
:"33 U
1=400
U
14800 U

"BYTE

360.0

3-1500 U INCHES, TERMINATOR

OFMTBL: .WORD
.WORD
.WORD
"WORD
.WORD
.WORD

OFMSGO
OFMSG1
OFMSG
OFMSG
OFMSG4
OFMSGS

:1ST OFFSET MESSAGE
2 gND OFFSET MESSAGE
*3RD OFFSET MESSAGE
*4TH OFFSET MESSAGE
:STH OFFSET MESSAGE
*6TH OFFSET MESSAGE

BYTE

000

/SEEK
/
/RECAL /
/DRVCLR /

14400
U INCHES

INCHES
INCHES
INCHES, TERMINATOR
INCHES
INCHES
INCHES

%ZIJOEO RP04/5/6 MLT=DR LGC MACRO V04 .00 S-NOV-81 09:16:17 PAGE 8-1

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 8-2

SEQ 0054

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

543
274

+WORD
+WORD

45;
57
63;
?6

«WORD
+WORD
.WORD
+WORD

617

002264
00
88

7¢

002724

002274
002327
005 ;
00241
002453
002507
00254
00257
002633
002667
002724

101
101
101
101
101
101
101
101
101
101
101

106
124
124
126
124
124
124
124
124
124
124

124
040
048
040
040
040
040
040
040
040
040

MSGO:
OFMSG1:
OFMSG2:
OFMSG3:
OFMSG4:
OFMSG5:
OFMSG6:
OFMSG7:
OFMSG8:
OFMSG9:
OFMSGA:

OFMS
OFMS

s7TH OFFSET MESSAGE
s1ST OFFSET MESSAGE

OFMS
OFMSG
OFHSGs
OFMSG

s3TH OFFSET MESSAGE
:gTH OFFSET MESSAGE
s9TH OFFSET MESSAGE
:10TH OFFSET MESSAGE

+WORD

OFMSG

.WORD

OFMSGA

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

s4TH OFFSET MESSAGE

s11TH OFFSET MESSAGE

/AFTER RETRY WITHOUT OFFSET/
/AT OFFSET +
MICRO=-INCHES/
/AT OFFSET =
MICRO=-INCHES/
/AT OFFSET +
MICRO=-INCHES/
/AT OFFSET =400
MICRO=-INCHES/
/AT OFFSET +
MICRO-INCHES/
/AT OFFSET
=600 MICRO=-InCHES/
/AT OFFSET +800 MICRO=-INCHES/
/AT OFFSET =800 MICRO=-INCHES/
/AT OFFSET +1200 MICRO-INCHES/
/AT OFFSET =1200 MICRO-INCHES/

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 9

SEQ 0055

DATA PATTERNS

.SBTTL

DATA PATTERNS

0
DATA1
DATA1+40

STNDAT:

sSTANDARD PATA PATTERN POINTER TABLE

DATA1+400
LATA1+440
DATA1+500
DATA1+540

DATA1+642
~

OO0 O0O0O0O0O0O0OO0O0OO0O—=O

DATAO:

DATA1:

; ZEROES
sONES
;DUMMY DATA PATTERN

s STANDARD PATTERN 1

177777
177776

;STANDARD PATTERN 2

CZRJDED RPO4L/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 9-1

DATA PATTERNS

00 1

177774

0031
0031
0031
0031 log
003142
003144
00;1 &6
003150
003152
003154
00%1 56
003160
003162
003164

1 777;8
777
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000

WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
.WORD

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

0031

000000

.WORD

000000

.WORD
.WORD

000000
0000

003170
003172
003174
003176
3200

003202
3204

900000
000000
177777
177777
177777

.WORD
.WORD
.WORD
.WORD
.WORD

000000
00009
1777
177777
177777

003206
003210
003212
003214
003216
3220

177777
177777

177777

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

0032264

177777

.WORD

003226
3230
003232
3234
003236

000000
010421
02104
03146
042104

.WORD
.WORD
WORD
.WORD
.WORD

003242
003244
003246
003250
003252
003254
003256

063146
073567
104210
114631
1%525;
13567
146314

.WORD

-WORD
.WORD
.WORD
.WORD
. WORD
.WORD
WORD

052525

003264 1 77779

.WORD

197779

003270 055555

003222

003240

177777

05;525

.WORD

;STANDARD PATTERN 3

177777
177777
00000
17777
000909
17777

009900

177777

000000
010421
0 106;
03146
04 1glo

;STANDARD PATTERN 4

149
07356
104210
114631
1;5255
1 Sg7
146314

.WORD 05 5;5

003266

052525

+WORD

052525

003272
003274
003%8
3
003302

05 SiS
1252
12525
12525
052525

.WORD
WORD
.WORD
.WORD
.WORD

052525
12525
12525
12525
05252

;STANDARD PATTERN 5

SEQ@ 0056

DATA PATTERNS

MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 9-2

CZRJDEO RP04/5/6

003306
003306
003310
Q03312
Q03314
Q03316
003320
003322
003324

052525
1
195
03252
125252
03252
125252
05252
125252

WORD
JWORD
.WORD
WORD
WORD
WORD
WORD
VORD
WORD

052525
1
12505
05232
125232
05232
123252
03232
125252

003326
003330
003332
00333%
003336
003340
003342
003344
003346
003350
003352
003356
003356
3360
003362
3364

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360
007417
170360
007417
170360

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

007417
007417
007417
170360
170360
170360
007417
00741
170360
170360
0074
170360
007417
170360
00741
170360

:STANDARD PATTERN 6

3366
003370
Q03372
00337
003376
3400
003402
3404
3606
003410
003412
003414
003416
003420
003422
003424

026455
026455
026453
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026453
151322

.MORD
LWORD.WORD
woRD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
WORD
WORD
WORD
WoRD
WORD
JWORD

026455
026453
026455
151322
1513
15132
026455
026435
151322
151322
02643
131322
0264
151322
0264
151322

:STANDARD PATTERN 7

003453
003430
003432
003434
Q0336
003440
003442
3444
003446
003450
003452
003434
003456

165555
133333
185355
133333
163553
133333
163553
133333
165553
133333
183553
133333
165555

.WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
WORD
WORD
WoRD
LWORD

165555
133333
163353
133333
163353
133333
163355
133333
183553
133333
16355
133335
16355

;STANDARD PATTERN 8

SEQ 0057

CZRJDED RPO4/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 9-3

DATA PATTERNS

°°§¥‘:§ P§ %5
88
13333

Vb %’§§’§
JWORD 1 ssg

003466
003470

000001
000002

.WORD
.WORD

00347

003502

000100

003510

901000

003520

0035

003306

000400

-WORD

.WORD

000001
000002

ozg

000100

"YoRD 000400
001000

020000

‘WoRb 004000
.WORD 010000
.WORD
020200

003526

177776

LMORD

177776

003532
003534
3536
003540
003542
003544
003546
003550
003552
003554

177773
177767
177757
177737
177677
177577
177377
176777
175777
173777

"WORD

"WORD
"WORD
JWORD
WORD
"WORD
"WORD
JWORD
WORD
"WORD
WORD

003360 137777

-WORD

177773
177767
177757
177737
177677
177577
177377
176777
175777
173777

‘Yory

‘2"77

.WORD

077777

003566

172666

LWORD

003572
003574

172666
155555

~WORD

WORD
"WORD

172
1555

-WORD
-WORD

‘7§§‘2
15555
wgggg

003315 004000
003516 o10388
003530 177775

3564

167777

077777

003570 155555

003576 172
S 11
003604 1s§ss

17777

1s§ 82

WORD 17 622
8
g
-WORD 1s§2§?

3606 17;
1555
003612 17;

"WORD

gus
1
003624 1555

=
.WORD
15555

003626

LWORD

077777

WORD

:STANDARD PATTERN
1

137777

003610

003630 137777

;STANDARD PATTERN 9

000040

.WORD

003556

077777

137777

;STANDARD

pe—

PATTERN

:STANDARD PATTERN
1

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 9-4

DATA PATTERNS

177776

15333;

152333

066667
15333;

1533%3

15333;

185335
123&337

:STANDARD PATTERN 13

066667
15333;
06666
153333
066667
153333
066667
153333
066667

177777
177777

;STANDARD PATTERN 14

b d b de

b d e b e e d ek =D O

00000
7777

177777

;STANDARD PATTERN 15

SEQ 0059

885“"‘"

§§

ClRJDEO RPO‘/SM MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 9-5l

004024

WORD
WORD
WORD

000000
000000
000000
000000

SEQ 0060

CZRJDEQ RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 10

SEQ 0061

ERROR POINTER TABLE

.SBTTL

ERROR POINTER TABLE

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

:*LOCATION SITEMS. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE l$ PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC

:*NOTE2:

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAI'ED AS FOLLOWS:

:*
'

EM
DH
DT
DF

. 004026

$ERRTB

;ERROR 1

9 004026 046240
8 004030
9 004032

}(1) 0040

050700
051332

:;POINTS
:sPOINTS
:;POINTS
:;POINTS

TO THE ERROR MESSAGE
TO THE DATA HEADER
TO THE DATA
TO THE DATA FORMAT

EM1

sRH11 INTERRUPT OCCURRED (RPAS = 0)

DH2

UNEXPECTED ATTENTION

DH3

sMASSBUS PARITY

DH4

:MA

;ADDRESS P

sRH1 DIDN'T R ESPOND T TO ADDRESSING

DH1
bT

;ERROR 2

14 004036

6303

EM2

16 004042

051336

pT2

15 004040 050705

}; 004044
%8

RED

;ERROR 3

21 004046

6341

EM3

23 004052
%lso 004054

051354
0

DT3

22 004050 050762

’

ERROR (MCPE=1)

ERROR &

28 004056

004

046377

EMé4

30 004062
31 004064

051364
000000

DTé
0

35 004066

046434

EM5

37 004072
333 004074

051336
000000

051010

36 004070 050705

2(1)

——

PARITY

ERROR

.
T

(PAR=1)

CHAN

e e P

ERROR 6

42
25 004076
004100

046470
051047

M6
SH6

44 004102
45 004104

051376
000000

DTé

FRES IrRaR

o
00

BADTMO: MOV

004122
§j§58:

SFRE N3 RS INN&

177777

001260

035336

N
o
N
o

nesrone STACK POINTER
TYPE ASCIZ STRING
GET OVER THE ASCIZ

<CRLF>/UNEXPECTE b BUS

MOV

RO,=(SP)

START OF PROGRAM

START:

CLR
CLR
BR

START1: MOV

TIMEOUT, PC=/

sSETUP FOR TYPING OUT PC

sPUT "HALT(0)' INSTRUCTION HERE IF YOU WISH
;TO STOP ON UNEXPECTED TIMEOUT.

.SBTTL

RESET

00000

(SP)+,(SP)+

:SAVE PC WHERE THE TIME OUT OCCURED
:ADJUST PC =2

-ASCIZ

MOV
BR
000001 035336 START3: MOV
001260
CLR
000000
START2: INC
BNE

000001

NN
VIVASS N
SHNONSO
W

RReROR
N&
SN

260

=(ROJ

TYPOC
NOP

001260
035336

(SP) RO

TST

(NP

.SBTTL

FRR SRERSR
<
S 3537

3awo~mbu-a
NNNNNNNNB—C-‘—I-.-.-D-.-._._.

sTHIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

ss2 53 238 558
5 RRNER
RREZ

OIS
-

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV=81 09:16:17 PAGE 11
ERROR POINTER TABLE

CHGADR
TSTPGM
START2

;CLEAR THE RH11 ADDRESS CHANGE FLAG
*DISABLE PROGRAMMABLE DRIVES
:START THE PROGRAM

#-1,CHGADR

:SET RH11 ADDRESS CHANGE FLAG

#1,TSTPGM
START2
#1,TSTPGM
CHGADR
#0
-

*ENABLE PROGRAMMABLE DRIVES
*START THE PROGRAM
;ENABLE PROGRAMMABLE DRIVES
:CLEAR THE RH11 ADDRESS CHANGE FLAG
;TTY LOOP, WAIT FOR INCREMENT
*0F WORD
*CLEAR THE WORLD

INITIALIZE THE COMMON TAGS

:3CLEAR THE COMMON TAGS (SCMTAG) AREA

001100
001140
001100

MOV
CLR
CMP
ens

#SCMTAG,R6
(R6)+
#SWR,R6
.6
#STACK, SP

;;FIRST LOCATION TO BE CLEARED
:;CLEAR MEMORY LOCATION
+ :DONE?
$2L00P BACK IF NO
::SETUP THE STACK POINTER

031712
000030 ..mnuuze
” 'S!a‘{.‘a&*.%iem
L3 EHT VECTOR FOR ERROR ROUTINE
000345 000032
nov
mo utmve 5 ..L 5
03424.8 000034

MOV

176543 033632
123456 033634

MOV
MOV

00034

036

000004
004364 000004
177570 oomo
177570 og
177777 174560
004372

MOV

»vss

rm vecron FOR TRAP CALLS

moahmvsco .Lt

76543, $H1
i ms me RANDOM NUMBER GENERATOR
2 S6.SLONUM - :BOTH HIGH mo LOW WORDS

;:S12E
FOR A ggmpws SGITCH REGISTER. 17 NOT FOUND OR 17 1S
::EQUAL TO A *=1"', SETUP FOR A SOFTWARE SWITCH REGISTER.

648:

MOV
MOV
MOV
MOV
CMP
BNE
BR
MOV

@N#ERRVEC
, = (SP)
ms ménve

m:sfi oxsmv
#-1,3S6R

658

#65$, (SP)

:;SAVE ERRORVECTOR
*SET UP ERROR VECTOR
..ss UP FOR A HARDWARE SWICH REGISTER
A HARDWARE DISPLAY REGISTER
*:TRY TO REFERENCE HARDWARE SWR
: ;BRANCH IF NO TIMEOUT TRAP OCCURRED
SAND THE mowcs SWR IS NOT = =1
ZBRANCH IF NO TIMEOUT
*3SET UP FOR TRAP RETURN

SEQ 0062

CZRJDED RP04/5/6 HLY-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 11 %

SEQ 0063

INITIALIZE THE
COMMON TAGS

888176 001140 658:
s 001142
e
012637

012737

668:

004106
000300

000004
000006

::POINT TO SOFTWARE SWR

MOV

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

MOV
MOV

aoxspnécDISPLAY

#BADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT
#PR6,ERRVEC+2
:LEVEL 6

TYPE PROGRAM NAME

INC

#-1

:sFIRST TIME?

aps

SSTYPE ASCIZsmé??z

BNE

004442

#SWREG, S

::TYPE THE ume OF THE PROGRAM IF FIRST PASS

177777

678

*BRANCH
IF NO

::688: .ASCIZ <CRLF>aCZRJDEO - fiPOL/glé
MULTI DRIVE LOGIC TEST@<CRLF>

678:

.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER

~
HE&EN
W
OOW
-~ NWNWVINNNNNYN ~N

N WWWWWNWWNWN
u8

—OON)

$3GET SOFT=SWR SETTINGS

18:

ENDCN.ENDCON
:SET UP FOR NORMAL PASS
ENDCN+2,ENDCON+2
ENDSK,Suosex
ENDSK+2 ,ENDSEK+2
#260,EMTVEC+2 :CHANGE EMT PRIORITY TO S
mo TRAPVEC+2 :CHANGE TRAP PRIORITY TO §
:rmsr START ?
3s
:BR IF NOT
G2, an6
SACT11 mronmc MODE?
1$
*BRANCH IF NO
#1,TSTPGM
*ENABLE PROGRAMMABLE DRIVES
TSTPGM
*CAN ue USE PROGRAMMABLE DRIVES?

TYPE

,USE

STYPE MSG

:AUTO ACCEPT OR CHAIN MODE ?

,LOADRV

INSTRUCT THE OPERATOR ON HOW TO TEST DRIVE 0

000041

BEQ
ST

BNE
CMPB
BNE
TYPE

030400

38:

*BRANCH IF NO

3s
#11, 3441
33

JSR

;:SET AUTO-MODE INDICATOR

INT

BR IF EITHER
:LOADED FROM AN RP04/5/6 ?
IF NOT

TURN ON THE KEYBOARD INTERRUPT

SBTTL GET mue foa somm SUITCH REGISTER

000042

000001

..sorrwe SWITCH REG SELECTED?
*BRANCH IF NO

MOV
MOV
MOV
MOV
MOV
MOV
INC
BNE
CMP
BNE
MOV
ST

056712

001140

g;sm

SWR, #SWREG
708

#1,SAUTOB

2s:

000011

:;ARE WE RUNNING UNDER XXDP/ACT?
$:BRANCH IF YES

MOVE

000046
035336

w62
698

93::

001372

—bbbbb

001134

eue

CMP
BNE

000176

NS
N2
~N
W

§§§§§§§§§§§§§ 333333

SRLRSS TR

MOV

;SETUP “‘TIMEOUT'' TRAP VECTOR FOR uuexrecreo BUS TIMEOUTS

.SBTTL

fiNO

rUKYs

004372

000176

001134

w62

:;ARE WE RUNNING UNDER XXDP/ACT?

g;sm

$:GET SOFT=-SWR SETTINGS

#1,$AUTOB

::SET AUTO-MODE INDICATOR

BNE
CMP
BNE

71$:
72%:

MOVB

718
SWR, #SWREG
728

::BRANCH IF YES
..sonme SWITCH REG SELECTED?
*:BRANCH
IF NO

VALUE FOR SOF TWARE SWITCH REGISTER

59 0047, g

885 27

60 0047
61 004736
eg 004740
63 004746
64 0047564
65 004760
69
67 004762
68 004766
93 004772
004776
71 005000
7§ 005006
7 oosoog
7% 005012
75 005016
76 005026
005030

1015
004737
o1§7 7
013737
8857 7
001002
004737
005037
012705
005025
022705
001374
012706
005037
013737
005037
005037

81 005050
g 005054

005037
042737

78 005034
79 005040
005044

005037
005037
005037

177777

INC

056302

001170 034502
001172 034504
000042

055764
001214
001440
001740
001100
177776
001212 001274

48:
5$:

001266

001270

001272
001412
001216

001262
170060

*BR IF NOT
*CHECK RH11 BUS ADDRESS
:RH11 ADDRESS
:RH11 VECTOR ADDRESS
:ACT=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
;LOOK FOR END OF CLEAR AREA
*BR IF NOT FINISHED
*SETUP THE STACK POINTER
*CLEAR THE mogs SOR STATUS WORD
21760 TH OR 1/50 TH SECOND COUNTER VALUE
*CLEAR THE HOUR'S COUNTER
:CLEAR THE MINUTE'S COUNTER

CLR
BIC

CFLAG
#170000, MAXER

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

SEC
INTRVL +2
PACK

*CLEAR THE SECOND'S COUNTER
:CLEAR INTERVAL COUNTER
:CLEAR THE 'R’ OR 'W' COMMAND FLAG

;ROUTINE TO DETERMINE BUFFER AREA SIZE

86 005062

87 005066
88 005070
89 005074
90 005102
91 005110
92 005116
93 oongl.

005227

001005
004737
013737
012737
012737
013737
162737

177777

056142
056272
055764
001256
055764
9 005132 000241
95 005134 006037 001622
96 005140 mgm
146
97 005146 023727 001256
98 005154

99 005156
100 005162

101 005164
1o§ 005172
103 005176
104 005200
105 005206
106 005214

1034

105737
ooug;

162737
005737
00101;
012737
023737
103403

SIZMEM: INC

001256
001616
001620
001622
001622

1$:

001622
100000

013534
001404

3s:

001404
001622

”g

#-1

;SEE IF TIME TO SIZE MEMORY

1$
:BR IF NOT
PC,$SIZE
*SEE HOW MUCH MEMORY ON SYSTEM
SLSTAD,LSTAD
:SAVE THE LAST ADDRESS
#1,8UF TBL
*LOAD NUMBER OF BUFFERS
#ENDPGM,BUF TBL+2" ;STARTING ADDRESS OF BUFFER
LSTAD,BUFTBL+4 :LAST ADDR TO BUFFER ALLOCATION TABLE
#ENDPGM,BUF TBL+4 ; SUBTRACT PROGRAM SPACE
;CLEAR THE °C' BIT

ROR
SUB
cTMP

BUF TBL +4
#100. ,BUFTBL+4
LSTAD
. #100000

TSTB
BEQ

&1
3s

*SEE WHO LOADED THE PROGRAM
*BR IF LOADED BY PAPER TAPE

*BR IF NOT

BLO

000041

003000 001622
001404

BNE
JSR
MOV
MOV
MOV
MOV
SUB
L

107 005216 013737 oouszg 001404
}% 005224 013737 001622 054754 4$:

*CONVERT TO WORD COUNT
:SAVE ROOM FOR THE 'ABS®' LOADER
-16K ON THE SYSTEM ?
:BR IF YES

SUB
TST
BNE
MOV
CMP

#1536. ,BUFTBL+4 ' ;SUBTRACT 'XXDP' LOADER SIZE
MAXDL
;VALUE IN "MAXDL® ?
4
*BR IF VALUE IS
#5980. ,MAXDL
-ASSUME FULL TRACK + 1 SEC MAXIMUM
MAXDL ,BUFTBL+4 :IS THAT TOO LARGE ?

MOV
MOV

BUFTBL+4,MAXDL :USE MAX AVAIL MEMORY AS MAX BUFFER SIZE
BUF TBL+4 ,PARLST+2 :VALUE FOR THE PARAMETER TABLE

BLO

;SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS

n§ 005232

005737

000042

114 005240
115 005244

104401
104411

055050

113

:FIRST START ?

1]
PC,BUSADR
SRPADR,RPADR
SRPVEC.RPVEC
e
‘s
PC,OPRDAT
STATIN
#ORDERQ,RS
(RS)+
#BLKADR RS
58
#STACK, SP
PS
HZ,SIXTEE
HOUR
MINUTE

CLR
CLR
CLR

001406

#-1

BNE
JSR
MOV
MOV
ST
BNE
JSR
CLR
MOV
CLR
CMP
BNE
MOV
CLR
MOV
CLR
CLR

005236

001022

LKPAR:

TST

:*XXDP* CHAIN MODE OR 'ACT11' OPERATION ?

TYPE
RDL IN

,ASKPAR

*ASK FOR PARMETERS
*READ THE ENTRY

BNE

SETVEC

*BR IF YES

SEQ 0064

—20

ns
DEO RP04/5/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 11-2

—

~
o
NWNNW

wWwuvvae

--0

'fl

88888
888
Vi
o

000131

000004

001404

MoV

NwnN

N=~N

282802
R

OO NON

NSO

S5E ¥M§M\fi\h\fl\fl\fl\fl\h\h\h\h
R

D e
D
D
e
D d e
d
D
D
d
— e

022714
034520
177777
177777

034442
000000

000004

173600

000340

177776

001165
053672

SETVEC: JSR
JSR

118:

1$%:

sPARAMETER TABLE ADDRESS

sGET _THE PARAMETER ENTRY

;1S THE 'MAXDL® VALUE OK ?
:BR_IF IT IS

;SET "MAXDL® TO THE MINIMUM VALUE

A NS
=2 NN
NO
N —a
WOOOOO0O=
~NnN

S=X<88

053605
2$:

053626
000010

034364

3s:

053441
053514

128:

053662

4$:

5%:
6$:

sSTART THE CLOCK
sINITIALIZE THE RP04/5/6 DRIVER

+SCRLF
.SYSTAT

s€
:TYPE STATUS HEADING

MoV

Ré,=(SP)

::SAVE R4 FOR TYPEOUT

2
0
,LINGSP
DRVSTA(R&)

::TYPE 2 DIGIT(S)

#5W02,aSWR
108

sSET THE SAVE REGISTERS FLAG
sCHECK FOR FIRST START
:BR IF FIRST START
sTYPEOUT THE DRIVE STATUS TABLE ?
:BR_IF NOT

D:IVE TABLE POINTER

118

sSET PRIORITY TO 7

::TYPE DRIVE NUMBER
;.60 TYPE-°0CTAL ASCII
.gsu?:gess LEADING ZEROS
+ CHECK onxve S STATUS

BMI]
BNE
TSTB
BEQ
BPL
TYPE
BR

BR
BITB

#81T03, oavrvp(nl)

TYPE

,NOUSE
és
UNTOFF

TYPE

TYPE
TYPE

8lT18

053716
000002

PC,CKCLK
PC.RPINIT

#-1,SAVEFG
-1 00

TYPE
TST8

034364

Sa28

W)
=

sADDRESS OF ENTRY TO RS
UASIEN53¥
A 'Y' (YES)

MoV
ADD
8CC
BIT
BNE
MOV
CLR
TYPE
TYPE

.BYTE
.BYTE

VIS

SETVEC

BHIS

053361
034354

#PARLST ,R3
PC,PARE!T

MOV
JSR
CMP

TYPOS

o
e e
e
o
e
e
o
e
e
e

#'Y, (RS)

054752
026604
001404

ENTPR:

(SP)+,RS

CHPB
BNE

DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT
THE PROGRAM WILL USE

VIS
B BB BB
VONOWVS
W =O VNNV WY
=

o
e o
o
e e
d
b

SEQ 0065

WARE SWITCH REGISTER

D d

D e D

d ek =D

23
o3
<S
SHW
o0 BUFTRRRTESRNERRRRNRIEIS
>

PO‘IS/S MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 11-§

MoV

BITB
BNE

5$
DgVTYP(Rk)
$

NOTRP

NOTPRS

128

NOTSAF

és

-UNTON

iLINSP

:BR IF UNSAFE

*BR IF ONLINE
*SEE IF OFFLINE oa NONEXISTENT
:BR IF nonsxxs ENT

*BR IF OFFLINE

*DRIVE NOT AN RP04/5/6

*CHECK NEXT DRIVE
oaxve NOT PRESENT
HECK NEXT DRIVE
:DRIVE PROGRAMMABLE?

H 1F NO
*PRINT MSG
:PRINT DRIVE TYPE
:DRIVE OFFLINE
:PRINT DRIVE TYPE
:DRIVE
UNSAFE
:PRINT DRIVE TYPE

.gRIVE ONL INE

PACES
DRESS Of RPO4 MESSAGE

P04B, 8%

ggxrooonvrvp<a4$

:BR’ I ES
ADDRESS OF RPO5 MESSAGE

caxroi
onvrvp<n4$
78

«—

— X

8
DEO RP0O4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 11-4
VALUE FOR SOF TWARE SWITCH REGiSTER

1;% 5336

1
};1

526

5
g

1046401

012737
1 56 1

17§ SS‘S §§04 [4

174 88555

1303

179 005564 000137

178
179
180
181 005570
lgi 005574
183
00557
184 00560
185 005608
186 005610
187 005614
188 005616
189 005624
}g? 005626
19% 005632
193 005636
194 005642
195
196
197
198 005646
199 005652

200 005654
58 005660

005536

:
8s:

9s:
108:

MOV

TYPE
MWORD

TYPE
INC

CMP
BNE

TYPE

CLR

JMP

#RPO6, 8
O

$CRLF

R4, 48,
1$

SCRLF

MONTR

SEQ 0066

:ADDRESS
OF RP06 MESSAGE

:TYPE THE DRIVE TYPE MESSAGE
nsssase ADDRESS HERE

+CR=LF

mcnsnm ,DRIVE NUMBER/TABLE POINTER

+FINISHED
:BR IF nor
CR=LF

ssr PRIORITY BACK TO '0'

*CHECK FOR °*XXDP' OR 'ACT11°' MONITOR

;SETUP IF *XXDP' OR ACT11' OPERATION
885737
160;
88473
5227
001011
105737
00140?
02372

MONTR:

18:

004737
104401
000137

TST

:*XXDP* CHAIN MODE OR °"ACT11' AUTO ACCEPT

JSR
INC
BNE

PC ,ASGN2
»-1
2

*ASSIGN DRIVES
:FIRST START
?
*BR
IF NOT

BEQ

TSTB
BEQ

CMP

103002
104401

BHIS
TYPE

28:

aNé1

.LOADED FROM PAPER TAPE ?
*BR IF YES

:BR IF YES

LSTAD,#100000
,NOLOAD

JSR

PC,STKINT

JMP

MAINT

TYPE

*BR IF NEITHER

,INTDON

:MORE THAN 16K ON THE SYSTEM ?
*TELL THE OPERATOR THAT THE
:WILL BE OVERWRITTEN

013700
00100

00013
000005

000240
000240
000137

$GET42: MOV
18:

BNE
JMP

RESET

SENDAD: JSR

NOP
NOP
NOP
$DOAGN: JMP

42,R0

18
MAIN1

PC, (RO)

START

'XXDP' LOADER

:INITIALIZE THE KEYBOARD INTERRUPT HANDLER

STYPE

*INITIALIZE COMPLETE'

*START THE PROGRAM

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

20%
005662 004710
204 005664 000240
205
206 005670
207 005672

053723

:MONITOR ADDRESS

*BR IF MONITOR
*NONE, CONTINUE

*CLEAR EVERYTHING

:GO TO THE MONITOR

*SAVE ROOM
:
SACT1
*START AGAIN

CZRJDEO RP04/5/6 MLT=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 12

SEQ 0067

- NN

(=1~}

MAIN PROGRAM

MAIN:

MOV
MOV

#8. .R3
oognxt.as

BNE

18:

W= =W
WN=WNN-=

NOONS
D NYNS D NYNNNNS B YN
ONW
NOO—=WV=ONO==O=0OW
b b U SV
b md cd cd SN AN A b e

(=]
o
8288
= wd =d AN
O N b ed d L
8M)8RES
288828828
—

—

.SBTTL

000002

2%:

001462

005646
001530

3s:

4$:

000002
001552

5%:
6$:

000002
054171
023200

78:

ADD
DEC
BNE
ST
BNE
JMP

o;.ns
R
13
ASNLST
MAINT
$GET42

(R1)

MOV

#AVAIL ,R1

BEQ
CMP
BEQ
ADD
BR
MOV

13
(R1), (RS)
78
#2.R1
4
MAIT,R1

BEQ
CMP
BEQ
ADD
BR
MOV

2s
(R1), (RS)
78
#2.R1
6%
(R1) ,RO

TYPE
JSR

CLR

020032

(RS)

JSR

(R1)

,DEASSG
PC,TYPEST

(rS)

(R1)

PC,CMPRES

;DRIVE COUNTER

:ADDRESS OF *DROP DRIVE® TABLE

s SEE IF ENTRY AT PRESENT POSITION
:BR IF THERE IS ONE
s INCREMENT TO NEXT TABLE POSITION

:DECREMENT DRIVE COUNTER
:BR IF MORE TO CMECK

BA:!"
DRIVES ACTIVE ’

IF YES
sCHECK FOR MONITOR RETURN

:ADDRESS OF ‘AVAILABLE DRIVES® TABLE

;SEE IF AT END OF TABLE
:BR IF AT END: GO CHECK *WAIT® TABLE
g ?RIVESIN 'AVAIL® THE ONE TO BE DROPPED

s INCREMENT °AVAIL® TABLE ADDRESS

:CONTINUE LOOKING

:MOVE THE ADDRESS OF THE BUFFER UAIT TABLE

AT THE END OF THE 'WAIT® TABLE
?

:BR IF YES: SEE IF ANY ME *DROP* REQUESTS

:DRIVE IN THE "WAIT' TABLE
?

:BR IF IT IS
INCRE*NT 'HAIT' TABLE ADDRESS

ONTINUE L
THROUGH THE 'WAIT' TABL
PUT THE DRIVE S _BLOCK ADDRESS IN RO

sTYPE 'DRIVE DEASSIGNED'
:TYPE THE DRIVE'S PERFORMANCE SUMMARY
:CLEAR THE "DROP DRIVE® TABLE ENTRY
sREMOVE THE DRIVE FROM THE ‘AVAIL®' OR °"WAIT' TABLE
s COMPRESS THE RESPECTIVE TABLE
:SEE IF ANY MORE DRIVES

;LOOK FOR DRIVES TO BE ASSIGNED
000010

MAIN1:

001506

1$:

000002

2$:

—

3883883888
-3 AN = i

meoSN33¢

S838883833838838338383388
v bbbl
v v
v v v v iy

W —
NN§-~8dd-‘-‘-‘d-‘dd-‘
OO NN
NN = O 000 NO NS WA =

MAIN PROGRAM

053506

MOV
CLR
CLR
CLR
TST

#8..R3
R2
Ré
RS
NEWUNT (RS)

BNE
ADD
INC
DEC
BNE
BR

3$
#2.RS
Ré
R3
13
MAIN2

MOV

R&,~(SP)

TYPE

,UNTMSG

TYPOS

054237
001530
000002

.BYTE
.BYTE

4$:

TYPE

BEQ
ADD

,ASGND

AVAIL (R2)

X3
#2.R2

:DRIVE COUNT
s"AVAIL®' INDEX
:ASSIGN LIST INDEX
:NEW DRIVE INDEX

:NEW DRIVE IN THIS POSITION
:BR _IF THERE IS

s INCREMENT RS

: INCREMENT ASS'GN INDEX
;DECREMENT DRIVE COUNT
:BR IF MORE DRIVES

S;Q?TEWERATIMS FOR THE AVAILABLE DRIVES
sSAVE Ré FOR TYPEOUT

..TVPE DRIVE NUMBER
::60 TYPE--OCTAL ASCII
::TYPE 2 DIGIT(S)

s ¢ SUPPRESS LEADING ZEROS

:YASS IGNED*

;AT END OF AVAILABLE TABLE
sBR IF YES
s INCREMENT AVAILABLE TABLE INDEX

0
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 12-1

SEQ 0068

MAIN PROGRAM

54 00611
S 00611

0061

§7 006124 1564

58 0061
59 oomg 06270

1506 001530

34.4.7 001462

S$:

2? 00614 ooon

BR
MOV

‘s
neuwms».nvuun )

BISB

CLR

NEWUNT (RS)

MOV
ADD

mxs(az).fio
0g.n

LOOKING FOR END OF TABLE
novs ADDR OF DRIVE INTO AVAIL LST

RIVE OUT OF NEW mve naa.e

ATABIT(R&) Asmstser DRIVE ASSIGNED INDICA

:PUT STARTING ADDRESS OF uocx IN RO
* INCREMENT AVAILABLE TABLE POINTER

:LOOK FOR MORE DRIVES

‘%

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

THE *AVAILABLE®' QUEUE

65 006144 005737 001552
66 006150 001113

MAIN2:

TST
BNE

67 006152
68 006156

oosogs
005762

69 oomgg 001551

001530

18:

CLR
TST

BEQ

WAIT
MAIN3

;OUTSTANDING BUFFER REQUESTS
*BR IF THERE ARE

IDLE

*BRANCH
IF NONE

R2
AVAIL (R2)

:CLEAR DRIVE TABLE POINTER
*ANY DRIVES WAITING FOR PARAMETERS

70 006162
016200 001530
71 006166 005760 000104
g 006172 001021

MOV
ST
BNE

mu(nz) RO
SNEXT (RO
6%

75 006202
76 006206
77 006210
78 006214

004737 020050
000415
012701 001574
020011

JSR
B8R
MOV
CMP

PC,WRTPK
78’
#PARQ,R1
RO, (R1)

80 006220
81 006222

005721
001403

ST
BEQ

(R1)+
58

:AT END OF THE QUEUE
*BR IF AT END

PC.SELPAR
PC.GETPAR
-($P)

saecr THE PARAMETERS
*LOAD NEW PARAMETERS
MAKE ROOM ON THE STACK FOR THE BUFFER ADDR

006176
7% 006200

79 006216

105760
001403

000026

TST8
BEQ

28:
3s:

001403

82 006224 000773
83 006226 004737 020032
84 006232
85 006236
86 006242

87 006244

004737
004737
ooso:.g

004737

016750
017624

68:
78:

016174

BEQ

3s
PC,CMPRES

JSR

PC,GETBUF

JSR
JSR
CLR

MOV
BEQ

91 006262

oosogo

CLR

93 006272

012705

56 004737 016544

9§ 006266

004737

9% 006%8 005725
95 006
001376

016672

001440

100 006316

005725

}3'5 %352

05?2(3,;

101 006320
1o§ 006322
10 ooegu

oomg
01004
8001.17

000072

8$:

109 oosgzg 005 80 000072
107 006
062
000002
108 006346

00070,

119 006354

005725

109 006350 o1§;g

001552

9s:

*GET DATA PACK PARAMETERS
*GET THE BUFFER
*ADDRESS OF THE PARAMETER QUEUE
:IS CURRENT DRIVE IN THE QUEUE ?
:BR IF IT IS

:CONTINUE LOOKING
*COMPRESS THE TABLE
‘GET BUFFER

nove BUFFER ADDR TO DPB
BR IF '0' ADDR (NO BUFFER)

$FAIR(RO)

:CLEAR THE 'FAIRNESS® COUNT

PC.FILBUF

JSR

PC,GODRIV

:FILL THE BUFFER

:PUT CURRENT DP8 IN DRIVER

MOV

#ORDERQ,RS

*ADDRESS OF ORDER QUEUE IN RS

BNE
MOV

RO,=(RS)
SPACK(RO)
108
#PARQ,RS

PUT uogx ADDRESS INTO QUEUE
:
COMMAND FOR DRIVE ?
.ea xr exHER
:PUT BLOCK INTO THE PARAMETER QUEUE

BNE
MOV
B8R

=2
RO,=(RS)
10§

*BR IF NOT AT END OF QUEUE
:PUT BLOCK ADDRESS INTO THE QUEUE
:CONTINUE LOOKING

3;A1am0).rm~s

",‘"“52“" IN THE QUEUE LONG ENOUGH ?

INC
ADD
B8R
MOV

$FAIR(RO)
#2.R2
18’
#UAIT RS

WAIT' QUEUE ADDRESS

001254

:'R* OR 'W' COMMAND FOR THE DRIVE ?
*BR IF NOT

(SP)+,$BUF (RO)
8%

JSR

ST
BNE
MOV
TSTB

96 006302 010045
97 006304 105762 000026
98 006310 00102
99 006312 012705 001574

B8R
JSR

88 006250 012660 000006
89 006254 oou.gl.

SPACK(RO)
2

:CONTROL BLOCK ADDR IN RO
*PARAMETERS seeu SELECTED ?
aa IF THEY HAVE

(RS) +
<2

(RS) +

.euo or oueus
:BRI

*FIND THE END OF THE QUEUE

*INCREMENT THE ENTRY COUNT
*INCR ensm THE POINTER

|,oox FOR SOME MORE DRIVES
:LOOK FOR AN OPENING

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 12-5

SEQ 0069

MAIN PROGRAM

m ooegzs
11; 006
113 006
114 006
115 006372
}}9 006376

120 006400

1 7g
1624
12701
;g1
004737
000666

oo1s§8
0015
020032

013700

124 ooea;s
125 006420
126 006453
127 006430
128 006434
129 006440
1;0 006444
131 006446
132 006450
133 006452

oo1oo;
000137
004737
004737
005060
012705
005725
001376
010045
105760

135 006460
136 006464
137 006466
138 006470
139 006472
140 006476

012705
005725
001376
010045
012701
004737

134 006456 001005

}21 006502

}’é

001552

000520

006504
016544
016672
000072
001440

001552
020032

001433
005760
001773
162701
010146
004737
ooo;Ao
004737

005037
004737
004737

001264
027036
027064

159 006560
160 006564

012705
oosr;s

001530

012601

001440

01114
004737
004737

166 006602
167 006606

005737
001403

18:

28:

FésZéraur
(SP)+,$BUF (RO)

BNE
JMP
JSR
JSR
CLR
MOV
ST
BNE
MOV
TSTB

13
IDLE
PC.FILBUF
PC.GODRIV
$FAIR(RO)
#ORDERQ,RS
(RS) +
=2
RO,=(RS)
SPACK(RO)

MOV
ST
BNE
MOV
MOV
JSR

#PARQ,RS
(RS)
+
=2
RO, =(RS)
MAIT R
PC.CMPRES

BNE

IDLE:

18:

000016
000002
016030
007042

161 ooes% 0013 g

162 006570
163 006572
;gg 006576

SSA

WAIT,RO

B8R

MAIN2

MOV

#ORDERQ R1

BEQ
ST
BEQ
SUB
MOV
JSR
NOP
JSR

IDLE1
$TATUS (RO)
18
#2.R1
R1,=(SP)
PC.STATIS

JWAIT FOR AN ORDER TO FINISH

147 006512
148 006514
149 006520
150 006522
151 ooesgs
1s§ 006530
153 0065
154 006536
155 006542
156 006546
157 006552

158 006556

MOV

001574

012701

012100

MAIN3:

000026

145 006504

146 006510

-2
AVAIL(R2) ,=(RS)
#AVAIL ,R1
R2.R
PC.CMPRES
13

:BR IF NONE YET

{MOVE DRIVE'S BLOCK ADDRESS TO QUEUE

:'AVAILABLE'® TABLE ADDRESS
:FORM ADDRESS OF LAST ENTRY
:COMPRESS THE TABLE
:CONTINUE LOOKING

;GET BUFFER ASSIGNMENTS FOR DRIVES IN THE °"BUFFER WAIT' QUEUE

15) 00406 012660
092933 000006
016174

1z§ 006412

108:

BNE
MOV
MOV
ADD
JSR
BR

020032
016330
001262

IDLE1:

sTRY TO GET A BUFFER

;MOVE THE BUFFER ADDR TO THE DPB
:BR IF A BUFFER WAS ASSIGNED
sNO BUFFER AVAILABLE YET
sFILL _THE BUFFER
sPUT THE ENTRY IN THE DRIVER
sCLEAR THE °'FAIRNESS' COUNT
sADDRESS OF ORDER QUEUE IN RS
sAT ;Pfi.; THE QUEUE
sPUT BLOCK ADDRESE IN QUEUE
:'R' OR "W’ COMMAND FOR DRIVE ?
sBR IF YES, DON'T _PUT BLOCK INTO °'PARQ’

:FIND THE END OF THE PARAMETER QUEUE
:g:flxl Sl'.‘?; IN THE QUEUE ?
:

sPUT BLOCK ADDRESS INTO THE QUEUE
sADDRESS OF TABLE TO TO COMPRESS
sCOMPRESS THE WAIT TABLE
;LOOK FOR MORE ENTRIES

CLR
JSR
JSR

PC,PROCES
BADSEC
PC,ABNRML
PC.EOP

MOV
ST

#AVAIL RS
(RS)+

MOV
JSR
JSR

(R1),=(RS)
PC,CMPRES
PC .RELBUF

sADDRESS OF THE ORDER QUEUE IN R1
sPUT BLOCK ADDRESS INTO RO
:BR_IF END OF QUEUE
sSEE _IF DRIVE FINISHED
:BR_IF DRIVE NOT FINISHED
s CORRECT THE QUEUE POINTER
sSAVE THE QUEUE ADDRESS
sACCUMULATE STATISTICS FOR DRIVE IN RO
sDEBUGGING AID
sPROCESS END OF ORDER
sCLEAR THE BAD TRK/SEC ERROR INDICATOR
sSEE IF ANY DRIVES HAVE TOO MANY ERRORS
sSEE_IF ANY DRIVE HAS XFERED 3X10*9 BITS
sRESTORE THE ORDER TABLE INDEX
sFIND THE END OF THE °AVAILABLE®' TABLE
cEND OF THE TABLE ?
:BR IF NOT AT END OF LIST
sMOVE THE BLOCK ADDRESS INTO THE TABLE
:COMPRESS THE ORDER QUEUE
sRESTORE BUFFER

TST
BEQ

CFLAG
18

s 'CONTROL C' FLAG ENTERED ?
:BR IF IT WAS

MOV

28:

sMOVE THE °"WAIT' ENTRY TO RO
sMAKE ROOM ON THE STACK FOR THE BUFFER ADDR

BNE

(R1)+,R0

(SP)+,R1

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 12-3

SEQ@ 0070

MAIN PROGRAM

168 006610

737

193 006614
7 ;
170
006616
777
17
4
1097
1;;
g 005737
1
0014
174 006636

175 006640

005037

004737

024212
000006

JSR

172314

001214
001214

179 006656

004737

181

004737 020032

2s:

016750

000137 005676

38:

}gg

STATIN

*CLEAR THE INDICATOR

JSR

PC,STATPR

ST
BEQ
MOV
JSR

180 ooeazs 012701 001574

sSERVICE THE KEYBOARD

mbs
#5W02,aSWR
2s
3"""
$

CLR

023116

176 006644 005737 001574
177 006650 001410
178 006652 013700 001574

}g% 006672

18:

PC,KSR

BR
BIT
BNE
ST
BEQ

MOV
JSR

JMP

PARQ
3s
PARQ, RO

PC,SELPAR

#PARQ,R1

PC.CMPRES

MAIN

svs EM WAS BUSY
TYPE PERFORMANCE SUMMARY
aa IF NOT
STIME TO TYPE THE PERFORMANCE SUMMARY ?
*BR
IF NOT
*TYPE THE 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

:COMPRESS THE PARAMETER QUEUE

:CONTINUE THE LOOP

:SETUP TO REFORMAT AN ERROR SECTOR

186 006676

032777

000001

172234

188 006706

032777

000200

172224

191 006722

001446

187 006704 001055

189 006714
190 006716

001051
005737 001416

REFMT:

BIT

#SW0,aSWR

sREAD ONLY SWITCH SET ?

BIT

#SW7,aSWR

SSWITCH 7 SET ?

BEQ

REFMTX

BNE

BNE
ST

REFMTX

REFMTX
FORMAT

:BR IF IT IS

:BR IF IT IS
*WRITE HEADER & DATA ORDERS ALLOWED ?
*BR IF NOT

19; 006724
016060
272 000100
193 006732 004737 022616

MOV
JSR

195 006742 112660
76
196 006746 o1§m
04 000102
197 006754 023727 001404 000404

MOVB
MOV
CMP

<sm.SNSEC(RO) :SECTOR ADDR TO DPB
#260. . SNWRDL (R0)* ;WORD COUNT FOR FORMAT
MAXDL . #260.
;CAN A FULL SECTOR BE WRITTEN ?

199 006764

013760 001404

MOV

MAXDL , SNWRD (ao> :PUT TRANSFER SIZE INTO THE DPB

201 007000
0070046

004737
110560

JSR
MOVB

PC.GETPAT
RS.SNPATC(RO)

205 007022
007024

005711
001405

007030

001374

BNE

004737 020032

JSR

194 006736 112660
198 006762

200 006772

077

103003

112760

017576
75

000102
000074

go 007010 012760 177777 000104
04 007016
012701 001574

20 oorogg 020021
209 007032

005041

211 007040

000207

210 007034

MOVB

BHIS

1$:

28:

wccmm.sucvuko) :USE PRESENT CYLINDER
EADDR
:GET CORRECTED SECTOR-TRACK ADDRESSES

sfi» SNTRK(RO) :TRACK ADDR TO DPB
18

*BR IF IT CAN

#3,SNCODE(RG)

:COMMAND CODE

MOV
MOV

#-1,SNEXT(RO)
#PARQ,R1

:SET PARAMETERS SELECTED INDICATOR
*SET UP TO SEE IF BLOCK IN THE PARAMETER QUEUE

CMP

RO, (R1)+

MOVB

ST
BEQ
CLR

REFMTX: RTS

*GET A PATTERN
:PATTERN CODE TO CONTROL BLOCK

(R1)
REFMTX

*SEE IF AT END OF TABLE
*BR IF AT END

*BR IF NOT

=(R1)

PC,CMPRES
PC

*SEE ur BLOCK AT PRESENT POSITION
:CLEAR THE ENTRY

*COMPRESS THE TABLE
*RETURN

SEQ 0071

MAIN PROGRAM

:PROCESS THE ORDER TERMINATION

§4 007042
111937 001246
oorol.g 005 39 000016

PROCES: MOVB
ST

S 00705

1234.

goo

032760

040000

000234

10 007074

032760

040000

000246

9007 56

0078&

007072

760

141

00101

100000 000234

11 007102 00101
1; 007106 0047
o13§7g
13 007110 004737 01337
1% 007114

032777

15 007122 00100
19 °°71§'6 004737
013456
}. 007130
000207

2s:

53
21

:BR'IF NOT SET

ERPROC

:BR IF SET

ERPROC
PC,CKERR
PC . CKBUS

SET
;g moa. CHECK ERROR BITS ANYWAY
ERROR, CHECX BUS ADDR & WC

2
PC,CMPAR
PC

*BR IF NOT
*NO ERROR, COMPARE DATA
*RETURN

BIT

#BIT14,8RPCST1(RO

:SEE IF 'TRE®' SET

BIT

#81T14,$RPDS1 (aoS

sss IF "ERR® SET

BIT

#SW01,aSWR

BNE

172016

:DRIVE NUMBER FOR ANY ERROR MESSAGES

BMI

BEQ

18:

(RO),UNIT

swus(ao)
:SEE IF DRIVER SIGNALED AN ERROR
g
*BR IF ERROR
aem LSRPCST1(ROS ;SEE IF °*SC* SET

BNE
JSR
JSR
BNE
JSR
RTS

*DATA COMPARE
?

;ORDER TERMINATED WITH AN ERROR = PROCESS THE ERROR
007132

032760

000200

zg 007140 oouo;
5‘ 007142
007566

000016

ERPROC: BIT

BEQ
JMP

mror $TATUS(RO) ;DONE BIT SET ?

ERPR
ooue

:BR IF ORDER DIDN'T COMPLETE NORMALLY
*PROCESS ERROR WITH *DONE® BIT SET

;PROCESS ORDER COMPLETION WITH 'ERROR' & °'DONE NOT® BITS

27 007146

032760

010000

28 0071564 001025
007156 032760 004000
007164 001055

000016

ERPRC1: BIT

#BIT12,STATUS(RO) ;SEE IF DRIVE WAS UNSAFE

BNE
BIT
BNE

PUNSAF
IF YES
#BITI smusmos :PARITY ERROR OCCURRED
UCPAR
IF IT DID

33 007176 032760 001000 000016
007204 001076
S 007206 032760 040002 000016

BNE

BIT
BNE
BIT

#BIT09, smusmosn
MEOUT?
SWTIM
YES
mrwsxm m’tus(ao) :DRIVE WENT OFFLINE ?

37 007516

032760

BIT

oem $TATUS(RO) ;PORT REQUEST TIME OUT ?

29 007226

000207

RTS

1 007166

007174

36 007214

007224

032760

001056

001111

001141

002000

000016

000004

000016

4.5 007230 104401 001165
44 007234
45 007240

104401
104401

46 007244

013746

007250
oorzs;

104403
002

00725
47 007254

046630 054213

001246

BNE

PUNSAF: TYPE
TYPE
TYPE

004737

023726

.DRNUM

PC.LiNEl

JSR

020546

,SCRLF
.EM12

TYPOS
.BYTE

DISPLY

004737

FLIN

UNIT,=(SP)

046630

S0 007270

FALPAR

MOV

1064414

020502

mno.mwsmos :FATAL PARITY ERROR?

:DRIVE IS PERSISTENTLY UNSAFE

.BYTE
TYPE

004737

0073064

BIT

000
1o:.4g1 001165

48 007260

9 007, 94

000016

IF_THERE IS ONE

:BR IF I1T°DID

:BR IF IT DID

*ERROR. RETURN

:CR=LF
*'DRIVE UNSAFE® MESSAGE
*DRIVE NUMBER

: :SAVE unn FOR TYPEOUT

::TYPEDRIVE NUMBER

,SCRLF

*60 rvpe-ocm ASCII
..rvre 2 DIGIT(S)
SUPPRESS LEADING ZEROS
.ca-u.

,EMI

*PERSISTENT DEVICE UNSAFE MESSAGE

PRINT LINE 1 OF ERROR MESSAGE

fic.uus§

m
NT LINE 5 OF ERROR MESSAGE

PC.INCTOT

:mcnsneur TOTAL ERROR COUNT

CZRJDED RPO4L/S/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 13

CZRJDED RPO4/5/6 MLT=DR LGC MACRO 704.00 5-NOV-81 09:16:17 PAGE 13-1

SEQ 0072

MAIN PROGRAM

007310

004737

S 007314 000137

832;66

JSR

026760

JMP

PC,LINE?

DROP

:PRINT LINE 7 OF ERROR MESSAGE

*DROP THE DRIVE

;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED

§9 007

104401

61 007

000404

60 007326

104401

001165

UCPAR:

046532

g‘

TYPE

,SCRLF

:CR=LF

B8R

FALPR1

*FINISH PROCESSING THE ERROR

TYPE

LEMI

: 'UNCORRECTABLE PARITY ERROR® MESSAGE

;*FATAL® MASSBUS PARITY ERROR OCCURRED

65 oorgsz
66 007 sg
67 oo;g:
68 007346
007352
007354
007355

104401 oongs
104401 046575
104401 83/.513
013746
001246
104403
002
000

70 00

004737 023726
032777 100000

69 007356

0073764

104401

001165

001401

007376 000000

;'s' 007400

FALPAR: TYPE
TYPE
FALPR1: TYPE
MOV
TYPOS
BYTE
BYTE

000207

TYPE

JSR
BIT

171544

BEQ

18:

HALT
RTS

,SCRLF
.EM11
.DRNUM
UNIT,=(SP)
2
0

$CRLF

PC, INCTOT
#SU15,3SWR
18

;CR=LF
*FATAL PARITY ERROR® MESSAGE
*DRIVE NUMBER
::SAVE UNIT FOR TYPEOUT
::TYPE DRIVE NUMBER
:36G0 TYPE=-OCTAL ASCII
:3TYPE 2 DIGIT(S)
*:SUPPRESS LEADING ZEROS
$CR=LF

* INCREMENT TOTAL ERROR COUNT
*HALT ON ERROR?

*BR IF NOT

*ERROR HALT

;SOFTWARE TIMEOUT OCCURRED

78 007402
79 007406

004737
104414

020502
046661

81 007416
82 007422

004737
004737

021154
021630

84 007432

004737

022264

80 007412

83 007426

004737 020546

004737

gg 007436 000207
87
88
89 007440
90 007444
91 007450

92 007454

007460

00746,
00746

93 007494.

9 007470
95 007476

SWTIM:

023726

JSR
DISPLY

PC,LINE1
,EMT3

:PRINT LINE 1 OF ERROR MESSAGE
*PRINT THE TIME OUT MESSAGE

JSR
JSR

PC.LINES
PC.LINE&

*PRINT LINE 3 OF ERROR MESSAGE
:PRINT LINE & OF ERROR MESSAGE

JSR
JSR

JSR

RTS

écLINE2

PC.INCTOT

PC.LINE?

*PRINT LINE 2 OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT

PRINT LINE 7 OF ERROR MESSAGE

*RETURN

:DRIVE WENT OFFLINE

TYPE

,SCRLF

013746 001246

MOV

UNIT,=(SP)

104403

TYPOS

104401
104401
104401

002
000

001165

046733
054213

OFLIN:

TYPE
TYPE

PC.LINE

6c.uue§

332

gf {',‘,‘,{m

001165

TYPE

104414

873

DISPLY

007500 004737

ozosoi

20546

97 007504
98 007510

004737
8&7?

021154
021630

JSR
JSR

335 007524

000137 026760

JMP

16’3 %%3 004;3; 8 3552

:CR=LF

:'DRIVE WENT OFFLINE® MESSAGE
*DRIVE NUMBER

*:SAVE UNIT FOR TYFEOUT
::TYPE DRIVE NUMBER

..so rvpe-ocm ASCI1I

.BYTE
.BYTE

104401

004737

EM14
,DRNUM

$CRLF

EMT4

PC,LINE
PC,LINES

DROP

::TYPE 2 DIGIT(S)
3 umsss LEADING ZEROS
:CR-LF

:PRINT LINE 1 OF THE ERROR MESSAGE
sPRINT OFFLINE MESSAGE

:PRINT LINE § OF ms ERROR MESSAGE
:PRINT LINE 3 OF THE ERROR MESSAGE
INT LINE & OF
ERROR MESSAGE

%fiffi?"f&‘k'?’é‘ We‘ Enfig‘a"MESSAGE
:DROP THE DRIVE

}82

105
1
109

SEQ 0073

:PORT REQUEST TIMEOUT ERROR

007530
7536

007540

007544
007550
110
007554

111 007560
112 007564

004737
104414

zo;gz
3 6

004737
004737
ool.rgr

021154
021630
023726

004737
004737
000207

546

022264

PRTIM:

JSR
PC flm
DISPLY
EM

:TYPE LINE 1 OF THE ERROR MESSAGE
*PRINT PORT TIME OUT MESSAGE

JSR
JSR
JSR

PC.LINE
PC.,LINES
PC.INCTOT

sTYPE LINE 3 OF THE ERROR MESSAGE
sTYPE LINE & OF THE ERROR MES
mcmem TOTAL ERROR COUNT

.-nsruau

6c.u~e§

JSR

PC.LINE?

RTS

:TYPE LINE 2 OF THE ERROR MESSAGE
TYPE LINE 7 OF THE ERROR MESSAGE

-{a)

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 13-5
MAIN PROGRAM

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14

SEQ 0074

MAIN PROGRAM

:PROCESS ORDER COMPLETION WITH 'ERROR' & 'DONE’ BITS SET

00
0075

032760
0014
1

032923 040000 000246

80gzso 000020 000250

007
007
00
00
00

80gno

000030 000016 DONE:
812770

0000 000244

oowg;
000137
012534
:
032760 000400 000250 1$:
oou.o;
137 011212

ooo13; 011374

BIT
BEQ
JMP

#81T04'817T03, mrus(ao) :UNSAFE OCCURRED
+6
aa F NOT
UNSAF
POR UNSAFE

g'x‘;

#,8BIT14,mcszmo)m{; ;gge' SET ?

BNE
JMP
BIT
BEQ
JMP

1s
:BR
IF SET
TRF
PROCESS °'TRE'
mm SRPER1(ROS: 'HCRC® SET?
.+6
ekxF NOT
HCRCER
PROCESS °'MCRC®

BIT

JMP

#81T14,8RPDS1(ROS :CHECK 'ERR®

ngmLSRPER1 (RO}ak'm' smT

CKF

HECK FORMAT ERRCR

CKH

CHECK *HCE' ERROR

OPIE

REPORT *OP]*

PARER

neronr 'PAR’

REPORT ‘WCF*

IAEER

REPORT ' IAE°

WLEER

*REPORT

:'AE* & 'LST' SET,

6rm

REPORT °'DTE® ERROR

%;62‘6 83%30 000200 000250

cagrwsmmao)
ak'"w ESET

5? 88;%5 8(3)%{80 020000 000250

gg;

cagm,SRPER1 (RO}ak.m' ;e;;r

%‘ %;;?2

000250

000040

000250

Eé.',

aagrs,SRPER1(RO) 5,,“"' ser;Er

000250

BIT
BEQ

mno SRPERT(ROS:*IAE® SET?
+6
:BR IF NOT SET

000250

BIT
BEQ

#81T11,SRPER1 (ROS
: 'WLE® SET?
.+6
:BR
IF NOT SET

BIT
BEQ
BIT
BEQ

007666 ooo13; 011570

zg 007702 ooo13; 012070
&3)%{80

000010

25 007716 000137

012222

59 33;;%5

83%:7.30

007736
30 007744

032760
001402

002000

007752
007760

032760
00147

004600

35 007766
36 0077764
37 007776
38 010004

032760
001405
032760
001401

001000

000250

002000

000246

2? 3}83}2

3514.3°

010000

000250

040000

000244

28 007732

13; 012672

31 007746 000137 012314
33

3% 007762 000137

39 010006

000207

‘§ 010020 000137

012346

012200

:‘.‘ 3383%'2’

83%’{60

29 3}%2

gosno

000250

gg 8}005

%gzgg

140000

45 010034 ooo1g; 010664

48 o1ool.g ooo”%g; 010072

51 010062C
06 00013 012531.

JMP
JMP
JMP

JMP

JMP
JMP

2s:

Sé{

aegnl. sapcszmosm.fgs mx); ;ugx- SET

;g{

sazemmo)

JMP

Sé;

JMP

§’§
57 010100

oegnzsapemmo)m.fgs mx’; 'DTE'

JMP

000276

‘WLE®

osm SRPER1(R0)" ; *AOE® SET?
2
:BR IF NOT SET
#81T10,SRPDS1(ROY;°'LST® SET?
28
.afi IF NOT SET

Sé,’,

JMP

gg 010066 000137 011342
56 010072

RTS

08%13+SRPER1 (RO)éR
PAR' MSJ?;ET

WCKER

SET

EXIT

*REPORT 'WC ;

"ESEJ'NG?“' SET

PROcsss ‘DK’

cagns'sml.wt
? ) ub;s's"' OR "OCYL® SET

SKIER
DRVER

nspon ERROR

*REPORT DRIVE ERROR

;PROCESS DATA ('DCK') CHECK ERROR

022760

101406

010042

000300

DCKER:

CMP

BLOS

#10042,SRPECT1(RO)
18

:VALID POSITION COUNT ?

:BR’IF NOT VALID

CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV=81 09:16:17 PAGE 14~1

SEQ 0075

NN=2N) O = =2 YN

g_ufi

:=%
353 323 3522RSReE

eRes¥geseeges2388382383
258
e}
ol

S8 2£225822288 28882838832 SR
SN ONS VANV
O =

LR RRRRRRSSSoSSSS222S29222
W
NN NN NP PNOIPONINININ)
b ed e cd e cd e e ed e e o
o cnd e cd
uguwu
XS raRS8 SIEEREE PATRZISEFSERERKSK RERoR8INIRTINSRERNE
&R

e S

S i

ielelelelelelelelelelelelelslelalelelalelaleleleleleleletelelelad

R
T
e T
N
S
e
e e e T
e
B
e R

NS C R

RGNS 2 8 BRI R R RAR 2B IBIFNNANIITEITSRER 28 8=
R R RN S8R R

———
S
G
U
N
G
G
P
[T

mlelelelalalalalalalalalolalolalalalalalolalalalelelalelelelelolelolalalalalalelolelalelalelalalelalelalelelelalo]

MAIN PROGRAM

000300

TST
BEQ

00030-

TST

BNE

gch

20348
02 72?

00000
015702

ggpec1(no>

;POSITION COUNT 0 ?

SRPEC2(RO)
(S
PC,
L£N£1

VALUE IN PATTERN REGISTER ?
:BR IF YES
sTYPE FIRST LINE OF ERROR MESSAGE

#cLINE2

:TYPE *ECC LOGIC ERR
;TYPE LINE 2 OF ERROR MESSAGE

PC.SRETRY

:RETRY THE ORDER

- INCTOT
.nsrnv

001252

022202

PC,LINE6C

022210
022264

gg.LINE7

38’

PC,LINE6D

020344
000024

000001

DCKER1:

000002

000262

000007
016330
022616
000011
000010

i
2

000022
000020
000004

000020
000004

023726

000016

EYPE LINE 7 OF ERROR MESSAGE

WCKER
PC.%INE1

sREPORT ERROR UNDER WRITE CHECK PROCESSING

,EM21

PC,LINE
PC,LINE
PC.LIN54
PC,PRTBAD

:IT IS,

DON'T REPORT IT

&s‘ tl)aéenA WRITE CHECK ?
:PRINT LINE 1 OSRERROR MESSAGE

:DATA CHECK ERR
:PRINT LINE ; OF ERROR MESSAGE

sPRINT LINE 3 OF ERROR MESSAGE
sPRINT LINE
:SEE IF BAD SECTOR TO BE PRINTED

#16. ,RETRY
R1

:BR IF SE
sPRINT LINE 6 OF ERROR MESSAGE
:FINISH THE_ERROR REPORT
ae TRY COUNT

:R1 IS orrssr CODE POINTER

181701.SRPDT(RO)" .18 oax VE AN RP06
?
:BRIF IT IS
R1
PC RELBUF
EADDR

* INCREMENT PAST npoe OFFSET CODES

*RELEASE THE BUFFE
*GET THE ADDRESS or THE ERROR SECTOR

<sfi)+.stnx(ao> :TRACK ADDRESS OF ERROR SECTOR

(SP)+.$SEC(RO) :SECTOR ADDRESS OF ERROR SECTOR
$RPCC(RO), $CYL (RD) ;PRESENT CYLINDER
8§§EC(R0)-SWRDL (RO)
1

se IF TRANSFER LENGTH LESS THAN 1 secroa

f IT IS; USE PRESENT TRANSFER LENGTH

$SSEC (RO) suaot(kgn: CHANGE TRANSFER SIZE TO 1 secron
SURDL(Rg)“SWRDM(RO)

2s:
3s:

000200

18:

15%:

sTYPE LINE 6C OF ERROR MESSAGE

:FINISH THE ERROR REPORT
:TYPE LINE
OF ERROR MESSAGE
*SEE IF ERROR AT A BAD SPOT ON THE PACK

1$
PC.LINE6

16$:

000012
000020

:RETRY WAS NOT SUCCESSFUL

SK
:LOAD ERR
481712181 oe.snpeni(RO) fCHECK
'‘DTE* & °ECH’

022154
001252

Y (

#8iT15'81712!81706,MASK

001250
000250

000020

"5‘%25*'0‘{“TOTAL ERROR COUNT

PC,SPOTCK
[
C

$CODE (RO) .M
63
6$:

:BR IF 0°S

SWRDM (R
-(SP)
PC, GETBUF
;gfié+6saur(no>

*SETUP WORD Soum FOR OPERATION
:CHANGE COUNT TO 2°'S COMP
spacs roa NEW BUFFER ADDRESS
*GET A BUFFER
nsusurrsn ADDRESS TO DP8

$TATUS (RO)
3s

STEST ron DONE
*BR IF NOT DONE

108

:BR IF NOT ERROR
-sg; I ORDER TERMINIATED NORMALLY

#8177 ,$TATUS(RO).
14$

PC,INCTOT

INCREMENT TOTAL ERROR COUNT

CZRJDEO RP04/5/6 MLT-DR

MAIN PROGRAM

115 010436
119 010440
117
0104446
118 010452
119 010454
120 010462
121 010464
1 g 010470
123 010476
126 010500
125 010502
129 010510
127 010512
128 010520
129 010526
130 0105
131 010532
132 010534
133 010540
134 010544
135 010550
136 010554
137 010560
138 010562
139 010566
140 010572
141 010576
142 010602
143 010604
144 010610
145 010612
146 010616
147 010622
148 010630
149 010634
150 010640

104414
022137
0 730
0014
0327
0016
105237
123737
001342
005201
116137
001435
062737
004737
005737
001775
100324
004737
004737
004737
004737
004737
000436
004737
004737
004737
004737
000407
004737
000753
004737
004737
012737
004737
105737
100406

1S§ 010646
153 010652
154 010656
155 010662
156
157
158
159 010664
160 010672
161 010674
16§ 010700
163 010704
166 010710

104414
004737
004737
000207

167 010730
168 010734
169 010742
170 010746

000250

010100

000250

001253
001252

001253

DISPLY

002220

046151

000002

001252

015574
046166

14$:

LINSM

'DIFFERENTEERGSR DURING RETRY'

RPRC1
sSEE WHIC
HeSK.SRPER1(R0) :LOOK AT CURRENT ERROR
BR
DIFFERENT ERROR

#BIT12'BIT6, sapskt(a5>

:'ECH® OR °'DTE' STILL SET ?

78
RETRY+1
RETRY ,RETRY+1
2%
R1

:BR IF NEITHER SET
xgggentnr RETRY COUNT

13
#2 ,RETRY

:BR IF

2§NDPBO$TATUS

:SEE IF FINISHED WITH OFFSET

IF NOT

CREMENT TABLE INDEX

orrcoo<a1> Geuopbosrnr :OFFSET CODE

A ¥

022532
023632
023726
022264
015344

5%:
6$:

022174

7$:

PC,OFFST

2
PC.LINES

PC. INCHRD
PC.INCTOT

PC.LINE7

PC .PRTBAD

8s:

13§

PC.LINEGB

PC.LINESB

END OF OFFSET TABLE
NEU RETRY LIMIT
;OFFSET

:BR IF NOT

:BR IF NO ERROR PERFORMING OFFSET
sPRINT LINE 8 OF ERROR MESSAGE

: INCREMENT *HARD' ERROR COUNT
: INCREMENT TOTAL ERROR COUNT

:PRINT LINE 7 OF ERROR MESSAGE
:PRINT THE BAD SECTOR

sCLEAN UP AND RETURN
/
:PRINT LINE 68 OF ERROR MESSAGE

:PRINT LINE 58 OF THE ERROR MESSAGE

11$

s INCREMENT ‘SOFT' ERROR COUNT
:CORRECT THE ERROR USING ECC AND CHECK IT
:COMPARE THE BUFFER

s INCREMENT ERROR COUNT

PC. INCSOF
PC.ECC

:PRINTLINE 6D OF ERROR MESSAGE

022210

9$:

PC,LINE6D

022166
023606
000001
013474
001301

108:

PC.LINEGA
PC, INCSOF
#1_FRSTER

sINCREMENT °SOFT® ERROR COUNT

FRSTER+1

:ERROR IN COMPARE ?

001300

11$:

PC,CMPARD

13$

023726
052757
022264
006676

PC,INCTOT

12%:
13%:

:PRINT LINE 6A OF ERROR MESSAGE

SET PROCESSING °‘DCKER® INDICATOR
: COMPARE THE BUFFER

:BRANCH_IF ERROR
: INCREMENT TOTAL ERROR COUNT

.LIN9G

:*DATA COMPARE OK' MESSAGE

PC ,REFMT
PC

RE;SS:AT THE ERROR SECTOR

PC.LINE?7

:PRINT LINE 7 OF ERROR MESSAGE

JWRITE CHECK ERROR PROCESSING

000250

02050

004737
0047;7
004737

004737
012737
004737
000403

WCKER:

081715 SRPER1(RO)

Pcfl5§~61

I
1
E

E IF "DCK' SET ALSO

EEE

100000

032760
001034
004737
104414
0050;7
004737

010714
010720
010753

004737

52550
714
00125

SEQ 0076

I T
1 T
-+

151 010642

LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 16-5

1 OF ERROR MESSAGE
DCK NOT
MASK

g OF ERROR MESSAGE

OF ERROR MESSAGE

& OF ERROR MESSAGE

PRINT LINE 5 OF ERROR MESSAGE
001252

INCREHENI }OYAL ERROR COUNT
1

RETRV UNSUCESSFUL

CZRJDEQ RPD4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-3

SEQ 0077

MAIN PROGRAM

PC,LINE6C

022210

N NN=NYNVWWVONNNVONNN

020502
047064
040000

011024
000244

047765

011024

1$:

PC,LINE6D

2$:

PC, SPOTCK

10§

11§

PC,LINE]

#EMD2.

138

sPRINT LINE 6C OF ERROR MESSAGE
sFINISH PROCESSING THE ERROR
sPRINT LINE 6D OF ERROR MESSAGE
sFINISH PROCESSING THE ERROR
sSEE_IF ERROR AT BAD SPOT ON THE PACK
SEXIT IF AT ?AD SPOT ON PACK
sPRINT LINE 1 OF ERROR MESSAGE
:AS SUME THAT EM22 WILL gf PRINTED

#BIT14,SRPCS2(R0Y
12 $

#EM37,13$

;DID *WCK® ALSO SET ?

::BR'IF IT IT DID

:MESSAGE FOR 'DCK' AND °'WCK® NOT DURING
*WRITE CHECK

sTYPE THE ERROR MESSAGE

PC,LINE2
PC.LINE3

020546

PC.LINES

001252

000100

:PRINT LINE 2 OF ERROR MESSAGE
:PRINT LINE 3 OF ERROR MESSAGE

:PRINT LINE & OF ERROR MESSAGE

:FINISH PROCESSING THE ERROR

PC,GODRIV

*RETRY THE ORDER

3s:

#16. ,RETRY

5$:

$TATUS (RO)
£
6$
RETRY+1

:ORDER FINISHED ?
:BR IF NOT
:BR IF ERROR ON ORDER
*INCREMENT RETRY COUNT

9s
RETRY+1

;FINISH ERROR PROCESSING
: INCREMENT RETRY COUNT

PC,LINE6C

001253

*MESSAGE ADDRESS GOES HERE

PC,LINES
:PRINT LINE S OF ERROR MESSAGE
#81T06,SRPER1(ROS ;ECH SET ALSO ?

000250

NO
NWVINWNN

200 011124
201 011126
202 011134
203 011136
204 011144
205 011146
206 011152
207 011154
208 011160
209 011162
210 011166
211 011172
21§ 011174
213 011200
214 011204
215 011210
216
217
218
219 011212
220 011216
221 011%20
22% on 58
22 0115
224 011234
225 011240
226 011244

6$:

agm.nemm
1

:RETRY LIMIT = 16 (10)

:PRINT L INE 6C OF ERROR MESSAGE

:DONE ?
‘BR IF AT

000250

;ems.mem (RO}

000250

#81T06,SRPER1 (RO}

022202

PC.LINE6C

022532

78:

023726
022264

8s:

023726
022264
006676

9s8:
108:
118:

8s
PC.LINES
9$

PC,INCTOT

PC.LINE?

11$

PC,INCTOT

PC.LINE?

RTS

PC .REFMT
PC

ae;nv LIMIT
;*DCK’® SE

BR IF NOT - DIFFERENT ERROR
:°ECH' ALS 0 SET ?
:BR'IF IT IS, RETRY ORDER

:PRINT LINE 6C OF ERROR MESSAGE

SFINISH mocsssms ERROR

:PRINT LINE 8 - *DIFFERENT ERROR °
*FINISH PROCESSING ERROR
:INCREMENT TOTAL ERROR COUNT
:rm;su THE ERROR MESSAGE
sEXI
s INCREMENT TOTAL ERROR COUNT
sFINISH THE ERROR MESSAGE
:RE;WF THE SECTOR IN ERROR

sREPORT 'HCRC' ERROR
o
ONNNSNNON

188 011046
189 011054
190 011056
191 011064
19% 011070
193 011074
194 011076
195 011100
196 011104
197 011110
198 011112
199 011116

gsgeRessssssssssenssss is 2832
228gess
NNNNNS S S3N2
AONONE
BN
S AN E IR Z XY = ->

011032
011036
011042

NNSN

183 011022
184 011024
187 011026

022202

0047577 020344

S5SeEe 2

180 011012
181 011014

004737
0005
0047
0005

171 010750
17; 010754
173 0107
176 0107
175 010764
179 01077g
177 01077
178 010776
179 011004

020344

HCRCER: JSR

020502
047012
0
040000

PC,SPOTCK

:SEE IF ERROR AT PACK BAD SPOT

pc.%un
#

*PRINT LINE 1 OF ERROR MESSAGE
*REPORT 'HCRC'

PC.LINE

*PRINT LINE 3 OF ERROR MESSAGE

PC,LINE

000244

PC.LINEG

SEXITIF IT {s

:PRINT LINE 2 OF ERROR MESSAGE
:PRINT LINE & OF ERROR MESSAGE

#B1T14,SRPCS2(ROS

;'WCE'

ERROR ALSO ?

NNNNNES

SPRE
geeRseese3]

BEQ
JSR
JSR
JSR

1%
PC,LINES
PC. INCSOF

MOV

#3,RETRY

MOV
JSR

JSR

2%:

3s:

JSR
BR
JSR
JSR
JSR
RTS

PC.INCTOT

#8178, MASK
PC.SRETRY

PC,LINE6C
PC.LINE7
3s
PC,LINEGD
PC.LINE?
PC.REFMT
PC

SEQ 0078 |
;sBR IF NOT
OUCE.
sDISPLAY WORDS WHICH CAUSED
s INCREMENT °*SOFT' ERROR COUN T
s INCREMENT TOTAL ERROR COUNT
:SET ERROR MASK

JRETRY LIMIT
sRETRY ORDER
JRETRY NOT SUCESSFUL

sPRINT LINE 6C OF ERROR MESSAGE
::R}#T LINE 7 OF ERROR MESSAGE
sEX

1
sPRINT LINE
6D OF ERROR MESSAGE
sPRINT LINE 7 OF ERROR MESSAGE
sREFORMAT THE ERROR SECTOR
sRETURN

sREPORT DRIVE ERROR
DRVER:

JSR
DISPLY
JSR

Pcfi§1n51
,EM30
PC,LINE2

JSR

PC.INCTOT

JSR
022264

JSR

RTS

PC.LINE3

PC.LINE?
PC

sPRINT LINE 1 OF ERROR MESSAGE

¢REPORT DRIVE ERROR
;
OF ERROR MESSAGE
¢PRINT LINE 3 OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT

:PE%G;NLINE 7 OF ERROR MESSAGE

('FER') ERROR

33358388

SR
=R 3
S

000400

i
QU

000250

011212

CKFMT:

1$:

046204

012374
020344

2$:

020502
047216

20 011334

241 011340
242
243
246
245 011342
246 011346
247 011352
248 011356
249 011362
250 011366
251 011372
252
253
254
255 011374
256 011402
257 011404
258 011410
259 011414
260 011420
261 011426
262 011430
263 011434
264 011440
265 011442
266 011446
267 011452
268 011456
269 011462
270 011466
271 011474
272 011476
273 011502
274 011503
275 01151
276 011516
277 011524
278 011532
279 011536
280 011540
281 011544
282 011550
283 011552

18:

SReeS

§3§ 011;76
33 011304
234 01131g
235 01131
236 011316
237 011322
238 011324
239 011330

1 011270

(=l

2%7 011252
% 8 011254
011260
%
011264

Nflgwuo
SNNWVININNNNNN

CZR JOEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-4
MAI N PROGRAM

#81T8,SRPER1(R0O) ;°'HCRC' SET ON ORIGINAL ERROR ?
1$
;BR IF NOT SET

BIT

#81T8,GENREG+RPERT ; 'HCRC' SET WHEN HEADER READ?

JMP
JSR
JSR

BNE
JMP

3s:

4$:

F1
FMTER

:BR'IF "HCRC® SET
*NO, ERROR IS 'FMT' ONLY

5%
PC,LINE1
,EM24

SEXITIF IT IS
*PRINT LINE 1 OF ERROR MESSAGE

JSR
JSR

PC,LINE
PC.LINE

*SEE IF ERROR AT BAD SPOT ON THE PACK
*HEADER READ ERROR - FMT BIT DROPPED UP

*PRINT LINE 2 OF ERROR MESSAGE
:PRINT LINE 3 OF ERROR MESSAGE

JSR

PC.LINEG

BEQ
JSR
JSR
JSR
JSR

3s
PC,LINES
PC.LINESA
PC. INCSOF
PC.INCTOT

:BR’IF NOT
:DISPLAY WORDS WHICH CAUSED "WCE'
:DISPLAY HEADER
*INCREMENT SOFT ERROR COUNT
*INCREMENT TOTAL ERROR COUNT

PC.SRETRY

*RETRY THE ORDER

JSR
BR
JSR
ggn

022202
022264

*REPORT HCRC ERROR
*GET CORRECTED TRACK & SECTOR ADDRSSES
*READ HEADER

PC,SPOTCK

MOV
MOV

00000
015702

HCRCER
PC,READDR
PC.READHD

JSR

BR
JSR
DISPLY

BIT

000244

022210

BIT
BEQ

JSR

PRINT LINE & OF ERROR MESSAGE

#BIT14,SRPCS2(RO)

174, MASK
#3,RETRY
4
PC,LINE6C
gg.L1~£7

PC,LINESD

;'WCE' ERROR ALSG ?

*SET ERROR MASK
SRETRY LIMIT

*RETRY NOT SUCESSFUL
*PRINT LINE 6C OF ERROR MESSAGE
:23{?' LINE 7 OF ERROR MESSAGE
*PRINT LINE 6D OF ERROR MESSAGE

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 14-!

SEQ 0079

MAIN PROGRAM

11523

RELTLE

85
s

ggg

0115
11566

004737

004737
000207

022294

JSR

006676

58:

PC.LINE7

PC,REFMT
PC

;PRINT LINE 7 OF ERROR MESSAGE

sREFORMAT THE ERROR SECTOR
sRETURN

;PROCESS HEADER COMPARE ('HCE®)

011570

032760

000400

11600

ooo1§

011212

811576

oo1ao;

011606
011610

004737
ogarsr

011622
53; o11e§4

001016
042737

;33 011640

oo1ao;

301 011646
ggz 011656
3 011660

052737
000137
004737

305 011666
306 011672
307 011676
308 011702
309 011706

004737
104414
004737
004737
004737

311 011720
312 011722
313 011726
314 011732
315 011736
316 011742
317 011750
318 011756

001402
004737
004737
004737
004737
012737
012737
004737

021720
022020
023606
023726
000200
000003
015702

20 011764
321 011770

004737
004737

022202
022264

004737
004737
004737
000207

022210
022264
006676

S 011614

032737

022616
015620

000250

CKHCE:
1$:

000400

046204

010000

055754

011642 000137

304 011664 oooas;

310 011712

§19 011762

032760

000405

322 011774 ooo4og

323 011776
324 012002
325 012006
igg 012012

012014

010000
012452
020344
020502
047264
020546
021154
021630

040000

055754

#BIT8,SRPER1(RO)

JMP

HCRCER

BIT

#8178, GENREG+RPERT ; "MCRC® SET ?

BEQ

JSR
JSR

CMP

BEQ
28:
3s:

48:

001250
001252

58:

68:

;HCRC SET ON ORIGINAL ERROR ?

:BR IF NOT SET

PC,READDR
PC .READHD

*GET CURRENT SECTOR & TRACK ADDRS
READ HEADER OF CURRENT SECTOR

*REPORT HEADER CRC ERROR

3s
#BIT12,CYLDER

:BRIF SET
:CLEAR FORMAT BIT FROM HEADER

:BRIF IT IS

#BIT12,CYLDER
HCEER
PC,SPOTCK

:RESTORE THE FORMAT BIT
*REPORT "MCE® ERROR
*SEE IF ERROR AT BAD SPOT

PC,LINE1
,EM2S
PC,LINE2
PC.LINES
PC.LINES

*PRINT LINE 1 OF ERROR MESSAGE
*HEADER READ ERROR = 'HCE' SET
:PRINT LINE 2 OF ERROR MESSAGE
*PRINT LINE 3 OF ERROR MESSAGE
*PRINT LINE & OF ERROR MESSAGE

4
PC,LINES
PC.LINESA
PC . INCSOF
PC.INCTOT
#BIT7 ,MASK
#3, RETRY
PC.SRETRY

:BRIF NOT
:DISPLAY WORDS WHICH CAUSED ‘WCE®
*PRINT LINE 5 OF ERROR MESSAGE
*INCREMENT SOFT ERROR COUNT
:INCREMENT TOTAL ERROR COUNT
*SET ERROR MASK
*RETRY LIMIT
*RETRY THE ORDER

$RPCC(RO),CYLDER'

JMP

POSER

B8R

8IS
JMP
JSR
JSR
DISPLY
JSR
JSR
JSR

000244

353

BIT

BNE
BIC

011632 026037 000272 055754

;CORRECT CYLINDER ?

*REPORT POSITIONING ERROR
SEXIT IF IT IS

BIT

#81T14,$RPCS2(ROJ

JSR
JSR

13
PC,LINE6C
PC.LINE?

*PRINT LINE 6C OF ERROR MESSAGE
*PRINT LINE 7 OF ERROR MESSAGE

JSR
JSR
JSR
RTS

PC,LINE6D
PC.LINE?
PC.REFMT
PC

*PRINT LINE 6D OF ERROR MESSAGE
*PRINT LINE 7 OF ERROR MESSAGE
*REFORMAT THE ERROR SECTOR
*RETURN

BEQ
JSR
JSR
JSR
JSR
MOV
MOV
JSR

B8R

; *WCE' ERROR ALSO ?

*RETRY NOT SUCESSFUL

SEXIT

;REPORT POSSIBLE POSITIONING ERROK

330
012014
331 012020
332 012026

004737
004737
104414

015542
ozosog
05061

334 012034

004737

8 1202

JSR
RTS

015030

335 012040
36 012046
37 012052
38 012056
§z9 012062
0 012

004737
052737
004737

004737
004737
004737
000207

POSER:

050546
010000
oggozo

023702
023723
02241

055754

JSR
JSR
DISPLY

PC,RECALT
PC.%INEI
,EMS1

:RECAL IBRATE
*PRINT LINE 1 OF ERROR MESSAGE
*PROGRAM DETECTED POSITIONING ERROR

PC.LINESC

*PRINT LINE

JSR

fic.Lx~£§

BIS
JSR

#8iT12,CYLDER
PC,LINESA

JSR
JSR
JSR
JSR
RTS

PC.INCMIS
PC.INCTOT
PC.LINE7A
PC

*PRINT LINE § OF ERROR MESSAGE

3C OF ERROR MESSAGE

RESTORE THE FORMAT BIT
*PRINT LINE SA OF THE ERROR MESSAGE
*INCREMENT MISPOSITIONING COUNT
*INCREMENT TOTAL ERROR COUNT
*PRINT LINE 7A OF ERROR MESSAGE
SEXIT

SEQ 0080

MAIN PROGRAM

§76 012232
77 012236

378 012242
379 012246
380 012252
381 012260
382 015266

i st
3

386 012304
387 012306
388 012312
389
390
91
92 012314
93 012320
394 0123§4
395 012330
§96 015334
97 012340

8‘0546
461

JSR
RTS

18:

PC,SPOTCK
PC

;SEE IF ERROR AT BAD SPOT
sRETURN IF IT IS
sPRINT LINE 1 OF ERROR MESSAGE

JSR
DISPLY

PC,LINE1
1

JSR
JSR
JSR
MOV

PC,LINE
PC.LINES
PC.INCTOT
03111
MASK

JSR
BR
JSR
JSR

PC.SRETRY
18
PC,LINE6C
PC.LINE7

sRETRY THE ORDER
sRETRY UNSUCESSFUL
sPRINT LINE 6C OF ERROR MESSAGE
:PRI?Y LINE 7 OF ERROR MESSAGE

PC,LINEGD

sPRINT LINE 6D OF ERROR MESSAGE
sPRINT LINE 7 OF ERROR MESSAGE

JSR

OPIER1:

NNN

tdg‘uuouwuuw-uou

020502

OPIER:

MOV

RTS

JSR

JSR
JSR
RTS

fic.L1~E§

#3,RETRY

PC.LINE?
PC.REFMT
PC

: 'OP1° ERROR
sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 5 OF ERROR MESSAGE
sPRINT LINE & OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT
; ERROR MASK
sRETRY LIMIT

sEXI

sREFORMAT THE ERROR SECTOR

sRETURN

NE&ENNN

NNN

WoNON

SRS

DTEER:

JSR
RTS

JSR
DISPLY
JMP

PC,SPOTCK
PC

PC,LINE1
,EM32
DCKER1

:SEE IF ERROR AT BAD SPOT
:RETURN IF IT IS

:PRINT LINE 1 OF ERROR MESSAGE
:'DTE' ERROR
sFINISH PROCESSING THE °'DTE®' ERROR

sREPORT 'PAR' ERROR
PARER:

023726
000010
000003
015702

JSR

DISPLY

PC,LINE1

JSR
JSR
JSR
JSR

PC,LINE

PC.LINE3E
PC.LINEG
PC.INCTOT

MOV

#3,RETRY

MOV

023264

1$:

JSR
BR
JSR
JSR

022210

2$:

JSR

RTS

en%i

1703, mASK

PC.SRETRY
28
PC,LINEGC
PC.LINE7
PC

PC,LINE6D

s INCREMENT TOTAL ERROR COUNT
sERROR MASK
sRETRY LIMIT
sRETRY ORDER

sRETRY UNSUCESSFUL
sRETRY SUCESSFUL
:PRI?T LINE 7 OF ERROR MESSAGE
sEXI
sPRINT LINE 6D OF ERROR MESSAGE
sFINISH ERROR MESSAGE

sREPORT *JAE' ERROR
NNNNSN

374 012222
375 012226

020344

sREPORT *DTE' ERROR

WWNNN
=W
~N WO WWNO WWWW
NNNNNVININ NSNNNNSN

54 015162
55 012146
356 012150
gS? 012154
58 012160
359 012162
360 01 163
361 01217
362 012176
363
364
365
366 012200
367 012204
368 012206
369 012212
370 012216
371
372
373

50 0 113

SRR

9i
01 1?3

as
SR SR s RNSRR

12070

SReeRe

76
81%8072

S8R

;REPORT 'OPI' ERROR

020502
047676

021346
023726
264

IAEER:

JSR

DISPLY

PC,LINE1

JSR

JSR
JSR

fic.anei

PC.LINE3F
PC.INCTOT

sPRINT LINE 1 OF ERROR MESSAGE
sREPORT ‘IAE'
sPRINT LINE 2 OF ERROR MESSAGE

PC.LINE?

s INCREMENT TOTAL ERROR COUNT
sPRINT LINE 7 OF ERROR MESSAGE

JSR

En&g

sPRINT LINE

3F OF ERROR MESSAGE

CZRJDEO RPO4L/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-2

SEQ 0081

000207

RTS

;RETURN

;REPORT °WLE' ERROR
37

40 015 53 0047
104414 8%9;212'

WLEER:

404 81 56 004737 020546
405

004737

2317; 012372

000207

023726

004737
104414

ozosog
04734

414 012410

004737

021154

417 012426

oou.o;

FMTER:

413 012406 004737 020546
004737

021630

416 0126420 032760 04

421 012446

25% 012450

004737
004737

021720
022020

004737

022264

004737

000207

432 012504
433 012506

oou.o;
004737

021720

737

022264

43% 012512
435 012516

004737
37

437 012526

004737

020502
047372
ozosz.o
0211
omso

HCEER:

000207

022020
023726

18:

004737

ozoso;

444 01256446

004737

020546

104414

449 012572

454 012614

PC. uns

:PRINT LINE 7 OF ERROR MESSAGE

*RETURN

fic
uusg
PC.LINE

:PRINT LINE 1 OF ERROR MESSAGE
*FORMAT ERROR

*PRINT LINE 2 OF ERROR MESSAGE
mm LINE 3 OF ERROR MESSAGE
INT LINE & OF ERROR MESSAGE

BIT

8iT14, smszmos 'ucs' ERROR
ALSO ?

JSR
JSR

PC,LINES
PC.LINESA

JSR

PC.LINE7

JSR

JSR
DISPLY
JSR
JSR
JSR

PC,INCTOT

:BRIF NOT

*DISPLAY WORDS WHICH CAUSED °WCE®
*PRINT LINE SA OF ERROR MESSAGE
sINCREMENT TOTAL ERROR COUNT

*PRINT LINE 7 OF ERROR MESSAGE

PC,LINE1
,EM27
PC,LINE2
PC.LINE3
PC.LINEG

:PRINT LINE 1 OF ERROR MESSAGE
*HEADER COMPARE ERROR
*PRINT LINE 2 OF ERROR MESSAGE
mur LINE 3 OF ERROR MESSAGE
T LINE & OF ERROR MESSAGE

18
PC,LINES

:BR’IF NOT
:DISPLAY WORDS WHICH CAUSED °‘WCE®

BIT

BiT14, snpcszmos -uce' ERROR ALSO ?

JSR
JSR

PC.LIN
PC. INCTOT

*PRINT LINE SA OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT

JSR

PC . REFMT

*REFORMAT THE ERROR SECTOR

BEQ
JSR

RTS
TRFER:

05004

JSR

DiSPLY

JSR

004737

021154

JSR

004737

023726

JSR

004737

448 012564 032760

450 012574
451 012602
452 012
453 012612

: INCREMENT TOTAL ERROR COUNT

PC.LINE?

:PRINT LINE 7 OF ERROR MESSAGE

*RETURN

:PROCESS CONTROL/INTERFACE TRANSFER ERROR

442 012534

447 012560

JSR

2"4‘1’

446 012556

pc um

RTS

431 012476 032760 040000 000244

445 012550

EPORT ‘WLE'
*PRINT
LINE2 OF ERROR MESSAGE

;REPORT HEADER COMPARE ERROR
004737
104414
004737
004737
004737

443 012540

2C.INCTOT

JSR
DISPLY

BEQ

18:

023726

426 012452
427 012456
428 012462
429 012466
430 012472

gg 012532

PC.LINE

JSR

000244

25’5

436 012522

JSR

‘R

;PRINT LINE 1 OF ERROR MESSAGE

;REPORT FORMAT ERROR

411 012374
412 012400

420 012440

#c LINE2

RTS

418 012430
419 012434

JSR

406 012366 004737 022264

415 012416

n&l"fl
DISPLY PC,
JSR

001415

021630

121400 000244

012737 000003
005037 om;so
004737 015702
000403

004737

022202

001252

JSR

PC,LINE1

:PRINT LINE 1 OF ERROR MESSAGE

PC,LINE

*PRINT LINE i OF ERROR MESSAGE

PC uuea

mm uue & OF ERROR MESSAGE

,EM4O

PC.LINE

RH11 OR UNIBUS TRANSFER ERROR

*PRINT LINE 3 OF ERROR MESSAGE
5 T TOTAL

ERROR COUNT

BIT

mn 'sms'anb'en SRPCS2(R0) ;'DLT*,'UPE","MXF", 'MDPE' SET ?

MOV
CLR
JSR
B8R

#3_RETRY
MASK
PC,SRETRY
1$

BEQ

JSR

PC,LINE6C

:BR IF 'NONE SET

*RETRY LIMIT
*CLEAR ERROR MASK
*RETRY THE OPERATION
*RETURN HERE IF RETRY UNSUCESSFUL

*PRINT LINE 6C OF ERROR MESSAGE

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-9

MAIN PROGRAM

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 16-5

SEQ 0082

MAIN PROGRAM

455 01
t.sg 01
45 81
gg

0004 ;
8&7
oggzw
6
737 022264

12632

18:
28:

000207

'4’.2?
004737
104414

02050
05052

467 012660
468 012666
293 012670

004737
004737
000207

023656
022412

SKIER:

464 01%6“ ool.7§7 020546
465 012650 004737 021170
469 01%654 004737 0237 6

104414

047634

004737
004737
004737

021162
021630
023726

475 012702

004737

479 012722
480 012726
481 012734
482 012742
483 012746

004737
012737
012737
004737
000405
004737

022210

JSR

PC,LINE

*PRINT LINE ngr ERROR MESSAGE

JSR
MOV
MoV
JSR
B8R

PC.PRTBAD
#3.RETRY
#BIT0S,MASK
PC,SRETRY
2

*SEE IF BAD SECTOR TO BE PRINTED
*RETRY COUNT
*ERROR MASK
*RETRY THE ORDER
*RETURN HERE IF RETRY UNSUCESSFUL

g;g

:g.uun

*PRINT LINE 7 OF ERROR MESSAGE

JSR
JSR
JSR

487 012762

28:

‘gg

497 013014
498 013022
499 013026
500 01

ggg 01

JSR

,EM34

PC.LINE3A
PC.LINEG
PC.INCTOT

PC.LINE6C

PC,LINE6D

*REPORT WRITE CLOCK FAILURE

:PRINT LINE 3A OF ERROR MESSAGE
*PRINT LINE & OF ERROR MESSAGE
:INCREMENT TOTAL ERROR COUNT

:PRINT LINE

6C OF ERROR MESSAGE

:PRINT LINE 6D OF ERROR MESSAGE

;PROCESS DRIVE UNSAFE ERROR
004737
104414
004737
004737
004737

020502
050655
020546
021154
ozmg

012737 000003
004737 015702
000403
004737 022202

501 013034 ooo:.o;
502 013036
503 013042

:INCREMENT °*SKI* OR ‘OCYL' ERROR COUNT
*PRINT LINE 7A OF ERROR MESSAGE

:PRINT LINE 2 OF ERROR MESSAGE
:PRINT LINE 38 OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT

:PRINT LINE 1 OF ERROR MESSAGE

18:

492 012770
493 012776
49 013000
495 013006
496 013010

PC.INCSKI
PC.LINE7A
PC

fic.uuega
PC.LINE
PC.INCTOT

pcfisxm

485 83575‘ %53; 022264

233 012766 000772

JSR
JSR
R1S

DISPLY

015344
000003 001252
000040 001250
015702
022202

:PRINT LINE
1 OF ERROR MESSAGE
:*SKI' OR 'OCYL' ERROR

WCFER: JSR

020546

004737

"fik"‘“
,EMSO

;REPORT WRITE CLOCK FAILURE ('WCF®)

4.7§ 012672 004737 020502

484 012750

;FINISH THE ERROR REPORT
:PRINT LINE 6D OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE

JSR
DISPLY

JSR
JSR
JSR

4.;1

476 012706
477 012712
478 012716

RTS

2
PC,LINE
PC,LINE

;PROCESS *SKI' OR 'OCYL' ERRORS

“’i 012634
463 012640

476 012676

BR
JSR
JSR

004737
004737

000207

022210
022264

ggg

UNSAF:

001252

1$:
28:

JSR
DISPLY
JSR
JSR
JSR

PC,LINE1
,EM60
PC,LINE
PC.LINE
PC.INCTOT

:PRINT LINE 1 OF ERROR MESSAGE
*REPORT DRIVE UNSAFE
*PRINT LINE 2 OF ERROR MESSAGE
*PRINT LINE 3 OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT

PC,LINE6D
PC.LINE7

*PRINT LINE 6D OF ERROR MESSAGE
*PRINT LINE 7 OF ERROR MESSAGE

MOV
JSR
BR
JSR
BR

#3.RETRY
PC.SRETRY
18
PC,LINE6C
2

RTS

JSR
JSR

*RETRY COUNT
*RETRY THE ORDER
*RETRY WAS UNSUCESSFUL
*PRINT LINE 6C OF ERROR MESSAGE
SCUNTINUE WITH ERROR REPORT

*RETURN

:REPORT AN "UNKNOWN' DATA PATTERN

508 013050

105737

001300

510 013056
511 013062

004737
104414

020502
050232

509 013054 001013

NOMTCH: TSTB

BNE

JSR
DISPLY

FRSTER

;FIRST ERROR IN THE SECTOR ?

pc.tinn
,EMé

STYPE LINE 1 OF ERROR MESSAGE
S'CAN'T MATCH DATA WITH PATTERN'

:BR IF NOT OR IF PROCESSING °'DCKER®

F
CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 S=NOV-81 09:16:17 PAGE 14=9

SEQ 0083

MAIN PROGRAM

515 01
31
1

004737
004737

515 013102

000404

519 13106
517 013110
518 81 114

02054
0211

004737 0216
104414
104414
104414

05023
00116
052710

013122
01§1§g
013132
013134
013140

004737
106414
012146
082737
104414

022544
053363

013146
013152
013156
013160
013166
013170
013172
013176
013202
013306
013210
013214
013216
013222
013226
013230
013234
527 013240
528 013244
529 013246

004737
104414
012146
004737
104414
010146
004737
104414
012146
004737
104414
010146
004737
104414
012146
004737
104414
062701
;
112737

022544
053363

531 013262
5§32 013270

013737
000207

526

01 150

010149

132564

&\hw
b4l
RRUKZS

013144 o1o149

112737

18:
28:

022544
001165
022544
053363
022544
001165
022544
053363
022544
001165
000770
000001

001300

001414

001310

001301

060000

000234

177400

000244

540 01331
541 013316
562 013320

5760
001006
005760

000250

544 0133 3
545 0133
546 013334

005760
381"9
737

000276

549 013350
550 013354
551 013360
552 013364

004737
004737
004737
004737

021154
021630
023726
022264

547 013340
548 013344

B8R

*CONTINUE PROCESSING ERROR

MOV

R1,=(SP)

DISPLY
DISPLY
DISPLY

rc.LxueiA

PC.LINES
,EM43
.SCRLF
.LINSI

PRINT LINE & OF ERROR MESSAGE

SYCAN'T MATCH DATA WITH PATTERN'
$CR=LF
*HEADER FOR DATA PRINTOUT

*ADDRESS OF WORD 1

JSR
DISPLY
MOV
JSR
DISPLY

PC.LINOCT
,LINSP
(R1)+,=(SP)
PC,LINOCT
,SCRLF

*TYPE WORD 1
:SPACES
*ADDRESS OF WORD 1
*TYPE WORD 1
*CR-LF

JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
ADD
CLR
MOVB

PC.LINOCT
,LINSP
(R1)+,=(SP)
PC,LINOCT
,SCRLF
R1,-(SP)
PC.LINOCT
,LINSP
(R1)+,=(SP)
PC,LINOCT
,SCRLF
R1,-(SP)
PC.LINOCT
,LINSP
(R1)+,=(SP)
PC,LINOCT
.scasr
#<252.%2.>,R1
R2
#1,FRSTER

:TYPE WORD 2
SPACES
*ADDRESS OF WORD 2
*TYPE WORD 2
$CR-LF
*ADDRESS OF WORD 3
:TYPE WORD 3
*SPACES
*ADDRESS OF WORD 3
:TYPE WORD 3
SCR=-LF
*ADDRESS OF WORD &
*TYPE WORD 4
SPACES
*ADDRESS OF WORD 4
*TYPE WORD &
SCR=LF
:INCREMENT BUFFER POINTER
:CLEAR ‘WOKDS TO COMPARE' COUNT IN R2
*SET 'NOT FIRST ERROR® INDICATOR

MOV
RTS

CMPLMT,LIMIT
PC

MOVB

R1,-(SP)

#-1,FRSTER+1

*ADDRESS OF WORD 2

:SET ERROR FOUND INDICATOR

:RESET THE COMPARE ERROR TYPEOUT LIMIT
*RETURN

sCHECK ERROR BITS IN THE RH11 & RP04/5/6 REGISTERS
032760
001015

543 0133264

;PRINT LINE 2 OF ERROR MESSAGE
*PRINT LINE 3A OF ERROR MESSAGE

MOV

5§36 013272
537 013300

538 013302
539 o1331g

PC.LINE

JSR

022544
001165

177777

JSR
JSR

032760
1011

001003

104414
004737

CKERR:

05027
020546

#60000,SRPCS1(RO)
:SEE IF "TRE® OR 'MCPE® SET
1$
BR'IT EITHER SET

ST
BNE
ST

$RPER1(RO)
1$
$RPER2 (RO)

*ANY BITS SET IN ER1
*BR IF ANY SET
:ANY BITS SET IN ER2 ?

ST
BEQ
JSR

SRPER3 (RO)
2
PC,LINE1

:ANY BITS SET IN ER3 ?
*BR IF NONE SET
:PRINT LINE 1 OF ERROR MESSAGE

JSR
JSR
JSR
JSR

PC.LINE
PC.LINEG
RS, INCTOT
PC.LINE7

*PRINT LINE 3 OF
*PRINT LINE & OF
:INCREMENT TOTAL
*PRINT LINE 7 OF

BIT
BNE

000274

02050

BIT
BNE

BNE
18:

DISPLY
JSR

#177400,8RPCS2(RD) :SEE IF ERROR BITS IN CS2 SET
1$
:BR IF ANY SET

,EM&4
fic.ansg

:BR IF ANY SET

:ERROR BITS SET, BUT 'SC' OR 'TRE' NOT SET
*PRINT LINE 2 OF ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE
ERROR COUNT
ERROR MESSAGE

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16-?0

SEQ 0084

MAIN PROGRAM

PEYe

288
=3
=33

CKBUS:

TST

sRETURN

SRPUC(RO)

sCHECK WORD COUNT

:BR_IF NOT ZERO

MDL(RO) =(SP) ;WORD LENGTH
(SP
CHANGE INTO BYTE COUNT

000020

SBUF(RO) (SP)
:ADD THE STARTING LOCATION
5§P)4,SRPBA(R0) .surren ADDRESS PROPER
?

000240
02050

PC,LINET

1$:

LEMG1

PC,LINE2
PC.LINE3D
PC.LINES
PC.INCTOT
LINE7

2$:

BIT8

1$:
C
CMPARD:
1$:

sBR _IF 0K

:PRINT LINE 1 OF ERROR MESSAGE

:BUS ADDRESS OR WORD COUNT INCORRECT
;PRINT LINE i OF ERROR MESSAGE
sPRINT LINE 3D OF ERROR MESSAGE
sPRINT LINE & OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT
:PRINT LINE 7 OF ERROR MESSAGE

#81T02,$CODE(RO)
;SEE IF READ ORDER
1$
.BR IF IT IS
PC
FRSTER

sRETURN
:CLEAR 'FIRST ERROR' INDICATOR

ERCTR
SBUF(R

:CLEAR YHE ERROR COUNTER
:BUFFER ADDRESS

lSHO1.3$UR
13
PC

suaot(aoi cncnr

SRPWC (RO) . CMCNT

SCYL(RO) CMCYL
#BIT12 CACYL

$SEC(RO), CMSEC
CHP%HT.LIHIT

CMSTR:

603 013650
604 013652
605 01365
606 01
607 013664
608 013679
609 013672

000236

CMPAR:

WONWO

g ¢
&¢

;COMPARE THE BUFFER

SN
=N
—= R —

564 01
565 013426
566 0134
567 013434
568 013440
569 013444
570 013450
571 013454
575
57
574
575 013456
57€¢ 013464
577 013466
578 013470
579 013474
580 013502
581 013504
582 013506
583 013512
584 013516
585 013524
586 013532
587 013540
588 013546
589 013554
590 013562
591 013566
592 013574
593 013600
596 013604
595 013612
396 01;2}4
597 013620
598 013622
599 013626

s
s
S

58 013376
59 013400
81
04

RTS

;CHECK BUS ADDPRESS REGISTER & WORD COUNT REGISTER

i das 8

Sgg 013372

2%:

000207

N
88
S8332
— Yys8%8

553 013370
554
gSS

;IS SWITCH 1 SET?
:BR _IF NOT
:YES, DON'T_COMPARE

sWURD COUNT TO WORKING LOCATION

:CALCULATE ACTUAL WORDS TRANSFERED

CYLINDER ADDRESS WORKING LOCATION
;SET_FORMAT BIT

:SECTOR & TRACK ADDRESSES TO WORKING LOCNS
:DISPLAY LIMIT

LIM
#-1,ZROIND

: CONVERT PARAMETER INTO LIMIT VALUE
:CLEAR THE 'ZERO'S® INDICATOR

gcnrR2

.LESS THAN, USE REMAINING BUFFER

SAVER1
:CLEAR THE R1 SAVE WORD
SAVERs
*CLEAR THE RS SAVE WORD
ggcnr.ssssc<a0) égslaugge?ssxze GREATER THAN ONE SECTOR ?

$SSEC(RO) ,R2
:COMPARE SECTOR
$SSEC(RO), CHCNTDECRE*MT WORD COUNT
$COD
s( 0).
READ HEADER € DATA?

001312
000005
CMHED:

1$:

2$:

CMDAT

CMCYL, (R1)+
13

:BR IF NOT

cnecx CYLINDER
:BR IF conpnne 0K

Sn§sc (R1)+

*REPORT

ERROR

PC,5$

*REPORT

(R1)+

conqAnE SECTOR & TRACK

CIIJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-11

SEQ@ 0085

N PROGRAM

641 014026
642 0140

643 014036
64t 014042
645 01404
646 01405
647 014054
648 014056
649 014062
650 014066
651 014072
652 014074
653 014100
654 014102
655 014106
656 014110
657 014114
658 014116
659 014124
660 014126
661 014132
662 014140
663 014142
664 014146
665 01415
666 014160

~NN b

<o VIO NWSNININ

S
v

NN NN

-3

R
anezgsseas gBoes

623 013744
624 01374
625 01375
626 013754
627 013756
628 013762
629 013764
630 013766
631 013772
632
013774
633 014002
634 014004
635 014010
636 014012
63 014014
638 014016
639 014020
640 014022

288 8°°°
oo
NN =
e
e
L
NOW

¢
622 01 720

7%7

610 013674
611
013700
612 01370
013704
613
614 013710
615 013714
616 013716
617 0137
618 013724
619 013726

013726

3s:

81 3726

4S:

000004

(R1)+ _

" .’.3
ufinx

001306
014204

5$:

014526

CMDAT:

013050

CMDAT
ERCTR

PC,CMPRT
PC
PC.MATCH

PC,NOMTCH

2$:

000020

3s:

001306
000010

PC,58

#20,R3

(a15+ (RS)+

ERCTR
(s

165136

014204

8s
(R4) ,RS

#SW3,asWR
4$

4s:

:c.cnpar

sREPORT _ERROR

:CHECK 2ND KEY WORD
:BR IF _ZERO

:REPORT THE ERROR
SlBTMCY HEADER LENGTH FROM SIZE

:BR_IF FINISHED
;s SEE lF AT LEAST & MORE WORDS TO CHECK
:BR IF NOT
sCOMPARE THE DATA PORTION

INCREKNT THE ERROR COUNT

:REPORT THE COMPARISON ERROR

CHECK THE REST OF THE HEADER
FIND THE PATTERN

:rm A PATTERN

sRETURN HERE IF NO MATCH WITH PATTERN MADE
:BYPASS COMPARE RCUTINE

:ADDRESS OF PATTERN ADDRESS IN Ré
:R3 IS PATTERN POS COUNTE
: COMPARE BUFFER WITH PATTERN
:BR IF NOT EQUAL

s ERRORS DETECTED ?

SET "
SUITCH'?
:BR IF NOT SET

sDISPLAY THE WORD

DECRERNT SlZE COUNT
:BR WHEN AT END

DECRE*NT PATT POS COUNT

:BR IF NOT AT END OF PATT

58:

177776
177777
001306
014204

001300

001276

6$:

=2(R1)
63

#-1,ZROIND
ERCTR
PC,CMPRT
43
FRSTER

78
ZROIND
R1,SAVER1

RS SAVERS
78:

ZI;OIND
PC,CMPRT

43
CMCNT
CMPRX

$CODE (RO) ,#5
CMSTR
CMSEC
EHSEC MN22.
CMSEC
CMTRK

CHTRK ne.
CMSTR

:RESTART THE PATTERN

Hg HISC%MED CHARACTER=0
IF

:SET NON-ZERO MISCOMPARED INDCATOR
: INCREMENT THE ERROR COUNTER
:REPORT ERROR

:CONTINUE COMPARE
:FIRST ERRM"

:BR _IF
sSET THE ZERO INDICATOR

:SAVE CURRENT R1

:SAVE CURRENT RS
:CONTINUE COMPARE

:ANY MISCOMPARIONS NOT ZEROS ?

:BR _IF NONE-ALL ERRORS=ZERO
:REPORT ERROR
s CONTINUE COMPARING

:AT END OF BUFFER

:BR_IF AT END

sSEE_IF READ HEADER & DATA
:BR_IF NOT
INC?E&NT SECTOR

B
:
s CLEAR SECTM ADDRESS

: INCREMENT TRACK
:TRACK GREATER THAN MAX ?
:BR IF NOT GREATER

SEQ 0086

MAIN PROGRAM

001317
1 14

13566
146460

W—W
~

882222
A2 ST

2$:

SAVER1
2$

FRSTER
1$
PC,4$
PC.8%

sRESET TRACK ADDRESS

REMENT CYLINDER ADDRESS
: CON INUE
WITH
COMPARE

sPRINT LAST

LINE IF ERRORS

P:}?T REMAINDER OF MESSAGE

TITRRRE

:DISPLAY SAVED R1

*DISPLAY SAVED RS
:PRINT INITIAL MESSAGE INFO
*PRINT SAVED VALUES
:CLEAR SAVED REGISTER INDICATORS
LEAR THE OTHER ONE

::POP STACK INTO R1

:PRINT REMAINDER OF MESSAGE

3s:
4S:

*RETURN

PC,LINE1

,EMé&2

PC,LINE
PC,LINE3A

PC,LINES

001165
052634
177777

5$:
6$:

001310

000200
108:

T LINE & OF ERROR MES

:GO TO TYPE HEADER
:gsAEFR MESSAGE OF PROCESSING °'DCK®' ERROR

LINH
#-1,FRSTER
PC

:DISPLAY HEADER
sSET ERROR FLAG
:RETURN
sTYPEOUT LIMIT REACHED ?
:BR IF IT HAS
MIT COUNTER
sDECREMEN
LIMIT
AT
sBR IF NOT
JPRINT ALL DATA COMPARE ERRORS ?

PC
R¥,=(SP)
#2.(SP)
PC.LINOCT

'5(3?? (SP)

177;92

sFIRST ERROR ?
:BR IF NOT
sBR IF FIRST ERROR AND PROCESSING °'DCK®' ERROR
sPRINT LINE 1 OF ERROR MESSAGE
sDATA COMPARE ERROR
sPRINT LINE 2 OF ERROR MESSAGE
LINE
OF ERROR ME

LIMIT
9%
LIMIT
108
#SW07,aSWR
108

001310

)

SxS3888
228228228
SREoSes
SRRFRISSIN
W
NN NS
Fth
St I e ~NS WOWO
N = = =
ONSNOESNNO N=NwWn~N

sPRINT SAVED VALUES ?
sBR _IF NOT
sFIRST ERROR?
:BR _IF NOT
sPRINT INITIAL MESSAGE INFO

::PUSH R1 ON STACK
:3PUSH RS ON STACK

A
i~

WWOO

1$:

=
W=NWO
W
NNNSNUWWVININN
=N

=s33338823gs383333:

B
I

0000

NWWO
NN

— a2

CMPRT:

-—

ERSaNoR

P oF oF oF oF ob oF oF oF oF of oF o o7 o2 P o oF o
L

o o o ot ot bt

b 20 0T T o

T o

b&&&&&&b&:
W
&
RS
D0
N
333§§§[« {,V =1SRENGRER
SIERERERSrE sOosr0

SESEES

=l=lelalelelelelelalelelalelalelel OO00O0

SeSSLVR &023 E2EREXE
W

oo o oo

SINNNNNNNNNYN
) = cd cd cd cd o e e o b
OV NOWVISWNI=O

CMCYL
CMSTR
PC.ENDCMP

;TYPE DATA COMPARE ERRORS

CO0000000000000000C0000OOOO
ddddddddddfldddflddddddgddddddddddddddflflflddflddddddd

£8% 3338558

004737
000207

CMTRK

1314

PC,LINOCT

.5i~5p

<3(R1) ,~(SP)

;:BR IF YES

sRETURN
sBUFFER ADDRESS
sADJUST ADDRESS

;TYPE IT
SPACES
EG??D DATA ON THE STACK

:2 SPACES
D D

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-‘2

J_ 7
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-13

SEQ 0087

MAIN PROGRAM

016446

16452

004737

104414

7¢3 014456 000207

022544

001165

sTYPE IT

RTS

*RETURN

ENDCMP: TSTB

001306
052727

2
ERCTR
18
,LIN9E

JSR

PC,LINDEC

JSR

PC,INCTOT

RTS

MOV

734 014510

DISPLY

014506 004737

735 014514

736 014520

104414

004737

g; 014524 000207

:CR-LF

022576
001165

023726

18:

022264

28:

739

FRSTER+1

BEQ
ST
BEQ
DISPLY

7;; 014500 01374.9 0012
733

,SCRLF

;LAST LINE OF COMPARE ERROR REPORTING

9 014460 105737 001301
001417
005737
001410
1044146

PC,LINOCT

DISPLY

4 S

728 014464
729
01
730
014472
731 014476

JSR

ERCTR,=(SP)

:ANY COMPARE ERRORS FOUND ?

*BR IF NOT
*SEE HOW MANY ERRORS
*BR IF ONLY CAN'T MATCH PATTERN
:'NUMBER OF ERRORS='

~ :NUMBER OF ERRORS

,SCRLF

PC.LINE7

STYPE IT
:CR=LF

: INCREMENT TOTAL ERROR COUNT

*PRINT LINE 7 OF ERROR MESSAGE

*RETURN

;2?

‘22}3,’_”‘5 TO MATCH THE DATA WITH A PATTERN

MOV

764

RETURN]

;22

747 014526

010146

748 014530 012704
749 014534 011601
750 014536 162704
751 014542 016405
;gg 014546

001411

MATCH:

000044

18:

000002
002762

757 014560

28:

005303

001374
062704 002762
000403
065766 000002
012601
000207

;gg

MOV

;BUFFER ADDRESS

:PATTERN ADDRESS IN Ré4

*COULDN'T MATCH PATTERN
R1,=(SP)

:SAVE R1 ON THE STACK

#44 R
(SP} .R1
#2.R
STNDAT(R4)
,RS

:PATTERN TABLE INDEX
*RELOAD R1
*DECREMENT INDEX
:ADDRESS OF PATTERN ADDRESS

MOV
CMP
BNE

#4.R3
(R1)+, (RS)+
1$

*NUMBER OF LOCATIONS TO CHECK
*COMPARE THE BUFFER AGAINST THE PATTERN
:BR IF NOT EQUAL, TRY NEXT PATTERN

BNE
ADD
BR
ADD
MOV
RTS

b1
#STNDAT ,Ré&
4
#2,2(SP)
(SP)+,R1
PC

:BR IF NOT FINISHED
*MAKE PATTERN ADDRESS ABSOLUTE
SEXIT
* INCREMENT RETURN ADDRESS
*RESTORE R1
*RETURN

:ga
wx‘; ALL PATTERNS CHECKED AND NO MATCH

*FINISHED CHECKING?

;USE ECC TO CORRECT THE DATA ERROR

767 014604

016037

000240

MOV

$RPBA(R0) ,ECSEC :ADDRESS OF LAST LOCN XFERED

769 014616

066016 000020

ADD

SWRDL
(RO) . (SP)

771 014624

016049 gooozz

MOV

$SSEC(RO) ,-(SP) :SECTOR SIZE

oosng

014612 016046 000236
014622

772

3$:
is:

PC,MATCH

MOV
MOV
SUB
MOV

DEC

000002

#BUFFER,R1

RETUSN2

BEQ

754 014550 015703 000004
755 014554 022125
756 014556 001366
758 014562
759 014564
760 014570
761 014572
014600
;g‘ 014602

JSR

005046

014630

004737

774 014636
775 014640

00141
006319

777 014646

126027

773 014634

001322

776 014642 13163

000024

MOV
CLR

027366

001322

ECC:

JSR

000005

$RPWC
(RO) .=(SP) :ACT WORDS XFERED (2'S COMP)

-(SP)

PC,LINKDV

:CLEAR NEXT STACK LOCN
:DIVIDE WORDS XFERED BY SECTOR SIZE

(SP)

:PARTIAL SECTOR XFERED ?

(SP) ,ECSEC

:SUBTRACT SECTOR RESIDUE

BEQ
ASL

18
(SP)

CMPB

SCODE(RO).#5

SUB

:ADD WORDS REQUESTED

:BR IF NOT
*CONVERT INTO NUMBER OF BYTES

:WAS OP READ HEAD & DATA

K 7
CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 14~14

SEQ 0088

MAIN PROGRAM

778

0146564

1927

14676 0627

779 14‘222
7 000010 001322
780 01
g;
781 014666 162737
001000 001322 18:

783 014700 01

08 001320

784 814.7

005337 00132

786 0147
787 014726
788 014

o:.s 7
042737
006237

785

014712

28:

ADD

MOV
DEC

013737 091 20 001330

MOV

oougo
001330

#8. ECSEC
2s
nooo ECSEC
SP

:BR IF NOT

:ADD MEADER SIZE (IN BYTES) BACK IN
:G0 ADJUST THE STACK POINTER
*SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES)
:ADJUST THE STACK POINTER

safiscmo: ECBIT" ;ECC POSITION COUNT
ecsn ECWRD

;ADJUST THE POSITION COUNT

:LOAD THE WORD COUNT LOCATION

BIC
BIC
ASR

r 17.ECBIT
eé

790 014744 006237 001330

ASR

ECWRD

cumst TO BYTE COUNT

79§ 014756 013746 001330
793 014760 006219

MOV
ASR

ECWRD,=(SP)
(SP)

.PUT THE WORD COUNT ON THE STACK
:CONVERT TO WORD COUNT FOR MESSAGE

795 014766 004737 027702

JSR

PC-$SUPRS

.mm IT

789 014740

17776
ooog1
001

ADD
B8R
SUB

gr 001

791 014750

104414

053005

794 014762

004737

030302

796 014772

104414

053041

ASR
DISPLY
JSR

DISPLY

797 014776 063737 001322 001330

ADD

scuno

,LIN10A

PC,$582D
,LIN10B

écsec ECWRD

*SAVE THE BIT OFFSET COUNT
:CLEAR THE BIT OFFSET
:CHANGE TO BYTE COUNT

:CHANGE TO BYTE COUNT

"ERROR BURST BEGINS AT °

:CONVERT THE WORD COUNT

IN DATA FIELD OF ERROR SECTOR®

:FIND THE BEGINNING OF THE ERROR BURST

798 015006 026037 000240 001330
799 015012 1o1oo;
800 015014 000137 015332

CMP
BHI
JMP

$RPBA(RO) ,ECWRD “;SEE IF BURST WAS IN DATA READ
+6
ea IF IN DATA READ
ECC2
T IN DATA READ = REPORT IT

aog 015026
803 015032

005037
005737

001326
001320

CLR
ST

ECM
scan

:CLEAR THE UPPER MASK WORD
:BIT orrsev EQUAL ZERO

805 015040

005337

001320

ECBIT

*DECREMENT THE an OFFSET COUNT

801 015020 016037 000302 001324
804 015036 001407

38:

006337
006137
ooong
017737
005037
013746
04771

815 015112

005737 001326

817 015120
818 015126
819 015134
820 015142
821 015144
azg 015150
823 015152
824 015160

013737
062737
026037
10100
005037
14
017737
013746

001330 001336
000002 001336
000240 001336

826 015170 04377

oo13§2 164140

816 015116

825 015164

043777
052677

001431

047716

827 015176
828 015202

052677
104414

015516

104414

833 mszog 013746
015212
00473

001324
001326

164246 001334
001336
001324
mgso

0013246
mgm

4$:

164222

164160 001342
001326

007330
og;s“
053363

013556
00473 82'%22
0152§z 104414 0 §u3

ASL
ROL
BR
MOV
CLR
MOV
BIC

ECMSKO
ECMSK1
3s
@ECWRD,ECBADO
ECWRD1
ECMSKO,=(SP)
@ECWRD . (SP)

*SHIFT THE ERROR MASK
SSHIFT THE Lousa INTO THE UPPER
*CONTINUE THE SHIFT
:SAVE THE INCORRECT WORD
:CLEAR SECOND INCORRECT WORD ADDRESS
:PUT LOWER MASK ON STACK
:CLEAR ERRONEOUS ONE BITS FROM MASK

ecmski

:DOES BURST GO INTO NEXT WORD ?

TS1

BEQ

5$:

164146

1641
053205

113

BIC
BIS

001336

ECMSKO,@ECWRD
(SP)+,8ECWRD

Eccl

*BR IF IT IS

:CLEAR ERRONEOUS ONE BITS FROM BAD WORD
:SET DROPPED BITS

*BR IF BURST ONLY IN ONE WORD

MOV
ADD
CMP
8HI
CLR
BR
MOV
MOV

ECWRD,ECWRD1
:DUPLICATE ADDRESS
#2,ECWRD1
*INCREMENT ERROR ADDRESS
SRPBA(RO) ,ECWRD1’ ;IS NEXT WORD IN THE BUFFER
13
:BRIF IT IS
ECWRD1
:CLEAR
WORD ADDRESS
ECCY
*PRINT WORD CORRECTED
@ECWRD1,ECBAD1 :SAVE THE SECOND BAD WORD
ECMSK1,-(SP)
:PUT THE UPPER MASK ON THE STACK

BIC

ECMSK1,8ECWRD1

BIC

ECC1:

sapsczmo) scnsxb :GET THE ERROR
MASK

BEQ
DEC

806 015046
807 015050
808 0150564
809 015056
810 015064
811 015070
a1§ 015074

813 015100
814 o1s1og

MOV

BIS
DISPLY

MOV
JSR

DISPLY

SECWRDT,(SP)

:CLEAR ERRONEOUS ONE BITS FROM UPPER MASK

(SP)+,3ECWRD1
,LIN10HW

ser DROPPED BITS
:HEADER

ECWRD, = (SP)
PC.LINOCT
,LINSP

DISPLY .IJNSP

:CLEAR ERRONEOUS ONE BITS FROM DATA WORD
*PUT ECWRD ON THE STACK
STYP s ECWRD
*SPACES

?‘V’IEEE&%"‘
U*SPACES

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-15

SEQ 0089

MAIN PROGRAM

SNNE
NSNS S
W
=N
NSRS
&~
NN

= L)
— =

WS ONWSNOWS

JSR
DISPLY

ECC2:
ECCX:

WVi—=

=2 S
33 SRERes

83 8875
o SRS

2822
RRCRRGE
SE%
o_n_.g..
—S NS =AY

MoV

FECWRD,=(SP)

PC,LINOCT

LINSP
ECWRD1
ECCX
SCRLF

ECWRD1,=(SP)
PCiLINfiCT
LINSP

MOV
ECBAD1,=(SP)
PC,LINOCT
JSR
DISPLY
LINSP
MOV
SECWRD1,=(SP)
"PC,LINOCT
JSR
DISPLY
NSP
BR
ECCX
DISPLY
LIN10C
DISPLY
,SCRLF
PC
RTS

sPUT QECWRD ON THE STACK

s TYPE _QECWRD

s SPACES
sPRINT THE NEXT WORD ?
:BR IF NOT
sCR=LF
sPUT ECWRD1 ON THE STACK
sTYPE ECWRD1
s SPACES
sPUT ECBAD1 ON THE STACK
sTYPE ECBAD1
s SPACES
sPUT QECWRD1 ON THE STACK
sTYPE SECWRD1
:gPAges
SEX]

‘ffi“f? BURST WAS NOT TRANSFERED TO MEMORY

*RETURN

;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR
000010

163566

000240
000020
000236

PRTBAD: BIT
BEQ
MOV
MOV
ADD

000022
027366

SREREIR RN

RS
SEIEfSAn
AR TS38

015274
015300
015304
015310
015314
015320
015324
842 015330
843 015332
844 015336
845 015342
846
847
848
849 015344
850 015352
851 015354
85% 015360
853 015364
854 015370
855 015372
856 015376
857 015402
858 015404
859 015406
860 015410
861 015412
862 015414
863 015420
864 015426
865 015430
866 015434
867 015440
868 015444
869 015450
870 015452
871 015456
87§ 015462
87 015494
874 015470
875 015472
876 015476
877 015500
878 015502
879 015506
880 015510
881 015514

O—=OO0OO=

i gl
s

005737

—-—

015 43
8%6 01525
835 015256

MoV
JSR
DISPLY
TST
BEQ
DISPLY

1353

001000
000024
000010

05%270

PC,LINKDV

(SP)
18
(SP)
(SP) ,R1

000005

#1000,R1

18:

SSODE(RO).IS

#10,R1
#6,SP

2$:

.$1N11H

000007

022544
000240

R1,-(SP)

PC.LINOCT

g;.’RPBA(RO)

4$:

053363

.LINSP

(R1)+,=-(SP)
PC,LINOCT

022544
001165
001165

#SW3,aSWR
6$
SRPBA (RO) ,R1
$WRDL (RO) ,=(SP)
SRPHS(RO).(SP)
(SP
$SSEC(RO) ,~(SP)

5%:
6$:

BNE
DISPLY
BR
DISPLY
RTS

R2
48
S$CRLF

§s

$CRLF

sPRINT THE BAD SECTOR ?
:BR IF NOT
sPUT THE END ADDRESS INTO R1
sFIND THE BEGINNING OF THE SECTOR
sSUBTRACT THE WORDS NOT TRANSFERED
JMAKE THE UPPER DIVIDEND 0

Sgeygg THE WORDS TRANSFERED BY THE SECTOR SIZE

JREMANDER = 0 ?

sBR IF IT IS = COMPLETE SECTOR TRANSFERED
sCONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT
sSUBTRACT IT FROM THE END ADDRESS

sFINISH THE SIZING
+SUBTRACT FULL SECTOR SIZE FROM END ADDR

sWAS 2PERATION READ HEADER & DATA ?
:BR_IF NOT
sSUBTRACK HEADER SIZE FROM ADDR
sRESTORE THE STACK POINTER
sPRINT THE HEADER
sR2 CONTAINS THE WORDS/LINE COUNT
sPUT THE ADDRESS ON THE STACK
sTYPE THE ADDRESS
sPRINTED ALL THE SECTOR ?
:BR IF ALL PRINTED
s SPACES
sPUT _THE DATA ON THE STACK
s TYPE THE DATA

sDECREMENT THE HORIZONTAL COUNT
:CR {; NOT AT THE END OF THE LINE

sRESTORE THE WORDS/LINE COUNT
:Pg%fi;NHHAT REMAINS IN THE BUFFER

sROUTINE TO DO AN RTC - DRIVE SELECTED IN RO

SEQ 0090

MAI N PROGRAM

sCALL:

;

MOV

RETURN

o
W

§0

Ay
— —
=\
OoONO

046152

JSR

RTNCTR: MOVB
MOVB

18:

JSR

GENDPB

RTS

#DPB, RO

PC,RTNCTR

:DPB ADDRCSS

(R0) ,GENDPB
:MOVE THE DRIVE # TO THE GENERAL DP8
#RTC gsnopaoscomo :COMMAND CODE

RO,RP

:DRIVER ENTRANCE

*DRIVER DIDN'T ACCEPT ORDER

:DPB ADDRESS FOR ORDER
*RETURN

:RgEIINE TO DO A RECALIBRATE = DRIVE SELECTED IN RO
i

MOV

RETURN

;

JSR

PC,RECALT

#DPB,RO

;DPB ADDRESS

MOV

#DPB, RO

:DPB ADDRESS

‘O0R

:
:
;
;

046152

OO0OO00O0D00

046150
000107
035340

b
b

RECALT: MOVB
RECALO: MOVB

18:

28:

046166

MOVB
JSR
RETURN

JSR

BEQ

:DRIVE ADDRESS

(RO),GENDPB
:MOVE THE DRIVE # TO THE GENERAL DPB
#RECAL,GENDPB+SCOMND
:RELCALIBRATE COMMAND

RO, RPO4

:DRIVER ENTRANCE

:BR IF NOT FINISHED

GENDPB
B8R
13
TST
GENDPB+$TATUS
RTS

#DRIVE,GENDPB
PC,RECALTO

:DPB ADDRESS FOR ORDER
*DRIVER DIDN'T ACCEPT THE ORDER
:SEE IF FINISHED
*RETURN

"‘c’:{ffl THE DRIVE IN RO (OFFSET CODE PRELOADED INTO °RPOF‘)

046152

WOFFSET,GENDPB+SFMT :OFFSET CODE

JSR
RETURN

PC,OFFST

MOVB
MOVB

(R0O),GENDPB
:DRIVE # TO GENERAL DPB
W#OFFSET,GENDPB+SCOMND ; COMMAND

MOV

OFFST:

;
;
0
5
0

MOVB

;

#DPB, RO

RO,RPO4

GENDPB
BR
18
RTS

:DPB ADDRESS

:DRIVER ENTRANCE

:DPB ADDRESS FOR ORDER
*DRIVER DIDN'T ACCEPT ORDER

:mtm READ HEADER ROUTINE

S
:
:

mov
MOV
MOV

RETURN

:
939
940 015620

116637

000002

046161

JSR

READHD: MOVB

#DPB, RO
#SECTOR,=(SP)
#TRACK,=(SP)
PC,READDR

:DPB ADDRESS
:SECTOR ADDRESS
:TRACK ADDRESS

2(SP),GENDPB+STRK ;TRACK ADDRESS

CZR JDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-16

N_7
CZRJDEO RP04L/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 14=17

SEQ 0091

MAIN PROGRAM

91 015626 1168 7

MOVB

4(SP),GENDPB+$SEC ;SECTOR ADDRESS

MOVB
JSR

#RDHD,GENDPB+SCOMND ; COMMAND
RO,RPO4
:DRIVER ENTRANCE

GENDPB+STATUS :F INISHED?

950 015672 012666 000002

MOV

(SP)+,2(SP)

32; 015

RTS

w.g 015634

111037

04615

9% 015646 112737
945 015656 004037

173
035340

943 015640 0130 7

94.9 015660 046150
947 015662 000774
948 015664

005737

949 015670

001775

951 015676

005726

046160

MOVB

o«mgs

MOV

0461

046166

2s:

:DPB ADDRESS FOR ORDER
*DRIVER DIDN'T ACCEPT COMMAND

BEQ

*BR IF NOT

(SP)+

3;;

gs&v THE PRESENT OPERATION

956
957
958
959
960

:
:
:
3
:

963 015702

004737

965 015712

001775

967 015716

105237

001253

970 015730
971 015736

032760
001430

000200

977 015756
978 015764
979 015766
980 015772

033760
001407
105237
123737

001250

000250

001253
001252

001253

966 015714

016672

100405

968 015722 062716 000002
969 015726 000425

972 015740
973 015744
974 015746
975 015752
976 015754

005737 001250
001004
005760 000250
001014
000404

981 016000 001340

982 016002
983 016004

000207
004737

986 016016

000207

984 016010
985 016014
987 016020

MOV
#COUNT,RETRY
JSR
PC,SRETRY
RE TURN1
RE TURN2

004737
005726
104414

18:

TST

BEQ

BM]
000016

2$:

38:
48:

022532

5%:
68:

052550

78:

022264

333 0160264 000137 007146

*ADJUST STACK FOR RETURN
:RETURN

:;RETRY COUNT
:RETRY UNSUCESSFUL
*SUCESSFUL RETRY
*NOTE: IF A DIFFERENT ERROR OCCURS DURING
*RETRY, THE ROUTINE EXITS TO 'ERPRC1’

SRETRY: JSR

964 015703 005760 000016

:DRIVE NUMBER

GENDPB
BR
1$
ST

000207

(RO),GENDPB

smtmo) GENDPB+SCYL ;CYLINDER ADDRESS

PC,GODRIV

;RE=-START ORDER

*BR IF NOT

smusmm
28

*ORDER FINISHED?
:BR IF ERROR

INCB

RETRY+1

BIT
BEQ

#BIT7,$TATUSC(RO) ;DID ORDER TERMINATE NORMALLY ?
78
:BR
IF NOT

ADD
BR

#2,(SP)
X3

ST
BNE
TST
BAC
BR

MASK
3s
$RPER1(RO)
6
11

BNE

SRETRY

JSR
TST

PC.LINE?
(SP)+

BIT
BEQ
INCB
C(MPB

RTS
JSR
RTS

DISPLY

JMP

* INCREMENT RETRY COUNT

mcaenem RE TURN
:G0TO EXIT

*1S ERROR MASK 0 ?
*BR
IF NOT
*MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR
:BR
IF NOT
:CONTINUE RETRY

MASK,SRPER1(R0)
6$
RETRY+1
RETRY,RETRY+1

:SAME ERROR?
*BR IF NOT
: INCREMENT RETRY COUNT
:DONE
?

PC
PC,LINES

*RETURN
amm DIFFERENT ERROR

*RETURN

,LINSM

emn

*BR IF NOT DONE

*PRINT LINE
ADJUST STACK POINTER FOR DIRECT RETURN
**DIFFERENT ERROR DURING RETRY'

*REPORT THE ERROR

33(1)

:lctgflme TO UPDATE THE PERFORMANCE SUMMARY STATISTICS

99§

MOV

332

RETURN

996 016030 032760 000300 000016
997 016036

001454

JSR

STATIS: BIT

BEQ

#DPB,R0

PC,STATIS

:DPB ADDRESS

#81T07'81T06, smusmm :CHECK FOR DATA TERMINATION
3s

F NOT DATA TERMINATION

CZRJDEOD RPO4/S/6 MLT=DR LGC MACRO V04.00 S~NOV-81 09:16:17 PAGE 14-18

SEQ 0092

MAIN PROGRAM

16040
1000 0160
1001 0160
100; 1
1003 01607
1004 816074.
1005 016102
1009 16106
1007
01611
1008 016112
1009 016120
1010 016122
1011 0161
1o1§ 016134

016037
7
14
7
60
5560
1 76?
oo1g§
005737
1611
126027
101005
066060
825560
063760

% 16022 ?

1013

016142

005560

01617

01617
016172
5

000046

838506 816175
000024

001424
000024 000001
000020 000046
000050
016172 000052
000054

1$:

1014
016146 026060 000012 000270 28:
1015 016156 001405
1016 016156 062760 000001 000042
1017 016166 005560 000044

MoV
SUB
BEQ
ASR
ADD
ADC
BIT8
BNE
ST
BEQ
CMP8
BHI
ADD
ADC
ADD

SRPBA(RO) ,FACTOR ;STORE THE FINAL BUFFER ADDRESS
.an no DATA TRANSFER
FACTOR
ONVERT o S um COUNT
ncron
gtms(nos mmD COUNT
ADD
ANY CARR
mm.scoomo) see If oam READ OR WRITE
2
H IF ORDER WRITE
AUTOCK
AUTO WRITE CHECKS BEING PERFORMED
1$
*BR IF NOT
scoomo) #1
:PRESENT OPERATION AN AUTOMATIC WRITE CHECK ?
1$
*BR IF NOT
SWRDL (RO,STRANS(R0O) :ADD WORDS WRITTEN
STRANS+2(R0)
:ADD A’ CARRY
FACTOR snmmo) umre THE READ WORD COUNT

ADD
ADC

n LSPOSIT(RO)
sposmz(am

:INCREMENT SEEK COUNT
*ADD CARRY TO UPPER WORD

;USED FOR WORDS TRANSFERED

ADC

CMP
BEQ

}3}3 016170

000207

38:

RTS

1185‘1’ 016172

000000

FACTOR: .WORD

gumo)LFACTOR s
; wmcr THE INITIAL ADDRESS

sawog

D ANY CARRY
scvua ) smmb)
:DID MID-TRANSFER SEEK OCCUR
:BR
IF NOT

102
102

;ROUTINE TO GET A BUFFER
.c LL:

1025

1024

1026

1027

MOV

#DPB, RO

JSR

PC, GETBUF

}8%8

1030 016174

:
2

010146

MOV
MOV

1033 016202 013702 001616

*CLEAR THE STACK

;BUFFER ADDRESS WILL BE ON THE STACK

;STACK WILL BE ZERO IF NO BUFFER AVAILABLE

R1,-(SP)

ag‘=(SP)
-(SP)

;SAVE R1

*SAVE R?
*SAVE R3

1$:

MOV
CMP

oeunauz R1
:FIRST ADDRESS OF ALLOCATION TABLE
$WRDL (RO) .2(R1) :SEE xr mene IS A BLOCK LARGE ENOUGH

001434
062701 000004
000767
011166 000010
38:
166061 000020 000002

BEQ
B8R
MOV
SUB

1037 016222
1038 016224

101405
005302

1035 016210 012701
1036 016214 026061

001620
000020 000002

BEQ

001407

1045 016252 006360 000020

1046 ow%se 066011

000020

1049 016270

005337

001616

1051 016%8

oosso;

1047 016262 006260 000020
1048 016266 000414

1os§ 016

:DPB ADDRESS

auhsu. R2

001444

1050 016274

-(SP)

MOV

1034 016206

1044 016250

RETURN

GETBUF: MOV

1031 016176 010246
1os§ 016200 010346

1039 0162;8
1040 016230
1041 0162%2
1042 016236
1043 012345

CLR

001411

00140

1053 016302 010103
1054 016304 062703 000004

BLOS
DEC

#6,R1

BEQ

ADD

ASR
BR

$WRDL (RO)

*CONVERT # WORDS TO BYTES
*RETURN # BYTES TO WORDS
*RETURN

*BR IF ALLOCATION TABLE EMPTY

DEC

MOV
ADD

*BR IF DIFFERENCE IS ZERO

$WRDL (RO)
6$

BgHBI.

BEQ

*BRANCH IF IT IS
*DECREMENT TABLE COUNT

$WRDL
(RO) , (R1) :MAKE NEW STARTING ADDRESS

DEC

BEQ

*BR IF NONE AVAILABLE

6$
*BR IF THROUGH TABLE
*INCREMENT TABLE POINTER
1$
*CONTINUE LOOKING
(R1),10(SP)
*BUFFER ADDRESS TO STACK
$WRDL
(R0) ,2(R1) :ADJUST BUFFER SIZE

ADD

ASL

48:

38
R2

*NUMBER OF SEPARATE BUFFERS

R1.R
¥ R

*DECREMENT ENTRIES COUNT
*DECREMENT TABLE COUNT

*BR IF ITEM WERE LAST ENTRY
*MOVE TABLE POINTER
*POINT TO NEXT ENTRY

SEQ 0093

MAIN PROGRAM
)

58:

68:

01 60%
01260
000207

;MOVE ITEMS

DECREHENT TABLE COUNT
TINVE
AT END OF TABLE

(SP)+,R3
(SP)+,R2

(SP)+,R1
PC

sRESTORE R2

sRESTORE R1
:RETURN

BUFFER BACK IN TABLE

e R

el E

058 016316
059 016320
060 016 52
061 016324
06; 016326
06
064
065
066
067
068
069
070
071
016330
0;%
6332
0
6336
074
016342
075
016344
076
016350
077
016352
078
016356
079
016360
080
016362
081
016366
082
016370
083
016372
084

2882

e P

0?9 816 14

(R3)+,(R1)+

#DPB,RO

;DPB ADDRESS

R1,=(SP)
#BUFTBL+2,R1
BUF TBL ,R2

;SAVE R1
:BEGINNING OF TABLE
SENTRY COUNT

D e

000006

000020

e e e
S

1$:

28
SWRDL (RO) ,R3

:BR IF EMPTY TABLE
:TRIAL ADDRESS

(R1) ,R3

*UPPER ADJACENT BLOCK
‘BR IF YES

R3
$BUF (RO) ,R3
48
#6 R

—

SotioSENRS32 RRRGRSGZIIGYNNRIY2

b
P

W =2 AR
=

—

o0
VIINWVINOWVWORONND

R R R R R R R R OGS
23&%&%&%&2@:&82&
28
§° 2828202=gr:t:c:c:
ONNWO 288228882
nggg
vavd
x SR
OR R

D
d =D cD D md
d e
D
D
d —d
d
D o
D
d md —d
d

b med

016470
6472
016476
016500
016502
016504
016506
016510
016516
016522
016524

N
N
N
S
S
N
N
N
S

100 2296

101
10§
103
104
105
106
107
108
109
110
111

64
64
64
64

e S

32332 IITILESE 8

:
RELBUF

001620
001616

OO0 O0COO0VOOO0O0O0O0O0OO0O0O0O0OO0O0O0O0O0O0O0COO0O0O0O0O0O0O0O

b =D

PC,RELBUF

$BUF (RO),(R1)
R2

000002

001616
001620
000002

*CONTINUE SEARCHING

:PUT THE BUFFER BLOCK INTO THE TABLE

:INCREMENT R2 FOR USE LATER

2$:

éngEHENT ENTRY COUNT

4$:

BUF TBL
108
$BUF (R0) , (R1)
R2

: SAVE R
:ENTRY COUNT

5$:

:SEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE
:BLOCK ADDRESS TO TABLE

SWRDL (ROJ, (R1)+ :SIZE T 0 TABLE

:RELEASED BUFFER IS LOWER ADJACENT
suno%ggoi 2(R1) INCREHSNTED SIZE

BUF
TBL ,R2
OBUFTBL*Z RS
2(R5) ,R
Ré

(R5) ,R4
R4, (R1)
8s’
#4 RS
R2
6$
%8:)*
000002

*DECREMENT ENTRY COUNT

5%
$BUF (R0) , (R1)+

6$:

000004

: INCREMENT POINTER

$WRDL (ROS ,2(R1) °;BLOCK SIZE
BUF TBL
: INCREMENT ENTRY COUNT

000002

000006
000020

:CHANGE TO BYTE COUNT
*ADDRESS OF HIGHER ADJACENT BLOCK

:BEGINNING OF TABLE

:BLOCK SIZE (IN WORDS)
s CHANGE TO BYTE COUNT

:ADD BLOCK BEGINNING ADDRESS
:R1 STILL POINTS TO INSERTED ENTRY
:LOWER ADJACENT IN TABLE
: INCREMENT POINTER
:DECREMENT ENTRY COUNT
:CONTINUE LOOK ING
gESTORE STACK POINTER

(SP)+,R2

:RESTORE R2

BUF TBL
R1
e,RS

:DECREMENT ENTRY COUNT
:GET READY TO COMPRESS
: INCREMENT TO NEXT ENTRY

2(R1).2(RS)

s INCREMENT LOWER BLOCK LENGTH

laalan}

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16-59

CZRJDEO RP04L/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-30 8

SEQ 0094

I Arv

1374
012601
000207

108:

D D b b
D D
e

000004
000006
000020
000001

MOVE SIZE FIELD DOWN
DECREMENT ENTRY COUNT
IF NOT FINISHED
RE;TMS R1

DEC
BNE
MOV
RTS

MoV
MOV

RETURN

000024

18:

000024

MOV

$BUF (RO) ,R1

MOV
MOV

BIS
MOV

38:

000020
002762
48:

#PATTERN,SPATTC(RO)
PC,F ILBUF
#BIT02,$CODECRO)"

BEQ

28:

#DP8,RO
:DPB ADDRESS
#BUFADR,$BUF
(R0)" :LOAD BUFFER ADDRESS INTO THE DPB

BITB

BNE

BITB

000004
000030
002762
000020

MOVB
JSR

FILBUF: SAVREG

000012
010000
000010

-2

OGO

[wl=1=]

83228

-—h b

8888222
gA
TR ANP
e e SetP
e
e S

e T

o T

e R

e o

e Y—

g333 S&&
PSR RRAGRRR&8$§§33333333

=lelelelelalalelelalalelelelelelelelelelelelalolatele
Ia)

NS SR AR S8 B Y
N RN 28 S

; COMPRESS TABL E

MOV

:
:

D D ) D D D
D b e e =D D
d D e
D d d e D D b D
D d d b b b D d D D D
D D e b D D D e
D e D D d D b e
) e e
) ed D

:PATTERN CODE

:SAVE THE REGISTERS

;SEE IF READ ORDER

:BR IF READ

SWRDL (ROJ,R2

:POSITIVE WORD COUNT

#BIT00,$CODE(RO)

*BUFFER ADDRESS

;SEE IF WRITE HEADER TYPE ORDER

:BR IF NOT

#BIT12,(R1)+
$SEC(RO), (R1)+

:SET FMT22 BIT
:MOVE SECTOR & TRACK

$CYL(RO),(R1)

:CYLINDER ADDRESS

CLR
CLR
SUB
BLE

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

*CLEAR FIRST KEY WORD
:CLEAR THE SECOND
*ADJUST THE WORD COUNT
:BR IF END OF PATTERN

MOVB
MOV

SPATTC(RO)
,R4¢
STNDAT(R4)
,RS

:RELATIVE PATTERN ADDRESS
;PATTERN ADDRESS

CLR

*CLEAR R4

MOV

#20,R3

*PATTERN COUNT

DEC
BEQ

R2
43

:DECREMENT THE WORD COUNT
:BR IF DONE (WORD COUNT = 0)

MOV

DEC
BNE
MOV
MOV
BR
RESREG
RTS

(RSJ+, (R1)+

R3
33
#20,R3
STNDAT(R4)
,RS
3s
PC

*MOVE THE PATTERN INTO THE BUFFER
*DECREMENT THE PATTERN COUNT
:BR IF MORE PATTERN
*RESTORE PATTERN COUNT
:RESTORE THE ADDRESS
:CONTINUE DISTRIBUTING THE PATTERN
*RESTORE THE REGISTERS
*RETURN

;gxtfr THE ORDER FOR THE DPB IN RO

38
5
§° oS

(=1~

—>

Qg £S &SN
ot

2222 e

:
:
3

(elelolale
]

RR R 2 S S

b d d d = ed d e b d D D )
8 d e b md
D d
ek =D e e

MOV

.E{tt THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER)

D e
D e

MR IR IS BRN R RN N NS S

9s:

12521

D D D D )
D D D b d

D e =D
D b D

MAIN PROGRAM

016704
035340

MOV
JSR
RETURN

GODRIV: MOV
MOV
18:
JSR

2s:

LWORD

HALT

MOV

#DP8,RO
PC,GODRIV

:DPB ADDRESS

RO,=(SP)
RO.2$
RO.RP04

:SAVE RO
:CURRENT DPB ADDRESS
*CALL THE DRIVE HANDLER

(SP)+,R0

:DRIVE BLOCK ADDRESS GOES HERE
:DRIVER REJECTED REQUEST

*RESTORE RO

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14=21

SEQ 0095

MAIN PROGRAM

1198
01 671

8
s
n”n 8167
1170

016

11;; 167
1
8167
1174 016742
}};S 016746

1179

062760
005560
000207

0
34

800044

000036

#1,8P0S1T(RO)

IF
s INCREMENT SEEK COUNT

g;REVAOS(RO)$CYLé=O) Nglb ORDER REQUIRE A CYLINDER CHANGE

000042

3s:

RTS

SPOSIT* (RO)

:ADD ANY CARRY

:gErERATE PARAMETERS FOR THE OPERATION

:
:

1182

—_

wviwnwn

SR §‘°
owmugfi
3 SS32%

033534
000001

1196

1197
1198
1199 017030
1200 017034
1201 017040
1202 017042
1203 017046
1204 017050
1205 017054
1206 017056
1207 017062
1208 017066
1209 017072
1210 017074

MOV

JSR

RETURN

162156

#DPB, RO

:DPB ADDRESS

PC , SRAND
#SW0,aSWR

sCYCLE msonggm NUMBER GENERATOR
§
sSEE IF
:BR IF SET - READ ONLY

PC,SELPAR

000010
027340
001422

#10,R5

017472

PC ,RANWRT

033634
177776
000004
000074

PC,GETREM

R5.RATIO
2$

2$:

MOV

3s:

MOvVB

:READ/WRITE SELECTION DIVISOR
GEY SELECTIONVALUE

38’

;DETERMINE IF READ OR WRITE
:BR IF READ
sSELECT A WRITE ORDER
;CONTINUE WITH THE SELECTION

o~c1 RS

:MASK OUT ALL BUT BIT 0

SLONUM RS

RS.SNCODE(RO)

:SELECT READ OPERATION CODE

sTABLE OFFSET FOR READ CODE

:ORDER SELECTION CODE TO CONTROL BLOCK

sGENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES °MINSEC' & "MAXSEC'
000116
000120

RANSEC: ?ov

000026

MAXSEC(RO) ,R5

MINSEC (RO) ,R5
2%
?gNSEC(RO).RS

000120
1$:

INC

#22..R5
R5

PC,GETREM

HINSSC(RO).RS
R5.421.

}2}1 017100

2$:

1%1%

MovB

#22. RS
R5,$NSEC (RO)

;GET MAXIMUM SECTOR ADDRESS
s 'MINSEC' AND °"MAXSEC' THE SAME ?
:BR_IF THEY ARE
s SUBTRACT MINIMUM SECTOR ADDRESS
:BR_IF MAX LARGER
THAN MIN
s CORRECT THE NUMBER

: INCREMENT DIFFERENCE TO USE AS DIVISOR
:GET THE RANDOM AUGMENT
:NEW ADDRESS

:1S VALUE TOO LARGE ?

:BR IF NOT

s CORRECT VALUE

:STORE SECTOR ADDRESS IN DPB

sGENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES "MINTRK®' & °"MAXTRK®

1214
1215 017104
1216 017110
1217 017114
1218 017113
1219 01712
1220 017124

1221 017130
122% 0171;%
1223 0171
1224 017142
1225 017146

s INCREMENT THE OPERATION COUNT

SOPERC+

000012

1178
1179
1180
1181

1183 016750
1184 016754
1185 016762
1186 016764
1187 016770
1188 016774
1189 017000
1190 017002
1191 017006
1192 017010
1193 017014
1194 017020
1195 017024

#1,80PERC(RO)

RANTRK: MOV

MAXTRK (RO) ,R5

ginTRK(RO).RS
?%NTRK(RO).RS

1$:

066
020527
101402

INC

#19..RS
RS

PC,GETREM

HgNTRK(RO).RS
gs,l18.

sGET MAXIMUM TRACK ADDRESS
'Hl?;k#;EAND éHAXTRK THE SAME ?
:BR
Y AR

:SUBTRACT MINIMUM TRACK ADDRESS
;B8R IF HAX LARGER THAN MIN
sCORRECT THE NUMBER

INCREHENT DIFFERENCE TO USE AS DIVISOR
:GET THE RANDOM AUGMENT
:NEW TRACK_ADDRESS
;1S VALgs TOO LARGE ?

IF
:BR

£ 8
Cl?JDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-22

12 6

017150 162705

Sus

”19. .RS

28:

}

;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES °*MINCYL® © °*MAXCYL®

1232

1233

33 001350

017166 os%no 883302 000262
017174

001403

1237 017214

001417

1240 017253

063705

001350

1242 017232

004737

027340

RS.SNTRK(RO)

:CORRECT VALUE

} gzoms:. 110560 88%;

1231 017160 012737

MOVB

SEQ 0096

:STORE TRACK ADDRESS IN DP8

MOV

#6411, ,CYLIMT

:;ASSUME AN RP04/S

BEQ

:BR
IF NOT

:BR
IF THEY ARE

BIT

mroi SRPDT(RO)" ;SEE IF RPO6

123 017176 012737 001457 001350
MOV
1235 owgo:. 016005 000106
RANCYL: MOV
1236 017210 026005 000110
cMP

#815.,CYLIMT
MAXCYL(RO),RS
MINCYL(RO).RS

1238 017216 166005 000110
1239 017222 1
§

SUB
8PL

MINCYL(RO),RS
1$

:SUBTRACT MINIMUM CYLINDER ADDRESS
*BR IF MAX LARGER THAN MIN

INC

: INCREMENT DIFFERENCE ro USE AS DIVISOR

000404 000102
001404 000404

ADD
CMP
BHI
SUB
MOV
CMP8
BNE
MOV
CMP

MINCYL(RO),RS :NEW CYLINDER ADDRESS
CYLIMT,RS
:1S VALUE TOO LARGE
?
28
*BR
IF NOT
CYLIMT,RS
*CORRECT VALUE
RS, SNCYL (RO)
srone CYLINDER ADDRESS IN DPB
#3.SNCODE(RO)
:WRITE HEADER & DATA
?
RANSIZ
‘B8R IF NOT
#260. ,SNWRDL (RO) " ; CHANGE WORD LENGTH TO 260 FOR WRTHD ORDER
MAXDL ; #260.
:CAN A FULL SECTOR BE WRITTEN ?

1253 017
013760 001404 000102
}ggg 017314 000456

MOV
B8R

MAXDL , SNWRDL (R0 ; CHANGE TRANSFER SIZE
RANPAT
;CONTINUE WITH THE SELECTION

1241 017230

1243 017236
1244 017242
1245 017246
1246 017250
1247 0172564
1248 017260
1249 017266
1250 017270
1251 017276

1252 01

005205

066005
023705
1o1oo§
163705
010560
122760
001013
012760
023727

103062

BEQ

18:

000110
001350
001350
000100
000003

000074

}ggg

28:

ADD

JSR

BHIS

CYLIMT,RS

PC,GETREM

RANPAf

:CHANGE CYLINDER LIMIT
:GET MAXIMUM CYLINDER ADDRESS
:"MINCYL® AND "MAXCYL®' THE

*CORRECT THE NUMBER

*GET THE RANDOM AUGMENT

*BR IF IT CAN

:GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 © THE VALUE IN °*MAXDL®

1258 017316 013705
1259 017322

005737

1261 017330
126% 017332

005205
004737

1264 017340
1265 017342
1266 017346
1267 017350
1268 017354

001404

RANSIZ: MOV

;GET surm SIZE

*SELECT A RANDOM WORD COUNT ?

027340

INC
JSR

RS
:
PC,GETREM

*INCREMENT THE MAXIMUM SIZE
*DIVIDE BY MAX VALUE

001003
004737 033534
000763
010560 000102
010546

BNE
JSR
B8R
MOV
MOV

1%
PC ., SRAND
RANS]?Z
RS,SNWRDL(RO)
ns. (s )

*NOT 0, CONTINUE
*CYCLE THE RANDOM NUMBER GENERATOR
*TRY AGAIN
:WORD LENGTH TO CONTROL BLOCK
*NEW WORD LENGTH ON STACK FOR CHECK

1270 017360 012746 000400

1271 017364 132760 000001 000074

MOV

*SECTOR SIZE IS THE DIVISOR

12;5 017372

1273

001402

BITB

#256.

BEQ

1274 017400

004737

027366

ADD

2s’

#4,(SP)

1276 017406

021627

000004

MOV

(SP)+, (SP)

1278 017414
1279 017420

005737
00140

001420

1282 017430

005726

1263

017336

1269 017356

005705

BNE

18:

005046

017374 062716 ooogm

1275 017404 01261

1277 017412

MAXDL ,RS
WCSEL

1260 017326 001010

001420

10301

1280 017422 161660 000102
1281 017426 000404

CLR

28:

JSR

CMP

,~(SP)

#1 sutoomo)
PC.LINKDV

*BR IF NOT

:1S THE REMAINDER 0 ?

*MAKE UPPER DIVIDEND ZERO

*SEE IF uexr ORDER IS A HEADER ORDER
*BR IF NO

*ADD uwen SIZE TO SECTOR SIZE

:DIVIDE BUFFER SIZE BY SECTOR SIZE

*MOV REMAINDER UP THE STACK

(SP) ,#4;SEE IF REMAINDER LESS THAN 4

BHIS

SUB
B8R

(SP) ,SNWRDL
(R0) “;ADJUST WORD LENGTH DOWNWARD
113
; CONT INUE

ST
BEQ

38:

WCSEL
3s

(SP)+

:BR IF NOT

*SELECTING RANDOM TRANSFER SIZES ?
:BR
IF YES
:CORRECT THE STACK POINTER

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-23

SEQ 0097

MAIN PROGRAM

1283 0174
1284 0174
1285 01744
1 89 01744
1287 01745
1288
} 89

033534
000074

TST

CMP8
BNE

PC,SRAND

CVCLE THE RANDOM NUMBER GENERATOR

RANSI1Z

:TRY AGAIN

RANXIT

:BR IF NOT WRITE DAYA

(SP)O
#2,SNCODE(RO)

: CORRECT YHE STACK POINTER
:SEE IF WRITE DAT

sGET A RANDOM PATTERN NUMBER

1291 017452
1
§ 017456
1
017462
1296 017470

000104

}295

1397
1298

RANPAT: JSR
MOVB
RANXIT: MOV
RTS

PC,GETPAT

RS SNPATC (R0)

gzi SNEXT (RO)

sGET PATTERN CODE
;MOVE PATTERN CODE TO CONTROL BLOCK
:SggrsazAHETERS SELECTED INDICATOR

sROUTINE TO SELECT A WRITE (OR WRITE CHECK) OPERATION

017472
1299 017476
1300 017502
1301
130% 017506
1303 017510
1304 017514
1305 017516
1306 017522
1307 017524
1308 017532
1309 017534
1310 017542
1311 017550
1312 017552
1313 017556
1314 017562
1315 017564
1316 017570
1317 017574
1318
1319
1320
1321 017576
132§ 017602
1323 017606
1324 017610
1325 017612
1326 017616

RANWRT: MOV

JSR
TST

BEQ
BIS8
BR

#4 ,R5

PC,GETREM

AUTOCK
1$

#2 .R5

sWRITE OPERATION SELECTION DIVISOR
:GET SELECTION CODE

:ARE WRITE CHECK ORDERS TO BE SELECTED

RANDOMLY 2

:BR_IF THEY ARE

sSET CODE 10O ELCLUDE WRITE CHECK ORDERS

33
R5.M

:COMPLETE SELECTION
:WRITE CHECK SELECTED ?

000024

#2,$CODE (RO)

PREVIOUS WRITE OPERATION ?

000074
000074

$CODE (RO),sgCODE(RO)

1} H

CMP

38"

4$:

5$:

RTS

:BR_IF NOT

BR IF PREVIOUS WAS READ OR WRITE CHECK

:MOVE CODE TO °NEXT CODE'

oz SNCODE (R

gmsé WRITE TO WRITE CHECK

cz RS

:CHANGE WRITE CHECK TO WRITE

*BR IFTHEY ARE

gg.sucoomo»

se;uu:" *NEXT® CODE

FORMAT

#1.RS

‘WRITE nwsn ORDERS ALLOWED ?

SALTER POSSIBLE WRITE HEADER

sROUTINE TO SELECT A PATTERN

GETPAT: MOV
JSR
TST

1327 017620
}gZB 017622

1$:

1330

1331
133%
133
1334
1335
1336
1337 017624
1338 017626
1339 0176

4(S:

JSR
BR

BNE
JSR
BR
ASL

RTS

#20 RS

sSELECT PATTERN

PC,GETREM

:GET CODE

PC,SRAND
GETPAT

:BR_IF NOT ZERO
CYCLE THE RANDOM NUMBER GENERATOR
:TRY AGAIN

R5
1$

;WAS PATTERN ZERO SELECTED ?

:MAKE CODE INTO TABLE INDEX

sROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES
s CALL:

Z
010546
116060
032760

000234
000006

0000;7
000074

JSR

GETPAR: MOV
MO

#DPB,RO

PC,SELPAR

PC.GETPAR

R5,-

:DPB_ADDRESS

sSELECT THE PARAMETERS

snficsn(no> mevbmo»

#6, SNCODE (RO)

:SAVE CURRENT PARAMETERS

:SEE IF NEXT OPERATION IS READ OR WRITE

} ‘1’ "wz. §%8%
1
} ;17:‘z§
16060 88%15 88%?2'
1

817

oot.nr

2261

18:

1345 mgs 115660 Sooo

GBI
e
1 ow?o:. 0327

1350 017714
1351 017722

116060
mgos

000074
7%

000024

1;5

116060

000075

00003

1349 017712 001043

R e
161226 28:

017736

1354 017742
1355 017750
1359 017756
1357 017764

016060
016060
016060
016060

000076
000100
000102
000102

%
ongv

CYL(R mewé(no) ‘&'JESTARTING CYLINDER
gsec(ag) SPREVA(RO) :SAVE STARTING SECTOR AND TRACK

JSR

PC,READDR

MOVB

RS
BIT

BNE

MOVB
MOVB

135; 017726 116560 001760 ooooos

SEQ 0098

MOVB
MOVB

-GET THE DECREMENTED SECTOR AND TRACK ADDRESSES

(SP)+,SPREVA+1(RD) :TRACK ADDRESS

AN :SWITCH
AR
3

#SW06, aSWR

:BR IF SET

SNCODE (RO) scooemo)
OGICAL CODE FOR OPERATION
SNCODEg
(
:LOAD RS FOR USE AS TABLE INDEX

COMTBL(R scombm :RP04 COMMAND CODE

SNPATC(RO) mncmo)

*PATTERN CODE

000010
000012
000020
000004

MOV
MOV
MOV
MOV

SNSEC (RO) ,$SEC(RO) :TRACK AND SECTOR ADDRESSES
SNCYL (RO) ;SCYL (RO) :CYLINDER ADDESS
SNWRDL(RO
, SWRDL (RO) .eumnSIZE
SNWRDL (RO) momo) :WOR couur FOR THE RH11

1359 017776 012760 000400 000022

MOV

ozso..sssec(nm SINITIAL mue OF SECTOR SIZE

1361 020012

BEQ

3’

:BR
IF NOT

SNEXT (RO)
(SP)+,RS

RESET 'PARAMETERS LOADED' INDICATOR
*RESTORE RS

1358 017772 005460 000004
1360 020006

032760

001403

000001

NEG

000024

mg 020014 062760 000004 000022

BIT

ADD

#1,8CODE(RO)

#4,$SSEC (RO)

1363 020022 005
000164
1364 020026 012605

38:

1367
1368
1369

;ROUTINE TO COMPRESS A LIST
SCALL:
:
MOV
#ADDRS ,R1

};;5

;

}3322 020030

000207

1370

1373 020032
1374 020036

RTS

016111
001403

000002

1375 020040 062701 000002
1376 020044 000772
g% 020046 000207

%(.3

CLR
MOV

$SWRDM(RO)

JSR

PC,CMPRES

CMPRES: MOV
BEQ

2(R1),(R1)
1$

1$:

RETURN
ADD
BR
RTS

#2.R1
CMPRES
PC

om.tmTIT

:HEADER OPERATION
?

ADD HEADER SIZE
*RETURN

;COMPRESS LIST STARTING AT THIS ADDRESS
;COMPRESS THE TABLE IN R1
*BR WHEN ZERO FOUND

* INCREMENT R1
:CONTINUE COMPRESSING TABLE
*RETURN

""2{’["“ TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK

1381

}fig

MOV

1384
1385
}3339

:
;
;

MOV
#1,8PACK(RO)
JSR
PC.WRTPK
RETURN

;°READ PACK' FLAG

WRTPK:

JSR

sofieacoz(ao)

:CYCLE THE RANDOM NUMBER GENERATOR

somcmo»

*LOWER WORD ZERO ?

1388 020050

004737

033534

1389 020054 005760 000040

1390 020060 001007
1391

005760

000036

139; 0 oogo 001004
1393 020070 105769 000026

1394 020074 10050
1395 020076 000470

MOV

#DPB, RO

#-1,8PACK(RO)

BNE

WRTPK1

BNE
TST8

WRTPK1
mcx(no)

BMI
B8R

1396 020100 116060 000234 000027 WRTPK1: MOVB

WRTPK
WRTPK

:DPB ADDRESS

:'WRITE PACK' FLAG

*SEE IF FIRST OPERATION

*BR IF UPPER WORD OF COUNTER NOT ZERO

*BR IF NOT 1ST OPERATION
*SEE WHICH= 'R' OR ‘W'

:BR IF W
R' OPERATION

SRPCS1(RO), mevb(no :SAVE CURRENT PARAMETERS

H 8
%}JDEO
RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-24

CZ?JDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 1‘-55
1397 g
106

004737

02261

99 0
1400 0 1
1401 0201
1402 020126
1403 020144
1404 020152
1405 020156

1
816060
16060
016060
ozsogg
1034
101004

00003
000272
8% 42
270
000012

1;90 8

"3&3

JSR

MOVB

000034
000010
000012
000106

1406 020156 126060 000011 000112
1407 0201646 101422
1408 ogom 116060 000114 000011 18:
1409 020174

1410 020202

116060

000120

000010

1412 020214

032777

000020

160716

1411 02021

000110 000012

0027"37u 027140

1413 020222 001003

BLOS

C
MOVB
MOVB

MOV

JSR

BIT

BNE

1418 020246
1419 020252

005460
105760

000004
000026

1421 020260

012760

000404

000022

WRTPK2: MOV

1425 020306

012760

000400

000022

WRTPK3: MOV

1428 020326

004737

017576

1430 020336

005060

000104

1415 ozoz;g 000137
005676
1416 020232
013760 001406 000020 2$:
1417 020240 013760 001404 000004

JMP
MOV
MOV

1620 020256

BM]

1426 020312

112760 000002

000024

1427 020320 112760 000161 000002

1429 020332
}31 020342

143§

110560

000207

010146
010246
012701 000124
060001

ozogzg 012702 000020

5 osg
021160
000272
1.9 020366 001022
020370

1448 020374

1449 020376

105761

000003

004737

022616

1004 9

1450 020402 122661
1451 020406 001011

MINCYL (RO) .SCYL(RO)

:RESET SECTOR ADDRESS

:RESET CYLINDER ADDRESS

PC,EOP2

:DROP°THE DRIVE_(NORMAL TERMINATION)

:BR IF SET

csuol..asun
(SP)+

+1S SWITCH & SET
?

:INCREMENT THE STACK POINTER

MAIN
*RETURN DIRECTLY TO 'MAIN'
MAXDL
, SWRDL (RO) *;BUFFER SIZE IS MAXIMUM
MAXDL.SWRDM(RO)
:WORD COUNT
$WRDM (RO)
mcx(no)

; CHANGE WORD COUNT TO 2°S COMPLEMENT
*READ OR WRITE
?

ozeo..ssstc(nm

:SECTOR SIZE FOR READ

PK3

:BR IF WRITE

S,$CODE(RO)
;CODE FOR READ MEADER & DATA
mno scomomo: :DRIVE CODE FOR OPERATION
WRTPK
;SET UP FOR EXIT

MOVB

Mmr $COMND(RD) 0P CODE

MOVB

as "SPATTC(RO)

RTS

WRTPK4: CLR

:
:
:

}223

1447

MINSEC(RO).$SEC(RO)

MOVB
MOVB
B8R
JSR

*CALL:

020344
020346
1442 020350
1443 020356

NEG
TSTB

smx(no).mmx(ko) SEE IF AT MAX TRACK
BR 1F NOT GREATER
MINTRK(RO) smuho) :RESET TRACK ADDRESS

czso. $SSEC(RO) :SECTOR SIZE

$CODE (RO)

CODE FOR WRTDAT

LGETPAT

:GET PATTERN CODE

SNEXT (RO)

:PATTERNCODE

:CLEAR "PARAMETER SELECTED® INDICATOR

*RETURN

;ROUTINE TO DETERMINE OF ERROR IS AT A LOCATION ON THE PACK DEF INED

1434
1435
1436
1437
1438

1441 020344

-GET THE DECREMENTED SECTOR AND TRACK ADDRESSES

(sfi».mmn (RO) ;TRACK ADDRESS

(SP)+.SPREVA(RO) :SECTOR ADDRESS
SRPCC(RO), SPREVA+2(R0) ;CURRENT CYLINDER
SRPDA(RO) .$SEC(RO) ;NEW SECTOR & mAcx ADDRESS
SRPCA(RO)- $CYL (RO) neu cvunoen ADDRESS
$CYL(RO) ,MAXCYL(RO) " :SEE IF AT END
2s
aa 1E LESS THAN. "MAXCYL'®
1$
IF cmm THAN *MAXCYL'

oosrgg

1422 020266 112760 000005 000024
1423 020276 112760 000173 000002
1424 020302 000415

EADDR

SEQ 0099

MOVB
MOV
MOV
MOV
CMP
BLO
BHI

1414 020224

100412

000003

SPOTCK:

18:

IN THE BAD TRACK/SECTOR TABLE FOR THE DRIVE.
JSR
PC,SPOTCK
RE TURN1
;ERROR AT AN ADDRESS IN TABLE
RE TURNZ
:NO TABLE ENTRY FOR ERROR ADDRESS OR
*PARAMETER °'NOTPRT' IS 0

MOV
MOV
MOV
ADD

R1,=-(SP)
R2.-(SP)
néosec R1
R

:;PUSH R1 ON STACK
$:PUSH R2 ON STACK
:INCREMENT FOR BAD SECTOR TABLE
*ADD THE BLOCK'S STARTING ADDRESS

CMP
BNE

(R1) SRPCC(RO)
4

IS cvuwen IN THE TABLE ?
*BR IF NOT

MOV
IST8B

B8M]

JSR

CMPB
BNE

16 R2
3(R1)

PC,READDR

(sfin I(R1)

*BAD SECTOR TABLE SIZE COUNT
*TRACK ENTRY ?

*BR IF NOT

*DECREMENT THE SECTOR/TRACK ADDRESS

*COMPARE THE TRACK ADDRESS
*BR IF IT IS NOT EQUAL

CZIJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-56

SEQ 0100

S
o~
S&=
& ASYSFE
= ISN=8e
NS

—

N=0

o33

§°° RCgecosoRasS

6
1471 020500

OO
O

(- V]

R
)

RRRERRRRE
RERRR
Segmsnses
b:&b
JNNES
Nofi

88°°°°°°°°°°°°°°°°°°°
NN

BEBDDENS

5855828858 SERR0RER
3

MAIN PROGRAM

000002

2%:

000004

4S:

3s:

(R1)

(SP)+

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

001264
000004

78:

:1S A SECTOR ADDRESS IN THE TABLE ?
:BR I1F ONE IS
s INCREMENT THE STACK POINTER

:DISPLAY THE MESSAGE
COHPARE YHE SECTOR ADDRESS

:BR_IF NOT EQUAL
s CHECK 'NOTPRT'

: INCREMENT THE STACK POINTER
;60 TO THE NEXT LOCATION IN THE TABLE

PASTFTHE ;ABLE ENTRIES ?

:BR _IF
PAS
sDECREMENT THE HAXIHUH ENTRY COUNT

:BR_IF MORE TO CHECK
sEND, EXIT

PRIN; THE ERROR ANYWAY ?

5$:

001426
177777
000002

1ST8
8PL
1ST
BR
CMPB
BNE
BR
TST
ADD
TST
8MI
DEC

:BR_IF

NOT

sSET THE INDICATOR FOR THE IDENTIFICATION LINE
: INCREMENT THE RETURN

(SP)+,R2

(SP)+,R1
PC

2:POP STACK INTO R2
;:POP STACK INTO R1
TURN

CZRJDED RPO4 /5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 15
ERROR MESSAGE GENERATION ROUTINES
1

SE@ 0101

.SBTTL

ERROR MESSAGE GENERATION ROUTINES

160430

LINE1:

160414

18:

BIT
BEQ
TYPE

#SW10,aSWR
13
saesn.

;SWITCH 10 SET 2
*BR IF NOT
*RING THE BELL

BEQ
DISPLY

23
,SCRLF

:BR IF NOT
*CR=LF

;PRINT
LINE 1 OF ERROR MESSAGE:
s "HH:MM:SS’

ls.

9020505
020510
8 020512

032777
001402
104401

10 020526
11 020526

001403
104414

002000
001160

9 020516 032777 020000
001165

BIT

1; 020532
000404
13 020534 004737 023752

28:

BR
JSR

}z 020544

38:

RTS

1% 020540

104414

000207

053364

#SW13,aSWR

*INHIBIT TYPEOUT ?

is
PC,STIME

DISPLY

SEXIT
*TYPE THE TIME

,LINSPO

*SPACES

*RETURN & TYPE DESCRIPTION

17
18
19

;PRINT LINE 2 OF ERROR MESSAGE
**PRESENT ORDER = XXXX PREVIOUS ORDER = XXXX'
:'» ERROR AT BAD TRACK/SECTOR'

21
22
23

2 "RPWC
RPBA
RPDA
RPAS
RPLA
RPDB
:"RPSN
RPOF
RPCA
RPCC
STATUS'
:*BUS ADDRESS OR WORD COUNT NOT CONSISTENT'

S°DRV RPCS1

RPCS2

J'RPBA = XXXXXX

RPDS1

RPWC = XXXXXX°*

:"BUFFER ADR = XXXXXX

27 020546
020546

020550 010446
020552 010546

28 020554

29 020560
30 020564

LINE2:

010346
104414

005037
oosog«

MoV

001165

SIZE = XXXX

*WORKING REGISTER

MOVB
BIC
JSR
ST
BEQ

SRPCST(RO)
R4
#°C76.R4
PC.1$
5%
LINESA

:GET THE OPCODE
:SAVE ONLY SIGNIFICANT BITS
STYPE THE FIRST MNEMONIC
*SEE IF MNEMONIC ENTRY FOUND
*BR IF NOT

#°C76,R4
PC.1$

*SAVE ONLY SIGNIFICANT BITS
:TYPE THE PREVIOUS MNEMONIC

B8R

Lgnm

177701
020642

42
43

020642
020644
020650
45 020652

005005
126504
001405
105765

47 02

oosgo

49 020664

006305

53 020700
54 020704

060537
104414

020640 000426

oz&gs

100405

001766

BIC
JSR

1$:
2s:

001766

48 020662 000770

ozoego 006305
51 020670 303 5
52 020672 012737 002010 020712
020712

::PUSH R4 ON STACK
$:PUSH RS ON STACK

:CLEAR MESSAGE ADDRESS STORAGE

*ADDRESS OF 'PRESENT ORDER = ' MSG

*ADDRESS OF "PREVIOUS ORDER = * MSG
*PREVIOUS OPERATION CODE
+ CONT INUE

CLR
(MPB
BEQ
TST8

R
OPTBL(RS),R¢
33
OPTBL(RS)

:CLEAR THE TABLE INDEX
:LOOK FOR THE OPCODE
:BR WHEN OPCODE COUNT EQUALS OPCODE
:LOOK FOR END OF TABLE

INC

*INCREMENT THE POINTER

ASL

8MI
38:

#LIN2C.4$

RPEC2'

ACTUAL NMBR WRDS XFRD = XXxx°*

Ré

#LINOP 48
sm;vomm.u

042704
004737

RPDT'

CLR

MOV
MOVB

39 020630
40 020634

RPEC1

*CR-LF

CLR

37 020616 012737 051503 020706
020626 116006 000027

ooo;u
177701
020642
020712

RPMR

,SCRLF

DISPLY

MOV

116004
042704
004737
005737
00144

RPER3

::PUSH R3 ON STACK

R&.=(SP)
RS,=(SP)

1 020566 012737 051462 020706

020574
33 020600
3% 020606
35 020610
36 020614

RPER2

R3,.=(SP)

MOV
MOV

020706

RPER1

ASL
ASL
MOV

ADD
DISPLY

RS
RS
#MNTBL , 58
RS,S$

*BR IF END

*CONTINUE = NOT END OF TABLE
*SHIFT INDEX

SSHIFT THE INDEX
*SHIFT THE INDEX
*ADDRESS OF ASCII TEXT TABLE
*ADD THE INDEX
STYPE IT

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 15-%

SEQ@ 0102

ERROR MESSAGE GENERATION ROUTINES

$S 020706
sg 020710
57 02071
58 020714

000000
104414

48:

60 020722
61 020726
020730
63 020734
020740
65 020746

001404
104414
104414
104414
104414
104414

001165
051527
001165
051056
053364

BEQ
DISPLY
DISPLY
LINE2B: DISPLY
DISPLY
DISPLY

020754
20760

00473
104414

°2§ 76
053363

JSR
DISPLY

70 020770

004737

021120

021006

104414

051162

104414

051261

004737
032760

021120
000100

58:

ooo;g

§9 020716 005737 001264

LINE2A: TST

69 020750 01374.9 omgz.e

69 020764 012705 051402
71 020774 032777 000040
72 021002 001014

LMORD
DISPLY
WORD
RTS

0
PC

;ADDRESS OF °'PRESENT®' OR 'PREVIOUS' MESSAGE
*TYPE THE OPERATION MNEMONIC
*ADDRESS OF MESSAGE
*RETURN TO MAIN ROUTINE

LINE2B
,SCRLF
.LIN2S
.SCRLF
.DH14
,LINSPO

*BR IF NOT
*CR=LF
*ERROR ADDRESS DEFINED AS BAD AREA
*CR=LF
*STANDARD RP04/5/6 REGISTER HEADER
*TYPE A SPACE

PC,LINDEC
_LINSP

*TYPE DRIVE NUMBER
sSPACES

BADSEC

MOV

UNIT,=(SP)

MOV

#DT14,RS

BIT
BNE

#SW05 ., aSWR
1%

JSR

160136

DISPLY

PC,3$
,DH1S

:PRINT THE BAD SECTOR LINE ?

*PUT THE DRIVE NUMBER ON THE STACK
*REGISTER INDEXES

*PRINT THE REGISTERS

*PRINT THE OPTIONAL REGISTERS ?
*BR IF NOT

7% 021010 012705 051424
75 021014 004737 021120

MOV
JSR

#DT15,RS
PC,.38

;SECOND DATA LINE
*PRINT THEM

77 021026

012705

MOV

#DT16.RS

:THIRD DATA LINE

80 021042

001422

:BR IF NOT

(SP)
$BUF (RO) , (SP)

:CONVERT TO AN BYTE INCREMENT
;BUFFER STARTING ADDRESS

76 021020

78 021030
79 021034

DISPLY

051446
000016

1%:

81 021044 016046 000020
82 021050 066016 000236
83 021054
84 021056

006316
066016

86 021066
87 021070
88 021074
89 021100
3<1> 85”%

001410
104414
104414
004737
004737

021110
021112
021114
92 021116
93 021120
9 021122
95 ogn%
96 021130

012605
012604
012603
000207
012546
060016
o17649 000000
004737 022544

100 021144

101 021146

}85 021152

050451
001165
021212
021630

*BR IF YES
:'BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT®
*CR=-LF
:PRINT LINE 3D OF ERROR MESSAGE
*PRINT LINE & OF ERROR MESSAGE

MOV
MOV
MOV
RTS
MOV
ADD
MOV
JSR

(SP)+,RS
(SP) +.R&
(SP)+.R3
PC
(RS)+,=(SP)
RO, (SP)
a(SP) ,=(SP)
PC,LINOCT

::POP STACK INTO RS
::POP STACK INTO Ré&
::POP STACK INTO R3
*RETURN TO ERROR PROCESSING ROUTINE
:PUT THE REGISTER INDEX ON THE STACK

BNE

*BR IF NOT

RTS

104414

001165

CMP

38:

TST
DISPLY
ST

48:

DISPLY

(SP)+,SRPBA(R0O) :CORRECT BUFFER ADDRESS ?

(SP)+
,LINSP
(R5)
SCRLF

*ADD DRIVE'S TABLE ADDRESS

*VALUE

STYPE IT

*CORRECT THE STACK POINTER
*PRINT 2 SPACES
*AT END OF LINE ?
*CR=LF.

*RETURN

;PRINT LINE 3 OF ERROR MESSAGE

;gg

108 021160

$WRDL
(RO) ,-(SP) :TRANSFER SIZE
$RPWC
(RO) . (SP) :ADD REMAINING WORD COUNT

BEQ

28
,EM46
.SCRLF
PC,LINE3D
PC.LINEG

104

107 021154

MOV
ADD

BEQ
DISPLY
DISPLY
JSR
JSR

053363

000207

PC,3$
*PRINT THE REGISTERS
#BIT6,8TATUSC(RO)
:DATA ERROR ?

ASL
ADD

005726
104414
005715

001365

JSR
BIT

000

85 021062 022660 000240

97 021134
98 021136
99 021142

,DH16

“*ERROR AT CCC TT SS
104414

000517

051563

LINE3:

DISPLY

,LINM3

LIN3.1

PREVIOUS ADR = CCC TT SS°
:LINE 3 ENTRANCE

*FINISH PRINTOUT

109
110
11
11%
113
021162
114 021166
115

;PRINT LINE 3A OF ERROR MESSAGE
END CYL = CCC’
;"START CyL = CCC
LINE3A: DISPLY
BR

051601

DISPLY

021532
021564

LINE3C: JSR

JMP

157720

051752

LINE3D: BIT
BEQ
DISPLY

MOV

NaNoO
AN SO

000040

PC,LIN3.3
,SCRLF

ACTUAL CYvL = ccc’

sLINE 3B ENTRANCE

PCfi§IN3.3
LINS.4

ACTUAL CYL = CCC

TRK = TT'

sLINE 3C ENTRANCE
sFINISH MESSAGE

18:

#SW0S, aSWR
1
,LINB3

$RPBA(RO) ,~(SP)

sSWITCH 5 SET ?

:BR IF IT IS
:"RPBA = *

;BUFFER ADDR REG CONTENTS
sCONVERT T T00 OCTAL AND TYPE IT

JSR

PC,LINOCT

MOV

$RPWC
(RO) ,~(SP) *WORD COUNT REGISTER CONTENTS

DISPLY

JSR
DISPLY
RTS

,LINW3

PC,LINOCT
,SCRLF
PC

purt

LINE3E: DISPLY

MOV
JSR

DISPLY

CLR
MOVB

JSR
DISPLY

DISPLY
CLR
MOVB
JSR
DISPLY

RTS

,LINS3

$CYL(RO) ,=(SP)

PC,LINDEC

RPWC =

*CONVERT TO OCTAL AND TYPE IT

sPRINT LINE 3E OF ERROR MESSAGE
START TRK = TT
;"START CYL = CCC

162

START SEC = SS°'

s'START CyL = °*

sMOVE CYL TO STACK

,LINSP

sTYPE IT IN DECIMAL
: SPACES
;S

=(SP)
STRK(RO),(SP)

sCLEAR STACK
sTRACK TO STACK

.LINST3

PC,LINDEC
,LINSP

.LINSS3
=(SP)
$SEC(RO),(SP)
PC.LINDEC
,SCRLF

s'START TRK = °*

sTYPE IT IN DECIMAL

s SPACES

s 'START SEC = '
H CLEAR STAC i

sSECTOR _ADDR TO STACK

sTYPE IT IN DECIMAL

sPRINT LINE 3F OF ERROR MESSAGE
:"RPDA = XXXXXX
RPCA = XXXXXX'

163

165 021346

;FINISH ERROR LINE

;PRINT LINE 3D OF ERROR MESSAGE
RPWC = XXXXXX'
:'RPBA = XXXXXX

NENOOSSNOORS
NS

154 021316
155 021322
156 0213;6
157 021330
158 021334
159 021340
160 021344
161

sLINE 3A ENTRANCE

sPRINT LINE 3C OF ERROR MESSAGE
END CYL = CCC
s "START CvL = CCC

3
S38isasRsaee
SN SRS SNSRSDOR

ie
18 83130

LINE3B: JSR
TS

123
126
125
126 021202
127 021206
128
129
130
131
132 021212
133 021220
134 021222
135 021226
136 021232
137 021236
138 021242
139 021246
140 021252
141 021256

147 021264
148 021270
149 021;58
150 021

—_—

117
118
119 021170
120 021174
121 021200
122

142
143
144
145
146 021260

,LINN3
LIN3.1

;PRINT LINE 3B OF ERROR MESSAGE
END CYL = CCC
s 'START CvL = CCC

116

164

SEQ@ 0103

SSAGE GENERATION ROUTINES

O =

RP04/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 15-2

032777

000040

157564

LINE3F: BIT

#SW5,aSWR

sSWITCH 5 SET ?

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 S=NOV-81 09:16:17 PAGE 15-?

SEQ 0104

ERROR MESSAGE GENERATION ROUTINES

166
167

0 1;54
021 SS

168 0 1g26
169 021

170 0 1;72

171 021 7g

001420
104414

BEQ
DISPLY

ogg 44

JSR

PC,LINOCT

STYPE IT

DISPLY

.LINCA3

SV RPCA

PC,LINOCT
,SCRLF

STYPE IT

104414

053363

DISPLY

ooo§7o

MOV

$RPCA(RO) ,=(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK

RTS

104414

051731

004737
104414

022544
001165

};g 021416

000207

MOV

18:

JSR
DISPLY

;'CCC TT SS

179 021420
180 021426
181 021430
182 021434
183 021440
184 021446
185 021450
186 021454

016046
004737
104414
004737
004737
104414
004737
104414

000272
022576
051576
022616
022576
051622
022576
051625

188 021464

004737

022576

016046

189 021470
190 021474

104414
005046

193 021506
194 021512

104414
005046

196 021520
197 021524

004737
104414

191 021476
192 021502

:BR_IF NOT
S'RPDA = °

ooog&

00473

016049

187 021460

18
,LINDA3

016049

172 02140

173 021403
174 021412

05174

116016
004737

000034

051576

LIN3.1: MOV
JSR
DISPLY
JSR
JSR
DISPLY
JSR
DISPLY

MOV

JSR

104414

051646

104414

051663

016046
004737

206 021552

016046
004737
000207

000034
022576
000272

022576

5}9
104414

051700

214 021576
215 021600

042716 010000
004737 ogzsro

217 021610
218 021612

005046
116019

220 021622
55} 021626

104414
000207

213 021570 013746 055754

219 021616

PC,LINDEC

:TYPE IT IN DECIMAL

$PREVA+2(R0) ,~(SP) :PREVIOUS CYLINDER

;TYPE IT IN DECIMAL

JSR
DISPLY

LIN3.3: DISPLY

104414

004737

051720

000243

022576

001165

SPRINT * T*
:MAKE ROOM ON THE STACK

SPREVA+1(R0),(SP) :PREVIOUS TRACK ADDRESS
PC,LINDEC
:TYPE IT IN DECIMAL

SPREVA(RO),(SP)
' :PREVIOUS SECTOR DDRESS

END CYL = CCC'

,LINS3

:LINE *38 & 3C* ENTRANCE

,LINEN3

*PRINT *END CYL'

PC,LINDEC
PC

STYPE IT IN DECIMAL

MOV
JSR

$PREVA+2(R0) ,~(SP) ;PREVIOUS CYLINDER
PC,LINDEC
:TYPE IT IN DECIMAL

MOV

$RPCC (RO),=(SP) :PRESENT CYLINDER

DISPLY

JSR
RTS

s"ACTUAL CYL = CCC

212 021564

216 021604

:PUT CYLINDER ADDR ON STACK
STYPE IT IN DECIMAL
SPRINT * T*
*DECREMENT TRACK AND SECTOR ADDRESSES
*TYPE TRACK IN DECIMAL
SPRINT * §°
*TYPE SECTOR ADDRESS
*PRINT °*PREV ADDR®

;"START CYL = CCC

203 021536
204 021

207 021556
383 021562

SRPCC(RO) ,=(SP)
PC,LINDEC
T
PC,READDR
PC.LINDEC
.S
PC,LINDEC
,LINP3

PC,LINDEC
,SCRLF

RTS

205 021546

PREV ADR = CCC TT SS°

SPRINT * §'
sMAKE ROOM ON THE STACK

}gg 021530

202 021532

.S
-(SP)

MOVB

58?

= °

DISPLY
CLR

195 021514 116016 000032
000207

:SPACES

T
-(SP)

MOVB
JSR

022576
001165

,LINSP

DISPLY
CLR

000033
022576
051622

$RPDA(RO) ,=(SP) :PUT SECTOR/TRACK ADDRESS ON THE STACK

LIN3.4: DISPLY

MOV

TRK = TT®

,LINA3

:PRINT "ACTUAL'

CYLDER,=(SP)

;ACTUAL CYLINDER

BIC
JSR

#BIT12. (SP)
PC,LINDEC

CLR
MOVB

=(SP)
*CLEAR STACK WORD
$RPDA+1(RO),(SP)’ ;PUT TRACK ON STACK

DISPLY
RTS

,SCRLF
PC

DISPLY
JSR

*CLEAR THE FORMAT BIT
STYPE IT IN DECIMAL

,LINT3

PC.LINDEC

*PRINT TRACK

;TYPE IT IN DECIMAL

!
|

W RO

SEQ 0105

81;
DISPLY

#8IT06,8$TATUS(RO)
1

LINMG

ACTUAL NMBR WRDS XFRD = XXX’

:DATA ERROR ?

:
NOT
:BR’IF
:'PRINT BUFFER®

$8UF (RO) ,=(SP) :BUFFER ADDR ON STACK
PC,LINOCT
:CONVERT TO OCTAL & PRINT
LINS4
*PRINT *SIZE*
$WRDL
(RO) ,=(SP) :BUFFER SIZE

PC,LINDEC

STYPE IT IN DECIMAL

LINX4

s "ACTUAL NMBR WRDS XFRD = °*

(SP)
PC,LINDEC

sCONVERT INTO A WORD COUNT
:TYPE IT IN DECIMAL

*RETURN

$RPBA
(RO ,=(SP) *;VALUE IN BUFFER ADDR REGISTER
$8UF (R0), (SP)
;SUBTRACT STARTING ADDRESS

JSR
DISPLY

b
-

000016

0520645

e
e
T
T

NERENS

NNY

22
KO&

052026

NNNNNNNNNNNNNNN

000100

T LINE & OF ERROR MESSAGE
BUFFER ADR = XXXXXX
SIZE = XXXX

O~V
BEIFREUKZ

NN NN

SSAGE GENERATION ROUTINES

[elelelelelelelelelelelelel=l-]

—

a-=

meoe
~

RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 15-2

RTS

SCRLF

:CR=LF

;PRINT LINE 5 OF ERROR MESSAGE
:'GOOD DATA = XXXXXX
BAD DATA = XXXXXX
N

052112
00000
000%40
022544
052127
000256
022544
000236
000020
000022
027366
02
60 022012
261 022016
262
263
264
265
266 022020
an 0220%3
0220

022100
272 022104

052145
022576
001165

DISPLY
SuB
MOV
JSR
DISPLY
MoV
JSR
MOV
ADD
CLR
MOV
JSR
MoV
DISPLY
JSR
DISPLY
RTS

.5x~os

#2,SRPBA(RO)

:PRINT *GOOD DATA®

:BACK THE ADDRESS UP

@SRPBA(R0) ,=(SP)" ;*GOOD* DATA = AT THE BUFFER LOCATION
PC,LINOCT

LINBS

STYPE IT

*PRINT 'BAD DATA®

$RPDB(RO) ,~(SP) .-aAg D?}A FROM BUFFER
PC,LINOCT

*TYPE

$WRDL
(R0) . (SP)

:MAKE INTO A POSITIVE NUMBER

$RPWC
(RO) ,=(SP) :WORD LENGTH ON STACK

-(SP)

$SSEC(RO),~(SP)

*UPPER DIVIDEND TO ZERO

“;SECTOR SIZE ON THE STACK

PC,LINKDV

:DIVIDE WORDS XFERED BY SECTOR SIZE

LLINPS

*PRINT °*SECT POS'

(SP)+,(SP)

PC,LINDEC

fi%CRLF

*MOVE REMAINDER UP THE STACK
*TYPE THE POSITION

sPRINT LINE 5A OF THE ERROR MESSAGE
; "HEADER FROM ERROR SECTOR XXXXXX XXXXXX
0521€3
055754

LINESA: DISPLY

MoV
JSR
DISPLY
MOV
JSR
DISPLY
MoV
JSR
DISPLY
MoV
J SR
DISPLY
DISPLY

SECT POS = Xxx'

LINSS

EVLDER.E§SP>

;¥$¢ge?rposxtxon

;

PC,LINOCT

STYPE IT

,LINSP
CYLDER+4,~(SP)

PC.LINOCT

LLINSP
CYLDER+6,=(SP)

PC.LINOCT
,LINSP
.SCRLF

XXXXXX*

: "HEADER CONTENTS OF ERROR SECTOR®

PC.LIND

,LINSP
CYLDER+2,=(SP)

XXXXXX

*SPACES
:HEADER POSITION +2
*SPACES
:HEADER POSITION +4

STYPE IT

*SPACES
:HEADER POSITION +6

STYPE IT

*SPACES

RTS

sPRINT LINE 58 OF ERROR MESSAGE
s "RPECT = XXXXXX
RPEC2 = XXXXXX®

LINESB: DISPLY

NEPS

RPECT = *

MOV
inpec1<a0) -(sP)’ .pur REGISTER CONTENTS ON THE STACK
JSR
LINOCT
;TYPE IT
DISPLY .LiuP
: SPACES
DISPLY
* RPEC2 = '
MOV
iaPECZ(RO) -(sP)’ ;PUT REGISTER CONTENTS ON THE STACK

- N

78 022112
79 02%113
80 0221
281 022126
28% 022132
8 02213%
84 Og 14
85 022146
2152

000207

NENOES SNV

573 022110
74
;S

SEQ 0106

JSR

PC,LINOCT
SCRLF

;TYPE IT

;RETURN

;PRINT LINE 6 OF ERROR MESSAGE
s"SECTOR IS ECC CORRECTABLE'
LINE6:

DISPLY
DISPLY

RTS

,LINB6
,SCRLF

sECC CORRECTABLE

sPRINT LINE 6A OF THE ERROR MESSAGE
;"SECTOR READ CORRECTLY AT OFFSET N'
052275

LINE6A: DISPLY
BR

LINCG
LING.1

sPRINT "READ CORRECTLY AT OFFSET N'

sTYPE THE REST OF THE LINE

sPRINT LINE 6B OF THE ERROR MESSAGE
;"SECTOR IS ECC CORRECTABLE AT OFFSET N'
052242

321 022216
322 022220
323 022226
324 0222
325 022232
326 022236
327
328
329

,LINB6
LING.1

sPRINT "SECTOR IS ECC CORRECTABLE *

sPRINT LINE 6C OF THE ERROR MESSAGE
s "CORRECTED ON NTH RETRY'
052324

LINE6C: DISPLY

,LING6

s "CORRECTED ON NTH RETRY'

sTYPE THE REST OF THE LINE

sPRINT LINE 6D OF THE ERROR MESSAGE
s "UNCORRECTABLE AFTER N RETRIES'
052353

LINE6D: DISPLY
BR

,LINUOG
LIN6.2

: "UNCORRECTABLE AFTER N RETRIES'
FINISH

sTYPE THE OFFSET VALUE IN MICRO-INCHES

N =

b cd b b b e o

(=31, ENT. AV ¥ AV NP =}

LINE6B: DISPLY
BR

002240

001165

022230

LING.1: ASL
gggplv

R1
OFMTBL(R1),1$

:DOUBLE THE OFFSET TABLE INDEX
:ADDRESS OF OFFSET POSITION MESSAGE

18:

;OFFSET VALUE

.WORD
DISPLY

RTS

,SCRLF

sRETRY COUNT TYPEOUT

MACRO V04.00 5-NOV-81 09:16:17 PAGE 1S-§

CZRJDEO RP04/5/6 MLT=DR LGC
ERROR MESSAGE GENERATION ROUTINES

SEQ 0107

43
42

ogggae
1
19

001353

[=1=]

SIBIFRRIKZS

ERROR MESSAGE GENERATION ROUTINES

00116

&H
o=
&H

enlh

0 ag 00473 ogz 7
022252
104414 95234

-(SP)
RETRY+1,(SP)

;CLEAR STACK
:RETRY COUNT

JSR
PC,LINDEC
DISPLY ,LINRG

g;gptv

STiPE IT IN DECIMAL
:'RETRY’

fif‘""

sPRINT LINE 7 OF THE ERROR MESSAGE
s "ORDERS
: XXXXX
TOTAL ERRORS:XXX

022264
1 ozgzro

104414
012746

052426
000036

022276
& 022302
345 022306

004737
004737
104414

033732
027702
052505

LING.2: CLR
MOVB

% 022274

346 022312

060019

LINE?:

DISPLY
MOV

,LIN70
#SOPERC,=(SP)

:PRINT ORDER COUNT
:TO STACK

JSR
JSR
DISPLY

PC.$DB2D
PC.$SUPRS
,LIN?T

*CONVERT IT
*PRINT IT
:TOTAL ERRORS

ADD

RO, (SP)

01604

000056

MOV

8 022322
349 ozzs§6
350 022332
351 022334
352 022340
353 022346
354 022350

104414
012746
060016
004737
004737
104414
012746

052517
000046

033732
027702
052533
000052

DISPLY
MOV
ADD
JSR
JSR
DISPLY
MOV

.gxnrx
#STRANS,=(SP)
RO, (SP)
PC.$DB2D
PC.$SUPRS
,LIN7R
#SREAD,-(SP)

356 022356

004737

033732

JSR

PC,$DB2D

g:r 022316

SEEEREREETEY

355 022354

357
022362
358
022366
359 022372
022376
022404
22406
022410

004737

060016

004737
104414
104414
032777
001401
000000
000207

022576

027702
001165
001165
100000

ADD

18:

JSR
DISPLY
DISPLY
BIT
BEQ
HALT
RTS

104414
012746
060016

052426
000036

73 025434

104414

052436

004737
004737

LINE7A: DISPLY
MOV
ADD

033732
027702

JSR
JSR

DISPLY

374 0226440 012746 000042

MOV

375 022444
376 022446
377 022452
378 022456

060016
004737
004737
104414

033732
027702
052400

ADD
JSR
JSR
DISPLY

ggo 022496
1 022472

004737
104414

022576
052456

379 022462 016046
382 022476
383 ozgsoz

384 022506
385 022512

386 022516

‘TOTAL(RO).-(SP)
PC,LINDEC

:TO STACK

:TYPE IT IN DECIMAL

*PRINT ‘WRDS XFR'
:ADDRESS OF LOW WORD ON STACK

: CONVERT
*PRINT
+'BITS READ'
:LOW WORD ADDRESS

RO, (SP)

: CONVERT

PC.$SUPRS
,SCRLF
.scakr
#5415, 3SWR

*PRINT

:SEE IF 'HALT ON ERROR' - SWITCH 15
:BR IF NOT
SSWITCH 15 HALT

otaoag
004737
104414
104414

032777

000066

001165
001165

100000

,LIN7P

:*TOTAL SEEKS = °*

#SPOSIT,=(SP) :TOTAL SEEKS

JSR
DISPLY

PC,LINDEC
,LIN7S

;TYPE IT IN DECIMAL
;'
TOTAL SKI,OCYL ERR = *

DISPLY
DISPLY

,SCRLF
’CR§'

BIT

TOTAL SKI,OCYL ERR = XXX'

*CONVERT THE COUNT
SPRINT IT

*DEVICE TABLE ADDRESS
:CONVERT THE SEEK COUNT
*PRINT IT
** "TOTAL MISPOS ERR = °

MOV
JSR
156414

:"ORDERS = *
;ORDER COUNT INCREMENT
;ADD BASE ADDRESS

RO, (SP)
PC.$DB2D
PC.$SUPRS
,LIN7M

MOV

022576

TOTAL MISPOS ERR = XXX

,LIN70
#SOPERC,=(SP)
RO, (SP)
PC.$DB2D
PC.$SUPRS

WRDS READ:XXXXXXX*

:ADD THE BASE ADDRESS

sPRINT LINE 7A OF ERROR MESSAGE
s "ORDERS
: XXXXX
TOTAL SEEKS=XXXXX

022412
369 022416
370 022422

71 ozzagg
72 0226430

JeR

156534

WRDS XFRD:XXXXXXX

$MISPO(RO),-(SP)”

§SKI(R0) ,=(SP)
PC,LINDEC
#SW15,aSWR

:TOTAL ERRORS

:CONVERT & PRINT IT
sTYPE IT IN DECIMAL

:SEE IF HALT ON ERROR = SWITCH 15 SET

(2 1al

D
CZRJDED RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 15-6

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 15-;

SEQ 0108

ERROR MESSAGE GENERATION ROUTINES
02§§§§
7

90
91

% 530

9
94 022532
95 022536
396 022542
397
398
399

400
401
402
403

404 022544
405 022550
406 0225564
407 022560
408 022566
409 022570
410 022572
411 022574
412

001401

00020

1$:

104414

004737

000207

:BR _IF NOT
sSWITCH 15 HALT

DISPLY

JSR

,LINSM

fiC LINE2

;PRINT LINE 2 OF ERROR MESSAGE

;OCTAL TYPEOUT ROUTINE
s CALL:

016646
004737
012637
062737
104414
000000
012616
000207

000002
030332
022570
000005

MoV
JSR
RETURN

LINOCT: MOV
JSR

MOV

022570
18:

NUM,
= (SP)
PC,LINOCT

;PUT THE NUMBER ON THE STACK

2(SP) ,-(SP)
PC,$5820

sPUT NUMBER IN PROPER LOCATION ON STACK
sCONVERT THE NUMBER TO OCTAL
:GET THE ADDRESS OF THE ASCII STRING

(SP)+,1%

ADD

#5..1%

LWORD

RTS

DISPLY

MOV

(SP)+, (SP)

sADDRESS THE LAST 6 ASCII DIGITS
STYPE IT

*ADDRESS

*CORRECT THE STACK
*RETURN

sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH
;LEADING ZERO SUPRESSION
sCALL
MoV
NUM,
- (SP)
sPUT THE NUMBER ON THE STACK

415

416

617

424 022614

LINES:

052550
020546

414

420 022576

RTS

;PRINT LINE 8 OF THE ERROR MESSAGE
: "DIFFERENT ERROR DURING RETRY'

413

418
419

BEQ
HALT

JSR
RETURN

016646
7
7

616
000207

000002
030302
027702

LINDEC: MoV
JSR
JSR
:?g

PC.LINDEC

2(SP) ,=(SP)
PC,$582D
PC,$SUPRS
;iP)*.(SP)

sSET UP _STACK FOR CONVERT
;CONVERT IT TO DECIMAL

:TYPE IT (WITH LEADING ZEROS SUPRESSED)
:RESTORE STACK POINTER

SEQ 0109

GENERAL SUPPORT SUBROUTINES
1

.SBTTL

GENERAL SUPPORT SUBROUTINES

;
:

MOV
JSR

2(SP) CONTAINS THE SECTOR ADDRESS

:giffsnem THE SECTOR=TRACK ADDRESS

7
£

:
:

5
‘

13
11 022616

162706

13 022626
1% 022632
15 022636

005066
005066
116066

000242

19 022660

116066

000243

RE TURN

READDR: SUB

CLR
CLR
MOVB

16 022644 oosssg
17 022650 10001
18 022652 012766 000025

MOV

000004

#6,SP

4(SP), (SP)

000004

21 022672 100007
22 022676 012766
000022 000002
23 022702 00040

8PL
MOV
BR

b1
#18.,2(SP)
2

RTS

20 022666

26 0227064

gg 022712

005366

116066

000207

000243

000002

gz
012737

3% 022746
35 022752

005037
005057

012737
012737
005037
005777

36 022756
37 022762
38 022766
39 022772
40 oz%ooo
41 023006
42 023010
43 023014

013701
015721
012711
012777
012777
000437
oogrog
01273

45 0 sozg

5037

4% 023022

005777

46 023032
47 023036
48 023042
49 023046
S0 023054

013701
012721
012711
012777
000414

52 ossoez
53 023066

104401
005737

51 023056

54 023072

DEC

1$:

28:

MOVB

:MOVE THE RETURN ADDR DOWN THE STACK

4(SP)
18
#21.,4(SP)

;DECREMENT THE SECTOR ADDRESS
:BR IF SECTOR GREATER THAN 0
JAM SECTOR ADDRESS TO 21(10)

2(SP)

:DECREMENT TRACK ADDRESS

SRPDA+1(R0),2(SPY

:TRACK ADDRESS

:BR IF IT DIDN'T GO NEG
*RESET TRACK TO 18(10)

SRPDA+1(R0),2(SP)

:TRACK ADDRESS

:RETURN

JROUTINE TO CHECK FOR KW11=L OR KW11=P CLOCKS

29 022714

30 022722
31 022730
32 022736
33 022742

MOVB

:DECREMENT THE STACK POINTER

4(SP)
:CLEAR STACK FOR SECTOR
2(5P)
:CLEAR STACK FOR TRACK
SRPDA(RO),4(SP) ' ;INCREMENTED SECTOR ON STACK

DEC
BPL
MOV

000002

;DPB ADDRESS

(SP) CONTAINS THE TRACK ADDRESS

000004

1; 022622 016616 000004

#DPB,RO
PC,READDR

062706

oouo;

55 023074 000137
56 023100
57 023102 000137

177777

001210

177777 001206
023010 000004
000006
156226

001210
001206

001200
024050
0003
174575 156176

009131 156166

000004
ogsoss 000004
1561564

CKCLK:

CLR
CLR

MOV
MOV
MOV
MOV
MOV
B8R
CKCLK1: ADD
MOV

001210

001204
024050
000300
000100
000004

054251
000042

005646

004200

MOV

MOV
MOV
CLR
ST

CLKFLG
PCLOCK

*SET CLOCK AVAILABILITY FLAG
*SET KW11-P CLOCK FLAG

:CLEAR KW11=P CLOCK AVAILABILITY FLAG
:SET UP VECTOR FOR CLOCK CHECK
:NEW PSW
;CHECK FOR KW11=P

SLPVEC.R1
*KW11-P VECTOR ADDRESS
"§ OCK.(R1)+
:SET UP KW11-P VECTOR
#300, (R1)
:PSW - PRI 6
#-1667.,a8LKCSB :LOAD COUNTER BUFFER WITH 16.67
:131.§su<csa :SET CLOCK = CNT UP, 10US, CONT INT
CKCLK
#6,SP
:RESTORE THE STACK POINTER
#CKCLK2,3#ERRVEC" ;CHANGE ERROR VECTOR TO CHECK FOR KW11-L

asLKS

:LOOK FOR KW11-

MOV
MOV
MOV
MOV
BR

SLLVEC,R1
“c".m (R1)+
#3060, (R1)
noo.gsu:s
CKCLK

:KW11=L VECTOR ADDRESS
:SET UP KW11-L VECTOR
‘PSW = PRI 6
*SET KW11=L INTERRUPT

TYPE
ST

NEDCLK
§2

P OR L CLOCK MUST BE ON SYSTEM'
*UNDER MONITOR CONTROL ?

CKCLK2: ADD

BEQ

18:

:CLEAR CLOCK AVAILABILITY FLAG

#-1.PCLOCK
#CKCLKT,ERRVEC
@NERRVEC +2
aSLKCSR

CLR

156126

#-1,CLKFLG

JMP
HALT
JMP

CLKFLG

*SET CLOCK FLAG

#4,SP:

:RESTORE THE STACK POINTER

*BR IF NOT

$GET42

START1

*ABORT PROGRAM
*HALT
*TRY AGAIN

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16

SEQ 0110

T SUBROUTINES

012737
000207

000006

0000C4

CKCLK3: MOV
RTS

#6,34ERRVEC
PC

sRESTORE THE ERROR VECTOR

:'ERHINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED
;
H

010046
010“9
005737

0014§1
004737

005004
006304

136437

034470

004737

023250

020427

000010

005204

001362
012604
012600
000207

BEQ
JSR

023226
001740

001402

STATPR: MOV
MoV
TST

001462

016400

006204

JSR
RETURN

18:

CLR
ASL

3s:

sSAVE RO
:SAVE Ré
sANY DRIVES ASSIGNED ?

R4
Ré

sCLEAR THE DRIVE INDEX
sCHANGE TO INDEX WORDS

:RESTORE Ré

3s
PC,SHDTYP

:BR_IF NOT
s TYPE THE HEADING

BLKADR(R4)
,RO

8lT8

ATABIT(RG) ,ASNLST

BEQ
28:

RO,=(SP)
R4 ,=(SP)
ASNLST

MoV

ASR

001462

PC,STATPR

:BR_IF NOT

Ré4

s INCREMENT THE INDEX

1$
(SP)+ R4
(SP)+,R0
PC

:BR _IF NOT
sRESTORE Ré
sRESTORE RO
sRETURN

PC,SDETAL

CMP

Ré 48,

BNE
MoV
MOV
RTS

;IS THIS DRIVE ASSIGNED ?

JSR

INC

;GET THE DRIVE'S BLOCK ADDRESS

sTYPE THE PERFORMANCE SUMMARY

sFINISHED ?

:g(A)lLJIINE TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE

MOV

#DP8B,R0

;DPB ADDRESS

TYPEST: MOV
MoV

RO,~(SP)
R4 ,=(SP)

:SAVE RO
:SAVE Ré

H
:

010046
010446

004737

023226

004737

023250

-n:-n-.-.-n_._.-n-n-n-._.-n-a

RARNSSIRIRIRAN=88R

005004
111004

012604
012600
000207

JSR
RETURN

PC,TYPEST

JSR

PC,SHDTYP

sTYPE THE HEADING

JSR

PC, SDETAL

sTYPE THE STATISTICS

CLR
MovBe

Mov
MOV
RTS

R4
(RO) R4

(SP)+,R4
(SP)+,R0
PC

sCLEAR R4 FOR DRIVE NUMBER
sDRIVE NUMBER

sRESTORE Ré
sRESTORE RO
sRETURN

.H’L’E THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT
:
:

004737
88?%3;

023752
027742

004527 027742

053730
000207

JSR
RETURN

SHDTYP: JSR
gggu

JSR

STATHD
RTS

PC,SHDTYP

PC.STIME
R5,TYPRI4

sTYPE THE TIME OF DAY
:E;PEFAT PRIORITY &

sHEADER
sRETURN

R5,TYPRI4

sTYPE THE HEADER

.ZX{’E THE PERFORMANCE SUMMARY DATE LINE

QTM

/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16-?

H
CZRJDEO RP04/S5/6 MLT=DR LGC MACRO V04.00 S=NOV-81 09:16:17 PAGE 16=2

SEQ 0111

GENERAL SUPPORT SUBROUTINES

115
119

:
:

MOV
MOV

130 053323 010065
1§1 023254 062705 000036

pnimeed

BN - g
ADD
nbpsac R2

122 023260 010446

ozsgsz 104403
023264
002
023265
000

123 ozszsg

1064401

053363

125 023276
126 023302

004737
004537

030302
027612

128 023310

104401

053363

124 023272 016046 000070
127 023306

000003

136 023314 o1o;4.e
023316 004737 033732
023322 004537 027612
023326

023330

000006

104401

053363

RETURN

#DRIVE R4
#0P8, RO

MOV

4,~(SP)

$:60 TYPE=--OCTAL ASCU
..rvpe 2 DIGIT(S)
SUPPRESS LEADING ZEROS

JSR
JSR

PC,$582D
RS REPLZ

.convs IT
;

TYPE

MOV

WORD

TYPE

§P
ACES

imsc(ao) -(SP)" " :PUT me PASS COUNT ON THE STACK
3

INSP

MOV
JSR
JSR

R2,=-(SP)
PC.$DB2D
RS .REPLZ

TYPE

,LINSP

LWORD

#4,R2
R2.-(SP)

023346

JSR

RS .REPLZ

023352

000006

004537

027612

104401

053363

023366
023372
023376
023400

004737
004537
000012
104401

033732
027612

152 023410

010;46

023416

004537

023430

062702

000004

004737

03030

104401
012;49

053364

023466
023472
ozsm

004537
000004
106401

02761

023502

JSR

PC.$DB2D

.WORD

ADD
MOV

#4,R2
R2.=(SP)

023404 062702 000004

ADD

#6,R2

023412

JSR

023356

023360 062702 000004
144 023364 010246

023422
023426

153 023434

160 02344

023442

023446
023452

023454
023460

004737

000012
104401

062702

o12;49

033732
027612

053364

000002

004537 02761
000004

023462 004737

023500 853‘9
0235 og
023512

053363

004537
000004

03030
053364

830302

027612

:SAVE RéFOR TYPEOUT

..me DRIVE NUMBER

2
o

ADD
MOV

004737 033732

OPa ADSRESS
msr smxsnuu. FIELD

TYPOS
BYTE
.BYTE

023334 062702 000004
023340 010246
023342

:DRIVE NUMBER
:DPB ADDRESS

TYPE

JSR
JSR
.WORD
TYPE

MOV

,LINSP

PC.$DB2D
RS.REPLZ
10.
,LINSP
R2,=(SP)

PC,$582D

JSR

PC,$582D

MOV

JSR

JSR
LWORD

mcaenenr R2
sposn ON THE STACK
couvem IT

*TYPE $POSIT

*TYPE 6 DIGITS
*SPACES

: INCREMENTR2
*PUT STRANS ON THE STACK

couvem $TRANS
YPE IT
rws 1o DIGITS
*SPACE

mcaenem R2

T SREAD ON THE STACK

*INCREMENT R2

RS.REPLZ
l.

JSR
LWORD
TYPE

*SPACES

(aé)o -(SP)

JSR
. WORD

TYPE
MOV

sTYPE 6 DIGITS

rm 1o DIGITS
*1 SPAC

u. n

JSR

sPUT somc ON THE STACK
*CONVERT
I
*TYPE somc

10.
,LINSPO

ADD

MOV

DIGITS

couvem SREAD

RS.REPLZ

ADD

*SPACES

PC.$DB2D

JSR

.WORD
TYPE

,LINSPO
(RZ)* -(SP)

RS.REPLZ
&
,LINSPO

(R2)+,-(SP)

PC,$582D

RS.REPLZ
&

YPE IT

mcaenenr R

AGAIN

*PUT $SOFT ON THE STACK
*CONVERT $SOFT

*TYPEOUT sson
STYPE 4 DIGITS

*SPACES
PUT S$SHARD ON THE STACK

:CONVERT SHARD
*TYPEOUT SHARD
STYPE & DIGITS
*SPACES

*PUT $SKI ON THE STACK
:CONVERT $SKI

STYPEOUT $SKI
:TYPE & DIGITS

NN
=S NNOOOONON
=

_-égg_o g‘auao

wviviiuiunuiiuaiaiiaiaaaw

NN
NN NN
NN NN NN NN NN N NN NN

O00O0CO0O000O0000000

SEQ@ 0112

UBROUT INES

053364

TYPE

.L%NSPO

JSR

PC,$582D

TYPE
MOV
SUB
SUB
SUB
SUB
JSR

LINSPO
*SPACES
$TOTAL
(RO) ,=(SP)° " ; CALCULATE NUMBER OF OTHER ERRORS
$SOFT(R0),
(SP) :SUBTRACT $SOFT FROM STOTAL
SHARD
(R0) . (SP) :SUBTRACT SHARD FROM STOTAL
$SKI(R0),(SP)
:SUBTRACT $SKI FROM STOTAL
$MISPO(RD)
, (SP) :SUBTRACT SMISPO FROM STOTAL
PC,$582D
:CONVERT °'OTHER® COUNT

TYPE

,SCRLF

MOV

03030
02761

JSR
.WORD

053364
000056
000060
000062
000064
000066
03030
02761

JSR
LWORD

001165

MOV
RTS

:SPACES

(R2)+,=(SP)

SPUT SMISPO ON THE STACK

RS.REPLZ
&

:TYPEOUT $MISPO
STYPE & DIGITS

:CONVERT $MISPO

RS.REPLZ
4

STYPE IT
STYPE & DIGITS

(SP)+,R2

;RESTORE R2

D e

)

SEIITEIESH

—3

6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16-§
8825 ¢
FEReE

CZRJDEC RPO4/5/

GENERAL SUPPORT

sROUTINE TO INCREMENT S$SOFT
sNOTE:
001264
000060

INCSOF:

023417

000060

1$:

188

E
CMP
BHIS
%?g

BADSEC

sSEE _IF BAD TRK/SEC INDICATOR SET

1$
sBR IF IT'S SET, DON'T INCREMENT COUNT
$SOFT(RO) ,#9999.
;IS SSOFT ALREADY AT MAXIMUM ?
1$
sBR IF IT IS
ggOFT(RO)
s INCREMENT S$SOFT

sROUTINE TO INCREMENT S$HARD

001264
000062

JNOTE:

SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCHRD:

023417

000062

BNE
CMP

BHIS

18:

189

'xirrcg

BADSEC

;SEE IF BAD TRK/SEC INDICATOR SET

:BRIF IT IS

1$
:BR IF IT'S SET, DON'T INCREMENT COUNT
SHARD
(R0) ,#9999.° ;1S SHARD ALREADY AT MAXIMUM ?

's,ocmo(am

; INCREMENT SHARD

sROUTINE TO INCREMENT $SKI
sNOTE:

001264
000064

INCSKI:

023417

$SKI WILL NOT BE INCREMENTED BEYOND 9999 (10)

TST

BNE
CMP

BHIS

1$:

190

$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10)

INC

RTS

BADSEC

:SEE IF BAD TRK/SEC INDICATOR SET

:BROIF IT IS

;RETURN

1$
*BR IF IT'S SET, DON'T INCREMENT COUNT
$SKI1(R0),#9999. ‘1S $SKI ALREADY AT MAXIMUM ?
$SK1(RO)

sROUTINE TO INCREMENT SMISPO

: INCREMENT $SKI

&%agDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 16-6

SEQ 0113

SUPPORT SUBROUTINES

JNOTE:

023702
023706
023710

005737
001 009
02685

001264

023720
023724

005260
000207

000066

INCMIS:

BADSEC
1$

18:

;ROUTINE TO INCREMENT STOTAL
JNOTE:

023726

005737
006

001264
000056

SESTRARENS

PININD
= b e i b d b b

STOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCTOT:

BADSEC
1$

s SEE IF BAD TRK/SEC INDICATOR SET
:BR IF IT'S SET, DON'T INCREMENT COUNT
?IOTAL(RO).I9999 }S ?TOTAL ALREADY AT MAXIMUM ?

023417

000056

T IS
s INCREMENT STOTAL

$TOTAL (RO)

18:

sROUTINE TO TYPE THE TIME

STIME:

BNE

TYPE

MOV
JSR
JSR

—

N
o

S
N

—

0
027612

0
&

SSS
W)
=

SEE IF BAD TRK/SEC INDICATOR SET
BR IF IT'S SET, DON'T INCREMENT COUNT
?:ISPO(RO)09999 ;ISfHISPO ALREADY AT MAXIMUM ?
T IS
$MISPO(RO)
s INCREMENT SMISPO

023417

NINONININONY
d d NN
D d b b d wd d
NN — -

SMISPO WILL NOT BE INCREMENTED BEYOND 9999 (10)

054516
001270
030302
027612

,SCRLF

HOUR,
= (SP)
PC,$582D
RS.REPLZ
,COLON
MINUTE ,~(SP)

JSR

RS.REPLZ

MOV
JSR
JSR

secono -(SP)
C.$582D
gs‘REPLZ

RTS

.WOR
TYPE

18:

. WORD
TYPE
MOV

JSR

054516
001272
030302
027612

CLKFLG

C.$582D
OLON

sCLOCK ON THE SYSTEM ?
:BR IF NOT
sCR=LF
:PUT "HOURS® ON THE STACK
CONVERT TO DECIMAL
;TYP

:!VfE 2 DIGITS

*PUT 'MINUTES' ON THE STACK
*CONVERT TO DECIMAL
STYPE IT
iTYGE 2 DIGITS

:PUT SECONDS ON THE STACK
CONVERT 'T0" DECIMAL

sTYPE
|

:TYPE 2 DIGITS

:CLOCK HANDLER ROUTINE
CLOCK:

001274
001272

880076 001270

DEC
BNE
MOV
INC
CMP
BNE
CLR
INC
INC
CMP
BNE

SIXTEE

1s
HZ,SIXTEE
SECOND
#60.
, SECOND
1$
SECOND
INTRVL
42
MINUTE
#60. ,MINUTE
1$

INCREHENT THE 1/60 SECOND COUNTER
:BR IF A SECOND NOT COUNTED

:RESTORE THE VALUE
COUNT THE SECOND
T MAXIMUM
?

BR IF NOT
sCLEAR THE SECOND'S COUNTER

:COUNT THE PERFORMANCE SUMMARY INTERVAL
COUNT THE HINUTE
?
AT MAXIMUM
:BR IF NOT

'r‘xhg MACRO V04.00 5-NOV=-81 09:16:17 PAGE 16-§

SEQ 0114

001410
177777
001412

pu—)

ES;“

losa =(SP)

RABRE

001266
000021
041100
001410

9. ~HOUR

EAR HE MINUTE'S COUNTER

gr-

HINUTE

-4

§(8)1 %70

b
Taln)

gfi!

8828888828838
WVIN) = (N = W sl

i<
RANGRSLIRIRSER
-

NN NN
SRS EEEEES SN
NON) = d e i o e e o D e cd

2
oo~

SVHIFREURZ

NINININ
N NINININININININN)

[elelelelelelelelelelelelel=]

CZRJDE
GENE

HOURS

PC.RPTMR

C&
E_HOURS
17
MS ON THE STACK
g? 1VER TIMER ROUTINE
SII’IF.A'YnTHE PERFORMANCE SUMMARY ?
BR

#=1,STATIN

:SET PERFORHANCE SUMMARY DISPLAY FLAG
ggaz"me PERFORMANCE INTERVAL COUNTER

lgTRVL
2
INTRVL, INTRVL +2 .DI !;IF.AYINTERVAL FINISHED ?
2%

INTRVL
+2

a9
F
CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 17

SEQ@ 0115

GENERAL SUPPORT SUBROUTINES
1

:EAmLL DECODE ROUTINE

%4
?
8
9 024212
10 024216
11 026220
1§ 0242264
13 024226
14 024234
15 024236
16 024242
}z 024244
19 024246

005737
001003
005037
000410
062737
001002
104401
000207
000000
104412

20 024250

012737

26 024

012605

21 024256
22 024262
23 024266
24 024272
25 024276
27 024302
28 024306
29 024310
024312
31 024316
024320
33 024324
024326
35 024332
024334
37 024340
024346
39 024350
40 024354
41 024356
4364
24362
44 0264372
45 0243764
46 024402
47
024404
48 024410
49 024412
50 02442

51 0244

52 0244
53 024432
54 024436
55 024440
56 024446
57 024450

001440

000001

024244

054621

000200

001262
023752
030400
054346

005737
001065
005205
122715
001410
121527
101054
121527
103451
142715
122765
001003
004737
000442
122765
001003
004737
000433
122765
001003
004737
000424
122765
001097

001262

00101;
004737
000411
122765
001003
004737

MoV

#-1,CFLAG

;
H

JSR

RETURN1
RETURN2

PC.KSR

KSR:

TST
BNE
CLR
BR
ADD
BNE
TYPE
RTS
WORD

ORDERQ
18
3s
KSR1
#1,38
2s
,BUSY

024244

005037
004737
004737
104401
104411

032777

18:
28:
38:

177776

KSR1:

CLR
JSR
JSR
TYPE
RDLIN

MoV

000101
000067
000060
177770
000124

177777

18:

177777

2%:

177777

3%:

000127

177777

4S:

000001

154510

025054
000104

025064
000123
025172

025454

177777

58:

#PR4 ,PS

CFLAG
PC,STIME
PC,STKINT
ENTCOM

(SP) +,R5

sSYSTEM BUSY RETURN
sRETURN AFTER KEYBOARD SERVICED
sANY OPERATIONS ACTIVE ?
:BR_IF SOME ARE
sCLEAR THE LOOP COUNTER
sPROCESS THE KEYBOARD REQUEST
sCOUNT THE TIMES THROUGH THE LOOP
sBR IF NOT ENOUGH
: 'SYSTEM BUSY...'
sPROCESS ANY COMPLETED DRIVES
sLOOP COUNTER
sSAVE THE REGISTERS

sSET PRIORITY TO 4

sCLEAR THE °CONTROL C' FLAG
sTYPE THE TIME
sINITIALIZE THE KEYBOARD
s "ENTER COMMANDS®
sREAD THE KEYBOARD

sGET ADDRESS OF INPUT STRING

TST
BNE
INC
CMPB
BEQ
CMPB
BHI
CMPB
BLO
8I(B
CMPB
BNE
JSR
BR
CMPB
BNE
JSR
BR
CMPB
BNE
JSR
BR
CMPB
BNE

CFLAG
7$
RS
#'A,(RS5)
18
(R5) ,4'7
63
(R5) ,#'0
63
#4C7,(R5)
#°'T,=1(RS)
2$
PC,NEWASN
7$
#'D,-1(RS)
3s
PC.DEASGN
7$
#'S.-1(RS)
48
PC,SCMND
’$
#°'W,-1(R5)
5%

sCHECK THE CONTROL C FLAG
sEXIT IF *CONTROL C*' ENTERED
sPOINT TO SECOND CHARACTER
;EQ TO AN ‘A’
:BR IF IT IS
;DRIVE NUMBER GREATER THAN AN ASCII 7 ?
:BR IF IT IS
:DRIVE NUMBER LESS THAN AN ASCII 0 ?
sBR IF IT IS
sLEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A’
;EQTO °'T'
:BR IF NOT EQ
sASSIGN DRIVE FOR TEST
SEXIT
;EQ TO 'D* ?
:BR IF NOT EQ
sDEASSIGN DRIVE
SEXIT
;EQ 70 'S*
:BR_IF NOT EQ
sTYPE STATISTICS
SEXIT
;EQ TO ‘W'
:BR IF NOT 50

BNE
JSR
BR
CMPB
BNE
JSR

63
PC.DATAPK
7%
#'R,=1(R5)
63
PC,REDAPK

sBR IF SET, CAN'T DO ‘W' COMMAND
sWRITE A DATA PACK
SEXIT
;EQ TO 'R’ ?
:BR IF NOT EQ
sREAD A DATA PACK

BIT

025442
000122

SAVREG

MOV

PC
0

s'CFLAG®
IS NORMALLY SET BY THE TTY SERVICE
sROUTINE IN INTERRUPT MODE

#SW0,aSWR

:1S SWITCH O SET ?

DEO RP04/5/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 17-1

SEQ 0116

RAL SUPPORT SUBROU

S8 024456
02
59 024456
104401
60 024462 104413

054325

62 024470 005777

15445

61 024464

062716

00000

63 024474
64 024502
22 024506

052777
005037
000207

000100
177776

68:

78:

69 024510
70 024514

024526
7% 024532
75 024540
76 024542
77 024544
78 024546
79 024556
80 024562
81 024564
82 024570
83 024574
84 024576
85 024604
024
87 024612
89 024620
90 024
91 024626
92 024632
93 024636
9% 02464
95 024646
96 024650
97 024656
98 024

005004
012703
004737
000137
000207
o12749
000137
136437
001043
005737

101 024672
1o§ 024676
103 024702
104 024704
105 024706

004737
105764
001444
100437
006304

88 024616 000403

#2,(SP)

BIS
CLR
RTS

#81T06,387KS
PS
PC

asTks

SEXIT
sTYPE °INVALID SM' ME SSAGE
sRESTORE RO - R
s INCREMENT THE RETURN ADDRESS
sCLEAR THE TTY BUFFER
sSET TTY INTERRUPT ENABLE
:SE;&P'R‘IORITV BACK TO ZERO

JROUTINE TO PROCESS THE ASSIGN REQUEST (°T', °"R', OR W' COMMANDS)
122715
001430
111504
012737
012703
136437
21013
005704
001007
012737
122737
001402
004737
000137
000207
122737
001005
012704
012703

71 024516
72 024520

ADD

154442

BR
78
TYPE
,INVLD
RESREG

000101
053557

000001
034470

053643
000011

ASSIGN: CMPB
BEQ
026750

001462

026750
000041

024650
026730

000011

1$:
28:

000041

004737
004737

114 G247564

001403

ASGN2:

000001
000007
18:

000010
024650
024640
024632
024766

034470

28:
38:
48:

001462

034466

015546
034354

107 056716 016406 00174g 001306
mmmzh%gm%
109 ozcr;g
110 024732

ASGN1:

02567
054154

}}' 852;23 3?3;37 0 353? 000070
115 024750 oosrgg 881216

ASGN3:
18:

MOV8
MOV

MOV
BITB
BNE
ST
BNE
MOV
(P8
BEQ
JSR
JMP
RTS
CMPB
BNE
MOV
MOV

B8R

#'A,(RS)
ASGN2

(RS),Ré
SUNTASN, ASNMSG

#1.R

SIABIT(N.).ASNLS’
R4
1$
#NOTAVL ,ASNMSG
#11,41
2
PC.ASGN3
ASNERR
PC
#11,41
18
#1.R4
#7..R3

F13

CLR
MOV
JSR
JMP
RTS
MOV
JMP
BITB
BNE
ST

R4
#8..R3
PC.ASGN3
4
pg
#38,-(SP)

JSR
TSTB
BEQ
BM]
ASL

PC.RECALO
DRVSTA(R4)
ASGN7
ASGNé6
R&

ASGNé4

ASGN4
DTUW

*SEE IF DRIVE ON THE SYSTEM

:gi}gnn HERE IF DRIVE NOT AVAIL

:LOADED FROM AN RP04/5/6 ?
*BR IF NOT
*START WITH DRIVE 1
*SETUP FOR ONLY 7 DRIVES

CONT ON INUE
:C
sSTART WITH DRIVE 0

sDRIVE COUNT FOR 8 DRIVES
sASSIGN ALL UNASSIGNED, AVAIL DRIVES
:DR#&WT ON SYSTEM
:RE

sPUT RETURN ADDRESS ON THE STACK
L 00K FOR MORE DRIVES

:DRIVE ALREADY ASSIGNED ?

;BR _IF IT IS
:DATA TRANSFER UNDER WAY ?
:BR IF IT IS
;DRIVE NUMBER
sRECAL IBRATE DRIVE
sDRIVE AVAILABLE?
sBR IF DRIVE OFFLINE OR NONEXISTENT
:BR IF DRIVE UNSAFE
‘MAKE Ré INTO WORD INDEX

BLKADR(R4) ,NEWUNT(R4) ;DPB AD DRESS

BLKADR(RG)’RO
PC,CLRDPB

%33
ST

:5‘?51225<n0)
PACK

BEQ

sDRIVE ALREADY ASSIGNED ?

sBR IF IT IS
sTRYING TO ASSIGN DRIVE 0 ?
:BR _IF NOT
s "NOT AVAILABLE® MESSAGE ADDRESS
sSEE _IF LOADED FROM AN RP0/4/5/6
;BR_IF RP04/5/6 1S THE LOAD DEVICE

ATABIT(R4) ,ASNLST

MOV
JSR
JSR
JSR

sASSIGN ALL DRIVES?
sBR_IF ALL DRIVES
sPUT DRIVE # IN Ré
:'DRIVE ASSIGNED® MESSAGE ADDRESS
: RE LOAD R3 FOR 1 UNIT

PC.DRVPRM
PC.GETID

sPUT BLOCK'S ADDR INTO RO

sCLEAR BLOCK FOR DRIVE JUST ASSIGNED

sGET THE DRIVE'S ADDRESS LIMITS
sGET DRIVE I.D.
sGET BAD SECTOR ADDRESSES
sPRESET PASS COUNT TO 1
sWRITE DATA PACK ?
:BR IF NOT

N9
CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 17-2
GENE RAL SUPPORT SUBROUTINES
115 024756
116 024764
117 024766

113760
ooggoa
005303

001216

000026

119 02477

oos;ot.

121 024776
122 02500
123 025
124 025012
125 025014
126 025020

062716
ooo;gr
012737
ooo;or
105764
001405

128 025026
129 025032
130 ossoy.
131 025042
132 025044

012737 053605 026750
000407
012737 053626 026750 1$:
000403
012737 053514 026750 28:

118 0247 g 001402

150 024774 000725

127 025022

}gz 025052

}%g 025060

000004

053662

ASGNS:

026750

034364

100010

000207

005037

000137

38:

001216

146 025100

111504

MOV
B8R
MOV
BR
MOV
RTS

DEASGN: CLR
(MPB
BEQ

000101

136437

034470

001462

146437

034470

001462

151 025122 016464

001740

001464

148 025110

001414

150 025120

006304

152 025130
153 025132
154 025134
155 025136

006204
005303
001412
005204

157 025142
158 025146

122715
001771

000101

160 025156
161 025162

004737
000207

026730

}gz 025170

000744

156 025140 000760

18:

: INCREMENT DRIVE NUMBER

ASGNS

:BR IF FINISKED

ASGN3

: CONT INUE

#6,(SP)
PC
#NOTSAF ,ASNMSG
PC
DRVTYP(R4)
1$

* INCREMENT RETURN
*RETURN
;"UNSAFE®' MESSAGE ADDRESS
*RETURN
*DRIVE PRESENT?
:BR IF NOT

#NOTRP,ASNMSG
3s
#NOTPRS ,ASNMSG
3s
SUNTOFF ,ASNMSG

:ADDRESS OF 'NOT RP04/5/6' MSG
SEXIT
:ADDRESS OF 'NOT PRESENT® MSG
SEXIT
:ADDRESS OF 'DRIVE OFFLINE® MESSAGE

*BR IF DRIVE OFFLINE

:ERROR RETURN

PACK
ASSIGN

;CLEAR 'W' COMMAND INDICATOR
260 TO THE ASSIGN ROUTINE

38:

026750
48:

162 025164 012703 000010

58:

}gg

R4
#'A,(RS)

:DEASSIGN ALL DRIVES ?

MOV

#81T00,R3

*SET R3 FOR ONE UNIT

BITB

ATABIT(R4),ASNLST

:DRIVE ASSIGNED ?

BICB

ATABIT(R4),ASNLST

;DELETE THE DRIVE FROM THE ASSIGNED LIST

MOV

BLKADR(R4) ,DUNIT(R4)

MOVB

BEQ
ASL

2$:

159 025150 012737 053535

171 025204

B8PL

JMP

000001

170 025202

ADD
RTS
MOV
RTS
TSTB
BEQ

NEWASN: CLR

024510

012703

167 025172
168 025174
169 025200

B8R

;SET READ/WRITE DATA PACK INDICATOR
*RESTORE DRIVE ADDRESS
:DECREMENT DRIVE COUNT

:*D* COMMAND (ROUTINE TO DEASSIGN A DRIVE)
005004
122715
001434

149 025112

BEQ

PACK,SPACK(RO)
Ré
R3

;*T* COMMAND (ROUTINE TO ASSIGN A DRIVE)

142 025064
143 025066
144 025072

147 025102

ASGN6:
ASGN?:

}2(1)

145 0250764

MOVB
ASR
DEC
INC

}gz
137 025054

28:
ASGN4:

SEQ 0117

ASR
DEC
BEQ
INC

B8R

C(MPB
BEQ

(R5).R

:BR IF NOT

:MAKE ADDR INTO A WORD INDEX

R
R3
43
R4

sANY MORE DRIVES ?
*BR IF NOT

#'A,(RS)
28

:DEASSIGN ALL DRIVES ?
*BR IF YES

PC,ASNERR
PC

*REPORT IT

SUNTNOT ,ASNMSG

MOV

#8. .R3

“GET DRIVE NUMBER

MOV
JSR
RTS

‘BR IF YES

;PUT ADDRESS IN DEASSIGN LIST

-ADDR OF 'NOT ASSIGNED' MESSAGE

:SET UNIT COUNT TO 8

;'S' COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY)
005004
122715
001421
111504

136437

SCMND:

000101

034470

001462

CLR
(MPB
BEQ
MOVB

BITB

R4
#'A,(RS)
2
(RS).Ré4

;ALL STATISTICS ?
*BR IF YES
“GET DRIVE NUMBER

ATABIT(R4),ASNLST

;SEE IF DRIVE ASSIGNED

CZRJDED RPO4L/S5/6 MLT=DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 17GENERAL SUPPORT SUBROUTINES

17;

5212

17%

BEQ

};s 3 :

17? 3 5

}g 0 g 3

gg gomo

12737
737

23200

sssgz 026750 18:

0267

180 025244 01 7g$ 000010
181 025250

13; 025256

136437

001004

183 0252

385 04

185 025264
186 025266

001371
000464

184 0252

187 025270

188 025274

004737
105737

001404

191 025

1ou.g1

104401

19§ 025312
193 025316
194 025320
195 025324
196 025330

105737
001404
104401
104401
104401

198 025342

005004

197 025334

034470

001462

;s:

38:

48:

001220

054520

11$:

054530
001232

054551

012737 043334

MOV

BITB

BNE

128:

OPERID
128
,IDIS
.OPERID
_HEDLIN

*SEE IF OPERATOR I.D. ENTERED
‘BR IF NOT
:"OPERATOR I.D.: °
*THE OPERATOR 1.D.
“HEADER L INE

Ré

:DRIVE ADDRESS

TSTB
BEQ
TYPE
TYPE
TYPE

BEQ

BYTE

205 025376
206 025400
207 025404

001003
104401
000404

208 025406
209 025410
210 025412

104401
000000
104401

21; 025420

001405

214 025430

005204

216 025436

104401

21 ogsm 005303
21

215 025432

5}; 025440

000746
000207

025410

001165

98:

553
221 025442

TYPE
LWORD
TYPE

0
,$CRLF

*TYPE THE DRIVE 1.D.
:ADDRESS OF DRIVE I.D. FIELD HERE
$CR-LF

*BR IF AT END

+ INCREMENT DRIVE ADDRESS

,LINGSP

108
NONE
s

DEC

ADD

#SRPEC2+2,68

BEQ

TYPE

RTS

$CRLF

*4 SPACES

:BR IF DRIVE I.D. PRESENT
*TYPE °*NONE°
* CONT INUE

*DECREMENT THE COUNTER

:INCREMENT THE MESSAGE FIELD ADDRESS

* CONT INUE
CR-LF

:*W' COMMAND (ROUTINE TO WRITE A DATA PACK)
012737

177777

555 025450 000137 024510

224

ssTYPE 2 DIGIT(S)

:SEE I7 DRIVE 1.D. ENTERED

INC

8s:

2:TYPE DRIVE NUMBER
::60 TYPE-=OCTAL ASCII

368

054572

ozs% 062737 000304

::SAVE Ré FOR TYPEOUT

TSTB

BNE
TYPE
BR

78:

;SEE IF DRIVE ASSIGNED

:BR'IF NOT ASSIGNED

::SUPPRESS LEADING ZEROS

TYPE

001165

- COUNTER

ATABIT(R4),ASNLST

R&,=(SP)

:DRIVE I.D. FIELD ADDRESS

053361

108:
68:

*THE OPERATOR ENTERED DATE

#8. .R3

BITB

BYTE

000012

.DATE

*BR IF NOT

MOV

000

105777

118

RETURN

sTYPE ALL STATISTICS

#DRIVEO+SDRVID,68

025365

104401

PC,STATPR

MOV

TYPOS

204 025372

*DECREMENT COUNTER

S'DATE:

104403

203 025366

* INCREMENT DRIVE ADDRESS

,DATEIS

TYPE

025362

002

°DATE' ENTERED

MOV

025364

;SEE IF DRIVE ASSIGNED

:BRIF YES

*SEE IF

010446

202 025360

DATE

CLR

58:

:DRIVE COUNT

ATABIT(R4) ,ASNLST

TSTB

JSR

001417

001462

#8. .R3

:m; ERROR MESSAGE

*MORE TO CHECK
*NONE ASSINGED,

201 025356

034470

gg.Asneka

33
9s

012703

136437

"Hfi DRIVE STATISTICS

;ADDR OF BLOCK

BNE
B8R

199 025344

200 025350

000010

025410

gg.rmst

NUNTNOT ,ASNMSG :ADDR OF °NOT ASSIGNED® MSG

JSR

TYPE

001232

:MAKE DRIVE ADDR INTO WORD INDEX

MOV

BEQ

001220

:BR IF NOT

Ré

BLKADR(R4)
,RO

i;“sn

DEC

023116

SEQ 0118

MOV

INC

5303

189 025

190 025302

ASL

001216

DATAPK: MOV

JMP

#-1,PACK

ASSIGN

;SET THE ‘W' COMMAND INDICATOR

*ASSIGN REQUESTED DRIVE

/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 17-2

SEQ 0119

T SUBROUTINES

:"R' COMMAND (ROUTINE TO READ A DATA PACK)
0127§7

000001

000137 024510

001216

REDAPK: MOV

JMP

#1 ,PACK

ASSIGN

;SET THE 'READ® INDICATOR

*ASSIGN THE REQUESTED DRIVE

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 18
GENERAL SUPPORT SUBROUTINES
1

SEQ 0120

;gmm TO CLEAR THE DPB FOR THE ASSIGNED DRIVE

§4

;

7 025466

CLRDPB:

025466
010346
025470 010446
025472

8 025476
9 025500
10 025502
1 ozssog
12 025512

13 025514

010546

005024

18:

005303

005024

28:

18 025532 162703 000002
19 025536 001374

20 025540

21 025544
22 025550
23 025552
24 025556
25 025560
26 025566
27 025572
28 025600

29 025
30 025612
31 025620
32 025626

062704

000014

012703 000162
005024
162703 000002
001374
113760 001434
013701 001434
116160
113760

106360
013760
013760
005460
33 025632 012760

3% 025640
35 025646

132760
001403

025664

012604

39 025670

000207

001760
001432

38:
000024

000002
000030

MOV
MOV

R3,=(SP)
R&,=(SP)

::PUSH R3 ON STACK
*:PUSH R4 ON STACK

MOV
MOV
ADD
MOV

SRPDT(R0) ,=(SP) :SAVE DRIVE TYPE
RO,R%
:GET THE DPB ADDRESS
#2.R4
*ADDRESS OF FIRST LOCN TO BE CLEARED
#5 R3
*NUMBER OF LOCNS TO BE CLEARED

DEC

RE TURN

CLR

000024

2:PUSH RS ON STACK

;CLEAR THE LOCATION

BNE
ADD
MOV

13
#2.Ré
#SNEXT-SREG,R3

:BR IF NOT FINISHED
*MOVE THE ADDRESS PAST THE °'REG' ADDR
:NUMBER OF LOCNS TO BE CLEARED

SUB
BNE

#2.R3
2

MOV
CLR
SUB
BNE
MOVEB
MOV

#SRPEC2-MINSEC,RS :NUMBER OF LOCNS TO BE CLEARED
(R4) +
sCLEAR A LOCATION
#2.R3
:DECREMENT THE COUNTER
3s
:BR IF NOT DONE
BEGCOD,SCODE(RO)"
;INITIAL COMMAND CODE
BEGCOD .R1
:GET THE ACTUAL OP CODE

ASLB
MOV
MOV
NEG
MOV

SPATTC(RO)
:CONVERT CODE TO A TABLE INDEX
BEGSIZ,SWRDL(RO) " ;BEGINNING RECORD SIZE
BEGSIZ.SWRDM(RO) :VALUE FOR DATA TRANSFER
$WRDM(RO)
sMAKE IT INTO 2°S COMPLEMENT
#256. ,$SSEC(RO) “;INITIAL VALUE OF SECTOR SIZE

ADD
MOV
MOV

#4,8SSEC(RO)
:ADD HEADER SIZE TO SECTOR SIZE
(SP)+,SRPDT(R0) :RESTORE DRIVE TYPE
(SP)+.RS
::POP STACK INTO RS

MOV

(SP)+.R3

CLR

BITB
BEQ

MOV
RTS

RS,=(SP)

(R4)+

MOVB
MOVB

36 025650 062760 000004 000022
37 025656 012660 000262
48:
38 025662 012605
025666 012603

:DPB ADDRESS

ADD

001436 000020
001436 000004
000004
000400 000022
000001

#DPB,RO
PC,CLRDOPB

MOV

016046 000262
010004
062704 000002
012703 000005

1% 025516 001375
15 025520 062704 000002
16 025526 012703 000070
17 025530

MOV
JSR

(R4) +

#12. .R4

:DECREMENT THE COUNTER

:CLEAR

:DECREMENT THE LOCN COUNTER
:BR IF NOT FINISHED
*MOVE PAST ADDRESS LIMITS

COMTBL(R1),$COMND(RO) ;OPERATION CODE
BEGPAT.SPATTC(RO) :PATTERN CODE

#1,8CODE(RO)
48

:HEADER ORDER ?
*BR IF NOT

(SP)+,R4

2:POP STACK INTO R4

*RETURN

*:POP STACK INTO R3

;ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR

43 025672

010346

45 025676

005737

000042

104401

054415

4% 025674

010446

46 025702 001035

47 025704

48 025710

006204

025714

104403

49 025712 010446
025716

002

DRVPRM: MOV

R3,=(SP)

:SAVE R3

TST

*RUNNING UNDER MONITOR CONTROL

TYPE

ENTLMT

MOV

BNE

ASR

MOV

TYPOS
.BYTE

R%.=(SP)
3s

R4 ,=(SP)
2

*SAVE Ré&

*BR IF YES

*"ENTER ADDRESSES®

*CONVERT INDEX TO DRIVE NUMBER

*:SAVE R4 FOR TYPEOUT
::TYPE DRIVE NUMBER

+:60 TYPE==OCTAL ASCII
::TYPE 2 DIGIT(S)

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-MOV-81 09:16:17 PAGE 18-%

SEQ@ 0121

.‘SUPPRESS LEADING ZEROS

025770
034364

gnoioavrmwADDRESS OF 'RPOS® MESSAGE

053723

025770

#RP06, 28

:BR’ l ES
:ADDRESS OF 'RP06' MESSAGE

vcasssme ADDRESS

(=i

SNW

053716
000002

R
T

P
FEERTE
RS
$EIEERYS

N =

—O

OO0 =000—=0O—=

BYTE

0%5770

SLASH

#RP04B, 28
ADDRESS OF "RPO4* MESSAGE
gnoo"DRVTYP (R4S

:BR’ xr es

STYPE THE MESSAGE WHICH FOLLOWS

mo cvum

*ASSUME AN RP04/S

4
#814, ,CYLIMT

:BR
IF NOT
:CHANGE LIMIT TO 814

001350
034364

#8IT02,DRVTYP(R4S

001350
000122

#-1,8F IRST(RO)

000106

CYLIMT, mxcvuno) ;LOAD MAXIMUM CYLINDER
MINCYL
(RO)
ém MINIMUM CYLINDER

000116

5%:

Ré
TABLE (R4) ,R3

CYLIMT,2(R3)

000002
000010

000010
000011
000012

:SEE IF RPO6

gss IF FIRST TIME STARTED
IF NOT

mxun MAXTRK (RO5 OAD MAXIMUM TRACK
MINTRK (RO)
t mumn TRACK
SECLMT mxsecmoS
MAXIMUM SECTOR
MINSEC (RO)
.cn.émMINIMUM SECTOR

000112

wWw

NN
N
&
Iy
o SREKRSY
~

w Wi

222
%88 FERERZIRINIE
~

SR % ERLRSSLIRAMICLS

GENERAL SUPPORT §UBROUT INES

E;LIHT.10(R3)
PC,PARENT

:SETUP TO ADDRESS WORDS

*PARAMETER TABLE ADDRESS

:LOAD CYLINDER LIMIT FOR LAST CYLINDER

:LOAD CYLINDER LIMIT FOR STARTING CYLINDER
*UNDER MONITOR CONTROL
?
*BR IF YES
:GET THE DRIVE'S PARAMETERS

MINSEC (RO) ,$SEC(RO) :INITIAL SECTOR VALUE
MINTRK(RO).$TRK(RO) :INITIAL TRACK VALUE
MINCYL (RO) .$CYL (RO) umzu. CYLINDER VALUE

6$:

(SP)+ R4

(SP)+.R3

sRESTORE
R

RESTORE R3
sRETURN

_$ogssess
EIRo8RRS R
N=NN—-a

Sva82
— b b VN 33
=2
ry

BEERERES
SINIXRER
N

sROUTINE TO GET THE DRIVE I.D. FROM THE OPERATOR
GETID:

001%62
054370

18:

Mov
TST
BNE

R5,=(SP)
52
2%
CFLAG

.ENTDRV

=(SP)

(RO) (SP)

2
001165
001262
000056

.SCRLF

:SAVE RS
:UNDER MONITOR CONTROL ?
:BR_IF NOT
:CLEAR THE 'CONTROL C' FLAG
s "ENTER DRV 1.D.:
:CLEAR THE STACK

:PUT_THE DRIVE NUMBER ON THE STACK

sTYPE THE DRIVE
NUMBER

:TYPE 2 DIGITS

SUPRESS LEADING ZEROS

(SP)+,R5

READ THE ENTRY
GET THE ENTRY ADDRESS

BR IF IT WAS

CFLAG

(R5) ,4*.

'CONTROL C*' ENTERED
?

:PERIOD ENTERED ?
:BR IF YES

F 10

CZRJDEO »04/5/6 MLT=DR LGC MACRO V04.00 S=NOV=81 09:16:17 PAGE 18<2

SEQ 0122

GENERAL SUPPORT SUBROUT INES

109 o% §2 1 528 888 gs

106 026230

1125

40
46
S0

026256

110 026

”1 026262

115 026264

026264

112560
112560
112560
112560

012605

000 3
000 io
ooog
000231

000207

GETADR:

010146

81024.6
010346
010446
005737 000042
00101

119 ozosog
120 026312

104401
005046

121 026314
122 026316

005037

123 026320
124 026321

111016
104403
002
000

126 026326

012703

130 026344

005303

132 026350

005737

125 026322

001262

054455

001165

127 026332 012704
128 026336 060004
129 026340 012724

000124

133 026356
134 026356
135 026362

136 026366

137 026370
138 026372

001374

001106
162704
012703
104411

012601

005737

139 026376 001341

148:

000040

158:

177777

18:

000042

004537
02655
02657,
02655

026420

026434

026416

026422

000100
000020

28:

001262

026446
026450

(RS)+.$DRVID+2(R0)
(R5)+.SDRVID+3(R0)
(RS)+.SDRVID+4(RO)

MOV

(SP)+.RS

MOVB

(RS)+.SDRVID+S(RO)

:STORE THE I1.D.
:STORE THE I.D.
:STORE THE I.D.

:STORE THE I.D.

:RESTORE RS

MOV

R1,=(SP)

PUSH R1 ON STACK

CFLAG

*CLEAR *CONTROL C® FLAG

MOV
MOV
MOV
ST
BNE
(LR

ag.=(SP)
-(SP)
Ré.=(SP)
42’
158

TYPE
CLR

,ENTADR
(SP)

BYTE
BYTE

2
0

MOV

#32. .R3

TYPE

*RETURN

(nm (SP)
,SCRLF

+CR=

nussn OF Locmous IN THE TABLE TO PRESET

:BR IF NOT FINISHED WITH TABLE

BNE
SUB
MOV

13$
#64. R
#16..R3

*BR IF YES
:SET POINTER TO BEGINNING OF TABLE
*NUMBER OF ADDRESSES IN nm.e

MOV

(SP)+,R1

:TEXT POINTER

RDLIN

CFLAG

MOV

CYLIMT,R2

MOV
B8R
MOV
BR
MOV
MOV

JSR

128
138

*TABLE INCREME
*BLOCK smnne ADDRESS
*SET LOCATION TO 1°'S

:DECREMENT TABLE SIZE COUNT

*UNDER MONITOR CO TROL
?

*GET ADDRESS FROM OPERATOR
conmoL C* ENTERED ?

148

:BR IF IT WAS

RS.CK.DIG

sCHECK THE DIGIT(S)
:CARRIAGE RETURN ONLY ENTERED
*PERIOD ONLY ENTERED
sILLEGAL INPUT

:UPPER LIMIT OF mpur

s TERMINATED uxm A CARRIAGE RETURN

030144

STYPE 2 DIGITS
sumess LEADING ZEROS

DEC

026424

58:

:PUT THE DRIVE NUMBER ON THE STACK
:TYPE THE DRIVE NUMBER

BNE

48:

*ENTER SECTOR ADDRESSES
:CLEAR THE STACK

#SBDSEC,R4
RO, R
#-1,(R4)+

JSR
12%
13$
128

3s:

H R2 ON STACK
H R3 ON STACK
*PUSH R4 ON STACK
*UNDER MONITOR CONTROL ?
:BR IF YES

MOV
ADD
MOV

026430

655
0 657

:STORE THE 1.D.

RTS

RNE

030144

141 026426 010214
ug 026426
61
143 026430
010214
144 026432 000442
145 026434 010214
146 026436 013
o; 001346

026442

MOVB
MOVB
MOVB

140 026400 01370; 001350
026406
026410
026412
026414

(RS)+, mvxmo»

MOVB
TYPOS

104401

131 026346

2s:

(R5)+.SDRVID+1(RO)’ ;STORE THE I.D.

MOVE

;ROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16)

26266
026270
026272
116 0%6%8
117 026
118 026302

MOVB

sTERMINATED WITH A *,

R§ (R4)
13$
R2, (R4)
11$
az (R4)
TRKLMT ,R2

RS,CK.DIG

*TERMINATED WITH A **.**

*CYLINDER ADDRESS
:EXIT, PERIOD ENTERED
*CYLINDER ADDRESS
:FINISHED WITH THIS ADDRESS. "CR® ENTERED
*CYLINDER ADDRESS
*UPPER LIMIT OF INPUT

: CHECK ms DIGIT(S)

:CARRIAGE RETURN ONLY ENTERED
:PERIOD ONLY ENTERED

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 13-§ i

SEQ 0123

GENERAL SUPPORT 3SUBROUTINES

026452
026456

02655
02647

et B

147 026462 110264
148 026466 000441
149 026470

110264

000003

68:

000003

78:

150 026474 000421
151 026476 110264 000003
152 026502 omg; 001344
026506
02651
26514
026516
026520
026522
026526

004537
osessg
02657
026552
026534
026552
025526

154 026532

000417

153 026526

155 026534

156 026540

110264

030144

*TERMINATED uxm A CARRIAGE RETURN

MOVB
BR

ng 3(R4)
13§

B8R
MOVB
MOV

11$
nz.sm)
SECLMT,R2

MOVB

JSR
12%
138
128
108
128
98

R2,3(R&)

RS,CK.DIG

:ILLEGAL INPUT

:TERMINATED WITH A CARRIAGE RETURN

*TERMINATED WITH
A

"f 2(R4)

noggl. 000002

108:

MOVB

R2,2(R4)

005303

000004

160 026552

012714

177777

162 026564

104401

054600

161 026556 012764

163 026570

000676

026572
026574
026576
026600

012604
012603
012602
012601

177777

11$:

000002

128:

138:

000207

DEC

R3
13s
#4 R4

MOV

#-1, (R4)

TYPE

BADENT

MOV

s’

#-1.2(R4)

MOV
MOV
MOV
MOV

(SP)+,R4
(SP)+.R3
(SP)+.R2
(SP)+.R1

RTS

167

13§

BEQ
ADD

*CHECK THE DIGIT(S)
:CARRIAGE RETURN ONLY ENTERED

*PERIOD ONLY ENTERED

MOVB

159 026550 0007

:TERMINATED WITH A o 0o
*SECTOR ADDRESS

SEXIT

nmv rmumeo BY PERIOD

secréa ESS

*MORE snmes ?

:BR_IF NOT
s INCREMENT THE TABLE POINTER
: CONT INUE
:CLEAR PRESENT TABLE ENTRY

;CLEAR PRESENT TABLE ENTRY
’INVAUD ENTRY®
Y AGAIN

::POP STACK
:;POP STACK
::POP STACK
:;POP _STACK
sRETURN

INTO R4
INTO R3
INTO R2
INTO R1

:PARAMETER ENTRY ROUTINE

168

JCALL

} ;?

169

172 026604

173

:TERMINATED WITH A
* ,’
*TERMINATED WITH A **.**
*TRACK ADDRESS
*EXIT, ENTRY TERMINATED BY PERIOD
*TRACK ADDRESS
:FINISHED WITH THIS ADDRESS, *CR® ENTERED
:TRACK ADDRES.
:UPPER LIMIT OF wur

98:

001413
062704

}22 026602

;ILLEGAL INPUT

000002

157 026542
158 026544

164 026572

8s:

128

026606

174 026612

010349

005037

012337

175 026616
176 026620
177 026622

001442
104401
000000

180 026630

011546

001262

026622

055074

185 026644

005737

001262

187 026652
026656

004537
026612

030144

0126?1

186 026650 001021

PARENT: MOV

R3,=(SP)

18:

JSR
CLR

MOV

BEQ
TYPE
WORD

MOV
MOV
v

104405
104401
104411

184 026642

#ADR,R3

3s:

178 026624 012302
179 026626 012305

181 026632
wg 026634
183 026640

MoV

TYPDS
TYPE
RDLIN

MOV
ST

BNE

JSR
13

PC,PARENT

sPARAMETER TABLE ADDRESS
:GET THE PARAMETERS
sSAVE THE PARAMETER TABLE ADDRESS

CFLAG

CI.EAR THE "CONTROL C*' FLAG

‘8
:TYPE THE PARAMETER NAME

(R3)+,38

(R3)+,R2
(R3)+.RS

(R5) ,~(SP)

,SLASH

:ADDRESS OF PARAMETER NAME TEXT

:MAXIMUM PARAMETER VALUE
:ADDRESS OF PARAMETER
:CURRENT VALUE OF PARAMETER

:.w;s.me CURRENT VALUE OF THE PARAMETER

(SP)+,R1

sREAD THE KEYBOARD
!NPUT ASCII STRING ADDRESS

:BR IF IT WAS

CFLAG

RS.CK.DIG

MTROL C' ENTERED
?

sCHECK THE DIGIT(S)

:CARRIAGE RETURN ONLY ENTERED

H1
CZRJDED RPO‘.IS/b MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 18-6
GENERAL
UBROUT INES

SEQ 0124
sPERIOD ONLY ENTERED

188 026672
189 026674
190 026676
191 02670
192 026706
193 026710
194 026712

01021
746
104401 054600
535703 000006
761
010215
000404

195 026714

005037

198 026724

005726

196 026720 011603
197 026722 000733

56’3 026726

58:
68:
78:

001262

8s:

9s:

000207

MOV
B8R
TYPE
SUB
BR
MOV
BR

R2, (RS)
1$
.wgnr
#6.R
1%
R2, (RS)
98

ILLE GAL 1 INPUT
TERHINATED UITH A CARRIAGE RETURN
TERMINATED WITH A *
;TERMINATED WITH A
"’
*MOVE NEW VALUE TO Pmren LOCATION
.cer MORE PARAME TERS
:'BAD ENTRY'
*DECREMENT THE TABLE POINTER
*TRYAGAIN
*NEW VALUE
SEXIT

MOV
B8R

(SP) ,R3
1$

*RELOAD THE PARAMETER TABLE ADDRESS
:TRYAGAIN

CLR

RTS

CFLAG

(SP)+

*CLEAR THE °*CONTROL C* FLAG

*CORRECT THE STACK POINTER
*RETURN

%8}

: {Xffw' ASSIGN/DEASSIGN ERROR MESSAGE

203
204

:
:

ggg

207 026730
208 026734

104401
104401

026742
026744
026745

104403
002
000

209 026740 010446

210 026746

211 026750
212 026752
g}z 026756

054323
053506

104401

000000
104401
000207

001165

223 026772

006304

225 027000
027004

104401
104401

229 027020

006204

027024
027026

104403
002

ASNERR: TYPE
TYPE

;QUESTION MARK
:TYPE *DRIVE’

TYPOS
BYTE
.BYTE

2
0
O
,SCRLF
PC

:SAVE Ré FOR TYPEOUT

*:TYPE DRIVE NUMBER

::60 rm-ocm. ASCII
;3 TYPE 2 DIGIT(S)
:SUPPRESS LEADING ZEROS

ivpe SPECIFIC MESSAGE
*MESSAGE ADDRESS

DROP:

RETURN
CLR

al.

um R4 FOR DRIVE NUMBER

ASL

Ré

:MAKE DRIVE NUMBER INTO A TABLE INDEX

MOVB

BICB
MOV

227 027010
228 027014

TYPE
TYPE

001165
001165

054104
054213

230 027022 010446
000
104401

,QUES
,UNTMSG

R&,=(SP)

226 026774 010064 001464

027027
231 027030

;ERROR MESSAGE ADDRESS

MOV

ASNMSG: .WORD
TYPE
RTS

222 056794 146437 034470 001462
104401
104401

#HESADR,ASNMSG
PC,ASNERR

:DEASSIGN DRIVE IF A FATAL ERROR OCCURS
sCALL
:
JSR
PC.DROP

5}3
220 026760 005004

111004

RETURN

TYPE

215
216
217

221 026762

MOV
JSR

TYPE
TYPE

ASR

MOV

RO.DUNIT(R4)
,SCRLF
.SCRLF

TYPE

:PUT DRIVE IN OROP LIST

.DROPNG
DRNUM

s TYPE 'onomue DRIVE®
'DRIVE
#

Ré,=(SP)

*:SAVE R4 FOR TYPEOUT
..me DRIVE NUMBER
*G0 vpe--ocm. ASCII
$:TYPE 2 DIGIT(S)

Ré

TYPOS
.BYTE
001165

E DRIVE NUMBER TO Ré&

ArAait(al.).Asmsi nenovs DRIVE FROM ASSIGNED LIST

+SCRLF

omve NUMBER

: :SUPPRESS LEADING ZEROS

SEQ 0125

GENERAL SUPPORT SUBROUTINES

23% 027034

000207

sROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE

235
236
027036
237 027044

032777
001006

239 027054
240 027056
241 027062

10300
000137
000207

238 027046

RTS

023760

000020

152074

001406

000056

026760

ABNRML: BIT
BNE

CMP

18:

BHIS
JMP
RTS

#SW04 ,aSWR
1$

SEE IF SUITCH76 SET
IF IT'S SE
HAXER.STOIAL(RO) ; CHECK _TOTAL ERROR VALUE

1$
DROP
PC

:BR IF ERRORS DONOT EXCEED MAX
DE?&%ING THE DRIVE

p + 4

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 18-;

E'Z‘?JDEO
RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 19
1

.SBTTL

END OF PASS

EOP:

TST

J 10

SEQ@ 0126

:ROUTINE TO CHECK FOR END OF PASS AND END OF TEST

& 027064

005737

001430

13 027116

026037

000044

104401
104401

001165
054140

S 027070
027100
8 027102
9 027104
10 027112
}5 027114

oom;
000054 001374
101017
103405
026037 000052 001372
103015
00051

9 027072 026037

1% 027124
15 oznge
16 027130
17 027136

18 027140
19 027144

001400

101005
103503
026037 000042 001376
103477

20 027150 016046 000070
21 027154

22 027156

104405

111037

EOP1:

EOP2:

BEQ
CMP
BHI
BLO
CMP
BHIS
BR
CMP °

eno OF PASS DETERMINED BY SEEKS OR WORDS ?

EOP1
IF SEEKS
EOP?2
MSW GREATER THAN LIMIT
EOP1
aax MSW LESS THAN LIMIT
SREAD
(RO) ,ENDCON" ;CHECK LSW AGAINST LIMIT
EOP2
;BR
IF EQUAL OR GREATER
EOPX
SEXIT

SREAD+2(R0), snocbmz ;CHECK MSW OF WORDS READ COUNT

$POSIT+2(RO),ENDSEK+2

:CHECK MSW OF SEEK COUNT

BHI
BLO
CMP
BLO

EOP2
:BR IF MSW GREATER THAN LIMIT
EOPX
*EXIT IF MSW LESS THAN LIMIT
sposmnm ENDSEK ;CHECK LSW OF SEEK COUNT
EOP
;EXIT IF LSW LESS THAN LIMIT

MOV

imssc(no) -(SP)° ;PUT PASS COUNT ON THE STACK

MOVB

(RO),UNIT

TYPE
TYPE

TYPDS

001246

ENDET

scm.r

:CR=LF
:END OF PASS FOR THE DRIVE

;CONVERT PASS COUNT TO DECIMAL AND TYPE IT

*STORE THE oaxve NUMBER

23 027162 032777 000020 151750
26 027170 001017

BIT
BNE

#5W04 , aSWR
1$

26 027200
27 027202

BLO
TYPE

1
,ENDTST

:BR"IF NOT
STYPE 'euo OF TEST'

UNIT,=(SP)

*:SAVE UNIT FOR TYPEOUT

25 027172 026037 000070 001402
28 027206

103413
104401

104401

CMP

054154

056213

29 027212 013746 001246
027216

104403

30 027222

104401

001165

32 027230

104401

054213

027240

104403

027220
027221

002
000

31 027226 000431

34 027246

35 027250

36 027254
37 027256
38 027260
39 027262

002
000

104401

004737

1$:

4§ 027272
43

027274

005024

4% 027276 001375
45 027300 012604

TYPE

MOV

005260

000070

49 027312

104401

001165

3$:

. SAVE uun FOR TYPEOUT

UNIT,=(SP)

PC,TYPEST

,SCRLF

MOV

R3.-(SP)
R .=(SP)
RO, R4
#SOPERC R4
#8..R3

CLR

(R4)+

INC

TYPE

S:TYPE 2 DIGIT(S)
..su»ness LEADING ZEROS

,DRNUM

JSR

MOV

*:TYPE DRIVE NUMBER
::60 rvps--ocm ASCII
+CR-LF

DEC

*'DRIVE
#

$CRLF

.BYTE
"BYTE

BNE
MOV

47 0273064

48 027310 000412

MOV
MOV
MOV
ADD
28:

005303

46 027302 012603

TYPE

023200

.DRNUM

2
0

TYPOS

001165

msscmo» mcn’r :SEE IF AT END OF TEST

BYTE
BYTE

TYPE

010346
010446
010004
062704 000036
%0 027266 012703 000010

TYPE

MOV

TYPOS

33 027234 013746 001246
02724
02724

sun H &4 SET
IF SET

23
(SP)+,Ré4

(SP)+.R3

mssé(nm

EOP

scm

mssm THE DRIVE
'DRIVE
#

*:TYPE DRIVE NUMBER
::60 rm--ocm ASCII

S:TYPE 2 DIGIT(S)
..sumsss LEADING ZEROS
+CR-L

rvpe THE DRIVE'S STATISTICS

*SAVE R3
:SAVERé4
*DRIVE'S BLOCK ADDRESS
*ADD THE STARTING ADDR OF SECTIONS TO CLEAR
*NUMBER OF LOCNS TO BE CLEARED
*(ERROR COUNTERS NOT CLEARED)

:CLEAR THE LOCN

:DECREMENT THE LOCATION COUNTER

*BR IF MORE TO GO
aesroas Ré&

*RESTORE R3

mcnsnem THE PASS COUNT

SEXIT

K1
E'ISJ&EORggloISM MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 19-1

50 02731
51 0

Bg‘ 3 77

oos

§5 027336

000207

CLR
MOVE

1464. 7 034470 001462
ogl.

027332 010064 001464

EOPX:

SEQ 0127
CLEM R4 FOR DRIVE NUMBER
VE DRIVE NUMBER
DELETE DRIVE FROM ASSIGNED LIST
s MAK DRIVE NUMBER INTO TABLE INDEX

BICB
ASL

ArAemat.).AsuLs?
Ré

RTS

MOV

RO,DUNIT(R4)

:PUT BLOCK ADDRESS INTO DROP LIST
:RETURN

EgJDEORg(s)loIS/b MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 20
1

8 027344
9 027350
10 027352
11 027356
1; 027360
13 027362

}'s' 027364

SEQ 0128

.-nctgflme TO GET THE REMAINDER OF THE RANDOM NUMBER

7 027340

L 10

;

013746

033634

013746 033632
010546
004737 027366
012605
005726
000240

RETURN

GETREM: MOV

MOV
MOV
JSR
MOV
ST
NOP

000207

16
17

MOV
JSR

RTS

NUMBER,
RS
PC,GETREM

:DIVISOR INTO RS

SLONUM,=(SP)

:STORE RANDOM NUMBER ON THE STACK FOR DIVIDE

SHINUM.=(SP)
RS,=(SP)
PC unxov
(SP)+,RS
(SP)+

;REMAINDER IS IN RS
:UPPER PART
*PUT THE DIVISOR ONTO THE STACK
*DIVIDE THE RANDOM NUMBERS
:PUT THE REMAINDER INTO RS
*ADJUST THE STACK POINTER
*FOR DEBUGGING HALT

;LINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE
:
THIS ROUTINE ALLOWS THE *SYSMAC' DIVIDE ROUTINE

;

20 027

104412

25 027406
26 027410
27 027412

005000
005001
004737

21 027370 016605 000026
22 027374 005004
23 027376 016602 000030
24 027402 016603 000032

CALLING SEQUENCE TO BE USED

LINKDV: SAVREG

sSTORE RO - RS

MOV
CLR
MOV
MOV

26(SP) ,RS
R4
30(SP) ,R2
32(SP) .R3

28 027416 010166 000030
29 027422 010366 000032

MOV
MOV

R1.30(SP)
R3.32(SP)

*REMAINDER ON THE STACK
*QUOTIENT ON THE STACK

31 027430

MOV

(SP)+,(SP)

;HOVE RETURN UP THE STACK

30 027426

gg 027432

027434

104413

000207

RTS

:
:
:
:
:

;

44 027444

M.DPID: MOV

005466

000002

NEG

MOV
MOV

ADD

51 027470
52 027472
53 027474

005046
006103
006102

CLR
M.DP40: ROL
ROL

55 027500
56 027502
57 0275064

006100
005716
001410

ROL
ST
BEQ

PC,M.DPID

*FORM NEGATIVE

agp-~

066600

54 ogms 006101

RESTORE
RO
- RS

2(5P)

QB‘C’

49 027462

50 oznga 103445

;60 TO THE DIVIDE ROUTINE

:COUNTER FOR DIVISION CYCLES

Ré&,~(SP)
RS.=(SP)
asP

SBC

000002

*CLEAR OTHER DIVIDEND REGISTERS

#40,-(SP)

NEG

46 027452 005666 000002

25 85;223 3‘6}?35

ENTER WITH JSR

000040

005416

RO
R1
PC.M.DPID

DIVISION UTILITY SUBROUTINE
RO-R1-R2-R3=D1VIDEND
R4=RS=DIVISOR
RO-R1=REMAINDER AFTER DIVISION
R2-R3=QUOTIENT AFTER DIVISION

012746

42 027440 010446
43 027442 010546
45 027450

RESREG

012616

3%
35
3%
37
38

41 027436

CLR
CLR
JSR

:DIVISOR
*OTHER DIVISOR WORD
*UPPER DIVIDEND WORD
*LOWER DIVIDEND WORD

2(sp)

2(SP) RO

BCS

M.DP50

ROL

-(SP)
R3
R2
RO

M.DP41

*HIGH ORDER
*LOW ORDER DIVISOR TO THE STACK
*VERSION OF THE DIVISOR

PERFORM THE INITIAL SUBTRACTION

:1IF CARRY THEN OVERFLOW HAS OCCURRED
STHIS IS A LONGER LASTING CARRY BIT

:TEST
".cmv", INDICATOR
:IF
"CARRY'* THEN ADD ELSE SUBTRACT

10
CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 20-1

SEQ 0129

END OF PASS

S8 027506
59 027510

60 027514
61 027516
027520
63 027524
64 027558
65 027530
66 027533
67 027534
68 027536

005016
066601

CLR
ADD

000002

005500
005516
066600 000004
000404
060501
005500
005516

ADC
AD(
ADD
BR
M.DP41: ADD
ADC
ADC

060400
005516

ADD
M.DP42: ADC

001401
oosggz

BEQ
INC

69 ozrs«g 005716
70 027542
71 027544

72 027546 005
000006
73 027552 003347
7% 027554 006003

75 027556
76 027560
77 027562
78 027564
79 027566

80 027570
81 027572
82 027576
83 027600
84 027602
85 027606
gg 027610

DEC
ROR

103404
060501
005500
060400
000241

006103
062706
000242
000207
062706
000262
207

000006

;CLEAR UP FOR NEXT TIME

RO
asP
;
1
4(SP) ,RO: <=
M.DP42
RS.R1
RO
asP
;1
R4,RO
asP

.44
R3

;>
:
1

asP

6(SP)
R3

BGT

M.DP4O

BCS
ADD
ADC
ADD
cLe

M.DP44
RS.R1

M.DP44: ROL
ADD
LV
RTS
M.DPS0: ADD
SEV
RTS

000010

asP
2(SP) .R1

;ADD =(DIVISOR)

:SET ''CARRY

;ADD +(DIVISOR)
:SET "'CARRY
;SET *'CARRY"’

:TEST THE UPDATE INDICATOR
*1F ZERO FORGET IT
:NO CARRY POSSIBLE HERE

*DECREMENT COUNTER

:BRANCH IF MORE TC DO

R4 RO

R3
#10,SP

;ADJUST STACK BY & WORDS

PC
#6,SP

:?%IINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES

MOV

#ADR,=(SP)

;ADDRESS OF NUMBER (IN ASCII)

g;.

;

LWORD

:*N' IS NUMBER OF DIGITS TO BE TYPED

RO,=(SP)

:SAVE RO

#'0, (RO)

*BYTE EQUAL TO ASCII *0° ?

95 027612

010046

REPLZ:

96 027614 012746 000012
97 027620 162516
98 027622 016600 000006
99 027626

122710

000060

101 027634
102 027640

112710
005200

000040

104 027644

105710

100 027632
103 027642

105 027646

001004

18:

000771

28:

001003

106 027650
107 027652

005300
112710

110 027670
111 027672

104401
000000

114 027700

000205

000060

108 027656 016637 000006
109 027
062637 027672

”% 8552;2 852?2

027672

38:
48:

JSR

MOV

RS.REPL2Z

MOV
SUB
MOV

#10..-(5P)
(RS)+,(SP)
6(SP) .RO

BNE

MOVEB
INC

#40, (RO)
RO

TSTB

(RO)

BNE

*MAXIMUM NUMBER OF DIGITS TO BE TYPED
:SUBTACT DIGITS TO FORM INDEX
*ADDRESS OF NUMBER TO R(
*BR IF NOT

*REPLACE THE 2ERO WITH A SPACE
*INCREMENT THE BYTE ADDRESS

:G0 BACK AND LOOK FOR MORE LEADING ZEROS
*SEE IF ZERO BYTE TERMINATOR

*BR IF NOT

DEC
MOVB

RO
#'0,(RO)

TYPE
.WORD

STYPE THE NUMBER
*ADDRESS OF NUMBER

*RETURN

MOV
ADD

233
RTS

6(SP) 48
(SP)+.4$

f%fii"?&’n
*,

*BACKUP STRING POINTER
*PUT A ZERO BACK IN

*PUT ADDRESS IN LOCATION FOR TYPEOUT
*BEGINNING OF SIGNIFICANT DIGITS

‘5532%57&%
ADDRESS
.

N 10
CZRJbionggk/Slb MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 20-2

SEQ 0130

.TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS

sCALL
;

MOV

JSR

PC,$SUPRS

#NUMADR,=(SP)

;FIRST ADDRESS OF ASCIZ STRING

$SUPRS: MOV
MOV
18:
TSTB

RO,=(SP)
4($P),RO
(RO)

:SAVE RO
*PICKUP THE POINTER
*TERMINATOR ?

e
Pet

<>§§a

—00

88rx8
N b N\ =2\
o
£3
®
W WINSY
FO] SaS&a
o

:
OgOOOOOOOOOOO
NN

WWWNWWNWWINNW
W)
=

VO NN

n NN =O0V
M) = =b boW

END OF

000004
000060

2s:

027732

BEQ
CMPB
BEQ
DEC
MOV

2s
#'0,(RO)+
18
RO
RO,3$

LWORD
MOV

0
(SP)+,R0

:BR IF YES
:IS THIS AN ASCII '0° ?
*BR
IF YES
:BACKUP BY
*1°
:SAVE FOR TYPING
:GO PRINT
*ASCIZ POINTER GOES HERE
*RESTORE RO

*RETURN

DISPLY

38:

MOV

(SP)+.(SP)

“RESTORE THE STACK

sROUTINE TO TYPE AT PRIORITY &
177776

027764
032570

177776

TYPRI&: MOV
MOV
JSR

a#PS ,=(SP)
#200,34PS
(R5)+,1%
SC.STYPE

RTS

MOV

1$:

" WORD

sSAVE THE PRESENT STATUS
s CHANGE THE PRIORITY TO 4

: TYPE THE MESSAGE

*MESSAGE ADDRESS GOES HERE
*RETURN

‘?28{’"‘ TO TYPE ERRORS
wviviviwunwnwnwnanUBa s &~

NOVNN

1020000
177776
032570
000002

151142

;MUST DEFINED IN °*TRAP' TABLE

ME SADR
RETURN

$DSPLY: BIT
BNE
CLR

JMP
ADD

18:

RTI

*ADDRESS OF MESSAGE

IT13,3SWR

;INHIBIT ERROR TYPEOUT ?
:BR IF YES

aAPS

*SET PRIORITY TO ZERO

$TYPE
#2,(SP)

:TYPE THE MESSAGE
: INCREMENT THE RETURN

*RETURN

sTHIS ROUTINE IS USED TO CHECK IF AN
:ASE{I CHARACTER IS A DIGIT BETWEEN O AND 7.

ONONONON

H
;
H

OSSN

u§uwu
S3383

WWNON)
=

:
(=lelelelel

NN,

DISPLY

:
;

000060
000067

MOV
.

#ADR,R1

sADDRESS OF ASCII CHARACTER

JSR
R5.CK.uCT
RETURN1
:
RETURNZ

CK.OCT: CMPB
BLO
CMPB
BHI

MOVB

(R1) ,#'0
18
(R1) ,#'7
1$

(R1) ,R2

sCHECK THE CHARACTER
sCHARACTER IS NOT BETWEEN 0-7
sCHARACTER IS IN R2 AS A
sOCTAL DIGIT

;LESS THAN ZERO?
:YES == BRANCH
:GREATER _THAN SEVEN?
sYES ==
CH

sGET THE CHARACTER

P:;(SKISM MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 20-!
177770

NN~ ~

CZRJDEO
END OF

18:

—>

.
NNN=O
ONOOONON
VIO S NN

§82-.-.-.-.—.
- ONON
deddz

;

000060
000071
000060

D e

e e

=l=l=]

D e

:
:
:
:

RTS

(RS)

:STRIP AWAY THE ASCII

sADJUST FOR RETURN

*RETURN

MOV
#ADR,R1
JSR
RS, CK.DEC
RE TURN1
RE TURN2

CK.DEC: CMPB
BLO
CMPB
BHI
MOVB
BIC

(R1),#'0
(R1).#'9
18
(R1),R2
#'0,R2

18:

RTS

;ADDRESS OF ASCII CHARACTER
:CHECK THE CMARACTER
:NOT BETWEEN 0 AND 9
*BETWEEN O AND 9
:R2 = DIGIT

;LESS THAN ZERO?
*GREATER THAN NINE?
SYES == BRANCH
*GET THE CHARACTER
*STRIP AWAY THE ASCII

*YES == BRANCH

(RSS+

*ADJUST FOR RETURN
*RETURN

D e

;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO
:gflfmxus WHAT IT IS.

:
;
;
;
;
;
;
;

o
VIV =

WAV

geggssses
-2\ %% — NONOO
e e b 2 Y

N O NININWNIN
-

NN
NN

—edeebedd

NINININININININONNONY

221

#°C7.R2

SEQ 0131

:THIS ROUTINE IS USED TO CHECK AN ASCII swcren
:mLommm IF IT IS A DIGIT BETWEEN O AND 9.

Se
A
ey SBIRR RGN 28 TEIRARET2B
I3w

4 03004

BIC

000054

MoV

JSR
RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

CK.CHR: TSTB
BEQ

CMPB

BEQ

000056
030044
030016

48:

;ADDRESS OF ASCII CHARACTER

RS,CK.CHR
ADR1
ADR
ADR
ADR%
ADRS
ADRG

*CHECK CHARACTER
*UNKNOWN CHARACTER
:CARRIAGE RETURN * (R1)=ADR+1
SCOMMA * (R1)=ADR+1
:PERIOD * (R1)=ADR+1
*DIGIT BETWEEN O AND 7.
*DIGIT BETWEEN 8 AND 9.
*R2 = DIGIT * (R1)=ADR+1

(R1)
3s

:"'CARRIAGE RETURN'"?
*YES == BRANCH

*YES == BRANCH

(R1).4',

SV COMMA'?

CMPB
BEQ
ggn

(R1).#'.
18
zg.cx.oec

JSR

RS,CK.OCT

*0CTAL ?

ST
ST

(RS)+
(R5)+

:DIGIT BETWEEN 0-7
*PERIOD

(RS) ,RS

*UNKNOWN CHARACTER

28:
3s:

#ADR,R1

(R§)+

ST
ST
INC

(RS)+
(RS)+
R1

RTS

MOV

**PERIOD'"?
:YES == BRANCH
:;‘BIGIT"? &
:DIGIT BETWEEN 8-9

:C
*CARRIAGE RETURN
:MOVE POINTER TO NEXT CHARACTER
*RETURN

sTHIS ROUTINE CHECKS AN A SCI1 STRING FOR LEGAL

.:E:thCTERS AND FORMS A DECIMAL
VALUE BINARY NUMBER IN R2.
C

Mov

#ADR,R1

sADDRESS OF ASCIZ STRING

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 20-2

SEQ 0132

END OF PASS

LIATATA
TR

B8888E88588
-.-‘-‘-‘-‘-‘-‘-‘-‘-‘::
FNNIGRBRRNSER

(K.DIG:

030072

R4 ,=(SP)

R3.=-(SP)
R2.=(5P)

hod

—

;SAVE Ré

SAVE R3

SAVE THE MAX. SIZE ON THE STACK

R2
R3

SIART WITH 0

R5,CK.CHR

sCHECK ONE CHARACTER
s ILLEGAL CHARACTER

: CARRIAGE RETURN

..‘Ol

:DiGIT 0-7

030174

#4 RS

R3
R3.-(SP)

R3’
251
252 030220
0302264
030226
230
030232
234
030236
253 030240

)

HECK DIGITS
'CRTM ONLY ENTERED == R2=0
PERIODTM ONLY ENTERED -- R2=0
:ILLEGAL CHARACTER OR INPUT TOO LARGE == R2=?
;I TRTM == R2 = NUMBER
;1 COMMA"" == R2
= NUMBER
:*PERIOD' == R2 = NUMBER

OO0

IR
VI N SVEIFHRURS

s MAX . MAGNITUDE OF INPUT NUMBER

R3
(SP)+,R3

030072

R2.R3

R5.CK.CHR

D,GI'
'-9 POINTER PAST '‘CR'*
. LA & *'PERIOD'*
L RETURNS
:STEP_RETURN
:INPUT NUMBER +2

SAVE *2
.8

F(2)+(8) = *10

:UPDATE THE INPUT NUMBER
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN
:DIGIT 0-7

(R1)
8$
(R4)+
(R4)+
(RG)+

R3,(SP)
9

DI‘;I'.
'.fi’ LA
.
:DOES A "‘CR'* FOLLOW THE ‘PERIOD"
:BR
IF NOT
*INCREMENT THE RCTURN

*INCREMENT THE RETURN
*INCREMENT THE RETURN

cuecx THE MAGNITUDE OF THE NUMBER
BR IF ENTERED NUMBER TOO LARGE

“BYPASS INCREMENT

*INCREMENT RETURN PAST INVALID RETURN

INCREMENT RE TURN

*SETUP RETURN POINTER

*ENTERED VALUE
:CLEAN MAX. SIZE OFF OF STACK
*RESTORE R3S
*RESTORE Ré%
*GET RETURN ADDRESS
RE TURN

sTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
:UNE{GNED DECIMAL ASCIZ NUMBER.

§£SJ8EO
RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 20-2

SEQ 0133

;

MOV

;

RE TURN

*NOTE:

THE PROGRAM REQUIRES THIS FORM OF °*$SB2D°, NOT THE VERSION ON

$SB2D:

MOV

2;3

281 030302

282 030310
283 030314
284 030320
285 030324
ggg 030326
288

016937

000002

012746 030326
004737 0337 2
012666 000002
000207
000000 000000

030326

ggg

JSR

NUMBER,=(SP)

PC,$582D

:PUT THE NUMBER ON THE STACK
+CALL

*ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

THE SYSMAC LIBRARY, REV C AND LATER
2(sn 1s

:SAVE THE BINARY NUMBER

MOV
SP)
*SET THE POINTER
JSR
pc ioazo
:CALL THE DOUBLE LENGTH CONVERT
MOV
(sfi» 2(SP)
*PICKUP THE POINTER
RTS
*RETURN
18:
.WORD o 0
;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
:taflsneo OCTAL ASCIZ NUMBER.

291
295
223:.

;
:
:

MoV
NUMBER,=(SP)
JSR
PC,$5820
RETURN

295

*NOTE:

THE PROGRAM REQUIRES THIS FORM OF '$SB20°, NOT THE VERSION ON

2239

;

298 030332

016637

000002

302
303

000207
000000

000000

299 030340 012746 030356
300 030344 004737 034126
301 030350 012666 000002
030354
030356

030356

$S820:

18:

;PUT THE NUMBER ON THE STACK

*CALL
*ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

THE SYSMAC LIBRARY, REV C AND LATER

MOV

2(SP) .18

:SAVE THE BINARY NUMBER

RTS
.WORD

PC
0,0

*RETURN

MOV
JSR
MOV

#18,-(SP)
PC,$0820
(SP)+,2(SP)

*SET THE POINTER
*CALL THE DOUBLE LENGTH CONVERT
*PICKUP THE POINTER

(ZRJDEO RPO‘/SI&KT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 21

SEQ 0134

TTY INPUT ROU

.SBTTL

TTY INPUT ROUTINE

S e AR AARAAA

AN RN AAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAOOOOAS

000000

;:NUMBER OF ITEMS IN QUEUE
sINPUT POINTER
s ;OUTPUT POINTER
::TTY KEYBOARD QUEUE

030377

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITI ALIZE THE TTY KEYBOARD INPUT QUEUE
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S#CALL:
I
‘e

37
737
7

777

JSR

RETURN

$TKINT: CLR

030362
030370
364
030450
000200
150506
000100

PC,STKINT

$TKC

sCLEAR COUNT OF ITEMS IN QUEUE

mxosm $TKQIN

..MVE THE STARTING ADDRESS OF THE

#200,a#TKVEC
+2

i "BR'* LEVEL 4

0100 a$TKS

..ENABLE TTY KEYBOARD INTERRUPT
sRETURN TO CALLER

$TKQIN, $TkQOUT :;QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRV, 3#TKVEC ..INITIAUZE THE KEYBOARD VECTOR

asTkB

:CLEAR DONE FLAG

s*TK SERVICE ROUTINE

s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;«IT IN THE QUEUE.

;«IF THE CHARACTER IS A ''CONTROL=-C'* (“C) STKINT IS CALLED AND
:*UPON RETURN EXIT IS MADE TO THE ''CONTROL=C'' RESTART ADDRESS (CTRAP)

$TKSRV: MovB

O
NON
-—OonN

:rn

BIC
cMP
BNE
ST

:
308

000003

030504

004737

RTI

031605
030400

as$TKB,~(SP)

#4C177,(SP)

(SP),#$XON

308

:;PICKUP THE CHARACTER
::STRIP THE JUNK
::1S IT A RANDOM XON?

: ;BRANCH IF NO

(SP)
+

..CLEAN RANDOM XON OFF STACK

(SP) .43
18
SCNTLC

..IS IT A CONTROL C?

fic smm

ETURN

s :BRANCH IF NO

sTYPE A CONTROL-C (*C)

..INIT THE KEYBOARD

000176

001140

#SWREG, SWR

::CLEAN UP STACK
s sCONTROL C RESTART
..IS IT A CONTROL G?
s s BRANCH IF NO
::1S SOFT-SWR SELECTED?
::60 TO SWR CHANGE

000007

030362

#7,STKCNT

..IS THE OUEUE FULL?

031646
000007

001160

1$:

CMP

C RAP

(SP) .47
2%

3s
.SBELL

sBRANCH IF

:RING THE TTV BELL

F1N
CZRJDEO RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 21-1

SEQ 0135

TTY INPUT ROUTINE

030550

00572?
0004
021627

0%8560 0018;1 000023
150356

38:

150350

318:

030556

150344
177600
000021
000100

150322

030362
328:
000140
000175
000040
177510
48:
030364
030364 030377
030370 030364
58:

;'S‘T

gSP)*

..CLEM CHARACTER OFF OF STACK

CMP
BNE
CLR
ST

(SP) 423
328

..xs n A CONTROL=S?
::BRANCH
IF NO

asrxs

(SP)+

*:DISABLE TTY xevaom INTERRUPTS

BPL
MOVB
BIC
gré

x9 -(SP)
#4177, (SP)
fimo#21

..cLEAN CHAR OFF STA
WAIT FOR A CHAR
..I.OOP UNTIL ITS THERE
:GET THE CHARACTER
SMAKE IT 7-BIT ASCII
3:1S xzAlco%m-m

#100,38TKS

..ggswme TTY KEYBOARD INTERRUPTS

INC
CMP
BLT
CMP
BGT
BIC
MOVB
INC
CMP
BNE
MOV

STKCNT
..coum THIS CHARACTER
(SP) ,#140
:IS IT UPPER CASE?
A3
..eamcn IF YES
(SP) ,M175
:IS IT A SPECIAL CHAR?
43
..snmcu IF YES
#40, (SP)
MAKE IT UPPER CASE
(sp5+.asrxoxn ..mo PUT IT IN QUEUE
$TK
:UPDATE THE POINTER
srmn #$TKQEND ..so OFF THE END?
5,
: :BRANCH
IF NO
#STKQSRT,$TKQIN ::RESET THE POINTER

1ST8

asrxs

RTI

s sRETURN

e ARAARR AR A AN

AAAA AN AN NAAARNARAAARAARRARARRAAARAAAARAARAANNR

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

:*ROUTINE IS ENTERED

FROM THE TRAP HANDLER, AND WILL

:SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP

000176

001140

150230

MOVB

177600

001300

BNE
TST8

BPL

150224

030732

:*CALL WEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR:

BIC

000007

CMP
BNE

#SWREG, SWR
158
asrxs

xg -(SP)

m ?.(sP)

(SP) .47
2s

s:1S THE SOFT-SWR SELECTED

s sEXIT IF NOT
::IS A CHAR WAITING?

::1F NOT, EXIT
YES

SMAKE IT

7-BIT ASCII

..xs IT A CONTROL=G?
}wo ug;l PUT IT IN THE TTY QUEUE

AR ARRAAAAARAAAARRARANAA
A AR RANAANANRANANAARANAAANNRRARAARAAAAARANSY

'coumou. IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL.
AS A RESULT OF A

001134
005
7

150166

030764
030770
030774
031000

104401
104401
013746
104402

031617
031624

112737

000176

:«CONTROL-6 BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
&$:
(MPB
SAUTOB,#1
::ARE WE RUNNING
IN AUTO-MODE?
BEQ

..BRANCH IF _YES

JSR

PC,STKINT

;sFLUSH THE TTY INPUT QUEUE

TST

030752

030756

000001

001135

CLR

MOvB
TYPE
$GTSWR: TYPE
MO v

TYPOC

(SP) +

asfks

::CLEAR CONTROL-G OFF STACK

sDISABLE TTY KEYBOARD INTERRUPTS

#1,$INTAG

::SET INTERRUPT MODE INDICATOR

.SCNTLG
. SMSWR

:;ECHO THE CONTROL-G (°G)
sTYPE CURRENT CONTENTS

SWREG,=(SP)

..SAVE SWREG FOR TYPEOUT

::60 TYPE=--OCTAL ASCII(ALL DIGITS)

SEQ 0136

TTY INPUT ROUTINE

031002

104401

031010
031012

005049
105777

150126

031026

042716

177600

031030
031034
031036
031042
031046
031054
031056
031

021627
001015
104401
oggroe
123727
001003
012777
000137

000003

ogwoe 005046

031635

198:
78:

031016 100375
031020 117746 150122

001135

000001

000100 150060
031646
8s:
98:

031102

104401
062706

031612

000006

20$:

031110

021627

000015

108:

031116
031122

005766
001403

000004

031132
031136

062706
104401

000006
001165

031106 000737

031114 001022

031126 016677 000002 150006

031142

123727

001135

031150 001003
031152 012777 000100

031160 ooooo;

031162

004737

031172

002420

031200
031202
031%06
031212
031214
031216
031220
031222
ostzga

003015
042726
005766
001403
316
006316
006316
005266
056616

031234

104401

032740

031166 021627 000060

000001

147764

118:
148:

15$:
168:

031174 021627 000067

031232 000667
031240

000720

CLR
TSTB

-(SP)
as$TKS

000002
177776

178:

001164

188:

SRR

+:CLEAR COUNTER
*:THE NEW SWR
:3CHAR THERE?

78
amg -(SP)

CMP
BNE

(SP) 43
98

ADD
C(MPB
BNE
MOV
JMP

#6,5P
SINTAG.#1
8s
#100,a8TKS
CTRAP

::1S IT A CONTROL=C?
:SBRANCH IF NOT
*3YES, ECHO CONTROL=C (*C)
::CLEAN UP STACK
*:REENABLE TTY KEYBOARD INTERRUPTS?
*:BRANCH IF NO
*3ALLOW TTY KEYBOARD INTERRUPTS
+:CONTROL=C RESTART

cMP
BNE

(SP) ,#25
108

::1S IT A CONTROL=U?
::BRANCH IF NOT

TYPE
ADD

(TM

BNE

#4C177,(SP)
,SCNTLC

,SCNTLU
#6,SP

::IF NOT TRY AGAIN
::PICK UP CHAR

SIMAKE IT 7-BIT ASCII

*3YES, ECHO CONTROL-U (*U)

:IGNORE PREVIOUS INPUT

19§

S:LET'S TRY IT AGAIN

(SP) . #15

168

;218 IT A <CR>?

$:BRANCH IF NO

ST
BEQ

4(SP)
118

ADD
TYPE

#6,SP
SCRLF

:3CLEAR UP STACK
S3ECHO <CR> AND <LF>

BNE
MOV

158
#100,a87KS

::BRANCH IF NOT
*SRE-ENABLE TTY KBD INTERRUPTS

JSR

PC,STYPEC

$3ECHO CHAR

BLT

188

BGT
BIC
ST
BEQ
ASL
ASL
ASL
INC
BIS

188
#60, (SP)+
2(SP)
1
(SP)
(SP)
(SP)
2(SP)
=2(SP), (SP)

TYPE

$QUES

MOV

(MP8

RTI

CMP

000060
000002

:;PROMPT FOR NEW SWR

<(SP)

8PL
MOVB

TYPE

031070 021627 000025
031074 001005
031076

., SMNEW

CLR

BIC

031605

000006

TYPE

B8R

f“sa

2(SP) ,asWR
$INTAG.M

(SP) ,#60

(SP) ,#67

208

AR R AN A ARAAAA AR

S3YES, IS IT THE FIRST CHAR?
$SBRANCH IF YES

$3SAVE NEW SWR

:SRE-ENABLE TTY KBD INTERRUPTS?

* SRETURN

::CHAR < 0?
$SBRANCH

IF YES

SICHAR > 72

::BRANCH IF YES
::STRIP-OFF ASCII
231IS THIS THE FIRST CHAR
*:BRANCH IF YES
SN0, SHIFT FRESENT
::
CHAR OVER TO MAKE
::
ROOM FOR NEW ONE.
*:KEEP COUNT OF CHAR
S:SET IN NEW CHAR

+:GET THE NEXT ONE
SSTYPE 2<CRO<LF>

*:SIMULATE CONTROL=-U
RN RARARAANANAAAAAANAARAAAACAAAARAARRRRRES

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 21-3

SEQ 0137

TTY INPUT ROUTINE

'THE ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

;eC

RDCHR

v
i
031242

011646

031252
031256

005066
005046

031244 016666 000004 000002

RETURN HERE

SRDCHR: MOV

031%60 012746
8%%22‘6 00000

031266

031266
031272
03127«

005737
001775
005337

030362
030362

031

005237

030366

..PUSH DOWN THE PC AND

CLR
CLR

4(SP)
-(SP)

..cer READY FOR A CHARACTER
:PUT NEW PS ON STACK

ST
BEQ
DEC

STKCNT
1s

::WAIT ON A CHARACTER

;:GET ONE CHARACTER

MOV
RTI

18:

::CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)

MOV

000004

::GET A CHARACTER FROM THE QUEUE

uspS 2(sP)

ms =(SP)

::THE PS

2ZPUT NEW PC ON _STACK
$:POP NEW PC AND PS

: :DECREMENT THE COUNTER

031300 117766 177062 000004

MOVB

asrxoom 4(SP)

8%335

023727

030366

030377

Sfi

gxoourmxosnomcnlso
OFF OF THE END?

031322
31330

012737
000002

030370

030366

INC

MOV
RTI

28:

$TKQOUT

:UPDATE THE POINTER

#$TKQSRT, STKOOUT ;RESET THE POINTER
..kemm

tttttttttttttt.tttttt'tttttttt.ttttttttt.ttttt.t.tttttttttt!.l'

tgm{f ROUTINE WILL INPUT A STRING FROM THE TTY
it

o
:®
i

031332
031334

010346
005046

1$:
28:

000177

08:

031

031362

112613
122713

001022

031366
031376

112737
104401

000134

031564

031400 o1§m 177777
031406 005303
031406 ozosgz 031566
031412

1034

031420

104401

031416

111337

031426 000746

031452

oou.og
11273
104401
oosmg
122713

031564

001003

000025

031564
78:

#STTYIN.R3
#STTYIN#15.,R3
4$

(SP)+,(R3)
#177,(R3)

(SP)

BNE

TYPE

.98

#°\,9%

J2INPUT A STRING FROM THE TTY
2:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0'S

; ;SAVE R3
sCLEAR THE RUBOUT KEY

..eer ADDRESS
::BUFFER FULL?
::BR I YES

2360 READ ONE CHARACTER FROM THE TTY
+3GET CHARACTER
:1S IT A RUBOUT

..an IF NO

*:1S THIS THE FIRST RUBOUT?

$:BR IF NO

STYPE A BACK SLASH

MOV
DEC
CMP

#-1,(SP)
R3
R3.ASTTYIN

:;SET THE RUBOUT KEY
*BACKUP BY ONE
..sncx EMPTY?

MOVB

(R3),9%

..ssmr TO TYPEOUT THE DELETED CHAR.

::G0 READ ANOTHER CHAR.

BEQ
MOVB
TYPE
CLR
(MPB

78
#'\,9%
.98
(sP)
#25,(R3)

::BR IF NO
S:TYPE A BACK SLASH

TYPE

c$:

R3,-(SP)
SP)

MOVB
C(MPB

BLO

031564

136
031564

BLOS

MOVB

68:

osugg 005716
0314
031432
031440
031444
031446

MOV
CMP

RDCHR

005716

031364 001007

RDLIN
RETURN HERE

SRDLIN: MOV
CLR

031336 012703 031566
031342 022703 031605
031346 101456
031350 104410
031352
031356

BNE

(SP)

::BR IF YES
160 TYPE

..nuaour KEY SET?

::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?

::BR IF NO

CZRJDEO RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 21~g

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 21-1

SEQ 0138

&
2%

® SNSRE

—d

SNoRe8-. 228

N
V=N
~ & W~
nNO(N =
OO =W W—

—_—

D et

FEFNaRoR

0;1656
031460
0;1662
0 1468
03147
031472
03147
031502
0315
031

RSREISNS
O:
~N &H

T Y INPUT ROUTINE

031612

{§CNTLU

000022

8s:

001165
031566

STTYIN

001164

A ¥

3s:

177777
001166

$QUES

(R3),9%

9%
l;S.(RS)o

000004
031566

O00

[« JVNIV
IV IV ]

ownororon

— ) =

2°-o-o-o

SMSWR :
SMNEW:

J3TYPE A '?°

ssCLEAR THE BUFFER AND LOOP
ssECHO THE CHARACTER
::CHECK FOR RETURN
:sLOOP IF NOT RETURN

:sCLEAR RETURN (THE 15)

(SP) ,=(SP)

:sADJUST THE STACK AND PUT ADDRESS OF THE
]
FIRST ASCII CHARACTER ON IT

#STTYIN,4(SP)

$TTYIN:
$CNTLC:
SCNTLU:
$CNTLG:

=1(R3)
+SLF
(SP)+

4(SPS ,2(SP)

000002
000004

BRANCH IF

s;CLEAR THE CHARACTER
ssTYPE A "CR & 'LF"
ssTYPE THE INPUT STRING
2360 PICKUP ANOTHER CHACTER

s:TYPE A LINE FEED
s sCLEAN RUBOUT KEY FROM THE STACK

: sRESTORE R3

s RETURN

s cSTORAGE FOR ASCII CHAR. TO TYPE
0
¢ : TERMINATOR
15.
15, BYTES FOR TTY INPUT
s.e;RESERVE
IROL “c‘
/7°C/7<15><12>
s CON
/7*U/<15><12>
:2CONTROL 'V
/7°6/<15><12>
:sCONTROL ''G"'
<15><12>/SWR = /
/

NEW =/

NSNUJNHW
NONWNNNNYN

perd

g2ges=2
NSRS

(V.

3SSITERS

sTHIS ROUTINE WILL PROCESS THE (“C) CHARACTER
[elelelelelelel=]
W
NN NN NN

—
— —

(SP)+,R3

9s:

N=0VRB~NONWVISSWN

#22,(R3)
33
(R3)
+SCRLF

s:TYPE A CONTROL ‘V"'

::60 START OVER
s:18 CHARAETER A ""“R'?

001262

CTRAP:

176476

030364
030364

030377

030370

030364

#1,.CFLAG
STKCNT
#15,38TKQIN
$TKQIN
?;KOIN.#‘TKOEND

sSET THE °'CONTROL C' FLAG
sCOUNT THIS CHARACTER

#STKQSRT ,STKQIN

*RESET THE POINTER

sPUT 'RETURN' CHARACTER IN QUEUE
sUPDATE THE POINTER
:GO OFF THE END ?
;BR IF YES

RETURN

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 22
ERROR HANDLER ROUTINE
1

.SBTTL

SEQ 0139

ERROR HANDLER ROUTINE

SRR RARAARAAAAARAARARAACERRRANAARAAAANAAAAAAAAAAAAAANAAAOA
AR ONS

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

;*AND GO TO SERRTYP ON ERROR
'THE SWITCH OPTIONS
S:O\Ellbgz B8Y THIS ROUTINE ARE:

:SW15=1

HALT

#SW13=1
-gxlf%

i*
031712
031716
031720
031724

105037
104407
010337
010137

031736
031740

001002
004737

031750
031752

001775
013777

031766

001402

031774
032000

005237
011637

032012

117737

031730 032777

031744

031760
031770

32006

105237

032777

032246
001244
001242

020000

147202

023752

001103
001102

002000

104401

001160

162737

000002

001112
001116

147162

147152

001116

122737

000177

001114

105737
001047

032246

177777

032244

032056
32

013746
012737

000004
032100

000004

032100

012737

177777

032244

03211
032114

ooooo;
012637

000004

032120

022737

032020
032026

032777
001060

032036

001454

32046
032054

022737
001445

032030

032040
032044

8%%8;2

01 73;

001000

177766

03 103 012716 032114

032126
032130

032136

032140
032146

032154

001420
032737

177777

032244

000001

032244

042737

000001

177766

112737

000177

001414

113737

032162

000402

032164

105037

001114

032246

IBSAVE
R3,ATTN
R1.DRIVE

;;CLEAR THE ITEM BYTE SAVE LOCATION
*TEST FOR CHANGE IN SOFT-SWR
*SAVE THE ATTENTICN REGISTER CONTENTS
*DRIVE NUMBER

+6
PC,STIME

*BR IF YES
STYPE THE TIME

INCB

sefirLs

BEQ
MOV

*INHIBIT PRINTOUTS ?

..ser THE ERROR FLAG

*DON'T LET THE FLAG GO TO ZERO
srsrnn aDISPLAY --DISPLAY TEST NUMBER AND ERROR FLAG

BIT

#BIT10.aSWR

:BELL ON ERROR?

TYPE

SBELL

..nxne BELL

INC
MOV

$ERTTL
(s>.SERRPC

SUB

#2,SERSPC

BIT
BNE

#81T09,3SwR
1004$

$:NO
= SKIP

*COUNT rus NUMBER OF ERRORS
*:GET ADDRESS OF ERROR INSTRUCTION

@SERRPC,SITEMB

;:STRIP AND SAVE THE ERROR ITEM CODE

(MPB

#177,SITEMB

..oEE IF THIS IS THE POWER FAIL CALL

TSTB
BNE

IBSAVE
1003$

..ses IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
::BRANCH IF SO

ERRVEC,=(SP)
#10008.ERRVEC

..SAVE CONTENTS OF ERROR VECTOR
::SETUP 'TRAP' RETURN ADDRESS

BEQ

1004$

::SEE IF LOOP ON ERROR IS SET
: BRANCH AROUND ROUTINE IF SO

: BRANCH AROUND ROUTINE IF IT IS

CMP
BEQ

#-1,CPSAVE
1004$

sgv

}55;36LCPSAVE

::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

MOV
MOV

032244

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

#SU13,aSWR

BNE
JSR

MOVB

147112

BIT

3€Q

1$:
001114

ERROR

$ERROR: CLRB
CKSWR
MOV
MOV

78:

147100

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

..ses IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
: :BRANCH IF SO

10008:

MOV

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR

1001$:

RTI
MOV

010613 (SP)
(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

#-1,CPSAVE

;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

1002$:

MOV

CMP

BEQ
BIT

1004$
#81T00, CPSAVE

BIC

#81T00,177766

BEQ

032246

MOVB

001114

MOVB

1003$:

1004$

sxr;ns
IBSAVE

100

CLRB

IBSAVE

*:SETUP RETURN ADDRESS

*BRANCH IF SO
..sse IF POWER MONITOR BIT IS SET IN CPU ERR REG
::BRANCH IF OK

..CLEAR THE BIT FOUND SET

::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

2ISET SITEMB TO SPECIAL POWER FAIL POINTER
::BRANCH OVER IBSAVE CLEARING

::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS

~
~
~

—

OoOWw

032250
001165

146742

10048:

BIT

#8I1T13,3SWR

BNE

208

PC,SERRTYP
+SCRLF

032246

2$:

TSTB

iBSAVE

0057
100002

146716

TST

aSWR

~Swnwe~N

-~y

JSR
TYPE

208

83 238S

020000

238508

W
W
NN A NN N
N

K11
CZRJDEO RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV=81 09:16:17 PAGE 22-1
ERROR HANDLER ROUTINE

BPL
3

000042

BNE

000046

HALT

CKSWR

CMP
BNE

G2, ans6
YA

.WORD

0
O

HALT
RTI
CPSAVE: «WORD

IBSAVE:

SEQ@ 0140

::SKIP TYPEOUT IF SET
:sSKIP TYPEOUTS
::6G0 TO USER ERROR ROUTINE

ssSEE IF IBSAVE IS LOADED
:sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
ssHALT ON ERROR
:sSKIP IF CONTINUE
ssHALT ON ERROR!
ssTEST FOR CHANGE IN SOFT-SWR
sARE WE IN ACT=11 AUTO MODE?
sBRANCH IF NOT
sHALT ON ERROR IF ACT AUTO MODE
sRETURN

::LOCATION TO SAVE CPU ERROR REG CONTENTS
::LOCATION TO SAVE ITEM BYTE

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 23
ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

SEQ 0141

ERROR MESSAGE TYPEOUT ROUTINE

SRRRRRAA AR AN A ARARARAATEAAAAAAAAAAAAAAAAAAARAAAAAAAAAAARAAOOOOOS

tTHlS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH

:*ERROR IS 70 BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'' (SERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

032250

SERRTYP:

001165

001114

TYPE
MOV
CLR

001116

$ERRPC,=(SP)

000177
001102
032426

.SCRLF

RO,=(SP)
RO
aNSITEMB,RO

18:

CMPB

032566

6$
#177.R0

DEC

001165
032362

001165

1001$:

MoV
8

2$:

.WORD

3s:

MOV

4$:

.WORD

5%:

MOV

6$:

MOV

032422

040

000

032426
032436
032520

032520
117
105

032552
157
123

PFECH2:

032552

001116

032244

PFECH3:

8s:
PFECH:

LASCIZ

: :GET TEST NUMBER

::BRANCH TO CALL ERROR
:;ADJUST THE INDEX SO THAT IT WILL
]
WORK FOR THE ERROR TABLE

#SERRTB,

::FORM TABLE POINTER

§n )+ Si

0
+SCRLF
(RO)+,48
5%

:sMOVE POWER FAIL ERROR CALL TABLE TO RO

::PICKUP "ERROR MESSAGE'' POINTER
::SKIP TYPEQUT IF NO POINTER
::TYPE THE "ERROR MESSAGE''
;i ERROR MESSAGE. POINTER GOES ERE
::"'CARRIAGE RETURN'' § 'LINE FEED'
::PICKUP "DATA HEADER'* POINTER
::SKIP TYPEOUT IF 0

:3TYPE THE "DATA HEADER'*
3.
DATA HEADERTM POINTER GOES HERE

0
.SCRLF

ii CARRIAGE RETURNTM & 'LINE FEEDTM

(RO) ,RO

PICKUP *DATA TABLETM*
..GO TYPE THE DATA
STORE RO

78
(SP)+,RO

POINTER

LSCRLF

..'TARRIAGE RETURN'' & 'LINE FEED'’

a(R0)+,~(SP)

::SAVE @(RO)+ FOR TYPEOUT
::60 TYPE=--OCTAL ASCII(ALL DIGITS)
..IS THERE ANOTHER NUMBER?

:RETURN

(RO)

032422

s ;BRANCH IF NOT

#PFECH.RO
1001$
RO
RO
RO

7$:

s:IF _ITEM NUMBER IS ZERO, JUST
s:TYPE THE PC OF THE ERROR
::SAVE SERRPC FOR TYPEOUT
s ;ERROR _ADDRESS
..GO TYPE=-OCTAL ASCII(ALL DIGITS)

..SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL

1000$

004026
032344

::PICKUP THE ITEM INDEX

:GET OUT

STSTNM_PFTSTN

10008:

:.;EegkleGE RETURN'' & "LINE FEED"

63
s

:BR_IF NO
::TYPE TWO(2) SPACES

:LOOP

::TWO(2) SPACES

.EVEN
PFECH1 ,PFECH2 PFECH3,PFECH4 ;;WORDS DEFINING TABLES BELOW

PFECH1: .ASCIZ2’ 2POWER MONITOR BIT IN'CPU ERROR REGISTER FOUND SET?
.ASCIZ
-EVEN
.WORD

?TESTNO

ERR PC

CPUERREG?

PFTSTN,SERRPC,CPSAVE,0

|
SEQ 0142

ERROR MESSAGE TYPEOUT ROU

032562
032566

000
000000

000

PFECH4: .BYTE
PFTSTN: .WORD

0,0,0.0
0

s ;CONTAINS TEST NUMBER FOR PF BIT ERROR

LR
CZRJDEO RP0O4/5/6 MLT=DR L (TSENEHACRO v04.00 5-NOV-81 09:16:17 PAGE 23-1

SEQ 0143

TYPE ROUTINE

.SBTTL

TYPE ROUTINE

SRARRRARRRRAAAAAAAAAR
AN AN RAAAANAAARAAANAAAAAEAARAAAA AR
Y

tROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:*THE_ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
tNOTE1
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
tNOTE
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
-nore

$SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

c LL:

tl) USING A TRAP INSTRUCYION
OR

TYPE

,MESADR

:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

‘u

105737
100002
000000
000407
010046

032610
032612
032614
032616
032620
032624
032626
032632
32634
032640
032642
032644
032646
32650
032654
032656
032662
032666
032670

112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001165
105037
000755
004737
123726
001350
013746

032674
032700
032702
032706
032712

105366
002770
004737
105337
000770

032604

017600

001157

MESADR

$STYPE:

TSTB
BPL
HALT
BR
MOV

1%:

000002

-2%:

000002

608:
38:

000011

A ¥

000200

033056

032740
001156

58:

6$:

001154
000001

TYPE

.*
;t

032570
032574
032576
032600
032602

78:

032740
033056

MOV

$TPFLG
18
3s
RO,=(SP)

az<sp) RO

(RO)+, -(SP)
(S
(SP)+
(SP)+,R0
#2,(SP)

..IS THERE A TERMINAL?
::BR IF YES
..HALT HERE IF NO TERMINAL
+SLEAVE
SAVE RO

..GET ADDRESS OF ASCIZ STRING

MOVB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
ST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV

$CHARCNT
2%
PC.STYPEC
SFILLC,(SP)+
2$
$NULL ,=(SP)

::CLEAR CHARACTER COUNT
22GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
..xs IT TIME FOR FILLER CHARS
.?
:IF NO GO GET NEXT CHAR.
..GET
gugr FILLEzAgHARS. NEEDED

DECB
BLT
JSR
DECB
BR

1(SP)
63
PC.STYPEC
$CHARCNT
78

..ooes A NULL NEED TO BE TYPED?
2:BR IF NO=-=-GO POP THE NULL OFF OF STACK
2360 TYPE A NULL
+:D0 NOT COUNT AS A COUNT
::LOOP

#HT, (SP)
83
#CRLF, (SP)
3
(SP)+

..PUSH CHARACTER TO BE TYPED ONTO STACK
*BR IF IT ISN'T THE TERMINATOR
..IF TERMINATOR POP IT OFF THE STACK
:SRESTORE
RO
::ADJUST RETURN PC
*SRETURN
22BRANCH IF <HT>
2 2BRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
22TYPE A CR AND LF

;HORIZONTAL TAB PROCESSOR

032714

112716

032720
032724

004737
132737

032734
36

005726
000724

032732 001372

000040

032740
000007

8s:

033056

9s:

MOVB

(SP)

JSR
exra

PC $TYPEC
#7.$CHARCNT

TST
BR

(SP)+
2%

BNE

98’

..REPLACE TAB WITH SPACE

S:TYPEA SPACE
..BRANCH xr NOT AT

*TAB STO

..POP SPACE OFF STACK
2:GET NEXT CHARACTER

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 24

CZRJDEO
RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 26-’
TYPE ROUTINE
an i=l=lelelelelelelelelelel1"]
wuwwuwugw
38
~

740
740

744

$STYPEC:

146200

87KS
108
a$TKB, = (SP)

146174

179

#177600, (sP)

oNO

00002

#SXOFF
, (SP)
1028

1018:

146154

asTKS
101$
asTKB, (SP)

146150
177600
102%:

108:

146132

00000%
000015

146124
000002

000002

1$:

CMPB

INCB
$CHARCNT
: .WORD
S$TYPEX: RTS

;:CHAR IN KYBD BUFFER?
::BR _IF NOT
s;GET CHAR
::STRIP EXTRANEOUS BITS
;;WAS CHAR XOFF
;:BR IF NOT

;:WAIT FOR CHAR

#SXON, (SP)

101$

(SP)+

ssFIX STACK

asTPS
108
2(SP) ,asTPB
1§R.2(SP)

ssWAIT UNTIL PRINTER IS READY

033056
000012

SEQ 0144

::GET CHAR
:STRIP IT
s:WAS IT XON?
;:BR IF NOT

#177600, (SP)

000021

#LF,2(SP)

STYPEX
(PC)+

::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO
s YES==CLEAR CHARACTER COUNT
JIEXIT
221S CHARACTER A LINE FEED?
:sBRANCH IF YES
s:COUNT THE CHARACTER
2 sCHARACTER COUNT STORAGE

c 12

SEQ@ 0145

BINARY TO OCTAL (ASCII) AND TYPE

.SBTTL
IR

BINARY TO OCTAL (ASCII) AND TYPE
AR

NN RN RN

R RN

R AR RN RN

C AR R AN

RANR AP RA RN

'THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE IT.
[l

%8> '...

8083808
% % %0,

'SH:OS"'ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
MOV
TYPOS
.BYTE
.BYTE

NUM,-(SP)
N
M

: :NUMBER TO BE TYPED
..CM.L FOR TYPEOUT

s:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
:iM=1 OR 0
1=TYPE LEADING ZEROS

..O-SlPPRESS LEADING ZEROS

'STVPM---°ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

;*$TYPOS OR STYPOC

s#CALL:

1T
i

MoV

TYPON

NUM, = (SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

"%Ilpoc---snren HERE FOR TYPEOUT OF A 16 BIT NUMBER
000000
000001
033307
000002
000001
000006
000005

— e

S OOO

bbb

o
&H SRS
ICER
o
o NNN&O NN

i
e

2S
g

5404

033305

033305
033307
033304

NUM, = (SP)

: :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

$TYPOS: MOV
Movs
MovBs
ADD

a(SP) ,=(SP)
1(SP) ,SOFILL
(SP)+,S0MODE+1
#2,(SP)

::PICKUP THE MODE
::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::ADJUST RETURN ADDRESS

STYPOC: MOVEB
MOVB
STYPON: MOVB
MOV
MOV

#1,80FILL
#6.SOMODE
+1
#5.$SOCNT
R3.=(SP)
R&,~(SP)

::SET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
2:SET THE ITERATION COUNT
::SAVE R3
+:SAVE Ré&

:gza

sonooso1 R4

::GET THE NUMBER OF DIGITS TO TYPE

B8R

MOV

033307
000006
033306

ADD
MOVB

MOVB
MOV

033305
000012

18:

2s:

033306

MoV
TYPOC

38:

177770

CLR
ROL

48:

RS.=(SP)

cs.n4
R&.SOMODE

SOFILL.R4
1§(sp>‘RS

BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE

ss
RS
RS
RS
R5.R3
R3
$OMODE
78
#177770.R3
4

BEQ

033224

$TYPON

INC

::SAVE
RS

::SUBTRACT IT FOR MAX. ALLOWED
*:SAVE IT FOR USE

+:GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER

::CLEAR THE OUTPUT WORD
; ROTATE MSB INTO *°C

:G0 DO MSB
*:FORM THIS DIGIT

::GET LSB OF THIS DIGIT
;3 TYPE THIS DIGIT?
::BR IF NO
..ser axo OF JUNK
STEST FOR 0

..suppnsss THIS 0?

::DON'T SUPPRESS ANYMORE 0°'S

:BR IF YES

VY
an )

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 25

—

012
CZRJDEO RPOlo/Slb MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 25-1
BINARY T
AL (ASCII) AND TYPE
0
0

052703
0527

000060
g«o

0
1103
og
033242 104401 gso
03 243 1053‘7 304

033252
03325¢
oggggg

0
033262
033264
033268
03327
033276
033300
ossso;
03330
033304
033305
033306

003347
002402
;oa

58:

78:

BIS
BIS

MOVB
TYPE
DECB
BGT
BLT
INC

44
B8R
012605
68:
MOV
012604
MOV
012603
MOV
000002 000004
MOV
012616
MOV
2
RTI
8s:
BYTE
000
BYTE
000
$SOCNT: .BYTE
000
$SOFILL: .BYTE
000000

$SOMODE: .WORD

ro n

63
i
£ocm
68
R4

2
(SP)+.RS
(SP)+ Ré&
(SP)+.R3
2(SP).4 (SP)
(SP)+. (SP)
0

0
0
0
0

SEQ 0146

..MKE THIS DIGIT ASCII
; s MAKE SCII IF NOT ALREADY

::SAVEFOR TYPING

::60 TYPE n;xs DIGIT
s COUNT BY

..BR IF MORE TO DO
IF ) _DONE
..lNSlRE LAST DIGIT ISN'T A BLANK

;560 DO THE LAST DIGIT
: sRESTORE RS

; RESTORE Ré&

ssRESTORE R3
ssSET THE STACK FOR RETURNING
s sRETURN
:STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
ssOCTAL DIGIT COUNTER
ssZERO FILL SWITCH
: sNUMBER OF DIGITS TO TYPE

CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 26

E 12

SEQ 0147

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SRR RRRARARAAAAAAANERCR
A AN AANAAAAAAAARAANNANNAANARNAAAAAAOOONS

'THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-01611
:SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED

:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
; 'g;ftACED WITH SPACES.

v
e

033310

033310
033312
033314
33316
033320
0353322
033326

010046
010146
010246
010346
010546
012746 020200
016605 000020

033334

005405

33344

005000

033332

$TYPDS:

100004

033346 012703 033524
033356

112723

005002

000040

002402
005202

033374
033376

060105
005702

033402

105716

033406

106316

18:
28:

033360 016001 033514
033364 160105
033366
033370

38:

033372 000774

48:

033400 001002
033406

033410 103003
033412 116663 000001
052702
052702

033432

005720

033440
3

002746

033450

10572

033456

116663

033464
033466
033470
033472

012605
012603
012602
012601

033430

11022

000060
000040

58:

177777

68:
78:

033436 020027 000010

033462

10000

105013

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
R2.=(SP)
R3.=(SP)
RS .=(SP)
#20200,-(SP)
20(SP) .RS

::PUSH RO ON STACK
::PUSH R1 ON STACK
:iPUSH R2 ON STACK
:PUSH R3 ON STACK
*PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
:GET THE INPUT NUMBER

NEG

CLR

MOVB

#' ,(RS)+

MOVB

MOV
CLR

MOV
SUB
BLT
INC

B8R

8s:

177777

177776

98:

::G0 TO THE ROUTINE

::BR IF_INPUT IS POS.

MAKE THE BINARY NUMBER POS.

"=, 1(SP)

IMAKE THE ASC1] NUMBER NEG.

#SDBLK ,R3

*:SETUP THE OUTPUT POINTER

*3CLEAR THE BCD NUMBER

$DTBL(RO),R1
R1.RS
4
R2

::2ERO THE CONSTANTS INDEX

2:SET THE FIRST CHARACTER TO A BLANK

::GET THE CONSTANT
*:FORM THIS BCD DIGIT

$:BR IF DONE
*:INCREASE THE BCD DIGIT BY 1

ADD
ST

R1.RS
R2

::ADD BACK THE CONSTANT
..cuscx IF BCD DIGIT=0

ISTB

(SP)

..snu DOING LEADING 0°S?

(SP)

: ;MSD?

BMI

BCC
MOVE

6%
1(sp> =1(R3)

ASLB

BIS
BIS

#'0,R2
. .ng

(RO)+

MOVB

R2,(R3)+

FALL THROUGH IF 0

*:BR

IF YES

::BR IF NO
::YES==SET THE SIGN

+:MAKE THE BCD DIGIT ASCII
::MAKE IT A SPACE IF NOT ALREADY A DIGIT

::PUT THIS CHARACTER IN THE OUTPUT BUFFER

::JUST INCREMENTING

CMP

RO, #10

*:CHECK THE TABLE INDEX

MOV
B8R

RS.R2
6%

ms so
..co cmwss ASCII

BPL

CLRB

(R3)

BLT
BGT

033444 010502
033446 000764
033452

::PUT THE BINARY NUMBER ON THE STACK

BNE

100407

033420
033424

NUM, = (SP)

TYPDS

BPL

033336 112766 000055 000001
033352

MOV

ISTB

MOVB

MOV
MOV
MOV
MOV

2
£

(SP)+

::60 DO me nexr DIGIT
..GO T0

:1WAS THE LSD THE FIRST NON-ZERO?

::BR IF NO

=1(SP),=2(R3)

::YES==SET THE sxcn FOR TYPING

(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1

$:POP STACK INTO a
*:POP STACK INTO R
$:POP STACK INTO R2
$:POP STACK INTO R1

$:SET THE TERMINA

F 12

(nlnl

ZRJDEO RP04/5/6 MLT=DR LGC MACRO vo:. oo S~NOV=-81 09:16:17 PAGE 26~1

SEQ 0148

ONVERT BINARY TO DECIMAL AND TYPE
R

033474

MoV

(SP)+,R0O

og
7 ?ou.m
033524
TYPE 2(SP)
$DBLK,4(SP)
033502
016666 000002 000004
MOV
8§ 2} 0383(1)
2?}'
o Sy
osisu ozug
$OTBL: 10000.

033516
033520
033522
033524

001750
000144
000012

$DSLK:

1000.
100.
10.
.BLKW

..PW STACK INTO RO

*NOW TYPE THE NUMBER
RETURN TO USER

IADJUST THE STACK

SEQ 0149

.SBTTL

RANDOM NUMBER GENERATOR ROUTINE

SRAARARRRAAARAAARAANAACANNRAAARAAAAARARCRAAAAANAAAAAAAAAOROAAOOR

'YHIS ROUTINE IS A DOUBLE PRECIS!W PSEUDO RANDOM NUMBER GENERATOR
:*WITH A RANGE OF 0 TO 2(+33)-

s#CALL:

JSR

RETURN

PC.,SRAND

ssCALL THE ROUTINE
s sRETURN HERE THE RANDOM
s sNUMBER WILL BE IN
s sSHINUM, SLONUM

RO,=(SP)
R1,-(SP)

2:PUSH RO ON STACK
::PUSH R1 ON STACK
s:PUSH R2 on STACK
2sSET RO WITH LOW
:2SET R1 WITH HIGH
2sSET SHIFT COUNT
..SH!FT RO I.EFT

I
033534
033534
033536
033540
033542
033543
033552
033556
33560
033562
033564
33566

010046
010146
010246
013700
013701
012702
006300
002101
005202
001374
063700

:
SRAND

033634
033632
1777

SLONUM,RO
SHINUM,R1
18:

ASL

JROTATE CARRY mro R1 AND

+:CHECK FOR DONE
033634

8Lm RO

033632
001057

01057 RO

047401
033634
033632

M?‘Ol R1

(SP) +.RO
176543
123456

..counuue SHIFT LOOP

::ADD NUMBER To MKE X 129
..PROPOGATE
: sADD NUMBER to MKE X 129

::ADD LOW CONSTANT
2 sPROPOGATE CARRY
;:ADD HIGH CONSTANT
s sSAVE RO
+:SAVE R1
::POP STACK INTO R2
::PUP STACK INTO R1
..POP STACK INTO RO
ETURN

CZRJDEO RP04/5/6 MLT=DR LGC nagno v04.00 5-NOV-81 09:16:17 PAGE 27

RANDOM NUMBER GENERATOR ROUTI

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 28
SAVE AND RESTORE RO-R5 ROUTINES

.SBTTL

W12

SEQ 0150

SAVE AND RESTORE RO-R5 ROUTINES

SRR AAAA AN

: 'SAVE RO-RS

AN AR R R

R AAAANAAAAAAAAAAAAAAANAANAARAAAAROAOOOR

'CALL: SAVRES

: UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
.tTOP---(016)

% 42=-==(+18)
% +4===RS
% +6===R4
:* +8=-==R3
s*+10=-==R2
Jx+12=-=-=R1

;%+14=-=-=R0

033636
033636
033640

010046
010146

33644
033646

010346
010446

033642

033650
033652

033656
33662

033672

033674

010246
010546
016646

016646
016646
016646

012666

33706
33710
337164
033716

012666
012666
012605
012604

033720

033722
033726
033726
033730

MoV
MOV

RO,=(SP)
R1,-(SP)

2:PUSH RO ON STACK
2:PUSH R1 ON STACK

MOV
MoV

-(SP)
R4 ,=-(SP)

2:PUSH
ON STACK
H Ré ON STACK

22(SP), -(SP)
22(SP), -(SP)
22(SP) ,=(SP)

22SAVE PC OF MAIN FLOW
s2SAVE PS OF CALL
22SAVE PC OF CALL

L [0)"

MOV
MOV

000022
000022
000022
000022

MoV
MoV
MOV
RTI

Rg.~(SP)

RS.=(SP)
ZZ(SP) -(SP)

2 :PUSH :i ON STACK

:2PUSH RS ON STACK
22SAVE PS OF MAIN FLOW

tRESTORE RO-RS
CALL

033674

033700

$SAVREG:

012666

012603

012602
012601
012600
00000

0022

000022

0022
002¢

inssnee

RESREG

MOV

(SP)+,22(SP)

s2RESTORE PC OF CALL

MOV
MOV
MOV
MoV

(SP)*.SZ(SP)
(SP)+, g(SP)
(SP)+ R
(SP)+ R4

s2RESTORE PC OF MAIN FLOW
J2RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
;:POP STACK INTO R4

MoV
MOV
MOV
RTI

(SP)+ ,R2
(SP)+ ,R1
(SP)+ R0

MOV

[ [1]

(SP)+.22(SP)

(SP)+,R3

:sRESTORE PS OF CALL

::POP STACK INTO R3

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

CZRJDEO RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09 16:17 PAGE 29
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
.SBTTL

112

SEQ 0151

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

JRRRARAAAAAAARAAAAAAAAACCAAAAAAAAAAAAAAAAAACAAACAANAAAAACOACAONNSY

OTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

PC,ar$DB2D

i! NN
[=1=]

gEQS

>
o=

2(SP) ,R2

000002
034112
000002
000012
034042
034044

csoscvmsno

(aé)+ R1
:srfifiua R4
:ag)ozaz

034030

ogrnpunozRS

(R4) .R1
R2
(R5) ,R2

—

.
eeeeb
- ) =2 NI PN NIND

k4 4
R3

3s:

357
020

4$:

23238

$TNPWR:

;;POINTER TO LOW WORD OF BINARY NUMBER
::THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK

::SAVE REGISTERS
::PICKUP THE DATA POINTER

::GET ADDRESS OF

'SDECVL'*

s:SET UP TO DO 10 CONVERSIONS
:;ADDRESS OF TEN POWER
s sCLEAR PARTIAL
s :SUBTRACT TEN POWER
;sBR IF TEN POWER TO LARGE

..ADD 1 TO PARTIAL

.LOOP
: SRESTORE SUBTRACTED VALUE

(R4)+ R2
(RS)* (RS)+

ssMOVE TO NEXT TEN POWER

(PC)+
0
18
(RO)+

STRING

: :PUT_ADDRESS OF ASCIZ STRING ON STACK
::PICKUP THE BINARY NUMBER

(36)0.R1

#'0.RS
83 (RD)+

000060

SNRY
oW

033732
0

#PNTR,=(SP)

'POSI TIVE.
*CALL
MoV
JSR
RETURN

..CflogGE PARTIAL TO ASCII
O.

::BR IF NO
2 sTERMINATOR
2sRESTORE REGISTERS
2 JRETURN

::1.0E09

::1.0E08
::1.0E07

::1.0E06

:21.0E05
::1.0E04

::1.0E03
::1.0€02

5=NOv-81 09 16:17 PAGE 29-

O v04.00
CZRJDEO RP04/5/6 MLT-DR L GC MACR0
DOUBLE LENGTH BINARY TO 0 EC IMAL ASCII CONVERT ROUTINE
OO0
O

000015
0%2502

g
n

12
0
1
0
$DECVL: .BLKB

SEQ 0152

::1.0E01
::1.0E00
12.

s sRESERVE STORAGE FOR ASCIZ STRING

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 30

SEQ@ 0153

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE
.SBTTL

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

SRR ARRAAA A AR AARAAAAAA

AR AARAAAAAAAAAAAAAAAAAAAAAAAARAAARAROTOD

'THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

:*UNSIGNED OCTAL ASCIZ NUMBER.
:*CALL

MoV

$DB20:

SAVREG

\fl&&r
o8O
NISERRERERS:

i
e
e
e e
e
e
e
o
e
e
e
—

OO0O00O0O0 oo OCOO00O0COO

FRERRRRY RREFRR

034126
30

034176

3288882=gecccay

i
o

000002

JSR
RETURN

177770

1$:

Move

#PNTR, = (SP)

PC,ar$DB20

2(SP) ,R1
#$0CTVL+13.
,R5
#12. R4
(R1)+,R0
(R1)+,R1
R2
R2,=(R5)
Ré4

.R2

RS
R5.2(SP)

000002
2%:
3s:

ASR
ROR

000060
$OCTVL:

.BLKB

:;POINTER TO LOW WORD OF BINARY NUMBER
s sCALL THE ROUTINE
ssTHE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

ssSAVE ALL REGISTERS

ssP1CKUP THE POINTER TO LOW WORD

;:POINTER TO DATA TABLE
..ggsELEVEN CHARACTERS

..TERHINA OR

sPUT CHARACTER IN DATA TABLE

::GET THIS DIGIT

..COUN THIS CHARACTER

s:BR IF NOT THE LAST DIGIT
::BR IF IT IS THE LAST DIGIT

..ALL DIGITS DONE-ADJUST POINTER FOR FIRST
sASCIZ CHAR.

& PUT IT ON THE STACK

..RESTORE ALL REGISTERS
sRETURN TO USER

::POSITION THE MASK FOR THE LAST DIGIT
:;POSITION THE BINARY NUMBER FOR
THE NEXT OCTAL DIGIT
HH

s sMASK OUT ALL JUNK
s :MAKE THIS CHAR. ASCII
::G0 PUT IT IN THE DATA TABLE
: ;RESERVE DATA TABLE

(T'.'Z‘:gDEO
RP06/516 MLT=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 31
.SBTTL
R

SEQ 0154

TRAP DECODER

I I

tTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE '‘TRAP'' INSTRUCTION

:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.
034246

010046

034254
034256
034260
034262
034266

005740
111000
006300
016000
000200

034250 016600
.

STRAP:

000002
034302

MOV

RO,=(SP)

TST
Movs
ASL
MOV
RTS

=(RO)
(RO) ,RO
RO
STRPAD(RO) ,RO
RO

MOV

2(3P) RO

:SAVE

..GET TRAP ADDRESS

sBACKUP BY 2
..GET RIGHT BYTE OF TRAP
sPOSITION FOR INDEXING
::INDEX TO TABLE
::G0 TO ROUTINE

;:THIS IS USE TO HANDLE THE '‘GETPRI'‘ MACRO
034270

011646

034300

000002

034272

016666

000004

000002

$TRAP2: MOV

MOV
RTI

.SBTTL

(SP) ,=(SP)

4(SP3,2(SP)

::MOVE THE PC DOWN

:MOVE THE PSW DOWN
s ;RESTORE THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE ''TRAP'* INSTRUCTION.

ROUT INE

034302

034270

$TRPAD: .WORD

034316

030770

034320
034322
034324
034326
034330
2 034332
2

030700
031242
031332
033636
033674
027770

034306
034306
034310
034312
034314

032570
033106
03306
033122
033310

000032

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

S$TRAP2

;:CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROT)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

SGTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

SCKSWR
SRDCHR
SRDLIN
$SAVREG
SRESREG
SDSPLY
S$TERM=.~-$TRPAD

;;CALL=CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;;CALL=SAVREG
;;CALL=RESREG
;;CALL=DISPLY

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+1 g (10441 g)
TRAP+13(104413)
TRAP+14(104414)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

SAVE RO-R5 ROUTINE

RESTORE RO-R5 ROUTINE

ROUTINE TO TYPE ERROR MESSAGES

7
g

.SBTTL

;MAYNARD, MA 01754

SEQ 0155

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

:DIGITAL EQUIPMENT CORP.

Th
15

:STORAGE FOR RPDS‘I RPER1, RPER2, AND RPER3 ON AN ERROR ‘72"
sRPERRS _ = RPDS1

16
17
}g

g? 034334

ni1

:RPERRS+2 = RPER]
:RPERRS+4 = RPER2
:RPERRS+6 = RPER3

000000

RPERRS:

.WCRD

0,0,0,0

s TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)

;DRVACT=0 IF DRIVE IS IDLE

:DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND

:DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

27 034344

000

DRVACT: .BYTE

;DRIVE 0

29 034346
30 034347
31 034350
32 034351
33 034352
gg 034353

000
000
000
000
000
000

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

0
0
0
0
0
0

:DRIVE
:DRIVE
sDRIVE
sDRIVE
;DRIVE
:DRIVE

28 034345

000

.BYTE

2
3
&
5
6
7

;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT

38
zg

:DRVSTA>0 IF DRIVE IS ONLINE
:DRVSTA<O IF DRIVE IS UNSAFE
000
000
000
000
000
000
000
000

50
51

DRVSTA:

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

0
0
0
0
0
0
0
0

;DRIVE
sDRIVE
:DRIVE
:DRIVE
:DRIVE
sDRIVE
sDRIVE
:DRIVE

0
1
2
3
4
5
6
7

s TABLE OF DRIVE TYPES (DRVTYP=8 YTES)
;DRVTYP=0 IF DRIVE IS
NEXISTENT (DRVSTA=0,

:DRVIYP=1 IF DRIVE IS RPO4

:DRVTYP=2 IF DRIVE IS RPO5

54
22

57 034364
58 034365
59 034366
60 034367
61 034370
62 034371
63 034372

:DRIVE 1

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)

41 034354
42 034355
43 034356
44 034357
45 034360
46 034361
47 03436
23 03436

:DRVTYP=4 IF DRIVE 1S RP0G
:DRVTYP==1 IF NOT RP04/5/6
000
000
000
000
000
000
000

DRVTYP: .BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE

0
0
0
0
0
0
0

:DRIVE
sDRIVE
sDRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

0
1
g

&
5
6

ALSO)

ggzgoso
R:Ok/S/b MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32

gg 034373

000

66
67

000
000

73 034377
76 034400
75 034401
76 034402
;g 034403

000
000
000
000
000

DPINT:

000

000
000
000
000
000
000
000
000

sDRIVE
sDRIVE
:DRIVE
:DRIVE
sDRIVE

:DRIVE g
&
5
6
7

DPR@S:

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

0
0
0
0
0
0
0
0

sDRIVE
sDRIVE
sDRIVE
:DRIVE
sDRIVE
:DRIVE
sDRIVE
:DRIVE

0
1
2
3
4
5
6
7

:'DPB'* OF THE 1/0 OPERATION

000000

TRNSWT:

.WORD

;SEARCH WAIT KEYS (SRCHWT=1 WORD)
sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
:THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
:REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

}8%

;EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITO0 FOR DRIVE 0.

000000

106
107
108

SRCHWT:

.WORD

;RP04/5/6 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
sACTDRV=0 IF DRIVER IS INACTIVE

}?3

:ACTDRV>0 IF DRIVER IS ACTIVE

000

113
114

ACTDRV: .BYTE

SOFTHARE TIHER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE

}}g

120

0
0
0
0
0

TRANSFER HAIT FLAG (TRNSWT=1 WORD)
THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF

98
99
100
101

119

.BYTE
.BYTE
.BYTE
.BYTE
BYTE

DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE

}}; 034421

sDRIVE 0
:DRIVE 1

:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE

92
93

}}} 034420

0
0

.BYTE

}8? 034416

.BYTE
.BYTE

s TABLE OF PENDING DUAL PORT REQUESTS

89 034414

sDRIVE 7

:DPINT<0 IF INITIALIZATION IS IN PROGRESS

70 034374
71 034375

83 034404
84 034405
85 034406
86 034407
87 034410
88 034411
89 034412
g? 034413

sTABLE OF DUAL PORT INITIALIZATION INDICATORS
;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE

gg
72 034376

.BYTE

SEQ@ 0156

ACTSTR)O IF SOFTWARE TIMER ROUTINE IS ACTIVE

000

ACTSTR: .BYTE

sUNLOAD FLAG (ULDF =8 BYTES)

6=0IF NO UNLOAD COMMAND

N 12
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOv-81 09:16:17 PAGE 32-1
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-3
TMM

88388888

(elelelelelelela]

00 NON\WN &SN —

ULDFLG: .BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE

§8888888

g
e e
T

LACNT:

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

BYTE

.BYTE

e
e
S

034442

000000

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

0
1
g
&
§
9

0
0
0
0
0
0

;DRIVE
;DRIVE
sDRIVE
sDRIVE
sDRIVE
;DRIVE

0
1
%
&
5

:DRIVE 6

;DRIVE 7

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=1 WORD)
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
sFOR A DATA TRANSFER START A SEARCH COMMAND
sSEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
sDISREGARD THE WINDOW

0
0
0
0
0
0
0
0

:(DPB+14), AFTER AN ERROR.

e S

000000

SEEKFG: .WORD

sTIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION

e e

sSAVE REGISTERS FLAG (SAVEFG =1 WORD)
sSAVEFG <0 IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE
sOPERATION IS COMPLETED AS PER (DPB+14).
sSAVEFG=0 IF SAVE THE RH11/RP04/5/6 REGISTERS, AS PER

177777
177777
177777
177777
177777
177777
177777
177777

I R

SEQ 0157 |

/5/6 DRIVER (REV 1.0)

;LOOK AHEAD COUNT (LACNT=8 BYTES)
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

OO
OO NNV NWVIVIWVIVVVES
B S BB
W

sULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

NNNNNNNNO

TIMER:

.WORD

-1

.WORD
WORD
.WORD
.WORD
.WORD

WORD

;DRIVE 0

-1
-1
-1
-1

sDRIVE 1
;DRIVE i
:DRIVE
:DRIVE &

-1

:DRIVE 6

-1

:DRIVE 5

:DRIVE 7

;DATA TRANSFER UNDERWAY INDICATOR ( (DTUW=1 WORD)

;DTUW<O0 IF NO DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

e
R

;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS

WWWW

VR S

SRR

e I N

SINGL /DUAL PORT RH11/R

034466

177777

DTUW:

WORD

-1

s P

RJDEO

RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-5

SEQ@ 0158

NGLE/DUAL PORT RH11/RP04&/5/6 DRIVER (REV 1.0)
178

179
180

ATTENTIM BITS TABLE (ATABIT=8 BYTES)
THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES

}gg

ATTENTION BIT

183 034470
184 034471
185 03447
186 03447
187 034474
188 034475

001
002
004
010
020
040

ATABIT: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

1
2
&
10
20
40

;DRIVE
;DRIVE
sDRIVE
sDRIVE
sDRIVE
;DRIVE

}g? 034477

200

.BYTE

200

;DRIVE 7

189 034476

100

.BYTE

192

;DRIVE 6

sCALLING IT FATAL (MCPEMX=1 WORD)

000003

MCPEMX: .WORD

197
}33

200 034502
201 0345064

sRP04/5/6 TO RH11 'MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE) ALLOWED BEFORE

}32

}gg 034500

100

0
1
;

;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6),
:RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)).

176700
000254

%8{

000240

RPADR:
RPVEC:

.WORD
.WORD

176700
254,5+32.

sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD)

205 034510

000004

MXLACT: .WORD
&
sMAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD)

208 034512
%?8

001000

MXDLTA: .WORD
B.*64.
sMINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD)

211 034514
%}%

000200

MNDLTA: .WORD
2%64.
sMAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD)

g}g 034516

000005

MXWNDW: .WORD

589

%}9

;DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES

218
219
220

000000
000002
000004

RPCS1=0
RPW(C=2
RPBA=4

sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
:WORD COUNT REGISTER (NOT A DRIVE REG)
:UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)

222
223
224

000010
000012
000014

RPCS2=10
RPDS1=12
RPER1=14

sCONTROL AND STATUS REGISTER #2 (MT A DRIVE REG)
:DRIVE STATUS REGISTER (DRIVE
ng
:ERROR REGISTER #1 (DRIVE
)

RPLA=20
RPDB=22
RPMR=24
RPDT=26

sLOOK AHEAD REGISTER (DRIVE REG. 07)
sDATA BUFFER REGISTER (NOT A DRIVE REG.)
sMAINTAINABILITY REGISTER (DRIVE REG. 03)
:DRIVE TYPE REGISTER (DRIVE REG. 06)

RPCA=34

:DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12)

221

225

226
227
228
229

230
231

232

233
234

000006
000016

000020
000022
000024
000026

000030
000032
000034

000036
000040

RPDA=6

RPAS=16

RPSN=30
RPOF =32

RPCC=36
RPER2=40

:DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04)

;SERIAL NUMBER REGISTER (DRIVE REG. 10)
:OFFSET REGISTER (DRIVE REG. 11)

:CURRENT CYLINDER ADDRESS REGISTER (DRIVE REG. 13)
:ERROR REGISTER #2 (DRIVE REG. 14)

D13

woe

—d

RJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 S5-NOV=81 09:16:17 PAGE 32-4
NGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

235
236
%gg

000042
000044
000046

RPER3=42
RPEC1=44
RPE(C2=46

SEQ 0159

:ERROR REGISTER #3 (DRIVE REG. 15)
:ECC Posmou REGISTER (DRIVE REG. 16)
*ECC PATTERN REGISTER (DRIVE REG. 17)

239
240
261
242

nmmmm/e DRIVER INITIALIZATION CODE
THIS ROUTINE WILL DETERMINE WHICH RP04/5/6 DRIVES ARE
*AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
:TO THE PROPER STATE FOR EACH DRIVE.

245
246
247

s CALL
3
:

%so

:NOTE: THE "P' OR ‘L' CLOCK MUST BE STARTED

%’4’7’.’

252 034520

*NOTE: THIS ROUTINE CALLS DRVINT

104412

253 034522 013746 177776
254 034526 012737 000240
255 034536

004737

258 034550

005021

260 034556

101775

042652

RPINIT: SAVREG

177776

256 034540 012701 034334
257 034546 012702 034444

259 034552 020102
261 034556 012702 034466
262 034562 012721 177777
263 034566 020102
264 034570

265 034572
266 034576
267 034602
268 034606

269 034612
270 034616
271 034622
272 034626

101774

005037
005037
005037
005037

013703
012723
013713
013704

273 034632 012764
276 034640
275 034642

005001

278 034652

279 034656
280 034

034504
037434
034506
034502

000040 000010
4

005037
105761

286 034704

004737

288 034714

001375

285 034.702 001405
105761

042306

034374

005301

290 034720 100366
291 034722 012637

58:

6$:

78:
8s:

177776

cMP

R1.R2

MOV
MOV
CMP

#DTUW,R2
#-1,(R1)+
R1,R2

CLR
CLR
CLR
CLR

DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6

CLR

PC, CLRQUE
(R1)+

:SAVE RO - RS

*SAVE THE PRESENT Pnocsssoa STATUS
:CHANGE THE PRIORITYTO 5
:CLEAR ALL REQUEST oueues

*FIRST ADDRESS TO BE CLEARED
:LAST ADDRESS TO BE CLEARED
:CLEAR

:ARE WE DONE?

*BRANCH IF NO

:LOOP IF NO

*LAST ADDRESS
s INITIALIZE
*DONE?

:SET ALL DRIVES TO OFFLINE

MOV
MOV
MOV
MOV

RPVEC,R3
#ISR, (R3)+
apvsuz (R3)
RPAD,

:FIRST ADDRESS OF RH11/RP04

CLR

:START WITH DRIVE 0

4$
5%

*'DVA* NOT SET OR PARITY ERROR
*NORMAL RETURN

INC
BIC

R1
#4C7.R1

*GO TO NEXT DRIVE
*MASK OUT UNUSED BITS

CLR
TSTB

S
DPINT(R1)

JSR

BR
BR

CLRB

BNE
MOV

000007
177776
034374

#RPERRS ,R1
#SEEKFG.R2

MOV

034354
177770

MOV
MOV

BLOS

034354
034356
034360
034362

105081

283 034672
284 034676

289 034716

2s:

3s:

005201
042701

aPS = (SP)
#<5+32.> 3PS

BLOS

034732

281 034664 001366
282 034666 012701

287 034710

18:

PC.RPINIT

MOV
MOV
JSR

004037

276 034646 000401
277 034650 000402

JSR

BEQ

JSR

TSTB

BNE

DEC

BPL
MOV

;SETUP THE RH11/RP04/5/6 VECTOR

mros.npcszm) :MASSBUS INIT
RO,DRVINT

DRVSTA(R1)

3s
#7.R1

PC,SET.IE

DPINT(R1)

%
(SP)+,a#PS

*INIT THE DRIVE

*SET DRIVE smus TO OFFLINE
:BR IF MORE DRIVES TO GO
*START WITH DRIVE 7

ch THE PROCESSOR STATUS
*WAITING rou DRIVE TO SWITCH PORTS ?

ea NOT WAITING
:SET INTERRUPT

DRIVe SWITCHED PORTS ?

:BR
IF NOT

:GO TO THE NEXT DRIVE

*CHECK NEXT DRIVE
*RESTORE THE PROCESSOR STATUS

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-§

SEQ@ 0160

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

292

034726

% 034730

104413

assass

000207

RTS

:RESTORE RO = RS

:BYE-BYE

295
296
297
298
299

:DRIVE mmuzmou ROUT INE
;THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
:AN RP04/5/6. .{r IT IS, A "READ=-IN PRESET'' IS ISSUED AND FMT22
;IS SET TO A *‘1'". THEN MOL, DPR, DRY, AND VV ARE CHECKED TO
:INSURE THEY ARE ALL ON A "1°'. AND DEPENDING ON THEIR STATE,

302
303
304
305
3389

:
:
:
:
3

338?

308
309 034752

010546

311 034740
312 034744

105061
105061

310 034734

313 034750
314 034754
315 034762
316 034770
317 034772

318 034776

105061

034354

010164
112764
032764

000010
000111
010000

001403
004737

000543

034354
004000

326 035026

112761

000001

325 035024

012605
022705

329 035042

022705

024020

112761
022705

000002
020021

022705

024021

112761

000004

328 035040

330 035046

331 035050
332 035056
333 035062

001431

001426
001420

020020

335 035070

001415

337 035100

022705

339 035103

022705

024022

mfl

177777

336 035072
338 035106
340 035112

% 3%}}3

001407
001404

020022

343 035153 005737 035336
344 0351
001010
345 035132
346 035140
347 035142
348 035150

032764
001404
152761
000456

000000

18:

041626

327 035034

:SAVE RS

CLRB
CLRB

DRVTYP(R1)
ULDFLG(R1)

:CLEAR THE DRIVE me INDICATOR
:CLEAR THE UNLOAD FLAG

BEQ
JSR

1$
PC,SET.IE

MOV
mov8
BIT

000000
000010

034364

MOV

(SP)+,RS

001000

000012

000010

034364

:LEAVE THIS ROUTINE

DRVSTA(R1)
*SET DRIVE STATUS TO OFFLINE
#B8IT11,RPCS1(R4)
:SEE IF DRIVE AVAILABLE
7%
:BR IF DRIVE NOT AVAILABLE
RO,RD.RP
*READ THE DRIVE TYPE REG.
:ERROR RETURN ADDRESS

:PUT DRIVE TYPE IN RS

#1,DRVTYP(R1)

BEQ

:BRANCH IF YES

:BR IF vgs

2bozo.as

CMP

#24020,RS

MOVB
CMP

#2,DRVTYP(R1)
#20021,RS

CMP

#24021,RS

MOVB

#4,DRVTYP(R1)

BEQ

CMP

#20022 RS

CMP

#24022 RS

BEQ

28:

NO--BR.A.NC"
i
:GO SET '"IE'* WITHOUT A '‘TRE

MOVB

BEQ

034364

:START DRIVE STATUS AS OFFLINE

R1,RPCS2(R4)
*SELECT A DRIVE
#1711,RPCS1(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
#8IT12,RPCS2(R4)" :NONEXISTENT DRIVE?
63

CLRB
BIT
BEQ
JSR
RPDT
8s

BEQ

034364

DRVSTA(R1)

CMP

034364

:DRIVE NUMBER TO R1
:UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1)
:CALLED BY A JSR
:ERROR OCCURRED (PARITY)
;NORMAL RETURN

RS,=(SP)

CLRB

042306

105061
032764
001537
004037
000026
035332

MOV
#DRVNUM,R1
MOV
RPADR, Ré
JSR
RO,DRVINT
RETURN1
RE TURN2

DRVINT: MOV

034364
034422

319 035000
320 035004
321 035012
322 035014
323 035020
324 035022

*DRVSTA IS SET TO THE PROPER CONDITION.

:SET RPO4 INDICATOR

:1S IT A SINGLE PORT RP04?

:IS IT A DUAL PORT RP04?
:SET RPO INDICATOR
:SINGLE PORT RPOS
?
:BR IF YES

:DUAL PORT RPOS ?
:BR IF YES

:SET RP06 INDICATOR

:SINGLE PORT RP06?
:BR IF YES

:DUAL PORT RP06 ?

3"2"3

:;1.onvnm1)

:BR IF YES

ST
BNE

TSTPGM
9s

:INHIBIT Pnocams DRIVE?
:BRANCH IF NO

BIT
BEQ
BISB
BR

‘EE},"‘”“‘"’“ TO "OTHER'

#8IT09, RPDS1(R4);IS DRIVE PROGRAMMABLE?
9
-BRANCH IF NO
#BITO3, oavm(ai):SET INDICATOR
63
JEXIT

;

NG AR R RNNIBRFXT
SRS R 3

F1
GC_MACRO V04.00 5-NO
=NOV=-81 09:16:17 PAGE 32-6
/5/6 DRIVER (REV1.0)

9s:
001740
000262

MOV

ASR

o~
PRy v
=
NN

So
SENaae

VIO = = = =0 O O =

NSO

—

§c§§adoo
v Oo§~u
ganeots& PO
SD
-

N
~N

—-—

S=SRS

o
-

000001

003720

034354

sSET FMT22=1

RO,RD.RP

sREAD RPDS1

JSR
RPER1
13

034446

68:
7%:

8s:

:AND SAVE IT IN RS
*BRAN CH IF ATA=0
ATABIT(R1), npAs(k4> :CLEAR ATTENTION BIT
LRD.RP
FIND OUT WHY ATA=1
(SP)+

43
#-1,DRVSTA(R1)

com

B8R

BIC

BNE
MOVB

TST

BR
ASL

:D0O A "READ-IN-PRESET''

(SP)+,RS
4$

BPL
MOVB

IS 1T
ggsArs’
:BR IF

gebuuwe INDICATOR

a~c<axt12'sxroa'bxror'axroé>
6$
CH
IF
:BRANCH
DPR, DRY, OR VV IS CLEAR
#1,DRVSTA(R1)
“SET DRIVE StAius TO ONLINE

opn DRY, AND VV

6)+

g
;; OVER THE ERROR RETURN

s CHANGE INDEX TO ADDRESS WORDS

MOV

czooo..rxnen(n1> S;ART 21SEC TIMER

i
ST
MOV
RTS

DPINT(R1)
(RO)
+
(SP)+,RS
RO

ASR

034374

'S
sRESTORE DRIVE NUMBER

#8I1T12,-(SP)
RO,WRT.RP

MOVB

48:

167077

MOV
JSR

13
JSR
RPDS1
8s
MOV
BPL

034354

RS,SRPDT (RS)

CREATE WORD INDEX
:RESTORE

ROL

177777

KADR(R1) R3

(SP)+,R3

RPOF

000016

;SAVE R3

#121,-(5P)
RO,WRT.RP

RPCS1
8s

041626

ns -(SP)

SEQ 0161

MOV
JSR

MOV

010000
042002

034470
041626

:gz
MOV

000121
0462002

sRESTORE
R

:SET PORT INITIALIZE INIDICATOR
sRESTORE RS
SEXIT

;TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD)

:THE FLAG WILL BE SET BY THE PROGRAM UNDER
*MANUFACTURING CONDITIONS (ACT,APT) AND

*CLEARED UNDER FIELD couoxrxoné(xxor CHAIN,
*STANDALONE) WITH STARTING ADDRESS 200.

:THE FLAG WILL BE SET UNDER ALL CONDITIONS
:WITH STARTING ADDRESS 220.

g
8

U!U'U!g g’
Y
F
S

—~

5/6 MLT-DR
T RH11/R

TSTPGM:

.WORD

;=1 TEST PROGRAMMABLE DRIVE

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

*CALL

JSR

PNTAD

RO,3#RP04

sCALL THE RP04/5/6 DRIVER
sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-9

SEQ 0162

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

406

407

;

2&
410 035340

015749

412 035352

112737

*RETURN HERE IF REQUEST IS m QUEUE OR THERE
:1S AN ERROR CONDITION
asPs,=(SP)

MOVB

#1,ACTDRV

CLR

16(R2)

417 035372 013704 034502

MOV

RPADR R4

419 035402
420 035406

003014
105761

034422

BGT
TSTB

18
ULDFLG(R1)

422 035412

105761

034374

TSTB

DPINT(R1)

424 035420

004037

034732

426 035626
427 035432

105761
003445

034354

013737

613 035360 104412
414 035362 onoos
415 035364

416 035370

418 035376

005062

111201

105761

421 035410 001036
423 035416 00104

425 035426 000434

428 035434

105761

429 035440 001031
430 035442 010164

034506
000001

177776

034420

MOVB

034354

TSTB

BNE

034404

18:

000010

433 035456

122762

000103

000002

435 035464
436 035472

112761
105761

177777
034344

034422

5500

004737

035632

434 035462 001003

437 035476 001043

439 035504 000440
440 035506 012762
441 035514 000434
442

035516

004737

042750

120000 000016

38:

036742

48:

443 035522
44 035526
445 035530
446 035532
447 035536
035540
449 035544

000431
004037 042750
000431
032714 000100
oo1o§3
004737 042306
000420

451 035552

oognz

450 035546

58:

105761

034354

52 035554

012762

001007

034364

000016

ogg

105761

140000

01273

100002

000016

453 035562

gg 835252

68:

DRVSTA(R1)

:CLEAR THE STATUS/ERROR INDICATOR

*UNIBUS ADDRESS OF RPCS1
*CHECK DRIVES STATUS

anmcn IF ONLINE
UNLOAD COMMAND IN QUEUE?

*BRANCH
IF YES

:TRYING TO INIT THE DRIVE

*BR
IF YES

*ERROR RETURN

DPRAS(R1)

ss
R1,RPCS2(R4)

B8R

RO.DRVQUE

C(MP8

#103,2(R2)

MOVB
TSTB

#-1,ULDFLG(R1)
DRVACT(R1)

JSR

PC.OPT

*G0 INIT. ms DRIVE

*IS DRIVE STATUS ONLINE?
:BR IF NOT

*OUTSTANDING PORT REQUEST FOR THE DRIVE ?

:BR IF YES
:SELECT THE DRIVE

*PUT THIS muesr IN QUEUE

*QUEUE IS FULL

*1S THIS REQ. FOR AN UNLOAD?

:BR_IF NO,

:SET THE 'UNLOAD IN QUEUE'’ FLAG
*IS THIS DRIVE ACTIVE?

:BR IF YES

:CALL THE OPTIMIZER

BR
MOV
BR

8s
,
#BIT15!BIT13,16(R2) ;SET THE "UNLOAD IN QUEUE'* ERROR FLAG
8s
JEXIT

BR
JSR
BR
BIT
BNE
JSR
B8R

8s’
RO, DRVQUE
9s
#81T06, (R4)
13
PC,SET.IE
8s

JSR

TSTB

BLT

PC.CI7

DRVSTA(R1)
s

:GO HANDLE THE PARITY ERROR

:PUT aeouesw IN QUEUE
*QUEUE IS FULL
*1S "IE' SET ALREADY ?
:BR IF IT IS
:SET INTERRUPT
RETURN, REQUEST
IN QUEUE

“SEE 1F DRIVE OFFLINE OR UNSAFE
BR IF UNSAFE

MOV

#BIT1°!BIT14,16(R2)

BNE

TSTB

3"2"

DRVTY. (R1)

:SET OFFLINE ERROR INDICATOR

.-sse xr orruue OR NONEXISTENT

ga OFFL INE

aogms'snmJ6(R

nepclx'n DRIVE NONEXISTENT

035600
8152!76; 110000 000016 8s:
7$:
35606 10441

MOV
#8IT15!BIT12, 16(!3)
:DRIVE =ISRSUNSAFE
RESREG
esrbne RO

35612 000401

108

TST

(RO)+

459 035610

005720

461 035614

104413

462 035616

005720

98:

108:

FLAG

:PICKUP THE DRIVE NUMBER

BNE
MOV

BNE

:SET “ACTIVE DRIVER"'

(R2),R1

DRVSTA(R1)
63

BNE

:DON'T ALLOW ANY RP04/5/6 INTERRUPTS

(RO) ,R2

TSTB
BLE

TSTB

:SAVE_THE CALLING mg

*SAVE RO- RS
*PICKUP THE DRIVE PARAMETER BLOCK POINTER

RO,DRVINT

JSR

28:

RPVEC+Z,9#PS

JSR

004037

000460

MOV

SAVREG
MOV

000016

431 035446

432 035452

RPO4:

sRETURN HERE IF QUEUE IS
F

RE TURN2
MOV

411 035346

127776

RETURN1

RESREG

(RO)+

:SETUP FOR NORMAL RETURN

:FINISH UP,

THEN EXIT

*RESTORE RO
- RS

*CORRECT THE RETURN ADDRESS

463
o§
620 1oso§7 034.4;0

CLRE
MOV

4.65 osss

RTS

ACTDRV
(SP)+,a#PSs
RO

SEQ 0163

:CLEAR "ACTIVE DRIVER* FLAG
*RETURN ‘PS’* TO USER LEVEL
*RETURN TO CALLER

';,2;

:OPTIMIZER=CALLED FOR A PARTICULAR DRIVE

469

*CALL

470
2;5

:
;

473 035632

104412

475 035640

146137

477 035652

005702

479 035656
480 035664

032764
001407

47% 035634 013746 177776

034470

476 035646 004737 043024
478 035654

001505

032764

482 035674 001003

OPT:

034416

004000

000000

000100

000012

483 035676 004037 034732
484 035702 000470
485 035704
486 035710

487 035712

105761
003014

004737

SAVREG

TST

R2’

BEQ

BIT
BEQ

043046

NPS,= (57}

JSR

108:

#DRVNUM, R1
PC,OPT

MOV

BICB

98:

034354

MOV
JSR

PC,GETREQ
78

JSR
BR

RO,DRVINT
6%

JSR

SAVE PROC. STATUS

CLEAR ''SEARCH WAIT'' KEY

"oré" POINTER OF REQUEST

xs mene A REQUEST IN QUEUE?
*NO=--BRANCH TO EXIT

#BIT11,RPCS1(R4)’
IS DVA SET?
108
:BRANCH IF _NOT

#8IT6,RPDST1(R4)

TSTB
BGT

SAVE RO = RS

ATABIT(R1). sncm'r

BIT

BNE

;DRIVE NUMBER TO R1
*SETUP A COMMAND

“:IS WV SET
?

108

:BRIF IT IS

DRVSTA(R1)
1$

:1S DRIVE ONLINE?
* YES=-BRANCH

PC ,POPQUE

*SEE IF DRIVE STILL ONLINE ?
*PARITY OR 'DVA’ NOT SET
*NO--REMOVE REQUEST FROM QUEUE

488 035716 012762 140000 000016
489 035724 105761 034354
490 035730 100064

MOV
TSTB
B8PL

#8IiT15!8IT14, 16(&2) -SET OFFLINE STATUS/ERROR INDICATOR
DRVSTA(R1)
. S DRIVE UNSAFE ?
8s
TO EXIT IF NOT

492 035740 000460
493 035742 012746 000111
49 035746 004037 042002

BR
MOV
JSR

8s
#111,-(SP)
RO,WRT.RP

:BRANCH TO EXIT
*LOAD COMMAND ONTO THE STACK
*LOAD THE REGISTER

BIT

#8IT11, (R4)

*DRIVE AVAILABLE ?

491 035732 012762 110000 000016
495 035752
496 035754

000000
036064

498 035762
499 035764

001427
122762

497 035756 032714
500 035772
501 035774

002403
004737

18:

RPCS1
6$

004000
000150

000002

00201

506 036014

100404

505 036010

28:

005737

034444

507 036016

004037

037276

510 036026

004737

036112

38:

512 036034

004737

036220

48:

514 036042

112761

177777

516 036052

oogsog

508 036022 000427
509 036024 oooags

511 036032 ooo«gs

513 036040 000420
515 036050 010103

517 0360564 012763

023420 034446

519 036064

036742

518 036062 00040
004737

58
#150,2(R2)

B8R
ST

8s
DTUW

58:

68:

*REGISTER INCREMENT
*ERROR RETURN ADDRESS

:BR
IF NOT
:1S_THE REQUEST FOR 1/0?

28
PC.Cl4

*YES=-BRANCH
*CALL THE COMMAND INITIATOR

BGE

$YES==GO START A SEARCH

B8M]

034404

mnszamz.mha :SET wsm STATUS/ERROR INDICATOR

BEQ
CMP8

8LT
JSR

036326

502 035000 000440
503 036002 005737 034466
504 036006

MOV

SEEKFG

JSR

RO,LA

JSR

PC,CI1

BR
B8R

B8R

JSR

13
4

*BRANCH TO EXIT
*DATA TRANSFER UNDERWAY?
:DO IMPLIED SEEKS?

*YES==--BRANCH

*NO=-DO LOOK AHEAD

*RETURN HERE ON A PARITY ERROR
*G0 START A SEARCH
*START A DATA TRANSFER

PC.CI3

:START A smcu

MOVB

#-1,DPRQS(R1)

:SET PORT REQUEST INDICATOR

ASL

R3’

B8R

MOV

R1,R3

*GO TO THE EXIT

ssr up TO ADDRESS WORDS
CONVERT TO WORD INDEX

MOV

noooo..nnems) -START 10 SEC TIMER

JSR

PC.CI7

JEXIT

*PROCESS THE PARITY ERROR

H13
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-8
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0V

o8&

(=l

78:

000100

042306

8s:

177776

#81706, (R4)
8s
PC,SET.IE

RESREG
s

MOV

*CALL

cI:

034502
0

JSR

MOV
MOV

(SP)+.3#PS

PC .POPQUE

R2. TRNSWT
R2,R3

MOV

<a3»+ (R4)+

MOV

;SEE IF 'IE' ALREADY SET

u
SF WITHOUT A @ *‘TRE L
:SET 1.."IETM

:RESTORE PROC. oSTATUS
:RESTORE RO -

M R3

;RPCS1 ADDRESS
SELECT DRIVE

OUNT
LOAD BUFFER ADDRESS

(R3)+,~(SP)

sCALL THE LOAD(WRITE) ROUTINE
s INDEX OF REGISTER TO LOAD
sERROR RETURN ADDRESS
:LOAD CYLINDER ADDRESS

(R3)+.=(SP)
RO,WRT.RP

:LOAD SECTOR AND TRACK

c17
MOV
JSR
RPCS1

2(R2) ,~(SP)
RO,WRT.RP

;LOAD ‘‘COMMAND+GO'‘, "‘A178A16"°, AND ‘PSEL"

MOV

R1,DTUW

sSET "DATA TRANSFER UNDERWAY''

MoV

RPADR R4

JSR

R1.RPCS2(R4)
12(R2) ,=(SP)
RO,WRT.RP

sRPCS1_ADDRESS
sSELECT DRIVE
sDESIRED CYLINDER ADDRESS

10(R2) ,R
?XWDU.R

sPICKUP SECTOR ADDRESS
sBACKUP BY MAX. SEARCH FOR 1/0 WINDOW

JMP

MOV
MOV

c1§

MovB
sus

000026

ADD
MoV
MOVB
JSR

$
#22.,R3
R3,=(SP)
11(R2) ,1(SP)
RO,WRT.RP

MoV

#131,-(SP)

000131

sREMOVE cQUEST FROM "DRIVES WAIT'" QUEUE
:PUT REQ. IN TRANSFER WAIT QUEUE
:DPB_ADDRESS TO R3

(R3)+. (R4)+

000010
034516
1$:

:WHERE:
;CIT1=DATA TRANSFER
:C12=SEARCH REQUESTED BY DATA XFER
;C14=NOT DATA TRANSFER

RO,WRT.RP

c17

000001

sDRIVE NUMBER
:ADDRESS OF DP8
:CI?= CI1,C13, OR Cl4

;COMBINE THE ADJUSTED SECTOR WITH
sTHE DESIRED TRACK
sLOAD DESIRED TRACK & SECTOR

sSTART A SEARCH

SEQ 0164

JSR

RPCA

OOO00O

#DPB,R2
PC.CI?

RPADR R4
R1.RPCS2(R4)

MOV
JSR

CI3:

#DRVNUM,R1

MoV
MoV

MOV

000011
0462002
57
300
576 036302

MOV
JSR

ADD

Be
B
AR
S
¥¥z SRS NNITRSHNSERERERNZT

043046
034414

VIVIIW

VIS W

BIT
BNE
JSR

:COMMAND INITIATOR

I A TE TR TR TR

pO¢ /5/6 DRIVER (REV 1.0)

FEX4SERIPIRISEELEFERLLY
LS TRV
=39 ELENRUK

VA NIV

032714
001

C_MACRO v04.00 5-NOV-81 09:16:17 PAGE 32-5

CZRJDEO RP04/5/6 MLT=DR
SINGLE/DUAL PORT RH11/R

J 13
LGC MACRO V04.00 5 5-NOV-81 09:16:17 PAGE 32-10
/5/6 DRIVER ( REV 1.0)
:

577 036

578 036%?3 004837 0462002
56
st 3674
034470 034416

SEQ 0165

O NWWN

NS
HOOO
N
W
~
ONS

—

o g

—

M) b b b

ON=NONOW

281 036324

NOANWW

RO,WRT.RP

=2 = 2 N NN

223283888
Nt
vt
o
W AR

FRERNSaRoRIS&

A A A
O
N
o O ‘A o~
N
OO
RSO

Clé:

034502
000010
000002
000131

RPADR, R4

R1,RPCS2(R4)
2(R2) ,R3

;SET "'SEARCH WAIT'' KEY

:RPCS1 ADDRESS

:SELECT DRIVE
*PICKUP THE REQUESTED COMMAND

#131,R3
1$
10(R2),=(SP)
RO,WRT .RP

21S IT A SEARCH COMMAND?
*BRANCH IF NO
:LOAD DESIRED TRACK & SECTOR

;60 LOAD CYLINDER

12(R2) ,=(SP)

NO
sBRANCH
:LOAD DESIRED CYLINDER

sIS IT AN "OFFSET'' COMMAND?

041626

C16
#115,R3
43
RO.RD.RP

000001
042002

1(R2),(SP)
RO,WRT.RP

;BYTE WHEN LOADING THE
sREGISTER (RPOF)

000010
042002

000105

1%:

000012
042002

2$:

000115

3s:

000107

4$:

000117
000103

000001
034354
000001

034422

#1,ULDFLG(R1)

DRVSTA(R1)

R3,-(SP)
RO,WRT.RP

5%:

041626

000001

:BUT DON'T CHANGE THE UPPER

H IF YES

;IS IT A gETURN TO CENTER?
IF,
YES

1S IT AN "UNLOAD'* COMMAND?

:BRANCH IF NO
:SET THE DRIVE ACTIVE INDICATOR
:PUT PRIVE STATUS TO OFFLINE

:SET "UNLOAD IN PROGRESSTM FLAG
:START THE ''UNLOAD'* COMMAND

#143,R3
63
RO,RD.RP

sRETURN TO USER
sIS IT A "'SET FORMAT'® COMMAND?
sBRANCH IF NO
sREAD THE OFFSET REGISTER

1(R2) ,1(SP)

;COMBINE '‘FMT22'*,"ECI'', AND "WCI"

128
#141,R3

;IS IT A "'GET REGISTER'* COMMAND?

RO,WRT.RP
6%:

;B8R _IF NO

*MERGE THE OFFSET VALUE INTO RPOF

CI1é

#107 ,R3
Clé
#117,R3
Cl6
#103,R3
#1,DRVACT(R1)

000143

000141

:1S 1{ Algm COMMAND

034344

042002

000001
042002

gos.ns

NNNONON

&
e B SES SRS
W

o OO0O0O00O [=lelelelelelelelelelel]

[l ONON

—

28R
SRERRARRRSSISE

004037
34

e};\amm.sncwr

:LOAD ''FMT22", "ECI'", AND/OR 'HCI''.

CZRJDEO RP04/5/6 MLT=DR
SINGLE/DUAL PORT RH11/R

634 036566 001023
635 036570 016203 000006
636
637 036576
638 036602

116237
116205

639 0

004037

641 036614

03674

644 036624
645.036626

001414
062737

647 036636
648 036642
649 036644
650 036646
651 036652
652 036654
653 036656

122703
001405
01034
004037
000000
036742
737

640 036612

00001 o
000011

78:
036612

041626

8s:

98:

642 036616 otgez
036620 023705 036612
646 036634 00076

654 036662
655 036670

656 0366764

052762
005737

100002

000002

036612
108:
118:

042002

000200
034442

108
6(R2) ,R3

MOVB
MOVB

10(R2),9%
11(R2).RS

JSR

RPCS1
c17

MOV
CMP

000145

043046

BNE
MOV

000016

128%:

ASR
MOVB
RTS
MOV
JSR
RPCS1
1

R1
01 +DRVACT(R1)

BIT

#BIT12,RPCS2(R4)

TST

671 036752

005702

676 036764

004737

677 037000
678 037002
037006

03704
004737

042730

RPCS1
CI8
JSR

681 037014 1osog1

034344

CLRB

670 036750 001034

672 036754

000001

034344
Cl6:

042002

010000

000010

001405

673 036756 012762 104000 000016
675 036770
676 036774
037010

012746
004037
105061

042170

000111
042002

CI7:

1%:

CI7B:

034422

osroio oosggr 034414

177777 034466

688 037044

010000

686 037040
687 037042

000207
104412

032764

689 037052 001002

690 037054

005001

MOV

BNE

BEQ

000010

:SET A ONE SECOND TIMER
JSET THE DRIVE ACTIVE
RE URN TO THE USER
LOAD THE COMMAND

;DRIVE NON-EXISTENT ?

cI8

:BR IF YES

cI78

IF NOT

ANYTHING IN QUEUE ?

#8IT15!BIT11, 16(’!2)

MOV
JSR

nh -(sm
0.WRT.R

JSR

CLR

18:
CI8:

:YES--GO SAVE THE REGISTERS
*RETURN TO USER

#1000. , TIMER(R1)
R3 =(SP)
RO.WRT.RP

:SET 'PARITY"* ERROR INDICATOR

PC,SVRH11

:60 SAVE THE RH11/RP04/5/6 REGISTERS

PC.EMPTYQ

:EMPTY THE QUEUE

DRVACT(R1)

*DRIVE IS IDLE

ULDFLG(R1)

:D0 A ‘DRIVE CLEAR'

:CLEAR THE UNLOAD IN QUEUE FLAG

TRNSWT

MOV

#-1,DTUV

BIT

#BIT12,RPCS2(R4)° ;1S 'NED' SET ?

CLR

RTS
SAVREG

BNE

COMMAND?

:SET THE 'DONE'’ BIT
SAVE THE RH11/RP04/5/6 REGISTERS?

MOV

CLRB

685 037032 012737

*BRANCH IF NO

PC,SVRH11
PC
R1

032764

668 036740 000761

001750 034446

138

JSR
RTS
ASL

669 036742

012761

:1S IT A "‘SELECT DRIVE'®
*BRANCH
IF YES
:LOAD THE COMMAND

;REMOVE REO FROH QUEUE

#81707,16(R2)
SAVEFG

006201
112761
000207
010346
004037
000000
036742

036706

*GET OUT IF YES
*INCREASE THE INDEX BY 2

PC,POPQUE

BIS
TST

661 036714
662 036716
663 036724
664 036726
665 036730
666 036734
667 036736

138:
CIS:

:LOOP=-MORE TO READ

#145.R3
128
R3,=(SP)
RO.WRT.RP

004737
000207
006301

*READ RP04/5/6 REGISTER

*INDEX OF REG. TO READ

CMPB
BEQ
MOV
JSR
RPCS1
cl
JSR

657 036676
658 036702
659 036704

SINIT. THE INDEX FOR THE FIRST REG.
*INDEX OF LAST REG. TO MOVE

:GET THE CONTENTS OF RH11/RP04/5/6 REG.
:LAST REG. BEEN READ?

12§
#2,9%

:BRANCH IF NO
*POINTS TO 1ST ADDRESS OF WHERE
:T0 PUT THE REGISTER(S)

(SP)+,(R3)+
9$.RS

BEQ
ADD

BPL

042170

RO,RD.RP

SEQ 0166

:SAVE RO = RS

:BR
IF YES

V0
aVYan)

K13
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-11
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-#2
691 037056
69% 037060
693 037064
6% 0 063
695 03707

034344

R3
DRVACT(R1)
58
TRNSWT ,R2
g1.DTUU
$

1$:

034414
034466
043024
000010

100002

000016

102000

000016

3s:

034446

4$:

708 037154
709 037160
710 037162
711 037170

PC,GETREQ

2$:

010000

707 037150

200

000010

sGET THE "‘TRANSFER WAIT'' QUEUE

:DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?

:BRANCH IF YES
sGET THE DPB POINTER

081715;?{71016(&2) :SET 'NON=CLEARABLE PARITY'* ERROR INDICATOR
: SAVE RH11/RP06/S/6 REGISTERS

c-i TIMER(R3)
DRVACT(R1)
R1.DTUM

:STOP THE TIMER

*SET "DRIVE ACTIVE' TO IDLE
1S THIS DRIVE SETUP FOR A TRANSFER
:BR IF NOT
sRESET THE INDICATOR

5%:

ULDFLG(R
(R1)

#B8IT12, RPCSZ(R&)
63
R1

000002
177770

177777

sDRIVE ACTIVE?
:BRAN CH_IF NO

R2
:QUEUE ENTRY FOR DRIVE ?
X
:aa IF NOT
; 'NED' SET ?
521712LRPCS2(R4)
IF NOT
#8I1T15!'BITO1, 16(&2) :SET "DRIVE NON-EXISTENT' INDICATOR
4s
CONTINUE

034466

712 037174

713

SEQ 0167

/5/6 DRIVER (REV 1.0)

#2,R3
g‘C7.R1

sCLEAR THE TRANSFER QUEUE

;:CLEAR UNLOAD FLAG
; 'NED* SET ?
IF _YES

:HOVE TO THE NEXT DRIVE

sBRANCH IF MORE DRIVES
sNO DATA TRANSFERS UNDERWAY
sCLEAR THE °'TRANSFER WAIT' QUEUE
RQUE
sCLEAR ALL OF THE REQUEST QUEUES
;ngOS.RPCSZ(R4) ;DO _A MASSBUS INIT.
s CONT INUE

034466
000010
6%:

PC.EMPTYQ

DRVSTA(R1)
DRVTYP(R1)
PC,SET.IE

7%:

sCLEAR THE DRIVE'S QUEUE
:SET DRIVE TO OFFLINE
:CLEAR THE DRIVE TYPE INDICATOR

:SET

IE"WITHOUT “TRE”

:RESTOR
:RETURN

'LOOK AHEAD ROUTINE
CALL

#DRVNUM,R1
#DPB,R2
MOV
JSR
RO.LA
RETURN1
RETURN
RETURN

3
<

SINGLE/DUAL PORT RH11/R

MoV
MOV
JSR
RPCC
4%
CMP

;DRIVE NUMBER
sPOINT TO DPB
;G0 CHECK THE WINDOW
sERROR RETURN
sSTART A SEARCH
sSTART A DATA TRANSFER

R1,RPCS2(R4)
RO,RD.RP

;GET _RPCS1°'S _ADDRESS
sSELECT DRIVE
sREAD CURRENT CYLINDER

(SP)+,12(R2)

sERROR RETURN ADDRESS
:1S CURRENT CYLINDER=DESIRED
s CYLINDER?

RPADR
, R4

M13
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-13
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
748 037322
749 037324

750 037

751 037336
752

001037
105231

037340

034510

034432
000402
004737

000200

112737
104412
013704
013701
002403
004737

000001

783 037464

004737

037762

785 037472

105037

034420

782 037462 000402

798 037542
799 037546

800 037552
801 037554
7556
803 037560
7562

;:BRANCK IFYES

10(R2),R3

*GET DESIRCD SECTOR ADDRESS AND

‘MULT. BY 64=-ALIGN WITH
*LOOK AHEAD REGISTER
ity
:PRIORITY LEVEL '7
*READ LOOK AHMEAD REGISTER
:CALCULATE THE DELTA

1$:

(SP)+,R3
18
#<22.%64.>,R3
MXDLTA,R3

28:

CMP
BGE
CLRB

MNDLTA,R3
38
LACNT(R1)

48:

5$:

104413

000002

034420

ISR:

034502
034466

037500
18:

28:

BLT

TST
TST
BR
JSR

RTS

(RO)
+
(RO)+
5%
PC.CI7

;MAKE THE DELTA POSITIVE
*CHECK THE DELTA TO SEE
JIF IT IS WITHIN THE

JWINDOW===]1F YES, ZERO

*THE LOOK AHEAD COUNT
*AND TAKE THE 1/0 EXIT

JADJUST THE RETURN ADDRESS
SEXIT
*PROCESS THE ERROR

*RETURN

MOVB
SAVREG
MOV
MOV
BLT
JSR

#1,ACTDRV
RPADR,R&
DTUW,R1
13
PC,TD

;SET "ACTIVE DRIVER'® FLAG
*SAVE RO
- RS
Aoongss OF RHSCS1
*GET "DATA TRANSFER UNDERWAY'' INDICATOR
BRANCH IF NO DATA TRANSFER UNDERWAY
*CALL TRANSFER DONE

JSR

PC.SC

*CALL SPECIAL CONDITIONS

B8R

aesnsc
CLRB

RTI

788

796 037530
797 037534

5ACNT(R1)JMXLACT® ;EXCEED MAX?

JINTERRUPT SERVICE ROUTINE

776 037434
777 037442
778 037444
779 037450
780 037454
781 037456

790 037500
791 037506
792 037512
793 037514
037522
795 037524

;EXIT IF NO
: INCREMENT THE LOOK AHEAD COUNT

R3
R3
R3
#340,a#PS
.RD.

3s:
036742

3s
LACNT(R1)

SWAB
ASR
ASR
MOV
JSR
RPLA
43
SUB
BGE
ADD
CMP

034514

;;g

;gg 037476

CMPB

BGT

MOVB

002600
034512

765 037406
766 037412
767 037414

784 037470

BNE
INCB

000340
041626

764 037404

;;5 037432

034432

000010

753 037344
754 037346
755 037350
756 037352
57 037
758 037364
759 037366
760 037370
61 037372
762 037374
763 037400

768 037420
769 037422
770 037424
771 037426

o§44gg

SEQ 0168

ACTDRV

SEXIT

:RESTORE
RO = RS

CLEAR

*RETURN

“ACTIVE DRIVER'

FLAG

:TRANSFER DONE ROUTINE

105061
012737
006301
012761
oogzo1
013702

005037
052762

010164
004037
03674
006126
100421
005737

034344
177777

177777
:
034414

034414
000200

000010
041626

034442

034466

034446

000016

TM:

CLRB
MOV
ASL
MOV
ASR
MOV

CLR
BIS
MOV
JSR

RPCS1
c17
ROL
BMI
ST

DRVACT(R1)
#-1,DTUW
R1
#-1,TIMER(R1)
R1
rausur R2

TRNSWT
#81T07,16(R2)
R1,RPCS2(R4)
RO.RD.RP
(SP)+

SAVEFG

;SET DRIVE ACTIVE INDICATOR TO IDLE
*NO DATA TRANSFERS UNDERWAY

;CANCEL TIMEOUT
DPB'* ADDRESS FROM THE

TRANSFER WAIT QUEUE--CLEAR QUEUE
:SET DONE

:SELECT THE DRIVE
TRANSFER ERROR{TRE=1)?
:BR IF YES

*SAVE THE RH11/RP04/5/6 REGISTERS?

ot w v

SSomICN=O

855

EO RP04/5/6 MLT=DR
NGLE/DUAL PORT RH11/R

N13
GC_MACRO V04.00 5-NOV=-81 09:16:17 PAGE 32-14

SEQ 0169

/5/6 DRIVER (REV 1.0)

10000
18:

035632
000113
100100

2s:
000016

BPL
JSR
JSR
JSR
ST
BEQ

1%
PC,SVRH11
PC,WC
PC.GETREQ
R2
2$

MOV

#113, (R4)

sBRANCH IF NO
sYES==SAVE THE REGISTERS
:SEE IF WRITE CHECK TO BE PUT IN QUEUE
:GET DPB POINTER
:ENTRY FOR DRIVE ?
:BR IF NOT
*CALL OPTIMIZER
*CHECK OTHER DRIVES
RELEASE THE DRIVE

PC,EMP
PC svnu11

SAVE rus.an11/n90415/6 REGISTERS

JSR
BR

BIS

JSR
JSR

MOV
MOV

000113

PC,OPT
SC

081115'31706 16(§2) ssr DATA ERROR FLAG
#60111, (R4)
#113, (R4)
SC

K FOR OTHER DRIVES

MPTY THE 'DRIV
WAIT''
E'S
QUEUE

*ISSUE A

'DRIVE
CLEAR

:ISSUE A RELEASE TO THE DRIVE

:CHECK FOR OTHER DRIVES

;FORCED WRITE CHECK ROUTINE
001424

We:

000002

000024

000003

000024

042750
000016

844 037760
845
847
848
849 037762
850 037766
851 037770
852 037774
853 037776
85
0000

18:

000027
0

000002

BEQ
CMPB
BEQ
CMPB
BNE

2
#2,S$CODE(R2)
18
#3,$CODE(R2)
2s

sAUTOMATIC WRITE CHECKS ?
:BR_IF NOT

sLAST OPERATION WRITE DATA ?

:BR IF IT WAS
sLAST 0PE¥ATION WRITE HEADER & DATA ?
:BR_IF
:PUT THE OPERATION IN THE QUEUE
sQUEUE IS FULL

JSR

RO, DRVQUE

MOVB
MOV

$RPCS1(R2) , SPREVO(R2)
:SAVE WRITE OPERATION CODE
$CYL (R2) , SPREVA+2 (R2) :SAVE_CYLINDER
$SEC(R2) .SPREVA(RZ) ;SAVE SECTOR AND TRACK ADDRESSES

BR
CLR

MOV

2
16(R2)

BICB

#2,$CODE(R2)

BISB
RTS

#10.$COMND (R2)
PC

BICB
28:

AUTOCK

#20,$COMND (R2)

:CLEAR "DONE’ BIT IN DPB

;C HANGE WRITE TO CHECK
:CHANGE DRIVER CODE TO WRITE CHECK

FI?#SH CHANGING CODE TO WRITE CHECK

;SPECIAL CONDITION ROUTINE
000016

SC:

041626

MOVB
BNE
JSR

RPCS1

CI8

ROLB

BMI

042306

EMT
JSR

RTS

CLR

MOVB

RPAS(R4),R3
2
RO.RD.RP

;READ 'RPAS''
:BRANCH IF ANY °'ATA' BITS SET

(SP)+

;1S

1
PC.SET.IE

-(SP)

R3,(SP)

MOV

1.R3

sc3:

BIT

ns (SP)

SC4:

INC
ASLB
BNE

R1
R3
SC3

000001

CLR

BNE

scs

:READ CONTROL AND STATUS REGISTER

“IE=1?

:YES, NO DRIVES TO CHECK
:SET INTERRUPT ENABLE
:RETURN

:zoce;s ALL DRIVES THAT HAVE

:ATA=1?
: YES=-BRANCH
¢MOVE TO THE NEXT DRIVE
sBRANCH IF MORE TO CHECK?

8 14

CZRJDEO RPO4/S5/6 &T;?R GC_MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 32-15
SINGLE/DUAL PORT RM1

868 04004
869 04004

870 040044
871 04005

0014

87 040023
874 04

105761
00160;

/5/6 DRIVER (REV 1.0)

034374

SC5:

034404

18:

876 0400
877 040074
878 040076
879 040102
880 040104

881 040110
882 040114

883

00213

105761
003025
105761
0034;;
0047

004737
004737

043024

DRVSTA(R1)
58
ULDFLG(RT)
5%
PC,GETREQ

:CHECK THE DRIVE STATUS
:BRANCH IF ONL INE
sUNLOAD IN PROGRESS?
sBRANCH IF NOT
:GET _DPB POINTER

040670

JSR

PC,SC12

034354

042170

034374

0230
909 040232
910 040234
911 040236

104005
000677
006301
012761

177777

913 040246

004737

043024

004037

041626

060256

010164

040000

034344

58:

040670

034342

000113
042002

78:

8s:

034446

100407
105761

034344

052762

100210

SC13

PC.SVRHT1

DRVSTA(R1)
63
#BIT14,RPERRS
3s
sC11
RPERRS+2 ,R5
SC6A
DRVACT(RT)
SC6
PC.SC12

sPROCESS THE DRIVE

sSTART THE OUTSTANDING COMMAND

sSAVE THE M‘ll/kPO‘/S/b REGISTERS
:SAVE RPDS1, RPER1,

RPER2, AND RPER3

:ALSO DO A DRIVE INIT (DRVINT)

1ST8
BNE
1ST8
BMI]
BIT
BNE
MoV
JSR
RPCS1
SC8
MoV
EMT
BR

EMT
BR
ASL

5
SCé4
R1

sCHECK FOR MORE DRIVES
:SETUP_TO ADDRESS WORDS

PC,GETREQ

:GET_THE DPB POINTER FROM THE QUEUE

MOV
ASR

#-1,TIMER(R1)
R1

MoV

R1.RPCS2 (R&)

RPDS1
SC8
MOV

RO.RD.RP

:STOP THE TIMER
:RESTORE THE DRIVE ADDRESS

:SELECT DRIVE

:READ THE RP04'S STATUS REG.

(SP) ,RS

sAND PUT IT IN RS

8MI
1ST8

1$
DRVACT(R1)

:BR_IF ERR
CHECK DRIVE S STATE

B!S

#81715!81707!81TD3,16(R2)

ROL

000016

SC13

sINITIALIZING THE DRIVE ?

:DID DRIVE COME ONLINE?
*NO===BRANCH
:WAS THERE AN ERROR?
:BR IF ERROR
sNO _ERROR
;YES == PICKUP RPER1 AND
;GO PROCESS THE ERROR
:DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
:BR IF EITHER
:SAVE RPDS1, RPER‘! RPER2, AND RPER3
:ALSO DO A DRVINT
DPINT(R1)
sTRYING TO INIT THE DRIVE ?
SC4
:BR_IF YES, CHECK ON MORE DRIVES
DRVSTA(R1)
:CHECK ON DRIVE'S STATUS
78
:BR IF UNSAFE
#B1T13,RPERRS+6 :ADDRESS PLUG CHANGED ?
8s
;BR IF YES
#113,-(SP)
sRELEASE COMMAND
RO,WRT.RP
sWRITE THE COMMAND INTO RPCS1
:REGISTER INDEX
sPARITY EXIT ADDRESS
(SP) .RS
sPICKUP (RPAS) BEFORE THE ERROR CALL
2
SC4
;GO CHECK FOR MORE ATA'S

JSR

006126

003137

SCé6:

1ST8
BLE
BIT
BNE
JMP
MOV
BR
1ST8
BNE
JSR

JSR

000010

040272
921 060274

923 040302

6$:

034354

000012
040550
011605

922 040

034334
38:

020000

JMP

JSR

040600
034336

916 060262
917 040264
918 040266

919 040270

2s:

034422

105761
001321
105761
100412
032737
001011
012746
004037
000000
040550
011605
104002
000701

914 060252

1ST8
8GT
1ST8
BLE
JSR

040740

034354

006201

:BR _IF NOT

sPORT REQUEST OUTSTANDING ?
:BR IF NOT

JMP

BGT

(SP)+

scn

v
i

DPRAS(R1)
4 ]

BEQ

sCLEAN OFF THE STACK
sRETURN TO USER

1ST8
BEQ

105761
003416
032737
00100;
000137
013705
000476
105761
001027
004737

912 040244

(SP)0

DPINT(M)

884 040120
885 040124
886 040126
887 040134
888 040136
889 040142
890 040146
891 040150
892 040154
893 040156
8%
895 040162
040166
897 040170
898 040174
899 040176
900 040204
901 040206
902 040212
903 040216
040220
905 040222
906 040226
907 040226

040230

18T
RTS

TST8

872 04005 0001 040740
875 04

SEQ 0170

:WAS THERE AN ERROR?
gfi DRIVE ACTIVE WITH ORDER

;INFORM USER OF ERROR RECOVER COMPLETION

;

CZRJDEO RPO4/5/6 MLT=DR .
SINGLE/DUAL PORT RH11/R

pbé

C_MACRO VO‘.
/5/6 DRIVER

s 14
V
=81 09:16:17 PAGE 32-16

SC7

924 040 ‘lg
925 04031
926 040316
927 0403%0
928 040322

931 040334
34

sREAD ERROR REGISTER M

(SP)+,RS

sAND SAVE IT
IN RS
s SAVE RHH/RPO‘/S/G REGISTERS

RO,WRT.RP

2883
N =\

geg

sBRANCH IF YES
000016

041626

sANYTHING IN QUEUE ?
“BR IF NOT

RO,RD.RP

sREAD DRIVE STATUS REG. M

g?;715!81707!81765.16(R2)

(SP) ,R5

177777

034354

010000

000001

8o
W
¥

282

N = NYNNINNWN=NO

83 R
RRS3S
=
2N=R

-t

e TS

byl
3338 hd
2
-.-nso
-t O W
g
v
352
N 8853
NN =N
~N —
NS
323
&
(VY
3
WO
38 WO
NVS
O
~
22 5

000016

978 040574
979
040600

;ISSUE A DRIVE CLEAR

;WAS "UNSAFE'' CONDITION =1?
100240

034344
034354
034446
000016

000016

s INFORM USER OF ERROR

SAVE RPDS1 IN RS

(SP)+

:"ERR'’=1?

#-1,DRVSTA(RT)
PC,SVRH11

:SAVE RM11/RP04/5/6 REGISTERS

:BR IF NO--UNSAFE CLEARED
sDRIVE IS UNSAFE

08;715'811’12J16(R2)
SC

#BIT12,R5
3s

#-1,DRVACT(R1)
#1,DRVSTA(R1)
R1

:INFORM USER OF UNSAFE ERROR

'MoL't =12
;BR IF YES
sACTIVE ERROR RECOVER
; ONL INE

:?0000. .TIMER(R1) sSTART 30 SECOND TIMER
SCé4
#BIT15!B1T07!BI1T04,16(R2)
:INFORM USER OF ERROR
DRVACT(R1)
;DRIVE 1S IDLE
PC,EMPTYQ
:DUMP THE QUEUE
|ills.DFLG(R1 )
:tMOAD IN PROGRESS OR QUEUE?
:BR_IF NOT
ULDFLG(R1)
:CLEAR UNL OAD FLAG

ATABIT(R1) ,RPAS(R4)
DRVSTA(R1)

2s
#113,-(SP)
RO,WRT.RP
SC4
?RVACT(R1)
PC,GETREQ

PC.CI7
28
PC.CI7B

Scé

ULDFLG(R1)
1$

-,Pao:

SEQ 0171 |

RO,RD.RP

PC,SVRH11
#111,-(sP)

9
950
040353

;CLEAR A"ENTI(EN 8IT

;1S THE DRIVE UNSAF
:BR IF IT IS

RELEASE COMMAND

WRITE THE COMMAND INTO RPCS1
REGISTER INDEX

:PARITY EXIT ADDRESS

sCHECK FOR MORE DRIVES
IS DRIVE lDLE"
; YES=-BRANCH

:GET DPB POINTER
:PROCESS THE PARITY ERROR
s CONT INUE

:PROCESS THE UNCORRECTABLE PARITY ERROR
CHECK MORE DRIVES

:"UNLOAD IN PROGRESS'*?
:BRANCH IF NO

g
N-

—

NNONNNN

o
o

040616

034422
0;2364
034470

v
NN~
W=

981 8282?3

-o-ns
228 S 833

D 14
CZRJDEO RP04/5/6 HLT-DRPbEC MACRO V04.00 5-NOV=81 09:16:17 PAGE 32-17
/5/6 DRIVER (REV 1.0)
SINGLE/DUAL PORT RH11/R

0
034470
0400
000010
000012
000040
000045

000016

BNE
JSR
BIS

000016

034334
034336
034340
034342

TST

28:

BPL
JSR
Move
JSR

sc12:

OOOO&OOO
W
SeoSostRRsSSsss3sess
~N & SR W o
283 ONOWVISWN=O VRNV WN=O 383882
2
RRRRRRRRRRRRRRRRRRRRR

#8IT11, (R4S

:SAVE THE FOUR REGISTERS THAT
*WILL TELL US SOMETHING

*POP PC OFF OF THE STACK
*SETUP TO ADDRESS WORDS
:STOP THE TIMER

:DRIVE AVAILABLE ?

3s
DPINT(R1)

JEXIT
JINITIALIZING THE DRIVE ?
JCLEAR THE INIT INDICATOR

:}0000..71HER(R1)

18:

RO,.DRVINT

W
o
N
&~

——d

:SELECT DRIVE

:BR IF AVAILABLE

33
~

~N
~

:BRANCH
*BRANCH IF IF NO
-YES==SAVE ALL OF THE RH11/RP04/5/6 REG'S

1$
R1

—3

o
N

" BIT

R1.RPCS2(R4)
:SELECT THE DRIVE
ATABIT(R1) ,RPAS(R&)
;CLEAR THE ATTENTION BIT

DRVSTA(R1)
23
R2
3s

"DONE

:PROCESS THE PARITY ERROR

034354

3~N

iun

:SET

*SAVE THE REGISTERS?

SC8

DPINT(R1)

034404

:REMOVE REQUEST FROM QUEUE

*RETURN

034374
034732

000

1/0 COMMAND?
AN
;BRANCH IF YES

8288
S

034446

:DOING A SEARCH OPERATION FOR

ATABIT(R1) ,RPAS(R4) ;CLEAR ATTENTION BIT
PC,OPT
:START A REQUEST
$Cé
*CHECK FOR MORE DRIVES

105061
004037

gAN

83 33 oN
oo

=1=]

$
PC.SVRH11

pESResgas
EO

000016

e
e
e

#BIT07,16(R2)

R1
:;I.TIHER(R1)

e e
e R
R
R
T
e

PC, POPQUE

034374

000010
034470
004000

SC13:

PC.GETREQ

PC,SVRH11

sSTART 10 SEC TIMER AGAIN

:BR IF NOT

;GO0 INIT THE DRIVE
;DUMMY PARITY ERROR RETURN

sDRIVE
sBR IF
JQUEUE
:8R IF

ONLINE ?
YES == START ORDER

ENTRY FOR THE DRIVE
NOT

GET DPB ADDRESS

#BIT1S'BIT14,16(R2)

000016

:INFORM USER THAT DRIVE OFFLINE

;SAVE THE REGISTERS

;g.snprvo

*EMPTY THE REQUEST QUEUE

2$:

DPRAS (R1)

:CLEAR THE PORT REQUEST INDICATOR

3s:

sCé

*PROCESS OTHER DRIVES

PC,OPT

e
D

023420

B D el

034446

:SET DRIVE IDLE

ATABIT(R1),SRCHWTTM

RPER
(R4 ) .RPERRS+6
3
RO,DRVINT
:INIT. THE STATE OF THE DRIVE
18
*TAKE ERROR EXIT

116164

177777

:CLEAR UNLOAD FLAG

RPDS1(R&) ,RPERRS
RPER1(R&) _RPERRS +2
RPER2
(R4) _RPERRS +4

b
b
D
D ek
e

040756

D e

006301
8&%;6}

D
b e
bt
b
D
b oD
D
D oD o oD
D D
D ed
D
D et o
d
d

DRVACT(R1)

(SP)+

04
040740
040742

0772

ULDFLG(R1)

R1,RPCS2(R4)

034416

CLRB
CLRB
8IT8

SEQ 0172

*START THE PENDING REQUEST

;RP04/5/6 TIMER ROUT INE
; CALL

Mov
JSR

#TIME ,~(SP)

PC.RPTMR

;ELASPED TIME IN MILLISECONDS ON THE STACK

:CALL RP04/5/6 TIME ROUTINE

:
SEREFNESRSEEFNIFrERE g

]
~

HNO ~

NONNW
= = (N =N NWWNWW-=
N

R
e eS
SRZRANIRRREaRe2g
L8

RRRRRRRRRRRRRRRRRRRE g

(==

WN=0OV
VS

8838 R
3288
N =4\

FEXITZERERRRASE OOOOQ‘OOOQO
FETRIF2R2Z R A AR AAAAAAR ?g RRRRRR o8 \S
33J

D
D d d D e e
D e
D D d D d D d d e

SEQ 0173

/5/6 DRIVER (REV 1.0)

034420

000001

RPTMR:

034421

TST
BN

ACTDRYV
4%
#1,ACTSTR
R1

034446
000002

034446

061172

2%:
000010

3s:

034421

sCHECK "ACTDRV & ACTSTR''
sIF _NON ZERO EXIT
sSET_"ACTSTR''
sSAVE RO - RS
sSTART WITH DRIVE 0

R3
TIMER(R3)
;1S THE TIMER RUNNING?
2$
;BRANCH IF NO
2(SP) ,TIMER(R3) sCOUNT THE INTERVAL
2$
;BR IF NO SOF TWARE TIMEOUT
PC,STO
sCALL SOFTWARE TIMEOUT ROUTINE
33
;G0 TO THE EXIT
1)
sMOVE TO NEXT DRIVE
(R3)+
;0UT OF DRIVES?
18
sBRANCH IF NO

18:

ACTSTR
(SP)+,(SP)
PC

4S:

sRESTORE RO - RS
sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG

.M#w THE STACK

d D

D )

d e

T RH11/R

;SOFTWARE TIMEOUT ROUTINE

INOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6

D e

;

CALL:

eSS NANNEIRR S

SUIRSTSAoSFowsS
go F
WO NONNONNIN) =d

Se83833239832222

STO:

034502
000010
041626

034374

ST01:

034404

034414
034466

004737 043024
101000
062170

CNRNNNANSSS

S
i
e

—

e S

AR R RRRRRRRRRRRRRRRRRRRRRRR
NN
RS
»HO SRENE

NNNNY
VIS WN=O

ANOORSNONON SN

D d D
D b
D
D
D e
D d
D D
) D cd D cd
D cd
b
b e
D
b
o
—

/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-58L

34
034422

034732

OR GREATER

STO
MoV
JSR
RETURN

#DRVNUM,R1

sDRIVE NUMBER
sCALL

R1.-(SP)
R3,=(SP)
RPADR,R4
R1,RPCS2(R&4)
RO.RD -RP

;SAVE R1
:SAVE R3
sGET ADDRESS OF ‘RPCS1**
sSELECT THE DRIVE

PC.STO

sREAD

‘DRIVE STATUS REG''

(SP)+
$T02
DPINT(R1)
ST02
DPRQS(R1)
ST02
TRNSWT ,R2

:BR IF YES
:TR";‘GYEg INTIALIZE THE DRIVE ?
BRI
:ggr;;»&gus PORT REQUEST FOR THE DRIVE ?

PC,GETREQ

- GE T gg ADDRESS

?I.DTUU

;1S "DRY'*=1?

*PICKUP TRANSFER WAIT QUEUE

STRANSFER UNDERWAY ON THIS DRIVE?
*BRANCH IF YES

THE
aeinszanoo.mkg)
ERROR FLAGS
PC,SVRH11
SAVE aunm&/m REGISTERS

000016
000010

2%:

#8I1T0 S.RPCS2(R4) ;"' INIT'* THE MASS BUS
DRVACT(R1)
:DRIVE 1S IDLE
g%mc(m
:CLEAR THE UNLOAD FLAG
*START WITH DRIVE 0
R3
RO,DRVINT
sINIT. THIS DRIVE
ST05
:PARITY ERROR RETURN

—

CZRJDEO RP04/5/6 MLT-DR
SINGLE/DUAL PORT RH11/R
1095 041 13
1096 041
1097 041% 4
1098 041
1099 041334
1100 041336
1101 041342
110% 041350
1103 041354
1106 041360
1105 041366
1106 041370
1107 041372
1108 041376
1109 041400
1110 041406
1111 061412
1112 041416
1113 0641420
1116 041426
1115 041430
1116 041432
1117 041436
1118 041440
1119 041444

1120 041446
1121 041452
1122 041456

1123 041460
1126 041462
1125 041464
1126 041466
1127 041470
1128 041474
1129 041476
1130 041502
1131 0641504
1132 041512
1133 041514
1134 041520
1135 041522
1136 0415%6
1137 041532
1138 041540
1139 041544
1140 041546
1141 041550
116§ 0641556
1143 041560
1144 0461566
1145 041572
1146 041576
1147 041600
1148 04160
1149 041610
1150 041614
1151 041620

105761
001414
013702
023701
00140
00473
052762
105061
105061
012763
005723
005201
022701
003344
012737
005037
004737
000500
116405
136105
001017
105761
001031
105761
001045
020137
001263
004037

041514
105726
100255
105761
001003
105761
001446
012763
00044
00473
000437
105061
105061
012763
004737
005702
001424
052762
000414
012763
105061
004737
00570;
00140
01276;
00473
004737
012603

F 14
GC_MACRO V04.00 5-NO V;81 09:16:17 PAGE 32-19
/5/6 DRIVER (REV 1.0

034344

1ST8

BEQ

034414
034466

MOV
CMP

000016

3s:

'
755 034446 4$:

DTUW,RT
3s

ULDFLG(R1)
#-1,TIMER(R3)

(?350

*NO DATA TRANSFERS UNDERWAY

ST02:

3
RPAS (R4)

ATABIT(R1).RS
ST03

041626

DPINT(R1)
ST06
DPRQS (R1)
ST07
R1.DTUW
STO1
RO,RD.RP

034374

sT01
?:1n1<a1>

034404

034466

(SP)+

ST03:

034404

DPRAS (R1)

034446

+NO _UNLOAD
sSTOP _THE TIMER
sUPDATE THE INDEX
s INCREMENT THE DRIVE NUMBER
sLAST DRIVE BEEN CHECKED?
; NO=--L0OP

034374

177777

sGET TRANSFER WAIT QUEUE
sWAS THERE 1/0 ON THIS DRIVE?

aaxrlsig{}oa.16(ksé :INFORM USER OF
;SET DRIVE ACTIVE TO IDLE
DRVACT

034466

000016
034470

;DRIVE IDLE BEFORE THE INIT.?

;Y
; YES=<BRANCH

SYES
:
YES==BRANCH
-ger THE DPB Poxuren”r‘??u QUEUE

PC,GETREQ

000010

177777
034414
042652

DRVACT(R1)
48
TRNSWT ,R2

SEQ 0174

1$:

037042

STOS:

034374
034

ST06:

37?971ntn(a3)
$T09

*CLEAR TRANSFER WAIT QUEUE
“k‘?’ ALL REQUEST QUEUES
sEXI
sREAD ATTENTION REG
:1S ATTENTION FOR THIS DRIVE UP ?
: YES=-BRANCH

sTRYING TO INTIALIZE THE DRIVE ?
:BR_IF YES = DRIVE NOT ONLINE
sOUTSTANDING PORT REQUEST FOR THE DRIVE ?
sBR_IF YES = NO RESPONSE TO REQUEST
:DATA'TRANSFER UNDERWAY FOR THIS DRIVE
:BR IF

s YES==CHECK 'RDY*’

:BR IF "RDY''=0
sINITIALIZING THE DRIVE ?
:BR _IF INIT PENDING
sPORT REG¥EST PENDING ?
:BR IF NO
:g;?g THE TIMER

*GO HANDLE THE PARITY ERROR

034446

PC.CI8
ST09
DPINT(R1)
DRVSTA(R1)
#-1,TIMER(R3)

000016

‘?1;15!8!714.16(§$)~ g#NFORH THE USER DRIVE NOT AVAILABLE

034446

000016

:g.GETREO
ST09

ST07:

STO
#-1,TIMER(R3)
DPRQS (R1)
PC.GETREQ

R2
ST09
STO8:
ST09:

:CLEAR THE INITIALIZE INDICATOR
SET UNIT OFFLINE

:STOP THE TIMER

sGET THE DPB ADDRESS
sREQUEST IN QUEUE ?
;B8R IF NOT
sFINI

:STOP_THE TIMER
sCLEAR PORT REQUEST INDICATOR
:GET DPB ADDRESS
sQUEUE ENTRY FOR DRIVE ?
BR IF NONE

#BIT15!B1T2,16(R2)
C.EMPTYQ
PC.
PC.SVRH11

(SP)+,R3

_;INFORM USER OF PORT REQUEST ERROR

:C
sCLEAR
THE QUEUE FOR THE DPRIVE

s SAVE YHER§EGISTERS
sRESTORE

CZRJDEO RPO4/5/6 MLT=DR LGC MACRO V04.00 5-10v-81 09:16:17 PAGE 32-30

SEQ 0175

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

1152 041622 012601
Hg‘ 041624 000207

MOV
RTS

(SP)+,R1
PC

:RESTORE R1
*RETURN

Hgg

;ROUTINE TO READ A RH11/RP04/5/6 REGISTER

1157
1158
1159

sCALL
:
:

1161

1160

ugg

1164 041626

013737

034500

1165 041636 011646
1166 041636 013737 034502
1167 0461646 062037 041652
1168 041650
1169 041652
1170 041654

041770

RD.RP:

041652

013727
000000
000000

1171 041656 013766 041654 000002
1172 041666 013746 034502
1173 041670 062716 00001

1181 041720

00103
017746 172574
032716 020000
001002
022620
000430

041720

104003

1185 041734
1186 041736

001402
005726

1182 041722 005737 034466
1183 041726 100405
1184 041730 032716 040000
1187 041740 000415
1188 041742 052716
1189 041746

000316

1191 041756
1192 041762
1193 041764
1196 041766
1195 041770
1196 041772
1197 041774

005237
112637
000000
005327
000003
002326
011000

}56’3 042000

000200

1190 041750

013737

1198 041776 012616

034502

28:
041764

*AT THIS ADORESS

:CONTENTS OF REG. IS ON THE STACK
MCPEMX,RD.RP2

;MAX. RETRYS ALLOWED

a(PC)+,(PC)+
0
O

:READ THE DESIRED REGISTER OF THE RPO4
:ADDRESS IS FORMED HERE
*REG. CONTENTS PUT HERE

(SP) ,=(SP)
RPADR,RD.ADR
(RO)+.RD.ADR

MOV
MOV
ADD

RD.WRD,2(SP)
RPADR, - (SP)
#RPCS2, (SP)

BNE
MOV
BIT
BNE
CMP
BR

RD.RP3
aRPADR,-(SP)
#8IT13. (SP)
18
(SP)+, (RO)+
RD.RP4

EMT

#BIT12,8(SP)+

BR
BIS

RD.RP3
#BIT14, (SP)

:TAKE THE FATAL ERROR EXIT
:CLEAR "MCPE'* BY SENDING A "1°*

MOV

RPADR, 3$

SWAB

28
(SP)+
(SP)

3s
(SP)+,a(PC)+
0
(PC)+
3
RD.RP1
(RO) ,RO

RD.RP4: RTS

MOV

(SP)+, (SP)

;ROUTINE TO WRITE A REGISTER

1203

*CALL

1207

:CHECK THE 'NED® BIT

:BR IF DRIVE NON-EXISTENT
:READ RP(S1
:DID MCPE SET?
*BRANCH IF YES
*ADJUST FOR RETURN
SEXIT
:DATA TRANSFER UNDERWAY?
:NO--BRANCH
*NO==""TRE''=1?

INC
MOVB
38:
.WORD
DEC
RD.RP2: .WORD
BGE
RD.RP3: MOV

:
;
:

:RETURN IT TO THE USER
:PUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF RP(CS2

DTUW
2
#BIT14, (SP)

;58}

1204
1205
1206

*SAVE RO FOR RETURN
:FORM THE DESIRED ADDRESS
:USING THE BASE AND THE INDEX

ST
BMI
BIT

BEQ
ST

040000
041764

MOV

MOV
MOV
ADD

:GO READ A REGISTER
*REG. INDEX FROM BASE

*ERROR ADDRESS=-PROCESS ERROR STARTING

RETURN

BIT

18:

RO,RD.RP

ERRADR

RD.RP1: MOV
RD.ADR: .WORD
RD.WRD: .WORD

1174 041674 032736 010008

1175 041700
1176 041702
1177 041706
1178 041712
1179 041714
1180 041716

JSR
INDEX

MOV
JSR
INDEX

ERRADR

DATA,=(SP)
RO,WRT.RP

*NO--BRANCH
*YES==CLEAN OFF THE STACK AND
*POSITION BEFORE WRITING

TO '‘TRE

:FORM ADDRESS OF HIGH BYTE
:WRITE THE HIGH BYTE OF RPCS1
*ADDRESS STORAGE
*EXCEEDED MAX. RETRYS
:BRANCH IF NO
:FATAL ERROR EXIT

:DATA TO BE LOADED ON THE STACK
:CALL THE ROUTINE TO LOAD(WRITE) THE REG.
:INDEX OF THE REGISTER TO BE LOADED
*ADDRESS TO RETURN TO ON AN ERROR

H 14

RJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-21
NGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

}583

1210 mgoos

013737

034500

042152

1215 062026

122737

000150

042070

1217 0462036
1218 042042

004037
000000

041626

1220 0462046
1221 0462050
1222 062054

000316
042716
112637

1224 042066
1225 042070
1226 042072

012737
000000
000000

1229 042106
1230 042110
12;1 042112
1232 062116
1233 062120

032736
001023
004037
000014
042160

010000

1237 062136
1238 042142

004037
000000

041626

1211 0462010
121; 042016
1213 042020
1214 062026

016637 000002 042070
012616
012037 042072
001015

1216 oazogz 002411

WRT.RP: MOV

MOV
MOV
MOV
BNE

1223 0462060 063737 034502 042072
1227 0462074 013746 034502
1228 042100 062716 000010

1239 042144

1240 042146
1241 042150
1262 042152
1243 042154
1264 0462156
1245 042160

1246 042162

1247 042164

}523 042166

1$:

032726 000010
001416
016037 177776

042160

18:

*YES==DON'T GET THE OLD A16 & A17, & PSEL

SWAB
BIC
MOVB

(SP)
#°C7,(SP)
(SP)+,WRT.WD+1

:1S THE COMMAND FOR DATA TRANSFERS?

*NO=-=COMBINE A168A17, & PSEL WITH
*THE COMMAND BEFORE SENDING IT TO

*THE RH11/RP04

RPADR.WRT.AD

:FORM THE ADDRESS OF THE DISK REG.

MOV
ADD

RPADR, = (SP)
#RPCS2, (SP)

:PUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF RPCS2

BIT
BEQ
MOV

#BITO03, (SP)+
WRT.R%
-2(R0),18

BIT
BNE
JSR
RPER1
WRT.R3

042142

:SAVE THE WORD TO WRITE
*ADJUST THE STACK
:GET INDEX OF REGISTER TO BE WRITTEN
*BRANCH IF NOT RPCS1

RO,RD.RP

ADD

:MAX RETRYS ALLOWED

2(SP) ,WRT.WD
(SP)+,(SP)
(RO)+,WRT.AD
18

JSR
RPCS1

WRT.R1: MOV
WRT.WD: .WORD
WRT.AD: .WORD

041626

MCPEMX ,WRT.R2

#150,WRT.WD

WRT.R
177770
042071

:ERROR FREE RETURN

CMPB

BLT

1219 042044 042160

1234 042122
1235 062126
1236 062130

RETURN

SEQ@ 0176

JSR
LWORD

WRT.R3

(PC)+,a(PC)+
O
0

oemg.a(smo
WRT.R
RO,RD.RP

RO,RD.RP
0

:LOAD THE DESIRED REG.
*WORD TO WRITE GOES HERE
*ADDRESS IS FORMED HERE

*CHECK THE °NED® BIT
JBR IF DRIVE NON-EXISTENT
JCHECK FOR PARITY ERROR ON WRITE

.
=
:BRANCH IF ‘PAR=0
:PICKUP THE INDEX
*READ THE REG.
*REG. INDEX

*RETURN TO THIS ADDRESS ON ERROR

104004
005327
000003
002344
005726
011000

EMT
DEC
WRT.R2: .WORD
BGE
TST
WRT.R3: MOV

4
(PC)+
3
WRT.R1
(SP)+
(RO) ,RO

:DECREMENT THE ERROR COUNT
JRETRY COUNTER
2TRY AGAIN IF NOT FINISHED
;CLEAN OFF THE STAZK
*TAKE THE 'PARITY ON WRITE'* ERROR EXIT

005720

WRT.R4: TST

(RO)+

JADJUST FOR ERROR FREE EXIT

000401

B8R

000200

WRT.RS: RTS

WRT.RS
RO

SEXIT

}gg

;ROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14

1252

JCALL

1253
}5%

:
:

1256 042170
1257 062172
1258 042174

101.415
00570
001430

1260 042202

111264

1259 042176

MOV
JSR

SVRH11: SAVREG
ST
BEQ

:DPB POINTER TO R2
:SAVE THE DRIVES REG'S

R2
4

:SAVE RO - RS
*QUEUE ENTRY FOR THE DRIVE ?
*BR IF NONE

013704

034502

1261 0462206

016203

000014

MOV

14(R2) .R

;gsr THE ERROR TABLE POINTER

1263 0462214

005037

ol.szso

CLR

*COUNTER & POINTER

1262 042512 001433

MOV

#DPBNUM, R2
PC.SVRHI1

000010

1264 042220 023727 042250 000022

MOVB

BEQ

18:

CMP

RPADR,
R4

(R2) m§2(w

$.#RPDB

:SELECT DRIVE

SEXIT IF NO ADDRESS

*REACHED THE BUFFER REGISTER ?

1265 04
1%69 04
1267 9%
1268 04 242
1269 042242
1270 04%%46
1271 042250
127% 062252
127 04%254
1276 042256
1275 042264
1276 045%66
1277 042274
1278 042276
1279 042302
1280 042
1281
1282
1283
1284
1285
1286
1287
1288 042306
1289 042310
1290 042314
1291 042320
1292 042322
1293 042326
1296 042330
1295 042334
1296 042342
1297 042344
1298 042346
1299 042350
1300 042354
1301 042356
1302
1303
1304 042360
1305 042361
1306 06236%
1307 04236
1308 042364
1309 042365
1310 042366
1311 042367
131%
131
1314
1315 042370
1316 042372
1317 042374
1318 042376
1319 042400
1320 045402
1321 0424046

001006
032764
00100§
00502
000405
004037
000000
042276
01%623
023727
001406
062737
000751
004737
104413
000207

SEQ 0177

/5/6 DRIVER (REV 1.0)

000200

000010

041626

gs:

042250 000046 4S:
000002 042250
036742

58:

68:

BNE
BIT
BNE
CLR
BR
JSR

2
:BR IF NOT
#BITO7 ,RPCS2(R4)" :'OR' SET ?
2
:BR IF SET
(R3)+
:STORE RPDB AS ZEROES
4
* CONT INUE
RO,RD.RP
*READ THE SELECTED REGISTER
0

*REGISTER INDEX

MOV
CMP
BEQ
ADD
BR

(SP)+, (R3)+
33, #RPEC2
6%
42,38
18

*STORE THE REGISTER CONTENTS
*REACHED THE END ?
:BR IF YES
: INCREMENT THE REGISTER INDEX
:CONTINUE READING THE REGISTERS

.WORD
5s

JSR

RESREG

RTS

PC.CI7
PC

*ERROR RETURN ADDRESS

:PROCESS THE UNCORRECTABLE PARITY ERROR
*RESTORE RO = RS

*RETURN

‘22{’{"‘5 TO SET THE INTERRUPT WITHOUT GETTING A '‘TRE"’

:
;
010446
013704
010164
011446
052716
000316
112714
032764
001002
005726
0
112664
012604
000207
000
000
000
000
000
000
000
000

034502
000010
040000
000100

010000

000001

MOV

#DRVNUM,R1

:DRIVE NUMBER TO R1

Ré,=(SP)

:SAVE Ré

;gr

SCLEAN OFF THE STACK

MOVB
MOV

(SP)+.,1(R&)
(SP)+.R4

:CLEAR “‘TRE"
*RESTORE R4

:DRIVE 0

JSR
RE TURN

SET.IE: MOV

PC,SET.IE

SSET

"IE"

MOV
RPADR, R4
*PICKUP ADDRESS OF RPCS1
MOV
R1,RPCS2(R4)
:SELECT DRIVE
MOV
(R&) ,=(SP)
*READ RPCS1
BIS
#8I1Ti4, (SP)
*SET THE "'TRE'* BIT OF THE WORD READ
SWAB
(SP)
:ADJUST FOR DATO
MOVB #BIT06, (R4)
:SET
“IE"
BIT
#BIT12,RPCS2(RG) ;1S 'NED''=12
BNE
18
:YES==CLEAR “'TR

000010

18:
28:

RTS

:QUEUE COUNT

QCNT:

.BYTE

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
0
0

*RETURN TO CALLER

*DRIVE
*DRIVE
:DRIVE
:DRIVE
SDRIVE
*DRIVE
*DRIVE

1
g

&
S
6
7

;QUEUE INPUT POINTERS
042452
042472
042512
042532
045555
04257
042612

QINPT:

.WORD

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

QDRVO

QDRV1
QDRV
QDRV
QDRV&
QDRVS
QDRV6

’626 MACRO V04.00 5-NOV=-81 09:16:17 PAGE 32-52

CZRJDEO RP04/5/6 MLT-DR
SINGLE/DUAL PORT RH11/R

:DRIVE 0

:DRIVE
*DRIVE
*DRIVE
*DRIVE
*DRIVE
:DRIVE

1
g

&
S
6

CZRJDEO RP04/5/6 MLT=DR LGC MACRO VO04.00 S-NOV=-81 09:16:17 PAGE 32-53

SEQ 0178

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

042406

0462632

.WORD

}§§§

042452
042472

1329 042416
1330 042420
1331 0462422
1332 042426

042532
042552
042572
042612

1335 042430
1336 042432
1337 062434
1338 042436
1339 062440
1340 042442
1341 042444
1342 0424646
}fif 042450

QOUTPT:

.WORD
.WORD

QDRVO
QDRV1

:DRIVE 0
*DRIVE 1

0462632

.WORD
.WORD
.WORD
.WORD

.WORD

QDRV
QDRV%&
QDRVS
QDRVé

QDRV?7

*DRIVE
:DRIVE &
*DRIVE §
*DRIVE 9

*DRIVE

042452
042472
042512
042532
042552
042572
042612
042632
042652

QSTART: .WORD
QSTOP:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

QDRVO
QDRV1
QDRV2
QDRV3
QDRV&
QDRVS
QDRV6
QDRV?7
QTERM

sDRIVE O START ADDRESS
:DRIVE O STOP ADDRESS & DRIVE 1 START ADDRESS
:STOP DRIVE 1=-=START DRIVE
sSTOP DRIVE 2=-=START DRIVE
:STOP DRIVE 3==START DRIVE &
:STOP DRIVE 4==START DRIVE S
2STOP DRIVE 5=-=START DRIVE 6
:STOP DRIVE 6==START DRIVE 7
:STOP DRIVE 7
-

1328 o:.%w. 042512

.WORD

QDRV

}gzz

;DRIVE REQUEST QUEUES

1347 042452
1348 062472
1349 042512
1350 042532
1351 042552
1352 042572
1353 042612
1354 042632

QDRVO:
QDRV1:
QDRV2:
QDRV3:
QDRV4:
QDRVS:
QDRV6:
QDRV7:

ggg

:DRIVE 7

:QUEUE OUTPUT POINTERS

1326 0462410
1327 062412

} %2 0462626

QDRV?

042652

QTERM=.

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

*DRIVE g

10
10
10
10
10
10
10
10

}gg;

JROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1359

+CALL

}3329

1362 042652

1363 042654

3
104412

012702

1364 042660
1365 0462662
1366 042664
1367 042666

005022
oosog
0050
00502

1370 042700

ong

137§ 062706
137 ol.zrog
1374 062712
1375 msm

001375
012703
012701
mgnz

042360

1368 0462670 01570 000010
1369 ol.sm 012701 042430
1371 ol.groz 00530

1376 042720

005303

1377 01.3722 001375
1378 042724

104413

000010
042430

JSR

CLRQUE: SAVREG

MOV

#QCNT,R2

MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV

#8. .R3
#QSTART,R1

BNE

CLR
CLR
CLR
CLR

18:

2s:

PC.CLRQUE

DEC

RESREG

:SAVE RO = RS

:2ERO ms QUEUE COUNTS

(R2) +
(R2) +
(R2)+
(R2)+

*DRIVES
*DRIVES
SDRIVES
*DRIVES

(R1)+, (R2)+

*THE QUEUE INPUT POINTER

13
#8. .R3
#0START,R1
(R1)+,(R2)+
R3

0 & 1
2 & g
& &
6 & 7

:MOVE THE STARTING
*ADDRESS OF THE QUEUE INTO
:MOVE THE STARTING ADDRESS
:OF THE QUEUE INTO THE
*QUEUE OUTPUT POINTER
:RESTORE RO = RS

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 32-54

SEQ 0179

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

}% 042726

000207

RTS

}333}

;EMPTY THE QUEUE SPECIFIED BY R1

1383
1384

:CALL
:

}3332

1387 042730
1388 042734

105061
006301

1390 042744

006201

1389 042736 016161

gg; 042746

042360

042370

042410

MOV

JSR

EMPTYG: CLRB
ASL

MOV

ASR

000207

RTS

DRVNUM,R1

:DRIVE NUMBER TO R1

QCNT(R1)
R1

;CLEAR NUMBER OF ITEMS IN QUEUE

PC,EMPTYQ

QINPT(R1),QOUTPT(R1) :SET OUTPUT QUEUE POINTER=INPUT POINTER

R1
PC

}%g;.

:ROUTINE TO PUT A REQUEST IN QUEUE

1395

*CALL

1397

1396

1398

1399

#DRVNUM,R1

:DRIVE NUMBER

JSR

RO, DRVQUE

:G0 PUT REQUEST IN QUEUE

122761
001421
105261
006301

1406 062766
1407 0462772
1408 043000
1409 043006
1410 043010

010271
062761
026161
001003
016161

mz 043022

000200

1411 043016
1412 043020

MOV

}2811)
1402 042750
1403 042756
1404 0462760
1405 042764

006201
005720

000010

042360

042370
000002
042370

042370
042432

042430

042370

MOV

RE TURN1

#DPB,R2

RE TURN2
#10,QCNT(R1)
2s
QCNT(R1)
R1

18:

R
(RO)+

2s:

ASR
ST

RTS

*RETURN HERE IF QUEUE IS FULL

*RETURN HERE IF REQUEST IS IN QUEUE

DRVQUE: CMPB
BEQ
INCB
ASL

MOV
ADD
CMP
BNE
MOV

*ADDRESS OF PARAMETER BLOCK

;IS QUEUE FULL?
:BR IF YES=TAKE RETURN1
< INCREMENT QUEUE COUNT

R2,3QINPT(R1)
;PUT THIS REQUEST IN QUEUE
#2.QINPT(R1)
:UPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER
18
:BRANCH IF NO
QSTART(R1) ,QINPT(R1) ;YES=-RESET POINTER
RO

:TAKE RETURN 2

*RETURN TO USER

;ROUTINE TO GET THE ‘DPB'* ADDRESS OF NEXT REQUEST IN QUEUE

1417

*CALL

1419

1418

1420
}g}

005002
105761
001404
006301

1428 0463042

006201

}2233 043044

MOV

RETURN

1423 043024
1424 043026
1425 0463032
1426 043034

1427 043036

017102
000207

042360

042410

JSR

GETREQ: CLR
TSTB
BEQ
18:
ASL

2s:

#DRVNUM, R1
PC,GETREQ

:DRIVE NUMBER TO R1

:60 GET THE REQUEST

*R2="DPB'*

R2
QCNT(R1)
2$
R1

;1S THERE ANY REQUEST IN QUEUE?
*NO=-=-BRANCH

MOV

@Q0UTPT(R1)
,R2 ;PICKUP ‘DPB'* POINTER FOR THIS DRIVE

RTS

ASR

;RETURN TO USER

}33

:ROUTINE TO 'POP'* THE REQUEST FROM QUEUE

1433

*CALL

1435

1434

ADDRESS OF THE REQUEST

:R2=0 IF NO REQUEST IN QUEUE

MOV

JSR

£DRVNUM,R1
PC,POPQUE

;DRIVE NUMBER TO R1

:CALL TO REMOVF REQUEST

1436
1437
1438 043043
1439 04305
1440 043054
1441 043060
144% 043066
1443 043074
1444 043076
1445 043104
1446 043106
1447

-0~

wo
—~

RJDEO RP04/5/
NGLE/DUAL POR

MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-55

SEQ@ 0180

RH11/RP04/5/6 DRIVER (REV 1.0)

;R2=ADDRESS OF DPB REMOVED

RETURN

105%61
006301
017102
062761
026161
001003
016161
006201
000207

0462360

POPQUE:

0462410
000002
0462410

042410
042432

0462430

042410

ggNT(R1)

sDECREMENT QUEUE COUNT

@Q0UTPT(R1) ,R2

;GET THE 'DPB'‘ POINTER

#2,Q0UTPT(RT)

:UPDATE THE QUEUE POINTER

QOUTPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER?
1$
:NO==BRANCH TO EXIT

g?TART(R1).OOUTPf(R1) sYES==RESET THE POINTER
PC

¢cRETURN TO USER

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 33

SEQ@ 0181

DATA, CONTROL, & STATUS BLOCKS

.SBTTL

000001

b e

SFMT

SCOMND
SPSEL
SWRDM
$BUF
$SEC
$TRK
$CYL
SREG
$TATUS

=
=
=
=
=
=
=
=
=

SFMT+1
SFHTO%
SFMT+
SFMT+5
SFMT+7
$FMT+10
SFMT+11
SFMT+13
SFMT+15

sFMT HCI.ECI OR OFFSET CODE

:OPERATION CODE

fi;
SELECT

BITS A16 A17

BUFFER ADDR OR REGISTER TABLERPOINTER

:SECTOR ADDRESS OR 1ST REG AD

s TRACK ADDRESS OF LAST REG ADDR
sCYLINDER ADDR
sREGISTER STORAGE (IF ERROR)
sSTATUS WORD (SET BY DRIVER)

sDRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES
000020
000022
000024
26

NN WA

= OV

N N W AN N NI N PO NI NI NINI N = = e ed e e

DATA, CONTROL, & STATUS BLOCKS

sBLOCK LOCATION EQUATE STATEMENTS

VS WN = O VOOV
NN

SWRDL
$SSEC
$CODE
$PACK
$PREVO
SPATTC
SPREVA
S$OPERC
$POSIT
$STRANS
SREAD
$TOTAL
$SOFT
SHARD
$5K1
SMISPO
$PASSC
$FAIR

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

SFMT+17
SWRDL +2
SWRDL +4
SWRDL
+6
SWRDL +7
SWRDL+10
SWRDL+12
SWRDL+16
SWRDL +22
SWRDL +26
SWRDL +32
SWRDL +36
SWRDL +40
SWRDL +42
SWRDL +44
SWRDL +46
SWRDL +50
SWRDL +52

sWORD COUNT (NOT 2°'S COMP)
sSECTOR SIZE FOR CURRENT OPERATION
sPRESENT COMMAND SELECTION CODE

sWRITE DATA PACK INDICATOR
sPREVIOUS COMMAND SELECTION CODE
sPATTERN CODE
sPREVIOUS ADDRESS = TRACK, SECTOR, CYLINDER

sOPERATION COUNT
s SEEK COUNT

sTOTAL BITS XFERED COUNT (R & W)
:TOTAL BITS READ COUNT
:TOTAL ERRORS (ALL TYPES) COUNT

:'SOFT' ERROR COUNT

: "HARD® ERROR COUNT
$'SKI* OR *OCYL® ERROR COUNT

:PROG DETECTED MISPOSITIONING ERROR S COUNT
:PASS COUNTER

;OPERATION QUEUE 'FAIRNESS' COUNT

INDEX EQUATES TO THE NEXT OPERATION PARAMETERS

SNCODE

5 8N B

SNPATC

SNSEC

SNTRK
SNCYL
SNWRDL
SNEXT

=
=
=
=

SWRDL +54

SNCODE +1

sNEXT OPERATIW CODE
:NEXT PATTERN

SNCODE +
SNCODE +4
SNCODE +6
SNCODE+10

:NEXT BUFFER SIZE
:PARAMETER SELECTION INDICATOR

SNCODE *%

:NEXT SECTOR
INEXT TRACK

sNEXT CYLINDER

NOO&NO&
POND
b b wd b

(=l
o
o

—_——d
e
2

38383888
88888

s INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES
MAXCYL
MINCYL

MAXTRK
MINTRK

MAXSEC
MINSEC
$FIRST

=
=
=
=
=
=

SNCODE+12
MAXCYL +2
MAXCYL +4
MAXCYL +6
MAXCYL+10
MAXCYL+12

MAXCYL+14

sMAXIMUM CYLINDER ADDRESS
sMINIMUM CYLINDER ADDRESS
HAXIM TRACK ADDRESS

:FIRST OPERATION INDICATOR

;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE

N 14
CZRJDEQ RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV<81 09:16:17 PAGE 33-1

SEQ@ 0182

DATA, CONTROL, & STATUS BLOCKS

58
59
60
61
62
63
64
65
66
67
68
69

000124

$BDSEC

MAXCYL+16

;BAD SECTOR STORAGE TABLE

;DRIVE ID AREA INDEX EQUATE
000224

$DRVID

$8DSEC+100

sDRIVE ID

;RH11/RP04/5/6 REGISTER EQUATES
000234
000236
000240

70
71
72
73
74
75

$RPCST1
SRPWC
SRPBA
$RPDA
$RPCS2
$SRPDST1
SRPER1

000242
00024«
000246
000250
000252
00025

76
77
78
79
80
81
82
83
84
85
86
87
97

$RPAS

SRPLA
SRPDB
SRPMR
SRPDT
$SRPSN
SRPOF
SRPCA
$RPCC_
SRPER2
$SRPER3
$SRPEC1
SRPEC2

000256
000260
000262
000264
000266
00027
000272
000274
000276
000300

000302

=
=
=
=
=
=
=

=
=
=
=
=
=
=
=
=
=
=
=

$DRVID+10
$SRPCS1+2
SRPCS1+4
SRPCS1+6
$RPCS1+10
$SRPCS1+12
SRPCS1+14

sRP04 REGISTER STORAGE

SRPCS1+16

SRPCS1+20
S$RPCS1+22
SRPCS1+24
$SRPCS1+26
$SRPCS1+30
SRPCS1+32
SRPCS1+34
SRPCS1+36
SRPCS1+40
SRPCS1+42
SRPCS1+44
SRPCS1+46

:BLOCK FOR DRIVE 0
043110

043112
043124
043126

000

DRIVEO:

043344

.BYTE
BLKW

.WORD
.BLKB

0.0
S

:DRIVE NUMBER

. +SRPCS1-$REG
$RPEC2-SREG

;BLOCK FOR DRIVE 1
043414

001

3430
043432

043650

000

DRIVE1:

.BYTE

-WORD

.BLKB

}.o

:DRIVE NUMBER

.+SRPCS1-SREG

$RPEC2-SREG

;:BLOCK FOR DRIVE 2
043720
043722
043734
043736

002

044154

000

DRIVE2:

.BYTE
-BLKW
«WORD

.BLKB

g.o
.+SRPCS1-SREG

SRPEC2-SREG

;BLOCK FOR DRIVE 3

:DRIVE NUMBER

—

CZRJDEQO RPO4/5/6 MLT=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 33-3

SEQ 0183

DATA, CONTROL, & STATUS BLOCKS

044224

003

044 4(2)

044460

000

DRIVE3: .BYTE

.BLKW

.WORD
.BLKB

g,o

;DRIVE NUMBER

.*SRPCS1-SREG
SRPEC2-SREG

;BLOCK FOR DRIVE &
DRIVE4:

044544

0464764

.BYTE

.BLKW
.WORD
.BLKB

4.0

5
.*SRPCS1-SREG
SRPECZ2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE S

045034

045036
045050

005

000

DRIVES: .BYTE
.BLKW
.WORD
.BLKB

045270

5.0
S
.*SRPCS1-SREG
SRPE(C2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 6
DRIVE6:

045574

.BYTE
.BLKW

.WORD
.BLKB

6.0
5

;DRIVE NUMBER

.*SRPCS1-3REG
SRPE(C2-SREG

;BLOCK FOR DRIVE 7

045644

007

045660

046100

000

DRIVE7: .BYTE
.BLKW
.WORD
.BLKB

7,0
5
.+SRPCS1-SREG
SRPEC2-SREG

;DRIVE NUMBER

:GENERAL PURPOSE DPB = USED BY 'READHD', °"RECALT®, "OFFSET',L'RTNCTR'
046150
&2160

000000
000000

177774
046170

GENDPB:

.WORD
WORD

GENREG: .BLKW

0,0,-4,CYLDER
0,0,GENREG,0

sREGISTER STORAGE IF ERROR

CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 34
ERROR MESSAGES
‘12

3 0‘6%’60
& 046303
5 046341
6 046377
7 046434
8 046470
9 046532

1%2
125
115
115

10 046575
11 046630

101
122
125
106
120

14 046756
15 047012

116
110

1% 046661
13 046733
16 047033
17 047064
18 047137
19 047216
20 047264

21 047345
22 047372
23 047427
24 047461
25 047524
26 047557
27 047634
28 047676
29 047734
30 047765
37 050047
32 050105
33 050151
34 050232
35 050277

50363

37 050451
38 050523
39 050612

117
104
104
127
127
110
110

106
110
115

117
104
120
127
11
127

104

EM13:
EM14:

.ASCIZ
.ASCIZ

/OPERATION NOT COMPLETED WITHIN TIME LIMIT/
/DRIVE WENT OFFLINE/

.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/DATA CHECK ('DCK') ERROR/
/WRITE CHECK ERROR = DATA CHECK (°DCK') SET/
/WRITE CHECK ERROR = DATA CHECK (°'DCK') NOT SET/
/HEADEP READ ERROR - °FMT' BIT DROPPED/
/HEADER READ ERROR - HEADER COMPARE (°HCE') ERROR/

117
105

040
101

EMI5:
EM20:

.ASCIZ
.ASCIZ

117
105
m

122
101
123

EM26:
EM27:
EM30:

.ASCIZ
.ASCIZ
.ASCIZ

120
122
101
122
122
105
105

120
122
101
122
116
122

101

105
111
126
111
111
101
101

105
111
122
111
126
111

126

EM21:
EM22:
EM23:
EM24:
EM25:

EM31:
EM32:
EM33:
EM34:
EM35:
EM36:

EM37:

122
102
104
103
105

110
125
101
101
122

061
123
126
116
122

10%
12
120

125
105
122

123
105
117

EM46:
EM50:
EM51:

101

105
127

105

103

122

120

122
122

120
120

104
104
104
044
104

122
122

53
54 051332

001244

56 051354
57 051364

001242
001242

55 051336

/RH11 INTERRUPT OCCURRED (RPAS = 0)/
/UNEXPECTED ATTENTION OCCURRED/
/MASSBUS PARITY ERROR (MCPE=1)/
/MASSBUS PARITY ERROR (PAR=1)/

126
122

42 050700

50 051232
g} 051261

LASCIZ
LASCIZ
LASCIZ
LASCIZ

101
105

104

48 051122
49 051162

EMI:
EM2:
EM3:
EM4:

EMS:
EMé6:
EM10:
EMI1:
EM12:

2? 050655

43 050705
46 050762
45 051010
46 051047
47 051056

ERROR MESSAGES

061
105
‘l?.g
123

106
061
103

001245

122

122
122
122
122
122

120
120

034334
041652
042072

103
111

111
111
111
120
126
104
123

034336

041654
042070

SEQ 0184

.SBTTL

110
116
101
101

104
110
116

c15

EM40:
EM41:
EM42:
EM43:
EM44:

EM4S:

+ASCIZ
«ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ
ASCIZ
.ASCI7
_ASCIZ
.ASCIZ
ASCIZ

.ASCIZ

.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ

.ASCIZ

/ADDRESS PLUG CHANGE BIT SET/
/RH11 DIDN'T RESPOND TO ADDRESSING/
/UNCORRECTABLE MASSBUS PARITY ERROR/
/FATAL MASSBUS PARITY ERROR/
/PERSISTENT DEVICE UNSAFE/

/NO RESPONSE TO PORT REQUEST/
/HEADER CRC ERROR/

/FORMAT ERROR ('FER')/
/HEADER COMPARE ('HCE') ERROR/
/MISCELLANEOUS DRIVE ERROR/

/OPERATION INCOMPLETE (°OPI') ERROR/
/DRIVE TIMING ('DTE') ERROR/
/PARITY (°PAR') ERROR AFTER OPERATION STARTED/
/WRITE CLOCK FAILURE (°WCF') ERROR/
/INVALID ADDRESS ('IAE') ERROR/
/WRITE LOCK (°WLE') ERROR/

/DATA CHECK (°DCK') SET DURING WRITE CHECK COMMAND/

/RH11 OR UNIBUS TRANSFER ERROR/
/RUS ADDRESS OR WORD COUNT INCORRECT/
/DATA COMPARE ERRORS = NO OTHER ERROR(S) DETECTED/
/CAN'T MATCH DATA READ WITH A PATTERN/
/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11/

/ECC LOGIC FAILURE - POSITION REGISTER VALUE TOO LARGE/

.ASCIZ
.ASCIZ
_ASCIZ

/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/
/SEEK INCOMPLETE ('SKI') OR OFF CYLINDER ('OCYL') ERROR/
/PROGRAM DETE-TED POSITIONING ERROR/

DH1:

.ASCIZ

/RPAS/

DH15:

.ASCIZ
.ASCII

EM60:
DH2:
DH3:
DHé:
DH6:
DH14:

.ASCIZ

/DRIVE UNSAFE ERROR/

.ASCIZ
.ASCIZ
+ASCIZ
<ASCIZ
.ASCII

/DRIVE
RPDS1
RPER1T
RPER2
RPER3
/DRIVE
REG ADR DATA/
/DRIVE
REG ADR
GOOoD
BAD/
/SRPADR/
/DRV RPCS1
_RPCS2
RPDS1
RPER1
/

DH16

.ASCIZ
.eeg'l‘l

/RPDB
/RPSN

.WORD

DT
DT4

.WORD
.WORD

DT%

/RPER2
/RPWC

RPER3
RPBA

RPMR
RPOF

RPEC1
RPDA

RPEC2/<CR><LF>
RPAS
RPLA

RPDT/<CR><LF>
RPCA
RPCC

ATTN,O

RPAS/

STATUS/<CR><LF>

.WORD DRIVE ,RPERRS,RPERRS+2
,RPERRS+4 ,RPERRS+6 ,ATTN,0
DRIVE,RD.ADR,RD.WRD,0
DRIVE ,WRT.AD,WRT.WD,RD.WRD,0

SRPERT, SRPER2, SRPER3, SRPE

/PRESENT ORDER = /
/ PREVIOUS ORDER = /
@* ERROR AT BAD TRACK/SECTORa
/ERROR AT C/
/ 1/
/PRESENT ADDR
¢/
/ S/
/__
PREV ADDR
¢/
/START CYL =/
/
END CYL =/
/ ACTUAL CYL =/
/
TRK =
RPBA
/ RPWC = /
/START TRK
/START SEC
/BUFFER ADDR = /
/
SIZE =/
/
ACTUAL NMBR WRDS XFRD = /
/GOOD DATA = /
/ BAD DATA = /
/
SECT POS = /
NN

—

NI N NSNS N NN N N N N N N NI N N NI N N N N N N NN N N N N N N N N N N N NN
e NSNS
e N N NS N NG N
eN

lalal ale]

alalaslslaslalalislalelely)

>>
>>» > g nn
peebbbbbbbbbin
Luhhuhhuhhuvuhunuvnnhnvn
» wnn

L
.

NOONOONOONO=ONOOONO

SEQ 0185

SRPWC , $RPBA, SRPDA, SRPAS , SRPLA, SRPDS, SRPMR . SR
SRPSN, SRPOF . SRPCA. SRPCC.STATUS,0

NNOOO
N
OONONO
~N ASIIRREINEISESTURISUK22NR R OfN=WVN=00VionVOwn

&~
ONO

S22

$RPADR,
0
SRPCS1.SRPCS2, SRPDS1,

e e R ]
e e
e
R
I
R
R
e I
T
e
I
d

R
R OON=NHONOO
WWNONNOWVIS
WO &

b e

NI NVIVMNIOWVMOONOOWMS SHFOO0OONOOOHNOWNSNOON

838
'—G &”\JN
I NIRRD B I
B I B
8 R IR B TR
Ra= R R ROINR o= O OMNID R I
b
b
e
e

123
102
040
040
107
040
040
110
122
040
123
123
103
040
125
040
117
040
040
040
040
040
104
104
040
114
114
124
124
105
040
105
105
105
101

80 052011
81 052026
82 052045
83 052057
84 052112
85 052127
86 052145
87 052163
88 052217
89 0522
90 05224
91 052275
92 052324
05234
96 052353
95 052400
96 052426
97 052436
98 052456
99 052505
100 052517
101 052533
102 052550
103 052605
104 052634
105 052661
106 052710
107 052727
108 052757
109 053005
110 053041
111 053101
112 053143
113 053205
114 053234

040
123
040
040
040
040
122
122
040
123

70 05162
71 051646
72 051663
73 051700
74 051720
75 051731
76 051742
77 051752
78 051762
79 051774

120

040
052
105
040
120
040

64 05150
65 051527
66 051563
67 051576
68 051601
69 05162%

2% 05146%

O ON) =N\ b b e b
WWN=NO NN NO = =000 N MO

001170
0002
0002
000264

58 051376
59 051402
60 051426
61 051446

D15
CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 34-1
ERROR MESSAGES

/HEADER FROM ERROR SECTOR = /

/RPECT1 = /
/ RPEC2 = /
/SECTOR IS ECC CORRECTABLE /
/SECTOR _READ CORRECTLY /
/CORRECTED ON /
/ RETRIES/
/UNCORRECTABLE AFTER /
/__TOTAL MISPOS ERR = /
/ORDERS
:/
/ TOTAL SEEKS = /
/ TOTAL SKI,OCYL ERR = /
/
ERRORS:/
/ WRDS XFR:/
/_WRDS READ:/
/DIFFERENT ERROR DURING RETRY/
;DATA COMPARISON ERRORS/
BAD/<CRLF>
GOOD
/L0C
DATA
DATA/<CRLF>
DATA/<CRLF>
/L0C
/TOTAL COMPARE ERRORS = /
/THE DATA COMPARED OK/<CRLF>
/ERROR BURST BEGINS AT WORD /
/_IN DATA FIELD OF ERROR SECTOR/<CRLF>
/ERROR WAS NOT IN THE DATA READ - /<CRLF>

/ECC CORRECTION CAN'T BE PERFORMED/
/ECC CORRECTION RESULTS/<CRLF>
/ADDR
BAD
CORRECTED /<CRLF>

SRPEC2,0

CoOO—=W

RRRss

/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 34~
116
104

LINTTH:

.ASCIZ
+ASCIZ

LINGSP: ASCII
LINSP:
.ASCII
LINSPO: .ASCIZ

/CONTENTS OF ERROR SECTOR (REPORTED ABOVE)/<CRLF>
DATA/<CRLF>
;ADBR
//
/ 7/

SEQ 0186

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 35

F15

SEQ 0187

-NO

S SR
e
o
L
R

e NI NI NI

e
e e
e
R

e N NG N N N N N NG NG N NS N N N N N N NN N N N N B

e e R

alalnlals)« a2lala] (=] lale

g!flb)fl»)
nunururnun nhnnnn 37 nhnn (7] 37
(7171717

-ASC

)&p&- >
>

80
0
&
8
&
o

>e>>»

MM alalalalalsl
s L el R el el R e

(=TSN
V1. 3

— D) =
b
b
e
e
d
b
e
e
b
e
—

NI NI N NI NI NI NI N N

S
e
e
D

T
R
S e R A
N

33
b

RP04B:

RPOS:
RPO6:
STATHD:

2 NOWVIN)
-

b cd e wd b d

NOTAVL:
NOTSAF
SYSTAT:

==
S~OSOON

S SN

200

LASCIZ
.ASCIZ

W= =ONO
—SPNIN=OASO—=

—

b e

3723

—
b b
md () =t emd (T D b ek b et
L R
e
e T R
e R
R
e e R
IR DR
)
NN
— b b O
— Db
O =
VIO O =2 N =2 =3 NININININ) =2 ) = b e © =t = = NN
SO=ONNNS
oONVONVNONO ONW NS VO NN NNINOOOO
VOOV =0 NINNON

NNDVOOOO0O0O0O0O0

e wd

AV IV VI A

R R RRRR &
o8 KRUKKN RN

YW
w

VNN — bg
iU!N\flvl&g-.

TELETYPE MESSAGES
<CRLF>/WARNING: PROGRAMMABLE DRIVES MAY BE USED/<CRLF>

;DS?eggkflflkflLE°DR1VE WILL NOT BE USED/
/
NE/
/ NOT BEING TESTED/
/ ALREADY BEING TESTED/

@ NOT AN RP04/5/6@
UNSA

/UNIT STATUS:/<CRLF><LF>
RPO4/

/RP0S/
/RP06/

/DRIVE PERFORMANCE SUMMARY/< ALF>
/DRY PASS ORDERS
SEEKS
WRDS XFER
/SOFT HARD
SKI MISP OTHER/<CRLF>
/DONE/<CRLF><LF>
<07>/?FATAL OR EXCESSIVE ERRORS/
/END OF PASS/

<CRLF>/txxxxxnnnx DRIVE #/
/ STARTED/<CRLF>

;C7LF>/? L' OR °P' CLOCK REQUIRED ON SYSTEM/<CRLF>
/?/
/INVALID COMMAND/<CRLF>
<CRLF>/ENTER COMMANDS: /
/ENTER 1.D. FOR DRV #/

<CRLF>/ENTER ADDRESS LIMITS FOR DRV #/
?E’TER BAD TRK/SEC ADRS FOR DRV #a

<CRLF>/DATE: /
<CRLF>/OPERATOR 1.D.: /
<CRLF><LF>/DRV
DRV I1.D./<CRLF>

/NONE/<CRLF>
/? INVALID ENTRY/<CRLF>
/SYSTEM BUSY.../<CRLF>

<CRLF>/PROGRAM INITIALIZATION COMPLETE/
<CRLF>/TYPE A "CONTROL C' TO ENTER COMMANDS/<CRLF><LF>

ey vendh
) e

mmd e

SEEBEEES

ol e

JEUIHERS

v
wvilvhvwniwnaiunananawng

=lelelelelelele)

BBBDEDED
SN =O—=O
oonNOHNOS

sPARAMETER ENTRY 1ABLE
PARLST:

WRDS READ /

<CRLF>/END OF TEST/
<CRLF>/DRIVE DEASSIGNED/

.EVEN

—SPORIN)
=AY = =

=l=l=lelelelelelelelelelelelelelal"]

—

b o

d e cd

b e

SOONOM&WN-.OOONOV!&W—‘

TELETYPE MESSAGES

PAR1,0,MAXDL

PAR2 =1, INTRVL
PAR19,-1,PASCNT
PAR3, =1, CMPLMT
PART1, 1.WCSEL
PAR14.7.RATIG
PAR16.1.ENDET
PAR10.1.FORMAT

615
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 35-1

SEQ@ 0188

TELETYPE MESSAGES

58 055032
59 055040
g? 055046

055221
055245
000000

000001
000001

001424
001426

.WORD
.WORD
WORD

62 055050
g} 055074

105
040

116
c57

124
040

ASKPAR: .ASCIZ
SLASH:
.ASCIZ

/ENTER PARAMETERS:
a8/ @

65 055100
66 055106
67 055115
68 055124
69 055133
70 055142
71 055151

115
11
103
115
115
115
115

101
116
115
101
m
101
1M

130
126
120
130
116
130
116

PAR1:
PAR2:
PARS:
PAR4:
PARS:
PAR6:
PAR7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/MAXDL/
/INTRVL/
/CMPLMT/
/MAXCYL/
/MINCYL/
/MAXTRK/
/MINTRK/

76 055213

122

101

126

PAR14:

.ASCIZ

/RATIO/

72
73
74
75

055160
055167
055176
055205

77 055221

78 055230
79 055236
g? 055245

115
115
106
127
101

105
120
116

101
m
117
103
125

116
101
117

130
116
122
123
124

106
123
126

PAR8:
PAR9:
PAR10:
PAR11:
PAR15:

PAR16:
PAR19:
PAR20:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

PAR15,1,AUTOCK
PAR20,1,NOTPRT
0

sTABLE TERMINATOR
/

/MAXSEC/
/MINSEC/
/FORMAT/
/WCSEL/
/AUTOCK/

/ENDET/
/PASCNT/
/NOTPRT/

.EVEN

sPARAMETER TABLE POINTERS FOR ADDRESS LIMITS

86 055254
89 055256
055260
055262
055264
055266
055270
% 055272

055274
055342
055410
055456
055524
055572
055640
055706

TABLE:

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

TABLEO
TABLE]
TABLEZ2
TABLE3
TABLE4
TABLES
TABLEG
TABLE7

sPARAMETER
sPARAMETER
sPARAMETER
sPARAMETER
sPARAMETER
sPARAMETER
sPARAMETER
sPARAMETER

sPARAMETER TABLE FOR ADDRESS LIMITS

101 055274
055302
055310

055133
055126
055151

000000
000000
000022

043220
043216
043224

TABLEO: .WORD
.WORD
.WORD

PARS,0,MINCYL+DRIVEQ
PARG,0_MAXCYL+DRIVEO
PAR7,18. ,MINTRK+DRIVEQ

055342
055350
055356
055364
55372
055400

055133
055126
055151
05514;
055167
055160

000000
000000
000025
000022
000025
000025

043524
043522
043530
043526
0435
043532

TABLE1: .WORD
.WORD
.WORD
. WORD
.WORD
.WORD

PARS,0,MINCYL+DRIVE1
PARG,0,MAXCYL+DRIVE1
PAR7,18. ,MINTRK+DRIVE1
PAR$.1 « JMAXTRK+DRIVE1
PAR .S1..HINSEC¢DR1VE1
PAR8,21.,MAXSEC+DRIVE1,0

055410
055416
055426
055432

0355133
0551;4
055151
055142

000000
000000
000022
000022

044030
0440%6
044034
044032

TABLE2: .WORD
-WORD
.WORD
.WORD

PARS,0,MINCYL+DRIVE
ARG
,0 _MAXCYL +DRIVE
PAR7,18.,MINTRK+DRIVE
PAR6,18.,MAXTRK+DRIVE

055316
0553%4
055332

05514;
055167
055160

000022
000025
000025

043222
043230
043226

.WORD
.WORD
.WORD

PAR6,18. ,MAXTRK+DRIVEQ
PAR9,21.,MINSEC+DRIVEQ
PARS8,21.,MAXSEC+DRIVEOD.O

TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE
TABLE

H15
CZRJDEO RPO4/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 35-2

SEQ 0189

TELETYPE MESSAGES

055440
055446

055167
055160

000025 = 044040
000025 044036

055456
055464

055133
oss1§4

000000
000000

044334
044332

TABLE3: .WORD
.WORD

055500
055506
0555164

oss14;
055167
055160

000022
000025
000025

044336
044344
044342

.WORD
"WORD
.WORD

055472

055151

000022

055526
055532

055133
055124

000000
000000

044640
044636

TABLE4: .WORD
.WORD

055546
0555564
055562

oss14;
055167
055160

000022
000025
000025

044642
044650
044646

.WORD
"WORD
.WORD

055572
055

055133
05512¢

000000
000000

045144
045142

TABLES: .WORD
-WORD

055614
055622
055630

oss14;
055167
055160

000022
000025
000025

045146
045154
045152

.WORD
"WORD
.WORD

055540

055

055151

000022

044340

JWORD
.WORD

044644

045150

055640

055133

000000

045450

055656

055151

000022

045454

55646

055662
055670
055676

102

055124

055142
055167
055160

}gz 055754

000000

}82

055764

000000

000022
000025
000025

000000

045446

.WORD

-WORD

TABLE6:

.WORD

PAR9,21.,MINSEC+DRIVE2
PARB,21..MAXSEC+DRIVEZ,0
PARS,0,MINCYL+DRIVE3
PAR&.0,MAXCYL+DRIVE3

PAR7.18. ,MINTRK+DRIVE3

PAR6,18..MAXTRK+DRIVE3
PAR9.21..MINSEC+DRIVE3
PARB.21..MAXSEC+DRIVE3.0
PARS,0,MINCYL+DRIVE4
PAR&.0.MAXCYL+DRIVE

PAR7.18. ,MINTRK+DRIVE

PARG.18..MAXTRK+DRIVE
PAR9.21..MINSEC+DRIVE4
PARS.21..MAXSEC+DRIVE4,0

PARS,0,MINCYL+DRIVES
PAR&.0,MAXCYL+DRIVES

PAR7.18. ,MINTRK+DRIVES

PARG.18..MAXTRK+DRIVES
PAR9.21..MINSEC+DRIVES
PARS.21..MAXSEC+DRIVES,0
PARS,0.MINCYL+DRIVEG

PAR%.0,MAXCYL+DRIVEG

.WORD PAR7.18. ,MINTRK+DRIVE6

045452
045460
045456

-WORD
"WORD
-WORD

PARG.18..MAXTRK+DRIVE6
PAR9.21..MINSEC+DRIVE6
PARBS.21..MAXSEC+DRIVE6.0

045 754
045
045 760
045
045
045 762

TABLE7: .WORD
.WORD

PARS,0,MINCYL+DRIVE?
PAR&.0,MAXCYL+DRIVE?

000000

CYLDER: .WORD

0.0.0.0

ENDPGM

.WORD PAR7.18. ,MINTRK+DRIVE?
.WORD
"WORD
"WORD

PARG.18..MAXTRK+DRIVE?
PAR9.21. .MINSEC+DRIVE?
PARS.21. .MAXSEC+DRIVE? .0

;HEADER BUFFER FOR 'READHD® ROUTINE
:LAST LOCATION OF PROG + 2

}8;

:gggz:ns TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR

109

}}%

*NOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START

}}g

114 055764
115 055770
116 055772
117 055774
120 056000
056004
056010

104401
104411
012695
112537
112537
115537
112537

056076
001220
001221

001255
0012

JSR

RETURN

OPRDAT: TYPE
RDLIN
MOV
MOVB
MOVB
MOVB
MOVB

PC.,OPRDAT

,ENTDAT
(SP)+,RS
(RS5)+.DATE
(R5)+.DATE+1

(RS)*.DATEfg
(R5)+.DATE+

:"ENTER DATE'
*READ THE ENTRY
:PUT THE ENTRY ADDRESS INTO RS
*STORE THE DATE
-STORE THE DATE
*STORE THE DATE
*STORE THE DATE

CZRJDEO RP04/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE 35-!

SEQ 0190

TELETYPE MESSAGES

056014
056020
056026
0560

112537
112537
112537
112537

121 056034
122 05604C
123 056042
126 0560446
127 056050
056054
05
5
056070
}%g 56074

104401
104411
012605
112537
112537
112537
112537
112537
112537
000207

130 056076

200

}31 056114
32

105

1326
1225
1226
001227

MOvV8
MOovB
MOVB
MOVB

056114

001232
001233
001234
001235
001236
001237
105

116

126

ENTDAT:

ENTID:
.EVEN

(R3)+,DATE +4
(R5)+,DATE+5
(RS)#.DATE*?
(R5)+,DATE+

TYPE
RDLIN
MoV
MOovB
MOVB
MOovB8
MOVB
MOVB
MOVB
RTS

(SP)+,RS
(R3)+,0PERID
(R5)+,0PERID+1
(R5)+,0PERID+2
(R5)+,0PERID+3
(R5)+,0PERID+4
(R5)+,0PERID+5
PC

.ASCIZ

<CRLF>/ENTER DATE: /

.ASCIZ

.ENTID

sSTORE
:STORE
sSTORE
sSTORE

THE
THE
THE
THE

DATE
DATE
DATE
DATE

: "ENTER OPERATOR 1.D.°
sREAD THE ENTRY
sENTRY ADDRESS
sSTORE THE I.D.
;STORE THE I.D.
;STORE THE I.D.
;STORE THE I.D.
:STORE THE I1.D.
;STORE THE I.D.
sRETURN

/ENTER OPERATOR I.D.: /

CZRJDEQ RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 36

J 15

SEQ 019

ROUTINE TO SIZE MEMORY

.SBTTL

056224
056226

012737 056232 000004

005711
005721

056230 000775

056232
056236
056240
056246
056250
056254
056260
056264
056266
056270
056272

162701
010006
012637
012637
012637
012637
010137
012601
012600
000207
000000

000002

000006
000004
000116
000114
056272

18:

::FIRST ADDRESS

28:

MOV
ST
TST

B8R

SUB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

SLSTAD: .WORD

#28 ,QMERRVEC
(R1)
(R1)+

;:SET FOR’ TIMEOUT

$:TEST THIS ADDRESS
$3STEP TO NEXT ADDRESS

::TRY ANOTHER

#2.R1
::DROP BACK
RO,SP
J2RESTORE THE STACK
(SP)+ ,a#ERRVEC+2 ;.RESTORE ERROR VECTOR
(SP)+.3#ERRVEC
(SP)+.a#116
:RESTORE MEMORY ERROR VECTOR
(SP)+.a#114
R1,$LSTAD
::LAST ADDRESS
(SP)+,R1
:RESTORE R1
(SP)+.RO
::RESTORE RO

s ;CONTAINS THE LAST ADDRESS

#20000,R1

MOV

22PUSH OLD PSW AND PC ON STACK
:2SAVE THE PSW IN @#ERRVEC+2

P P o sen P

(SP)+ ,3#ERRVEC+2

TRAP
MOV

;:SET THE ERRVEC PS TO THE PRESENT PS

020000

aN116.=(SP)
116,114
;:1GNORE PARITY ERRORS WHILE SIZING
#RTI. 116
@NERRVEC,=(SP)
;:SAVE PRESENT ERROR VECTOR PS & PC
@NERRVEC+2,=(SP)
SP.RO
2:SAVE THE STACK POINTER

012701

056212

MOV
MOV
MOV
MOV
MOV
MOV

s sen P

056220

2:SAVE MEMORY ERROR VECTOR PS & PC

*3SAVE R1 ON THE STACK

s IR

000006

000114
000116

3"16.-(SP)

S TR

104400
012637

000116
000116
000002
000004
000006

MOY

e s

056204
0562

000114

::SAVE
RO ON THE STACK

R1.=(SP)

e S PR B PN

013746
012737
012737
013746
013746
010600

013746

RO,=(SP)

—

056152
056156
056164
056172
056176
056202

056146

MOV

010146

o—a

$SIZE: MOV

056144

eNe = N o

056142 010046

:#$SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

PC,$SIZE

JSR

RE TURN

N e ol ol o

TN e

—

S *CALL:

;: 1 333333323333 2323 3333323223332 3333333332333 3 3323332222328 3222222222%1

--8_._._.-o-n-.-.—n_|_.
S NN
= O V0NV
NN = O 000 ~NOM NS W

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09 16:17 PAGE 37
BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11
«SBTTL

SE@ 0192

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

sTHIS ROUTINE IS USED TO INSURE THE BUS ADDRESS

:OF THE RH11 IS SETUP FOR THE PROPER ADDRESS.
IT UILL ALSO READ THE ADDRESS FROM THE TTY IF
QUIRED.

QRIE THIS ROUTINE DESTROYS RO-Ré4

:
056274
056276
56300

177700
000776
000000

HIAD:
HIVEC:
BOUND:

JSR

RETURN

.WORD 177700
.WORD 776
.WORD 0

001260

BUSADR: TST

001260
0011 70
056526

18:

056274
056550

BEQ
CLR
MOV

TYPE
MoV

TYPOC
TYPE
RDLIN

053363
056300

PC,BUSADR

MoV
MoV

JSR

CHGADR

sINPUT FROM TTY REQUESTED?
:NO=-BRANCH
sYES==CLEAR THE REQUEST FLAG

.MRPCS1
(RO) +,=(SP)

:"RPCS1=’

78
CHGADR
#SRPADR
RO

.LINSP

(SP)+,R1
HIAD,BOUND

RS, CK.NUM

FIRST ADDRESS

;PRESENT RPCS1 ADDRESS
STYPE IT

;2 SPACES

:GET THE ENTRY

:ADDRESS OF ASCII TEXT
sSET THE ADDRESS MAX
sCHECK THE NUMBER

s CARRIAGE RETURN ONLY ENTERED
sPERIOD ONLY ENTERED

ILLEGAL INPUT

:TERMINATED WITH A CARRIAGE RETURN

sTERMINATED WITH A °

177776
056537

R2,-2(R0)
MOV

053363
056276
056550

TYPE

056300

MOV
MOV

JSR

+MRHVEC

(RO)+,=(SP)

.LINSP

(SP)+,R1

HIVEC ,BOUND

R5,CK.NUM

:TERMINATED WITH A *'.**
figxf
NEW RPCS1

Peng?T RH11 VECTOR ADDRESS ON THE STACK

:2 SPACES

:READ THE ENTRY

;ASCII TEXT ADDRESS
sSET THE VECTOR-MAX
sCHECK THE NUMBER
s CARRIAGE RETURN ONLY ENTERED

:PERIOD ONLY ENTERED

s ILLEGAL INPUT

: TERMINATED UITH A CARRIAGE RETURN

:TERMINATED WITH

177776
000004

056504
122506
000004
001170
034502
45 056500

000004

R2,-2(R0)
ERRVEC,R1

aSRPADR

MOV

#88 ERRVEC

MOV
MOV
MOV

R1 sanvsc
#SRPADR, RO
#RPADR,R1

MOV

(RO)+, (R1)+

TERHINATED WITH A .
INPUT
SAVE THE ERROR VECTOR
FOR TRAP

RESYORE ERROR VECTOR
sFIRST ADDRESS OF NEW PARAMETERS

:FIRST ADDRESS OF WHERE TO PUT THEM

:BUS_ADDRESS
sVECTOR ADDRESS

CZg‘gEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09 16:17 PAGE 37-%

SEQ 0193

- GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11
000207

49 056512
50 056514
51 056520
056522

104006
005737 37
001 675
000137

005646

122
122

120
110

47 056506 010137 000004
056510 022626

8s:

PCS1:
HVEC:

—

nNo
oW

000042

RTS

EMT
ST
BEQ
JMP

4
w62
1%
$GET42

.ASCIZ
.ASCIZ

@RPCS1
@RHVEC

MOV
CMP

R1,ERRVEC
(SPY+,(SP)+

sRETURN
sRESTORE ERROR VECTOR
sCLEAN OFF THE STACK
s1S THERE A MONITOR?
:NO==GO _ASK FOR ADDRESS
;GO TO END OF PROGRAM

[-21-3}

46 056502

=S OVONOVESWN
= OV
W=

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38
CK.NUM = CHECK NUMBER (OCTAL)
+SBTTL

Mm15

CK.NUM - CHECK NUMBE

sTHIS ROUTINE CHECKS AN ASCI
sAND FORMS AN OCTAL NUMBER I
sCALL:
MOV
MOV
JSR
RETURN

b cd wd

RETURN
RETURN
RETURN

#ADR,R1

#NUM,R

R5,CK.NUM
R1

b cd d b ed e

ADR6

010446

PON

CK.NUM:

030072

R4 ,=(SP)

R3.=(SP)
RZ.-(SP)
R3
R2
R5.CK.CHR

SEQ 0194
OCTAL)

T RING FOR LEGAL CHARACTERS

;ADDRESS OF ASCIZ STRING
nax SIZE OF INPUT NUMBER

:60_FORM THE NUMBER

iTCR'" ONLY ENTERED == R2
= 0
:*PERIODTM ONLY ENTERED == R2 = 0
;; EGAL CHARACTER IN THE INPUT STRING
“CRTM ENTERED == R2
= NUMBER

* == R2_= NUMBER

:'PERIOD'"

= R2
= NUMBER

:SAVE R4

:SAVE R3

:SAVE R2
:RETURN POINTER
sSTART NUMBER AT ZERO
sSTORE RESULT

sCHECK ONE CHARACTER
s ILLEGAL CHARACTER
:gfififlIAGf RETURN
:DiGIT 07
:DIGIT 8~9
.
: INCREMENT RETURN PAST *'CR'* AND ‘PERIOD'* ONLY RETURNS

000004

:FOR THE OCTAL NUMBER IN
R3

:DON'T LET IT GET TO BIG

030072

R2 R3

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER

: CARRIAGE RETURN
e

.IO

:DIGIT 0-7

:DIGIT 8-9

:DOES A";gk" FOLLOW THE °‘PERIOD'
:BR IF
¢ INCREMENT THE RETURN

: INCREMENT THE RETURN INDEX

:INPUT VALUE TOO LARGE?

056300

gg
IF IT IS
IF NOT
s INCREMENT THE RETURN ADDRESS

: INCREMENT THE RETURN ADDRESS

:SETUP FOR PROPER RETURN
sLOAD ENTERED VALUE
sCLEAN OFF THE STACK
056704

(SP)+,Ré

sRESTORE R3
sRESTORE Ré

SEQ@ 0195

LOADRV:

<CRLF>/TO TEST DRIVE 0,

ASCII
.ASCIZ
NOLOAD: .ASCIZ
.END 200

REPLACE THE 'XXDP' PACK ON DRIVE 0/<CRLF>

/WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CRLF>
/AND RESTART THE PROGRAM/<CRLF>
<CRLF>/SYSTEM HAS 16K MEMORY, 'XXDP' LOADER WILL BE OVERWRITTEN/<CRLF>

.ASCII

00 PP ETM o

124
104
131

TM\

117

m
11%
12

000200

124

BCL

127
101
200

sGET RETURN ADDRESS
sRETURN

200

(R5) ,RS
RS

NMVAAIMMI T

50 056777
51 057054
g% 057105

MoV
RTS

aa " T A

49 056712

011505
000205

46 0567
47 056710

CK.NUM = CHECK NUMBER (OCTAL)

N 15
CZRJDEO RP0O4/5/6 MLT=DR LGC MACRO V04.00 5-NOV=81 09:16:17 PAGE 38-1

CZRJDEO RPO4L/S/6 MLT=DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 38-

SYMBOL TABLE

ABNRML 027036
ABS
= 000202
ACK
= 00012
ACL
= 000040
ACTDRV 034420
ACTSTR 034421
ACU
= 100000
AOE
= 0010g9
ASGND
0542
ASGN1
024516
ASGN2
024576
ASGN3
024650
ASGNG
024766

8l T1§ = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
8l T; = 000004
BITS
= 000010
BIT4 = 000020
BITS = 000040
BIT6é = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BLKADR 001740

CMSEC
CMSTR
CMTRK
COLON
COMTBL

001316
013569
02131
054516
021 760
CPSAVE 0 SS“
CR
=
15
CRLF = 000200
CSF
=
2
CSU
= 000010
CTRAP
031646
CYLDER 055754
CYLINT 001350

DROP
026760
DROPNG 054104
DRQ
= og:ggo
DRVACT 0
4
DRVCLR= 000111
DRVER
01134
DRVINT 03473
DRVPRM 02567
DRVQUE 04275
DRVSTA 034354
DRVTYP 034364
DRY
= 000%00
DSWR = 177570

EM
EM
EM14
EM15
EM2
EM20
EM21
EM2
EM2
EM24
EM25
EM26
E=§7

ASGN6
ASGN7

BPTVEC= 000014
BUFTBL 001616

DATAO
DATA1

DTEER
012200
DTSY = 000200

EM30
EM31

ASGNS

024776

ASKPAR
ASNERR

055050
026

ASNLST
ASNMSG
ASSIGN

025
025014

001
026750
024510

ATA
= 100000
ATABIT 034470
ATTN
001244
ATO
AT1

= 000001
= 000002

AT3

= 000010

AT2
AT4é
ATS

AT6

AT7

AUTOCK

= 000004

= 000020
= 000040

= 000100
= 000200

001424

AVAIL
001530
A16
= 000400
A17_
= 001000
BADENT 054600
BADSEC 001264
BADTMO 004106
BAI
= 000010
BEGCOD 001434
BEGPAT 001432
BEGSIZ 001436
BITO = 000001
BIT00 = 000001
BITO1 = 000002
BITO2 = 000004

BITO3 = 000010
BIT04
= 000020
BIT05 = 000040
BIT06 = 000100
BIT07 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000

056300

DATAPK

(025442

BUSADR
BUSY

056302
54621

DATE
DATEIS

1220
054520

cI3
Clé4
cI5

036220
036326
704

CFLAG
CHGADR
cIl

clé
cI17

cI78

cI8

CkBUS
CKCLK

CKCLK1

CKCLK2

CKCLK3

001262
1260
036112

036726
036742

036770

DCk__
= 100000
DCKER
010072
DCKERT
010224

DL
=
100
DU
=
1
DDISP = 177570
DEASGN
DEASSG

E1__

025
054171

000040

037042

DFF20 = 000002

023010

DH15

023106

013372
022714
023056

CKERR
013272
CKFMT
011374
CKHCE
011570
CKSWR = 104407
CK.CHR 030072
CK.DEC 030044
CK.DIG 030144
K.NUM 056550
CK.OCT 030016
CLKFLG 001210
CLOCK
024050
(LR
=
0
CLRDPB 025466
CLROQUE 042652

CMCNT
CMCYL
CMDAT
CMHED
CMPAR
CMPARD
CMPLMT
CMPRES
CMPRT
CMPRX

003026

001312
001314
013740
013644
013456
013474
001414
020032
014204
014176

DH1
DH14

050700
051056

DH16

051261

051162

050705

DH
050762
DHé
051010
DH6
051047
DIGB = 000004
DISPLA 001142
DISPLY= 104414
DISPRE 000174
DLT
= 100000
DL64 = 000020
DMD
= 000001
DONE
027566
DPINT
034374
DPR
= 000400
DPRQS
034404

DRIVE
DRIVED
DRIVE1
DRIVE2
DRIVE
DRIVES
DRIVES
DRIVES
DRIVE?
RNUM

001242
043110
043414
043720
0“;%6
044530
045034
045340
045644
054213

DTE__

= 010000

DTWW
pT00

034466
= 000001

EM3
EM3

D104
D105
D106

= 000020
= 000040
= 000100

EM37
EMé
EM40

D101
D102
D103

D107
D708

= 000002
= 000004
= 000010

= 000200
= 000400

DT14

DT15
DT16

051332

051402
051424
051446

051336

DT4

051364

D13

D76
DUNIT
DVA
=
ECBADO
ECBADT
ECBIT
ECC
ECCX
ECC]
ECC2
ECGD
ECGDT
ECH
=
ECI
=

051354

051376
001464
004000
001334
001342
001320
014604
015336
015202
015332
001332
001340
000100
004000

ECMSKO 001324
ECMSK1 001326
ECSEC
001 3%2
ECWRD
001330
ECWRD1 001336
EMPTYQ (042730
EMTVEC= 000030
EM1
046%40
EM10
046 3%
EMNM
04657

EM34
EM35
EM36

EM41
EM4

EM4

EM44

EM4S
EM46

EM5

EM50

EM51

EM6
EM60
ENDCMP
ENDCN
ENDCON
ENDET
ENDPAS

ENDSEK
ENDSK
ENDTST
ENTADR
ENTCOM
ENTDAT
ENTDRYV
ENTID
ENTLMT
ENTPR
EOP
EOPX
EOP1
EOP2
ERCTR
ERPRC1

(lRJDEOT:E&IS/b MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38-§

SEQ 0197

§ss

OO0

OO
—

FALPRT
007342
FEN
= 000200
FER
= 000020
FILBUF
016544
FMTER
012374
FMT22 = 010000
FORMAT 001416
FRSTER 00130g

—d

016172

NN
VN—'\N’.
Cion
WON
= NS NWSs
N
N

O
b P\ =2 NI NI NI N

OFMSGA

002724

dg
SHWNON)

MATCH

PASCNT
PAT
=
PCLOCK
PDONE

b e

b b e

OONONINO TM N\Jg

ocyL = 100000
OFFCOD 0882
8FFS$T=
5
MAXCYL=

FRRARSRASIVUNRGSRSSN)
=S NN
= NSVMN
O NN

8—‘-‘\[!\”\)%

=lelelelelelelelelelelelelelel]
NN
ViV
I WAIWMIWAZWNMWAWZWWDA A 8°°°
OOOS
S
N
N
& &
-3 \AAT AT AW
WA WA
=

IAE_

HT
HZ

56274
056276
001266
= 000011
001212
= 002

HIVEC

Bt By by

HIAD

A
g Do) oy by By B Do By B Do By B

g oy By By (e Boe

B TR 0 5 250 B 3 P o £, P 1 o o P 1 2
ekt
4l
SREREYES
PIVGRESTE >

[=lelelelelalololele)

\IONV!\IOU!VI\I!\-J:

051700

OWNONNIWVI=NN

FACTOR

83 SRR
238080038

ERPROC 007132
ERR
= 040000
ERROR = 104000
ERRVEC= 000004
EXT1 = 000001
EXT10 = 000010
EXT2 = 000002
EXT20 = 000020
EXT4 = 000004
EXT40 = 000040

SYMBOL

032562
032566

= 002000
= 001
PIP
=02
PIRQ = 177772
PIRQVE= 000240
PLU
= 020000

043046

POSER
012014
PROCES 007042
PRTBAD 015344
PRTIM
007530
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PR4G
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSEL = 002000
PSU

PSW

PUNSAF

RDHD
RDLIN
RDY
=
RD.RP

RD.RP1

RD.RP
RD.RP
RD.RP4
RD.WRD

M)
= b
VIV V.1
&»H VI = = ONONON
J SHONN =N
o ONNIN=OON
&

PGE
PGM

03 Sgg

l=l=l=]

PFECH
PFECH
PFECH4
PFTSTN

§§‘§§§§§§§§
S

D16
gZRJDEO
RP04/516 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38-4

006676
007040
016330
000113
027612
104413
RESVEC= 000010
RETRY
001252

= 177776

007230

PWRVEC=
24
QCNT
042

QDRVO
QDRV1
QDRV2

042452
042472
042512

QDRV3
(042532
QDRV4
042552
QDRVS
042572
QDRV6
042612
QDRV7
042632
QINPT
042370
QOUTPT 042410
QSTART 042430
QSTOP
042432
QTERM = 042652
S
054323
QvCON
001
QVSEK
1
RANCYL
04
RANPAT 017452
RANSEZ 01
RANSIZ 017316
RANTRK 017104
RANWRT 017472
RANXIT 017462
RATIO
001422
RAV
= 000020
RDCHR = 104410
RDDAT = 000171

000046

RTNCTR
R

015516

SEQ@ 0198
ST0
041420
ST0
041470
ST05
041514
ST06
041522
ST07
041560
ST08
041610
STO9
041620
SVRH11 042170
SWR
001140
SWREG
000176
SWTIM
007402
SWw0
= 000001
sSw00 = 000001
swo1
= 001002
sSw02 = 000004
Sw03 = 000010
SW0é = 000020
SW05 = 000040
Sw0é = 000100
SW07 = 000200
SW08 = 000400
SW09 = 001000
SWl1
=
002
SW10 = 002000
SWwil
= 004000
swi2
= 010000
sSWw13
= 020000
SW14¢ = 040000
SW15 = 100000
sSWw2
= 000004
sW3
= 000010
SWé
= 000020
SW5
= 000040
sSwé
= 000100
SWZ7
= 000200
SWw8
= 000400
sSw9
= 001000
SYSTAT 053672
T
051576
TABLE
055254
TABLEO 055§Z4
TABLE1
055342
TABLE2
055410
TABLES
055456
TABLE4 055524
TABLZ5 055572
TABLE6 055640
TABLE7 055706
TAP
= 040000
TBITVE= 000014
11
37500

WLE
= 004
ULEER
012346

TIMER
034446
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034
TRE
= 040000

WRTDAT=
61
WRTHD = 000163
WRTPK
02€050
WRTPK1
020100

TDF

RTC

0
= 000117

040

TUF
=
TYPDS = 10‘405

TYPE = 104401
TYPEST 023200
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
TYPRI4 027742

UCPAR
007320
ULDFLG 034422
UNIT
001246
UNLOAD= 000103
UNS
= 040000
UNSAF
012770
UNTASN 053557
UNTMSG
053506
UNTNOT
953535
UNTOFF 053514
UNTON
053525
UPE
= 020000
USE
053366
ust
= 000001
us2
= 000002
uUsé¢
= 000004
UWR
= 000010
VUF
= 000002
vu30 = 010000
Vv
= 0001
WAIT
001552
WAD

wC
WCE

037654
= 04

=
WF
WCFER
012672

WCSEL

001420

CZPJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38-5

SEQ@ 0199

SYMXOL TABLE

WRTPK
020%82
WRTPK
050
WRTPKG 020336
WRT.AD 042072
WRT.RP 042002
WRT.R1
2066
WRT.R2
042152
WRT.R3
042160
WRT.RG 042164
WRT.RS 042166
WRT.WD 042070
WRU
= 000400
wSU
= 000004

SCRLF
$CYL

$DBLK
$0B2D
$DB20
SDECVL
$DOAGN

ggsss 3 353385382R
2..-.8—A-o-a°-n~°-nw-n-a
NNONIWVIIN
= WNN) = b = 2R
O —l°
OO

2833238088

P
w

S$CHARC 033056
$CKSWR 030
$CMTAG 001100
$CM3 =
SCNTLC 031605
SCNTLG 031617
SCNTLU 031612
$CODE = 00002
$COMND=

L ]

Age

001276

SAUTOB 001134
$BDADR 001122
$BDODAT 001126
$BDSEC= 000124
$BELL
001160

BY
OWN——
~N
OO
o NS O=NVONNINOONONNOWY

g
@
s

2
"

“w
e

ZROIND

$DRVID= 000;;4
$DSPLY 0 ;5

SMISPO= 0000%2
SMNEW
0316
031624
SMSWR
SNCODE= 000074
SNCYL = 000100
SNEXT = 000104
SNPATC= 000075
SNSEC = 00007
SNTRK = 00007
001154
SNULL
DL= 0001

SRDLIN

031332

057200
000000
ERRORS DETECTED:

SLSTAD

. ABS.

056272

SRPBA = 000240

001

52736 WORDS
( 506 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 70 PAGE
CZRJDE .BIC,CZRJDE/C=CZRJDE.DOC,CZRJDE,[20,0]SYSMAC/M

VIRTUAL MEMORY USED:

$Tk8
$TKCNT

00114
03036

$WR
$XOFF =
$XON =
SOFILL

000004
000023
000021
033305

PWC =

001165
033524
033732
034126
034112
005672

$SRPCA = 000270
$RPCC = 000272
$SRPCS1= 0002
SRP(S2= 000244
SRPDA = 000242
PDB = 00025
SRPDS1= 00024
SRPDT = 00026
PEC1= 000
$RPEC2= 00030
$SRPER1= 000250
SRPER2= 000274
$RPER3= 000276
SRPLA = 000254
SRPMR = 00026
POF = 0002
$SRPSN = 0
SRPVEC 001172

$SK1_ = 000064
$SOFT = 000060

$SSEC = 000022
$STUP = 177777
$SUPRS 027702
$SVPC = 000224
$SWR = 122000
$TATUS= 000016
$TERM = 000032
STIME
023752

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04 00 5-NOV-81 09:16:17 PAGE S-1
CROSS REFERENCE TABLE (CREF v04.00
)

F 16

SEQ 0200

SOF ILL
$4OCAT
SAUTOB
$BDADR
SBDDAT
$BDSEC
$SBELL
$BUF

%g-1
6-0#
6-0#
6-0#
14->42
6-04
} -gg*

25-1»

25=1+

25=1»

11=34*

11-58+

21-1

18-127
15-8
12=123*

33-590
21-1
14=107*

33-63
21-1
14-561

21-1
14-583

22-1
14-999

22-1
14=:77

22-1
14-:83

SCHARC
SCKSWR
$CM3
SCMTAG
SCNTLC
SCNTLG
SCNTLU
$CODE

24~
21-1#
-0
_6-0#
211
21-1
21-1
14-76
14=>22%
14-890%

24=1#
31-1

24=1*
31-1

24=1»

11-29
21-1
21-1#
21-1
164=575
14->26+
14-910%

11-29
21-1

21=-14

2
14-600
18-25*
14-926*

14-658
18-34
14=944*

14-777
32-831
14-=52%

16-8&%
32-8
14=>23%

16=:06
32-841+
14->27+

146-:08
33-204
18-27+

SCOMND

SCRLF

6-0#4

15-101
15-358

6-04

11-138

15-120
15-359

5%:226

5%-231

$CYL

;g-?g;

14-586

$DB2D

15-343
20-300

15-351
30-1#

$DBLK
SDECVL
$DOAGN
SDRVID

26~1
29-1

SERFLG
$E

-1

11=171

11-175

13-43

13-47

15-140
15-384

15-159
15-385

15-1764
16-108

15-197
16-168

23-1

24=1

15-356

15-371

19-18

14=943*

19-30

14=:14

19-34

14-=07

14-=

14==50*

14-=

32-842'

32-843~

33-64

14-517

14-526

}4-526

15-272
18-60

1
15-285
18-99

13-69

15-260
17-216

13-89

13-93

15-61
15-292
18-125

15-325
18-212

5-88
15-334
18-225

22-1

23-1

14=;71

14-=41

14==55%

14=>02*

14=>03

14=>10*

15-147

18-82+

32-839

15-376

16136

16~-136

16-144

16-152

20-283

29-1#

18-109+

18-109+«

18-109+

33-63#

33-67

23-1

33-10

33-1

33-13

33-14

14=;35

22-1

22=1+

SERRPC

6-0#

32-1

22-1

22=1x

22-1x

SERTTL
SESCAP

6-0#
32-856

22-1
32-906

22-1
32-908

2=1%
32-:81

3§-<4o

32->48

SFILLS

6-08
6-0#

24
24-1

24~
24=1

SFMT

12:5%5'

33-5#

33-6

33-7

33-8

33-9

$GDDAT
$GET42
$GTSWR
SHARD
$HD
SHINUM

6-0#
11-198#
21-1#
16-164
4
11-29«

12-12
31-1
16-188
4=54
20-8

16-55
1-1
16-188+
4=54
27-1

37-52

27=-14

27=1x

33-35#

33-31#

27-1

14=;33

22-1

14=;29

22-1

6-0#
-0#

12-128+

15-236

21-1

18-109+

12-106*

15-229

21-1

18-109«

12-104

15-84

21-1

}8-506'

12-91*

15-239
17-210

14=-;31

21-1

26=1#

$FAIR

15-220
16-197

}3-65

14-:92

19-49

26-1
29-1#

11-207#
17-197

13-59

14-:88

33-12

33-18

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-2
CROSS REFERENCE TABLE (CREF v04.00 )
SICNT
SINTAG
SITEMB
SLF
SLKCSB
SLKCSR

6-04
6-0#
6-0#
'
-0#
7-0#

$LKS
SLLVEC
SLONUM
SLPADR
SLPERR
SLPVEC
SLSTAD
SMAIL
!NISSO

7-0#
7-0#
11-29+
6-0#
6-O#
7-0#
11-89
11-29
15-379

SMSWR
SNCODE
SNCYL
SNEXT

SNPATC

SNSEC
SNTRK
SNULL
SNWRDL
SOCNT
$OCTVL
SOMODE
SOPERC

SPACK

$SPASS

1-1
2-1
21-1
16=39+
16-33

21-1
22-1
21-1

%1-1
2-1
22-1

21=1»
22=1x
22-1

22=1+
24-1

27=14

27=1*

14=<86

14==09*

14==10%

14=>30%

18-16

33-45#

20-7

27-1

16-36
36-1#
11-34
16-164

36=1+
11-58
16-190

22-1
16-190+

24-1
33-33#

21-1
12-200%

21-14
14=:;95%

14=<48

14=<71

12-192%
12-71
12-202%
12-195*
12-194%
6-0#
12-196*
25-1#
30-1
25-1
14=;69%

14=<4?7*
12-203*
14-<92%
14=<11%
14=<27*
24-1
12-199%
25-1*
30-14
2514
14=:70*

14-=55
14~<93%
14=-=53
14=-=54
33-424
24~1
14=<50%
25-1%

33-434
14=-=63%
33-40%
33-414
241
14=<53%

14=<67*

14=<80%*

25-1%
14-=89

25-1%
14-=91

25-1%
15-341

25-1%
15-369

12-73
6-0#

33-43

12=97

33-44

12-133

33-45

14==93

33-49

14->19

SPASSC

16-126

17-112%

19-20

19-25

$PREVA

gg-ézb'

%3-32}'

14-242%

14=245%

14=246%

SPATTC
SPOSIT

SPREVO
SPSEL
23355
SRAND

SRDCHR

14-:43
14=:16%

14-=38+
33-7#
3?-90
14=:83

21-1#

14==53%
14=:17*%

23-1
24=1

14=>29%
14=:73%

18-28*
14=;74%

18-29+
15-374

14==56

14==57

33-44k

33-25#

19-39

33-234
19-13

19-16

33-264

14==99%

14=->00%

22-1

24=1

24-1

33-97

14==47*

32-838+

33-22#4

21-1

22-1

14=<83

14==25

14-=88

27-1#4

31-1

14==39

15-38

31-1

14==16%

17-115*

14-=96*

14=<65

SEQ 0201

16=40*
16=49*

16-44
16-46
14-;92

33-42

G 16

14==98%

$RDDEC
SRDLIN
SRDOCT

31-1
21-1#
31-1

31-1

SREAD
SREG

14=-:12+
18-16

14-:13+
33-13#

15-354
33-97

19-6
3-97

19-9
33-97

33-28#
33-97

SRETRY

SRPADR

14-67

3
14=169

1162

14=233
34-58

14278
3719

14-318
3740

14-356
37-42

14-382

14=452

SRPBA

14-562

14-767

14-798

33-81#

14-819

34-61

14-851

14-871

14-998

15-85

SRPCA

-0

14-:164

-6

14->02

15-172

14==50

14==51

33-39#

33-40

33-41

15~187

15-191

15-195

15-203

32-839+

33-97

14-498

14=963#

15-135

15-235

15~

14~482

’

634

14-98

14=981

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-3
CROSS REFERENCE TABLE (CREF v04.00 )

33724
18=37+
15-279
17-213

SRPEC1

34=59
32-352«

33-78#

H 16

SEQ 0202

$STUP
$SUPRS
$SVPC
$SWR

STATUS
STERM
STESTN
STIME
$TKB
$TKCNT
STKINT
$TKQEN
$TKQIN

$TKQOU
$TKQSR
$TKS
$TKSRV

14-538

33-714

34=59

33-97

14 ‘"
14977

33-73#

14-40

14-46
34-59

14-86

14-117

14-119

18-33+

18-36+

6-0

11-2%

14-129

14-192

21=1+

24-1

34-60

33-97

SRPER1

SRPER3

14448

14-49

14-795
5-9

12-148
14-914
31-3#
23-1
15-13
6-0#
21-1
11-57
21-1
21-1
21-1
21-1
6-0#
24~1
21-1

4-343
15-344

4-343
15-352

14-853

15-82

15-138

15-252

33-684

34-60

16-160

16=165

16-199

16-204

16-209

20-281#

14-855

14==59*

14-262+

14=>21*

14=>25+«

15-255

4=3434
15-422

4=3434
20=-122#

4=3434

4=3438

4-3434

4-343
15-357

4=3434
15-372

4-3434
15-377

6-0

21-1

29-1#

21-1

21=1x

21-1

24-1

24~1

21-8+

21-9

21=11»

21-1»

21-1¢

21=1»

TNMy0&«yra0—r—e‘O“7—r—Mow(~n2F]—-MAy~|NIT=MNLIl-NeINIANMer=M=

7"%1i=.0".\=.v%vO.\GO+.=.v=(\J.=v=(.\J(U.Mv~-G0.G0Ov.Nv=V=.M).*¢1.“1..1..1..1-.1.
LTz o(- R ‘R I>&aReBe S* 2UXOIWV2N
Y[o—-NhV[U—ad)TNo o NO"T §0 T-4[TM)§&RSoeNL)UAo*& L TYO—A I) 'T
a-=L2N—Nn]UdL~Nl <MNWaM*]Ui)M-iO—N2MaUeaoVl=L0OnAMb

NO~oN= N oy 23]Tg@LVSl=T O~
mw&- gbUSOsltMNLMl

<1=N4O[LG5)aU<¥IOo>-Na&*=Y]~———~5-NN14x<U4“N3MC<4LC41<U<NC6~M4<S24SJ<b4J=L<S2N~~L<]=.=4[aN[]+D&S4O6NZ72h1=NA7XC>]IC7C€<-N2A].A=id-J7EX=NMo2—wwALYmeeiNM1o*VWw®A=eRyNno7e~nNnF~P8B>E73eUH=R3e=43Ab=-—3Bb=33e=Oe3P=RbP~N—QUbD—W0PbL=Ab
16=191+

18-238

S
o
r
h
*
5
”
®
“
r
%
o
6
®
T
)
V
M
»
=
N
ML[eoAIa=M—NOlIOMa~AlINTIYWOvAPMNyRONAuMw=3N L-aM—=lOaMVl
—

15-346
6-0¥

LMoU
Mow

$TPB
STPFLG
$TPS
STRANS

STOTAL

U—Y
w§L

CZRJDEO RP04/5/6 MLT=DR L GC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-4
CROSS REFERENCE TABLE (CR EF v04.00 )

116
SEQ 0203

33-29#

6-0#

14-:02+

6-04

edalal

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-5
CROSS REFERENCE TABLE (CREF Vv04.00 )

SEQ 0204

4-184#
4=185#
4-1860

17=147
32-:08

17=149
32-;14

17-171

17-181

17-200

18-222

35-58
12-58

12-68

12-70

12-112

12-113

12-159

16-187

16-188

16-189

16-190

16=191

32-455

BUSADR
BUSY
CFLAG

7=04

32-1834

32-368

32-475

32-377
32-938

32-446
32-958

32-520
32-987

32-819
32-<66

32-<94

14-587
32-:74

14-;36
32-<29

15-214
32-<95

32-315

32-359

14226

14270

14=310

14-416

14-631

32-455
32-:01

32-457
32-:41.

32-488
32-.;48

32-491

32-673

14=:49+

32-702

32-481
14-970
14-260
BUUND
BPTVEC
BUF TBL

19-52

S uc;uaaa-i

—

d
d ed

b e

J 16

14-290

14295

14-448

17-106
38-36

17-107

17-151

17-174

32-351

11-92+
14=:90+

11-93»
14-:95

11-95%
14-:96

11-96+
14-;09+

11-101»

11-105

11-107

11-108

14=:33

14-:35

17-21*

17-27

18-92+

18-102

18-118+

18-138

18-173»

18-185

18-195«

21-5+

93“ONOMWAWN-NMIMe—OWNOWN|VOOMIN(V=INO"O~=TTSTMOOVOOTMTNN
4w=M4o4Mwe—-aNN]w—UA33v[vwlao~oo—nsFl[U'«OT0ANdoadg——MMO-RTaSadlOlwIOli\naLNWaN—oAlOlea~0lYn[l.MLwDOiNAa—avNnNll\OeSNNVNTNOw®.R*«TNOVoT27AO0~OLSAONO3~ioNa~-”4—NSQN—5y~0WTy-No0k2~5Oi~O0[o*«0:0-0-00M©L~VNOE(MNVOMDL"Lo~V7OWaaaS)lNaleLwYNS,NoaOaky[l]l»0yNON~a—4+eN(0l-

”O-—ERoQg7=P—H-AC2N«O=dWe2M—R2oMO]]R2aLN2lllaMllaa“-2eWl—l=aa¥¥xOq(A(&SWEaV\Vx%M~=E9TMSNT8=X)&5WL7=-M‘T%=A—ERS-7ND3C—OH5M1eonE2—M=A6C_<c=5—M6T—“ECT03eAXR4EC-FQAR0-OH2MK02—S7&NMcy>=-K6&A«&<O=4—VWMR7R2R“7MI—MEC—E[£-Ty4IAE”MOM3CRIPS4WW”K7—G”D2MAWK6I”4IORD7AT4oVNRE—N7o(oWM6OoRGNL8oM0=KMO2ooOWMA4®GVDM0NNAnMTIL“AMaMMlN(5ONaIlNMN”MON4”RNYOW6MAVN1I4NOLL7@-#aa—]]
ho—-4~ J“a(MT-— -"]loal3M0’UaVy[lrL~oy A LNgM¥bND0MNai]

<CNOnMLW>o>o~=e—DOiaNeATNcWoeiO~dIaedOW4OpE4OXPr40XRaT4nNUs\dMRP WTE&JEODTBDI)ANGwV ODMLMTOMOMLTMOMOMM10%oMNMWMnAPNRetUeOStP—aIe=riIgNTgYetetStTO MO —TL
geoo—¢-IN\0AlOl1s=S~ TlUa0lLyT4 L-ooERAM O~~—VT 1[1 ] ¢b 7RE o TS &1]TOOwa[Y](~v~w=(]2 Re qo *
H
[t M M M

UWVLLOLOLUUOLOLULOLVLWULLUOLVULLWLSOLO
* *

CZRJDEO RP04/5/6 MLT=DR L GC MACRO V04.00 5-NOV=81 09:16:17 PAGE S-6
CROSS REFERENCE TABLE (CR EF v04.00 )
K 16

SEQ@ 0205

U]1¢0

CZRJDEO RP0O4/5/6 MLT-DR L EE MACRO V04.00 5-NOv-81 09:16:17 PAGE S-7
CROSS REFERENCE TABLE (CR
v04.00 )
DATA1

DATAPK

9-0
9-0
17-53

R
-19

4-168#
14-48

9-0
9-0
17-2214
17-188
35-37»

L 16

SEQ 0206

9-0
9-04

9-0

17191

35=117»

35-120+

35=120+

35-120+

9-0

14=564
14-370
4=306#
11-29

17-43
12-28
4-135#
10-8
15-64
15-73

DISPLA
Q — (%] "

6-0#

17=142#
35-254

245819123‘

eMNOAN
TNOrMV—OMMNe)O~3e O~0Mee NN=eN=
e0RAN
eAeNONeIN0eTO TeVOTMMO=S

N—r=CNMNOTONO

lfl...-...

—ealAlllihalialVy R

OO N WO

DEASGN
DEASSG
DFF20
DH1
DH14
DH15

MY MMMM N

SESESEEE3S

T
d
R
T
o
g
L
a
l
a
l
a
l
a
l
wwwkuw N V

DROPNG

32-895

OTg M—=e—)—[=lelyeleleleleGeg agolLaa}lalal ol=l=lelelelele]eg=

<Na]lOalalOaOlaliOalOa~la—lINl
NAN
OLALOL AA OALALOAOAM| W

18-227

W—

32-:15

32-:17«

TNnNnunmnwnmnm

32-:78

32-;16

32-:;27

32-;35+

DRJ
DRVACT

DRVCLR
DRVER
DRVINT
DRVPRM
DRVQUE
DRVSTA

4&=207#
32-274

32-436
32-:95
142454

DRVTYP

32-615+
32-;02*

32-662+*

32-424

32-483

32-835
32-414
32-489
11=-163
32=726%

32=->02#

32-681+

32-790+

32-891

32-921

32-952«

32-959+

32-972

32-982+

32-268%
32-884
18-55

32-278+
32-897
18-62

32-310%«
32-946%
32-574

32-319+
32-953+
32-311+

32-374+
32-965
32-326+

32=379+
32-:20
32-331+

32-418
30-:36n

32-426

32-536+

32-341+

32-682

32-685+«

32-695

32-708

32-710«

32-719«

32-779

32-791+

32-:83

14-803

14-805%

14-817

32-692

32-707+

32-:93

11-29

34-544
34=59%
34-604
34-614
10-37
34-564

34-55#4

34=-57#
34-58#4
14-3664#

32-1774
32-;09*
12-4

32-261
32-.20

32-503
30-.82

32-559«

18-224+

19=54+

14-809*

14-833
14-841
14-784«

14-785

14-786%

17-151+

14-828#
14-8444

14-806+*
14-807+
14=776*
14787+

14-817«

14-826

14-797
14790+

14=792

14=797«

14-798

14-809

14-812

14-813

146-814+

14-821+

14-823

14-825

14-826%

14-827+

14-834

14-841

LLCLLE

SEQ@ 0207

CROSS REFERENCE TABLE (CREF v04.00 )

~NE CLLLLLLLL

CZRJDEO RP04/S5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-8

L%.-.%-..i)IImEynees..-.-..-.-.-&-.—MN]MNM[}N§ Lal --

—Mo]—4v‘3l43“—b4e“-e4—‘4.“-4‘M4““4Be‘4=e=4T“=E4=“EP.=2==1e=4=a1OE=n9nT5nTE1Te0e01E0e5=05=L=0=5=05o
- ——

WNI"WN‘W"WC‘ONW“ONWLgoUW0WNTUAON*INYTOLUWI‘WptNI(elL"eWT]WNwOWRITIWTOWITNWI5!TIWONWANWOTWIWTRR WIWIWIWTWOWTMRWTWTWIVWMIWT)T)TWM))BM!W)NN-!LOLL
oo.

—oN-XEwrMF>

—

LasoetglTSlaodg
o o N~
o0 o oN

M-— i§9[}

M
N

e ~o

][

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-9
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0208

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-10
CROSS REFERENCE TABLE (CREF Vv04.00 )

ERPRC1

SEQ 0209

13-22

1658+

FACTOR

FAIRNS

22=1+

36-1

4=129#4
14-998+
7=04
13-32

13-61
4=2604
4=157#

w &x “

-NNA3—O-b——.rJN3%—3r-O-1O—Nr(I"T=IoTlM\ON-o—N

FALPAR
FALPR
FEN
FER
—

22-1

O~—L) O OWVM———dULe
=d=]Ll

BE£N9E3FaEFST - \J0orO—yN0 |Nd-— - )RN _x=X&R« MO— NTOMTO [A(]-t

_=¥

GETREG
GETREM

GETREQ

14~ ;87

32-476

4=1374

HCRC

HCRCER
HEDLIN

HIAD

4=-161#

14-13
17-196
37-12#4

— — o «&

14-<06

32-697

12-127

14-108

11-58

3i-14

14-%190

14257

35~
37=26

14-191

14-292

14-963

14-;634

14-578+
14-910+

33-101#

14=646
14=912

14=677
14=914

14-692
14-925%

14=704*
14-926%

14-727
14-928

14-940*

14941+

E
CZRJDED RP04/5/6 MLT=DR L GC MACRO V04.00 5-NOV-81 09:16:17 PAGE S=-1 1
CROSS REFERENCE TABLE (CR EF v04.00 )

IAEER

IBSAVE

INCHRD
INCMIS

INCSKI
INCSOF

INCTOT

14-31
22-1
17-194
12-69
12-147
4&-78#%
4=1534
4=1540
14-133
14-337
14467
14-140

143924

22-1

12=1454

12-169

16-223+

16-234

SEQ 0210

22=14

22=1*

22=1¢

22=1*

16-236

16-239+

35-51

35-14

35-21

16-188#
16=-1904
16-18%9#

13-53

14-275

17-9%
17-19#

32=741#
LF

LIMIT

LINT0A

LIN10C
LINIOH
LINITH
LIN2C

14-843
14-528
14-867
15-31

35-39

35-44

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-12
CROSS REFERENCE TABLE (CREF v04.00 )

14-166

LINES
LINESA

LINM3
L INM4
LINN3
LINOCT

14=187

SEQ 0211

14-224

14-248

15-192

15-196

15-206

15-207

15-215

14-268

14-308

14-349

14=-414

14-429

14-309

14-350

14-378

14-415

14-430

14-166

14-273

15-256

14-526
14-841

14-841

20-10

20-20#

14-833
15-2N1

CZRJDEO RP04/5/6 MLT=DR LGC MACRO VO04.00 5-NOV-81 09:16:17 PAGE S-1§

SEQ 0212

CROSS REFERENCE TABLE (CREF Vv04.00 )
15-2N

15-284

154044

14-526
15-170

14-716
15271

14-719
15-27

14-833
15-271

16=160

34=1194

14=316+

14-352+

14-380+

33-49%
35-101
11-105

33-53

33-54

35-101
33-514

LSRR
[ 8

34714

- NN = b b —
W= =N &»H
»

—‘\fi\ll\fl\'fl\fl\ll\fl ?U!

Srors
ez

-333

15-280

14-833
15271

14-833
15-281

-234

11-92

11-97

11-188

12-37#
14-163+

MATCH
MAXCYL

18-67+

MAXDL

11-104*

MAXER
MAXSEC
MAXTRK
MCLK
MCPE
MCPEMX
MHS
MINCYL

35-101

18-238

33-53#
18-69+

14-231«

14-481+

14-972

14=977

35-101

12-197

14-<58

14->16

14->17

3 5-101
3 5-101

35-101

32-<10
14=<43

14=>10

18-82

35-101

MINSEC

14-<07

14=>09

18-72+

33-544

35-101

MINTRK

14-<23

14->08

18-81

35-101

MINUTE
MINX
MNDLTA
MNTBL

16-203

16-224+

MOL

16-225

16-227+

CZRJDEQO RP04/5/6 MLT=DR LGC MACRO V04 00 5-NOV-81 09:16:17 PAGE S-14

SEQ 0213

)
CROSS REFERENCE TABLE (CREF Vv04.00
MONTR
MPE

11-177
106#

11-181#

37-55#
37=54n

32-763

32-750
32-568
35-28#4

OFMTBL
OFREV
OPE
OPERID
0Pl
OPIER

664
14-22
‘-

17-137#
12-41 "

12-55

8-0

8-04

8-0
8-0

8-04
8-0#4

17=192

17-195

14=3440

12=56*

17-106*

35-124«

35-127+

35127+

CZRJDEQ RP04/5/6 MLT=DR LGC MACRQ V04.00 5-NOV-81 09:16:17 PAGE S°1;

SEQ 0214

CROSS REFERENCE TABLE (CREF Vv04.00 )

PARER
PARLST

PFTSTN
PGE

- gaLl}alal e[=]llele OO0O0O—

11-108+

PGM
PIP
PIRQ
PIRQVE

23-1
4-108#
4=1434
4=1474
4=724
4=724

PROCES

4=724
&=724
12-154

12-176

11-3§
11-136

13-34

wnnnnwnmnm
-

17=227+

gLlalla alal

11-121
14-25

gLalalal
}s

PARENT

<alalalalalal

17-9
17=221+

|=lelelelele)Tg—e agLllaa ——— elelelelele)- wminwnmnmL010 ——o=lel]elele

12-178

12-180

12-204

J
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-1€
CROSS REFERENCE TABLE (CREF Vv04.00 )

14-84
13-38

14-136
13-105#
L=724
32411+

14=479

14-849#

11=74»

11136+
32-474

32-464*

17-20%
32-756

17-64+

20-138

20-139+

20=153«

32-253

32-254~

32-283+

32-291¢«

32-525

32-940

32-:73

’

NN N NN NN NN NN

PRTBAD
PRTIM
PS

SEQ 0215

11-29

11-29+

14=-<35#
14-<54

14=<91#

14=-<58#

14-<66

14-<98#
14=-<93#
14-;88

25-55

32=>04~

32->24

32->38+

32->08
32->41%
32->44

32=>10+
32->42

32=>44

11-29+

14-<84

34-56
32-601
32-<31

32-639
32-<70

32-743

32-757

32-799

32-851

37-33

32-;974
3456

34-57

14-944
18-100

14->23
18-136

18-183

31-14

35-115

35-122

37-24

14-258
14=-9404

14-293

14=244

14-=97

14=>49

15-182

16=114

32-915

14-240
12-206

14-325

14-361

6-160
1-14

RESVEC
RETRY

SEQ 0216

16=-166
32-524

16-205
32-784

16-210
32-:54

20-95#
32-<79

14168+
14967+

14=190+
14-979«

14=195+
14-980

14-198+
14-980

=199
-331

14=199

14-232+

32-741

32-778

32-:71

32-;66

32-;72

32-;76

32-:;90

v as

17-227#

REDAPK
REFMT
REFMTX
RELBUF
REL SE
REPLZ
RESREG

—

CZRJDEQ RP04/5/6 MLT=DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE S-17
CROSS REFERENCE TABLE (CREF Vv04.00 )

32-4104

32-:38#
32-201#

32-561

32-582

32-:08+

32-;13

32-495
32-<18
32=542«
32-:88+

32-557

32-578

32-620

32-640

32-651

32-666

32-677

32-800

32-562*
32-;73

32-583+
32-<28

32-669
32-<60*

32-688
32-<66

32-700
32-<90*

32-713
32-<95

32-722+

32-742+

32-941

32-995

32-:74

32-370

32-996

32-<32

32-889

32-995+«

32-996+

32-997+

32-998+

34-55

34=55

34-55

32-606

32-630

32-252

32-413

32-473

32-687

32-777

32-:41

32-<56

32-271

14-890

15-193

32-804
14-675

32818 $o-be
32-979%4

14-687+

3032-849#

31-14

)

32-=62

CZRJDEQ RPO4/5/6 HLT-DR

CROSS REFERENCE TABLE

LGC MACRO V04 00 5-NOV-81 09:16:17 PAGE 5-15

SEQ 0217

(CREF v04.00
)

sC1
sC1
SC2

32-882
32-872
4=221

§2-893
2-875

g?-994#
2=:044

SC4

2-%220

25-896

32-907

32-909

32-957

32-971

32-978

32-993

SC7
sc8
SCMND

90
32-926
32-906
17-47

32-937
32-917
17=167#

32-939
32-927

32-949
32-933

32-959#
32-942

32-970

32-972¢

32-:03

SDETAL

16-77

16-96

16-115#

SECLMT
SECOND

7-0#
7-0#

18-71
11-78+

18-152
16-208

16-219+

16-220

16-222*

SEEKFG

32-159#

32-257

32-505

SELPAR

12-84

32-286

32-317

32-448

32-522

32-727

32-857

32-<88#

SETVEC
SHDTYP
SIXTEE

11-113
16~70
7-0#

11-118
16-93
11=75«

11-123
16=-106#4
16=216%

11-12%%

SK1
SKIER
SLASH
SPOTCK
SRCHWT
STACK

4-298%
14-51
18-50
14-74
32-104#
g-?Zl

4-3084
14-4624
18-182
14=175
32-475«
11-29

35-63#
14=219
32-580+
11-73

14-263
32-983

14-303

14-344

14-366

12=172

12=174+

16=238«

16-;44

14-;52

SET.IE

12=179

32-:31

16-218+

14=>414

32-:48
30-:78#
gs-:rr
-:15
32-:75
32-;17

14-751
32-:694
32-:21
32-:
gZ-:27l
32-:94
32-;35#

4L
SVRH11

°‘?§
32-65

230" 32-.32 Bl
R0
Bour
2-676 32-705
-806
-bz1
-bst
-929 32947 32-990 32-:26 32-:87 32-:50

ST07

SW0

SWO1

2=:19
-:

|
9

START
STATHD
STATIN
STATIS
STATPR
STKLMT
STNDAT
STO
STO1
ST
STO
STOS
STO6

16-110
7
12-152
12-175
&4=72»

11=22#
35-18#
11-68+
14-996#
16-66#

14-;83#4

17-187
14-759

32-:26
32-:81

32-:134

32-:24

32-:33#

-2430

- .

4=720

12-186

14-;84

17-51

4~7

=720

13-14

14-579

;

-<564

|
|

SEQ 0218

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-19
CROSS REFERENCE TABLE (CREF Vv04.00 )

4=724
4=724

11-136

12-170

14=>12
15-71

18-236
15-132

19-23

22-1
15-360

15-386

14-849

11=29
14-849

20-151
11=3,

11=29%
14-:86

11=29+
14-=48

1 1-34
1 4=>12

21-1

21~

21-1

32-660%

32-706+

32-793«

11-58

13-14
15-360

13-71
15-386

14-579
17-51

32=:46*

32-;04+

32=:31»

34-674

32-517«
21=1+
11-29+

11=29¢

14=4420

TRKLMT

18-69

18-146

11=41+

32-911+

32-955+

32=:05+

32-:12+

32-:44

-ZRJDEQ RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOv=-81 09:16:17 PAGE 5-20

ROSS REFERENCE TABLE

TRNSWT

32-96#

SEQ 0219 |

(CREF v04.00 )

32539+

32684+

32-694

32-711+

32-720*

32-795

11-22+

1M=46*

11-47

32-343

32-3984

32-796%

32-:82

32-:97

32-;10+

3-1
TYPEST
TYPOC
TYPON

11-8

TYPRI&
UCPAR

16-107
13-30

ULDFLG
UNIT

UNS
UNSAF

UNTASN
UNTMSG
UNTNOT
UNTOFF
UNTON

12-29

32-124#
=08
4=3234
4=1674
14-5
17-72
12-48
17-159
11-156

32-312«
133«

13-46

13-68

32-420
1346

13-92

16=122

17-202

18-49

18-96

18-122

18-209

18-230

19-29

19-33

18 -68

=435+

32-617+

32-680%

32-712«

32-878

32-961

32-963+

32-979

32-981+

32-:90%

32-;03

12-109

12-120

12-139

13-92

15-66

11-160

-111»

19-22«

19-29

19-33

CZRJDEO RPO4/5/6 MLT=DR LGC HACRS V04.00 5-NOV-81 09:16:17 PAGE S=-21

SEQ 0220

CROSS RCFERENCE TABLE (CREF v04.00 )

WRT.AD

§5-<13*

§2-<2 v

32-<26#

34-57

WRT.R3

35-(19

35-<30

32-<33

32-<39

32-<45#

§ =548

2-552

WRT.R1
WRT.R2

WRT.R4

-<24¥
32-<10%

-<35

-<4
32-<i2#

-<47H

WRT.RS §f-<k6
§§-<480
g%-494
-360
-356

WRT.RP

WRT.WD

WRTDAT
WRTHD
WRTPK
WRTPK1
WRTPK2
WRTPK3
WRTPKG
WRU
wSuU

ZROIND

=650
32-<11+

4-3384
4339
12-75
14-=
14-=95
14=-=94
14=>264
=218
4=2358

7-0#

32-665
32-<15

8-0
8-0
14-=88#
14-=92
14=>21#
14->20
14=>304
4=259%
4=253¥

14=591*

-676

14-)27

=902
32-<25#

2-931
34-57

14-648*

14-652

14-=96#

14=>25#

14-642%

32-556

32-968

32-564

32-<10#4

32-573

32-577

32-588

32-595

32-605

32-619

32-629

CZRJDEO RPO4/5/6 MLT=DR L GC MACRO V04.00 5-NOV-81 09:16:17 PAGE M-1

SEQ 0221

CROSS REFERENCE TABLE (CR EF V04 .00 )
$SCMRE

31-1

4=56
16-188

4=58
16=190

4-60
16=-191

4-62

20-252

38-30
18-187

31-1

18-146

37-36

3%-906
32-906

31-1

32-<40
32-<40

31-1

4=67

31-1

4-69

31-1

31-1»

31-2

4=70

37-49

11-34

14=->70
16=>41

6-1

7-1
7=1

31-1

311

31-1»

31-2

21-1

22-1

23-1

241

25-1

—c

31-1

26~1

CZRJDEO RPO4/5/6 MLT=DR L GC MA2 R8°V94.00 5=NOV=81 09:16:17 PAGE M-2
CROSS REFERENCE TABLE (CREF VO
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

4=72¢
&=724
4-7%0
4=72¢
&=72¢

SEQ 0222

11-34
11-140
21~
11-6

1;-49
235-1

13-68

13-92

16=122

17-202

18-49

18-209

18-230

19-29

19-33