Digital PDFs

AC-E965F-MC

November 1981

22 pages

Original

1.2MB

Document:	CXRLAF0 RL
Order Number:	AC-E965F-MC
Revision:	0
Pages:	22
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/x11_listings/AC-E965F-MC_CXRLAF0_RL.pdf

OCR Text

RLAF OEC/Xll SYSTEM EXERCISER "ODULE
XRLAFO.Pll
lS-NOV-81 10:28
.REM

8 1

MACY11 30(1046) 18-NOV-81 10:42 PAGE 2

IDENTIFICATION
-----..
~------

PRODUCT CODE:
PRODUCT NME:
PRODUCT DATE:
MAINTAINER:

AC-E96SF-"C
CXRLAFO RL11/RLV11/RLV12/RL01/RL02
FEBRUARY 1981
DEC/X11 SUPPORT GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMIT"ENT
BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUI~ENT
CORPORATION ASSUNES NO RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUNENT IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE C~UTER
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM. EXCEPT AS MAY
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUNES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIED BY DIGITAL.
COPYRIGHT (C) 1978.1980.1982 DIGITAL EQUIPMENT CORPORATION

SEQ 0001

RlAf DEC/X11 SYSTEM EXERCISER MODULE
XRlAFO.P11
18-NOY-81 10:28
1.
ABSTRACT

MACY11 30(1046)

l8-NOY-8l

C 1
10:42 PAGE 3

~~------

RLA IS AN IOMODX THAT EXERCISES RL01/RL02 DISK DRIVES ON
RL11/RLY11/RLV12 CONTROLLERS. IT EXERCISES THE DRIVES BY DOING
READ HEADERS. SEEKS. READS. WRITES AND IN-CORE COMPARISONS.
ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE DEVICE.
2.

REQUIREMENTS
----~---~---

HARDWARE: 1 TO 4 RL01/RL02 DISK DRIVES (WITH SCRATCH PACKS).
1 RL11. RLV11. OR RLV12 DISK CONTROLLER.
STORAGE:: RLA REQUIRES:
1. DECIMAL WORDS: 1445
2. OCTAL WORDS: 264S
3. OCTAL BYTES: 5512
3.

PASS DEFINITION
--~------------

ONE PASS OF THE RLA MODULE CONSISTS OF 20 X 100 CYCLES OF THE
BASIC TEST SEQUENCE (READ HEADER. SEEK. READ HEADER. WRITE.
WRITl CHECK. READ). THE TEST SEQUENCE WRITES 1024 WORDS. READS
BACK THE FIRST 256. AND DATA CHECKS THE SAME.
4.

EXECUTION TIME
---~---~------

ONE PASS OF RLA RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY ONE MINUTE.
5.

CONFIGURATION REQUIREMENTS

-------------------------DEFAULT PARAMETERS:
DEVADR: 174400. VECTOR: 160. BR1:
DEVICE/OPTION SETUP

5. DEVCNT: 1

---------------~~--

INSURE THAT ALL DRIVES UNDER TEST ARE POWERED UP. WRITE ENABLED.
AND READY -- AND OF COURSE. SCRATCH PACKS INSTALLED !!!
IF MORE THAN 1 DRIVE. CHANGE DVID1: (LOC 14') ACCORDINGLY.
IF RLV12 CONTROLLER. SET SR1: = 10 (LOC 16'. BIT 3).

SEQ 0002

MACY11 30(1046)
RLAF OEC/X11 SYSTEM EXERCISER MODULE
XRlAFO.P'1
la-NOV-al 10:28
7.
SRl OPTIONAL SETUP

18-NOV-8~

D 1
10:42 PAGE 4

--~~~---~--------

BIT 0 - DROP DRIVE ON ERROR
BIT 1 - RANDOM SEEKS
BIT 2 - DON'T PRINT SOFT ERRORS
BIT 3 - CONTROLLER IS AN RLV12
8.

ERROR REPORTING

---------------

ON ERROR ALL REGISTERS ARE PRINTED IN THE FOLLOWING ORDER:
RL11/RLV11
RLes RLBA RLDA RL", DRIVE STATUS
RLCS RLBA RLDA RLMP RLBAE DRIVE STATUS
RLV12
*************************************************************************~*****

*
REASON:
*
*
'~NF" ERRORS WERE BEING
*
REPORTED AS "OPI".
*
*
CONTROLLER ERROR ON
G.PASQUINTONIO MAY-81
2
*
WRITE-CHECK CAUSED A
*
TERMINAL TABLE SEARCH
*
(ULTIMATELY TRAPPING TO 4). *
*
''DROP ON ERROR" OPTION
G.PASQUINTONJO MAY-81
3
*
(SR1<O» NOT IMPLEMENTED
*
CORRECTLY.
*
*
4
G.PASQUJNTONJO MAy-a1
RLV12 22 BIT UPGRADE.
*
*
*
*******************************************************************************

*
*
*
*
*
*
*
*
*
*
*
*
*
*
**

EDIT:
1

DATE:
BY:
G.PASQUINTONIO MAY-81

SEQ 0003

E 1

MACY11 30(1046) 18-NOV-81 10:42 PAGE 5
RLAF DEC/X11 SYSTEM EXERCISER MODULE
XRLAFO.P11
18-NOV-81 10:28
000000'
1000DX <RLAF >.174400 160 5 0020. 146.BUFIN.2S6 •• 1024.
000000'
MODULE 150000,RLAF .1'4406.f66L~Jo,6.20 •• 146,BUFIN.256 •• 1024 •
•TITLE RLAF DtC/X11 SYSTEM EXE"C StR MODULE
DDXCOM
VERSION 6
23-MY-78
•
.LIST BIN
.***********************************************************************
BEGIN:
000000'
040 "ODNAM: .ASCII IRLAF I ;MODULE NAME.
000000' 046122 043101
XFLAG: .BYTE OPEN
USED TO KEEP TRACK OF WBUFF USAGE
000005'
000
ADDR: 174400+0
1ST DEVJCE ADDR.
000006' 174400
VECTOR: 160+0
1ST DEVJCE VECTOR.
OOU010' 000160
BR1:
.BYTE PRTYS+O
1ST BR LEVEL.
000012'
240
BR2:
.BYTE PRTVO+O
2ND 8R LEVEL.
000013'
000
DVID1: 0+1
DEVICE INDICATOR 1.
000014' 000001
SR1:
OPEN
SWITCH REGISTER 1
000016' 000000
SR2:
OPEN
SWITCH REGISTER 2
8888~~:
SR3:
OPEN
SWITCH REGISTER 3
SR4:
OPEN
SWJTCH REGISTER 4
000024' 000000
§T:T7***1;oOOO******************;STAT~s*:O~D~**************************
000026' 150000
INIT: START
;MODULE START ADDR.
000030' 000252'
SPOINT: "ODSP
;MODULE STACK POINTER.
000032' 000252'
PASCNT: 0
;PASS COUNTER.
8888~: 888~2
ICONT: 20.
0'LOCOF TOITERATIONS
PER PASS=20.
ICO""T
0
COUNT
ITERATIONS
000040'
00
SOFCNT 0
LOC TO SAVE TOTAL SOFT ERRORS
000042'
HRDCNT 0
LOC TO SAVE TOTAL HARD ERRORS
000044' 0
0
SOFPAS 0
LOC TO SAVE SOFT ERRORS PER PASS
000046' 000 0
HRDPAS 0
LOC TO SAVE HARD ERRORS PER PASS
8888~~:
SVSCNT 0
, OF SYS ERRORS ACClJIJLATED
RANNlII 0
HOLDS RANDOM , WHEN ~ MCRO I S CALLED
000054' 000000
CONf IG:
RESERVED FOR MONITOR USE
000056'
RES1: 0
RESERVED FOR MONITOR USE
000056' 000000
RES2:
0
RESERVED FOR MONITOR USE
000060'
SVRO: OPEN
LOC TO SAVE RO.
000062'
SVR1
OPEN
LOC TO SAVE Rl.
000064'
0
SVR2
OPEN
LOC TO SAVE R2.
000066'
'AAO
SVR3
OPEN
LOC
TO SAVE R3.
8888~g: )fll~lg
SVR4
OPEN
LOC TO SAVE R4.
SVRS
OPEN
, LOC TO SAVE RS.
000074'
)1 0
SVR6
OPEN
:LOC TO SAVE R6.
OOOOS' I 10000
0 0
CSRA
OPEN
:ADDR OF CURRENT CSR.
0001
SBADR:
:ADDR OF GOOD DATA. OR
0001 '
ACSR: OPEN
:CONTENTS OF CSR.
01 1Q~' 000000
WASADR:
; AD DR OF BAD DATA. OR
1~ •
ASTAT: OPEN
;STATUS REG CONTENTS.
1 • 000000
ERRTYP:
:TYPE OF ERROR
1
•
ASB:
OPEN
:EXPECTED DATA.
l'
IIgog
AWAS:
OPEN
;ACTUAL
DATA.
1 I~ ,
RSTRT:
RESTRT
:RESTART
ADDRESS AFTER END OF PASS
11'
14"
WOTO: OPEN
:WORDS TO fliEfIIORy PER ITERATION
114'
WDFR: OPEN
:WORDS FROIII MEMORY PER ITERATION
0 1118 : ftftftftft8
JNTR: OPEN
:' OF INTERRUPTS PER ITERATION
0
lDNUM: 146
:MODULE IDENTIFICATION NUMBER=146
1 2'
6
RBUfVA: BUFIN
:AEAD BUFFER VIRTUAL ADDRESS
~at)l)l 11 6'
4'
~~p34
•
~b~Joo
ABUFPA: OPEN
;READ BUFFER PHYSICAL ADDRESS
o

888888

1000

eRg

110
I

SfQ 0004

RLAF DEC/Xl1 SYSTEM EXERCAS~R MODULE
XRLAFO.Pl1
18-NOV-8l 1 : 8
000130' 088280
888132' 0004 0
134' 000000
0001 ~' 000000
00014 ' = 0
000142'
00
000144' 000000
000146' 000000
000'50' 000000
000040

000252'
220
221
222
223
224
225
226
221
228
229
230
231
232
233
234
235
236
237
238
239
240
24t1
242
243
244
245
246
247
248
249
250
251
252
253
254
255
2S6
257
258
259

000252' 012767
000260' 012767
000266' 01~767
000274' 01 767
000302' 012767
000310' 012767
000316' OOS067
000322' 004767
ooo3J6' 016767
0003 4' 122737
000342' 001020
000344' 012102
OOO3S0' 113701
000354' 001403
000356' 006302
000360' 105301
000362' 001375
000364' 030287
000370' 0014 5
000372' 040i67
000376' 104 03
000404' 005767
000410' 001011
000412' 104403
000420' 000167
OOO4J4' 005767
0004 0' 001001
000432' 000707

i ·
0004~'

42' 10441S
000421
44'367
SO' m767
000456'
000460' 12767
7 ' 012767
012767
000502'
000502' 1C4': 13

=n'

r,'013

MCY11 30(1046)

F 1
18-NOV-81 10:42 PAGE 6

READ BUFFER EA BITS
RBUFEA: OPEN
SIZE OF THE READ BUFFER
RBUFSZ: 256.
WRITE BUFFER PHYSICAL ADDRESS
WBUFPA: OPEN
WRITE BUFFER EA BITS
WBUFEA: OPEN
WRITE BUFFER SIZE REQUESTED
WBUFRQ: 1024.
WRITE BUFFER SIZE AVAILABLE
WBUFSZ: OPEN
CDATA/DATCk ERROR COUNT
CDERCT: OPEN
CDATA/DATCk WORD COUNT
CDWDCT: OPEN
,RESERVED FOR FUTURE USE
FREE: OPEN
;MODULE STACk STARTS HERE •
•REPT SPSJZ
.NlIST
•WORD 0
.LJST
.ENDR
MODSP:
;***********************************************************************
11024.,~DFR
;1024. WORDS FROM MEM/ITERATION
002000 177636 START: MOV
1256.,WDTO
MOV
;2S6 WORDS TO "EM/ITERATJON
000400 1776~6
;S
INTERRUPTS/ITERAT1ON
MOV
OOOOOS 1776 4
IS,JNTR
000057 004422
MOV
IS .NlJIIB
1-400,DRIVE
MOV
;SET DRIVE SELECT
177400 003314
MOV
;SETUP DRIVE SELECT MASk
000001 0032S2
1'.DRVMSk
DLTCNT
;CLEAR DATA LATE COUNT
ClR
003272
JSR
PC.SETUP
;60 SET UP REGISTERS
001300
MOV
;COPY DRIVE SELECTION
177462 003272
DVID~DVICE
114, 41
;WAS RL LOAD DEVICE?
000014 000041 3$:
CMPH
71
BNE
;N-BRANCH: V-SEE IF LOAD UNIT SELECTED
MOV
;SET UP FOR MASk
000001
1'.R2
&l40,Rl
MOVB
;GET LOAD UNIT
000040
5$
BEQ
;JF ZERO GO MASk OUT UNIT
41:
;SHIFT MASk
ASL
R2
;DEC CMT
DECS
Rl
:kEEP CHECkING
41
BNE
51:
R2,DVICE
003236
BIT
:WAS THAT DRIVE SELECTED?
BEQ
71
;N-BAANCH: Y-CONTINUE
3230
BIC
R2,DVICE
;DELETE UNIT FROM DEVICE MAP
MSGNS,BEGIN.DROPlD
880000' 00S472 ,
;ASCII MESSAGE CALL WITH COMMON HEADER
7S:
TST
003216
DVICE
;ANY DRIVES SELECTED?
RSTRTl
BNE
;YES. CW4TlNUE
;ASCII MESSAGE CAll WITH COMMON HEADER
8800~0' 00S422 ,
MSGNS.BEGIN.ABORT
11 6
JP4P
FIN.t
:MESSAGE, DROP MODULE
003160
RESTRT: TST
CNT
;+
/ SUPPORT
;+ / FOR
RSTRTl
BNE
SR
START
;+ /
DT03
;+/
RSTRTl :
000000' 000124'
GETPAS.8EGJN RBUFVA
;GET PHYSICAL ADD', ~..;S FROM 16-8IT RBUFVA
SA
CHlCDl
R
LOOPL: ASL
;SHIFT MASk FOR NEXT DRIVE
DRVltSk
803120
00020 003112
CMP
;DRIVE ~SK OVERSHIFT CHECk
'20 , DRVMSK
CHkl'R1
;BRANCH IF ~Sk Ok
BNE
01
003102
MOV
;RESET DRIVE SELECT MASk
'1
DRVMSK
0088
,S
NUMB
MaV
t
804230
099
57 03122
1 400
MOV
1-460,DRIVE
;RESET DRIVE SELECT
CHkDRV:
;SIGNAL END OF ITERATION.
000000'
ENDJTS.SEGIN

SEQ 0005

RLAF DEC/Xll SYSTEM EXERCISER MODULE
XRlAFO.Pll
18-NOV-81 10:28
260
261 000506'
000506' 062767 000400 003110
~ti
00051'" 005267 004204
264 000520' 036767 003044 003100
265 0005~6' 001746
266 0005 0' 005067 002770
267 000534' 005067 003024
268 000540' 005067 003044
269
270
271
27~ 888544' 004767 000722
550' 004567 001430
27
274 00055'" 11 012767 100077 003022
275 000562 012767 077724 003002
276 000570' 012767 077750 002776
000576' 012767 100177 002772
2n
278 000604' 012767 077600 002766
279 000612' 012767 077700 002762
280 000620' 032767 000200 002726
281 888ti6' 001422
0' 042767 100000 002740
282
283 000636' 052767 100000 002734
284 000644' 052767 100000 002730
285 = 2 ' 052767 100000 002714
0' 042767 100000 002716
286
000 002676
287 000666' 052767
288 000674' 012767 o 201 002720
289 000702' 004567 001256
290 000706' 016767 002642 002704
291
292
293
294
295 888714' 032767 000002 177074
722' 001446
296
297 000724' 042767 000117 002666
298 000732' 104417 000000'
299 888736' 016700 177112
742' 01~1
J8V
888744' 0467 0 002626
750' 010067 002646
302
000754' 166767 002640 002640
888762 ' 10300J 002632
~64' 00546
306 888 70' gm03
000004 00~622
307
772' 0 r67 000001
00 614
308
OS 767
1 '03
701 000100
309
310 001012' Og'403
002600
001014' 0 2767
~11 001022'
010167 88~~~~
12
313 88'0~6' ~6767 002552 002564
314 010 4' 0 0167 000134
315

'88

88'882'

G 1
MCYll 30(1046) 18-NOV-81 10:42 PAGE 7
;MONITOR SHALL TEST END OF PASS
CHKDR1:
lS:
;NEXT DRIVE
ADD
'400"DRIVE
INC
NlJIIS
BIT
;IS THAT DRIVE PRESENT
DRV,..SK"DVICE
BEQ
;NO GO FOR NEXT ONE
LOOPL
RETRY
;CLEAR A FEW LOCATIONS
CLR
CLR
RWER
;READ WRITE ERROR FLAG
CNT
; COUNT
CLR
,·
;WE HAVE A DRIVE" START TESTING
,·
JSR
PC"WTRDY
JSR
R5 DRVRTS
;ISSUE DRIVE RESET, CLEAR VOLUME
MOV
'160077,,MSK2 ,·
MaV
'77724" FSTBSC ;SET UP FOR RLOl
MOV
'77750,LSTBSC
MOV
'10017 "MSK
MOV
,77600"LSTCYL
MOV
'77700"LSTTRK
;TEST RLOl OR RlO2
BIT
'200"T.MP
BEQ
2S
;RLOl BRANCH
BIC
;FIX FOR RL02
"00000"MSK
BIS
,100000"LSTCYL
BIS
'100000"LSTTRK
BIS
"OOOOO"LST8SC
BIC
"00000,,MSK2
BIS
I,OOOOO"FSTBSC •·
21:
MOV
,20'"DIFWD
LOOP: JSR
~IS.RDHDR
;READ HEADER ON DISK
MOV
;GET HEADER
T.MP"HDRWD
,·
;CHECK TO SEE IF RANDOM SEEK IS REQUESTED, BIT' OF SR'
;SET INDICATES A RANDOM SEEK OTERWISE SEEK IS INCREMENTAL
,·
TAG:
BIT
;INCReMENTAL OR RANDOM SEEKS?
I8ITl"SRl
BEQ
;INCREMENTAL" TAGl
TAG'
;CLEAR HEAD AND SECTOR BITS
BIC
1177"HDRWD
RANDS,BEGIN
MaV
;STORE IT AWAY
RANMI'"RO
MaV
;SAVE A COPY
RO"Rl
BIC
:CLEAR HEAD AND SECTOR
MASK"RO
MOV
:LET'S CALCULATE DIFFERENCE WORD
RO"DIFWD
StS
;GET DIFFERENCE TO SEEK
HDRWD"DIFWD
lS
BCC
NEG
DJFWD
:MKE DIFF ABSOLUTE
2S
SA
BIS
SET DIRECTION BIT
14"DJFWD
~S:
s:
BIS
SET MARkER
"6DIFWD
TEST HEI;D
BIT
11 O"Rl
BEQ
31
IF 0" DON'T SET HEAD IN DIFF
BIS
SET HEAD
120"DIFWD
3$:
MOV
GET EXPECTED HEADER
R1"HDRWD
BIC
MASK2.HDRWD
CLEAR SECTOR BITS
JMP
TAG2

SEQ 0006

H 1
SEQ 0007
MACV11 30(1046) 18-NOV-81 10:42 PAGE 8
RLAF DEC/X" SYSTEM EXERCASER MODULE
XRLAFO.Pl'
18-NOV-81 1 :28
;CLEAR OUT SECTOR BITS &HEAD
1177 HDRWD
316 001040' 042767 000177 00~552 TAG1: BIC
1177600.HDkWD ;ON TRACK 01
317 001046' 032767 177600 00 544
BIT
;NO GO CHECK FOR LAST CYLINDER
318 001054' 001007
11
BNE
,200.HDRWD
;SE t NEXT AODRESS=CYL 1
MOY
319 001056' 012767 000200 002534
,20S.DIFWD
;OIF WO 1. MARKER. SEEK IN. HS=O
320 001064' 012767 Oe020S 002530
MOY
;SET CURRENT HO=O. SEEK IN
321
TAG2
BR
322 001072' 000440
;CURRENT ADDRESS=LAST TRACK?
LSTCYL.HDRWD
323 001074' 026767 002500 002516 lS:
CMP
;NO. CONTINUE
2S
324 001102' 001012
BNE
,200.HDRWD
SUB
325 001104' 162767 000200 002506
•·
BIS
,'00.HDRWD
326 001112' 052767 000100 002500
·
•
,221.DIFWD
;DIF WD 1. MARKER. SEEK OUT. HS=1
MOY
327 001120' 012767 000221 002474
;SET CURRENT HD=1. SEEK OUT
328
TAG2
BR
329 001126' 000422
,4.DIFWD
;SN SET IN DIF WORD
BIT
330 001130' 032767 000004 002464 2S:
BEQ
3S
;NO. 3S
331 001 136' 001404
,200.HDRWD
;YES. CYL WILL INCREMENT
ADD
332 001140' 062767 000200 002452
4S
;SKIP OVER
BR
333 001146' 000403
;NO. CYL WILL DECREMENT
SU8
334 001150' 162767 000200 002442 3S:
'200.HDRWD
;HEAD SET?
BIT
335 001156' 032767 000020 002436 4S:
'20~DIFWD
BEQ
TAG
;NO. LEAYE EXPECTED ALONE
336 001164' 001403
;YES. SET HEAD SELECT BIT
',00.HDRWD
BIS
337 001166' 052767 000100 002424
TAG2: JSR
A5.SEEK
;PERFOM SEEK
338 001174' 004567 000740
;WAIT FOR SEEK TO FINISH
JSR
PC.WTRDV
339 001200' 004767 800266
;READ HEADER VERIFY CORRECT
JSR
AS.RDHDR
340 001204' 004 567 00754
;SEEk
341
T.MP,CURADA
MOY
;READ HEADER
001210' 016767 002340 003502
,77.CURADR
;CLEAR OUT SECTOR BITS
BIC
042767 000077 003474
~~ 001216'
CMP
CURADR.HDRWD
;WAS SEEK CORRECT?
344 001224' 026767 003470 002366
BEQ
61
;YES. CONTINUE
345 001232' 001425
;NO REPORT ERROR
346
MOY
ALCS.CSRA
347 88'234' 016767 002270 176636
MaY
iRLCS.ACSR
1242' 017767 002262 176632
348
MOY
aRLCS.ASTAT
349 001250' 017767 002254 176626
;ASCII MESSAGE CALL WITH COMMON HEADER
MSGNS.8EGIN.BDSEEK
350 001256' 104403 000000' 005466'
351
,S1.ERRTVP
MaY
;BAD SEEk
352 001264' 012767 000051 176614
353
;*******************-*--***********************-*******'********
HRDERI.BEGIN.TABLE
;SEEK WAS BAD
354 001272' 104405 000000' 005476'
355
;******************************************-*****************-**
356
MOY
CURADR.HDRWD
;MAKE MISTAKE NEW HDRWD
357 001300' 016767 003414 002312
358
CMP
HDRWD.LSTTRK
;AAE WE ON LAST TRACK
001306' 026767 002306 002266 6S:
7S
;NO. CONTINUE
BNE
001002
U~ 001314'
JMP
TAG
;YES. GO GET ANOTHER CAUSE ITS THE BAD SECTOR TRACK
361 001316' 000167 177372
;GE1 BUFFER SIZE (READ)
002302 7S:
MOY
R8UFSZ.WCNT2
~~ 0013~' 81>6767 176604
;NEGA1E FOR RL",
NEG
WCNT2
88'3 0' 5467 °82276
GWBUFS. BEGIN
;GET WRITE BUFFER INFORMATION
~ 13 '104414 o1760~90'
6 002262
MOY
waUFSZ.WCNTl
;GE1 BUFFER SIZE (WRITE)
001340' &!767
NEG
weNTl
;NEGATE
fOR RLMP
oo2~56
467 080
R5
WRITE
JSR
;WRITf
DATA
1 52' 004567
368
02
TST
RWeR
; CONTROLLER ERROR ??
001 S6' 005767 o 2202
5$
; SkIP READS IF SO.
SNE
1362 ' 801~1~
~Z
JSR
R5.WRCHk
371 01364' 04 6 000460

m881r'
88

MACY11 30(1046) la-NOV-81 10:42 PAGE 9
RlAF DEC/X1l SYSTE" EXERCISER MODULE
XRLAFO.Pl1
l8-NOV-8l 10:28
ERROR 1?
TST
RWER
372 001370' RR~767 002170
SkIP READS IF SO.
BNE
5S
READ DATA
J~i 881~~~: oolgl~ 000506
JSR
R5,READ
ERROR ??
TST
RWtR
375 001402' 005767 002156
SkIP DATA CHECk IF SO.
BNE
5S
376 001406' 001005
REQUEST FOR NONITOR TO CHECK DATA
CDATAS,BEGIN,RBUFPA
377 001410' 104412 000000' 000126'
IF ERROR, RETURN AT TAG 5S
5S
378 001416' 001422'
; GP-3
BR IF NO DATA ERRORS.
BR
4S
379 001420' 000410
; GP-3
DROP ON ERROR ?1
BIT
IaITO,SRl
380 001422' 032767 000001 176366 5S:
; GP-3
BEQ
4S
NO
381 001430' 001404
; GP-3
YES . DROP IT.
JSR
R5 .. DROP
382 001432' 004567 000134
; GP-3
•••
AND
TRY
ANOTHER.
JP'
I
P
LOOPL
383 001436' 000161 177002
384
4S:
RWER
CLR
385 001442' 005067 002116
CNT
INC
386 001446' 005267 002136
116 ... CNT
CMP
387 001452' 022767 000020 002130
BEQ
3S
388 001460' 001402
; REITERATE 16 TI"ES/DRIVE •••
LOOP
JMP
389 001462' 000167 177214
3S:
; ••• THEN GET ANOTHER DRIVE.
LOOPL
JMP
390 001466' 000167 176752
391
•·
;wAIT
FOR DRIVE READY. DROP DRIVE IF IT NEVFR COMES UP.
392
393
·
•
11400.iRLCS
BIC
394 001472' 042n7 001400 002030 WTRDY:
BIS
DRIVE.c.iRLCS
395 001500' 056777 002120 002022
MOV
;SET UP TU'EOUT
17777r"CLK
396 001506' 012767 077777 002072
;DRIVE READY?
BIT
11"aRLCS
397 001514' 032777 000001 002006 lS:
BEQ
; NOT YET
; GP-3
2S
398 001522' 001401
PC
; GP-3
RTS
;
YES"
RETURN
TO
CALLER.
399 001524' 000207
2S:
400 001526'
BREAKS"BEGIN
;TEMPORARY RETURN TO MONITOR ••••
401 001526' 104407 000000'
BREAKS"BEGIN
;THEN CONTINUE AT NEXT INSTRUCTION.
402 001532' 104407 000000'
DEC
CLK
;CHECK TIMEOUT
403 001536 ' 005367 002044
BNE
1S
;
LOOP TIL TIMER EXPIRES.
001542'
001364
404
MOV
16"ERRTYP
;DRIVE NOT READY
405 001544' 012767 000006 176334
406
;**************************************-************************
HRDERS"BEGIN"RLCS
;DRIVE NOT READY
407 001552' 104405 000000' 003530'
408
;***************************************************************
JSR
R5"DROP
;CLEAA DRIVE (DROP) FROM LIST.
409 001560' 004567 000006
TST
(SP)+
; FIX THE STACk •••
410 001564' 005726
JMP
LOOPL
; ••• AND GO FOR ANOTHER.
411 001566' 000167 176652
,·
412
;DROP CURRENT DRIVE. DROP MODULE IF NO DRIVES LEFT.
413
,·
414
DROP:
415 001572'
;ASCII MESSAGE CALL WITH COMMON HEADER
MSGNS,BEGIN"DROPMS
416 001572' 104403 000000' 005406'
BIC
DRVMSK,DVICE
;CLEAA THIS DRIVE BIT.
417 001600' 046767 001764 002020
BEQ
1S
; DROP MODULE IF NO MORE.
; GP-3
418 001606' 001401
RTS
R5
; OTHER~ISE" RETURN TO CALLER.
; GP-3
001610'
000205
419
lS:
001612'
;ASCII MESSAGE CALL WITH COMMON HEADER
MSGNS"BEGINtNOLEFT
001612' 104403 000000' 00S416'
:~f
TST
(SP}+
; FIX STACK.
422 001620' 005726
FINI:
001622'
;DROP THE MODULE
t~l 001622'
000000'
ENDS"BEGIN
104410
,
425
·
;ROUTINE
TO SET UP RL11 REGISTERS" VECTOR AND BR LEVEL
426
.·
427

SEQ 0008

MACY11 30(1046) la-NOV-81 10:42 PAGE 10
RLAF DEC/Xl1 SYSTEM EXERCISER MODULE
XRLAFO.P11
18-NOV-81 10:28
SETUP: MOV
428 001626' 016700 176154
ADDR.RO
;GET BASE ADDRESS
;CONTROL REGISTER
429 001632' 010067 001672
MOV
R06RLCS
(R )+
TST
;INCREMENT FOR NEXT
430 001636' 005720
431 001640' 010067 001666
MOV
-BUS ADDRESS
R0 RLBA
(R6)+
432 001644' 005720
TST
INCREMENT FOR NEXT
433 001646' 010067 001662
MOV
DISk
ADDRESS
R06RLDA
(R )+
TST
INCREMENT FOR NEXT
434 001652' 005720
435 001654' 010067 001656
MOV
DATA BUFFER
RO.RLMP
GP-4
MIT3.SRl
TEST IF AN RLV12 CONTROLER
436 001660' 032767 000010 176130
BIT
BEQ
1$
GP-4
437 001666' 001411
.BR IF NOT
(RO)+
TST
438 001670' 005720
;INCREMENT FOR NEXT
GP-4
GP-4
439 001672' 010067 001642
MOV
·BUS EXTENDED ADDRESS REGISTER
RO.RLBAE
GP-4
440 001676' 012767 003556' 003602
FIX ERROR REPORT
MOV
'T.ME.TASLEY
GP-4
441 001704' 012767 003560' 003576
MOV
fOR RLV12 CONTROLLER
'T.STAT.TABLEZ
1$:
MOV
VECTOR.RO
GET VECTOR ADDRESS
442 001712' 016700 176072
MaV
'START CRO)+
SET POINTER
443 001716' 012720 000252'
Mova BR1.(R6)
444 001722' 116710 176064
SE7 PRIORITY
RTS
PC
445 001726' 000207
RETURN
446
..·
; SUBROUTINE TO SET 18 OR 22 BIT BUS ADDRESS IN CONTROLLER.
447
448
; THIS ENTIRE SUBROUTINE IS NEW.
; GP-4
449
.WBUFPA.PA18
; GET 18 BIT WRITE BUFFER ADDRESS.
450 001730' 016767 176200 000102 SETWBA: MOV
451 001736' 016767 176174 000076
MOV • WBUFEA.EA18
BR
SETCIIW
452 001744' 000406
ABUFPA.PA18
453 001746' 016767 176154 000064 SETRBA: MOV
; GET 18 BIT READ READ BUFFER ADDRESS.
MOV
ABUFEA.EA18
454 001754' 016767 176150 000060
; SET BA<15:0> •••
455 001762' 016777 000052 001542 SETCMN: MOV
PA1S.'RLBA
456 001 no' 042777 000060 001532
BIC
'60&IRLCS
; ••• AND BA<17:16> IN CSR<5:4>.
457 001776' 056777 000040 001524
458 002004' 032767 000010 176004
; ARE WE RLV12 ??
~l'j~~~~S
BEQ
1$
; BR IF NOT.
459 002012' 001411
MAP22$. BEGIN.PA18
; GET 22-8IT ADDR FROM 18-8IT ADDR
460 002014' 104416 000000' 002040'
461 002022' 016777 000016 001502
MOV
PA22.IRLBA
; L~AD BA<15:0> •••
MOV
EA22.IRLBAE
; ••• AND BA<21:16>.
462 002030' 016777 000012 001502
1$:
RTS
PC
463 002036' 000207
464
PAlS: o
465 002040' 000000
; 18 BIT BA<15:0> •••
EA1S: o
: ••• AND EA<17:16> IN BITS <5:4>.
466 002042' 000000
PA22: o
; 22 BIT BA<15:0> •••
467 002044' 000000
EA22: o
; ••• AND EA<21:16> IN BITS <5:0>.
468 002046' 000000
469
.·
;DRIVERS (INTERRUPT)
470
•
471
•
001540
WRCHk:
MOV
,,02.FUNC
000102
002050'
012767
WRI TE-CHE Ck •••
472
2056 1 000403
403
••• OR •••
473
••• WRITE FUNCTION.
474
2060' 8'2767 000112
:~~¥f~~=fMP
WORD COlJ4T
475 002066' 16777 001536 881~~~ WRITE: =g~
DISk ADDRESS
MOV
HDRWDflRLDA
476 002074' 016777 001520 001432
JSR
PC,SE WBA
WRITE BUFFER ADDRESS
477 002102' 004767 177622
; GP-4
BR
EXtC
478 002106' 000444
0114
: READ FUNCTION
479 002110' 012767
:~~~~~~=EMP
; WORD COUNT
480 002116' 8'6777 01510 881~~~ READ: =g~
; DISk ADDRESS
MOV
HDRWDflRLDA
481 002124' 16777 001470 001402
JSR
PC.SE RBA
: READ BUFFER ADDRESS
482 002132' 004767 177610
; GP-4
BR
EXEC
483 00213U' 000430

Ii'

SEa 0009

K 1
SEQ 0010
MACY11 30(1046) 18-NOV-81 10:42 PAGE 11
RLAF DEC/Xll SYSTEM EXERCISER MODULE
XRLAFO.P11
18-NOV-81 10:28
1106 .. FUNC
;SEEk FLWCTJON
484 002140' 012161 000106 001450 SEEK: MOV
;DIFFERENCE WORD
485 002146' 016771 001450 001360
DIFWD .. iRLDA
MOV
;SET MARKER BIT
486 002154' 052777 000001 001352
11 .. iRLDA
BIS
487 002162' 000416
BR
EXEC
;READ HEADER FUNCTION
1110.FUNC
488 002164' 012767 000110 001424 RDHDR: MaV
489 002112' 000412
BR
EXEC
;GET STATUS •••
13 .. iRLDA
490 002174' 012777 000003 001332 GSTAT: MaV
491 002202' 000403
403
; ••• OR •••
; ••• RESET AND GET STATUS.
113 1RLDA
492 002204' 012777 000013 001322 DRVRTS: MOV
493 002212' 012767 000104 001376
;GET STATUS FUNCTJON.
MOV
1104.. FUNC
494
; GP-4
11416 .. IRLCS
; CLEAR THE OLD •••
495 002220' 042777 001416 00'302 EXEC: BIC
; GP-4
DRIVE .. iRLCS
; ••• AND INSERT NEW DRIVE •••
BIS
496 002226' 056777 001372 001274
; GP-4
FUNC .. iRLCS
; ••• AND OPCODE BITS.
497 002234' 056777 001356 001266
BIS
MOV
IINTSRV .. IVECTOR ;SET UP INTERRUPT VECTOR ••.
; GP-4
498 002242' 012777 002262' 175540
; ••• AND EXECUTE.
; GP-4
BIC
1200 .. iRLCS
499 002250' 042777 000200 001252
;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT.
EXITS .. 8EGIN
500 002256' 104400 000000'
501
;•· CONTINUE HERE ON RL INTERRUPT.
502
503
•·
INTSRV:
504 002262'
505
•.----~-----------------------------------------,.----------------; QUEUE UP TO CONTINUE AT 1$ AND RTI
PIRQS.8EGIN
.. 1S
506 002262' 000004 000000' 002270'
507
•----------------------------------------------------------------lS:
T.STAT
CLR
508 002270' 005067 001264
MOV
RLCS.CSRA
;LOAD ADDR OF CSR
509 oo2~4' 016767 001230 175576
;LOAD CONTENTS OF CSR
MOV
iRLCS .. ACSR
510 002 2' 017167 001222 175572
ACSR .. T.CS
MOV
511 002310' 016767 175566 001230
MOV
iRLBA .. T.BA
512 002316' 017767 001210 0012~4
MOV
iRLDA .. T.DA
513 0023~4' 017767 001204 0012 0
MOV
iRLMP .. T.MP
514 0023 2' 017767 001200 001214
;TEST IF RLV12 CONTROLLER
BIT
IBIT3 .. SRl
515 002340' 032767 000010 175450
; GP-4
BEQ
;BR IF NOT
20S
516 002346' 001403
; GP-4
MOV
;GET EA BITS
iRLBAE .. T.BAE
517 002350' 017767 001164 001200
; GP-4
20S:
TST
;ANY ERRORS
T.CS
518 002356' 005767 001164
11S
;YES. CONTINUE TO CHECK
519 002362' 100403
81111
CLR
RETRY
520 002364' 005067 001134
RTS
R5
;NO. RETURN CALL+4 SkIP RETRY
521 002370' 000205
522
11$:
INC
RWER
523 002372' 005267 001166
MOV
INULLX.HTYPE
;SETUP FOR NULL PRINT
524 002376' 012767 005402' 003054
BIT
I8IT14 .. T.CS
;DRIVE ERROR
2404 ' 0327t7 040000 001134
525
BEQ
;NO,8RANCH
2S
526
~412' 0014 7
001112
MOV
;GET
STATUS
13
..
iRLDA
414' 012~77
~~, 0!?4U'
001114
MOV
14
r"p
012 67
DRlvE,TMP
B1S
oq/40' 056767 001170 001106
MOV
T.... iRLCS
oq~4 '016777 001102 001064
99S:
S 1 88 444'
BREAKS .. BEG1N
;TEMPORARY RETURN TO MONITOR ••••
~:~~44' 104407 800000'
S3~
BREAKS.BEG1N
;THEN CONTINUE AT NEXT INSTRUCTION.
53 oo.i~50 ' 1fi49~ ooogo'
0002 0 001046
BIT
1200,8RLCS
454' 27
S34
BEQ
99S
535 882462' ~ 1770
MaV
iRLMP T.STAT
001046
001066
88~4%'
MSGNS .. BE~IN .. DRVERR
;ASCII MESSAGE CALL WITH COMMON HEADER
4 2' 017767
403 000000' 005452'
000006
175400
;DRIVE eRROR
00
500'
01~767
MOV
'6
..
ERRTYP
5~J89
;***************************************************************

888881

L 1

MCYll 30(1046) 18-NOV-81 10:42 PAGE 12
RLAF OEC/X'l SYSTEM EXERCIS~R MODULE
XAlAFO.Pl'
18-NOV-8' 10: 8
540 002506' 104405 000000' 005476'
HRDERS,8EGIN.TABLE
•
541
.***************************************************************
542 002514' 012777 000013 001012
MOV
113.iRLDA
543 002522' 0'6777 001016 001000
TJIF.iRLCS
"OV
544 002530'
98$:
545 002530' 104407 000000'
;TEMPORARY RETURN TO ..ONITOR ••••
BREAKS.BEGIN
546 002534 ' 104407 000000'
BREAKS,BEGIN
;THEN CONTINUE AT NEXT INSTRUCTION.
547 002540' 032777 000200 000762
BIT
1200.iRLCS
548 002546' 001 no
BEQ
98S
549 002550' 000522
HORPT
BR
550 002552' 032767 020000 000766 2$:
BIT
I8IT13.T.CS
;NXM SET
BEQ
551 002560' 001404
21S
552 002562' 012767 005376' 002670
INXM.HTVPE
"OV
553 002570' 000515
BR
HRDRPT
554 002572' 032767 002000 000746 21S:
I8ITl0,T.CS
BIT
;OPI SET
BEQ
555 002600' 001423
4S
oNO. CHECK DCRC,DCK
556 002602' 012767 005351' 002650
IOPJ.HTYPE
INITIAL SET FOR OPI
"OV
557 002610' 032767 004000 000730
I8IT11.T.CS
HCRC?
BIT
3$
BEQ
558 002616' 8V1404
NO. BRANCH
559 002620' 12767 005371' 002632
'HCRC,HTYPE
HCRC ERROR
"OV
560 oo2ti6' 000505
BR
FNDBSC
FIND BAD SECTOR
I8IT12,T.CS
561 002 0' 032767 010000 000710 3S:
BIT
HNF
BEQ
HRDRPT
562 002636 ' 001472
NO, REPORT AS REPORT ''OPI''
;GP-1
563 002640' 012767 005365' 002612
.HNF ERROR
'HHF.HTYPE
"OV
BR
FNDBSC
564 002646' 000475
;60 CHECK BAD SECTO~ FILE
565 002650' 032767 004000 000670 4$:
181 T11 , T•CS
BIT
;DCK?
5$
BEQ
566 002656' 001406
;NO,IIJST BE DLT
567 002660' 005367 000666
DEC
T.DA
;RACK UP TO SECTOR THAT WAS BAD
;.,..;x ERROR
MOV
568 002664' 012767 005361' 002566
'DCK.HTYPE
569 002672' 000463
FNDSSC
BR
;60 CHECK BAD SECTOR FILE
510 002674' 012767 005355' 002556 5$:
'DLT,HTYPE
;SETUP DLT ERROR
"OV
571
IelT2,SR1
572 002702' 032767 000004 175106 RPTERR: BIT
;PRINTING SOFTERRORS ??
55S
573 002710' 001011
BNE
;NO SKIP PRINT
574 002712' 104403 000000' 005456'
"SGNS,BEGIN.SOFT
;ASCJI MESSAGE CALL WITH COMMON HEADER
575 002720' 012767 000001 175160
MaV
,1.ERRTYP
;DATA ERROR
576
;****************************************************************
577 002726' 104406 000000' 005476'
SOFERS.BE6IN,TABLE
;
578
;****************************************************************
579 002734' 026767 000564 000564 55$:
CMP
RETRY.LIMIT
;RETRY EXHAUSTED
580 002742' 001405
BEQ
6S
;YES. NO MORE RETRIES
581 002744' 005267 000554
INC
RETRY
582 002750' 162705 000004
SUB
14.R5
; ADJUST RETURN pc ••.
RTS
R5
583 002754' 000205
; ••• AND TRY AGAIN.
61:
0027S6' 816700 000634
FUNC&RO
: GET FUNCTION CODE •••
; GP-2
"OV
177761
BIC
I·C1
fRO
;
•••
STRIP
IT
•••
; GP-2
82762'
42~
27 '01606
MaV
FNCLS (RO).EXCEED t ... AND GET APPORPRIATE TEXT.
884726' 002432
; GP-2
2460 002436
NOV
HTYPE.TERl
;G T ERROR TYPE
i~'
016767
MSGNS.BEGIN.HARD
;ASCII MESSAGE CALL WITH COMMON HEADER
589
005436'
3 10' 104403
104403 . '• 005426'
MSGNS.8EGJN EXCEED
;ASCII MESSAGE CALL WITH COMMON HEADER
590
NORPT: CLR
591 003 16' 88S~7 000502
R~TRY
RTS
R
592
4' 0yo~
6 67s 002430 002406 H.' RPT: MaV
HTYPE •TERl
593
MSGNS.8EGIN.HARO
594 00 2' 184403 000000' 005436'
;ASCII MESSAGE CALL WITH C~ HEADER
SR
HORPT
59S 003040' 0 0766
0

m88 81'

88Uf

SEQ 0011

RLAF DEC/Xll SYSTEM EXERCISER MODULE
XRLAFO.P1'
18-NOV-81 10:28
596
597
598
599
600

601
602 003042' 016701
603 003046' 016700
604 003052' 042700
605 003056' 160001
606 003060' 010177
607 003064' 052777
608 003072' 016767
609 003100' 052767
610 003106' 016777
61' 003114' 004767
612
613
614
615 003120' 016700
616 003124' 005067
617 003130' 005067
618 003134' 010077
619 003140' 012777
620 003146' 012177
621 003154' 004767
003160' 056m
003166' 042777
~~ 003174'
004767
624
625 003200' OOS7n
626 003204' 100023
627
628 003206' 062700
629 003212' 005767
630 003216' 001012
631 003220' 026700
632 003224' 001343
633
634 003226'
635 003226' 104403
636 003234' 004567
637 003240' 000167
638
639 003244' 026700
640 003250' 001331
641 003252' 000765
642
643 003254' 016701
644 003260' 062701
645 003264' 012782
646 003270' 0121 3
647 003272' 100437
648 003j74' 012104
649 003 76' 000303
tt50 003 00' 006303
651 003302' 150403

MACY11 30(1046)

1
lB-NOV-S1 " 10:42
PAGE 13

·
;ERROR
WAS HCRC OR HNf OR OCK, POSITION TO lAST TRACK AND RECOVER
;BAO SECTOR FILES. IF OCK/HNF CHECk WHOLE DA, IF HCRC CHECk IF
;WE WERE DOING A RDHDR IF READ HDR THEN CHECk ONLY TRACk AND
; CYLINDER.
•·
LSTCYL,R1
FND8SC:
MOV
lAST TRACk
000532
HDRWD,RO
MOV
PRESENT POSITION
000546
CLEAR OUT HEAD
000100
BIC
1100sRO
RO,RI
S18
CALC SEEk DIfFERENCE
MOV
000450
Rl aRLDA
LOAD SEEk DIfFERENCE
12~,iRlDA
000025 000442
BIS
SET HEAD " SEEk IN
DRIVE,fIIFLG
SELECT DRIVE. CfIIIflG UESD)
MOV
000526 000462
16,I¥LG
BIS
SET UP SEEK
000006 000454
MOV
SEEk
000450 000414
MFlGfiRLCS
PC,W ROY
176352
JSR
WAIT FOR SEEk TO FINISH
;NOW SITTING ON LAST TRACK, RECOVER BAD SECTOR FlLES AND COMPARE
fIIOV
LSTTRK,RO
;STARTING SECTOR 0
000456
000432
CLR
MFLG
;SWITCH TO TELL US MANUF OR FIELD FILE
000432
CLR
FND
;FLAG TO INDICATE HEADER FOUND IN LIST
2$:
000374
MOV
R,0_laR56L.~~RL"P
"LOAD SECTOR TO READ
177400 000370
fIIOV
~
TWO SECTOR READ
MOV
121S,iRLCS
READ Cor.MND
000215 000354
; GP-4
JSR
PC,SETRBA
BUFFER ADDRESS.
176566
; GP-4
000440 000342
SIS
DRIVE,aRLCS
INSERT DRIVE
; GP-4
BIC
1200,iRLCS
E~ECUTE IT.
000200 000334
JSR
PC,WTRDY
WAIT FOR DRIVE
176272
TST
aRlCS
,READ SUCCESSFUL??
000324
BPl
41
;YES, GO CHECk FOR SECTOR
14,RO
ADD
;NO, NEXT SECTOR
000004
TST
000344
MFLG
;WHICH WE READING, MANUF OR FIELD
31
;FIELD COMPARE AGAINST 77750
BNE
FSTBSC,RO
000346
CfIIIP
;MANUFACTURING, AT END
;NO, GO BACK AND READ NEXT
BNE
21
99S:
000000' 005446'
MSGNI,BEGIN,NOSEC
;ASCII MESSAGE CALL WITH COMMON HEADER
176332
JSR
RS,DROP
17S2oo
JfIIP
LOOPL
3S:
000324
CfIIP
lSTBSC,RO
;AT END OF FIELD BAD
;NO, GO BACk
BNE
21
SA
99$
;YES GO DROP DRIVE
174644
4S:
fIIOV
R8UfVA,Rl
;GET WHERE WE READ
000010
ADD
110 Rl
;S.KIP PAST I.D. ETC ••••••
000176
MOV
1126. ,R2
;ONLY 126 ENTRIES
441:
CRl) +,R3
MaV
;GET CYLINDER
aMI
881
; filiI MIS WE'RE DONE
CR1)+,R4
MOV
;GET TRACK AND SECTOR
SWAB
R3
;AlIGN PROPERLY
ASL
R3
R4,R3
BISB

SEQ 0012

RLA' Ee/,x," S'iTE" EXERCISER MODULE
8··

XRLA' .P

m
~1

7'~
714

715
716
717

718

719
720

~j715

~~~

77~'

~3S

m
HI

141

74i
74
74

~~i5
7:
4

~I
J

, -NOV-I' 10:Z8

8 2
MACY11 30(1046) 18-NOV-81 10:42 PAGE 15

T.IAE: •WORD
T.STAT: .WOAD
"FlG: •WORD
RWER: •WORD
FND:
•WORD
DRVJltSK: .WORO
FSTIse: .WOAD
lSTsse: .WORO
MASk: •WORD
lSTCYl: .WORD
LSTTRk: .WORD
MSKZ: •WORD
elk:
.\.'ORD
eNT:
•WORD
MULDRV: .WORD
DLTCNT: .WORD
FUNC: •WORD
HDRWD: •WOAD
DIFWD: •WOAD
DRIVE: •WOAD
DVICE: •WOAD
weNT1: •WOAD
weNTZ: •WORD
aUF IN: .alkW
eSEeSF: .Slk"
CUMSG: .WORD
CURADR: .WORD
NXTADR: .WORD
Nlf8:
•WORD
FNeLST: NULlX
MESIA
MES9
MES6
MESS
MES8
MES7
NULlX

; RLV12 ME

8
g
8
o

8
o

256.
25.

MES1:

MES2:

.ASCJl

MES3:
"ES4:
MESS:

.ASCIl 'DRIVE'
.ASCJl • DROPPED I'
.ASCll 'READ HEADER'

"£56:

.ASCIZ 'SEEK'
.AselZ 'READ'
.ASCIZ 'WRITE'

"ESa;

; GP-4

; opeODE 0 UNUSED.
; 1 = WRT CHIC.
: 2 = RESET OR GET STATUS.
; 3 = SEEK.
; 4 =READ HEADER.
: S = WRITE.
; 6 = READ.
: 7 = READ NO-HEADER (UNUSED).
.ASCIZ 'NO DRIVES PRESENT I'

ME$7-

SEQ 0014

'NO DRIVES LEFT I'

; GP-2
; GP-2

: GP-2

seQ 0015

MCY" 30(1046) 1a-Nov-al 10:42 PAGE 16
"ESSA:

.ASCJZ 'WAJTE-CHECk'

8~~l~~ "eS9:

.ASCJZ 'DAIVE RESET'

S
~!~'! gS112~
4 S03

4185 4r

tisIJi 8~ V~i

g475J2

; GP-2

"ES10: .ASCJZ ' AETRY lIMIT EXCEEDEDS'
"ES11:

.ASCIZ

'SSEEk TO WRONG CYlINDEAS'

4~1 ,
~l442
250 02 522

mm
srr
Hjm 811 ~~

.ASCIZ 'DATA lATES'
J "eS12:
"ES13: .ASCJZ 'DAIVE ERRORS'

8~J!~~ 8~811~

"eS14:

.ASCIZ 'SOFT ERROR

"ES15:

.ASCIZ 'AlX lOAD UNIT DROPPED'

MES16:

.ASCJZ 'HARD ERROR

NBDSC~

.ASCJZ 'CANT RECOVER BAD SECTOR FILES'

oPt:
DLT:

.ASCtZ

IOPJ'

.ASCJZ 'DLT'
DCK:
.ASCJZ IDCK'
'HHF'
·HCRC'
~'L .ASCIZ
:~I~ll ,'NXM'
NXIt:
,
NULLX: .ASCJZ
CR:
.ASCIZ 'I'
.EVEN
DROMS: MES3

m;n

NtlEFT: ~"J77
ABORT : ~'J~77

•

D 2
MACY11 30(1046) la-NOV-81 10:42 PAGE 17

SEQ 0016

EXCEED: .WORD 0
..£510
CR
177777
HARD: ..ES16
TER1: •WORD 0
CR
177777
NOSEC:
DRVEAA: ME51]
177777
SOFT: ..ES14
HTYPE: •WORD 0

~~7777

000001

BDSEEK: MESl1
177777
DROPLD: MES1'
177777
•
;AEGJSTEAS OF RL11
•
T,~lE: •WORD
T.CS
•WOAD T.eA
•WOAD T.DA
•WOAD T.MP
TABLE': .WORD T STAT
TABLEZ: .WOAD 1777777777
.""AD 1 7
.END

;CONTROL AND STATUS REGISTER
;8US ADDAESS REGISTER
:D1SK ADDRESS REGISTER
:D1SK DATA BUFFER ADDRESS
:T.8AE :HAS STATUS ON DRIVE ERROR
:T.STAT t·TERMlNATOR
:TER/llilNA OR

:6P-4
: GP-4

E 2
30(1046) 18-NOV-81. 10:42 PAGE 19
CROSS AE'ERENCE TABLE -- USER SYMBOLS

SEQ 0011

~C'1'

&""'T
m
ADDR

511

ADDR22=
ASI
ASTAT
AWAS
8DSEEK
·IEGIN

244
424

590

298
506

350
532

545

546

354
533

365
531

377
540

401
545

402
546

407
574

330

335

485

7261

565

401
444

458

515

402

532

533

381
839
357

721'

73"
371

134'

307*

308*

496

529

608

622

684

72'1'

F 2
MACY11 30(1046) la-NOV-Sl 10:42 PAGE 20
RLAF 8EC/X11 SYSTEN EXERC~S~R MODULE
IAlAF .P11
18-NOV-81 1 : 8
CROSS REFERENCE TABLE -- USER SYNIOlS
71]1
DAVMSK 003570R
417
264
253
255*
2'~.
DRVRlS
~29.
7281
264
242
417*
240*
OVle!
t=
OVID'
·1 R
4 ,.
457
4661
EA1!
I~ITS= \I~.
4~2
29
2=
EfI)$ == 104410
'-f4
575*
405*
538*
~587*
4'
ERRTYP
~902*
8211
EXCEED ,
4951
489
483
487
478
EXEC
EXITS = 1 ,.
FINt
001 R
~!f
587
7 7'
FNelST 004
688
617*
712'
~65*
FNO
FNOBse .. ·2R
569
64
602'
~~,
FREE
7141
631
672
75*
287FSTISC
497
585
479*
484*
488*
474*
493*
F....e
.
22
,
250
GETPAS= ~4
47r
49
GSTAT
117
GIIIlUFS= 1 . 4
8261
J*~
655
!04'
HOlM) B5~
3620R
03
317
299*
313*
319*
312*
316*
359
476
481
603
44
357*
660
33 *

o. F

't'1

0001=8:

m
=

H:
:=
R
E5R
leMT

IDtUI
ax.=

INTR
INn

INTSAV

LINJT
LOOP
LOOPL
LSTIse
LST~YL
LST RIC

211

~fl~,R

IIi ~

MASte2

I~lo
51 i
S1

MES1S
NES16

Ir
~~l,

ssf.
52 *

~!~*

~JOI

l!~~ A

171'
172'
21

12
~~ ~A
... 6ft
7
~4 R

~71

lA'

ii!

~~~tI~!
I

Ji~R
MAP22S= , J4 4J~ i@

MSI(

It
'til

0311
354

m.
2°1
1f: lr- ,61

HNF
HROCN'r
... ~R
NAOfIlS= , .4~
Hl!I)PAS
"feD"PT
"TYPE
leONT

~~;

zp.

88Bt
IlJOR
1

~!'~

~~ R

HI!

t
l

'Id
i.; ',~ RR
s~: ~RR

SEQ 0018

jt=
76*

778*

~'79*

;»J~

~!4*

7~~

'74'
'79'
,i
,] ~'1

559*

563*

S()8*

~fg,

411
676
718'

637
717.

~r;

IIi.1
3

4*-

~~:
26

72411

323
675

325*
681

326*
725'

593

655

838'

540

366

'r' p~
,i "

407
593'
556*

657

~!~
JJ~

6°i
61

iYl

71r,
71 II

570*

588

332*

334*

RLAF gEC/X11 SYSTEM EXERCISER MODULE
IRLAF .P',
18-NOY-81 10:28
815
MES
I"~ 771R

~.01

flIES
flIES
fllESS,5
JllE

R
,~Oil R
~~tO

50 lR

=~,
fllESSA

lEG
IIJDNNII
asp

00=1
)071R

~~2~=
._--

125'R
"SGNS :: 1044Q~

MSGSS:: 1402

"SGS :: 1 ,401

IU.DRV

12R

reo,se

005 13A

NORPT

003016R

NOLEFT 005 16R
NOSEC
NULL :: 001&44

X
3i
S~02=
NX"
0053~6A

NXTADR 004722A
OPEN =: 000000

=,r=88_

005351R

OPl

PA22

, '2044R

~~J:_

POPSP2= y~t_'6

PRTY

=: DO

PR"Vi : : %
PAT,'::
WooO
PRTV::
100
PRTY]
2'4H'
PRTY4 ::==
PRTV5
.~00
PRTY6 ::::

PRTv7 ::

~Iw

:= "~!~t
"'7~t
=i: ,.~~:1'
PUSH

=-:
RlUFPA

fllUF5Z

RBUFVA

RDHDR

~i:4R
1 2!
1 2R

124R
,,, 64R

~~V!

755i

141
140
743
742
738
739
608*

155.
169
220.
220.

2201
722'
794'
421
549
635
220'
25~4*
52
735.
156
191
211

~~8.

110'
450461
2201
220.
2201
2201

il&
2201

2~S'
1
201
~?
~
~~ ~,

G 2
MACY11 30(1046) l'-NOY-8l 10:42 PAGE 21

CROSS REFERENCE TABLE -- USER SYMBOLS

760'

~tl:

764.
767.
609*
218'
241
831
591.
831'
737
256*
80S'
162
193
212
800'
815'

453*
467.
506

610

616*

629

669

671*

684*

244

350

416

421

537

574

595

691

183

184

744

806'

263*

7361

811

163

164

165

460

465'

195

220'

455

220.

~:;~ ~~f

SEQ 0019

453
643

488'

196

198

182

199

200

203

686

710'

589

590

594

635

185
204

206

186

187
207

209

188

189

210

H 2
MACYll 30(1046) 18-NOV-81 10:42 PAGE 22
RLAF DEC/Xll SYSTEM E)(ERCAS~R MODULE
XRlAFO.Pl1
18-NOV-81 1 : 8
CROSS REFERENCE TABLE -- USER SYMBOLS
READ
374
479'
R!STRT
197
2461
180'
RES~
RES
181'
RETRY 00 4R
579
591*
520*
581*
695'
2!6*
RLBA
00521
512
455*
461*
4 1*
698'
RLBAE oo3540R
517
439*
701'
~ti* 349
ALCS
oo3530R
347
397
407
394*
395*
429*
509
510
534
547
530*
543*
499*
610*
697'
RLDA
oo3534R
513
433*
476*
481*
485*
486*
490*
492"
699.
679*
680*
683*
RU.
514
536
700.
435*
475*
480*
619*
RPTERR
690
572'
270~R
11R
197.
RSTRT
249.
RSTRTl
34R
247
243
~564R
369
IMR
372
375
7111
267*
385*
523*
SlADA Bl0~
1901
484.
SEEk 00 14
338
SETC.. 881762R
455'
4Si,
SETA8A
1746A
45
621
482
seTtP 001*
228
4281
SET_
4501
477
SOFCNT
. 2A
11]1
SOFERS: 104406
517
2201
175'
SOFPAS =61
8371
574
169'
fptINT
SPSll = · 0
213
162.
380
436
458
515
572
" 295
SRl
oooo~
5R2
0000
1631
164'
SR]
'~.22R
5
SR4
0
'~4R
START I t",l 2R
443
221.
248
'
)261
STAT
16'.
SVAa
18
1~
18
SVAl
~!
184'
SVRJ
SVR.7~
115•
161
SVII~
~R
1871
SVR6
SVII
SYSCNT
s~
354
577
85O.
540
TAILE
~~76R
854.
TABLEY
44V*
8SS.
44 *
TAlLEl
~J14
295.
TAG
TAGl
,. ORR
329
336
338.
TAG2
1 74R
TERl
J~4OR
8~1'
50
543
7031
29*
tfIP
TRPOFO= ~~~
70S.
T.SA
~~~r
44
517*
T.8AE
~ :~:)S6"
~!' 550
557
554
561
565
T.CS
00 ~4~
5',
663
7061
852
T.OA
oO~ S If
S6 *

seQ 0020

Il~
0000=

456*
620*
527*

457*
622*
542*

704.

850

88W.

=9:

14R
\I

1'"

j~:

~r.
r
S1
~1r
Jll:

495*
623*
606*

496*
625
607*

497*
686*
618*

~kt~F8~~{'" Sli!~~v!I'R~A~51 MODULE

l:~AT 88J~l~=

VECTOR 000010R
WASADR ooo104R

\8JFEA 000136A

=~= ~1ro:

WlUfSZ 000142R

~~=ll 88Jti~
WDFR
WOTD
WRCHK
WRITE
"TROY
XFlAG

000116R
000114R
0020SOR
002060R
001412R
000005R
=OOS514R

~f~
15a,
192.
201'
28"

~o8:
3t~:

199'
1981
371
368
212
1561
731.

~gg*

442
451
450
366

~tr:

221*
222*
472'
474'
339
732'

I 2
MACY11 30(1046) la-NOV-81 10:42 PAGE 23
CROSS REFERENCE TABLE -- USER SYMBOLS
342
514*
707.
853
536*
709.
854
498*

475
480

729'
730'

394'

611

624

687

seQ 0021

ALAF 8EC/Xll SYSTEM EXERCASER MODULE
XRLAF .Pll
'8-NOY-81 1 :28
11
BKMOD
544
400
BREAk
53'
BToo
CkD~TA
"11 377
OATACK
DATERR
" 220
OFSEVN
l'
DSEVNT
220
l'
423
END
l'
258
ENDIT
11
1.
ENDJIIOD
"j ,
eQUATS
~20
EXIT
00
250
GETPA
"" 3~5
QBJFf
HADER
"11 3 3 406 539
lCJ110D
I(1Q)P
lCJllODR
""11 '48
I~X
460
MAr2
fl)l)UlE
"11 149
MSG
"SGN
" 241 244 350
MSGS
"

J 2
MACY11 30(1046> 18-NOY-81 10:42 PAGE 25
CROSS REFERENCE TABLE -- MACRO NAMES

SEQ 0022

_MOD

orCA
PJRQ

RAND
saKfltOO

SOFER

415

"
"11
"

• ASS. 000000
005S'4

504
298
576
000

00'

ERRORS DETECTED: 0
DEFAUlT GLOBALS GENERATED: 0
XRLAFO.XRLAFO.SEQ/SOL/CRF/DOC=OOXCOM.XRLAfO
RUN-TIME: 1 2 .S SECONDS
RUN-TJME RATIO: 30/4=6.6
CORE USED: 10K (20 PAGES)
DOClft'NT PAGES: 22

420

537

574

589

590

594

634