Digital PDFs

AC-E745I-MC

February 1979

17 pages

Original

1.7MB

Document:	CXRPBI0-RH11-RH70-SGL-PT-DISK
Order Number:	AC-E745I-MC
Revision:	0
Pages:	17
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/x11_listings/AC-E745I-MC_CXRPBI0-RH11-RH70-SGL-PT-DISK_Feb79.pdf

OCR Text

~~
~,.,~"W,,,"%!,,,,,~

i
RPSI DEC/Xii SYSTEM EXERCISER MODULE
XRPBI0.Pl1
08-FE8-79 09$23

MACIti

30~(1052)

08·fEB~i9

09:26

P~G~

SEQ 100101

.REM

IDENTIFICATION
PRODUCT CODE:

AC .. E745I-MC

PRODUCT NAME:

CXRPBI0 PH11-RH70 SGL PT DSK

PROCUCT DATE:

FEBRUARY 1979

MAINTAINER:

DECIX11 SUPPOPT GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL
EQUIpMENT
CORPOPATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS MANUAL.
THE sOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS
COPYRIGHT NOTICE) ONLY FOP USE IN SUCH SYSTEM, EXCEPT AS MAY
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIpMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS sOFTWARE ON EQUIpMENT THAT IS
NOT suppLIEO B¥ DIGITAL.
COPYRIGHT (C)

1974,1979 DIGITAL EQUIPMENT CORPORATION

RPBI DEC/Xll SYSTEM EXERCISER MODULE
XRPBI0.Pl1
0S-FES-79 09:23

MACYli 30A(10S2)

0S-FES-79

09:26

PAGE 3
SEQ 10002

ABSTRACT
RPB IS AN IOMOD THAT EXERCISES Rp04/S/6 DISK DRIVES ON AN
RH11/RH70 CONTROLLER. IT EXERCISES THE DRIVES BY DOING WRITES,
WRITE-CHECKS, READS, AND IN-CORE COMPARISONS. ALL ERRORS DETECTED
ARE REPORTED ON THE CONSOLE TTY.

REQUIREMENTS
HARDWARE I

I TO 8 RP04/S/6'S WITH AN RH11/RH70 CONTROLLER

STORAGEI: RPB REQUIRES I
1. DECI~AL WORDSI 1466
2. OCTAL WORDS: 02672
3. OCTAL BYTES: 5564
3.

PASS DEFINITION

..... ---_ .. ,..--- ....

ONE PASS Of THE RPB MODULE CONSISTS OF 1300 CYCLES OF THE BASIC TEST
SEQUENCE (WRITE, WRITE-CHECK, READ, DATA-CHECK). THE TEST SEQUENCE
WRITES 1024 WORDS, WRITE-CHECKS SAME, READS THE fIRST 256 WORDS,
AND DATA-CHECKS SAME.
4.

EXECUTION TIME
ONE PASS Of RPB RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 1 MINUTE.

CO~FIGURATION

REQUIREMENTS

DEfAULT PARAMETERS:
DEVADRr 176700, VECTOR3 254, BRl3 5, DEVCNT: 1
REQUIRED PARAMETERS:
NONE

DEVICE/OPTION SETUP
MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP,

~RITE

ENASLED, AND READY

RP8r DEC/Xli
XRPBI0.Pl1

EXERCISER MODULE
08-FE8-79 09123

SYST~M

~ACYll

30A(1052)

08-[[A-79

09:26

PAGE 4

SEQ ftl003

MODULE OPERATION

TEST SEQUfNCEI
A.
B.
C.

D.
E.
F.
G.
H.
I.
J.
8.

SETUP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES
PESET ALL DRIVfS ON-LINE AND DROP ALL THAT ARE NOT
GET A STARTING SECTOR ADDRESS
GET A DRIVE ADDRESS
DO A WRITE •• IF ERROPS, REPORT AND RETRY UP TO RETRY LIMIT
DO A WRITE-CHECK -- IF ERRORS, REPORT AND RETRY UP TO RETRY LIMIT
DO A READ -- IF ERRORS, REPORT AND RFTRY UP TO RETRY LIMIT
DO A DATA-CHECJ -- IF ERPORS, REPORT AND RETRY UP TO RETRY LIMIT
IF END OF PASS, REFORT AND GO TO C
If END OF DRIVES, GO TO C ELSE GO TO D

OPERATION OpTIONS
SRl 81T0 SET(l):
IF THE RETRY LIMIT IS EXCEEDED ON ANY FUNCTION, A HARD ERROR
IS ASSU~ED AND THE DRIVE IS DROPpED

SRt 81T0 CLEAR(0):
If THE RETPY LIMIT IS EXCfEDED, THE FUNCTION IS ABORTED AND
THE TESTING CONTINUES
SRl BIT2 SET(l):
COUNT DATA LATE ERRORS BUT DO NOT TYPE THEM OUT
SRl B1T2 CLEAR(0)S
TYPE OUT DATA LATE ERPORS AND COUNT THE~
SRt BIT5 CLEAR (0)
SRl BIT5 SET (1)

7NORMAL FOR RP04 PACKS THAT ARE FORMATgD
:fOR 16 8IT MODE (PDP.ll)
:FOR PP04 18 BIT FORMATED PACKS

RPBI DECIXII SYSTEM EXERCISER MODULE
XRPBI0.P11
08~FEBu79 09:23
9.

0B rES-79
6

09126

PAGE 5

..---.--.--..-.--.

NO~-STANDARD

.--~

MACY1i 30A(1052)
PRINTOUTS

MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN
THE DEC/Xll DOCUMENT

ERROR MESSAGES DUMP THE CONTENTS OF THE 20 RH11/RP REGISTERS
IN THE FOLLOWING ORDERI
RHCSI RHWC RHBA RPDA RHCS2 RPDS RPERl RPAS
RPLA RHDB RPMR RPD! RPSN RPOF RPDC RPCC
RPER2 RPER3 RPECl RPEC2 RHBA! RHCS3 XFER eNT

%':>'di

SEQ 0004

SY5TE~

RP81 DEC/X!!
XRP810.P!!

EXERCISER MODULE
09-fES-79 09123

° °"

IOMODX
MODULE
.TITLE
OOXCOM

I"iii 0 V',

~hH500~ "

<RPBI

05~122

~'~"005 II

000

0445~2

040

~)1::~0"'6 "

176700
"'''HHl1((1g 000254
"\11JQ!12"
24"
"~01i!Hl"

000

~hI)0~14"

""00~1

""0016 '

0"~000

V! {'VI ~~ 2 2 "

"'0VJ0~'~

"'01,))"20" 00000<J
~0'~0~fJ

Hlt-HH.,26" 150000
('W00]il'" vHl1452'

BEGINI
MaONA"1
XFLAGt
ADDRI
VECTOP I
BRII
BP21
OVID II
SRII
SR21
SRll
SR41

0\·~1f.l5i·) "

~)N""~0
Y'J~10"~0~

~}[1~J~~54"

"v\""~fl

RAINU~'

~'llc"~34 "

r.0f)0~0

~il;~lM.~36"

,,02424

~:L'~W42"

00~~00

~~y~~HI41 "

~l0NH"~

~ ,'~1\1l46"

"1V1'=i~r0

01~~"~b\·"

~Hl~'~'QI~
'~~"~P'~0

t,VlylV'b2 "

"\~Plv.JN)

~'V'l0tJ4"

01-l 0 I'l0"

k~v.0I/lb6 "

"Hl~'00V'i

f\~'~t· 71/1"

01(1')"0P'

1\ r~ .~v. 7 2 "

I.:Hlflli\V,,·

\'¥ ~'~~74#

~\~~",0"'0

1'11(.',.,76 '

Y.°0V1"'(·\

\!\\~' If-hI"

~iI~O("0C1

,-; l '~'1

,., 2 "

\!\ ~110 2"

f··0{·\Il".~

t \\1'''1 P 1"

t"'/ 1 ~\4"

C~lL0H'I

~ ~I(l 1 ~\ 6 "

lHl\'l ~\6"
~H1(.,j

'~0"HHH~

1 I.'" 00N'I(I!?

~l\'>.t.l t 2"

~'·01734"

~.>(~~,

V.~lf'yI0C'l

t 1~ ,
~'!<l ~t 11 b "

PAGE 6

~~~(i\0~1l;

(1!"12 15 " \-.\"'f'V!0f'
(' (1~' 12 2 " (~~\(106"\

1".1'.' 121"

"~'W3'H)'

~'r('f' 126"

rwc',,~\~Vl

,ASCII
,RYTE

IRPel

OP~N

176700+0

254+0
,BYTF:
• BYTE

0+1
OPEN
OPEN
OPEN
OPEN

,MODULE

NAME.
,USEO TO KEEP TRACK Of WBUFF USAGE
rlST OEVICE ADOP,
'1ST DEVICE VECTOR,
,1ST Sft LEVEL •
'2ND SR LEVEL.
'DEVICE INDICATOR I,
,SWITCH REGISTER 1
,SWITCH REGISTER 2
,SWITCH REGISTER l
'SWITCH REGISTER 4

;********************~*************************************************

r'kJ0052"

"~~~252 '

t){h-HJ4tl " "~000~

"'C'~~~'56 "

09126

>,116100,254,5,0,0,1300,,6e,BUFIN,256,,1024.

STATI
INlTl
SPOINTI
PASCNTI
ICONT,
ICOUNTI
sorCNT,
HRDCNTI
SOrPAS,
HRDPAS'
SYSCNTI

i~I'1"'1i.)5 b"

08-rEB-79

'***********************************************************************

U"H~00l1·

~li~'H~32 "

30A(l052)

150000, RPBI
,176700,254,5,0,0,1300,,60, BUFIN, 256,,1024.
RPBI DECIXII SYSTEM EXEPCISER MODULE
VERSION 6
23-MAY.79
.LIST
aIN

000001"-

o {'. 0 1(1 24 II

~ACH!

150M~

,STATUS WORD.
,MODULE START ADDR.
,MODULE STACK POINTER.
'PASS COUNTER.
,. or ITERATIONS PER PASS=1300.
,LOC TO COUNT ITERATIONS
,.OC TO SAVE TOTAL SOFT ERRORS
,LOC TO SAVE TOTAL HARD ERRORS
,LOC TO SAVE SOfT ERRORS PER PASS
,.0C TO SAVE HARD ERRORS PER PASS
,. Of SYS ERRORS ACCUMULATED
,HOLDS RANDOM. WHEN RAND MACRO IS CALLED
,RESERVED fOR MONITOR USE
'RESERVED fOR MONITOR USE
IRESERVED FOR MONITOR USE
,LOC TO SAVE R0.
,LOC TO SAVE Rl.
'LOC TO SAVE R2.
,LOC TO SAVE R3.
,LOC TO SAVE R4.
,Loe TO SAVE R5.
.LOC TO SAVE R6.
,IDDR Of CURRENT CSP.
,ADDR OF GOOD DATA, OR
,CONTENTS OF CSR,
,AODp Of BAD DA'!A. OR
,STATlIS REG COI-<TENT5,
,TYPE Of 'PROF
,EXPECTED DATA.
'ACTUAL DATA.
,Rf.START ADDRESS AfTER END Of PASS
'~UPDS TO ME,'ORY PER ITERATION
,CORDS FROM M~MORY PER ITERATION
" or INTERRUPTS PER ITERATION

START
"ODSP
0
131..
~

0
0
0
~

0
~

CN'FIGI
RESI,
RES21
SVR0,
SVRII
aVR2,
SVR31
SVP4,
SVR51
sVP6,
CSPA,
SBADR'

0
OPEN
OrEN
OPEN
OPEN
OPEN
OPEN
Opt;,:
OPEN

ACSR:

OPEt'

'ASADRI
ASTATI
fRFTYr I
ASSI
AwASI
!'STRT I
.. oro I
hD.RI
lNTRI

OPEN
OPEN
RESIF'r

IDr~UMI

6r?

OPEN

oP~tJ
OPE~

OPEN

;i,'oaULt: IDENTIFICATION

~Uf.l8EFl:lllb~

RAUHAI BUrTN
RBU'PAI OPEN

IREAD BUFFER VIRTUAL ADDRESS
,REAU Bur'ER PHYSICAL ADDAESS

;READ bUFFER

RPB! rEC/.11 SISTE' [XEReISEF MODULE
X~PRI(~,Pll
~)8 ... F'E~-79 09123
PI'L:' 13~:"

"~1"~~1,II

RBUfE~1

t~~'v~132"

fHH140~1

RAurSZI 256.

t'i-'lh 134'"

~H1~j0p(.l

~BUFPA:

"L,q 3&"

~'~~~;"~rn

!·'I't 14(/"

~'~~2~}0~~

~"~Lrl142"

'~P~I~"WI

"BUFf,AI Op[rJ
\'iBUFRQ: 1"24.

~-","014 4"

v\~~~'~~h'\0

It'~0146'

'WIt1~00

~)~:r(ll Sv"

t!+'fllH':I0

.aUFSZI
COHC!!
CD_DCTI
fR.E,

C· i'll~~ 41;>;

OPEN

OPEtJ

OPEN
OPEN

OPEN
.AEPT
.NLIST

SPSIZ

EA BITS
,SIZ< OF THE READ BUFFER
, WRITE BUFFER PHYSICAL ADDRESS
J\'JRITE BurHR EA BITS
J \vf.(ITE: BurFER SIZE REQUESTED
: "'PITF' BUFFER SIZE AVAILABLE
;CDATA/DATCk ERROR COUNT
;CD.aTA/nATCK ',0"0 COUNT
,T<e:S~PVED FOR FUTURE USE
;MODULE STACK STARTS HEFlE,

.. WORD
.I.IST
.ENDP
t;ODSP:

; ... -. ... -» '* '* '* .. '* . . ,* .. it .. it -II '* * '* .......

*.. *..... *.. * *** *.... ** *** *.. *** .. *.......... ** .. **** ........ ** .. *.. *....

IIPOX DEC/XII SYSTEM EXERCISER MODULE
XII'Sl0,P!1
08.FEB.79 09123
222
223
224
225
226
227
228
229
230

211
232
23l
234
235
236
217
238
239
240
241
242
24l
244
245
246
247
24B
249
250

251
252
253
254
255
256
257
258
259
260
2.1
262
263
2&4
265
2&6
267
268
269
270
271

U00252' 000000
H002S4' 000000
000256' 000000
000260' 000000
""0262' 000000
000264' 000000
000266' 000000
000270' 000000
000272 ' 000000
000274' 0l'''00''

"'0~300'

000000
000000

0i40l912·

0~0000

~0~276'

000304' 000000
0110306' 000000
~00310' 000000
~00312' 000000
000314' ~00000
000116 ' 000000
000320'

0~0~06

~~0322' 000162
01!0324' 000024
000326' 133224
0<1>0330 • 132132

PLKII

PAGE 8

IDATA LATE ERROR COUNT~R

,OI5~ SLOCK COUNTER
'CALCULATED CYLINDER ADDRESS
,MODIFIED CYLINDER ADDRESS rOR RP0415

0
0

SEQ e0~7

,CYCLE COUNTER

"00
0

PA181
XMEMI
PAZ2,
EA221

0
0

0
0
k8L~RVI 0
MBLKTRI 0
kOOEI
0
MLOWeYI 0
MHICY I 0

il6l

:*-**************
T18.
5

~00137

95,

~01t)316"

"~"022

19,

~~0)42'

114046
113113

,"'0(71344. ..

0~~000

H~V!346"

00~~00

Uor.3S~"
~i:'Iy"!lS2'

00"00~
~"M00

0fr"~354'
~0~~156"

000000

r.~101b~'

~0~0"0

,THESE 5 LOC, GET MOVED TO ABOVE 5 IF 16 BIT MODE
'1024 WORD BLOCKS/CYLINDER
,SECTORS/TRACK
,410, X 114, (CYLIND~R 0 • 409)
,405, X 114, (CYLINDER 410 • 814)

114,
20,
46740.
46170.

~00"e5

00034(-1"

,HOLDS 1024 we BLKS PER TRAC~
,HOLDS BLKS PER CYLINDER
,HOLDS LAST SECTOR I THAT WILL FIT PER TRACK
'BL~S THAT FIT IN FIRST 410 CYLINDERS (0-409)
,BLKS THAT FIT IN LAST 405 CYLI~DERS (410-814)

00~332'

'lH~5E 5 ~OC GET MAPPED INTO FIRST 5 ABOVE IF 16 BIT _00
,1024 .ORD (18 61T) BLOCKS/CY~INDER
,SECTORSITRAC~

38950,
38475.

,4lV.. X 95. (ClLl"DtR 0 • 409)
'405, X 95, (CYLINDER 410 - 814)

:**.*************.

~~"000

"'''0362'' 1100000

ZEROI
DSUDRI
DVICEI
DRIVE.
BLKSAVI
TBUFI
WCNTII
WCNT21
UNITNO'

"'{~fillb4 ..
'Hl0366 ..

')0~000
O\'1VJ0~"

-0011

~H1~17\<'"

~h~040"

BUfIN.

k"'~137V1"

(1l~000~

'~I!'!~hH:'()

RH~CI

0~000~

R~PAI

H,..1t 17b"

"IAQl0~0

H~t40"'''

,",H9IQl0~

PPPA.
RHCS2.
RPOSI
RPEFII
PPASI
FHAI
PHOBI
FP"PI
FPOTI
PPSNI
FPOF.
RPDCI
RPCCI
RHR21
PPER31
RPECI.
RPEC2.
PHSAEI
RHeS31
XFEPADI
XFEFCTI

~~e001?1

281
282
283
284
285
28&
287
288

I'J"'141''''

.~~000

11~IU2"

0~0000

I:HH414"
~1~11 41 b"

0~0"0@

"H"1420"

~000~~

0iH422"

~00000

~HIH424"

~0000~

WA0~Nl

Vlt\l426" 000000

+"1J143"'''

000~00

~W1432'

A000~0

~~IH4'

000000

001436' 000000
~"t440' 000000
0~1442" 0"0000
H01444" 000274'
001446' 000266'
I:hH450" 177777

0
0
0
0

0
0
0
.8LKIt.!

256.

08-FES-79

09126

PAGE 9
St.'" tt'I!.'IV,1:I

(;,\wll72"
VllIll'4"

(".10 t 4~2"
0"0000
"HH 4I-H" 0e000~

f'ACYlI 30A( 1052)
TABLE.
RHCSII

IH11371(:'

{-in 1 4~6"

290
291
292
293
294
295
296
297

CL~I

eYLI
eYL8AVI
SEC I
CNTI
rUNCI
ONCEEI
fERADRI

.'126

NfC!'314 t1

280

289

DLTCNTI

01·re:II·19

,DO NOT CHANGE THE ORDER OF THE NEXT IS LOCATIONS
,NEEDED FOR MAP22 MUTINE

RPSl r'EC/X 11 SYSTEo HERCISFR MCDIJLE
XPPBl~1.Pll
08-n:B-79 09123
277
273
274
275
27&
277
278
279

MACYlI 3.A00U)

"
~

0
~

"
"0
~

0
0

0
~

"
0
0

"00

"
0

FEFAPP
eNT
177777

RPBI DEC/XII SySTEM EXERCISER MODULE
XRPeI~.PII

298

299
300

301
302
303
304

305
306
307
3~8

309
Jle
311
312
313
314
31S
316
J 17

318

0S.rES-7909123

001452' 012767
0~146~' 012767
001466' 012767
001474' 005067
001500' 005067
001504' 012767
001512' e·12700
001516' 032767
flf11524' 001404
001526' 005067
'HH532" 012700
""1536' 012701
""1542' 012702
"01546' 012021
vv'J 5511"
"01552'
"01554'
001562'

0V'5302

~1~~1566"
"H.J1574~

v16767
016167

001375
012767
105067

~Hl1602~

t'167~6

319

~HHMl6"

~12767

3 2~~

1-1{11614," ~H2767

321

325

""1622' 122737
~1"l16 30'" "Yl1021
~'{l1632" 113700
""16l6' f'12701
P~.I1642~ 1(..\570'"

326

1'~lI!1644"

""~11403

327
328

yW164o"
"'i,l,165(1~

329

l'V I 652'

330

,,\'lb54' 130167

331

('-'~\166"'J"

322
32 J

324

002000
0U0400
000003
176566
176546

SEQ 0009
176436
176426
176424

STARTI

010000 176654
000320'
000040 176272
176634

000112 '

2$1

"0~306'

~OV

0fJ0005
3$1

000f107
0"3772
176222
176550
176224
177777
177777
0r"0~111

MOV
MOV
MOV
CLR
CLR
MOV
MOV
BIT
eEQ
CLR
MOV

176510

181

176554
176550

DAOSTI

176442
176542

MOV
DEC
BNE
MOV
CLR8
MOV
MOV
MOV
MOV
~lOV

000041

CMPB

*1024"WDFR
.256.,W010
13 ,INTR
CNT
DLTCNT
IBITI2,MODI
U16,R0
IBlT5,SRI
25

MODI
'TIB,R0
'MBLKRV,RI
'S,R2
(~01',(RI)+

R2
1$

#7, ONCEE
FLAG
OVIOI,DVICE
nVICE,ORIVE
SPOINT, R6
'-I,BLKI
.-1, UNITNO
1II,~#41

SNE

MOVR

IH40,P,""

MOV

#l,Rl

0(~6301

TST"
BfQ
ASL

80
6$
PI

1053flQ'

DEep

FH-'

~e0773

BITe
8FQ

Rl,r,PIVE
lS

MOVS
JS8

B#40,UNITNO
PC,DROP

36'

JSR
JSR
PR

PC,SETUP
PC, HZET
CT

CTI

MOV
/>10 V

#"l,UNITNO
DVICE,DRIVE

5$.

6S1

";~1405

112

""lb62' 113767

333

(h'l167~1·

"W'4767

0~"Hl>4t~

.,,: 1422

176474

334
335

336
337
338
339
340

341
342

343

w\:-13v·r!A
01!'27~4

t:';'-\17N~"

~W4767

,'\"11r?4;

Cl~04~yl

F·~.!l706;

~H2767

n'1714~
'j~11722·

"'16767
0:'5767
'h.ll 726" fH 1l1v2
(H·1173p· "h~"H67

177777
176430
176422

176450
176430

0G0250

~hH134"

1;,\441'5

0NHWVr'

~HHH24'

t-Hl1742"

~q676'1

176412

348

~HI11750"

~05467

~hI1754"

P16767

176164
1764106
176276

lVi4414

~1)'0\·HH"

"01766' 016767

17bl50
17636('

176372

001762"
~111l762"
~H" 774"

XRPBl".Ptl

N'54~7

~8-FF:B"7q

"02174

~102('12"

",,"15761

176332

l1Vl2\1'16;

~'V'1002

002(1120"

v''''~167

\'"l0016t·}

0"2~24'

132767

'~'W01P

176354

1J02f'1 34"

~.'(lQl741

(Ji02~L36"

f l 04567

~L12"42"

1-)(.:'4567

365
3b6
307

l"!~12~'146·

~~Vl04"'2

V11~21A5C'O"
"\!t12~'54"

"'04767
!Ilt150fJ7

003464

30B

P~~2~H)'\~

{"("5067

003462

3bg
370
37)
312
373

"i':12D6 4" ';05"'67
{;~~2'-170" \:W51i'67

fl"'3460

~\rJ2104~

~'14567

314
375
376
377
378
379
3 8 (~
381
382

002110;

l"!~"'167

~1'2114'

132767

384
385
386
387
388
J89

390
391
392

393
394
395

396

'\~5067

v1!12Hh'; "105k167

002122' ~f11410
f 1.,'124' 142767
""2132' 012167
")("214~\'

~f'l0167

~H12144"

Yl~4567
~0.167

""2150'
""2154'
""2160'
""2164'
"02172'
("""2174 "
0"2174'

fIN!

MOV

RBUFVA
RBUFSZ,WCNT2

r,EG

wCN'T2

MOV

BLK 1, BLKSAV

GfTP~S,BEGIN,

STRT.
STPT I.

176364

2$ •

MACYI!

177366

fHH526

IS'
r..e\~

"022<12
ISI

003456
0fl3454
003452

GOSI

00025"
00e·HW'
"0"0"4

003436

f'f.'0~(Jl4

,"w3426

177777
17761"1
000304
0M072
000406

176116

"04567
"00167 000114
104412 ~HI0000'
""2174'

DADeL.
GOAl
GOB I

0~0126'

~ov

w~UFSZ,wC~Tl

,GET WRITE BUFFER INFOR~ATION
, SAVE WRITE 8UFFER SIZE

NEG

""Cf-IT 1

J Gr.T THE 2"S COMPL(:;,"l.ENT

0S-FEB-79

30A(I~521

JSR

PC,FDUNIT

"9.26

PAGE II

DVICE

, fIND UNIT II
IGET UNIT' SO BOTH PORTS
I"ILL 8E LOOKING FOR SA~E DRIVE
, ANY'DRInS LEFT 1

FtN!

, NO DROP "ODULE
,MORE DRIVES ON SYS?
/YES
IYES CORRECT SETUP FOR DUEL PORT REIURN
'''PDATE DsK ADDR
, 15 DRIVE READY 1
, YES, CONTINUE
NOT READY, GO ~AIT UNTIL IT IS
ZERO RETRY COUNTERS

MOV

uriITNo,raPHC52

TST
BNE
JMP
BITP.

IPIT3,f'IJAG

BEQ
H
JSR
JSR
BP
JSR
CLR
CLR
CLR
CLR
CLR
CLR
JSR
JMP

AB"
SIn
RS,UPDATT
R5, READY
IS
PC,NOTRDY
TrYI
nY3
TPY5
TRY?
TPY9
TRy! I
R5,'RITE
FETRY 1
BIT~
IBIT2,FLAG
BEQ
GOA
BICA
'PIT2,fLAG
MOV
'-I,BLKI
JMP
STilT
JSR
R5,WRITCK
J"P
RETRY2
JSR
R5,REAO
J"P
RETRY!
CDATAS,BEGIN,RBUFPA

YES

WRITE SOME DATA
IF ERRORS, TRY IT AGAIN
OISK OVERFLO, 1
NO, CONTINUE
YES, CLEAR OVERFLOW FLAG
RESET BLOCK I
CONTINUE
WRITE-CHEO THE DATA
If ERRORS, TRY AGAIN
READ THE OATA "RITTEN
IF ERRORS, TRY AGAIN
REQUEST FOR MON ITOR TO CHECK DATA
IF ERROR, CONTINUE

.+2

ENDITS,BEGIN
17757.4

'102210" '~00167

177564

''''2214' 105267
~"2220' 122767
002226' 001402

JMP

ENDS,BEGIN
003324
000003

~XTll

003316

177650

JMP
RETRY11 INce
CMPB
BEQ
JMP

,GET NEXT DRIVE
, COUNT THE RETRYS
I LIMIT EXCEEDED

, YES

GOS

4~0

002242' 000167

000064

4"1
402
40)

003273

404

002246' 105267
002252' 122767
002260' 001402
002262' 000167

405

002266'

406

002266' 104403
002274' 000167
0eHee' 105267

lSI
MSG NS,BEGIN,EXCED2
000000' 005474"
000032
JMP
NEXTA
TRYl
003242
REIRlll INCS

~02234·

002304' 122767

I CROP THE MODULE

NEXT
TRYI
#3,TRYI

002234' \04403

'HHH67

,SIGNAL END OF ITERATION,
,MO"ITOR SHALL TEST END OF PASS
NO, CONTINUE

FINI I

)91
398
399

407
408
409

IGoT PHYSICAL ADDRESS FROM 16-BIT RBUFVA
: SAVf READ BUFFER SIZE
, GET THE 2 's COMPLEMENT
,INIT BLOCK COUNTER

CYCLE I
104413

,,,12200" "'00167
lJ'-'2204"
""2204' 104410

~~2230'

, COlnINUE

SEQ 0010
NEXT.

~Hi"J4!!:l1

lb,
3bJ
lb4

"\".i2t~74"

OVICE
HSTRT

JMp

11NIT UNITNO AGAIN
,SETUP TO fIND DRIVES
I DROP THE MODULE 1
I NO
, YES DROp MODULE

09Z23

kl"2"HH''1'' ,.1"'4767
,,1112V104" {116777

~/a12~n2 ..

TST
S"E

GrIBUFS, BEGIN

RPBI DEC/Ill SYSTEM EXERCISER MODULE

383

Er,o

,SET REGISTER ADDRESSES

RESTAT.

k"~q134"

345
346
347

3H
355
356
357
158
359
3blt
361

; Ei'.lD

(.llOt674; ";1471':17

344

349
3;<.·
351
352
351

11024. WORDS FROH HEM/ITERATION
1256. wORDS TO HEM/ITERATION
13 INTERRUPTS/ITERATION
I ZERO END OF PASS TESTER
ICLEAR DATA LATE ERROR COUNTER
,SETUP FOP 16 BIT MODE (NORMAL)
IGET TABLE or VALUES rOR 16 BIT MODE
116 BIT MODE?
rYES
INO 18 BIT MODE, CLEAR FMT eIT
IGET TABLE OF VALUES FOR 18 BIT MODE
ISEGIN OF TABLE ENTRIES
INO. OF ENTRIES
ISTORE AN ENTRY
,COUNT IT
100 -ORE
ISET ONE TIME ONLY FLAGS
I CLEAR FLAGS
I GET DRIVE INDICATOR
I ALSO SAVE IT IN DRIVE
IRESTORE STACK POINTER
I INITIALIZE BLOCK COUNTER
I INITIALIZE DEVICE COUNTER
,IF RP IS THE LOAD MEDIUM THEN
,BEGIN
I
GET LOAD"DRIVE NUMBEN
I
INITIALIZE DRIVE MASK
I
"HILE R0>0 DO
I
BEGIN
I
SHIFT DRIVE MASK TO NEXT DRIVE
DOWNCOUNT DRIVE #
END
IF LOAD-DRIVE 15 SELECTED, THEN
BEGIN
DEVICE NUMBER TO DROP
DROP LOAD-D~V ICE

, NO RETRY

1$.

"000A0' 005466'

000003

003265

177656

000003

003234

MSGNS,BEGIN,EXCEDI
JMP
NEXTA
RETRY21 INCe
TRY2
CMPB
n, TRY2
eEQ
1$
JMP
GOA

CMPB

#3,TRY3

,ASCII MESSAGE CALL WITH COMMON HEADER
I GO TO NEXT DRIVE
I COUNT THE RETRYS
I LIMIT EXCEEDED
, YES
I NO RETRY
IASCII MESSAGE CALL WITH COMMON
GO TO NEXT DRIVE
I COUNT THE RETRYS
, LIMIT EXCEEDED
I

HEADE~

RPBI DECIXII SYSTEM EXERCISE~ MODUU
XRP8I0.PII
08-FES-79 09.23
410
411
412
413
414

002312' 001402
002314' 000167
002320'
002320 ' 104403
002326 • 000167

BEQ

JMP

177634

18.
000000 ' 005502 '
000000

RPBI DECIXII SYSTEM EXERCISER MODULE
XRPBIV,PII
~8-FEB-79 09,23
415
416
417

.~2]]2' 032767
0N2]40' 001405
.P~342' 004767

000001

418

~~2346'

00~~0~'

419
420
421
422
423
424
425
426
427
428
429
430
431
432
433

•• 2354' .00167

104403

MACYlI 30A00S2)

175456

~ACYII

NEXTA'

0~075.

177420

005524'

lSI

0B-FEB-79

09.26

, YES
, NO RETRY

18
GOB

,ASCII MESSAGE CALL WITH COMMON HEADER
, GO TO NEXT DRIVE

M5GN$,BEGIN,EXCE03
JMP
NElTA

30A(1052)

PAGE 12

08·FEB·79

09'26

PAGE 13

, DROP THE DHIVE
'SIT0.SRI
, NO. SKIP TO NEXT DRIVE
IS
, YES. DROP OFfENDING DRIVE
PC.DPOP
~SGN S. BEGI N. DRP ,ASC II MESSAGE CALL WITH COMMON HEADER
JMP
NOT
, GO ON TO ~EXT DRIVE

BIT
BEQ
JSR

,MACRO
LINEUP

LINEUP
EABITS

EAalTS

LINE UP EA BITS FOR RHC51
LINE UP EA BITS FOR PHCSI

.NLIS!

MOV
ASL
ASL
ASL
ASL
MOV
,LIST
,fNDM

EABITS,p0
P0

p0
R0

P0
R0,XMEM

LINEUP

GET EXTENDED MEMORY BITS
SHIrT 4 PLACES TO THE LEFT
TO LINE UP wITH RHCSI

SAV,; THE SHIFTED BITS

SEQ 0011

RPBI DEC/XII
XRPBI0.PIl
434
435

416
437
438

419
440
441
442

EXERC%SER MODULE
BI.nB-7' 09123

SYSTE~

444

445

45~

451
452
45]
454
455
456
457
458
459
46@
461

002360' 012767
1192366' 016771
002174' 0\6777
0~2402' 016777
0~2410' 004767
002414 ' 016777
11112422' 016767

000161

002450' 000167
;102454' 012767
~'l2462 ' ~16777
002470' 016777
U~2476 ' 016777
002504' 004767
~~2510' 016777
"~2516 ' 016767

0110106
000151
175672
175440
175644
001422
175544
175540

002544 • 000167
\"0255(11- 004767
002554' 016700
~0256~' 004767
002564' 000205

000212
0P.1I16
175476
001172

012767
' "16777

000171
175562
175320
175532
0~13! e
175432
175426

~'~)2566 •
~02574
(I!~26~2'

~16777

402

(1102610'

~16777

463
46"
465
466

~02616' ""4767
"02622' 016777
I'M2611~' 016767

461

e\12t1S6" ""0441

RPBI O~CIX11
XRP8I0.PII

175766

175534
175740
001516
175640
175634

175702
176716
176772
176766
177082
178630

~l02"6~'1·

~"2666'

f\16177
011777

"~12674"

~''''0240

471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
499
49"
491
492
493
494
495
496
497
498
499

"'(<1267&"
Vl027P-Vl'

5~1

"""""2401

1755M
0"~.11

00~'H"'\·

0"'~1i''''~·

~16777
0"'~205

0"2762' 016777
f'02770' 012777
"02776' 032767
"')30M' 001434
""3""6' 1117767
"~3014' 006267
00302.' 006267
003024' 006267
003030' 006267
0030)4' 104416
".3042' 016777
003050' 016777
""3056' 042767
003064' 000367
003;)70' 016767
003'76' ~56767
~0JIM' 016777
1I~3112' 104400

NOV
MOV
MOV
MOV
JSR

PAGE 14

~OV

MOV
LINEUP
JMP
WUTCU MOV
~OV

MOV
~OV

J5R
~OV

MOV
LINEUP
J~P

UPDATTI JSR
MOV
JSR
RTS
175474
176570
176564
176560

176574
175422

176512
176474

MOV
MV
MOV
HOV
JSR
MOV

CLEAR I

LOAD WRlT! 'UNcnON
LOAD WORD COUNT
LOAD 8urrER ADORES.
LOAD DISK ADDRESS
CHECK rOR RPe6 DRIVE
LOAD CYLINDER ADDREal
REITORE CALCULATED CYLINDER ADD REa.
LINE UP EA 81TS FOR RHcal
CONTINUE
LOAD WRITE·CHECK fUNCTION
LOAD WORD COUNT
LOAD BUrrER ADDRESS
LOAD DISK ADDRESS
CHECK FOR RPe6 DRIVE
LOAD CYLINDER ADDRESS
RESTORE CALCULATED CYLINDER ADDRESS
LINE UP EA BITS FOR RHCSI
CONTINUE

1171 ,FUNC
WCNT2,fRHWC

LOAD READ "UNCTION
LOAD WORD COUNT
LOAD BUFfER ADDRESS
LOAD DIsK ADDR~SS
CHECK FOR RP06 DRIVE
LOAD CYLINDER ADDRESS
RESTORE CALCULATED CYLINDER ADDRESS
LlhE UP EA BITS FOR RHCS!

R8UFPA,~RHBA

LINEUP
BP

OSKADR,'RPDA
PC,RP06CK
CYL,8RPDC
CYLSAV,CYL
RBUFE.
GOGO

30A(1052)

.8.FEB·79

MOV

~ACYll

U6I,rUNC
WCNTI, fRHWC
WBUFPA,.RHBA
DSUDR,.RPDA
PC,RPe6CK
CYL,UPDC
CYLUV,CYL
WaUFEA
GOGO
1151 ,rUNC
WCNTI,UHWC
wBurPA, UHBA
DSKADR,.RPDA
PC,RP06CK
CYL,.RPDC
CYLSAV,CYL
WaUFEA
GOGO
PC,BLOCK
8LK1,R0
PC,CONVRT
R5

_OV
MOV
MP

UOITNO,@P"CS2
_II,'RKCSI

Nap

1~4407

002704' 1 "4407
"~2710' 012777
''''2716' 105777
~02722' 1""405
~"2724' '"4407
~"273~' 104407
002734' 000770
0.,2736' "12777
\102744' ~!2777
"~2752'
rtI")276\~"

WRITEI

176706
175534

EXERCISFR MODULE
"8-FE8-79 "9121

4~9
47~"

502
503
504
505
506
507
508
509
510
511
512
513

175606
176702
176676
176672

SYSTE~

46"

500

09126

IEQ y~U

RP DUK DRIVERS

443

446
447
448
449

n·yn-a

MACYI! 30A (1052)

0~0"21

176446

176452
lSI

BREUS,BEGIN
SREUs,BEGHJ
MOV
'2I,@PHCSI
TSTS
,RhCSI
eMI

~"J"'0!00·

BREA~$,8EGIN

0~0~~0·

BREAKS, 8EGI~

177777
04000.
175410

176442
176416
176442

175376 176410
003116' 175012
001000 1'5052
176362

281

GOGOI

175262

175~60

175254
17525~

175244
0"~00"'·

1752)4
175230
0"0034
175214
17521P
175176
17516~

000276'
176324
176362
175220
175202
175164
176256

~OV

.-1, '''PAS
,BITI4,'RHCSI
MODI,@RPOF

MOV
MOV
pTS
MOV
MOV
BIT
SEQ
MOV
ASR
ASR
ASP
ASR
MAP22S,
MOV

Mev

lSI

01'1t"00p'#

NTRUPTI

003116'

81'

1'5

CO~TI~UF.

09126

PAGf. 15

I LOAD UNIT ADDRESS
I ISSUE A DRIV~ CL~AR
IWAIT
IFOR DRIVE CLEAR TO fINISH
ITEMPOPARY RETURN TO .ONITOR ••••
ITHEN CONTINUE AT NEXT INSTRUCTION.
IISSUE A pACK ACK
I fUNCTION DONE 1
I YES, CONTINUE
ITEMPORARY RETURN TO MONITOR ••••
ITHEN CO~TINUE AT NEXT INSTRUCTION.
I NO, WAIT TILL DO~E
ICLEAR AS BIT
I CLEAR A~Y CONTROLLER ERRORS
I SET BIT FOR II FONHAT
I RETURN

UNITNO,'RHCS2
LOAD UNIT SELECT
,NTRUPT,nECTOR I SET INTERUPT ENTRY POINTER
'ADDR22,RESI
1111701
1$

aRHSA,PAIS
X'·EM
XMEM
X_EM
X"E.
e~GIN,PAIS

PA 22, 'RHSA
E.22,aRHBAE
134,E'22
EA22
E'22,XMEM

eIC
SWAB
MOV
BIS
X~·EM,FUNC
MOV
FUNC,'RHCSI
EXlTS,BEGIN

'.0
IGET 18 BIT ADDR

ISHIFT EA BITS TO POSITION 4,5

I GET 22·6IT ADDR FRO~ 18.BIT ADDR
ILOAD SA REG
ILOAD BAE REG
ICLEAR UNWANTED BITS
ILOAD INTO 8ITS 8,9
ILOAD XHEM TO SET INTO FUNCTION CODE
ILOAD EXTENDED MEMORY BITS
IEXECUTE THE fUNCTION
IEXIT TO MONITOR, MODULE WAIT FOR INTERRUPT.

,.................................
-..............................
I QUEUE UP TO CONTINUE AT 18 AND PTI

PIRQ8,BEGIN,IS

I····················································· .....••....

003124' 004567
1103130' 000205
0113132' 005725
003134' 005725
003\36' 000205

0~0224

\$1

JSR
RTS
TST
TST
RTS'

R5,ERRORS
R5
(1'5)+
(1'5)+

GO CHECK FOR ERRORS
ERRORS DETECTED, RETURN
NO ERRORS, SKIP RETRY
RETURN OK

IIPaI DECIXII SYSTEM EXERCISER MODULE
XRPUS,PII
n-na-19 S9123
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
5]2
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565

""3140' 016700
0011U' 016703
IInUII' 132767
003156' 001451
003160' 142767
1103166' 1116701
003172' 162701
"03176' 005002
00320'" 160001
003202' 022701
003206' 003435
003210' 022701
003214' 0113005
003216' 152767
003224' 162701
"03230' 005701
"0]2]2' ~03425
003234' 062702
~0l240' 005301
~0]242' 003372
0<13244 ' 005703
003246' 100007
"03250' 1142703
003254' 132767
0n262' 001411
0113264' 000404
003266' 132767
003274 ' 001002
~03276' 020203
003300' 002402

179112
174772
000002
000001
175124
0110003

002334
III

002000

002276

000001

002264

000001

002244

ShE!:

569
57~

571
572
573
574
575
57.
577
579
579
580
581
582
593
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604

003342 ' 104420
"H:Jl35~· 005534 '

~05777

~32777

~1I3510' 001036
1101]512' 005777
00]516' 001033
~hH52"'- 005067
~0]524'

104405

003532' 000452
"03514'
~03514' 104403
~03542' 032777
003550' "01416
003552' ~12767
00356'"

481

TST
PTS

511

DROPI

175~36

18'

1750e6

000~"'''·

211

0(110364"

104406

003566' 0011434
003570'
00357W 104403
003576' 11004e3

R3
2.
,BITI5,R]
.BlT0,rLAG
58
]8
,BIT0,FLAG
48
R2,R]
58

ZERO REG. 2
GET NUMBER Of BLOCKS LEFT ON DISK
MORE THAN 64 BLOCKS LEfT 1
YES
MORE THAN 32~ LEFT ?
NO, CONTINUE
YES, SET THE INDICATOF
SUB Til ACT 32K WORTH OF BLOC~S
ANY BLOCKS LEFT ON DISK 1
NO, FETURN OK
GET TOTAL » OF WORDS LEFT
ALL BLOCKS ADDEO IN 1
NO, KEEP ADDING
REQUEST LARGER THAN 32K 1
NO, GO CHECK THAT CONDITION
YES, GET RID OF 32K
MORE THAN 32~ LEFT 1
NO, FETURN OK
YES, GO COMPARE
MORE THAN 32K LEFT 7
YES. PLENTY OF ROOM, ERROR
ENOUGH ROOM fOR THE TRANSFER
NO, IIETUFN OK

(R5).
R5
#AIT2,FLAG
F5

YES, MUST BE A REAL ERROR
IIETURN, ~RROR
SET OV~RFLOW fLAG
RETURN OK

'SITIl,FLAG
132.,Rl
III
58
U024, ,R2
RI
18

--------_....

INITIALIZE DROP PICKEP
MOV
GET THE DRIVE NUMBER
BEQ
IF DRIVE 0 GO DROP IT
pi
POINT TO NEXT DRIVE
ASL
Rv
IS THIS THE ONE ?
DEC
NO, LOOK AGAIN
8NE
II
DROP THE DRIVE
BIC
RI,DVICE
,***************************************************************
,CONVERT UNITNO TO ASCII AND
'STORE AT AIIFI
OTOAS.BEGIN.UNITNO,ADRI
~OV

'I, III
U'ITNO,R0
25

'**************************************************************
, RETURN
PU
PC

_.... ------- _.. -- .... _.. _...... ---

~ACYII

30A(l052)

08-FEB-79

09,26

PAGE 17
S~Q

ERRORS' TST
'~hCSI
BMI
228
RESYNC
0~~]00
JMP
0Pl0fW 176010 2251
BIT
'BIT9, tPPP;R I
BEQ
IS
R5,ROO~
177536
JSR
BF
RFSYNC
00200. 175770 lSI
.BITI0,@RPOS
BIT
BNE
FFSYNC
001152
PC,ERSUBI
JSR
TST
~RHCS2
175754
BPI.
lIS
aLTCN!
INC
1746~0
0000V4
174356
.8IT2,5RI
BIT
BNE
8$
flA"0091- 005510'
MSGNa,BEGIN,DLTERR
eR
98
020000 175710 1181
ISlT13,@RHCSI
BIT
SNE
38
,AIT8,@PHCS2
000400 175710
IlIT
eNE
4S
0411P00 175670
,e IT 14, _FHCS I
BIT
BNE
28
040000 175672
leITI4,~RPD5
BIT
BNE
58
175670
PFPAS
TST
8NE
5.
174362
CLR
EPRTYP
176"10

001370'

000000' 005452'
062000 175630

!Y~S

, LOAD ERPOR INfORMATION
,15 ThIS A DATA LATE ~RROR?
,NO
,ADO I TO DATA LATE COUNTEII
'TYPE ERROR AND COUNT IT1
,NO
'ASCII MESSAGE CALL wITH COMMON HEADER
,CONT
, MASSBUS CONTFOL PARITY ERROF
, YES
, MASSBUS DATA PAFITY ERROR ?
, YES
, TFANSfER EIIROR 1
, YES
, ANY DUVE EFiIORS
, YES
, ANY ATTENTIONS ACTIVE
, YES, CONTINUE
,UNKNOWN EIlIlOF

000030

174326

00~0"0-

001370'

_4.*._ ....

HRDEF.,BEGIN.TABLE

, SPECIAL CONDITION SET BUT NO REASON FOUND

, RETURN

, ••• *••••••••••••• _•••••••••••••• _••• _•••••••• _••• _••• _**4* •••••

211

951

MSGN.,BEGIN,TREFR
,ASCII MESSAGE CALL WITH COMMON HEADER
,aITI4IBITI]IBITI0,PRHCs2 ,SOFT EIIROR?
BIT
BEQ
51
,HARD ERROR
MOV
I 30,ERIITYP

J •••• -_ ••••••••••••••••• - ••••••••• _-_ ••••••••••••••••• *4*.* ••••••

SOFER8.BEGIN,TABLE

,TRANSFER ERROR

r·····**··.·······_·_-_··.··_··_··_--_··········.·
...............
8.

eF
3..
000000' 005456'
481

lHU600"

003600' 1044113
003606' 005777
003612' 001402
~03614' 004767
00362~' 016700
003624' 105777
~036]0' 100403
003632' 012767
003640' 012767

000000' 005462'
175574
581

003646' 104405

000000' 001370'

000566
175566
175550

'81

000344' 175552
00001~
174240

781

MSGN.,BEGIN,MCPERR
51
BR

,ASCII MESSAGE CALL WITH COMMON HEADEP
, GO DUMP REGISTERS

MSGN.,BEGIN,MDPERF
,RPAS
TST
BEQ
68
PC,WHO
JSR
FHDB,R0
"OV
TSTB
'RHCS2
8"1
MOV
'ZERO,RHDB
MOV
U0,EIIRTYf

,ASCII MESSAGE CALL WITH COMMON HEADER
, ANY ATTENTIONS ACTIVE ?
, NO, CONTINUE
, YES. tIND OUT WHICH DRIVE IT IS
, SAVE ADDRESS OF DATA BurFER
, CAN DATA BUrrEll BE READ 7
, YES, CONTINUE
, NO. LOAD ADDRESS OF ZERO
,ERROR DURING DATA XFER

HRDER, ,BEGIN, TABLE

, DUMP RHll AND RP REGISTERS

0016

, ATTENTION OR ERROR 1
'YES
,NO GO ON TO NEXT fUNTION
, ADDRESS OVERfLOW 1
, NO, CONTINUE
, YES, 15 IT A REAL EFIIOF
, NO, CONTINUE
,DID LBT sET1

, •• *.**_ •••••• _••••••••••••••••• - •••••••••••• _••••••••

000~00-

b05

606
607
608
6119
610
611
612
613
614
615
616
617
618
619
620
621

SEQ 0015

BIS~

PAGE 16

SAVE THE CURRENT 8LOC~ NUMBEII
GET THE TRANSFER SIZE
PLENTY OF 1I00M LEFT 7
YES, CONTINUE
CLEAII 32K INOICATOR
LOAD MAX. NUMBEII OF BLOCKS

WBITIl,FLAG
MHICY,1I1
U,1I1
R2
110,Rl
.64 .. 111
48
#32"RI

.......... ----- -_ ......

000207

mn36""- 100402
003362' ~00167
"f'3366, 032777
"W)l7'- 001403
"0]]76' 0~4567
003402' 00053\
u"'34tt4- "]2777
003412' 001125
~03414' 004767
(It-tJ420- 005777
""13424- 1"0012
"'''1426- 005267
"'~)412' "32767
0034416- 001107
003442 ' 104403
1'03450' 000440
WI~1452' 032777
M0346k1- 001043
00]462' 032777
"":13470' 001043
"JJI'1472 .. 032777
"l015~Hi· M1015
ltlfllS02"

C~P

~~1403

O~33]0 ' "06301
~0ll]2' 005300
00ll]4' 00\375
003336' 040167

N)ll54'

3S1

19126

WBUFSZ,U
,BITI,FLAG

BEQ
BICB
MOV
SUB
CLII
SUB
CMP
BLE
CMP
BGT
BlSS
SUS
TST
BLE
ADD
DEC
BGT
T5T
BPI.
BIC
BITS
BEQ
BII
BITS
SNE

RTS

RPBl DEC/XII SySTEM EXERClSF.R MODULE
XRPSHt.Pl ,
"8-FEB-n 09,2]
5&6
567

2$1

n-FEB-a
BL~I ,R0

BLT

012701
~~3322 ' 0167€0

~01152 '

002372

100000
000001

MOV
MOV

BITB

11112402

0000411
000001
000040

000004

C~ll26'

ROOM,

000100

003302 ' 005725
0113304' 000205
~~ll06' 152767
"fllll4' 0~0205
~03116'

MACYll 30A11e52)

, ••• *** •••••••••••••••••••••••••••••••••••••••••••••••••••••••••

RPBI DEC/XII 5YSTE" .XERCISER MODULE
XRPB10,PII
08·FE8-79 09123

MACYII 30A(10521

003654' 010067
003660' 004567
Pl3664' 000205

PAGE 18

,.***********************.*.************************************

175532
176774

B$I

PPSI Of-C/X, I SYSTf.M E"XERCISER MODULE
XRPb10. PII
"B-FEB-79 09,23
"26
627
62e
629
'3 e
631
b32
633

09126

SEQ 0017

622
623
624
625

08-'ES-79

f'~CY11

Mev
JSR
RTS

Re,RHDS
RS,CLEAR
R5

Q,8-fEf'-79

30A(H'521

, RESTORE DATA BurrER ADDRESS
,GO CLEAR OUT ERRORS
, ERRORS DETECTED, RETURN

~9'26

PAGE 19
SEC; "018

Ih13b6&~

0"5725

FESYNC' TST

HI:l3b7!~"

(/.tIH~2f'1S

~TS

ERRORS, SKIP BETH

(P5)+

RETURN OK

:THIS ROUTI". DETrS.IN.S IF T~ERE IS ENOUGH ROO:--, Ot: THE DISK TO
:00 ANOT~FB TRANSFER. IF" "-lOT, PROG~AM ~OE5 TO RESYNC TO
; ~LLO\l, BOTH PROCESSORS TO RE.SYNC AND TO HESTART.

634

ov,3672' v.' 052&7

17436~j

635
636
637
638
b39
640
641
b42
643
64'
045
646
647

~1~~3&7b'

132767
"01012
Oi'1J7~b' ',26767
~,0i) 714/1
1010\7

0"J\1II\(12

~~\'\3716'

~0I5067

17433 4

~l~'3722'

152767

12J~""~02

~~I·n730"

000411

BLOCf,

001654

1144W2

Ih13732' 026767
~l~\ 3 7 40'
1')1005

17436.

005067
;.).'3746/1 142767

17431"

(:'(,1]742/1

~hH754·

"~~2'7

INC

e!,n

HITP

IF-IT1,FLAG
IS
M[,OWCY. BLK I

BNE

\J';l)7¥'4/1

~0\'002

CMp
BHI
CLF
BISB
BF

174342
00163~

174316

IS'

001604

C-P
BRI
CLR
BIC~

26'

FTS

2$
BLKI
•• ITI,FLAG
26
""IcY, BLK 1
2$

BI.1<1
.RITI,nAG
PC

, STEP TO
BLOCK
OR HIGHER 1
• IN CYLINDER 512.
YES, GO ADJUST BLOCK
• OR LOWER 1
,, BLOCK • IN CYLINDER 512.
YES, RETURN
NEXT

S(,OCK

•

NO, RESET BLOCK
HT HIGH RANGE fLAG
RETURN

•

BLOCK
IN WITHIN RANGE
YfS, RETURN
NO, RES;;T BLOCK
SET FLAG TO LOwER RANGE FOR NEW PACK CYCLE
RETURN

•

liPS! DEC/XII aYSTEM EXEACISER MODULE
XIIPB10,'II
"'-rEB-n .9123
648

64,

651
&12
683
614
655
656
651
658
689
6611
661
662
663
664
665
666
661
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683

684
685
686
687
688

689
690
691
692
693

,"n56' 1111.61
•• nu' e... 67
003766' Ilse67
803772' 8167'1

114276
174276
•• 1567

CONVRTI CLII
CLR
CLRB
MOV

CYL
IEC
TIIK
MBLKTII,IU

1183776' "167ez
1184.U' 132767
111114.1'" ".141l
."41112' 812767
'8482" 1128181
1104822' 103404
0114824' 8115267
004030' 168181
004032' 0111111772
004034' 02011112
004036' 1111241114
004048' 105267
004044' 1611211111
004046' 080772
11041150' 1115711111
004052' 0111485
004054' 062767
0"41162' ""5300
004064' 000771
004066' 122767
004074' 11011187
11104076' 826767
004104' 00101i13
1104106' 162767
004114' 016767
""4122' 116767
004130' 00021i17

174384
8.8082

".l5se

InU2

174241

MOV
BITB
BEG
MOV
CliP
aLO
INC
8UB
III
CliP
8L!
INce
aUB
811
TST
BEQ
ADD
DEC
BII
CMPB
BNE
CMP
8NE
SUB
MOV
MOVB
RTS

M8LKIIV,R2
nnl,FLAG
18
.418 .. CYL
III1,RI.
2'
CYL
111,118

RP06CKI MOV

CYL,CYUAV

004132' 016767
0!!4140' 022777
1104146' 001413
004150' 022777
~04156' 1101407
""4160' 132767
004166' ""1403
~04\ 70' 162767

I7UU

2$1
001515
311
8""""4

174202

000022

001465

174210

174160

800002
174144
0014JJ

174150
174224
174217

174122

174122
175250

024~22

1i120~22

175240

000002

001372

11110632

174062

004176' 000207

70~

7I!> I
7~2

703
704
705

"'0420"'- 005267
,",11'14204"

142767

tHl4212" 022767

001404
006267
103364
M00411
UII4232' 152767
G'H240" 012767
0'·'4246· 016767
004254' 0"0207

'''0422e''
0,,'4222"
"J"'4226"
f'''423'''·

181

174230

511

174160
000010
0~0(1tl~1

001346
174144

174124
0011010
177777
I74V76

A01320
174116
174076

C~P

BEQ
CMp
BEQ
BlTP.
BEQ
SUB

~ACYII

71~

716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733

SEQ UI9

CLEAR aUK ADDRElIES

110,112
3$

TIIK
R2,A0
2f

110
4$

",SEC
R0
U

118 .. TRK
5.
MODE,SEC
5.
n,SEC
UC,DSKADII
TRK, DSUDh I
PC

RTS

'24~22,.IIPDT

120U2, UPDT
IS

'BITI,FLAG
IS

1410. ,cn

PAGE 20

LOAD IIEG, I WITH ILK 'ER TUCK
REG e HAS BLKI (BLOCK I) IN IT
LOAD IIEG. 2 WITH ILK PER REVOLUTION
SLOCK • ON CYLINDEA 512. OA LOWEll 7
YES, CONTINUE
NO, LOAD HIGH BAS! VALUE FOR CYLINDEII ADR,
CORRECT CYLINDER rOUND 1
YEll, CONTINUE
NO, STEP TO NEXT CYLINDEII
SUB Til ACT I CYLINDEII FAOM BLOC~ •
CONTINUE UNTIL COIIIIECT CYLINDER 18 FOUND
CORIIECT TRACK rOUND 1
YES, CONTINUE
~O, 8TEP TO NEXT TRAC~
SUBTRACT I TIIACK FIIOM BLOCK ,
CONTINUE UNTIL CORIIECT TRACK IS rOUND
CORRECT SECTOR rOUND ?
YES, CONTINUE
NO, STEP TO NEXT 11124 WORDS
DECIIEASE BLOCK • BY 1
CONTINUE UNTIL CORAECT SECTOR IS FOUND
LAST TRACK?
NO, CONTINUE
YES, LAST SECTOR 1
NO, CONTINUE
YES, ADJUST SECTOR SO NO OVERfLOW
LOAD SECTOR INTO DISK ADDRESS
LOAD TRACK INTO DISK ADDAESS
RETURN

ISAVE THE CALCULATED ADDRESS
IDUAL pORT RP06 1
IYES
INO ••• SINGLE PORT RPII6 1
IYES
INO ••• RP04/5 - HI-RANGE BIT SET 7
INO ••• DON·T wORRY ABOUT UPPER CYLINDERS
IYEs ••• TRUNCATE HI-RANGE RP06 ADDRESS INTO
1410 CYLINDER RP04/RP05 RANGE

. __ .-----------.-----_._.

30A(\052l

08-FE8-79

09126

PAGE 21
SEQ "~20

FDUNITI HJC
SICB
CMP
SEQ
ASR
BCC
BR
8IS8
lSI
MOV
MOV
28/
RTS

UNITNO
'PIT3,FLAG
.8.,UNITNO
1$

DRIVE
YDU'IT
2$
.RIT3,FLAG
'-I,UNIT~O

DVICE,DRIVE
PC

--_ ... _--------------_.-.

7~6

707
708
709
710
711
712
713
714

19126

... ----_._- .... -....... _.

lSI

IIPBI DEC/XII SYSTEM EXERCISF.R MODULE
XIIPBI0.PI I
08-FE8-79 0912]
694
695
696
097
698
099

ea·ra:s·1g

MACYII )eAIIU2)

COUNT A DRIVE
CLEAR END or DRIVES FLAG
ALL DRIVES CHECKED 7
YES, GO FLAG END OF DRIVES
NO, IS NEXT DRIVE CHOSEN 1
NO, GO TRY ANOTHER DRIVE
RETURN
SET E'D OF DRIVES FLAG
RESET DRIVE COUNTER
RESTORE CHOSEN DRIVES
RETURN

;SEIZE THE DRIVE BY READING CSI REG
004256' ~12767
004264' 005077
~"4270' 032777
004276' 001013
"04]00' 1"'4407
""4304' 104407
~'04310" 005367
"043\4' 00U6]
"04316' 104403
""4324' 000405
004326' 004567
004332' 004567
0~4J36' 000422
0~U40' 004767
~0U44' 012767

,77777,CLK
NOTIIDYI MOV
I SET THE TIMER
411
CLR
~RPCC
IGRAB THE DRIVE
BIT
.RITII,ORHCSI
175A72
100 I HAVE THE DRIVE DVH
eNE
IYES
28
BREAKS, BEGHI
ITEMPORARY RETURN TO MONITOR ••••
00"000'
0~000~·
BREAKS,BEGIN
ITHEN CONTINUE AT NEXT INSTRUCTION.
CLK
ICOUNT • OF TRIES
173740
DEC
BriE
INOT DONE rET
4S
MSCNS,BFGIN,NOT I ASCII MESSAGE CALL WITH COMMON HEADER
00th~e0· "05514'
5$
ICOULD .OT GET DRIVE
BR
R5,CLEAR
176326
2$1
JSR
I RESET THE CONTROLLER AND DRIVE
0R~122
RS,READY
IS DRIVE READY 1
JSR
BR
IS
I YES, CONTINUE
000226
5$1
PC,EIISUBI
JSR
I LOAD ERROR I~FORMATIO~
MOV
0A0A06 173534
IDEVICE OFF LI~E
",ERIITYP

1>04352' 104405

000C1J00-

004360' 012777
004]66' 004767
004372' 104403
004400' 000167
004404' 000207

077777
175136
004000

173770

'***************************************************************

HPDER$,BEGIN,TABLE

001370'
175002

8"001l
176724
800000' 005524'
175600

I COULD NOT GET DRIVE ••• TIME-OUT

r***************************************************************

1$1

MOV
rRELEASE DRIVE
'1l,'RHCSI
PC,DROP
JSR
I NO. DROP THE DRIVE
IISGNS,BEGIN,DRP IASCII MESSAGE CALL wITH COMMON HEADER
JMP
FINl
ICOULD NOT GET DRIVE DROP MODULE
IRETURN
IITS
PC

.-.------------._------.-

RPBI DEC/XII SYSTEM EXE~CI.ER MODULE
liB-FEB." It, U

XRP8I0,PI\

734
735

11044 •• ' 017"1

11114412' 017714

736
737

004416' 012712
004422' elluu

741

""4432' 0eU02
004434 ' 032702
111'14440' 001771
004442 ' 000207
004444' 042704
0~445~' 050]04
~~4452' 010477
~04456' 000207

738
739
740

742
743
744
745
746
747
748

749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
7b6
767
7&8
7&9
770
771
772
773
774
775
776
777
77F
779
780
781
782

~"4424'

WHO,

174774

174762

0000el

18,

0114426 ' 0111006
0\14430' 005203

016777
1117700
004472 ' 105700
004474' 111",,22
""4476' 032700
"04502' 001417
01145~4' 032700
I't"4510" 001414
0,,45\2' 0327"0
0"4516' 1'''1011
~104520' 032700
"04524' 0~'14"6
~04460'
0~H66'

HU4526"
~04532'

~32700
"~1003

•

fIIIT0,U

n,RI

aN!
INC

.UT',R2

BEQ

000007

211

PC
n,R4
R3,R4
R4,9RHCS2
PC

BIC
B18

MOV
RTB

174722

.......•..............•..

173700
17471~

174712

READY,

MOV
MOV
TaTB
BPL

UN %TNO, .RHCS2
.RPDS,RIl

BEQ
BIT
eEQ
81T
BNE
BIT

0004110
004~00

010~~"
0400~0

~04540 " 'J0~205

"04542' 005725
0<)4544' 00~2~5

1$1

1>5

-(Rt) ,ASB
RI,SAADI!
-(R2),AWAS
R2,WASADII
(Rl)+
(R2)+

LOAD THE OATA
J.OAD ADDRESS OF DATA WRITTEN
LOAD THE OATA
LOAO ADDRESS OF DATA READ
RESET REG. I
RESET REG, 2

RHCSI,CSIIA
ARHCS1,ACSR

LOAO ADR
CURRENT CSR
LOAD CONTENTS OF CURRENT CSR
RETURN

,BIT6,R0
.BIT8,RIl

,SITII,R0
IS

,aITI2,R0

BEQ

"04534' ""5700
liW4S36" 100401

LOAD UNIT ADDRESS
SAVE STATUS IN RII
DAl VE READY 1
NO
VOLUME VALID 7
NO
DRIVE PRESENT 1
NO
WRITE LOCKED 1
YES
~EDIUM ON LINE
NO
ANY ERRORS 1
YES
ATTENTION SET
YES
RETURN READY
SKIP INSTRUCTION FOLLOWING CALL
RETURN AS NOT READY

BIT

00"1~~

IEOIlUI

GET THE ATTENTION SUMMARY
lAVE THE STATUI REGISTER
aET POINTER TO DRIVE •
IERO THE DRIVE COUNTER
UNO IT 7
CONTINUE
NO, INCREMENT THE DRIVE COUNTER
lET POINTER TO NEXT DRIVE
ALL DON! 7
NO, GO AGUN
aOM!BODY LIED •• NO ATTENTIONB SET
CLEAR OUT OLD UNIT NUMBER
LOAD THE NEW UNIT NUMBER
RESTORE THE STATUS REGISTER
RETURN

U',

RJ
R2

BIT

e"040~

.eITI4,R0

BIT
BNE
TST

e~I

PTS
TST
RTS

115
(115)+

.-.. ...-....-.----..~.--

004546' 014167
~04552' 0\0167
"""4556" 014267
0M562' 010267
~04566'

fM'457V1"

ERBUB21

173334
173324
173326
173316

005721
005722

.,04572' 016767
01t460~' "17767
0t'4606! 009207

174572
174564

173300
173274

004610· l'12777

004616' ~12777
k'ftl4624"

~12767

0~4632'

105777
100417

~h~4616·

00"'P4'~

177777
077777
174532

174562
174562
173422

ERBUBII

~OV

MOV
MOV
MOV
TST
TST
~ov

~ov

PTS

~ACYll

30A(1052)

08.FES-79

09126

PAGE 23
SEQ

REZET,
lSI

~OV

MOV
MOV
TS18
BMI

'9IT5,aRHC52
j-I,PRPA5
'77777,CLK
ORHCSI
2S

, ISSUE AN RHII l~IT
,CLEAR ALL ATA BITS
SET THE TIMER
I CONTROLLER READY 1
, YES, CONTINUE

0£.1464r" 104407

01-'f00v.'(4"

BPEAKS,~EGIf.l

'TEMPO~ARY

0(0)00~~''

BREAU,HCt'"'
DEC
CLK

,THEN CONTINUE AT ~EXT INSTRUCTION.
I ~AIT SOME MORE 1

RETURN TO MONITOR ••••

~)"'4644·

104407

0e4650"

~05J67

0':"4654"

001366
ep.5067
012767

BIlE

H1014662·

173466
000003

173216

CLR
HOV

DVICE
i),ERRTYP

, NO, SET TO DROP THE ~ODULE
,CONTROLLER NOT READY

()"467V"

104405

0(-'0"'01.1'

0~1370'

HRDERS,BEGIN,TABLE

~'04676 '

~00207

~"'465&·

17340"

YES

,******************.**********************************1"4" ••••

800

801
802
803
804

.RHcn,M

CLR

PAGE 22

"'126

UPAi,RI

AIIL

RPBI DEC/XII SYSTEM EXERCISER "ODULE
XRPBI •• PII
08-F£8-79 09123
783
784
785
78.
787
788
789
790
791
792
793
794
795
796
797
798
799

MOV
MOV
MOV

unel

U-rEl-a

"ACYII leACle52)

2$1

, CONTPOLLER NOT READY

J***-'-""**-'---'--'-*-""'--*--'-----'--'-"----"***f.","
PC
I

RTS

RETUR~

0022

liPS! D'C/XII
XRPB10,PII
805

'06
807
808

'09
810
BII
812
813

Bl4
815

816
817

818
819
82~

821
B22
823

824
825

826
827
828
829
830
831

832
833
934
835
836
837
838
839
840
841
842
843
844
845
846
847
849

849
85"
851
852
853
854

SYST!~

EXERCISER MODULE
08-,.1:8-79 09123

1104700' 016700
"0.704' 0111067

1'04710' 005720
0e4712' 010067
004716' 005120
004720' 010967
004724' 005720
004726' 01"067
004732' 005720
004734' 01111067
004740' 005720
004742' 0111067
004746' 005720
~04750' 010067
004754' 005720
004756' 010067
004762' 005720
004764' 010067
004770' 005720
004772' 010067
004776' 005720
1/105000' 010067
005004' 005720
005006' 010067
1'05012' 005720
0"5014' 010067
"05020' 005720
"05022' 0\0067
005026' 005720
"05030' 010067
005034' 005720
005~36' 010067
e05042' 005720
"-1",5044" "10067
00505~' 005720
005052' "10067
005056' ~0572~
"05060" 0100b7

005064'

1711112
17446\\

UTUPI

174454

MOV
T8T
MOV
T8T
MOV
TST
MOV
T8T
MOV
TST
MOV
TST
"OV
TST
MOV
TST
MOV
TST
MOV
TST
HOV
TST
MOV
TST
I'OV
TST
MOV
TST
MOV
TST
MOV
TST

174444
174440
174434
174430
174424
174420
174414
174410
174404
174400
174374
174370
174364
174360
174354

~OV

174350

'H' 5126" 11671~
"'05132 ' ."0207

174344
001001"

86~

Rbi
962
863
864
865

17433(1

MOV

174324
172b66
001754 '
172660

lSI

2S1

86b

867
968
869
870
871
872
873
874
875
876
877
S7S
979
6B0

B81
882
883
BB4

885
886
887
888
889
890

891
892
993

894
895
896
897
898

899
~00

901
902
903

904
905
906

907
908
909

910

\11~5134 ..

~20040

("1('5142 •

051124

047101

~43123

~51105

P20~4~

('H~5150'

~511?'5

047522

~22522

0~5156'

~00

;)05157'

04~

04644~

PV15164' "41123
'H"5172' v4V)S2\1)

051525
044522

~~52"'1r1"

"20040
022522

~51H15

~(.152V1b"

ll05211 '

04_

04644"
051525
040524
044522
051105

.05216' 041123
'-'05224' M0504
~~5232' 040520
005240' 020040
005246' 022522
Vl")525t ..
040
"05256 • V,42526
~05263'
040
005270' 050120
"05276' "51040
~05304' 042440
005312' ~42504
~105317"

040

005324'

~52111
~20040

fIIP53]~~"

0"5336' 042524
'1"'5344 II' 045503

0~S474'

005330'

TST
MOV
MOV
MOV
MOVe
RTS

MACYII 30A(l052)

PAGE 24

09126

SEQ

~~H

SEQ

0~24

GET DEVICE ADDRESS
GENERATE REGISTER ADDRESSES

lODP,PII
110,IIHCSI
(110).
R0,RHWC
(R0)+
R0,JlHBA
(1111)+
Jl0,RPDA
(110)+
JlII,JlHCS2
(R0)+
R0,IIPDS
(1116).
Jle,RfERI
(P0)+
R0,PPAS
(P0)+
R0,PPLA
(P0)+
Re,RHDB
(R0).
110,RPMR
(110)+
RIl,IIPOT
(R0).
Re,IIPSN
(P0).

R0,IIPOF
(R0)+
R0,RPDC
(Re).
R0,RPCC
(110)+
R0,RPER2
(R0)+
Re,RPER3
(R0)+
R0,IIPECI
(R0l+
R0,PPEC2
fADDR22,RESI

111/701

INO

(R0).
R.,IIHBAE
(.0).

R0,PHCS3
VfOOIl,F0
,STRT, (R0)+
BPI, (p.)

GET VECTOR ADDRESS
SET POINTER JUST IN CASE
SET PRIOIIITY
RETUR'

M-rES-79

PAGE 25

09126

MESII

.AseIZ

TRANSFER

ERROR,'

051501
02004_
054524
047522

MES21

,ASCIZ

MASSBUS

PARITY

051501
020040
020040
054524
047522

~ES31

,ASCIZ

MASSBUS

DATA

ERROR"

~eo

01W
042~4"
020~40

042040
042105
052105
04153P
022504
020P40
000105
053440
041455

PARITY

~E541

,ASCIZ

DRIVE

MES51

,ASCIZ

DROPPED"

MES61

,ASCIZ

MU71

,A5CIZ

WRITE'

MESBI

.A5CIZ

WRITE-CHECK'

042522

MES91

,ASClZ

040524
020105
022522

MESI01

,A5CIZ

• DATA LATE ERROU'

053111
020124
022531

MESIII

,AseIZ

' DRIVE NOT READY"

046125
020124
051104
000

MESI21

,ASCIZ

' COULD NOT GET DRIVE"

044522
000
047522
000045
054522
042505
000
051127
044522

ERROR"

' PETRY EXCEEDED"

~4251~

A00

0~5l47'
040 02004(1
005354' 042101
000
040504
"05357'
~40
"05364' 046040 052101
""5372' 0511r5 947522
0e9
0"5400'
1105401'
040 051104
""5406' 020105 047516
005414' 042522 042101
000
0'"'5422"
040 047503
""5423'
1>05430' 020104 047516
005436' 042507 020124
005444' 053111 022505
005452'
005452' 005134'
005454' 177777
~~5456' 005157'
005460' 177777
005462' 00521\'
005464' 177777
005466' 005317'
005470' 005276'
0~5472' 177777

005476' 005276'
005500' 177777
1105502' 005347'
1'105504' 005276'

TST
MOV
eIT
SEQ
TST

172756

RPBI D~ClXll SYSTE_ EXERCISER MODULE
XRPBI0,PII
tlS-FEB-79 .9123
855
856
857
858
859

MOV
MOV
TST
MOV

TIT

174450

0~572.

010067
0~5072' "32767
"'~5100" 001406
.05102' 005720
~051"'4' 0100b7
~'\.t'I51H"" 00572"
~~5112' 010067
1';05116" "16701"
~-I"'5122 .. 012720
00!5066'

IIa-rEB-a

MACYlI 3eAlle52)

TPERRI
MCPEJlJlI
MDPERJlI
EXCEDII
EXCED21
EXCED3I

,EVEN
MESI
177777
ME52
177777
ME83
177777
MES7
ME56
177777
ME88
MES6
177777
MU9
MEl6

READ'

RPB! PEC/XII SYSTEM EXERCISER MODULE
0B-FEB-79 09.23
XRPBI0.PII

MACYlI 30A(l052l

177777

177777
DLTERRI MESI0
177777

911
912
913
914
915
916
917
918
919

005506 '

'-'055HJ' ",05357'

005512' 177777
005514'

~05401'

09126

PAGE 26
SEQ 0025

NOTI

MESII
177777
ME512
177777

005516' 177777
"0552e' 005423'
~05522' 177777

TOUTI

920
921

005524' 005251'
005526' 005541'

ORPI

922
923

"JV)S5 30' 005263'

MES4
NUMB
MESS
177777

ADRII
NU!4B I

,eLKS
,BYTE
.BYTE
.EVEN
,BYTE
,BYTE
,BnE
,BYTE
,BYTE
,BYTE
,BYTE
,BYTE
.BYTE
,BYTE
,BYTE

u~"5532"

0S-rEB·79

177777

924

925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947

""5534 ' "00005
005541'
000
l"v)5542 "

000

005544'
l>05544"

000

0vi 5545"

000

"05546'

000
000

11'~5547"
~'05550 ,.
'/(1,5551'

kHHIJ
~00

005552'

0~~)

Vt~5553"

000
000

ef'5554 '
0(:,\5555 ,.

"~~1

005556'
Y~5557/1

000
000

~H'5560 ..

~H:H_'"

~)v15561'

"0~'

""5562'

TRYII
TRY21
TRY31
TRY41
TRY5.
TRY61
TRY71
TRYBI
TRY91
TRYI0.
TRYlI.
TRY121
FLAGI
TRKI
FIXI

"'~,,,

~DDR22=

PP2~~36R
~l~W 1 ~'2R

HH"'1t' 6P
~I~\ 1 ~Li-W

AORI
ASB
ASTAT
AWAS

0!tHl11(lP,

eEGH..

\'!D00Vli~R

H-' S'514P.
P~~'\10oR
vjk1pH~4P

l'JNWvl l

BITI = 1"!~l'lf'l{12
BITI0 = t'~:'2(..1""\)
BITII
t'~'4~"'10
BITI2 :: PIVl~$'W
BITI3 = 1'\2Y''''0~'
B1TH = ~'4~H1I-h>
BIT IS = 1 ~~!"0vH'
BIT2 = ~mH-HJ4
BIT3 III 1I~H10h\
BI14 = ~HH1"'2~1
BIT5 = 11J11{'1.!l4p
BIT6 =: "",'!tiltH)
lJ~H120tl
BIT7
BITB = ~10{i40Vl
BIT9 ;I: ~~01""'h'
BLKSAV • "0354F
BLKI
V.$~256F
BLOCK
""3672P
BREAK$. 1"4407
~(11'li-l12P
BRI
('\(:'i\'HH3R
BR2
BTOD$ • 1<;4421
BUfIN
k)~HH1t1P
CDATASo 104412
CDERCT 0li0144R
CDWDCr ~'''014bP
Y,02660R
CLEAR
CLK
"00254R
CNT
P0~266P
CONflG 000~56R
CONVRT "03756R
0~0100R
CSRA
001706R
CT
CYCLE
",'2174R
en
"00260R
CYLSAV l'00262R
DAOCL
002124R
DAOST
""15BR
DATCKS= 104411
DATERS_ 104.0.
DLTeNT 000252R
DLTERR 0055!0R
DRIVE
""0J52R
DROP
H"3316R

0
0

,NEED 00 NOT DELETE FROM CODE

,~YTE

,BYTE

.EVEN
....
-_ .......... ------.- - .. -.......

,",~V100t

,ENT>

361
193.
159'
222'
561
1970
195.
198.
156'
478

BInl

"'~5564'

RPSl DEC/XII SYSTEM '.XERCISEP MODULE
XRPBlO,Pll
08.EEB_79 09123
AB.
ACSR
ADDR

.BYTE
.BYT£

715
222'
2221

222'
222'
2221
2221
2220
222'
2220
222'
222'
2221
222'
222'
222'
222'
265.
2240
454
222>
1610
162'
222'
204
222.'
212#
2130
46B.
223#
228.

leu

456
1911
338
386.
225.
226.
3771
317#
222'
222.
2221
581
264#

333

363#
781.
805
487
925.
773_
775_
346
494
718
415
516
573
712
3~3

~ACYII 30A(l052l
0B-FEB-79 09.26 PAGE 2e
CROSS RFFERE!'CE PALE -- USER SYMBOLS

SEQ 0"26

945

351
502
726
518
635
600
759
761

384
506
730

527
640

387
561
794
537
646

391
581
795
540
654

763

583

600

481
536
375
360

5B7

589

60~

377
695

547
701

579

305
755

789

585
569
349 •
319.
6340
472
853

742

399
595
801
736
687

406
599

413
604

418
608

472
611

643

645.

659-

682

473
621

757

349

378.

455

514

634.

637

639-

473

477

478

714

715

794

795

720
716.
301_

791'

796-

441
442

442_
451

450
465

451.
682"

464

465.

64B.

656.

302_
912.
317.
417

578*
340*
729

69B>

703*

271#
384
624
710.
296
64B.
780.
339,

330
551t

6B9'

477
714

RPBl DEC/XII SyaTEM EXERCISER MODULE
IRPelS,,1I

88·r£8-19 ".21

DRP
""U2U
O.KADII 0.834611
DnCI!
DVJDI

IIII"J5ell
",,"eI4R
1111030411
UU
END IT,. IUtl3
ENDf • !B4UIl
EItROII8 ""335411

ERRTYP

ERSUII
ERIUB2
IXCEDI
EXCED2
EXCED3
EXITS •
rDUNIT
FEUDII
FlU

FLAG

II.eleu

".457211
IIe454U
110546611
1111547411
118558211
184411"
08420011
1l1le27411
011220411
00556211
00556011

FIIEE
110015011
FUNC
00027011
GETPA$. 104415
GOA
002144R
GOB
00215411
GOGO
002762R
GOS
00210411
GWBUrs= 104414
HIIOCNT 00004411
HIIDEIISD 104405
HIIOPAS 110005011
ICONT
00~03611
ICOUNT 000114~1I
IONUM
000122R
IMOOX._ 1I~0000
1!0003AR
IN IT
IN Til
""" 120R
MAP22S- 104416
MBLKIIV 1'II1I306P
MBLKTR ""011AR
MCPERR 01f5456R
MDPEIIR 005462R
MESI
00513411
MES10
00535711
MESII
')"5401R
00542311
MES12
MES2
"05157R
(lA5211R
MES3
MES4
,,"5251R
MESS
"115263p
MES6
~05276R
MES7
A05117R
MES8
~e5110R
MES9
""5H7R
MHICY
000116R

418

738

0"~1I4R

IIV-01l211
l<!I:) 000"'FI

~~"252R

"00366R

= 104403
=
= 104401
1~44~2

C"200"~
"62132~
~05514R

.'04256R
NTIIUPT 003116R
NULL ;I 'J\I}"~0Ci1
NUMB
005541R
NXTI
.·~2210R
ONCEE
000272R
OPEN 11 "'00000
NOT~DY

OTOAS = 104420
PASCNT 000034R
PAIS
00027611
00030211
PA22
PIROs • 0000~4
POP5P • 005726
POP5P2_ 022626
PIITY • 000000
PRTY0 • 000000
PIITYI • 00004~
PRTn
"00100
1100140
PIITH
P~TY4
"00200
PIITY5 • 000240
PRTY6 • 000300
PATY7
00n4"
PS
177776
psw • 177776
PUSH B 005746
PUSH2 • 024646
RANDS • 104417
IIANNUM 00005411
RBUFEA 00011011
RIlUFPA 00012611
RBUFSZ 00013211
RBUFVA 00012411
nAP
00256611
00446011
READY
RE8TIIT 00173411
RESYNC 110366611
RESI
00005611
liEU
00006011
RETRY! 00221411
RETIIY2 00224611
RETRY] 002300P
110461011
RUEr

·•
·•

net
441

"8.
357

26U

439

462

36H
IU.
33"

316*
316

317

617·
341

496
3n
391
5661
593*
723

491"

4986

499

682*
1881

61'*

724.

7990

2221
2221

&119
196#
875
77U
399
4116
413

222.
354
23U
343
94H
lI5"
654
2141
229#
222_
376
382_
444
17H

222#
176'
222#
1781
173#
174.
203#
215.
170.
2A2'
222'
240.
2414
608
611
855'
894.
888#
892'
859.
8641
870'
872.
8744
87,.
879.
882.
2441

2431

242 •
ISH
171
271,.
222'
222'
2221

354'
400
718
366
486
222'
921
3931
230'
158
193
213
2221
1721
23U
238.
2221
222#
222'
222"
162
222.
222'
222.
222'
161
222'
222.
222.
222.
222#
222.
222'

694t
295
359

699
3901

731

368
687

375

377.
701*

516
941t

51&*

695"

43h
346
38U
411
451
397
351

445_

459.

5011.

501

467

485.

595

621

726

]74

703

,,1*

52'*

537

540

547.

635

Ull"

646·

4~4

,
J!i

801

352
300*
494
309
651
8991
901#
897
912
915
917
899
901
920
922
904
903
906
909
519

653

907

910

643

MACY 11 30A (1052) 08-FES-79 09126 PAGE 30
CROSS REFERENCE TABLE _. USER SYMAOLS

SEQ ~~28

637
674
220.
303*
399

307.
406

H2
413

389

393
414

419
415.

165
197
222#

166
198

4~7

418

581

599

608

611

718

730

167
200

184
201

185
202

186
205

187
206

188
208

189
209

9151
710.
504#
9264
31"
164
195
214
561
489.
495
506

494

190
211

191
212

,
\

4
222.

222,

467
384
347

461

346

45"
721
342
572
487

183#

381
3n
337

557.

502

lU.

206#
2051
2071
2041
382
364
199
568
182.

SEQ 11027

'0U
91lU
91191

RPBl DECIXII SYSTEM EXEIICISER MOOI1LE
XRPBle.PII
.,8-FEB-79 09123
MLOWey
MODE
• ODNA"
MODSP
MODI
MSGN$
MSGSS
MSGS
NEXT
NEXTA
NOT

MACYI! 3eAWl521 u-na-" 89126 PAGE 29
CROSS REFERENC! TABLE •• UIER UMBOLI

39U
40U

4081
7891

7511
345.
574
845

6261

RPBl DEC/XII SYSTE" EXERCISF.R ~ODU~E

XRPBI0.pll

0e-ns-a 0912]

RHBA

00137411

RHBlE

~01440R
00137~R

IIHeSI
AHCB2
RHC81

001un
001412R
00117211

RHOS

RHwe
ROOM

001140R

001406R
RPCC
~01426R
RPDA
001l76R
RPDC
001424R
RPDS
001402R
RPDT
001416R
IIPECI
001434R
RPEC2
001416R
IIPERI
A01404R
RPER2
0Ul430R
U~1432R
PPERl
RPLA
~0141~R
RPMR
1101414R
RPOF
001422R
PPSN
"01420R
RP06CK ""4132R
RSTRT
00~112R
SBADR
""0102R
~0~264R
SEC
SETUP
1J04700R
SOFCNT \'00042R
SOFEPSD 1~44~6
sorPAS 000046R
5POINT 01j~~32R
SPSIZ = "\~fH~4t()
SRI
0t'''~16R
.0~020R
SR2
SRl
~~"022R
\;00024R
SR4
START
""'1452R
STAT
N',,026R
STRT
001754R
STRTI
"~1762R
RPA6

SVR~'

1851

"1"~~66~

IAU
18H

.05452R

1891
190'
179.
272'
266.
91H
599

t"'·)5561R

b5~·

"0"022

2221

f 1"i}!J14P
0~0052R
~~'t 37(~R
~~0356R
~H1552N:t

RPSl DEC/XII SYSTEM EXERCIS~R
XRPBlv.PII
"8-F£B-79 ~9'23

,
t

TRYI
TRY10
TRYSI
TRYI2
TRY2
TRU
TRU
Tn5
TRY6
TRY7
TRY8
TRY9
TI6
TIB
UNITNO
UPOATT
VECTOP
WASADR
WBUFEA
WBUFPA
WBUFPQ
WBUFSZ
WCNTI
WCNT2
WDrR
WDTO
WHO
WPITC~

WRITE
XFERAD
XFERCT
XFLAG
XMEM
ZERO

566

583

587

712

72h

780

781

461*

585

600

616

735

747.

751·

789.

814"

6180

62l.

824.

460.

80h

790*

820.

44h

591
836.
4480
450.
589

685

612

714

462.
464*
752
828.

812*
814.
Blh

818.

84'822*
82h
482*

8l2*

449

463

682.

77h
6490
805.

6690

674

415

579

362

379

852

595

604

8971
664*

672

67h

677

621

726

678

942#

604
1I8
215
305

298.

~DDU~E

""5544R

3670

"~5555R

938~

"~5556R

372.
940.
401.
368.
932'
l69934.

"')555n
00554SP
005S46P
"L'5547R
",QI';S5'l'P

005551R
"'~5552P

37~.

005553R
005554R

936.
371*
2461
2541
269'
363
161'.
194.
2"'9'

")JI!032~FI:

~~"332R

~"'0364R
0025S~R
"~~~flJ10R

"""1~4R
O~"ll6R

.,00114R

2~81

21p·,
211*
26H
268.
2011
2AO.
614
380
l71
29"
296.
158.
237,
2611
271#

000140R
~"0142R

""0360R
~00362R

00'1I16R
"00114R
0044P6R
""2454R
002360P
"01444R
00144bR
000005P
000lM1R
"'0"'l44R

• 005564R
• A8S,

501.

576

I~U

00""72R
{~(-'~H:'l76R

T~PDFn.

481.

485.

615
437.
571
480.
711·
41h
441*
573
68]
842.
844.
569

830.

Hth:'1Q110F

475

474.

8380

1641
165'
166.
1671
170
169.
349#
350.
1841

00006'P

810.

l55.

ash

27U
2841
2911
292'
279'
289#
2911"
281#
28lt
286t
2851
440
199#
1921
2271
336
175.
222.
1771
17H

495.

461*

46'*
Be6.

SEQ ~~2'

489

447.
848.

49'*

2~H

"~"062R

SVRI
SVR2
SVR3
SVR4
SVR5
SVP6
SYSCNT
TASLE
TeUF
TOUT
TRERR
TRK

215.
293#
Z7l#
792
27H
2941
2821
2741
514'
280.
28 ..
27 ••

~'0140AR

MACYlI l0A(1052) 08-rEB-79 09126 PAGE 31
CIIOSS REFERENCE TABLE
USER SYMBOLS

'HH~0~e

00~

005564

001

ERRORS DETECTED, 0
DEFAULT GLOBALS GENERATED,

3944

195

SI!.;Q

929_

939t
402
40&*

9301
4~9

9311

332-

339*

355

437
460

446

933.
935.
93,.
304
l08
320.
454.
486+

468

485

552

561

U4.

492*

493*

499.

500

851

7760

444
418

453
447

l52
352.
347.
29h
299*
734.
4451
436.

515
353.
3480

444*
618
385

XRP810,XRPBI0/S0~/CRFISY~=DDXCOM,XRPeI0

RUN-TIME, 1 2 .4 SECONDS
RUN.TIME RATIOI 18/5.l.4
CORE USEDI 7K III PAGES)

MACYI\ l0A(1052) ~8-F"EB-79 a9l26 P~GE 32
CROSS REFFP~NCE T~eLE -- USER SYMROLS

453.

467.

490*

491.

8961

925.

9281

9441

696

702.

751

0~10