Digital PDFs

AH-9197E-MC

April 1982

224 pages

Original

12MB

view download

OCR Version

10MB

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_bw.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 RPO4/5/6 MLT~DR LGC MACRO v04.00 S-NOV-81 09:16:17 PAGE 1
?

NNN_._._._._..—A—A—D—A—A

NO NS INN 2O OO0

.REM

SEQ 0001

=0V

IDENTIFICATION

PRODUCT CODE:

AC=~9195E-M(

PRODUCT NAME:

C2RJDEO

PRODUCT DATE:

NOVEMBER 1981

MAINTAINER:

(X DIAGNOSTIC GROUP

RPO4/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 SOF TWARE 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
g?é}figELITY OF ITS

(C)

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

1976,1979,1982 DIGITAL EQUIPME!T CORPORATION

CZRJIDEO RP04/5/6 MLT-DR LGC MACRO VC4.00 5-NOV-81 09:16:17 PAGE 2

SEQ 0002

}

2.4

LOADING THE PROGRAM

3.3
3.4
3.5

RESTARTING THE PROGRAM
PROGRAM CONTROL
PASS/TEST TERMINATION
3.5.1
PASS TERMINATION
3.5.2
TFST TERMINATION
RUN_TIME
3.6.1
DATA TRANSFER MODE
3.6.2
SEEK VERIFICATION MODE

3.7

3.8
4.

33
34
35
36
37
38
30

4.3
4.4

42
43

22
5.

DATE & OPERATOR IDENTIFICATION
PARAMETERS
4.2.1
PROGRAM CONTROL PARAMETERS
4 2.2
PERIPHERIAL DEVICE ADDRESSES
4.2.3 PARAMETERS FOR THE FIRST OPERATION
SWITCH REGISTER SETTINGS
KEYBOARD COMMANDS
4.4.1
4.4.2

'T'
°'D'

COMMAND
COMMAND

4.4.5

°'R'

COMMAND

COMMAND
COMMAND

GENERAL COMMAND INFORMATION

PERFORMANCE SUMMARY TYPEOUT EXPLANATION
HARD/SOFT ERROR DEFINITIONS

5.2.1

5.2.2
6.

'S’
‘W'

PERFORMANCE SUMMARY TYPEOUT
5.1
5.2

DUAL PORT OPERATION

4.4.6

49
50

gé

UNIBUS & VECTOR ADDRESSES

46.4.3
4.4.4

STARTING THE PROGRAM

CONTROLLING THE PROGRAM

4.1
4.2

40
41

PROGRAMMABLE DRIVES

3.1

3.6

EQUIPMENT
MEDIA
PRELIMINARY PROGRAMS

OPERATING THE PROGRAM
3.2

REVISION HISTORY
ABSTRACT

REQUIREMENTS
2.1
2.2
2.3

2
2
22
23
24
25
26
27

INTRODUCTION
1.1
1.2

1
1
1

= OO 00 NN

= OO 00 ~NON N

CONTENTS

HARD ERRORS

SOFT ERRORS

DATA CHECKING & ERROR RECOVERY

6.1

6.2

DATA BUFFER COMPARISON

VERIFICATION OF DATA WRITTEN

CZRJDEO RP04/5/6 MLT~DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 2-1
58
gg
g;

6.3
6.4
7.

63
gg

7.2

68
69
70
;5

10.

SECTOR REFORMATTING
BAD TRACK/SECTOR FLAGGING

ERROR DESCRIPTION LINES
DETAIL ERROR LINES

PROGRAM DESCRIPTION
8.1
8.2
8.3
8.4

ERROR MESSAGES

7.1

HOW THE PROGRAM OPERATES
DUAL PORT OPERATION
HOW VARIJABLES ARE SELECTED FOR EACH OPERATION
DATA PATTERNS

RP/RH DRIVER DOCUMENT
PROGRAM LISTING

SEQ 0003

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

INTRODUCT ION

1.1

REVISION HISTORY

SEQ 0004

2. MODIFY STARTING ADDRESSES TO SAFEGUARD DRIVES IN MULTI-

n
}%

3. MODIFY CODE IN '‘CLEAR DRIVE PARAMETER BLOCK'' SUBROUTINE
(CLRDP8) TO PREVENT CLEARING LOCATION SRPDT.

14
}2

MODIFY CODE IN 'DRIVE INITIALIZATION'' ROUTINE (DRVINT)
TO STORE DRIVE TYPE IN APPROPRIATE DRIVE PARAMETER BLOCK.

17
}g

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

22
23
24
25

26
27
28

%8
3

CHANGE TITLE FROM CZRJDCOTO CZRJDDO
PROCESSOR ENVIRONMENT.

1.2

SEE PARAGRAPH 2.4 BELOW.

ABSTRACT

THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM 1S 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 RP06 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

32
33
34
35
36
gg

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

40
41

(OTHER DRIVES ARE PERFORMING SEEK/SEARCH OPERATIONS WHILE ONE
DRIVE IS PERFORMING A DATA TRANSFER OR WRITE CHECK OPERATION).

45
46
47
48
49

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

42
22

OPERATIONS AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA
TRANSFER RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED.

OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR.

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

56
55
6

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

WRITE DATA, WRITE HEADER

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

DURING ERROR PROCESSING.

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

SEQ 0005

58
59
¢0
61
62
22

THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE
WRITE CHECK COMMANDS.
THE WRITE CHECK COMMANDS ARE USED TO VERIFY
A PREVIOUS WRITE OPERATION.
THUS, WHEN A WRITE COMMAND IS SELECTED,
THE DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK
COMMAND .

65
66
gg

PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD; DYNAMIC
PROGRAM OPTIONS ARE SELECTED BY SWITCH REGISTER SETTINGS.
ERRORS
ARE REPORTED ON THE TELETYPE.

ALL COMMANDS, DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED

70
;%

RANDOMLY BY THE PROGRAM.
ADOITIONALLY THE ADDRESSES (EG, CYLINDER,
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY.

73
74
75
76

REQUIREMENTS

2.1

EQUIPMENT

REQUIRED

ccoeeeees

81
82
83
84
85
86
gg

PDP-11 PROCESSOR
16K _MEMORY (20K IF THE PROGRAM IS INCLUDED IN AN °'XXDP' CHAIN
TELETYPE
PROGRAM LOADING DEVICE
KW11-L OR KW11-P CLOCK
RH11 OR RH70 WITH 1 RP04, RPO5, OR RP06 DISK DRIVE

s
92

OPTIONAL

ADDITIONAL MEMORY TO A MAXIMUM OF 28K

1 TO 7 ADDITIONAL RP04/5/6'S ON THE SAME RH11 OR RH70

2.2

97
98

THE RPQ4/5/6 MULTIDRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED BY THE EXERCISER.
DISK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE RP04/5/6 FORMATTER
PROGRAM (DZRJB) OR BY THE ‘W'
EXERCISER (SEE SECTION 4.4).

000
000
L

MEDIA

COMMAND OF THE RP0O4/5/6 MULTIDRIVE
THE PACKS MUST BE FORMATTED IN 22

SE TOR (16 BIT) MODE; THE ALTERNATE

NOT SUPPORTED.

2.3

PRELIMINARY PROGRAMS
RP04/5/6 DISKLESS CONTROLLER TEST
PART 1

(CZRJG)

PART 2 (CZRJH)

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

(20 SECTOR - 18 BIT) MODE IS

:‘soooowomawm—'oomwo«v‘bww—-oomwo~uu~um—-oooowombum-toocowcrmbwm—-oooowo\n

D b
D
D e

d ed e

d e

D e

D d

b e

d d

b e

e e

WNNWNWIES BN B IS 8 0 B 8 85 B WNWNN N N N ININIW A R PO PO AV A A NONI PON) = =

2.4

D
D wred e

PROGRAMMABLE DRIVES (DUAL PORT ENABLED)
CORRUPTION OF DISK PACKS IN PROGRAMMABLE DRIVES.

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 7O 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) PROGRAMMABLE
DRIVES WILL NOT BE INHIBITED.
IF THE OPERATOR DESIRES TO RUN THIS PROGRAM USING

PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 IS

THE SAME AS 200 WITHOUT INHIBITING PROGRAMMABLE DRIVES.

SEE SECTION 3.2,3.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.

3.2

THE

THE PROGRAM STARTS AT LOCATION 200(8).

°'ABSOLUTE' LOADER WILL BE

PARAMETERS NOT INCLUDED IN

THE TELETYPE DIAGLOGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM
IS STARTED. PRUGRAMMABLE DRIVES ARE INHIBITED STANDALONE AND

XXDP CHAIN-SEE SEC

NN NNV

d =D el ed D b ed
b e
D

(CZRJE)

THIS REV INCORPOPATES A SAFEGUARD TO PREVENT INADVERTENT

NOOOOORO OO

D ek ed e

PART 1

3.4

SEQ 0006

PART 2 (CZRJF)

3.3

b o

RP04/5/6 DUAL CONTROLLER LOGIC TEST (FOR DUAL PORT DRIVE TESTING)

d —b

)

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

2.4.

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.

ONCE THE PROGRAM !S 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 TYPEOQUT MAY BE INHIBITED BY SETTING SW<02>.

3.5

PASS/TEST TERMINATION
A PASS 1S DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED.
THE
NUMBER OF BITS OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER

D d ed

O OO0
O O O \0 0000 00 G0 00 00 G0 00 0D 00 00 ~ N ~J N N~~~
O 0O ~NONWVN
NN = OO 00 NOMN NN = O D00
NS WWIND

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

PASS TERMINATION

d D e

END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS.

)

D D D o

3.5.1

D e

THE END OF PASS CONDITION USED IS DETERMINED BY PARAMETER

d md i

3.5.2

TEST TERMINATION

3.6

200

'ENDET'.

IF PARAMETER '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 O, END OF PASS OCCURS WHEN THE DRIVE
HAS PFRFORMED 3 X 10%6 SEEKS.

THE TEST FOR A DRIVE

D d D

s e

SEQ@ 0007

THE SOFT ERROR RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION.
THE SPECIFICATIONS FOR RP04°'S, RPOS5'S, AND RPO6'S SPECIFY NO MORE
THAN 1 SOFT ERROR (NON-PACK RELATED) IN 1 X 1049 BITS READ OR NO
MORE THAN 1 SEEK ERROR IN 1 X 106 SEEKS.
THE NUMBER OF BITS OR
SEEKS DETERMINING A PASS WERE SELECTED TO PROVIDE A 90X CONFIDENCE
LEVEL THAT THE DRIVE IS PERFORMING TO THE APPLICABLE SPECIFICATION.

d and D el
- —d

IS TERMINATED

(SW<04> = 0)

WHEN:

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.

THE MODE

DETERMINED BY THE VALUE IN PARAMETER °'MAXDL'.
IF 'HAXDL' 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

HEAVY MODE.
THE PROGRAM 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,
¢ 2.

DATA TRANSFER MODE
1

OO NRA NS NN -

b ek

D o

S LS LS TN TS 1N T N1,V 1, )

3.6.1

DRIVE = APPROXIMATELY 2.5 HRS (TO REACH 1.875 X 10“8 WORDS)

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

IF SW<01> = 1 (NO SOF TWARE DATA COMPARSIONS),
ARE THE FOLLOUING VALUES, APPROXIMATELY:

THE RUN TIMES

1 DRIVE = 1.7 HRS (1.875 x 108 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.
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)

NN
PLPINLINONIND
NN N N N AN N NN
CONONWV SN
= OO

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

PARAMETER °'MAXTRK' = 'MINTRK'®
PARAMETER °'MAXSEC'
= 'MINSEC'

SW<00> = 1

(READ ONLY MODE)

1 D?éVE = APPROXIMATELY 25 HRS (3 X 106 SEEKS)

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

3.7

239

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

(REFER

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

it
RH11

3.8

258

SEQ 0008

OR RK70

KDDRESs

ADDRESS

176700

254

TTY PRINTER

177564

NOT USED

TTY KEYBOARD

177560

KWl1=L

177546

100

KW11=pP

172542

104

DUAL PORT OPERATION

B.
C.
D.

%282E§25R§P04/5/6 MULTIDRIVE EXERCISER PROGRAM INTO BOTH

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

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,

'RUBOUT'

FROM THE

('RO').

INPUT.

TYPE
A

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'

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

THE

SEQ 0009
'PERIOD'

TERMINATION IS RECOGNIZED BY THE

PROGRAM AS A DEFAULT ENTRY REQUEST.

BY A 'PERIOD'

WHEN A LINE IS TERMINATED

INSTEAD OF A °‘CARRIAGE RETURN', THE PROGRAM WILL

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

D.
[

IF A 'CONTROL C'

IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM

WILL RETURN TO THE BEGINNINS OF THE GROUP BEING ENTERED.

DATE & OPERATOR IDENTIFICATION
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 1S RESTARTED.)
THESE ENTRIES ARE OPTIONAL AND MAY

BE BYPASSED BY ENTERING A 'CARRIAGE RETURN'
REQUEST.

IN RESPONSE TO THE

THE PROGRAM DOES NOT EDIT OR CHECK EITHER ENTRY.

UP TO

8 CHARACTERS OF DATE INFORMATION AND UP TO 6 CHARACTERS OF OPERATOR

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

6.2

PARAMETERS
WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILL BE
ASKED TO ENTER PARAMETERS.
THE FOLLOWING MESSAGE WILL BE DISPLAYED:

310

ENTER PARAMETERS:
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 Vv.iLut OF THE PARAMETER AND

320

WAIT FOR THE ENTRY.
THE PROGRAM WILL TY®E 'INVALID ENTRY' IF THE
ENTRY IS NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED.

6.2.1

KEYBOARD ENTRY PARAMETERS

DEFAULT
VALUE

VALUE
RANGE

NAME

BASE

MAXDL

(SEE NOTE)

PASCNT

1 - 999

INTRVL

0 - 256

FUNCTION

CONTROLS THE MAXIMUM BJUFFER

SIZE USED FOR DATA TRANSFERS

}«ggea OF PASSES TO END OF

DETERMINES THE INTERVAL (IN

MINUTES) BETWEEN AUTOMATIC

PERFORMANCE SUMMARY TYPEOUTS

CMPLMT
WCSEL

10
8

3
000000

0 = "MAXDL'
0 OR 1

ERRORS PRINTED OUT IF SW<07>=0
THE NUMBER OF DATA COMPARSION
IF PARAMETER = 0, THE DATA

TRANSFER WORD COUNT IS RANDOMLY

SELECTED BETWEEN 4 (10) AND
THE VALUE IN *MAXDL'.
IF PARAMETER = 1, THE DATA
TRANSFER WORD COUNT WILL

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

ENDET

000001

SEQ 0010

0OR1

BE THE VALUE IN_ 'MAXDL'

IF PARAMETER = 1, END OF PASS

256£?HINED BY THE

°'WORDS READ'

IF PARAMETER = 0, END OF PASS

000001

000003

OOR 1

0-7

AUTOCK

000001

OOR 1

NOT

& DATA

> 0,

& DATA

CONTROLS THE APPROXIMATE
gagéRSOF READ TO WRITE
VALUE

R/# RATIO

15/1

NO N ESNN)
=

RATIO

NUMBER

o~
~
&

FORMAT

IS DETERMINED BY THE
OF SEEKS.
IF PARAMETER = 0; DO
PERFORM WRITE HEADER
ORDERS; IF PARAMETER
Sgggggfl WRITE HEADER

IF PARAMETER = 1, THE PROGRAM

PERFORM WRITE CHECKS AFTER

EACH WRITE COMMAND.

IF PARAMETER = 0, THE PROGRAM

NOTPRT

000001

0 OR1

WILL PERFORM WRITE CHECKS
RANDOMLY.

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 LONG 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.

CZRJDEC RPO4/5/6 MLT-DR LGC MACRC Vv04.00 5-NOV-81 09:16:17 PAGE 3-7
28?
402

403

404

409
410
o
412

415
416
2};
258

CONTENTS

FUNCTION

1144

$TKS

177560

TTY KEYBOARD STATUS REGISTER

1150
1152
1174
1176

$TPS
$TPB
SLKCSR
$LKCSB

177564
177566
172540
172542

TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REGISTER
ADDRESS OF KW11=-P STATUS REGISTER
ADDRESS OF KW11=-P COUNTER BUFFER

1212

$7k8

SLPVEC
$LKS
SLLVEC

177562

TTY KEYBOARD BUFFER REGISTER

104
177546
100
74

KW11-P VECTOR ADDRESS
ADDRESS OF KW11-L STATUS REGISTER
Kw11-L VECTOR ADDRESS
74 (60 DECIMAL) IF SYSTEM IS 60 HZ:

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

421
25%

PARAMETERS FOR THE FIRST OPERATION

THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION (IN
ADDITION TO THE °'MINIMUM® ADDRESS VALUES).

424

232

427
428
429
430
431
432
433
434
435
436
637
438
439
440
225

222

TAG

1200
1202
1204

z:z

SEQ 0011

LOC

1146

405
406
407
408

6.3

INITIAL

VALUE

Loc

TAG

RANGE

1412

BEGPAT

1-15

1414

BEGCOD

0-5

1416

BEGSIZ

404

4 = MAXDL

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 CHECK DATA
1 = WRITE CHECK HEADER & DATA
2 = WRITE DATA
3 = WRITE HEADER & DATA
4 = READ DATA
S = READ HEADER & DATA
THE BUFFER SIZE FOR THE FIRST

DATA TRANSFER OPERATION.

SWITCH REGISTER SETTINGS

445

SW <15 =1

HALT ON ERROR

447

SW<10> =1

RING THE TELETYPE BELL IF ERROR

446

448
449
450

451
452

453

454
455
456

SW <13> =1
SW<7?>
SW <>
SW <5

=1
=1
=1

SW <>

SW <3

INHIBIT ERROR TYPEOUT

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.

CZRJDEQ RP04/5/6 MLT=~DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 3-8
(S7
458
459
460
461
Zgg

SW <>
SW <1>

SW<0>

464

SEQ 0012

IF DATA COMPARE ERRORS & SW<7> SET, DISPLAY RES)
OF BUFFER
INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTUP.
INHIBIT PERFORMANCE SUMMARY TYPEOUTS.
INH]BIT DATA COMPARSION AFTER READ ORDERS
READ ONLY MODE

=1
=1

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

(I.E.

AN 11/34)

(8).

THE

465
466

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER ]S
NOT PRESENT AND WILL USE A °'SOFTWARE® SWITCH REGISTER.
THE

468

SETTINGS OF THE

467

'SOFTWARE'

SWITCH REGISTER IS LOCATED AT LOCATION 176

°*SOFTWARE'

SWITCHES ARE CONTROLLED THROUGH A KEYBOARD

469
470

ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE °‘CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM IS

472
473

RP04/5/6 INTERRUPT.
THE °'SOFTWARE® SWITCH VALUES ARE ENTERED
AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT FROM THE SWITCH

4«71

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

2;?

ENTRY ROUTINE:

2;9
478
479
(80
23;

'SWR = NNNNNN
‘

NEW ='

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' AND
*CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.

483

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

485
486
23;

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
*SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
BE FOLLOWED.

484

233
491

4.4

THE

THE PROGRAM FINDS ALL

°*SOFTWARE® SWITCH

16 SWITCHES IN THE

KEYBOARD COMMANDS
THROUGH THE KEYBOARD COMMANDS,

THE OPERATOR MAY ASSIGN DRJIVES

492
493

FOR TEST (°T* COMMAND), WRITE AND CHECK DATA PACKS (°W' COMMAND),
PERFORM A SEQUENTIAL READ OF A PACK ('R®' COMMAND), REQUEST A DRIVE

zgg

BEING TESTED, READING, OR WRITING (‘D' COMMAND).

497
238

AFTER THE PROGRAM HAS BEEN INITIALIZED,
wILL BE TYPED:

494

500

gg;

503
504
505
506
ggg
509
g}?

512
513

PERFORMANCE SUMMARY

(°'S'

COMMAND),

OR DEASSIGM A DRIVE WHICH IS

THE FOLLOWING MESSAGE

'PROGRAM INITIALIZATION COMPLETE

'TYPE A CONTROL C TO ENTER COMMANDS'

KEYBOARD ENTRIES WILL NOT BE RECOGNIZED UNTIL THE OPERATOR TYPES
A 'CONTROL C'.
WHEN THE PROGRAM SEES A "CONTROL 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

ANV

N NN

0O NOWNE

N N AN AN

gWWWWNNNNNNNNNN—‘—Jdd—a_A
WA = O 000 NOWVE NN = OV~
NS

VI NAAWVAVAWNIVOOWA VWAL

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

539

AVAILABLE DRIVES HAVE BEEN PROCESSED.

THE *'T°', ‘W', AND 'R’ COMMANDS REQUIRE ADDRESS LIMITS, DRIVE I.D,
AND BAD LOCATION ADDRESS ENTRIES FOR THE DRIVE BEING REFERENCED.

}ngSG?GRAM WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING
'ENTER ADDRESS LIMITS FOR DRV #N / RPO4'
THE PROGRAM WILL REQUEST VALUES FOR THE
PARAMETERS.
NAME

BASE

MINCYL
MAXCYL
MINTRC
MAXTRK

10
10
10
10

MINSEC
MAXSEC

10
10

2.
3.

OO0 NN

A AN AN ALY IV, IV ]
VAWV
NN

SEQ 0013

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

NGTE:

951

DEFAULT

0
18
0
21

FOLLOWING ADDRESS LIMIT

VALUE

(OR RPOS OR RP06)

RANGE

FUNCTION

(SEE NOTE)
(SEE NOTE)
0-18
0-18

THE
THE
THE
THE

0-21
0-21

MINIMUM
MAXIFMUM
MINIMUM
MAXIMUM

CYLINDER ADDRESS
CYLINDER ADDRESS
TRACK ADDRESS
TRACK ADDRESS

THE MINIMUM SECTOR ADDRESS
THE MAXIMUM SECTOR ADDRESS

THE ADDRESS LIMITS ARE IN DECIMAL

THE MAXIMUM VALUES OF

410 (10) OR 814

'MINCYL' AND °'MAXCYL® WILL BE EITHER

(10) DEPENDING ON THE TYPE OF DRIVE.

THKE MINIMUM CYLINDER, TRACK, OR SECTOR ADDRESS MAY BE

SPECIFIED AS BEING LARGER THAN THE MAXIMUM ADDRESS.
WHEN
THESE VALUES ARE INVERTED, THE PROGRAM WILL SELECT
ADDRESSES BETWEEN THE °'MIN' ADDRESS AND THE UPPER
c:laéC?h %A:i! 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 I.D.

NUMBER FOR THE DRIVE OF UP TO 6

CHARACTERS IN LENGTH.
THIS I.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 ENTRYS
IN RESPONSE TO THE I.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 ?°'

€2

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

SEQ 0014

THE OPERATOR MAY DECLARE UP TO 16 BAD LOCATIONS CN THE PACK BEING

USED.
THE LOCATION MAY BE AN ENTIRE CYLINDER, A BAD TRACK, OR A
SECTOR.
THE FORMATS USED ARE AS FOLLOW:
FORMAT

C.T.S<CR>

THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES OR WILL
IDENTIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED ADDRESS,
DEPENDING ON THE VALUE OF PARAMETER °'NOTPRT'.
LEADING ZEROS ARE NOT REQUIRED.

B.
FORMAT 2:

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.
LEADING ZEROS ARE NOT REQUIRED.

FORMAT 3:

C<CR>

WHEN THIS FORMAT IS USED, THE ENTIRE CYLINDER WILL
BE CONSIDERED BAD:; DATA ERRORS WILL BE HANDLED AS IN
‘FORMAT 1°' ABOVE.

B.
NOTE:

SINGLE

LEADING ZEROS ARE NOT REQUIRED.

CYLINDER,

TRACK, AND SECTOR ENTRIES ARE

THE OPERATOR MAY TERMINATE

IN DECIMAL.

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'.
6.6.1

'T'

COMMAND

USED TO ASSIGN A DRIVE(S)
PERFORM THE

TEST OF

FOR TEST.

THE DRIVE(S).

COMMANDS OR SUPPORT COMMANDS.

THIS COMMAND IS REQUIRED

THE OTHER COMMANDS ARE CONVIENCE

TN<CR>

FORMAT:

N = DRIVE NUMBER.,

MAY BE 0 TO 7 OR

'A'.

Yo Yo Yo

TERMINIATED BY A CARRIAGE RETURN <(CR>.

o e Yo Yo Yo o

EXAMPLE:

TO<CR> - ASSIGN DRIVE 0 FOR TEST

TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST

DRIVE OPERATION BEGINS IMMEDIATELY
AFTER COMMAND IS ENTERED.

—

NOTE:

ENTRY MUST BE

4.6.2

‘D' COMMAND
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED.
FORMAT:

DN<CR>

N = DRIVE NUMBER.

MAY BE 0 TO 7 OR 'A'.

TERMINIATED BY A CARRIAGE RETURN <CR>.

ENTRY MUST BE

C
CZRJIDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5~NOV~81 09:16:17 PAGE 3-11

EXAMPLE:

NOTES:

SEQ 0015

DO<CR> - DEASSIGN DRIVE 0
DA<CR> ;Eg$QSSIG~ ALL DRIVES BEING
1.

IF THE ‘D' COMMAND REFERENCES A
DRIVE NOT ASSIGNED THE PROGRAM
WILL TYPEOUT '?DRIVE NOT ASSIGNED'

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

3. IF

'DA* IS USED, ONLY DRIVES BEING

TESTED WILL BE DEASSIGNED - THE

ERROR MESSAGE IN (1) ABOVE WILL NOT
BE DISPLAYED.

4.4.3

'S’ COMMAND
ggsssgg)REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED
FORMAT:

SN<CR>

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

EXAMPLE:

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

NOTES:

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

f?szcE@ PRIVE BEING TESTED AT A RATE DETERMINED BY

IF THE °'SA' COMMAND IS USED, THE PROGRAM WILL TYPEOUT

THE OPERATOR ENTERED DATE, OPERATOR I.D., AND THE DRIVE

1.0. 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
USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RP04/5/6 MULTIDRIVE EXERCISER PROGRAM.,
FORMAT: WN<CR>

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

EXAMPLE:

ENTRY MUST BE

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

0
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-12
685
686
687
688

NOTES:

SEQ 0016

DATA PACKS GENERATED BY THE RP04/5/6 FORMATTER PROGRAM
(MD=11-CZRJB) OR BY THE RPQ4/5/6 MECHANICAL & READ/WRITE
PROGRAM (MD-11=CZRJA),
TEST 20, ARE ACCEPTABLE.
(PACKS

689

WRITTEN BY TESTS 16, 17 OR 21 OF 'CZRJA® CANNOT BE USED

gg?

AND MUST BE REWRITTEN.)

692
693
694
695
239

698

705
;89

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

708
709
710
;}5

THE 'W' COMMAND CANNOT BE STARTED IF SWITCH 0 (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

BE PRACTICAL.

699
700
701
702
;82

714
715
716

;}g

THE ‘W' COMMAND SHOULD NOT BE USED UNLESS 'MAXDL'
PARAMETER IS 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

4.4.5

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, BEGINNING
AT °'MINCYL', °MINTRK' AND CONTINUING TO 'MAXCYL',
'MAXTRK"'.

THE DATA WRITTEN IS VERIFIED BY A 'WRITE CHECK DATA'

COMMAND.

'R' COMMAND

;}g

USED TO PERFORM A SEGUENTIAL READ OF THE PACK.

;g;

FORMAT: RN<CR>

723
;gg

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

726
;gg

EXAMPLE:

729
;g?

NOTES:

732
733

;gg

736
;%g

4.4.6

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

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'.
THE READ WILL BE SEQUENTIAL.

GENERAL COMMAND INFORMATION

;23

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

741

IF THE COMMAND ENTERED IS NOT VALID,

THE PROGRAM WILL TYPE

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO V04.00 S~NOV-81 09:16:17 PAGE 3-1§
;2%

;22

;2;

DRIVES ASSIGNED (WITH THE

THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS
RESPONSE

?UNIT
2UNIT
7UNIT
2UNIT
2UNIT
P2UNIT

COMMAND (S)

N
N
N
N
N
N

OFFLINE
NOT ASSIGNED
ALREADY ASSIGNED
NOT PRESENT
UNSAFE
NOT AN RP04/5/6

T,
D,
T,
T.
T,
T,

W,
S
W,
W,
W,
W,

R
R
R
R
R

PERFORMANCE SUMMARY TYPEOUT

5.1

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
REQUEST BY THE OPERATOR THROUGH THE USE OF THE 'S’ COMMAND.
THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS:

[44

‘DRV'

772
773
774
775
776
777
778
779
780
;g;

'PASS'
'ORDERS*
'SFEKS'
'WRDS XFER'
'WRDS READ'
'SOFT'*
'HARD
'SKI’
‘MISP’
‘OTHER'

783
;gg

NOTE:

THE DRIVE NUMBER

THE
THE
THE
THE
THE
THE
THE
THE
THE
THE

PRESENT PASS COUNT FOR THE DRIVE
NUMBER OF ORDERS PERFORMED BY THE DR]VE
NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED
TOTAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE
TOTAL NUMBER OF WORDS READ BY THE DRIVE
NUMBER OF SOFT DATA ERRORS
NUMBER OF HARD DATA ERRORS
NUMBER OF °SKI® OR *OCYL® ERRORS
NUMBER OF POSITIONING ERRORS
TOTAL ERRORS OF OTHER TYPES

ERRORS EM1, EM2, EM3, EM4, EMS5, © EM10 ARE NOT INCLUDED IN
THE 'OTHER'
ERROR TOTAL.

;gg

5.2

SOFT/HARD ERROR DEF INITIONS

;gg

5.2.1

HARD ERRORS

797
798

COMMAND) OR DEASSIGNED (WITH THE

eeemem
D decnaee

731
752
753
754
755
756
;gg

790
791
792
793
794
;32

‘T’

‘D' COMMAND) MAY BE ENTERED IN ANY SEQUENCE.

749

764
765
766
767
768
;98

SEQ 0017

'INVALID COMMAND'.

744

759
760
761
;%%

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:
RPO4/5
ceaees

RPO6
———-

F
CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-14
799
800
801
802

+400
=400
+800
-800

803

MICRO-INCHES
MICRO=-INCHES
MICRO-INCHES
MICRO~INCHES

5.2.2

A.
B.
C.

DATA CHECKING & ERROR RECOVERY

820
gg;

6.1

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

A. THE ORDER TERMINATED WITH NO ERROR.

359
828
829

ggg

6.2

VERIFICATION OF DATA WRITTEN
AFTER EACH WRITE OPERATION., THE DATA WRITTEN IS CHECKED WITH THE
APPROPRIATE WRITE CHECK COMMAND IF PARAMETER 'AUTOCK' IS 1.

6.3

844

(IF *AUTOCK® IS 0, WRITE CHECKS WILL BE PERFORMED RANDOMLY.)
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.
A.

DATA CHECK ERRORS - EM21

DRIVE TIMING ERRORS - EM3{

845

847

846

gzg
gg?

852
853
854
855

THE OPERATION TERMINATED WITH 'DCK' SET AND THE ERROR
IS ECC CORRECTABLE OR THE SECTOR IN ERROR IS READ

CORRECTLY AFTER RETRY ATTEMPTS.

834
835

840
841
gz;

+800 MICRO-INCHES

-800 MICRO~-INCHES

ECC CORRECTABLE 'DCK' ERRORS.
°'DCK' & 'ECH' ERRORS WHICH BECOME ECC CORRECTABLE DURING
RETRY OR WHICH ARE READ CORRECTLY DURING RETRY.
HEADER READ ERRORS = READ DATA, READ HEADER & DATA, OR
WRITE DATA ORDERS.
°'DTE' ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE
'DCK’ ERROR DURING THE RETRY SEQUENCE.

823
ggg

MICRO-INCHES
MICRO-INCHES
MIZRO-INCHES
MICRO-INCHES

SOFT ERRORS

816
817
g}g

3%9
g§3

+200
=200
+400
=400

<1200 MICRO-INCHES

808
809
810
811
812
813
g};

ggg

SEQ 0018

+1200 MICRO-INCHES

ggg

E.
6.4

HEADER READ ERRORS - EM20,

EM24, EM25, EM26, EM27

OPERATION INCOMPLETE ERRORS - EM32

WRITE CHECK ERRORS - EM22, EM23

BAD TRACK/SECTOR FLAGGING

SINCE THE RPO4 SUBSYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRACK
HANDL ING CAPABILTIY, THE MULTIDRIVE EXERCISER ALLOWS THE OPERATOR
TO IDENTIFY UP TO 8 BAD TRACK/SECTOR LOCATIONS WHEN THE DRIVE IS
ASSIGNED FOR TEST.
(SEE SECTION 4.1 FOR ADDITIONAL INFORMATION.)

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-12
856
857
858
859
860
861
862
863
864
ggg

867
868
869
870
87
872
873
874
875
876

SEQ 0019

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

'HCE' & °'HCRC',

'HCRC')

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

ERROR MESSAGES

879
880
881
882
883

DRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (IF AVAILABLE) A
LINE PRINTER.
ALL ERROR CONDITIONS ARE REPORTED IN ERROR MESSAGES;
THE PROGRAM CONTAINS NO CODED ERRCR HALTS.,
IF THE PROGRAM HALTS
(ASSUMING, OF COURSE, THAT SW<15> IS NOT SET), AN UNRECOVERABLE
PROGRAM CONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS

886
887
888
ggg

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.

ggé

gg}

OCCURRED.

7.1

ERROR DESCRIPTION LINES

893

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

ggg

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.)

899
900
901
902
882

MESSAGE
TAG
-

894
ggg

DISPLAYED ON THE TTY.
THE OTHER MESSAGES ARE DISPLAYED ON EITHER
THE LINE PRINTER (IF AVAILABLE) OR THE TTY.

EM1

905

910
m

RH11 INTERRUPT OCCURRED (RPAS=0)
THE RH11

389

883

TEXT
———-

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 RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-16

EM3

MASSBUS PARITY ERROR

Sea 0020
(MCPE=1)

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

EMé

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

EM6

°'OPE' BIT WAS SET WHEN THE

INDICATED DRIVE INTERRUPTED.

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

EM10

NO RESPONSE WAS RECEIVED

UNCORRECTABLE MASSBUS PARITY ERROR
THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED
REGISTER.

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

%EEE:E%CISED UNTIL THE UNSAFE CONDITION HAS BEEN

EM13

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

EM14

SECOND

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
mao

THE PROGRAM IS TESTING A DUAL PORT DRIVE WHI H HAS NOT SWITCHED
TO THE REQUESTING PORT WITHIN 10 SECONDS AFT R PORT REQUEST
TO THE DRIVE FROM THE REPORTING PORT.

EM20

HEADER CRC ERROR

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-1;
970
971
972
973
974
975
976
977
978
979
980

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

EM22

EM23

33?

EM24

BE RETRIED 3 TIMES.
EM25

}88;

EM26

1009
1010

FORMAT ERROR ('FER')
FORMAT ERROR OCCURRED.
WHEN THE HEADER WAS RE-READ, THE
'"HCRC® BIT WAS NOT SET.
THE CONTENTS OF THE HEADER ARE

}8}5

DISPLAYED.

EM27

1015
}3}9

THE OPERATION WILL BE RETRIED 3 TIMES.

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

EM30

1020
}855

1025
1026

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

SIMILAR TO EM24, EXCEPT THAT THE °'HCE' ERROR BIT WAS
SET INITIALLY.
THE OPERATION WILL BE RETRIED 3 TIMES.

}882

}8%2

HEADER READ ERROR - °'FMT' BIT DROPPED
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

1002
1003
1004

}8}8

WRITE CHECK ERROR - DATA CHECK (°'DCK') NOT SET
A WRITE CHECK ERROR OCCURRED AND ‘'DCK' WAS NOT SET.
THE
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR
MESSAGE.
THE OPERATION WILL BE RETRIED 3 TIMES.

1000

}8}2

WRITE CHECK ERROR = DATA CHECK (°'DCK') SET
A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ('DCK') BIT
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
BE RETRIED UP TO 16 TIMES.

985
339

992
993
994
995
996
997
998
999

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

983

3%3

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

EM32

olelele)

059

SEQ 0022

DRIVE TIMING ('DTE') ERROR
DRIVE TIMING ERROR OCCURRED ON THE

OPERATION WILL BE RETRIED 3 TIMES.

EM33

PARITY
THE

INDICATED SECTOR.

THE

('PAR') ERROR AFTER OPERATION STARTED

°'PAR' BIT WAS SET WHEN_THE OPERATION WAS COMPLETED.

OPERATION WILL BE RETRIED 3 TIMES.

EM34

WRITE CLOCK FAILURE

OPERATION WILL BE RETRIED 3 TIMES.

EM35

THE

('WCF*)

A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION.

THE

INVALID ADDRESS ('IAE') ERROR
AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION.

EM36

WRITE LOCK

('WLE')

ERROR

togzégf OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE

EM4O

VIV

l=lelelelele)
S
SRR

~No
n e WA = O 000 NN

NN = OO0 ~NONWN SN = OO0 00~

(o]ele]
(ool
=leole
RRRRRR3an0e30000588
SN WWNWIWNWWNIWWNNAI
NN

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

RH11
'TRE'

OR UNIBUS TRANSFER ERROCR
IS SET IN THE RH11

ERROR HAS OCCURRED.

CONTROL REGISTER AND NO DRIVE

THE OPERATION WILL BE RETRIED 3

TIMES IF THE ERROR WAS CAUSED BY

OR 'MDPE'.
EM41

°'DLT',

'UPE',

'MXF°,

BUS ADDRESS OR WORD COUNT INCORRECT
NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE
WORD COUNT REGISTER IS NOT ZERO.

EM42

DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED
NO SUBSYSTEM ERROR WAS SIGNALED;
COMPARE.

EM4L3

HOWEVER,

THE DATA DOES NOT

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

EM44

THE

STANDARD

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

THE RH11

EM4S

SET.

ECC LOGIC FAILURE
THE CONTENTS OF EITHER THE ECC POSITION REGISTER

(RPEC1)

€2

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

SEQ 0023

OR THE CONTENTS OF ECC PATTERN

VALID.
THE POSITION REIGSTER I EITHER'O' OR > 10041
OR THE PATTERN REGISTER CONTAINS ZEROS.

EM46

(8)

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 WITK THE TRANSFE?® COUNT FROM THE
WORD CGUNT REGISTER.

EM50

SEEK INCOMPLETE OR OFF CYLINDER ERROR
THE DRIVE SIGNALED EITHER

Winy
=

EM51

EM60

=0 V0N
W
NNV
NN~ OV
NN =20 VNN
OVB NN

°'OCYL'

ERROR BITS.

PROGRAM DETECTED POSITIONING ERROR
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
OF 'RPCC' OF THE DRIVE.
THE DRIVE WILL BE RECALIBRATED.

d cd o

b e

b
b
b

b e cd
b

b e

d
b
e
b d =

b e
e

e
e

e
b

wed b

b
b
b
e

b cd e e
e arcd

e ed o
o

b e

e
b aed e
b

b
b e
i

b e

1099

°SKI®*

DEVICE UNSAFE
THE

INDICATED DRIVE UNSAFE ERROR OCCURRED;

CLEARED BY A °'DRIVE CLEAR'

7.2

INSTRUCTION.

THE ERROR WAS

DETAIL ERROR LINES
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY.

TT:TT:T7T

(DESCRIPTION OF ERROR)

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

'PRESENT ORDER = XXXX

PREVIOUS ORDER = YYYY®

MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW:

UNLOAD =~ UNLOAD (OCTAL 3)
SEEK - SEEK (OCTAL 5)
RECAL - RECALIBRATE (OCTAL 7)
DRVCLR = DRIVE CLEAR (OCTAL 11)
RELSE - RELEASE (OCTAL 13)
OFFSET - OFFSET (OCTAL 15)
RTC = RETURN TO CENTERLINE (OCTAL 17)
READIN - READIN PRESET (OCTAL 21)
PACK = PACK ACKNOWLEDGE (OCTAL 23)

€z

CZRJOEO RP04/5/6 MLT~DR LGC MACRO V04.00 5-NOV-81 09:15:17 PAGE 3-25
1141
1142
1143
}}2?

1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
}}gg

]

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 & 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,RPERT, RPER2 ,RPER3 ,RPEC1, & RPEC2 FORM THE FIRST
ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP.
GROUP;

IF SW<05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE

DISPLAYED.)

THE ABOVE LINE WILL BE TYPED IF

THE NON-DATA TRANSFER PART OF

THE ERROR OCCURRED DURING

THE OPERATION.

}}gg

'* ERROR AT BAD TRACK/SECTOR'

1161
1162
}}22

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 O FOR THE ERROR TO BE REPORTED.

1165

A WORD CALLED °STATUS' IS DISPLAYED WITH THE RP04/5/6 REGISTERS.
THE
CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED 8Y THE
RP04/5/6 DRIVE HANDLER ROUTINE.
THE BITS IN THIS WORD ARE ENCODED

1166

1167
1168
1169
1170
w2
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197

AS FOLLOWS:

BIT #
eeees

MEANING IF BIT IS

'1°

ERROR OCCURRED

DRIVE IS OFFLINE

PERSISTENT UNSAFE

UNCORRECTABLE PARITY ERROR OCCURRED

FATAL PARITY ERROR OCCURRED.
WAS PERFORMED

OPERATION NOT COMPLETED WITHIN 1

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

CONDITION EXISTS

MASSBUS CLEAR PERFORMED.

MASSBUS CLEAR

SECOND

ALL OTHER

OUTSTANDING OPERATIONS WERE RESTARTED.

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

€z

98
99
00

NNNNNNNNNN—'-‘—‘—‘—‘—'—‘—O—‘—Dooog
bwm—noooa\aowbwmdoomsJOmbwm—-‘é‘omwo«mbumaoomwombwm-floomw

01
02
c3
04
05

VWAV
BN SN 4~ NN N W N NN W

—d end wd

b ad wd

)

D el

b cnd cd ad cond cnd cd

D wnd

D cd

b e ad

d wd =D emd

b wed

b el wd

D end

D e

b e

D g

NN NLALALRLNINLNLALALNLALALNL NN NINLNL NI AL AL ALNINL NI RV NV NNV AL AINVNL NN NV NNV AL AL NI PV

D d

D nd

D e

D o

NNV NV AININININON) —

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

"€EQ@ 00.

DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC
RECALIBRATE SEQUENCE

PORT REQUEST TIMEOUT
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.

PRESENT ADDR = CXXX

TYY SZZ

PREV ADDR = CUW TVvV Sww

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

START CYL = XXX END CYL = YYY
THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED)
AND THE DESTINATION CYLINDER.
CYLINDER ADDRESSES ARE IN

DECIMAL.

START CYL = XXX

END CYL = YYY

ACTUAL CYL = 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 (YL = XXX

START TRK = YY

START SECTOR = 22

NNNN_.—‘-.—.
(A8, V1,8 1,8

OO
NN NN
VIS NN 2 OO0~
N

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

SEQ 0026

THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF

THE PRESENT

OPERATION.

CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL.

RPDA = XXXX

RPCA = YYYY

THIS LINE GIVES THE CONTENTS OF THE RP04 TRACK AND SECTOR
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER
gg?RESS REGISTER.
THIS LINE IS NOT PRINTED IF SW<05> IS NOT

LINE 10
BUFFER ADDR = XXXX

SIZE = YYYY

ACTUAL NUMBR WRDS XFRD = 2212

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
OCTAL, THE SIZE ANU WORD TRANSFERED VALUE ARE IN DECIMAL.

LINE 11
GOOD DATA = XXXX

BAD DATA = YYYY

SECT POS = 212

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.

LINE 12
HEADER CONTENTS OF ERROR SECTCR = XXXX XXXX XXXX XXXX

THIS LINE GIVES THE CONTENTS OF
GAVE THE ERROR.

THE HEADER OF

THE SECTOR WHICH

LINE 13
RPECT = XXXX

RPEC2 = vYYYY

THIS LINC 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,

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE S-Zg
1312
s
1314
}%}Z
1317
1318
1319
1320
32
1322
%g%z
1325
1326
1327
1328
1330

SEQ 0027

LINE 15
eeseees

READ CORRECTLY AT OFFSET

MICRO~INCHES

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

LINE 16

ecceea-

ECC CORRECTABLE AT OFFSET

MICRO-INCHES

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

LINE 17

CORRECTED OA X RETRY

1333
1334

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

=2 OO0 NN SMAN 2 O 000 NN S (N = OV 0 NOM N

o~ OB NN

—b end el b e el

b d d ) b

) d ) b b

D cd

D cd D e i

D e el D e

D nd el

) et

NN A N L AN N AN N N AN N N A N NN NN AN L N AN W AN AN N N AN N N NN
o OO
ONOr
OO NN NNNWNWNUNINWNE
D DB BB NS S WWWNWIN

}g%}

LINE 18
UNCORRECTABLE AFTER X RETRIES
THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE

INDICATED NUMBER OF RETRY ATTEMPTS.

LINE 19
DIFFERENT ERROR DURING RETRY
WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED.
IF THIS LINE IS PRINTED, THE RH11/RP04 REGISTERS WILL ALSO BE
PRINTED (SEE LINE 2).

LINE 20
DATA COMPARISON ERRORS
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

SEQ 0028

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

LINE 23
ECC CORRECTION RESULTS
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.

LINE 24
ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR
THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK® ERRORS
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING
BEE?;AL *XXX' IS THE WORD OFFSET VALUE FROM 'RPEC1®' AND IS IN

LINE 25
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

IF SW<03> IS SET, THE SECTOR WHICH GAVE THE 'DCK',

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

°'DTE® OR.
THE

LINE 27

b emd e

)

ot
oy 2l o AT
PR T

D cd wnd

D and

NRONVNINON
Db b
a0 O
VB WN OOV NV
W
OO

b cd =h

CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE)

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.

-L]

CZRJIDEO RPO4/5/6 MLT-DR LGC MACRO v04.00 5~NOV-81 09:16:17 PAGE 3-24

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 S-NOvV-81 09:16:17 PAGE 3-25

1426

SEQ 0029

1427

THE DRIVE.

'WRDS XFR'

IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY

1429

'WRDS READ'

IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE.

1431

LINE 28

143

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

1438
1439

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

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

1441

'TOTAL SEEKS®

IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED

BY THE DRIVE.

1444
1445

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

1447
1448
1449
1450
1451
Ltk
1453

'TOTAL SKI,0CYL ERR' IS THE TOTAL NUMBER OF
SIGNALED BY THE DRIVE.

1454

1456
1457
1458
1459
1460
1461
1462

PROGRAM DESCRIPTION
ushvtol it
b

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 K411-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

1463

BY THE PROGRAM

1465

THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR:

1467
1468
1469
1470
1471

1)
2)
3)
4)

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

1473
1474
1475

THE_PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND.
IN THE CASE_OF THE PROGRAM AT INITIAL START, THE FIRST ENTRY WiLL
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ('T® COMMAND).

1477
1478

WHEN A DRIVE IS ASSIGNED, THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE
DRIVE IS PRESENT, 1S AN RP04/5/6, AND IS ONLINE.
THE ASSIGNMENT ROUTINE

1479
1480

1482

\HEN ISSUES A "READIN PRESET'
A "RECALIBRATE® INSTRUCTION.

INSTRUCTION, SETS 'FMT22'. AND ISSUES

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

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

SEQ 0030

THE OPERATION IS A WRITE OR WRITE CHECK ORDER, THE ASSIGNED BUFFER
WILL BE FILLED WITH THE SELECTED PATTERN.
(WRITE CHECK ORDERS ARE
ISSUED AFTER EACH WRITE ORDER.
THE WRITE CHECK ORDER USES THE
PARAMETERS SELECTED FOR THE PRECEEDING WRITE ORDER.)
CONTROL

1489
1490
1491
1492
1493
1694
1495
1496
1497
1498
}ggg

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.

1501
1502
1503
1504

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

R NI RN NIAY =2 b b ek e b ek ek =2 s O O O
NS NN O VNNV
W= OV~

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 CONSISTENY 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.

MULTIPLE

ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY.

VNS W= OV

b
b e
=
b
e
o
o
b e

IS THEN PASSED TO THE COMMAND INITIATION ROUTINE.

PERSISTENT UNSAFE CONDITION - EM12
UNCORRECTABLE MASSBUS PARITY ERROR - EM10

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

wviuvivaviuaiiuvi
i
N AN N N NN NN
ANNI PO AL

b cmd b

wrnd e

D wnd o

D e

viaw

1483
1484
1485
1486
}23;

FATAL MASSBUS PARITY ERROR - EM11

ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY.

CORRECTABLE UNSAFE - EMGO
DRIVE TIMING ERROR - EM32
DATA CHECK ERROR = EM21

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

o
0000C0 00 NN NN NNNNNNOVO
W= O VNN
WN—=O Y

b
D d
d =D e

SEQ 0031

PROGRAM DETECTED POSITIONING ERROR =~ EMS1

SEEK INCOMPLETE OR OFF CYLINDER ERROR - EM50
WRITE CHECK WITHOUT °'DCK' SET - EM23
RH11 OR UN&BUSE;R?NSFER ERROR - EM4O

‘OP1'
'PAR'
'WCF'
'IAE'

ERRO
3
ERROR - EM33
ERROR - EM34
ERROR - EM35

‘WLE' ERROR )
MISCELLANEOUS DRIVE ERROR -~ EM30

T A M LT A WNTIA

d e
D

D d

VIATLA WA

) =D
)
b

b el e

b e

wed e

cd o

b amd =

) e

564

HEADER COMPARE ERRORS - EM25, EM27

b d e

b e

TN AW wn

OOV NWVINVWVIWAWNE D DD &H
WN =2 OV
NO VNS WNN =200V NO NS W=D

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

ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC.

BUS ADDRESS OR WORD COUNT INCORRECT - EM41
DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED - EM4?
CAN'T MATCH DATA READ WITH A PATTERN - EM43
ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 - EM44
ECC LOGIC FAILURE - EM45
BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46

8.2

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 RECE1VES
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 WILL SEIZE THE DRIVE.
IF THE

DRIVE 1S SEIZED BY THE OTHER PORT, WRITING INTO 'RPDS1°' WILL SET
'PORT REQUEST'.
THE PROGRAM CHECKS 'DVA' IN °'RPCS1°.
IF THE DRIVE
IS AVAILABLE AS INDICATED BY THE 'DVA' BIT, THE COMMAND SEQUENCE

WILL BE INITIATED IN THE NORMAL MANNER

(SEE SECTION 8.1 ABOVE).

IF 'DVA' WAS NOT SET, THE PROGRAM MAKES AN ENTRY FOR THE DRIVE
IN AN INTERNAL °'PORT REQUEST PENDING' TABLE AND
STARTS A 20 SECOND TIMER FOR THE DRIVE.
IF THE DRIVE HAS

NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 20 SECOND INTERVAL,
THE PROGRAM REPORTS A °'NO RESPONSE TO PORT REQUEST® ERROR.
NORMALLY
THIS ERROR ME3SSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL
LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS

(E.G. MASSBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM

ON_A MOD33 TTY), THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE

AFTER IT HAD REQUESTED THE DRIVE.
THE OPERATOR MUST BE AWARE OF
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT
RELATED ERROR MESSAGES PROPERLY.

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

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

1597
1598
1599
1600

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 ISSucD
AT THE END OF NORMAL ORDER PROCESSING OR AT THE END OF ERROR PROCESSING.

}28%

EFFECT ON THE OPERATION OF THE DRIVE.

1601

}ggg

A RELEASE COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL

8.3

1606
1607
1608
1609
1610
1611
1612
1613

SELECTION OF OPERATION VARIABLES
A.

}212

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'.
IF A MINIMUM
ADDRESS 1S GREATER THAN THE CORRESPONDING MAXIMUM ADDRESS. THE
PROGRAM WILL EXCLUDE ALL ADDRESSES BETWEEN °'MAX' AND °'MIN®
FROM
THE SELECTION.
FOR EXAMPLE: IF 'MINTRK' IS 18 AND °‘MAXTRK® IS
IS 5, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 6 - 17
FROM THE SELECTION AND SELECT AN ADDRESS FROM AMONG ADDRESSFS

1616
1617
1618
1619
1620
1621

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

1624
1625
1626
}25;

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.
THE PROGRAM EXPECTS TO
FIND THAT THE KEYWORDS ARE ZERO.

1629
1630
1631
1632
1633
1634
1635
;2;?

THE ORDERS ARE SELECTED RANDOMLY.
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 HEADER & DATA) ORDERS.
WHEN THE PROGRAM SELECTS
A WRITE HEADER & DATA ORDER, THE BUFFER SIZE IS FORCED TO
260 (10); THE PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT
WRITE OPERATION.

1638
1639
1640
‘}22;

THE FIRST ORDER PERFORMED AFTER A UNIT IS ASSIGNED WITH A
'T', 'W', OR_"R' COMMAND IS NOT RANDOMLY SELECTED.
THE PARAMETERS
FOR THE FIRST OPERATION ARE THE MINIMUM OR STARTING VALUES OF
THE VARIABLES.

}ggg

}gzz
1645
1646
1647
1648
1649

50
51
52

8.4

DATA PATTERNS
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 WORDS OF
EACH SECTOR,
THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING

PATTERNS.

O MANTAIN COMPATIABILITY WITH PACKS WRITTEN BY THE FORMAT

PROGRAM (CZRJB), THE PROGRAM WILL ACCEPT ALL ZERO'S AND
AND ALL ONE'S PATTERNS; HOWEVER, ALL ZERO'S AND ALL ONE'S

PATTERNS ARE NOT WRITTEN BY THE EXERCISER PROGRAM.

SEQ 0032

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

SEQ 0033

1655

PATTERN '8'

1657

PAT1

PAT 2

PAT3

PAT 4

PATS

PAT 6

PAT 7

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
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356

052525
052525
052525
125252
125252
125252
052525
052505
125252
125252
052525
125252
052525
125252
052525

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

026455
026455
26455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455

165555
133333

177777

177776
177774
177770
1772760
177740
172700
177600
177400
177000
176000
174000
170000
160000
140000
100000

PAT 9

PAT 10 PAT 11 PAT 12 PAT 13 PAT 14 PAT 15

000020
000040

177757
177737

1674

1678
1679
1680
1681

000001
000002
000004
000010

1684
1685
1686
1687
1688
1689
1690
1691
1692

000100
000200
000400
001000
002000
004000
010000
020000
040000

1682
1683

1693

1695
1696
1697
1698
1699

100000

9.
77

9.1

1701
1702
1203
1705

1707
1708
1709
1710

IS DEFINED AS THE

177777

177776
177775
177773
177767

172666
155555
172666
155555

077777
137777
157777
167777

177677
177577
177377
176777
175777
173777
167777
157777
137777

172666
155555
172666
155555
172666
155555
172666
155555
172666

176777
177377
177577
177677
177737
177757
1772767
1777273
177775

077777

172666
155555

155555

173777
175777

177776

'WORST CASE'

125252

153333
066667
153333
066667

153333
066667
153333
066667
153333
066667
153333
066667

153333

066667
153333

066667

PATTERN.

170360

000000
177777
177777
177777

177777
177777
177777
177777
177777
177777
177777
177777

177777
177777
177777

177777

151322

165555

133333
165555

133333

165555
133333
165555

133333
165555

133333
165555
133333
165555
133333

177777
000000
000000
000000

000000
(000000

000000
000000
000000
000000
000000
C.0000
000000
000000
000000

000000

RP/RH DRIVER DOCUMENT
cececmeeiacceecdeeaan

RH11/RP04/5/6 DRIVER
THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH11/RP04/5/6 DRIVER.
THE DRIVE INITIALIZATION ROUTINE HAS BEEN MODIFIED TO
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

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:

b nd d d

SNNSNNN NN~ NNNNNNC INSNNSNNNYWY
NN N POPOPNININININ)
b = cad b b b N = OO0 ~ NN
NN = OO 00 O
S (N -

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

DRIVE STATE

d oD

b e

DRVSTA

ONLINE RPQ4/5/6

NONEXISTENT DRIVE
UNSAFE RP04/5/6

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

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:
DRVTYP

D e

D i

D e e

D d D d

b e

0
1
2
4
10
=1
THE

°'RPINIT' ROUTINE WILL DO A READIN PRESET AND WILL SET FMT22.

JSR

PNTDPB

RO,RPO4

RETURN]
RETURNZ2

.BYTE

.BYTE
.WORD
.WORD

OO0O00O0O0Oo

.BYTE

PNTDPB:

.BYTE

.WORD
.WORD

b
b
b
b
b cud

sMAKE THE CALL

;ADDRESS OF DPBt
sRETURN IF QUEUE IS FULL
;RETURN IF REQUEST IS IN
;QUEUE OR THERE IS AN
SERROR CONDITION

*DPB (DATA PARAMETER BLOCK)

b b

b =D and d

b ed

NoOAa
S

CALL:

IT IS CALLED USING THE

( 0) DRIVE NUMBER
( 1) OFFSET VALUE OR FMT22, ECT, AND HCI
( 2) COMMAND
: ( 3) PSEL AND A17 AND A16
( 4) WORD COUNT (MUST BE NEG.)
( 6) BUFFER ADDRESS OR
:R EGI STER TABLE POINTER
(10) SECTOR ADDRESS OR
FIRS T_REG. INDEX
( 11) TRACK ADDRESS OR
s LAST EG. INDEX
YLINDER ADDRESS
1
(12)
(14)
RROR _TABLE POINTER
s POINT
TO THE FIRST OF TWENTY
IN
OCAT ONS OF WHERE THE DRIVER
—M
D

d
b e
D =D
b

NONEXISTENT DRIVE
RPO4
RPOS5
RP06
PROGRAMMABLE DRIVE
NOT AN RP04/5/6

AFTER THE DRIVER HAS BEEN INITIALIZED,
FOLLOWING SEQUENCE.

NNNNNNN NN
IS

b e

CONDITION

CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3-31
1768
1769
1770
177
1772
1773
1774
};;g
1777
1778
};gg

WORD

9.4

};gz

1791
};3%
1794
1795

1796
1797

1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
}g}g

1822

1823
1824

MOV

#16.,-(SP)

JSR

PC.RPTMR

;16 MILLISECONDS BETWEEN
+CLOCK TICKS

JCALL 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
SECONDS FOR ERROR RECOVERY OPERATIONS.
4.1

EXAMPLE - WRITE 1000. WORDS
1$:

2s:

WRTDPB:

}g}g
1818
1819
1820
1821

;IS TO STORE THE RH11/RP04%
*REGISTERS ON AN ERROR. IF LEFT
*2ERO REGISTERS ARE NOT SAVED.
$(16) STATUS/ERROR INDICATOR
.axr1s=1->snnon 0CCURRED
‘BIT07=1=>DONE
81714-81709 AND BIT06-BITO3
*INDICATE TYPE OF ERROR

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:

1781
1782

1785
1786
1787
1788
};gg

SEQ@ 0035

JSR
WRTDPB

B8R
TST

BEQ
B8MI]
.
.
.

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

RO,RPO3

18
WRTDPB+16
2
ERROR1

5
0
161
0
=1000.
WRTBUF
3
5
400
ERRTBS

;CALL THE DRIVER
:DPB ADDRESS

;WAIT FOR QUEUE IF FULL
JWAIT FOR COMMAND TO COMPLETE
JERROR OCCURRED

:DRIVE #5
;
*WRITE COMMAND
:
;WORD COUNT
*BUFFER ADDRESS
*SECTOR
S TRACK
*CYLINDER
JERROR TABLE
*STATUS/ERROR INDICATOR

ALTERNATE DPB SETUP
WRTDPB:

.WORD
-WORD
"WORD
.WORD

5
WRITE
-1000.
WRTBUF

.WORD

&00,ERRTBS.0

.BYTE

3,5

;THIS SETUP ACHIEVED
*EVERYTHING THE
*ABOVE TABLE DID, BUT
JIN A CLEANER FORMAT

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

1827
88
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1850

RH11/RP04/5/6 REGISTERS
MNEMONIC
INDEX
eeme=aid
aee
RPCS1
0
RPWC
2
RPBA
A
RPDA
6
RPCS2
10
RPDS]
12
RPER1
14
RPAS
16
RPLA
20
RPDB
22
RPMR
24
RPDT
26
RPSN
30
RPOF
32
RPCA
34
RPCC
36
RPER?
40
RPER3
42
RPEC]
44
RPEC2
46

9.6

COMMANDS PERFORMED BY THE DRIVER

1852
183
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866

COMMAND
demeees

NO OPERATION
UNLOAD
SEEK
RECAL IRATE
DRIVE CLEAR
RELEASE
OFFSET
RETURN TO CENTER
READIN PRESET
PACK ACKNOWLEDGE
SEARCH
GET REGISTER(S)
SET_FORMAT

1868
1869
1870
1871
1872

WRITE CHECK DATA
WRITE CHECK HDR & DATA
WRITE DATA
WRITE HEADER & DATA
READ DATA

1875
1876
1877

N = HOUSEKEEPING
P = POSITIONING
D = DATA TRANSFER

1867

SELECT DRIVE

READ HEADER & DATA

1874

1878
1880

CODE
——ee
101
103
105
107
111
113
115
117

121
123

131
141
143

145

151
153
161
163
171

173

S = SPECIAL PROVIDED BY THE DRIVER

9.7

DPB STATUS/ERROR INDICATOR WORD

COMMAND TYPE
VOO OoOOoVnVvnVZZVvZZ2VooZ2

1825

SEQ 0036

cZl

CZRIDEO RS04/5/6 MLT-DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 3-33
1882
1883
1884
1885
1886
187
1888
1889
1890
1891

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.
BIT NO.
ememmsl

MEANING IF ON A *1"'
ecemeeeeececeeeeees

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

1893

14(1)

USER MADE A REQUEST FOR A FUNCTION TO BE

1896
1897
1898

13(1)

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

1990

12(2)

PERSISTENT UNSAFE CONDITION EXIST.

1902

11(2)

UNCORRECTABLE PARITY ERROR OCCURRED

1904
1905
1906

10(2) (4)

FATAL PARITY ERROR.
A MASSBUS CLEAR WAS
PERFORMED, ALL QUEUES WERE EMPTIED, AND
ALL DRVACT'S SET TO THE IDLE STATE

1908

9(3) (4)

SOF TWARE TIMEOUT OCCURRED ON THIS DRIVE

1910

8(4)

SOF TWARE TIMEOUT OCCURRED ON ANOTHER DRIVE

1912

DONE

1914

6(2)

ERROR OCCURRED DURING AN 1/0 OPERATION

1916

5(2)

ERROR OCCURRED DURING AN OPERATION

1919

4(2)

CORRECTABLE UNSAFE CONDITION OCCURRED

1921

3(2)

1924
1925
192

PORT REQUEST TIMEOUT.
THE DRIVER REQUESTED
THE DRIVE BUT THE OPPOSITE PORT DID NOT
RELEASE THE DRIVE WITHIN 20 SECONDS.

1928
1929

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

189

1917

1922

1931

OTHER THAN 1/0.

DRIVE ERROR OCCURRED THAT CAUSED AN

AUTOMATIC *RECALIBRATE'* SEQUENCE

eeeeeeeeeeccecccecmcsecccccescmmccmeccccccceccceememomeea-

1932

NOTES FOR ABOVE

1934

(1) =>

1937
1938

(2) =

1935

PERFORMED ON AN OFFLINE OR UNSAFE DRIVE

REQUEST WASN'T PUT IN QUEUE.

REGISTERS WERE NOT SAVED)

(RH11/RPO4

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

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

SEQ 0038

AS PER DPB+14 BEFORE THE 'DRIVE CLEARTM.

1942
1943
1944
}322

(3)

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

1947
1948

A ‘RECALIBRATE'' SHOULD BE ISSUED
BEFORE ANY OTHER COMMAND.

1950

9.8

ERROR CALLS MADE BY THE DRIVER.

1952

THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE

1954
1955
195

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

1958
1959
1960
1961
1962
1963

1965

1966

N
-

TYPE
———-

DATA AVAILABLE
ceeeemmencenes

RH11 INTERRUPT
OCCURRED (RHAS=0)

*R4= RPCS1'S ADDRESS

UNEXPECTED ATTENTION

R1= DRIVE NUMBER

1967
1968
1969
1970

OCCURRED

1971

INDICATED IN A DPB.

R3= ATA BIT

*R4= RPCS1'S ADDRESS
RS= (RPAS)
RPERRS
_=RPDS1
RPERRS+2=RPER1
RPERRS +4=RPER2

1902

RPERRS +6=RPERS3

1974

MASSBUS PARITY

1977

MASSBUS PARITY

WRT.AD= ADDRESS OF REG. WRITTEN

1981
1982
1983
1984
1985
1986
1987
1988

ADDRESS PLUG CHANGE
BIT SET ('OPE' ERROR)

R1= DRIVE NUMBER
R3= ATA BIT
*R4= RPCS1'S ADDRESS
RS= (RPAS)
RPERRS
_=RPDS1
RPERRS+2=RPER1
RPERRS+4=RPER?
RPERRS+6=RPER3

1990

* THIS IS THE ACTUAL UNIBUS ADDRESS (176700)

1975

1978
}ggg

1992
1993
199
1995

NOTE: ALL RH11/RP04 REGISTERS ARE SAVED

1940

10.

7T
a

ERROR (MCPE=1)

ERROR (PAR=1)

PROGRAM LISTING
ediemeeadatanas

RD.ADR= ADDRESS OF REG. READ

RD.WRD= WORD READ

WRT.WD= WORD WRITTEN
RD.WRD= WORD READ BACK

‘

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

SEQ 0039

;*LAST REVISION 05-NOV-81

53
54

.TITLE
CZRJDEQ RPQ4/5/6 MLT=DR LG’
s*COPYRIGHT (C) 1975,1979,1981

:*DIGITAL EQUIPMENT CORPORATION

:'COLORADO SPGS., CO. 80919
b

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
*PACKAGE (MAINDEC-11-DZQAC~C5), 18~MAR-81

.SBTTI

001100
104000

000004

200011
000012
000015
000200
177776
177776
177774
177772
177570

OPERATIONAL SWITCH SETTINGS
SWITCH

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

W)GDW)D

15
13
0
7
6
5

USE

NO ECC CORRECTION RESULTS DISPLAYED [F ERROR

DO NOT CHECK FOR MAXIMUM ERROR COUNTS
DO NOT DROP DRIVE WHEN NORMAL END OF TEST REACHED

DISPLAY ERROR SECTOR IF
DISPLAY SECTOR IF

28TH _RETRY

‘DCK®,

°'DTE’', OR 'WCF' ERROR

‘DCK' ERR UNCORRECTABLE AFTER

IF DATA COMPARE ERROR & SW7 SET, DISPLAY
REMAINDER OF BUFFER
. DON'T TYPE SUBSYSTEM STATUS WHEN PROGRAM STARTED
DON'T TYPE PERFORMANCE SUMMARY
INHIBIT DATA COMPARSION AFTER READ ORDERS

(]

L AR BN BN BN BN B¢ B

NG BE BF NF NN BN NF NF ORF NN NN N

Ve 000038000005 009800, 0,%:03%099000 8%, B¢ v,

.SBTTL

READ ONLY MODE

BASIC DEFINITIONS

;*INITIAL ~DDRE
.S OF THE STACK POINTER wxx 1100 wax
STACK
1100

ERROR
SCOPE

- EMT

107

:sBASIC DEFINITION OF ERROR CALL
;sBASIC DEFINITION OF SCOPE CALL

*HISCELLANEOUS DEFINITIONS
11
::CODE FOR HORIZONTAL TAB
LF
=12
::CODE FOR LINE FEED

CR
CRLF
ggu Ps
STKLMT

=15
= 200

= 177776

= 177774

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

ssSTACK LIMIT REGISTER

PIRQ

= 177772

: :PROGRAM INTERRUPT REQUEST REGISTER

177570

DDISP

= 177570

: sHARDWARE DISPLAY REGISTER

000000
000001
000002

DSWR

= 177570

s HARDWARE SWITCH REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

= X0

= ¥

s ;GENERAL RFGISTER

; ;GENERAL REGISTER

+ sGENERAL REGISTER

CZR

TAB

CZRJDEQ RPU4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 0¢: 16:17 PAGE 4-1

SEQ 0040

000100

NONOWVNSW

ol ol ot olalalol

JsPRIORITY LEVEL
JsPRIORITY LEVEL

::PRIORITY LEVEL

s sPRIORITY
;:sPRIORITY
JsPRIORITY
s:PRIORITY
:sPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

REG 6STER" SWITCH DEFINITIONS

(BITOO TO BIT15)

NOMWNS
NN —=O

SO S OSLO00
0O [=l=lele)

NN NN
— = 2O

nnn—

0
o~

naonnnx

3 VEL DEFINITIONS

é'?ATA BIT DEFINITIONS

100000

;sGENERAL REGISTER
s sGENERAL REGISTER
;s sGENERAL REGISTER
s sGENERAL REGISTER
;;GENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

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

s SWITC
SWi15
SWi4
Sw13
Sw12
SWi1
SW10
SW09
Sw08
Swo7
)
SW05
SWoé
Sw03
Swo?
Swo1
SW00
SW9=SW09
SW8=SwW08
SW7=Sw07
SW6=S5w06
SW5=SwW05
SW4=5w04
SW3=5w03
SW2=5w02
SW1=Sw01
SW0=5w00

—

040000
020000
010000
004000
002000
001000
000400

PR?7

&H
OO =MWV

100000

PR6

-—

000300
000340

; *PRIOR]

PRO
PR1
PR2
PR3
PR4
PRS

000000
000040
000100

000003
000004
000005
000006
000007
000006
000007

Hunownnnn

BASIC DEFINITIONS

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

SEQ 0041

000001

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

BITO0S
BIT04
BITO3
BIT02
BITO1
81700
B179=B1T09
BIT78=B1708
BIT7=B1T07
BIT6=BIT06
BIT5=BIT05
BIT4=BIT04
BIT3=BIT03
B1712=81702
BIT1=BIT01
BITO=BIT00

s *BASIC "CzU” TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
RESVEC
10
::R$§Eg¥$D AND JLLEGAL INSTRUCTIONS
ERRVEC

14
14
14

TBITVEC
TRTVEC

BPTVE(
JI0OTVEC

20
24
30
34
60

PWRVE(

EMTVEC

TRAPVEC
TKVEC
TPVEC

64
240

PIRQVEC

.SBTTL

000100
000200
000400
001000
002000
020000
040000

N NV

000040

P
R N
Py =2=

BASIC DEFINITIONS

;s TRACE TRAP
: sBREAKPOINT TRAP (BPT)
2 s INPUT/0UTPUT TRAP (IOT) #«SCOPEx+
;s sPOWER FAIL
s sEMULATOR TRAP (EMT) =+ERROR**
::"'TRAP'' TRAP
;s TTY KEYROARD VECTOR
2 TTY PRINTER VECTOR

; sPROGRAM INTERRUPT REQUEST VECTOR

RH11 REGISTERS

;CONTROL AND STATUS REGISTER 1

(RPCS1)

1E=
RDY=
A16=
A17=
PSEL=
MCPE=
TRE=

s INTERRUPT ENABLE (BIT #6)
cREADY (BIT #7)
sHIGH ORDER BUS ADDRESS BIT (BIT #8)
sHIGH ORDER BUS ADDRESS BIT (BIT #9)
;PORT SELECT (BIT #10)
cMASSBUSS PARITY ERROR (BIT #13)

:SC=

100
200
400
1000
2000
20000
40000

100000

¢ TRANSFER ERROR

(BIT #14)

sSPECIAL CONDITION (BIT m15)

;WORD COUNT REGISTER (RPW(C)
s (EACH BIT IS CALLED BY BIT NUMBER)
:BUS ADDRESS REGISTER (RPBA)

: (EACH BIT IS CALLED BY BIT NUMBER)

;CONTROL AND STATUS REGISTER 2 (RPCS2)
000001
000002

Us1=
use=

1
2

SUNIT SELEC T (BIT #0)
sUNIT SELECT (BIT #1)

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

SEQ 0042

RH11 REGISTERS

100
101
102
103

000004
000010
000020
000040

105
106
107
108

104

109

110
11
112

}}2

000200
000400
001000
002000

USé=
BAl=
PAT=
CLR=
IR=
OR=
MPE =
MXF =
PGE=

200
400
1000
2000

JUNIT SELECT (BIT #2)
*BUS ADDRESS INCREMENT INMIBIT (BIT #3)
*MASSBUS PARITY TEST (BIT #4)
;CLEAR (BIT #5)
*INPUT READY (BIT #6)
SOUTPUT READY (BIT #7)
*MASS BUS PARITY ERROR (BIT #8)
“MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)

010000
020000
040000

NED=
UPE=
WCE=

10000
20000
40000

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

000100

004000

100000

115
116

NEM=

DLT=

4
10
20
40

100

40600

100000

NON EXISTENT MEMORY (BIT #11)

:DATA LATE (BIT #15)

;DATA BUFFER REGISTER (RPDB)

}};

;(EACH BIT IS CALLED BY BIT NUMBER)

119

}gg

.SBTTL

}gg

;CONTROL AND STATUS 1 REGISTcR. (#00)

124
125
126
127
128
129
}g?

000001
000002
000004
000010
000020
000040
004000

}g%
134
135

136
137
138
139

140
141
142

143

144
145
146
147
148
}ég

1
2
4
10
20
40
4000

;60 BIT (BIT #0)
;FUNCTION CODE BIT #1
sFUNCTION CODE BIT #2
JFUNCTION CODE BIT #3
sFUNCTION CODE BIT #4
sFUNCTION CODE BIT #5
;DEVICE AVAILABLE (BIT #11)

:DRIVE STATUS REGISTER (RPDS1) (#01)
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

};}
153
154
155
156

GO=
Fl=
F2=
F3=
F4=
FS=
DVA=

RP04/5/6 REGISTERS

:DFS=
DFF20=
DIGB=
GRY=
DL64=
DE1=
vv=
DRY=
DPR=
PGM=
LST=
WRL=
MOL =
PIP=
ERR=
ATA=

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

DRIVE FORWARD 5'/SEC.
(BIT #0)
;DRIVE FORWARD 20°''/SEC.
(BIT #1)

sDRIVE TO INNER GUARD BAND (BIT #2)
;GO REVERSE (BIT #3)
:DIFFERENCE LESS THAN 64 (BIT #4)
:DIFFERENCE EQUALS 1 (BIT #5)
:VOLUME VALID (BIT #6)
:DRIVE READY (BIT #7)
;DRIVE PRESENT (BIT #8)

:PROGRAMABLE (BIT #9)

;LAST SECTOR TRANSFERRED (BIT #10)
WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (BIT #12)
;POSITIONING OPERATION IN PROGRESS (BIT #13)
:COMPOSITE ERROR (BIT #14)
SATTENTION ACTIVE (BIT #15)

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

ILF=
ILR=
RMR=
PAR=

1
2
4

JILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BIT #1)
JREGISTER MODIFICATION REFUSED (BIT #2)
:PARITY ERROR (BIT #3)

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

FER=
WCF=
ECH=
HCE=
HCRC=
AQE=
IAE=

WLE=
DTE=
OPl=
UNS=
DCK=

100000

SEQ 0043

sFORMAT ERROR (BIT #4)
sWRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
sHEADER COMPARE ERROR (BIT #7)
sHEADER CRC ERROR (BIT #8)
sADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT #10)
sWRITE LOCK ERROR (BIT #11)
sDRIVE TIMING ERROR (BIT #12)
;OPERATION INCOMPLETE (BIT #13)
sDRIVE UNSAFE (BIT #14)
;DATA CHECK ERROR (BIT 15)

sMAINTAINABILITY REGISTER (RPMR) (#03)
000001
000002
000004
000010
000020
000040
000200

DMD=
MCLK=
MINX=
MSTCK=
MRD=
MWR=

DTSY=

20
40
200

;DIAGINOSTIC MODE (BIT #0)
sMAINTAINABILITY CLOCK (BIT #1)
sMAINTAINABILITY INDEX (BIT #2)
sMAINTAINABILITY SECTOR CLOCK (BIT #3)
cMAINTAINABILITY READ (BIT #4)
sMAINTAINABILITY WRITE (BIT #5)
sMAINTAINABILITY SYNC DETECTED (BIT #7)

JATTENTION SUMMARY PSEUDO-REGISTER (RPAS)
000001
000002
000004
000010
000020
000040
000100
000200

ATO0=
AT1=
AT2=
AT3=
AT4=

ATS=

AT6=

AT?7=

4
1

1 0
2 0

sDEVICE
:DEVICE
;DEVICE
;DEVICE
:DEVICE
sDEVICE
sDEVICE
;DEVICE

0
1
2
3
&
5
6
7

(#04)

(BIT #0)
(BIT #1)
(BIT #2)

(BIT #3)
(BIT #4)
(BIT #5)

(BIT #6)
(BIT #7)

sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA)
s (EACH BIT IS CALLED BY BIT NUMBER)

(#405)

sDRIVE TYPE REGISTER (RPDT) (#06)
000001

DT00=

200
DT05=
DT06=
DT07=
DT08=
DRQ=

MOH=

100000

TAP=
NSA=

:DRIVE
sDRIVE
sDRIVE
;DRIVE
:DRIVE

TYPE
TYPE
TYPE
TYPE
TYPE

NUMBER B8
NUMBER B
NUMBER 8
NUMBER B
NUMBER 8

sDRIVE TYPE NUMBER B
sDRIVE TYPE NUMBER B
:DRIVE TYPE NUMBER B
sDRIVE TYPE NUMBER B
sDRIVE REQUEST REQUI
sMOVING HEAD (BIT M
:TAPE DRIVE

(BIT #14)

VOO NONWNS
NN —

N0 O YO O O O O O O 00 00 00 00 00

000020
000040

COOO0O

00000000 JNNNNNNNNNOOOOOOOONNWNWNY
M
8@\[0\!11\LNN—‘ONO@VOU‘?MN—lOOQVO\AJ*LNN—'OO@NOU!J*WN—‘OOON
NO

-0

§N

) el b
D i e
D b i D d D cd D D D D et e
oD e
el wmd D d cnd cd b nd b D D b D cad =D b
b md b e
—

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

D (BIT #11)

sNOT BLOCK ADDRESSED (BIT #15)

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

RJDEO RP04/5/6 MLT~DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 4~5
04/5/6 REGISTERS

214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
%gg

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

gg;

EXT1=
EXT2=
EXTé=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
:SC6=
sC10=
$C20=
TRK1=
TRK2=
TRKS =
TRK10=
TRK20=

245
246

010000
020000

vu30=
PLU=

10000
20000
100000

5?8

251
252
253
254
255
256
257
258
259
260
261
262
%22

;EXTENSION 3
cEXTENSION &
;EXTENSION 5
SEXTENSION 6

(BIT #2)
(BIT #3)
(BIT #4)
(BIT #5)

:SECTOR COUNT FIELD O (BIT #6)
;SECTOR COUNT FIELD 1 (BIT #7)

:SECTOR COUNT FIELD 2 (BIT #8)
sSECTOR COUNT FIELD 3 (BIT #9)
:SECTOR COUNT FIELD 4 (BIT #10)
sTRACK FIELD 1 (BIT M)
sTRACK FIELD 2

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

(BIT #12)

sTRACK FIELD 3 (BIT M3)
sTRACK FIELD 4 (BIT #14)
sTRACK FIELD 5 (BIT #15)

IXE=

ACU=

4000

WCU=
CSF=
wSU=
CSi=
RAW=
TDF=
TUF=
ABS=
WRU=
MHS=
NHS=
IXE=
PLU=

1
2
4
10
20
40
100
200
400
1000
2000
4000
20000

(BIT #0)

sCURRENT SINK FAILURE (BIT #1)
JWRITE SELECT UNSAFE (BIT #2)
sCURRENT SWITCH UNSAFE (BIT #3)
sMCTOR SEQUENCE ERROR (BIT #4)
cTRANSITIONS DETECTOR FAILURE (BIT #5)
sTRANSITIONS UNSAFE

(BIT #6)

sFAILSAFE ENABLED (BIT #7)
sWRITE READY UNSAFE (BIT #8)
sMULTIPLE HEAD SELECT (BIT #9)
sNO HEAD SELECTION (BIT #10)
s INDEX _ERROR (BIT #11)
:30VOLT UNSAFE (BIT #12)
sPLO UNSAFE (BIT #13)
:AC UNSAFE (BIT m5)

;RP05/6 ERROR REGISTER #02 (RPER2)

522
267
268
269
270

(BIT #0)

sWRITE CURRENT UNSAFE

1
2
4
10
20
40
100
200
400
1000
2000

100000

;EXTENSION 1

;EXTENSION i (BIT #1)

(#10)

wCu=
CSF=
WSU=
CSu=
MSE=
TDF=
TUF=
FEN=
WRU=
MHS=
NHS=

52;

SEQ 0044

:RP04 ERROR REGISTER #2 (RPER2)

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

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

233
234
235
236
237
238
239
240
261
242
243
244

(#10)

sWRITE CURRENT UNSAFE (BiT #0)
sCURRENT SINK FAILURE (BIT #1)
sWRITE SELECT UNSAFE (BIT #2)
sCURRENT SWITCH UNSAFE (BIT #3)
SREAD AND WRITE

(BIT #4)

sTRANSITIONS DETECTOR FAILURE
:TRANSITIONS UNSAFE (BIT #6)

(BIT #5)

:ABNORMAL STOP (BIT #7)
sWRITE READY UNSAFE

(BIT #8)

:MUTLTIPLE HEAD SE LECT (BIT #9)
+NO HEAD SELECTION (BIT #10)
s INDEX ERROR (BIT #1)
¢PLO UNSAFE (BIT # 12)

;OFFSET REGISTER (RPOF) (#11)
000001
000002
000004
000010

0F25=
0F50=
0F100=
0F200=

1
2
4
10

sOFFSET
sOFFSET
;OFFSET
;OFFSET

25 MICRO INCHES (BIT #0)
MICRO INCHES (BIT #1)
50
100 MICRO INCHES (BIT #2)
200 MICRO 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

ECI=
FMT22=

sOFFSET 400 MICRO INCHES (BIT #4)
;OFFSET 800 MICRO INCHES (BIT #5)
sOFFSET NEGATIVE (REVERSE) (BIT #5)
sHEADER COMPARE INHIBIT (BIT #10)
sERROR CORRECTION CODE INHIBIT (BIT #11)

2
2

OFREV
HCI=

cFORMAT 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)
;RP0O4 ERROR REGISTER #03 (RPER3)

000001
000002
000010
000040
000100
040000
100000

PSU=

(#15)

sPACK SPEED UNSAFE (BIT #0)
sVELOCITY UNSAFE (BIT #1)
sANY UNSAFE EXCEPT READ/WRITE (BIT #3)
;AC LOW (BIT #5)
;DC LOW (BIT #6)
sSEEK INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

VUF
=
UWR=
ACL=
DCL=
SKl=
ocyL=

;RP05/76 ERROR REGISTER #03 (RPER3)

;DC UNSAFE (BIT #0)
SWRITE AND OFFSET (BIT #1)
¢AC LOW (BIT #5)
sDC LOW (BIT #6)
sOPERATOR PLUG ERROR (BIT #13)
sSEEK INCOMPLETE (BIT #414)
sOFF CYLINDER ERROR (BIT #15)

DCU=

WAO=
ACL=

10000C

OSITION REGISTER (RPEC1) (#16)
BIT IS CALLED BY BIT NUMBER)

H 3 CC PATTERN REGISTER (RPEC2) (#17)
s ( EACH BIT

DRVCLR

RELSE

e
e
b e

RECAL

-t OO O
W=
NN

RNOP

000101
000103
000105
000107
000111
000113

IS CALLED BY BIT NUMBER)

RP04/5/6 DRIVER COMMANDS
wnnmn

.SBTTL

b
b
ek
b ek
bk =D
b

L ele R NTo NV, F NN, ST

NN AN NN NN NN

310

000001
000002
000040
000100
020000
040000
100000

(#15)

sNO OPERATION
sUNLOAD
s SEEK
sRECAL IBRATE
:DRIVE CLEAR
+RELEASE

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

SEQ 0046

RP04/5/6 DRIVER COMMANDS

328
329
330
3N
332
333
334
335
336
337
338

000115
000117
000121
000123
000131
000141
000143
000145
000151
000153
000161

OFFSET
RTC
READIN
ACK
SEARCH
GETREG
SETFMT
SELDRV
WCKD
WCKHD
WRTDAT

340
341

000171
000173

RDDAT
RDHD

339

000163

WRTHD

=
=
=
=
=
=
=
=
=
=
=

115
117
121
123
131
141
143
145
151
153
161

sOFFSET
:RETURN TO CENTER LINE
:READ IN PRESET
:PACK ACKNOWLEDGE
s SEARCH
:GET REGISTERS
:SET_FORMAT (& ECI OR HCI)
:SELECT DRIVE
sWRITE CHECK DATA
sWRITE CHECK HEADER € DATA
sWRITE DAT

=
=

17°
173

:READ DAT
¢READ HEADER ¢ DATA

163

WRITE HEADER 8 DATA

CZRJDEC RP04/S5/6 MLT=-DR LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE S

SEQ 0047

TRAP CATCHER
1

.SBTTL

000000

000174
000176

.=0

s*ALL UNUSED LOCATIONS FROM & =~ 776 CONTAIN A '',+2 HALT"
s *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCAT]ON194CONTA1NS 0O TO CATCH IMPROPERLY LOADED VECTORS

000174

DISPREG: .WORD

000000
000000

SWREG:

el . ENTo XV F XUV N}

.SBTTL
000200
000204

000137
000137

000220

000220
000137

000046

000052
15

000224
000046
005662
000052
040000
000224

TRAP CAT(HER

004166
004200

.WORD

s sSOFTWARE DISPLAY REGISTER

s cSOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)
JMP
JMP

ANSTART
G#START

=220
004216

JMP

;DO NOT INHIBIT PROGRAMMABLE DRIVES

SNSTART3

.SBTTL

ACT11 HOOKS

SRR AR

N AR AR AR AN R A AN

sHOOKS REQUIRED BY ACT11
$SVP(=
_‘6c .

igquo

"WORD

-=$SVPC

::JUMP TO STARTING ADDRESS OF PROGRAM
sCHANGE THE RH11 UNIBUS ADDRESS
sAFTER INITIAL START §

sSAME AS 200, EXCEPT, DO NOT INHIBIT
;PROGRAMMABLE DRIVES

AT AANAARAANRARARANAARAR
AN
AR AR
ARRAS

:SAVE PC

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

40000

::2)SET LOC.52 TO 40000
* % RESTORE PC

CZRJDEOD T22g415/6 MLT-DR LGC MACRO V04.00 5-NOvV-81 09:16:17 PAGE 6

SEQ 0048

COMMON

.SBTTL
S e R AR

COMMON TAGS
AR AR AN RN AN RN R A

AR AN N AN AR AR AN AN AN AN R

RNAA TN AR

ITHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

NNAANRNS

s*USED IN THE PROGRAM.

(e e X Y- JV,1V 1V, 1V [V 1V 1
oS ONOMWNESNO

001146

377
000

377

.WORD
.BYTE
.BYTE
«WORD
.WORD
-WORD
-WORD

.BYTE
.BYTE
-WORD
-WORD
.WORD
.WORD
-WORD
.WORD
.WORD
$SAUTOB: .BYTE
$INTAG: .BYTE
-WORD
SWR:
-WORD
DISPLAY: - WORD
177560
$TKS:
$TKB:
177562
$TPS:
177564
177566
$TP8:
$NULL:
.BYTE
$FILLS: BYTE
$SFILLC: .BYTE
$TPFLG: .BYTE
$BELL:
.ASCIZ
$QUES:
+ASCII
$CRLF:
+ASCII
SLF:
.ASCIZ

.=1100
|slelelelelalelelelal Jololalelalele

uuunuvnra—ha-hag§:c>
NVOONSW

b
b
b
b cd cd el e
b
- -—d cnd amd

puard

o
o

000000
000

W
N OOHMNOO
NS

001102

$CMTAG:
$PASS:
STSTNM:
S$SERFLG:
SICNT:
$LPADR:
SLPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

2:START OF COMMON TAGS

::CONTAINS PASS COUNT
s SCONTAINS THE TEST NUMBER
2 sCONTAINS ERROR FLAG
: CONTAINS SUBTEST ITERATION COUNT
;sCONTAINS SCOPE LOOP ADDRESS
2 ;CONTAINS SCOPE RETURN FOR ERRORS
2 2CONTAINS TOTAL ERRORS DETECTED
2 ;CONTAINS ITEM CCNTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
:sCONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °'GOOD*' DATA
2 sCONTAINS ADDRESS OF °*BAD' DATA
: s CONTAINS 'GOOD* DATA
::CONTAINS ‘BAD* DATA
s ;RESERVED=-=NOT TO BE USED
scAUTOMATIC MODE INDICATOR
+ s INTERRUPT MODE INDICATOR

:;ADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER
c:TTY KBD STATUS
::TTY KBD BUFFER

O=2MNO

001100

s.TTY PRINTER STATUS REG. ADDRESS
¢ TTY PRINTER BUFFER REG. ADDRESS

s s CONTAINS NULL CHARACTER FOR FILLS
s CONTAINS # OF FILLER CHARACTERS REQUIRED
s INSERT FILL CHARS. AFTER A '‘LINE FEED'’

s 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

<207><377><377> . sCODE FOR BELL
/?/
s ;QUESTION MARK

<15>

<12>

s :CARRIAGE RETURN
soLINE FEED

o RRRARAA RN AR AR ARNAAN AN EREAARNAARRANANRARANANNARANRAN
AR ARANNRNE

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

SEQ 0049

USER DEFINED TAGS

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
.WORD
.WORD

001250
001252

001300

000003
000000
000000
000000
000000
000000
€00000
000000
000000
177777
000

001301

000

001254
001256
001260
001262
001264

000000
000000

.WORD
.WORD

000

.BYTE

FAIRNS:

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

SECOND:
SIXTEE:
ZROIND:

FRSTER:

SAVER1:

SAVERS:
ERCTR:
LIMIT:
CMCNT:

-wWORD
.WORD

-WORD
.WORD
.WORD
-WORD

.WORD
-WORD

.BYTE

000022

.WORD

CMCYL:
CMSEC:
CMTRK:

001346

.
TRKLMT:

-t

.BYTE

:'0* IF A CLOCK IS AVAILABLE
76 (8) IF 60 HZ SYSTEM; 62 (8) IF 50 HZ SYSTEM
'TYPE STATISTICS® INDICATOR
N

000000
000000

:ADDR OF KW11=P COUNTER BUFFER
sADDR OF KW11-P VECTOR
:ADDR OF KW11-L STATUS REGISTER
;ADDR OF KW11-L VECTOR
2'0' IF KW11=P IS ON SYSTEH

177546

;ADDR OF KW11-P STATUS REGISTER

172540
}72542

177777
000074
000000
000000
000000
000000
000000
000000
000000
000000
000

sFIRST ADDRESS OF RH11/RP04/5/6 REGISTERS
cRP0O4 VECTOR ADDRESS

254

OLOOOOOOOOW (=l=lelelalelelelol
" )
SaaoNo

000100
177777

176700

177546

$SRPADR:
$RPVEC:
$LKCSR:
$LKCSB:
:

behta—a=d=l=lelelelelelelelalelelelelolo

176700
000254
172540
172542
000104

USER DEFINED TAGS

D —

001170

.SBTTL

' COMMAND INDICATOR

OPERATOR ENTERED DATE
:OPERATOR 1D

:DRIVE # STORAGE: ERRORS 1=5 & 10

¢ATTN REG STORAGE: ERRORS 1-5 & 10

sDRIVE # STORAGE FOR PRINTOUT
cERROR RETRY REGISTER MASK
sERROR RETRY LIMIT IN THE LOWER BYTE
sRETRY COUNT IN THE UPPER BYTE
cMAXIMUM TIME IN QUEUE VALUE
sSTORE LAST MEMORY ADDRESS HERE
s CHANGE RH11 UNIBUS ADDRESS FLAG
s 'CONTROL C* FLAG
:8AD SECTOR/TRACK FLAG
cHOUR COUNT STORED HERE (MAXIMUM - 999.)
sMINUTE®S COUNT STORED HERE
sSECOND'S COUNT STORED HERE
sTIMER ROUTINE COUNTER (FOR ONE SECOND)
sZERO INDICATOR FOR THE DATA COMPARE ROUTINE
:DATA COMPARE ERROR FLAG
sIF > 0, PROCESSING ‘DCKER' OR CAN'T MATCH PATTERN
sIF < 0, MISCOMPARSION FOUND
HISCOHPARSION OR CAN'T MATCH PATTERN FLAG

“IF < 0, ERROR IN BUFFER

*SAVE R1 HERE

*SAVE RS HERE
:NUMBER OF ERRORS
¢DISPLAY LIMIT
<WORD COUNT
sCYLINDER ADDRESS

sSECTOR ADDRESS

s TRACK ADDRESS

cERROR BURST BIT OFFSET
¢ERROR BURST WORD OFFSET (RELATIVE TO SECTOR)
sCORRECTION MASK FOR FIRST ERROR WORD
¢CORRECTION MASK FOR SECOND ERROR WORD
sLOCATION OF FIRST ERROR WORD
:GO0D DATA, FIRST WORD
;BAD DATA, FIRST WORD
sLOCATION OF SECOND ERROR WORD
:GOOD DATA, SECOND WORD
sBAD DATA, SECOND WORD
+SECTOR ADDRESS LIMIT
s TRACK ADDRESS LIMIT

CZRJDEQ 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

410.

.SBTTL

COMMON PARAMETERS

sCYLINDER ADDRESS LIMIT FOR RP04/5°'S
s (CHANGED

TO 814.

FOR RPO6)

:PROGRAM USES THESE PARAMETERS TO DETERMINE REGULAR END OF PASS

002740
005455
143300
000055

ENDCN:

ENDSK:

.WORD
.WORD

002740
005455

1 8751048 WORDS (10) [3x109 BITS]
MSW

.WORD

cMSY

.WORD

143300

3 X 1046 SEEKS

sPROGRAM USES THESE PARAMETERS TO DETERMINE Q.V.

120274
000005
134330
000005

QVCON:

QVSEK:

(LSW)

END OF PASS

.WORD
.WORD

;20274

2 3437X10‘7 WORDS

WORD

134330

3 75 X 1045 SEEKS (10)

.WORD

(10)

sMSW

s THE NUMBERS TO DETERMINE END OF PASS ARE LOADED IN HERE BY THE PROGRAM,
sTHE FIRST TIME THROUGH, THE QV PARAMETERS ARE USED, AFTER THAT THE
sREGULAR PARAMETERS ARE USED.
000000
000000
000000

ENDSEK:

000001
000000

MAXDL:

ENDCON:

000000

000144
000005

PASCNT:

000000

MAXER:

INTRVL:

.WORD
WORD
.WORD
WORD
.WORD

.WORD

O
0
0
O
1

O
100.

5,0

sNUMBER OF PASSES TO END OF

TEST

cMAXIMUM DATA TRANFER SIZE IN WORDS

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

sMAXIMUM ERRORS - 100(10)

cFIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL
s (IN MINUTES).

: COUNTER

SECOND WORD IS THE

INTERVAL

:COUNTER.
UPPER BYTE IS VALUE.
:NUMBER OF COMPARE ERRORS TYPED OUT

001414
001416

000004
000001

CMPLMT:
FORMAT:

.WORD
.WORD

&
1

001420

000000

WCSEL:

.WORD

sIF EQ TO 0, GENERATE A RANDOM WORD COUNT

001422

000003

RATIO:

.WORD

READ/URITE RATIO CRANGE 0 - 7]

¢IF NOT EQ O, ALLOW WRITE HEADER & DATA ORDERS

:IF EQ 0, DO'NOT ALLOW WRITE HEADER & DATA ORDERS

001424

000001

AUTOCK:

.WORD

"7’

(READ/WRITE)

~
N

2
3

1000

008

[=]

FOR _THE OPERATION.
s
sIF NOT EQ TO O, USE THE VALUE IN °*MAXDL®' FOR
THE WORD COUNT
:

:IF NOT EQ 0, DO AN APPROPRITE WRITE

CHECK AFTER EACH WRITE ORDER.

RANDOMLY.

“IF EQ 0, SELECT WRITE CHECK ORDERS

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

SEQ 0051

COMMON PARAME (ERS

001426

000001

NOTPRT:

.WORD

cIF EQ 1, DO NOT PRINT DATA ERROR MESSAGES

001430

000001

ENDET:

.WORD

:IF _NOT EQ 0 END OF PASS DETERMINED

¢
ASSOCIATED WITH OPERATOR SPECIFIED
BAD PACK AREAS.
:
lfrzggeEO
0,
SPRINT ERROR MESSAGES RELATING TO

BY THE 'WORDS READ' COUNT.

:IF_ EQ O, END OF PASS DETERMINED
s BY THE SEEK COUNT.

001432
001434

000010
000005

.SBTTL

VALUES FOR FIRST OPERATION

BEGPAT:
BEGCOD:

.WORD
.WORD

10
5

sSTARTING PATTERN CODE CRANGE
1 - 17 (OCTAL)]
s STARTING COMMAND CODE [RANGE 0-5]

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

;1 = WRITE CHECK HEADER l DATA ('WCHKHD')
;2 = WRITE DATA (°'WRTDAT®)

:3 = WRITE HEADER 3 DATA ('WRTHD')
24 = READ DATA (°RDDAT*)
001436

000404

BEGSIZ:

.WORD

404

:5 = READ HEADER & DATA (°'RDHD')
:STARTING RECORD SIZE CRANGE 4 - MAXMEM)

:NOTE:
THE SIZE MUST BE AT LEAST 4 IFf
$WRITE DATA OR READ DATA; THE SIZE MUST

cBE AT LEAST 8 IF WRITE HEADER AND
:DATA OR READ HEADER AND DATA,
sIF

THE SIZE IS GREATER THAN 1

SECTOR,

sSIZE MUST ALLOW FOR OVERLAPPING 4 OR 8
sWORDS INTO THE LAST SECTOR USED.

THE

SEQ@ 0052

.SBTTL

TABLES,

CONSTANTS, AND VARIABLE LOCATIONS

ORDERQ:

-WORD

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

ASNLST:

.WORD

001440

000000

001462

000000

001464

000000

DUNIT:

.WORD

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

;ADDRESSES OF DRIVES TO BE DEASSIGNED

001506

000000

NEWUNT:

.WORD

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

;ADDRESSES OF NEWLY ASSIGNED DRIVES

001530

000000

AVAIL:

.WORD

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

;LIST 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
000000
000000
000000
000000
000000
000000
000000
000000
000000

BUFTBL:

.WORD
-REPT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
-WORD
.WORD

001620
001624

001630
001634
001640

001644
001650
001654
001660
001664
001670
001674
001700
001704
001710
001714
001720
001724
001730
001734

001740
001742
001744
001746
001750
001752
001754
001756
001760

000000
000000

043110
043414
043720

000000

000000
000000

000000
BLKADR:

OPTBL:

:A BIT SET IS AN ASSIGNED DRIVE

;BUFFER ALLOCATION TABLE ENTRY COUNT

0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0

0,0

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

DRIVEQ
DRIVE]

DRIVE?2

DRIVE3
DRIVES
DRIVES
DRIVE6

;ADDRESS OF THE BLOCK FOR DRIVE 0
;ADDRESS OF THE BLOCK FOR DRIVE 1

;ADDRESS OF THE BLOCK FOR DRIVE 2

;ADDRESS OF THE BLOCK FOR DRIVE 3
;ADDRESS OF THE BLOCK FOR DRIVE &

sADDRESS OF THE BLOCK FOR DRIVE S

sADDRESS OF THE BLOCK FOR DRIVE 6

DRIVE?7

;ADDRESS OF THE BLOCK FOR DRIVE 7

.BYTE

WCKD
WCKHD
WRTDAT
WRTHD
RDDAT
RDHD

sWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
JWRITE DATA
;WRITE HEADER AND DATA
;READ DATA
JREAD HEADER AND DATA

.BYTE
.BYTE

COMTBL: .BYTE
.BYTE
.BYTE

001764
001765

001766
001767

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

;LIST OF DRIVES PERFORMING COMMANDS

;UNLOAD

s SEEK

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

TABLES, CONSTANTS, AND VARIABLE LOCAT]IONS

AND VARIABLE LOCATIONS

001770
00177
001772
001773

006

WO O jod=dzizl=lolololalala]
NNN O ON VVWNNIUN)
— b —b
~NVO NNONOONOONMMNO

0
002005
002006

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

.BYTE
.BYTE

SEQ 0053
sRECAL
sDRIVE CLEAR
sRELEASE
JOFFSE T

sRETURN TO CENTERLINE
sREADI N PRESET
s PACK ACKNOWLEDGE

:SE ARCH
JWRITE CHECK DATA

;WRITE CHECK HEADER AND DATA
JWRITE DATA
JWRITE HEADER AND DATA
JREAD DATA
JREAD HEADER AND DATA
JTERM] NATOR

—

[+ ]

T CODE TABLE

002252

OFMTBL:

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

OFMSGO
OFMSG1
OFMSG2
OFMSG3
OFMSG4
OFMSGS

;18T 0 F FSET
:eND 0 F FSET
J3RD O FFSET
FSET
FSET
FSET

MESSAGE
>»

002274
002327
002363
002417
002453
002507

.EVEN

002240
002242
0022644

000

[2]

002235

000

INCHES
INCHES
INCHES
INCHES
INCHES
INCHES, TERMINATOR
INCHES
INCHES
INCHES
INCHES
U INCHES
U INCHES, TERMINATOR

U
U
U
U
U
U
U
U
U
U

b
e
e
e
e
o
i
cnd
i
canid
b o
b
b

=t QNN = =2 OO OO0 —=NOO—
O OB BB NN
NN SO NN S

b
b
e
e
d e
b
i
b e
b
cand e
b e
b

OFFCOD:

EXEXZXXEER

002220

=OONNOOOOONOONOO—
N BNNWWWN
= NSO NNV O

002210

002010
002020
002030
002040
002050
002060
002070
002100

=tamatcdaclad
od cd cd od b b —d —d b o ek
—=NINNINININININNIN
=IO NINN
NN NNNNWONN NN SNIWW

.EVEN

CONSTANTS,

NNONOD
NN =—O
COOOO

TABLES,

1 NN\
ANNIN) = =2 — 2 OO0
=2 AIOMNIONIOOMNOONMNO

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-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

/AFTER
/AT
/AT
/AT
/AT OF
/AT OF
/AT OF
/AT OF
/AT OF
/AT OF
/AT OF

~“—-XT XXX~

L]
-

- OO0V
S —
—_O——
=t =N

Ve We ®

NNV
WND

OFMSGA

RY WITHOUT OFFSET/

mmmmmmmmmmm
) o
g ) =
= =4 4

1
|
I
1
1
1
1

OFMSG3
0FMSG4
OFMSG?
OFMSG8
OFMSG9

el
MMM

OFMSGA:
.EVEN

CIOIOIOIOHYOHIOYOY
O

:
OFMSG4
:
OFMSGS
OFMSG6:
OFMSG?7:
OFMSGS8:
O0FMSGY:

OFMSG6
OFMSGO

PIRINN NN NN

OFMSGO: +ASCI
OFMSG1: ASC 1
OFHSGZ: SCI
OFMSG3:
|
wmInnnnmnunminuomwm

b
b
d ed
e
e
i
d
b cd
b

ANV
O
EaR aR o S SEal 2 o R ¥ p e )

D D b D e b
—d b d b i

[elelelelalolelelslolo

T, NNV

BNl
JV LIV,

P SN TWYL TPV

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

000

002254

002667
002724

SEQ 0054

AND VARIABLE LOCATIONS

>>Perrre>»

CONSTANTS,

D R

TABLES,

+200 MICRO-INCHES/
=200 MICRO-INCHES/
+400 MICRO-INCHES/
=400 MICRO-INCHES/

+600
=600
+800
=800

MICRO-INCHES/
MICRO=In_HES/
MICRO-INCHES/
MICRO-INCHES/

+1200 MICRO-INCHES/
=1200 MICRO-INCHES/

]

CZRJOEQ RPO4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 9

SEQ 0055

000000
003066

003024

003730

003026

000000
000017
000000
000000
000000
000000
000000
000000
000000
000000

003030

003064

000000

003066
003070
003072
003074
003076
003100

000001
000003
000007
000017
000037
000077
000177
000377

DATA PATTERNS

STNDAT:

.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

0
DATA1
DATA1+40
DATA1+100
DATA1+140
DATA1+200
DATA1+240
DATA1+300
DATA1+340
DATA1+400
LATA1+440
DATA1+500
DATA1+540
DATA1+600
DATAT1+640
DATA1+700
DATAQ

s ZEROES
sONES

DATAQ:

.WORD
-REPT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD

;DUMMY DATA PATTERN

DATA?:

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

003124

177777

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

003126

177776

.WORD

DATA1+642
~d

002762
002764

.SBTTL

elelolelelelelelelalelalelealaPt]

DATA PATTERNS

sSTANDARD DATA PATTERN POINTER TABLE

s STANDARD PATTERN 1

177776

;STANDARD PATTERN 2

DATA PATTERNS

177774
177770
177760
177740
177700
177600
177400
177000
176000

174000
170000
160000
140000

100000

003164

000000

003166
003170
003172
003174
003176
003200

000000
200000

.WORD
«WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
-WORD
-WORD
.WORD
.WORD
.WORD

003202
003204
003206
003210
003212

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

003224

-WORD
«WORD
.WORD
.WORD

003264
003266

003302

000000
000000
000000
177777
177777
177777

:STANDARD PATTERN 3

.WORD

000000
177777

000000
010421
021042
031463

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
+WORD
.WORD
.WORD
.WORD
-WORD
-WORD
.WORD

:STANDARD PATTERN 4
NOMWM S WNIN = O NOM A S LWIND

003226

000000

ViAW

003130

s STANDARD PATTERN 5

SEQ 0056

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

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5~NOV~81 09:16:17 PAGE 9-2

DATA PATTERNS

003304
003306
003310
003312
003314
003316
003320
003322
003324

052525
125252
125252
052525
125252
052525
125252
052525
125222

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

052525
125252
125252
052525
125252
052525
125252
052525
125252

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

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

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

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

;STANDARD PATIERN 6

003366
003370
003372
003374
003376
003400
003402
0034604
003406
003410
003412
003414
003416
003420
003422
003424

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

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

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

;STANDARD PATTERN 7

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

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

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

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

;STANDARD PATTERN 8

SEQ 0057

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

DATA PATTERNS

003460
003462
003464

.WORD
+WORD
.WORD

003466
003470
003472
003474

.WORD
.WORD

; STANDARD PATTERN 9

.WORD

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

(D) e e

b e

NNWWDWON NN

; STANDARD PATTERN 10

: STANDARD PATTERN 11

b e

b d e

e e

e wed

WBINWVMINWISNWINIWBWSNY.

.WORD
.WORD

177776
177775
177773

b d b b

NWWBWON
VINIVMINWVINIWVISNIWVINWVINWVIN
WIS

ewelecdedededecdeded
e
el adadad od
-

003626
003630

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

003624

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

NNV

177776
177775
177773
177767
177757
177737

100000

003526
003530
003532
003534
003536
003540
003542

.WORD
.WORD

100000

b ad wd b

003524

*STANDARD PATTERN 12

SEQ 0058

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

177776

003666
003670

153333
066667
153333

~
~

.WORD
-WORD
+WORD
-WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
-WORD
-WORD
.WORD
.WORD

NNVVV%MMVV

003632
003634
003636

NNNNNNNNNOMWN

DATA PATTERNS

sSTANDARD PATTERN 13

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

.WORD

«WORD
+WORD
-WORD
.WORD
-WORD

003724

066667

003726

000000
177777
177777
177777
177777

-WORD
.WORD
.WORD

066667

000000
1727777
1727777

: STANDARD PATTERN 14

177777
177777
1727777
177777
177777
177777

177777
177777
177777
177777
177777
177777

004004

000000

:STANDARD PATTERN 15

SEQ 0059

CZRJDEQO _RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 9-5

DATA PATTERNS

004006
004010
004012
004014
004016
004020
004022
004024

000000
000000
000000
G0O0000
000000
00C000
000000
000000

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

000000
000000
000000
000000
000000
000000
000000
000000

SEQ 0060

CZRJOEQ RP04/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.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

s*LOCATION SITEMS. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
:*NOTE2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
®
R

EM
DH

:;POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER

:;POINTS TO THE DATA FORMAT

‘ 004026

$ERRTB:

:ERROR 1

7 004026
8 004030
9 004032
}? 004034

046240
050700
051332
000000

}%
14 004036
15 004040

16 004042
}g 004044

046303
050705

051336
000000

INTERRUPT OCCURRED (RPAS = 0)

EM2
DH2

;UNEXPECTED ATTENTION OCCURRED

EM3
DH3
DT3
0

:MASSBUS PARITY ERROR (MCPE=1)

EM4
DH4
DT4
0

:MASSBUS PARITY ERROR (PAR=1)

EMS
DH?2
DT?2
0

;ADDRESS PLUG BIT CHANGED

EM6
DH6
DT6
0

:RH11 DIDN'T RESPOND TO ADDRESSING

;ERROR &

046377
051010
051364
000000

:ERROR §
046434
050705
051336
000000

2?
42 004076
43 004100
44 004102
45 004104

;RH11

DT2
0

046341
050762
051354
000000

gz
35 004066
36 004070
37 004072
§3 004076

EM1
DH1
DT1
0

:ERROR 3

28 004056
29 004060
30 004062
%5 004064

::POINTS TO THE DATA

:ERROR 2

21 004046
22 004050
23 004052
gg 004054

:ERROR 6
046470
051047
051376
000000

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

SEQ 0062

ERROR POINTER TABLE
}

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

3 006106

011600

S 004112
6 004116

022626
1064401

& 0064110

004120 000417

004160
7 004160

010046

9 004166

000240

8 004162

BADTMO: MOV

005740

::658:

648"

104402

005037
005037

001260
035336

18 004200
19 004206

012737
012737

177777
000001

001260
035336

22 004216
52 004226

012737
005037

000001
001260

035336

25 006230
26 004234
gg 004236

005227
001375
000005

000000

gg 004214

000414

000405

012706
005026
022706
001374
012706

001100

004260

012737

031712

000030

004274

012737

034246

000034

012737
012737
012737

001100

000340

000340
176543
123456

000032

000036
033632
033634

000004
004364
177570

000004
001140

004352

022777

177777

174560

004362
004364
004370

000403
012716
000002

004344 012737 177570 001142
004372

:SETUP FOR TYPING OUT PC
JPUT "HALT(0)*'

INSTRUCTION HERE IF YOU WISH

STO STOP ON UNEXPECTED TIMEOUT.

START:

CLR
CLR

CHGADR
TSTPGM

:CLEAR THE RH11 ADDRESS CHANGE FLAG
*DISABLE PROGRAMMABLE DRIVES

START1: MOV
MOV

#-1,CHGADR
#1,7STPGM

;SET RH11 ADDRESS CHANGE FLAG
*ENABLE PROGRAMMABLE DRIVES

START3: MOV
CLR

#1,TSTPGM
CHGADR

;ENABLE PROGRAMMABLE DRIVES
:CLEAR THE RH11 ADDRESS CHANGE FLAG

START2: INC
8NE
RESET

#0
.-

sTTY LOOP, WAIT FOR INCREMENT
:0F WORD
*CLEAR THE WORLD

B8R

START?

START2

*START THE PROGRAM

INITIALIZE THE COMMON TAGS

CLR
CMP
BNE
MOV

013746
012737
012737

001012

RO, =(SP)

START OF PROGRAM

001140

004324
004330
004336

004360

MOV

:;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
NSCMTAG,R6
::FIRST LOCATION TO BE CLEARED

004240
004244
006246
004252
004256

004302
004310
004316

*GET OVER THE ASCIZ

*RESTORE STACK POINTER
.,rvps ASCIZ STRING

<CRLF>/UNEXPECTED'BUS TIMEOUT, PC=/

.SBTTL

012737

648

_ASCIZ

004266

B8R

(SP)+, (SP)+
.65

NOP

14 004166
15 004172

}9 004176

:ADJUST PC =2

TYPOC

:SAVE PC WHERE THE TIME OUT OCCURED

-(ROS

CMP
TYPE

004122

(SP) ,RO

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

+3CLEAR MEMORY LOCATION
+ :DONE?
::LOOP BACK IF NO
S3SETUP THE STACK POINTER

..INITIALIZE A FEW VECTORS
MOV
#SERROR, SAEMTVEC ..snr VECTOR FOR ERROR ROUTINE

MOV
MOV

MOV
MOV
MOV

#3640, MEMTVEC+? ;:LEVEL

#STRAP, 3# TRAPVEC ..TRAP VECTOR FOR TRAP CALLS

#3640, a#TRAPVEC+2; LEVEL 7
#176543, SHINUM ..anne THE RANDOM NUMBER GENERATOR
#123456.SLONUM - :BOTH HIGH AND LOW WORDS

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
2;EQUAL TO A **-1'*, SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
SNERRVEC,=(SP)
;:SAVE ERROR VECTOR
MOV
4648, IMERRVEC
::SET UP ERROR VECTOR
MOV
#DSWR, SWR
*SETUP FOR A HARDWARE SWICH REGISTER

MOV

ooo:sfi DISPLAY ::AND A HARDWARE DISPLAY REGISTER

BNE

668’

CMP

648:

BR
MOV
RTI

#-1,3SWR

65%
#658, (SP)

S:TRY TO REFERENCE HARDWARE SWR

:;BRANCH IF NO TIMEOUT TRAP OCCURRED
:AND

THE HARDWARE SWR IS NOT = -1

S:BRANCH IF NO TIMEOUT
2ZSET UP FOR TRAP RETURN

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

SEQ 0063

INITIALIZE THE COMMON TAGS

0064372

004400
004406

30
31 004412

%% 004420

012737

012737
012637
012737

012737

000176

000174
000004

006106

000300

001140

001142
000004

000006

65$:

66$:

004440

004516

004516
004522
004524
004532

004536
004536
004540
3 004546

005227
001031
106401

Mov

000426

005737
001006
023727
001005

::TYPE

177777
006442

85288:
.SBTTL

000042
001140

Mov
MoV

#SWREG, SWR

ssPOINT TO SOF TWARE SWR

#DISPREG,DISPLAY
(SP)+,8ERRVEC ; ;RESTORE ERROR VECTOR

;SETUP “'TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MoV
#8ADTMO,ERRVEC
SETUP FOR UNEXPECTED TIMEOUT
.SBTTL

004426
004432
004434

MOV

000176

#PR6,ERRVEC+Z

:LEVEL 6

_TYPE PROGRAM NAME

THE NAME OF

THE PROGRAM IF FIRST PASS

INC
BNE
TYPE

1
6
688

.ASCIZ

<CRLF>3CZRJDEO - RP04/5/6 MULTI DRIVE LOGIC TEST@<CRLF>

67$

soFIRST TIME?
s sBRANCH IF NO
..TYPE ASCIZ STRING

T OVER THE ASCIZ

GET VALUE FOR SOFTWARE SWITCH REGISTER

BNE
CMP
BNE
GTSWR
BR
Movs

TST

ane?2
69%
SWR,#SWREG
708

ssARE WE RUNNING UNDER XXDP/ACT?
sBRANCH IF YES
;:SOFTWARE SWITCH REG SELECTED?
¢ cBRANCH IF NO

708
#1,3AUTOB

::SET AUTO-MODE INDICATOR

106406
000403
112737

000001

001134

36 004546
37 004554
38 004562

013737
013737
013737

001352
001354
001356

001372
001374
001376

Mov
MoV
MoV

ENDCN,ENDCON
;SET UP FOR NORMAL PASS
ENDCN+2 ,ENDCON+2
ENDSK ,ENDSEK

40 004576
41 004604
42 004612
43 004616
44 004620
45 004626
46 004630
47 0064636
48 004642
gg 004644

012737
012737
005227
001025
023737
001003
012737
005737
001402
104401

000240
000240
177777

000032
000036

MOV
MoV
INC
BNE
cMp
BNE
MOV
TST
BEQ
TYPE

#240,EMTVEC+2 _
#240 TRAPVEC+2
#-1
3s
62, N6
18
#1,TSTPGM
TSTPGM
23
.USE

;CHANGE EMT PRIORITY T0 S
;CHANGE TRAP PRIORITY TO 5
sFIRST START
?
:BR_IF NOT
;ACT11 AUTOMATIC MODE?
sBRANCH IF NO
sENABLE PROGRAMMABLE DRIVES
:CAN WE USE PROGRAMMABLE DRIVES?
:BRANCH IF NO
sTYPE MSG

2$:

TST
BNE
CMP8
BNE
TYPE

62
3s
11,3061
3s
.LOADRYV

sAUTO ACCEPT OR CHAIN MODE ?
sBR IF EITHER
sLOADED FROM AN RP04/5/6 ?
:BR IF NOT
: INSTRUCT THE OPERATOR ON HOW TO TEST DRIVE 0

38:
.SBTTL

JSR
PC,STKINT
TURN ON THE KEYBOARD INTERRUPT
GET VALUE FOR SOF TWARE SUITCH REGISTER
TST
N2
ARE WE RUNNING UNDER XXDP/ACT?
BNE
718
: :BRANCH IF YES
CMP
SWR ,#SWREG
..SOFTUARE SWITCH REG SELECTED?
BNE
2%
s ;BRANCH IF NO
GTSWR
:sGET SOFT-SWR SETTINGS
BR
72%
Movs
#1,8AUT0B
+:SET AUTO-MODE INDICATOR

39 004570

013737

001360

69%:
70$:

001400

000042

000046

000001
035336

035336

Mov

1$:

053366

51 004650
52 004654
53 004656
54 004664
gg 004666

005737
001006
122737
001002
1064401

000042

57 004672
58
004676
004702
004704
004712
0047146
004716
004720
004726

004737

030400

005737
001006
023727
001005
1046406
000403
112737

000042

000011

000041

056712

001140

000176

000001

001134

718:
72%:

ENDSK+2 ,ENDSEK
+2

:.GET SOFT-SWR SETTINGS

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

SEQ 0064

GET VALUE FOR SOF TWARE SWITCH REGISTER

59 004726
60 004732
61 004734
62 004740
63 004746
64 004754
65 004760

005227
001015
004737
013737
013737
005737
001002

67 004762
68 004766
69 004772

004737
005037
012705

70 004776
71 005000

005025
022705

1777277

INC
BNE
JSR

056302
001170
001172
000042

MOV
MOV

TST
BNE

055764
001214
001440

A ¥

S$:

001740
001100

81 005050
82 005056

005037
042737

001262
170060

056142

055764

-.n-._.-a_.-n-n—us—a-.—n—a—n-.—n
—_d ek bk S OO
OOOOO0O

001622
000144
001256

MOV

(LR

CMP
BNE
CLR

001274

MOV

001406

CLR
CLR
CLR
8IC

177777

004737
013737
012737
012737
013737
162737

CLR

MOV

CLR
CLR
CLR

JROUTINE

88 005070
89 005074
90 005102
91 005110
92 005116
93 005126

JSR

SIZMEM:

001256
001616
001620
001622
001622

1$:

INC
BNE
JSR

000041

001622

013534
001404

001404
001622

001622
001622

0014064
054754

3s:

;GET THE DATE AND OPERATOR ID
sCLEAR PERFORMANCE SUMMARY TYPEOUT FLAG

?2§?ERO.R5
+

sDATE & OPERATOR ID INPUT

;START OF AREA TO CLEAR

#BLKADR,RS
5%

sLOOK FOR END OF CLEAR AREA
¢BR _IF NOT FINISHED

HZ,SIXTEE
HOUR
MINUTE
SECOND

21760 TH OR 1/50 TH SECOND COUNTER VALUE
sCLEAR THE HOUR'S COUNTER
sCLEAR THE MINUTE'S COUNTER
sCLEAR THE SECOND'S COUNTER

#STACK,SP
PS

INTRVL +2

PACK

CFLAG
#170000 ,MAXER

”-=1

sSETUP THE STACK POINTER
sCLEAR THE PROCESSOR STATUS WORD

cCLEAR INTERVAL COUNTER
sCLEAR THE

°'R*'

'W'

COMMAND FLAG

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

BUF TBL +4

8EQ
su8

TST

BNE

CMP
8LO

MoV

MOV

JSEE IF TIME TO SIZE MEMORY

1$
;BR [F NOT
PC,$SIZE
;SEE HOW MUCH MEMORY ON SYSTEM
SLSTAD,LSTAD
;SAVE THE LAST ADDRESS
#1,8UF TBL
;LOAD NUMBER OF BUFFERS
#ENDPGM,BUFTBL+2
;STARTING ADDRESS OF BUFFER
LSTAD,BUFTBL+4
:LAST ADDR TO BUFFER ALLOCATION TABLE

ROR

MOV

PC,OPRDAT
STATIN

#ENDPGM,BUFTBL+4

1ST8

003000
001404

;B8R IF NOT
;CHECK RH11 BUS ADDRESS
:RH11 ADDRESS
sRH11 VECTOR ADDRESS
sACT=11 AUTO OR CHAIN MODE?
;BRANCH IF EITHER, SKIP

MOV
MOV
MOV
MOV
Sus

sSus
CMP
BLO

100000

;FIRST START ?

3 3
PC ,BUSADR
SRPADR ,RPADR
SRPYEC ,RPVEC
42
43

TO DETERMINE BUFFER AREA SIZE

001622

-1

#100.,BUFTBL+4

1.S1AD,#100000

3s
41
33
#1536. ,BUFTBL+4
MAXDL
43
#5980. .MAXDL
MAXDL ,BUFTBL+4
4
BUF TBL+4,MAXDL

;SUBTRACT PROGRAM SPACE

;CLEAR THE 'C* BIT

*CONVERT TO WORD COUNT
:SAVE ROOM FOR THE

'ABS® LOADER

;16K ON THE SYSTEM ?

‘BR IF YES
*SEE WHO LOADED THE PROGRAM

*BR IF LOADED BY PAPER TAPE
' ;SUBTRACT °'XXDP' LOADER SIZE
;VALUE IN "MAXDL® ?
:BR IF VALUE IS
-ASSUME FULL TRACK + 1 SEC MAXIMUM
:IS THAT TOO LARGE ?
‘B8R IF NOT

:USE MAX AVAIL MEMORY AS MAX BUFFER SIZE

BUF TBL+4,PARLST+2

;VALUE FOR THE PARAMETER TABLE

;SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS
000042
104411

055050

LKPAR:

TST
BNE

TYPE
RDLIN

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

~ASKPAR

sASK FOR PARMETERS
sREAD THE ENTRY

SETVEC

:BR IF YES

RPO4/5/6 MLT=DR LGC MACRO V04.00 S-NOvV-81 09:16:17 PAGE 11-3

SEQ 0065

UE FOR SOF TWARE SWITCH REGISTER

Mov

000131

000004

001404

ENTPR:

;ADDRESS OF ENTRY TO RS
;WAS ENTRY A °'Y*' (YES)

#'Y, (RS)
SETVEC

:BR IF NOT ‘Y’

MOV

#PARLST ,R3

sPARAMETER TABLE ADDRESS
¢GET THE PARAMETER ENTRY
;1S THE °'MAXDL®' VALUE OK ?
¢BR_IF IT IS
sSET 'MAXDL' TO THE MINIMUM VALUE

BNE

054752
026604
001404

(SP)+ RS

CMPB

JSR
CMP
BHIS
MoV

FC,PARENT
, #4
MAXDL
SETVEC
#4 ,MAXDL

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

004737
004737
012737
062727
103004
032777
001105
012737
005004
104401
104401

022714
034520
177777
177777

034442
000000

000004

173600

000340

177776

001165
053672

THE PROGRAM WILL USE

SETVEC: JSR
JSR
MOV

PC,CKCLK
PC,RPINIT
#<1,SAVEFG

sSTART THE CLOCK
sINITIALIZE THE RPQ4/5/6 DRIVER

BCC
BIT
BNE

11$
#SW02,aSWR
108

:BR IF FIRST START
STYPEOUT THE DRIVE STATUS TABLE ?
*BR IF NOT

ADD

118:
s

MOV
CLR

TYPE

::SAVE R4 FOR TYPEOUT

106403
002

TYPOS

000010

034364

38:

053441

(S
5%

*BR IF UNSAFE
*BR IF ONLINE

BEQ
BPL

2
3s

:BR IF NONEXISTENT
*BR IF OFFLINE

+CHECK NEXT DRIVE

§s

<CHECK NEXT DRIVE

128

:BRANCH IF NO

TYPE

BITB
BEQ

TYPE

053514

128:

053662

48:

053525
053363
053711
000001

005536
034364

5¢:
6$:

053716
000002

005536
034364

+:60 TYPE--OCTAL ASCII

BM]
BNE

TYPE

2s:

::TYPE DRIVE NUMBER

2
0

TSTB

053626

STATUS HEADING

.BYTE
BYTE

TYPE
TSTB

053605

‘CR-LF

Ré&,=(SP)

005364
005366

034364

*SET PRIORITY TO 7
*DRIVE TABLE POINTER
sTYPE

MOV

053361
034354

,SCRLF

SCHECK FOR FIRST START

SYSTAT

010446

104401
105764
100425
001027
105764

#PR7,PS
R4

:SET THE SAVE REGISTERS FLAG

TYPE

005362

000

#=-1.40

,LIN4SP
DRVSTA(R4)
DRVTYP(R4)
NOTRP

NOTPRS

S:TYPE 2 DIGIT(S)
..suppaess LEADING ZEROS
:SPACES
:CHECK DRIVE'S STATUS

“SEE IF OFFLINE OR NONEXISTENT
:DRIVE NOT AN RP04/5/6

*DRIVE NOT PRESENT

#81T03, DRVTYP(R%)

:DRIVE PROGRAMMABLE?

,NOUSE

*PRINT MSG

és
,NOTSAF
és

*PRINT DRIVE TYPE
*DRIVE UNSAFE
:PRINT DRIVE TYPE

BR
TYPE

és
,UNTOFF

TYPE
TYPE

,UNTON
.LINSP

*DRIVE ONLINE
:SPACES

#RPOS

oonssg
OF RP0S MESSAGE

B8R
TYPE
B8R

MOV
BITB
BNE
MOV

BIT8

:PRINT DRIVE TYPE
*DRIVE OFFLINE

#RP04B, 88
DDRESS OF RPO4 MESSAGE
#exroooavrvp(a45
78
:BR’ 1 ES

;gxroioavrvp(n4$

:BR'IF YES

8
CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5~NOV-81 09:16:17 PAGE 11-4
GET VALUE FOR SOF TWARE SWITCH REG1STER

053723

000010
001165
177776
005570

D rd o

000137

005536

9$:

108:

N
AV,)

=l=l=lolelelole f=d o
o
OOOOO
(=4

~
o

\¥,
(¥4

005737
001402
004737

wvoawawD

05602
oo

oSO

2 005632
3 005636

~NO 1%,

4 005642

8 005646

199 005652

200 005654
201 005660
202
203 005662
204 005664
205 005666
206 005670
207 005672

000042

MONTR:

024576
177777

18:

000041

05614
SL

goonmang
OV~

#RP06,8%

WORD

INC
cMp
BNE
TYPE
CLR

R4
R4, A8.
18
LSCRLF
PS

TYPE

JMP

D
D
d
D
e
D wad
D
b

05574

)
wd
e
d o

MOV

JSCRLF

MONTR

SEQ 0066
sADDRESS OF RPO6 MESSAGE

sTYPE THE DRIVE TYPE MESSAGE
HESS:GE ADDRESS HERE
; CR=L

s INCREMENT DRIVE NUMBER/TABLE POINTER

;FINISHED ?

:BR IF NOT

JCR=LF

JSET PRIORITY BACK TO '0O°
;CHECK FOR °'XXDP' OR °*ACT11°' MONITOR

JSETUP IF *XXDP* OR 'ACT11°' OPERATION

ol OOV OO0

— el e

8$:

001165

oD e

012737
104401
000000

D i

D e

000000000000
~N N N NNNYNNN
VIS WA= OO0 ~NOWNE N =

168 0055 2

001256
104401

057105

004737

030400
054641
006024

104401

000137

100000

2%:

TST

INC

#-1

TYPE

.NOLOAD

8EQ
JSR
BNE
TST8
BEQ
CMP
BHIS

1%
PC,ASGN2
23
até
28
LSTAD ,#100000
23

JSR

PC,S$TKINT

JMP

MAIN1

TYPE

.INTDON

;'XXDP* CHAIN MODE OR ‘'ACT11°' AUTO ACCEPT
:BR _IF NEITHER

:ASSIGN DRIVES

sFIRST START
?
:BR IF NOT
:LOADED FROM PAPER TAPE ?
:BR IF YES
sMORE THAN 16K ON THE SYSTEM ?
:BR IF YES
:TELL THE OPERATOR THAT THE °*XXDP' LOADER
;WILL BE OVERWRITTEN
;INITIALIZE THE KEYBOARD INTERRUPT HANDLER
;TYPE *INITIALIZE COMPLETE'
:START THE PROGRAM

J'XXDP* OR °'ACT11*' END OF TEST ROUTINE
013700
001002

000137
000005

004710
000240
000240
000240
000137

000042

006024

004166

$GET42: MOV
BNE
JMP

42,R0
18
MAIN1

sMONITOR ADDRESS
:BR IF MONITOR
sNONE, CONTINUE
sCLEAR EVERYTHING

$SENDAD:

PC, (RO)

;G0 TO THE MONITOR
;SAVE ROOM
:FOR
SACT
¢START AGAIN

1$:

RESET

JSR

NOP
NOP
NOP

$DOAGN: JMP

START

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

SEQ 0067

[olelelelelelalelels]
el=lalelslolalalale)

.SBTTL

MAIN PROGRAM

000010
001464

MAIN:

MOV
MOV
ST

000002

28%:

18:

005646
001530

#2.RS
R3
18

BNE

MAINI

MOV
TST

#AVAIL ,R1
(R1)

5%
6$:

BR
MOV
ST

3s:

PON) =

000002

001552

%2 005764
000002

054171
023200

000733

#8. ,R3
#DUNIT,RS
(RS)

BNE
ADD
DEC
BNE

001462

cd ad od = = e ek

=2 OO 00 ~JON NS WMD) < OO 0D N O NS WNIR) =

MAIN PROGRAM

7%:

JMP

BEQ
CMP
BEQ
ADD

BEQ
CMP
BEQ
ADD
8R
MOV

ASNLST

$GET42

s
(R1)
., (RS)
78
02 R1
cUAxr R1
(R1)

28
(R1), (RS)
78
#2.R1
6$
(R1) .RO

TYPE
JSR

,DEASSG
PC,TYPEST

CLR
JSR
BR

(R1)
PC,CMPRES
28

(LR

020032

(RS)

sDRIVE COUNTER

sADDRESS OF °'DROP DRIVE' TABLE
¢SEE IF ENTRY AT PRESENT POSITION
:BR IF THERE IS ONE
¢ INCREMENT TO NEXT TABLE POSITION
sDECREMENT DRIVE COUNTER
;BR IF MORE TO CHECK

sANY DRIVES ACTIVE

:BR _IF YES
sCHECK FOR MONITOR RETURN
sADDRESS OF °'AVAILABLE DRIVES' TABLE

sSEE IF AT END OF TABLE
sBR IF AT END: GO CHECK °WAIT®' TABLE
ég ??IVESIN '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 HORE "DROP* REQUESTS
sDRIVE IN THE °‘WAIT® TABLE
?

:BRIF IT IS
s INCREMENT °‘WAIT' TABLE ADDRESS
:CONTINUE LOOK THROUGH THE 'WAIT' TABLE

sPUT THE DRIVE'S BLOCK ADDRESS IN RO
sTYPE 'DRIVE DEASSIGNED'

sTYPE THE DRIVE'S PERFORMANCE SUMMARY
sCLEAR THE °'DROP DRIVE® TABLE ENTRY
sREMOVE THE DRIVE FROM THE °‘AVAIL' OR °'WAIT® TABLE
;COMPRESS THE RESPECTIVE TABLE
sSEE IF ANY MORE DRIVES

;LOOK FOR DRIVES TO BE ASSIGNED

012703

010446
104403
002
000
104401

53 006104

062702

000010

MAINT:

MOV

#8..R3

001506

18:

000002

2s:

TST
BNE
ADD

NEWUNT (RS)
3
#2.RS

053506

3s:

B8R

MOV

CLR
CLR
CLR

s "AVAIL® INDEX
SASSIGN LIST INDEX

Ré
R3
13

MAIN2

s INCREMENT ASS°GN INDEX
sDECREMENT DRIVE COUNT
:BR IF MORE DRIVES
S[T’S?EEOPERATIONS FOR THE AVAILABLE DRIVES

Ré,~(SP)

::SAVE R4 FOR TYPEOUT

BYTE
.BYTE

2
0

Y TYPE--OCTAL ASCII
s:TYPE 2 DIGIT(S)
.‘SUPPRESS LEADING Z2EROS

AVAIL (R2)

INC
DEC
BNE

TYPE

TYPOS

054237
001530
000002

;DRIVE COUNT

R2
Ré
RS

TYPE

BEQ
ADD

,UNTMSG

,ASGND

5%
#2.R2

sNEW DRIVE INDEX
sNEW DRIVE IN THIS PCSITION
:BR _IF THERE IS
s INCREMENT RS

;:TYPE DRIVE NUMBER

ASSIGNED'
;AT END OF AVAILABLE TABLE

:BR IF YES
s INCREMENT AVAILABLE TABLE INDEX

SEQ 0068

MAIN PROGRAM

54 006110
55 006112

56 006120
57 006126

58 006132
59 006136

29 006142

000772
016562

005065
156437
016200
062702

000740

001506

001506
034470

001530
000002

001530

001462

BR
MOV

43
;CONTINUE LOOKING FOR END OF TABLE
NEWUNT
(RS)
,AVAIL(R2)
:MOVE ADDR OF DRIVE INTO AVAIL LST

MOV
ADD

AVAIL(R2)
R0
#2,R2

CLR
BISB

B8R

NEWUNT (R5)
-TAKE PRIVE OUT OF NEW DRIVE TABLE
ATABIT(R&G),ASNLSY:SET DRIVE ASSIGNED INDICATOR

;PUT STARTING ADDRESS OF BLOCK IN RO
*INCREMENT AVAILABLE TABLE POINTER

*LOOK FOR MORE DRIVES

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

65 006144
66 006150
67 006152
68 006154
69 006160
70 006162
71 006166
72
73
76
75
76
77
78
79
80
81

S$:

005737
001113
005002
005762
001551
016200
005760

006172
006174
006200
006202
006206
006210
006214
006216
006220
006222

001021
105760
001403
004737

83 006226
84 006232
85 006236
86 006242
87 006244
88 006250
89 006254
90 006256
91 006262
92 006266
93 006272
9% 006276
95 006300

004737
004737
004737
005046
004737
012660
001424
004737
005060
004737
012705
005725
001376

97 006306

105760

82 0062264

96 006302

98 006310
99 006312
100 006316
101 006320
102 006322

103 006324
104 006326

105 006334
106 006336
107 006342
108 006346
109 006350
110 006354

000415
012701
020011

THE

‘AVAILABLE® QUEUE

001552

MAIN2:

001530

18:

TST
BNE
CLR
ST
8EQ
MOV
ST

WAIT
MAIN3
R2
AVAIL (R2)
IDLE
AVAIL(R2),RO
SNEXT (RO)

BR
MOV
CMP
TST
BEQ

78
#PARQ,R1
RO, (R1)
4
(R1)+
58

JSR
JSR
JSR
CLR
JSR
MOV
BEQ
JSR
CLR
JSR
MOV
TST
BNE

PC,CMPRES
PC.SELPAR
PC.GETPAR
-(SP
PC,GETBUF
(SP)+,$BUF
(RO)
83
PC.FILBUF
$FAIR(RO)
PC.GODRIV
#ORDERQ,RS
(RS)+
<2

:COMPRESS THE TABLE
*SELECT THE PARAMETERS
*LOAD NEW PARAMETERS
JMAKE ROOM ON THE STACK FOR THE BUFFER ADDR
:GET BUFFER
:MOVE BUFFER ADDR TO DPB
:BR IF '0' ADDR (NO BUFFER)
SFILL THE BUFFER
SCLEAR THE 'FAIRNESS®' COUNT
:PUT CURRENT DP8 IN DRIVER
*ADDRESS OF ORDER QUEUE IN RS
*END OF QUEUE ?
*BR IF NOT

TSTB

$PACK(RO)

001530
000104

BNE
TST8
BEQ
JSR

000026
020050
001574

28:
38:

001403

005721
001403

000773

010045

001025
012705
005725
001376
010045

000417
026037

001405
005260
062702
000702
012705
005725

020032
016750
017624

43:
5$:
68:
7%:

016174
000006
016544
000072
016672
001440

001574

001254

8$:

000072
000002
001552

B8R

MOV

000026

000072

BEQ

98:

63
$PACK(RO)
28
PC ,WRTPK

RO,=(RS)

;OUTSTANDING BUFFER REQUESTS
‘BR IF THERE ARE
:CLEAR DRIVE TABLE POINTER
SANY DRIVES WAITING FOR PARAMETERS
:BRANCH IF NONE
:CONTROL BLOCK ADDR IN RO
:PARAMETERS BEEN SELECTED ?

:BR IF THEY HAVE
*'R*OR 'W' COMMAND FOR THE DRIVE ?
‘BR IF NOT
2GET DATA PACK PARAMETERS
*GET THE BUFFER
*ADDRESS OF THE PARAMETER QUEUE
:1S CURRENT DRIVE IN THE QUEUE ?
‘BRIF IT IS
AT END OF THE QUEUE
‘BR IF AT END

:CONTINUE LOOKING

:PUT BLOCK ADDRESS INTO QUEUE

BNE
MOV
ST
BNE
MOV

108
#PARQ,RS
(RS) +
.2
RO, -(RS)

S'R' OR ‘W' COMMAND FOR DRIVE ?
‘BR IF EITHER
:PUT BLOCK INTO THE PARAMETER QUEUE
:FIND THE END OF THE QUEUE
*BR IF NOT AT END OF QUEUE
:PUT BLOCK ADDRESS INTO THE QUEUE

BEQ
INC
ADD
BR
MOV
ST

98
$FAIR(RO)
#2,R2
18
MWAIT RS
(R5) +

IF YES
“INCREMENT THE ENTRY COUNT
*INCREMENT THE POINTER
:LOOK FOR SOME MORE DRIVES
*"WAIT' QUEUE ADDRESS
*LOOK FOR AN OPENING

BR
CMP

108
:CONTINUE LOOKING
SFAIR(RO).FAIRNS -ENTRY BEEN IN THE QUEUE LONG ENOUGH ?

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

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO Vv04.00 S-NOV-81 09:16:17 PAGE 12°5

SEQ 0069

MAIN PROGRAM

111
112
113
114
115
}}9

006356
006360
006364
006370
006372
006376

001376
016245
012701
060201
004737
000666

001530
001530

108:

020032

1}3

BNE
MOV
MOV
ADD
JSR
BR

.2
cBR IF NONE YET
AVAIL (R2),~(RS)
{MOVE DRIVE'S BLOCK ADDRESS TO QUEUE
#AVAIL
R
s 'AVAILABLE® TABLE ADDRESS
R2,R1
sFORM ADDRESS OF LAST ENTRY
PC.CMPRES
sCOMPRESS THE TABLE
18
s CONTINUE LOOKING

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

120 006400

013700

001552

122
123
124
125
126
127
128
129

006406
006412
006416
006420
006426
006430
006436
006440

004737
012660
001002
000137
004737
004737
005060
012705

016174
000006

131 006446
132 006450
133 006452
134 006456
135 006460
136 006464
137 006466
138 006470
139 006472
140 006476
}25 006502

001376
010045
105760
001005
012705
005725
001376
010045
012701
004737
000520

121 006404

130 006444

005046

005725

006504
016544
016672
000072
001440

MAIN3:

1$:

001574

}213.

WAIT,RO

JSR
MOV
BNE
JMP
JSR
JSR
CLR
MOV

PC,GETBUF
(SP)+,$BUF
(RO)
18
IDLE
PC,FILBUF
PC.GODRIV
$FAIR(RO)
#ORDERQ,
RS

BNE
MOV
TSTB
BNE
MOV
TST
BNE
MOV
MOV
JSR
BR

<2
RO, -(RS)
$PACK(RO)
2s
#PARQ,RS
(RS)
+
=2
RO,=(RS)
MAIT,R1
PC,CMPRES
MAIN2

CLR

TST

000026

001552
020032

MOV

28:

~(SP}

(RS)+

:MOVE THE °'WAIT® ENTRY TO RO
JMAKE ROOM ON THE STACK FOR THE BUFFER ADDR

:TRY TO GET A BUFFER

;MOVE THE BUFFER ADDR TO THE DFPB
:BR IF A BUFFER WAS ASSIGNED
sNO BUFFER AVAILABLE YET
sFILL THE BUFFER
:PUT THE ENTRY IN THE DRIVER

sCLEAR THE 'FAIRNESS' COUNT
;ADDRESS OF ORDER QUEUE IN RS

;AT END OF THE QUEUE

:BR IF NOT
;PUT BLOCK ADDRESS IN QUEUE
J'R' OR W' COMMAND FOR DRIVE ?
sBR IF YES, DON'T PUT BLOCK INTO °‘PARQ’

JFIND THE END OF THE PARAMETER QUEUE

JOPEN SLOT IN THE QUEUE ?
:BR IF NOT
;PUT BLOCK ADDRESS INTO THE QUEUE
;JADDRESS OF TABLE TO TO COMPRESS
;COMPRESS THE WAIT TABLE
;LOOK FOR MORE ENTRIES

:WAIT FOR AN ORDER TO FINISH

145 006504

012701

147
148
149
150

001433
005760
001773
162701

146 006510
006512
006514
006520
006522

151 006526
152 006530
153 006534
154 006536
155 006542
156 006546
157 006552
158 006556
159 006560
160 006564
161 006566
162 006570
163 006572

012100

010146
004737
000240
004737
005037
004737
004737
012601
012705
005725
001376
011145
004737

}22 006576

004737

166 006602
167 006606

005737
001403

001440

IDLE:

18:

000016
000002

016030

007042
001264
027036
027064
001530

28:

020032

016330
001262

MoV

#ORDERQ,R1

BEQ
TST
8EQ
Su8

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

MOV
JSR
NOP
JSR
CLR
JSR
JSR
MOV
MOV
ST
BNE
MOV
JSR

PC.,PROCES
BADSEC
PC . ABNRML
PC.EOP
(SP)+,R1
#AVAIL ,RS
(R5)+
2$
(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
sCORRECT TME QUEUE POINTER
sSAVE THE QUEUE ADDRESS
cACCUMULATE STATISTICS FOR DRIVE IN RO
sDEBUGGING AID
<PROCESS 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 ?
sBR IF NOT AT END OF LIST
sMOVE THE BLOCK ADDRESS INTO THE TABLE
s COMPRESS THE ORDER QUEUE
sRESTORE BUFFER

TST
BEQ

CFLAG
18

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

MOV

JSR

IDLE1:

(R1)+,R0

SEQ 0070

MAIN PROGRAM

168 006610
169 006614
170 006616
171 006624
172 006626
173 006632
1764 006634
175 006640
176 006644
177 006650
178 006652
179 006656
180 006662
181 006666

}g% 006672

004737
000733
032777
001007
005737
001404
005037
004737
005737
001410
013700
004737
012701
004737

000137

026212
000004

172314

001214
001214
023116
001574

2s:

001574
016750
001574
020032

005676

3s:

}gg
186
187
188
189
190
191

1$:

JSR
B8R

BIT
BNE

TST
BEQ
CLR
JSR
TST
BEQ
MOV
JSR
MOV
JSR

JMP

PC.KSR
IDLE
#5402 ,3SWR
23
STATIN
2$
STATIN
PC,STATPR
PARQ
3s
PARQ,RO
PC,SELPAR
#PARQ,R1
PC,CMPRES

MAIN

:SERVICE THE KEYBOARD
cSYSTEM WAS BUSY
s TYPE PERFORMANCE SUMMARY
:BR IF NOT
sTIME TO TYPE THE PERFORMANCE SUMMARY ?
:BR _IF NOT
sCLEAR THE INDICATOR
: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
sCOMPRESS THE PARAMETER QUEUE

cCONTINUE THE LOOP

:SETUP TO REFORMAT AN ERROR SECTOR
006676
006704
006706
006714
006716
006722

032777
001055
032777
001051
005737
001446

000001

172234

000200

172224

193 006732

004737

022616

195
196
197
198
199

112660
012760

000076
000404
001404

000404

001404

000102

177777

000104

REFMT:

001416

192 006724 016060 000272 000100
194 006736

112660

006742
006746
004754
006762
006764

103003
013760

203 007010

012760

200 006772
201 007000
202 007004

204 007016
205 007022
206 007024
207 007026
208 007030
209 007032
210 007034
211 007040

023727

112760
004737
110560
012701
005711
001405
020021
001374
005041
004737
000207

001574

020032

#SW0,3SWR
REFMTX
#SW7,aSWR
REFMTX
FORHAT
REFMTX

cREAD ONLY SWITCH SET ?
:BR IF IT IS
JSWITCH 7 SET ?
:BRIF IT IS
URITE HEADER & DATA ORDERS ALLOWED ?
IF NOT

JSR

PC ,READDR

;GET CORRECTED SECTOR-TRACK ADDRESSES

MOV

000077

000003
017576
000075

BIT
BNE
BIT
BNE
TST
BEQ

MOVS8

000102

000074

1$-

SRPCC(RO), SNCYL(§O) sUSE _PRESENT CYLINDER
(SP)+,SNTRK(R0) :TRACK ADDR TO DPB

MOvVS8
MOV
CMP
BHIS
MOV

MAXDL ,#260.

MoV

#-1 SNEXT(RO)

MOvV8
JSR
MOv8

MOV
28:
TST
8EQ
CMP
BNE
CLR
JSR
REFMTX: RTS

(SP)+,SNSEC(RQ) ;SECTOR ADDR TO DPB
#260. ,SNWRDL(RO)
;WORD COUNT FOR FORMAT

sCAN A FULL SECTOR BE WRITTEN ?

1$
:BR_IF IT CAN
MAXDL, SNWRDL (RO)
;PUT TRANSFER SIZE INTO THE DPB

#3,$NCODE (RO)
PC.GETPAT
R5,SNPATC(RO)
#PARQ, R1
(R1)
REFMTX
RO, (R1)+
23
=(R1)
PC,CMPRES
PC

; COMMAND CODE
SGET A PATTERN
;PATTERN CODE TO CONTROL BLOCK

:SET PARAMETERS SELECTED INDICATOR

:SET UP TO SEE IF BLOCK IN THE PARAMETER QUEUE
cSEE IF AT END OF TABLE
:BR_IF
AT END
sSEE IF BLOCK AT PRESENT POSITION
:BR_IF NOT
sCLEAR THE ENTRY
:COMPRESS THE TABLE
SRETURN

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

SEQ 0071

MAIN PROGRAM
}

sPROCESS THE ORDER TERMINATION

300 7042

111037

001246

4 007046

005760

6 007054

032760

100000

8 007064

032760

10 007074

032760

13 007110

004737

) 007052

7 007062

9 007072

11 007102
12 007104
14 007114
15 007122
16 007124

}g 007130

100427

001410
001017

001013
004737
032777
001002
004737

000207

PROCES: MOVB

000C16

;DRIVE NUMBER FOR ANY ERROR MESSAGES

ERPR

BR IF ERROR

STATUS(RO)

000234

BIT

081715 SRPCST(RO’

040000

000234

8IT

#mBI1T14, $RPCS1(R05

040000

000246

BIT

#BI1T14,8RPDS1(ROJ

JSR

PC . CKBUS

:NO _ERROR, CHECX BUS ADDR & WC

sRETURN

013272

013372
000002

BM]

BEQ

BNE
1$:

172016

013456

2s:

BNE
JSR
8IT
BNE
JSR

RTS

SEE IF DRIVER SIGNALED AN ERROR
;SEE IF °SC* SET

B8R IF NOT SET

ERPROC

:BR"IF SET

ERPROC
PC,CKERR

:BRIF SET
:NO ERROR, CHECK ERROR BITS ANYWAY

#SWO1,aSWR
28
PC,CMPAR

:SEE IF 'TRE' SET
;SEE [F 'ERR' SET

:DATA COMPARE ?
¢BR IF NOT
:NO_ERROR, COMPARE DATA

;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR

21 007132
22 007140
gz 007142

032760
001402
000137

000200

000016

007566

ERPROC: BIT
BEQ
JMP

#81707 ,$TATUS(RO) ;DONE BIT SET ?
ERPR(1
:BR_IF ORDER DIDN'T COMPLETE NORMALLY
DONE
cPROCESS ERROR WITH °'DONE' BIT SET

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

27 007146
28 007154

032760
001025

010000

000016

30 007164

032760
001055

004000

000016

31 007166

032760

002000

000016

33 007176

032760

001000

000016

35 007206

032760

040002

000016

000004

000016

29 007156
32 007174
34 007204

36 007214
37 007216
38 007224
28 007226

001056

001076

001111
032760
001141
000207

2}
43
44
45
46

(RO) ,UNIT

TST

ERPRC1: BIT
BNE

8IT
BNE

BIT
BNE

#81T12,$TATUS(RO) SEE IF DRIVE WAS UNSAFE
PUNSAF
BR IF YES

#8IT11, STATUS(ROS ;PARITY ERROR OCCURRED
UCPAR

:BR IF IT DID

FALPAR

BR_IF THERE 1S ONE

SWTIM

:BR IF YES

#BITIO $TATUS (ROS FATAL PARITY ERROR?

BIT

#BIT09, STATUS(ROS : TIMEOUT?

BIT

081114'BIT01 $TATUS(RO)

BNE

BNE
BIT
BNE
RTS

;DRIVE WENT OFFLINE ?

OFL
:BR_IF 1T DID
1T2 $TATUS(RO)
;PORT REQUEST TIME OUuT ?
PRTI
:BR IF IT DID
PC
sERROR. RETURN

;DRIVE 1S PERSISTENTLY UNSAFE
007230
007234
007240
007244

104401
104401
104401
013746

007250
007252
007253
47 007254
48 007260

104403
002
000
104401
004737

001165
020502

50
51
52
53

004737
004737
004737
004737

020546
021154
021630
023726

49 0072646

007270
007274
007300
007304

104414

001165
046630
054213
001246

046630

PUNSAF: TYPE
TYPE
TYPE
MoV

+SCRLF
EM12
.DRNUM
UNIT,~(SP)

sCR-LF
s 'DRIVE UNSAFE® MESSAGE
:DRIVE NUMBER
:;SAVE UNIT FOR TYPEOUT

TYPOS
BYTE
.BYTF
TYPE
JSR

2
0
.SCRLF
PC,LINET

:.G0 TYPE--OCTAL ASCII
;s TYPE 2 DIGIT(S)
..SUPPRESS LEADING ZEROS
sCR-LF
:PRINT LINE 1 OF ERROR MESSAGE

JSR
JSR
JSR
JSR

PC,LINE2
PC,LINE3
PC,LINES
PC,INCTOT

:PRINT LINE % OF
sPRINT LINE 35 OF
sPRINT LINE & OF
s INCREMENT TOTAL

DISPLY

s TYPE DRIVE NUMBER

EMT2

:PERSISTENT DEVICE UNSAFE MESSAGE

ERROR MESSAGE
ERROR MESSAGE
THE ERROR MESSAGE
ERROR COUNT

ETa)

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

CIZRJDEQ RPO4/S5/6 MLT-DR LGC MACRO /04.00 5-NOV-81 09:16:17 PAGE 13-1

SEQ 0072

MAIN PROGRAM

56 007310
gz 007314

57
58
59 007320
60 007324
6} 007330
6

63
64

004737
000137

JSR

JMP

007352
007354
007355
69 007356

70 007362
71 007366
72 007374
73 007376
74 007400
75
76
77
78 007402
79 007406
gO 007412

DROP

sPRINT LINE 7 OF ERROR MESSAGE
:DROP THE DRIVE

sUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED
104401
104401
000404

UCPAR:

104401
104401
104401

013746
104403
002
000
104401
004737
032777
001401
000000
000207

TYPE
TYPE

B8R
;'FATAL®

65 007332
66 007336
67 007342
68 007346

PC,LINE?

TYPE
TYPE
FALPR1: TYPE
MOV
TYPOS

001165
023726

100000

1$:

+SCRLF
JEM11
- DRNUM
UNIT,=(SP)

.BYTE
.BYTE

2
0

BIT
BEQ

#SW15,3SWR
18

RTS

TYPE
JSR

171544

FALPR1

sCR=LF
; '"UNCORRECTABLE PARITY ERROR' MESSAGE
:FINISH PROCESSING THE ERROR

MASSBUS PARITY ERROR OCCURRED

FALPAR:

001246

-SCRLF
LEM10

HALT

.SCRLF
PC,INCTOT

sCR=LF

s 'FATAL PARITY ERROR' MESSAGE

:DRIVE NUMBER

¢+ SAVE UNIT FOR TYPEOUT

¢ TYPE DRIVE NUMBER
::G0 TYPE--OCTAL ASCII
scTYPE 2 DIGIT(S)
:éSUf?RESS LEADING ZEROS
s INCREMENT TOTAL ERROR COUNT
sHALT ON ERROR ?

:BR_IF NOT
cERROR HALT

:SOF TWARE TIMEOUT OCCURRED
004737
104414

020502
046661

SWTIM:

JSR

PC,LINEY

sPRINT LINE 1 OF ERROR MESSAGE

JSR

PC,LINE?

sPRINT LINE 2 OF ERROR MESSAGE

JSR
JSR

PC,LINES
PC,INCTOT

DISPLY

JSR

000207

022264

JSR

RTS

EM13

PC,LINE3

PC,LINE?

¢PRINT THE TIME OUT MESSAGE

sPRINT LINE 3 OF ERROR MESSAGE
sPRINT LINE & OF ERROR MESSAGE
¢ INCREMENT TOTAL ERROR COUNT

sPRINT LINE 7 OF ERROR MESSAGE

sRETURN

sDRIVE WENT OFFLINE
89 007440
90 007444
91 007450
92 007454

007460

104401
104401
104401

013746

001165
046733
054213
001246

106403
002

TYPE

TYPE
TYPE

MoV

TYPOS

001165

000137

OFLIN:

026760

+SCRLF

EM14
.DRNUM

UNIT,-(SP)

.BYTE
.BYTE

2
0

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR

PC,LINET
,EM14
PC.LINE?
PC.LINE3
PC,LINES
PC,INCTOT
PC,LINE7

TYPE

JMP

,$CRLF

DROP

;CR=LF
J*DRIVE WENT OFFLINE® MESSAGE
DRIVE NUMBER

::SAVE UNIT FOR TYKEOUT
;:TYPE DRIVE NUMBLR
::60 TYPE-~OCTAL ASCIlI
ssTYPE 2 DIGIT(S)
.ERUP:RESS LEADING ZEROS

-L
cPRINT LINE 1 OF THE ERROR MESSAGE

:PRINT OFFLINE MESSAGE

:PRINT LINE % OF THE ERROR MESSAGE
:PRINT LINE 3 OF THE ERROR MESSAGE
¢PRINT LINE & OF THE ERROR MESSAGE

s INCREMENT TOTAL ERROR COUNT
:PRINT LINE 7 OF THE ERROR MESSAGE

:DROP THE DRIVE

CZRJDEO RP04/S/6 MLT-DR

MAIN PROGRAM

LGC MACRO V04.00 S-NOV-81 09:16:17 PAGE 13-5

SEQ 0073

004737
106414

olelelelelele)
NN
SN
NN
=20000

;PORT REQUEST TIMEOUT ERROR
502
756
546
154
630
726

000207

264

PRTIM:

JSR
DISPLY
JSR
JSR
JSR
JSR

JSR

RTS

PC,LINET
EM15

éc LINE2

PC.LINES

PC.INCTOT

PC.LINE?

sTYPE LINE 1 OF THE ERROR MESSAGE
sPRINT PORT TIME OUT MESSAGE

sTYPE LINE 2 OF THE ERROR MESSAGE
sTYPE LINE 3 OF

THE ERROR MESSAGE

sTYPE LINE 4 OF THE ERROR MESSAGE
; INCREMENT TOTAL ERROR COUNT
;gPSRLINE 7 OF THE ERROR MESSAGE

—

SEQ 0074

MAINPROGRAM

;PROCESS ORDER COMPLETION WITH 'ERROR' & 'DONE' BITS SET

3 007566
L 007574
S 007576

032760
001402
000137

7 007610

001006

9 007620
10 007622

001002
000137

12 007634
13 007636

001402
000137

15 007650

001402

6 007602

000030
012770

032760 040000

000016

DONE:

000244

16 007652

000137

19 007666

001402

000137

000250

22 007702
23 007706

24 007714
25 007716
26 007722
27 007730
28 007732

001402

000137
032760

001402
000137
032760
001402
000137

012070
000010

001402

32 007752

032760

31 007746
33
34
35
36

007760
007762
007766
0077764

000137

001472
000137
032760
001405

012222
000040

000250
000250

012672

012314

004000

000250

012346
001000

000250

38 010006
39 010006

001401
000207

41 010016
42 010020

001402
000137

44
¢5
46
47

010032
010034
010040
010044

001402
000137
005760
100002

010664
000250

49 010052

032760

140000

032760

50 010060

51 010062
gg 010066

000137
001402

000137
000137

010000

000250

CKF

010072

BR IF NOT SET

. +6

:BR IF NOT SET

HECK FORMAT ERRCR
HECK ‘HCE' ERROR

BIT

uaxr13 sRPER1(RoS;'OPI" SET?

JMP
BIT

0PI
*REPORT ‘OP]°
03113 $RPER1(R0)" ; "PAR* SET?

PARER
*REPORT 'PAR’
#B81TS,SRPER1(RO) " ;"WCF* SET?
.46
BR IF NOT SET
WCFER
REPORT ‘WCF*

#81T10, $RPER1 (ROS :'IAE' SET?
.+6
IAEER

:BR IF NOT SET

REPORT ‘'IAE'

#8IT11,8RPERT(ROY
; 'WLE® SET?

B8EQ
JMP
BIT
BEQ

.+6
BR IF NOT SET
WLEER
*REPORT ‘WLE®
#BIT9,SRPERT1(RO) ;'AOE' SET?
2
BR IF NOT SET

BEQ
RTS

2s
PC

.en IF NOT SET
:*AOE® & °'LST® SET, EXIT

.+6
DTEER

BR IF NOT
REPORT °'DTE' ERROR

6
CKER
sRP£R1(R0)
6

:BR'IF NOT SET
*REPORT ‘WCK'
*SEE IF *DCK® SET
.ea IF NOT

BIT

BEQ
JMP

BIT

BEQ
JMP
ST
BPL

JMP

#1710, snpos1<ao$;'LST' SET?
#8IT12,$RPER1(RO)

;SEE IF °'DTE' SET

#BIT14, SRPCS2(ROS

;SEE IF WCK® SET

DCKE

OCESS *DCK’

BIT

431115'31114 sapsns<no> :'SKI' OR 'OCYL® SET

JMP

SKIER

8EQ

011342

:BR IF NOT
:PROCESS °'HCRC'

CKH

BIT

012634

6
HC

JMP

BIT

000276

.ea IF SET
ROCESS °'TRE®

aaxro7 snpea1<no$;'HCE® SET?

JMP

2%:

1s
TRF

8IT

BEQ

012200

JMP

gg
56 010072
57 010100

JMP

BIT

43 010024 032760 040000 000244
48 010046

091104 SRPER1(RO);*FMT*® SET?

BEQ
JMP
BIT
BEQ
JMP

37 007776 032760 002000 000246
40 010010

BIT

BEQ

29 007736 032760 002000 000250
30 007744

cexroa snpen1(ao$:'HCRC® SET?

BEQ

011570

IF SET

BIT

BEQ

011374

;1S "WCE' SET ?

8BIT1G, sapos1<no$:CHECK 'ERR®

011212

000020

#8IT14, snpcsz<ao$

BIT

BEQ
JMP

20 007672 032760 020000 000250

21 007700

BNE
JMP

17 007656 032760 000200 000250
18 007664

BNE

012534

11 007626 032760 000400 000250 1$:
032760

#81T04'BITO3,$TATUS(RO) ;UNSAFE OCCURRED
.+6
.a IF NOT
UNSAF
REPORT UNSAFE

BIT

8 007612 032760 040000 000246

14 007642

BIT
BEQ
JMP

;BR IF NOT SET

DRVER

*REPORT DRIVE ERROR

*REPORT ERROR

;PROCESS DATA (°DCK') CHECK ERROR
022760
101406

010042

000300

DCKER:

(MP
BLOS

#10042,$RPECT(RO)
;VALID POSITION COUNT ?
1§
:BR IF NOT VALID

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

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

SEQ 0075

001252

020344
000001

010664
020502
047033

D
b
d

010100

001250
000250

RTS

CMPB
BHI
JMP
JSR
6$:
DISPLY
DCKER1: JSR
JSR
JSR
JSR
MOV
8IT

D
d
b o
md
D e

000020

001252

000002

000262

000007
016330
922616
000011
000010
000272
000022

SR
ONON%

000022
000020
000004

16$:

023726

CLR
BIT
BNE

$SRPEC2(RO)

¢VALUE IN PATTERN REGISTER ?
:BR IF YES

43
PC,LINE1

;TYPE FIRST LINE OF ERROR MESSAGE

PC.LINE2

;TYPE LINE 2 OF ERROR MESSAGE

LEM4LS

PC,INCTOT

#3.RETRY

PC.SRETRY

28’

PC.LINEGC

PC,LINE6D
Pg.LINE?

PC,SPOTCK
PC

$CODE (RO) .M

WCKER
PC,LINE1

LEM21

PC,LINE2

PC.LINES

PC,LINES
PC,PRTBAD

:TYPE

*ECC LOGIC ERROR®

¢ INCREMENT TOTAL ERROR COUNT
cRETRY COUNT
cRETRY THE ORDER
¢RETRY WAS NOT SUCCESSFUL

sTYPE LINE 6C OF ERROR MESSAGE

sFINISH THE ERROR REPORT
;TYPE LINE 6D OF ERROR MESSAGE
EY?; LINE 7 OF ERROR MESSAGE
SEE IF ERROR AT A BAD SPOT ON THE PACK

JIT 1S, DON T REPORT IT
:1S ORDER
A WRITE CHECK ?
:BR IF NOT
;REPORT ERROR UNDER WRITE CHECK PROCESSING
sPRINT LINE 1 OF ERROR MESSAGE
¢DATA CHECK ERROR
;PRINT LINE 2 OF ERROR MESSAGE

:PRINT LINE 3 OF ERROR MESSAGE

:PRINT LINE 4 OF ERROR MESSAGE
: SEE IF BAD SECTOR TO BE PRINTED
#81T15'81712'81706,MASK ¢LOAD ERROR MASK

1?1712'81706.SRPER1 (RO)
PC.LINEG

:CHECK *DTE' & 'ECH’

:BR IF SET

8s
:}6..RETRY

sPRINT LINE 6 OF ERROR MESSAGE
cFINISH THE ERROR REPORT
:RETRY COUNT

168
#7.R1

s INCREMENT PAST RP06 OFFSET CODES

:R1 IS OFFSET CODE POINTER
#81T01,$RPDT(RO)’ ;1S DRIVE ANRPO6
?
PC,RELBUF
PC,READDR

:BRIF IT IS

:RELEASE THE BUFFER

:GET THE ADDRESS OF THE ERROR SECTOR
sTRACK ADDRESS OF ERROR SECTOR

SS%EC(RO)- SWRDL ( RO)

000020
000004
15%:

2$:
3$:

000016

:BRIF 0'S

(SP)+,$SEC(RO) :SECTOR ADDRESS OF ERROR SECTOR
$RPCC (RO, $CYL (RD) sPRESENT CYLINDER

000012
000020

000016

004737

MOV

sPOSITION COUNT 0 ?

(SP)+,$TRK (RO)

016174

000200

1$:

BNE
JSR
BR

?2PEC1(R0)

JSR
BR
JSR
BR
JSR
JSR
B8R
JSR

022210
022264

e
i
D
e
b
mh
e
b e

(vlelelelelelolele]
H NN
WNIN)
=2 = =2 OO NN
OO
OO NMN

o
o e
e
b e
b

MOV

022202

000024

TST
8EQ
TST
BNE
JSR
DISPLY
JSR
JSR

RNOSHOONOSONNONNO
OO

b b cnd b cd e v ad cd e o e md e e
PININININ)

015702

&»HO

b med

b
e
d o
o
b
b —d
d
b
D
o e
d
b
o
D
b
b

18:

022154

(=]lelelelelw]

NN e 3R R A R AR 28 8

b
e
b
e
b
b
b
b md
d
d
b
b
ek

000300

00030.

d oD

005760

b md

RN 8 B R IR R R AR 2B ISV
R

A NANIITE IR SRARZE G ®

elolelelelelelelelelelelelelealelelelelelelalelalelelelelalelelelalelelalelelelalelalalelalelalalalelalelelelelele]

MAIN PROGRAM

;SEE IF TRANSFER LENGTH LESS THAN 1 SECTOR
;BR IF IT 1S: USE PRESENT TRANSFER LENGTH

kO) s CHANGE TRANSFER SIZE TO 1 SECTOR

$SSEC(RO)
, SWRDL (
;SETUP WORD COUNT FOR OPERATION
SWRDL
(RO) , SWRDM( RO)
SWRDM(RO)
sCHANGE COUNT TO 2°'S COMP

=(SP)
PC,GE TBUF

(SP)+,$BUF (RO)

sSPACE FOR NEW BUFFER ADDRESS

sGET A BUFFER

g;ATUS(RO)

NEURBUFFER ADDRESS TO DPB
sRET
sTEST FOR DONE

PC,INCTOY

: INCREMENT TOTAL ERROR COUNT

PC,GODRIV

:BR IF NOT DONE
108
:BR_IF NOT ERROR
#8177 ,8TATUS(RO) BRSEE ISTORDER TERMINIATED NORMALLY
14$

b
d
D
D
D
D
d

001253
001252

001253

RETRY+1
RETRY ,RETRY+1

148:

d e
d
e
) e

|V]
AV,]

ISR
SRRRL REVFRSRR
g
OO

* INCREMENT RETRY COUNT
*DONE ?
‘BR [F NOT
- INCREMENT TABLE INDEX

PC. INCHRD
PC.INCTOT

s INCREMENT °'HARD' ERROR COUNT
s INCREMENT TOTAL ERROR COUNT

GENDPB+STATUS

D
b
b
b
d
e
b
b
d
b

:'ECH' OR _°'DTE® STILL SET ?

:BR IF NEITHER SET

sOFFSE
sSEE IF FINISHED WITH OFFSET
:BR IF NOT
:BR IF NO ERROR PERFORMING OFFSET

PC,OFFST

5%:
6$:

PC.LINES

PC.LINE7

PC .PRTBAD

13$

022174
022112
023606
014604

o
o

b e
amd and
b nd e
b
— end end and ad cmd

:BR IF DIFFERENT ERROR

R1
OFFCOD(R1) ,GEND PB+SFMT
;OFFSET CODE
9%
sBR IF END OF OFFSET TABLE
#2 ,RETRY
sNEW R;TRY LIMIT

4$:

022532
023632
023726
022264
015344

P
ERPRC1

)

gglfl?!BlTb.SRPEk1(R0)

001252

NN
NN = OOV
NS W= O VRNV

; 'DIFFERENT ERROR DURING RETRY'
sSEE WHICH ERROR
MASK, SRPER1(R0) ¢LOOK AT CURRENT ERROR

000250

000002
015574
046166

PC,LINEGB
PC.LINESB
PC,INCSOF
PC,ECC

118
PC,LINE6D

022210

022166

JSR

001300

MOV

JSR

001301

TST8

BM]
JSR
DISPLY
JSR
JSR

023726
006676

RTS

PC.LINEGA
PC,INCSOF
#1,FRSTER
PC,CMPARD
FRSTER+1

13$

PC,INCTOT

PC,REFMT
PC

sPRINT LINE 8 OF ERROR MESSAGE

sPRINT LINE 7 OF ERROR MESSAGE
sPRINT THE BAD SECTOR

SCLEAN UP AND RETURN

3
~
N

F
RS

b
e
b
b
e
b

000250

001252

e
e e

WCKER:

BIT
BNE
JSR
DISPLY

sPRINT LINE 58 OF THE ERROR MESSAGE

s INCREMENT ‘SOFT' ERROR COUNT
sCORRECT THE ERROR USING ECC AND CHECK IT
- COMPARE THE BUFFER
sPRINT LINE 6D OF ERROR MESSAGE
s INCREMENT ERROR COUNT
sPRINT LINE 6A OF ERROR MESSAGE
s INCREMENT ‘SOFT® ERROR COUNT
:SET PROCESSING °‘DCKER' INDICATOR
s COMPARE THE BUFFER
cERROR IN COMPARE ?
:BRANCH IF ERROR
s INCREMENT TOTAL ERROR COUNT
s 'DATA COMPARE OK' MESSAGE
sPRINT LINE 7 OF ERROR MESSAGE
cREFORMAT THE ERROR SECTOR
sRETURN

#B81T15,SRPERT(RO)
2%
PC,LINE1
»

PC,LINE2
PC,LINE3

b ok ok

100000

(= l=]OO0
~ ~ O~

032760

000403

PC,LINE4
PC,LINES
PC,INCTOT
#3,RETRY

:E.SRETRV

sPRINT LINE 6B OF ERROR MESSAGE

sWRITE CHECK ERROR PROCESSING
(elelelelelelelelelelelel-]

W= OV

,L INSM

010100

046151

= OO0 ~NONWN
W= O 000 NN S W

(elelelelelalalelelelelelalalelelelelelelelelalelalelelolalelalelalelelalalelels
(o)

D e
d
D
D
D
D
i
) oD ad
D
D

AN N NN NN NI NINI N = b b b b

D e
)
b e
b
b md
b
b el
b
b ok

NOONON
OV~

—

SEQ 0076

000250

DISPLY

002220

000207

)

052550
007146
001250

b cd

b el

b and ed cnd wmd

)

b cnd

) e

b cmd

MAIN PROGRAM

LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-5

;SEE IF °DCK®' SET ALSO

:BR IF IT IS
sPRINT LINE 1 OF ERROR MESSAGE

sPRINT WCE & DCK NOT
sCLEAR ERROR MASK

¢PRINT LINE % OF ERROR MESSAGE

cPRINT LINE 35 OF ERROR MESSAGE
¢PRINY LINE & OF ERROR MESSAGE

sPRINT LINE 5 OF ERROR MESSAGE

s INCREMENT TOTAL ERROR COUNT

cRETRY LIMIT
sRETRY THE OPERATION

cRETRY UNSUCESSFUL

CZRJDEQ RP04/5/6 MLT-DR

neé
CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 14-3

SEQ 0077

MAIN PROGRAM

171 010750

004737

022202

173 010756

004737

022210

18:

004737

020344

28:

177 010772
178 010776

004737
012737

020502
047064

180 011012

001003

172 010754

174 010762

175 010764

176 010770
179 011004

000502

000506
000507
032760

040000

001252

198 011112
199 011116

105237
123737

001253
001252

001253

032760

100000

000250

032760

000100

000250

001407

203 011136

204 011144
205 011146
206 011152
207 011154

001347
004737
000403
004737

208 011160 000405

3$:
48:
58:

001253
022202
68:

022532

78:

023726
022264

8s:

212 011174
213 011200
214 011206
ggg 011210

004737
004737
004737
000207

023726
022264
006676

98 :
108:

S}Z

004737

020344

221 011220
222 011224
223 011230
224 011234
225 011240

004737
104414
004737
004737
004737

020502
047012
020546
021154
021630

220 011216

011244

000450

032760

040000

BEQ
MOV
JSR
TST
BEQ
8M]
INCB
JSR
INCB
CMP8

PC.LINE3
PC.LINE&
PC.LINES

:DID *WCK® ALSO SET ?
IT DID

‘35??265u232 'DCK* AND 'WCK' NOT DURING

:PRINT LINE 3 OF ERROR MESSAGE
sPRINT LINE %4 OF ERROR MESSAGE
PRINT LINE S OF ERROR MESSAGE

;ECH SET ALSO ?

8s
#16. ,RETRY
PC.GODRIV
$TATUS (RO)
5s
6$
RETRY+1
PC,LINESC

;FINISH PROCESSING THE ERROR
*RETRY LIMIT = 16 (10)
SRETRY THE ORDER
*ORDER FINISHED ?
*BR IF NOT
:BR IF ERROR ON ORDER
*INCREMENT RETRY COUNT
*PRINT ! INE 6C OF ERROR MESSAGE

RETRY+1
RETRY,RETRY+1

- INCREMENT RETRY COUNT
:DONE ?

SFINISH 78102 PROCESSING
“BR [F AT RETRY LIMIT

#8I1T15,8RPERT(ROY

:°'DCK* SET

8IT

#81T06,8RPERT1(RO)

:*ECH® ALSO SET ?

B8R

BNE
JSR
BR
JSP
JSR
JSR

:BR IF NOT = DIFFERENT ERROR

4
PC.LINE6C
8s
PC.LINES

;BRIF IT IS, RETRY ORDER
*PRINT LINE 6C OF ERROR MESSAGE
SFINISH PROCESSING ERROR
:PRINT LINE 8 - 'DIFFERENT ERROR °

PC.INCTOT
PC.LINE?

- INCREMENT TOTAL ERROR COUNT
:FINISH THE ERROR MESSAGE

11$

11$:

JSR
JSR
JSR
RTS

;REPORT

'HCRC' ERROR

HCRCER: JSR

B8R

000244

#8IT14,8RPCS2(ROY

8IT

8EQ

022202

219 011212

STYPE THE ERROR MESSAGE
*MESSAGE ADDRESS GOES HERE
:PRINT LINE 2 OF ERROR MESSAGE

BEQ

004737
004737

000406

:BRIF

JSR
JSR
JSR

209 011162
210 011166

211 011172

128

SPRINT LINE 1 OF ERROR MESSAGE
ASSUME THAT EM22 WILL BE PRINTED

000020
016672
000016

202 011134

BNE

*SEE IF ERROR AT BAD SPOT ON THE PACK

SEXIT IF AT BAD SPOT ON PACK

B8R

000250

001714

PC.LINE1
#EM22 138

11§

#81T06,8RPERT1(ROY

000100

201 011126

JSR
MOV

*FINISH PROCESSING THE ERROR

8IT

032760

200 011124

PC,SPOTCK

0
PC.LINE2

001442
012737
004737
005760
001775
100405
105237
004737

000431

JSR

10$

DISPLY
LWORD
JSR

128:
13s:

011054
011056
011064
011070
011074
011076
011100
011104

197 011110

*PRINT LINE 6D OF ERROR MESSAGE

B8R

:FINISH PROCESSING THE ERROR

#EM37,138

020546

189
190
191
192
193
194
195
196

PC,LINE6D

MOV

104414
000000
004737

188 011046

JSR

011024

183 011022
184 011024
187 011026

021154
021630
021720

:PRINT LINE 6C OF ERROR MESSAGE

8IT

012737

004737
004737
004737

PC.LINESC

000244

}g} 011014

011032
011036
011042

047765

011024

JSR

B8R

JSR
DISPLY
JSR
JSR
JSR

BIT

PC,INCTOT
PC.LINE7
PC_REFMT
PC

*FINISH PROCESSING ERROR
SEXIT

*INCREMENT TOTAL ERROR COUNT
*FINISH THE ERROR MESSAGE
*REFORMAT THE SECTOR IN ERROR
*RETURN

PC,SPOTCK

:SEE IF ERROR AT PACK BAD SPOT

PC.LINE1
,EM20
PC,LINE2
PC.LINE3
PC.LINE&

*PRINT LINE 1 OF
*REPORT 'HCRC®
*PRINT LINE 2 OF
:PRINT LINF 3 OF
PRINT LINE & OF

SEXIT IF IT IS

#BiT14,$RPCS2(ROY

ERROR MESSAGE

ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE

:'WCE' ERROR ALSO ?

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

SEQ 0078

b
—

noN

[=l=4
oo

OO0O000O0
=200NMNINN
VNO
O WNIN—
NO
&S NONN
OOONNON
NDWOONONO

1%:

2%:
3s:

000207

BEQ
JSR
JSR
JSR

MOV
Mov

OO0
NN
NN
O
OO
SN

001402

QOO
ONINY
ONrUNY
OV
NO =
oSO

OSSOSO
O OSN

LN N U NN NN NN RO RO PO RN
B NNR. N = = = ONN

b cud

b
d wd

b cad e

b ed

b
b

b and
wmd
e

—t e

ad ed cd

rd e

(el alelalelelelelelelelelsla]

-l

~ N NN AN N N NN N I N NN
WO
NESANN OO0~

~n [SLNTNTNY
STNT ST ST ST SIS LY

MAIN PROGRAM

JSR
BR
JSR
JSR
BR
JSR
JSR
JSR
RTS

1$
PC.LINES

PC,INCSOF
PC,INCTOT

#8178 ,MASK

;BR _IF NOT
:DISPLAY WORDS WHICH CAUSED

‘'WCE'

s INCREMENT °'SOFT' ERROR COUNT
s INCREMENT TOTAL ERROR COUNT

sSET ERROR MASK

#3 ,RETRY
PC.SRETRY

SRETRY LIMIT
cRETRY ORDER

PC,LINEGC

sPRINT LINE 6C OF ERROR MESSAGE

gg.LlNE?

PC,LINEGD
PC,LINE7
PC,REFMT
PC

sRETRY NOT SUCESSFUL

:E§{¥T LINE 7 OF ERROR MESSAGE

sPRINT LINE 6D OF ERROR MESSAGE
;PRINT LINE 7 OF ERROR MESSAGE
sREFORMAT
sRETURN

THE ERROR SECTOR

NOVNOONNONNY

b
b

b =d
b el nd

004737
104414

004737
004737
004737
004737
000207

020502
047427
020546
021154
023726
022264

DRVER:

JSR
DISPLY
JSR
JSR
JSR
JSR

RTS

PC,LINE1

sPRINT LINE 1

PC,LINE2
PC,LINE3

sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3 OF ERROR MESSAGE

,EM30

PC,INCTOT

PC,LINE7
PC

OF ERROR MESSAGE

cREPORT DRIVE ERROR

¢ INCREMENT TOTAL ERROR COUNT

sPRINT LINE 7 OF ERROR MESSAGE
¢RETURN

032760

000400
011212
022616
015620
000400

OO SO

ONNOOWVNASS
S NWNIIN = =20 0N

000250

CKFMT:

18:

046204

012374
020344

2$:

020502

U\U\‘*“W“Nddg
OSSOSO

b o

VWAV
B S BB DB

b e

b
b
b

b
e

b
e
e
b e

D
b

b
b

b e

b md

e
e

b
b
b

el e
b

b e

i e

P e

b md

b =D

sPROCESS FORMAT ('FER') ERROR
mlelelelelalelelelalelelalelealelolelelelelelelelelelaleled

N
~
oo

el ek wad aud
—b

—t cd

(elelelelelale]

JREPORT DRIVE ERROR

040000
021720

000244

3s:

MOV
MOV

015702

000406

004737

022202
022264
022210

BIT
BEQ
JMP
JSR
JSR
8IT
BNE
JMP
JSR
B8R
JSR
DISPLY
JSR
JSR
JSR
8IT
BEQ
JSR
JSR
JSR
JSR

4$:

JSR
B8R
JSR
JSR
BR
JSR

#BIT8,SRPER1(RO) ;'HCRC' SET ON ORIGINAL ERROR ?
18
;BR IF NOT SET
HCRCER
PC,READDR
PC,READHD

sREPORT HCRC ERROR
cGET CORRECTED TRACK & SECTOR ADDRSSES
;READ HEADER

FMTER

¢NO, ERROR IS

SEXIT IF IT IS

#B1T8,GENREG+RPERT ;'HCRC' SET WHEN HEADER READ?
23
sBR IF 'HCRC' SET
PC,SPOTCK

PC,LINE?

LEM24

°FMT' ONLY

:SEE IF ERROR AT BAD SPOT ON THE PACK

*PRINT LINE 1 OF ERROR MESSAGE

*HEADER READ ERROR = FMT BIT DROPPED UP

PC.LINE2
PC.LINE3
PC.LINEG

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

PC.LINES
PC.LINESA

:DISPLAY WORDS WHMICH CAUSED ‘WCE®
*DISPLAY HEADER

§g1714,snpcsz(noi
PC. INCSOF
PC.INCTOT
#B1T4 , MASK

:;gcs&rtnaon ALSC ?

*INCREMENT SOFT ERROR COUNT
- INCREMENT TOTAL ERROR COUNT
*SET ERROR MASK

#3,RETRY

SRETRY LIMIT

*RETRY NOT SUCESSFUL

gg.L1~57

*PRINT LINE 7 OF ERROR MESSAGE

PC.SRETRY

PC.LINE6C
PC,LINESD

*RETRY THE ORDER

:PRINT LINE 6C OF ERROR MESSAGE

JEXIT

sPRINT LINE 6D OF ERROR MESSAGE

SEQ 0079

032760

80 NNN

000400

000250

011212

18:

000400

066204

010000
000272

055754
055754

020502
047264
020546
021154
021630
040000

021720
022020
023606
023726
000200
000003
015702

055754

2$:

3s:

PC,LINE7
PC,REFMT
PC

sPRINT LINE 7 OF ERROR MESSAGE

sREFORMAT
cRETURN

THE ERROR SECTOR

000244
A ¥

0012
0012

004737
00207

022210
022264
006676

BIT
BEQ

#B1T8,8RPER1(RO);HCRC SET ON ORIGINAL ERROR ?
18
;BRIF NOT SET

JSR
BIT

PC,READHD
: READ HEADER OF CURRENT SECTOR
#8178, GENREG+RPER1 .'HCRC SET

JMP
JSR

HCRCER
PC,READDR

:REPORT HEADER CRC ERROR
:GET CURRENT SECTOR & TRACK ADDRS

BNE
Bl

3$
#BIT12,CYLDER

;BR _IF SET
;CLEAR FORMAT BIT FROH HEADER

BEQ

;BRIF IT IS

BIS

#BIT12,CYLDER

JMP

JMP
JSR
BR
JSR

DISPLY
JSR
JSR
JSR

5%:

6$:

S$RPCC(RO),CYLDER ;CORRECT CYLINDER?

POSER

HCEER
PC,SPOTCK
63
PC,LINET

,EM25
PC,LINE?
PC,LINE3
PC,LINES

sREPORT POSITIONING ERROR

;RESTORE THE FORMAT BIT

¢REPORT °‘HCE' ERROR
sSEE_IF ERROR AT BAD SPOT
SEXIT IF IT IS
sPRINT LINE 1 OF ERROR MESSAGE

cHEADER READ ERROR = 'HCE®' SET
sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3 OF ERROR MESSAGE
:PRINT LINE & OF ERROR MESSAGE

BIT

081714 $RPCS2(ROJ ; *WCE' ERROR ALSO ?

JSR
MOV
MOV

PC,INCTOT
#8177 ,MASK
#3 ,RETRY
PC,SRETRY

BEQ
JSR
JSR
JSR

JSR

022202
022264

BR
JSR
JSR
BR
JSR

JSR
JSR
RTS

43
PC,LINES
PC.LINESA
PC,INCSOF

:BR"IF NOT
sDISPLAY WORDS WHICH CAUSED ‘'WC(E'
:PRINT LINE 5 OF ERROR MESSAGE
: INCREMENT SOFT ERROR COUNT

5%
PC,LINE6C

PC.LINE?
63

¢RETRY NOT SUCESSFUL
:PRINT LINE 6C OF ERROR MESSAGE
:PRINT LINE 7 OF ERROR MESSAGE
JEXIT

PC,LINE7
PC,REFMT

;PRINT LINE 7 OF ERROR MESSAGE
sREFORMAT THE ERROR SECTOR

PC.LINEGD
PC

s INCREMENT TOTAL ERROR COUNT
sSET ERROR MASK
sRETRY LIMIT
sRETRY THE ORDER

sPRINT LINE 6D OF ERROR MESSAGE
sRETURN

004737

000207

L=
o

104414

POMNVPLND =2 PINL
NN —

004737
004737

NuuNg—‘OOOU\

JREPORT POSSIBLE POSITIONING ERROn
lelelelelelalalalalal

330 012014

RTS

CMP

012014
010000
012452
020344

CKHCE:

nNo

oo
NN
W)
= = OO NN
S OSNNONSNSOSHO0NO

5%:

JSR
JSR

sPROCESS HEADER COMPARE (’HCE') ERROR

2325222
OO NNN NN NNNNNNSINNNNVNOO
[e OOV UWWNININ
=S OO NN
NONSO > nNoOONO
VO
ONONNONN

b
)
b e
d
i
b
D
b
b
b
b cmd
b
D
D
D
b
) e
b
b
D
b wd
b
b
d
D
v
b wd and cd o
— e

SRR
AR AR

000207

022264
006676

N UN AN U N N AN AN N N AN AN N AN NN W
NN(1871, 41,67, €1,87, ¢, €7, ¢ P pui gt Sl Quut QG
gt g Q
O 0o NOWNESWN=OVRNOWNESWN-OO

elelelelelalelelelalalelelalelelelelelelelolelelelalelelelalalelalelele
L]

284 011556
285 011562
286 011566
287
288
289

020

POSER:

JSR

PC,RECALT

sRECALIBRATE

DISPLY

,EM51

+PROGRAM DETECTED POSITIONING ERROR

JSR
JSR

055754

PC, LINE1

PC,LINE2

sPRINT LINE 1 OF ERROR MESSAGE
:PRINT LINE 2 OF ERROR MESSAGE

JSR
BIS
JSR
JSR

PC,LINESC
#BIT12,CYLOER
PC,LINESA
PC.INCMIS

:PRINT LINE 3C OF ERROR MESSAGE
:RESTORE THE FORMAT BIT
:PRINT LINE SA OF THE ERROR MESSAGE
s INCREMENT MISPOSITIONING CCUNT

%;g

gE.LINE?A

:E;{?T LINE 7A OF ERROR MESSAGE

JSR

PC.INCTOT

: INCREMENT TOTAL ERROR COUNT

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 14-2

MAIN PROGRAM

SEQ 0080

MAIN PROGRAM

34
gz%
344 012070
345 012074
346 012076
3647 012102
348 012106
349 012112
350 012116
351 012122
352 012126
353 012134
354 012142
355 012146
356 012150
357 012154
358 012160
359 012162
360 012166
361 012172
gg% 012176

;REPORT ‘'OPI' ERROR
004737
000207
004737
104414
004737
004737
004737
004737
012737
012737
004737
000405
004737
004737
000207
004737
004737
004737
000207

020344
020502
047461
020546
021154
021630
023726
020000
000003
015702

OPIER:

001250
001252

022202
022264
022210
022264
006676

ggg
366 012200
367 012204
368 012206
369 012212
%;? 012216

gg?

392 012314
393 012320
394 012324
395 012330
396 012334
397 012340

PC,SPOTCK
PC
Pcfi§I~E1
EM31
PC,LINE?
PC,LINE3
PC.LINES
PC,INCTOT
#BI1T13,MASK
#3 ,RETRY
PC,SRETRY
18
PC,LINEGC
PC,LINE?
PC
PC,LINEGD
PC,LINE7
PC,REFMT
PC

:SEE IF ERROR AT BAD SPOT

SRETURN IF IT IS
sPRINT LINE 1 OF ERROR MESSAGE

:'0OPI°

ERROR

sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3 OF ERROR MESSAGE
sPRINT LINE & OF ERROR MESSAGE

¢ INCREMENT TOTAL ERROR COUNT
sERROR MASK
sRETRY LIMIT

sRETRY THE ORDER
sRETRY UNSUCESSFUL
sPRINT LINE 6C OF ERROR MESSAGE
:2;}?7 LINE 7 OF ERROR MESSAGE

sPRINT LINE 6D OF ERROR MESSAGE

JPRINT LINE 7 OF ERROR MESSAGE
sREFORMAT THE ERROR SECTOR

¢RETURN

JREPORT 'DTE' ERROR
004737
000207
004737
104414
000137

020344

DTEER:

020502
047524
010224

g;%
374 012222
375 012226
376 012232
377 012236
378 012242
379 012246
380 012252
381 012260
382 012266
383 012272
384 012274
385 012300
386 012304
387 012306
ggg 012312

JSR
RTS
JSR
DISPLY
JSR
JSR
JSR
JSR
MOV
OPIER1: MOV
JSR
BR
JSR
JSR
RTS
1$:
JSR
JSR
JSR
RTS

JSR
RTS
JSR
DISPLY
JMP

PC,SPOTCK
PC
PC,LINE1
,EM32
DCKER1

sSEE IF ERROR AT BAD SPOT
sRETURN IF IT IS
sPRINT LINE 1

:'DTE' ERROR

OF ERROR MESSAGE

sFINISH PROCESSING THE

'DTE'

ERROR

JREPORT 'PAR' ERROR
004737
104414
004737
004737
004737
004737
012737
012737
004737
000405
004737
004737
000207
004737
000772

020502
047557
020546
021260
021630
023726
000010
000003
015702

004737
104414
004737
004737
004737
004737

020502
047676
020546
021346
023726
022264

PARER:

001250
001252

022202
022264

1$:

022210

2s:

JSR
DISPLY
JSR
JSR
JSR
JSR
MoV
Mov
JSR
BR
JSR
JSR
RTS
JSR
BR

PC,LINEY
,EM33
PC,LINE2
PC.LINE3E
PC,LINES
PC,INCTOT
#81703,MASK
#3 ,RETRY
PC,SRETRY
28
PC,LINEGC
PC,LINE7
PC
PC.LINEGD
13

JSR
DISPLY
JSR
JSR
JSR
JSR

PC,LINE1
,EM35
PC,LINE2
PC,LINE3F
PC,INCTOT
PC,LINE7

;REPORT ‘IAE' ERROR
IAEER:

sPRINT LINE 1 OF ERROR MESSAGE
cREPORT 'PAR'
cPRINT LINE 2 OF ERROR MESSAGE

sPRINT LINE 3E OF ERROR MESSAGE
;PRINT LINE & OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT
sERROR MASK
sRETRY LIMIT

sRETRY ORDER
¢RETRY UNSUCESSFUL
sRETRY SUCESSFUL

:E;}?T LINE 7 OF ERROR MESSAGE

sPRINT LINE 6D OF ERROR MESSAGE
sFINISH ERROR MESSAGE

sPRINT LINE 1 OF ERROR MESSAGE
sREPORT °‘JAE'

sPRINT LINE 2 OF ERROR MESSAGE

sPRINT LINE 3F OF ERROR MESSAGE

¢ INCREMENT TOTAL ERROR COUNT

sPRINT LINE 7 OF ERROR MESSAGE

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

SEQ 0081

%98 012344

000207

004737

000207

RTS

020502
047734
020546
023726
022264

;REPORT

'WLE' ERROR

WLEER:

JSR
DISPLY
JSR
JSR

E M36
PC,LINE2

RTS

JSR

PC,LINET

PC,INCTOT

PC,LINE7

JRETURN

cPRINT LINE 1 OF ERROR McSSAGE

sREPORT ‘WLE'
sPRINT LINE 2 OF ERROR MESSAGE

¢ INCREMENT TOTAL ERROR COUNT
sPRINT LINE 7 OF ERROR MESSAGE
sRETURN

—b
b
b

ololelels)

004737
104414
004737
004737
004737
NN
o~
N

AN =

b ed

2 2

;REPORT FORMAT ERROR

421 012444
422 012450
423
424
425
626 012452
427 012456
428 012462
429 012466
430 012472
431 012476

020502
047345
020546
021154
021630
040000

FMTER:

000244

021720

000207

18:

022264

JSR
DISPLY
JSR
JSR
JSR
BIT
BEQ
JSR
JSR
JSR
JSR
RTS

PC.LINE?

cPRINT LINE 1 OF ERROR MESSAGE

LEM26

¢FORMAT ERROR

PC.LINE&

*PRINT LINE & OF ERROR MESSAGE

PC,LINES
PC.LINESA

:DISPLAY WORDS WHICH CAUSED 'WCE'
:PRINT LINE SA OF ERROR MESSAGE

PC.LINE?7

sPRINT LINE 7 OF ERROR MESSAGE

PC,LINE2
PC.LINE3

sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3 OF ERROR MESSAGE

121114SRPCSZ(ROS
PC,INCTOT

;HCEO ERROR ALSO ?

: INCREMENT TOTAL ERROR COUNT

sREPORT HEADER COMPARFE ERROR

004737

02C502
047372
020546
021154

021630

040000

432 012504
433 012506
434 012512

000207

HCEER:

000244

021720
022020
023726
022264
006676

18:

JSR
DISPLY
JSR

JSR
JSR
BIT
BEQ
JSR
JSR
JSR
JSR
JSR

RTS

PC,LINE1

JEM27

PC,LINE2
PC.LINE3
PC.LINEG

sPRINT LINE 1 OF ERROR MESSAGE
+HEADER COMPARE ERROR
sPRINT LINE 2 OF ERROR MESSAGE
PRINT LINE 3 OF ERROR MESSAGE
RINT LINE 4 OF ERROR MESSAGE
;UCE& ERROR ALSO
?
;BR
:DISPLAY WORDS WHICH CAUSED 'WCE®
:PRINT LINE SA OF ERROR MESSAGE

121114SRPCSZ(ROS
PC,LINES
PC,LINESA
PC,INCTOT

PC.LINE?

PC,REFMT
PC

: INCREMENT TOTAL ERROR COUNT
sPRINT LINE 7 OF ERROR MESSAGE
sREFORMAT THE ERROR SECTOR
sRETURN

sPROCESS CONTROL/INTERFACE TRANSFER ERROR
442 012534
443 012540
444 012544
445 012550
446 012554
447 012560

004737
104414

004737
004737
004737
004737

020502
050047
020546
6
121400

000003
001250
015702

004737

022202

TRFER:

000244
001252

JSR
DiSPLY
JSR

JSR
JSR
JSR

PC,LINE1

L EM&O

PC.LINE2
PC,LINE3
PC, LINE4

sPRINT LINE 1 OF ERROR MESSAGE

sRH11 OR UNIBUS TRANSFER ERROR
sPRINT LINE 2 OF ERROR MESSAGE

sPRINT LINE 3 OF ERROR MESSAGE

PC,INC

PRINT LINE & OF ERROR MESSAGE
NCREMENT TOTAL ERROR COUNT

28
#3,RETRY

SET
:BR 1 F NONE
:RETRY LIMIT

?g.SRETRY

:RETRY THE OPERATION

l81T15'BIT13'BIT§'BITS $RPCS2(RO)

MASK

PC,LINEGC

$'DLT',"UPE', "MXF"*,

sCLEAR ERROR MASK

¢RETURN HERE IF RETRY UNSUCESSFUL
sPRINT LINE 6C OF ERROR MESSAGE

'MDPE'

SET ?

CZRJDEQ RPO4/5/6 MI.LT-DR LGC MACRO V04.00 5-NOV=~81 09:16:17 PAGE 14-?

MAIN PROGRAM

SEQ 0082

MAIN PROGRAM

455 012620
456 012622

000402
004737

228 012632

000207

457 012626

004737

022210
022264

18:
28:

22?
004737
104414

298 012670

000207

012644
012650
012654
012660
012664

0064737
004737
004737
004737
004737

020502
050523

SKIER:

020546
021170
023726
023656
022412

RTS

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR

R1S

2;}

sFINISH THE ERROR REPORT
¢PRINT LINE 6D OF ERROR MESSAGE

JPRINT LINE 7 OF ERROR MESSAGE

PC,LINE1
,EMS50

PC,LINE?
PC.LINE3B
PC,INCTOT
PC,INCSKI
PC,LINE7A

JPRINT LINE 1 OF ERROR MESSAGE
$'SKI' OR 'OCYL' ERROR

;PRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 38 OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT
s INCREMENT °*SKI' OR ‘OCYL' ERROR COUNT
;PRINT LINE 7A OF ERROR MESSAGE

;REPORT WRITE CLOCK FAILURE (°'WCF')

473 012672
474 012676
475 012702
476 012706
477 012712
478 012716
479 012722
480 012726
481 012734
482 012742
483 012746
484 012750
485 012754
486 012760
487 012762

233 012766

004737
106414
004737
004737
004737
004737
004737
012737
012737
004737
000405
004737
004737
000207
004737

000772

020502
047634
020546
021162
021630
023726
015344
000003
000040
015702

WCFER:

001252
001250

022202
022264

18:

022210

28:

23?

JSR
DISPLY
JSR
JSR
JSR
JSR
JSR
MOV
MOov
JSR
BR
JSR
JSR
RTS
JSR

PC,LINEY
,EM34
PC,LINE2
PC,LINE3A
PC,LINES
PC.INCTOT
PC,PRTBAD
#3 ,RETRY
#BIT0S5 ,MASK
PC,SRETRY
2%
PC,LINEGC
PC,LINE?
PC
PC,LINEG6D

sPRINT LINE 1 OF ERROR MESSAGE
sREPORT WRITE CLOCK FAILURE
sPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3A OF ERROR MESSAGE
sPRINT LINE 4 OF ERROR MESSAGE
¢ INCREMENT TOTAL ERROR COUNT
;SEE IF BAD SECTOR TO BE PRINTED
JRETRY COUNT
sERROR MASK
cRETRY THE ORDER
cRETURN HERE IF RETRY UNSUCESSFUL
;PRINT LINE 6C OF ERROR MESSAGE
;PRINT LINE 7 OF ERROR MESSAGE
sPRINT LINE 6D OF ERROR MESSAGE

sPROCESS DRIVE UNSAFE ERROR

492 012770
493 012774
494 013000
495 013004
496 013010
497 013014
498 013022
499 013026
500 013030

501
502
503
ggg

JSR

2%
PC,LINEGD
PC,LINE7
PC

;PROCESS °SKI' OR 'OCYL' ERRORS

462 012634
463 012640
464
465
466
467
468

B8R
JSR

013034
013036
013042
013046

004737
104414
004737
004737
004737
012737
004737
000403
004737

000402
004737
004737
000207

020502
050655
020546
021154
023726
000003
015702

001252

022202

022210
022264

389

508 013050
509 013054
510 013056
511 013062

UNSAF:

1$:
2%:

JSR
DISPLY
JSR
JSR
JSR
MOV
JSR
BR
JSR

BR
JSR
JSR
RTS

PC.LINET
,EM60
PC.LINE?
PC,LINE3
PC,INCTOT
#3 RETRY
PC.SRETRY
1$
PC.LINE6C

2%
PC,LINEGD
PC,LINE7
PC

sPRINT LINE 1 OF ERROR MESSAGE
sREPORT DRIVE UNSAFE
sPRINT LINE 2 OF ERROR MESSAGE
;PRINT LINE 3 OF ERROR MESSAGE
s INCREMENT TOTAL ERROR COUNT
cRETRY COUNT
sRETRY THE ORDER
sRETRY WAS UNSUCESSFUL
sPRINT LINE 6C OF ERROR MESSAGE

;CUNTINUE WITH ERROR REPORT
sPRINT LINE 6D OF ERROR MESSAGE
;PRINT LINE 7 OF ERROR MESSAGE
cRETURN

JREPORT AN 'UNKNOWN' DATA PATTERN

105737
001013
004737
104414

001300
020502
050232

NOMTCH: TSTB
BNE
JSR
DISPLY

FRSTER
1%
PC,LINET
,EM43

sFIRST ERROR IN THE SECTOR ?
:BR _IF NOT OR IF PROCESSING °'DCKER®
sTYPE LINE 1 OF ERROR MESSAGE
:"CAN'T MATCH DATA WITH PATTERN®

B r~

E
CZRJDEQ RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 14-8

SEQ 0083

MAIN PROGRAM

512 013066
513 013072
514 013076
515 013162
516 013106
517 013110
518 013114
526 013120
013122
013126
013132
013134
013140
013144
013146
013152
013156
013160
013164
013170
013172
013176
013202
013204
013210
013214
013216
013222
013226
013230
013234
527 013240
528 013244
529 013246
530 013254
531 013262
ggg 013270

004737
004737
004737
000404
104414
104414
104414
010146
004737
104414
012146
004737
104414
010146
004737
104414
012146
004737
104414
010146
004737
104414
012146
004737
104414
010146
004737
104414
012146
004737
104414
062701
005002
112737
112737
013737
000207

020546
021162
021630
050232
001165
052710

18:

28:

0225644
053363
022544
001165
022544
053363
022544
001165
022544
053363
022544
001165
022544
053363

022544
001165
000770
000001
177777
0016414

001300
001301
001310

ggg
032760
001015

539 013310
560 013312
541 013316
542 013320
543 013324
544 013326
545 013332
546 013334
547 013340

001011
005760
001006
005760
001003
005760
001416
004737
104414

548 013344
549 013350
550 013354
551 013360
552 013364

PC,LINEZ
PC,LINE3A
PC.LINES
2%
,EM43
,$CRLF
,LIN9I
R1,-(SP)
PC,LiNOCT
,LINSP
(R1)+,-(SP)
PC,LINOCT
,SCRLF
R1,-(SP)
PC,LINOCY
,LINSP
(R1)+,-(SP)
PC,LINOCT
,$CRLF
R1,=(SP)
PC,LINCCT
,LINSP
(R1)+,=(SP)
PC,LINOCT
,S$CRLF
R1,-(SP)
PC,LINOCTY
,LINSP
(R1)+,-(SP)
PC,LINOCT
,SCRLF
#<252.%2.>,R1
R2
#1_FRSTER
#-1,FRSTER+]
CMPLMT LIMIT
PC

JPRINT LINE 2 OF ERROR MESSAGE
sPRINT LINE 3A OF ERROR MESSAGE
sPRINT LINE 4 OF ERROR MESSAGE
s CONTINUE PROCESSING ERROR
s'CAN'T MATCH DATA WITH PATTERN'
:CR=LF
sHEADER FOR DATA PRINTOUT
cADDRESS OF WORD 1
sTYPE WORD 1
s SPACES
sADDRESS OF WORD 1
sTYPE WORD 1
sCR=LF
cADDRESS OF WORD 2
sTYPE WORD 2
:SPACES
sADDRESS OF WORD 2
:TYPE WORD 2
:CR-LF
sADDRESS OF WORD 3
sTYPE WORD 3
s SPACES
;ADDRESS OF WORD 3
sTYPE WORD 3
sCR=LF
;ADDRESS OF WORD 4
s TYPE WORD &
s SPACES
:ADDRESS OF WORD 4
sTYPE WORD 4
:CR-LF
,INCREMENT BUFFER POINTER
sCLEAR ‘WOKDS TO COMPARE' COUNT IN R2
sSET 'NOT FIRST ERROR' INDICATOR
sSET _ERROR FOUND INDICATOR
SRESET THE COMPARE ERROR TYPEOUT LIMIT
sRETURN

sCHECK ERROR BITS IN THE RH11 & RP04/5/6 REGISTERS

536 013272
537 013300

538 013302

JSR
JSR
JSR
BR
DISPLY
DISPLY
DISPLY
Mov
JSR
DISPLY
MoV
JSR
DISPLY
MoV
JSR
DISPLY
MOV
JSR
DISPLY
MoV
JSR
DISPLY
MOV
JSR
DISPLY
Mov
JSR
DISPLY
MOV
JSR
DISPLY
ADD
CLR
Move
Mov8s
MoV
RTS

032760

004737
004737
004737
004737
004737

060000

000234

177400

000244

CKERR:

000250

000274
000276

020502
050277
020546
021154
021630
023726
022264

18:

BIT
BNE

#60000,$RPCS1(RO)
:SEE IF °'TRE' OR °'MCPE' SET
18
:BR IT EITHER SET

BIT

#177400,8RPCS2(RD)

JSR
JSR
JSR
JSR
JSR

PC,LINE2
PC,LINE3
PC,LINES
P, INCTOT
PC.LINE7

BNE
TST
BNE
TST
BNE
TST
BEQ
JSR
DISPLY

1$
SRPER1(RO)
13
SRPER2(RO)
1$
SRPER3(R0)
2%
PC,LINET
_EM&4

;SEE IF ERROR BITS IN CS2 SET

:BR IF ANY SET
sANY BITS SET IN ER1
sBR IF ANY SET
sANY BITS SET IN ER2 ?
sBR IF ANY SET
sANY BITS SET IN ER3 ?
¢BR _IF NONE SET
sPRINT LINE 1 OF ERROR MESSAGE
-ERROR BITS SET, BUT 'SC' OR ‘TRE' NOT SET

sPRINT LINE 2 OF
sPRINT LINE 3 OF
sPRINT LINE & OF
s INCREMENT TOTAL
sPRINT LINE 7 OF

ERROR MESSAGE
ERROR MESSAGE
ERROR MESSAGE
ERROR COUNT
ERROR MESSAGE

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

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

SEQ 0084

MAIN PROGRAM

ggz 013370

000207

28:

ggz
557 013372
558 013376
559 013400
560 013404
561 013406
562 013412
563 013416
564 013420
565 013426
566 013430
567 013434
568 013440
569 013444
570 013450

g;g 013454

2;2

005760
001010
016046
006316
066016
022660
001416
004737
104414
004737
004737
004737
004737
004737
000207

000236

CKBUS:

000020
000006
000240
020502
050105
020546
021212
021630
023726
022264

18:

28:

000004

000024

001300
000002

165436

598 013622
599 013626

016002
166037

000022
000022

601 013642
602 013644
603 013650
604 013652
605 013656
606 013662
607 013664

001036
023721
001402
004737
023721
001402
004737

609 013672

001402

608 013670

sRETURN

000402

126027

005721

TST
BNE
MoV
ASL
ADD
CMP
8EQ
JSR
CISPLY
JSR
JSR
JSR
JSR
JSR
RTS

SRPW( (RO)
1%
$WRDL
(RO) ,-(SP)
(SP)
$8UF (RO), (SP)
(SP)+,SRPBA(R0O)
2%
PC.LINET
EM&1
PC,LINE2
PC,LINE3D
PC,LINES
PC.INCTOT
PC.LINE?

sCHECK WORD COUNT
:BR_IF NOT 2ERO
;WORD LENGTH
¢ CHANGE INTO BYTE COUNT
;ADD THE STARTING LOCATION
;BUFFER ADDRESS PROPER
?
:BR IF OK
:PRINT LINE 1 OF ERROR MESSAGE
:BUS ADDRESS OR WORD COUNT INCORRECT
:PRINT LINE 2 OF ERROR MESSAGE
;PRINT LINE 3D OF ERROR MESSAGE
:PRINT LINE &4 OF ERROR MESSAGE
: INCREMENT TOTAL ERROR COUNT
sPRINT LINE 7 OF ERROR MESSAGE

;COMPARE THE BUFFER

132760
001001
000207
005037
032777
001401
000207
005037
016001
016037
066037
016037
052737
016037
013737
075237
012737
005037
S25037
022700
101003
013702

600 013634

;CHECK BUS ADDPRESS REGISTER & WORD COUNT REGISTER

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 0135564
590 013562
591 013566
592 013574
593 013600
594 013604
595 013612
596 013614

597 013620

RTS

001306
000006
000020
000236
000012
010000
000010
001414
001310
177777
001302
001304
001312

00 1 312
00} 312
001314
00 1 %}2
(€01
001310

001276

CMPAR:

BIT8
BNE
RTS
1$:
CLR
CMPARD: BIT
BEQ
RTS
18:
CLR
mov
MOV

000022

001312

000024

001312

000005

18:
2%:

007314

CMHED:

013726
001316

18:

013726

2s:

SWRDL (RO) ,CMCNT

;WLRD COUNT TO WORKING LOCATION

ADD
MOV
BIS

SRPWC (RO) ,CMCNT
;CALCULATE ACTUAL WORDS TRANSFERED
$CYL(RO),CMCYL
;CYLINDER ADDRESS WORKING LOCATION
#BIT12 CHCYL
:SET FORMAT BIT

MOV
INC
MOV
CLR
CLR
CMP
BHI
MOV

CMPLMT,L.IMIT ~
LIMIT
#-1,2ROIND
SAVER1
SAVERS
CMCNT ,$SSEC(RO)
18
CMCNT,R2

MOV
SUB

$SSEC(RO),R2
:COMPARE SECTOR
$SSEC(RO) .CMCNT :DECREMENT WORD COUNT

MOV
CMSTR:

#81702,$CODE(RO)
;SEE IF READ ORDER
1$
:BR IF IT 1S
PC
¢RETURN
FRSTER
sCLEAR 'FIRST ERROR' INDICATOR
#SW01,3SWR
:IS SWITCH 1 SET?
13
:BR IF NOT
PC
sYES, DON'T COMPARE
ERCTR
:CLEAR THE ERROR COUNTER
$BUF (RO) ,R1
:BUFFER ADDRESS

B8R

CMP8

$SEC(RO) ,CMSEC

SCODE(RO).#5

:READ HEADER © DATA?

(R)+

21ST KEY WORD ZERO?

BNE
CMP
BEQ
JSR
CMP
BEQ
JSR

CMDAT
CMCYL, (R1)+
18
PC.5$
CMSEC, (R1)+
s
PC,5$

BEQ

;SECTOR & TRACK ADDRESSES TO WORKING LOCNS

:DISPLAY LIMIT
JCONVERT PARAMETER INTO LIMIT VALUE
sCLEAR THE 'ZERO'S® INDICATOR
*CLEAR THE R1 SAVE WORD
:CLEAR THE RS SAVE WORD
;1S BUFFER SIZE GREATER THAN ONE SECTOR ?
:BRIF IT IS
*LESS THAN, USE REMAINING BUFFER

*BR IF NOT
sCHECK CYLINDER
:BR [f COMPARE OK
*REPORT ERROR
:COMPARE SECTOR & TRACK
‘BR IF EQ
*REPORT ERROR

:BRIF IT IS

SEQ 0085

MAIN PROGRAM

013726

213726
000004

48:

000004

001306
014204

740

014526

CMDAT:

013050

3744

626 013754
627 013756
628 013762
629 013764
630 013766
631 013772
632 013774
633 014002

2s:

000020

3s:

001306
000010

165136

014204

4$:

—b e

and cnd ad

(elelelelajelelelelelaleleleleleloldlelalelelalalelelealelelelelola)

004737

95
Vs

Guusrd
GG
P
e Qo Guar Goner Pur G
b o
-

onOn

[2S 153
Vi

N AN NN N NN NN
~
~
~N
~

(=l [elolelalelelelelelelels)

610 013674

177777
001306
014204

58:
001276

001300

68:

001276
001302

I8N
S

O WS 8 S UANNIN)
= =k
ONONNONONSOANSBOONNO

001276

78:

014204

sREPORT ERROR

BEQ

:BR_IF ZERQ

8s:

000024

000005

001316
001316

000026

000023

(R1)+

JSR
SuB

PC,5%
#4,R2

CMP

#4,R2

INC
JSR

ERCTR
PC,CMPRT

JSR
BR
JSR
BR
MOV
MOV

PC,MATCH
2$
PC,NOMTCH
8s
(R4) ,RS
#20,R3

BNE
ST
BEQ
BIT
BEQ
JSR

5%
ERCTR
(s
#SW3,aSWR
4
PC,CMPRT

BEQ
DEC
BNE

8$
R3
33

BLE
BHI
BR

RTS

cMP

DEC

B8R

CMPRX
CMPRX
CMDAT

(R1J+, (RS)+

TST
BEQ
MOV
INC
JSR
BR
TSTB
8M]

<2(R1)
6$
#-1,ZROIND
ERCTR
PC.CMPRT
4$
FRSTER
78

ggv

RS SAVERS

sCHECK 2ND KEY WORD
:REPORT THE ERROR

s SUBTRACT HEADER LENGTH FROM SIZE
¢BR _IF FINISHED
sSEE IF AT LEAST & MORE WORDS TO CHECK

:BR IF NOT

s COMPARE THE DATA PORTION

: INCREMENT THE ERROR COUNT

;REPORT THE COMPARISON ERROR

¢CHECK THE REST OF THE HEADER
¢FIND THE PATTERN

¢cFOUND A PATTERN
sRETURN HERE IF NO MATCH WITH PATTERN MADE
:BYPASS COMPARE RCUTINE
sADDRESS OF PATTERN ADDRESS IN R4
sR3 IS PATTERN POS COUNTER
s COMPARE BUFFER WITH PATTERN
:BR IF NOT EQUAL

sERRORS DETECTED ?
:BR IF NO ERRORS

?
sSWITCH 3 SET
:BR_IF NOT SET

sDISPLAY THE WORD
cDECREMENT SIZE COUNT
:BR WHEN AT END
sDECREMENT PATT POS COUNT
:BR _IF NOT AT END OF PATT
;RESTART THE PATTERN

;1S MISCOMPARED CHARACTER=0
:BR IF YES
sSET NON-ZERO MISCOMPARED INDCATCR
s INCREMENT THE ERROR COUNTER
;REPORT ERROR

s CONTINUE COMPARE
:g‘RST ERROR?
IF NOT

ZROIND
R1,SAVER1

‘SET THE ZERO INDICATOR

ST
BEQ

znoxno
4$

; ANY HISCOHPARIONS NOT ZEROS ?

B8R

JSR

001312

001316
001317
001317

PC,58

TST

CLR
MOV

001304

b ad
o
wed e
e
e
e v
D e
b
cd o
b wmd

PARRRX

WOV~

646

177776

JSR

PC,CMPRT

:BR_IF _NONE-ALL ERRORS=ZERO
;REPORT ERROR

CMCNT

:AT END OF BUFFER

BLE
CMP8
BNE

CMPRX
$CODE(RO)
,#5
CMSTR

CLRB
INCB
C(MP8

CMSEC
CMTRK
CMTRK,#19.

INCB
CMPB
BLO

BLO

*SAVE CURRENT R1

*SAVE CURRENT RS
s CONTINUE COMPARE

CMSEC
(MSEC,#22.
CMSTR

CMSTR

s CONTINUE COMPARING

:BR_IF AT END
sSEE IF READ HEADER & DATA
:BR_IF NOT
- INCREMENT SECTOR
;SECTOR GREATER THAN MAX ?
:BR_IF NOT GREATER THAN MAX
sCLEAR SECTOR ADDRESS
: INCREMENT TRACK
:TRACK GREATER THAN MAX ?

sBR IF NOT GREATER

b
fen)

H 7
CZRJIDEO RPO4L/5/6 MLT-DR LGC MACRO V04.00 5-NOV=-81 09:16:17 PAGE 14-11

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

SEQ 0086

MAIN PROGRAM

667 014162
O

668 014166
269
014172

CMPRX:

CLRB
INC
JMP
JSR
RTS

CMTRK
cMCYL
CMSTR
PC,ENDCMP
PC

cRESET TRACK ADDRESS
s INCREMENT CYLINDER ADDRESS
sCONTINUE WITH COMPARE
sPRINT LAST LINE IF ERRORS

—t ed e

b ad wd cd

b cd e

end

;TYPE DATA COMPARE ERRORS
005737
001010

001302

004737
004737
000422

014300
014362

105737
100402

CMPRT:

001300
1%:

2s:

010146

010546

013701
013705
004737
004737
005037
005037

001302

001304

014362

3s:

001300
695
696
697
698
699

700
701
702
703
704
705

014310
014314
014320
014324
014330

020502
050151
020546
021162
021630

014334
014336
014342
014346
014352
014360

052605

58:

17777? 001300 6%:
7%:

001310

8s:

001310

000200

164534

9%
108:

TST
BNE
TST8B
aM]
JSR

PC.4$

JSR

PC.8%

MOV
MOV
Mov
MoV
JSR
JSR
CLR
CLR
MOV
MOV
JSR
RTS
1878
8MI
BNE
JSR
DISPLY
JSR
JSR
JSR
BR
DISPLY
DISPLY
DISPLY
MOV
RTS

R1,-(SP)
RS,=-(SP)
SAVER1 ,R1
SAVERS RS
PC,4$
PC,8%
SAVER1
SAVERS
(SP)+ RS
(SP)+,R1
PC.8%
PC
FRSTER
$
b}3
PC,LINE1
_EM
PC.LINE2
PC,LINE3A
PC,LINES
6$
,LIN98B
,$CRLF
,LINSH
#-1,FRSTER
PC

DEC

LIMIT

TST
BEQ
BNE
B8IT
BNE
RTS

MoV
Su8
JSR
MOV

016146

SAVER1
2%
FRSTER
1%

JSR
DISPLY

MoV

LIMIT
98

108
#SW07 ,aSWR
108
PC

R¥,=-(SP)
#2,(SP)
PC,LINOCT

LINSP

=2(R5) ,=(SP)
PC,LINOCT
,LINSP

=2(R1) ,-(SP)

:PRINT £3¥ED VALUES ?

‘FIRST sanoa?
oT

cPRINT INITIAL MESSAGE INFO
cPRINT REMAINDER OF MESSAGE
.,PUSH R1 ON STACK

;PUSH RS ON STACK
DISPLAY SAVED R1
DISPLAV SAVED RS

:PRINT INITIAL MESSAGE INFO
JPRINT SAVED VALUES
JCLEAR SAVED REGISTER INDICATORS
JCLEAR THE OTHER ONE
;:POP STACK INTO RS
::POP STACK INTO R1
JPRINT REMAINDER OF MESSAGE

JRETURN
:FIRST ERROR ?
sBR JF NOT
;BR IF FIRST ERROR AND PROCESSING °'DCK' ERROR
sPRINT LINE 1 OF ERROR MESSAGE

;DATA COMPARE ERROR

sPRINT LINE 2 OF ERROR MESSAGE

JPRINT LINE 3A OF ERROR MESSAGE

sPRINT LINE & OF ERROR MESSAGE

:G0 TO TYPE HEADER
?EAEER MESSAGE OF PROCESSING 'DCK' ERROR
:DISPLAY HEADER
:SET FRROR FLAG

:RETURN
sTYPEQUT LIMIT REACHED ?

:BR IF IT HAS
sDECREMENT LIMIT COUNTER
:BR IF NOT AT LIMIT

sPRINT ALL DATA COMPARE ERRORS ?
:BR IF YES
¢RETURN
BUFFER ADDRESS
ADJUST ADDRESS
YPE IT

2 SPACES

:PUT GOOD DATA ON THE STACK

JTYPE

:2 SPACES

JBAD DATA

E
]

SEQ 0087

MAIN PROGRAM

721 016446
722 016452

;gz 014456

004737
104414

000207

022544
001165

JSR
DISPLY

RTS

;%g
727 014460
728 014464
729 014466
730 014472
731 014474
732 014500
733 014504
734 014510
735 014514

736 014520
;%g 014524

PC,LINOCT
,S$CRLF

JTYPE IT
sCR=LF

cRETURN

sLAST LINE OF COMPARE ERROR REPORTING
105737
001417
005737
001410
104414
013746
004737
104414
004737

004737
000207

001301

ENDCMP:

001306

052727
001306

022576
001165
023726

1$:

022264

2s:

739

TSTB
BEQ
TST
BEQ
DISPLY
MoV
JSR
DISPLY
JSR

JSR
RTS

FRSTER+1
2$
ERCTR
18
,LINGE
ERCTR,=(SP)
PC,LINCEC
,$CRLF
PC,INCTOT

PC,LINE?7
PC

sANY COMPARE ERRORS FOUND ?
:BR_IF NOT
;SEE _HOW MANY ERRORS
:BR IF ONLY CAN'T MATCH PATTERN
: '"NUMBER OF ERRORS='
:NUMBER OF ERRORS
STYPE IT
:CR-LF
s INCREMENT TOTAL ERROR COUNT

;PRINT LINE 7 OF ERROR MESSAGE
sRETURN

;2?

QOEIINE TO MATCH THE DATA WITH A PATTERN

742
743
744

;
:
:

MOV
#BUFFER,R1
JSR
PC.MATCH
RETURN]

sBUFFER ADDRESS

MATCH:

MOV
MoV
MoV
sSuB
MOV
BEQ

R1,-(SP)
#44 Ré
(SP) ,R1
#2,Ré
STNDAT(R4)
,RS
3s

sSAVE R1 ON THE STACK
cPATTERN TABLE INDEX
sRELOAD R1
sDECREMENT INDEX
;ADDRESS OF PATTERN ADDRESS
?SU£S ALL PATTERNS CHECKED AND NO MATCH

MOV
CMP
BNE
DEC
BNE
ADD
BR
ADD
MoV

#4,R3
(R1)+,(R5)+
1$
R3
2%
#STNDAT R4
4$
#2,2(SP)
(SP)+,R1

¢NUMBER OF LOCATIONS TO CHECK
s COMPARE THE BUFFER AGAINST THE PATTERN
:BR IF NOT EQUAL, TRY NEXT PATTERN
:FINISHED CHECKING?
:BR IF NOT FINISHED
:MAKE PATTERN ADDRESS ABSOLUTE
cEXIT
s INCREMENT RETURN ADDRESS
:RESTORE
R1

;22

747 014526
748 014530
749 014534
750 014536
751 014542
;g% 014546

010146
012704
011601
162704
016405
001411

754 014550
755 014554
756 014556
757 014560
758 014562
759 014564
760 014570
761 014572
762 014600

012703
022125
001366
005303
001374
062704
000403
062766
012601

;gz 014602

000044

1$:

000002
002762
000004

28:

002762
000002

000002

000207

;gg

RTS

sPATTERN ADDRESS IN R4

sCOULDN'T MATCH PATTERN

:RETURN

sUSE ECC TO CORRECT THE DATA ERROR

767 014604
768 014612
769 014616
770 014622
771 014624

016037
016046
066016
005046
016046

777 014646

126027

772 014630
773 014634
774 014636
775 014640
776 014642

3$:
48:

RETU" N2

004737
005716
001413
006316
161637

000240
000236
000020

001322

000022
027366

001322
000024

000005

ECC:

MoV
MOV
ADD
CLR
MOV

$RPBA(RQ) ,ECSEC
SRPW( (RO) ,=(SP)
$WRDL (RO) , (SP)
=(SP)
$SSEC(RO),-(SP)

CMPB

$CODE (RO) ,#5

JSR
TST
8EQ
ASL
sus

PC,LINKDV
(SP)
18
(SP)
(SP) ,ECSEC

;ADDRESS OF LAST LOCN XFERED
;ACT WORDS XFERED (2°'S COMP)
;ADD WORDS REQUESTED
sCLEAR NEXT STACK LOCN
;SECTOR SIZE
:DIVIDE WORDS XFERED BY SECTOR SIZE
:PARTIAL SECTOR XFERED
?
:BR IF NOT
s CONVERT INTO NUMBER OF BYTES
:SUBTRACT SECTOR RESIDUE
:WAS OP READ HEAD € DATA

E{a)

J_ 7
CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-13

CZRJDEQO R P04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-14

SEQ 0088

MAIN PROG RAM

778 014654

779 014656
780 014664

001007

781 014666
782 014674
783 014700
784 014706
785 014712
786 014720
787 014726
788 014734
789 014740
790 014744
791 014750
792 014754
793 014760
794 014762
795 014766
796 014772
797 014776
798 015004
799 015012

800
801
802
803
804
805

000010

001322

001000
000004
000300
001320
001320
177760
000017
001330
001330
001330
053005
001330

001322

030302
027702
053041
001322
000240

015014
015020
015026
015032
015036
015040

015332

000302
001326
001320

WNN-‘—DOON\Igo\hV\&bb S OONNIONOSNO
NON) b = &S SS
o~
OO
O R ONO SN

b
b
d
b
b od
b o
D
e
b
b
b o
b
d
b
D
d
d
o
b

wviwvaiuauva v
PORDPONINLNIN
b b b b nd wnd e b b wed e b e nd b

j=lelelelelelelelelelelelelclalelelclelelolalele)

WNLININONON PONINIA)
= ad o ced od cd e ed b
WO NN
NN =2 OO 00 O
NN =

001330
001320
001330

001336
001324
164230
001324
164216

001330
001330

001324
38:

001334

4$:

164222

001342

001326
164134

164140

104414

00133
022544
053363
001334
022544
053363

JSR
JSR
DISPLY
ADD
CMP

PC.$582D
PC.$SUPRS
,LIN10B
ECSEC,ECWRD
$RPBA(R0O) ,ECWRD

JMP

ECC2

CLR
TST
8EQ
DEC
ASL
ROL

ECMSK1
ECBIT
i$
ECBIT
ECMSKO
ECMSK1

MOV

SECWRD,ECBADO

B8R

CLR
MOV
BIC
BIC

8IS

001336
001336
001336

164160
001326

053205

#1000, ECSEC
*SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES)
86, SP
SADJUST THE STACK POINTER
$RPEC1(RO) ,ECBIT
;ECC POSITION COUNT
ECBIT
:ADJUST THE POSITION COUNT
ECBIT.ECWRD
:LOAD THE WORD COUNT LOCATION
#5C17,ECBIT
*SAVE THE BIT OFFSET COUNT
#17 ,ECWRD
:CLEAR THE BIT OFFSET
ECWRD
:CHANGE TO BYTE COUNT
ECWRD
:CHANGE TO BYTE COUNT
ECWRD
*CHANGE TO BYTE COUNT
,LIN10A
: 'ERROR BURST BEGINS AT °
ECWRD,~(SP)
$PUT THE WORD COUNT ON THE STACK

MOV

001336

164146

SUB
ADD
MOV
DEC
MOV
BIC
BIC
ASR
ASR
ASR
DISPLY
MCV

B8R

BHI

001326

001330
000002
000240

2
#8. ,ECSEC

ASR

001320
001324
001326
1642646

o X Jo Jo To Yo Yo Yo To To Yo To To Jo To.To Yo To To ]

001320

18:
28:

BNE
ADD

S$:

TS1
BEQ
MOV
ADD
CMP
BHI
CLR
BR
MOV
MOV

BIC

ECC1:

BIC
8IS

DISPLY

MOV
JSR
DISPLY
MOV
JSR
DISPLY

:BR IF NOT
:ADD HEADER SIZE (IN BYTES) BACK IN

:GO ADJUST THE STACK POINTER

(SP)

:CONVERT TO WORD COUNT FOR MESSAGE

.+6

:BR IF IN DATA READ

:CONVERT THE WORD COUNT
SPRINT IT
:* IN DATA FIELD OF ERROR SECTOR®
:FIND THE BEGINNING OF THE ERROR BURST
~;SEE IF BURST WAS IN DATA READ

“NOT IN DATA READ - REPORT IT

SRPEC2(RO) ,ECMSKD

ECWRD1
ECMSKO,=(SP)
@ECWRD , (SP)
ECMSKO.SECWRD

;GET THE ERROR MASK

;CLEAR THE UPPER MASK WORD
:BIT OFFSET EQUAL ZERO
SBRIF IT IS
:DECREMENT YHE BIT OFFSET COUNT
*SHIFT THE ERROR MASK
;SHIFT THE LOWER 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
:CLEAR ERRONEOUS ONE BITS FROM BAD WORD

(SP)+,3ECWRD

:SET DROPPED BITS

JECWRDY,(SP)

:CLEAR ERRONEOUS ONE BITS FROM UPPER MASK

.LIN1OM

*HEADER

Ecmsk
:DOES BURST GO INTO NEXT WORD ?
ECCl
:BR IF BURST ONLY IN ONE WORD
ECWRD ,ECWRD1
:DUPLICATE ADDRESS
#2 ,ECWRD1
*INCREMENT ERROR ADDRESS
$RPBA
(RO) ,ECWRD1
;IS NEXT WORD IN THE BUFFER
58
:BRIF IT IS
ECWRD1
:CLEAR 2ND WORD ADDRESS
ECCY
*PRINT WORD CORRECTED
@ECWRD1,ECBAD1
:SAVE THE SECOND BAD WORD
ECMSK1,~(SP)
:PUT THE UPPER MASK ON THE STACK
ECMSK1,3ECWRD1
(SP)+ QECWRD1

ECWRD, = (SP)
PC,LINOCT
,LINSP
ECBADO,-(SP)
PC,LINOCT
,LINSP

:CLEAR ERRONEOUS ONE BITS FROM DATA WORD
:SET DROPPED BITS
:PUT ECWRD ON THE STACK
STYPE ECWRD
:SPACES
:PUT ECBADO ON THE STACK
:TYPE ECBADO
+SPACES

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

SEQ 0089

MAIN PROGRAM

015236
015242
015246
834 015252
835 015256
836 015260
841 015264
015270
015274
015300
015304
015310
015314
015320
015324
842 015330
843 015332
844 015336
gzg 015342

017746
004737
104414
005737
001427
104414
013746
004737
104414
013746
004737
104414
017746
004737
104414
000402
104414
104414
000207

164066
022544
053363
001336
001165
001336
022544
053363
001342
022544
053363
164016

022544
053363
053101
001165

ECC2:
ECCX:

gzg
032777
001460
016001
016046
066016
005046
016046

857 015402

005716

861 015412
862 015414

000410
162701 001000

858 015404
859 015406
860 015410

000010

000022

004737 027366

PRTBAD: BIT
BEQ
MOV
MOV
ADD
CLR
MGV

;PUT @ECWRD ON THE STACK
*TYPE SECWRD
*SPACES
*PRINT THE NEXT WORD ?
:BR IF NOT
*CR=-LF
:PUT ECWRD1 ON THE STACK
*TYPE ECWRD1
*SPACES
:PUT ECBAD1 ON THE STACK
STYPE ECBAD1
*SPACES
:PUT SECWRD1 ON THE STACK
*TYPE @ECWRD1
*SPACES
SEXIT
JERROR BURST WAS NOT TRANSFERED TO MEMORY
*CR-LF
*RETURN

000024

867 015440
868 015444
869 015450
870 015452
871 015456
872 015462
873 015464
874 015470
875 015472
876 015476
877 015500
878 015502

104414
012702
010146
004737
020160
001412
104414
012146
004737
005302
001366
104414

053270
000007

880 015510
ggg 015514

104414
000207

001165

000010

866 015434 062706 000004

000756

022544
000240

#SW3,aSWR
13
SRPBA(RO)
,R1
$WRDL
(RO) .=(SP)
$SRPWC(RO)
. (SP)
~(SP)
$SSEC(RO)
. ~(SP)

:PRINT THE BAD SECTOR ?
‘BR IF NOT
:PUT THE END ADDRESS INTO R1
:FIND THE BEGINNING OF THE SECTOR
:SUBTRACT THE WORDS NOT TRANSFERED
*MAKE THE UPPER DIVIDEND 0
“;DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE

(SP)

*REMANDER = 0 ?

BR
su8

P13
#1000.R1

*FINISH THE SIZING
*SUBTRACT FULL SECTOR SIZE FROM END ADDR

ADD

#6,SP

JSR
ST

001403
006316
161601

126027
001002
162701

883

163566

000240
000020
000236

863 015420
864 015426
865 015430

879 015506

@ECWRD,=(SP)
PC,LINOCT
,LINSP
ECWRD1
ECCX
,$CRLF
ECWRD1,=(SP)
PC.LINOCT
,LINSP
ECBAD1,-(SP)
PC,LINOCT
,LINSP
SECWRD1,~(SP)
PC,LINOCT
,LINSP
Ecex
,LIN10C
.SCRLF
PC

;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR

849 015344
850 015352
851 015354
852 015360
853 015364
854 015370
855 015372

856 015376

MOV
JSR
DISPLY
ST
BEQ
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
BR
DISPLY
DISPLY
RTS

BEQ
ASL
SUB
000005

18:

28:
38:
4$:

053363
022544
001165
58:
68:

CMPB
BNE
SUB

PC.,LINKDV
18
(SP)
(SP) ,R1

SCODE(RO).#5
28
#10,R1

;DIVIDE

*BR IF IT IS - COMPLETE SECTOR TRANSFERED
:CONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT
*SUBTRACT IT FROM THE END ADDRESS
:WAS OPERATION XEAD HEADER & DATA ?
:BR IF NOT
*SUBTRACK HZADER SIZE FROM ADDR

SRESTORE
THE STACK POINTER

DISPLY
MOV
MOV
JSR
CMP
BEQ
DISPLY
MOV
JSR
DEC
BNE
DISPLY

,LIN11H
#7.R2
R1.-(SP)
PC.LINOCT
R1.SRPBA(RO)
58
,LINSP
(R1)+,=(SP)
PC.LINOCT
R?
4$
,S$CRLF

:PRINT THE HEADER
*R2 CONTAINS THE WORDS/LINE COUNT
:PUT THE ADDRESS ON THE STACK
STYPE THE ADDRESS
-PRINTED ALL THE SECTOR ?
:BR IF ALL PRINTED
*SPACES
:PUT THE DATA ON THE STACK
*TYPE THE DATA
*DECREMENT THE HORIZONTAL COUNT
:BR IF NOT AT THE END OF THE LINE
*CR-LF

DISPLY
RTS

SCRLF
pC

:PRINT WHAT REMAINS IN THE BUFFER
*RETURN

*RESTORE THE WORDS/LINE COUNT

;ROUTINE TO DO AN RTC - DRIVE SELECTED IN RO

n 7
CZRJDEQ RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 14-16

SEQ 0090

MAIN PROGRAM

884
885
886

sCALL:
:
:

ggg

889 015516
890 015522
891 015530
892 015534
893 015536
ggg 015540

111037
112737
004037
046150
000774
000207

046150
000117
035340

046152

MOV
JSR

RETURN

RTNCTR: MOVB
MOV8
1%:
JSR
GENDPB
BR
RTS

#DPB RO
PC,RTNCTR

;DPB ADDRLSS

(RO) ,GENDPB
:MOVE THE DRIVE # TO THE GENERAL DPB
#RTC,GENDPB+SCOMND
;COMMAND CODE
RO.RPO4
;DRIVER ENTRANCE
:DPB ADDRESS FOR ORDER
1$
:DRIVER DIDN'T ACCEPT ORDER
PC
;RETURN

ggg

;?REEINE TO DO A RECALIBRATE - DRIVE SELECTED IN RO

898
899
900

:
.
N

MOV
JSR
RETURN

#DPB RO
PCRECALY

:DPB ADDRESS

#DP8,R0O

;DPB ADDRESS

901

904

MoV

RE TURN

902
903

:0R
H

905
906

.
.

ggg
909 015542
910 015546
911 015554
912 015560
913 015562
914 015564
915 015570
8}9 015572

111037
112737
004037
046150
000774
005737
001775
000207

046150
000107
035340

046152

046166

MOov8
JSR

RECALT: MOVB
RECALO: movB
1%:
JSR
GENDPB
BR
2%:
ST
BEQ
RTS

#DR]VE ,GENDPB
PC,RECALTO

;DRIVE ADDRESS

(RO) ,GENDPB
;MOVE THE DRIVE # TO THE GENERAL DPB
#RECAL ,GENDPB+SCOMND
RELCALIBRATE COMMAND
RO,RPO4
;DRIVER ENTRANCE
;DPB ADDRESS FOR ORDER
13
sDRIVER DIDN'T ACCEPT THE ORDER
GENDPB+STATUS
:SEE IF FINISHED

ps 3
PC

:BR IF NOT FINISHED
:RETURN

g;g

:g:{ffl THE DRIVE IN RO (OFFSET CODE PRELOADED INTO °‘RPOF')

920
921
922

.
:
M

Mmovs
MoV
JSR

#OFFSET,GENDPB+$SFMT
:OFFSET CODE
#DP8 RO
:DPB ADDRESS
PC,OFFST

OFFST:

MOVB
mMovs
JSR
GENDPB
B8R
RTS

(R0O) ,GENDPB
:DRIVE # TO GENERAL DPB
#OFFSET ,GENDPB+SCOMND ; COMMAND
RO.RPO4
;DRIVER ENTRANCE
;DPB ADDRESS FOR ORDER
18
:DRIVER DIDN'T ACCEPT ORDER
PC

ggz

925 015574
926 015600
927 015606
928 015612
929 015614
gg? 015616

932
933
934
935
936
937
9;8
939
940 015620

111037
112737
004037
046150
000774
000207

046150
000115
035340

046152

1$:

RETURN

SUTILITY READ HEADER ROUTINE
cCALL:
;
MOV
#DP8 RO
M
MOV
#SECTOR,=-(SP)
;
MOV
#TRACK ,-(SP)
:
JSR
PC,READDR
;
RETURN
116637

000002

046161

READHD: MOVB

;DPB ADDRESS
;SECTOR ADDRESS
;TRACK ADDRESS

2(SP) ,GENDPB+STRK ;TRACK ADDRESS

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 14-17

SEQ 0091

MAIN PROGRAM

941 015626
942 015634
943 015640
944 015646
945 015654
946 015660
947 015662
948 015664
949 015670
950 015672
951 015676

952 015700
953

954
955
956
957
958
959
960
961
962
963 015702
964 015700
965 015712
966 015714
967 015716
968 015722
969 015726
970 015730
971 015736
972 015740
973 015744
974 015746
975 015752
976 015754
977 015756
978 015764
979 015766
980 015772
981 016000
982 016002
983 016004
984 016010
985 016014
986 016016
987 016020
988 016024
989
990
991
992
993
994
995
996 016030
997 016036

000004
046150
000272
000173
035340

046160

MOVB

4 (SP) ,GENDPB+$SEC ;SECTOR ADDRESS

046162
066152

MOV

$RPCC(RO) ,GENDPB*$CYL ;CYLINDER ADDRESS

046166

Mov8e

18:
28:

000002

:DRIVE
NUMBER

Mova

#RDHD , GENDPB +$COMND

GENDPS
BR

:DPB ADDRESS FOR ORDER
*DRIVER DIDN'T ACCEPT COMMAND

(SP)+
PC

:RETURN

JSR

ST
BEQ
MOV
TST
RTS

000207

(RO) , GENDPB

RO,RPO4

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

; COMMAND

:DRIVER ENTRANCE

:FINISHED?
*BR IF NOT
ADJUST STACK FOR RETURN

?EIEY THE PRESENT OPERATION
MOV
#COUNT ,RETRY
JSR
PC.SRETRY
RETURN1

RETURNZ2

004737
005760
001775
100405
105237

062716
000425
032760
001430
005737
001004

016672
000016

SRETRY:
18:

800502
000200

000016

2s:

001250

000250

001253
001252

001253

3s
48:

5%:
6$:

78:

000137

sRETRY UNSUCESSFUL

sSUCESSFUL RETRY
cNOTE: IF A DIFFERENT ERROR OCCURS DURING
;RETRY, THE ROUTINE EXITS TO °'ERPRC1'

PC,GODRI1V

cRE-START ORDER

8EQ
8MI
INCS
ADD

18
2%
RETRY+1
gg.(SP)

:BR IF NOT
¢BR IF ERROR
s INCREMENT RETRY COUNT
« INCREMENT RETURN

8IT
BEQ

#8IT7,$TATUS(RO)
;DID ORDER TERMINATE NORMALLY ?
78
:BR IF

JSR
TST

$TATUS (RO)

sORDER FINISHED?

GO TO EXIT

TST

MASK

;1S ERROR HASK 0°?

TST
BAc

$RPER1(RO)
63

:MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR
«BR IF NOT

BNE

000250

sRETRY COUNT

:BR IF NOT

BR
BIT
8EQ

43
sCONTINUE RETRY
MASK, SRPER1(RO) :SAME ERROR?
6%
:BR _IF NOT

BNE
RTS
JSR
JSR

PC
PC,LINES
PC,LINE?

DISPLY
JMP

,LINBM
ERPRC1

INCB
CMPB

TST
RTS

RETRY+1
RETRY ,RETRY+1

SRETRY

(SP)+
PC

INCREHENT RETRY COUNT
:DONE
?

:BR_IF NOT DONE
sRETURN
:REPORT DIFFERENT ERROR
:PRINT LINE 7

;ADJUST STACK POINTER FOR DIRECT RETURN
sRETURN

¢ '"DIFFERENT ERROR DURING RETRY'
:REPORT THE ERROR

:ggElINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS

:
;
032760
001454

000300

000016

MOV

JSR
RETURN

STATIS: BIT
BEQ

#DPB,RO

PC,STATIS

:DPB ADDRESS

#B81T07!BIT06,$TATUS(RO) :CHECK FOR DATA TERMINATION
3s
:BR IF NOT DATA TERMINATION

SEQ 0092

001434
006237
063760
005560
[« IV Y] B NNNON
=2 O o
SO MRS ONONO S n
~
n

oD —d

D ad od

o
(=]
&~
o

eleclolelelelalelelelalelelelelalelelel) o

016172
016172

166037

L= N e Yo Yo Yo Yo Yo Yo Yo Yo Yo Yo Yo Yo Yo i
-—
b
el b — ed e d d b e e dh -—

NONRONONNINNDINININ
b
b bt
2 = D

016037

132760
001021

005737
001411
126027
101005

000207

000046

000024

000001

000020
000050
016172
000054
000012

000046

000001
000044

000042

000270

CMP

BEQ

:BR IF NO DATA TRANSFER

STRANS
+2 (RO)
:ADD ANY CARRY
gngOl.SCODE(RO)
:SEE IF ORDER READ OR WRITE

:BRANCH IF ORDER WRITE

?gTOCK

:AUTO WRITE CHECKS BEING PERFORMED

?gODE(RO),ll

“BR IF NOT
SPRESENT OPERATION AN AUTOMATIC WRITE CHECK ?
‘BR IF NOT

;ADD WORDS WRITTEN
SWRDL
(RO) , STRANS (RO)
$TRANS+2(RO)
;ADD A’ CARRY

FACTOR,

SREAD (R0)

$READ+2 (RO)

;UPDATE THE READ WORD COUNT
-ADD ANY CARRY

$CYL(RO) ,$RPCA(RD)

:DID MID-TRANSFER SEEK OCCUR

#1,8P0SIT(RO)

3s:

ADD
AD(
RTS

;?OSIYOZ(RO)

:BR IF NOT
s INCREMENT SEEK COUNT
;ADD CARRY TO UPPER WORD

FACTOR:

.WORD

;USED FOR WORDS TRANSFERED

sROUTINE TO GET A BUFFER
MOV

CLR
JSR
RETURN

GETBUF: MOV

MOV
MOV
MOV

001616

RRRRRRR & B WNININNG
v
e

FACTOR
-CONVERT TO A WORD COUNT
FACTOR, $TRANS (RO 5
:UPDATE WORD COUNT

AD(C
ADD
ADC

sCALL:

e
b o
o
e
b e
e o
b ad md e
b
D —d
D ek md

OOO0OO0O0O

—b ed

ASR
ADD
AD(

CMPB
BHI
ADD

000052

000000

$SRPBA
(RO) ,FACTOR
:STORE THE FINAL BUFFER ADDRESS
SgUF(RO).FACTOR ;SUBTRACT THE INITIAL ADORESS

BITB
BNE
TST
BEQ

001424

000024

MoV

sus
8EQ

D e

b e

b d

D o

P e e

) e

b —d

WN—‘OOQNO\A‘“WN—AOOOVOMJ\WN&OO@N§ S25328% b

MAIN PROGRAM

001620
000020

000002

18:

000004
000010
000020

000002

3s:

000020
000020
000020

001616

062703

000004

4%:

#DPB,RO
-(SP)

PC,GETBUF

:DPB ADDRESS
:CLEAR THE STACK
;BUFFER ADDRESS WILL BE ON THE STACK

sSTACK WILL BE ZERO IF NO BUFFER AVAILABLE
R1,-(SP)
R2.=(SP)
R3,~(SP)

BUFTBL ,R2
6$
,R1
#BUFTBL+2
(RO) ,2(R1)
$WRDL

;SAVE R1
:SAVE R2

;SAVE R3

JNUMBER OF SEPARATE BUFFERS
JBR IF NONE AVAILABLE
JFIRST ADDRESS OF ALLOCATION TABLE
sSEE IF THERE IS A BLOCK LARGE ENOUGH
:BRANCH IF IT IS
:DECREMENT TABLE COUNT
;BR ]F THROUGH TABLE
;s INCREMENT TABLE POINTER
;CONTINUE LOOKING
JBUFFER ADDRESS TO STACK
;ADJUST BUFFER SIZE
:BR IF DIFFERENCE IS ZERO
:CONVERT # WORDS TO BYTES
;MAKE NEW STARTING ADDRESS
:RETURN # BYTES TO WORDS
JRETURN
:DECREMENT ENTRIES COUNT
:BR IF ALLOCATION TABLE EMPTY
:DECREMENT TABLE COUNT
:BR IF ITEM WERE LAST ENTRY
JMOVE TABLE POINTER
:POINT TO NEXT ENTRY

8 8
CZRIDEO RPO4/5/6 MLT~DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 14-18

SEQ 0093

5%:

)

b o

olelelalelel)

b wmd e

6$:

:RRUTINE
CALL
[

[
.

000020
000006

NOORNOOSTNONOSONOHNONMNO &

OO
RO
oONONONONONONON

000006
000020
001616

(=]

b
d
d =
b
b
D
b
b
D
b
b
D
D
ah
o
o
h
b
b md md

000004

MoV
MOV
MoV

2%:

000006
000020
001616
000006
00002C

000002

001616
001620
000002

HNOONO

062705

000004

4s:

5$:

6$:

000004

000002
001616

MOV

JSR
RETURN

MOV
MOV
INC

000002

(R3)+,(R1)+
(R3)+,(R1)+
R2

;DECREMENT TABLE COUNT

;RESTORE R3
;RESTORE R2
sRESTORE R1
sRETURN

INC
BR

MoV
MOV

INC
BR
MOV
ADD
MOV
MoV
MOV
MoV
ASL

#DP8,RO
PC,RELBUF

sCONTINUE IF NOT AT END OF

TABLE

:DPB ADDRESS

:SAVE R1
;BEGINNING OF TABLE
sENTRY COUNT
:BR IF EMPTY TABLE
s TRIAL ADDRESS
R
sCHANGE TO BYTE COUNT
$BUF (RQ) ,R3
cADDRESS OF HIGHER ADJACENT BLOCK
(R1) ,R3
¢UPPER ADJACENT BLOCK
43
sBR IF YES
#4 ,R1
s INCREMENT POINTER
R2
sDECREMENT ENTRY COUNT
18
s CONTINUE SEARCHING
$BUF (RO) , (R 1)
sPUT THE BUFFER BLOCK INTO THE TABLE
$WRDL (RO) ,2 (R1)
:BLOCK SIZE
BUF TBL
s INCREMENT ENTRY COUNT
R2
s INCREMENT R2 FOR USE LATER
5$
sSEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE
R1,-(SP)

,R1
#BUFTBL+2
BUFTBL ,R2
2%
SgRDL(RO).RS

$BUF (RO), (R1)+

:BLOCK ADDRESS TO TABLE

BUF TBL

s INCREMENT ENTRY COUNT
SEXIT
sRELEASED BUFFER IS LOWER ADJACENT

$WRDL (ROJ, (R1) ¢+ sSIZE TO TABLE

108
$BUF (RO), (R1)

$WRDL
(RO ,2(R1)

R2,=(SP)
BUF TBL ,R2
#BUFTBL+2,RS
g£R5).R4
(R5) ,Ré
g‘.(R1)
#4 RS

000002

;MOVE ITEMS

T0 PUT BUFFER BACK IN TABLE

BNE

e
b
b
b
b

KAREN2BELLREREACSETRIRAR
=200V~

d b
e

(elelelalelclelelelelelelelalealealalalelelelelelelelelele)

b b ek S O OO OQOOOOQOOOOO0OOOOOOOOOO

0
0
0 80 016362

BNE

: MOV
RELBUF
MoV
MoV
BEQ
MOV
ASL
ADD
1%:
cMP
BEQ
ADD
DEC

001620
001616

0
0
0
075 016344
876 016350

-—-—OO0O

MoV
MoV
DEC

RTS

—

0
0
0
0

WA
= OO 00 ~NO

MAIN PROGRAM

(SP)+,R2

2(R1) ,2(R5)

:IstEESNTED SIZE
s
SAVE

SENTRY COUNT
;BEGINNING OF TABLE
+BLOCK SIZE (IN WORDS)
s CHANGE TO BYTE COUNT
sADD BLOCK BEGINNING ADDRESS
sR1 STILL POINTS TO INSERTED ENTRY
sLOWER ADJACENT IN TABLE
s INCREMENT POINTER
sDECREMENT ENTRY COUNT
- CONTINUE LOOKING
¢RESTORE STACK POINTER
<END

<RESTORE R2
s INCREMENT LOWER BLOCK LENGTH
sDECREMENT ENTRY COUNT
sGET READY TO COMPRESS
s INCREMENT TO NEXT ENTRY

c 8
CZRJDEQ RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 14-19

D 8
CZRJDEQ RP0O4/5/6 MLT-DR LGC MACRO Vv04.0C 5-NOV-81 09:16:17 PAGE 14=20

SEQ 0094

9%:

N rgrd

22 OO 00 NO N S

0000

1252
1252
0530
137
012601
000207

R2
9s

10$:

s COMPRESS TABLE

¢MOVE SIZE FIELD DOWN

sDECREMENT ENTRY COUNT
sBR IF NOT FINISHED

sRESTORE R1
sRETURN

:EALL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER)
LL:

MOV

#DP8 RO

#BUFADR,$BUF
(RO)

:DPB ADDRESS

-LOAD BUFFER ADDRESS INTO THE DPB

ggA;}Egfif‘PATTC(RO’

;PATTERN CODE

RETURN
b w—h

(=lelelalelelelelelelelelelalelelelelalelelelalelolale
o)

000004

000006
000020
000001

NN =2 O 000 NOMN

000024

FILBUF:

18:

000024

N
&~

b
e
i
b amd
b

3s:

) cd —d

2s:

b ard

b e

cmb

000020
002762
48:

00007

;SAVE THE REGISTERS
#81T02,8CODECRO) " ;SEE IF READ ORDER
4
:BR IF READ
$BUF (RO) ,R1
*BUFFER ADDRESS

SWRDL (ROJ,R2

5g1roo.scooe<ao>

:POSITIVE WORD COUNT

8lS

$CYL(RO), (R1)
MBIT12,(R1)+

:se; IF WRITE HEADER TYPE ORDER
;B8R IF NOT
sCYLINDER ADDRESS
:SET FMT22 BIT

CLR
CLR
sSuB
BLE
CLR
MOvV8

(R1)+
(R1)+
#4,R2
4
R4
SPATTC(RO),R6¢

*CLEAR FIRST KEY WORD
*CLEAR THE SECOND
*ADJUST THE WORD COUNT
:BR IF END OF PATTERN
:CLEAR Ré4
:RELATIVE PATTERN ADDRESS

MOV

000004

000030
002762
000020

SAVREG
8178
BNE
MOV
Mov
8I18
8EQ
MoV

b o

000012
010000
000010

$SEC(RO), (R1)+

:MOVE SECTOR & TRACK

STNDAT(R4)
,RS
#20,R3

:PATTERN ADDRESS
*PATTERN COUNT

MoV
MOV

R2
4
R3
33
#20,R3
gINDAT(Rk).RS

*DECREMENT THE WORD COUNT
:BR IF DONE (WORD COUNT = 0)
*DECREMENT THE PATTERN COUNT
*BR IF MORE PATTERN

RESREG
RTS

¢RETURN

MoV
MoV
MoV

DEC
BEQ
DEC
BNE
BR

(RS5+, (R1)+

:MOVE THE PATTERN INTO THE BUFFEK

SRESTORE PATTERN COUNT
sRESTORE THE ADDRESS
sCONTINUE DISTRIBUTING THE PATTERN
sRESTORE THE REGISTERS

sSTART THE ORDER FOR THE DPB IN RO

sCALL:

010046

elelelelele]

NO VS WA = O D00~
NO WS WA= OOV
W= OOV
Oo~NONY

b d
b

d
d

d b b ok vk D b
b b e b b b i

D d eid e
b b
e d o o

b e
d e

b
b

b e
b o

b b e
D md b

b b b e b e
b e
b e b b e e
d
D e cond b wed d e
D e b o e b cd e

D e e
b e

b d

d e
s

b d

D nd o

D d d e
b d b

b e
b
b ad

MAIN PROGRAM

012600

016704
035340

MOV
JSR
RETUARN

GODRIV: MO/
MoV
1$:
JSR
28:
. WORD
HALT
MoV

#DP8,RO
PC,GODRIV

:DPB ADDRESS

RO,=(SP)
RO,2$
RO,RPO%
0

sSAVE RO
s CURRENT DPB ADDRESS
sCALL THE DRIVE HANDLER
sDRIVE BLOCK ADDRESS GOES HERE

(SP)+,RO

sRESTORE RO

sDRIVER REJECTED REQUEST

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

SEQ 0095

MAIN PROGRAM

116> 016712
1170 016720
1171 016726
1172 016732
1173 016734
1174 016742

}};g 016746

062760
005560
026060
001405
062760
005560

000207

000001
000040
000034

000036

000001
000044

000042

000012

38:

ADD
ADC
CMP
BEQ
ADD
ADC

RTS

#1,80PERC(RO)
:INCREMENT THE OPERATION COUNT
SOPERC+2(RO)
SPREVA+2(R0),$CYL(RO)
:DID ORDER REQUIRE A CYLINDER CHANGE
33
;BR IF NOT
#1,8POSIT(RO)
:INCREMENT SEEK COUNT
$POSIT+2(RO)
:ADD ANY CARRY

}};g

;GETERATE PARAMETERS FOR THE OPERATION

1179
1180

:
;

}}g}

;

MOV
JSR

#DPB,R0
PC.SELPAR

:DPB ADDRESS

PC,$RAND
#SW0,aSWR
2s
#10,RS
PC,GETREM
RS.RATIO
2%
PC,RANWRT

;CYCLE THE RANDOM NUMBER GENERATOR
SSEE IF SWO SET
:BR IF SET - READ ONLY
:READ/WRITE SELECTION DIVISOR
<GET SELECTION VALUE
*DETERMINE IF READ OR WRITE
*BR IF READ
*SELECT A WRITE ORDER

$LONUM RS

*SELECT READ OPERATION CODE

RETURN

1183 016750
1184 016754
1185 016762
1186 016764
1187 016770
1188 016774
1189 017000
1190 017002

004737
032777
001012
012705
004737
020537
103003
004737

033534
000001
‘
000010
027340
001422
017472

SELPAR: JSR
BIT
BNE
18:
MOV
JSR
cMP
BHIS
JSR

1192 017010

013705

033634

2s:

062705

000004

1191 017006
1193 017014

1194 017020

}}32 0170264

000406
042705

110560

177776

000074

}}gg
016005
026005
001417
166005
100002
062705
005205
004737
066005
020527
101402

}%}} 017100

140560

162705

000116
000120
000120
000026
027340
000120

000025

000026

000076

}5}2

MOV

BIC

#4C1,RS

MOVB

RS.SNCODE(RO)

ADD

#6.R

*CONTINUE WITH THE SELECTION
SMASK OUT ALL BUT BIT 0

*TABLE OFFSET FOR READ CODE

:ORDER SELECTION CODE TO CONTROL BLOCK

RANSEC: MOV
CMP
BEQ
SUB
BPL
ADD
18:
INC
JSR
ADD
CMP
BLOS

MAXSEC(RO),RS
MINSEC(RO).RS
2$
MINSEC(RO)
,RS
18
#22. .RS
PC.GETREM
MINSEC(RO)
RS
RS, #21.
2%

;GET MAXIMUM SECTOR ADDRESS
:°*MINSEC' AND "MAXSEC' THE SAME ?
‘BR IF THEY ARE
:SUBTRACT MINIMUM SECTOR ADDRESS
:BR IF MAX LARGER THAN MIN
*CORRECT THE NUMBER
*INCREMENT DIFFERENCE TO USE AS DIVISOR
:GET THE RANDOM AUGMENT
:NEW ADDRESS
;1S VALUE TOO LARGE ?
*BR IF NOT

2s:

RS,SNSEC(RO)

:STORE SECTOR ADDRESS IN DPB

su8

MOVB

#22. RS

+CORRECT
VAL UE

;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES °'MINTRK® & °'MAXTRK'

1215 017104
1216 017110
1217 017114
1218 017116
1219 017122
1220 017124
1221 017130
1222 017132
1223 017136

016005
026005
001417
166005
100002
062705
005205
004737
066005

1225 017146

101402

1224 017142

38:

B8R

;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES °MINSEC® & °'MAXSEC'

1199 017030
1200 017034
1201 017040
1202 017042
1203 017046
1204 017050
1205 017054
1206 017056
1207 017062
1208 017066
1209 017072

1210 017074

162156

020527

000112
000114

000114
000023
027340
000114

000022

RANTRK: MOV
CMP
BEQ
SUB
BPL
ADD
18:
INC
JSR
ADD

CMP

BLOS

MAXTRK(RO)
,RS
MINTRK(RO)
.RS
2
MINTRK(RO)
,RS
13
#19. RS
RS
PC,GETREM
MINTRK(RO)
,RS

:GET MAXIMUM TRACK ADDRESS
:*MINTRK® AND °MAXTRK® THE SAME ?
*BR IF THEY ARE
:SUBTRACT MINIMUM TRACK ADDRESS
:BR IF MAX LARGER THAN MIN
<CORRECT THE NUMBER
- INCREMENT DIFFERENCE TO USE AS DIVISOR
*GET THE RANDOM AUGMENT
;NEw TRACK ADDRESS

‘BR IF NOT

RS,#18.

*1S VALUE TOO LARGE ?

F_
8
CZRJDEQ RPJ4/5/6 MLT-DR LGC MACRO V04.00 5~NOV-81 09:16:17 PAGE 14-22

SEQ 0096

MAIN PROGRAM
WA= OO0~

26 017150
0171564

000023
000077

16
M

000633

001350
000262

001457
000106
000110

001350

000002

WNI—=2OVN

MOV

BIT
BEQ

RANCYL:

MoV
MOV

000110

001350

1$:

027340
000110
001350

000456

#19. , RS
R5,SNTRK(R0)

sCORRECT VALUE

:STORE TRACK ADDRESS IN DPB

INC

#6411,

CYLINT

;ASSUME AN RP04/5

#81T01,8RPDT(RO) " ;SEE IF RPO6
RANCYL
:BR IF NOT

#81S.,CYLIMT
MAXCYL(RO)
RS
MINCYLC(RO),RS
2s
MINCYL(RO),RS
18
CYLIMT,RS
RS

CHANGE CYLINDER LIMIT
;GET MAXIMUM CYLINDER ADDRESS
;'MINCYL® AND °MAXCYL® THE SAME ?

MINCYL(RO)
,RS
CYLIMT,RS
2s
CYLIMT,RS
RS,SNCYL(RO)
#3.SNCODE(RO)

:NEW CYLINDER ADDRESS
*1S VALUE TOO LARGE ?
:BR IF NOT
<CORRECT VALUE
:STORE CYLINDER ADDRESS IN DPB
:WRITE HEADER & DATA ?

PC.,GETREM

‘BR IF THEY ARE

:SUBTRACT MINIMUM CYLINDER ADDRESS
:BR IF MAX LARGER THAN MIN
*CORRECT THE NUMBER
- INCREMENT DIFFERENCE TO USE AS DIVISOR

*GET THE RANDOM AUGMENT

001350
000100
000003

000074

000404
001404

000102
000404

#260. ,SNWRDL (RO)
;CHANGE WORD LENGTH TO 260 FOR WRTHD ORDER
MAXDL ,#260.
cCAN A FULL SECTOR BE WRITTEN ?

001404

000102

MAXDL ,SNWRDL (RO) ; CHANGE TRANSFER SIZE

2s:

MOV

RANS 12

:BR _IF NOT

RANPAT

:BR

IT CAN

RANPAT

sCONTINUE WITH THE SELECTION

sGENERATE A RANDOM BUFFER LENGTH BETWEEN 4 © THE VALUE IN "MAXDL'
013705
005737

001404
001420

RANSIZ: MOV
TST

BNE
INC
JSR

=lolelelelelelelelelelelelelelelelelalealelelele
e

033534

TST

027340

1$:

MOV

000400
000001
N =N
NONN

O
o
o

1,8
P

OO NN

OO0
N
= O

—

SRS

NNNQJNNNN &on

WNONOA)
= —
oo NN

D
d
b e
b ad e

D ed e

000102

NN NN

b ek

000000 N NN NNNNNNNOR
N=O VNV
UWN=OVONOWNESWN=O

Sus

[[0]7:]

;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES °MINCYL' & 'MAXCYL'

NN =O VBNV
VRNV

2$:

000404

005726

000004
027366

000074

MAXDL ,RS

:GET BUFFER SIZE

18
RS

;BR IF NOT
s INCREMENT THE MAXIMUM SIZE

RS
18

;1S THE REMAINDER 0 ?
sNOT 0, CONTINUE

RS ,SNWRDL (RO)

JWORD LENGTH TO CONTROL BLOCK

-(SP)
#256. ,-(SP)
#1,8NCODE (RO)

JMAKE UPPER DIVIDEND ZERO
JSECTOR SIZE IS THE DIVISOR
JSEE IF NEXT ORDER IS A HEADER ORDER

WCSEL

PC,GETREM

PC,SRAND
RANSIZ

RS5,=-(SP)

2$%:

JSR

#4,(SP)
PC.LINKDV
(SP)+,(SP)

JSELECT A RANDOM WORD COUNT ?
;:DIVIDE BY MAX VALUE

;CYCLE THE RANDOM NUMBER GENERATOR
;TRY AGAIN

JNEW WORD LENGTH ON STACK FOR CHECK

:BR IF NOT

;ADD HEADER SJZE TO SECTOR SIZE
:DIVIDE BUFFER SIZE BY SECTOR SIZE
:MOV REMAINDER UP THE STACK

(SP) ,#4 :SEE IF REMAINDER LESS THAN 4

000004

001420

4
WCSEL

:BR IF NOT
SSELECTING RANDOM TRANSFER SIZES ?

000102

ng),SNURDL(RO)

;ADJUST WORD LENGTH DOWNWARD

3s:

TST

(SP)+

*BR IF YES

; CONTINUE

JCORRECT THE STACK POINTER

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 14-33

SEQ 0097

MAIN PROGRAM

83 017432

004737

17450

001004

033534
000002

JSR
BR
1ST
CMPB
BNE

000074

PC,SRAND
RANS1Z
(SP)+
#2,SNCODE(RO)
RANXIT

sCYCLE THE RANDOM NUMBER GENERATOR
s TRY AGAIN
sCORRECT THE STACK POINTER

;SEE IF WRITE DATA
;BR IF NOT WRITE DATA

;GET A RANDOM PATTERN NUMBER
0176452

004737
110560
012760
000207

001403

O
QO

pur

17510
17514
17516
17522
17524

17532
7534
7542

574

177777

RANPAT:

000104

004737
005737

152705
000420
020527
101015
132760

001407
116060
142760

000207

000004
027340
001424

PC,GETPAT

R5,SNPATC(RO)

ng.SNEXT(RO)

:GET PATTERN CODE

;MOVE PATTERN CODE TO CONTROL BLOCK

:SSETGQZAHETERS SELECTED INDICATOR

000002
1$:

000001

000002

000024

000074

000002

BEQ
8Is8
BR
CMP
8HI
8IT8
BEQ

18
#2,R5
3$

sWRITE OPERATION SELECTION DIVISOR
sGET SELECTION CODE
;ARE WRITE CHECK ORDERS TO BE SELECTED
sRANDOMLY ?
sBR _IF THEY ARE
sSET CODE TO EACLUDE WRITE CHECK ORDERS
cCOMPLETE SELECTION

#2,$CODE (RO)

sPREVIOUS WRITE OPERATION ?

8I(CB
B8R

gg.SNCODE(RO)

:gg??GE WRITE TO WRITE CHECK

#2,R5

sCHANGE WRITE CHECK TO WRITE

(3
#1,R5
R5,SNCODE(RQ)

¢BR_IF THEY ARE
sALTER POSSIBLE WRITE HEADER
;SETUP 'NEXT' CODE

MOVB

000074

000002
001416

2$:
3s:

000001
000074

43:

5%:

BIS
TST

BNE
BIC
Mov8

RTS

¥4 ,R5
PC,GETREM
AUTOCK

R5.M
33

sWRITE CHECK SELECTED ?
:BR _IF NOT

:BR IF PREVIOUS WAS READ OR WRITE CHECK

$CODE (RO) ,SNCODE(RO)
FORMAT

:MOVE CODE TO 'NEXT CODE'

sWRITE HEADER ORDERS ALLOWED ?

sRETURN

576

012705

000020
027340

GETPAT: MOV
JSR
TST
BNE
JSR
B8R
1$:
ASL
RTS

(elelelalalelelag

sROUTINE TO SELECT A PATTERN

033534

622

000207

#20,R5

sSELECT PATTERN

PC.GETREM

:GET CODE

PC,SRAND

sCYCLE THE RANDOM NUMBER GENERATOR

R5
18

GETPAT

;WAS PATTERN ZERO SELECTED ?
:BR _IF NOT ZERO
¢ TRY _AGAIN

sMAKE CODE INTO TABLE INDEX

ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES
sCALL:

4
H
:

—

7624

O
N
o

OO0

V00 ~NON

JSR

Movs
RANXIT: MOV
RTS

RANWRT: MOV
JSR
TST

U LN Ul W W
U L AN N N AN AN AN
NN NN NN NN

NN AN AN N N N NN

WNNNNNNNNNN—A—:_n_a—n_a.a.-n..u_noocs SRAR28Y
mfiumdoomwombwmdoomwombuw-&oomw

N
WA N
G U U N U O A AN AN N NN N N NN

012705

017476

017576
000075

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

14
98 017472

& R

92 017456
93 017462
94 017470

7634

010546
116060
032760

000234
000006

000027
000074

MOV
JSR
JSR

RETURN

GETPAR: MOV
Move
BIT

#DPB,R0
PC,SELPAR
PC.GETPAR

:DPB ADDRESS
¢SELECT THE PARAMETERS

R5,=(SP)
: SAVE R5
$RPCS1(RO) ,$PREVO(RO)
;SAVE CURRENT PARAMETERS
#6,SNCODE(RO)

;SEE IF NEXT OPERATION IS READ OR WRITE

SEQ 0098

MAIN FROGRAM

1340 017642
1341 017644
1342 017652
1343 017660
1344 017662
1345 017666
1346 017672
1347 017676
1348 017704

1349 017712
1350 017714
1351 017722
1352 017726
1353 017734
1354 017742
1355 017750
1356 017756
1357 017764
1358 017772
1359 017776
1360 020
1361 020012
1362 020014
1363 020022
1364 020026
1365 020030
1346
1367
1368
1369
1370
1371
1372
1373 020032
1374 020036

001007

000012
000010

000074

000034

161226

000022
000024

000004
000104

000022

PC,READDR

MOVB
MOVB
MOVB
MOVB

000002
000030
000010
000012
000020
000004
000400
000001

JSR

817
BNE

000024

MOV
Mov
MoV
Mov

NEG
MOV

BIT
BEQ

3s:

3§EC(R0).$PREVA(R0)

;SAVE STARTING CYLINDER

;SAVE STARTING SECTOR AND TRACK

-GET THE DECREMENTED SECTOR AND TRACK ADDRESSES

(SP)+,$PREVA+1(R0) :TRACK ADDRESS
(SP)+.$PREVA(R0) :SECTOR ADDRESS

$SRPCC(RO), SPREVA+2(R0)
: CURRENT CYLINDER
giu06.asua
;suxrgu é SET ?

:BR IF

SET

$NCODE
(RO) ,$CODE(RO)
;LOGICAL CODE FOR OPERATION
SNCODE (RO),RS
;LOAD RS FOR USE AS TABLE INDEX

COMTBL
(RS) .$COMND (RO)

SNPATC (RO) SPATTC(R0O)

SNSEC(RD) ,$SEC(RO)

$NCYL (RO) ,$CYLC(RO)

:RPO4 COMMAND CODE
:PATTERN CODE

;TRACK AND SECTOR ADDRESSES
:CYLINDER ADDRESS

SNWRDL
(ROS , SWRDL (RO)° :BUFFER SIZE

SNWRDL
(RO) ,SWRDM(R0)
;WORD COUNT FOR THE RH11
$WRDM(RO)
; COMPLEMENT IT
#256. ,8SSEC(RO) :INITIAL VALUE OF SECTOR SIZE
#1,8CODE (RO)

cHEADER OPERATION ?

¢BR IF NOT

ADD

#4 ,$SSEC(RO)

;ADD HEADER SIZE

MOV
RTS

¢RETURN

CLR

000207

:BR IF EITHER

$CYL(RO) ,$PREVA+2(RO)

MOVB
Mov8
MOV

2$:

MoV
MOV

it ¥

022616

000100

BNE

000034
000032

SNEXT (RO)
(SP)+ RS

SRESET 'PARAMETERS LOADED'
sRESTORE RS

INDICATOR

sROUTINE TO COMPRESS A LIST

sCALL:

H
H
:
016111
001403
062701
000772
000207

000002

MOV
JSR
RETURN

CMPRES: MOV
8EQ
ADD
BR
1$:
RTS

000002

#ADDRS ,R1

PC,CMPRES

2(R1),(R1)

18
#2,R1
CMPRES
PC

sCOMPRESS LIST STARTING AT THIS ADDRESS

;COMPRESS THE TABLE IN R1

cBR WHEN ZERO FOUND
s INCREMENT R1
sCONTINUE COMPRESSING TABLE
cRETURN

;ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK
CALL:

004737

033534
000040

WRTPK:

000036

116060

000234

:DPB ADDRESS

:'WRITE PACK' FLAG

MOV

#1,8PACK(RO)
PC,WRTPK

s 'READ PACK® FLAG

JSR
TST
BNE
TST

PC,$RAND

sCYCLE THE RANDOM NUMBER GENERATOR

WRTPK1

sBR IF UPPER WORD OF COUNTER NOT ZERO

JSR
RETURN

1ST8

000027

#DP8,RO

#-1,$PACK(RO)

BNE

000026
1396 020100

MOV
MoV

BMI
BR

WRTPK1: MOVB

$OPERC+2(RO)

$OPERC (RO)
WRTPK1
$PACK (RO)

+SEE IF FIRST OPERATION

sLOWER WORD ZERQ ?
¢BR_IF NOT 1ST OPERATION
sSEE WHICH = *R' OR 'W'

WRTPK3
;BR IF ‘W'’
WRTPK?
:'R' OPERATION
$RPCS1(RO) ,$SPREVO(RO)
;SAVE CURRENT PARAMETERS

H 8
CZRJIDEQ RPO4/5/6 MLT-DR LGC MACRO Vv04.00 S-NOV-81 09:16:17 PAGE 14-24

CZRJDEQO RPO4/5/6 MLT-DR LGC MACRO Vv04.00 S-NOV-81 09:16:17 PAGE 14-55

SEQ 0099

MAIN PROGRAM

1397 020106

004737

022616

1400
1401
1402
1403
1604
1405

020122
020130
020176
020144
020152
020154

016060
016060
016060
026060
103427
101004

000272
000242
000270
000012

16407 020164

1016422

1398 020112
1399 020116

112660
112660

000033
000032

000034
000010
000012
000106

1606 020156 126060 000011 000112

1408 020166

116060

1409 020174
1410 020202
1411 020210
1412 020214
1613 020222
1614 020224
1415 020226
1616 020232
1417 020240
16418 020246
1419 020252
1620 020256
1421 020260
1422 020266
1423 0202746

116060
016060
004737
032777
001003
005726
000137
013760
013760
005460
105760
100412
012760
112760
112760

1425 020304
1626 020312

012760
112760

1424 020302

1627 020320

1428 020326

1429 020332
1430 020336
}235 020342

000415

000114

000120
000110
027140
000020

MOVB

WRTPK3: MOV
MOVB

110560
005060

000030
000104

017576

160716

000020
000004

000002

B8R

MOVB

JSR

WRTPK4:

MOVB
CLR
RTS

-GET THE DECREMENTED SECTOR AND TRACK ADDRESSES

(SP)+,SPREVA+1(RD) ;TRACK ADDRESS
(SP)+.SPREVA(RO) ;SECTOR ADDRESS

$TRK(R0O) ,MAXTRK(RO)
;SEE IF AT MAX TRACK
28

-BR 1F NOT GREATER

MINTRK(RO),$TRK(RO)

;RESET TRACK ADDRESS

MINSEC(RO).SSEC(RO)
:RESET SECTOR ADDRESS
MINCYL(RO).$CYL(RO)
:RESET CYLINDER ADDRESS
PC,EOP2
:DROP’ THE DRIVE (NORMAL TERMINATION)
#SW04 , 3SWR
*1S SWITCH 4 SET ?
2s
sBR IF SET
(SP)+
*INCREMENT THE STACK POINTER
MAIN
*RETURN DIRECTLY TO °"MAIN'
MAXDL
, SWRDL (RO)
°;BUFFER SIZE IS MAXIMUM
MAXDL _SWRDM(RO)
:WORD COUNT
$WRDM(R0)
:CHANGE WORD COUNT TO 2°S COMPLEMENT
$PACK(RO)
SREAD OR WRITE ?
WRTPK3
*BR IF WRITE
#260.,8SSEC(RO)
“;SECTOR SIZE FOR READ
#5,SCODE(RO)
;CODE FOR READ HEADER & DATA
#RDHD,SCOMND(RO) TM ;DRIVE CODE FOR OPERATION

WRTPK4

#256. ,$SSECC(RO)
#2,$CODE (RO)

;SET UP FOR EXIT
:SECTOR SIZE
<CODE FOR WRTDAT

AWRTDAT,SCOMND(RD)

PC.,GETPAT

RS.SPATTC(RO)
SNEXT (RO)
PC

;0P CODE

;GET PATTERN CODE

:PATTERN CODE
*CLEAR "PARAMETER SELECTED®

*RETURN

INDICATOR

;ROUTINE TO DETERMINE OF ERROR IS AT A LOCATION ON THE PACK DEF INED
;
SCALL:
:
:
:
.

1438
}228

1451 020406

1$:

000022
000024

1434
1435
1436
1437

1446 020366
1447 020370
1448 020374
1449 020376
1450 020402

CMPB

BLOS

000400
000002

1433

1441 020344
020344
020346
1442 020350
1443 020354
1444 020356
1445 020362

$RPCC(RO),$PREVA+2(R0)
;CURRENT CYLINDER
$RPDA(R0) .$SEC(RO)
:NEW SECTOR & TRACK ADDRESS
$SRPCA(R0O) .$CYL(RO)
:NEW CYLINDER ADDRESS
$CYL (RO) ,MAXCYL(RO)
~:SEE IF AT END
2
:BR IF LESS THAN ‘MAXCYL®
18
BR IF GREATER THAN 'MAXCYL'

000022
000024
000002

000161

000207

MOV
MOV
MOV
CMP
BLO
BHI

000404
000005
000173

005676
001404
001404
000004
000026

000010
000012

PC,READDR

MOVB
MOV
JSR
BIT
BNE
TST
JMP
2%:
MOV
MOV
NEG
TSTB
BM]
WRTPK2: MOV
MOVB
MOVB

112760

004737

000011

JSR

MOVB
MOVB

010146
010246
012701
060001
012702
021160
001022
105761
100426
004737
122661

001011

SPOT(K:

000124
000020
000272

000003
022616
000003

18:

IN THE BAD TRACK/SECTOR TABLE FOR THE DRIVE.

JSR
PC.SPOTCK
RETURN1
RE TURNZ

MOV
MOV
MOV
ADD
MOV
CMP
BNE
TSTB
BM]
JSR
(MP8

BNE

R1,=(SP)
R2.-(SP)
#$8DSEC,R1
RO,R1
#16. .R2
(R1) .$SRPCC(RO)
X 3
3(R1)
5s
PC,READDR
(SP)+,3(R1)

k13

;ERROR AT AN ADDRESS IN TABLE
:NO TABLE ENTRY FOR ERROR ADDRESS OR
*PARAMETER 'NOTPRT® IS 0

::PUSH R1 OM STACK
+:PUSH R2 ON STACK
< INCREMENT FOR BAD SECTOR TABLE
*ADD THE BLOCK'S STARTING ADDRESS
“BAD SECTOR TABLE SIZE COUNT
:IS CYLINDER IN THE TABLE ?
:BR IF NOT
:TRACK ENTRY ?
‘BR IF NOT
:DECREMENT THE SECTOR/TRACK ADDRESS
:COMPARE THE TRACK ADDRESS

:BR IF IT IS NOT EQUAL

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

SEQ 0100

MAIN PROGRAM

105761

000002

2s:

000002

38:

000004

000406
005737
001006
012737
062766

020474

020476
1471 020500

012602
012601
000207

5%:

001426
177777
000002

001264
000004

7%:

1ST8
BPL
TST
BR
CMPB
BNE
BR
TST
ADD
TST

BMI
DEC
BNE
BR

TST
BNE

2(R1)
2%

s1S A SECTOR ADDRESS IN THE TABLE ?
:BR IF ONE IS
s INCREMENT THE STACK POINTER
sDISPLAY THE MESSAGE
sCOMPARE THE SECTOR ADDRESS
:BR_IF NOT EQUAL
¢CHECK °'NOTPRT'

(R1)

sPAST THE TABLE ENTRIES ?

(SP)+

5%
(SP)+,2(R1)

(SP)+
26 R1

s INCREMENT THE STACK POINTER

:GO TO THE NEXT LOCATION IN THE TABLE
;BR IF PAST

*DECREMENT THE MAXIMUM ENTRY COUNT
6

NOTPRT

*BR IF MORE TO CHECK
JEND, EXIT
sPRINT THE ERROR ANYWAY ?
;BR _IF NOT

MOV

#-1,BADSEC
#2,4(SP)

:SET THE INDICATOR FOR THE IDENTIFICATION LINE

MOV
MOV
RTS

(SP)+,R2

::POP STACK INTO R2
s sPOP _STACK INTO R1

ADD

(SP)+,R1

¢ INCREMENT THE RETURN

JRETURN

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

SEQ 0101

.SBTTL

:PRINT LINE 1 OF ERROR MESSAGE:

160430

LINE1:

104401
032777

001160
020000

BIT
BEQ

#SW10,aSWR
18

160414

18:

001165

BIT
BEQ
DISPLY

#SW13,aSWR
28
,S$CRLF

004737
104414
000207

023752
053364

JSR

PC.STIME

RTS

—

002000

020534
020540
020544

032777

b2y

[a%]
o~

2
0
2
6

N
o

[olele]

J'HH:MM:SS'

28:
38:

TYPE

DISPLY

JSWITLH 10 SET ?
cBR IF NOT

sRING THE BELL
¢ INHIBIT TYPEOUT ?
sBR IF NOT
sCR=LF
JEXIT

,S$BELL

;TYPE THE TIME

;SPACES
:RETURN & TYPE DESCRIPTION

,LINSPO

:PRINT LINE 2 OF ERROR MESSAGE
s 'PRESENT ORDER = XXXX PREVIOUS ORDER = XXXX'
:'* ERROR AT BAD TRACK/SECTOR'
:'DRV RPCS1

RPER1
RPER2
RPER3
RPEC1
RPEC2’
RPLA
RPDB
RPMR
RPDT'
STATUS®
: 'BUS ADDRESS OR WORD COUNT NOT CONSISTENT'
s 'RPBA = XXXXXX
RPWC = XXXXXX°

: 'RPWC
: 'RPSN

RPBA
RPOF

RPCS2

RPDA
RPCA

RPDS1

;'BUFFER ADR = XXXXXX

27 020546
020546
020550
020552
28 020554
29 020560
020566
020574
020600
020604
020610

010346
010446
010546
104414
005037
0
012737
116004
042704
004737
005737

37 020616
38 0206
39 020630
40 020634

012737
116004
042704
004737

31
32
33
34
35

ERROR MESSAGE GENERATION ROUTINES

o
&H
N

[« V. FNPT
N] =2 OO 00NN

AINVINIPIPININY
—b b d e b e = b od b

NN = O 000 ~OMN S NN —

ERROR MESSAGE GENERATION ROUTINES

LINE2:

051503
000027
177701
020642

020706

126504

001766

45 020652

105765

001766

PC,1$
5%

(LR
CLR

8IC

020712

#°C76.R4

BEQ
MOV
MOV8
8IC
JSR

LINE2A
#LINZP,4S
SPREVO(RO) R4

CLR

B8R

CMP8
BEQ
1ST8

B8MI
3s:

104414

JSR
TST

DISPLY

020706

43 020644

54 020704

MOV
MOVB

MOV

051462
000234
177701
020642
020712

SIZE = XXXX

R3,-(SP)
R4 ,-(SP)
RS,=(SP)
,SCRLF
43
R4
#LIN2C,4S
$RPCS1(RO)
R4

MOV

001165
020706

RPAS
RPCC

#°C76 R4
PC,18

LINE2A
OPTBL(R5)
R4
3s
OPTBL (RS)

INC
BR
ASL
ASL
ASL

R5
23
RS
RS
RS

ADD
DISPLY

R5,5%

MOV

#MNTBL ,S5S

ACTUAL NMBR WRDS XFRD = XXX’

2:PUSH R3 ON STACK

2:PUSH R4 ON STACK

:éSUE? RS ON STACK
JCLEAR MESSAGE ADDRESS STORAGE
JWORKING REGISTER
sADDRESS OF °PRESENT ORDER = ' MSG
;GET THE OPCODE

JSAVE ONLY SIGNIFICANT BITS
JTYPE THE FIRST MNEMONIC
SEE IF MNEMONIC ENTRY FOUND

BR IF NOT
ADDRESS OF

'PREVIOUS ORDER = ' MSG

PREVIOUS OPERATION CODE

SAVE ONLY SIGNIFICANT BITS

:TYPE THE PREVIOUS MNEMONIC

CON INUE
CLEAR THE TABLE INDEX
LOOK FOR THE OPCODE
BR WHEN OPCODE COUNT EQUALS OPCODE
JLOOK FOR END OF TABLE
BR IF END
JINCREMENT THE POINTER
CONTINUE = NOT END OF TABLE

:SHIFT INDEX
JSHIFT THE INDEX

JSHIFT THE INDEX
sADDRESS OF ASCII
ADDET?E INDEX

TEXT TABLE

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

SEQ 0102

ERROR MESSAGE GENERATION ROUTINES

55 020706

000000

43:

104414

5%:

. WORD
DISPLY
.WORD

RTS
LINE2A: TST

001264

BEQ
DISPLY
DISPLY
LINEZB: DISPLY
DISPLY
DISPLY

001165

sADDRESS OF

sADDRESS OF MESSAGE
cRETURN TO MAIN ROUTINE

LINEZB
+SCRLF

s8R IF NOT
:CR-LF

PC
BADSEC

.LINZS
.SCRLF

.DH14
.LINSPO
UNIT,=(SP)

PC,LINDEC

0
000040

051162
051424
021120
051261
051446
021120
000100

#SW05
., aSWR

160136

.DH15

#DT15,RS

000016

PC,

QAN
s
RO RO
SNOO

.SCRLF

2$:

<SECOND DATA LINE
sPRINT THEM
¢ THIRD DATA LINE

:PRINT THE REGISTERS

:DATA ERROR
?
IF NOT

(SP)+,RS

::POP STACK INTO RS
;:POP STACK INTO Ré&
;:POP STACK INTO R3

(SP)+‘R3

3s:

001165

:BR IF NOT

:PRINT LINE 3D OF ERROR MESSAGE
:PRINT LINE &4 OF ERROR MESSAGE

(SP)+ R4

(RS)*.'(SP)
RO, (SP)
a(SP) ,-(SP)
PC,LINOCT
(SP)
+

053363

000207

: SPACES
:REGISTER INDEXES
:PRINT THE REGISTERS
:PRINT THE OPTIONAL REGISTERS ?

PC,LINE3D

PC,LINEG

000000
022544

B
N

od
=
b
b
b
b
d aud
b
—h end cud wd wnd el

VIS8

o
[28]

b iy
d e
b
e
b
e

e e

OOO000 o
NININONINININD

050451

012605
012604
012603
000207
012546

: STANDARD RP04/5/6 REGISTER HEADER

sTYPE A SPACE
:PUT THE DRIVE NUMBER ON THE STACK
:TYPE DRIVE NUMBER

$WRDL
(RO) ,-(SP) .TRANSFER SIZE
SRPWC (RO, (SP)
cADD REMAINING WORD COUNT
(SP)
sCONVERT TO AN BYTE INCREMENT
$BUF (RO), (SP)
sBUFFER STARTING ADDRESS
(SP)+,SRPBA(R0) s CORRECT BUFFER ADDRESS ?
2$
:BR IF YES
EgUi ADDRESS AND WORD COUNT ARE NOT CONSISTENT'
6
EM4

000006
000240

021630

EgREg ADDRESS DEFINED AS BAD AREA

.LINSP
(RS)

. SCRLF

4$:

JRETURN TO ERROR PROCESSING ROUTINE
;PUT THE REGISTER INDEX ON THE STACK

;ADD DRIVE'S TABLE ADDRESS
sVALUE
JTYPE IT
;CORRECT THE STACK POINTER
JPRINT 2 SPACES
;AT END OF LINE ?
:BR IF NOT

JCR-LF
JRETURN

—

b
—

sPRINT LINE 3 OF ERROR MESSAGE
PREVIOUS ADR = CCC TT SS°
;'ERROR AT CCC TT SS
o]=)
NN

—d el e

hord

90 021104

°'PRESENT' OR 'PREVIOUS' MESSAGE

THE OPERATION MNEMONIC

sPRINT THE BAD SECTOR LINE ?

sg176.STATUS(RO) "

1%:

000020
000236

001410
104414
104414
004737
004737

sTYPE

104414

000517

051563

LINE3:

DISPLY
BR

.LINH3

LIN3.1

sLINE 3 ENTRANCE
sFINISH PRINTOUT

SEaQ 0103

;PRINT LINE 3A OF ERROR MESSAGE
o

—_——

hrgiied

(o=

;'START (YL = € CC
104414

000514

LINE3A: DISPLY

051601

~LINN3

LIN3.1

:'START CYL = CCC

021170
021174
021200

sLINE 3A ENTRANCE

sFINISH ERROR LINE

004737
1064414
000207

021532
001165

LINE3B: JSR

g{gPLY

END CYL = CCC

PC,LIN3.3
§%CRLF

:'START CyL = CCC

021202
021206

004737
000137

021532
021564

LINE3C: JSR

JMP

END CYL = CCC

PC,LIN3.3
LIN3.4

ACTUAL CvL = CCC*

;LINE 3B ENTRANCE

;PRINT LINE 3C OF ERROR MESSAGE

ACTUAL CYL = CCC

TRk =TT

sLINE 3C ENTRANCE

sFINISH MESSAGE

sPRINT LINE 3D OF ERROR MESSAGE
;'RPBA = XXXXXX
RPWC = XXXXXX°

032777
001416
104414
016046
004737

021242
021246
021252
021256

016046
004737
104414
000207

N
W
o

021212
021220
021222
021226
021232
o
N

PO PO A PN NIPNININD) =
NN N NN NP

O NNNANVWWNMIWAVMIVIWVE
D BB
BB
W
OO

END CYL = CCC’

sPRINT LINE 38 OF ERROR MESSAGE

b —d cd cd e e

b b O

U\J\WN—AO\Om\JOV!l\wf\)—‘OOmNO\IOJ\WN-‘OO@Ng\hl\wf\l—‘OOQVOU\J\WN—'OOONOMJ\WN—'OO

ERROR MESSAGE GENERATION ROUTINES

104414

000040

157720

051752
000240
022544
051762
000236
022544
001165

LINE3D: BIT
BEQ
DISPLY
MOV
JSR

DISPLY
MOV
18:

JSR
DISPLY

RTS

#SW05,aSWR
18
,LINB3

$RPBA(RO) ,~(SP)
FC,LINOCT

,LINW3
$RPW(
(RO) ,~(SP)

PC,LINOCT
,SCRLF
PC

;PRINT LINE 3E OF ERROR MESSAGE

021312
021316
021322
021330
021334
021340
021344

104414
016046
004737
104414
104414
005046
116016

004737
104414
104414
116016
004737
104414
000207

051646
000012
022576
053363
051774

LINE3E: DISPLY

MOV
JSR
DISPLY
DISPLY
CLR
Move
JSR
DISPLY
DISPLY
CLR
MovB
JSR
DISPLY
RTS

000011
022576
053363
052011

000010
022576
001165

;BUFFER ADDR REG CONTENTS
GONVERT TO OCTAL AND TYPE IT
RPWC =

:WORD COUNT REGISTER CONTENTS
sCONVERT TO OCTAL AND TYPE IT

START TRK = TT

:'START CYL = CCC

021260
021264
021270
021274
021300
021304
021306

SSWITCH 5 SET ?

:BR IF | T IS
:'RPBA =

LINS3

$CYL(RO) ,~(SP)

PC.LINDEC

STRK(RO).(SP)

PC,LINDEC

LLINSP

.LINS$3

=(SP)

$SEC(RO), (SP)

PC,LINDEC

. SCRLF

START SEC
= SS'

S'START CvL = *

:MOVE CYL TO STACK
sTYPE IT IN DECIMAL

'SPACES

s'START TRK = '
:CLEAR STACK

sTRACK TO STACK
:TYPE IT IN DECIMAL
: SPACES

:'START SEC = °*

:CLEAR STACK
:SECTOR ADDR TO STACK

sTYPE IT IN DECIMAL

;PRINT LINE 3F OF ERROR MESSAGE

s'RPDA = XXXXXX

021346

032777

000040

157564

LINE3F: B!T

RPCA = XXXXXX'

#SW5,aSWR

sSWITCH 5 SET ?

CZIRJOEQ RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 15-2

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

SEQ 0104

ERROR MESSAGE GENERATION ROUTINES
166 021354
167 021356

001420
104414

051742

169 021366
170 021372
171 021376

004737
104414
1044146

022544
053363
051731

168 021362

016046

172 021402

016046

};2 021416

000207

173 021406
176 021412

004737
104416

004737
104414
005046

022576
051622

196 021520
197 021524

004737
104414

116016

000033

116016

000032

000207

104414
016046
004737
104414
016046
004737
000207

022576
001165

051646
000034
022576
051663
000272
022576

5;9
212 021564
213 021570
214 021574
215 021600
216 021604
217 021610
218 021612
219 021616
220 021622
gg; 021626

JTYPE IT
:SPACES
;' RPCA = '

JSR
DISPLY

PC,LINOCY
,SCRLF

JTYPE IT

18:

RTS

:'CCC TT SS

192 021502
193 021506
194 021512

202 021532
203 021536
204 021542
205 021546
206 021552
207 021556
ggg 021562

PC.LINOCT
,LINSP
,LINCA3

MOV

022544
001165

000272
022576
051576
022616
022576
051622
022576
051625
000034
022576
051576

%8?

JSR
DISPLY
DISPLY

000270

016046
004737
104414
004737
004737
104416
004737
10441%
016046
004737
104414
005046

}38 021530

:BR IF NOT
;'RPDA = °

MOV

179 021420
180 0214246
181 021430
182 021434
183 021440
1864 021444
185 021450
186 021454
187 021460
188 021464
189 021470
190 021474

195 021514

18
,LINDA3

000242

};g

191 021476

BEQ
DISPLY

104414
013746
042716
004737
104414
005046
116016
004737
104414
000207

051700
055754
010000
022576
051720
000243
022576
001165

LIN3.1: MOV
JSR
DISPLY
JSR
JSR
DISPLY
JSR
DISPLY
MOV
JSR
DISPLY
CLR

MOVSB

$RPDA(R0) ,~(SP) :PUT SECTOR/TRACK ADDRESS ON THE STACK

$RPCA(R0) ,=(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK

PREV ADR = CCC TT SS°
$RPCC(RO),=(SP) :PUT CYLINDER ADDR ON STACK
PC,LINDEC
sTYPE IT IN DECIMAL
T
PRINT * T*
PC,READDR
;DECREMENT TRACK AND SECTOR ADDRESSES
PC,LINDEC
;TYPE TRACK IN DECIMAL
.S
JPRINT * §°¢
PC,LINDEC
:TYPE SECTOR ADDRESS
,LINP3
:PRINT °*PREV ADDR'
SPREVA+2(R0) ,~(SP) ;PREVIOUS CYLINDER
PC,LINDEC
JTYPE IT IN DECIMAL
.T
JPRINT * T°*
-(SP)
:MAKE ROOM ON THE STACK

$SPREVA+1(R0),
(SP)

;PREVIOUS TRACK ADDRESS

JSR
DISPLY
CLR

PC.LINDEC
.S
-(SP)

JTYPE IT IN DECIMAL
JPRINT * §°
JMAKE ROOM ON THE STACK

JSR
DISPLY

PC,LINDEC
,SCRLF

:TYPE IT IN DECIMAL

MOovV8
RTS

$SPREVA(RO),(SP)

;PREVIOUS SECTOR DDRESS

J'START CYL = CCC

END CYL = CCC’

J'ACTUAL CYL = CCC

TRK = TT°

LIN3.3: DISPLY
MOV
JSR
DISPLY
MOV
JSR
RTS

LIN3.4: DISPLY
MOV
BIC
JSR
DISPLY
CLR
MOVB
JSR
DISPLY
RTS

,LINS3
:LINE '38 & 3C°' ENTRANCE
$PREVA+2(R0O) ,~(SP) ;PREVIOUS CYLINDER
PC,LINDEC
:TYPE IT IN DECIMAL
,LINEN3
PRINT *END CYL'
$RPCC(RO) ,-(SP) ;PRESENT CYLINDER
PC,LINDEC
JTYPE IT IN DECIMAL
PC

,LINA3
sPRINT ‘ACTUAL'
CYLDER,=(SP)
sACTUAL CYLINDER
#8IT12, (SP)
:CLEAR THE FORMAT BIT
PC,LINDEC
JTYPE IT IN DECIMAL
,LINT3
sPRINT TRACK
-(SP)
:CLEAR STACK WORD
$RPDA+1 (RO), (SP) ;PUT TRACK ON STACK
PC,LINDEC
sTYPE IT IN DECIMAL
,SCRLF
PC

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

SEQ@ 0105

ERROR MESSAGE GENERATION ROUTINES
223

:PRINT LINE & OF ERROR MESSAGE

%%g

J'BUFFER ADR = XXXXXX

226 021630
227 021636
228 021640

032760
001427
104414

000100

230 021650
231 021654

229 021644

232 021660

052026

#81T06,8TATUS(RO)
:;DATA ERROR ?
18
:BR IF NOT
,LINM&
S 'PRINT BUFFER’

004737
104414

022544
052045

JSR
DISPLY

PC.LINOCT
,LINSG

004737
104414

022576
052057

JSR
DISPLY

Pc LINDEC

*TYPE IT IN DECIMAL
**ACTUAL NMBR WRDS XFRD = °

SUB
ASR
JSR
DISPLY
RTS

$8UF (RO), (SP)
(SP)
PC.LINDEC
,S$CRLF
PC

;SUBTRACT STARTING ADDRESS
SCONVERT INTO A WORD COUNT
STYPE IT IN DECIMAL
:CR-LF
*RETURN

000006

MOV

000020

MOV

235 021674 016046 000240

MOV

233 021664
234 021670
236
237
238
239
529

021700
021704
021706
021712
021716

016046

LINE4:

166016
006216
004737
104414
000207

000006

02257%
001165

18:

242

%22

104414
162760
017046
004737

052112
000002
000240
022544

251 021752
252 021756

004737
016046

022544
000236

104414

052127

250 021746 016046 000256
253 021762
256 021766
255 021770
256 021774
257 022000

258 022002

259 022006
260 022012
gg; 022016

066016
005046
016046
004737
012616

104414

004737
104414
000207

000020
000022
027366

052145

022576
001165

263

:BUFFER ADDR ON STACK

*CONVERT TO OCTAL & PRINT
SPRINT 'SIZE*

$WRDL (RO) ,-(SP) :BUFFER SIZE

£npea<ao>.-<sp> :VALUE IN BUFFER ADDR REGISTER

:'GOOD DATA = XXXXXX

000240

LINES:

BAD DATA = XXXXXX

,LINDS
;PRINT 'GOOD DATA'
#2.SRPBA(RO)
:BACK THE ADDRESS UP
aSRPBA(RD) ,=(SP)"
;°GOOD® DATA - AT THE BUFFER LOCATION
PC.LINOCT
sTYPE IT

JSR
MOV

PC,LINOCT
STYPE IT
$RPWC
(RO) ,-(SP) -WORD LENGTH ON STACK

DISPLY

MOV

,LINBS

SPRINT °*BAD DATA'

iapoa(no>.-(sp>*BAD DATA FROM BUFFER

ADD
CLR
MOV
JSR
MOV

~(SP)
*UPPER DIVIDEND TO ZERO
$SSEC(RO) ,~(SP)
“;SECTOR SIZE ON THE STACK
PC,LINKDV
:DIVIDE WORDS XFERED BY SECTOR SIZE
(SP)+, (SP)
*MOVE REMAINDER UP THE STACK

JSR
DISPLY
RTS

PC,LINDEC
,SCRLF
PC

DISPLY

SWRDL
(RO) . (SP)

:MAKE INTO A POSITIVE NUMBER

,LINPS

:PRINT *SECT POS*

;"HEADER FROM ERROR SECTOR
104414
013746
004737
104414
013746
004737
104414
013746
004737
104414
013746
004737
104414
104414

0521€3
055754
022544
053363
055756
022544
053363
055760
022544
053363
055762
022544
053363
001165

SECT POS = Xxx'

DISPLY
SUB
MOV
JSR

*TYPE THE POSITION

:PRINT LINE SA OF THE ERROR MESSAGE

Sgg

266 022020
271 022024
022030
022034
022040
022044
022050
022054
022060
022064
022070
022074
022100
272 022104

$8UF
(RO) ,~(SP)

:PRINT LINE S OF ERROR MESSAGE

2645 021720
266 021726
247 021732
248 021736

249 021742

ACTUAL NMBR WRDS XFRD = xxx'

BIT
BEQ
DISPLY

016046

000016

SIZE = XXXX

LINESA: DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
MOV
JSR
DISPLY
DISPLY

JOXOXXXX

,LINSS
CYLDER,~(SP)
PC.LINOCT
,LINSP
CYLDER+2,~(SP)
PC.LINOCT
,LINSP
CYLDER+4,~(SP)
PC,LINOCT
,LINSP
CYLDER+6,~(SP)
PC.LINOCT
,LINSP
.S$CRLF

XXX

XXXXXX*

: "HEADER CONTENTS OF ERROR SECTOR'
:HEADER POSITION
STYPE IT
*SPACES
:HEADER POSITION +2
STYPE IT
*SPACES
:HEADER POSITION +4
STYPE IT
*SPACES
-HEADER POSITION +6
STYPE IT
*SPACES

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

SEQ 0106

ERROR MESSAGE GENERATION ROUTINES

273 022110

000207

RTS

sPRINT LINE 5B OF ERROR MESSAGE
s 'RPECT = XXXXXX
RPEC2 = XXXXXX'

104414
016046

004737
106414

LINESB: DISPLY

=lelelelelelsl=]

104414

_LINEPS

:'RPECT
= '

JSR
DISPLY
DISPLY

PC,LINOCT
,LINSP
,LINEOS

YPE IT
SPACES
RPEC2
= '

JSR
DISPLY

PC,LINOCT
,$CRLF

;TYPE IT

Mov

MOV

000207

RTS

$RPEC1(RO), -(SP)

s PUT REGISTER CONTENTS ON THE STACK

$RPEC2(R0) ,-(SP)" ;PUT REGISTER CONTENTS ON THE STACK
PC

sRETURN

sPRINT LINE 6 OF ERROR MESSAGE
;"SECTOR IS ECC CORRECTABLE'
022154
022160
022164

104414
104414

000207

052242
001165

LINE6:

DISPLY
DISPLY

RTS

,LINB6
,SCRLF

cECC CORRECTABLE

;PRINT LINE 6A OF THE ERROR MESSAGE
:"SECTOR READ CORRECTLY AT OFFSET N°*
022166
299 022172

104414
000411

052275

LINE6A: DISPLY
BR

,LINC6
LIN6.1

sPRINT 'READ CORRECTLY AT OFFSET N'
;TYPE THE REST OF THE LINE

sPRINT LINE 68 OF THE ERROR MESSAGE
;"SECTOR IS ECC CORRECTABLE AT OFFSET N'
022174
022200

104414

000406

052242

LINE6B: DISPLY
BR

,LINBG
LING.1

;PRINT "SECTOR IS ECC CORRECTABLE

sPRINT LINE 6C OF THE ERROR MESSAGE
s *CORRECTED ON NTH RETRY'
104414

000414

052324

LINES6C: DISPLY
BR

,LING6
LING.2

s 'CORRECTED ON NTH RETRY'
sTYPE THE REST OF THE LINE

sPRINT LINE 6D OF THE ERROR MESSAGE
s "UNCORRECTABLE AFTER N RETRIES®
022210
022214

104414
000411

052353

LINE6D: DISPLY
BR

321 022216
322 022220
323 022226
324 022230
325 022232
326 022236
327
328
329

,LINUQ6
LING.2

s "UNCORRECTABLE AFTER N RETRIES'
¢FINISH

sTYPE THE OFFSET VALUE IN MICRO-INCHES

O V00 YOS
NN —

WA AN N U AN N N NN N

310 022202
022206

006301
016137
104414
000000
104414
000207

002240

001165

022230

LING6.1: ASL
g?gPLY

R1
OFMTBL(R1),1$

:DOUBLE THE OFFSET TABLE INDEX
:ADDRESS OF OFFSET POSITION MESSAGE

1$:

0
,SCRLF
PC

sOFFSET VALUE

.WORD
DISPLY
RTS

JRETRY COUNT TYPEOUT

SEQ 0107

ERROR MESSAGE GENERATION ROUTINES

330 022240
331 022242
332 022246
333 022252
33, 022256
ggg 022262

005046
113716
004737
104414
104414
000207

LING.2: CLR
MOVB
JSR
DISPLY
DISPLY
RTS

001253
022576
952342
001165

337

ggg

340 022266
341 022270

104414
012746

052426
000036

004737
004737
104414

033732
027702
052505

004737
104414
012746
060016
004737
004737
104414
012746

022576
052517
000046

060016

346 022312

016046

347 022316
348 022322
349 022326
350 022332
351 022334
352 022340
353 022344
354 022350

355 022354
356 022356

357 022362
358 022366
359 022372

360 022376
361 022404
362 022406
ggz 022410

060016
004737

004737
104414
104414

032777
001401
000000
000207

2 "ORDERS : XXXXX

LINE?:

000056

100000

156534
1$:

PC.$DB2D
PC.$SUPRS
LIN?T

+CONVERT IT
:PRINT 7
:TOTAL ERRORS

JeR
DISPLY
MOV
ADD
JSR
JSR
DISPLY
MOV

PC.LINDEC
,LIN7X
#STRANS,-(SP)
RO, (SP)
PC.$DB2D
PC.$SUPRS
LLIN7R
lsREAD -(SP)

;TYPE IT IN DECIMAL
*PRINT 'WRDS XFR'
:ADDRESS OF LOW WORD ON STACK

JSR
DISPLY
DISPLY

PC.$SUPRS
,SCRLF
.S$CRLF

BIT
BEQ
HALT
RTS

: "ORDERS:XXXXX

368 022412
369 022416
370 022422

104414
012746
060016

052426
000036

372 0226430
373 022434
374 022440
375 022444
376 022446
377 022452
378 022456

004737
104414
012746
060016
004737
004737
104414

027702
052436
000042

RO, (SP)

004737

$TOTAL (RO) ,-(SP)

0,(SP)
Pc.soezo

#SW15,asWR
18
PC

; CONVERT
SPRINT
*'BITS READ'
:LOW WORD ADDRESS

: CONVERT
‘PRINT

;SEE IF 'HALT ON ERROR' - SWITCH 15
‘BR IF NOT
*SWITCH 15 HALT

TOTAL SEEKS=XXXXX

TOTAL MISPOS ERR = XXX

"ORDERS
= '
oaoen COUNT INCREMENT
sADD BASE ADDRESS

033732
027702
052400

JSR
DISPLY
MOV
ADD
JSR
JSR
DISPLY

PC.$SUPRS
LIN7P
csposxr -(SP)
RO, (SP)
PC.$DB2D
pc ssupns

SPRINT IT
S TOTAL SEEKS
=
:TOTAL SEEKS
:DEVICE TABLE ADDRESS
:CONVERT THE SEEK COUNT
SPRINT IT
2*
"TOTAL MISPOS ERR =

JSR

PC.LINDEC

sTYPE IT IN DECIMAL

JSR
DISPLY
DISPLY

PC,LINOEC
,S$CRLF
.S$CRLF

TYPE IT IN DECIMAL

033732

004737

022576

383 022502
384 022506
385 022512

004737
104414
104414

022576
001165
001165

032777

:T0 STACK

,LIN70
#sopfnc -(SP)
RO, (SP)

JSR

379 022462 016046 000066
104414
016046

:ADD THE BASE ADDRESS

LINE?7A: DISPLY
MOV
ADD

380 022466

386 022516

JSR
JSR
pISPLY

;PRINT LINE 7A OF ERROR MESSAGE

§gg

381 022472
382 022476

;PRINT ORDER COUNT
:TO STACK

ADD
JSR

033732

027702
001165
001165

,LIN70
#SOPERC,-(SP)

MOV

033732
027702
052533
000052

X"*
AD
: XXXXXX
RDX WRDS RE
: XXXXXX
: XXX WRDS XF
TOTAL ERRORS

DISPLY
MOV

ADD

365

371 022424

;CLEAR STACK
:RETRY COUNT
STYPE IT IN DECIMAL
*'RETRY’

;PRINT LINE 7 OF THE ERROR MESSAGE

342 022274

343 022276
344 022302
345 022306

~(SP)
RETRY+1,(SP)
PC,LINDEC
,LINRG
.SCRLF
PC

MOV

052456
000064

100000

DISPLY
MOV

156414

BIT

PC.$DB2D

TOTAL SKI.OCYL ERR = XXX°

-co~vsnr THE COUNT

fHISPO(RO).-(SP) :TOTAL ERRORS
,LIN?S
$SKI(RO),=(SP)

#SW15,aswR

:* TOTAL SKI,OCYL ERR
=
convenr & PRINT IT

;SEE IF HALT ON ERROR - SWITCH 15 SET

)

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

E
CZRJDEQ RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 15-7

SEQ 0108

ERROR MESSAGE GENERATION ROUTINES

387 022526
388 022526
389 022530

001401
000000
000207

18:

BEQ
HALT
RTS

18
PC

:BR IF NOT

;SWITCH 15 HALT

sPRINT LINE 8 OF THE ERROR MESSAGE
:'DIFFERENT ERROR DURING RETRY'
394 022532
395 022536
396 022542

104414
004737
000207

05255
02054

LINE8:

DISPLY
JSR
RTS

,L INSM

PC.LINE2

;PRINT LINE 2 OF ERROR MESSAGE

sOCTAL TYPEOUT ROUTINE
;CALL:

:
:

b
g md
b

) —d
— e

PR O

L ele R NTe JV, I RV TN

W O O

604 022544
405 022550
406 022554
407 022560
408 022266
409 022570
410 022572
022574

420 022576
421 022602
422 022606
423 022612
424 022614

016646
004737
012637
062737
104414
000000
012616
000207

000002
030332
022570
000005

MOV

JSR
RE TURN

LINOCT: MOV
JSR
MOV
ADD

022570
1$:

DISPLY
-WORD
MOV
RTS

NUM,
- (SP)

;PUT THE NUMBER ON THE STACK

2(SP) ,=(SP)

¢PUT NUMBER IN PROPER LOCATION ON STACK
;CONVERT THE NUMBER TO OCTAL
:GET THE ADDRESS OF THE ASCII STRING
sADDRESS THE LAST 6 ASCII DIGITS

PC.LINOCT

PC,$5820
(SP)+.,1%

#5.,1%
0

(SP)+,(SP)
PC

STYPE IT
sADDRESS

¢CORRECT THE STACK
cRETURN

sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH
sLEADING ZERO SUPRESSION
sCALL:
sPUT THE NUMBER ON THE STACK
NUM,
- (SP)
MOV
N
PC,LINDEC
JSR
:
RETURN
.
016646
004737
004737
012616
000207

000002
030302
027702

LINDEC: MOV
JSR
JSR
MOV
RTS

2(SP) ,~(SP)
PC.$582D

sSET UP STACK FOR CONVERT
sCONVERT IT TO DECIMAL

(SP)+,(SP)

SJRESTORE STACK POINTER

PC,$SUPRS

STYPE

(WITH LEADING ZEROS SUPRESSED)

SEQ 0109

GENERAL SUPPORT SUBROUTINES

.SBTTL

2
2

EEEEEHENT THE SECTOR=-TRACK ADDRESS

S
6
7
8
13

;
;
:

;
:

11 022616
12 022622
13 022626
14 022632
15 022636

162706
016616
005066
005066
116066

17 022650

100015

16 022644

18 022652

005366

012766

000004
000004
000004
000002
000262

000004

000025

000004

19 022660
20 022666

116066
005366

000243
000002

22 022674
23 022702

012766
000403

000022

000002

000243

000002

21 022672

24 022706
gg 022712

100007

116066
000207

MOV
JSR

RETURN

DEC

B8PL

MOV

MOVB
DEC
BPL
18:
28:

#DPB RO
PC,READDR

;DPB ADDRESS

(SP) CONTAINS THE TRACK ADDRESS

2(SP)

READDR: SUB
MOV
CLR
CLR
MOVB

000002

MOV
B8R

MOVB
RTS

CONTAINS THE SECTOR ADDRESS

#4,SP
4(SP), (SP)
4(SP)
2(5P)
SRPDA(R0).4(SP)

:DECREMENT THE STACK POINTER
*MOVE THE RETURN ADDR DOWN THE STACK
*CLEAR STACK FOR SECTOR
:CLEAR STACK FOR TRACK
°;INCREMENTED SECTOR ON STACK

:BR IF SECTOR GREATER THAN 0

4(SP)

#21..,4(SP)

;DECREMENT THE SECTOR ADDRESS
JAM SECTOR ADDRESS TO 21(10)

$RPDA+1(R0),2(SP} :TRACK ADDRESS
2(SP)
:DECREMENT TRACK ADDRESS
2

#18..,2(SP)
2s

*BR IF IT DIDN'T GO NEG

*RESET TRACK TO 18(10)

SRPDA+1(RD),2(SP)
:TRACK ADDRESS
PC
:RETURN

;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS

29 022714
30 022722
31 022730

012737
012737
012737

177777
177777
023010

33 022742
34 022746
35 022752

005777
005037
005057

156226
001210
001206

012721
012711

024050
000300

40 023000

012777

009131

42 023010

062706

000004

44 023022
45 023026

005777
005037

156154
001210

32 022736

36 022756

37 022762
38 022766

005037
013701

000006

001210
001206
000004

CKCLK:

MOV
MOV
MOV

#-1,CLKFLG
#-1.PCLOCK
#CKCLKT,ERRVEC

;CLEAR CLOCK AVAILABILITY FLAG
:CLEAR KW11=P CLOCK AVAILABILITY FLAG
-SET UP VECTOR FOR CLOCK CHECK

ST
CLR
CLR

aSLKCSR
CLKFLG
PCLOCK

;CHECK FOR KW11-P
*SET CLOCK AVAILABILITY FLAG
*SET KW11=P CLOCK FLAG

MOV
MOV

chocx (n1)+
#300. (R1)

*SET UP KW11-P VECTOR
‘PSW - PRI 6

MOV

#M31,38LKCSR

-SET CLOCK = CNT UP, 10US, CONT INT

CKCLK1: ADD

#4,SP

;RESTORE THE STACK POINTER

ST
CLR

asLKS
CLKFLG

:LOOK FOR KW11-L
*SET CLOCK FLAG

#CLOCK,(R1)+
#3C0, (R1)
#100,3SLKS
CKCLK3
#4,SP
NEDCLK

:SET UP KWi1-L VECTOR
‘PSW - PRI 6
*SET KW11-L INTERRUPT

CLR

001200

MOV

39 022772 012777 174575 156176

41 023006

43 023014

46 023032

47 023036
48 023042
49 023046
50 023054
51 023056
52 023062

53 023066

54
55
56
57

GENERAL SUPPORT SUBROUTINES

023072
023074
023100
023102

000437
012737

013701

012721
012711
012777
000414
062706
104401

005737

001402
000137
000000
000137

023056

000004

001204

024050
000300
000100
000004
054251

000042
005646
004200

MOV

156166

B8R

MOV
MOV

156126

MOV
MOV
MOV
BR
CKCLK2: ADD
TYPE

18:

BEQ
JMP
HALT
JMP

@NERRVE( +2
$LPVEC,R1

sNEW PSW

:KW11-P VECTOR ADDRESS

0-1667.,3$LKCSB*LOAD COUNTER BUFFER WITH 16.67
CKCLK3

#CKCLK2,3#ERRVEC” ;CHANGE ERROR VECTOR TO CHECK FOR KW11-L
SLLVEC.R1

1$
$GET42
START1

:KW11=L VECTOR ADDRESS

sRESTORE THE STACK POINTER
2P OR L CLOCK MUST BE o~ SYSTEM'

*UNDER MONITOR CONTROL
?
*BR IF NOT
ABORT PROGRAM
HALT
rnv AGAIN

(2 1a]

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

SEQ 0110

GENERAL SUPPORT SUBROUTINES

58 023106
gg 023114

012737
000207

000006

0000C4

010046
010446
005737

001462

70 023130

004737

023226

73 023140

016400

001740

75 023146

136437

034470

77 023156
78 023162
79 023164

004737
005204
020427

023250

023170
023172
023174
023176

RTS

#6,3¥4ERRVEC
PC

JRESTORE THE ERROR VECTOR

:?REIINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED

62
63
64
65
66 023116
67 023120
68 023122

80
81
82
83

CKCLK3: MOV

JSR
RETURN

H
:

001362
012604
012600
000207

STATPR: MOV

000010

:SAVE Ré
sANY DRIVES ASSIGNED ?

JSR
CLR

PC,SHDTYP
R4

¢ TYPE THE HEADING
sCLEAR THE DRIVE INDEX

MOV
ASR
BIT8

BLKADR(R4)
,RO
;GET THE DRIVE'S BLOCK ADDRESS
R4
<RESTORE R4
ATABIT(R4) ,ASNLST
IS THIS DRIVE ASSIGNED ?

JSR

PC,SDETAL

CMP
BNE
MoV

R4 ,48.
18
(SP)+ R4

BEQ

28:

INC

3$:

;SAVE RO

R4 ,=(SP)
ASNLST

ASL

001462

RO,=(SP)

MOV
TST

BEQ
18:

PC,STATPR

MOV

RTS

Ré&

:BR _IF NOT

sCHANGE TO INDEX WORDS

¢8R IF NOT

Ré4

s INCREMENT THE INDEX

(SP)+,RO

sTYPE THE PERFORMANCE SUMMARY

cFINISHED ?
:BR IF NOT
;RESTORE R4

sRESTORE RO
sRETURN

:QRB{INE TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE

MoV

#DP8,R0

;DPB ADDRESS

TYPEST: MOV
MOV

RO,-(SP)
R&,~(SP)

:SAVE RO
:SAVE Ré

CLR

Ré

:CLEAR R4 FOR DRIVE NUMBER

JSR
MOV
MoV
RTS

PC,SDETAL
(SP)+,R4
(SP)+,RO
PC

JSR
RETURN

H
:
010046

93 023204

004737
004737

99 023224

000207

023226

JSR

mMovs

023250

W)
=

96 023214

SN
= OO0 YO WV

b aud wud end cud wnd wd oD wmd wnd

b cpd wh

91 023200

PC,TYPEST

PC,SHDTYP

(RO) ,R4

:TYPE THE HEADING

sDRIVE NUMBER

sTYPE THE STATISTICS
;RESTORE R4
JRESTORE RO
cRETURN

:TXEE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT

:
:
23226
23232

004737
004537

023752
027742

23240

004537

027742

23246

000207

SHDTYP:

JSR
RETURN

PC,SHDTYP

JSR

PC.STIME

sTYPE THE TIME OF DAY

$CRLF
JSR
STATHD

R5,TYPRI4

s CR-LF
sTYPE THE HEADER
sHEADER

JSR

RTS
;TYPE

sCALL:

R5,TYPRI4

;TYPE AT PRIORITY 4

sRETURN

THE PERFORMANCE SUMMARY DATE LINE

[2]a)

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

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

SEaQ 0111

N —=OV0O~NONWN

b cpd e

PNINIAD)
= b b b

GENERAL SUPPORT SUBROUTINES

MoV
MOV
RETURN

262
3266
3272
3276
23302

104403
002
000
104401
016046
004737
004537

053363
000070
030302
027612

TYPE
MOV
JSR

23310

104401

053363

023316
023322

004737
004537

033732
027612

TYPE
MOV
JSR

023330
023334

104401
062702

053363
000004

023342
023346

004737
004537

033732
027612

023354
023360
144 023364
023366
023372

104401
062702
010246
004737
004537
0
104401
062702

053363
000004

b
b
—d
d
b
e
b e

NINININININD

b
b

&ONO‘U‘J‘W

010246

50
52
54
60

023400
023404

062702
010446

000036

MOV

TYPOS

033732
027612
053363
000004

152 023410

010246

004737
004537

033732
027612

023426
023430
3 023434

104401
062702
062702

053364
000004
000002

023442
023446

004737
004537

030302
027612

023454

104401

053364

023462
023466

004737
004537

030302
027612

023474

104401

053364

023502
023506
023512

004737
004537
000004

030302
027612

023412
023416

SDETAL: MOV
MOV
ADD

.BYTE
.BYTE

JSR
.WORD

JSR
.WORD
TYPE
ADD

MOV

JSR
JSR
.WORD

TYPE
ADD
MoV
JSR
JSR
. WORD
TYPE
ADD
MOV
JSR
JSR
.WORD
TYPE
ADD
ADD
MOV
JSR
JSR
.WORD
TYPE
MOV

JSR

#DRIVE ,R&

;DRIVE NUMBER

#0P8,R0

*DPB ADDRESS

RZ -(SP)
RO.R2

:SAVE R2
:DPB ADDRESS

R4 ,~(SP}

*:SAVE R& FOR TYPEOUT

#$OPERC,R2

2
0

LLINSP

$PASSC(RO) ,=(SP)*

SFIRST STATISTICAL FIELD
;:TYPE DRIVE NUMBER

+360 TYPE=--OCTAL ASCII
SSTYPE 2 DIGIT(S)
*:SUPPRESS LEADING ZEROS
*SPACES

;PUT THE PASS COUNT ON THE STACK

PC,$582D
RS REPLZ

co~vsnr IT
STYPE
|

R2,=(SP)
PC.$DB2D
RS _REPLZ
6
LLINSP
#4.R2
R2.=(SP)
PC.$DB2D
RS _REPLZ
6

PUT sopsnc ON THE STACK
SCONVERT IT
*TYPE SOPERC
STYPE 6 DIGITS
*SPACES
*INCREMENT R2
SPUT SPOSIT ON THE STACK
SCONVERT IT
*TYPE $POSIT
STYPE 6 DIGITS

#4,R2

*INCREMENT R2

10.

*TYPE 10 DIGITS

3
_LINSP

LLINSP

R2.-($P)
PC.$DB2D
RS .REPLZ

LLINSP

#4 ,R2
R2.-(SP)
PC.$D82D
RS.REPLZ

,LINSPO

#4 ,R2
#2 R2

(R2)+,-(SP)

rvpe 3 DIGITS

*SPACES

SPUT STRANS ON THE STACK
:CONVERT STRANS
STYPE IT

*SPACES

*INCREMENT R2
PUT SREAD o~ THE STACK
*CONVERT SREAD
STYPE IT
rvpe 10 DIGITS

*1 SPA

1~caene~r R2
S INCREMENT R2 AGAIN

sPUT $SOFT ON THE STACK

PC,$582D
RS_REPLZ
4

*CONVERT $SOFT
*TYPEOUT SSOFT
rvpe & DIGITS

(R2)+,=(SP)
PC,$582D
RS _REPLZ
4

PUT SHARD ON THE STACK
*CONVERT $HARD
*TYPEOUT SHARD
STYPE 4 DIGITS

.LINSPO

LINSPO

(n2)+ ~(SP)

PC,$582D

as REPL2

PACES

*SPACES

*PUT $SKI ON THE STACK
*CONVERT $SKI

SYYPEOUT $5KI

;TYPE 4 DIGITS

SEQ 0112

NN N NN NN NN NN

d
i

TYPE

.LINSPO

s SPACES

MOV
JSR
JSR
LWORD

(R2) +,=(SP)
PC,$582D
R5,REPLZ
4

. °UT SMISPO ON THE STACK
:CONVERT SMISPO
s TYPEOUT SMISPO
sTYPE & DIGITS

sus
sus
sus

$SOFT(RO),( SP)
$HARD (RO) , (SP)
$SKI(RO) , (SP)

;SUBTRACT S$SOFT FROM STOTAL

027612

JSR
JSR

PC,$582D
RS REPLZ

:CONVERT 'OTHER® COUNT
STYPE IT

001165

TYPE

,SCRLF

053364

TYPE

MOV
SUB

012602
000207

LWORD

MOV
RTS

LINSPO

: SPACES

‘TOTAL(RO) ,=(SP) sCALCULATE NUMBER OF OTHER ERRORS
;SUBTRACT SHARD FROM STOTAL

¢SUBTRACT $SKI FROM STOTAL

$MISPO(RD). (SP) :SUBTRACT SMISPO FROM $TOTAL

STYPE & DIGITS

(SP)+,R2

:RESTORE R2

—b e

053364
030302
027612

b e

NQN\IOOO‘gO
NON =000
~NOMWN

104401

sROUTINE TO INCREMENT S$SOFT

NOTE:
023606
023612
023614
023622
023624
023630

005737

001264
000060

000207

023417

000060

188

: TST
INCSOF
BNE

BADSEC

;SEE

1$:

sRETURN

cMP
BHIS
INC
RTS

IF BAD TRK/SEC

INDICATOR SET

1$
sBR IF IT'S SET, DON'T INCREMENT COUNT
$SOFT(RO) ,#9999.
;IS SSOFT ALREADY AT MAXIMUM ?
18
sBR IF IT IS
$SOFT(RO)
s INCREMENT $SOFT

sROUTINE TO INCREMENT SHARD

NOTE:
023632

005737

001264

000062
023654

000207

023417

000062

$HARD WILL NOT BE

INCHRD: TST
BNE

1$:

189

INCREMENTED BEYOND 9999 (10)

BADSEC

CMP

SHARD (RO) ,#9999.

RTS

BHIS
INC

1$
$HARD (RO)

;SEE

IF BAD TRK/SEC

:BR IF
:BR
:

INDICATOR SET

IT'S SET, DON'T INCREMENT COUNT

IS SHARD ALREADY AT MAXIMUM ?
IF IT IS
s INCREMENT SHARD
N

JROUTINE TO INCREMENT $SKI

ENOTE:
023656
023662
023664
023672
023674
023700
190

$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10)

005737

001264

000064
000207

000064

$SKI WILL NOT BE INCREMENTED BEYOND 9999 (10)

: TST
INCSKI

BADSEC

;SEE IF BAD TRK/SEC INDICATOR SET

1$:

023417

BNE
CMP
BHIS
INC
RTS

1$
$SKI(R0),#9999.
18
$SK1(RO)

JROUTINE TO INCREMENT SMISPO

:BR_IF IT'S SET, DON'T 1NCREHENT COUNT
°:1S $SKI ALREADY AT MAXIMUM
?
sBR
IF IT IS
s INCREMENT $5K]

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 16-§

GENERAL SUPPORT SUBROUT INES

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

SE@ 0113

GENERAL SUPPORT SUBROUTINES

INOTE:
023702
023706
023710
023716
023720
023724

005737

001264
000066

000207

023417

000066

INCMIS: TST
BNE

18:

023726

005737
001006
026027

001264

005260
000207

000056

~nN
)
~
Yy

\008

b
b
b ek
b o

=lole

024002
024006
024012
024016

005737
001033

023417

YV [ ¥}

001210

001165
001266
030302

104401
013746
004737
004537
000002

054516

004537
000002

g?ISPO(RO)

?QISPO(RO).09999.

;1; §?1§§° ALREADY AT MAXIMUM ?

" : INCREMENT $SMISPO

S$TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCTOT: TST
BNE
(MP
BHIS
INC
18:
RTS

STIME:

027612

027612
054516
001272
030302
027612

000207

BADSEC
18

:SEE _IF BAD TRK/SEC INDICATOR SET
:BR IF IT'S SET, DON'T INCREMENT COUNT

?;OTAL(RO)#9999 {S ?}OIAL ALREADY AT MAXIMUM ?

$TOTAL (RO)
PC

¢RETURN

s INCREMENT STOTAL

18:

TST
BNE

TYPE
MoV
JSR
JSR
.WORD
TYPE
MOV
JSR
JSR
.WORD
TYPE
MOV
JSR
JSR
.WORD
RTS

CLKFLG
1s
,$CRLF

:CLOCK ON THE SYSTEM 2
.
IF NOT
CR-LF

PC,$582D

*CONVERT TO DECIMAL

HOUR, - (SP)

*PUT "HOURS® ON THE STACK

RS_REPLZ
2
,COLON

STYPE IT
*TYPE 2 DIGITS
Teg

PC,$582D

*CONVERT TO DECIMAL

MINUTE,-(SP)
RS -REPLZ

:PUT °MINUTES' ON THE STACK
STYPEIT

rvps 2 DIGITS

,COLON
$ECOND,-(SP)

:PUT SECONDS ON THE STACK

RS REPLZ

STYPE IT

PC.$582D
gc

*CONVERT TO DECIMAL
STYPE 2 DIGITS

o
N
&oH
o

sCLOCK HANDLER ROUTINE
005337

M) b ad v

(=301 L NTe JV P

000056

104401
013746
004737

210 024040
b b od b e ek

:SEE IF BAD TRK/SEC INDICATOR SET
SBR IF IT'S SET, DON'T INCREMENT COUNT

JROUTINE TO TYPE THE TIME

—b

O 00O
O
NI (NN

103002

NINLALNLNINLNINLNLN)

CMP
BHIS
INC
RTS

BADSEC
1$

;ROUTINE TO INCREMENT STOTAL

INOTE:

202
203
204
205

S$MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10)

001274

001212
001272
000074

001012

001272
001412
001270
000074

CLOCK:

001274
001272

001270

DEC
BNE

MOV

INC
CMP
BNE
CLR
INC
INC
CMP
BNE

SIXTEE
18
HZ SIXTEE

s INCREMENT THE 1/60 SECOND COUNTER
;BR IF A SECOND NOT COUNTED
¢RESTORE THE VALUE

#60..SECOND

G; ??X#HUH

SECOND

¢ COUNT THE SECOND

SEQOND

sCLEAR THE SECOND'S COUNTER

MINUTE
#60. ,MINUTE
18

:COUNT THE MINUTE

INTRVL +2

;COUNT THE PERFORMANCE SUMMARY INTERVAL
sAT MAXIMUM ?
:BR IF NOT

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

SEQ 0114

GENERAL SUPPORT SUBROUTINES

227 026124
228 024130
229 024134
230 024142
231 024144
232 024150
233 0264154
234 026160
235 024164
236 024166

005037
005%37
022737
103002
005037
012746
004737
005737
001411
023737

001270
001206
001747

001410

001412

238 026176
239 024204
260 024210

012737
005037
000002

177777
001412

003214

001266

001266
000021
041100
001410

18:

MINUTE
HOUR
#999. ,HOUR
18
HOUR
#17.,=(SP)
PC,RPTMR

INTRVL

sCLEAR THE MINUTE'S COUNTER
s COUNT THE HOURS
sAT MAXIMUM

¢BR _IF NOT
:CLEAR THE HOURS

;17 MS ON THE STACK

:DRIVER TIMER ROUTINE
ggS?LA‘OTHE PERFORMANCE SUMMARY ?

2%
INTRVL, INTRVL+2 ¢DISPLAY INTERVAL FINISHED ?
2$
:BR_IF NOT

#-1,STATIN

2$:

INTRVL
#2

sSET PERFORMANCE SUMMARY DISPLAY FLAG
;CLEAR THE PERFORMANCE INTERVAL COUNTER

:RETURN

SEQ@ 0115

CZRJDEO RPQ4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 17
: COMMAND DECODE ROUTINE
CALL:

005737

001440

KSR:

024244

d e

=2 OV00 NS

b ad d i e

000001

024244

PON) =

054621

000200
001262
023752
030400
054346

1$:

2$:
38:
177776

KSR1:

001262
000101
000067

000060
177770
000124

177777

18:

025054
000104

#-1,CFLAG

000123

177777

2$:

177777

3s:

000127

177777

000001

154510

025454

BNE

TYPE
RTS
.WORD

SAVREG
MOV
CLR
JSR
JSR
TYPE
RDLIN
MoV
TST
BNE
INC
CMPB

cRETURN AFTER KEYBOARD SERVICED

sANY OPERATIONS ACTIVE ?
;BR_IF SOME ARE

KSR1
#1,38

:PROCESS THE KEYBOARD REQUEST

2%
,BUSY

#PR& ,PS
CFLAG
PC.STIME
PC,STKINT

LENTCOM

(SP)+,R5
CFLAG
73
RS
#'A, (RS)
18

(RS) ,»'7
63
(R5) ,#'0
6$
#°C7, (RS)
#°'T,-1(RS)
23
78
#'D,-1(RS)

78
#'S,-1(RS5)
48
PC,SCMND
78
#°'W,~1(RS)

sCLEAR THE LOOP COUNTER

;COUNT THE TIMES THROUGH THE LOOP
:BR IF NOT ENOUGH
; 'SYSTEM BUSY...'

¢PROCESS ANY COMPLETED DRIVES
sLOOP COUNTER
;SAVE THE REGISTERS

*SET PRIORITY TO 4
:CLEAR THE

'CONTROL C' FLAG

:TYPE THE TIME

:INITIALIZE THE KEYBOARD
:YENTER COMMANDS'
:READ THE KEYBOARD

:GET ADDRESS OF INPUT STRING
:CHECK THE CONTROL C FLAG

*EXIT IF *CONTROL C* ENTERED
:POINT TO SECOND CHARACTER

1EQ TO AN A’
IT 1S

DRIVE MUMBER GREATER THAN AN ASCI1 7 2

DRIVE MUMBER LESS THAN AN ASCII 0 7

[LEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A"

H 3
:BR IF NOT EQ
sASSIGN DRIVE FOR TEST
SEXIT

;EQ TO *D* ?

:BR IF NOT EQ
DEA;SIGN DRIVE
JEXI

;EQ 70 'S*

:BR IF NOT EQ

:TY?E STATISTICS

PC.DATAPK

177777

sSYSTEM BUSY RETURN

#SW0,3SWR

025442

004737

ADD

s'CFLAG' IS NORMALLY SET BY THE TTY SERVICE
sROUTINE IN INTERRUPT MODE

ORDERQ
18

PC.DEASGN

025172

000122

TST

BNE
CLR
BR

PC,NEWASN

025064

44 024372
45 024374
46 024402
47 024404
48 024410

56 024446
57 024450

MOv

PC.KSR
JSR
RETURN1
RETURN2

NN = O 000 NOM NS WA =

GENERAL SUPPORT SUBROUTINES

5%:

78
#'R,-1(R5)

PC.REDAPK

E A DATA PACK

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

SEQ 0116

GENERAL SUPPORT SUBROUTINES

58 024454
59 026456

000402
104401

054325

61
62
63
64

062716
005777
052777
005037

000002
154452
000100
177776

026464
024470
024474
0264502

66
67
68
69 024510
70 024514
71 024516

001007
012737
122737

053643
000011

81 024564
82 024570

004737
000137

024650
026730

84 024576

122737

000011

86 024606
gg 024612

012704
012703

000001
000007

005737

034466

024666

110437

046150

~
&H

98 024660

[=]
o

024632
024766
034470

012746
000137
136437

94 024640
95 024644
96 024650

(=]

000010
024650
024640

012703
004737
000137

=1
N
&~
~

b =d
b
ed

053557
000001
034470

90 024622
91 0264626
92 024632

OQOOOO00

b anb

000101

024544
024546
024554

e
e
b
b
el
cvd o

122715

024520
024526
024532
024540

ek et =t 2 QOO

b e

156442

ASSIGN:

026750

001403

ASGN1:

001462

TYPE
RESREG
ADD
TST
8IS
CLR
RTS

INVLD

"2, (SP)
asTkB
#8IT06,38TKS

PS
PC

#'A, (RS)

MoV
MOV

NUNTASN, ASNMSG

MOV
CMPB

18:

2%:

000041

CMPB

BEQ
MOvVS

BITB
BNE
TST
BNE

026750
000041

ASGNZ:

BEQ
JSR
JMP
RTS
CMP8
BNE

MOV
MOV

18:

2%:
3s:
4$:

001462

ASGN3:
1%:

001506

000070

24754

SEXIT

STYPE *INVALID COMMAND' MESSAGE
sRESTORE RO - RS

¢ INCREMENT THE RETURN ADDRESS
cCLEAR THE TTY BUFFER
¢SET TTY INTERRUPT ENABLE

sSET PRIORITY BACK TO ZERO
sRETURN

JROUTINE TO PROCESS THE ASSIGN REQUEST (°'T', 'R', OR 'W' COMMANDS)
001430
111504
012737
012703
136437
21013

72
73
74
75
7
77
78
79

6$:
7%:

BR
CLR

MOV

JSR
JMP

RTS
MOV
JMP

BIT8
BNE
TST
8PL
mMovse
JSR
TST8
8EQ
8MI
ASL
MOV
Mov

JSR
JSR
JSR
JSR

MOV
TST

8EQ

ASGN2
(RS) ,R4

#1,R3

sASSIGN ALL DRIVES?

;R IF ALL DRIVES

sPUT DRIVE # IN R4

'DRIVE ASSIGNED' MESSAGE ADDRESS

ELOAD R3 FOR1 UNIT

QIABIT(RA)AsuLsi ;DRIVE ALREADY ASSIGNED ?
Ré
18

#NOTAVL ,ASNMSG
#1.,41

:BR'IF IT IS
¢TRYING TO ASSIGN DRIVE 0 ?
:BR_IF NOT
s 'NOT AVAILABLE® MESSAGE ADDRESS
:SEE IF LOADED FROM AN RP0/4/576

PC,ASGN3

:BR_IF RP04/5/6 IS THE LOAD DEVICE
sSEE IF DRIVE ON THE SYSTEM

1,61
18
#1,Ré
#7.,R3

SEXIT
sLOADED FROM AN RP04/5/6 ?
:BR IF NOT
sSTART WITH DRIVE 1
sSETUP FOR ONLY 7 DRIVES

ASNERR
PC

Ré

#8. .R3
PC,ASGN3
48

:RETURN HERE

IF DRIVE NOT AVAIL

; CONT INUE
sSTART WITH DRIVE 0
:DRIVE COUNT FOR 8 DRIVES
sASSIGN ALL UNASSIGNED, AVAIL DRIVES
¢DRIVE NOT ON SYSTEM

:gs =(SP)
PUT RETURN ADDRESS ON THE STACK
ASGN4
00K FOR MORE DRIVES
ATABIT(R4) AsuLsi DRIY; AgREADY ASSIGNED ?
sRETURN

ASGN'%
DTUW
1$
R4 .GENDPB
PC.RECALO
DRVSTA(R&)
ASGN7
ASGN6
R&

:BR_IF
)|
cDATA TRANSFER UNDER WAY ?
:BRIF IT IS

PC.CLRDPB
PC.DRVPRM
PC,GETID
PC.GETADR

:CLEAR BLOCK FOR DRIVE JUST ASSIGNED

PACK

?
;WRITE DATA PACK
;B8R IF NOT

;DRIVE NUMBER
;RECALIBRATE DRIVE
:DRIVE AVAILABLE?

:BR IF DRIVE OFFLINE OR NONEXISTENT
:BR IF DRIVE UNSAFE
MAKE R4 INTO WORD INDEX

BLKADR(R4) , nsuunf {R4) ;DPB ADDRESS
;PUT BLOCK'S ADDR INTO RO
BLKADR (R4) .RO

#1.$PASSC (RO)

sGET THE DRIVE'S ADDRESS LIMITS
sGET DRIVE I.D.
:GET BAD SECTOR ADDRESSES
:PRESET PASS COUNT 10 1

RP04/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 17-2
SUPPORT SUBROUTINES

024756
024764
024766
024770
024772
024774
024776
025002
025004
025012
025014
025020

113760

001216

000026

2s:

ASGN4:

000004

053662

ASGNS:
026750

034364

000207

ASGN6:

ASGN?7:

053605

026750

053626

026750

1$:

053514

026750

2%:
3s:

MOov8
ASR
DEC
BEQ
INC
BR
ADD
RTS
MOV
RTS
T1ST8
BEQ
BPL
MOV
BR
MOV
BR
MOV
RTS

PACK,$PACK(RO)
R4

R3
ASGNS
R4

ASGN3

#4,(SP)
PC
W#NOTSAF ,ASNMSG
PC

DRVTYP(R4&)
1$

SEQ 0117
;SET READ/WRITE DATA PACK INDICATOR
sRESTORE DRIVE ADDRESS

sDECREMENT DRIVE COUNT
¢BR IF FINISHED

s INCREMENT DRIVE NUMBER

s CONT INUE

¢ INCREMENT RETURN
sRETURN
; ‘UNSAFE® MESSAGE ADDRESS
:RETURN

:DRIVE PRESENT?
:BR IF NOT

:BR IF DRIVE OFFLINE

ggOTRP.ASNHSG

QQ?RESS OF

'NOT RP04/5/6' MSG

ggOTPRS.ASNflSG

22?$ESS OF

°'NOT PRESENT' MSG

:ADDRESS OF

°'DRIVE OFFLINE®'

FUNTOFF ,ASNMSG

sERROR RETURN

MESSAGE

001
024

—

005037
000137

[V, [,¥)

s'T' COMMAND (ROUTINE TO ASSIGN A DRIVE)
NEWASN:

CLR
JMP

PACK
ASSIGN

;CLEAR ‘W' COMMAND INDICATOR
:GO TO THE ASSIGN ROUTINE

b e

cd e

b Wb

b e

N
AININLIANLNLALNLNINNININONININAINIA)
vV
AW 1%,

N
NN
S BANWNWUNNIN
=2 =00 ~
OHMNOOONOON
B NONONONO &~

eloleleleleloleloleclaleleleleleleleclolale]

:'D' COMMAND {ROUTINE TO DEASSIGN A DRIVE)
005004
122715
001434
012703
111504

136437
001414
146437
006304
016464
006204
005303

DEASGN:

000101
000001

034470

001462

034470

001462

001740

001464

1%:

2$:

000101

053535
026730

3s:

026750

DEC

R4
#'A,(RS)

sDEASSIGN ALL DRIVES ?

#81700,R3

sSET R3 FOR ONE UNIT

ATABIT(R4) ASNLST

sDELETE THE DRIVE FROM THE ASSIGNED LIST
MAKE ADDR INTO A WORD INDEX
BkKADR(Rk)DUNIT(R4) sPUT ADDRESS IN DEASSIGN LIST
Ré

R3
43

BEQ

(MPB

JSR
RTS
MOV
B8R

:BR_IF_YES

(RS) R4
:GET DRIVE NUMBER
g;ABIT(Rk)ASNLST
?RIVSTASSIGNED ?

BEQ
INC
B8R
MOV

48
5%:

000010

CLR
CMPB
8EQ
MOV
MOVB
8IT8
BEQ
BI(B
ASL
MoV
ASR

sANY MORE DRIVES ?
:BR IF NOT

#'A, (R5)

sDEASSIGN ALL DRIVES ?

#UNTNOT ,ASNMSG

;ADDR OF

EE.ASNERR
qg..R3

:BR IF YES

'NOT ASSIGNED'

REPORT IT

MESSAGE

sSET UNIT COUNT TO 8

;'S" COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY)
SCMND:

000101

034470

001462

(LR
CMPB
BEQ

MOv8

BIT8

R4
#'A, (R5)

23
,R
(RS)

sALL STATISTICS ?
:BR_IF YES
GET DRIVE NUMBER
sSEE IF DRIVE ASSIGNED

ArAenmt.) ASNLS'I

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

SEQ 0118

GENERAL SUPPORT SUBROUTINES

172
173
174
175

176
177
178
179
180

025212
025214
025216
025222

025226
025230
025236
025242
025244

001406
006304
016400
004737

000504
012737
004737
000476
012703

001740
023200
053535
026730

026750

000010

188
189
190
191

025256
025260
025262
025264
025266
025270
025274
025300
025302
025306

192 025312

001004
005204
005303
001371
000464
004737
105737
001406
104401
104401

105737

023116
001220
054520
001220

001232

193 025316
194 025320

001404
104401

054530

197 025334

012737

043334

195 025324
196 025330
198 025342
199 025344
200 025350
201 025356
202 025360

104401
104401

005004
012703
136437
001417
010446

025362
025364
025365
203 025366

104403
002
000
104401

205 025376
206 025400

001003
104401

204 025372

207 025404

208 025406
209 025410
210 025412
211 025416
212 025420
213 025422
214 025430
215 025432
216 025434
5}; 025440

105777

000404

104401
000000
104401
005303
001405
062737
005204
000746
104401
000207

001232
054551

000010

034470

001462

224

JSR

PC,ASNERR

°'NOT ASSIGNED' MSG
:TYPE ERROR MESSAGE

2$:

BR
MOV

9s
#8..R3

48:

BNE
INC
DEC
BNE
BR
JSR

43
Ré
R3
38
9s
PC,STATPR

128:
S$:

8IT8

TSTB
BEQ
TYPE
TYPE

9s
NUNTNOT ,ASNMSG

:SEE IF °DATE' ENTERED
‘BR IF NOT
;'DATE: °
*THE OPERATOR ENTERED DATE

128
LIDIS

‘BR IF NOT
:'OPERATOR I.D.:

TYPE
TYPE

"OPERID
"HEDLIN

CLR
MoV
8IT8
BEQ
MOV

:BR'IF YES
:INCREMENT DRIVE ADDRESS
*DECREMENT COUNTER
SMORE TO CHECK
;NONE ASSINGED, RETURN
;TYPE ALL STATISTICS

DATE
118
LDATEIS
.DATE

OPERID

MOV

EXI
IVE COUNT

ATABIT(RS), ASNLS? sss IF DRIVE ASSIGNED

TSTB

BEQ
TYPE

SEXIT
:ADDR OF

*SEE IF OPERATOR [.D. ENTERED
°*

“THE OPERATOR 1. o.
*HEADER LINE

#DRIVEO+SDRVID,A$

:DRIVE 1.D. FIELD ADDRESS

Ré
:DRIVE ADDRESS
#8. .R3
*COUNTER
ATABIT(R4) ,ASNLST
;SEE IF DRIVE ASSIGNED
78
:BR IF NOT ASSIGNED
R4 ,=(SP)
::SAVE R4 FOR TYPEOUT
:;TYPE DRIVE NUMBER

053361

TYPOS
.BYTE
BYTE
TYPE

2
0

LLINGSP

::G0 TYPE--OCTAL ASCII
::TYPE 2 RIGIT(S)
::SUPPRESS LEADING ZEROS
:4 SPACES

054572

BNE
TYPE

108
NONE

:BR IF DRIVE I.D. PRESENT
:TYPE °*NONE'

000012

108:
6$:

001165
000304

78:
025410

001165

8s:
9$:

%}3
221 025442
ggg 025450

:BR IF NOT
;MAKE DRIVE ADDR INTO WORD INDEX
;ADDR OF BLOCK
rvpe DRIVE STATISTICS

BR
MoV

118$:

025410

18
Ré
BLKADR(R4)
,RO
PC,TYPEST

1$:

181 025250 136437 034470 001462 3$:

182
183
184
185
186
187

BEQ
ASL
MOV
JSR

1ST8

F133

TYPE
WORD
TYPE
DEC
BEQ
ADD
INC
BR
TYPE
RTS

0
LSCRLF
R3
8s
#SRPEC2+2,6%
R4
5%
.SCRLF
PC

;SEE 1. DRIVE I1.D. ENTERED

* CONTINUE

;TYPE THE DRIVE 1.D.
:ADDRESS OF DRIVE I.D. FIELD HERE
:CR-LF
DECREHENT THE COUNTER
SBR IF AT END
lnrnsnsnr THE MESSAGE FIELD ADDRFSS
: INCREMENT DRIVE ADDRESS
* CONT INUE
:CR-LF

;'W' COMMAND (ROUTINE TO WRITE A DATA PACK)
012737
000137

177777
024510

001216

DATAPK: MOV
JMP

#-1,PACK
ASSIGN

;SET THE W' COMMAND INDICATOR
;ASSIGN REQUESTED DRIVE

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

SEQ 0119

GENERAL SUPPORT SUBROUTINES

S%g
227 025454
228 025462

;'R' COMMAND (ROUTINE TO READ A DATA PACK)
012737
000137

000001
024510

001216

REDAPK: MOV
JMP

#1,PACK
ASSIGN

sSET THE 'READ' INDICATOR
sASSIGN THE REQUESTED DRIVE

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 18

D10

SEQ 0120

GENERAL SUPPORT SUBROUTINES
1

¢ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE

2
3

sCALL:

Mov

RETURN

7 025466
025456
025470

025472
8 025474
9 025500
10 025502
11
12
13
14

025506
025512
025514
025516

16
17
18
19

025524
025530
025532
025536

15 025520

20 025540

21 025544

22
23
24
25
26

025550
025552
025556
025560
025566

27 025572
28 025600

29 025606

010346
010446
010546

016046
010004
062704

012703
005024
005303
001375

062704

012703
005024
162703
001374

062704

012703

005024
162703
001374
113760
013701

116160
113760

106360

30 025612
31 025620

013760
013760

33 025632
025640

012760
132760

32 025626
35 025646

36 025650
37 025656
38 025662
025664
025666
28 025670

005460
001403

062760
012660
012605
012604
012603
000207

CLRDPB:

000262
000002
000005

18:

000002

000070

2$:

000002

000014

000162

3s:

000002

001434
001434

000024

JSR

Mov
MoV
MOV

#DP8,R0

:DPB ADDRESS

R3,-(SP)
R4 ,=(SP)
R5,=(SP)

:;PUSH R3 ON STACK
:sPUSH R4 ON STA(CK
::PUSH R5 ON_STACK

PC.CLRDPB

mMov
MoV
ADD

$RPDT(RO) ,-(SP) ;SAVE DRIVE TYPE
(REVD)
cGET THE DPB ADDRESS
#2,Ré4
sADDRESS OF FIRST LOCN TO BE CLEARED

ADD

#2,Ré4

ADD

ne.,

Mov
CLR
DEC
BNE

Mov
CLR
SuB
BNE

MOV

CLR
Sus
BNE
MOovB
MOV

#5,R3
(R4)+
R3
18

¢NUMBER OF
sCLEAR THE
sDECREMENT
:BR IF NOT

LOCNS TO BE CLEARED
LOCATION
THE COUNTER
FINISHED

#SNEXT-SREG,R3
(R4)+
#2,R3
23

:NUMBER OF LOCNS TO BE CLEARED
;CLEAR
:DECREMENT THE LOCN COUNTER
:BR IF NOT FINISHED

:MOVE THE ADDRESS PAST THE 'REG' ADDR

:MOVE PAST ADDRESS LIMITS

lSRPECZ-HINSEC RS

;NUMBER OF LOCNS TO BE CLEARED

(R4
;CLEAR A LOCATION
", R3
;:DECREMENT THE COUNTER
3s
:BR_[F NOT DONE
BEGCOD,$CODE(RO)
;INITIAL COMMAND CODE
BEGCOD ,R1
;GET THE ACTUAL OP CODE

001760
001432

000002
000030

001436
001436

000020
000004

MoV
MoV

000400
000001

000022
000024

Mov
8lrs

#256.,8SSEC(RO)
; INITIAL VALUE OF SECTOR SIZE
#1,$CODE (RO)
HEADER ORDER
?

000004
000262

000022

ADD
MoV
Mov
Mov
MoV
RTS

#4 ,$SSEC(RO)
(SP)+,$RPDT(RO)
(SP)+,R5
(SP)+,R4
(SP)+,R3
PC

000030
000004

Move
mova

RO,R4

ASLB
NEG

BEQ
48:

COMTBL(R1),$COMND (RO) ;OPERATION CODE
BEGPAT,SPATTC(RO) ;PATTERN CODE
SPATTC (RO)
;CONVERT CODE TO A TABLE INDEX
BEGSIZ,SWRDL(RO)
BEGSIZ ,SWRDM(RO)

$WRDM (RO)

48’

;BEGINNING RECORD SIZE
:VALUE FOR DATA TRANSFER

;MAKE IT INTO 2°'S COMPLEMENT
BR IF NOT

ADD HEADER SIZE TO SECTOR SIZE
;RESTORE DRIVE TYPE
(REVD)
:;POP STACK INTO RS
::POP STACK INTO R4
:;POP STACK INTO R3
;RETURN

sROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR

43 025672
44 025674
45 025676
46 025702
47 025704
48 025710
49 025712

010346
010446
005737
001035
104401
006204
010446

025714
025716

104403
002

000042
054415

DRVPRM: MOV
MoV
TST
BNE
TYPE
ASR
Mov

TYPQS
.BYTE

R3,-(SP)
R4 ,=(SP)
42
38
LENTLMT
R4
Ré4,=(SP)

:SAVE R3
:SAVE R4
:RUNNING UNDER MONITOR CONTROL
:BR IF YES
s ‘ENTER ADDRESSES'
:CONVERT INDEX TO DRIVE NUMBER
:;SAVE R4 FOR TYPEOUT

..TYPE DRIVE NUMBER
:GO TYPE--OCTAL ASCII
$3TYPE 2 DIGIT(S)

E 10

CZRJDEO RPO4/5/6 MLT~DR LGC MACRO v04.00 S-MOV-81 09:16:17 PAGE 18-1
GENERAL SUPPORT SUBROUTINES

025717
50 025720
51 025726

000
104401
012737

53 025740
56 025742

001012
012737

52 025732

132764

025770

BYTE
TYPE
MoV

053716

025770

BNE
MoV

053723

025770

055074
053711

000001

034364

55 025750 132764 000002 034364
56 025756

001003

57 025760
58 025766
59 025770
60 025772

012737
104401
000000
104401

63 026012
64 026014
65 026022
66 026030

001403
012737
062760
103417

61 025776
62 026004

67 026032
68 026040
69 026044
70 026052

012737
132764

001165

000632
000004

001350
034364

001456
177777

001350
000122

013760
005060
013760
005060

001350
000110
001346
000114

000106

005060
006304
016403

000120

004737

026604

116060
016060
012604
012603
000207

000114
000110

3$:
4$:

000112

71 026056 013760 001344 000116
72 026064
73 026070
74 026072

75 026076
76 026104
77 026112
78 026116

013763
013763
005737
001002

80 026124

116060

79 026120

81 026132
8¢ 026140
83 026146
84 026150
gg 026152

055254

001350
001350
000042

000120

000010
000011
000012

6S$:

18
#RPOS

BR IF
YES
DRESS OF

:BR’ I

P04
?

8lT8

#81701,DRVTYP(R"

P05?

'RPO5' MESSAGE

YES

MoV
TYPE
.WORD
TYPE

#RP06,2%
O
.S$CR

:ADDRESS OF °'RP06' MESSAGE
sTYPE THE MESSAGE WHICH FOLLOWS
:MESSAGE ADDRESS
sCR=LF

BEQ
MoV
ADD
BCS

43
#814. ,CYLIMT
#-1,8FIRST(RO)
58

:BR"IF _NOT
sCHANGE LIMIT TO 814
SEE IF FIRST TIME STARTED
B8R IF NOT

MOV
8IT8

#410 CYLIHT
<ASSUME AN RP04/S
#81T02,DRVTYP(R4) ;SEE IF RPO6

MoV
CLR
MoV
CLR

CYLIMT, HAXCYL(ROS ;LOAD MAXIMUM CYLINDER
MINCYL (RO)
CLEAR MINIMUM CYLINDER
TRKLMT, HAXTRK(ROS LOAD MAXIMUM TRACK
MINTRK (RO)
AR MINIMUM TRACK

CLR
ASL
MoV

MINSEC (RO)
R4
TABLE (R4) ,R3

SECLMT, HAXSEC(ROS :LOAD MAXIMUM SECTOR

;CLEAR MINIMUM SECTOR
:SETUP TO ADDRESS WORDS
sPARAMETER TABLE ADDRESS

MoV
MoV
TST
BNE

CYLIMT,2(R3)
CYLIMT,10(R3)
42
6$

MOovB

MINSEC(RO) ,$SEC(RO)

JSR

Movs
MoV
MCv
MOV
RTS

PC,PARENT

sLOAD CYLINDER LIMIT FOR LAST CYLINDER
;LOAD CYLINDER LIMIT FOR STARTING CYLINDER
UNDER MONITOR CONTROL ?
:BR _IF YES

;GET THE DRIVE'S PARAMETERS

;INITIAL SECTOR VALUE

MINTRK (RO) .$TRK(RO)
:INITIAL TRACK VALUE
MINCYL
(RO) ;$CYL(RO)
:INITIAL CYLINDER VALUE
(SP) +,R4
sRESTORE R4
(SP)+,R3
sRESTORE R3
PC
sRETURN

sROUTINE TO GET THE DRIVE I.D. FROM THE OPERATOR

89 026154
90 026156
91 026162
92 026164
93 026170
9 026174
95 026176
0262
97 026202

010546
005737
001036
005037
104401
005046
111016
104403
002

0262
100 026210
01 026212
02 026214
03 026220
04 026222
05 026226

1064401
104411
012605
005737
001361
121527
001414

98 026203

000002
000010

:;SUPPRESS LEADING ZEROS
/'’
ADDRESS OF 'RPO4' MESSAGE

#B1T00.DRVTYP (R4

MoV
58:

0
. SLASH
#RPOLB, 28

81718

BNE
18:
2s:

SEQ 0121

000042
001262
054370

001165
001262

000056

GETID:
1$:

MOV
1ST
BNE
CLR
TYPE
CLR
Movs
TYPQS
.BYTE

.BYTE

TYPE
RDLIN
MoV
TST
BNE
CMPB
BEQ

R5,=(SP)
42
23
CFLAG
.ENTDRV
=(SP)
(RO), (SP)
2

-SCRLF

(SP) +,R5
CFLAG
18
(R5) ,#4°.
23

:SAVE R5
cUNDER MONITOR CONTROL ?
:BR_IF NOT
;CLEAR THE °*CONTROL C* FLAG
s "ENTER DRV I.D.:
:CLEAR THE STACK
:PUT THE DRIVE NUMBER ON THE STACK
sTYPE THE DRIVE NUMBER
:TYPE 2 DIG

: SUPRESS LEADING ZEROS

:CR-LF
:READ THE ENTRY
sGET THE ENTRY ADDRESS
s 'CONTROL C*® ENTERED ?
:BR_IF IT WAS
sPERIOD ENTERED ?
:BR IF YES

F 10
CZRJDEO RP04/S/6 MLT-DR LGC MACRO VO04.00 S-NOV-81 09:16:17 PAGE 18-2
GENERAL SUPPORT SUBROUTINCS
106 026230
109 026236

026240
026244
026250
026254

110 026260
}}5 026262

112560
112560

112560
112560
112560
112560

012605

000224
000225

000226
000227
000230
000231

000207

}12

MOVB
MOVB
MOVB

28:

SEQ 0122

(RS)+,S$DRVID(RO)
;STORE THE I.D.
(R5)+.$DRVID+1(R0) " ;STORE THE 1.D.

MOVB
MOVB
MOVB

(R5)+.$DRVID+2(RO)
(R5)+.$DRVID+3(RO)
(R5)+.$DRVID+4(RO)
(R5)+.S$DRVID+5(RO)

RTS

MoV

(SP) +.RS

:STORE
STORE
:STORE
:STORE

;RESTORE RS

THE
THE
THE
THE

I.D.
I.D.
1.D.
I1.D.

*RETURN

JPOUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16)

115 026264
026264
026266
026270
026272
116 026274
117 026300
118 026302
119 026306
120 026312
121 026314
122 026316
123 026320
124 026321
125 026322
126 026326
127 026332
128 026336

010146
010246
010346
010446
005737
001012
005037
104401
005046
111016
104403
002
000
104401
012703
012704
060004

130 026344
131 026346
132 026350
133 026354
134 026356
135 026362
136 026366
137 026370
138 026372
139 026376
140 026400
026404

005303
001374
005737
001106
162704
012703
104411
012601
005737
001341
013702
004537

129 026340

012724

026410
026412
026414
026416
026420
026622

026552
026572
026552
026430
026434
026424

142 026426

000461

141 026424

143 026430

144 026432

145 026434

146 026436

026442
026446
026450

GETADR:

000042

001262
054455

14$%:

001165
000040
000124

158:

177777

18:

000042

000100
000020

2s:

001262
001350
030144

010214

48:

010214

5%:

000442
013702

004537
026552
026572

001346

030144

MOV
MOV
MOV
MOV
ST
BNE
CLR
TYPE
CLR
MOVB
TYPOS
.BYTE
.BYTE
TYPE
MOV
MOV
ADD

MOV

R1,=(SP)
R2,-(SP)
R3,~(SP)
R&,=(SP)
42
15$
CFLAG
,ENTADR
<(SP)
(RO),(SP)

0
,$CRLF

#32..R3
#$BDSEC R4
RO,R%

#-1,(RG)+

DEC
BNE
TST
BNE
sus
MOV
RDL IN
MOV
ST
RNE
MOV
JSR

R3
13
42
13
#64. R4
#16..R3

MOV

R2, (R4)

MOV

R2, (R4)

MOV

R2, (R4)

JSR
12
138

RS,CK.DIG

12
138
128
4
58
3s

MOV

(SP)+,R1
CFLAG
148
CYLIMT,R2
RS.CK.DIG

::PUSH
2:PUSH
::PUSH
*3PUSH

R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
:UNDER MONITOR CONTROL ?
*BR IF YES
JCLEAR °*CONTROL C' FLAG
*ENTER SECTOR ADDRESSES
*CLEAR THE STACK
:PUT THE DRIVE NUMBER ON THE STACK
:TYPE THE DRIVE NUMBER
STYPE 2 DIGITS
*SUPRESS LEADING ZEROS
SCR-LF
*NUMBER OF LOCATIONS IN THE TABLE TO PRESET
“TABLE INCREMENT
:BLOCK STARTING ADDRESS

<SET LOCATION TO 1°S

*DECREMENT TABLE SIZE COUNT
:BR IF NOT FINISHED WITH TABLE
*UNDER MONITOR CO TROL ?
*BR IF YES
:SET POINTER TO BEGINNING OF TABLE
*NUMBER OF ADDRESSES IN TABLE
*GET ADDRESS FROM OPERATOR
STEXT POINTER
s *CONTROL C* ENTERED ?
:BR IF IT WAS
:UPPER LIMIT OF INPUT
:CHECK THE DIGIT(S)

:CARRIAGE RETURN ONLY ENTERED
:PERIOD ONLY ENTERED
:ILLEGAL INPUT
:TERMINATED WITH A CARRIAGE RETURN
STERMINATED WITH A *,*
STERMINATED WITH A ''.*

*CYLINDER ADDRESS

13$

:EXIT, PERIOD ENTERED

11$

sFINISHED WITH THIS ADDRESS, "CR*® ENTERED

TRKLMT,R2

*CYLINDER ADDRESS

SCYLINDER ADDRESS
:UPPER LIMIT OF

INPUT
:CHECK THE DIGIT(S)
*CARRIAGE RETURN ONLY ENTERED
:PERIOD ONLY ENTERED

SEQ 0125

R2,3(R4)

000003

R2,3(R4)

000003
001344
030144

R2,3(R4)
SECLMT,R2
R5,CK.DIG

13$

11$

000002

R2,2(R4)

000002

R2,2(R4)
R3
138

13§

H
N

000676

5 026602

054600

#4 R4

000002

128:

138:

012604
012603
012602
012601
000207

MoV
TYPE
BR

MOV

MoV
MOV
MOV
RTS

#-1,(R4)
#-1,2(R4)
BADENT

(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+
R1

sPARAMETER ENTRY ROUTINE
s CALL
#ADR,R3
MOV
JSR

010346

001262
026622

: MOV
PARENT

18:

3s:

NOMWN

WN—‘O‘OQNO‘MJ\WN—'OON\Jg

000003

o
Y

b
b
d
ed
b o
b
b
b

s JLLEGAL INPUT
cTERMINATED WITH A CARRIAGE RETURN

177777
177777

b
b e
b e
d
b
b mcd
md
e
d e
b
b
b
b emd
b e
b o

026552

000004

[0 Y Yo JV, IV, IV, LV IV, IV, ]V ]
=OVONOWNSW

026452

GENERAL SUPPORT SUBROUT INES

026656

026612

CLR

PC,PARENT

R3,-(SP)

MOV

8EQ

0
(R3)+,R2
(R3)+,RS
(RS) ,=-(SP)

055074

+SLASH

001262

R1
(SP)+
CFLAG

030144

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

8s
R5.CK.DIG

sTERMINATED WITH A ',*
sTERMINATED WITH A *'.°'

¢ TRACK ADDRESS
cEXIT, ENTRY TERMINATED BY PERIOD
¢ TRACK ADDRESS

sFINISHED WITH THIS ADDRESS,
s TRACK ADDRESJ

°‘CR'

ENTERED

sUPPER LIMIT OF INPUT
cCHECK THE DIGIT(S)
s CARRIAGE RETURN ONLY ENTERED
sPERIOD ONLY ENTERED
sILLEGAL INPUT
sTERMINATED WITH A CARRIAGE RETURN
sTERMINATED WITH A *',"
s TERMINATED WITH A ‘"""

:SECTOR ADDRESS
sEXIT, ENTRY TERMINATED BY PERIOD
sSECTOR ADDRESS
¢MORE ENTRIES ?
:BR IF NOT
cINCREMENT THE TABLE POINTER
s CONTINUE
sCLEAR PRESENT TABLE ENTRY
sCLEAR PRESENT TABLE ENTRY
s 'INVALID ENTRY'
:TRY AGAIN

::POP STACK
::POP STACK
;:POP STACK
::POP STACK
sRETURN

INTO R4
INTO R3
INTO R2
INTO R1

sPARAMETER TABLE ADDRESS
:GET THE PARAMETERS

sSAVE THE PARAMETER TABLE ADDRESS
sCLEAR THE °'CONTROL C® FLAG
cADDRESS OF PARAMETER NAME
cBR IF AT END OF TABLE
sTYPE THE PARAMETER NAME
sADDRESS OF PARAMETER NAME TEXT
sMAXIMUM PARAMETER VALUE
cADDRESS OF PARAMETER
s CURRENT VALUE OF PARAMETER
:IY;E.THE CURRENT VALUE OF THE PARAMETER
sREAD THE KEYBOARD

¢ INPUT ASCII STRING ADDRESS
s "CONTROL C' ENTERED ?
:BR IF IT WAS
sCHECK THE DIGIT(S)
sCARRIAGE RETURN ONLY ENTERED

SEQ 0124

GENERAL SUPPORT SUBROUTINES

026660
026662
026664

026670

188 026672
189 026674
190 026676
191 026702
192 026706
193 026710
194 026712
195 026714
196 026720
197 026722
198 026724

333 026726

026724
0266,
026672
026676

9s
63
5%
6$

026710

010215
000746
104401
162703
000741
010215
000404
005037
011603
000733
005726

5$:

054600
000006

68:
78:

001262

8s:

9%:

000207

MoV
BR
TYPE
sus
BR
MOV
BR
CLR
MOV
BR
TST

RTS

;PERIOD ONLY ENTERED

JILLEGAL INPUT
*TERMINATED WITH A CARRIAGE RETURN
STERMINATED WITH A °
R2.(RS)
18
+BADENT
#6,R3
1$
R2.(RS)
9%
CFLAG
(SP) ,R3
18
(SP)+

STERMINATED WITH A """

*MOVE NEW VALUE TO PARAMETER LOCATION
'GET MORE PARAMETERS
:'BAD ENTRY'
*DECREMENT THE TABLE POINTER
;TRY AGAIN
*NEW VALUE
SEXIT
“CLEAR THE "CONTROL C°' FLAG
JRELOAD THE PARAMETER TABLE ADDRESS
:TRY AGAIN
sCORRECT THE STACK POINTER

:RETURN

%8}

:EXEEOUT ASSIGN/DEASSIGN ERROR MESSAGE

203
204

:
:

%82

207 026730
208 026734
209 026740

104401
104401
010446

026742
026744

104403
002

026745
210 026746
211 026750
212 026752
g}z 026756

000
104401
000000
104401
000207

054323
053506

MOV
JSR

RETURN

ASNERR: TYPE
TYPE
MOV
TYPOS
BYTE

BYTE
TYPE
ASNMSG: .WORD
TYPE
RTS

001165

215
216

#iHESADR ,ASNMSG
PC,ASNERR

:ERROR MESSAGE ADDRESS

LQUES
LUNTMSG
R4 ,-(SP)

:QUESTION MARK
:TYPE °‘DRIVE'
::SAVE R4 FOR TYPEOUT
;:TYPE DRIVE NUMBER
;360 TYPE=--QCTAL ASCII
2:TYPE 2 DIGIT(S)
:;SUPPRESS LEADING ZEROS
:TYPE SPECIFIC MESSAGE
:MESSAGE ADDRESS

2
0
0
L$CRLF
PC

:DEASSIGN DRIVE IF A FATAL ERROR OCCURS
sCALL

217

220 026760
221 026762
222 026764
223 026772
224 026774
225 027000
226 027004
227 027010
228 027014
229 027020
230 027022

005004
111004
146437
006304
010066
104401
104401
104401
104401
006204
010446

027024
027026
027027
231 027030

104403
002
000
104401

034470
001464
001165
001165
054104
054213

001165

001462

;

JSR

PC.,DROP

DROP:

(LR
MOVB
BI(B
ASL
MOV
TYPE
TYPE
TYPE
TYPE
ASR
MOV

R4
;CLEAR R4 FOR DRIVE NUMBER
(RO) ,R4
*MOVE DRIVE NUMBER TO R&4
ATABIT\RQ) JASNLST
;REMOVE DRIVE FROM ASSIGNED LIST
:MAKE DRIVE NUMBER INTO A TABLE INDEX
RO DUNIT(R4)
*PUT DRIVE IN ODROP LIST
L$CRLF
.SCRLF
.DROPNG
TYPE 'DROPPING DRIVE"®
.DRNUM
:'DRIVE #
R4
*DRIVE NUMBER
R4 ,=(SP)
*:SAVE R4 FOR TYPEOUT

TYPOS
BYTE
BYTE
TYPE

2
0

LSCRLF

::TYPE DRIVE NUMBER
::G0 TYPE=-=-OCTAL ASCIl
J:TYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS

—

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

—

CZRJDEO RPQ4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 18-§

GENERAL SUPPORT SUBROUTINES

%%g 027034

%%g

236 027036
237 027044
238 027046
239 027054
240 027056
241 027062

000207

032777
001006
023760
103002
000137
000207

RTS

000020

152074

001406

000056

026760

sROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE

ABNRML: BIT
BNE
CMP
BHIS
JMP
1$:
RTS

#SW04 ,3SWR
sSEE IF SWITCH 4 SET
18
sBR IF IT'S SET
MAXER,S$TOTAL(RO)
;CHECK TOTAL ERROR VALUE
18
:BR IF ERRORS DONOT EXCEED MAX
DROP
sDEASSING THE DRIVE
PC
¢RETURN

SEQ 0125

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

J 10

SEQ 0126

NS W)=

END OF PASS

NOAV S NN = OO0

005737

END OF PASS

001430

EOP:

TST
BEQ

000054

001374

000052

001372

CMP
BHI
BLO

CMP
BHIS
BR

000510
026037

000044

001400

026037

000042

001376

101005
103503

-y

103477
104401
104401

o
N
~

CoO~NO
NOM\WNS W N =2 OV

103012

o
N

NN
NINIPNINININI
NN =D b cd ed d ed = d b b

.SBTTL

¢ROUTINE TO CHECK FOR END OF PASS AND END OF TEST

104401

29 027212

013746

027216
027220
027221
30 027222

104403
002
000
104401

32 027230
33 027234

027240

000431

104401
013746

EOP1:

EOP2:

001165
054140
000070
001246
000020

151759

000070

001402

054154

054213
001246

TYPOS

001165
054213

001246

1%:

104403
002

012703

42 027272
43 027274
44 027276
45 027300
46 027302
47 027304
48 027310
49 027312

005024
005303
001375

000412
104401

.BYTE
TYPE
BR
TYPE
MOV

EOP1

EOP2
EOP1Y
EOPX

§Po§1102<a0)+ENDSEK+2
s CHECK MSW OF SEEK COUNT
;BR IF MSW GREATER THAN LIMIT
ECP
JEXIT IF MSW LESS THAN LIMIT
SPOSIT(RO) ENDSEK sCHECK LSW OF SEEK COUNT
EOPX
JEX ITFIF LSW LESS THAN LIMIT
+SCRLF
=L
ENDPAS
¢END OF PASS FOR THE DRIVE

$PASSC (RO) ,-(SP)’

(RO) ,UNIT
#SW04 ,3SWR
?
:SUITCH & SET
1$
:BR IF SET
?gASSC(RO).PASCNT
sSEE IF AT END OF TEST
:BR"IF NOT
sTYPE 'END OF TEST®
LENDTST
:'DRIVE #°
.DRNUM
UNIT,-(SP)
::SAVE UNIT FOR TYPEOUT

oiCRLF
s

- DRNUM

UNIT,=(SP)

#SOPERC, R4

(R4)+
R3

(SP) +,R4

(SP)+ R3
$PASSC (RO)

000070
001165

3s:

:PUT PASS COUNT ON THE STACK

;CONVERT PASS COUNT TO DECIMAL AND TYPE IT
:STORE THE DRIVE NUMBER

#8..R3

2$:

cCHECK MSW OF WORDS READ COUNT

:BR IF MSW GREATER THAN LIMIT
:BR IF MSW LESS THAN LIMIT
:REQD(RO)LENDCON’ ;CHECK LSW AGAINST LIMIT
E;IIF EQUAL OR GREATER

PC.TYPEST

000036
000010

END OFSEesg DETERMINED BY SEEKS OR WORDS ?

SREAD+2(R0), ENDCON+2

2
0
L$CRLF

001165
023200

20 027266

CMP
BHI
8LO
CMP
BLO
TYPE
TYPE
MOV
TYPDS
mMovs
BIT
BNE
CMP
BLO
TYPE
TYPE
MOV

ENDET

EOQPX

JSCRLF

s TYPE DRIVE NUMBER
::GO TYPE--OCTAL ASCII
:sTYPE 2 DIGIT(S)
..SUPPRESS LEADING ZEROS

sCR-L
DEASSIGN THE DRIVE
:'DRIVE
#

: s SAVE UNIT FOR TYPEOUT

:cTYPE DRIVE NUMBER
;560 TYPE==OCTAL ASCI!
;s TYPE 2 DIGIT(S)
: - SUPPRESS LEADING ZEROS

sCR-LF

TYPE THE DRIVE'S STATISTICS

:SAVE R3

:SAVE Ré&
;DRIVE'S BLOCK ADDRESS
sADD THE STARTING ADDR OF SECTIONS TO CLEAR
sNUMBER OF LOCNS TO BE CLEARED
: (ERROR COUNTERS NOT CLEARED)
sCLEAR THE LOCN
sDECREMENT THE LOCATION COUNTER
¢8R IF MORE TO GO
sRESTORE R4
cRESTORE R3
:égf?EHENT THE PASS COUNT

]

K 10
CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOvV-81 09:16:17 PAGE 19-1

SEQ 0127

END OF PASS

50 027316
51 027320

005004
111004

53 027330
56 027332
55 027336

006304
010064
000207

52 027322

146437

034470
001464

001462

CLR
MOVb

R4
(RO) ,R4

;CLEAR R4 FOR DRIVE NUMBER
:MOVE DRIVE NUMBER

ASL
Mov
RTS

Ré
RO,DUNIT(R4)
PC

;MAKE DRIVE NUMBER INTO TABLE INDEX
sPUT BLOCK ADDRESS INTO DROP LIST
H

8i(8
EOPX:

ATABIT(R4) ,ASNLST

~:DELETE DRIVE FROM ASSIGNED LIST

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

L 10

SEQ 0128

=2 OO 00 NO

sROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER
S CALL
;
MOV
NUMBER, RS
:DIVISOR INTO RS
PC,GETREM
JSR
;
;
RE TURN
;REMAINDER IS IN RS
033634
033632

027340
027344

027366

~
W

(=]
~N

PON) b d ed b ed ed cd e e cand

L ANNI) = OO G0 NONN SN NP =

END OF PASS

GETREM: MOV
MOV
MOV
JSR
MOV
ST

NOP
RTS

027364

SLONUM,-(SP)
$SHINUM.-(SP)
RS ,-(SP)
PC.LINKDV
(SP)+,RS
(SP)+

;STORE RANDOM NUMBER ON THE STACK FOR DIVIDE
: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

:
027366

%2 027374

31 027430

104412
016605
005004
016602
016603
005000
005001
004737
010166
010366
104413

000026

LINKDV: SAVREG

MOV

027434
006020
000032

;
:
:
;

JSR
MOV
MOV

PC.M.DPID
R1.30(SP)
R3.32(SP)

;60 TO THE DIVIDE ROUTINE
*REMAINDER ON THE STACK
SQUOTIENT ON THE STACK

(SP)+, (SP)
PC

*CLEAR OTHER DIVIDEND REGISTERS

*RESTORE RO - RS
*MOVE RETURN UP THE STACK

DIVISION UTILITY SUBROUTINE

RO-R1-R2-R3=DIVIDEND

R4-RS=DIVISOR
RO-R1=REMAINDER AFTER DIVISION
R2-R3=QUOTIENT AFTER DIVISION
ENTER WITH JSR PC.M.DPID

000002

NEG

MOV
MOV

#40,~(SP)

;COUNTER FOR DIVISION CYCLES

R4, ~(SP)
RS.=(SP)

*HIGH ORDER
*LOW ORDER DIVISOR TO THE STACK

NEG

asP

*VERSION OF

ADD
ADC

asP,R1
RO

;PERFORM THE INITIAL SUBTRACTION

8CS

M.DP50

:IF CARRY THEN OVERFLOW HAS OCCURRED

ROL
ROL
ST

R1
RO
asp

SBC

ADD

CLR
M.DP40: ROL
ROL

001410

SOTHER DIVISOR WORD

Etg

M.DPID: MOV

000002

*DIVISOR

*UPPER DIVIDEND WORD
*LOWER DIVIDEND WORD

000040

000002

:STORE RO = RS

30(SP) .R2
32(SP) .R3

RESREG
MOV
RTS

012746

MOV
MOV

012616
000207

26(SP) RS

CLR

000030
000032

41 027434
42 027440
43 027442
44 027444
45 027450

CALLING SEQUENCE TO BE USED

BEQ

2(5P)

2(SP)

2(SP) RO

-(SP)
R3
R2

M.DP41

*FORM NEGATIVE

THE DIVISOR

:THIS IS A LONGER LASTING CARRY BIT

<TEST

*‘CARRY'* INDICATOR

:1F NO ""CARRY'' THEN ADD ELSE SUBTRACT

mn10
CZRJIDEO RP04/S/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 20-1

SEQ 0129

END OF PASS

58 027506
59 027510
60 027514

005016
066601
005500
005516
066600
000404
060501
005500
005516
060400
005516

CLR

000002

ADD
ADC

000004

M.DP4?

ADC

;ADD +(DJVISOR)
sSET ‘'CARRY'’

aSP

sSET "'CARRY’’
cTEST THE UPDATE INDICATOR
cIF ZERO FORGET IT
sNO CARRY POSSIBLE HERE
sDECREMENT COUNTER
¢BRANCH IF MORE TC DO

M.DP42: ADC

BEQ

INC
DEC
BGT

86 027610

asP

.44

R3
6(SP)
M.DP4L0

ADD

#10,$P

M.DPSO: ADD

SEV
RTS

000207

RS.R1

R3
M.DP44
RS.R1
RO
R4 ,RO

LV
RTS

4(SP) ,RO:
<=

ROR
BCS
ADD
ADC
ADD

cLe
M.DP44: ROL

000006

;ADD =(DIVISOR)
;SET *'CARRY'’

asP

M.DP41: ADD

000010

2(SP) .R1
RO

ADC

ADD

000006

:CLEAR UP FOR NEXT TIME

asP

¢~

sADJUST STACK BY 4 WORDS

#6,SP
PC

JROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES
*CALL
= (SP)
#ADR
MOV
;
cADDRESS OF NUMBER (IN ASCII)

JSR

REPLZ:

MOV

==
QOOOQO=0ON)
=20 ~+
NN = NOWVN=NONNLINO
NNO NNNINONOWNWNO
W=QO=NO
OO =&HH
NOOWO=OOH-hOOONOO

NOONSMNO

SoRRRRee

SUSINNNNS

~
o
~
L

[elelelsleleclelalolelelelela]
NINIRLRONONY

SUWN=OV~N

000012
000006
000060

18:

000040
28:
000060
000006
027672

JWORD

MOV

SUB
MOV
(MP8
BNE
MOVB
INC

B8R

IST8
BNE
DEC

027672

3$:
48:

RS ,REPLZ

;'N' IS NUMBER OF DIGITS TO BE TYPED

RO,=(SP)

:SAVE R0
sMAXIMUM NUMBER OF DIGITS TO BE TYPED
sSUBTACT DIGITS TO FORM INDEX
sADDRESS OF NUMBER TO RC
;BYTE EQUAL TO ASCII *0' ?

#10..-(SP)

(RS)+, (SP)
6(SP) ‘RO
#'0, (RO)
2
#40, (RO)
RO

(RO)
38

MOVB
MOV
ADD

#'0, (RO)
6(SP) .48
(SP)+.48

.WORD
MOV

0
(SP)+,R0

RTS

TYPE

MOV

(SP)+. (SP)

:B;B8R
R
| _IF NOT

cREPLACE THE ZERO WITH A SPACE
s INCREMENT THE BYTE ADDRESS
:GO BACK AND LOOK FOR MORE LEADING ZEROS
sSEE IF ZERO BYTE TERMINATOR
;BR IF NOT

sBACKUP STRING POINTER
sPUT A ZERO BACK IN
sPUT ADDRESS IN LOCATION FOR TYPEOUT
sBEGINNING OF SIGNIFICANT DIGITS
sTYPE THE NUMBER

;ADDRESS OF NUMBER
sRESTORE RO
sMOVE RETURN ADDRESS
s

RETURN

N 10

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

SEQ 0130

OO\ OO NN WIWAWAWVWAWAWIWL S B8 8N N 85 85 8 35 85 85 W WHN N N N NN N NN N PO NI N N NININI N = =
—d =
VIS NN = O V0NN
W= OV
NS NN = O V00NN
NN = O V00NN AW
= O 000 ~O W

END OF PASS

. TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS

D e

sCALL

)

.
:

$SUPRS: MOV
MOV
18:
TST8

ced i

000004

d e

000060

2s:

027732

027740

D e

) e

3s:

e
D
)
b ad
b
)

177776
000200
027764
032570

177776

RO,-(SP)
4(SP) ,RO
(RO)

sSAVE RO

23
#'0,(RO)+
1$
RO
RO,3$

.WORD

MOV
RTS

(SP)+,(SP)
PC

DISPLY

MOV

(SP)+,R0

sP1CKUP THE POINTER
s TERMINATOR
?

:BR IF YES
;1S THIS AN ASCII
:BR IF YES

'0*

:BACKUP BY '1°
:SAVE FOR TYPING
;GO PRINT

cASCIZ POINTER GOES HERE

sRESTORE RO

JRESTORE THE STACK
¢RETURN

L [01")
Moy

JSR
.WORD
RTS

a#PsS,~-(SP)

#200,84PS
(R5)+,1%
PC,.$TYPE
0
RS

¢SAVE THE PRESENT STATUS
: CHANGE THE PRIORITY TO 4
sMESSAGE ADDRESS

s TYPE THE MESSAGE

sMESSAGE ADDRESS GOES HERE
¢RETURN

gOEIINE TO TYPE ERRORS

:
.
H

=D
D
b
b
d ——d

sFIRST ADDRESS OF ASCIZ STRING

BEQ
(MPB
BEQ
DEC
MOV

TYPRI4: MOV

1$:

b e cmd

027742
027746
027754
027760
027764
027766

027770
027776
030000
030004
030010
030014

032777

000002

020000
177776
032570
000002

D cnd amd td

b cd

#NUMADR ,-(SP)
PC,$SUPRS

;ROUTINE TO TYPE AT PRIORITY &

151142

DISPLY
ME SADR
RETURN

$DSPLY: BIT
BNE
CLR
JMP
18:
ADD
RTI

sTHIS ROUTINE

sMUST DEFINED IN 'TRAP' TABLE
sADDRESS OF MESSAGE
iT13,3SWR
18
aAPS
$TYPE
#2,(SP)

s INHIBIT ERROR TYPEOUT ?
:BR_IF YES
sSET PRIORITY TO ZERO

sTYPE THE MESSAGE

: INCREMENT THE RETURN
¢RETURN

IS USED TO CHECK IF AN

:éif{l CHARACTER IS A DIGIT BETWEEN O AND 7.
#ADR,R1
RS,CK.JCT
JSR
RE TURN1
RE TURNZ

=T
¥
)
OQONON
NS NN

b b b |

b
b
b wed
b

=ONON

b md e

wd wmd

MOV

ud
b
b ad

MOV
JSR

000060
000067

(K.0CT:

CMPB
8LO
CMPB
BHI
Movs

(R1) .40
1$
(R1) 47
1%
(R1) ,R2

sADDRESS OF ASCII CHARACTER
sCHECK THE CHARACTER
sCHARACTER IS NOT BETWEEN 0-7
sCHARACTER IS IN R2 AS A
cOCTAL DIGIT
LESS THAN ZERO?
; YES
== BRANCH
GREATER THAN SEVEN?
;YE
RANCH

SGET THE CHARACTER

SEQ 0131

END OF PASS

172 030034

042702

};g 030042

000205

173 030040

005725

177770
1$:

BIC

#4C7,.R2

RTS

176

;THIS ROUTINE

179
180
181

:
;
:

}gg

};g

;
030044
030050
030052
030056
030060
030062

}

030070

ERIRERE

28T

185
186
187
188
189
190

030066

121127
103407
121127
101004
111102
042702

005725

000060

*RETURN

IS USED TO CHECK AN ASCII CHARACTER
#ADR,R1
RS.CK.DEC

RE TURN2

;ADDRESS OF ASCII CHARACTER
SCHECK THE CHARACTER
SNOT BETWEEN O AND 9

‘BETWEEN 0 AND 9

‘R2 = DIGIT

CMPB
BLO
CMPB
BHI
MOVB
BIC

(R1),.#'0
18
(R1).#'9
18
(R1),R2
20 R2

;LESS THAN ZERO?
:YES == BRANCH
*GREATER THAN NINE?
:YES == BRANCH
:GET THE CHARACTER
*STRIP AWAY THE ASCII

1$:

RTS

*RETURN

000060

000205

MOV
JSR
RE TURN1

CK.DEC:

000071

(RSS+

*ADJUST FOR RETURN

sTHIS ROUTINE WILL CHECK AN ASCII CHARACTER TO
;DETERMINE WHAT IT 1IS.
$CALL
;

MOV

#ADR,R1

;ADDRESS OF ASCI]

;
;

RETURN
RETURN

ADR?
ADR3

:CARRIAGE RETURN * (R1)=ADR+1
SCOMMA + (R1)=ADR+1

(R1)
3s
(R1).4',
2s
(R1).2'.
18

RS.CK.DEC
48
RS,CK.OCT

;*'CARRIAGE RETURN'"?
:YES =~ BRANCH
2 'COMMA’
2
SYES -- BRANCH
**PERIOD'*?
*YES =~ BRANCH
SPIGIT?
:NO == BRANCH
SOCTAL ?

(RS) +

:DIGIT BETWEEN 0-7

;
;

200
201

202
203
204
%82

;
:
;
;

207 030072
208 030076
209 030076
210 030102
211 030106
212 030110
213 030112
214 030116
215 030120

105711
001417
121127
001413
121127
001407

217 030126

005725

216 030124

218 030130

219
220
221
222
ggz

;STRIP AWAY THE ASCII

:ADJUST FOR RETURN

‘?fiELDETER"‘"E IF IT 1S A DIGIT BETWEEN O AND 9.

182

191

(RS) +

030132
030134
030136
030140
030142

004537
000410
004537

005725

005725
005725
005201
011505
000205

000054

000056

030044
030016

JSR
RETURN
RETURN
RETURN
RETURN

CK.CHR: TSTB
BEQ
CMPB
BEQ
CMPB
BEQ
JSR
BR
JSR

1$:

28:
38:
48:

TST

ST
ST
INC
MOV
RTS

RS, CK.CHR
ADRT
ADR&
ADRS
ADRé

(R§)+"

(R5) +

(RS) +
(RS) +
R1
(RS) ,RS
RS

SCHECK CHARACTER
SUNKNOWN CHARACTER

SPERIOD * (R1)=ADR+1
:DIGIT BETWEEN O AND 7.
oxcxr BETWEEN 8 AND 9.
*R2 = DIGIT * (R1)=ADR+1

:DIGIT BETWEEN 8-9

*PERIOD

< COMMA
:CARRIAGE RETURN
:MOVE POINTER TO NEXT CHARACTER
SUNKNOWN CHARACTER
*RETURN

225

;THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL

228

559

CHARACTER

:E:thCTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2.
MOV

#ADR,R1

sADDRESS OF ASCIZ STRING

-t

CZRJIDEO RPO4/5/6 MLT-DR LGC MACRO v04.00 S-NOV-81 09:16:17 PAGE zo-g

SEQ@ 0132

MOV

JSR

RETURN
RETURN
RETURN
RETURN
RETURN
RETURN

010446
010346

(K.DIG: MOV
MOV
MOV

NONINININOINININI
NN NN

NN (N AN AN N AN AN N NN
OV NO NS WNI—=OO

END OF PASS

CLR
CLR

030072

#NUM,R2
R5,CK.DIG
ADR1
ADR2
ADR3
ADR4
ADRS
ADR6
R4 ,=(SP)

R3.-(SP)

R2.,=(SP)
R2
R3

Ré
R5,CK.CHR

:MAX. MAGNITUDE OF

:CHECK DIGITS

:CR" ONLY ENTERED =- R2=0

:*PERIODTM ONLY ENTERED == R2=0

:ILLEGAL CHARACTER OR INPUT TOO LARGE -- R2=?

.”CR' == R2 = NUMBER

"'COMMA’’ -= R2
= NUMBER

$'PERIOD'* == R2= NUMBER
:SAVE Ré
:SAVE R3
sSAVE THE MAX. SIZE ON THE STACK
;START WITH 0
:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN
*

.l.

245
246 030204
247 030206
248 030210
249 030212
250 030214
251 030216
252 030220
030224

000004

:SAVE 2

030072

RS.CK.CHR

. *8
(22)+(x8) = #10
:UPDATE THE INPUT NUMBER

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

030230
030232
030234
030236
253 030240

[4
[4
.0. (X}

:DiGIT 0-7
(R1)
8$
(R4)+
(R4)+
+
(R4)
R3,(SP)
93

8$
(RS)+
(RS)+
R4 ,R5
R3,R2
(SP)+

268 030276

;DIGIT 0-7
;DIGIT 8-9
;STEP RETURN POINTER PAST ‘'CR'' & 'PERIOD'’ RETURNS
JINPUT NUMBER =2

030226

569 030300

INPUT NUMBER

RTS

(SP)+ ,R3
(SP)+ R4
(RS) RS
RS

:DIGIT 8-9
:DOES A ‘'CR'*
:BR_IF NOT

FOLLOW THE ‘PERIOD"’

: INCREMENT THE RCTURN
: INCREMENT THE RETURN

: INCREMENT THE RETURN
:CHECK THE MAGNITUDE OF THE NUMBER
:BR_IF ENTERED NUMBER TOO LARGE
:BYPASS INCREMENT
: INCREMENT RETURN PAST INVALID RETURN
: INCREMENT RETURN
:SETUP RETURN POINTER
:ENTERED VALUE
:CLEAN MAX. SIZE OFF OF STACK

:RESTORE R3
:RESTORE R4
:GET RETURN ADDRESS
:RETURN

sTHIS ROUTINE WILL CONVERT A 16-B1T UNSIGNED BINARY NUMBER TG AN

JUNSIGNED DECIMAL ASCIZ NUMBER.
s CALL

[o s Fam

¢cn
CZRJDEO RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 20-4

DN
CZRJDEO RP04/5/6 MLT~DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 20-5

SEQ 0133

END OF PASS

274

;

MOV

%;9

RETURN

278

'~orE

THE PROGRAM REQUIRES THIS FORM OF °'$SB2D', NOT THE VERSION ON

$SB2D:

MOV
MOV

2(SP),1%
#18,~(SP)

;SAVE THE BINARY NUMBER
*SET THE POINTER

MOV
RTS

(sp>¢ 2(sP)

:PICKUP THE POINTER
*RETURN

275

;

%gg

281 030302
282 030310

016637
012746

000002
030326

284 030320
285 030324

012666
000207

000002

283 030314

004737

030326

033732

JSR

NUMBER, - (SP)

PC,$582D

PUT THE NUMBER ON THE STACK

S CALL

:ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

THE SYSMAC LIBRARY, REV C AND LATER

JSR

18$:

288

;THIS ROUTINE WILL CONVERT A 16=BIT UNSIGNED BINARY NUMBER TO AN

291
292

:
:

MOV
JSR

295

*NOTE:

THE PROGRAM REQUIRES THIS FORM OF °'$SB20'. NOT THE VERSION ON

:gfiEiGNED OCTAL ASCIZ NUMBER.

%32
%39

298 030332
299 030340
300 030344
301 030350
302 030354
303 030356

o.o

:CALL THE DOUBLE LENGTH CONVERT

ggg 030326 000000 000000
ggg

.WORD

PC,$0820D

;

016637
012746
004737
012666
000207
000000

000002
030356
034126
000002
000000

030356

$S820:

18:

RETURN

NUMBER,=(SP)
PC,$5820

;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
MOV
JSR
MOV
RTS
.WORD

2(SP).1%
#18,-(SP)
PC,$DB20
(sp)+ 2(SP)
00

:SAVE THE BINARY NUMBER
SSET THE POINTER
:CALL THE DOUBLE LENGTH CONVERT
*PICKUP THE POINTER
*RETURN

CZRJDEQ RPO4/5/6 MLT~DR LGC MACRC V04.00 5-NOV-81 09:16:17 PAGE 21

TTY

SEQ 0134

INPUT ROUTINE
1

.SBTTL

TTY INPUT ROUTINE

JaRNRRNARARARAANAAAANANARCAACARRAANRANNIRARNARANARARNANNRA
RN ARAR

030362
030364
030366
030370

.ENABL
LSB
STKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
g}:gézg: .BLkB

000000
000000
000000

030377

0
0
0
7

::NUMBER OF ITEMS IN QUEUE
sINPUT POINTER
:-OUTPUT POINTER
:.TTY KEYBOARD QUEUE

EVEN

s*TK INIJTIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

S%CALL:
v
1

030400

030446

005037

000207

030362
030370
030364
030450
000200
150506
000100

030364
030366
000060
000062

JSR

RETURN

$TKINT: CLR

$STKCNT

:;CLEAR COUNT OF ITEMS IN QUEUE

MoV
MOV
MOV
MOV

#S$TKQSRT ,$TKQIN ;.MOVE THE STARTING ADDRESS OF THE
$TKQIN,$TKQOUT
;.QUEUE INTO THE INPUT & OUTPUT POINTERS.
#$TKSRV,a#TKVEC ..INI]IALIZE THE KEYBOARD VECTOR
#200,3#TKVEC+2
‘BR'* LEVEL 4

MOV

#100,8$TKS

TST

150476

PC.STKINT

RTS

a$7kB

:CLEAR DONE FLAG

::ENABLE TTY KEYBOARD INTERRUPT
ssRETURN TO CALLER

:*TK SERVICE ROUTINE

:*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) $TKINT IS CALLED AND

:*UPON RETURN EXIT IS MADE TO THE '‘CONTROL-C'* RESTART ADDRESS (CTRAP)
030450

117746

$TKSRV: MOVB
BIC
CMP

150472
177600
000021

BNE

305

000003

031605
030400

001500

030534
030542
030544

022737
001004
104401

1$:

000176

001140

000007

030362

001160

::PICKUP THE CHARACTER
2:STRIP THE JUNK
231S 1T A RANDOM XON?

(SP)+

<:CLEAN RANDOM XON OFF STACK
*RETURN

308

2:BRANCH IF NO

CMP
BNE

(SP) A3
18

::1S IT A CONTROL C?
::BRANCH IF NO

JSR
ST
JMP
cmp

PC,STKINT
(SP)+
CTRAP
IW 24

CMP
BEQ

+2INIT THE KEYBOARD
::CLEAN UP STACK
::CONTROL C RESTART
2:IS IT A CONTROL 6?

#SWREG, SWR
68

2:BRANCH IF NO

cMP

#7.,$TKCNT

::1S THE oueus FULL?

TYPE

.$BELL

; sRING THE TTY BELL

TYPE

031646
000007

030532

TST
RTI

a$TkB,-(SP)
#4C177,(SP)
(SP) , #$XON

BNE

LSCNTLC

S:TYPE A CONTROL=C

(“C)

2315 SOFT-SWR SELECTED?
$:G0 TO SWR CHANGE

+:BRANCH IF

SEQ 0135 ]

F 1
CZRIDEQ RPO4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 21-1

TTY INPUT ROUTINE

030550
030552
v30554
030560
030562
030566

005726
000451
021627
001021
005077
005726

030576

100375

030570
030576

150350

117746

150344

022627

000021

042716

030612
030614
030622
030624
030630
030634
030636
030642
030644

001366
012777
000002
005237
021627
002405
021627
003002
042716

030656
030660
030666
030670
030676

005237
023727
001003
012737
000002

030650

112677

3s:

150356

105777

030602

030606

000023

31s:

177600

000100

TST
8R
CMP
BNE
CLR
TST

030362
000140

32%:

000175

000040

177510

48:

0320364
030364

030377

030370

030364

5$:

:sCLEAN CHARACTER OfFF OF STACK
JIEXIT
:221S IT A CONTROL=-S?
:sBRANCH IF NO
JsDISABLE TTY KEYBOARD INTERRUPTS
JsCLEAN CHAR OFF STACK

318

L0062 UNTIL ITS THERE

1ST8B

a3TKS

MOoV8

93$TKB, =(SP)

BPL

::WAIT FOR A CHAR

:sGET THE CHARACTER

BIC

#4C177,(SP)

BNE
MoV
RT]
INC
CMP
BLT
CMp
BGT
BIC

318
#100,98TKS
STKCNT
(SP) ,m140
43
(SP) ,#175
43
#40,(SP)

INC
cMp
BNE
MOV
RTI

$TKQIN
JUPDATE THE POINTER
S$TKQIN,#S$TKQEND ..GO OFF THE END?
5%
JBRANCH IF NO
#STKQSRT,$TKQIN ::RESET THE POINTER
2 :RETURN

CMP

150322

(SP)+
5%
(SP) , 423
328
a87KS
(SP)+

MOVB

JsMAKE IT 7-8B1T ASCII

(SP)# I 73]

:21S IT A CONTROL-Q?

(SPS+,as$TKQIN

F e ANRARRAA RN R AR ANAAARNC

::BRANCH IF NO
..REENABLE TTY KEYBOARD INTERRUPTS
JRETURN
*:COUNT THIS CHARACTER
::1S 1T UPPER CASE?
s :BRANCH IF YES
;IS IT A SPECIAL CHAR?
;:BRANCH IF YES
ssMAKE IT UPPER CASE

..AND PUT 1T IN QUEUE

AAARRANAN RN NARRNRNRNNRARANA

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE 1S ENTERED
FROM THE TRAP HANDLER, AND WILL

030700
030706
030710
036714
030716

030722
030726
030732

022737
001124
105777
100121
117746

042716
021627
001300

000176

001140

150230
150224

177600
000007

:SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP
BNE
TSTB
BPL
MOVB

BIC
CMP
BNE

ASWREG, SWR
158
a$TKS
158
@STKB,-(SP)

#4177, (SP)
(SP) .47
2

;;1S THE SOFT-SWR SELECTED
SSEXIT IF NOT
::1S A CHAR WAITING?
::1F NOT, EXIT
SIYES

SIMAKE IT 7-BIT ASCII
22IS IT A CONTROL=G?

::IF NOT, PUT IT IN'THE TTY QUEUE
IAND EXIT

AT AARARARARAARRAAAAN
AR
ANARNANRANANAARRANARARARNRRARARAAAANRAY

*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

030734
030742
030744
030746
030752
030756

123727
001674
005726
004737
0050:7
112737

030764
030770
030774
031000

104401
104401
013746
104402

001134
030400
150166

000001

031617
031624
000176

000001

001135

-*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
6;C0NTRO%;gBBEING TYPED, AND THE SOFTHARE SWITCH REGISTER BEING SELECTED.

BEQ
TST
JSR
CLR
Move
TYPE
$GTSWR: TYPE
Mov
TYPOC

SAUTOB, #1
23
(SP)+
PC,STKINT
8$TKS
#1,8INTAG

:ARE WE RUNNING IN AUTO-MODE?
..BRANCH IF YES
s CLEAR CONTROL-G OFF STACK
¢:FLUSH THE TTY INPUT QUEUE
s:DISABLE TTY KEYBOARD INTERRUPTS
;o SET INTERRUPT MODE INDICATOR

.SCNTLG
. SMSWR
SWREG, - (SP)

s;ECHO THE CONTROL=G (*G)
s TYPE CURRENT CONTENTS
;s SAVE SWREG FOR TYPEOUT
::6G0 TYPE--OCTAL ASCII(ALL DIGITS)

6 11

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

SEQ 0136

INPUT ROUTINE

031002
031006
031010
031012
031016

104401

031620
031024

117746
042716

150122

177600

BIC

#4C177. (SP)

031030
031034

021627
001015

000003

100375

104401

062706
123727
001003
012777
000137

031074

021627
001005
104401

b wd wd

b wd

b wcd cd

062706
000737
OOV
WNWWNNIN) = 2
RO NONONNISNONSO

TTY

021627
001022
005766

031635

198:

150126

031605
000006
001135
000100
031646

78:

000001
150060

8s:
98:

021612
000006

208:

000015

108:

000004
000002
000006
001165
001135

000001

000100

147764

000060

150006

; -PROMPT FOR NEW SWR
s CLEAR COUNTER
s THE NEW SWR
s s CHAR THERE?
¢ 1F NOT TRY AGAIN

@$TKB,-(SP)

;:PICK UP CHAR

W,
BNE
TYPE
ADD
gzgs

(SP) A3
9s
LSCNTLC
#6,SP
g§~rAc.o1

MOV
JMP

#100,38TKS
CTRAP

¢:1S IT A CONTROL-C?
¢ :BRANCH IF NOT
s YES, ECHO CONTROL-C (*C)
¢ CLEAN UP STACK
¢ ;REENABLE TTY KEYBOARD INTERRUPTS?
s :BRANCH IF NO
c;ALLOW TTY KEYBOARD INTERRUPTS
s s CONTROL=C RESTART

cMP
BNE
TYPE
ADD

(SP) ,#25
108
LSCNTLU
#6,SP

2215 IT A CONTROL-U?
< :BRANCH IF NOT
s:YES, ECHO CONTROL-U (*U)
s - IGNORE PREVIOUS INPUT

(SP) ,#15

2218 IT A <CR>?
;s JBRANCH IF NO
J:YES, IS IT THE FIRST CHAR?
;sBRANCH IF YES
s sSAVE NEW SWR
;CLEAR UP STACK
:2ECHO <CR> AND <LF>
:JRE-ENABLE TTY KBD INTERRUPTS?
:JBRANCH IF NOT
..RE-ENABLE TTY KBD INTERRUPTS

BPL

CMP

BNE

TST
BEQ

118:
148:

15$:

168:

000067
000060
000002

MOV
ADD
TYPE
CMP8
BNE

031240

000720

178 :

001164

18$:
.DSABL

19$
168

4(SP)
118

MOV

2(SP) ,aswR
”6,
,$CRLF
$INTAG.M
158
#100,387KS

JSR

PC.STYPEC

BLT
CMP
BGT
BIC
TST
BEQ

188
(SP) ,#67
18%
#60,(SP)+
2(SP)
17$

ASL
ASL

(SP)
(SP)

RTI

cMP

ASL

000002
177776

, SMNEW

~(SP)
-(SP)
aSTKS

CLR
CLR
TSTB

MOVB

000025

032740

TYPE

INC
BIS

B8R

TYPE

LSB

J:MAKE IT 7-BIT ASCII

s;LET'S TRY IT AGAIN

(SP)
. #60

(SP)

2(SP)
<2(SP), (SP)

$QUES

208

BRANCH IF YES

..IS THIS THE FIRST CHAR
:sBRANCH IF YES
..NO SHIFT FRESENT
..
CHAR OVER TO MAKE
ROOM FOR NEW ONE.

..KEEP COUNT OF CHAR
JoSET IN NEW CHAR
:sGET THE NEXT ONE

J2TYPE 2<CRX<LF>

:sSIMULATE CONTROL-U

o NRRANRRCARRAANRACARNA
T AN AAARARAARAARARAANBERRARAACRANRNNONANOANS

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

SEQ 0137

INPUT ROUTINE

*Z:{E ROUTINE WILL

INPUT A SINGLE CHARACTER FROM THE TTY

> %

v
v
b
031242

011646

031252
031256
031260
031264
031266

005066
005046
012746
000002

031272
03127«
031300
031306

001775
005337
117766
005237

031320
031322
031330

001003
012737
000002

0312644

016666

000004

000002

031312

023727

$SRDCHR: MOV

648:

030362

177062
030366

18$:

000004

030366

030377

030370

030366

::PUSH DOWN THE PC AND

CLR
CLR
MOV
RTI

4(SP)
-(SP)
#6483 ,-(SP)

$3GET
2:PUT
2:PUT
*:POP

$TKCNT

4(SPS,2(sP)

“:THE PS

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

;:WAIT ON A CHARACTER

BEQ
DEC
MOVB
INC

18
STKCNT
a$TKQOUT,4(SP)
$TKQOUT

BNE
MOV
RTI

2s
:;BRANCH IF NO
#STKQSRT,$TKQOUT; ;RESET THE POINTER
: SRETURN

CMP

2s:

::GET A CHARACTER FROM THE QUEUE
*:CHARACTER IS ON THE STACK
J:WITH PARITY BIT STRIPPED OFF

(SP) ,~(SP)

MOV

031266

031266 005737 030362

RDCHR
RETURN HERE

;DECREMENT THE COUNTER
..GET ONE CHARACTER
*UPDATE THE POINTER

srxoour #STKQEND ..oxo IT GO OFF OF THE END?

ttttttttttttttt'ttttttttttttttttttttttttttttttttttttttttttttttt

*g:if ROUTINE WILL
e
ta

031332
031334
031336
031342
031346
031350
031352
031354
031360
031362
031364
031366
031374
031400
031404

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
012716
005303

000177

031414
031420

111337
104401

031564
031564

031406
031412
031424

031426
031430
031432
031440
031444
031446
021452

031566
031605

000134
031564
177777

031564

020327 031566
103434
000746

005716
001406
112737
104401
005016
122713
001003

000134
031564
000025

RDLIN
RETURN HERE

SROLIN: MOV
CLR
1$:
MOV
28:
cMP
BLOS
RDCHR
MOVB
108:
CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
68:
DEC

031564
7%:

n3 ~(SP)
-(5P)
#STTYIN,R3
#STTYIN#15.,R3
4$
(SP)+,(R3)
#177,(R3)
s$
(SP)
6$
#'\.9%
9%
#-1,(SP)
R3

CMP
BLO

R3S, HSTTYIN
/X3

B8R

MOVB
TYPE
<§:

INPUT A STRING FROM THE TTY

ST
BEQ
MOVB
f[YPE
CLR
(MPB
BNE

(R3),9%
9%

(SP)
78
#°'\,9%
.98
(SP)
#25,(R3)
8s

::INPUT A STRING FROM THE TTY
*:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

*:TERMINATOR WILL BE A BYTE OF ALL 0'S

::SAVE R3
::CLEAR THE RUBOUT KEY
*2GET ADDRESS
::BUFFER FULL?
;BRI YES
:GO READ ONE CHARACTER FROM THE TTY
+3GET CHARACTER
;1S IT A RUBOUT
:BR IF NO
..IS THIS THE FIRST RUBOUT?
$:BR IF %O
S:TYPE A BACK SLASH
::SET THE RUBOUT KEY
*:BACKUP BY ONE

::STACK EMPTY?
$:BR IF YES

:3SETUP TO TYPEOUT THE DELETED CHAR.
*G0 TYPE

$360 READ ANOTHER CHAR.
*:RUBOUT KEY SET?
S:BR IF NO
S:TYPE A BACK SLASH

::CLEAR THE RUBOUT KEY
+3IS CHARACTER A CTRL U?
*:BR IF NO

SEQ 0138

TTY INPUT ROUTINE

031454

104401

031612

TYPE

000022

8%:

001165
031566
A §

031556
031564
000015

3s:

177777
001166

$
$QUES

ssTYPE
A ''CRTM & 'LF"

TYPE
CMPB
BNE
(LRB

.9%
#15,(R3)+
pé 3
=1(R3)

..CLEAR THE BUFFER AND LOOP
;.ECHO THE CHARACTER

TST

(SP)+

MOVB

[, [0)")

OO0
— ) e b b
[o JUTIV,
1V, 1V, ]

STTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
$MSWR:
SMNEW:

(R3),9%

LSLF

(SP)+ ,R3
(SP) ,~(SP)

4(SP) ,2(SP)

scTYPE THE INPUT STRING
EIEKUP ANOTHER CHACTER
..GO

s:CHECK FOR RETURN
;:LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)
;:TYPE A LINE FEED
:sCLEAN RUBOUT KEY FROM THE STACK
:sRESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF THE
oo
FIRST ASCII CHARACTER ON IT

MOV

#STTYIN,4(SP)

BYTE
E'TE
.BiLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

0
s cSTORAGE FOR ASCII CHAR. TO TYPE
0
¢ : TERMINATOR
15.
s cRESERVE 15 , BYTES FOR TTY INPUT
/2C/<15<12>
..CONTROL
/72U/<15<12>
s s CONTROL 'U' '
/*G6/<15<1>
/..CONTROL ''6"’
<15><12>/SWR =
/
NEW =/

RT1

: RETURN

JTHIS ROUTINE WILL PROCESS THE (*C) CHARACTER
001262

NSN
33388
o~

—d

b cd wud

=leolalelelelal]
NN N NN N NN

—d
b b

BR
TYPE

::TYPE A CONTROL ‘V'*

¢:G0 START OVER
2:1S CHARACTER A '"R'7?
s :BRANCH IF NO
ssCLEAR THE CHARACTER

LSCRLF
$TTYIN

MOV
MOV

N = OO0 NS
W

#22,(R3)
38
(R3)

TYPE

000002
000004

SCNTLU

CMPB
BNE
CLRB
TYPE
TYPE

001164

000004
031566

B8R

1710

CTRAP:

176476

000002

030364

030377

030370

030364

MOV
INC

Movs

18:

INC
CMP
BNE
MOV
RTI

#1,CFLAG
STKCNT

sSET THE °CONTROL C' FLAG
sCOUNT THIS CHARACTER
#15,88TKQIN
:PUT "RETURN® CHARACTER IN QUEUE
$TKQIN
:UPDATE THE POINTER
STKQIN,#STKQEND :GO OFF THE END
?
1$
:BR IF YES
#STKQSRT ,$TKQIN RESET THE POINTER
RETUR

(o Xen

In
CZRJOEQ RPO4/5/6 MLT~DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 21-4

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

J 1"

SEQ 0139

ERROR HANDLER ROUTINE
1

.SBTTL

ERROR HANDLER ROUTINE

RN RRAANRAANRRANAN AN RNANNARAAAAANAAAA
AR NRANAANAANCARNANENA

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
:*AND GO TO SERRTYP ON ERROR

THE ERROR CALL

¢*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

tSU1S-1
tsu13-

s +SWi0=1
:*CALL

031712
031716
031720
031724
031730
031736
031740

105037

032246
001244
001242
020000

$ERROR:

78:

1%:

001000

032244

000004
032100
177766

000004
032244
032244

032114

012637

000004

032120

022737
001420
032737

177777

032244

000901

032244

000001
001114
000177

177766

105037

032246

¢ INHIBIT PRINTOUTS ?
:BR IF YES

LSBELL

s ;RING BELL
:cCOUNT THE NUMBER OF ERRORS
s;GET ADDRESS OF ERROR INSTRUCTION

..SET THE ERROR FLAG

78
sDON'T LET THE FLAG GO TO ZERO
STSTNM, aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
121710.35UR
csBELL ON ERROR?
::NO - SKIP

$ERTTL
(SP). SERRPC
#2,8ERSPC
aSERRPC.SITEMB

1004$

177777

sSAVE THE ATTENTICN REGISTER CONTENTS
:DRIVE NUMBER

sTYPE THE TIME

1004$
#177,S1TEMB

032246

s;CLEAR THE ITEM BYTE SAVE LOCATION
s TEST FOR CHANGE IN SOFT-SWR

PC,$TIME
$ERFLG

#81T09,3SWR

000177

032164

IBSAVE

#SW13,3SWR

147202

001160

000402

¢ :ERROR= EMT AND N=ERROR ITEM NUMBER

R1,DRIVE

001102
002000

032162

R3,ATTN

023752
001103

177777
032114

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

IBSAVE
1003$
#-1, CPSAVE
1004$
ERRVEC,=(SP)

#10008
. ERRVEC

::STRIP AND SAVE THE ERROR ITEM CODE
..SEE IF LOOP ON ERROR IS SET

cBRANCH AROUND ROUTINE IF SO
:*SEE IF THIS IS THE POWER FAIL CALL
s s BRANCH AROUND ROUTINE IF IT IS

ssSEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE
s :BRANCH IF SO
:;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
¢ BRANCH IF SO
:sSAVE CONTENTS OF ERROR VECTOR
s:SETUP °TRAP' RETURN ADDRESS
;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

10008:

177766 ,CPSAVE
1001$
#-1,CPSAVE

210018, (SP)

s:SET CPU ERROR REGISTER TIMEOUT INDICATOR
s:SETUP RETURN ADDRESS

1001$:

(SP)+ ,ERRVEC

c;RESTORE CONTENTS OF ERROR VECTOR

:
10028

#-1,CPSAVE
1004$

soSEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
¢ ;BRANCH IF SO
;;SEE 1F POWER MONITOR BIT IS SET IN CPU ERR REG

#81700,CPSAVE
10048
#81700,177766

032246
001114

:{TEHB. IBSAVE

77 . SITEMB

1003s$:

s sBRANCH IF 0K

..CLEAR THE BIT FOUND SET

sMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL

004$

::SET SITEMB TO SPECIAL POWER FAIL POINTER
s ;BRANCH OVER IBSAVE CLEARING

IBSAVE

ssCLEAR IBSAVE SO 2ND TIME THROUGH EXITS

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

SEQ 0140

ERROR HANDLER ROUTINE

032777
001004
004737

020000

105737
001005
005777

032246

100002

032250
001165

10048

146716

032246

IBSAVE
3s

¢;SEE IF IBSAVE IS LOADED
s sBRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
:HALT ON ERROR
¢+ SKIP IF CONTINUE
csHALT ON ERROR!
¢ TEST FOR CHANGE IN SOFT-SWR

1046407

000042

¢sSKIP TYPEOUT IF SET
2o SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE

aSWR

000000

023737
001001
000000
000002
000000
000000

#BIT13,3SWR
20 $
PC,SERRTYP

SCRLF

NN
f o
v &P

104401

146742

000046

3s:

CPSAVE:
IBSAVE:

ING2, a6
n"
-WORD
.WORD

JARE WE IN ACT=11 AUTO MODE?
JBRANCH IF NOT
JHALT ON ERROR IF ACT AUTO MODE
JRETURN

;:LOCATION TO SAVE CPU ERROR REG CONTENTS
;sLOCATION TO SAVE ITEM BYTE

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

L Nn

SEQ 0141

ERROR MESSAGE TYPEOUT ROUTINE

.SBTTL
SRR

ERROR MESSAGE TYPEOUT ROUTINE

RAR A NN

R AR A AAAAN RN

RN AN A AANANAAAANARARARARANIRAA
AR
S

tTHIS ROUTINE USES THE '‘ITEM CONTROL BYTE'® (SITEMB) TO DETERMINE WHICH
;*ERROR IS T0 BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB),

:“AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
032250

104401
010046
005000
153700
001004

001165

032266

013746

001116

032272

104402

SERRTYP:

001114

BI1S8
BNE

000177
001102
032426

18:

032566

004026
032344

2$:
38:
4$:

JIN1165

5%:
6$:

001165

I4 ¥

013046

032422

000771
040

040

000
032552
127
123
032244

032436

120

124

032520
117
105

032552

032566

001116

::PICKUP THE ITEM INDEX

IF ITEM NUMBER IS ZERO, JUST
;s

$ERRPC,~(SP)

;:SAVE SERRPC FOR TYPEOUT
;:ERROR ADDRESS
..gg TBGE--OCTAL ASCII(CALL DIGITS)

SASITEMB,RO

6$
#177.R0

1000$

1001$

8s:

;;TYPE THE PC OF

#SERRTB RO

(RO)+,2$

0
. SCRLF

(RO)+,49
5%

. SCRLF
(RO) ,RO

78
(SP) +,R0

.SCRLF

8(R0O)+,-(SP)

/07

THE ERROR

J:SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
::BRANCH IF NOT
J:GET TEST NUMBER
::MOVE POWER FAIL ERROR CALL TABLE TO RO
;2BRANCH TO CALL ERROR
..ADJUST THE INDEX SO THAT IT WILL

(RO)
63
8s

032422

032426
032436
032520

:.;}CERIGGE RETURN'' & '‘LINE FEED'

$TSTNM, PFTSTN

1001$:

001165
032362

. SCRLF

Rg.'(SP)

#PFECH.RO

10008:

000207

TYPE
MOV
CLR

WORK FOR THE ERROR TABLE

::FORM TABLE POINTER
::PICKUP “ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER

::JYPE THE "ERROR MESSAGE'’

;3 ERROR MESSAGE'* POINTER GOES HERE
::"'CARRIAGE RETURN'' & ‘LINE FEEDTM

::PICKUP “DATA HEADER'* POINTER
::SKIP TYPEQUT IF 0

::TYPE THE "DATA HEADER'’
:3'DATA HEADER'' POINTER GOES HERE

::"'CARRIAGE RETURN'' & 'LINE FEED"
::PICKUP "DATA TABLE'* POINTER
::60 TYPE THE DATA
: SRESTORE RO
5 CARRIAGE RETURN"' & "LINE FEED"

:;SAVE @3(RO)+ FOR TYPEOUT
¢:GO TYPE--OCTAL ASCII(ALL DIGITS)
..ég }HERE ANOTHER NUMBER?
..TYPE TWO(2) SPACES
:LOOP

..TUO(Z) SPACES

.E
PFECH1,PFECH2,PFECH3,PFECH4 ; ;WORDS DEF INING TABLES BELOW
PFECH1: .ASCIZ
2POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?
PFECH2: .ASCIZ
?TESTNO ERR PC
CPUERREG?
.EVEN
PFECHS3: .WORD
PFTSTN,SERRPC,CPSAVE,0
PFECH:

ERROR MESSAGE

032562
032566

SEQ 0142

TYPEOUT ROUTINE

000
000000

000

PFECH4:
PFTSTN:

.BYTE
.WORD

0,0,0,0
O

s CONTAINS TEST NUMBER FOR PF BIT ERROR

—

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

CZRJDEQ RP04/5/6 MLI-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 24

SEQ 0143

TYPE ROUTINE

.SBTTL

TYPE ROUTINE

T ANRARRAARRARANARNAANRN
R AN R EARARRANRAAANANRAAARARN AR
A
AN ARARY

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
s*THE ROUTINE WILL

;*NOTE1:

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTATNS THE CHARACTER TO FILL AFTER.

:*NOTE2:
*NOTE3

*CALL
*1) USING A TRAP INSTRUCTION
TYPE
.MESADR

ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
MESADR

032570

105737
100002
000000

001157

TST8

000407
000002

RO,=(SP)

2$:

s sPUSH CHARACTER TO BE

@82(SP) ,RO

000002

608:
3s:

000011

48:

#HT, (SP)

..BRANCH IF <HT>

#CRLF, (SP)

: sBRANCH IF NOT <CRLF>

5%
(SP)+

$CHARCNT
2%

032740
001156

032670

013746

001154

032674

105366
002770
004737

000001

000770

2:GET ADDRESS OF ASCIZ STRING

(RO)+,-(SP)
43
(SP)
+
(SP)+ R0
#2,(SP)

033056

032712

;s1S THERE A TERMINAL?

;ssBR IF YES
J2HALT HERE IF NO TERMINAL
s sLEAVE
::SAVE RO

1$:

000200

105337

$TPFLG
18

PC,STYPEC

68:

S;ILLC.(SP)+
$NULL ,=(SP)

I4 ¥

1(5P)
6$

032740
033056

PC,STYPEC

$CHARCNT
78

TYPED ONTO STACK

J:BR IF IT ISN'T THE TERMINATOR
;:IF TERMINATOR POP IT OFF THE STACK
;:RESTORE RO
..ADJUST RETURN PC
ETURN

:.POP <CR><LF> EQUIV
:cTYPE A CR AND LF
¢ CLEAR CHARACTER COUNT
s:GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
s:1S IT TIME FOR FILLER CHARS.?
¢:1F NO GO GET NEXT CHAR.
;;GET # OF FILLER CHARS. NEEDED
s:AND THE NULL CHAR,
s:DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
::GO TYPE A NULL
::DO NOT COUNT AS A COUNT
. :LOOP

sHORIZONTAL TAB PROCESSOR

032714

032736

112716

000724

000040
032740
000007

8%:
033056

MovBe

#' ,(SP)
PC,STYPEC

g;.SCHARCNT
(SP)+
23

scREPLACE TAB WITH SPACE

sTYPE A SPACE

::BRANCH IF NOT AT

::TAB STOP

::POP SPACE OFF STACK
:.GET NEXT CHARACTER

weo

8 12
(ZRJDEQ RP04/5/6 MLT-DR LGC MACRO v04.00 S-NOV-81 09:16:17 PAGE 24-1

SEQ 0144

TYPE ROUTINE

$TYPEC:

146200
146174
177600

1ST8
8PL
MOV

000023

101$:

146154
146150
177600

8IC
cMP8
BNE
TST8
8PL
MovB

030021

108:

146132
1646124

000002

033060

0002C7

#SXOFF
, (SP)
1028

;cWAS CHAR XOFF

#177600, (SP)
asTKS
1018
as$TKB, (SP)

000002

1$:

CMPB

INCB
$CHARCNT
: . WORD
$TYPEX: RTS

J:BR IF NOT
J6ET CHAR

;:STRIP EXTRANEOUS BITS

s<BR IF NOT

JIWAIT FOR CHAR

101$

::GET CHAR
J:STRIP 1T
ssWAS IT XON?
;:BR IF NOT

(SP)+

JsFIX STACK

asTPS
108
2(SP) ,asTPB

soWAIT UNTIL PRINTER IS READY

#177600, (SP)

ggR.Z(SP)

033056
000012

2;CHAR [N KYBD BUFFER?

#SXON, (SP)

1028:

000002
000015

asTKS
108
STk, ~(SP)

$CHARCNT
STYPEX
#LF ,2(SP)
$TYPEX
(PC)+
o

032740
032740
032744
032746
032752
032756
032762
032764
032764
032770
032772
032776
033002
033006
033010
033010

:sLOAD CHAR TO BE TYPED INTO DATA REG.
221S CHARACTER A CARRIAGE RETURN?
::BRANCH IF NO
::YES;-CLEAR CHARACTER COUNT
sEX]

:s1S CHARACTER A LINE FEED?
;:BRANCH [F YES
;s COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

BINARY TO OCTAL

(ASCII)

c 12

SEQ 0145

AND TYPE

.SBTTL
JiNNNAN

BINARY TO OCTAL (ASCII) AND TYPE
RN RN NNAAANRAN

;*THIS ROUTINE

R C AN

NARAANAAANAANA

R ANNANNNOA

RPARONS

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

s*OCTAL (ASCII) NUMBER AND TYPE IT
;#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

;CALL:

ot
ot
%

TYPOS
.BYTE
.BYTE

NUM,-(SP)
N

:NUMBER TO BE TYPED

ssCALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO

::1=TYPE LEADING ZEROS
:;0=SUPPRESS LEADING ZEROS

o
¥

MOV

:*$TYPON=-===ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

:+$TYPOS OR $TYPOC
s*CALL:

MoV

TYPON

NUM, - (SP)

s :NUMBER TO BE

TYPED

::CALL FOR TYPEOUT

'%;IEOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
%

i
;w

033062
033066
033074
033100
033104

033106
033114
033122
033130
033132
033134
033136
033142
033144
033150
033154
033160
033164
033166
033170
033172
033174
033176
033200
033202
033204
033210
033212
033216
033220
033222
033224

017646
116637
112637
062716
000406

112737
112737
112737
(10346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

000000
000001
033307
000002

000001
000006
000005

033307
000006
033306
033305
000012

033306

177770

033305

033305
033307
033304

MOV

TYPOC

$TYPOS: MOV
mova
Movs
ADD
BR

S$TYPOC: MOVB
Mov8
S$TYPON: MOVB
MOV
MoV
Mov
MOVS8
NEG
ADD
MOv8
MOv8
MOV
CLR
1$:
ROL
BR
28:
ROL
ROL
ROL
MoV
3s:
ROL
DECB
BPL
BIC
BNE
TST
8EQ
48:
INC

NUM, - (SP)

;sNUMBER TO BE TYPED

8(SP) ,=(SP)
1(SP) ,$0FILL
(SP)+,S0MODE+1
#2,(SP)
STYPON

;:PICKUP THE MODE
s:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
s :ADJUST RETURN ADDRESS

#,S0FILL
#6,$0MODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
R5,=(SP)
$OMODE +1 ,R4
Ré4
#6,R4
R4 , SOMODE
$OFILL,R4
12(SP) ,RS
R3
R5
38
RS
RS
RS
RS ,R3
R3
$OMODE
4 ]
#177770,R3
43
R4
5$
R4

s CALL

FOR

s;SET THE
;:SET FOR
soSET THE
::SAVE R3
s SAVE R4
:SAVE RS
:.GET THE

TYPEOUT

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

s SUBTRACT IT FOR MAX. ALLOWED
:sSAVE IT FOR USE
::GET THE ZERO FILL SWITCH
:;PICKUP _THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD
:cROTATE MSB INTO ‘'C*’
;.60 DO _MSB
:;FORM THIS DIGIT

s.GET LSB OF THIS DIGIT
s TYPE THIS DIGIT?

::BR_IF NO
..GET RID OF JUNK
STEST FOR 0
..SUPPRESS THIS 0?
:BR IF YES
::DON'T SUPPRESS ANYMORE 0°'S

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

D 12

CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 25-1
[elelelalelele]

000060
000040

033302
033302
033304

78:

6%:
000002

000004

8s:

033306

SEQ 0146

(ASCID) AND TYPE

NN
N NN NN

BINARY TO OCTAL

000000

SOCNT:
$OFILL:
$OMODE:

BIS
8IS

#'0,R3
# R3

B8GT

MOVB
TYPE
DECB

R3,88
8é
$OCNT

BLT
INC

63
R4

MOV
MOov
MOV
MOV

(SP)+,RS
(SP)+ R4
(SP)+,R3
2(SP) .4 (SP)

B8R

MoV
RT1

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

(SP)+,(SP)

0
0
0
0
0

JsMAKE THIS DIGIT ASCI!
JsMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;s COUNT BY 1
::BR IF MORE TO DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
.60 DO THE LAST DIGIT
;:RESTORE RS
JJRESTORE R4
::RESTORE R3
::SET THE STACK FOR RETURNING
: sRETURN

;. STORAGE FOR ASCII DIGIT
+ . TERMINATOR FOR TYPE ROUTINE
:s0CTAL DIGIT COUNTER
s:ZERO FILL SWITCH
:sNUMBER OF DIGITS TO TYPE

CZRJDEQ RPO4/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

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
c*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s*REPLACED WITH SPACES.

s*CALL:
;t
b

]

$TYPDS:

020200
000020

000055

000001

033524
000040

1$:

2%:

033514

3s:

4$:

5%:

000001
000060
000040

177777
7%:

MOV
TYPDS

NUM,-(SP)

ssPUT _THE BINARY NUMBER ON THE STACK
:.G0 TO THE ROUTINE

MOV
MOV
MOV
Mov
MOV
MOV
MOV
8PL
NEG
MOvV8
CLR
MOV
Movs
CLR
MOV
sus
8LT
INC
B8R

RO,=(SP)
R1,=-(SP)
R2,=(SP)
R3.-(SP)

;:PUSH RO ON STACK
;sPUSH R1 ON STACK
2:PUSH R2 ON STACK
:sPUSH R3 ON STACK
J:PUSH RS ON STACK
22SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR ]F INPUT IS POS.
::MAKE THE BINARY NUMBER POS.

RS .- (SP)

#20200,-(SP)
gg(sp).ns

RS
#'=,1(SP)
RO
#$DBLK ,R3

;' L(R)+

2
$DTBL (RO) ,R1
R;.RS

R2
33
R1.R5
R2
5%
(SP)
78
(SP)
63
1(SP) ,=1(R3)

#'0,RS
R2

000010

8s:
177777

033472

177776

9%:

6
(SP)+
9s
=1(SP) ,~2(R3)
(R3)
(SP)+,RS
(SP) +,R3
(SP)+,R2
(SP)+,R1

J:MAKE THE ASCII NUMBER NEG.
;oZERO THE CONSTANTS INDEX
J:SETUP THE OUTPUT POINTER
J:SET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
2:GET THE CONSTANT
JcFORM THIS B8CD DIGIT
;28R IF DONE
.o INCREASE THE BCD DIGIT BY 1

J:ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
;oFALL THROUGH IF 0
;:STILL DOING LEADING 0°S?
;J:BR IF YES
2 :MSD?
2:BR IF NO
2YES==SET THE SIGN
ssMAKE THE BCD DIGIT ASCII
JsMAKE IT A SPACE IF NOT ALREADY A DIG 1T
ssPUT THIS CHARACTER IN THE OUTPUT BUF FER
2:JUST INCREMENTING
;:CHECK THE TABLE INDEX
2:60 DO THE NEXT DIGIT
2:60 TO EXIT
;:GET THE LSD
;:G0 CHANGE TO ASCII
;:WAS THE LSD THE FIRST NON-ZERO?
;::BR I IF NO
e

JsYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOR
::POP STACK INTO RS
;2POP STACK INTO R3
2:POP STACK INTO RZ2
;sPOP STACK INTO R1

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 26-1

SEQ 0148

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

012600
104401
016666
012616
000002
023420
001750
000144
000012

033524
000002

MOV

(SP)+,R0

MOV

d(SP),4(SP)

TYPE

000004

MOV
:
$DTBL

$D8LK:

$DBLK

(SP)+, (SP)

;:POP STACK INTO RO

:NOW [YPE THE NUMBER
:sADJUST THE STACK

s;RETURN TO USER

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO Vv04.00 S-NOV-81 09:16:17 PAGE 27

G 12

SEQ 0149

RANDOM NUMBER GENERATOR ROUTINE

.SBTTL

RANDOM NUMBER GENERATOR ROUTINE

'THIS ROUTINE

IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

PC.,$SRAND

'?{Er A RANGE OF 0 TO 2(+33)i

M
o
033534
033534
033536
033540
033542
033546
033552

010046
010146
010246
013700
013701
012702

033634
033632
177771

033566

063700

033634

033574
033600

063701
062700

033632
001057

033606
033612

062701
010037
010137

047401
033634

033616

033634

123456

$RAND:

1$:

JSR

RETURN

:cPUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
ssSET RO WITH LOW
s SET R1 WITH HIGH
ccSET SHIFT COUNT

RO,=(SP)
ki,-(SP)
R2,=(SP)
SLONUM,
RO
$HINUM,R1
#-7 ,R2
RO
R1
R2
18

ssSHIFT RO LEFT AND
:;ROTATE CARRY INTO R1 AND
s s CHECK FOR DONE
s cCONTINUE SHIFT LOOP

ADC
ADD
ADD
ADC

R1
SHINUM,R1
#1057 ,R0
R1

: :PROPOGATE CARRY
::ADD NUMBER TO MAKE X 129
scADD LOW CONSTANT
s ;PROPOGATE CARRY

$SLONUM, RO

ADD

#47401 ,R1

RTS

MOV
MOV
MoV
MOV
MOV
$SHINUM:
SLONUM:

:sNUMBER WILL BE IN
s SHINUM, SLONUM

MOV
MOV
MOV
MOV
MoV
MOV
ASL
ROL
INC
BNE

ADD

033632

:sCALL THE ROUTINE

J:RETURN HERE THE RANDOM

.WORD
.WORD

RO, SLONUM
R1,SHINUM
(SP)+,R2
(SP)+ ,R1
(SP)+,RO
176543
123456

::ADD NUMBER TO MAKE X 129

s ;ADD ngH CONSTANT

¢ SAVE
R
s s SAVE R1
:sPOP STACK INTO R2
:.PuP STACK INTO R1
::POP STACK INTO RO
s ;RETURN

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

H 12

SEQ 0150

SAVE AND RESTORE RO-R5 ROUTINES

.SBTTL

SAVE AND RESTORE RO-R5 ROUTINES

SARRAARARARARACRANRAANANRCRANAAARANANAAAARAAARNANRNOARAANONRRANER

tSAVE RO=-RS

s«CALL:

SAVREG
.'t
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
12

;2TOP===(+16)

ix 42-=<(+18)
;% +4---RS

;x +6===-Ré4
:* +8-=<R3

;*+10=-=-=R2
Jx+12=--=R1
;%+14=-==R0

033636
033636
033640
033642
033644

010046
010146
010246
010346

033652
033656
033662
033666
033672

016646
016646
016646
016646
000002

$SAVREG:

MOV
Mov
Mov

MOV
MoV
MoV

000022
000022
000022
000022

MOV
MOV
MoV
MOV
RTI

RO,~(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,=(SP)
R5,=(SP)
22(SP) ,~(SP)

22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;PUSH R3 ON STACK
::PUSH R4 ON STACK
::PUSH R5 ON STACK
:-SAVE PS OF MAIN FLOW
¢sSAVE PC OF MAIN FLOW
¢ sSAVE PS OF CALL
::SAVE PC OF CALL

;*RESTORE RO-RS

tCALL

033674

033700

033730

012666
012666
012666
012666

000002

000022
000022
000022
00002¢

SRESREG

RESREG
Moy
MOV

MOV
L[1)")
MOV
Mov
Mov
Mov
MOV
Moy
RTI

s sRESTORE
¢ -RESTORE
s;RESTORE
s;RESTORE

PC
PS
PC
PS

OF
OF
OF
OF

CALL
CALL
MAIN FLOW
MAIN FLOW

::POP STACK INTO RS
;:POP STACK INTO R4

(SP)+.RO

:;POP STACK
:;POP STACK
::POP STACK
;;POP STACK

INTO R3
INTO R2
INTO R1
INTO RO

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

SEQ 0151 l

112

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

.SBTTL

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

JoRRRANNNRARARARAAANNAAIANAAARRAANAARANANNAANRAAARANAOARRRAAAAAASY

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
s*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

s*POSITIVE.
SeCALL
‘e
MOV

033732
03373¢
033740

104412
016602
012700

033752
033754
033762
033766
033772
033774
033776

012202
012737
012704
012705
005003
1614601
005602

034002
034004
034006
034010
034012
034014
034016

002402
005203
000772
062401
005502
062402
022525

0340264
034026
034030
034032
034034
034036
034040
034042
034044
034046
034050
034052
034054

110320
005327
000000
001357
105020
104413
000207
145000
035632
160400
002765
113200
000230

000002
034112

$DB2D:

SAVREG
MOV
MOV

2(SP) ,R2
#SDECVL ,RO

MOV
MOV
MOV
MOV
CLR
suB
SBC

(R2)+.R2
#10. .48
#STNPUR R
#STNPWR+2.RS
R3
(R4) ,R1
R

BLT
INC
BR
ADD
ADC
ADD
CMP

B ]
R3
2
(R4)+,R1
R2
(R4} +.R2
(RS)+- (RS)+

MOV
MOV
034030
18:
2s:

034000 161502

034020

034056
034060
034062
034064
034066
034070
034072
034074
034076
034100

052703

041100
000017
103240
000001
023420
000000
001750
000000
000144
000000

SUB

38:

000060

PC,ax#$DB2D

i
v

033744 010066 000002
033750 012201

000012
034042
0346044

#PNTR = (SP)

JSR
RETURN

BIS

MOVB
DEC
48:
LWORD
BNE
CLRB
RESREG
RTS
$STNPWR: 145000
35632
160400
2765
113200
0

RO,2(SP}
(RO)+,R1

(RS) ,R2

#'0.R$

R3,(RD)+
(PC)+
0
13
(RO)+
PC

:;POINTER TO LOW WORD OF BINARY NUMBER

;:THE FIRST ADDRESS OF ASCIZ
:31S ON THE STACK
::SAVE REGISTERS
*:PICKUP THE DATA POINTER
:sGET ADDRESS OF '‘SDECVL'' STRING

+3PUT ADDRESS OF ASCIZ STRING ON STACK
::PICKUP THE BINARY NUMBER
;:SET UP TO DO 10 CONVERSIONS
:ADDRESS OF TEN POWER
: ;CLEAR PARTIAL
22SUBTRACT TEN POWER
::BR IF TEN POWER TO LARGE
SADD 1 TO PARTIAL
1:LOOP
*RESTORE SUBTRACTED VALUE
::MOVE TO NEXT TEN POWER

*3CHANGE PARTIAL TO ASCII
SISAVE IT
+ ;DONE?

::BR IF NO
+TERMINATOR
*SRESTORE REGISTERS
* SRETURN
+:1.0E09
;:1.0E08
::1.0€07

041100

::1.0E06

103240

::1.0E05

23420

::1.0€04

1750
0
144
0

::1.0€03
::1.0E02

J 12

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

DOUBLE LENGTH BINARY TO DECIMAL ASCII

034102

000012

034106
034110
034112

000001
000000

000000

SEa 0152

CONVERT ROUTINE

::1.0€01

1
0
SDECVL: .BLKB

:21.0€00
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

ODOUBLE LENGTH BINARY TO OCTAL ASCII

K 12

SEQ 0153

CONVERT ROUTINE

.SBTTL
SRR

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

ANRA RN AAAANARANA R RN AR

ARA NN RN AN RARNAANNAAINRAANEAA
AN

tTHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

;*UNSIGNED OCTAL ASCIZ NUMBER.

:*CALL

MOV

RETURN

034126
034130
034134
034140
03414¢
034150
034152
034156
034156
034160
034162
034164
034166
034170
034172
034176
034200
034202
034204
034206
034210
034212
034214
034216
0346220

104412
016601
012705
012704
012703
012100
012101
005002
110245
010002
005304
003007
001405
005205
010566
104413
000207
006203
006001
006000
006001
006000
006001
006000
040302

034226
034230

000753

034222

062702

000002
034245
000014
177770

$DB20:

1$:

000002
28:
38:

000060

JSR

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV
DEC
BGT
BEQ
INC
MOV
RESREG
RTS
ASR
ROR
ROR
ROR
ROR
ROR
ROR
BIC

ADD

BR
$OCTVL: .BLkB

#PNTR, - (SP)

PC,ar$DB20

2(SP) ,R1
#SOCTVL+13.,RS
#12. .RG
#2C7.R3
(R1)+,R0
(R1)+.R1
R2
R2,-(RS)
RO,RZ
3s
zs

RS 2(SP)

::POINTER TO LOW WORD OF BINARY NUMBER

“3CALL THE ROUTINE

$3THE ADDRESS OF THE FIRST ASCIZ CHAR.

;:SAVE ALL REGISTERS
*:PICKUP THE POINTER TO LOW WORD
::POINTER TO DATA TABLE
:3D0 ELEVEN CHARACTERS
s MASK
:3LOWER WORD
*3HIGH WORD
*STERMINATOR
*:PUT CHARACTER IN DATA TABLE
*3GET THIS DIGIT
*3COUNT THIS CHARACTER
23BR IF NOT THE LAST DIGIT
2:BR IF IT IS THE LAST DIGIT
:SALL DIGITS DONE-ADJUST POINTER FOR FIRST
ASCIZ CHAR. & PUT IT ON THE STACK
::RESTORE ALL REGISTERS
P RETURN TO USER
::POSITION THE MASK FOR THE LAST DIGIT
:;POSITION THE BINARY NUMBER FOR
0
THE NEXT OCTAL DIGIT

PC
R3
R1
RO
R1
RO
R1
RO
R3,R2

::MASK OUT ALL JUNK

1$
14.

2360 PUT IT IN THE DATA TABLE
s sRESERVE DATA TABLE

#0.R2

IS ON THE STACK

*IMAKE THIS CHAR. ASCII

CZRJDEQ RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOv-81 09:16:17 PAGE 31

L 12

SEQ 0154

TRAP DECODER

.SBTTL
I

AAAAA

TRAP DECODER
AR AR

AR AR

A R

AdRd

iRt

ittt iiadiittiilid]

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
034250
0346254
034256
034260
034262
034266

010046
016600
005740

000002

006300
016000
000200

034302

$STRAP:

MOV
MOV

RO,=(SP)
2(SP) ,RO

::SAVE RO
..GET TRAP ADDRESS

MOovB

(RO) ,RO

..GET RIGHT BYTE OF TRAP

TST

111000

ASL
MOV
RTS

=(R0)

RO
STRPAD(RO)
,RO
RO

sBACKUP BY 2

sPOSITION FOR INDEXING
;::INDEX TO TABLE
::GO TO ROUTINE

ssTHIS IS USE TO HANDLE THE °'‘GETPRI'' MACRO
034270
034272
034300

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

.SBTTL

(SP) ,=(SP)
4(SP) ,2(SP)

s :MOVE THE PC DOWN
::MOVE THE PSW DOWN

:-RESTORE

THE PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE °'‘'TRAP'' INSTRUCTION.

;
034302
034304
034306
034310
034312
034314

034270
032570
033106
033062
033122
033310

034316

030770

034320
034322
034324
034326
034330
% 034332

030700

000032

ROUTINE

$TRPAD: .WORD
$STYPE

$TYPOC
$TYPOS
$TYPON
$STYPDS

$TRAP2

;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE
TYPE
TYPE
TYPE

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR

;. CALL=CKSWR
;. CALL=RDCHR

TRAP+7(104407)
TRAP¢10(104410)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE

SRDLIN
$SAVREG
SRESREG
$ DSPLY
$TERM=.-$TRPAD

;. CALL=RDLIN
;.CALL=SAVREG
;. CALL=RESREG
.;CALL=DISPLY

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZERO")
GCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-R5 ROUTINE
TRAP+13(104413) RESTORE RO~R5 ROUTINE
TRAP+14(104414) ROUTINE TO TYPE ERROR MESSAGES

SEQ 0155

ONNON) PPN = b o cad o =d D cad wd b
[« SV,
P
W= OV
NO NS WNI =0 Voo~

TRAP TABLE

.SBTTL

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

sDIGITAL EQUIPMENT CORP.

MAYNARD, MA 01754

:STORAGE FOR RPDS1, RPER1, RPER2, AND RPER3 ON AN ERROR '72''
;
_ = RPDS1
;RPERRS
;RPERRS+2 = RPER1
;RPERRS+4 = RPER2

:RPERRS+6 = RPER3

034334

000000

RPERRS:

.WORD

0,0,0,0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVA(CT=8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE
sDRVACT>Q IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

27 034344
28 034345
29 034346
30 034347
31 034350
32 034351
33 034352
34 034353

DRVACT:

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

0
0
0
0
0
0
0
0

sDRIVE
sDRIVE
:DRIVE
;DRIVE
:DRIVE
sDRIVE
sDRIVE
sDRIVE

0
1
2
3
4
5
6
7

;TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT
;DRVSTA>0 IF DRIVE IS ONLINE
;DRVSTA<O IF DRIVE IS UNSAFE
41
42
43
44
45
46
47
48

034354
034355
034356
034357
034360
034361
034362
034363

DRVSTA:

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

BYTE
.BYTE

0
0
0
0
0
0

0
0

sDRIVE
sDRIVE
sDRIVE
;DRIVE
sDRIVE
:DRIVE

0
1
2
3
4
5

;DRIVE 6
sDRIVE 7

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVTIYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
:DRVTYP=1 IF DRIVE IS RPQ4
:DRVTYP=2 IF DRIVE IS RPOS
;DRVTYP=4 IF DRIVE IS RP06
;DRVTYP==1 IF NOT RP04/5/6
57 034364
58 034365
59 034366
60 034367
61 034370
62 034371
63 034372

DRVTYP:

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

0
0
0
0
0
0
0

:DRIVE
:DRIVE
;DRIVE
;DRIVE
sDRIVE
sDRIVE
;DRIVE

0
1
2
3
¢4
§
6

w e

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

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

SEQ 0156

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

gg 034373

000

66
67

034374
034375
034376
034377
034400
034401
034402

000
000
000
000
000
000
000

DPINT:

000

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

.BYTE

0
0
0
0
0
0
0

sDRIVE
;DRIVE
sDRIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE

0
1
2
3
4
5
6

;DRIVE 7

sTABLE OF PENDING DUAL PORT REQUESTS

;DPRQS=0 IF THAT A DUAL PORT REQUEST IS
NOT PENDING FOR THAT DRIVE

:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE
034404
034405
034406
034407
034410
034411
034412
034413

000
000
000
000
000
000
000
000

92
93
gg

89 034414

000000

;DRIVE
;DRIVE
;DRIVE
;DRIVE
sDRIVE
sDRIVE
sDRIVE
;DRIVE

0
1
2
3
&
5
6
7

TRNSWT:

.WORD

SRCHWT:

.WORD

RPO4/5/6 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)
V=0 IF DRIVER IS INACTIVE

}?3

ACTDRV)O IF DRIVER IS ACTIVE

000

113
114
}}g

}}g 034421

O
0
0
0
0
0
0
0

sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.

106
107
108

}}} 034420

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

sSEARCH WAIT KEYS (SRCHWT=1 WORD)
sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
sTHE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

}8%

}8? 034416

DPRQS:

s TRANSFER WAIT FLAG (TRNSWT=1 WORD)
sTHIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
:"DPB'* OF THE 1/0 OPERATION.

98
99
100
101

119
120

;DRIVE 7

:DPINT<O IF INITIALIZATION IS IN PROGRESS

;g 034403

83
84
85
86
87
88
89
g?

sTABLE OF DUAL PORT INITIALIZATION INDICATORS
;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE

gg
70
71
72
73
74
75
76

.BYTE

ACTDRV:

.BYTE

;SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE
sACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE

000

ACTSTR:

.BYTE

sUNLOAD FLAG (ULDFLG=8 BYTES)
;ULDFLG=0
IF NO UNLOAD COMMAND

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

SEQ 0157

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

;ULDFLG>Q IF UNLOAD COMMAND IN PROGRESS

121
122
123
126 034422
125 034423
126 034424
127 034425
128 034426
129 034427
130 034430
131 034431
132
133
134
135
136 034432
137 034433
138 034434
139 034435
140 034436
141 034437
142 034440

JULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE
ULDFLG:

LACNT:

172

0
0
0
0

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

-3YTE

.BYTE

;DRIVE 3
:DRIVE
:DRIVE
;DRIVE
;DRIVE

4
5
6
7

0
0
0
0
0
0

;DRIVE
sDRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

0
1
2
3
4
5

:DRIVE 6

;DRIVE 7

:SAVE REGISTERS FLAG (SAVEFG =1 WORD)

146

173
174
175
176
177 034466

BYTE
.BYTE
.BYTE
.BYTE

:DRIVE 0
;DRIVE 1
:DRIVE 2

;LOOK AHEAD COUNT (LACNT=8 BYTES)
SLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED

145

170 034462
171 034464

0
0
0

.BYTE

143 034441
144

147
148
149
150
151 034442
152
153
154
155
156
157
158
159 034444
160
161
162
163
164 034446
165 034450
166 034452
167 034454
168 034456
169 034460

.BYTE
BYTE
BYTE

sSAVEFG <0 IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER (DPB+14).
;SAVEFG=0 IF SAVE THE RH11/RP04/5/6 REGISTERS, AS PER
:(DPB+14), AFTER AN ERROR.

000000

SAVEFG:

.WORD

sSEEK FLAG (SEEKFG=1 WORD)
:SEEKFG=0 IF WHEN THE DISK ADDRESS ISN°'T IN THE WINDOW
sFOR A DATA TRANSFER START A SEARCH COMMAND

;SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS,
;DISREGARD THE WINDOW
000000

SEEKFG: .WORD

;TIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION
177777
177777
177777
177777
177777
177777
177777
177777

TIMER:

.WORD

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

-1

-1
-1
-1
-1
-1
-1
-1

;DATA TRANSFER UNDERWAY

:DRIVE 0

sDRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

1
2
3
4
$
6
7

INDICATOR

(DTUW=1 WORD)

;DTUWCO IF NO DATA TRANSFER UNDERWAY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

177777

DTUW:

.WORD

-1

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 32~§

SEQ 0158

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
178
179
180

SATTENTION BITS TABLE
sTHIS TABLE

;ATTENTION BIT

ATABIT:

.BYTE

L ellelo
To
To To 1o ]

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

2
&
10
20
40
100
200

;RP04/5/6 TO RH11
OO O

(ATABIT=8 BYTES)

CONTAINS THE CORRESPONDING BIT

TO EACH DRIVES

;DRIVE 0

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

1
2
3

4
5
6
7

'MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE) ALLOWED BEFORE

cCALLING IT FATAL (MCPEMX=1 WORD)
034500

000003

MCPEMX:

.WORD

;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6),
JRPVEC

200 034502
201 034504

176700

000254

000240

(THE VECTOR ADDRESS

RPADR:
RPVEC:

.WORD
.WORD

(254)), AND RPVEC+2

(THE BR LEVEL

(5)).

176700
254,5+32.

sMAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS & (MXLACT=1 WORD)
000004

MXLACT: .WORD
4
sMAXIMUM DELTA DELAY IS 8 SECTORS

034512

001000

MXDLTA:

.WORD

8.+64.

034514

000200

MNDLTA:

.WORD

2+64.

034516

000005

MXWNDW:

.WORD

b
b

(MXDLTA=1

WORD)

sMINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD)
sMAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD)

sDEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES

b e

OV NN
NN =

NORININLNINININI
NN

210

034510

000000

000040

RPCS1=0
RPW(=2
RPBA=4
RPDA=6
RPCS2=10
RPDS1=12
RPER1=14
RPAS=16

RPLA=20
RPDB=22
RPMR=24
RPDT=26
RPSN=30
RPOF =32
RPCA=34
RPCC=36

RPER2=40

sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
sWORD COUNT REGISTER (NOT A DRIVE REG)
sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG)
sDESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)
sCONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
sDRIVE STATUS REGISTER (DRIVE REG 01)
sERROR REGISTER #1 (DRIVE REG. 02)
SATTENTION SUMMARY PSEUDO REGISTER_(DRIVE REG. 04)

sLOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.)
:MAINTAINABILITY REGISTER (DRIVE REG. 03)
sDRIVE TYPE REGISTER (DRIVE REG. 06)
sSERIAL NUMBER REGISTER (DRIVE REG. 10)
:OFFSET REGISTER (DRIVE REG. 11)
:DESIRSD CYLINDER ADDRESS REGISTER (DRIVE REG.
sCURRENT CYLINDER _ADDRESS REGISTER (DRIVE REG.
:ERROR REGISTER #2 (DRIVE REG.

14)

12)

13)

D 13

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-4
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
235
236

ggg

000042
000044

RPER3=42
RPEC1=44

000046

*NOTE: THIS ROUTINE CALLS DRVINT

245
246
247

;CALL
;
:

252 034520
253 034522

104412
013746

255 034534
256 034540
257 034544
258 034550
259 034552

004737
012701
012702
005021
020102

260 034554
261 034556
262 034562

012737

177776

000240

042652
034334
034444

263 034566
264 034570
265 034572
266 034576
267 034602
268 034606
269 034612
270 034616
271 034622
272 034626

034354
034356
034360
034362
034504
037434
034506
034502

274 034640
275 034642

005001
004037

034732

276 034646

277 034650

278 034652

279 034656
280 034660
281 034664
034
283 034672
284 034676
285 034702
034704
287 034710
288 034714
289 034716
290 034720
291 034722

012764

000401

000402

105061

005201
042701
001366
012701
005037
105761
001405
004737
105761
001375
005301
100366
012637

JSR

PC,RPINIT

RETURN
;
*NOTE: THE 'P' OR 'L* CLOCK MUST BE STARTED

101775
012702
012721
020102
101774
005037
005037
005037
005037
013703
012723
013713
013704

273 034632

17)

:AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
*TO THE PROPER STATE FOR EACH DRIVE.

gzz

254 034526

*ECC PATTERN REGISTER (DRIVE REG.

:RH11/RP04/5/6 DRIVER INITIALIZATION CODE
;THIS ROUTINE WILL DETERMINE WHICH RP04/5/6 DRIVES ARE

261
262

523
%§?

;ERROR REGISTER #3 (DRIVE REG. 15)
*ECC POSITION REGISTER (DRIVE REG. 16)

RPE(C2=46

239
240

SEQ 0159

177776

034354
177770

MOV

1$:

034466
177777

000040

RPINIT: SAVREG
MOV

28:

000010

BLOS
MOV
MOV

4
5%

68:

042306
034374

78:
8s:

#<S+82.> 3#Ps
PC, CLRQUE
#RPERRS ,R1
#SEEKFG.R2
(R1)+
R1.R2

CMP
BLOS
CLR
CLR
CLR
CLR
MOV
MOV
MOV
MOV

1%
#DTUM,R2
#-1,(R1)+
R1.R2
28
DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6
RPVEC ,R3
#ISR, (R3)+
RPVEC+2, (R3)
RPADR R4

CLR
JSR

R1
RO,DRVINT

MOV

000007
177776
034374

177776

JSR
MOV
MOV
CLR
CMP

#PS - (SP)

;SAVE RO - RS
*SAVE THE PRESENT PROCESSOR. STATUS

:CHANGE THE PRIORITY TO 5

SCLEAR ALL REQUEST QUEUES
*FIRST ADDRESS TO BE CLEARED
*LAST ADDRESS TO BE CLEARED
*CLEAR
*ARE WE DONE?
*BRANCH IF NO
*LAST ADDRESS
SINITIALIZE
*DONE?
:LOOP IF NO
SSET ALL DRIVES TO OFFLINE

JSETUP THE RH11/RP04/5/6 VECTOR
;FIRST ADDRESS OF RH11/RP04

#81T05, RPCS2(R4) " ;MASSBUS INIT

;START WITH DRIVE 0
SINIT THE DRIVE

/X3

S*DVA® NOT SET OR PARITY ERROR

CLRB

DRVSTA(R1)

*SET DRIVE STATUS TO OFFLINE

INC
8I(
BNE
MOV
CLR
TSTB
BEQ
JSR
TSTB
BNE
DEC
8PL
MOV

R1
#4C7.R1
33
#7.R1
aNps
DPINT(R1)
8s
PC.SET.IE
DPINT(R1)
78
R1
63

(SP)+,a#Ps

*NORMAL RETURN

260 TO NEXT DRIVE
*MASK OUT UNUSED BITS

*BR IF MORE DRIVES TO GO
*START WITH DRIVE 7
:CLEAR THE PROCESSOR STATUS
*WAITING FOR DRIVE TO SWITCH PORTS ?
*BR NOT WAITING
*SET INTERRUPT
*DRIVE SWITCHED PORTS ?
*BR IF NOT
*GO TO THE NEXT DRIVE
*CHECK NEXT DRIVE
*RESTORE THE PROCESSOR STATUS

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 32°§

SEQ 0160

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

292 034726
233 034730

104413
000207

RESREG
RIS

295
296

:RESTORE RO = RS
:BYE-BYE

:DRIVE INITILIZATION ROUTINE
:THIS ROUTINE DETERMINES IF_A DRIVE EXIST AND IF IT IS

297

AN RP04/5/6.
IF

298
299

300

caLL

302
303
304
305

:
.
:
:

306

;

308
309 034732
310 034736
311 034740
312 034744
313 034750

010546
105061
105061
105061
010164

316 034770
317 034772
318 034776
319 035000
320 035004

001403
004737
000543
105061
032764

314 034754
315 034762

112764
032764

321 035012
322 035014
323 035020
324 035022
325 035024
326 035026

001537
004037
000026
035332
012605
112761

328
329
330
331

001431
022705
001426
112761

327 035034

035040
035042
035046
035050

332 035056

333 035062

022705

335 035070
336 035072

001420
022705
001415
112761

338 035104
339 035106
340 035112
341 035114
342 035122
343 035124
344 035130

001407
022705
001404
112761
000471
005737
001010

346 035140

001404

337 035100

3,5 035132
347 035142

348 035150

022705

034354
034364
034422
000010

000111
010000

000000
000010

034354
004000

000000

020020

020021

020022

:SAVE RS
:START DRIVE STATUS AS OFFLINE
:CLEAR THE DRIVE TYPE INDICATOR
:CLEAR THE UNLOAD FLAG
:SELECT A DRIVE

#1§1,RPCST(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
#BITi2,RPCS2(R4)" ;NONEXISTENT DRIVE?
18
:NO~=~BRANCH
.
PC,SET.IE
260 SET "IE'* WITHOUT A ‘‘TRE"
6$
:LEAVE THIS ROUTINE
DRVSTA(R1)
:SET DRIVE STATUS TO OFFLINE
#BIT11,RPCS1(R4)’
;SEE IF DRIVE AVAILABLE
7%
;BR_IF DRIVE NOT AVAILABLE
RO,RD.RP
:READ THE DRIVE TYPE REG.

034364

:ERROR RETURN ADDRESS
:PUT DRIVE TYPE IN RS
:SET RPO4 INDICATOR

034364

BEQ
(NP
BEQ
MOVB

28
#24020,RS
28
#2,DRVIYP(R1)

:BRANCH IF YES
:1S IT A DUAL PORT RPO4?
:BR_IF YES
:SET RPOS5 INDICATOR

034364

BEQ
CMP
BEQ
MOVB

28
#24021,R5
28
#4DRVIYP(R1)

:BR IF YES
:DUAL_PORT RP0S5 ?
:BR_IF YES
:SET RPO6 INDICATOR

BEQ
(NP
BEQ
MOVB
BR
IST
BNE

28
#24022,RS
28
#-1,DRVTYP(R1)
63
TSTPGM
98

:BR IF YES
:DUAL_PORT RP06 ?
:BR_IF YES
:SET INDICATOR TO ‘OTHER’
SEXIT
:INHIBIT PROGRAMMABLE DRIVE?
:BRANCH IF NO

BEQ

:BRANCH IF NO

SEXIT

cMp

024022

177777

BEQ
JSR
BR
(LRB
BIT

R5,=(SP)
DRVSTA(R1)
DRVIYP(R1)
ULDFLG(R1)
RI,RPCS2(R4)

:NORMAL RETURN

(SP)+.RS
#1.DRVTYP(R1)

024021

000004

RETURN2

:DRIVE NUMBER TO R1
:UNIBUS ADDRESS OF RH11/RP04/5/6 (RPCS1)
:CALLED BY A JSR
:ERROR OCCURRED (PARITY)

BEQ
JSR_
RPDT
8$
MOV
MOVB

034364

035336

28:

032764

001000

000012

152761

000010

034364

000456

1$:

024020
000002

MOV
#DRVNUM,R1
MOV
RPADR.Ré
JSR
RO,DRVINT
RETURN]

move
BIT

041626

000001

‘DRVSTA IS'SET To THE PROPER CONDITION.

DRVINT: MOV
CLRB
CLRB
CLRB
MOV

042306

IT 1S,”A 'READ-IN PRESET*' IS ISSUED AND FMT22

:1S SET TO A *"1"'. THEN'MOL, DPR, DRY, AND VV ARE CHECKED T0
:INSURE THEY ARE ALL ON A “1"'. AND DEPENDING ON THEIR STATE,

BIT

BISB
BR

#20020.R5

#20021,R5

#20022,R5

:1S IT A SINGLE PORT RPO4?

:SINGLE PORT RPOS ?

:SINGLE PORT RP06 ?

#BIT09, RPDS1(R4J;1S DRIVE PROGRAMMABLE?
#BITO3, DRVTYP(R1);SET INDICATOR

F 13
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-6
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
349 035152
350 035154
351 035156

010346
006301
016103

353 035166
354 035170

GO4201
012603

352 035162

355 035172

010563

012746

356 035176
357 035202
358 035204
359 035206
360 035212
361 035216
362 035220
363 035222
364 035226
365 035230
366 035232
367 035234
368 035236
369 035244
370 035250
371 035252
372 035254
373 035256
3746 035260
375 035266
376 035270

004037
000000
035332
012746
004037
000032
035332
004037
000012
035332
012605
100015
116164
004037
000074
035332
006126
190004
112761
000407
005105

378 035276
379 035300

001003
112761

377 035272

380 035306

042705

005720

381 035310
382 035312

000410
006301

384 035322
385 035326
386 035330
387 035332
%gg 035334

006201
105161
005720
012605
000200

383 035314

012761

390
391
392

9$:
001740

000262
000121

010000
042002

0461626

177777

000016

034354
A ¥

167077
000001

003720

ASR
MOV

(SP)* R3

JRESTORE DRIVE NUMBER
;RESTORE R3

034354

034446

63
7%:

034374

8s:

JSR
RPCS1
8s
MOV
JSR
RPOF
8s
JSR
RPD31
8s
MOV
BPL
MOovB
JSR
RPER1
8s
ROL
8PL
MOVB
BR
coM

BIC

BNE
MOV8

TST

B8R
ASL

mov

ASR
com8
TST
MOV
RTS

RS $RPDT (RS)

;STORE DRIVE'S TYPE

0121.°(SP)

;D0 A "READ=IN-PRESET'’

#MIT12,-(SP)
RO,WRT.RP

:SET FMT22=1

RO,RD.RP

:READ RPDS1

RO,WRT.RP

(SP)+ RS
JAND SAVE IT IN RS
A 3
;BRANCH IF ATA=0
ATABIT(R1) ,RPAS(R4) :CLEAR ATTENTION BIT
RO.RD.RP
JFIND OUT WHY ATA=1
(SP)+
43
#-1,DRVSTA(RY)
63
RS

;1S 1T UNSAFE?
;BR IF NOT
:SET UNSAFE INDICATOR
.E IT
K MOL, DPR DRY, AND VV

63
#1 _DRVSTA(R1)

JBRANCH IF HOL DPR, DRY, OR VvV IS CLEAR
_SET DRIVE STATUS TO ONLINE

I‘C<BIT12'81708'81707'81706>
6)+

:STEP OVER THE ERROR RETURN

.EXIT
JCHANGE INDEX TO ADDRESS WORDS

02000..T1HER(R1) START 2 SEC TIMER
R1
DPINT(R1)
(RO)+
(SP)+ RS
RO

ORE R1
SET PORT INITIALIZE INIDICATOR

:RESTORE RS
JEXIT

sTEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD)
;THE FLAG WILL BE SET BY THE PROGRAM UNDER
SMANUFACTURING CONDITIONS (ACT,APT) AND

393
394
295

;CLEARED UNDER FIELD CONDITIONS(XXDP CHAIN,
JSTANDALONE) WITH STARTING ADDRESS 200.
JTHE FLAG WILL BE SET UNDER ALL CONDITIONS

ggg
%gg 035336

BLKADR(R1) R3

;SAVE R3
JCREATE WORD INDEX
JGET DPB START ADDRESS

MOV

042002

034470
041626

MOV
ASL
MOV

[0}

R3 -(SP)

SEQ 0161

:UITH STARTING ADDRESS 220.

000000

TSTPGM:

.WORD

;=1 TEST PROGRAMMABLE DRIVE

28?

JREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

28%

;CALL

404
405

JSR
PNTADR

RO, a#RP04

;CALL THE RP04/5/6 DRIVER
sADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

. M~

CZRJDEO
RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32- 9
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
406
407

203

410
411
412
413
414

035340
035344
035352
035360
035362

013746
013737
112737
104412
011002

416 035370
417 035372
418 035376
419 035402
420 035404
421 035410
422 035412
423 035416
424 035620
425 035424
426 035626
427 035432
428 035434
429 035440
430 035442
431 035446
432 035452
433 035454
43% 035462
435 035464

111201
013704
105761
003014
105761
001036
105761
001042
004037
000434
105761
003445
105761
001031
010164
004037
000460
122762
001003
112761

437 035476
438 035500

001043
004737

440 035506
441 035514
442 035516
443 035522
444 035524
445 035530
446 035532
447 035536
448 035540

012762
000434
004737
000431
004037
000431
032714
001023
004737

415 035364

436 035472
439 035504

449 035544

450 035546
451 035552

452 035554

005062

105761

000440

000420

105761
002412

012762

'77776
034506
006001

457 035600

458 035606
459 035610

034354
034404

000010
042750
000103

000002

177777

034422

034344

120000

000016

462 035616

005720

3$:

036742

48:

042750

58:

000100

042306
034354

68:

000016

104413

28:

035632

110000

000401

461 035614

1$:

012762

460 035612

(R2),R1
RPADR
,
4
DRVSTA(R1)
1$
ULDFLG(R1)
3$
DPINT(R1)
5$
RO,DRVINT
48

034732

000016

104413
005720

MOVB
MOV
TSTB
8GT
TSTB
BNE
TSTB
BNE
JSR
BR
TSTB
BLE
TSTB
BNE
MOV
JSR
BR
CMPB
BNE
MOVB

034374

100002

000403

aPS,
- (SP)
RPVEC+Z ,a#P$S
#1,ACTDRV

034422

012762

456 035576

MOV
MOV
MOVB
SAVREG
MOV

034502
034354

000016

001007

RPO4:

CLR

140000

454 035566

RE TURN1
RE TURN2

000016

453 035562 105761 034364
455 035570

177776
034420

;
;

TSTB

BNE
JSR

DRVSTA(R1)
63
DPRQS(R1)
Ss
R1,RPCS2(R4)
RO.DRVQUE
98
#103,2(R2)
2
#-1,ULDFLG(R1)

DRVACT(RT)

sP1CKUP THE DRIVE NUMBER

sUNIBUS ADDRESS OF RP(CS1
sCHECK DRIVES STATUS
:BRANCH IF ONLINE
sUNLOAD COMMAND IN QUEUE?
sBRANCH IF YES

sTRYING TO INIT THE DRIVE

:BR IF YES
:GO INIT. THE DRIVE
:ERROR RETURN
:1S ?RIVETSTATUS ONL INE?
:BR_IF
NO
OUTSTANgéNG PORT REQUEST FOR THE DRIVE ?
:BRIF
Y
sSELECT THE DRIVE

:PUT THIS REQUEST IN QUEUE

sQUEUE IS FULL
;1S THIS REO FOR AN UNLOAD?

:BR IF
N
sSET THE 'UNLOAD IN QUEUE'’ FLAG
:1S THIS
gRIVE ACTIVE?

DRVSTA(R1)
78

B8R

MOV

108:

16(RS)

:SAVE RO- RS
:PICKUP THE DRIVE PARAMETER BLOCK POINTER
¢CLEAR THE STATUS/ERROR INDICATOR

TSTB
BLT

B8R

BNE

98 :

(RO) ,R2

;SAVE THE CALLING STATUS

:DON'T ALLOW ANY RP04/5/6 INTERRUPTS
$SET “ACTIVE DRIVER'' FLAG

MOV
BR
JSR
BR
JSR
BR
BIT
BNE
JSR

TSTB
7$:

sRETURN HERE IF QUEUE IS FULL

cRETURN HERE IF REQUEST IS IN QUEUE OR THERE
sIS AN ERROR CONDITION

8s
:BR IF YE
PC,OPT
sCALL THE OPTIMIZER
8$
521715'8171316(R2) :SET THE ‘UNLOAD IN QUEUE'‘ ERROR FLAG
EXIT
PC.CI7
;GO HANDLE THE PARITY ERROR
8s
RO, DRVQUE
sPUT REQUEST IN QUEUE
9s
sQUEUE IS FULL
#8IT06, (RG)
;1S *IE® SET ALREADY ?
8s
‘BR IF IT 1S
PC,SET.IE
¢SET INTERRUPT

MOV

8$:

SEQ 0162

MOV

RESREG
ST

B8R

RESREG

TST

:RETURN, REQUEST IN QUEUE
SEE IF DRI¥E OFFLINE OR UNSAFE

BR IF UNSAFE

MBITI71BIT14.16(R2)

DRVTY.
{R1)
8s

sSET OFFLINE ERROR INDICATOR
sSEE IF OFFLINE OR NONEXISTENT
*BR IF _OFFLINE

#8IT15!81701,16(R2)
8s

;REPORT DRIVE NONEXISTENT

GO T 0 EXIT
#8IT15!81T12,16(R2) :DRIVE IS UNSAFE
:RE STORE RO
- RS
(RO)+
*SETUP FOR NORMAL RETURN

108

SFINISH UP

(RO)+

sCORRECT THE RETURN ADDRESS

rusn EXIT

*RESTORE RO - RS

ry. vy

—_———

463 035620
464 035624
465 035630

105037
012637

000200

034420
177776

CLRE
MOV

RTS

ACTDRV
(SP)+,a#Ps
RO

:CLEAR "ACTIVE DRIVER'* FLAG
:RETURN 'PS'*
TO USER LEVEL
:RETURN TO CALLER

w67

;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

469
470

S CALL
:

473 035632
47% 035634
475 035640

104412
013746
146137

477 035652

005702

476 035646
4578 035654

004737
001505

479 035656
480 035664
481 035666
482 035674
483 035676
484 035702
485 035704
486 035710
487 035712

032764
001407
032764
001003
004037
000470
105761
003014
004737

489 035724
490 035730
491 035732

105761
100064
012762

488 035716

492
493
49%
495
496
497
498
499
500

035740
035742
035746
035752
035754
035756
035762
035764
035772

501 035774
502 036000
503 036002
504 036006
505 036010
506 036014
507 036016
508 036022
509 036026
510 036026
511 036032
512 036034
513 036040
514 036042

515 036050
516 036052

012762

000460
012746
004037
000000
036064
032714
001427
122762
002403
004737
000440
005737
002012
005737
100404
004037
000427
000403
004737

000423
004737
000420
112761

010103
006303

177776
034470

043026

OPT:
034416

004000

000000

000100

000012

034354

108:

140000

000016

110000

000016

000111
042002

1$:

000002

036326
034466

28:

034444
037276
036112

33:

036220

177777

034404

S5$:

517 036054 012763 023620 034446

518 036062
519 036064

000402
004737

036742

;SAVE RO = RS
a4PS,SAVE PROC. STATUS
.
ATABIT(R1).SRCHWF
;CLEAR "'SEARCH WAIT'' KEY

1ST

PC,OPT

;DRIVE NUMBER TO R1

:SETUP A COMMAND

PC,GETREQ

;GET_'DPB" POINTER OF REQUEST

:NO--BRANCH TO EXIT

;1S THERE A REQUEST IN QUEUE?

BIT
BEQ
BIT
BNE
JSR
BR
TSTB
BGT
JSR

#BIT11,RPCS1(R4)
;IS DVA SET?
108
:BRANCH IF_NOT
#BIT6,RPDST(R4)
“;IS VV SET
?
108
:BRUIF IT IS
RO,DRVINT
:SEE IF DRIVE STILL ONLINE ?
6$
:PARITY OR ‘DVA’ NOT SET
DRVSTA(R1)
:1S DRIVE ONLINE?
1%
: YES=-BRANCH
PC,POPQUE
:NO--REMOVE REQUEST FROM QUEUE

TSTB
BPL
MOV

DRVSTA(RT)
18 DRIVE UNSAFE ?
88
. .. :BR TO EXIT IF NOT
#BIT1S!BIT12,16(R2)
;SET UNSAFE STATUS/ERROR INDICATOR

MOV

0046000
000150

SAVREG
MOV
BIte
BEQ

98:

034354

#DRVNUM,R1

JSR

034732

043046

MOV

BR
MOV
JSR
RPCS1
63
BIT
BEQ
CMPB
8LT

JSR
BR
I1ST
BGE
ST
BMI
JSR
BR
BR
JSR

#BiT15!BIT14,16(R2)
8s
#111,=(SP)
RO,WRT.RP

#BIT11,(R4)
5§
¥#150,2(R2)
28
PC.CI4
8$
DTW
48
SEEKFG
3$
RO,LA
8s
4$
PCCI

:SET OFFLINE STATUS/ERROR INDICATOR

sBRANCH T0 EXIT
:LOAD COMMAND ONTO THE STACK
:LOAD THE REGISTER
:REGISTER_INCREMENT
ERROR RETURN_ADDRESS
:DRIVE AVAILABLE
?
:BR IF NOT
;1S _THE REQUEST FOR 1/0?
: YES=~BRANCH
:CALL THE COMMAND INITIATOR
:BRANCH_TO EXIT
:DATA TRANSFER UNDERWAY?
:YES=-60 START
A SEARCH
:D0_IMPLIED SEEKS?
: YES==~BRANCH
:NO==DO LOOK AHEAD
:RETURN HERE ON A PARITY ERROR
60 START A_SEARCH
:START A DATA TRANSFER

BR
JSR
BR
MOVB

8s
P(C,CI3
8s
#-1,DPRAS(R1)

MOV

#10000..TIMER(R3S CSSTART 10 SEC 1IMER

MOV
ASL
BR
USSR

R1,R3
R3’

78
PCCI7

:START A SEARCH
:60_TO THE EXIT
:SET PORT REQUEST INDICATOR

ser Up T ADDRESS WORDS
ONVERT TO WORDTM INDEX

SEXIT
:PROCESS THE PARITY ERROR

TM~

SEQ 0163

4.7

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.()

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

SEQ 0164

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV
1
520 036070
521 036074
522 036076
523 036102
524 036106
ggg 036110

032714
001002
004737
012637
104413
000207

000100

7$:

0462306
177776

8s:

BIT
BNE
JSR
MOV
RESREG
RTS

#81706, (R4)
8s
PC,SET.IE
(SP)+,3#PS

ggg

; COMMAND INITIATOR

529
530
531
532
533

:CALL
M
:
:
:

534

239
538 036112 004737 043046

‘
CI1:

535

539 036116
540 036122
541 036126

010237
010203
013704

034502

544 036140

062704

000002

542 036130
543 036136
545 036144

546 036146

547 036150

010164
062703
012324

548 036152
549 036156
550 036160
551 036162
552 0361664
553 036170
554 036172
555 036174
556 036200
557 036204
558 036206
559 036210

004037
000006
036742
012346
004037
000034
036742
016246
004037
000000
036742
010137

561 036220

013704

563 036230

016246

565 036240
566 036242
567 036244
568 036250
569 036254
570 036256
571 036262

000034
036742
116203
163703
002002
062703
010346

574 036276
575 036300
576 036302

000006
036742
012746

560 0362164

562 036224
564 036234

572 036264
573 036272

000137
010164

004037

116266
004037

034414

000010
000004

JSR
MOV
MOV
MOV

PC,POPQUE
R2. TRNSWT
R2.R3
RPADR, R4

ADD

#2 R4

MOV

000002
042002
034466

036704

034502

cI3:

000010
000012

042002

000026

000131

000001

:DRIVE NUBER
:ADDRESS OF
D

:Cl1?2= (11, CI3 OR CI4

; WHERE:

R1,RPCS2 (R4)
#4.R3
(R$)+,(R4)+
(R3)+. (R4)+

(R3) +.=(SP)

sRPWC ADDRESS
cLOAD WORD COUNT
:LOAD BUFFER ADDRESS
sLOAD SECTOR AND TRACK
sCALL THE LOAD(WRITE) ROUTINE

2(R2) ,~(SP)
RO,WRT.RP

;LOAD ''COMMAND+GO’‘, "‘A178A16'°, AND ‘PSEL'’

R1,DTUW

;SET ‘DATA TRANSFER UNDERWAY''

MoV

RPADR, R4

sRPCS1 _ADDRESS

MOV

12(R2) ,~(SP)

JMP

MOV

RO,WRT.RP

sREMOVE .¢QUEST FROM *DRIVES WAIT'' QUEUE
sPUT REQ. IN TRANSFER WAIT QUEUE
:DPB ADDRESS TO R3
sRPCS1 _ADDRESS
cSELECT DRIVE
sDESIRED WORD COUNT

JSR
RPDA
cI7
MOV
JSR
RPCA
c17
MOV
JSR
RPCS1
cI?
MOV

JSR

000010
034516

STATUS

:RESTORE RO - RS

:C14=NOT DATA TRANSFER

MOV

042002

WITHOUT A 'TRE"

:RESTORE PROC.

:C12=SEARCH REQUESTED BY DATA XFER

MOV
ADD

042002

SET_"'IETM

:C11=DATA TRANSFER

MOV

000011
0462002

#DRVNUM R1
#DPB,R2
PC.CI?

012324

012346

MOV
MOV
JSR

:SEE_IF 'IE' ALREADY SET
:BR_IF SET

(R3)+,-(SP)
RO,WRT.RP

c1$

R1.RPCS2 (R&4)
RO,WRT.RP

s INDEX OF REGISTER TO LOAD

cERROR RETURN ADDRESS
sLOAD CYLINDER ADDRESS

sSELECT DRIVE
sDESIRED CYLINDER ADDRESS

RPCA
cI?
MOVB
SU8
BGE
ADD
MOV

10(R2),R3
MXWNDW.R3
18
#22..R3
R3,-(SP)

sPICKUP SECTOR ADDRESS
;BACKUP BY MAX. SEARCH FOR 1/0 WINDOW

RPDA
cl7
MOV

11(R2),1(SP)
RO,WRT.RP

;COMBINE THE ADJUSTED SECTOR WITH
s THE DESIRED TRACK
sLOAD DESIRED TRACK & SECTOR

#131,-(SP)

sSTART A SEARCH

MOVB
JSR

wn e

—

577 036306
578 036312

004037
000000

042002

580 036316
581 036326
582 036326
583 036332
584 036336
585 036342
586 036346
587 036350
588 036354
589 036360
590 036362
591 036364
592 036366
593 036372
594 036374
595 036400
596 036404
597 036406
598 036410
599 036412
600 036416
601 036420
602 036424
603 036426
604 036430
605 036434
606 036440
607 036442
608 036444
609 036446
610 036452
611 036454
612 036460
613 036462
614 036466
615 036470
616 036476
617 036502
618 036510
619 036512
620 036516
621 036520
622 036522
623 036524
624 036530
625 036532
626 036536
627 036540
628 036542
629 036550

156137
000567
013704
010164
116203
122703
001007
016246
004037
000006
036742
000403
122703
001007
016246
004037
000034
036742
000546
122703
001013
004037
000032
036742
116216
004037
000032
036742
000530
122703
001525
122703
001522
122703
001016
112761
105061
112761
010346
004037
000000
036742
000207
122703
001014
004037
000032
036742
116266
004037

034470

579 036314 036742

630 036554
631 036554
632 03656,
633 036562

000032
036742
000436
122703

034502
000010
000002
000131

Cl4:

000010
042002

000105

1$:

000012
042002

28:

000115

33:

041626

000001
042002

000107

48:

000117
000103
000001
034354
000001

034344

034422

042002

000143

5$:

041626
000001
042002

000141

JSR
RPCS1

RO,WRT.RP

BISB
BR
MOV
MOV
MOVB
CMPB
BNE
MOV
JSR
RPDA
c17
BR
(MPB
BNE
MOV
JSR
RP(A
c17
BR
(MPB
BNE
JSR
RPOF
c17
MOVB
JSR
RPOF
cI7
BR
(MPB
BEQ
(MPB
BEQ
(NP8
BNE
MOVB
CLRB
MOVB
MOV
JSR
RP(S1
cI
RTS
(MPB
BNE
JSR
RPOF
c17
MOVB
JSR_

ATABIT(R1),SRCHWT
;SET "'SEARCH WAIT'' KEY
cIS
RPADR,Ré
sRPCS1_ADDRESS
R1,RP(S2(R4)
:SELECT DRIVE
2(R2),R3
:PICKUP THE REQUESTED COMMAND
#131.R3
1S 1T A SEARCH COMMAND?
1%
:BRANCH_IF NO
10(R2),-(SP)
:LOAD DESIRED TRACK & SECTOR
RO,WRT.RP

c17

034416

000001

68:

RPOF
c17
BR
CMPB

28
#105.R3
38
12(R2),-{SP)
RO,WRT.RP

cI16
#115.R3
48
RO,RD.RP

;60 LOAD CYLINDER
IS IT A SEEK COMMAND
:BRANCH_IF NO
:LOAD DESIRED CYLINDER

;1S IT AN "OFFSET'' COMMAND?
:BR_IF NO
:MERGE THE OFFSET VALUE INTO RPOF
:BUT DON'T CHANGE THE UPPER

1(R2),(SP)
RO,WRT.RP

:BYTE WHEN LOADING THE
:REGISTER (RPOF)

C16
#107,R3
CI6
#117,R3
CI6
#103,R3
5%
#1,DRVACT(R1)
DRVSTA(R1)
#1,ULDFLG(R1)
R3.-(SP)
RO.WRT.RP

:GO START THE COMMAND
1S IT A "RECALIBRATE'* COMMAND?
:BRANCH IF_YES
SIS IT A RETURN TO CENTER?
:BRANCH IF YES
SIS IT AN "UNLOAD'* COMMAND?
:BRANCH_IF NO
:SET THE DRIVE ACTIVE INDICATOR
:PUT DRIVE STATUS TO OFFLINE
:SET "UNLOAD IN PROGRESSTM FLAG
START THE ''UNLOAD'' COMMAND

PC
#143,R3
68
RO,RD.RP

:RETURN TO USER
IS IT A "'SET FORMAT'' COMMAND?
:BRANCH IF NO
:READ THE OFFSET REGISTER

1(R2),1(SP)
RO,WRT.RP

;COMBINE 'FMT22'","ECI'’, AND ‘WCI'’
:LOAD ‘FMT22", "ECITM", AND/OR ‘HCI''.

128
#141,R3

;1S IT A "'GET REGISTER'* COMMAND?

)

SEQ 0165

FY7. Y

J 13

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-10
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

634 036566
635 036570
636
637 036574
638 036602
639 036606
640 036612
641 036614
642 036616
643 036620
644 036626
645.036626
646 036634
647 036636
648 036642
649 036644

116237
116205
004037
000000
036742
012623
023705
001414
062737
00076
122703
001405
010346

651 036652
652 036654
653 036656

000000
036742
004737

655 036620
656 036674
657 036676
658 036702
659 036704
660 036706
661 036714
662 036716

005737
100002
004737
000207
006301
012761
006201
112761

650 036646

654 036662

001023
016203

004037

052762

663 036724
664 036726
665 036730
666 036736
667 036736
668 036740
669 036742
670 036750
671 036752
672 036754

000207
010346
004037
000000
036742
000761
032764
001034
005702
001405

674 036764
675 036770
676 036774
677 037000
678 037002
679 037004
680 037010
681 037014

004737
012746
004037
000000
037042
004737
105061
105061

673 036756

682 037020
683 037024
684 037026
685 037032
686 037040
687 037042

688 037044

689 037052
690 037054

012762

020137
001005
005037
012737
000207
104412

032764

001002
005001

000006
00010
000011
041626

BNE
MOV

108
6(R2),R3
10(R2),9%
11(R2),RS
RO,RD.RP

11$:

MOVB
MOVB
JSR__
RPCST
c17
MOV
(MP
BEQ
ADD
BR
(MPB
BEQ
MOV

128:

RPCS1
c17
JSR

7$:
036612
8:
98:

036612

000002

036612

000145

108:

042002

043046

000200
034442

000016

042170

001750

034446

000001

034344
Cl6:

042002

010000

138:
CI5:

000010

CI7:

18:

104000

042170
000111
042002

000016

042730
034422
034344
034466

034466

010000

000010

BIS

1$:
CI8:

:BRANCH IF NO
:POINTS TO 1ST ADDRESS OF WHERE
:T0 PUT THE REGISTER(S)
:INIT. THE INDEX FOR_THE FIRST REG.
: INDEX OF LAST REG. TO MOVE
:READ RP04/5/6 REGISTER
:INDEX OF REG. TO READ

(SP)+,(R3)+
93RS
128
42,98
8$
#145,R3
128
R3,-(SP)
RO,WRT.RP

;GET THE CONTENTS OF RH11/RP04/5/6 REG.
:LAST REG, BEEN READ?
:GET OUT IF YES
: INCREASE THE INDEX BY 2
:LOOP=-MORE TO READ
IS'IT A "'SELECT DRIVE'*
COMMAND?
:BRANCH IF YES
:LOAD THE COMMAND

PC,POPQUE

:REMOVE REQ. FROM QUEUE

#81T07 16(R2)

:SET THE "DONE'* BIT

TST
BPL
JSR
RIS
ASL
MOV
ASR
MOVB

SAVEF
:SAVE THE RH11/RP04/5/6 REGISTERS?
138
:BRANCH IF NO
PC.SVRH11
:YES-=GO SAVE THE REGISTERS
PC
:RETURN TO USER
Ri
#1000.,TIMER(R1)
:SET A ONE SECOND TIMER
R]
#1,DRVACT(R1)
;SET THE DRIVE ACTIVE

MOV
JSR
RPCS1
c17
BR
BIT
BNE
IST
BEQ

cIS
#BITI2,RPCS2(R4) :DRIVE NON-EXISTENT ?
(I8
YES
R
ANYTHING IN QUEUE ?
CI78
R IF
NOT

RTS

MOV

cI78:

034414
177777

JSR

SEQ 0166

JSR
MoV
JSR
RPCS1
CI8
JSR
CLRB
CLRB

CMP~
BNE
CLR
MOV
RIS
SAVREG

BIT
BNE
LR

PC
R3,-(SP)
RO.WRT.RP

:RETURN TO THE USER
:LOAD THE COMMAND

ABITISIBITIN.I6(R2) -

SSET "PARITY'* ERROR INDICATOR

PC,SVRH11
A1i1,-(SP)
RO,WRT.RP

:60 SAVE' THE RH11/RP04/5/6 REGISTERS
:DO A "DRIVE CLEAR'’

PC.EMPTYQ
ULDFLG(R1)
DRVACT(R1)
R1,DTUM
18
TRNSWT
#-1,DTuW
PC

;EMPTY THE QUEUE
:CLEAR THE UNLOAD IN QUEUE FLAG
:DRIVE IS IDLE
:1F THIS DRIVE HAD AN 1/0 REQUEST
:IN PROGRESS CLEAR ALL OF THE FLAGS

:SAVE
RO = RS

#BIT12,RPCS2(R4)" ;IS 'NED' SET ?
1§
RI

:BRIF YES

VaYan)

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)

—

L 13
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32- 12
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
691 037056
692 037060
693 037064
694 037066
695 037072
696 037076
697 037100
698 037104
699 037106

700 037110
701 037116
702 037120
703 037126
704 037130
705 037136
706 037142
707 037150
708 037154
709 037160
710 037162
711 037170
712 037174
713 037200
714 037206
715 037210
716 037212
717 037216
718 037222
719 037224
720 037232
721 037236
722 037242
723 037250
724 037252
725 037256
726 037262
727 037266
728 037272
729 037274

005003

034344

18:

034414
034466

043024

2%:

010000

000010

100002

000016

102000
042170
177777
034344
034466

000016

3s:

034446

A H

177777

034466

034414
034422
010000

000010

034414
042652
000040
042730
034354
034364
042306

BEQ

5§

TST8

MOV

#BIT15!BITO1, 16(R2)

7%:

000207

:SET 'DRIVE NON-EXISTENT' INDICATOR

JSR
MOV
CLRB
(NP~

PCSVRH11
#-i.TIMER(R3)

:SAVE RH11/RP04/5/6 REGISTERS
:STOP THE TIMER
:SET 'DRIVE ACTIVE'' TO IDLE
;1S THIS DRIVE SETUP FOR A TRANSFER

MOV
CLR
CLRB

#=1,DTUN
TRNSWT
ULDFLG(R1)

BNE
INC
ADD

68
R]
#2,R3

MOV

BIT

MOV
6$:

#BITIZLRPCS2(RA)’ :'NED: SET 2
38
BR IF NOT
CONT INUE,

MOV
LR
JSR

000010

:GET THE "TRANSFER WAIT'' QUEUE
:DID THIS DRIVE HAVE AN 1/0 IN PROGRESS?
:BRANCH TF YES
:GET THE DPB POINTER
:QUEUE ENTRY FOR DRIVE ?
:BR_IF
NOT

BIC
BNE

034466

TRNSWT,.R2
R1,DTUM
28

:DRIVE ACTIVE?

:BRANCH_IF_NO

PC,GETREQ
R2
4$

BNE
5%:

DRVACT(R1)

MOV
CMP
BEQ
JSR
ST
BEQ

BIT
BEQ

000002
177770

127777

(LR

SEQ 0167

#BIT1S!BIT10,16(R3) ;SET 'NON=CLEARABLE PARITY'* ERROR INDICATOR
DRVACT(R1)
R1.DTUM
5§

#BIT12,RPCS2(R4)°

#4(7.R1
18

RESET THE INDICATOR
:CLEAR THE TRANSFER QUEUE
:CLEAR UNLOAD FLAG

; °NED' SET ?

:BR IF YES
:MOVE TO THE NEXT DRIVE

#=1,DTUN
TRNSWT
PC,CLRQUE

:BRANCH IF MORE DRIVES
:NO_DATA TRANSFERS UNDERWAY
:CLEAR THE 'TRANSFER WAIT' QUEUE
:CLEAR ALL OF THE REQUEST QUEUES

: CONTINUZ

DRVSTA(R1)
DRVIYP(R1)
PC,SET.IE

:SET DRIVE TO OFFLINE
:CLEAR THE DRIVE TYPE INDICATOR
:SET "'IE' WITHOUT *‘TRE"

#BITOS.RPCS2(R6)° DO A MASSBUS INIT.

JSR

PC,EMPTYQ

RESREG
RIS

CLRB
CLRB
JSR

:BR IF
N

:CLEAR THE DRIVE'S QUEUE

:RESTORE RO - RS
:RETURN

;LOOK AHEAD ROUTINE

‘CALL

741 037276
742 037302
743 037306
744 037312
745 037314
746 037316
747

013704

034502
000010
041626
000012

LA:

MOV
MOV

#DRVNUM,R1
#DPB.R2

JSR
RO,LA
RE TURN]
RE TURN2
RE TURN3

:60 CHECK THE WINDOW
:ERROR RETURN
:START A SEARCH
:START A DATA TRANSFER

MOV

RPADR,R4

:GET RPCS1'S ADDRESS

MOV
JSR .
48

(NP

R1,RPCS2(R4)
ROCRD.RP

(SP)+,12(R2)

:DRIVE NUMBER
:POINT T0 DPB

:SELECT DRIVE
:READ CURRENT CYLINDER
:ERROR RETURN ADDRESS

:IS CURRENT CYLINDER=DESIRED

s CYLINDER?

M13
CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 3213
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
748 037322

001037

034432
034432

BNE

INCB

034510

CMPB
86T
MOVB
SWAB
ASR
ASR
Mov
JSR

000010
754 037346
755 037350
756 037352
757 037360
758 037364
759 037366
760 037370

761
762
763
764
765
766
767
768
769

000340
041626

RPLA

037372
037374
037400
0376404
037406
037412
037414
037420
037422

772 037432

177776

002600
034512

1%:

034514

034432

2s:
3s:

000200

036742

48:
5%:

Su8
BGE
ADD
CMpP
BLT
CMP
BGE
CLRB
TST

TST

B8R

JSR
RTS

SEQ 0168

3s
sEXIT IF NO
LACNT(R1)
: INCREMENT THE LOOK AHEAD COUNT
LACNT (R1) ,MXLACT ;EXCFED MAX?
23
;BRANCH [F YES

10(R2) ,R3
R3
R3
R3

:GET DESIKCD SECTOR ADDRESS AND
sMULT. BY 64=-ALIGN WITH

sLJOK AHEAD REGISTER

#340,3#PS
RO,RD.RP

;PRIORITY LEVEL '7°'

(SP)+ ,R3
18
#<e2
. %64.> ,R3
MXDLTA,R3
3s
MNDLTA,R3
3s
LACNT (R1)

sCALCULATE THE DELTA

(RQ)
+

(RO)+

PC.CI17
RO

sREAD LOOK AHEAD REGISTER

sMAKE THE DELTA POSITIVE
sCHECK THE DELTA TO SEE
¢IF IT IS WITHIN THE
;WINDOW=--=IF

YES,

ZERO

s THE LOOK AHEAD COUNT

;AND TAKE THE 1/0 EXIT

ADJ?ST THE RETURN ADDRESS
sEX]

:PROCESS THE ERROR
:RETURN

s INTERRUPT SERVICE ROUTINE
776 037434
777 037442
778 037444
779 037450
780 037454
781 037456
782 037462
783 037464
784 037470
785 037472
786 037476

112737
104412

013704
013701
002403
004737
000402

000001

034420

1ISR:

034502
034466

MOVB

SAVREG
MOV

[ ()"
BLT

037500
037762

18:

2s:

034420

#1,ACTDRY
RPADR R4

DTUW,R1
13

JSR

PC,TD

JSR

PC,SC

CLRB
RT1

ACTDRYV

RESREG

;SET ''ACTIVE DRIVER'® FLAG
;SAVE RO - RS
;ADDRESS OF RHS(CS1

;GET ‘DATA TRANSFER UNDERWAY'' INDICATOR
:BRANCH IF NO DATA TRANSFER UNDERWAY

sCALL TRANSFER DONE
JEXIT
sCALL SPECIAL CONDITIONS
:RESTORE RO
- RS

sCLEAR "“ACTIVE DRIVER'' FLAG
URN
:RET

;TRANSFER DONE ROUTINE
790 037500
791 037504
792 037512
79
795 037524
796 037530
797 037534
798 037542
799 037546

800 037552
801 037554
802 037556
803 037560
804 037562

034344
177777

034466

MOV

#-1,DTUW

;SET DRIVE ACTIVE INDICATOR TO IDLE
sNO DATA TRANSFERS UNDERWAY

177777

034446

MOV

#-1,TIMER(RT)

s CANCEL TIMEOUT

034414
034414
000200
000010
041626

000016

CLR8

ASL

ASR
Moy
CLR

BIS

MOV
JSR

RP(S1

ROL

005737

034442

8MI

TST

DRVACT(R1)
R1

R1
TRNSWT ,R2
TRNSWT

#81707,16(R2)

R1 RPCSZ(
R&)
RO RD.RP
(SP)
+

SAVEFG

;GET 'DPB'* ADDRESS FROM THE

sTRANSFER WAIT QUEUE--CLEAR QUEUE
sSET _DONE
sSELECT THE DRIVE
s TRANSFER ERROR{TRE=1)?

:BR IF YES
;SAVE THE RH11/RP04/5/6 REGISTERS?

N 13

CZRJDEQO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32- 14
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

805 G37566

100002

042170
037654
063024

1%:

2s:

000113

824 037652

000443

042730
062170
040111
000113

JSR
JSR
ST

BEQ

035632

100100

BPL
JSR

000016

JSR
BR

MOV

B8R

005737

000002

000024

000063

000024

042750
000016
000234

843 037752

000012
000010
000002
000020
000207

000010

1$:

000027
000034
000032
000024
000002
000002

: CHECK FOR OTHER DRIVES

#60111, (RG)

B8R

BEQ
CMPB
BEQ
CMPB
BNE
JSR
BR
CLR

MOVB
MOV
MOV

BICB
BICB
2s:

#113, (R4)

MOV

JSR
JSR

WC:

PC,OPT
SC

#BIT15!B1T06,16(R2)

MOV

001424

PC.WC
PC.GETREQ
RO

¢BRANCH IF NO
sYES==SAVE THE REGISTERS
;SEE IF WRITE CHECK TO BE PUT IN QUEUE
:GET DPB POINTER
sENTRY FOR DRIVE ?
:BR IF NOT
sCALL OPTIMIZER
sCHECK OTHER DRIVES
:RELEASE THE DRIVE

BIS

;FORCED WRITE

829 037654
830 037660
831 037662
832 037670

1$
PC,SVRH11

SEQ 0169

g{ge

PC,EMPTYQ
PCSVRH11

#113, (R4)

:SET DATA ERROR FLAG
:E MPTY THE "DRIVE'S WAIT'' QUEUE

: SAVE THE, RH11/RP04/5/6 REGISTERS
sISSUE A 'DRIVE CLEAR''

:ISSUE A RELEASE TO THE DRIVE

$CHECK FOR OTHER CRIVES

CHECK ROUTINE
AUTOCK

2
#2,$CODE(R2)
1$
#3,8$CODE(R2)
28
RO, DRVQUE
28
16(R2)

ggT?MATéC WRITE CHECKS ?

sLAST OPERATION WRITE DATA ?
:BR IF IT WAS

:LAST OPERATION WRITE HEADER & DATA ?
:BR_IF NOT

¢PUT THE OPERATION IN THE QUEUE
sQUEUE IS FULL

:CLEAR *DONE’ BIT IN DPB

SRPCS1(R2),$PREVO(R2)

$CYL (R2) , SPREVA+2(R2)

:SAVE WRITE OPERATION CODE

;SAVE CYLINDER
$SEC(R2).$PREVA(R2)
s SAVE SECTOR AND TRACK ADDRESSES
#2,$CODE (R2)
sCHANGE WRITE TO CHECK
#20.$COMND (R2) sCHANGE DRIVER CODE TO WRITE CHECK
310- $COMND (R2)
:Ei?%SH CHANGING CODE TO WRITE CHECK

sSPECIAL CONDITION ROUTINE
116403

001012
004037

8
092
856 040004
857 040006
858 040012
859 040014
860 040016
861 040020
862 040024

863 040026
864 040030
865 040032
866 040034
867 040036

000016

SC:

041626

RPAS (R4) ,R3

;READ ‘RPAS'’
;BRANCH IF ANY ‘ATA®' BITS SET
sREAD CONTROL AND STATUS REGISTER

(SP)+
1%
1

:YES, NO DRIVES TO CHECK

-(SP)

zzOCESS A%L DRIVES THAT HAVE

RO,RD.RP

042306

PC,SET.IE
PC

R3, (SP)
:1'R3

000001

SC3:
SC4:

;18 "'IE''=1?

SE}UINTERRUPT ENABLE

;ATA=1?
:YES=-BRANCH
JMOVE TO THE NEXT DRIVE

:BRANCH IF MORE TO CHECK?

8 14
CZRJDEO RP04/5/6 MLT-DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE 32-15
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

105 61
1

~
o

R
S

868 040040
869 040042
870 040044
871 040050

034374

SCS:

040740
034404

18:

040740
034354

2s:

034422

040230
909 040232
910 040234
911 040236
912 040244
913 040246
914 040252

915 040256
916 040262
917 040264
918 040266
919 040270
920 040272
921 040274
922 040300
923 040302

105761

001321
105761
100412
032737
001011
012746
004037
000000
040550
011605
104002
000701

1ST8
BEQ
JMP
1ST8

DPRQS(R1)

JMP

BGT

1ST8

043024
0642170
060670

034354

1ST8

BLE

034334

040600

001027
004737

;§P)0

BLE
JSR
JSR
JSR

040000

891 040150
892 040154
893 040156
894
895 040162
896 040166
897 040170
898 040174
899 040176
900 040204
901 040206
902 040212
903 040216
904 040220
905 040222
906 040224
907 040226
908 040230

TST
RTS
1ST8
8EQ

034336

3s:

034344

5$:

040670
68:

034374

034354
020000

034342

1} ]

SC13

2%
SC13

DRVSTA(R1)
5%
ngFLG(R1)
PC,GETREQ

PC.SVRH11
PC,SC12

7%:

8s:

034446

043024
000010
041626

cTRYING TO INIT THE DRIVE

SC6:

(SP) ,RS
2
SCé
5
SCé

R1
3;1.TIHER(R1)

R1,RPCS2(R4)
RO,RD.RP

(SP)+
18

000016

:ALSO DO A DRIVE INIT (DRVINT)

DPINT(R1)
SC4
g§VSTA(R1)

(SP) ,RS

100210

:BR 1F NOT
:START THE OUTSTANDING COMMAND
;CHECK THE DRIVE STATUS
JBRANCH IF ONLINE
JUNLOAD IN PROGRESS?
JBRANCH IF NOT
;GET DPB POINTER
;SAVE THE RH11/RP04/5/6 REGISTERS
;SAVE RPDS1, RPERT, RPER2, AND RPER3
;DID DRIVE COME ONLINE?
:NO=-=-BRANCH
:WAS THERE AN ERROR?
:BR IF ERROR
:NO ERROR
;YES == PICKUP RPER1 AND
:GO PROCESS THE ERROR
:DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?

PC.GETREQ

034344

sPROCESS THE DRIVE
:PORT REQUEST OUTSTANDING ?

DRVSTA(R1)
63
#BIT
14 ,RPERRS
3s
SC11
RPLRRS+2
RS
SC6A
DRVACT(R?Y)
5C6
PC,SC12

#113,-(SP)
RO,WRT.RP

104005

JCLEAN OFF THE STACK
RETURN TO USER
INITIAkélING THE DRIVE ?
;B8R _IF

:BR IF EITHER

;SAVE RPDST, RPER1, RPER2, AND RPtR3
:ALSO DO A DRVINT
?

:BR IF YES, CHECK ON MORE DRIVES
:CHECK ON DRIVE'S STATUS
:BR IF UNSAFE

gng13.RPERRS*6sADDRESS PLUG CHANGED ?

000113
042002

177777

DPINT(R1)

SEQ 0170

DRVACT(R1)
SC11

;BR IF YES

sRELEASE COMMAND
SWRITE THE COMMAND INTO RPCS1

:REGISTER INDEX
sPARITY EXIT ADDRESS
sPICKUP (RPAS) BEFORE THE ERROR CALL

;G0 CHECK FOR MORE ATA'S
sCHECK FOR MORE DRIVES

:SETUP_TO ADDRESS WORDS
:STOP THE TIMER

:RESTORE THE DRIVE ADDRESS

sGET THE DPB POINTER FROM THE QUEUE
:SELECT DRIVE
:READ THE RP04°'S STATUS REG.

;AND PUT IT IN RS

;WAS THERE AN ERROR?
:BR_IF ERROR

CHECK DRIVE'S STATE

F DRIVE ACTIVE WITH ORDER
¢ INFORM USER OF ERROR RECOVER COMPLETION

mns'anomnbs 16(R2)

C 14
CZRJDEO RP04/5/6 MLT-DR _GC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-16
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
924
925
926
927

0460310
040312
040316
040320

000470
004037
000014
040550

929 040326

004737

042170

040336
040340
040342
040344

004037
000000
040550
006105

042002

936 0460350
937 040352

005702
001447

939 0460362

000443

928 040322

930 040330

931
932
933
934

935 040346

938 04035¢

012605

012746

041626

100406

040364
040370
0460372
040374
040376
040400
040402
060410

004037
000012
040550
011605
006126
100011
112761
004737

041626

949 060422

000423

948 060416

0§52762

177777
042170

110000

950 040424
951 040430
952 040432
953 040440
954 040446
955 040450
956 040456
957 040460

032705
001015
112761
112761
006301
012761
006201
000137

010000

959 040472
960 0460476
961 060502
962 040506
963 040510
964 060516
965 040522
966 040526

105061
004737
105761
003002
105061
116164
105761
100406

034344
042730
034422

004037
000000
040550

042002

958 060464

97 040530

968 040534
969 040540
970 040542
971 040544
972 040550

052762

003402

105761

2s:

000016

38:

034422
034470
034354

000016

1$:

SC7:

28:
SC8:

043024
036742
036770
040032

034422

JSR

PC,SVRH11

(SP)+,RS

;AND SAVE IT IN RS

JSR
RPCS1
SC8
ROL

#111,-(sP)
RO,WRT.RP

:ISSUE A DRIVE CLEAR

;WAS

ST
BEQ

R2
SC7

SANYTHING IN QUEUE ?
B8R IF NOT

B8R

SC7

BM]

18:
28:

SCi1:

*SAVE RH11/RP04/5/6 REGISTERS

"UNSAFE'*

:BRANCH IF YES

CONDITION =17

#81T15'81707'81705,16(R2)

;INFORM USER OF ERROR

JSR
RPDS1
SC8
MOV
ROL
8PL
MOVB
JSR

RO.RD.RP

;READ DRIVE STATUS REG. #1

(SP) ,RS
(SP)+
2s
#-1 DRVSTA(R1)
PC.SVRH11

SAVE RPDS1 IN RS
:"ERR''=1?
*BR IF NO--UNSAFE CLEARED
*DRIVE IS UNSAFE
“SAVE RH11/RP04/5/6 REGISTERS

B8R

SC7

BIS

100220

040032
034344

980 040604

979 040600

000016

034446

000137
105761

001405
004737
004737
000402
004737
000137

034354

072460

000113

:READ ERROR REGISTER #1

BIS

18:

034344
034354

012746

973 040554
974 040556
975 040562
976 040566
977 040570
978 040574

000016

177777
000001

040032

SC7
RO,RD.RP

MOV
SC6A:

100240

BR
JSR
RPER1
SC8

MOV

000111

052762

940
941
942
943
94
945
946
947

1$:

SEQ 0171

8IT
BNE
MOVB
MOVB
ASL
MOV
ASR
JMP

cexr1s~elr12 16(R2)

; INFORM USER OF UNSAFE ERROR

#8IT12,RS
MOLt =12
3s
:BR IF vss
#-1,DRVACT(R1)
:ACTIVE ERROR RECOVER
#1,DRVSTA(R1)
-ONLINE
R1
#30000..TIMER(R1) :START 30 SECOND TIMER
R1
SC4

BIS

#BIT1S!'BITO7!BIT04,16(R2)

MOV

#113,-(SP)

*RELEASE COMMAND

SC4
DRVACT(R1)

:CHECK FOR MORE DRIVES
;1S DRIVE IDLE?

CLRB
JSR
TSTB
BGT
CLRB
MOVB
TSTB
BM]

JSR
RPCS1
SC8
JMP
TSTB

RO,WRT.RP

BEQ
JSR
JSR
BR
JSR
JMP

18
PC,GETREQ
PC.CI7
2
PC.CI78
SC4

BLE

TSTB

:INFORM
USER OF ERROR

DRVACT(R1)
;DRIVE IS IDLE
PC,EMPTYQ
:DUMP THE QUEUE
ULDFLG(RY)
:UNLOAD IN PROGRESS OR QUEUE?
18
:BR IF NOT
ULDFLG(R1)
SCLEAR UNLOAD FLAG
ATABIT(R1) ,RPAS(R4)
:CLEAR ATTENTION BIT
DRVSTA(R1)
;1S THE DRIVE UNSAFE ?
2s
*BR IF IT IS

ULDFLG(RY)

SWRITE THE COMMAND INTO RPCS1
SREGISTER INDEX
SPARITY EXIT ADDRESS
: YES=--BRANCH
*GET DP8 POINTER
*PROCESS THE PARITY ERROR
< CONTINUE
*PROCESS THE UNCORRECTABLE PARITY ERROR
*CHECK MORE DRIVES

*"UNLOAD IN PROGRESS'*?
*BRANCH IF NO

D_14
CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-17
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
981 040606
982 040612

105061
105061

985
986
987
988
989
990
991
992
993
994
995
996
997
998
999

001012
004737
052762
005737
100002

043046
000200
034442

116164
004737
000137
010164
016437
016437
016437
016437
004037

034470
035632
040032
000010
000012
000014
000040
000042
034732

ggz 040616

0406246
040626
040632
040640
040644
04064
040646
040652
040660
040664
040670
040674
040702
040710
040716
040726

1 00

136137

004737

034422
034344

034470

042170

ULDFLG(R1)

034416

CLRB
CLRB
BITB

000016

BNE
JSR
BIS

000016

034334
034336
034340
034342

002 040734

005726

004 040740
005 040742

006301
012761

177777

034446

1 007 040752

010164
116164
032714

000010
034470
004000

000016

1
1

]

008 040756
009 040764

1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026

040770
040772
040774
041002
041004
041006
041012
041014
041020
041024
041026
041032
041034
041036
041040
041044
041052

1027 041056
1028 041062
1029 041064
1030 041070
1031 041074
1032
1033
1034
1035
1036
1037

001006
006301
012761
006201
000433
105761
001424
105061
004037
000240
105761
003014
005702
001416
004737
052762
004737

004737
000404
105061
004737
000137

TST
8PL

28:

18:

023420

SC13:

8IT
BNE

ASL
MOV
ASR
B8R
TST8

034446

034374

18:

8EQ
CLRB
JSR

034374
034732

NOP
1ST8

034354

043024
140000
042170
042730
034404
035632
040032

86T

TST
8EQ
JSR
8IS
JSR
JSR
B8R
CLRB
JSR
JMP

000016

2%:
3s:

SAVEFG

sSAVE THE REGISTERS?

PC,OPT

RTS
TST
BR
ASL
MOV
ASR
MOV
MOVB

;AN 1/0 COMMAND?
sBRANCH IF YES

cREMOVE REQUEST FROM QUEUE

#81707,16(R2)

JSR
JMP

JSR
BR

. SET DRIVE IDLE

PC,POPQUE

PC,SVRH11

MOV
MoV
Mov
MoV
MOV

sCLEAR UNLOAD FLAG

ATABIT(R1),SRCHWT TM ;DOING A SEARCH OPERATION FOR

JSR

MOv8

sC12:

DRVACT(R1)

SEQ 0172

;SET "DONE'’' BIT
sBRANCH IF NO

: YES==SAVE ALL OF

ATABIT(R1) ,RPAS(R4)
SC4
R1,RPCS2(R4)

THE RH11/RP04/5/6 REG'S

;CLEAR ATTENTION BIT

:START A REQUEST

:CHECK FOR MORE DRIVES
cSELECT DRIVE

RPDS1(R4) ,RPERRS
:SAVE THE FOUR REGISTERS THAT
RPER1(R4) ,RPERRS+2
sWILL TELL US SOMETHING
RPER2(R4) ,RPERRS+4
RPER3(R4) ,RPERRS+6
RO,DRVINT
sINIT. THE STATE OF THE DRIVE
i$
¢ TAKE ERROR EXIT
PC
(SP)+

cRETURN
sPOP PC OFF OF

R1
:;1.TIHER(R1)

sSETUP TO ADDRESS WORDS
:STOP THE TIMER

SC8

THE STACK

cPROCESS THE PARITY ERROR

R1,RPCS2(R4)
:SELECT THE DRIVE
ATABIT(R1) ,RPAS(R4)
;CLEAR THE ATTENTION BIT
#81T11,(R4)
:DRIVE AVAILABLE ?

¢BR IF AVAILABLE

:}0000..TIHER(R1)
38
DPINT(R1)

DPINT(R1)
RO,DRVINT
DRVSTA(R1)
23
R2
3s
PC,GETREQ

sSTART 10 SEC TIMER AGAIN

SEXIT
JINITIALIZING THE DRIVE ?
:BR IF NOT
JCLEAR THE INIT INDICATOR
:GO INIT THE DRIVE

:DUMMY PARITY ERROR RETURN
;DRIVE
:BR IF
:QUEUE
:8R IF

ONLINE ?
YES == START ORDER
ENTRY FOR THE DRIVE
NOT

:GET DPB ADDRESS

#BITIS!BIT14,16(R2)

;INFORM USER THMAT DRIVE OFFLINE

PC,SVRH11

;SAVE THE REGISTERS

DPRQS(R1)

;CLEAR THE PORT REQUEST INDICATOR

SC4

;PROCESS OTHER DRIVES

gg.EHPTYQ
PC,OPT

JEMPTY THE REQUEST QUEUE
;START THE PENDING REQUEST

;RP04/5/6 TIMER ROUT INE

:;
:
:

CALL

10V

JSR

#TIME ,~(SP)

PC.RPTMR

JELASPED TIME

IN MILLISECONDS ON THE

sCALL RP04/5/6 TIME ROUTINE

STACK

—

E 14

CZRJDEO RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-18
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
1038 041100
1039
1040
1041
1042

041104
041106
041114
041116

1043 041120
10646 041122

1045 041126
1046 041130
1047 041136
1048 041140
1049 041144
1050 041146
1051 041150
1052 041152
1053 041156
1054 041160
1055 041162
1056 041166
1057 041170
1058
1059
1060
1061

005737

001030
112737
104412
005001

005003
005763

002407
166663
003003
004737
000405
005201
005723
022701
003361
104413
105037
012616
000207

034420
000001

RPTMR:
034421

034446
000002

034446

041172

000010
3s:

034421

sCHECK ''ACTDRV & ACTSTR"

s1F _NON ZERO EXIT

Etg

¢START WITH DRIVE 0

TST

BLY
SuB
JSR

2%:

ACTDRV

BNE

MOV8
SAVREG

1%:

#1,ACTSTR

TIMER(R3)

sSET _“ACTSTR''
sSAVE RO - RS

;1S THE TIMER RUNNING?

2%
;BRANCH IF NO
2(SP) ,TIMER(R3) ;COUNT THE INTERVAL
28
:BR IF NO SOF TWARE TIMEOUT
PC,STO

sCALL SOFTWARE TIMEOUT ROUTINE

BR
INC
TST
CMP
BGT

33
R1
(R3)+
#8..R1
18

;GO TO THE EXIT
sMOVE TO NEXT DRIVE

CLRB
MOV

ACTSTR
(SP)+, (SP)

sZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG
cADJUST THE STACK

RESREG

RTS

sOUT OF DRIVES?
sBRANCH IF NO

sRESTORE RO - R5

sRETURN

; SOF TWAR E TIMEOUT ROUTINE
:
JNOTE: T H1S ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER
;

1062
1063
1064
1065
1066
1067

1068
1069 041172
1070 041174
1071 0641176
1072 041202
1073 041206
1074 041212
1075 04612146
1076 041216
1077 041220
1078 041222
1079 041226
1080 041230
1081 041234
1082 041236
1083 041242
1084 041246
1085 041250
1086 041254
1087 041262
1088 041266
1089 041274
1090 041300
1091 041304
1092 041306
1093 041310
10946 0413146

TST

SEQ 0173

010146
010346
013704
010164
004037
000012
041514
105726
100477
105761
001074
105761

001071
013702
020137
001402
004737
052762
004737
012764
105061
105061
005001
005003
004037
000477

:
JCALL:
:
:
:

MoV
JSR
RETURN

#DRVNUM,R1
PC,STO

;DRIVE NUMBER
s CALL

STO:

Mov

R1,-(SP)

:SAVE R1

MoV

RPADR R4

R1,RPCS2(R4)
RO,RD.RP

sGET ADDRESS OF 'RPCS1‘’
sSELECT THE DRIVE
sREAD ‘DRIVE STATUS REG'’

(SP)+

;1S "DRY'’=1?

1ST8

DPINT(R1)

STRYING TO INTIALIZE THE DRIVE ?

1ST8

DPRQS (R1)

034502
000010
041626

STO

MoV
mov
JSR

STOS

1ST8

034374

STO1:

034404

034732

BNE
MOV
P
BEQ

034414
034466

043024
101000
04217
000040
03434
034422

8M]

000016

1$:

000010

:SAVE R3

:BR IF YES

ST02

sBR_IF YES

$T02
TRNSWT ,R2
R1.DTW
18

:BR IF YES
sPICKUP TRANSFER WAIT QUEUE
s TRANSFER UNDERWAY ON THIS DRIVE?
sBRANCH IF YES

sOUTSTANDING PORT REQUEST FOR THE DRIVE

PC,GETREQ

;GET DPB ADDRESS

PC,SVRH1

;Sfiyf RH11/RP04/5/6 REGISTERS

ULDFLG(R1)

cCLEAR THE UNLOAD FLAG

RO,DRVINT

sINIT. THIS DRIVE

8IS

#BIT15!BIT09,16(R2)

MOV
CLRB

#BIT05 ,RPCS2(R4) ;''INIT'’ THE MASS BUS
DRVACT(R1)
sDRIVE IS IDLE

Ets

JSR

CLRB

2s:

R3,=(SP)

JSR

B8R

ST0S

;SET THE ERROR FLAGS

¢START WITH DRIVE 0

¢PARITY ERROR RETURN

F 14
CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-19
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

1095 041316
1096 041322
1097 041326
1098 041330
1099 041334
1100 061336

105761
001414
013702
023701
001402
004737

034344

1102 041350
1103 041354
1104 041360

105061
105061
012763

034344
034422
177777

1101 041342

1105 041366
1106 041370

1107 041372

1108
1109
1110
1111

052762

005723
005201

022701

034414
034466
043026

100400

003344
012737
005037
004737

1113 041420
1114 041426
1115 041430
1116 061432
1117 041436
1118 041440

116405
136105
001017
105761
001031
105761

000016
034470

020137
001263
004037
000000

034466

1119 041444

1120
1121
1122
1123

041446
041452
041456
041460

1126 041462
1125 041464
1126 041466
1127 041470
1128
1129
1130
1131

041474
041476
041502
041506

1132 041512

000500

001045

041514
105726
100255
105761

001003
105761
001446
012763

000442

1133 041514
1134 041520
1135 041522
1136 041526
1137 041532
1138 041540
1139 041544
1140 041546
1141 041550
1142 041556
1143 041560
1144 041566
1145 041572
1146 041576
1147 041600

004737
000437
105061
105061
012763
004737
005702
001424
052762
000414
012763
105061
004737
005702
001407

1149 041610
1150 041614
1151 041620

004737
004737
012603

1148 041602

012762

034446

3$:
48:

177777
034414
042652

034466

ST02:

034404

DRVACT(R1)
ULDFLG(R1)
#<1,TIMER(R3)

sSET DRIVE ACTIVE TO IDLE
*NO UNLOAD
:STOP THE TIMER

INC

S INCREMENT THE DRIVE NUMBER

BGT
MOV
CLR
JSR

2s
#-1,0TUN
TRNSWT
PC,CLRQUE

MOVB
BITB
BNE
TST8
BNE
TSTB

RPAS(R4),RS
ATABIT(RI).RS
ST03
DPINT(R1)
ST06
DPRQS(R1)

CMP
BNE
JSR
RPCS1

R1.DTUW
ST01
RO,RD.RP

BIS

CLRB
CLRB
MOV

B8R

BNE

041626

034374

STO3:

034404
034446

1$:

037042

STOS:

034374
034354
177777
043024

ST06:
034446

140000

000016

177777
034404
043024

034446

100004

000016

042730
04217,

:DRIVE IDLE BEFORE THE INIT.?
YES--BRANCH
SGET TRANSFER WAIT QUEUE
*WAS THERE I/0 ON THIS DRIVE?
: YES=~BRANCH
GET THE DPB POINTER FROM QUEUE

cmpP

034374

177777

DRVACT(R1)
48
TRNSWT ,R2
DTUW.R{
3s
PC.GETREQ

000010

041376
041400
041406
0461412

1112 041416

000016

TSTB
8EQ
MOV
cMP
BEQ
JSR

STO7:

STO8:
ST09:

SEQ 0174

ST05
TSTB
8PL
TSTB

#BiT1S'BIT08,16(R2) ;INFORM USER OF INIT.

(R35+

#8. .R1

ST09

STO07

*UPDATE THE INDEX

:LAST DRIVE BEEN CHECKED?

:NO=-=-L0OP
*NO DATA TRANSFERS UNDERWAY
SCLEAR TRANSFER WAIT QUEUE
*CLEAR ALL REQUEST QUEUES

SEXIT

*READ ATTENTION REG
:IS ATTENTION FOR THIS DRIVE UP ?
*YES=-BRANCH
*TRYING TO INTIALIZE THE DRIVE ?
:BR IF YES - DRIVE NOT ONLINE
SOUTSTANDING PORT REQUEST FOR THE DRIVE ?

:BR IF YES ~ NO RESPONSE TO REQUEST

*DATA TRANSFER UNDERWAY FOR THIS DRIVE
‘BR IF NO
SYES=-CHECK 'RDY'*

BNE
TSTB
BEQ
MOV

(SP)+
sT01
DPINT(R1)
18
DPRQS(R1)
ST09
#-1,TIMER(R3)

JSR
8R
CLRB
CLRB
MOV
JSR
TST
BEQ
BIS
BR
MOV
CLRB
JSR
ST
BEQ

PC.CI8
©GO HANDLE THE PARITY ERROR
ST09
DPINT(R1)
:CLEAR THE INITIALIZE INDICATOR
DRVSTA(R1)
*SET UNIT OFFLINE
#-1,TIMER(R3)
;STOP THE TIMER
PC.GETREQ
:GET THE DPB ADDRESS
RO
*REQUEST IN QUEUE ?
ST09
:BR IF NOT
#8IT15'BIT14,16(R2)
;INFORM THE USER DRIVE NOT AVAILABLE
STO
SFINISH
#-1,TIMER(R3)
:STOP THE TIMER
DPRAS(R1)
*CLEAR PORT REQUEST INDICATOR
PC.GETREQ
*GET DPB ADDRESS
R?
*QUEUE ENTRY FOR DRIVE ?
ST09
BR IF NONE

JSR
JSR
MOV

PCEMPTYQ
PC.SVRH11
(SP)+,R3

B8R

MOV

sT0%

:BR IF ‘RDY'*=0
*INITIALIZING THE DRIVE ?
:BR IF INIT PENDING
*PORT REQUEST PENDING ?
‘BR IF NOT
:STOP THE TIMER

SEXIT

#BIT15'BI1T2,16(R2)

;INFORM USER OF PORT REQUEST ERROR

:CLEAR THE QUEUE FOR THE DRIVE
*SAVE THE REGISTERS
*RESTORE R3

CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-"'0vV-81 09:16:17 PAGE 32-20'

SEQ 0175

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

—d

)

b cnd

041624

012601
000207

MoV
RTS

(SP)+,R1

;RESTORE R1
¢RETURN

sROUTINE TO READ A RH11/RP04/5/6 REGISTER

‘CALL

JSR
INDEX
ERRADR

RO,RD.RP

b b
b b wud b b b b D b b

NN NNNNNNNNNNNNNNNY NOONONON
S
NNNNINNIN)
= =i
(=
N
H OO

SIS

b b b b b D D b b e

R R R R RRRRRRRRRRRRRRRRRRERRRRRRRRRVRRR

013737

034500

041770

034502
041652

041652

MOV
ADD
RD.RP1: MoV
RD.ADR:
RD.WRD: . WORD
Mov
MOV
ADD

041654
034502
00001
01000

000002

MOV

BIT
BNE

000430

18:

005737

034466

032716
001402
005726
000415
052716
000316

040000

100405

040000
034502
041764

MOV

BIT
BNE

172574
020000

104003

MOV

CMP
B8R

28:

EMT
TST
BMI
BIT
BEQ
TST
B8R
BIS

3s:

movse
.WORD

041764

SWAB
MOV

INC

DEC
. WORD
8GE
RD.RP3: MOV
Mov
RD.RP4: RTS

RD.RP2:

012616
000200

:GO READ A REGISTER
sREG. INDEX FROM BASE
sERROR ADDRESS=-PROCESS ERROR STARTING

sAT THIS ADDRESS

RETURN

M) = cnd b cod b e == cend b wnd e wd e

b cd cnd

D cad

D ad

b ad = s

PONPNLNININININD = b acd b ed b cd = d cd cd b e csd b b b =b

b i e

d ed

b d d

d e

D e

md e

D e

d nd e e

b e cnd b d cd b b b b b D cd o e wd d D d cnd d cd cd D e k) o )

N\
0o 0o WOVVVV\JNVVVNOS
QEIRENISELLRARENLETRIRRRER
2B IIVFINANIITE AR OONONON
EREOR OO
LS SEIFNEGL

1152 041622

sCONTENTS OF REG. IS ON THE STACK
MCPEMX
,RD .RP2
(SP),~(SP)
RPADR,RD.ADR

(R0O)+.RD.ADR
APC)+, (PC)+

0
0
RD.WRD,2(SP)
RPADR , = (SP)

#RPCS2, (SP)

#IT12.3(SP)+
RD.RP3
aRPADR,
- (SP)

cMAX. RETRYS ALLOWED
sSAVE RO FOR RETURN
:FORM THE DESIRED ADDRESS
sUSING THE BASE AND THE INDEX
sREAD THE DESIRED REGISTER OF THE RPO4
sADDRESS IS FORMED HERE
sREG. CONTENTS PUT HERE
cRETURN 1T TO THE USER
sPUT THE ADDRESS ON THE STACK
cFORM THE ADDRESS OF RP(CS?2
sCHECK THE °NED' BIT
:BR IF DRIVE NON-EXISTENT
sREAD RIrCS1

:g1113.<sp)

;DID MCPE SET?

(SP)+,(RO)+
RD .RP&

¢ADJUST FOR RETURN
SEXIT

DTUW

23
#8I1T14,(SP)
23
(SP)+

RD.RP3
#8IT14,(SP)
(SP)
RPADR,3$

6SP)+.3(PC)+

(PC)+

(RO) ,RO
(SP)+,(SP)
RO

sBRANCH IF YES

sDATA TRANSFER UNDERWAY?

sNO--BRANCH
sNO-='"TRE''=1?
«NO--8BRANCH
:YES=~CLEAN OFF THE STACK AND
:TAKE THE FATAL ERROR EXIT
:CLEAR "MCPE'* BY SENDING A **1'* TO *‘TRE'’
:POSITION BEFORE WRITING
:FORM ADDRESS OF HIGH BYTE

sWRITE THE HIGH BYTE OF RP(S1
sADDRESS STORAGE
SEXCEEDED MAX. RETRYS
:BRANCH IF NO

sFATAL ERROR EXIT

SJROUTINE TO WRITE A REGISTER

*CALL

MoV

JSR
INDEX
ERRADR

DATA,=(SP)
RO,WRT.RP

sDATA TO BE LOADED ON THE STACK
sCALL THE ROUTINE TO LOAD(WRITE) THE REG.
sINDEX OF THE REGISTER TO BE LOADED
:ADDRESS TO RETURN TO ON AN ERROR

SSPNINI
= NOMNOON
oo
- (N
O

QO—-00000
OQOOMNO
= b b =d

SXRBILSERRNESRNSZRSR

—d aud cnd cub end cub cub cub cud

b cud cud

b cud cd eud cd

b aub iy

NOAINLAINLALALN
AN
NININI NN
NN

RRRRRRRRRRRRRRRRRRRRR

WA =OVONOWVHN
NN =O VRNV WN=O

H 14
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-21
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

034500

000002

042152
042070

RETURN

WRT.RP:

MOV
MOV

042072
000150

<ERROR FRZE RETURN
MCPEMX ,WRT.R2
2(SP) ,WRT.WD
(SP)+,(SP)

§§0)+.URT.AD

062070

g;SO.HRT.UD

041626

RO,RD.RP

177770
042071
034502

(SP)
#~C7,(SP)
(SP)+,WRT.WD+1
RPADR ,WRT.AD
6PC)*.3(PC)*

042072

18:
ADD
WRT.R1: MOV

WRT.WD:
WRT.AD:

034502
000010
010000

.
.WORD

RPADR - (SP)

#RPCS?, (SP)

041626

#BIT12.3(SP)+
WRT.R3
RO,RD.RP

000010

#BIT03,(SP)+

177776
041626

WRT.R4

042142
18:

. WORD

=2(R0),1$
SO.RD.RP
4

WRT.R2:

.WORD

WRT.R3: MOV
WRT.R4: TST
WRT.R5: RTS

000200

SEQ 0176

(PC)+

WRT.R1
(SP)+
(R0O) ,RO
WRT.RS
(RO)+
RO

sMAX RETRYS ALLOWED
:SAVE THE WORD TO WRITE
;ADJUST THE STACK
sGET INDEX OF REGISTER TO BE WRITTEN
sBRANCH IF NOT RPCS1
c1S THE COMMAND FOR DATA TRANSFERS?

sYES-<DON'T GET THE OLD A16 & A17, & PSEL

sNO=-=COMBINE A168A17, & PSEL WITH
:THE COMMAND BEFORE SENDING IT TO
:THE RH11/RPO4

sFORM THE ADDRESS OF

THE DISK REG.

sLOAD THE DESIRED REG.
¢WORD TO WRITE GOES HERE
sADDRESS IS FORMED HERE
sPUT THE ADDRESS ON THE STACK
:FORM THE ADDRESS OF RP(CS?2
sCHECK THE °NED' BIT
s8R _IF DRIVE NON-EXISTENT
;CHECK FOR PARITY ERROR ON WRITE

;BRANCH IF 'PAR=0"

sPICKUP THE INDEX

sREAD THE REG.
sREG. INDEX
sRETURN TO THIS ADDRESS ON ERROR

sDECREMENT THE ERROR COUNT
cRETRY COUNTER
sTRY AGAIN IF NOT FINISHED

cCLEAN OFF THE STAZK
:EQ?; THE 'PARITY ON WRITE'' ERROR EXIT
sADJUST FOR ERROR FREE EXIT

JROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14

CALL
:
;

MOV
JSR

SVRH11:

SAVREG

034502
000010
000014

042250
042250

000022

1$:

TST
BEQ
MOV
MOVB
MOV

BEQ
(LR
(MpP

#DPBNUM R2

PC,SVRHI1

R2
4
, 4
RPADR
(R2) ,RPCS2(R4)

gg(aé>.a3
3s
38.4RPDB

;DPB_POINTER TO R2
sSAVE THE DRIVES REG'S

sSAVE RO - RS

cQUEUE ENTRY FOR THE DRIVE ?
:BR IF NONE

sSELECT DRIVE
;GET _THE ERROR TABLE POINTER
SEXIT IF NO ADDRESS
:COUNTER & POINTER
sREACHED THE BUFFER REGISTER ?

SEQ 0177

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
1265 062226

001006

1267
1268
1269
1270
1271
1272
1273

742236
042240
042262
042244
042250
042252
042254

001002
005023
000405
004037
000000
042276
012623

1275
1276
1277
1278
1279
1280

042264
042266
042274
0462276
042302
042304

1066 062230

1274 042256

032764

023727

001406
062737
000751
004737
104413
000207

000200

BNE

000010

041626

BIT ~

28:
33:

042250

000046

000002

042250

036742

4$:
5$:
6$:

BNE
(LR
BR
JSR_
.WORD
5s
MOV

(MP

BEQ
ADD
BR
JSR __
RESREG
RTS

:BR_IF NOT

2%
(R®)+
4$
RO,RD.RP
O

IF SET
:STORE RPDB AS ZEROES

ABITO7,RPCS2(R4)’ ;'OR* SET ?

(SP)+.(R3)+

33, ARPEC2

68
42,38
13
PC,CI7
PC

: CONTINUE
:READ THE SELECTED REGISTER
:REGISTER INDEX

:ERROR RETURN ADDRESS
ISTORE THE REGISTER CONTENTS

:REACHED THE END
?

:BR IF YES
: INCREMENT THE REGISTER INDEX
:CONTINUE READING THE REGISTERS
:PROCESS THE UNCORRECTABLE PARITY ERROR
:RESTORE RO - RS
:RETURN

1282

:ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE"

1284
1285

:
:

1286

1288 062306
1289 042310
1290 042314
1291 042320

010446
013704
010164
011446

1293 042326

000316

1292 042322

1294 042330
1295 042334
1296 042342
1297 042344
1298 042346
1299 042350
1300 042354
1301 042356
1303
1304
1305
1306
1307
1308
1309
1310

042360
042361
042362
042363
042364
042365
042366
1311 042367

040000

112714
032764
001002
005726
000402
112664
012604
000207

000100
010000

000
000
000
000
000
000
000
000

1313

BIS

SWAB

000010

1$:
28:

MOVB
BIT
BNE
ST
BR
MOVB
MOV
RTS

;QUEUE COUNT
QCNT:
.BYTE
:BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

#DRVNUM,R1
PC,SET.IE

:DRIVE NUMBER TO R1
ISET “IE”

R&4,=(SP)
RPADR,R&
R1,RPCS2(R4)
(R&) =(SP)

:SAVE Ré
:P1CKUP ADDRESS OF RPCS1
:SELECT DRIVE
:READ_RP(S]

(SP)

:ADJUST FOR DATO

#8IT14,(SP)

ISET THE '‘TRE'’ BIT OF THE WORD READ

#BIT06,(R4)
ISET
“IE"
#8IT12,RPCS2(R4) ;IS 'NED''=12
1%
:VES=~CLEAR "'TRE
(SP)+
CLEAN OFF THE STACK
28
.
(SP)+,1(R&)
;CLEAR '‘TRE"
(SP)+.Ré
:RESTORE R4
PC
:RETURN TO CALLER
0
0
0
0
0
0
0
0

:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE
:DRIVE

0
1
2
3
&
§
6
7

;QUEVE INPUT POINTERS

1315 042370
1316 042372
1317 042374

1318
1319
1320
1321

000001

RETURN

SET.IE: MOV
MOV
MOV
MOV

034502
000010

052716

MOV
JSR

042376
062400
042402
042404

042452
042472
042512

042532
042552
042572
042612

QINPT:

.WORD
.WORD
-WORD

.WORD
.WORD
“WORD
_WORD

QDRVO
QDRV1
GDRV

QDRV3
QDRV4
QDRVS
QDRV#

:DRIVE 0
:DRIVE 1
:DRIVE 2

:DRIVE
:DRIVE
:DRIVE
:DRIVE

3
&
§
6

p—wy

CZRJDEQ RP04/S5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-52

J_14
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 S~NOV-81 09:16:17 PAGE 32-23
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

}%%% 062406

042632

.WORD

}%Sg
042452
042472
042512
042532
042552
042572
042612

QOUTPT:

1335 042430
1336 042632
1337 042434
1338 042436
1339 042440
13640 042442
1341 042444
1342 042446

042452
042472
042512
042532
042552
042572
0462612
042632

QSTART:
QSTOP:

}ggz 042426

}gzz 042450

042632

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

QDRVO
QDRV1
QDRV?
QDRV3
QDRV4
QDRVS
QDRV6

;DRIVE
sDRIVE
;DRIVE
;DRIVE
sDRIVE
sDRIVE
;DRIVE

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

QDRVO
QDRV1
QDRV2
QDRV3
QDRV4
QDRVS5
QDRV6
QDRV?

;DRIVE Q START ADDRESS
:DRIVE O STOP ADDRESS & DRIVE 1 START ADDRESS
:STOP DRIVE 1-=START DRIVE 2
:STOP DRIVE 2--START DRIVE 3
:STOP DRIVE 3--START DRIVE 4
:STOP DRIVE 4--START DRIVE 5
:STOP DRIVE 5--START DRIVE 6
:STOP DRIVE 6==START DRIVE 7

.WORD

042652

.WORD

}gzg

1351
1352
1353
1354
}ggg

;DRIVE 7

;QUEUE OUTPUT POINTERS

1326 042410
1327 042412
1328 042614
1329 0426416
1330 042420
1331 042422
1332 0424624

1347
1348
1349
1350

QDRV?7

SEQ 0178

QDRV?

QTERM

0
1
2
3
4
5
6

;DRIVE 7

:STOP DRIVE 7

sDRIVE REQUEST QUEUES
042452
042472
042512
042532

042552
042572
042612
062632

QDRVO:
QDRV1:
QDRV2:
QDRV3:
QDRV4:
QDRVS5:
QDRV6:
QDRV7:
QTERM=.

042652

.BLkW
.BLKW
.BLKW
.BLKW

.BLKW
.BLkW
.BLkW
.BLkW

10
10
10
10

}ggg

sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

1359

s CALL

};go

1362 042652
1363 042654
1364 042660
1365 042662
1366
042664
1367 042666
1368 042670
1369 042674
1370 042700
1371 042702
1372 042704
1373 042706
1374 042712
1375 042716
1376 042720
1377 042722
1378 042724

104412
012702
005022
005022
005022
005022
012703
012701
012122
005303
001375
012703
012701
012122
005303
001375
104413

042360

000010
042430

00001G
042430

JSR

CLRQUE: SAVREG
MoV
CLR
CLR
CLR
(LR
MOV
MoV
18:
MoV
DEC
BNE
MOV
MOV
28:
Mov
DEC
BNE
RESREG

PC,CLRQUE
#QCNT R2
(R2)+
(R2) +
(R2)+
(R2)+
#8..,R3
#QSTART ,R1
(R1)+,(R2)+
R3
18
#8..R3
#QSTART ,R1
(R1)+,(R2)+
R3

;SAVE RO - RS
:2ERO_THE QUEUE COUNTS
:DRIVES 0 & 1
sDRIVES 2 £ 3
cDRIVES 4 ¢ 5
sDRIVES 6 & 7
:MOVE THE STARTING
sADDRESS OF THE QUEUE INTO
:THE QUEUE INPUT POINTER

sMOVE THE STARTING ADDRESS
¢OF THE QUEUE INTO THE
;QUEUE OUTPUT POINTER
sRESTORE RO - RS

K 14
CZRJDEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 32-24
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)

}%gg 042726

000207

RTS

}%g%

;EMPTY THE QUEUE SPECIFIEv BY R1

1383

s CALL

}ggg

1384

1387 042730
1388 042734
1389 042736
1390 042744

}gg; 042746

105061
006301
016161
006201

042360
042370

Sea 0179

MOV

DRVNUM . R1

EMPTYQ:

CLRB
ASL
MOV
ASR

QCNT(R1)
sCLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1) ,QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER
R1

042410

000207

JSR

RTS

PC.EMPTYQ

;DRIVE NUMBER TO R1

}ggz

sROUTINE TO PUT A REQUEST IN QUEUE

1395
1396
1397
1398
1399
}28?

s CALL
:
H
:
:
:

1402
1403
16404
1405
1606
1407

042750
042756
042760
042764
042766
042772

1408 043000
1409 043006

122761
001421
105261
006301
010271
062761
026161
001003

1411 043016
1412 043020
}2}2 043022

006201
005720
000200

16410 043010

016161

000010

042360

DRVQUE:

042360
042370
000002

042370

042370
042432

042430

042370

18:

2s8:

Mov
#DRVNUM,R1
MOV
#DPB,R2
JSR
RO,DRVQUE
RETURN]
RETURNZ

:DRIVE NUMBER
sADDRESS OF PARAMETER BLOCK
;GO _PUT REQUEST IN QUEUE
RETURN HERE IF QUEUE IS FULL
RETURN HERE IF REQUEST IS IN QUEUE

CMPB
BEQ
INCB
ASL
MOV
ADD
CMP
BNE

#10,QCNT(R1)
2%
QCNT(R1)
R1
R2,8QINPT(R1)
#2 ,QINPT(R1)

:1S QUEUE FULL?
:BR IF YES=-TAKE RETURN1
s INCREMENT QUEUE COUNT

ASR
TST
RTS

R1
(RO) +
RO

MOV

;PUT THIS REQUEST IN QUEUE
:UPDATE THE QUEUE POINTER

QINPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER
18
sBRANCH IF NO
QSTART(R1) ,QINPT(R1)

;YES~-RESET PQINTER

s TAKE RETURN 2
;RETURN TO USER

}2}2

;ROUTINE TO GET THE ‘DPB’' ADDRESS OF NEXT REQUEST IN QUEUE

1417
1418
1419

s CALL
H
:
:

1420

}255

1423
1424
1425
1426
1427
1428

043024
043026
043032
043034
043036
043042

}2%3 043044

005002
105761
00140
00630
017102
00620

000207

042360
042410

GETREQ:
18:

2%:

MOV
JSR

RETURN

CLR
1ST8
BEQ
ASL
MOV
ASR

RTS

#DRVNUM,R1
PC,.GETREQ

;DRIVE NUMBER TO R1
;60 GET THE REQUEST

;R2="DPB'* ADDRESS OF THE REQUEST

;R2=0 IF NO REQUEST IN QUEUE

R2
QCNT(R1)
23
R1
8Q0UTPT(R1)
,R2
R1

;1S THERE ANY REQUEST IN QUEUE?
+NO=-=-BRANCH
;PICKUP ‘DPB’'* POINTER FOR THIS DRIVE

RETURN TO USER

}2;}

sROUTINE TO °*'POP'' THE REQUEST FROM QUEUE

1433
1434
1435

s CALL
H
H

MOV
JSR

£DRVNUM,R1
PC.POPQUE

sDRIVE NUMBER TO R1
¢CALL Tu .[“OVF REQUEST

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

SEQ 0180

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0)
1436
1437
1438 043046
1439 043052
1440 043054

;R2=ADDRESS OF DPB REMOVED

RETURN

062360

042410
000002
042410

042410
062432

0642430

042410

POPQUE: DE(CB
ASL
MOV
ADD
cMP

BNE

MOV
ASR
RTS

0%NT(R1)

sDECREMENT QUEUE COUNT

@Q0UTPT(R1) ,R2
#2,Q0UTPT(RT)

;GET THE 'DPB'’' POINTER

NO--BRANCH TO EXIT

JRETURN TO USER

cUPDATE THE QUEUE POINTER

QOUTPT(R1), OSTOP(R1) ;TIME TO RESET THE POINTER?

g?TART(R1)00UTPT(R1)

sYES--RESET

THE POINTER

)

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

SEQ 0181

DATA, CONTROL, & STATUS BLOCKS
%

.SBTTL

¢BLOCK LOCATION EQUATE STATEMENTS

5
6
7
8
9
10

000001
000002
000003
000004
000006
000010

SFMT
SCOMND
$PSEL
SWRDM
$BUF
$SEC

13
}g

000014
000016

$REG
STATUS

1
12

000011
000012

$TRK
$CyL

DATA, CONTROL, & STATUS BLOCKS

=
=
=
=
=
=

=
=

1
SFMT+1

SFMT+2

SFMT+3

$FMT+5
SFMT+7
$FMT+10
SFMT+11
SFMT+13
SFMT+15

sFMT,HCI,ECI OR OFFSET CODE
cOPERATION CODE
;PORT SELECT & BITS A16, A17
;WORD COUNT (2°'S COMP)
sBUFFER ADDR OR REGISTER TABLE POINTER
sSECTOR ADDRESS OR 1ST REG ADDR
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

SWRDL

SFMT+17

;WORD COUNT

20
21
22
23
24
25

000024
000026
000027
000030
000032

$CODE
$PACK
$PREVO
SPATTC
$PREVA

=
=
=
=
=

SWRDL +4
SWRDL +6
SWRDL +7
SWRDL+10
SWRDL +12

sPRESENT COMMAND SELECTION CODE
sWRITE DATA PACK INDICATOR
sPREVIOUS COMMAND SELECTION CODE
sPATTERN CODE
¢PREVIOUS ADDRESS = TRACK, SECTOR, CYLINDER

000022

26
27
28
29
30
31
32

000036
000042
000046
000052
000056
000060
000062
000064

000072

33
34

$SSEC

000066
000070

$OPERC
$POSIT
STRANS
SREAD
$TOTAL
$SOFT
$SHARD
$SK1

=
=
=
=
=
=
=
=z

$SFAIR

$MISPO
$PASSC

gg
000074

SNCODE

000104

SNEXT

000075
000076
000077
000100
000102

2;
49
50

5
52
53
54
gg

=
=

SWRDL +2

$WRDL+16
SWRDL +22
SWRDL +26
SWRDL +32
SWRDL +36
SWRDL +40
SWRDL +42
SWRDL +44
SWRDL +46
SWRDL +50
SWRDL +52

(NOT 2°'S COMP)

;SECTOR SIZE FOR CURRENT OPERATION

sOPERATION COUNT
s SEEK COUNT
sTOTAL BITS XFERED COUNT (R & W)
sTOTAL BITS READ COUNT
sTOTAL ERRORS (ALL TYPES) COUNT
s'SOFT' ERROR COUNT
:'HARD® ERROR COUNT
:'SK1' OR 'OCYL® ERROR COUNT

sPROG DETECTED MISPOSITIONING ERROR S COUNT
sPASS COUNTER

;OPERATION QUEUE 'FAIRNESS®' COUNT

sINDEX EQUATES TO THE NEXT OPERATION PARAMETERS

40
41
42
43
44

SNPATC
SNSEC
SNTRK
$NCYL
SNWRDL

'
000106
000110

000112
000114
000116
000120
000122

=
=
=
=
=

SWRDL +54

SNCODE +1
SNCODE +2
SNCODE+3
$SNCODE +4
SNCODE +6

SNCODE+10

sNEXT OPERATION CODE

sNEXT
sNEXT
sNEXT
¢NEXT
sNEXT

PATTERN
SECTOR
TRACK
CYLINDER
BUFFER SIZE

sPARAMETER SELECTION INDICATOR

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

sMAXIMUM TRACK ADDRESS
sMINIMUM TRACK ADDRESS
sMAXIMUM SECTOR ADDRESS
¢MINIMUM SECTOR ADDRESS
¢FIRST OPERATION INDICATOR

;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE

N 14
CZRJDEQ RPO4/5/6 MLT=DR LGC MACRO V04.00 5~NOV-81 09:16:17 PAGE 33-1
DATA, CONTROL, & STATUS BLOCKS

58
59
60
61
62
63
64
65
66
67
68

000124

$BDSEC

MAXCYL+16

SEQ 0182

sBAD SECTOR STORAGE TABLE

;DRIVE ID AREA INDEX EQUATE
000224

$ORVID

$8DSEC+100

sDRIVE ID

;RH11/RP04/5/6 REGISTER EQUATES
000234
000236

69
70
71
72
73
74
75

$RPCS1
SRPWC
$RPBA
$RPDA
$RPCS2
$RPDS1
SRPERT
$RPAS
$RPLA
$SRPDB
SRPMR
SRPDT
$RPSN
$RPOF
$RPCA
SRPCC_
$SRPER2
SRPER3
$RPEC1
SRPECZ

000240
000242
00024«
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272

76
77

80
81
82
83
84
85
86

000274

000276
000300
000302

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

$DRVID+10
$RPCS1+2
SRP(S1+4
SRPCS1+4
SRPCS1+:0
$SRP(CS1+12
SRP(S1+14
$RPCS1+16
$RP(S1+20
$RP(S1+22
SRP(CS1+24
$RP(S1+26
$RPCS1+30
SRP(S1+32
SRP(S1+34
SRPCS1+36
SRP(S1+40
SRP(S1+42
S$RPCS1+44
$RPCS1+46

:RP04 REGISTER STORAGE

sBLOCK FOR DRIVE 0
043110
043112
043124
043126

000

DRIVEO:

043344

.BYTE
.BLKW

.WORD
.BLKB

0.0
5

;DRIVE NUMBER

., +SRP(CS1-$REG
$SRPEC2-SREG

;BLOCK FOR DRIVE 1
043414
043416
043430
043432

001

000

DRIVE1:

043650

.BYTE
.BLKW

WORD

.BLKB

1,0
5
.+SRPCS1-$REG
SRPEC2-$REG

sDRIVE NUMBER

;BLOCK FOR DRIVE 2
043720

043722
043734
043736

002

044154

000

DRIVE2:

.BYTE
.BLKW
.WORD
.BLKB

2.0
5
.+SRPCS1-$SREG
$RPEC2-$REG

;BLOCK FOR DRIVE 3

:DRIVE NUMBER

B 15

CZRJDEO RPO4/5/6 MLT<DR LGC MACRO v04.00 5-NOv-81 09:16:17 PAGE 33-2

SEQ 0183

OATA, CONTROL, & STATUS 8LOCKS

044224
064226
044240
044242

003

ODRIVE3:

000

044460

.BYTE
.BLKW
.WORD
.BLKB

3.0
S
,+SRP(CSI-SREG
SRPE(2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 4
044530
044532
064544
044546

004

DRIVE4:

000

0464764

.BYTE
.BLKW
.WORD
.BLKB

4,0
5
. +SRPCS1-SREG
SRPE(C2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 5
045034
045036
045050
045052

005

000

DRIVES:

045270

.BYTE

.BLKW
.WORD
.BLKB

5.0

5
.+SRPCS1-$REG
SRPEC2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 6

045340
045342
045354
045356

006

000

DRIVE6:

045574

.BYTE
.BLKW
.WORD
.BLKB

6.0
5
. +SRPCS1-$REG
SRPE(2-SREG

;DRIVE NUMBER

;BLOCK FOR DRIVE 7
007

000

DRIVE7:

046100

.BYTE
BLKW
.WORD
.BLKB

7.0
5
,+SRP(CS1-$REG
SRPEC2-SREG

;DRIVE NUMBER

;GENERAL PURPOSE DPB - USED BY 'READHD',
000000
000000

000000
000000

177774
046170

GENDPB:
GENREG:

.WORD
.WORD
.BLKW

°'RECALT',

°'OFFSET',R'RTNCTR®

0. 0.-4,CYLDER
0,0,GENREG,0
24

JREGISTER STORAGE

IF ERROR

CIRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 34

c15

SEQ 0184

ERROR MESSAGES

}

.SBTTL

ERROR MESSAGES

3 046240
4 046303
S 046341

122
125
115

110
116
101

061
105
123

EM1:
EM2:
EM3:

.ASCIZ
.ASCIZ
.ASCIZ

/RH11 INTERRUPT OCCURRED (RPAS
= 0)/
/UNEXPECTED ATTENTION OCCURRED/
/MASSBUS PARITY ERROR (MCPE=1)/

7
8
9
10
11
12
13
14
15
16
17
18
19

046434
046470
046532
044575
046630
046661
046733
046756
047012
047033
047064
047137
047216

101
122
125
106
120
117
104
116
110
104
127
127
110

104
110
116
101
105
120
122
117
105
101
122
122
105

106
061
103
126
122
105
111
040
101
126
111
111
101

EMS:
EM6:
EM10:
EMI1:
EM12:
EM13:
EMI4:
EM15:
EM20:
EM21:
EM22:
EM23:
EM24:

.ASCIZ
.ASCIZ
.ASCIZ
_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/
/OPERATION NOT COMPLETED WITHIN TIME LIMIT/
/DRIVE WENT OFFLINE/
/NO RESPONSE TO PORT REQUEST/
/HEADER CRC ERROR/
/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/

21 047345
22 G47372
23 047427
24 047461
25 047524
26 047557
27 047634
28 047676
29 047734
30 047765

106
110
115
117
104
120
127
111
127
104

117
105
1
120
122
101
122
116
122
101

122
101
123
105
111
122
111
126
111
126

EM26:
EM27:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:
EM37:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCI7
_ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

/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/

6 046377

20 047264

050047

32 050105
33 050151
34 050232
35 050277
36 050363
37 050451
38 050523
39 050612
2? 050655
42 050700
43 050705
44 050762
45 051010
46 051047
47 051056
48 051122
49 051162

50 051232
g} 051261

53
54 051332
55 051336
56 051354
57 051364

115

101

123

110

105

122

110

061

123
126
116
122
103
123
105
117
111

EM41:
EM42:
EM43:
EM44:
EM4S:
EM46:
EM50:
EM51:
EM60:

120
122
122
122
122
122
120
120

101
111
111
111
120
126
105
127

DH1:
DHZ:
DH3:
DHé:
DH6:
DH14:

102
104
103
105
105
102
123
120
104
122
104
104
104
044
104
122
122

122
122

001244
001242
001242
001242

125
101
101
122
103
125
105
122
122

120
120

000000
034334
041652
042072

101

EM4:

104
123

034336
041654
042070

EM25:

EM40:

DH15:

.ASCIZ

/MASSBUS PARITY ERROR (PAR=1)/

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

/RH11 OR UNIBUS TRANSFER ERROR/

_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

/RUS ADDRESS OR WORD COUNT INCORRE(CT/
/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/
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/
/SEEK INCOMPLETE (°SKI') OR OFF CYLINDER ('OCYL') ERROR/
/PROGRAM DETETTED POSITIONING ERROR/
/DRIVE UNSAFE ERROR/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCII
.ASCIZ
.ASCII

/RPAS/
/DRIVE
RPDS1
RPER1
RPER2
RPER3
/DRIVE
REG ADR
DATA/
/DRIVE
REG ADR
GOoOD
BAD/
/SRPADR/
/DRV RPCS1
RPCS2
RPDS1
RPER1
/
/RPER2
RPER3
RPEC1
RPEC2/<CR><LF>
/RPWC
RPBA
RPDA
RPAS
RPLA

DH16:

.ASCIZ
.eegal

DT1
DT12:
DI13:
DTé:

.WORD
.WORD
.WORD
.WORD

/RPDB
/RPSN

RPMR
RPOF

RPDT/<CR><LF>
RPCA
RPCC

RPAS/

STATUS/<CR><LF>

ATIN,O
DRIVE,RPERRS,RPERRS+2,RPERRS+4 ,RPERRS+6,ATTN,0
DRIVE,RD.ADR,RD.WRD,0
DRIVE,WRT.AD.WRT.WD.RD.WRD,0

D15
CZIRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 34-1

ERROR MESSAGES

LINIOM:

g Sy L)
g
B

NI N NI N N
P
N N
N P
N N P
N
g ) N N N N

g nng Sy Brmeg Preg Bmug Srg Brung e Puomg Brng Brug $ueg Sy Brug B
sy

0 I

Brng Brnng Buung Bmegg By
S

g N
I

Bmeg S
g B

g I I

g Suceg S

g I
P

Bung Sog

g I

g S

g I

g Bumg
g

g Bmms P

g P

g
o P
P

Snmg B

-AS

g P

g Smeg S
g

LIN10B:
LIN10C:

e P

LIN10A:

Gumep Sy

LINSI:
LINGE:
LIN9G:

wunn wn »nn (7. Y7 17,Y7.37,17,] [7] w
NCIIIIICICIICIOIIOIOIOIOICICIIONOIOIOY
O [0} (o]

LINOH:

$RPSN,$RPOF ,SRPCA,SRPCC,STATUS,0

> eeee>>
.

>>»
[

> >»» >2ee» > »

5: -ASC

SRPWC , $RPBA, SRPDA, SRPAS, SRPLA, SRPDB, SRPMR , SRPDT,

N N

wnunum
wunmumuvmumnunn;m
wunn
IICIIICICIICIOICICIIOICICICIOICIOVND e

(K]

>»»»

N
ONO

.ASC

o
»
o
b med b e b e v
wmd b O —b -0 0 —t e b ) b b wmd b
PN O NN
OOON
) =N b b e = PO =)= O
NN
= NNO NNNO = 000 HHBNNOONNI

-l e wd e O wad cd wh b
QOOOMONIIN)—=
=2 \NNNO NS

-AS

>»»»

NN —

\n
~N
~N

NONWNES
S NN =O VB

b b e e e i e d e e ) o b d e o e b e b b i b b cd ot e b d b e D b b e e e b e wd
e B (D) O b D b b
COON=NONOOHMNNIONINO
= =ONIOONIOONIOONO=ONOCOONIOONINOOONOOONONO
NN
POV
WNO SOV NI NWVININ S MWW
WO WM = W
N = WO = = NS O N = N= 00N OoNVIOWM

o
W

ONONOTM
O

NN
-

d
d

b o

b e

105

SRPADR,0
SRPCS1,8RPCS2,SRPDS1,SRPERT
,SRPER2, SRPER3, SRPEC1 $RPEC2,0

-WORD
-WORD
-WORD
.WORD

[alela]
[=lele]
o (@]
NINLND

2
—

W V1Y)

51576

79 051774
80 052011
81 052026
82 052045
83 052057
84 052112
85 052127
86 052145
87 052163
88 052217
89 052230
052242

~
~

(=4
(=}
(=]

000000

51424
51446

=4 o 000000

~o
o0

LESRERZE 0

58 051376
59 051402

/PRESENT ORDER = /
/
PREVIOUS ORDER = /
@t ERROR AT BAD TRACK/SECTORa
/ERROR AT C/
/ 1/
;PR;SENT ADDR = C/
S
/__
PPEV ADDR = (C/
/START (YL =/
/
END CYL = /
/
ACTUAL CYL =/
/
TRK =/
/ RPCA = /
/RPDA = /
/RPBA = /
/
RPWC =/
/START TRK = /
/START SEC = /
/BUFFER ADDR = /
/
SIIE =/
/
ACTUAL NMBR WRDS XFRD = /
/GO0D DATA = /
/
BAD DATA = /
/
SECT POS =/
/HEADER FROM ERROR SECTOR = /
/RPECY = /

/ 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/
/
GO0D
BAD/<CRLF>
/L0C
DATA
DATA/<CRLF>
/L0C
DATA/<CRLF>
/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>

SEQ 0185

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO v04.00 5-NOV-81 09:16:17 PAGE 34-5

ERROR MESSAGES

115 053270
116 053343
117 053361
118 053363
119 053364

103
101
040
040
040

117
104
040
000

116
104

LINVIH:
LINGSP:
LINSP:
LINSPO:

_ASCIZ
.ASCI1Z
_ASCII
.ASCI1
.ASCIZ

/CONTENTS OF ERROR SECTOR (REPORTED ABOVE)/<CRLF>
/ADDR
DATA/<CRLF>
7/
/
/ /
/ /

SEQ 0186

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

F 15

SEQ 0187

TELETYPE MESSAGES

g Boneg
B

Bt B

I N NI N N N N

g S
B

Bumeg B

g e

N N N N N N
e B

Bnn (g oy Srvn) Bumg B
g B

g N N NG N N N N N N N

o) By Sumag Bt By G

G N

g Sy B
Bumg

g B

g N N N N

Duneg S

N I

S
g e S

e N I I
I

]
[

[]
L[]
[]
L]

ENTDRV:
ENTLMT:
ENTADR:
COLON:
DATEIS:

Sung G

ASGND:
NEDCLK:
PERIOD:
QUES:
INVLD:
ENTCOM:

L[] []

ENDPAS:
ENDTST:
DEASSG:
DRNUM:

>2eEeee>ee > ISEERRRERSS >>>»

:
PDONE
DROPNG:

SYSTAT:
RPQ4B:
RPOS:
RP06:
STATHD:

» »» 0
$.3.3.2.3.3
4

NOTAVL:
NOT SAF :

<CRLF>/WARNING:

[7] wn wnmwununnnnm wmnunomnhunmmininnnwm 17 »nmunumuvmumunmunnnm
nunn
AICIICICICICICIICIIOI
S OICICIOICIOICIOIICICIOICICIOICICICICICICIOIONOY

USE:
:
NOUSE
UNTMSG:
UNTOFF:
UNTON:
UNTNOT: -AS
UNTASN:
NOTRP:
-AS
NOTPRS:

b
b e

N=N=N)
OSSO

o
b wnd wnd
b wd wed
b

25 054171
26 054213
27 054237
28 054251
29 054321
30 054323
31 054325
32 054346
33 054370
34 054415
35 054455
36 054516
37 054520
38

53730

WA= =0ONO
=SNIN—=ONO—=

—t e wd € b € = wmd O b b b —=OO0O— O b and cd O b b b
ad e e b e d d d e e b e d e
NN
=== OO =0 -0 OO NN NO Q) =t N =2 < NININININY = ) b b b © = —2 = NIPVN)
SO =ONNINSOONW[« 3V} OO ~NW NS NN NNNNINOOOONVONONON
0 NNNO
N

SA
258
5

O =2 NINWNO NN

N NN
N NN

WAV

O =tQOedadcad e od =d =k b QO
= b b = b b wd b b nd wnh b
&HN VN = OO = ON =000
ad
a2 O NO
(=T NSO
=OO0OO
N NINNE NN =)=

.SBTTL
(elelelelololelelolelalolelelalele]

N\ ~=d = e

OO NN

WA = OO

WA =

TELETYPE MESSAGES

@ NOT AN RP04/5/68

/ NOT PRESENT/
/ NOT AVAILABLE/
/ UNSAFE/
JUNIT STATUS:/<CRLF><LF>
/RPQ4/
/RP0S/
/RP06/
/DRIVE PERFORMANCE SUMMARY/< ALF>

/DRV PASS ORDERS
SEEKS
WRDS XFER
/SOFT HARD
SKI MISP OTHER/<CRLF>
/DONE/<CRLF><LF>
<07>/?FATAL OR EXCESSIVE ERRORS/
/END OF PASS/
<CRLF>/END OF TEST/

<CRLF>/tsxnsxnnxx DRIVE #/
/ STARTED/<CRLF>

;CgLF>/?

'L* OR 'P* CLOCK REQUIRED ON SYSTEM/<CRLF>

/?/
/INVALID COMMAND/<CRLF>

<CRLF>/ENTER COMMANDS:

/ENTER 1.D.

FOR DRV #/

=N
2O = O
OO SO N

aud ad
b cnd e
b

NN
NN
NN

—d cnd

NN=2O
= NO O

5
56 055016
57 055024

<CRLF>/ENTER ADDRESS LIMITS FOR DRV #/

35775R BAD TRK/SEC ADRS FOR DRV #3
/:
<CRLF>/DATE: /
<CRLF>/OPERATOR 1.D.: /
<CRLF><LF>/DRV
DRV 1.D./<CRLF>

/NONE/<CRLF>
/? INVALID ENTRY/<CRLF>
/SYSTEM BUSY.../<CRLF>

<CRLF>/PROGRAM INITIALIZATION COMPLETE/
<CRLF>/TYPE A "CONTROL C' TO ENTER COMMANDS/<CRLF><LF>

sPARAMETER ENIRY TABLE
-WORD
- WORD
-WORD
-WORD
-WORD
-WORD
.WORD
.WORD

WRDS READ /

<CRLF>/DRIVE DEASSIGNED/

.EVEN

PARLST:

PROGRAMMABLE DRIVES MAY BE USED/<CRLF>

/ PROGRAMMABLE-DRIVE WILL NOT BE USED/
/DRIVE/
/ OFFLINE/
/ ONLINE/
/ NOT BEING TESTED/
/ ALREADY BEING TESTED/

PAR1,0,MAXDL

PAR2. =1, INTRVL
PAR19,-1 PASCNT
PAR3,=1,CMPLMT

PAR11
.1 WCSEL

PAR14.7.RATIC
PAR16.1.ENDET
PAR10.1.FORMAT

—

G 15

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

SEQ 0188

TELETYPE MESSAGES

NINIONINININY
=2 (N =2 (N = NPV W
SN
OOOOOO N (=]

b md md ad e

b e

b—

YOO
OANN = (NN = ad b ek ek e \NON =

nd wd i e
e o
i
d e
b e
b
b
—b

i i g

T A
QT
b b b b

ONOWN= NN

[ R
QI Qe P
(O
B PO ONINIO

.WORD
.WORD
.WORD

PAR15,1,AUTOCK
PAR20,1,NOTPRT

ASKPAR:
SLASH:

.ASCI2
.ASCIZ

/ENTER PARAMETERS:
e/ 3

PAR1:
PARZ:
PAR3:

.ASCIZ
.ASCIZ

/MAXDL/
/INTRVL/
/CMPLMT/
/MAXCYL/
/MINCYL/
/MAXTRK/
/MINTRK/
/MAXSEC/
/MINSEC/
/FORMAT/
/WCSEL/
/RAT10/
/AUTOCK/
/ENDET/
/PASCNT/
/NOTPRT/

001424
001426
124
040

o
i S

b ek ) b b
VYA WNMIWZIWMIAW
=WV

W VIO NO = NWSHsNOO

NI\

b b b b wd b ad ok b wed

Al
N ViAW

©O

ONOOM&WN-‘?O ~

105

000001
000001
(D)
b

055221
055245
000

)

58 055032

PAR% :
PARS:

PARG :

PAR? :
PARS :
PAR9:
PAR10:
PAR11
PAR14:
PAR1S

PAR16:
PAR19:
PAR20:

LASCIZ

.ASCI2

LASCI2

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
_ASCI2
.ASCI2
.ASCI2
_ASCIZ
.ASCI2

s TABLE TERMINATOR
/

.EVEN

86 055254

89 055256

055274
055342
055410

TABLE:

055272

.WORD

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

TABLEO
TABLE1

TABLE?2
TABLES
TABLES
TABLES

TABLEG

TABLE7

sPARAMETER TABLE FOR DRIVE
sPARAMETER TABLE FOR DRIVE
sPARAMETER TABLE FOR DRIVE
sPARAMETER TABLE FOR DRIVE
cPARAMETER TABLE FOR DRIVE
;PARAMETER TABLE FOR DRIVE

cPARAMETER TABLE FOR DRIVE
sPARAMETER TABLE FOR DRIVE

b
b
b
e
e
e
b md
b
b
md

e Yo ¥ AV, [ NIV I
Yo ¥ VLN
IV]]
ONNI=S
N
ONN= SN

b
b od md

OO0O0O0O0O0

000000

LAY
A S IV
=N

055410
0556416
055424
055432

—

055342
055350
055356
055364
055372
055400

OO00000

055332

QOO0

101 055274

AN
AN A A R YL I L
N
A
L R I
I
I
A
AV
(S, AV, IV IV RV [V IV
VAV
IV BV LV IV LV V1V ]

;PARAMETER TABLE FOR ADDRESS LIMITS

000000

063220

000025

043226

000000

063524

000025

000022

TABLEO:

TABLE1:

044030

044026
044034
044032

PAR7.18. ,MINTRK+DRIV EQ
PARG.18. MAXTRK+DRIV EO
PAR9.21. .MINSEC+DRIV EQ
PARS.21. . MAXSEC+DRIV

.WORD

PARS ,0,MINCYL+DRIVE1

.WORD
. WORD
. WORD
.WORD
. WORD

043532
TABLE2:

PARS,0 ,MINCYL+DRIVEQ
PARG,0 MAXCYL+DRIVEO

.WORD
.WORD
.WORD
-WOR2
-WORD
. WORD

.WORD
. WORD
.WORD
-WORD

PAR4,0 MAXCYL+DRJIVE1

PAR7.18. ,MINTRK+DR]VE

PARG.18. MAXTRK +DRIVE 1
PAR9.21. .MINSEC+DRIVE 1
PARB.21. . MAXSEC+DRIVE 1,0
PARS ,0,MINCYL+DRIVE2
PARS, 0 MAXCYL+DR]IVE?

PAR7.18. ,MINTRK+DRIVE2

PARG.18. .MAXTRK+DRIVE2

NOWVNES
WA =O

sPARAMETER TABLE POINTERS FOR ADDRESS LIMITS

H15

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

SEQ 0189

TELETYPE MESSAGES

055440
055446

055167
055160

000025
000025

044040
044036

055456
055466

055133
055124

000000
000000

044334
044332

055500
055506
055514

055142
055167
055160

055472

055151

000022
000022
000025
000025

044336
044344
044342

055526
055532

055133
055124

000000
000000

0644640
044636

055546
035554
055562

055142
055167
055160

000022
000025
000025

0464642
044650
044646

055540

055572
055600

055151

055133
055124

000022

000022
000025

045146
045154

000022

055630

055160

000025

055142
055167

000000
000000

045450
045446

055662
055670

055142
055167

000022
000025

045452
045460

055676

055151

055160

000022
000025

055706
055714

055133
055124

000000
000000

055730
055736
055744

055142
055167
055160

000022
000025
000025

055722

102

055151

}83 055754

000000

;gg

055764

045760

000000

.WORD
-WORD

PARS.0,MINCYL+DRIVES
PAR&.0.MAXCYL+DRIVES

PAR7.18.,MINTRK+DRIVE4

PAR6.18. .MAXTRK+DRIVE4
PAR9.21..MINSEC+DRIVE4
PARB.21. .MAXSEC+DRIVESL,0

PARS,0,MINCYL+DRIVES
PAR&.0.MAXCYL+DRIVES

-WORD
"WORD

PAR6.18. .MAXTRK+DRIVES
PAR9.21. MINSEC+DRIVES

.WORD
-WORD

PAKS,0.MINCYL+DRIVEG
PAR&.0.MAXCYL+DRIVE6

-WORD
"WORD

PAR6.18..MAXTRK+DRIVE6
PAR9.21..MINSEC+DRIVE6

.WORD
-WORD

PARS,0,MINCYL+DRIVE?
PAR&.0.MAXCYL+DRIVE?

-WORD
"WORD
.WORD

PAR6.18..MAXTRK+DRIVE?
PAR9.21.
. MINSEC+DRIVE?
PAR8.21..MAXSEC+DRIVE7.0

CYLDER:

.WORD

0.0.0.0

ENDPGM

-WORD

.WORD
TABLE6:

PAR7.18.,MINTRK+DRIVES

PARB.21._.MAXSEC+DRIVES,0

-WORD PAR7.18. ,MINTRK+DRIVE6

045456

000022

PAR7.18.,NINTRK+DRIVE3

.WORD
-WORD

045454

045754
045752

PARS,0,MINCYL+DRIVE3
PAR& .0 MAXCYL+DRIVE3

PARG.18..MAXTRK+DRIVE3
PAR9.21.
. MINSEC+DRIVE3
PARB.21..MAXSEC+DRIVE3,0

-WORD
"WORD
-WORD

TABLES:

PAR9,21.,MINSEC+DRIVE2
PARB.21..MAXSEC+DRIVE2,0

-WORD
"WORD
-WORD

-WORD

045152

055133
055124

055656

TABLE4:

045150

055640
055646

.WORD
.WORD

.WORD

044644

045144
045142

055151

055614
055622

TABLE3:

044340

000000
000000

055606

.WORD
.WORD

-WORD
TABLE?:

PARB.21..MAXSEC+DRIVE6,0

-WORD PAR7.18. ,MINTRK+DRIVE?

045756
045764
045762

:HEADER BUFFER FOR 'READHD' ROUTINE
:LAST LOCATION OF PROG + 2

}85

;§2311~s TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR

109

;;g

SNOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START

}}?

114 055764
115 055770
116 055772
117 055774
120 056000

056004
056010

104401
104411
012605
112537
112537

112537
112537

056076
001220
001221

001222
001223

OPRDAT:

RETURN

TYPE
ROLIN
MOV
MOVB
MOVB
MOVB

MOVB

PC,OPRDAT

,ENTDAT

(SP)+,RS
(RS)+.DATE
(R5)+.DATE+1
(R5)+.DATE+2

(RS)+.DATE+3

:"ENTER DATE'
*READ THE ENTRY
*PUT THE ENTRY ADDRESS INTO RS
*STORE THE DATE
:STORE THE DATE

-STORE THE DATE
:STORE THE DATE

DEO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 35°§

CZRJ
TELETYPE MESSAGES

121
122
123
124
127

056014
056020
056026
056030
056034
056040
056042
056044
056050

056054
056060
056064
056070
12 8 056074
129
130 056076
}g; 056114

112537
112537
112537
112537

104401
104411
012605
112537
112537

001224
001225
001226
001227

mMova
Mov8
Mov8
Mov8

056114

TYPE
RDLIN
MoV
Movs
Mov8

001232
001233

112537
112537
112537
112537
000207

001234
001235
001236
001237

200
105

10 5
N6

116
124

ENTDAT:
Eg;ég:

SEQ 0190

(R5) +,DATE +4

(R3)+,DATE+5
(R5)+ ,DATE+6
(R5)+,DATE+7
LENTID

(SP) +,RS
(R5)+,0PERID
(R5)+,0PERID+1

;STORE THE DATE

:STORE THE DATE
:STORE THE DATE
cSTORE THE DATE

s 'ENTER OPERATOR 1.D.°
sREAD THE ENTRY
sENTRY ADDRESS
sSTORE THE I.D.
;STORE THE 1.D.

MOovB
MOv8
MovB
Mov8
RTS

(R5)+,0PERID+2
(R5)+,0PERID+3
(R5)+,0PERID+4
(R5)+,0PERID+5
PC

;STORE THE
;STORE THE
;STORE THE
;STORE THE
sRETURN

_ASCIZ
.ASCIZ

<CRLF>/ENTER DATE: /
/ENTER OPERATOR I.D.: /

I.D.
1.D.
I.D.
I.D.

J 15

SEQ 0191

ROUTINE TO SIZE MEMORY

SRR ARRARARANANRANRAAAAAARARANAANRNAANRNNAANAAANRNNNNARANNNONCANY

RETURN

PC.$SIZE

$SIZE:

MOV

RO, ~=(SP)

::SAVE RO ON THE STACK

MOV
MOV
MOV

a¥116.-(SP)
#116,30114
#RTI. 4116

;; IGNORE PARITY ERRORS WHILE SIZING

000006
056232
020000

000002
000006
000004

000116
000114
056272

056272

000000

nov

(SP)+,a#ERRVEC+2"

MOV
18:

28:

pusu OLD PSW AND PC ON STACK

#28 ,NERRVEC

::SAVE THE PSW IN @#ERRVE(C+2

;:SET FOR TIMEOUT

MOV

420600 R1

sFIRST ADDRESS

SUB

#2.R1

: ;DROP BACK

MOV

(SP)+,a#ERRVEC+2’ ; ;RESTORE ERROR VECTOR

TST
TST
BR

MOV

MOV
MOV
MOV
MOV
RTS
SLSTAD: .WORD

(R1)
(R1)+
1$

RO.SP

(SP) +.a#ERRVEC

(SP)+.an116

S3TEST THIS ADDRESS
*:STEP TO NEXT ADDRESS
*3TRY ANOTHER
*RESTORE THE STACK

::RESTORE MEMORY ERROR VECTOR

(SP)+.,a#114
R1,SLSTAD
(SP)+,R1
;gp)+.ao

;:LAST ADDRESS
$SRESTORE R1
**RESTORE RO

s - CONTAINS THE LAST ADDRESS

MOV
SP,R0
..SAVE THE STACK POINTER
s :SET rus ERRVEC PS TO THE PRESENT
P

000004

::SAVE PRESENT ERROR VECTOR PS & PC

a#ERRVEC, -<sp)
SNERRVEC+2,~(

104400

MOV
MOV

056204

*3SAVE R1 ON THE STACK
*3SAVE MEMORY ERROR VECTOR PS & PC

010600

R1,=(SP)
ari14,-(SP)

PN sme sen P

056202

000114
000116
000116
000002
000004
000006

MOV
MOV

PO SU

010046
010146
013746
013746
012737
012737

056142
056144
056146
056152
056156
056164

o son PR

*w$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

JSR

;

'CALL

PN PN

.SBTTL

Smn PR PV

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

.SBTTL

K 15

SEQ@ 0192

BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11

¢THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS
;OF THE RH11 IS SETUP FOR THE PROPER ADDRESS.

A;QS{L%DALSO READ THE ADDRESS FROM THE TTY IF

gOIE THIS ROUTINE DESTROYS RO-R4

28%:
3s:

056276
056550

R2,=2(R0O)

MOV

(RO)+,-(SP)

TYPE

MoV
MOV

056300

JSR
78

+MRHVE(

.LINSP

(SP)+,R1
HIVEC ,BOUND

R5,CK.NUM

14 |

000004

034502
45 056500

48:
:

MoV
TST
MOV
MOV
MoV

MoV
MoV

e
PR
oSh

SAVE NEW RP(S1
:"RHVEC="'

:PRESENT RH11

VECTOR ADDRESS ON THE STACK

STYPE IT
22 SPACES
sREAD THE ENTRY

sASCII TEXT ADDRESS
sSET THE VECTOR-MAX

sCHECK THE NUMBER

SN
N
Em
WM
SPNh
SR
.
A

s ILLEGAL INPUT

:TERMINATED WITH A °
R2,-2(R0)
ERRVEC ,R1
#88 ,ERRVEC
aSRPADR
R1,ERRVEC
#$RPADR, RO
#RPADR R
(RO)+,(R1)+
(RO)+,(R1)+

s CARRIAGE RETURN ONLY ENTERED

: TERMINATED UITH A CARRIAGE RETURN

4$
MOV
MoV

STERMINATED WITH A *'.*

sPERIOD ONLY ENTERED

177776

amn

:TERMINATED WITH A °

MoV

TYPOC
TYPE
RDLIN

053363

OSh

;TERMINATED WITH A CARRIAGE RETURN

177776
056537

<PEn

cPERIOD ONLY ENTERED
s ILLEGAL INPUT

78
18

;CHECK THE NUMBER

¢ CARRIAGE RETURN ONLY ENTERED

R5.,CK.NUM

HIAD ,B0UND

JSR
3

MoV

:GET THE ENTRY
sADDRESS OF ASCII TEXT
sSET THE ADDRESS MAX

056300

(SP)+,R1

RDLIN
MoV

STYPE

;2 SPACES

.LINSP

sYES==CLEAR THE REQUEST FLAG
FIRST ADDRESS
:"RPCS1="*
:PRESENT RPCS1 ADDRESS

oENn

TYPE

TYPOC

053363
056274
056550

CHGADR
#SRPADR RO
.MRPCS1
(RO +,-(SP)

ABE

104401
104411

CLR
MoV
TYPE
MOV

sINPUT FROM TTY REQUESTED?
:NO=-BRANCH

18:

CHGADR
4]

001260
001170
056526

TST
BEQ

BUSADR:

001260

.WORD 177700
.WORD 776
.WORD 0

104401

012046
104402
o
W
W
o

HIAD:
HIVEC:
BOUND:

000776
000000

005737
001456
005037
012700

PC,BUSADR

056302
056306
056310

177700

RETURN

:TERMINATED WITH A **.**
:SAVE INPUT
:SAVE THE ERROR VECTOR

sSETUP FOR TRAP
sCHECK FOR RH11
sRESTORE ERROR VECTOR
cFIRST ADDRESS OF NEW PARAMETERS

cFIRST ADDRESS OF WHERE TO PUT THEM

:BUS ADDRESS
:VECTOR ADDRESS

056274
056276
056300

JSR

(V.] AN

NPNIPIPU NN

b =

d b

b e

d b e ok

=2 O V00 NO NS WNN) =200V 00 NO NS AN

CZRJDEO RPO4/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

L 15

SEQ 0193 |

CZRJDEO RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 0 ?:16:17 PAGE 37-1
BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH1

NI
= b

O SHNO

46 056502
47 056504

000207
010132

8%:

000004
000042
005646
120
110

10 3
12 6

MRP(CSI1:
MRHVEC:

RTS

MOV
CMP
EMT
TST
BEQ
JMP

R1,ERRVE
(SP)+,(S
)
N2
18
$GET42

.ASCIZ
.ASCIZ

@RPCST
@RHVEC

sRETURN
cRESTORE ERROR VECTOR
sCLEAN OFF THE STACK
:IS THERE A MONITOR?
sNO--GO ASK FOR ADDRESS
:GO TO END OF PROGRAM

SEQ 0194

(OCTAL)

LSBTTL

CK.NUM - CHECK NUMB

2
3

sTHIS ROUTINE CHECKS AN ASC
;AND FORMS AN OCTAL NUMBER

RING FOR LEGAL CHARACTERS

5
6
7
8
9
10
1"
12

:
:
:
:
:
:
:
H

sADDRESS OF ASCIZ STRING
¢MAX SIZE OF INPUT NUMBER
;60 FORM THE NUMBER

sCALL:

15 056550
16 056552
17 056554
18 056556
19 056560
20 056562
21 056564
056570
056572
056574
056576
056600
056602
22 056604
23 056610

24 056612
25 056614
26 056616
27 056620
28 056622
29 056624
30 056626
056632
056634
056636
056640
056642
056644
31 056646
32 056650
33 056652
34 056654
35 056656
36 056660
37 056664
38 056656
39 056670
40 056672
41 056674
42 056676
43 056700
44 056702
45 056704

010446
010346
010246
005004
005003
005002
004537
056670
056674
056670
056672
056604
056670
062705
006303

103426
006303
103424
006303
103422
060203
004537
056674
056656
056654
056646
056610
056674
105711
001011
005724
(005724
005724
023703
101003
000401
005725
005725
060405
010302
005726
012603
012604

030072

000004

RETURN

CK.NUM: MOV
MOV
MOV
CLR
CLR
CLR
JSR
¢S
8s
63
7%
1%
63
1$:
ADD
2$:
ASL

030172

3s:

056300

MOV
MOV
JSR
RETURN
RETURN
RETURN
RETURN
RETURN

48:
5%:

6$:
7%:
8s:

B(CS
ASL
8(CS
ASL
B(CS
ADD
JSR
8%
5%
43
3s
2%
8s
1STB
BNE
TST
TST
TST
(MP
BHI
BR
TST
TST
ADD
MOV
TST
MOV
Mov

#ADR,R1
#NUM,R2
RS,CK.NUM
ADR1
ADR?2
ADR3
ADRé4
ADRS

;" CR'* ONLY ENTERED == R2= 0
:*PERIODTM ONLY ENTERED -- R2 = 0

:ILLEGAL CHARACTER IN THE INPUT STRING

”CR" ENTERED == R2 = NUMBER
;"'COMMA’' == R2
=

ADRé6

;'PERIOD'* -- R2
=

Ré4,=(SP)
R3,-(SP)
R2,~(SP)
R4
R3
R2
R5.CK.CHR

:SAVE Ré4
:SAVE R3
:SAVE R2
JRETURN POINTER
JSTART NUMBER AT ZERO
;STORE RESULT

JCHECK ONE CHARACTER
JJLLEGAL CHARACTER

: CARRIAGE RETURN

#4 ,R5
R3

63
R3
63
R3
63
R2.R3
RS5,CK.CHR

:DIGIT 0-7
;DIGIT 8-9
¢ INCREMENT RETURN PAST '‘CR'' AND °'‘PERIOD’‘ ONLY RETURNS
sFOR THE OCTAL NUMBER IN R3

;DON'T LET IT GET TO BIG

:CHECK ONE CHARACTER
:ILLEGAL CHARACTER
: CARRIAGE RETURN

oic}r 8-9
(R1)
8%
(R4)+
(R4)+
(R4)+
BOUND ,R3
8$
7$
(R5)+
(R5)+
R4 RS
R3,.R2
(SP)+
(SP)+,R3
(SP)+,R4

DOESFA ;gn" FOLLOW THE 'PERIOD'
1
; INCREMENT THE RETURN
s INCREMENT THE RETURN INDEX

: INCREMENT THE RETURN INDEX
: INPUT Y?L?g TOO LARGE?
s8R IF NOT
s INCREMENT THE RETURN ADDRESS
s INCREMENT THE RETURN ADDRESS
sSETUP _FOR PROPER RETURN
sLOAD ENTERED VALUE
;CLEAN OFF THE STACK

;RESTORE R3
+RESTORE R4

CK.NUM - CHECK NUMBER

Mm15

- A semn AN SEEE em SN S GEED e em o

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

000200

M
116
123

117

124
104
131

LOADRV:

NOLOAD:
.END 200

.ASCII

<CRLF>/TO TEST DRIVE 0, REPLACE THE

<ASCII
<ASCIZ
.ASCIZ

7~ P

'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>

124

W P\

127
101
200

;GET RETURN ADDRESS
¢RETURN

200

50 056777
51 057054
g% 057105

(R5) ,RS
R5

A NMVIAAM
D
WTM PO L

49 056712

MOV
RTS

011505
000205

46 056706
2; 056710

SEQ 0195

(OCTAL)

F"PC

CK.NUM - CHECK NUMBER

N 15

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

8 16
CIRJOEQ RPO4/S5/6 MLT~DR LGC MACRO v04.00 S~NOV-81 09:16:17 PAGE 38-2

SEQ 0196

SYMBOL TABLE

ABNRML 027036
ABS
= 000200
ACK
= 000123

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000

CMSEC
CMSTR
CMTRK

ACTDRV
ACTSTR
ACU
=
AOE
=
ASGND
ASGN1
ASGN2
ASGN3
ASGNG
ASGNS
ASGNG6
ASGN7

034420
034421
100000
001000
054237
024516
024576
024650
024766
024776
025004
025014

BIT2 =
BIT3 =
BIT4 =
BITS
=
BITé
=
BIT7 =
8178 =
8IT9 =
BLKADR
BOUND
BPTVEC=
BUFTBL

000004
000010
000020
000040
000100
000200
000400
001000
001740
056300
000014
001616

comTeL
CPSAVE
(R
=
CRLF
=
CSF
=
sV
=
CTRAP
CYLDER
CvyLIAT
DATAPK
DATAQ
DATAT

ASNERR
ASNLST
ASNMSG
ASSIGN

026730
001462
026750
024510

8USY
CFLAG_
CHGADR
cn

054621
001262
001260
036112

DATEIS
DCK
=
DCKER
DCKERT

ACL

= 000040

ASKPAR

ATA

ATABIT
ATTN
ATO

AT1

055050

= 100000

034470
001244

= 000001

= 000002

AT2
=
AT3
=
AT4
=
ATS
=
AT6
=
AT7
=
AUTOCK
AVAIL
A16
=
A17
=

000004
000010
000020
000040
000100
000200
001424
001530
000400
001000

BEGCOD
BEGPAT
BEGSIZ
BITO =
BITO0 =

001434
001432
001436
000001
300001

BADENT
BADSEC
BADTMO
BAlI
=

BIT01 =
BIT02 =
BIT03 =
BIT04 =
BITOS =
BIT06 =
BIT07 =
817108 =
BIT09 =

BIT1

054600
001264
004106
000010

000002
000004
000010
000020
000040
000100
000200
000400
001000

= 000002

81710 = 002000
BIT11 = 004000

BIT15 = 100000

BUSADR

cI3

Clé4

CIS

clé

cI17

cl78
cI8
CkBUS
CKCLK
CKCLK1
CKCLK2
CKCLK3
CKERR
CKFMT
CKHCE

CKSWR =
CK.CHR
CK.DEC
CK.DIG

056302

036220

036326
036704

DROP
026760
DROPNG 054104
DRQ
= 004000

EM1?
EM3
EM4

046630
046661
046733

001760
032244
000015
000200
000002
000010
031646
055756
001350
025442
003026
003066

DRVCLR=
DRVER
DRVINT
DRVPRM
DRVQUE
DRVSTA
DRVTYP
DRY
=
DSWR =
DTE
=
DTEER
DTSY
=

000111
011342
034732
025672
042750
034354
(034364
000200
177570
010000
012200
000200

EM2
EM20
EM2]
Em22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31

046303
047012
047033
047064
047137
047216
047264
047345
047372
046341
047427
047461

000001
000002
000004
000010

EM33
EM34
EM35
EM36

COLON

054516

DATE

001220

pcL

pcu

054520
100000
010072
010224

= 000100

= 000001

DDISP = 177570

036726

DEASGN

036770
037042
013372
022714
023010
023056
023106
013272
011374
011570

DE1__
= 000040
DFF20 = 000002
DH1
050700
DH14
051056
DH15
051162
DH16
051261
DHZ
050705
DH3
050762
DHé
051010
DH6
051047

036742

104407
030072
030044
030144
CK.NUM 056550
CK.OCT 030016
CLKFLG 001210
CLOCK
024050
CLR
= 000040
CLRDPB 025466
CLRQUE 042652
CMCNT
001312
CMCYL
001314
CMDAT
013740
CMHED
013644

CMPAR
CMPARD
CMPLMT
CMPRES
CMPRT
CMPRX

001316
013566
001317

013456
013474
001414
020032
014204
014176

DEASSG

025064

DRVACT

034344

034466

D700
D701
D702
D703

=
=
=
=

D705

= 000040

D704

DT06

D707

054171

D708

DIGB =
DISPLA
DISPLY=
DISPRE

000004
001142
104414
000174

ECBADO
ECBAD1
ECBIT
ECC

DPR
=
DPRQS
DRIVE
DRIVEO
DRIVE1
DRIVEZ2
DRIVEZ
DRIVEL
DRIVES

000400
034404
001242
043110
043414
043720
044224
044530
045034

DRIVE?
DRNUM

045644
054213

= 000020

= 000100
= 000200

= 000400

DT
DT14
DT15
DT16
DT2
D73
DT4
DT6
DUNIT
DVA
=

051332
051402
051424
051446
051336
051354
051364
051376
001464
004000

DLT
= 100000
DL64 = 000020
oMD
= 000001
DONE
007566
DPINT
034374

ECCX
ECC)
ECC2
ECGD
ECGDT
ECH
=
ECI
=
ECMSKO
ECMSKT
ECSEC
ECWRD

015336
015202
015332
001332
001340

DRIVES

045340

EM1S5

EMm32

Em37

EMé

EM4O
EMé

EM42

047765

046377
050047
050105

050151

ENDPGM=
ENDSEK
ENDSK
ENDTST
ENTADR

055764
001376
001356
(054154
(54455

EOP2

027140

000100
004000
001324
001326
001322
001330
ECWRD1
001336
EMPTYQ 042730
EMTVEC= 000030

ENTCOM
ENTDAT
ENTDRV
ENTID
ENTLMT
ENTPR
EOP
EOPX
EOP1

046532
046575

047557
047634
047676
047734

050232
050277
050363
050451
046434
050523
050612
046470
050655
014460

ENDCN
ENDCON
ENDET
ENDPAS

0646240

047524

EM43
EMé4
EM4S
EM46
EMS
EM50
EM51
EM6
EM60
ENOCMP

(01334
001342
001320
014604

EM10
EMN

046756

ERCTR
ERPRCT

001352
001372
001430
054140

054346
056076
054370
056114
054415
005256
027064
027336
027116
001306
007146

CZRJDEQO RP04/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38-%

SEQ 0197

SYMBOL TABLE

ERPROC 007132
ERR
= 040000
ERROR = 104000
ERRVEC= 000004
EXT1
= 000001
EXT10 = 000010
EXT2 = 000002
EXT20 = 000020
EXT4 = 000004
EXT40 = 000040
FACTOR
FAIRNS
FALPAR
FALPR1
FEN
=
FER
=
FILBUF
FMTER
FMT22 =
FORMAT
FRSTER

016172
001254
007332
007342
000200

F2
F3

016544
012374
010000
001416
001300
= 000002
= 000004
= 000010

= 000040

Fé4

= 000020

GENDPB 046150
GENREG 046170
GETADR 026264
GETBUF 016174
GETID
026154
GETPAR 017624
GETPAT 017576
GETREG= 000141
GETREM 027340
GETREQ 043024
GO
=
GODRIV 016672
GRV
=
1
GTSWR = 104406
HCE
= 000200
HCEER
012452
HCI
=
HCRC = 0004
HCRCER 011212
HEDLIN 054551
HIAD
056274
HIVEC
056276
HOUR
1266
HT
= 000011
HZ
001212

IAE_
=
[AEER
IRSAVE
ID4S
IDLE
IDLE!T

002
012314

(032246
054530
006504
006602

IE
= 000100
ILF
= 000001
ILR
= 000002
INCHRD 023632
INCMIS 023702
INCSKI 023656
INCSOF 023606
INCTOT 023726
INTDON 054641
INTRVL 001410

LINKDY
LINM3
LINMG
LINN3
LINOCT
LINP3
LINPS
LINRG
LINSP
LINSPO

027366
051563
052026
051601
022544
051625
052145
052342
053363
053364

MAXDL
MAXER
MAXSEC=
MAXTRK=
MmcLk =
MCPE =
MCPEMX
MHS
=
MINCYL=
MINSEC=

001404
001406
000116
000112
000002
020000
034500
001000
000110
000120

OFMSGO
0FMSG1
0FMSG2
OFMSG3
OFMSG4
OFMSGS
OFMSG6
OFMSG7
OFMSG8
OFMSGY

002274
002327
002363
002417
002453
002507
002543
002577
002633
002667

LINAZ

LINT1OC

053101

MRPCST

056526

OPIER

012070

INVLD
I0TVEC=
R
=
ISR
IXE
=
KSR
KSR1
A
LACNT
LF
=
LIMIT

0564325
000020
000100
037434
004000
024212
024246
037276
034432
000012
001310

LINB3
LINBS

051752
052127

LINB6

LINCAS

LINC6_
LINDA3
LINDEC
LINDS
LINEN3
LINEOS
LINEPS5
LINET
LINE2
LINE2A
LINE2B
LINE3
LINE3A
LINE3B
LINE3C
LINE3D
LINE3E
LINE3F
LINEG
LINES
LINESA
LINESB
LINE6
LINE6A
LINE6B

LINE6C
LINEGD
LINE7
LINE7A
LINES
LING6

051700

052242
051731

052275
051742
022576
052112
051663
052230
05221
020502
020546
020716
020734
021154
021162
021170
021202
021212
021260
021346
021630
021720
022020
022112
022154
022166
022174

022202
022210

022264
022412
022532
052324

LINSS3
LINSTS
LINS3
LINSG
LINSS
LINT3
LINUQ6
LINWS
LINXG
LINIOA
LIN108
LINIOH
LINITH

LIN2C

LIN2P

LIN2S
LIN3.1
LIN3.3
LIN3.4
LINGSP
LIN6.1
LIN6.2
LIN7M
LIN70
LIN7P
LIN7ZR
LIN7S
LIN?T
LINZX
LINGM
LIN9B
LIN9E
LING
LIN9H
LIN9I
LKPAR
LOADRV
LST
=
LSTAD
MAIN

MAIN1
MAIN2
MAIN3
MASK
MATCH
MAXCYL=

052011
051774
051646
052045
052163
051720
052353
051762
052057
053005
053041
053205
053270

051462

051503

MINTRK=
MINUTE
MINX =
MNDLTA
MNTBL
MOH
=
moL
=
MONTR
MPE
=
MRD
=
MRHvcCc

000114
001270
000004
034514
002010
020000
010000
005570
000400
000020
056537

MSE
= 000020
MSTCK = 000010
MXDLTA

= 000040

034512

051527
021420
021532
021564
053361
022216
022240
052400
052426
052436
052533
052456
052505
52517
52550
052605
052727
052757
52634
052710
05232
056712
002000
001256
005676

F
=001000
MXLACT 034510
MXWNDW 034516
M.DPID 027434
M.DP4O 027472
M.DP41
027526
M.DP42 027536
M.DP44 027570
M.DP50 027602
NBA
= 100000
NED
= 010000
NEDCLK 054251
NEM
= 004000
NEWASN 025054
NEWUNT 001506
NHS
= 002000
NOLOAD
057105
NOMTCH 013050
NONE
054572
NOTAVL 053643
NOTPRS 053626
NOTPRT 001426
NOTRP
053605
NOTSAF
053662
NOUSE
053441

006400
001250
014526
000106

000115
015574
007440
002724

006024
006144

ocyL =
OFFCOD
OFFSET=
OFFST
OFLIN
OFMSGA

100000
002220

OFMTBL
OFREV =
0F100 =
0F200 =
0F25 =
0F400 =
OF50 =
0F800 =
OPE
=
OPERID
oPI
=
OPIER1
OPRDAT

OPT

OPTBL

R
=
ORDERQ
PACK
PAR
=
PARENT
PARER
PARLST
PARQ
PAR1
PAR10
PAR11
PAR14
PAR1S
PAR16
PAR19
PAR2
PAR20
PAR3
PAR4
PARS
PARG
PAR?
PARS
PAR9
PASCNT

PAT
=
PCLOCK
PDONE
PERIOD
PFECH
PFECHT

002249
000200
000004
000010
000001
000020
000002
0C0040
020000
001232
020000
012134
055764

035632

001766

000200
001440
001216
000010
0
012222
054752
001574
055100
055176
055205
055213
055221
055230
055236
055106
055245
055115
055124
055133
055142
055151
055160
055167
001402

000020
001206
054075
054321
032426
032436

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

SEQ 0198

SYMBOL TABLE
PFECHZ
PFECA3
PFECH4
PFTSTN
PGE
=

032520
032552
032562
032566
002000

RDHD
=
RDLIN =
RDY
=
RD.ADR
RD.RP

000173
104411
000200
041652
041626

RINCTR
015516
Ré
=2000006
R7
=%000007
S
051622
SAVEFG 034442

$702
ST03
ST0S
$T06
ST07

041420
061470
041514
041522
041560

TRFER
TRKLMT
TRK1
=
TRK10 =
TRK2
=

012534
001346
004000
240000
010000

PIRQVE=
PLU
=
POPQUE
POSER
PROCES
PRTBAD
PRTIM
PRO
=
PR1
=
PRZ
=
PR3
=
PR4G
=
PRS
=
PR6
=
PR7
=
PS
=

000240
020000
043046
012014
007042
015344
007530
000000
000040
000100
000140
000200
000240
000300
000340
177776

RD.RP4
RD.WRD
READDR
READHD
READIN=
RECAL =
RECALT
RECALO
REDAPK
REFMT
REFMTX
RELBUF
RELSE =
REPLZ
RESREG=
RESVEC=

042000
041654
022616
015620
000121
000107
015542
015546
025454
006676
007040
016330
000113
027612
104413
000010

sC
SCMND
SCOPE
sC1_
sC10
SC11
SC12
SC13
sC2
SC20
SC3
SC4
SCS
SC6
SC6A
SC7

037762
025172
000004
000100
001000
040600
040670
040740
000200
002000
040026
040032
040044
040234
060344
040472

SWR
SWREG
SWIIm
Sw0
Sw00
SW01
SWw02
sSw03
Sw04
SW05
sw06
SW07
SW08
sSw09
SW1
SW10

=
=
=
=
=
=
=

001140
000176
007402
000001
000001
001002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

TRTVEC=
TSTPGM
TUF
=
TYPDS =
TYPE
=
TYPEST
TYPOC =
TYPON =
TYPOS =
TYPRI4
UCPAR
ULDFLG
UNIT
UNLOAD=
UNS
=
UNSAF

000014
035336
000100
104405
104401
023200
104402
104404
104403
027742
007320
034422
001246
000103
040000
012770

PSU
=
PSW
=
PUNSAF
PWRVEC=

000001
177776
007230
000024

RMR
= 000004
RNOP = 000101
RPADR
034502
RPAS
= 000016

023250
000131
001344
001272

SWwi2
swi3
SW14
sWw15

=
=
=
=

010000
020000
040000
100000

UNTMSG
UNTNOT
UNTOFF
UNTON

053506
053535
053514
053525

QDRVO
QDRV1
QDRV2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV7
QINPT
QOUTPT
QSTART
QSTOP
QTERM =

042452
042472
042512
042532
042552
042572
042612
042632
042370
042410
042430
042432
042652

RPCA
=
RPCC
=
RPCS1 =
RPCS2 =
RPDA
=
RPDB =
RPDST =
RPDT
=
RPECT1 =
RPEC2 =
RPERRS
RPERT1 =
RPERZ2 =

000034
000036
000000
000010
000006
000022
000012
000026
000044
000046
034334
000014
000040

SEEKFG
SELDRV=
SELPAR
SETFMT=
SETVEC
SET.IE
SHDTYP
SIXTEE
SIZMEM
SKI
=
SKIER
SLASH
SPOTCK

034444
000145
016750
000143
005304
042306
023226
001274
005062
040000
012634
055074
020344

sw3
=
SWé
=
SW5
=
sWw6
=
sw7
=
SW8
=
SW9
=
SYSTAT
T
TABLE
TABLEO
TABLE1
TABLE2

000010
000020
000040
000100
000200
000400
001000
053672
051576
05525
055274
055342
055410

USE
uUsl
use
uUsé
UWR
VUF
vu30
AL
WAIT
WAO
wC
WCE
WCF

aQvCON
QVSEK
RANCYL
RANPAT
RANSEZ
RANSIZ
RANTRK
RANWRT
RANXIT
RATIO

001362
001366
017204
017452
017030
017316
017104
017472
017462
001422

RPINIT
RPLA
=
RPMR
=
RPOF
=
RPSN =
RPTMR
RPVEC
RPWC
=
RPO4
RP04B

034520
000020
000024
000032
000030
041100
034504
000002
035340
053711

STACK =
START
START1
START2
START3
STATHD
STATIN
STATIS
STATPR
STKLMT=

001100
004166
004200
004230
004216
053730
001214
016030
023116
177774

TABLE4
TABLZS
TABLES
TABLE?
TAP
=
TBITVE=
D
TDF
=
TIMER
TKVEC =

055524
055572
055640
055706
040000
000014
037500
000040
034446
000060

WCKD =
WCKER
WCKHD =
WCSEL
WwCUu
=
WLE
=
WLEER
WRCHK =
WRL
=
WRTDAT=

000151
010664
000153
001420
000001
004000
012346
000000
004000
000161

ST0
STo1

041222

= 040000

WRTPK1

020100

PGM
PIP
PIRQ

= 001200
= 020000
= 177772

PSEL

= 002000

QCNT

0462360

QUES

054323

RAW
= 000020
RDCHR = 104410
RDDAT = 000171

RD.RP1
RD.RP2
RD.RP3

RETRY

RPBA

041650
041770
041774

001252

= 000004

RPER3 = 000042

RPOS5
RPO6
RTC

053716
053723

= 000117

SAVERT
001302
SAVERS
001304
SAVREG= 104412

=
=
=

=
=

S(C8

SDETAL
SEARCH=
SECLMT
SECOND

SEEK

SRCHWT

STNDAT

040550

= 000105

034416

002762
0641172

ST08
ST09
SVRH11

041610
041620
042170

=
=
=
=
=
=

SW11

= 004000

SWw2

= 000004

TABLES

055456

TPVEC = 000064
TRAPVE= 000034
TRE

TRK20 = 100000
TRK4
= 020000
TRNSWT
034414

UNTASN

UPE

WCFER

053557

= 020000

053366
000001
000002
000004
000010
000002
010
000100
001552
= 000002
037654
= 040000
= 000040
=
=
=
=
=
=
=

012672

WRTHD = 000163
WRTPK
02C050

E 16
C2:JDEO _RPO4/5/6 MLT~DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 38-S5

SEQ 0199

SYMXOL TABLE
WRTPK2
WRTPK3
WRTPK4
WRY.AD
WRT.RP
WRT.R1
dRT.R2
WRT.R3
WRT.R4
WRT.RS
WRT.WD
WRU
=
wSU
=

ZROIND
SAUTOB
$BDADR
$BODAT
$8DSEC=
$BELL
$8UF
=
$CHARC
$CKSWR
$CMTAG
$CM3 =
SCNTLC
SCNTLG
SCNTLU
$CODE =
$COMND=

SCRLF

sCYL
=
$OBLK
$0B2D
$0B20
SDECVL
$DOAGN

020260
020304
020336
042072
042002
042066
042152
042160
042164
042166
042070
000400
000004

$SDRVID=
$DSPLY
$DTBL
$ENDAD
SERFLG
SERMAX
$ERROR
SERRPC
SERRTB
SERRTY
$SERTTL
$FAIR =
$FILLC

001276
001134
001122

031617
031612
000024
000002

SFILLS
$FIRST=
$FMT
=
$GDADR
S$GDDAT
$GET42
$GTSWR
$HARD =
$id
=
SHINUM
SICNT
SINTAG
SITEM8
SLF
$LK(SB
SLKCSR

000012
033524
033732
034126
034112
005672

SLLVEC
SLONUM
SLPADR
SLPERR
SLPVEC
SLSTAD

001126
000124
001160
000006
033056
030700
001100

000000
031605

001165

057200
000000
ERRORS DETECTED:

$LKS

. ABS.

000224
027770
033514
005662
001103
001115
031712
001116
004026
032250
001112
000072
001156

001155
000122
000001

001120
001124
005646
030770
000062
000000
033632

001104
001135

001114
001166
001176
001174

001202

001204
033634
001106
001110
001200
056272

$MISPO=
SMNEW
SMSWR
SNCODE=
SNCYL =
SNEXT =
SNPATC=
SNSEC =
SNTRK =
SNULL
SNWRDL=
SOCNT
$OCTVL

SOMODE
SOPERC=
$PACK =
$PASS
$PASSC=
$PATTC=
$POSIT=
$PREVA=
$PREVO=
$PSEL =
SQUES
SRAND
SRDCHR
SROLIN
$RDSZ =
$SREAD =

SREG

VIRTUAL MEMORY USED:
52736 WORDS
( 206 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRJDE.BIC,CZRJIDE/C=CZRJDE.DOC,CZRJIDE,[20,0]SYSMAC/M

$SRPER1=
SRPER2=
SRPER3=

000234
000244
000242
000256
000246
000262
000300
000302
000250
000274
000276

$7k8
$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKQOU
$TKASR
$TKS
$TKSRV
$TN_
=
STNPWUR
$TOTAL=
$7P8

001146
030362
030400
030377
030364
030366
030370
001144
030450
000001
034042
000056
001152

$SRPSN =
SRPVEC
SRPWC =
$SAVRE
$s82D0
$5820
$SEC
=

000264
001172
000236
033636
030302
030332
000010

STRAP
S$TRAP2
$TRK
=
$TRP =
STRPAD
$TSTNM
STTYIN

(034246
034270
000011
000015
034302
001102
031566

031242
031332
000017
000052

$SKI
$SOFT
$SSEC
$STUP

=
=
=
=

000064
000060
000022
177777

STYPEC
S$TYPEX
$TYPOC
STYPON

033674
015702
001170
000252
000240

$SVPC =
$SWR
=
$TATUS=
$TERM =
STIME

000224
122000
000016
000032
023752

$WRDL =
$WRDM =
$XOFF =
$XON =
SOFILL

033306
000036
000026

001100
000070
000030
000042
000032
000027
000003

001164
033534

= 000014

SRESRE
SRETRY
$RPADR
$RPAS =
SRPBA =

000
001

000066
031635
031624
000074
000100
000104
000075
000076
000077
001154
000102
033304
034230

$RPCA = 000270
$RPCC = 000272

$RPCS1=
$SRPCS2=
SRPDA =
SRPDB =

$RPDS1=
$SRPDT =
SRPEC1=
$RPEC2=

SRPLA = 000254
SRPMR = 000260
$SRPOF = 000266

$SETUP= 000146
$SIZE
056142

$SUPRS

027702

$TPFLG 001157
$TPS
001150
S$TRANS= 000046

$TYPDS
$TYPE

$TYPOS

033310
032570
032740
033060
033106
033122

033062

000020
000004
000023
000021
033305

CZRJDEQ RPO4/5/6 MLT~DR LGC MACRO Vv04.00 5-NOV-81 09:16:17 PAGE S-1
CROSS REFERENCE TABLE (CREF v04.00 )
SOFILL
$40CAT

25-1
22-1
6-0#
6-0#
6-0#
14->42
6-04
12-88+
33-#
264-1
21-14
6-0
6-0#
211
211

$AUTOB
$BDADR

$BDDAT

$8DSEC
$BELL

$BUF

SCHARC
$CKSWR
$CM3
SCMTAG
SCNTLC
SCNTLG

25-1¢

25=1x

11-34+

1158

21-1

18-127
15-8

12-123»

33-59#

33-63

21-1

22-1

21-1
14=107+

21-1
14561

21-1
14-583

11-29

11-29
21-1

21-14

22-1

14-999

SEQ 0200

22-1

14-:77

14-:83

164-:88

15-84

164-:31

14-:92

15-229

15-236

24~

31-1
6-0#4
11-29
21-1
21-1»

21-1

e=TANNMOOMeNeT=r=e=NP—

wWaLAd

25-14

F 16

SFAIR
SFILLC
$FILLS
$FIRST
SFMT
$GDADR
$GDDAT

$GET42
S$GTSWR

[*WHH
X" 3
g

6-0#
6-04
11-198#
21-14

- MereereretN -«

16-136

16~144

16-152

18-109+

33-634

33-67

22-1

22=1x

22-1»

23-1

33-7

33-8

33-9

33-10

33-11

oN ~N - *®

o ~ -— -«

*®

WVaOMANIe— "

A =NN 1]
OoOMNe—W n

Ahd OO& s

.«

®&

15-376

18-106+
31-2
26-14
11-203#

22-1

12-12
31-1
.
]

[ O~

L [ g& N- O

18-109*

18-109+

22-1

22-1+

16 =55

37-52

16
4

]
1

MmN

SESCAP

26-1
5-9
6-0#
6-0#
11-29
6-04
10-O#
22-1
6-0#
32-856
12-91»
6-0#
6-0#
18-65+
14=125+

20-283

29-14

33-13

33-14

29-1#

SERTTL

29-1
11-207#
17-197
20-151#

—un\ao

$ERROR
S$ERRPC
$ERRTB
SERRTY

26-1

—-—\noy

$0BLK
SDECVL
$DOAGN
S$DRVID
$OSPLY
$DTBL
SENDAD
SERFLG
SERMAX

&®

=~V—=e0—OnN2%(=]

oo O~v\NM w~n\

Wo) NNV
O VOVOOR—
3M NOMNNNMI 0
w\ 2~ MNAN
~3 OO

Z.TN O MIOOF T £—2 S

w
z
N
o
e
s
l
p
z
¥
T-ml rLe «% T=SN\~ >TONTMNSTNO0N TO>NI FUAOr0Oo—r=Fr= TO3NIMINOr~UL[} M-M&~UL[NN]O—OMUNalNWOv\&O M-tN¥0’$[0 NO(=1ANOV M-eetNO3¥NMUWNOeTM ODA‘e=~— MLom] ¥MAWVONU[L =-N U]!L =-N |)UL —M-reN [U4} “b5=o
«

aD «

]U M-

and bl
U

”

33-12

33-18

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-2
CROSS REFERENCE TABLE (CREF Vv04.00 )
SICNT
S$INTAG
SITEMB
SLF
$LKCSB
SLKCSR
$LKS
SLLVEC
SLONUM
SLPADR
SLPERR
SLPVEC
SLSTAD
SMAIL
$M1SPGC
SMNEW
SMSWR
$NCODE

6-0#
6-0n
6-0#
6-0#
=04

SEQ 0201

23-1

24=1

7-0#

SNCYL
SNEXT
SNPATC

27-14

27=1+

14-<86

14==09*

14==10+

14=>30+

18-16

33-45#

27-1

22-1

16=-190+

24=1
33-338

14-<71
33-45

33-49

14-=63+

33-434

33-40#4
33-414

14=216%

14=239

261
14=<53*

14-<80*

14==57

33-44n

25-1+
14-291
14~=93

25=1+
15-369
17-115=

19-39

33-25#

14-=41+«

19-25
18-28+
14=; 74*
14~245%

33-34n
33-23#
19-13
14=247+

14-=96+

32-838+

21-1

22-1

14-<65
31-1

14-225

2/=1n

17-112+
14==53+
14~:172

33-244

SRDCHR

33-264

14-=50

14-=51

33-39#

33-40

33-41

15-187

15-191

15-195

15-203

32-839+

33-97

33-694

34-60

14-=99+

14->00+

24=1

33-97

31-1

$REG

SRESRE
SRETRY
SRPADR
$RPAS

SRPCA

21=-14
14=-:132

33-13#
33-97
31-1
14-169
11-62
34-60
14-767
14=>02

15-35¢4

33-97

33-28#
33-97

14-233
34-58

14-354
37-42

14-382

14-452

14-482

14-498

14-963#

14-981

14-798
15-172

14-871

14-998

15-85

15-135

15235

15-246+

15-247

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

SEQ 0202

(CREF v04.00 )

OA—MOWN~NOA—VHONNMO~NOOrV—N(—-o-0 rOSOH —
OeMOLNMloaD\OlNamW&lMxee—%Nd——eeox SOM—MlM&MMMa~leMoraMMlwM—ovoeah=——laI4—yo[

CROSS REFERENCE TABLE

H 16

225552
&
TOMM
2NOSTMN-VOG NMoO
RN
MMM
TVMO
POINOCDO0PNDN-NNWOANPMFOeY—W NO.
(RN
0UL000 ONM0ON1A0—O0N
eOOMMM1— t NMMIO
—ULr—-MiMie—e—
MM8U9“ 9USO MMONONU
O[]} 0) N00LR OU 0 AU"L
o~[M OO0-) —[MMo' N[ NLUNOGD
(LaA[=l Nw[n aMMULoaw
[La] o] LalLaTi

SARZ&AS SAM(]S&T7C,

ROoN |-AOVaM2]Y\N. TMONMN—O —A~OMNO IMa4lalva N[O+NG IL&MAl

—M TNLaalo.\a®l

[oLal]0al)

SRPLA
SRPMR
SRPOF
$RPSN
SRPVEC
SRPW(
$SAVRE

$5820
$5820
$SEC
$SETUP

$SIZE
$SK1

$STUP
$SUPRS
$SVPC
$SWR

STATUS
$STERM

STESTN
STIME
$TKB
STKCNT

$TKINT
S$TKQEN
$TKQIN
$TkKQOU
$TKASR
$TKS
$TKSRV

STN

STNPWR

14542
14-49

33-754
33-770
33-804
33-794
7-04
14~557

28-1#
14~79
15-405
14-98*
4-343
11-29

21-1
11-88
15-382

16-164
14-100

33-194
4-343

14-795
5-9

14-188

33-83#

M[] M[

14-86

14-117

14-119

18-33+

18-36+

6-0

11-2%

14-112

14-129

14-192

21-1»

21-1+

264~

14-544

34-60
34-60
34-61
34-61
11-63

14-585

14-768

14-853

15-82

15-138

15-252

33-68#

34-60

16-160

16-165

16-199

16=204

16-209

20-281#

14-855

14-=59%

14=-=62+

14=>212

14=>25«

15-255

4=3634
15-422

4=3434
20-122#

4-3434

4-343#

4=343#

4=3434

16-164
16-187
14-102

4=343
15-344

4-343
15-352

12-148
14-914
31-34
23-1
15-13
6-0#4
21-1
11-57
21-1
21-1
21-1
21-1

6-0#
24-1
21-1
4=4L54
29-1

~MT~[+NN WO] AM"-—[N0\GMOD~F

MM[~.a[]+g)MLL~oaMNaNllO.aOaNll~F
SRPER2
SRPER3

14-14

L
4

4-343
15-357

4-34634
15-372

4-3434
15-377

14-109

21-1

21-1
21-14
4=54
29-1

29-14

21-1»

21-1

241

24-1

21-8¢«

21-9

21=11»

21=1x

21=1¢

21=1»

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

SEQ 0203

(CREF v04.00 )

A-e>='R-NQ&.e=®L==Q=PUrL3oey054ye.3b(r-M>=e[—2T~orF%PPFFrbs0OLoye[})

-o-e—\MO*¥® er—er—Mr=o-—Te— Lo-4LaN—lZXSILoWo~ L.a[o]«

CROSS REFERENCE TABLE

116

oVM=e]V~]BN—A[oraoldae0lMraelr\ieaN—l -oeM—V-I[aVIaeVLoM -[T a—d

[M]Viar—er—-e—lrme—

STYPBN
STYPDS
STYPE
STYPEC

STYPEX
$TYPOC
STYPON
$TYPOS
SWRDL

31-1
26-14#

20-141
21-1

24~
25- 10
2525-14
14-100
14~:84

®*

31-1
20-154
24~ 1
4=
31- 1
25-1#
31-1

=«

14-102¢
14-:89

33-23

- x x

4OMOAN¥»ORe[~}-MMSNMMMMgN=M~=NMNO MTR=M —= nRMSEOROOO-O» -—O
e\=NN===I OB\IeM eLNNFe—rAUL TeUT—Ur—rOT —
0
o
N]L[ —]MRBA_MI INLYoA]*LL l[ NN--1! 0 0-—®[
o ~o2 )[
-

16-103
14-:93

33-24

18-32+

ACK
ACL

ACTDRV
ACTSTR

ACU
AOE

ASGN1

ASGND

ASKPAR
ASNERR
ASNLST

ASNMSG
ASSIGN
ATO
AT1

4~2964
32-111#
32-117#
4-2474
4-1624
17-714
11-183

12-50
11-114
17-82

8-04
17-72¢
17-694
4-1824
4-1834

4-305#
32412+
32-:40+

17-70
17-91

32-463*
32-:55+

17-84#
17-964
17=117#

32-776+

32-785+

33-8#

32-:38

17-120

17-181

17-200

18-222+

19-52+

CZRJDEQ RP0O4/5/6 MLT-DR LGC MACRQ V04.00 5-NOV~-81 09:16:17 PAGE S-5
CROSS REFERENCE TABLE

AT2
AT3

4-184#
4-185#

(=180
4-187#
4-188#
4-189%#
4=1469%
12-57

ATTN
AUTOCK
AVAIL
BADENT
BADSEC
BADTMO
BAI
BEGCOD
BEGPAT
BEGSIZ
BITO
BITOO

7-0#
7-0#
8-0#
18-162
7-0#
11-3¢
4=1014
7-0#
7-0#
7-0#
4724
4-72

22=1x
14-:06
12-13

BITO2

4-72

BITO3

BITO4
BITOS
BITO6
BITO?
BITO8

BITOS

BIT1
BITIO
BIT1]
BIT12

SEQ 0204

(CREF Vv04.00 )

AT4
ATS
AT6
AT7
ATA
ATABIT

BITO1

J 16

32-580

4-72

4-72
4-72
4-72
4-72
4-72

4-72

4=724
4=72#
4=724
4=724

18-190
12-155+
11-31

17-74
32-983

34-54
14-=00
12-51

35-414
14->68+

17-96
32-991

17-149
32-;14

17-1717

17-181

17-200

18-222

34-55
32-829
12-55«

17-147
32-:08
35-58
12-58

12-68

12-70

12-112

12-113

12-159

15-59

16-187

16-188

16-189

16=190

16=-191

18-52

22-1

18-25
18-28
18-30

18-26

4~72%

11-163

14=:33

17-145

4=728

14-575

14-:29

18-62

=728

4=72¢

4-728
4728
4=72#
4=728
4720

4=728¢
13-31
1%-29
13-27

19-52

32-183#

32-368

32-475

18-31

11-166
11-152

13-35

14-<32

18-55

32-455

32-702

14-%4
32-273
14-86
14=17
32-377

32-958
32-722
14188
14~996
32-:01

32-347

32-923

32-<34

32-938
14203
32-377

32-:88
14-996
32-654

15-226
32-797

17-63.
22-923

32-377
32-938

32-446
32-958

32-520
32-987

32-819
32-<66

32-<9%

30-%45

32-:86

14-29
14-32
14-40

14-37
32-320
14-85
32-669
14-448
13-35
32-:25

22-1
32-479
14-86

32-68
20-151
14-6
32-;41

32-704
32-497
16-119

32-700
22-1
14-8
32-:86

32-673
14-297
32-713
32-440
14-43
32-.88

32-:09
14=-301
32-948
32-899
14-49
32-<92

14-335
32-950
32-:77
16=179

14-587
32-;74

14-:36
32-<29

15-214
32-<95

32-315

32-359

14226

14=270

14-310

14=416

14-431

32-:25

32-:86

32-452

32-455

32-457
32-;41

32-;48

32-488

32-491

32-673

14~-:49«

22-1

14-380

14-:04

14-3
14-481
14~85
13=21
14-11

1333

14-%

14-92"

32-457
14-20
13-8
32-488

32-491
14-352
13-10
32-886

BIT?
BIT3
BIT4
BITS
BIT6
BI17
BIT8
BIT9
BLKADR
BUUND
BPTVEC
BUFTBL

32-702
4=724
4=728
L=720
4=7284
4=724
=720
=728
4=~724
_8-0#
37-14#
4~72#4
8-0#

32-704
13-37
14-23
14-276
14-26
164-119
14-112
14231
14-35
11-71
37-26

32-819
32-;48

32-923

32-938

32-948

32-958

15-79
14-316
14=255
14-448
16-73
37-35«

32-481
14-970
14-260

14-290

14-295

14-~448

17-106
38-36

17-107

17-151

17-174

32-351

11-90¢

11-91«

11-92«

11-93+

11-95¢

11-96*

11=101+«

11-105

11-107

11-108

14=-:33

14-:35

BUSADR
BUSY
CFLAG

11-61
17-15
7-0#

37-164
35-420
1181«

12-166

17-21x

17-27

18-92«

18-102

18-118+

18-138

18-173+

18-185

18-195+

21-5+

BIT13
BIT14

BIT15

32-377
4=~7284
4=724
32-452

16=75
32-964

4~724

14=:72

13-6

14=:73

14~49

146-:85%

14-85

14=:90%

164-159

14~:95

14-201

14-:96

14-448

14~;09+

32-440

32-;01

CZRJDEQ RP04/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-6
CROSS REFERENCE TABLE (CREF Vv04.00 )
11-23#

37-16

K 16

SEQ 0205

37-18+

32-597

CK.CHR
CK.DEC
CK.DIG

CK.NUM

CK.OCT

CKBUS
CKCLK

CKCLK1
CKCLK2
CKCLK3

CKERR
CKFMT
CKHCE
CKSWR
CLKFLG
CLOCK
CLR

CLRDP8
CLRQUE
CMCNT
cMcyL
CMDAT
CMHED
CMPAR
CMPARD
CMPLMT

CMPRES
CMPRT
CMPRX
CMSEC
CMSTR
CMTRK
COLON
coMTBL

CPSAVE
CR
CRLF

20-207#
20-185#4
18-140
37-27
20-167#
13-13
11-129
16-31
16-43
16-41
13-12
1416
14-19

20-244
20-213
18-146

37-36
20-215

14-557#
16=-29#4
16-42#
16=-51#
16-50
14-536#4
142554
14-290#

22-1

17-108
32-255
7-0#

32-721
14-584

7-04
16-37
4-103#

7-04
14-601
14-602#
13-16
14-148
7=04

12-32
14-620
14-615
7-04
14-5914
7=-04
16-202

8-0#
22-1
4=724
4=724

16~29+*
16=47

18-7#4

14-586+
14-618

14-659
14-664+
16-207
14252

22-1
24-1

18-152

38-154

18-187

20-238#

1645+

16-195

16~584

31-14
16=34+
16=2164

32-:11

14-585+

32-=620
14594

14-605
14-662
14665

14-654
14-6704
14-660*
14-666
14-667*

14587+
146224

35-364
18-27

14602

14-596
14-668+

14-599%

14-656

12-163
14-6754

12-181

12210

14-661
14-669

14-663*

14-=734

14-=76

32-603

32-607

32-621

32-627

O-—a®]AlrL0Oe))N)\aaClla=laei—’laaiOl=elavNliia0eaYa=ellaAOlllaoeil=aaallolaei-~=lNAaaaROlllog=AYall=lgLeAYONoLooleg=—bYI~N\Le0NOAeYoYA-S«Ioo~IA]aOSWo~AWM|VYN0[[ANNe0Td)UU]1OONVR"aVoaaIMM,ll1lOOVNONaaIaVlla1NMVS’-aa07aNllIAl———OV’’d'aaNVTIaallOl=l—v7OvMT’Vaa’MaAl1a1TOv7l0GlD(y’O)FaW4L40MT=O00lXON’M~A&RTrNWAMWFA=ONNAI&O&AOP—MXOPNVMhINAA<&SWNS0W.EFWAT(LILDOXNNNoAMAUb~NAMY

(YO=v=v=r===o=O\MUM=~O—MuUNGO=

WAoy_O>35>>>3>#>931W20&61[738“#3173043w#P
—_

NO-[} M834 M[M-~-N-1—d e~ONNOMFRNWOONoNnO—oNeN—NAX=M.oNDl2OoNlOoNDM=ldMMoGONOPO—GNVroNOOLOG~NlO

=eooM.eo 7O-NoN)aNMlN’OaMlN’aWMl"NaO=1—7aAND1O7MaMYWNO£OWMNAW£OML=A

TgG1L—~mo0—-eaOAo}eS0l~MiOOoXaRN—MAl7iroRARO1NOaelo2oNrOGOil1le0Laaoel1NGl,iOT0Oeaao1l0lG,0eoOoaaeOl16lU00ao1MalO6,-e0lO0aia02ll0a0O0losaOeOlGoM0l0NaallAIaeSeVNMN03¢lNRlS$ONI~\AFITNA L[ML[vMN2aO)fRalVlNt-MIu<2y3M3)-NPNO—oM-RNNFvVNrOONgNOl\eMNO—aNlAe0naIPNO lMgaN~2N lgN4WOT=gAOOAeOMNMAPONAPerl£—=PNeONL=ia<M—Ol>M®N #*
ooONN0looO-eOl}d00ooolllOa0oaOlllO0oaa0lllOaaaO0lll0Oaaal0llaOooOlllVeoaWAlllPwAN.NOAo=J)\TLLWL-Ooo[o)lll 0OO—ERN——NeIR—NOeMRNRe~-—N —EOREONeR=WgO0MANON=R=F —=
9-0

DATEIS

DCK
DCKER
DCKER1
DCL
DCU
DDISP
DE1

DEASGN
DEASSG
DFF20
DH1
DH14
DH15
DH16
DH2
DH3

DH4
DH6

7-04
17-190
4-1684
14-48
14-814

e
a
A
L
l
V
a
N
4
l
v
a
W
l
v
W
a
l
W
V
a
l
r
2
o
a
B
O
l
L
a
1
=
l
X
a
.
\
,
l
CaocaNcacthacaocaoconoanaNda WYITV-dSe7@V,R]I ToSaYR )ARN
4=724
4-135#
17-43
12-28
4-135#
10-8
15-64
15-73
15-76
10-15
10-22
10-29
10-43

35=717x

6-0

35-120+

-«

35-120~

ML[a4)] I—AR
e
LN
M
=
OM
F
N
O
=
e
0L4al =AMe- MO RNP=
4wy ~YOVREAORER O=NOMIR

DATAPK
DATE

- NO O 0 MO

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NO,-81 09:16:17 PAGE S-7
CROSS REFERENCE TABLE (CREF v04.00 )

L 16

35-120+

SEQ 0206

9-0
9-0

35-120+

35-120*

-«

35-120«

oWTN

9-0

35-120+

11-29

[

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

DTE
DTEER
DTSY
DTUW

DUNIT
DVA

ECBADO
ECBAD1
ECBIT
ECC
ECC

ECC2

ECCX
ECGD

LR
]

(NN

]
&
[0 -]

[p]

u—.b—l
He
W

N— WN=M

~ nono
o~
(¥,]

(N N
N W=
W=

32-615*
32-;02+

32-662+

32-681+

32-424

32-483

32-999

32-835
32-414
32-489
11-163
32-726*

32=->02#
32-265+
32-616%
11-166

32-692

32-790+

32-891

32-921

32-952+

32-959+

32-972

32-982+

32-278%
32-897

32-310%
30-046%

32-319+
32-953«

32-374%
30-965

32-379+
33-:20

32-418
32-:36¢

32-426

32-331x 32-536+

32341+

32-695

32-708

32-710+

32-719+

32-779

32-791+

32-:83

14-792

14-797+

14-798

14-809

14-812

14-813r

14-814+

14-817

14-823

14-825

14-826%

14-827+

14-834

14-841

32-707+

32-266*
32-725+
17-125

18-62

32-57#

32-311+

32-326%

11-29

L 3

=)
o

b
b

b BN NN = NN

DT6

D13
DT4

U
!
JS
A
R N—.‘N SRR
14
J\bOQ?O\-fl\h\h
]
S0 alv
NOINININ)
= = N —
o0 n

DT16
DT2

b o

DTC3
DT04
DTO5
DT06
D107
D108
DT1
DT14
DT15

-:89«

984
9o
0o#

D10
D101
0102

DRY
DSWR

DRVTYP

—

ODRVCLR
DRVER
DRVINT
ODRVPRM
DRVQUE
DRVSTA

4=207#
2=27#

DRI
DRVACT

SEQ 0207

(CREF Vv04.00 )

NONJ'\
nono
W

CROSS REFERENCE TABLE

34-54n
34-594
34604
34-614
10-37
34-564

34=-55#

34-574
34-58#

14-366#

32-177#4
32-.09+

32-.20
17-151«

32-503
32--82

32-559+

18-224+

19-564+

14-785

14~786*

32-682

32-685+

14-803

14-805+

14-833

14-841
14-784+

14-828#
14-844H

ECGD1
ECH
ECI

ECMSKOQ
ECMSK1
ECSEC
ECWRD

ECWRD1
Em

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

EM12
EM13
EM14
EM1S
EM2
EM20

13-44
13-79
13-90
13-106
10-14
14-222

13-49
34-124
13-95
34-144
34-4n
34-154

EM&44

14=547

34-35#

EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM4O
EM4T
EM42
EM43

EM4S
EM46

EMS5
EM50

ENDCN
ENDCON
ENDET

ENTADR
ENTCOM
ENTDAT
ENTDRV

ENTID
ENTLMT
ENTPR
EoP

14-80
14=-178
14-162
14-266
14-306
14=412
14427
10-21
14-246
14=347
14-369
14=375
14=474
14-393
164-403
14-181
10-28
14=443
14=565
14-696
14=511

14-63
15-87

10-35

14-463

7=
7-0#
7-04

18-119
17-24
35-114
18-93

35-121
18-47
11-120#
12-157

34-164
34174
34-18#
34-19#
34-204
34214
34-224
34-54
34-234
34-244
34-254
34264
34-27#
34-28#
34294
34-30#
34-64
34-314
34-324
34-33#
146-516

oaah

34-9#'
36-114

13-60

EM10

34-134

34-344

34-364
34-374

34-74
34-38#

11-36
11-36%
-

35-35#4
35-324
35-130#
35-33#
35-1314
35-34#

19-4#

SEQ 0208
am

(CREF v04.00 )

CROSS REFERENCE TABLE

2-820

32-960

32-:27

1-37
1-37«

19-6

19-9

1-39+

19-13

19-16

11<40x

32-:;49

32-=87#

0
CZRJDEQ RPO4/5/6 HLT-DRc L EE MACRO Vv04.00 5-NOV-81 09:16:17 PAGE S-10
CROSS REFERENCE TABLE (CR
v04.00 )

FALPAR
FALPR1
FEN
FER
FILBUF

FMT22

FMTER
FORMAT
FRSTER

GENDPB

GENREG
GETADR

GE TBUF
GETID

GETPAR

GETPAT
GETREG

GETREM
GETREQ
GNS
GO

GODRIV
GRV

42184
4=-2164
4=2194
4=1254
4=1264
4=1274
4-128#
4=1294
14-998+
7-04
13-32
13-61
4=26404
4=~157»
12-90
4=276#
14-262

14999«
12-104
13-65#
13-67#

14-:01«

12-126

14-;28#

14-:02

14-:12

4=1244
12-92
4=-1374
4 -160#

14-302
4=2744
1614

13
196

124

[

-— 0 [V aO -«

-—

4
oN o -— L

oo - «

LLa} 0 -

16-692

14=706~
14-926%

14-727
14-928

14=940*

14-%%1+

[}

14-925+

14-=214

14-=26

14->28

14963
11-58
14-4264

3i-14

)

14=:204

7-0#

7-04
14-125+
14-942%
14-260
17-111
12-87
17-110
12-85
12-201
4-3334
14-:87
32-476
5-1
31-1

—M

<«

0[)0}3Nyo [)1]0 -—M—N) L) "'\ o«&

oMMGO o~

-—M

*®

FAIRNS

N®R

&O OO

FACTOR

e
1

—MM =N-

>e3t0Ll)X-——ONX—Lan-dX
—-Lr—l

N Lalial

Woaqcgoa0Ovaixoa aLWAWUA cxLAadxG
0FWRNNTITAO+O—NONNRNW-—MrA—MRN0NITMO

MuM—(dLM9E-x8V—aOla¥O-1re—ed—-o1[

SEQ 0209

14-;634

CZRJDED RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81
CROSS REFERENCE TABLE (CREF v04.00 )

22-1
12-1454

22-1#

09:16:17 PAGE S-11

22-1«

22-1+

SEQ 0210

22-1¢

12-169

14-249
14-551

ET.NI
ZXINITITNPITINITITNIZTPZNILZANIZIZIZPI2ZIZNZ OAcNwilaNrxr| —N[-2—
~ N~ O

NOM3x(]eGNOrN0mONrO®[e=rAO0N1e0NNreNONM1ON0ENTeNEN8EO2O&N0*MNwR*OyNANYPO—A[oMo M]o tNO
[.a] [,a]

14-230
14-496

.mopRS.lxwoN¢¢EWVOOOLA.bOoO>aw

AebWMDAdTtYl %—eCM—KoWHT0JaNQ MeogPG-—nIB.N -M—eO=—e~ R&*k ML—al]01MO(=1

[]
oMN]

~0Tr[']o["aNlaS 0 dNO [oTa12SM=4O[ Woy-—
Y

L.}

“B®

UL]
-a4])L[V

3(2]e3®35-3ONRr*L3~r

)

]

[.a] [Va) ~ 3
[

CZRJDEQ RPO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S~12
CROSS REFERENCE TABLE

LINCO
LINCAS
LINDS

LINDA3Z
LINDEC

LINE2A
LINEZB
LINE3

LINE3A
LINE3B
LINE3C
LINE3D
LINE3E
LINE3F
LINES

LINES
LINESA
LINESB
LINE6
LINE6A
LINE6B
LINESC
LINEGD
LINE7

LINE7A
LINES
LINEN3
LINEOS
LINEPS
LING6

15-171
15-245
15-167
14-733

14-465

34914
34-754

14-166

654

14-166

14-88

14-145
14-138
14-69

14-71
13-54

14-339

14-132

14-187

14-224

14-248

15-196

15-204

15-207

15-215

14-268

14-308

14-349

14-414

14-429

14-309

14-350

14-378

14-415

14-430

264

14-273
14-139

15-205
15-282
15 2 78
15 -310
3
14 =772
15 107
15 -228
15 -1
14 5

SEQ 0211

(CREF v04.00 )

15-36
15-60
13-51
14-445
14~476
14-334
14-567
14-377
14-395
13-52

15-256

20-10

20-20#

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.0C 5-NOV-81 09:16:17 PAGE S-1§

LOADRV
LST

LSTAD
M.DP4O
M.DP41
M.DP42
M.DP44
M.CPSO

d e
e
D e
D ol e

20-52#

M.DPID
MAIN

MAIN1

MAINZ
MAIN3

MASK
MATCH
MAXCYL

MAXDL
MAXER
MAXSEC
MAXTRK
MCLK
MCPE
MCPEMX
MHS
MINCYL

MINSEC

MINTRK
MINUTE
MINX
MNDLTA
MNTBL
MOH
MOL

14-622
14-<35

35-101

7=-04
35-50
7=-04
14~;99
14-<15
L-1734
4(-83#4
32-195#
4=2420
14-<36
35-101
14~<00
35-101

15-271

11-89+

20-73
20-64#
20-68#
20-80#

1527

15-280

15-284

15-4044

&S0

LINX&
LKPAR

SEQ 0212

(CREF v04.00 )

14-526
15-170

14-716
15-271

14-719
15=271

14-833
15-27

LINUO6

LINW3

wVno -—bd A = N = (W) = 2t O - PNIN) =2 (NN — n
NNOR &S V=2 NN = =
N £ 00(o Jo JVF 3V AV,
~
o
NENONORO
W
—ON =N NOOON »
N
E

LINSS3
LINST3
LINT3

)

LINSPO

) e

LINSP

emd ad

LINS3
LINSé
LINSS

—t e

LINRG

w
Py l*—'—‘\h\.h\‘fl\ll\h\.h\fl
[}
UL
!
lc‘.’.o

LINP3
LINPS

] e e

CROSS REFERENCE TABLE

16-160

34=-1194

14-316+

14-352+

14-380+

33-54

1 4-833
15-271

14-841
16-136

14-873
16-136

11-188

11-92

11-97

14=>15
12=11
12-141

12-374

14-117

14-163+

14231+

14-276*

18-67+
35-101
11=104*

33-494
35-101
11-105

33-50
35-101

33-51

33-53

11-122

11-107+

18-238
33-53#
18-69+

14=451+

14481+

14-972

14-977

35-101

12-197

14~<58

14->16

14->17

35-101
35-101

35-101

32-<10
14=<43

14=>10

18-82

35-101

14-<07

14->09

18-72+

33-544

35-101

14-<16

14-<23

14->08

18-81

35-101

7-0#4
L=174#

16-203

16-224+

35-101

32-211#
8-0#
4=-208#4
4=1464

16-225

16-227+«

CZRJDEQ RPO4/5/6 MLT=DR LGC MACRQ V04 00 5-NOV-81 09:16:17 PAGE S~
14
CROSS REFERENCE TABLE

SEQ 0213

(CREF EF v04.00
)

11-1814

MONTR

MPE
MRD

MRHVEC
MRPCS1

35-28#
12-55

12=56*

17-106+

17-195

35-124+

35-127+

14-22

RO A%,]
x

[N
[
[]
jelelelele (=] OOOOOQ‘O‘O—'
L2
2 3x
Bx
WON [AS1a¥]

ek
d
—d

'
-

oP
OPIER

oo
Co 0o
x

QOOOOOOOQOOW—' W

-l and w=d

— b b cad b

12-41

8-04
15-322

17-192

14344

35-127+

35-127¢

35-127+

0MO*TO"“,“"111oM
oMAey—[ee——MyN—N0MMO]Yy[o-0ea0¥—]“7aYAN~F~3FoObao-Ta—VIaVo-IaViaVyIgVIgVR]elOMolBbOONNoORloARgf#NBooNMoXkNOao-llNMaallNFaallTNaaNllOaaOllYaollENarall-—oarllO~aollM—oarOllcaall~oOarllM—aLNlaNloMalleM,a=alAlNeiIlaOlN»BOVwonOliRNxWoNLWaAN(Il=My]a=RlBx-O
()R-X—ON=MoWMNtINMRARNRoI[ANBANRNON_O®oaeLN[VMAO.w4Jl0]SaN]MRQNONO|eRe_N-MO-[}—ZYX2O—M30MN30NXAWL03;NL3AU.MM0ON[m}LAY1oWeWN10N[o[oaMWoNI--~oaYV0O—9]]N©C—Tg¥R 0yNNO—RLWrMF[aa[[ao-M-—BITldlle~=iariaaNll]lsWalA—uoOee=lEadaarlllalsSaiulii—eeNldR’aaaNllriYlolaeeki—Lia’VallIalesMliell—OiaR’NllAa—leoCaltl—a]])—~L[lLOFnONOnn—nNNmMNnNnNWeNEdNoO--MONOW—NN~~- Ure[~X—a—V]WNMW0M1[o(0OLL[Na0-3e]TW~3wOaMo
-o-) ogre-]L-arlg—ae=tU—a-lgLLal.—al o-U—

SPNWO)LsIOoIgoOeNnP\BNPorPDOI4Mw1a3S[ane]]UY]\]8[PTP>8NPuEaPNNNL M[ XV-MUNkPJWMRIOMPIMLXIMPNIALGXPEEIOWoN-)nBPNOVOogN[PN--,R1)’—NTvB=NPSN=LCWoQaPMN-slN1LUOlNaa8I- NaoMPl0OMA0lNCLoLN.IO0MPNa-MGlNsDLNPOPRNsOPaArNaPIaROEsmPTSPMM——--NO&19N&[[aPRT0o-JMO010OPLyooiO801[]x=0PST
i

<«

[=]eo~lelelel] [e]eolllL0le-2e.btl3

[J MMMV
[N

I
CZRJDEQ RPQO4/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE $-15
CROSS REFERENCE TABLE (CREF v04.00 )

SE@ 0214

[alialialialalial0sD0- OO0O0O0O

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRO V04.00 5-NOV~81 09:16:17 PAGE S-1€
CROSS REFERENCE TABLE (CREF v04.0 0)
PRTBAD
PRTIM
PS

PSEL
PSU
PSW
PUNSAF
PWRVEC
QCNT

QDRVO

QDRV1

QDRVZ2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV?7

QINPT
QOUTPTY
QSTART
QsTOP
QTERM
QUES
QVCON
QVSEK

14-84
13-38
4=72
32-410
4-82#4
4=2934
4=724
13-28
L4-724
32~-=04»¥
32-=15
32-=16
32-=17
32~=18
32-=19

14-136
13-105#
L=724
32-411»

16-479

14-845#

11=-74+

11-136+
32-474

32-464x

17-20«
32-756~

17-64+

SE@ 0215

20-138

20-139«

20-153+

32-254+

32-283¢

32-291+«

32-525

32-940

32-:73

I 4

13-434

32->02
32-=474
32-=48#
32-=494
32-=504
32=-=51#
32-=52#
32-=534
32=-=54#
32->07+
32=->40
32->10

32-=63
32-=26

11-29

11-29+

14-<354
14-<54

14=<91#

14-<58#

14=<66

14-<98#
14-<934
14~-;88

25-55

32->04~

32->24

32->38r

32->08
32=>41¢%
32->44

32->10+
32=>42

32->44x«

1129+

146-<84

34-56
32-601
32-<31

32-639
32-<70

32-743

32-757

32-799

32-851

37-33

34-57

RECALT

32-253

14-910
17-101
14-909#

14->23
18-136

18-183

31-1#

35-115

35-122

37-24

14-293

14==44

14-=97

14->49

15-182

16=-114

32-915

CZIRJDEQ RPO4L/5/6 MLT=DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE S-17
CROSS REFERENCE TABLE (CREF Vv04.00 )
REDAPK
REFMT
REFMTX
RELBUF
RELSE
REPLZ
RESREG

17-57
12-1B6#
12-187
12-164
4=327#
16-126
}3-:;3

RESVEC
RETRY
RMR

SEQ 0216

172274
14-154
12-189
14-95

14-214
12-191
14=:714

14-240
12-206

14-285
12-2114

14-325

14-361

14-437

16-136
17-60

16~136
20-30

16-144
29-1

16-152
30~1

16-160
31-14

16-160
32-292

16-160
32-458

16-160
32-461

16-166
32-524

16-20
32-72

16-205
32-784

16-210
32-:54

20-95#
32-<79

4-72#
7-04
12-%;;;

14-66%
14=317+«

14=90%
14-353+«

14-121%
14-381*

14-122
14-450%

14=122
14-480%

14-127+
14=-497+

14-168t
14-967+

14=190*
14-979+

14=195+
14-980

14=-198+
14-980

14~199
15-331

14=199

14-232+

RNOP
RPO4
RPO4B

4=3224
164-891
11-162

14-911
18-51

14-945

14-;65

32-410#4

RPO6
RPADR

11-168
11-62*

18-57
32-200#4

14-927
35-15#
35-16#
35=174
32-272

32-417

32-561

32-582

32-741

32-778

32-:71

32-;66

.
32-;72

32-;76

32-.90

RPAS
RPBA
RPCA
RPCC
RPCS1

32-205#
32-2000
32-232#
32-2334
32-218#

32-368+

32-849

32-964*

=561
32-54
37-43

32-99 1«

32-:08«

32-;13

32-565

32-596

32-320

32-357

32-479

32495

32-557

32-578

32-620

32-640

32-651

32-666

32-677

32-800

RPCS2

32-220#

32-313x

33-315

32-430«

32-542+

32-562«

32-583%

32-669

32-688

32-700

32-713

32-722+

32742+

RPDA
RPDB

32-2214
32-2274#

32-553
32-74%
32-314¢
32-903
32-273«
32-914x
32-549
32-<64
32-345
32-323

32-574

32-589
,

32-:74

32-998+

34-55

34=55

32-777

32-:41

32-<56

RPQS

RPDST
RPDT

RPEC1
RPEC2
RPERT
RPERZ
RPERS
RPERRS
RPINIT
RPLA
RPMR
RPOF
RPSN
RPTMR
RPVEC
RPWC
RTC
RTNCTR

S
SAVEFG
SAVER1
SAVERS
SAVREG

¢,

sC10
scn

11-165

32-<23

32-852

32-798%

32-223#
32-2094

32-236#
32-237#
14-260
32-234#
32-235#
32-20#
11-130
32-2264
32-228#
32-231#
32-230#
16-233
11-63*
32-2194
4-3294
14-889#

18-54

32-<27

32-<59

32-932

32-994%

32-969
30-:07+

32-:23

33-:72«

32-<18

32-:88¢

32-:73

32-364

32-481

32-916

32-941

32-995

32-226#

32-370

32-926

32-996

32-<32

32-886

32-889

32-899

32-995%

32-996*

32-361

32-602

32-606

32-626

32-630

32-:384
32-201#

32-265

32-271

32-411

32-804
14-675
13—684
29-1 =

32-988
14-683
14-688+
30-1

32-<74
14-295
32-997
32-998
32-256
32-250#
32-758

30-<2B

32-997%

32-<60%

32-<66

32-<90%

32-<95

14-890

15-184
11-131+
7-0#
7-0#4
14-:28

15-193
32-151#
14=592%
14-593+
17-19 ~

34-69#
32-655
14-649%
14-650+
20-20

4=223#
32-888

32-922

32-9794

35'333:

32-<89

32-816

32-818

32-824

32-849#

14-687«

31-14

32-252

32-413

32-473

32-687

32-262

CZRJDEQ RPO4/5/6 MLT-DR LGC MACROQ V04 00 5-NOV-81 09:16:17 PAGE S~1%
CROSS REFERENCE TABLE
SC12
SC13
SC2
sC20
SC3
SC4
SCS
SCé

32-882
32-872
4=2214
4=2244
32-8634
32-865#
32-864
32-892

32-893
32-875
3
32-896
3
32-9104

32-994#4
32-:044

32-907

SCMND

17-47

17=-167#

SDETAL

16-77

16-96

16=-119#4

SECLMT
SECOND

7-0#
7-0#

18-71
11-78+«

18-152
16-208

SEEKFG

32-1594

32-257

32-505

SELPAR
SET.IE

12-84
32-286

12-179
32-317

14-.83#
32-448

SETVEC
SHDTYP
SIXTEE

11-113
16-70
7-0#

11-118
16-93
11-75«

11-123
16-106#4
16=216+

SKl
SKIER
SLASH
SPOTCK
SRCHWT
STACK
START
START1
START2
START3
STATHD
STATIN
STATIS
STATPR

4=298%
14-51
18-50
14-74
32-104#
4=72¢
5-1
11-16
16-110
7-0#
12-152
12-175

4L-308#
14-4624
18-182
14=175
32-475+
11-29
11=-164
11-18#
11-20
11-224
35-18#
11-68*
14-996«4
16-664

STNDAT

9-0#

14=751

3102

39-:77

ST05

35-63#
14=219
32-580+
11-73
11-207
16-57
11=25#

32-957

32-971

32-978

32-993

9
3

32-959#
32-942

32-970

32-972#

32-:03

16=219*

16220

16-222*

32-522

32-727

32-857

32-<88«#

14-303

14-344

14-366

16-218«

14263

32-983

14=>414

14-759

14-;44

14-;52

35-:59

350:87

32-:13m

33-i75

33-18C

32-;24

32-;33

ST09

32-.12

32-;30

32-:32

32-:34

3380

4-;50

12-;32

14-:86

17-51

SWo1

4-72

=720

32-:31

11-129#

16-238«

39-674

12-172

32-909

12-174+

AT 39-457

SEQ@ 0217

(CREF v04.00
)

17-187

30-905
13-14

39-806
14-579

32-:40

3o-Bal

3o-BG)

350600 30-047

32-990

32-:26
|

32-:87
)

32-:50
’

32-<S6a

CZRJDEQ RPO4/5/6 MLT-DR LGC MACRQO V04.00 5-NOV-81 09:16:17 PAGE S-19

L=724

11-13¢

12-170

2R af af ¥

14=>12
15-71
14-248
14-710

18-236
15-132

]
o

(VR

22-1
15-360

11-29
16-849

20-151
11-364

b
h
b
b
b
b
b
—

11-34
14=>12

11-58
15-6

1-1364
15-9

12-170
15-71

12-186
15-132

12-188
15-165

13-14
15-360

13-71
15-386

14-579
17-51

32-:46+

32-;04¢

32-;31e

21-1

21-1
21-1

21=1»
21-1

22-1
21-1

22-1

22-1
:

22-1

32-660t

32-706¢

32-793¢

32-911¢

32-955¢

32-:05+

32-:12+

32-:44

1158

34-674

11-29¢

14=442N

18-69

11-29+
14-=48

BRUPBRRENR

b d b d d b e b OO
[e]lelelalelelel)

U!U!\hvi\..h\.n\.h\.n\n

1129+
14~:86

21=1¢

~
N

—

-0#

15-386

14-849

b
—

TRKLMT

19-23

oF o

=724
=724
=724
=724
=724
~724
~72#

32-517¢«

-84

SEQ 0218

(CREF v04.00 )

n
N

Oo &~

Sw0?
SWO3
SW04
SWOS
SW06
Sw07
Sw08
Sw09
SwW1
SW10
SW11
Swi12
Sw13
SW14
SW15
SW2
Sw3
Swé
SW5
SWé
Sw7
Sw8

Ch&MbJ~thbJ\bnbJ\tn?l\&nht\tnbl\tnbt\tnh
mu'-.auvn
J
LS
S
L
A |
N = =2 N iz
\I\l\l\l\l\l\l\l\l\l\l\l\l\l\l\l\ls
[2S 1AV [ANT, VT, W1, N1,81, ¥}
AJ¥)

CROSS REFERENCE TABLE

18-146

11=41e

-IRJDEQ RPQ4/5/6 MLT-DR LGC MACRO V04.00 5-NOV-81 09:16:17 PAGE 5-20
ROSS REFERENCE TABLE

TRNSWT

TRTVEC

SEQ 0219

(CREF Vv04.00 )

32-539+

32-684+

32-694

32-711«

32-720*

32-795

11-19+
4=2574
19-21
11-34

11=22+

11=46+

11-47

32-343

12-3984

32-796«

0V===Y\NeV~NONOI—Me0OO0 N Oe-vM o=

)VNMN]Roge~%eNMx ONoN—VIIQONNNTMroe—Ole—rOo—rl=—NoOlro==lr—orOeLe—O l=

TSTPGM
TUF

32-96#
L=724
11-15+
4=2394
18-181

IA| N—Or—r—vr—er—r—r0JMe— ~—Nr—MOO—MULR U[I|

32-:97

32-;10+

3
8
0
6
0
8
8

TYPEST
TYPOC

TYPON
TYPOS

TYPRI4
UCPAR

ULDFLG

UNIT
UNLOAD
UNS
UNSAF
UNTASN
UNTMSG

UNTNOT
UNTOFF
UNTON

UPE

us1
us2
US4
USE

13-46
13-30

32-124#
7=-04
4=3234
4=167#
14-5

OLU W @al VOMONQ0ot

L, L U LU

—r —M\ON
N G0

LeoVdkl[]

=47

13-68

13-92

16-122

17-202

18-49

18-96

18-122

18-209

18-230

19-29

19-33

32-435+
13-68

32-617+
13-92

32-680~
15-66

32-712+

32-878

32-961
19-33

32-963+

32-979

32-981+

32-:90+

32-;03«

12-109

12-120

12-139

20-1384
32-312+
133+

32-420
13-46

17-72
12-48

17-159
11-156

11-160

4-1114
4-98#
4=994
4-100#
11-49
4=2954

—MOUL 1V0 0

0 000

=99

v‘MM—O—OMNON

rVO——)orVT—o—VM0o0lo0lOoNNeO\lkoNlL—N ok

O—VMMON
O— AN.OR O=N1"a—]"OTaNYI=[a NU
] U L OUWN I OLU
QMo oM

11-6

o]V]aVIaololololXelLol

oN—wron—r——o)O—Yo—VNl—o0Me)OA—MalrOae[V

TYPDS
TYPE

32-:82

35-3#

146-<78

35-54

19-22+

19-29

CZRJDEQ RP04/5/6 MLT=DR LGC MACRQ V04.00 5-NOV-81 09:16:17 PAGE S-21

SEQ@ 0220

CROSS RCFERENCE TABLE (CREF Vv04.00 )
WRT.AD

WRT.R1
WRT.R2
WRT.R3
WRT.R4
WRT.RS

32-<13+
32-<24N
32-<10*

32-<23%
32-<43

32-<264

34-57

32-<33

32-<39

WRT.WD
WRTDAT
WRTHD
WRTPK

WRTPK1
WRTPK?
WRTPK3
WRTPK4
WRU

WSU

ZROIND

32-573

32-548
32-902

WRT .RP

32-<25#

14=-=964

14=>254

14=642+

14-648+

14-652

32-577

32-588

32-595

32-605

32-619

32-629

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

SEQ 0221

CROSS REFERENCE TABLE (CREF v04.00 )

SSCMRE
SSCMTM
$SESCA
SSNEWT

$SSET

SSSKIP
SACTY
SCATC
SCMTA
30820
.$DB20
SERRO
SERRT
SRAND
SREAD
.SSAVE
.$SIZE
STRAP
LSTYPD
STYPE
STYPO
EQUAT
.HEADE

5-556#4
5-5564
4=724
4-724

311

4-72#4
4474
4~48#
4484
4-49%¢
4=~49#
4484
4-48#¢
4-504#
4=474
4-49¢
4=494
4=49%
4-4Bx
4=478
4~48
4=47#
&4=47#

31-1

4-60

4-62

4=67

4-69

4=70

32-<40

37-49

31-1

31-1#

31-2

SWRHI

4=474

5=9
51
5=556
29~
30-1
22-1
23-1
27-1
211
28-1
36-1
31-1
26-1
24~
25-1
4-72
4=54
4-343
4=55

16=172¢

16-187

16-188

16-189

16-190

20-244
18-140

20-252
18-146

38-21
18-152

38-30
18-187

32-856
32-856

32-906
32-906

32-908
32-908

3 2-;81
3 2-:;81

36-1
=724
6-0

11-34

11-34#

11-58

14-689
14-682

164->70
14=>41

15-91
15-27

31-1

311

31-1

31-14

312

5=9
28-1
11-29

6-0
29-1
11-294

6-0
30-1

21-1
31-1

21-1
36-1

211

21-1

22-1

23-1

24-1

25-1

SETUP

SWRLO

4=474

4=~474

4=55A

AUTOM

21-204

22-1

CKNUM
COMMEN
ENDCOM
ERENTR

=314
4=72#4
4724
21-13#

37-27

ESCAPE
GETPR]I
GETSWR
MORETA
MULT
NEWTST
POP
PUSH
REPORT
SETPRI

4-724
4-72#
4-50#
5-16#4
4=724
&=724
(=724
4-720
4=72#
472

CKCHR
CKDIG

ERRCAL
ERROR

4-84
4-184

32-1#
4-724

SETTRA

31-1

STARS

=724
27-1
-72¢

SETUP
SKIP
SLASH

SWRSU
TRMTRP

TYPBIN
TYPDEC

4-720
=720
=724

31-14
&4=724
&

22-1

21-1

11-29

31-3

4=56

37-36

4=57

4-58

16-191

26-1

CZRJDEO RPO4/5/6 MLT-DR LEE MACRO 0 V04.00 5-NOV-81 09:16:17 PAGE M-2
CROSS REFERENCE TABLE (CREF
VO04. 0 0)
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

4-724
4-72#
4-72¢
4=72#¢
4=72¢

SEQ 0222

11-34
11-140
21-1
11-6

12-49
23-1

13-46
23-1

13-68

13-92

16=-122

17-202

18-49

18-209

18-230

19-29

19-33