Digital PDFs

AH-9283D-MC

2000

Number of pages unknown

Original

20MB

view download

OCR Version

33MB

view download

Document:	CZRPCD0 RP11C,RP03 MULTIDRIVE DRAG DEC 1978 bw
Order Number:	AH-9283D-MC
Revision:	000
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_gray.pdf

OCR Text

MULTIDRIVE DRAG

CZRPCDO

AH-9283D-MC

DEC 1

&
MADEINUSA

——

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P1

MACY11 30A(1052)

15-JAN=-78 12:36

15-JAN-78

12:41

PAGE 2

.REM X

IDENTIFICATION
PRODUCT CODE:

AC=9272D-MC

PRODUCT NAME:

C(ZRPCDO RP11C MULTI DRIVE DIAGNOSTIC

DATE RELEASED:

THE

1-FEBRUARY=-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

IN 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 DIGITAL EQUIPMENT CORPORATION:

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

SEQ 0001

QCZRPCDO. RP11C MULTI-DRIVE
CZRPCD.P1

15-JAN-78 12:36

MACY11 30A(1052)

15-JAN-78

CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1

EQUIFMENT

2.2

STORAGE

2.3

PREL IMINARY PROGRAMS

3.0

LOADING PROCEDURE

4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.2

STARTING ADDRESS

4.3

PROGRAM AND/OR OPERATOR ACTION

5.0

OPERATING PROCEDURE

5.1

OPERATION SWITCH SETTINGS

5.2

SUBROUTINE ABSTRACT

6.0

ERRORS

7.0

RESTRICTIONS

8.0

MISCELLANEOQUS

8.1

EXECUTION TIME

8.2

STACK POINTER

8.3

ERROR INFORMATION

9.0

PROGRAM DESCRIPTION

12:41

PAGE 3

~SEQ 0002

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P11

15-JAN-78 12:36

MACY11 30A(1052)

PAGE 4

12:41

15-JAN-78

ABSTRACT

THIS PROGRAM WILL TEST UP TO EIGHT RP02/RPO3 DRIVES
ON AN RP11C DISK CONTROLLER.
BASICALLY, THE PROGRAM

WILL SEEK TO A RANDOM ADDRESS AND
THEN WRITE
AND
READ RANDOM DATA.
WHILE DATA IS BEING TRANSFERRED,
SEEK OPERATIONS WILL BE IN PROGRESS ON THE OTHER
DRIVES.
THE PURPOSE OF THE TEST IS TO CHECK FOR ANY

INTERACTION ON THE BUS WHILE TRYING TO KEEP ALL

DRIVES BUSY.

THE

REQUIREMENTS

EQUIPMENT
PDP-11

STANDARD FAMILY PROCESSOR

RP11C DISK CONTROLLER WITH UP TO
DISK DRIVES

EIGHT

RP02/RPQ3

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 FOR ABS TAPES.

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

SEE 5.1.1

'SEQ 0003

CZRPCD.PI

15-JAN-78 12:36

6.2

MACY11 30A(1052)

15-JAN-78

-3

12:41

PAGE 5

STARTING ADDRESS

THE PROGRAM SHOULD ALWAYS BE STARTED AT 200.

4.3

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY USING ABS LOADER

LOAD ADDRESS 200

SET SWITCHES (SEE SEC.

PRESS START.

THE PROGRAM WILL LOOP UNTIL STOPPED

DUE TO THE RANDOM NATURE OF THE PROGRAM THERE IS
NO

THAT

MEANINGFULL

5.1.1)

PASSCOUNT.

THE PROGRAM RUN AT LEAST HALF

IS RECOMMENDED
AN HOUR.

(NOTE:
THE FIRST PASS, A 'QUICK VERIFY' PASS, PERFORMS
EACH OF THE FOUR TEST FUNCTIONS ON EACH 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.

>.1.1

SWITCH SETTING ARE:

SW<15>=1..... HALF ON ERROR
SwW<14>
... NOT USED
SwW<13>=1..... INHIBIT PRINTOUT
SW<12>
..... NOT USED
WYY
e NOT USED
SwW<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

- SEQ 0004

(Tl

CZRPCDO, RP11C MULTI-DRIVE

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

CZRP(D.P11

5.2

MACY11 30A(1052)

INE ABSTRA(TS
SUSROUT

15-JAN-78

F
12:41

PAGE 6

- SEQ 0005

CZRPCDO, RP11C MULTI-DRIVE

C(ZRPCD.P11

15-JAN-78 12:36

5.4.1

MACY11 30A(1052)

12:41

15-JAN-78

PAGE 7

- SEQ 0006

HLT

THIS ROUTINE

IS ENTERED UPON DETECTION OF AN

ERROR.

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

S.8.2

TRAP CATCHER

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

6.0

ERRORS

6.1

WHEN ERRORS ARE

ENCOUNTERED,

RPCS ARE TYPED.

ALSO,

ERROR

ALONG

CYLINDER,

WITH

HEAD

THE

AND

THE

ADDRESS

THE

CONTENTS OF RPDS, RPER, AND

THE CONTENTS OF

SECTOR

THE

SELECTED

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
?ECELVSETQESULTS OF AN OPERATION.
ALL
INFORMATION
L.

ERROR MESSAGE FORMAT
1.

PC=

ADDRESS OF

RPDS=
RPER=
RPCS=

CONTENTS OF RPDS
CONTENTS OF RPER
CONTENTS OF RPCS

UNIT

FAILURE

UNIT WHICH FAILED

CYLINDER SELECTED CYLINDER

HEAD

SELECTED HEAD

SECTOR
SELECTED SECTOR
EXPECTED EXPECTED DATA
RECEIVED RECEIVED DATA

7.0

RESTRICTIONS

SINCE THIS IS

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

AN HOUR.

(SEE NOTE IN 4.3 FOR EXPLANATION OF Qv PASS)

8.2

STACK POINTER

STACK IS INITIALLY SET TO 500.

8.3

ERROR INFORMATION

IT IS

DESIRED

HAVE

THE

ERROR

OUTPUTTED
TO
THE
PUNCH
INSTEAD OF
CHANGE THE FOLLOWING THREE LOCATIONS.
LOCATION

1304

1332
1336

9.0

FROM

177564

177566
177564

INFORMATION

THE TELETYPE

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
1S
SELECTED AND FILLED WITH RANDOM DATA.
A
SECTOR IS THEN WRITTEN,
READ BACK AND COMPARED.
THIS

SEQUENCE

DIFFERENCE IN

RANDOM
DISK
EXERCISED IN A

SEEK

THEN

LOOPED

TIMES,

WHICH

UPCN.

ADDRESS
SELECTED,
RANDOM SELECTION.

DUE

DEPENDS

TO THE

THE

ALL
UNITS
ARE
WHILE
DATA
IS

BEING TRANSFERRED, SEEK OPERATIONS ARE IN PROGRESS.

SEQ 0007

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

CZRPCD.PN

MACY11 30A(1052)

15-JAN-78

I
12:41

1
PAGE 9

' SEQ 0008

sCONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS
;GENERAL REGISTER ASSIGNMENTS
RO=%0

R1=%1
R2=%2
R3=%3
R&4&=%4
R5=%5
SP=%6
PC=%7
(PSW) BIT ASSIGNMENTS

;€ Bl

LEVEL

JPRIORITY LEVEL
;PRIORITY LEVEL
;PRIORITY LEVEL

;PRIORITY LEVEL
PRI1=40

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

sVECTOR ADDRESSES
ERRVE(C=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

000500

JINITIAL STACK POINTER
STKPTR=500

100000

;BIT ASSIGNMENTS
B815=100000

040000
020000
010000
004000

B14=40000
B13=20000
B12=10000
B811=4000

sPRIORITY LEVEL
;PRIORITY LEVEL

—=NOWHNONN

D000

V2NN

:STATUS REGISTER

;ERROR VECTOR
;RESERVED INST VECTOR
;T BIT VECTOR
;10T TRAP VECTOR
;POWER FAIL VECTOR
;EMT VECTOR
:TRAP VECTOR

;PROCESSOR STATUS REGISTER
:KEYBOARD CSR

;ADDR OF KEYBOARD BUFFER
;TELEPRINTER CSR
;TELEPRINTER BUFFER
;CONSOLE SWITCH REGISTER
;CONSOLE DISPLAY REGISTER
;PROGRAM STACK POINTER

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

MACY11 30A(1052)

15-JAN-78

PAGE

810=2000
B89=1000
B8=400
B87=200
B6=100
B5=40
B4=20
B3=10
B2=4

002000
001000
000400
000200

B1=2
B0=1

;MEMORY MANAGEMENT REGISTER ASSIGNMENTS
SR0=177572
KI1PARO=172340
KIPAR1=172342
KIPAR2=172344

KIPAR3=172346

KIPAR4=172350
KIPAR5=172352
KIPAR6=172354
KIPAR7=172356
K1PDR0O=172300
KIPDR1=172302
KIPDR2=172304
KIPDR3=172306
KIPDR4=172310
KIPDR5=172312
KIPDR6=172314
KIPDR7=172316
RW=6

000006
000000

104400

uP=00

;INSTRUCTION EQUATES

104000

HLT=TRAP

JHLT IS A TRAP TO THE ERROR ROUTINE

SCOPE=EMT

;SCOPE IS AN EMT TRAP

; INDEX OF MACROS
.SCOPE
3
.SAVE
:

2
;

.REST
.ERROR

:
2

.DUMP
.RAND
.READ
.PACK

.
.

.PRINT

;INDEX OF CALLS
SCOPE
2
SAVE

REST

'SEQ 0009

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

15-JAN-78

MACY11 30A(7052)
s
*

433
434
435
436
437
438
439
440
[y
442
443

H
:
H
:
>

K
12:41

1
PAGE 11

SEQ 0010

HLT
PRINT

DUMP
DUMPF
SDUMP
SDUMPF
RAND

READ
PACK

464

445

446

47
448
449
450
451

452
453

454
455
456
457
458
459
460
461
462
463

000046
000052
000200
001000
001002

000046
003002
000052
000000
000200
012707
001000
000000
000000

001004
001012
001014
001020
001022
001026
001030
001034

032737
001403
005767

001036
001042
001044

012667
010546
010446

.=200

002350

MOV

ICNT:

LAD:

#START ,PC

;GO TO START OF TEST
;CONTAINS PASS COUNT
;PROGRAM TRACE

;SCOPE (EMT) SERVICE ROUTINE
;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 IS INITIATED IT WILL CONTINUE UNTIL SWITCH 14 IS CLEARED.

040000

000232

177570

SCOPES$: BIT
BEQ

;LOOP ON ERROR?
sBRANCH IF NO

1%
ERRFLG

sBRANCH IF YES
:2§§$T ERROR CONDITION

MOV
RTI

LAD, (SP)

sMODIFY RETURN ADDRESS
SEXIT

MOV
MOV
MOV

(SP)+,1%
R5,=(SP)
R4 ,-(SP)

TST

000224

2%:

177746

1%:

000020

#B814 ,a#SWR
2%

BNE
g%?

ERRFLG

;1S THERE AN ERROR?

;ROUTINE TO SAVE REGISTERS ON THE STACK.
. CALLED BY SAVE MACRO

SAVES:

;SAVE RETURN PC

G
| Ci

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

490
491
492
493
L4
495
496
497
498
499
500

501
502
503

001046
001050
001052
001054
001056
001062

MACY11 30A(1052)

MOV
MOV

010346
010246
010146
010046

016707
000000

012667
012600
012601

012602
012603
012604
012605
016707

15-JAN=-78

000000

1%:

MOV
MOV
MOV

-3

12:41

PAGE 12

R3,-(SP)
R2,=(SP)
R1,=(SP)
RO,=(SP)
18.PC

sJRETURN
;CONTAINS RETURN ADDRESS

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

RESTS:

000020

MOV
MOV
MOV
MOV

MOV

000000

1%:

MOV
MOV
0

(SP)+,1%
(SP)+,RO
(SP) +,R1
(SP)+,R2
(SP)+,R3
(SP) +,R4
(SP)+,R5
1%.PC

;SAVE RETURN PC

;RETURN

;CONTAINS RETURN ADDR

;ERROR SERVICE ROUTINE CALLED BY HLT

;THIS ROUTINE WILL HALT ON ERROR, RING THE BELL, AND
;TRANSFER CONTROL TO A USER SUPPLIED ROUTINE IF SPECIFIED

177570

004000

177570

ERROR:

TST
E:tr

a#SWR
3%

;HALT ON ERROR?
;BRANCH IF NO

3$:

BIT

#B811,34SWR

;JRING THE BELL?

égRL

R5,PRNTF$

;FORCE PRINT THE MESSAGE

000156
020000

177570

1$:

MOV
SuB

000046

2%:

177570
100000

BIT
BNE

ERRPC

000066
000056
000370

000010

JSR

000122

003770
000042

BEQ

000006

4%:

MOVB
MOV
JSR
JSR

CwP

BNE
HALT

#B13,a4SWR
2%

;SKIP TYPEOUT?
;BRANCH IF YES

(6) ,HLTADS
#2 ,HLTADS
aHLTADS ,HLTCTS

;GET ERROR P(C+?2
;MODIFY
;SAVE HLT ARGUEMENT

R5,.PRINTS

HLTADS ,TTY
PC,PRINTR

PC,MSG

anL2 , an4b
.+

TST
EitT

a#SWR
4%

BIS

#B15 ,ERRFLG

é?g

;BRANCH IF NO

ERRORS

;PRINT MESSAGE

;TYPE LOCATION WITH LEADING ZEROS

;GO TO USER ERROR ROUTINE

;ARE WE IN ACT11 AUTO MODE?

sBRANCH IF NOT
sHALT ON ERROR IF YES

sHALT ON ERROR IN SWR?
sBRANCH IF NO

;SET ERROR FLAG

;UPDATE FTM JR COUNTER

ERRFLG: 0

HLTCTS: O
HLTADS: 0O

00000
005015
020075
001276

005015
000

041520

ERRORS: 0
LASCIZ
BELL:
ERRPC:
.ASCIZ

;PC OF ERROR

;ERROR COUNT

<7>
<15><12><15><12>'P(C= "'

.EVEN
sTHIS ROUTINE WILL PRINT AN ASCIZ MESSAGE.

;THE MESSAGE MUST TERMINATE IN O

SEQ 0011

lCi

CZRPCDO, RP11C_MULTI-DRIVE
15-JAN-78 12:36
| CZRPCD.P11

545

546

547

001276
001304
001306
001312
001314
001320

032737

020000

MACY11 30A(1052)
177570

000002
1%:

2%:

177566
177564

RTS

BPL
MOV
ADD
MOV

=4
RS5,=(SP)
#2,(SP)
(R5) ,RS

BEQ
ADD

PRNTFS$:

TSTB

BNE
MOV
RTS
MOVB

TSTB

177570

PRINTR: BIT

020000

177570

PRINTS:

000001

000140

RTS
PRINTA: MOVB

177772

000125

001552

000100

000102

BEQ

000060
000031
001552
000060
177534

BEQ

BIT

000112

000046
000042

RTS

BIT

BR
PRINTB: CLR
MOVB
MOV
SEEY:
MOV
CLRB
BR
CLRB
.PRL:

000120

000104

1
PAGE 13

:INHIBIT TYPEOUTS?
;BRANCH IF NO
JUPDATE RETURN ADDR

a#TPS

sWAIT FOR PRINTER TO FINISH

(RS)

sADJUST RETURN PC
;GET MESSAGE ADDR
;CHECK FOR TERMINATOR

2%
+ ,RS
(SP)
RS
(RS)+,a#TPB

;GET RETURN ADDR
JRETURN

sPRINT CHARACTER

a#TPS

JWAIT TILL DONE

#813,a#SWR

s INHIBIT TYPEOUT?
;BRANCH IF NO

.~4
BPL
1%
BR
;THIS ROUTINE TYPES A LOCATION IN OCTAL

020000

000132

12:41

#3813, a#SWR
PRNTFS$
#2.,RS
RS

PRINTS: BIT

000002
177564

15-JAN-78

:
PRF

BNE
ROL
ROLB
ROL
ROLB
ROL

ROLB
TSTB
BEQ
INCB

PRINTA
PC

#813,3#SWR
PRINTB
PC

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

#100,.PR
.PRF
TTY
(4)
TTY
(4)

;INHIBIT TYPEOUT?
;BRANCH IF NO

:gE}PZERO FILL SWITCH

:SUPPRESS LEADING ZEROS
sSET COUNT
:SAVE R4
;SET POINTER TO FIRST CHARACTER
;CLEAR FIRST BYTE

;ROTATE FIRST BIT
;CLEAR BYTE OF CHAR

;BIT TYPING MODE
:YES SKIP 2 ROTATES
;ROTATE BIT INTO C

sPACK IT

TTY

(4)
(4)
.+6
.PR

BISB
INCB

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

CMP

R4
#.PR+2

MOVB
CLRB

#'0,(4)+
(4)

;1S IT ZERO
;SKIP INC
;SET FILL SWITCH
sCHECK FILL SWITCH
;SKIP BITSET
sMAKE INTO ASCIZ CHAR
s INC_COUNT
;REPEAT
;EMPTY BUFFER
:SKIP IF NOT
.LOAD ONE ZERO
sNULL TERMINATOR

(SP)+ ,R4

;RESTORE R4

TSTB

BEQ
BNE

JSR
.PR+2

MOV

.PR

.+6

.PRL

RS,PRINTS

;PRINT MESSAGE

SEQ 0012

CZRPCDO, RP1IC MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P17

601
602
603
604
605
606
607
608

001546
001550
001574
001576
001576
001602
001606
001612

000207
000012
000000

004767
016700
016701
012703
005002
006300
006101

.PR:

177234
000106
000100
177771

005502

062700
005501
005502
062701
005502
062702
060200
005501
010067
010167

N
12:41

1
PAGE 14

SEQ 0013

RTS

.BLKW

TTY:
RANDS:

1%:

ASL
ROL
ROL

sSHIFT RO LEFT AND

ADD
ADC
ADD
ADC
ADD
ADC
ADC
ADD
AD(
ADD
ADD
ADC
MOV
MOV

;ADD # TO MAKE X 129

006102

005203
001373
066702
005501
066701

15-JAN-78

MACY11 30A(1052)

;SAVE THE REGISTERS
JSET RO WITH LOW
;SET R1 WITH HIGH
;SET SHIFT COUNT

JSR
MOV
MOV
MOV
CLR

;JROTATE CARRY INTO R1 AND
sROTATE CARRY INTO R2
;CHECK FOR DONE

INC
BNE

000056
000046
001057

047401
000006
000014
000006
177154

JSR

RTS

#1057 ,RO
R1

R2
#47401,R1
R2
#6.R2
R2.RO
R1
RO, LONUM
R1,HINUM
PC.RESTS
PC

;PROPOGATE

CARRY

;PROPOGATE

CARRY

;ADD # TO MAKE X 129
;PROPOGATE CARRY

;PROPOGATE CARRY

sRESTORE

THE REGISTERS

HINUM:

LONUM:
READS:
1%:

R3,-(6)
#INPUTS ,R3
#INPUT$+20,R3
4$

;SAVE R3

#200, (3)
#177.(3)
3$

177562,
(3)

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

RS,PRINTS

;PRINT MESSAGE

1%
ANTKB,
N TPB
a#zps

;CLEAR BUFFER AND START OVER
;ECHO THE CHAR

000015

#15,(3)+

177777
177256

2$
-1(3)

RS,PRINTS

;CHECK FOR RETURN
;LOOP IF NOT RETURN
sREMOVE THE RETURN
;PRINT MESSAGE

(6)+,R3

;RESTORE R3

002026
002046

2%:

axlrrsbo

177560
177562

000200
000177
4%:

177314

177562
177564

656

002022

012603

177566

3%:

;GET BUFFER ADDR
sBUFFER FULL?
s VES..TYPE 7
;WAIT FOR A CHAR

;WAIT FOR READY

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

002024

000207

002026
002066
002072

000020
006477
000012

MACY11 30A(1052)

INPUTS:

READMS:
READLS:

000012

15-JAN-78

B
12:41

RTS

.BLKW_

20
'?'<15><12>
<12>

.ASCIZ
.ASCIZ

PAGE 15
JRETURN

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

176736
000242

2%:

002026

000166
000212
000154

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

000066
000062
000056
000052
000046

1%:

TSTB

BEQ
INC
BR
DEC
JSR
CLC
ROL
ROL
ROL

BIS

000162

JSR
cLc

SWAB

ROR
ROR
BIS
JSR
SWAB
CLC
ROL

000132

BIS
JSR
SWAB

000106

cLc
ROL
ROL
ROL
ROL

;SAVE THE REGISTERS

INPUT$ (RO)

1%
RO
2%

RO
PC,PACS
PK$ . ,NUM$
PC,PACS
PK$
PK$
PK$

PK$ ,NUM$

PC.PACS

;GET OCTAL CHAR
;sPACK FIRST CHAR

;GET OCTAL CHAR

;PACK SECOND CHAR
;GET OCTAL CHAR

PK$

PK$
PK$
PK$ ,NUM$
PC,PACS
PK$
PK$

PK$ ,NUM$
PC,PACS
PK$
PK$
PK$
PK$
PK$

;PACK THIRD CHAR

;GET OCTAL CHAR

;PACK FOURTH CHAR

;GET OCTAL CHAR

#2,SP

;MODIFY STACK

JSR

PC,RESTS

;RESTORE THE REGISTERS

TST
BMI
CLR

RO
PKEX$
PK$

DEC

RTS

000012

NUM$

;PACK FIFTH CHAR

PKEX$:
ADD
PKEX1$:

PACS:

PC,SAVES

PK$ ,NUMS
PKEX1$

BIS
BR

000046

176552

005300

CLR
CLR

MOV
JSR

000212

000002

000020
002026

JSR

mMovB

INPUTS$(RO) ,PK$

JEXIT

;GET INPUT CHAR

SEQ 0014

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P1
713
714
715
716

717
718

15-JAN-78 12:36

002334
002342

042767
000207

002344
002346

000000
000000

177770

MACY11 30A(1052)
000002

15-JAN=-78
BIC

RTS

PK$:

NUM$ :

0
0

¢
12:41

#177770,PK$

PAGE

;CLEAR UNWANTED BITS

SEQ 0015

100000

005474

TST

6%:

000010
000001

5%:

177570

2%:
005474

1%:

MOV
CLR
BIT

BIS
ADD
CLC
ROL

#16. .R0O
R1

RS ,EXTMEN
UNIT

4%:

JSR
CLR
CLR
CLR
BIT

3%:

JSR
INC

003022
LOOP:

RESET

ADD

BIT
BEQ
CLR
CLR

PASSCT

;SET BIT 15 IN THE DEVICE TABLE
JHAVE ALL UNITS BEEN SCANNED?
sNO-BRANCH
sCLEAR THE SYSTEM
;DETERMINE AMOUNT OF CORE
;INITIALIZE POINTER

(RS) ;1S UNIT AVAILABLE?
#815,DEVTBL
3%
sBRANCH IF NO
PC ,HOME
;DO A HOME SEEK
UNIT
sUPDATE UNIT
#16..R5

#B83,UNIT
4%
UNIT
RS

sTEST THE SWITCH REGISTER

2TO DETERMINE WHICH UNITS
(R0O) ;TO TEST. IF THE UNIT IS UNAVAILABLE
#815,DEVTBL
1%

#88 ,R1
2%

8%:

005474

INC
BIT
BEQ

;CLEAR THE CONTROLLER
sSELECT UNIT
;IS UNIT READY?
;BRANCH IF YES
(R0O) sSET UNIT UNAVAILABLE BIT
#815,DEVTBL
#16. RO
;UPDATE MODIFIER
;UPDATE UNIT NUMBER
JALL UNITS TESTED?
;BRANCH IF NO
#1,aRPCS
R1,aRPCS1
aRPDS
6%

BIT
BEQ

000400

001762

ADD

JUNDER MONITOR CONTROL?
sBRANCH IF NO
;CLEAR MODIFIER

Y MMMMMMMmMmMmMMmMMmMmMMmMMMMmMmMmODm
D e

003216

CLR

;CLEAR THE DEVICE TABLE

12T0000000000000
00200 0 il Y

CLRTAB
ané?

;PRINT MESSAGE

DEVTBL (RO)
+
(RO)

sARE WE IN ACT11 AUTO MODE?
:YES, SKIP TITLE

;SET UP DISK INTERRUPT VECTOR

SEQ 0016

RS,PRINTS

000001
003214
003224

003014

;SETUP SCOPE TRAP

#DSKINT ,@a#VECTOR
#3540, a4STATUS
?:42,3#46

000042

100000
000020

#SCOPES, 30

#PRI7,32

000200

000020

;SET STACK POINTER
sLOCK UP INTERRUPTS
:SETUP ERROR TRAP

#PRI7,
36

1%:
CLRTAB:

#340, a#PSW
#ERROR, 34

#STKPTR,
SP

START:

176634

005474

PAGE 17

000
005032
000340
000042

177776
175444
175440
175424
175420
000254
000256
000046

012706
012737
012767
012767
012767
012767
012737
012737
023737
001403
004567
005742
005000
005060

12:41

;UPDATE TABLE POINTER

JHAVE ALL UNITS BEEN HOMED?
sNO-BRANCH

002350
002354
002362
002370

15-JAN-78

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

MACY11 30A(1052)

002754

BEQ
INC
MOV

177570

002734

CMP

176326

005000

INC

ADD
BIT

2%:

176306

#4 PASSCT

116777

005777

100401
104400
112777

012704
005304
001376

032777

002700

000015
000025

002660

002000

002660

:
HOME

5%:
1%:

000005

003104

003106
003110
003112
003114
003116

000060

a#62 R1
MEXIT1

sGET RETURN ADDRESS

PC.(R1)

JRETUURN TO MONITOR

LOOP

;LOOP

005701
001372

MOvB
TST
BMI
HLT

MOvB

MOV
DEC
BNE

HLT
MOV

CLR

MOvVB
MOV
DEC

7%:

6%:

;BRANCH IF NO

MOV
BEQ

BIT
BNE

2%:

;ON EACH DRIVE (SEEK,SEKCK,WRITE,READD).

2%$+10
#5000,PASSCT
MEXIT1
RS5,PRINTS

RESET
: JSR
$ENDAD
NOP
NOP
NOP
MEXIT1: BR

002654
002710

sWE HAVE DONE THE FOUR TEST FUNCTIONS

BR
CMP
BNE
JSR

;THIS ROUTINE WILL SEEK HOME
;ADDRESS IS IN UNIT.

003014
003022

s INCREMENT ITERATION COUNTER
;DISPLAY COUNT
;TEST TO SEE IF THIS IS THE FIRST TIME

2%
R5,PRINTS

MES21

000042

sNO BRANCH

MAIN
PASSCT
PASSCT ,a#SWR

BNE
JSR

MES20

002714

(RS) ;1S THE UNIT AVAILABLE?
#815,DEVTBL
1%
sBRANCH IF NO
(R5) ,R4
DEVTBL
(R4)
;PERFORM FUNCTION IN JMPTBL
PC,aJMPTBL
UNIT
sUPDATE UNIT
#16..R5
;UPDATE TABLE POINTER
#B3 ,UNIT
JHAVE ALL UNITS BEEN SCANNED?

CLR
INC
BNE
TST

BNE

;PRINT MESSAGE

JGIVES A QUICK INDICATION THAT THE UNITS
;ARE UP & RUNNING.
;1S PASS COMPLETE?
;BRANCH IF NO
sPRINT MESSAGE

THE PACK WHOSE

UNIT,aRPCS1
aRPDS

#15,aRPCS
R4
1%

#B10,aRPDS
2%

UNIT, R4

ATTNB

ATTN(R4) ,ATTNB
#5.R1
R1

RO
RO
7$
R1
=12

;LOAD THE UNIT #

;1S THE UNIT READY?
;BRANCH IF READY
JUNIT IS NOT READY
;DO A HOME SEEK
;WAIT FOR SEEK TO START

IE SEEK UNDER WAY SET

:SEEK UNDERWAY DID NOT SET

lon Yan

003010
003012

000004

1%:

BIT
BNE
MOV
JSR

SEQ 0017

TTITITI T TMY PP PR PR P22 P2 P2 22T R RTRTRTRRTRRIBICIrIr XXX EXEXEREXERERKERERIERIER»TM

002776

002750
002744

MAIN:

002770

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

005474
003172
002766
000020
000010

005474

PAGE 18

;DERTMINE ATTENTION RESPONSE

;BEGINNING OF DELAY

;LOOP TO ALLOW DRIVE
;TIME TO BECOME READY

001004
004567
006213

100000

032765
001004
016504
004774
005267
062705
032767
001760
005267
016737
022767

E
12:41

vea

002662
002670
002672
002676

15-JAN-78

-u

775

MACY11 30A(1052)

e
s
.

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

003140
003144
003146
003150
003156

005777

003160
003162
003165
003170

000000
001
010

100001
104400
116777

000207

100

3%:

002554
000004

002
020
200

002560

004

040

TST

sTIME OUT ATTENTION BIT
;DID ATTENTION SET?
;BRANCH IF YES

aRP(S

JANY DEVICE STATUS ERRORS?

RO
6%

;DID IT TIME OUT?
sBRANCH IF NO
SJATTENTION BIT DID NOT SET

4%:

BPL
HLT
MOVB

ATTNB:
ATTN:

0
BYTE

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

RTS

ATTNS,aRPDS
PC

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

.EVEN
;THIS TABLE DETERMINES WHERE CONTROL WILL GO FOR ANY
;PARTICULAR UNIT.
THE FIRST WORD OF THE DEVICE TABLE

;1S USED AS A MODIFIER FOR A JSR INDIRECT INTO
;THE FOLLOWING TABLE.

;SEEK A RANDOM CYL INDER
;SEE IF SEEK IS COMPLETE

JMPTBL: SEEK
SEKCK

003202
003552
004044
004220

;WRITE RANDOM DATA
JREAD AND VERIFY RANDOM DATA

WRITE
READD

;THIS ROUTINE WILL GENERATE A RANDOM CYLINDER
THE FUNCTION
sADDRESS AND ISSUE A SEEK TO IT.

;POINTER IN THE DEVICE TABLE WILL BE UPDATED TO

;CHECK FOR THE ATTENTION BIT.

016565

116777

032777
001002

005500
002460
100000

005476
002504
002512

104400

000207
004767
016767
016767
032777
001410
042767
022767

016765

SEEK:

176340
176452
176442
020000

MOV
MOVB
BIT
BNE
HLT

DEVTBL+4(RS5) ,DEVTBL+2(R5) ;SET UP CYLINDER FROM ADDRESS
~SELECT THE UNIT
UNIT,@RPCS1
#3815,
@RPDS
:UNIT READY?
* YES-BRANCH
1%
*SELECTED UNIT NOT READY
PC

CEXIT

JSR

PC.,RANDS

:GENERATE TWO RANDOM NOS.

BIT

#813,RPDS

;1S THIS AN RP03?

RTS

MOV
MOV

002436
002432
002456

177000

000625

002412
002404

177400
000312

002372
002364

6$:

002356

005476

7%:

002346

005500

BEQ
BIC
CMP
BLT
BR
BIC
CMP
BLT

CMP

BEQ
MOV

LONUM, WORK 1
HINUM, WORK 2

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

*BRANCH IF NO

:GENERATE A CYLINDER ADDRESS

oo
|

e e

003172
003174
003176
003200

DD DIV IIIIIIDDIDOOIITVVUTDD

104400

RO
ATTNB,QRPDS
3%

A NDNDANNNDTIT

TST
BNE
HLT

~ SEQ 0018

A A A NN

002606

PAGE 19

A A A

000032

INC
BIT
BNE

12:41

;1S NUMBER TOO LARGE?
“BRANCH IF

WORK1,DEVTBL +2(R5)

1%
WORK1,DEVTBL+4 (R5)

YES

—

003136

005200
036777
001003
005700
001367

15-JAN-78

—

831
832
833
834
835
836
837

MACY11 30A(1052)

;SAVE CYLINDER ADDRESS

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

F-&

887
888
889

003336
003344
003350

016765
004767
016767

002342
176226
1756340

002324

891
892
893
894

003364
003372
003400
003402

042767
022767
002003
162767

177760
000011

002310
002302

000010

002272

896
897
898

003416
003424
003426

022767
002003
162767

000023

002260

000014

002250

901

003442

016765

002234

005504

903
904
905
906
907
908
909
910
911
912

003454
003460
003466
003474
003502
003510
003516
003522
003524
003526

016704
116467
116777

002214
003162
177466
005500
005504
000011
000025

177472
002242
002226
002222
002202

002000

002202

914
915
916
g}g

003536
003540
003544
003550

890 003356 016767

005502

176330 002320

ggg
902

913

003434

003450

003534

116767

005065

016577
016577
112777
012704
005304

001376
032777
001001
104400
005265
005265
000207

002244

005506

002241

3%:

005474
005474

5%:

PAGE 20

SEQ 0019

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

BIC
CMP
BGE
SUB

#177760,WORK1
#11,WORK1
2%
#8. ,WORK1

BIC

CMP
BGE
SUB

MOvVB

HINUM, WORK 2

:GENERATE A RANDOM SECTOR

#177740,WORK2

;GENERATE A RANDOM TRACK

WORKZ2 ,WORK1+1

;MERGE TRACK AND SECTOR ADDR

#23,WORK?2
3$
#14 ,WORK?2

MOV

WORK1,DEVTBL+10(RS5)

MOV
MOVB
MOVB

UNIT,
R4
ATTN(R4),
ATTNB, @RPDS

CLR

4%:

MOV
JSR
MOV

MOV

895 003410 042767 177740 002266 2%:

12:41

MOV
MOV
MOVB
MOV
DEC
BNE
BIT
BNE
HLT
INC
INC
RTS

DEVTBL+12(RS)

;STORE RANDOM DISK ADDRESS

:CLEAR TIMEOUT COUNTER

ATTNB
:GET
ATTN BIT
:CLEAR ATTN BIT
DEVTBL+4(RS) ,aRPCA
:LOAD CYLINDER ADDRESS
DEVTBL+10(RS) , aRPDA
*LOAD TRACK AND SECTOR
#11.3RPCS
SINITIATE A SEEK
#25 R4
R4
;WAIT FOR SEEK TO START
4$
#810,aRPDS
;1S THE SEEK UNDERWAY?
5%

DEVTBL (RS)
DEVTBL (R5)
PC

* YES-BRANCH

*SEEK UNDERWAY DID NOT SET
*MODIFY FUNCTION POINTER TO
;CHECK FOR SEEK COMPLETE
CEXIT

919

:THIS ROUTINE IS ENTERED AFTER A SEEK HAS BEEN ISSUED.

35%

:THE SEEK FUNCTIONED PROPERLY.

920
921

924
925
926
927
928

929
930
931
932
933
934
935
936
937
938

;1T CHECKS THE ATTENTION FLAG = IF CLEAR IT UPDATES THE
*TIMEOUT COUNTER AND CHECKS IT.
IF SET IT VERIFIES
003552
003560
003564
003572
003600

003602
003606
003614
003616
003620
003622
003624
003632
003640
003642

116467
036777
001011
005265
022765
101002
104400
000437
000207
116777
032777
001402
104400

003646
003652
003656

017704
020465
001440

939 003644

940
941
942

116777
016704

000425

002116
002110
003162
177362

002142

177366
002136

005506
005000

005506

177330
002000

002104
002076

002066
005500

SEKCK:

2%:
1%:

5%:

MOVB
MOV
MOVB
BIT
BNE

INC
CMP
BHI
HLT
BR
RTS
MOVB
BIT
BEQ
HLT

B8R

MOV
CMP
BEQ

UNIT,
@RPCS1
UNIT.R4
ATTN(R4) ,ATTNB
ATTNB,aRPDS
1%

;SELECT UNIT

;DETERMINE ATTENTION BIT
;TEST FOR ATTENTION FLAG
*BRANCH IF SET
DEVTBL+12(RS)
:UPDATE TIMEOUT COUNTER
#5000,DEVTBL+12(RS)
:DID OPERATION TIMEOUT?
2%
;NOT YET-BRANCH
*SEEK TIMED OUT
43
PC
SEXIT
ATTNB,aRPDS
*CLEAR ATTENTION FLAG
#810,aRPDS
*IS SEEK UNDERWAY CLEAR?
5%
*IF YES-BRANCH
*SEEK UNDERWAY DID NOT CLEAR

aSUCA, R4
:GET CURRENT CYLENDER ADDRESS
R4 .DEVTBL+4(RS) :DOES IT MATCH CYLINDER REQUESTED?
6%
: YES=BRANCH

o
|

15-JAN-78 12:36

15-JAN-78

EFEEfE<<CCCCCce

CZRPCD.P11

MACY11 30A(1052)

s ANEFFYF

CZRPCDO, RP11C MULTI-DRIVE

175466
175370

175660
175436
004000

000015
001756

002010

4%:

001762

DEVTBL+4(R5),TTY

JSR

RS,PRINTS
R4, TTY

;’S)TB

aRlZCS

JSR
BIT
BEQ
MovB
égT

108:

005474
005474

6%:

PC.PRINTS

MES11
MOV

005474

042522
042524
044514
020075
051412
042522
051105

MOV
JSR

001766

005015
051505
054503
051105
015
020101
052123
000
004044

RS.PRINTS

PC,PRINTR
#811,aRPDS
108
#15,aRPCS
TM

;SUCA AND CYL REQUESTED DID NOT COMPARE
;PRINT MESSAGE
;TYPE LOCATION-SUPRESS ZEROS

sPRINT MESSAGE

;TYPE LOCATION WITH LEADING ZEROS
;SEEK INCOMPLETE?
;BRANCH IF NO
; ISSUE HOME COMMAND
;WAIT FOR DONE

anzos

;WAIT FOR UNIT READY

CLR
RTS

DEVTBL (R5)
P

;CLEAR FUNCTION POINTER
JEXIT

INC

DEVTBL (R5)

sUPDATE FUNCTION POINTER

INC

RTS

DEVTBL (R5)
PC

JEXIT

052521

MES10:

.ASCIZ

<15><12>'REQUESTED CYLINDER= '

041525

MES11:

.ASCIZ

<15><12>"'SUCA REGISTER= '

020104
042116
000

044507
020075

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

N
=

004767
012767
016701
004767

000636

000400

001622

032777
001003

100000

001626
001634

116777
104400

001630
000336
001602

000167

000100

012777
016777
016577
016577
005067
012737
005067

177400
001566
005500
005504
001546
000200
001530
000113
000612
001512

112777

004767
005767

001604
001600
001574

0037570

177776

001532

WRITE:

1%:

JSR
MOV
MOV
JSR
MOvVB
BIT
BNE
HLT
JMP

PC ,RANADR
#4600, WORK
BUFF ,R1
PC ,RANDAT
UNIT,@RPCS1
#815,aRPDS
1%

MOV
MOV
MOV

#-400,aRPW(
;SETUP WORD COUNT REGISTER
BUF F ,aRPBA
;SETUP BUS ADDR REGISTER
DEVTBL +4 (R5) ,aRPCA
;SET CYLINDER ADDR

CLR

INT

;CLEAR INTERRUPT FLAG

#113,aRPCS
PC,WAIT

JINITIATE WRITE WITH INTERRUPT
;TIMEOUT THE OPERATION

MOV

WRTER

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

DEVTBL+10(R5) ,aRPDA

MOV
CLR

#PR14 ,Q#PSW
INTERR

TST

INTERR

MOvB
JSR

;GENERATE A RANDOM BUFFER ADDR

RINFRZSE

RRRRRRRRRR € SRS

;BEEN SELECYED BY THE SEEK ROUTINE.

SEQ 0020

DODOODZ2ro0OOmMmMMoOOA

005500

PAGE 21

HLT
JSR

MES10

175676

Al ANNNWDWUNNWULWULMDDIDIDTOT

175410

12:41

et od od od ek d

003660
003662
003666

15-JAN-78

;SETUP DISK ADDR.

JALLOW INTERRUPT
;CLEAR ERROR FLAG
;ANY ERRORS?

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

MACY11 30A(1052)

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

001005

999
1000

1001

005474
005474

1003

005474

1002

15-JAN-78

MACYT1 30A(1052)

WRTER:

12:41

PAGE 22

SEQ 0021

BNE
INC
INC

WRTER
DEVTBL .R5)
DEVTBL (RS)

sBRANCH IF YES
;UPDATE FUNCTION POINTER TO READ

(LR

DEVTBL (R5)

JRESTORE FUNCTION POINTER

RTS

READD

JEXIT

;READ AND VERIFY THE DATA WRITTEN

116777

032777

001450
100000

000152
177400
001434
001000
005500
005504
001406
001376
000117
000460
040000

001474
001502

READD:

001452
001446
001440
001434
001430

1%:

MOV
MOV

ADD
MOV
MOV
CLR
CLR
MOvB
JSR
BIT
BNE

001400

001366

001352
001346

MOV

001000

3%:

000400

000024
177776
177776
174664

MOVB
BIT
BNE
HLT
JMP

MOV
CLR
ADD
CMP
BNE
INC
CMP
BNE

JMP

001070
001064

005474

2%:

RDCNT:

MOV
MOV
JSR
MES12
HLT
CLR
RTS

UNIT,aRPCST
#815,aRPDS
1%
RDCNT

#-400,aRPW(C

BUF F ,aRPBA

sSELECT THE UNIT
;IS THE SELECTED UNIT READY?
: YES-BRANCH
;SELECTED UNIT NOT READY

;LOAD WORD COUNT REGISTER

;LOAD BUS ADDR REGISTER

#1000, 3aRPBA
DEVTBL+4 (R5) ,aRPCA

;SET CYLINDER ADDR
DEVTBL+10(RS) ,aRPDA
;SETUP DISK ADDR.
INT
;CLEAR INTERRUPT FLAG
INTERR
;CLEAR ERROR FLAG
#117 ,aRPCS
sINITIATE READ WITH INTERRUPT
PC, WAIT
s TIMEOUT THE OPERATION
#814 ,aRP(S
;ANY HARD ERRORS?
RDCNT
;BRANCH IF YES

BUFF ,R1

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

;START OF PATTERN BUFFER
; COMPARE DATA
;BRANCH-DATA DID NOT COMPARE
s INCREMENT COUNTER
;HAS BUFFER BEEN SCANNED
sBRANCH=-NO

-2(R2) ,EXP$
-2(R1) ,RECS
R5.PRINTS

;PRINT MESSAGE

+1
DEVTBL (R5)

;DATA DID NOT VERIFY
;INITIATE FUNCTION POINTER

RDCNT

JEXIT

;GENERATE A RANDOM PATTERN
004424

004464

016567
016567
016700

005303

005502
005504
000120
000116
000007

000132
000126

RANDAT: MOV
MOV
MOV
MOV

DEVTBL+6(RS) ,RAND1
DEVTBL+10(R5) ,RAND?
RAND1,RO
RANDZ R4

sS,RS

;SETUP SHIFT COUNT

SHIFT:

RO
R4
R2

sSHIFT RO LEFT AND
;ROTATE CARRY INTO LSB OF RO INTO R4
;ROTATE CARRY OUT OF R4 INTO R2

RANDA1 : ??x
ASL
ROL
ROL

DEC

;GET RANDOM BASE

;DECREMENT R3

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.P1
1055
1056
1057
1058

1059
1060
1061

1062

1063

1064

1065
1066

1067

1068
1069
1070
1071
1072

1073
1074
1075
1076
1077
1078
1079
1080
1081

1082
1083
1084
1085
1086

1087

004466
004470

004474
004476
004502
004504
004510
004512
004514
004520
004522
004526
004530
004532
004536
004540

001373
066700
005504
066704
005502
062700
005504
005502

BNE

000070

ADD
ADC
ADD
ADC
ADD
ADC
ADC
ADD
AD(
ADD
ADD
ADC
MOV
MOV
DEC

000064

001057
047401

000006
000026

001134

004544
004546
004552
004554
004560
004562

15-JAN-78

MACY11 30A(1052)

001120
EXGEN:

RAND1:
RANDZ:

004564
004566

PAGE 23

s CONTINUE LOOP

;ADD IN # TO MAKE X129

;PROPOGATE CARRY

R2
#1057 ,RO

;PROPOGATE CARRY
;ADD LOW CONSTANT

RANDZ ,Ré
R4

R2
#47401,R4
R2
#6,R2
R2,RO
R4

MOV
MOV

RTS

DEC
BNE

SHIFT
RAND1,R0

RO,RAND1
RO, (R1)+
WORK
EXGEN
R4 ,RAND?2
R4, (R1)+

BEQ

000014

12:41

WORK
RANDA1

;ADD IN # TO MAKE X129

;PROPOGATE CARRY
;PROPOGATE AGAIN

;ADD HIGH CONSTANT

JREPRIME RO WITH HIGH DIGIT
;STORE DATA IN BUFFER

;STORE DATA IN BUFFER
sFILL ENTIRE BUFFER
JEXIT

0
0

;THIS ROUTINE DETERMINES THE TOTAL AMOUNT OF AVAILABLE
;CORE WITHOUT USING MEMORY MANAGEMENT.
004570
004576

004612
004620
004624
004632
004636
004644

012737
012767
012767
012767
005777

000340
004646
000340
017446
000060
157446

177776
173200
173174
000064

020000

000040

000052

EXTMEN: MOV

:
EXREF

1%:

MOV
MOV
MOV
TST
CMP

BNE
BR

ADD

#PR17 ,a#PSW
H#MAXREF
,4
#PRI7
,6
#17446,SAVE
aSAVE
#157446,SAVE
1%
MAXRF1
#20000, SAVE
EXREF

;LOCKUP PRIORITY LEVEL
;SETUP 10 BUS TRAP

sSTART WITH 4K

;REFERENCE MEMORY

;TEST FOR 28K
JBRANCH IF LESS THAN 28K
;SETUP FOR NEXT REFERENCE

W = §

b
i

o
b

i
d

e
wd

004646
004654
004662
004666

004672
004674
004702
004704

020000
000006
173120

000030
173122

000042

005670

000002

: SuB
MAXREF
MAXRF1: MOV
CLR
TST
BEQ
SuB
RTS
1%:

SAVE:

#20000, SAVE
#6,4
6

a#6?

1%
#3000.
, SAVE
R5

;RESTORE 10 BUS TRAY

sUNDER MONITOR CONTROL?
sBRANCH IF NO
;ADJUST TOP OF CORE
sEXIT-SAVE=MAXIMUM MEMORY
sHIGHEST AVAILABLE LOCATION

;GENERATE A RANDOM BUF FER ADDRESS

OV~

o
i
i

b e
—h e

b e

;ENTER HERE WHEN 10 BUS ERROR OCCURS

004706
004712
004716

177772
006256
002000

RANADR: MOV
sSuB

SuB

SAVE ,R4

#ENDP ,R4

#2000,R4

;DETERMINE BUFFER SIZE
;ALLOW ROOM FOR DATA

SEQ 0022

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P11
1111
1112

1113

1114
1115
1116
1117
1118

15-JAN=-78 12:36

004722
004726

004767
016767

004742
004746
004752
004754

012703
020467
101005
040367

004734

004760

042767

000241

1119
1120
1121
1122
1123
}152

004762
004764
004766
004774
005002

006003
000770
062767
016767
000207

1126
1127
1128
1129
1130
1131
1132

005004
005006
005010
005014
005016
005020
005022

005000
005200
005767
001005
005700
001372
104400

}}%g

005030

000207

1133

005024

005267

174650
174762

000001

100000
000730

MACYT1 30A(1052)

000740

000706
000710

000700

000660

032777
001402
000167
016703
062703
022765
001402
062703

1148

005076

001425

1157
1158

1159
1160
1161

1162

1163
1164

005072

005100

020377
104400

100000

000630

005132
005134

006177
017767

000566

000167

000006

005142
005146
005152

005156

004767
004567

004767
005267
104400

005160
005164

005267
052767

005200

001774

005474

001000

004567
006133
004567
006163
010367

005122
005126

000660

000110

000640
001000
000004

005102
005106
005110
005114
005116

1165 005172 032777
1166

PAGE 24

PC ,RANDS
LONUM, WORK 1

#B0,WORK 1

#100000,R3
R4 ,WORK 1
1%
R3,WORK1

SEQ 0023

:GENERATE TWO RANDOM NOS.

:MAKE NUMBER EVEN
:ENSURE THAT THE RANDOM
:ADDRESS FITS WITHIN AVAILABLE
:MEMORY

ROR
R3
Bt
2%
1$:
ADD
#ENDP ,WORK 1
MOV
WORK 1 ,BUFF
:SAVE BUFFER START ADDR.
RTS
PC
JEXIT
:TIMEOUT THE OCCURANCE OF AN INTERRUPT
WAIT:
2%:

CLR
INC
TST
BNE
TST
BNE
HLT

RO
RO
INT
1%
RO
2%

1$:

RTS

INC

INTERR

:HAS INTERRUPT OCCURED?
: YES-BRANCH
:HAS OPERATION TIMED OUT?
:NO-BRANCH
:UNIT TIMED OUT ON READ OR WRITE
:SET ERROR FLAG

JEXIT

:ENTERED UPON A DEVICE INTERRUPT.

005032
005040
005042
005046
005052
005056
005064
005066

1155
1156

12:41

THIS ROUTINE

:WILL CHECK FOR AND REPORT DEVICE ERRORS

1139
1140
1141
1142
1143
1744
1145
1146

1150
1151
1152
1153
1154

MOV
CMP
BHI
BIC
CLC

}}gg

1149

BIC
2%:

1136

1147

JSR
MOV

000746

000722

006256
000702

15-JAN-78

DSKINT: BIT
BEQ
JMP
1%:
MOV
ADD
CMP
BEQ
ADD

3%:

HLT

174170

JSR
MES13
JSR
MES18
MOV

174162
174452
174230
174144

174230
000536
000524
000001

CMP

BEQ

JSR
JSR

MES19
MOV

174432
2%:

DSKER:
000522

100000 000536

JSR
INC

JMP

HLT

INC
EXTINT: BIS

1%:

BIT

BEQ

#815,aRPCS
1%
DSKER
BUFF ,R3
#1000,R3
#4 ,DEVTBL(RS)
{3
#1000,R3

:WHERE THER ANY ERRORS?
:BRANCH-NO ERRORS
:REPORT ERROR

: YES-BRANCH

R3,aRPBA

R5,PRINTS

;IS THIS A WRITE?
:BRANCH IF YES

:DID THE BUS ADDR TERMINATE PROPERLY?
:CONTENTS OF RPBA INCORRECT
:PRINT MESSAGE

RS,PRINTS

:PRINT MESSAGE

R3,TTY
PC,PRINTR
RS,PRINTS

:TYPE LOCATION WITH LEADING ZEROS
:PRINT MESSAGE

@ARPBA, TTY

PC,PRINTR
INTERR
EXTINT

INTERR
#B0, INT

#8315 ,8RPDS
1%

:TYPE LOCATION WITH LEADING ZEROS
:SET ERROR FLAG
:REPORT INTERRUPT DISK ERROR
:SET ERROR FLAG

;1S THE UNIT READY
:NO-WAIT

005202

000002

005204
005212
005214

032767

MACY11 30A(1052)

15-JAN-78

L
12:41

000002

174042

MSG:

BIT

174056

#B1 HLTCTS

;TYPE ENTIRE MSG?

RS5,PRINTS

;PRINT MESSAGE

000446
174134
174036

174344

UNIT,TTY
PC,PRINTS
R5,PRINTS

000470

174324

aRPDS,TTY
PC.PRINTR

174304

aRPER,TTY

000412
174042
173756

174264

aRPCS,TTY

005500

174244

000340

NNNNNNNNNNN

gy
S
W
QP
O
S
— G

nono
i o cud e cuh cnh and b
b s
nonY
n— o VNN
WN=O

PC.PRINTS
R5,PRINTS

000000

;TYPE LOCATION-SUPRESS ZEROS
sPRINT MESSAGE

;PRINT MESSAGE

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

2%:
174132

R5,PRINTS

;PRINT MESSAGE

EXPS,TTY
PC,PRINTR

;TYPE LOCATION WITH LEADING ZEROS

RECS,TTY
gE,PRINTR

;TYPE LOCATION WITH LEADING ZEROS

R5,.PRINTS

173624

173670

;PRINT MESSAGE

WORK3
DEVTBL+11(R5) ,WORK3
WORK3,TTY
PC.PRINTS
;TYPE LOCATION-SUPRESS ZEROS

000332

173644

000012

;TYPE LOCATION WITH LEADING ZEROS

,TTY
DEVTBL+4(R5)

173632

173710

sTYPE LOCATION WITH LEADING ZEROS
;PRINT MESSAGE

R5,PRINTS

000304
174164

000030

;PRINT MESSAGE

PC.PRINTR

R5.PRINTS

1209

;TYPE LOCATION-SUPRESS ZEROS
sPRINT MESSAGE

PC.PRINTR
R5,PRINTS

174212

N -

T O YO Y
— e
e

Y
Y
o

———g— g
) ) D

000446
174062
173776

174034
173736

;BRANCH IF NO

R5.PRINTS

174102
174016

£
PAGE 25

JEXIT INTERRUPT

RTI

S
S
Y
YO
o d e

I
I
R
R
g
D e D D D D
D D D D

2 08 BB ORB R0 28 BEIRRRER LB IZIFANANIID

1167
1168
g
D

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

174112

EXP$:
REC$:

;PRINT MESSAGE

0
O

;DEVTBL 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
;SELECT THE PROPER UNIT.

JEIGHT ENTRIES(WORD)

EACH UNIT SLOT CONTAINS

SEQ 0024

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

]

1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

1251
1252
1253
1254

1255
1256
1257
1258
1259

1260

1261
1262
1263
1264
1265

15-JAN-78

12:41

PAGE 26

;1 FUNCTION POINTER

1223

0=SEEK
2=SEEK IN PROGRESS

1224
1225
1226
1227
1228
1229
1230

1231
1232
1233
123
1235
1236
1237
1238

MACY11 30A(1052)

“

;

.
.

4=WRITE

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

000000
005514

005534
000000
005554
000000
005574
000000

005614
000000

005634
000000
005654
000000
005674

DEVTBL: O
.=DEVTBL+20
O
UNITT:
.=UNIT1+20
UNIT2: O
.=UNIT2+20
UNIT3: O
.=UNIT3+20
O
UNIT4:
.=UNIT4+20
UNITS:
O
.=UNITS5+20
UNIT6:
O
.=UNIT6+20
UNIT7: O
.=UNIT7+20
;RP11

;UNIT 1 SLOT

JUNIT 2 SLOT
JUNIT 3 SLoT
JUNIT & SLOT

SUNIT S5 SLOT
JUNIT6 SLOT

;UNIT 7 SLOT

CONSTANTS-MEMORY ASSIGNMENTS

UNIT:
0
PASSCT: 0
WORK :
0
WORK1:
WORK2:
WORK3:
INTERR:

O
0
O
0

FLAG:

BUFF :
INT:

JUNIT O SLoT

0
0

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

;INTERRUPT ERROR FLAG

:STARTING ADDRESS OF BUFFER
: INTERRUPT FLAG
;FLAG WORD

SEQ 0025

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P1
1266
1267

005720

15-JAN-78 12:36
176774

MACY11 30A(1052)

15-JAN-78

TERS
3
;DISK 10 REGIS
RPCS:
176 714

12:41

PAGE 27

;DISK CONTROL REGISTER

SEQ 0026

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

1269
1270
1271
1272
1273
1274
1275
1276
1277
1278

005722
005724
005726
005730
005732
005734
005736
005740

RPCS1:
RPWC :
RPBA:
RPCA:
RPDA:
RPER:
RPDS:

176715
176716
176720
176722
176724
176712
176710

1293
1294

1295
1296

W N=OVONOIWNHWN=O

mcw gD D
n NNV

— e

)

WWWWWWWWWWWWWW

)

3RSEBEREEEEY

1298

12:41

PAGE 28

176715
176716
176720
176722
176724
176712
176710

SEQ 0027

;DISK WORD COUNT REGISTER
;CURRENT ADDRSS REGISTER
sCYLINDER ADDRESS REGISTER
;DISK ADDRESS REGISTER
;ERROR REGISTER
;DRIVE STATUS REGISTER
s CURRENT CYLINDER ADDRESS
s INTERRUPT VECTOR ADDR.
sDISK INTERRUPT STATUS

176734
SUCA:
VECTOR=254
STATUS=256

176734

000254
000256

;MESSAGES

1279

1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292

15-JAN-78

MACY11 30A(1052)

005015
042103
030520
046125
044522

000
015
020124
015
036522
005015
020075
015
036523
005015
042116
000
015
045503
015
047524
005015

050122
051040
046440
042040
005015

YINE:

ATl

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

044516

MES1:

JASCIZ

<15><12>/UNIT

042520

MES1A:

.ASCIZ

<15><12>/RPER= /

051503

MESZ2:

.ASCIZ

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

042120

MES2A:

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

JASCIZ

<15><12>/SECTOR= /

MES12:

.ASCIZ

<15><12>/DATA COMPARE ERROR/

051525
042522
041516
052103

MES13:

.ASCIZ

<15><12>/BUS ADDRESS

042412
042524

050130
020104

MES18:

.ASCIZ

<15><12>/EXPECTED /

051012
042526

041505

MES19:

.ASCIZ

<15><12>/RECEIVED /

042412
044525
051105
040520

042116
045503
043111
051523

MES20:

.ASCIZ

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

042412
051501

042116
000123

MES21:

.ASCIZ

<15><12>/END PASS/

055103
026060
041461

044524
042526
052412
000
051012

051105

020104

INCORRECT/

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

006256

000000
000001

MACY11 30A(1052)
ENDP:

15-JAN-78

0
.END

C
12:41

PAGE 29

;START OF BUFFER AREA

SEQ 0028

DISPLA= 177570
DSKER
005156
DSKINT 005032
EMTVEC= 000030
006256
ENDP
ERRFLG 001252
ERROR
001112
ERRORS 001260
ERRPC
001264
ERRVEC= 000004
EXGEN
004562
EXPS
005470
EXREF
004620
EXTINT 005164
EXTMEN 004570

FLAG
005716
HINM
001712
HLT
= 104400

HLTADS
HLTCTS
HOME
ICNT

001256
001254
003014
001000

INPUTS 002026
005714
INT
INTERR 005710
I0TVEC= 000020
JMPTBL 003172

KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344

8454
822*
5394

822

}

832

904

926
841

1014
1164

1024
1203

912
952

936

476

545
1022

748

990
13
170
.

817
512

516
1

532

SEQ 0029
927

935

984

1009

1139

1165

884

8444

904*

905

926+

1025

1122+

1142

12634

563

566

875

745

755

766

775

867

771

781

777

865«

759

736
745
915«
1003«

930
1040«

941
1045

946
1046

959«
1144

886+
961«
1190

887«
962+
1195

901+
991
1200

1238#

906
1000+
1239

6324
836

874
840

890
869

914

932

938

943

986

101

1039

523

5374

1163+

12624

766

755

916«
1016

929+

1017

775

902+

11624
11354

121
480«

13244
532«

5354

5384

5404
10764
1209

1093
11644

12164

10844

617
1149
521+
5364
8094

636

1018+
998

855#

1203

—_—

003162

—

ATIN

ATTNB
003160
BELL
001262
BUFF
005712
B0
= 000001
B1
= 000002
810
= 002000
B11
= 004000
812
= 010000
813
= 020000
B14
= 040000
815
= 100000
B2
= 000004
83
= 000010
B4
= 000020
8BS
= 000040
= 000100
86
87
= 000200
B8
= 000400
89
= 001000
= 000001
C
CLRTAB 002446
DEVIBL 005474

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

b N

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

670
1

1 33

711

12644
1160

CZRPCDO, RP11C MULTI-DRIVE

CZRPCD.P1N

15-JAN=-78 12:36

MACY11 30A(1052)

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

3954
3964
3974
398#
3994
4004
4014
4024
4034
AN
4054
4064
4074
L67H

482

LOOP
MAIN
MAXREF

002654
002662
004646

7734
7754
1085

804
782
10974

MES1
MESTA
MES10
MES11
MES12
MES13
MES18
MES19
MES2
MES2A
MES20
MES21
MES3
ME S&
MESS
MEXIT1

006001
006011
003772
004021
006106
006133
006163
006177
006022
006033
006213
006243
006044
006061
006073
003012

1173
1181
945
949
1038
115
1153
1157
1185
1177
790
796
1189
1193
1199
794

1287#
128%5#
9654
9694
1302#
13064
1208
1212
12914
12934
13174
1322#
1295#
1298#
13004
798

002346

668+

676

002314
005676

675
764 *

677
783«

MAXRF1

MSG
N

NUMS

001714

004654

005204
= 000010

PACKS

PACS
PASSCT

002074

PFVEC = 000024
PKEX$
002302
PKEX1$ 002306

PK$

002344

PRINTA
PRINTB

001402
001412

PRINTR
PRINTS
PRINTS
PRIT
PRIZ
PRI3

001356
001370
001276
= 000040
= 000100
= 000140

000200

606

1091

525
3404

6664
3554
7034
702

615

627 *

SEQ 0030

873

889

1112

682«

688+

693«

701+

7174

683
784

689
785

694
793

7084
12574

680+
699«

681«
700

682
701

685+
710x

686+
711x

687«
713«

688
7164

690~

951

1155
1191
645
1180

1159
1197
654
1184

1179
1202
730
1188

1183

1187

1210

1214

1098#

11704

709
7044

13114
13144

8044

679
698%

524
5664
518
1156

947

1175

1172

1176

3454

994

3484
3474
3464

PAGE 32

6334

676
697
564
567

12:41

CROSS REFERENCE TABLE == USER SYMBOLS

KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=
LAD

LONUM

15-JAN-78

S69#
5714

5634

S454

598

789

1192

795

1198

944

1207

948

121

692+

693

695+

1037

1150

1152

CZRPCDO, RP11C MULTI-DRIVE
15-JAN-78 12:36
CZRPCD.PN
PRIS
=
PRI6
=
PRI7
=
PRNTFS
PSW
=
RANADR

RANDAT
RANDA1

RANDS
RAND1
RANDZ2
RDCNT
READD
READLS
READMS
READS

RECS
RESTS
RESVEC=
RPBA
RPCA
RPCS
RPCS1T
RPDA
RPDS

RPER

RPW(C
RwW
=
SAVE
SAVE®
SCOPE =
SCOPES$
SEEK
SEKCK
SHIFT
SRO
=
START
STATUS=
STKPTR=
SUCA
SWR
=

T
=
TBITVE=
TITLE
TKB
=
TKS
=

TPB
=
TPS
=
TRAPVE=
TTY

000240
000300
000340
001314
177776
004706

004424
004450

001576
004564
004566
004416
004220
002072
002066
001716

005472
001064
000010
005726
005730
005720
005722
005732

005736

005734

005724
000006
004704
001036
104000
001004
003202
003552
004456
177572
002350
000256
000500
005740
177570

000020
000014
005742
177562
177560

177566
177564
000034
001574

UNIT

005674

UNITT
UNIT2

005514
005534

344H
3434
34208
514
3604

979
982
1049#
6044
1045+
1046%
1012
858

655

646

6344

1036+*
L9974
352#
990«
906+
741«
7 2%

907

743
957
1182
989
408#
1087+
L864
4154
L764

855
856

MACY11 30A(1052)

723
546
721+

11084
10454
1075

872
1047
1048
1023
1002
6614
6604

1084

PAGE 33

SEQ 0031

888

10784
10794

1056

1058
1033
1008#

1014%
991«

1015+
1016+
838
866+
1017+

1147
12714
908+
924*
12724

1009

813«
809+

992+
810
984
12734
1013«
1088

605

1086

1084+

12174
705

629

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

817

1269#

667

724
8654
9244

731

12814
648

1190«
763%
1008
12404
12424

725
5454
*
994

1213

1055

3624
3614
3644
3634
3574
523+

12:41

CROSS REFERENCE TABLE == USER SYMBOLS

10514
3914
464
727%
3694
940

3654
3414
3534

15-JAN-78

7204
12774
720
12754
476

558«
549

648+

559

649

580+
1196+
769
1174
1241
1243

582+

584%

1201+
771
12564

1209+
773

1213«
779+

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

UNIT3
UNIT4
UNITS
UNIT6
UNIT7
uP
=
v
=

VECTOR=
WAIT
WORK
WORK1

005554
005574
005614
005634
005654
000000
000002
000254
005004
005700
005702

WORK2
WORK3
WRITE
WRTER
Z
=
$ENDAD
.
=

005704
005706
004044
004212
000004
003002
006260

.PR

001550

.PRF
.PRL

LPTIT

001464
001436
001424

12444
12464
1248#
12504

1252#
4054

338#
726+
997

980+

873«

1112+
874>
1194«

3
G
12:41
15-JAN-78
PAGE 34
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
1245
1247

1249
1251
1253
12764
1021
1070+

877

1113+

887

987

1195«
9794
999

460
4594

L4614

12514

12534

857

3304

639

569+
576
5774
573

SEQ 0032

800#

650

571

579
593

11264
1074+

878

1115
890«
1196

12584

881«
1117«
895«
1200+

882
1121+
896
1201

884
1122
898«
12614

886

889«

899

12604

12594

891+

892

894«

899+

12478

901

10034

4634
6594

L4654

830

956

958

5424

550
9734

560
12394

126414

12434

587

590
12454

572+
5844

574

578

588+

589

592+

594

599

6024

527

570

595

6024

12494

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

DUMP
DUMPF

\LJ

4S51»
445

ENDCOM
ESCAPE
GETPRI
GE TSWR
LDPDR
MULT
NEWTST

1L
1%
1%
%
ART
1L
1%

La6H

PACK
POP

PRINTF
PUSH
RAND
READ
REPORT

REST
SAVE

SDUMP
SDUMPF

SETPR]
SETUP
SKIP
SLASH
STARS
SWRSU

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SESCA
SENEWT
$$SKIP

.DUMP
.EQUAT
.ERROR
.HEADE
KT11
.PACK
PRINT

.RAND
.READ
.REST
. SAVE

. SCOPE
.SETUP
. SWRHI
LSACT1
.$APTB
. $APTH

523

L5748
1L

1176
La7%
LL
L4544
4554
14

LL38
La2on

4524
450#

946

14
%
1%
14
1%
1%

14
1%
1%
1L
14
14
14

1%
14
14

LLBH
%
La4k
14
4
L4564
4454

4534
4544
L462n
L4 2n
La2on

1#
1L
1L
1L
%

562
506

663
543
634

495
484
468

MACY11 30A(1052)

15-JAN-78

12:41

PAGE 36

CROSS REFERENCE TABLE == MACRO NAMES

950

1154

1158

1182

1186

1209

1213

598
1184

644

1188

654

730

789

795

888

704
666
1174

1190

1192

1198

1196

1201

1206

1211

948

1037

1150

1152

1156

SEQ 0033

1172

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

15-JAN-78

.SERRT

. SPOWE
. SRAND
. $RDDE
.$RDOC
.SREAD

iF;
1%
14
14
1%

.$SB820

JEMULT

1%
i 4
14

.$R2AZ
.$SAVE
.$SB2D

14
1%
14
14
1%
1%
1%
iF;
ir:

.$SCOP
.$SIZE
. $SUPR
.STRAP
.$TYPB
.STYPD
.STYPE
.$TYPO
.$40CA

.1170

00626C

ERRORS DETECTED:

000

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

RUN-TIME:

8 9 .4 SECONDS

RUN-TIME RATIO: 91/18=5.0
(65 PAGES)
(ORE USED:
33k

i
12:41

3
PAGE 37

CROSS REFERENCE TABLE == MACRO NAMES

1%
1%
1%
1%
1%
1%
4
1%
i

.BAPTY
.SASTA
.$CATC
.SCMTA
.$DB2D
.$DB20
.8DIV
.$EOP
.$ERRO

. ABS.

MACY11 30A(1052)

SEQ 0034