Digital PDFs

AH-9283D-MC

1978

Number of pages unknown

Original

1.6MB

view download

OCR Version

1.4MB

view download

Document:	CZRPCD0 RP11C,RP03 MULTIDRIVE DRAG DEC 1978 bw
Order Number:	AH-9283D-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRPCD0__RP11C,RP03__MULTIDRIVE_DRAG__AH-9283D-MC__DEC_1978_bw.pdf

OCR Text

MULTIDRIVE DRAG

CZRPCDO

AH-9283D-MC

DEC 1

&
MADEINUSA

CZRPCD.PNM

15-JAN-78

MACY1T 30A(1052)

(ZRPCDO, RPITC MULTI-DRIVE

15-JAN-78 12:36

1*2:4 1

PAGE 2

DRIVE

DIAGNOSTIC

.REM X

ICENTIFICATION
PRODUCT CODE:

A(C=-9272D-M(

PRODUCT NAME:

(ZRP(CDO RP11C MULTI

DATE RELEASED:

THE

1-F EBRUARY=1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR :

JOE

STUBBLEBINE

INFORMATION IN THIS DOCUMENT

IS SUBJECT

TO CHANGE WITHOUT NOTICE AND

SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS
THAT MAY APPEAR

THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS AFFILIATED COMPANIES.

(()

1972,1978 BY DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

DIGITAL EQUIPMENT CORPORATION:

UNIBUS
DECTAPE

MASSBUS

SEQ 0001

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P1

15-JAN=-78 12:36

MACY11 30A(1052)

15-JUAN-78

CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1

EQUIFMENT

2.2

STORAGE

2.3

PREL IMINARY PR_GRAMS

3.0

LOADING PROCEDURE

4.0

STARTING PROCEDURE

4.1

CONTROL

4.2

STARTING ADDRESS

4.3

PROGRAM AND/OR OPERATOR A(CTION

5.0

OPERATING PROCEDURE

5.1

OPERATION SWITCH SETTINGS

5.2

INE ABSTRA(T
SUBROUT

6.0

ERRORS

7.0

RESTRICTIONS

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

ERROR INFORMATION

9.0

PROGRAM DESCRIPTION

SWITCH SETTINGS

12:41

PAGE 3

SEQ 0002

MACY11 30A(1052)

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P11

15-JAN-78 12:36

PAGE 4

12:41

15-JUAN~78

ABSTRA(T

THIS PROGRAM WILL TEST UP TO EIGHT RP02/RPO3 DRIVE>
BASICALLY, THE PROGRAM
ON AN RP11C DISK CONTROLLER.
WILL SEEK TO A RANDOM ADDRESS
AND
THEN WRITE
AND
READ

RANDOM DATA.

WHILE DATA IS BEING TRANSFERRED,

OTHER
THE
SEEK OPERATIONS WILL BE IN PROGRESS ON
DRIVES.
THE PURPOSE OF THE TEST IS TO CHECK FOR ANY
INTERACTION ON THE BUS WHILE TRYING TO KEEP ALL
THE
DRIVES BUSY.

REQUIREMENTS

2.1

EQUIPMENT
PDP-11

STANDARD FAMILY PROCESSOR

RP11C DISK CONTROLLER WITH UP TO
DISK DRIVES

EIGHT

RP0O2/RPO3

2.2 STORAGE
4K OF

2.3

STORAGE

IS REQUIRED

TO RUN THIS TEST

PREL IMINARY PROGRAMS

DZRPA
DZRPB

DISKLESS DIAGNOSTIC
DISK RELIABILITY DIAGNOSTIC

LOADING PROCEDURE
USE STANDARD PROCEDURE

STARTING PROCEDURE

6.1

CONTROL SWITCH SETTINGS

SEE 5.1.1

FOR ABS TAPES.

SEQ 0003

15~JAN~-78 12:36

6.2

MACY11 30A(1052)

15-UAN-78

PAGE 5

SEQ 0004

STARTING ADDRESS

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200.

PROGRAM AND/OR OPERATOR ACT.ON

LOAD PROGRAM INTO MEMORY USING ABS LOACER

LOAD ADDRESS 200

SET SWITCHES (SEE SEC.

PRESS

THE PROGRAM WILL LOOP UNTIL STOPPED

5.1.1)

START,

DUE TO THE RANDOM NATURE OF THE PROGRAM THERE

NO MEANINGFULL
PASSCOUNT.
IT
IS RECOMMENDED
THAT THE PROGRAM RUN AT LEAST HALF AN HOUR.
(NOTE:
THE FIRST PASS, A 'QUICK VERIFY' PASS, PERFORMS
EACH OF THE FOUR TEST FUNCTIONS ON EA(CH DRIVE
ONLY ONCE.
THIS IS TO ENSURE THAT THE DRIVES ARE

BASICALLY °‘THERE' AND RUNNING.)

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
AT STARTING ADDRESS 200, THE SETTING OF THE SWITCHES
WILL DETERMINE WHICH UNITS ARE TO BE TESTED.

5.1.1

SWITCH SETTING ARE:

SW<15>=1..... HALF ON ERROR

SW<14>
..., NOT USED
SW<13>=1..... INHIBIT PRINTOUT

SW<12>

..., NOT USED

Sw<11>
... NOT USED
SW<10>=1..... BELL ON ERROR
SW<07> THRU Sw<00>=1..... SELECT UNIT FOR TEST

SW<00> CORRESPONDS TO UNIT 0
Sw<07> CORRESPONDS TO UNIT 7

[ Ten]

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.PN

12:41

5.2

MACY11 30A(1052)

SUBROUT INE ABSTRA(TS

F
12:41

PAGE 6

SEQ 0005

[an
Y an]

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

15-JAN~78

(ZRPCDO, RP11C MULTI-DRIVE

C(ZRPCD.P1T

15-JAN-78 12:36

5.2.1

15-JAN-78

MACY11 30A(1052)

12:41

PAGE 7

SEQ 0006

HLT

THIS ROUTINE

1S ENTERED UPON DETECTION OF AN

ERROR.

IT WILL
TYPE
THE PC OF THE ERROR AND ADD]TIONAL
THIS ROUTINE TESTS FOR, HALT ON
ERROR INFORMATION.
ERROR, INHIBIT TYPEOUTS, AND RINGS THE BELL.

5.2.2

TRAP CAT(CHER

A "' +2""
= "HALT'' SEQUENCE IS REPEATED FROM 0-776
T0
THESE UNEXPECTED TRAPS
CATCH ANY UNEXPECTED TRAPS.
OR INTERRUPTS WILL HALT AT THE VECTOR +2.

6.0

ERRORS

6.1

WHEN ERRORS ARE
ENCOUNTERED,
THE
ADDRESS
OF
THE
ERROR ALONG WITH
THE
CONTENTS OF RPDS, RPER, AND
RPCS ARE TYPED.
ALSO, THE CONTENTS OF THE
SELECTED

CYLINDER,

HEAD

AND

SECTOR

ADDRESS ARE TYPED.

REFERRING TO THE LISTING, ADDITIONAL

INFORMATION CAN

BE
FOUND REGARDING
THE
CAUSE OF THE ERROR IN THE
COMMENT
FIELD.
WHEN
APPROPRIATE,
ADDITIONAL
INFORMATION
IS
TYPED OUT, SUCH AS THE EXPECTED AND
?ECEIVSEIQESULTS OF AN OPERATION.
ALL
INFORMATION
N

ERROR MESSAGE FORMAT
1.

PC=

ADDRESS OF

FAILURE

RPDS=
RPER=
RPCS

(ONTENTS OF
CONTENTS OF
CONTENTS OF

RPDS
RPER
RP(CS

UNIT

UNIT WHICH FAILED

CYLINDER SELECTED CYLINDER

HEAD

SELECTED HEAD

SELECTED SECTOR
SECTOR
EXPECTED EXPECTED DATA
RECEIVED RECEIVED DATA

7.0

RESTRICTIONS

SINCE THIS IS
AN
LOOPING ON ERRORS.

INTERACTION

TEST,

THERE

CZRPCDO, RP11C MULTI-~DRIVE

CZRPCD.PN

15-JAN-78 12:36

MACY11 30A(1052)

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

15-JAN-78

12:41

PAGE 8

DUE TO THE RANDOM NATURE OF THE PROGRAM THERE IS NO
MEANINGFUL
PASS
COUNT.
IT IS RECOMMENDED THAT THE
PROGRAM SHOULD RUN FOR HALF

(SEE NOTE

8.2

AN HOUR.

IN 4.3 FOR EXPLANATION OF Qv PASS)

STACK POINTER

STACK IS INITIALLY SET T0 500.

8.3

ERROR INFORMATION

IF IT IS DESIRED
TO HAVE
THE
ERROR
INFORMATION
OUTPUTTED
TO
THE
PUNCH
INSTEAD OF
THE TELETYPE
CHANGE THE FOLLOWING THREE LOCATIONS.

9.0

LOCATION

FROM

1304
1332
1336

177564
177566
177564

177554
177556
177554

PROGRAM DESCRIPTION

WHEN STARTED THE PROGRAM WILL RESTORE THE HEADS
FOR
EACH
OF
THE
SELECTED
UNITS.
THEN THE FOLLOWING
SEQUENCE IS GONE
THRU
FOR
EACH OF
THE
SELECTED

UNITS.
FIRST,
A RANDOM DISK
SURFACE ADDRESS IS
GENERATED AND A
SEEK
IS
ISSUED.
THEN
A
RANDOM
BUFFER
IS
SELECTED AND FILLED WITH RANDOM DATA.
A
SECTOR IS THEN WRITTEN,
READ BACK
AND
COMPARED.
THIS

SEQUENCE

THEN

LOOPED

UPCN.

DUE

TO THE

DIFFERENCE IN
SEEK
TIMES,
WHICH DEPENDS ON
THE
RANDOM
DJSK
ADDRESS
SELECTED,
ALL
UNITS
ARE
EXERCISED IN A RANDOM SELECTION.
WHILE
DATA
S
BEING TRANSFERRED, SEEK OPERATIONS ARE IN PROGRESS.

SEQ 0007

CZRPCDO, RP11C MULTI-DRIVE
15~JAN-78 12:36
CZRPCD.P11

15-JAN=-78

MACY11 30A(1052)

I
12:41

PAGE 9

SEQ 0008

;COPYRIGHT 1972, 977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
;CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS

000240
000200
000140
000100
000040

000004
000010
000014
000020
000024
000030
000034
177776
177560
177562
177564
177566
177570

177570

000500
100000

040000
020000
010000
004000

RO=%0
R1-21
R2=%2

R3=%3
R& =24

RS5=%5
SP=%6
PC=%7

;STATUS REGISTER (PSW) BIT ASSIGNMENTS

PRI1=40

JVECTOR ADDRESSES

ERRVEC=4
RESVEC=10

TBITVEC=14

I0TVEC=20

PFVEC=24

EMTVEC=30

TRAPVE (=34

JREGISTER ADDRESSES

PSW-177776
TKS=177560
TKB=177562
TPS=177564

TPB 177566

SWR=177570
DISPLAY=177570

JINITIAL STACK POINTER
STKPTR=500

JBIT ASSIGNMENTS
B815=100000
B14=40000
B13=20000
B812=10000
B11=4000

LEVEL
LEVEL
LEVEL
LEVEL
ITY
LEVEL
IOR
;PR
;PRIORITY LEVEL
;PRIORITY LEVEL
;PRIORITY
JPRIORITY
JPRIORITY
;PRIORITY

;ERROR VECTOR
JRESERVED

INST

=SNWNSHSNONN

000001
000002
000004
000010
000020
000340
000300

;GENERAL REGISTER ASSIGNMENTS

V22N
M

000000
000001
000002
000003
000004
000005
000006
000007

VECTOR

;T BIT VECTOR
;10T TRAP VECTOR
;POWER FAIL VECTOR
JEMT VECTOR
;TRAP VECTOR

;PROCESSOR STATUS REGISTER

s KEYBOARD CSR

;ADDR OF KEYBOARD BUFFER
sTELEPRINTER (SR
;TELEPRINTER BUFFER
;CONSOLE SWITCH REGISTER
;CONSOLE DISPLAY REGISTER
;PROGRAM STA(CK POINTER

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

377
378

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

MACY11 30A(1052)

15-JAN-78

1
PAGE 10

SEQ 0009

810=2000
89=1000
B8=400
B87=200
B6=100
B5=40
B4=20
83=10
B2=4
B1=2
80=1

;MEMORY MANAGEMENT REGISTER ASSIGNMENTS

000006
000000

104400
104000

SR0=177572
KIPARQ0=172340
KIPAR1=172342
KIPAR2=172344
KIPAR3=172346
KIPAR4=172350
KIPARS5=172352
KI1PAR6=172354
KIPAR7=172356
K1PDR0O=172300
KIPDR1=172302
KI1PDR2=172304
KI1PDR3=172306
KIPDR4=172310
KI1PDRS5=172312
KIPDR6=172314
KIPDR7=172316
RW=6

uP=00

JINSTRUCTION EQUATES
HLT=TRAP

JHLT

SCOPE=EMT

;SCOPE 1S AN EMT TRAP

;INDEX OF MACROS
.SCOPE
;
.SAVE
.REST
.ERROR
.PRINT
.DUMP
.RAND
.READ
.PACK

;INDEX OF CALLS
SCOPE
;
SAVE

REST

IS A TRAP TO THE ERROR ROUTINE

(ZRPCDO, RPI11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

MACY11 30A("052)

LIRS

433
434
435
436
437
438
439

;

440
441
442
4463
444

15-JAN-78

12:41

PAGE 11

SEQ 0010

LT
PRINT
DUMP
DUMPF
SDuMP
SDUMPF
RAND

READ

PACK

445

446
L7
448
449
450
451

452
453
454

455
456
457
458
459
460

461

462
463
464
465
466
467
468
469
470
4«7
472
473
474
475
476

477
478
479

480
481
482
483
484

485
486
487
4,88

000046
000052
000200

001000
001002

000046
003002

.~46
$ENDAD

000000
000200
012707
001000
000000
000000

0
. 200
MO¥OOO

. 52

000052

002350

ICNT:
LAD:
;SCOPE

#START ,PC

0
0
(EMT) SERVICE ROUTINE

;GO TO START OF

TEST

;CONTAINS PASS COWLNT
;PROGRAM TRACE

;THIS ROUTINE WILL LOOP IF AN ERROR OCCURED AND
;LOOP ON ERROR SWITCH IS SET (BIT 14). IF LOOPING IS INDICATED
;THE CONTENTS OF "LAD'' EQUAL THE LOOP ADDRESS. IN ORDER
;TO LOOP ON ERROR, BIT 14 OF THE SWITCH REGISTER MUST BE SET AND
;LOCATION "ERRFLG'' MUST BE NEGATIVE INDICATING AN ERROR. ONCE THE
;LOOP 1S INITIATED IT WILL CONTINUE UNTIL SWITCH 14 IS CLEARED.

001034

032737
001403
005767
001003
005067
000002
016716
000002

001036
001042
001044

012667
010546
010446

001004
001012
001014
001020
001022
001026
001030

040000

000232

177570

SCOPES: BIT
BEQ
TST

000224

2%:

177746

1%:

000020

BNE
CLR
RTI
MOV
RTI

#B14 ,a4SWR
2$

;LOOP ON ERROR?
JBRANCH [F NO

1%
ERRFLG

JBRANCH [F YES
JRESET ERROR CONDITION

ERRFLG

LAD, (SP)

;1S

THERE AN ERROR?

JEXIT
;MODIFY RETURN ADDRESS
JEXIT

;ROUTINE TO SAVE REGISTERS ON THE STAC(K.
.CALLED BY SAVE MACRO

SAVES:

MOV

MOV
MoV

(SP)+,1%

R5,-(SP)
R4 ,-(SP)

;SAVE RETURN P(C

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P
489

4950
W9
492
493
494
495
496
497
498
499
500

501
502
503

010346
010246
010146
010046
016707
000000

001064
001070
001072
001074
001076
001100
001102
001104
001110

012667
012600
012601
012602
012603
012604
012605
016707

000020

005737

177570

100001

000000

032737
001403
004567
001262
032737
001022
004567
001264
011667
162767
117767

016767
004767
004767
023737
001001
000000
005737
100001

001272

000000
052767
005267
000002
000000
000000
G00000
000000
000007
005015
020075
001276

15-JAN-78
MOV
MOV

001046
001050
001052
001054
001056
001062

000000

MACY11 30A(1052)

MoV
MOV

000000

1%:

MOV
0

12:41

PAGE 12

SEQ 0011

R3,-(SP)
R2,=-(SP)

R1,-(SP)
RO,=(SP)

JRETURN
; CONTAINS RETURN ADDRESS

1$,PC

JROUTINE TO RESTORE REGISTERS SAVED ON THE STACK
;CALLED BY REST MACRO

RESTS:

MOV
MOV

(SP)+,1%
(SP)+,RO

MOV
MOV

(SP)+,R2
(SP)+,R3

MOV

ERROR:
177570

3s:

177570

1%:

000122
000074
000002
000062
000054
000146
003770
000042

000010

(SP)+,RS

TST

a#SWR

BPL

HALT

#8117, a#SWR

BEQ

000046

000006

RING THE BELL?

éER

RS.,PRNTF$

;BRANCH IF NO

BIT

#B13,3#SWR

;SKIP TYPEOUT?

(6) ,HLTAD®
#2 ,HLTADS

:GET ERROR P(+?2
;MODIFY

PC,PRINTR

;TYPE LOCATION WITH LEADING ZEROS

BNE
JSR

JFORCE PRINT THE MESSAGE

2%
R5,PRINTS

:BRANCH IF YES
;PRINT MESSAGE

MOVB
MOV

SHLTADS ,HLTCTS
HLTADS,TTY

JSR

PC .MSG

JSR

2%:

;BRANCH ]F NO

ERRPC

000066
000056
000370

JHALT ON ERROR?

8IT

MOV
SuB

177570
100000

(SP)+ R4

MOV

1$:

000156
020000

(SP)+ ,R1

MOV
18,PC
sRETURN
0
;CONTAINS RETURN ADDR
JERROR SERVICE ROUTINE CALLED BY HLT
;THIS ROUTINE WILL HALT ON ERROR, RING THE BELL, AND
;TRANSFER CONTROL TO A USER SUPPLIED ROUTINE IF SPECIFED

000000

004000

;SAVE RETURN PC

cwP

8NE
HALT

;ARE WE IN ACT11 AUTO MODE?

a#SWR
48

BIS
é?g

#8715 ,ERRFLG
[ RRORS

HALT

;GO TO USER ERROR ROUTINE

Y IV TA

TST
8PL

;SAVE HLT ARGUEMENT

;BRANCH IF NOT
JHALT ON ERROR IF YES

JHALT ON ERROR IN SWR?
;:BRANCH IF NO

;SET ERROR FLAG
JR COUNTER

;UPDATE ETM

ERRFLG: 0O

HLTCTS:
HLTADS:

005015
000

041520

O
O

ERRORS: 0
LASCIZ
BELL:
ERRPC:
L.ASCIZ

:PC OF

ERROR

;ERROR COUNT

<7>
<15><12><15><12>'pPC= "

.EVEN

;THIS ROUTINE WILL PRINT AN ASCIZ MESSAGE.
; THE MESSAGE MUST TERMINATE

IN O

545

546

567
548

001276
001304
001306
001312
001314
001320
001322
001324
001330
001332
001334
001336
001340
001342
001346
001352
001354

032737
001403
062705
000205

001356
001364
001366
001370
001376
0014C9
001402
001410
001412

032737

001424

010446

001416

001426

001432
001434
001436
001440
001446
001450
001454
001456
001462
001464
001470
001472
001474
001476
001502

105737
100375
010546

062716
011505

105715
001002
012605
000205
112537
105737
100375
000766
001406
000207
032737
001405
000207
112767
000402
005067
112767

177564

000002

2%:

177566
177564

TSTB

BNE
MOV
RTS
MOVR

TSTB

BPL
BR
;THIS ROUTINE

12:41

a4 TPS

;WAIT FOR PRINTER

(RS)

;ADJUST RETURN P(
;GET MESSAGE ADDR
;CHECK FOR TERMINATOR

.=
RS5.-(SP)
42, (SP)
(RS) ,RS
2%
(SP) +,RS
RS
(RS)+,a4TPB

#813,a#SWR

s INHIBIT TYPEOUT?
;BRANCH IF NO

177570

PRINTS:

BIT

000001

000140

PRINTA:

MOVB

#1,.PR

000132
177772

000125

CLR
MOVB
MOV
MOV
CLRB
BR
CLRB
BIT

.PR
#-6,.PR+1
R4 ,-(SP)
#.PR+2
R4
(R&)
.PRF
(R&)
#100,.PR

ROL
ROLB
ROL
ROLB
ROL
ROLB
TSTB

TTY
(4)
TTY
(4)
TTY
(4)
(4)

TSTB

.PR

000046
000042

112724
105014
004567

000060

000100

000102

PRINTB:

PTIT:

.PRL:

B8NE

000120
000112

000104

000060
000031

001552

177534

B8R

.PRF:

8EQ
INCB
BEQ

PRINTA
PC

#813, 3#SWR
PRINTB
PC

.+6

.PRF

.+6
.PR
.+6

BISB
INCB

#'0,(4)+
.PR+1

CMP

R4
#.PR+2

BNE

BNE
MOVB
CLRB

JPRINT CHARA(CTER
TILL DONE

.~4
1%
TYPES A LOCATION IN OCTAL

020000

RTS

;GET RETURN ADDR

JWAIT

BIT

BEQ

.PRL

.+6
#'0,(4)+
(4)

JINHIBIT TYPEOUT?
JBRANCH IF NO

JSET ZERO FILL SWITCH
JSKIP
;SUPPRESS LEADING ZEROS
JSET COUNT

;SAVE R4
:SET POINTER TO FJIRST CHARACTER
;CLEAR FIRST BYTE
;ROTATE FIRST BIT
;CLEAR BYTE OF (HAR
;BIT TYPING MODE
:YES SKIP 2 ROTATES
JROTATE BIT
JPACK

INTO C

;IS IT ZERO
sSKIP INC
JSET FILL SWITCH
JCHECK FILL SWITCH
;SKIP BITSET
;MAKE INTO ASCIZ CHAR
s INC_COUNT
;REPEAT
JEMPTY BUFFER
;SKIP IF NOT

.LOAD ONE ZERO
sNULL TERMINATOR

JSR

R5.PRINTS

;PRINT MESSAGE

MOV

(SP)+,R4

JRESTORE R4

.PR+?2

TO FINISH

JRETURN

a#TPS

PRINTR:

RTS

SEQ 0012

JINHIBIT TYPEOUTS?
JBRANCH [F NO
;UPDATE RETURN ADDR

177570

BEQ

1
PAGE 13

#3713, a#SWR

PRNTFS
#2 ,RS
RS

020000

105267
105767
001402
152724
105267
001346

001552
012604

PRINTS: BIT
BEQ
ADD
RTS
PRNTFS: TSTB
BPL
MOV
ADD
MOV
1¢:

001552

001402

177570

000002

012704
105014
000413
105014
032767
001006
006167
106114
006167
106114
006167
106114
105714

022704
001002

001542
001544

020000

15-JAN-78

MACY11 30A(1052)

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD P

601
602

603

604
605
606
607
608
609
610
611
612
613
614
615

616

617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637

001546
001550
001574
001576
001576
001602
001606
001612
001616
001620
001622
001624
001626
001630
001632
001636
001640
001644
001646
001652
001654
001656
001662
001664
001670
001672
001674
001700
001704
001710

000207
000012
000000

G01712
001714
001716
001720
001724

000000
000000
010346
012703
022703
001412
105737
100375
113713
142713

001730
001732
001736
001740
001744
001750
201754
001756
001756
001762
001764
001766
001774
002000
002002
002006
002010
002014
002020
002022

004767
016700
016701
012703
005002
006300

006101
006102
005203
001373
066702
005501
066701
005502
062700

005501
005502

062701
005502
062702
060200
005501
010067
010167
004767
000207

122713

001004

004567
002066
000755
013737
105737
100375
122723
001346
105063
004567
002072
012603

.PR:

TTY:

RANDS:

177234
000106
000100
177771

001057

CLR

ASL
ROL
ROL

AD(

047401

ADD
ADC
ADD
ADD
ADC
MOV
MOV

000006
000014
000006
177154

JSR

RTS

HINUM:

LONUM:
READS:
1%:

002026
002046

2%:

177560

177562
002200

000177
4%:

177314

177777
177256

PC,SAVES

ADD
ADC
ADD
ADC
ADD
ADC

000046

000015

JSR

INC
BNE

000056

177564

177566

3%:

0
0

MoV
MoV

12:41

RTS
.BLKW

MOV
MOV
MOV

1%:

177562

15-JAN-78

MACY1T1 30A(1052)

PAGE 14

SEQ 0013

RO
LONUM,

R
HINUM,
#-7,R3
R
RO
R1
R2
R3
1%

LONUM R2

R1
HINUM,R1

R2
#1057 ,R0O
R1

R2
#47401 ,R1
R2
#6,R2

;SAVE THE REGISTERS

JSET RO WITH LOW
;SE1 R1 WITH HIGH
JSET SHIFT COUNT

JSHIFT RO LEFT AND

JROTATE CARRY INTO R1 AND

;JROTATE (ARRY INTO R2

;CHECK FOR DONE

ADD # TO MAKE X 129
;PROPOGATE

CARRY

;PROPOGATE

CARRY

;PROPOGATE

CARRY

JADD # TO MAKE X 129

;PROPOGATE CARRY

RZ.RO

R1
RO, LONUM
R1,HINUM

PC.RESTS

JRESTORE

R3,-(6)
#INPUTS
,R3

;SAVE R3

THE REGISTERS

2£NPUTS*20,R3

;GET BUFFER ADDR
JBUFFER FULL?

CMP
BEQ
1518
BPL
MovB
B1(B

,
(3)
177562
#200,(3)

BNE

;GET CHAR
;GET RID OF JUNK
;1S IT A RUBOUT?
;SKIP IF NO

R5,.PRINTS

JPRINT MESSAGE

1%
a#TKB,a#TPB
a#zps

;CLEAR BUFFER AND START OVER
;JECHO THE CHAR

JSR
READMS
MOV
TSTB
BPL

BNE
CLRB
JSR
READLS
MOV

a#177560
.4

#177,(3)

JYES..TYPE

:WAIT FOR A CHAR

JWAIT FOR READY

2%
-1(3)

;CHECK FOR RETURN
JLOOP IF NOT RETURN
;JREMOVE THE RETURN

(6)+,R3

;RESTORE R3

#15,(3)+
RS5.PRINTS

sPRINT MESSAGE

CZRPCDO, RPI1C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PI

557
658
659

002024

000207

002026

000020
006477
000012

MACY11

30A(1052)

INPUTS:

READMS:
READLS:

0009312

15-JAN=78
RTS

.BLKW

_ASCIZ
.ASCIZ

12:41

PAGE 15

SEQ 0014

:RETURN

'2'<15><12>
<12>

;TAKE THE CONTENTS OF THE TTY INPUT BUFFER AND
;PACK THEM INTO ONE WORD TO CREATE AN OCTAL NUMBER

002074
002074
002100
002104
002106
002112
002114
002116
002120
002122
002126
002134
002140
002142
002146
002152
002156
002164
002170
002172
002176
002202
002206
002214
002220
002224
002226
002232
002240
002244
002250
002252
002256
002262

004767
005067
005000

105760
001402
005200
000773
005300
004767
016767
004767
000241
006167
006167
006167
056767
004767
000241

000367
006067

006067
056767
004767
000367
000241
006167
056767
004767
000367
000241
006167

006167
006167
006167
056767
000402
062706

002306
002312

004767
000207

002314
002316
002320
002324
002332

00700
10C771

005067
116067

00>300

PACKS:

176736
000242

002026

000166
000212
000154

000176
000172
000166
000162
000124
000146
000142
000136
000132
000074
000120
000112
000106
000050
000674

000066
000062
000056
000052
000046

2%:

1%:

000212

JSR
CLC

ROL
ROL
ROL

BIS
JSR
cLC
SWAB
ROR
ROR
BIS

000132

JSR

SWAB
CLC

ROL

000106

8IS
JSR
SWAB
cLc
ROL
ROL
ROL
ROL

000046
PKEX$:
PKEX1$%:

176552

PACS:

000012

PC,SAVES
NUMS
RO

BIS
B8R
ADD

JSR

;GET OCTAL CHAR
;PA(CK

PK$
PK$
PK$
PK$ ,NUMS
PC.PACS

CHAR

sPACK SECOND CHAR
;GET OCTAL (HAR

PK$

PK$ ,NUMS
PC,PACS
PK$

PK$
PK$ ,NUMS
PC,PACS
PK$
PK$
PK$
PK$
PK$

PK$ ,NUMS
PKEX1$
#2,SP

PC,RESTS

TST

RO
PKEX$
PK$

CLR

FIRST

JGET OCTAL CHAR

RTS

MovB
DEC

;SAVE THE REGISTERS

INPUT$(RO)

MOV

000162

000002

000020
002026

JSR
(LR
CLR
TSTR
BEQ
INC
BR
DEC
JSR

,PK$
(RO)T$
INPU

;PACK

THIRD

JPACK

FOURTH

CHAR

JGET OCTAL CHAR

CHAR

;GET OCTAL CHAR

;PACK FIFTH CHAR

;MODIFY STACK

JRESTORE THE REGISTERS

JEXIT

;GET INPUT (HAR

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.PN

15-JAN-78 12:36

713
;}g

002334
002342

042767
000207

716
717

002344
002346

000000
000000

718

177770

15-JAN=78

MACY11 30A(1052)
000002

BIC
RTS
PK$:
NUMS:

0
O

12:41

#177770,PK$
PC

PAGE

;CLEAR UNWANTED BITS

SEQ 0015

748

749
750
751
752
753
754
755
756

002526
002530
002534

767

002536
002540
002544
002546
002552
002554
002562
002566
002570
002572
002576
002600
002602
002606
002612
002616
002620
002626

769
770
771

002640
002644

757
758
759
760
761
762
763
764
765
766

768

772

773

774

002630
002634

002652
002654
002660

005777
100403

052760
062700
005201
032701
001757
000420
012701

000254
000256
000046

176634
005474

CMP
BEQ
JSR
TITLE
1%:
CLR
AB:
CLR
CLRT
TST

000200

CMP

000042

000001
003214
003224

003216

100000

005474

7'$:

TST

000020

6%:

000010

000001

5%:

177570

2%:
005474

100000

000020

1%:

000400

8%:

001762
003062
003060
100000

004767

032767
005005

005474

000160
003034
000020
000010
003014

TST
BEQ
CLR
CLR
MOV
MovB

4%:

3%:

003022
-

LOOP:

B8M]
BIS
ADD

INC

BIT
BEQ
BR
MoV
LR
BIT
BNE
BIS
ADD
cLc
ROL

BIT
BEQ

RESET
JSR
CLR
CLR
CLR
BIT
BNE
JSR
INC
ADD
BIT

BEQ
(LR
CLR

#STKPTR,SP

#3460, a#PSW
#ERROR,
34

#PR17,36
#SCOPES,
30
#PR17,32

;SET STACK POINTER
;LOCK UP INTERRUPTS
;SETUP ERROR TRAP
;SETUP SCOPE TRAP

;SET UP DISK INTERRUPT VECTOR

#DSKINT ,a#VECTOR

#340,a4STATUS
aNel,ak6b
1%

RS,PRINTS
RO

DEVTBL (RO)
+
(RO)

#128. RO
CLRTAB
k4l
5%
RO
R1
#1,aRPCS
R1,aRPCS1T
aRPDS
6%

JARE WE

IN ACT11 AUTO MODE?

;YES, SKIP TITLE

;PRINT MESSAGE

;CLEAR THE DEVICE TABLE

JUNDER MONITOR CONTROL?
JBRANCH IF NO
;CLEAR MODIFIER

;CLEAR THE CONTROLLER
JSELECT UNIT
;1S UNIT READY?
JBRANCH IF YES
(R0O) sSET UNIT UNAVAILABLE BIT
#B815,DEVTBL
#16. RO
;UPDATE MODIFIER
sJUPDATE UNIT NUMBER
JALL UNITS TESTED?
;BRANCH [F NO

El.u#sun

sTEST

THE

SWITCH REGISTER

2TO DETERMINE WHICH UNITS

IF THE UNIT IS UNAVAI_ABLE
IN THE DEVICE TABLE
15
BIT
JSET

(RO) ;TO TEST.
#815.DEVTBL

#16. -RO

YN MAMMMMMMMmMmMMMMMMMMMmMmIDMm
D e

175420

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MoV

SEQ 0016

~e~

747

005CJ0
005001
012777
110177

177776
175444
175440
175424

START:

e s B
eBnslaaslaslasknaslasinalaalasBur
Eeaw Xas )

744
745
746

002420
002426
002434
002436
002442
002444
002446
002452
002454
002460
002462
002466
002470
002472
002474
002502
002506
002532
002514
002522

000500
000340
001112
000340
001004
000340
005032
000340
000042

PAGE

728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743

012706
012737
012767
012767
012767
012767
012737
012737
023737
0071403
004567
005742
005000
005060
005720
022700
001372
005737
001424

#38,R1
2%
RS ,EXTMEN

JHAVE ALL UNITS BEEN SCANNED?

sNO-BRANCH
sCLEAR THE SYSTEM

;DETERMINE AMOUNT OF (ORE
JINITIALIZE POINTER

#8315 ,DEVTBL (R5)

;1S UNIT AVAILABLE?

PC ,HOME

;DO A HOME SEEK
;UPDATE UNIT

UNIT
#16. RS
#83,UNIT
4%
UNIT
RS

sBRANCH [F

JUPDATE TABLE POINTER
JHAVE ALL UNITS BEEN HOMED?
sNO-BRANCH

726
727

002350
002354
002362
002370
002376
002404
002412

12:41

719
720
721
722
723
7264
725

15-JAN-78

CZRPCDO, RP1'C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

MACY11 30A(1052)

BEQ
RESET

: JSR
$ENDAD
NOP
NOP
NOP
MEXIT1: BR

;THIS ROUTINE

116777

005777

100401
104400
112777

012704
005304
001376
032777
001001
104400

016704
005067
116467

012701
005301

005000
005200

001376
005701
001372

002654
002710

002700

000015
000025

002660

002000

002660

002606
000066
003162
000005

:
HOME

MovB
TST

BM]

5%:
1%:

2%:

000060

7%:

6%:

HLT
MOvB
MoV
DEC
BNE

BIT
BNE
HLT

MOV

CLR

JARE UP & RUNNING.

2%$+10

RS,PRINTS

;1S PASS COMPLETE?
JBRANCH [F NO
JPRINT MESSAGE

a¥4l Rl

;GET RETURN ADDRESS

PC.(R1)

JRETJRN TO MONITOR

LOOP

;LOOP

MEXITI

WILL

SEEK HOME

THE

UNIT,@RPCS?
aRPDS

#15,3RPCS
#25,R4
R4
1%

#810,aRPDS
2%

UNIT R4

ATTNB

[en Yem )

LT LRI EXEXEEEERKXIKEEEKX
X

;GIVES A QUICK INDICATION THAT THE UNITS

sPRINT MESSAGE

#5000,PASSCT
MEXITI

JADDRESS IS IN UNIT.
003014
003022
003026
003030
003032
003040
003044
003046
003050
003056
003C60

.BRANCH IF NO

2%
R5,PRINTS

MES21

ITE
, READD).
;ON EACH DRIVE (SEEK,SEKCK,WR

MOV

2%:

;DISPLAY COUNT

JTEST TO SEE IF THIS IS THE FIRST TIME
;WE HAVE DONE THE FOUR TEST FUNCTIONS

000042

002714

;NO BRANCH
s INCREMENT ITERATION COUNTER

176306

BR
CMP
BNE
JSR

005000

MAIN
PASSCT
PASSCT,a#SWR
#4 PASSCT

JHAVE ALL UNITS BEEN SCANNED?

MOVB
MOV

DEC

ATTN(R4) ,ATTNB
45.R1
R1

CLR
INC
BNE
TST
BNE

RO
RO
7$
R1
~12

176326

;UPDATE TABLE POINTER

#B3,UNIT

P2 P22

BNE
JSR
MES20

JUPDATE UNIT

#16. RS

003012

cmMpP

;PERFORM FUNCTION IN JMPTBL

;BRANCH IF NO

003010

002734

DEVTBL (R5) ,R4
L
(R4)
PC,aJMPTB
UNIT

PACK WHOSE

000404
022767
001013
004567
006243
013701
001405
000005
004711
000240
000240
000240
000720

MoV

;IS THE UNIT AVAILABLE?

JLOAD THE UNIT #

;IS THE UNIT READY?
;BRANCH [F READY
JUNIT IS NOT READY
;DO A HOME

SEEK

JWAIT FOR SEEK TO START

;IESSEEK UNDER WAY SET
;Y

:SEEK UNDERWAY DID NOT SET

002752
002754
002762
002764
002770
002772
002776
003000
003002
003004
003006

177570

q215,DEVTBL(R5)

001004
004567
006213

002754

SEQ 0017

002742
002744
002750

1%:

BIT

BNE
MOV
JSR
INC
ADD
BIT
BEQ
INC

FITTITMI NI

022767

002750
002744
000004

MAIN:

PAGE

032767
001760
005267
016737

005474
003172
002766
000020
000010

005474

;DERTMINE ATTENTION RESPONSE

JBEGINNING OF DELAY

;LOOP TO ALLOW DRIVE
;TIME TO BECOME READY

005267
062705

100000

12:41

032765
001004
016504
004774

15-JAN-78

002662
002670
002672
002676
002702
002706
002712
002720
002722
002726
002734

30A(1052)

775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798

MACY11

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P1

838

003140

005777

844
845

846
847
848
849
850
851

003144
003146
003150
003156

003160
003162
003165
003170

100001
104400
116777
000207

000000
001

010
100

002606

002554

3$:

000004

002560

002

004

020
200

040

ggz

003172
003174
003176
003200

003202
003552
004044
004220

875

876
877
878
879
880
881
882
883

884
885

886

JANY DEVICE STATUS ERRORS?

O
BYTE

;CONTAINS ATTENTION BIT FOR CURRENT UNIT
1,2,4,10,20,40,100,200

ATTNS,aRPDS
PC

JMPTBL: SEEK
SEKCK
WRITE
READD

s NO-BRANCH
;DEVICE STATUS ERROR AFTER HOME (COMMAND
;CLEAR ATTENTION BIT
JEXIT

;SEEK A RANDOM CYL INDER
JSEE IF SEEK IS COMPLETE
JWRITE RANDOM DATA
JREAD AND VERIFY RANDOM DATA

;JTHIS ROUTINE WILL GENERATE A RANDOM (YL INDER
JADDRESS AND ISSUE A SEEK TO IT.
THE FUNCTION
;POINTER IN THE DEVICE TABLE WILL BE UPDATED TO

ggz

868
869
870
871
872
873
874

aRP(CS

BPL
HLT
MovB
RTS

;THE FOLLOWING TABLE.

860
861
862

865
866
867

ATTINB:
ATIN:

;TIME QUT ATTENTION BIT
;DID ATTENTION SET?
JBRANCH [F YES
;DID IT TIME OUT?
JBRANCH IF NO
JATTENTION BIT DID NOT SET

.EVEN
;THIS TABLE DETERMINES WHERE CONTROL WI.L GO FOR ANY
JPARTICULAR UNIT.
THE FIRST WORD OF THE DEVICE TABLE
;1S USED AS A MODIFIER FOR A JSR INDIRECT INTO

852

855
856
857
ggg

4%:

TST

RO
ATTN3,QRPDS
3%
RO
6%

;CHECK FOR THE ATTENTION BIT.

003202
003210
003216

003224
003226
003230
003232
003232
003236
003244

003252

003260
003262
003270
003276
003300
003302
003310
003316

003320
003326

003330

016565
116777
032777
001002
104400
000207

004767
016767
016767

032777

005500
002460
100000

176340
176452
176442

005476
002504
002512

SEEK:

1$:

002436
002432

020000

002456

177000
000625

002412
002404

177400
000312

002372
002364

6%:

026765

002356

005476

7%:

(16765

002346

005500

001410
042767
022767
002755
000407
042767
022767
002745
001741

MOV
MOVR
BIT
BNE
HLT
RTS

DEVTBL+4(RS5) ,DEVTBL+2(R5) ;SET UP CYLINDER FROM ADDRESS
UNIT,aRPCS1
JSELECT THE UNIT
#315,
QRPDS
;UNIT READY?
1%

J YES-BRANCH
JSELECTED UNIT NOT READY
JEXIT

JSR
MOV
MOV

PC,RANDS
LONUM, WORK 1
HINUM, WORK?2

;GENERATE TWO RANDOM NOS.

BEQ
BIC
CMP
BLT
BR
BIC
CMP
BLT

6%
#177000,WORK1
#625 ,WORK1
1%
7%
#177400,WORK
#312 ,WORK1
1%

;BRANCH IF NO

BIT

(MP

BEQ

MoV

#813,3RPDS

;1S THIS AN RP03?
;GENERATE A CYLINDER ADDRESS

;1S NUMBER TOO LARGE?
;BRANCH IF YES

WORK1,DEVTBL+2(R5)
19

WORK1,DEVTBL +4 (R5)

—

839
840
841
32§

000032

INC
8IT
BNE
TST
BNE
HLT

SEQ 0018

]
005200
036777
001003
005700
001367
104400

PAGE 19

DODDODDODDDIDIDDDDDIDIDDODODODODODOVOVOUVDDYTD

003120
003122
003130
003132
003134
003136

NSRS N O B 0 e X 72 3 V2 RV 2 3 72 3 V2 R Va3 V2372 37 X 020 o b o B> o)

831
832
833
834
835
ggg

12:41

15~JAN-78 12:36

15-JAN-78

—

CZRPCD.P11

MACY11 30A(1052)

;SAVE CYLINDER ADDRESS

(ZRPCDO, RP11C MULTI-DRIVE

005502

MOV

002324
002320
002310

MOV
MOV

000010
177740
000023

002272
002266
002260

162767
116767

000014
002244

002250
002241

016765
005065
016704
116467
116777
016577
016577
112777
012704
005304
001376
032777
001001

002234
005506
002214
003162

005504

005265

005474

016765
004767
016767
016767
042767
022767
002003

003442
003450
003454
003460
003466
003474
003502
003510
003516
003522
003524
003526
003534
003536
003540
003544
003550

162767

042767
022767
002003

104400

005265
000207

000011

177466

005500
005504
000011
000025
002000

JSR

BIC
CMP
BGE
SuUB

002302

2%:

BIC

CMP
BGE
SUR
MOVB

3%:

MOV
CLR
MOV
MOVB
MOVB
MOV
MOV
MOVB
MOV
DEC
BNE

177472

002242
002226
002222
002202
4%:

BIT

002202

BNE
HLT

5%:

005474

INC

RTS

;THIS ROUTINE

SEQ 0019

WORK2 ,DEVTBL +6 (R5)
:USE A RANDOM DATA BASE
PC.RANDS
-GENERATE TWO RANDOM NOS.

L ONUM, WORK 1

HINUM, WORK 2
#177760,WORK1
511.wonx1
#8.

,WORK1

#1777640,WORK2

#23,WORK2

:GENERATE A RANDOM SECTOR

;GENERATE A RANDOM TRA(CK

#14 ,WORK?2

WORK?.WORK1+1

:MERGE

TRACK AND SECTOR ADDR

WORK1,DEVTBL+10(RS)

DEVTBL+12(R5)
R4
UNIT,

:STORE RANDOM DISK ADDRESS

:CLEAR TIMEOUT COUNTER

ATTN(R4) ,
ATTNB,
aRPDS

ATINB
:GET
ATIN BIT
:CLEAR ATTIN BIT

#11.3RPCS
#25 .R4

SINITIATE A SEEK

;WAIT FOR SEEK TO START

#310,3RPDS
5¢

;1S THE SEEK UNDERWAY?
: YES-BRANCH

DEVTBL +4 (R5) ,aRPCA
DEVTRL+10(RS) , aRPDA

DEVTBL (RS)

gEVTBL(RS)

:LOAD CYLINDER ADDRESS
“LOAD TRACK AND SECTOR

"SEEK UNDERWAY DID NOT SET
“MODIFY FUNCTION POINTER TO
‘E“??K FOR SEEK COMPLETE
JEX

IS ENTERED AFTER A SEEK HAS BEEN ISSUED.

;1T CHECKS THE ATTENTION FLAG - IF CLEAR IT UPDATES THE

;TIMEOUT COUNTER AND CHECKS IT.
;THE

003552
003560
003564
003572
003600
003602
003606
003614
003616
003620
003622
003624
003632
003640

003642
003644
003646

003652
003656

116777

016704
116467
036777
001011
005265
022765
101002
104400

002116
002110
003162
177362

005506
005000

002142

000425
017704
020465
001440

177330
002000

002066
005500

SEKCK:

177366

005506

002104
002076

MOVB
MOV

MOVB

002136

000437

000207
116777
032777
001402
104400

SEEK FUNCTIONED PROPERLY.

2$:

1%:

5%:

BIT
BNE
INC
CMP
BH1
HLT
BR

RTS

MOVB

BIT
BEQ
HLT
BR
MOV
CMP
BEQ

UNIT,

aRPCS1

UNIT, RS
ATTN(R4) ,LATTNB
ATTNB,aRPDS
1%

SET

IT VERIFIES

[ SELECT UNIT

;DETERMINE ATTENTION BIT
JTEST FOR ATTENTION FLAG
;BRANCH [F SET
:UPDATE TIMEOUT COUNTER
DEVTBL+12(R5)
#5000,DEVTBL+12(R5)
;DID OPERATION TIMEOUT?
;NOT YET-BRANCH
2%
;SEEK TIMED OUT

4%
PC
ATTNB,aRPDS

#810,aRPDS
5%

JEXIT
;CLEAR ATTENTION FLAG
;IS SEEK UNDERWAY CLEAR?
; [F YES-BRANCH

aSUCA,R4

;GET CURRENT CYLENDER ADDRESS

s YES-BRANCH

R4 ,DEVTIBL+4(RS)

;SEEK UNDERWAY DID NOT CLEAR
;DOES

IT MATCH CYLINDER REQUESTED”

mnm

2
PAGE 20

L <<CCCCCc

176226
176340
176330
177760

003336
003344
003350
003356
003364
003372
003400
003402
003410
003416
003424
003426
003434

G
12:41

15-JAN-78

002342

887
888
889
890
891
892
893
894
895
896
897
898
899

30A(1052)

MACY11

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PI

4%:

001762

R4, TTY

BIT

#811,3RPDS

JSR

BEQ
MOvVB
T1STH
BPL
TST

005474

10%:

005474
005474

6%:

042522
042524
044514
020075
051412
042522
051105

e 10)7

BPL

;TYPE LOCATION WITH LEADING ZEROS

108
#15,3RP(S
aRP(S

sBRANCH [F NO
s 1SSUE HOME COMMAND
JWAIT FOR DONE

.=4
QREDS
.=

;SEEK

INCOMPLETE?

JWAIT FOR UNIT READY

CLR

DEVTBL (RS)

;CLEAR FUNCTION POINTER

INC
INC

DEVTBL(R5)
DEVTBL (R5)

;UPDATE FUNCTION POINTER

RTS

052521
020104
042116
000
041525
044507
020075

PC ,PRINTR

JEXIT

MES10:

.ASCIZ

<15><12>'REQUESTED CYLINDER=

MES11:

.ASCIZ

<15><12>°'SUCA REGISTER=

.EVEN
;THIS ROUTINE WILL WRITE A RANDOM SECTOR ON
;A RANDOM TRACK.
THE CYLINDER HAS ALREADY

JBEEN SELECYED BY THE SEEK ROUTINE.

004044
004050
004056
004062

004767
012767
016701
004767

004074
004102
004104
004106

032777
001003

104400
000167

000100

004112
004120
004126

012777
016777
016577
016577
005067
012737
005067
112777
004767
005767

177400
001566
005500
005504
001546
000200
001530
000113
000612
001512

004142
004146
004154
004160
004166
004172

116777

000636
000400
001630
000336
001602
100000

001622

WRITE:

001574
001570

177776

001532

1%:

PC ,RANADR

:GENERATE A RANDOM BUFFER ADDR

PC ,RANDAT
UNIT,aRPCS1T
#815,3RPDS
1%

;GENERATE A RANDOM PATTERN
JSELECT THE UNIT
;1S THE SELECTED UNIT READY
; YES-BRANCH
JSELECTED UNIT NOT READY
;START SEQUENCE OVER

MOV
MOV

#400, WORK
BUFF ,R1

BNE
HLT
JMP

WRTER

JSR
MovB
BIT

001626
001634

001604
001600

JSR

MOV
MOV
MOV
MOV

#-400,aRPW(
;SETUP WORD COUNT REGISTER
BUFF , aRPBA
;SETUP BUS ADDR REGISTER
DEVTBL+4 (RS) ,aRPCA
;SET CYLINDER ADDR
DEVTBL+10(R5) ,aRPDA
;SETUP DISK ADDR.

MoV
CLR
MovB

NPRI& ,a4PSW
INTERR
#113,3RPCS

TST

INTERR

CLR

JSR

O UO22XroomMmMmmMoOCOMm

002010

001766

005015
051505
054503
051105
015
020101
052123
000
004044

DEVIBL+4(RS),TTY
PC,PRINTS
sTYPE LOCATION-SUPRESS ZEROS
R5,PRINTS
;PRINT MESSAGE

000015
001756

MOV
JSR
JSR

MES11

;SUCA AND (YL REQUESTED DID NOT COMPARE
JPRINT MFSSAGE

175660
175436
004000

RS.PRINTS

A NN WNINNDANN

175466
175370

SEQ 0020

004034
004042

005500

PAGE 21

HLT
JSR

MES10

175676

INT

;CLEAR INTERRUPT FLAG

PC,WAIT

;TIMEQUT THE OPERATION

JALLOW INTERRUPT
;CLEAR ERROR FLAG
JINITIATE WRITE WITH INTERRUPT
;ANY ERRORS?

it —d ek —d —od

003772
004000
004006
004014
004021
004026

175410

12:41

bl bl

003660
003662
003666
003670
003676
003702
003706
003710
003714
003720
003726
003730
003736
003742
003744
003750
003752
003756
003760
003764
003770

15-JAN-78

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PI

MACY11 30A(1052)

CZRPCDO,

RPI1C MULTI-DRIVE

CZRPCD.P11
999
1000
1001
1002
1003
1004
1005
1006

15-JAN-78 12:36

004176
004200
004204
004210
004212
004216

001005
005265
005265
000403
005065
000207

15-JAN=78

11 30A(1052)
MACY

005474
005474

WRTER:

005474

I
12:41

PAGE 22

BNE
INC
INC

WRTER
DEVTBL .R5)
DEVTBL (RS)

JBRANCH [F YES
JUPDATE FUNCTION POINTER TO READ

(LR

DEVTBL (R5)

JRESTORE FUNCTION POINTER

RTS

READD
PC

JEXIT

JREAD AND VERIFY THE DATA WRITTEN

004220
004226

004234
004236
004240

004244
004252
004260
004266
004274
004302
004306
004312
004320
004324
004332
004334
004340
004344
004346

004352

004354
004356
004360
004364
004366
004372
004400
004406
004412
004414
004416
004422

116777

032777
001003
104400

001450
100000

000167
012777
016777
062777
016577
016577
005067
005067
112777
004767
032777
001031
016701
016702
005003
062701
022122
001006
005203
022703
001372
000167

000152
177400
001434
001000
005500
005504
001406
001376
000117
000460
040000

016267
016167
004567
006106

177776
177776
174664

005065
000207

005474

104401

001474
001502

READD:

001452
001446
001440
001434
001430

18:

MOVB
BIT
BNE
HLT
JMP

MOV

001366

001352
001346
38:

000400

000024

2%:

;LOAD WORD COUNT REGISTER

INT

;CLEAR INTERRUPT FLAG

INTERR
#117 ,3RPCS
PC,WAIT
#B14 ,3RPCS
RDCNT

MoV
CLR
ADD
CMpP
BNE
INC
CMP
BNE

BUFF ,R1

BUFF ,R2
R3
#1000,R1
(R1)+,(R2)+
2%
R3
#400,R3
3%
RDCNT

;CLEAR ERROR FLAG
JINITIATE READ WITH INTERRUPT
;TIMEOUT THE OPERATION
;ANY HARD ERRORS?
JBRANCH IF YES

;START OF PATTERN BUFFER

; COMPARE DATA
;BRANCH-DATA DID NOT COMPARE
s INCREMENT COUNTER
JHAS BUFFER BEEN SCANNED
sBRANCH-NO

MoV
MOV

-2(R2) ,EXP$
-2(R1) ,RECS

MES12
HLT
CLR
RTS

RS5.PRINTS

;PRINT MESSAGE

+1
DEVTBL (R5)

;DATA DID NOT VERIFY
;INITIATE FUNCTION POINTER
JEXIT

JSR

RDCNT:

#-400,aRPW(C

CLR
MovB
JSR
BIT
BNE

JMP

001070
001064

RDCNT

; YES=BRANCH
JSELECTED UNIT NOT READY

BUF F , aRPBA
;LOAD BUS ADDR REGISTER
#1000, 3aRPBA
;SET CYLINDER ADDR
DEVIBL +4(R5) ,aRPCA
DEVTBL+10(R5) ,aRPDA
;SETUP DISK ADDR.

MOV

001000

JSELECT THE UNIT
;1S THE SELECTED UNIT READY?

MOV
ADD
MOV
MoV

CLR

001400

UNIT,aRP(CS1T

#815 ,aRPDS

. GENERATE A RANDOM PATTERN
004424
004432
004440
004444
004450
004454
004456
004460
004462
004464

016567
016567
016700

016704
012703

005002
006300
006104
006102

005303

0055922
005504
000120
000116
000007

000132
000126

RANDAT: MOV
MOV
MoV
MoV
RANDA1: MOV
CLR

SHIFT:

ASL
ROL
ROL
DEC

DEVTBL+6(RS) ,RAND1
;GET RANDOM BASE
DEVTBL+10(RS) ,RAND?2
RAND1,RO
RANDZ ,R&
#7,R3
JSETUP SHIFT COUNT
R2

RO
R4
R
R3

JSHIFT RO LEFT AND
JROTATE CARRY INTO LSB OF RO INTO R4
;ROTATE CARRY OUT OF R4 INTO R2
;DECREMENT R3

SEQ 0021

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11
1055
1056
1057
1058
1059
1060
1061
1062

004466
004470
004474
004476
004502
004504
004510
004512
004514
004520
004522

001373
066700
005504
066704
005502
062700
005504
005502
062704
005502
062702

060200
005504
010067
010021

005367

001406
010467
010421
005367
001333
000207

15-UAN-78

MACY11 30A(1052)

BNE

ADD
ADC
ADD
ADC
ADD
ADC
ADC
ADD
ADC
ADD
ADD
ADC
MOV
MOV
DEC
BEQ
MOV
MOV
DEC

000070
000064
001057

047401
000006

000026
001134
000014

001120
EXGEN:
:
RAND1
RANDZ:

000000
000000

BNE

RTS

12:41

PAGE 23

SEQ 0022

SHIFT

s CONTINUE LOOP

;PROPOGATE

CARRY

;PROPOGATE

CARRY

RAND1,R0
RANDZ R4
R2
#1057 ,RO

R4
R2
#47401,R4
R?
#6,R2
R2.RO
R4

RO ,RAND1
RO, (R1)+

WORK
EXGEN

R4 ,RAND?2

R4, (R1)+
WORK

RANDA1

;ADD IN # TO MAKE X129

;ADD IN # TO MAKE X129
;ADD LOW CONSTANT

;PROPOGATE

CARRY

AGAIN

JADD HIGH CONSTANT
JREPRIME RO WITH HIGH DIGIT

;STORE DATA IN BUFFER

;STORE DATA [N BUFFER
JFILL ENTIRE BUFFER
JEXIT

0
0

;THIS ROUTINE DETERMINES THE

TOTAL AMOUNT OF AVAJLABLE

APR17 ,4PSW
H#MAXREF
,4
APRI7,6
#17446,SAVE
aSAVE
#157446,SAVE
1%

JLOCKUP PRIORITY LEVEL
;SETUP 10 BUS TRAP

;CORE WITHOUT USING MEMORY MANAGEMENT.
012737
012767
012767
012767
005777
022767
001001
000407
062767
000765

000340
004646
000340
017446
000060
157446

020000

177776
173200
173174
000064

000052
000040

EXTMEN: MOV

:
EXREF

1%:

MOV
MoV
MOV

TST
CMP
BNE
BR
ADD

MAXRF1
#20000, SAVE
EXREF

sSTART WITH 4K
sREFERENCE MEMORY
;JTEST FOR 28K

;BRANCH IF LESS THAN 28K
;SETUP FOR NEXT REFERENCE

JENTER HERE WHEN 10 BUS ERROR OCCURS

33
VS
—

2000
OV~

oed
b —ed
d

QS Wi W

JL
T

b cod e

el
e
P

1097

162767

012767
005067
005737
001403
162767

000205
000000

020000
000006
173120
000042

000030

005670

000002

173122

: SuB
MAXREF
MAXRF 1: MoV
CLR
TST
BtQ
SUB
RTS
1%:

:
SAVE

#20000, SAVE
46,4
6

YL4

1%
#300
, 0.
SAVE
R5

JRESTORE

10 BUS

TRAY

;UNDER MONITOR CONTROL?
;BRANCH IF NO
;ADJUST TOP OF CORE
JEXIT-SAVE=MAXIMUM MEMORY
JHIGHEST AVAILABLE LOCATION

;GENERATE A RANDOM BUF FER ADDRESS
016704
162704
162704

177772
006256
002000

RANADR: MoV

suB
SuB

SAVE R4

#ENDP R4

#2000,R4

;DETERMINE BUFFER SIZE
JALLOW ROOM FOR DATA

004722
004726
004734
004742
004746
004752
004754
004760
004762
004764

145
146

005064
005066

004766
004774
005002

004767
016767
042767
012703
020467

174650
174762
000001
100200

040367
000241
006003
000770
062767
016767

000722

101005

000207

MACY11 30A(1052)

006256
000702

JSR

000746
000740

2%:

000730

15-UAN=78

LONUM, WORK 1
#80, WORK1
#100000,R3

BIC

R3.,WORK1

CMP
BHI

PAGE 24

PC,RANDS

MoV
BIC
MOV

cLC
ROR

000706
000710

12:41

R4, WORK1
1%

SEQ 0023

;GENERATE TWO RANDOM NOS.
;MAKE NUMBER EVEN

;ENSURE THAT THE RANDOM
JADDRESS FITS WITHIN AVAILABLE

JMEMORY

R3
2%
1%:
#ENDP
, WORK 1
WORK 1 ,BUFF
;SAVE BUFFER START ADDR.
RTS
PC
JEXIT
;TIMEOUT THE OCCURANCE OF AN INTERRUPT

BR
ADD
MOV

005004
005006
005010

005014
005016
005020
005022
005024
005030

005000
005200
005767
001005
005700
001372
104400
005267
000207

=)
W

D ard

(=)
~
o
~
n

—h

(%))

2
ESV'S
VB

CLR

000700

INT
1%
RO
2%

1$:

TST
BNE
TST
BNE
HLT
INC
RTS

000660

INC

INTERR
PC

JHAS INTERRUPT OCCURED?
s YES-BRANCH
JHAS OPERATION TIMED OQUT?
sNO-BRANCH
JUNIT TIMED OUT ON READ OR WRITE
;SET ERROR FLAG
JEXIT

THIS ROUTINE
JENTERED UPON A DEVICE INTERRUPT.
JWILL CHECK FOR AND REPORT DEVICE ERRORS

b emd cmd ad wd

S
W= OVONOWVNEWN
=00 oo~

—

P
I
e
o yms W
e
e
N
N

ONONONON
YUY A NV
NN

N
e
B

WAIT:

°%:

e vrd md e

D d

) e

d o

da—b-.—l—l-a—l-—l—[_.—l—l—l—l—‘_&-—l_J—l—l—l—l—d-d_l_‘—l_l_fi—l_l_l_‘-—l_l—d_j—‘—l—l—ld_‘—l—d_&—d—l_‘—l—l_‘daa

l\l\bl\l\wwwwngWWWNNNNNNNNNN—‘—‘—b—-'—‘-—'—‘—-l-l
WN = O V00N WNSHIWNI=O 000NN
WA
S NN 2O0OV0ONOWN

CZRPCDO, RPI1C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P1T

005160
005164
005172
005200

032777

001402
000167
016703
062703
022765
001402
062703
020377
001425
104400
004567
006133
004567
006163
010367
004767
004567
006177
017767
004767
005267
000167
104400

005267
052767
032777
001774

100000
000110
000640
001000
000004

000660

DSKINT: BIT

#815,aRPCS

1%:

BUFF ,R3

005474

001000
000630

3%:

174170

000536
000006
000524
000001
100000

2%:

DSKER:

000522
000536

EXTINT:
1%:

#1000,R3
#4 ,DEVTBL (RS)

#1000,R3

R3.,aRPBA

sWHERE THER ANY ERRORS?
;BRANCH-NO ERRORS
;REPORT ERROR
;IS

THIS A WRITE?

JBRANCH IF

YES

;DID THE BUS ADDR TERMINATE PROPERLY?

; YES-BRANCH

RS.PRINTS

*PRINT MESSAGE

;CONTENTS OF RPBA INCORRECT
:PRINT MESSAGE

mMov

R3,TTY
PC.PRINTR
RS.PRINTS

:TYPE LOCATION WITH LEADING ZEROS
*PRINT MESSAGE

MOV
JSR

aRPBA, TTY

JSR
JSR
MES19

174432

1%
DSKER

RS.PRINTS

JSR
MES18

174452
174230
174144
174270

CMP

BEQ
HLT
JSR

MES13

174162

000566

BEQ
JMP
MOV
ADD
CMP
BEQ
ADD

INC
JMP
HLT
INC
BIS
BIT

8EQ

PC,PRINTR
INTERR
EXTINT

:TYPE LOCATION WITH LEADING ZEROS
"SET ERROR FLAG
:REPORT

INTERRUPT DISK ERROR

INTERR

"SET ERROR FLAG

#815,aRPDS

;IS THE UNIT READY

#80, INT

JNO-WAIT

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PIN

005204
005212
005214

032767
001100
004567
006001
016767
004767
004567
006033
017767
004767
004567

v,
N

o
N

v
nN

W
o

000002

b cD

LN =

b
b b ed

= =

=0V

b ——d aad
wmd el —
D e
d
) vl

NSIASIAS1ASLAS1hN
1,81, 81,0 1,8 1,81, §)

1207
1208
1209
1210

3
3

b
) e cmad e
ek
N b
T

AN NNINDNY N —b b b b

[

005202

b b

)

P e e

)

d o

D D

_a_....l_n_a.a_l_J_A_a_a—l_a_s_..l_l.a._a—b-—l_n.—l_a—-l_a:

WA= OV
NONS W
=00
80?000
wVH
W= SSETRIR SO28BEIRTR mmmm\l\l\lV\l\l\l\l\lNog

1167

005372
005374
005402
005410
005414
005422
005424
005426
005426
005432
005434

005442
005446

005452
005454
005462
005466
005470
005472

006011
017767

004767
004567
006022
017767
004767
004567
006044
016567
004767

004567
006061
005067
116567
016767
004767
004567
006073
116567
016767
004767
032767
001001
000207

004567
006163
016767
004767
004567
006177
016767
004767
000207
000000
000000

MACY1T 30A(1052)

15-JAN=-78

12:41

174042

MSG:

174056

000446
174134
174036

174344

000470

174324

176102
174016

000446
174062

Mov

JSR
JSR

MES2A

MOV
JSR
JSR
MES1A
MOV
JSR
JSR
MES?
MOV
JSR
JSR
MES3
MOV
JSR
JSR
MES4
CLR
MovB
MOV
JSR
JSR
MESS
MOvVB

174304

173776

000412

174042
173756

005500
174034
173736

000340
005505
000326
174002
173704

005504
000300
173754
000001

174264

174244

000332

174212

000304
174164

000030
173710

MOV

JSR

BIT
BNE

173632

2%:

173644
174132

174112

EXP$:

RECS:

BT ,HLTCTS

;TYPE ENTIRE MSG?

UNIT,TTY
PC,PRINTS
RS.PRINTS

;TYPE LOCATION-SUPRESS ZEROS
;PRINT MESSAGE

1%
RS,PRINTS

;BRANCH IF NO
;PRINT MESSAGE

aRPDS,TTY

PC.,PRINTR

RS.PRINTS
ARPER,TTY

PC.PRINTR
RS.PRINTS
BRPCS,TTY

PC.PRINTR

RS.PRINTS

:PRINT MESSAGE

;TYPE LOCATION WITH LEADING ZEROS
:PRINT MESSAGE
;TYPE LOCATION WITH LEADING ZEROS
:PRINT MESSAGE

DEVTIBL+4(RS),TTY
PC.PRINTS
:TYPE LOCATION-SUPRESS ZEROS

R5,.PRINTS

JPRINT MESSAGE

WORK3

DEVTBL+11(RS) ,WORK3

WORK3,TTY
PC.PRINTS

RS.PRINTS

:TYPE LOCATION-SUPRESS ZEROS
:PRINT MESSAGE

DEVTBL+10(R5) ,W0RK3
WORK3,TTY
PC.PRINTS
:TYPE LOCATION-SUPRESS ZEROS
#BO,HLTCTS
;TYPE EXPECTED - RECEIVED?
2%
;BRANCH IF YES

RTS

JSR
MES18

RS.PRINTS

:PRINT MESSAGE

EXPS,TTY
PC.PRINTR
RS.PRINTS

;TYPE LOCATION WITH LEADING ZEROS
;PRINT MESSAGE

MOV

173624

000012
173670

BIT
BNE
JSR
MES1

PAGE 25

JEXIT INTERRUPT

RTI

000002

JSR
JSR
MES19
MoV
JSR
RTS

RECS.,T1Y

SE.PRINTR

;TYPE LOCATION WITH LEADING ZEROS

0
0

;DEVIBL IS A TABLE CONTAINING SLOTS FOR EACH OF EIGHT
;POSSIBLE UNITS.

DURING THE OPERATION OF THE PROGRAM

JR5 IS USED AS A MODIFIER TO POINT INTO THE TABLE TO
EACH UNIT SLOT CONTAINS
JSELECT THE PROPER UNIT.
)
JEIGHT ENTRIES(WORD

SEQ 0024

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:3%6
CZRPCD.P11

1251

1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265

12:4

PAGE 26

;1 FUNCTION POINTER
0=SEEK
:
2=SEEK IN PROGRESS
:

1223

1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

15-UAN-78

MACY11 30A(1052)

;

L(=WR]ITE

6=READ
IF NEGATIVE-UNIT IS NOT TESTED

:
;

:2 CYLINDER FROM ADDRESS~INDICATES PREVIOUS CYLINDER POSITION
:3 CYLINDER TO ADDRESS-ADDRESS OF THE SEEK COMMAND
:4 RANDOM BASE FOR PATTERN GENERATION

:S RANDOM TRACK AND SECTOR ADDRESS
;6 CYLINDER SEEK TIMEOUT COUNTER

;7 SPARE

.8 SPARE

005474

005514
005534
005554
005574
005614

005634
005654

005674
005676
005700
005702
005704
005706
005710
005712
005714
005716

000000
005514
000000
005534
000000
005554
000000
005574
000000
005614
000000
005634
000000
005€54
000000
005674

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

.EVEN

DEVIBL: O

JUNIT O sLOT

UNIT1:

SUNIT 1 SLOT

UNITZ2:

UNIT3:
UNITSG:

UNITS:
UNIT6:

UNIT7:
:RP11

.=DEVTBL+20
O
.=UNIT1+20
O
.~UN]T2+20

.SUNIT3+20
O
.=UNIT4+20

L“UNITS5+20
O

“UNIT6+20
O

.SUNIT7+20

JUNIT 2 SLoT

JUNIT 3 sLoT
SUNIT & SLOT

JUNIT S sLoT
JUNIT6 SLOT

SUNIT 7 sLoT

CONSTANTS~-MEMORY ASSIGNMENTS

UNIT:
0
PASSCT: 0
WORK :
0

:CURRENT UNTI UNDER TEST
:COUNTS EACH PASS THRU 8 UNITS
; TEMPORARY STORAGE AREA

INTERR: 0
0
BUFF :
INT:
0

;INTERRUPT ERROR FLAG
:STARTING ADDRESS OF BUFFER
;INTERRUPT FLAG

WORK1:
WORKZ:
WORK3:

O
0
0

FLAG:

;FLAG WORD

5EQ 0025

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P11
1266
1267

005720

15-JAN-78 12:36
1767°4

MACY11 30A(1052)

15-UAN-78

:DISK 10 REGISTERS
RPCS:
176714

12:41

PAGE 27

;DISK CONTROL REGISTER

SEQ 0026

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD P11

1268
1269

1270

1271
1272
1273
1274

005722
005724
005726
005730
005732
005734
005736
005740

15-JAN-78 12:36

MACY11 30A(1052)
RPCSY1:

176715
176716
176720
176722
176724
176712
176710

RPWC:
RPBA:

15-JAN=-78

12:41

PAGE 28

176715

;DISK WORD COUNT REGISTER
s CURRENT ADDRSS REGISTER
;CYLINDER ADDRESS REGISTER
;DISK ADDRESS REGISTER
JERROR REGISTER
;DRIVE STATUS REGISTER
sCURRENT CYLINDER ADDRESS
s INTERRUPT VECTOR ADDR.
;DISK INTERRUPT STATUS

176716
176720

RPCA:
176722
176724
RPDA:
RPER:
176712
RPDS:
176710
176734
SUCA:
VECTOR=254
STATUS-256

176734

000254
000256

SEQ 0027

JMESSAGES
005742
005750
005756
005764
005772

005015
042103
030520
046125
044522

055103
026060
0414661
044524
042526

050122
051040
046440
042040
005015

TITLE:

.ASCIZ

<15><12>/C2RPCDO, RP11C MULTI DRIVE/<15><12>

052412
000
051012

044516

MES1:

.ASCIZ

<15><12>/UNIT

042520

MESIA:

LASCIZ

<15><12>/RPER= /

051503

MESZ:

LASCIZ

<15><12>/RP(S= /

042120

MESPA:

ASCIZ

<15><12>/RPDS= /

044514
020075

MES3:

LASCIZ

<15><12>/CYLINDER= /

052012
004475
051412
036522
040504
046517
042440
000
041012
042104
044440
042522

040522
000
041505
000040
040524
040520
051122

MES4:

LASCIZ

<15><12>/TRACK= /

MESS:

.ASCIZ

<15><12>/SECTOR= /

MES12:

.ASCIZ

<15><12>/DATA COMPARE

ERROR/

051525
042522
041516
052103

MES13:

L.ASCI]Z

<15><12>/BUS ADDRESS

INCORRECT/

042412
042524

050130
020104

MES18:

.ASCIZ

<15><12>/EXPECTED /

051012
042526

041505
020104

MES19:

LASCIZ

<15><12>/RECEIVED /

042412
044525
051105
040520

042116
045503
043111
051523

MES20:

.AS(CI2

<15><12>/END QUICK VERIFY PASS/

042412
051501

042116
000123

MES21:

.ASCI?

<15><12>/END PASS/

353

D
o) —d
b ad o
b
d =D md e)
e
) e
d
D
D
=

AN LN AN NN U AN N N AN AN (N AN NN NN
=
3
= a2 OO O
ST\ NNV
W =OV
NN WN=2000~N

h =

000040
050122
000
051012
000040
054503
051105

050040

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P11
1324
1325

006256

15-JAN-78 12:36
000000
000001

MACY1T 30A(1052)
ENDP:

15-JAN-78
0
.END

12:41

PAGE 29
;START OF BUFFER AREA

SEQ 0028

CZRPCDO, RP11C MULTI-DRIVE
15-JAN=-78 12:36
CZRPCD.PIN
ATTN

ATINB
BELL
BUFF

B8O

003162

003160
001262
005712

= 000001

B1
=
B10
=
B11
=
812
813
=
B14
=
B1S
=
B2
=
B3
=
B4
=
85
=
B6
=
B7
~
B8
=
B9
=
C
CLRTAB
DEVTBL

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

DISPLA- 177570
DSKER
0C5156
DSKINT
005032

EMTVEC=
ENDP
ERRFLG
ERROR
ERRORS
ERRPC
ERRVEC=
EXGEN
EXPS
EXREF
EXTINT
EXTMEN
FLAG
HINUM
HLT

HLTADS
HLTCTS®
HOME

ICNT
INPUTS
INT
INTERR
I0TVEC=
JMPTBL

000030
006256
001252
001112
001260
001264
000004
004562
005470
004620
005164
004570

005716
001712
104400
001256
001254
003014

V01000
002026
005714
005710
000020
003172

KIPARQO= 172340
KIPAR1= 172342
KIPAR2- 172344

822
821

D
3
PAGE 31
15-JAN=78
12:41
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

8454

515
981

3874
3864
3774
3764
3754
374
3734
3724
3854
384K
3834
3824
3814
3804
3754
3784
3374

7334
7332
907
1001+
3664
1141
726
3564
1109
478
5094
533
519
3514
1071
1035+«
10884
1161
762

12654
607
4134
1132

520+
522+

768
L6664

635
993+
995«
3544
778

3924
3193
3044

SEQ 0029

904
832

926
841

8444

904*

905

926+

1014
1164

1203

1024

1025

1122+

1142

12634

927

935

1009

1139

1165

887+

902+
992
12384

906
1000+
1239

1011

1039

912
952

936

545
1022
745

563

566

875

755

766

775

867

984

771

781

755«
916+
1016

766
929«
1017

775
930
1040~

777
941
1045

865«

946
1046

884

959+
1144

1190

962+
1195

901«
991
1200

890
869

914

932

938

943

986

1163

12624

759
736
745«
915«
1003+

886+
961«

11624
11354
A
480~
722

13244

532

5354

5384
5404

10764
1209
1093

12164

11644
10844

617
1149
521+

5364
8094

636

1018+
998

855«

628+
819

6324
836

874
840

1170

1203

523

5374

1162

6594

1128
1019+

670

1164
1133«

12644
1160+

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

MES?2

006022

MES2A

MES20
MES21
MES3
MES4
MESS
MEXIT1
MSG
N
-

NUMS

PACKS
PACS
PASSCT
PFVEC =
PKEX$
PKEX1$S
PKS

PRINTA
PRINTB
PRINTR
PRINTS
PRINTS
PRIT
PRIZ
PRI3
PRI4

006033

006213
006243
006044
006061
006073
003012
005204
000010

002346

002074
002314
005676
000024
002302
002306
002344

001402
001412
001356
001370
001276
=
=
=
=

000040
000100
000140
000200

1173
1181

873

889

1112

8044
7178

676

682+«

688+

693+

701+

677
783«

683

689

694
793

12574

680+

681«
700~

682

685+

686

687+

688

690~

—-—
—d —
Y e T
X
0o £~ O\
[@ ]V, EV]

006177

006011
003772
004021
006106
006133
006163

633#

k¥ x

MESTO

MESTA
MEST10
MEST1
MES12
MES13
MES18

1091

006001

002662
004646
004654

627+

o~ =

MES1T

MAIN
MAXREF
MAXRF1

482
615
804
782
10974
10984
1287#
12894
9654
9694
1302#
13064
1208
1212
12914
12934
1317#
1322#
12954
1298#
13004
798
11704

001714
002654

4004
401#
4024
4034
(AN
4054
4064
4074
L7
606
773
775#
1085

—

001002

LONUM
LOOP

SEQ 0030

3954
3964
3974
3784
3994

LAD

172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316

WWN

KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR?=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

MACY11

3
E
PAGE 32
12:41
15-JAN-78
30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

1159
1197
654

1179
1202
730
1188

1183

1187

1210

1214

789
1192

795
1198

944
1207

948
121

709
7044

679«
698+
SO
S7T1H
5634
947
5454
1172

994

784

699

951
1175
598
1176

785

701

1184

7084

710=

713w

7164

692+

693

695+

1037

1150

1152

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PN
PRIS

= 000240

PRI6
=
PRI7
=
PRNTFS
PSWw
=
RANADR
RANDAT
RANDA1
RANDS
RAND1
RANDZ2
RDCNT
READD
READLS
READMS
READS
RECS
RESTS
RESVEC=
RPBA
RPCA
RPCS
RPCS1
RPDA
RPDS

000300
000340
001314
177776
004706
004424
004450
001576
004564
004566
004416
004220
002072
002066
001716
005472
001064
000010
005726
005730
005720
005722
005732
005736

RPER
005734
RPWC
005724
RW
= 000006
SAVE
004704
SAVES
001036

SCOPE = 104000
SCOPES 001004
SEEK
003202
SEKCK
003552
SHIFT
004456
SRO
- 177572
START
002350
STATUS- 000256
STKPTR= 000500
SUCA
005740
SWR
= 177570
T
= 000020
TBITVETITLE
TKB
=
TKS
=
TPB
=
TPS
TRAPVE=
TTY

000014
005742
177562
177560
177566
177564
000034
001574

UNIT

005674

UNITT

005514
005534

3440
3,30
34208
514
3604
979
98?2
10494
604H

723
546

721«
11084

725
S4on
994+

646

1036+
4974

1213
629

12174
705

1014x%
991

1015«
1016+

1046«

1012

858
655
634k

3524
990=
906+«
741
%
7! 2%

907*
743
957

813«
809«

992«

810
984

1182
989+
4084
1087«
4864
4154
L76H

12734
1013«

10514

1055

464
727%
3694
940

7204
12774
720
12754

855
856

3914

3654
3,14
353

1084

SEQ 0031

1086

1084+

10454

1075
872
1047
1048
1023
1002
6614
6604

1045+

MACY11 30A(1052)
15-JAN-78 12:41
PAGE 33
CROSS REFERENCE TABLE -=- USER SYMBOLS

1088
605

888

10784

1056

10794

1058
1033
10084

838
866+
1017«
817

1147
12714
908«
924*
12724

1158

12704

954«
983«

955

1020+

1022

1139

1186

12674

1008+

996+
12684

912

927

935+

936

952

1165

841+
1178

867

12744

875

905

1089

1092+

1097+

1102+

11044

1108

509

512

516

529

545

563

566

753

784

6034

946+

950+

1154+

1158+

1174«

1178+

1182+

1186+

781

809

820

866

903

924

925

983

1009

12694

667

724

865#
9244

476

12814

648

558«
549

648«

559

649

580+
1196
769+
1174
1241

582+

584«

1243

1201
771
12564

1209+
773

1213«
779+

\
= 000002
VECTOR= 000254
WAIT

WORK
WORK1
WORKZ
WORK3
WRITE
WRTER

005004

005700
005702
005704
005706
004044
004212

= 000004
l
$ENDAD
002002
- 006260
.

.PR

001550

.PRL

001436
001424

.PRF

PTIT

001464

12484
12504

12524

D
b
d

12444
12464

005554
005574
005614
005634
005654
000000

—

UNIT3
UNIT&
UNITS
UNITE
UNITZ
uP
=

MACY11

3
6
12:41
PAGE 34
15-JAN-78
30A(1052)
(ROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0032

[aV 101 01,0 1,0}
AN
S S
W =2 O NV

CZRPCDO, RPI1C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P11

3384

726+
997
980+
873«

1112+
874
»
1194=

12764
1021
1070+
877+
1113w

887

987

1195«
794
999

460
4594

4614

857

3394

639

12514

569+
576
5774
5734

800#

650

12534
571«
579
593

11264

1074
878

12584

881+

1115

1117+

1196

1200+

890~

895+

882

1121«
896
1201

884

1122

898~

12614

886
12594

889+

899

12604

891+

892

894«

899+

12478

901

10034

Lo3N
6594

4654

830

956

958

5424

550
9734

560
12394

12414

570

587
12434

590
12454

572+«
5844

574

578

588+

589

592«

594

599

6024

527

595

6024

12494

(ZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P1M

COMMEN
DUMP
DUMPF

1
(514
INAST

GETPRI]

ENDCOM
ESCAPE

GE TSWR
LDPDR
MULT
NEWTST
PACK
POP
PRINT

523

950

1154

1158

1182

1186

1209

1213

598

644

654

730

789

795

944

1%
L14
%
14
L5748

¥;

L4648

1184

1188

PUSH
RAND
READ

1
LS54m
{554

888

IRRR

REST
SAVE

L4438
L4428

704
666
1174

1190

REPORT

LL7n

SDUMP
SDUMPF
SETPR]

4524
450#
14

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

1Y
1%
14
14
14
14
14

.DUMP
.EQUAT
.ERROR
.HEADE
KT
.PACK
.PRINT
.RAND
.READ
.REST
. SAVE
.SCOPE
.SETUP
.SWRH]
LSACTT
.$APTB
.SAPTH

LLBA
14
L44H
14
1%
L564
L4450
4534
4544
442N
L42on
Nl4
14
T4
T4
Y
14

SETUP
SKIP
SLASH
STARS
SWRSU

$$ESCA
SENEWT
$ESKIP

SEQ 0033

1%
1%

1176

PRINTF

MACY11 30A(1052)
15-JAN-78 12:41
PAGE 36
CROSS REFERENCE TABLE ==~ MACRO NAMES

946

14
14
14
14
i

1%
14
14

562
506

663
543
604
634

495
484
468

1192

1198

1196

1201

1206

1211

948

1037

1150

1152

1156

1172

(ZRPCDO, RP11(C MULTI-DRIVE

CZRPCD.PN

15-JAN=78 12:36

MACY11 30A(1052)

15-JAN-78

.BCAT(C

.SCMTA

.$D820
.8DIV
.$EOP

1
14
1YJ

.$SREAD

1»

.$0820D

Y J
14
1Y J
1.
1Y;
14
1Y2

.$ERRO
.SERRT
JEMULT
. $POWE
.SRAND
. $RDDE
. $RDOC

1%
1Y4
14
¥ J

.$R2AZ
.$SAVE
.$582D
.$SBcO

1Y]
1]
14
14
14
14
14
14

.$SCOP
.$SIZE
. $SUPR
.STRAP
.$TYPB
.$TYPD
STYPE
.8TYPO

.$60CA
1170

14
1Y2

. ABS.

00626C

000

ERRORS DETECTED:

CZRPCD.BIN,CZRPCD.LST/CRF/SOL/NL
: TOC=CZRP(D.SML,(ZRP(CD.P11

RUN-TIME:

8 9

RUN-TIME RATIO:

(ORE USED:

33k

SECONDS

91/18-5.0

(65 PAGES)

12:41

PAGE 37

CROSS REFERENCE TABLE == MACRO NAMES

Y
YJ

.SAPTY
.BASTA

SEQ 0034