Digital PDFs

AH-T275B-MC

July 1984

244 pages

Original

9.2MB

view download

OCR Version

8.7MB

view download

Document:	CZRCHB0 RC25 RC25 DISK FORMATTER JUL 1984 bw
Order Number:	AH-T275B-MC
Revision:	000
Pages:	244
Original Filename:	CZRCHB0__RC25__RC25_DISK_FORMATTER__AH-T275B-MC__JUL_1984_bw.pdf

OCR Text

RCz5 DISK FORMATIER
CZROHEO

T 190-0
Cc)
COPVAIGH

_ FIGHE 01 OF 07

RC25 DISK FORMATTER

CZRCHBO

QFYRIGHT 0 1906-01

FIoHE
02 OF 02

bl
JRCHB1

ZRCHBO RC2S DISK FORMATTER

MODWLE ZRCHB;

OOOOOOOOOOOOOOOONOOONOONNCINOOOONONNOOONOONODOONNON

SSBTTL

'USER

(STITLE
JOENT =

S-Apr-19684
22-Feb-1984

13:43:03
12:03:49

VAX-11 Blies-16 v3-555

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB1.816;?« 1) 1

ZRCHBO RC2S DISK FORMATTFR'
REv B PATCH 00') »

DOCUMENTATION

IDENTIFICATION
PRODUCT

CODE
:

AC-T274B-MC

PRODUCT

NAME
:

CZRCHBO RC2S DISK FORMATTER

PRODUCT

DATE:

23-January

MAINTAINER

Disk

AUTHOR

O.W.Neale

THE

1984

Engineering

INFORMATION

THIS DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHORD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY

FOR

ANY

ERRORS

THAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

COPYRIGHI
THE

(C)

FOLLOWING

OIGITAL
oecC

1983,
ARE

1984 B8y

OIGITAL

TRADEMARKS OF

POP

DECUS

StQ 0001

MAY

APPEAR

THE
USE
SUPPLIED

EQUIPMENT

DIGITAL

UNIBUS

DECTAPE

OR
BY

THIS DOCUMENT.

RELIABILITY
DIGITAL
OR

OF
7S

CORPORATION

EQUIPMENT

CORPORATION:

MASSBUS

0094
0095
0096
0097
0098
0099
0100
o101
0102
0103
0104
0105

e s pe g gt gt gt s s s o O
OB uOUVBWNN=OO0

PERFORMANCE GOALS
SYSTEM REQUIREMENTS

directory

to RTEM sub directory

'Run the RT 11 emulator
'Type /vs to prompt

§ The startm.com Command file will automatically
!

begin

!
[}

execute

when

the command procedure

following:

Qntcr-ng RTEM,

this

LR JOAT
.0LO: /A

time

Control

and do

the

'Run JOAT utility
'Allocate XXDP+ device to pip

'Exit

.R FIP
oVS1:=[NEALE .AZTECI/RCHB .BIN/F /1

'Run FIP utility
!Bring .BIN file

JOAT

.BIN f' le to

from user directory

into VS1:

E4
ZRCHB1

REV B8 PATCH 00

H
H
3
3

H
H
H
H
:
H
:

C 1784
C 1785
C 1786

1787

C 1788
C 1789
C 1790
C 1791
C 1792
C 1793

1794

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

USER DOCUMENTATION

22 Feb-1984

otC
.R DTX

sDEL DLO:ZRCHB.BIN

«PIP DLO:ZRCHB.BIN=VS1:ZRCHB.BIN
sLOAD DLO:ZRCHB.BIN
XFR: 000001 CORE:002000, 76600
otC

.B800 Sy

<VMS>

13:43:03

SEQ 0043

VAX-11 Blies-16 V3 555

12:03:49

Page

SPIDER
: [NEALE
S$U
.AZTEC JZRCHB1.
SER
B16;7
S

1Exit FIP
'Run the XXDP+

!Delete

UPD2 emulator

from XXDP+

medis old

.BIN

file

!PIP new .BIN file to XXDP+ media
!Load the file to verify the check-sum
'Exit DTX

'Boot back

!Back

to VMS

VMS

again

(27)

Fy
ZRCHB1

ZRCHBO RC2S DISK FORMATTER

REV 8 PATCH 00

H
H
H
H
H
H
H

C
C
C
C
C
C
C

H
H
H
3
:

C
C
C
C
C

;

USER DOCUMENTATION

1795
173
1797
1798
1799
1800
1801

22-Feb-1984

13:43:03

12:03:49

4.1

1802
1803
1804
1805
1806

FILES
A,
8.
C.
D.

REQUIRED
Text editor
Blissl6é compiler
TKB 1 inker
TKBBIN Utility This converts Blisslé
.BIN files.

E 130;

H.1l

Using any text editor,

180

1809

.EXE

files

into XXPD.

SOURCE FILE CREATING
follow PDP-11 diagnostic design guidel ines demonstrated

in SUPPRGC.D0C and CHQUSD.SEQ.

1811

E igig

H.2

:
B
:
H

C
C

Follow steps starting st G.4 to compile Bliss source modules and
to get the .BIN file onto XXDP+ media.

1814
1815
1816
1817

)«
ELUDOM

COMPILING BLISS SOURCE MODWES

.TITLE
.IDENT
H

PSECT

Psect Name

Words

@y
ws
@
®¢

Attributes

COMMAND QUALIFIERS

®s

ZRCHB1 ZRCHBO RC25 DISK FORMATTER
/REV B /

SUMMARY

BLISS

/PDOP11/LISTING=ZRCHB.00C ZRCHB1.B1€

Size:

Run

Time:

Elapsed Time:
Hemory Used:

O code

0 data woros

00:08.6

00:49.4
6 pages

Compilat 'on Complete

S5€EQ 0044

Page

SPIDERSUSERS: [NEALE .AZTEC)ZRCHBL1 .B16;7

CREATING ZRCHBO MOST CODE

VAX-11 Bliss-16 v3-555

APPENDIX H

E 1310

S-Apr-1984

(28,

G4
ZRCHB?

ZRCHBO RC2S DISK FORMATTER

5 Apr

0001
0092
0003
0004

MODULE

0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
1505

#sbttl

(STITLE

IDENT

BEGIN

'PROGRAM

1984

13:19:09

13:16:08

VAX-11 Bliss-16 Vv3-555

‘REV B PATCH 00',

HEADER'

Pretty

Declarat ons

¢ BLF /LOWERCASE
_KEY>
'

library

'ZRCHBO'
;

'Define RC2S Formatter L ibrary

reqguire

‘'BLSMAC.REQ';

'‘Define Bliss Macro Requ ire

file

The

!
!
!

psect

named

‘'code

$code$"

is redefinded here

to
be
called "aascode”
This is done to force the TKB
linker to place the pr
rems header information starting
at absolute address 200

O-

psect
code

aas$code;

literal
OS$NBR_OF _TESTS

'Indicates number

[ tes t

The structure of a diagnostic program may contain any or
all
of
the
ten
optional
sections.
But five of the optional sect.ons require a

pointer that is derived by and for the supervisor, and is
located
in
the
header
block,
Therefore,
in
relation to the effective use of
these five pointers, the optional sections call must be coded
to
re-

flect usage (i.e.,

The

any,all,or none).

following coding possibilities exist:

POINTER (BGNRPT,BGNSW,BGNSF T ,BGNAU,BGNDU,ERRTBL ,BGNSE TUP)

(or any subset of
POINTER

the args)

(ALL)

All provides pointers for all five
sections
None indicates to supervisor that no

POINTER (NONE)

pointers are required.
this is the default

No pointers are optionsl using bliss. Make sure the followin
sections of
code are in place (in the correct skels),even i
the sections are blank,
ARGUMENT

FUNCTION

RPT

REPORT CODE

SOF TWARE

TABLE

SEQ 0045

SPIDER$USERS: [NEALE.AZTEC 1ZRCHB2. 816 5 (1)

'ZRCHBO RC2S DISK FORMATTER

G0
U0
G5
Gr
s
B
00
G0
99
OF
S0
G0
00
Gs
¢
OF
V6
GF
0
G5
@0
S0
65
S0
B
B0
S9
Vs
G0
G0
B8
G5
G0
TVE
TS
VI
BF
B
OF
VF
G0
V0
B
B0
€0
@0
G0
B
B
W
@S

1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

ZRCHB2

ADDRESSING MODE (RELATIVE)
%NVIRONHENT (NOEIS)

B IS R ID D IG IV IB B D D ID D IA G ID IO IS B ID IS D IO D IS B IO e

0005

GO0

S-Apr

1984

inDiag

H4
ZRCHB?

REV

H
H
H
H
:

:
:

B PATCH 00

1546
1547
1548
1549
1220

!
!
!
!

1560

:
H

1561
{ggg

1564

S-Apr-1984

SFT
AU
+]¥]
8L
SETUP

H
POINTER (ALL);

1553
1554
1555
1556
1557
1558
1559

S Apr-1984

PROGRAM HEADER

1551
1552

H
H
:
:
:
H
5

ZRCHBO RC2S DISK FORMATTER

13:19:09

13:16:08

SEQ 0046
Page
SPIDER$U
[NEALE ,AZTEC
SERS
}ZRCHB2.8B16;5
: (1)

VAX-11 Bliss-16 Vv3-555

SOF TWARE TABLE QUESTIONS
ADD CODE
OROP CODE
ERROR TABLE
ASSEMBLED P-TABLES

!.
! The program
header section contains
general
information
which
des! cribes
the
major characteristics of the diagnostic program.
This in
! cludes, the
program name. and revision and
patch-order
levels.
The
! nheader
also
provides
space
for an event flag register, and for the
! storage of
pointers, through which the supervisor may
find
access
to
! other
key sections of the program(e.g., dispatch table. initialize and
!
3

clean-up code,

etc.).

An argument on the header gives the device

if it is an XXDP+ bootable device.
This enables the supervisor
vide load medium protection when necessary.

HEADER (s%ascii'CZRCH ', sascii‘'B', sascii'0', 1200, 0, PRIOO);

type

to pro-

14
ZRCHB2

REV B PATCH 00

1565
1566
1567
1568
1569
1570
1571
1572

ZRCHBO RC25 DISK FORMATTER
DISPATCH TABLE
ssbtt]l

'OISPATCH

S-Apr
5 Apr

i The dispatch table section contains address pointers
|

13:19:09
13:16:08

SEQ 0047
VAX-11 Bliss-16 V3-555
Page
SPID:ERSU
[NEALE .AZTEC SERS
JZRCHB2.B16;5 (2)

TABLE'

!
!

1984
1984

tests
contained within the diagnostic
the coding of only the Jispatch macro.

program.,

the

This section

various

requires

DISPATCH (DSSNBR_OF

ERRTHBL ;

TESTS);

!Define Supervisor Error table storage

Ja
ZRCHB

REV B8 PATCH 00

H
H
:

wusbtt]l

1575
1576

¢
!

1577
1?;3
1

:
H
:

1580
1581
1582

1584

:
:

DEFAULT HARDWARE P TABLE

1573
1574

ZRCHBO RC2S DISK FORMATTER

1583

1585
lgg?

1
1588

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

VAX-11 Bliss-16 V3-555

The default hardware P-Table contains default values of
the test-device parameters.
The structure of this table

¢ is
identical to the structure of the hardware P-Tables,
! and
is used 8s a
“template” for building the P-Tables.
!-

BGNMW (DFPTBL);

HW_IP _ADRS : word initiel (%o'172150'),

'‘Define RC2S Controler IP reg

HW BR_LEVEL : word initial (S),
HW_UNIT
NO : word initial (0);

'‘Define RC25 bus request level
'Define RC2S unit no. to format

HW_VECTOR : word initial (%o0'154'),

ENDHW;

'Define RC2S

Page

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB2.B16K;5 (3)

'DEFALLT HARDWARE P-TABLE'

global

SEQ 0048

interrupt vector adddrs

I<4
ZRCHBC

REV B PATCH 00

1589
1530
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601

ZRCHBO RC25 DISK FORMATTER
SOF TWARE

#sbtt]l
te

i The
!
!
!

[]

S-Apr-1984

P-TABLE

' SOFTWARE

S Rpr-1984

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

contains various

dJdate used

the

program as
operational parameters.
These parameters are
set up at assembly time and may be varied by the operator
at run time.

BGNSW (SFPTBL);
global
SW_'NATT
ENDSW;

word

initial

(1);

'Format

Pa Qe

SPIDERS$SUSERS
: [NEALE .AZTEC)ZRCHB2.B16;5

P-TABLE

software table

SeQ@ O 049

in unattended refmt mode

(a)

)

ZRCHB?

REV B PATCH OO0

ZRCHBO RC2S DISK FORMATTER

PROTECTION TABLE

1602

wsbttl

1604
1682

! This
table is used by the runtime
! gservices to protect the load media.

1603

1607
1608
1608
161

1611

1612

S Apr-1984 13:19:09
S-Apr-1984

'PROTECTION TABLE

! 1st arg *
! 2nd erg *
! 3rd arg *
H

BGNPROT (O,
ENDPROT;

Offset
Offset
Offset

1, 6):

into P Table for csr address
into P_Table for massbus address
into P Table for drive number

13:16:08

VAX-11 Bliss 16 V3 555

> nggzo 6

5€

SPIDERSUSERS:
[NEALE .AZTEC JZRCHB2.B16;5 (5)

ZRCHB2
&

REV

OECLARATIONS

1613

esbttl

‘MODULE DECLARATIONS'

1615
1616
1617
1618

!
!
!
!
!

1614

16;3

€

G¢

S¢

_Ws

V¢

1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637

1638
1639
1640

1641

G
G¢
0

S-Apr 1984 13:19:09

MODUWLE

1642
1643
1644
%222

5 Apr-1984

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658

13:16:08

Within
BLSMAC.REQ
the
psect
names, plit global and own,
are
redefined
%0
be aascode.
This is done to force the
tkb
linker
to
link
the
header information starting at
at absolute
address
2000.
Redefine
these
psect
names

back

their

original names

for house keeping purposes.

! Also
change
the attributes for the psect "global” so that
! global data will not be linked starting at absolute address
! 2000.
psect
plit = splits(
global),
global = Sglobs(nmowrite, noexecute, global, concatenate),
own = $own$;
.
! Structure declarations used within
! module.
-

this

structure

1e
!
!
!

RC2S
register
accessing structure.
This
structure
allows
R(C2S register accessing
to
be tronsportable between the PDP-11 and

'
!
!
!

This
also
defines an access algorithm for
VAX to allow field reference to MBA address
space
without
generating
machine
checks.

VAX Diegnostic Supervisors,

| N

B0
Go
W
G0
@
G¢
W
®s
SF
©F
@5
B9
B0

ZRCHBO RC25 DISK FORMATTER

B PATCH OO0

RC2S

(0, P,
begin

local
RC$S_REG;

RC3$S_REG *
RC$S_REG
end
<«P, S, E>;

.(RC2S

#upvals0)<0,

sbpval,

0>;

VAX-11 Bliss-16 V3-555

’Eopggzl

SPIDERSUSERS:
[NEALE .AZTEC]ZRCHB2.8B16;5

(6)

N4
ZRCHB?

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

GLOBAL

DATA

ssbttl

'GLOBAL DATA SECTION'

H
:
H
H
:
H
H
H
:
H
H

1658

166
1661
1662
1663
1664
166S
1666
1667
1668
1669
1670

H
H

1671
1672

:
:
:
:
:
H

1674
1675
1676
1677
1678
16;8

H
H
H
H

1673

16
1681
1682
lggS

H
H
:

1684
1685
1686

1687

H
:
H
H
H
H

that

Apr

1984

13:16:08

16 v3 555

are used

global
H
! Communication area Declarastions
'
COM_AREA : blockvector [REC_ALLOCATE + SND ALLOCATE + HMDR_SIZ. 2, word],
HEAD_AREA : ref block (4, word] field (HDR_FIELD),
RECEIVE _RING : ref blockvector [REC_ALLOCATE, 2, uord] field (DSC_FIELD),
SEND_RING : ref blockvector [SND_ALLOCATE, 2. uord] field (DSC_FIELD).

REC_ENVELOPE : blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field (ENV FIELD),

SND _ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word]) field (ENV _FIELD),
FCT_BUF : block [256, word],
REC_BUF : block [RECB SIZE, word) field (RECB_FIELD),
SND_BUF : vector ([SNOB_ SIZE word},
OUT$STD_BUF : blockvector [REC ALLOCATE 2, word) fField (OUTSFIELD),
RET _ENSAD : ref block (RB_SIZE .+ 2, uord] f-eld (ENV _FIELD);
global bind
!
! Disgnostic

supervisor printing ascii

format

strings.

1698
1699
1700
1701
1702
1703
1704
1705

%;8?
1708
1709
1710
1711
1712
1713
1714
1715

Ring base address declarat
on

RINGBASE = COM_AREA (REC_BASE],
H
'
H
MSGADR = REC_BUF [MSG_TXT]);

global
!
! Miscellaneous data declarations
!

DATETXT : vector (12, byte],
FLG_WRD : bitvector (16],
NEX_FLAG : word,
OVSA : word,
NXT_CRN : byte,
RET _STATUS : word initial (so’'000000'),
LIN : word,
PID_SAVE : vector [2, word],

)EQ 0052

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB? . 816 5

%gg?

1688

:
;
:
:
H
;
H

1e
! The global data section contains data
! in more than one test or module.
.

VAX-11 Bliss

1689
1690
1691
1692
1693
{ggg

:
H
H
H
H
H
H
H

SECTION

13:19:09

!
FMT]1 = uplit (wasciz'sNsT'),
IPrint one ascii string pointer
FMT2 = uplit (sasciz’ iNiNiAINITIALIZING RC25 CONTROLLER ADORESS:lSiOGiA(O)‘N ),
FMTS = uplit (sasciz’'wNs/LOGICAL UNIT wD2#A(D)%SSAPHYSICAL UNIT iD?fiA(D)iSiAFORHAT ABORTED' ),
FMTE = uplit (sasciz'sNSAMICRO CODES MOD 16 VERSION NUMBER »#Sw02#A(0)SN’'
),
FMTS = uplit (wasciz'wNWABRINGING ONLINE: LOGICAL UNIT #D2#A(D )SS$APHYSICAL UNIT #D2#A(D)SN' ),
FMT6 = upl-t (dasciz' SNSASFTLERR- NON-EXISTENT RC25 CONTROLLER ADDRESS s06SA(O)SN' ),
FMT7 = uplit (sasciz'$AFORMATTING PHYSICAL UNIT #D2w%A(D)SN’),
PID_FMT = uplit (sasciz' sNSAFORMATTER PROGRESSING:
PID HI-¢O6¢A(0)CS¢S¢APID LO=%06%A(0)'
),
CRLF = uplit (sasciz'sN'),
XCRLF = yplit (iasciz'iNINiNiNCNiNfiNiN').

S Apr-1984

!Operator data input storage
'‘Global flag word
!Non existent RC25 register flag
!Overlay section starting adrs
!Stores next cmd ref number
!Saves various return status codes
!Stores logical unit number being formatted
!Saves proces indicator word

(7)

1752
1753

1754

1770

1771

B¢

1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

1772

13:19:09
13:16:08

SEQ 0053
VAX-11 Blise-16 V3 55%
Page
SPIDE(NEALE
RSUSE
.AZTEC ]ZRCHB2.B16
RS: 1S5 (1)

send Descriptor slot
receive Descriptor slot

; Herdware P_Table storage declarations

RC2S5_ADOR

VEC _ADDOR

ref RC25
word,
word,

BR_LEVEL :
UNIT_NO : word,

[}

PIBL _PTR

ref

vector

fielo (ISD_FIELD),

[4,

word],

!Controller register access structure
!Interrupt vector asddress storage
!Bus request level storage
tUnit number to format storage
!Stores P

Table base address

Dup Protocol date structures

!Reserved field mask structure decleration
s
et

vector

= #x’'0000',
* 4x'0700',
« Ux'Q7FF'),

e
—

gy gy g

RSVD_STRUCT

#x'Q7FF",

(4,

word] preset

(

'Reserved SA reg fields definitions
V2.0 Step one rsvd field

!Step two rsvd field
!Step three rsvd field
!Step four rasvd £ ucode

field

Init Sequence Data_Structure declaration

ISD_STRUCTY
[]

blockvector

{4,

Step one read SA register

word)

field (ISD_FIELD) preset

(8LKO, WRDO, ERR_BIT) = O,
{BLKO,

WRDO,

(BLKO, WRDO,
{8LKO, WRDO,
(BLxO, WRDO,
(BLKO, WRDO,

[]

S1R_GB)

S1R_DOI)
S1R_00)
S1R_MP] »
S1R_RSVD)-

(

field declaration

{BLKO, WRDO, STP _FIELD] - #b’'0001°,
{BLKO, WRDO, S1R_Nv)
0

1750
1751

!Next
!Next

s Pt P

1746
1747
1748
1749

word,
word,

1745

S-Rpr-1984
) Apr-1984

o g

1744

NSO _SLOT
NRD _SLOT

W
> O

1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743

OF G5

B¢

B0 G0

G0 V¢

REV 8 PATCH 00

ZRCHBO RC2S DISK FORMATTER
GLOBAL DATA SECTION

ZRCHB?

#0' 77,

1Error bit
'All step Dit

1v2.0
!Mask
{Mask
!Mask
Mask
tv2.0

fields
Mask out host inter vec settable adrs
out 22 bit addressing
enhanced diag implementation
out port allows odd addressing
out Port supported adgr
Reserved field

i Step one write SA register field declaration

[]

(BLKO,
{BLKO,
(BLKO,
{BLKO,
(BLKO,
[BLKO,

WRD1,

ERR_BIT)

WRD1,
WRO1,
WRD1,
WRD1,

S1W_CRING]= SND_SIZ,
S1W_RRING)= REC SIZ,
Siw_IE)- O,
S1W VADR])- so 33 ,

WRO1,

[]

S1W_WR])- O,

'Error DIt

'‘Diag wrap around
!Number of Send-ring slots 'pwrs of 2
!Number of Receive ring slots
pwrs of 2
'Init Seaquence interrupt request
‘Interrupt vector address

5 Step two read SA register field declaration

[]

(8Lx1,
(BLx1,
(BLK1,
(BLK1,
(BLK1,
(BLK],
(BLKl,

WRDO,
WRDO,
WRDO,
WRDO,

WRDO,

WRDO,
WRDO,

ERR BIT) «
STP_FIELD)
S2R _PTYP]SeR BIT7)-

S2R_WR]-

S2R CRING)=
S2R RRING)+

O,
- #p 0010,
O,
1,
SND
REC

SI1Z,
S12Z,

‘Error DIt
'All step Dit fields
'Port type number
‘Echoed IE bit from step one wri.te
'Echoed bit 14 from step One write
'Echoed bits 3 S from step one wr'te
'‘Echoed bits O 0 from step one wr te

C5
JRCHB.
REV

H
H

B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL

17?3
1774

H
!

1775

{;;g

EBLKl.

177

! NOTE:

1779
1780
1781
178§
178
17Gg
178
1786

3
:
:
:
3
:
:
:

1788
1789
1;90
1791
1;3%
1
1794
1;32

H
H

1787

1
{;g;

:
:
H
H

1799
1800
1801
1802

1383

:
H

%ggg

S Apr-1984

WRD1,

S2W LRBASE
1= RINGBASE,

(BLK2,

(BLK2,
(BLK2,
(BLK2,
!
! Step
!
[BLK2,
(BLK2.
!
!

WRDO,

WRDO,
WRDO,
WRDO,

STP_FIELD]

» w#wb'0100’,

S3R_RSVD])» #o0' 7',
S3R_IE])= O,
S3R_VADR])- #o'33',

WRD1,
WRD1,

Step

four

{BLK3,
(BLK3,
[BLK3,
(BLK3,

WRDO,
WRDO,
WRDO,
WRDO,

S3W_PP)s O,
S3W_HRBASE])=
read SA

(BLKS,
!

WRDO.

ERR_BIT) STP_FIELD)
S4R _RSVD]~
S4R_MOD) =

SAR_VER]

fields

'Purge & Poll

test

request

field declarstion
‘Error bi
t
'All step bit
.Reserved
‘Mask it out

= wx‘'f',

Mask

fields

out

Step four write SA register field declaration

SAW_RSVD)=

;

1809

(BLx3,

WRD1,

S4AW_LF)-

(BLK3,

WRD1,

S4W_GO)=

0);

1811

'Al]l step bit

request

'‘Ring base high adcress

O,
=« wb’'1000',
#o' 7',
#x‘'f’,

WRD1,

1810

interrupt

‘Reserved
'Echoed IE bit from step one wr'te
1Echoed VADR from step one write

(BLK3,

lower address

three write SA register field deciaration

1807

1808

'‘Ring bese

{BLK3,

WRD1,

#o'377',

'Reserved

S4W_BURST]s C

!Max number
‘Last

'Go bit

fail

)F090054

SPIDERSUSERS: [NEALE,AZTEC JZRCHB2. 81‘35

! The adapter purge interrupt is loaded within
! the bogninit code due to the inability to field
! select bits <1, 15, 0> from the ringbase adrs,
' [BLK1, WRD1, S2owW PI]' 0,
!Adapter purge
!
! Step three read SA register field declaration
!
[BLK?. WRDO, ERR_BIT) = O,
'‘Error bit

VAX-11 Bliss-16 V3 555

13:16:08

Step two write SA register field declaration

:
3
H
:
:
:
:
5
3

S-Apr 1984 13:19:09

DATA SECTION

longwords per NPR xfer

request

D5
ZRCHB.

REV B PATCH 00

1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840

?sbttl

‘GLOBAL

TEXT

S-Rpr 1984 13:16:08

VAX-11 Bliss-16 V3 555

SEOPOO 11

SPIDERSUSERS: (NEALE. AZTEC JZRCHB2.8B15;5 (8)

SECTION'

' The global text section contains format statements,

!
!

messages, and ASCII
all modules.

information

that

are used

global bind
[]

!
]

Self-detected fatal port/controller errors

PFE_STRUCT

uplit (
wolit (dasciz' ¥NSASFTLERR- UNRECOGNIZABLE ERROR CODE°
uplit (vasciz'SNSASFTLERR- ENVELOPE/PACKET READ (PARIYV OR TIMEOUT)'),
uplit (danciz' SNSASFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOQUT)'),
uplit

uplit
wplit
uplit
uwplit
wlit
wplit
wlit
uplit
wlit
wolit
uplit
uplit
uplit
wplit
wplit
uplit
wplit

1841

1842
1843
1844
1845
1846
1847
1848

5 Apr-1984 13:19:09

ZRCHBO RC25 DISK +ORMATTER
GLOBAL TEXT SECTION

uplit

uwlit
' <BLF 7/PAGE >

(dasciz' WNWASFTLERR- CONTROLLER ROM AND RAM PARITY'),
(dasciz'WNSASFTLERR- CONTROLLER RAM PARITY'),

(dasciz’' oNSASFTLERR-

CONTROLLER ROM PARITY'),

(dasciz'SNSASFTLERR-

INTERRUPT MASTER'),

(dasciz' SNSASFTLERR-

DIAGNOSTIC CONTROLLER FATAL

(dasciz'WNSASFTLERR(sasciz'WNSASFTLERR(dasciz'SNSASFTLERR-

HIGH LEVEL PROTOCOL INCOHPAYIBILIYY
PURGE/POLL MARDWARE FAILURE '),
MAPPING REGISTER REA? E?ROR (PARITY
) : vector
(23],

(sasciz'WNSASFTLERR- RING READ (PARITY OR TIMEOUT)'),
(asciz' WNSASFTLERR- RING WRITE (PARITY OR TIMEOUT)'
),

(dasciz'wNSASFTLERR- HOST ACCESS TIMEQUT'),
(sasciz' SNSASFTLERR- CREDIT LIMIT EXCEEDED'
),
(sosciz' NSASFTLERR- BUS MASTER ERROR'
),

ERROR'),

(Besciz'sNSASFTLERR- INSTRUCTION LOOP TIMEOUT'),
(dasciz' wNSASFTLERR- INVALID CONNECTION IDENTIFIER'..
(dasciz' SNSASFTLERR- INTERRUPT WRITE'),
(vasciz'SNSASFTLERR- MAINTENANCE READ/HRIYE INVALID REGION IDENTIFIER'),
(sasciz'uNSASFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER ).
(sasciz'uNSASFTLERR- CONTROLLER RAM ERROR (NON-PARITY)' ),
(dasciz'WNSASFTLERR- INIT SEQUENCE ERROR'),
ERROR' ),

TIMEOUT)

)

G+

B¢

JRCHBC
REV 8 PATCH 00
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

GLOBAL TEXT SECTION

13:19:09

S-Apr-1984 13:16:08

VAX-11 Bliss-16 v3-555

SPIDERSUSERS: [NEALE,AZTEC ]ZRCHB2. 816 S (9)

!
1]

Error message structure

EMSG_STRUCT = uwplit (
uplit (sasciz'uNSASFTLERRuplit (sasciz
' SNSASFTLERRuplit (Masciz' SNSASFTLERRuplit (sasciz'#NSASFTLERRuplit (sasciz'SNSASFTLERRuplit (sasciz'sSNSASFTLERRuplit (dasciz'#NSASFTLERRuplit (sasciz'uNSASFTLERR-

RESPONSE STATUS ERROR:%S5'),
HOST/CONTROLLER OUT OF SEQ'),
REMOTE PROG NOT RUNNING'),
UNKNOWN RETURN STATUS CODE'),
COM AREA INIT ERROR'),
PORT/HOST SYNC ERROR'
),
MESSAGE LENGTH ERROR'),
UNKNOWN ENDCODE RECEIVED'),

uplit
uplit
uwplit
uwplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uwplit

INIT SEQ STEP TIMED OUT'),
INIT SEQ COMPARE ERROR'),
UNEXPECTED ATTENTION END MESSAGE RECEIVED'),
UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED'),
UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED'),
INVALID COMMAND END MESSAGE RECEIVED'),
UNKNOWN MESSAGE TYPE RECEIVED'),
QUTSTANDING COMMAND BUFFER FULL'),
OUT STANDING COMMAND BUFFER OUT OF SYNC ERROR'),
UNKNOWN MESSAGE NUMBER RECEIVED')
FILE READ ERROR'
),
PORT/CONTROLLER TIMEOUT ERROR'
),
ILLEGAL FCT FILE LENGTH')) : vector [23],

uplit
uplit

(sasciz'uNSASFTLERR(sasciz'SNSASFTLERR-

(dasciz'¥NSASFTLERR(sasciz'¥NSASFTLERR(dasciz'¥NSASFTLERR(sasciz'sNSASFTLERR(sasciz'sSNSASFTLERR(dasciz'#NSASFTLERR(dasciz'SNSASFTLERR(sasciz'¥NSASFTLERR(sasciz'SNSASFTLERR(sasciz'WNSASFTLERR(sasciz' SNSASFTLERR(Sasciz'uNSASFTLERR(dasciz' WNSASFTLERR-

'<blf/page>

ADAPTOR PURGE ERROR'),
UNKNOWN INTERRUPT'),

SEO 0056

F5
ZRCHB?

B¢

G¢

REV B PATCH 00

1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901

1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921

ZRCHBO RC2S DISK FORMATTER
GLOBAL TEXT SECTION

S-Apr-1984
S-Rpr-1984

13:19:09
13:16:08

5 Self detected fatal port/controller errors

RC_STRUCTURE = wplit (
uplit (dasciz'¥NSASFTLERRuplit (dasciz' ¥NSASFTLERRwlit (dasciz' SNSASFTLERRuplit (sasciz'dNSASFTLERRuplit (dasciz'¥NSASFTLERRwlit (dasciz'¥NsASFTLERRuplit (sasciz'¥NSASFTLERR-

VAX READ/WRITE ERROR ON INTERRUPT'),

INCONSISTENCY AT U.BFIL'),
INCONSISTENCY AT U.BHTY').
INCONSISTENCY AT U.ALOC'),
INCONSISTENCY AT SERVO ENTRY (PIP SET)'),
INCONSISTENCY AT SERVO ENTRY (ERR SET)'),
INCONSISTENCY AT U.SEND'),
INCONSISTENCY AT U.RECV'),
INCONSISTENCY AT U.ATTN'),
INCONSISTENCY AT U.ONLN'),
ILLEGAL D REQUEST (U.QDRQ)'),

wlit (Yasciz' SNSASFTLERR-

uwplit
uplit
uwlit
uplit
wplit
uplit
uplit
uplit
uplit
uplit
uplit
wplit
uplit
uplit
uplit
uplit
uplit
uwplit
uplit

uplit
uplit

uplit
uwplit
uplit

uplit

uwplit

uplit

uplit
uplit

(sasciz'sNSASFTLERR(sasciz'¥NSASFTLERR(asciz'SNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(dasciz'uNESASFTLERR(vasciz'SNSASFTLERR(sasciz' SNSASFTLERR(sasciz'¥NSASFTLERR(dasciz'SNSASFTLERR(sasciz'WNSASFTLERR(desciz'SNSASFTLERR(sasciz’' SNMASFTLERR(desciz'SNSASFTLERR(dasciz' SNSASFTLERR(sasciz' SNSASFTLERR-

FENCE -POST ERROR AT

PROTAB'),

BAD PACKET DEQUEUED AT U.DONE‘),
UNEXPLAINED D-PROC SUSPENSION (U..TDS)'),
DUP PACKET D-Q FAILED (XFC 34/35)'),
INCONSISTENCY AT U.HTST'),
INCONSISTENCY AT U.SEKO'),
INCONSISTENCY AT U.CKSV'),
0.0PCD FOUND ILLEGAL OPCODE'),
0.CSF FOUND ILLEGAL OPCODE'),
UNKNOWN BAD DRIVE STATUS AT D.DSTS‘),
ILLEGAL XFC EXECUTED 8Y DM'),
O PICKED UP A ZERO SCB.08°),
INCONSISTENCY AT D IDLE LOOP'),
(dasciz' SNSASFTLERR- OM WORD COUNT ERROR ON HOST DMA/SEND/RECV'),
(dasciz' sNSASFTLERR- UNKNOWN DISPLAY FAWLT CODE AT D,OFLT'),
(dSasciz'dNSASFTLERR- ORIVE NOT FAULTING IN P.OFLN STATE'),
(sasciz'SNSASFTLERR- U POWER UP DIAGNOSTICS FAILED'),
(dasciz'SNSASFTLERR- O POWER UP DIAGNOSTICS FAILED'),
(sasciz'SNSASFTLERR- ADAPTER CARD FAILURE'),
(sasciz'SNSASFTLERR- EC.TMR TIMED OUT'),
(sasciz'SNSASFTLERR- U.SEND/U.RECV RING REAC INCONSISTENCY'),
(sesciz'SNSASFTLERR- UNKNOWN WAITRV REASON AT D.RVCT'),
(sasciz' SNSASFTLERR- D.ARCS DID NOT FIND CLOSEST UNDONE ZONE'),
(%asciz'uNSASFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK'),
(sasciz'uNSASFTLERR- U.HTST INIT DIAG OMA WRITE FAILED'),
(Sasciz'SNSASFTLERR- U.HTST INIT DIAG DMA COMPARE FAILED'),
(sasciz'wNSASFTLERR- U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET: ),

wlit
uplit (sasciz SNSASFTLERR- MASTER DRIVES ACLO ASSERTED
1<blf/page>

)

vector (39],

)

VAX-11 Blise-16 Vv3-555

SEQ OOS/
Pa

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB2.8B16;5 (10)

G5
ZRCHB?

B PATCH 00

1928

1929

®r

1922
1923
1924
1925
1926
1927

@¢

REV

1930

1931
1932
1933
1934

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

SECTION

!
! Dup return status codes
!
SDUP _STRUCT = yuplit (
wuwplit (dasciz'¥A SUCCESSFULSN'
),
wuplit (sasciz’'®MAINVALID COMMANDSN'
),
uplit (sasciz'$ANO REGION AVAILABLESN'),
wuwplit (dasciz'¥ANO REGION SUITABLESN'
),
wuwplit (wasciz'wAPROGRAM NOT KNOWNSN'
),
wplit (%asciz'wALOAD FAILURESN'
),
wplit (wasciz’'wASTANDALONESN'
)

) :
!<blf/page>

vector (7],

S-Apr-1984 13:19:09

S-Apr-1984

13:16:08

VAX-11 Bliss-16 v3-555

55093328 1

SPIDE
: [NEALE
RSUSE
,AZTEC}ZRCHB2.B
RS
16;5

(11)

H5S
ZRCHB2

REV

B PATCH 00

1935
1936
1937
1938
1939

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950

1951
1952
1953

ZRCHBO RC25 DISK FORMATTER

GLOBAL

TEXT

SECTION

S-Apr-1984
S-Rpr-1984

MSCP return status codes

SMSCP_STRUCT = uplit (

uplit
uplit
uplit
uplit
uplit
uplit
uplit
uwplit
uplit
uplit
uplit
uplit
uplit

(dasciz'wASUCCESSSN'
),
(sasciz'SAINVALIO COMMANDSN'
),
(vasciz’'sACOMMAND ABORTEDSN'
),

(sasciz’'SAUNIT-OFFLINESN'
),
(sasciz’'AUNIT-AVAILABLESN'
),
(sasciz'wAMEDIA FORMAT ERRORSN'
),
(vasciz'wAWRITE PROTECTEDSN),
'
(vasciz'sACOMPARE ERRORSN'
),
(sasciz’'SADATA ERRORSN'
),
(dasciz'wAHOST BUFFER ACCESS ERRORSN'
),
(sasciz'ACONTROLLER ERROR®N’
),
(sasciz'wADRIVE ERRORSN'
),
(dasciz'SAMESSAGE FROM AN INTERNAL DIAGNOSTICSN')
) : vector (13),
' <BLF /PAGE >

13:19:09
13:16:08

SEQ@ O 059
VAX-11 Bliss-16 V3-555
Pa Qe
15
SPICERSU
[NEALE .AZTEC)1ZRCH
SERS
B2.B16K;5
: (12 )

I5
ZRCHB?

REV

B PATCH OO0

ZRCHBO RC25 DISK FORMATTER

GLOBAL

TEXT

S Apr-1984

SECTION

Apr-1984

13:19:09
13:16:08

VAX-11 Bliss-16 V3 555

1954
1322

!
!

:
:
:
H
H
:
H
:
:
H

1957
1958
1959
1960
1961
1962
1963
1964
1965
1966

DATMSG = uplit (wasciz’'ENTER DATE <«MM-DD-YYYY> '),
NO_ADD_UNITS = uplit (sasciz'®sNMANO ADDITIONAL UNITS T0O FORMAT - ABORTING'),
PWR_MSG = uplit (dasciz'¥NSASFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL'),
ABO_MSG = uplit (dasciz'uNASFTLERR- ABORTING HOST AND REMOTE PROGRAMS'
),
TO_MANY _UNITS = uplit (sasciz'SNsSASFTLERR- ILLEGAL NUMBER OF UNITS SELECTED'),
GOOD_NUM_UNITS = uplit (sasciz'SNSASFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATING SESSION'
).
B00T _FAILURE = uplit (sasciz'SNeSASFTLERR- RC25 CONTROLLER INITIALIZATION ERROR'),
PROTO_VIOLATION = uplit (sasciz'#NSASFTLERR- PROTOCOL VIOLATION ERROR'),
PORT_INIT
ERR = uplit (sasciz'SNSASFTLERR- COMMUNICATION AREA INIT ERROR'
),
ACTIVE _DUP_SERVER = uplit (sasciz'SNSASFTLERR- DUP SERVER ACTIVE AFTER INITIALIZING'),

lggg

:
:
:

Init code error and

132;
1

INACTIVE_DUP_SERVER
H

1971

'DM_FNSEXT

13;%

FCT_REQ_MSG

lg;g

(sasciz'sNSASFTLERR-

DUP SERVER

INACTIVE

= UPLIT (#ASCIZ'AZFMTR.SAV'),
=

uplit

(sasciz'ENTER FCT FILE

NAME

TO RESTORE

(FILENAME.EXT):

1976
1977

HW_Q1_IP = uplit (wasciz'RC2S
IP
REGISTER
ADDRESS'
),
HW_Q2_VECTOR = uplit (%asciz’'RC25S INTERRUPT VECTOR ADODRESS'),

%ggg

HW_Q4_UNIT

:
H

1978

HW_Q3_BR = uplit (sasciz'RC2S
!

iggé

yuplit

(sasciz'UNIT

1983

SW_Q1_UNATT

H
H

1985
iggg

SW_Q3_OPER = uwplit (sasciz' SNWA
SW_Q4 _UNATT = uplit (sasciz'sNsA

:
:
:

1988
1989
1990

1984

8uUS

NUMBER

SW_Q2_NOTICE

= uplit
=

uplit

(sasciz’'FORMAT

000011
000012
000014
000016
000020
000022
000024

103
103
000
000
102

060
000000G
002260
000000G

0000006
000140°
000154°

TO BRING

LEVEL '),

ONLINE'),

IN UNATTENDED REFQORMAT TMMQODE' ),

(sasciz'SNsAsssssssssssscsssesase

NOTICE

eescscessssstsscnsans'),

OPERATOR MUST BE PRESENT IN ATTENDED MODE '),
RUNNING IN UN-ATTENDED REFORMAT MODE'
);

end
eludom

LTITLE
.IDENT
000000
000000
000003
000006
000007
000010
000010

REQUEST

Software parameter coding questions

H
:

'),

Hardware parameter coding questions

H
:

AFTER EX_SUP_PROG COMMAND'
),

Local load media DM module file name.ext

informational messages

= uplit

132
110

122
040

ZRCHBZ2 ZRCHBO RC2S DISK FORMATTER
/REV B /

.PSECT
LSNAME
: : .ASCII
LASCII
.BYTE
.BYTE
LS$REV::
.ASCII

AASCODE,
/CZR/
/CH 7/
0
4]

L$SPCP: : .WORD
L$HPTP; : .WORD
L$SPTP: : .WORD

LSSOFT
Ls$HW
L$SW

.ASCII
LSUNIT: : . WORD
L$TIML:: . WORD
L$HPCP: : .WORD

/B/

/0v/
T$PTHV
2260
L $HARD

Page

SPIDERSUSERS: [NEALE.AZTEC]ZRCHB2.B16;5

:
:

SEQ 0060

(13,

J5
SECTION

LSEF::

.WORD

LS$SPC:: .WORD
LSDEVP:
: .WORD
LSREP
: .WORD
P:
LS$EXP4:
;: ,WORD
LSEXP
: .WORD
S:
L$AUT:: .WORD
L$DUT:: .WORD
LSLUN:: .WORD
LS$DE
: SP:
.WORD

000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

L$LOAD:
: .WORD
LSETP:: .WORD
L$ICP:: .WORD
L$CCP:: .WORD
LSACP:: .WORD
L$PRT:: .WORD

LS$TEST:: .WORD

LS$OLY:: .WORD
LSHIME
: : .WORD
DSPCNT:
: . WORD
LS$SDISPATCH:
:

.WORD
ERRTYP:: .BLKW
ERRNBR:
: .BLKW
ERRMSG:
;: .BLKW
ERRBLK:
: .BLKW
L SHWLEN:
.WORD

000126
000130
000132
000134
000136

000000C

000140

172150

HW. IP . ADRS:
;

000142

000154

HW.VECTOR:
:

000144

000005

HW.BR.LEVEL::

000145

000000

HW.UNIT NO::

000150
000152

000000C

000154

000001

LSNDHW:
: ,BLKW
L $SWLEN:
:
WORD

000156
000160
000162

000000
177777

SLAST

OO0O0roooor

LSLADP:
: .WORD
L$STA:: .WORD
L$CO::
.WORD
LSDTYP:
: . WORD
L$APT:: ,WORD
LS$OTP:: ,WORD
L$PRIO:
: .WORD
LSENVI::.WORD
LSEXPL::
. WORD
L$MREV:
:

$OISPATCH

OOO0OwWwW

TEXT

LSOVTYP
LS$RPT
0
0
LS$AU
LSOV
0
L$DESC
-73743

LSERRTBL
LSINIT
LSCLEAN
LS$AUTO
LS$PROT
= OOO

000026
000030

GLOBAL

S Apr-1984
S Apr-1984

[

REV B PATCH OO0

ZRCHBO RC2S DISK FORMATTER

poprpape
-

ZRCHB?

<<LSNDHW L SHWLEN>/2>

. WORD

-5630

. WORD

154

.WORD

. WORD

0
1

SW.UNATT::
. WORD
LSNDSW:
: .BLKW
L$PROT:
: . WORD
. WORD

<<L$NDSW L $SWt EN>/2>
1
1
0
1

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

5EQ 0 061

ra ge

SPIDERS$
: [NEALE . AZTEC
USER
JZRCHB2.B16
S
:5

17
(13 )

IKS
ZRCHBC

REV

PATCH 00

000164

000006

000000
000000
000003
000006
000011
000014
000017
000022
000025
000030
000033
000036
000041
000044
000047
000052
000055
000060
000063
000066
000071
000074
000076
000101
000104
000107
000112
000115
000120
000123
000126
000131
000134
000137
000142

045
124
045
116
111
124
114
111
040
062
103
124
114
122
104
105
072
045
045
117
116
045
101
107
101
125
124
104
101
051
045
110
111
114

000145

000150
000153
000156
000161
000164
000167
000172
000175
000200
000203
000204
000207
000212
000215
000220
000223
000224

116

040
062
050
045
101
122
124
102
124
000
045
101
103
040
104
040
104

S-Apr-1984
S Apr-1984

ZRCHBO RC25 DISK FORMATTER

GLOBAL

TEXT

SECTION

.WORD

045
000
045
101
111
101
132
107
103
040
116

P.ARAA:

P.AAB:

117
105

101
122
123

123

050
045
045

117
103

P.AAC:

040
111
045
045

123
120
123
101
125
124
104
101
051

.ASCII

117
101
101
122
104

045
111
117

117
123
117

061

.PSECT
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

P.AAD:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII

13:19:09
13:16:08

$PLITS,

RO,

/9N
/
/717<00>»<00>
/9N
/
/NsA/
/IN1/
/TIA/
nizs
7ING/
/7 RC/
/725 7/

/CON/

/TRO/
/LLE/
/R A/
/0DR/

/ESS/

/:%S/
/79067
/8R(/

70)%/

/N/ <00>
/9N
/
/ALO/

/GIC/

/AL

/UNT/
/T o/
702%/
/A(D/
/7 )nS/
/%AP/
/HYS/
/ICA/
/L

/NIY/
/7 D/
/72%RA/

/7(D)/

/4Se/
/AF0Q/

/RMA/
/T A/
/80R/
/TED/
<00>

/79N
/

/AMI/

/CRO/
/7 COvs
/70ES/
/ MO/
/0 17

OGBL

VAX-11 Blies-16 v3-555

SEQ 0062
Page

SPIDERSUSERS
: [NEALE .AZTEC)ZRCHB2.B16;5S

(13,

LS
ZRCHB?

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

000231
000234
000237
000242
000245
000250
000253
000256
000261
000264
000267
000270
000273
000276
000301
000304
000307
000312
000315
000320
000323
000326
000331
000334
000337
000342
000345
000350
000353
000356
000361
000364
000367
000372
000375
000400
000403
000406
000411
000414
000417
000422
000425
000430
000433
000436
000441

066
105
111
040
115
122
045
117
101
051
000
045
101
111
111
040
114
105
114
111
114
116
040
062
050
045
101
131
103
040
111
045
045
104
116
045
101
124
122
040
116
130
124
124
103
040
116

040
122
117
116
102
040
123
062
050
045

126
123
116
125
105
075
045
045
117
116

116
102
116
116
117
111
072
117
103
040
111
045
045
104
123
120
123
101
125
124
104
101
051
000
116
044
114
122
116
055
111
105
040
062
103
124

045
122
107
107
116
116
040
107
101
125
124
104
101
051
045
110
111
114
116
040
062
050
045
000
045
106
105
055
117
105
123
116
122
065
117
122

000447
000452
000455
000460
000463
000466
000471
000474
000476

105
101
122
123
117
101
051
000
045

122
104
105
040
066
050
045
000
101

040
104
123
045
045
117
116

000444

117

S-Apr

114

P.ARE:

P.AAF:

114

106

13:19:09

5-Apr 1984 13:16:08
LASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
LASCII
LASCI1
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
_ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
LASCII

/6 v/
/ERS/
/ION/
7 NU/
/MBE/
/R =/
/%Ss/
/02+/
/A(0O/
7)uN/
<00»
/sNe/
/ABR/
/ING/
/ING/
7/ ON/
/LIN/
/E: 7/
/L0OG/
/ICA/
/L Y/
/NIT/
7 «D/
/2%A/s
/(D)/
/%Sw/
/7APM/
/YSI/
/CAL/
7 UN/
/1T /
/wD2/
/sA(/
/D)w/

.ASCII
.ASCII

s CO/
/NTR/

.ASCII
.ASCII
.ASCI1
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII

/ER /
/ADO/
/RES/
/S o/
706w/
/A(0O/
/)uN/
<00><00>
/®AF/

.ASCII

P.AAG:

1984

/N/<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7/ NO/
/N-E/
/XIS/
/TEN/
/T R/
/C25/

/0LL/

VAX-11 Bliss-16 V3 555

S€EQ 0063
Pa

SPIDERS$USERS: [NEALE.AZTEC JZRCHB2.8B16;5 (13)

M5
ZRCHB?

REV B PATCH 00
000501
000504
000507
000512
000515
000520
000523
000526
000531
000534
000537
000542
000544

000547
000552
000555
000560
000563
000566
000571
000574
000577
000602
000605
000610
000613
000616
000621
000624

000627

000632
000635
000640
000643
000646

000651
000652
000655
000660
000663
000666
000671
000674

000677
000702
000705
oM710
00713
00C 716
00( 721
001724

117
101
111
040
131
103
240
111
045
045
104
116
045

101
122
124
122
122
122
123
107
040
104
111
117
101
051
045
101

104

117
117
101
0S1
045

000
045
116
045
116
045
116
045

101
124
122
040

122
117
111
102

000727
000732

040
122

000740
000743
000744

104
000
045

000735

040

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

GLOBAL TEXT SECTION
122
124
116
120
123
101
125
124
104
101
051
000
116

115
124
107
110
111
114
116
040
062
050
045
045
117
101
105
120
107
123
116
040
111
110

106
115
124
040
117
105
111
072
120
040
075
066
050
045
123
120

P.AAH:

S-ARpr-1984 13:16:08
LASCITI
LASCII
LASCII
.ASCII
LASCII
.ASCII
JASCII
LASCII
LASCII
LASCII
LASCII
LASCII
_ASCII

/0RM/
/ATT/
/ING/
7 PH/
/YSI/
/CAL/
7 UN/
/IT v/
/wD2/
/wA(/
/D)w/
/N/<0Q0»>
/%Nw/

.ASCII

/0 L/

015
1.1

.ASCII
.ASCII
.ASCII
LASCII
.ASCI1
.ASCII
LASCITI
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
JASCITI
LASCII
.ASCII

075
066
050
000
116

045
045
117
000
000

.ASCII
.ASCII
LASCII
LASCITI
.ASCII

116
045
116
045
116
000
116
044
114
122
125
105
107
132
114
105
117

045
116
04S
116
045
000
045
106
105
055
116
103
116
101
105
122
122

045
045
117

123

040

10?7

114

P.AAT:
P.ARAJ:

P.AAL:

117

105

000

116

045

/AFQ/
/RMA/
/TTE/
/R P/
/ROG/
/RES/
/SIN/
/G: /
7 PI/
/D W/
/1sw/
/06%/
/AC0Q/
/)wS/
/uSs/
/APY/

LASCII
.ASCII
LASCII
ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCIT1
.ASCII
.ASCII
.ASCII

/0O=v/
/06w%/
/ACO/
/)/7<00><00>
/#N/<00>
<00»>
/wNe/
/NwN/
/sNs/
/NwN/
/wNs/
/N/<00><00>
/sNw/
/AS$F/
/TLE/
/RR-/
/7 UN/
/REC/
/0OGN/
/IZA/
/BLE/
7 ER/
/ROR/

.ASCII
LASCII
ASCII

/DE/<0Q0>
<00»
/sNws/

LASCII

P.AAM;

13:19:09

s CO/

VAX-11 Bliss-16 V3-555

JEQ 0064

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB?2, 816 5 (13)

NS
ZRCHB?
REV B8 PATCH OO0

000747
000752
000755
000760
000763
000766
000771
000774
000777
€01002
001005
001010
001013
001016
001021
001024
001027
001032
001035
001040
001043
001046
001051
001054

001057
001062
001065

001070

001073

001076
001101

001104
001107
oo1112

001115
001120
001122
001125
001130
001133
001136
001141
001144
001147
001152
001155
001160
001163
001166
001171
001174
001176
001201
001204
001207
001212
001215

101
124
122
040
126
117
057
103
124
105
040
101
124
117
124
105
124
045
101
124
122
040
126
117

057
103

124
122
105

120

111

040"
040
115

125
000
045
101
124
122
040
116
117
105
122
040
104
101
120
111
000
045
101
124
122
040
116

ZRCHBO RC2S DISK fFORMATTER

GLOBAL

044
114
122
105
105
120
120
113
040
101
050
122
131
122
111
117
051
116
044
114
122
105
105
120

120
113
040
111

040

101

124

117
124
105

124
000
116
044
114
122
103
124
114
122
117
101
040
115
101
124
000
116
044
114
122
103
124

TEXT

SECTION

106
105
055
116
114
105
101
105
122
104
120
111
040
040
115
125
000
045
106
105
055
116
114
105

LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
LASCII

/ASF/
/TLE/
/RR-/
7/ EN/
/VEL/
/0PE/
«S7>/PA/
/CKE/
/T R/
/EAD/
7 (P/

/ARI/
/Ty v
/0R /
/TIM/
/EOU/

101
105
127

.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
_ASCI1
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCITI

050

.ASCII

/RIT/

LASCII

/€

LASCII

/ITv/

P.AAN:

124

122

.ASCII

131

122
111
117

.ASCII
LASCII
LASCII

051

045
106
105
055
117
122
114
040
115
116
122
040
122
131

P.ARD:

045
106
105
055
117
122

P.AAP:

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
_ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII

S5-Apr-1984

13:19:09

S5-Rpr-1984

13:16:08

VAX-11 Bliss-16 v3-555

SPIDEROUSFRS:[NE&LE.AZTEC]ZRCHB;.816;5

/7T7)/7¢00>
/wNw/
/ASF/
/TLE/
/RR-/
7 EN/
/VEL/
/0OPE/

<57>/PAs
/CKE/
/7 w/
(/

/PAR/

7 OR/
7 TI/
/MEQ/
/uUT)/
<00><00>
/uNs/
/ASF/
/TLE/
/RR-/
7 CO/
/NTR/
/0LL/
/ER /
/ROM/
/7 AN/
/D R/
/AM /
/PAR/
/ITv/
<00><00>
/wNe/
/ASF/
/TLE/
/RR-/
s CO/
/NTR/

SEQ@ 0065
Page
21

(13,

B6
ZRCHB2
REV B PATCH OO0

001220
001223
001226
001231
001234
001237
001242
001245
001250
001253
001256
001261
001264

001267

001272
001,75
001 300

001303
001306
001311
001314
001317
001322
001325
001330
001333
001336
001341

001344
001347

001352
001355
001360
001362
001365
001370

ZRCHBO RC2S OISK FORMATTER
GLOBAL TEXT SECTION

117
105
122
040
122
131
045
101
124
122
040
116
117

114
122
101
120
111
000
116
044
114
122
103
124
114

122

11?7

131
045
101
124
122
040
116
122
104
120
111

000
116
044

105

040
122

040
040

122

120
111

114
122

122
107
105
040
101
124
117
124
105

114
040
115
101
124
000
045
106
105
055
117
122
114

/ PA/
/RIV/

000
045
106
105
055
111
040
101
050
122
131

001447

122

055

001452
001455
001460
001463

001466

124

040
124
122
124

101

114

111
105
125
040

123

LASCII

P.AAR:

122
111

045
106

001444

/0LL/

.ASCII
LASCII

115

120
111
040
040
115
125
000
116
044

105

s COv/
/NTR/

101
124

050
122
131
122
111
117
051
045
101

124

LASCII

/Y/<00><00>
/sNw/
/ASF/
/TLE/
/RR-/

/ER /

001412
001415
001420
001423
001426
001431
001434
001436
001441

001407

P.ARQ:

.ASCII
.ASCII
ASCII
.ASCII
ASCII
.ASCII
.ASCII
LASCII
LASCII

/0LL/
/ER /
/RAM/
7/ PA/
/RIT/

LASCII

001373
001376
001401
001404

122
122
107
122

LASCII
LASCII
ASC1I

040

115
125
000
045
101
124
122
040
116
127

124
000
116
044
114

S Apr-1984
5 ARpr-1984

117
051

045
106
105
053
111
040
111

P.AAS:

040

105

LASCI1
,ASCII
LASCII
.ASCII
.ASCII
ASCII
LASCII
.ASCII

/Y/7¢00><00»
/s#Nw/
/AsF/
/TLE/
/RR-/
/ RI/
/NG 7/
/REA/

.ASCII
.ASCII
LASCII

/D (/
/PAR/
/ITv/

.ASCII
LASCII

/ OR/
7 11/

.ASCII
LASCII
.ASCII
,ASCII
LASCII
LASCII

ASCII
LASCII
.ASCII
LASCII

/MEQ/
/sVUT)/
<00><00»
/sNw/
/AsSF/
/TLE/
/RR-/
7 RI/
/NG /
/uWRI/

LASCII
ASCII
LASCII
LASCII
LASCII
LASCITI
LASCII
_ASCII
JASCII

/(PA,
/RIT/
/v O/
/R T/
.IME.
/0uUT,
7/)/7<00»
/eNz/
/ASF/

ASCII

/RR-/

LASCII

101
124
117
124
105
124

P.AAT:

/ROM/

.ASCII

/TE

/TLE/

116
122
120

ASCII
.ASCII
LASCII

7 IN/
/TER/
/RUP/

115

ASCII

/7 M/

124

ASCII

/AST/

13:19:09
13:16:08

SEQ 0066
VAX-11 Bliese-16 V3-555
Page
22
SPID
:ERSU
(NEALE .AZTEC SERS
)ZRCHB2.B16;5 (13,

Cé6
JRCHB.
REV

B PATCH OO0

001471

001474

001477
001502
001505
001510

001513
001516
001521
001524
001527
001532
001535

ZRCHBO RC2S5 DISK FORMATTER
GLOBAL

122

000

101
124
122
040

044
114
122
110

106
105
055
117

123
101
105
040
115
125
000

040
103
123
111
117
000

045
106
105
055
122
111
114
111
105

124
040
122
000
045
106
105
055
111

124
040

001662
001665

117
111

123
103

001737

130
105
104
045
101
124
122
040

123

101

103
124

114
122
101
114
122
122
045
101
124
122
040

123

045

124
103
123
124
105
124

101
105
105
117
045
101
124
122
040

001676
001701
001704
001707
001712
001715
001720
001723
001726
001731
001734

045
101
124
122
040
105
124
111
124

116

116
044
114
122
103
104
040
115
040
103
104
000
116
044
114
122
102
040
123
122
122
122
116
044
114
122
104

001670
001673

SECTION

105

045

001536
001541
001544
001547
001552
001555
001560
001563
001566
001571
001574
001577
001602
001605
001610
001613
001616
001621
001624
001627
001632
001635
001640
001643
001646
001651
001654

001657

TFXT

107

117
122

114
040
124
0«0
122
0.0
116
044
114
122
111

124

S-Apr 1984 13:19:09

105
105
000
045
106
105
055
125

P.AAU:

P.AAV:

P.AAW:

115

P.AAX:

116

122

/ER/<00>

LASCII
LASCII
.ASCII
LASCII

/ASF/
/TLE/
/RR-/
7/ TM0/

,ASCII

/ST /
/ACC/
/ESS/
/7 TIv
/MEOQ/

JASCII
.ASCII

/UT/<00>
<00»

ASCII
ASCII
LASCII
.ASCII
.ASCI1
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII

/wNw/
/ASF/
/TLE/
/RR-/
7 CR/
/EDI/
/T L/
~/IMI/
/7 E/
/XxCE/
/EDE/

.ASC1lI
ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCITI
,ASCII
LASCII

/D/<00><00>
/wNw/
/AsF/
/TLE/
/RR-/
/ BU/

LASCII
.ASCII
.ASCII

/TLE/
/RR-/
/ DI/

.ASCII
LASCII

/0ST/
/IC /

JASCII
ASCITI
ASCII
LASCII
.ASCII
LASCII
_ASCI1
ASCII

/LLE/
/R F/
/ATA/
/L E/
/RRO/
/R/<00><«00>
/wNw/
/AsF/

LASCII
.ASCII
ASCII

/TLE/
/RR-/
7 IN/

LASCII
.ASCII

P.AAY:

/wNw/

LASCII
LASCII
.ASCII
LASCII
ASCII

LASCII

116
117

105
106
101
105
17
000
045
106
105
055
116

LASCII

JASCIT

/S M/

/AST/
/ER /
/ERR/
/0OR/<00»>
/sNw/
/AsF/

/AGN/

/CON/
/TRO/

/STR/

Apr

1984

13:16:08

VAX-11 Bliss-16 V3 555

0067

)EQPogg

SPIDERSU
[NEALE ,AZTEC
SERS
]ZRCHB2.B16
:
;5

(13

D6
ZRCHB?

REV B PATCH 00

001742
001745
001750
001753
001756
001761
001704
001766
001771
001774
001777
002002
002005
002010
002013
002016
002021
002024
002027
002032
002035
002040
002042
002045
002050
002053
002056
002061
002064
002067
002072
002075
002100
002103
002106

002111

125
111
040
117
124
105
124
045
101
124
122
040
126
111
103
116
124
116
104
124
111
000
045
101
124
122
040
124
122
124
122
105
045
101
124

122

ZRCHBO RC2S DISK FORMATTER

GLOBAL

103
117
114
120
111
117
000
116
044
114
122
111
101
104
117
105
111
040
105
111
105
000
116
044
114
122
111
105
125
040
111
000
116
044
114

122

002114
002117
002122
002125
002130
002133
002136
002141

040
111
105
116
040
101
127
124

115
116
116
103
122
104
122
105

002147
002152
002155
002160
002163
002166
002171
002174
002176
002201
002204
002207

101
104
105
117
111
116
106
122
045
101
124
122

114
040
107
116
104
124
111
000
116
044
114
122

002144

111

116

TEXT

5 Apr-1984 13:19:09

SECTION

5-Rpr

124
116
117
040
115
125

JASCITI
LASCII
ASCII
ASCII
LASCII
LASCII

/UCT/
/ION/
7 LO/
/0P /
/TIM/
/EOQU/

LASCII
.ASCII
ASCII

055
116
114
040
116

.ASCII

/1/<00»
/w%Nw/
/AsF/
/TLE/
/RR-/

LASCII
.ASCII
.ASCII
.ASCII

/7 IN/
/VAL/
/IOD /
/CON/

103
11

.ASCII
.ASCII

/NEC/
/TI0/

045
106

P.AAZ:

105

.ASCI1I

1’1
116
106
122

045
106
105
055
116
122
120
127
124
000
045
106
105

P.ABA:

P.ABB:

/N I/
/DEN/
/TIF/
/IER/

.ASCII
.ASCII
.ASCII
LASCII
.ASCII

<00><00>
/suNw/
/ASF/
/TLE/
/RR-/

LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII

7 IN/
/TER/
/RUP/
/7 W/

.ASCII
LASCITI

055

.ASCII

101
124
101
105
105
057
111
040

126

P.ABC:

/RIT/
/E/<00><00>
/wNw/
/AS$F/
/TLE/

/RR-/

LASCII
LASCII
LASCII
.ASCII
LASCITI
LASCII
.ASCII
LASCII

7/ MA/
/INT/
/ENA/
/NCE~
7 RE/
/AD/<S57>
/WRI/
/TE /

.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII

/ALL/
/D R/
/EGI/
/ON /
/IDE/
/NTI/
/FIE/
/R/<00>
/#Nw/
/AsF/
/iLE/
/RR /

ASCII

111
122
111
040
105
111
105
045
106
105
055

.ASCI1
.ASCII
.ASCIXI
.ASCII

/INv/

1984

13:16:08

VAX-11 Bliss-16 V3 555

Seapggga 24

SPIDER
: [NEALE SUS
,AZTEC )ZRCHB2.B1
ERS
6;5

(13

E6
ZRCHBC

ZRCHBO RC2S DISK FORMATTER

5 Apr

REV B8 PATCH 00 GLOBAL TEXT SECTION
002212
002215
002220
002223
002226
002231
002234
002237
002242
002245
002250
002253
002256
002261
002264
002267
002272
002275
002276
002301
002304

040
111
105
116
040
111
040
101
124
116
055
101
102
040
116
117
105
000
045
101
124

002323

105

002307
002312
002315
002320

00.2326

115
116
116
103
127
124
114
104
117
117
114
104
114
103
124
114
122

101
124
101
105
122
105
117
040
040
116
117
101
105
117
122
114
000

122
040
116
117

116
044
114
122
103
124
114

045
106
105

122

101

115

122

P.ABD:

055
117
122
114

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCI1
.ASCII
.ASCII
LASCII

7 MA/
/INT/
/ENA/
/NCE/
/ MR/
/ITE/
7 LO/
/AD /
/70 /
/NON/
7 LO/
/ADA/
/BLE/
/ CO/
/NTR/
/O0LL/
/ER/<00O>
<0O»
/#Ns/
/AsF/
/TLE/

.ASCII

V/ER /

.ASCII

002331
002334
002337
002342
002345

040
122
040
117
120

105
117
050
116
101

122
122
116
055
122

LASCII
.ASCII
LASCII
.ASCII
.ASCII

002353
002356
002361
002364

051
045
101
124

000
116
044
114

000
045
106
105

LASCII
.ASCII
LASCII
LASCII

002372
002375
002400
002403
002406
002411
002414
002417
002420
002423
002426
002431
002434

040
111
123
125
103
105
117
000
045
101
124
122
040

111
124
105
105
105
122
122

116
040
121
116
040
122
000

002350

002367

002437
002442
002445
002450
002453
002455

111

122

107
114
105
120
124
117

124

122

131

055

116
044
114
122
110

045
106
105
055
111

114

040

110
105
114
122
117

LASCIT

P.ABE:

040
126
040
117
103

.ASCII

P.ABF:

13:19:09

S Apr-1984 13:16:08

.ASCII
LASCII
LASCII
LASCII

040

1984

LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
_ASCII
.ASCII
LASCII
LASCII
LASCIT

LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII

/RR-/
/7 CO/
/NTR/
/0LL/

/RAM/

7 ER/
/ROR/
7 (N/
/ON-/
/PAR/

/1ITv/

7)/<00><00>
/sNw/
/AsF/
/TLE/

/RR-/

7/ IN/
/IT /
/SEQ/
/UEN/
/CE /
/ERR/
/0R/<00»
<00»>
/sNw/
/AsF/
/TLE/
/RR 7/
7/ HI/

/GH /
/LEV/
/EL /
/PRO/
/T0C/
/0L

VAX-11 Bliss-16 V3 555

SEO 0069

SPIDERSUSERS: [NEALE.AZTEC JZRCHB. 816 5 (13)

F6
ZRCHBZ2

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL

002461
002464
002467
002472
002475
002500
002503
002506
002510
002513
002516
002521
002524
002527
002532
002535
002540
002543

111
117
101
102
111
040
122
000
045
101
124
122
040
122
057
114
110
104

116
115
124
111
124
105
117
000
116
044
114
122
120
107
120
114
101
127

002551
002554
002557
002562
002565
002570
002573
002576
002601
002604
002607
002612
002615
002620
002623
002626

106
114
105
045
101
124
122
040
120
116
122
111
105
122
104
122

101
125
040
116
044
114
122
115
120
107
105
123
122
105
040
122

002546

002631
002634
002637
002642
002645
002650
002653
002656
002660
002662
002664
002666
002670
002672

002674
002676
002700
002702
002704
002706
002710
002712

122

122
120
111
040
040
115
125
000
000674
000744
001032
001122°
001176
001242°
001306’
001362°
001436°
001474’
001536
001602°
001640
001720

105

040
101
124
117
124
105
124
000

TEXT

S5-Apr-1984 13:19:09

SECTION

103
120
111
114
131
122
122

S-Apr-1984

055
125
105
117
040
122
101

.ASCII
.ASCII
.ASCII
LASCII
LASCII
LASCIYI
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
LASCII
LASCII
LASCII
.ASCI1

/INC/
/0MP/
/ATI/
/BIL/
/IVY/
/ ER/
/ROR/
<00><00>
/%Ns/
/ASF/
/TLE/
/RR-/
7/ PU/
/RGE/
<S57>/P0/
/LL /
/HAR/
/DWA/

111
122
000
045
106
105
055
101
111
040
107
124
040
101
105
117

.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
LASCII

/FAY/
/LUR/
/E /<00>
/sNe/
/ASF/
/TLE/
/RR-/
7/ MA/
/PPI/
/NG /
/REG/
/1ST/
/ER /
/REA/
/D E/
/RRO/

045
106
105

P.ABG:

040

.ASCII

P.ABH:

050
122
131
122
111
117
0S1

P.AAK:

.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
_.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

/RE /

/R (/
/PAR/
/ITv/
/ OR/
7 11/
/MEQ/
/UT)/
<00><00>
P.AAL
P.AAM
P.AAN
P.AAQD
P.AAP
P.AAQ
P.AAR
P, AAS
P.AAT
P, AAU
P, AAV
P, AAW
P, AAX
P.AAY

13:16:08

VAX-11 Bliss-16 V3-555

SEQ 0070

Page

SPIDERS$USERS:
[NEALE .AZTEC JZRCHB2.B16;5

(13)

G6
ZRCHB?

REV B PATCH 00
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002741
002744
002747
002752
002755
002760
002763
002766
002771
002774
002777
003002
003004
003007
003012
003015
003020
003023
003026
003031
003034

001766
002042°
002100’
002176
002276
002356
002420’
002510’
002562
045
101
124
122
040
123
116
040
101
123
122
122
123
045
101
124
122
040
123
103
124
114

003042
003045
003050
003053
003054
003057
003062
003065
003070
003073
003076
003101
003104
003107
003112
003115
003120
003122
003125
003130
003133
003136
003141
003144
003147

125
117
123
000
045
101
124
122
040
115
105
122
040
124
125
111
000
045
101
124
122
040
113
127
122

003037

122

ZRCHBO RC2S5 DISK FORMATTER

S5S-Apr-1984

GLOBAL TEXT SECTION

116
044
114
122
122
120
123
123
124
040
122
072
000
116
044
114
122
110
124
117
122
114

045
106
105
055
105
117
105
124
125
105
117
045

P.ABJ:

045
106
105
055
117
057
116
117
105

P.ABK:

124
106
105

040
040
121

116
044
114
122
122
117
040
117
116
040
116
116
000
116
044
114
122
125
116
116
105

045
106
105
055
105
124
120
107
117
122
116
107

P.ABL:

045
106
105
055
116
117
040
124

P.ABM:

040

117

13:19:09

5 Apr 1984 13:16:08

.WORD
.WORD

P,AAZ
P ABA

.WORD
.WORD
.WORD
.WORD
.WORD

P .ABB
P.ABC
P.ABD
P .ABE
P.ABF

.WORD
.WORD
.ASCII
LASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII

P.ABG
P, ABH
/sNs/
/AsF/
/TLE/
/RR-/
/ RE/
/SPO/
/NSE/
s ST/
/ATU/
/S E/
/RRO/
/R:%/

.ASCII
,ASCII
.ASCII
LASCII
.ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII

/S/<00>
/sNw/
/AsF/

/TLE/
/RR-/
/ WO/
/ST/<S57>
/CON/
/TRO/
/LLE/

LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
_ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII

/sUT /
/0OF /
/SEQ/
<00>
/suNw/
/AsF/
/TLE/
/RR-/
/ RE/
/MOT/
/E P/
/ROG/
7 NO/
/T R/
/UNN/
/ING/
<00><00>
/%Nw/
/ASF/
/TLE/
/RR-/
/7 UN/
/KNO/
/WN /
/RET/

.ASCII

/R O/

VAX-11 Bliss-16 V3-555

SEQ 0071

SPIDERS$USERS: [NEALE.AZTEC JZRCHB2. 816 5 (13)

H6
ZRCHB2
REV B PATCH 00
003152
003155
003160
003163
003166
003171
003172
003175
003200
003203
003206
003211
003214
003217
003222
003225
003230
003233
003234
003237
003242
003245
003250
003253
003256
003261
003264
003267
003272
003275
003276
003301
003304
003307
003312
003315
003320
003323
003326
003331
003334
003337
003340

003343

003346

003351

003354

003357

003362
003365
003370
003373
003376
003401
003404
003406
003411

125
040
101
123
117
000
045
101
124
122
040
115
122
040
111
105
117
000
045
101
124
122
040
122
110
124
131
040
122
000
045
101
124
122
040
123
107
114
107
040
122
000
045

101

124

122

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION
122
123
124
040
104

116
124
125
103
105

116
044
114
122
103
040
105
111
124
122
122

045
106
105
055
117
101
101
116
040
122
000

P.ABN:

116
044
114
122
120
124
117
040
116
105

P.ABO:

117

045
106
105
055
117
057
123
123
103
122
122

116
044
114
122
115
123
105
105
124
105
117

045
106
105
055
105
101
040
116
110
122
122

P.ABP:

116

045

P.ABQ:

044

114

122

040

125

127
105
103
105
105
111
104
045
101

116
116
117
040
103
126
000
116
044

113

116

106

105

S Apr-1984
S5-Rpr-1984
.ASCII
LASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/URN/
/ ST/
/ATY/
/S C/
/0DE/

ASCII
.ASCII
LASCII
LASCII
.ASCII

/M A/
/REA/
7 IN/
/1T /
/ERR/

.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
ASCII
LASCIXI
.ASCII
.ASCII
.ASCII
.ASCII
_ASCIiI
.ASC1iI
LASCITI
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
ASCII
.ASCII
LASCII

/0R/<00>
<00>
/wNw/
/ASF/
/TLE/
/RR-/
7 PO/

/ROR/
«<00>
/wNw/
/ASF/
/TLE/
/RR-/
7 ME/
/SSA/
/GE /
/LEN/
/GTH/
7 ER/
/ROR/
<00»

.ASCII

/ASF/

.ASCII

055

<00>
/sNw/
/ASF/
/TLE/
/RR-/
s CO/

/RT/<¢S57>
/MOS/
/T S/
/YNC/
/ ER/

/uNs/

/TLE/

116

.ASCII

/RR

LASCII

7/ UN/

040
104
104
122
105
105

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
LASCIT

/wN /
/END/
/COD/
/€ R/
/ECE/
/IVE/
/D/<00»
/uNw/
/ASF/

117

045
106

LASCII

P.ABR:

/KNO/

13:19:09
13:16:08

SEQ 0072
VAX-11 Bliss-16 V3-555
Page
28
SPIDERSUSERS: [NEALE,AZTEC )ZRCHB2.B16;5 (13)

16
ZRCHB?

REV B8 PATCH OO0

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

SECTION

003414
003417
003422
003425
003430
003433
003436
003441

124
122
040
101
117
120
107
105

003447
003450
003453
003456
003461

000
045
101
124
122

116
044
114
122

045
106
105
055

113

116

117

116
116

040
124

003444

117

114
122
101
120
122
125
105
122

122

0034364

040

003472
00347S
003500
003503
003506
003510
003513
003516
003521
003524
003527
003532
003535
003540
003543

127
111

105
125
000
045
101
124
122
040
111
123
040
105
124

122
120
000
116
044
114
122
111
124
105
123
120
111

003551
003554
003556

117
000
045

125
000
116

003467

003546

003561
003564

003567

003572
003575
003600
003603
003606
003611
003614
003617
003622
003625
003630
003633
003636
003641
003644
003647
003652
003655
3660

105

101
124

122

040
111
123
040
115
122
105
117
045
101
124
122
040
105
105
105
101
105
111

125

104

044
114

122

111
124
105
103
120
105
122
122
116
044
114
122
125
130
103
104
124
116
117

S Apr
5

105
055
104
124
040
122
040
122

000

P.ABS:

«00»
/«Nw/
/ASF/

LASCII

P.ABT:

124

P.ABU:

055

/TLE/
/RR-/

7 UN/

/KNO/

LASCITI
.ASCI1

/7uWN /
/INT/

LASCII
.ASCII
LASCII

<00><00>
/uNw/
/AsF/

.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCITI

/TLE/
/RR-/
7 IN/
/IT /

/ERR/
/7UPT/

/SEQ/
7 ST/
/EP /
/TIM/

.ASCII

/ED /

ASCII
LASCII

/AsF/
/TLE/

.ASCII
ASCII
.ASCII

LASCII

P.ABV:

/0R/<00>

.ASCII

LASCII
LASCII

040

116
040
121
117
101
040
122
000
045
106
105
055
116
120
124
040
124
124
116

ASCII
.ASCII
.ASCII

.ASCII
.ASCII

122
124

045
106
105

/TLE/
/RR-/
7 AD/
/APT/
/0OR /
/PUR/
/GE /
/ERR/

.ASCII

116

045
106
105
055
116
040
121
124
040
115

LASCII
ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

/0UT/
«<00><00>
/swNs/

/RR-/

LASCII
LASCII
LASCII
.ASCII
ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII

/0R/<00>
/wNs/
/ASF/
/TLE/
/RR-/
7 UN/
/EXP/
/ECT/
/ED /
/ATT/
/ENT/

LASCIT

/ION/

7/ IN/
/1T v/
/SEQ/
7 CO/
/MPA/
/RE /

/ERR/

Apr

1984

13:19:09

13:16:08

VAX

11 Bliss-16 v3 555

SEQ 0073

SPIOERSUSERS: [NEALE.AZTEC JZRCHB2. 816S

(13,

J6b
ZRCHB?

REV B8 PATCH 00

003663
003666
003671
003674
003677
003702
003705
003710

003712
003715

003’20
003723
003726
003731
003734
003737
003742
003745
003750
003753
003756
003761
003764
003767
003772
003775
004000
004003

004006

004011
004012
004015
004020
004023
004026
004031
004034
004037
004042
004045
004050
004053
004056
004061
004064
004067
004072
004075
004100
004103
004106
004111
004112
004115
004120
004123
004126

040
104
105
101
040
103
126
000
045
101
124
122
040
105
105
105
103
115
104
120
104
111
105
040
123
107
122
105
105
000
045
101
124

122
040
105
105

105
123
111
123
130
120
117
105
040
123
107
122
105
105
000
045
101
124
122
040

ZRCHBO RC2S DISK FORMATTER

GLOBAL

105
040
123
107
122
105
105
000

TEXT

SECTION

045
10¢€

114
122
125
130
103
104
117
101
040
103
105
116
116
115
123
105
105
111

105
055
116
120
124
040
115
116
117
117
040
040
104
105
101
040
103
126
000

116
044
114
122
125
130
103
104
105
117
040
103
124
116
116
115
123
105
105
111
104

045
106
105

125
105
105
111
040
104
105
101
040
103
126
000

116
044
114
122
111

045
106
105
055
116

1984

S5 Apr-1984

116
115
123
105
105
111
104

116
044

104

S-Apr

P.ABW:

P.ABX:

055
116
120
124

LASCII
LASCII

7 EN/
/D M/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/ESS/
/AGE/
7 RE/
/CEIl/
/VED/

.ASCII
.ASCII
.ASCII

<00>¢<00>
/wuNw/
/ASF/

LASCII
.ASCII
LASCII

/TLE/
/RR /
7 UN/

.ASCII
.ASCITI
.ASCII

/EXP/
/ECY/
/ED /

.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
LASCII

/COM/
/MAN/
/D 0/
/sPCO/
/DE /
/IN v/

.ASCII
LASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII

/ENOD~/
7 ME/
/SSA/
/GE /
/REC~/
/EIv/
/ED/<00>
<00»
/wNw/
/AsF/
/TLE/

.ASCII
LASCII
.ASCII
.ASCII

040
122

P.ABY:

.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCITI
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
_ASCII
ASCII
LASCII
.ASCII
LASCIT

/RR /
7 UN/
/EXP/
/€CT/

/€D /
/SER/
/I0V/
/S Ev/
/XCE/
/PTI/
/ON /
/END/
7 ME/
/SSAs
/GE /
/REC/
/EIv/
/ED/<00>
<00»
/wuNw/
/AsF/
/TLE/
/RR /
7 IN/

13:19:09
13:16:08

VAX-11 Bliss

16 V3 555

SEQ 0074
Page

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB2.B1K;5

(13,

I<6
ZRCHBZ
REV B8 PATCH 00
004131
004134
004137
004142
004145
004150
004153
004156
004161
004164
004167
004172
004174
004177
004202
004205
004210
004213
004216
004221
004224

004227
004232
004235
004240

126
111
103
115
104
116

101
104
117
101
040
104

114
040
115
116
105
040

105
111
104
045
101
124

103
126
000
116
044
114

105
105

115
123
105

122
040
113
127
115
123
105
131

004264
004267

040
103
126
000
045
101
124
122
040
124

004300
004303
004306
004311
004314
004317
004322
004325
004326
004331
004334
004337
004342
004 345
004350
004353
004356
004361
004364
004367
004372

040
115
116
102
106
040
114
000
045
101
124
122
040
124
124
104
107
117
101
040
106

004243
004246
004250
004253

004256
004261

004272
004275

004375

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

101
111

122

105
101
040

122
125
116
116
105
101
040
120

123
107
122

045
106
105
055
116
117
040
123
107

124
105
105
111

122
105
105
000
116
044
114
122
117
123

045
106

103
115
104
125
105
106
114

117
101
040
106
122
125
000

116
044
114
122
117
040
101
111
040
115
116
102
106
040

045
106
105
055
125
123
116
116
103
115
104
125
105

116
116

P.ABZ:

LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCITI
.ASCI1
LASCII
LASCII
.ASCII

LASCII
.ASCII
.ASCII
.ASCII

104

P.ACA:

105
055
125
124

/MES/
/SAG/
/€ R/

/€ECE/
/IVE/
/D/<00>
/«Nw/
/ASF/
/TLE/
/RR-/
7 UN/
/KNO/
/WN /
/MES/
/SAG/
/€ T/
/YPE/

LASCII
LASCII

.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCIT
LASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII

7 CO/
/mMA/
/ND /
/BUF/
/FER/
7 FY/
/LL/<00>
<«00»
/wNs/
/AsF/
/TLE/
/RR /
7/ 0Ou/
/7 S/
/TAN/
/DIN/
/G C/
/70MM/
/AND/
7 Bu/
/FFE/

.ASCITI
.ASCII
.ASCII
LASCII

LASCII
LASCIT

P.ACB:

/VAL/
/ID s
/COM/
/MAN/
/D E/
/NOD 7/

7 RE/
/CEL/
/VED/
<00><00»
/sNs/
/ASF/
/TLE/
/RR-/
7 Ou/
/7TSV/

ASCII
LASCII

104
107

117

S Apr 1984 13:19:09
S Apr 1984 13:16:08

LASCII

/AND/
/ING/

/R 0O/

5eQ 0075

VAX-11 Bliss-16 V3-555
Page
31
SPIDERSUSERS:
[NEALE .AZTEC JZRCHB2.B15;5 (13)

L6
ZRCHB?

ZRCHBO RC2S DISK FORMATTER

S-Apr

REV 8 PATCH 00 GLOBAL TEXT SECTION
004400
004403
004406
004411
004414
004417

125
117
123
103
122
122

124
106
131
040
122
000

040
040
116
105
117
000

101
124
122

044
114
122

106
105
055

113
127
115
123
105
125
105

116
116
105
101
040
115
122

117
040
123
107
116
102
040

116
044
114
122
106

045
106
105
055
111
101
105
117
000
045
106

05S%

00442°2

045

004436

040

004466
004471
004474
004477
004500
004503
004506
004511
004514
004517
004522

122
105
105
000
045
101
124
122
040
114
122

004533
004536
004541

122
045
101

105
040
122
000
116
044

004547

122

004425
004430
004433

00444)
004444
004447
004452
004455
004460
004463

004525
004530

004544

104
122

124

004552
004555
004560
004563

040
122
103
124

004566

114

004574

111

004571

004577

004602
004605
004610
004612
004615
004620
004623
004626
004631
004634
004637
004642
004645

116

125

105
111
104

105

114

040

117

125

124

105
117
000
116
044
114
122
111
105
114
103
106
105

P.ACE:

ruT 7/
/0F /
/SYN/
/C E/
/RRO/
/R/<00><00>

JASCII
.ASCII
LASCII

/AsF/
/TLE/
/RR-/

.ASCII
LASCII
LASCII
ASCII
.ASCII
ASCII
.ASCI1

/KNO/
/uWN /
/MES/
/SAG/
/E N/
suMB/
V/ER /

.ASCII

.ASCII
ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
ASCII
.ASCII

.ASCII
.ASCII
ASCII

.ASCII
.ASCII

.ASCII
ASCII
.ASCII
LASCIT

LASCII

105

P.ACF:

/eNwm/

7 UN/

/REC/
/EIvV/
/€D/<00>
<00»>
/siNe/
/ASF/
/TLE/
/RR /
7 F1/
/LE /
/REA/

/D E/
/RRO/

/R/<00><00>
/eNe/
/AsF/

/TLE/

/RR-/

s PO/
/RT/<¢S57>
/CON/
/TRO/

/LLE/

.ASCII

~/0UT/

.ASCII

122
122

045
106
105
055
114
107
040
124
111
040

LASCITI
ASCII
ASCII
.ASCII
ASCII
ASCII

.ASCIT
ASCII

105

040

115

P.ACD:

13:19:09

S Apr 1984 13:16:08

ASCITI

103
126
000

122

114

P.ACC:

116

117
057
116
117
105
124

040
122
000
045
101
124
122
040
114
101
106
040
114

120
124
117
122

045

1984

.ASCII
LASCII
LASCII
,ASCII
.ASCII
.ASCII
ASCITI
LASCII
.ASCII
.ASCII
LASCII
.ASCTII
LASCII

/IME/

7 ER/
/ROR/
<00><«00>
/sNw/
/ASF/
/TLE/
/RR-/
7 IL/
/LEG/
/AL 7/
/fFCT/
s F1/
/LE /

VAX

11 Bliss-16 v3 555

S€EQ 0076
Pa

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2.B16;5 (13)

M6
REV B PATCH OO

004650
004653
004656
004660
004662
004664
004666
C04670
004672
004674
004676
004700
004702
004704
004706
004710
004712
004714
004716
004720
004,22
004724
004726
004730
004732
004734
004736
004741
004744
004747

004752
004755
004760
004763
004766
004771
004774
004777
005002
005005
005010
005013
005016
005021
005024

005027
005032
005035
005040
005043
005046
005051
005054
005057
005062
005064
005067

114
107

000
002736
003004
003054
003122
003172
003234
003276
003340’
003406’
003450’
003510’

ZRCHBO RC2S DISK FORMATTER
GLOBAL TEXT SECTION
105
124

000

116
110
P.ABI:

003556°
003622
003712
004012’
004112’
004174°
004250
004326
004422°
004500’
004536
004612’
045

101
124
122
040
130
105
057

111
040
122
040
040

124
122
124
045
101
124
122
040
103
123
124
103
101
125
106
000
045
101

P.ACH:

116
044
114
122
126

.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

124
105
117
117
111

105
125
P.ACI:

116
044
114
122
111

056
111
000
116
044

.ASCII
.ASCII
LASCII
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD

.ASCII

101
127

117
111
105
131
124

S Apr-1984
S Apr 1984

040
040

114
045

106

P.ACJ:

.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

/LEN/
/GTH/
<00><00>»

P.ABY

. ABK
.ABL
.ABM
.ABN
.ABO
.ABP
.ABQ
.ABR
.ABS
ABT
.ABU
.ABY
. ABW
.ABX
.ABY
.ABZ
.ACA
.ACB
LACC

VOV VOVOVOVVDVOVVVOVIVIOOOVOOODVLYD

ZRCHB2

.ACD
.ACE
.ACF

/
/9N
/ASF/
/TLE/

/RR-/
/ VA/
/X R/
/ERD/

<S7>/WR/

/ITE/
/7 ER/
/ROR/
/7 ON/
/7 IN/
/TER/
/RUP/
/17¢00><00>
/%N
/
/ASF/
/TLE/

/RR

/7 IN/
/CON/

/S1S/

/TEN/
/CYy 7/
/AT 7/
/V.8/
/FIL/
<00><00»

/98N
/

/ASF/

13:19:09
13:16:08

VAX-11 Bligs-16 V3-555

SEQ 0077
Page

SPIDERSUSERS: [NEALE,AZTEC JZRCHB2.816:5 (13)

N6
ZRCHB?

REV R PATCH 00

005072
005075
005100
005103
005106
005111
005114
005117
005122
005125
005130
005132
005135
005140
005143
005146
005151
005154
005157
005162
005165
005170
005173
005176
005200
005203
005206
005211
005214
005217
005222
005225
005230

005233
005236

005241
005244

005247
005252
005255
005260
005263
005264
005267
005272
005275
005300
005303
005306
005311
005314

005317
005322
005325

005330
005333
005336

124
122
040
103
123
124
103
101
125
115
000
045
101
124
122
040
103
123
124
103
101
125
114
000
045
101
124
122
040
103
123
124
103
101
12%

12€@
105

122
050
120
105
000
045
101
124
122
040
103
123
124
103

101
123
126

105
122
050

ZRCHBO RC2S DISK FORMATTER

GLOBAL

114
122
111
117
111
105
131
124
056
124
000
116
044
114
122
111
117
111
105
131
124
056
117
000
116
044
114
122
111
117
111
105
131
124
105

117
116

131
120
040
124

116
044
114
122
111
117
111
105
131
124
105
117
116
131
105

TEXT

S-Apr-1984

SECTION

S-Apr-1984

105
055
116
116
123
116
040
040
102
131
045
106
105
055
116
116
123
116
040
040
101
103

P.ACK:

045
106
105
055
116
116
123
116
040
040
122

P.ACL:

040
124

/TLE/
/RR-/
/7 IN/
/CON/
/SIS/
/TEN/
/Cy 7/
/AT /
svu.B/
/MTyY/

LASCII
_ASCII
.ASCII
LASCII
.ASCII
LASCITI
LASCII
.ASCI1
ASCII
LASCII
LASCII
.ASCII
.ASCII

<00><00>
/uNs/
/AsF/
/TLE/
/RR-/
7/ IN/
/CON/
/SIS/
/TEN/
/Cy v/
/AT v/
/suU.A/
/LOC/

LASCII
.ASCII
ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

<00><00>
/sNs/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy v/
/AT /
/SER/

LASCII
LASCII
.ASCII
LASCII
.ASCII
_ASCII
.ASCII
JASCII
ASCII
.ASCII
.ASCII
JASCII
LASCII
.ASCII

/Ry /
/(P1/
sP S/’
/ET)/
<«00»>
/sNw/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/S1S/
/TEN/
/Cy /

LASCII
.ASCII

040
111
123
051

04S
106
105
055
116
116
123
116
040
040
122
040
124
040
122

LASCII
.ASCII
LASCII
LASCIT
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII

P.ACM:

.ASCII
.ASCII
.ASCII

LASCII
LASCII
ASCII

/v0 v/
/ENT/

/AT /
/SER/
/vO /

/ENT/
/Ry /
/(ER/

13:19:09

13:16:08

VAX-11 Bliss-16 v3-555

SEQ 0078

Page

SPID:ERSU
[NEALE .AZTEC)ZRCHB
SERS
2.816:5

(13,

B/
ZRCHB?
REV 8 PATCH OO0

ZRCHBO RC2S DISK FORMATTER
GLOBAL TEXT SECTION

005341
005344
005347
005350
005353
005356

122
105
000
045
101
124

040
124

123
051

116
044
114

045
106
105

005364
005367
005372
005375
005400
005403
005406
005411
005414
005416
005421
005424
005427
005432
005435
005440
005443
005446
005451
005454
005457
005462
005464

040
103
123
124
103
101
125
105
000
045
101
124
122
040
103
123
124
103
101
125
105
000
045

111
117
111
105
131
124
056
116
000
116
044
114
122
111
117
111
105
131
124
056
103
000
116

005361

005467

005472

122

101

124

122

044

114

005475
005500
005503
005506
005511
005514
005517
005522
005525
005530
005532
005535
005540
005543
005546
005551
005554

122
040
103
123
124
103
101
125
124
000
045
101
124
122
040
103
123

122
111
117
111
105
131
124
056
124
000
116
044
114
122
111
117
111

005562
005565
005570
005573
005576
005600
005603

103
101
125
116
000
045
101

131
124
056
114
000
116
044

005557

124

105

P.ACN:

055

116
116
123
116
040
040
123
104
045
106
105
055
116
116
123
116
040
040
122
126

P.ACO:

045

P.ACP:

106

105

P.ACG:

116

/R S/
/ET)/

.ASCII

/RR /

P.ACR:

<«00»
/wuNw/
/ASF/
/7TLE/

LASCII
.ASCII
.ASCI1
.ASCIT
.ASCII
.ASCII
ASCII
.ASCII
ASCII
.ASCII
LASCI1
.ASCII
.ASCII
LASCII

/7 IN/
/CON/
/SIS/
/TEN/
/Cy /
/AT /
/U.S/
/END/
«00><00>
/wNw/
/ASF/
/TLE/
/RR-/
/7 IN/

LASCII
.ASCII
.ASCII
LASTII
ASCII
.ASCII
.ASCII
.ASCII
,ASCII

/CON/
/SIS/
/TEN/
/Cv v/
/AT /
/U.R/
/ECv/
<«00><00>
/sNw/

ASCII

/ASF/

LASCII
LASCII
LASCII
.ASCII
LASCII
ASCII
LASCII
ASCII
LASCII
.ASCIT
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCIT

/RR-/
7/ IN/
/CON/
/SIS/
/TEN/
/Cvy /
/AT /
/V.A/
/TTN/
<00><00>
/wNe/
/ASF/
/TLE/
/RR /
7/ IN/
/CON/
/SIS/

LASCII
LASCII
LASCII
LASCII
.ASCII
,ASCII
LASCII

/Cv /
/AT /
7V.0/
/NULN/
«00><00>
/«Nw/
/AsF/

LASCII

040
040
117
116
045
106

ASCII
LASCII
ASCII
,ASCII
LASCII
LASCI1

.ASCII

055
116
116
123
116
040
040
101
116

045
106
105
055
116
116
123

S Apr-1984
S Apr-1984

/TLE/

/TEN/

13:19:09
13:16:08

SEQ 0079
VAX-11 Blies 16 Vv3 555
Page
35
SPIDERSUSERS: [NEALE,AZTEC ]ZRCHB?2 . 816;5 (13,

C/
IRCHB?

REV B PATCH 00
005606

124

005611
005614
005617
005622
005625
005630
005633
005636
005641
005644
005647
005650
005653
005650
005661
005664

122
040
114
101
104
105
105
040
056
122
000
045
101
124
122
040

005706
005711
005714
005717

005720
005723
005726
005731
005734

101
120
124
000
045
101
124
122
040

005742
005745
005750

101
105
104

005667
005672
005675
005700
005703

005737

005753

005756
005761
005764
005767
005772
005774
005777
006002
006005
0C6010
006013
006016
006021
006024
006027
006032
006035
006040
006043
006046
006051

116
055
123
105
117

104

125

105

101
125
117
000
045
101
124
122
040
105
114
116
040
120
103
125
105
111
040
056

ZRCHBO RC2S DISK FORMATTER

S Apr 1984 13:19:09

GLOBAL TEXT SECTION
114

105

122
111
105
114
040
121
123
050
121
121

055
114
107
040
122
125
124
125
104
051

116
044
114

045
106
105

122

105
105
117
040
122
040
040
117
102

116
044
114
122
102

045
106
105
055
101

103
124
105

113
040
121

104

040

105

124
056
116
000
116
044
114
122
125
130
101
105
104
122
040
123
116
117
050
056

LASCII

P.ACS:

0SS

106
103
120
124
122
122
124
122
101

5-Rpr 1984 13:16:08

P.ACT:

.ASCII
ASCII
LASCII
.ASCII
.ASCII
ASCII
.ASCII
ASCII
ASCII
.ASCII
ASCII
,ASCII
ASCII
LASCII
.ASCII
LASCII
.ASCI1
.ASCII
ASCITI
.ASCII
.ASCII

/NCE/
/-PO/
/ST /
/ERR/
/OR s/

.ASCII
.ASCII

/AT /
/PRO/

.ASCII
ASCII
L.ASCII
.ASCII
ASCII
.ASCII
.ASCII

/TAB/
<00>
/sNw/
/AsF/
/TLE/
/RR-/
/ BA/

LASCII
.ASCII
.ASCII

/ACK/
/ET /
/DEQ/

120

.ASCII

125

LASCII

.ASCII

040
104
105

045
106
105
055
116
120
111
104
055
117
123
120
123
116
125
124

P.ACU:

/TLE/

/RR-/
/7 IL/
/LEG/
/AL /
/D R/
/EQU/
/EST/
/7 (u/
/.QD/
/RQ)/
<00»
/sNw/
/ASF/
/TLE/
/RR-/
7 FE/

LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCI1
.ASCII
.ASCII
LASCII
LASCII
LASCII

/D P/

/7UEV/

/ED /
/AT /
/v.D/
/ONE/
<00><00>
/sNs/
/AsF/
/TLE/
/RR-/
7 UN/
/EXP/
/LAI/
/NED/
/7 D /
/PRO/
/C S/
/USP/
/ENS/
/ION/
7 (u/s
/..T/

VAX-11 Blies-16 V3
555

SEQ

0080

QPO

SPIDERSUSERS: [NEALL.AZTEC JZRCHB2.B15K;5 (13;

D/
ZRCHB?

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

006054
006057
0060¢0
006063
006066
006071
006074
006077
006102
006105
006110
006113
006116
006121
006124
006127
006132
006135
006140
006143

104
000
045
101
124
122
040
120
101
105
104
040
111
104
130
V40
057
051
045
101

123

051

116
044
114
122
104
040
103
124
055
106
114
040
106
063
063
000
116
044

006151
006154
006157
006162
006165
006170
006173
006176
006201
006204
006206
006211
006214
006217
006222
006225
006230

122
040
103
123
124
103
101
125
124
000
045
101
124
122
040
103
123

122
111
117
111
105
131
124
0556
123
000
116
044
114
122
111
117
111

045
106
105
055
125
120
113
040
121
101
105
050
103
064
065
000
045
106
105
055
116
116
123
116
040
040
110
124

006146

006233
006236
u06241

006244
006247
006252
006254

006257
006262
006265
006270
006273
006276
006301
006304

006307

006312
006315
006320

124

124
103
101

125
105
000
045
101
124
122
040
103
123
124
103

101

125
113
000

114

105
131
124

056
113
000
116
044
114
122
111
117
111
105
131

124

056
123
000

S Apr 1984 13:19:09

SECTION

045
106
105
055
116
116
123

S-Rpr

P.ACV:

P.ACW:

P.ACX:

040

103
126

.ASCII
LASCII

/RR-/
7/ IN/

LASCII
.ASCII
ASCII
.ASCII
.ASCII
LASCIT
ASCII
ASCII
,ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII

/CON/
/SIS/

ASCII

123
117

106
105
055
116
116
123
116
040

<«57>/35/
/)/7<00><00>
/sNw/
/ASF/

JASCII

116
040

045

.ASCII
ASCII
,ASCII
LASCII
LASCII
LASCII
LASCII
.ASCIT
.ASCII
LASCII
.ASCII
ASCII
.ASCII
LASCII
LASCII
LASCII
ASCII
.ASCI1
.ASCII
LASCII

P.ACY:

.ASCII
.ASCII
.ASCII
ASCII

/DS)/
<«00»
/sNs/
/ASF/
/TLE/
/RR 7/
7 OW/
/P P/
/ACK/
/ET /
/D-Q/
7 FA/
/ILE/
/0 (/
/XFC/
/ 34y

/TLE/

/TEN/
/Cy /
/AT /
/U, W/
/7ST/
<00><00»
/wNw/
/AsF/
/TLE/
/RR-/
7/ IN/
/CON/
/SIS/
/TEN/
/Cv v/
/AT

/V.S/
/EKO/
<00><00>
/sNw/

LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII

/AsF/
/1LE/
/RR /
7 IN/
/CO\/
/SIS/
/TEN/
/Cv v/

LASCII
LASCII
ASCII

sv.C/
/KSV/
<00><00>

JASCII

/AT /

1984

13:16:08

VAX-11 Blies-16 V3 555

SEQ 0081 37

SPIDERSUSERS: [NEALE,AZTEC JZRCHB2. 81615

(13,

E7
ZRCHB?
REV B PATCH 00

006322
006325
006330
006333
006336
006341
006344
006347
006352
006355
006360
006363
006366
006371
006374
006377
006402
006405
006410
006413

006416
006421
006424
006427
006432
006435

006440
006443
006444

006447

006452
006455
006460
006463
006466
006471
006474

006477

006502
006505
006510
006513
006516
006521
006524
006527
006532
006535
006540
006543
006546
006551
006554
006557
006562
006565
006570

045
101
124
122
040
117
104
117
104
114
107
040
103
105
045
101
124
i22
040
103

040
125
040
114
101
117

117
000
045

ZRCHBO RC2S DISK FORMATTER
GLOBAL TEXT SECTION

116
044
114
122
104
120
040
125
040
114
101
117
117
000
116
044
114
122
104
123

045
106
105
055
056
103
106
116
111
105
114
120
104
000
045
106
105
055
056
106

104

107
040
103
105

116

045

114
122
125

105
055
116

126

105

106
116
111
105
114
120

101

044

113
127
102
040

116
116
101
104

124
122
040

111

040
101
123
124
056
124
045
101
124
122
040
114
101
130
040
105
124
040
040

123
124
040
040
104
123
116
044
114
122
111
105
114
106
105
103
105
102
104

P.ACZ:

P.ADA:

117
104
114

106

.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCIX
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCI1
.ASCII
.ASCII

/sNs/
/ASF/
/TLE/
/RR-/
7 D./
/0PC/
/D F/
/0UN/
/D I/
/LLE/
/GAL/
7 OP/
/C0OD/
/E/<00><00>
/siNs/
/AsF/
/TLE/
/RR-/
/ 0./
/CSF/

.ASCII
ASCII
.ASCII

/0ODE/
<00>
/wNw/

LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII

P.ADB:

LASCII

.ASCII
.ASCII
LASCII

117
040
104
122

124
125
101
104
123
000
045
106
105
055
114
107
040
103
130
125
104
131
115

S Apr-1984
HL-Apr-1984

.ASCII
LASCII
.ASCII
.ASCII

LASCII

P.ADC:

.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII

/ FO/
/UND/
7 IL/
/LEG/
/AL /
/0PC/

/ASF/

/TLE/
/RR-/
/7 UN/

/KNO/
/WN /
/BAD/
/ DR/

/IVE/

/ ST/
/ATU/
/S A/
/T O/
/.DS/
/75/¢<00>
/sNs/
/ASF/
/TLE/
/RR-/
7 IL/
/LEG/
/AL /
/XxFC/
7 EX/
/ECU/
/TED/
/ By/
7 DM/

13:19:09
13:16:08

SEQ 0082

VAX-11 Blies-16 V3-555
Page
3
SPIDERS$USERS:
[NEALE .AZTEC]ZRCHB2.B16;:5 (13,

F7
ZRCHBZ2

REV

PATCH 00

006573
006574
006577
006602
006605
006610
006613
006616
006621
006624
006627
006632
006635
006640
006643
006644
006647
006652
006655
006660
006663
006666
006671
006674
006677
006702
006705
006710
006713

006716
006721
006724

006727
006732

006735

006740
006743
006746
006751
006754
006757
006762
006765
006770
006773

006776
007001
007004
007006
007011
007014
007017
007022
007025
007030
007033
007036

000
045
101
124
122
040
120
113
040
040
132
117
103
104
000
045
101
124
122
040
103
123
124
103
101
104

ZRCHBO RC2S5 DISK FORMATTER

GLOBAL

TEXT

SECTION

116
044
114
122
104
111
105
125
101
105
040
102
102

045
106
105
055
040
103
104
120
040
122
123
056
000

P.ADD:

045
106
105
055
116
116
123
116
040
040
111
105
117
000
045
106
105
055
115
117
040
125
040
122
040
040
123

P.ADE:

104
040
117
045
101
124
122
040
040
122
103
116
105
117
117
110

116
044
114
122
111
117
111
105
131
124
040
114
114
120
116
044
114
122
104
127
104
117
124
122
122
116
117

115
123
104
105
000
045
101
124
122
040
113
127
104
120

101
105
057
103
000
116
044
114
122
125
116
116
111
114

057
116
122
126

124

040

S-Apr-1984

P.ADF:

104

045
106
105
055
116
117
040
123
101

5-Rpr-1984

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

<00»>
/sNs/
/ASF/
/TLE/
/RR-/
/7 D /
/PIC/
/KED/
/ uP/
/7 A/
/ZER/
/0 S/
/CB./
/DB/<00>
<00>
/s#Ns/
/ASF/
/TLE/
/RR-/
/ IN/
/CON/
/SIS/
/TEN/
/CY /
/AT /
/D I/
/DLE/
/ LO/

LASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

/0P/<00>
/sNw/
/ASF/
/TLE/
/RR-/
7 DM/
/ W0/
/RD /
/COU/
/NT /
/ERR/
/0R /
/ON /
/HOS/

LASCII
.ASCI1
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
JASCII
.ASCI1
LASCII

/MA/<ST>
/SEN/
/D/<S57>/R/
/ECvV/

.ASCII

P.ADG:

/7T

<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 UN/
/KNO/
/uWN /
/DIS/
/PLA/

13:19:09
13:16:08

VAX-11 Bliss-16 Vv3-555

SEQ 0083

Page

SPIDERS$USERS:
[NEALE .AZTEC }ZRCHB2.816;5

(13)

G7
ZRCHB?2

REV

B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL

007041
007044
007047
007052
007055
007060
007063
007066
007070
007073
007076
007101
007104
007107
007112
007115
007120

131
101
124
117
040
040
104
124
045
101
124
122
040
111
040
124
101

040
125
040
104
101
104
106
000
116
044
114
122
104
126
116
040
125

007126
007131
007134
007137
007142
00714S
007150
007153
007156
007161
007164
007167

107
116
056
114
123
124
045
101
124
122
040
120

040
040
117
116
124
105
116
044
114
122
125
117

007175
007200
007203
007206
007211
007214
007217
007222

125
104
107
123
103
106
114
000

120
111
116
124
123
101
105
000

007227
007232
007235
007240
007243
007246
007251
007254
007257
007262
007265

101
124
122
040

104
107
123
103

044
114
122
104
117
122
120
111
116
124
123

007273
007276
007300
007303
007306

114
000
045
101
124

105
000
116
044
114

007123

007172

007224

007270

124

105

045

120
105
125

106

111

TEXT

SECTION

106
114
103
105
124
056
114

S-Apr-1984

ASCIT
JASCII
.ASCII
.ASCII
JASCII
ASCII
.ASCII
ASCII
_ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

/Y F/
/AWL/
/T C/
/00DE/
7/ AT/
s D./
/DFL/
/7/<00>
/sNw/
/ASF/
/TLE/
/RR-/
7 DR/
/IVE/
7/ NO/
/T F/
/AUWL/

127

LASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
ASCII
.ASCII
LASCII
ASCII
.ASCII

/G 1/
/N P/
/.0OF/
/LN /
/STA/
/TE/<00>
/siNe/
/ASF/
/TLE/
/RR-/
7 U v/
/POW/

040
101
117
111
040
111
104

LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII

045
106
105
055
122
105
117
106
114
116
111
120
106
040
101
000
045

106

P.ADH:

ASCI1

P.ADI:

105

055
040

122

040

116

045

101

S Apr-1984 13:19:09

106
105
055
040
127
040
040
101
117
111
00

.ASCII

P.ADJ:

045
106
105

.ASCII
LASCII
.ASCII
LASCII

/D s
/POW/
/ER /
7uP v/
/DIA/
/GNO/
/ST1/
/CS /

.ASCI1

P.ADK:

suP /
/O0IA/
/GNO/
/ST1/
/CS /
/FAI/
/LED/

<00><00>
/wNs/

.ASCII
LASCII
LASCII
LASCII

111

/ER /

LASCII
.ASCII
.ASCII
LASCII
.ASCII

104

/TIN/

LASCII
.ASCII
_ASCII
LASCITI
LASCII

/ASF/
/TLE/
/RR-/

/FAl/

/LED/
<00><00>
/sNs/
/ASF/
/TLE/

13:16:08

VAX-11 Bliss-16 v3-555

SEQ 0084

Page

SPIDERSUSERS
: [NEALE .AZTEC)ZRCHB2.816;:5

(13,

H7
ZRCHB?

REV B8 PATCH OO0

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

SECTION

007311
007314
007317
007322
007325
007330
007333
007336
007341
007342
007345
007350
007353
007356
007361
007364
007367
007372
007375
007400
007403
007406

122
040
101
105
103
104
101
125
000
045
101
124
122
040
056
122
111
104
125
045
101
124

122
101
120
122
101
040
111
122

055
104
124
040
122
106
114
105

116
044
114
122
105
124
040
115
040
124
116
044
114

045
106
105
055
103
115
124
105
117
000
045
106
105

007414

040

125

007422

104

057

103
122
107
105

007452
007455
007460
007463
007464
007467

123
124
103
000
045

007472
007475
007500

124
122
040

007506
007511

127
127

007411

007417

007425

007430
007433
007436
007441

007444
007447

007503

122

123

056

040
103

101

113

007514
007517
007522
007525

124
040
101
116

007533
007536
007541
007542
007545
007550

056
103
000
045
101
124

007530

007553

124

122

S-Apr-1984
5

.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/RR-/
/ AD/
/APT/
/ER /
/CAR/
/0D F/
/AIL/
/URE/

.ASCII
,ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
ASCII
.ASCI1
LASCII
.ASCII
.ASCI1
ASCII

<00»
/sNss/
/ASF/
/TLE/
/RR-/
/ EC/
/.TM/
/R T/
/IME/
/0 Or/

/7UT/<00>
/sNw/
/AsF/
/TLE/

056

.ASCII

7/ V./

125

LASCII

126
111
040
101

040
116
122
104

.ASCII
.ASCII
.ASCII
.ASCII

111
105
131

123
116
000

LASCII
.ASCII

7 IN/
/CON/

116

045

.ASCI1
LASCII
LASCII
LASCII
_ASCII

/SIS/
/TEN/
/CY/<00>
<00»
/sNs/

122

105

122

111
117

044

.ASCII

116

.ASCII

105

.ASCII

116
116

106

105
055
116

116
101

040
111

122
122

P.ADM:

0SS

114
122
125

116

P.ADL:

P.ADN:

LASCII

LASCII
.ASCII
LASCII

117

LASCII

LASCII
.ASCII

123
040
040
122
124

126
105
117
101

.ASCII
.ASCITI
.ASCII
.ASCII

126
000

11€
044
114

045
106
105

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

122

104

055

LASCII

P.ADO:

LASCII

/RR-/

/SEN/

/0/<S57>/v/

/.RE/

/Cv /
/RIN/
/G R/
/EAD/

/ASF/

/TLE/
/RR-/
7 UN/
/KNO/

/WN /
/WAl/
/TRv/
7 RE/

/ASO/
/N A/
/7 D/
7/ ,Rv/
/CT7/<00>
<00»
/wNw/
/AsF/
/TLE/

/RR /

Apr-1984

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

SEO 0085

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 816 S

(13)

17
ZRCHB?

REV B PATCH 00

007556
007561
007564
00756~
007572
007575
007600
007603
007606
007611
007614
007617
007622
007625
007630
007633
007636
0C7641
007644
007647
007652
007655
007660
007663
007666
007671
007674
007677
007702
007705
007710
007713
007716
007721
007724

007727

007732

040

104

TEXT

110

124

123

124

007751

040

007757
007762
007765
007770
007773
007776
010001
010004
010007
010012
010015
010020
010023
010026

040
111
104
045
101
124
122
040
110
124
116
040
101
104

104

111

125

040

127

122

124

.ASCII
.ASCII
LASCII
LASCII

P.ADP:

P.ADQ:

/7T v/
/NDO/
/NE /

LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCI1

/ZON/
/E/<00><00>
/sNw/
/AsF/
/TLE/
/RR-/

ASCII
.ASCII
.ASCII

7 U,/
/SEE/
/K F/

LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
ASCII
ASCII

70UN/
/D S/
/EEX/

s TO/
7 ILv/
/LEG/
/AL /

/TRA/
/CK/<00»
/wNw/

/AsF/

/TLE/
/RR-/
/7 v,/
/HTS/

LASCII
.ASCII
LASCII

/NIT/
7 OI/
/AG /

LASCIT

7 wWR/

LASCIT

LASCII

P.ADR:

/S D/
/1D /
/NOT/

LASCII
.ASCII
LASCII

LASCII

105

101
105
000
045
106
105
055
056
123
111
124
111
040
101

/ARC/

7 FIv/
/ND s/
/CLO/
/SES/

LASCII

101

7 D./

ASCII
.ASCII
.ASCII
.ASCII

LASCII

111

124
111
040

106
114
000
116
044
114
122
125
124
040
111
104
107
115

ASCIT

056

111
104
107

115

056

103
104
040
124
111
040
117
123
125
117
040
116
000
045
106
105
055
056
105
106
116
123
113
117
114
107
040
101
000
045
106
105
055

040

S Apr-1984

SECTION

122
040
104
117
106
104
114
105
040
104
105
117
000
116
044
114
122
125
105
040
125
040
105
124
111
105
114
122
113
116
044
114
122

116
040
101

007754

GLOBAL

101
123
111
116
040
116
103
123
124
116
116
132
105
045
101
124
122
040
123
113
117
104
105
040
040
114
101
124
103
045
101
124
122

007735
007740
007743

007746

ZRCHBO RC2S5 DISK FORMATTER

/DMA/

/ITE/

ASCII
LASCII
ASCII
_ASCII
LASCII
LASCIT
LASCII
LASCIT
LASCII
LASCII
LASCII
.ASCII

7 FA/
/ILE/
/D/<00><00»
/sNs/
/ASF/
/TLE/
/RR /
7 v,/
/7MTS/
/1 I/
/NIT/
7 DI/

LASCILI
LASCII

/AG /
/DMA/

Apr

1984

13:19:09

13:16:08

VAX-11 Bliss-16 v3 555

SEQ 0086

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 8165

(13,

J/
ZRCHB2

REV 8 PATCH 00

ZRCHBO RC2S DISK fORMATTER

GLOBAL

010031
010034

040
115

103
120

010042
010045
010050
010052
010055
010060
010063
010066
010071

106
114
000
045
101
124
122
040
123

101
105
000
116
044
114
122
125
131

010077

117

010037

010074

010102

010105
010110
010113
010116
010121
010124
010127
010132
010135
010140
010142
010145

0101590

010153

010156

122

040

125

104

040

124
045
101

000
116
044

123
105
123
040
104
123
120
116
040

124

122

040

010161
010164
010167
010172
010175
010200
010203
010206
010211
010214
010216
010220
010222
010224
010226
010230
010232
010234
010236
010240
010242
010244

123
122
122
105
101
117
123
122
104
004736
005016°
005064
005132
005200°
005264
005350°
005416
005464
005532
005600
005650
005720

010250
010252
010254
010256

006060°
006140’
006206
006254

010246

105

005774

056
122
105
101
040
056
116
117
123

114

TEXT SECTION

5 Apr 1984

117
101

LASCII
LASCII

7 CO/
/MPA/

111
104

LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII

/FALl/
/LED/
<00><00>
/wNw/
/AsF/
/TLE/
/RR-/
7 v,/
/SYD/

LASCII

/70UN/

.ASCII
.ASCII
.ASCI1
LASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII

/S.D/
/ER /
/SET/
/ AN/
/0 S/
/S.S/
/PN /
/NOT/
7/ SE/

LASCII

/TLE/

040

045
106
105
055
056
104

JASCII

P.ADS:

LASCII

106
116

123

LASCII

104
040
124
116
123
123
040
124
105
045
106

P.ADT:

105

122

055

124
040
111
123
103
040
123
124
000

105
104
126
040
114
101
105
105
000

115

S Apr 1984 13:19:09

LASCII
ASCII
LASCIXI
LASCITI

101

LASCII

P.ACG:

/RE /

/R F/

/D S/

/71/<00>
/#Nw/
/AsF/
/RR-/

7 MA/

LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
LASCII
.ASCII
LASCII
.WORD
.WORD
.WMORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

/STE/
/R O/
/RIv/
/ES s
/ACL/
/0 A/
/SSE/
/RTE/
/D/<00><Q0>
P .ACH
P.ACI
P _ACJU
P ACK
P ACL
P_ACM
P_ACN
P _ACO
P _ACP
P _ACQ
P ACR
P _ACS
P ACTY

.WORD
.WORD
.WORD
.WORD

P _ACV
P _ACW
P ACX
P ACY

.WORD

P _ACY

13:16:08

VAX 11 Bliss 16 V3 555

5€Q 0087

Page

SPIDERSUSERS:
[NFALE .AZTEC )ZRCrHB2.B15;5 (13,

1< 7
ZRCHB?
REV B PATCH 00
010260
010262
010264
010266

010270
010272
010274
010276
010300
010302
010304
010306
010310
010312
010314
010316
010320
010322
010324
010326
010330
010332
010335
010340
010343

010346
010351
010352
010355
010360
010363
010366
010371

010374

006322
006374
006444
006524

006574
006644
006716
007006
007070’
007150°
007224
007300
007342
007400°
007464
007542
007630
007710’
007770
010052’
010142’
045
123
103
123
114
000
045
116
114
040
115
116

101
125
105
106
045

040
103
123
125
116

P.ADV:

101
126
111
103
115
104

111
101
104
117
101
045

P.ADW:

101
040
107

116
122
111

P_ADX:

000

117

116

045
117
105

010412
010415
010420
010423
010426
010431
010434
010437
010442
010445
010450
010453
010456
010461
010464
010467
010472
010475
010500

101
111
102
045
045
117
105
117
123
124
114
116
045
122
122
040
124
116
116

S RApr 1984
S5 Apr 1984
.WORD
.MORD
.WORD

P, ACZ
P.ADA
P .ADB

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WMORD
.WORD
.ASCII
LASCII
LASCII
LASCII

P ADD
P ADE
P _ADF
P.ADG
P_ADH
P, ADI
P_.ADJ
P ADK
P.ADL
P_ADM
P _ADN
P _ADO
P _ADP
P.ADQ
P _ADR
P _.ADS
P, ADT
/%A /
/SUC/
/CES/
/SFU/

.WORD

116

010376
010401
010404

010407

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

126
114
114
116
101
040
107
116
125
101
105
000
101
117
101
11€
040
117
045

040

101
101
105
000
116
122
111
040
111
102
045
000
120
107
115
117
113
127
116

LASCITI
LASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII

.ASCII

.ASCII
.ASCII
.ASCII

.ASCII

P_ADY:

P.ADZ:

LASCII
LASCII
.ASCII
LASCII
_ASCII
.ASCII
.ASCI1
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII

P ADC

/7LeN/
<00>
/wAl/
/NVA/
/LID/
s CO/
/MMA/
/NOw/

/N/<00>
/#AN/
/0 R/
/EGI/

/ON /

/AVA/
/ILA/
/BLE/
/#N/<00>
/wAN/
/0 R/
/EGI/
/ON /
/SUl/
/TA8/
/LEw/
/N/<00><0Q0>
/sAP/
/ROG/
/RAM/
7/ NO/
/7 K/
/NOW/
/NsN/

13:19:09
13:16:08

5EQ 00838

VAX-11 Bliss-16 V3 555
Page
44
SPIDERSUSERS:
[NEALE .AZTEC JZRCHB2.B16;5 (13,

L7
ZRCHB2

REV

B PATCH 00

010503
010504
010507
010512
010515
010520
010523
010526
010531
010534
010537
010542
010545
010546
010550
010552
010554
010556
010560
010562
010564
010567
010572
01057S
010600
010603
010606
010611
010614
010617
010622
010624
010627
010632
010635
010640
010643
010646
010650
010653
010656
010661
010664
010667
010672
010675
010700
010703
010706
010711
010714
010716
010721
010724
010727
010732
010735

000
045

117

040
111
122
116
045
124
104

117
045
000
010332’
010352
010376

010426
010456
010504
010526

045
125
105
045
045
116
114

040
115
116
116
045

117

101
040

117
105

ZRCHBO RC2S DISK FORMATTER

GLOBAL

101
101
106
114
105
000
101
101
101
116
116

SECTION

114
104
101
125

P.AEA:

123

P.AEB:

045
000

116
114

105

000

P.ADU:

101
103
123
116
101
126
111
103
115

104

000
101

115
116
101
122

123
103
123

000
111
101

P.RED:

P.AEE:

104
117

101
045

103

P.AEF:

102

104

116
045
116
055
106
116
116
045
116
055
101
101
105
000
045
105
101

000
101
111

101
105

124
122

117

TEXT

P.AEG:

117
114
105

000

101
111
101
111
102
045
000
101
104
040
122

S Apr-1984
S-Apr-1984

P .AENH:

P.AEI:

.ASCII
.ASCII
.ASCII
.ASCII
.ASC1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

<00»>

/
/SAL
/70AD/
/7 FA/
7ILV/
/REs/
/N/<00><00>
/%AS/
/TAN/
/DAL/
/0ONE/
/9N/<00>
<00>

P.ADV
P.ADM
P.ADX
P.ADY
P.ADZ
P.AEA
P.AEB

/9N/ <00>

/98AY/
/NVA/
/LID/
/7 CO/
/MMA/
/ND%/
/N/<00>
/%AC/
/70MM/

/AND/

/7 AB/
/0RT/
/7ED%/
/N/<Q0»>
/9AY/
/NIT/

7/
/7-0F

/FLT/
/NEs/
/N7 <Q0><00>
/8AU/
/NIT/
/-RAV/
/AIL/
/7
/ABL
/E¥N/
<00><00>

/%AM/
/EDL/
/A F/
/0RM/
/AT /
/ERR/

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

SEQ 0089

SPIDERS$USERS: [NEALE.AZTEC )ZRCHBZ2. 816S (13)

M7
ZRCHB?
REV B PATCH 00

010740
010743
010746
010751
010754
010757
010762
01076%
010770
010772
010778
011000
011003
011006
011011
011014
011017
011022
011025
011030

011033
011034
011037
011042
011045
011050

011053
011056
011061

011064

011067

117
116
045
122
105
122
105
105
116
045
117
101
040
122
045
045
101
040
122
045

000
045
117
040
106
122

103
123
105

117

105
117
116
101
124

105
117
116

101
123
102
106
040

110
124
125
105
101

P.AEM:

103
123
122

122

105
040
122
045

101
116
117
105
105

103
124
114
122
122

117

045
000

045
122
105
122
122
000
045
105
101
040
117
101
111
105
101
104
107
123

P.AEJ:

P.AEK:

122

011114
o11117

045
000
127
124
120
124
124
045
103
120
105
122
122
000
104
101
122
122
000

000

045
117
122
114
040

011120
011123
011126
011131
011134
011137
011140
011143
011146
011151
011154
011157
011162
011165
011170
011173
011176
011201

122
000
101
111
040
117
103
104
000
101
115
122

116

011072
011075
011100
011103
011106

Oo11111

ZRCHBO RC2S DISK FORMATTER
GLOBAL TEXT SECTION

000

P.AEL:

S-Apr-1984
S-Apr-1984

.ASCII
.ASCII
.ASCII
JASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
_ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCI1
LASCII
.ASCI1
.ASCII
ASCII

/ORw/
/N/<00><00»>
/%AuW/
/RIT/
/E P/
/ROT/
/ECT/
/EDw/
/N/<00O>
/«%AC/
/0MP/
/ARE/
/ ER/
/ROR/
/%N/<00>
/%AD/
/ATA/
7 ER/
/ROR/
/%N/<00>

.ASCII
LASCII
.ASCII

/CCE/
/SS 7/
/ERR/

.ASCII
_ASCII
.ASCII
ASCII
.ASCII
.ASCII

.ASCII
P.AEN:

122

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

116

000

101
111
040
122
045

104
126
105
117
116

P.AEO:

101
123
107
106
115
116
116
122
114
111
116
124

115
123
105
122
040
040
124
116
040
101
117
111

P.AEP:

.ASCII
LASCII

.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
_ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

<00>
/«%AH/
/0ST/
s BU/
/FFE/
/R A/

/0ORs/

/N/<00><00>
/«AC/
/ONT/
/ROL~/
/LER/
/ ER/

/ROR/

/%N/<00>
<00>

/%AD/
/RIvV/
/E E/
/RRO/
/RsN/
<00->
/sAM/
/ESS/
/AGE/
7 FRv/
/70M /
/AN /
/INT/
Z/ERN/
/AL /
/DIA/
/GNO/
/ST1/

13:19:09
13:16:08

SEQ 0090
VAX-11 Bliss-16 V3 555
Page
46
SPIDERS$SUSERS: (NFALE.AZTEC)ZRCHB2.B16;5 (13,

N/
ZRCHB?
REV 8 PATCH 00

011204
011207
011210
011212
011214
011216
011220
011222
011224
011226
011230
011232
011234
011236
Q11240
011242
011245
011250
011253
011256
011261
011264
011267
0ll272
011274
011277
011302
011305
011310
011313
011316
011321
011324
011327
011332
011335
011340
011343
011346
011351
011352
011355
011360
011363
011366
011371
011374
011377
011402
011405

011410
011413
011416
011421
011424
011427
011432

103
000
010564
010600
010624°
010650’
010672°
010716
010746
010772°

ZRCHBO RC25 DISK FORMATTER

GLOBAL

045

TEXT

SECTION

5-Apr-1984

116
P.AEC:

011014
011034

011072°
011120
011140°
105
105
104
105
115
104
131
131
000
045 .
101
040
104
111
101
125
124
124
106
115
040
101
122
116
000
045
101
124
122
040
111
103
105
105
116
122
040
105
117
127
106
114

116
122
101
040
115
104
131
076
000
116

116
101

111
117
114
116
123
117
117
101
055
102
124
107
116
044
114
122
111
124
117
040
055
124
105
104
040
040
122
101
000

5-Apr-1984

124
040
124
074
055
055
131
040

P.AEQ:

045
117
104
124
116
040
111
040
040
122
124
040
117
111
000

P.AER:

045
106
105
055
116
040
104
122
105
105
104
125
124
120
040
111

P.AES:

ASCII
ASCII
.WORD
.WORD
.WORD

/CsN/
<00»
P _AED
P _AEE
P AEF

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.ASCII
.ASCII
.ASCI1

P AEG
P AEH

P AEN
P_AEQ
P _AEP
/ENT/
/ER /
/DAT/

LASCII
LASCII
.ASCI1
LASCIXI
LASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

/E </
/MM-/
/DD-/
/YYY/
/Y> 7/
<00><00>
/sNs/
/ANO/
/ AD/
/DIT/
/ION/
/AL /
/UNI/
/TS /
/70 /
/FOR/
/MAT/
7/ - 7
/ABO/
/RTI/
/NG/<00>
<00»>
/sNs/
/ASF/
/TLE/
/RR-/
7/ IN/
/IT /
/COD/
/E R/
/E-E/
/NTE/

.ASCII
.ASCII
.ASCII
.ASCII
LASCITI
LASCII
LASCII

13:19:09
13:16:08

VAX-11 Bliss-16 V3 555

SPIDERS$
: [NEALE.AZTEUSER
C ;ZRCHB2.816
S
;5

P AEI
P _AEY
P.AEK
P AEL
P _AEM

/RED/
s DU/
/E T/
/0 P/
/WR /
/FAIL/
/L/<00>

SEQ@ 0091
Page
47

(13,

B8
ZRCHB?

REV 8 PATCH 00

011434
011437
011442
011445
011450
011453
011456
011461
011464
011467
011472
011475
011500
011503
011506
011511
011514
011517
011522
011525
011530
011533
011536
011541
011544
011547
011552
011555
011560
011563
011566
011571
011572
011575
011600
011603
011606
011611
011614
011617
011622
011625
011630
011633
011636
011641
011644

011647

011652
011655
011660
011663
011564
011667
011672
011675
011700

045
101
124
122
040
117
111
040
123
101
040
115
105
122
122
123
045
101
124
122
040
114
101
116
102
040
040
111
040
114
124
000
045
101
124
122
040
115
040
040
130
105
125
124
120
040
122

124

107
105
111
000
045
101
124
122
040

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

SECTION

116
044
114
122
101
122
116
110
124
116
122
117
040
117
101
000
116
044
114
122
111
105
114
125
105
117
125
124
123
105
105

045
106
105
055
102
124
107
117
040
104
105
124
120
107
115
000
045
106
105
055
114
107
040
115
122
106
116
123
105
103
104

P.AET:

116

045

P.AEV:

114
111
117
123
124
116
116
123
105
106
115

111
124
106
111

040
111
040
122
117
101

040
123
117

123
123
116

116
044
114
122
122

045
106
105
055
103

044
114
122

111

S Apr-1984

106
105
055

P.AEVU:

105

116

,ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCTI
LASCII
LASCII
.ASCII
.ASCI1
LASCII
.ASCII
ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
JASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
ASCII
.ASCII
LASCII
ASCII

/BER/
7 OF/
7 UN/
/1IT1S/
7 SE/
/LEC/
/TED/
<00»
/s#Nw/
/ASF/
/TLE/
/RR-/
/7 LI/
/MIT/
7/ OF/
7 S/
/XTE/
/EN /
/UNI/
/7S /
/PER/
7 FO/
/RMA/

LASCII
LASCII
LASCII
ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII

/G S/
/ESS/
/ION/
<00»
/%Ns/
/AsF/
/TLE/
/RR /
7/ RC/

LASCII

P.AEW:

/wNw/
/AsF/
/TLE/
/RR-/
7 AB/
/ORT/
/ING/
7/ MO/
/ST /
/AND/
/ RE/
/MOT/
/E P/
/ROG/
/RAM/
/5/¢<00>¢<00>
/sNw/
/AsF/
/TLE/
/RR-/
7/ IL/
/LEG/
/AL 7/
/NUM/

/TIN/

Apr-1984

13:19:09

13:16:08

VAX-11 Bliss-16 v3-555

:EO 0092

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2 . 816 5

(13,

C8
ZRCHB?

REV B PATCH OO0

ZRCHBO RC25 DISK F ORMATTER

GLOBAL

011703
011706
o11711
011714
011717
011722
011725
011730
011733
011736
011741
011744
011746
011751
11754
011757
011762
011765
011770
011773
011776
012001
012004
012007
012012
012014
012017
012022
012025
012030
012033
012036
012041

062
103
124
114
122
116
111
111
124
116
122
122
045
101
124
122
040
117
103
040
117
124
116
122
122
045
101
124
122
040
115
116
101

065
117
122
114
040
111
101
132
111
040
122
000
116
044
114
122
120
124
117
126
114
111
040
122
000
116
044
114
122
103
115
111
124

012052
012055
012060
012063
012066
012070
012073
012076
012101
012104
012107
012112
012115
012120
012123
012126
012131
012134
012137
012142
012145
012150

101
116
040
122
000
045
101
124
122
040
120
105
105
101
111
040
124
040
111
101
132
107

040
111
105
117
000
116
044
114
1c2
104
040
122
122
103
126
101
105
111
124
114
111
000

012044
012047

117
101

116
122

TEXT

S5 Apr 1984 13:19:09

SECTION

040
116
117
105
111
124
114
101
117
105
117

04S
106
105
055
122
117
114
111
101
117
105
117

P.AEX:

045
106
105
055
117
125
103
111

P.AEY:

040
105

/25 7/
/CON/
/TRO/
/LLE/
/R 1/
/NIT/
/IAL/
/IZA/
/T10/
/N E/
/RRO/

.ASCII
,ASCII
LASCII
.ASCII
.ASCII
JASCII
.ASCI1
.ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII

/R/<00>
/sNw/
/AsSF/
/TLE/
/RR-/
7 PR/
/0T0/
/COL/
7 vlv/
/0LA/
/T10~/
/N E/
/RRO/

LASCII
.ASCII
.ASCII
LASCII
ASCII
.ASCI1
LASCII
.ASCII
.ASCII

/R/<00»
/sNw/
/ASF/
/TLE/
/RR-/
s COs
/Mu/
/NIC/
/ATI/

LASCII
.ASCII
ASCII
.ASCII
ASCII
.ASCII
ASCII
LASCII
ASCII
LASCII
LASCII
.ASCII
ASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
JASCII

/A 1/
/NIT/
7 ER/
/ROR/
<00><00>
/#Nw/
/ASF/
/TLE/
/RR-/
s DU/
/P S/
/ERvV/
/ER /
/ACY/
/IVE/
7 AF/
/TER/
7/ IN/
/ITl/
/ALIL/
/7ZIN/

LASCII

/G/<00»

.ASCII
.ASCII

111
124
122
122

045
106
105
055
125
123
126
040
124
105
106
122
116
111
111
116

LASCITI
LASCITI
LASCII
LASCII
LASCII
.ASCII
.ASCII
ASCII
LASCII
.ASCII
.ALCII

P.AEZ:

/ON /
/ARE/

Rpr-1984

13:16:08

VAX-11 Blies-16 V3 555

)Eopgges 49

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHB2.B16;S
:

(13,

D8
ZRCHB.

REV B PATCH 00

012152
012155
012160
012163
012166
012171
012174
012177

ZRCHBO RC25 DISK FORMATTER

GLOBAL

TEXT

012221
012224
012227
012232
012235
012240
012243
012246
012251
012254
012257
012262
012265
012270
012273
012276
012301
012304
012307
012312
012315
012320
012323
012326
012331
012334
012337
012342
012345
012350
012353
012356
012361
012364
012367
012372
012375
012400
012403
012406
012411

045
101
124
122
040
120
105
105
111
103
126
101
105
105
123
137
117
103
115
104
105
105
106
040
114
116
105
117
105
117
040
111
116
105
130
072
122
065
111
040
105
123
122
040
104
123
122
065
116
122
120
126
124
040

116
124
105
106
122
130
125
120
107
117
101
000
116
122
103
106
105
101
040
040
123
122
050
114
101
056
124
040
103
040
120
040
107
124
040
101
122
123
103
040
124
122
124
105
117
101

045
106
105
055
125
123
126
040
101
111
040
124
040
137
120
122
040
115
116
000
124
040
124
111
040
115
124
122
124
105
106
105
115
105
051
000
062
040
040
122
111
105
040
104
105
000
062
111
105
125
040
103
122
104

012417
01e422

123
122

123
103

000
062

012202
012205
012210
012213
012216

012414

104

116
044
114
122
104
040
122
122

122

5-Apr-1984

SECTION

S5-Apr-1984

P.AFA:

,ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
ASCII
.ASCII
.ASCII

P.AFB:

P.AFC:

P.AFD:

105

.ASCII
.ASCII
.ASCIT
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
ASCII
ASCII
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCII
ASCII
.ASCII
ASCII
.ASCII
.ASCIT
ASCIT
.ASCII
ASCIT
.ASCIT
ASCIT
.ASCII
.ASCII
ASCIT
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII

P.AFE:

.ASCII
,ASCII

/#Nw/
/ASF/
/TLE/
/RR-/
/ DU/
/P S/
/ERV/
/ER /

/INA/
/CT1/
/VE /
/AFT/
/ER /

/EX_/
/SUB/
/ PR/
/G /
/COM/
/MAN/
/D/<00><00>
/ENT/

/ER /
/FCT/
/ F1/
/LE /
/NAM/
/E T/
/0 R/
/EST/
/ORE/
/ (F/
/ILE/
/NAM/
/E.E/
/xi)/
/: /¢00>
/RC2/
/5
/
/1P /
/
R/
/EGI/
/STE/
/R
/
7 AD/
/ORE/
/55/<00>
/RC2/
/5 1/
/NTE/
/RRU/
/PT /
/VEC/
/TOR/
/ AD/
/DRE/

/55/<00>
/RC2/

13:19:09

13:16:08

VAX-11 Bliss-16 V3555

Ooa0e. 50

SPIDER$USERS:{NEALE.AZTEC )ZRCHB2.B16;5

(13
)

E8
ZRCHB?

REV

B PATCH 00

012425
012430
012433
012436
01244]
012444
012447
012452
012455
012460
012463
012466
012471
012474
012477
012502
012505

012510
012513
012516
012521
012524
012527
012532
012535
012540
012543
012546
012551
012554
012557
012562
012565
012570
012573
012576
012601
012604
012607
012612

012615

012620
012623
012626
012631
012634
012637
012642
012645
012650
012652
012655
012660
012663
012666
012671
012674

ZRCHBO RC25 DISK FORMATTER

GLOBAL

065
040
125
040
105
105
040
114
105
125
124
116
102
040
040
111
040

040
040
123
040
121
123
040
105
114
116
049
125
105
124
102
116
040

106
115
040
040
101
105
105
122
117
101
115

117
101
111
125
124
116
104
105
122
124
117

116
116

105
045

101
052
052
052
052
052
052
052
117
103
052
052
052
052
052
052
052
000
045
101
040
117
122
117
115

114
105

000
116

052
052
052
052
052
052
052
040
124
105
052
052
052
052
052
052
052
000
116
040
040
120
101
122
125

TEXT

S5-ARpr-1984

SECTION

040
102
040
122
125
124
040
126
000
111
040
115
122
117
122
107
117

111
000
122
124
116
116
124
104
040
106
115
040
104
000
045
052
052
052
052
052
052
052
116

S-Apr-1984

P.AFF:

P.AFG:

/S
/
/7
B/
suS /
/7
R/
/EQU/
/EST/
7
v/
/LEV/
/EL/<00>
/UNI/
/T
7/
/NUM/
/BER/
/ T0/
/ BR/
/ING/
/7
O/

.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/FOR/
/MAT/
7/ IN/
/7 UN/
/ATT/
/END/
/€D /
/REF/
/0RM/
/AT /

LASCI1
LASCII

.ASCII

P.AFH:

111

P.AFI:

/NLI/
/NE/<0O>

/MOD/

ASCII
_ASCII

/E/<00><00>
/sNs/

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/sse/
/sse/

LASCII
LASCII

.ASCII

040
052
052
052
052
052
052
052
045
040
040
105
1c4
040
123

.ASCII
LASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
LASCII
LASCII
_ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII

/Aee/
/ess/

/eeey
/eeas
/sss/
/e N/
/0TI/

/CE

/asey
/eooys
/essy/
/ese/
/see/
/see/
/ses/
<00><00>
/sNs/
/A
7/
7
7/
/OPE/
/RAT/
/0R /
/MUS/

13:19:09

13:16:08

VAX-11 Bliss-16 V3 555

SEQ 0095
Page
51

SPIDE
[NEALE
RSUSE
.AZTEC )ZRCHB2.B16;5
RS:

(13)

F8
ZRCHB?
REV

B PATCH 00

012677
012702
012705
012710
012713
012716
012721
012724
012727
012732
012735
012736
012741
012744
012747
012752
012755
012760
012763
012766
012771
012774
012777
013002
013005
013010
013013

124
105
122
105
040
040
124
104
040
104
000
045
101
040
040
125
111
040
040
055
124
104
040
106
115
040
104

ZRCHBO RC2S5 DISK FORMATTER

GLOBAL

TEXT

SECTION

040
040
105
116
111
101
105
105
115
105

102
120
123
124
116
124
116
104
117
040

116
040
040
040
116
116
111
125
101
105
105
122
117
101
115
105

045
040
040
122
116
107
116
116
124
116
104
105
122
124
117
000

P.AFJ:

.ASCII
.ASCII
.ASCII
LASCII
LASCIXI
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
_ASCII
JASCII
JASCIXI
JASCII
CASCII
.ASCII
{ASCI1
LASCII
.ASCII
LASCII
.ASCII
LASCII
.ARSCII
.ASCII
.ASCII
.ASCII

.PSECT
COM.AREA:
:

000050

HEAD.AREA:;

000052

RECEIVE.RING:
:

000054

SEND.RING::

000456

.BLKW

.BLKW
REC.ENVELOPE
: :
.BLKW

1
200

.BLKW

130

.BLKW

400

.BLKW
SND.BUF
:
.BLKW
OUTSSTD.BUF
; ;
.BLKW

170

SND . ENVELOPE
; :

001736

REC.BUF
::

002450

sGLOBS,

FCT.BUF
::

002430

13:19:09

RO,

GBL

RET.ENSAD::

45
10

LBLKW

002452

DATETXT:
:

002466

FLG.WRD:
:

.BLKW

13:16:08

/T 8/
V/E P/
/RES/
/ENT/
/7 IN/
/ AT/
/TEN/
/DED/
/7 MO/
/DE /
<00»>
/wNws/
/A
7/
7/
/
/
R/
/UNN/
/ING/
7/ IN/
7/ WUN/
/-AT/
/TEN/
/DED/
/ RE/
/FOR/
/MAT/
7 MO/
/DE/<00>

.BLKW

000736

002316

1984

S-Apr-19684

000000
000000

000056

S-Apr

5EQ 0096
Page
S2
SPIDERSUSERS: (NEALE.AZTEC )ZRCHB2.B16;5 (13)

VAX-11 Bliss-16 v3-555

G8
ZRCHB?

REV B8 PATCH OO0

ZRCHBO RC2S DISK FORMATTER

S Apr-1984

GLOBAL TEXT SECTION

S-Apr-1984 13:16:08

002470

NEX.FLAG::

002472
002474

OVSA::
.BLKW
NXT.CRN::

002476

000000

002500
002502
002506
002510
002512
002514

002520

002522
002524

003777

002526

000000

02,2530
02532
002534

003400
0C3777
007777

002536

111033

002540
002542
002544
002546
002550
002552

.BLKW

.BLKB
.EVEN

.WORD
LUN::
.BLKW
PID.SAVE::
.BLKW
NSD.SLOT::
.BLKW
NRD.SLOT::
BLKH
RC25.ADDR:
.BLKN
VEC.ADDR:
:

0
1

010222
000010
023433
000000
043777
177400

000126°
000154°
000140’
000011"
000140°
000154°
000000°
000006
000076
000204°
000270

RET.STATUS::

.BLKW

002516

13:19:09

2
1
1

BR.LEVEL
::
.BLKW
UNIT.NO::

.BLKW

PTBL.PTR::
BLKH
RSVD.STRUCT:
HORD

1
3777

.MORD

UORD

7777

. WORD
. WORD
. WORD
. WORD
. WORD
.WORD

10222
RINGBASE
23433
]
43777
-400

.GLOBL
.GLOBL
.GLOBL

LS$SOFT, TsPTHV, LSRPT, LSINIT
L SCLEAN, LSLAST, LS$SHARD, L$DVTYP
L S$DESC, L$DU, L$AU, LS$AUTO, T1

.WORD
ORD
ISD. STRUCT

-MORD

LSERRTBL =~
L$SW==
Lé$HW==
L$DEPQ==
DFPTBL ==
SFPTBL==
FMil»=
FMT2=s
FMT3=a
FMT4=s
FMTS==

3400
3777

-66745

ERRTYP
L $SWLEN.?2
LSHWLEN?2

LS$REV.1
LSHWLEN.2
LSSWLEN.?
P.AAA
P.AAB
P.AAC
P.AAD
P.ARE

VAX-11 Bliss-16 v3-555

:EO 0097

SPIDERSUSERS: [NEALE .AZTEC]ZRCHB? 816 S (13)

H8
ZRCHB?

B8 PATCH 00

GLOBAL

TEXT

S-Apr-1984
S-Apr-1984

SECTION

000400
000476
000544°
000646
000652
000010
001740’
002660
004660
010214°
010546
011210
011242
011274
011352
011434
011514’
011572’
011664
011746’
012014
012070’
012152°

FMT6==
FMT7=»

P.AAF
P.AAG

XCRLF ==
RINGBASE ==
MSGADR ==
PFE.STRUCT==

P.ARJ
COM.AREA+10
REC.BUF
+2
P.AAK

012246°
012326

FCT REQ.MSG==

PIDO.FMT=s
CRLF ==

EMSG.STRUCT ==

P.ACG

PWR MSG=»
ABO . MSG==

P.AES
P.AET

PROTO.VIOLATION==

P.AEX

ACTIVE.OUP.SERVER==

P, AEZ

P.ADU
P.AEC
P.AEQ
P.AER

TO.MANY (UNITSG==
GOOD .NUM UNITS==
BOOT .FAILURE ==

P.AEU
P.AEV
P.AEW

PORT . INIT . ERR=>»

P.AEY

INACTIVE
.OUP SERVER==

W.Q1.IP=»

HH.QZ.VECTOR"
HW.Q3.BR==
HW . Q4 . UNIT==
SW.Q1.UNATTa.

012422
012460
012516’
012562
012652
012736

SW.Q2.NOTICE==
SW.Q3.0PER=»
4
. UNATT=»
SW.Q

PSECT

Psect Name

LIBRARY

LAFA
.AFB
LAFC
.AFD
.AFE
.AFF
.AFG

LAFH

AFI

JAF
Y

SUMMARY

Words
59
694
2823

AASCODE
sGLOBS
SPLITS

Attributes
RO,
I
RO,
D
RO,
O

LCL,
,
GBL
GBL
,

REL,
REL
,

REL
,

CON
CON
CON

STATISTICS

File

-- Totel

Symbols
Loaded

Percent

Blocks

Read

8¢

®e

P.ABI

RC.STRUCTURE - »

SDUP,STRUCT ==
SMSCP.STRUCT=»
DATMSG=»
NO.ADD.UNITS==

012364°

13:19:09
13:16:08

P.AARH
P.AAI

VODVDVOVVDOODLYD

REV

ZRCHBO RC2S DISK FORMATTER

SPIDERSUSERS:
[NEALE .AZTEC]ZRCHBO.L16;2
398

176

4°

SEQ 0098
VAX-11 Bliss 16 v3 555
age
54
SPIDERSUSERS: [NEALE,AZTEC )ZRCHB2. 816 5 (13,

ZRCHB?

REv

PATCH

ZRCHBO RC2S DISK FORMATTER

GLOBAL

TEXT

SECTION

i
:
:

COMMAND

BLISS
ST ce:
Run T 'me:
Elapsed T

Memory

Comp

me:

Used:

POPL11/LIST

ZRCHB?.B16

O code + %576 data words
00:25.5
02:03.2
209 pages

lat on Complete

S Apr 1984 13:19:09

QUAL
IF IERS

Apr

1984

13:16:08

VAX-11 Bliss 16 V3 555

EO 0099

SPIDERSUSERS: [NEALE.AZTEC JZRCHB?2. 816 5

13,

J8
ZRCHBO RC25S DISK FORMATTER
0001
0002
0003

MOOWLE

ZRCHB3

0005
0007

0008
0009
0010
0011
0012
0013
0014
0015
0016

1505
1506
1507

ssbtt]l

3EQ 0100
VAX-11 Blisesg-16 v3-555
age
SPIDERSUSERS: [NEALE.AZTEC JZRCHB Y. 816 S (1)

'MODUWLE

DECLARATIONS'

]

5 Pretty Declarations
.

! <BLF /LOWERCASE
KEY»>
]

library

'ZRCHBO'
;

10efine RC2S Library module

require

'BLSMAC.REQ’;

'Define Bliss Macro Library

Structure declarations used within

this module.

structure
*

V0
G2
VI
G2
¢
GF
S0
Ve
G0
G0
B9
G
Vs
09
B¢
W
G¢
W
G5
B
B0
B¢
@5
B8
@6
B

1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534

13:33:45
13:31:29

(STITLE 'ZRCHBO RC2S DISK FORMATTER'
IDENY = 'REV B PATCH 00',
ADORESSING MODE (RELATIVE) ,
ENVIRONMENT (NOEIS)
)

BEGIN

S Apr-1984
S Apr-1984

O+

©F

_Gs

ZRCHB2

RC25
register
accessing
structure, This
structure
allows
RC25 register access ng
to
be trensportable between the PDP-11 and
VAX Diagnostic Supervisors.
This
also
defines an access algorithm for
VAX to asllow field reference to MBA address

space

RC2S (0,

begin

without

generating

machine

checks.

locel

RC$S_REG;

RC$S_REG
RC$S_REG
end

‘pc

'1<blf/page>

S. E>;

.(RC2S

wupvale0)<0,

sbpvel,

0>;

I<8
ZRCHB3

@¢

B¢

REV

B PATCH 00

1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553

ZRCHBO RC2S DISK FORMATTER

S5S-Apr-1984

MODULE DECLARATIONS

S-Rpr-1984

The
psect
named "code
or
$codes”
is redefinded here
to
be
cealled "aatcode”.
This is done to force the tkb

linker to place the programs header

information starting

at absolute address
2000.
Then for consistency
is
used
inplace
of "code or $code” across all

6sect

code

aascode;

!
|

External
.

Routine declared outside th's module.

external routine
DECODE : novalue,
LOAD_FILE;

1<blf/page>

“ascode”
modules.

13:33:45

13:31:29

0 101
Pa g
SPIDER
: [NEALE
S$U
.AZTEC JZRCHB3.8
SER
16;5
S )

VAX-11 Bliss-16 V3-555

SEQ

L8
ZRCHB3

B¢

Vs VT

B¢

G B¢

O U

€0

REV B8 PATCH 00

1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610

ZRCHBO RC2S5 DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984
S5-Apr-1984

13:33:45
13:31:29

SEQ 0102
VAX-11 Bliss-16 Vv3-555
SPIDERSUSERS: [NEALE.AZTEC]ZRCHB3. 8165 (3)

External Declaration of

datums declared outside of this module.

external
]

! DM load file from local media definitions

[]

1DM_FNSEXT,
AZFMTR : vector
OVSA : word,

(8989,

word],

[}

'OM file name ascii text
'DM host buffer adrs
!0Overlay section starting adrs

! Hardware question ascii string messages
.

HW_Q1_IP,
HW_Q2_VECTOR,
HW_Q3_BR,
HW _Q4 _UNIT,

'H/W
'H/W
'H/W
'H/W

question
question
question
question

1
2
3
4

for IP reg address
for interrupt vector address
for bus req level
for unit no. to format

! Software question ascii string messages

[]

SW_Q1_UNATT,
SW_Q@2_NOTICE,
SW_Q3_OPER,
SW_Q@4 __UNATT,

'Unattended reformat software question
'Notice message
'Operator must be present in this mode
tRunning in unattended mode

]

' Formatting print string
]

FMT2,

INotifies unit being formatted
'Notifies format abort

FMT3I,

CRLF,

t<CR><LF>

Prints

XCRLF,

ten

! Init code error and informational messages
[}

NO_ADD_UNITS,

PWR_MSG,

ABO_MSG,
TO_MANY _UNITS,
GOOD _NUM_UNITS,
DATMSG,
1}

'Message

to ask

operator

‘Global

flag word

for date

g Miscellaneous external data declarations
FLG_WRD : bitvector [16],
PTBL_PTR

DATETXT
]

]

ref vector

vector [12,

[4,

word],

bytel,

Supervisor defined data declarations

LSUNIT,
4

!
]

Hardware P_Table storage declarations

RC25_ADDR : ref RC25
VEC_ADOR : word,

field (ISD_FIELD),

!Storage for operator date

input

M8
ZRCHB3

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

MODUWL.E

DECLARATIONS

1611

BR_LEVEL

{g{g

:
H

1612
1613

UNIT_NO
'
.

word,

Software question response storage declarations

1616
1617
lglg

SW_UNATT : word,
!
! Formatter data structures

1620

ISD_STRUCT

161

1621

S-Rpr-1984

word,

:
H
:
H

S-Apr-1984

blockvector [4,

word]

field (ISD_FIELD);

13:33:45
13:31:29

VAX-11 Bliss-16

V3-555

SEQ 0103

SPIDERS$USERS: [NEALE.AZTEC JZRCHB3. 816 5 (3)

N8
ZRCHB3

REV

B PATCH OO

1622
1623
1624
1625
1626
1627
1628
%ggg

1631

1632

ZRCHBO RC25 DISK FORMATTER
TYPE

5-Apr-1984 13:33:45

AND DESCRIPTION

S-Apr-1984

13:31:29

wsbtt]l 'TYPE AND DESCRIPTION'
!
! Two lines of text will be printed to the operator (in addition to
the
! proqram name).
The first will come from the "DESCRIPT” mecro at start
! up time and will identify the diagnostics.
The second will come
from
! the
"DEVTYPE"
macro
at hardware dialogue time and will identify the
! device under test.
The arugments of
both
macros
are
72
character
! ascii strings enclosed in parenthesises:
L]

DESCRIPT (sasciz'RC2S DISK FORMATTER'
);
DEVTYP (sasciz'RC25 DISK DRIVE

SUBSYSTEM);
'

VAX-11 Bliss-16 v3-555

€EQ

0104

> QPaée

SPIDERS$
{NEALE .AZTEC)ZRCH
USER
B3.B16;5
S:

(4)

B9
ZRCHB 3

REV B8 PATCH 00

:
H
H
:
:
:
H
:
H
:
:
3
:
:

16;2
16
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647

ZRCHBO RC2S DISK FORMATTER
HARDWARE PARAMETER CODING

S-Apr-1984

ssbtt]l *HARDWARE PARAMETER CODING'
e
! The
hardware parameter
coding section containe macros
! that are used by the supervisor to build P-Tables.
The
! macros are not executed as machine instructions but are
! interpreted
by the supervisor as dats structures.
The
! macros sllow the supervisor to establish communications

13:33:45

13:31:29

VAX-11 Blises-16 V3 555

SEQ@ 0105

Page

SPID:ERSU
[NEALE ,AZTEC SERS
)ZRCHB3.B15;5

! with the operator.
BGCGNMRD;
GPRMA (v _Q1 _IP, #0'0’', O, #0'16000', %0'177777', YES, 1);
!Get RC25 Controller IP register
GPRMA (MW _Q2_VECTOR, #0'2‘', O, 4, ®0°'774°, YES, 1)
!Get RC25 Interrupt Vector address
GPRMD (MW _Q3_BR, wo'4', O, #o0'177777*, O, 7, YES, 1);
!1Get RC2S Bus Request Priority
GPRMD (MW _Q4 _UNIT, #0'6', D, %0'177777', O, sdecimal'253', YES, 1);
'Get unit number to format
ENDOHRD;

(S5)

C9o
ZRCHB X

REV 8 PATCH 00

ZRCHBO RC2S DISK FORMATTER

SOFTWARE PARAMETER CODING SECTION

S Apr 1964 13:33:45

S Apr-1984 13:31:29

}g:g

?sbttl

* SOF TWARE PARAMETER CODING SECTION'

;

1650

i The

software parameter coding section contains mecros

H
:
:
:
H
H

1651
1652
1653
1654
1655
1656

!
!
!
!
!
!

that are used by the supervisor to build P Tables.
The
macros are not executed as machine instructions but are
interpreted by
the supervisor as data structures.
The
macros allow the supervisor to establish communications
with the operator.

1657 BGNSFT;
1658
1659

GPRML (SW_Q1_UNATT,
ENOSFT;

YES,

1);

VAX-11 Bliss-156 V3 555

SE°}°1°°

SPIDEROUSERS:[NEALE.AZTEC]ZRCHBS.!IGag.?GJ

D9
ZRCHB3
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S Apr-1984

REPORT

CODING SECTION

'REPORT CODING SECTION'

S Apr-1984

13:33:45

VAX-11 Blies-16 V3-555

13:31:29

1660
1661

webtt]l
!.

1663

:
:
H
:
:

1665
1666
1667
1668
1669

¢! tained
in
the
section.
However, an externally located DORPT ceall, or
! a
print
command
from the operator, may be used to request
the
execu! tion of the report coding.
! BGNRPT;

H
:
:
H

1671
167§
167
1674

1662
1664

1670

The

will

statisticel

macros

report

coding section contains

used to generate statistical reports.

are

used

begining and ending directives

000031
000034
000037
000642
000045
000050
000053
000056

000060

!
! Report summary coding
H
ENDRPT;

that

'ENDRPT’

the codin

con

ZRCHB3 ZRCHBO RC25 DISK FORMATTER
/REV B /

122
065
111
040
122
124
122

103
040
123
106
115
124
000

062
104
113
117
101
105

.PSECT
LS$DESC:: .ASCII
.ASCII
LASCII
LASCIYI
.ASCII
LASCII
LASCII

AASCODE,
/RC2/
/S D/
/ISx/
7 FO/
/RMA/
/7TTE/
/R/<00»

122

103

062

.BLKB
LSOVTYP:

065
111
040
111
040
102
123
115

040
123
104
126
123
123
124
000

104
113
122
105
125
131
105

.ASCII

/S D/
/ISx/
7 DR/
/IVE/
7 Ssu/
/BSv/
/STe/
/M/7<00>

.BLkB

LSHRDUN:
:

000064
000066
000070
000072
000074
000076

000031
0000006
016000
177777
001031
0000006

GP$1::

GP$2::

GP$3::

GP$4::

. WORD

.WORD
. WORD
. WORD
. WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD

/RC2/

LASCII
LASCII
LASCITI
.ASCII
.ASCII
LASCII
.ASCII
LASCII

0Q00000C

000004
000774
002032
0000006
177777
000000
000007
003052

for

and

is remote program driven

000062

000100
000102
000104
000106
000110
000112
000114
000116

'BGNRPT'

return;

LTITLE
.IDENT
000000
000000
000003
000006
000011
000014
000017
000022
000024
000026

the PRINTS macros

The

<< <L SNDHRD
-L SHRDLN>/2>

31
HW.Q1.IP
16000
1
1031
HW.Q2.VECTOR

4
774
2032
HW.Q3.BR
1
0
7
3052

SPIDERSUSERS: [NEALE,AZTEC JZRCHBS. 816;5

:
:
:

SEQ 0107
(7

E9Q
ZRCHB3

REV 8 PATCH 00

000120
000122
000124
000126
000130

000000CG
177777
000000
000375

000132

000000C

000134
000136
000140
000142

000130
000000G
000001

ZRCHBO RC2S DISK FORMATTER

REPORT

CODING

S Apr-1984
S Apr 1984

SECTION

.WORD
.WORD
.WORD
.WORD
LS$NDHROD:;
.BLKW
LS$SFTLN::
.WORD
GP$5::
.WORD
.WORD
.WORD

;:
:

130
SW.Q1.UNATT
1

;

LRPT:

004767
104425
000207

Routine Size:

Maximum

stack

OECODE,

4 words,

depth per

LSRPT::

Routine Base:

invocation:

2 words

LOAD.FILE,

AZFMTR,

OVSA

HW.QLl.IP, HW.Q2.VECTOR, HW.Q3.BR
HW.Q4 .UNIT, SW.Q1.UNATT, SW.Q2.NOTICE

SW.Q3.0PER,

FMT3,

CRLF,

SW.Q4
. UNATT,
XCRLF,

FMT2

NO.ADD.UNITS

PWR .MSG, ABO.MSG, TO.MANY UNITS
GOOD
.NUM _UNITS, DATMSG, FLG.WRD
LUN, PTBL.PTR, DATETXT, LSUNIT
RC25.ADDR, VEC.ADDR, BR.LEVEL

UNIT.NO,

SW.UNATT,

ISD.STRUCT

LS$HRDLN.2

L$SFTLN.2

.SBTTL

LRPT REPORT
PC

RTS

Rout ine Base:
AA$CODE
invocation:
O words

177772

L$SOF T=s»

Routine Size:
1 word,
Maximum stack depth per

000000
000004
000006

000207

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

000000

V3-555

-1
0
375

.BLKW

==
L$HARD

SEQ O 108
Pa Qe
SPIDE
[NEALE
RSUSE
.AZTEC )ZRCHB3.B16;5S
RS: (7)

VAX-11 Blies-16

HW.
G4 UNIT

LSNDSFT::

000064
000134

13:33:4S
13:31:29

.SBTTL

AASCODE

PC,LRPT

PC
+

1659

1670

0144

LSRFT REPORT

JUSR
TRAP
RTS

CODING SECTION

0146

CODING SECTION

F9
ZRCHB3

REV

H
:
:
:
:
H
H
;
H
:
:
H

H
:
H
H

:
H

H
:
:
:
H
:
:
H
:

B8 PATCH 00

1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
163;
16
1689
iggo
1
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703

1704

ZRCHBO RC25 DISK FORMATTER
INITIALIZE

!
!

The
conditions
wunder which the
corrresponding event flags are:

!
!
!

!
!
!
!
!
!
¢
!--

!
!

H
H
H
:
H

1708
1709
1710
1711
1712

! of
.

:
:
:
H
:
H
H
H

1713
1714
1715
1716
1717
1718
1719
1720

1721
1722
{;gi

1725
1726
1727
1728
1729
1730
1731

5-Apr-1984

13:31:29

VAX-11 Bliss-16 v3-555

init code

START COMMAND
RESTART COMMAND
CONTINUE COMMAND

Example of event
+ £

EF .PWR
EF .NEW

flag use:

READEF(EF .START)
START _FLAG

then

First
read
the
event flag
EF PWR
performed due
to
a
system
power

incident

is executed and the

EF .START
EF .RESTART
EF .CONTINUE

POWERDOWN/POWERUP
NEW PASS

the operator and abort

this program.

to see
fail.

if
If

init code
is being
is
then
report the

the DM machine and further execution

if READEF (EF_PWR)
then
in
PRINTB (PWR_MSG);
PRINTB (ABO_MSG);
WRT _RC25 (RCIP, ONES);
DOCLN;
end;

¢
!
!

this
it

!Is

the PUR event

flag set

'Report the incident and abort
‘Power fail print message
'Aborting program message
!Abort DM code execution
!Abort further program execution

See if the DRS commends START or RESTART were used to start
this formatting session.
If either of them were used then
start the formatting session at logical unit zero.

if (READEF (EF_START)) or (READEF (EF RESTART))
then
begin
'
! Check the operator for triing to format
! more than the defined
limit.
If they

SEQPOIO9
age

SPIDERSU
: [NEALE .AZTEC
SERS
]ZRCHB3.B16 iS5

e
! The
initialization code is executed at tre beginning of every
! sub-pass
and
is primarily used for requesting P_Tables.
Any
! other
set-up type functions may also be performed in the init
! code.
!
! The
initialize code is executed under five conditions.
There
! are supervisor event flags that are used to let the diagnostic
! know under which condition the execution is taking place.
The
! event flags are read using the "READEF" macro.

1705
1706

1707

SECTION

13:33:45

#sbttl 'INITIALIZE SECTION'
BGNINIT,

;
5

S-Apr-1984

'Did start of restart get us here

(8)

(9
ZRCHB3

®e B0 S5

B¢

G¢

€0 G0

G5 V0

REV 8 PATCH OO0

1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755

ZRCHBO RC2S5 DIS% FORMATTER
INITIALIZE

SECT.iON

then

are

if LSUNIT
then

begin

PRINTB
PRINTB

DOCULN;

1764

error

SEQ O 110
VAX-11 Bliss-16 V3 555
Pa Qe
11
SPIDERS$
: [NEALE .AZTEC
USER
)ZRCHB3.B16K;
S
5 (8)

13:33:45
13:31:29

and die.

gtru LSLIMIT

!Is the formatting limit exceeded

(TO_MANY_UNITS);
(GOOD_NUM_UNITS);

'‘Report the error
!Tell him/her the limit
'Go to cleanup and die

Test to see if this host code is to run in UNATTENDED REFORMT MODE.
If it is then ask the operator for the date.
If not then tell the
operator that an operator must be present during this formatting.
if . SW_UNATT
then

begin
’

i Clear out the date text buffer before loading

in date.

]

incr

i« from O to
DATETXT (.i]

GMANID (DATMSG,

else

176S

1766

1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

the

end;

1756

1757
1758
1759
1760
1761
1762
1763

report

S-Apr-1984
S Apr-1984

PRINTB
PRINTB
end

in
PRINTB
PRINTB
end;

11 do
= ZEROS;

DATETXT,

(SW_Q2_NOTICE);
(SW_Q4 _UNATT);

%o0'177777',

(SW_Q2_NOTICE);
(SW_Q3_OPER);

8, 10, NO);
‘Cet date from operator
'Print notice mcssogc
'‘Report running in
ATTENDED mode

'Print notice message
'Tell operator he/she must be present

Everything

looks

hardware question

LUN
do

good

so far,

responses

move

and save

on and

get

the

them.

-1;

!Stert

formatting at

logical unit

begin

LUN

_LUN

.LUN geau

!Up pointer

.LSUNIT

then DOCLN;

to next

'End host code

if no

logical

unit

logical

to GPHARD

units

end

until

(GPHARD (.LUN,

PTBL PTR)) nequ ZERO;

‘Repeat GPHARD s until P

Table adrs returned

! Get the P Table parameters for this unit and go format it.
1}

RC25 ADDR = .PTBL PTR (wrd0};

‘Ltoad up

the

controllers base

addres

ZRCHB 3

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

1789

VEC_ADDR

1791

BR_LEVEL

1795

1798

:
:

H
:

:
:

S Apr 1984 13:33:45

1730

. PTBL PTR

S-Apr-1984 13:31:29

([wrdl);

ISD_STRUCT [BLKO, WRD1, S1W_VADR)

1;35
1

UNIT _NO

1796
1397

Before

.PTBL_PTR (wrdl]);

.PTBL PTR

leaving

vAX-11 Bliss-16 V3 555

the

init

'v2.0

vector

‘Load up the unit number

code section we must

to format

first do some house keeping

! left behind from the ISD_STRUCT preset declaration.
The adapter purge interrupt
! bit must be defined for the type machine this formatter is
running under.

1799

1800
1801

if dbliss (blisslé)
then

}ggg

else

'Define compiler

ISD_STRUCT [BLK1,

WRDL1,

S2W_PI)

= ZERO

!No purging for PDP-11

ISD_STRUCT

WRD1,

S2W_PI])

= ONE;

!'Purging for VAX 11

1:8;

:
:
:

1806
1807
lggg

.o
! This commented code will load an external copy of the formatter from
! the local load media into azkel6é module space starting at AZFMTR : VECTOR

1811

:
:

:
H
H
H
H

1
1810

!
¢
¢
!
'

1818

'
!

!
!
H
!
!

1:58

:
:
H

1821
1822
1823

%:gg

H
!

1812
1813
1814
1815
%gig

Now losd

The DM code will only be read
nost code.
Block zero of the

!
¢

in global

!
!
z

:
:
:

1831
1832
1833

OVSA
end

H
H
H

1835
1836
iggg

:
;

1839
1840
1841
1842

1843
1844
1845

,word]

local boot device

Report

in during start! or
the
DM .sav file

load error

restarts of the
will thrown out.

(AZFMTR,

DM _FNSEXT,

DM_SIZE)

then DECODE

();

Now calculete the overlay sections sterting address and store the result

1827
1828
{ggg

:
H
H
:

in azkel6.

(

!--

H
:
H

in the RC2S formetter DM code from the

into the blenk buffer allocated
an error code ‘s returned.

if LOAD_FILE

]

1824

1834

(BLK1,

address

'Load up the controllers bus request

{wrd3);

else

locetion

‘QVSA’'

for

future reference.

This tekes the DM buffer starting adrs and adds to
in the (initiel losd ¢+ remote program header size:@
adrs of the overlasy section

AZFMTR

(.AZFMTR

[WRDO1));

't the number of bytes
resulting in the first

‘Calculate overlay

start

adrs

begin
'
!
3

The continue flag set will cause the current units formatting to be
sborted.
The next sequentiel logicel un't will then be
formatted.

‘f READEF (EF
then
beg
'n

'
!
'

11 12

SPIDERSUSERS: [NEALE.AZTEC JZRCHB T, 816 5 (8)

1Load up the controllers

_VEC ADDR/4;

)EO 01

CONTINE)

End this Host code if this .lun is the the last logical unit to format.
Else do snother GPHARD macro to get the next log cal unit to formet.

I9
ZRCHB*
8 PATCH 00

B¢

REv

000000

000010
000012

1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879

1880
1881
1882
1883
1884
188S
1886
1887
1888
1889
1890
1891
1892

1893

1894
1895

004167
012700

104447

103023

ZRCHBO RC2S DISK FORMATTER
INITIALIZE SECTION

S Apr-19684
5 Apr-1984

PRINTB (FMT3, .LUN. .UNIT _NO);
WRT _RC2S (RCIP.,
if

(.LUN

VAX-11 Bliss-16 Vv3-555
Page
13
SPIDER
(NEALE
SUS
.AZTEC)ZR
ERS
CHB3.B15:
:
5 (8)

'Report this luns format was sborted
!Abort this current units formetting

ONES);

gequ

5€Q 0112

13:33:45
13:31:29

.LSUNIT

then
)

PRINTB

(NO

OOCUN;

ADD UNITS);

'‘Report no more unit

to format

end;

The new pess event

been

formatted.

READEF

Flo? set means that all

Ther efore end this host

(EF NEW)

then

logicel unity have

code

to DS>.

!New pass means all

DOCLN;

Repeat doing
GPHARDS until @ non zero value
have been
HARD
' ed.
End this host code if
do

and return

units

formatted

is returned or all logical units
all logical units have been formatted.

begin

LUN
if

LUN

.LUN geaqu

'Up pointer

.LSUNIT

then

DOCLN;

to next

'End the host

'Repest unt'l

a P

all

logical
logical

unit
units GPHARD'
¢d

end

until

(GPHARD (.LUN,

PTBL PTR)) meaqu ZERO;

table adrs

is returned

' Get the P_Table perameters for this unit and go format 't.
RC25_ADOR = .PTBL_PTR [wrdO];

VEC_ADOR = .PTBL _PTR [wrdl);
ISO_STRUCT [BLKO, WRD1, S1W_VADR]
BR_LEVEL *» .PTHL PTR [wrd2];
UNIT _NO = .PTBL_PTR [wrd3);

‘Load uwp
!‘Load up

.VEC ADDR/4;

'Load up
‘Load up

end;

the controllers base addres
the controllers vector aodress

've.0

the controllers bus reguest
the unit number to format

g Tell the operstor which RC25 controller is being initialized this pass.
PRINTB (XCRLF);
PRINTB

(FMT2,

ENDINIT;

000000G
000034

.PTBL_PTR

!Space between each

{WRDO]);

LINIT:

.SBTTL

LINIT

INITIALIZE

JSR

R1,$SAVED

MOV
TRAP
8HIS

034 RO

formatting pass

SECTION
3

1o "4

1711

J9
ZRCHB3

REV B8 PATCH 00

000014
000020
000024
000026

000030
000034

000070
000072
000076
000100
000102
000110
000112
000116
000122
000124
000126
000132
000136
000140
000142
000144
000150
000156
000160
000162
000166
000170
000174
000176
000200
000202
000204
000206
000210
000212
000214
000216
000222
000226
000230
000232
000236
000242
000244
000246
000250
000254
000260

ZRCHBO RC2S5 DISK FORMATTER
INITIALIZE SECTION

012746
012746
010600
104414
012716
012746
010600
104414
012700
010077
104444
062706
012700

0000006
000001

012700

000037

104447
103404

104447
103167
026727
101417
012746

012746
010600
104414
012716
012746
010600
104414
104444
062706
032767
001434
005000
105060
005200
020027
003772
104443
000406
0000006
000142
000000G
177777
000010
000012
012746
012746
010600
104414
012716
012746
010600
104414
000414
012746
012746
010600

MOV

000000G
000001

177777
0000006
000006
000040

18:

MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
TRAP
ADD
MOV
TRAP

8Cs

MOV
TRAP

000000G 000020

2%:

BHIS
B8LOS
MOV

000001

MOV
MOV

000000G
000001

000006
000001

S-Apr-1984
S Apr 1984

000000G

3%:

000013

TRAP
MOV
MOV
MOV
TRAP
TRAP
ADD
8IT

BEQ
CLR
CLRB
INC

BLE

TRAP

.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD

000000G
000001

MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP

000001

0000006
000001

5%:

B8R
MOV
MOV
MOV

9PWR
. MSG, -(SP)
21, (SP)
SP.RO
14
#ABO,MSG, (SP)
o1, (SP)
SP,RO
14
€-1,R0
RO,8RC25.ADDR

13:33:45
13:31:29

SEQ 0113
VAX-11 Bliess-16 Vv3-555
Page
14
SPIDERSUSERS
: (NEALE .AZTEC)ZRCHB3.B16:5 (8)
3

1714

Spu‘

1715

SP,s

*,RCSM_REG

»
RCSM_REG,

1716

06, SP
940,RO
47?7

:
H

1713
1726

;

1735

1738

937,R0
47
9s
%80NIT.020
$
0TO.MANY .UNITS, -(SP)
o1, -(SP)
SP,RO

14
0GO0D . NUM UNITS,(SP)

01, -(SP)
SP,RO
14

Spo.

H
;s

1739
SP,s

1737
1749

:
H

06 ,5P
01,SW.UNATT
S
RO

DATETXT(RO)

P
3

¢
o(ID)

I,e

RO
RO,213
44
43
406

1756
1757

1756

1759

1760

DATETXT

142
DATMSG
-1
10
12
#SW.Q2.NOTICE,

(SP)

41, -(SP)

SP,RO
14

SP,RO
14
64

OSW.Q4.UNATT,(SP)
o1, (SP)

9SW.Q2.NOTICE,

(SP)

5P ,RO

(SP)

SP.‘

1761
SP,»

H
H
s

1749
176S
SP.s

K9
ZRCHB3
REV B PATCH 0O
000262
000264
000270
000274
000276
000300
000306
000312
000314
000320
000324
000326
000330
000332
000336
000340
000344
000346

104414
012716
012746
010600
104414

112767
105267
005000
156700
020067
103401
104444

000377
000000G
0000006

63:
7%:

000000G
0000006

012716
012746
010600

104414
104444

005726

INCB
CLR
8IS8
CMP
8LO

CLR
8Is8

TRAP
MOV

8EQ

MOV
MOV
MOV
MOV
MOV

010001

156700
005200
020067
103410

MOV
MOV
TRAP
MOVB

TRAP

8¢:

156700
104442
010067
001760

011167
016167
016716
012746
004767
010002

S-Apr-1984
S-Apr-1984
TRAP
MOV

0000206
000001

005000

042702
142767
050267
016167
016167
142767
016767
062767
022626
000523
012700
104447
103040
016746
005046
116716
012746
012746
010600
104414
012700
010077
005000

000534
000536
000542
000544
000550
000554
000556
000560
000562

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

00CG002

0000006

JSR
MOV

000177

0000026

000004

000000G

8IC
8ICB
B81S

MOV
MOV

8ICB
MOV
ADD

000036

9
:

B8R

MOV
TRAP

BHIS

0000006

MOV

0000006
0000006
000003

MOVB
MOV
MOV
MOV
TRAP
MOV
MOV

177777

0000006
0000006

0000006
0000006
000001

CLR

CLR
8158
INC

8LO

MOV
MOV
MOV
TRAP
TRAP
TST

14
OSW.Q3.0PER,(SP)
21, -(SP)

SP,RO

13:33:45
13:31:29

VAX-11 Bliss-16 Vv3-555

1766

Spo‘
1774
1778
1780

44
RO

1783

LUN,RO

(R1),RC25.ADDR
2(R1),VEC,.ADDR
VEC.ADDR,(SP)

PTBL.PTR,»

1791
1792
1800
1831

6(R1),UNIT.NO

01,ISD.STRUCT+6
AZFMTR,0VSA
QAZFMTR,0VSA

(SP)+,(SP).

1728
1726
1840

14$
036 ,RO
47

118
UNIT.NO, -(SP)
-(SP)
LUN,(SP)
SP,RO
14

& 1,RO
RO, 8RC25.ADDR
RO

1788
1789
1790

PC,BLS$DIV
RO,R2
2177600,R2
9177,ISD.STRUCT
+2
R2,ISD.STRUCT
.2
4(R1),BR.LEVEL

OFMT3, -(SP)
@3,-(SP)

Page

SPIDERS$USERS: [NEALE.AZTEC)ZRCHB3.B16;5 (8)

LUN,RO
RO,LSUNIT
8s

42
RO,PTBL.PTR
74
RO,R1

SEQ 0114

1847

SP,s

RCSM_REG,»

s ,RCS$M
. REG

LUN,RO

1848

1850

RO
RO,LS$UNIT

104
ONO.ADD.UNITS,(SP)
e1,-(SP)
SP,RO

1853

SP,»
1852

L9
ZRCHB3
REV B PATCH 00

000564
000570
000574
000576
000600
000602
000606
000610
000614
000620
000622
000624
000626
000632

000674
000700
000706
000712
000720
000726

000732
000736
000740
000742
000746
0007Se
000756
000760
000762
000766

;

062706
012700
104447
103001
104444
105267
005000
156700
020067
103401
104444
005000
156700
104442
010067
001760
010001
011167
016167
016746
012746
004767

010002
042702
142767
050267
016167
016167
012716
012746

010600

104414
017716
012746
012746
010600
104414
062706
000207

Routine Size:

Maximum stack

S-Apr-1984
S-Apr-1984

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

000010
000035

10$:
11¢:

0000006

12%:

0000006
0000006

ADD
MOV

TRAP

BHIS
TRAP

INCB
CLR

8IsSB
CMP
13¢:

0000006

CLR
B8ISB

RO
LUN,RO

(R1),RC25.ADDR
2(R1),VEC.ADDR
VEC.ADDR, -(SP)

8IC
8IC8
BIS
MOV
MOV
MOV
MOV

1893

SP,.s

SP,RO
14

1894

8PTBL.PTR,(SP)
92, -(SP)
SP,RO
14
912,SP

MOV
TRAP

ADD

RTS

AASCODE
252 words,
Rout ine Base:
depth per invocation:
10 words

1886
1887

@XCRLF,(SP)

TRAP
MOV
MOV
MOV

1883
1884
1885

6(R1),UNIT.NO

MOV

000012

s
PTBL.PTR,

04, -(SP)
PC.BLSDIV
RO,R2
#177600,R2
#177,ISD.STRUCT
.2
R2,ISD.STRUCT
.2
4(R1),BR.LEVEL

MOV

0000006
0000006
000002

1878

RO,PTBL.PTR
124
RO,R1

MOV
MOV
MOV
MOV
JSR

14%:

1873
1875

MOV

177600
000177
000002G
0000026
000004
0000006
000006
000000G
0000006
000001

Page

SPIDERS$USERS: [NEALE.AZTEC1ZRCHB3.8B16;5 (8)

MOV
BEQ

0000006
000002
0000006
0000006
000004
000000G

SEQ@ 0115

1842
1864

8LO

TRAP

0000006

VAX-11 Bliss-16 V3-555

910,SP
#35.R0O
47
12¢
44
LUN
RO

LUN,RO
RO,L SUNIT
134

TRAP

13:33:45
13:31:29

SP.s
1674

0156

]

000000
000004
0006

004767
104411
000207

wtine Size:
ximum stack

words,

depth per

LSINIT

LSBTTL

177004

TRAP
RTS

Rout ine Base:

invocation:

2 words

AA$CODE

INITIALIZE SECTION

PC,LINIT
11
PC

LSINIT::JUSR

1146

1894

M9
ZRCHB3

REV B8 PATCH 00

H
H
H
H
:

1896
1837
1898
1899
1900
1901
1902
1903
1904
1905

H
H
H
:
:

000000

:
:

AUTODROP

Maximum stack

004767
104461
000207

Routine Size:

Maximum stack

S-Apr-1984

SECTION

S-Apr-1984

13:33:45

13:31:29

VAX-11 Bliss-16 v3-555

SEQ 0116

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHB3, 8165

(9)

wsbttl 'AUTODROP SECTION
.
! This code is executed immediately after the ‘nitialize code if
! the "ADR" flag was set.
The unit(s) under test are checked to
! see
if they
will
respond.
Those that don't are immediately
! dropped from testing.
!B8GNAUTO;
return;
ENDAUTO;

000207

Routine Size:

000000
000004
000006

ZRCHBO RC2S5 DISK FORMATTER

LAUTO:

1 word,

depth

per

Routine Base:

invocation:

4 words,

words

LAUTO AUTODROP SECTION

AASCODE

.SBTTL

177772

depth per

.SBTTL.

RTS

Routine Base:

invocation:

2 words

AASCODE

PC,LAUTO
61

1895

1904

1156

LS$AUTO AUTODROP SECTION

L$AUTO: : JSR
TRAP
RTS

1160

N9
ZRCHB3

ZRCHBO RC25 DISK FORMATTER

S Apr-1984

REV B PATCH 00

CLEANUP CODING SECTION

H
H

lgg?
1

ssbttl
te
!

Cleanup coding

1909

itiating

H
H
H
:
H
H
H
H
:
H
:
H
H
:
:

1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925

! return of a test device fo a static state.
!
! The clean-up code is invoked in three different ways:
!
!
A. At end of every sub-pass
!
8. Issuance of DOCLN macro
!
C. Operator tC
!BGNCUN;
!
! Before initing the RC25 controller check first to make sure
! that this is not a non-existant register.
!

1908

1910

:
:
H

1926
1927
1928

000000
000006
000010
000014
000020

;:
i

032767
001004
012700
010077
000207

Routine Size:
Maximum stack

000000

004767

000004
000006

104412
000207

Routine Size:

Maximum

stack

S-Apr-1984

13:31:29

program,

utilizing

VAX-11 Bliss-16 v3-555

‘'CLEANUP CODING SECTION'

used by

if not

SEQ 0117
Page
18
SPIDER$USERS: [NEALE.AZTEC)ZRCHB3.816;5 (10

13:33:45

assembled with

(BGNCLN)

either

the

diagnostic

and ending (ENDCLN) directives.

the diagnostic

.FLG_WRD

[NON_EXIST_REG)

000000G

LCLEAN:

program or

the supervisor

then WRT_RC25 (RCIP,

The coding can be
to affect

ONES);

the

that

!Abort DM code execution

return;
ENDCLN;

000002
177777

000000G
1$:

9 words,
depth per

.SBTTL

Rout ine Base:
AASCODE
invocation:
O words
.

177752

LCLEAN CLEANUP CODING SECTION

BIT
BNE
MOV
MOV
RTS

02,FLG.WRD
1
#-1.RO
RO,8RC25.ADDR
PC

L$CLEAN CLEANUP CODING SECTION

JSR

PC,.LCLEAN

TRAP
RTS

4 words,

depth

per

Routine Base:

invocation:

words

AASCODE

12
PC

1925

*,RC$M REG

RC$SM REG,»

1905

1170

.SBTTL

LSCLEAN:
:

1212

1927

B10
ZRCHB3

REV

PATCH OO0

ZRCHBO RC2S DISK FORMATTER

DROP

UNIT

}ggg

¢obttl

:
:
H
H
H
:
:
:
:
:

1931
1932
1933
1934
1935
1936
1937
1938
1329
1940

!
!
!
!
¢
!
'
!
!
!

:
3

1942
1943

S-Rpr-1984

SECTION

‘OROP UNIT

S-Rpr-1984

13:33:45

13:31:29

VAX-11 Bliss-16 V3 555

SEQ 0118

SPIDERSUSERS: [NEALE,AZTEC 1ZRCHB3. 816 5

(11,

SECTION'

1941

000000

The effect of 8 DODU is the same whether executed in the init code
or
in a hardware test.
It invokes the drop unit coding and causes subse
quent GPHARD'S for that logical un't to be
returned
'NOT
COMPLETE",
This
effect
lasts only
for
the
duration
of the current command.

BGWU;

return;
ENDDU;

000207

Routine Size:

Maximum stack

000000
000004
000006

Thc drop code is invoked by a DODU macro or a drop command,
end
conto.ns any code that needs to be executed in COflJUflCttofl with the drop
ping of @ unit from the test cycle.
No coding
is
reaquired
in
this
gection,

00a767
104453
000207

Routine Size:

LOV:

1 word,

depth per

Routine Base:

invocation:

177772

4 words,

Mex'mum stack depth per

O words

L$DU::

Routine Bese:

invocation:

2 words

.SBTTL

LDU DROP UNIT SECTION

RTS

AASCODE

.SBTTL

AASCODE

PC.LDU
S3
PC

.«

1928

1942

1222

LSOV DROP UNIT

JSR
TRAP
RTS

1224

SECTION

C10
ZRCHB
S

REV B PATCH 00

OG0

B¢

1944
1945
1946
1947
1948
1949
1950
1951
1952
1952
1954
1955
1956
1957
1958
1959
1960

000000

:
i

;
i

%sbtt]

Max.mum stack

004767
104452
000207

‘ADD UNIT

Apr-1984

13:31:29

VAX-11 Bliss-16 v3-555

’€°p25£

SPIDER
[NEALE
SUS
.AZTEC )ZRCHB3.
ERS
B16;5
:

( 12,

SECTION

The add code

!
s

invoked by

the ADD commend,

and contains eny code that

needs
to
be
executed
in conjunction with adding a unit back
test cycle.
No coding is required in this section,

to the

b Units may be added to the test sequence onlg through the use of opera
!

tor

ADD

commend.

Each unit must have &

P-TABLE

in memory due to an

!
!
!

esrlier hardware dialogue (i.e.
the
unit
was
previously
dropped).
The
ADD code must be delimited by BGNAU, ENDAU.
There is no particuler coding required in the add code to cause the add to be
effective:

The section

[

is just

for progremmer housekeeping.

BGNAU;

return;

ENDAU;

.SBTTL
RTS

LAU:
1 word,

depth per

Routine Base:

invocation:

177772

Routine Size:
4 words,
Max
i mum stack depth per
1961
1962
1963

S5-Apr-1984 13:33:45

SECTION

000207

Routine Size:

000000
000004
000006

ZRCHBO RC25 DISK FORMATTER

ADD UNIT

O words

Routine Base:

.SBTTL

L$AU::

invocation:

AASCODE

LAU ADD UNIT
PC

AASCODE

PC.LAV
52
PC

1236

eludom

0TS external references
.GLOBL
$SAVE?2, BLS$DIV

Psect Name

SUMMARY

Words

AA$CODE

339

LIBRARY

STATISTICS

1943

1959

1234

end

PSECT

;

LSAU ADD UNIT SECTION

JSR
TRAP
RTS

2 words

SECTION

Attributes
RO,

LCL,

REL,

CON

D10
ZRCHB 3
REV

PATCH 00

:
:

ZRCHBO RC2S DISK FORMATTER
ADD UNIT

S-Apr-1984

SECTION

S-Apr-1984

----

File

SPIDERSUSERS:[NEALE.AZTEC )ZRCHBO.L16;2

BLISS

/PDP11/LIST

Size:
Run Time:
Elapsed Time:
Memory

Used:

ZRCHB3.B16

289 code ¢+ SO dats words
00:18.7
02:34.9
222 pages

Comp
' lation Complete

13:31:29

Symbole

----

Blocks

Total

Loaded

Percent

Read

398

COMMAND QUAL
IF IERS

13:33:45

SEQ 0120

VAX-11 Bliss-16 V3 555
Pa oe
21
c
SPIDER
: [NEALE$US
.AZTEC )ZRCHB3.81
ERS
(12,
6;
4

ZRCHBO RC2S DISK FORMATTER
0001
0002
0003

0005

0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
1505

1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538

1539
1540
1541
1542

5-Apr-1984
23-Sep-1983

SEQ 0121
VAX-11 Bliss-16 Vv3-555
SPIDERSUSERS: (NEALE.AZTEC JZRCHBA . 8162 (1)

13:44:04
14:13:18

ZRCHB4 (STITLE 'ZRCHBO RC25S DISK FORMATTER'
IDENT = 'REV B PATCH 00',
ADDRESSING _MODE (RELATIVE) ,
ENVIRONMENT (NOEIS)
)

BEGIN

ssbttl

'MODUWE DECLARATIONS'

' Pretty Declarations

[]

'<blf/lowercase_key>

[]

library

' ZRCHBO'
;

Define RC2S formatter

require

'BLSMAC.REQ’;

‘Define Bliss Macro

!
!
!

The
psect named
'"code or $codet” is redefinded here
to be called "ablcode”.
This is done to organize the
formatters
test
sections
into
a
seperate
psect.

psect
code

abscode;

!
|

Structure declarations used within

this module.

structure
L 4

V0
B¢
G0
B0
G0
V¢
04
04
VP
G0
GF
O
G5
G0
S0
O
V0
G0
G0
G0
OF
G
V0
V¢
B
G
B0
VI
GO
O
VP
TP
B¢
B0
B¢
G0
V2
G
G0
WS
G0
Ve
VF
B¢
VS
€0
@Y
B

MOODUWLE

0004

G¢

ZRCHBA

RC25S
register
accessing
structure. This
structure
allows
R(C25 register accessing
to
be transportable between the POP-11 and
VAX Diagnostic Supervisors.

This

also

defines an access algorithm for

VAX to sllow fielo reference to MBA address
space
without
generating
machine checks.

RC2S (0, P,
begin

ocal

RC$S_REG;

RCSS_REG
RC$S_REG
end

<P,

'<blf/page>

S, E>;

.(RC25

supvale0)<0,

sbpval,

O>;

library

require

file

F10
ZRCHBA

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE

:
:

1543
lg:g

.
! External Routines declared outside this module.

H
H
H
H
:
:
:
:
:
:
:
:
:
:
H
H

1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562

DECLARATIONS

external routine
ABORT,
GET_DUST_STATUS,
EX_SUP_PROG,
EX_LOC _PROG,
REC_DATA,
SEND_DATA,
SET_CNTLR_CHAR,
ON_LINE,
ODUPSI_SERVICE : INT_LNKSTYP novalue,
INTS$I_SERVICE : INT_LNKS$TYP novalue,
INIT_COM_AREA,
BOOT_RC?2S.
DECODE : novalue;

!<blf/page>

S-Apr-1984 13:44:04

23-Sep-1983

14:13:18

VAX-11 Bliss 16 V3-555

EQ O

Paéie

SPIDERSU
[NEALE ,AZTEC)ZRCHBA
SERS
.B16;:2
: (2)

G10
ZRCHBA

REV

:
H
:
:
H
:
H
:
H
3
:
H
H
H
:
H
:
H
:
:
:
H
:

H
H
;
:

:
:
H
;
:
:

B8 PATCH OO0

1563
lggg
1
1566
1567
1568
1299
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585

1586
1587
1588
1589

{ggo
1

1592

1593

1594
1595
1596
1597
1598
1599

{gg?

H
H
;

MODWE

1602
1603
{ggg

1606
1607
1608
1609
1610
1611
1612

S-Apr-1984

DECLARATIONS

23-Sep-1983

.
! External Declaration of
-

13:44:04

VAX-11 Bliss-16 v3 555

14:13:18

datums declared outside of this module.

SW_UNATT,

DATETXT

!Unattended reformat mode flag

vector

(12,

byte],

LUN : word,
UNIT_NO : word,
FLG_WRD : bitvector (161,
ISD_STRUCT : blockvector (4,
PTBL_PTR

ref vector

(4,

1Stores operator date

word]

REC_BUF : block [RECB_SIZE,
MSGADR,
NSD_SLOT : word,
NRD_SLOT : word,
VEC_ADDR : word,
RET_STATUS : word.
PID_SAVE

RC2S_ADDR
!

Init

vector

[2,

word],

word)

'RC2S register existence flag
!Next seq command ref number
field (ENV_FIELD),
'‘External FCT sector load buffer
OUP send cmd text buffer

field (RECB_FIELD),
'DUP receive
cmd text buffer
'Pointer to DM sent ascii text
!Stores next send ring slot to load cmd into
!Stores next receive slot to expect response in
!Stores controllers vector address
!Stores return status of called routines

ref RC2S field (ISD_FIELD),

'Saves process

indicator

'RC2S5 reference structure

sequence code error

B800T _FAILURE,
PROTO_VIOLATION,
PORT _INIT_ERR,
ACTIVE _DUP_SERVER,
INACTI
_.DUP _SERVER,
VE
'

External FCT

reaquest message during RESTORE

FCT_REQ_MSG,
H
! Printing format
!

DATMSG,
CRLF,
FMTL,
FMTS,
FMT6,
FMT7;

input

!Logical unit number storage
!Physical unit number storage
'Global fleg word
field (ISD_FIELD),
'Init sequence data

volatile,

NEX_FLAG : word,
NXT_CRN : byte,
RET_ENSAD : ref block (RB_SIZE + 2,
FCT_BUF : block [256, word],
SNO_BUF : vector [SNDB_SIZE, word],

strings and ascii

text

formatting mode

str'ngs

SEQ 0123
Page

SPIDFRS$
: [NEALE .AZTEC)ZRCH
USER
BA .816;:2
S

external
'
! Micellanious external date declarations

H
H
H
:
:

ZRCHBO RC2S DISK FORMATTER

word

(3)

H10
ZRCHBA

REV

B8 PATCH 00

ZRCHBO RC2S DISK fFORMATTER

RC2S REGISTER EXISTENCE

S Apr

TEST

wsbttl 'RC2S5 REGISTER EXISTENCE
BGNTST;

H
:
H
:

1613
1614
1615
1616
1617
1618
1619

:
:

1621
1622

!
!

1620

exist.

respond

!
!
!

H
:
H
H
H
:
:
:
H
H

1627
1628
1629
1630
1631
1632
1633
1634
1635
1636

¢
none
!
! Completion Codes
!
none
!
! Side Effects :
!
none
.

Implicit Inputs
none
Implic:it

Outputs

this

initial

local

:
H
:

164
1642

FLG_WRD

1643
1644
1645

}g:?

NEX _FLAG = ZEROS;
SETVEC (4, INTSI _SERVICE,
TEMP = PTBL_PTR [WRDO]);

H
:
:

1648
1649
1650

1663

test.

1651
1652
1653
1654
165S
1656
1657
1658
1659
1660
1661
1662

TEST®

EOF ,
OUMMY : volatile.
TEMP : volatile,
RETRIES;

TEMP

{NON_EXIST

_TEMP

REG]

tEOF ind cator
‘Dummy variasble
'Store number
=+

CLRVEC

retries

ZERO;

!Initially

PRIO7);

'‘Clear out nex fleag
'Set up for en nex treap
!Get this controllers IP

'‘Make

f . TEMP
then
begin

OUMMY
end;

for

into

the

to perform

nonexistant

test

reg ster

address
regi ster address

'Read the sa register
'‘This is s0 that f there
!Is an nex there will be

ZEROS;

'A single opperand inst.
'So that it w'l]l trap

(4);

if _NEX _FLAG eql ONES
then
begin
PRINTB (FMT6, .PTBL PTR
FLG WRD [NON EXIST REG]
DOCULN;
end;

clear

‘correctly.
!See

[WRDO));
=

ONE;

‘f

we got

SEN 0124

Page

SPID:ERSU
[NEALE .AZTEC SERS
]ZRCHBA .B16;2

1637
1638
1639
164g

H
:
H
H
:
:
H
H
H
H
:
H

14:13:18

16 V3 555

:
H
:
:
5

1983

VAX-11 Bliss

The format for the unit -ilf be aborted f the drive fails to

1623
1624
1625
1626

Sep

13:44:04

‘..
! Functional Description :
!
This section will be the first code to be executed during a formatting
!
session and will ensure that the object drive to format actually does

H
H
H
:

1984

an nex

!Agdress not there
'Pr'nt error message
'Set flag ‘nad'cat ng non

e~ stant

reg

flag

(4)

I10

1677
1678
1679

1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699

SEQ 0125

13:44:04
14:13:18

VAX-11 Bliss 16 Vv3-555
Page
SPIDERSUSERS: [NEALE .AZTEC)ZRCHBA .B16;2 (5)

' INITIALIZE RC25 CONTROLLER'

NI Y

WY ¥Y
J

S Apr-1984
23 Sep-1963

The
next thing to be done is to boot
e few retries f not successful after
the Controller dead.

the RCPS5
controller.
e
will
allow
the first boot
before
we
concidered

But
before
we
do
the boot sequence the processors priority end interrupt
vector sddress must f rst
be
loaded.
Durin?
the
init
sequence the Init
sequence interrupt service routine will just
fl
any interrupts end ignore
them since interrupts ere
disabled
during
init
sequence.
Later the DU
interrupt service routine will be load and do the DUP communications protocol.

WY WY ¥

1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676

sebtt]l

WY WY

1665

WY WY

1664

The

N NY

B PATCH 00

following oriorities will be assigned:
1. Procesvor
will
run
et
pruoruty

SETPRI

The RC2S5 runs at priority
S5
The

DUP

interrupt

routine will

zero.
default.

run at priority

(PRIOO);

'Set

CLRVEC (.VEC_ADOR);
SETVEC (.VEC_ADDR, INTS$I SERVICE,

the processers priority

‘Clesr out the vector before setting
1Set the interrupt service priority

PRIO7);

[]

Retry

the RC2S booting until

the return

‘s true or

éETRIES = -1;
“

the retry

L' mit

‘s reached.

'Reset the retry counter

untST"?.RET,SYAYUS) or (.RETRIES ealu ONE);
Report booting error

the return status

oot

‘Repeat the Boot until done

never

came

back

true.

1700

1701
170¢
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717

1718
1719
1720

¥ not

then

.RET_STATUS

'D'd the Controller boot

'Report

PRINTB

OOCLN;

(BOOT _FAILURE);

end;
[T RXT XL XY XY NY XY
)

O+

V¢

B¢

G¢

S¢

G¢

G»

REV

ZRCHBO RC2S5 DISK FORMATTER
INITIALIZE RC25 CONTROLLER

ZRCHB4

'Abort

a boot

error

the program

Now
that
the R(C25 controller is booted. check to make sure that
hes oone its part of the DUP
protocol
by clearing
out the port
Wnile we're
between the

there set up the communication
remote and host progrem,

if INIT_COM_AREA
then

PRINTB
PRINTB

()

(PROTO_VIOLATION);
(PORT INIT_ERR);

ares

for

‘Was

the controller
communications

area.

the up and coming communications

the

com

1Com ares not

area clesred out

evpected

in'ted so error and abort

J10
ZRCHBA
REV B8 PATCH 00

1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735

ZRCHBO RC2S DISK FORMATTER
INITIALIZE RC25 CONTROLLER

S-Apr-1984 13:44:04
23 Sep-1983 14:13:18

StqQ 0126
VAX-11 Bliss-16 V3 555
Pa
6
SPIDERSUSERS: [NEALE,AZTEC ]ZRCHBA .B16;2 (5)

DOCUN;

end;

Before writing the go to the IP register load the DUP interrupt service adrs
into the RC25 vector address for the up and coming communications between
the host and controller.

CLRVEC (.VEC_ADDR);

Clear out the vector tefore start
' ng

SETVEC (.VEC_ADDR, DUPSI SERVICE, PRIO7);

'Set the

interrupt service priority

Start the controllers functional micro code by writing the SA Register

with step four write data with the go bit set.

WRT_RC2S (RCSA,

(.ISD STRUCT

([BLK3,

ISWRT,

ISW_ALL) or %o’'000001'));

!Let

the controller go

IK10
ZRCHBA
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
BRING RC2S5 CONTROLLER ONLINE

1;32

usbtt]l

1738
1739

.
' Functuonal Description

1742

1740
1741

1743
1744
1745
1746
1747
1748
1749
1750
1751

1752
1753

1754
1755
1756
1757

I;gg

'
'

none

! Set the controller characteristics.
Default values will be taken in all cases
! except for the host time out value which will be changed to ‘wait for ever'.
!'-

if SET_CNTLR_CHAR () then DECODE ();
!«

1763
1764

¢ macro
-

1761
1762

'BRING RC25 CONTROLLER ONLINE®

Implicit Inputs :
none
Implicit Outputs :
none
Completion Codes :
none
Side Effects :

1
1760

if not successful

! Do 8 unit on line cmd which will spin up the device and load the heads.
The
! unit to be placed on line will be the last unit number received from the 'gphard’
in the

init code.

1;65

PRINTB (FMTS,

1767
1768
1769

if ON_LINE () then DECODE ();

1766

1Call decode

.LUN,

.UNIT_NO);

'Tell operator which units coming online
!

'Call decode

SEQ 0127

VAX-11 Bliss-16 v3-555
Page
SPIDERSUSERS: (NEALE .AZTEC)ZRCHB4 .B16;2 (6)

:
This section will set the RC25 controllers characteristics and place
the unit on-line.

¢
'

'
'
'
'
'
'
'

S-Apr-1984 13:44:04
23-Sep-1983 14:13:18

if not successful

L1O
ZRCHBA
REV B PATCH 00

TASK

#wsbttl

MONITOR

‘DOWN LINE

LOAD FORMATTER

AND

S-Apr-1984
23-Sep-1983

13:44:04
14:13:18

VAX-11 Bliss-16 V3-555
SPIDERSUSERS: [NEALE.AZTEC )ZRCHBY

TASK'

V¢

_Or

i;;?

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR

1779

V¢

1778

OF
¢
OF
W
G
G2
)
O9
G0
B0
00
S8

‘e

1773
1774
1775
1776
1777

1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794

!
¢

Functional Description :
This section will down
the formatting task.
Implicit

Inputs

Implicit

Outputs

none

line-load the RC2S formatter and monitor
.

:
:

!
none
! Completion
Codes :
!
none
! S de Effects :
!
none
“1!
!
!
!
!
!
!

See if the Dup server in the RC25 Controller is in an
idle
state.
To do this first get the dust status and
then look at the flag field bit 3 for a :
0 = idle
1 = active

{;gg

if GET_DUST_STATUS

1797
{;38

()

then DECODE

();

!Call

Decode

if connection error

1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
ig%;

]

Look

in the flag field bit

3 to see

if the server

is active.

'If

the server

if .RET_ENSAD (FLG_B3)
then
begin
PRINTB (ACTIVE _DUP_SERVER);
DOCLN;
end;
!
!
!
!
!

‘s active exit

and reboot

The
server
is
not
active
so
down
line load the formatter
and start its execution by issuing a "Execute supplied program”,
Call
the
decode
routine
if
a
connection error is detected.

if EX_SUP_PROG ()

then DECODE ();

'Call decode

if connection error

1772

1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826

!
!
!
!
!
!
!
!

Get the dust status to see if the server is in an active
state.
An
active state is what we want so error if the
server is in an idle state.
If
in

in the active state then save the progress
"Pid_seve"” for future reference.

if GET_DUST_STATUS ()

then DECODE

();

indicator

1Call decode

if connection error

SEQ 0128

Page
.B816;2 (7)

M10O

@ W6 B3 Bs Ve B0 VF V¢ VO S W VS V6 G G0 Vs G0 GP Ve Vs Go Vo Ve Co G G G4 GF Ve S V0 G0 G0 9 €0 66 VG0 G» Vs O G2 G0 ©0 Ge G S0 OF G0 G4 S0 K0 G5 B0 V0 W0 O

REV B PATCH 00

1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862

1863
1864

1865
1866
1867
1868

1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

1883

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

! Look at the flag field bit 3 to see
if not (.RET_ENSAD [FLG_B3])
then

else

SEQ 0129
VAX-11 Bliss-16 V3-555
SPIDER$USERS: [NEALE .AZTEC]ZRCHBA .B16; 2 (7)

S-Apr-1984 13:44:04
¢3-Sep-1983 14:13:18

if the server

]

is active.

'Reboot

if server

idle

begin
PRINTB (INACTIVE_DUP_SERVER);
DOCLN;
end

begin
PID_SAVE
PID_SAVE

(0]
[1]

=
=

.RET_ENSAD (PLO_INDI];
_RET_ENSAD [PHI_IND];

!Save progress
'Save progress

indicator lo word
indicator hi word

end;

The
Dup
program.

doing

server is in the active state running the formatter
This
D0
LOOP
will
1loop
on the DUP sub-protocol

the "send

and receive” data commands.

These commands

establish
the communications
between
this host program and
the
remote formatter program running in the RC25 controller.
RETRIES

= ZERO;

'Clear out

the retry

flag

while TRUE do
begin

CED D TR S P VD PP I D I D I D D D D W I LW D FEm LD D IB YD

ZRCHBA

Dv a 'Receive_data’'
for

message.

command which poll's the remote program

The

returned

message

can

either be a:

Question
Where the ascii

Default question
Where
the
default question message is identical
to
the
aquestion message exept that a null (zero
length) send data is taken to be a default answer
to the question.

Information
Where the

4.,

Termination

Fatal Error

Special
This

ascii

Where the ascii
Where

the

type

text

is a prompt

text
text

ascii

is an

for

informative message.

is an normal

text

is a

information.

termination message.

fatal

error message.

is used when only a host program could

respond.

if REC_DATA () then DECODE ();

'Call decode

if connection error

N10O
ZRCHBA
B PATCH O0

G
B4
€0
B0
GF
G0
B
GF
G0
Ve
G
©F
We
VE
SF
B0
V0
G0
BE
B
Gt

DOWN LINE

LOAD FORMATTER AND MONITOR

1885
1886
1887
1888
1889
1890
1891
lggg
1
1894
1895
1896
1897
1898
1899
1900
1901
1902
{ggz

T
VO
G0

TASK

13:44:04

23-Sep-1983

VAX-11 Bliss-16 V3-555

14:13:18

H
!Clear out

$CLRSBUF ;
selectoneu
set

(1]

.REC_BUF

[MSG_TYP]

'Select

the send buffer area

the appropriate action

:
Question message type
begin
!
! Look
into
the
send/receive data buffer
at the message
! number field and
see
what
question the remote
program
' s
asking.
Use the
fields
value
to
index
into the
! select
expression
to
perform
the
appropriate
action.
]

1905

1906
1907
1908
1909
1910
1911
1912

1913
1914

1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925

selectoneu
set
(0]

.REC_BUF

!Select

the

requested question

:
'‘Enter current date <MM-DD-YYYY>
begin
!
! If in un-attended reformat mode then give to the DM the
! date received from the init code else let the DM prompt
! the operator for the date.
H

if L SW_UNATT
then
begin

tIs

if .RETRIES
then
begin
'
! Clear out

{35?

1928
1929
{ggg

1932
1933
1934
1935
1936
1937
1938
1939
1940

[MSG_NUM)

'0id DM not

verify

in unattended mode

the date the

the operator for the date again,

last

ime

i from O to 11 do
DATETXT (.i) = ZEROS;

GMANID (DATMSG,
end;

else

running

the date text buffer before

date and ask

incr

the host

DATETXT,

$FILLDATE;
RETRIES = ONE;
end

begin
GMANID (MSGADR,

#0'177777',

10,

'Fill the send buffer with
!Set the retry flag

SND BUF,

#0'177777',

SEQ 0130
Page

SPID:ER$U
[NEALE .AZTEC SERS
JZRCHB4 .B16;2 (7)

the first word in the send/receive dats buffer, look
to
see
what type
message the remote program has sent to
the
Host program.
Use this
message type number to index
into the select expression to perform the requested action
by the remote program.

CF
B8
G
B
VT
W1
B
BT
B
®S

5-Apr-1984

From

ZRCHBO RC2S DISK FORMATTER

1884

B¢

V¢

B¢

G¢

REV

10,

NO);

!Get date

the date

from operator

B11
ZRCHB4

1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954

S Apr-1984
23 Sep-1983

TASK

VAX-11 Bliss-16 V3 555

13:44:04
14:13:18

end;

PRINTB
i f

(CRLF);

SEND

DATA

()

then DECODE

();

end;

(7)

1Enter a non zero serial number

begin

GMANID (MSGADR,
PRINTB
+f

SND BUF,

s%0°'177777*,

(CRLF),;

SEND _DATA

()

then DECODE

64,

NO);

()3

end;

[othcrnisc]

!This message number

gg?_STATUS = UMN_CODE;

is unknown

1Unknown message number error code

DECOODE ();

tes;

!Report error and die

end;

OF G

(21

'Default Question

begin

selectoneu

.REC BUF

{MSG_NUM) of

set

(1)

!Enter unit number

bogin

to format

unit

the DM prompt

number

obtained

from

the operator

the

hardware P

'Is

e host

for

the unit

Table else

format.

let

§ If in un-attended reformat mode then give to the DM the
!

if .SW_UNATT
then

Ge
B
T
Te
B
V1
B0
B
V6

1987
1988
1989
1990
1991
1992
1993

Ve
VO
BT
Ve

aur

_UNIT NO;

PRINTS (FHI?

1995

199

1997

else

end

JUNIT NO);

‘Report

PRINTB
SEND

end;

in unattended mode

which unit

GHgNID (MSGADR, SND BuF, A, so'1727777', 1, 8, YES),;

end;

running

(CRLF);
DATA

()

then

DECODE

()

5€Q 0131

page

SPIDERSUSERS: (NEALE,AZTEC )ZRCHBA . 81652(7)

G0 OF G¢

B¢

90 Oo

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR

being

formatted

Cll
ZRCHBA
REV

PATCH 00

:
:

1998
1999

:
:
:
:
:
:
3
:
H
:
:
:
:

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012

:
:
:
:
H
H
:
:

2014
2015
2016
2017
2018
2019
2020
2021

:
:
:
H

:
:
H
:
H
:
:
:
H
3

:
H

DOWN LINE

LOAD FORMATTER

(4)

2022
2028
2024
2025

2026
2027
2028
2029
2030
2031
2032
2033
2034
2035

2036
2037

2038
2039
2040
2041
2042
2043
2044
2045
2046
2047

:
H
H
H
:

2049
2050
2051
2052
2053
2054

2048

AND MONITOR

S Apr-1984 13:44:04

TASK

:
begin

H
!
!
!
!

Sep-1983

VAX-11 Bliee-16 v3-555

14:13:18

SPIDERSUSERS: [NEALE,AZTEC JZRCHBA

Use existing bed block

informetion

<N»>

If in un-attended reformat mode then tell the DM to
do a reformat mode else let the DM prompt the operator
for the formatting mode to use for this unit.

if _SW_UNATT
then
b§8
BUF » wc'Y',;
end
else
begin

2013

H
:
:
:
H
H
;
H
:
H

ZRCHBO RC2S DISK FORMATTER

GMANID

end;

(MSGADR,

!Is the host
‘Default

SND BUF,

running

in unattended mode

to do reformat mode

#0'177777',

1.,

VYES);

PRINTB (CRLF);
i SEND_DATA ()

then DECODE

();

end;
(s}

:
g
GMANID (MSGADR,
PRINTB (CRLF);
if

SEND _DATA

()

SND BUF,

then DECODE

'Use down

line

#0°'177777',

load
3.

<N>

YES);

();

end;
(6]

:
begin

tContinue

if _SW_UNATT
then

!Is the host

running

‘Default not

to continue

begin
SNDO
BUF

else

=« #c'N';

end

x
GMANID (MSGADR,
end;

SND BUF,

i f bad block

#0'177777',

information

SEND_DATA

()

then DECODE

YES);

();

end;
(otherwise) :
begin
RET _STATUS
OECODE (),
end;

‘This message number

= UMN CODE

inaccessable

in unattended mode

PRINTB (CRLF ),
if

s unknown

!Unknown message number error code
'Report error and die

SEQPo132 12

.B1K;2

(7)

D11
ZRCHB4

B¢

V¢

G¢

Ve G

O¢

REV

PATCH 00

2055
2056
2057
2058
2059

2060
2061
2062

2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR

(3)

Bliess

16 V3-5 55

!Informational message

selectoneu

.REC_BUF

[MSG_NUM)

set

beg

16]

PRINTB
end;

(FMT1,

!All possible

'This message number

begin

_STATUS

DECODE (),

information msg s

MSGADR);

(otherwise])
RET

UMN_CODE;

is unknown

‘Unknown message number error code
!Report error and die

end;

tes;

end;

(4)

!Termination message

begin

selectoneu
set

(12,

.REC_BUF

13)

begin

[MSG_NUM) of

!Abort

PRINTB (FMT1, MSGADR);
WRT_RC2S (RCIP., ONES);

end;

beg'n
RET_STATUS

OECODE ();

tes;

termination type

!Stop the remote program
'Return to init code

exitloop

(otherwise]

and normal

!This message number
=

UMN_CODE
;

is unknown

!Unknown message number error code

'‘Report error and die

end;

(S)

'‘Fatal

begin

selectoneu
set

.REC_BUF

(1 to 24)

[MSG_NUM]

begin
PRINTB (FMY1, MSGADR);
WRT _RC2S (RCIP, ONES);

DOCULN;

error message

'Error messages are
!Stop

'Kill

the

this

SEQ 0133

P..?
1
SPIDER
(NEALE
SUS
.AZTEC )ZRCHDBA
ERS
.816;2
:
(7)

23 Sep-1983 14:13:18

begin

2089
2090
2091
2092
2093
2094
2095
2096
2097

2105
2106
2107
2108
2109
2110
2111

VAX-11

end;

2086
2087
2088

2102
2103
2104

TASK

13:44:04

tes;

2082
2083
2084
2085

2098
2099
2100
2101

S Apr-1984

from

remote program

to 24

formatter and return

n't

code

E11
ZRCHBA
REV B PATCH 00

2112
2113
2114
2115
2116
21.7
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138

2139
2140
2l41

ZRCHBO RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168

VAX-11 Bliss-16 Vv3-555

23 Sep-1983 14:13:18

SEQ 0134

Page

SPIDERSUSERS: [NEALE .AZTECJZRCHBA .B15;2 (7)

end;

(otherwise]
begin

ET_STATUS

DECODE (),

1This message number
= UMN CODE;

is unknNown

!Unknown message number error code

'Report error and die

end;

tes;

end;

[6)

'Special message type

begin

selectoneu .REC_BUF [MSG_NUM] of
set

(1)

1FCT sector request

begin
]

!
!
!
'
]

If this is the first FCT sector request (sector 0) then ask
the operator for the external FCT file name and open the file.
The supervisor will error and return to DRS> mon'tor if the
requested file is not found on the local load media.
.REC_BUF

then

[MSG_TXT]) eql FCT_SEC_O

begin

GMANID (FCT_REQ_MSG,
OPEN (SND_BUF
);

2142
2143

2144
2145
2146
2147
2148
2149
2130
2151

S-Apr-1984 13:44:04

SND
_ BUWF,

#0°'177777',

10,

NG);

end;

' Load into the FCT_BUF the next sequential 256 FCT sector words
'

incr FCT_WRD from FCT BUF
begin

to FCT BUF

¢+ #0°'776'

by %0'2'

EO? * GETWORD (.FCT_WRD);

end;
!

! Test to see if the EOF indicator was returned from the GETWORD macro
! before 16 FCT sectors were read indicating an illegal FCT file format.

[]

!
]

End of file

is reached when

.EOF

if ((.EOF eql ZERD) and ( .REC BUF
FCY SEC_15)

then

begin

SNS BUF (0] = ONES;

=« O3

[MSG TXT]

lss FCT_SEC_15)) or (.REC_BUF

tIndicate failure to get good FCT file

if SEND DATA () then DECODE

(’;

!Send fa lure to DM

[MSG TxT] gtr

F11
ZRCHBA

REV B8 PATCH OO

ZRCHBO RC2S DISK FORMATTER

ODOWN LINE

LOAD FORMATTER

2169
2170
2171
2172
2173

RET _STATUS
DECODE (),
end;

13:44:04

VAX-11 Bliss-1€ V3 555

TASK

23-Sep-1983

ILL_FCT

‘Host will also report
'‘Error out and die

14:13:18

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA

the

failure

cl174

! Return to the remote program a success indicator and the

2175
21;?
21
2178
2179
g{go
1

! unibus 1o and hi adrs of where this FCT sector can be found
! and send the information back to the remote program.
!
SND_BUF (0] = ZERO;
'‘Indicate success
SNO_BUF (1) = FCT_BUF;
‘Lo unibus adrs of FCT sector
SND_BUF (2] = ZERO;
'Hi unibus adrs of FCt sector

glgg

1
2184
glgg
1
2187

'
!
'

3138

1
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203

SEND_DATA

()

then

DECODE

Close this External FCT
.REC_BUF

[MSG_TXT)

eql

();

file
FCT

'Send reply

this

SEC_15

back

is FCT sector

then

to DM

15.

CLOSEL;

end;
(otherwise] :
be?in
RET
STATUS
DECODE ();
end;
tes;

= UMN_CODE;

end;
{otherwise) :
begin
RET_STATUS

2204

2205
2206
2207
2208
2209
2210

AND MONITOR

S-Apr-1984

OECOOE ();

tes;

'This message number

= uMT CODE;

end;

is unkmown

tUnknown message number error code

'Report error and die

end;

ENDTST;

LTITLE
.IDENT

ZRCHB4 ZRCHBO RC2S DISK FORMATTER
/REV B /

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

ABORT, GET.DUST.STATUS, EX.SUP. PROG
EX.LOC.PROG, REC.DATA, SEND.DATA
SET.CNTLR.CHAR, ON.LINE, DUPSI.SERVICE
INTSI.SERVICE, INIT.COM. AREA, BOOT.RC2S
DECODE, SW.UNATT, DATETXT, LUN
UNIT.NO, FLG.WRD, ISD.STRLCT, PTBL.PTR
NEX.FLAG, NXT,CRN, RET_ENSAD, FCT BUF
SNO.BUF, REC.BUF, MSGADR, NSD.SLUT
NRD.SLOT, VEC.ADDR, RET,STATUS
PID.SAVE, RC25.ADDR, BOOT.FAILURE

50,0135
816

(7)

GLL
ZRCHBA

REV

PATCH 00

004167
024646
142767
005067
012746
012746
012746
012746

000000(,

017766
062766
032776
001402
005066
012700
104436
026727
001015
017716
012746
012746
010600
104414
152767
104444
022626
005000
104441
016700
104436
012716
012746
016746
012746
104437
012703
004767
010067
005203
032700
001003
020327
001365
032767
001010
012716
012746
010600

000000G 000010
00CN02
000010
000001
000010

104437

000119
000114

000124
000126
000130
000136
000140
000142
000144
000146
000152
000154
000160
000164
000170
000174
000176
000202
000206
000212
000214
000220
000222
000226
000230
000236
000240
000244
000250

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR

$T1:

$71 DOWN LINE
ABSCODE,
RO

JSR
CMP
8IC8
CLR
MOV
MOV

R1,$SAVES
(SP), (SP)

FCT.REQ.MSG,
FMTS,

FMT6,

DATMSG,

FMT?

AND

MONITOR

1642
1647
1644

€340, -(SP)
OINTSI SERVICE, -(SP)
44, -(SP)

(SP)

MOV

8Iv
8EQ
CLR
MOV

#4 RO

€2,10(SP)
01,310(SP)
18

o, TEMP

1645
1646
1648

DUMMY

1651
1654

o, TEMP
s, TEMP

12(SP)

36
NEX.FLAG,Q 1
23
SPTBL.PTR,(SP)
oFMT6, (SP)

1656

1659

(SP)

SP,RO

SP,e

14
€2,FLG.WRD

1660

(SP)+,(SP).

1658
1681

VEC.ADDR,RO
36

1682

RO
41

2s:

0000006
000340
0000006
0000006
000003

#340,(SP)
®INTSI SERVICE,

177777

VEC.ADDR,

3s:

1,R3

RO,RET STATUS
R3
#1,R0
as
RS, #1

000001
000001

(SP)

PC.BOOT.RC2S

000001

0000006

4%
:

BIt

00C000G
000001
MOV

1683

(SP)

0000006
0000006

1611

92 ,FLG,WRD

®2,

SEQ 0136

TASK

NEX
. FLAG

e3,

v3 555

FMT]

LOAD FORMATTER

37
SPTBL.PTR,10(SP)

TRAP

CRLF,

Bliss

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816i 2 (7)

.SBTTL
.PSECTY

ADD

000000G 177777

VAX-11

PROTO.VIOLATION, PORT,INIT.ERR
ACTIVE.OUP,SERVER, INACTIVE.DUP
. SERVER

TRAP

18:

TASK

13:44:04
14:13:18

.GLOBL
.GLOBL
.GLOBL
.GLOBL

MOV
MOV

000004

S Apr 1984
23-Sep-1983

¢ ,RETRIES
RETRIES
¢ RET . STATUS
RETRIES,»

@1 ,RET._STATUS
St

T
,(SP)
00
. FAILURE
®B
o1, (SP)
5P ,RO

SP,e

1688

1692

1693
1695

HL
ZRCrB4

REV B PATCH OO

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR

104414
104444
005726

TRAP
TRAP
ST

14
a4
(SP)e

JSR

PC,INIT.COM.AREA

000252
C00254
000256

000260
000264
000266
000270
000274

00000
000302
000304
000310
000314
000316
000320
000322
000324
000330
000332
000336
000342

000346
000352
000354
000360
000364
000370
000374
000400
000402
000404
000410
000414
000420
000424
000430
000432
0004 34
000440
000442
000444
000450
000454
000456

000460
000464
000470
000476
000500
000504
000510
000512
000514
000516
000520
000524
000526

004767
006000

103016
012716
012746
010600
104414
01271e
012746
010600
104414
104444
022626
016700
104436
012716
012746
016746
012746
104437
016701
052701
016700
010160
004767

006000
103002
004767
016716
016746
012746
012746
010600
104414
004767
006000
103002
004767
004767
006000
103002
004767
016700
032760
001410
012716
012746
010600
104414
104444
005726
004767
006000

103002

000000G

S$:

000000,
000001

TASK

MOV
MOV

®PROTO.VIOLATION,
(SP)
o1, (SP)

MOV
TRAP

SP.RO
14

MOV
MOV
MOV

®PORT . INIT . ERR,(SP)
21, (SP)
SP,RO

cHP
MOV

(SP)e ,(SP)e
VEC .ADDR,
RO

000340

MOV

#340,(SP)

0000166
000001
000000G
000002
000000G

MOV
8IS
MOV
MOV
JSR

TRAP

0000006
0000006
000003

0000006
000000G
0000006

TRAP

MOV
MOV
MOV

ROR

8cC

000000G
000003

JSR
MOV
MOV
MOV
MOV
MOV

TRAP

000000G
000000G
0000006

000000G
000000G
004000
000022

JSR

ROR

8CC
8s:

00C000G

10$:

ROR

e8cc

1720

SP,e
1718
1729

1730

¢ ,RCSM_REG

O.RC‘H.REG

RCSM._REG,

1735

1758

1765

1768

PC,ON.LINE
RO

PC,DECODE
RET ENSAD,RO
04000,22(RO)

1531
JSR

Spo.

#FMTS, -(SP)
03, (SP)
SP,RO

JSR
MOV
BIT

TRAP
TRAP

MOV

PC.DECOOE
UNIT.NO,(SP)
LUN, -(SP)

ROR

MOV

page

1719

PC .DECODE
PC,GET.DUST.STATUS

8EQ
MOV

0000006
000001

1703
1716

#OUPSI
. SERVICE, -(SP)
VEC.ADOR,
- (SP)
o3, (SP)

ISD.STRUCT+16,R1
01.R1
RC25.ADOR
,RO
R1,2(RO)
PC,SET.CNTLR,CHAR

3€Q 013 7

SPIDERSUSERS
: [ NEALE .AZTEC JZRCHBA .B1632 ¢ 7)

JSR
JSR

B8CC

VAX 11 Bliss 16 V3 555

14
a4

63:

13:44:04
14:13:18

TRAP
TRAP

0000006

1984
1983

ROR

8CcC

000000G
000001

S Apr
23 Sep

108
@ACTIVE .DUP.SERVER,(SP)
01, (5P
SP,RO

14
as

(SP).
PC,EX.
5P . PROG
RO

1801
1804

SP,e

1303
1314

Il
ZRCHB4

REV

000530
000534
000540
000542
000544
000550
000554
000562
000564
000570
000574
000576
000600
000602
000604
000606
000614
000622
000624

PATCH

004767
004767
006000
103002
004767
016701
032761
001011
012716
012746
010600
104414
104444
005726
000406
016167
016167
005003
004767
006000

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR
0000006
000000G

11¢:

0000006
0000006
000022
004000

12¢:

0000006
000001

ROR

8cC
JSR
MOV
BIT
BNE
MOV
MOV

MOV
TRAP
TRAP

TST

000024
000026

0000026

13%:
148
15¢:

B8R

MOV
MOV

CLR
JSR

ROR

8CC
JSR
CLR
CLR

103002
004767
005000
005060
062700
020027
101771
016701

ADD

cHP
8LOS
MOV

006201
006201

ASR
ASR
ASR
ASR
SWAB

006201

006201
000301
042701
020127
001107
016700
042700
001060
032767
001435
032703
001417
005000

JSR
JSR

177760

8IC
cMe

000001

BNE
MOV

0000006

BIC

170000

000001
000001

000000G
105060
005200
020027
000013
003772
104443
000406
0000006
000142
0000006
1777277
000010
000012
005000

18s:

BIT
BEQ
BIT
B8EQ
CLR
CLRB

:g.GEY.OUST.STATUS

5EQ 0138
VAX-11 Bliss 16 v3 555
Page
18
SPIDERSUSERS:
(NEALE .AZTEC JZRCHBA .B16K;:2 (7)

1825

1831

1834

123

PC . DECODE
RET.ENSAD,R1

:;200.22(n1)

OINACTIVE
.DUP . SERVER,(SP)
o1, -(SP)

SP,RO
14

(SP).
14
24(R1),PID.
SAVE
26(R1),PID.
SAVE -2

H
H
H
:

PC,REC.DATA
RO

SP,e

RETRIES

1833
1831
1839
1840
1850

1882

163

PC,0ECODE
RO

SND .BUF (RO)

#2,RO
RO, 2110

178
REC.BUF ,R1
R1
R1
R1
R1
R1
0177760,R1
R1,01
244

REC.BL",RO

0170000,R0O

DATETXT(RO)

RO,013
18¢
43

.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
. WORD

406

CLR

13:44:04
14:13:18

PC,DECODE

cHP
BLE

TRAP

19¢;

TASK

S Apr-1984
23-Sep 1983

s
;
H
s

1
o(ID)
..I
I,e

1894

1906

1917

o, RETRIES

1921

1929

1
s
i

o(I)
I
I,

1930
1929

19%2

DATETXT
142

DATMSG
-1
10
12

1933

ZRCHB4
REV 8 PATCH 00

001000
001006
001010
001014
001016
001022
001024
001026
001030
001032
001034
001036
001040
001042
001044
001050
001054
001056
001060
001062
001066
001070
001072
001074
001076
001100
001102
001104
001106
001110
001114
001120
001122
001124
001126
001132
001134
001140
001144
001150
001152
001160
001162
001170
001174
001200
001204
001206
001210
001212
001214
001216
001220
001222
001224
001226
001230

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

000000G 0000006
116060
005200
020027
000013
101771
012703
000001
000410
104443
000406
0000006
000142
0000006
177777

208
:

0000006
000001

22%:

000010
000012
012716
012746
010600
104414
000547
020027

001153
104443

000406
0000006
000142
0000006
177777
000001
000100
012716
012746
010600
104414
000525
020127
001175
016700
042700
020027
001040
032767
001415
016767
016716
012746
012746

010600
104414

022626
000410
104443

000007

2ls:

23$:

INC
CMP
8LOS
MOV

000002

244

MOV
MOV
MOV
TRAP

B8R
cMe
BNE
TRAP
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

B8R
cMP
BNE

MOV

170000
000001

8IC
cHP
BNE
BIT
8EQ

0000006

000000G 000000G
0000006
0000006
000002

MOV
MOV
MOV
MOV
MOV
TRAP

25%:

RO, 413
20¢
91,R3

TRAP

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

CMP
BR

TRAP

.WORD
.WORD
.WORD
. WORD
. WORD
.WORD

13:44:04
14:13:18

ggTETXT(RO).SND.BUF(RO)

MOV
MOV
MOV
TRAP

000001

MOVB

S-Apr-1984
23 Sep-1983

VAX-11

v3-555

SEQ 0139
Page

SPIDERS$USERS:
[NEALE .AZTEC )ZRCHBA .B16;2

;
i
P

o(I),e(ID
I

;
H

¢,RETRIES

12
@CRLF ,(SP)

Bliss

(7)

1936
1917

1940

;

1943

21, -(SP)

SP,RO
14
314

RO, &7

33%

43
406

SP,

1945

1906

1951

. BUF
SND

142
MSGADR
-1
1
100
@CRLF ,(SP)

SP,RO
14
31¢
R1,02
39
REC.BUF ,RO

#170000,R0
RO, 01
27
@1 ,SW.UNATT

25%
UNIT
. NO, SND.BUF
UNIT.NO,(SP)
OFMT7, (SP)
02, (SP)

SP,RO
14
(SP)Y+,(SP).
263

43
406

SND
. BUF
152

MSGADR
1
1

1952

SP,e

1954

1894

1970

1981

H
H

1984
1985

H
:
H

SP.‘

1983
1981
1989

K11
ZRCHBA

REV

B PATCH 00

001232
001234
001240
001244
001246
001250
001252

001256
001260
001266
001270
001276
001300
001302
001304
001306
001310
001312
001314
001316
001320
001324
001330
001332
001334
001336
001342
001344
001346
001350
001352
001354
001356

001360
001362
001364
001370
001374
001376
001400
001404

001406
001410
001412
001416
001420
001426
001430
001436
001440
001442
001444
001446
001450
001452
001454
001456

000003
012716
12746
010600
104414
000453
020027
001027

032767
001404
012767
000410

ZRCHBO RC2S DISK FORMATTER
OOWN LINE LOAD FORMATTER AND MONITOR
0000006
000001

268
:

27s:

000004
000001

00¢ 000G

000131

0000006

104443

29%:

000001

000005

.WORD

MOV
MOV
MOV
TRAP

B8R
CcMP
BNE
BIT
BEQ
MOV

28$:

000406
0000006
000152
0000006

TASK

30s:

TRAP

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

. WORD
MOV
MOV
MOV
TRAP

BR
cHP
BNE

TRAP

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

. WORD
MOV
MOV
MOV
TRAP

000001

31¢:

000006

000001

000000G

000116

0000006

32$:
33

JSR

ROR

348

Bliss-16

S55

SEQ 0140
Page
20

SPIDERS$USERS: [NEALE.AZTEC)ZRCHBA .B16;2
:

SP,RO
14

o1, -(SP)

31
RO, %4
304
@1,SW.UNATT
28%
2131,SND.BUF
294
43
406

(7)

1992

SP,»

1994

1970

2006

:
H

2009
2006

2013

2016

. BUF
SND
152

MSGADR
-1

1
3

OCR
, LF
(SP)

21, -(SP)
SP,RO
14
314

RO, @5

324

43
406

SP,»

:
:

2018
1970

2024

2025

SND .8UF
152

MSGADR
-1
1
3

OCRLF ,(SP)
1, -(SP)
SP,RO

14
PC,SEND.DATA
RO

35%

.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD

VAX-11

oCRLF ,(SP)

RO, #6

TRAP

13:44:04
14:13:18

BLO
8R
cMP
BNE
BIT

BEQ
MOV

S-Apr-1984
23-Sep-1983

36%
37¢

384

Q1 ,SW.UNATT
34¢
9116,SND.BUF

43
406

SNO
. BUF
152

MSGADR
-1
1
3

Spc.

2027

H
H

2023
1970

2034

H
H
:

2037
2034
2041

ZRCHBA

REV B PATCH 00

001460
001464
001470
001472
001474
001500
001502
001504
001510
001512
001514
001522
001526
001532
001534
001540
001544
001550
001552
001556
001560
001564
001566
001572
001574
001600
001602
001606
001610
001614
001620
001624
001626
001630
001632
001636
001640
001644
001650
001654
001656
001662
001664
001670
001674
001700
001702
001704
001706
001712
001716
001720
001724
001726
001732
001736
001740

012716
012746
010600
104414
004767
006000
103002
004767
005726
000533
012767
000167
020127
001037
016700
042700
020027

101417
020027
001414
020027

001411
020027
001406
020027
001403
020027
001342
012716
012746
012746
010600
104414
000463
020127
001030
016700
042700
020027
103717
020027
101314
012716
012746
012746
010600
104414
022626
012700
010077
000564
020127
001027
016700
042700
001666
020027

ZRCHBO RC25S DISK FORMATTER
ODOWN LINE LOAD FORMATTER AND MONITOR TASK
0000006
000001

35¢:

000000G

36%:
37

0000006

004001
000532
000003

000000G

38%:

393

CMP

000013
000016

000020
40%:

0000006
170000
000014

MOV

MOV
MOV
MOV
TRAP
BR

cHP
BNE

8IC
cMP
8LO
cHP
BHI

0000006
0000006
000002

OCRLF ,(SP)
e1,-(SP)
SP,RO
14
PC,SEND.DATA
RO
374
PC,DECODE

SP,RO
14
43

2046

2032
1970
2052
2053
1894
2062

2067

SP,e

2066
1894

R1,04
423

REC.BUF ,RO
#170000,R0O

2082

RO, 014

384

RO, 215

384

#-1,R0
RO, 8RC25.ADDR

BIC
BEQ
CMP

SP,
s

384

#MSGADR, (SP)
eFMT1, -(SP)
02, -(SP)

2044

S57¢
R1,#3
414
REC.BUF ,RO
€170000,RO
RO, &5
404
RO, #7
40
RO, 011
40
RO,213
40
RO,016
40
RO, 420

MOV
MOV

MOV

SEQ 0141
VAX-11 Bliss 16 v3 S55
P age
SPIDERS$USERS: [NEALE.AZTEC]ZRCHBA .B16; 2 (M

(SP).

MMSGADR, (SP)
oFMT1, (SP)

B8R
CHP
BNE

13:44:04
14:13:18

44
94001,RET,STATUS

MOV
MOV
MOV
MOV
TRAP

cMP

177777
0000006

000030

CMP
8EQ
CMP
BEQ
cMP
BEQ
CMP
BEQ
CHP
BNE

MOV

000015

0000006
170000

JMP
cMP
BNE

B8LOS

000011

000005

MOV

8IC

000007

000004

acC
JSR
TST
BR

MOV

170000
000005

0000006
0000006
000002

MOV
MOV
MOV
TRAP
JSR
ROR

S-Apr-1984
23-Sep-1983

SP,RO
14
(SP)+,(SP).

594

R1,65
45%
REC.8UTM,RO
€170000,R0O
384
RO, 430

2087
SP,s

. REG
s ,RCS$M

RC$M.REG,
»

2088
2086
1894
2104

M11
ZRCHBA
REV B PATCH 00
001744
001746
001752
001756
001762
001764
001766
001772
001776
002000
002002
002004
002010
002012
002016
002022
002026
002030
002034
002036
002040
002042
002044
002046
002050
002052
002054
002056
002062
002064
002070
002072
002074
002076
002100
002102
002106
002110
002112
002116
002122
002124
002126
002130
002136
002140
002146
002150
002156
002162
002164
002166
002172
002200

002204

002210
002216

101263
012716
012746
012746
010600
104414
012700
010077
104444
022626
000530
020127
001120
016700
042700
020027
001232
005767
001013
104443
000406
0000006
000142
0000006
177777
000001
000012
012700
104434
012701
000412
010100
104427
103004
010011
012702
000401
005002
062701
020127

003763
005702
001004
026727
002404
026727
003416
012767
004767
006000
103002
004767
012767
004767
005067
012767
005067

ZRCHBO RC2S5 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
BHI
MOV
MOV

0000006
0000006
000002

MOV

177777

000000G

000006

43
444
45%
;

MOV
TRAP
MOV
MOV
TRAP

CcMP
B8R
CMP
BNE
MOV

0000006
170000
000001

8IC
CMP
BNE

0000026

TST
BNE
TRAP
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

S-Apr-1984
23-Sep-1983

13:44:04
14:13:18

VAX-11 Bliss-16 V3 555

46
:

47s:

s
SP,

SP,RO
14

« ,RC$M
. REG

RCSM_REG,
»

(SP)+,(SP)+

000002
000776G

48
49%

2126

2138
2141

43
406

. BUF
SNO
142

FCT.REQ.MSG

2142

MOV
TRAP
MOV
B8R
MOV
TRAP

S0$:

cHP
BLE

BNE
CMP
eLTY
cMP
BLE

51%
REC.BUF 2,417
524
REC.BUF +2,017
54

JSR

:g.SENO.DAYA

ecC
JSR
MOV
JSR
CLR

53¢
PC,DECODE

TST

0000026 000017
0000026 000017

S1s:

0000006
177777
0000006

Ses:

000000G
006001
0000006
0000006
0000006
0000006 000002G
0000046

MOV

ROR

53s:
S44:

MOV

CLR

2149

FCT.WRD,

2151

« ,EOF

#2,R1
R1,0FCT.BUF
«776
47
R2

ADD

&, FC
. WRD
T

RO,FCT.WRD

MOV
MOV
BR

CLR

2110

2108
2104
1894

58
R1,46
564
REC.BUF ,RO
#170000,R0
RO, #1
38$
REC.BUF
+2
464

BHIS

000001

2109

.WORD

0000006

Page

SPIDER$USERS: [NEALE.AZTEC)ZRCHBA4 .B16;2 (7)

384
&MSGADR, (SP)
oFMT1, (SP)

2-1,R0
RO, 8RC25.ADDR

SEQ 0142

#-1,SND.BUF

#6001
,RET . STATUS

PC,DECODE

SND .BUF

FCT.BUF ,SND.BUF +2
SND .BUF +4

EOF

& FCT.WRD
FCT.WRD,
»

2149

EOF

2161

2165
2167

2169
2170
2178
2179
21890

ZRCHBA

REV B8 PATCH 00

002222
002226
002230
002232
002236
002244
002246
002250
002252
002260
002264
002270
002274
:

Routine

Size:

Maximum stack

000000
000000
000004
000006
000010
000012

;:
;i

00a767
006000
103002
004767
026727
001007
104435
000405
012767
004767
000167
062706
000207

004767

ZRCHBO RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
0000006
0000006
0000026 000017

SS$:

607 words,

depth per

S6%:
S7%:
S8$:
S9%:

Routine Base:

invocation

175476

23 words

PC,SEND.DATA
RO

8CC
JSR
CMP
BNE

SS$
PC,DECODE
REC.BUF «2,017
584

B8R

S84

1$%:

MOV
JSR
JMP
ADD

#1001
,RET STATUS
PC,DECODE
15%
236, 5P

RTS

ABSCODE

JSR

2276

end

eludom

0TS external references
.GLOBL
$SAVE3
&
®r

SUMMARY

File

Total

Symbols

Loaded

®s

Attr butes
RO,
I

LCL,

REL,

CON

STATISTICS

LIBRARY

SPIDER
{NEALE
SUS
.AZTEC)ZR
ERS
CHBO.L16;
:
2

398

2188

Routine Base:
ABSCODE
invocation:
2 words

Words
613

2182

0000

66
RO

8LO

Psect Name
AB $CODE

2126
2203
2204
1852
1611

PC,$T1

TRAP
ROR

PSECT

SEQ 0143
VAX-11 Bliss-16 V3 555
23
SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBA . 8162 (7)

T1 DOWN LINE LOAD FORMATTER AND MONITOR

RTS

Routine Size:
6 words,
Maximum stack depth per

13:44:04
14:13:18

.SBTTL

T1::

104466
006000
103773
000207

2211
2212
2213

JSR
ROR

TRAP

001001
0000006
000000G
176334
000036

S-Apr-1984
23-Sep 1983

168

---

Blocks

k1.)

Percent

Read

TASK
2208

Ble
ZRCHB4

REV

ZRCHBO RC2S DISK FORMATTER

PAICH 00

DOWN LINE

LOAD FORMATTER

TASK

COMMAND QUALIF IERS

:
:

AND MONITOR

BLISS

/PDP11/LIST

ZRCHBAS .916

S ce:
Run T 'me:

613 code - O date words
00:24.7

HMemory

386 pages

Elapsed

Time:

Used:

02:14.8

Comp lat on Complete

S Apr-1984
23 Sep 1983

13:44:04
14:13:18

VAX-11 Bliss 16 V3 555
SPIDERSUSERS: [NEALE.AZTEC JZRCMB4

5EQ 0144
Page
24
.B15;2 (7)

Cle
ZRCHBO RC2S5 DISK # ORMATTER
MOOUWLE

ZRCHBS

(#TITLE

IOENT

BEGIN

)

‘'MODUWE

13:46:24
13:23:1°2

56Q 0145
VAX 11 Bliss 16 V3 555
Page
SPIDERSUSER
;: [ NF
S ALE .AZTEC JZRCHBS.B1K:4 (1)

'ZRCHBO RC2S DISK FORMATTER'

'REV B PATCH 00',

ENVIRONMENT
ssbtt]l

(RELATIVE)

(NOEIS)

DECLARATIONS'

é Pretty Declarations

§<b1f/10uerc.oc_koy>
]

library

'ZRCHBO';

'‘Define RC25 Formatter

reguire

'BLSMAC.REQ';

'Define Bliss Macro require file

library

!
!
!

A
forward-routine-decleration declares
s
name
to be
@ routine-neme whose
definition is given later in the same block, end essociates with that neme the
set
of sttributes
needed for
generstion
of cell
to the
nemed
routine.

! The

following is a list of all routines declered within this module and can

noted that

this module

is only place where global

routines are declared.

B¢

V¢

S Apr 1984
11 Jan-1984

ADDRESSING _MODE

G0 O

ZRCHBS

forward routine

LOAD FILE,

‘Load file

GET_NSOD,

from

locel

load media

'Get next send descriptor slot

GET _NRD,

LOAD_OUTS$STD BUF,

GET_CMDSREF,
OECODE : novelue,
OUPSI _SERVICE : INT_LNKSTYP novalue,
CTO_WAIT,
ABORT,
GET _DUST_STATUS,
EX_SUP_PROG,

!Get next

!Load out standing command buffer

‘Execute Local Program command

REC_DATA,

'‘Receive Date commang

SET_CNTLR_CHAR,
ON_LINE,
INTSI _SERVICE :
IS_TIMER,

8007 _RCe2S,

INIT _COM_AREA;

0 <BLF /PAGE >

index

'Cet unique command reference number
!Decode return status error code
'0up/UQ port interrupt service routine
Command time out wait
!Abort Dup command
'Get Dust Stetus command
!Execute Supplied Program command

€X_LOC_PROG,

SEND _DATA,

ndex

receive descriptor slot

'Send Dates command

INT_LNKSTYP movalue,

!Set Controller Characteristics command
10n Line command
‘Initialization sequence nterrupt service
'Initialization sequence time out wa't

'‘Initialize sequence for RC2S5 controller
'Initial
"ze UQ Port

communicat.on

area

Dle
ZRCHBS

REV B PATCH OO0
:

1538

ZRCHBO RC2S DISK f ORMATTER

S Apr-1984 13:46:24

MODWE DECLARATIONS
.

11 Jan 1984 13:23:12

1539

:
:

1541
1542

!psect

H
H
H

1544
1545
12:3

!
! Structure declarations used within this module.

:
H
:
:

1543

The psect

This

1549

structure

1550
1551
1552
1;2}

)§

“code or

to organize

$codes’

formatter

redefinded here

routine code

to be called

"actcode”

into & seperate psect.

code * acicode:

1548

named

is done

!.
! RC2S
register
accessing
structure.
This structure eallows RC2S register
! accessing to be transportsble between the PDP-11 and VAX Diagnost ¢
Supervisors.

1555
lggg

! This
also
defines en access algorithm for VAX to sllow field reference
E to MBA eddress space without generating machine checks.

H
H

1558
1559

RC2S

:
H
H
H
H
H
H
H
:

1561
1562
1563
1564
1565
1566
1567
1568
1569
1570

1560

(0,

begin

local
RC$S_REG;

RC$S_REG =
RC$S REG
end
<P, S, E>;

.(RC2S

!<blf/page>

S ad

:
:

1240

VAX-11 Bliss 16 V3 555

+ supvele0)<0,

sbpvel,

O>;

20, 0re”

SPIDERSUSERS: [NEAI
F ,AZTEC ]JZRCHBS . 816 4
(2)

El2
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODW
. E DECLARATIONS

H
H

.
! External Declaration of

1571
1§;§

:
3
:
H
:
H
:
:
3
:

1574
1575
1576
12;;
1
1579
1580
1581
1582
1583

:
:
:

1585
1586
1587

:
H
H
H
:
H
:
H
:
H
H
H
H
:
H

1584

1283
158
1230
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
iggg

%ggg

H
:
;
:
H

1606
1607
1608
1609
1610

1611

S Apr-1984

13:46:24

Jan-1984

VAX-11 Blise-16 v3 555

13:23:12

enternal
H
! Communications area declarations
!
COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE + HOR_SIZ, 2, word],
MEAD_AREA : ref block (4, word) field (MOR_FIELD),
RECEIVE _RING : ref blockvector [REC_ALLUCATE, 2, word) field (DSC_FIELD),
SEND_RING : ref blockvector [SND_ALLOCATE, 2, word) field (DSC_FIELD),
REC_ENVELOPE : blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field
(ENV FIELD),
SND_ENVELOPE

blockvector

[SND_ALLOCATE,

SB_SIZE

word)

OUT$STD _BUF : blockvector [REC_ALLOCATE, 2,
!
! Miscellanious external data declarations
!
NEX_FLAG : word,
NRD_SLOT : word,
NSD_SLOT : word,
RC25_ADOR : ref RC2S field (ISD_FIELN),
RET_STATUS : word,
PID_SAVE : vector (2, word],
VEC_ADDR : word,

RSVD_STRUCT : vector (4,
ISD_STRUCT : blockvector
UNIT _NO : word,
NXT_CRN : byte,

word],
[4, 2,

Error Messages

word]

field

word)

f 'eld

(ENV _FIELD),

field (OUTSFIELD),

!Non-existent RC25 register flag
!Next receive descriptor slot
‘Next send descriptor slot

!Controller reg access struct
'Global return status location
!Saves program indicator field
'RC2S5 interrupt vector address
!Stores init seq resvered fields
(ISD_FIELD),
'Init seq dats
'P_table unit number to format
!Stores

cmd

ref

number

Structures

PFE_STRUCT : vector [23],
EMSG_STRUCT : vector (23],
RC_STRUCTURE : vector (39]),
SDUP _STRUCT : vector (7],
SMSCP_STRUCT : vector [(13],

!<blf/page>

Page

SPIDER
[NEALE
$US
.AZTEC )ZRCHBS
ERS
.B16:4
:

datums declared outside of this module.

RET_ENSAD : ref block [RB_SIZE + 2, word) field (ENV_FIELD),
REC_BUF : block [RECB_SIZE, word) field (RECB_FIELD),
SNO_BUF : vector [SNDB_SIZE., word],

5EQ 0147

!Port fatal error msg struct
'Error mess
structure
!RC25 SA reg ster fatal error
I0UP return status code messages
'MSCP return status code messages

(3)

Fle
ZRCHBS

REV 8 PATCH 00

H
H
H
H
:
3
H
H
:
H
B
H
H

:
:

1612

1613

1614
1615
161?
161
1618
1619
1620
1621
1622
lggz
1
1625
1626
123;
1

1629

1630
1631

1632
1633

ZRCHBO RC25 DISK FORMATTER

MODULE

DECLARATIONS

Formatted ascii

S-Apr

1984

11-Jan-1984

13:46:24

13:23:12

VAX-11 Bliss-16 V3 555

5EQ 0148

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHBS.B165;:4

strings

!
PID FMT,
!Progess indicator printing string
FMTA,
Micro code version printing format
!
! DM code paremeter declarations
!
! The
following
declarations
are
declared in module azkelé ‘DM code
! module’
and point to the starting address of specific DM
code buffer areas.
!
! (OVSA is declared in szkel2 and is & memory location however)
!
! It
is
&8 hack but the azfmtr storage allocation must be
edited in manually
! any
time the DM code buffer changes.
Get this
vealue from the output
of

! OMCONV program.
(Bliss wants this allocation value to be @ compile time constant).
!
AZFMTR : vector (8989, word]),
'RC2S formatter DM code buffer
HOSA,
'Most DM code header address
DMSA,
‘Host DM code initiesl load address
OVSA;
‘Host First overlay address

(4)

GLle

V0 G0 G0 G
V0
G0 G0 V0
G0 O
V) O
G
00
G0 B0
Ve 02
V¢
B0
B0 B
B
O
¢
00 G0
Ve
PP B0
G
VS
VI
VI
VT
S

3EO 0149

VAX-11 Bliss-16 v3 555
SPIDERSUSERS: (NEALE.AZTEC )ZRCHBS ., 816 4 (

1636
1637
1638
%228

..
! Functional Description :
This multi -purpose routine is used to read in files from the boot
device into host memory space et the specified
buffer address.

1641
1642
1643
1644
1645
1646
1647
1648
1649

1652
1651
1652
1653
1654
1655
1656
1657
1658

1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1

1672

1673
1674

%2;2

routine LOAD FILE

formal Parameters
BUF _LOC

(BUF LOC,

FN EXT,

BUF SIZ)

-«

This contains the host memory

words read
be loeded.

from the boot

Losd file

from

BWF _SI2

This contains the number cf worcs alloceted
for the buffer where the file i to be read
in.
This is used for protect against buffer
over

load maedia

This contains a pointer to an asciz string
of the file name to be reed in,

Inputs

local

address where

dev ce are

FN_EXT

Implicit

runs.

none

Implicit Outputs

none

Completion Codes
FRE _CODE

Is returned

not
PAS _CODE

destroyed by

beo

the

i f

the end-of-file

returned before

Is returned

Side Effects :
Dats previously

the buffer

loaded

incomming

the buffer

if end-of-file

before

full.

the speci
fi ed
file

indicator

load buffer

returned

from disk,.

‘Return stetus

EO08;

from getword macro

'End of buffer address storage

1677
{g;g

OPEN (.FN_EXT);
€08 » (.BUF S1Ze2)

1680
1681
1682
1683
1684
1685
1686
1687
1688
1589
1690

HE
! Resd the first block from the input file ang thrOugh
! it amay since it only contains RT 11 ‘nformation
H

.BUF _LOC;

incru i from O to 255 do
be?
GETWORD (.BUF LOC);
end;

‘.

full.

locsel
NEOF ,

Ve
G
G5
00 G5 B¢ 95 B¢
WS B0 B¢ B

S Apr 1984 13:46:24
11 Jan-1984 13:23:12

global

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

{gg;

00 OS¢

G0 O

ZRCHBS
REV B PATCH 00

'0pen the file for input
!Calculate the last buffer address

H12
JRCHBS

REV

8 PATCH 00

1691
1632
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703

1704

1705

1706

1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719

000204
000010
000012
000016
000020
000024

ZRCHBO RC2S DISK FORMATTER

MODUWLE

S Rpr-1984
11 Jan-1984

DECLARATIONS

Looo on getting a word

from the

load

file.

SEQ 0150
VAX 11 Bliess-16 V3 555
Pa Qe
6
SPIDER
[NEALE
S$U
.AZTECSER
)ZRCHBS .B165:4
S: (S)

13:46:24
13:23:12

After

increment to the next word by adding %0'2' to the
buffer load addrss.
Continue getting words until
the not complete

buffer

indicator

is over run.

is over

is returned (0)

Return an error code

run,

the

begin

!(8‘ = GETWORD (.BUF LOC);

BUF _LOC =

end
until ( not

.BUF _LOC

_NEOF) or

+» 0’2

!Read next word into .mem_loc
‘Increment to next word

;

(.BUF _LOC ealu

.E0B);

'Repeat

until eof or buf overrun

i Return an error code if not eof (neof = 1) else close the file and return a pass code.
iF

_NEOF

!Was the eof

then

else

return

RET _STATUS

FRE _CODE

indicator

'Return error code

returned

to caller

[ a)

CLOSE
;

'Eof was returned so close

end;

return RET_STATUS
end;

004167

0000006

016600
104434
016600
006300
016602
060200

000014

000012

000016

PAS

CODE;

'Return

a pass code

file

the caller

.TITLE
.IDENT

ZRCHBS ZRCHBO RC2S DISK FORMATTER
/REV 8 /

.GLUBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

COM.AREA, HEAD.AREA, RECEIVE.RING
SEND.RING, REC.ENVELOPE, SND.ENVESLOPE
RET.ENSAD, REC.BUF, SND.BUF, OUSSTD.BUF
NEX.FLAG, NRD.SLOT, NSD.SLOT, RC2S.ADDR
RET
. STATUS, PID.SAVE, VEC.ADOR
RSVD,.STRUCT, ISD.STRUCT, UNIT.NO
NXT_CRN, PFE.STRUCT, EMSG.STRUCT
RC.STRUCTURE, SDUP.STRUCT, SMSCP.STRUCT
PID.FMT, FMT4, AZFMTR, HDSA, DMSA
OVSA

.SBTTL
.PSECT

LOAD.FILE MODWE
ACSCODE,
RO

LOAD.FILE::
JSR
MOV
TRAP

MOV
ASL
MOV

ADOD

R1,$SAVE3
14(SP) RO
LY}
12(SP),RO
RO

16(SP),.R2
R2,RO

DECLARATIONS

:
:

FN.EXT,»

1634
16°7

BUF SIZ,»

BUF LOC,»

ZRCHBS

REV 8 PATCH 00

000026
000030
000032
000034
000036
000040
000042
000044
000050
000052
000056
000060
000062
000066
000072
000074
000076
000104
000110
000112
000116
000120
000122
000124
000130
000134
000136
000140
000144
000146

;:
:
:

010003
005001
010200
104427
103001
010012
005201
020127
101770
016600
104427
103005
010076
012702
000401
005002
062766
032702
001403
026603
001355
006002
103005
012700
010067
000207
104435
005067
005000
000207

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984
11-Jan-1984

MOOULE DECLARATIONS

MOV
1$:

MOV
TRAP
MOV

2$:

000377
000016

000016
000001

000002
000001

000016

Ss:

000016

MOV
TRAP
BHIS
MOV
MOV

555

1685
1687

RO,
»

1685

16(SP),RO

BUF .LOC, »

1701

4
RO,816(SP)
a1,R2

RO,BUF .LOC

R2
02,16(SP)
1,R2
64

BIT
BEQ
CHP
BNE

7%:

+,E08
1

& ,NEOF

ADD

MOV
MOV
RTS
TRAP

Bliss-16

I
I,»

B8R
CLR

ROR

005001
0000006

RO, (R2)
R1
R1,0377
1

INC
cHP
8LOS

64:

SEQ 0151
P Q€
SPIDERSUSERS:
[NEALE .AZTEC JZRCHBS.B16;4 (5)

VAX-11

27
23

BHIS

16(SP),R3
34

R2
78
#5001 ,R0O

8cC

gg.REY.SYATUS
35

CLR
CLR

RET.STATUS
RO
PC

RTS

Routine Size:
Se words,
Rout ine Base:
AC$CODE
Maximum stack depth per invocation:
6 words
1720

RO,R3
R1
R2,R0O

CLR

13:46:24
13:23:12

0000

NEOF
¢ ,BUF
. LOC
¢ ,NEOF

1702
1704

BUF .LOC,EOB
NEOF

1710

1712

1714
1718
1671
1634

Jl2
ZRCH3S

REV

B PATCH 00

I;gé
1

1723

;

1724

H
:

1725
1726

1727

:
:
:

1728
1729
1730

H
:
H
:
:
:
:
H
H
:
:
:
:
;

1731
1732
1733
1734

1735

1736
1737
1738

1739
1740
1741
1742
1743
1744

:
H

1745
1;:3

:
:
:
;
H
:

:
H
:

:
H

ZRCHBO RC2S DISK FORMATTER

MTMMODWE

ODECLARATIONS

Functional Description

!
!
!

another command
Formal Parameters :
none

!
!

!
!
¢
!

!
¢
!

!
!

Implicit Outputs

begin
H
!

Increment

the next

this routine each time

it wishes to deposit

"Nsd_slot” to the calling routine.

send descriptor_slot by

!
!

.NSD_SLOT

one

gtru

to zero

SNO_ALLOCATE

it wraps around to the

then NSD_SLOT

Return the next send descriptor_slot

top of

the ring.

ZERO;

to the caller

return
end;

_NSD_SLOT;

000000G

000004
000012
000014
000020
000024

026727
101402
005067
016700
000207

000000G 000003

1760

1755
{;g?

Maximum stack

(6)

Global
storage for
the next
send descriptor slot.
Stores where the host should plece this command for
processing by the port/controller.

NSD_SLOT = _NSD_SLOT + 1;
!
! Set the slot pointer back
!

Routine Size:

Page

SPIDERSUSERS
: (NEALE .AZTEC JZRCHBS.B16;4

which send ring
descriptor
the port/controller
dsc slot number to the calling routine.

into the command (send) ring.

Returns the contents of
S de Effects :
!
none
!'--

005267

SEQ 0152

The
global
storage
"Nsd_slot”
is
updated
to the
present send slot where the port/controller is polling.
Completion Codes :

000000

This host program will call

13:23:12

VAX-11 Bliss-16 v3-555

'Chooses the next send slot

This
routine
will determine
is polling
and
returns that

Implicit Inputs
NSD_SLOT

13:46:24

11-Jan-1984

global routine GET_NSD =

1748
1749
i;go
1
1752
%;gz

1758
1759

S-Apr-1984

000000G
0000006

11 words,

depth per

.SBTTL

GET.NSD MODUWE DECLARATIONS

INC

NSO .SLOT

GET.NSD:
:

1$:

Routine Base:

invocation:

O words

cMP
BLOS
CLR
MOV
RTS

ACSCODE

NSD.SLOT, 03
13
NSD.SLOT
NSD.SLOT,RO
PC

. 0150

1748

1753

3
:

1744
1721

K12
ZRCHBS

REV

PATCH 00

11-Jan-1984

1771

1
¢
'
!

host program will call this routine each time
receive ring descriptor,
Forma! Parameters :
none
Implicit

Inputs

1774

1775

Implicit Outputs

:
:
:

1778
1779
1780

'
'

:
H
:
:
H

1782
1783
1784
1785
I;gg

Completion Codes :
Returns the contents of
Side Effects :
none

H
H

1
1788

H
:
H
:
:

H
H

1781

1789
1;30
1791
1792
i;g}

1795
{;gg

:
:

NRD _SLOT

response

the next

receive descriptor_slot by

_NRD_SLOT

Set

!
!

Return

to zero

gtru REC_ALLOCATE

the ~ext

present

receive

slot

one

wraps around

then NRD_SLOT

receive descriptor_slot

the

top of

the

ring.

ZERO;

to the caller

1798
1799

return
end;

.NRD _SLOT;

005267

0000006

000004

026727

000000G 000003

101402
005067
016700
000207

000000G
0000006

.SBTTL

GET.NRD:
:

INC

cMP

1$:

8LOS
CLR
MOV
RTS

: Routine Size:
11 words,
Routine Base:
ACS$CODE
: Maximum steck depth per invocation:
O words
H

the

the slot pointer back

.NRD_SLOT

it wishes to process another

to the calling routine,.

!
NRD _SLOT

000000

000012
000014
000020
000024

"Nrd_slot”

begin
'
! Increment
=

indicator.

The global storasge “Nrd_slot” is updated
where the port/controller is polling.

'
!
!

(7)

Global storage for the next receive descriptor slot.
Stores
where
the port should return this comrands

!
¢

Page

.B16:4

¢
'

1776
1777

SEQ 0153

'Chooses the next receive slot

1772
1773

SPIDER$USERS: [NEALE.AZTEC JZRCHBS

.
! Funct-onal Description :
¢
This
routine will determine which receive ring descriptor the port/controller
!
is polling and returns that dsc slot number to the calling routine.
This

1767
1768
1769
1770

:
:

13:23:12

VAX-11 Bliss-16 Vv3-555

1763
1764
1765
1766

:
:
H
H
:
:

DECLARATIONS

13:46:24

global routine GET_NRD =

176

MODULE

S-Apr-1984

1;6;

H
H
:
H

ZRCHBO RC25 DISK FORMATTER

1800

GET.NRD MODWE DECLARATIONS
NRD.SLOT

1788

18
NRD.SLOT
NRD.SLOT,RO
PC

:
;

1784
1761

NRD.SLOT, 03

+ 0176

;

1793

L12

1813
1814
1815
1816

1817
1818

1819
1820
1821
1822

1823
1824
1825

1826
1827
1828
1829

1830

1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857

DECLARATIONS

11-Jan-1984

global routine LOAD_OUTS$STD_BUF
>

1801
18902
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812

MODULE

S-Apr-1984

(REF _NUM)

13:46:24

13:23:12

VAX-11 Bliss-16 v3-555

Functional Description
The

outstanding

this

host

command

program to

buffer

determine

tLoad outsstd_buffer with

“out$std_buf”

this command

'l' which
response

is
set by
the
ring interrupts.

This buffer coan be

looked

used by

if an outstanding command

issued to the
port has
been
processed yet.
by
examining the
receive flag 'Rec_flg' in
for
a
during

This
is done
buffer slot
interrupt service
routine

8 window between

the port

driver receiving & processing the response envelopes and the
host class driver

issuing commands

This
routine
loads
following values:

1.
2.
3.

into

to the port.

empty out$std_buf slot

the

This commands reference number.
Clears 'rec_flg' indicating this command is outstanding.
Clears out the
second
word in slot where the returned
envelope address will go.

IMPORTANT NOTE:
To
quarentee a command loaded into the outtstd_buffer will
never
be lost
(i.e.
having this
routine return a buffer

slot not yet
received
by
the
interrupt service routine),
only the
cto_wait (controller
time
out wait) routine
is
permitted to
return
a out$std_buf slot to the unused pool
(i.e.
by loading
a slots
first
word
with so’'100000').
This
routine is therefore guarenteed
to return
an unused

outsstd_buffer slot

when this unique

value

of so’'100000’

is
found.
To
further
quarentee this, unique command
numbers will never use zero as a reference number.

Formal Parameters

REF _NUM

Implicit

Inputs

This

the unique

reference number

ref

this command set

none

Implicit Outputs

none

Completion Codes

The outtstanding buffer slot index where
is routines value and is returned to the

Side Effects
none

begin
1)

this command was
caller.

put

SEQ 0154
Pa

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS.B16:4

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

D VD I VD LD B ID LD D I VD PD ID D I 1D IB D ID IS IDID IV ID ID ID D VD I I I D D I I D ID I P I I D P VD ID D IDID I ID I D ID ' D v

ZRCHBS

the

port.

(8)

M12
ZRCHBS
REV

PATCH 00

B¢

)

B¢

1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

000000

004167

000004
000006
000010
000012
000014
000020
000022
000026
000030
000034
000040
000044
000046
000050
000052
000056
000060
000064
000070

005001
010100
006300
006300
012702
060002
021227
001010
042712
116612
005060
010100
000207
005201
020127
101753
012700
010067
000207

;:
;:
H

ZRCHBO RC25 DISK FORMATTER

MTMMODUWE

[]

S-Apr-1984
11-Jan-1984

DECLARATIONS

through
the
out
standing
command
buffer and look
Return this first slot index to the caller if one
If no open slots are found then return an error code.

open s lot.

]

incru

from O

to REC_ALLOCATE

An open slot

OQUTSSTO_BUF
OQUTS$STD BUF
OUTSSTD_BUF
i

The buffer is full
an
error

report

[.i,

CMD_WRD) eqlu %o'100000°

[.i,
([.i,
[.i,

REC_FLG]
CMD_REF]
ENV_ADR])

for
is

the

first

found,

the

slots

first

word.

'Is this slot open

= FALSE;
1Clear the received flag
= .REF _NUM;
'Load this cmd’'s ref num
= ZERO;
!Clear the previous env adr
‘Return buffer index to caller

if the code reaches here.
for debug purposes.

This should never happen so

return R ET_STATUS
end;

0000006

08F _CODE;

ASL
ASL
MOV

000000G

ADD

cMP
BNE
8IC

100000

100000
000010
0000026

000003

002001
0000006

'Report an

'outs$std buffer

full” error

.SBTTL
LOAD.QUTSSTD.BUF MODUWE DECLARATIONS
LOAD.QUT$STD.BUF
::
R1, $SAVER
JSR
R1
CLR
R1,RO
1¢:
MOV

MOVvB

CLR

2%:

MOV
RTS

INC
cMP
B8LOS

MOV
MOV
RTS

Routine Base:
ACSCODE
Routine Size:
29 words,
Maximum stack depth per invocation:
4 words

1883

VAX-11 Bliss-16 Vv3-555

'‘'Find the first open slot

is by definition the value %o' 100000’

K
OUT$STD BUF
then
in

return
end;

SEQ 0155
Page
11
SPIDERS$USERS: (NEALE.AZTEC]ZRCHBS.816;4 (8)

13:46:24
13:23:12

RO
RO
Q0UTS$STD.BUF
,R2
RO,R2

1801
1863
1868

g??).0-100000

9100000, (R2)
10(SP),(R2)
OUT$STD.BUF +2(RO)

R1.RO
PC
R1
R1,03
13
02001,R0O
RO,RET.STATUS
PC
0224

REF .NUM, ¢

I,»
I
I,»

1871
1872
1873
1870

1863
1881
1801

N12
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE DECLARATIONS

global

i
:
H

H
H
:
H
:
H
:

.
:

:
:

:
:
:
:

:
H
:

1884

1885
1886
1887

1888
1889
1890
1891
1892
1893
1894
1895

1896
1897

1898
1899

1900
1901
1902
1903
1904
1905
lggg

H
:
H
H

1927
1928
1929
1930

1931
1932
1933
1934
1935
1936
%gg;

!
!
!
!

ref

number

single

DUP

issued by

server.

number
after

when
receiving

The

singlo

cleas driver

class driver may

the
command
the commands

re-use a

is
no
longer
end message or

after
re-synchronizing
with
the D
server.
(Command
reference
numbers
need not be unique for commands
issued by different class
drivers --- i.e. commands issued by different
host or commands for
diffeent DUP
servers
from
the same host.
Therefore
controllers
must
internally
use the combination of a command reference number
and the connection on
which the command was received as the unique
identifier of an outstending command.

This
routine will generate a unique
command reference number and
will search the out$standing command buffer to see if already uesd.
The first unused unique command
reference found will
be returned
to the calling routine.
Formal Parameters
none
Implicit Inputs
NXT _CRN

Implicit Outputs
NXT_CRN

This global location stores the next
reference number to be used.
:

This global location is loaded with
unigue command reference number.

Completion Codes :
The contents of

1 Side Effects
!
none
!-.

.NXT_CRN

is returned to

unigque cmd

the next

the calling routine.

begin

loceal
OONE
;

'
!

Increment

[}

1939
1940

commands
reference
outstending -- i.e.,

across all outstanding commands

!
'

:
H
H
:
H
H
H

unique cmd

(Host)

1924
iggg

!Gets next

H
:

1908
1909

13:23:1°2

Command reference
numbers must
be unique across all commands that
sre outstanding on
the
saeme connect
on
i.e., they
must be unique

1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
%ggg

11-Jan-1984

VAX-11 Bliss-16 v3-555

!
!

H
H
H
H
:
H
:
:
H
H
H
:
H

:
:

SEQ 0156
Page
12
SPIO:ER$U
[NEALE .AZTEC SERS
)ZRCHBS .B16:4 (9)

13:46:24

..
! Functional Description :
!
A
32 bit
unique non-zero
number
used
to identify host commands.
!
Cless
drivers
should
supply
@ unique
reference number
in
each
!
command
that the
send
to a DUP server.
A class driver may supply
!
a
zero reference number
f it does not need to associate s command
!
with its end message.

!
!
!
!
!
!
!
!
!
!
¢
¢
!
¢
!
¢
!
!
:

routine GET_CMDSREF

S Apr-1984

NXT_CRN

the global unique command reference rumber before anything

_NXT_CRN

is done.

BLl5

B¢

V¢

V0 B

00 B¢

B¢

00 G

ZRCHBS
REV B PATCH OO0
1941
1942
1943
1944
1945
1946
1947

ZRCHBO RC25 DISK FORMATTER
MODWLE DECLARATIONS

BREAK;

'Flag sny

Wrap

this next

command

back

to one

]

000010
000014
000016
000024
000026
000032
000034

105267
104422
012701
005000
126067
001004
105267
005001
000405

_NXT_CRN gtr

OONE

255

reference number

is greoilcTM

control

C's

then

NXT

Now

reference

eround

then 255 (decimal).

CRN

TRUE;

!Clear
the

number.

outtetd buffer
If

not

for

there

this

the oll done

indicator

flag

command

then done

steys

true
oand the i00p will
end else increment to the
next unique command ref number and make done false
to continue the loop.

incru

from O to REC_ALLOCATE

.QUTSSTO
BUF

then

[.i,

1 do

CMD_REF] eqlu

begin

XT _CRN = _NXT_CIN
OONE = FALSE;
exitloop:

tSearch buffer for

.NXT_CRN
11t

end

unti 1
!

.OONE;

Return

return
end;

elready

'‘Repeat

the unique command reference number

it already exri st

existse

loop until done

the caller.

_NXT _CRN;

.9B8TTL

000001
000000G 0000006
0000006

!Does

this cmd ref num

!Try the next sequentisl cmd ref num
'Make code loop again
1Exit this incr loop

end;

010146
000002

operator

1964
1965

1980

VAX-11 Blies-16 Vv3-555
SPIDERSUSERS: (NEALE .AZTEC JZRCHBS

Repeat generating and searching the outistanding command buffer until e
unique commend reference number is found.

1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963

1981
1982
1983

13:46:24
13:23:12

1948

1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979

5 Apr-1984
11 Jon 1984

GET.CMDSREF
::
MOV
INC6
1¢:
TRAP

R1, (SP)
NXT . CRN
22

]
3
]

CLR
SS:B

RO
gUYSSYD.BUF(RO).NxY.CRN

1
1

INCB

NXT,CRN

B8R

MOV

GET.CMDSREF MODW.E DECLARATIONS

CLR

21,.R1
)

¢ ,DONE

1
(D),
OONE

:EQ 0157

Page
17
.B15;4 (9)

CL3
ZRCHBS

REV

B PATCH 00

000036

000042
000046

000050
000052
000054
000056
000062
000064

062700

020027
101763

006001
10335S
005000
156700
012601
000207

Routine Size:

Maxnimum stack

1984

ZRCHBO RC2S DISK FORMATTER

MTMMODWE

S Apr

DECLARATIONS

000004

000014

a4
0000006

27 words,

depth per

Rout ine Base:

invocetion:

words

ADD

Jan

1984

13:46:24

13:23:1°2

VAX-11

Bliss-16

V3 555

SEQ 0158

SPIDERSUSERS: (NEALE.AZTEC )ZRCHBS. 816 4

(9)

cMP
8LO0S

RO,014
2t

94 ,RO

i
[

.CI
Io‘

19656

ROR
8CcC
CLR
8ISB
MOV
RTS

R1
18
RO
NXT.CRN,RO
(SP)+ ,R1
PC

DONE

1977

ACSCODE

+ 0316

1931

1884

D13
JRCHBS

ZRCHBO RC2S DISK FORMATTER

REV 8 PATCH 00

MODULE

DECLARATIONS

{ggz

globel

routine DECODE

1987

‘.o

:
:

1988
1989

1990

:
:
H
:
H

1993
1994
1995
1996
1997

:
H

:
:
:
H
:

:
:
H

1991
199¢

1998
1999
2880
2001
2002

2003
2004
2005

2006
2007
gggg

H
:
H
H
:
:
H
:
:
:
:
:
:

:
:
:
:
:
:
:
:
H
H
:
:
:

2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022

2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
gggz

H
H
H
:

!
!
!
!
¢

are

two

novalue

levels

and they

ere:

the DUP
and UQ Port protocol there
issued commaend to
a port/controller

fail

The

An
error
coan be posted
report an error.

The
issued
commend
to
the port/controller cen
be executed
correctly without
any
errors but the response
packet status
field could have an error or
status other then success posted.

issued command cen time out.
in SA register bit

returned

are

ell

15 by

the port

returned to the host

bit
is set the DUP interrupt routine returns o PFE_CODE and this
code is
pessed
up
to
the
celling host routine with out being
intercepted by any routine on the way up).

This
routine
will
then be called when the return from a queued
command
comes
baeck with an error code or non successfull status
code.
This is
by
definition
when bit O in the returned atatus
is equal to 1.

¢
!

appropriate

error,
Formal

Parameters
none

Implicit

Inputs

recovery

action will

be done

for

this global

storage

each

individual

RET _STATUS:

Stored

code or
command
.

non-successful

!
!
¢

Implicit Outputs
none

Completion Codes
none

!
¢
!

Sicde Effects :
All formatter errors are fatal, therefor
of
this
routine
the
R(C2S5
controller
aborting any

DM code

running

status

the

code

returned error

from a queued

after erecution
s initial -ed

the controller.

beg'n

local
SA

VAL UE;

!Save

fatal

error code

[

’5092319 15

SPIDERSU
[NEALE .AZTEC
SERS
)ZRCHB8S.815
:
:4

!Decodes failing SA reg data

at which an

These errors or status’'s

¢
¢
!

13:23:12

con

[]

2037
2038
2039
2040
2041

Jan-1984

VAX-11 Bliss 15 V3 555

routine which queued
the
DUP
commend
vie
the
global storage
“RET_STATUS”.,
The
host
to
port/controller
communicnations
connection
heving
the highast priority (ie. if the SA Reg error

!
!
¢
!
!
!
!
!
!

Functionsl Description :
Oue
to the implimentation of

!
!
!
¢!
!
!
!
¢
!
!
!
!
¢
!

!
¢

S Apr-1984 13:46:24

(10,

E13
ZRCHBS

REV

B PATCH 00

ZRCHBO RC2S DISK FORMATTER

MTMMODWLE

2042

2043

2044

:
H

2045
2046

2047

H
H
:

2049
2050
gggé

2048

:
H

:
:

:
:
:

H
:
H
;

DECI.LARATIONS

11-Jan-1984

Use the contents of
status code

selectoneu

13:46:24

"RET _STATUS”

to be processed.

to select what

2053
2054

13:23:12

!
!

type error or non successful

initialize” error code

This error
code -nducotco that
the
port did
not init the com area in the host memory after
step
2
of
the
initialization
sequence.

!
H

2060
2061
2062
gggz

(CIE_CODE) :
begin
PRINTB (.EMSG_STRUCT (MSGA));
end;
!
! "Port/Controller time out” error code

2057
2058
2059

gggg

:
:
H
:
H
:
:
H

2067
2068
2069
2070
2071
2072
2073
2074

H
:

'Code equals so'0l’

Port/Controller

timed out

after

the specified t . me out

(CTO_CODE]
begin

PRINTB
end;

interval.

'Code equals %o0'11"’

( .EMSG_STRUCT

[MSG21));

!
!
]

“Port

2075
gg;g

!
!

The error bit in the SA Register was set when examined in
routine.
This error indicates a Port fatal error code.

:
H
H
H

2078
2079
2080
ggg;

(PFE_CODE] :
begin
SA_VALUE

:
H
:
H
H
:
:
:
:
:
:

2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093

H
H
:
5

2094
2095
2096
2097
2098

!
!
'

fatal

error”

.RC25_ADDR

[RCSA,

ERR COOE);

!Get

Is the error code within the RC2S error code
an generic, all controllers, error code?

if .SA_VALUE
then
begin

else

code

end;

the DUPSI SERVICE

'Code equals %o’ 21"

PRINTB
end

error code

range,

‘s

from SA

reg ster

gequ 200

( .RC

begin
PRINTB (.PFE
end;

STRUCTURE

STRUCT

[.SA

VALUE

[.SA VALUE));

200));

S€EQ 0160

SPIDERSUSERS: {NEALE.AZTEC JZRCHBS . 816 4

.RET _STATUS of

set
!
! “Communication area

2055
2056

VAX-11 Bliss-16 V3 555

[]

'
!

S Apr-1984

'RCIS error

'‘Generic error code

code

range

(LO)

F13
ZRCHBS

REV
:

:
:
H
:
;
:
H
:
H
:
:

H
H
H
3
:
H

B8 PATCH 00

126
2127
2128
2129

2130
2131
2132
g}g}

:
:
H
H
H
H
H
H
:
H
:
H
H

2135
2136
2137

2138
2139
2140

2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153

2154
2155

status error”

indicates

that

a non

successful

1984

13:23:12

return status code

if _RET
then

Jen

13:46:24

VAX-11 Bliss

16 V3 555

was

returned

from an

issued command.

!Code equals %o’ 31’

ENSAD

(CONN_ID)

field to determine

the

typoe of

response

eqlu DUP

begin

PRYNTB (.SOUP_STRUCT [ .RET ENSAD [STATUS]));

else

end

be?'n
PRINTB
end;

!
!

"Port

Portocol

A protocol

{PVE _CODE]
begin

PRINTB
end;
'
!

(.RET_ENSAD

[STA CODE)));

end;

(.SMSCP_STRUCT

violation”

v'olation error

error code
was detected during host

(.EMSG_STRUCT

"Remote program died”

!Code

equals

processing of

[MSG1l1));

error code

!
!
!

This indicates that the remote program running
in the DM machine did not responded within the
designeted time out interval and that the progress
indicetor wes not increase after subsiquent t me out
delays.
It is assumed that the remote program is dead
and is treated as a fatal error.

[RPD_COOE) :
begin
PRINTB (.EMSG STRUCT (MSG2)):
end;
!
! "Port to host synchronious error’
H

[PSE

CODE
]
begin
PRINTB
end;

(.EMSG STRUCT

!Code equals %o'S1

code

‘Code equals w0 61

[MSGS));

5€Q@ 0161

Page

SPIDER
: [NEALE SUS
.AZTEC JZRCHBS
ERS
.B16:4

code

PRINTB ( .EMSG_STRUCT ([MSGO));
'
! Look at the UQPORT connection
H

2115
2116
2117
2118
2119
2120

5125

[RSE _CODE)
begin

2113

H
H

This

2114

:
:
:

2112

:
:
H
:
H
H

"Return

2101

2121
2122
g{gs

2100

2102
2103
2104
2105
2106
2107
<108
2109
2110
2111

S Apr-1984

DECLARATIONS

2099

:
H
H

:
:

ZRCHBO RC2S DISK FORMATTER

MODWLE

issued command.

(10,

G13
ZRCHBS

B¢

V¢

OG0 G0

REV

B PATCH OO0

2156
2157
2158
2159
2160
2161
2162
2163
2164
<165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176

ZRCHBO RC25 DISK FORMATTER

MODWLE

DECLARATIONS

2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212

length error’

( .EMSG_STRUCT

end;

“Unknown

end code'’'

error

!
1]

1Code equals %0’ 101"
(.EMSG

end;

“Adaptor purge

STRUCT

request’'

[MSG7));

error code

[APR_COOE
]

!Code equals o 201

[N o]

[]

!
]

RINTB
end;

"Unknown

( .EMSG_STRUCT

(MSG81);

interrupt” error code

{UIN_COOE
)

'Code equals so

beg:n

PRINTB
9

13:23:1°2

code

beg

Jan-1984

[MSG61);

(VEC CODt]

i n
PRINTB

13:46:24

!Code equals %o’ 71"

begin

PRINTB

Apr-1984

code

(M
E CODE)

2177

2178
2179
2180
2181
2182
2183
2184
2185
2186
2187

'‘Message

(.EMSG

STRUCT

end;

301’

[MSG9]);

! “ATTENTION MSG ENOCODE"~ error code

[ATN_CODE
)

‘Coce equals so 401

beqfl'\

PRINTB

(.EMSG

STRUCT

[MSG12)):

end;

g “COMMAND MSG ENOCODE' error code
(CMD COOE
)

PRYNYB (.EMSG STRUCT [MSG131));

‘Code equals so 501°

end;

“SERIOUS EXCEPTION'

error code

{SEx _COOE ]

Code equals so 601"

begin

PRINTB
,

end;

( .EMSG

STRUCT

(MSG14));

INVALID COMMAND' error code

VAX-1] Bliss-16 V3 555

SEO 0162

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS . 816 4 (10;

H13
ZRCHBS

®C

B¢

V¢

REV

8 PATCH 00

2213
2214
2215
2216
2217
2218
2219
2220
c22l
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241

ZRCHBO RC25 DISK FORMATTER
MODWLE

DECLARATIONS

(IvC CODE)

2247

2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269

beg.n

PRINTB
end;

(.EMSG_STRUCT

[UHTSEOQE]

11 Bliss

!Code equals o' 1001’

(.EMSG_STRUCT

[MSG16]);

“UNKNOWN MESSAGE NUMBER”" error code

(UMN_CODE)

!Code equeals %o’ 4001°

begin
PRINTB

[]

(.EMSG_STRUCT

end;

[MSG19));

! Out standing buffer slots are all filled wp

[0BF _CODE]

begin

PRINTB
end;

'Code equals %0’ 2001

(.EMSG_STRUCT

[MSG171);

! Out standing command buffer out of sync error
[}

IOSESEOQE]

!1Code equals %o’ 3001

[]

PRINTB
end;

( .EMSG_STRUCT

[MSG181));

i File read error from local load media

[]

(FRE_CODE])

begin

)

PRINTB
end;

'Code equals %o’ 5001

(.EMSG

STRUCT

(MSG20));

' Illegal FCT file length
[}

(ILLSZCT]

'Code equals %o’ 6001°

]

PRINTB
end;

This

(.EMSG

is here

STRUCT

[MSG22));

to trap any unknow return status codes sent

V3-555

5€Q_0163

SPIDERSUSERS:[NEALE.AZTEC]ZRCHBS.816;:°?10)

TYPE” ¢ rror code

PRINTB

VAX

[MSG15));

[Nq]

end;

13:46:24
13:23:12

!Code equals o’ 701’

"UNKNOWN MESSAGE

2242

2243
2244
2245
2246

S-Apr 1984
11-Jan-1984

to this routine.

1135
ZRCHBS

REV

PATCH 00

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284

000070
000074
000102
000106
000112
000116
000120
000122
000126
000132
000134
000136
000140
000142
000146
000152
000154
000156
000160
000164

004167
024646
016701
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001034
016700
016066
016600
042700
020027
103410
6300
016046
012746
010600
104414
000576
006300
016046
012746
010600
104414
000566
020127
001044

ZRCHBO RC2S5 DISK FORMATTER

MODWE

S-Apr-1984
11 Jan-1984

DECLARATIONS

(otherwise]

SEQPOI64
VAX-11 Bliss 16 V3 555
20
age
SPIDERSU
[NEALE .AZTEC
SERS
JZRCHBS.B16
:
;4 (10)

'Code equals non of the sbove

begin

PRINTB

13:46:24
13:23:12

(.EMSG

end;

STRUCT

[MSG3));

tes;

!
[]

All errors are

code section

fatal so

to abort

RC25_ADDR [RCIP, RC_ALL)
WRT_RC2S (RCIP, ONES):;

init

the RC25 and jump to the clean up

this units
=

format.

ONES;

'Init
'Init

DOCLN;

tJump to the clean-up code section

end;

0000006

.SB8TTL
DECODE : : USR

cMe

0000006
000001
000010G
000001

1¢:

0000526
000001

TRAP

B8R

cre
BNE

MOV
MOV

MOV
2%:

0000006
000002
000002
000002
174000
000310

B8R

0000006
000001

MOV
TRAP

000031

44 :

BR
cMP
BNE

2048

2060

2048

EMSG.STRUCT.S2, -(SP)
01, -(SP)

2070

SP.RO

13s

MOV
TRAP
BR
ASL
MCV
MOV

118

R1,011
2$

ASL

MOV
MOV

1985

R1,021
4%
RC25.ADOR,RO
2(R0O),2(SP)
2(SP),RO
©174000,R0
RO, 2310

1771606
000001

SP,.RO

cMP
BNE
MOV
MOV
MOV
BIC
ce

B8LO

-(SP), -(SP)

RET.STATUS,R1
R1,01
1s
EMSG.STRUCT+10, -(SP)
01, -(SP)

TRAP

000021

DECODE MODULE DECLARATIONS
R1, $SAVE?2

MOV
cHP
BNE
MOV
MOV

MOV

000011

the controller
the controller

:
:
3
:
3

RC.STRUCTURE -620(RO),
01, (SP)

SP.RO
14
17s
RO
PFE.STRUCT(RO),
o1, -(SP)

(SP©

SP.,e

SP,s
2048

«,RCSS.REGC
RC$S.REG,SA.VALUE
¢,SA.VALUE
SA.VALUE,

SP.,s

(SP)

2087
2094

SP,RO
14

17
R1,031
7%

208~

2090

2081

SP,s

J13
ZRCHBS

REV 8 PATCH 00

000166
000172
000176
000200
000202
000206
000210
000216
000220
000224
000226
000232
000236
000240
000242
000244
000250
000254
000256
000262
000266
000270
000272
000274
000276
000302
000304
000310
000314
000316
000320
000322
000326
000330
000334
000340
000342
000344
000346
000352
000354
C00360
000364
000366
00C370
000372
000376
000400
000404
000410
000412
000414

000416
000422
000424
000430
000434

016746
012746
010600
104414
016702
010200
126027
001012
016200
006300
016016
012746
010600
104414
000413
116202
042702
006302
016216
012746
010600
104414
005726
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600

ZRCHBO RC25S DISK FORMATTER
MODULE DECLARATIONS
0000006
000001

MOV
MOV
MOV
TRAP
MOV
MOV

0000006

000003

000002

000016
0000006
000001

000016

177740

5%:

0000006
000001

6$:

000041

7$:

0000026
000001

000051

8s:

0000126
000001

000071

0000166
000001

ASL
MOV
MOV
MOV
TRAP
TST

B8R
cHe

B8R
cHe
BNE
MOV

B8R
cHP
BNE
MOV

MOV
MOV
TRAP

10%:

0000146
000001

000101

MOVB

118:
12$:

B8R
CcHe
BNE

MOV
MOV
MOV
TRAP
B8R

cMP
BNE

MOV
MOV
MOV

2106
H

R2,RO

MOV
MOV
TRAP

9s:

SP,RO
14
RET.EN$AD,R2

ASL
MOV
MOV
MOV
TRAP

8IC

SEQ 0165
P age
VAX-11 Bliss-16 V3 555
21
SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS .B16;:4 (10)

21, -(SP)

3(RO),
@2
S$

13:46:24
13:23:12

EMSG.STRUCT, -(SP)

cMPB
BNE
MOV

MOV
MOV
MOV
TRAP

000004G
000001

000061

S-Apr-1984
11-Jan-1984

SP,a
RET.ENSAD,
»

16(R2),RO

2l14
2111

2l14

SOUP.STRUCT(RO),(SP)

21,-(SP)
SP,.RO

SP.,s

14
68
16(R2) ,R2

0177740,R2
R2

SMSCP.STRUCT(R2),(SP)

01, -(SP)

SP,RO
14
(SP)e
224

SP,s
2105
2048

R1,041

8s
EMSG.STRUCT
.2, -(SP)

2130

o1, -(SP)

SP,RO
14
244
R1,051

SP,s
2048

EMSG.STRUCT
.4, -(SP)

2145

1, -(SP)

SP,RO
14
264

SP,s

2048

R1,%61

10$
EMSG.STRUCT+12,
@1,

(SP)

2153

SP,RO
14
284

2048

R1,071

124
EMSG.STRUCT+14,
o1, -(SP)

(SP)

SP,RO
14
304

R1,0101
14%
EMSG.STRUCT.+16,
o1, (SP)
SP,RO

2161l

SP.,e

2048
(SP)

2169
SP,s

IK13
ZRCHBS
REV B PATCH 00
000436
000440
C00442
000446
000450
000454
000460
000462
000464
000466
000472
000474
000500
000504
000506

000510
000512
000516
000520
000524
000530
000532
000534
000536
000542
000544
000550

000554
000556
000560
000562
000566
000570
000574
000600
000602
000604

104414
000576
020127
001007
016746
012746
010600
104414
000564
020127
001007
016746
012746
010600
104414
000552
020127
001007
016746
012746
010600
104414
000540
020127
001007
016746
012746
010600
104414

000526
020127
001007
016746
012746
010600
104414
000514
020127
001007
016746
012746
010600
104414
000502
020127
001007
016746
012746
010600
104414
000470
020127

001007
016746
012746
010600
104414

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

000201

13$:
148

15¢:

16%:

000030G
000001

000501

17$:
183

0000326
000001

000601

19¢:

20¢:

21ls:

0000406
000001

004001

0000466
000001

MOV
MOV
MOV
TRAP

B8R
CMP
BNE

cMP
BNE

MOV
MOV
MOV
TRAP

0000366
000001

001001

B8R
cMP
BNE

MOV
MOV
MOV
TRAP
B8R

0000346
000001

000701

B8R
cHP
BNE

MOV
MOV
MOV
TRAP

0000226
000001

000401

TRAP

B8R
CMP
BNE

MOV
MOV
MOV
TRAP

0000206
000001

000301

S-Apr-1984
11-Jan-1984

B8R
cHe
BNE

MOV
MOV
MOV
TRAP
B8R

cme
BNE

MOV
MOV
MOV
TRAP

22$:
23s$:

14
33%

R1,020!

154
EMSG.STRUCT.20,
1, -(SP)
SP,.RO

VAX-11 Bliss-16

555

SEQ 0166
Page

SP1DER$USERS:
[NEALE .AZTEC JZRCHBS.B16;4

(10,

2048

2177

14
33¢

SP,»

2048

EMSG.STRUCT+22,
-(SP)

2185

SP,RO
14

R1,0301
16$

33¢
R1,0401

18%
EMSG.STRUCT
+30, -(SP)

R1,0501

194
EMSG.STRUCT
«32, -(SP)
o1, -(SP)
SP,RO
14
33¢

Spo.

2048

2193

SP,RO
14
334

SP.‘

2048

2201

SP,s

2048

208
EMSG.STRUCT+34,
-(SP)

2209

SP.RO

R1,0601

14
33%

R1,4701

214
EMSG.STRUCT+36,
e1,-(SP)
SP,RO
14
33%

(SP)

R1,01001

238
EMSG.STRUCT+40,
-(SP)

B8R
cMe
BNE

e, (SP)
SP,RO
14
33
R1,94001
25

MOV
MOV
TRAP

MOV

(SP)

13:46:24
13:23:12

EMSG.STRUCT+46,
-(SP)
o1, -(SP)
SP,RO

SP,s

2048

2217

SPO.

2048

2225

;

SP,s

2048

2233

SP,»

ZRCHBS

REV 8 PATCH 00

000700
000702
000706
000710
000714
000720
000722
000724
000726
000732
000734
000740
000744
000746
000750
000752
000756
000760
000764
000770

000772
000774
000776
001002
001004
001010
001014
001016
001020

001022
001026
001032
001034
001036
001044

001050
001054
001056
001062

;:
;
H

000456
020127
001007
016746
012746
010600
104414
000444
020127
001007
016746
012746
010600
104414
000432
020127
001007
016746
012746
010600

104414
000420
020127
001007
016746
012746
010600
104414
000406

016746
012746
010600
104414
012766
012700

010077
104444
062706
000207

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984
11 Jan-1984

MODULE DECLARATIONS

002001

248
25%:

MOV
MOV
MOV
TRAP

0000426
000001

003001

26%:
27s:

28%:
29$:

30¢:
31%:

0000546
000001

32%:

177777
000004
177777
000000G

33s:

000010

BR
CMP
BNE

2285

2241

SP,RO
14
33¢

2048

294
EMSG.STRUCT+44,
-(SP)

2249

2048

;

SP,s
2048

R1,05001

318
EMSG.STRUCT
+50, -(SP)

@1, -(SP)
SP,RO
14
33s

B8R
CHP
BNE

2257

;

SP,s
2048

R1, 46001

324
EMSG.STRUCT+54,
-(SP)

TRAP
B8R
MO\
MOV
MOV
TRAP
MOV
MOV

2265

SP,e

SP,RO
14
3

SP,RO
14
€-1,4(SP)

SP,s

RO,8RC25.ADDR

:
:

¢,RC$S.REG
¢,RCS$M REG

2048
2273

EMSG.STRUCT+6,
-(SP)

MOV
TRAP
ADD
RTS

Routine Size:
AC$CODE
282 words,
Routine Bease:
Maximum stack depth per invocation:
10 words

33
R1,#2001
27s
EMSG.STRUCT
+42, -(SP)

SP,RO
14
33¢

MOV
MOV
MOV

0000066
000001

SEQ 0167
VAX-11 Bliss 16 v3 555
Page
23
SPIDERS$USERS: [NEALE.AZTEC1ZRCHBS.B16:4 (10,

R1,03001

MOV
MOV
MOV
TRAP

0000506
000001

006001

B8R
CMP
BNE

MOV
MOV
MOV
TRAP

000044G
000001

005001

B8R
CMP
BNE

13:46:24
13:23:12

RCSM _REG,»

2281
2282

PC
-

0404

1985

ML13

©F

€5

O¢

V¢

GO0

S92

2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314

2315

2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342

S-Apr-1984

MODW
E DECLARATIONS

11-Jan-1984

global routine DUPS$I_SERVICE
*

REV B8 PATCH 00

ZRCHBO RC2S DISK FORMATTER

INT_LNKSTYP novalue

13:46:24

VAX-11 Bliss-16 V3 555

13:23:12

Functional Description
The

transmission of

a message will

result

'Signals receive queue entry

in a host

only if interrupts were armed suitably during
of the following conditions has been met:

and

initialization and one

The message was a command with F=1 and the port’'s fetching

caused
the
command ring to transition from full to not-full.
(This interrupt means that the host may place another command
in

the ring.)

The message was a response with F=1 and the port's depositing
it

caused

the

response

ring

empty.
(This
interrupt
the host to process.)
3.

interrupt

means

transition

that

from empty

there

to not

is a response

for

The
port
is
interfaced to the host via a bus abapter and a
command requires
the
port/controller
to
re-access a given
location
during
data transfer.
(This interrupt means that
the
port/controller
is
requesting
the
host
to purge the
indicated chanel of the bus adapter.)

This

interrupt

conditions
interrupt

service

occure.

When

routine

was executed and

Formal Parameters

entered
take

is entered when any

the sbove

it will be determined what

the necessary

action,

type

none

Implicit Inputs
Nrd_slot:

A global flag which points to the next receive descriptor
slot where the port/controller should be polling on and
where to expect the first response packet to process.

Implicit Outputs :
Ret_status:

Th-s Ualobal

Port

flag

is the mechinism by

protocol

which

these DUP

routines pass status code back

to
the
host
routine’'s requesting communications over
the
established
connections.
The status returned is
decoded by
the
caller
to determine if an error or bad
response packet

Outsstd_buf:

This
port
This
is

slot
Completion Codes
none

Side Effects
none

status was discovered.

buffer
is used to save all commands issued to the
and are considered outstanding when in this buffer.
interrupt service routine will indicate this command

nolonger

outstanding by

setting

the

SEQ 0168

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS.816;4

ZRCHBS

rec_flg

the

matching this response envelope command ref number.

(11

N13
ZRCHBS

REV B PATCH 00

:
H
:
H
H

2343
2344
2345
2346
2347

H
:
:
H
H
H

2348
2349
2350
2351
2352
2353

2357

H
H
H

H
H
H
:
:
H
:

:
:
H
:
H
:
H
:
H
:
:
:
:

2354
2355
2356

2358
2359
2360
2361
2362
2363
2364

2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
237
2376
g;;z

H
H
:
H
H
:
H
H
H
H
:
:
H

2379
2380
2381
2382
2383
2384
238S
2386
2387
2388
2389
2390
ggg%

H
H

H
H
H
H

2393
2394

2395
2396
2397
2398
2399

ZRCHBO RC25 DISK FORMATTER

TMMODWLE

DECLARATIONS

S-Apr-1984

Jan-1984

SEQ 0169
Page
25
SPIDERS$
: [NEALE .AZTEC1ZRCH
SUSE
BS.B16:4
RS (11,

13:46:24

VAX-11 Bliss

13:23:12

16 v3 555

begin
local
TEMP,
FOUND _CMD,
REF _NUM;

'Holds nrd_slot + 1| reference
‘Found command flag
!Stores

response packets cmd ref number

HE
! Before trhis
interrupt service routine does anything
! look
at the SA
register for any port fatal errors
! posted.
If there are
errors posted then report the
! error and kick the bucket.
'if

_RC2S_ADDR

then

begin
RET_STATUS
DECODE ()
return;
end;

[RCSA,

ERR _BIT)

= PFE_CODE;

!Are

there any

errors posted

'Indicate the error

type

'Decode and print the error
tJust for show. Decode will kill

‘e
! See what kind of interrupt got us here.
!
! We could have ao:
!
H
1. Response
ring
trangition
interrupt.
H
2. Send
ring
trensition interrupt.
'
3. A
adaptor
purge request
interrupt
(which is
H
illegal
running
wunder
the
PDP-11 Diagnostic
H
supervisor and 1s flagged as a fatal controller
'
error.)
!
4. Or an unknown interrupt not known by this program
H
which
also
results
'n a fatal controller error.

'
!
!
!
'

Check to see if we get here because of a response ring
transition
interrupt.
This is
more likely to be the
most fregquent interrupt so check it First,

if _HEAD_AREA [RSP_INT)
then
begin
GET_NRD ();
!

!
!

!
!
!

!Get

the resp slot

location to process

Check the host
protocol for being out of sequence
w th the controller by
making sure that this slot

is owned by
envelope at

the host (meaning that there
this ring slot to process.

.RECEIVE _RING

[.NRD SLOT,

is a resp

OWN_BIT] nequ HOST _OWNED

!Is this owned by host

Bld
ZRCHBS

REV

:
3
:

:
:
:
H
:
H
:
:
:
H
H
:
3
H
3
H
H
:
H
:

B PATCH OO0

2400
2401
2402

2403
2404

2405

2406
2407
2408

:
H
:

:
:

1
2419
2420
2421
g:gg

2
2426
g:g;

2429
2430
2431
2432
2433
g:g;

2436

2437
2438

g:zg
g::é

H
:
:
H

2443
2444
2445

:
H

2448
2449

H
H
H
3
:
3

1984

13:23:12

SPIDERSUSERS: [Nt \LE .AZTEC JZRCHBS

then
begin
RET _STATUS

OECODE (),
return;

PSE

'Host/port ie cut of sequence
‘Load @ "Port sync error” code

CODE;

{Report the error and kick the bucke:l
tJust for show Decode kilis it

end;

TRUE

!Process

n
BREAK;
H
'
'
!
°

fLook

all

response peckets

ring

for control c's

Load the
Reference structure "Ret_entad” with the address
of this response
envelope
to process (The minus S0'4’
g
done
to
address
the first word in the envelope
packet
and is equel to leceation “"text-4"),

Z:gg

;

Jen

while

416
g:l;

VAX-11 Blise-156 v3.55%

5415

2412
2413
2414

DECLARATIONS

13:46:24

2409
2410
2411

H
:
:
:
:
H

MODWE

S Apr-1984

'.
! Per DUP protocol
once interrupted
due
to
e response ring
! interrupt, the host code should process all response packets
! found
in the response
ring.
This while loop will continue
! to process the response peckets
in
the response ring until
! none remain,
!

ZRCHBO RC2S DISK FORMATTER

2446

2447

2450

2451
2452
2453
2454
2455
2456

RE T _ENSAD « ( .RECEIVE _RING (.NRD_SLOT, LO ENSAD])) - wo'4’,
$o
!

Test

the

end pecket

for

its possible

three

end

types.

!
!
!
!
!

End mess
opcodes
(elso celled endcodes) are formed by edding
the end
message
leg
to
the
command opcode.
Ffor
e~emple. @ READ commands end
message containg the velue OP. RED « OP.END in its opcode f'eld. th Invel'a
command
end
nosso?o containg just the end messege flag (i.e., OP.END) in
its opcode field.
he serious excepti
on opcode shown above (' .e. OP SEx .

OP.END)

ite opcode

f eld.

!
!

Commands opcode bite 6 and

indicete

the

type of message

(command,

end or

attention
messsge.
Commend opcodes bits 5 thr
S iid'cate the command
coteagory
(immediate, sequential
or no seaquential) and whether or not the

command

includes a buffer descriptor.

See MSCP document

appendix

“"A

NOTE:'

for more

' -

selectoneu
set

.RET ENSAD

(ENDSMSG])

begin

!
!
!
!
!
!

[TYPIMSG)

!'Select

nformation on

the endpacket

th's

sice

'Ile this an end code packet

Select off of the endcode to make sure the communications
mechanism
transfered the co~rect number of byte for this
end
pecket.
If
this
number of bytes transfered is not
correct
for
the commands end packet then load the error
code
into
return
stet.s,
call decode to report
the
error and kick the bucket and die. Th's endcode ‘s formed

top'c.

:EQ 0170

Page

.B165;8

(11,

Cld4
ZRCHBS

REV

3
:

H
H
3
:
H
:
H
H

B PATCH 00

2457
2458

2459
2460
2461
2462
2463
2464
2465
2466

:
3
3

2467
2468
2469

2471

2472

2473
2474
2475
2476
o477
2478
2479

:
H
:
H
H
H
H

:
3
:
:

MTMMODWE

S-Apr-1984 13:46:24

DECLARATIONS

!
!

by add’'ng
opcode.

2480
2481
2482
2483
2484
2485
2486
2487
2484
2462
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500

2501
2502
2503
2504
2505
2506
2507

the

message

13:23:12

flag %o0'200'

Poéol 27

SPIDERSUSERS: (MEALE .AZTEC JZRCHB
.B165;4
S

the commands

(EOP RED)
begin
if

_RET_ENSAD

then

[MSG_LENGTM)

neaqu ESZ_RED

'Is

the

byte

count

correct

beg'n

RET _STATUS
DECOOE (),
return;
end;
!
!
'

“SEND DATA’'

{EOP

command end packet

SED)
begin
if _RET_ENSAD
then
begin

(MSG LENGTH]

RET _STATUS
OECODE ()3
return;
end;
end;
!
't GET DUST
!

(EOP GDS)
begin

MLE

meau €52

SED

the byte count

CODE;
!Return a "message length error
'Report the error and kick the bucket
tJust for show.
Decode k'lls 't

correct

code

command end packet

(MSG LENGTH]) neau ESZ GDS
=

MLE

!Is the byte count

c¢

CODE;
'Return a "message length error code
!Report the error and kick the bucket
tdust for show.
Decode kills 't

end;

"EXECUTE

'Is

RET
STATUS
DECODE ()3
return;
end;

2508

STATUS”

if _RET _ENSAD
then
begin

!
!
'

MLE CODE;
!Return s "message length error code”
'Report the error end kick the bucket
tJust for show.,
Decode kills .t

end;

2509

2510
2511
2512
2513

end

Jan-1984

5FQ 017

VAX 11 Blises ?6 V3 555

selectoneu .RET ENSAD (ENDCODE) of
set
4
! "RECEIVE DATA" command end packet
!

2470

:
H
:
:
:
H
:

H
:
H
:
H
H
:
:
H
H
H
:
H
:
:
H
:
H
H
H
:

ZRCHBO RC2S DISK FORMATTER

SUPPLIFD PROGRAM' commang end pachket

ect

(11,

D14
ZRCHBS

B PATCH 00

2514
2515
2316
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541

2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555

ZRCHBO RC2S DISK FORMATTER

MODU <

S Apr 1984 13:46:24

DECLARATIONS

Jan-1984

13:23:12

VAX 11 Bliss 16 V3-555

begin

_RET_ENSAD

(*1SG_LENGTH])

neaqu ESZ ESP

then

!Is

the byte count

correct

begin

RET

_STATUS

DECOOE

(),

MLt _CODE;

'‘Report

return;
end;

!Just

'Return a

"message

the error and kick

for

show.

Decode

length error code”

the bucket

kills

end;
[]

"EXECUTE

LOCAL PROGRAM" command end packet

{EOP ELP]

begin

.RET_ENSAD

hen

[MSG _LENGTH)

neau ESZ ELP

‘Is the byte count correct

beg'n

RET

_STATUS

DECOOE

return;
end;

();

MLE

CODE;

'Report
tJust

'Return

"message

the error and +ick

for

show.

length error code

the bucket

Decode kills

end;

§ "ABORT PROGRAM” command end packet
]

(EOP ABT)

begin
if

_RET_ENSAD

then

[MSG _LENGTH)

neau

ESZ

ABT

!'Is

the

byte

count

correct

begin

RET STATUS
OECODE ();

return;
end;

MLE CODE;
‘Heport

'Return @ "message
the error and kick

for

srow.

length error cooe
the bucket

Decode kills

tJust

! ‘SET CONTROLLER CHAR® commaend end packet

[]

(0P _SCC)

begin

_RET ENSAD

RET

STATUS

beg'

@0 BF

B9 V0

B¢

end;

then

DECODE

(),

[MSG LENGTH])
=

MLE

CODE,

!Report

mequ ESZ SCC
'Return a

SE0p0Le2

SPIDERSU
[NEALE .AZTEC
SERS
)ZRCHBS .B16:4
: (11

(EOP ESP)

Vs VT

G0 G

O¢

V¢

Ve G0

G0 Vs

O¢

G0 S0

Oo G

REv

'Is the byte count
message

the error and kick

correct

length error code

the bucket

El4
ZRCHBS

REV

B PATCH 00

:
H
H

2571
2572
2573

2575

:
H
:
:
H
:
:
H
:

:
:

H
H
:
:
:
:
:

return;
end;
'

!
!

for show.

Decode kills

[MSG_LENGTH] nequ ESZ_ONL

RET _STATUS
OECODE ();

= MLE

return;
end;
'
.
!
!
'

CODE;
'Report

tJust

'Is the byte count correct

!'Return a "message
the error and kick

for show.

length error code’
the bucket

Decode kills

end;
The
“OP_END”
end message flag all by its self tells
us that the controller is
flagging us
of an illegal
command sent over the connection.
Error and kick the
bucket.

(OP_END)
begin

RE?_SYATUS = IvC_CODE;

2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616

DECODE ();
return;
end;

!
!

!
:

The controller is telling us
has occured.
Error and kick

(EOP

!
!
!

SEX)
begin
RET _STATUS
DECODE ();
return;
end;

SEx

Unknown end packet

that a serious exception
the bucket.

CODE;

endcode

type

(otherwise)
begin

RET
STATUS
DECODE ();
return;

tes;
H

end;

6@ 0173

Page

SPID:ERSU
[NEALE ,AZTEC SERS
)ZRCHBS.B15;4

“ON LINE” command end packet

if _RET_ENSAD
then
begin

2600

2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627

‘Just

13:23:12

VAX-11 Blies-16 V3-555

(EOP _ONL}
begin

2587
2588
2589
2590
2591
2592
2593

2598
2599

Jan-1984

13:46:24

end;

2585
2586

:
:

:
:
:
:
H
:
:
H
:
H

2576
2577
2578
2579
2580
2581
2582
2583
2584

2594
2595
2596
2597

S Apr-1984

DECLARATIONS

2574

H
:
H
:

:
H
:
:
:
H
:
:
:
H
:
:
H
:
:
:

ZRCHBO RC2S DISK fORMATTER

MOOULE

UEC _CODE;
!Return an ‘unknown end code"”
'Report the error and kick the bucket
tJust for show.,
Decode kills it

(11,

Fl4
ZRCHBS

REV

H
H
:
:

H
:
:
:
H
:
:
:
:

H
:
:
:

H
H
B
H
H
:
:
:
H
H
H

B PATCH 00

Jan-1984

3633

REF _NUM = RET_ENSAD [CMD_LREF);

!
!
'
'

634

The port/controller sent

13:46:24
13:23:12

the endpacket over

VAX-11 Bliss-16 v3 555

the connection

with out any problems.
Now find this commands owner in the
outtstanding buffer and ‘ndicate to them that the command
has been received.

'Cet this rec packets cmd ref number

2640
2641
gg:g

! Search
the outstanding
command buffer for
this commands
! reference number,
!
! If
found,
load
the
buffer location with the ret entad
! and set the received
flag
to signify that
this command
! has been received by this interrupt serv ce routine.
!
FOUND_CHD s FALSE;
‘Clear the found cmd flag

224;

incru

2638

2639

264
2646
2647
2648

2669

:
H
:
H
:
H

2678
2679
2680
2681
2682
2683
2684

26177

to REC_ALLOCATE

!Search

the buffer

end;

!
!
!
!
'

If
the search through the
command ref
buff-r failed to find this commands cmd
reference number then die.

if not
then

2663

2670
2671
2672
2673
2674
2675
2676

from O

if ,OUTS$STD
BUF [.i, CMD_REF) eqlu .REF NUM
'Is this the comd ref
then
begin
QUTSSTD BUF [.i, REC_FLG) = TRUE;
!Indicate command is received
QUTSSTD _BUF (.1, ENV_ADR] = _RET ENSAD;
'‘Return envelope adrs
FOUND_CMD = TRUE;
'Indicate it was found
exitloop;
'Exit the loop

2649
2650
2651
2652

:
:
:
:
H
H
H

.FOUND CMD

begin

RET_STATUS
OECODE ();
return;

PSE _CODE;

end;
'

!
!
!
'

end;

'End of ENDSMSG processing

The
set
controller
characteristics command
disabled the reporting of attentions messages
80
treat
this
es
&
fatal
error and die.

[ATTSMSG)

!Attent
ion end message

begin

'
!
!

RET
STATUS
DECODE ();
return;
end;

ATN CODE;

It doesn’'t make any since for this ¢nd message
packet not to have the end message flag added

SEQ 01 74
Page

SPIDERSUSERS: [NEALE,AZTEC JZRCHBS.B15:4

2635
2636
2637

2664
2665
2666
2667
2668

:
:
:
:
H

DECLARATIONS

2629
2630
2631
2632

H
:

MTMMODWE

S Apr-1984

2628

2653
2654
2655
2656
2657
2658
2659
2660
2661
266

ZRCHBO RC2S DISK FORMATTER

type

(11

Gl4
ZRCHBS

REV

:
:
H
:
:

:
H
:
:

H
H
:

H
:

H
H
H
H
:
:

:
H
H
H
;
:
H
:
:

B PATCH 00

;

:
H

;

MTMMODUWE

S-Rpr-1984

DOECLARATIONS

2691
2692

(CMO$MSG)
begin
RET_STATUS
DECODE ();

2695
2696
2697

'
!
!

2686
2687
2688
2689
2690

!
'

2693
2694

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708

to this command opcode as

error and die.

treat

as o

13:23:1°2

VAX-11 Bliss-16 V3 55%

fatal

return;
end;

This end code type is of unknown origin so
treat is as a fatal error and die.

{otherwise)
be?in
RET
STATUS
DECODE ();
return;
end;

UEC_COOE;

!Unknown message

type code

'
! Before
we
leave
put this receive envelope message length
! field
back to the
envelope
size,
in bytes (Per UQ Spec).
! This
size does not include the 2 UQ's words preceeding the
! command text
ares.
'
RET _ENSAD [(MSG_LENGTH] = RB_SIZEe2;

2716

g;gg

2721

2722

Return

the port

this

RECEIVE _RING
!

Look

receive slot

the

[ .NRD_SLOT,

PORT_OWNED;

response ring descriptor.

:
H

2733
g;g;

'
!

2736
2737
2738
2739
2740
2741

OWN_BIT]

the protocol.

host owned then continue this process else exit

if _NRD_SLOT + 1 gtru REC
then
TEMP « ZERO
else
TEMP = _NRD_SLOT .+ ;

!
!
'

descriptor back

to fullfill my part of

2723
2724
2725
2726
2727
2728
2729
2730
g;gé

received

tes;

2709
2710
2711
2712
2713
g;ig

g;{;

loop.
First see if the ring reference has
around to the top of the ring.

Now see

the next

if _RECEIVE RING
then
GET NRD ()
else
ex " tloop;

ALLOCATE

1
‘Wrap

it back

'Look

OWN BIT]

ealu HOST
‘Get

ring ref wrapped around

to zero dsc
seq dsc

slot
slot

is host owned.

OWNED

the next

'No more

the

the next

receive descriptor slot

(.TEMP,

its

the

wrapped

‘Has

'Are we done yet
resp desc

to do so erit

5EQ

0175

Page
31
SPIDERSUSERS : [NEALE ,AZTEC )ZRCHBS .B16 ;4 (11 J

CMD_CODE
;

;
:
:
H
H
H
:
:
H

H
:
:
H
H
:

13:46:24

11-Jan-1984

2685

ZRCHBO RC2S DISK FORMATTER

to process

H14
ZRCHBS
REV

ZRCHBO RC2S DISK FORMATTER
PATCH 00

MODW.E

S Apr-1984

DECLARATIONS

Jan-1984

VAX-11 Bliss-16

13:23:12

SPIDERSUSERS:
[NEALE .AZTEC JZRCHBS .B16:4

2742

2744

2746

H
H
:

2748
2749
2750

! return code. But before we go clear out the interrupt indicators.
'
HEAD_AREA [RSP_INT]) = ZEROS;
1Clear the interrupt indicator

2743

end;

2745

2747

2751

2752

H
H
H

2753
2754
2755

= ZEROS;

2758

H
H

2759

2760
2761

!
!

PAS_CODE;

A send ring transition

interrupt could happen

commands.

! Clear the interrupt indicator
! a return with no errors,
![CMD_INT)

2769
2770
2771
2773

1000000800000

0040466408404END OF

[CMD_INT)

if .HEAD AREA [ADP_CH) nequ ZERO
then
begin
RET_STATYUS = APR CODE;
DECODE ();
return;
end;

2791

180800680 000080000000000404END OF

2792

;
:

2794
g;gz

;

this

indicator

"pass code

if at

this a com ring transition

'Clear out the indicator
1Continue on with the host

COMMAND RING

INTERRUPT

2798

‘nterrupt

code

PROCESSINGeeessccssccssccssss

t,
! Check
to see if an adaptor purge is being requested
! by the port/controller in order to complete excution
! of a issued command.
Remember that this is
illegeal
! during PDP-11
formatting and is conc dered
to be a
! fatal error.
'-

!
!

‘Is

the

adaptor purge

ADAPTOR

PURGE

INTERRUPT

The host program has been interrupted by an unknown
source if the routine program flow reaches here.
Load the error code

! appropr ate action.

request?

'Indicate the error code
'‘Report the error and kick the bucket
tJust for show. Decode kills it

PROCESSINGe+tcscscsssnsssensases

interrupt

2797

location

is true and do

ZERO;

2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789

2790

the

is allocated for

'‘Is

:
:
;
H
:
:
H
:
:
H
H
:
:
H
:
H

'‘Return

some date only one descriptor slot

if .HEAD_AREA
then
begin
HEAD _AREA
return;
end;

2772

tClear out

any

an pass

1004000000040 00040000¢END OF RESPONSE RING INTERRUPT PROCESSINGessssessssessscnssae

ring descriptors have been processed with out

return RET_STATUS

H
H
:
H
H
:

LOOP

end;

2756
2757

2762
2763
2764
2765
2766
2767
2768

response

WHILE

detected errors so return to the main host code with

HEAD _AREA [CMD_INT]

:
H

:
H
:
:
;

All

'End of

V3 555

into return status and call

decode

SEQ 0176
Page

13:46:24

to take

(11,

114
ZRCHBS

REV

B PATCH 00

2799
2890
2801
2802
2803
2804

ZRCHBO RC2S DISK FORMATTER

MODULE

DECLARATIONS

RET_STATUS

DECODE ();

100004

012767
000546
016700
032760
001002
000167
004767
016700
006300
006300
066700
032760
001404
012767
000570
104422
016700
006300

VAX-11 Bliss-16 Vv3-555

SEQ 0177
P oc

SPIDERSUSERS
: [NEALE .AZTEC)ZRCHBS.B16:4

(11,

UIN CODE;

return;

.SBTTL
OUPSI
. SERVICE::

000002

000021
000001

0000006
000006

000550
176424

1¢:

2s:

100000

000002

000061

000000G

3s:
4%

RO,

MOV

R3, -(SP)

B8R
MOV
8IT
BNE
JMP
JSR

MOV
ASL
ASL
ADD

8IT
BEQ
MOV
BR

TRAP

MOV

ASL
ASL
ADD
MOV
SuB
MOV

MOVe
ASR
ASR
ASR
ASR
ASR
ASR

177774

000002

000014
000205
000060

5%:

OUPS$I.SERVICE MODULE DECLARATIONS

MOV
MOV
MOV

MOV
MOV
MOV
MOV
8PL
MOV

0000006
000014

021127

13:46:24
13:23:12

end;

010046
010146
010246
010346
010446
010546
016700
016046

S Rpr-1984
11 Jan-1984

BIC
cMP
BNE
CLR
BISB
cHP
BNE
cHP

(SP)

2286

RC25.ADDR,RO

2(R0O), -(SP)

14
921 ,RET.STATUS
9%
HEAD.AREA,RO
¢1,6(RO)
24

s ,RC$S.REG

2357

2360
2361
2388

PC.GET _NRD
NRD.SLOT,RO
RO
RO
RcCEIVE.RING,RO

2391
2399

:100000.2(R0)
$

061 ,RET STATUS
16$
22
NRD.SLOT,RO

RO
RO
RECEIVE.RING,RO

2402
2403
2416
2424

(RO) ,RET.ENSAD

94 ,RET ENSAD
RET.ENSAD,R1
14(R1),R0O
RO
RO
RO
RO
RO
RO
0177774, ,RO
RO, 02
144
R2
14(R1),R2
R2, 08205
64

(R1),060

2444

2461

2470

J14

000402
000410
000416
000422
000424
000430
000434
000436

000442
000444
000446
000452
000454
000462
000464
000466
000470
000476
000500
000506
000512
000514

001004
012767
000556
012767
000552
016700
016005

005004
005000

005001
156001
020105
001011
052760
016760
012704
000405
062700
020027
101755
032704
001016
000620
020027
001004
012767
000506
005700
001326
012767
000500
012777
016700
006300
006300

000203
000206

000204
000211
000200

000701

0000006

000207

7%:

000601

0000006

000101

000000G

8s%:
9s:

10¢$:

000000G
000004

11s:

12%:
13s¢:

000001

14%:

000000G

15¢:
000501

MOV
MOV

CLR
CLR
CLR
BISB
cMP

16¢:
17%:

S
R2, 4203
St
R2, 2206
S5
R2, 0204

R2,4211
S5
R2, 0200
74
9701,RET.STATUS

0601
,RET . STATUS
24
€101 ,RET_.STATUS
243
RET.ENSAD,RO
4(RO),RS
R4
RO
R1

OUTS$STD.BUF(RO),R]
R1,RS

128
2100000,0UT$STD.BUF(RO)
RET.ENSAD,OUT$STD.BUF
+ 2(RO)
o1,R4a

138

24 ,RO
RO, 014

8L0S
BIT
BNE
B8R
cMpP
BNE
MOV
B8R
TSY
BNE

118

MOV
MOV
ASL
AsL

01,R4

178
3

e
O
W6
W
To
G0
GE
W

R2, 4202

ADD

MOV

0000006

000074
000000G
000000G

B8R

MOV
MOV

000001

000401

MOV

BNE
8IS

100000
000000G
000000G 0000026
000001

000014

BtQ
cHP
BEQ
CcMpP
BEQ
cHP
8EQ
CcHP
BEQ
cHP
8EQ
cMP
BNE
MOV
B8R
cHP
BNE
MOV

000202

R2, 0201

000201

R2, 4204

6$:

SEQ 0178
Page

2473
2474
2461
2486
2461
2502
2461
2518
2461
2534
2461
2550
2461
2566
2461
2582
2461

000204

B8R
CMP
BEQ

10¢
@71 ,RET STATUS
164

16 v3 555

SPIDERSUSERS: (NEALE .AZTEC)ZRCHBS.B816;4 (11)

®s

000236
000242
000244
000250
000252
000256
000260
000264
000266
000272
000274
000300
000302
000306
000310
000314
000316
000324
000326
000332
000334
000342
000344
000352
000354
000360
000364
000366
000370
000372
000376
000400

B8EQ

MOV

0000006

VAX-11 Bliss

000071

001453
012767
000520
020227
001766
020227
001763
020227
001760
020227
001755
020227
001752
020227
001747
020227
001744
020227
001004
012767
000565
027227

13:46:24
13:23:12

000224
000226
000234

S-Apr-1984
11 Jan-1984

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

ZRCHBS
REV B PATCH 0O

2600
2601
2461
2611

¢ ,REF
. NUM
EOUND.CHD

(1),
+ ,REF .NUM

o, o(I)

s, (D)

¢ ,FOUND.CMD

s,
1

2612
2621
2622
2633
2642
2644
2646

2649
2650
2651
2648
2644

I,s

+ ,FOUND.CMOD

2661

RO, 01

2664
2444

2678
2679
2444

158
0401 ,RET.STATUS
24
8s
0501 ,RET,STATUS
24
274 ,8RET .ENSAD
NRD.SLOT,RO

RO
RO

2691
2692

2714

2719

K14
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

000516
000522
000530
000534
000536
000542
000544
000546
000550
000552
000554
000556
000560
000564
000572
000574

0000006
000002
100000
0000006

000600
000604
000610
000614
000620
000624
000626
000632
000640
000642
000645
000650
000654
000660
000662

000670
000672

000700
000704
000706
000710
000712
000714
000716
000720
000722

;

066700
052760
016700
005200
020027
101402
005003
000401
010003
010300
006300
006300
066700
032760
001004
004767

000167
016700
005060
005060
005067
000427
016700
032760
001403
005060
000416
016700
105760
001404
012767

000403
012767

004767
005726
012605
012604
012603
012602
012601
012600
000002

Routine Size:

Maximum stack

2805

S-Apr-1984
11-Uan-1984
RECEIVE.RING,RO
#100000,2(R0O)
NRD,SLOT,RO
RO
RO, 03
184
R3
194
RO,R3
R3,RO
RO
RO
RECEIVE .RING,RO
9100000,2(R0O)
204
PC,GET.NRD
4%
HEAD.AREA,RO

000003

18%:
19¢:
000000G
100000
000002

175706
177312
0000006
000006
000004
0000006

20¢:

6(RO)

4(RO)
RET.STATUS

0000006
000004
000001

2ls:

000004

0000006
000003

000201
000301

176010

228%:

0000006

| 238

234 woros,

depth per

Rout ine Base:
AC$CODE
invocation:
13 words

:
:

2727

TEMP

o, TEMP

;

TEMP,»

2729
2727

2731

2737

H
H
H

2739
2737
2750

:
:

2751
2752

H
:
H

2769
2768
2783

2787

.
H
H

2801
2802
2286

(SP)+,R3
(SP)»,R2
(SP)+,R1
(SP)+,RO

MOV

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBS.B16;4 (11)

(SP)+ R4

RTI

SEQ 0179
Page

244

(SP).
(SP)+,RS

MOV

V3-555

H
H

2301,RET
. STATUS
PC ,0ECODE

244
:
254

VAX-11 Bliss-16

25
HEAD.AREA,RO
01 ,4(RO)
228
4(RO)
25
HEAD .AREA,RO
3(RO)
238

4201,.RET
STATUS

0000006

13:46:24
13:23:12

14/0

2390
2766

2786

ZRCHBS

©F

®s

€¢

G¢

B¢

V¢

B¢

O¢

REV

B PATCH 00

2806
2807

2808
2809
2810
2811
2812

2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838

2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856

2857
2858
2859
2860
2861
2862

ZRCHBO RC25 DISK FORMATTER

S5-Apr-1984

MODULE DECLARATIONS

13:46:24

11-Jan-1984

global routine CTO_WAIT (TO_VALUE,

REF_NUM,

BUF$LOC)

VAX-11 Bliss-16 v3-555

13:23:12

O
l
.
l

Functional Descruptnon :
This routine is called

complete
the
Formal Parameters :
TO _VALUE

REF _NUM

O
l

!Controller time out wait

Indicate

the

for

the port/controller

time out

time-out

the command.

interval

for

to either

this command.

assigned to

this command being timed out by

rout ine.

BUF SLOC

wait

This argument contains the unique reference number

l
l

queued command

This argument points to the outsstd_buf

where

this command

received flag

is saved.

this

location

locat

»n

the

"rec flg” bit is examined within the

!
'
!
!
'
!
!
!

Implicit Inputs :
none
Implicit Outputs :
The command
word in the out$std_buffer 'word zero of a command
slot'
is cleared out with the value %0’'100000’' to indicate this

Completion Codes

the timeout
loop and when it equals true will
signal that this command has been received by
interrupt service routine.

is an unused out$std_buffer

There are

'
'
!
!

!
H

:
!

two

levels of

slot

return

and

that

status

can

returned

the

reused.

this

routine.

The
OUP interrupt service returns to
this routine a status code
to indicate the success of the connection/communications mechanism
to complete
the
queued command.
If the port/controller does not
time
out
then
this
return status
is returned as this routines
return

status code.

error

code is

ell

cases, if

If
the
port/controller times out
then the SA Register error bit
is
examined
for the
error
bit set.
If set
then an port fatal

returned to the calling

time out error code

is returned.

an error

code is

routine else a controller

returned

routine
decode
is called
necessary recovery actions.

'
'
'

of
return status
returned.
This
level test
the
success of the
connection
and
also test t : status
field in the returned response
envelope for
the
success of
the controller to successfully complete

'
'
'

the

(bit O » 1) then the

'
'

to decode

error code

and does

the

the next higher level of return from this routine is another level

the requested command.
Side Effects :
none

begin
e

!
!
!
!
if

Before doing the timeout wait make sure that this buffer location
that we’'re suppose to time out actuaslly
contains the command ref
number
that was sent to us via
the formal argument.
Error
and
kick the bucket if not the same.
,OUTS$STD BUF

then

[.BUFS$LOC,

CMD_REF])

nequ

.REF _NUM

'ls

this

Page

SPIDERS$USERS: [NEALE .AZTEC]ZRCHBS.B16;4

Yoo
0

SEQ 0180

the same

ref _num

(12)

M14
ZRCHBS

REV

PATCH 00

ZRCHBO RC2S DISK FORMATTER

MODWE

S-Apr-1984

LcCLARATIONS

11-Jan-1984

:
:

2863
2864

begin
RET_STATUS = OSE_CODE;

:
H
:
:
H
:
H
:
H
:
:

2866
2867
2868
2869
2870
2871
2872
2873
28;;
28
2876

end;

2878

:
.

:
:
H

2865

2877

2888

:
:
H
H
H
H
H
H

incru

H
H
:
H
;
:
H
H
:
H
H
H
:

2899
2900
2901
2902
2903
2904
2905
2906
2907

2913

2908
2909
2910
ggié

from O to

.TO_VALUE do

‘Loop

the error

!
!
!
if

Exit rout
' ne with the DUP interrupt service routines
“rec_flg”
got set before the timer expires.
.OUT$STD_BUF

then

begin

QUTS$STD_BUF

return
end;

'
!

(.BUFS$LOC,

REC_FLG) eaqlu TRUE

([.BUFSLOC,

CMDO_WRD]

.RET_STATUS;

'Return

.RC2S5_ADDR

_RC25_ADDR

else

'Return the slot to the unused state

the

interrupt

service status

Check the SA register for posted port errors just in case the
port does not interrupt the host when a port error occurs.

[RCSA,

ERR_BIT]

then

return RET_STATUS

PFE_CODE;

'Service any control

The port/controller timed out if the code
code to the caller and exit the routine.

then

"ret_status”

!Is this command received yet

= #%o’'100000';

BREAK;
end;
!
!
!
!

for time-out_value

'Do the one micro second delay

]

[RCSA,

ERR_BIT)

reached

'Is

the

here.

return RET_STATUS

PFE_CODE

'Port

timed out

return RET_STATUS

CTO_CODE;

'Port

just

C's

Return

SA error bit

with

t med out

end;
.GLOBL

LsOLY

.SBTTL

CTO.WAIT MODULE DECLARATIONS

SEQ 0181
Page

SPIDERSUSERS: [NEALE .AZTEC]ZRCHBS.B16:4

1Call decode to report

DELAY (C_US);

2889
2890
2891
2892
2893
ggg;
2896
Sggg

13:23:12

!Indicate the error code

();

begin

2886
2887

:
:

VAX-11 Bliss-16 v3 555

e
! Loop
on
&
one
micro
second
delay for
the
number of times
! requested
by
the
caller.
After
each
delay see
if the flag
! "rec_flg” has
been set yet.
Return
"Ret_status” and clear
the
! command
word
to so’'100000' to
indicate
this command has been
! received
if
this
flag
gets
set
before
the
timer
expires.
! Return a error code if the timer expires before the flag gets set.
'-

gggg
2881
2882
2883
2884
2885

DECODE

13:46:24

an error

set

fatal error

(12)

N14
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE

000000

004167

0000006

000004
000010
000014
000016
000020
000024
000026
000030
000032
000036
000040
000046
000052

162706
016600
006300
006300
012703
060003
005000
151300
020066
001405
012767

000006
000020

000100
000102
000104
000106
000110
000112
000116

000122
000124

000130
000136
000140
000144
000146
000150
000152
000156
000160
000164
000170
000172
000176
000202
000206

;
:

004767
005002
000436
012701
001411
016700
001404

005066
005300
001374
005301
000766
005713
100005
012713
016700

000427
016700
016066
100003
012700
000414
104422
005202
020266
101737
016700
016016
100763
012700
010067
062706
000207

DECLARATIONS

CTO.WAIT::
JSR
Su8

000001
000000G
000004

S$:
64:

100000
0000006

7%:

000021

8s:

MOV

21,R1
64
L$DLY,RO
Ss
4(SP)
RO

B8EQ

8EQ
CLR
DEC
BNE
OEC
BR

3
(R3)

TST
B8PL

74
9-100000,(R3)

MOV
B8R
MOV

RET,.STATUS,RO
128
RC25.ADDR,RO
ggRO).?(SP)

10$:

0000006
000002

11
12%:

8PL
MOV
B8R

#21,.R0
11$
22
R2
R2,24(SP)
2%
RC25.ADDR,RO
2(R0O),(SP)
8s

TRAP

INC
cHP
8LOS

MOV
MOV
BMI
MOV
MOV
RDD
RTS

Routine Size:
68 words,
Rout ine Base:
AC$SCODE
Maximum stack depth per invocation:
9 words
2914

10¢

MOV

000011
0000006
000006

JSR
CLR
B8R

MOV

000000G
000002
000002

BUFSLOC,
»

&,REF NUM

2861

(R3),R0

RO,22(SP)
1
©3001,.RET,.STATUS
PC,DECODE
R2

MOV

Q0UT$STD.BUF
,R3

MOV

2s:
3s:

2806

RO,R3
RO

BEQ

1$:

000024

20(SP),RO

CcMP

000000G

SEQ 0182
VAX-11 Bliss-16 V3 555
Page
38
SPIDER
[NEALE
SUS
. AZTEC ]ZRCHBS.B1
ERS:
6;4 (12,

RO
RO

CLR
81ISB

000022

13:46:24
13:23:12

R1, $SAVE3
96,SP

MOV
ASL
ASL
MOV
ADD

0000006

003001
175716

S-Apr-1984
11-Jan-1984

#11,R0
RO,RET.STATUS

26, 5P

+«

2414

;
:

2864
2865

2877

s,88TMP2

2879

¢,88TMP1

:
:

SSTMP
$STMP1L

$STMP?

2885

H
H

2888
2887

;

*,RC$S.REG

D
:

¢
I,7T0.VALUE

;

H
H
:

¢, RC$S.REG

2897

2877
2907
2909
2911
2806

B15
ZRCHBS

SEQ 0183

MOOWLE

DECLARATIONS

S-Apr-1984
11 Jan 1984

<915
2916

global

rout
i ne ABORT

!Aborts remote program

2918
2919
2920
2921
2922
<923
<924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939

2917

2940
2941
2942
2943

2944
2945
2946

Functional
The

Description :
aebort progrem

remote

VAX 11 Bliss-16 v3-55%5
Pege 39
SPIDERSU
(NEALE .AZTEC
SERS
)ZRCrBS5.816:
;:4 (13)

progrem

commend
an

is used to terminate

orderly

fashion.

global

_torsge gets

When

the execution of
successful

response

X ]
received
to
this command
the remote
progrem
hes
stopped
erecuting
end the
server is in idle state.
Note thet the sending
of this command does not preclude further send data or receive date
exchenges: On the
contrary, the
remote program may be designed to
send
out termination status end possibly even ask questions during
its forced exit sequence.
The time out for this commend is o fixed
19
seconds
end
if
e
response
is
not
received by then the
connection to
the dust should be terminated.
This command is only
legal if the dust is in active state.
Formal Perameters

noNe

Implicit Inputs
NSD _SLOT

This

‘Get_nsd’

descr ptor

end

slot

losded

the

routine

is stored the next send ring

where

be polling on and the

the port/controller

place

to put

should

this commands

command packet.

Implicit

Outputs

noNe

Completion Codes

RET_STATUS:

Return status passes back
the stetus of

Side F*°

Ary remote program
te aborted.

running

the

juat

to the calling routine

issued command.

the controllers

DM mach ne

w'll

begin

locel
REF NUM,
ABO_BUF $LOC,

!Stores unique cmd ref number
!Stores outtstending cmd buffer

TEMP;

‘A plece to put

locat
. on

the read IP reg ster Jdata

BF B

VL G

13:46:24
13:23:12

Yoo

B¢

V¢

B¢

G0 B

G0 G0

REV B8 PATICH 00

ZRCHBO RC25 DISK ¢ ORMATTER

!
!
]

Before we load up the command packet up with all this good information get
thenext send descriptor slot and 8 unique command reference number.

6€Y_NSD ()

REF _NUM
¢

GET _CMOSREF

!Get the next send desc slot

(),

'Get

a unigue command ref num

§ UQ Port command envelope Header field definit
on

[]

éND_ENVELOPE [ .NSD_SLOT, MSG_LENGTH) = S2 ABT;
SND _ENVELOPE
SNO _ENVELOPE

[ .NSD_SLOT,
[ .NSD SLOT,

CREDITS) =« ONE;
MSG_TYPE) = 0,

1Load the length of envelope

‘Load credits
‘Load message type

CLS
JRCHBS

REV B PATCH 00

:
3

Sg;g
23;;

2977

2976

ZRCHBO RC25 DISK FORMATTER
MODULE

DECLARATIONS

?ND_ENVELOPE
H

S Apr 1984 13:46:24

[ LNSD_SLOT,

CONN_ID)}

= DUP,

SND _ENVELOPE

[ .NSD_SLOT,

CMO_LREF)

_REF_NUM,

[ .NSD_SLOT,

CMO_MREF)

ZERO;

SND _ENVELOPE ( .NSD_SLOT,
SND _ENVELOPE ({ .NSD_SLOT,
SND _ENVELOPE (.NSD_SLOT,
SND _ENVELOPE ( .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,

:
:
:
:
:
:

2984
2985
2986
2987
2988
gggg

!
't
!
!
!
!

gggé

ABO BUF SLOC

;

2322

if _ABO_BUFS$LOC eqlu OBF _CODE then DECODE ();

:
:
:

2
2995
gggg

gggg

ggg?

H
H
:

3002
3003
288;

3006

3007

gggg

:
:
:
i

:
H
:
:
H
:
:

!
!

Set

= LOAD OQUTSSTD BUF

the ownership bit

SEND _RING ([ .NSD_SLOT,

(,REF _NUM);

giving

OWN_BIT]

Read the

!'Load the command

‘Error if Duffer is full

this slot

the port/controller

PORT_OWNED;

to stimulate port

polling

TEMP
!

_RC2S ADDR

Time

out

The

first

respond to

the

(RCIP,

RC_ALL]);

port/controller processing
test

the command.

tests the comnections

this command without
the command not

eny errors

timing out.

ebility

in the 54

3010
3011
3012
3013

!
!
!
!

The
second tests the
DOUP server for good status.
IFf
bad status is sent back then an error code is returned
to the calling routine where the routine “decode” will
decode
oand take the
appropriste recovery.
The
time

3015
3016
3017
3018
3019
3020
gggé

!
!
!
!
H

bit of the
first word in
the
outtstd buf for s true.
When true signals us that the interrupt service routine
nas received
the endpacket
and
no connection errors
were detected.

3023
3024
3025

!
!
!

3028

RET ENSAD

3014

out

routine will

if CTO_WAIT

(3000,

loop on deleying and checking the n:

.REF

:
H
:

ref number

!'Unused low order
!'Unused hi order
!Load opcod
'Reserved field

Coll
the
load
outtstanding
commend buffer routine
end
load
this command
into
the buffer.
The return
from this routine will point us to the buffer location
where
this command
s
stored.
Loater we can look at
this
location to see if the interrupt service routine
has received and process it.

[]

UN_LUSED) = ZERO;
UN_MUSED] = ZERO;
OPCODE) = OP_ABT;
RSVD) = ZERO;
MODIFIER) « ZERO;

order

ggg?

NUM,

_ABO BUFSLOC)

then DECODE

();

!ls return an error

Get
the return envelope
address
from the
outtstd buf
at
this commands
buffer locetion
end check the packet
for Qood status error and die if bad status was returned

_OUTSSTD BF

[ .ABO BUF $LOC,

ENV ADR ),

thet

the ret

)Eopg

SPIDERSUSERS: [NEALE ,AZTEC JZRCHBS .B16:4

'‘Define referance number

!'Mi

2978
2979
2980
2981
gggg

13:23:1°2

DUP command envelope field definition

SND _ENVELOPE

1984

1l.oad connection

:
:
:
:
H

Jan

VAX 11 Blisg 16 V3 555

eny

aor

184

9?13

40
’

@0
o5
@
@0
@0
@0
@
@0
@0
@s

3029
3030
3031
3032
3033
30ta

3035
3036
3037
3038
3039

004167
005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
112761
010260

005060
005060
005060
112760

105060
005060
010216
004767
010001
020127
001002
004767
016700

000164
000172
000176
000202
000204
000206
000212
000214
000216
000220
000224
000226

012716
010246
010146
004767
022626
006000

103002
004767
010100
006300

MTMMODWE

DECLARATIONS

Now test

.RET

then

else

Apr-1984

13:46:24

Jan

13:23:12

1984

VAX

11 Bliss

16 V3 555

51 0185
41

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 816 4 (13)

for good status

ENSAD

‘Test

(STATUS] nequ ZERO

return RET

return

.RET

STATUS

RSE CODE

STATUS;

the status

'Return a

"Rasponse status err’ code

'This ret

status

9 good or bad

end;

0000006

.SBTTL
ABORT:: JSR
TS7

JSR
JSR
MOV

175312
175454
0000006
000054
0000006
000014
0000006
0000026

MOV

000001
000002
000001
0000046
0000066
0000106
0000126
000006
0000140,
0000156
0000166

MOVB
MOVB
MOV
CLR
CLR
CLR
MOVB
CLR8
CLR
MOV
JSR

MOV
JSR
MOV
MOV
ADD

175252
002001

175416
0000006

1¢:

ABORT MOOUWE DECLARATIONS

(SP)
PC,GET ,NSD
PC.GET.CHMOSREF
RO, R2
NSD.
S 0T, -(SP)

54, -(SP)
PC,BLSMA
©14,SND .ENVELOPE(RO)
#SND .ENVELOPE +2,R1
RO,R1

o1 ,(R1)

#2,1(R1)

R2,SND.ENVELOPE +4(RO)
SND , ENVEL OPE +6(RO)
E
+ 10(RO)
SND . ENVELOP
SND.ENVELOPE +12(RO)
96 ,SND . ENVELOPE
- 14(RO)
SND .ENVELOPE +15(RO)
SND .ENVELOPE +16(RO)
R2,(SP)
PC,LOAD.OUTSSTD.BWF
RO,R1
R1,02001
18
PC,DECODE

2969

2970

REF .NUM, ¢

2971
2972
2976
2977
2978
2979
2980
2981
2982
2991

¢,ABO.BUF $LOC
ABO.BUFSLOC,
»

2993

REF .NUM, ¢

2998

RO
NSD.SLOT

4(SP),RO
95670,(SP)
R2, (SP)
R1, (SP)

PC,CTO.WAIT

177356

s ,REF .NUM

2964
2965

RO
RO

SEND.RING.RO
9100000,2(R0O)
8RC2S.ADDR,4(SP)

0000006
100000
000002
000000G 000004
000004
005670

2915

R1,$SAVER

[

B PATCH 00

REV

ZRCHBO RC2S5 DISK + ORMATTER

®¢ G0 @0 B0 S0 @0 e G0 e Be

ZRCHBS

¢ RC3$S.REG

RC$S.REG, TEMP

3002
3021

REF .NUM, o
ABO.BUF $LOC, o

(SP)+,(SP)»

175334

PC,DECODE
R1,RO
RO

ABO.BUF
$L OC, »

3028

EL15
ZRCHBS
REV B PATCH 00

000230
000232

000240
000244
000250
000252
000256
000262
000264
000270
000274
;:

006300
016067
016000
005760
001405
012700
010067
000402
016700

062706
000207

Routine

Size:

ZRCHBO RC2S5S DISK FORMATTER
MODULE DECLARATIONS

0000006

3040

3¢

000006

Rout ine Base:

invocation

9 words

34
931,R0
RO,RET
. STATUS

B8R
MOV
ADD
RYS
ACS$CODE

13:23:12

OUT$STD.BUF +2(RO),RET .ENSAD
OUT$STD.BUF +2(RO),RO
16(RO)

MOV
MOV

000000G

13:46:24

VAX-11 Bliss-16 v3 S55

5€Q 0186
Pa

SPIDERSUSERS: [NEALE. AZTEC)ZRCHBS B16;4 (13;

BEQ

000031

95 words,

11-Jan-1984
ASL
MOV
MOV
TST

000002G 0000006
0000026
000016

Maximum stack depth per

S-ARpr-1984

RET.STATUS,RO
06 ,SP

2024

3033

302%

2953

2915

F15
ZRCHBS

ZRCHBO RC2S5 DISK FORMATTER

REV B PATCH 00

MTMMODWE DECLARATIONS

:
:

global

3045
04

3043

;
H
:
:
:
H
:
:
H
:
:
:
:
:

3045
3046
3047
3048
3049
gOSO
051
3052
3053
3054
3055
3056
3057
3058

!
!
!
!
¢
'
!
!
¢
!
!
!
¢
!

:
H
H
:

:
:
:
H
:
:
:
H
:
H
H
:
H
:
:
:
H

:
:

3044

3059

3060
3061
3062
3063

3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080

gggé

3083
iggg

ggg?

H
:
:
:

3088
3089
3090
gggé

Functional Description

!
!
!
!
!
!
¢

gggz

fFormal Parameters
none

Implicit Imputs
NSD _SLOT

3097

!Gets DUP server status

This
global storage gets
loaded
by
the routine
‘Get nsd’
ond
in it is stored the next send ring

command pac-et.

Implicit Outputs
none

Completion Codes :
RET_STATUS:

Side Effects

Return status passes back to the calling routine
the status of the just issued command.

begin

locel
REF _NUM,
GOS _BUF sLOC,
TEMP;

'
!

Before we

load up

!Stores unique cmd ref number
!Stores outsstanding cmd buffer locat:.on
'A place to put the IP read data

the command packet

!
!

!Get
!Get

();

UQ Port command envelope Header

SND _ENVELOPE ( .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SND_ENVELOPE (.NSD_SLOT,

all

this good

information get

the next send descriptor slot and a unique command reference number.

GET_NSD ();
REF _NUM = GET _CMOSREF
H

up with

the next send desc slot
a unique command ref num

field definition

MSG _ENGTH] = SZ GDS;
CREDITS) = ONE;
‘Load
MSG TYPE) = 0;
‘Load
CONN ID) = DUP;
‘Load

‘Load the envelope size
the credit size
the message type (Sequential)
the connection ID

DUP generic command envelope field definition

SND ENVELOPE
SND ENVELOPE

SND ENVELOPE

[ .NSD SLOT,
[ .NSD SLOT,

[.NSD SLOT,

CMD_LREF)
CMD_HREF)

UN LUSED)

=
=

_REF _NUM;
!coad command reference number
ZERO;
‘'Commend reference low order

ZERO;

‘Low order unused

5EQ@

’

0187
Pa

SPIDERSUSERS:[NEALE.AZYEC]ZRCHBS.BIG;AQ?IA;

descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands

[}

3095
3096

VAX-11 Bliss-16 V3 555

This
command allows
the host program to interrogate the DUP server
to
determine its
caracteristics, its
state
and the
state of the
program
currently running
(if any).
It is legal in either idle or
active
state
and
does
not affect
the state of server.
It has a
fixed timeout interval of 3 seconds.
If the response times out, the
host should break the connection.

!
!
!
!

13:46:24

11 Jan-1984 13:23:12

routine GET _DUST STATUS

[]

:
:

5 Apr-1984

GLS
ZRCHBS

REV

B PATCH 00

3098

ZRCHBO RC25 DISK FORMATTER

TMMODULE

S-Apr-1984 13:46:24

DECLARATIONS

11-Jan-1984

SND_ENVELOPE [ .NSD_SLOT, UN HUSED]

3099

SND _ENVELOPE

:
H
:

3100
3101
3102
3103
3104
3105
3106
3107

SND _ENVELOPE [ .NSD_SLOT, RSVD] = ZERO;
SND _ENVELOPE [ .NSO_SLOT, MODIFIER) = ZERO;
H

:
H
:
:
H
:
:
:
:
:

3
H

;108
109
3110
111
311%

311
3114

3125

124

:
:

3126
glg;

!
!

3125

'Hi

OP_GDS;

order unused

!'Load opcode

'Reserved field
'Load modifier field

.GDS _BUFS$LOC eqlu OBF _CODE

then DECODE

();

'‘Error

!
! Set the ownership bit to 1 giving this slot
H
SEND _RING [ .NSD_SLOT, OWN_BIT) = PORT_OWNED;

3115
3116
gll;
11
3119
3120
3121
122

OPCODE)

Time

out

the

The

first

port/controller processing

test

tests the connections

respond to
this command without
register and for the command not

any

errors

ability
in

the

timing out.

The
second tests the
DUP server for good status.
If
bad status is sent back then an error code is returned
to the cealling routine where the routine "decode” will
decode
and take the
appropriate recovery.
The
time

:
:
H
:
H
H

3134
3135
3136
3137
3138
3139

!
!
!
!
'

bit of the
first word in
the
out$std_buf for a true.
When true signals us that the interrupt service routine
has received
the endpacket
ond
no connection errors
were detected.

g%:g

if CTO_WAIT (3500,

3142

31:;

RET_ENSAD

:
:
H

H
;
:
:
H

3143
3144
;{:2

3149
3150
3151
3152
3153
3154

full

the command.

!
!
!
!

!
! Read the IP register to stimulate port polling
H
TEMP = _RC25_ADOR [RCIP, RC_ALL];

3129
3130
3131
3132

3133

buffer

the port/controller

H
H
H
H

! out

!
!
!

routine will

,GDS BUFSLOC) then DECODE ();

'Is return an error

Get
the return envelope
address
from the
outsstd_buf
st
this commands
buffer location
and check the packet
for good status error and die if bad status was returned

!
!

loop on delaying and checking the hi

.REF_NUM,

Now test

_OUTSSTD
BUF

[.GDS BUFSLOC,

ENV

ADR]);

'Get

the

ret env

adr

for good status

if .RET_ENSAD (STATUS] nequ ZERO
then
return RET STATUS = RSt CODE

'Test

the status

'Return a

5EQ 0188

Page

SPID:ERSU
[NEALE .AZTEC)ZRCHBS
SERS
.B16;:4

! Call
the
load
outtstanding
command buffer routine
' and
loed
this .uwmand
into
the buffer.
The return
! from this routine will point us to the buffer location
! where
this command
s
stored.
Later we can look at
! this
location to see f the interrupt service routine
! has received and process it.
!
GDS_BUF $LOC = LOAD_OUTSSTD_BUF (.REF _NUM);
!'Load the command

:
:
:
:
H
:
H
H

[ .NSD_SLOT,

= ZERO;

13:23:1°2

VAX-11 Bliss-16 v3.555

'Response status err'

code

(14,

H15

000072
000076
000102
000110
000114
000120
000122
000126
000130
000134
000136
000142
000146
000150
000152
000156
000164
000172
000176
000202
000204
000206
000212
000214
000216
000220
000224
000226
000230
000232
000240
000244
000250
000252

010216
004767
010001
020127
001002
004767
016700
006300
006300
066700

052760
017766

016600
012716
010246
010146
004767
022626
006000

103002

004767
010100
006300
006300
016067
016000
005760
001405
012700

555

5EQ 0189
Pa
45

is good or bad

end;

0000006
000054
0000006

MOV

JSR

MOV
MOV
ADD

000014
000000G
0000026

000001

SND . ENVELOPE «6(R0O)
SND . ENVELOPE +10(RO)
SND . ENVELOPE +12(RO)

01,SND.ENVELOPE +14(RO)

SND . ENVELOPE +1S(RO)
SND .ENVELOPE +16(RO)

0000166

R2,(SP)
PC,.LOAD.OUTS$STD.BWF
RO,R1
R1,82001
1s
PC,DECOOE
NSD.SLOT
RO

174754
002001

1s:

SEND.RING,.RO
9100000,2(R0O)
8RC25.ADDR,4(SP)

4(SP),R0O

96654, (SP)
R2, -(SP)
PC,CTO.WAIT

177060

000031

2$:

®e
@
®e

+ ,REF _NUM

3083
3084
3088

3089

REF .NUM, ¢

REF .NUM, o

+,GDS.BUF $LOC

GDS.BUF $LOC, »

3090
3091
3095
3096
3097
3098
3099
3100
3101
3110

3112
3117

RO
RO

0000006
100000
000002
000000G 000004
000004
006654

000002G 0000006
0000026
000016

PC,BLSMUAL
914 ,SND . ENVELOPE(RO)
OSND.ENVELOPE+2
,R1
RO,.R1
91.(R1)

R2,SND.ENVELOPE +4(RO)

0000146

175036

NSD.SLOT, -(SP)
54, -(SP)

92,1(R1)

000001

175120
000000G

PC,GET.CMDSREF
RO,R2

JSR
MOV
MOV

3041

175014
175156

000002

GET.DUST.STATUS MODUWE DECLARATIONS

.SBTTL

GET.DUST STATUS: :
R1, $SAVE?2
JSR
TST
-(SP)
PC,GET.NSD
JSR

0000006

005746
004767
004767
C10002
016746
012746
004767
012760
012701
060001
112711
112761
010260
005060
005060
005060
112760
105060
005060

'This ret_status

RET_STATUS;

000012
000016
000020
000024
000030
000034
000042
000046
000050
000054

004167

return

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS .B15;4 (14)

B¢

000000

else

3155
3156
3157
3158

MODULE DECLARATIONS

VAX-11 Bliss

PATCH 00

13:46:24
13:23:12

S Apr-1984
11-Jan-1984

®¢

REV

ZRCHBO RC25 DISK FORMATTER

ZRCHBS

JSR

PC.DECODE

1ST
BEQ
MOV

3121
3140

REF .NUM, »

GDS.BUF $LOC,

(SP)e ,(SP)s

ROR

MOV
ASL
ASL
MOV
MOV

+ ,RC$S.REG
RC$S.REG, TEMP

R1,RO

RO
RO

QUTS$STD.BUF «2(RO),RET .ENSAD
OUT$STD.BUF +2(RO),RO
16(RO)
3%
431,R0O

GDS.BUF $LOC, »

314°

3152

3154

ZRCHB5S
REV 8 PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODWE DECLARATIONS

000256

0000006

000262
000264
000270
000274

010067
000402
016700
062706
000207

Rout ‘ne Sice:

Max"'mum stack
3159

0000006
000006

95 words .

depth per

S-Apr

11 Jan
RO,R
. STATUS
ET

MOV
3s:
44

Rout ine Base:
invocation:
9 words

B8R

RET.STATUS,RO

MOV
ADD
RTS

AC$CODE

26, 5P

3122

1984

13:46:24

13:23:12

SEQ 0190
Page
46
SPIDERS$USERS: [NEALE.AZTEC]ZRCHBS .B16;4 (14;
VAX-11 Bliss-16 v3 555

3072

31041

J15
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE

DECLARATIONS

global

routine EX SUP_PROG

:
:
:
:
:

:
H
:
H
H

§1go

161
3162
3163
3164
3165

3166
3167
3168
3169
3170

3171

:
:

§I;§
P

3177

H
:
H

3178
3179
3180

H
:
:

3187
3188
3189
3190
3191
glgg
1

3194
3195
g%gg

:
H
H

3198
3199
ggg?

H
:
:
:
:
:
H

3202
3203
3204
3205
3206
3207
gggg

H
:
:

3210
3211
gg%g

H
:
H

!
!
!

!
!
!
!
!
!
!

!
!
!
H
!

!
'

time

out

Formal Parameters

13:23:12

'Executes supplied program

the

server

transfer

the

idle state

and return

into to active state.

interval

for

this

command

the program from host

a successful

Implicit Inputs
NSO _SLOT

Implicit Outputs
AZFMTR:

end packet

seconds.

:
This
global storage gets
loaded
by
the routine
'Get _nsd’
and
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.
:

DMSA
OVSA:
HOSA:

Completion Codes :
RET_STATUS:

Azfmtr is the vector produced by DMCONV program and
is decalared in module AZKELG6,
These three bound addresses point to specific area
in the DM code buffer 'azfmtr' end are used to
define the buffer descriptors within this command.
Returr status passes back to the calling
the status of the just issued command.

Side Effects :
The DM machine in the controller goes from the idle state
active state on return of a successful return packet.

routine

the

begin

local
REF _NUM,
ESP _BUF$LOC,
TEMP;
!
!
!

!Stores unique cmd ref number
!Stores outsstanding cmd buffer location
'A place to put the read IP register data

Before we load up the command packet up with all this
informat
ion get
the next send
descriptor slot and a unique command reference number.

GET _NSD ();
REF NUM = GET_CMDSREF

();

'Get
1Get

SEQ 0191

Page

SPIDERS$
: [NEALE .AZTEC
USER
]ZRCHBS.B165S
;:4

!
!
s

VAX-11 Bliss-16 v3-555

none

[}

3214
gglz

The

:
H
:
H
:
:

server

puts the server

3181
3182
3183
3184
3185
3186

the

!
!

gx;g

:
H
H
H
:
H

13:46:24

in
the controller and start its execution.
The
host
supplies
the
address
and
length
(in
bytes) of a buffer
containing
the
program
header
end
initial
load;
the starting
of the program, its memory requirements and any relocation information
needed
to
run unocer the server are in the program header in a format
which
is none of the host business.
This commmand is only legal when

!
!
!
!
¢

3176

11-Jan-1984

'+
! Functional Description :
!
This
command
causes
!
memory
to
an
ares

S Apr-1984

the next send desc slot
¢ un que command ref num

(15

IK1S
ZRCHBS

REV B PATCH 00

S-Apr-1%84
11-Jan-1984

ZRCHBO RC25 DISK FORMATTER

MODWLE DECLARATIONS

13:46:24
13:23:12

SEQ 0192
VAX-11 Bligs-16 V3 555
Pa
48
SPIDER$USERS: [NEALE .AZTEC)ZRCHBS.B16;4 (15)

gglg

! UQ Port command envelope Header field definition

:
H
H

3219
3220
3221

SND_ENVELOPE [ .NSD_SLOT, MSG_LENGTH] = SZ _ESP;
‘Load the message length
SND_ENVELOPE [ .NSD_SLOT, CREDITS]) = ONE;
‘Load the credits field
SND_ENVELOPE { .NSD_SLOT, MSG_TYPE) = 0;
'‘Define the msg type ‘'Sequential’

§2Z§

SND _ENVELOPE [ .NSD_SLOT, CONN_ID])
!

= DUP,;

'Define the conection ID

! DUP generic command envelope field definition

3224

3226

SND_ENVELOPE [ .NSD_SLOT. CMD_LREF) = .REF_NUM,

3232

SND_ENVELOPE ([ .NSD_SLOT, MODIFIER] = ZERO;

:
:
:
:
:

322

3227
3228
3229
3230
3231

SND _ENVELOPE
SND_ENVELOPE
SND _ENVELOPE
SND_ENVELOPE
SND _ENVELOPE

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

CMO_HREF) = ZERO;
UN_LUSED] = ZERO;
UN_HUSED]) = ZERD;
OPCODE]) = OP_ESP;
RSVD]) = ZERO;

'Load command ref number

'Zero Hi order word of cmd ref
!Not used in DUP implimentation
'Not used in DUP implimentation
!Load the command op-code
tNot used

!
! Command specfic command envelope field definition

H
;

3233
gag;

§2§6

:
:

3238
ggsg

SND_ENVELOPE ([ .NSD_SLOT, BLO_CNT]) =
SND _ENVELOPE [ .NSD_SLOT, BHI_CNT] =

:
H

3241
gacg

! Buffer descriptor definition for initial load.
First
! byte
of
this
buffer
is byte O of
program header.

3244

SND _ENVELOPE [ .NSD_SLOT, BPA_LO)

:
:
:
:
H

3245
3247
3248
3249
3250

SND _ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE ([ .NSD_SLOT,
SND_ENVELOPE (. NSD_SLOT.
SND _ENVELOPE [ .NSD_SLOT,
SNDO _ENVELOPE [ .NSD_SLOT,

:
:

:
:
H

237

324S5

3251
gggg

:
:
;

3254
3255
gggg

gggg

:
H
:

3260
3261
3262

:
H
H
H
:
:
:

H
H
:
H

3263
3264
3265
3266
3267
gggg

3270
3271
3272
3273

! Byte count of
H

initial transfer (from bytes 0-3 of the program header).

_AZFMTR (WRDO);
_AZFMTR [WRD1);

= HDSA;

SND _ENVELOPE [ .NSD_SLOT, BPA_HI) = ZERO;

SND_ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [.NSD-SLOT.
!

QBUS_EXT) = ZERO;
RSV]) = ZERO;
UBA_CHAN]) = ZERO;
RSVO) = ZERO;
RSV1) = ZERO;
RSV2)
RSV3]

= ZERO;
= ZERO;

!'Byte count low word
'Byte count high word

Low unibus adrs <0-15>

'‘Unibus adrs bits <16-17>

'Q_bus extention adrs
‘Reserved field
‘'Unibus adaptor channel number
'These next four words are not
tused in the DUP implementation
H
'

!
!
!

These next field definitions are the same as above except trey are for the
overlay buffer descriptors.
To make life easy for me I'l]l use the same names
and just prefix them with a § for uniqueness.

The overlay srea

!
H

immediately follows the

SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [.NSD_SLOT,

SND_ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
H

!
'
!
!

$BPA_LO) =
$BPA_HI] =
$QBUS_EXT)

.0OVSA;
ZERO;
= ZERO;
$RSV]) = ZERO;
$UBA_CHAN]) = ZERO;

$RSVO)
$RSV1]
$RSvV2]
$RSv3)

=
=
=
=

ZERO;
ZERO;
ZERO;
ZERO;

initial

load

image

in the program

!Low unibus adrs <0-15»
'Unibus adrs bits <16-17>
'GQ_bus extention adrs

'‘Reserved field
!'Unibus adaptor channel number
'These next four words are not
‘used in the DUP implementation
'
!

Call
the
load
outsstanding
command buffer routine
and
load
this command
into
the buffer.
The return
from this routine will po'nt us to the buffer lccation
where
this command
s
stored.
Later we can look at

image.

L15
ZRCHBS
REV B PATCH 00

! this

3277

ESP_BUFSLOC = LOAD_OUTS$STD_BUF (.REF _NUM);

§27S
276

:
:
H
H
H
:

3278
3279
3280
3281
3282
3283

3285

S-Apr-1984
11-Jan-1984

3274

:
:

ZRCHBO RC25 DISK FORMATTER
MTMMODULE DECLARATIONS

!
!

!
!
H

it.

!Load the command

_ESP_BUFS$LOC eqlu OBF _CODE then DECODE ();

‘Error

SEND_RING [ .NSD_SLOT, OWN_BIT] = PORT_OWNED;

3286

! Read the IP register to stimulate port polling

3288

3290

287

3289

TEMP = _RC2S_ADDR [(RCIP, RC_ALL];
!

Time

out the

port/controller processing

The

first

test

the command.

:
:

3293
339;

! respond to
this command without
any errors
! register and for the command not timing out.

H
H
H
B
H

3296
3297
3298
3299
3300

3303

:
H
:
B
:
:

3292

tests the connections

ability

3301
3302

!
!

bit of the
first word in
the
out$std_buf for a true.
When true signals us that the interrupt service routine

!
!

were detected.

! The
second tests the
DOUP server for good status.
If
! bad status is sent back then an error code is returned
! to the calling routine where the routine "decode” will
! decode
and take the
appropriate recovery.
The
time
! out
routine will loop on delaying and checking the hi
' has received

the endpacxet

if CTO_WAIT (3500,

no connection errors

_ESP_BUFSLOC)

then DECODE

3309

3310
3311
gg{g

!
!
'

;

gglg

éEY_ENtAD = ,QUTSSTD_BUF [ .ESP_BUFSLOC, ENV_ADR];

H
H
H
;
H
:
H
:
H
:

3316
3317
3318
3319
3320
3221
3322
3323
3324
3325

! Now test for good status
H

000000

004167

.REF_NUM,

and

:
:
:
:

in the SA

3304
3305
3306
ggg;

is full

3291

if buffer

Set the ownership bit to 1 giving this slot to the port/controller

3284

SEQ 0193

VAX-11 Bliss-16 v3 555
Page
43
SPIDERSUSERS
: (NEALE .AZTEC)ZRCHBS.B16;:4 (15

location to see if the interrupt service routine

has received and process

13:46:24
13:23:12

();

!'Is return an error

Get
(he return envelope
address
from the
outtstd_buf
at
this commands
buffer location
and check the packet
for good status error and die if bad status was returned

if .RET_ENSAD ([STATUS] nequ ZERO
then
return RET_STATUS = RSE_CODE
else
return .RET_STATUS;

'Get the ret env adr

!Test the status
'Return a

"Response status err” code

'This ret_status

‘s good or bad

end;

0000006

.SBTTL

EX,SUP.PROG MODULE DECLARATIONS

JSR

R1,$SAVE2

Ex.5UP.PROG:
:

3160

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001

112711
112761
010260
005060
005060
005060
112760
105060
005060
016760
016760
012760
012701
060001
105011
105061

005060
005060
005060

005060
016760
012701
060001
105011
105061
005060
005060
005060
005060
010216
004767
010001
020127
001002
004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
022626

DECLARATIONS

TST
JSR
JSR

174516
174660

MOV
MOV
MOV

0000006
000054
0000006
000050
0000026
000001
000002
0000046
0000066
0000106
0000126
000002
0000156
0000166
0000006
0000026
0000006
0000266

JSR

MOV
MOV
ADD
MOVB
MOVB
MOV

000001

CLR
CLR
CLR

0000146

MOV8

CLRB
CLR

0000206
0000226
0000246

MOV
MOV
MOV

ADD

CLRB
CLRB
CLR
CLR
CLR
CLR

000001
000030G
0000326
0000346
0000366
0000006 0000406
0000426

MOV

ADD

CLRB
CLRB
CLR
CLR
CLR
CLR

000001
0000446
0000466
0000506
000052G

MOV

174336

JSR

MOV

002001

cHp
BNE

174502

0000006

1$:

000002

JSR

MOV

ASL
ASL

ADD

BIS

MOV
MOV
MOV
MOV

176442

MOV
JSR

CMP

SEQ 0194
Page

SPIDERS$USERS: (NEALE.AZTEC]ZRCHBS.B16:4 (15

-(SP)

PC,GET.NSD
PC.GET.CMD$REF
RO,R2
NSD.SLOT, -(SP)
054, -(SP)
PC,BLSMUL
950,SND .ENVELOPE(RO)
OSND .ENVELOPE +2,R1
RO,R1
01,(R1)

* ,REF .NUM

3214
3215
3219

3220

#2,1(R1)

R2,SND .ENVELOPE +4(RO)

REF .NUM, »

SND .ENVELOPE +6(RO)
SND .ENVELOPE +10(RO)
SND.ENVELOPE +12(RO)

92 ,SND .ENVELOPE +14(RO)

SND .ENVELOPE +15(RO)
SND . ENVELOPE +16(RO)

AZFMTR,SNO
. ENVELOPE +20(R0O)
AZFMTR+2,SND .ENVELOPE +22(RO)
AHOSA, SNO . ENVELOPE +24(RO)

OSND .ENVELOPE +26,R1
RO,R1

3221
3222
3226
3227
3228
3229
3230
3231
3232
3238
3239
3244
3245

(R1)
1(R1)
SNO . ENVELOPE
+ 30(RO)
SND .ENVELOPE +32(RO)
SNO .ENVELOPE +34(R0Q)
SND . ENVELOPE +36(RO)
OVSA, SNO.ENVELOPE +40(RO)

3247
3248
3249
3250
3251
3252
3260
3261

(R1)
1(R1)
SND . ENVELOPE +44(RO)
SND .ENVELOPE +46(RO)
SND . ENVELOPE +SO(RO)
SND . ENVELOPE +S52(R0O)

3263
3264
3265
3266
3267
3268
3277

OSND .ENVELOPE +42,R1
RO,R1

R2,(SP)
PC.LOAD.OUTS$STD.BUF
RO,R1
R1,02001
1$
PC,DECODE
NSD.SLOT,RO
RO
RO

SEND .RING,RO
9100000,2(R0O)
8RC25.ADDR,4(SP)
4(SP),RO
96654, (SP)

R2,-(SP)
R1, -(SP)

PC,CTO.WALT
(SP)+,(SP).

REF .NUM, »

« ,ESP.BUFSLOC

ESP.BUFSLOC,
»

3279
32584

000004
000006
000012
000016
000020
000024
000030
000034
000042
000046
000050
000054
000062
000066
000072
000076
000102
000110
000114
000120
000126
000134
000142
000146
000150
000152
000156
000162
000166
000172
000176
000204
000210
000212
000214
000220
000224
000230
000234
000240
000242
000246
000250
000254
000256
000262
000266
000270
000272
000276
000304
000312
000316
000322
000324
000326
0170332

MODULE

VAX-11 Bligss-16 V3-555

PATCH 00

13:46:24
13:23:1°2

+,RC$S.REG
RC$S.REG, TEMP

S-Apr-1984
11-Jan-1984

®s

REV

ZRCHBO RC25 DISK FORMATTER

ZRCHBS

REF .NUM, »
ESP.BUF $LOC, »

3288
3307

ZRCHBS
REV B PATCH 00

000334
000336
000340
000344
000346
000350
000352
000360
000364
000370
000372
000376
000402
000404
000410
000414
;

006000
103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

Routine

ZRCHBO RC2S5S DISK FORMATTER
MODULE DECLARATIONS

174420
2s:

000002G 0000006
0000026
000016

ROR
8CC
JSR

MOV
ASL
ASL
MOV
MOV

3326

PC.DECODE
R1,RO
RO
RO

;

QUT$STD.BUF +2(RO),RET .ENSAD
OUT$STD.BUF +2(RO),RO
16(RO)
34

31,R0O
RO,RET.STATUS

B8R

MOV
ADD
RTS

Size:
Rout ine Base:
135 words,
AC$CODE
Maximum stack depth per invocation:
9 words

SEQ 0195
VAX-11 Bliss-16 V3 555
Page
51
SPIDER
[NEALE
SUS
,AZTEC ]ZRCHBS5.8B
ERS16;4
: (15

MOV
MOV

34:
qs3:

13:46:24
13:23:12

TST
8EQ

000031
0000006
0000006
000006

S-ARpr-1984
11-Jan-1984

RET,STATUS,RO

26,5P

PC
.«

3420

ESP.BUFSLOC,

3314

3319

;
3321

3203

3160

Blo
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV 8 PAICHM 00

MODWLE

DECLARATIONS

g;g;

global

routine Ex LOC PROG

3329
3330
3331

..
! Functional

3333

S Apr-1984 13:46:24

Jen

1984

'Frecutes

VAX 11 Blise 16 V3 555

13:23:12

locel program

Description

Receipt of

this

successful

response by

to search

3334
gg;z

!
!

and the server is in the ective state.
The time out
command is specified in the get dust response

:
H
3

3337
3338
3339

:
:

31341
3342

3340

!
!

the named

ceuses the controller

medis

for

commend

3
:

33832

Formal Paremeters
none
Implicit

Inputs

loead

end execute

the host

means

that

it.

its

locsl

Receipt of @

the progrem

is executing

value

for

this

NSD _SLOT

program,

This
global storeage gets
loaded
by
the routine
‘Get .ned’
oend
in it is stored the next send r ng

:
:
3

3343
3344
3345

¢
!

descriptor
slot
where the port/controller should
be poiling on and the
place
to put this commands

command pecket.

:
:
H
:
:
H

3347
3348
3349
3350
3351
gggg

!
!
!
!
!
H

3346

H
:
H

;

:
:
:
H

3354
3355
gggg

3339

3360

3361
3362
3363
ggg;

!
!
H

Implicit Outputs
none

Completion Codes :
RET_STATUS:

Return status pesses back to the calling routine
the status of the just ssued commend.

Side Effects :
The DM machine in the controller goes from the idle state
active state on return of e successful return pecket.

locel
REF _NUM,
ELP_BUFSLOC,
TEMP;

!Stores unigue cmd ref number
!Stores outtstanding cma buffer locet
on
‘A place to store the read IP register date

3366

g;gg

3370
gg;;

GET _NSD ();
REF_NUM « GET_CMDSREF

3367

H
:

to the

!--

oe9

! Before we lo0ad up the command packet up with
the next

send descriptor slot

all

this good

information get

and 8 unigque command reference number.

1Get
1Get

()

the next send desc slot
» unique command ref num

g;;z

;

3375

éND_ENVELOPE { .NSD_SLOT, MSG_LENGTH) = S22 ELP,;

Losd the message s e

gg;g

SNO _ENVELOPE

the conrmectio

:
:

3376
3377

:
:

ggg?
3382
3383

UQ Port command envelope Hesder

SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [ .NSD SLOT,
H

!
!

[ .NSD SLOT,

CONN

DUP generic command envelope

SND _ENVELOPE
SND ENVELOPE

[ .NSD SLOY,
[ .NSD SLOT,

field cefinitior

CREDITS]) = ONE;
MSG_TYPE) « 0,

ID)

DuUP;

‘Loed the credit size
'Define the msg typ ' Sequent
al

'‘Define

field definition

CMD_LREF)
CMD HREF)

Page

SPIDE
[NEALE
RSUSE
,AZTEC JZRCHES
RS:
.B16;4

:
:

560 019%

« _REF NUM,
't oad the command ref number
« ZERO;
!Zero the H: order cmd ref num

(16,

Cle
ZRCHBS

REV

:
:

:
:
:
H
:

3
:
:

B8 PATCH 00

3384

ZRCHBO RC2S DISK FORMATTER

MODWLE

DECLARATIONS

SND _ENVELOPE [ .NSD_SLOT, UN LUSED)

3393
ggg;

= ZERO,

SND _ENVELOPE [ .NSD_SLOT, PN_1)
SM)_ENVEL(PE ( .NSO_SLOT, PN_2]

= ZERO;
= ZERO;

3399

' where

3398

3400
2201

'
'
'

Cell
and

this command

H
:

3407
g:oa

H
!

;:10

SEND _RING

g:lg

:
:
:

3414
3415

g:%g

TEMP =
'
! Time

3418

:
:

H
:
:

09
11
1

3419
g:g?

H
!

!
!

stored.

this
location to see if the
has received and process it.

ELP BUFSLOC
if

'Not used field

'Program name word 1
'Program naeme word 2

from this routine will point us to the buffer

;:os
o4
g:os
06

!Not used in DUP impl imentation
!Loed this commends op code

the
loed outtstanding command buffer routine
loed
this command
into
the buffer.
The return

:
H
:

.ELP_BUFSLOC eqlu 0B8F _CODE
Set

the ownership bit

[ .NSD_SLOT,

Read the

The

interrupt

= LOAD _OUTSSTD _BUF

trhen DECODE

out

the

first

(RCIP,

();

RC ALL);

tests

the conmand.

the connections

respond to
this command without
any errors
register and for the command not timing out.

ebility

in the SA

!
!

The
second tests the
DUP gerver for good status.
If
bad steatus is sent back then sn error codo is returned

H
H

3425
3426

!
!

decode
and take the
aeppropriste recovery.
The
time
out
routine will loop on deleaying and checking the hi

When

3427

:
:
H
H
:

3429
3430
3431
3432
2422

3428

to the calling routine where the routine

! bit of the
!
!
H

3435
3436
3437
g:gg

'
!
°
¢

;

3440

RET ENSAD

(3000,

.REF

NUM,

the

nhas received
the endpacket
were detected.

if CTO_WAIT

true signals us thet

;
H
H
H
:

first word

is full

to the port/controller

3422
3423

3421

i f Duffer

polling

port/controller processing
test

'Error

PORT _OWNED;

IP register to stimulete port

.RC2S5S _ADDR

!Losd the command

giving this slot

service routine

(.REF _NUM);

OWN_BIT)

location

Later we con look

:
H

impl imentetion

SND _ENVELOPE [ .NSD_SLOT, MODIFIER]) = ZERO;
!Define modifiers for this cmd
H
! Command specfic command envelope field definition
!
SND _ENVELOPE [ .NSD_SLOT, PN_O) = ZERO;
'Progrem neme word O

!Not used in DUP

= ZERO;
OP ELP;

SND _ENVELOPE ([ .NSD_SLOT, RSVD]

!
'

= ZERO;

UN_MHUSED)
OPCODE) =

SPIDERSUSERS:

3388
3389
3390
91
3392

3387

[ .NSD_SLOT,
( .NSD_SLOT,

13:23:12

SND _ENVELOPE
SND _ENVELOPE

3396
3397

:
:

11-Jen-1984

VAX-11 Blises

3385
3386

H
H
:

S Apr 1984 15:46:24

"decode” will

outtstd buf for s true.

interrupt

end

service routine

no connecti
on errors

ELP BUFSLOC)

then DECODE

();

!le return an error

Get
the return envelope
eddress
from the
outistd buf
at
this commands
buffer location
and check the pecket
for good stetus error and die if bad stetus was returned
=

.OUTS$STD BN

(.ELP BUF SLOC,

ENV ADR ],

the ret env

aodr

€00197

Y Ko a21eC 1m0res. 016 3% 16 Ss

D16

else

"Response status err” code

'‘This

status

ret

s good or bad

ADD

MOve
MOVB
MOV
CLR
CLR
CLR
MOVB

000001
000002
000001
0000046
0000066
0000106
0000126
000003
0000146
0000156
0000166
0000206
0000226
000024G

CLR8B
CLR
CLR
CLR
CLR

MOV

174024

JSR

MOV
cMP
BNE

002001
1%:

JSR
MOV

®e
®e
%
e

@SND .ENVELOPE
.2 ,R1
RO,R1

#1,(R1)

#2,1(R1)

R2,SND.ENVELOPE +4(RO)
SND . ENVELOPE +6(RO)

SND . ENVELOPE +10(RO)
SND . ENVELOPE +12(RO)

@3 ,SND.ENVELOPE +14(R0O)

SND . ENVELOPE »15(RO)
SND . ENVELOPE «16(RO)
SND .ENVELOPE «20(RO)
SND . ENVELOPE «22(R0)
SND . ENVELOPE +24(R0O)
R2.(SP)
PC.LOAD.OUTS$STD.BLF

RO,R1

18
PC ,DECODE

NSD.SLOT RO

RO
RO

0000006
100000
000002
000000G 000004
000004
005670

ADD
8IS
MOV
MOV
MOV

8RC25.ADDOR,4(SP)

176130

JSR

PC,CTO.WAIT

ROR

CHP

3373

3376

ND
. ENVELOPE(RO)
#60,S

ASL
ASL

MOV
MOV

s REF N

REF
. NUM, o

3377
3378
3382

REF .NUM, o

3385
3386
338~
3388
3392
3393
3394
3403

o, ELP . BUF$LOC

MOV
MOV
JSR
MOV
MOV

RO,R2
NSD.SLOT, -(SP)
54, -(5P)
PC,BLIMUL

3370

3373

MOV

PC,GET _NSD

PC,GET.CMDSREF

1S7

3327

R1, $S5AVER2
(SP)

JSR
JSR

0000006
000054
0000006
000060
0000006
0000026

174170
C00000G

JSR

174100
174242

EX.LOC.PROG MODWE DECLARATIONS

3383

005746
004767
004767
010002

.S817 TL

EX.LOC.PROG:

000004
000006
000012
000016

010246
010146
004767
022626
006000

RET _STATUS;

‘Return &

0000006

000216
000220
000222
000226
000230

return

= RSE _CODE

004167

016746
012746
004767
012760
012701
060001
112711
112761
010260
005060
005060
005060
112760
105060
005060
005060
005060
005060
010216
004767
010001
020127
001002
004767
016700
006300
006300
066700
052760
017766
016600
012716

return RET_STATUS

the status

end;

000000

000020
000024
000030
000034
000042
000046
000050
000054
000062
000066
000072
000076
000102
000110
000114
000120
000124
000130
000134
000136
000142
000144
000150
000152
000156
000162
000164
000166
000172
000200
000206
000212

'Test

.RET ENSAD [STATUS] nequ ZERO

then

3447
3448
3449
3450
3451

[

E Now test for good status

344K

5S¢0 0198

QPIDGROUGGRS:foAl?.AIYECIIQCHBS.ll6a:'7161

5441
3442
3443
3444
3445

11 Jan 1984 13:23:12

VAX 11 Bliss 16 V3 555

®r
®¢ 80

®0

REV B PATICH 00

S Apr 1984 13:46:24

ZRCHBO RC25 DISK FORMAITER
MODWLE DECLARATIONS

ZRCHBS

3405
3410

SEND .RING,RO

€100000,2(R0O)

4(SP),RO
25670,(SP)
R2, (SP)

(SP)s,(SP)»

REG
¢ ,RC.SS

RC$S.REG, TEMP
REF .NUM, ¢

ELP.BLF $LOC, o

3.4
LTRE

Elb
ZRCHBS

REV B PATCH 00

000232
000234
000240
000242
000244
000246
000254
000260
000264
000266
000272
000276
000300
000304
00C310
s
:

103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

Routine Size:
Maximum stack

3452

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS
174106

es:

S Apr-1984
11-Jan-1984

8CC
JSR
MOV

000016

ASL
ASL
MOV
MOV
TST

000031
0000006

MOV

000002G 0000006

0000006
000006

BEQ
MOV

3¢:

B8R

MOV
ADD
RTS

101 words,
Routine Base:
AC$CODE
depth per invocation:
9 words

13:46:24
13:23:1°2

2
PC,DECODE
R1,RO
RO
RO

OUTSSTD.BUF «2(RO),RET ENSAD
OUT$STD.BUF +2(RO),RO
16(RO)
34

#31,R0
RO,RET
. STATUS
44

RET_ STATUS,RO

06,5P

+ 4036

5€Q 0199
cr
VAX 11 Bliss 15 V3 555
P
Page
SPIDERSUSERS: [NEALE.AZTEC JZRCHBS.B15;4 (16 ’

ELP.BUFSLOC,

3440

3445

3447

33159
3327

16
5EQ 0200

ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
TMMOCN.E UTCLARATIONS

S Apr-1984 13:46:24
11-Jan-1984 13:23:12

g:gz

global routine SEND _DATA -«

'Performs host-->port communications

3455

:
H
:

3457
3458
3459

!
!
¢

These commands are used to communicate between
the initiating host
program and
the
remote program.
Both
send ond receive commands
specify
a host buffer descriptor and a byte count.
In the case of

:
:
:
:

3461
3462
3463
3462

¢
!
!
!

and a send data response sent back to the host to acknowledge receipt.
In
the case of receive data the remote program writes data into the
buffer up to the amount specified by the byte count and then sends »
receive data response to the host
to notify it of the transmission.

!
!
!
!

The send data and receive
dats commands sre only
legal when the
server
s
in the active state.
If
the remote program terminates
abnormally, putting
the server
back
in the idle stee, outstand
ng
send data and receive data commands may be lost.
In the event that

!
!
!

i ssue
a get
dust staus command to see if the remote program is
still
running (is.
the dup server is active);
f it
s, the
progress
indicator should be remembered and the
timeout interval

response and

3456

3460

:
:
:
H

3466
3467
3468
3469

H
H
:

3471
3472
3473

H
H

3470

3474

3475

3476

g:;;

H
H
H
:

3479
3480
3481
3482

:
:
:

3486
3487
3488

:
H
H

H
H

3483
3484
3485

3489
3490

3491

! Functional Description

!
!
!
!

!
!
!

!
¢
!

!
¢
!
¢
!

:
H
H
5

3499
3500
3501
3502

3503

Implicit

no progress

get

exceeded,

the second

the host program should

timeout expires without a

dust status shows

in the

the

remote

program

interim then the program should be

This
global storage gets
loaded
by
the routine
‘Get_nad’
ond
in it is stored the next send ring
descriptor
slot
where the port/controller should

be polling on and the
command packet.

RET_STATUS:

Side Effects
none

place

Return status passes back
the status of

the

just

to put

this commands

to the call 'ng rout ne

issued command.

begin
local

REF NUM,

3504
3505
3506
3507

3509

3508

Inputs

NSO _SLOT

3494
3495
3496
3497
3498

interval

is read by the remote progrem

Completion Codes

:
H
:
H
H

H
H
:

Formal Parameters
none

in the buffer

considered broken and should be aborted.

Implicit Outputs
none

8 second

made

!
!
!

information

be re-installed.

having

the

apecified timeout

should

3492

3493

the

send data,

VAX 11 Bliss 16 v3 555
Page
S6
SPIDERSUSERS
: [NEALE .AZTEC JZRCHBS .B1K5;8 (17,

SNO _BUF sLOC.,
TEMP;

! Before
get

1Stores unique cmd ref number

!Stores outistanding ¢cmd buffer locat
on
‘A place to put read IP register data

we load up the command packet up with all this good information

the next

send descriptor slot

and a unique command reference number,

Glo
2RCHBS

REV

8 PATCH 00

:
H
H

3510
3511
gglg

gglg

:
:

3516
3517

:
:

3518
ggég

ZRCHBO RC25 DISK FORMATTER

MODUWE

DECLARATIONS

!
GET_NSD ()
REF _NUM = GET_CMOSREF
!

S-Apr-1984 13:46:24

11-Jan-1984

VAX-11 Bliss 16 V3 555

13:23:1°2

UQ Port command envelope Header field definition

SND _ENVELOPE [ .NSD_SLOT, MSG_LENGTH] = SZ_SED;
'Load the message size
SND _ENVELOPE [ .NSD_SLOT, CREDITS] = ONE;
‘Load the credit size
SND _ENVELOPE
SND _ENVELOPE
]

[ .NSD_SLOT,
[ .NSD_SLOT,

MSG_TYPE) = 0;
CONN_ID]) = DuUP;

'Define the message typ 'Sequential
tCefine the connection ID

3321

H
:

3523
3524

SND _ENVELOPE [ .NSD_SLOT, CMD_LREF)
SND_ENVELOPE [ .NSD_SLOT, CMO_HREF)

= _REF_NUM;
‘Load command reference number
= ZERO;
!'Zero Hi order cmd ref number

iggg

SND _ENVELOPE

= ZERO;

:
:
:
:
.

3525
3526
3527
3528

DUP generic command envelope field definition

SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SNO_ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
]

[ .NSD_SLOT,

UN_LUSED]) = ZERO;
UN_HUSED) = ZERO;
OPCODE] = OP_SED;:;
RSVD) = ZERO;

MODIFIER]

'Not used in DUP implimentation
'Not used in DUP implimentation
!'Load this commands op-code
'Not used field

!'Define the commands modifiers

gggé

Command specfic command envelope field definition

gggi

Byte count of

H
:

3535
gggg

SND _ENVELOPE
SND _ENVELOPE

gggg

]

transfer

[ .NSD_SLOT,
[ .NSD_SLOT,

BLO_CNT]
BHI_CNT]

=
=

3540

SND _ENVELOPE

[ .NSD_SLOT,

BPA_LO)

3544

SND_ENVELOPE

[ .NSD_SLOT,

UBA_CHAN])

:
:
H

H
:

:
H
:

3541
3542
3543

3545
3546
3547

gg:g
3550

SND _ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

SNO _ENVELOPE

SND _ENVELOPE
SND _ENVELOPE

SND _ENVELOPE
H

SNDB _SIZE;
'‘Byte count low word
2ERO;
'Byte count high word

Buffer descriptor definition

Call

the

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

[.NSD_SLOT,

[.NSD_SLUT,
[ .NSD_SLOT,

[ .NSD_SLOT,
1load

SNO_BUF;

'Buffer physical adrs <0

=» ZERO;

!'Unibus adaptor chamnel number

BPA_NHI) = ZERO;
QBUS_EXT) = ZERO;
RSV]) = ZERO;

RSV0]

RSV1]
RSv2]

RSV3)

=
=

ZERO;

ZERO;
ZERO;

= ZERO;

‘used
'

outsstanding command buffer

!
!
!

gggz

SND _BUF $LOC

;

3557

if .SND_BUF$LOC eqlu OBF CODE then DECODE ();

3559

H
H

ggg?

= LOAD_OUTS$STD BUF

Set the ownership bit

ggg%

SEND_RING [.NSD SLOT,

ggg;

3566

17>

four words are not

the UQ Port

implementation

routine

and

load

this command

into the buffer.
The return from this routine will point us to the buffer
where
this command
is
stored.
Later we
can
look at this location to
gsee if the interrupt service routine has received and process 't.

<16

3551
3552
gggz

15>

'‘Buffer physical adrs bits
!'Q_bus extention adrs
'Reserved field

'These next

( .REF NUM);

‘!Load the command

to 1 giving this slot

OWN B8IT]

‘Error if buffer is full
to the port/controller

= PORT _OWNED;

Read the IP register to stimulate port polling

TEMP

_RC25 ADDR

[RCIP,

ALL];

Page

SPIDERSUSERS:
[NEALE .AZTEC )ZRCHBS .B15;4

'Cet the next send desc slot
'Get a unigue command ref num

();

5EQ 0201

locat
on

(17,

H16
ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
MODUWE DECLARATIONS

:
:

3567
3568

H
:

70
3571

'
!

3269

H
:

3572
3573

H
!

3577

:
:
H
3
:

3574
3575
3576

3578
3579

gggo
1

3582

gggg

:
:
:

H
.

H
:
H
-

:
;
:
:

:
:
H
:
H

H
H
H
H
H

:
;
:

H
:
H
:
H
H
;

!
!
!

!
!

Time out

S Apr-1984
11 Jan-1994

the port/controller

If the controller tim

for

the response

13:46:24
13:23:12

from this command.

ut then:

See what
kind or
error was returned.
If the error
is a type cther then a CTO_CODE (controller time out)

then
call
routine
Decode which does the appropriaste
action based on the error,

the

returned

error

is an CTO CODE then do a get

dust
status
eond check the progress indicator to look
for an increase, indicating that the remote program is

still running and is not dead.

RPD_CODE (remote

3586
3587
3588

!
!
!

If the
indicator
has chenged
then
assume that the
remote
program
is
still running, save a copy of its
value and
reinstate the controller time out delay and

gggg

As long

3583

3589
3590
3591
3594
3595
gggg
3598

3599
3600
3601
3602
3603

gggg

3606
3607
3608
3609
3610

3611
3612
32{2
3615
3616
3617
3618
3619
ggzo
21

3622
3623

!
.

!
!
!

program

dead

program

and return an error code of

dead

code)

ond

exit.

repeat the loop.

as the progress

indicator

in the remote program

is stin increasing this loop will be repeated for ever.

!
!
!

the indicator hasn't changed then assume that the

remote

If
the
controller doesn't time then return with the return
code returned from routine CTO_WAIT () which could be either
a
success
or
error
code
by definition of this host code.

while TRUE do
begin
BRTMAK;
!
! Do a controller time out and

! has processed the command or
!

if CTO_WALIT
then
begin
4

(4000,

.REF_NUM,

'‘Repeat

for ever

'‘Flag control C s
determine

the controller

if a fatal error has occured.

.SND _BUF$LOC)

'Is return an error

! If the return status code eql s a CTO_CODE then see if the remote
! program is still running. If it is then save *he progress ind cator
' and repeat
the
loop else coll routine Decode ().

[}

if .RET_STATUS eqlu CTO_CODE
then
begin

'Is this a controller t me out

if GET_DUST_STATUS () then DECODE

();

'Get

.RET ENSAD (PLO_IND]) gtru .PID SAVE (O]

then

56Q 0202

VAX 11 Blises 16 v3 555
Page
SA
SPIDERSUSERS:
[NFALE .AZTEC )ZRCHBS .B1K;4 (17,

the dust status

tAny progress been made

ZRCHBS

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

MODWE DECLARATIONS

3624
3625
3626
3627
3628
2629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3245

Jan-1984

13:46:24

13:23:12

begin
PID_SAVE [0) = .RET ENSAD (PLO_IND];
PID_SAVE (1] = .RET ENSAD TPHI_IND);
PRINTB (PID_FMT, .PID_SAVE [1], .PID SAVE
end

'1Still

VAX-11 Bliss-16 V3 555

running save Pid

(01]);

end
else
!
! The return status code was not a controller time out code so someth
ng
! else is wrong.
Call the routine Decode () to find out what went wro-g.
!

3649
3650

&
5
R

else

OECODE

begin

The command has been received by

: Get

()

end

!
!
!

this commands return

outs$std_buf and check
die if bad status.

the

interrupt service.

envelope address out of the

for good return status error

3659

RET_ENSAD = .OUTSSTD_BUF [.SND_BUFSLOC, ENV ADR];

3661

! Test for good status

]

and

'Get the ret env adr

3664
3665
3666
3667
3668

+f _RET_ENSAD [STATUS]) nequ ZERO
then
return RET_STATUS = RSE _CODE
else

3670

end;

return

3672
3674
3675

00000C

004167

_RET_STATUS;

'Test

the status

'Return a

‘'Response status err’

'This ret_status

code

is good or bad

end;
return
end;

000000G

_RET

STATUS;

.SBTTL

SEND.DATA:
;
JSR

won't

SEND.DATA MODWUWE
R1,$SAVE3

compile without

DECLARATIONS

SEQ 0203
Page

SPIDE
: [NEALE
RSUSE
.AZTEC JZRCHBS.B16
RS 4

if _RET_ENSAD (PHI_IND) gtru .PID_SAVE (1]
then
begin
PID_SAVE (0] = .RET_EN:AD [PLO_IND);
'Still running save P'd
PID_SAVE (1) = .RET_ENSAD (PHI_IND];
PRINTB (PID_FMT, .PID_SAVE [1]), .PID SAVE (01]);
end
else
return RET_STATUS = RPD_CODE:;
!'No progress so flag error

else

3647

wn
v

S5-Apr-1984

this nhere

(17,

000270
000272
000274
000276
000304
000306
000312
000314
000316

104422
012716
010346
010246
004767
022626
006000

103074
026727
001065
004767
006000
103002
004767

000002

0000006

000001

CLR
CLR
CLR

000004

000014G

MOVB

000045

0000206

MOV

000000G 0000246

MOV

CLRB
CLR
CLR

002001

173616

1%:

0000006
100000
000002
000000G 000004
000004

007640

175554

MOV
MOV
TRAP
MOV

MOV

JSR
CcMP

SND .ENVELOPE +6(RO)
SND .ENVELOPE +10(RO)
SND .ENVELOPE -12(R0O)

@4 ,SND . ENVELOPE
+ 14(RO)
SNO .ENVELOPE +15(RO)
SND.ENVELOPE «16(RO)
045, SND . ENVELOPE +20(RO)
SND .ENVELOPE +22(R0O)
OSND .BUF , SND .ENVELOPE
+24(RO)

(R1)
1(R1)
SND .ENVELOPE
« 30(RO)
SND .ENVELOPE
« 32(RO)
SND .ENVELOPE
» 34(R0O)
SNO .ENVELOPE
+» 36(RO)

;
:

3518
3519
3523
3524
3525
3526
3527
3528
3529
3535
3536
3540
3541

REF .NUM,

3543
3544
3545
3546
3547
3548
3555

«,SND.BUF $LOC
SND.BUFSLOC,

3557

3562

NSD.SLOT,RO

RO
RO

SEND .RING,RO

#100000,2(RO)

8RC25.ADDR,4(SP)

4(SP),RO
22
27640,(5P)
R3, (SP)
R2, -(SP)
PC,CTO.WAIT

(SP)+,(SP)»

176240

8cC
CMP
BNE
JSR

173512

8CC
JSR

8s
RET.STATUS
011
,
74
PC,GET.DUST,STATUS
RO
34
PC,DECOOE

ROR

REF .NUM, »

R3,SND.ENVELOPE +4(RO)

ROR

000000G 000011

3516

3517

RO,R1
21,(R1)
92.1(R1)

R3,(SP)
PC.LOAD.OQUTSSTD.BUF
RO,.R2
R2,02001
1
PC,DECODE

8IS

2s:

034 ,SND.ENVELOPE(RO)
@SND .ENVELOPE
+»2,R1

MOV

JSR
MOV
ASL
ASL
ADD

3511
3512

PC,BLSMUL

OSND .ENVELOPE +26,R1
RO,R1

JSR
MOV
cHP
BNE

173452

¢ ,REF .NUM

NSD.SLOT, -(SP)

MOV
ADD

CLRB
CLRB
CLR
CLR
CLR
CLR

0000366

-(SP)

PC.GET.NSD
PC,GET.CMDSREF
RO,R3

000034

0000026

MOV
MOV
MOV
JSR
MOV
MOV
ADD
MOVB
MOVB
MOV

5EQ 0204
ge
60

SPIDERSUSERS
: (NEALE .AZTEC JZRCHBS .B16;4 (17,

0000006
000054
0000006

VAX-11 Bliss-16 v3-555

+,RC$S.REG

RC$S.REG, TEMP

005060
005060
010316
004767
010002
020227
001002
004767
016700
006300
006300
066700
052760
017766
016600

TST
JSR
JSR

173566
173730

13:46:24
13:23:12

000170
000174
000176
000202
000204
000210
000212
000216
000222
000224
000226
000232
000240
000246
000252
000254
000260
000262

005746
004767
004767
010003
016746
012746
004767
012760
012701
060001
112711
112761
010360
005060
005060
005060
112760
105060
005060
012760
005060
012760
012701
060001
105011
105061
005060
005060

S-Apr-1984
11-Jan-1984

000004
000006
000012

ZRCHBO RC25 DISK FORMATTER
MODUWLE DECLARATIONS

>
ZRCHB
REV B8 PATCH 00

REF .NUM,

SND.BUF $LOC, »

3566
3600
260~

K16
ZRCHBS

REV

B PATCH 00

000322
000326
Q00330
000334
000340
000342
000346
000354
000356
000362
000366
000372
000374
000376
000400
000406
000410
000414
000422
000424
000430
000434
000440

000442
000444
000450
000452
000456
000460

000464

000466
000470
000472
000474
000502
000506
000512
000514

000520
000524
000526
000532
000536
;

ZRCHBO RC25 DISK FORMATTER

MODOULE

016701
010100
016000
020067
101417
010067
016167
010016
016746
012746
012746
010600
104414

0000006

026167
101421
010067
016167
010016
016746
012746
012746
010600
104414
062706
000700
012700

000026

000422

000420
004767

000672
010200
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

Routine

S Apr-1984

11-Jan-1984

DECLARATIONS

3s:

MOV
MOV
MOV

24(R0O),RO

0000006
0000026
000026

8LOS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

0000026

4%
:

0000006
000002G
000026
000002G
00000GCG
000003

000006

S$:

000051

6%:

173350

7%:

MOV
MOV

10¢:
11%:

MOV
ADD

0000006
000006

RO, (SP)
PID.SAVE
.2, -(SP)
OPID.FMT, -(SP)
e3,-(SP)

SP,RO

14
S$

RET_ENSAD,
s

3626
3622

PID.SAVE,»

3625
3626
3627

;

SP,s

3624
3631

gg(Rl).PID.SAVEOZ
RO,PID.SAVE

26(R1),PID.SAVE+2

RO, (SP)

PID.SAVE+2, -(SP)
OPID.FMT, -(SP)
a3, -(SP)

SP.RO

: PID.SAVE,
s

2
R2,RO

RO
RO

OUT$STD.BUF «+2(RO),RET .ENSAD
OUT$STD.BUF +2(R0O),R0O
16(RO)
10¢

931,R0O
RO,RET.STATUS
11%

B8R

RET.STATUS,RO
06, SP
PC

RTS

4350

3634
3635
3636

SP,e
3633
3631
3639

9
PC,DECODE

BEQ

Size:
Routine Base:
176 words,
AC$COOE
Maximum stack depth per invocation:
12 words

3676

26(R1),PID.SAVE.2

BR
MOV
B8R
JSR
BR

000031
0000006

SEQPO205

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS.B16;:4 (17)

RO ,PID.SAVE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000016

0000026

VAX-11 Bliss-16 v3 555

RO,PID.SAVE

B8R
CMe
BLOS

MOV
ASL
ASL
MOV
MOV
TST

8%:

13:23:12

RET.ENSAD,R1
R1,RO

000024
0000006

0000026
000000G
000003

13:46:24

SND.BUFSLOC,

3607

3659

3664

3666

3651
3453

L16
SEQ 0’06

ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
MTMMODULE DECLARATIONS

S-Apr-1984 13:46:24
11 Jan 1984 13:23:12

:
:

3635
6

global routine REC_DATA

‘Performs host-->port communications

3680

3685
3686
3687
g688

!
!
'
'

H
H
H
H
:
:
:
:

3679

3681
3682
3683
3684

'
'
'
'

Functional Description

VAX-11 Bliss-16 V3 555
62
SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS . 816;4 (181

These
commands are used to communicate between the initiating host
program and the
remote
program.
Both
send and receive commands
specify a host buffer
descriptor
and a byte count.
In the case of
send data, the information in the buffer is read by the remote program

and
8 send data response sent nack to the host to acknowledge receipt.
In
the case of
receive data the remote program writes datas into the
buffer
up
to the amount specified by the byte count and then sends a
receive
data
response to the host to notify it of the transmission.

H
H

3690
3691

'
'

The
send data
end receive data commands
are only legal when the
server
is
in the
active state.
If
the remote program terminates

3693

send

issue

3692

3694

3696

H
:

H
H
:

:
H

3695
3697

3698
3699
3700

g;gé

:
H
:
:
H
H
:
:
H
:
H

3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713

:
:
H

3715
3716
3717

3714

g;{g

H
H
H
H
H
H
:
H

3720
3721
3722
3723
3724
3725
3726
3727

g;gg

:
H
:

abnormally,

the

putting

data

the server

eand receive

specified

a get

timeout

interval

s exceeded,

the

server

dust staus

idle stae,

command

the host program should

the remote progrem is

!
'
'

should be re-installed.
If
the second
timeout
expires without a
response and s
second
get dust
status
shows the
remote program
having
made no
progress
in the interim then the program should be

indicator

! Formal Parameters :
'
none
'
' Implicit Inputs :
@
NSD_SLOT
'
¢
¢
¢
'
! Implicit Outputs :
'

should be

is active);

remembered and the timeout

1s,

the

interval

considered broken and should be aborted.

'
¢
¢

dup

to see if

outstanding

In the event that

still

progress

(is.

in the

running

back

data commands may be lost.

This
global storage gets
loaded
by
the routine
‘Get_nsd’
eond
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.

none

Completion Codes :
RET_STATUS:

1 Side Effects
!
none
1-

Return status passes back

the status of the just

to the calling routine

issued command.

begin

3728

locel
REF _NUM,
REC BUFtLOC

3731
3732
3733

H
!
!

'Stores unique cmd ref number
'Stores outs$standing cmd buffer

TEMP;

Before we load
get

locat
on

'A place to put read IP register data
up the command packet up with all

the next send descr 'ptor slot

this good

intormation

and a unique command reference number.

@6 5 ®0 B9 B B B¢ G B¢ B¢ Ve G0 BT S

3754

3755

3756
3757
3758
3759
3760
3761
3762
3763
3764

3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790

Apr-1984

13:46:24

Jan-1984

13:23:12

VAX-11

Bliss-16

tGet the next send desc slot

'Get a unique command ref num

();

]

i UQ Port command envelope Header field definition
SND_ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE ( .NSD_SLOT,
SNO _ENVELOPE { .NSD_SLOT,
SNOD _ENVELOPE ( .NSD_SLOT,
]

MSG_LENGTH]

'Load message length
‘Load credit size
‘Define message type 'Sequential’
'‘Define connection ID

= SZ _RED;

CREDITS] = ONE;
MSG_TYPE] = O3
CONN_ID] = DUP;

! DUP generic command envelope field definition

SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SNO _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE

‘Load command reference number
.NSD_SLOT, CMO_LREF) = .REF _NUM;
‘Zero Hi order cmd ref num
.NSD_SLOT, CMO_HREF) = ZERQ;
INot used in DUP implimentation
.NSD_SLOT, UN_LUSED) = ZERO;
Not used in DUP impl imentation
.NSO_SLOT, UN_HUSED) = ZERO;
‘Load this commands op-code
.NSD_SLOT, OPCODE) = OP _REOD;
'Not used field
.NSD_SLOT, RSVD] = ZERO;
Define this commands modifie s
.NSD_SLOT, MODIFIER] = ZERO;

! Command gspecfic command envelope field definition
! Byte count of trensfer

SND_ENVELOPE [ .NSD_SLOT, BLO_CNT) = RECB_SIZE;
SND _ENVELOPE [ .NSD_SLOT, BHI_CNT)
.

tByte count low word
1Byte count high word

= ZERO:

! Buffer descriptor definition
'

SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SNO _ENVELOPE
SNO _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND-ENVELOPE
l

into the buffer.

buffer

]

it.

location to see
=

if the

‘used

in the UQ Port

implementation

.REC_BUF$LOC eqlu OBF

is stored.

Later we can

look

the

this

interrupt service routine has received and process

LOAD_QUTS$STD_BUF
CODE

‘Load the command

(.REF _NUM);
then DECODE

();

‘Error

if buffer

Set the ownership bit to 1 giving this slot to the port/controller,

SEND_RING [ .NSD_SLOT,
‘

'Reserved field
Unibus adaptor channel nunber
'These next four words are no’

The return from this routine will point

location where this command

REC_BUFS$LOC
if

'Low unibus adrs <0 15>
‘Unibus adrs bits <16-17>
'Q_bus extention adrs

Call the load out$standing command buffer routine and load this command

[]

.NSD_SLOT, BPA_LO) = REC_BUF;
.NSD_SLOT, BPA_HI) = ZERO;
.NSD_SLOT, QBUS_EXT] = ZERO;
.NSD_SLOT, RSV] = ZERO;
.NSD_SLOT, UBA_CHAN) = ZERO;
.NSD_SLOT, RSVO) = ZERO;
.NSD_SLOT, RSV1] = ZERO H
.NSD_SLOT, RSV2) = ZERO;
.NSD_SLOT, RSV3) = ZERO

OWN_BIT]

= PORT_OWNED;

i Read the IP register to stimulate port polling

V3-555

SEQ 0207
Page

SPIDER$USERS: [NEALE.AZTEC)ZRCHBS.B16;4

GET_N3D ();
REF _NUM = GET_CMOSREF

Lam Lo Lo Lamn Lo Lo 1o ]

3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753

ZRCHBO RC25 DISK FORMATTER
MODWE DECLARATIONS

[anlanlenlonlanlanlonlanlanl

V6 S+ Vs @ G0 s Ve S0 S0 G Gt OF Vs B¢ G0 S0 V¢ G0 €0 W S0 G0 G2 G0 O G G0 G0 S0 S0 G2 00 00 O GF G¢ G0 OS¢ O¢ 40 S0 OS¢ 00

ZRCHBS
REV B PATCH OO

is full

(18)

Bl
<RCHBS

RV B PATCH 00

ZRCHBY RC2S DISK FORMATTER

MODWLE DECLARATIONS

:
:

3791
37392

gTOg

3793

:
H

380¢
3801

!
'

2800

28032

:
3

3804
3805

:
3
:

3808
3309
10

:
:
H
:
:

:
:

:
H

H
H

Time out

!
!

3800
380"

!
!

3811
3812

H
H

[f the error

the

returned

status

error

and check

an CTO_CODE

the progress

the

then do a get

indicator to look

remote progrem

indicator hasn't changed then sssume that

the

H
!
!
!
'

velue and
reinstete
repeat the loop.

3826

!
!
!

the controller

time out delay

and

As
lon? the progress indicetor in the remote program
l incressing this loop will be repestec for ever.
IF
the
controller doesn t time then return with the return code
returned from routine CT0O WAIT () which could be either 8 success
or error code by def n'tion of this host code.

TRUE
"

'Repeat

BREAK;

for ever

'‘Flag control C o

Do a controller t ' me out and
has processed the command or

determine i f the controller
if a fatal error has occured.

H
H
:

3831
3832
3833

:
H

3835
3836

from this commend.

3813
3814
3815
3816
ggt;

H
H
:
:
:
H

the response

If
the
indicator
has
chenged
then assume that the
remote
program
is
still running, save & copy of its

H
!
!

dust

3827
3828
;ggg

:
:

for

remote
oprogrem
is
desd
end return an error code of
RPO_CODE (remote progrem deed code) end exit.

while

the port/controller

3834

3837
gggg
1840
3841
1842
3843
3844
2845
346
3847

‘

if CTO_WALIT
then

(8000,

.REF

NUM,

_REC B8UFSLOC)

'ls returrn an error

begin
'
!

!
!

the

return status code eal's a CT0 CODE

program is still running.
If
and repeat the loop else call

then see

the

't is then save the progress
routine Decode ().

remote

'ndicator

+f _RET STATUS eqlu CT0 CODE
then
begin
if GET
‘f

DUST

STATUS ()

LRET ENSAD

[PLO

'Is

then DECODE

IND)

gtru

.PID

this & controller

()
SAVE

1GCet
(O]

the dust
!Any

SEQ 0208

Page

SPIDERSUSERS:(NEALE.AZTEC )ZRCHBS.B15;4

RC ALL ),

for an increase, ind cating that
still running and is not dead.

3823
3824
3825

13:23:12

!
H
'

VAX-11 Blies-16 Vv3-555

action based on the error,.

:
:
H

H
:
H

1984

13:46:24

is
& type other then @ CTO_CODF (controller time out)
then
call
routine
DNDecode which does the appropriate

3819
3820
;ggl

(RCIP,

Jan

If the controller times out then:
1. See
what
kind
of
error was returned.,

H
:
:

_RC25_ADDR

1984

‘e

!
H

3798
3799

H
:

TEMP

379
3797

:
3

S Apr

time out

status
progress been made

(18,

2RCHBS

€0 B0

B¢

B0 B0

V9 B9

B0 S0

G0 B0 G0

G0 G0 V)

G0 B

V0 V0

G0 OF G0

09 B

00 G0 G0

V4 VO 00

O¢ G2 G0

90 Oe

REV B PAICH 00

000000

ZRCHBO RC2S DISK + ORMATTER

S Apr 1984 13:46:24

MODW
E DECLARATIONS

3848

then

3849

3850
3851
3852
3853
3854
3855

else

38%6

_RET_ENSAD

then

else

3366
3867
3868
3869
gg;?

VAX-11 Blise 1£ V3 555

(PMI

IND)

gtru

.PID_SAVE

1Still

running save Pig

(0]);

(1)

besin
PIO_SAVE (0O) = .RET_ENSAD (PLO_IND);
!'Still runn'ng save Pid
PIDO_SAVE (1] » RET_ENSAD (PHI_IND);
PRINTB (PID_FMT, .PID_SAVE (1), .PID_SAVE [0)1);
end

return RET _STATUS

« RPD COOE;

!No progress so

flag error

end
else
!
! The return stetus code was not a controller time out code so something
! else ‘s wrong.
Call the routine Decode () to f'nd out what went wrong.
]

3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
ggg}

DECODE
else

end

begin
the

interrupt

serv ce.

Get this
comrands return
envelope address out of
outsstd buf end check for good return status error
die if bad status.

RET_ENSAD = .OUTSSTD BUF [.REC BFSLOC. ENV ADR];:
Test

the
and

'Get the ret env adr

for gooa steatus

if RET ENSAD [STATUS] nequ ZERO
then
return RET_STATUS » RSE CCDE
else
return _RET STATUS,;

3895
3896
3897
3898

3899

()

The command hes been received by

'‘Test

the status

‘Return a

"Response status err’'

‘This

status

ret

code

is good or bad

end;

retur~n

3900

end;

004167

0000006

RFT _STATS;

'It

LSBTTL

REC.DATA:
;

won t compile without

REC.DATA MODULE

DFCt ARATIONS

2800209 65

SPIDER‘USERS:[NEALE.AIYEC]ZRCHBS.BIS;:O?IGI

begin

PID
SAVE (0O) = .RET ENSAD ‘PLO_IND);
PID SAVE [1] = _RET_ENSAD (PHI_IND];
PRINTB (PID_FMT, .PID_SAVE [1]), .PID_SAVE
end
if

3857
3858
3859
3860
3861
3862
3863
ggg;

11 Jen-1984 13:23:1°2

this here

000202
000204
000210
000212
000216
000222
000224
000226
000232
000240
000246
000252
000254
000260
000262
000264
000270
000272
000274
000276
000304

000306
000312
000314

0000146

05 ,SND .ENVELOPE +14(RO)

SND . ENVELOPE +1S(RO )
SND .ENVELOPE +16(RO)
#170,SND.ENVELOPE +20(R0O)
SND . ENVELOPE
+ 22(RO)

000020G
0000246

OREC.BUF
,SND .ENVELOPE +24(RO)
@SND .ENVELOPE
+ 26 ,R1

@
@s
@s
s
®e
0
@4
we

REF .NJM, »

SND .ENVELOPE +6(R0O)
SND .ENVELOPE +10(RO)
SND .ENVELOPE +12(RO)

112760
105060

R3,SND.ENVELOPE «+4(RO)

3741

010360
005060
005060
035060

01,(R1)

02,1(R1)

3740

3764

3765

RO,R1

172712

R3,(SP)
PC.LOAD.OUT$STD.BUF

002001

RO,R2
R2,02001

®e
00
00
@
@

3771
REF .NUM, o

s ,REC.BUF $LOC

REC.BUFS$LOC,
»

PC.DECOOE

0000006

18:

RO
NSD.SLOT

175014

3782

€100000,2(R0O)

8RC25.ADDR,4(SP)

°os:

22
917500,(SP)
R3, (SP)
R2,

(SP)

PC,CTO,WAIT
(SP)+,(SP)»

0000006 000011

3780

3787

RO
RO

4(SP),RO

017500

3772

SEND.RING,RO

000002
000004

175500

3770

173056

3767
3768
3769

(R1)
1(R1)
SNO . ENVELOPE
« 30(RO)
SND .ENVELOPE
-+ 32(RO)
SNO .ENVELOPE
+ 34(RO)
SNO .ENVELOPE
+ 36(RO)

000001
0000306
0000326
00003406
0000366

3742
3743
3747
3748
3749
3750
3751
3752

3753
3759
3760

®s

000001

* ,REF ,NUM

ADD
MOV
HCVB

3735
3736

PC,GET ,CMOSREF
RO,R3
NSD.SLOT, -(SP)
054, -(SP)
PC.BLSMUL
€34 ,SND .ENVELOPE(RO)
OSND .ENVELOPE +2,R1
RO,R1

MOV

PC,.GET.NSD

®¢

MOV

3677

(5P)

MOV
MOV
JSR

R I‘QSAVES

®s

000164
000170
000174
000176

MOV

0000006
000054
0000006
000034
0000026

)EQPO210 6

SPIDER’USERS:[NEALE.AZTEClZRCH85.816;:°:18;

RET.STATUS,#11
7¢
PC,G
. DUST . ET
STATUS
RO
34

000140
000144
000146
000150
000154
000160

173026
173170

112711
112761

005060
012760
005060
012760
012701
060001
105011
105061
005060
005060
005060
005060
010316
004767
010002
020227
001002
004767
016700
006300
006300
06670
052760
017766
016600
104422
012716
010346
010246
004767
022626
0N6000
103074
026727
001065
004767
006000
103002

<SR
1ST
JSR
JSR

VAX-11 Bliss-16 V3 555

®s

000012
000016
000020
000024
000030
000034
000042
000046
000050
000054
000062
006066
000072
000076
000102
000110
000114
000120
000126
000132

005746
004767
004777
0100 3
016746
012746
004767
012760
012701
060001

13:46:24
13:23:12

+ ,RC$S.REG

RC3$S.REG, TEMP

®e

000004
000006

PATCH 00

Apr 1984
Jan-1984

®e

S
11

REV

ZRCHBO RC2S DISK +ORMATTER
MODWLE DECLARATTONS

ZRCHBS

REF .NUM, »
REC.BUF $LOC,»

3791

3825
3832

EL
ZRCHBS
REV B PATCH 00

00V316
00322
000326
000330

000334
000340
00034¢
000346
000354
000356
000362
000366
000372
000374
000376
000400
000406
000410
000414
000422
000424
000430
000434
000440
000442
000444
000450
200452

000456
000460
000464
C00466
000470
000472
000474
000502
000506
000512
000514
000520
000524
000526
000532
000536

;
:

004767
016701
010100
016000
020067
101417
010067
016167
010016
016746
012746
012746

010600

104414
000422
026167
101421
010067
016167
010016
016746
012746
012746
010600
104414
062706

000700
012700
000420
004767
000672
010200
006300
006300
016067

016000
005760

001405
012700
010067
000402
016700
062706
000207

ZRCHBO RC2S DISK fFORMATTER
MODULE DECLARATIONS
172752

3s:

0000006

000024
0000006

JSR

MOV
MOV
MOV

cMP
B8LOS

0000026
000000G
000003

000006

S$:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000051

6%:

MOV

172610

7s:

00090006
000026
000002G
0000026
000000G
000002

RO,PID.SAVE

26(R1),PID.SAVE
.2

RO,(SP)

PID.SAVE.2, -(SP)
oPID.FMT,

03, (SP)
SP,RO
14
5%

8%4:

0000006
000006

10¢:
11¢:

3851

RET _ENSAD,»

3
:
;s

PID.SAVE,»

Spo‘

3847

3850
3RS}
3852

3849

H
8
:
;

PID.SAVE,

3859
3860
3861

SP,RO

5P,

H
:

3858
3856

:
;
; REC.BUFSLOC,s

3872
3832
3884

QUT$STD.BUF «2(RO),RET.ENSAD
OUT$STD.BUF «2(RO),RO
16(RO)

3889

#31,RO

;

3891

3876

B8R
JSR
8R
MOV
ASL

&7
(181

26(R1),PID.SAVE
.2

RO,(SP)
PID.SAVE.2, (SP)
®PID.FMT, -(SP)
o3, -(SP)

3864

MOV

9s:

.B16;4

3856

64
RO,PID.SAVE

ASL

000031
0000006

SEQ 0211
Page

26(R1),PID.SAVE+2

MOV

000002G 0000006
0000026
000016

VAX-11 Bliss 16 V3 555
SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS

(SP)

B8R

TST
BEQ
MOV
MOV
B8R

10¢

RO,RET STATUS
118

RET.STATUS,RO
o0, 5P
PC

MOV
ADD
RTS

AC$CODE
Routine Size:
*76 words,
Rout ine Base:
Max 'mum stack depth per invocation:
12 words

3901

24(RO),RO
§O.PID.SAVE

B8R
cMP
B8LOS

0000026

13:46:24
13:23:12

PC,DECODE
RET,.ENSAD,R1
R1,RO

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

000000G
000026
000002G

000026

S Apr-1984
11 Jan 1984

5110

)

3677

M1
ZRCHBS

REV

B PATCH 00

ZRCHBO RC2S DISK FORMATTER

MTMMODULE

S-Apr-1984

DECLARATIONS

gggg

global routine SET_CNTLR CHAR

3904

3
:
:

3908
3909
3910

'
'
'

H
:
H

3905
3906
3907

:
:
:
:
:

3911
3912
3913
3914
3915

3917

3316

Formal Parameters
none

Implicit

H
:
:

3923
3924
3925

'
'
'

3926
3927
3928
3929
gggo

:
:
:

3932
3933
gggg

:
:
H

Imputs

NSO _SLOT

This
global storage gets
loaded
by
the routine
‘Get
_ nsd'
and
‘n it is stored the next send r 'ng
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands

'
'
¢
!
!
'

o
'

that are
essential
for
proper class driver
command
never
alters
the
unit's
gtate
“unit-available”,
“"unit-offline").
It
s

command packet.

Implicit Outputs
none

Completion Codes :
RET_STATUS:

Return status passes back to the call
' ng
the status of the just issued command.

Side Effects :
Any previously defined controller characteristics w'll
be altered after execution of th's command.

begin

2939

local

3940
3941

;
;
:

3944
3945
gg:?

H
!
!

3948
gggg

GET_NSD ();
REF _NUM = GET _CMDSREF

gggé

:
H
:

REF _NUM,
SCC BUFSLOC

gx%

TEMP;

Before
we load up the command packet up with all this good informat
on
get the next send descriptor slot and a un que command reference number,

'Get
'Get

();

UG Port command envelope Header

the next send desc slot
a unique command ref num

field definition

’

SND _ENVELOPE

[ .NSD_SLOT,

MSG_LENGTH]

3953

SNO _ENVELOPE

[ .NSD_5LOT,

CONN ID)

poss bly

3954
3955
95

5953

SND _ENVELOPE
SND _ENVELOPE

location

'A place to put read 1P register data

3953

!Stores unique cmd ref number
!Stores outsstandi g ¢md buffer

H
:
:

rout

3936
3937
3938

H
:

!Sets control character istics

meaningless
to
set
host settable characteristics for a unit
that is "un't available” or 'unit offline’.

characteristics
operation.
This
("unit online”,

16 v3 555

[ .NSD_SLOT,
[ .NSD _SLOT,

= SZ2 SCC;

CREDITS) = ONE;
MSG_TYPE] = O3

MSCP generic command envelope

= MSCP;

‘Load message

‘Load credit size
‘Def ine message type

'Define connection

field def nition

)EQ 0212

Page

SPIDERSUSERS: [NEALE.AZTEC 1ZRCHBS.B16;4

¢
'
'
'
'
!
'
'
'

:
H
H
:
H

13:23:12

Functional Description :
The SET CONTROLLER CHARACTERISTICS command is used to set host
settable
unit
characteristics
and
obtain
those
unit

3918
3919
3920
3921

3922

VAX-11 Bliss

!
'
'

H
H
:
:
:

Jan-1984

13:46:24

length
'Sequential

(19;

G1
ZRCHBS

B¢

V¢

G¢

REV

B PATCH 00

3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
2970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984

3985
3986
3987

3988
3989
2990
2991
3992
3993

3994

3995
3996
3997/
3998
3999

4000
4001
4002
4003
4004
4005
4006
4007
4008

4009
4010
4011
4012
4013
4014
4015

ZRCHBO RC25 DISK fORMATTER

MODULE

S Apr-1984
11 Jan 1984

DECLARATIONS

13:46:24
13:23:12

SEQ © 213 69

VAX 11 Bliss-16 V5 555
Pa
Qe
SPIDER$SUSERS:[NEALE.AZTEC JZRCHBS.B16;4 (19,

)

SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE E.NSD_SLOT.
SNOD _ENVELOPE
.NSD SLOT,
]

CMD_LREF]) = ,REF _NUM;
‘Load command reference number
CMD_HREr) = 2ERO;
!'Zero Hi order cmd ref num
UN_LUSED] = ZERO;
!'Not used in DUP implimentation
UN_HUSED] = ZERO;
!Not used in DUP impl
i mentat on
OPCODE) = OP_SCC;
!'Load this commands op code
RSVD) = ZERO;
'Not used field
MODIFIER] = ZERO;
‘Define this commands modifiers

i Command specfic command envelope field definition

SND _ENVELOPE ([ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND_ENVELOPE ([ .NSD_SLOT,

MSCP_VER) = ZERO;
CTL _FLAGS) = ZERO;
HOST _TOV) = ZERO;

'MSCP version
!Controller flags
'Host time out value

SND_ENVELOPE
SND _ENVELOPE
SND ENVELOPE
SND ENVELOPE

T$D_2] = ZERO;
T$D_3) = ZERO;
COP_LO) = ZERO;
COP_MI) = ZERO;

'Time and Date word 2
!'Time and Date word 3
'Cntlr dep parameter lo word
1Cntlr dep parameter hi wrd

SND _ENVELOPE [ .NSD_SLOT, RS$VD]
SND _ENVELOPE ([ .NSD_SLOT, T$D_O)
SNO _ENVELOPE ([ .NSD_SLOT, T$D_1)

'
!
!

[]

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

= ZERO;
= ZERO;
= ZERO;

Coall the load outs$standing command buffer routine and load this command
"'nto the buffer.
The return from this routine will
point
us
to
the
buffer location where this command is stored.
Later we can look at this
location to see if the interrupt service routine has received and process

SCC_BUF $LOC = LOAD _OUTSSTD BUF ( .REF NUM);
if

!Reserved
tTime and Date word O
'Time and Date word 1

.SCC_BUFSLOC ealu OBF CODE

then DECODE

‘'Load

();

the

command

‘Error

if buffer

' Set the ownership bit to 1 giving this slot to the port/controller
SEND_RING [.NSD SLOT, OWN BIT] = PORT OWNED;
[]

! Read the IP register to stimulate port polling
'

TEMP

_RC25_ADDR

Time

out

The

first

respond

the

(RCIP,

ALL]);

port/controller processing

the

command.

test
tests the connections
abiity
this command without
any errors in the
and for the command not timing out.

to
SA

The
second tests the
DUP server for good status.
If
bad status is sent back then an error code s returned
to the calling routine where the routine ‘decode” will
decode
oand take the
appropriate recovery,
The
time
out
routine w'll loop on delay ng and checking the hi

bit of the
first
When true signals

has

received

were detected,

word 'n
us that

the
outs$std buf for a true.
the interrupt service rout ne
the endpacket
and
no connection errors

full

‘t.

1
ZRCHBS

REV B PATCH 00
:
:

:
:
:
:
H

4016
4017

4018
4019
4020
4021
4022

ZRCHBO RC2S DISK FORMATTER

MTMMODWE DECLARATIONS
if CTO WAIT

!
!
!
!
!

RET_ENSAD =

H
H
:

4025
4026
4027

'
!

4029

then

4031

else

4033
4034

end;

000000

004167

0000006

000004
000006
000012
000016
000020
020024
000030
010034
009042
000046
000050
000054
000060
000064
000070
000074
000100

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
105061
010260
005060
005060
005060
112760

000112

005060

000122
000126
000132
000136
000142
000146
000152
000156
000162
000166
000170

005060
005060
005060
005060
005060
005060
005060
005060
005060
010216
004767

:
H

000106
000116

000174
000176

4024

4028

4030

4032

105060
060

010001
020127

(3000,

.REF_NUM,

,.SCC BUFS$LOC)

1984

13:46:24

Jan-1984

then DECODE

13:23:12
();

!Is

VAX-11 Bliss-16 v3 555

SEQ 0214

Page

SPIDERSUSERS:
[NEALE .AZTEC)ZRCHBS.B146;4 (19,

return an error

Get
the return envelope
address
from the
out$std buf
at
this commands
buffer location
and check the packet
for good status error and die if bad status was returned

4023

S Apr

Now test

.0UTSSTD BUF [,.SCC_BUFS$LOC, ENV ADR];
for good status

_RET_ENSAD

[STATUS]

return RET_STATUS
return

RET

nequ ZERD

0000206

000022G
000024G
00002606
000030G
000032G
000034G
0000366
000040G
000042G

172160

002001

status

"Response
status

status err

SET.CNTLR.CHAR MODULE DECLARATIONS

JSR

R1, $SAVES

CLRB
CLR

CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
MOV
JSR

MOV
cMP

-(SP)
PC.GET.NSD
PC.GET . CMDSREF
RO,R2
NSD.SLOT, -(SP)
054, -(SP)
PC.BLSMUL
©40,SND.ENVELOPE(RO)
OSND .ENVELOPE +2,R1
RO,R1
01,(R1)
1(R1)
R2,SND.ENVELOPE »4(RO)
SND .ENVELOPE +6(RO)
SND .ENVELOPE +10(RO)
SND ,ENVELOPE +12(RO)
04 ,SND .ENVELOPE +14(RO)

SND.ENVELOPE +15(R0O)

SND.ENVELOPE +16(RO)

SNOD . ENVELOPE «20(RO)

SND .ENVELOPE +22(RO)
SND .ENVELOPE +24(RO)
SND .ENVELOPE +26(RO)
SND .ENVELOPE +30(RO)
SNO .ENVELOPE +32(RO)
SND .ENVELOPE » 34(RO)
SND . ENVELOPE + 36(RO)
SND .ENVELOPE +40(RO)
SND.ENVELOPE +42(RO)
Re.(SP)
PC,LOAD.QUT$STD.BUF

RO,R1
R1,42001

code

is good or bad

.SBTTL

SET.CNTLR.CHAR::

CLR

000015G

‘This ret

0000166

000001

the

‘Return

STATUS;

000001
000004G
000006G
0000106
000012G
000004
0000146

0000006
000054
000000G
000040
000000G
000002G

1Test

RSE CODE

ST
JSR
JSR
MOV
MOV
MOV
JSR
MOV
MOV
ADD
MOvVB
CLRB
MOV
CLR
CLR
CLR
MOVB

172266
172430

'Get the ret env adr

3902

H
:
;
:

3348
3349
o ,REF NUM

3953

3954

H
H
:
H
3
3
:
H
]
3

REF
. NUM,»

3955
3356
3960
3961
3962
3963
3964
3965
3966
3970
3971
3972
3973
3974
3975
397e
3977
3978
3979
3980

:
s

¢,S5CC.BUFSLOC
SCC.BUFSLOC,
«

3988

:
;
H
:
H
H

REF.NUM,

IT1
ZRCHBS

REV B PATCH 00

000202
000204
000210
000214
000216
000220
000224
000232
000240
000244
000250
000252
000254
000260
006262
000264

000266
000272

000274
000276
000300
000306
000312
000316
000320
000324
000330
000332
000336
000342

:
i

001002
004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
022626
006000
103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

Rout’ ne Size:
Max"mum stack
4035

ZRCHBO RC2S DISK fFORMATTER

MODULE

S-Apr-1984
11-Jan-1984

DECLARATIONS

172324

0000006

1$:

0000006
100000
000002
000000G 000004
000004
005670

BNE
JSR
MOV

14
PC,0ECODE
NSD.SLOT,RO
RO
RO

ASL
ASL

ADD
BIS

8RC2S.ADDR,4(SP)

4(SP),RO
45670,(SP)

MOV
MOV

000000G
000006

23
PC,DECODE
R1,.RO
RO
RO
OUTS$STD.BUF +2(RO),RET.ENSAD
OUT$STD.BUF +2(R0O),RO

ASL
ASL

000031
0000006

16(RO)

8EQ

LE
44
:

34
31,R0
RO,RET.STATUS

B8R

MOV
ADD

RET.STATUS,RO
26, 5P
PC

RTS

114 words,
Rout ine Base:
depth per invocat on:
9 words

AC$CODE

)EQ 0215

SPIDERSUSERS: [NEALE.AZTEC 1ZRCHBS . 816 4

(191

3993

;

+,RC$S.REG

RC$S.REG, TEMP

2997

;

. NUUM, o
REF

;

SCC.BUFSLOC,
s

40146

(SP)+,(SP).

MOV

MOV
MOV
TST

v3 555

8CC
JSR

000002G 000000G
0000026
000016

PC,CTO.WAIT

ROR

2$:

Bliss

SEND.RING,RO

JSR
CMP

172242

VAX-11

2100000,2(R0O)

MOV
MOV
MOV
MOV
MOV

174264

13:46:24
13:23:12

5650

4023

4028

4030

3937

3902

J1
ZRCHBS

REV

:
H

:
:
:

ZRCHBO RC25 DISK FORMATTER

PATCH 00

MTMMODULE

DECLARATIONS

4032
40

global

routine ON LINE

S Rpr-1984

Jan

1984

13:46:24

VAX-11 Bliss

13:23:12

!Makes a unit come online to a host

'+
! Functional
!
The

4041

host

H
:
:
:

4043
4044
4045
4046

!
!
!
!

operation.
The
unit
is
spun-up,
if
necessary, and
is heads
are
loaded
prior
to
return?ng
the
online
command’'s
end
message.
Host
settable
characteristics
are
set exactly as if
a
set
unit
characteristics
command were issued.
Host settable

4049
4050
4051
4052
4053
4054
4055
4056
4057
4058

!
!
!
!
¢
!
!
!
!
!

:
:

H
:
H
:
H
:
:
H
:
H

4042

4047
4048

H
:
:
:
:
:
:
H
H
H
:

4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069

:8;5

4070

4073

4074

H
H
:
H
:
H
H
:
H
:
H
:

4075
4076
4077
4078
4079
4080
4081
4082
:833
4
4085
4036

4087

:823

H
;

settable

unit

characteristics

!
!

!
!
!
!
!
!
!
!
!
!
!

Description :
online
command

that

characteristics
and
any
other

are set
validity

used

bring

unit

characteristics
are

and

egsential

for

Formal Parameters
none
Implicit

Inputs

Implicit Outputs
none

set

unit

class driver

successfully spun up
Note that the un't's

the unit

already

This
global storage gets
loaded
by
the routine
‘Get_nsd'
and
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.
:

Completion Codes :
RET_STATUS:

Side Effects

those

NSO SLOT

proper

after the unit has been
checks have succeded.

host settable characteristics are not altered
“unit-online’,

"unit-online,

obtain

Return status passes back to the calling routine
the stetus of the just issued command.

Any previously defined controller characterist'cs w'll possibly

altered after erxecution of

this command.

beg'n

local
REF NUM,
ONL _BUF$LOC,
TEMP;
!
!

Before we

get

load

the next

GET_NSO ();
REF _NUM

!Stores unique ¢cmd ref number
!Stores outsstanding cmd buffer locat on
‘A place to put read IP register data

the command packet

send descr ptor slot

GET _CMDSREF

up with

all

this good

information

and a unique command reference number.
1Get

();

'Get

the next

a unique

send desc
command

slot

ref

num

UG Port

command envelope Header

field definit
on

[}

4090

4091
4092

SND ENVELOPE

SND _ENVELOPE
SND ENVELOPE

[ .NSD SLOT,

[ .NSD SLOT,
[ .NSD_SLOT,

MSG LENGTH])

SZ ONL;

CREDITS] = ONE;
MSG TYPE) = O;

‘Load message

‘Load cred’'t s’ ze
tDefine message type

5€Q 0216

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816 4

4038
4039
4040

16 V3 555

length
Sequential

(20;

I<L
REV

PATCH 00
4093
4034
4095
4096
4097
4098
4099
4100
4101
4102
4103

4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133

4134

4135

4136

4137
4138
4139
4140
4141
4142

4143
4144

4145

4146
4147
4148
4149

ZRCHBO RC2S DISK FORMATTER

MODULE

SND _ENVELOPE

[ .NSD_SLOT,

]

S Apr-1984
1 Jan-1984

DECLARATIONS

CONN_ID)

13:46:24
13:23:12

10efine connection

= MSCP;

3E0 0217
VAX-11 Bligss-16 V3 555
73
SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 8164 (dO)

MSCP generic command envelope field def nition
lanlanlanlonlan
Loy lasl

ZRCHBS

SNO _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SNO _ENVEL
OPE
SNO _ENVELOPE
SNO _ENVELOPE
.

.NSD _SLOT,
.NSD_SLOT,
.NSD_SLOT,
.NSD_SLOT,
.NSO_SLOT,
.NSD_sL.0T7,
.NSD_sLoT,

CMD _LREF) = .REF _NUM;
‘Load command reference number
CMO_HREF] = ZERO;
'Zero Hi order cmd ref num
UNIT_NUM] = LUNIT_NO;
'Select unit to br.ng online
UN_HUSED] = ZERO;
!Not used in DUP implimentation
OPCODE] = OP _ONL;
Load this commands op code

RSVD] = ZERO;
MODIFIER) = ZERO;

INot used field
'‘Define this commands modi
f ers

E Command specfic command envelope field definition
( .NSD_SLOT, RSV$D] = ZERO;
( .NSD_SLOT, UNT_FLAGS] = ZERO;

SNO _ENVELOPE

SNO _ENVELOPE
SNO _ENVELOPE
SNO _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SNO _ENVEL.OPE
SNO _ENVELOPE
SND _ENVELOPE
SNOD _ENVELOPE
SND _ENVELOPE
]

Call

the

and

'‘Reserved

tUnit flag field
.NSD_SLOT, RSVD$0)
ZERO;
'Reserved field
.NSD_SLOT, RSVD$1)
ZERO;
'Reserved field
.NSD_SLOT, RSVD$2)
ZERO;
'Reserved field
ZERO;
.NSD_SLOT, R5VD$3)
‘Reserved fie.d
ZERO;
.NSD_SLOT, RSVD$4)
'‘Reserved field
Z2ERO;
.NSD_SLOT, RSVD$S]
'‘Reserved field
.NSO_SLOT, DOP _LO)
ZERO;
'Device dependent paresmeter
.NSD_s5LOT, DDP _HI)
ZERO;
'‘Device dependent parameter
.NSO _SLOT, SHADOW_UNIT] = ZERO;
!Shadow unit
.NSD_SLOT, COPY _SPEED] = ZERO;
!Copy speed

load

outtstanding
into

this command

command buffer routine
The

the buffer,

from this routine will point us to the buffer

is
stored.
this cor .and
Later we can
this
location to see if the interrupt service
has received and process it.

where

ONL _BUF $LOC
if

LOAD_OUTS$STD_BUF

.ONL_BUF$LOC eqlu 0BF _CODE

Set

the ownership bit

(.REF _NUM);
then DECCDE

‘Load

look at
routine

the

command

‘Error

();

1l giving this slot

return

location

]

i Read the IP register to stimulate port polling
=

.RC25_ADDR

Time

out

The

first

respond

the

(RCIP,

RC ALL];

port/controller processing

the command.

test
tests the connections
ability
this command without
any errors in the
and for the command not timing out.

buffer

the port/controller

éENO_RING (.NSD SLOT, OWN_BIT] = PORT OWNED;
TEMP

i f

The
second tests the
DUP gerver for good status.
If
bad status is sent back then an error code ‘s returned
to the call ng routine where the routine 'decodc’ w' 11
The
decode
and take the
¢t ' me
appropriate recovery,

‘s

full

1 1
ZRCHBS
B8

@¢

B¢

C¢

G¢

O¢

REV

PATCH 00

ZRCHBO RC2S DISK FORMATTER

MODULE

4150
4151
4152
4153
4154
4155

S-ARpr-1984
11 Jan-1984

DECLARATIONS

out

routine will

13:46:24
13:23:12

VAX-11

Bliss-16 V3 555

.)EQ 0218

SPIDER$USERS: (NEALE,AZTEC })ZRCHBS . 816 4

(dO)

loop on delaying and checking the hi

bit of the
Ffirst word in
the
outs$std_buf for
When true signals us that the interrupt service
has received
the endpacket
and
no connection

a true.
routine
errors

were detected.

4156

4157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175

000000

004167

000004
000006
000012
000016
000020
000024
000030
000034
000042
000046
000050
000054
000050
000064
000070
000076
000102
000110
000114
000120
000124
000130
000134
000140
000144
060150

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
105061
010260
005060
016760
005060
112760
105060
005060
005060
005060
005060
005060
005060
005060
005060

CTO WAIT

(ONE_MINUTE,

.REF_NUM,

.ONL _BUF$LOC)

then

DECODE

();

tIs

return an error

Get
the return envelope
address
from the
outs$std_buf
at
this commands
buffer location
and check the packet
for good status error and die if bad status was returned

RET_ENSAD = .QUTS$STD_BUF [.ONL _BUFSLOC, ENV_ADR];

!Get the ret env adr

[]

E Now test for good status
if

.RET_ENSAD

then

else

(STATUS]

return RET_STATUS
return

nequ

ZERO

!Test

RSE

CODE

'Return

RET_STATUS;

!This

the

status

"Response status err’” code

ret_status

good or

bad

end;

0000006

171722
172064
0000006
000054
0000006
000044
000000G
000002G
000001
000001
000004G
0000066
000000G 0000106
000012G
000011
0000146
0000156
000016G
0000206
0000226
000024G
0000266
000030G
0000326
0000346

.SBTTL

ON.LINE::
JSR
ST

JSR
JSR
MOV

MOV
MOV
JSR
MOV
MOV
ADD
MOvB
CLRB
MOV
CLR
MOV
CLR
MOVB
CLRB
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

ON.LINE MODWE DECLARATIONS
R1, $SAVE?2
-(SP)

PC.GET.NSD
PC.GET.CMDSREF
RO,.R2

NSD.SLOT, -(SP)
054, -(SP)
PC.BLSMUL
444 ,SHD .ENVELOPE(RO)
OSND .ENVELOPE +2,R1
RO,R1
01,(R1)
1(R1)
R2,SND.ENVELOPE +4(RO)
SND .ENVELOPE +6(RO)
UNIT.NO,SND.ENVELOPE
«10(RO)
SND.ENVELOPE «12(RO)
€11 ,SND.ENVELOPE +14(RO)
SND .ENVELOPE +15(R0O)
SND .ENVELOPE +16(R0O)
SND .ENVELOPE +20(RO)
SND.ENVELOPE +22(RO)
SND.ENVELOPE «24(R0O)
SND ,ENVELOPE «26(RO)
SND .ENVELOPE
« 30(RO)
SND.ENVELOPE
+ 22(R0O)
SMND .ENVELOPE +34(RO)

4036

¢ ,REF .NUM

4085
4086
4090

4091
4092

4093
409"
4098
4099

4100

4101
4102
4103
4107
4108
4199
4110
4111
4112

4113

M1
ZRCHBS
REV

B PAICH 00

000154
000160
000164
000170
000174

000200
000202
000206
000210
000214
000216
000222
000226
000230
000232
000236
000244
000252
000256
000262
000264
000266
000272
000274
000276
000300
000304
000306
000310
000312
000320
000324
000330
000332
000336
000342
000344
000350
000354

;

ZRCHBO RC25 DISK f ORMATTER

MODULE DECLARATIONS

005060
005060
005060
005060

0000366
0000406
0000426
0000446
00004606

004767
010001
020127
001002
004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
022626
006000
103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

171602

005060
010216

Routine Size:

Maximum stack

4176

S-Apr-1984
11-Jan-1984

CLR
CLR
CLR
CLR
CLR

171746

000000G

MOV

1$:

CMP
BNE
JSR
MOV
ASL
ASL
ADD

€100000,2(RO)
SRC25.ADDR,4(SP)

MOV
MOV
MOV
MOV
MOV

173706

2s:

000002G 0000006
000002G
000016

4(SP).RO
9-12640,(SP)

JSR
CcMP
ROR
8CC
JSR

PC,CTO.WAIT

REF .NUM, «

+,0NL .BUF $LOC

ONL .BUF $LOC, »

411¢
4117
4118
4127

4129

4134

+,RC$S.REG

RC$S.REG, TEMP

4138
4157

ONL .BUF $LLOC,
o

PC.0ECODE
R1,RO
RO
RO

MOV
ASL
ASL
MOV
MOV

OUTS$STD.BUF +2(RO),RET.ENSAD
OUT$STD.BUF «2(R0O),RO
16(RO)
3

931,R0
RO,RET.STATUS
$
RET.STATUS,RO
&6, SP
PC

MOV
ADD
RTS

AC$CODE

4114

4115

(SP)¢,(SP).

BEQ

Rout ine Base:
119 words,
depth per invocation:
9 words

MOV
MOV

3$:
44;

:EQ 0219

SPIDERS$USERS: [NEALE.AZTEC JZRCHBS. 816 4 (20)

REF .NUM, »

TST

000031
0000006

VAX-11 Bliss-16 V3 555

SEND.RING,RO

BIS

165140

000000G
000006

R2,(SP)
PC,LOAD.OQUT$STD.BUF
RO,R1
R1,42001
1
PC,DECODE
NSD.SLOT,RO
RO
RO

JSR

0000006
100000
000002
000000G 000004
000004

171664

SND ,ENVELOPE +36(RO)
SND.ENVELOPE +40(R0)
SNO .ENVELOPE +42(RO)
SND .ENVELOPE +44(RO)
SND .ENVELOPE +46(RO)

MOV

002001

13:46:24
13:23:12

6214

ONL .BUF $LOC, »

4164

4169

4171

4074
4036

N1
ZRCHBO RC2S5 DISK FORMATTER

REV B PATCH 00

MODULE

DECLARATIONS

4177
4178
4179
4180
4181
4182
4183
4184
4185
4186

global

routine INTS$I _SERVICE

4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216

4217

000000

012767

000006

000002

i
;
H

'Init sequence

5EQ 0220
VAX-11 Bliss-16 V3 555
Page
76
SPIDERSUSERS: [NEALE.AZTEC JZRCHBS .B16K:4 (21,

interrupt catcher

This interrupt service routine serves to catch any interrupts that
controller
might
issue
during
the
in‘tializetion sequence.
interrupt is ‘gnored and control is returned.

This interrupt
existence test

formal Parameters

the
The

serv . ce routine ‘s also used during the RC25 reg ster
'n determ'ning whether P Table RC2S
reg sters e~'st.

none

Implicit Inputs
NEX _FLAG

A flag wh'ch ‘s loaded
ex stence test and set

event
Implicit Outputs
NE X _FLAG

Complet
on Codes

attempts

w' th reros dur ng the RC2S reg ster
to all ornes by th s rout
' ne 'n tre
to read & nor e~ stent RC2S controiler.

Is returned w' th all ones
reg star access attempts.

tre event

RCcS nor e ‘stent

none

Side Effects

none

Q'
n

NEX

FLAG

return;

1777722

ONES;

1ingd cote

SBTTL

0000006

Routine Size:
4 words,
Maximum stack depth per
4218

13:46:24
13:23:12

Note that no initerrupt will be generated at the complet
on of
step
4
s’ nce
this step rquires only s small number of time.

4201

4205

INT_LNKS$TYP novalue

1984
1984

functionn]l Description :
Our'ng the initialization sequence the IE bit is defined to be
e zero.
This means that the host is not requesting interrupts at
the completion of steps 1 3.

4202

4203
4204

Apr
Jan

418~

4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200

5
11

INTSI.5ERVICE

INTS
. SERVICE ::
MGy

RTI

Rout ‘ne Base:

invocati
i on:

wordas

ACSCIDt

L.,MEx

tTM»

~terr
et OCCured

"MODUE DEC. ARATION

]

o%°

ZRCHBS

4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235

4236
4237
4238
4239

4240
4241
4242
42a3
4244
4245
4246
4247

B0
B
B

4269
4270

4271

a272
4273
4274

DECLARATIONS

global

routine

IS_TIMER (SEQ_NO)

Jan-1984

VAX-11 Bliss 16 v3-555

13:23:1°2

'Init sequence time out

Functional Description :
Steps 1-3 of the init sequence, each are required to complete within
10 seconds.
If any of these steps fails to complete within that period,
this is to be trested as 8 host detected fatal error.
This

routine

each delay

will

do one

the step

Formal Perameters :
SEQ_NO: Indicated which
Implicit

Inputs

us delays

field

for

total

is examined to see

init

step

i f

th 3

seconds.

init

After

sequence has comp.eted.

is presently being performed within

the RC2S

4275

in’'t

sequence.

none

Implicit Outputs

none

Completion Codes :
TRUE :
Indicates to the calling routine
FALSE:

Side Effects
If the
then

Indicates to the calling routine
step has not timed out.

that

the

indicated

init

sequence step has

that

the

indicated

init

sequence

:
init sequence step times out

the

routine decode will

and an error
be call.

is posted

the sa register

begin

local
TO_VALUE
STEP_VAL
STEP _VAL

[]

:
:

word,
word;

1Step time out velue
!Temp storage of step value

ZERO;

‘Make sure

the

loc

s reroed out

§ Select the step value e pected from this init sequence step.
[}

selectoneu

.SEQ_NO of

!Select

the binary

binary

step value

set

(o)

begin

STEP

VAL

TO_VALUE

#b 0001

;

1Step

= sp 0010
= S000;

'Step ° b 'nary value
' imeout step two for

+«

20000;

'Timeout

value

step one

for 60 seconds

end;

beg'
n

STEP _VAL
TO VALUE
end;

5EQ@ 0221

Page

SPIDERSISERS: [NFALE.AZTEC JZRCHBS.8B16;:8

Yoo

4266

4268

MODUW.E

S Apr-1984 13:46:24

4249

4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4267

ZRCHBO RC2S DISK FORMATTER

4248

V°

B¢

V¢

ZRCHBS
REV B PATCH 00

10 seconds

timeo out.

(22

Ce
JRCHBS

ZRCHBO RCES DISK + ORMATTER

REV

MODWLE

TO_VALWE
end;

11 Bliss

16 V3 555

5EQ 0222
P

SPIDEQCUSERS:[NfALE.AZYECJIRCH85.816;:°7?2/

sb 0100

!1Step 3 binary value
'Timeout step 3 for 10 seconds

b’ 1000’ ;

'Step 4 binary value
!Timeout step 4 for 10 seconds

5000,

{3)

begin

STEP _VAL

T0 VALUE
end;

5000;

tes:

Loop
on the 100 micro second delay until either the expected step
is read in the SA register or the step times out.

4290

VAX

begin

STEP_VAL

4291

000010
000012
000016
000020
000024

4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289

13:46:24

«+

(2)

4276
4277
4278

1984

11 Jen 1984 13:23:12

DECL ARATIONS

4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321

©F

B¢

S°

B PATCH 00

S Apr

end;

004167

0000006

162706
005002
016600
001005
012702
012703

000006

incru TIM _OQUT
begin

DELAY
|]

from O

.TO_VALUE

'Loop on C US delay

(C_US);

‘Do the delay

' Check the step bit to see 'f
!

false

it is set yet. If it is set then
indicating the completion else continue delaying.

.RC2S5_ADDR

field

[RCSA,

STP FIELD) eqlu

BREAK;
end;

.STEP VAL

return

then return FALSE;

!Service any

control

This step has not completed within the specified time nterval.
the sa register for any errors posted and report errors 'f sny.,
a true to the caller indicating the error.
¥

_RC25_ADDOR

then

begin
RET _STATUS

DECODE

end;

return

();

[RCSA,

047040

ERR BIT)

!Is

CODE;

!‘Indicate the port/fatal
‘Report the error

TRUE;

the error bit

!Return a

.SBTTL
IS.TIMER:

error code

the caller

DECLARATIONS

R1, $SAVEA4

CLR

STEP, VAL

f%(SP).RO

SEQ.NO,
e

4261

01,R2
047040 ,R3

i
i

¢, STEP, VAL
¢, TO.VALUE

4260
407

MOV

IS.1TIMER MODWE

failure

set

JSR

SuUB

000022

000001

PFE

Test
Return

BNE

MOV

06 ,5P

419

4250

De
ZRCHBS
REV

B8 PAICH 00

000030
C00032
000036
000040
000044
000046
000052
000054
000060
000062
000066
000070
000074
000100
000102
000104
000110
000112
000116

000120

000124
000126
000130
000132
000134
000140
000146
000150
000154
00015€¢
000160
000162
000164
000170
000172
000174
000176
000200
000202
000204
000210
000214
000216
000224
000230
000234
000236
000240
000244

000423
020027
001003
012702
000413
020027
001003
012702
000405
020027
001004
012702
012703
005004
000436
012701
001411
016700
001404

005066

005300
001374
005301
000766
016700
016066
010201
016600
006200
006200
006200
000300
042700
020001
001421
104422
005204
020403
101.40
016700
016016
100005
012767
004767
012700
000401
005000
062706
000207

; Routine Size:
;:

Maximum stack

4322

ZRCHBO RC2S DISK + ORMATTER
MODULE

S Apr 1964
11 Jan-1984

DECLARATIONS

000001

4261

;

000002

¢,STEP, VAL

000003

¢,STEP,VAL

e10,R2

as:
S5$:

000001

#11610,R3
R4
11$

6s:

1,.R1

7¢:

0000006
000004

10%
L$OLY,RO

94
4(SP)
RO
8s
R1
78
RC25.ADDR,RO

8s%:

94
:

0000006
000002
000002

10s:

¢,STEP, VAL

4234

¢,70.,VALUE

TIM.OUT

4285
4294

¢,88TMP2

429

;

¢,88TMP]

;
:

$STMP
$STMPL

;

$8TMP2

2(R0O),2(SP)

s ,RC$S.REG

2(SP),RO

13¢

TRAP

11¢:
0000006
000002

0000006
12%:

13s:

144;

22
R4

INC
CMP
B8LOS

R4 ,R3

2(RO),(SP)
124

021,RET STATUS
PC,DECODE
1,RO
14
RO
06,5P
PC

8
CLR

ADD
RTS

6602

TIM OQUT

TIM.OUT,TO.VALLE

¢,RCS$S.REG

68
RC25.ADDR,RO

MOV
MOV
8PL
MOV
JSR
MOV

83 words.
Rout ine Base:
AC$CODE
depth per invocation:
10 words

RC$S.REG,
»

RO
RO
RO
RO
@177760,RO
RO,R1

SWAB
8IC
cMP
B8EQ

4302

STEP.VAL,*

R2,R1

000002

177760

4278

4279
4261

3s:

000010
011610

4272

4273
4261

000004

000006

5€Q 0223
VAX-11 Bliss 16 V3 555
79
Page
SPID:ERSU
[NEALE ,AZTEC SERS
]ZRCHBS .B16;:4 (22,

1%:

000202

000021
171352
000001

13:46:°4
13:23:12

4294

4313

4310

431”

4250
4219

E2
ZRCHBS

REV

PATCH

ZRCHBO RC2S5 DISK FORMATTER

MTMMODULE

DECLARATIONS

4324

4%23

global routine B800T_RC25

4325

H
H
H
:

4326
4327
4328
4329

4331

!
!
!
!

The

4332

:
H

4333
4334

:
:
:

:
:
:
H
H

:
H
H
H
:
H
H
H
:

4335

4336

4337
4338
4339

4340
4341
4342
4343
4344

!
!
!
¢

:ggz

4355
23??

H
H

4367
4368

;
:

;
:
:
:
H
.

4366

:ggg

4372
4373

4374
4375
4376
4377
4378
4379

Jan-1984

initialization

VAX-11 Bliss

13:23:12

'Performs RC25

initialization procedure serves

sequence

init

sequence

the R(C2S

to:

Provide

check

Bring
the
port/controller online
to the
host (note that the
devices
attached
to the controller
are
not
thereby brought
online to the class driver,)

Formal Parameters
none

communications

of port/controller

integrity.

Implicit Imputs :
ISD_STRUCT

Implicit Outputs
none

confidence

the host-res dent

Stores the init sequence read and write data defined
for this program and controller.
:

Completion Codes :
Success:
Is

returned

the

calling

routine

this

initialization

Is
returned to the callng routine if this
sequence was not executed successfully.

in"tial
zat on

sequence was executed successfully.

!
H

Failure:

!
!
¢
!
!

Side Effects :
Any DM code
aborted.

that

might

have been

running

the DM machine

Any outstanding commands or response pertaining to
the controller will be lost.

w'll

a process using

beg'n
local

TEMP

!
!

!
!
!
!
!
]

word;

The
host begins
the
either
by
Issuing
8

!Temporary

initialization
sequence
bus ‘nit
or by writing

any
velue into the IP reg'ster;
the port must
guarantee
that the
host w'll read zeros in SA
on
the
next bus
cycle.
In'tial’'zation
then
sequences
through
steps 1 4 as per UQSSP.DOC
Version 1.5,

storage

16 V3 555

5EQ 0224
Page

SPIDERSU
[NEALE .AZTEC
SERS
}ZRCHBS .B16:4
:

the parameters

region to the port.

4358
4359
4360
4361
4362
4363
4364
4365

13:46:24

Identify

4349
4350
4351
4352

H
H
H
:
H
H
H
:

!
!
!
!

;

4345
4346
4347
4348

H
H

!
!
¢
!
!

Functional Description :
This
routine performs the
RC25 controller,

4330

S-Apr-1984

locat

(23,

e
ZRCHBS

REV

:
:

B PATCH 00

4380
4381

ZRCHBO RC2S DISK FORMATTER

MODULE

!
!

DECLARATIONS

Write
to
the
sequence going.

1IP

and

start

the

Jan-1984

4382
4383
4384
4385
4386

WRT RC2S5 (RCIP,
t

Th's

the

:
:

4388
4389

!
!

initialization sequence described above.
SA
write
and
read
dats is preset into

The
the

4391

4387

4390

4392

:
3
:

4393
4394
4395

incr

ONES);

structure

ISD_STRUCT

“Initialization

four

steps

and

stands

Data _STRUCT”.

If
a step
time
out error occures the test
invoking
this routine will take the necessary

retry procedure.

4399

a step completion

!
!

returned.
oany

return code

compare error

failure

4400

H
:

4406

begin

4407

H
:
H
:

4408
4409
4410
4411

!
!

Wait

for

TIMER

:
H
H
:
H
:
:
:
H

4413
4414
4415
4416
4417
4418
4419
4420
4421

:
:

4423
4424

!
!

for
the expected step data and compare
date stored in ISD_STRUCT,

!
!
H
!
!

If the read SA data
failure code.

;

H
H
H
;
:

4401
4402
4403
4404
4405

44172

4422

44205

4426
4427
4428
4429
4430

:2;;

:
H

! error
!
!incru

and

SEQ_NO

then

from

the

STEP]l

controller

STAT

TABLE

!
PRINTB (.EMSG_STRUCT
return FAILURE;
end;

load

the

(.SEQ_NO)

begin
'
¢! DO SOME

The controller did not

the

tables up pertanate data.

to STEP4

UP DATA

four

'nit

seq steps

reg up

with

the

step data.

the

THE

TIME

SHOW

[MSG101]);

the

'‘Did

‘Notify

Controller

time

out

QUT

DRS>

init

the

failure

time out so read the SA register

is not

what

we expect

the good

then

return

Note that the reserved fields read in the SA register are
or'ed with all ones to mask out the field before compared

to the expected data stored

the structure

"ISD _STRUCT".

]

4433
4434

TEMP

4435

4436

then

((.RC25_ADDR

TEMP

nequ

.ISD

(RCSA,
STRUCT

RC_ALL)) or
[.SEQ_NO,

(.RSVD_STRUCT

ISRD,

ISR

ALL]

5EQ 022%

Page

SPIDERSUSERS:
[NEALE .AZTEC )ZRCHB: .B16;4

init sequence

routine Decode will decode

load statistical

13:23:12

16 v3 555

is detected after

:
:
:
H
H

the

VAX-11 Bliss

for

!
'
!

4396

4397
4398

all

Sequence

:
:

'Begin

loop performs

13:46:24

init

:
H
:
:
:
:

S-Rpr-1984

[.SEQ_NO1));
‘Compare

read

e-pected

(23,

Ge
ZRCHBS

REV

8 PATCH 00

ZRCHBO RC25 DISK FORMATTER

MODULE

DECLARATIONS

4437
4438
4439

begin

4440
444y
4442

i Load some satistical table up wih some data to
sequence had some trouble.

PRINTB (.EMSG_STRUCT [MSG111);
return FAILURE;

VAX-11

Bliss

v3 555

JEO

0226

SPIDERSUSERS: (NFALE.AZTEC JZRCHBS. 816 4 (dS)

end;

000000

004167

000000G

000004
000006

024646
012700
010077
005002
010246
004767
005726
006000
103007
016746
012746

!
.

this

.SEQ_NO eqlu

step

four

STEP4

then

This

The controller

what

(FMT4,

with th's steps write data stored
(RCSA,

PRINTB

this u-code

uRT_RC?S

read data

then print

end;

is step

.ISD_STRUCT

indicate

that

the

'Return a failure code

end;

4447
4448
4449
4450
4asy
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463

010600
104414
000427
016700
016066
010200
006300
016603
056003
010201
006301
006301
020361
001410

init

]

4444
4445
4446

000034
000040
000044
000046
000050
000052
000056
000064
000066
000070
000074
000100
000102
000104
000106
000112

13:46:24
13:23:12

]

4443

000012
000016
000020
000022
000026
000030
000032

5-Apr-1984
11 Jan-1984

.RC25_ADDR

we expected so

[.SEQ_NO,

version number,.

write

[RCSA,
the

S4R VER]);
register

ISD_STRUCT,

ISWRT,

ISW_ALLI]);:

initialization sequence was done successfully

so return a success code.

return SUCCESS:;

177777
0000006
177504

.SBTTL
BOOT.RC2S::
JSR
cMe
MOV
MOV

1¢:

000002
000000G

0000006

JSR

TST
ROR

8CC

0000246
000001

0000006
000002
000002

CLR
MOV

MOV
MOV
MOV
TRAP

2s:

B8R
MOV
MOV

BOOT.RC25 MODULE DECLARATIONS
R1,$SAVES

-(SP),

2-1,R0

(SP)

RO,8RC25.ADDR

PC,IS.TIMER
(SP).

4384

SEQ.NO
SEQ.NO,

4411

SP,
e

2(R0),2(SP)

¢, RCSS_REG
SEQ.NO,
»

2(SP),R3

RC$S.REG, TEMP
o, TEMP

4411

RC25.ADDR,RO

BIS

RSVD,STRJUCT(RO),R3
R2,R1
R1
R1
R3,ISD.STRUCT(R1)
43

4405

441"

SP,RO
14
34

R2,RO
RO

cMP
BEQ

+ ,RC$M,.REG

RC. $M
REG,

RO
24
EMSG.STRUCT
.23, -(SP)

MOV
ASL
MOV
MOV
ASL
ASL

4323

SEQ.NQ,
¢
o
TEMP,

4433

3435

He
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE

000114
000120
000124
000126
000130
000132
000134
000140
000142
000146
000152
000154
000160
000164
000170
000172
000174
000200
000204
000210
000214
000216
000222
000224
000230
000232

0000266
000001

000234
000236

016746
012746
010600
104414
022626
000437
020227
001017
016700
016016
011646
042716
012746
012746
010600
104414
062706
016101
016700
010160
005202
020227
101676
012700
000401
005000
022626
000207

;: Routine Size:

Maximum stack

4464

DECLARATIONS

LE N

000003

000000G
000002

MOV
MOV
MOV
TRAP

CMP
B8R
CMHP
BNE

177760

8IC

5%:

000003
000001

RC25.ADDR,RO
R1,2(R0O)
R2
R2,.23
13
@1,R0
74
RO

B8R
CLR
cMP

(SP)Y.,(SP).

RTS

Rout ine Base:
80 words,
AC$CODE
depth per invocation:
11 words

;

SP,RO
14
06,SP
ISD.STRUCT.2(R1),R1

MOV

6$:
7%:

SP,RO
14
(SP)+ ,(SP).
68

2177760,(SP)
oFMT4, (SP)
02, -(SP)

INC
cMpP
8LOS

3EQ 0227
VAX-11 Bliss 16 v3 555
83
SPIDERSUSERS: [NEALE,AZTEC )ZRCHBS . 816 4 (eS;
H

S
RC25.ADDR,RO
2(R0O),(SP)
(sP), -(SP)

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV

13:46:24
13:23:1°2

EMSG.STRUCT+26,
-(SP)

R2.03

MOV
MOV
MOV

000000G
000002

000006
0000026
000000G
000002

S-Apr-1984
11-Jan-1984

7050

4442

SP,»

44135

SEQ.NO,

4450

¢,RC$S.REG

RC$S.REG,
»

SP,»

¢, RCSM _REG

RCSM_REG,
»

;

4437

SEQ.NO

4456
440S

4366

4323

12
ZRCHBS

REV

ZRCHBO RC2S DISK FORMATTER

B PATCH 00

MTMMODWLE

DECLARATIONS

4465

global

routine

4466

INIT

4467

4468

4469

:
:

4470
447}

'
'

4472

This

4473

plished

COM

After

routine
by

:
H

4476
4477

'
'

ations

!
!

4480

4481
4482

'
'

address

H
:

4483
4484

!
'

BLISS

4486
4487
4488
4489
4490
449)
4492
4493
4494
4495

!
'
'

:
:
H
:
:
H
:
H

H
:
:
:
H

H
:
:

H
H

H
H
:
:
H
:

4496

4497

'
'
'
'

'
¢

(ring

base

Loads
a.
b.
c.
d.

:g%z
4515

Load the

buffer

4518

:
H

4519
4520

4521

Inputs

all

commumication

area

clears

out

that

this protocol

accom

proceeding.

the

initialized as

protocol

then

the

communic

follows:
data storage structure
address,
receive ring

the send ring address (these structures

and
per

interrupt

-1,

-2,

indicators

-3,

-4)

and

adaptor

dJdefined as

in bytes.

length

“HEAD_AREA’

are

unused.

the

values:

field w' th

the Outs$standing command buffer

slots

pur

the

to reflect

Implicit Outputs

The communication area as a result of this routine will be in‘tialized
for host program to remote program communications per DUP and
UQSSP specifications.

Completion Codes :
TRUE :
Error code

not

FALSE:

Side

tffects

none

indicate

fullfilled

error

code

its

has fullf'lled its

'
'

controller

receive envelope message

size

Initielize

that

port

tne port

controller has

part of the DUP protocol.

indicate

part of

the

port

the DUP

controller

protocol.

5EQ 0228

Page

SPIDERSUSERS: (NFALE .AZTEC])ZRCHBS .B16;:4

HEAD _AREA, RECEIVE _RING, SEND_RING, COM_AREA

the

the receive and send descriptors with
Envelope low, high and Q_bus address
Reserved field
Flag bit
Ownership bit

Implicit

'
!
'
'
'
¢

before

its part

ond

the

Cleers

Formal Parameters
none

4507
4508
4509
4510
4511
4512

Protocol

16 V3 555

language conventions).

4506

Defines from
the
contigious
“COM_AREA"
the
header
area

'
‘
'

step

makes sure

port

did

area

4500
4501
4502

:ggg

'Inits DUP

13:23:12

are
initially
declared
as reference structures
require
an address
to be
defined
as its value

:glg

the port

4498
4499

4503

first

the

4485

Jan-1984

VAX-11 Bliss

the communication area's ring buffers,

4475

initialization

4474

:
:

AREA

Functaonal Description

;

4478
4379

13:46:24

:
:

S-Apr-1984

(24;

1]
.

L)
.

L]
.

.
.

.
-

.
.

[
[

L)
.

[
-

.
.

Ld
.

L)
.

L
.

.
.

.
-

.
.

*
.

[
.

.
.

[
.

L]
-

.
.

[
-

Ld
.

*
-

1)
-

Ld
.

.
.

1]
.

1
.

*
.

.
.

L)
-

.
.

1)
.

.
.

L)
.

L
.

L]
.

[
.

[
-

[
’
.

*
-

4
.

L[d
.

4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566

4567

4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578

11 Jan-1984

13:46:24

13:23:12

VAX

11 Bliss

16 v3 555

Make sure that

the controller has done

its part of

the DUP protocol by clearing out the ring buffers.
If
the rings are not cleared out then return with

an error code of true,
incru

from 2

incru

to RING_SIZE

from WRDO

1 do

'Test all blocks for zeros

'Test all words

to WRD1

for zeros

Test this word for zeros.
If not zeros then exit
this routine
with
an "communication area
init"
error
code
to
indicate the Protocol violation.

.j.

.COM_AREA

[.i,

did

part of

WORD_REF] nequ ZERO then return CIE CODE;

The

port

define

its

the address

the protocol

so now

locations of the HEAD AREA,

RECEIVE _RING and SEND_RING

from the contigious

storage declared by COM_AREA,
HEAD _AREA = COM_AREA;
RECEIVE _RING = COM_AREA

‘Define the Header area
‘Define the rece’'ve ring area

[REC_BASE];:

SEND_RING = COM AREA (SND_BASE];

‘Define the send ring ares

! Not quite sure if the port has to clear out
! the
header area of the communications ares
1's0
I'll
clear it
out
here
just in case.
incru

from WRDO

HEAD _AREA

[.i,

WRD3

WORD_REF])

ZEROS;

Load up the Send Ring descriptors with an envelope address,
define
the "Flag b't” to = 1 (interrupt requested), define
the
"Ownership bit”
to
* O (owned by host)
and load the
Reserved

field with zeros

incruy i from O
begin

SEND _RING
SEND _RING
SEND _RING
SEND _RING
SEND _RING
SEND _RING
end;

SND_ALLOCATE

spec).

LO_ENSAD] = SND_ENVELOPE (., CHD_LR&F]; {Low-order envelope adress for all sys

HI _ENSAD]

D$RSVD])

ZERO;

QB _EXT)

OWN_BIT]

ZERO;

= ZERO;

FLAG BIT])

(per DUP

=«

SET_FLG;

HOST

OWNED;

5EQ 0227

Page

SPIDERS$USERS:
(NEALE .AZTEC)ZRCHB5.B16;4 (24

begin

4522
4523
4524
4525
4526
4527
4528
4529

[

S5-Apr-1984

MODUWLE DECLARATIONS

ZRCHBO RC25S DISK FORMATTER

ZRCHBS
REV B8 PATCH 00

IHigh order portion of an 18 bit U/Q bus adrs
‘Q_bus extention
‘Reserved field
'Flag
bit whose mesning varies depending on dsc state
'‘Ind cates whether dsc is host or port owned

1<
ZRCHBS

REV

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

B PATCH 00

MODULE

4579

:
H
H
:

4580
4581
4582
4283

!
!
!
!

458s

4587

begin

4591

RECEIVE_RING
RECEIVE _RING
RECEIVE _RING

[.i, LO ENSAD)
[.
', HI_ENSAD]
[.i, QB_EXT]) =

-~ REC ENVELOPE
= ZEROQS;
ZEROS;

H
H
H
:
H

4592
4593
4594
4595
4596

RECEIVE RING

(.,

ZEROS;

4?97

:
H
H
H

4598
4599
4600
4601

'
NRD _SLOT = -1:
NSD_SLOT = -1;
NXT_CRN = ZERO;

H
:

:
:
:

H
:
H
H
H
H

4584

4586

4602
4603
4604
4605
4606
4607

4608

H
:
H
H
H
H
H
:
H

:gog
1
4611
4612
4613
4614
4615
4616
4617

:
:

000000
000004
000010

incru

4618
4619
4620
4621
4622
4623
4624
:ggg

4627
4628

004167
012701
005002

from O

to REC

RECEIVE _RING [.i,
RECEIVE _RING ([.i,
end;

Jan-1984

Reset

ALLOCATE

DSRSVD)

[.i,

CMD_LREF];

FLAG BIT) = SET_ LG;
OWN BIT] = PORT_LWNED;

the communications

area pointer

their

initial

the response envelope message length size equal
the buffer
size in bytes starting at text +« O.

incry

from O

to REC_ALLOCATE

REC_ENVELOPE

te
! Init
H
1.
H
'
2.
!-

state.

'Start ring pointer at zero
!Start ring pointer at zero
!Start unique cmd ref num at one

'
! Set
! to
'

([.i,

MSG_LENGTH)

do
=

RB_SIZE+2;

!Convert

to bytes before

the outstanding command buffer as follows:
Indicate that all slots are unused by loading
the unique value %0’ 100000’ .,
Clear the envelope adrs words to zero.

incru i« from O to REC_ALLOCATE - 1 do
begin
OUTSSTD BUF (.i, CMDO_WRD] = #0’'100000';
OUTSSTD BUF [.i, ENV_ADR] = ZERO;
end;

'
!

13:23:12

5EQ O 230
Pa ge
B4
SPIDERSUSERS
: (NEALE .AZTEC }ZRCHBS .B16;4 (°4)

VAX-11 Blies-16 V3 555

Load
up the
Receive Ring descriptors with an envelope
address, define the "Ownership bit” = 1 (owned by port),
define the "Flag b't” to = 1 (Interrupts requested) and
the reserved field set to zeros (per DUP spec).

4588
4589
4590

H
:
:
H
H
:
:
:

DECLARATIONS

13:46:24

No errors detected by

!'Define the slot as unused
!Clesr out the envelope adrs

this routine so return with an npq, error

code of

field

false.

return PAS_CODE;
end;

000000G
000004

.SBTTL

INIT.COM.AREA::
JSR
MOV
14:
CLR

INIT.COM, AREA MODW
E DECLARATIONS
R1,$SAVE3
04 ,R1
R

:
oo,
1
: J

..'.

4405
4531
4533

000001

3s:

000022

cMP
8LOS

000000G 000000G

MOV
MOV
MOV

000010G 0000006
000030G 000000G
43

0000006

142700
062700
010013
010100

CLR

MOV
ADD

CLR

000002
000006

ADD

S$:

0000006
000054

oy
8L0S
CLR

MOV
ASL
ASL
MOV
ADD
MOV
MOV

JSR

0000046

ADD
MOV
MOV
ADD
ADD
MOV

000002
040000

000003

64:

0000006

INC
CMP
8LOS
ADD

000002

010100
066700

062700
012710
022626
005203
020327
101746
005002
010201
006301
006301
010103
066703
010200
000300
106000
006000
006000

MOV
RTS

INC
cHP
8LOS
CLR

MoV
ASL
ASL
MOV
ADD
MOV

SWAB

RORB

000077
0000046

ROR
ROR
8IC8
ADD
MOV
MOV

V3 555

5EQ 0231

Page

4540

COM.AREA(RO)

3
21,RO
PC
R2
R2,41

4533

02,R1
R1,022

4531

14
#COM_.AREA
,HEAD . AREA
QCOM,AREA+10,RECEIVE
.RING

4549
4550
4551
4559

@COM.AREA+30,
SEND .RING

RO
RO,R1
HEA
., AREA,R1
D

4560

(R1)

#2,R0O
RO, @6
44
R3
R3,R1

4559

4569
4571

R1,R2

SEND.RING,R2

054, -(SP)
PC.BLSMUL
QSND . ENVELOPE
+4 ,RO

000001

I,s
J.‘

RO, (R2)

B8EQ

SPIDERS$USERS: [NEALE.AZTEC]ZRCHBS .B16;4 (24,

R1,RO
SEND.RING,RO

0000006

R1,RO
R2,RO
RO

VAX-11 Bliss

02 .RO
€40000,(RO)

(SP)+,(SP).

R3
R3,63
S
R2
R2,R1
R1
R1
R1,R3
RECEIVE.RING,R3
R2,RO
RO
RO
RO
RO
#77,R0
QREC.ENVELOPE
+4 ,RO
RO,(R3)
R1,RO

4572

4576
4570
4569
»

101763
062701
020127
101755
012767
012767
012767
005000
010001
066701
005011
062700
020027
101767
005003
010301
006301
006301
010102
066702
010346
012746
004767
062700
010012

MOV
ADD
ASL
TST

13:46:24
13:23:1°2

[l
]

010100
060200
006300
005760
001403
012700
000207
005202
020227

1984
1984

000012
000014
000016
000020
000024
000026
000032
000034
000036
000042
000044
000050
000054
000056
000064
000072
000100
00010¢
000104
000110
000112
000116
000122
000124
000126
000130
000132
000134
000136
000142
000144
000150
000154
000160
000162
000164
000170
000174
000200
000202
000204
000210
000212
000214
000216
000220
000222
000224
000230
000232
000234
000236
000240
000242
000246
000252
000254

Apr
Jan

B PATCH 00

S
11

-t -t

REV

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

ZRCHBS

4580
4588

4589

M2
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODUW.E DECLARATIONS

000256
000262
000266
000272

066700
062700
012710
005202

000000G
000002
140000

000300

101745

Q00274

020227

000003

000302
000310
000316
000322
000324
000332
00033¢

012767
012767
105067
005000
012760
062700
020027

177777
0000006
177777
000000G
000000G

000344

005000

000342
000346
000354

000360
000364

000370
000372
000374

;

;
:
:
:
:

000074
000100
000300

101770

012760
005060

RECEIVE.RING,RO
#2,R0O
4140000,(RO)
R2

8LOS

0000006

7s:

B8LOS
8%:

MOV
CLR

Routine Size:

B8LOS

127 words,

4629
4630
4E3)Y
4632

Routine Base:

invocation:

7 words

'
H
s
H

4599
4600
4601
4608

3
]

o,1
Io‘

4608

4618

s
3

o(I)
0,1

4621
4618

RO
PC

AC$CODE

7310

end
eludom

PSECT

Name

Attributes

2019

LIBRARY

$SAVE3,

$SAVF2,

BL SMUL

SUMMARY

Words

AC$CODE

RO,

LCL,

REL,

CON

STATISTICS

File

SPIDERS$US

0TS external references
.GLOBL
$SAVE4,

Psect

#4 ,RO
RO, 014

CLR
RTS

Maximum stack depth per

€-1,NRD.SLOT
1,NSD.SLOT
NXT.CRN
RO
974 ,REC .ENVELOPE(RO)
#100,R0
RO, 0300

#-100000,0UT$STD.BUF(RO)
QUTS$STD.BUF +2(RO)

ADD
cMP

005000
000207

4593
4586

CLR

RS: [NEALE .AZTEC1ZRCHBO.L
162

SEQ 0232
VAX-11 Bliss-16 V3-555
Page
88
SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS.B16;4 (24}

H
¢
H Io‘

R2,43

MOV
MOV
CLRB
CLR
MOV
ADD
cMP

000004
000014

101766

ADD
ADD
MOV
INC

cMP

100000 0000006
000002G

062700
020027

S5-Apr-1984 13:46:24
11 Jan-1984 13:23:12

Symbols

Total

L oaded

Percent

398

278

Blocks

Read

o,o(I)

I,e

4620

4522

4465

Ne
ZRCHBS

REV

PATCH

ZRCHBO RC25 DISK

MODULF

FORMATTER

DECLARATIONS

5-Apr-1984

Jan-1984

13:46:24

VAX-11 Bliss

13:23:12

COMMAND QUAL
IF LERS

BLISS
Sice:

/PDP11/LIST ZRC+HBS.B16
2019 code

Run Time:
01:26.0
Elapsed Time:
05:03.3
Memory Used:
267 pages
Comp lation Complete

¢+

O data words

v3-555

SEG@ 0233
Page
89

SPIDERS$USERS: (NEALE.AZTEC)ZRCHBS.B16;4
’

(24,

B3
ZRCHBO RC2S DISK FORMATTER
0001

MODULE

ZRCHB7

(s#TITLE
IDENT =

0003

23 Sep-1983

ADORESSING _MODE

0005

BEGIN

0007
0008

#SBYTL

0010
0011
0012
0013
0014
0015
0016
1505
1506
1507
1508
1509

[]

13:51:39

14:16:03

950 0234
VAX-11 Bliss 16 V3 555
SPIDERSUSERS: [NEALE,AZTEC JZRCHB7. 816;2 (t)

(RELATIVE),

(NOEIS))

1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

ADDRESS

AND

SETUP

SECTION’

Pretty Declarations

§<blf/lo~ercose-hey>

[]

LIBRARY

ZRCHBO'
;

‘Define RC2S Formatter

REQUIRE

'BLSMAC.REQ'
;

'Vef ine Bliss macro reauire

library
file

!
!

The LASTAD macro must be the final statement (except .end) 'n
gram.
The call generates an even address reflecting the first

memory

unused by

the program.

a
opro
word of

LASTAD
*

1510
1511
1512

'LAST

]

D IB IB B IR B IG ID ID 1D B I D I 1D ‘DI ID 'S D I0 D ID IV D I ID IO ' W D B ¢

G¢

B¢

€0

S Apr-1984

ZRCHBO RC2S DISK FORMATTER®
‘REV B PATCH 00,

ENVIRONMENT

ZRCHB?

Hardcoded P

TABLES

These optional hardwere P TABLES are located
(when
present)
between
the
°‘LASTAD” macro and the “.END” statement.
These hardware P-TABLcS
are above and beyond the default hardwere P-TABLE located in the
main
body
of the program.
These P-TABLES wind up appended to the BIN file
ut’'li ty
of the diagnostic, just as though the supervisor or the
"SETUP”
had
built them there.
Thus the disgnostic cen be "pre-parameteri’ed’

the

programmer.

If this hardcoded P _TABLE section is not wanted then def ne "number’
the BGNSETUP macro to zero and omitt BGNTAB and ENDTAB macros.

Coding sample

is as

follows:

LASTAD

BGNSETUP
BGNPTAB
(DATA)
(DATA)
(DATA)
ENDPTAB
BGNP TAB
(DATA)
(DATA)
(DATA)
ENDPTAB

(Number)

Number of

TABLES

C3
ZRCHB

REvV

H
:
:
:
:
:
:

PAICH 00

1546
1547
1548
1549
1550
1551
1552

H
:
:

1553
1554
1555

ZRCHBO RC2S DISK ¢ ORMATTER
LAST

ADDRESS

!
-

AND

SETUP

S Apr 1984 13:51:39

SECTION

000004

000002

:
i
:
:

PSECT
BLSLAS: : .WORD
. WORD

000004
000000

L$LASTes
T$PTHY ==

000207

SEND.LINK:

000000

1556
1557

(1)

ZRCHB7? ZRCHBO RC2S DISK FORMATTER
/REV B 7/
sxv2¢,
RO
TS$FREE
<<T$FREE <BLSLAS«4>>/2>

TS$FREE : : .WORD

1 word,
depth per

Routine Base:
invocation:
O words

BLSLAS.4
0

LSBTYTL

SEND.LINK

RTS

$xYZ$

LAST

ADDRESS

AND

PSECT

Psect Name

0006

SUMMARY

Words

138 P4

Attributes

LIBRARY

RO,

LCL,

REL,

CON

STATISTICS

File
SPIDE
[NEALE
RSUSE
.AZTEC JZRCHBO.L
RS:
16,2

Total

398

SETUP

SECTION
;

END
ELUDOM

;

> nggfs

SPIDERSUSERS:
[NEALE .AZTECIZRCHB?.816;2

BGNSETUP (0);
H
! No optional P Tables are defined
! within this program,
H
ENDSETLP

000004
000000C

Rout'ne Size:
Maximum stack

14:16:03

ENDSE TUP
.END

LTITLE
.IDENT
000000
000000
000002

Sep-1983

VAX-11 Bliss 16 V3 555

Symbols
Loaded

Percent

Blocks
Read

15C4

D3
ZRCHB ’
REV

B PAICH OO

ZRCHB(O RCCS DISK FORMATTER

(LAST

ADDRESS

AND

SETUP

H
H

SECTION

COMMAND QUAL IFIERS
BLISS

/PDP11/LIST

ZRCHBT.B16

S're:
1 code + 3 data words
Run T 'me:
00:06.5
Elapsed Time:
00:38.1
Memory Used:
99 pages
Comp lat ‘on Complete

S Apr
23

Sep

1984
1983

13:51:39
14:16:03

VAX-11 Blise

16 V3 555

563 0236

Page

SPIDE
(NEALE
RSUSE
,AZTEC)ZRCHB7
RS:
.B1K;:2

(1)

E3
ZRCHB .t xt

Memory

Partition name
Identification
Task
Task

:
:

UIC
attributes:

allocation map
IKB MAO.02
S APR 84
13:53

Page

SEQ 0237

DUMMY
REV B
(300,12)
-HD

Total address windows: 1.
Tashk
mage
size
: 15680. words
Task address limits: 002000 077177
W d'sk

blk

limits:

000002 000077

000076 00062.

sse

Root

segment:

mem

1imits:

002000 077177

1l 'mits:

00000c 000077 000076 0C062.

blk

Memory

allocat.o-

075200

31360.

synopsis:

Section
.

Title

BLK.:{(RW,I,LCL,REL,CON)

AASCOD:(RO,I,LCL,REL,CGCN)
ABSCOD:(RO,I,LCL,REL,CON)

AC$COD:(RO,I,LCL,REL,CON)
AD$COD:(RO,I,LCL,REL,CON)

BL$COD:(RO,I,LCL,REL,CON)

$OMC0D: (RO,D,GBL ,REL ,CON)

ZRCHBZ REV B
ZRCHB3 REvV B

ZRCHB2. 08J;1
ZRCHB3S. 08J;1

ZRCHBA4 REV B

ZRCHB4 .08J;1

ZRCHBS REvV B

ZRCHBS .08J:1

015654 000002 00002.

ZRCHB6 REV B

ZRCHBG. 08J;1

015656 000316 00206.
016174 000106 00070,

BloMUL v3.0
B16SAY v3.0

NEISLB .0LB;4
NEISLB. oLB8;4

ZRCHB6 REV B8

2Z RCHB6
. 0B8J;1

ZRCHBZ REV B8

ZRCHB2 .08J;1

ZRCHBZ2 REv B

ZRCHB2. 08J;1

ZRCHB7 REvV B8

ZRCHB7 .08J;1

002000
002166
003434
003434
005746
005746
015654

000166
001246
002312
002312
007706
007706

00118.
00678.
01226.
01226.
04038,
04038.

000002 00002.

015656 000424 00276.

016302 043072

061374

$PLIT$:(RO,0,GBL ,REL,CON)

264150

$xvZs$

077166

002554

061374 002554
013016

17978.

01388.

05646.

064150 013016 05646.
000010

00008,

077166 000010 00008.

Global

F ile

002000 000000 00000.

002000 001434 00796.

$GLOBS : (RO,D,GBL ,REL ,CON)

:(RO,I,LCL,REL,CON)

Ident

symbols:

ABORT
010572 R
ABO.MS 075604-R
ACTIVE 076240 R
AZFMTR 016302 R

BOOT.F
BOOT.R
BR.LEV
COM.AR

BLS$DIV
BLSLAS
BLSMOD
BLSMUA
BLS$SHF

076034-R
015016-R
064112-R
061374-R

CRLF
CTO.WA
DATETX
DATMSG
DECODE

DFPTBL
DMSA
DUMMY
DUPSI.

065016-R
010362-R
064046 R
075412-R
006352-R

002140-R
016342-R
015654-R
007436-R

DSPCNT
EMSG.S
ERRBLK
ERRMSG
ERRNBR

002122-R
071030-R
002134-R
002132-R
002130-R

016102-R
077166-R
016114-R
015656 R
016126-R

ERRTYP

002126 R

FMTA
FMTS
FMT6
FMT?

-R
076416
-R
064062
064150-R
-R
064156

GET, cM
GET. o]V
GET, NR
GET, NS
GOOD N 075742
-

EX.LOC 012004 R
EX.SUP 011366
-R
-R
F(CT.BU 062332

FCT.RE
FLG.WR
FMT1
FMT2
FMT3

-R
064246

GPs1
GPs2
GPs3
GP$a
GP$5
HUSA
HEAD.A

HW.BR.
HW. IP,

MW,

002140

DDDDDOD

Disk

ZRCHBZ2

DDDODOVD

.
.
.
.

076476 R
-R
076534
076572 R
076630-R

002146 R
-R
002142
076322-R
-R
015256
014540 R

3
ZRCHB
. E xE
ZRCHBC

ISD.ST
IS.TIM
LOAD.F
LOAD.O
LUN

L$ACP
LSAPT
L$AY
L $AUT
L$AUTO
Ls$CCP
L$CLEA
L$CO
L $OEPO
L$DESC
L$DESP

L$DEVP

sses

Memory

064130-R
014550-R
-R
005746
006172-R
-R
064074
002110-R
-R
002036
-R
003424
002070 R
-R
003346
-R
002106
003400 R
002032 R
002011 R
002166 R
002076 R
-R
002060

Task

file ref erences:

Size of work

-R
LSHPTP 002022
L $HROL 002250-R
L$HW
002140-R
-R
L$HWLE 002136
-R
LSICP
002104
-R
LSINIT 003334
-R
L$LADP 002026
L$LAST 077172-R
-R
L$LOAD 002100
-R
LSLUN
002074
L$MRE
v 002050-R
-R
L $NAME 002000
-R
L $NOHR 002316
L $NDHW 002150 R
L $NDSF 002330-R
-R
L $NDSW 002156
-R
L$PRIO 002042

statis tics:

Work
file
reads:
Work
f'le writes:
S'ze of core pool:

Elapsed

-R
002124
-R
002116
-R
002040
-R
002034
003412-R
002072-R
-R
002214
-R
002052
-R
002044
-R
002126
-R
002102
-R
002046
-R
002064
-R
002066
-R
002252
002120 R
-R
002016

L$DISP
L$DLY
L$DTP
L$DTYP
L$DU
L$DUT
LSOVTY
LSEF
LSENVI
LS$ERRT
LSETP
L$EXP1
L$EXP4
L$EXPS
L $HARD
LSHIME
L $HPCP

builder

Total work

TKB M40.02
allocation map
13:53
5- APR 84

file:

0.
0

15303.

3é16. words (12. peages)

c304.

t me:00:00: 33

words

(9.

pages)

Page

SEQ 0238

L$PRQOT
L$PRT
L$REPP
LS$REV
LSRPT
LS$SFTL
LS$SOFT
L$SPC
L$SPCP
L$SPTP
L$STA
L$SW
LS$SWLE
LS$TEST
LSTIML
LSUNIT

002160-R
002112-R
-R
002062
002010-R
-R
002334
002320-R
-R
002322
-R
002056
002020-R
-R
002024
002030-R
-R
002154
002152 R
-R
002114
-R
002014

002012-R
MSGADR 063334
-R

NEX.FL
NO.ADD
NRD. SL
NSD. SL
NXT.CR
ON.LIN
OUTSST
OVSA

-R
064064
-R
075444
-R
064104
064102-R
06407C-R
014162-R
-R
064024
-R
064066
067030-R
-R
064714
-R
064076
-R
076164
076116-R
064116-R

PFE.ST
PID.FM
PID.SA
PORT.I
PROTO.
PTBL.P
PW
,R
MS 075522-R
RC.STR 074364
-R
-R
RC2S5.A 064106

RECELV
REC.BU
REC.DA
REC.EN

-R
061446

063332-R
-R
013056
-R
061452
RET.EN 064044
-R
RET,ST 064072 R
RINGBA 061404 R

RSVD.S 064120 R
SOUP .S 074716-R
SEND.D 012316-R
SEND.R 061450-R
SET.CN 013616 R
-R
SFPTBL 002154
SMSCP. 075360-R
. BU 063712 R
SND
SND.EN 062052 R
-R
SW.Q1. 076666

076732-R
SW.Q3. 077022 R
SW.Q4. 077106-R
-R
SW.UNA 002154
T0.MAN 075664
-R
T$FREE 077172-R
T$PTHY 000000
Tl
005732-R
-R
UNIT.N 064114
VEC.AD 064110-R
XCRLF
-R
065022
$END.L 077174
-R
$SAVER 016174
-R
$SAVE3 016210-R
$SAVE4L 016226
-R
$SAVES 016246 R
SW.Q2.

DuUMMY

DUPSI.
D$PCNT
EMSG.S
ERRBLK
ERRMSG
ERRNBR
ERRTYP
EX.LOC
Ex.SUP
FCT.BU
FCT.RE
FLG.WR
FMT]1
FMT2
FMT3

FMT4

015654 -R

007436-R
002122-R
071030 R
002134-R
002132-R
002130 R
002126 R
012004-R
011366-R
062332-R
076416-R
064062
-R
064150-R
064156

R
064246
-R

064354
-R

FMTS

064440

FMT6

064550
-R

FMT?

GET.CM
GET.DU
GET.NR
GET.NS
GOOD.N
GPs1

064646

006264
-R
011070 R
006144 R
006116-R
075742 R
002252 R

GPs2

002262 -R

HEAD.A

061444-R

GPs$3
GPs4
GPs$5
HDSA

002272-R
002304 -R
002322-R
016302-R

OO
HOHOOHOOGO

077166-R
016114 R
015656-R
016126 R
076034 R
015016-R
064112-R
061374 R
065016
-R
010362-R
064046-R
075412-R
006352-R
002140-R
016342-R

0HO0HO0G

BLSLAS
BLSMOD
BLSMUL
BLSSHF
BOOT.F
BOOT.R
BR.LEV
COM.AR
CRLF
CTO.WA
DATETX
DATMSG
DECODE
OFPTBL
DMSA

016102-R

ZRCHBA

BLSDOIV

010572 R

075604 R
076240-R
016302-R

ABO.MS
ACTIVE
AZFMTR

ON % APR 84 AT

13:53

PAGF
CREF

5EQ 0239

1
Vo2

REFERENCES. ..

ABORTY

VALUE

VOOOHOLOHOHLOO

SYMBOL

Tk8

CROSS REFERENCE

000UV

GLOBAL

CREATED BY

ZRCHB

ZRCHBZ2
ZRCHB2
ZRCHB3

B8l16MA

ZRCHB7?
Bl6MUA
81leMUL
B16MUL
ZRCHB2
ZRCHB4
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBS
ZRCHB2
ZRCHB2
ZRCHB3
ZRCHB2
ZRCHBS

ZRCHB6

ZRCHBA
ZRCHB2
ZRCHBZ2
ZRCHB2
ZRCHB2
ZRCrB2
ZRCHB?2
ZRCHB4
ZRCHB4

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2
ZRCHB2

ZRCHBS
ZRCHBA
ZRCHBS
ZRCHBS
ZRCHB2
ZRCHB3

& ZRCHBS
ZRCHB3
ZRCHBA
ZRCHBS

ZRCHB3

ZRCHBS

ZRCHB4
& ZRCHBS
ZRCHB3
ZRCHBS
ZRCHBZ

ZRCHBA

ZRCHB3
ZRCHB3
ZRCHBA

ZRCHBA
ZRCHBA
o ZRCHBS

ZRCHBS

ZRCHB2

& ZRCHB6
& ZR(CHBS
ZRCHBS

& ZR(CHBS
¢ ZRCHBS

ZRCHB4
ZRCHB4
ZRCHB3
ZRCHBA
ZRCHB3
ZRCHB3
ZRCHES
ZRCHB4
ZRCHB4
ZRCHBA

¢ ZRCHBS

ZRCHBZ

ZRCHB3

ZRCHB3
ZRCHB3
ZRCHB3

& ZRCHB6

ZRCHBS

ZRCHB4

SYMBOL

VALUE

HW.BR.

002144 R
002140-R
076476 R
-R
076534
076572-R
076630-R
-R
002146
002142 R
076322 R

HW.UNI
HW.VEC

INACTI
INIT.C
INTSI.
ISD.sT
IS. TIM
LOAD.F
LOAD.O
LUN
LSACP

J
X
LA K- R XK NN N

HW. ..,

-R
015256

014540
064130
014550
005746
006172
064074

LSAPT

LSAY
L$AUT
L$AUTO
L$CCP

LSINIT

LSLADP

OGO HG
O
$0V0OO0O0HG
0000000

L$ICP

L $DESC
L $DESP
L$SDEVP
LSDISP
LSDLY
L$OTP
LS$DTYP
L$DV
LsDUT
LSDVTY
LSEF
LSENVI
L $ERRT
LSETP
L$SEXP]
LSEXP4
L SEXPS
L $HARD
L$SHIME
L $HPCP
LSHPTP
L $HROL
LS$HW
LSHWLE

002032 R
002011-R
002166
-R
002076 R
-R
002060
002124
-R
00211€ R
002040 R
-R
002034
003412-R
002072-R
-R
002214
002052
-R
002044
-R
-R
002126
002102
-R
-R
002046
002064
-R
002066 R
-R
002252
002120-R
0020°.5-R
-R
002022
-R
002250
002140-R
002136
-R
-R
002104
-R
003334
-R
002026

LSCLEA

Ls$CO
L$DEPD

ON 5

APR

13:53

PAGE

CREF

REFERENCES.,
..

DODDDVOD

HW.IP.
HW.QL.
HW.Q2.
HW .03,

TKB

CROSS REFERENCE

GLOBAL

CREATED BY

SODOOG

ZRCHB

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBA
ZRCHBY
ZRCHB2
ZRCHBS
ZRCHB3
ZRCHBS
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCrHB2
ZRCHB2
ZRCrHB2
ZRCHBZ
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2
ZRCHB2
ZRCHB2
ZRCHB3
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBR

ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB4
¢ ZRCHBS
2 ZRCHBS
ZRCHB3

ZRCHBA

¢ ZRCHBS

ZRCHB3

¢ ZRCHB3
& ZRCHB3
¢ ZRCHB3
¢ ZRCHB3

ZRCHBS
@ ZRCHB3
¢ ZRCHBY

¢ ZRCHB3

o ZRCHB3

ZRCHB4

ZRCHBS

5€EQ 0240

voe

13
ZRCHB
GLOBAL

CREATED By

VALUE

LSLAST
L $LOAD
LSLUN
LSMREV

077172-R
002100 R
002074 R
-R
002050
-R
002000
-R
002316
002150 R
-R
002330
-R
002156
002042 R
002160 R
002112 R
002062 R
002010-R
002334 R
002320 R
-R
002322
-R
002056
002020 R
002024 R
-R
002030
-R
002154
-R
00215
-R
002114
-R
002014
002012
-R
-R
063334
064064
-R
075444
-R
064104 R
064102
-R
064070-R
014162-R
-R
064024
-R
064066
067030-R
064714-R
064076
-R
076164
-R
076116-R
064116-R
075522
-R
074364
-R
-R
064106
-R
061446
063332-R
013056-R
061452-R
-R
064044
064072-R
061404 R
064120 R

L $NOHR
L $NOHW
L $NDSF
L SNDSW
LS$PRIO
L$PROT
L$PRTY
L SREPP
L$REV
LSRPT
LSSFTL
LS$SOFT
L$SPC
L$SPCP
LSSPTP
LSSTA
L$SW
LSSWLE
LSTEST
LSTIML
LSUNIT
MSGADR

NEX.FL

NO.ADD
NRD.SL
NSD. SL
NXT.CR
ON.LIN

ouUTs$ST
OVSA
PFE.ST
PID.FM

PID.SA
PORT.I
PROTO.

PTBL.P
PW
.R
MS
RC.STR
RC2S.A
RECEIV
REC.BU
REC.DA
REC.EN
RET.EN
RET.ST
RINGBA
RSvD.S

ON S5

APR

13:53

PAGE

CREF

CROSS REFERENCE

SYMBOL

L $NAME

TkB

REFERENCES...

&
9
@
¢
¢
&
¢
&
¢
¢
¢
@
@

ZRCHB2

& ZRCHB7?

ZRCHB2

& ZRCHB3

ZRCHB2

& ZRCHB3

ZRCHBZ2
ZRCHBZ
ZRCHB2
ZRCHB?2
ZRCHB3
ZRCHB2
ZRCHB3
ZRCHBZ2
ZRCHBZ2
ZRCHBZ2
ZRCHB2
ZRCHBZ
ZRCHBR

¢ ZRCHB3
¢
@
&
@
@
¢
¢
@
&
¢
¢
€
¢
¢
@

ZRCHBZ2
ZRCHB2
ZRCHBZ2
ZRCHBZ2
ZRCHBZ
ZRCHBZ2
ZRCHBZ2
ZRCHBZ
ZRCHBZ
ZRCHBZ2
ZRCHB2
ZRCHBZ2
ZRCHBZ2
ZRCHBZ2
ZRCHBZ2

€
¢
@
&

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2

ZRCHB4A

& ZRCHB2
¢ ZRCHB2

&
¢
®
¢
¢
@
®

&
¢
@
¢
¢

ZRCHBZ2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

ZRCHB4

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2

ZRCHB3
ZRCHB4
ZRCHBA
ZRCHB3
ZRCHB4S
ZRCHB4
ZRCHB4

& ZR(CHBS

ZRCHBS
ZRCHB3
ZRCHBS
ZRCHBS
ZRCHBA
ZRCHB4

ZRCHBA
ZRCHB3
ZRCHB3
ZRCHBS
ZRCHB3
ZRCHBS
ZRCHBA

@& ZRCHBS

ZRCHBS
ZRCHB4
ZRCHB4
ZRCHBS

ZRCHBS
ZRCHBS
ZRCHBS
ZRCHBS

ZRCHBS
ZRCHBS

ZRCHBA
ZRCHBA
ZRCHBS

ZRCHBS
ZRCHBS

ZRCHBS

SEQ 0241

Vo2

J3
ZRCHB

CREATED BY

TKB

ON S APR 84

13:53

PAGE

GLOBAL CROSS REFERENCE

ZRCHB2
ZRCHBA
ZRCHBZ2
ZRCHBA
ZRCHB?2
ZRCHBZ
ZRCHB2
ZRCHB2
ZRCHBZ
ZRCHB2
ZRCHBZ2
ZRCHBZ2
ZRCHBZ2
ZRCHB2
ZRCHB7
ZRCHB?
ZRCHBS
ZRCHB?
ZRCHB2
ZRCHBR
ZRCHB7?
B16MUL
B16SAV
B16SAvV
B16MUL

ZRCHBS
ZRCHBS
ZRCHBS
ZRCHBS
ZRCHBS
ZRCHB4
ZRCHBS
ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3
L

T$FREE
TSPTHV
T1
UNIT
N
VEC.AD
XCRLF
$SEND.L
$SAVER
$SAVE3
$SAVEQ
$SAVES

074716-R
012316-R
061450-R
013616 R
-R
002154
075360-R
063712-R
062052 R
-R
076666
076732 R
077022-R
077106 R
-R
002154
-R
075664
077172 R
000000
005732-R
-R
064114
064110 R
065022 R
-R
077174
-R
016174
016210 R
016226
-R
016246-R

D000 O0NHLOOOG

SOUP .S
SEND.D
SEND.R
SET.CN
SFPTBL
SMSCP
.
SND .BU
SND.EN
SW.QG1.
SW.Q2.
SW.Q@3,
SW.Q4.
SW.UNA
TO.MAN

REFERENCES.
..

00O

VALUE

SYMBOL

CREF

ZRCHB?
ZRCHB4
3
ZRCHB
ZRCHB3
ZRCHB3
B16SAvV
ZRCHBA
ZRCHBS
B16SAV

ZRCHBS

ZRCHB4

ZRCHB4
ZRCHBA

ZRCHBS
ZRCHBS

ZRCHBZ
ZRCHBS

ZRCHBS

SEQ 0242

vo2