Digital PDFs

AH-S915E-MC

September 1985

78 pages

Original

27MB

view download

OCR Version

32MB

view download

Document:	Micro Fiche Scan Name of device(s) tested: RAG0/80/81, UDAS0, KDASO Test description: UDALO/KDALO DEC/X11 MOD MAINDEC Number or Package Identifier (after SEP 1977): CXDUBEQ Fiche Document
Order Number:	AH-S915E-MC
Revision:	000
Pages:	78
Original Filename:	CXDUBE0__RA60-80-81,UDA50,KDA50__UDA50-KDA50_DEC-X11_MOD__AH-S915E-MC__1985_gray.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

RA60/80/81,
UDAS0, KDAS0

Test description:
UDAS50/KDAS0

MAINDEC Number

DEC/X11 MOD

Package

Identifier

(after

SEP

1977):

CXDUBEO

Fiche

Document Part Number:

AH-S915E-MC

Fiche preparation date

unknown,

using copyright year:

1985

Image

resolution:

8-bit gray levels,
COPYRIGHT

(C)

max.

quality

for

1981-85 by dlilgliltlall

archiving

- °

SEG 0001

IDENTIFICATION

PRODUCT CODE:

AC-S914C-MC

PRODUCT NAME:

CXDUBEO - UDASOA/KDASOQ DEC/X11 MOD

PRODUCT DATE:

1-0CT-1985

MAINTAINER:

ROGER OAKEY

AUTHOR :

MATT TEDONE

UT
CT TO_ CHANGE WITHO
DOCUMENT IS SUBJE
THE INFORMATION INDTHIS
DIGIT
BY
TMENT
COMMI
A
AS
RUED
CONST
BE
NOT
NOTICE AND SHOUL N. OIGITAL EQUIPMENT CORPORATION ASSUMES AL
EQUIPMENT CORPORATIOANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT .NO
RESPONSIBILITY FOR

BILITY OF
ED FOR THE USE OR RELIA
NO RESPONSIBILITY IS ASSUM
OR ITS
AL
DIGIT
BY
IED
SUPPL
NOT
IS
THAT
SOF TTWARE ON EQUIPMENT
AFFILIATED COMPANIES.

THE FOLLOMING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DEC
DEC/CMS
DECnet
DEC.;-to--lo
DECSYSTEM-20
DECUS
DECwriter

DIBOL
EduSystem
IAS
MASSBUS
PDP
POT
RSTS

RSX
UNIBUS
VAX
VMS
A
Digital Logo

EM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 1
DUBE DEC/X11 SYST
ION

USER DOCUMENTAT

.ENABL LC
.REM &

0000000000000

s et

S W+
WOV OV

TABLE OF CONTENTS

1.C

ABSTRACT

REQUIREMENTS

START UP
PASS DEFINITION

EXECUTION TIME

CONFIGURATION REQUIREMENTS
DEVICE/OPTION SETUP

MODULE OPERATION

OPERATION OPTIONS

PRINTOUTS

DUAL PORT OPERATION
GLOSSARY
BIBLIOGRAPHY

ABSTRACT

that of other disk subsysThe exerciser will be similar toperfo
rmed to the d isks folbe
tem exercisers. MWrites will
data read. The controller
and compare of the

lowed by read
will do ell error. retrying. Errors will be reported on the
console terminal

ller will be exercised
All desired disk drives on the contro
is not required, t
ssi

If disk eacce
simultaneously.
only as far as
go
will
ten
writ
data

controller’'s RAM

memory.

requires more information,
If the results of the exerciser
available. They are:
are
ams
progr
ostic
other PDP-11 diagn

Besic Subsystem Diagnostic
CZUDHA1 - UDAS0-A/KDASO-Q
ASO-Q Disk Drive Exerciser
CZUDIAO - UDASO-A/KD
CZUDJAO - UDASO-A/KDASO-Q Disk Subsystem Exerciser
CZUDKAO - UDASO-A/KDASO-Q Disk Formatter.

2.0

REQUIREMENTS

SEQ 0002

SEQ 0003

1-1
DUBE DEC/X11 SYSTENM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page
USER DOCUMENTATIO

Haraoware for all cases:

One DEC/X1i module configures for one UDASO-A or KDASO0-Q

controller.

Herdware for disk occcuintz

um
at least one drive sis isthetheminim
One controller witholler
mum
i
max
drive
with four
m: or one contr
.

amount

Mardware for no disk accessing:
One controller is the only requirement.
Memory:

DUBE requires

Decimal words -- 4096 MAX

3.0

START-UP

em will clear bitl of
On the initial start, the progr
ges.
and type the following messa

DUBEO PA:0060162

APC: 000674

'SR1’

PASS #00000

MER DATA, SET BIT1 (NOT BITO)
*IF YOU WISH TO DESTROY CUSTO
OF DUBE? EQUAL TO 1.°

IN SWITCH REGISTER 1(SR1)
PASS €00000
APC: 000722
DUBEQ PA:0060210
!’
SING
ACCES
"1 OPERATING WITH NO DISK

This will occur regusrdless of the condition of SR1
at configure time.

(bitl)

ise the drive, SR1 (bitl)
If the operator wishes to exerc
of CXDUBEO module (see sec16
ion
locat
at
must be modified
m by using the 'MOD' comtion 9). This cen be ncfilo
time system. Unless the
run
1
DECX1
mand supplied by the
modifies the location
tor
opera
the
or
ded
reloa
program is
again, the contents of SR1 will remain the same on all subsequent starts.

the condition of SR1 (bitl) will
On sll subsequent starts,follo
wing manor.
type to terminal in the

If bitl of SR1 is equsl to O (zero). the following warning
will be typed.

DUBEO PA:0060210

APC: 000722

*1 OPERATING WITH NO DISK ACCESSING !’

PASS €00000

If bitl of SR1 is equal to 1 (one), the following warning
will be typed.

SEQ 0004

V05.03 Fridey 27-Sep-85 16:23 Page 1-2
DUBE DEC/Xx11 1:;%&8‘" EXERCISER M MACRO
vSER

DOCUMEN

APC: 000722

DUBEO PA:0060210

*1 CUSTOMER DATA WILL BE DESTROYED !’

PASS €00000

»>>>
diskless mode, its
When this DEC/X11 module runs in es.
This may cause

cc<cc NOTE

deta rate exceeds all other devic
erroneous data lates from other devices.
4.0

PASS DEFINITION

of
e consists of 512 iterations
One pass of the DUBE modul
The
).
check
data(write, read,
the basic test sequence defin
ed number of words (detest sequence writes a user
reads 256 words, and data-compare
fault

.
same

5.0

256)

words,

EXECUTION TIME

running
of one pass of DUBE sing
The default execution time
mode
acces
disk
under sequential

elone on a PDP-11/34
rendom accessing
will be .pnuntc“ 20 seconds. ForUnder
no disk accessing, the

mode,

the time is

time is five seconds

6.0

seconds.

CONFIGURATION REQUIREMENTS
Default Parameters:

DEVADR:

0, SR2:

172150, VECTOR:

154, BR1: 4, DEVCNT:

1. SR1:

REQUIRED PARAMETERS:

module(s) configured must have different
Additional controller
snd vector(s).

bus address(es)
7.0

DEVICE/OPTION SETUP

d up.
For disk mode, meke certain that all unitsviaerethepowere
SDI end readty.

write enabled, connected t5> s controller

For diskless mode, make certain the controller i® powered uo.
8.0

MODULE OPERATION

SEQ 0005

DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 1-3
USER DOCUMENTATION

ALHIOMMDN®

TEST SEQUENCE DISK MODE:

Setup device register addresses and module variables.
Set controller characteristics.

Reset all units on-line and drop all that are not.
Get @ unit address.
Get & disk address and a fresh block of dete.
Do @ write -- if errors, report.
Do @ read -- if errors, report.

Do & data-check -- if errors, report and continue.

report and

If end of

to 0,

If end of uflm unit, go !: C: else go to D.

Blocks determined defective won't be replaced by

the ex-

erciser.

nmoNe»

TEST SEQUENCE DISKLESS MODE:
Get a fresh block of data.

, report.
@ write to controller RAM bu"’r -=- ififerrors
,.report.
errors
-r
a read from controller RAM buffe
nue.
conti
and
t
repor
.
a date-check -- i

9.0

epecified

module

the

lowing cheracteristics.

tch Register 1 has the
gl.‘iit t m’(l):
reset

(0):

lgt

No disk ¢t

tun.
.

SR1 Bit 2 set (1):

Do not report errors as they

SR1 Bit 3 set (1):
reset (0):

Do not print ‘rm susaery at
end of pass.
Print srror sumsary at end of

SR1 Bit 9 set (1):

Run Dusl port mode (only valid if SR1

reset (C):

as they occur.
Report errors
pass.

SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 1-4
DUBE DEC/X11NTATIO
N
USER DOCUME

reset (0):

not run Suol port mode

it 1l is set)

block eddr ing.(onl
L emwetD RenY
et
R
Seleet
i:
wf
Select

SR1 Bit 10 set (1)

Select r

SR1 Bit 11 set (1

Bypess dats compere.

t
reset (0):

reset 26):

Do date comspare.

Switch register 2 has the following characteristics.
SR2 Bits O to S:

Burst rate.

l:'-”:nmwn
n-u
otb
mzl
who
'“?
be
can
time.
SR2 et configure

SEQ 0006

M EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 1-5
OUBE DEC/X11 SYSTE
ION

USER DOCUMENTAT

DUBEO PA: 00060470

PRINTOUTS

A, ngt,rintm have the staenderd formats described in
the

DEC/X11 document.

w';:t

pflnmn include error messages which

-r

lte
tg
-b

PESS. PGB oo Sriotada dociaaly
JW%
U3060% §262Y 550001 0az100
.?""3“"
v mfiflwfifit"ln

356508 500543

RO NP NS AN O ?

10.0

ACP: 001210 PASS 00000

SEQ 0007

SEQ 0008

SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 1-6
DUBE DEC/X11 ATIO
N
USER DOCUMENT

ENDCOD -

what
This
ending code of the commendJDA, t.He
of
ist
&
is
re
the
to d
an
was sent
comm
all possible endcodes this module uses.

100 -

200

203
m

command
AVAILABLE ATTENTION MESSAGE (not efrom
the

'& T STA

241
242

it nusber

is is not re

CHARACTERISTICS

2
T
UNITNY -

sent to the host

)

GRite
the drive thet is bei

.onrd

lfunuor?orunn.lnddlm

BYTECO- weize of the buffer in bytes.

LO LBN -

EXTADR -

007, 215 ’ 2
1501
wgzy
g,Lw
gbe
ez
nt
Legio
bigh
mode.
alok
Te only valie for
Iul”lulmm(wubih).

extended sddress of the resd/write buffer.

PHYADR- physical address of the resd/write buffer.

to pessits internal disgnostic,
i

ofu-mlulnma.:l-nhnln:‘.

controller fai

:
d
» fault
If t-2 disgnostic foun

E
LT
EH
HE
E
L
R
P1
T
R
BOR0
Y
YYYY
* xxxxux IN
$&
R
= zzzzzz
ADD

If » oea '::t ] m rt a9 sxpacted during the initializetion

- XXERXX ins

ADDR = zzzz22

yyyyy

If dJdeta passed back from the controller was not equal to the

expected velue:

DUBEO PA: 00062252 APC: 002764 PASS: 00000

SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 1-7
DUBE DEC/X11 ATIO
N

USER DOCUMENT

INIT ERROR,
= xxxxxx

EXPECTED DATA WAS INCORRECT
yyyyy

IN STEP

Where xXxxxxx

cen have any of the following values and mesnings:

iga‘mooo - ;.tol
B

104041 -

105102 -

13:&3-

.neomr

ruofl-or

error

nfl!! error/ Ti

no tou-f

error/D

mmtyorm

test error

control reg test error/

fer error

proc RAM

e SERBES 10, s 1016RSGEN end
N T
1 @'- RI88§
—d®
103184
CC circuitry
106040 - U proc ALU error/DFAIL test error/
error
Unexpec
Register error
lml-l.lm

fl!mltyt‘ut
.106047 .‘c'
- U proc Constant
106055 106071 - U

m-lmo‘roemln.soxmt

m’ht

. sborted disgnostic
checksum error

ot oset)
not
(R3S or
-mrr
6 - SwlfiPo
10620ooxog:
ww
107103 - U proc

fer error
107101-2.9.0!“!
#2 test count wes wrong
u‘bag-

- S
1
122240 122300 - S§

2 error
error
3 error

error
00
- Step 4
1423

m"miom-uptndflehmmmfm.
Where zzzzzz is the sddress of the UDA.
s the
exceeded.
ie
hes been
If the =seximsum number of retr
followning messege will be printed.

DUBEO PA: 00061414 APC:002126 PASS 900000
RETRY COUNT EXCEEDED. ABORY

This

successfully complete the
wmesns the controller. didThenot
module is then dropped.

initielizetion in four passes

the ring buffer in
did not successfullybeclear
D. If the controller
ed.
print
will
the host sres, the following message
DUBEO PA: 00061414 APC:002126 PASS €00000
RING AREA NOT CLEARED

SEQ 0009

SEQ 0010

11 SYSTENM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 1-8
DUBE DEC/XMENT
ATIO

' USER DOCU

This is a fatal error.

host memory that the

host.

The module is t

not eccess
It means that the controller did
e with

troller would use to communicet
dropped.

& non-zero value after the
€. If the SA register displays
‘:utiglé::tion sequence is done, the followng message will
printed.

: 004764 PASS: 00000

DUBEO PA:

. XRRNXX

SA REGISTER IS NO

CONTROLLER IS GOING THROUGH INITIALIZATION
Where xxxxxx can have the following velues and meanings.
inifod by either @ bus init or by
004400 - controller has been
writing into the IP register.
or timeout)
100001 - bus envelope/packet read error (perity
or timeout)
y
(perit
error
write
et
pe/|
envelo
bus
100002
RAM perity error
and
100003 - contrcller
100004 - eonmihr RAM perity error
error
ity
100005 - controller ROM

or timeout)
100006- Ring read error rrt
of timeout)
(parity
error
write
Ring
100007
re
100010 - bus interrupt master failu
100011 - Host access timeout error
100012 - Host exceeded credit limit
100013 - Q@-bus master error

ic controller fatal error
100014 - Di
timeout of instruction loop
100015 al circuit identifier
virtu
id
100016 - Inval
Al
T
error on bus
write
rupt
Inter
7
10001
ion identifier

invalid
100020 - Maintenance resd/write
non-1
to
load
write
e
ensnc
100021 - Msint
(non-parity)

le controller

100022 - Controller RAM error
2
100023 - INIT n.ar\eo error incompatibility
error
col
proto
evel
High-l
4
10002
.
re

If @ drive

g
:

error (parity or timeout)

100026 -

i
2

100025 - Purge/poll hardware failu

is_ dropped

following messages will be printed.

the exerciser, one of the

it could not hendle properly
If the drive had an error
following message will be printed:

after an iteration, the

DUBEO PA: 00063012 APC: 003524 PASS #00000
DRIVE 00000

DEVICE ID BIT = 000001

ERRORS CAUSED DRIVE TO BE DROPPED

the drive was not

found by

the exerciser, the

EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 1-9
X11 SYSTEM
| DUBE DEC/
DOCUMENTATION
USER

following message will be printed:

DUBEO PA: 00063012 APC: 003524 PASS 00000
.

DRIVE 00000

DEVICE ID BIT = 000001

UNIT WAS NOT FOUND BY THE EXERCISER

e count bits set than the actusbel
If there were more devicthe
following message will
nusber of drives found,
printed:

DUBEO PA: 00063012 APC: 003524 PASS #00000
DRIVE 00000 DROPPED.
DEVICE ID BIT = 000001

DVIDI BIT SET HIGHER THAN ACTUAL & OF DRIVES FOUND
Solution: try @ lesser number of units in DVID1 (loc 14)
11.0

DUAL PORT OPERATION

set pit9 of SR1. The
To run @ dual port operation,to see
if it is offline or
unit
the
check
will
i‘!r
ongi
e.

avai

a unit until the MSCP
The controller will retain control ofhost.
During this time,
the
d
entere
Availsble commend is
to_the unit through
s
scces
ed
allow
not
is
oller
contr
other
the
The other conread.
end
write
the other port between the
eond takes
able
avail
es
becom
unit
the
when
troller senses
if SR1 bit
ted
execu
only
it. The MSCP Available commend is

are set. This allows dual porting and disk
9 end SR1 bit 1ctive
ly.
sccessing respe

DEC/X11 will only dual port a drive with enother DEC/X11
exerciser.

12.0

GLOSSARY

DUBE follows the modulee. name formst described in the
DEC/X11 Programmer's Guid
Identifies the hardwere and thus the module.
DU---B-

different
Distiguishes between two or more
The
sodules for the seme generic device. for
st
used
be
sequence A, B, C., ETC. mu

each additional exemple.

---E

Specifies the module revision.

SEQ 0011

EXERCISER M MACRO V0S.03 Fridey- 27-Sep-85 16:23 Page-y 1-10
SYSTEM
DEC/X11
MENTATION

OVeR DOCU

extended

input/

le
end ere
i
i
.
mode
dprovi
es
iliti
cepsb
added
Some
ion.
operat
of input/output
ed include:

Use of monitor

lied write buffers,

size of the write
Ability to change
buffers,
Access to the monitor's check date utility.
Conversion routines to get 18 and 22 bit
from 16 bit sddresses.

13.0

BIBLIOGRAPHY

CXQUADO ‘DEC/X11 USER’'S MANUAL' Sept 1984

CXQUBGO ‘DEC/X11 CROSS-REFERENCE MANUAL' Sept 1982
CXQUCAO ’DEC/X11 REFERENCE CARD' Jenuary 1979

CXQAFDO ‘DEC/X11 PROGRAMMERS'S GUIDE' Sept 1978
(4

588

.DSABL LC

SEQ 0012

03 Fridey 27-Sep-85 16:23 Page 3
O v05.MODU
R M MACRNITI
EM EXERRCISE
X11 SYST
DUBE DEC/SYST
LE
ON
EM EXERSIZE MACRO DEFI

DEC/X11

ER BLOCK
_SBTTL MODULE HEAD
<DUBE >,172150,154,4,0,0,1000,104,RBUF,256.,256.

TOMODLEX 150000,DUBE ,172150,154,4,0,0,1000 104 ,RBUF ,256. ,256.
MODU
OITLE OUBE DEC/X11 SYSTEM EXERCISER MODULE

000000
3 0000
00
000000

000000

28-JAN-82
°f§§$" ;Ezsxon 6.4
:
.“‘..‘.
|““..‘.“‘..‘......‘..“.“...“.“‘.....““‘.“‘.“.‘...“.‘

104

105
000
5
00000
000006 17215540
0001
000003

125

040

BEGIN:
102 MODNAM: .ASCII /DUBE / ;MODULE NAME.

: .BYTE OPEN
XFLAG
ADDR: 17215040

000010
200
000012
0001
34 00000
00001
00001
000016 0000000
0000
000020 00000
0
000022

VECTOR: 15440
.BYTE
BR1:
‘BYTE
BR2:
DVID1: O+l
OPEN
Skl:
OPEN
SR2:
OPEN
SRS:

000032 000252°
0
000034 00000
000036 001000
40
0000
0
0000424 00000
0000000
000046 00000
000040 000000
000052 000000
000054 000000
00005
m
000000
0
000060 00000
0
000062 00000
000064 0000000
000066 0000000
000070 0000
000072 0000000
000074 000000
000076 00000
000100 000000
2
00010
000102 000000
0001044 000000
00010
0001066 000000
00010
000000
000110 00106
2 000006’
00011
0001146 0000000
00011

SPOINT: MODSP
PASCNT:
ICONT: 01000
ICOUNT:
T: ©
SOFCN
: 0
O
SOFPAS:
O
HRDPAS:
0
SYSCNT:
O
M:
RANNU
CONFIG:
RES1: OO
RES2:
OPEN
SVRO: OPEN
SVR1:
SVR2: OPEN
SVH3: OPEN
SVR4: OPEN
SVRS: OPEN
OPEN
SVR6: OPEN
CSRA:
SBADR: OPEN
ACSR:
WASADR: : OPEN
ASTAT
ERRTYP: OPEN
ASB:
AWAS: OPEN T
RSTRT:: RESTR
OFEN
WDTO OPEN
WDFR:

000000
150000
oooo;g 00071
0°
000030

PRTY4+0
PRTY0+0

TO KEEP TRACK OF WBUFF USAGE
,USED
;1ST DEVICE ADDR.
R.
11ST DEVICE VECTO
:1ST BR LEVELL..
:2ND BR LEVE
1.
;DEVICE INDICATOR
1
{SWITCH REGISTER
TER 2
{SWITCH REGIS
1SWITCH REGISTER 3

STER 4 ‘“.‘.‘.“““““‘..
CH REGI
;SWIT‘...
OPEN
SR4:
.‘..
““.‘
‘.“.
““t.
|..“‘.‘.‘.“‘..t“..““
WORD.
US
;STAT
STAT: 150000
START ADDR. ER.
{MODULE STACK
INIT: START
POINT
{MODULE

COUNTER. PER PASS=1000
:PASS
10 OF ITERATIONS
ITERATIONS
COUNT TOTAL
:LOC TO
SOFT ERRORSS
SAVE TOTAL HARD
:LOC TO
TO SAVE SOFT ERRORSERROR
:LOC TO
PER PASS
{LOC TO SAVE
PER PASS
S
ERROR
HARD
SAVE
1LOCOF SYS ERRORS ACCUMULATE
D
1@
IS CALLED
MACRO
RAND
{HOLDS RANDOM @ WHENOR USE
{RESERVED FOR MONIT
USE
MONITOR USE
{RESERVED FOR
MONITOR
{RESERVED FORRO,
SAVE
:LOC TO
:LOC TO SAVE R1.
:LOC TO SAVE R2.
;LOC TO SAVE R3.
SAVE R4.
:LOC TO SAVE
RS.
:LOC TO
R6.
;LOC TO SAVE
CSR.
:ADDR OF CURRENT
DATA, OR
OF GOOD
:ADDR ENTS
OF CSR.
;CONT
DATA, OR
BAD
OF
;ADDR
:STATUS REG CONTENTS.
OF ERROR
:TYPE CTED
DATA.
{EXPE
{ACTUAL DATA. SS AFTER_END OF PASS
ARTTOADDRE
{REST
TION
MEMORY YPERPERITERA
{WORDS FROM
TION
ITERA
MEMOR
;WORDS

SEQ 0013

EM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 3-1
DUBE DEC/X11ER SYST
BLOCK
MODULE MEAD

000000
000104
007616

000400

INTR:

OPEN

RBUFVA:
RBUFPA:
RBUFEA:
RBUFSZ:

<BUF
OPEN
OPEN
256.

IDNUM:

OPEN
.REPT
NLIST
.WORD
LIST
.ENDR

SEQ 0014

ATION
1@ OF INTERRUPTS PER ITER
ER=104
NUMB
ON
CATI
TIFI
sMODULE IDEN
;READ BUFFER VIRTUAL ADDRESS
:READ BUFFER PHYSICAL ADDRESS

;WRITE BUFFER SIZE AVAILABLE
;CDATA/DATCK ERROR COUNT
;COATA/DATCK WORD COUNT
;RESERVED FOR FUTURE USE
;MODULE STACK STARTS HERE.

SPSI1Z
0o

.‘...“‘.“...‘....‘.‘.....‘.‘.‘.
H .“““.‘.“‘.“.““‘.....“.“.“‘0.
‘.‘.....‘“‘.“‘.‘.‘....‘.‘.“.O“
..‘.
3 .““‘.."..‘.‘.....“.‘..“‘.‘.‘

MODSP:

O®NONS

000252

.SBTTL
:

MODULE STORAGE AREA
FOR RELEASE
VERSION 1.0

VERSION 1.1

i
:

:
:

VERSION 2.0

DON'T TEST STEP 4 COMPLET ION.

DON'T WAIT FOR INTERRUPT AFTER SENDING MSCP AVAILABLE
COMMAND.

USE BIT 9 IN SR1 FOR DUAL PORTING. (DON'T SEND MSCP

i
;

:
:

VERSION 3.0

VERSION 4.0

i
:
:

000002
000004
000010
002000
004000

000252

000254
000256

000270

SR.XFR = BITOl
SR.REP = BITO02
SR.SUM = BITO3
SR.DUA = BITO9
SR.SEQ = BIT10
SR.CMP = BIT11

COMMAND ONCE

KDASO-Q_SUPPORT ADDED
JFM - 27-SEP-85
22 -BIT Q-BUS ADDRESSING SUPPORT ADDED.
COMMENTS CLEANED UP AND UNUSED CODE DELETED.
DOCUMENTATION HAS BEEN UPDATED SOMEWMAT.

TRANSFER
DISK TRANSFER, 1 = DO DISKREPOR
;NO DISK TRANSFER O = NO
T
DON'T
=
1
T,
JREPORT ERROR AS THEY OCCUR O O= REPOR
RT
REPO
T
DON'
=
1
T,
REPOR
=
END OF PASS
;REPORT ERRORS= ON
PORT
DUAL
=
1
PORT,
DUAL
NO
O
;DUAL PORT
NTIAL, 1 = RANDOM
;DISK ACCESS MODE O = SEQUE
COMPARE. 1 = DON'T DO DATA COMPARE
DATA
DO
=
O
:NO DATA COMPARE
0

; CONTROLLER STATUS REG

sRESPONCE

COMMND: .BLKW

2.
2.

.WORD

;COMMAND REFERENCE NUMBER

SAREG:

.WORD

: THE ORDER OF THE NEXT 5 VARIABLES MUST NOT CHANGE
;COMMAND INTERRUPT INDICATOR
LINTR: .WORD 0
INTERRUPT INDICATOR
oo

WORD

RSPONC: .BLKMW
CMDREF :

;MESSAGE RING
:COMMAND RING

EM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 3-2
X11 SYST
DUBE DEC/
STORAGE AREA

MODULE

.WORD
.WORD
.WORD

; RESPONSE RING
i PHYSICAL

O
O

40 000272 000000
41 000274 0000000
4 OOOizs 00000
000000

RSPPA:
RSPEA:
RSPPP:

000472 0000000
61
63 000474 00000
000000
63 000476 00000
0
64
000000
:2
00000000
67
0000
68
000510 000000
69
;g 000512 000000
72 000514 0000000
6 000000
73 00051
00000
74 000!
;g
000017
77
000522 000017
78
79
002260
:g
82 000524 177777

WORD
VA:
WORD
PA:
WORD
EA:
.MORD
PA22:
EA22: .WORD
PP: .WORD
.WORD
P:P: .WORD
RBUFE
WBUFP
WBUFEP: .WORD
WORD
H
WORD
OLGPA: .WORD
OLDEA
15.
PRTNUM = .WORD
PRNMSG:
TIMER = 1200.
EXPAV: .WORD

O
O
©
O
©
O
OO
O

.BLKB
.BYTE
.BLKB
BYTE
.BLKB
.BYTE
.BLKB
SVIE

6
O
6
O
6
O
6
9

:‘ 000

45 000302 00000000
000304 0000
46
47 000306 000000
48 000
49 000370 0000000
S0 000372 00000
S1 000374 000000
6 000000
§ 00037
0004020 000000
SS 00040 000000
56 0004624 C00000
57 00046
S8 000466 000000
23 000470 000000

85 000526
86 000534
87 000535
000543
89 000544
90 000552
91 000553
92 000561
93 000562

000
000
000
000

RSPEP:

RSPLEN: .WORD OO
R: .WORD 24.
RSPVI
RSPACK: .BLKW
O
RPAKPA: .WORD
RPAKEA: .WORD OO
P: .WORD
RPAKPP:
RPAKE .WORD O
O
CMPLEN: .WORD
.WORD O24,
CMPVIR:
CMPACK: .BLKW O
CPAKPA: .WORD
CPAKEA: .WORD OO
CPAKPP: .WORD
CPAKEP: .WORD ©

ADR1:
ADR2:
ADR3:
ADR4 :
ADRS:

.BLKB

O
O

PRTNUM
177777

SS GE
ADDRE
':
STORA
H
T LENGTAL
;RESPONCE PACKE
CIRCUIT
VIRTU
T
PACKE
ONCE
;RESPONCE PACKET
+RESP OINSE PACKET
+ RESP
+ PHYSICAL
ADDRESSGE
3
STORA
'
H
PACKETT LENGT
;COMMAND
PACKET VIRTUAL CIRCUIT
;COMMAND
1 COMMAND PACKE
PACKET
; COMMANDCAL
: PHYSI
SS
ADDRE
'
STORAGE
:

SS FOR GETPA
VIRTUAL ADDRE
;GENERIC
ADDRESS
;GENERIC PHYSICAL
DED ADDRESS
;GENERICT EXTEN
CAL ADDRESS
PHYSI
22-BI
;
; EE-BIT EXTENDED ADDRESS
SAVE AREA
ADDRESS
R PHYSICAL
;READ BUFFE
AREA
SAVE AREA
SS
ADDRE
DED
EXTEN
RR PHYSICAL ADDRESS SAVE
;READ
BUFFE
EE BUFFE
;WRIT
;WRIT BUFFER EXTENDED ADDRESS SAVE AREA
IN OTOA
;ADDRESS USED CAL
SS
;THE OLD PHYSI ADDRE
ADDRESS TO CHECK IF

OLD EXTENDED
i:THE CONTROLLER WILL BE REINITED
EVERY 15TH TIME
+PRINT MESSAGE
THEEN
FOR
TO CHECK
VALUE
THE
SAVES
T WORD
;PRIN
WRITT
IS
GE
MESSA
PASS
OF
END
AN
TIME
NEXT
:;TIME TO WAIT 2-3 SECONDS AFTER DAP COMMAND
;EXPECTING AN AVAILABLE ATTENTION MESSAGE = 0
: ELSE ~ 177777

SEQ 0015

e fi.‘

000

ADR6:

000

ADR7:

000

ADRS:

000

.BYTE
.BLKB
.BYTE
.BLKB
.BYTE
.BLKB
.BYTE
.EVEN

oT OO0

wno

SEQ 0016

AREA

—

o883232 e
"R

SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 3-3

SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23
DUBE DEC/X11
LE STORAGE

MORE MODU

igz
105 000616 000000
%% 000620 000000

108 000622 000000

.SBTTL MORE MODULE STORAGE
.MORD O
SECL :
SECH:
UNSZL:

.WORD
.WORD

{fi 000626
113 000630
114 000632
115 000634
116 000636
117 000640

003300
000001
000000
000000
000001
000000

.WORD
LIMIT:
DVICE: .WORD
UNITNO: .WORD
.MORD
TRY:
PORTID: .WORD
UNITFL: .WORD

120

005670

TIMOUT = 3000.

gé

C00004

123 000644 000000 0000017
124 000650 177777 17777
125 000654
126 000704 177777 177777

RLIM = &

TABLEM:

TEND:

.WORD
.MORD
.BLKW
.WORD

O
©

3300
1
O
O
1
O

SEQ 0017
4
Page

;CURRENT SECTOR LO ORDER ADDRESS
;CURRENT SECTOR HI ORDER ADDRESS

;UNIT SIZE LO ORDER LIMIT FROM ONLIKE CMND
{UNIT SIZE HI ORDER LIMIT

;4K - 1200 = MOST WORDS MAITW CAN TAKE
;DEVICE TO TEST
:

T _NUMBER

sNUMBER OF TRIES

;8IT POSITION SELECTS THE PORT
;SAVE UNIT FLAGS
: TEMPORARY WORK AREA
: TIME OUT GUADGE
;RETRY LIMIT

0,1
-1,12.
-1.-1

: TABLE ENTRY UNITNO,PORTID
;CURRENT LAST TABLE ENTRY
;REST OF TABLE
;END MARKER

M EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 5
11 SYSTE
DUBE DEC/X
PRIVATE DATA

- MODULE

53
131

132
133
134
135
36
137
138
139
140
141
142
143
144
145
{:g

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

150

151
152

153
154
155

BITO1 = 2
BIT02 = 4
BITOS = 10
8IT04 = 20
BITOS = 40
8IT06 = 100
8IT07 =
8ITO8 = 400
BIT09 = 1000
BIT10 = 2000
8IT11 = 4000
8IT12 = 10000
BIT1S = 20000
8ITia = 40000
BIT1S = 100000
:

148

149

_SBTTL MODULE PRIVATE DATA
BITOO = 1

000000
000001

000003
6
00000
000032

éfl

ERROR BITS

0=0
ERR.1 = %

ERR.3 =
=6
ERR.6
ERR.32 = 32

iNOT DEF
1DATA

H
:iNPR

NOT READY
, OFF LINE OR NON EXISTENT
READY
NOT
ERROR

SEQ 0018

SEQ 0019

M EXERCISER M MACRO VOS. 03 Friday 27-Sep-85 16:23 Pege 6
DUBE DEC/X11BITSYSTE
DEFINITIONS
CNTMLER

.SBTTL CONTROLLER BIT DEFINITIONS
+ SA REGISTER UNIVERSAL READ BITS

004000
010000

SA.S3= 0%0000
.52

100000

SA.S4= 040000
SA.ERR= 100000

003777

SA.ERC= 003777

002000
001000
C00400
000100
000040

+ SA REGISTER STEP ONE READ BITS

.umnmsmunmms

: SA REGISTER STEP TMO READ BITS

3 The- 000200

s SA REGISTER STEP TMO WRITE BITS

SA.PRG= 000001

.ummsmmmun

34805 200%42

.umswmmnnts

SA.LFC= 040000

; SA REGISTER STEP FOUR READ BITS

000377

4’7‘705

+ SA REGISTER ERROR STATUS BITS

i :E

000017
000360

é| e
4

SA.MCV= 000377

; SA REGISTER STEP FOUR MRITE BITS

B8IT FOR KDASO-Q

m mno)

' DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 6-1
|

!
|

CONTROLLER BIT DEFINITIONS
213

000001

SA.GO= BITO

SEQ 0020

;GO BIT TO START CONTROLLER FIRMWARE

SEQ 0021

7
Page
3 Fridey 27-Sep-85 16:23
M MACRQ VOS.0
SYSTEM EXERCISER
DUBE DEC/X11AGE
ol
y
.
D AND /HESS DESCRIPTOR BIT DEFINITIONS
_SBTTL COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS
213

517
218
220
552
223

557

559
5%

100000
040000

00001
0000600

00000
0000042

0003066
00036

CONTROLLER OWNS RING
WHEN
,SET
BITLS
NRG.OU
BIT
IFLAG
RG.FLGe BIT14
LOFFSETS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING
IN BYTES
WOST TS InAREA
SIZE OF
MC.SIZ= 8,
BYTES
PACKe
OF
1S3
48.

PRisize
3.
‘ACie
‘o &

k
"RPKe
"CPK= WC.RPK+PKTSIZ

A ARTSonTROL
-.
{STAR
I1STARTT OF

WORD

BUFFER
BUFFE

3 Fridey 27-Sep-85 16:23 Page 8
| DUBE DEC/X11 ?YSTEH EXERCISER M MACRO V0S5.0

241

000001

.ABO=
.ACC»

101
1

%?'m:xs 3

T_—

234
235
236
237
238
239

88 SYUERNRREES JunasNsds

538

.SBTTL COMMAND PACKET OPCODES

FRRCaRes

BURUDUPUNIURZRZREEREE

OPCODES

LLLLLLVTLLTS 98998398338

COMMAND PACKE

SEQ 0022

SEQ 0023

9
ODUBE DEC/X11 SE'S‘;EN EXERCISER M MACRO V0S5.03 Fridey 27-Sep-85 16:23 Page
COMMAND MODIFI

i i

L31 A
;g;f?ii&i&ilé

040000
100000
010000
004000
002000
001000
000400
000200
000100

]

]
'

D>
sPEEG
(L'DwTN
EAR CH
83 ERRO
CORRECTION

MIGH SPEED)

{URITE

RECOVERY

CNON-VOLATILE)

1
000001

000001

040000
100000
010000
004000
002000
001000
000400

g . - - - .“. - - -

263

.SBTTL COMMAND MODIFIERS

EF .BBR~
.m.
.LOG=
.SEX=

RPL=

UF . CMu=

og
g.‘

.SBTTL UNIT FLAGS

ARRGKNNNS

FIPPIIIFSISRBRARR

.SBTTL END PACKET FLAGS

;MRITE-BACK (NON-VOLATILE)
1MRITE PROTECT(HARDMARE
;MRITE PROTECT(SOFTWARE OR VOLUME)
+576 BYTE SECTORS

SEQ 0024

SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 10
| DUBE DEC/X11FLAGS
.SBTTL CONTROLLER FLAGS

1 SHADOWING

1576 BYTE SECTORS

BUFFER

DESCRIPTOR

;OUTSTANDING

P.OTRF=
]

LAR 63
L

000016
000020

OFFSETS:
ABORT AND GET COMMAND STATUS COMMAND PACHEY
REFERENCE NUMBER

000014

FF)
;BUFFER’'S PHYSICAL ADORESS (P.BUFF
1BUFFER’'S EXIMWMSS (P.BU +2)

333333 e
Sa G g g

o 1t

23358i

000014

A, “whag

oeNown

000010

AGES
1ENABLE AVAIL”LEATTENTION MESS
MESSAGES
LOG
R
ERRO
S
NEOU
ELLA
;ENABLE MISC
MESSAGES
E&E OTHER HOST'S ERROR LOGMESSA
GES
THIS HOST'S ERROR LOG
fl

.SBTTL COMMAND PACKET OFFSETS
GENERIC COMMAND PACKET OFFSETS:
OMMAND REFERENCE NUMBER

VOVVVVOVOVO-

000001

Gl Ll o L G

000200
000100
000040
000020
000002
000001

000100

p:v;ns 331334

CO‘TMLER

000014
000014
000016

12.
14.

18.
20.

000034

268.
32

OMLINE AND SET UNIT CHARACTERISTICS COMMAND PACKET OFFSETS:

IHOST IDENTIFIER
ER
'UNIT IDENTIFI

IERROR LOG FLAGS

ey SPEED

REBLALEMENT BLOCK NUMBER

REPLACE COMMAND PACKET OFFSET

SET CONTROLLER CNMICTERISYI"S COMMAND PACKET OFFSETS:
sMSCP_VERSION

.cmm.a FLAGS
sHOST TIMEOUT
lUSE FRACTION

:QUAD-WORD TIME AND DATE

MAINTENANCE READ AND MIN’T‘EG‘MI?ITE COMMAND PACKET OFFSETS:

cflEG. [ON OFFSET

SEQ 0025

l ggg: DEC/X11 SYSTEM EXERCISER M MACRO V0S.03 Friday 27-Sep-85 16:23 Page 11

REBEFRIBEEE

SENIEEN

e
oLne
e

232

ososo 8 FRIEFEN

!Q il

VOV VOVVO-

VOUVUVVVVVVOVOVU=

V0=

HKSRoweso

& diteat

““‘,“-

.SBTTL END PACKET OFFSETS

.‘.‘.““‘-

SN0

BES
B
N3
-0

=31

8883333
v R2eee

3a3da

FEEFLI 13 33 3333T3

PACKET OFFSET

GENERIC END PACKET OFFSETS:

-ED ENDCODE)
tuu.&fi CALL
.uc
sOPCOBE (
VOTE AS
TK
BAD BLOC

]

GET COMMAND STATUS END PACKET OFFSETS:REFERENCE NUMBER
-1OUTSTANDING
;COMMAND STPTUS

GET UNIT STATUS END PACKET OFFSEYS:

TI-UNIT CODE

SEQ 0026

DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 11-1
END PACKET OFFSETS

403
404

000012
000014

P.SZOF= 10.
P.LGDT= 12.

FSET
1512E_OR_OFFSE
RROR LOG DATA
E
OF
RT
;STA

SEQ 0027

YSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 12
.SBTTL ERROR LOG FLAGS

000200
000100
000001

00
EF .FRS= 0002
EF.LST= 0001001
EF .MIS= 00000

sFIRST PACKETT
:LAST PACKE NG
;MESSAGE MISSI

000000
000002

L.EVNT= O.
L.SLOT= 2.

;EVENT CODE
1SLOT NUMBERR IDENTIFIER

000004
0000145
00001
000016
000027
000030
000034
C00040
000041
000042
000044
000050
000037
000040
000000
000001
000002
000003
0000045
00000
000006
000007
000010
0000112
00001
000013
000037

;ERROR LOG MESSAGE OFFSETS

L.CNTI= 4.
12.
L.CNTI=
L.CHVR= 13,
L.UNTI= 14,
L.USVR= 22.
L.UHVR= 23,
L.ERLC= 24.
L.CYL= 28.
L.GRP= 32,
L.TRCK= 33.
L.SCTR= 34.
36.
L.VSER= 40.
L.DATA=

;CONTROLLE
REVISION
R SOF TWARE
;CONTROLLE
R HARDWARE REVISION
;CONTROLLE
IFIER
sUNIT IDENT
;UNIT SOFTWARE REVISION
REVISION
;UNIT HARDWARE
ION
LOCAT
R
;ERRO
: CYLINDER
: GROUP
+ TRACK
:SECTOR
;VOLUME SERIAL NUMBER
;:EVENT DEPENDENT DATA

ST.MSK= 37
ST.SuUB= 40
ST.SUC= O
ST.CMD= 21
ST.ABO= 3
ST.OFL= 4
ST.AVL=
ST.MFE= S
ST.WPR= 6
ST.CMP= 7
ST.DAT= 10
11
ST.HST=
ST.CNT= 12
ST.DRV= 13
ST.DIA= 37

CODE MASK
;STATUS / EVENT
:SUB-CODE MULTIPLIER
: SUCCESS
COMMAND
:INVALID
: COMMAND ABORTED
;UNIT-OFFLINE
sUNIT-AVAILABLE
;MEDIA ERROR
;WRITE PROTECTED
ERROR
;COMPARE
;:DATA ERROR
ACCESS ERROR
BUFFERRERROR
;HOST ROLLE
:CONT
;:DRIVE ERROR
;MESSAGE FROM AN INTERNAL DIAGNOSTIC

;STATUS AND EVENT COE DEFINITIONS

;

000040
000100

SUBCODES FOR ST.OFL

SC.NVL = 40
SC.IOP = 100
i

000400
000200

SC.DIS = 400
SC.DUP = 200

000040

SC.STO = 40

:
:

SUBCODES FOR ST.DRV

:NO_VOLUME MOUNTEDED VIA RUN/STOP SWITCH
: OR DRIVE DISAVL
;UNIT INOPERATIVBYE FIELD SERVICE

DISABLEDDIAGNOSTIC
;UNIT INTE
RNAL
: OR
;DUPLICATE UNIT NUMBER
:SDI RESPONCE TIME OUT

ERROR LOG

461

000100

SC.INV = 100

;INVALID SDI RESPONCE

—————————

SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 12-1
DUBE DEC/X11
FLAGS

SEQ 0028

SEQ 0029

/%11 SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 13
ooouoonnuoo

MODULE CODE

;ootooo.ooooooooooooooocnooco.oooooooooooooooooo.noooooo
.SBTTL

INIT VALUES

XFER TO DISK?

INIT CONTROLLER

F FOR_J = 1,CYCLE LIMIT

ENANCE WRITE
MAITENANCE READ
CHECK DATA?

'
;
;

T CHECK

T FOR J = 1,CYCLE LIMIT

NEXT J

GET UNIT STATUS

;

IF)RIVE THERE?

IF DRIVE IS NOT AVAILABLE, WAIT UNTIL IT IS

i
i

DROP

ALL DRIVES DROPPED?

'T_ DROP MODULE

;

:
:

T ONLINE
ONLINE?

T PICK BLOCK - IF RANDOM, GET RAND @ MOD X

ELSE INCREMENT

IF LBN > LIMIT THEN LBN <- 0

WRITE
READ

:
;
:

CHECK DATA ?

T CHECK

NEXT J

AVAILABLE DRIVE(I)
F TRY TO BRING ONLINE AGAIN

;

...‘
....‘..0......‘.‘.“......‘..‘.‘.“"...‘.‘..‘..C“.“.“‘..‘.‘..“

..“““‘.

sgssEsEssss

3.“‘.‘.“.0‘....“.“."....O““.‘...““..‘...‘.“.0...0‘..
START CODE

IF THE CODE IS RESTARTED, CLEAR THE OLD ADDRESSES SO THE

THE CONTROLLER WILL GET REINITED.

g
3

s e
o e

.“

|.“....‘.“.“‘.“...‘.‘..‘...‘.".“‘.‘.‘.‘........“..‘...“.“.‘.

e b

~NOV
B LN -

[CIV IV IV IV IV IV IV

501

177777

000002 177072
000000* 006042°
000002 177056

START:

18:

000000 006046'
2%:

INC
BNE
BIC

e-1
1s
#SR.XFR,SR1

BEQ

MSGN$ ,BEGIN, WARN1

BIT

#SR.XFR,SR1

ggsm.eegiu.umnz

sFIRST TIME THRU HERE?
BR IF NO
;00 NOT ALLOW DISK TRANSFERS

N HEADER
;ASCII MESSAGE CALL WITH COMMO
BE OVERWRITTEN?

;ASCII

;WILL CUSTOMER DATA

'é“ IF NO
3

MESSAGE CALL WITH COMMON HEADER

SEQ 0030

&1 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 13-1
000000

177160
177777
000017
1770%%
1776
000001

177244

000030

000002

177434
177432

006052’

177532
177522
177622
177626

34:

MSGN$ ,BEGIN, WARNS
CLR

MOV
MOV
MOV

CDERCT

EXPA7V
0177.77
M
, PRNMSG
@PRTNU
DVID1,DVICE
*

177560

CMOREF
CLR
RANDS ,BEGIN
.SECL
R
MOV

177202
177174

ADD

CLR
CLR

SAREG
fiSSSSAREG
¢. .

OLOPA
OLDEA

;ASCII MESSAGE CALL WITH COMMON HEADER
;CLEAR DATA CHECK ERROR COUNT
sNOT EXPECTING AN INTERRUPT
s INITIALIZE PRINT WORD
;DVICE HAS DESIRED BITS SET

:SET TABLE FOR UNIT O
;SET TABLE FOR PORTID FOR UNIT O
;COMMAND REF @ = 0

FOR RESTARTING (INITIAL SECTOR ADOR)
STORE IN SA REG
SA REGISTER HAS PROPER ADDRESS
OLD PHYSICAL ADCRESS CLEARED
OLD EXTENDED ADDRESS CLEARED
FOR RESTARTING. THIS WILL FORCE A
CONTROLLER REINIT TO TAKE PLACE

14
DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page
MODULE CODE
;“.“...“‘."‘...““.‘“‘0..‘.“‘...“0.‘.“‘..‘0“““..“‘.“‘..... ’
337
;
38
RESTART SEQUENCE
:
B
323
H
ATED
RELOC
WERE
THEY
IF
TO SEE
RINGS
SS OFT THE
ADDREREINI
THEWERE,
CHECK
::
541
.
OLLER
CONTR
THE
THEY
IF
H
g:g
B

::
:

Sa4
545
sszg

5‘.

DESIRED
TIONTHEISWRITE
ESS OPERA
IF THEANDDISKL
ADDRESSES.
NEM
THE
GET
DO
ELSE
READ.
WRITE
NENCE
MAITE
DO THE
THEN
AND READ WITH A DRIVE.

‘.‘..“..‘.".“‘.‘..‘.“.‘.‘t“.‘.‘...‘..“‘.‘..‘0.‘.‘..‘..00‘..‘0..“

RESTRT: JSR
549 0010666 004767 000740
SS0 00106
cHP
177416
0
17720
7
02676
2
00107
§51
BNE
0010074 177172 177410
§52
CMP
0011020 02676
S53 00110
8EQ

0014172 177160 177376 RESTR2: MOV
0011120 C1676
S54
00111
$5S
1771540 177372
77 00026
556 00112
JSR
00476
602 01676
00112
$57
CLR
6
17747
7
00506
00113
558
RESTR1:
559 001136
BIT
2
17665
0
00001
7
03276
0011346 001034
560 00114
BNE
S61
CHP
70 177350 176660
02676
6
00114
S62
BNE
00103
4
00115
$63
ADD
S64 001156 062767 000017 177336

PC,CVTADR
RSPPP
2,,OLDPA
RESTR
RSPEP
1, OLDEA
RESTR
OLDPA
RSPPP
, OLDEA
RSPEP
INITUD
PC,
TRY
UM, SR1
OSR.S
14 G , PASCNT
PRNMS
14 UM, PRNMSG
@PRTN

SEQ 0031

]

:IS THE OLD PHYS ADDR = NEW ONE?
T ADDR = NEW ONE?
REINI
SO,
+IF
EXTN
OLD
THE
IS
T ADOR
REINI
NOT,SETDON’'T
sIF
RING
OLD
THE
;ELSE
ED
EXTEN
THE OLD
ANDINIT
:{AND
CONTROLLER
THECOUNT
;CLEAR RETRY
WE WANT THE REPORT?
;00
:IF NOT, SKIP THE REPORT

? IS NOT = PRINT WORD, SKIP
;D0
COUNT
PASSPRINT
1IF WE
;PRINT WORD IS INCREMENT

;....‘..“““‘...“.0...‘.‘.‘.“..‘“...‘.“‘..“.‘.‘.“.‘.0.

s‘s

001164 104421 000000' 000042°

B8TOD#$ ,BEGIN, SOFCNT ,ADR2

;CONVERT SOFCNT TO ASCII AND
sSTORE AT ADR2

.‘.

é:;;.“.‘.“.;....“‘.“..".“.‘.“.“.“.‘...‘.‘.‘.‘.‘.‘.

m.
000000000
000000000000800000000000
188088088808000400000000048000ERT
AND
I
ASCI
TO
NT
HRODC

567
1 000000° 000044°
001200 1044244°
001206

0005

568 001210 105067 177335
s"

001214 104421 000000° 000144°
001222

000526

177303
570 001224 105067 00000
0° 006004’

001230 104403
571
g;g 001236 012777 005024° 176544 1$:
1773622 176540
77 00000
40 00506
00124
574
03276
00125
575
576 001256 001446

,
T , ADRS
IN
HRDCN
BT0D$ .BEG

;CONV

1STORE AT ADRS3

..“.‘.O“.‘.‘.‘......‘.‘..‘.‘.‘.“.‘..0.‘.‘.“.0“..“.‘.“.

ADR3.S
R8
.‘.‘....““‘.‘.“.‘.‘.“.‘
|“.‘..O.“..‘.“.“."..‘.O“.“‘.CDERCT
TO ASCII AND
,
. ADR1
IN
COERCT
8T0D$ ,BEG

:CONVERT
:STORE AT ADR1

..“.“."‘.““““‘..."..‘.‘0.“..‘..“.‘.“.‘..‘.0..‘.‘.‘

ADR1+S
COMMON HEADER
WITH ss
CALLgaam
GE'vsg
SGVECTOR {ASCIT MESSA
N, ERRPA
,BEGI
MSGN$
:g;
ONTRUPT ,
MOV
UNIT2?@
ETXFER?
;PRES
O SR1
UNITN
CLR
:DISK
XFR,
.
#SR
BIT
;NO! DO MAINTENENCE (DISKLESS) ROUTINES
MALONC
BEQ
K

SEQ 0032

DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 14-1
MODULE CODE

.‘.“.“.“

|.“.“‘...“‘.“.“““‘.““‘.““““““‘.“.“‘.“.“.‘.

DO THE DISK OPERATIONS
:
ABLE
AVAIL
ARE‘.“
CHECK TO SEE WHI CH PORTS“‘.
““
‘.“
..“
“..
‘..
“‘.
““.
"..
jeasstsRtRtbte ““.““.‘...““
,FIND DRIVES/SET UP TABLE
C,SETUP
JSR
u MORE DRIVES
TEST roANY
;ELSE,
ST
i

s77

'
'

578

004767

001524

104410

000000

004767
012704
012703

000420
000644
000001

030367
001412
016467
Cl11467

177312

00576 7
0010( 2

177340

000002
177300

004767
103002
004767

001756

062704
006303

000004

022704
001403
003752

002534

000704’

BNE

ewo.aecxu

LOOP1:
LOOP2:

177310

C,GETWB

MOV
MOV

hl.eu R4

BIT

as DVICE

JSR

BEQ

zam PORTID
MOV
(R4 ),UNITNO
MOV
E
; sss DO A DISK CYCL
PC CYCLED
JSR
8CC
PC DROP1
JSR
9%:
04 ,R4
ADD
RS
ASL
omo R4
cHP

'c‘vo‘

177244

124:

104413

BLE

ENDITS ,BEGIN

000741

as ovxce

LOOP2

LOOPL

A CYCLE
:IFTRUE, DO

s ALLOCATE WRITE BUFFER
;R4 -> TABLE OF UNITNO AND PORTID

lRS IS AN INDEX TO OVICE

;HAS THE DRIVE BEEN DROPPED
:IF SO, SKIP THIS ORIVE

sSET UP PORTID

1SET UP UNITNO

;00 A CYCLE FOR oxsx muou
+IF SUCCE
NOT, mbuv:
{IF
SSFUL

10 mamnurmmu

m 0 NEXT BIT r
iR3 PO
mn

omasvaoust
av
.vam THEN TRY AGAIN.
moacuxmnmrmn
xce
>
RS
;IF
sIF< OR =, LOOP

s SIGNAL END OF ITERATI
ao OF PASS
;MONITOR SHALL TEST
:AND DO AGAIN
.‘.....‘....‘.‘....‘..‘

188084004408088000808000040000 ..‘......‘.‘.‘......

SS
CODE
MAINTENENCE ROUTINE. DO THE DISKLE

'..."..‘.‘.‘.“..‘.“.....‘.‘...‘.‘...‘..‘0....“.‘...‘O‘.‘O“..‘..‘.‘.
3

001374

001400
618 001404

004767
004767
104413

613 001410

000771

000322

MALONC: JSR

PC.GETWB

PC.CYCLEL

JSR
S .oecin
ENDIT

B8R

MALONC

: GET WRITE BUFFER

1 SIGNAL END OF ITERATION.
END OF PASS
sMONITOR SHALL TEST END

SEQ 0033

DUBE DEC/X11 SYSTEM EXERCISER M MACRO VO05.03 Fridey 27-Sep-85 16:23 Page 15
MOOULE CODE

“......“.
|...‘.‘..‘.‘“.‘.‘“.‘.““...“‘.‘....‘..‘.“.‘...‘.“"“‘.
H
H
H
INITIALIZE THE CONTROLLER
H

:
::

DO THE & STEPS FOR INITIALIZING THE CONTROLLER.
FOR ERROR, STEP1
STEP 1 - CHECK
SEND VECTOR/4, INTERRUPT ENABLE, RING LEN'S = 0

:
::
.

SEND msxcnfl Aooaess & PURGE = 0
3
LENuoouéERROR
RINGDED
STEP 3 - CHECK
BITS, STEP
SEND EXTEN

.p
H

a o‘INTERRUPT ECHO,
STEP 2 - CHECK vectoscu

H
4
STEP 4 - CHECK STEP
H
H
BURST
AND
SEND LFAIL = O , GO
B
H
B
ooson
.0.“..‘.“.‘.‘“‘..‘0‘.0“.000.“..“‘.‘..‘0..0‘.‘.“0‘.‘0‘.0‘0000

000001
176362

176616
100000

004000

001150
173377

004400

001126

176276

INITUD: CLR
MOV
CLR
14:

28:

as:

Ss:
B

100200
004000
0v1002

010200
176514
000750

68:

R4
o1,R2
SADDR

OTIMER,R1
MOV
@SAREG, RO
MOV
9<SA.ERR> ,RO
BIT
24
BNE
BREAK$ ,BEGIN
BREAK$ ,BEGIN
DEC
BNE

8R
MOV

R1
14

TED
;R4 IS USED IF AN ERRORECISFORDETEC
MSG'S
nonR
mxc
= STEP
;R2
IWRITE 70 IP REGISTER TO INIT CONTROLLER

;SET TIME OUT LIMIT DATA
TER
1RO _MAS
;CHECK FOR
IF FOUND, GET OUT OF LOOP
Jn
OR....
: TEMPORARY RETURN TO MONIT
UCTION.
INSTR
NEXT
AT
1 THEN CONTINUE

as
OSA.S1,RS

JMP
B81C
cHP
8EQ

ERROR1
@1C<SA.S1+SA.DIA>,R0
@<SA.Si+SA.DIA>,RO
54

ASR

JMP st”egnoas
“ECTOR,RS
MOV

;TIME OUT?
;IF NOT, LOOP

;IF DONE, CONTINUE
;RS = STEP 1 BIT

;IF HERE, ERROR
BITS
; CLEAR KDASO-Q DEPENDENT
;0ID DATA COMPARE PROPERLY
:IF SO, CONTINUE

;REPORT ERROR
;VECTOR GIVEN

.ser TO APPROPRIATE VALUE

= VECTOR/&

BIS

@<SA.INT+BIT15>.RS

INTERRUPTS & SET MSB FOR STEP 1
s:cat‘nsms

amn.no

1MAS BITO7 ONLY BIT SET?, SHOUL

ASR

MOV
MOV
JSR
8IC

RO
@5A,51,R3
SNDSTP
081T15,RS

8IS
JHP
MOV
JSR

#<SA.S2+81T07>,RO
ERROR3
RO
asm'
C.SNOSTP

:STORE RS ru RO FOR SUBROUTINE
:R3 HAS STEP IIT FOR SUBROUTINE
;SEND STEP DATACOMPARE DATA
:CLEAR MSB FOR
D BE
;SET RO TO REPORT THE ERROR
{REPORT ERROR
GETS PHYSICAL ADDRESS
RO
{SEND STEP DATA

DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 15-1
MODULE CODE

|
i

|
]

675 001566
676 001572
677 001574
678 001576
679 001602

042705
020500
001402
000167

680

681 001602

8IC

177400

BEQ

001032

JMP

176472

MOV

000774
000270’

176160

6300
252700
012077
016767
016767

016767
016767

012777
005067

176474
176470
0050
176714

176400
176374

176360
176354
176074

GETWB:

000000
000010

176124

001000

176112

176162
176156

176534

11%:

000540

012767

:IF NOT, REPORT ERROR

176474
176470

000474’
176466
176462

12%:

;CHECK ECHO DATA
+IF OK,

SKIP

RSPEP, RO

; SEND THE EXTENDED ADDRESS BITS

JMP
cMP
BNE
MOV
cLC
ASL

ERRORS
OCMOREF , RO
8¢
SR2,RO
RO

:IF NOT, ERROR
;IS RO POINT PAST THE RINGS?
:IF NOT, LOOP
;RO = BURST VALUE
:CLEAR CARRY
;ALIGN BURST FOR STEP 4

8IS

MOV
MOV
MOV
MOV
MOV
MOV
CLR

#SA.GO,RO

RO, 8SAREG
CPAKPP , COMMND
CPAKEP , COMMND + 2
RPAKPP , RSPONC
+2
RPAKEP ,RSPONC
ONTRUPT , BVECTOR
TRY

1SEND DATA TO CONTROLLER/INIT DONE
:STORE ADDRESS IN THE RING
:MOVE ADJUSTED EA INTO RING
;STORE ADDRESS IN THE RING
:MOVE ADJUSTED EA INTO RING
SS IN VECTOR
:STORE INTERRUPT ADDRE
:CLEAR TRY SO DRIVE WILL

RTS

STEP 3

: SEND STEP DATA
: RO -> RING ENVELOP
IS THE RING ENTRY = 07

:SET GO BET

GO BACK ONLINE IF NECESSARY

GETWB - GET WRITE BUFFER

GWBUF$, BEGIN

BIT
BEQ
BIT
BNE
MOV
MOV

JSR
’ugv

176522

176136
176132
000000
1/6460
176454

ERROR3

ASL

000001

176374
176604
176600

{HIGH BYTE CLEARED

PC,SNOSTP
JSR
MOV stepu‘tépouc-mao
gs:o)o
;g

000724
000254

682 001606
683 001612

#177400,RS

RS.RO

cMP

SEQ 0034

©QMON22 , RES2
114
#ADDR22, CONFIG
124
WBUFPA , WBUFPP
WBUFEA, RO

PC,ASRO4

aoau-urev

MOV

WBUFPA,PA

MOV
MOV

A22 , WBUF PP
EA22 . WBUFEP

EA
MOV
MAP22¢, BEGIN,PA
RTS

;GET MRITE BUFFER INFORMATION

; IF NOT USING Q@-22 MONITOR.
: USE 18 BIT ADDRESSING
: IF 22-BIT @BUS ADDRESSING.
: _ CALCULATE PHYSICAL ADDRESS
; CONVERT FROM 18 BIT
:

:
:

PSEUDO ADDRESS

T0 18 BIT

PHYSICAL ADDRESS

: SET UP FOR

i MAP22 CALL
: GET 22-BIT ADDR FROM 18-BIT ADDR
i PHYSICAL ADDRESS
:
: RETURN FROM SUBROUTINE

CVTADR - CONVERT 16 BIT ADDRESS TO 18 OR 22 BIT ADDRESS
: CONVERT RESPONCE RING ADDRESS
ORSPONC, VA
176432 CVTADR: MOV

DUBE gEEégél SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 15-2

MODUL

729
730
731
732

002040
002046
002054
002062

734 002072
735 002100
736 002102
737 002110
738 002114
739 002120
740 002124
741 002126
126

GETPAS$ ,BEGIN, VA
SPEA
EA,RSP
MOv

000000
176424
176414
000010

000472’

176220
176210
175770

MOV
8IT

0QMON22, RES2

001000

175756

8IT

G
2
, CONFI
@ADDR2

176366
176362
000404
176154

176166

104416
016767
016767

000000

176340
176371

000474
176134
176130

016767

175750

176314

104415
016767
016767
032767
404

000000’

BEQ

11%:

12¢:

20¢:

176306
176276
000010

001000

000411

214:

176250
176244
000266
176244

104416
016767
016767

000474

012767
104415
016767
016767
032767
001404
032767
001012
016767
016700
004767
010067

176176

000411

224%:

176224
176220

30%:

BNE
MOV
MOV
JSR
MOV
8R

000

176110
32%:

104416
016767
016767

000000°
176104
176100

000474
176070

012767
104415

000306’
000000’

176060 404:
000472

176064

114

24
PA,RSPPP
EA.RO
PC.ASROA
RO . RSPEP
204

MAP22¢, BEGIN,PA

PA22,RSPPP
MOV
EA22 .RSPEP
MOV
VA
RBUFVA,
MOV
GETPAS$ ,BEGIN, VA
EA,RBUFEA
MOV
PA.RBUFPA
MOV
2.RES2
BIT
214
BEQ
©ADDR22, CONFIG
81T
224
BNE
PA,RBUFPP
MOV
EA.RO
MOV
ASRO4
JSR
RO .RBUFEP
MOV
H
8R
MAP22¢, BEGIN,PA

PA22, RBUFPP
MOV
RBUFEP
MOV
7K, VA
oCHP#
MOV
GETPAS ,BEGIN, VA

MOV
8IT

31%:

PA.RSPP

BEQ
BIT
BNE
MOV
MOV
JSR
MOV
BR

"m‘i
SR"
n&z

314
2
, CONFIG
SADDR2
324
PA ., CPAKPP
‘RO
PC.ASRO4
RO, CPAKEP
H

SEQ 0035

;GET PHYSICAL ADDRESS FROM 16-BIT VA
SAVE EA BITS
SAVE PA BITS
IF NOT USING Q-22 MONITOR,
USE 18 BI1T ADORESSING
T @BUS ADDRESSING
C

msxcgc. ADDRESS

CONVERT FROM 18 BI

ADDRESS
PSE
70 _18 BIT
PHYSICAL ADDRESS

s GET 22-BIT ADDR FROM 18-8IT ADDR
PHYSICAL ADDRESS

; CONVERT READ BUFFER ADDRESS
;GET PHYSICAL ADORESS FROM 16-BIT VA
SAVE EA BITS

CONVERT FROM 18 BIT

PSEUDO ADDRESS
T0 18 BIT
PHYSICAL ADDRESS

GEY 22-BIT ADDR FROM 18-BIT ADDR
PHYSICAL ADDRESS

CONVERT COMMAND PACKET ADDRESS
GET PHYSICAL ADDRESS FROM 16-BIT VA
SAVE EA BITS

PHYSI

MAP22¢, BEGIN,PA

GET 22-BIT ADDR FROM 18-BIT ADOR

GETPA$ ,BEGIN, VA

ESS
: CONVERT RESPONSE PACKET ADDR
:GET PHYSICAL ADDRESS FROM 16-BIT VA

MOV
MOV
MOV

PA22, CPAKPP
CPAKEP
. 22
EA
VA
ORSPACK,

PHYSICAL ADDRESS

11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 15-3
| DUBE DEC/X
MODUWLE CODE
, SAVE EA BITS
EA.RPAKEA
MOV
2 1757422
016767 17605
781 002420e ol6T6
BITS
| SAVE PAUSING
PA.RPAKPA S2
MOV
7 176043 17373
765 ga2az
@-22 MONITOR,
NOT
IF
i
22,RE
0QHON
BIT
175416

78% 002484 03276047 000010
0014 7 001000 175404
784 0024
00344424 03276
788
2 176014 175710 41s:
786 002452 00101
O1e7670 17601
186 002333
0
788 003462 01670
2
0047677 00003
89 0034662 01006
175676
790 00347
1
00041
6
00247
791
a2s:
792 002300
0 0004764
104416 00000
7 1757662 17565
793 0058046 01676
7 17576 173652
ol676
73 0ozS1
sos:
19 002522 000207
m

800
801
808
804
806
808

.‘o
811 002524
002524 006200
812
813 002326 006200
00
814 002532 0062
006200
815

816 002334 000207

BEQ
BIT

BNE
MOV

MOV
TSR

:
-

ASRO4

}
b

O ADDRESS
“UPSEUD
7950 18 BIT ADDRESS

PHYSICAL
:
:
18-8IT ADOR
T ADDR FROM
. GET 22-8I
SS
i O ONYSICAL ADORE
:
, RETURN FROM SUBROUTINE

ARITHMETIC SHIFT RIGHT REG O FOUR TIMES

&&S
IONVALUE
POSITTHE
BIT TION
SETTOINREPOS
17) ARE
(16 &FOUR
SS BITSRIGMT
ADDRE
DEDIVEL
EXTEN
TINES
Y OSWIFT
I
B BELT
INPUT RO = UNADJUSTED EXTENDED ADDRESS BITS
OUTPUT RO = ADJUSTED EXTENDED ADDRESS BITS

: ...““.“.“.‘.“.‘..‘..‘.‘““..‘.“.‘.“‘..‘.“.“.‘..“.‘...‘....‘.
ASRO4:
(SHIFTFT 104
RO
PSR
ISSHI
RO
‘2
2
b OSHIFT
RO
‘SR
b SHIFT 1
RO
ASR

RIS

IRETURN

YY)
(YT
..
‘.“
.‘.
.“.
.‘.
‘..
...
..‘
...
...
“.‘
.“.
‘.“
...
‘..
‘..
‘..
.‘.
H “.‘.‘. SEND STEP DATA

829 gozsse 01701 L73262

dNDSTP: MOV

834 002556 104400 000000

EA.ROROA
PC.AS

SCCULATE PHYSICAL AODRESS
bi IF
CONVERT FROM 18 BIT

429
PA,RPAKPP

] “‘.‘“.“.‘..“....‘..‘..‘.".‘“.‘..”..‘.“‘..“.‘.‘.“.“.‘........

-:
-

1 002560
003842 01272
1167171 17524
831 0035462 01007
175474
832 00235

18 BIT ADDRESSING
i| IFTPUSE
33-BIT @BUS ADDRESSING

RO.RPAKEP
MOV
S04
8R
,PA
MAP22¢. BEGIN
RPAKPPP
MOV - " PRa2,
RPAKE
EA22.
MOV
PC
RIS

:{:
820
822
82
825
82¢

418
OADDR22.CONFIG

SEQ 0036

OLLER FOR STEP
TO CONTR
SENTFLAG
TO BESTEP
DATA
HAS
INPUT: RO
SET
IOUS
PREV
RS HAS
MOST FOR ECHO AND NEXT STEP
TO
OLLER
CONTR
FROM
SENT
DATA
HAS
OUTPUT: RO
RS HAS CURRENT STEP FLAG SET

: “‘.‘.....‘.‘...“..‘.‘.“‘....‘....".." ..‘..“........“....“.‘..“..

MOV
MOVE
MOV_

VECTOR,R1

SINTA,CR1)e
BR1,(R1)
RO.BSAREG

EXITS.BEGIN

MANDLER ADDRESS
RUPT
INTER
UP
"SET
LEVEL
TITY
P3ET PRIOR
13END STEP1 WRITE FORMMATED DATA

(EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT.

SEQ 0037

X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 15-4
DUBE DEC/
CODE

| MODULE

838
;¢
033
840
841 ¢;
843 ;¢
aS 0
846
C©C
847
848

as:

NUE AT 38 AND RTI
. QUEVE UP TO CONTI
3¢
S.BEGIN,
PIRQ
escsnsascccsoncensce
e teccssccncstosasaeancasencocssns

MOV
81T
BNE
INC
ASL
BIT
BNE
P
8IC
RTS

G ,RO O
@SAREERR,R
#SA_.
1
ERROR
R2
R3
R3,RO
4 2
ERROR
R3,RO
PC

FORMATTED DATA
NERROR
STEP
sGET
;TEST FOR
T
REPOR
NOT OK,REGIS
:IF
TER
STEP
:SET
BIT PROPERLY SET
RS
N SET?
TEPSTEP
: MAS
CONT CT STEP, ERROR
SO, CORRE
;IF NOT
;IF
R THE STEP BIT, FOR COMPARE
{CLEA
;RETURN

INTA:

:‘i‘:

SEQ 0038

16
| DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page

PRINT AN ERROR REPORTED BY THE CONTROLLER DIAGNOSTICS
1
ERROR

PRINT THE VALUE OF THE SA REGISTER WHEN THE STEP BIT WAS NOT SET
ERRORS
PRDITATOEVALIEWTFESIREGISTERMTFEEMHASMTSET
ERROR2

104410

!75

RO -> SA REGISTER

OUTPUT

THE lETlY COUNT ISINCREMENTED
IFTHE RETRY COUNT> RETRY LIMIT, END MODWLE

R2 = STEP COUNT

...

‘...““.‘.‘..‘.‘..‘..“‘.“.‘.‘..“.".‘..‘.‘...“‘..‘..‘.“.‘O.‘..

JASTII MESSAGE CALL WITH COMMON HEADER
;

= 3 FOR ERRORS

l.‘ - 2 FOR m
ERP.m

000000’

INPUT

FJ;I B

REEL 1333133

CORRECTLY

i % 104403 000000’ 006062°
010267

175646

iR4 = 1 FOR
MY
FG
QNAM
SW
T“
|S
M
R2,NU
s000
s0s000
Ss0sss
»mm‘
uooo‘
ooooo
.‘oo.
-oouo
.‘.ouoo.oto‘.c‘

NUM TO ASCII AND
;CONVERT

,
ADR2
OTOAS ,BEGIN,NUM

'J‘:i 002656 017767
w
2

884

.“..‘....‘.

'.......‘.‘.‘...“.‘.‘......‘.‘.“..‘.‘.‘..‘..‘“..‘.‘.“.‘.

104420

000526’

175370

175630

000000' 000514’

s
10333 000000’ 005672’
7

005304

001003

104403

005304

000000 005716'

uST“ AT ADR2

10866608480600054646048008088840080840000000088800040000800000000
1STORE VALUE IN A NUMBER
«NUM
18808600860086065800000005004000804800480888000800000000808000000
;CONVERT NUM TO ASCII AND

OTOAS$ ,BEGIN,NUM,ADR1

IST“ AT ADR1

1860008600000000400880440800080880508480848800050000000000000008
sERROR 17
Re

HSGN$
- R GRS

JASCIT MESSAGE énu

20
E
INITE2
. BEGIN,
MSGNS

\ASCIT MESSACE

DEC

IF NOT,

CMECK IF

1ERROR2

1ERROR 3?7

SEQ 0039

-85 16:23 Page 16-1
DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep
MODULE CODE

001003
104403

005724

BNE

3s:

005700°

175644

175712
006056

IF NOT

CHECK IF IT IS THE NEXT ERROR

sASCII PéSSAGE CALL WITH COMMON HEADER

b
T
;CONVERT ADDR_TO ASCII AND
;STORE AT ADR3

.“‘.“‘.“““““.“‘
3 ‘......“‘..“.““.‘.‘““““.“““.
‘.“..“‘.‘....‘
‘.“.
.“““
3 .‘...‘.““““‘..‘......““‘.“.‘
'
HRDER#$ ,BEGIN,NULL
s
b pvivihtiyha
L T L
:P

000000

000000
000000

MSGN$ ,BEGIN, INITE3

OTOA$ ,BEGIN,ADDR, ADR3

000000

000000
175652
000004

3¢

MSGN$ ,BEGIN, INITER
TRY
INC
ORLIM, TRY
CMP

N HEADER
;ASCII MESSAGE CALL WITH COMMO
; INCREMENT RETRY COUNT DED?
;IS THE RETRY_COUNT EXCEE

MSGN$ ,BEGIN, ABORT

;ASCII MESSAGE CALL WITH COMMON HEADER

BEQ

64:

JMP

START

END$ ,BEGIN

;IF SO, END IT

:IF NOT, TRY AGAIN

SEQ 0040

.““0...‘.

|‘...‘..‘.‘."..‘.“‘..“.‘.“..‘..““‘.“..“.‘....‘.0“...
SET UP

.
GO FIND OUT WHAT DRIVES ARE OUT THERE
S(MAX IS 16)

A TABLE IS FILLED WITH UNIT NUMBER

DONE AT THE VERY BEGINNING OF RUNNING
THIS SHOULD ONLY BETHEN
NOT RUN AGAIN.
THIS DECX MODULE;

INPUT:

1$:
175546

175534

000644’
000001
000704'

175460
000004

175442
175442
000720

S$:

000774
175170

¢ OF DRIVES WANTED

POSITION OF BITS = WHICH DRIVE IN THE SYSTEM IS DESIRED.

“ahsbasss
3 .‘.‘..‘.“.‘.‘0.‘....“.“‘.““‘...“0“‘..““‘.‘0.‘...‘.“‘
SETUP:
MESSAGES
SET CONTRL CHAR AND WAIT FOR THE ATTENTIONOLLER
t sas
CHARACTERISTICS
;SET CONTR

001650
175250
000001
000644
175574
175570
175570
000002
177777
000004
002400
001526

THE & OF BITS =
DVICE HAS APPROPRIATE BITS SET.
TO TEST.

175506

JSR
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
BCC
DEC
BNE
JSR

PC,SCC
CMOREF
194
#1,R3
OTABLEW,R4
(R4),UNITNO
UNITNO, (R4)
R3,PORTID

OF MODUL
{ONLY SET UP AT BEGINATNING
BEGINNING)
: (USE DRIVES FOUND
;INITIAL PORTID VALUE
R4 -> TABLEW
:INITIAL UNITNO IN TABLEW
;UNIT NO SET IN TABLEW:READY TO TEST
;PORT ID SET

92400, WORK
PC,GTSTAT
7
WORK
38
PC,DROP2

;MORK = RETRY LIMIT
:GET STATUS, GET NEXT UNIT NUMBER
:0K, CONTINUE
{ELSE IF OFFLINE, DECR COUNT
:IF COUNT > O, TRY AGAIN.
;:DROP THE DRIVE

R3.2(R4)
0177777,4(R4)
4(R4),6(R4)

:PORTID SET IN TABLEW
;INSERT NEW -1,-1 FOR LAST ENTRY
i OF THE TABLEW

:TRY NEXT UNIT
174
B8R
NCE PACKET IN UNITNO
:UNIT NUMBER FROM RESPO
_
TNO
K.UNI
RSPAC
UNIT+
P
MOv
74 :
SPECIFIED.
BEEN
HAVE
DRIVES
THEN
UNITS
MORE
; «#s CHECK FOR CASE WHERE THE
ATE UNIT NUMBER.
; s+ NEXT UNIT MODIFIER MWILL GIVE A DUPLIC
: R2 -> TABLE TO FIND DUPLICATE
@TABLEW,R2
MOV
;RS IS TEMP PORTID
#1,RS
MOV
;REACHED THE BOTTOM?
END
R2,8T
CHP
9%:
;IF SO, EXIT
154
BEQ
HED THE LATEST ENTRY?
;REAC
R3,RS
CHP
EXIT
SO,
+IF
154
BEQ
A DUPLICATE UNIT NUMBER?
HAVE
WE
;D0
UNITNO, (R2)
CHP
:IF SO, ERROR
13¢
BEQ
114:

13%:

g;.na

;IF NOT, POINT TO NEXT POINTER

:AND CONTINUE

MOV

R3,PORTID

17¢

:053

MOV

JSR

15%:
;i

(R4),UNITNO

PC,DROP3

;OROP DRIVE FROM TABLE
:AND DROP IT

/%11 SYSTEM EXERCISER M MACRO V05.03
026714
001402
016714

006303

02‘703
‘07
100

005267
062704
022704
101276

Fridey 27-Sep-85 16:23
CcHP
BEQ

175424
175416

17%:

MOV

178

;IS THE UNITNO CMECT?
1 IF SO. CHECK FOR NEXT UN

tNEXT PORTID SET

UNITNO, (R4)

175406

DVICE,.R3

175402

UNITNO

194

04 R4

000004
000704*

OTEND R4
19¢:

000207

SEQ 0041

Page 17-1

;ELSE,

CORRECT THE UNIT mea IN TABLE

1DONE?

|IF R3 > DVICE ALL DESIRED DRIVES ARE FOUND.
tNEXT _UNITNO
POINY TO NEXT ENTRY TO TEST DRIVE
;POINT TO END? IF SO, TABLE FULL
;IF R4 NOT REACHED END. GO TEST

RTS

TSTOFL

TEST TO SEE WHAT KIND OF AN OFFLINE CONDITION HAS OCCURED.

!
|
.
';

...‘.‘.‘

;.““."..“.““‘.‘.“‘...‘.“.“.......“.“‘.‘Ot.‘.“.‘.‘...
;

‘..‘.‘.“‘....‘...““.‘.““..‘...‘
OST OFL,RO
fsToFL: cHP
000013
000740

177000

175032

10$:

175022

12%:
13¢:
002124

BIT

; CHE
ERROR? -> SDI?
IWAS IT A DRIVE EROR
(DROP_DRIVE)
NOT.
WAS
IT
F
I
138
; WERE ANY OF THESE BITS SET?|
a
xo:
UP+SE.
S+SC.D
+SC.DI
VL
2<SC.N

BNE
BIT
BNE

124
+RSPACK ; ANY OTHER DATA?
,P.STS
MSK>
OST
IS+SC.MOSI(F:Id
+SC.D
C.NVL
9+C<S
S0, DROP
13%

8EQ
CHP
BNE

cLC

OST DRV.RO

UME MOUNTED, UNIT oxu.so BY FIELD IS&VICE

OR %%CRTE UNIT NUMBER OR UNIT INOPERAT
'IF

RTS

JSR
RTS

PC.ERRORH

SEC

sCLEM CARRY
|SET CARRY, DRIVERWAS FOUND TO BE OJFFLINE
ERRO

sRETURN

; OR ANOTHER

;REPORT ERROR
;RETURN

18
DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page

MODUWLE CODE

....‘..‘..‘

g‘.‘““‘.““‘...‘.“.‘.““.‘...““.“.“...‘.‘0““...‘.‘

1000

@ ®e S5 S8 B4 W8 B4 Be BE B Be S

CYCLE DISK

DO THE DISK CYCLE

THAT THE DRIVE
DO GET STATUS COMMANDS TO ASSUREPCRTI
NG)
IS AVAILABLE (FOR DUAL

CHECK DRIVE TO BE ONLINE
IF TRUE
PICK THE BLOCK
WRITE
READ

DATA CHECK

MAKE THE DRIVE AVAILABLE

ELSE DROP DRIVE

..“‘.‘.0..

....“..‘.‘.."“.“‘.‘.‘..“.‘.“.‘..‘.‘.0....“....‘..".‘

32767
001004

001000

005767

175304

EYCLED: BIT
174474

!
104
B8R
COMMANDS TO ASSURE THE DRIVE IS AVAILABLE TO THE CONTROLLER
! wes DO GET STATUS ING.
S8

; ses¢

;

2:
as:

000010

001262

177672
175144
140000
001426

174674

108:

001316
175210
175200

175174
012767

100000

175174

FOR DUAL PORT

MOV
JSR

010,R1
PC,GTSTAT

;R1 = @ OF GET STATUS TO 00
;IS THE DRIVE OFFLINE?

JSR

PC. INTERP

: 2ND ATTENTION MESSAGE

8CC

:IF ALL OK, DO THE CYCLE

NE
:ELSE, CHECK IF OFFLI
PC, TSTOFL
JSR
DRIVE
THE
.
ERRED
IT
ifi
24
B8CS
ATTENTION MESSAGE
, sss HANDLE OFF LINE DRIVE, WAIT FOR AVAILABLE
MESSAGE
JEXPECT AN AVAILABLE ATTENTION
EXPAV
CLR
GE
MESSA
ATTN
FOR
SET RING
©<RG.OMN+RG.FLG> ,RSPONC +2
8IS

68:
174742
174732

;DUAL PORT?

@SR.DUA, SR1

*xr NOT, CONTINUE
24
BNE
TIME.
FIRST
THE
FOR
E
. ese CHECK IF WE DO ONLIN
;IF TRY HAS SET MSB, DON'T DO ONLINE
TRY
TST
: DON'T DO ONLINE
16%
8MI
ELSE DO ONLINE (1ST TIME THROUGH IN THIS PASS)

000422

012701

e e W

SEQ 0042

“WAIT FOR MESSAGE

104
R1
43

B8R
DEC
BNE
JSR
8CS
MOV

PC ., ONLINE

MOV

,
TRY
100000

,UNSZH

:DONE?
:IF NOT DONE. TRY AGAIN
ND
;00 AND ONLINE COMMATRY
AGAIN
:IF CARRY WAS SET,
;IS THE UNIT SIZE HI ADORESS

P.UNSZ+2+RSPACK
;CET UNIT SIZE/IS IT = 0?2
P.UNSZ +RSPACK , UNSZL
MOV
WITH ITERATION
:IF NOT _ZERO, CONT
164
BNE
0?7
ALSO
:IS UNSZH
UNSZH
ST
:IF 0, TRY TO BRING ONLINE AGAIN
CYCLED
BEQ
ONLINE IS DONE
L
INITIA
THAT
SHOM
TO
TRY
OF
; ses SET MSB

144:

‘.‘...

3.“‘.‘...‘....‘.....“.“....".‘.‘...‘."..‘.‘.‘.....‘.‘....“..

THE UNIT SIZE.
NT SETS THE LIMITR FOR
THE FOLLOWING SEQME
NORMAL BLOCK SIZE))
SIZE/
SIZE - (WRITE BUFFE

THE VALUE CUNIT

x
'

SEQ 0043

X11 SYSTEM EXERCISER M MACRO V05.0% Fridey 27-Sep-85 16:23 Page 18-1
DUBE DEC/
CODE

MOODW.E

IS THE LAST SECTOR POSSIBLE TO RIGHT TO.

oo‘ooo.oooo

:;ooo.ooooooooootoooooo.ootoo.oooo“o‘oocooooooooooo‘oo‘ooooo

016700

164:

174476

18%:

17514C

, ess

000156
001134

; sss
000720

001000

174300

; sss

19¢:

000730

174254
000126

001000

174234

; sss

208:
; ses

001014

WBUFSZ,RO

JSR
JSR
8CS
cHe

PC . PICKBK
PC.GTSTAT
24
#ST.AVL.RO

DRIVE ONLINE?
IDID WE NOT GET THEBACK
TO TOP AND TRY AGAIN
GO
NOT,
iIF WE DID
IS IT AVAILABLE? TOP AND TRY AGAIN
iIF SO, GO BACK TO

8CC
8IT
BNE

#SR.DUA, SR1

194
24

sIF YES, RETR

228:

24%:

;R1 = @ OF BLOCKS
; INCREMENT THE @ OF BLOCKS
DECREMENT A BLOCK

R1
CLR
R1
INC
#400,R0O
suB
O
i8R IF > THE
184
8PL
UNIT SIZE
VADJUST
R1,UNSZL
SUB
TO
E
WRIT
TO
K
BLOC
NOW PICK WHICH
,ELSE SELECT A SECTOR TO TEST

24
8EQ
WRITE TO THE BLOCK SELECTED
PC,WRITE
JSR
JSR

001712

;WBUFSZ IN RO AS A LIMIT

MOV

PC,READ
JSR
224
8CS
@SR .CMP, SR1
BIT
208
BNE
COMPARE DATA
CDATA$ , BEGIN,RBUFPA
.2

BIT

;ELSE, MARD

PC ., ERRORM

22
B8R
READ IT BACK

@SR.DUA,SR1

FOR USER DEFINED # OF WORDS
{WRITE THE DATA
NUE
CONTI
;IF OK,
;ARE WE DOINGYDUAL PORT?

{AND EXIT; BCS 224 ;IF ERROR, EXIT

;READ A BLOCK
;IF ERROR, EXIT
;00 A DATA COMPARE?
:IF NOT, SKIP THE COMPARE
; REQUEST FOR MONITOR TO CHECK DATA
: IF ERROR,

CONTINUE

ABLE?
;00 WE DO AN AVAIL
SET) SKIP AVAILABLE
:IF NOTCBIT NOT
;RELEASE THE DRIVEOX

224
BEQ
MAKE THE DRIVE AVAILABLE
PC,AVAILB
JSR

;EVERY THING WAS

CLC

:MASTE A LITTLE TIME SO OTHER
CAN GRAB DRIVE
:

;RETURN

RTS

CLR
BIS

TION MESSAGE
1EXPECT AN AVAILABLE ATTEN
EXPAV
RESPONCE RING
FOR
FLAG
AND
OMN
SET
»2
C
#<RG . OWN+RG.FLG> ,RSPON
N
RETUR
&
GE
I?*ENTIN MESSA

; ess SUBROUTINE TO WAIT FOR AN INTERRUPT
;'o‘;aflim AFTER THE INTERRUPT OCCURS

JHP

174454

INTERP

sMAIT FOR

‘....O‘.

DISKLESS CYCLE

AND A MAITENENCE READ
AND CHECK THE DATA

DO A MAITENENCE WRITE

.‘..‘.‘.

.‘."...““‘...‘0“.“.‘..‘.0.‘...O...“.‘..‘...‘...‘.“....‘.

COR T

w6 we

e W

;....‘......“....‘...‘.‘.“.‘.‘...‘.“.‘..O‘.‘....‘......“.‘..

174724
140000
001206

005067
052767
000167

DUBE DEC/X11 SYSTEM EXERCISER M MACRO v05.03 Fridey 27-Sep-85 16:23 Peage 18-2

MODULE CODE

1109 00361

70
0004
67
0047
2
00361
1110
0004
67
0047
003616s 032767 00400300 174166
1111 ooug
1112

CYCLEL:

JSR
JSR
BIT

AITW
PC.M
PC.M
MP, SR1
oSR.CAITR

PA
RBUF
n
c?.&;
o
%o"nn
26
0001
00
0000
x:z
oosol320 ‘1’334:
flfi 00364
s
e
i
p
«
42
0036
214:
1115 003642
PC
1116 003642 000207

RTS

SEQ

WRITE
TENENCE READ
AA MAIN
;00
m;m
;gg
?
;0 A DATA

u
nfa
:u:
}fo
"foa
"
‘o
*x:o'a
E
REQU
iu
+ e RAOR, coz%

0044

19
DUBE DEC/¥il SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page
MODULE CODS
.‘h‘...“.“‘.‘..‘..““.““‘.“..."‘......‘..."..‘...‘.“....‘....‘. Fl
111'
i:
'
1119
TO.
WRITE
TO
BLOCK
A
PICK
H
1120
i
AT
ONE
TAKE
OR
ULT)
(DEFA
R PICK THE NEXT SEQUNTIAL BLOCK
EITHEM,
:
[
1122
RANDO
:
H
{ggz
H
/

44 032767
00364
1128
00364
1139
1130 003652 001467
1131 003654

PICKBK : BIT
002000 174144

0°
1132 003654 1044176 00000
0
17417
01674
0
00366
1135
0°
00000
7
10441
4
1134 003660 016746 174160
i{g 00367

{}3}

1
1139 0036746 00024
1000020
04271
00367
1140
76 17471
1141 0037026 01266
005767 174712
00370
1142
003712 001430
1148
1144
1145 003714 016700 174704

0 100000
0 00510
1146 00372
1
01270
2
00372
1147
03
1148 00372
00140
0037360 03010
1149
020241
1150
003734 0060013
1151 00373
1152 0037460 00077
040100
1153
1154 003742 000241

46 001374
00374
1155
00374
1156
40 174642
77 17464
0 04006
00375
1157
17464
02676
4
00375
1158
05
0037642 00242
1159 00376
00140
1160
1161 203756 0062674 174626
ii:g 003772 00041
1164

0
7 17462
0037740 00506
1166
6
17461
7
00576
1167 004004 001406
1168 00400
65 174610
16671
6
00400
1169
10337
2
00401
1170
004014 066716 174602

1171
1172 004020 000401

OUTPUT: FILL SECH & SECL (CURRENT SECTOR ADDR)
H
]
‘
.‘0.
.“‘.
...‘
“0.‘
..““
“..‘
....
...‘
“‘.‘.‘.“..‘..‘..““....“‘.0..

RANACC:

#SR . SEQ,
C SR1
SEQAC

BEQ
RAND¢ ,BEGIN
RANNUM, -(SP)
MOV
RAND¢ ,BEGIN M, -(SP)
RANNU
MOV

ADJUST MI ADDRESS FIRST

K SR1 FOR RANDOM ACCESS MODE
JCHEC
1BR IF SEQUENTIAL ACCESS

‘;
-

,GENERATE THE SECTOR ADDRESS
sGENERATE THE SECTOR ADDRESS

ROTATESURE VALUE'S +
CARRY FOR
;CLEAR UPPER
cLe
MAKES
BIT
R
ICLEA
(SP)
00,
91000
8IC
MI ADDRESS
R
SECTO
IN
E
;STOR
,SECH
(SP)+
MOV
07 R ADDRESS
SIZE
MAX
THE
:1S
187Q
SECTO
LOW
GET
0,
1IF
3
FALLS THROUGH HERE
M > O IF CODE
; ses UNSZ
VALUE
;RO = MAXEMENT
UNSZH,RO
MOV
ZERO
COMPL , NOW FIMSND
RO

18:

2¢:

as:

S8:

coM
MOV
8IT
BEQ
g.’ci

8R
81C
cLC
ROR
BNE
8IC

cHe
BLT
8EQ
ASR
BR

RO
#100000,R1
R1,RO
2¢

sR1 ISOINDEX
sHAVE
BITS
REACHM
OYET?
{'IF 1STCARRY
FORED,RORCLEAR REST OF THE

1.R0
R1
24 SECH
RO,
SECH,
74
as
SECH
74

R1
{IF
CLEARR VALUE
TOSECTO
MOREOFBITS
O, BITS
R1R NOT
:IF
MIGH
UPPER
{CLEA
SECTOR VALUE > MAX VALUE?
MIGH
THE
1IF
EXIT
<,
IF
TEST LOM ORDER VALUE
=.
:IF
;SECH = SECH/2 - CAN'T BE > MAX NOMW

Rl
1

GET LOM SECTOR ADDRESS

CLR
ST
BEQ
SUB
8CC
ADD
BR

SECH
UNSZL
64

, (SP)
UNSZL
5%

., (SP)
UNSZL
7

fl\'fi MAX VALUE

TO NEXT BIT
3
AGAIN
7O TEST
.w
BITS
OFFORTHE
'1CLEAR REST
ROR
CARRY
ROTATES INTO CARRY, R1 = O
JEXIT

SIZEBLE = 07
RPOSSI
SECTO
R MIMIGHE
;CLEATHE
ST
IS
DO -LOOP
DON'T
:IF TRUE,
UNSZL C(ADJUST)
SECL
=
SECL
,
{ELSE
LOOP
SECL.
>
UNSZL
:IF SUBTRACTED ONCE TOO OFTEN
{ELSE
: AND EXIT

I——

1125
1127

SEQ 0045

SEQ 0046

X11 SYSTEM EXERCISER M MACRO V05.03 Frideay 27-Sep-85 16:23 Page 19-1
DUBE DEC/
' MODUWLE
CODE
005016
012667
000207

64:
74:

174566

CLR
MOV

RTS

TOR ADDRESS (IF HIGHEST POSSIBLE - 0)

(SP)

ADDRESS

(SP)+,SECL

;GENERATE DISK ADDRESS BY SEQUENTIAL ADDRESSING
SEQACC:

174560
174552

174554
164:

174542
174536

174540

17¢:

INC
BEQ
CHP
BLO
BR
INC

SECL
164

s INCREMENT THE SECTOR ADDRESS
IF ZERO

SECL ,UNSZL
174

s INCREMENT SECTOR HIGH ADDRESS
;OVER LIMIT?
sBR IF LOMWER

sRESET THE STARTING SECTOR ADDRESS

174524
174522

18%:

SEQ 0047

20
| mgfi%&ll SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:25 Page
|

I
|
|

]

1197
1198
1199
1200
1201

DROP A DRIVE

A DRIVE WOULDN'T RESPOND, DROP IT.

i
04

12
1208
1206
1207
1208
1209
1210
1211

SET THIS UP IN DVICE.

INPUT

UNITNO = UNIT NUMBER OF DRIVE TO DROP

OUTPUT

DVICE HAS A BIT CLEARED.

PORTID = BIT SET TO DROP DRIVE

THE BIT POSITION

REPRESENTS THE DRIVE

.‘...‘..0‘

3.‘..‘.‘.“‘.“.‘.‘.‘.“‘.“‘.....‘.““.‘...“‘....““.“..‘

1212 004100
1213 004100

14 004106

1213 004110
1316 004110
1217 004116
1218 004120
1219 004120
1220 00412¢
1221 0041
22

.‘.“..‘..

g‘.“.‘....“‘....‘..O‘....‘.‘.“‘.....‘.“..‘...‘...‘...“.“

004136

@1, NUM
DROP&
02,NUM
DROP4
@3, NUM

174472

cHP

$177777,PORTID

174454

8IC

000632’

BTODS ,BEGIN,UNITNO,ADR2

000001

174406

012767

000002

174376

012767

000003
174504

174366
174474

177777

174464

000403
036767

DROP1:

MOV
BR
MOV
B8R
MOV

012767
000407

DROP2:
DROP3:

DROPA4 :

BEQ

1224 004144

1225
1326 004146
1227

poém.uo.ovxcs

10$

PORTID,DVICE

;HAS THE DRIVE BEEN DROPPED, DON’'T DROP AGAIN

DROPPED, DON'T DROP AGAIN
HAS BEEN
{IF DRIVECWILL
ZERO DVICE PREMATURE)
;

1IF =, DRIVE HAS BEEN DROPPED -> EXIT ROUTINE

;DROP THE DRIVE

186684888408040840040000800000000800000000000000000000000004
;CONVERT UNITNO TO ASCII AND
;STORE AT ADR2

004154
004162

000000

1228 004164

174352

.
““.‘.“..‘.O.“““.‘.‘.‘...“...‘.“..‘t““‘.“.‘.‘.“..
ADR2+5
LRB
18064600504888080044048000800000000000000000000000000000000000000
;CONVERT PORTID TO ASCII AND

000000’

000636’

OTOA$ ,BEGIN,PORTID,ADR1

000002

MOV

@177777,2(R4)

1233 e14
123

177777
174302
000000’

005732

1235 0O

174264

DEC

NUM

004232
1237
1533 004280

000000’

005750

00424

000000

005766

004170
004176

1234

1236

1359 004242

1STORE AT ADR1

“.‘.‘.‘...‘.
3“..‘.‘.“.‘.‘.‘““..".‘..‘.‘.‘.‘..‘....‘.‘.‘..
SO IT WON'T BE USED AGAIN.

1¢:

2%:

;DESELECT DRIVE

NUM
DEC
1
BNE
"SSG“aa 0.0Eg‘I,':.DRPI

:DROPPED FOR WHICH ERROR?NUE
;IF NOT FOR ERRORS, CONTIHEADER
;ASCII MESSAGE CALL WITH COMMON

ESGNO.BEgg':.MPZ

;ASCII MESSAGE CALL WITH COMMON HEADER

MSGN$ ,BEGIN,DRP3

;ASCII MESSAGE CALL WITH COMMON HEADER

BNE

:WAS UNIT NOT FOUND?(NON EXISTENT UNIT)
3 IF NOT, CONTINUE

; ACTUAL UNITS FOUND

P
27-Sep-85 16:23
X11 SYSTEM EXERCISER M MACRO VOS.03 Fridey
DUBE EDEC/
' MODUL
ol
—
CODE
1241 004250 000207

134
1543

108:

RIS

b oty“

SEQ 0048

e~ e

SEQ 0049

DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 21

MOOWLE CODE

B W oW W

SET UP A PACKET WITH:

OPCODE € MODIFIER

e Be e W8 W

REGION ID & REGION OFFSET
ER DESCRIPTOR

‘.“..‘...““.‘.‘...‘.“‘.‘..“.“
;:CLEAR THE PACKETS
+SET THE OPCODE

;888080880880 08000088 ‘.‘.‘.‘..‘....“.

004767
012767
016767
016767

SERRRRREERRRNNAa

MAITENENCE READ

016700
000424

001066
0000
174216

174206
173626

174126

MAITR:

174132
174122

JSR
MOV
MOV
MOV
MOV
BR

PC, CLRPAK

P P . OPCD +»CMPACK
. MRD,
@0
+ CHPACK
P . ADEA EP
RB,UF
RBUFPP . P . ADPA « CMPACK
RBUFSZ.RO
MAITP

:SET THE BUFFER DESCRIPTOR

IN WORDS
'STORE THE BUFFER SIZE
THE PACKET
Y2ET UP THE REST OF

|.‘..‘..““.‘““‘.“..‘.“..““‘.“‘...‘...“..‘.‘.‘..“‘...‘.‘....O
MAITENENCE WRITE

PTOR

BYTE COUNT (EITHER MBUFSZ OR LIMIT IF WBUFSZ > LIMIT)

THEN SEND THE PACKET

...‘..

004767

012767
016767
016767
026767
016700
000402
016700
006300
010067
012767
012767
012767
012767

012767
000167

001032

174166
174156
173602

174072
174076

MAITM:

174264

174256
18:
MAITP:

173564
174032
000020
000001

177777
177777

000322

173710
173776

3333333p33833333e

133
43493

3.““‘.‘..‘.“.‘...‘.‘..“‘.“..‘.‘..‘.‘..‘.‘.‘.....“.....O..‘..

FeasgtRERRRRRNLy

N
~~ fingfii
‘u;
BN

o‘u.ouoo.o

.oooooooooooo.ooc.oo.oo.ooocoooooooooooo.oooooooooooo-oo..oo

1245
1246

PC, CLRPAK

. MR , P . OPCD + CHPACK
©0P

:CLEAR THE PACKETS
:SET THE OPCODE

WBUFSZ,LINIT

:SET THE BUFFER DESCRIPTOR
B
;IS THE BUFFER SIZE > LIMIT?

LIMIT,RO
MAITP

:AND SKIP

« CMPACK
P . ADPA PP
WB.UF
1s

WBUFSZ,RO

RO, P .BCNT +CMPACK

#16. .,RSPLEN
036. ,CHPLEN
#1,P.RGIL +CMPACK

0177777, CHRVIR

#177777 .RSPVIR
SEND

;IF NOT,

WBUFSZ IS OK

;STORE THE BUFFER SIZE IN WORDS

{STORE THE BUFFER SIZE IN WORDS
{MAKE IT NUMBER OF BYTES

+SET WRITE BUFFER SIZE

RESPONCE PACKET LENGTH
COMMAND PACKET LENGTH
$SET REGION ID = 1

:SET COMMAND VIRTUAL CIRCUIT (-1 FOR DM)
;SET COMMAND VIRTUAL CIRCUIT
:SEND THE PACKET

M MACRO V05.03
DUBE DEC/X11 SYSTEM EXERCISER
MODUWLE CODE

Frideay Z7-Sep -85 16:23

88840880 08008804808040000

|"‘.....‘.‘..‘..‘.‘..‘0...““..“..‘..‘..‘ 28060

1296

1297
1298

WRITE

coum.
IFIERS ,BUFFER SIZE (BYTE
SET UP OP CODE
SS)
ADORE
DED
EXTEN
AND
xcu
(ns
a
xrio
BUFFER oes&
IN THE PACKET:
LET READ SET SIMULAR DATA CAL
BLOCK NUMBER),
DISK ADORESS AND CYLINDER ID (LOGI

:
::
;

12
1301
1
1

i!“

00071422
00476677 0000
i!fl" m 0127

1308
1309 004440 016700 173476
1310 004444

016767

%3%% 004452 01672;

it14

174040

174034

WRITE:

JSR

MOV
WRITEA: MOV
MOV
173750
“mv

173752

173744

‘.0‘

PC, CLRPAK

0P UR.P OPCDsCMPACK

WBUFSZ . RO
CMPACK
P ADPACPP
NBUF
mu:m 'P . ADEA+CMPACK

;CLEA

sSET
1STORE THE BUFFER SIZE IN unuos
IPTOR(PA)
R DESCR
THE BUFFE
1SET
PTOR(EA)
DESCRI
BUFFER
THE
.ser

“...

|‘.‘.‘...0“.‘.“‘O.“.“.0.0....‘...‘...‘.“..‘.““.“““.‘..“.

173432
174002
173772
000040
000040

004
1333
1334 004
1332 004

10067
016767
016767

173660
174054
174050

004

004552

000476

173716
173716
173706
173560
173646

173672

173666

016700
016767
016767
012767
012767

PMY .

.‘..‘

‘..“.O..‘.‘..‘.
‘E.“O.‘..“.“.“‘.‘.‘..00“....‘..‘.‘...‘..“.‘..
PACKETS

1327 004474
004
1
004
1
& 4
1
1

’§§§fi§§§§§§§

0 x%%
.'
mn
NurExP).
, O0% s:
TEADED'&s
CYL xcuo
AN ("s
OISK&gu

g
004462 004767 000656
1
s
1326 004466 012767 000041

1336

.‘.‘.."....0..“
.‘..“‘.".‘.“..‘.‘.“‘...‘.‘..l.‘.‘.‘..‘..‘.“.“
R PACKETS

1318
1319

THE P

13
%315

1
i

SEQ@ 0050

Page 22

"P.OPCDSCMPACK
g'n
ncx
m.cv
mr
ADPA +CHPACK
032,
.uin.
032.
.
+CMPACK
seéL P.LBN
.LBN+2+CHPACK
SECH.P

THE OPCODE SIZE IN WORDS
1SET
{STORE THE BUFFER
sn THE BUFFER oescnxnoa
lSE‘l uem PACKET LENGTH
|$EY PACKET LENGTH

VTES
’
%I

lSEY

;SET LOGICAL BLOCK m
ISE'D THE PACKET

X11 SYSTEM EXERCISER M MACRO V0S5.03 Fridey 27-Sep-85 16:23 Page 23
DUBE DEC/
CODE

.‘.‘0‘...

|..".‘.‘.“.‘..““......‘.‘.‘.‘.““.“.‘.‘.‘.‘.....‘.......‘

012767

000074

17355
173574

.‘.‘.

.‘..“.‘..‘."..0“
..‘.““..‘.‘..‘..‘.“.“‘...‘.“..‘.“.‘.“.‘.PACK
ETS

000564
000013

SET UP CODE, GO SEND PACKET

e
e
-

004767

DETERMINE ACCESS PATHS

JSR

MOV
MOV

MOV
8R

CLRPAK

@0 .DAP,P.OPCD+CMPACK
#60. ,RSPLEN

960 . .CHPLEN
SEND

MODUWLE

SEQ 0051

;SET OPCODE
:SET LENGTHS

:
1SEND THE PACKET

1 6040804060040000800800000400000080000400800008000000000000000000000000
AVAILABLE PACKET

E.O

004767
012767
012767
000413

000534
000010
000014

SET OP CODE AND MODIFIERS THEN SEND THE PACKET
‘“....‘..‘.“0
‘.“.‘..‘.“.....‘..“.“‘.‘.‘."‘.‘.‘.‘.“.‘.‘.‘..0“.‘.
T
173574
173456

VAILB: JSR
MOV
OV
AR

PC, CLRPAK
00 .AVL ,P.OPCD+CMPACK
012. ,RSPLEN
GTSTAA

sCLEAR PACKE
;SET THE
1SET RESPOMCE PACKET LENGTH
;SEND THE PACKET

000000

| 60808004080080008000000000080040008008004000000000000000000000000
GET UNIT STATUS

SET ngf“&a (FOR THEN NEXT UNIT
‘..‘

73426
173514

‘.....‘.‘.....“
.‘b'..........‘...‘.‘.‘.......‘.".‘.‘.‘.‘.‘..‘..‘.
ETS
PACK
'
CLRPAK
STSTAT: JSR
TME
+CMPACK
.GUS.P.
MOV
MOV

nov

GTSTAA: MOV
én

. NXU, P . M0D « CHPACK
OMD

2., &"fl
"'g'

ACKET LENGTH

PACKET LENGTH
1SET
Y
PACKE
THE
1SEND

s&l SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 24

...‘.......

....‘.‘.‘.“.‘.‘.".“.“.‘.“.‘...‘..‘...‘.........‘..‘..‘0.
SET CONTROLLER CHARACTERISTICS

R (ENABLE ATTENSION MSGS)
FLAG
TROLLE
SET OP CODE AND CONMOST
TIMEQUT, USE FRACTION.
CLEAR MSCP VERSION,
TIME AND DATE.
WORD
AND ALL OF QUAD
PACKET
EN
SEND
TH

‘.......
“‘.“‘.“.‘..“.O.‘..‘..“........."....‘.‘.‘.‘.“t.‘........
H

173500
173376
173500
173500

JSR
MOV
MOV

MOV
MOV

PC., CLRPAK
032 .CMPLEN
928. .RSPLEN

90P . SCC.P.OPCD+CMPACK
OCF AVL .P.CNTF+CMPACK

SEND

AND PACKET
;GO CLEAR THE COMM
T LENGTH
PACKE
ND
COMMA
1SET UP
1SET UP RESPONCE PACKET LENGTH
;SET THE OPCODE
;SET THE CONTROLLER FLAGS
MSGS
i TO ENABLE ATTENTION

:SEND THE PACKET

.“

|0..‘...‘..“...‘..““.‘..‘.““.0..0‘..“..“.......‘..‘“0.‘...“‘

ONLINE
, MODIFIERS, UNIT ID, HOST ID
SET OPCODE
UNIT, ERROR FLAGS
THEN SEND PACKET

.
-:
-

.“‘.““‘.‘..‘.'
.O‘.‘.“.
..‘.
...‘..“.........
..“‘
““..JSR“.‘..‘.“
"..OE:
TCLEAR PACKETS
PC,CLRPAK

ONLIN

MOV

MOV
MOV

32. .,RSPLEN

[

#36. ,CMPLEN
90P.ONL ,P.OPCD+CHPACK

LENGTH
:SET RESPONCE PACKET LENGT
H
:SET COMMAND PACKET
;SET THE OPCODE

SEQ 0053

25
MPSI!P SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page

‘.‘.“....“..

|..0.‘.‘““.“0‘.‘.“‘.“.‘.‘...‘0..‘.................“.
SEND - SEND A PACKEY

INTERP - WAIT FOR AN INTERRUPT

IN
ENCE NUMBER AND
SET UP THE COMMAND REFER
IIMCMRDG(fflMLEI)

fiTM.CLEHM
BY CONTROLLER)
TS
(FOR INTERRUP
IN MESSAGE RING
SET OWN & FLAG
D(NW
fi
WS
YN
‘M
MP
Y.MM

fflM

TO CYCLED.
RETURN)
THEN RS
OR SOFT ERRO

INPUT:

F & UNITNO
CMPACK IS FILLED EXCEPT FOR CMORE
ESTABLISHED
ARE
INTERRUPT VECTOR AND BR LEVEL

OUTPUT: MSPACK IS FILLED
ET WAS OK
CLEAR CARRY IF COMMAND PACK
ELSE GO DO A HARD/SOFT ERROR

...Q..‘..‘..“‘..‘.‘."..“.
ié.“.“““.0..‘.“‘.“.‘...“.C‘.‘..‘..“.
{NEW COMMAND REFERENCE NUMBER

INC
BEQ

MOV
BIC
8IS
8IS
o ST

EXIT$,BEGIN

)

NTRUPT:

o P

s o o i s i i i s i s . i i i i e e
BHEEoEbELRED

005032’

173252

173242

172704

173176
173166

CMDREF
;COMMAND REF © CANNOT R= O
SEND
{SET COMMAND REFR NUMBE
K
CMPAC
+
CRF
.
,P
F
CMORE
UNIT NUMBE
;SET
UNITNO.P.UNIT.CMPACK
R FLAG
:CLEA
.
ORG.FLG,
OMN FOR COMMAND RINGMESSAGE RING
ORG . OWN, COMMND + 2 ,RSPONC +21SET
O&sn OWN AND FLAG FOR
9<RG.OWN+RG.FLG>
TFORCE POLLING TO PACKET
SADDR

RTI ---AND----AT 18----; QUEUE UP TO CONTINUE----,BEGIN, 14
PIRQS
' ---------------------------------------------

CLR
cHP

BEQ
CHP
BEQ
H

JEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT.

RINTR
o0P.AVA.P.OPCDRSPACY
154
164

20P.ACP.P.OPCD+RSPACY

;CLEAR INTERRUPT FLAG
;WAS AN AVAILABLE ATTENTION RECIEVED?

:IF T WAS, EXIT
PATH ATTENTION RECIEVED?
:WAS THE ACCESSPROCE
SS
+IF IT WAS, GO

; ELSE CHECK SUCCESS
: SUCCESS?

MOV
BEQ
8IC
BEQ
g.:.

P.STS+RSPACK,RO
143
#177740,R0
144
ERRTYP
@ST.DRV,RO

Q
CcHP
8EQ

m;sue EXPECTEUT?
IF NOT, GO REPORT SDI
124
TINEO
RE
AN
IT
;IS
PACK
TSWRS
3287 DRV+SC.ST0>,P.S
EXI
ONLINE,
NOT
:IF TRUE, DRIVE IS
10%
INV>,P.STSRSPACK ;IS IT THE INVALID S01 RESPONCE?

BNE
gt

cHP

3
#SR.DUA,SR1

9<ST.DRV+SC.

+IF YES, EXIT
OF SUB-STATUS
{CLEAR UPPER 110, BITS
OK
EXIT
=
:IF SUCCESS

:IF GOT HERE, ERROR
: DRIVE ERROR?TEST

;IF NOT NEXT
{ARE WE DUAL PORTING?

Wslltl SYSTEM EXERCISER M MACRO v05.03 Fridey 27-Sep-85 16:23
3s:

172734

172716

172700

&
z.

051 ONT.RO

MOV

cm 3.ERRTYP

TEST
REXTERRO
TSE
TFONOSE.
'sEL
YR TYPE

CPB
ENE
a‘

#ST.MST,RO
Ss
SERR . 32, ,ERRTYP

: HOST BUFFER ACCESS ERROR?
;IF NOY 'El? TEST
T
:ELSE,

cHP8

MOV

SERR.1,.ERRTYP

173160

000011

173140

000003

173130

: WRITE PROTECTED?
;ELSE HARD ERROR

cMP8
BNE
cMP

@ST.AVL,.RO
EH
0P .GUS P . OPCD «CMPACK

i _STILL IVIILllLE?
:IF NOT_NEXT TEST

12%

:gl:.ONL ,P.OPCD+CMPACK

cHP

#0P .GUS ,P.OPCD+CMPACK

cHP

S0P . MR ,P . OPCD+CMPACK

BNE
SEC
RYS

108
12¢

WITH EEAOR TYPE =
EXIT
onUz
LRI
is:oo st enn

ERRORS

; ses SUCESSFUL EXIT

14%:

15¢:

cLC
RTS

; ees WAIT FOR ATTENTION INTERRUPT

lELSE. IF Cm lllS
GET UNIT STATUS
LEAVE ROUTINE
T
N
|T!E%C

;WAS IT AN ONLINE COMMAND?
+IF SO, SET CARRY/EXIT

US COMMAND?
lIS IY GET UNIT STAT
EXIT
S0, SET CARRY/

S&M?ERR"
IT
sIS RIT
:ELSE

§EtCARRY T

AND RETURN TO onor DRIVE/AWAIT AVAILABLE DRIVE

= 6
12:.0 HARD ERROR EXIT WITH ERROR TYPE
:ELSE, SET ERROR TYPE
SERR .6, ERRTYP
.
sMD HARD ERROR

173202

SET ERROR TYPE

{ELSE,
éort
;AND

@ST.WPR,.RO

BEQ
108:

005767

1IF NOT vext TEST

T_OF
WX”EST
I not
g
w
SYATUS
WII'
GET
OR
ONLINE
TRIED
; sse OFFLINE WHEN

173120

172600

ERRORS

; DATA ERROR?

12¢

94:

000003

: AND

BEQ

CMPB

ERRORH
@ST.DAT,.RO

BNE

sgst%%ts NOT ONLINE, EXYY

100

’

Page 25-1

A SOrT ERROR
seauoa WITH ERRTYP = 0 & IS .CMD
T.CMP,ST.MFE, .ST.ABO,ST

;CLEAR CARRY 'CAUSE PACKET 1S OK

; eea DIDSUE GET_AN GVAILMLE ATTENTION MESSAGE THAT WE EXPECTED?
EXPAV

25-2
SIth SYSTEM EXERCISER M MACRO v05.03 Fridey 27-Sep-85 16:23 Page
Pt
g e et et

177777

173172

140000

172720

16$%
:}‘:1117.5”!'
16%:

8IS
BR

SEQ 0055

I’
T ONE WE DIDN'T EX’ECWORD
O,
:IF EXPAV IS NOT AVAI
GE
MESSA
TION
L‘E ATTEN
EXPECTED
aCLninfl

sWAIT ra\ RESPONCE OF LAST PACKET SENT

#<RG.OWN+RG.FLG> ,RSPONC+2

INTERP

!ll SYSTEM EXERCISER M MACRO V05.03 Fridey 27-Sep-85 16:23 Page 26
gEEaX
DUBE
MODUL
|..‘...“.“.‘..‘.“....‘.‘...‘..“.““.“‘.‘...“.“...‘.‘..‘....“‘..
‘ 7
-

CLEAR PACKETS
:'
R
BUFFE
ND
COMMA
THE
DES
PRECE
R
BUFFE
NCE
ASSUMPTION: 3)1) RESPO
H
LENGT
FOR
IS
R
BUFFE
EACH
E
TWO WORDS BEFOR
'
AL CIRCUIT

:
-:

i%
1333
1332
s

OF PACKET AND VIRTU

153
1534

13’7
xsg' 005344

m 017767 172702 173142
1539
11”1 ggg352 001421

.‘.‘..‘..‘...“.......“““..
.‘.‘
.‘..
““.‘
..‘.
.‘..
....
.‘..
.‘..
...“
:‘..
CLRPAK :
NOT ZERO, STORE IN NUM

REG
SA
;IF
NUM
,
G
@SARE
MOV
ETS
R PACK
CLEA
ZERO,
REG IS....
SA
IF
Ss
8EQ
‘
..‘.
“..‘
“...
.“‘.
Q..“
“..‘
““.“
.““.
;.‘.“.‘.‘..‘.‘..
OTOA¢ ,BEGIN,NUM,ADR1

0 00000C° 000514°
005354 104426'

005362

010446 174010
67
0047
03
012604
0126
004767 177252

lg:.
005412 005267 172426
1549
1550
0000642’
012702s 00030
16 ogro
005422
1551
115Sg
02
11555 ggg:32 0053
00137075
%S s 005434 0002

‘§S
1 ’
{“5601

N, SANOTO
,BEGI
MSGN$
R3,-(SP)
MOV
MOV

S$:

6$:

JSR
MOV
MOV
JSR
INC
MOV
MOV
CLR
DEC
BNE
RTS

R&,-(SP) D
NITU
PC,I
.R3
(SP)+.R4
(SP)+

Cé
PC.SNT
HROC
.R2 RS
#52.
LEN,
ORSP
(RS)»
R2
64
PC

;ASCII MESSAGER3CALL WITH COMMON HEADER
:SAVE R4
:SAVE SA REGISTER
INIT R3
;RE
;RESTORE
;RESTORE R4 ER CHARS AGAIN

CONTROLL
;SET
R COUNT
ERRO
HARD
INCREGMENT
;;D0IN
T0 CLRPAK
CALL
HER
ANOT
CAUSE
WILL
THIS
R
TO CLEA
OF WORD
;R2 =-> @RSPLE
N, S1ST WORD TO CLEAR
;RS
;CLEAR WORD (DONE CONDITION)
= ZERO?
;R2
ZERO, LOOP
NOT
:IF
;RETURN

ooo
ooo
ooo
ooo
ooo
ooo
oo.
oo.
‘o.
.ot
o.o
‘.o
ot.
...
ooo
.oo
tob
3
too
it‘0‘000000...o‘o.o
:
CARRY MWILL BE SET
:

HARD ERROR

‘.“..“‘0“..‘.‘.00.‘0..0.0“..0..‘.‘.0“..'
..‘.
.“‘0
.‘..
.“.l
....
;““.
ERRORH :

1&;
005436
1

0327673 000004 172352
364 00140
0054
1564
1565 00544
005446 005267 172372
lat
1567 005452 000407
1568
78:
1569 005454 004767 000056
1570

;CONVERT NUM _TO ASCII AND
:STORE AT ADR1

..o.ooooatooot..oooooooou‘ooooooto.ooo‘tooo.ooooooot.oooo.oo

C0052

0* 006024
00000
3
10440
005
5‘;
46
1 ggggn 0103
74
1
005376
1545
lm
1

:
:

= O WHEN DONE
OUTPUT: R2
RS = END OF COMMAND PACKET WHEN DONE

{sgz

104405 000000’ 000000

7 000070
1571 005466 00476
000261
1572 005472
1573 005474 000207

SEQ 0056

81T
BEQ
INC
B8R

#SR.REP,SR1
74 NT
HRODC
84
TTAB

REPORTT THE ERROR?
;D0 WE
REPORMENT THE HARD ERROR
:IF SO.
INCRE
,
;ELSE
IFRTNOT REPORTED
: COUNT
P REPO
:SKI

;SET UP TABLE
PC.SE
JSR
i 0oo.ot‘ooctoooo.too.oooac‘oo.oooooo.ooooo..oooooo.oooo.ooa.o.oo

3
N,NULL
HRDERS$ ,BEGI
.‘.““.“‘.“...‘.““....‘...‘...‘.....O“..‘.....“.‘
gt..‘.‘.

8%:

JSR
SEC

RTS

PC.PRINTE

;RETURN TO CYCLED

SEQ 0057

DEC/X11 SYSTEM EXERCISER M MACRO V0S5.03 Fridey 27-Sep-85 16:23 Page 26-1
DUBE
MOOW.E CODE

“.."...“‘.“
;"..“‘.“‘.“....".‘.6‘“..“...‘.“‘.......“‘..‘..‘.
'
'
:
SET
CARRY WILL BE
SOFT ERROR
3
i
.
i
.“.‘
..‘.
.‘.“
‘..“
.“..
‘..‘
“.‘.
‘.“.
““..
.‘.‘.‘...‘....“.
3 .“.‘...‘

1575

1576
1577
1578
1579

1580 005476
1581 005476
lg:g 005504
005506
1

032767
001403
005267

512
514

000407
004767

000016

003520

104406

000000* 000000

004767

000030

1584

1585
1586
1587

1589 oosgig 000207

1568 005!

000004

172312

:
ERRORS

INC

172330

:
-

1595
1596
1597
1598

1604
1605
1606

SOFCNT

3 COUNT IF NOT REPORTED

RINTE

PC.P
:SET CARRY
SEC
108:
{RETURN TO CYCLED
PC
RTS
..‘.‘
;‘...‘.“.“““....““‘O‘..“.....‘.“‘.‘.“‘.‘0.‘.“.‘..‘.“...O

1591
1592
1593
1594

1602 005552
1603 005560

;D0 WE REPORT THE ERROR?
+IF SO, REPORT
;ELSE, INCREMENT THE HARD ERROR

@SR .REP,SR1
94

1SKIP REPORT
10¢
BR
:SET UP TABLE
PC,SETTAB
JSR
i
T
T
T
P
:
SOFER$ ,BEGIN,NULL
ooooo
.o‘aooo‘oo‘ocoo‘ooooooooo‘ooo.ooooooooooooo.ooooocoooooooooo
JSR

1590 005534

1599 005536
1600 005536
1601 005544

BIT
BEQ

SETTAB
SET UP A TABLE OF VALUES FOR A SOFT OR HARD ERROR

é;;;:;.‘.‘.‘.‘...“..‘.“‘.....““0...‘...“‘..........“....“‘.0..“.'
016767
016767
017767
000207

172244
172550
172474

172334
172332
172322

" MoV
MOV

ADDR, CSRA
P.STS+RSPACK,ASTAT
gcsmes.ucsa

:SET UP CONTROL STATUS REG REPORT
:SET UP STATUS
S REG
{REPORT WHAT IS STATU

...0“

-.r:A6!‘.‘.‘..‘..‘.‘““.‘.‘.‘...“‘.‘..‘.‘..‘.O..“..“.‘.‘.“..‘
PRINT EXTENDED ERROR MESSAGE

PRINT STATUS. OPCODE, UNIT NUMBER, BYTE COUNT, LBN AND ADDRESS

1607
1608
1609
1610

ooooooo

5;;;;;0...00.000‘otoooo‘coc.ooocooo‘oo.oo.t.o.o.ocoooooooooooooco

0040
T 868684888848048800488044080084000000000000000000000000000000
AND
;CONVERT P.STS+RSPACK TO ASCII

1611 005562
161

1STORE AT ADR1

1613

ADR1
OTOA$ ,BEGIN,P.STS+RSPACK,
000000000000000040
[S8844044088040000008880804800008000808000000
000008000000000000
00000
[ S068084045000000084808848048000000000000
TO ASCII AND
ACK
;CONVERT P.OPCD+RSP

1614

,
ADR2
OTOA$ ,BEGIN,P.OPCD+RSPACK
0000
[SSSSSESALEAES40SS8844040000000000000000000000000000000
b
T
B
;CONVERT P.UNIT+RSPACK TO ASCII AND

005562
005570

005572

005602

104420
000526

104420

000535

104420

000000’ 000316’

000000 000312’

1STORE AT ADR2

;STORE AT ADR3

OTOA$ ,BEGIN,P.UNIT+RSPACK,ADRS

SEQ 0058

REERINARANIRELERALERSIRARSS
[S80080ASAAEESAREEAEIARAEEREEEARASA
ououoooooouuun
.co.co.o‘.ooooooo.uoooooooo‘ouotocnoouoo
ASCII ANC
TO
K
SPAC
NT+R
;CONVERT P.BC
1STORE AT ADR4

000322’

OTOA$ ,BEGIN,P.BCNT+RSPACK,ADR4

000440’

ADRS,
OTOAS . BEGIN,P.LBN+2+CHPACK

000436’

OTOA$ ,BEGIN,P.LBN+CMPACK,ADR6

“.“...““....“‘...‘.‘
;“““‘.‘.“.".“‘.“‘.“.“‘..‘.“.
".."..“‘.“.“.“.....“
...“
‘..‘
““““
|‘.‘.‘.“.“.“‘.“.
SCONVERT P.LBN+2+CHPACK TO ASCII AND
STORE AT ADRS

etetrrtrrrrrrerrrrrsrrIrsresds
L L
L
ERLASRRLILARRASLSES
1865080044000 00000000ARS0ARRASERARARREERASA
TO ASCII AND
PACK
N+CM
P.LB
:CONVERT
1STORE AT ADR6

LRELLEEEEEEMSSAS
[RS4SR SAEESEASEEEARREERESSSREERRANREENEEEI
bbb -ppbet ey
b
it
B
;CONVERT P.ADEA+CMPACK TO ASCII AND
;STORE AT ADR7

000424°

OTOA$ ,BEGIN,P.ADEA+CMPACK, ADR7
etttrtrrrrrrrrersssssssirsseseet
L
B
000000000008
16 084 ASEAEESESSEEEEE0REE00000E4000000000000000000ASCII
AND
TO
ACK
A+CMP
;CONVERT P.ADP
1STORE AT ADRS

104420
000607*

104403

000207

000422

OTOA$ ,BEGIN,P.ADPA+CMPACK,ADRS
0
00004
[ ASAAAEASEEERERREAEAAAEASREAEEEEEA0ASRLE 20000000000000

R?Q.BEE‘I:N.BMR

;ASCII MESSAGE CAL. WITH COMMON HEADER

27
gEClel S;STEH EXERCISER M MACRO ¥05.03 Fridey 27-Sep-85 16:23 Page
MESSAGE

.SBTTL

MODULE MESSAGES

1:33 005672
74

INITELl: "SGz2

e
s
710

INITER: MSG3

0 87
i e
1639

INITE2: MSG2

MSGA

177777

{

1452
il1

ADR1
MSG10
ADR2
MSG14

ADR3
177777

MSGS
177777

INITES: MSG2

ié 7

177777

7£§

740
742
744
746

DRP1:

~
-~
~
-~
-~

P e

azaaz
|-g§ON

[

-~
~
-~

i
1
1
1
1

MSG6

w‘s"
on
e

~N =~~~
~~

.Jflm

e e et 8 P

8 e e

ERRPAS: MSCG11

177777

SANOTO: MSG17

SEQ 0059

C/%

ey 27-Sep-85 16:23 P s 27-1
YSTEM EXERCISER M MACRO V05.03 Frid
:

RoDa 2 e sShats
79

ADR1
MSG1i8
177777

R
i

UNIOFF : MSG16
ADR1
177777
WARN1

MSG40

WARN2

MSG37

WARNS:

MSG36

ABORTM

MSG7
177777

ZERO

BANNER

177777

177777
177777

SEQ 0060

SEQ 0061

EM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page 28
C/X11 SYSTGES

MODULE MESSA

040
040
045

045
045

123
040
103
101
125
123

117
040
110
104
116
101

111
111

105

125
104

.ASCIZ
ASCIZ
.ASCIZ

'#'

TROLLER INIT ERROR, '
*SCON
‘'#SA REGISTER = ' IC '
NOST
'FOUND BY DIAG
'STEP NOT SET.’ WAS INCORRECT '
DATA
'EXPECTEDCOUNT
EXCEEDED, ABORT'
'#RETRY
'®DRIVE '
' DROPPED. '
' IN STEP '

&'
*%SOFT ERROR COUNTERRO
MSG11: .ASC
#°
R COUNT
HARD
sss
*
.ASC
:: .ASC
MSG12
@'
T
COUN
R
ERRO
DATA
*SCHECK
MSG13
= '
MSG14: .lSCI% *wADDRT WAS
NUMBER = *
FOUND OFFLINE. UNI
‘'SUNI
.ASCIZ
:
MSG16
‘
=
ZERO,
NOT
IS
TER
MSG17: .ASCIZ ‘'wSA REGIS
w IS GOING THROUGH INITILIZATICN'
CLEAREDS

MSGAO: .
106
116
:
122 MSGD1

: .
116 HSGO%
126 MSGD3:

NOT
CE ID BIT =

US ENDCOD UNITNU BYTECO HI LBN LO LBN EXTADR PHYADRs'

* ¢ OPERATING

WITH NO DISK ACCESSING !’

DATA WILL BE OVERMRITTEN '!s’

| cecsssesssssssssssssesessensssennaes -8 <QT7><07>

(NOT BITO)s’
BIT1
SET
DATA,
MER
CUSTO
OY
TO DESTR
WISHREGIS
IF YOUh
+'t
1.s’
TO
TER 1(SR1) OF DUBE? EQUAL
.

TO BE DROPPEDs’
CAUSED DRIVE
D BY EXERCISERs’

T WAS NOT FOUN
o
+#DVID1 BIT SET HIGHER THAN ACTUAL & OF DRIVES FOUNDs*

)

1749 00734
7
1751 007466

045
040
045
045
045
045

122 MSGS:
MSGY:
116 MSG10:

.ASE]IIZZ
.ASC
.ASCIZ
.ASCIZ
"ASCIZ
'ASCIZ

SRR

748 M?g‘1

122

103
123
117
124
130
122
104
111

MORE MODULE MESSAGES

aana

seash

104

045
045
106
123
105
045

117 MSG2:
101 MSG3:
125 MSGA:
105 MSGS:
120 MSG6:
105 MSG7:

1735 00642;

045
040

555

0063

000

85553

1725 00613654
1726 0061
006205
1728 006232
1 g 0“%
006

045

33858

198
724 006132

.SBTTL

.NLIST BEX
LASCIZ
MSG1:

;THE READ BUFFER

“h

-4

001000
s

<
w

gggcisgagdgang

TR ERE]

399999998TRTLLLLTLTLLT

33333333333333

s 5ggn3aggjon:

x> d: augo—o

-l

ERRORS
ERRPAS
ERRT

VU
=4 =

006056R
000102R

.g.

<33333
ARAAEAA 22883=3
6333 33 383"z
g -oguo-o

N NN NN
EEEEEEEEER
NN NN (EEEEEE

=
b 4
- =t =4

eWDET

| Sysbol teble

28-1
DUBE DEC/X11 SYSTEM EXERCISER M MACRO V05.03 Friday 27-Sep-85 16:23 Page

SEQ 0062

| Symbol

]

iai

x{l SYSTEM EXERCISER M MACRO VG5.03 Fridey 27-Sep-85 16:23 Page 28-2
| DUBE fiC/
teb

SEQ 0063

th;
mmm
mmm
mww
mmm

T
l

ep-8S 16:23 P - 28-3
| DUBE DEC/X11 SYSTEM EXERCISER M MACRO v0S5.03 Fri- 27-S.

Sysbol teble
22k RTRORSs (i
Bisn 2,25
00:00:49,34

e B0/ Ch /26 =XDUBEO .DOC , DOXCOM. MAC , XDUBEO . MAC

€

Cime:

SEQ 0004

16:24
AT
-85
27-SEP
ON
MACRO
BY
D
CREATE
XOUBEO
E
RENC
REFE
S
SYMBOL CROS
SYMBOL

| ABORTTM
A

| lg: 2

VALUE

60606 R
000

0003“0 R

= 00100
ADDR2
090526 R
1
l

REFERENCES

6 004
-

e21-169%
.26-

13-569
27-1665 27-166674
14-565 +14-5
27-1670
27-1662
68
14-5
7
14-56
27-1709
26-1615

16-89
15-757

25-14
8
15-7637

26-16
5
15-7800

15-755

15-772

15-789

015-811

2
13-51
14-608

5
13-51
14-618

8
13-51
15-649

13-527
15-649

5
14-56
15-708

7
14-56
15-720

16-904
36-1937

16-905
20-1239

18-3084
25-1439

18-1114
25-1482

19-1132
26-1581

19-113¢
26-1542

20-1227
26-1570

05-132

15-663

15-668

13-5310
15-71

15-6444
15-73
#14-570

03-93
#3-95

26-1616
26-1617

27-1711
27-1713

03-3

8
15-73601

03-3
03-3

ADR2

000535 R

ADR4

000553 R

0385
37-1657
03-87
27-1654
03-89
03-91

000600 R

03-97

ADR3

ADR7

ADRS
ASS|

ASTAT
AUTO

AVAILE
BANNER

AWAS

BEGIN
BITO

000562 R
000571 R

o00106 A
002524
000104 R
= 000010

004604 R
006066 R

000110 R

000000 R

= 000001

83-99

15,7115

8
15-75
16-881

25-1615

03-3

BITO4
BIT0S
BIT06

= 000020
= 000040
= 000100

05-135
05-136
5-137

= 001000

3-23

BIT
BITOS

3-20

3.21
3.22

38
¢5-1
05-139

8ITO

00
== 0002
000400

BIT1

= 000002

03-3

BITiS

= 020000

03-3
03-3

IT2
ITS
BIT4

= 000004
= 000010
= 000020

03-3
03-3

8IT078

BITO9

8ITi0

= 002000

00
004000
L =- 0100
BITL
IT12
BITi4
BITiS

== 04000
1000000

+26-1

6
15-74
16-875

#3-3
14-586
05-131

= 000004
= 000010

26-1619

023-1358
#27-1702

= 000002

= 000001

26-1618

033
03-3
18-1088
o326-1620

IT01

1100

558 0085

PAGE 1
CREF ~ 04.00

03-3

03-3
03-3
03-3
05-3

26-1614

6-213

16-88
27-1679
16-881
27-1705
16-897

81
29 26-15
30.12
27-1703
27-1684
20-1227 #20-1228
26-1614 27-1634

27-1649
27-1646

14-569

1
14-57
15-741

27-1717

3
15-76
16-883

26-1615

15-669

15-671

3-24

3-25

05-141
42
05-1

05-1a65
05-14

7-218
7-217

05-1a3
05-144

27-1630
27-1632
27-1707

27-1713

15-775
16-887

26-1616

0
15-78
16-891

26-1617

05-133
05-134

05-140

26-1612
26-1613
27-1672

2
15-79
16-895

26-1618

4
15-83
16-897

26-1619

15-729
7
15-83
16-898
20-1229
26-1587

26-1620

4
16-87
16-899

20-1233
26-1612

SEQ 0066

(gl

H sl)

ON 27-SEP-85 AT 16:24

REFERENCES
o3o3o30303o303o30303@3o3-

pr4

fl.!

VALOE

MACRO
ANANAEAEAE RN

CROSS REFERENCE

CREATED BY

15-649
15-831

15-649

14-565

14-567

18-1084

18-1114
14-569

+13-520

PAGE 2

CREF

04,00

14-569

20-1227

22-1307

22-1325

23-1345

15-688

«17-926
«21-1259

24-1393

#3-3

21-1257

926-1538
83-36
#3-55

#21-1258

+22-1310
#23-1359
25-1495

221-1290

D JDDDDIVVDDDDD

#22-1335

#25-1433
#3-53
03-54
03-34
e3-3
€3-57
€3-59
#3-56
03-58
#3-3

14-550
14-597
14-617
023-1345

+22-1331

018-1109

14-599
17-941
17-959
20-1214

920-1212
020-1215
920-1218
20-1217

24-1389

+22-1311

+21-1260
+22-1326

+21-1279
«22-1329

#23-1348

+23-1375

+24-1408

+21-1280
#22-1333
+24-1409
26-1618

223-1372
25-1497

+15-697
15-734

«25-1434
15-751

*15-773

+15-777

+15-770

+15-776

18-1047

#3-3

03-3
218-1096

23-1371

920-1220

«25-1430

#23-1373
25-1499

#25-1435
15-768

#24-1393

26-1617

SEQ 0067

CREATED BY

CCOSS REFERENCE

DRP1

ALVE

005732 R

| EA22

000502 R
000100
000200
000100
000200
000040
000100
000001
000020

ON 27-SEP-85 AT 16:24

REFERENCES

20-1233

20-1237
20-1239

04-113
03-3
03-63

15-788
03-65

104413

104410

027-1645
027-1653
027-1661

17-968

20-1220

¢20-1226

15-730

15-737

15-747

15-754

15-764

15-771

15-722

15-743

15-760

15-777

15-794

14-608
14-58¢
18-1076

14-618
16-875
25-1470

16-905
25-1475

25-1506

026-1563

13-523
+15-719

15-841

2333333-li
e

#26-1580
216-879

15-672

15-678

016-877

#25-1456

+25-1469

#25-1474

#25-1479

#25-1505

15-834
+13-521

25-1439
+18-1034

+18-1097

25-1518

#25-1520

15-729
14-616

15-746
#15-708

15-763

15-780

18-1

18-1067

216-874
#27-1669

£
D

04.00

14-605

25-1479

25-1469

25-1474
25-1505

#23-1375
15-7

aRBRAARAA

CREF

14-592

216-878

EXPAV

P AGE 3

14-583

«13-523

25-1509

’fl“”bifl

22933333

mm
"

DVICE
ovVIDL

005766 R
000630 R
000014 R
000476 R

MACRO

e TP AR
¥rarere
an

§§mm

XDUBEQ

7-230

14-567

16-898

#26-1549

26-1570

023-1371

15-781

SEQ 0068

CREATED BY

CROSS REFERENCE

VALUE

000122

005700
005672
005716
005724
001412

MACRO

ON 27-SEP-85 AT 16:24

REFERENCES

PAGE 4

CREF

04,00

03-3

03-3
e3-3

15-708
027-1629

#27-1625
027-1637

027-1641
215-642
015-836

26-1545

18-1099

025-1438

281

21-1283

25-1524

000120

21-1
vi4-388

gRagednas:3%

14-606

Hddddssadssas

L.CNTI

14-

012-417

ERLAELERE

021-1286

15-741
14-619

15-758

15-775

SEQ 0069

CREATED BY

CROSS REFERENCE

VALUVE

007422 R
007466 R
007530 R

= 104403

REFERENCES

PAGE 5

CREF

04.00

3-3

27-1650
27-1658

g?-l“‘
e3-3

16-899
e3-3
e3-3

27-1675
27-1631
27-1669

‘13812

261620

ic-891

27-1716

028-1744

g -

s28-1

-1k

o RY

27-1708

27-1710

27-1M2

27-1714

»
22

g”

s
§h%

ikt
2

104402
= 104401
006132 R

ON 27-SEP-85 AT 16:24

MACRO

= 0001

«20-1219

«20-1231

CRE

§ wmmmmFET

I SR L
T

3EQ 0270

VVDLN

:R TR i LA

CREATED BY MACRO ON 27-SEP-85 AT 16:24
CROSS REFERENCE
RENCES

VAL!s!

000340

REFE

SEQ 0071

PAGE 7
CREF 04,00

SR R CHR
24-1393

011-398

25-1432

000034
000011

011-381

090020

022-1335

fig

ag0%d

—

26-1616

26-1617

i B B

Emo;

e10-

21-1290

Eoooo"”u

a1~

17-

1357

o10-

01-

2s-1es2

25-1461

R BEE B B

25-1463

261601

26-1612

SEQ 0072

o
003634

=
S
s

001136
salils

- 920000

= 301000

gooted

000306

000300
000260
000272

gsosos

72000007
000352

g B @By 2

gsec

Ac:m
000032

000360
: 003777

#il

1063
-1613

1044
-1614

1446
1615

-1391
1098

-1407
1436

-1552
1523

15-839

16-882

26-1539

SEQ 0073

R
8%
SEE
EEEE

"' 3 -EZ § ~ &

--------- L L
xssuuuuuuunuufiuuauussa RRRR99

S REFERENCE

o-0

*19-1166

+19-1187

19-1189

-1334

Y-1431

e wee e mam e

SEQ 0074

s’ :
8

20888 <

5 :

ged - SLERRASRARUGEN, .

XDUBEO

CREATED BY MACRO ON 27-SEP-85 AT 16:24

S REFERENCE REFERENCES
CROS
S
VALUVE 34 R
Sm
#27-1683
0060

UNIOFF
UNITFL

UNITNO

000640 R
32 R
0006

m Ra

006046 R

= 000001
000472 R
VA
mfl oooogo R

USTACK

WASADR

006052 R
oooxg R

R
000
g R
ooo‘ R

1CR

000iev R

000142 R

W10

WORK

WRITE
WRITEA
XFLAG

ZERO

000116 R

000114 R

04.00

74
+14-5
«17-970

930
95 #17*14-5
25-1433
20-1227

17-931

*17-943

17-952

«17-957

17-963

€3-61
03-3

;‘
013-7
14-572

6
15-74
15-829

*15-762

15-763

+15-779

15-780

9
#4-10
€4-108
o3-

043
+18-1
«18-1044
027-1687

9
15-72
15-660

19-116

45
+15-7
15-701

45
19-11
19-1169

1:-10‘6
+18-1064

19-114

13-515

927-1690

€3-3
03-70
e3-3

«15-716

15-714
15-713

«15-722

15-719
15-718

21-1279

22-1311

18-1059

21-1281

21-1285

22-1309

3-518
e3-3

03-69

o3-

3-3

#3-3

e3-3

€27-1693

«15-713

#4-118

*17-936

000005 R

e3-3

027-1699

006062 R

g:g; 11

04-117
14
#4-1
17-965

000642 R

004426 R
004440 R

SEQ 0075

18-1072
922-1309

16-874

#22-1307

+15-721

17-939

21-1280

22-1310

58
19-11
19-1171

89
19-11
19-1183

ggfl : 3550
Sag¢SR

CREATED BY MACRO ON 27-SEP-85 AT 16:24

5 3 PG

E:ggs REF

REF
02-124

02-222

15-649

02-282

18-1084

PAGE 12

CREF

SEQ 0076
04.00

14-565

14-567

14-569

03- 14

3-3

02-324

3-3

92-246

022-149

e-in

Ofloi

-3

3- ls
0”2-

22-3%

0:-.57

02-273

3-3

16-875
14-608

18-1114

3-3

4-586

14-618
16-

-834

25-1439

15-729

15-746

20-1227

15-763

15-780

3-3

CC-Z‘%

15-70¢

#2-165

16-898

02-277

15-720

15-741

15-758

15-775

15-792

02-1:%

#2-1
16-904

13-5
20-

13-515
20-1237

13-518
20-1239

14-571
26-1542

16-874

16-891

16-895

16-899

26-1620

16-887

02-232
26-1616
#2-216
#2-161

16-881
26-1617
15-837
3-527

16-883
26-1618
25-1442
19-1132

16-897
26-1619
19-1134

20-1229

26-1541

26-1612

26-1613

26-1614

26-1615

02-181

26-1587

0”2-22

#2-120
#2-144
92-140
02-136

02-29

2-199
#2-132

02-128

-3

26-1570