Digital PDFs

AH-9257C-MC

January 1979

Number of pages unknown

Original

8.3MB

view download

OCR Version

7.1MB

view download

Document:	CZRP1C0 RP11E,RP02 MULTI-DRIVE EXERCISER JAN 1979 bw
Order Number:	AH-9257C-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRP1C0__RP11E,RP02__MULTI-DRIVE_EXERCISER__AH-9257C-MC__JAN_1979_bw.pdf

OCR Text

RPI1E.BPO2

comss TM

Lonienn i
FICHE 1 OF1

MADE IN USA

2
3

30-0CT-78

11:21

PAGE 2

SEQ 0001

.REM %

8
9
0

IDENTIFICATION

PRODUCT

5
6

PRODUCT NAME:

CZRP1CO RP11E MUDR EXER

PRODUCT

OCTOBER 25, 1978

D od e

d o

2
3

20
21
22
23
24
25
26
27
28
29
30

3¢
33
34
35
6
37

38
39

CODE:

DATE:

AC=-9256C-MC

DIAGNOSTIC ENGINEERING

MAINTAINER:

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NGCT BE CONSTRUFD AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RESPONSIBILITY FOR ANY ERRORS

THAT MAY APPEAR

IN THIS DOCUMENT.

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOF TWARE
ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL, OR ITS
AFF
Il IATED COMPANIES.

(C)

1975,

THE FOLLOWING ARE
CORPORATION:

DIGITAL
DEC

PDP
DECUS

1978 BY DIGITAL EQUIPMENT CORPORATION.

TRADEMARKS OF

UNIBUS
DECTAPE

DIGITAL EQUIPMENT

MAS SBUS

CORPORATION:

CZRP1CO, RP11 MUDR EXER MACY11 30A(1052)
CZRP1C.P11
23-0CT-78 08:18

11:21

¢
PAGE 3

SEQ 0002

CONTENTS
ABSTRACT
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
MEDIA
PRELIMINARY PROGRAMS

OPERATING THE PROGRAM

3.6
3.7
3.8

LOADING THE PROGRAM
STARTING THE PROGRAM
RESTARTING THE PROGRAM

PROGRAM CONTROL
PASS/TEST TERMINATION

3.5.1
PASS TERMINATION
3.5.2
TEST TERMINATION
RUN_TIME
3.6.1
DATA TRANSFER MODE
3.6.2
SEEK VERIFICATION MODE
UNIBUS & VECTOR ADDRESSES
SUBSYSTEMS WITH BOTH RP02-RPR0O2 AND RP0O3 DRIVES

CONTROLLING THE PROGRAM

4.3

PERFORMANCE

5.1

5.2

O\\h‘\wf\)—-‘

4.2

PARAMETERS
4.1.1
KEYBOARD ENTRY PARAMETERS
4.1.2
PERIPHERIAL ADDRESS PARAMLTER LOCATIONS
SWITCH REGISTER SETTINGS
SOF TWARE SWITCH REGISTER
KEYBOARD COMMANDS
'T' COMMAND
‘D' COMMAND
SNBSS
[)
] L]
.
.
wwwwuw

4.1

'S’

COMMAND

‘W' COMMAND
'R' COMMAND
GENERAL COMMAND

SUMMARY

PERFORMANCE

NFORMATION

TYPEOUT

SUMMARY TYPEQUT EXPLANATION

HARD/SOFT ERROR DEF INITIONS
5.2.1
HARD ERRORS
5.2.2
SOFT ERRORS

DATA CHECKING & ERROR RFCOVERY

6.1
6.2

DATA BUFFER COMPARISON
VERIFICATION OF DATA WRITTEN

ERROR MESSAGE:

Y r~

30-0CT-78

\NES NN =

30A(1052)

NN INIANWN

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PTT
23-0(1-78 08:18

30A(1052)

30-0CT-78

;

7.1

S
6

8.3

9
0
1

2
3
24
125
g

BIRARURSS

D
s
D
d cad =D
d
— e

SEQ 0003

ERROR DESCRIPTION LINES

PROGRAM OPERATION
SELECTION OF OPERATIONAL VARIABLES

DATA PATTERNS

PROGRAM LISTING

ABSTRACT

........

THE RP11E MULTI-DRIVE EXERCISER FROGRAM EXERCISES 1 TO 8 RP0O2,
RPRO2, OR RPO3 DISK DRIVES ATTACHED TO THE SAME RP11E.
IF 2 OR
MORE DISK DRIVES ARE BEING EXERCISED, OPERATIONS ON THE DRIVES
ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK OPERATIONS WHILE
ONE DRIVE IS FZRFORMING A DATA TRANSFER OR WRITE CHECK OPERATION).

126
127
128
129

}2(9)

PAGE &

PROGRAM DESCRIPTION
8.1
8.2

11:21

OPERATIONS AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM

g:IzTngFER RATE OR A HIGH DRIVE POSITIONING RATE

THE PERFORMANCE OF

EACH DISK DRIVE

CAN BE

IS MONITORED BY THE PROGRAM.

IF A DRIVE EXCEEDS A PRESET NUMBER OF

ERRORS,

THE DRIVE

AUTOMATICALLY DEASSINGED.
(THE OPERATOR HAS THE OPTION OF OVERRIDING THE AUTOMATIC DEASSIGNMENT FEATURE.)
THE PROGRAM REPORTS
PERFORMANCE DATA FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM

{

THE OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE

OPERATOR AT PROGRAM STARTUP.

141

ALL DATA TRANSFER COMMANDS ARE USED

}2%

WITHOUT IMPLIED SEEKS)

144

THE

145

DATA TRANSFER COMMANDS ARE

WRITE CHECK COMMAND.

(I1.E.,

READ & WRITES WITH AND

AS WELL AS WRITE CHECK COMMANDS.

SELECTED RANDOMLY EXCEPT FOR

THE

THE WRITE CHECK COMMAND IS USED TO VERIFY

“:29

A PREVIOUS WRITE OPERATION.

148

PROGRAM/OPERATOR COMMUNICATIONS ARE

151
152
;;2

ALL COMMANDS, DATA PATTEPNS, AND DATA BUFFER SIZES ARE SELECTED
RANDOMLY BY THE PROGRAM.
ADDITIONALLY THE ADDRESSES (EG., CYLINDER,
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY.

}gg

OPTIONS ARE SELECTED BY SWITCH REGISTER SETTINGS.

155

}gg
58

{28
}2}

163
164

165

166

THROUGH THE TELETYPE:

REQUIREMENTS

c.1

EQUIPMENT

PROGRAM

REQUIRED

PDP-11 PROCESSOR (WITH OR WwITHOUT HARDWARE SWITCH REGISTER)
§n MEMORY

TELETYPE

[en Van

—

CZRP C 0, RP11 MUDR EXER MACY11
CZRP C PN
23-0CT1-78 08: 18

30A(1052)

30-0CT-78

11:21

167

—l—l_a_a_a_..—l_n_a_;_n_.;_a..l;-—l—l—a_n_a—a_a
0000
NNNNNN

SEQ 0004

PROGRAM LOADING DEVICE

168
169
170
7
172

RE2EBEIRRR 00

E
PAGE 5

KW11-L OR KW11-P CLOCK
RP11E WITH 1 RPOZ2-RPR0O2 OR 1

RPO3

OPT JONAL
4K TO_20K ADDITIONAL MEMORY
1 TO 7 ADDITIONAL RPOZ'S-RPR02'S OR RP03'S ON THE SAME RP11E
MEDIA
THE RP11E MULTI-DRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED B8Y THE EXERCISER.
DISK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE RP11E FORMATTER
PROGRAM (MAINDEC-11-DZRP2) OR BY THE ‘W' COMMAND OF THE RP11E
MULTI-DRIVE EXERCISER (SEE SECTION 4.4).
PRELIMINARY PROGRAMS

MAINDEC-11-DZRPW CZRPYC RP11E FCTINL
MAINDEC-11-DZRPZ MAINDEC-11-DZRP2 -

RP11E
LGC &
RP11E
RP11E

DISKLESS CONTROLLER TEST
R/W
DRIVE POSITIONING TEST
DRIVE FORMATTER PROGRAM

OPERATING THE PROGRAM

xxx BFFOR STARTING REFER TO SECTION 4.2 ==

THE PROGRAM MAY BE LOADED WITH THE ABSOLUTE PAPER TAPE LOADER OR [T
MAY BE LOADED FROM THE APPROPRIATE MEDIA USING THE ASSQCIATED ‘XXDP'
LOADER.
IF THE PROGRAM IS BEING RUN ON A PROCESSOR WITH 8K OF MEMORY,
THE PROGRAM WILL NOT PRESERVE THE °'XXDP' LOADER,; THE 'ABS' LOADER

éSSEJ?E

'ABS' LOADER SECTION OF

THE

'XXDP'

LOADER)

WILL BE PRESERVED,

THE ‘XXDP' LOADER IS NOT PRESERVED IN AN 8K PROCESSOR BECAUSE OF
MEMORY REQUIREMENTS OF THE °'XXDP' LOADER;
THE PROGRAM USES THE
'XXDP' LOADER SPACE FOR BUFFER SPACE ON THE 8K PROCESSOR.

—t ed

L ele RNTo SV PNV V)

AN\ S1\¥)NONLNLNININLNON

211

THE

PROGRAM MAY BE

INCLUDED

IN AN

RUN THE CHAIN IS 12K OR GREATER.

°*XXDP'

CHAIN

THE

PROCESSOR

THE

THE NORMAL STARTING LOCATION FOR THE PROGRAM IS 200(8).
PARAMETERS
MAY BE CHANGED BY STARTING THE PROGRAM AT LOCATION 204(8).
THE

PROGRAM MAY BE

OR LOCATION 204

RESTARTED FROM EITHER LOCATION 200(8)

(8).

SET THE °‘FORMAT® AND 'MAINTENANCE® SWITCHES ON THE RP11E TO ‘NORMAL';
SE;J}SEDCONTROLLER WRITE LOCKOUT AND DRIVE WRITE ENABLE SWITCHES AS
\

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0C7-78 08:18

30A(1052)

30-0CT-78

11:21

PAGE 6

SEQ 0005

ONCE THE PROGRAM IS LOADED AND STARTED, OPERATIONS ARE INITIATED AND
CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS.

[F THE PROGRAM IS BEING RUN AS PART OF AN °'XXDP' (HAIN, THE 'T'
COMMAND IS NOT REQUIRED TO START THE TEST: THE PROGRAM WILL AUTOMATICALLY
INITIATE A 'TA' COMMAND.
IF THE °'XXDP' CHAIN IS BEING LOADED FROM
AN RP02, RPRO2, OR RPO3, DRIVE O WILL BE BYPASSED WHEN THE 'TA'
COMMAND IS ISSUED.
NOTE THAT OPERATOR INTERVENTION IS NOT REQUIRED.
3.5

PASS/TEST

3.5.1

PASS

PARAMETER

END OF

PASS

DETERMINED BY EITHER OF

CONDITION USED

°'SEKMOD'

IS O,

THE

FOLLOWING CONDITIONS.

DETERMINED BY PARAMETER

END OF

‘SEKMOD'.

PASS OCCURS WHEN THE

DRIVE

HAS READ 6.25 X 10°8 WORDS (1 x 10%10 BITS).
IF PARAMETER 'SEKMOD' IS 1, END OF PASS OCCURS WHEN THE DRIVE
HAS PERFORMED 1 X 1076 SEEKS.

TEST

TERMINATION

THE

TEST

THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED
PARAMETER 'PASCNT®.
THE TOTAL ERRORS ACCJMULATED EXCEED 100.
A FATAL ERROP OCCURS.

B.
C.

3.6

TERMINATION

PASS MAY BE

3.5.2

TERMINATION

END OF
THE

FOR A DRIVE

TERMINATED

(SW<04> = Q)

WHEN:
IN

RUN TIME

THE

EXERCISER PROGRAM MAY BE RUN IN TWO MODES.

THE MODE

DETERMINED BY THE VALUE IN PARAMETER °'BUFRSZ'.
IF °'BUFRSZ' IS '1°
SECTOR, THE PROGRAM RUNS IN A SEEK HEAVY MODE; IF °'BUFRSZ' APPROACHES
ONE TRACK IN SIZE (5000 OCTAL) 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 8K, THE
READ/WRITE RATIO PARAMETER - 'RATIO', AND BY SWITCHES 0 & 1.

-re®

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0C7-78 08:18

3.6.1

RUN TIME

'DATA TRANSFER MODE'

14 HOURS FOR 1

DRIVE.

(ADD 4

HOURS

FOR

EACH ADDITIONAL

NOTE:

IF SW<Q1> = 1 (NO SOF TWARE DATA COMPARSIONS),
ARE THE FOLLOWING VALUES, APPROXIMATELY:
12 HOURS FOR 1

DRIVE

TESTED.)

DRIVE

(ADD 3 HOURS FOR EACH ADDITIONAL DRIVE
3.6.2

RUN TIME

THE RUN TIMES

°*SEEK VERIFICATION MODE'

TESTED.)

30A(1052)

30-0CT-78

279
289
281
282
283
284
285

ASSUME

SW<00> = 1

THE

°'BUFRSZ' = 1
'LT' = 'FT!'
'LS' = 'FS’

SECTOR

(400(8)

WORDS)

(READ ONLY MODE)
DRIVE
DRIVE

TESTED.)

PROGRAM ASSUMES

THE

FOLLOWING UNIBUS AND

VECTOR ADDRESSES.

TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE

3
b

b e
D

)
D

FOLLOWING PARAMETERS VALUES:

UNIBUS & VECTOR ADDRESSES

3.8

ADDRESS

RP11E

176710

254

TTY PRINTER

177564

TTY KEYBOARD

177560

KW11=L

177546

100

KW11-P

172542

104

(REFER

THESE ADDRESSES.)

NOT USED

SUBSYSTEMS WITH BOTH RPOZ-RPROZ AND RPO3 DRIVES
RP11E SUBSYSTEMS WITH RP02-RPR0OZ2 AND RPO3 DISK DRIVES ARE NOT
SUPPORTED BY THE MULTI-DRIVE EXERCISER.
IF THE PROGRAM IS RUN
ON A SYSTEM WITH BOTH DRIVE TYPES, EITHER THE RPOZ2-RPROZ DRIVES OR

O~NOV

SEQ 0006

(ADD 8 HOURS FOR EACH ADDITIONAL

297
298
299
300
301
302
303
304
305
306
307
308

NN N NN NN

PAGE 7

17 HOURS FOR 1

291
292
293
294
295

—_—

THE

PARAMETER
PARAMETER
PARAMETER

286
287
288
289

11:21

THE RPO3 DRIVES MUST BE POWERFD OFF.

319

CONTROLLING THE
4.

PROGRAM

PARAME TERS

WHEN THE PROGRAM

IS STARTED FROM LOCATION 200,

FOLLOWING MESSAGE

WILL

WILL BE ASSUMED.

PRELOADED PARAMETERS

THE PROGRAM |S STARTED FROM LOCATION 204,
BE

THE

TYPED.

ENTER PARAMETERS:
THE PROGRAM WILL THEN IDENTIFY THE PARAMETER BY THE NAME GIVEN BELOw,
DISPLAY THE CURRENT VALUE OF THE PARAMETER (IN OCTAL) AND THE
AND WAIT IR THE ENTRY.
If ONLY A CARRIAGE RETURN S ENTERED, THE PROGRAM WILL USE THE

Y r

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PI11
23-0C7-78 08:18

CZRP1C.P11

MUDR EXER MACY11

23-0(T1-78 08:18

30A(1052)

30-0CT-78

11:21

PAGE 8

SEQ 0007

335

PRESENT VALUE Of THE PARAMETER.

338

A '?' IF AN ALPHABETIC OR INCORRECT NUMBER (FOR THE BASE OF THE

33
337
339
%0
b3
32
fiz

PARAMETER) IS ENTERED.
IF 'CONTROL C' IS ENTERED, THE PROGRAM WILL
RETURN TO THE BEGINNING OF THE PARAMETER LIST.
IF A PERIOD IS
ENTERED (FOLLOWED BY A CARRIAGE RETURN) EITHER TO TERMINATE AN
ENTRY OR IN PLACE OF A PARAMETER CHANGE ENTRY, THE PROGRAM WILL
USE THE PRESENT VALUES OF THE REMAINING PARAMETERS AS DEFAULT VALUES.

345

(NOTE:

33267;

3528

350

%g}

353
354
355
356

RETURN®
4.1.1

A PARAMETER ENTRY MUST BE TERMINATED BY A 'CARRIAGE
OR A

'PERIOD'

'CARRIAGE RETURN'.)

KEYBOARD ENTRY PARAMETERS

NAME

DEFAULT
VALUE

BUFRS?

VALUE

RANGE

(SEE NOTE)

gg;

PASCNT

359

INTRVL

0 - 377

360
361
362
363
364
365
366
367
368
369
370
37
372
373
374
375
376
377
378
379

380
381
382
383
384
385
386
387

THE RUBOUT KEY WILL ALLOW THE

OPERATOR TO DELETE AN INCORRECT ENTRY,; °'CONTROL U' WILL ALLOW AN
ENTIRE ENTRY TO BE DELETED AND REENTERED.
THE PROGRAM WILL TYPE

- 1747

FUNCTION

CONTROLS THE MAXIMUM BUFFER
SIZE USED FOR DATA TRANSFERS

?lE,S?ER OF

PASSES TO END OF

DETERMINES THE INTERVAL (IN

L7
FT

MINUTES) BETWEEN AUTOMATIC
PERFORMANCE SUMMARY TYPEOUTS
4
0 - 'BUFRSZ' THE NUMBER OF DATA COMPARS]ON
ERRORS PRINTED QUT IF SW<02>=0
(SEE NOTE)
THE MAXIMUM CYLINDER ADDRESS
(SEE NOTE)
THE MINIMUM CYLINDER ADDRESS.
VALUE MUST NOT BE GREATER
THAN VALUE IN °'LC’
23
0 - 23
THE MAXIMUM TRACK ADDRESS
0
0-23
THE MINIMUM TRACK ADDRESS

LS
FS

n
0

CMPLMT
LC

SEKMOD

0-1n
0-n

UOR i

THE MINIMUM TRACK ADDRESS
MUST NOT BE GREATER THAN
THE VALUE IN ‘LT’
THE MAXIMUM SECTOR ADDRESS
THE MINIMUM SECTOR ADDRESS
THE MINIMUM SECTOR ADDRESS
MUST NOT BE GREATER THAN
THE VALUE IN °'LS’
IF EQ O, END OF PASS
DETERMINED BY THE 'WORDS READ'

COUNT.
IF EQ 1, END OF PASS
IS DETERMINED BY THE NUMBER
OF SEEKS.
THE RP11E UNIBUS ADDRESS
THE RP11E VECTOR ADDRESS
CONTROLS THE APPROXIMATE
RATIO OF READ TO WRITE
ORDERS.

390

VALUE

.
RPADR
RPVEC
RATIC

176710
254
3

N/A
N/A
0-7

R/W RAT]O

Sy r~

CZRP1CO, RP11

30A(1052)

30-0CT-78

11:21

I
PAGE 9

SEQ 0008

391
392
393
394
395
396
307
398
399

0
1
2
3
4
5
6
7

400
401

AJTOCK

402
403

0 OR

404

EQ 1,

THE PROGRAM

EQ 0,

THE PROGRAM

WILL PERFORM WRITE CHECKS
RANDOML Y.

408
409
410

NOTE:

411
612

THE PROGRAM WILL SELECT A MAXIMUM BUFFER SIZE WHICH
IS DETERMINED BY THE MEMORY AVAILABLE.
THE MAXIMUM BUFFER
SIZE ASSIGNED BY THE PROGRAM IS 5400 (8) WORDS.
THE

OPERATOR MAY SPECIFIY ANY OTHEK MAXIMUM SIZE AS LONG AS THE
VALUE SPECIFIED IS AT LEAST 4 WORDS BUT NO LARGER THAN

2}2

THE

415
416

INITIAL VALUE OF

°'BUFRSZ'

DETERMINED BY THE PROGRAM.

THE MAXIMUM VALUES FOR 'FC' AND 'LC*' ARF THE DETERMINED BY
THE DRIVE TYPE BEING TESTED: 202 (10) FOR RP02'S; 405 (10) FOR

z}g

419

PERFORM WRITE CHECKS AFTER
EACH WRITE COMMAND.

405
289

259

15/1
7/1
6/2
5/3
4/4
3/5
2/6
177

RPO3'S;

4.1.2

AND 405

(10)

FOR SYSTEMS WITH BOTH RP02'S AND RP03'S.

PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF

INTEREST

422
423
2§§

TO ALTER THESE LOCATIONS, THE OPERATOR MULST MAKE MANUAL ENTRIES
BEFORE THE PROGRAM 1S STARTED.
THE KEYBOARD ENTRY ROUTINE DOES

426
4§g

LOC
—

TAG
——=

CONTENTS
emmmmees

429

1216

$LKCSR

172540

431
432

1222
1224

$LPVEC
$LKS

104
177546

NOT PROVIDE ACCESS TO THESE LOCATIONS.

I'A

430

1220

433
434

1226
1232

2%2

2§g

439

6.2

SLKCSB

$LLVEC
HZ

FUNCTION
cmedeeaa
ADDRESS OF

172542

ADDRESS OF

KW11-P STATUS REGISTER

Kw11-P COUNTER BUFFER

KW11-P VECTOR ADDRESS
ADDRESS OF KWil-L STATUS REGISTER

100
74

KWw11-L VECTOR ADDRESS
74 (60 DECIMAL) IF SYSTEM IS 6C HZ:

62 (50 DECIMAL)

IF SYSTEM [S SO WHZ.

SWITCH REGISTER SETTINGS

THE DIAGNOSTIC

IS RUN ON A (CPU WITHOUT A SWITCH

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

440
447

REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REG;STER.

463

AND T CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH

442
22g

(LOC.

176)

IS JUSED.

TM~ 1

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0CT~-78 08:18

CZRP1CO, RP11 MUDR EK 3 R MAC Y 1
CZRPIC.PIT
23-0C1- ? 8 08: 1 8
1

3CA(1052)

30-0CT7-78

1
J
PAGE 10

11:21

SEQ 0009

:
CONTROL
THIS PROGRAM ALSO SUPPORTS THE DYNAMI(C LOADING OF THE SOF TWARE
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THE FOLLOWING:
1)

2’
3)

TYPE

LOC.

CONTROL G <*G>;

THIS WILL ALLOW THE

THE MACHINE WILL THEN TYPE:

THE

AFTER

SOFTWARE

THE

THE
A)

°*'NEW='"'

FOLLOWING AT

SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS

HAS BEEN TYPED

THE

TTY:

THEN THE OPERATOR CAN DO ONE

IS THE FIRST KEY DEPRESSED THE

A CONTROL U <*U>

BACK TO STEP 2.

CHANGED.

SOF TWARE SWIT(H

S DEPRESSED THEN THE PROGRAM WILL

<15 -1
<13> =1

HALT ON ERROR
INHIBIT ERROR TYPEOUT

<6>

DON'T SYSTEM STATUS WHEN PROGRAM STARTED
INHIBIT PERFORMANCE SUMMARY TYPEOUTS

<1C> - 1

SWw <5

INTO

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WiLL BE ALLOWED)

IF A <CR>

SW
Sw
Sw
SW

TO ENTER DATA

SWITCH REGISTER.)

B8)

TTY

176 AT SELECTED POINTS WITHIN THE PROGRAM.

SWITCH

RING THE TELETYPE BELL IF ERROR

SW <4>

Sw <3>

SW <>
SwW <1>
SW 0>

=1
1
=1

SEND YOU

LOOP ON PRESENT OPERATION(S)

INHIBIT MAXIMUM ERROR COUNT CHECK. DO NOT DEASSIGN
DRIVES WHEN NORMAL END OF TEST REACHED.

CISPLAY SECTOR WHICH GAVE

°‘HARD' ERROR

CI): gc;?EgWARE ERRORS & SwW<Z2> SET, DISPLAY REST

DISPLAY ALL DATA COMPARSION ERRORS
INHIBIT DATA COMPARSION AFTER READ ORDERS
READ ONLY MODE

KEYBOARD COMMANDS
THE KEYBOARD COMMANDS CONTROL
ALLOW THE OPERATOR TO REQUEST

CATA PACKS

TO BE WRITTEN

THE ASSIGNMENT/DEASSIGNMENT OF DRIVES,
DRIVE PERFORMANCE SUMMARIES, AND ALLOW

WHEN THE PROGRAM IS STARTED (OR RESTARTED), KEYBOARD (OMMANDS ARE
NOT RECOGNIZED UNTIL THE PROGRAM HAS INITIALIZED ITSELF.
THE OPERATOR

MUST WAIT UNTIL THE 'PROGRAM INITIALIZE COMPLETE® MESSAGE IS TYPED
BEFORE ATTEMPTING TO USE THE COMMANDS.
AFTER INITIALIZATION HAS BEEN
COMPLETED, THESE COMMANDS MAY BE USED.

[F THE PROGRAM IS BEING RUN AS PART OF AN 'XXDP' PROGRAM (HAIN, OPERATIONS
%EAAQ;%EICALLB STARTED.
THE PROGRAM [TSELF SIMULATES THE SSJUING
0

OMMAND

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0CT7-78 08:18

30A(1052)

30-0CT-78

$.3.1

'T*

K
PAGE 11

11:21

1
SEQ 0010

COMMAND

USED TO ASSIGN A DRIVE(S)

N
i
i
s S

VIV

TN<(CR>

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

OO0 ~NON N SNty

VATV

FORMAT:

FOR TEST

EXAMPLE:
NOTE:

£.3.2

‘D'

TO<CR> - ASSIGN DRIVE 0 FOR TEST

TA<CR> ~ ASSIGN ALL AVAILABLE DRIVES FOR

TEST

DRIVE OPERATION BEGINS IMMEDIATELY
AFTER COMMAND IS ENTERED.

COMMAND

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

DN<(CR>

N - DRIVE NUMBER.

MAY BE 0 TO 7 OR

'A'.

TERMINIATED BY A CARRIAGE RETURN <(CR>.

EXAMPLE:

NOTES:

DO<CR> - DEASSIGN DRIVE 0

DA<CR> ?52$QSSIG~ ALL DRIVES BEING
1.

IF THE 'D' COMMAND REFERENCES A DRIVE NOT ASSIGNED,
PROGRAM WiLL TYPEOUT '?DRIVE NGT ASSIGNED®.

THE DRIVES WILL BE DEASSIGNED AS THEIR OPERATION COMPLETE.

$£.3.3

'S"

THE

'DA'

THE

COMMAND IS USED, ONLY DRIVES BEING TESTED WILL

WILL BE DEASSIGNED - THE ERROR MESSAGE
BE DISPLAYED.

(1) ABOVE WILL NOT

(OMMAND

USED TO REQUEST A PERFORMANCE
DRIVE(S).
FORMAT:

ENTRY MUST BE

SUMMARY

TYPEQUT FOR THE REFERENCED

SN<(CR>

DRIVE NUMBER.

MAY BF

0 TO 7 OR

TERMINJATED BY A CARRIAGE

EXAMPLE:

'A'.

ENTRY MUST BE

RETURN <(R>.

SO<CR> - TYPEQUT PERFORMANCE SUMMARY FOR DRIVE 0
SA<CR> = TYPEOUT PERFORMANCE SUMMARY
FOR ALL

DRIVES BEING TESTED.
14

NOTES:

'SA’'

IS USED ONLY DRIVES BEING TESTED wiLL

BE DISPLAYED.

CZRPICO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT-78 08:18

30A(1052)

30-0CT-78

L 1
PAGE 1¢

11:21

559

560)

SEQ 0011

IF PARAMETER 'INTRVL' IS NOT ZERO, THE PROGRAM

WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMARY

561
ggg

FOR EACH DRIVE BEING TESTED AT A RATE DETERMINED BY
"INTRVL".

564
565
566
ggg

ggg

4.3.4

IF THE 'SA' COMMAND IS USED, THE PROGRAM WILL TYPEOUT
THE OPERATOR ENTERED DATE, OPERATOR I.D., AND THE DRIVE
1.D. FOR EACH DRIVE BEING TESTED.
THE DATE AND OPERATOR
1.D. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED.

W' COMMAND

)

571

USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPO2 MULTI-

g;g

FORMAT: WN<CR>

§76
g;g

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

§79
gg?

EXAMPLE:

g;g

DRIVE EXERCISER PROGRAM.

582
583
584
585
586
587
588
589
590
591

NOTES:

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

THE ‘W' COMMAND SHOULD NOT BE USED UNLESS 'BUFRSZ’
PARAMETER 1S APPROXIMATELY 1 TRACK IN SIZE - S000 (10).
IF (HE BUFFER SIZE 1S MUCH LESS THAN 1 TRACK, THE
TIME REQUIRED TO WRITE A DATA PACK IS TOO GREAT TO
BE PRACTICAL.

THE 'W' COMMAND PERFORMS A SEQUENTIAL WRITE OF THE
PACK USING A 'WRITE WITH IMPLIED SEEKS' COMMAND.
THE DATA
PATTERN USED FOR EACH WRITE IS SELECTED RANDOMLY.
THE PACK

562

IS WRITTEN SEQUENTIALLY, BEGINNING AT

ggz

CONTINUING TO "LC',

‘FC',

*FT'

AND

THE

598
595
60C
28;

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

603
ggg

THE DATA WRITTEN IS VERIFIED BY A 'WRITE CHECK COMMAND'
(IF THE PARAMETER 'AUTOCK' IS '1°).

606

28§

4.3.5

'R'

'W'

°LTS.

595

ggg

COMMAND DOES NOT WRITE HEADERS AND ASSUMES

THAT THE FORMAT OF

THE PACK IS GOOD.

COMMAND

gqg

USED TO PERFORM A SEQUENTIAL READ OF THE PACK.

2};

FORMAT: RN<CR>

61%

614

N = DRIVE “UMBER.

MAY BE O TO 7 OR 'A'.

TERMINATED BY A CARRIAGE RETURN <(CR>,

ENTRY MUST BE

CZRP1CO, RP11 MUDR EXER MACY11
CIRPIC.P11
23-0CT-78 08:18

30A(1052)

30-0CT-78

615

L
PAGE 13

11:21

615
g} g

EXAMPLE:

619
222%)

NOTES:

622

2225

4.3.6

223%

GENERAL

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

BY 'LC*,

" 626

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

623

COMMAND

'FC’,

'LT'.

'FT'

TO THE ADDRESS SPECIFIED

THE READ WILL BE SFQUENTIAL.

INFORMATION

WHEN A COMMAND

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

634

DRIVES ASSIGNED (WITH THE 'T' COMMAND) OR DEASSIGNED (WITH THE

ggg

THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS

631

g%%

ggg

‘D'

ok9

5.1

COMMAND (S)

DRIVE N OFFLINE
5DRIVE N NOT ASSIGNED
DRIVE N ALREADY ASSIGNED
IDRIVE N UNSAFE
PERFORMANCE SUMMARY TYPEOUT

THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES

'DRV
"PASS*

658

"SEEKS®

657

659

660
661
662

THE DRIVE NUMBER
THE PRESENT PASS COUNT FOR THE DRIVE

*ORDERS

THE NUMBER OF ORDERS PERFORMED BY THE DRIVE

"*SOFT?

THE NUMBER OF SOFT DATA ERRORS

'OTHER'

THE TOTAL ERRORS OF OTHER TYPES

THE NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED

*HARD
'SUSI
"MISP*

T. W, R
D. s
T. W, R
T, W, R

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:

655
656

THE NUMBER OF HARD DATA ERRORS
THE NUMBER OF 'SUSI‘ ERRORS
THE NUMBER OF POSITIONING ERRORS

ggg

5.2

SOF T/HARD ERROR DEF INITIONS

668
669

5.2.1

HARD ERRORS

670

TIME

s
Ll

642
643
64l
645
646

665

TYPE OUT THE

COMMAND) MAY BE ENTERED IN ANY SEQUENCE.

RE SPONSE

60
641

THE PROGRAM WILL

"INVALID COMMAND®.

639

650
651
652
222

IS ENTERED.

'CSME',

*WPE', AND

.
'LPE'

ERRORS WHI(H ARE NOT RECOVERABLE AFTEK

SEQ 0012

30A(1052)

30-0C7T-78

11:21

N 1
PAGE 14

SEG 0013

10 RETRY ATTEMPTS FOLLOWED BY A HOME SEEK AND A RE-SEEK TO THE

ERROR CYLINDER AND 10 ADDITIONAL RETRY ATTEMPTS.
5.2.2

SOFT ERRORS

‘CSME',

"WPE', OR 'LPE' ERRORS WHICH ARE RECNVERABLE DURING THE

10 RETRY, HOME SEEK,

6.1

RE-SEEK,

10 RETRY SEQUENCE DESCRIBED ABOVE.

DATA COMPARISON
DATA COMPARISON OCCURS AFTER EACH READ ORDER UNDER
CONDJTIONS:

6.2

THE

FOLLOWING

THE ORDER

TERMINATED WITH NO ERROR.

THE OPERATION TERMINATED WITH A DATA ERROR BUT READ CORRECTLY
CORRECTLY AFTER RETRY ATTEMPTS.

VERIFICATION OF

DATA WRITTEN

AFTER EACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED WITH A
WRITE CHECK COMMAMD IF PARAMETER 'AUTOCK' IS *1°.

(IF

'AUTOCK'

'0O', WRITF

(HECKS WILL BE PERFORMED RANDOMLY.)

ERROR MESSAGES
DRIVE ERRORS ARE REFPORTED ON THE TELETYPE OR (IF
. INE PRINTER.
ALL ERROR CONDITIONS ARE REPORTED
THE PROGRAM CONTAINS NO CODED ERROR HALTS.
IF
(ASSUMING, OF COURSE, THAT SW<15> IS NOT SET),

AVAILABLE) A
IN ERROR MESSAGES:

THE PROGRAM HALTS
AN UNRECOVERABLE

S??Sfi?g CONDITION HAS GCCURED OR A CENTRAL PROCESSOR FAILURE HAS
ERROR MESSAGES ARE MADE UP OF

SEVERAL LINES.

EACH TYPE OF

ERRCR

HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT.
ALL OF THE
POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GiVEN IN THE
~

—a

SECTION DESCRIBING THE PARTICULAR ERROR HEADER.

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT1~78 08:18

ERROR DESCRIPTION LINES
(THE MESSAGE
ME SSAGE
TAG

TAGS ARE
TEXT

GIVEN FOR REFERENCE.)

727
728
729
730
73
732
733

30-0CT-78
EM

11:21
RP11

PAGE

2
SEQ 0014

DIDN'T RESPOND TO ADDRESSING

WHEN THE PROGRAM ADDRESSED THE RP11, A BUS TIMEOUT
OCCURED.

EM2

734

*INVALID RP11

COMMAND'

THE PROGRAM ATTEMPTED TO ISSUE AN INVALID RP11

COMMAND.

THIS ERROR WILL INDICATE EITHER A PROGRAMMING ERROR OR
A CENTRAL PROCESSOR FAILLRE.

EM3

"UNDEF INED INTERRUPT FROM THE RP11'
AN INTERRUPT FROM THE RP11
WERE

EM10

OCCURED AND NO ATTENTION BITS

SET AND NO TRANSFER WAS UNDERWAY.

'CAN'T MATCH DATA READ WITH A PATTERN'
THE DATA COMPARSION ROUTINE
PATTERN READ.

EM12

CANNOT

IDENTIFY THE DATA

'DATA COMPARSION ERROR'
THE COMPARSION ROUTINE WAS ABLE TO IDENTIFY THE
PATTERN.; HOWEVER, A LOMPARSION ERROR OCCURED.

EM15

‘'ERR® NOT SET BUT

'RPER'

DATA

CONTENTS NOT ZERO'

THE ERROR BIT IN 'RPCS' WAS NOT SET BUT ONE OR MORE
ERROR BITS WAS SET IN THE ERROR REGISTER.

EM16

'WORD COUNT NOT ZERO OR BUFFER ADDRESS WRONG
AFTER AN ERROR FREE DATA TRANSFER, THE WORD COUNT REGISTER
DID NOT GO TO ZERO OR THE BUFFER ADDRESS REGISTER CONTENTS

EM17

WERE

INCORRECT.

'SOF TWARE TIMEOUT DURING POSITIONING'

A SEEK OR HOME SEEK COMMAND DID NOT COMPLETE WITHIN 1

EM20

'SOF TWARE TIMEGUTM DURING [/0'
? g?gGNERANSFER OR WRITE

EM21

COMPLETE WITHIN

INDICATED DRIVE HAS GONE OFFLINE.

'DRIVE UNSAFE'
THE

EM23

(HECK COMMAND DID NOT

'DRIVE OFFLINE'’
THE

EM22

SECOND.

INDICATED DRIVE HAS BECC

UNSAFE.

'SEEK INCOMPLETE'
A SEEK

INCOMPLETE

ERROR HAS OCCURED ON THE

INDICATED

h¥an)

CZRP1CO, RP11 MUDR EXER MACY11 30A(1052)
CZRPIC.P11
23-0(7-78 08:18

CZRPICO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18
783
784
85

787

788

789

30A(1052)

30-0CT-78

EM24

‘
EM2S

EM26

EM27

EM32

EM33

"WRITE CHECK ERROR

'CHECKSUM'

(NO DATA ERROR)'
‘'CHECKSUM',

°WORD PARITY

'WRITE CHECK ERROR (DATA ERROR BITS SET)"
A WRITE CHECK ERROR OCCURED.

‘CHECKSUM',

'LONGITUDINAL PARITY' ERROR BITS WERE SET.

EM34

'WORD PARITY', OR

'HEADER NOT FOUND'
A 'HEADER NOT FOUND' ERROR OCCURED.
THE PROGRAM VERIFIED
THAT THE DISK WAS ON THE CORRECT CYLINDER.

EM35

822

'FORMAT ERROR WHILE SEARCHING FOR INITIAL SECTOR'
A 'FORMAT ERROR' WAS DETECTED WHILE THE CONTROLLER WAS

SEARCHING FOR THE FIRST SECTOR OF THE DATA TO BE TRANSFERED.

EM36

827
828 .
829
830
831
832

'HEADER NOT FOUND, CYLINDER IN HEADER DOES NOT COMPARE'
A HEADER NOT FOUND ERROR OCCURED.
THE PROGRAM READ THE
HCADER OF THE SECTGR BEING SEARCHED FOR (USING A HEADER
READ) AND THE CYLINDER ADDRESS FIELD IN THE HEADER DID NOT
COMPARE WITH THE CYLINDER THE DISK WAS EXPECTED TO BE AT.
THiL PROGRAM ]JSSUES A HOME SEEK TO THE DRIVE AFTER REPORTING
THIS ERROR.

EM37

836
838

THE FOLLOWING ERRORS OCCURED:

'WORD PARITY ERROR', OR 'LONGITUDINAL PARITY' ERROR.

ERROR', OR ‘LONGITUDINAL PARITY* ERROR BITS WZRE NOT SET.

816
817

TRACK, OR CYLINDER ERROR HAS

A WRITE CHECK ERROR OCrURED.

811

825

ERROR HAS OCCURED.

'DATA ERROR'

ERROR,

g}%

819

"PROGRAM'

"NON-EXISTENT DISK ADDRESS'

ANY OR ALL OF

807

g%?

ERROR OR A

OCCURED.

806

814

"MODE'

A NON-EXISTENT SECTOR,

gg%

809

"CONTROLLER ERROR'
A

801

804

'UNIBUS TRANSFER ERROR'
OCCURED.

797

ggg

SEQ 0015

A UNIBUS TIMING ERROR OR NON-EXISTENT MEMORY ERROR HAS

796
798

¢ 2
PAGE 16

DRIVE.

11:21

'DIFFERENT ERROR DURING RETRY'

DURING ERROR RECOVERY OR RETRY A DIFFERENT ERROR TYPE OCCURED.
EM&L3

‘'ERR'

SET BUT NO ERROR BITS SET'

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18

30A(1052)

30-0CT-78

11:21

D_2

PAGE 17

;E?R'

EM4S

SEQ 0016

"RPCS'

WAS SET, BUT NO ERROR BITS

'RPER'

WERE

'WRITE PROTECTION VIOLATION'
THE PROGRAM AfTEMPTED TO WRITE ON A WRITE PROTECTED DRIVE.

EM4S

'FORMAT ERROR DURING ]/0'
A "FORMAT ERROR' WAS DETECTED WHILE THE CONTROLLER WAS
SEARCHING FOR THE SECOND OR SUBSEQUENT SECTOR TO BE TRANSFERED.

PROGRAM DESCRIPTION

8.1

PROGRAM OPERATION

WHEN THE PROGRAM IS STARTED FROM LOCATION 200(8), ALL TABLES AND
PARAMETERS ARE CLEARED OR INITIALIZED.
THE PARAMETERS WHICH ARE
UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND
CONSISTENCY, TTY KEYBOARD

INTERRUPT ENABLE

IS SET, AND THE KW11-L OR KW11-P CLOCK IS STARTED.

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

THE

ITS

INTERNAL

ASSIGNMENT

TABLES,

LOOKING FOR:

DRIVES TO ASSIGN/DEASSIGN

2)
3)

PERFORMANCE SUMMARY TYPEOUT REQUESTS
DRIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT,

DRIVES COMPLETING CURRENT OPERATIONS.

OR PARAMETER SELECTION.

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 {MEM A DRIVE IS ASSIGNED (°'T' COMMAND).

WHEN A DRIVE IS ASSIGNED, THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE
DRIVE IS PRESENT AND IS ONLINE.
THE ASSIGNMENT ROUTINE
THEN

ISSUES A HOME

PARAMETERS

FOR

THE

SEEK

INSTRUCTION.

OPERATION ARE

SELECTED AND A BUFFER

1S ASSIGNED.

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

(COMMAND INITIATION DESCRIPTION)

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

IFf

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0CT7-78 08:18

30A(1052)

30-0CT7-78

11:21

E 2
PAGE 18

SEQ 0017

IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RP11E BUS ADDRESS
AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERIFY THAT THE
CORRECT NUMBER OF WORDS HAVE BEEN TRANSFERED AND THAT THE TWO REGISTERS
ARE CONSISTENT WITH EACH OTHER; AND IF THE ORDER WAS A READ ORDER, THE
DATA BUFFER IS COMPARED.
WHEN THIS SEQUENCE IS COMPLETED, THE DRIVE
IS RETURNED TO THE ASSIGNED, INACTIVE LIST.
THE PROGRAM THEN
INITIATES A DATA TRANSFER ON A WAITING DRIVE AND RESELECTS AND
REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE.

ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER.
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED.
A.

ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT

MULTIPLE

COMPLETED NORMALLY.

SOF TWARE TIMEOUT DURING POSITIONING - EM17
SOF TWARE TIMEOUT DURING 1/0 - EM20
DRIVE OFFLINE - EM21
DRIVE UNSAFE - EM22
8.

ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY.

SEEK INCOMPLETE - EM23
UNI_JS TRANSFER ERROR - EMZ24
CONTROLLFR ERROR - EMZ5

NON-EXIS,
cNT DISK ADDRESS - EMZ26

DATA ERROR - EM27

WRITE
WRITE

CHECK ERROR
CHECK ERROR

(NO DATA ERROR) - EM32
(DATA ERROR BITS SET) - EM33

HEADER NOT FOUND - EM34

FORMAT ERROR WHILE SEARCHING FOR
POSITIONING ERROR - EM36

INITIAL

SECTOR - EM35

DIFFERENT ERROR DURING RETRY - EM37
WRITE PROTECTION VIOLATION - EM44
FORMAT ERROR DURING 1/0 - EMA4S

ERRORS NOT FLAGGED BY
RP11

THE HARDWARE ERROR DETECTION LOGIC.

DIDN'T RESPOND TO ADDRESSING - EM1

INVALID RP11

COMMAND - EM2

UNDEF INED INTERRUPT FROM THE RP11 - EM3
CAN'T MATCH DATA READ WITH A PATTERN - EM10
DATA COMPARE ERRORS - EM1?2
'ERR' NOT SET BUT 'RPER' CONTENTS NOT ZERO - EM1S
WORD COUNT NOT ZERO OR BUFFER ADDRESS WRONG - EM16

'"ERR'

8.2

SET BUT NOT ERROR BITS IN 'RPER'

SET - EM43

SELECTION GF OPERATION VARIABLES
A.

SECTOR ADDRESS SELECTION

IS RANDOM BETWEEN THE

VALUES

'FS' AND °'LS'.
TRACK ADDRESS SELECTION IS RANDOM
BETWEEN THE VALUES IN ‘FT' AND 'LT'.
(CYLINDER ADDRESS
SELECTION IS RANDOM BETWEEN 'FC' AND ‘LC°'.
THE BUFFER SIZE

1S RANDOM SELECTED BETWEEN &4

(10)

- AND

"HE

CZRP1CO, RP11 MUDR EXER MACY11 30A(1052)
CZRP1C.PI11
23-0CT-78 08:18

30-0CT-78

11:21

PAGE 19

SEQ 0018

VALUE IN 'BUFRSZ'.

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 & LOCATIONS

IN THE DATA PORTION OF

C.
D.
E.

THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 20 (8)

PATTERNS.

THE ORDERS ARE

PERFORMED ONLY

SELECTED RANDCMLY.
IF

FIRST OPERATION ARE
VARIABLES.

STANDARD

WRITE CHECK ORDERS ARE

THE PREVIOUS ORDER WAS A WRITE

THE FIRST ORDER PERFORMED AFTER A UNIT
‘T' COMMAND IS NOT RANDOMLY SELECTED.

THE
THE

8.3

THE SECTOR TO BE ABLE TO MATCH THE DATA

TO A PATTERN FOR DATA COMPARISON PURPOSES.

COMMAND.

IS ASSIGNED WITH A
THE PARAMETERS FOR

THE MINIMUM OR STARTING VALUES OF

DATA PATTERNS
THE PROGRAM SELECTS ONE OF THE HOLLOWING 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
E:g?ggggTOR,

THE

PROGRAM MATCHES

PATTERN

'8'

IS DEFINED AS THE

PAT O

PAT

000000 000001

PAT 2

PAT 3

THE

DATA

TO ONE OF

°WORST CASE'

PATTERN.

PAT 4

PAT S

THE

PAT 6

FOLLOWING

PAT 7

177776 000000 000000 052525 007417 626455

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
C00000
00000G

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

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

000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
00GO00
177777

010421
021042
031463
042106
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356
177777

052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

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

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

PAT

FAT

PAT

30A(1052)

30-0C7-78

=233 353353335455

NV
WNN = O

b
DD
D
—_d

11:21

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577

SNOMNN S NN
=

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PI
23-0C7-78 08:18

G ¢
PAGE 20

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

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

SEQ 0019

172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
}§2666
5555
17 2666
15 5555
17 5266
15
55

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

153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667
153333
066667

000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

177777
000000
000000
000000
000000
000000
000000
000000
Q00000
000000
000000
000000
000000
000000
000000
000000

PROGRAM LISTING

NLIST
LIST

MC,MD,CND
ME

LTITLE
CZRP1CO, RP11 MUDR EXER
s *COPYRIGHT (() 1975,1978
;*DIGITAL EQUIPMENT CORP.

J*MAYNARD, MASS. 01754

SN N = O V0O NN

W VIWALA

—

lola lolele]

NN = OO0

jolalelelel

PR R R RRRRRRR225200
e

. %

1055

;*PROGRAM BY (. HESS/F. ROEMER
X1

:*THIS PROGRAM WAS ASSEMBLED USING THF PDP=11 MAINDE( SYSMAC
s *PACKAGE

(MAINDEC-11-DZQAC-C1)
,MAR 24,

_SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

HALT ON ERROR

10
7
6
5

BELL ON ERROR
DON'T TYPE SYSTEM STATUS.
INHIBIT PERFORMANCE SUMMARY TYPEOUTS
DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES)

DISPLAY SECTOR WHICH GAVE

’

REMAINDER OF BUFFER
DISPLAY ALL DATA COMPARE

o
i

Had

USE

i*
o
i
ot

19/6.

’

INHIBIT ERROR TYPEOUTS

DO NOT CHECK FOR MAXIMUM ERROR COUNT OR DEASSIGN
DRIVE WHEN NORMAL END OF TEST REACHED

'HARD' ERROR

IF DATA COMPARE ERROR & SW2 SET, DISPLAY
ERRORS

INHIBIT DATA COMPARSION AFTER READ ORDERS

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T-78 08:18

30A(1052)

30-0CT-78

11:21

OPERATIONAL

SWITCH SETTINGS

* %

.SBTTL

SEQ 0020

READ ONLY MODE

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

(001100

STACK=

000011
000012
000015
000200

HY=

177776

PS=

177776
177772
177570
177570

CTKLMT= 177774

.EQUIV
.EQUIV

H 2
PAGE 21

1100

EMT,ERROR
10T.SCOPE

THE

STACK POINTER %% 1100 w#w

;.BASIC DEFINITION OF ERROR CALL
;;BASIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS
11

;:CODE FOR HORIZONTAL

177776

: ;PROCESSOR STATUS WORD

LF=
CR=
CRLF=

12
15
200

.EQUIV

PS.PSW

PIRQ=

177772

DDISP=

177570

DSWR=

177570

:;CODE FOR CARRIAGE RETURN-LINE FEED

;:STACK LIMIT REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER
: :HARDWARE SWITCH REGISTER

: :HARDWARE DISPLAY REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS

ROR1R2=
R3=
R4 =
RS=
RE=

20
21
12
L3
%%
15
%6

; ;GENERAL
: :GENERAL
. :GENERAL
: :GENERAL
::GENERAL
::GENERAL
: :GENERAL

SP=
o(=

16
17

*1STACK POINTER
: :PROGRAM COUNTER

R7=

(o]
VR WA —

=200
0
- OO0~

8000008%8
—d

)
) —d —

e
b e

e
D

;*PRIORITY LEVEL
PRO=
0

::GENERAL REGISTER

CEfINITIONS
::PRIORITY
S:PRIORITY
SPRIORITY
::PRIORITY
;:PRIORITY
SIPRIORITY
SPRIORITY

000000
000040
000100
000140
000200
000240
000300
000340

PRS=
PR6=
PR7=

100000

;' 'SWITCH REGISTER'® SWITCH DEF INITIONS
Sw15=
100000

040000

b
—d

—d e
e

b el
e

— e

—

)

1097

000020

PR1=
PR2=
PR3=
PR =

SWwié=
Sw13=
Swi2=
SWwil=
Sw10=

Sw09=
Sw08=
sw07=
Swoé=
Sw05=
Swoé=

40
100
140

200

240
300
340

40000
20000
10000
4000
2000

1000
400
200
100
&0
20

TAB

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN

LEVEL

LEVEL 1
LEVEL 2
LEVEL 3

LEVEL 4

LEVEL S
LEVEL 6
::PRIORITY LEVEL 7

2
3
4
S
6
7
8
9
0
1

Swo3=
SW02=
Swol=
SW00=

.EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV

EQUIV

12
PAGE 22

10
4
2
1

SW09,SW9
SWO8.Sw8

SW07.5w7

SW06.SWé
SWO5.SWS
SW04.Swé

SW03.Sw3
SWOZ.SW2
SWOT.SW1

SWO0.SW0

:*DATA BIT DEFINITIONS

(BITOO TO BIT15)

8
9
0

100000
040000
020000

BIT15=
BIT14=
BIT13=

100000
40000
20000

2
3

004000
002000
001000
000400
000200
000100

BIT11=
BIT10=
BIT09=
BIT08=
BITO7=
BIT06=

4000
2000
1000
400
200
100

000020
000010
000604
000002
000001

BIT04=
BIT03=
BIT02=
BITOT=
BIT00=
.EQUIV
.EQUIV
.EQUIvV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQulv
.EQUlv

20
10
4
2
1
BIT09.8IT9
BIT08,BI178
81T107.81T7
BIT06.81T6
BIT05.BITS
BIT04.BIT4
BIT03.BI73
BIT02.BITZ2
BITO01,BIT1
8IT00,BITO

000004
000010
000014
000014
000014
000020
000024
002030

ERRVE(C= 4
RESVEC= 10
TBITVEC-14
TRTVEC= 14
BPTVEC= 14
JIOTVEC= 20
PWRVE(C= 24
EMTVEC= 30

;. TIME OUT AND OTHER ERRCRS
;RESERVED AND ILLEGAL INSTRUCTIONS
;0T BIT
;. TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
2 INPUT/0UTPUT TRAP (]OT) #««SCOPEw«
s ;POWER FAIL
;.EMULATOR TRAP (EMT) ««ERRORw*

000060
000064
000240

TKVEC=
60
TPVEC= 64
PIRQVE (=240

;. TTY KEYBOARD VECTOR
J;TTY PRINTER VECTOR
;. PROGRAM [NTERRUPT REQUEST VECTOR

000040

2OV

NORNES WA =000

010000

NN
NN
2OV
WA
NV

30-0CT-78 11:21
BASIC DEF INITIONS

EQUIV
EQUIV

D e e

D d

) e

D
)

)
)

) i

) b
e

) d e ed e

d e ced e e
b cd e

)

d d d e md d D e

md
b e

d d rmd

D i

)
)

b ek

d emd

D cd el

—t e ed

000010
000004
000002
000001

30A(1052)

2
3

) e

b wed D

D e

D cod D ad ced

D D

b e

D d b e

)

) D e

)

) e

d i i

nd and b

d )

]p ]
A’ v

lels
NN

0, RP11 MUDR EXER MACY11
C.P11
23-0CT-78 08:18

000034

BIT12=

BIT05=

10000

;*BASIC ''CPU'* TRAP VECTOR ADDRESSES

TRAPVEC-34

;. TRAP'' TRAP

SEQ 0021

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T1-78 08:18
1168
}}98

30A(1052)

30-0CT-78
11:21
BASIC DEFINITIONS
;RP11

PAGE 23

2
SEQ 0022

17
1172
1173

000000
000002
000004

RPDS=00
RPER=02
RPCS=04

;DRIVE STATUS REGISTER
;ERROR REGISTER
;CONTROL REGISTER

1175
1176
1177
1178
1179

000010
000012
000014
000016
000020

RPBA=10
RPCA=12
RPDA=14
RPM1=16
RPM2=20

;BUFFER ADDRESS REGISTER
;CYLINDER ADDRESS REGISTER
;SECTOR/TRACK ADDRESS REGISTER
JMAINTENANCE REGISTER #1
JMAINTENANCE REGISTER #2

1181

000024

SUCA=24

JSELECTED UNIT CYLINDER ADDRESS REGISTER

1174

1180
}}g%

000006

000022

000026

}}gg
1186
1187
1188
1189
1190
1191
1192

1}32

RPW(C=06

;wORD COUNT REGISTER

RPM3=22

JMAINTENANCE REGISTER #3

SILO=26

;SILO REGISTER

.RP11 OP CODE DEFINITIONS
000001
000003
000005
000007
000011
000013
000015

000017

CLEAR-I
WRTSEK-3
RDSEK=5
WRTCHK=7
SEEK=1"
WRITE=13
HOMSEK=15

;CLEAR THE CONTROLLFR
JWRITE WITH IMPLIED SEEK AND HEAD SELECTION
JREAD WITH IMPLIED SEEK AND HEAD SELECT
;WRITE CHECK WITH IMPLIIED SEEK AND HEAD SELECT
. SEEK
JWRITE (NO IMPLIED SEEK OR HEAD SELECT)
JHOME SEEK

READ=17

JREAD (NC IMPLIED SEEK OR HEAD SELECT)

}132

:RP11 REGISTER EQUATES

}}g;

;RPDS

1199
1200
1201

1202
1203
1204
1205
1206
}sgg

000400
001000
002000
004000
010000
020000
040000
100000

}S?g
1211

1212
1213
1214
1215
1216

1217

1218
1219
1220
1221
1222
1223

000002
000004
000010
000020
000040

000100

000200
002400
001000
002000
004000
010000

STATUS REGISTER)

.ATTENTION BITS ARE REFERENCED BY RI7 NUMBER (BIT00 - BIT07)
SUWP=400
;SELECTED UNIT WRITE PROTECTED
SUFU=1000
JSELECTED UNIT FILE UNSAFE
SUSU=2000
JSELECTED UNIT SEEK UNDERWAY
SUSI=4000
JSELECTED UNIT SEEK INCOMPLETE
HNF =10000
JHEADFR NOT FOUND
SURP03=2000V
;SELECTED UNIT IS AN RPO3
SUOL=40000
JSELECTED UNIT IS ONLINE
SURDY=100000
;SELECTED UNIT IS READY
;RPER

000001

(DRIVF

(ERROR REGISTER)

DSKERR-1

EOP=2
NXME =4
WwCE=10
TIMEE=20
CSME=40

WPE=100

LPE=200
MODERR=400
FMTE=1000
PROG=2000
NXS=4000
NXT=10000

;DISK ERROR

JEND OF PACK
JNON=EXISTENT MEMORY
JWRITE CHECK ERROR
. TIMING ERROR
; CHECKSUM ERROR
;WORD ©ARITY ERROR
JLONGITUDINAL PARITY ERROR
;MODE ERROR
;FORMAT ERROR
;PROGRAM ERROR
JNON-EXISTENT SECTOR
JNON=EXISTENT TRACK

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18
020000
040000

30A(10527

30-0CT-78
11:21
BASIC DEFINITIONS

JNON-EXSITENT CYLINDER

wPv=100000

JWRITE PROTECT VIOLATION

JRPCS

(CONTROL

IDE=100

s INTERRUPT ON DONE

RDY=200

.RP11 READY

;DRIVE SELECT BITS ARE REFERED TO BY BIT NUMBER

004000
010000
020000
040000

HDR=4000
MODE=10000
A1E=20000
HE=40000
ERR=100000

100000

.SBTTL

000000

000174
000176

JFILE UNSAFE VIOLATION

:'GO* BIT AND FUNCTION BITS ARE LOADED TOGETHER AND ARE DEF INED ELSEWHERE.
;EXTENDED MEMORY ADDRESS BITS ARE REFERED TO BY BIT NUMBER

000100
000200

SEQ 0023

NXC=20000

FUV=4C000

100000

29
30
A

K 2
PAGE 24

sHEADER
;MODE
cATTENTION INTERRUPT ENABLE
JHARD ERROR
;ERROR

TRAP CATCHER

.=0

;*ALL UNUSED LOCATIONS FROM 4 - 776 (ONTAIN A ' +2 HALT"'
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

;*LOCATION O4CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:
.SBTTL

.WORD
.WORD
ACT11

O
O

;. SOF TWARE DISPLAY REGISTER
;. SOF TWARE SWITCH REGISTER

HOOKS

.'.'tttt*ttt*fitt‘t'tt*'t*'itttttttttitttttttttttttttttttfitt*ttfittfit

000046
000052

;HOOKS REQUIRED BY ACT11

000200
000046
003634
000052
040000
N00200

$ENDAD

;:1)SET LOC.46 TO ADDRESS OF

-=$SvPC

000200
000137
000137

;SAVE PC

Iiggr

.SBTTL

000200
000204

fgzzc:.

40000

:32)SET LOC.52 TO 40000

SENDAD

IN .SEOP

RESTORE PC

STARTING ADDRESSES

.=200
002016
002(24

JMP
JMP

START
START1

cSTART PROGRAM W] THOUT CHANGING PARAMETERS
;START PROGRAM AND (HANGE PARAME TERS

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0C1-78 08:18
;tggg

30A(1052)

30-0CT-78
COMMON TAGS
.SBTTL

11:21

L 2
FAGE 25

SEQ 0024

COMMON TAGS

1270

127

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

}g;%
1276
1275
1276
1277
1278
1279
1280
1281
1282

1283
1284
1%32

001100

001100
001100
001102
001103
001104
001106
001110
001112

000000
000
000
000000
000000
Q00000
000000

1122

000000

001126

000000

1288

001124

1290
1291
1292
1293
1296

001130
001132
001134
001135
001136

1298
1299
1300
1301
1302
1303
1304
1305

001146
001150
001152
001154
001155
001156
001157
001160

000
000000
177570
177570
177560
177562
177564
177566
000
002
01
000
000000

1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320

001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001212
001213
001214

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

1322
1323

001216
001220

176710
000254

1289

1295
1296
1297

1306

1321

AR AN AR R R AR AR AR R AR

AN RN ANAANANRRREAANNRAS

;*USED IN THE PROGRAM,

001114
001115
001116
881120

1287

R AR R RN A AR AR AN

001140
001142
001144

$CMTAG:
$PASS:
$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:

000
001

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

O
O
O
O
0.
0
0

.WORD

000000

$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:

.BYTE
.BYTE
.WORD
.WORD

000000

$GDDAT:

.WORD

$8DADR:
$8DDAT:

000000

000

.WORD

O
1
O
O

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

]TEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION

;s CONTAINS °'GOOD‘ DATA

ADDRESS OF

°'GOOD' DATA

;;CONTAINS ADDRESS OF

;;CONTAINS

'BAD‘

°'BAD'

DATA

O
O
O
O
O

$TKB:
$TPS:
$TPS:
$NULL:
$SFILLS:
$FILLC:
$TPFLG:
$REGAD:

177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

0
2
12
0
O

;- INTERRUPT MODE INDICATOR
.
; sADDRESS OF SWITCH REGISTER
;;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS
;:TTY KBD BUFFER
;;TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;o INSERT FILL CHARS. AFTER A 'LINE FEED"
;. TERMINAL AVAILABLE'® FLAG (BIT<07>-0=YES)
2 :CONTAINS THE ADDRESS FROM

$REGO:
$REG1:
$REG2:
$REG3:
SREG4:
$REG5:
$REG6:
$REG7:
$REG10:
$REG11:
$BELL:
$QUES:
$CRLF:
$LF:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD:
.WORD
.WORC
.ASCIZ
.ASCII
.ASCII
LASCIZ

O
O
0
O
O
O
O
O
0
O
<207><377><377>
7%/
<15
12>

;2 CONTAINS ((SREGAD)+0)
22 CONTAINS ((SREGAD)
+2)
2. CONTAINS ((SREGAD)
+4)
2, CONTAINS ((SREGAD)+6)
;. CONTAINS ((SREGAD)+10)
;. CONTAINS ((SREGAD)+12)
2. CONTAINS ((SREGAD) +14)
2, CONTAINS ((SREGAD)+16)
;2 CONTAINS ((SREGAD) +20)
2. CONTAINS ((SREGAD) +22)
;;CODE FOR BELL
2 ;QUESTJON MARK
s ;CARRIAGE RETURN
;sLINE FEED

RPADR:
RPVEC:

.WORD
.WORD

74710
254

;FIRST ADDRESS OF RP11
JRP11 VECTOR ADDRESS

$INTAG:

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560

000377

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED

.WORD
.WORD
.BYTE
.BYTE
WORD

$AUTOB:

;;START OF
;s CONTAINS
;o CONTAINS
;s CONTAINS
;s CONTAINS
2 ;CONTAINS
;s CONTAINS
;;CONTAINS

NN NN R AR AR

. - RESERVED--NOT TO BE, USED

;;AUTOMATIC MODE INDICATOR

DSWR
DDISP

AR R AN A A A A

J;WHICH

(SREGO) WAS QBTAINED

R A T NN N R AR AN A RANR AR AR RN NN N AR

AR AR NN NN RN

.
\

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0CT1-78 08:18
1326
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334

001222
001226
001226
001230
001232
001234
001236
001240
001242
001244
001246

000240
172540
172542
000104
177546
000100
177777
000074
000000
000000
001100

1336
1337

00125¢
001254

000000
000003

1335

1338
1339
1360

1341
1342

1343
1344

}3}22

001250

001256

001260
001262
001264
001266
001270

001272

000000

001750
000000
000000
000000
000000

000000

30A(1052)

30-0CT-78
COMMON TAGS
RPPRIO:
$LKCSR:
$LKCSB:
$LPVEC:
$LKS:
$SLLVEC:
CLKFLG:
HZ:
CNTRLC:
LSTAD:
STACK1:

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

5+32,
172540
172542
104
177546
100
-1
74
O
0
STACK

PACK :
FAIRNS:

.WORD
.WORD

0
3

TIMOUT:
CHNGPM:
DRIVE:

,WORD
_WORD
.WORD
.WORD
.WORD

STATIN: .WORD

MAXCYL:

.
*
)

CYL.ER:
TRK.ER:

SEC.ER:

1347

1348
}ggg

LSBTTL

1351

AN AR AR

1352

1353
1354
1355

1356
1357
1358
1359

1360

1361

1362

1363
1364
1365
1366

1367

001274
001276
001300
001302
001304
001306

137100
022500
041100
000017
000001
000000

C01310

000144

001312

001314
001316
001320

000005

000004
000000
000003

m 2
PAGE 26

11:21

.WORD

1000.
0
0

0
0

PASCNT:
BUFRSZ:
MAXER:

.WORD

100.

.WORD

}%;9

1378

1379

R RN R AN

NN AN R ANA A RN RARRNRARE RS RN

CMPLMT: _WORD
SEKMOD: .WORC
RATIO:
.WORD

4
0
3

RN O N

6 251048 WORDS (10) (1x10~10 BITS)
MSW
1 X 10%6 SEEKS
(LSW)

MSW
M’BER OF PASSES TO END OF TEST
JMAXIMUM DATA TRANFER SIZE IN WORDS
J(FILLED BY PROGRAM AT STARTUP OR 8y OPERA"U?

DLRING PARAME TER ENTRY DIALOG.)
MAXIH.H ERRORS - 100(10)

.'LOU BYTE

IS PERFORMANCE

TYPEOUT

UPPER BYTE ]S VALUE.

INTFRVAL

JNUMBER OF COMPARE ERRORS TYPED 0UT
JIF EQ 1, END OF PASS DETERHINED BY SEEK C(OUNT
READ/UR]YE RATIO [RANGE 0 - 7)
,0 - 15/1
(READ/WRITE)

-2

1369
1370
1371

1375

NN AN A AN

;COUNTER.

1368

1372
1373
1374

J'W' OR 'R' COMMAND INDICATOR
;J'FAIRNESS' COUNT FOR BUFFER WAIT
SMAXIMUM CYLINDER ADDRESS ALLOWED FOR
JANY DRIVE TESTED.
(FILLED IN DURING STARTUP.)
JTIME (IN MS) ALLOWED FOR OPERATION
;1S NON-ZERQ IF PARAMETERS TO BE CHANGED
;STORE DRIVE NUMBER HERE
;STORE CYLINDER ADDRESS HERE
:STORE TRACK ADDRESS HERE

R AR AN AN AN AN AN AR R AN R AP NAAR AR RN AN R AR R RN AAANAAN AR AR

137100
22500
041100
17
1
O

INTRVL:

JERROR RATE DATA DISPLAY INDICATOR

CONTROL PARAMETERS

.WORD
WORD
.WORD
.WORD
.WORD
.WORD

ENDSEK:

;RP11 PRIORITY
ADDR OF KW11=-P STATUS REGISTER
ADDR OF KW11-P COUNTER BUFFER
,‘ADDR OF KW11=P VECTOR
;JADDR OF KW11-L STATUS REGISTER
;ADDR OF KW11-L VECTOR
"0' IF
A CLOCK IS AVAILABLE
;76 (8) IF 60 HZ SYSTEM; 62 (8) IF SO HZ SYSTEM
VECTOR ADDRESS FOR CWTROL C
.'C(NTAINS LAST MEMORY ADDRESS
JCONSTANT USED TO CHECK STACK POINTER

;STORE SECTOR ADDRESS HERE

AR AR RN AN AN R AN R AR AN

ENDCON:

SEQ 0025

2 = 6/2
;3 - 5/3%

4
;5 -4/
- 3/5

001322

007001

AIO(K:

,WORD

;6 = 276
7= 1/7
JIF EQ 1, DO A WRITE (HECK AFTER EACH ORDER

JIF EQ O, SELECT WRITE CHECK ORDERS RANDOML
Y

(e Tan]

N3 WNES
NP
—
~O£~O~O~08
BEERERHLEL

MUDR EXER MACY11

23-0C1-78 08:18

30A(1052)

30-0(7-78

11:21

PAGE

N2
27

RP11E ADDRESS LIMIT VALUES

.SRTTL

SEQ 0026

RP11E ADDRESS L IMIT VALUES

::ttt'ttfit.tt.tttttfifittifitfitttttttttQ.tt.ttt.t't.fi"..ttfittt..".

001324

000000

LC:

.WORD

001326
001330
001332
001334
001336

000000

FC:

.WORD

FT:

LWORD

.WORD

000000
000011
000000

LT:

LS:

FS:

WORD
.WORD

23
11

JMAX CYLINDER [RANGE 0 - 312 OR 625

(OCTAL)]

;THE PROGRAM WILL FILL THIS VALUE INITIALLY,
;THE VALUE WILL DEPEND ON THE TYPE Of DRIVE

JON THE SYSTEM - RP02 OR RPO3.
;MINIMUM CYLINDER

[RANGE 0 - <= L(]

JMIN

JMAX TRACK [RANGE 0 - 23 (OCTAL)]
TRACK

[RANGE

TO <= LT]

;MAX SECTOR [RANGE 0 - 11

JMIN SECTOR

[RANGE

(OCTAL)]

TO <~ LSJ]

;;ti.‘tfi.tlttt.ttttlttttt'ttt'tfi..tt.'.tttttt..tt'ifi..fi.t.tttt'tt

\GW

YS
N
W
ST W
S N
D WU
JON W

N NN NN WA

s e
e
B

$P11

LSBTTL

VALUES FOR FIRST OPERATION

;;ttl'ltttfi.ttfit..'tttt.tti.ttQQ.tt.'ttt.'fi.fittfitt.'t.t..t.tffittt

001340
001342

000010
000005

Bt OPAT:
BEGCOD:

_WORD
.WORD

10
5

JSTARTING PATTERN CODE
;STARTING COMMAND CODE

001344

000400

BEGSIZ:

.WORD

400

;STARTING RECORD SIZE

.PRELOADED

[RANGE

TO PERFORM A READ WITH

(OCTAL)]

IMPLIED

[RANGE &4 - MAXMEM]

JNOTE:
cIF THE

THE SIZE MUST BE AT LcAST 4,
SIZE IS GREATER THAN 1 SECTOR,

JWORDS

INTN

;SIZE MUST ALLOW FOR OVERLAPPING 4
THE

LAST

SECTOR USED.

THE

SEEK

B 3
CZRP1CO, RP11 MUDR EXER MACY11 30A(1052)
30-0CT-78 11:21
PAGE 28
CZRP1C.P11
ERROR POINTER TABLE
23-0CT1-78 08:18
1408

.SBTTL

1409
1410
1411

1448
1449

1450
1451

1452
1453
1454

1455
1456
1457
1458

1459
1460
1461
1462
1463

%
¥
»

Sevsn.w,

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

EM
DH
DT
DF

;;POINTS TO THE ERROR MESSAGE
;,POINTS TO THE DATA HEADER
;. POINTS TO THE DATA

;;POINTS TO THE DATA FORMAT

«
$ERRTB:

JFRROR 1
027020

EM1

032254

DT
DF1

DH1

JRP11

DIDN'T RESPOND TO ADDRESSING

JERROR 2
027062
030350
032002
032260

EM2
DH2
D12
DF2

S INVALID RP11 (OMMAND

EM3

JUNDEF INED INTERRUPT FROM RP11

:ERROR 3

027107
030365
032006
032260

DH3
DT3
DF2
JERROR &

000000
000000
000000
000000

QOO0

1444
1445
1446
1447

:
J*NOTE
;*NOTEZ2:

sUNUSED

QOO0

1443

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

s UNUSED

1436
1437
1438
1439
1440
1641
1442

CONTAINS THE

s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:~*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

1414
1415
1416
1417
1418
1419
1420

1432
1433
143%
1435

ERROR POINTER TABLE

;*THIS TABLE

1412
1413

1421
1422
1423
1624
1425
1426
1427
1428
1429
1430
1431

SEQ 0027

JUNUSED

JERROR 5

000000
000000
000000
000000
JERROR ¢

000000
000000
000000

CZRP1CO, RP11 MUDR EXER MACY11

CZRPI1C.P11
1464
1465
1466
1467
16468
1469
1470
1471
1472

001424

23-0C1-78 08:18

1479

1493

001426
001430
001432
001434

000000
000000
000000
000000

001436
001440
001442
001444

3
SEQ 0028

0
0
0
0

JUNUSED

027151
030402
032016
(032264

EM10
DH10
DT10
DFi0

JCAN'T MATCH DATA READ WITH A PATTTERN

JERROR 11
001446
001450
001452
001454

000000
000000
032012
032260

0
0
DT11
DF2

JSECOND LINE OF

'CAN'T MAT(CH DATA'

MESSAGE

;ERROR 12
001456
001460
001462
001464

027216
030402
032016
032274

EM12
DH10
DT10
DF12

:DATA (COMPARE ERRORS

;ERROR 13

1496
1497
1498
1499
1500

001466
001470
001472
001474

1503
1504
1505
1506
1507
}ggg

001476
001500
001502
001504

1510
1511
1512

001506
001510
001512

000000
000000
032030
032304

128;

0
0
DT13
DF13

;DATA COMPARE DETAIL

LINE

JERROR 14
000000
030561
032036
032310

0
DH14
DT14
DF 14

;DATA (OMPARE ERROR SUMMARY L INE

;ERROR 15

001514

027242
030607
032040

032314

1242
1517
1518
1519

ERROR POINTER TABLE

PAGE 29

;ERROR 10

}zgg

}2;2

11:21

:ERROR 7

}22?

1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492

30~-0CT-78

000000

42;2

1475
1476
1477
1478

30A(1052)

EM1S
DH15
DT15

J'ERR®

NOT

SET BUT

"RPER'

(ONTENTS NOT ZERO

DF15

;ERROR 16
001516
001520
001522

027315
030644
032050

EM16
DH16
DT16

<WORD COUNT NOT ZERO OR BUFFER ADDRESS WRONG

RIS NN S NNV =O000 O GRISERNRUNR WRI
= OO 00N

571

(U, 10,1V,]

032320

30A(1052)

30-0CT-78

ERROR POINTER TABLE

PAGE 30

3
SEQ 0029

DF16

JERROR 17
027371
030765
032066
032324

WM — o

001524

EM17
DH17
D117
DF17

;SOF TWARE TIMEOUT DURING POSITIONING

;ERROR 20
027435
036765
032066
032324

EM20
DH17
DT17
DFi7

;SOF TWARE TIMEOUT DURING /0

JERROR 21
001546
001550
001552
001554

027471
030765
032066
032324

EM21
DH17
DT17
DF17

;DRIVE OFFLINE

JERROR 22
001556
001560
001562
001564

027507
030765
032066
032324

EM22
DH17
D117
DF17

;DRIVE UNSAFE

JERROR 23
001566
001570
001572
001574

027524
031107
032114
032334

EM23
DH23
DT23
DF23

;SEEK INCOMPLETE

JERROR 24
001576

027544
031227
032134
032344

EM24

DH24
DT24
DF 24

JUNIBUS TRANSFER ERROR

JERROR 25

NN wvilaivaiuan VIV IV IV IV TV TV TV NV, [V )
(oA
VIV
WAL VAWV
S NN

dd—l—l-—J—l—l—l—a—‘—l—l—l—l—h__.—l-—l—‘—‘—d—l_‘—l—l—l—l—l—I_l-—l-I-J_J—J—J_A—J_J—'—l—l—._j—l—l—ld_l—l__.—l—ldd

N
TN AVIVIVIL )
mmmmmmmwmm& VIT
NWIANRNI
N NN RN NNn

CZRP1CO, RP11 MUDR EXER HACY11
CZRPIC.P11
23-0(7-78 08: 18

027572
031274
032146
032314

s CONTROLLER ERROR

JERROR 26
EM26
DH26
DTS6

JNON-EXISTENT DISK ADDRESS

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0CT7-78 08:18
1576
1577

1578
1579
1580
1581
1582

001624

30A(1052)

30-0CT7-78

ERROR POINTER TABLE

032350

PAGE 31

3
SEQ 0030

DF 26
;ERROR 27

001626
001630
001632
001634

EM27
DH2?7
DT27
DF27

027645
031406
032172
032354

;DATA ERROR

;ERROR 30

001636
001640
001642
001644

000000
031560
000000
000000

DH30

2SOFTM

ERROR REPORT LINE

0
. FRROR 3

001646
001650
001652
001654

000000
031573
000000
000000

JHARD ERROR REPORT L INE

;ERROR

001656
001660
001662
001664

JWRITE (HECK ERROR (NO DATA ERROR)

;ERROR
001666
001670
001672
001674

027722
031406
032172
032354

;WRITE (HECK ERROR (DATA ERROR BITS SET)

;ERROR

b e

D md amd md

OO (o, Yo Yo Yo Yo Yo Yo No Yo
e S Pl S Wi Sty
n Pt S G
OVOONOWVEBWN=O

)

1607

027660
031406
032172
032354

ed o

d o

027772
031606
032226
032364

JHEADER NOT

FOUND

JERROR

1621

030013
031406
032172
032354

sFORMAT

ERROR WHILE

SEARCHING

FOR

INITIAL

sERROR

001716
001720

030073

031606

HEADER NOT

FOUND,

sDOES NOT COMPARE

CYLINDER

IN HEADER

SECTOR

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT~78 08:18
1632
1633
1634

001722
001724

1637
1638
1639
122?

001726
001730
001732
001734

1644
1645
1646
1647
1648
1645
1650

001736
001740
001742
001744

030161
030765
032066
032324

001756

000000
000000
Q00000
000000

<
V]
0
0

000000
03173S
000000
000000

0
DH41
0
0

001760
001762
0017646

‘000000

031755
000000
000G00

001766

001770
001772
001774

030216

EM43

030765
032066
(032324

DH17
DT17
DF17

EM&L4

1674
1675
1676

002002
002004

032040
032314

DT15
DF 15

1679

002006

(002000

030607

}ggg

1682

1684

1685

1686

;RETRY UNSUCESSFUL

;ERROR SIGNALED BUT NO ERROR BITS SET

;ERROR 44

030257

1683

;RETRY SUCESSFUL

:ERROR 43

001776

1680
1681

JUNUSED

DH4L2
0
0

1672

;DIFFERENT ERROR DURING RETRY

:ERROR &2

}222

1666
1667
1668
1669
125?

EM37
DH17
DT17
DF17

;ERROR 41

1658

1665

D136
DF 34

:ERROR 4)

001746
001750
001752
001754

1662

SEQ 0031

:ERROR 37

1651
1652
1653
1654
1655
}ggg

1659
1660
1661

F.
3
30-0CT-78
11:21
PAGE 32
ERROR POINTER TABLE

032226
032364

}ggz

1642
1643

30A(1052)

DH15

JWRITE PROTECT VIOLATION

;ERROR 45
002010
002012

002014

030312

EM4LS

032354

DF27

031406
(032172

DHZ27
D127

;FORMAT ERROR DURING /0

.'."ttttt.'t'ttt‘tt'tttttttito.ttttitttttttttttttttttttt!t'tttt'tt

LSBITL

SETUP AND 'NITIA_1ZATION ROUTINE

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0(1-78 08:18

30A(1052)

1688
1689
1690

00126¢
1727777

START:

001262

3
SEQ 0032

START ADDRESS = 200
START ADDRESS WITH PARAMETER (HANGES = 204

;CLEAR 'START FROM 204'
*START THE PROGRAM
START1: MOV
#<1,CHNGPM
*SET 'CHANGE PARAMETER'
BEGIN:
RESET
*CLEAR EVERYTHING
LSBTTL
INITIALIZE THE COMMON TAGS

001100

176543
123456

000004
002160

177570
177570

177777

000030
000032
000034
000036
020610
020612

a3
RERK

001140
001142

000240
000240
033634
001213
177776
016746

000032
000036

yu2224

BNE
MOV

.=6
#STACK , SP

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

MOV
MOV

#SERROR, @¥EMTVEC ;:EMT VECTOR FOR ERROR ROUTINE
#3640 QNEMTVEC+2 ;:(EVEL 7

MOV

#340

MOV

001250
001157

MTRAPVEC+2; LEVEL 7

:;PRIME THE RANDOM NUMBER GENERATOR

MOV
MOV
MOV
MOV

@NERRVEC ,-(SP)
#648 SERRVEC
#DSWR , SWR
#DDISP.DISPLAY

;;SAVE ERROR VECTOR
::SET UP ERROR VECTOR
$:SETUP FOR A HARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER

BNE

668

S:BRANCH IF NO TIMEOUT

64%:

BR
Q?Y

65%
#65%, (SP)

*:BRANCH IF NO TIMEOUT
SYSET UP FOR TRAP RETURN

658

MOV

#SWREG, SWR

;;POINT TO SOF TWARE SWR

MOV

#2640, 3#EMTVE(+2 ;CHANGE EMT PRIORITY TO S

TYPE

LTITLE

(MP

66%:

1%:

MOV
MOV

MOV

*:TRY TO REFERENCE HARDWARE SWR

(IAND

TRAP OCCURRED

THE HARDWARE SWR IS NOT

#D]SPREG.DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VE(TOR

#2400, N TRAPVEC+2

;TYPE

;CHANGE TRAP PRIORITY TO S

THE PROGRAM NAME

AND MAINDEC NUMBER

#SCRLF ,1%8+2

BNE

67%

BNE

68%

MOVR

#1,8A TOB

JoSET AUTO-MODE

(LR
(LRA

STATIN
$TPFLG

;CLEAR PERFORMANCE SUMMARY
JOET TTY AVAILABILITY FLAG

(LR
PS
JSR
P{,STKINT
CET VALUE FOR SOF TWARE
TST
¥l

(MP

ggz:

#-1,35WR

MOV

géSUR

105037

#STRAP ,a#TRAPVEC > ;TRAP VECTOR FOR TRAF CALLS

MOV
#123456.SLONUM
::BOTH HIGH AND LOW WORDS
;:S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
$:EQUAL TO A "=1'', SETUP FOR A SOF TWARE SWITCH REGISTER.

000176

001134

#SWR,R6 ;.DONE’

#176563, $HINUM

LSBTTL

000042

005037

[NDICATOR

;:FIRST LOCATION TO BE CLEARED
:2CLEAR MEMORY LOCATION

MOV

176764

000176
000174
000004

000001

INDICATOR

#$CMTAG, R6
(R6) +

L:INITIALIZE A FEW VECTORS

000004
001149
001142

002166

001140

CHNGPM
BEGIN

MOV
CLR

(MP

001140

015614
000340
021010
000340

(LR
BR

::CLEAR THE COMMON TAGS (SCMTAG) AREA

081100

—=O V0o~

b‘\b:q}

D
d
D
d
D
=D
d e
b
D
)
D
e
b e
D ed
b e
ek
b
d
e

PAGE 33

';t.t"'.'t'.Qfittttt.'t"ttt"tttt'tittt'tttt.tttttttttttt"ttttt

NN NN NN NNNNNNNNSNNNNNNNNNNNNY
WWNWWWNNIND PIADPIPININININA)
= = b b wod —d —d 2 2 a O
WA= O000 NN
SO0 NN
W= OO

e
e
e
B md md e
D

NNNNNN

11:21

SETUP AND INITIALIZATION ROUTINE
H
;

1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705

30-0CT-78

SWR,#SWREG

68$

JCHANGE ‘TITLE® TO CR-LF

JRESET PROCESSOR PRIORITY
JINITIALIZE THE TTY KEYBOARD
SWITCH REGISTER
. cARE WE RUNNING UNDER XXDP/A(CT?

;;BRANCH IF YES

. 2SOFTWARE SWITCH REG SELECTED?

;JIBRANCH IF NO

;JGET SOFT-SWR SETTINGS
INDICATOR
INDICATOR

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0(C71-78 08:18
1764
1745
1746

1747
17648
1749

1750
1751
1752
1753
1756
1;22

002304
002310
002312
002316
002320
002326

002332
002340
002346
002354
002360
002364

012705
005025
022705

001374
013737
005437

012737
012737
012737
105037
005037
005037

30A(1052)

025450

2%:

025726
001240
010134

030060
030060
030060
001313
177776
001252

002370
002374
002376

005227
001013
004737

1763
1764
1765
1760
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784

002410
002416
002424
002432
002440
002446
002454
002456
002462
002470
002472
002476
002500
002506
002510
002516
002522
002524
002532
002540
002542
002550

012737
013737
012737
012737
013737
162737
000241
006037
022737
103003
105737
001004
162737
000403
162737
005737
001012
012737
023737
101403
013737
005737

010120
010124
010130

002402

002554

012737

001455

177777
033716

000137

SIZMEM:

002370

002424
034012
000001
033634
001244
033634

002372
001244
025604
025606
025610
025610

025610
037776

001244

1797
1798
1799

MOV
MOV
MOV
CLRB
CLR
CLR

#30060, HOUR
#30060,MINUTE
#30060,SECOND
INTRVL+1
PSW

2%
HZ,SIXTEE
SIXTEE

PACK

;START OF AREA TO CLEAR
;CLEAR
;LOOK FOR END OF CLEAR AREA

sBR IF NOT FINISHED
21/60 TH OR 1/50 TH SECOND COUNTER VALUE
cCONVERT TO 2'S COMP

JASCII '00' TO HOUR COUNTER
;ASCII '00Q' TO MINUTES COUNTER
;ASCII '00' TO SECONDS COUNTER
;CLEAR INTERVAL COUNTER
;CLEAR PROCESSOR STATUS
;'R* OR 'W' COMMAND INDICATOR

INC
BNE
JSR

#-1
1$
PC . $SIZE

MoV
MOV
MOV
MOV
MOV
SuB
CLC
ROR
CMP
BHIS
TSTR
BNE
SUR
BR
SuB
TST
BNE
MOV
cMP
BLOS
MOV
TST

H1$,SIZMEM+?
; SAME
$LSTAD,LSTAD
;SAVE THE HIGH MEMORY ADDRESS
#1 ,BUF TBL
;LOAD NUMBER OF BUFFERS
H#ENDPGM
BUF TBL+2
,STARTING ADDRESS OF BUFFER
LSTAD ,BUFTBL+4
;LAST ADDR TO BUFFER ALLOCATION TABLE
#ENDPGM
,BUF TBL+4
; SUBTRACT PROGRAM SPAC(E
;CLEAR THE 'C* BIT
BUF 1BL +4
;CONVERT TO WORD COUNT
#37776,LSTAD
;ONLY 8K ON THE SYSTEM ?
2%
;BR_IF BK OR LESS
41
;SEE WHO LOADED THE PROGRAM
3%
;BR _IF LOADED BY ‘'XXDP’
#100.,BUFTBL+4
;SUBTRACT ‘'ABS' LOADER SIZE
43
;CONTINUE WITH BUFFER SPACE SETUP
#1500, ,BUFTBL+4
;SUBTRACT ‘XXDP' LOADER SIZE
BUFRSZ
;VALUE IN 'BUFRSZ' ?
5%
JBR IF VALUE IS
#2816. ,BUFRSZ
;ASSUME FULL TRACK + 1 SEC MAXIMUM
BUFRSZ,BUFTBL+4 ;1S THAT TOO LARGE ?
5%
;BR_IF NOT
BUF TBL +4 ,BUFRSZ ;USE MAX AVAIL MEMORY AS MAX BUFFER SIZE
CHNGPM
; CHANGE PARAMETERS ?

MOV

1%:

000041
000144

025610

°2%:

002734
001306

(25610

3%:
4%:

005400
001306

001306
02567C

025610
001262

001306

1;3;

1789
1790
1791
1792
1793
1794
1795
1796

WASNLST RS
(RS) +
#BLKADR RS

SEQ 0033

JROUTINE TO DETERMINE BUFFER AREA SIZE

1759
1760
1761

};gg

MoV
CLR
CMP
BNE
MOV
NEG

010134

};2;

1762

H 3
30-0CT-78
11:21
PAGE 34
GET VALUE FOR SOF TWARE SWITCH REGISTER

5%:

BEQ

#1587, S1IMEM

(KADR

cFIRST START ?
:BR _IF NOT
;SEE HOW MUCH MEMORY ON SYSTEM

;CLEAR ENTRY TO '$SIZE'

JBR IF NOT

;PARAMETER ENTRY ROUTINE

002556
002564
002570
002574
002600
002602
002604
002610
002612
002614
002616

012737
104401
012704
012437
001435
000402
104401
104401

000000
011405
011546

002662
033364
033266
002612

001213

001242

ENTPAR: MOV
ENTPR:
TYPE
MOV
1%:
MOV
BEQ
8R
2%:
TYPE
3%:
TYPE
08

.WORD
MOV
MOv

HENTPR1 ,CNTRLC
. ASKPAR
HPARLST R4
(Re)+,4%
ENTPRZ
3%
.SCRLF
0

(n’),RS
(RS) ,=(SP)

;CONTROL C RETURN ADDRESS
; 'ENTER PARAMETERS'
JENTRY PARAMETER LIST TO R4
JADDRESS OF PARAMETER NAME
;BR IF AT END OF TABLE
;JGET AROUND THE CR-LF
;CR-LF
s TYPE THE PARAMETER NAME
JADDRESS OF

PARAMETER NAME

TEAT

JADDRESS OF PARAMETER LOCATION
;CONTENTS OF PARAMETER LOCATION

ZEERIRERES
OVONOWNES
WA =O

b
d
nd
ed
—

d el md

i cnd

d e
—

b e

goooooomoooooooooooo

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0CT1-78 08:18

1821

104402
104401
104411

012601
004037
002604

30A(1052)

11:21
PAGE
35
GET VALUE FOR SOF TWARE SWITCH REGISTER
TYPO(

032471

TYPE
RDL IN

MOV
JSR

012010

.SPACE1

(SP) + ,R1
RO, CK.NUM

5%
7%
6%
5%:
6%:
7%:

00°700

ENTPR1:

176244
177776

ENTPRZ2:

177776

005037
012706

30-0(T-78

001100

ENTPRZ

MOV
TST
BR

;TYPE

SEQ 0034
THE

CURRENT VALUE

;1 SPACE
JREAD THE KEYBOARD

;BUFFER ADDRESS
s CHECK THE NUMBER

s ILLEGAL INPUT

;TERMINATED WITH A 5%
s TERMINATED WITH A .’
:NO ENTRY - TERMINATED WITH A 5%
R2, (RS)
(RG) +
1%

;NO ENTRY - TERMINATED WITH A '.'

sMOVE NEW VALUE TO PARAMETER LOCATION
s INCREMENT THE PARAMETER POINTER
;GET MORE PARAMETERS

MOV

R2, (RS)

sNEW PARAMETER VALUE

MOV
CLR

#STACK,SP
PSW

JRESET THE STACK POINTER
;CLEAR THE STATUS WORD

CLR
CLR

a$TKS
PSW

BR
B8R

MOV

ENTPR?Z

ENTPR

#STACK, SP

; CONT INUE

sSTART WITH PARAMETER ENTRY AGAIN
;CLEAR THE KEYBOARD INTERRUPT
;CLEAR PROCESSOR STATUS

JRESTORE STACK POINTER FOR RESTART

;CHECK THE PARAMETERS FOR VALIDITY
012737
005777
012737
000411
012737

002732

000004

000006

000004

000006

000004

013700

000042

104G01

176274

001703
000137
004737
012737
012737
005737

000312
02i112

001403
012737
005737

000625
001324

001256

001256
001262
001306

001324

000004

001306

003634
021304

177777

021122
061256

025610

CKADR:

1¢:

2%:

3%:
4%

033471
003256
001306

001344

6%:

001306
001256

001344
001324

(KPAR:

033521

5%-

MOV
TST
MOV

#1% ,ERRVE(
s CHANGE TIMEOUT RETURN
aRPADR
;SEE IF RP11 RESPONDS
W#ERRVEC+2 ERRVEC
;RESET THE TIMEOUT VECTOR

MOV
ERROR

N#ERRVEC+2 ,ERRVEC
;RESET TIMEOUT VECTOR
1
JREPORT RP11 DIDN'T RESPOND

iST

DRVTYP

sSEE WHICH DRIVES

BEQ
MOV
TST
BNE

3%
#605. ,MAXCYL
LC
4%

JBR IF RPO2'S
;CYLINDER LIMIT FOR RPO3'S
sVALUE ENTERED IN 'LC' ?
;BR_IF ONE WAS

MOV
BEQ
JMP
JSR
MOV
MOV

JCONTINUE WITH CHECKING

W42 ,RO
ENTPAR
$ENDAD
PC,RPINIT
#-1,SAVEFG
#202. ,MAXCYL

;'CHAIN MODE ' OR °‘ACT11' ?
s1F NOT = GO TO ENTER PARAMETER ROUTINE
JRETURN TO MON]ITOR
JINITIALIZE THE RP11 HANDLER
sSET THE °'SAVE REGISTER' FLAG
;START CYLINDER LIMIT AT RPO2 LIMIT

;ON SYSTEM

(RPO2 OR RPO3)

MoV
(LR

MAXCYL,LC
CHNGPM

JUSE MAXIMUM VALUE
;CLEAR CHANGE PARAMETERS

(MP

BUFRSZ
,BUF TBL+4

;REQUESTED TRANSFER SIZE

BH]
CMP
BLOS
MOV
JMP

cMP
BHIS
MOV
(MP

BHIS
MOV

5%
#4 ,BUFRSZ
6%
#PAR1,~(SP)
BADPAR
BUFRSZ ,BEGSIZ
CKPAR
BUFRSZ ,BEGSIZ
MAXCYL,LC
12
#PARG - (SP)

ARE

INDICATOR
100 LARGE 2

;BR _IF REQUESTED MAXIMUM TOO L ARGE
;SEE IF MAXIMUM TRANSFER SIZE TOO SMALL
;BR IF NOT TOO SMALL
;ADDR OF PARAMETER NAME

JREPORT THE PARAMETER ERROR

;1S MAX RECORD LENGTH SMALLER THAN 1 SECTOR ?
:BR _IF NOT
;USE MAX RECORD SIZE AS STARTING SIZE
sJMAXIMUM CYLINDER ADDR TOO LARGE ?
JBR IF NOT
;ADDR OF PARAME TER NAME

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0C71-78 08:18
1856
1857

003112
003116

000137
023737

003256
001326

1859
1860

003126
003132

012746
000137

033525
003256

003144
003146
003152
003156
003164
003166
003172
003176
003204
003206
003212
003216
003224
003226
003232
003236
003244
003246
003252

103004
012746
000137
023737
103004
012746
000137
022737
103004
012746
000137
023737
103004
012746
000137
022737
103016
012746
000137

1858

1861

1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
133?

003124

003136

103004

022737

001326

1%:

000023

001330

2%:

033531
003256
001330

001332

3s:

033535
003256
000011

001334

4%:

033541
003255
001334

001336

S$:

033545
003256
000007

Q01320

6$%:

033577
003256
;REPORT

003256
003262
003266
003270
003272
003276

012637
104401
104401
000000
104401
000137

003270
033411
033441
002556

BADPAR
LCFC

;REPORT PARAMETER ERROR
sMAX CYLINDER LARGER THAN MIN CYLINDER

MOV
JMP

#PARS ,-(SP)
BADPAR

;ADDR OF PARAMETER NAME
JREPORT PARAMETER ERROR

BHIS
MOV
JMP
MP
BHIS
MOV
JMP
(MP
BHIS
MOV
JMP
(MP
BHIS
MOV
JMP
cMP
BHIS
MOV
JMP

33
#PARG, - (SP)
BADPAR
LT FT
2
H#PAR7 ,~(SP)
BADPAR
#9.,LS
5%
#PAR8, - (SP)
RADPAR
LS.FS
6%
#PAR9, - (SP)
BADPAR
#7 ,RATIO
SETVEC
#PAR14 ,~(SP)
BADPAR

BHIS

#19.,L7

JBRIF

IT IS

sMAXIMUM TRACK ADDRESS TOO LARGE

003302
003306

005227
001404

1897

003316

001064

003310
003320
003322
003326
003332
003336
003340
003342
003344
003350
003354
003356
3360
003366
003370

032777
005004
012703
104401
104401
010446
104403
001
104401
105764
001405
100413
012737
000412
012737

177777

000200

SETVEC:

175622
9%:

000010
001213
032615

1%:

000
032466
021102

032525
032514

003442
R
003442

2%:

JBR IF NOT
;ADDRESS OF PARAMETER NAME
;REPORT PARAMETER ERROR
;SEE IF MAX TRACK ZQ OR LARGER THAN MIN TRA(K
:BRIF IT IS
JADDRESS OF PARAMETER NAME
JREPORT PARAMETER ERROR
;SEE IF MAX SECTOR TOO LARGE °
:BR_IF MAX SECTOR OK
;ADDRESS OF PARAMETER NAME
JRECPORT PARAMETER ERROR
SMINIMUM SECTOR ADDRESS TOO LARGE
JBR IF NOT
;ADDRESS OF PARAMFTER NAME
JREPORT PARAMETER ERROR
:SEE IF R/W RATIO TOO LARGE
JBR IF NOT
JADDRESS OF PARAMETER NAME
JREPORT PARAMETER ERROR

THE BAD PARAMETER

(SP)+,1%
.NGPAR

;MOVE PARAMETER NAME
. 'BAD PARAMETER'

0
.REPAR
ENTPAR

JPARAMETER NAME
s '"REENTER PARAMETERS
;GO THROUGH PARAMETER ENTRY ROUTINE

;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE
;
PROGRAM WILL USE

1894
1895

1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911

SEQ 0035

JMP
MP

BADFAR: MOV
TYPF
TYPE
1%:
.WORD
TYPE
JMP

1891
}gg%

1896

30-0CT-78
11:21
PAGE 36
GET VALUE FOR SOFTWARE SWITCH REGISTER

}gg%

1884
1885
1886
1887
1888
1238

30A(1052)

INC
BEQ
BIT
BNE
CLR
MOV
TYPE
TYPE

MOV
TYPQS
BYTE
TYPE

TSTB
BEQ
B8MI
MOV
BR
MOV

4-1
9%
#SW07,aSWR
8%
R4
#8. ,R3
.SCRLF
. SYSTAT

JFIRST START ?
SBRIF IT IS
JSWITCH 6 SET ?
:BRIF SETY
:DRIVE TABLE POINTER
JITERATION COUNTER
;CR=LF
s TYPE STATUS HEADING

1,0
. SPACES
DRVSTA(R4)
2%
3%
#UNTON, 6%
4o
HUNTOFF 6%

JSEE WHAT DRIVE'S STATUS IS
;BR IF OFFLINE OR NOT PRESENT
JBR IF UNSAFE
:MESSAGE ADDRESS
;DETERMINE DRIVE TYPE MESSAGE
;OFFLINE MESSAGE ADDRESS

R4 ,=(SP)

;DRIVE NUMBER FOR TYPEOUT
;TYPE THE DRIVE NUMBER .

s SPACES

012737

N
no

AOPNONINON)
= 2D D b b 3 2 3
VYN
= ONO 0O NN N S NN

NO O O O OO OO OGO O OO0

CZRP1CO, RP11 MUDR EXER MACY;1
CZRP1C.P1
23-0CT-78 08:1

30A(1052)

032471

003452

032605
032473
021274

003442
003452
021112

032500

003452

032466

30-0CT-78

GET VALUE FOR SOF TWARE SWITCH REGISTER

3%:

5%:
6%:
7%:

001213

8%:

033202

BITB
BEQ

MOV
TYPE
.WORD
TYPE
TYPE
.WORD
TYPE
DEC
BEQ

JSR

CLR

105737

000041

000007
003566
003572
003576

003602
003606

000137

013700

2%:

JMP

;"XXDP'

'ACT11'

END OF

42.R0
1%
MAIN1T
#$ENDAD ,RO

$ENDAD

000002

$DOAGN

$ENDAD:

002016

‘'ACT11'

MAIN1

004046

177777

#8. ,R3
R4
41
1%
47,61
1%
R4
#7.R3
PC,ASGN2

1¢:

1%:

JTYPE

MOV

000007
010472

004046
003634

$DOAGN:

;TYPE

PC, (RO)

NOP
JMP

RPQO2

THE

IDENTIFYING MESSAGE

;DECREMENT THE ITERATION COUNTER
:BR IF END
; INCREMENT TABLE POINTER
2 CONTINUE

CMPB
BNE
INC
MOV
JSR

$CET42:

:'RPO3’

.SPACE4

TSTR

000042

;MESSAGE ADDRESS HERE
;SPACES
;TYPE THE DRIVE TYPE MESSAGE
:gglrg TYPE MESSAGE GOES HERE

TST

BEQ

G00041

'XXDP'

CLR

TYPE

;BR [F

PSW»

BEQ

;SEERUHICH DRIVE

$
#RP03,7%

HDORTI,CNTRLC
#KSR, TKVEC

MOV

000010

;ASSUME RP0O2

éTABIT(RA).DRVTYP

TYPE

MOV

JUNIT UNSAFE

#RPO2,
7$

JSR

001242
000060

MONTR:

;DUMMY ME SSAGE

INC
B8R

MOV

SEQ 0036

JPRINT

#NOTSAF 6%

MOV
MOV

177776

000042

ggPACE1,7$

MOV
BR

JSET UP IF
005737
001417
012703
005004

K_3
PAGE 37

11:21

START

“INITIALIZE

COMPLETE®

;START CLOCK IF ONE ON SYSTEM
;SET PRIORITY TO KEYBOARD LEVEL
JINITIALIZE THE KEYBOARD INTERRUPT HANDLER
;ADDRESS [F °'CONTROL C*
. CHANGE KEYBOARD VECTOR ADDRESS
;LOWER PRIORI]ITY

OPERATION

J'XXDP' CHAIN MODE OR 'A(T11' AUTO ACCEPT
;BR IF NEITHER
;DRIVE COUNTER
;DRIVE POINTER
;SEE WHICH = *XXDP* OR 'ACT11' ?
;BR IF 'ACT11°' CONTROL
;1S RPO2 OR RPO3 THE LOADING DEVICE ?
;BR_IF NOT
;SETUP TO BYPASS DRIVE 0
;DRIVES TO TRY TO ASSIGN
;ASSIGN ALL AVAILABLE DRIVES (EXCEPT DRIVE
;0 IF LOADED FROM AN RPO2 OR RP03)
s SFART

THE PROGRAM

TEST ROUTINE

JMONITOR ADDRESS
JBR IF MONITOR ADDRESS

JNCONE,

CONTINUE

;1S MONITOR 'ACT11®

sNO, BRANCH
JYES, IF THIS LAST PASS

<NO, MAKE ANOTHER PASS
JCLEAR EVERYTHING
;GO TO THE MONITOR
;SAVE ROOM
JFOR

JACT
N

;START AGAIN

CZRP1CO, RP11 MUDR EXER MA(CY]
CZRP1C.P11
23-0CT-78 08:18

1 30A(1052) 30-0CT-78 11:21 PAGE %8

GET VALUE FOR SOF TWARE SWITCH REGISTER

1968
1969
1970

1976
1977
1978

SEQ 0037

""tttttttt..tfitttfitl‘ttt'ttittt!tt't.t'i.ittttttfitttttttfittttfittt

1971
1972

1973
1974
1975

.SBTTL

MAIN PROGRAM

;"ttttiltfifitittttkatttttttttfitttltttttfitttfittitttttit*tttll'tttttfi
005737
001410
032777
001004
005037
004737

001250
000100

MAIN;

175254

001250
007116

TST

BEQ
8IT
BNE
(LR
JSR

STATIN

;TYPE ERROR RATE

MAINO
#5W06, 3SWR
MAINO
STATIN
PC,STATPR

STATISTICS

*BR IF NOT
“CHECK SWITCH 6
:BR IF SET
:CLEAR THE INDICATOR
STYPE THE STATISTICS

:LOOK FOR DRIVES TO BE DEASSIGNED
012703
012705
005715
001011
062705
005393
001372
005737
001047
000137
012701
005711

000010
025474

MAINO:

000002

2%:

1%:

000
033057
007230
006640

3¢
#2 RS
R3
1%

3¢

4$:

(RS)

ASNLST

$GET42
, #AVAIL.R®

BEQ
TMM
BEQ
ADD
BR
MOV
ST
BEQ
(MP
BEQ

5§
(R1), (RS)
7%
#2,R1
53
MIATT R1
(R1)
2%
(R1), (RS)
7

SUNIT COUNTER
*ADDRESS OF °'DROP UNIT'

TABLE

“SEE IF ENTRY AT PRESENT POSITION
:BR IF THERE IS ONE
“INCREMENT TO NEXT TABLE POSITION
*DECREMENT UNIT COUNTER
:BR IF MORE TO CHECK

SANY DRIVES STILL RUNNING ?

MAIN1

JMP
MOV
TST

5¢:
6%

000002

001213
007624
032505

BNE
ADD
DEC
BNE
BNE

000002
025562

48. .
#DUNIT

1£31

025450
003602
025540

MOV
MOV

:BR IF ANY ARE - CHECK

ASSIGN QUEUE

SCHECK FOR MONITOR RCTURN
*ADDRESS OF 'AVAILABLE' UNITS TABLE

(R1)

*SEE

AT END OF

TABLE

:BR IF AT END: GO CHECK 'WAIT' TABLE
SIS UNIT IN 'AVAIL' THE ONF TO BE DROPPED
‘BR IF YES
S INCREMENT 'AVAIL' TABLE ADDRESS
:CONTINUE LOOKING
*MOVE THE ADDRESS OF THE BUFFER WAIT TABLE
AT THE END OF THE 'WAIT' TABLE 2
:BR IF YES: SEE [F ANY MORE ‘'DROP' REQUESTS
SUNIT IN THE *WAIT® TABLE 2
BRIFIT IS

ADD

#2 ,R1

S INCREMENT

MOV
TYPE

(R1) ,RO
,$CRLF

SPUT THE UNIT'S BLOCK ADDRESS
“CR-LF

JSR

PC.$TIME

MOVR

(RO),=SP)

TYPE

TYPOS

LUNTMSG

BYTE

1,0

JSR

PC.TYPEST

CLR
JSR
8R

(R1)
PC,CMPRES
2%

TYPE

(LR

*WAIT'

TABLE ADDRESS

*CONTINUE LOOK THROUGH THE °'WAIT® TABLE
STYPE

THE

:'DRIVE®

TIME

IN RO

:DRIVE NUMBER

STYPE

,DEASSG

;'DEASSIGNED®

(RS)

SCLEAR THE °‘DROP UNIT' TABLE ENTRY

;LOOK FOR DRIVES "" BE ASSIGNED

STYPE

THE DRIVE'S PERFORMANCE

SUMMARY

*REMOVE THE UNIT FROM THE 'AVAIL'
:COMPRESS THE RESPECTIVE TABLE
“SEE IF ANY MORE UNITS

'WA[T®'

TABLE

2026 004046
2025 004052
2026 004054
2027
. 004056

012703
005002
005004
005005

2029
2030
2031
2032
2033
203
2035
2036
2037
2038
2039
2040
20641
2042
2043
2045
2045
2046
2047
2048
2049

001006
062705
005204
005303
001370
000472
104401
004737
104401
010446
104403
001
104401
005762
001403
062702
000772
016562
005065
156437
016200

2028

2050
2051
2052

2053

2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068

2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079

004060

004064
004066
004072
004074
004076
004100
004102
004106
004112
004116
004120
004122
004126
004130
004134
004136
004142
004146
004152
004156
004164
004170
004176
004204

004212

004220
004226
004232
004240
004246
004252
004260
004264

0046266
004272
006274

004276
004302
004304
004310
004314
004316
004322
004326
004330
004332
00433

005765

113760
113760
013760

000010

000002

MAIN PROGRAM

1%:

MOV
CLR
CLR
CLR
TST

BNE
ADD

2%:

001213
007624
032505

TYPE

000

4%:

TST

000002

025516
025516
021274
025540

11:21

PAGE

JUNIT COUNT

JASSIGN LIST

R?2

RS
NEWUNT (R5)

;DECREMENT UNIT COUNT
;BR IF MORE UNITS

[NDFX

;START OPERATIONS FOR THE AVAILABLE UNITS
;CR=LF

JUNTMSG

J'DRIVE'

PC.STIME

1.0
LASGND
AVAIL (R2)

:TYPE

THE

;DRIVE
JTYPE

TIME

NUMBER

s "ASSIGNED'
;AT END OF AVAILABLE

TABLE

. INCREMENT AVAILABLE

TABLE

;BR IF

YES

[NDEX

JCONTINUE LOOKING FOR END OF
;MOVE ADDR OF

UNIL

TABLE

INTO AVAIL

NEWUNT (RS)

cTAKE UNIT OUT OF NEW UNJT TABLE

AVAIL (R2) ,RO

;PUT STARTING ADDRESS OF BLOCK

;SET UNIT ASSIGNED INDICATOR

SINITIAL SECTOR VALUE
FT.$TRK(RO)
JINITIAL TRACK VALUE
FC.$CYL(RO)
SINITIAL CYLINDER VALUE
BEGCOD, SCOMND (RO)
JINITIAL COMMAND (ODE

ASLB
MOV

MOV
NEG
MOV
ADD
BR

MAINZ:
1%:

025540
000022

)

IST
BNE
(LR
TSY
BEQ
MOV

BEGPAT ,SPATT C(RO)
PATTERN CODE
$PATT(C (RO)
s CONVERT CODE TO A TABLE INDEX
;BEGINNING RECORD SIZE
BEGSIZ, SWRDL (RO)
BEGS]Z, SWRDM(RO)
:VALUE FOR DATA TRANSFER
$SWRDM(RO
JMAKE IT INTO 2°'S COMPLEMENT
FAIRNS,$FAIR (RO)
;LOAD FAIRNESS COUNT

2 ,R2

2%:
3%

WA]T

AND START ORDERS FOR DRIVES

T1SIR

AVAIL (R?2) ,RO
$PACK (RO)

.CONTROL BLOCK ADDR IN RO

JSR

PC,WRTPK

.GET

-(SP)
Fo,GE TBUF

<MAKE ROOM ON THE STA(K FOR
JOET BUFFER
,MOVE BUFFER ADDR TO DPB

B8R

JSR
(LR

JSR
MOV

3s
PC,GE TPAR
(SP)+ ,$8BUF (RO}

IN RO

;OUTSTANDING BUFFER REQUESTS

;BR IF

RZ
AVAIL (R2)
IDLE

LST

s INCREMENT °‘AVAILABLE' TABLE POINTER
;LOOK FOR MORE UNITS

MAIN3

B8EQ

006322

004710
000006

;INCREMENT ASSIGN

MAINZ
,SCRLF

;GET PARAMETERS, BUFFER SPACF,
THE 'AVAILABLE' QUEUE

005502

THERE IS

R3
19

FS,$SEC(RO)

000064

025540

;BR IF

ATABIT(R4) ,ASNLST

000012
000013
000010
000007
000026

INDEX

JNEW UNIT INDEX
JNEW UNIT [N THIS POSITION

NEWUNT
(RS5) ,AVAIL(R2)

025450

INDEX

; INCREMENT RS

(4 3

000020
000004

025562

;"AVAIL'

#2,R5

#2,R2

025540

SEQ 0038

#8. .R3

R4 ,-(SP)

033121
025540

113760
106360
013760
013760
005460
013760
062702
000700

005762
001507
016200
105760
001403
004737
000402
004737
005046
004737
012660

30-0(1-78

MAINT:

025516

113760

.
005737
001061
005002

30A(1052)

THERE ARE

;CLEAR "AVAIL' TABLE POINTER
JANY UNITS WAITING FOR PARAME TERS
;BRANCH IF NONE

;'R OR ‘W' COMMAND FOR THE DRIVE
;BR IF NOT

DATA PA(CK PARAMETERS

JGET THE BUFFER
JLOAD NEW PARAME TERS

THE

BUFFER ADDR

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.A1T
23-0CT-78 08:18

CZRP1CO, RP11 MULR EXER MACY11

CZRPIC.P11

2080
2081
2082
2083
2084
2085
2086
2087
2088
2089

23-0CT-78 08:18

004342
004344
004350
004354
004360

001755
004737
005060
004737
012705

004
004374

30A(1052)

30-0CT-78
11:21
MAIN PROGRAM

005274

BEQ
JSR

0056426

JSR

PC.GODRIV

ST
BNE
MOV

(RS)+
=2
RO.~-(RS)

(LR

025452

000064

MOV

B8R

025562
025540
005540

6% :
LY
8% :

006640

004450

004456
004462
004466

013700
005046
004737
012660
001002
000137
004737
004737

)

RN R R R AN NS 0a IR TR

) e —d e

d v

)

b o

ANONNLNLIAL AL AL ALNINIALNL NN NV ALNINI NN AL ML N NNV NI NI AL NI ND AN

23 B8RIRS

2102

02556/

0056424

BR
MOV

18
MJIA]T RS

B8NE

D
)

—

2388822
g
SR

\I&O\\h\hl\l\l\
WNPNONY
noOVNLON J\O&NOON
~o

MOV
MOV

AVAIL (R2),=(RS)
#AVAIL ,R1

JSR
BR

PC.CMPRES
1%

ADD

R2.R1

. TABLE ADDRESS

;AT END OF TABLE °
;BR IF NOT
;MOVE ENTRY FROM AVAILABLE

)

;TABLE TO COMPRESS

;FORM TABLE POSITION

;MOVE THE

‘'WAIT' ENTRY T0 RO

PC,
GE TBUF
(SP)+ ,$BUF (RO)
1%
IDLE
PC.F ILBUF

;TRY

TO GET A BUFFER

1%:

JSR
MOV
BNE
JMP
JSR
(LR
MOV

$FAIR(RO)
#ORDERQ
RS

cPUT

THE

B8NE

;AT

END OF

(LR

JSR
ST

MOV
MOV
JSR
BR

IDLE:

- (5P}

PC.GODR]V
(RS)
+

RO, -(RS)
MIAIT R
PC.CMPRES
MAIN?

FOR AN ORDER

#ORDERQ,R1

BEQ
ST
BEQ
SUB

3¢
$TATUS (RO)

#2.R1

JSR
JSR
JSR
JSR
JSR

PC.STATIS
PC_PROCES
PC .RELBUF
PC . ABNRML
PCNRML

MOV

JMAKE ROOM ON THE

QUEUE

STACK FOR

THE BUFFER ADDR

;MOVE THE BUFFER ADDR TO THE DPB
cBR IF A BUFFER WAS ASSIGNED
JNO BUFFER AVAILABLE YET
JFILL THE BUFFER
ENTRY

[N THE

DRIVER

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

QUEUE

;BR IF NOT
cPUT BLOCK ADDRESS IN QUEUE
. TABLE ADDRESS
;COMPRESS THE WAIT TABLE
;LOOK FOR MORE ENTRIES

TO FINISH

MOV

T0 WA]T

. COMPRFSS THE INDICATED TABLE
JCONTINUE PROCESSING

WAIT,RO

)
d
d
D
)
b
d wnd e
—h ed wmd el md —h ed

004616
012364
005046
011276
011324

(R5)+

JPUT BLOCK ADDRESS [NTO QUEUE
JCOMPRESS THE ‘AVAIL' LIST
;DECREMENT THE °‘FAIRNESS' COUNT
JENTRY WAITING FOR BUFFFR PAST L IM]T
; INCREMENT THE 'AVAILABLE TABLE' POINTER
JCONTINUE LOOK ING

MOV

;WAIT

000002

(R2)
+

;BR IF NOT

MAIN3:

025562
006640

000016

JBR IF 0 ADDR (NO BUFFER)
JFILL THE BUFFER
;CLEAR THE °'FAJRNESS' COUNT
JPUT CURRENT DPB IN DRIVER
;ADDRESS OF ORDER QUEUE IN RS
JEND OF QUEUE ?

°‘BUFFER WAIT'

000064
025452

025452

#ORDERQ,RS

SEQ 0039

;GET BUFFER ASSIGNMENTS FOR DRIVES IN THE

004710
000006

004522
005274

$FAIR(RO)

$FAIR(RO)
63

TST

1%
PC.F ILBUF

DEC
BEQ
ST

004436
004442

PAGE 40

(R1)+,R0

R1.-(SP)

($5)
¢, R1

;ADDRESS OF THE ORDER QUEUE IN R1
;PUT BLOCK ADDRESS INTO RO
;BR IF END OF QUEUE
JSEE IF UNIT FINISHED
JBR IF UNIT NOT FINISHED
;CORRECT THE QUEUE POINTER
;SAVE THE QUEUE ADDRESS
sJACCUMULATE STATISTICS FOR UNIT IN RO
;PROCESS END OF ORDER

JRESTORE

THE BUFFER

sSEE IF ANY UNITS HAVE TOO MANY ERRORS
;SEE IF ANY UNIT HAS XFERED 3x1049 B]TS
JRESTORE THE ORDER TABLE INDEX

CZRP1CO, RP11 MUDR EXER MACY11 30A(1052)
30-0CT-78 11:21
CZRPI1C.PIN
23-0(7-78 08:18
MAIN PROGRAM
2136
2137
2138
2139
2160
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2156
2155
2156
g;gg

004574
004600
004602
006604
004606
006€12

004616
004624
004632
004634
004640
004646
004650
004656
004662
004670
004672
004700
004704

016037
166037
001413
006237
132760
001405
063760
005560
026060
001405
062760
005560
000207

2159

004706

000000

2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172

2173
2174

012705
005725
001376
011145
004737
000137

2%:

006640
003650

3$:

MOV
TST
BNE
MOV
JSR
JMP

4
SEQ 0040

NAVAIL RS

;FIND THE END OF

PC,CMPRES

;COMPRESS

(R5)+
2%
(R1), =(RS)

MAIN

THE

'AVAILABLE'

TABLE

JEND OF THE TABLE
?
:BR IF NOT AT END OF LIST
;MOV THE BLOCK ADDRESS INTO THE TABLE
THE ORDER QUEUE

:(ONTINUE THE LOOP

;ROUTINE TO UPDATE THE GENERAL STATISTICS FOR THE DRIVE IN RO
000076
000006
004706
000004
004706
000046
000010
000001
000042

004706
004706,
000002
000044
000106
000040

STATIS: MOV
SuB
BEQ
ASR
BITB
BEQ
ADD
ADC
1%:
cMP
BEQ
ADD
ADC
2%:
RTS

$RPBA(RO) ,FACTOR
;STORE THE FINAL BUFFER ADDRESS
$BUF (RO) ,FACTOR ; SUBTRACT THE INITIAL ADDRESS

#1,.8P0SIT(RO)

-INCREMENT SEEK COUNT

FACTOR:

;JUSED FOR WORDS TRANSFERED

.WORD

FACTOR

:BR IF NO DATA TRANSFER

. CONVERT TO A WORD COUNT

#31T02,$COMND (ROS

;READ OR WRITE ORDER ?

18
:BR I IF WRITE
FACTOR,SREAD(RO)
;UPDATE THE READ WORD COUNT

$READ+2 (RO)

$CYL(RO) ,$SUCA(RO)
:DID MID-TRANSFER SEEK OCCUR
2
:BR
1F NOT
;Fgosmz(nm

YADD CARRY TO UPPER WORD

;:ttttttfltti't**t'ttt**"t'ttt*tktififi*tttt*ttti*titttittttttfitt't

.SBTTL

BUFFER SUPPORT ROUTINES

;;*t**ti*itttittitttifittttt'fiitttitt'tt'fitttttitttt*tittfiitfitifi't

JROUTINE

004710
004712
004714
004716

004722
004724

010146
010246
010346
013702

001413
012701

2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188

004730
004736
004740
004742
004744
004750
004752
004754
004756
004760
004762
004766
004774
004776

026061
101411
005302
001403
062701
000767
012603
012602
012601
000207
011166
166061
001407
006360

2191

005Q12

000757

2189
2190

025540

PAGE 41

005002
005006

066011
006260

GETBUF: MOV
MOV
MOV
MOV

025604

025606
000020

000002

000004
5%:

000010
000020
000020

000020
000020

TO GET A BUFFER

000002

BEQ
MOV

CMP
BLOS
DEC
BEQ
ADD
BR
MOV
MOV
MOV
RTS
MOV
SuB
BEQ
ASL
ADD
ASR
BR

R1,-(SP)

;SAVE R1

R2.-(SP)
R3,-(SP)
BUF TBL ,R2
5%
#BUF TBL +2,R1

:SAVE R?
;SAVE R3
;NUMBER OF SEPARATE BUFFERS
:BR IF NONE AVAJLABLE
sFIRST ADDRESS OF ALLOCATION TABLE

;DECREMENT TABLE COUNT

$WRDL
(RO) ,2(R1)
3%
5%

#4 ,R1

;SEE IF THERE IS A BLOCK LARGE ENOUGH
:BRANCH IF IT IS
:BR_IF THROUGH TABLE
s INCREMENT

TABLE POINTER

$CONTINUE LOOKING

sRETURN

(SP)+,R3
(SP)+,R2
(SP)+,R1
(R1),10(SP)

$WRDL
(RO) ,2(R1)

$WRDL (RO
$WRDL (RQ), (R1)
$w°DL (RO)
5%

:RESTORE R3
JRESTORE RZ
JRESTORE R1

;BUFFER] ADDRESS TQ STACK

;ADJUST BUFFER SIZE
;BR IF DIFFERENCE

IS ZERC

;CONVERT # WORDS TO BYTES
;MAKE NEW STARTING ADDRESS
JRETURN # BYTES TO WORDS
JRETURN

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0C7-78 08:18

2192
2193
2194
2195

2196

005014
005020
005022
005024
005026
005030
005034
005036
005040
005042
005044

005337
4

025604

000004

000742

30A(1052)

4
C
30-0CT-78
11:21
PAGE 42
BUFFER SUPPORT ROUTINES

4%:

6%:

DEC
BEQ
DEC
BEQ
MOV
ADD
MOV
MOV
DEC
BNE
BR

BUF TBL
p)

R1,R3

#4 R3

(R$)+, (R1)+

(R3)+.(R1)+

SEQ 0041

;DECREMENT ENTRIES COUNT
JBR IF ALLOCATION TABLE EMPTY
sDECREMENT TABLE COUNT
;BR IF ITEM WERE LAST ENTRY
;MOVE TABLE POINTER
JPOINT TO NEXT ENTRY
;MOVE [TEM.
;DECREMENT TABLE COUNT
sCONTINUE [F NOT AT FND OF
JRETURN

TABLE

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT-78 08:18

30A(1052)

D_ 4
30-0CT-78
11:21
PAGE 43
BUFFER SUPPORT ROUTINES
cROUTINE

104412
012701
013702
001424

RELBUF:

025606
025604
000020
000006

1%:

000004

001372
016011
016061
005237
005202
000422
016021
016021

000006
000020

005237
022737

025604
000002

103001

€20006
000020
025604

005272

000725

{MP
BEQ

INC
INC

2%:

025604

3%:

000002

A ¥
5%:
(%

BR
MOV
MOV

INC
CMP
BHIS
NOP
RESREG
RTS
MOV
ADD
MoV
MOV
MOV
MOV
ASL
ADD

CMP
BEQ

000004

ASL
ADD

DEC
BNE
MOV
MOV

000002

025604
025606
000002

000002
025604

SAVREG
MOV
MOV
B8EQ
MOV

ADD

000240

000006
0000620

TO PUT BUFFER BACK

000002

8%:

DEC
MOV
ADD
MOV

ADD

MoV

DEC
BNE
BR

IN TABLE

:SAVE RO=-R5

TBL +2 ,R1
#BUF

JBEGINNING OF TABLE

BUF TBL

s INCREMENT ENTRY COUNT
;SEE HOW MANY BLOCKS ARE

JENTRY COUNT
:BR IF EMPTY TABLE
SgRDL(RO).R3
;TRIAL ADDRESS
R
cCHANGE TO BYTE COUNT
$BUF (RQ) ,R3
;ADDRESS OF HIGHER ADJACENT BLOCK
(R1),R3
JUPPER ADJACENT BLOCK
(s
;BR IF YES
#6 ,R1
; INCREMENT POINTER
R2
;DECREMENT ENTRY COUNT
1%
. CONTINUE SEARCHING
$8UF (RO) , (R1)
;PUT THE BUFFER BLOCK INTO THE TARLE
$WRDL
(RO) ,2(R1)
.BLOCK SIZE
BUF TBL
s INCREMENT ENTRY COUNT
R2
;INCREMENT R2 FOR USE LATER
5%
JSEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE
(RO) ,(R1) +
$BUF
sBLOCK ADDRESS TO TABLE
$WRDL (RO), (R1)+ ;SIZE TO TABLE
ggFTBL.RZ

#2 ,BUF TBL
R

(RO) , (R1)
$BUF
(RO) ,2(R1)
$WRDL

R2,=(SP)

BUF TBL ,R2
#BUF
TBL +2 RS
2(RS) R4
R4
(RS) ,R4
R4, (R1)

ADD

DEC
BNE
TST
ER
MOV

SEQ 0042

(SP)+,R2

2(R1),2(RS)

8U TRL
R1.RS
#4 RS

(RE)Y+, (R1)+
(R5)+. (R1)+

JBR IF NOT MORE THAN 2
;DEBUGGING AID

IN TABLE

JRESTORE RO-R5

sRETURN
JRELEASED BUFFER IS LOWER ADJACENT
s INCREMENTED SIZE

;SAVE R2

;ENTRY COUNT

;BEGINNING OF TABLE
;BLOCK SIZE (IN WORDS)
sCHANGE TO BYTE COUNT
;ADD BLOCK BEGINNING ADDRESS

sR1 STILL POINTS TO INSERTED ENTRY
sLOWER ADJACENT IM TABLE
s INCREMENT POINTER
;DECREMENT ENTRY COUNT
sCONTINUE LOOKING
:?ggTORE STACK POINTER

JRESTORE RZ
s INCREMENT LOWER BLOCK LENGTH
;DECREMENT ENTRY COUNT
JGET READY TO COMPRESS
s INCREMENT TO NEXT ENTRY
s COMPRESS TABLE
sMOVE SIZE FIELD DOWN
sDECREMENT ENTRY COUNT
JBR IF NOT FINISHED
;F INISHED

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PT
23-0CT7-78 08:18

30A(1052)

2260
2261

11:21
PAGE 44
BUFFER SUPPORT ROUTINES

30-0CT7-78

SEQ 0043

JFILL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER)
000004

000002

000007

000002

000006

033634

001306

000020

FILBUF:

SAVREG
BITB

: SAVE RO-R5

#81T02, SCOMND (RO
1%

ggmcm, $SCOMND (RD)

.=2
:INTERLOCK THE HALT
BUZRSZ.SURDL(RO)
;SEE IF WORD LENGTH DOESN'T EXCEED MAXIMUM

;BR IF IT DOESN'T
sWORD LENGTH FOR OPERATION GREATER THAN AVAIL MEM
s INTERLOCK THE HALT

.=2
$BUF (RO) ,R1

000006
000020

ngDL(RO),RZ

000026
025754
012521
005302
001407
005303
001373
012703
016405
000766

$PATTC(RO)
R4

STNDAT (R4) ,RS

2%:

000020
025754

106413

010046
010037
004037
000000
000000
012600

000207

MOV

3%:

000207

005436
021556

000034

000001
000042

000049

RESREG

RTS

#16. .R3
(RS)+,(R1)+

STNDAT (R4)
2%

,RS

¢BUFFER ADDRESS

;POSITIVE WORD COUNT
;CLEAR R4
JRELATIVE PATTERN ADDRESS
;PATTERN ADDRESS
JPATTERN COUNT
JMOVE THE PATTERN INTO THE BUFFER
;DECREMENT THE WORD COUNT
;BR IF DONE (WORD COUNT = 0)
;DECREMENT THE PATTERN COUNT
;BR IF MORE PATTERN
JRESTORE PATTERN COUNT
;RESTORE THE ADDRESS
JCONTINUE DISTRIBUTING THE PATTERN

JRESTORE RO-RS

JRETURN

;START

THE ORDER FOR THE DP8 IN RO

GODRIV:

MOV
MOV

1%:

000001
000036
000032

WRITE CHECK ?

:BR IF NOT
SBgF(RO)JWENDPGM _;MAKE SURE BUFFER ]S ABOVE PROGRAM
:BRIF IT IS
;BUFFER ADDRESS WITHIN PROGRAM, ILLEGAL
L+

000020

;READ
?REURITE ORDER ?

‘BR’ IF

000010

2%:

JSR
0
HALT
MOV
ADD
ADC
CMP
BEQ
ADD
ADC

RTS

RO,=(SP)
RO.1%
RO.RP11

(SP)+,R0O

sSAVE RO
s CURRENT DPB ADDRESS
;DRIVER ENTRANCE
;DP8 ADDR GOES HERE

;DRIVER REJECTED REQUEST

;RESTORE RO

#1,80PERC (RO)

s INCREMENT THE OPERATION COUNT
;ADD ANY CARRY

;BR IF NOT
s INCREMENT SEEK COUNT
;ADD ANY CARRY

$OPERC+2(RO)
$PREVA+2(R0)
,$CYL (RO)

#1,8P0S1T(RO)

g?OSIT*Z(RO)

;DID ORPER REQUIRE A CYLINDER CHANGE

;;.ttttit'tt'lttkttfi'*tfiittttititt'fitfittttlttttfitttttttttitittttt

.SBTIL

GENERATE

;;ltittl‘t't'fittfi

VARIABLES FOR

THE NEXT OPERATION

CRANAF AN RN N R RN

RARNA AR NNARNARNRAR RN AN

RSN

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

30A(1052)

5%}9
2318
2319

2320
2321
2322

005502
005504

005510
005516
005524

010546
004737

016060
032777
001414

006606

000106
000040

2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335

005534
005536
005542
005544
005552
005556
005564
005570
005576
005600
005604
005610

001006
005737
001403
116060
000137
116050
004737
032777
001017
012705
004737
020537

000010
011570
001320

2337

005616

004737

006220

2339
2340
2341

005630
005632
005636

001013
000137
013705

005652

116560

2338

2342
2343
sgzg

%%29

238

2349
2350
2351
2352
2353
5222

%%29

2358
2359
2360
2361
2362
2363
Sggé

000032
173414

005614

005622

005642
005646

005660

005664
005670
005672
005674
(005700
005704

005710
005714
005720
005722
005724
005730
005734

003010

122760

042705
062705

013705

163705
001403
005205
004737
063705
110560

013705
163705
001403
005205
004737
063705
110560

001322

000024
006206
000002
020512
000001

000007

000002
000024
173342

177776
000003

025746

GETPAR: MOV
JSR

MOV
BIT
BEQ

(MPB

BNE
TST
BEQ
MOVB
1%:
JMP
GTPAR1: MOVB
JSR
BIT
BNE
1%:
MOV
JSR
mpP
BGT

JSR

000002

006206
020610

000002

011570
001332
000013

MIRTCHK , SCOMND(Rb) :PRESENT ORDER A WRITE CHECK ?

1%
:BR 1F NOT
AUTOCK
*AUTO WRITE CHECKS ?
1%
BR IF NOT
SPREVO(RO) .SCOMND(RO)
;RESTORE PREVIOUS OPERATION
JEXIT
scomomm $PREVO(RO)
:SAVE CURRENT OPERATION CODE
PC, SRAND
;CYCLE THE RANDOM NUMBER GENERATOR
#SUO aSWR
JSEE IF SWO SET
2%
:BR IF SET - READ ONLY
#10,RS
JREAD/WRITE SELECTION DIVISOR
PC.GETREM
JGET SELECTION VALUE
R5,RATIO
:DETERMINE IF READ OR WRITE
2%
BR IF READ
PC ,RANWRT
:SELECT A WRITE ORDER

#~C1.RS
#3.RS

MOVR

GETSEC
PARXIT
$HINUM RS

;WAS WRITE CHECK SELECTED ?

:NO, CONTINUE WITH THE SELECTION
;BYPASS REST OF VARIABLE SELECTION
;SELECT READ OPERATION CODE

tMASK OUT ALL BUT BIT 0
;TABLE OFFSET FOR READ CODE

COMTBL
(RS) , $COMND (RO)

;ORDER SELECTION CODE TO CONTROL BLOCK

;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES 'FS' & ‘LS’

1%:

001330
001332

$SUCA(RO),SPREVA+2(R0)
:SAVE CURRENT CYL INDER
#SW0S, ASWR
SwlTCH §7SET 2
GTPAR1
IF NOT SET

BIC
ADD

3%:

011570
001336

000012

:SAVE RS
;SAVE CURRENT SECTOR & TRACK ADDRS

MIRTCHK, SCOMND (RD)

2%:

GETSEC:

001336

R5,-(SP)
PC,PREVST

CMPR

BNE
JMP
MOV

001334

5%29
2368
2369
2370
2371

’

:GENERATE VARIABLES FOR THE OPERATION

2323 005526 122760 000007 000002

2336

F
4
30-0CT-78
11:21
PAGE 45
GENERATE VARIJABLES FOR THE NEXT OPERATION

MOV

SUB
BEQ
INC
JSR
ADD
MOVB

LS,RS

;GET MAXIMUM SECTOR ADDRESS

FS,RS
;SUBTRACT MINIMUM SECTOR ADDRESS
1%
;BR IF MIN & MAX THE SAME
RS
s INCREMENT DIFFERENCE TO USE AS DIVISOR
PC,GETREM
:GET THE RANDOM AUGMENT
FS.RS
;CONVERT TO ADDRESS
RS,$SEC(RO)
;STORE SECTOR ADDRESS IN DPB

;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ‘FT' & 'LT'

GETRK:

1%:

MOV
SUR
BEQ
INC
JSR
ADD
MOVB

LT,RS
;GET MAXIMUM TRACK ADDRESS
FT.RS
;SUBTRACT MINIMUM TRACK ADDRESS
1%
BR IF MIN & MAX THE SAME
RS
*INCREMENT DIFFERENCE TO USE AS DIVISOR
PC,GETREM
“GET THE RANDOM TRACK AUGMENT
FT.,RS
:CONVERT AUGMENT TO AN ADDRESS
RS, $TRK(RO)
;STORE TRACK ADDRESS IN DPB

;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘FC' & 'L(°'
005740
005744
005750
005752

(13705
163705
001403
005205

001324
001326

GETCYL: MOV
SUB
BEQ
INC

LC,RS
FC,RS
12
K5

;GET MAXIMUM CYLINDER ADDRESS
;SUBTRACT MINIMUM CYLINDER ADDRESS
:BR IF MIN & MAX THE SAME
; INCREMENT DIFFERENCE TO USE AS DIVISOR

SEQ 0044

CZRP1CO, RP11 MUDR EXER
CZRP1C.P1M
23-0C1-78

005754
005760
005764

30A(1052)

004737
063705
010560

30-0CT-78

11:21

G &
PAGE 46

GENERATE VARIABLES FOR THE NEXT OPERATION
JSR
ADD

1%:

MOV

SEQ 0045

PC.GETREM
;GET THE RANDOM AUGMENT
FC,RS
;CONVERT AUGMENT TO AN ADDRESS

RS.$CYL (RO

;. STORE CYLINDER ADDRESS IN DPB

;GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN °'BUFRSZ'
005770
005774
005776
006002
006004
006006
006010

013705

005205
004737
005705
001413

001306

GETSIZ: MOV
INC

011570

JSR
TST
BEQ
MOV
CLR
MoV
JSR

000400
020176
000004

rMp

BHIS

000004
020512

ADD
JSR
BR

1%:

000004

000002

000013

000002

000017

000007

2%:

BITRB
BNE
BI(

3%:

MOV
(MPH
BEQ
(MPS
BNE
(LR

000012

MOVAR

000002
000010

005460

000010

000002

000004

000002

000003

00000¢

000005
000004
000020
000004

000002
000004

006216

004737
110560
013760
012605
000207

006274
000026
061254

(SP)

’$

012705
004737

REMAINDER LESS

;BR IF NOT

#4,$COMND (RO)
3%
#1,R5

THAN 4

;CORRECT THE STACK POINTER
;CYCLE THE RANDOM NUMBER GENERATOR
;TRY AGAIN

JReAD OR WRITE ?
;BR IF READ
JMAKE THE SIZE EVEN
;WORD LENGTH TO CONTROL BLOCK

RS, SWRDL (RO)
HWRITE ,$SCOMND (RO)
;WRITE WITHOUT IMPLIED SEEK
4%
JBRIF IT IS
HREAD ,$COMND (RO)
;READ WITHOUT IMPLIED SEEK ?
6%
;BR _IF NOT
(SP)

$SEC(RO) , (SP)

;CLEAR

THE

STACK

sMOVE THE SECTOR ADDRESS

BNE

.BR IF READ

#4, $COMND (RO)

JREAD WITHOUT IMPLIED SEEK ?

MWRTSEK
, $COMND (R)

:LOAD COMMAND

BR
MOVB
ADD

6%
< CONTINUE
#RDSEK ,$COMND (RO)
;LOAD COMMAND
#4,SP
;CORRECT THE STACK POINTER

NEG

$SWRDM(RO)

$WRDL (RO) ,$WRDM(RQO)

;SETUP WORD COUNT

JMAKE IT NEGATIVE

THE PATTERN CODE € EXIT FROM PARAMETER SELECTION

PARXIT:

JSR

MOVB
MOV

MOV
RTS

000003
011570

;SEE

#6,SP
PC, SRAND
GETSIZ

PC,GETPAT

RS,$PATTC (RO)

FAIRNS,$FAIR(RO)

(SP)+,RS

JROUTINE TO SELECT A WRITE
006220
006224

:DIVIDE BY MAX VALUE
;1S THE REMAINDER 0 ?
;ZERO, TRY AGAIN
sNEW WORD LENGTH ON STACK FOR CHECK
sMAKE UPPER DIVIDEND ZERO
sSECTOR SIZE IS THE DIVISOR
;DIVIDE BUFFER SIZE BY SECTOR SIZE

;JADD THE NUMBER OF SECTORS IN THE BUFFER
;DO THEY EXCEED THE TRACK
;BR_IF NOT
;SEE IF AN 'IMPLIED SEEK' (OMMAND
;BR IF NOT

MOV

PATCOD:

000064

PC,GET .cM
RS
1%
RS,=(SP)
=(SP)
#256. ,-(SP)
PC,$DIV

2(SP), (SP)
#8.,(SP)
6$
#10,8COMND(RO)
6%

MOVB

;GET

JGET BUFFER SIZE
s INCREMENT THE MAXIMUM SIZE

ADD
(MP
BHIS
BITB
BEQ

BITRB

5%:
6%:

BUFRSZ RS
RS

RANWRT: MOV

JSR

47 RS

P(,GETREM

;GET

PATTERN

CODE

;MOVE PATTERN CODE
;LOAD

'FAIRNESS'

TO CONTROL BLOCK

COUNT

;RESTORE RS

JRETURN

(OR WRITE (HECK) OPERATION
JWRITE

JGET

OPERATION SELECTION DIVISOR

SELECTION CODE

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT-78 08:18

2628

2429

006230

005737

2630
2631
2632
2633
26434

006234
006236
006242
006244
006250

001403
0427CS5S
000410
020527
001005

2636
2437
2438
2639

006260
006262

001401
005005

26435

522?

006252

006264

006272

30A(1052)

001322

TST

000002
000002

1%:

132760

000004

000024

116560

025746

000002

000207

522%
006274
006300
006304

012705
004737
005705

000020
011570

2448

006310

004737

020512

2449
2650
5225

006306

006314
006316
006320

001003

000767
006305
000207

1%:
;ROUTINE

004737
005760
001007
005760

000034

2460

006342

105760

000022

032777

000040

172560

000002

00007G

000002
006606
000106
000102
000360

000024

00000

001324

2464

006340

001004

006346
006350

100504
000477

006360

001106

006352

2465
2466
2667
2468
2669
2470
2471

006362
006370
006372
006400
006404
006412
006420

032760
001032
116060
004737
016060
016060
042760

2473
2474

006434
006442

026037
103427

2472

2475

2476
2477
2478
2479
2480
2481

24682
2483

2%
RS

MOVR
RTS

JSR

006322
006326
006332
006334

2663

BEQ
CLR

BNE

2455
2456
2457
2458

2461
2462

1%
#2,RS
2%
RS 42
2%

GETPAT: MOV
JSR
TST

%222

2459

BEQ
BIC
BR
CMP
BNE

BITR

2%:

AUTOCK

SEQ 0046

;ARE WRITE CHECK ORDERS TO BE SELECTED
;RANDOMLY ?

:BR [F THEY ARE
JSET CODE TO EXCLUDE WRITE CHECK ORDERS
JFINISH
unxrs CHECK SELECTED ?
BR IF NOT

#B1T02, SPREVO(ROS

;WAS PREVIOUS ORDER A WRITE ?

:BR IF IT WAS
;CHANGE WRITE CHECK CODE TO WRITE WITH
IMPLIED SEEK
COMTBL (RS) ,$COMND(RO)
;CODE TO DRIVE BLOCK

sRETURN’

JROUTINE TO SELECT A PATTERN

2444
2445
2646

24647

H_
4
30-0CT-78
11:21
PAGE 47
GENERATE VARIABLES FOR THE NEXT OPERATION

006426
006444

006446
006454
006456
006464
006472
006500

006504
006512

016060
101004

126037
101422
113760
113760
013760
004737

032777
001003

020512
000036

000100

WRTPK:

BR
ASL
RTS

JSR
TST
BNE
TST

000013

001330

001332
001336
001326
011400
000020

000013
000012
000010
_
172426

;CYCLE THE RANDOM NUMBER GENERATOR

:TRY AGAIN
;MAKE CODE INTO TABLE
:RETURN

INDEX

;CYCLE THE RANDOM NUMBER GENERATOR
:SEE IF FIRST OPERATION
;BR IF UPPER WORD OF COUNTER NOT ZEROD
:LOWER WORD ZERO ?

$PACK (RO)

:SEE WHICH - 'R' OR 'W'

BM]
BR

WRTPK3
WRTPK?2

BNE

WRTPK4

MOV

$RPCA(RO) ,$CYL(RD)

:NEW CYLINDER ADDRESS

IF PAST END CYLINDER

#5W05, aSWR

$CYL(RO).LC
2%

(MPB
BLOS
MOVR
MOVR
MOV
JSR

$TRK(RO) ,L T
2%
FT,$TRK (RO)
FS,$SEC(RQ)
FC,8CYL(RO)
PCNRML?

BIT
BNF

:BR IF NOT 1ST OPERATION
:BRIF ‘W'
;'R' OPERATION

:LOOP ON LAST ADDRESS ?

*BR IF LOOP

#EOP,SRPER(RO)
:DID LAST ORDER OVERFLOW ?
1%
:BRIF IT DID
$COMND
(RO) ,$PREVO(R0O)
;SAVE CURRENT PARAME TERS
PC,PREVST
:SAVE CURRENT SECTOR & TRACK
$SUCA(RO) ,$PREVA+2(R0O)
:CURRENT CYLINDER
$RPDA (RO) .$SEC(RO)
:NEW SECTOR & TRACK ADDRESS
#360,8SEC(RO)
:CLEAR THE 'SOT' BITS

CMP
BLO

BH]

THE DISK

PC, SRAND
$OPERC +2 (RO)
WRTPK1
$OPERC (RO)

WRTPK1

BIT
BNE
MOVB
JSR
MOV
MOV
BIC

°$:

GETPAT
RS
PC

:BR IF NOT ZERO

BNE

WRTPK1: BIT

000010

PC ., $RAND

:SELECT PATTERN
:GET CODE
;WAS PATTERN ZERO SELECTED ?

TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF

TSTR

000032
000012
000012

#16. RS
PC,GETREM
RS

#> 104 ,aSwWR
2%

:SEE IF END CYLINDER
‘BR IF NOT

;BR

END TRACK ?
:BR IF NOT EXCEEDED
;RESET TRACK ADDRESS
;RESET SECTOR ADDRESS
;RESET CYLINDER ADDRESS
;DROP THE UNIT (NORMAL

;1S SWITCH 4 SET 2
;BR IF SET

TERMINATION)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

2684
2485
2686
2487

006514
006516
006522
006530

005726
000137
013760
013760

2689
2690

006542
006546

105760
100404

2488

006536

2491

006550

2693

006560

2692

2494
2695
2496
gzgg

003650
001306
001306

30A(1052)

000020
000004

5?82

2%:

TSTB
BM]

$PACK(RO)
WRTPK3

WRTPK4

112760

000005

000002

WRTPK2: MOVB

000003

000002

WRTPK3: MOVR

000407

006566
006572
006576
006604

004737
110560
013760
000207

112760

NEG

000022

006274
000026
001254

000064

SEQ 0047

(SP)+
: INCREMENT THE STACK POINTER
MAIN
*RETURN DIRECTLY TO 'MAIN'
BUFRSZ.$WRDL
(RO)~ ;BUFFER SIZE IS MAXIMUM
BUFRSZ.SWRDM(R0O)
-WORD COUNT

000004

006556

ST
MP
MOV
MOV

005460

gggg
2501
2502
2503
2504

30-0CT-78
11:21
PAGE 48
GENERATE VARJABLES FOR THE NEXT OPERATION

JSR
MOVB
WRTPKG: MOV
RTS

$SWRDM (RO)

;CHANGE WORD COUNT TO 2°'S COMPLEMENT
*READ OR WRITE ?
‘BR IF WRITE

#RDSEK,SCOMND
(RO)

:OP CODE

MWRTSEK,SCOMND(RO)

:OP CODE

EXIT

PC,GETPAT
:GET PATTERN CODE
RS.SPATTC(RO)
:PATTERN CODE
FAIRNS ,SFAIR(RO)
:LOAD 'FAIRNES' COUNT
PC
:RETURN

:DECREMENT AND SAVE CURRENT SECTOR & TRACK ADDRESS
006606
006612
006616
006622

006626

162706
004737
112660
112660

000207

000004
006656
000031
000030

PRFVST:

SUB
JSR
MOvVRB
MOVR

RTS

2507

#4,SP
:MAKE ROOM ON THE STACK
P( .READDR
:DECREMENT SECTOR-TRACK ADDRESS
(SP)+,$PREVA+1(R0)
;SAVE CURRENT TRACK
(SP)+,$PRE VA(RO)
;SAVE CURRENT SECTOR

:RETURN

:'-tt'ittttttttttttttttttt'ttttttttttlfitttttttt.tttttttltttitttttfi

2508

gggg

.SBTTL

2511

RN AN AN AN A AN NN AR AN

2512

;DUMMY HANDIER IF °'CONTROL (' ENTERED DURING NORMAL OPERAT]ION

Sg}z

2515
52}9

Sg}g

2520
2521
2522
2523

525‘5'

006630
006634

006640
006644
006646
006652

006654

012746
000137

016111
001403
062701
000772

000003
017070

LORTI:

MOV
JMP

NN AR RN

#3,-(SP)
$TKSRV+52

R R AN RN AR AN R A AN R I AR NANA RN AN

RN AR

0000C2

(MPRES: MOV
BEQ
ADD
BR

000002

000207

RTS

2(R1),(RT)
1%
#2 R
CMPRES

;COMPRESS THE TABLE IN R1
:BR WHEN ZERO FOUND
*INCREMENT R1
;CONTINUE COMPRESSING TABLE

*RETURN

;DECREMENT THE SECTOR~-TRACK ADDRESS
006656
006662
006670
006676
006702
006704
006712
006716
006724
006730
006732
006740

005066
116066
042766
105366
100017
012766
005066
114066
105366
100007
012766
000403

000004
000102
177760
000004

000004
00004

000011
000002
000103
000002

000004

000023

000002

READDR:

(LR
MOVB
BIC
DECB
BPL
MOV
(LR
MOVB
DECB
BPL
MOV
AR

R RN

JPUT THE 'CONTROL C' BACK ON THE STACK
JRETURN TO THE ENTRY ROUTINE

;ROUTINE TO COMPRESS THE TABLE WHOSE ADDRESS IS IN R1

gggg
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
25390

GENERAL SUPPORT SUBROUTINES

4(SP)
;CLEAR STACK FOR SECTOR
$RPDA(R0O) ,4(SP)
~;INCREMENTED SECTOR ON STACK
#~C17,4(SP)
;CLEAR THE 'SOT' BITS
&4(SP)
:DECREMENT THE SECTOR ADDRESS
1%
*BR IF SECTOR GREATER THAN 0
#9.,4(SP)
*JAM SECTOR ADDRESS TO 9
2(SP)
;CLEAR STACK FOR TRACK
$RPDA+1(R0),2(SP)
;TRACK ADDRESS
2(SP)
:DECREMENT TRACK ADDRESS
2$
:BR IF IT DIDN'T GO NEG
R, ,2(5P)
CRESET TRACK TO 19(10)
2%

2540
2561
2542
2543
2544
2545
2546

006762
006750

MUDR EXER MACY11

23-0C1-78 08:18
116066
000207

000103

30A(1052)

000002

30-0CT-78

177777

007034
000006

001236
000004

SUPPORT

1%:

MOVB

CKCLK:

RTS

172172

000004

MOV
MOV
(LR

(KCLk1:

000004

:TRACK ADDRESS

:RE TURN

FOR KW1l-L

OR KWl11=P CLOCKS

#-1,(LKFLG
;CLEAR CLOCK AVAILABILITY FLAG
#CKCLKT,@#ERRVECTM
;SET UP VECTOR FOR CLOCK CHECK
SNERRVE ( +2
*NEW PSW

MOV

#1135, QSLKCSR

aSLKCSR
CLKFLG

;CHECK FOR KW11-P
JSET CLOCK AVAILABILITY FLAG

#300, (R1)
#-1,38LKCSB

‘PSW - PRI 6
*LOAD COUNTER BUFFER WITH 1°S

(KCLK3

*KW11-P VECTOR ADDRESS
:SET UP KW11-P VECTOR

SET CLOCK = CNT UP, 16MS. CONT INT

ADD

#4,SP

;RESTORE

as$'KS

;LOOK FOR KWll=L

MOV

$LLVEC,R

*KwW11=L VECTOR ADDRESS

MOV

MOV
MOV

(KCLK2:

SRPDA+1(RO},2(SP)

$LPVEC .R1
#CLOCK. (R1)e

SEQ 0048

ST
(LR
MOV
MOV

(LR

172132

J &
PAGE 49

SUBROUTINES

TO CHECK

MOV
MOV

172202

000425
06

11:21

GENERAL

;ROUTINE
NINLNINN NN

(ZRP1C0O, RP11
CZRP1C.P11

B8R

ADD

CRCLK3: S?Z

#CKCLK2,@¥ERRVEC
CLKFLG

#CLOCK.(R1)+

#300, (R1)
#100.a8LKS

(k(LK3

#6 ,SP

g?,acsnnxec

THE

STACK POINTER

;CHANGE ERROR VECTOR TO CHECK FOR Kwll-L

JSET CLOCK FLAG
:SET UP KWi'=L

VECTOR

‘PSW = PRI 6
SSET Kwl1-L INTERRUPT
JRESTORE

THE

STACK POINTER

*RESTORE THE ERROR VECTOR

;ROUTINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED
STATPR:

000010
024264
021274

SAVREG

(LR

025450

1%:

MOV
MOV
BITB
BNE
INC
ADD

000112

DEC

BNE

007260

021274

025450

2%
3.

000112

000034
007276
000112

: SAVE

;R4

RO-RS

CONTAINS

THE UNIT POINTER

#8. .R3
*R3 CONTAINS THE UNIT COUNTER
#BLKO RO
*ADDR OF FIRST COUNTER
ATABIT(R4) ,ASNLST
:SEE IF DRIVE ASSIGNED
2$
:BRIF IT IS
R4
#$S1L0+2,R0

*INCREMENT
*INCREMENT

*F INISHED ?

THE UNIT POINTER
THE BLOCK ADDRESS

*BR [F NOT

B8R

SYES, EXIT

BNE
ggp

48
g:SILO*Q,RO

:BR"IF ASSIGNED
*ACD TABLE SIZE TO ADDRESS

MOV

RO,R?

;PUT BLOCK ADDRESS

ADD

#3$S1L0+2,R0

* INCREMENT BLOCK ADDRESS

JSR
BITR

ADD
JSR

5§

Ré

INC

DEC
BNE

RE SREG
RTS

PC,SHDTYP
“TYPE THE HEADING
ATABIT(R4),ASNLST
;IS THE UNIT ASSIGNED

#$CPERC ,R?
PC.SDETAL
Ré

R3
3%
P(

IN R2

“FIRST COUNTER TO DISPLAY
STYPE THE STATISTICS
*INCREMENT UNIT NUMBER

*DECREMENT UNIT COUNTER
‘BR IF NOT FINISHED
*RESTORE RO-RS

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT1-78 08:18

30A(1052)

30-0CT-78
11:21
PAGE 50
GENERAL SUPPORT SUBROUTINES
JROUTINE

1064172

004737
005004
111004
010002
062702
004737
104413

000034
007276

(
\

000207

104401

004737
104401

000207

TYPEST:

007260

001213
007624
0352636

;TYPE

SHDTYP:

000

032467
000062
015564
011632
032470

104401

007450
007452

005301
001367
012601

15564
11622

OO0

004737
004737

THE

32471

DRIVE

IN RO

s SAVE RO-RS

PC,SHDTYP
R4

“TYPE THE HEADING
“CLEAR R4 FOR DRIVE NUMBER

(RO) R4

*DRIVE NUMBER

#$OPERC ,R2
PC,SDETAL

*ADDRESS OF '$OPERC'
*TYPE THE STATISTICS

RO,R2

*PUT BLOCK ADDRESS IN R2

IN PRESENT CLOCK

*RESTORE RO-RS

*RETURN
THE

DRIVE

L$CRLF
AC,$TIME
,STATHD

PERFORMANCE

:CR-LF
“TYOE THE
*HEADER

SUMMARY

TIME OF

TYPEOUT

DAY

*RETURN
DATA LINE

.BYTE

1.0

MOV
JSR
JSR

$PASSC
(RO) ,-(SP)"
;PUT THE PASS COUNT ON THE STACK
PC,$582D
;CONVERT T
PC . $RPZRS
STYPE IT
L SPACE?
*SPACES
R2,-(SP)
*PUT SOPERC ON THE STACK
PC . $DR2D
*CONVERT IT
PC.$RPZR8
*TYPE S$OPERC

TYPF

TYPE
ADD
MOV

JSR
JSR

TYPE
ADD
MOV

JSR
JSR

2%:

DRIVE

R4, -(SP)

TYPOS

MOV
JSR
JSR

1%:

THE

MOV

TYPE

020614
011612
032470
000004

000004
000002

TYPE

JSR

SEQ 0049

STATISTICS FOR

HEADER FOR

TYPE
RTS

020614
011612
032470
000004

012246

THE

SDETAL:

020614
011642
032471
000004

SAVREG

JSR
CLR
mMov8s
MOV
ADD
JSR

RESREG
RTS

;1 YPE

010446
104403
001
104401
016046
004737

TO TYPE

TYPE
ADD

,SPACE3

,SPACE?

;DRIVE NUMBER
JTYPE T

:SPACES

*SPACES

- #4 ,R2

*INCREMENT R2

PC.$RPZRS

“TYPE $POSIT

R2.=(SP)
PC . $DB2D

L.SPACE?

*PUT $POSIT ON THE STACK
*CONVERT IT

*SPACES

#4 R2
R2,-(SP)
PC . $DR2D

* INCREMENT R2
*PUT SREAD ON THE
*CONVERT SREAD

L SPACE1

‘1

PC.$RPZRO

STYPE

SPACE

#4 R

* INCREMENT R2

MOV
ADD

24 R

*USE

*PUT

"$SOFT',

JSR
JSR

PC.$SR2D

DEC
BNE
MOV

*DONE

(SP)+.R1

*RESTORE

MoV

MOV

TYPE

R1.=-(SP)

#2.R2

(R)+,~(SP)

PC . $SRPZR4
SPACE1

‘e

STACK

*SAVE R1

AS A COUNTER

*INCREMENT R2 AGAIN

‘ON THE STACK
*CONVERT

*TYPEQUT
‘1

SPACE
7

:BR IF NOT

'$HARD',

'$SKI', OR

‘$MISPO’

CZRP1CO, RP11 MUDR EXER MACY11 30A(1052) 30-0CT-78 *1:21 PAGE l§1

CZRPIC.P11

23-0CT-78 08:18

GENERAL SUPPORT SUBROUT INES

2652 002454 016046 000050

2653
2654
2655

007460
007464
007470

166016
166016
166016

000052
000054
000056

2657

007500

004737

2659
522?

007510
007514

104401
000207

2656

2658

007474

007506

166016

004737

MOV

$TOTAL(RO),~(SP)

SEQ 0050

:CALCULATE NUMBER OF OTHER ERRORS

SUB
SuB
SUB

$SOFT(RO), (SP)
SHARD (RO) . (SP)
$SKI(RO),(SP)

;SUBTRACT $SOFT FROM $TOTAL
:SUBTRACT $HARD FROM $TOTAL
:SUBTRACT $SKI FROM S$TOTAL

015564

JSR

PC,$SB2D

:CONVERT

001213

TYPE
RTS

$CRLF
PC

000060

SUB

011622

JSR

$MISPO(RO), (SP) :SUBTRACT $MISPO FROM STOTAL

PC.SRPIR4

STYPE IT

'OTHER' COUNT

%gg%

:ROUTINE

%222

INOTE:

$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCSOF:

CMP
BHIS
INC

2666
2667
2668

gggg

007516
007524
007526

007532

026027
103002
005260

000207

000052

023417

000052

1%:

TO INCREMENT $SOFT

RTS

$SOFT(RO) ,#9999.
IS $SOFT ALREADY AT MAXIMUM °
1%
:BROIF IT IS
$SOF T (RO)
* INCREMENT $SOFT

*RETURN

52;}

;ROUTINE TO INCREMENT $HARD

2673

INOTE:

$HARD WILL NOT BE INCREMENTED BEYOND *9999 (°0)

INCHRD:

CMP
BHIS

$HARD (R0),#9999.
;1S $HARD ALREADY AT MAXIMUM ?
1%
:BRUIF IT IS

1¢:

RTS

INOTE:

$SKI WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCSKI:

CMP
BHIS
INC

2675
2676

007534
007542

026027
103002

Sg;g

007550

000207

2677

007544

005260

000054

023417

000054

523%

gggg

007552
007560
007562

007566

sggg

5235

026027
103002
005260

000056

000207

023417

000056

1%:

5239' 007604

026027
103002
005260

000207

000060

023417

000060

;1S $SKI ALREADY AT MAXIMUM 2
;BRIF IT IS
- INCREMENT $5K1

*RETURN

SMISPO WILL NOT BE INCREMENTED BEYOND 9999 (10)

INCMIS:

CMP
BHIS
INC

RTS

SMISPO(RO) ,#9999.
;IS SMISPO ALREADY AT MAXIMUM >
1%
BROIF IT IS
$MISPO(RO)
- INCREMENT $M]SPO

;ROUTINE TO INCREMENT $TOTAL

5;8?

INOTE:
1¢:

5233

*RE TURN

INOTE: d $TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10)

2702

007606

026027

000050

2704
g;gg

007616
007622

005260
000207

000050

2703

RTS

$SKI(RO),#9999.
1%
$5K 1 (RO)

* INCREMENT $HARD

*RETURN

:ROUTINE TO INCREMENT $MISPO

2692 007570
2696 007576
2695, 007600

$HARD (RO)

;ROUTINE TO INCREMENT $SKi

5229

2684
2685
2686

INC

007614

103002

023417

INCTOT: CMP

BHIS

1%:

INC
RTS

$TOTAL
(RO) ,#9999.

$TOTAL (RO)
PC

:IS srorAL ALREADY AT MAXIMUM >

:BRIF IT IS

INCREMENT $T0TAL
*RE TURN
.

(ZRP1CO, RP11 MUDR EXER MALY11
CZRPIC.P1M
23-0CT1~78 08:18

007624
007630
007632
007636
007642
007646

nNO
=

—

v
~

INONNFRINO
N

BRoIBRNoo=8
22385382832 o288
AN =N =2 N) NN --'N;\hf\)-lf\)\n\hf\)—"\)\h

2730
2731
27%2
2733
273
2735
273%

nNONO
808\‘\‘

— =
O

o PuruurGhurGurd

NN
&HNVO

G
o Quur GG

b
—

—

SO0

——h

uar GhurGuur Ghurd

OOOCOTLVOOOO

NNO NS N

OQO—a—
nNO
—

2737

2753

000207

701236

$TIME:

010120
010124

010130

1%:

2600

CLOCK:

010134
001240
010134
010131
000072

2729

2738
.2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752

104401
104401
104401

010046
005237

2727
2728

005737
001006

TO TYPE

TST

BNE

TYPE
TYPE
TYPE
RTS

THE

SEQ 0051

TIME

CLKFLG
1%
.HOUR

MINUTE
SECOND

;CLOCK ON THE SYSTEM ?
;BR [F NOT

;TYPE
JTYPE
;TYPE

THE HOURS
THE MINUTES

THE

SECONDS

. CLOCK HANDLER ROUTINE

2784
2725
2726

M 4
11:21
PAGE 52
30-0CT-78
GENERAL SUPPORT SUBROUTINES
JROUTINE

(=}
NN
=
= NS PNOND
NS NNNN

2708
2709
2710
271
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723

30A(1052)

MOV

RO,=(SP)
SIXTEE
1%

010134

HZ,SIXTEE

)SAVE RO

s INCREMENT THE 1/60 SECOND COUNTER
:BR

A SECOND NOT COUNTED

JRESTORE

THE

VALUE

IMAKE

010131

SIXTEE
SECOND+1

f;?.SECOND*1

000060
010130
000066

010131

;RESTORE VALUE’

010130

#60,SECOND+1
SECOND
:26.SECOND

000060
001313
010125
000072

010130

#60,SECOND

000060
010124
000066

010125
010124

000060
010121

010124

507

010120

000072

0101

000060C
010120

010121

010120

001312
001313

177777

001250

00200

060
009

060

fi"

160 MINUTE +1
MINOTE
fgé.MINUTE

RESET LOWER
!
;INCREMENT UPPER HALF

PC,RPTMR

INTRVL
3s

BR IF NOT

AT MAX

BR IF NOT

RESET UPPER

s INCREMENT HOURS
SAT MAX (99) 2

JBRIF IT IS

JAT MAX

:BR IF NOT

JRESET VALUE

s INCREMENT UPPER
JRESET HOUR FIELD

;17 MS ON THE STA(CK

;DRIVER TIMER ROUTINE

;DISPLAY THE PERFORMANCE

;BR _IF NOT

SUMMARY

+1
INTRVL

THE

HOUR:

.BYTE

60
80

MINUTE:

BYTE

60 60

INTERVAL

INTERVAL FINISHED

MOV

RTI

s INCREMENT MINUTE

%gTRVL,lNYRVL01;DISPLAY

#-1,STATIN
(SP)
+ RQ

3%:

s INCREMENT UPPER

AT MAX ?

#72 ,HOUR+1
1%
#60,HOUR+1
HOUR
1%
#30060, HOUR
#17.,-(SP)

001313

;SEE IF COUNTER AT MAX
:BR IF NOT

072 JMINUTE +1

335071,HOUR
$

001312

*INCREMENT THE SECONDS

+1
INTRVL

#60 ,MINUTE
HOUR+1

INTO 2°'S COMP

:UPPER AT MAX
:BR IF NOT
JRESET UPPER
s INCREMENT STATISTICS TYPEOUT

MINUTE
+1

010125

;BR IF NOT

SRESTORE

INTERVAL

;SET EQROR RATE DATA DISPLAY FLAG
JRESTORE RO

sHOURS

J':" € TERMINATOR

JMINUTES

72.0
60,60
40,0

. SECONDS
:SPACE, TERMINATOR

.WORD

;1/60TH OR

#PRG ,~(SP)

#KSRT,=(SP)

a$TKB = (SP)

#°C177,(SP)
(SP) 47

017016
017022

000060

010136

000060

$
#KSR2,2 (SP)

1$:
KSR1

#STKSRY, TKVEC

$TKSRV+4

#KSR, TKVEC

+ RS
(SP)
RS

.SCRLF

001213
000101

000067

#'A,(RS)
1%
(RS) ,#67

000060

(RS) ,#60

177770

000124
010414

000104

177777

2%:

010654

000123

010762
000127

177777

000001

170562

4%:

000122
011076

JEQ TO AN 'A°

KSR2

#'D,-1(R5S)

KSR?2
#'S.-1(RS)
4%
#'W,-1(RS)

PC.,DATAPK

177777

5¢:

IT IS

JBRIF

JUNIT NUMBER GREATER THAN AN ASCII 7 ?

QE?IGN UNIT FOR TEST”v

#SWO0, aSwR

011064

CHARACTER JUST ENTERED

PC ,NEWASN

#C7,(RS)

PC,DEASGN

177777

THE

cREAD THE KEYBOARD
s CHANGE THE KEYBOARD VECTOR
JBUFFER ADDRESS
;POINT TO DRIVE NUMBER
;CR-LF

fi;T,-1(R5)

1%:

sPROCESS

IT IS
JUNIT NUMBER LESS THAN AN ASCII O ?
JBRIF IT IS
JLEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A’
JEQ TO 'T

177777

KEYBOARD

;CHANGE THE RETURN ADDRESS
s CONT INUE
: CHANGE KE YBOARD “ECTOR ADDRESS

JBRIF

:BR [F NOT EQ

;EQ TO ‘D12
:BR [F NOT EQ

JDEASSIGN UNIT
JEXIT
'EQ 10 'S’
IF NOT EQ

KSRZ

#'R,-1(RS)

F{ ,REDAPK

K SR2

E STATISTICS
MmMMETMO

000002

'ul

NOT EQ

ITCH O SET 2
SET, CAN'T DO ‘W' COMMAND

-y

010410

18
:SUREG.SUR

-0

001140

g ot () e =g

000176

000007

sCLEAR THE JUNK
;'CONTROL G' ?
;BR IF NOT
;SOF TWARE SWITCH REGISTER °
:BR IF NOT ACTIVE

177600

JRETURN AT PRIORITY &

;DUMMY INTERRUPT RETURN
JGET THE CHARACTER FROM THE

170772

A SECOND (OUNTER

;SAVE RO-R5

SAVREG

et O

KSR:

000200
010220

)

104412

012746
012746
017746
042716

TRT
e

010136
010140
010144
010150
010154
010160
010164
010166
010174
010176
0102C4
010206
010214
010220

1/50TH OF

ROUT INE

. (OMMAND DECODE

;01" R TERMINATOR

DBl
T B Badubd hud

.EVEN
SIXTEE:

SEQ 0052

.BYTE
.BYTE
.BYTE

000000

:
SECOND

010134

000
060
000

2770
27N

072
060
040

2766
2767
2768
2769

010126
010136
010132

PAGE 53
11 :21
30-0(7-78
INE S
GENERAL SUPPORT SUBROUT

2764
2765

30A(1052)

L IR0
T
IO

(ZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1Y
23-0(1~-78 08:18

A DATA PA(CK

NOT EQ

A DATA PA(K

010404
010410
010412

104401
104413

30A(1052)

033136

68:
KSR2:

000002

11:21
PAGE 54
GENERAL SUPPORT SUBROUTINES

30-0C7-78

TYPE
RESREG

005037

NEWASN:
ASGNO:

001252
000070
000101
032557
000007
021274

011130

ASGN1:

;TYPE "INVALID COMMAND' MESSAGE
*RESTORE RO-RS

RTI

"RETURN

010514
011110
010514
010504

ASGN2:

010476
010616
021274

1%:
025450

021114

ASGN3:
1%:

025404
015344
021102

:CLEAR 'W' COMMAND INDICATOR
*R& IS TABLE INDEX
*SET INITIAL COUNT TO 8
SASSIGN ALL UNITS?

MOVB
MOV

(RS).Ré4
AUNTASN,ASNMSG

:PUT UNIT # IN R4
- "UNIT ASSIGNED' MESSAGE ADDR

BEQ

JSR

001252

000062
000022

2%:

000004

ASGNS:

032514

011130

ASGNG:

032605

011130

ASGN7:
ASGN8:

*RELOAD R3 FOR 1 UNIT

PC,ASGN3

SSEE IF UNIT ON THE SYSTEM

CEXIT

PC,ASGN3
1%

RTS

‘BR IF ALL UNITS

ATABIT(R4).ASNLST
;UNIT ALREADY ASSIGNED ?
1$
:BRIF IT IS

JSR
IMP

RTS

*RETURN HERE IF DRIVE NOT AVAIL

*ASSIGN ALL UNASSIGNED, AVAIL UNITS
TUNIT NOT ON SYSTEM

MOV
JMP

HASGN2+4 ,-(SP)
ASGN4

BNE

ASGN4

;BR'IF

BNE
MOVB

1$
R&,GENDPB

‘BR IF IT IS
:DRIVE NUMBER

TSTB
BEQ

DRVSTA(R4)
ASGNG

AS|
MOV
MOV
JSR
MOV

R4
*MAKE R4 INTO WORD INDEX
BLKADR
(R4) ,NEWUNT (R4) ;DPB ADDRESS
BLKADR(R4)
RO
:PUT BLOCK'S ADDR INTO RO
PC,CLRDPB
*CLEAR BLOCK FOR UNIT JUST ASSIGNED
#1.$PASSC(RO)
-PRESET PASS COUNT TO 1

BITB
ST

TST

ASGN4:

#1,R3

ASNERR

JSR

025516

ASGN2

JMP

BM]
025726
025726
011140
000001
001252

COMMAND)

PACK
R4
#8. ,R3
#1071, (RS)

BITB
BNE

1$:

('T'

CLR
CLR
MOV
cmes

MOV

025450

SEQ 0053

,INVLD

CROUTINE TO ASSIGN A DRIVE

010414
010420
010422
010426
010432
010434
010436
010444
010450
010456
010460
010464
010470

BEQ
MOVB
ASR
DEC

ATABIT(R4),ASNLST
TRNSWT

*BR DRIVE NOT AVAILABLE

PACK

‘WRITE

*DEC UNIT COUNT

2%
PACK,SPACK(RO)
R4

4, (SP)

DEASGN:

(LR

DATA PACK

*BR IF NOT
-SET READ/WRITE DATA PACK INDICATOR
*RESTORE UNIT ADDRESS
‘BR IF FINISHED
“INCREMENT UNIT NUMBER

ASGN3

" CONT INUE

* INCREMENT RETURN

ASGNS
ASGNS

#UNTOFF ,ASNMSG

#NOTSAF _ASNMSG
PC

k&4

:DRIVE AVAILABLE?
*BR IF DRIVE OFFLINE

CEXIT
- *OFFLINE® MESSAGE ADDRESS
CEXIT
-ADDR OF
*RETURN

;ROUTINE TO DEASSIGN A UNIT ('D' COMMAND)
005004

ASGN7

ADD

MOV
RTS

*DATA TRANSFER UNDER WAY

*RECAL IBRATE DRIVE

ASGNS
R4

B8R
MOV
BR

:UNIT ALREADY ASSIGNED ?

PC.RECALO

BEQ
INC

:PUT RETURN ADDRESS ON THE STACK
SLOOK FOR MORE UNITS

°*DRIVE UNSAFE' MESSAGE

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0(T1-78 08:18

010656
010662
0664

30A(1052)

30-0CT-78

CMP8

000001
025450

021274

025450

025726

0c5474

1$:

2%:

000101

010740
010746
010752
010754
010760

032535
011110

3$:
011130
4$:

S5 -

000010

cC 5
PAGE 55

GENERAL SUPPORT SUBROUTINES

000101

021274

11:21

#4101, (RS)

SEQ 0054

;DEASSIGN ALL UNITS ?

BEQ
MOV

S$
#1 R3

BITB

ATABIT(RG),ASNLST

MOVB
BEQ

(R§) R4

‘BR IF YES
*SET R3 FOR ONE UNIT

SGET UNIT NUMBER

:UNIT ASSIGNED ?

BICB
ASL
ng

:BR IF NOT

ATABIT(R4),ASNLST
:DELETE THE UNIT FROM THE ASSIGNED LIST
RS
:MAKE ADDR INTO A WORD INDEX
ngADR(R4).DUNIT(R4)
:PUT ADDRESS IN DEASSIGN LIST

DEC
BEQ
INC
BR
CMP8
BEQ

R3
X3
R4
1%
#1017, (RS)
2%

;ANY MORE UNITS ?
‘BR IF NOT
:DEASSIGN ALL UNITS ?
:BR IF YES

#8. ,R3

:SET UNIT COUNT TO 8

MOV
JSR
RTS

MOV

SUNTNOT ,ASNMSG
PC,ASNERR
PC

-ADDR OF 'NOT ASSIGNED'
‘REPORT IT

“§‘8addmd
W“w“fifig
RRUSIGYNNYSRIYRNG
WO NO
NN

prfv

SCMND:

000101

021274

025450

025726
007230

032535

011110

000207

CLR
CMPB
BEQ
MOVB
BITB
BEQ
ASL

011130

000010
025450

1$:

2%:
3%

BLKADR(RG)
,RO

B8R

5¢

#UNTNOT ,ASNMSG
PC,ASNERR

MOV
TSTB

#8. .R3
ASNLST

INC

BNE

DEC
BNE

007116

48:

5§:

PC,TYPEST

MOV
JSR

B8R

JSR

RTS

ADDR OF

177777

001252

DATAPK: MOV
JMP

BLOCK

SEXIT

:ADDR OF °'NOT ASSIGNED'
:TYPE ERROR MESSAGE

CEXIT

‘BR IF ANY ARE

: INCREMENT UNIT ADDRESS

*DECREMENT COUNTER
*MORE TO CHECK ?

PC,STATPR

STYPE ALL STATISTICS

#-1,PACK
ASGNO

MSG

SUNIT COUNT
*SEE IF ANY UNIT ASSIGNED

R3
3%

*NONE ASSIGNED, RETURN
COMMAND)

JSET THE ‘W' COMMAND INDICATOR
JASSIGN REQUESTED UNIT

JROUTINE TO READ A DATA PACK ('R® COMMAND)
011076

012737

000001

001252

REDAPK: MOV

#1 ,PACK

INDEX

*TYPE DRIVE STATISTICS

JROUTINE TO WRITE A DATA PACK ('w'
010420

('S' COMMAND)

R4
#1071, (RS)
:ALL STATISTICS ?
2$
*BR IF YES
(RS) R4
SGET UNIT #
ATABIT(R4),ASNLST
;SEE IF UNIT ASSIGNED
1%
;BR IF NOT
R4
*MAKE UNIT ADDR INTO WORD

MOV

JSR

NN
NS

|9,

—

P
QG
Guur a4

010762
010764
010770
010772
010774
011002
011004

3888 8839§§Sg§9§8":
VRtV INT<Y 1Y) N afaamm

:ROUTINE TO TYPE UNIT PERFORMANCE SUMMARY

MESSAGE

JSET

THE

°'READ'

INDICATOR

—~

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT-78 08:18

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18

53%%

011104

000137

30A(1052)

010420

JMP

gggé

2936
2937
2938
2939
2940
2941
2942
2943
ggzg

2950
2951
2952
2953
2954
2955

011110
011114
011120
011122
011124
011126
011130
011132
011136

011140
011140

011142
011144
011146
011150
011154
011160

011162
011164
011166
011172
011176
011200

5329

011214

104401
104401
010446
104403
001
104601
000000
104401
000207

033134
032505

ASNERR:

TYPE
TYPE
MOV
TYPOS
BYTE
TYPE
ASNMSG: .WORD
TYPE
RTS

000
001213

011204
011206
011210
011212

(! RDPB:

010346

010446
010546
010004
062704
012703
005024
005303
001375
062704
012703
005024
162703

001374
012605
012604
012603

000002
000005

1%:

000002
000074

2%:

000002

000207

%ggg
011216
011220

011446
005004

2973
2974

011224
011232

146437
006304

021274

(11240
011244
011250
011254
011260
011262
011264
011266
011272
011274

104401
104401
104401
104401
111046
104403
001
104401
012604
000207

001213
001213
032771
033073

2975

2976
2977
2978
2979
2980
2981
2982
2983
2984
2987

ASGNO

JASSIGN THE REQUESTED UNIT

,QUES
LUNTMSG
R4 ,~(SP)

;QUESTION MARK
:TYPE ‘UNIT!
;DRIVE NUMBER
TYPE IT

1.0

:TYPE SPECIFIC MESSAGE
;MESSAGE ADDRESS

O
L$CRLF
PC

MOV

R3,-(SP)

DEC
BNE
ADD
MOV
CLR
SuB
BNE
MOV
MOY
MOV
RTS

R3
1%
#2 R4
#$SILO-SREG,R3
(R4)+
#2,R3

MOV
MOV
MOV
ADD
MOV
CLR

:;PUSH R3 ON STACK

R&4,~(SP)
RS,~(SP)
RO,R%
#2 R4
#5,R3
(RG) +

::PUSH R4 ON STACK
::PUSH RS ON STACK
;GET THE DPB ADDRESS
:ADDRESS OF FIRST LOCN TO BE CIEARED
JNUMBER OF LOCNS TO BE CLEARED
;CLEAR THE LOCATION

2%
(SP)+,RS
(SP) +,Ré
(SP)+,R3

:BR IF NOT FINISHED
;:POP STACK INTO RS
;:POP STACK INTO R4
;:POP STACK INTO R3

:DECREMENT THE COUNTER
:BR IF NOT FINISHED
:MOVE THE ADDRESS PAST THE ‘'REG' ADDR
:NUMBER OF LOCNS TO BE CLEARED
;CLEAR
;DECREMENT THE LOCN COUNTER

:DEASSIGN A DRIVE IF A FATAL ERROR OCCURS

2970
2971

2972

SEQ 0055

:ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED UNIT

2956
2957
2958
2959
2960
2961

2962
2963
2964
2965

:TYPEOUT ASSIGN/DEASSIGN ERROR MESSAGE

5329
2948
2949

30-0CT-78
11:21
PAGE 56
GENERAL SUPPORT SUBROUTINES

011222
011234

111004

010064

DROP:

MOV
CLR

(R4) ,-(SP)
Ré

BICB
ASL

ATABIT(R4) ,ASNLST
;REMOVE UNIT FROM ASSIGNED LIST
Ré
JMAKE UNJT NUMBER INTO A TABLE INDEX

TYPE
TYPE
TYPE
TYPE
MOVS
TYPOS
.BYTE
TYPE
MOV
RTS

LSCRLF
LSCRLF
.DROPNG
.DRNUM
(RG) ,=(SP)

MOV

025450

025474

MOV

000
001213

JROUTINE

:SAVE R4
JCLEAR R4 FOR UNIT NUMBER

(RO) ,R4

:MOVE UNIT NUMBER TO R4

RO,DUNIT(R4)

JPUT UNIT

1.0
LSCRLF
(SP)+ R4
PC

JCR=LF
:RESTORE Ré&
;RETURN

TO DEASSIGN A UNIT

IN DROP LIST

JCR=LF
:CR-LF
:TYPE ‘DROPPING UNIT®
:'DRIVE #'
:DRIVE NUMBER
JTYPE I

ERRORS BE(OMES EXCESSIVE

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PTN
23-0(7-78 08:18

2988
2989
2990
2991
2992
2993
Sggg

011276
011304
011306
011314
011316
011322

032777
001006
023760
101002
000137
000207

30A(1052)

000020

167634

001310

000050

011216

gggg
01124
011330
011332
011340
011342
011344
011352

Q05737
001012
026037
101017
103405
026037
103012

001316

3006
3007
3008
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3026

011356
01134
011366
011370
011376
011400
0116406
011410
011414
011416
0114246
011426
011434
011436
011442
011446
011450
011452
011456

026037
101005
103477
026037
103473
104401
104401
016046
104405
032777
001016
026037
103412
104401
104401
111046
104403
001
104401

3026
3027
3028

011462
011466
011470

3025

3029

011356

011460

011472

000504

000430

001276

000044

001274

000042

001302

000040

001300

001213
033025
000062
1675°4

000062

001304

033041
033073

000
001213
033073

104401
004737
010346
010446

001213
007230

3035
303
3037
3038
3039
3060

011512
011516

062704
012703

000034
000006

011522
011524
011526

005024
005303
001375

3042
30643

011532
011534

012603
005260

3041

011530

010004

1%:

000

011474
011500
011504
011506

011510

NRML1:

NRML2:

000020

104401
111046
104403
001

NRML:

000046

3030
3031
3032
3033

303

ABNRML: BIT
BNE
cTMP
BH]
JMP
1$:
RTS

SEQ 0056

#SW04 , 3SWR
;SEE IF SWITCH & SET
1%
:BR IF IT'S SET
MAXER,$TOTAL(RO) ; CHECK TOTAL ERROR VALUE
1%
;BR IF NOT AT MAXIMUM
DROP
:DEASSIGN THE DRIVE
PC
*RETURN

:ROUTINE TO CHECK FOR END OF PASS AND END OF TEST

2998
2999
3000
3001
3002
3003
3006

3005

E_S

30-0CT-78
11:21
PAGE 57
GENERAL SUPPORT SUBROUTINES

SEKMOD
;END OF PASS DETERMINED BY SEEKS OR WORDS ?
NRML 1
‘BR IF SEEKS
SREAD+2(R0) ,ENDCON+2
;CHECK MSW OF WORDS READ COUNT
NRML 2
:BR IF MSW GREATER THAN LIMIT
NRML 1
‘BR IF MSW LESS THAN LIMIT
$READ
(RO) ,ENDCON”
; CHECK LSW AGAINST LIMIT
NRML2
:BR IF EQUAL OR GREATER

C(MP
BHI
8LO
cMP
BLO
TYPE
TYPE
MOV
TYPDS
BIT
BNE
CMP
BLO
TYPE
TYPE
MOVB
TYPOS
.BYTE
TYPE

$POSIT+2(R0O) ,ENDSEK+2
;CHECK MSW OF SEEK COUNT
NRML 2
:BR IF MSW GREATER THAN LIMIT
NRML X
SEXIT IF MSW LESS THAN LIMIT
$POSIT(RO) ,ENDSEK
;CHECK LSW OF SEEK COUNT
NRML X
SEXIT IF LSW LESS THAN LIMIT
L$CRLF
‘CR-LF
ENDPAS
‘END OF PASS FOR THE UNIT
$PASSC
(RO) .-(SP)”
:PUT PASS COUNT ON THE STACK
; CONVERT PASS COUNT TO DECIMAL AND TYPE IT
#SW04 , aSWR
“SWITCH &4 SET 2
1%
‘BR IF SET
$PASSC
(RO) ,PASCNT
;SEE IF AT END OF TEST
1$
;BR IF NOT
LENDTST
*TYPE "END OF TEST'
- DRNUM
S'DRIVE #'
(RO) .= (SP)
‘DRIVE NUMBER
STYPE IT
1,0
$CRLF
:CR=LF

TYPE
MOVB
TYPOS

. DRNUM
(RO) ,-(SP)

B8R

BYTE

1,0

CEXIT

*DEASSIGN THE DRIVE

S'DRIVE #°
:DRIVE NUMBER
STYPE IT

,$CRLF
PC.TYPEST
R3.-(SP)
R&.~(SP)

:CR-LF
STYPE THE UNIT'S STATISTICS
*SAVE R3
‘SAVE R&

ADD
MOV

#SOPERC ,R4
#6,R3

RO, R4

TUNIT'S BLOCK ADDRESS

CLR
DEC
BNE

(R4)+
R3
2%

*ADD THE STARTING ADDR OF SECTIONS TO CLEAR
*NUMBER OF LOCNS TO BE CLEARED
: (ERROR COUNTERS NOT CLEARED)
*CLEAR THE LOCN
:DECREMENT THE LOCATION COUNTER
‘BR IF MORE T0 GO

MOV
INC

(ZP)+.R3
$PASSC (RO)

*RESTORE R3
*INCREMENT THE PASS COUNT

MOV

000062

NRML X

TYPE
JSR
MOV
MOV

MOV

2%:

012604

TST
BNE
cMP
BH]
BLO
cMP
BHIS

(SP)+ R4

*RESTORE R4

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T1-78 08:18

3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057

3058
3059

3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3002
3093
3004
3095
3096
3097
3004
309

011540
011542
011546
011550
011552
011560
011562
011566

000412
104401

30A(1052)

001213

021274

30-0CT-78

GENERAL

PAGE 58
SUPPORT SUBROUTINES

3%:

B8R
TYPE

NRMLX
LSCRLF

MOVB

(RO) ,R4

025450

025474

N :21

CLR

SEQ 0057

JEXIT
;CLEAR R4 FOR DRIVE NUMBER
:MOVE DRIVE NUMBER

BICB

ATABIT(Ré) ASNLST

MOV

RO,DUNIT(R&)

ASL

NRMLX:

RTS

;DELETE DRIVE FROM ASSIGNED LIST

;MAKE DRIVE NUMBER INTO TABLE

INDEX

PUT BLOCK ADDRESS IN70 DROP LIST
RETURN

JROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER
011570
011574
011576

011600
011604

011606
011610

013746
0025046
010546
004737
012605
005726
000207

020610

GETREM:

MOV
CLR

MOV
JSR
MOV

020176

TST
RTS

SHINUM,
- (SP)
~(SP)
RS,-(SP)
PC,SDIV
(SP)+ RS
(SP)+
PC

;LOWER DIVIDEND
;UPPER DIVIDENT
sPUT DIVISOR ON THE STACK

;PUT THE REMAINDER INTO RS
;ADJUST THE STACK POINTER

JROUTINE TO PEPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES
011612
011620
011622
011630
011632
011640
011642
011646
011650
011654
011660
011662
011666
011670
011672
011674
011676
011700
011704
011712
011720
011722
011724
011726
011730

000207

011732

000000

012737
000412
012737
000406
012737
000402

000004

011732

$RPZR8: MOV

060006

011732

$RPZRL: MOV

#6,RPZIRC

000007

011732

$RPZRS: MoV
B8R

#7 ,RPZRC
RPZERO

011732

B8R

$RPZRO:

RPZERO:

000004
000060

1%:

RPZERO

JTYPE

THE VAL UE

RPZRC

MOV
CMPS

4(SP) ,RO
#'0,(RO)

RO,=-(SP)

JSETUP TO TYPE & SIGNIFJCANT DIGITS
JSETUP TO TYPE 3 SIGNIFICANT DIGITS

;TYPE

THE VALUE
JSETUP TO TYPE 10 SIGNIFICANT DIGITS

;SAVE RO

;ADDRESS OF NUMBER TO RO

JBYTE EQUAL TO ASCII

'0O* ?

2%
#40, (RO)
RO
1%
(R0O)
3%
RO
#'0, (RO
4(SP) ,4%
RPZR(C,4%

JREPLACE THE ZERO WITH A SPACE
. INCREMENT THE BYTE ADDRESS
;G0 BACK AND LOOK FOR MORE LEADING ZEROS
JSEE IF 2ERO BYTE TERMINATOR
;BR IF NOT
JBACKUP STRING POINTER
JPUT A ZERO BACK IN
;PUT ADDRESS IN LOCATION FOR TYPEOUT
JBEGINNING OF SIGNIFICANT DIGITS

.WORD
MOV
MOV
RTS

0
(SP)+,R0
(SP)+,’SP)
PC

JADDRESS OF NUMBER
JRESTORE RO
JMOVE RETURN ADDRESS
:RETURN

RPZRC:

.WORD

cOFFSET FOR CONVERTED DIGITS HERE

2%:

011722
011722

THE VALUE

MOV

JSETUP TO TYPE 8 SIGNIFICANT DIGITS

s TYPE

BNE
MOVR
INC
BR
TSTB
BNE
DEC
MOVR
MOV
ADD

000040

000060
000004
011732

#4 ,RPZRC

RPZERQ

3%:

TYPE

JBR IF NOT

;TYPE

THE NUMBER

:THIS ROUTINE IS USED TO CHFCK IF AN ASCII CHARACTER IS A DIGIT
JBETWEEN O AND 7,
MOV

JSR

RE TURN1

#ADR,R1
RO,rK.OCT

;ADDRESS OF ASClI CHARACTER
sCHECK THE CHARACTER
s (HARACTER IS IN R2 AS A

;OCTAL DIGIT

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT1-78 08:18

3100
3101
3102
3103
3106
3105
3106
3107
3108
3109
3110
311
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129

3130

3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146

3147
3148
3149
3150
3151
3152
3153
2154
3155

011734
011740
011742
011746
011750
011752
011756
011760
011762

121127
103407
121127
101004

111102

042702

200060

30A(1052)

30-0CT-78

PAGE 59

GENERAL

SUPPORT SUBROUTINES

;

RETURNZ

“K,0CT:

000067

(MPB

2%:

;CHARACTER IS NOT BETWEEN 0-7
(R1) 40

JLESS THAN ZEROD?

(R1) ,4'7

:GREATER THAN SEVEN?

BHI
MOVB
BIC
BR

1%
(R1) ,R2
#~C7,R2
2%

JYES == BRANCH
sGET THE CHARACTER
;STRIP AWAY THE ASCII
;BYPASS RETURN ADJUST

RTS

cRETURN

TST

MOV
JSR

RETURN
RETURN
RETUPN

(K.CHR:

TSTB

WILL

CHECK

1%:

2%:

AN ASCII

CHARACTER

sADDRESS OF ASCII
;CHECK CHARACTER

(R1)

;"'CARRIAGE RETURN'"

(R1),4°'.

;" PERIOD'?

ADR1
ADR?
ADR3

BNE
TST
TST
INC
MOV

2%
(RO) +
(RO) +
R1
(RO) ,RO

RTS

;ADJUST FOR RETURN

#ADR,R1
RO, CK.CHR

BEQ

CMPR

000056

JYES == BRANCH

(RO) +

;DETERMINE WHAT IT |S.

105711
001404
121127
001003
005720
005720
005201
011000
000c00

SEQ 0058

sTHIS ROUTINE

011764
011766
011770
011774
011776
012000
012002
012004
012006

8LO

(MPB

177770

000200

11:21

CHARACTER

sUNKNOWN CHARACTER
sCARRIAGE RETURN * (R1)-ADR+1
;PERIOD * (R1)=ADR+1

JYES == BRANCH

;NO == BRANCH
;PER]IQD
; CARRIAGE RETURN
sMOVE POINTER TO NEXT CHARACTER
JUNKNOWN (CHARACTER

JRETURN

;THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS

sAND FORMS AN OCTAL NUMBER

MOV

#ADR R

;ADDRESS OF

RETURN

ADR]

:ILLEGAL CHARACTER IN THE

RETURN

ADR3

(K.NUM:

MOV

;

;
;

012010
012012
012014
012020

012022
012026
012030
012032
012034
012036
012040
012042
012044

010349

00403;

011734

004035

011764

IN R?2

JSR

RETURN

RETURN
RETURN

RO, CK.NUM
ADR?

R3,-(SP)

; SAVE R3

R3
RC.Ck.OCT
1$
RO, (K. CHR

INC
ASL
figs

R1
R3
2;

INPUT STRING

;' PERIOD’ ~=R2=NUMBER

:"CR' WAS FIRST ENTRY
:'PERIOD' WAS FIRST ENTRY

(LR
JSR
BR
JSR
6%

;'R '==R2=NUMBER

ADR
ADRS

§§

1%:

ASCIZ STRING

;GO FORM THE NUMBER

:START NUMBER AT ZERO
:0CTAL DIGIT?
: YES==BRANCH
:CHECK ONE CHARACTER
: ILLEGAL CHARACTER

: CARRIAGE RETURN

:MOVE TO NEXT CHARACTER
;FOR THE OCTAL NUMBER IN R3
;DON'T LET IT GET TO BIG

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0CT7-78 08:18

3156
3157

3158
3159
3160
3161
3162
3163
3164
3165
2166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202

3203
3204
3205
3206
3207
3208
3209
3210
3211

012046
012050

012052
012054
012060
012062
012064
012066
012066
012072
012074
012076
012100
012102
012104
012106
012110
012112
012114
012116

30A(1052)

30-0CT-78
11:21
PAGE 60
GENERAL SUPPORT SUBROUTINES

006303

ASL

103420

060203
004037
000765
010302
005003

011764

B8R

JYES=-MAKE

CLR

;START WITH ZERO INDEX

JSR

RO.CK.CHR

4%
TST

4%
5%:

TST
TST

6%:

6%
5%

SEQ 0059

B(CS

ADD
JSR

011734

R2.R3
RO,CK.OCT

;1S THIS AN OCTAL DIGIT?
IT PART OF

s SAVE THE OCTAL NUMBER

THE

NUMBER

;CHECK ONE CHARACTER
:ILLEGAL CHARACTER

: CARRIAGE RE TURN

(R3)+

J'PERIOD' ONLY

(R3)+
(R3)+

:/PERIOD”

1SY

(R3)+

ADD
MOV
MOV
RTS

R3,R0
(SP) +,R3
(R7) ,RO
RO

J'CR' ONLY
s YES=-=-SAVE

THE

OCTAL

JRESTORE R3
JPICKUP EXIT ADDRESS

NUMBER

;RETURN

JTHIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TQ DETERMINE
;WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS, FROM THE ‘ERROR

JTABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
;CONCERNING THE ERROR.
012120
012122
012130
012132
012134
012140
012142
012144
012146
012150
012154
(012160
012162
012166
012172
012174
012176
012202
012204
012210
012212
012214
012216
012220
012222
012224
012226
012230
012232
012236

104412

032777
001113
0050600
113700

005300
006300

006300

020000

167010

TYPERR:

001114

001346
012174

1¢:

001213
007624

012212

2%:
3%

001213
(%

5¢:

#SW13,aSWR
20%
RO
$ITEMB,RO
RO

;SAVE RO-RS
JINHIBIT ERROR TYPEOUTS ?
JBR IF INKIBIT
;CLEAR RO FOR ERROR NUMBER
.ERROR NUMBER
.FORM INDEX FOR ERROR TARLE

ADD
MOV
BEQ
TYPE
JSR

#$ERRTR,RO
(RO)+,2%
3$
LSCRLF
PC,$TIME

.FORM ADDRESS
;GET FRROR MESSAGE (EM) POINTER
JBRANCH IF THERE ISN'T ONE
;"'CARRJAGE RETURN - LINE FEED

L.MWORC
MOV
BEQ
TYPE

O
(ROY+,4%
5%
LSCRLF

;"EM' POINTER GOES HERE

.WORD

BEQ
(LR
MOV

203
RS
(RO)+ RC

.'DH'’ POINTER GOES HERE
;P1CKUP DATA TABLE (DT) POINTER
sBRANCH [F NONE

BFQ
coM
TYPF
MOVRB

17%
RS
Lo RUF
(RO)+,R3

SAVREG

BIT
BNE
(LR
MOVR
DEC

ASL
ASL
ASL

TYPE

MOV

MOv

112003

001213

10%:

RO
RO
RO

(RO
+ ,R1

(RO)
+ ,R?

;TYPE

THE

TIME

JPICK UP DATA HEADER (DH) POINTER
JBRANCH IF NONE
;CARRIAGE RETURN-LINE FEED

sSET INDENT SWITCH
;DATA FORMAT (DF) POINTER
;NUMBER OF DH'S TO TYPE
JBRANCH IF DH NUMBER IS 0
;NO INDENT
s (ARRIAGE RETURN-LINE

FEED

;NUMBcR OF DATA WORDS TO TYPE

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0CT1-78 08:18

012240

112004

006004

30A4(1052)

5
I
11:21
PAGE 61
GENERAL SUPPORT SUBROUTINES
30-0CT-78

11%:

103403

013146
104402

12%:

013146

13%

MOV

a(R1)+,~(SP)

14%:

1%
R2

032470
012326

14%

,SPACE?

20%

JSCRLF

001213
000002

2 (RO)
15%
RS
15%

LSPACE?2

15%:

(RO)+,16%

16%:

0
(RO)
21%
#4 ,RO

000004

104413

"3%:
032470

000207

12%
a(R1)+,-(SP)

TYPO(

000402

(RO)+,R4

MOvB
ROR
BCS
MOV

001213

’1%:

032470

I7$:

20%:

14%

LSCRLF

RS
108
,SPACE2
10¢
P(

SEQ 0060

sAND HOW TO TYPE THEM
;OCTAL OR DECIMAL?
s DECIMAL~~BRANCH

;;SAVE @(R1)+ FOR TYPEOUT

;.60 TYPE--OCTAL ASCII(ALL DIGITS)

;:SAVE a(R1)+ FOR TYPEOUT
..GO TYPE--DECIMAL ASCI] WITH SIGN
;MORE NUMBERS TO TYPE?
;NO--BRANCH
;YES--TYPE SEPERATORS

.LOOP

;MORE DH'S?
+NO~~-BRANCH
JYES==-START A NEW LINE
JONLY A 'DH' IN THIS REQUEST ?
¢BR [F YES - BYPASS THE INDENT
; INDENT?
sNO--BRANCH
sYES=-=-TYPE SPACES
sGET NEXT DH
AND TYPE IT
.DH POINTER GOES HERE

;TYPE A

‘DT

;BR IF A 'DT*

; INCREMENT THE °'DF' POINTER
;SEE IF END OF °'DF' BLOCK
. CARRIAGE RETURN=-LINE FEED
. INDENT?
+NO--BRAN(CH

JYES==-TYPE

.LOOP

SPACES

JRESTORE RO-RS

JRETURN

(ZRP1CO, RP11 MUDR EXER MACY] 1
C2RPIC.P1Y
23-0CT1-78 08:18

30A(1052)

3247

30-0CT-78

11:21

PAGE A2

GENERAL SUPPORT SUBROUTINES

SEQ 0061

32‘8

.-.-t"'t.'ttttt.!ttt.tttt't't'tttttttttt.ttttttnttttttit'ttttttt't

3249

.SRTTL END OF ORDER PROCESSING

%529

3252
3253

;;t!.tttttt.tttttttttttttttttt'ttt.t'ttltttttt.ttttttttttttttttt'

§Sgg

;PROCESS

3256
3257
3258
3259
3260
3261

012364
012370
012372
012376
012402
012406

005760
100002
000137
004737
004737
032777

012424
012456
000002

3263

012416

004737

012524

3262

%ggg

012614

012422

001002

000207

200016

PROCES:

013452

1%:

166524

012424

(32760

015000

3270
3271
3272
3273
3274

012434
012440
0126442
012444
012450

005760
001405
104015
004737
062706

000070

3275

3276
3277
3278

012432

012454

001003

000207

000066

3288
3289
3290
3291

%gg%

2%:

;SEE IF RP11 HANDLER SIGNALED AN ERROR
:BR IF NO ERROR DETECTED
:ERROR - PROCE3S IT

JSR

AC,CMPAR

;NO ERROR,

RTS

:NO ERROR, CHECK ERROR BITS ANYWAY
:NO ERROR, CHECK BUS ADDR & W(
;COMPARE THE BUFFER ?

:BR IF NOT
:RETURN

COMPARE DATA

BIT

#HNF 'SUS]T . SUFU,SRPDS(RO)

TST
BEQ
ERROR
JSR
ADD

$RPER(RO)
2%
15
PC,INCTOT
#2,SP

BNE

RTS

;SEE

;BR IF ANY SET

P(C

:RE TURN

IF ERROR BITS IN RPDS

JANY BITS SET IN RPER
:BR IF NONE SET
JERROR BITS SET, NO ERROR SIGNALED
:INCREMENT TOTAL ERROR (OUNT
RETURN TO MAIN ROUTINE

:CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER
012456
012462
012464
(12470
012474
012500
012502
012506
012510
012512
012516
012522

016046
006316
066016
011637
022660
001003
005760
001405
104016
004737
062706
000207

000020

(KBUS:

000006
001124
00007¢
000074
1%:

007606
C00002

2%:

%sgg

MOV
ASL
ADD
MOV
CMP
BNE
TST
BEQ
fRROR
JSR
ADD
RTS

$WRDL
(RO ,~(SP)
(SP)
$BUF (RG), (SP)
{SP) ,$GDDAT
(SP)+,$RPBA(RQ)
1%
$RPW( (RO)
2%
16
PC,INCTOT
#2,SP
PC

:WORD LENGTH
;CHANGE INTO BYTE COUNT
:ADD THE STARTING LOCATION
;STORE IN CASE OF ERROR
:BUFFER ADDRESS PROPER 2
:BR IF NOT CORRECT
;CHECK WORD COUNT

:BR IF ZEROQ
WORD CCUNT OR BUFFER ADDRESS
INCREMENT TOTAL ERROR COUNT
JRETURN TO MAIN ROUTINE
:RETURN

INCORRECT

;COMPARE THE BJUFFER

3296
3297
3298
3299
7300

012524
012532
01253
012542
012544

122760
001404
132760
001001
000207

000007

000002

000004

000602

3302

012552

016037

000020

3301

CKERR:

1%:

007606
000002

%5;3
3281
3282
3283
3284
3285
3286
3287

JSR
JSR
Bl

$TATUS (RO)
1%
ERPROC
PC,CKERR
PC,CKBUS
#SWO1,aSwR

;CHECK ERROR BITS IN 'RPER' & 'RPDS'

3268

3269

TST
BPL
JMP

BNE
2%:

gsgg

THE ORDER TERMINATION

012546

016001

000006

C(MPAR:

013144

(MPB
BEQ
BITR
BNE
RTS

#WRTCHK ,$COMND (RO)
;WRITE CHECK ?
1%
:BR IF WRITE (HECK
#B]T02,$COMND
(RO)
:READ ORDER ?
CMPARD
:BR IF READ
PC
;RETURN

MOV

$WRDL
(RO) ,(MCNT

rMPARD: MOV

$-' )F (RO) ,R1

:BUFFER ADDRESS

,WORD COUNT TO WORKING LOCAT!ON

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T1-78 08:18

3303
3304
3305

012560
012566
012574
012602
012610
012616
012622

066037
016037
116037
116037
013737
005237
010137

000076
000010
000013
000012
001314
013142
013154

3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337

012640
012644
012650
012654
012662
012664
012670
012672
012676
012702
012706
012710
012714
012716
012720
012724
012726
012730
012734
012736
012744
012746
012752
012754
012756
012760

005037
005037
005037
023727
101003
013702
000402
012702
160237
004737
000403
004737
000456
011405
012703
022125
001016
005737
001406
032777
001402
004737
005302
001434
005303
001361

013140
013134
013136
013144

3339
3340
3361
3342
3343
3344
3345
336
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358

012764
(12770
012772
013000
013004
013006
013012
013014
013020
013024
013030
013032
013036
013040
013044
013046
013052
013056
013060
013064

005761
001406
112737
004737
000762
105737
001007
105037
010137
010537
000750
105737
001745
004737
000742
004737
005737
003424
005237
023727

3307
3308

3310
3311

3338

012626
012634

012762

112737
105037

000755

177777
013133

30A(1052)

013144
013146
013152
013150
013142

K_5
30-0CT-78
11:21
PAGE 63
END OF ORDER PROCESSING

(MSTR:

013132

013144

$:
2%:
CMDAT:

015030
2%:

000020

3%:

013140
000010

166174

013156

6%:

177776
177777
013156

°%:
0°3132

013133

6%:

013132

013134
013136
013132

7%:

013156

013352
013144

013150
013150

8%:
9%:
000012

$RPWC
(RO) ,CMCNT
$CYL(RO) ,CMCYL
$TRK(RO) ,CMTRK
$SEC(RO) ,CMSEC
CMPLMT L IMIT
LIMIT
R1,CMBUF

; CALCULATE ACTUAL WORDS TRANSFERED
;CYLINDER ADDRESS
;TRACK ADDRESS
;SECTOR ADDRESS
;DISPLAY LIMIT
;CONVERT PARAMETER INTO LIMIT VALUE
;STARTING ADDRESS OF SECTOR BUFFER

CLR
(LR
CLR
cMP
BHI
MOv
BR
MOV
SUB
JSR
BR
JSR
BR
MOV
MOV
CMP
BNE
TST
BEQ
BIT
BEQ
JSR
DEC
BEQ
DEC
BNE

ERCIR
SAVER1
SAVERS
CMCNT ,4256.
1%
CMCNT ,R2
2%
#256. ,R2
RZ,CMCNT
PC,MAT(CH
2%
PC NOMT(H
9%
(R4) RS
#20,R3
(R1)+,(R5)+
5%
ERCIR
4%
#SW3,aSWR
4%
PC,CMPRT
R2
8%
R3
3%

;CLEAR ERROR COUNTER
;CLEAR THE R1 SAVE WORD
;CLEAR THE RS SAVE WORD
215 BUFFER SIZE GREATER THAN ONE SECTOR ?
;BR IF IT IS
;LESS THAN, USE REMAINING BUFFER
H
; COMPARE SECTOR
;DECREMENT WORD COUNT
JFIND THE PATTERN
sFOUND A PATTERN
RETURN HERE IF NO MATCH WITH PATTERN MADE
;BYPASS COMPARE ROUTINE
;ADDRESS OF PATTERN ADDRESS IN R4
JR3 IS PATTERN POS COUNTER
;COMPARE BUFFER WITH PATTERN
;BR IF NOT EQUAL
;ERRORS DETECTED ?
:BR IF NO ERRORS
SWITCH 3 SET ?
BR IF NOT SET
:DISPLAY THE WORD
;DECREMENT SIZE COUNT
;BR WHEN AT END
;DECREMENT PATT POS COUNT
;BR IF NOT AT END OF PATT

TST
BEQ
MOVB
JSR
BR
TSTB
BNE
(LRB
MOV
MOV
BR
TSTB
BEQ
JSR
BR
JSR
TST
BLE
INC
(MP

=2(R1)
6%
#-1,2ROIND
PC,CMPRT
4%
FRSTER
’$
ZROIND
R1,SAVER1
RS, SAVERS
4%
ZROIND
4%
PC,CMPRT
4%
PC ,ENDCMP
CMCNT
CMPRX
C<EC
(MSEC,#10.

MOVB
CLRB

000400

000400
013144
013374

ADD
MOV
MOvB
MOVB
MOV
INC
MoV

SEQ 0062

#-1,2ZROIND
FRSTER

JCLEAR THE 'ZERO'S' INDICATOR
;CLEAR 'FIRST ERROR' INDICATOR

JRESTART THE PATTERA

;1S MISCOMPARED CHARACTER=0
;BR IF YES
;SET NON-ZERO MISCOMPARED IND
JREPORT ERROR
. CONTINUE COMPARE
sFIRST ERROR?
;BR _IF NOT
;SET THE ZERO INDICATOR
;SAVE CURRENT R1
;SAVE CURRENT R5
s CONTINUE COMPARE
ANY MISCOMPARIONS NOT ZEROS ?
BR IF NONE: ALL ERRORS ARE ZERO
:REPORT ERROR
;CONTINUE COMPARING
:PRINT LAST LINE (IF ERRORS)
;AT END OF BUFFER
:BR IF AT END
; INCREMENT SECTOR
:SECTOR GREATER THAN MAX °

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0C7-78 08:18

3359
3360
3361
3362
3363
3364
3365
3366
gggg

013072
013074
013100
013104
013112
013114
013120
013124
013130

103646
005037
005237
023727
103636
005037
005237
000137
000207

3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
%%g?

013132
013133
013134
013136
013140
013142

013144
013146

013150
013152
013154

30A(1052)

5
SEQ 0063

8LO
(LR
+ INC
cMP
8LO
CLR
INC
JMP
CMPRX:
RTS

CMSTR
CMSEC
CMTRK
CMTRK ,#20.
CMSTR
CMTRK
cMCYL
CMSTR
PC

;BR_IF NOT GREATER THAN MAX
sCLEAR SECTOR ADDRESS
s INCREMENT TRACK
s TRACK GREATER THAN MAX ?
:BR IF NOT GREATER
JRESET TRACK ADDRESS
s INCREMENT CYLINDER ADDRESS
:CONTINUE WITH COMPARF

377
000

IROIND:
FRSTER:

.BYTE
.BYTE

=1
O

000000
000000
000000
000000

SAVER1:
SAVERS:
ERCTR:
LIMIT:

.WORD
.WORD
.WORD
_WORD

0
O
O
O

(MSEC:
CMTRK:
(MBUF:

.WwORD
.WORD
.WORD

;ZERO _INDICATOR
JFIRST ERROR INDICATOR
;IF NOT 0, MISCOMPARSION fOUND
;SAVE R1 HERE
sSAVE R5 HERE
;NUMBER OF ERRORS
;DISPLAY LIMIT
;WORD COUNT
;CYLINDER ADDRESS
;SECTOR ADDRESS
s TRACK ADDRESS
;BEGINNING ADDRESS OF SECTOR

013150
9013152
013152

000024

013152
013146
012610

000000
000000
000000
000000
000000

CMCNT:
CMCYL:

%%g%

3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
340C
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
314

30-0CT-78
11:21
PAGE 64
END OF ORDER PROCESSING

_WORD
.WwORD

O
0

O
O
O

; TYPE DATA (OMPARE ERRORS

013156
013162
013164
013172
013176
013204
013210
013212
013214
013216
013222
013226
013232
013236
013242
013246
013250
013252
013256
013262
013264
013270
013272
013276
013300
013306
013310
013314
013322
013330
013334

105737
001010
112737
004737
112737
005737
001420
010146
010546
013701
013705
004737
005237
005037
005037
012605
012601
004737
005237
000207
005737
001403
005337
001004
032777
001420
012137
162737
016537
016137
112737

013133
000012
012120
177777
013134
.

CMPRT:

001114
013133

013134
013136
013264
013140
013134
013136

013264
013140
013142
013142

000004

001122
000002
177776
177776
000013

165632
001122
001124
001126
001114

TSTB
BNE
MOVB
JSR
, MOVR
1%:
CTST
BEQ
MoV
MoV
MOV
MOV
JSR
INC
CLR
CLR
MOV
MoV
’$:
JSR
INC
RTS
(MPRT1. TST
BEQ
DEC
BNE
'%:
BIT
BEQ
’%:
MOv
SUB
MOV
MOv
MOVR

FRSTER
1%
#12,81TEMB
PC,TYPERR
#-1,FRSTER
SAVER1
2%
R1,-(SP)
RS,=(SP)
SAVER1,R!
SAVERS RS
PC,CMPRT]
ERCTR
SAVER1
SAVERS
(SP) +,R5
(SP)+,R1
PC,CMPRT1
ERCTR
PC
LIMIT
1%
LIMIT
2%
#5W02,aSWR
3%
R1,$8DADR
#2,$8BDADR
~2(R5) ,$GDDAT
-C'R1) ,$BDDAT
#13,81TEMB

;FIRST ERROR?
JBR IF NOT
;ERROR TABLE INDEX
;DATA COMPARISON ERROR
;SET °‘FIRST ERROR' INDICATOR
s SAVED REGISTERS ?
;BR IF NONE
;cPUSH R1 ON STACK
2 sPUSH R5 ON STACK
:DISPLAY SAVED R1
;DISPLAY SAVED RS
;PRINT SAVED VALUES
s INCREMENT THE ERROR COUNTER
;CLEAR SAVED REGISTER INDICATORS
;CLEAR THE OTHER ONE
;;POP STACK INTO RS
;.POP STACK INTO R1
JPRINT REMAINDER OF MESSAGE
; INCREMENT THE ERROR COUNTER
JRETURN
sTYPEOUT LIMIT REACHED ?
:BR IF IT HAS
DECREMENT LIMIT COUNTER
SRR IF NOT AT LIMIT
.
:PRINT ALL DATA COMPARE tRRORS °
JBR [F NOT
JADDRESS OF BAD WORD
sADJUST ADDRESS
;GOOD DATA
:BAD DATA
:
;ERROR TABLE INDE
X

CZRP1CO, RP11 MUDR EXER MACY11

CZRPI1C.P1N
34615
gz}g

23-0(1-78 08:18

013344
013350

004737
000207

30A(1052)

012120

005737
001405
104014
004737
062706
000207

013140

ENDCMP:

007606
000002

1%:

3427
gzgg

013374
013376
013402
013404
013410
013414

010146
012704
011601
162704
016405
00141

3437
3438
3439
3440
3441
3442
3443
3444
3445
%229

013416
013422
013424
013426
013430
013432
013436
013440
013446
013456

012703
022125
001366
005303
001374
062704
000403
062766
012601
000207

3450
3451
%22%

013452
013460
C13462

032760
001402
000137

MAT(H:

000044

000002
025754
000004

2%:

025754

000002

000200

000002

000016

013652

%22%

3456

34657
3458
3659

3460

TST
BEQ
ERROR
JSR
ADD
RTS

PC,TYPERR
PC

SEQ 0064
;DISPLAY WORD THAT DIDN'T COMPARE
JRETURN

COMPARE ERROR REPORTING

ERCTR
1%
14
PC,INCTOT
#2,SP
PC

;SEE IF ANY ERRORS
;BR IF NONE
JNUMBER OF COMPARE ERRORS
s INCREMENT TOTAL ERROR COUNT
JRETURN TO MAIN ROUTINE
SRETURN

3$%:
6%

MOV
MOV
MOV
SUB
MOV
BEQ

R1,-(SP)
#44 R4
(SP) ,R7Y
#2 R4
STINDAT(R4)
,RS
3%

;SAVE R1 ON THE STA(K
;PATTERN TABLE INDEX
JRELOAD R1
sDECREMENT INDEX
;ADDRESS OF PATTERN ADDRESS
;?gués ALL PATTERNS CHECKEL AND NO MAT(H

MOV
CMP
BNE
DEC
BNE
ADD
BR
ADD
MOV
RTS

#4 ,R3
(R1)+,(RS)+
1%
.
R3
.
2%
#STNDAT R4
4%
#2,2(SP)
(SP)+ R1
PC

JNUMBER OF LOCATIONS TO CHECK
;COMPARE THE BUFFER AGAINST THE PATTERN
:BR IF NOT EQUAL, TRY NEXT PATTERN
:F INISHED CHECKING?
:BR IF NOT FINISHED
:MAKE PATTERN ADDRESS ABSOLUTE
JEXIT
s INCREMENT RETURN ADDRESS
JRESTORE R1
JRETURN

;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR

ERPROC: BIT
BEQ
JMP

#31107,$TATUS(RO) ;DONE BIT SET ?
ERPRC1
;BR IF ORDER DIDN'T COMPLETE NORMALLY
DONE
sPROCESS ERROR WITH °'DONE' BIT SET

JPROCESS ORDER COMPLEJION WITH

013466

013474
013476
013504

013510

032760

001405
012777
004737

032760

3461

013516

001022

3467
3468

01356
013550

001022
032760

000400

000016

000100
006752

165440

040000

000016

000400

000016

3462 013520 032760 020000 000016
3463 013526 001023
3464 013530 032760 010000 000016
3465 013536 001021
3466 013540 032760 001000 000016
2298

PAGE 65

JFIND THE CORRECT PATTERN - RETURN WITH ADDRESS OF PATTERN IN R4
;
RETURN +2 IF PATTERN CAN'T BE FOUND

3430
3431
3432
3433
3434
gz%g

gfifig

JSR
RTS

;LAST LINE OF

013352
013356
013360
013362
013366
013372

11:21

END OF ORDER PROCESSING
3%:

gzlg

3420
3421
3422
3423
3424
%252

30-0CT-78

8}3556

3560

001023

104043

ERPRC1: BIT

1%:

BEQ
MOV
JSR

elrt

BNE

BIT
BNE
811
BNE
8IT

BNE
BIT
BNE

ERROR

'ERROR'

'DONE NOT® BITS

#31T08,8TATUS(RO)

;WAS A

081714 STAYUS(ROi

JUNIT WENT OFFLINE ?

1%
#BI1T06,a$TKS
PC, CKCIK
OFL

'RESET'

ISSUED ?

:BR IF NOT
JRESTORE TTY KEYBOARD INTERRUPT
¢ START THE CLOCK

IF 1T DID
081113 STATUS(ROS ;BAD
COMMAND CODE USED ?
BACOP
If SO
miT12, STATUS(ROSSEE IF DRIVE WAS UNSAFE
UNSAF
IF IT WENT UNSAFE
lBIT09 STATUS(ROS: TIMEOUT DURING POSITIOMNING °

T IMPOS
;BR_IF YES
#MIT8,$TATUS(RO)
;TIMEOUT DURING 1/0
7 MIO

;BROIFYES

SINVALID STATUS CODE

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C1~-78 08:18

g:;;

%2;2

345
%76
gz;g

013562

000207

013564
013566
013572

104021
004737
0Q0L:37

30A(1052)

OFLIN:

007606
011216

013576
013600

104002
000207

gzgg

3486
3487
gzgg

013602
013604
013610

1046022
004737
000137

007606
011216

%23?
3492
3493
gzgg

013614
013616
013622

104017
004737
000137

3509
3510

013626
013630
013634
013642
013646

104020
004737
012777
004737
000137

007606
000100
006752
011216

013652
013660
(13662

022760
001475
022760

BADOP:

ERROR
RTS

2
PC

JINVALID COMMAND ATTEMPTED
:RETURN

;DRIVE

|5 UNSAFE

UNSAF:

ERROR
JSR
JMP

22
PC,INCTOT
DROP

;DRIVE UNSAFE
: INCREMENT TOTAL ERROR COUNT
;DEASSIGN THE DRIVE

165302

000070

000010

000070

013706

000137

0146066

3516

013722

000137

013602

013676
013706

013712
013720

013726
013734
013736
013742
013750

3522

013752

3525
3526

013766
013772

3523
3524

;DRIVE WENT OFFLINE
INCREMENT TOTAL ERROR COUNT
;DEASSIGN THE DRIVE

TO GIVE

TIM]O:

000002

3513

3517
3518
2519
3520
3521

21
PC.INCTOT
DROP
THE

DRIVE A BAD COMMAND

ERROR
JSR
JMP

17
PC,INCTOT
DROP

;DRIVE TIMED OUT DURING POSITIONING
; INCREMENT THE °'TOTAL' ERROR COUNT
:DEASSIGN THE DRIVE

ERROR
JSR
MOV
JSR
JMp

20
PC,INCTOT
MIT06,a8TKS
PC,CKCLK
DROP

;DRIVE TIMED OUT DURING 1/0
:INCREMENT THE 'TOTAL' ERROR (OUNT
JRESTORE THE TTY KEYBOARD INTERRUPT ENABLE
;RESTART THE CLOCK
;DEASSIGN THE DRIVF

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

001002
000137

3514
3515

ERROR
JSR
JMP

;DRIVE TIMED OUT DURING A DATA TRANSFER

013670
013672

23511
3512

:RETURN

;PROGRAM TRIED

TIMPOS:

007606
011216

gggg
3506
3507
3508

;DRIVE TIMED QUT DURING POSITIONING

%23?
3498
3499
3500
3501
gggg

SEQ 0065

RTS

;DRIVE WENT OFFLINE

gzgg

3481
gzgg

N S
30-0CT-78
11:21
PAGE 66
END OF ORDER PROCESSING

013756
013766

032760
001402
032760
001402

032760
001402
000137
032760
001402

014056
100000

040000

000070

(MP
BEQ
CMP

HEOP,SRPER(RO)
1%
MJICE.SRPER(RO)

:END OF PACK ?
‘BR IF EOP, OPERATION OVERFLOWED
-WRITE CHECK ERROR ONLY ?

BIT
BEQ

#WPV,SRPER(RO)
+6

;WRITE PROTECTION VIOLATION ?
‘BR IF NOT
;FILE UNSAFE
:BR IF NOT

BNE
JMP

JMp

+6
WCEER

WPVER

‘BR IF NOT
JREPORT THE WRITE CHECK ERROR

“REPORT THE WRITF PROTECTION VIOLATION

000070

BIT
BEQ

#FUV,SRPER(RO)
+6

004000

000066

014414
034000

000070

BIT
BEQ
JMP
BIT
BEQ

#SUS!,SRPDS(RO)
:SEEK INCOMPLETE
-?
.+6
:BR IF NOT
SKIER
;PROCESS IT
MNXC 'NXT 'NXS,SRPER(RO) ; INVALID DISK ADDRESS
+6
;BR [F NOT

000137

014076

012000

000070

000137
032760

014106
0000264

000070

032760
001402

DONE:

JMp

UNSAF

REPORT THE UNSAFE

JMP

DADR

REPORT INVALID DISK ADDRESS

JMP
BRI

(1TRLR
JREPORT THE CONTROLLER ERROR
#TIMEE NXME,SRPER(RO)
;INTERFACE (UNIBUS) ERROK °

BIT
BEQ

#PROG 'MODE ,SRPER(R0O) ; CONTROLLER ERROR ?
6
:BR [F NOT

014000

014116

001000

014126

010000

014450

000340

30A(1052)

B_6
30-0CT-78
11:21
PAGE 67
END OF ORDER PROCESSING
BEQ
JMP
BIT
BEQ

000070

JMP

.+6
INTRFA

;BR IF NOT
“REPORT THE ERROR
-FORMAT ERROR
?
:BR IF NOT

#FMTE, SRPER(RO)
+6

FMTERR

:PROCESS THE FORMAT ERROR

000066

BIT
BEQ

#HNF ,SRPDS(RO)
+6

000070

BIT

#LPE 'WPE | CSME,SRPER(RO)

JMP

BEQ

014612

014046
014052
014054

SEQ 0066

1%:

ERROR

RTS

-HEADER NOT FOUND ?
*BR IF NOT SET

CKHNF

*PROCESS THE ERROR

;DATA ERROR ?

:BR IF NCT

DATER

*REPORT THE DATA ERROR

:ERROR REPORT BUT NO BITS SET

*RE TURN

:REPORT A WRITE CHECK ERROR (DATA CHECK BITS NOT SET)
014056
014060
014064

104032

004737
000207

WCEER:

007606

ERROR

JSR

RTS

WRITE

JRETURN

PC,INCTOT

CHECK

JINCREMENT

(DATA CHECK BITS NOT

'TOTAL'

ERROR COUNT

SET)

JREPORT WRITE PRCTECTION YIOLATION
014066
01407¢C
014074

014076
014100
014104

104044
004737
000207

104026
004737
000207

104025

004737
000207

WPVER:

007606

ERROR

;WRITE PROTECTION VIOLATION

RTS

JRETURN

JSR

INVALID DISK ADDRESS

BDADR:

ERROR

JSR

104024

JSR

RTS

°'NXS')

*RETURN

ERROR
JSR

ERROR

°NXT',

ERROR COUNT

JINVALID DISK ADDRESS

CNTRLR:

INTRFA:

007606

'TOTAL'

CONTROLLER ERROR

RTS

('NXC',

PC., INCTOT

JREPORT

;REPORT UNIBUS

004737
000207

; INCREMENT

;REPORT

RTS

007606

PC,INCTOT

*INCREMENT *TOTAL' ERROR COUNT

('PROG'

25
PC,INCTOT

"MODE')

JREPORT CONTROLLER ERROR
. INCREMENT °'TOTAL' ERROR COUNT

INTERFACE

*RETURN
ERROR

(°'TIMEE'

'NXME')

;REPORT UNIBUS ERROR

JRETURN

PC.INCTOT

*INCREMENT

°'TOTAL'

ERROR CSUNT

gty Gvur G

Ghuer Ghusr Gy Gl

eoleleloleolelolelels)

JREPORT FORMAT ERROR
122760

001404

132760

001010

000007

000002

000004

000002

000076
000006
000200
000006

FMTERR:

1%:

(MPB

AWRTCHK,$COMND(RO)

:WRITE CHECK OPERATION ?

BITB

#8iT02.$COMND(ROS

WRITE COMMAND 2

MOV
SUB
CMP

$RPBA(R0O) ,-(SP)
$8UF (RO) , (SP)
#128.,(SP)+

(MP

$§UF(RO),SRPBA(R0)

BEQ

BNE

ngs

000076

2%:

BR IF WRITE CHECK

;BR IF NOT

:BR [F NOT

:PUT PRESENT BUFFER ADDRESS ON THE STACK
:SUBTRACT STARTING ADDRESS
:SILO FILLED OR HAS XFER TC DISK STARTED ?

;READ TRANSFER STARTED ?

[anTan)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

3583
3584
%SBS

014174
014176
014200
014204
014210
014214
014220
014226

022760

014234

103015

30A(1052)

3%:

000010
000020

005046
000400
177400

004710
000006

001001
000012

“%:

= OVONOWVNHWN—=O

BB SR e SRR RO g grsmssEEs

015340
015462

007534

014354
014356
014362
014370
014376
014402
014404
014406
014410
014412

007606
001001

BEQ
ERROR
SuB
JSR
MOvB
mMov8
MOV
MP
BHIS
JSR
MOV
MOV
CLR
JSR
MOV
MOV

MOVRB

007606
015462

007516
012524

11:21
PAGE 68
END OF ORDER PROCESSING

30-0CT1-78

5%:

6%:

000001

015462

7%:

8%:

JSR
JSR
BR
JSR
JSR
BR
ERROR
JSR
BR
ERROR
JSR
JSR

ERROR
JSR
MOV
MOVB
JSR
BR
ERROR
BR
ERROR
RTS

6
SEQ 0067

6%
45

;FORMAT ERROR DURING 1/0

(SP)+,$TRK (RO)
(SP)+,$SEC(RO)

;MOVE THE SECTOR ADDRESS

sBR IF NOT

w4 ,SP
PC,READDR

sMAKE ROOM ON THE STACK
sADJUST SECTOR/TRACK ADDRESSES
sMOVE THE TRACK ADDRESS

$SUCA(RO) ,$CYL(RD)

;USE PRESENT CYLINDER ADDRESS

#256.
. $WRDL (RO) ;WAS INITIAL TRANSFER TO BE GREATER

sTHAN 1 SECTOR ?
;BR IF NCT
PC ,RELBUF
JRELEASE PRESENT BUFFER
#256.
. SWRDL (RO) ;SETUP FOR THE FAILING SECTOR
#-256.
, SWRDM(RO)
JWORD COUNT (2'S COMPLEMENT)
=(SP)
cCLEAR THE STACK
PC.,GE TBUF
;GET NEW BUFFER
(SP) +,$BUF (RO)
;LOAD BUFFER ADDRESS
#FM
! DSKERR
TE
,MASK
:ERROR MASK FOR RETRY
43

#10..8RETRY+1

:RETRY LIMIT

PC,INCTOT
PC.RETRY

: INCREMENT ‘TOTAL' ERROR COUNT
JRETRY THE OPERATION

PC.RECALT
PC ,RETRY

RESTORE (PART OF
;RETRY AGAIN

STANDARD RECOVERY)

PC, INCHRD

:INCREMENT

ERROR

COUNT

ERROR

COUNT

5%
42
8%

:RETRY GOOD

:RETRY GOOD
JUNSUCESSFUL RETRY
JEXIT

°*HARD'

;SUCESSFUL RETRY

gg,CMPAR

;EOT?ARE

PC, INCSOF

;INCREMENT

°'SOFT'

THE BUFFER

JEX
;FORMAT ERROR SEARCHING FOR INITIAL SECTOR

#1,8RETRY+1

:RETRY COUNT

7%
42
8$

:GOOD RETRY
UNSUCESSFUL RETRY
JEXIT

sRETURN

PC,INCTOT
:INCREMENT ‘'TOTAL' ERROR
#FMTE !DSKERR ,MASK
:ERROR MASK FOR RETRY
PC,RETRY

:RETRY

THE

COUNT

ORDER

:SUCESSFUL RETRY

JREPORT SEEK INCOMPLETE

014414
014422
014430
014432
014436
014442
014446

000932
000010

SKIER:

007606
007552
015340

MOV
MoV
ERROR
JSR
JSR
JSR
RTS

$PREVA+Z (R0O) ,$GDDAT
23

PC,INCTOT
PC,INCSK]
PC,RECALT
PC

:REPORT HEADER NOT

014450
014454

000102
000360

:
CKHNF

MOvVB
BIC

;PREVIOUS CYLINDER ADDRESS

$CYL(RO) ,$8DDAT ;DESTINATION CYLINDER

;SEEK INCOMPLETE

;INCREMENT
s INCREMENT
:RESTORE
;RETURN

°‘TOTAL® ERROR COUNT
*SUSI® ERROR COUNT

FOUND ERROR OR POSITIONING ERROR

n”DA(R0) ,~(SP)
#360, (SP)

;SECTOR ADDRESS ON THE

;CLEAR THE 'SOT' BITS

STACK

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
%22;

014460
014464
014470
014476
014500
014506
014512
014516
014522
014526
014532
014536
014544
014546
014554
014556
014562
014566
014574
014600
014602
014604
014610

116046
004737
032737
001041
C13737
006237
006237
006237
006237
006237
006237
026037
001616
016037
104036
004737
004737
016037
005060
000401
104034
004737
000207

000103
015372
100000

30A(1052)

025426

033630
001126
001126
001126
001126
001126
001126
000106

001126

000032

001724

007570
015340
000106
000010

001126

000032
1%:
2%:

007606

3663
3665
3666
3667
3668

3669
3670
3671

014612
014620
014622
014624

032760
001402
104033
000403

104027
004737
004737

3673
3674
3675

014644
014650
014654

004737
112660
112660

3677
3678
3679
368C

014666

022760

014674
014676

103023
004737

3682
3683
3684
3685

014710
014716
014720
014724

012760
005046
004737
012660

3687
3688
3689
3690
3691
3692
3693
3694

014736
014740
014744
014752
014760
014764
014766
014772

001002
004737
012737
112737
004737
000413
004737
004737

3676

3681

3686

MOvVB
JSR
BIT
BNE
MOV
ASR
ASR
ASR
ASR
ASR
ASR
MP
BEQ
MOV
ERROR
JSR
JSR
MOV
CLR
BR
ERROR
JSR
RTS

014640

014660

014702

014730

000010

000004

016060

000106

122760

006656
000013
000012
000400

005046

000400

177400

004710
000006

2%:

000020
000004

005274
000350
000012
015462

015562
015561

Su8

MOV

000020

000002

BIT
BEQ
ERROR
BR
ERROR
JSR
JSR

JSR
MOVS
MOovB

000010

000007

015340
015462

DATER:

1%:

015134
007606

162706

012760

000070

('LPE',

'WPE', B °'CSME')

#WCE ,SRPER(RO)
1%
33
2%

27
PC.PRTBAD
PC.INCTOT

#4,SP

PC,READDR
(SP)+,$TRK(RO)
(SP)+,$SEC(RO)

;WRITE CHECK ERROR ALSO ?
;BR IF NOT
JREPORT WRITE CHECK WITH DATA CHECK
- CONTINUE
;DATA ERROR
;TYPE THE BAD SECTOR
s INCREMENT °‘TOTAL' ERROR COUNT

;MAKE ROOM ON THE STACK

JADJUST SECTOR/TRACK ADDRESSES
:MOVE THE TRACK ADDRESS
;MOVE THE SECTOR ADDRESS

$SUCA(RO) ,$CYL(RD)

#256. . $WRDL (RO)

BHIS
JSR

3%
PC RELBUF

#256. . SWRDL(RO)

(MPB

#WRTCHK,SCOMND(RO)

BNE
JSR
MoV
mMOvB
JSR
BR
JSR
JSR

;USE PRESENT CYLINDER ADDRESS

; INITIAL TRANSFER SIZE LARGER
sTHAN 1 SECTOR ?
:BR IF NOT
JRELEASE THE PRESENT BUFFER

MOV

MOV
CLR
JSR
MOV

3%:

SEQ 0068

$RPDA+1(RO) ,~(SP)
;TRACK ADDRESS
PC ,READHD
sREAD THE HEADER FROM THE INITIAL SECTOR
#ERR,GENREG+RPER ;ERROR DURING OPERATION ?
1%
;BR IF ERROR
CYLDER+2 $BDDAT ;CYLINDER FROM HEADER
$8DDAT
sSHIFT CYLINDER ADDRESS
$8DDAT
sSHIFT CYLINDER ADDRESS
$8DDAT
:SHIFT CYLINDER ADDRESS
$8DDAT
sSHIFT CYLINDER ADDRESS
$8DDAT
JSHIFT CYLINDER ADDRESS
$BDDAT
:SHIFT CYLINDER ADDRESS
$SUCA(RO) ,$8DDAT ;AT CORRECT CYLINDER ?
19
:BR IF AT CORRECT CYLINDER
$PREVA+2 (R0) ,$GDDAT
:PREVIOUS CYLINDER ADDRESS
36
:POSITIONING ERROR
PC,INCMIS
: INCREMENT POSITIONING ERROR COUNT
PC,RECALT
JRESTORE THE DRIVE
$SUCA(RO) ,$PREVA+2
;SAVE PREVIOUS CYLINDER
$CYL(RD)
JRESET CURRENT CYLINDER
2%
;CLEAN UP, THEN EXIT
34
cHEADER NOT FOUND ERROR
PC,INCTOT
s INCREMENT °'TOTAL' ERROR COUNT
PC
sRETURN

JREPORT DATA ERROR

014626
014630
014634

3672

D 6
30-0CT-78
11:21
PAGE 69
END OF ORDER PROCESSING

“;SETUP FOR 1 SECTOR

#-256. ,$WRDM(RO)
;WORD COUNT
=(SP)
;CLEAR THE STACK
PC,GE TBUF
:GET NEW BUFFER
(SP)+,$8UF (RO)
:LOAD BUFFER ADDRESS

;1S THE COMMAND A WRITE CHECK ?

3%
:BR_IF NOT
PC,FILBUF
SREFILL THE BUFFER
MWCE !LPE !WPE, CSME ,MASK
RETRY MASK
#10. ,SRETRY+1
;RETRY LIMIT
PC,RETRY
JRETRY THE SECTOR
4%
JRETRY GOOD
PC,RECALT
JRESTORE THE DRIVE
PC,RETRY
JRETRY 10 MORE TIMES

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0(1-78 08:18

3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
37217
3718
3719

3720
3721
3722

3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
373¢
3737
3738
3739
37640
37641
3742
3743
3744
3745
3746
3747
3748
3749
3750

014776
015000
015002
015006
015012
015014
015016
015022
01502¢

30A(1052)

6
E
11:21
PAGE 70
END OF ORDER PROCESSING

30-0CT7-78

007534
015134

BR
ERROR

4$
31

;RETRY GOOD
*HARD ERROR

JSR
BR

PC.PRTBAD
5%

*PRINT BAD SECTOR ?
JEXIT

JSR

PC., INCSOF

*INCREMENT 'SOFT* ERROR COUNT

JSR

4$:

007516
012524

ERROR

JSR
RTS

:REPORT AN

015030
015032
015040
015044
015050
015054
015060
015066
015072
015074
015076
015102

000019
012120
000004
001122
001126
000011
012120

001114

JSR

015106
015110
015116
015120
015126
015130
015132

177777

013133

100000

164012

015134
(015142
015144
015152
015154
015162
015164
015172
015174
015200
015204
015210
015212
015216
015222
015224
015226
015230
015232
015234

032777 000010
001475 .
032777 020000
001071
122760
000007
001465
032760 000004

163776

PRTBAD:

163766

000076
000020
000074
000400
020176

001000

*DECREMENT WORD COUNTER

*WORD COUNTER

:WORD
*ERROR TABLE INDEX
*DISPLAY THE PATTERN 'SEED'

*BR IF NOT DONE

#770,R1
R2.ERCTR

*INCREMENT BUFFER POINTER
*ADD SECTOR (OR LESS) COUNT

CLR

:CLEAR

BIT
BEQ

#SW15.aSWR
2%

*HALT ON ERROR ?
‘BR IF NOT

RTS

*RETURN

*COMPARSION ERROR COUNT

#-1,FRSTER
(SPJ+,R3

TO DISPLAY

THE

'WORDS TO COMPARE'

*SET °*NOT FIRST ERROR'
‘RESTORE R3

SECTOR WHICH GAVE

THE

IN R2

HARD ERROR

;PRINT

BIT

#5W13,aSwWR

“INHIBIT ERROR TYPEOUTS

COUNT

*ERROR HALT

#SW3, ASWR

BEQ

TO THE

INDICATOR

BIT

THE BAD SECTOR ?

‘BR IF NOT

7%
‘BR IF INHIBIT
MWRTCHK,SCOMND
(RO)
:PRESENT COMMAND A WRITE
7%
‘BR IF IT IS

#81T02,$COMND
(RO)

CHECK 2

:PRESENT COMMAND A WRITE ?

BEQ
MOV
MOV
ADD
CLR
MOV
JSR

7%
:BR'IF IT IS
$RPRA (R0) .R1
*PUT THE END ADDRESS INTO R1
$WRDL
(RO) .-(SP) :FIND THE BEGINNING OF THE SECTOR
$RPWC
(RO) . (SP) -SUBTRACT THE WORDS NOT TRANSFERED
- (SP)
*MAKE THE UPPER DIVIDEND 0
#256.,~(SP)
:DIVIDE THE WORDS TRANSFERED BY THE SECTOR SIZE
PC.SDIV
:DIVIDE

BEQ

SUB

(SP),R1

1$:

*ADDRESS OF WORD

*ERROR TABLE INDEX

ADD
ADD

ASL

162701

R1.$BDADR

BIT

000002

*COMPARE THE BUFFER
*RETURN

SCAN'T MATCH PATTERN WITH DATA READ

BNE

BNE
CMPB
BEQ

000002

*SOFT ERROR

PC, TYPERR

(R1)+,$8DDAT
#11.$ITEMB
PC,TYPERR

HAL T

;ROUTINE

ERROR COUNT

:SAVE R3

#10.$I1TEMB

MOV
MOVBE
JSR

MOVB
MOV

2%:

'HARD'

R3,-(SP)
#4.R3

DEC

*INCREMENT

DATA PATTERN

MOV

000770
013140

'UNKNOWN'

MOvB

001114

PC, INCHRD

PC . CMPAR
PC

NOMTCH: MOV

1%:

SEQ 0069

B8R

SUB

(SP)

*REMANDER = 0 ?

(SP)

:CONVERT

#1000.R1

‘BR IF

*SUBTRACT

IS - COMPLETE SECTOR TRANSFERED

THE RESIDUAL

SECTOR SIZE

IT FROM THE END ADDRESS

“FINISH THE SIZING
*SUBTRACT FULL

SECTOR SIZE

INTO BYTE

FROM END ADDR

COUNT

(Y]

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18

015240

062706
104401

032777
001420
012702
010146
104402

020160
001411
104401
012146
104402

000004
032374
000010

30A(1052)

163662

F
6
11:21
PAGE 7
END OF ORDER PROCESSING

30-0C7-78

ADD

¥4, SP

3¢

BIT

#SWO3 ., aSWR

000007

000076

4$:

032470

TYPE

001213

100000

163606

THE STACK POINTER

*PRINT

BEQ
MOV
MOV

13
#7 .R2
R1.-(SP)

*BR IF NOT
:R2 CONTAINS THE WORDS/LINE COUNT
*PUT THE ADDRESS ON THE STACK

cMP

R1,$RPBA(RO)

TYPE
MOV
TYPOC

.SPACE2
(R1)+,=(SP)

TYPOC

BEQ

3¢

‘PRINTED ALL

THE SECTOR ?

*BR IF ALL PRINTED

STACK

*DECREMENT THE HORIZONTAL COUNT

:BR IF NOT AT THE END OF

$CRLF

“CR-LF

TYPE
BIT
BEQ

"$CRLF
#5W15, ASWR
7%

RTS

HALT

‘PRINT

*SPACES
*PUT THE DATA ON THE
SPRINT IT

THE HEADER

:PRINT ANY MORE OF THE SECTOR

BNE

TYPE

58
6% :

;RESTORE

LLINTTH

DEC

001273

SEQ 0070

THE LINE

‘RESTORE THE WORDS/LINE COUNT
*PRINT WHAT REMAINS
*HALT ON ERROR ?
:BR IF NOT

IN THE BUFFER

JHALT

*RETURN

JROUTINE TO DO A HOME SEEK =~ DRIVE SELECTED IN RO
JENTER AT 'RECALO'
JINTO °'GENDPSB'’

015340

025404
000015
021556

015344
015352

015356

015360

025406

025422

RECALT:
RECALO:

1%:

015370

IF UNIT NUMBER ALREADY LOADED

MOVB
MOVB

(RO) , GENDPB
JMOVE THE UNIT # TO THE GENERAL DPS
#HOMSEK
, GENDPB+$COMND
HOME SEEK COMMAND

HALT
TST
BEQ
RTS

GENDPB+$TATUS
1%
PC

JSR
GENDPS

RO,RP11

;DRIVER ENTRANCE
;DPB ADDRESS FOR ORDER

JDRIVER DIDN'T ACCEPT THE ORDER
:SEE IF FINISHED
JBR IF NOT FINISHED
;RETURN

JJTILITY READ HEADER ROUTINE

015372
015400

015406
015412
015420
015426
015434
015440
015442
015444
015450
015452
015456
015460

000002
000004

025404
000106
014000
000017
021556
025422

025417
025416

‘

ENTER WITH TRACK AND SECTOR ADDRS ON THE STACK

READHD:

MOVB

2(SP) ,GENDPB+$TRK

MOV
MOVB

#MODE 'HDR ,GENDPB+$COMND
;MODE AND HEADER BITS
#READ,GENDPB+SCOMND ;READ COMMAND

025414
025406
025406

MOVB
MOvB
MOV
JSR

RO,RP11

;DRIVER ENTRANCE

HALT
TST

GENDPB+$TATUS

sDRIVER DIDN'T ACCEPT
FINISHED’

TST
RTS

(SP)+
PC

sRETURN

CENDPR

1%:

BEQ
MOV

000002

000207
RETRY

;

;TRACK ADDRESS

4 (SP) ,GENDPB+$SEC ;SECTOR ADDRESS
(RO) ,GENDPB
;DRIVE NUMBER
$SUCA(RO) ,GENDPB+SCYL ;CYLINDER ADDRESS

THE

;DFB ADDRESS FOR ORDER

1%
(SP)+,2(SP;

PRESENT

RETURN IF

BR [F NOT
:ADJUST STACK FOR RETURN

OPERATION

ETRY

COMMAND

SUCESSFUL

RETURN+2 IF RETRY UNSUCESSFUL

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT1-78 08:18

30A(1052)

%ggg
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820

3821
3822
3823
3824
3825
3826

%ggg

3829
gg%g

015462
015466
015472
015476
015500
015502
015506
015510
015516
015520
015526
015530

015556

105037
004737
005760
001775
100403
105237
000420
032760
001415
033760
00141
105237
123737
001351
062716
000207
104037
005726
000207

015560
015562

000
000000

015534
015542
015544
015550
015552
015554

015560
005424
000016

G_6
30-0CT-78
11:21
PAGE 72
END OF ORDER PROCESSING

RETURN TO MAIN PROGRAM IF DIFFERENT ERROR OCCURS

RETRY:
1%:
2%:

C(LRB
JSR
TST
BEQ
BMI]
INCB
BR
8IT
BEQ
BIT
BEQ
INCB
CMPS
BNE
ADD
RIS
ERROR
TST
RTS

SRETRY
:CLEAR RETRY COUNTER
PC,GODR]V
;RE-START ORDER
$TATUS (RO)
JORDER FINISHED?
2%
;BR IF NOT
3s
:BR IF ERROR
$RETRY
; INCREMENT RETRY COUNT
6%
;GO TO EXIT, SUCESSFUL RETRY
#B1T7,8TATUS(RO)
;DID ORDER TERMINATE NORMALLY ?
7%
;BR IF NOT
MASK , SRPER(R0)
;SAME ERROR?
7%
:BR IF NOT
$RETRY
*INCREMENT RETRY COUNT
$RETRY,SRETRY+1
1%
42,(SP)
PC
37
(SP) +

:REACHED RETRY LIMIT ?
:BR IF NOT
;INCREMENT RETURN, UNSUCESSFUL RETRY
RETURN
*DIFFERENT ERROR DURING RETRY
;JADJUST STACK POINTER FOR DIRECT RETURN

.BYTE
.WORD

0.0
O

JRETRY LIMIT & RETRY COUNTER
:ERROR MASK

015560
000200

000016

015562

000070

015560
015560

015561

000002

3%:

5¢:

6%:
7%

000

SEQ 0071

$RETRY:
MASK:

:RETURN

3832
3833
3834
3835
3836
3837

;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO
JAN UNSIGNED DECIMAL ASCIZ NUMBER.
:
;CALL
:
MOV
ANUMBER ,~(SP)
;PUT THE BINARY NUMBER ON THE STACK
;
JSR
PC,$S82D
;CALL

RE TURN

3840

JNOTE:

THIS FORM OF

$SB2D:

MOV

%g%g
%gz;

015564

016637

000002

3845

015576

004737

020614

3846
3847
%gzg
3850

3851

'$SB2D' MUST BE USED,

THE PROGRAM CANNOT USE

THE

JVERSION OF THIS ROUTINE WHICH ]IS ON THE SYSMAC LIBRARY, REV C OR LATER.

3843
3844

;ADDRESS OF 1ST CHARACTER IS ON THE STACK

(15572

015602
015606
015610

012746

012666
000207
000000

015610

000000

1%:

;SAVE THE BINARY NUMBER

PC.,$DR2D

JCALL DOUBLE LENGTH CONVERT

#1$,~(SP)

MOV
RTS
.WORD

(SP)+,2(SP)
PC
0,0

JSR

000002

2(SP),1$%

MOV

:SET POINTER

:PICKUP THE POINTER
;RETURN

;.'tttt.tttttttttttttttttttttttttttttttttttttttttttttfittttttttittt

%gg%

.SRTTL

MACRO ROUTINES

%ggg

.SBTTL

ERROR HANDLER ROUTINE

3856
2857
3858
3850
3860
3861
3862

; L2880 0d020 02282223024 223222 28232222 22 2 YR R R R S R R R S SRR R RRRR R
**THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
J*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO TYPERR ON ERROR
*«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15-1
HA'T ON ERROR
;*SW13
INHIBIT ERROR TYPEOUTS

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18

30A(1052,

3863
3864

;*SW10=1
s *CALL

3865

3867
3868
3869
3870

015614
015614
015616
015620

104407
010146
01024¢€

3872
3873
3874
3875
3876
3877
3878
3879

015626
015632
015636
015642
015646
015654
015660
015664

162706
004737
112637
112637
016037
012701
016021
016021

000004
006656
001270
001272
000106
001162
000066
000070

3882
3883

015700
015704

016021
016021
016021
016021
016021
016021
012602
012601
105237
001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401

000076
000100

3871

3880
3881

3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
38394
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
gg}?

H_ 6
30-0CT-78
11:21
PAGE 73
ERROR HANDLER ROUTINE

015622

015670
015674
015710
015714
015720
015724
015730
015732
015734
015740
015742
015750
015756
015760
015764
015770
015774
016002
C16010
016016
016020
0160246
016030
016030
016034
016036
016040
016042
016042

111037

016021
016021

005777
100002
000000
104407
000002

$ERROR:

001264

000072
000074

001103

012120
001213
163104

ERROR

CKSWR
MOV
MOV

R1,-(SP)
R2,~(SP)

SuB
JSR
MOVB
MOVB
MOV
MOV
MOV
MOV

#4,SP
JMAKE ROOM ON THE STA(K
PC ,READDR
;DECREMENT THE TRACK/SECTOR ADDRESSES
(SP)+,TRK.ER
: TRACK ADDRESS
(SP)+,SEC.ER
sSECTOR ADDRESS
$SUCA(RO) ,CYL.ER
;CYLINDER ADDRESS
#SREGO,R1
;START AT *SREGO’
$RPDS(RO), (R1)+ ;MOVE RPDS
$RPER(RO), (R1)+ ;MOVE RPER

MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
INCR
B8EQ
MOV
BIT
BEQ
TYPE
INC
MOV
SUB
MOvVB
B8IT
BNE
JSR
TYPE

SRPBA(RO), (R1)+ ;MOVE RPBA
$RPCA(RO), (R1)+ ;MOVE RPCA

MOV
MOV

000102
000104
000106
000110

001102
002000
001206
001112
001116
000002
163110
020000

BELL ON ERROR

MovB

001266

7%:
163172
163162

1%:
001116
001114
16312¢

20%:
2%:

3%:

SEQ 0072

TST
BPL
HALT
(KSWR

; ERROR=EMT AND N=ERROR [TEM NUMBER

(Rb).DRlVE

2. TEST FOR CHANGE IN SOFT-SWR
;SAVE R1
;SAVE R2

:DRIVE NUMBER

SRPCS(RO)
, (R1)+ :MOVE RPCS
SRPWC(RO), (R1)+ ;MOVE RPW(

S$RPDA(RO), (R1)+
$RPM1(RO)
, (R1)+
$SUCA(RO)
, (R1)+
$SILO(RO),(R1)+
(SP)+,R2
(SP)+ R1
$ERFLG
7%
$STSTNM,aDISPLAY
#81T10,35WR
1%
LSBELL
SERTTL
(SP) ,$SERRP(
#2,SERRP(
@SERRPC,SITEMB
#3]1T13,aSWR
20%
PC,TYPERR
.SCRLF
aSWR
3%

RT]

;MOVE RPDA
;MOVE RPMI
;MOVE SUCA
;MOVE SILO
JRESTORE R?
sRESTORE R1
;o SET THE ERROR FLAG
2:DON'T LET THE FLAG GO TO Z2ERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;.BELL ON ERROR?
J:NO - SKIP
s sRING BELL
;s COUNT THE NUMBER OF ERRORS
2;GET ADDRESS OF ERROR INSTRUCTION

,;.STRIP AND SAVE THE ERROR ITEM CODE
;sSKIP TYPEOQUT IF SET
;.SKIP TYPEQUTS
2:G0 TO USER ERROR ROUTINE
;. HALT
;.SKIP
;JHALT
J;TEST

ON ERROR
IF CONTINUE
ON ERROR!
FOR CHANGE [N SQOFT-SWR

;;RETURN

%3}%

LSBTT.

TYPE ROUTINE

2014

DI NN AR RN A AN S A A AN A A AN AN AN AN NN RN AR A AN AN

3915
3916
3917
3918

:*ROUTINE TO TYPE ASC1Z MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
J*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
J¢NOTED:
$.ULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARACTER,
J*NOTE?:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

AR R AR RN RO AN NN RN AN

Y r—TM

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0C7-78 08:18

30A(1052)

30-0CT-78

11:21

TYPE ROUTINE

;*NOTE3:

PAGE 74

6
SEQ 0073

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

‘t

;wCALL:
'1) USING A TRAP INSTRUCTION
OR

TYPE

.MESADR

;:MESADR

IS FIRST ADDRESS OF

$TPFLG
1%

..Iq THERE A TERMINAL?
:BR ]F YES
..HALT HERE IF NO TERMINAL

AN AS(CIZ STRING

I
I

TYPE
ME SADR

* %

105737
100002

000000
000407
010046
017600

—t cmad wd

112046

0C1157

$TYPE:

HALT

1%:

000002

016150
C16154
016156

016162
016166

;sSAVE RO

(SP) +

,.IF

HHT , (SP)

;cRETURN
JsBRANCH IF

(MPB

#CRLF, (SP)

;J;BRANCH IF NOT <CRLF>

TST
TYPE

(SP) +

$CRLF
CLRR

::POP
;:TYPE

$CHARCNT

;cCLEAR CHARACTER COUNT

JSR
(MPR
BNE
MOV

PC,8TYPEC
$FILLC,(SP)+
2%
$NULL ,-(SP)

;.G0 TYPE THIS CHARACTER
;cIS IT TIME FOR FILLER CHARS.?
;:oIF NO GO GET NEXT CHAR.
s.GET # OF FILLER CHARS. NEEDED

1(SP)
6%
PC,STYPEC
$CHARCNT

..DOES A NULL NEED TO BE TYPED?
;BR IF NO--GO POP THE NULL OFF OF
..GO TYPE A NULL
2:DO NOT COUNT AS A COUNT

000002

60%:
3%:

MOV
ADD

(SP)+ RO
#2,(SP)

000011

013746

001154

105366

000001

TST

RT]
(MPR

BEQ

7%:

016214
016260

B8R

DECB
BLT
JSR
DECB

olelelololelelolelelslel

JHOR]ZONTAL

000040
016214
000007

016240

8%:
9%:

162730

016260

$TYPEC:

162722

000002

P 3

;;GET ADDRESS OF ASCIZ STRING
,,PUSH CHARACTER TO BE TYPED ONTO STACK
¢BR IF IT ISN'T THE TERMINATOR
TERMINATOR POP

;+RESTORE RO
;sADJUST RETURN P(

OFF

THE

<CR><LF> EQU]V
A CR AND LF

;JGET NEXT CHARACTER

J:AND THE NULL CHAR,

TAB PROCESSOR

;.REPLACE TAB WITH SPAC(E
;. TYPE A SPACE
. :BRANCH [F NOT AT
.. TAB STOP

’%

;cGET NEXT CHARACTER

(SF)+

. :POP SPACE OFF

STA(CK

TSTB

a8 TPS

MOVB

2(SP) ,a$TPB

;:LOAD CHAR TO BE

$CHAR(NT

;JYES==CLEAR (HARACTER (OQUNT

(MPR
BNE
(LRB

STACK

;. LOOP

#' ,(SP)
PC,S$TYPEC
#7 ,$CHARCNT
9%

BPL

STACK

<HT>

MOVB
JSR
BITR
BNE
TST

000002
000015

BNE

5%:
6%:

.. LEAVE

RO,-(SP)

22(SP) ,RO
(RO)+,=(SP)
43

016214
001156

105337
000770

MOV

MOV
MOVB
BNE

000200

002770
004737

’%:

016260

016142
016144

T1STR
BPL

$TYPEC

#CR,2(SP)
12

JoWAIT UNTIL PRINTER

IS READY

TYPED

INTQO DATA REG.

.. 1S CHARACTER A CARRIAGE RETURN?
;sBRANCH |IF NO

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T7-78 08:18

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PIN
23-0C7-78 08:18

3975

3976
3977
3978
3979
3980
3981
3982
%ggz

016244

0162646
016254
016256
016260
016262

000406

122766
001402
105227
000000
000207

000012

30A(1052)

30-0CT-78
TYPE ROUTINE

000002

1%:

C(MPR
BEQ
INCB
$CHARCNT: ,WORD
$TYPLX: RTS
LSBTTL

3985

B8R

11:21

PAGE 75

$STYPEX

NLF ,2(SP)
STYPEX
(PC)+
O
PC

BINARY TO OCTAL

SEQ 0074

JEXIT

;. 1S CHARACTER A LINE FEED?
. JBRANCH ]F YES
s COUNT THE CHARA(CTER
;s CHARACTER COUNT STORAGE

(ASCII) AND TYPE

M ..."'.'...'tt‘....'..""'fi'.."9.'Q'fi'fi..."t.'fiifi'i".i'i'fi'

3986

'THIS ROUTINE 1S USED TO CHANGE A 16-8B1T BINARY NUMBER TO A 6-DIGIT

%ggg

'%LYF’OS“‘ENTER HERE
.
wCALL:

2987

2990

J*0CTAL

(ASCII) NUMBER AND TYPE |T.

MOV

NUM, - (SP)

s
o
o

BYTE
.BYTE

N
M

2991

%ggg

3992
3993
3994

TYPOS

TO SETUP SUPPRESS ZEROS AND NUMBER OF

DIGITS

TO TYPE

< sNUMBER TO BE TYPED

. :CALL FOR TYPEOUT

s:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
J:M=1 0R 0
;:1=TYPE LEADING ZEROS
; ¢0=SUPPRESS LEADING ZEROS

3997

J*$TYPON=~==ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

3999

Je(ALL:

2%;

oTM

3998

;»$TYPOS OR $TYPOC

4000

4003
4004
4005

TYPON

NUM.-(SP)

. sNUMBER T0 BE TYPED
. CALL

FOR

TYPEOUT

;*$TYPO(C~-==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
Ja(ALL:
oTM
MOV
NUM, - (SP)
+;NUMBER T0 BE TYPED

4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022

016264
016270
016276
016302
(€16306
016310
016316
016324
016332
01633
016336
016340
016344
016346
016352

017646
116637
112637
062716
000406
112737
1127%7
112737
010346
010446
010546
113704
005404
062704
110437

4026
4025
4026
4027
4028
4029
4030

016362
016
016370
016372
016374
016376
016400

016605
005003
005105
000404
006105
006105
006105

4023

MOV

016356

113704

000000
000001
016511
000002

000001

000006
000005

016511

000006
016510

016507

076507

016411
016506

TYPOC

$TYPOS: MOV
MOVR
MOVB
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVR
MOV
MOV
MOV
MOVB
NEG
ADD
MOvVB

MOVB

000012

1%:
’$:

MOV
(LR
ROL
BR
ROL
ROL
RO!

.sCALL

a(SP) ,-(SP)
1(SP) ,80F ILL
(SP)+_,SOMODE+1
#2,(SP)
STYPON
#,80FILL
#6,$OMODE +1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
RS,-(SP)
504005*1 R4
R4
#6,R4
R‘o,sCMODE

$07 JLL R4

12(SP) ,RS
R3
RS
3¢
RS
R~
K5

FOR TYPEOUT

2 :PICKUP THE MODE
csLOAD Z2ERO FILL SWITCH
;;NUMBER OF DIGITS TD TYPE
. JADJUST RETURN ADDRESS

JoSET THE Z2ERO FILL SWITCH
J:SET FOR SIX(6) DIGITS
JoSET THE JTERATION COUNT

;sSAVE R3
.+ SAVE R4

;s SAVE RS
;oGET THE NUMBER OF

DIGITS TO TYPE

JoSUBTRACT T FOR MAX.
J2SAVE IT FOR USE

ALLOWED

;:GET THE ZERO FILL SWITCH

;.PICKJP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD
; JROTATE MSB INTO °'C*’
;2G0 DO MSB
J:FORM THIS DIGIT

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT1-78 08:18
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
404
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061

010503
0

30A(1052)

3%:

216510
177770

016507
016510

2 ¢ SUPPRESS THIS 0?

2sDON'T SUPPRESS ANYMORE 0'S

000
000
000
000
000000

'A 3

#'0,R3
#' ,R3
R3,8%

DE(R
BGT
BLT
INC

$OCNT
2%
6%
R4

MOV
MOV
MOV
MOV
MOV

(SP)+ RS
(SP) + ,R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

BYTE
BYTE
$OCNT:
_.BYTE
$OFILL: .BYTE
$OMODE: . WORD
.SBTTL
C

;cBR [F

BIS
8IS
MOVR

RT]

8%:

;JMAKE THIS DIGIT ASCII
. :MAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING

2260 TYPE

THIS DIGIT

:.G60 DO THE LAST DIGIT

;s COUNT BY 1
.;BR IF MORE TO DO
..BR IF DONE
;o INSURE LAST DIGIT

ISN'T A BLANK

:;RESTORE RS
s 2RESTORE R4
;;RESTORE R3
;3SET THE STACK FOR RETURNING
;JRETURN

0
0
0
0
0

;sSTORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;o IERO FILL SWITCH
;oNUMBER OF DIGITS TO TYPE

AR RN AN AN R

TO DECIMAL AND TYPE ROUTINE

AR AR A

IS USED

;*SIGNED DECIMAL

YES

,8%

CONVERT BINARY

S*THIS ROUTINE

J:TEST FOR O

B8R

000004

4062
4063
4064
4065
4066
4067
4068

AN AT AN AN AR AN RAANRRNRRRARRA R AR A AR RN AN AN

TO CHANGE

(ASCII)

NUMBER AND

16-BIT BINARY NUMBER

TYPE

IT.

TO A S-DIGIT

DEPENDING ON WHETHER THE

:«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR'A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
J*REPLACED WITH SPACES.

4069
4070
4071
4072

SaCALL:

$TYPDS:

MOV

NUM, - (SP)

MOV

RO,~(SP)

;:PUSH RO ON STACK

MOV
MOV
MOV

R2.=(SP)
R3.-(SP)
RS =(SP)

$:FUSH R2 ON STACK
*:PUSH R3 ON STACK

MOV
BPL

2o<sp) RS

S:GET THE INPUI NUMBER
SBR IF INPUT IS POS.

TYPDS

b cmd emd

MOV

—

4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4,083
4084
4085
4086

TST

TYPE

6%:

016502
016504
016505
016506

J;GET LSB OF THIS DIGIT
;oTYPE THIS DIGIT?
;.BR IF NO
;:GET RID OF JUNK

INC

5%:

SEQ 0075

RS ,R3
R3
$OMODE
7%
#177770,R3

BEQ

4%:

016506

MOV
ROL
DECB
BPL
BIC

BNE

000060

000002

11:21
PAGE 76
BINARY TO OCTAL (ASCII) AND TYPE

30-0CT1-78

MOV

020200
000020
000055
016726
000040

000001

R1.=-(SP)

426200 - (SP)

NEG

(LR
MOV

RO
#INBLK

MOVB

#'=,1(SP)
,R3

#' _(R$)+

::PUT THE BINARY NUMBER ON THE STACK

*:GO

THE

ROUTINE

YPUSH R1 ON STACK
S:PUSH RS ON STACK

“:SET BLANK Sw. CH AND SIGN

*:MAKE THE BINARY NUMBER POS.
S:MAKE

THE ASCI] NUMBER NEG.

P:7ERO THE CONSTANTS INDEX
*ISETUP THE OUTPUT POINTER

SOSET THE FIRST CHARACTER TO A BLANY

CZRP1CO, RP11 MUDR EXER MACY11

CZRPIC P11

23-0CT-78 08:18

4087
4088
4089
4090
4091
4092
4093
4096

016560
016562
016566
016570
016572
016576
016576
016600

005002
016007
160105
002402
005202
000774
060105
005702

4096
4097
4098
4099
4100

016604
016606
016610
016612
016614

105716
100407
106316
103003
116663

4102
4103

016626
016632

4095

4101

6104

4105
4106
4107
4108

4109

016602

052702

016634

005720

016650

052702
110223
020027
002746
003002
010502

000001

000060

016666, 000002

016726

7% :

1044017 016726

000004

8%:
17777¢

PAGE 77

R2
$DTBL (RO) ,R1
R1,RS

R2
3¢
R1,RS
R2

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0

1STB
BM]
ASLB
BCC
MOVR

(SP)
7%
(SP)
6%
1<sp>

*:STILL DOING LEADING 0'S?
;;en IF YES
‘MSp?
“:BR IF NO
IVES=<SET THE SIGN

BIS
MOVB

#'
RC. (R3)*

CMP
BLT
BGT
MOV

RC,#10
2$
8$
RS,R2

BIS

Ré

9% :

$DOBLK:

$IMAKE THE BCD DIGIT ASCII

“IMAKE IT A SPACE IF NOT ALREADY A DIGIT
JIPUT THIS CHARACTER IN THE OUTPUT BUFFER

S3JUST INCREMENT
ING

*:CHECK THE TABLE INDEX
2:GO DO THE NEXT DIGIT
2360 TO EXIT
“iGET THE LSD

©:GO CHANGE TO ASCII

(SP)+
9
~1(SP),-2(R3)
(R3)
(SP) +,RS
(SP) +.R3
(SP) +.R2
(SP) +.R1
(SP) +.RO

;JWAS THE LLSD THE FJRST NON-ZERQ?
“:BR IF NO
:-YES—-SET THE SIGN FOR TYPING
;3SET THE TERMINATOR
“:POP STACK INTO RS
“:POP STACK INTO R3
$:POP STACK INTO R2
S:POP STACK INTO R1
; ;POP STACK INTO RO

$DRLK

MOV
tOIRL:

-1(R3)

TSTB
BPL
MOVB
(LRB
MOV
MOV
MOV
MOV
MOV

TYPE

GO0004

“:FALL THROUGH IF 0

(RO) +

B8R

MOV
RT]
10000.
1000.
100.
10.

.BLKW

*NOW TYPE THE NUMBER

2(SPY,4(SP)

P ADJUST THE STACK

(SP)+. (SP)

::RETURN TO USER

‘

4129

SBTTL

4131

)
. tttt'ttti.lttttttt!ttit.ttttt.tttt!ltttttti..tttt!fittt'.tt.ttI.

4130

4132
4133
4134
4135
413%
41%7

4138
4139
4140
4141
(4142

016736
016740
016742
016744

000000
000000
000000
0000017
016745
016746

TTY

SEQ 0076

;CLEAR THE BCD NUMBER
..cer THE CONSTANT
,,ronm THIS BCD DIGIT
:BR IF DONE
*INCREASE THE BCD DIGIT BY 1

000764

012616 *
000002
023420
001750
000144
000012

£$:

000010

016704

z}gg

177777

000040

4120

016712
016714
016716
016720
016722
016724

CLR
MOV
SUB
BLT
INC
BR
ADD
ST

BNE

105726
100003
116663
177777
105013
012605
012603
012602
012607
012600,
)

4121
4122
4123
4124
4125
4126

3¢

4$:

016652
016654
016656
016664
016666
016670
016672
016674
016676

016700

11:21

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2%:

016716

L4110
4111
6112
4113
6114
4115
4116
4117
4118

4119

30-0CT-78

001002

016622

016636
016642
016644
016646

30A(1052)

INPUT ROUTINE

"ENABL
LSB
SYKCNT .WORD
$TKQIN: ,WORD
$TKQOUT: .WORD
$TKQSRT: .BLKR
$TKQEND .

0
0
O
1

JNUMBER OF JTEMS IN QUEUE
“VINPUT POINTER
*SOUTPUT POINTER
J:TTY YEYBOARD QUEUE

LEVEN

;«TK INITIALIZE ROUTINE
“oTHIS ROUTINE Wic. INITIALIZE THE TTY KEYBOARD INPUT QUEUF
J«SETUP THF INTERRUPT VECTOR AND "URN ON THE KFYBOARD INTERRUPT

30A(1052)

4143

4147

4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160

016746

016736
016744
016740
017016

016752
016760
016766
016774
017002
017006
017014

000200

162140
000100

016740
016742
060060
000062

4182
4183
418,
4185
4186
4187

4188
4189
4190
4191
4152
4193
4194
4195
4196
4197
4198

$TKCNT
#$TKQSRT ,$TKQIN
$TKQIN, $TKQOUT
#$TKS
,a# TKVEC
RV
#200,aNTKVEC+2

93 TKB

162130

#100,a$TkS

:.CLEAR COUNT OF ITEMS IN QUEUE
;:MOVE THE STARTING ADDRESS OF THE
;cQUEUE INTO THE INPUT € OUTPUT POINTERS.
::}NITIALIZE THE KEYBOARD VECTOR

;2'BR"' LEVEL 4

.;CLEAR DONE FLAG
;oENABLE TTY KEYBOARD INTERRUPT
JsRETURN TO CALLER

THE CHARACTER IS A '‘CONTROL-C'' (*C)

STKINT

[S CALLED AND

;*UPON RETURN EXIT IS MADE TO THE '‘CONTROL-C'' RESTART ADDRESS (@CNTRL()

017034
017040
017044

4173
4174
4175
4176
4177
4178
4179
4180
4181

PC,STKINT

tTKINT:

;*IF

4168
4169
4170

4171

SEQ 0077

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
. *BY READING THE (HARACTER FROM THE INPUT BUFFER AND PUTTING
;1T IN THE QUEUE.

017016
017022
017026

4172

PAGE 78

4164
4165
4166

4167

11:21

INPUT ROUTINE

4161
4162

4163

1TY

SaCALL:

4144
4145
4146

4128

30-0CT-78

017032

017046

117746
042716
021627
001007
104401

004737
005726

BI(C

000003

017056
017060
017066

022737
001004

104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

042716
022627

LSCNTLC

PC,$TKINT
(SP)
+
SCNTRLC
(SP)
, 47

162170

000176

001140

000001

016736

021627

#SWREG, SWR

’%:

#1,8TKCNT

001206

JEBELL
(SP)+

000023

162022
162014

31¢:

162010
177600

5%
(SP) ,#23
32%
A$TKS
(SP)+

$TKS
31s
a$TKB, - (SP)

#°C177,(SP)

000021

000100

a$TKB,~(SP)

#-C177,(SP)
(SP)
4%
1%

020134
016746

000007

017052

017070
017070
017076
017100
017104
017106
017110
017114
017116
017122
017124
017130
017132
017136
017142
017146
017150
917156
017160
017164
017170
01717

$TKSRV: MOVB

162124
177600

{(SF)+ 421

161766

3¢

#100,98TKS

016736
000140

(3P, 4140

000175

(SP) #4175

STK(NI

JPICKUP THE CHARACTER
J:STRIP THE JUNK
c:IS IT A CONTROL C?
J¢BRANCH IF NO
;o TYPE

A CONTROL-C

(~C)

JoINIT THE KEYBOARD
.. CLEAN UP STACK
;:CONTROL C RESTART
Jo1S IT A CONTROL G?
;;BRANCH IF NO
J:1S SOFT-SWR SELECTED”
;.60 TO SWR CHANGE

.2 1S THE QUEUE FULL?
JsBRANCH IfF NO

JJRING

THE

TTY BELL

::Ei??N CHARACTER OFF OF

STAC%

;.18 IT A CONTROL=-S?
J¢BRANCH IF NO
;:DISABLE TTY KEYBOARD INTERRUPTS
;;CLEAN (CHAR OFF STACK
JsWAIT FOR A CHAR
;.LO0P UNTIL ITS THERE

;cGET THE CHARACTER
J:MAKE IT 7-BIT ASCII

;1S 1T A CONTROL=-Q?
JsBRANCH IF NO
JoREENABLE TTY KEYBOARD [INTERRUPTS
;JRETURN
s oCOUNT THIS CHARACTER
;1S IT UPPER CASE?
;JBRANCH [F

YES

. IS IT A SPEC]AL (HAR?

—~

CZRP1CO, RP11 MUDR EXER MACY11
CIRP1C.P1
23-0C1-78 08:18

(ZRP1C0, RP11
C(ZRPIC.P1N
€199
4200
201
6202
4203
6204
4205
4206

01 72176
017200
O 7204
N 7210
O 7214
01 7222
O 7224
O1 7232

MUDR EXER MACY11

23-0C1-78 08:18
003002
042716

112677

005237

30A(1052)

000040

TTY

INPUT ROUTINE

4$:

177530

016740
016740

016745

016744

016740

11:21

30-0CT-78

5¢%:

PAGE

SEQ 0078

RGT
8IC

3
#40, (SP)

;;BRANCH IF YES
PIMAKE IT UPPER CASE

INC

$TKQIN

SSUPDATE THE POINTER

MOVB

(M
BNE
MOV

(SPJ+,@8TKQIN

::AND PUT IT IN QUEUE

$TKQIN, #STKQEND ;:GO OFF THE END?
5¢
SBRANCH IF NO
#STKQSRT,$TKQIN ,.RESET THE POINTER

RT]

RETURN

. ttQt.ttttttfifitttQQQttttttt.tttttttttttttttttt.t..ittttlt..tttt.

:*SOF TWARE

FROM THE TRAP HANDLER, AND WILL

<=CALL

t«SERVICE

213
L1
6215
6216
W17
4220

01 7234
0 7242
01 7244
O 7250
0 7252
017256

017262

01 7266

022737
001124
105777
100121
117746

042716
021627
001300

000176

001140

SWITCH REGISTER CHANGE ROUTINE.

**ROUTINE IS ENTERED
THE

WHEN OPERATING

$CKSWR: CMP
BNE

161674

000007

TTY

#SWREG, SWR
15%

TSTB

Q$IKS

BIC
cMP

#°C177 . (SP)
(SP) A7

BPL
MOVB

161670
177600

TEST FOR CHANGE

BNE

15%
@$TkB,~(SP)
2s

IN SOF TWARE

SWITCH afcxsrsn TRAP

INTERRUPT MODE.

;1S THE SOFT-SWR SELECTED
JoEXIT IF NOT

2:IS A CHAR WAITING?

22 1F NOT, EXIT
SIYES

D:MAKE IT 7-BIT ASCII
$:IS IT A CONTROL-G?

SSIF NOT, PUT
.. AND EXIT

IN THE

TTY QUEUE

".tt.tttttttttttltttttitt"tt-ttttttttt!ttttfi.t.ttQtttttttt.thttt

4227
6228
6229
4230
4231

4232

01 7270
N 7276
01 7300
O 7302
0 7306
01 7312

423%
4235
2%
6237
4238
W239
64C
War
4262

O 7320
01 7324
01 7330
0N 7334
01 7336
0 7342
0 7344
0 7346
0 7352

4253
4254

123727

001674
005726
004737
005077
112737

104401
104401

013746

001134

000001

:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

6$:

SAUTOB.#1
2%

JSR

PC,S$TKINT

TYPE

L$CNTLG

MOV

SWREG, = (SP)

016746
161632
000001

CMPB
BEQ
(LR
MOVB

001135

020146
020153
000176

$GTSWR:

020164

19 :

161572

TYPE

TYPOC
TYPE
CLR
CLR

;;ARE WE RUNNING IN AUTO=MODE?
S:BRANCH IF YES

(SP) +

::CLEAR CONTROL-G OFF

asTks
#1.$INTAG

::DISABLE TTY KEYBOARD INTERRUPTS
*SET INTERRUPT MODE INDICATOR

T SMSWR

,SMNEW
<(SP)
-(SP)

SSFLUSH THE TTY INPUT QUEUE
;;ECHO

THE

CONTROL=G

1 :SAVE SWREG FOR TYPEQUT

$:GO TYPE==OCTAL ASCII(ALL
SIPROMPT FOR NEW SWR
::CLEAR COUNTER
STHE NEW SWR

) LA
7%

. CHAR THERE?
S IF NOT TRY AGAIN

161566
177600

MOVR

@$TKB,=(SP)

;FICK UP CHAR

000003

(M
BNE

(SF) 43
9

;:1S IT A CONTROL=C?
;;BRANTH IF NOT

ADD

#6,5P

020134
000006
001135

000001

000100

161524

161616

TYPE

(MPR
BNE
8$:

MOV
IMP

#°C177,(SP)

(“G)

*:TYPF CURRENT CONTENTS

TSIR
8PL

BIC

STACK

DIGITS)

SIMAKE IT 7-BIT ASCII

L$CNTLC

;3YES,

SINTAG,#!

:REENABLE TTY KEYBOARD INTERRUPTS?

#°10,887KS

oCNTRL(

ECHO CONTROL=C

*:CLEAN UP STACK

;;BRANCH IF NO

(()

$:ALLOW TTY KEYBOARD [NTERRUPTS

1. CONTROL=C RESTART

4255
4256
4257
4258
4259

4260

4261
4262
4263

4264
4265
4,266

4267
4268
4269
4270

4271
4272
4273
4274
4275

4276
4277
4278

4279

4280
4281

4282
4283
4284
4285

0174624
017430
017432
07436
017442

021627
001005

017444
017450
017452
017456
017460
017466
017472
017476
017504
017506
017514
017516
017522
017526
017530
01753
017536
017542
017546
017550
017552
017554
017556
017562
017566
017570
017574

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015

104401

062706
000737

14
0
104401
000720

200025

30-0CT-78

TTY

INPUT ROUTINE

020141
000006

000015

CMP

20%:

“0%:

000004

000002
000006
001213
001135

000001

000100

161430

161452

016214
000060

11:21

11%:
14%:

108

ADD
BR

#6,SP
19%

TYPE

(MP

BNE
TST
BEQ
MOV

ADD
TYPE

C(MPB

17%:

001212

18%:

$INTAG.
#1

PC.8TYPEC
(SP) 460

18%

(SP) ,A67

BGT
BIC

18%
#60, (SP) +

BEQ

17%

ASL
ASL
ASL
INC

.DSABL

#6,SP
LSCRLF

JSR
CMP

TST

00000¢
177776

(SP) 415

16%
4(SP)
11%
2(SP) ,aSWR

15%
#100,38TKS

cMP

000060
000002

LSCNTLU

BNE
MOV

BLT

000067

(SP) 425

BNE

RTI

8 I4
PAGE 80

BIS
BR
TYPE
BR
LSB

RARASARRSARR

2(SP)

(SP)
(SP)
(SP)
2(SP)

=2(SP)
, (SP)
7%
,SQUES
20%

AR ARl

SEQ 0079

;oIS IT A COMTROL=-U?
. ;BRANCH [F NOT
J:YES, ECHO CONTROL-U (*U)
.. IGNORE PREV'OUS INPUT

;;LET'S TRY |

AGAIN

;1S IT A <CR>?
;cBRANCH IF NO
JeYES, IS IT THE FIRS (AAR?
JJBRANCH IF YFS
. :SAVE NEW 3SWR
.. CLEAR UP STACK

;cECHO <CR> AND <LF>

csRE-ENABLE TTY KBD INTERRUPTS?
sBRANCH IF NOT
. sRE-ENABLE TTY KBD INTERRUPTS

;JRETURN

;cECHO CHAR
;:CHAR < 0?
; sBRANCH IF YES
J:CHAR > 7?
;sBRANCH IF YES
. :STRIP-OFF ASCII
.:IS THIS THE FIRST CHAR
;;BRANCH IF YES
JoNO, SHIFT PRESENT

..
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
. cKEEP COUNT OF CHAR
;oSET IN NEW CHAR
;:GET THE NEXT ONE
JsTYPE

?2<CRO<LF>

;cSIMULATE CONTROL-U

s22223

2232222222222

S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
c«CALL:

M
S

017622

$RDCHR: MOV
MOV
(LR
CLR
MOv

016736

649
°s:

000004
000004

005737
001775

RDCHR
RETURN HERE

000002

RT]

¥SY
BEG

.sGET A CHARACTER FROM THE QUEUE
;. CHARACTER IS ON THE STACK
;.WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)
4L(5P),2(SP)
4(SP)
-(SP)
n64S8,-(SP)

;sPUSH DOWN THE PC AND
::THE PS

$ v (NT
AR3

J.WAIT ON A CHARA(TER

;:GET
:sPUT
..PUT
;.POP

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

(Y]

30A(1052)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0CT1-78 08:18

CZRP1CO, RP11 MUDR EXER MACY11

CZRP1C.P11

3N
4312
6313
4314
4315
4316
6317
4318
4319
4320
6321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331

017630
017634
017642
017646

23-0C7-78 08:18
005337

016736
177102

016742
016742

017654
017656
017664

016744

30A(1052)

30-0CT=-78

TTY

11:21

INPUT ROUTINE

DEC

PAGE 81

$TKCNT

)
SEQ 0080
; sDECREMENT THE COUNTFR

000004

MOvVB

9$TKQOUT,4 (SP)

016745

cMP

S;KQOUTJHSTKQEND ..DID IT GO~8FF OF THE END?

INC

BNE

MOV

016742

RTI

$TKQOUT
2

::GET ONE CHARACTER

JUPDATE THE POINTER

BRANC IF

#S$TKQSRT, iTKQOUT cRESET THE POINTER
,.RE URN

. tttt.ttQttttt.tttttttt'Qtttttifitt.iitfitifitt*tttiitttfittii*ttttt

*EZIS ROUTINE WILL

;*CALL:
,*

010346
005046
012703
022703
101456
104410
112613
122713

INPUT A STRING FROM THE TTY

RDLIN

RETURN HERE

JsINPUT A STRING FROM THE

;. TERMINATOR WILL BE A BYTE OF ALL O'S

020122
020134

$RDLIN: MOV
CLR

R3,-(SP)
-(SP)

;:SAVE R3
;:CLEAR THE RUBOUT KEY

2%:

#$TTYIN+10. ,R3

;;BUFFER FULL?

000177

10%:

000134
020120

020120

177777

020120
020120

000025

020120

020141
000022
001213
020122

BNE

.:BR IF NO

MOVB

#°'\,9%

;. TYPE A BACK SLASH

MOV

#-1,(SP)

CMP

R3,H#STTYIN

CMPS

#177,(R3)

TST
BNE

(SP)
6%

DEC

020120
020120
000015

,9%

J:IS 1T A RUBOUT

:s1S THIS THE
csBR JF NO

. .BACKUP BY ONE

;+STACK EMPTY?

J:BR IF YES

TYPE

,9%

;G0 TYPE

(R3).,9%

FIRST RUBOUT?

;2SET THE RUBOUT KEY

BLO

;;SETUP TO TYPEOUT THE DELETED CHAR.

B8R

8EQ
MOvVR

I4 3
#'\,9%

BR IF NO
. TYPF A BACK SLASH

CLR
CMPB
BNE

(SP)
#25, (R3)
8%

;:CLEAR THE RUBOUT KEY
1S CHARACTER A CTRL U?
BR IF NO

TST

(SP)

.9%

LOCNTLU

CMPS
BNE
CLRB
TYPE

#22,(R3)
3%

CMPR
BNE

Q1S,(R)/*
:
e

TYPE

001212

177777

(SP)+,(R3:

;:BR IF YES
. GO READ ONE CHARACTER FROM THE TTY
;.GET CHARACTER

TYPE

8¢:

. sGET ADDRESS

(A 3

TYPE

7$:

ASTTYIN.R3

BLOS
RDCHR
MOvVB

MOVR
5%:

000134
020120

(Mme

TYPE

6%:

020122

MoV

TTY

. cADDRESS OF FIRST (CHARACTER WILL BE ON THE STACK

TYPE
BR
MOVR
TYPE

CLRB

(R3)
LSCRLF

$TTYIN

::GO READ ANOTHER CHAR.
<RUBOUT KEY SET?

;TYPE A CONTROL

GO START OVER

'U"’

;:IS CHARACTER A '“R'"
. JBRANCH IF NO
. sCLEAR THE (CHARACTER
JoTYPE A ''CR
& "LF"

.:TYPE

THE

INPUT

STRING

1:GO PICKUP ANOTHER CHACTER

L,SQUES
1%
(R3),9%
,9%

;2TYPE A '
;s CLEAR THE BUFFER AND LOOP
. ;ECHO THE CHARACTER

-1(R%)

;. CLEAR RETURN (THE 15)

. sCHECK FOR RETURN
23LO0P IF NOT RETURN

104401

020120
020121
020122
020134
020141
020146
020153
020160
020164
020172

005726
012603
011646
016666
012766
000002
000
000
000012
041536
136
043536
015
036440
020040
020075
020176

11:21
Y INPUT ROUTINE

PAGE 82

TYPE
TST
MOV

LSLF
(SP)+
(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)

001214

000004
020122

30-0CT 78

000002
000004
9%

RTI

.BYTE

000
000012
000
051127

$TTYIN:
SCNTLC:
$CNTLU:
$CNTLG:
$MSWR:

.BLKB
LASCIZ
.ASCIZ
LASCIZ
.ASCI2

020127

$SMNEW:

LASCIZ

7
SEQ 0081
;:.TYPE A LINE FEED
;sCLEAN RUBOUT KEY FROM THE STACK
;:RESTORE R3

#STTYIN,4(SP)

s sADJUST THE STACK AND PUT ADDRESS OF
12
FIRST ASCII CHARACTER ON T
;JRETURN

0
0

;sSTORAGE FOR ASCII CHAR.
. s TERMINATOR

10.
;JRESERVE
/AC/<15><12>
:3CONTROL
/2U/<15><12>
;sCONTROL
/2G/<15><12>
:;CONTROL
<15><12>/SWR = /
/

THE

TO TYPE

10. BYTES FOR TTY
*'C'*
'V
‘G’

INPUT
.

NEW =

.EVEN

LSBTTL
AL EA

INTEGER DIVIDE ROUTINE
AL

LAttt

ittt

ettt

st}

LI
S

*THIS ROUTINE WILL CIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
;*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
;*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER.
*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE
~?2VE SIGN AS THE DIVIDEND.
s*CALL:
. %

LOW DIVIDEND,-(SP)

;;THE HIGH DIVIDEND MUST BE < 1/2

HIGH DIVIDEND,~(SP);

AS LARGE AS

PC,$DIV

N
¥
8

IMPY JES NO ERROR
IMPLIES ERROR OCCURRED

"'C'=0
"'C'*-1

DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

NO ERROR

OVERFLOW

DIVIDE BY ZERO

REMAINDER
QUOTIENT

ALL
ALL

ALL ONES
ALL ONES

#17,(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)

;. STRIP AWAY
::PUSH RO ON
:.PUSH R1 ON
;:PUSH R2 ON

020176
020176

104400

042716

%
»

“on,

THE DIVISOR

;:QUOTIENT & REMAINDER ARE ON THE STACK

DIVISOR,~(SP)

$DIv:

000017

R3,-(SP)

64622

020232

100005

000021
000024
000022

=(SP)
#17.,-(SP)
24(SP) ,R1

Z¢'SP) RO
1%

ZEROS
ZEROS

;.FUSH OLD PSW AND PC ON STA(K
CONDITION CODES
STA(K
STA(CK
STACK

;sPUSH R3 ON STA(CK

;. SAVE A PLACE FOR SIGNS
;o SETUP THE ITERATION COUNTER
;:PICKUP THE DIVIDEND

;.CHECK THE SIGN

(Y]

CZRP1CO, RP11 MUDR EXER MACYM 30A(1052)
CZRP1C.P1
23-0(7-78 08:18

020234
020240
020242
020244

30A(1052)

30-0C7-78

000003

177777

DE(B
NEG
NEG
SBC
MOV
BLT
BGT

1%:

000014

000002

;JKEEP TRACK OF THE SIGN
;. AND NEGATE THE ORIGINAL
2 sNUMBER
20(SP) ,R2
2%
38

#3,14(SP)
1.RO

,','SET

lvll

ltcil

::EEITREMAINDER TO ALL ONES
J;KEEP TRACK OF DIVISORS SIGN

3%:

NEG

;sNEGATE THE ORIGINAL NUMBER

JiCLEAR 'C"

CLC

ROL

6%:

ROL

000014

:START FORMING QUOTIENT

:;POSITION MSB'S
;. COPY
.. COMPARE DIVIDEND & DIVISOR
;:BR IF DIVIDEND > DIVISOR
;JREMAINDER AFTER THIS LOOP
::QUOTIENT 81T ENTERS HERE
;DONE?
BR IF NO
; sOVERFLOW?
BR IF NO

#2,14(SP)

MOV

TST

8%:

..SET 'V''"
IN RETURN STATUS WORD

RO
RO,R1
(SP)+

;SET REMAINDER TO ALL ZEROS

::COPY REMAINDER INTO QUOTIENT
. sCLEAR COUNTER FROM STACK
;REMAINDER SIGN CORRECTION NEEDED?
J:BR IF NO
;cNEGATE REMAINDER
J;CLEAR SIGN

(SP)

000001

020414

;oPICKU® THE DIVISOR
. sCHECK THE SIGN
;:DIVISOR OF O IS A NO-NO

INC

7%:

000020
000016

SEQ 0082

2%:
4%:

000002

PAGE 83

INTEGER DIVIDE ROUTINE

000003

000020

11:21

9% :

TST

108:

MOV

;;BUT DON'T FORGET QUOTIENT

. cQUOTIENT SIGN CORRECTION NEEDED?

.:BR IF NO
;+NEGATE QUOTIENT

R1,20(SP)
RO,16(SP)

J¢RETURN QUOTIENT AND

(SP)+ _R3
(SP)+,R2

R
(SP)+
(SP)+,R0O
(SP)+,2(SP)

000002
.SBTTL

SAVF AND RESTORE

;:REMAINDER TO USER
;.POP STACK INTO R3
;:POP STACK INTO R?
. 3POP STACK

INTO R1

;sPOP STACK INTO RO
JoSETUP TO RETURN CONDITION CODES

2RETURN

RO-RS ROUTINES

ttttiti.ittitttt-tt"tttttttttt.i.t'ttttttiiittttttitiitit!tttl

'SAVE RO-R5

s*CALL:

SAVREG

'UPON RETURN FROM $SAVREG THE
‘TOP-°°(*16)

+2===(+18)

STACK WILL

LOOK LIKE:

[maXen]

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1M
23-0CT7-78 08:18

CZRP1CO, RP11 MUDR EXER MACY11
CZRPI1C.P1
23-0(T7-78 08:18

PAGE 84
30~0C7-78 11:21
SAVE AND RESTORE RO-RS5 ROUTINES

SEQ 0083

SsRe
v, 0.0,

;% +4==-RS
;* +6~=-=R4

;+ +8---R3

;*+10~--R2
;*+]2===R1
;*+14---R0O

020416
020416

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

MOV

000022
000022
000022
000022

. s PUSH RO ON STACK

RO,-(SP)
R1,-(SP)
RZ.,=(SP)
R3,-(SP)

MOV
MOV
MOV

s JPUSH R1 ON STACK
s cPUSH RZ ON STA(CK

R4 ,~(SP)

MOV
MOV

R5,=(SP)

22(SP) ,-(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

MOV
MOV
MOV
MOV
RT]

2 cPUSH R3 ON STACK
::PUSH R4 ON STACK
;:PUSH RS ON STA(CK
;ISAVE PS OF MAIN FLOW
;. SAVE PC OF MAIN FLOW
. :SAVE PS OF CALL
2 ¢SAVE PC OF CALL

J*IESTORE RO-RS

J*«CALL:

012666
012666

020510

000022
200022
000022
000022

$Rt SREG:

RESREG

(SP)+,22(SP)

MOV

(SP)+,22(SP)
(SP)+,22(SP)

MOV
MOV

(SP)+,22(SP)
(SP)+,RS

MOV
MOV
MOV
MoV
MOV
MOV

(SP)+ R4

(SP)+ R3

(SP)+,R2
(SP)+ ,R1

(SPY+ R0

MOV
RTI]

000002
DSBITL

. cRESTORE PC OF CALL
; ;RESTORE PS OF CALL
;;RESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
s cPOP STA(CK INTO RS
. «POP STA(K INTO R4
. sPOP STACK INTO R3
;2POP STACK INTO R2
;:POP STACK INTO R1
::POP STACK INTO RO

RANDOM NUMBER GENERATOR ROUT INE

SR A R AR RN A

A AN AN AR AN AR RN

AN AN AN RAAANNNRANNRARRNRRRANN
N A NN AR RN R AR

J*THIS ROUTINE IS A DOUBLE _PRECISION PSEUDO RANDOM NUMBER GENERATOR
;*WITH A RANGE OF 0 TO 2(+33)-1.

s«CALL:
.,

479
4487
(481
4482
4483
4484
4485
4486
4487

30A(1052)

JSR

RE TURN

PC,$RAND

;.CALL THE R OUT INE
;sRETURN HERE THE RANDOM
s JNUMBER WIL L BE IN
;o SHINUM, $LONUM

RO,=(SP)
R1,-(SP)

::PUSH RO ON STACK
;;PUSH R1 ON STACK
PUSH R2 ON STACK

020512
020512
020514
020516
020520
020524
020530
020534
020536

$RAND:

020612
020610
177771

1s:

R2,=(SP)
$LONUM,
RO
R
$HINUM,
#-7 ,R2
Re
k1

T AND

4535
4536
4537
4538
4539
4540
4541
6562
4543
4544
4545
4546
(547
4548
4549

020540
020542
020544
020550
020552

005202
001374
063700
005501
063701

30A(1052)

020612

$HINUM:
$LONUM:
.SRTTL

DOUBLE LENGTH BINARY TO DECIMAL ASCII

AASASASLRL

$HINUM,
R
#1057,R0
R1
#6746401,R1
RO, SLONUM
R1,SHINUM
(SP)+ ,R2
(SP)+,R1
(SP)+,R0

176543
123456

. ;PROPOGATE

CARRY

;:ADD NUMBER TO MAKE X 129
;.ADD LOW CONSTANT
; +sPROPOGATE CARRY
;:ADD HIGH CONSTANT
;;SAVE RO

JsSAVE R1
;cPOP STACK INTO R2

;sPOP STACK

INTO R1

;.POP STACK INTO RO
;JRETURN

CONVERT ROUTINE

ARARttt
il it il ittt
ittt
sst ]

;*THIS ROUTINE

WILL

CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
THE SIGN OF THE BINARY NUMBER MUST BE

J*DECIMAL (ASCII) NUMBER.
J*POSITIVE.

c«CALL
M

4559

4560
4561
(562
4563
4564
4565

SEQ 0084

ADC
ADD
ADD
AD(
ADD
MOV
MOV
MOV
MOV
MOV
RTS
_WORD
.WORD

020610
001057

123456

;cCHECK FOR DONE
;cCONTINUE SHIFT LOOP
;.ADD NUMBER TO MAKE X 129

INC
BNE
ADD

047401
020672
020610

4550
4551
4552
4553
4554
4555
4556
45°7
4558

11:21
PAGE 85
RANDOM NUMBER GENERATOR ROUTINE

30-0CT-78

B
M

020614
020616

JSR
RE TURN

SAVREG
MOV

000002
020774
000002
000012
020724
020726

MOV

#PNTR ,-(SP)

PC,a#$DB2D

2(SP) .R2

#$DECVL
. RO
RO,2(SP)

(R2)+,R1

(R2) +.R2

020712

#10. .48

#STNPWR
, R4

#STNPWR+
RS
2

ADD

020710
020712
020714
020716

000000
001357
105020

.WORD

JoSET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER

3%
R3
2%

;sBR IF

(R4)+ ,R1
R?
(Re
+ ,R2
)
(RS)+_(RS)+

+
R3,(RO)

6$:

;:SAVE REGISTERS
;.PICKUP THE DATA POINTER
;cGET ADDRESS OF 'SDECVL'' STRING
;.PUT ADDRESS OF ASCIZ STRING ON STA(CK
;:PICKUP THE BINARY NUMBER

;. CLEAR PARTIAL
;s SUBTRACT TEN POWER

#'0.RS

000060

;s THE FIRST ADDRESS OF ASCIZ
;1S ON THE STACK

(R4) ,R1
R2
(RS) ,R?

3%:

. PCINTER TO LOW WORD OF BINARY NUMBER

(P()+

(RO«

TEN POWER TO LARGE
;.ADD 1 TO PARTIAL
. .LOOP
;cRESTORE SUBTRACTED VALUF

JsMOVE TO NEXT TEN POWER
;JCHANGE PARTIAL TO ASCI!I

JJSAVE

J:BR

. .DONE?
[F

.. TERMINATOR

[T}

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PIN
23-0C71-78 08:18

4592
4593
4594

020720

4595

30A(1052)

104413

000207
145000
035632

RESREG
RTS

$TNPWR:

145000

160400

2:1.0E08

113200

;1.0€07

931100

::1.0E06

}03240

;1.0E0S

83420

;:1.0E04

8750

;:1.0E03

644

;:1.0E02

221,000

2:21.0E00

230

020774

$DECVL:

.BLkR

.SBTTL

TRAP DECODER

SEQ 0085

221.0E09

2765

000000
000014

CONVERT ROUTINE

;JRESTORE REGISTERS
2 ;RETURN

35632

160400

459
4597
4598
4599
4600

30-0CT-78
11:21
PAGE 86
DOUBLE LENGTH BINARY TO DECIMAL ASCII

12.

. cRESERVE

STORAGE FOR ASCIZ STRING

RA AN RN AN ANA RN A AN RN AN NAN AN NANRAARAANNRRAARNNACARAANARACRRECRTY

:*THIS 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.

:*GO TO THAT ROUTINE.
021010
021012
021016
021020

021022
021024
021030

010046

016600

005740

0
016000
000200

$TRAP:

000002

THE ADDRESS OBTAINED

MOV

RO,=-(SP)

::SAVE RO

TST

-(R0O)

;sBACKUP BY 2

ASL
MOV
RTS

MOV

2(SP) RO

MOVR

021044

THEN USING

;.GET

(R0O) ,RO

IT WILL

TRAP ADDRESS

.+GET RIGHT BYTE OF

TRAP

J:POSITION FOR INDEXING
$TRPAD(RO)
,RO ;; INDEX TO TABLE
RO
::GC TO ROUTINE

;oTHIS IS USE TO HANDLE THE ''GETPRI'' MACRO
021032
021034
021042

011646
016666
000002

000004

000002

$TRAP2: MOV

(SP) ,=(SP)

MOV

4(SP),2(SP)

RTI

.SBTTL
s*THIS

c:MOVE

¢ sMOVE

THE PC DOWN

THE PSW DOWN

s .RESTORE

THE

PSW

TRAP TABLE
TABLE

CONTAINS

THE

STARTING ADDRESSES OF

. *BY THE '‘TRAP'' INSTRUCTION.

THE

ROUTINES CALLED

TTy

TYPEQUT ROUTINE

ROUT INE

021044
021046

021032
016044

$"RPAD: ,WORD $ PAP?
$TYPE

.CALL=TYPE

TRAP+1(106401)

CZRP1CO, RP11 MUDR EXER MACY11
CZRPI1C.PT
23-0(T1-78 08:18

4655
4656
4657
4658
4659
4660

016310
016264
016324

016512

$TYPOC
$TYPOS
$TYPON
$TYPDS

;s CALL=TYPOS
.« CALL=TYPON
.. CALL=TYPDS

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE
TYPE
TYPE
TYPE

021060

017324

$GTSWR

¢ CALL=GTSWR

TRAP+6(104406)

GET SOFT~SWR SETTING

021062
021064
021066
021070
021072

017234
017576
017666
020476
020454

$CKSWR
$RDCHR
$RDL IN
$SAVREG
$RESREG

;s CALL=CKSWR

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS ROUTINE
TRAP+13(104413) RESTORE RO-R5 ROUTINE

4664
4665
4666

2+ CALL=TYPOC

. :CALL=RDCHR
;s CALL=RDLIN
.+ CALL=SAVREG
+ s CALL=RESREG

NARRR RN RAR AR AR

RP11

A NN

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

AR AARAAAANANRAAAAANNAARNARANR
AN

HANDLER

:;tttttttfitttittiitfittt.i'ttttttii'itt!tit!fiititttttfitt'ttt'ttt't

sSTORAGE FOR RPDS € RP(S ON AN ILLEGAL

4667

sRPERRS

INTERRUPT ERROR

- ]PDS

JRPERRS+2 = RP(S

021074
021076

000000
000000

RPtRRS:

.WORD

0
0

;TABLE OF DRIVE ACTIVE
JTHIS

1S A ONE

INDICATORS (DRVA(CT-"

WORD QUEUE

WHICH WILL

WORD)

CONTAIN A

;BIT FOR EACH DRIVE WHIC(A ]S ACTIVE WITH A COMMAND.
021100

000000

DRVA(CT:

.WORD

;TABLE OF DRIVE STATUS INDICATORS

(DRVSTA=8 BYTES)

;DRVSTA=0 DRIVE NONEXISTENT OR OFFLINE
:DRVSTA>0 DRIVE [S ONLINE
;DRVSTA<O DRIVE

DRvSTA:

;DRIVE

469%

4702

N AR R

.SBTTL

4663

4695
469
4697
4698
4699
4700
4701

SEQ 0086

021C50
02105¢
021054
021056

4661
4662

4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693

:21 PAGE g? ’

.BYTE

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

TYPE

IS UNSAFE OR AN RP03
NOAWNES
W —=O

4653
4654

30-0C7-78

TRAP TABLE

OOOOOOOO

4647
4648
4649
4650
4651
4652

30A(1052)

;DRIVE
;DRIVE
:DRIVE
JDRIVE
JDRIVE
sDRIVE
;DRIVE
;DRIVE

IND]JCATOR (DRVTYP = 1 WORD)

;THIS

IS A ONE WORD

INDICATOR,

JSTARTING AT BITOO FOR DRIVE 0.

;1S AN RPO3 AND RESFT IF

o21te

000000

DRVTYP:

_WORD

EACH DRIVE
THE

1S ASSIGNED ONE BIT

DRIVE'S BIT

IT IS AN RPO2.

WILL

s TRANSFER WAIT FLAG (TRNSWT-1 WORD)
sTHIS IS A ONE WORD QUEUE. IT

:'DPB'"
OF THE 1/0 OPERATION.

WILL

C(ONTAIN THE

ADDRESS OF

SET

[IF

CZRPICO, RP11 MUDR EXER MACY11
CZRPI1C.P
23-0(T1-78 08:18

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T1-78 08:18

4703
4704
4705

021114

30A(1052)

000000

TRNSWT:

4706

4707
4,708
4709
4710
4711
(712
L4713
4714
4715
4716
4717
4718
4719
(720
4,721
(722
(723
4724

4725
4726
4727
4728

4741
4742
4743
4744
4745
(746
4747
4748
4L749
4750
4751
4752
4753
4754
4755
4,756
4757
4758

.WORD

sSEEK WAIT KEYS

PAGE 88

7
SEQ 0087

(SEEKWT=1

WORD)

JTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
;THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE [/0
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

;EACH DRIVE
021116

600000

SEEKWT:
JRP11

.WORD

1S ASSIGNED ONE BIT,

000

(ACTDRV=1 BYTE)

;ACTDRV=0 DRIVER IS INACTIVE

;ACTDRV>0 DRIVER

021120

STARTING AT BITOO FOR DRIVE O.

DRIVER ACTIVE FLAG

ACTDRV:

.BYTE

IS ACTIVE

;SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR-1 BYTE)
;ACTSTR=0 SOF TWARE TIMER ROUTINE IS INACTIVE
JACTSTR>0 SOF TWARE TIMER ROUTINE IS ACTIVE

021121

000

ACTSTR:

;SAVE

.BYTE

REGISTERS FLAG

(SAVEFG =1

WORD)

;SAVEFG<Q SAVE THE RP11E REGISTERS WHEN THE
;OPERATION IS COMPLETED AS PER

4729
4730

4731
4732
4733
4734
4735
4736
4737
4738
4739
4740

30-0CT-78
11:21
RP11 HANDLER

(DPB+14),

JSAVEFG=0 SAVE THE RP11E REGISTERS, AS PER

;(DPB+14),

021122

000G00

SAVEFG:

.WORD

AFTER AN ERROR.

;ORDER REQUEST QUEUES/LISTS

021124
021132
021140
021146
021154
021162
021170
021176
021204
021212
021220
021226
021234
021242
021250

000000

000000
000000
000000
000000

000000
000000

000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

QREGS:

.wORD

0,0,0,0,(.,0,0,0,0

STORE REGISTERS ORDER QUEUE

CSEEK:

.wORD

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

,SFEK/HOME

QTRANS:

.WORD

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

;TRANSFER ORDER QUEUE

QDONE:

.wORD

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

.ON CYLINDER

QwAlT:

,wORD

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

s TRANSFER

SEEK ORDER QUEUE

TRANSFER QUEUE

SEEK

DONE

L IST

JTIMEOUT TABLE (TIMER 8 WORDS)
JTHIS TABLE CONTAINS THE TIME AL_OWFD FOR AN OPERATION
021254
021256
021260

1727777
177727
177777

TIMER:

.WORD

-1

;DRIVE

LWORD

;DRIVE

.WORD

;DRIVE

4764
4765
4766
4767
4768
4769
4770
W77
4772
4773
4774
4775
4776
4W7’77
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788

4789

4790
479
4792
4793
4794
4795
4796
4797
4798
4799
480C
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812

4813

4814

021262
021264
021266
021270

021272

30~-0CT7-78

RP11

HANDLER

1727777
177777
177777
1772777

11: 21

.WORD
. WORD
. WORD
.WORD
.WORD

1727777

PAGE 89

-1
-1
-1
-1
-1

SEQ 0088

;DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

SJATTENTION BITS TABLE (ATABIT=8 BYTES)
sTHIS TABLE CONFAINS THE CORRESPONDING BIT

JATTENTION BIT

021274
021275
021276
021277

ATAR]T:

021300
021301
021302
021303

;RP11E

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

;DRIVE

4
10

;DRIVE
;DRIVE

20
40
100

200

.DRIVE

;DRIVE
JDRIVE
;DRIVE
;DRIVE

TO EACH DRIVES

NOWNS W= O

4759
4760
4761
L4762
4763

30A(1052)

DRIVER INITIALIZATION CODE
sTHIS ROUTINE WILL DETERMINE WHICH RPO2 OR RPO3 DRIVES ARE
;AVAILABLE FOR TESTING AND SET THE 'DRVSTA' INDICATOR
:TO THE PROPER STATE FOR EACH DRIVE.
: THIS ROUTINE CALLS DRVINT
;NOTE

SCALL
JSR

RETURN

021304
021306
021312
021320
021324
021330
021332
021334
021336
021342
021346
021350
21352
021356

106412
013746
013737
012701
012702
005021
020102
101775

177776
001222
021074
021252

021272

177777

177776

1¢:

2%:

001220
022472
001222
001216

021434
001372
012701
005037

005301

021424

RPINIT:

100376

012637

177770

3%
4%:

177776

. = (SP)
MHPS

RPPRIO, a#PS
#RPERRS ,R1

#TIMER=2
,R2
(R1)+

18
NATABIT=2,R2
#-1,(R1)+

R1.R2
2%
RPVEC,R3
#ISR, (R3)+
RPPRIO, (R3)

RPADR
,
4
R1

PC,DRVINT

R1
#C7 R

000007
177776

SAVREG
MoV
MOV
MOV

PC,RPINIT

#7 ,R1
a#PS
R1
5%

(SP)+,a#PS

s SAVE RO-R5
s SAVE THE PRESENT PROCESSOR STATUS
;CHANGE THE PRIORITY

;FIRST ADDRESS

TO BE

CLEARED

;LAST ADDRESS TO BE CLEARED
;CLEAR
;ARE WE DONE?
sBRANCH IF NO
sLAST ADDRESS
JINITIALIZE
;DONE?
<LOOP [F NO
;SETUP THE RP11 VECTOR
JRF11

ADDRESS

JSTART WITH DRIVE 0O

JINIT THE DRIVE
;GO TO NEXT DR]IVE
JMASK QUT UNUSED BITS
;BR IF MORE DRIVES TO GO
JSTART WITH DRIVE 7

;CLEAR THE PROCESSOR STATUS
.GO TO THE NEXT DRIVE
s CHECK NEXT DRIVE

JRESTORE

THE PROCESSOR STATUS

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT1-78 08:18

4815
28%9

021430
021432

30A(1052)

104413
000207

RESREG
RTS

4818

;:DRIVE

4819

4,820

(821
(822
4823
(824

.
-

zggg
4828
4829
4830
4831
4832
(833
483%

021434
021436
021444
021450
021456
021460
021466

104412
112761
110164
032764
001022
032764
001410

483

021476

001007

021470

837
338
4839

021500
021506
021510

4861

021516

4840

4842
4843
4844
4845
(846
4847

2&3

021514

021524
021532
021534
021542
021544
021552

021554

1727777
000005
001000

021102

040000

000000

032764

004000

000000

032764
001003
105061

100000

000000

021102

112761

000001

021102

021274

021112

021274

021112

000416
032764
001004
146137
000403
156137
104413

020000

SEQ 0089
;RESTORE RO-RS
‘BYE-BYE

INITIALIZATION ROUTINE

:THIS ROUTINE DETERMINES OF A DRIVE

IS PRESENT AND IF

;STATUS AND THE DRIVE

TYPE

;:DRIVE NUMBER TO R1

JSR

RE TURN

PC,DRVINT

;CALLED BY A JSR

DRVINT:

SAVREG
MOV
MOVB
BIT
BNE
BIT
8EQ

#-1,DRVSTA(R1)
R1,RPCS+1(R4)
#SUFU,RPDS(RG)
3
#SUOL ,RPDS (R4)
1%

:SAVE RO-RS
-START DRIVE STATUS AS UNSAFE
-SELECT A DRIVE
-DRIVE UNSAFE ?
‘BR IF UNSAFE
:DRIVE
ONLINE ?
:BR IF
NDT

BNE

:BR IF

BIT

2%:

3$:

4%:
5%

RPADR R,

#SUS!,RPDS(R4)

BIT
BNE
CLRB

#SURDY ,RPDS(R4)
2%
DRVSTA(R1)

MOVB

#1,DRVSTA(R1)

BIT
BNE
BICR
BR
BISB
RESREG

RTS

*UNIBUS ADDRESS OF

SET

CEXIT

-SET DRIVE AVAILABLE

#SURPO3,RPDS(R4) " ;DRIVE AN RPO3 2
48
:BR IF IT IS
ATABIT(R1),DRVIYP
;SET RP02 INDICATOR
5¢
SEXIT
ATABIT(R1),DRV'YP
:SET RPO3 INDICATOR
:RESTORE RO=-R5

*RETURN

JCALL
;
;
:
:

4860
4861
4862

021556
021562
021570

013746
013737
112737

4864
4865

021600
021602

012002
005062

4863

4866

4867

4868

4869

4870

021576

021606

021612
021614

021620

021622

010246

177776
001222

000001

024050

004737

021636

005720
012602

RP11:

021120

MOV
MOV
MOVB

:CALL THE RP11E DRIVER
\
*ADDRESS OF POINTER OF DRIVE'S PARAMETER BLOCK
*RETURN HERE IF QUEUE IS FULL

*RETURN HERE If REQUEST IS IN QUEUE OR THERE
*1S AN ERROR CONDITION

PSW,~(SP
RPRR!0,PSW
#1,ACTDRV

;SAVE THE CALLING STATUS
SDON'T ALLOW ANY RP11E INTERRUPTS
SSET "'ACTIVE DRIVER'' FLAG

MOV

R2.-(SP)

*SAVE R2

JSR

RO, L ODQUE

*PUT THIS REQUEST

JSR

PC,r1

SINITIATE A ( OMMAND

MOV

(SP)+ R

B8R
1$:

RO, a4RP11

RE TURN?

MOV
CLR

000016

004037

00040

177776

~;DRIVE READY ?
:BR IF READY
*SET DRIVE OFFLINE OR NONEXISTENT

4852
4853
4854
4855
485¢

2328

(RPDS)

-SEEK INCOMPLETE SET 2

;REQUEST PRE=-PROCESSOR-HANDLES SURSYSTEM REQUEST

4,857

RP11

*NORMAL RETURN

222?

JSR
PNTADR
RE TURN1

INDICATOR BIT IS SET IN °'DRVIYP'.

#DRVNUM,R1

MOV

‘DRVSTA' IS SET TO REFLECT THE DRIVE'S

MOV

1$:

000207

; CALL
:

000000

PAGE 90

;AN RP0O2 OR RP03.
:

4,825

4835

30-0CT-78
11:21
RP11 HANDLER

(RO)+ R2
16(R25

(RA)+

*PICKUC THE DRIVE PARAMETER BLOCK POINTER
SCLEAR THE STATUS/ERROR INDICATOR

TQUEUE IS FULL

:RESTOREt

IN QUEUE
'

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

[ Xen}

4886
4887
4888
4889
4890
4891
4892
4893
489
4895
4896
4897
4898
4899

4903
4904
4905
4906
4907
4908
4909
4910
4911

021624
021630
021634

021636
021640
021644
021650

105037
01263~
000200

021664

104412
013704
005737
001035
005737
001402
004737
005737

021672
021676
021702
021704
021710
021714
021716
021722
021726
021730
021734
021736
021744
021746

004737
005737
001402
004737
005737
001405
004737
005737
001006
105737
001403
112764
104413
000207

021652
021656
021660

021750
021756
021762
021766
021774
022000
022004
022010
022012

117764
013702
004737
012762
012702
004737
005737
001357
000207

00121
0211°

1%:

022014
021170

’%:

022132
021212

3$:

022254
021114

(SP) +,a#PS
RO

000040

177150
021124
023770
000200
021124
024246
021124

022030

022034

117701

004037

177112

022426

4921
4922

022042
022050
022056
022064

016264
014264
116264
156137

000010
000012
00C002
021274
001260

RPADR R4
TRNSWT

1ST

QREGS

SEQ 0090

JCLEAR "ACTIVE DRIVER'' FLAG
JRETURN 'PS'' TO USER LEVEL
JRETURN TO CALLER

4%:

000005

5%:

000005

000012
000014
000004
021100
021254

JBR IF ONE IS

JPENDING STORE REGISTERS OP ?

1$
PC,CIT
QSEEK
2%
PC,CI2
QTRANS
3%
PC,CI3
QDONE
4%
PC,Cl4

:BR IF NOT
;STORE THE REGISTERS
:PENDING SEEKS OR HOME SEEKS ?
;BR IF NONE
sSTART PENDING SEEKS
:PENDING TRANSFER ORDERS ?
:BR IF NONE
;START THE TRANSFER ORDERS
:ON CYLINDER TRANSFER REQUESTS ?
:BR [F DONE
;START ORPER AT HEAD OF QUEUE

BNE

:BR IF ONE WAS

TRNSWT

TSTB
BEQ
MOVB
RE SREG
RTS

;STORE

THE

MOVB
MOV
JSR
MOV
MOV
JSR
TST
BNE
RTS

000016

s SAVE RO-RS
;RP11 ADDRESS
s TRANSFER IN PROGRESS ?

BEQ
JSR
TST
BEQ
JSR
TST
BEQ
JSR
TST
BEQ
JSR
TST

021100

4918

013761

ACTDRYV

SAVREG
MOV
TST

BNE

021750
021146

177126
021146

022074

Cl:

021124

117764
013702

4926

CLRB

M7
PAGE N

;COMMAND INITIATION ROUTINE

022014
022022

4923
4924

1 HANDLER

11:21

MOV
RTS

7
[

4915
4916

4919

30-0(7 78

021120
177776

Hen

<871
4LB72
(873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884

30A(1052)

DRVACT
5%
#40 ,RPCS+1(R4)

JANY ACTIVE DRIVES ?
:BR IF NONE
;SET ATTENTION INTERRUPT ENABLE
:RESTORE RO-R5

*RETURN

REGISTERS (OMMAND

JSTART

THE

(12:

MOVR
MOV
CLR
MOVB
JSR
BR

®QREGS ,RPCS+1(R4)
;SELECT THE DRIVE
QREGS ,R?
;DPB ADDRESS
PC,SVRP11

sSTORE

#QREGS ,R2
PC ,POPQUE
QREGS

:QUEUF ADDRESS
:'POP* THE QUEUE
ANy MORE REQUESTS

*RETURN

#81T107,16(R2)

SEEK OR HOME

MOV

MOV
MOVR

BISB

ASL
MOV

. TRANSFER ORDER STARTED ?

;SET

THE REGISTERS

'DONE’

BR [F ANY ARE

IN QUEUE

SEEK COMMAND

dQSEEK RPCS+1(R4)
;SELECT THE DRIVE
QSEEK ,R2
.DFB ADDRESS

oQSEEK R
RO,CIR
1$
10(R2) ,RPCA(R4)
12(R2) .RPDA(R4)

2(R2) ,RPCS(R4)

JCLEAR R1

.DRIVE ADDRESS
*SEE IF DRIVE IS READY
:DRIVE NOT READY OR [S UNSAFE
~;DESIRED CYLINDER ADDRESS
:SECTOR/TRACK ADDRESS

:START THE COMMAND

ATABIT(R1) ,DRVACTTM

;SET THE DRIVE'S ACTIVE BIT

“ADDRESS WORDS

TIMOUT,TIMER(R1) :START TIMER FOR DR]VE

CZRP1CO, RP11 MUDR EXER MACYN
CZRP1C.P11
2%3-0C1-78 08:18

4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942

4943
4944

4945

4966

4947
4948
L4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960

013761

001332

021146

30-0CT-78
11:21
RP11 HANDLER

021234

:gx

g?EEK,QUAIT(Rl)

MOV
JSR
TST
BNE

#QSEEK
R
P(C ,POPQUE
QSEEK
cl2

021146
024246
021146

1$:

000207

RTS

022132
022140
022142
022146
022152
022156
022160
022166
022174
022202
022210
022216
022220

117764

005001
117701

013702
004037
000426
016264
016264
112764
156137

177032

000005

C(13:

177022

021170
022426
000010
000012
000011
021274
021274

000012
000014
000004
021100
021116

MOV
MOV
MOVB
BISB
BISR

001260
021170
021170
024246
021170

021254
021234

MOV
MOV
MOV
JSR
TST
BNE

ASL

022252

022254

MOVR
(LR
MOVB

MOV
ISR

1$:

013702

@QTRANS,R1

;DRIVE ADDRESS
.DPB ADDRESS

QTRANS,R2
RO.CIR

JSEE ]F DRIVE READY
;DRIVE NOT READY
10(R2) ,RPCA(R4)
JDESIRED CYLINDER
12(R2) ;RPDA (R4)
;SECTOR/TRACK ADDRESS
WSEEK,RPCS(R4)
+SEEK COMMAND
ATABIT(RT),DRVAC T
1
ATABIT(R1)
,SEEKWT

;SET DRIVE ACTIVE
.SET SEEK WAIT BIT

;SETUP TO ADDRESS WORDS

JRETURN

MovR
MOVE
MOV
JgR

@QDONE ,RPCS+1(R4 )
_SELECT THE DRIVE
@QDONE.R1
;DRIVE ADDRESS
QDONE ,R?2
;DPB ADDRESS
?g.cxn
;SEE IF DRIVE IS READY

MOV
MOV

4(R2) ,RPWC (R&)
6(R2) _RPBA(R4)

021100

MOV
MOV
81SR
BISB
8IS
MoV
2%58

12(R2) .RPDA(R4)
2(R2) ,~(SP)
(R2),1(SP)
1(R2), (SP)
#IDE, (SP)
(SP)+ ,RPCS(R4)
:START THE (OMMAND
Q{ABXT(R1).DRVAC T
;DRIVE ACTIVE BIT

021254

MOV

000006
000010

021212

;SELECT THE DRIVE
dQTRANS ,RP(S+1(R 4)
R1
JCLEAR R1

PENDING ON CYLINDER

000012

MOV

000014

022414
022416

IS NOT ON CYLINDER

C(l4:

000004
000006

021114
021212
024246
021114

JRETURN

THE

000005

001260

.'POP' THE SEEK QUEUE
JMORE REQUESTS ?
;BR IF MORE

;START

176732
176724
021212
022426

000010

;PUT DPB ADDRESS IN °'WAIT' QUEUE
JRESTORE DRIVE ADDRESS
;QUEUE ADDRESS

TIMOUT,
T IMER(R1)
;START TIMER FOR DRIVE
QTRANS ,QWAI T (R1)
S'WAIT® TABLE ENTRY
#QTRANS ,R1
: TRANSFER QUEUE ADDRESS
PC ,POPQUE
S'POP' THE TRANSFER QUEUE
QTRANS
*MORE DRIVES IN QUEUE >
I3
:BR IF MORE DRIVES

RTS

117764
117701

SEQ 0091

;DO AN EXPLICIT SEEK IF DRIVE

000012
000002
000001
000001
000100
000004
021274

4981
4982

N7
PAGE 92

30A(1052)

ASR

1§:

10(R25 ,RPCA(R4)

T1AOUT, TIMER(RY)

MOV
MOV
JSR
ST

RZ,TRNSWT
#QDONE ,R1
PC ,POPQUE
TRNSWT

GDONE

BNt

T RANSFER REQUEST

;DRIVF NOT READY
;WORD COUNT
;BUFFER ADDRESS
;CYLINDER ADDRESS
;SECTOR/TRACK ADDRESS
;COMMAND CODE, MODE & HDR BITS
;DRIVE ADDRESS
J'MEX' BITS
s INTERRUPT ON DONE BIT

sADDRESS WORDS

s START TIMER FOR DRIVE

JRESTORE R1

;DPB ADDRESS
sQUEUE ADDRESS

. 'POP*'

THE QUEUE

; TRANSFER ORDER RUNNING

JBR IF ONE IS
JMORE ORDERS WAITING °

(ZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0(1-78 08:18

CZRP1CO, RP11 MUDR EXER MACY] 1
CZRPIC.PN
23-0C7-78 08:18
<983

0226422
022424

30A(1052)RP??-0CT-78

HANDLER

001314
000207

Ve ¥
;SEE

022426
022432
022636
022440

004737

CIR:

105761

003013

11:21

BNE

RTS

000016

110000

000016

JSR
TSTB

023770

022466
022470

BLT

1$:

28:
3s:

i$:

B8
33

Clé

SEQ 0092
;BR IF MORE

JRETURN

IF DRIVE IS ONLINE

BGT
140000

PAGE

PC,DRVINT
DRVSTA(R1)

;CHECK DRIVE'S STATUS
*SEE WHAT DRIVE'S STATUS

‘BR IF DRIVE

-GO STORE REGISTERS

PC,SVRP11
4$
(RO)+

;STORE THE RFGISTERS
CEXIT
*STEP AROUND ERROR RETURN

*BR IF DRIVE ONLINE

IS UNSAFE

MOV

#BIT1S!BIT14,16(R2)

;SET OFFLINE INDICATOR

MOV

#BIT15!'BIT12,16(R2)

~:SET UNSAFE INDICATOR

RTS

B8R

JSR
BR
ST

*RETURN

: INTERRUPT SERVICE ROUTINE

022472
022500
022502
022506
022512
022514

022540

112737
104412

013704
005737
001403
004737

104413
105037

000002

000001

021120

ISR:

001216
027114

MOVB
SAVREG
MOV

#1,ACTDRV

BEQ
JSR
BR

1$
PC,TD
’%

‘BR IF NOT
“CALL TRANSFER DONE
JEXIT

JSR

PC.CI

160 TO THE COMMAND INITIATION ROUTINE

TST

022542

023024
021636

1%:

021120

JSR

KESREG

CLRB
RTI

: TRANSFER DONE

022542
022544
022550

005001

176344
021274
177777

023770
000001

0214634

ACTDRV

IN PROGRESS

*CALL SPECIAL CONDITIONS
*RESTORE RO-RS

*CLEAR "ACTIVE DRIVER'® FLAG
*RETURN

ROUTINE

;CLEAR DRIVE NUMBER STORAGE

021100

@TRNSWT,RI
*GET DRIVE NUMBER
3¥ABIT(R1).DRVACT
:CLEAR DRIVE ACTIVE BIT

021254

ggx

z;1.rxmen<n1>

:STOP TIMER

000016

MOV
CLR
MOV
MOVB
MOVR

TRNSWT ,R2
;GET 'DPB'* ADDRESS FROM THE
TRNSWT
*TRANSFER WAIT QUEUE-~CLEAR QUEUE
#B1T07.16(R2)
:SET DONE
RI1,RPCS+1(R4)
:SELECT THE DRIVE
ATABIT(R1),RPDS(R4)
;CLEAR DRIVE'S ATTENTION BIT

8M]

000000

021122
023770
000300
022732

PC.SC

*TRANSFER OPERATION

MOVB
féfB

021114

021274
000004

CLR

RPADR R4
TRNSWT

;SET "'ACTIVE DRIVER'' FLAG
*SAVE RO-RS
*ADDRESS OF RP11

000004

1%:

2%:

RPCS(R4)
SAVEFG

:ERROR SET

‘BR IF

*SAVE

YES

THE

?
RP11E

REGISTERS?

BPL
JSR

1s
PC,SVRP11

JSR

PC,WC

*SEE

PC,SVRP11

*SAVE THE REGISTERS

BIC

JSR

MOV

JSR

#IDE,RPCS(R4)

scd

#C EAR,RPCS(RG)

PC,DRVINT

‘BRANCH IF NO
*YES--SAVE THE REGISTERS
:CLEAR

'INTERRUPT ON DONE'

BIT

IF WRITE CHECK TO BE PUT

*SPECIAL CONDITIONS ENTRY
';CLEAR

THE

CONTROLLER

sCHECK THE DRIVE'S STATUS

IN QUEUE

CZRPI1C.P1
5039
5040
5041
5042
5043
5044
5045
5066

022672
022676
022700
022702
022710
022712
022720
022722

23-0CT-78 08:18
105761
003011
100404
012762
000466
032762
000462
052762

30A(10S2)

30~0CT 78

RP11 HANDLER

021102
140000

000016

1100G0

000016

3%:

100100

000016

4$:

TST8
8GT
BMI
MOV
B8R
MOV
BR
BIS

11:21

PAGE 94

22VSTA(R1)

8
SEQ 0093
DRIVE STILL ONLINE ?

3%
BR
|
#BIT15!B1T14, 16(R2)
sSET DRIVE OFFLINE INDICATOR
SCO
HECK FOR OTHER DRIVES

#BIT15!'BIT1Z, 16(R2)
SCO

;SET DRIVE UNSAFE INDICATOR

CHECK FOR OTHER DRIVES

451T15!8B1T06, 16(R2) sSET DATA ERROR FLAG

[l an]

CZRP1CO, RP11 MUDR EXER MACY11

022730

30A(1052)

30~0CT-78

RP11

HANDLER

B8R

000456

11:21

PAGE 95

SCO

SEQ 0094

;SPECIAL CONDITIONS ENTRY

;FORCED WRITE CHECK ROUTINE
022732

005737
001430
132762

001024
010146
012701
004037
000416
005062
116262

023022

016262
016262
112762
012601
000207

001322
000004

W :

000002

021170
024216
000016
000002
000019
000012
000007

TST

AUTOCK

BITB

#BIT02.$COMND(R2)

BEQ

‘BR IF NOT

CHECKS

:BRIF NOT
*SAVE R1
:TRANSFER QUEUE ADDRESS

B8R

$QUEUE IS FULL

MOVB
MOV
RTS

RO, DRVQUE

:WRITE COMMAND ?

18
R1,-(SP)
#QTRANS ,R1

CLR
MOVB
MOV
MOV

;AUTOMATIC WRITE

BNE
MOV
MOV

JSR

000024
000032
000030
000002

*PUT THE OPERATION IN THE QUEUE

16(R2)
*CLEAR 'DONE‘ BIT IN DP8
$COMND(R2),SPREVO(R2)
:SAVE WRITE OPERATION CODE
$CYL (R2) ,$PREVA+2(R2)
-SAVE CYLINDER
$SEC (R2) .$PREVA(R2)
;SAVE SECTOR AND TRACK ADDRESSES

#WRTCHK,$COMND
(R2)
:CHANGE
(SP)+,R1
;RESTORE R1
PC
CEXIT

DRIVER CODE

TO WRITE

;SPECIAL CONDITION ROUTINE
023024

023030

105764

001016
016437
016437
104003
005737
001403
112764
000207

005001
012703
030337
001004
005201

000000

000000
000004

SC:

021074
02107¢

000605

106303

000005
002000

021234

032764

000000

177777

021254

021274
021274
001000

021100
000000
000000

040000

000000

RPCS(R4) .RPERRS+2

;STORE THE CONTROL REGISTER

s ILLEGAL INTERRUPT

TST

DRVACT

SANY DRIVES ACTIVE

MOVR
RTS

#40,.RPCS+1(R4)
PC

-SET 'AIE’
*RETURN

CLR

;CLEAR DRIVE NUMBER STORAGE

sc1:

BIT

R3.DRVACT

*IS THIS DRIVE ACTIVE

SC2:

INC
ASLB
BNE

1%:

5C3:

021234

;ATTENTION BITS SET

ERROR

BEQ

SCO:

000001
021100

RPDS(R4)

SCO
:BR IF SOME SET
RPDS(R4) ,RPERRS :STORE DRIVE STATUS REGITER

MOV

021100
000040

TSTB

BNE
MOV

MOV

BNE

#1,R3

sc$

R1
R3

SC1

RTS

MOV
ASR
MOVB
BIT

QWAIT(R1),R2
R1
R1,RPCS+1(R4)
#SUSU,RPDS(R4)

ASL

BNE
ASL
CLR
MOV

ASR
BICB
MOVB
BIT
BNE
BIT

‘BR IF NOT

*START WITH DRIVE 0'S BIT

‘BR IF IT IS

GO TO NEXT DRIVE
SSHIFT DRIVE'S BIT

:BR IF MORE DRIVES

*RETURN

TO CHECK

*SETUP TO ADDRESS WORDS

-GET DRIVE'S DPB ADDRESS
*RESTORE ADDRESS
-SELECT DRIVE
:DRIVE STILL SEEKING ?

SC2
:BR IF IT IS
R1
*ADDRESS WORDS
QWAIT(RT)
*CLEAR THE WAIT QUEUE ENTRY
#-1,TIMER(RY)
:STOP THE TIMER
R1
*RESTORE DRIVE ADDRESS
ATABIT(R1),DRVACT
:CLEAR THE DRIVE'S ACTIVE BIT
ATABIT(R1).RPDS(R4)
:CLEAR DRIVE'S ATTENTION BIT
#SUFU.RPDS(R4)
;DRIVE UNSAFE ?
13
‘BR IF IT IS
#SUOL ,RPDS(R&)
1S DRIVE STILL ONLINE ?

CHECK

CZRP1CO, RP11 MUDR EXER MACY11
CZRPI1C.PYY
23-0(7-78 08:18

5103
5104
5105
5106
5107
5108
5109
S110
5111
5112

S113
51164
5115
5116
5117
S118
5119
5120
5121
5122
5123
5126
5125
5126
5127
g}gg

023206
023210
023216
023220
023226
023230
023232
023236
023242
023244

023246
023254
023256
023264
023272
023274
023302
023306
023310
023316
023320
023326
023332
023334
023342
023346

007432
032764
001034
136137
001434
010146
012701
004037
000240
012601

146137
000712
052762
112761
000420
052762
105061
000412
052762
000406
052762
005737
001663
146137
004737
000655

30A(1052)

140000

000004

021274

021116

.
021274

021116

110000
177777

000016
021102

1%:

140000
021102

000016

2%:

100240

000016

3%:

000200
021122

000016

4%:

021274
023770

021116

5%:

5149
5150

5151
5152
5153
5156
5155
5156
5157
5158

BI(CB
BR
BIS
MOVB
BR
8IS
CLRB
BR
BIS
BR
BIS
TST
BEQ
BICB
JSR
BR

;TIMER ROUTINE
JCALL
N
MOV

2}%2

5140
5141
5142
5143
5144
5145
5146
5147
5148

BEQ
BIT
BNE
BITR
BEQ
MOV
MOV
JSR
NOP
MOV

021212
024216

5130
5131
5132

5135
5136
5137
5138
5139

??-0(7-78
11:21
RP11
HANDLER

023350
023354
023356
023364
023366

(023370
023372
023376
023400
023406
023410
023414
023416
023420

023422
023426

023430
023432
023436
023440
023444
023450
023452
023456

005737
001040
112737
104412
005001

005003
005763
002407
166663
003003
004737
000406
005201
005723

022701
003361

000407
005737
001004
004737
004737
104413
105037
012616

021120

000001

JSR

RPTMR:

TST
BNE
MOVB
SAVREG
(LR
CLR
TST
BLT
SUB
8GT
JSR
B8R
INC
TST
CMP
BGT
BR
TST

021121

021254
000002

1%:
021254

023462

2%:
000010

021114
023066
021636

021121

3%:

6%:
5¢:

BNE

JSR
JSR
RESREG
CLRR
MOV

PAGE 96

8
SEQ 0095

2%
;BR IF NOT
#ERR.HE ,RPCS(R4)
;ANY ERRORS SET ?
3s
JBR IF SET
ATABIT(R1),SEEKWT
;TRANSFER SEEK ?
43
;BR IF NOT
R1,~(SP)
;SAVE R
#QDONE ,R1
;DONE QUEUE ADDRESS
RO.DRVQUE
;PUT DRIVE'S DPB ADDRESS IN DONE QUEUE
JRETURN IF QUEUE FULL (SHOULDN'T HAPPEN)
(SP)+ ,R1
JRESTORE R1

ATABIT(R1) ,SEEKWT
;CLEAR WAIT BIT
SC2
;GET ANOTHER DRIVE
#BITIS!BIT12,16(R2)
;SET DRIVE UNSAFE STATUS
#-1,DRVSTA(R1)
;SET DRIVE UNSAFE
5%
;STORE REGISTERS
#BITIS5'BIT14,16(R2)
;SET DRIVE OFFLINE STATUS
DRVSTA(R1)
sSET DRIVE OFFLINE
5%
;STORE REGISTERS
#31T15.BIT7!BITS,16(R2)
;SET ERROR DURING SEEK STATUS
5%
;STORE REGISTERS
#1707 ,16(R2)
;NORMAL END OF ORDER STATUS
SAVEFG
;SAVE REGISTERS ?
SC2
;BR IF NOT
ATABIT(R1) ,SEEKWT
;CLEAR DRIVE'S WAIT BIT
{.SVRP11
;STORE THE RP11E REGISTERS
SCe2
;GET ANOTHER DRIVE

#TIME ,-(SP)

JELASPED TIME

IN MILLISECONDS ON THE STACK

PC,RPTMR

;CALL RP11E TIMER ROUTINE

ACTDRV
5%
#1,ACTSTR

;CHECK *ACTDRY & ACTSTR'’
;IF _NON-ZERQ, EXIT
JSET "ACTSTR"
; SAVE RO=-R5
;START WITH DRIVE 0

R1
R3
TIMER(R3)
2%
2(SP),TIMER(R3)
2%
PC,STO
3%
R1
(R3)+
#8. .R1
1%
(%
TRNSWT

PC,SCO
PC,CI

ACTSTR
(SP)+,(SP)

;1S THE TIMER RUNNING?
:BRANCH IF NO
:COUNT THE INTERVAL
;BR IF NO SOFTWARE TIMEOUT
JCALL SOFTWARE TIMEOUT ROUTINE
;GO TO THE EXIT
.MOVE TO NEXT DRIVE
;OUT OF
JBRANCH
JBYPASS
JACTIVE

DRIVES?
IF NO

'SC' AND 'C]' CHECKS
TRANSFER COMMAND °?

;BR IF YES

;LOOK FOR DRIVES FINISHED SEEKING
;START ANY OUTSTANDING COMMANDS
JRESTORE RO-RS
;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FIAG
JADJUST THE STA(CK

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1M
23-0CT1-78 08:18

023460

SO-OCT 78

11:21

RTS

RP11

HANDLER

000207

F_
8
PAGE 97

SEQ 0096

JRETURN

;SOF TWARE TIMEOUT ROUTINE
JCALL:
;

QRO

BB LYRIREO2EBEIRRR mwmm3
W
=O
[0 ] NOVVNESWNINBR LA
AS

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

D e
d e
e
b ed
d
D
)
D
b
b
d e
e

~ NNNNN NNNOQRO

(S RNV LV AV L0 LV, LV, AV IV, LV TV LV, [V, LV, LV, [V, 1V, ]V, | wviun N (L VLTV,
IV TV, NN HNT
A
NN

d =D amd

5159
5160
5161
5162
63

30A(1052)

STO
MOV

#DRVNUM,R1

;DRIVE NUMBER
s CALL==DRVACT MUST BE NONZERO

MOV
MOVB
ASl
MOV
ASR

RPADR,R4
R1,RPCS+1(R&)
R1
#-1,TIMER(RT)
R1

;GET ADDRESS OF RP11
;SELECT THE DRIVE

BEQ
(MPR
BNE

STON
R1.,39TRNSWT
STOS

JSR

RE TURN

023462

013704

110164

006301
012761
006201
005737
001446

120177

001123
105764
100520

001216
000005
177777

021254

021114

TST

175376
000004

146137

021274
021114
023770
021434

105761
003010

021102

013702
004737
004737
012762

STO:

100400

000016

040000

000016

010000
000001
000091
021114

000016
000004
000004

ST01:

021234
001000

000000

004000

000000

040000

000000

100000

000000

101000

000016

140000

000016

ST0S:

021102

023744

021234

ST04:

BGT
BLT
BIS
BR
BIS

2%
18
#MIT14,16(R2)
2%
#BIT12,16(R2)

MOVR
CLR

#CLEAR,RPCS(R4)
TRNSWT

MOvB
BR
ASL
MOV

ST0S

DRVSTA(R1)

#CLEAR,RPCS(R&)
ST0S
R1
QWAIT(R1)
,R2

ASR
BIT

R1
#SUFU,RPDS
(R4)

BIT
BNE
BIT

#SUSI ,RPDS(R4)
STOS
#SUOL ,RPDS(R4)

BIT
BNE

#SURDY ,RPDS(R4)
ST0S

ST04

MOV

STOZ:

ég ?ROGRESS FOR THIS DRIVE

ATABIT(R1),DRVA(CT
;CLEAR DRIVE ACTIVE BIT
TRNSWT ,R2
;PUT DPB ADDRESS IN RZ
PC.,SVRP11
;STORE THE REGISTERS
PC.DRVINT
;CHECK ON THE DRIVE'S STATUS
#MITIS!BITO08,16(R2)
;SET TIMEOUT & 'RESET' INDICATCK

BEQ

000016
021102

;DATA TRANSFER IN PROGRESS ?
:BR IF NOT

BI(B
MOV
JSR
JSR
MOV

BNE

110000
177777

INDEX

;STOP TIMER
JRESTORE R1

RPCS(R4)

TSTR

1%:
2%:

TRNSWT

;WORD

TSTR

BMI

021100

PC,STO

MOV

MOVB

MOV
CLRB
ASL
CLR
ASR

ST02

STO3

s CONTROLLER READY ?

:BR IF READY

;SEE IF DRIVE STILL ONLINE

;BR IF DRIVE
;BR IF DRIVE
;SET OFFLINE
;GO _INIT THE

STILL ONLINE
UNSAFE
INDICATOR
DRIVE

:SET UNSAFE INDICATOR
;CLEAR THE CONTROLLER
;CLEAR THE CONTROLLER AGAIN
:E§§¢R THE TRANSFER QUEUE
;ADDRESS WORDS

:GET DPB ADDRESS
JRESTORE R1
;DRIVE UNSAFE ?
:BR_IF UNSAFE
JSEEK INCOMPLETE 2
:BR IF SET
JDRIVE ONLINE ?
:BR IF NOT
DRIVE READY ?

BR [F READY

#MBIT15!'BIT09, 16(R2)

;SET INDICATOR FOR TIMEOUT DURING SEEK
; CONTINUE WITH PROCESSING

#ITIS!'BIT12, 16(R2)

:DRIVE UNSAFE INDICATOR
SET DRIVE UNSAFE
STO04
CONT INUE
#MIT15, BIT14 16(R2)
¢DRIVE OFFLINE INDICATOR
DRVSTA(R?)
;SET DRIVE OFFLINE
R
ADDRESS WORDS
QwAIT(RT)
;CLEAR THE ENTRY
R1
JRESTORE R1

#-1.DRVSTA(RT)

[Tl

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0(T1-78 08:18

023746
023754
023762
023766

146137
146137

004737

000207

021274

DO
NN

5215
5216
5217
5218

1274

3770

30A(1052)

30-CT-78

RP11

HANDLER

021100
021116

STOS:
JROUTINE

‘CALL
5227
5228
5229

023770
023772
023776

SVRP11:

001216
000005
000014

BEQ

1%:

3%:

104413

A ¥

000207

JROUTINE

‘CALL

5263
5264
5265
5266
5267
5268
5269
5270

024106
024110
024114
024116
024124
024126
024134
024136

THE

RP11E

REGISTERS AS PER DPB+14

#DPBNUM,
R?
PC,SVRP11

;DPB POINTER TO R2

RPADR ,R&4
(R2) ,RPCS+1(R4)
14(R2) R2

(MP
BNE
TST
TST

MOV
ADD
MOV
TST

(MP
BLE

RESREG
RTS

000002

000007

000002

(MPS

000015

000002

021146

sRP11 ADDRESS

sSELECT DRIVE
GET THE ERROR TABLE POINTER

JEXIT IF O
;COUNTER & POINTER
;PROBLEM REGISTER
JREACHED RPM? ?

;FORM RP11

a<sp)o (R2)+
(R3)+
R3,4#SILO
1%

#DPBNUM ,R?
RO,LODQUE
JSR
RE TURN1
RE TURN?

000003

000002

:SAVE RO-R5

;BR IF NO
s INCREMENT THE INDEX
. INCREMENT THE INDEX

MOV

000002

000011

;SAVE THE DRIVES REG'S

ADDRESS

THAT

;TO BE READ
JAND READ IT
sJMOVE TO NEXT REG INDEX
;DONE?
;BRANCH If NO

JRESTORE RO-R5

JRETURN TO USER

TO PJT THE REQUEST IN THE PROPER QUEUE

000005

000002

021124

122762

JRETURN

MOV

: MOV
LODQUE
BIT
BNE
MOV
BR
1%:
(MPB
BEQ
(mMPg
BNE
2%:
MOV
BR
3%
(MPS
BEQ
(MPB

000001

SEQ 0097

CLR

00002¢

010146

SAVREG

MOV

TO SAVE

MOV

2%:

024050
024052
024060
024062
024066
024070
(024076
024100

RTS

MOV
JSR

PAGE 98

ATABIT(R1) ,DRVACT
,CLEAR DRIVE'S ACTIVE BIT
ATABIT(R1) ,SEEKWT
;CLEAR SEEK WAIT BIT
PC,SVRP11
;SAVE THE REGISTERS

BICB
BICB
JSR

MOvVB

000020

5255
5256
5257
5258
5259
5260
5261
5262

N :21

BEQ

R1,-(SP)

?%JTO,Z(R2)
#QREGS
R
7$

#SEEK,2(R2)

2%
2 (R2)
#HOMSEK

;ADDRESS OF PARAMETER BLOCK

;PUT

THE

REQUEST

IN THE

JRETURN HERE

REQUEST

:SAVE R1

;GO ENTER REQUEST
:SEEK REQUEST 2
JBRIF IT IS
cHOME

SEEK REQUEST

JBR_IF NOT

.QUEUE ADDRESS

. 2(R2)
#RDSEK

:READ W/IMPLIED SEEK °
JBRIF IT IS
JWRITE W/IMPLIED SEEK ?
JBRIF IT IS
JWRITE CHECK 2

BRTSEK,2(R2)

FURTCHK
2 (R2)

IN QUEUE

;1S THIS A GET REGISTER REQUEST

:BR IF NOT
sLOAD QUEUE ADDRESS

¥QSEEK
R

PROPER QUEUE

JRETURN HERE IF QUEUE IF FULL

JENTER REQUEST

[enYen}

CZRP1CO, RP11 MUDR EXER MACY11
23-0C1-78 08:18
CZRP1C.P1N

024144
024146
024154
024156
024164
024166
024174
024176
024202
024206
024210
024212
024214

001414
122762
001410
122762
001404
012762
000405
012707
004037
000401
005720
012601
000200

30A(1052)

000017

000002

000013

000002

120000

000016

021170
024276

30-0CT 78

RP11

HANDLER

8%:
9% :

;BR IF WRITE (CHECK
READ W/0 IMPLIED SEEK ?
BR IF IT IS
URITE W/0 IMPLIED SEEK ?
BR IF IT IS

BR
MOV
JSR
BR
1S7

8%
#QTRANS ,R1
RO,DRVQUE
9
(RO) +

EXIT WITHOUT MAKING QUEUE ENTRY
;QUEUE ADDRESS
;PUT THE REQUEST [N THE QUEUE
JQUEUE WAS FULL
J INCREMENT RETURN

MOV
RTS

LOALL

LA NN
N AN
AW
TN
AL ATIA

000200

JRESTORE R1
JRETURN
IN QUEUE

#QNAME _R1

. QUEUE ADDRESS

JSR

RO .,DRVQUE

;GO PUT REQUEST IN QUEUE

RE TURN1

#DPB R?

;ADDRESS OF PARAMETER BLOCK
JRETURN HERE IF QUEUE

RETURNZ

DRVQUE: MOV
1%:

TST

8tQ
DEC

B8GT
B8R
MOV

2%:

1S7
TST
RTS

3%:

NGV

OPTONMNIALMNIND
R
D
D a0
OV
WA= OV
N
NSWOV

WAL

\NuuuuuguuunhuuuNLNuuuuuuuug~xfiség§#s§s

5303

TO PUT A REQUEST

MOV

177776

(SP)+ R
RO

JSET INVALID OPCODE INDICATOR

MOV

000010

#IT15!BIT13, 16(R2)

;

012746
005721
001403

SEQ 0098

5%
#READ, 2 (R2)
5%
MIRITE,2(K2)
5%

MOV

5%:
7%:

H 8
PAGE 99

BEQ
CMPB
BEQ
(MPB
BEQ

JROUTINE

0264216
024222
024224
024226
024230
024232
024234
024240
024242
024244

11:21

JRETURN HERE

#8.,-(SP)

JQUEUE SIZE

(R1)+

;SEE

2%
(SP)

IS FULL

REQUEST

IN QUEUE

COUNTER

AT END OF

ENTRIES

:BR [IF YES
;DECREMENT THE COUNTER

1%
3%
R2,=-2(R1)

;BR IF NOT AT END
JAT END
;PUT REQUEST IN THE QUEUE

(RO)+
(SP) +
RO

< INCREMENT RETURN
.CORRECT THE STACK POINTER
:RETURN

JROUTINE TO 'POP'' THE REQUEST FROM QUEUE
. CALL
.

MOV

024246
024252
024254
024260
024262

016111
001403
062701

000772
000207

000002

JSR

POPQUE: MOV

000007

JQUEUE

2RV

JSHIFT

PC ,POPQUE

BEQ
ADD

1%
#2 ,R1

RTS

B8R

1¢:

#QNAME R1

JCALL

,(RY)

ADDRESS

TO R1

TO REMOVE REQUEST
ENTRY DOWN

;BR IF AT END
JINCREMENT THE POINTER

POPQUE

: CONT INUE

<RETURN

;:t'tttittt'tittt.ttttt".tttififi.t.t'tttt"'t't.tt't.t't.tttti"t

.SBTT_

DATA, (ONTROL, & STATUS BLOCKS

NN AN

AN AN

JBLOCK LOCAT]ION EQUATE

000001
000002

$ME X

$COMND

SME X + 1

A AN

AR AN NN

KRR R

R R

AN KA AR

R AR

STATEMENTS
TEXTENDED MEMORY BITS
;OPERATION (ODE

RN RR NS

[T en}

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(7-78 08:18

000104
000106
000110

T
T
T I
T
O
T O
I
1 O
O
I
T
A
O
O
L
I
O

$SOFT
$HARD
$5K]
$MISPO
$PASS(
$FAIR
$RPDS
$RPER
$RPCS
$RPW(
$RPBA
$RP(A
$RPDA
$RPM1
$SUCA
$SILO0

$TOTAL

000040
000044
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102

5357
5358

+1
$COMND
+1
$MODE
SWRDM+2
$BUF +2
$CYL+2
$SEC+]
$TRK+1
$REG+2
$TATUS+2
SWRDL +2
$SPACK
+2
$PREVO+2
SPATT(+2
$PREVA+4

$OPERC(C
+4
$POSIT+4
SREAD+4
$TOTAL+2
$SOFT+?2
$HARD
+2

$SK]+2

$MISPO+2
$PASS(C+2
$FAIR+?

$RPDS+?2
$RPER+?2
$RP(S+2
$SRPW(
+2
$SRPRBA+2
$RPCA+?
$RPDA+?2
$RPM1+?2
$SUCA+?Z

SEQ 0099

;MODE & HDR BITS

JWORD COUNT (2'S COMP)
;BUFFER ADDR
;CYLINDER ADDRESS
sSECTOR ADDRESS

s TRACK ADDRESS OF LAST REG ADDR
JREGISTER STORAGE ADDRESS
;STATUS WORD (SET BY DRIVER)

JWORD COUNT (NOT 2°'S (COMP)

JWRITE DATA PACK INDJCATOR

;PREVIOUS COMMAND SELECTION CODE
;PATTERN CODE
JPREVIOUS ADDRESS - TRACK, SECTOR,

;OPERATION COUNT
;SEEK COUNT

;TOTAL BITS READ COUNT

000

BLKO:

.BYTE
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD

000
000000
000000
000000
000000
000000
024352
000000
000000
000000
000000
000000
000000
000000
002000
000000
000000
000000
000000

OOOOOO

(024264
024266
024270
024272
024274
024276
024300
024302
024304
024306
024310
024312
024314
024316
024320
024322
024324
024326
024330

+52

CYLINDER

;TOTAL ERRORS (ALL TYPES) COUNT
;'SOFT' ERROR COUNT
s 'HARD® ERROR COUNT
;'SUSI' ERROR COUNT
JPOSITIONING ERROR COUNT
;PASS COUNTER
JBUFFER WAIT COUNT
JRP11E REGISTER STORAGE
JERROR REGISTER
s CONTROL REGISTER
;WORD COUNT REGISTER
;BUFFER ADDRESS REGISTER
sCYLINDER ADDRESS REGISTER
;SECTOR/ADDRESS REGISTER
© JMAINTENANCE REGISTER #1
JSELECTED UNIT CYLINDER ADDR REGISTER
;SILO REGISTER

;DRIVE NUMBER

[anTen]

JBLOCK FOR DRIVE O

QOO OOOOOCOOOOO0

5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382

$MODE
$WRDM
$BUF
$CYL
$SE(C
$TRK
$REG
$TATUS
$WRDL
$PACK
$PREVO
SPATTC
$PREVA
$OPERC
$POSIT
$READ

5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356

DATA,

11:21

PAGE 100
CONTROL, & STATUS BLOCKS

000003
000004
000006
000010
000012
000013
000014
000016
000020
000022
000024
000026
000030
000034

30-0CT1-78

5327
5328
5329
5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340

30A(1052)

CZRP1CO, RP11 MUDR EXER MAC Y11
CZRP1C.P1N
23-0C1-78 08: 18

5383
5384

024332
024334

5398
5399
5600

024370
024372
024374

30-0(CT-78

DATA,

000000
000000
000000
000000

PAGF

CONTROL . & STATUS

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
000000

11:21

101

£KS

SEQ 0100

024406
024410

5610
54611
3412
5413
5414
5415

024412
024414
024416
024420
024422
024424

54617
5618
5619
5620
5421

024430
024432
024434
024436
024440
024442
024444
024446
024450
024452
024454
024456
024460

5616

5622

5623
5624
9425
5426
5627
9428
5429
5430
5431
5632
5433
5434
5435
5436
5437
5438

024426

024462
024464
024466
024470
024472
024474
024476
024500
024502

000000

BLK1:

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

060

001
000000
000000
000000

5608
5409

024376
024400
024402
024404

+
N

5604
5405
5406
5607

alalelelelelslalalelalololelololalolalolololololololslollolelelola
TN

;BLOCK FOR DRIVE 1

;DRIVE NUMBER

30A(1052)

[eolélelelaleolololelolalalaloleololels]

(ZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0(T1-78 08:18

024504
024506

K 8
30-0CT-78
11:21
PAGE 102
DATA, CONTROL, & STATUS BLOCKS

000000
000000

.WORD
.WORD

SEQ 0101

0
0

024542
024544
024546
024550
024552
024554
024556
024560
024562
024564
024566
024570
024572
024574
024576
024600
024602
024604
024606
024610
024612
024614
024616
024620

BYTE

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WURD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BLK?:

000

;DRIVE NUMBER

+52

COOOOOOODODODOOOOOOOOOOOOLOOOD

002

000000
000000

OOOOON

;BLOCK FOR DRIVE 2

024634
024636
024640
024642
024644
C24646

000000

BLK3:

.BYTE

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

000

024622
024624
024626
024630
024632

OOOOOW

JBLOCK FOR DRIVE 3

+52

QOO0

5439
9449
5441
5442
5443
5444
5445
5446
5447

30A(1052)

JDRIVE NUMBEK

TMS

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(1-78 08:18

024650
024652
024654
024656

000000

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

000000

000000
000009
00

024702
024704
024706
024710
024712
024714

024716
024720
024722
024724
024726
024730
024732

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

000000

SEQ 0102

02502C

G04

000000

000

BLKG:

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

+52
-~

024734
024736
024740
024762
024744
024746
024750
024752
024754
024756
024760
024762
024764
024766
024770
024772
024774

:BLOCK FOR DRIVE 4

;DRIVE NUMBER

30-0CT-78
11:21
PAGE 103
DATA, CONTROL, & STATUS BLOCKS

COCOCOOO0OOOOOOOTHROO: OO0
N

5495
54696
5497
5498
5499
5500

30A(1052)

OOOO0OOOOOOIDOOOCOOCOOOOOOOOOOO

Y1
CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08: 18

5551
5552
5553
5554
5555
5556
5557
5558
5559
222(1)

025022
025024
025026
025030
025032
025034
025036
025040
025042
?25044

5576

5577
5578
5579

.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
WWORD
WORD

025046
025050
025052
025054
025056
025060
025062
025064
025066
025070
025072
025074

025076

005
000000
000000
000000
000000
000000
025134
000000
(000000
000000
000000
000000

5581

025110

000000

5583
5584
9585

025114
025116
025120

025106

000000

5586

025122

000000

5588

025126

000000

025132

000000

5589

5590

5591
5592
5593
5594
5595
5596
5597
5598

5599
228?
5602
5603
5604
5605
5606

025124

025130

025134
025136
025140
025142
025144
025146
025150

025152

025154
025156

BLKS:

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

.WORD
.WORD
.WORD

000G00

025112

5587

000

000000

000000
000000
000000

5582

0
0
0
0
O
O
O
0
O
O

.WORD

.WORD
.WORD

000000
000000
000000

.WORD
WORD
.WORD

000000

.WORD

000000

.WORD

WORD

000000
000000
000000
000000
000000
000000
000000

.WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD

000000

.WORD

000000
000000

WORD
.WORD

5,0
0
0
)
0
0
.+52
8

;DRIVE NUMBER

0
0
0
0

0
0
0
0
0
0
O
O
0
0
0
0
0
0
0
0
0
0
0
O
O
0
0
O

JBLOCK FOR DRIVE 6
025160
025162
025164

006
000000
000000

000

BLr6:

LBYTE
.WORD
.WORD

6,0
(
O

DRt

K
NUMKE

SEQ 0103

;BLOCK FOR DRIVE 5

025100
025102
025104

5580

m 8
30-0CT-78
11:21
PAGE 104
DATA, CONTROL, & STATUS BLOCKS

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

ggg%
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575

30A(1052)

(ZRP1CO, RP1T MUDR EXER MACY11
CZRPIC.PIN
23-0(T1-78 08:18

000000
sBLOCK

02527¢
007
025274
000000
025276 000000
025300 000000
025302 000000
025304
000000
025306 025360
025310 000000
. 000000
025312

025314
025316
025320
025322
025324
025326
025330
025332
025334
00533

000

BLK7:

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

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

j=lelelejelololelelololololalolololdblololelolslolololelolelo Nolel

025252
025254
025256
025269
025262
025264
025266
025270

000000
000000
000000
025246
000000

FOR DRIVE

.BYTE
.WORD
.WORD
.WORD
.WORD
.wWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

. WORD

SEQ 0104

+52

5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628

025166
025170
025172
025174
025176
025200
025202
025204
025206
025210
025212
025214

30-0CT-78
11:21
PAGE 105
DATA, CONTROL, & STATUS BLOCKS

COCOO~N

5607
5608
5609
5610
5611
9612
5613
5614
5615
5616

30A(1052)

+52

(OO COOOOOOO0

CZRPICO, RP11 MUDR EXER MACY11
Y1
CZRPIC.P11
23-0(T-78 08: 18

;DRIVE NUMBER

5663
5664
5665
5666
5667
5668

5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
ggg?

025340
025342
025344
025346
025350
025352

025354
025356
025360
025362
025364
025366
025370
025372
025374
025376
025400
025402

30A(1052)

000000
000000
000000
000000
000000
000000

WORD
WORD
WORD
WORD
WORD
WORD

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

WORD
WORD
WORD
WORD
WOR,
WORL
WORD
WORD
.WORD
WORD
.WORD
WORD

'ggg%
5684
5685
5686
5687
gggg

025404
025412
025414
025422
025424

SEQ 0105

O
O
O
O
O
O

O
O
O
0
0
0
O
O
O
O
J
O

000000
033626
000000
000000
000012

000000

177775

000000

0256424

GENDPB:

GENREG:

.WORD

0,0,-3,CYLDER

.WORD

0,0,GENREG,0

.BLKW

AR AR AR R AR AR R AR

5691
ggg%

)

.SBTTL

5694

JREGISTER STORAGE

IF ERROR

RN R ARARRARARRRAARRRARARARAARRARAARA
R AR

TABIES, CONSTANTS, AND VARIABLE LOCATIONS

IINRARRANNR AR CANR KRR AR AR AR RN ARV ARRARARNNANNRRARANRRRRRANRNNNRRRNAR

025450

000000

3698
5699
5700

025452
025460
025466

000000
000000
000000

3702
5703
5704

025474
025502
025510

000000
000000
000000

5706
5707
5708

025516
025524
025532

3710
5711
5712
5713
3714
5715
g;}?

5718

;GENERAL PURPOSE DPB ~ USED BY °‘READHD' & 'RECALT®

5690

5695
g@gg

30-0CT-78
11:21
PAGE 106
DATA, CONTROL, & STATUS BLOCKS

ASNLST:

.WwORD

JBIT SET FOR EACH ASSIGNED DRIVE

000000
000000
00CN00

ORDERQ:

.WORD

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

LIST OF DRIVES PERFORMING COMMANDS

000000
000000
000000

DUNIT:

.WORD

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

;ADDRESSES OF DRIVES TO BE DEASSIGNED

000000
000000
000000

NEWUNT:

.WORD

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

;ADDRESSES OF NEWLY ASSIGNED DRIVES

025540
025546
025554

000000
000000
000000

AVAIL:

.WORD

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

;LIST OF DRIVES WAITING FOR PARAMETERS

025562
025570
025576

000000
000000
000000

WAIT:

.WwORD

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

;LIST OF DRIVES WAITING FOR BUFFERS

025604

000000

BUFTBL:

.WORD

JBUFFER ALLOCATION TABLE ENTRY COUNT

rflrsg1

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P11
23-0CT-78 08:18

CZRPI1C.P1M
5719
5720
5721
5722
5723
5726
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735

5736
5737
g;gg

025606
025612
025616
025622
025626
025632
025636
025642
025646
025652
025656
025662
025666
025672
025676
025702
025706
025712
025716
025722

23-0C7-78 08:18
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000

5740
5741
5742

025726
025726
025730

5744
5745
5746
5747
g;zg

025734
025736
025740
025742
025744

024264
024376
024510
024622
024734
025046
025160
025272

750
751

025746
025747

003
013

5743

5752
5753
2;22

025732

025750
025751
025752

5756
5757
5758

30A(1052)

30-0CT-78

11:21

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

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

000000
000000
000000

BLKADR:

(OMTBL:

007
005
017

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

.WORD
.WORD
LWORD

0,0
0,9
0,0

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORL
.WORD

BLKO
BLKI
BLK?
BLK3
BLK4
BLKS
BLK6
BLK7

.BYTE
BYTE

WRTSEK
WRITE

BYTE
.BYTE
BYTE

025754

576C
2;2;

.SBTTL

DATA PATTERNS

5763

5767
5768
5769
5770
5771
5772
5773
5774

025760
025762
025764
025766
025770
025772
025774
025776

026120
026160
026220
026260
026320
026360
(026420
026460

EACH UNIT BLOCK START

JWRITE WITH IMPLIED SEEK (CODE - Q)
JWRITE WITHOUT IMPLIED SEEK (CODE = 1)

JWRITE CHECK (CODE = 2)
JREAD WITH IMPLIED SEEK (CODE = 3)
JREAD WITHOUT IMPLIED SEEK (CODE = 4)

.EVEN
N RANN R AR

000000
026060

cADDRESS OF

WRTCHK
RDSEK
READ

025754
025756

TABLES, CONSTANTS, AND VARIABLE LOCATIONS

5759

5764
5765
5766

PAGE 107

AN AR A NN RN NN NAR AR P RN A RRNNNNNARRRARNRNRRRRARRR A RN

RAANR AR AR RN AR R AN A AN

STNDAT:

WORD
.WORD
.WORD
.WORD
.WORD
.WOPD
.WORD
.WORD
.WORD
.WORD

O
DATA1

DATA1+40
DATA1+100
DATA1+140
DATA1+200
DATA1+240
DATA1+300
DATA1+340
DATA1+400

AR A RNARNANACRARRARNARAARA R RN RRRNRR AR R

;STANDARD DATA PATTERN POINTER TABLF

SEQ 0106

CZRP1CO, RP11 MUDR EXER MACY11

5775
5776
5777
5778
5779

5780
5781
5782
5783

5784

026000
026002
026004
026006
026010

DATA PATTERNS

026760
026020

026020

026722

s STANDARD PATTERN 0O

00000%

s STANDARD PATTERN °

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

DATAQ:

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

5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5812
5814
5815
5816

026060
026062
026064
026066
026070
026072
026074
026076
026100
026102
026104
026106
026110
026112
026114
026116

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
(77777
177777

DATAY:

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

5818
5819
5820
5821
5822

026120
026122
026124
026126
026130

177776
177774
177770
177760
177740

5826
5827

5828
5829
5830

026140
026142

026144
026146
026150

177000
176000

174000
170000
760000

SEQ 0107

000000

177700
177600
177400

DATA1+440
DATA1+500
DATA1+540
DATA1+600
DATA1+640
DATA1+700
DATA0

026022
026024
026026
026030
026032
026034
026036
026040
026042
026044
026046
026050
026052
026054
026056

026132
026134
026136

PAGE 108

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

5785
5786
5787
5788
5789
5790
5791
3792
5793
5794
5795
5796
5797
5798
5799

5823
5824
5825

11:21

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wORD
.WORD
.WORD
. WORD
. WORD
.WORD

DATA1+64¢2

; ZEROES

JONES

003777
007777
0172777
0372777
0777277
177777

177776
177774
177770
177760
177740
172700
177600
177400
177000
176000
174000

172000
160000

;STANDARD PATTERN 2

30-0CT1-78

026520
026560
026620
026660
026720

026012
026014

026016

30A(1052)

(elelelololelololdlelolalolole)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0(T1-78 08:18

5831
5832
gg%z

026152
026154
026156

140000
100000
000000

.WORD
.WORD
.WORD

5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
ggg?

026160
026162
026164
026166
026170
026172
026174
026176
026200
026202
026204
026206
026210
026212
026214
026216

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

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

5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5892
5863
5864
5865
5866

gggg

026220
026222
026224
026226
026230
026232
026234
026236
026240
026242
026244
026246
026250
026252
026254

026256

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

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

5869
5870
5871
5872

026260
026262
026264
026266

052525
052525
052525
125252

.WORD
.WORD
. WORD
.WORD

177777

. WORD

5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
gggé

026270
026272
026274
026276
026300
026302
026304
026306
026310
026312
026314
026316

125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

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

5886

026320

007417

. WORD

PAGE

109

140000
100000

000000
000000
000000
000000

s STANDARD PATTERN 3

172777
177777
177777

000000
000000

177777
177777

000000

177777
200000
177777
000000
177777

000000
010421
021042

;s STANDARD PATTERN 4

;STANDARD PATTERN 5

s STANDARD PATTERN ¢

SEQ 0108

30-0CT-78
11:21
DATA PATTERNS

—d b D wd ed d D
NV
NN =2 O
NIV
S S

30A(1052)

DOt Ot O = = OQ 2=
OO
itV
VRN WNIPOWIWNRONWNWNIWNNVONON)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P
23~0(CT-78 08:18

30A(1052)

30-0CT-78
11:21
DATA PATTERNS

PAGE

5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
ggg;

026322
026324
026326
026330
026332
026334
026336
026340
026342
026344
026346
026350
026352
026354
026356

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

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

007417

5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916

026360
026362
026364
026366
026370
026372
026374
026376
026400
026402
026404
026406
026410
026412

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

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

026455
5

.WORD

170360
170360
170360

007417
007417
170360
170360
170360

007417
170360

026414
026416

026455
151322

.WORD
.WORD

026455

5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932

026420
026422
026424
026426
026430
026432
026434
026436
026440
026442
026444
026446
026450

077577
077577
077577
077577
077577
077577
(077577
077577
077577
077577
077577
077577
077577

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

077577
077577
077577

026452
026454
026456

077577
077577
077577

. WORD
. WORD
.WORD

5937
5938
5939
59640
5941
5942

026460
026462
026464
026466
026470
026472

000001
002002
000004
000010
000020
000040

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

SEQ 0109

007417
007417

5917
gg}g

5933
5934
gggg

F
9
110

;STANDARD PATTERN 7

151322
s STANDARD PATTERN 8

7577

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
0727577
077577

000001
000002
000004

;STANDARD PATTERN S

(WORST (ASE PATTERN)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(7-78 08:18

5943

5944

5951

026474

30A(1052)

30-0CT1-78

DATA PATTERNS

000100

026476

000200

11:21

PAGE

026516

026514

040000
100000

100000

5954
5955

026520
026522

177776
177775

5957
5958
5959
5960
5961
5962
5963

026526
026530
026532
026534
026536
026540
026542

177767
177757
177737
177677
177577
177377
176777

177776
127775
177773
177767
177757
177737

177773

5964
5965
5966
5967
5968
5969

026544
026546
026550
026552
026554
026556

175777
173777
167777
157777
137777
077777

5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5087
5988
5989
5990
5991
5992

026560
026562
026564
026566
026570
026572
026574
026576
026600
026602
026604
026606
026610
026612
026614
026616

172666
155555
172666
155555
172666
1555%55
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555

WYA i
A
YA ViV, VIV LNV, LN
A
AL ARV, [ WAV, [ ANV, [ NIV, 1 N1V, ]

026620
026622
026624
026626
026630
026632
026634
026636
026640
026642
026644

077777
137777
157777
167777
173777
175777
174777
177377
177577
177677
177737

5995
5996
5997
5998

;STANDARD PATTERN 10

077777

s STANDARD PATTERN "1

666
666
666

666
666

~ NN ~N
~! NN ~

5993
9994

1727677
177577
177377
176777
175777
173777
167777
157777
137777

NUINNNNNOWVNWNN
~(e 3V, W
I
N NN ~

026524

111

000100

5952

5956

. WORD
.WORD
.WORD

;STANDARD FATTERN 12

SEQ 0110

CZRPICO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0(71-78 08:18

177776

.WORD
.WORD
.WORD
.WORD
. WORD

026650
026662

153333
066667
153333
066667
153333
066667
153333
066667
153333

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

SEQ 0111

177757
1772767

hf‘\1

H 9
112

177773

177775
177776

026720
026722
026724
026726
026730
026732
026734

000000
000000
177777
177777

026740
026742

1772777
1727777
1777277
1772777
1772777

026736

026744
026746
026750
026752

026754
026756

026760
026762
026764
026766
026770
026772

177777
177777

177777
177777
177777
1777277
177777

000000

s STANDARD PATTERN 13

153333

b-3-B-B- 3 B

066667
153333
066667
153333
066667
153333
066667
153333

066667
153333
066667
153333
066667

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

000000
000000
177777
1727777
177777
177777

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wORD

177777
1772777

026702
026704
026706
026710
026712
026714
026716

153333

066667

BB BB

026656

177757
177767
177773
1777275

PAGE

026646

30-0CT-78
11:21
DATA PATTERNS

;STANDARD PATTERN

s STANDARD PATTERN

1727777

1727777
177777
1772777

1772777
1727777
177777

177777
177777
177777

lookosNoovodoolNocRooNoclooNoodooRooRooNoodosRooRooRookseRooRooNooRoosNoodosXoolooRooloskoeRo
o -39

5999
6009
6001
6002
6003

30A(1052)

BE2 P

CZRP1CO, RP11 MUDR EXER MACY11
CZRPI1C.PN
23-0(71-78 08:18

ARRF AR R AN A AR

.SBTTL
AR

PAGE

1.9
113

SEQ@ 0112

RN AR A AN AR AR N AN NN AN AR

AR A RN RARARARAANRRAANANA NN NAON AR

PRINTER/TELETYPE MESSAGES
AN AN KR A AR AN AR A AR AR RN AR A AN AR AR R AN ARARAAAAARA AR

050122
042111

030461
023576
050123
047524
042522
000107

042040
0c0124
047117
040440
0?1523

EM1:

LASCIZ

@RP11

04711

040526
050122
046517
000

044514
030461
04055

EM?2:

LASCIZ

@INVALID RP11

027107
027114
027122
027130
027136
027144

042116
042105
051105
043040
044124
030461

043105
044440

EM3:

LASCIZ

QUNDEF INED

052522
047522
020105
000

027151
027156
027164
027172

047101
052101
052101
042101
020110
052124

052047
044103
020101
053440
020101
051105

EM10:

LASCIZ

QCAN'T MATCH DATA READ WITH A PATTERNS

INTERRUPT FROM THE RP11a

027214

000116

027216
027224
027232
027240

040504
046517
042440
000123

040524
040520
051122

041440
042522
051117

EM12:

LASCIZ

aDATA COMPARE

027242
027250
027256
027264
027272
027300
027306
027314

042447
047516
020124
051047
041440
052116
020124
000

051122
020124
052502
042520
047117
020123
042532

020047
042523
020124

EM1S:

LASCIZ

@'ERR"

027315
027322
027330
027336

127
047503
047516
047522
052502
040440
051523
043516

051117

020104
020124
042532
020122
051105
042522
047522

EM16:

LASCIZ

aWCRD COUNT NOT ZERO OR BUFFER ADDRESS WRONGa

027366

047125

020124
047440
043106
042104
053440
000

ERRORSa

NOT SET BUT

'RPER'

CONTENTS NOT ZEROa

023522
042524
047516
047522

il
lealealtealelentelalelelelealealalelealealeatalele
il lele ety oY)

COMMANDA

027062
027070
027076
027104

042522
020104
042104
047111

DIDN'T RESPOND TO ADDRESSINGY

ln ittt

027020
027026
027034
027042
027050
027056

AR AN RS

~—~

DATA PATTERNS

11:21

mmMmmMmmmMmMmmmmMmmes

30-0CT1~78

(Yl

30A{1052)

—

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0(7-78 08:18

—t —

—

RNTo NV, P Y§¥ n

d e

o 030 Yo Yo Yo Yo

n
o ole

—

6111

027371
027376
027404
027412
027420
027426
027434

30-0CT-~78

11:21

PRINTER/TELETYPE

MESSAGES

114

PAGE

SEQ 0113

053524
044524
020124
043516

EM17:

JASCIZ

aSOF TWARE

TIMEOUT DURING POSITIONINGS

027435
027442
027450
027456
027464

053524
046524
020124
043516
000

EM20:

LASCI2

a@SOF TWARE

TIMEOUT DURINS 1/0a

02747
027476
027504

062526
064574

EMP1:

LASCIZ

aDRIVE OFFLINEQD

044522
051516

042526
04310°

EM22:

JASCIZ

aDRIVE UNSAFEQ

064440
046" 20

EMC3:

LASCI2Z

aSEEK

FM2G :

JASCIZ

AUNJBUS

05211
043516

027507
027514
027522
027524
027532
027540

042523
041516
052105

045505
046517
000105

027544

INCOMPLETE®

027552
027560
027566

047125
052040
042506

047522

041111
040522
020122
000122

027572
027600
027606

047503
046114
051122

052116
051105
051117

047522
062440
000

EM25

LASCIZ

@(ONTROLLER ERRORQ

027613
07620
027626
027634
027642

044530
020124
040440
051523

116

047117
052123
044504
042104
000

042455
047105
045523
042522

EM26:

JASC]2

ANON=-Ex ISTENT D]SK ADDRESSa

027645
027652

051105

104

052101
047522

020101
000122

EM2?7

JASC]Z

aDATA ERKCRa

EM32:

JASCIYZ

awR]TE

(HEC(K ERROR

040524

020105
020113
020122
040504
051122

051127
044103
051105
062050

020105
020113
020122
020101

EM33:

LASC]2Z

owRITE

(HELK ERROR (DATA ERROR BITS SETa

051127
044103

051105
047050

027716
027722
027730

027736
027744

051117

TRANSFER FRRORa

{(NC DATA EFRROR)w

o e

30A(1052)

lwilvivievlwlelevleleolvlwivivivlviviviolvivivlolvolvlolololololvivivivololololvivivivivivivieo
ol vloleo aYalalalala e T

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1N
23-0(7-78 08:18

6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179

11:21

PAGE

PRINTER/TELETYPE MESSAGES

115

9
SEQ 0114

027752
027760
027766

051105
044502
052105

027772
030000
030006

042510
047040
052517

EM34:

LASCIZ

aHEADER NOT FOUNDa

106

EM3S5:

LASCI2

of ORMAT

EM36:

LASCIZ

aHFADER NOT

042506
042440
042040
020107
000131

EMm37:

LASCI2Z

aDIFFERENT ERROR DURING RETRYa

020047
052502
020124
020122
051440

EM43:

LASCiZ

@'ERR'

:
EMLG

LASCIZ

awRITE PROTECTION VIOLATIONa

047506
042440
042040
020107

EM4LS:

LASCIZ

af CGRMAT ERROR DUKING 1/03

050122
051104
020040

DH1:
DH?:

LASCIZ
LASCIZ

SRPADRY
"V #

030013
030020
030026

020124
020122
020105

ERROR WHILE

SEARCHING FOR

INITIAL

SECTORa

044103

6180
6181

030072
030073
030100
030106
030114
030122
030130
030136
030144
030152
030160

047506
05211
042523
000
110

020122

052103

040505
047516
047125
046131

051122
051125
042522

030216
030224
030232
030240
030246
030254

042447
042523
020124
051105
044502
052105

030257

127
050040
052103
044526
047511

CYLINDER

IN HEADER DOES NOT

047111
047111
042504
051505

041440

046517
000

030161
030166
030174
030202
030210

FOUND,

042522

104

042522

04752

SET BUT NOT ERROR BITS SETa

RP(Sa

(OMPAREQ

30-0CT-78

30A(1052)

laakaslaslaslaalaslaslaalaslaslaslnslaalasliaslasiasiaslaalaslazlilnilwvivioleloalvlvlelvleoleleololvliviolvliolelvlielelielalvinlniewlmle
Yol les)

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.PN
23-0(1-78 08:18

030364
030365
030372
030400
030402
030410

020040
000123
020040
020040

042120
057040

020123
041520

DH3:

.ASCIZ

QRPDS

RP(Sa

020040
052502

020040
043106

DH1G:

.ASCII

]
BUFFER®<15><12>

6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6261

030422
030430
030436
030444
030452
030460
030466
030474
030502
030507
030514
030522

051104
020040
020124
020114
0511264
020040
042101
020040
047105
040
020040
020104

020126
052123
020040
020040
020113
042523
051104
047503
051524
020040
043440
020040

020043
051101
054503
020040
020040
000103
020040
052116
000
020040
047517
041040

LASCIZ

aDRV #

START

DHI10A:

.ASCIZ

@ADDR

CONTENTSa

DH12:

.ASCII

GOOD

BADa<15><12>

62643
6244
6245

030534
030542
030550

042101
020040
020040

051104
040504
020888

020040
040524
040504

LASCIZ

@ADDR

CATA

DATAQ

6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268

030561
030566
030574
030602
030607
030614
030622
030630
030636
030644
030652
030660
030666
030674
030702
030710
030716
030724
030732
0307640
030746
030754

126
041440
042522

046101
040520
051122
009
021440
042120
051040
020040
000123
020040
052120
041501
005015
020043
040502
050122
020040
020040
051504
050122
020040
020040

DH14:

ASCIZ

QTOTAL COMPARE ERRORS:a

051117
104
020040
020123
042520
051040
020040
020040
020104
052524
051104
020040
020040
040502
050122
020040
020040
051105
050122

DH15:

.ASCIZ

a@DRv #

RFDS

RPER

DH16:

.ASCII

EXPTD

ACTUAL@<15><12>

.ASCIZ

aDRv #

RPBA

RPW(

RPDS

RPER

6270
6271
6272
6273
6276
6275
6276
6277
6278

030765
030772
031000
031006
031014
031022
031030
031036
031042

104
020040
020123
042520
051040
020040
020103
041120
050122

052117
046517
042440
035123
053122
051040
020040
020122
041520
020040
054105
020040
046101
020126
050122
020040
020040
041527
050122
020040
020040
051503
000
053122
051040

RPBAQ

020040
020122
041520
051040
020040
000101
040503

SECa

£\ " T T T T TR T W M TM

TRK

RPCSa

DH17:

_AS(IZ

aDRv #

RPDS

RPER

RP(S

RPW(

020040

DH17A:

.ASCIZ

a@RP(A

RPDA

RPM1

SUCA

SItOa

021440
042120
051040
020040
020123
053520
051040

RPCS

Y a VeV s Yt e talatatataYaYe)

(VL

ol i

102

e sl aa¥aale . Yaaloalaalnalaslaalaatataalaataslaalasla
V)

6223
6224
6225
6226
6227
6228

SEQ 0115

—

ol uie o

30-0CT-78
11:21
PAGE 116
PRINTER/TELETYPE MESSAGES

000

30A(1052)

Y Sy

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(T7-78 08:18

020040
020040
030515
052523
020888

050122
020040
020040
040503
044523

040504
050122
020040
020040
047514

040
020040
020126
051505
106
020040
020040
046131
0510640
020040
020122
041520
050122
020888

020040
050040
020040
006524
053122
041440
020040
020040
042120
051040
020040
000123
040503
052523

020040
042522
042040
012
021440
046131
0414490
020040
020123
042520
051040

DH23:

020040
040503

104

053122

021440

031242
031250
031256
031264

020123
042520
051040
020040

020040
020122
041520
0510640

051040
020040
020123
041120

6307
6308
6309
6310
6311
6312
6313

031274
031302
031310
031316
031324
031331
031336
031344
031352
031360
031366
031374

051104
020040
020040
051105
050122
106
020040

020123
042520
051040
020040
020101

020126
050122
020040
020040
051503
053122
051040

020040
020122
041520
051040
020040

020043
051504
050122
020040
000
021440
042120

051040
020040
020123
041520
051040

6320
6321
6322
6323
6324
6325
6326
6327

031406
031414
031422
031430
031436
031444
031452
031460

051104
02004
0.0040
020113
042523
020040
020040
051105

020126
054503
020040
020040
020103
050122
020040
020040

6329
6330
6331
6332
6333
6334

031473
031500
031506
031514
031522
031530

122
029040
020101
041520
051040
020040

053520
051040
020040
020101
042120
051040

020043
020114
051124
020040
020040
051504
050122
020840
00
020103
041120
051040
020040
020101
046520

051040

042120

DESTa<15><12>

LASCIZ

aDRV #

(YL

cyt

RPDS

RPER

DH23A:

.ASCIZ

@QRPCA

SUCA@

DH24:

.ASCIZ

QDRV #

RPDS

RPER

RPCS

RPBA3

DH25:

.ASCIZ

aDRV #

RPDS

RPER

RP(Sa

DH26:

.ASCIZ

abRv #

RPDS

RPER

RPLS

RPCA

RPDA

DH27:

.ASCIZ

QDRV #

(YL

TRK

SEC

RPDS

RPER

RPCSa

DH27A:

.ASCIZ

QRPW(

RPBA

KPCA

RPDA

RPM1

SUCa

SILOa

ol adl ol

RPCSa

B
I
B
B
B
K
I
b
2
B
2
ol

. b

. TaYal

6314
6315
6316
6317
6318

020040

6302
6303
6304
6305

031234

.ASCII

031227

6301

‘

6300

SEQ 0116

031050
031056
031064
031072
031100
031106
031107
031114
031122
031130
031135
031142
031150
031156
031164
C31172
031200
031206
031212
031220

M9
30-0CT-78
11:21
PAGE 117
PRINTER/TELETYPE MESSAGES

6279
6280
6281
6282
6283
6284
6285
6280
6287
6288
6289
6290
6291
6292
6293
6296
6295
6296
6297
6298

30A(1052)

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18

aHARD ERRORa

AL R

LASCIZ

aDRV # PREV CYL

RPDS

RPER

RPCS

020101
041525
044040
020122
042522
052116
024515

DH34A:

LASCIZ

aRPCA

HEADER

(AS READ

INTO MEM)a

054522
051505
000
054522
041525

1:
DH4

LASCIZ

aRETRY SUCESSFULa

DH42:

LASCI2Z

@RETRY UNSUCESSFUL®

RPDAa

—_ e NN
O —dee os s

O0VO0

—d

.WORD
.WORD
.WORD

—

O0OO0OCOoO

.WORD
.WORD
.WORD
.WORD
.WORD

001126

001162

001164

001124
001162

001172
001164

001162

001164
001172
001200

001126
001166

RPADR

DRIVE ,$REGO+RP(CS
RPERRS ,RPERRS +2

$8DADR, $BDDAT

DRIVE ,$GDDAT, SREGO+RPBA, SREGO+RPWC , SREGO+RPDS , SREGO+RPER

DT17:

.WORD
.WORD

SREGO+RP(S
DRIVE,$SREGO+RPDS,
SREGO +RPER, SREGO+RP( S, SREGO +RPW( , SRE GO+RPBA

DT17A:

. WwORD

$SREGO+RPCA, SREGO+RPDA, SREGO+RPM1, SREGO+20, SREG0+22

D123:

.WORD

DRIVE ,$GDDAT,$BDDAT,
SREGO+RPDS, SREGO+RPER, SREGO+RP(S

DI23A:
DT24:

.WORD
.WORD

$REGO+RPCA , $RE GO+20

001164

DRIVE , SREGO+RPDS , SREGO+RPER , $RE GO+RPCS , SRE GO+RPRA

0011¢4

DT2S:

. WORD

DRIVE ,$SREGO+RPDS,
SREGO *RPER , SRE GO *RP( S

—

.WORD

—

$8DADR, $GDDAT , $8DDAT
ERCTR
DRIVE,SREGO+RPDS, SREGO+RPER, SREGO+RPCS

b B

DRIVE ,CMBUF ,CMCYL ,CMTRK, CMSEC

b ol

—~ e

013146

001166
021076
001126
013154
013150
001124

T 2 a2 atal kel

046125

.EVEN

001170
001176
001204
001124
001164
001202
001162
001172
001162

insinsihslns sl

SUCA

hiheshihi:

001166
001264

haoh i i h i b

LASCIZ

D'431:

001216
001264
021074
001122
001264
013152
001122
013140
001264
001166
007264
001170
001166

SEQ 0117

@SOFT ERRORa

032000
032000

118

)

PRINTER/TELETYPE MESSAGES

LASCI?

.. 000

052105
041525
046125
052105
051516
043123

PAGE

DH30:

O(U '0’1
000722
020)6>
041 40
050122
020040
020040
051503
050122

042515

11:21

s i

031644
031652
031660
031663
031670
031676
031704
031712
031720
031726
031734
031735
031742
031750
031755
031762
031770
031776

30-0CT-78

e e i i

051440
020040
000117
042440

ViV

031536
031544
031552

30A(1052)

s iR s iR B i

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0(7-78 08:18

C(ZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7~-78 08:18

8. 10

30A(1052)

30-0CT-78
11:21
PAGE 119
PRINTER/TELETYPE MESSAGES

001162
001176
001266
001162

001164
001176
90127G
001164

DT26:

.WORD

DRIVE,SREGO+RPDS,SREGO+RPER, SREGO+RP(S,SREGO+RPCA, SRE GO+RPDA

DT27:

.WORD

DRIVE,(YL.E,TRK.ER,SEC.ER,SREGO+RPDS,SREGO+RPER,
SREGO+RP(S

001172
001200

001174
001202

DT27A:

.WORD

SREGO+RPW(C,$REGO+RPBA,
SREGO+RPCA, SREGO+RPDA, SREGO+RPM1, SREGO+20, SREGO+22

201124
001166
001202
033632

001162
001176
033626

DT34:

.WORD

DRIVE,$GDDAT,SREGO+RPDS,$SREGO+RPER,
SREGO+RP(S, SREGO+RPDA

NT34A:

.WORD

SREGO+RPCA,$REGO+20,CYLDER,CYLDER+2,CYLDER+4

SEQ 0118

6391
6392
6393
639
6395
6396
6397
6398
6399
6400
6401
6602
8282

032154
032156
032164
032172
032200
032206
032210
032216
032224
032226
032234
0322642
032250

001166
001264
001166
001264
001272
001166
001170
001176
001204
001266
001164
001176
033630

6405
6406
228§

032254
032256
032257

000001
001
0G0

DF1:

.WORD
BYTE
BYTE

1
1
)

;1 'DH' LINE
;# OF ENTRIES IN 'DH' LINE
JENTRIES ARE ALL OCTAL

6409
6410
6411
gz;%

032260
032262
032263

000001
002
000

DF2:

.WORD
BYTE
BYTE

1
2
O

;2 ENTRIES

6414
6415
6416
6417
6418
22;8

032264
032266
032267
032270
032272
032273

000002
005
000
030466
000
000

DF10:

.WORD
BYTE
BYTE
.WORD
BYTE
BYTE

2
5
O
DH10A
O
O

6421
6422
6423
6424
6425
gzgg

032274
032276
032277
032300
032302
032303

000002
005
000
030507
000
000

Dr12:

.WORD
BYTE
BYTE
.WORD
BYTE
.BYTE

2
5
O
DH'?
0
O

6428
6429
22%?

032304
032306
032307

000001
003
000

DF13:

.WORD
BYTE
BYTE

1
3
O

6432
0433
22%?

032310
032312
032313

000001
001
001

DF14:

_WORD
BYTE
BYTE

1
1
1

6436
6437
gz%g

032314
032316
032317

000001
004
000

DF15:

.WORD
BYTE
.BYTE

1
4
O

6440
6441
222%

032320
032322
032323

000001
007
000

DF'6:

.WORD
BYTE
BYTE

1
7
O

6444
6445
6446

032324
032326
032327

000002
006
000

OF'7:

_WORD
BYTE
BYTE

2
6
O

IN THE

JITEM IS DECIMAL

;¢

"DH'

LINES

°'DH'

30-0CT-78

031042
005
000

032334
0

000002
006
000
031212
002
000

DF23:

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

032346
032347

032344

000001
005
000

DF 24 :

.WORD
.BYTE

032350
032352
032353

000001
006
000

DF26:

.WORD

032354

000002
007
000
031473
007
000

DF27:

000002
006
000
031663
005
000

DF 34:

032374
032402
032410
032416

047503
051524

052116
047440

047105
020106
020122
05117
047520
040440
006451

042104
042040
000012

020122
052101

000
030120
031460
044522

032525

043106
0 00
047117

LINTIH:

BYTE
.BYTE

. WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WGRD

CI700‘N own

~n
W

;2 'DH' LINES

H27A

BYTE
.BYTE

LASCI]

dCONTENTS OF

H34A

QADDR
SPA(CES:

SPACEZ:
SPACE?Z:
SPACET:
RPQO2:

000062
000
042526

RPO3:

044514

UNTOFF:

044514

UNTON:

.
.
.

UNTMSG: .
/ OFFLINE/
/

ONLINE/

ERROR SELTOR

DATAQC15><12>

LASCIZ

SEQ 0119

DH17A

ONDO NN

.WORD
BYTE
.BYTE

OWVIQ OO0

032372
032373

PAGE 120

PRINTER/TELETYPE MESSAGES

032330
032332
032333

032343

¢ 10

11:21

Own—=

30A(1052)

ON=

CZRP1CO, RP11 MUDR EXER MACY11
Y1
CZRP1C.PIN
23-0(7-78 08:18

(REPORTED ABOVE)@<15><12>

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT7~-78 08:18

6503
6504
6505
6506
6507
6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521

032532

042516
040
042502
042524
000
040
042101
047111
052123
40

000
047516
047111
052123

046101
020131
020107
042105
047125
000
044522
040524
005015
0531
043122
041516
046515
012

053122
020123
051522
042505

053440
042522
043117
042122
020111
047440
005015

043077
047440

042503
020105
051522
042116
040520

30-0CT-78

11:21

D_10

PAGE

PRINTER/TELETYPE MESSAGES

121

SEQ 0120

020124
020107
042105

UNTNOT:

LASCIZ

/ NOT BEING TESTED/

042522
042502
042524
000
040523

UNTASN:

LASCIZ

/ ALREADY BEING

NOT SAF :

LASCIZ

/ UNSAFE/

SYSTAT:

LASCIZ

/DRIVE

STATUS:/<15><12><12>

STATHD:

LASCII

/DRIVE

PERFORMANCE

LASCII

/DRV PASS ORDERS

LASCIZ

DROPNG:

LASCIZ

<07>/?FATAL OR EXCESSIVE ERRORS/

:
ENDPAS

LASCiZ

/END (Of

042526
052524
000012
020105
051117

TESTED/

SUMMARY/<15><12>

020°05
051101

050040
051117
020040
051513
062122
042101
020124
051440
044515
044124
000
052101
020122
051523
051105
_000
047440
051523

SOFT HARD SUSI

SEEKS

PASS/

042116
042524

ENDTST:

LASCIZ

<15><12>/END OF

051501
042105

DEASSG:

LASCIZ

/ DEASSIGNED/

025012
025052
051104
020043
052123
006504

025052
025052
053111
000
051101
00001

DRNUM:

LASCIZ

<155<12>/nnenannnnnn

ASGND:

LASCIZ

/ STARTED/<15><1¢2>

QUES:

LASCIZ

/?/
/INVALID COMMAND/<15><12>

:
BADENT

LASC]2Z

020104

INVLD:

WRDS READ/

MISP OTHER/<15><12>

042412
020106
000
042504
047107

040526

0464514

30A(1052)

TEST/

DRIVE

INVALID ENTRY/<15><12>

—

033262

30A(1052)

ny
WNONNO
N =N IS

033174

6559
6560
6561
6562
6563
6564
6565

RIARRIR QO
ow

CZRP1CO, RP11 MUDR EXER
CZRPI1C.P11
23-0CT1-78 08

30-0CT-78

SEQ 0121

PRINTER/TELETYPE MESSAGES

INTDOA:

.ASCIZ

<15><12>/PROGRAM INITIALIZATION COMPLETE, ENTER COMMANDS/<15><12>

. WORD
WORD

PAR11
RPADR
PAR1?2
RPVEC(
PAR1
BUFRSZ
PAR4
LC

.EVEN

033266
033270

PARLST:

WORD

.WORD
.WORD
.WORD
JWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

001314
033606
001322
000000
047105
040520
042524
005012
015
051117
040520

042524

033454

E_10
PAGE 122

11:21

000
040
047105
040520

.WORD

042524

;LOCATION

PARS

FC
PAR6
LT
PAR7
FT

PARS8
LS
PARS
FS

PAR?

INTRVL
PAR19
PASCNT
PAR10
SEKMOD
PAR14
RATIO

;PARAMETER NAME

PAR3

(MPLMT

.WORD

PAR1S

.WORD

JPARAMETER ENTRY LIST

AUTOCK

. TABLE

TERMINATOR

ASKPAR:

LASCIZ

/ENTER PARAMETERS:/<15><12><12>

051522
000
042412
044440
040522
035122

020122
042515
006472

051122
020116
042515
020040

NGPAR:

LASCIZ

<15><i2>/FRROR IN PARAMETER:

051040
042524
040522

026505
020122
042515

REPAR:

ASCIZ

040522

RE-ENTER PARAMETERS/<15><12>

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0CT-78 08:18

033462
033470
033471

V33476
033501
033506
033511
033516

033624

042524
000
1

020
020
020

00004
052501
000040
040520
000040

30-0CT~78

11:21

PAGE

PRINTER/TELETYPE MESSAGES

051522

005015

043125
000
052116
000
050115
000
020103
020103
020124
020124
020123
020123
045505
000
040520

051522

PAR1:

LASCIZ

/BUFRSZ

053122

PARZ:

LASCIZ

/INTRVL

046514

PAR3:

LASCIZ

/CMPLMT

PARG:
PARS
:
PARG:

LASCIZ
LASCIZ
LASCIZ

/LC
/FC

PAR?:
PARS:

/LT

F_10
123

SEQ 0122

NNNNNN

6615
6616
6617
6618
6619

30A(1052)

067515

PARG:
PAR10:

LASCIZ
LASCIZ
LASCIZ
LASCIZ

051104

PAR11:

LASCIZ

/RPADR /

042526

020103

PAR12:

LASCIZ

/RPVEC

052101

0475M1

PAR14
:

CASCIZ

/RATIO /

047524

045503

PAR1S:

LASCIZ

/AUTOCK

041523

05211¢

PAR19:

CASCIZ

/PASCNT

/FT
/LS
/FS
/SEKMOD

.EVEN

033626

000000

033634

122

033712

.WORD

9,0.0

JHEADER BUFFER FOR 'READHD' ROUTINE

ENDPGM

005015
030520

046440
042055
042440
05151
047522
005015

CYLDER:

000012

051132
012
042461
044524
042526
041522
050040
046507

TITLE:

sBUFFERS START HERE

LASCI!

<15><12><12>/CZRP1(/<15><12>

LASCIZ

/RP1'E MULTI-DRIVE

EXFRCISER PROGRAM/<15><12><12>

EVEN
LSBTTL

ROUTINE

SiZE

MEMORY

","ifittt't'i't‘t.'.tiflttt'!'itflttttttk"titlttl!tttfititiitt'.'tt'

J*CALL.:
o«

JSR

PC,$SIZE

MCv

RO.,=(SP)

RE TURN
.w
;*SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION
$SIZE:

00NG04

MOV

R*,-(SP)
aERRVEC ,=(SP)

::SAVE RO ON THE STA(K

;. SAVE R1 ON THE STA(K
;,SAVE PRESENT ERROR VECTOR PS & P”

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0CT1~78 08:18
6671
6672
6673
6674
6675
6676

033726
033732

033734

013746
010600
] 04400

0 12637
0 12737
0 12701
00571
005721
000775
162701

034012

010006
012637
012637
010137
012601
012600
000207
000000
000001

30A(1052)

30-0CT-78

ROUTINE

000006

033762

020000

000002

MOV

THE

SNERRVEC+2,-(SP)
SP,R0Q

SEQ 0123
SAVE

THE STACK POINTER

PRESENY
PUSH OLD PSW AND PC ON STACK
(SP)+ ,@¥ERRVEC+2
:sSAVE THE PSW IN Q#ERRVE(C+2
#28 QERRVE
;. SET FOR TIMEOUT

*:FIRST ADDRESS

MOV

é@p)»,no

**RESTORE

.WORD

;:CONTAINS THE LAST ADDRESS

7ST

2%:

SuB

MOV

$LSTAD:

124

#20000.R1

1%:

000006
000004
034012

G_10

EQRVEC PS TO THE

MOV
MOV

000004

PAGE

TO SIZE MEMORY

MOV

;. SET

11:21

RTS

.END

(R1)
*ITEST THIS ADDRESS
(R1)+
$*STEP TO NEXT ADDRESS
1%
2 TRY ANCTHER
#2.R1
*:DROP BACK
RO, SP
S:RESTORE THE 3TACK
(SP)+,@#ERRVEC+2" : ;RESTORE ERROR VECTOR
(SP)+.#ERRVEC
R1,$LSTAD
::LAST ADDRESS
(SP)+.R1
*'RESTORE R1
RC

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0(71-78 08:18
ABNRML
ACTDRV
ACTSTR
AIE
=
ASGND
ASGNO
ASGN1
ASGN2

011276
021120
021121
020000
033121
010420
010434
010472

ASGN4
ASGNS
ASGN6
ASGN7?
ASGN8
ASKPAR
ASNERR

010616
010626
010634
010644
010652
033364
011110

ASGN3

ASNLST

ASNMSG
ATABIT

010514

2842
2865

025450

29364
2575

2583

011130
021274

2892«
2583

2910«
2834

BIT?2

000004

- 000010
- 000020
000040
000100

—d

SO N0
O =MW

b\ S}

e ed D d e d ad ek =D b P
FRERERE
2L 2K 3i, 1V, [V, 1V, [V, ]

——d
e

N D O
N AN AN

2882+

2904

2914

2973+

2882
5027

2904
5098

2973
5099

3048
5106

47694
5113

57104

5205

5207

5051

6600

2069

2097

2136

1864

1868

1880

18844

1852+

2056

2057

2149

2265

2435

3737

5053

5118

5121

2458
3450
3456
3466

3500

5046

3298

4906

5025

5123

5044
5276
5042
5042

5115

5189

518
5044

5187
5Cé¢

5183
5205

357§

|8 o]
[}

N
N N

oo
Oono

4997

LN N

3464

BIT15 - 100000

BN B

020000

2880

4947

2049

014076
001342
002032
001340
001344
000001

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

<35

4946

033160
013576
003256

BIT14 - 040000

BITS
BIT4
BITS
BIT6

5012«

SEQ 0124

65514
2926

~ 00 OO—‘O«Q gg

BIT13

5002«

5137«

001322
025540

BDADR
BEGCOD
BEGIN
BEGPAT
BEGSIZ
BITO
=

BITOO
BIT01
BITO2
BITO3
BITO4
BITOS
BITO6
BIT07
BIT08
BIT09
BIT1
BIT10
BIT11
BIT12

11:
21
PAGE 126
CROSS REFERENCE TABLE =-- USER SYMBOLS

2985«

LE
X X X

BADENT
BADOP
BADPAR

H 10

30-0CT-78

4862+

AUTOCK
AVAIL

30A(1052)

4994

3900
4992
499¢

5183

5210

C(ZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PIN
23-0(T1-78 08:18

BIT7 =
BIT8 =
BIT9 =
BLKADR
BLKO
BLK]
BLK2
Buk3
BLK4
BLKS
BLK6

000200
000400
001000
025726
024264
024376
024510
024622
024734
025046
025160

11464
11454
1144
1746
2574
564044
5644
S64BAA
55244
S5644
56044

BPTVEC= 000014

11604

BLK?7

025272

56444

BUFRSZ

001306

BUFTBL

025604

CHNGPM
Cl
CIR
cn
Cl2

001262
021636
022426
021750
022014

13414
4868
6919
4883
4886

Cl4
CKADR
CKBUS
CKCLK
CKCLKY1
(kCLK2
CKCLK3
CKERR
CKHNF
(KPAR
CKSWR =
CK.CHR
CK.NUM
CK.OCT
CLEAR CLKFLG
CLOCK
CLRDPB
CMBUF
CMCNT
CMCYL
CMDAT
(MPAR
CMPARD
CMPLMT
CMPRES
CMPRT
CMPRT1
CMPRX

022254
002710
012456
006752
007034
007102
007106
012424
014450
003076
104407
011764
012010
011734
000001
001236
007650
011140
013154
013144
013146
012702
012524
012546
001314
006640
013156
013264
013130

4892
1785
3260
1930
2546
2557
2555
3259
3534
1851
3868
31214
1804
31024
11864
13304
2551
2856
3309«
3302«
3304
33214
3263
3299
13644
2019
3333
339¢
3356

cI3

CMSEC
(MSTR
CMTRK
(NTRLC

022132

013150
012610
013152
001242

é%;gfi
1765«

2208

4889

3306
33074
3305+«
13324

30A(1052)

[.10

30-0CT-78
11:21
PAGE 127
(ROSS REFERENCE TABLE -- USER SYMBOLS

3816
3468

5121

2854
S5364x
5742
574

2855
5741

2884

2907

57404

1780

1781

1783«

1844

SEQ 0125

5764

5745
5746
5747

5748

1778
1766«

2209

1767«

2221%

1693«
«8774
4941
49034
49154

1695+«
5010
4962
4910
4932

L9594
18244
32814
25454
25564
25654
2564
32684
36374
18534
3508
3i47
31434
3145
5037
2545
2561
29484
33804
3303~
3365+«

4983

49374

32964
33014
3307
2099
3342
3401
33674

3357«
3359
3361«
1789«

1768+«

2227«

1784
5155
49884

1770

2228

1775«

1846
1777+«

2238

2239

3320«

3355

33764

1843+

4954

3459

3501

25664

46544
3164
3159
5190
2549+
27194

5191
2559+«

2710

6372
2315
23774

3317
6372

3612

3702

6598
2118
3352
34044

2140
3384n

25204

2523

3358
3363
7362
1933«

3360«
3366
3364
4171

33784

6372

794
42564

6372

1850
1781

2252«

1852

2273

2378

2486

2487

1783

1844

2172

2174

2192«

57184

0000
000200
000040
033626
001266

DH26
DH27
DH27A
DH3
DH30

031331
031406
031473
030365
031560

DHZ2S

DH31
DH34
DH34A
DH41

DH4?2

DISPLA
DISPRE
DONE

031274

031573
031606
031663
031735

031755

0011472
000174
013¢5¢

D
d
b
D

—Ca

no
00—

TMm

—

-—

—

!
~
e ]

~no

5770

5771

5772

6444LN

;‘\Nbg\hmd

031107
031212
031227

14627

DH23
DH23A
DH24

032320
032324
032260
032334
032344
032350
032354
032364
030342
030402
030466
030507
030561
030607
030644
030765
(31042
030

032314

DF16
DF17
DF 2
DF23
DF 24
DF 26
DF 27
DF 34
DH1
DH10
DH10A
DH12
DH14
DH1S
DH16
DH17
DH17A
DHZ2

DF15S

DF 12
DF13
DF14

014612
177570
010654
033057
032254
032264
032274
032304
032310

DATER
ODISP =
DEASGN
DEASSG
DF1

5769
5801#

011064
026020
026060

66454

DATAPK
DATAO
DATAT

DF10

—

014106

0257??

[0 RV, IV LV, R0 P
NV, [V, [V, IV, ]
— 00 ON NANNOMY
—
COWORPOWVNONNO W

(R
=
CRLF
=
CSME
=
CYLDER
CYL.ER

SEQ 0126

O R
el * A e a1 © A
T
I
RUUY o NP WY o
Ry
L 2laN1aTo Yo YV T RV, IV P NUNTE IV IV IV, LEIV. F L NI, IV IV, |
VIV
— 000 SN0 NONON O NN NN — —
OO
N0 — O
—= &~ ~NO
»
»

CNTRLR

comMTB.

(]

o
[]
o

(V,]

—

o
>

—

—l

CZRP1CO, RP11 MUDR EXE
23-0C1-7

CZRP1C.P11

1575
1541

64364

1485

64104

1548

1640

1668

1611

1625

1682

64664

€36

1546

1638

1566

1609

1623

*680

6320

€e73a
62274

62514

6342

1724

385

62704

5773

5774

5775

5776

5777

5778

CZRP1CO, RP11 MUDR EXER
CZRPIC.B11
23-0CT-78

MACY11
2
08:18

DOKT]
DRIVE
DRNUM
DROP
DROPNG
DRVACT
ORVINT
DRVQUE
DRVSTA
DRVIYP
DSKERR=
DSWR
=
DT
DT10
0111
DTI3
DT14
DT1S
DT16
DT17
DT17A
DI2_
D123
DT23A
DT24
DI2S
D126
D127
DT27A
DT3

006630
001264
033073
011216
032771
02110C
(21434
024216
021102
001112
000001
177570
032000
032016
032012
032030
032036
032040
032050
032066
032102
032002
032114
032130
032134
032146
032156
032172
032210
032006

1933
13420
2679
29704
2978
L6778
4806
5057
1906
1836
12110
10744
1428
1477
1484
1498
1505
1512
1519
1526
63834
1435
1554
63874
1561
1568
1575
1582
63974
1442

DUNIT
EMTVEC=
EM1
EMIO
EMI2

025474
000030
027020
027151
(27216

DT34
DIZUA

EMIS
EMI6
EMI7
EM2
EMOO
EMA1
EM22
EM23
EM4
EMOS
EMO6
EM27
EM3
EM32
EM33
EM3,
EM35
EM36
EM37

032226
032242

027242
027315
027371
027062
027435
027471
027507
027524
027544
027572
027613
027645
027107
027660
027722
027772
030013
030073
030161

1617
64028
1985
11630
1426
1475
1489
1510
1517
1524
1433
1537
1538
1545

1552

1559
1566
1573

1580
1440
1601
1608
1615
1622
1629
1637

30A(1052)

K_10

30-0CT-78
11:21
PAGE 129
CROSS REFERENCE TABLE -~ USER SYMBOLS

6372
65474
34838

1610

6376

6378

3494

3502

4973
5182
4839+
48467

1547

1639

1624

1681

'30500

57024

64004

2975+
1706+

1727+

SEQ 0127

6381

6385

6388

6390

6392

5019+

5074

5082

5098+

5179«

5215«

4841+

4989

5039

5116+

5119«

5184

L1667

63814

639

6394

6400

5208«

5211+

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1
23-0C71-78 08:18

ERCTR

ERPR(C1

ERPROC
ERR

FACTOR
FAIRNS
FC
F ILBUF
FMTE
FMTERR
FRSTER
FS
FT
FUV
-

GENDPB
GENREG
GE TBUF
GETCYL
GE TPAR
GE TPAT

025424
004710
005740
00550¢
006274
011570
005710
005660
005770

GE TREM
GETRK
GETSEC
GETSIZ
- L82888
GNS
GODRIV
005424
GTPAR1
005556
104406
GTSWR

HDR
HE
HNF
HOMSEK
HOUR
=
HT
HZ

IDE
IDLE
INCHRD
INCM]S

3354

13534

vv
»

ERRVE(C=

1665

1672
1679

» gQ
»ooo-ar\Jr\)wogwoo\now
» N
x
n

030216

PO O = =2 INNIN = = b b ea — 2 (N
= O =2 PO
SN AN NN
VO W N o
H N
NN
= 2000 OO0 =N~ —

EM.3

EMLG
EMLS
ENDCMP
ENDCON
ENDPAS
ENDPGM=
ENDSEK
ENDTST
ENTPAR
ENTPR
ENTPR1
ENTPR?
EOP
= 000002

007570

30A(1052)

62024
62094
62154
34204
3000
6538#
1768
3006
65414
1831
1817
18154
1809

L.10

30-0CT-78
11:21
PAGE 130
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0128

3003
2269
3009

66474

1889
1818#

3396+

3402*

3420

3719~

6375

1725+
6684«
2151
2496
2369
3688
3616

1824+

1826+

1828+

2546

2547+

2557+

2566~

6670

6671

2373

2480

6580

3384
2349
2359

3388+
2353
2363

3722+«
2479
2478

6588
6584

3780

3782

3789

3790+

3791«

3792«

3793«

3794«

3796

3798

3597

3684

2694
2372

2380

2427

2445

30554

4648

4649

4650

4652

4654

4655

4656

4657

4658

2742

2744

2746s

2747

2749

27614

3810

21594

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1N
23-0C1-78 08:18
INCSKI
INCSOF
INCTOT

007552
007516
007606

INTDON
INTRFA
INTRVL
INVLD
I0OTVEC=
ISR

0332(?2
014116
001312
033136
000020
022472

KSR
KSR1
KSR2

010136
010220
010410

KIPARO=

weawwen

LC
LF
=
LIMIT
LIN1TH
LODQUE
LPE
=
LS
LSTAD
LT

001324
000012
013142
032374
(024050
000200
001334
001244
001330

MAINO
MAIN1
MAINZ
MAIN3
MASK
MATCH
MAXCYL
MAXER
MINUTE
MODE
=
MODERRMONTR
NEWASN
NEWUNT
NGPAR
NOMTCH
NOTSAF
NRML
NRM_ X
NRML 1
NRML 2
NXC
=

003676
004046
004266
004436
015562
013374
001256
001310
010124
010000
000400
003532
010414
025516
033411
015030
032605
011324
011566
011356
011400
020000

NXT
=
OFLIN
ORDERQ
PACK
PARLST

010000
013564
(025452
001252
(033266

MAIN

NXME
NXS

003650

1929

3528

M10
30-0CT-78
11:21
PAGE 131
CROSS REFERENCE TABLE =-- USER SYMBOLS

006206

PARTO

033551

033471

SEQ 0129

3631

65604
35674
1753
65544

3423
3660

3476
3671

3487

3493

2752

2754

2756~

6590

2809

2815

2819
2368

28214
2473

6578

3404

3406+

2737

2738

2740+

2925+

2931

3499

3544

50024

27734
27864
2801
1840

1853

3976
3308
64814
52554
3535

1857

1869
1764+
1861

2348

6585

2358

2476

1957

2024

1771

2141
1978

20664
21044
3616#
34304
1835+
2991
2713
3523

28264

3818

38304

1842

1853

2734

2736«

2854~

57064

3010
20064
3004

3044

30514

2123
2826+

56984
2858

2047+

6582

65124

30114

A
= 004000

PARXIT

PAR1

2684n
26664
27024
3601

30A(1052)

6630#

24204
(6184

2860

27634

3550

3556

3562

3568

CZRP1CO, RP11 MUDR EXER MACY11
CZRPIC.P1T
23-0CT-78 08:18
PAR11
PAR12
PAR1G

033561
033570
033577

PARTS

6571
6573
1879

033606

PARIS
PAR2
PARS
PARG
PARS
PARG
PAR?
PARE
PARS
PASCNT

033616
033501
033511
033521
033525
033531
033535
033541
033545
001304

PATCOD
006176
PIRQ
= 177772
PIRQVE= 000240

N_10

30-0CT-78
11:21
PAGE 132
CROSS REFERENCE TABLE -- USER SYMBOLS

66324
6634n
6595

66364

6591
6589
6597
1855
1859
1863
1867
1871
1875
13574

66404
66204
66224
6577
6579
6581
6583
6585
6587
3017

66244
66254
66264
66274
66284
6694
6592

6599

30A(1052)

24184
10734
11674

66384

POPQUE

024246

4908

4930

4952

PROCES
PROG
=
PRTBAD
PRO
=

012364
002000
015134
000000

2131
12214
3670
10904

32564
3523
3698

37314

PR
=
PRS
=
PRG
=
PRS
=
PR6
=
PR7
PS
=
PSW
=
PWRVEC=
QDONE

000100
000140
000200
000240
000300
000340
177776
177776
000024
021212

10924
10934
10944
10954
10964
10974
10704
10714
11624
47454

PREVST

PR1

= 000040

QREGS
QSEEK
QTRANS

QUES
QUAIT

RANWRT
RATIO

006606

RDCHR
ROLIN
RDSEK RDY
=
READ
=
READDR
READHD
RECALT
RECALO
REDAPK
RELBUF
REPAR
RESREG=

021124
021146
021170

033134
021234

006220
001320

2319

2468

25014

SEQ 0130

4979

53114

5314

4790
1819+

4791%
1931%

4811%
1935x

4Bl4x
4860

4872+
4861«

10914

47364
4739
47428

2936
474BH

2337
13664

104410
104411
000005
000200
000017
006656
015372
015340
015344
011076
005046
033441
104413

4330
1802
11880
12330
11934
2502
3640
304
2849
2818
2132
1888
Q233

RESVEC- V00010

V1574

1931

2774

1071
1754+

1731%
1816x

4890

4959

4960

4961

4978

4982

5109

4881
48B4
4887

4903
4915
4937

4904
4916
4939

4907
4918
4940

4909
4927
4950

5258
4929
4951

4931
4953

5264
5056

5278

4950%

5089

5095«

5195

5213s

2335

659

46564
2491

5266

5753

3794
3586

5272
3673

5754
3873

3655

3693

3777

3593

3680

2504

2606

BAS

459'

4esBN

4BIS

4B47

65534
4927%
24064
1877

46554
2786
2411
2398
25284
37894
3632
3778
29314
22074
6614
2291

2821

4898

SO11

5156

RPINIT

RPM1

021122
013134
013136
104412

RPER
RPERRS

o
R3

S D N

RPDA
RPDS

015462
001216
000010
000012

- D000
=
—d
NO

RETRY

RPADR
RPBA
RPCA
RPCS

DO N
=

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.PN
23-0(1-78 08:18

794

804

30A(1052)
3605
1825
6965+
4921«
4830+
5072
6385
4922+
48%1
5199

8.1

11:21
PAGE 133
30-0CT-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

3618

4804

6378
4943

3691

3694

6381
4966+

6388
6383

4878

5004

4897«
5076+«
6388
4944
4833
5201

4903x
5091«
6390
4967+
4835
5203

4915x
5104
6392
6383
4837
6376

5071«

5072«

6370

6376

6378

6381

38094
5168
6397
6387
4923x
5169«
6394
6392
4842
6378
6385

SEQ 0131

5228

6368

6392
4(937x

6397

5177

6400
6397

5027%

6381
6388

4945+
5190+

L4959%
5191«

6400
5069
6385
6390

6388
6392

46574

4789

27654

5071

5028
6376

5033+
6380

6390
6394

5092

5099+
6392
6400

5100
6394

5102
6400

4828

4877

5003

5138

6369

6397
4803

4861

6574
6378
3070
3069«

6381
30724
3071«

3795
5030
3372#
33734
2571

6397
3084

30914

48604
5124
338G
3394
2599

3393
3398«
2773

3397

3182

4565

5045

5047

5070

50804

5754

5114

5125

5128

2725

2727

2728%

2729

2731

5113«

5126«

5216*

2720%
1763

2722«

2723

27694

2639
2634

2648
3223

64954
3232

3243

3760

64944

64924
1703

1815

1820

023024

26184
2724%
6394
5260
5106

6594

26114

002024~

5026+

4972«
5229+

1967

CZRP1CO, RP11 MUDR EXER MA(Y] 1
CZRPIC.PI
23-0CT1-78 08:18
STATHD
STATIN
STATIS
STATPR
STKLMT=
STNDAT
STO
STO
ST02
ST03
STO4
STOS
SUCA
=

032636
001250
004616
007116
177774
025754
023462
023626
023706
023724
023736
023766
000024

2613
13354
2130
1980
10724
2281
5145
5174
5198
5202
5206
5176
11814

SURPO3SUSI
=
SUSU
=
SUWP
=
SVRP11
SWR

020000
004000
002000
000400
023770
001140

SWREG
SWO
Sw00
SwO1
SWO2

000176
000001
000001
000002
000004

SUFU
= 001000
SUOL
= 040000
SURDY = 100000

Sw03

SW04
SWO5
SWO6
SwW07
SW08
SW09
Sw1
Sw10
Sw11
Swi2
Sw13
SW14
SW15
SwZ
Sw3
Sws4
SWS
Swé
Sw?
Sw8

Sw9
SYSTAT

=
=

= 000010

=
=
=

=
-

=
=
=
=
=
=

TBITVE0
TIMEE
TIMER

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

001000
032615

000014
022542
000020
021254

12014
12064
12074

30A(1052)

65174
1742«
21454
25714
2289
51684
51944
52074
52104
5209
5178

30-0CT-78
11:21
PAGE 134
CROSS REFERENCE TABLE =-- USER SYMBOLS

1975

1979«

2757«

3434

3442

57654

52124
5193

5200

5204

2920

52184

4831
5102
5203

5100
5201

5197

12054
12034
12024
12004
4905
12954

3268
4833
4837
4842
3268
5092

3517

4835

5199

4995
1701

5032
1715«

5036
1717

5127
1723«

5181
1736

3331

3408

12494
11254
11154
11148
11134

1723
2331
1125
1124
1123

2780

4174

4213

4236

1My
11104
11094
11084
11074
11064
11244
11054
11044
11034
11024
11014
11004
11234
11224
11214
11204
11194
11184
11174

1121
1120
1119
1118
1117
1116

2482
2321
1977
1896

2989
2463

3015

3183

3733

3724

3768

3331

3731

4949+

4975+

5021x

5096+

2812
3900

11124

11164
1901

11584
5007
12154
L7564

2989
3905

1122

SEQ 0132

3015
4174

1736
2812

3183
6213

3261
4268~

5217
1896

52274
1977

2321

2331

5141

5143«

5171w

3724

3731

3733

3261
3408

3753

65144
50174
3526
4793

4926%

2463

3753

2482

3768

2780

3893

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P11
23-0C7-78 08:18
TIMIO
TIMOUT
TIMPOS
TITLE
TKVEC =
TPVEC =
TRAPVE=
TRK.ER
TRNSWT

013626
001260
013614
033634
000060
000064
000034
001270
021114

3469
13404
3467
1729
17654
11664
11644
13640
%?38

30A(1052)
3498#
4926
36924
664N
1934x

1707«
3874+
g;gg#

D_11
30-0CT-78
11:21
PAGE 135
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0133

4949

4975

2784x

4151x

4152x

1708+
6394
4879

2787«
)
1728
4893

4977«

4980

5005

5018

5023

5024

5152

5173

5175

46504
1795
1929

1796
2009

1801
2011

1885
2015

1886

1900

1901

1905

1919

1921

2713
30N
3210
3946

88
2 37
% 14
12
23
3
4 Zg

2041

2611

2613

2621

2625

3019
3227
4119
4352

3020
3232
46168
4357

3024
3234
4180
4358

3026
3240
4234
4360

3030
3243
4235
4363

3022

3028

46484

TRTVEC= 000014
TYPDS = 104405
TYPE
= 1064601

11594
3014
1729
1922

2629
2943
3045
3752

TYPERR
012120
TYPEST
007230
TYPOC = 104402

TYPON = 104404
TYPOS = 104403

UNSAF
UNTASN
UNTMSG
UNTNOT
UNTOFF
UNTON
WAIT

013602
032557
032505
032535
032514
032525
025562

WwCE
=
WCEER
WwPE
=
WPV
WPVER
WRITE =
WRTCHK=
WRTPK
WRTPK1

000010
014056
000100
100000
014066
000013
000007
006322
006352

3220
1790
1924

2634
2976
3085
3760

2639
2977
3194
3765

2648
2978
3196
3767

2659
2979
3200
3895

2712
2983
3201
3903

2035

2790

2820

2936

4238

4249

4259

4270

4289

4337

31824
2016
1800
L6494
1903

3387
25994
3216

3415
2908
3757

3710
303
3762

3715

3902

4237

L6474

2013

2039

2619

2939

2981

2937
65044
65004

64984

2093

2104

2117

57144

3665

3689

5751
2338

3296

3573

3686

3735

5063

5270

5752

2937

2941

3465
2832
2011
289¢
1911
1909
2001

34864
65084
2037
2910
2868
6502#
2066

12144
3510
12174
12264
3513
11914
1184
2074
2457

3508
35434
3535
3511
35494
2396
2267
24554
2459

WRTPKS4
006576
WRTSEK= 000003

2464
11874

2492
2409

24934
24964
2493

5268

5750

$AUTOB
$8DADR
$8DDAT

001134
001122
001126

12924
12874
;%ng

1740%
34710x
Zggg'

4227
3411«
3628+

4384
3712«
3643+

6371
3644x

6374
3645+

3646+

3647+

3648x

3649+

3650

3713«

637

$8ELL
001206
$8UF
- 000006

13174
2079«
3598+
3948+
2130

3895
2107+«
3685+
3958+
4654

3911
2146
53294
7965

4180
2213
5330
3974«

4377
2219

)
222¢

2235

2269

2277

3283

3301

3578

3582

w(C

WRTPKZ2
WRTPK3

ZROIND

$CHARC
$CKSWR

022732

006550
006560

013132

016260
017234

5034

2462
2461

3310+

50514

24914
2490

3341x

3516

6345

3689

5274
2323
24634

3346x

3350

33694

079

$CRLF

$CyL

PAGE 136
1:21
CROSS REFERENCE TABLE -- USER SYMBOLS

13114
13114

13134
13134

13144
13144

13154
13154

13164
13164

2267
2639%
3794«

2323
2467
5053

2329
2493%

2338
3296

2392
3573

2396
3575

2398
3686

2405
3735

3030

2790

3240

2943
3765

2976
3767

2977

36728

3657+

3676+

3792«

1900

$OBLK

$082D
$DECVL
1V
$DO0AGN

3045

5063«
2035
3200

53264
2611
3210

2344%
3298
5327
2659
3227

2472«

2480+

3304

3589«

1924

4270

4357

3845

45654

2374

AN]

—_—

1959

19634

3899

3911

2112x

2420«

2496~

55454

5350

3627«

3652«

6374

6378

6385

2677«

53454

5346

3055

4531

4539

4544

45494

4251

4271
3414
4367

4384
3709«
4377

3714»

3899«

4537

4543

45504

66894
3905

3935

2695+

53474

[pO2V, 1V, }

—2

338

$OTBL
$ENDAD

3386+«
3982

2554
2563
001106
001110
001230
034012
LA A8

244

000001
000060
020164
000003

_xr

63774

001213

$ERFLG
$ERMAX
$ERROR
$SERRPC
$ERRTB
SERTTL
$FAIR =
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR

1711
13104
13104

1699
13094
13094

SEQ 0134
—_

Hann

001100
000012
000024
$CM3
000012
$CNTLC
020134
$CNTLG
020146
$CNTLU
020141
$COMND- 000002

E_N

30-0CT-78

—_

$CMTAG
$CM1
sCM2

30A(1052)

(NN

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0CT1-78 08:18

538

3911

6400

3903

$OMODE
$OPERC=
$PACK =
$PASS

020153
001154
016506

016510
000034
00002¢
001100

43804

3953

2857+
c055+
2156
2320+
2329+
3911
2390

3013
2280
2306«
2469+
2435
3982
2448

3017
2419«
2307«
2503«
2467«
4289
2455

304 3=
2495«
3006
2504«
5060x
4360
45264

2152+
53334

3000
5334

3003

53424

5343

3877
6357

6369
6400

6376
6402

6378

6380

3690
3577
53554
5353
2535
3532
3506
5352
5358
2741

3809«
3582
5356

2540
3878

017666

4656

$RDSZ =
$READ =
$REG
=
$REGAD
$REGO

000012
000044
000014
001160
001162

$REG?
$REG10
$REG11
$REGZ2
$REG3
$REG4

001164
001202
001204
001166
001170
001172

$REG6
$REG7
$RESRE
$RETRY
$RPBA =
$RPCA =
$RPCS =
$RPDA =
$RPDS =
$RPER =

001176
001200
020454
015560
000076
000100
000072
000102
O
000070

$REGS

wrewax

SRCA

$SAVRE
$5820
$SEC
=
$SETUP=

2456
2489

2458
2860«

2588
53364

53404

5341

5342
3656+

5061«

5062«

53354

5340

6381

6383

6385

6387

6388

6390

3814~
3739

3821
3882

5354#

5355

3884

53564

5357

3508

3637
53504
3511

3520

3523

3526

3529

3535

3665

011642
(011622
011632
011612

3881

5353

3588+
3868

3675«
3908

3790+
3910

6392

wwnxtan

3818

30654

2657
2401

3843
2470%

2471«

2479+

$SI1LO = 000110

2590

2959

>eg?

535

033716

$8294

30674

020416
015564
000072
000146

$SIZ2E

001174

$RPM1 - 000104
SRPWC = 000074

$RPZRO
$RPZR4G
$RPZRS
$RPZR8

SEQ 01

3982

4033«

$RDLIN

SRDO(CT=

TABLE -- USER SYMBOLS

4022«

2303«
2460

6655

wxwnxn

CROSS REFERENCE

F_.1

PAGE 137

40574
4019

000040
000030
000024
001212
020512
017576

SRDDEC=

11:21

4044
4014~

$PASSC=
$PATT(C=
$POS1T=
$PREVA=
SPREVO=
SQUES
SRAND
$RDCHR

000062
000026

30-0CT=78

1705

1707

1709

1711

MSWR
SNULL
$OCNT

30A(1052)

CZRP1CO, RP11 MUDR EXER MACY11
CZRPI1C.P11
23-0(1-78 08:18

53464
53448

5347
5345

3589

3650

3676

3792

3876

3886

53584

5359

1045

1044

3909
3456

3911
3460

1317

1711

3860

3861

3862

3863

3864

3464

3466

3468

3782

3798

3811

3816

27104
4153

4195«
4169

3195
4164

4309
4230

4217

4244

4201

4202~

4205«

4132

4185+«

4187

4193

4215

4231

6241

4253+

3674

3789«
46534

4654

S3324

5333
46554

46564

46574

46584

(313
4316
3500«
017016
000001
020724
000050
001152
001157
001150
021010
021032
000013
000014

$TRFAD
$TSTNM
$TTYIN
$TYPBN$TYPDS
$TYPE
$TYPE(
STYPEX
$TYPOC
$TYPON
$TYPOS
SWRDL =

021044
001102
020122

4151

L1644

2991

53434

SWRDM = 000004
$OF ILL
016507
theRER
$40CAT
034014

5344

3987

2478+

3305

31587+

L6498

46504

W54

4358

432

L3764

30694

3970

6275

2188«
3302
2614

2189
3590
2487+

2190+
3594«
2488+

2220
3681«
3682+

2225
3740
5328#

2236
53354
5329

2278

2395+

12584

12604
3509

3515

1274H

1321
3518
4138
50884

2095
3527

2115
3530

L8228
34

016512
016044
016214
016262
016310
016324
016264
000020

4314

NN
(N -

$TKSRV
$IN
=
$TNPWR
$TOTAL=
$TPB
$TPFLG
$TPS
$TRAP
$TRAP?
$TRK
$TRP

SEQ 0136

4058
12564

2274
3682
5490

2:76
L1274
5530

[

5570

4652

4137
5650

$TKCNT
$TKINT
$TKQEN=
$TKQIN
$TKQOU
$TKQSR
$TKS

2684

2666

6.1
11:21
PAGE 138
30-0CT1-78
CROSS REFERENCE TABLE -- USER SYMBOLS

~NWWN

E 3

B
%

NWQOJ\O
®r
x

$TIME
$7kB

30A(1052)

NNV
NON =0

00—

WOOWNIW

T
T

$TATUS=

=2 NONNIW = SN =N
N=NOW=00ON =00
WWNO = (NN NN

177777

T I

000056
000052

$SKk1
1
$SOF
$STUP
$SUCA
$SVPC
$SWR

CZRP1CO, RP11 MUDR EXER MA(
CZRP1C.P11
23-0(T1-78 0

4384

6647

46134

(ZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0C7-78 08:18

30A(1052)

30-0(C71-78

11:21

CROSS REFERENCE

PAGE

H 11
140

TABLE -- MACRO NAMES

26614
10284
10284
14

2662
3147
1804
11684

26
31

2680

2689

2698

ERROR

1062
3561
3825
14
1#
14
12684
10284
14
14

1829
3567
5073
11684
1168#
10284
1322
3869
11684
11684

327¢
3584

3289
3607

3422
3610

3470
3614

3475
3620

3481
3622

4411
11684

6674
1733

11684
11684

2963
2948

3399
3391

4073

4414

4462

4507
4487

4545
4526

11684

4305

L4649

4550

4652

4654

4655

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SSCMRE
$SCMTM
$$LSCA
SENEWT

$$SET

$$SK]P
.EQUAT
.HEADE
KT11
.SETUP
. SWRH]
LSWRLO

.$ACT1
.SAPTB
.SAPTH

.BAPTY

.BASTA
.SCATr

10634
14
4638
4
4
14
11684
4
2161

1168#

4647
11684
11684
1168#
11684

2165

4648
1697

1253

2310

4223

4294

64318

14
4638#

11684

17114

5763

14
4
14
4
14
1#
14

12684
1268%#
14
14

L6384

14
14
4
1%
4
4
10284

1
iY
1Y J

6056

1168#
11684
11684
11684
11684
11684
1168#

1307

11684
11684
L4647
1168#
1028¢
1028+

6060

4388
6662

1321

1347

4471

4517

2507

2511

1378

3486
3629

3492
3653

3498
3659

4656

4657

4658

1382

1394

3252
4617

3850
4660

LH64

3856

3215

4236

1308

*309

1310

13N

1312

1313

1314

1315

1316

L648

4649

4650

4652

4654

4655

4656

4657

4658

1048

1049

1051

1054

1085

1056

1758
1029

1028#
10284
10464
1028¢

1684
1039
1047
1251

0288

1240

3538
3667

3543
3669

3549
3696

3555
3700

1684

1691
4063
5690

1969
a3
5694

1973
4208

3985
5321

3218

1”

14
18

1270

2314

4114

£~o0—

REPORT

SCOPE
SETPRI
SETTRA
SETUP
SKIP
SLASH
SPACE
STARS

14
14

11684

ESCAPE
GETPR]
GE TSWR
MORETA
MOVREG
MULT
NEWTST
POP
PUSH

ENDCQOM

(VP SNV, |

A
CKCHR
CKNUM
COMMEN

SEQ 0137

5759

CZRP1CO, RP11 MUDR EXER MACY11
CZRP1C.P1
23-0C71-78 08:18
14
1%

10284
1028#4

1268
4552

.SDIV
LSEOP
.$ERRO
.$ERRT

14
14
14
14

1028+

4386

1028#

3854

. SPOWE
.$RAND

14
14

10284

4515

.$RDOC
.$READ

4
1%

10284

4129

. $SAVE
.$SB2D

1284

44669

.$SCOP

1
14
14
14

. $SUPR
.STRAP
.$TYPB
L$TYPD

4
4
14
14

1028#

6660

10284

4615

1028#
10284
1028#

4061
3912

SIMTA
.$0820

.$D820

LJEMULT
. $RDDE

.$R2AZ

.$5B20

.$S12¢E

.STYPE
.$TYPO
.$40CA
1170

ABS.

14
i

14
14
14
14

(034014

ERRORS DETECTED:

10284

30A(1052)

30-0CT=-78

11:21

CROSS REFERENCE

In
141

TABLE =~-= MACRO NAMES

3983

GOO
0

CZRP1C.BIN,CZRP1C.LST/CRF/SOL/NL :TGC=(ZRP1C.SML,CZRPIC P11

RUN-TIME: 15 24 1 SECONDS
RUN-TIME RATIO: 208/42:=4.9
(67 PAGES)
(ORE USED:
34K

PAGE

SEQ 0138