Digital PDFs

AH-T975B-MC

October 1985

81 pages

Original

44MB

view download

OCR Version

60MB

view download

Document:	CZDRVB0 DRV11-WA DRV11-WA DMA INTERFACE OCT 1985 bw
Order Number:	AH-T975B-MC
Revision:	000
Pages:	81
Original Filename:	CZDRVB0__DRV11-WA__DRV11-WA_DMA_INTERFACE__AH-T975B-MC__OCT_1985_gray.pdf

OCR Text

DRV11-WA

DRV11-WA DMA INTERFACE

CZDRVBO

AH-T975B-MC

Enanan

MADE IN USA

10F1 OCT 1985

e
A >;

SEQ 000

O® I

NDB WM

C-ZORVB-C DRV11-WA DMA INTERFAC MACRO Y05.02
.ENABL
.REM _

Monday 08-Apr-85 16:01

Page 2

LC
IDENTIFICATION

PRODUCT CODE:

AC-T974B-MC

PRODUCT NAME:

CZDRVBO - DRV11-WA DMA INTERFACE DIAGNOSTIC

DATE:

APRIL 1985

MAINTAINER:

COMPUTER SPECIAL SYSTEMS/ISG

MASS.

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE

COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE
COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT
BE PROVIDED OR OTHERWISE MADE AVAILABLEE TO ANY OTHER PERSON EXCEPT FOR
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND

SHOULG NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIARELITY OF ITS SOFTWARE
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 3
SEQ 0002

40
41
42

TABLE OF CONTENTS

N-=-O

LOADING PROCEDURE

PROGRAM START

WV Uit

SOFTWARE SWITCH REGISTER
OPTIONS
CONTROL

ERROR COMMENT

VBUWNFHO
O

EXECUTION TIME

MBUWNNHFO

PROGRAM TEST DESCRIPTIONS
GENERAL
REGISTER TESTS
BYTE ADDRESSING TESTS

[

o
.
e

VOOVOVOOVOOVOOY

REQUIREMENTS
EQUIPMENT
STORAGE

—Oo®IN
©

ABSTRACT

NNN~NNYd

45
46
47
48
49

STARTING PROCEDURE

ERROR REPORTING

ERROR DATA

MISCELLANEOUS

DRV11-WA BUS & VECTOR ADDRESS MODIFICATION

XXDP/APT NOTES
POWER FAIL

MULTIPLE DRV11-WA INTERFACE TESTING

RESTRICTIONS

‘FNCT*

'STAT’

WRAP AROUND TEST

READY INTERRUPT TEST
NPR DATA TRANSFER TESTS
MAINT MODE NPR DATA TRANSER TESTS

BURST & NON-BURST MODE TESTS
‘NEX'

ERROR CONDITION TEST

Q22 MODE NPR TEST IN MAINT MODE
LISTING

‘.

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 4
SEQ 0003

86
87
88
8%

90
91
92
93
94
95
96
97
98
99

100
i01

102
103
104

1.0

This program was originally written by Hide Nakagawa and
has
been modified by Kevin Liston (KJLOO1) and Robert Lockridge
(RJLOO1).
The DRV11-WA diagnostic program

to test all

2.0

REQUIREMENTS

2.1

EQUIPMENT
1.
2.
3.

106

110
111
112
113
114
115
116
117
118
119
120

383

122
123
124
125
126
127
128
129
130
131
132
133
134

logic

is a series of test designed

funtions and data paths accessible with

the loop back ceble inserted in the user I/0 connectors.
total progran control is accomplished thru the console terminal
via the 0DT/Console microcode and the provisions of Section
S
of this document.
If the system also includes an “REV11“(DMA Refresh),
the DMA refresh MUST BE DISABLED and ~pu refresh must be enabled.

105

107
108
109

ABSTRACT

2.2

PDP-11/03, PDP-11/23, PDP-11/23+,
DLV11 with I/0 type terminal
DRV11-WA with loop back cable

MICRO/PDP-11,

11/73 Computer

STORAGE
The program uses the lower 8K of memory.

3.0

LOADING PROCEDURE
Load the prodram using XXDP+ or any standard absolute loader.

4.0

STARTING PROCEDURE
1.
2.

Make sure the maintenance loop back cable is inserted in
the I/0 connectors on the DRV11-WA module.
Make sure the device bus addresses agree with the
default values defined in section 7.1
if no, change
location(s) as desired via the 'address/’' odt command.
The program will respond by typing the software switch
register contents and allowing the user to change its

contents by entering octal switch register date terminated
by a carriage return - see section 5.0 for switch register
options.

Example:

.R ZDRVBO

MD C-ZDRVB-0 DRV11-WA DMA INTERFACE DIAG
SWR = 000000

NEW = xxxxxx

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 5
SEQ 0004

136
137
138
139

5.0

SOFTWARE SWITCH REGISTER

5.1

OPTIONS

140
141
142
143
144
145
146
147
148

149
150
i51
i52
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

5.2

190

OCTAL

FUNCTION

SW15:1
SWi4:1
SW13:1
SWi2:1
SW1l:1
SW10:1
SW09:1
SW08:1

100000
040000
020000
010000
004000
002000
001000
0004 XX

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
ENABLE DRV11-WA Q22 MODE TEST
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR <7-0>

CONTROL

The software switch register 'SWREG'(LOC.

The software switch register can be changed under program
control by typing the “Control & G” keys.
This

176) can be

changed by using the console ODT facilities.

keyboard operation will print out the current contents
and accept new octal switch register data terminated

with a carriage return.

Once the ODT mode has been entered because of an

error condition with bit 15 set (halt on error), step #2
above is of no value, so resort to step #1 to alter the
software switch register if desired before typing
‘P' (continue).
If the program

‘Control & G'

is performing reset

instructions,

several

commands may be necessary to be acknowledge

by the program.

6.0

ERROR REPORTING

6.1

ERROR COMMENT

176

177
178
179
180
181
182
183
184
185
186
187
188
189

SWITCH

All errors are accompanied with an English language descriptive

comment as to the type of failure.
Further qualificaiton of
the error can be obtained if needed from the comment at the

error PC or from the test
6.2

itself.

ERROR DATA

+«ERRPC
#«TSTNUM
BUSADR
EXPCT
RCVD
ADRS

#ALWAYS REPORTED

Listing address where the error was detected
Test number where the error occurred

DRV11-WA bus reg address of concerned operation
Data that was expected
Data that was received
Memory address of data transfer on error

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 6
SEQ 0005

192
193

195
lgg
1
198
533

L T

7.0
T

1.3

Tsl

207

Use the LSI-11 ODT facilities to modify these locations
after program load.
No vector assignment above 774 should be
allowed.

XXDP/APT NOTES
This diagnostic

is chainable

This diagnostic does support

7.3

212

213
21;
21
216
217

DRV11-WA bus €& vector address modification

#NOTE:

ggg

210
211

e ase
ek esae
s

Modify location '$BASE' if base bus address is not 172410.
Modify location '$VECT1' if vector address is not 124.

201
202
203
204

205
206

MISCELLANEOUS

under

it.

POWER FAIL

7.4

This progrem will

“auto-size”

the number of DRV11-WA's connected.

This diagnostic will test sequentially up to 8 DRV11-WA

with contiguous bus addresses.

222
223

sNOTE:

224

MULTIPLE DRV11-WA INTERFACE TESTING

ggg

24
246

7.5)(Requires 8K or more).

A power failure will cause a restart message on power up,

219

243
24;

(RE.

which time the program is restarted (only on systems with
non-volatile memory and with appropriate hardware).

218

225
226
227
228
229
230
231
2§§
2
234
235
236
237
238
239
2:0
241
242

XXDP

“"APT” and has run under

interfaces

Each of the DRV11-WA‘'s found will be tested using the setting
of SW12 as the default.
Therefore, if you want to test more
than one DRV11-WA,

#ALL# DRV11-WA's must

either Q18 mode

(SW10 of E40 = 0 (off) and SW12 = 0) or Q22 mode
(SW10 of E40 = 1 (on) and SW12 = 1).
If you mix DRV11-WA's
set for Q18 and Q22 mode, the diagnostic will test the modules
using the setting for SW12 as the default and the module(s)
with SW10 of E40 in conflict with SW12 will fail the
diagnostic.

7.5

RESTRICTIONS
If the system also includes an “REV11”"(DMA Refresh), the DMA
refresh must be disabled and CPU refresh must be enabled.

8.0

EXECUTION TIME

Execution time with one DRV11-WA is listed below. An end pass
message indicates all tests have completed on all selected units.
NO ITERATICNS
WITH ITERATIONS

NOTE: MEMORY IS 128KW

Q18 MODE
3 sec
15 sec

Q22 MODE
S sec
15 sec

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 7

SEQ 0006
248

GO9S

250
251
252
253

9.0

T LT

9.1

9.8

e e S

GENERAL

265
266
267
268

1.
2.
3.
4.
S.

g;g

273
2;;
2

S;g
S;g

ggo
1
g:g

9.3

COMMAND/STATUS
DATA BUFFER

'FNCT' to 'STAT' wrap around test
READY Interrupt test

9.6

NPR Data Transfer tests
The following NPR transfers are checked for correct status.

WORD COUNT, BUFFER ADDRESS & DATA;
1.
2.
3.
4.
S.

9.7

294
295
ggg

300
301

DATA BUFFER

9.4
9.3

2
286
287
288
289
ggo
1

ggg

WORD COUNT
BUFFER ADDRESS
EXTENDED BUFFER ADDRESS
COMMAND/STATUS

BYTE ADDRESSING TESTS

1.
2.

2:;

ggg

g:z

Zgg

This diagnostic contains a series of independent test designed
to test logic funtions and data paths of the DRV11-WA DMA interfac
e.
A high degree of testing is accomplished with the aid of the
maintenance loop back cable provided for diagnostic testing.
A complete list of tests is available in the table of contents
at the beginning of the listing.
The comment field within
each test cen be beneficial in test understanding.

254
255
256
257
258
gzg

ggé

PROGRAM TEST DESCRIPTIONS

- FLOATING 1/0 PTRN
- FLOATING 1/0 PTRN
FLOATING 1/0 PTRN
FLOATING 1/0 PTRN

TO THE TTY PRINTER CSR

MAINT MODE NPR DATA TRANSFER TESTS

1.
2.
3.
9.8

SINGLE 'DATI’' XFER
SINGLE 'DATO' XFER
200 '‘DATI' XFERS 200 '‘DATO' XFERS SINGLE 'DATI' XFER

That maint mode controls 'FNCT' bits
200 maint mode xfers - checking status & data
200 maint mode xfers to each 4k available memory

BURST & NON-BURST MODE TESTS

1.
2.

Thet tpu
That cpu

is locked out in burst mode
is not locked out in non-burst mode

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 8
SEQ 0007

303
304
305
306
307
308
309
310
311

|yo—

'NEX'

9.10

Q22 Mode NPR test

1.
2.
3.
10.0

312
313

314
328
329
331
332
335
336
337
338
340
341
342
343
344
345
346
347
349
350 000100
352

9.9

:#
017777
037777
000007
000100
000104
001000

LISTING

000002

MEB
CND

:BASE DRV11WA BUS ADRS EQUATE
:BASE DRV11WA VECTOR ADRS EQUATE ;:DEFAULT TO ONE DRV11WA
;INSTR EQUATE THAT MOVES BYTE TO PSW
;CODE FOR UPWARDS MAP IN MEM MGMT PDR'S
;CODE FOR READ/WRITE IN MEM MGMT PDR'S

MISCELLANEOUS DEFINITIONS

MASK4K= 17777
MASK8K= 37777
MFPT=
7 -

000200

in maint mode

Test if MMU available
Size memory map
Do NPR data transfers to each 8K available memory

.NLIST
.NLIST
$SWR=167400
$TN=1
ABASE=
172410
AVECT1= 000124
ADEVM=
1
MTPS=
106427
UP =
0
RW =
6

167400
000001
172410
000124
000001
106427
000000
000006

error condition test

:uoggo
.=1

:MASK FOR 4K ADDRESS BANK BOUNDARY
;MASK FOR 8K ADDRESS BANK BOUNDARY
:MOVE FROM PROCESSOR TYPE TO RO

104,200,2

:IGNORE IT'S INTERRUPT -JUST DO & RTI

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page ‘9
SEQ 0008

APT MAILBOX-ETABLE

354

001174
001174
001176
001200
001202
001204
001206
001210
001212
001214
001214
001215
001216
001220
001222

.EVEN

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

$MAIL:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$SETABLE:
$ENV:
.BYTE
$ENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

&
1%

%
H
%
%

001224
0C1225

000
000

$MAMS1:
$MTYP1:

.BYTE
.BYTE

AMAMS1
AMTYP1

1%
i &

i %

001226
001230
001231
001232
001234
001235
001236
001240
001241
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306

$MADR1:

.WORD

AMADR1

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD.
.WORD
.WORD
.WORD
.WORD
.WORD

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3

000000
000000

000000

$MAMS2:
$MTYP2:
$MADR2:
$MAMS3:
SMTYP3:
$MADR3;
$MAMSS:
$MTYP4;
$MADRS:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$CDU1:
$COW2:
$DDWO:
$DDW1:
$DDW2:
$DDMW3:
$DDW4:
$DDUS:
$DDW6:
$DDW7:
$DDW8:
$DDW9:

$DDW10:
$DDW11:

AMAMS4

AMTYP4
AMADR4
AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACOW2
ADDWO
ADDW1
ADDW2

ADDW3

ADDW4
ADDWS
ADDW6

ADDW?

ADDW8
ADDW9
ADDW10
ADDW11

:sAPT MAILBOX
: :MESSAGE TYPE CODE

::FATAL. ERROR NUMBER

: s TEST NUMBER
: s PASS COUNT
: sDEVICE COUNT
::17/0 UNIT NUMBER
: sMESSAGE ADDRESS
: sMESSAGE LENGTH
: s APT ENVIRONMENT TABLE
; ;sENVIRONMENT BYTE
: sENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER
;;USER SWITCHES
;:CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/11/45=0
40=04,
5
11/70=06,PDQ=07,Q=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT

: sHIGH ADDRESS,M.S. BYTE
;sMEM. TYPE,BLK#1

MEM.TYPE BYTE
-(HIGH BYTE)
900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC M0S=003

; sHIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE

; sHIGH ADDRESS,M.S. BYTE
: sMEM.
TYPE ,BLK#2
: sMEM.LAST ADDRESS,.BLK#2
; sHIGH ADDRESS,M.S.BYTE
:sMEM.TYPE ,BLK#3
:sMEM.LAST ADDRESS,BLK#3
: sHIGH ADDRESS,M.S.BYTE
:sMEM.TYPE ,BLK#4
s sMEM.LAST ADDRESS,BLK#4
: s INTERRUPT VECTOR#1,BUS PRIORITY#1
: s INTERRUPT VECTOR#2BUS PRIORITY#2
: sBASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
: sCONTROLLER DESCRIPTION WORD#1
: sCONTROLLER DESCRIPTION WORD#2
: s DEVICE DESCRIPTOR WORD#0
: s DEVICE DESCRIPTOR WORD#1
s DEVICE DESCRIPTOR WORD#2
.3sDEVICE DESCRIPTOR WORD#3
: sDEVICE DESCRIPTOR WORD#4
:sDEVICE DESCRIPTOR WORD#S
;sDEVICE DESCRIPTOR WORD#6
::DEVICE DESCRIPTOR WORD#7
:sDEVICE DESCRIPTOR WORD#8
:sDEVICE DESCRIPTOR WORD#9
::DEVICE DESCRIPTOR WORD#10
: sDEVICE DESCRIPTOR WORD#11

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 9-1

SEQ 0009

APT MAILBOX-ETABLE

001310
001312
001314
001316
001320

000000
000000
000000
000000

$DDW12:
$DDW13:
$DDW14:
$DDW1S:
$SETEND:

.WORD
.WORD
.WORD
.WORD

ADDW12
ADDW13
ADDW14
ADDW15

: sDEVICE
: sDEVICE
: sDEVICE
: ;DEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD#12
WORD#13
WORD#14
WORD#15

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10
SEQ 0010

ERROR POINTER TABLE
.SBTTL

ERROR POINTER TABLE

;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
s#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

;*NOTE1L:

;*NOTE2:
ik
EM
i
DH
i
DT
i
DF

001320

$ERRTB:

N01320
001322

001324
001326

023372
024355
024510
00000C

001330
001332
001334
001336

023421
024355
024510
000000

001340
001342
001344
001346

023453
024355
024510
000000

001350
001352
001354
001356

023473
024355
024510
000000

001360
001362
001364
001366

023537
024355
024510
000000

001370
001372
001374
001376

023567
024355
024510
000000

001400
001402
001404
001406

023616
024355
024510
000000

399 001410
400 001412

023643
024355

;ERROR

;:REGISTER TIMEOUT ERROR
;ERRPC
TSTNUM
BUSADR
EXPCT
;$SERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

2
EM2
DH1
ng

;REGISTER READ/WRITE ERROR
;ERRPC
TSTNUM
BUSADR
EXPCT
;$SERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

3
EM3
DH1
ng

;:BUS RESET ERROR
;ERRPC
TSTNUM
BUSADR
:SERRPC TSTNUM
$BDADR

RCVD
$BDDAT

;ERROR

EXPCT
$GDDAT

EM4

;ERROR

TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
TO THE ERROR MESSAGE
TO THE DATA HEADER
TO THE DATA
TO THE DATA FORMAT

EM1
DH1
8T1

DH1.

;ERROR

IF $ITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRPC).

EACH ITEM IN THE
:sPOINTS
: sPOINTS
; sPOINTS
:sPOINTS

EMS
DH1
ng

:FNCT BITS FAILED TO SET STAT BITS

:ERRPC

TSTNUM

;$ERRPC TSTNUM

BUSADR

$BDADR

EXPCT

$GDDAT

RCVD

$BDDAT

;READY INTERRUPT FAILURE
;:ERRPC
TSTNUM
BUSADR
EXPCT
:$ERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

;READY CLR OR SET ERROR
;ERRPC
TSTNUM
BUSADR
EXPCT

$BDADR

$GDDAT

RCVD

;STATUS ERROR ON XFER
;ERRPC
TSTNUM
BUSADR
;$ERRPC TSTNUM
$BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

EM6
DH1
DT1
0

:$ERRPC TSTNUM

$BDDAT

EM7
DH1
ng

EM10
DH1

;:WORD COUNT ERROR ON XFER
;ERRPC
TSTNUM
BUSADR
EXPCT

RCVD

‘

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-1
SEQ 0011

ERROR POINTER TABLE
401
402
403
404
405
406
407
408
409
410

001414
001416

024510
000000

001420
001422
001424
001426

023674
024355
024510
000000

411 001430
412 001432

023726
024417
024524
000000

413 001434
414 001436
415
416
417 001440
418 001442
419 001444
420 001446
421
422
423 001450
424 0C1452
425 001454
426 001456
427
428
429 001460
430 001462
431 001464
432 001466
433
434
435 001470
436 001472
437 001474
438 001476

024510
000000

001500
001502
001504
001506

024256
024355
024510
000000

001510
001512
001514
001516

024315
024417
024524
000000

023755
024417
024524
000000
024002
024464
024542
000000
024050
024464
024542
000000

024236
024355

8T1

;ERROR

;:ERROR

:$ERRPC TSTNUM

EM11
DH1
ng

EM12
DH2
gTZ

EM13
DH2
8T2

EM14
DH3
gTS

$BDDAT

;:BUFFER ADRS ERROR ON XFER
:ERRPC
TSTNUM
BUSADR
EXPCT
; SERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

:DATA ERROR FROM MEMORY
;ERRPC
TSTNUM
BUSADR
ADRS
:$ERRPC TSTNUM
$BDADR
$GDADR

EXPCT
$GDDAT

RCVD
$BDDAT

;:DATA ERROR TO MEMORY
:ERRPC
TSTNUM
BUSADR
;$ERRPC TSTNUM
$BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

ADRS
$GDADR

:SINGLE CYCLE ON LOCKED OUT CPU
;ERRPC
TSTNUM BUSADR
; $ERRPC TSTNUM
$BDADR

EM16
DH1
ng

;NEX LOGIC ERROR
;ERRPC
TSTNUM BUSADR
;$ERRPC TSTNUM
$BDADR

EM17
DH1
ng

EM20
DH2
gTZ

.SBTTL

$GDDAT

;SINGLE CYCLE OFF DID NOT LOCK OUT CPU
;ERRPC
TSTNUM
BUSADR
; $ERRPC TSTNUM
$BDADR

EM15
DH3
gT!

1852888588000

$BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

;CYCLE FAILED TO CLK DBR (IN)
;ERRPC
TSTNUM
BUSADR
EXPCT
:$ERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

;DATA ERROR FROM I/0 PAGE (XCSR)
:ERRPC
TSTNUM BUSADR
ADRS
EXPCT

:$ERRPC TSTNUM

$BDADR

$GDADR

$GDDAT

RCVD

$BDDAT

80 000000000000
tb bbbt bttt bbbbbbbbbbbbbbbb
0kttt
bng

USER DEFINED TAGS

+#THE FOLLOWING TAGS ARE USER DEFINED

1888888888880 08 8488888400 4258 000800080000 00 000000000000 db0itbdis

001520

000000

S$VERPC:

.WORD

:VIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-2
SEQ 0012

001624

S11
s12
513
514

001624
001626
001630
001632
001634
001636
001640
001642
001644
001646
001650
001652
001654
001656
001660
001662

LMAD:
MEMMAP:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

.WORD

000000

;LAST CONTIGUOUS MEMORY ADDRESS (+2)
:MEMORY MAP - EACH BIT CORRESPONDS TO 8K

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

:18T

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
TSTMAP:

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

[-X-2-X-Y-T-F-T-Y-Y-T-Y-T-Y-¥o¥)

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

:2ND

:3RD
:4TH
iSTH
i6TH
s 7TH
:8TH

i9TH

:10TH
+11TH
:12TH
:13TH
:14TH
:15TH
:16TH

WORD MAP...128KW

WORD MAP.. .256KW

WORD MAP...384KW
WORD MAP...512KW
WORD MAP...640KW
WORD MAP...768KW
WORD MAP...896KW
WORD MAP..1024KW

WORD MAP..1152KW

WORD MAP..1280KW
WORD MAP..1408KW
WORD MAP..1536KW
WORD MAP..1664KW
WORD MAP..1792KW
WORD MAP..1920KW
WORD MAP..2048KW

;TEST MAP - WHICH BANKS ARE SELECTED FOR TEST

SAVTST:

.WORD

(= -2-J-J-2-T-F-T-7-¥-T-¥-Y-¥-¥.)

458 001522
459 021524
460
461 001524
462 001526
463 001530
464 001532
465 001534
466 001536
467 001540
468 001542
469 001544
470 001546
471 001550
472 001552
473 001554
474 001556
475 001560
476 001562
477
478 001564
479
480 001564
481 0C1566
482 001570
483 001572
001574
001576
001600
001602
001604
001606
001610
001612
001614
001616
001620
001622

=X-1-1-Y-F-J-Y-J-Y-Y-Y-F-T-T-To]

USER DEFINED TAGS

$1ST
:2ND
:3RD
14TH

:STH
i6TH
:7TH
:8TH
i9TH
:10TH
+11TH
:12TH
:13TH
:14TH
:15TH
:16TH

WORD
WORD
WORD
WORD

MAP...128KW
MAP...256KW
MAP...384KW
MAP...S512KW

WORD MAP...640KW
WORD MAP...768KW
WORD MAP.
. .896KW
WORD MAP..1024KW
WORD MAP..1152KW
WORD MAP..1280KW
WORD MAP..1408KW
WORD MAP..1536KW
WORD MAP..1664KW
WORD MAP..1792KW
WORD MAP..1920KW
WORD MAP..2048KW

:SAVED TEST MAP - USED DURING FIRST PASS ONLY
+ TEST EACH BANK ONCE.
$1ST
WORD MAP.
. .128KW
:2ND
WORD MAP.
. .256KW
:3RD
WORD MAP.
. .384KW
i4TH
WORD MAP...S12KW
iSTH
WORD MAP.
. .640KW
i6TH
WORD MAP...768KW
s 7TH
WORD MAP...896KW
:8TH
WORD MAP..1024KW
19TH
WORD MAP..1152KW
:10TH
WORD MAP..1280KW
i11TH
WORD MAP..1408KW
:12TH
WORD MAP.
. 1536KW
:13TH
WORD MAP..1664KW
:14TH
WORD MAP..1792KM
:15TH
WORD MAP..1920KW
+16TH
WORD MAP..2048KW

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-3
SEQ 0013

USER DEFINED TAGS
515
516
517
518 001664
519 001666
520 001670
521 001672
522 001674
523 001676
524 001700
525 001702
526 001704
527 001706
528 001710

529

.LIST
SEQ
.NLIST
MEB
.NLIST CND
$MMAP:
.WORD
$TMAP:
.WORD
$TTST:
.WORD
$TBAR:
.WORD
$TBAE:
.WORD
FLG30K: .WORD
TEMP:
.WORD
LSIFLG: .WORD
LSIQ22: .WORD
FSTPAS: .WORD
MMAVA:
.WORD

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

O
O
O
O
O
O
O
O
O
O
O

sMEMMAP ADDRESS ENTRY
s TSTMAP ADDRESS ENTRY
:TEST MAP BIT
:DRVBAR
:DRVBAE
:30K MEMORY FLAG
: TEMPORARY STORAGE
;LSI-11 PROCESSOR FLAG
122-BIT CPU SUPPORT FLAG
sFIRST PASS FLAG
sMEMORY MANAGEMENT AVAILABLE FLAG.

tBIT

ggg

ggg
534
535
536
537
gg:

:DRV11KWA
001712
001714
001716
001720
0C1722

172410
172412
172414
172416
172412

DRVWCR:
DRVBAR:
DRVCSR:
DRVDBR:
DRVBAE:

ag
000124
000126

DRVCTO:
DRVCT2:

55:2

MMU AVAILABLE

22 BIT ADDRESSING AVAILABLE

BUS REGISTER ADDRESS POINTERS
172410
172412
172414
172416
172412

:DRV11KWA

542 001724
sS:: 001726

547
548
549
ggg

0 =1

:8IT 15 = 1

1KJLOO1

sWORD COUNT
:BUFFER ADDRESS
s COMMAND/STATUS
:DATA BUFFERS
;EXTENDED BUFFER ADDRESS

1KJLOOL

VECOTR ADDRESS POINTERS
124
126

sREADY, NEX & INCOMPLETE DATIO VECTOR
sNEW PSW ON INTR

;COMMON PROGRAM LOCATION(S)
001730
001732
001734
001736

000000
000001
000000
025224

TSTNUM: 0
DMAP:
1
CORSZ:
O
DBUFP:
DBUF

552
554 001740
555

000005

START:
.SBTTL

001742
001746
001750
001754
001756

012706
005026
022706
001374
012706

001100

001762
001770
001776
002004
002012
002020
002026
002034
002042
002046

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037

016430
000340
015430
000340
023312
000340
017630
000340
001160
001162

001100

001140

000020
000022
000030
000032
000034
000036
000024
000026

;CONTAINS TEST NUMBER ON ERROR
:DEVICE MAP - EACH BIT SET TESTS ONE DRV11iWA
sCONTAINS 1ST NON-EXISTANT MEM ADRS
sCONTAINS CURRENT 4K NPR BUFFER ADRS

.SBTTL PROGRAM START
RESET
s INITIALIZE DRV11WA BEFORE TESTING
INITIALIZE THE COMMON TAGS

33CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
@$CMTAG,R6
$3sFIRST LOCATION TO BE CLEARED
CLR
(R6)+
+ sCLEAR MEMORY LOCATION
CMP
OSWR,R6 ;;DONE?
BNE
.6
+:LOOP BACK IF NO
MOV
#STACK,SP
13SETUP THE STACK POINTER
ssINITIALIZE A FEW VECTORS
MOV
#$SCOPE, ¢IOTVEC ;;:IOT VECTOR FOR SCOPE ROUT I'E
MOV
#340,80I0TVEC+2 ;;LEVEL 7
MOV
@S$ERROR, GPEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,00EMTVEC+2 ;;LEVEL 7
MOV
#$TRAP ,00TRAPVEC ; ;TRAP VECTOR FOR TRAP CALLS
MOV
#340,84TRAPVEC+2;LEVEL 7
MOV
#$PURDN, 80PWRVEC ; ;POMER FAILURE VECTOR
MOV
#340,00PURVEC+2 ;;LEVEL 7
CLR
STIMES
$ s INITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
#3CLEAR THE ESCAPE ON ERROR ADDRESS

1KJLOOL

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-4
SEQ 0014

INITIALIZE THE COMMON TAGS
032052
032060
002066

002074
002100
002106
002114
002122
002130

002132
002134
002140
002142
002150
002156
002162
002166
002174
002176
002204
556 0C2204
557 0C2210
558 002214
559 002216
560 002222
561 002230
562 002234
563 002236
564 002244
565 002252
566 002260
567 002264
568 002272
569 002300
570 002306
571 002220
572 002312
573 002316
574 002322
575 002326
576 002332
S77 002336
S78 002342
579 002344

580 002350
581 002354

112737

012737
012737

013746

012737

012737
012737

022777

001012

000403
012716
000002
012737
012737
012637
005037
132737

001403
012737

004737
005737
001402
004737
012737
005737

001024

013737
013737
013737
004737
013737
013737
013737
000416
000005
004737
004737
005037
004737
004737
005037
104406
004737
012706
012737

000001
002060
002066

000004
002134

177570
177570
177777

001115
001106
001110

MOVB
MOV
MOV

@1, SERMAX
@.,3LPADR
@.,SLPERR

MOV
MOV
MOV

S0ERRVEC, -(SP)
;;SAVE ERROR VECTOR
©30000$, 99ERRVEC
:3SET UP ERROR VECTOR
QDSWR, SWR
:3SETUP FOR A HARDWARE SWICH REGISTER

CMP
BNE

@-1,85WR
300024

:3TRY TO REFERENCE HARDWARE SWR
: sBRANCH IF NO TIMEOUT TRAP OCCURRED

BR
30000 : :$¥

30001
300014, (SP)

:sBRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

30001¢: MOV
MOV
300028: MOV
CLR
BITB
BEQ

¢SWREG, SWR
: :sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+,8QERRVEC
;;RESTORE ERROR VECTOR

001140

001142
177010

000176
000174
000004
001202
000200

001215

001216

001140

001140
001142

MOV

—

000176
000200
000202
022366
022736
022740
022742

022746

022736
022740
022742

002362
002366
002370

005227
001052

104401

002436

002374

005737

000042

177777

; :CLEAR PASS COUNT

;;TEST USER SIZE UNDER APT
:s YES,USE NON-APT SWITCH

PC,SETREG
FSTPAS

:SET UP THE DEFAULT REGISTER ADDRESSES
;IS THIS THE FIRST PASS??

BEQ
JSR
MOV
TST
BNE
MOV

1s
PC,RSTVEC
4WORK1,VECTOR
$SIZE
2
176,5AV176

MOV

202, S5Av202

MOV
MOV
BR
RESET
JSR
JSR

JSR
CLR
GTSHR
START1: JSR
MOV
MOV

.SBTTL

THE HARDWARE SWR IS NOT = -1

JSR
TST

CLR
JSR

022746

:sAND

:sNO,USE APT SWITCH REGISTER

JSR
MOV

2%:
CSTART:
.

$PASS

@APTSIZE,SENVM
30003

;;AND A HARDWARE DISPLAY REGISTER

#$SWREG, SWR

MOV

000176
000200
000202

023216
012474
001706
023226
012474
001202
023226
001100
022750

1s:

@DDISP,DISPLAY

MOV

023226
001706
012474
022750
022744

s INITIALIZE THE LOOP ADDRESS FOR SCOPE

i s SETUP THE ERROR LOOP ADDRESS

$3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
+3EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

000004

002142

:sALLOW ONE ERROR PER TEST

;:BR IF YES
:SET UP VECTORS
;SET UP THE TABLE VECTOR ADDRESS
:HAVE WE SIZED FOR & OF DRVil's YET?
;:BR IF YES
:SAVE THE SOFTWARE SWR

200, SAV200

:SAVE ADDRESS 200

PC,DRVSIZ
SAV176,176

:SIZE THE AVAILABLE DRVi1‘s
;RESTORE THE SOF TWARE SWREG

SAV200,200
SAV202,202
START1

PC,WSTTIM
PC,RSTVEC

FSTPAS
PC,SETREG
PC,RSTVEC
$PASS

PC,SETREG

#STACK,SP
#WORK1,VECTOR

:SAVE ADDDRES 202

:RESTORE ADDRESS 200
;RESTORE ADDRESS 202
:SKIP CONTROL-C RESTART
;CONTRO-C
L RESTART HERE
;WASTE SOME TIME SO WE DON'T GET A *
;RESTORE THE VEC FOR UNIT UNDER TEST

s INITIALIZE FIRST PASS FLAG AGAIN
;RESET DEFAULT REGISTER ADDRESSES

;RESTORE THE VEC FOR DEFAULT
;:CLEAR THE PASS COUNT
;CHECK SW SWITCH REGISTER
;RESET DEFAULT REGISTER ADDRESSES
;RESET THE STACK POINTER
;SET UP THE VECTOR TABLE ADDRESS

TYPE PROGRAM NAME

:: TYPE THE NAME OF THE PROGRAM IF FIRST PASS

.SBTTL

INC
@-1
:sFIRST TIME?
BNE
30004
: iBRANCH IF NO
TYPE
+ 30005
i s TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
42
’
i :ARE WE RUNNING UNDER XXDP/ACT?

;RJLOO1
;KJLOO1
;RJLOOL
;RJLOO1
;RJLOOL
;RJLOO1
;RJLOOL
;RJLOOL
;RJLOO1L
;RJLOOL
;RJLOO1
;RJLOOL
;RJLOO1
;RJLOO1
;KJLOOL
sKJLOOL
;RJLOO1

;RJLOOL

;KJLOO1
;RJLOO1
;RJLOOL
sKJLOO1
:KJLOO1
;RJLOO1
;RJLOO1
;RJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-5

SEQ 0015

GET VALUE FOR SOFTWARE SWITCH REGISTER
032400
002402

002410
002412
002420
002422
002424
002426
002434
002434

584

001012
123727
001406
023727
001005
104406
000403
112737

001214

000001

001140

000176

000001

001134

000427

002514

002530
002532
002536
002542
0C2550
002556

597 002564
598 002572
599 002600
600 002602
601 002610
602 002612
603 002616
604 002620
605 002624
606 002630
607 002632
608 002636
609 002642
610 002650
611 002654
612 002660
613 002666
614 002672

615 002674

624

625

626
€27
€28

30004¢

: sGET OVER THE ASCIZ

.ASCIZ

1 sBRANCH IF YES
i ;ARE WE RUNNING UNDER APT?

: sBRANCH IF YES
: s SOFTWARE SWITCH REG SELECTED?
s sBRANCH IF NO
:3GET SOFT-SWR SETTINGS

<CRLF>s MD C-ZDRVB-0 DRV11-WA DMA INTERFACE DIAG #<CRLF>

;LET'S SEE HOW MUCH MEMORY WE HAVE

590 002526

€23

30006$
SENV, 01
30006
SWR, #SWREG
30007¢

;;‘ttt‘.ttc‘t‘.t‘t.tttttt‘tttt“.‘.‘ttt‘ttt.t‘tttt.t“tttt

587
588 002514
589 002520

622

::SET AUTO-MODE INDICATOR

300045:

586

616
617
618
619
€20
621

30007
#1,3AUTOB

; :30005% :

585

591
592
593
594
595
596

30006%:
30007s:

BNE
CMPB
BEQ
cMP
BNE
GTSWR
BR
MOVB

002702
002710
002712
002716
002722

‘ttt.‘t

R LR
PPy YT T I
IrrITrIIY

012700
012737
005720
000776
042700
010037
012737
012737
012737
013737
042737
001406
032737
001002
00C137
000005
004737
005737
001007
104401
004737
012737
106427
012706
013737
013700
006300
013760
022737
001405
104401
013746
104405

020000
002532

000004

017777
001734
000006
025224
000000
001252
177400

000004
001736
001206
001732
001732

000001

0Ci732

012044

023216
001706
024107
013560
000001
000200
001100
001206
001206

001712

000001

025124
001206

001706

001204

001260

001252

CORSZR: MOV
MOV
1s:
TST
BR
2%:
BIC
MOV
MOV
MOV
MOV
MOV
BIC
BEQ
BIT
BNE
JMP
RESTRT: RESET
JSR
1s:
TST
BNE
TYPE,
JSR
MOV
2%:
MTPS
MOV
MOV
MOV
ASL
MOV
CMP
BEQ
TYPE
MOV
TYPDS

€020000, R0
;USE RO TO LOOK
2%, 9QERRVEC
:SET UP TIME OUT RETURN ADRS
(RO«
;:TAKE A LOOK
1$
;UNTIL TIMEOUT
#017777,R0
;POINT TO 1ST NON-EXSISTANT 4K BLK
RO,CORSZ
:SAVE FOR LATER
9ERRVEC+2,9¢ERRVEC
;RESTORE VECTOR
#DBUF ,CBUFP
sINITIALIZE TO LOWEST 4K
@0, SUNIT
:SET UP UNIT COUNT
$DEVM, DMAP
+SET _THE ¢ & POSITION OF DRV1iWA'S
#177400,DMAP
sUP TO 8 ONLY
RESTRT
;S0 CONTINUE AS IF SOMETHING WAS SELECTED
@1,0MAP
;IS 1ST DRV11WA SELECTED?
RESTRT
.BR IF SO
NXDEV1
NO - SO ADVANCE BASE DRV11WA ADDRESSES
CLEAR THE REGISTERS
;RJLOC1
PC,WSTTIM
.HASTE SOME TIME SO WE DON‘T GET
A " “
;RJLOO1
FSTPAS
;TEST IF FIRST PASS OR AFTER CONTROL-C
;KJLOO1
23
;:BRANCH IF NOT
:KJLOO1
WARN
sTELL THE OPERATOR TO TURN OFF DMA REFRESH
PC,ASKQ22
;ASK IF CPU SUPPORTS 22-BIT ADDRESSING
;KJLOO1
€1 ,FSTPAS
.NO LONGER FIRST PASS
:KJLOO1
4PR4
:SET PRIORITY TO HIGHEST LEVEL
#STACK,SP
;ALWAYS RESET STACK PTR
SUNIT, SDEVCT
;LOAD APT COUNTER
$UNIT,RO
;MAKE AN INDEX
RO
i VALUE
DRVWCR, $DDWO(RO)
:SAVE THE BUS ADDRESS
#1,3DEVM
;ONLY ONE DEVICE?
:RJLOO1
MMCK
;:BR IF YES
;RJLOO1
JUUT
s TYPE UNIT UNDER TEST MESSAGE
;RJLOO1
$UNIT, -(SP)
;GET THE UNIT NUMBER
:RJLOO1
;TYPE THE UNIT NUMBER
;RJLOO1

L
Y
Y I T L L LT T TYrrrrrr P
AAARALARAAAAAE AR AL 000000
0 000
000 0ARRRRR
000
SRR RRRRAAS
0

.SBTTL

18/22 BIT ADDRESSING TEST

bt
L L t
T T T
T T T ITTTITI
t
Y Y YY YW

i#
CHECK IF MEMORY MANAGEMENT IS AVAILABLE.
IF AVAILABLE, SET IT UP.
i#
INITIALIZE THE MEMMAP TABLE
S
P P P P PP PP PP PP PPT

C-ZDORVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-6

SEQ 0016

18722 BIT ADDRESSING TEST
629 002724
630 002730
631 002734
632 002740
633 002742
634
635 002744
636 002750
637 002756
638
639 002760

640 002762
641 002766

642

012700
012701
004737
005020
077102

001524
000020
013700

005037
012737
000007

001702
002762

062706
005237

000004
001702

CLR
MOV
MFPT

:LOAD RO WITH MEMMAP TABLE ADDRESS
:LOAD COUNTER

;TEST FOR “tC”

LSIFLG
#2% ,RESVEC

10¢

ADD
INC

#4,5P
LSIFLG

ettt
B

004737
005037
012737
005037

013700
001710
003142
177572

004737
052737
005737
001002
104401

012326
000001
023002

000004

001710

024552

118:

658

659 003040
660 003044
661 003052
662 003056
663 003064
664 003072
665
666
667 003100
668
669
670
671
672 003104
673 003106
67; 003112
67

676

JSR
BIS
TST
BNE
TYPE,

PC ,MMINIT
#8ITO,MMAVA
$FLAG
11¢
MMAMES

S L L L

T T T

TTTYTYYYYY

YYYYTM

;TEST FOR “tC*
;CLEAR KT AND 22 BIT ADDRESSING FLAG
;SET UP TIMEOUT TRAP VECTOR
:CLR MEM MGMT STATUS REGISTER
; WILL TRAP IF NO MMU AVAILABLE
;MEM MGMT INITIALIZATION ROUTINE
:SET MEM MGMT AVAILABLE FLAG
sTEST IF FIRST PASS ON UNIT & 0
;SKIP TYPE OUT
;GO PRINT OUT THE FOLLOWING MESSAGE.
:'KT11 AVAILABLE'
Y

005737

000000

TST

001403
005037
000464

172516

BEQ
CLR
BR

JSR
MOV
CLR
MOV
BIS
MOV

172344

172516
040000

:KJLOO4

:4JLOO3

LTI

bt it

e L

TTTTTITTTYTYYTYYTM

PC,KBDSRV
:TEST FOR “tC*
;KJLOO1
#208 ,99ERRVECT
;SET UP FOR TIME OUT VECTOR
0
;CLEAR BASE LOCATION O
#€10000,39KIPAR2 ;SET PAR2 TO BASE LOC 140000
#BIT4,845R3
:TURN ON 22 BIT ADDRESSING
#-1,3#40000
:NOW WRITE TO BASE LOC 200000 (128KW + 2)
i WILL CAUSE TRAP IF 22-BIT SYSTEM
:KJLOOS
: WITH 128KW OR LESS OF MEMORY
:KJLOO4
o
:IF LOC 0 = 0 (WILL ONLY GET HERE
H
IF 18-BIT SYSTEM WITH
:KJLOO4
H
128KW OR LESS OF MEMORY) ;KJLO04
H
OR IF 22-BIT SYSTEM WITH
:KJLOO4
3
MORE THAN 128KW OF MEMORY ;KJLO0O4
208
i
THEN SYSTEM SUPPORTS 22 BIT ADDRESSING
4SR3
:
ELSE 18 BIT SYSTEM, DISABLE 22 BIT ADDR
KTSIZ
:
AND GO SIZE MEMORY
L LT L

YT LTt

TTTTTTrTITTYTTYYYTYTMY

TIME OUT TRAP TO HERE OR MEMORY EXISTS AT 128KW + 2

i#
i#
i#
i#
i#
i

THIS ROUTINE WILL BE EXECUTED IF THE SYSTEM SUPPORTS 22-BIT
ADDRESSING.
IT IS ENTERED VIA A TRAP (IF THE SUSTEM SUPPORTS
22-BIT ADDRESSING BUT DOESN‘T HAVE MORE THAN 128KW OF MEMORY) OR
VIA A BRANCH STATEMENT (IF THE SYSTEM SUPPORTS 22-BIT ADDRESSING
AND DOES HAVE MORE THAN 128KW OF MEMORY.

;KJLOO1

CHECK IF 22 BIT SYSTEM AVAILABLE AND SET IT UP IF IT 'S

013700
003114
000000
010000
000020
177777

PC,KBDSRV
MMAVA
ONONKT ,99ERRVEC
84SRO

004737
012737
005037
012737
052737
012737

000004

JSR
CLR
MOV
CLR

Rt bt

;KJLOO1

;:CLEAR MEMMAP TABLE ENTRY
;:DECREMENT COUNTER 16. TIMES
+IF COUNTER NOT = O THEN CLEAR NEXT ENTRY
sINIT LSI-11 /2/QUAD PROCESSOR FLAG
;FIND OUT IF LSI-11/2/QUAD
sMFPT INSTRUCTION WILL CAUSE TRAP
;:ON LSI-11/2
:11/23 OR LATER WILL BRANCH
iLSI-11 RETURN, CORRECT STACK
sAND SET LSI-11/2 FLAG

CHECK IF MEMORY MANAGEMENT IS AVAILABLE AND SET IT UP IF IT IS

10$:

657

i
e

#MEMMAP, RO
#16. ,R1
PC,KBDSRV
(RO)«
R1,1$

JSR

2s:

656

€8S

CLR
S08

645 002772
646 002776
647 003002
648 003010
649
650 003014
651 003020
652 0C3026
653 0C3032
654 003034
655 003040

678

18:

000404

644

679
680
681
682
632
€8

MOV
MOV

000010

643

6;7

MMCK :

BRI R L

L R

Y L

LTt TITTTTTTTTTYTYTYIYTYTM Y

:KJLOO4
:KJLOO4
:KJLOO4
:KJLOO4
;KJLOO4

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-7

SEQ 0017

18722 BIT ADDRESSING TEST
013700
100000
023002

001710

024617

000451

741
742

PC,KBDSRV
#BIT15,MMAVA
$FLAG

KTSIZ
e

1 &

i &
L
i1 &
H
ik
L
T

000001
003206
013700

:KJLOO1

T T Ty

:KJLOO3

YT rrrres

THIS ROUTINE WILL MAP MEMORY IN 8KW SEGMENTS. SUPPORTS ONLY
THE SIZING
OF 16 BIT ADDRESSING WITHOUT MEM MGMT SUPPORT
STORAGE USED:
RO
= MEMMAP POINTER ... LO 128KW
ADDRESS POINTER
BANK POINTER ... LO 128KW
FLAG30K = 30K MEMORY FLAG
LITERALS:
MASK8K
= 37777

NONKT:

001100
001524

“tC”

:s TEST IF FIRST PASS ON UNIT & 0
:sSKIP TYPE OUT IF NOT FIRST PASS
;GO PRINT OUT THE FOLLGWING MESSAGE.
i'22 BIT ADR AVAILABLE"
;GO SIZE MEMORY

AVAL22

012706
012700
005002
012703
012737
004737
011222
032702
001372
050310
000422

s TEST FOR

:SET 22 BIT FLAG

254

25%:

MOV
MOV

CLR

MOV
MOV
JSR
MOV

000004
1s:

037777

BIT
BNE
BIS
BR

#STACK,SP
#MEMMAP,
RO
R2
#1,R3
#2$ , 3¢ERRVEC
PC,KBDSRV

(R2),(R2)+

#MASKBK,R2

1s
R3,(RO)
3s

:SET-UP THE STACK
:SET UP MEMORY MAP PTR TO LO 128KW
:SET ADDRESS PTR TO O
:SET UP 8KW BANK POINTER

:SET UP TIME OUT VECTOR

:TEST FOR “+C”
;READ AND WRITE ALL MEMORY
:IF_NOT 8KW BOUNDARY
i
THEN CHECK NEXT LOCATION
i
ELSE SET BANK FLAG IN MEMMAP

;

:KJLOO1

AND DO SOME MORE

3;.t‘tt"tt‘“‘lttt‘ttttt‘t“t‘tt“tt.t

719

720
721 003206
722 003212
723 003216
724 003222
725 003224
726 003226
727 003232
728 003234
729 003240
730 003242
731 003244
732 003250
733 003252
734 003254
735 003260
736 003262
737
738
739
7490

JSR
BIS

TST
BNE
TYPE,

703

704
705 003142
706 003142
707 003146
708 003152
709 0C3154
710 0C3160
711 003166
712 003172
713 003174
714 003200
715 003202
716 003204
717
718

208:

LI]

004737
052737
005737
001002
104401

0 0
W

686 003114
687 003120
688 003126
689 003132
690 003134
691
692 003140
693
694
695
696
697
698
699
700
701
702

004737
062706
022702
001001
000405
022702
001004
005237
050310
000407
052702
005202
106303
032703
001742
000506

013700
000004
160000

2%:

170000

20$:

001676

21s:

037777
000020

22%:
3s:

4%
:
R

&
L
L

i &
g

tttt“t“‘tt.‘t‘tt‘t‘tt‘.t

TIMEOUT TRAPS TO HERE

JSR
ADD
CMP
BNE
BR
CMP
BNE
INC
BIS
BR
BIS
INC
ASLB
BIT
BEQ
BR

PC,KBDSRV
#4,SP
#160000,R2
20$
218
#170000,R2
22%

FLG30K

R3,(RO)
4%
#MASKBK,
R2
R2
R3
#BIT4,R3
1s
DISMAP
et

;TEST FOR

T T TTTTYYYrOrrres

“+C*

:RESTORE STACK POINTER
:IF _NOT 28KW BOUNDARY
:
THEN BRANCH
i
ELSE SET UP POINTERS
:IF_NOT 30KW BOUNDARY
i
THEN BRANCH
i
ELSE SET 30KW MEMORY FLAG
:SET BANK FLAG IN MEMMAP
;BRANCH ALL DONE
;POINT TO LAST ADDRESS OF 8KW BANK
:POINT TO 1ST ADDRESS OF NEXT BANK
;UPDATE BANK POINTER
:IF_NOT DONE WITH 32KW
i
THEN TRY SOME MORE
;GO TYPE OUT MAP
T T

THIS ROUTINE WILL MAP MEMORY IN 8KW SEGMENTS.
MEMORY MANAGEMENT REGISTERS KIPAR2 AND KIPAR3 ARE USED TO MAP
THE 8KW BANKS OF MEMORY.
IF MEMORY EXISTS NEXT TO THE I/0 PAGE (I.E. 760000 OR 17760000)
THEN THE LAST BANK WILL BE ACKNOWLEDGED AS EXISTING.

:KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-8
SEQ 0018

18722 BIT ADDRESSING TEST
743
744
745
746
747
748
749
750
751
752 003264
753 003270
754 003274
755 003300
756 003304
757 003312
758 003320
759 003324
760 003330
761 003332
762 003336
763 003340
764 003344
765 003346
766 0C3350
767
768
769

770

771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

STORAGE USED:

T
ik
ik

RO
R2
R3

KIPAR2

KIPAR3

LITERALS USED:

MAPPED TO 1ST 4KW OF PRESENT 8KW BANK
MAPPED TO 2ND 4KW OF PRESENT 8KW BANK

MASK

MASK8K

012706
012700
012702
005037
012737
012737
012703

105777

100002
004737
011222
032702
001367
050310
000426

001100
001524
040000
172344
000200
003352
000001
175614

KTSIZ:

172346
000004

1s:

2%:

013710

22%:

037777

= MEMMAP POINTER
= ADDRESS POINTER
= BANK POINTER

MOV

MOV
MOV
CLR
MOV
MOV
MOV
TSTB
BPL
JSR
MOV
BIT
BNE
BIS
BR

L T

#STACK,SP

#MEMMAP, RO
#40000,R2
94KIPAR2
#200,84¢KIPAR3
#3$,94ERRVEC
#8ITO,R3
98 TKS
22%
PC,KBDSR1
(R2),(R2)+
OMASK8K,R2
28
R3,(RO)
5

OF
T

T T

8KW
T

(37777)
P

:SET-UP THE STACK

TS Y

T IIIITI

;SET-UP MEMMAP PTR TO FIRST ENTRY
+INIT VIRTUAL ADDRESS TO O MAPPED THRU PAR2
:INIT PAR2 TO LOC O
;SET PAR3 TO 2ND 4KW BANK
;LOAD TIME OUT VECTOR
:SET-UP 8KW BANK POINTER
;HAS A KEY BEEN HIT
;RJLOO1
:BR IF NOT
;RJLOO1
;:TEST FOR “tC”
;RJLOO1
;READ AND WRITE ALL MEMORY
:IF_NOT 8KW BOUNDARY
:
THEN TRY SOME MORE
:
ELSE SET BANK FLAG IN MEMMAP
:AND GO UPDATE VARIABLES AND CONTINUE

o dkkkbkkhhdhkbh
bbbk kk bk kb kb h hbkbhkb
kb hh kb kkkkkhkkkh bk
kbkhh
hkkkhkhkkhk ks

TIMEOUT TRAPS TO HERE

Ry
Y
Y
YT TSI
T
T

003352
003356
003362
003366
003370
003374
003376
003404
003406
003410
003412
003420
003422
003424
003426
003434
003442
003446
003452
003454
003456

004737
062706
022702
001017
005737
100406
022737
001010
050310
000433
022737
001002
050310
000425
062737
062737
012702
005737

003460
003462
003464
003466
003472
003476

000407
006303
001317
062700
022700
001310

100403
006303
001322

013700
000004
060000

3s:

001710

007600

172346

177600

172346

4%:

000400
172344
000400
172345
040000
.
001710

5¢:

CMP
BNE
TST
BMI
CMP
BNE
BIS
BR
CMP

BNE
BIS
BR
ADD
ADD

MOV
TST
BMI
ASL
BNE

6%:
000002
001564

JSR
ADD

BR
ASL
BNE
ADD
CcMP
BNE

PC,KBDSRV
;:TEST FOR "+C”
:KJLOO1
#4,SP
;RESTORE STACK POINTER
#60000,R2
;IF NOT POSSIBLY THE I/0 PAGE
S
i
THEN GO TEST SOME MORE
MMAVA
i
ELSE IF 22 BIT ADDRESSING (BIT 15 SET)
43
i
THEN GO SEE IF 2M I/0 PAGE
#7600, 3¥KIPAR3
;
ELSE IF NOT I/0 BOUNDARY FOR 18 BITS
S5
:
THEN GO UPDATE VARIABLES AND TRY SOME MORE
R3,(RO)
i
ELSE SET BANK EXISTS IN MEMMAP
7%
;
AND GO TYPE MEMORY MAP
#177600, 3#KIPAR3 ;IF NOT 2M I/0 BOUNDARY
5%
i
THEN GO TRY SOME MORE SIZING
R3,(RO)
i
ELSE SET BANK IN MEMMAP
7%
i
AND GO TYPE MEMORY MAP
#400,94KIPAR2
;UPDATE MAP TO NEXT
#400,94KIPAR3
;
8KW BANK
#40000,R2
;RESTORE ADDRESS POINTER TO 1ST ADDRESS OF THIS BANK
MMAVA
:IF 22 BIT ADDRESSING (BIT 15 SET)
6%
:
THEN GO TEST SOME MORE
R3
:+
ELSE 18 BIT ADDR. = 1 WORD
28
i
IF NOT END OF 18 BIT ADDR
7%
R3

#2,R0
#MEMMAP+40,RO
1s

THEN GO SIZE SOME MORE

:
ELSE ALL DONE 18 BIT SIZING.
;UPDATE BANK POINTER

:IF _NOT END OF THIS MEMMAP ENTRY,

THEN CONTINUE

i
ELSE UPDATE TO NEXT MEMMAP ENTRY
;IF NOT END OF MEMMAP TABLE
i
THEN GO SIZE SOME MORE

ELSE ALL DONE SIZING

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-9

SEQ 0019

18722 BIT ADDRESSING TEST
800 003500
801
802
803
804
805
806
807
808
809
810
811 003500
812 003504
813 003506
814 003514
815 003520
816
817 003524
818 003530
819
820 003534

i*
;#
i*
i*

HEEL

003572
003576
003600
003604

012702
012700
012701
004737
005012
012022
077105
013700
042700
022700
001405
005037
104401

003610

000000

003562
003566

023002

= MEMMAP POINTER

004737
104401

003554
003556
003560

FALL THROUGH AND GO TYPE OUT MEMORY MAP

ROUTINE WILL TYPE OUT MEMMAP, LOAD TEST MAP (SAVTST) AND CHECKS
TO INSURE LOWEST 16KW OF MEMORY IS AVAILABLE FOR TEST TO RUN
STORAGE LOCATIONS:

000001
001524
024657

003544
0C3550

R Ty
Yy
YTy
IT

005737
001042
012737
012700
104401

8217003540

822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837

78:

R2
R

RIS

DISMAP:

... LO 128KW

= COUNTER
=
R

SAVTST

POINTER

...

LO
P

128KW
Y Tttty

TST
BNE

$FLAG
TST1

MOV
TYPE,

#MEMMAP, RO
MEMMES

;LOAD RO WITH MEMMAP ADR
;GO PRINT OUT THE FOLLOWING MESSAGE.

015772
001171

JSR
TYPE,

PC,TYPMAP
$CRLF

;GO TYPE THE MAP
sGOc:RIE; OUT THE FOLLOWING MESSAGE.

001624
001524
000020
013700

MOV
MOV
MOV
JSR
CLR
MOV
S08
MOV
BIC
CMP
BEQ
CLR
TYPE,

023002

MOV

&1, $FLAG

s TEST IF FIRST PASS ON UNIT # O
KJLOO3
+ s SKIP MEMORY MAP TYPEOUT IF NOT FIRST PQSS

:SET THE UNIT PASS FLAG

:KJLOO3

i ' MEMORY MAP'

' <CR><LF>'

1%:

001524

177774

000003

177572
024712

#SAVTST,R2
#MEMMAP, RO
#16. ,R1
PC,KBDSRV

(R2)

(RO)+,(R2)+
R1,1$
MEMMAP ,RO
#177774,R0
¢3,R0
TST1
84SRO
INSUFF

HALT

;LOAD ADR OF SAVTST TABLE TO BE CLEARED
:LOAD ADR OF MEMMAP TABLE
;LOAD COUNTER
;:TEST FOR “tC*
:KJLOO1
;CLEAR SAVTST TABLE ENTRY
;LOAD SAVTST FROM MEMMAP
;DECREMENT CTR 16 TIMES
;LOAD RO WITH MAP OF 1ST 128KW
;MASK ALL BUT BOTTOM 16KW
+IF BOTTOM 16KW IS ALL THERE
i s THEN GO RUN
;DISABLE MMU
;GO PRINT OUT THE FOLLOWING MESSAGE.

:'FIRST 16KW OF MEMORY NOT ALL THERE!®

;FATAL ERROR HALT

:MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM

sihkkkbbhkhkhk
bk
bbb khk bkbhkbbbh
hh kb kkhh
kb kb kb
kbhhkbb
kb hk bk kb kb khkkkk
h
&

;#TEST 1

003612
003614
003622

000240
012737
012737

003630
000001

001106
001200

000001
003672
001124
001126
003714
001712
000004
013700
001122

001102
001110

TST1:

012737
012737
005037
005037
012737
013700
012701
004737
010037
005710
005720
005301
001403

000004

10s:

T Y

TP ey

<NOP>
MOV
MOV

#108,$LPADR
#1,$TESTN

::SET SCOPE LOOP ADDRESS
:sSET TEST NUMBER IN APT MAIL BOX

MOV
MOV

@1,$TSTNM
#1$, SLPERR

:SET TO TEST #1
:SET UP SCOPE LOOP ADRS
:NO DATA COMPARE
iNO DATA COMPARE
:SET UP TIMEOUT RETURN ADDRS
+SET UP 1ST DRV11 BUS ADRS
:SET UP REG COUNT
;:TEST FOR “t+C*
:SET UP CURRENT DRV BUS ADRS
:SEE IF THERE
:BUMP TO NEXT
:COUNT 4 OF THEM
:BR IF ALL DONE

003630
003636
003644
003650
003654
003662
003666
003672
003676
003702
003704
003706
003710

TEST THAT ALL DRV11WA REGS ARE ACCESSIBLE

$GDDAT
$BDDAT

#2$, 94ERRVEC

DRVWCR,RO

#4.R1
PC,KBDSRV
RO, $BDADR

(RO)
(RO)+

R1
3

iKJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-10
SEQ 0020

TEST THAT ALL DRVIIMA REGS ARE ACCESSIBLE

852
853
854
855
856
857

003712
003714
003716
003720

000767
022626
104001
012737

000006

000004

003730
003736
003744
003746
003754
003760
003766
003774
004002
004004
004006
004012
004014
0C4016
004022
004026

012737
013737
005000
012737
004737
013777
017737
023737
001401
104002
005137
005100
001357
006337
005237

103752

s TRY NEXT
cMP
(SP)+,(SP)+
sFIX STACK SINCE NO RTI
ERROR+1
;BUS ADRS INDICATED DID NOT RESPOND
MOV
OERRVEC+2, 8#ERRVEC
;RESTORE LOC 4

3s:

jidkkkbkkddb bbb

hbbb bbbk bbbk

;*#TEST 2

TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT O COM PTRN)

003726

& 13
BR

2¢:

TST2:

003754
001712

001110
001122

177776
013700
001124
175720
001124

001124
175724
001126
001126

001124

kkhk kb h kb hkkhkh bk

Y Y

kk k&

Y T

I T

SCOPE

MOV
MOV
CLR

MOV

1$:

JSR
MOV

MOV

CMP
BEQ
ERROR+2
COoM
COM
BNE

2$:

001124
001124

#14$, SLPERR
DRVWCR, $BDADR
RO
#-2, $GDDAT
PC,KBDSRV
$GDDAT
, 8DRVWCR
SDRVUWCR, $BDDAT
$GDDAT, $BDDAT

;SET UP SCOPE LOOP ADRS
:SET UP WC REG ADRS
;RO SAYS SHIFT PTRN WHEN O
;FLOAT O RIGHT TO LEFT
;TEST FOR "+C”
;LD WC
;READ IT BACK
;CORRECT?
;BR IF SO
;WORD COUNT WRITE/READ FAILURE
;COMPELEMENT ZERO
;RO SAYS SHIFT LEFT WHEN = O

;KJLOO1

;TRY THE COMPLEMENT IF RO NOT O

ASL

;COMPLEMENT WAS DONE = NOW SHIFT ZERO LEFT
;KEEP LSB SET
;AGAIN TILL ALL PATTERNS DONE

INC
BCS

jihkkkkkbkhkbhhkbhbkbkhkhkbb
bbbk bbbk kb kb kh bk bk kb kb hkhkh bbbk kb bk kb hhhkhkhh &

;tTEST 3
e

004030

877
878 004032
879 004040
880 004046
004050
882 004056
883 004062
884 004066
885 004074
886 004100
887 004106
888 004114
889 004122
890 004124
891 004126
892 004132
893 004140
894 004142
895 004144
896 004150
897 004152
898 004160
899
900

000004

012737
013737
005000
012737
004737
005777
013777
005777
017737
042737
023737
001401
104002
005137
042737
005100
001345
006337
103004
062737
000736

TST3:

001110
001122

MOV
MOV

177774
013700
175624

001124

MOV
JSR
TST
MOV
TST
MOV
BIC

001124
000001

001124

1s:

cMP
BEQ
ERROR+2
$GDDAT
COM
8IC
#B8ITO0, $GDDAT
COM
BNE

2%:

001124

000002

TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT O COM PTRN)

#1$, SLPERR
DRVBAR, $BDADR
RO
#-4,$CODAT
PC,KBDSRV
SDRVUWCR
$GDDAT,8DRVBAR
8DRVWCR
SDRVBAR, $BDDAT
#8IT00, $BDDAT
;?DDAT.&BDDAT

CLR

175620
001126
001126
001126

ASL

8CC
ADD
BR

001124

SCOPE

004056
001714

001124
175612
175610
000001
001124

RIS R

;*TEST 4

@2, $GDDAT
1s
R

LA R

:SET UP SCOPE LOOP ADRS
;SET UP BA REG ADRS
;RO SAYS SHIFT PTRN WHEN O
;FLOAT O RIGHT TO LEFT
;TEST FOR “tC*
;KJLOO1
:Ekflagai FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
3

;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;READ IT BACK
;:DON'T WANT BITOO
;:CORRECT?
;:BR IF SO
;BUS ADRS WRITE/READ FAILURE
;COMPLEMENT ZERO
;:BIT 00 NOT INVOLVED
;RO SAYS SHIFT LEFT WHEN = 0
;TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
:sNEXT TEST IF AIT IS DONE

;KEEP ADDR LSB SET

;AGAIN TILL ALL PATTERNS DONE

TEST THAT THE EXTENDED ADDRESS REG IS WRITE/READABLE (FLOAT O COM PTRN)

LT
Yy Yy
Y
P PP F PP PP TPy Yy

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T4

Monday 08-Apr-85 16:01

Page 10-11
SEQ 0021

TEST THAT THE EXTENDED ADDRESS REG IS WRITE/READABLE (FLOAT

004162

000004

004164
004172
004174
004202
004210
004212
004216
004222
004226
004232
004240

032777
001474
012737
013737
005000
012701
005777
004737
010137
013777
005137
013777
010137
042737
017737
042737
023737
001401
104002
010137
005137
042737
017737
023737
001401
104002
005101
005100
001322
006301
103001
000717

004244

004252
004256
004264
004272
918 004300
919 004306
004310
004312
004316
0C4322
924 004330
925 004336
004344
004346
004350
004352
004354
004356
004360
004362
934

TST4:
010000

174746

004222
001714

001110
001122

177776
175470
013700
001124
001124
001124
001124
001124
000001
175424
000001
001124
001124
001124
177700

175366
001124

SCOPE
BIT
BEQ
MOV

CLR
MOV
ST
JSR
MOV
MOV
COM

1¢:
175454
175450
001124
001126
001126
001126

004366
004374
004402
004404
004412
004416
004424
004432
004440
004442
004444
004450

012737
013737
005000
012737
004737
013777
017737
023737
001401
104002
005137
005100
001357
006337
005237
103752

004464

#BITO0, $GDDAT

CMP
BEQ
ERROR+2

2%:

MOV

CoM
BIC

001124
001126
001126

MOV

CMP
BEQ
ERROR+2

3s:

COM
CoM
BNE
ASL

BCC
BR
IR

TSTS:

8DRVBAR, $BDDAT
#BITO0, $BDDAT
;?DDAT.SBDDAT
R1,$GDDAT
$GDDAT
#177700, $GDDAT
SDRVBAE, $BDDAT
;?DDAT.SBDDAT

R1
RO
1$
R1
TSTS
1s
R

;#TEST S
000004

004454

8DRVWCR
PC,KBDSRV
R1,$GDDAT
$GDDAT,3DRVBAR
$GDDAT
$GDDAT
, 8DRVBAE
R1,$GDDAT

MOV
MOV
BIC
MOV
BIC

004364

004460

TSTS
#1%, SLPERR
DRVBAR, $BDADR
RO

MOV

;:BUS ADRES WRITE/READ FAILURE
;SET EXPECTED DATA

;COMPLEMENT ZERO
;DON'T WANT UPPER BITS
;READ BAE BACK
;CORRECT?
:BR IF SO
;BUS ADRES WRITE/READ FAILURE
;COMPLEMENT ZERO
;RO SAYS SHIFT LEFT WHEN = 0
; TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
:sNEXT TEST IF AIT IS DONE
;AGAIN TILL ALL PATTERNS DONE
E e

YTt T

SCOPE
MOV
MOV

#1$, SLPERR
ggVDBR.OBDADR

177776
013700
001124
175270
001124

001124

MOV

#-2, $GDDAT
PC,KBDSRV
$GDDAT,8DRVDBR
8DRVDBR, $BODAT
$GDDAT, $BDDAT

CLR

JSR
MOV
MOV
CcMP
BEQ
ERROR+2
COM
COM
BNE

1s:

001126
001126

2%:

001124
001124

INC
BCS
R

;SET UP SCOPE LOOP ADRS
:SET UP DB REG ADRS
;RO SAYS SHIFT PTRN WHEN O
;FLOAT O RIGHT TO LEFT
;TEST FOR “tC”
;LD DB
;READ IT BACK
;CORRECT?

;KJLOO1

;BR IF SO

;DATA BUFFER WRITE/READ FAILURE (LOOP BACK)
;COMPLEMENT ZERO
;RO SAYS SHIFT LEFT WHEN = 0
;TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
:KEEP LSB SET
;AGAIN TILL ALL PATTERNS DONE

ASL

LRI

;CORRECT?
;:BR IF SO

001110
001122

001124

;LD BAE
:SET EXPECTED DATA
;BITO0 NOT INVOLVED
;READ BAR BACK
;DON'T WANT BITOO

004412
001720

175274

;TEST IF Q22 MODE
: sNEXT TEST IF DRV11-WA NOT SET FOR Q22
;SET UP SCOPE LOOP ADRS
;SET UP BA REG ADRS
;RO SAYS SHIFT PTRN WHEN O
;sFLOAT O RIGHT TO LEFT
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;TEST FOR "tC”
;KUuL001
;COPY TO WORK AREA
;LD BAR
;COMPLEMENT TO ZERO

TEST THAT THE DATA BUFFER REG IS WRITE/READABLE (FLOAT O COM PTRN)

004452

#SW12,8SWR

PP Y

Y Y Y

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T6

Monday 08-Apr-85 16:01

Page 10-12
SEQ 0022

TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE

;*+TEST 6

TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE

0044¢ce

Ve e

004470
004474
004500
004504
004506
004514
004522
004530
004534
004540
004546
004550

004737
013700
010037
005010
012737
012737
153760
153710
011037
023737
001401
104002

013700
001720
001120

177177

077776
001126
001127
001126
001124

L T

TST6:

SCOPE

1s:

JSR
MOV
MOV
CLR
MOV

001124
001126
000001

PC,KBDSRV
DRVDBR,RO
RO, $GDADR

(RO)

#177177, $GDDAT
#77776, $BDDAT
$BDDAT,1(RO)
$BDDAT+1,(RO)

MOV

BISB
BISB
MOV

(RO), $BDDAT

CMP
BEQ

001126

ERROR+2

$GDDAT, $BDDAT
TST7

Y Ty,

;TEST FOR "tC"

;KJLOO1

:GET ON REG ADRS
:SET UP DB REG ADRS
:ZERO DATA BUFFER RFG
;LD EXPECTED
:SEND DATA FROM "BDDAT"
:LOAD HI BYTE DB
;LOAD LO BYTE DB
;READ IT BACK

;CORRECT?
: sNEXT TEST IF SO
:DATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG

jikkkkhkkkhkhkbbhhhkhkbbhb
bbbk bk khh bk kb hh
kb hkhhhk bk hkhkkhhh bk khk &

+*TEST 7
e

969

970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
9838
989

004552

000004

012737

000010

0C4562
004566
004572
004600
004606
004614
004622
004624
004632
004634
004642
004644

004737
005037
012777
012777
012777
032777
001403
012777
000005
017737
001404
013737
104003
017737
042737
001404
013737
104003
032777
001410
017737
001404
013737
104003
017737
001404
013737
104003

013700
001124
177777

004554

004652

004662
004670
004672
004700
004702
204710
004712
991 004720
992 004722
993 004730
994 004732
995 004740
004742
997 004750
998
999

001160

177777
177776
010000

175112
175112
175100
174316

177777

175070

175052

001126

001712

001122

000001

175034

001126
001126

001714

001122

010000

174230

175004

001126

001722

001122

174762

001126

001720

001122

TST7:

TEST THAT RESET CLEARS WORD COUNT,

SCOPE
MOV
JSR
CLR

MOV
MOV
MOV

BIT
BEQ
MOV
RESET

10¢:

MOV
BEQ
MOV
ERROR+3
MOV
BIC

1s:

2%:

MOV

004752

000004
012737

000010

001160

PC,KBDSRV
$GDDAT
#-1,3DRVWCR
#-1,8DRVDBR
#-2,3DRVBAR
#SW12, 8SWR
10¢
#-1,8DRVBAE

;:TEST FOR “tC”
:KJLOO1
;LD EXPECTED
:SET ALL BITS - WC REG
;SET ALL BITS - DB OUT REG
:SET ALL BITS - BUS ADRS REG
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
:BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
:SET ALL BITS - EXTENDED BUS ADRS REG
;D0 A BUS RESET
;READ WC REG
:BR IF CLEARED
;SET UP WC REG ADRS
;RESET FAILED TO CLR WC REG
;:READ BUS ADRS REG
;DON'T WANT BITOO
:BR IF CLEARED
:SET UP BA REG ADRS
;RESET FAILED TO CLR BUS ADRS REG
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
;BR IF IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
:READ BAE ADRS REG
:BR IF CLEARED
:SET UP BAE REG ADRS

g?RVHCR.OBDDAT

DRVWCR, $BDADR
8DRVBAR, $BDDAT
#BIT00, $BDDAT

S;VBAR.OBDADR

TST10:

8DRVDBR, $BDDAT
TST10
DRVDBR, $BDADR

;#TEST 10
L

004754

::00 10 ITERATIONS

ESRVBAE.OBDDAT
g;VBAE.tflbkbfl
ERROR+3

#10, $TIMES

#SW12,3SWR

38:

BUS ADDRESS & DATA REGS

LT
Y Yy T T

;RESET FAILED TO CLR EXTENDED BUS ADDRESS REG

;READ DATA BUFFER REG
: sNEXT TEST IF CLRED
:SET UP DB REG ADRS
;RESET FAILED TO CLR DATA BUFFER OUT REG

P Y

P Y TTT L)

TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT PTRN)
T

SCOPE
MOV

#10, $TIMES

T Y

T TS

::00 10 ITERATIONS

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T10

Monday 08-Apr-85 16:01

Page 10-13

SEQ 0023

TEST THAT THE CONTROL/STATUS REG IS WRITE/READABLE (COUNT

1000
1001 004762
1002 004766
1003 004772
1004 004774
1005 005002
1006 005010
1007 005014
1008 005020
1009 005024
1010 005032
1011 005040
1012 005042
1013 005050
1014 005054
1015 005062
1016 005070
1017 005076
1018 005100
1019 005106
1020 005114
1021 005116
1022 005120
1023 0C5124
1024 005126
1025 005130
1026 005132
1027 005140
1028 005146
1029 005154
1030 005156
1031
1032

106427
004537
005130
013737
013737
012700
004737
010037
042737
032777
001403
042737
010077
017737
042737
032777
001403
042737
023737
001401
104002
062700
001333
000413
022626
052737
017737
042737
104005
004737

MTPS
JSR
3

000200
012454

005014
001716
160000
013700

001124
167201
010000

001110
001122

001124

007260
001124

001126
001126

000002

174552
007000

MOV
BIC
BIT
BEQ
BIC
MOV
MOV
BIC
BIT
BEQ
8IC

10%:

20¢%:

CcMP

BEQ
ERROR+2
ADD
BNE
BR
CMP
BIS
MOV
8IC
ERROR+5
JSR

2%:

001124
001126
001126

012474

1$,$LPERR
DRVCSR, $BDADR
#160000, RO
PC,KBDSRV
RO, $GDDAT
#167201, $GDDAT
#SW12,8SWR
10¢
#167261, $GDDAT
RO,8DRVCSR
SDRVCSR, $BDDAT
#7200, $BDDAT
#SW12,8SWR
204
#7260, $BDDAT

MOV
JSR

001124
174100

001126
001126
174042

000200

MOV
MOV
1%:

167261
174642
174636
007200
010000

#PR1
RS,SETVEC

3s:

4s:

$GDDAT, $BDDAT

:DON'T WANT ANY INTERRUPTS
:SET UP INTR RETURN ADRS IN CASE
;RETURN TO 38 ON ILLEGAL INTR
:SET UP SCOPE LOOP ADRS
;SET UP CSR ADRS
:START AT O - HI BITS FOR NOISE
:TEST FOR "tC”
$KJLOOL
;LD EXPECTED
;MASK TO WRITEABLE BITS
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
:BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
;MASK XAD17 & XAD16
;LD CSR
;READ IT BACK
;:DON'T LOOK AT STAT & RDY BITS
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
:BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
;:DON'T LOOK AT XAD17 & XAD16

;CORRECT?

:BR IF SO
;CONTROL/STATUS REG WRITE/READ FAILURE
#2,R0
:ADVANCE COUNT PATTERN
1s
sWRITE NEXT PATTERN IF NOT ALL TESTED
4%
:C0 RESTORE VECTOR
(SP)+,(SP)+
sFIX STACK - SHOULD NOT HAVE INTR'ED
#200, $GDDAT
;CORRECT EXPECTED
8DRVCSR, $BDDAT
;READ CSR
#7000, $BDDAT
;:DON‘T WANT 'STAT' BITS
, $CPU FAILED TO LOCK OUT DRV11WA INTR REQ
PC.RSTVEC
: +GO RESTORE VECTOR

Ty
Y Y P Py T R
T T

+#TEST 11

TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR

L LT
T
T T
T T I Is LIy

1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044

005162
005164

000004
012737

005172
005176
005204
005212
005220
005222
005230
005236
005240

004737
013737
012737
012777
000005
017737
023737
001401

000010

001160

013700
001716
000200
177776

001122
001124

174470

001124

TST11:

SCOPE
MOV

€10, $TIMES

::00 10 ITERATIONS

1%:

JSR
MOV
MOV

PC,KBDSRV
DRVCSR, $BDADR
#200, $GDDAT

;TEST FOR “tC”
;SET UP CSR ADRS
;LD EXPECTED

RESET
MOV

SDRVCSR, $BDDAT

;D0 A BUS RESET
;READ CSR

MOV

174476

001126
001126

CcMP

;#TEST 12
e

1045
1046
1047
1C48
1C49

000004

005244
005250
005254
005260

004737
013700
010037
005010

TST12:

013700
001716
001122

$GDDAT, $BDDAT

BEQ
TST12
ERROR+3

104003

005242

#-2,890RVCSR

;KJLOO1

;LD ALL CSR BITS

;CORRECT?

s sNEXT TEST IF CSR CLRED & READY SET
;RESET FAILED TO SET UP THE CSR
T

TEST THAT THE CSR IS BYTE ADDRESSABLE

T T

T Yy YT Y
YT

YT Y

SCOPE

JSR

PC,KBDSRV

:TEST FOR “+C*

MOV
CLR

RO, $BDADR
(RO)

:SET UP CSR ADRS
:ZERO CSR

MOV

DRVCSR,RO

:SET CSR ADRS

iKJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T12

Monday 08-Apr-85 16:01

Page 10-14
SEQ 0024

TEST THAT THE CSR IS BYTE ADDRESSABLE

1050 005262
1051 005270
1052 005276
1053 005304
1054 005310
1055 005314
1056 005322
1057 005324
1058 005326
1059
1060

012737
012737
153760

153710
011037
023737
001401
104002
005010

010300
040026
001126
001127
001126
001124

001124
001126
000001

MOV
MOV
BISB
BISB
MOV
CMP

001126

1¢:

BEQ
1s
ERROR+2
CLR
(RO)

1061
1062 005332
1063 005340
1064 005346
1065 005354
1066 005360
1067 005364
1068 005370
1069 005376
1070 0C5404
1071 005412
1072 005414
1073 005416
1074 005424
1075 005430
1076
1077

;LD EXPECTED
:SEND DATA FROM "BDDAT” - USE MAIN + IE
:LOAD HI BYTE CSR
:LOAD LO BYTE CSR
:READ IT BACK

;CORRECT?
iBR IF SO
:DATA ERROR ON BYTE ADDRESSIGN THE CSR
:ZERO CSR BEFORE ADVANCING

3;““t‘.tt“t‘ttt“““.‘“‘.‘.‘t‘tt‘t‘t‘t

;#TEST 13

005330

#10300, $GDDAT
40026, $BDDAT
$BDDAT,1(RO)
$BDDAT+1,(RO)
(RO), $BDDAT
$GDDAT, $BDDAT

;3tt“““‘ttt“‘t.t““‘t‘.“tt.“t““

000004

012737
013737
012737
012700
004737
010077
017737
042737
023737
001401

104004
162737
162700
100353

‘t.““i.““.“.t“‘.

TEST THAT THE 3 “FNCT” BITS CONTROL THE 3 “STAT“BITS (COUNT PTRN)

TST13:
005360
001716
007000
000016
013700
174326
174322
170777
001124
001000
000002

001110
001122
001124

1¢:
001126
001126
001126
001124

2%:

“““‘t“‘tt.‘t“‘t‘.“t

SCOPE

MOV
MOV
MOV
MOV
JSR
MOV
MOV

BIC
CMP
BEQ

#1$,SLPERR
DRVCSR, $BDADR
#7000, $GDDAT
#16,R0
PC,KBDSRYV
RO,8DRVCSR
SDRVCSR, $BDDAT

#170777, $BDDAT
$GDDAT, $BDDAT
2%

;WRITE INTO “FNCT” BITS
;:READ BACK THRU "STAT" BITS

SuB
suB
BPL

#1000, $GDDAT
#2,R0
1s

;CORRECT?
:BR IF SO
s "FNCT” BITS FAILED TO SET “STAT” BITS (LOOP BACK)
;CHANGE TO NEXT EXPECTED
;DECREASE COUNT PATTERN
'
;D0 AGAIN UNTIL O TESTED

ERROR+4

:SET UP SCOPE LOOP ADRS
;SET UP CSR ADRS
;LD EXPECTED
;RO CONTAINS "FNCT” BITS WRITTEN

;TEST FOR "tC”

;MASK TO

iKJLOO1

"STAT” BITS ONLY

;3‘tt.““‘tt“““.““0.tt“““..““t‘

;#TEST 14

005432
005434

000004
012737

005442
005446
005452
005454
005462
005470
005476
005502
005504
005512
005520
005522
005530
005532
005534
005536
005544
005546
005550
005552
1099 005560

004737
106427
000005
012777
013737
012737
106427
021616
012777
052777
021616
017737
104005
000417
022626
017737
104005
000411
022626
017737
023737

“.‘t“““t‘.“““‘.t

TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0

;;“t".“.‘t‘“““‘.t.“““.t‘t‘t“t‘

000010

001160

TST14:

013700
000200

005534
001716
000300
000000

174242
001122
001124

005550
000100

174212
174176

174170

001126

174154

174140
001124

001126

001126
001126

#10, $TIMES

::00 10 ITERATIONS

JSR

PC,.KBDSRV

;:TEST FOR "¢C”
;DONT WANT INTR YET

MOV
MOV
MOV
MTPS
CMP
MOV
BIS
CMP
MOV
ERROR+S
BR

#1$,8DRVCTO
DRVCSR, $BDADR
€300, $GDDAT
#PRO
(SP),(SP)
#24%,8DRVCTO
#8IT6,8DRVCSR
(SP),(SP)
SDRVCSR, $BDDAT

:SET UP PREMATURE INTR RETURN ADRS
:SET UP CSR ADRS
;LD EXPECTED (READY + IE)
;ALLOW AN INTR
sSTALL
:SET UP EXPECTED INTR RETRUN ADRS
:ENABLE THE EXPECTED INTERRUPT
sSTALL

MOV
ERROR.S
BR
CMP
MOV
CMP

SDRVCSR, $BDDAT

MTPS
RESET

1s:

2%:

.““.“““““.‘t‘.‘...

SCOPE
MOV

CcMP

#PR4

(SP)+,(SP)+

38
(SP)+,(SP)+
SDRVCSR, $BDDAT
$GDDAT, $BDDAT

s KJLOOY

:SET THE READY FLAG BY INIT

;SET THE CSR

;READY FAILED TO CAUSE AN INTERRUPT
;GO RESTORE VECTOR
:SHOULD NEVER GET HERE - IE NOT WORKING?
;GET THE CSR
;READY INTERRUPTED WITHOUT THE IE BIT
;GO RESTORE VECTOR
;FIX STACK SINCE NO RETURN
;READ STATUS
;CORRECT?

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
Ti4

Monday 08-Apr-85 16:01

Page 10-15

SEQ 0025

TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL O
1100 005566
1101 005570
figg 005572

001401
104005
004737

012474

1104

3s:

BEQ
3
ERROR+S
JSR
PC,RSTVEC

iRk

R AR

;#TEST 15
R

1208 005576

000004

1106 005600

004737

106427
013737
005037
012777
017737
023737

000200
001716
001124
000001
174062
001124

1115 005650
1116 005656
1117 005664

052777
012737
017737
023737

000004
002204
174026
001124

1118 005672

1119 005700
flgg 0C5702

001401
104006

013700

1107 005604
1108 005610
1109 005616
1110 005622
1111 005630
1112 005636
1113 005644
1114 005646

TST15:

174066
001126
001126

174040
001124
001126

#PR4
DRVCSR, $BDADR
$GDDAT
#1,8D0RVCSR
8DRVCSR, $BDDAT
$GDDAT, $BDDAT

1§:

BIS
MOV
MOV

#4 ,80RVCSR
#2204, $GDDAT
8DRVCSR, $BDDAT
$GDDAT, $BDDAT

CMP

BEQ
TST16
ERROR+6
000N AR AR

;#TEST 16
L

2128 005704

000004

1124 005706
1125 005712
1126 005720
1127 005726
1128 005734
1129 005740
1130 005744
1131 C0S5750
1132 005756

004737
012777
013737
012737
005777
005077
005777
017737
023737

013700
000004
001714
000001
173752
173750
173742
173740
001124

1135 005770
1136 005776

012777
017737

000001
173712

005037

001124

012777

000004

1133 005764
1134 005766

001401
104002

1137 006004

001403

1139 006012

104002

1138 006006
fl:g 006014

PC,KBUSRV

MTPS
MOV
CLR
MOV
MOV
CMP

BEQ
1$
ERROR+6

001126

1122

TST16:

173776
001122
001124

001126
001126
173720
001126

173674

1142

R A0 244000040000 00 00000000000kttt
btt

TEST THAT GO CLRS READY & FNCT 2 WILL SET IT

1%:

PP YT

T ITITITITIIIY)

;TEST FOR "tC”

;DONT WANT ANY INTRS
;SET UP CSR ADRS
;EXPECT O
:SET GO WHICH SHOULD CLR READY
;READ THE CSR
;CORRECT?

:KJLOO01

:BR IF SO
;THE GO BIT FAILED TO CLR READY

sFNCT 2 SHOULD SET READY
;L0 EXPECTED
;GET CSR
;CORRECT?

s sNEXT TEST IF SET
sFNCT 2 (VIA INITV2 VIA ATTN) FAILED TO SET READY

AR R 0000000000000 400000000000 00 bbbt bbbbbbtdn

TEST THAT READY CONTROLS ‘BAR’ BITO0 (VIA A00)

ITITIIIIY

SCOPE

JSR
MOV
MOV
MOV
TST
CLR
TST
MOV
CHP

PC,KBDSRV
#4 ,80RVCSR
DRVBAR, $BDADR
@1, $GDDAT
S8DRVMWCR
80RVBAR
S8DRVUWCR
SDRVBAR, $BDDAT
$GDDAT, $BDDAT

;:TEST FOR “¢C”
;KJLOOL
:SET READY
;SET UP BAR ADRS
;EXPECT LSB OF BAR
iCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;CLR BAR
:CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;READ BAR
;CORRECT?

MOV
MOV

#1,80RVCSR
SDRVBAR, $BDDAT

+SET GOCCLRS BAR BITO00)
;READ BAR

CLR

$GDDAT

BEQ
1
ERROR+2

BEQ

2%:

SCOPE
JSR

001122

AR A2

;BR IF SO
s INCORRECT STATUS ON READY INTR
+GO RESTORE VECTOR

ERROR+2

MOV

4 ,8DRVCSR

:BR IF SO
+A00 FAILED TO READ A ONE (SO TIED TO RDY)

:BR IF ZERO

;EXPECTED ZERO

;WHEN RDY CLEARED-AQOO FAILED TO READ & ZERO

sINSURE RDY SET BEFORE ADVANCING

;1808808888808
40 0 2400408488580 000040 044040050000 000000 0448

;#TEST 17

TEST THAT '‘CYCLE' WILL CLOCK THE DBR (IN)

3088888800888 08 0800880880000

2208 006022

000004

1144 006024
1145 006030
1146 006036
1147 006044

004737
013737
012737
013777

TST17:

013700
001720
125252
001124

001122
001124
173646

800000080000 00 004000000000 00 0000048

SCOPE

JSR
MOV
MOV
MOV

PC.KBDSRV
DRVDBR, $BDADR
9125252, $GDDAT
$GDDAT,8DRVDBR

:TEST FOR “¢C*
;SET UP DBR ADRS
;LD EXPECTED
;LD DBR WITH #125252

1KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
TEST THAT ‘CYCLE'

T17

1148 006052
1149 006060
1150 006066
1151 006074

1152 006102

1153 006104
1154 006106
1155 006114
1156 006122
1157 006130
1158 006136
1159 006140
1160

000400
052525
173626
001124

001126
001126

023737

000400
052525
173572
001124

173602
001124
001126
001126

001401
104002

173636
173632

1161

;

006156
006160
006164
006166
006172
006200
006206
006212

1173 006220

1174 006226
1175 006232
1176 006240
1177 006246
1178 006254
1179 006262
1180 006264
1181 006266
1182 006270
1183 006274
1184 006276
1185 006300
1186 006302
1187 006304
1188 006306
1189 006310

1191
1192
1193
1194
1195

1$:

MOV.
MOV
MOV
cMP

#400,8DRVCSR
#52525,80RVDBR
S8DRVDBR, $BDDAT
$GDDAT, $BDDAT

MOV
MOV
CMP

952525, $GDDAT
SDRVDBR, $8DDAT
$GDDAT , $BDDAT

BEQ
1s
ERROR+17
BIC
#400,80RVCSR

BEQ
TST20
ERROR+2

;#TEST 20

1164 006152

1165
1166
1167
1168
1169
1170
1171
1172

SEQ 0026

i8Rtttk iRkttt

1162
1163 006144

006314
006322
006326
006334
006342

1197 006352
1198 006354
1199 006356
1201 006362

000004

012737
004537
006266
012700
005001
004737
012777
012777
010037
012777
052777

106427

013737

012737

017737
042777

104005

000442
022626
004537
000700
000001

104007
000433
104010
000431
104011
000427
012737
010037
017737
023737
001405
013737

104012
000406
005100
005101
001301

Page 10-16

WILL CLOCK THE DBR (IN)

012777
012777
017737
023737

001401
104017
042777
012737
017737

Monday 08-Apr-85 16:01

006166
012454

TST20:

SCOPE

013700
177777
025224

025224

000101
000400
000000
001716
000700

173444
000100

LT T

1$:

173476
173470

012520

¢-2,R0

MOV
MOV
MOV
MOV

#-1,80RVHCR
#DBUF , BDRVBAR
RO,DBUF
#101,80RVCSR

JSR

PC,KBDSRV

#400,8DRVCSR
#PRO

DRVCSR, $BDADR
9700, $GDDAT
SDRVCSR, $BDDAT

BIC

#100,8DRVCSR

ERROR+S

4%
(SP)+,(SP)+

BR
CMP

JSR
RS ,CKSTAT
700
1
ERROR+7

ERROR+10

ERROR-11

025224
001124
173366

001120

001124

001126
001126

001720

001122

MOV
MOV
MOV
cHP
BEQ
MOV

@DBUF, $GDADR
RO, $GDDAT
SDRVDBR, $BDDAT
$GDDAT , $BDDAT
34
DRVDBR, $BDADR

BR
COM
COoM
BNE

RO
R1
1s

ERROR.12

34:

TR P

MOV
MOV
MOV

24:

TR T

CLR

BIS
MTPS

001122
001124
001126
173434

RS,SETVEC

MOV
173512
173506

@14, SLPERR

gifl

177776

bb bbbt bbbt

bbbt

bbb bd bbb

di bbb ki bbb
dd

TEST SINGLE "DATI” NPR TRANSFERS (FLOATINGS & COMPLEMENT PATRN)

MOV

001110

:SET CYCLE - SHOULD CLK DBR (IN)
;CHANGE DBR (OUT) DATA - SHOULD NOT AFFECT CIN)
sREAD DBR
;CORRECT?
:BR IF SO
;CYCLE DID NOT LATCH DBR (IN) DATA
;CLEAR CYCLE BIT
sNOW EXPECT #52525
sREAD DBR
;CORRECT?
3 sNEXT TEST IF SO
;DBR FAILED TO READ WHEN CYCLE CLEARED (NORMAL)

Py PP

T Y

:SET UP SCOPE LOOP ADRS
:GO SET UP INTERRUPT RETURN
sRETURN TO 24 ON INTR
sFLOAT ZERO RIGHT TO LEFT
:R1 CONTROLS DATA SHIFTINGS

:TEST FOR "“¢C*

100 ONE XFER
sGET DATA WCRD FROM “DBUF*
:SET UP MEM DATA
+SET IE € GO (CO,C1 = ZERO)
+SET CYCLE
;ENABLE THE INTR
:SET UP CSR ADRS
;LD EXPECTED

1KJLOOL

tREAD THE CSR

sCLR IE
+WCO FAILED TO INTERRUPT (CHECK FOR WCO)

+GO RESTORE VECTOR
sINTR RETURNS HERE - FIX STACK SINCE NO RTI
160 CHECK STATUS

sCSR STATUS EXPECTED

1® OF XFERS
sRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
:GO RESTORE VECTOR
sRETURN HERE IF WC ER - EXPECTED 0
1GO RESTORE VECTOR
sRETURN HERE IF BAR ER - SHOULD = DBUF .2
:GO RESTORE VECTOR
sRETURN HERE IF OK - SET UP XFER ADRS
sLD EXPECTED
sREAD DATA XFERED
sCORRECT?
s8R IF SO
:SET UP DBR ADRS
sDATA ER - DBR CONTAINS WRONG DATA
:GO RESTORE VECTOR
sRETURN HERE ON GOOD DATA - NOW COM PATRN
sKEEP TRACK OF COMPLEMENT
;00 COMPLEMENT OF THIS FLOATING ZERO IF 0

C-ZORVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T20

1202
1203
1204
1205
1206

Monday 08-Apr-85 16:01

Page 10-17
SEQ 0027

TEST SINGLE “DATI” NPR TRANSFERS (FLOATINGS & COMPLEMENT P

006364
006366
006370
006372

006300
005200
103676
004737

ASL

012474

4s:

RO
RO
13
PC,RSTVEC

INC
B8CS
JSR

iWAS DONE

- NOW SHIFT ZERO LEFT

sKEEP LSB SET
sAGAIN TILL ZERO BIT IN CARRY
:GO RESTORE VECTOR

;;‘.t.‘.‘t‘..“t.t““““..“.‘.‘t‘..““.‘

;o TEST 21

006376

1207
1208 006400
1209 006406
1210 006412
1211 006414
1212 006420
1213 006422
1214 006426
1215 006434
1216 006442
1217 006446
1218 006454
1219 006462
1220 006466
1221 006474
1222 0C6502
1223 006510
1224 006512
1225 006514
1226 006516
1227 006522
1228 006524
1229 006526
1230
1231 006530
1232 006532
1233 006534
1234 006536
1235 006540
1236 006542
1237 006550
1238 006554
1239 006562
1240 006570
1241 006572
1242 006600
1243 005602
1244 006604
1245 006606
1246 006610
1247 006612
1248 006614
1249 006616
1250 0056620
1251

006624
006626

bttt

000004
012737
004537
006514
012700
005001
004737
012777
012777
010077
012777
052777
106427
013737
012737
017737
104005
000442
022626
004537
001702
000001
104007
000433
104010
000431
104011
000427
012737
010037
013737
023737
001405
013737
104013
000406
005100
005101
001304
006300
005200
103701
004737

000004
012737

006422
012454

TST21:

SCOPE

1%:

MOV
JSR
24
MOV
CLR
JSR

001110

177776
013700
177777
025224
173252
000103
000400
000000
001716
001702
173210

173256
173252
173242
173234

BIS

MTPS
MOV
MOV
MOV

001122
001124
001126

2%:

012520

025224
001124
025224
001124

001126
001126

001720

001122

L L L L

“DATO” NPR TRANSFERS (FLOATING O COMPLEMENT PARTRN)

@18, SLPERR
RS,SETVEC

R1
PC ,KBDSRV

@-1,30RVUWCR

¢DBUF
, 3DRVBAR
RO,8DRVDBR
#103,8DRVCSR
©€400,30RVCSR

9PRO

DRVCSR, $BDADR
€1702, $GDDAT
SDRVCSR, $BDDAT

ERROR.S
BR
4%
cMP
(SP)+,(SP).
JSR
R5,CKSTAT
1702
1
ERROR.7

MOV

MOV
CMP
BEQ

MOV

4s:

DBUF
, $BDDAT
;GDDAY.SBDDAT
$

DRVDBR, $BDADR

ERROR-13
BR
as
RO
coM
R1
coM
BNE
13
ASL
RO
INC
RO
BCS
1s
PC.RSTVEC
JSR
it

;#TEST 22

TEST 200

L T

;:TEST FOR

000010

001160

SCOPE
MOV

PPOTI

"¢C”

;KJLOO1

;D0 ONE XFER

;WRITE DATA WORD TO

“DBUF*

:SET UP DATA IN DBR
+SET IE, GO & FNCT1 (CO = 0, C1 = 1)
:SET CYCLE
;ENABLE THE INTR
:SET UP CSR ADRS
;LD EXPECTED

;READ THE CSR
;WCO FAILED TO INTERRUPT (CHECK FOR WCO)

sCYCLE, READY,

IE & FNCT 1

;GO RESTORE VECTOR

;RETURN HERE IF WC ER

- EXPECTED 0

;GO RESTORE VECTOR
;RETURN HERE IF BAR ER - SHOULD = DBUF +2
;GO RESTORE VECTOR
;RETRUN HERE IF OK - SET UP XFER ADRS
;LD EXPECTED
:GET DATE XFERED
:CORRECT?
;BR IF SO
:SET UP DBR ADRS
;DATA ER - MEM CONTAINS WRONG DATA
;GO RESTORE VECTOR
;RETURN HERE ON GOOD DATA - NOW COM PATRN
:KEEP TRACK OF COMPLEMENT
;00 COMPELMENT OF THIS FLOATING ZERO IF 0
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
;KEEP LSB SET
;AGAIN TILL ZERO BIT IN CARRY
;GO RESTORE VECTOR
P

T TP

T T

IITTIITITYY

“DATI” NPR TRANSFERS (BURST MODE)

3088080000000tt

15T22:

;GO RESTORE VECTOR
:INTR RETURNS HERE - FIX STACK SINCE NO RTI
;GO CHECK STATUS
;CSR _STATUS EXPECTED
:& OF XFERS
:h=TURN HERE IF STATUS ER - EXPECTED STAT C,

RO, SGDDAT

bttt

sSET UP SCOPE LOOP ADRS
;GO SET UP INTERRUPT RETURN
;RETURN TO 28 ON INTR
sFLOAT ZERO RIGHT TO LEFT
;R1 CONTROLS DATA SHIFTING

BR
4%
E:ROR-lO
43
8
ERROR-+11
43
BR
MOV
#DBUF
, $GDADR

001120

012474

MOV
MOV
MOV
MOV

t‘t“.t.““.‘...‘..t

TEST SINGLE

tk Rhtbttbbhbibbbiitdd

#10, STIMES

::00 10 ITERATIONS

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
Te2

Monday 08-Apr-85 16:01

004737
004537
006732
004737
012777
012777
012702
004737
013737

012737
017737
042777
104005
000434
022626
004537
000700
000310
104007
000425
104010

000423
104011
000421
012737
012737

017737
023737

001404
013737
104012
004737

0137¢0
012474

01314C
177470
025224
000101
013652
001716
000700
173000
000100

JSR
JSR
1
JSR

173032
173026

MOV

001122
001124
001126

172770

18:

012520

026042
070707
172720
001124

001120
001124
001126
001126

001720

001122

012474

2%:

1286

PC,KBDSRV
RS,SETVEC

PC,LDBUF

©-200. ,8DRVWCR

s TEST FOR "¢C"
sKJLOO1
;GO SET UP INTERRUPT RETURN
sRETURN TO 17 ON INTR
:GO LOAD BUFFER WITH COMPLEMENTING PATRN
;LOAD WC REG - WILL DO 200 XFERS
:SET UP CURRENT ADRS
+SET IE & GO IN R2 (CO = 0, C1 = 0)
s KJLOO2
sWAIT FOR INTERRUPT
;KJLOO2
-3SET _UP CSR ADRS (ONLY HERE IF ERROR)
;LD EXPECTED
;READ THE CSR
;CLR INTR ENABLE

MOV
#DBUF
, 3DRVBAR
MOV
101,R2
PC,TIMER
JSR
MOV
DRVCSR, $BDADR
€700, $GDDAT
MOV
MOV
SDRVCSR, $BDDAT
BIC
€100,3DRVCSR
ERROR+S
;WCO FAILED TO INTERRUPT (SINGLE CYCLE ON COULD CAUSE
THIS)
BR
2$
;GO RESTORE VECTOR
CMP
(SP)+,(SP)+
;INTR RETURNS HERE - FIX STACK SINCE NO RTI
JSR
R5,CKSTAT
;GO CHECK STATUS
700
;CSR STATUS EXPECTED
200.
:® OF XFERS
ERROR+7
;RETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
BR
23
;GO RESTORE VECTOR
ERROR+10
:RETURN HERE IF WC ER - EXPECTED 0
BR
24
;GO RESTORE VECTOR
ERROR-+11
;RETURN HERE IF BAR ER - SHOULD = DBUF +620
BR
2
;GO RESTORE VECTOR
MOV
4DBUF +616, $GDADR
;0K - SET UP LAST XFER ADRS WHERE #70707 SHOULD BE
€70707, $GDDAT
MOV
;LD EXPECTED
MOV
SDRVDBR, $BDDAT
;DBR SHOULD HAVE LAST DATUM
$GDDAT, $BDDAT
CMP
;CORRECT?
BEQ
23
;BR IF SO
MOV
DRVDBR, $BDADR
;SET UP DBR ADRS
ERROR+12
;:DATA ER - DBR DIU NOT CONTAIN EXPECTED LAST XFER
PC,RSTVEC
JSR
;GO RESTORE VECTOR

bt
L
T
T
T

;«TEST 23

007026
007030

000004
012737

007036
007042
007046
007GC50

004737
004537
007136
012777
012777
012777
012702
004737
013737
012737
017737
042777
104005
000416
022626
004537
001702

007056
007064
1294 007072
1295 007078

1296
1297
1298
1299
1300

SEQ 0028

TEST 200 "DATI” NPR TRANSFERS (BURST MODE)

1252
1253 006634
1254 006640
1255 006644
1256 006¢€46
1257 006652
1258 006660
1259 006666
1260 006672
1261 006676
1262 006704
1263 006712
1264 006720
1265 006726
1266 006730
1267 006732
1268 006734
1269 006740
1270 006742
1271 006744
1272 00674¢€
1273 006750
1274 006752
1275 0C6754
1276 006756
1277 006760
1278 006766
1279 006774
1280 007002
1281 007010
1282 007012
1283 007020
1284 007022
1285

1287
1288
1289
1290
1291
1292
1293

Fage 10-18

007102
007110
007116
007124
007132
1301 007134
1302 007136
1203 007140
1204 007144

TEST

200 “DATO” NPR TRANSFERS (BURST MODE)

33 ‘.ttlt““‘.‘t“t“‘tt.‘.t““t“tt‘.tt““.

000010

001160

TST23:

013700
012454

177470
025224

177377

000103
013652
001716
001702
172574
000100

012520

SCOPE
MOV

JSR
JSR
1s
MOV

172634
172630
172626

001122

001124

001126
172564

1%:

t.“‘tt‘ttt.tit..tt

#10, STIMES

PC,KBDSRV
R5,SETVEC

::00 10 ITERATIONS

;:TEST FOR “tC*
;KJLOO1
;GO SET UP INTERRUPT RETURN
;RETURN TO 1% ON INTR
#-200. ,8DRVWCR
;WORD WC REQ - WILL DO 200 XFER'S
MOV
#DBUF
, 3DRVBAR
:SET UP CURRENT ADRS
#177377,3DRVDBR ;THIS WILL BE WRITTEN TO MEM
MOV
MOV
#103,R2
+SET IE, FNCT 1 & GO IN R2 (CO = 0, C1 = 1) ;KJLOO2
PC,TIMER
JSR
;WAIT FOR INTERRUPT
;KJLOO2
MOV
DRVCSR, $BDADR
:SET UP CSR ADRS (ONLY HERE IF ERROR)
#1702, $GDDAT
MOV
;LD EXPECTED
MOV
DRVCSR, $BDDAT
;READ THE CSR
BIC
#100,8DRVCSR
;CLR INTR ENABLE
ERROR+5
;WCO FAILED TO INTERRUPT (SINGL CYCL ON COULD CAUSE THIS)
BR
2%
;GO RESTORE VECOTR
cMP
(SP)+,(SP)
:INTR RETURNS HERE - FIX STACK SINCE NO RTI
JSR
R5,CKSTAT
;GO CHECK STATUS
1702
;CSR STATUS EXPECTED

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T23

TEST

1305 007146
1306 037150
1307
1308 007152
1309 007154
1310 007156
1311 007160
1312 007162
1313 007164
1314 007170
1315 007172
1316
1317

Monday 08-Apr-85 16:01

SEQ 0029

200 “DATO” NPR TRANSFERS (BURST MODE)

000310
104007

200.
ERROR+7

000407
104010
000405
104011
000403
004737
104013
004737

BR
2
ERROR+10
BR
2%
ERROR+11
BR
2%
JSR
PC,CKDAT
ERROR+13
JSR
PC,RSTVEC

013272
012474

2%:

1318
1319 007206
1320 007214
1321 007220
1322 007222
1323 007226
1324 0C7232
1325 007236
1326 007244
1327 007252
1328 007256
1329 007262
1330 007266
1331 007270
1332 007276
1333 007304
1334 007312
1335 007214
1336 007316
1337 007320
1338 007322
1339 007324
1340 007330
1341 007332
1342 007334
1343

;RETURN HERE IF WC ER - EXPECTED 0
;GO RESTORE VECTOR
;RETURN HERE IF BAR ER - SHOULD = DBUF +620
;GO RESTORE VECTOR
;RETURN HERE IF OK - NOW GO CHECK DATA
;RETURN HERE IF DATA ER - DBR CONTAINS WRONG DATA
;RETURN HERE IF DATA CHECK OK - GO RESTORE VECTOR
".tt.‘.t‘.t

000004
012737

013737
004537
007316
012700
005037
004737
012777
012777
012702
004737
005237
001375
012737
017737
042777
104005
000407
022626
005300
001343
005737
001401
104014
004737

TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF

;3‘t“ttt‘“‘.tt“‘t“‘t‘.‘.‘.‘.“.ttt“lt‘.‘t.‘

000010

001160

001716
012454

001122

TST24:

€10, $TIMES

::CO 10 ITERATIONS

MOV
gSR

DRVCSR, $BDADR
R5,SETVEC

MOV
CLR
JSR
MOV
MOV
MOV
JSR
INC
BNE
MOV
MOV
BIC
ERROR+5
BR

#10,R0
$BDDAT
PC,.KBDSRV
#-200. ,3DRVWCR
#DBU
, 3DRVBAR
F
#101,R2
PC,TIMER
$GDDAT
2
#700, $GDDAT
@DRVCSR, $BDDAT
#100,8DRVCSR

:SET UP CSR ADRS
;GO SET UP INTR RETURN
;RETURN TO 3$ ON INTR
;D0 EIGHT 200 WORD XFER'S
;USE $BDDAT AS A COUNTER
:TEST FOR "tC*

DEC

JSR

PC,RSTVEC

000010
001126
013700
177470
025224
000101
013652
001124

172446
172442

000700
172414
000100

001124
001126
172404

1¢:

2s:

3s:
001126

012474

4s:
R

CMP

000004
012737

000010

001160

007350
007356
007362
007364
007370
007376
007402
007410
007416

013737
004537

001716
012454

001122

012700
012737
004737
012777
012777
106427

000010
000000
013700
177470
025224
000000

007474

001126
172302
172276

TST25:

1s:

:FROM DBUF

+SET IE & GO IN R2 (SINGLE CYCLE LOW)
;KJLOO2
;GO WAIT FOR INTERRUPT CR XFER COMPLETE ;KJL002
:START COUNTING - SHOULD NEVER GET HERE
sUNTIL 64K
;LD EXPECTED
;:READ STATUS
;CLR IE
;NO INTERRUPT ON 200 DATI'S
;GO RESTORE VECTOR
;FIX STACK SINCE NO RTI
;DONE 8 TIMES?
:BR IF NOT
:SHOULD STILL BE ZERO
:BR IF SO
;BURST MODE (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU
;S0 RESTORE VECTOR

(SP)+,(SP)«

et L L LT

TS T

ITTTTTTTTY

#10, $TIMES

::00 10 ITERATIONS

MOV
g?fl

DRVCSR, $BDADR
RS,SETVEC

MOV
MOV

#10,R0
#0, $BDDAT

:SET UP CSR ADRS
;GO SET UP INTR RETURN
;RETURN TO 3$ ON INTR
;00 EIGHT 200 WORD XFER'S
:USE $BDDAT AS A COUNTER
:TEST FOR “+C”
;D0 200 XFERS (DATI'S)
:FROM DBUF
;ALLOW AN INTR

JSR

TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON

SCOPE
MOV

MOV
MOV
MTPS

$KJLOO1

;D0 200 XFERS (DATI'S)

BNE
13
TST
$BDDAT
BEQ
4%
ERROR+14

007340
007342

tt“tt“.‘t‘.t‘.‘

SCOPE
MOV

;#TEST 25

1344
1345
1346
1347
1348
1349
1350
1351
1352
1253

:® OF XFERS

;RETURN HERE IF STATUS ER - EXPECTED STAT C,
;CYCLE, READY, IE & FNCT 1
;GO RESTORE VECTOR

;3‘.‘t."tt"t.‘“t‘““t"t“‘.“‘...‘..““.t‘t‘.“

:#TEST 24

007176
007200

Page 10-19

PC,KBDSRV

#-200. ,3DRVWCR
#DBU
, 3BDRVBAR
F
#PRO

;KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
125

Monday 08-Apr-85 16:01

Page 10-20
SEQ 0030

TEST THAT THE CPU IS NOT LOCKED OUT WITH SINGLE CYCLE ON
1354 007422
1355 007430
1356 007436

1357 007440
1358 007444
1359 007446
1360 007454
1361 007462
1362 007470
1363 007472
1364 007474
1365 007476
1366 007500
1367 007502
1368 007510
1369 007512
1370 007514

1371
1372
1373
1374
1;;5
1376

007522
007530
007536
007540
007542

012777
052777
000240
005237
001375
012737
017737
042777
104005
000423
022626
005300
001336
022737
103401
10401S

017737

012737
023737
001401
104007
004737

000111
000400

172266
172260

001126
004710
172236
000100

2%:
001124
001126
172226
3s:

000000
172176

004710
001124

001126
001126

001124
001126

012474

4s:

5¢:

1377

MOV
BIS
NOP

sSET IE, FNCT3 &€ GO (SINGLE CYCLE HIGH)
:SET CYCLE
;FREEBEE

INC
$BDDAT
BNE
2%
MOV
#4710, $GDDAT
MOV
8DRVCSR, $BDDAT
BIC
#100,8DRVCSR
ERROR+5
BR
S5$
CMP
(SP)+,(SP)+
DEC
RO
BNE
1s
CcMP
#0, $BDDAT
BCS
4%
ERROR+15

MOV

MOV
CMP
BEQ
ERROR+7
JSR

:START COUNTING
sUNTIL 64K - SHOULD INTR BEFORE OVERFLOW
;LD EXPECTED
;READ STATUS
;CLR IE

sNO INTERRUPT ON 200 DATI'S (WITH SINGLE CYCLE)
;GO RESTORE VECTOR
;FIX STACK SINCE NO RTI
;DONE 8 TIMES?
;BR IF NOT
:$BDDAT SHOULD HAVE BEEN COUNTED
:BR IF SO
:CPU APPEARED LOCKED OUT WITH SINGLE CYCLE SET
;READ STAUTS
;LD EXPECTED
;CORRECT?
;:BR IF SO
:STATUS INCORRECT ON XFER WITH SINGLE CYCLE SET
;GO RESTORE VECTOR

8DRVCSR, $BDDAT

#4710, $GDDAT
$GDDAT, $BDDAT
S$
PC,RSTVEC

FiRRAR
R RARR
ARA
AR RR AR Rk RA
RAR
AR AR Akt bEAA
hbhb b hb b

;*#TEST 26

1378

#111,8DRVCSR
#400,8DRVCSR

007546
007550

000004
012737

et
L T T
T
L L Lt
L
L
O
t
T
T

000200

001160

TST26:

SCOPE
MOV

1379
1380
1381

#200,$TIMES
T

;:00 200 ITERATIONS
L Ll LD

i*During maintenance-mode testing, the DRV11-WA does alternating DATI/DAT
O
i#transfers at consecutive locations; i.e. a DATI from location X is
followed
i*in sequence by a DATO to location X+2, etc.

1382

1383 007556
1384 007562
1385 007564
1386 007570
1387 007576
1388 007604
1389 007610
1390 007614
1391 007620
1392 007626
1393 007634
1394 007640
1395 007646
1396 007654
1397 007€62
1398 007670
1399 007676
1400 007704
1401 007706
1402 007710
1403 007712
1404 007716
1405 007720
1406 007722

RAR
kb hh bbbt hs

TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE CYCLE

004537
007710
004737
012737
012737
004737
106427
005777
012777
013777
005477
012777
052777
013737
013737
017737
042777
104005
000440
022626
004537
011702
000001
104007

012454
013216
011702
000001
013700
000000
172072
025224
007720
172052
010101
000400
001716
007716
172022
000100

012520

007716
007720

1s:

172066
172056
172050
172042
001122
001124
001126
172012

2%:
3s:
4:

JSR
24
JSR
MOV
MOV
JSR
MTPS
TST
MOV
MOV
NEG
MOV
BIS
MOV
MOV
MOV
BIC
ERROR+5
BR
cMP
JSR
11702
1
ERROR+7

RS,SETVEC

T T T

PC.LDBUF1
#11702,3%
#1.4%
PC,KBDSRV
#PRO
SDRVUCR
#DBUF , aDRVBAR
4% ,3DRVUCR
SDRVUWCR
#10101,3DRVCSR
#400,8DRVCSR
DRVCSR, $BDADR
3$,$GDDAT
8DRVCSR, $BDDAT
#100,3DRVCSR
6$
(SP)+,(SP)+
RS ,CKSTAT

T T Ll T

:KJLOOS
:KJLOOS
:KJLOOS

;GO0 SET UP INTR RETURN
;RETURN TO 2$¢ ON INTR
;GO SET UP DBUF (SPECIAL COM PATTERN)
:3% CONTAINS EXPECTED STATUS
;4% CONTAINS THE CURRENT XFER NO # (MAX 8)
;TEST FOR “tC”
:KJLOO1
;ALLOW INTR
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
:SET UP CURRENT ADRS
;:SET XFER #
;NEGATE FOR WC
;SET UP MAINT, IE & GO
;SET CYCLE
;
;SET UP CSR ADRS
;LD EXPECTED
;READ STATUS
;DISABLE IE
:NO INTR ON XFER (IN MAINT MODE)
;GO RESTORE VECTOR
;RETURN HERE ON INTR - FIX STACK SINCE NO RTI
;G0 CHECK STATUS
:THIS LOCATION WILL CONTAIN EXPECTED STATUS
;THIS LOCATION WILL CONTAIN CURRENT XFER # (MAX 8)
;RETURN HERE IF STATUS ER - WILL EXPECT

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T26

Monday 08-Apr-85 16:01

Page 10-21

SEQ 0031

TEST THAT MAINT MODE CONTROLS FNCT BITS, XFER DIR & SINGLE

1407
1408
1409 007724
1410 007726
1411 007730
1412 007732
1413 007734
1414 007736
1415 007744
1416 007752
1417 007754
1418 007762
1419 007766
1420 007774
1421 007776
1422 010002
1423 010004
1424 010006
1425 010010
1426
1427

+MAINT, COUNT INCREASE OF FNCT & STAT BITS,
000431
104010
000427
104011
000425
062737
032737
001403
012737
005237
022737
001303
004537
000010
104013
000240
004737

001002
020000

007716
007716

010700
007720
000011

007716

007720

Ss:

013344

012474

6%:

ERROR+10
BR
6%
ERROR+11
BR
63
ADD
#1002,
34
BIT
#B8IT13,3¢
BEQ
5
MOV
#10700,3¢
INC
4%
CcMP
11,48
BNE
1
JSR
R5,CKDAT1
10

ERROR+13
NOP
JSR
PC,RSTVEC

1428
1429 010024
1430 010030
1431 010034
1432 010040
1433 010042
1434 010050
1435 010056
1436 010062
1437 010070
1438 010072
1439 010100
1440 010106
1441 010114
1442 010122
1443 010130
1444 010136
1445 010144
1446 010146
1447 010150
14438 010152
1449 010160
1450 010166
1451 010174
1452 010176
1453 010204
1454
1455 010206
1456 010210
1457 010216
1458 010224
1459 010232

:CYCLE, READY & IE

;GO RESTORE VECTOR
;RETURN HERE IF WC ER - SHOULD BE 0
;GO RESTORE VECTOR
;RETURN HERE IF BAR ER;GO RESTORE VECTOR
;RETURN HERE IF OK - ADVANCE EXPECTED STATUS LOC
;LOOK FOR OVERFLOW
:BR IF NOT
+FNCT & STAT BITS SHOULD BE ZERO THIS TIME
sADVANCE CURRENT XFER #
;HAVE 10 XFERS BEEN DONE
:BR IF NOT
:NOW GO CHECK DATA
i# OF XFER'S TO CHECK
;RETURN HERE IF DATA ER - (WITH MAINT SET)
;RESTORE VECTOR NEXT
;GO RESTORE VECTOR

3 ;t‘.tt..‘tttt““‘tt‘t‘“‘ttt‘t‘i.“t‘ttt“‘t“‘

;#TEST 27

010014
010016

[ bb
L L L
b

000004
012737
012700
004737
004537
010150
012777
012777
106427
032777
001403
012777
012777
052777
013737
012737
017737
042777
104016
0Q0526
022626
017737
012737
023737
001405
013737
104016

000506
017737
012737
023737
001405

tt‘t.t“t‘t‘t“ *

TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS

000100

001160

000002
013700
012454

TST27:

18:

177777
160000
000000
010000

171050

000077
000161
000400
001716
140760
171562
000100

171622
171610
171602
001122
001124
001126
171552

171642
171636

171540
140760
001124

001126
001124
001126

001716

001122

171476
000000
001124

001126
001124
001126

SCOPE

2%:

#100, $TIMES

::00 100 ITERATIONS

MOV
JSR
JSR
24

#2,R0
PC,KBDSRV
RS,SETVEC

;RO WHEN ZERO SAYS CLR *NEX' WITH RESET
;:TEST FOR “tC*
;KJLOO1
;GO SET UP INTERRUPT RETURN
;RETURN TO 2$¢ ON TIMEOUT INTR

BIT
BEQ
MOV

MOV

BIS

#-1,8DRVUWCR
#160000, 8DRVBAR
#PRO
#SW12, ISWR

104
#000077, 8DRVBAE
#161,8DRVCSR
#400,8DRVCSR

MOV
DRVCSR, $BDADR
MOV
#140760, $GDDAT
MOV
@DRVCSR, $BDDAT
BIC
#100,8DRVCSR
ERROR+16
BR
78
CcMP
(SP)+,(SP)+
MOV
SDRVCSR, $BDDAT
MOV
#140760, $GDDAT
CMP
;?DDAT.SBDDAT

BEQ
MOV
DRVCSR, $BDADR
ERROR+16
38:

'NEX’

MOV

MOV
MOV
MTPS

10s$:

t
PP

MOV
MOV

CMP

BEQ

7%
@DRVUCR, $BDDAT
#0, $GDDAT
:GDDAT.SBDDAT
$

:SET UP FOR ONE XFER'S

:SET UP BAR TO 160000 (RESERVED)
;ALLOW INTR
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
:BR_IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
:SET IE, XAD 17,16 € GO
:SET CYCLE
:SET UP CSR ADRS - SHOULD NEVER GET HERE
;LD EXPECTED
;:GIVE THEM THE STATUS
;:CLR IE
;NEX FAILED TO CAUSE AN INTERRUPT

;GO RESTORE VECTOR
;SHOULD INTR RETURN HERE - FIX STACK
;READ THE CSR
;LD EXPECTED
;CORRECT?
;BR IF SO
:SET UP CSR ADRS
:STATUS ER - EXPECTED
;ER, NEX, CYCLE, READY, IE, XAD17 & XAD16
;GO RESTORE VECTOR
;READ WORD COUNT
;%% SHOULD HAVE 0
:CORRECT?
;:BR IF SO

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T27

1507
1508
1509
1510
1511
1512

013737
104010
000467
005777
017737
042737
012737
023737
001405
013737
104011
000443
005300
001422
042777
017737
012737
023737
001626
013737
104016
000417
000005
017737
012737
023737
001404
013737
104016
004737

001712

171440
171436

001122

000001
160002
001124

001126
001126
001124
001126

001714

001122

4%:

S5$:
040000
171362
000760
001124

171366
001126
001124
001126

001716

001122

171322

000200
001124

001126
001124
001126

001716

001122

012474

6%:

78:

MOV
DRVWCR, $BDADR
ERROR+10
7%
BR
TST
8DRVWCR
MOV
SDRVBAR, $BDDAT
BIC
#8IT00, $BDDAT
MOV
160002, $GDDAT
cMP
;gDDAT.OBDDAT
BEQ
MOV
DRVBAR, $BDADR
ERROR+11
7%
BR
RO
DEC
BEQ
6%
8IC
#40000,8DRVCSR
MOV
8DRVCSR, $BDDAT
MOV
#760, $GDDAT
$GDDAT, $BDDAT
CcMP
BEQ
1$
MOV
DRVCSR, $BDADR
. ERROR+16
BR
7$
RESET
MOV
8DRVCSR, $BDDAT
MOV
#200, $GDDAT
CMP
;?DDAT.SBDDAT
BEQ
MOV
DRVCSR, $BDADR
ERROR+16
PC,RSTVEC
JSR

SEQ 0032

:SET UP WCR ADRS

;#% WC WAS NOT

INCREMENTED ON A TIMEOUT

000004
012737

010444
010450
010452
010456
010462
010470
010476
010502
010510
010516
010524
010530
010532
010540
010546
010554
010562
010564
010566
010570

004737
004537
010566
004737
005777
012777
012777
106427
012777
052777
012737
005237
001375
013737
012737
017737
042777
104005
000420
022626
004537

;GO RESTORE VECTOR
;:CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;READ BUFFER ADRS

;#% DON'T NEED BITOO

;%% SHOULD HAVE INCREMENTED
;CORRECT?
:BR IF SO
;SET UP BAR ADRS
;*#% BAR WAS NOT INCREMENTED ON A TIMEOUT ER
;GO RESTORE VECTOR
;KEEP TRACK ON HOW TO CLR
;BR IF CLR BY RESET
;WRITE NEX TO ZERO
;READ CSR
;
;LD EXPECTED
;CORRECT?
;BR IF SO + REPEAT TEST FOR RESET TEST
:SET UP CSR ADRS
;' NEX' FAILED TO WRITE TO ZERO
;GO RESTORE VECTOR
;ISSUE BUS RESET
;READ THE CSR
;EXPECT ONLY READY
;CORRECT?
:BR IF SO
;SET UP CSR ADRS

;RESET FAILED TO CLR 'NEX’
;GO RESTORE VECTOR

sikkkkbkbkkkhbkbkbkbh kb kbbb hkhk bk hh bk kb bk kb kb k kbbb hk bk bk

;tTEST 30

010430
010432

1491
1492 010440

1502
1503
1504
1505

Page 10-22

TEST THAT A DATI FROM A NON-EXISTANT BUS ADRS SETS ’'NEX'

1460 010234
1461 010242
1462 010244
1463 010246
1464 010252
1465 010260
1466 010266
1467 010274
1468 010302
1469 010304
1470 010312
1471 010314
1472 010316
1473 010320
1474 010322
1475 010330
1476 010336
1477 010344
1478 010352
1479 010354
1480 010362
1481 010364
1482 010366
1483 010370
1484 010376
1485 010404
1486 010412
1487 010414
1488 010422
1489 010424
1490

1493
1494
1495
1496
1497
1498
1499
1500
1501

Monday 08-Apr-85 16:01

hh bk khhhhkh ki

TEST 200 NPR TRANSFERS IN MAINT MODE

b
T T
t
A
YT T T I LTI TITrm

000010

001160

TST30:

013700
012454

013216
171230
025224
177470
000000
010101
000400
000000
001126

001716
010700
171144
000100

012520

JSR
JSR
2%
JSR
TST
MOV
MOV
MTPS
MOV

171224
171214
171206
171200
001126

SCOPE
MOV

BIS

MOV

1¢:

001122
001124
001126
171134

INC
BNE

MOV

2%:

10, $TIMES

::00 10 ITERATIONS

PC,KBDSRV
R5,SETVEC

;:TEST FOR “tC”
;KJLOO1
;GO SET UP INTR RETURN
:RETURN TO 2$¢ ON INTR
;GO SET UP DBUF (SPECIAL COM PATTERN)
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
:SET UP CURRENT ADRS
:SET UP PCR 200 XFER'S
;ALLOW INTR
:SET MAINT, IE & GO (DATI)
:SET CYCLE
:SET UP A COUNTER
;COUNT AWAY
sWAIT TILL DONE - SHOULD INTR BEFORE OVFLO
:SET UP CSR ADRS
;LD EXPECTED
;READ STATUS
;:DISABLE IE
iNO INTR AFTER 200 MAINT MODE XFER'S
;GO RESTORE VECTOR
;RETURN HERE ON INTR - FIX STACK SINCE NO RTI
;GO CHECK STATUS

PC,LDBUF1

8DRVUCR
#DBUF
, 3DRVBAR
#-200. ,80RVWCR
#PRO

#10101,80RVCSR
#400,80DRVCSR
#0, $BDDAT

$BDDAT
1$
DRVCSR, $BDADR
#10700, $GDDAT
8DRVCSR, $BDDAT
#100,8DRVCSR

MOV
MOV
BIC
ERROR+5
BR
3
CMP
(SP)+,(SP)+
RS,CKSTAT
JSR

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
T30

Monday 08-Apr-85 16:01

SEQ 0033

TEST 200 NPR TRANSFERS IN MAINT MODE

1513 010574
1514 010576
1515 010600
1516
1517 010602
1518 010604
1519 010606
1520 010610
1521 010612
1522 010614
1523 010620
1524 010622
1525 010624
1526 010626
1527
1528

010700
000310
104007

10700
200,
ERROR+7

000411
104010
000407
104011
000405
004537
000310
104013
000240
004737

BR
3
ERROR+10
BR
3
ERROR+11
BR
3
JSR
R5,CKDAT1
200.
ERROR+13
NOP

013344

3s:

012474

JSR

[

010632
010634

1529
1530 010642
1531 010646
1532 010650
1533 010656
1534 010662
1535 010670
1536 010676
1537 010700
1538 010704
1539 010710
1540 010716
1541 010724
1542 010730
1543 010736
1544 010744
1545 010752
1546 010756
1547 010760
1548 010766
1549 010774
1550 011002
1551 011010
1552 011012
1553 011014
1554 011016
1555 011022
1556 011024
1557 011026
1558
1559 011030
1560 011032
1561 011034
1562 011036
1563 011040
1564 011042
1565 011046

PC,RSTVEC

;EXPECTED STATUS
i# OF XFERS
;RETURN HERE IF STATUS ER - EXPECTED MAINT,
:CYCLE, READY & IE
;GO RESTORE VECTOR
+RETURN HERE IF WC ER - SHOULD BE 0
;GO RESTORE VECTOR
;RETURN HERE IF BAR ER - SHOULD = DBUF +620
:GO RESTORE VECTOR
tRETURN HERE IF OK - NOW GO CHECK DATA
i® OF XFER'S TO CHECK
;RETURN HERE IF DATA ER - (WITH MAINT SET)
;RESTORE VECTOR NEXT
;GO RESTORE VECTOR

83 t‘t““‘ttttt“tt“tt“t“ttt‘t.t‘t“t‘ttt‘

;#TEST 31

Page 10-23

000004
012737

004537
011014
012737
004737
062737
023737
001467
004737
005777
013777
012777
106427
012777
052777
012737
005237
001375
013737
012737
017737
042777
104005
000421
022626
004537
010700
000310
104007
000412
104010
000410
104011
000406
004537
000310

000005

001160

TST31:

012454
020000
013700
020000
001734

013216
171002
001736
177470
000000
010101
000400
000000
001126
001716
010700
170716
000100

012520

013344

001736

001736
001736

1%:

170776
170766

170760
170752
001126

2s:

001122
001124
001126
170706

3s:

SCOPE
MOV

JSR
3$
MOV
JSR
ADD
CMP
BEQ
JSR
ST
MOV
MOV
MTPS
MOV
BIS
MOV
INC
BNE
MOV
MOV
MOV
BIC
ERROR+5
BR

cMP

tt“t‘ttt‘t.t““‘t‘

TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILABLE 4K
L

PPN

@5,$TIMES

::00 5 ITERATIONS

RS,SETVEC

;GO SET UP INTR RETURN
;RETURN TO 3§ ON INTR
:GET LOWEST BUFFER ADRS
;TEST FOR “tC”
;KJLOO1
;POINT TO NEXT 4K
;IS THE 4K THERE?
:BR IF NOT
;GO _SET UP SPECIAL COMPLEMENT PATTERN
iCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
:SET UP BUFFER ADRS
:SET UP FOR 200 XFER'S
;ALLOW INTR
:SET MAINT, IE € GO
:SET CYCLE
:SET UP A COUNTER
;COUNT AWAY
iSHOULD ALWAYS INTR FROM THIS LOOP
:SET UP CSR ADRS
;LD EXPECTED
;READ CSR
;:DISABLE IE
iNO INTR AFTER 200 MAINT MODE XFER'S
;GO RESTORE VECTOR
;RETURN HERE ON INTR - FIX STACK SINCE NO RTI
;GO CHECK STATUS
;EXPECTED STATUS
i# OF XFER'S
'
;RETURN HERE IF STATUS ER - EXPECTED MAINT.
:CYCLE, READY & IE
;GO RESTORE VECTOR
:RETURN HERE IF WC ER - SHOULD = 0
;GO RESTORE VECTOR
;RETURN HERE IF BAR ER - SHOULD = DBUFP+620
;GO RESTORE VECTOR
:RETURN HERE IF OK - NOW GO CK DAT
i# OF XFER'S TO CK
'

#20000,DBUFP
PC,KBDSRV
#200
, DBUFP
00

CORSZ,DBUFP
4s
PC,LDBUF1
SDRVWCR
DBUFP, 8DRVBAR
#-200. ,8DRVWCR
9PRO
#10101 ,8DRVCSR
400, 9DRVCSR
40, $BDDAT
$BDDAT
24
DRVCSR, $BDADR
#10700, $GDDAT
8DRVCSR, $BDDAT
#100, 3DRVCSR
43

(SP)+,(SP)+

JSR
RS,CKSTAT
10700
200.
ERROR+7
BR
4%
ERROR+10
BR
4%
ERROR+11
BR
4
JSR
R5,CKDAT1
200.

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

T31

Monday 08-Apr-85 16:01

Page 10-24

SEQ 0034

TEST A 200 WORD MAINT MODE XFER TO EACH ADDITIONAL AVAILAB

1566 011050
1567 011052
1568 011054
1569 011056
1570 011064
1571
1572

104013
000401
000700
012737
004737

025224
012474

001736

ERROR+13
BR
4%
BR
13
MOV
#DBUF , DBUFP
JSR
PC,RSTVEC

4%:

bhaanat

;#TEST 32
011070

1573
1574 011072
1575 011076
1576 011102
1577 011104
1578 011110
1579 011112
1580 011120
1581 011126
1582 011132
1583 011140
1584 011144
1585 011152
1586 011154
1587 011162
1588 011170
1589 011176
1590 011204
1591 011212
1592 011220
1593 011226
1594 011230
1595 011232
1596 011234
1597 011240
1598 011242
1599 011244
1600
1601 011246
1602 011250
1603 011252
1604 011254
1605 011256
1606 011260
1607 011266
1608 011274
1609 011302
1610 011304
1611 011312
1612 011320
1613 011322
1614 011330
1615

000760
000001
104007

000425
104010
000423
104011
000421
017737
017737
023737
001407
013737
013737
104020
012737
004737

TST32:

013700
001704
012454
177777
001150
170566
001150
000000
010000

170572
001736

000077
000161

170540
170526
170520
001122
001124
001126
170470

000400

001716

000760
170500

000100

170554
167766

10$:

1%:

012520

T T T I

T ITTIr T T Yo,

t
P
P PP P PP,

JSR
TST
BNE
JSR
1$
MOV
MOV
CLR
MOV
MTPS
BIT
BEQ
MOV
MOV
BIS
MOV
MOV
MOV
BIC
ERROR+5
BR
CMP
JSR

760
1
ERROR+7

167664
170426
001124

001124
001126
001126

001720
001150

001122
001120

025224
012474

001736

2%:
e
[

000004
012737

SCOPE

000005

001160

TST33:

PC,KBDSRV
LSIQ22
TST33
R5,SETVEC

:TEST FOR "tC*
:KJLOO1
;TEST IF THE SYSTEM IS SUPPORTS 22-BIT
::SKIP DMA TEST IN I/0 PAGE IF SYSTEM SUPPORTS Q22
;GO SET UP INTR RETURN
;RETURN TO 1$ ON INTR
#-1,8DRVWCR
:SET UP WC - 1 XFER
$TPS,CBUFP
:SET UP BUFFER ADRS TO PRINTER CSR ADRS
8DRVDBR
;ZERO THE DBR
$TPS,8DRVBAR
+SET UP BUFFER ADRS - FROM PRINTER CSR
#PRO
;ALLOW INTR
#5W12, 8SWR
;TEST IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
10$
:BR_IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
#000077, 8DRVBAE ;SET XAD 21,20,19,18,17,16
#161,8DRVCSR
:SET IE, XAD17 & XAD16, & GO
#400,3DRVCSR
:SET CYCLE
DRVCSR, $BDADR
;SET UP CSR ADRS
#760, $GDDAT
;LD EXPECTED STATUS
SDRVCSR, $BDDAT
;READ THE CSR
#100,8DRVCSR
;:DISABLE IE
iNO INTR ON 1 WD XFER FROM XCSR
28
;GO RESTORE VECTOR
(SP)+,(SP)+
:INTR RETURNS HERE - FIX STACK SINCE NO RTI
RS,CKSTAT
;GO CK STATUS
;CSR_EXPECTED STATUS
i®# OF XFER'S
;RETURN HERE IF STATUS ER

BR
2$
ERROR+10
BR
24
ERROR+11
BR
23
MOV
83 TPS, $GDDAT
MOV
S8DRVDBR, $BDDAT
CMP
$GDDAT, $BDDAT
BEQ
2%
MOV
DRVDBR, $BDADR
MOV
$TPS, $GDADR
ERROR+20
MOV
#DBUF , DBUFP
JSR
PC,RSTVEC
L

;#TEST 33
011334
011336

TEST THE ADDRESS (I/0) ABILITY TO THE TTY PRINTER CSR

L D
Lb
L L
A

000004

004737
005737
001114
004537
011232
012777
013737
005077
013777
106427
032777
001403
012777
012777
052777
013737
012737
017737
042777
104005
000434
022626
004537

:RETURN HERE IF DATA ER
:GO RESTORE VECTOR
s TRY NEXT BANK
;RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR

- EXPECTED CYCLE,

;GO RESTORE VECTOR
;RETURN HERE IF WC ER - EXPECTED ¢
;GO RESTORE VECTOR
iRETURN HERE IF BAR ER - SHOULD = XCSR+2
;GO RESTORE VECTOR
;RETURN HERE IF OK - GET XCSR CONTENTS
;READ DBR
;CORRECT?
:BR IF SO
;SET UP DBR ADRS
:SET ADRS OF DATA (XCSR)
;DATA ER FROM TTY PRINTER CSR
;RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR
P P P P

PP PP P PPPPE

TEST A 200 WORD MAINT MODE XFER WITH MMU

ittt

SCOPE
MOV

iXAD17 & XAD16, RDY & IE

#5,8TIMES

::00 5 ITERATIONS

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
133

Monday 08-Apr-85 16:01

Page 10-25
SEQ 0035

TEST A 200 WORD MAINT MODE XFER WITH MMU

1616
1617 011344
1618 011352
1619 011354
1620 011362
1621 011364
1622 011370
1623 011372
1624 011400
1625 011406
1626 011412
1627 011414
1628 011422
1629 011426
1630 011432
1631 011434
1632 011436
1633 011444
1634 011452
1635 011460
1636 011466
1637 011474
1638 011502
1639 011510
1640 011514
1641 011520
1642 011524
1643 011532
1644 011540
1645 011546
1646 011552
1647 011560
1648 011566
1649 011574
1650 011600
1651 011602
1652 011610
1653 011616
1654 011624
1655 011632
1656 011640
1657 011642
1658 011644
1659 011646
1660 011652
1661 011654
1662 011656
1663
1664 011660
1665 011662
1666 011664
1667 011666
1668 011670
1669 011672
1670 011676
1671 011700
1672 011702

032777
001555
032737
001551
005737
100003
052737
012737
004537
011644
012737
012700
012701
005020

077102

012737
012737
012737
012737
012737
012737
012737
004737
004737
005777
013777
013777
012777
106427
012777
052777
012737
005237
001375
013737
012737
017737
042737
042777
104005
000421
022626
004537
010700
000310
104007
000412
104010
000410
104011
000406
004537
000310
104013
000401

010000

167566

000001

001710

000020
000001
012454

172516
177572

040000
001564
000020

001736

10¢:

11%:

001524
001564
000002
000400
000400
040000
000000
013700
013216
170166
001672
001674
177470
000000
010101
000400
000000

001126

001716
010700
170074
000060
000100

012704

001664
001666
001670
172344
172346
001672
001674

1¢:

170162
170162
170144
170136
170130

001126

2%:

001122
001124
001126
001126
170056
3s:

BIT
BEQ
BIT
BEQ
TST
BPL
BIS
MOV
JSR
34
MOV
MOV
MOV
CLR
S08
MOV

MOV
MOV
MOV
MOV
MOV
MOV
JSR
JSR
TST
MOV
MOV
MOV
MTPS
MOV
BIS
MOV
INC
BNE
MOV
MOV
MOV

BIC
BIC
ERROR+S
BR
cMP
JSR
10700
200.
ERROR+7
ERROR+10

013452

:§U12.BSHR

#BITO,MMAVA

4¢

MMAVA
10¢
#BIT4,84SR3
#BITO, 34SRO
RS,SETVEC

#40000,DBUFP
#TSTMAP,RO

#16. ,R1

(RO)+

R1,11$
OMEMMAP
, $MMAP
@TSTMAP, $TMAP
#BIT1,$TTST
#400,94KIPAR2
#400,94KIPAR3
#40000,
$ TBAR
#0, $TBAE
PC,KBDSRV
PC,LDBUF1
8DRVWCR
$TBAR, 8DRVBAR
$TBAE, 8DRVBAE

#-200. ,8DRVWCR

#PRO
#10101,8DRVCSR
#400,3DRVCSR

#0, $BDDAT
$BDDAT
28
DRVCSR, $BDADR
#10700, $GDDAT
S8DRVCSR, $BDDAT
#60, $BDDAT

#100,8DRVCSR

(SP)+,(SP)+

RS,CKSTAL

43
ERROR+11
BR
43
JSR
R5,CKDAT2
200.
ERROR+13
4%
BR

+TEST _IF DRV11-WA IS IN Q22 MODE (S10-E40 ON)
;BR IF DRV11-WA IS IN Q18 MODE (S10-E40 OFF)
iMMU AVAILABLE ?
:BR IF MMU NOT AVAILABLE
:1S 22 ADDRESSING AVAILABLE? (BIT1S SET)
:BR IF NOT AVAILABLE
iTURN ON 22 BIT ADDRESSING
;ENABLE MEMORY MANAGEMENT
:GO SET UP INTR RETURN
:RETURN TO 38 ON INTR
:POINT TO KIPAR2
:SET TSTMAP START ADDRESS
:SET COUNTER = 16.
:CLEAR TSTMAP
:BR IF NOT END
:SET MEMMAP ADRS TO $MMAP
:SET TSTMAP ADRS TO $TMAP
sSET TEST BANK BIT TO $TTST
:SET PAR2 TO 8K + 2
:SET PAR3 TO 12K + 2
:SET $TBAR TO 8K + 2
:SET $TBAE TO 8K + 2

:TEST FOR "tC”

:KJLOO1

;GO _SET UP SPECIAL COMPLEMENT PATTERN
iCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
:SET UP BUFFER ADRS
+SET UP EXTENDED BUFFER ADDRESS
:SET UP FOR 200 XFER'S
;ALLOW INTR
+SET MAINT, IE.& GO
:SET CYCLE
:SET UP A COUNTER
;COUNT AWAY
;SHOULD ALWAYS INTR FROM THIS LOOP
:SET UP CSR ADRS
;LD EXPECTED
;READ CSR
;:CLEAR XAD17, XAD16
;DISABLE IE

iNO INTR AFTER 200 MAINT MODE XFER'S

;GO RESTORE VECTOR
+RETURN HERE ON INTR - FIX STACK SINCE NO RTI
;GO CHECK STATUS

:EXPECTED STATUS
i® OF XFER'S
:RETURN HERE IF STATUS ER - EXPECTED MAINT.
;CYCLE, READY & IE
;GO RESTORE VECTOR
sRETURN HERE IF WC ER - SHOULD = 0
;GO RESTORE VECTOR
;RETURN HERE IF BAR ER - SHOULD = DBUFP+620
:GO RESTORE VECTOR
;RETURN HERE IF OK - NOW GO CK DATA
i# OF XFER'S TO CK
;RETURN HERE IF DATA ER
;GO RESTORE VECTOR

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
133

Monday 08-Apr-85 16:01

Page 10-26

SEQ 0036

TEST A 200 WORD MAINT MODE XFER WITH MMU

1673 011704
1674 011706
1675 011714
1676 011722
1677 011726
1678 011730
1679 011734
1680 011742
1681 011744
1682 011752
1683 011760
1684 011766
1685 011774
1686 011776
1687 012002

1688 012006
1689 012010
1690 012012
1691 012020
1692 012026
1693 012034
1694 012040
1695
1696
1697
1698 012042
1699 012044
1700 012046
1701 012052
1702 012056
1703 012060
1704 012066
1705 012074
1706 012102
1707 012110
1708 012116
1709 012124
1710 012132
1711 012140
1712 012146
1713 012152
1714 012160
1715 012162
1716 012166
1717
1718

000411
012737
012737
004737
000445
006337
013777
001011
012737
062737
062737
033777
001744
013700
012701
005020
077102
062737
062737
062737
005537
000623

000000
025224
012474

177572

001736

001670
001670

167724

000001
000002
000002
001670

001670
001664
001666
167670

001736
000310
000400
000400
040000
001674

S5$:

6%:

7%:

172344
172346
001672

R R

$TTST

#2, $SMMAP

#2,$TMAP

:ITST.G‘HHAP

;IS MEMORY AVAILABLE
;NO, BR TO END OF TE'T
:SET BUFFER START ADDRESS
:SET COUNT = 200.
;CLEAR MEMORY
:BR_IF NOT DONE
:SET NEXT 8K

DBUFP,RO

#200.,R1

ADD
ADD
ADD
ADC
BR

R1,7$
#400,894KIPAR2
#400,94KIPAR3
#40000,
$ TBAR
$TBAE
1s

:SET NEXT TEST BANK
sIF NOT END OF THIS MEMMAP ENTRY CONTINUE
:SET NEW BANK POINTER
;UPDATE TO NEXT MEMMAP ENTRY
;UPDATE TO NEXT TSTMAP ENTRY

#BITO, $TTST

MOV

;ALL GOOD RETURN HERE
:DISABLE MEMORY MANAGEMENT
;RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR
;GO NEXT DEVICE
;UPDATE BANK POINTER

;ITST.OSTHAP

CLR
S0B

(RO)+

:SET NEXT 8K

$SET NEXT 8K
;ADD CARRY INTO HIGH ORDER
P

: TRY NEXT BANK

P P

PP T

P PP T PP YYYTY Y

;DON’'T REPORT ‘END OF PASS‘ UNTIL ALL SELECTED DRV11‘'S HAVE BEEN TESTED
R

000004
000241
004737
006037
001443
062737
062737
062737
062737
062737
062737
017737
017737
062737
005237
032737
001731
000137
012737

NXDEV:
NXDEV1:
1%:

013700
001732
000010
000010
000010
000010
000010
000002
010616
010610
000002
001206
000001
002616
022750

001712
001714
001716
001720
001722
022746
001724
001726
001726

022746

L T

SCOPE

CLC
JSR
ROR
BEQ
ADD
ADD
ADD
ADD
ADD
ADD
MOV
MOV
ADD
INC

PC,KBDSRV
DMAP
2
#10,DRVMWCR
#10,DRVBAR
#10,DRVCSR
#10,DRVDBR
#10,DRVBAE
#2,VECTOR

8VECTOR,DRVCTO
8VECTOR,DRVCT2
#2,0RVCT2
SUNIT
#1,0MAP
NXDEV1
RESTRT
#WORK1,VECTOR

2%:

BIT
BEQ
JMP
MOV

.SBTTL

END OF PASS ROUTINE

001732

012174
012174
012176
012202
012206
012212

1
#0,34SRO
#DBUF ,DBUFP
PC,RSTVEC
NXDEV

BR
MOV
MOV
JSR
BR
ASL
MOV
BNE
MOV
ADD
ADD
BIT
BEQ
MOV

4 :

:CLR CARRY
:TEST FOR "tC*

;LOOK FOR NEXT
:BR IF ALL TESTED
;OFFSET BASE BUS ADRS TO NEXT DRV11WA

$EOP:

001102
001160
001202
100000

001202

SCOPE
CLR
CLR
INC
BIC

$TSTNM
$TIMES
$PASS
#100000, $PASS

;RJLOO1

i
i
5

;KJLOOL
:INCREMENT THE TABLE ADDRESS
;RJLOOL
:SET UP NEXT VECTOR (FROM VECTOR TABLE) ;RJLOO1L
:SET UP NEXT VECTOR (FROM VECTOR TABLE) ;RJLOO1L
;MAKE THE 2ND VECTOR CORRECT
;RJLOO1L
;COUNT DEVICE
:IS IT SELECTED?
:BR IF NOT
s TEST NEXT
sRESET VECTOR TABLE ADDRESS
;RJLOO1L
;FALL THROUGH TO END OF PASS
;RJLOO1L
:

T T

;#INCREMENT THE PASS NUMBER ($PASS)
s#TYPE "END PASS &XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)
;#IF THERES A MONITOR GO TO IT
;#IF THERE ISN'T JUMP TO START1

000004
005037
005037
005237
042737

:KJLOO1

:sZERO THE TEST NUMBER
:sZERO THE NUMBER OF ITERATIONS
: : INCREMENT THE PASS NUMBER
:sDON'T ALLOW A NEG. NUMBER

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Mondeay 08-Apr-85 16:01

Page 10-27
SEQ 0037

END OF PASS ROUTINE
012220
012222
012224
012226
012230
012232

012234

012240
012244
012246
012252
012256
012262
012264
012266
012270
012272
012274
012276
012276
012300
012302
012305
012310

|
|

1719
1720
1721
1722
1723

012313
012316
012321
012324

005327
000001
003024
012737
000001
012222
104401
013746
104405
104401
104401
013700
001405
000005
004710
000240
000240
000240
000137
002344
015
377
015
105
040
123
043

DEC
.WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT

$EOPCT:

012310
001202

012302
012305

000042

012
377
012
116

120
123

000

000
011
104
101
040

.SBTTL
HIE

LI IR

1724

1725
1726
1727
1728
1729
1730
1731 012326
1732 012326
1733 012334
1734 012342
1735 012350
1736 012356
1737 012362
1738 012366
1739 012372
1740 012400
1741 012404
1742 012412
1743 012416
1744 012422
1745 012426
1746 012432
1747 012436

TYPE
MOV
TYPDS
TYPE
TYPE
$GET42: MOV
BEQ
RESET
$ENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
$RTNAD: .WORD
$ENDLF
: .ASCIZ
$ENULL
: .BYTE
SENDMG: .ASCIZ

P2 P

iPC)o

;:LOOP?

$DOAGN
EPC)O.O(PC)o

;s YES
: sRESTORE COUNTER

. SENDMG

;s TYPE "END PASS &
:sSAVE $PASS FOR TYPEOUT
:3GO0 TYPE--DECIMAL ASCII WITH SIGN
:sTYPE A CR LF
:sTYPE A NULL CHARACTER

$PASS, -(SP)

. $ENDLF
. $ENULL

a#42,R0
$DOAGN

:sGET MONITOR ADDRESS
; sBRANCH IF NO MONITOR

PC,(RO)

::G0 TO MONITOR

: ;sSAVE ROOM
::FOR
+3ACT11

;
8(PC)START1

: sRETURN

<15>¢<12>

::CR LF

<15>¢<12>/

END PASS #/

'1.'1.0

; sNULL CHARACTER STRING

PPy

PR Yy YT TIT L)

START OF PROGRAM SUBROUTINE AREA
R

AARARARARAARANAA AR AR

.SBTTL

:sCLEAR THE WORLD

Y Y

A0A0A0000000 0000000000 000000 00040

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

s#
;#

SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION.
THE PROGRAM IS POINTED TO BY PARS O AND 1.

THE DEVICE ADDRESS AREA IS POINTED TO BY PAR 7.

THE MEMORY UNDER TEST IS POINTED BY PARS 2 AND 3.

PARS 4,

AND 6 ARE UNUSED.

PR AAAARARARRRRAAAAEAEAA
4040400004000
0000 000000000000 00040

012737
012737
012737
012737
005037
005037
005037
012737
005037
012737
005037
005037
005037
005037
005037
012737

077406
077406
077406
077406

172310
172312
172314
077406
172340
000200
172344
172346
172350

172352
172354
177600

172300
172302
172304
172306

172316

172342

172356

MMINIT:

€200-14400+UP+RW,84KIPDRO
9200-1+400+UP+RW,34KIPDR1
©200-14400+UP+RW,34KIPDR2
#200-14400+UP+RW,34KIPDR3

8¢KIPDR4
84KIPDRS
84KIPDR6
©€200-1+400+UP+RW,34KIPDR7
S0KIPARO
€200,84KIPARL
SOKIPAR2
84KIPAR3
94KIPAR4
SOKIPARS
84KIPARG
€177600, 3¢KIPAR?

:SET
:SET
:SET
:SET

KIPDRO
KIPDR1
KIPDR2
KIPDR3

=
=
=
=

RW
RW
RW
RW

UP
UP
UP
UP

200
200
200
200

BLOCKS
BLOCKS
BLOCKS
BLOCKS

:SET KIPDR? = RW UP 200 BLOCKS

iMAP PARO INTO BANKO
iMAP PAR1 INTO BANK1
iMAP PAR2 INTO BANKO

iMAP PAR7 INTO I/0 BANK

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-28

SEQ 0038

MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES.

1748 012444
i.;;g 012452

012737
000207

000001

177572

1751

1$:

MOV
RTS

PIRARARERARANA

1752
1753

91,80SR0
PC
LA RA

;ENABLE MEMORY MANAGEMENT
;RETURN

00 R0RE 0000000000000

0 4000000400 00404

.SBTTL SET UP INTERRUPT RETURN ADDRESS
:THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT =

1754

+SETS UP THE DRV11WA INTERRUPT TO RETURN ON INTERRUPT

1756

PINRAARARRER
00000004
REE
40040
EAA
00 000000004
ARA
0000 00
RAA
00000004
E
4

1755

:TO THE ADDRESS INDICATED ((#5)) BY THE CALL +2

1757 012454
1758 012460
1759 012464
1;22 012472

106427
012577
012777
000205

000200
167240
000200

167234

1762

OPR4
(R5)+,80RVCTO
#200,8DRVCT2
RS

:SET UP FOR NO INTERRUPT
;SET UP INTR RETURN ADRS
;KEEP PRIORITY LEVEL AT TOP ON INTR
sEXIT

R itt
T T T T TTTTTTIT
t
TYYYY YW

1763
1764
1765

.SBTTL RESTORE INTERRUPT VECTOR TO HALT
+THIS ROUTINE CLEARS THE DRV11WA CSR - RESTORES THE DRV1iWA
s INTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL

1766

1767
1768
1769
1770
i.;;é

SETVEC: MTPS
MOV
MOV
RTS

012474
012500
012506
012512
012516

005077
013777
005077
106427
000207

167216
001726
167214
000200

FIARAAAAR
AR ARRAR
0044 0404000
RAR
000000
AAR
00000000
ASA
0000 00004
A

167216

1773

PINR A A R

1774
1775
1776
1777
1778

8DRVCSR
DRVCT2,8DRVCTO
80RVCT2
OPR4
PC

sCLR STATUS & CONTROL
;POINT VECTOR TO MALT
:SET UP HALT
;RAISE PRIORITY LEVEL
sEXIT

R AR AR AR AR AR R0 0400404040000 000040000000 00 000000044

.SBTTL CHECK STATUS OF ALL DATA TRANSFERS FOR ERRORS
s THIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR:CORRECT STATUS,
+CORRECT WORD COUNT & CORRECT BUFFER ADDRESS - THE EXPECTED DATA IS
sSUPPLIED IN THE CALL +2 € +4 - THE RETURN IS TO +22 IF NO ERRORS
sDETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR
EMT

1779

1780 012520
1781 012526
1782 012534
1783 012540
1784 012546
1785 012550
1786 012556
1787 012562
1788 012564
1789 012572
1790 012574
1791 012602
1792 012606
1793 012612
1794 012614
1795 012620
1796 012624
1797 012632
1798 012636
1799 012644
1800 012652
1801 012660
1802 012662
1803 012670
1804 012674

RSTVEC: CLR
MOV
CLR
MTPS
RTS

017737
167172
042777
000100
012537
001124
023737
001124
001406
013737
001716
062705 000002
000205
017737
167122
001410
013737 001712
005037
001124
062705 000006
000205
011537
001124
006337 001124
063737 001736
005777
167054
017737
167052
042737 - 000001
023737 001124
001406
013737
001714
062705 000012
000205

PiR ARARER RAL E

001126
167162
001126
001122

001126
001122

001124

001126
001126
001126
001122

CKSTAT: MOV
BIC
MOV
cMP
BEQ
MOV
ADD
RTS
1%:
MOV
BEQ
MOV
CLR
ADD
RTS
2s:
MOV
ASL
ADD
TST
MOV
8IC
CcHP
BEQ
MOV
ADD
RTS

0000044040404 840800800000 000000 000000044

SDRVCSR, $BDDAT
#100,80RVCSR
(RS)+, $GDDAT
$GDDAT, $BDDAT
13
DRVCSR,$BDADR
#2,R5
RS
SDRVUWCR, $BDDAT
24
DRVWCR,$BDADR
$GDDAT
6 ,RS
RS
(RS), $GDDAT
$GDDAT
DBUFP, $GDDAT
SDRVWCR
SORVBAR, $BDDAT
08IT00,$BDDAT
$GDDAT, $BDDAT
33
DRVBAR,$BDADR
#12,R5
RS

;READ THE STATUS
;:DISABLE THE IE BIT
+SET UP EXPECTED STATUS
;CORRECT?
:BR IF SO
;SET UP CSR ADRS
:POINT TO THE CSR ER
sEXIT HERE ON STATUS ERROR
;SET WC
:BR IF ZERO
;SET UP WCR ADRS
:EXPECTED 0
;POINT TO THE WCR ER
;EXIT HERE ON WCR ER
:SET XFER ?
sCONVERT TO WORD
:SET XFER ?
iCLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
;GET BAR
;DON'T WANT BITOO
;CORRECT?
:BR IF SO
;SET UP BAR ADRS
;POINT TO BAR ER
;EXIT HERE ON BAR ER

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-29

CHECK STATUS OF ALL DATA TRANSFERS FOR ERRORS
1805 012676
1806 012702
1807
1808
1809
1810
1811
1812
1813
1814 012704
1815 012712
1816 012720
1817 012724
1818 012732
1819 012740
1820 012742
1821 012750
1822 012754
1823 012756
1824 012764
1825 012766
1826 012774
1827 013000
1828 013004
1829 013006
1830 013012
1831 013016
1832 013022
1833 013026
1834 013032
1835 013036
1836 013044
1837 013052
1838 013060
1839 013062
1840 013070
1841 013074
1842 013076
1843 013104
1844 013112
1845 013120
1846 013122
1847 013130
1848 013132
1849 013136
1850
1851
1852
1853
1854
1855
1856
1857 013140
1858 013144
1859 013150
1860 013154
1861 013156

062705
000205

000016

34:

ADD
RTS

#16,RS

sALL OK - POINT TO GOOD EXIT
;EXIT HERE IF NO ERRORS

elbt
L L T T T T T T T
P T Y TP T YT PP YY

s THIS ROUTINE CHECKS ON ALL DATA TRANSFERS FOR:CORRECT STATUS,
sCORRECT WORD COUNT & CORRECT BUFFER ADDRESS - THE EXPECTED DATA IS
sSUPPLIED IN THE CALL +2 € +4 - THE RETURN IS TO +22 IF NO ERRORS
;DETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR EMT

FiSARSRAREAAEAE00
0444000004004 048048884840008000000000400004

017737
042777
012537
042737
023737
001406
013737
062705
000205
017737
001410
013737
005037
062705
000205
005777
011537
006337
013700
060037
005537
017737
042737
023737
001406
013737
062705
000205
013737
017737
023737
001404
013737
000757
062705
000205

167006
000100
001124
001124

001126
166776
001126
001126

001716
000002

001122

166730

001126

001712
001124
000006

001122

166700
001124

001124
001672
001124
001674
166652
000001
001124

001126
001126
001126

001714

001122

001674
166612
001124

001124
001126
001126

001714

001122

000012

000016

CKSTA1: MOV
BIC
MOV
BIC

1%:

MOV

2%:

TST

S$:
34:

MOV

SDRVCSR, $BDDAT
©100,80RVCSR

(RS)+, $GDDAT

960, $BDDAT
$GDDAT, $BDDAT
14
DRVCSR, $BDADR
#2,RS
RS
i?RVUCR.OBDDAT
2
DRVMWCR, $BDADR
$GDDAT
#6,RS5

RS
SDORVWCR
(RS), $GDDAT
$GDDAT

$TBAR,RO
RO, $GDDAT
$TBAE
SDRVBAR, $BDDAT
81700, $BDDAT
$GDDAT, $BDDAT
34
DRVBAR, $BDADR
012,RS
RS
$TBAE, $GDDAT
SORVBAE, $BDDAT
:EDOAT.OBDDAT

g:VOAR.ODDADR
#16,RS

43%:

sREAD THE STATUS
;DISABLE THE IE BIT
:SET UP EXPECTED STATUS
;CLEAR XAD17, XADi6
sCORRECT?
:BR IF SO
:SET UP CSR ADRS
;POINT TO THE CSR ER
;EXIT HERE ON STATUS ERROR
:SET NC
:BR IF ZERO
:SET UP WCR ADRS
sEXPECTED 0
;POINT TO THE WCR ER
$EXIT HERE ON WCR ER
;CLR BAE FLAG TO ENSURE BAR ACCESS NEXT ;KJLOO1
1SET XFER ?
;CONVERT TO WORD
:GET START ADDRESS
:GET EXPECTED ADDRESS
;ADD CARRY INTO BAE
:GET BAR
;DON'T WANT BITOO

1SET UP BAR ADRS
sPOINT TO BAR ER
sEXIT HERE ON BAR ER
+SET EXPECTED BAE
1GET BAE
1CORRECT?
18R IF SO
:SET UP BAR ADRS
:BR BAE ERROR EXIT
sALL OK - POINT TO GOOD EXIT
sEXIT HERE IF NO ERRORS

118888888848 8888488488888080888088008088844888848848808088888088400044

.SBTTL LOAD DATA BUFFER WITH FLOATING PATTERN

s THIS ROUTINE LOADS 'DBUF' WITH A FLOATING ZERO/ONE PATTERN
sFOR 199 LOCATIONS - THE LAST LOCATION IS LOADED WITH THE

1970707 WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR

sAT THE COMPLETION OF A 200 WORD TRANSFER

108888888 088808884888000000088048808000000004808000008000800000008

012703
012704
004737
010423
005104

025224
177776
013700

LDBUF:
1%:
2s:

MOV
MOV
JSR
MOV
coM

#0BUF ,R3

®177776.R4

PC,.KBDSRV
R4 ,(R3).
R4

+SET BUFFER ADRS
$SET UP FLOATING ZERO PATRN
s TEST FOR “¢C*
sLOAD IT (FLOATING 0)
sMAKE INTO FLOATING 1

SEQ 0039

C-ZDRVB-O DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page

10-30

SEQ 0040

LOAD DATA BUFFER WITH FLOATING PATTERN
1862 013160
1863 013164
1864 013166
1865 013172
1866 013174
1867 013176
1868 013202

1869 013204

022703
001003
012713
000207
010423
022703
001771

CcMP

026042
070707

3s:
4s:

026042

MOV
RTS
MOV

cMP
BEQ

COoM

005104

1870 013206
006304
1871 013210
005204
1872 013212
103354
1873 013214
000755
1874
1875
1876
1877
1878
1879
1880
1881 013216
013703
1882 013222
010305
1883 013224
062705
1884 013230
012704
1885 013234
004737
1886 013240
010423
1687 013242
005023
1888 013244
005104
1889 013246
010423
1890 013250
005023
1891 013252
020503
1892 013254
001001
1893 013256
000207
1894 013260
005104
1895 013262
006304
1896 013264
005204
1897 013266
103360
1898 013270
000761
1899
1900
1901
1902
1903
1904
1905 013272
012701
1906 013276
004737
1907 C13302
022721
1908 013306
001410
1909 013310
013737
1910 013316
014137
1911 013322
010137
1912 013326
000207
1913 013330
022701
1914 013334
001360
1915 013336
062716
1916 013342
000207
1917
1918

BNE

ASL

INC
BCC
BR

QDBUF +616,R3

;AT END OF BUFFER?

;BR IF NOT

970707,(R3)
PC
R4,(R3).

:LOAD LAST DATVAR(SPECIAL)
$SET OUT
sLOAD IT (FLOATING 1)

QDBUF +616,R3
3s

+AT END OF BUFFER?
;BR IF SO

:BACK TO FLOAING ZERO

R4
13
23

sKEEP LSS SET
;GO RESET FLOATING PATRN
;GO LOAD NEXT PATRN

sSHIFT LEFT

et
L L L
t
L T L L L L LT T T
T t
T Y
oo
e

;THIS ROUTINE LOADS “DBUF” WITH A UNIQUE FLOATING ZERO/ONE PATTERN

:(177776,0,1,0,177775,0,2,0,177773,0,4,0,177767,0,10,0 ETC,).

+IT IS USED WITH MAINT BIT SET (DATI/DATO SEQUENCE).

200 LOCATIONS

;ARE LOADED WITH THIS PATTERN.

gg....‘.‘.0"..‘........“‘t.“".

001736

LDBUF1: MOV
MOV
ADD
1s:
MOV
2s:
JSR

000620
177776
013700

MOV

CLR
CoM
MOV
CLR
CMP
BNE

3s:

RTS
coM
ASL

INC
8CC
BR
L

‘t“‘t‘.t“““““.t“.tttt“.

DBUFP,R3
R3,RS
#620,R5
@177776,R4
PC ,KBDSRV

:SET BUFFER ADRS
:SAVE IN RS
:POINT TO END OF BUFFER
:SET UP FLOATING ZERO PATRN
:TEST FOR “tC”

R4,(R3).

;LOAD IT (FLOATING 0)

(R3).
R4
R4,(R3).
(R3).
RS,R3
3s

;KJLOO1L

:ZERQ NEXT
:SET UP FLOATING :
;LOAD IT
:ZERO NEXT
;200 LOCS CONE?
;:BR IF NOT

PC
R4
R4

:SET 0UT
:BACK TO FLOATING ZERO
;SHIFT LEFT

R4
1s
2

:KEEP LSS SET
;GO RESET FLOATING PATRN
;GO FLOAT NEXT PATRN

.SBTTL CHECK DATA ON 'DATO’

T T

rwrrerem

TRANSFERS FOR ERRORS

; THIS ROUTINE CHECKS 200 LOCATIONS IN "DBUF“ FOR GOOD TRANSFERED
:DATA (¢177577) ON '‘DATO’ TRANSFERS - IF AN ERROR IS DETECTED
;THE RETURN IS TO CALL +2 - IF NO ERROR THE RETRUN IS TO CALL +4

v
e
L L t
T L
T T
T LTI T
T
Y
YT

025224
013700
177377
001720
001126
001120
026044

CKDAT:
1s:
001122

2%:

000002

MOV
JSR
CMP
BEQ

MOV
MOV
MOV
RTS
CMP
BNE
ADD
RTS

#DBUF ,R1
PC,KBDSRV

:SET BUFFER ADRS
;:TEST FOR “tC*

23
DRVDBR, $BDADR

;BR IF SO
;SET UP DBR ADRS

R1,$GDADR
PC
#DBUF +620,R1
1
#2,(SP)
PC

;SET MEMORY ADRS
;:RETURN TO ERROR
;AT END OF ‘DBUF'?
:BR IF MORE
:ADJUST STACK FOR GOOD RETURN
:SET 0ouT

#177377,(R1).
-(R1), $BDDAT

:DATA 0K?

:SET ACTUAL DATA XFERED

Tttt TTTTTTTTYrYYYTITMY

:KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
CHECK DATA ON ‘MAINT MODE*
1919
1920
1921
1922
1923
1924
1925
1926 013344
1927 013346
1928 013352
1929 013356
1930 013360
1931 013364
1932 013366
1933 013370
1934 013372
1935 013374
1936 013400
1937 013402
1938 013406
1939 013410
1940 013414
1941 013420
1942 013424
1943 013432
1944 013434
1645 013436
1946 013440
1947 013442
1948 013444
1949 013446
1950 013450
1951
1952
1953
1954
1955
1956
1957
1958
1959 013452
1960 013454
1961 013460
1962 013464
1963 013466
1964 013472
1965 013474
1966 013476
1967 013500
1968 013502
1969 013506
1970 013510
1971 013514
1972 013516
1973 013522
1974 013526
1975 013532

Monday 08-Apr-85 16:01

Page 10-31
SEQ 0041

TRANSFERS FOR ERRORS

.SBTTL CHECK DATA ON 'MAINT MODRE'

TRANSFERS FOR ERRORS

s THIS ROUTINE CHECK 200 LOCATIONS IN '‘DBUF“ FOR GOOD TRANSFERED
:DATA (177776,177776,1,1,177775,177776,2,2,177773,177773
,ETC)
sON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED
:BY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 =
:IF NO ERROR THE RETURN IS TC CALL +10
L L L

012500
013702

012701
005003
004737
020122
001010
020122
001006
162700
003015
062705
000205
014237
010237
010137
013737
000205
005101
005103
001347
006301
005201
103341
000743

CKDAT1:

001736
177776

18:

013700

2$:

000002
000004

001126
001120
001124
001720

3s:

001122
4s:

MOV
MOV
MOV
CLR
JSR
CMP
BNE
cMP
BNE
SuB
BGT
ADD

(RS)+,RO
DBUFP,R2
#177776,R1
R3
PC,KBDSRV
R1,(R2)+
3
R1,(R2)+
3
@2,R0
43
@4 ,R5

RTS
MOV
MOV
MOV
MOV
RTS

COM

RS
-(R2), $BDDAT
R2, $GDADR
R1,$GDDAT
DRVDBR, $BDADR
RS
R1

JEXIT
;SET BAD DATA
:GET MEM ADRS
;LO EXPECTED DATA
;SET UP DBR ADRS
;RETURN TO ERROR

COM

:TIME TO SHIFT?

BNE
ASL
INC
8CC
BR
L LT

23
R1
R1
1s
2s

:SET & OF CHECKS
:SET BUFFER ADRS
:SET UP FLOATING ZERO PATRN
;R3 SAYS WHEN TO SHIFT PATRN
s TEST FOR ~¢C”
;DATA OK?
:BR IF NOT
:DATA WRITTEN OK?
;BR IF NOT
sACCOUNT FOR TWO ADR'S
;BR IF MCRE
:ADJUST FOR GOOD RETURN

;KJLOO1

;NOW EXPECT COMPLEMENT

:BR IF NOT
sSHIFT LEFT
;KEEP LSS SET
;GO RESET FLOATING LPATRN
;GO NEXT

P PP PP T

PP Pores

;THIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF” FOR GOOD TRANSFERED
;DATA (177776,177776,1,1,177775,177776,2,2,177773,177773,ETC)
;ON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED
;BY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 =
:IF NO ERROR THE RETURN IS TO CALL +10
LI

012500
013702
012701
005003
004737
020122
001010
020122
001006
162700
003015
062705
000205
014237
010237
010137
013737

001736
177776

1¢:

013700

2%:

000002
000004
001126
001120
001124
001720

CKDAT2: MOV

3s:
001122

PR P

P Ry

MOV

DBUFP,R2

CLR
JSR
CMP
BNE
CHP
BNE
SuB
BGT
ADD
RTS
MOV
MOV
MOV

R3
PC,KBDSRV
R1,(R2)+
3
R1,(R2)+
3s
#2,R0
43
#4 RS
RS
-(R2), $BDDAT
R2, $GDADR
R1,$GDDAT

MOV

(R5)+,RO

#177776,.R1

DRVDBR, $BDADR

P PP TP T

TR IYTITITITL

:SET & OF CHECKS
:SET BUFFER ADRS

:SET UP FLOATING ZERO PATRN

;R3 SAYS WHEN TO SHIFT PATRN
sTEST FOR “tC*
:DATA OK?
;BR IF NOT
;:DATA WRITTEN OK?
;BR IF NOT
:ACCOUNT FOR TWO ADR'S
;BR IF MORE
;ADJUST FOR GOOD RETURN
;EXIT
:SET BAD DATA
:GET MEM ADRS
;L0 EXPECTED DATA
;SET UP DBR ADRS

:KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02
CHECK DATA ON *MAINT MODE‘
1976 013540
1977 013542
1978 013544
1979 013546
1980 013550
1981 013552
1982 013554
1983 013556
1984
1985
1986
1987
1988
1989
1990
1991 013560
1992 013564
1993 013566
1994 013570
1995 013572
1996 013574
1997 013576
1998 013600
1999 013602
2000 013606
2001 013610
2002 013614
2003 013616
2004 013622
2005 013624
2006 013630
2007 013632
2008 013634
2009 013642
2010 013€44
2011 013650
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022 013652
2023 013654
2024 013660
2025 013664
2026 013672
2027 013674
2028 013676
2029
2030
2C31
2C32

Monday 08-Apr-85 16:01

Page 10-32
SEQ 0042

TRANSFERS FOR ERRORS

000205
005101
005103
001347
006301
005201
103341
000743

RTS

4s:

COoM
COM
BNE

;RETURN TO ERROR

R1
R3
2

sNOW EXPECT COMPLEMENT
sTIME TO SHIFT?
;:BR IF NOT

ASL
INC

R1
R1

;SHIFT LEFT
;KEEP LSS SET

;GO NEXT

8CC

.SBTTL

:GO RESET FLOATING LPATRN

ASK USER CPU TYPE

YT T

:THIS ROUTINE ASKS THE USER IF THE SYSTEM SUPPORTS 22-BIT
: ADDRESSING

33 ‘t.‘.‘“‘.t‘t.tt‘.“““..““.t.‘tt

$KJLOO1

:KJLOO1
:KJLOO1

“..tt“‘t“t“ttt“‘.“.“

104401
104411

025042

ASKQz2:

012603

105713

001402
005203
000774
114300
122700
001412
122700
001407
122700
001410
122700
001405
000752
012737
000402
005037
000207

1s:

10s:

000131

(SP)+,R3
(R3)
108
R3
1s
-(R3),RO

sWAIT INPUT
;GET ADDRESS OF FIRST CHARACTER
;TEST CHARACTER IS NULL
;YES NULL
;POINT NEXT CHARACTER
;TEST NEXT CHARACTRE
;GET LAST CHARACTER

BEQ

:YES

24
#116.R0
3s

sYES
;"N" 2
;YES

3s
ASKQ22
:I.LSIQEZ
$

;YES
;TRY AGAIN
;SET 22-BIT CPU FLAG
H

CMPB

CcMPB

000171

000156

CMPB

001704

2%:

BEQ
BR
:gv

3s:
4s:

CLR
RTS

Q22CPV

:ASK OPERATOR IF CPU SUPPORTS 22-BIT ADDRESSING

#131,.R0

i,i ;

#171,.RO

BEQ
CMPB
BEQ

000116

000001

TYPE,
ROLIN
MOV
TST8
BEQ
INC
BR
MOVB

"y 7

#156,R0O

3*n" ¥

LSIQ22
PC

;:CLEAR 22-BIT CPU FLAG
;RETURN

ettt

T T

.SBTTL INTERRUPT TIMER FOR BURST MODE TRANSFERS

;THIS ROUTINE IS TO SET UP A TIMER AND WAIT FOR INTERRUPT TO OCCUR
sWITHIN THE TIME FRAME.
THE INTERRUPT RETURN ADDRESS SHOULD HAVE BEEN
;SET UP PRIOR TO CALLING THIS ROUTINE.
IF NO INTERRUPT OCCURS BEFORE
s TIMER RUNS OUT,

THE BURST MODE TRANSFER HAS FAILED AND CONTROL IS

sRETURNED TG LOCATION PC.2.

005003
106427
010277
052777
005303
001376
000207

000000
166032
000400

TIMER:
166024

1s:

CLR
MTPS
MOV
BIS
DEC

R3
#PRO
R2,3DRVCSR
#400,8DRVCSR
R3
1¢
PC

BNE

RTS
L

.SBTTL

LT TT Y

Prprrereepee

s INITIALIZE R3 AS COUNTER
;ENABLE THE INTERRUPT
:SET BITS IN CSR
:SET CYCLE
;:DECREMENT COUNTER

;WAIT MCRE TIME

;RETURN TO MAIN PROGRAM (NO INTERRUPT)
P

KEYBOARD SERVICE ROUTINE

i THIS ROUTINE WILL SERVICE THE TTY KEYBOARD.

:KJLOO2
:KJLO02
;KJLOO2
:KJLO02
;KJLOO2
;:KJLO02

:KJLOOS
;KJLOO2
;KJLOO2
;KJLOO2
;:KJLOO4
:KJLOO2
;1 KJLOO2

;KJLOO1

KJLOO1L

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

KEYBOARD SERVICE ROUTINE

2033
2034
2035
2036
2037 013700
2038 013704
2039 013706
2040 013710
2041 013714
2042 013720
2043 013724
2044 013726
2045 013732
2046 013734
2047 013740
2048 013744
2049 013746
2050 013750
2051 013754
2052 013756
2053 013762
2054 013764
2055 013772
2056 013774
2057 014002
2058 014004
2059 014010
2060 014014
2061 014020
2062 014022
2063 014026
2064 014030
2065 014032
2066 014036
2067 014040
2068 014044
2069 014050
2070 014054
2071 014056
2072 014062
2073 014066
2074 014072
2075 014076
2076 014100
2077 014104
2078 014110
2079 014112
2080 014116
2081 014120
2082 014124
2083 014126
2084 014134
2085 014140
2086 014144
2087 014146
2C88 014152
2C89 014156

Page 10-33
SEQ 0043

;KJLOO1

+IF THE CHARACTER TYPED IS A “CONTROL-C” (tC), EXIT IS MADE TO THE
s "CONTROL-C” RESTART ADDRESS (CSTART). IF THE CHARACTER IS CONTROL G
:(*G), THE SOFTWARE SWITCH WILL BE SET UP IF IT IS ENABLED.
105777
100401
000207
117746
042716
021627
001005
104401
005726
000137
022716
001004
005726
004737
000207
022726
001070
022737
001064
123727
001460
104401
104401
013746
104402
104401
005046
005046
105777
100375
117746
042716

021627
001006
104401
062706
000137
021627
001005

104401
062706
000746
021627
001013
005766
001403
016677
062706
104401
000207
004737
021627
002420

b
L L
Y T
L
T T
YT YYYT

165240

KBDSRV:

TSTB
BMI
RTS
KBDSR1: MOVB
8IC

165232
177600
000003
017566
002310
000005

1¢:

020050
000007

100s:

000176

001140

001134

000001

017600
017605
000176

2%:

165106

3s:

165102
177600
000003

CMP
BNE
CMP
BNE
cMPB
BEQ
TYPE
TYPE

TYPE
CLR
CLR
TST8B
BPL

MOVB

BIC
CMP
BNE
TYPE

017566
000006
002310
000025

4s:
5$:

017573
000006

6$:

000015

7%:

165004

ADD
JMP
CMP

BNE
TYPE
ADD
BR
CMP

BNE
TST
BEQ

000004

014440
000060

RTS

MOV
TYPOC

017616

000002
000006
001171

CMP
BNE
TYPE
TST
JMP
cMP
BNE
TST
JSR

8%:

9¢:

10¢:

11s:

MOV
ADD
TYPE

RTS

JSR
CcMP
BLT

8$TKS
KBDSR1
PC
83TKB, -(SP)
2177600, (SP)

(SP),#3
13

+$CNTLC
(SP).

CSTART
@5,(SP)
100$
(SP)+

PC,EXAM
P
@7,(SP)+

10¢

#SWREG, SWR
10¢
$AUTOB,
#1
10¢

+$CNTLG

+ $MSWR

SWREG, -(SP)

+ $MNEW
-(SP)
-(SP)

I$TKS
3s
8$TKB, -(SP)
#tC177,(SP)

(SP),#3
54

+ $CNTLC

#6,SP
CSTART
(SP), %25

7%
+ $CNTLY
#6,SP
2%

(SP),#15

2(SP),aSWR

#6,SP

+ $CRLF

PC
PC,$TYPEC

(SP),#60
13

;TEST KEYBOARD STATUS
:BR IF A KEY IS HIT
EXIT
;PICK UP CHARACTER TYPED
;STRIP OFF THE JUNK
;IS IT A CONTROL-C?
;BRANCH IF NO
;TYPE A CONTROL-C (tC)

;POP THE STACK

;EXIT TO CSTART
;CTRL E?
;:BR IF NOT
;POP THE STACK
;GO TO THE EXAMINE ROUTINE
;RETURN
;IS IT A CONTROL G?
;BR IF NOT
;IS THE SOFT-SWR SELECTED?
;BRANCH IF NO
;ARE WE RUNNING IN AUTO-MODE?
;BRANCH IF YES
;ECHO THE CONTROL-G (tG)
; TYPE CURRENT CONTENTS
;SAVE SWREG FOR TYPEOUT
;GO TYPE--OCTAL ASCIICALL DIGITS)
;PROMPT FOR NEW SWR
;CLEAR COUNTER
;THE NEW SWR

;CHAR THERE?

;IF NOT TRY AGAIN
;PICK UP CHAR
;MAKE IT 7-BIT ASCII
:IS IT A CONTROL-C?
;BRANCH IF NOT
;YES, ECHO CONTROL-C (tC)
;CLEAN UP STACK
;CONTROL
-C RESTART
;IS IT A CONTROL-U?
;BRANCH IF NOT
;YES, ECHO CONTROL-U (tU)
; IGNORE PREVIOUS INPUT
;LET'S TRY IT AGAIN
;IS IT A <CR>?
;BRANCH IF NO
;YES, IS IT THE FIRST CHAR?
;BRANCH IF YES
;SAVE NEW SWR
;CLEAR UP STACK
:ECHO <CR> AND <LF>

;RETURN

;ECHO CHAR
;:CHAR < 0?
;BRANCH IF YES

:KJLOO1
:KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
:KJLOO1
;KuL001
:KJLOO1
;KJLOO1
:KJLOO1
;KJLOO1
;RJLOO1
;RJLOOL
;RJLOO1

;RJLOO1
;RJLOO1L

:KJLOO1
;:KJLOO1
;KJLOO1
:KJLOO1
;KJLOO1

;KJLOOL

;KJLOO1
;KJLOOL
;KJLOO1
;KJLOO1
;KJLOO1
;:KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;:KJLOO1
;KJLOOL
;KJLOO1
;KJLOO1

;KJLOO1

;KJLOO1
;KJLOO1
:KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOOL

;KJLOOL

;KJLOO1
;KJLOO1
;KJLOO1
:KJLOO1
;KJLOO1
;KJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000705
104401
000727

SEQ 0044

;KJLOO1

KEYBOARD SERVICE ROUTINE
2090 014160
2091 014164
2092 014166
2093 014172
2094 014176
2095 014200
2096 014202
2097 014204
2098 014206
2099 014212
2100 014216
2101 014220
2102 014224
2103
2104

Page 10-34

000067

CMP
BGT
BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR

000660
000002

000002
177776

12$:

001170

13$:
.SBTTL
R

(SP),#67
13
#60,(SP)+
2(SP)
12%

(SP)
(SP)
(SP)
2(SP)
-2(SP),(SP)
3s
» $QUES
64

;CHAR > 77
;BRANCH IF YES
;:STRIP-OFF ASCII
;IS THIS THE FIRST CHAR
;BRANCH IF YES

;NO, SHIFT PRESENT
;
CHAR OVER TO MAKE
:
ROOM FOR NEW ONE.
;KEEP COUNT OF CHAR
;SET IN NEW CHAR
;GET THE NEXT ONE
;TYPE 2<CR><LF>
;SIMULATE CONTROL-V

;KJLOO1
;KJLOO1
;KJLOO1
;2JLO01
;KJLOO1

;KJLOO1

;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1
sKJLOO1
sKJLOO1

TYPE ROUTINE

T P
PP
TPy rreres

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

;#NOTE1L:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTE2:
;*NOTE3:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

i &

;*#CALL:
;%1) USING A TRAP INSTRUCTION
S‘OR
TYPE
+MESADR

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

i &

i %

TYPE

MESADR

014226
014232
014234
014236
014240
014242
014246
014254
014256
014264
014266
014272
014276

014300
014306
014310
014312
014314
014316
014320
014324
014326
014332
014334
014340
014342
014344
014346

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001171

001157

$TYPE:

1$:

000002
000001

001214

000100

001215

014276
014516
000040

001215

000011
000200

$TPFLG
1

:3IS THERE A TERMINAL?
:3sBR IF YES
;: sHALT HERE IF NO TERMINAL
3
: sLEAVE
RO, -(SP)
:sSAVE RO
82(SP) RO
;;GET ADDRESS OF ASCIZ STRING
#APTENV, $ENV
; ;RUNNING IN APT MODE
624
::NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, $ENVM ; ; SPOOL MESSAGE TO APT

HALT
BR
MOV
MOV

CMPB
BNE
BITB

BEQ
61$:
62$:

2%:

000002

TSTB
BPL

60$:
3s:

4%:

62$%

::NO,GO CHECK FOR CONSOLE

MOV
JSR
.WORD
BITB
BNE
MOVB
BNE
TST

RO,61$
PC,$ATY3
0
#APTCSUP,$ENVM
60$
(RO)+,-(SP)
44
(SP)+

: s SETUP MESSAGE ADDRESS FOR APT
: s SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
;; APT CONSOLE SUPPRESSED
;s YES,SKIP TYPE OUT
; :PUSH CHARACTER TO BE TYPED ONTO STACK
:3BR IF IT ISN'T THE TERMINATOR
;;IF TERMINATOR POP IT OFF THE STACK

ADD

#2,(SP)

; s ADJUST RETURN PC

MOV

RTI
gHPB

EQ
g:gfl
TST
TYPE
$CRLF

(SP)+,R0O

:HT.(SP)

8%
gCRLF.(SP)
$

(SP)+

; sRESTORE RO

; sRETURN
;
; ;BRANCH IF <HT>

; ;BRANCH IF NOT <CRLF>
;:POP
<CR><LF> EQUIV
::TYPE A CR AND LF

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-35

SEQ 0045

TYPE ROUTINE

2105

014350
014354
014356
014362
014366
014370

123726
001350
013746

014374
014400
014402
014406
014412

105366
062770
004737
105337
000770

014414
014420
014424
014432
014434
014436
014440
014444
014446
014454
014462
014464
014470
014472
014500
014502
014504
014506

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037
000406
122766
001402

105037
000755
004737

014504
014440
001156

5$:
6$:

001154
000001

7%:

014440
014504

000040
014440
000007

014504

164504
000002
000015

164476
000002

CLRB
BR

JSR
CMPB
BNE
MOV
DECB

BLT
JSR
DECB
BR
éHORIZONTAL TAB
$:
MOVB
9%
JSR
BITB
BNE
TST
BR
$TYPEC: TST8
BPL
MOVB

hoe

1(SP)
6%
PC,$TYPEC
$CHARCNT
7%
PROCESSOR
@' ,(SP)
PC,$TYPEC

@7, $CHARCNT
9s

(SP)+

9$TPS
$TYPEC

i sREPLACE TAB WITH SPACE
s:TYPE A SPACE
i sBRANCH IF NOT AT

::TAB STOP

::POP SPACE OFF STACK
::GET NEXT CHARACTER
i s WAIT UNTIL PRINTER IS READY

000002

000001
000001

014754
014752

$ATYL:
$ATY3:

000001

014754

$ATY4:
$ATYC:

105227

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
c01376
163700
006200
010037
012737

$NULL, -(SP)

: ;CLEAR CHARACTER COUNT
:sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
. #3IS IT TIME FOR FILLER CHARS.?
:3IF NO GO GET NEXT CHAR.
:sGET & OF FILLER CHARS. NEEDED
:sAND THE NULL CHAR.
:sDOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
;:00 NOT COUNT AS A COUNT
;:LOOP

000012

014504

000000
000207

112737
112737
000403
112737

$
PC,$TYPEC
;leLC.(SP)o

2(SP),83TPB
::LOAD CHAR TO BE TYPED INTO DATA REG.
cMPB
#CR,2(SP)
:3IS CHARACTER A CARRIAGE RETURN?
BNE
13
; ;sBRANCH IF NO
$CHARCNT
CLRB
;s YES--CLEAR CHARACTER COUNT
$TYPEX
BR
s s EXIT
1%:
CMPB
#LF,2(SP)
:: IS CHARACTER A LINE FEED?
BEQ
$TYPEX
; :BRANCH IF YES
INCB
(PC)+
;s COUNT THE CHARACTER
$CHARCNT
: . WORD 0
; ; CHARACTER COUNT STORAGE
$TYPEX: RTS
PC
.SBTTL
APT COMMUNICATIONS ROUTINE
Dt

014510
014516
014524
014526
014534
014534
014536
014540
014544
014546
014554
014556
014564
014566
014572
014600
014604
014606
014612
014614
014616
014622
014624
014630

;CHARCNT

014752
000001

001214

000100

001215

000004
000002
001174

1s:

001210
2%:
001210
001212
000004

001174

#1,8FFLG
@#1,$MFLG
$ATYC
#1,$FFLG

MOV
MOV
TSTB
BEQ
CMPB

RO, -(SP)

BNE
BITB
BEQ
MOV

000004

MOVB
MOvB
BR
MOovB

ADD
TST
BNE
MOV
TSTB

BNE
SuB
ASR

MOV

$MFLG

5§

@APTENV, $ENV

chTSPOOL.sENVH

84(SP),R0O
#2,4(SP)

$MSGTYPE
1$
RO, $MSGAD
(RO)+
2%
$MSGAD ,RO
RO
RO, $MSGLGT
#4 , $MSGTYPE

T T

L T T

LT T

::
7O REPORT FATAL ERROR
::TO TYPE A MESSAGE

Tr wrwrre,

:3TO ONLY REPORT FATAL ERROR
i :PUSH RO ON STACK
::PUSH R1 ON STACK
;s SHOULD TYPE A MESSAGE?

::IF NOT:

: sOPERATING UNDER APT?

; s SHOULD SPOOL MESSAGES?

:sGET MESSAGE ADDR.
; :BUMP RETURN ADDR.
:sSEE IF DONE W/ LAST XMISSION?
:sIF NOT:
WAIT
;:PUT ADDR IN MAILBOX
:sFIND END OF MESSAGE

::SUB START OF MESSAGE
#sGET MESSAGE ''NGTH IN WORDS

::PUT LENGTH IN MAILBOX

i: TELL APT TO TAKE MSG.

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-36

SEQ 0046

APT COMMUNICATIONS ROUTINE

014636
014640
014646
014654

014660

014664
014666
014666
014672
014674
014700
014702
14706
014710
014716
014724
014730
014734
014740
014744
014746
014750
014752
014753
014754

000413
017637
062766
013746
004737
000000
105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000

000004
000002
177776
014226

014664
000004

gt:
$:

10¢:

014754
001214

11s:

001174
000004
000002
001174
014754
014753
014752

001176
000004

12¢:

BR
MOV

ADD
MOV
JSR
.WORD

TST8

S$
94(SP) .4
#2,4(SP)
177776,-(SP)
PC,$TYPE

$FFLG

BEQ
TST
BEQ

12$
$ENV
12

BNE
MOV
ADD
INC
CLRB
CLRB

11
84(SP), $FATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG

TST

CLRB

sMSGTYPE

$MFLG

:sPUT MSG ADDR IN JSR LINKAGE

; :BUMP RETURN ADDRESS
;:PUSH 177776 ON STACK
;s CALL TYPE MACRO

: s SHOULD REPORT FATAL ERROR?

::IF NOT:
BR
’
; sRUNNING UNDER APT?
::IF NOT:
BR

; s FINISHED LAST MESSAGE?

::IF NOT:
WAIT
;;GET ERROR ¢
; :BUMP RETURN ADDR.
;s TELL APT TO TAKE ERROR
:sCLEAR FATAL FLAG
;;CLEAR LOG FLAG

:;CLEAR MESSAGE FLAG

MOV
(SP)+,R1
::POP STACK INTO R1
MOV
(SP)+,R0
;:POP STACK INTO RO
RTS
PC
; sRETURN
$MFLG:
.BYTE
0
; sMESSG. FLAG
SLFLG:
.BYTE
0
::LOG FLAG
$FFLG:
.BYTE
0
:sFATAL FLAG
.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040
.SBTTL
BINARY TO OCTAL (ASCII) AND TYPE

000200
000001
000100
000040

2106

3s:

itt
T T T T T T T T ITTITTITTT
t
ITT I Y YYY

:#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:#0CTAL (ASCII) NUMBER AND TYPE IT.
i#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
:
;%CALL

H
ik
L
H

MOV

TYPOS

.BYTE
.BYTE

NUM, -(SP)

N
M

: iNUMBER TO BE TYPED

;:CALL FOR

TYPEOUT

isN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;sM=1 OR O
::1=TYPE LEADING ZEROS
: :0=SUPPRESS LEADING ZEROS

i#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
i#$TYPOS OR $TYPOC

;#CALL
:

i*
ik
1%

MOV
TYPON

NUM, -(SP)

: sNUMBER TO BE TYPED
::CALL FOR TYPEOUT

:téTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;#CALL
:

014756
014762
014770
014774

017646
116637
112637
062716

000000
000001
015203
000002

ik
i&

015201

$TYPOS:

MOV
TYPOC

MOV
MOVB

MOVB

ADD

NUM, -(SP)
a(SP),-(SP)
1(SP), $OFILL
(SP)+,$OMODE+1
#2,(SP)

; sNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

;:FPICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
: s ADJUST RETURN ADDRESS

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-37

SEQ 0047

BINARY TO OCTAL C(ASCII) AND TYPE
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703

001002

005704
001403
005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000

000001
000006
000005

015201
015203
015200

BR
MOVB
MOVB
$TYPON: MOVB
$TYPOC:

MOV

015203
000006
015202
015201
000012

1$:
2$:

3s:

015202

177770

4 :

000060
000040
015176

5¢:

015176
015200

7%:

6%:
000002

000004

8s:

$OCNT:
$OFILL:
$OMODE:

.SBTTL

MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS

$TYPON
#1,30FILL

#6,$0MODE+1
#5, $OCNT
R3,-(SP)
R4,-(SP)
$OMODE +1,R4
R4
#6.R4
R4, $OMODE
$OFILL,.R4

12(SP),RS

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

: sSUBTRACT IT FOR MAX. ALLOWED
:sSAVE IT FOR USE
+:GET THE ZERO FILL SWITCH
: sPICKUP THE INPUT NUMBER
: sCLEAR THE OUTPUT WORD
: sROTATE MSB INTO “C*
::GO DO MSB
: sFORM THIS DIGIT

::BR IF NO

BIS

MOVB
TYPE
DECB

BGT
BLT
INC
BR
MOV

MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

:3sSET THE
::SET FOR
:3SET THE
:sSAVE R3
: s SAVE R4
: s SAVE RS
::GET THE

;:GET LSB OF THIS DIGIT
:: TYPE THIS DIGIT?

2(SP),4(SP)
(SP)+,(SP)
0000

015000
015002
015010
015016
015024
015026
015030
015032
015036
015040
015044
015050
015054
015060
015062
015064
015066
015070
015072
015074
015076
015100
015104
015106
015112
015114
015116
015120
015122
015126
015132
015136
015142
015146
015150
015152
015154
015156
015160
015162
015164
015172
015174
015176
015177
015200
015201
015202
2107

::GET RID OF JUNK
;s TEST FOR O
: : SUPPRESS THIS 07
::BR IF YES
::DON'T SUPPRESS ANYMORE 0'S
; sMAKE THIS DIGIT ASCII
: sMAKE ASCII IF NOT ALREADY
:3SAVE FOR TYPING
;:6G0 TYPE THIS DIGIT
:;COUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
: s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
; sRESTORE RS
: ;RESTORE R4
; sRESTORE R3
:3SET THE STACK FOR RETURNING

: sRETURN

: s STORAGE FOR ASCII DIGIT
: s TERMINATOR FOR TYPE ROUTINE
:;0CTAL DIGIT COUNTER
:3ZERO FILL SWITCH
: iNUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

Ry
T
P
T T

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
+*REPLACED WITH SPACES.
;#CALL:
i *
MOV
NUM, -(SP)
::PUT THE BINARY NUMBER ON THE STACK

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-38

SEQ 00438

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
1 &

015204
015204
015206
015210

015212

2108

hoee

015214
015216
015222
015226
015230
015232
015240
015242
015246
015252
015254
015260
015262
015264
015266
015270
015272
015274
015276
015300
015302
015304
015306
015314
015320
015324
015326
015330
015334
015336
015340
015342
015344
015346
015350
015356
015360
015362
015364
015366
015370
015372
015376
015404
015406
015410
015412
015414
015416
015420

010046
010146
010246
010346
010546
012746
016605
100004
005405

112766
005000
012703
112723
005002
016001
160105

$TYPDS:

020200
000020

000055

000001

015420
000040

2¢:

015410

3s:

002402
005202
000774

060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012

1s:

4%:

5%:
000001
000060
000040

177777

6%:
7%:

TYPDS

MOV

MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB

CLR
MOV

MovBe

CLR

MOV

SuB
BLT

INC
BR
ADD
TST
BNE
TSTB
BMI
ASLB

BCC

MOvVB
BIS
BIS
MOVB
TST

cMP
BLT
BGT

000010

MOV

8%:

177777

177776

9s:

BR
TSTB
BPL

MOVB

CLRB

MOV

MOV
MOV

015420
000002

MOV
MOV
TYPE
MOV

000004

$DTBL:

$DBLK:
.SBTTL

MOV
RTI

::GO TO THE ROUTINE
RO, -(SP)
R2,-(SP)
R3,-(SP)
#20200, -(SP)

20(SP),RS
1

RS
#' -,1(SP)
RO
#$DBLK,R3
#' ,(R3)+
R2
$DTBL(RO),R1
R1,RS
44
R2
3
R1,R5
R2
5

(SP)

64
1(SP), -1(R3)

#'0,R2
# ,R2
R2,(R3)+

(RO)+

RO,#10
24
8s
R5,R2
64

(SP)+

-1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

., $DBLK

2(SP),4(SP)

(SP)+,(SP)

10000.
1000.
100.
10.
4
.BLKW
ERROR HA NDLER ROUTINE

::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
; ;PUSH RS ON STACK
#3SET BLANK SWITCH AND SIGN
:3GET THE INPUT NUMBER
::BR IF INPUT IS POS.
i sMAKE THE BINARY NUMBER POCS.

: sMAKE THE ASCII NUMBER NEG.

:sZERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
: sCLEAR THE BCD NUMBER
::GET THE CONSTANT

::FORM THIS BCD DIGIT

::BR IF DONE
: s INCREASE THE BCD DIGIT BY 1

:;ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
::FALL THROUGH IF 0
;sSTILL DOING LEADING 0'S?
::BR IF YES
::MSD?
:3BR IF NO

;s YES--SET THE SIGN
; sMAKE THE BCD DIGIT ASCII

;sMAKE IT A SPACE IF NOT ALREADY A DIGIT

;sPUT THIS CHARACTER IN THE OUTPUT BUFFER
: s JUST INCREMENTING
; ;CHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
::G0 TO EXIT
;3GET THE LSD
::GO CHANGE TO ASCII
;s WAS THE LSD THE FIRST NON-ZERO?
::BR IF NO

;s YES--SET THE SIGN FOR TYPING
:3SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
;;POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO
;;NOW TYPE THE NUMBER
;s ADJUST THE STACK

: sRETURN TO USER

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-39
SEQ 0049

ERROR HANDLER ROUTINE
R

Y Y

YT I T

;#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:#AND GO TO $SWRCK ON ERROR
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;#SW15=1
;#SW13=1
;%SW10=1

;#SW09=1
;#CALL
i &

2109
2110
2111
2112
2113
2114
2115
2116
2117

015430
015430
015432
015434
015440
015442
015450
015456
015460
015464
015470
015474
015502
015510
015516
015520
015524
015530
015530
015536
015540
015546
015552
015553
015554
015556
015562
015564
015566
015570
015576
015600
015604
015610
015612
015616
015616

104407
104407
105237
001775
013777
032777
001402
104401
005237
011637

162737
117737
032777
001004
004737
104401
122737
001007
113737
004737

$ERROR:

001103
001102
002000
001164
001112
001116
000002

163410

020000

7%:

163472
163462

001116
001114
163422

000001

001214

001114
014526

015552

20§:

21s:
22%:
2%:

163356

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
ERROR

CKSWR
CKSWR
INCB
BEQ

$ERFLG
7

001402
013716

163342

001110
001162

4%:

001162

;sNO - SKIP

. $BELL

: sRING BELL

$ERTTL
Sngéssgch

- ;3COUNT THE NUMBER OF ERRORS
;sGET ADDRESS OF ERROR INSTRUCTION

@$ERRPC,SITEMB
#BIT13,3SWR
20

CMPB
BNE

Move
JSR

::G0 TO USER ERROR ROUTINE

@APTENV, $ENV
28
$ITEMB,21$

: sRUNNING IN APT MODE
:iNO,SKIP APT ERROR REPORT
:sSET ITEM NUMBER AS ERROR NUMBER

0
224
SSWR
3

: sAPT ERROR LOOP
: sHALT ON ERROR
:sSKIP IF CONTINUE

gC.SATY4

.BYTE
.BYTE
BR
TST
BPL

LI IR R

;;STRIP AND SAVE THE ERROR ITEM CODE
: s SKIP TYPEOUT IF SET
: s SKIP TYPEOUTS

Psé;EgCK

: sREPORT FATAL ERROR TO APT

:sHALT ON ERROR!
;s TEST FOR CHANGE IN SOFT-SWR

:?ITO9.8$HR

::LOOP ON ERROR SWITCH SET?
::BR IF NO
::FUDGE RETURN FOR LOOPING
:;CHECK FOR AN ESCAPE ADDRESS
::BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE

$LPERR,(SP)
$ESCAPE
Ss
$ESCAPE, (SP)

RTI

000002
R

:sBELL ON ERROR?

TST
BEQ
MOV

5§¢:

+3SET THE ERROR FLAG
:sDON'T LET THE FLAG GO TO ZERO

$TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

CKSWR
BIT
BEQ
MOV

3s:

#B8IT10,8SWR

BIT
BEQ
TYPE
INC
MOV
suB
MOVB
BIT
BNE
JSR
TYPE

HALT

001000

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR

MOV

1¢:

015620
001171

HALT ON ERROR

: sRETURN
R

;GO TYPE ERROR

;GO UPDATE SOFTWARE SWR IF 'CNTRL/S'

R Ly
Y
Yy
YT T Tt

015620
015626
015632
015634

113737
004737
104407
000207

001102
015636

001730

$WRCK:

.SBTTL

MOV
JSR
CKSWR

$TSTNM,TSTNUM
PC,$ERRTYP

;SET UP TEST # ON ER
;GO TYPE ERROR

;GO LOOK FOR SWR CHANGE

RTS
PC
;RETURN TO ERROR HANDLER
ERROR MESSAGE TYPEOUT ROUTINE

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-40
SEQ 0050

ERROR MESSAGE TYPEOUT ROUTINE
FiRRARARARAR

015636
015636
015642
015644
015646
015652

2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129

2130

AR RA AR RARAAAAR AR A0

00000000000 000000000404

;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH
+#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

104401
010046
005000
153700
001004

015654

013746

015660
015662
015664
015666
015670
015672
015674
015700
015704
015706
015710
015712
015716
015722
015724
015726
015730
015734
015736
015740
015742
015746
015750
015750
015752
015754
015756
015760
015764
015766

104402
000426
005300
006300
006300
006300
062700
012037
001404
104401

000000
104401
012037
001404

104401
000000
104401
011000
001004
012600
104401
000207
013046
104402
005710
001770
104401
000771
040

$ERRTYP:

001171

TYPE
MOV

CLR
BISB
BNE

001114

001116

MOV

001320
015710

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV

1$:

BEQ

TYPE
.WORD
TYPE

28:

001171
015726

3s:

MOV
BEQ

TYPE
.WORD
TYPE

4 :

001171

5%:

040

8s:
PR

6%
RO
RO
RO
RO
#$ERRTB,RO
(RO)+,28

O
. $CRLF
(RO)+,4s
S$

JUST

::SAVE $ERRPC FOR TYPEOUT

: ;ERROR ADDRESS

::G0 TYPE--OCTAL ASCIICALL DIGITS)
::GET OUT
;sADJUST THE INDEX SO THAT IT WILL
)
WORK FOR THE ERROR TABLE

::sFORM TABLE POINTER
:sPICKUP "ERROR MESSAGE” POINTER

::SKIP TYPEOUT IF NO POINTER

;s TYPE THE "ERROR MESSAGE”
;3 "ERROR MESSAGE” POINTER GOES HERE
;s "CARRIAGE RETURN” & “LINE FEED"

;s PICKUP "DATA HEADER” POINTER
;s SKIP TYPEOUT IF O

TYPE
RTS

;3 "CARRIAGE RETURN” & "LINE FEED”
: s RETURN

MOV

8(RO)+,-(SP)

::SAVE 8(RO)+ FOR TYPEOUT

(RO),RO
74
(SP)+,RO
. $CRLF

:;PICKUP "DATA TABLE” POINTER
:3G0 TYPE THE DATA
: sRESTORE RO

(RO)

++GO TYPE--OCTAL ASCIICALL DIGITS)
::IS THERE ANOTHER NUMBER?

.84

;s TYPE TWO(2) SPACES

BEQ

BR
.ASCIZ
.EVEN

74
7
/

TYPE

000

$ERRPC, -(SP)

;3IF ITEM NUMBER IS ZERO,

;s TYPE THE PC OF THE ERROR

;s TYPE THE "DATA HEADER”
:: "DATA HEADER” POINTER GOES HERE
3 "CARRIAGE RETURN” & "LINE FEED"

TYPOC
TST

015766

RO
S#$ITEMB,RO
1

;s "CARRIAGE RETURN” & "LINE FEED"
:3SAVE RO
::PICKUP THE ITEM INDEX

O
+ $CRLF

MOV
BNE
MOV

68:

001171

+ $CRLF
RO,-(SP)

::BR IF NO

;s LOOP
:: TWOC2) SPACES

AARA AR AR AR ARASAAARAA A0

00040 004000000000 00000000404

THIS ROUTINE WILL TYPE OUT A MAP OF MEMORY BANKS.
UPON ENTERING THIS ROUTINE RO WILL CONTAIN THE ADDRESS
OF THE TABLE TO BE TYPED OUT. THE ROUTINE REQUIRES THAT THE
TABLE CONTAIN 16 DECIMAL WORDS.
STORAGE USED:
MAP TABLE ADDRESS
BANK POINTER
CONSECUTIVE ZERO BANK FLAG
HIGH MEMORY ADR ... LO 16 BITS
R4
HIGH MEMORY ADR ... HI 6 BITS
LMEMLO
LOW MEMORY ADR ... LO 16 BITS
LMEMHI
LOW MEMORY ADR ... HI 6 BITS

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-41

ERROR MESSAGE TYPEOUT ROUTINE
2131
2132
2133
2134
2135 015772
2136 015776
2137 016004
2138 016010
2139 016012
2140 016014

2141
2142
2143
2144
2145
2146
2147

016016
016022
016024

016030
016034

016040
016042
016044
016046
2148 016050
2149 016054
2150 016060
2151 016064
2152 016070
2153 016072
2154 016076
2155 016102
2156 016104
2157 016106
2158 016112
2159 016114
2160 016116
2161 016120
2162 016122
2163 016124
2164 016126
2165 016132
2166 016134
2167 016140
2168 016142
2169 016144
2170 016150
2171 016152
2172 016156
2173 016160
2174 016164
2175 016166
2176 016170
2177 016174
2178 016176
2179 016202
2180 016202
016204
016206
016212
2181 016216

BNKTAB
ENDBKT

FLG30K
jittditb bbbttt

010037
012737
060037
005710
001010
005720
023700
001372
104401
000137
013700
010146
010246
010346
010446
005037
005037
005037
012703
010304
012702
012701
030110
001405
062703
005504
005002
000517
005702
001101
005202
022703
001023
005737
100413
001006
005737
001412
162703
000411
022704
001006
000403
022704
001002
1562703
010346
010446
013746
013746
104401

016424
000040
016426

016426

TYPMAP: MOV
MOV
ADD

1s:

016426

025017
016416
016424

28:

TST

BNE
TST
CMP
BNE

MOV

016420
016422
001700
177777
000001
000001

= ADDRESS OF TABLE TO BE PROCESSED
= LAST ADDRESS + 2 OF TABLE TO BE PROCESSED
= 30K MEMORY FLAG

bbb bbbt bbb

RO,848NKTAB
940, SOENDBKT
RO, SOENDBKT

(RO)
2
(RO)«
S0ENDBKT ,RO
14

NOMEM
134
S¢BNKTAB,RO
R1,-(SP)

LMEMLO
LMEMHI
TEMP

3s:
4s:

MOV
BIT

040000

177777

R3,R4
1,R2
#B8ITO,R1
R1,(RO)
S$
€40000,R3
R4
R2
11%
R2
104
R2
#177777,R3

001710

9%
MMAVA
74

001676

FLG30K

010000

000003

64:

CcHP

000077

74:

cMP

020000

8s:
9s:

SuUB

016420

016422

024675

€20000,R3

LMEMLO, -(SP)
LMEMHI, -(SP)

FROM

bt bbbki
bbbt bbbbbbbbhdbbbbbndd bttt

;SAVE ADDRESS OF TABLE
;LOAD END BANK WITH 40
;GET LAST ADR + 2 INTO ENDBKT
;ANY MEMORY IN THIS TABLE ENTRY
:
THEN GO PRINT OUT LOCATIONS
;
ELSE POINT TO NEXT TABLE ENTRY
:IF NOT END OF TABLE
THEN TRY AGAIN
i
;GO PRINT OUT THE FOLLOWING MESSAGE.
:'NO MEMORY FOUND'’
sEXIT
;RESTORE MAP TABLE ADDRESS

::PUSH R1 ON STACK
:3PUSH R2 ON STACK
:sPUSH R3 ON STACK
:sPUSH R4 ON STACK
;INIT LOW MEM ADR ... LO 16 BITS
sINIT LOW MEM ADR ... HI 6 BITS
sINIT LAST BANK IN MAP FLAG
;INIT HIGH MEM ADR ... LO 16 BITS
;INIT HIGH MEM ADR ... HI 6 BITS
;INIT CONSECUTIVE ZERO BANK FLAG
;INIT BANK POINTER
;IF THIS 8K BANK IS NOT PRESENT
THEN GO PRINTOUT MAP
:
:+

ELSE UPDATE HIGH MEM TO TOP OF THIS BANK

;CLEAR CONSECUTIVE ZERO BANK FLAG
1GO CHECK FOR NEXT BANK
+IF_CONSECUTIVE ZERO BANK
+
THEN DO NOT PRINT MESSAGE
s
ELSE UPDATE CONSECUTIVE ZERO BANK FLAG
:IF _NOT 32K, 128K OR 2M BOUNDARY
i
THEN GO PRINT MESSAGE
+
ELSE IF 22-BIT ADDRESSING
;
THEN GO WORK ON 22-BIT ADDRESSING
;
OR GO WORK ON 18 BIT ADDRESSING
ELSE IF NOT 30K SYSTEM
i
THEN GO ADJ TO 28K BOUNDARY
'
ELSE ADJ TO 30K BOUNDARY
;
:AND GO PRINT
+IF _NOT 128K BOUNDARY
THEN GO PRINT
:+
ELSE GO ADJ TO 124K BOUNDARY
3+
:IF NOT 2M BOUNDARY
THEN 30 PRINT
3
:ADJ HIGH MEMORY TO BELOW I/0 PAGE

1:PUSH R3S ON STACK
+:PUSH R4 ON STACK
#sPUSH LMEMLO ON STACK
3 sPUSH LMEMHI ON STACK
;GO PRINT OUT THE FOLLOWING MESSAGE.

SEQ 0051

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-42

ERROR MESSAGE TYPEOUT ROUTINE
2182
2183 016222
2184 016224
2185 016226
2186 016230
2187 016234
2188 016240
2189 016244
|

016250

016253
2190 016254

104403
003
000
013746

016260
016262
016263
2191 016264
2192 016270

104403
005
001
104401
010446

016272
016274
016275
2193 016276

104403
003
000
010346

016300

104403

016303
2194 016304
016310
016314
016316
2195 016320

001
012637
012637
012604
012603
005737

2197 016326
2198 016332
2199 016334
2200 016340
2201 016344
2202 016352
2203
2204 016356
2205 016360
2206 016362
2207 016364
2208 016370
2209 016372
2210 016376
2211 016400
2212 016404
2213 016406
2214 016406
016410
016412

062703
005504
010337
010437
062737
005537

016252

016302

2196 016324

016414

2215 016416
2216

3
0
LMEMLO, -(SP)

016420

S
1
70
R4,-(SP)

024705

0
R3,-(SP)

006301
001250
005720
023700
001242
005760
100003
005237
000645

(SP)+,LMEMHI
(SP)+,LMEMLO

016422
016420

(SP)+.R4

001700

10s:

040000

016420
016422
000001
016422

01,LMEMLO
LMEMHI

016420

11%:
016426

12%:

001700

sSHIFT BIT 15 INTO CARRY

144;

13%:

sSHIFT BIT 15 TO ALIGN WITH BITS 17-16
{RESTORE BITS 14-0
1sSAVE LMEMHI FOR_TYPEOUT
4 TYPE_ADDRESS BITS 21-15
+160 TYPE--OCTAL ASCII

4+ TYPE 3 DIGIT(S)

+ 1SUPPRESS LEADING ZEROS
11SAVE LHEMLO FOR_TYPEOUT
3 TYPE_ADDRESS BITS 14-0
+460 TYPE--OCTAL ASCII
+1TYPE S DIGIT(S)
+1TYPE LEADING ZEROS
' TYPE "TO*

sUPDATE LMEM TO THIS BANK
i

$GET TO NEW LOW ADDRESS OF NEXT BANK
8

144
TEMP
1)

(SP)+,.R4
(SP)+,R3
(SP)+,R2
(SP).,R1
PC

#:POP STACK INTO R4
+3POP STACK INTO R3
::POP STACK INTO R2
:3POP STACK INTO R1
sRETURN TO CALLER

(RO).
g:ENDOKT.RO

11SAVE R4 FOR TYPEQUT
4+ TYPE_ADDRESS BITS 21-15
+160 TYPE--OCTAL ASCII
41 TYPE 3 DIGIT(S)
+ 1SUPPRESS LEADING ZEROS
11SAVE R3 FOR TYPEOUT
1 TYPE_ADDRESS BITS 14-0
$160 TYPE--OCTAL ASCII
+1TYPE § DIGIT(S)
+3TYPE LEADING ZEROS
+1POP STACK INTO LMEMMI
11POP STACK INTO LMEMLO
11POP STACK INTO R4
11POP STACK_INTO RS
{HAS LAST BIT IN MAP PRINTED?
{YES,EXIT_TO_STACK CLEANUP
{UPGRADE TO TOP OF THIS BANK

sPOINT TO NEXT 8K BANK
tBRANCH IF MORE TO TEST IN THIS MAP ENTRY
tUPDATE POINTER TO NEXT TABLE ENTRY
+IF DONE WITH TABLE
THEN TRY AGAIN
i
sCHECK IF LAST BANK AVAILABLE
+IF ZERO, TYPMAP PRINT COMPLETED
;ELSE SET LAST BANK PRINT FLAG
sPRINT FOR LAST BANK

R1
44

-2(RO)

177776

012604
012603
012602
012601
000207

(SP)+,R3
TEMP
148
#40000,R3
R4
R3,LMEMLO
R4 ,LMEMHI

sSHIFT BIT 15 TO ALIGN WITH BITS 17-16

{RESTORE BITS 14-0

016420
016422
016420
016422

005

001030

sSHIFT BIT 15 INTO CARRY

i+ ' FROM'

ASL

006303
006104
006003
006337
006137
006037
013746

SEQ 0052

{

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-43
SEQ 0053

ERROR MESSAGE TYPEOUT ROUTINE

<217
2218
2219
2§32

016420
016422
016424
016426

000000
000000
000000
000000

2222
2223
2224

LMEMLO:
LMEMHI:
BNKTAB:
ENDBKT:

.WORD
.WORD
.WORD
.WORD

.NLIST

BEX

.SBTTL

SCOPE HANDLER ROUTINE

O
O
0
O

s+
:+
:
s+

LOW MEMORY ADR ... LO 16 BITS
LOW MEMORY ADR ... HI 6 BITS
ADDRESS OF TABLE TO BE PROCESSED
LAST ADDRESS + 2 OF TABLE

33 .“‘....t‘.t.“‘.“‘to““.‘.t“..ltt‘t“.

“.““‘.‘.“.t“‘t‘.

;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

;#AND LOAD THE TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0
>)

:#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

:#THE

SWITCH OPTIONS PROVIDED BY

LOOP ON TEST

;4SKW08=1

LOOP ON TEST IN SWR<7:0>

;aSWil=1
;#SW09=1

;#CALL

016430
01643C
016432
016440

104407
032777
001114

016442

000416

016444
016450
016456
016462
016466
016470
016472
016476
016500
016500
016506
016510
016516
016520
016524
016526
016534
016536
015544
016546
016554
016556
016562
0156566
016570
016576
015600
016604
016606
016612
016620

013746
012737
005737
012637
000463
022626
012637
000423
032777
001404
127737
001465
105737
001421
123737
101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024

040000

162500

THIS ROUTINE

;4#SW14+=1

ARE:

INHIBIT ITERATIONS
LOOP ON ERROR

i
SCOPE
$SCOPE:
CKSWR
1$:
BIT
BNE

#81IT14,3SuWR
$OVER

$XTSTR: BR

::SCOPE=IO0T
;s TEST
FOR CHANGE IN SOFT-SWR
;:LOOP ON PRESENT TEST?
::YES IF SWi4=1

;#4000START OF CODE FOR THE XOR TESTERQ400$

000004
016470
177060
000004

000004

000400

162432

162424

001102

001103
001115

001103

001000

162374

001110

001106

001103
001160
004000

162342

001202

001104
001160

::IF RUNNING ON THE “XOR” TESTER CHANGE

:: THIS INSTRUCTION TO A “NOP" (NOP=240)

001104

MOV
OPERRVEC,-(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
454, 32ERRVEC
:3SET FOR TIMEOUT
TST
99177060
;s TIME OUT ON XOR?
MOV
(SP)+,3%ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
::GO TO THE NEXT TEST
Ss:
CMP
(SP)+,(SP)«
;;CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,94ERRVEC
;;RESTORE THE ERROR VECTOR
BR
7%
;:LOOP ON THE PRESENT TEST
68:;88200END OF CODE FOR THE XOR TESTER#&42%
BIT
#BIT08,3SWR
;:LOOP ON SPEC. TEST?
BEQ
2
;:BR IF NO
CMPB
SSWR, $TSTNM
;:ON THE RIGHT TEST?
SWR<7:0>
BEQ
$OVER
:3BR IF YES
2%:
TST8
$ERFLG
;sHAS AN ERROR OCCURRED?
BEQ
34
::BR IF NO
CMPB
$ERMAX,SERFLG
;;MAX. ERRORS FOR THIS TEST OCCURRED?
BHI
3s
::BR IF NO
BIT
#BIT09,3SWR
;:LOOP ON ERROR?
BEQ
44
;:BR IF NO
7%:
MOV
$LPERR, SLPADR
::SET LOOP ADDRESS TO LAST SCOPE
BR
$OVER
:
43 ;
CLRB
$SERFLG
::ZERO THE ERROR FLAG
CLR
$TIMES
:sCLEAR THE NUMBER OF ITERATIONS TO MAKE
BR
1$
::ESCAPE TO THE NEXT TEST
3s:
BIT
#B8IT11,9SKR
;s INHIBIT ITERATIONS?
BNE
1
:3BR IF YES
TST
$PASS
::IF FIRST PASS OF PROGRAM
BEQ
1s
HH
INHIBIT ITERATIONS
INC
$ICNT
; s INCREMENT ITERATION COUNT
CMP
$TIMES, $ICNT
: sCHECK THE NUMBER OF ITERATINMS MADE
BGE
$OVER
::BR IF MORE ITERATION REQULRED

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Honday 08-Apr-85 16:01

Page 10-44

€EQ 0054

SCOPE HANDLER ROUTINE
016622
016630
016636
016642
016650
016654
016660

2225
2226

016664
016672
016700
016704
016706

012737
013737
105237
113737
011637
011637
005037

112737
013777
013716

000002
000050

C00001
016706
001102
001102
001106
001110
001162
000001
001102
001106

001104
001160

001200

1$:

MOV
MOV
$SVLAD: INCB
MOVB

MOV

001115
162242

CLR

MOVB
MOV
MOV
RTI
SO

SOVER:

$MXCNT:
.LIST BIN

.SBTTL

.ENABL
(IR0

016726
016732
016734
016736
016742
016744
016750
016754
016760
016762

021627
001014
005726
105777
042716
022627
001366
000521

016764
016770
016772
016774
017000
017006
017010
017012
017014
017020
017022
017030
017032
017036
017042
017046
017050
017054
017056
017060

022716
001003
005726
000137
022737
001402
005726
000505
022726
001102
123727
001476
104401
104401
013746
104402
104401
005046
005046
105777

100375
117746

LSB

162224
177600

000023
1519:

162202

CMP
BNE
TST
TST8
BPL

MOVB

162176
177600

132s:

000003

001140

30s:

31s:

162060

000001

$GTSWR:

19s:
7s:

(SP), 423
1324
(SP)+
I$TKS
131
3$TKB, -(SP)

+3IS IT A CONTROL-5?
: sBRANCH IF NO
; ;CLEAN CHAR OFF STACK
:sWAIT FOR A CHAR
::LOOP UNTIL ITS THERE

:KJLOO1
:KJLOO1
;KJLOO1
;KJLOO1
;KJLOO1

::sNO,

;KJLOOL

CcMP
BNE

#3,(SP)

:3IS IT A CONTORL C?

JMP
CMP
BEQ

CSTART

TST

000007

017616

Rttt ittt tttittthitbbbbbibit

::GET THE CHARACTER
:sMAKE IT 7-BIT ASCII
:3IS IT A CONTROL-Q?
: sBRANCH IF NO

TST

017600
017605
000176

RAtR R0t

#tC177,(SP)
(SP)+, %21
131

BIC
CMP
BNE
BR

000021

001134

SWITCH REGISTER CHANGE ROUTINE.

;*#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;*WHEN OPERATING IN T7Y FLAG MODE.
$CKSWR: TSTB
9$TKS
: ;CHAR THERE?
BPL
15%
::IF NO, DON'T WAIT AROUND
MOVB
3$TKB, -(SP)
:sSAVE THE CHAR
#tC177,(SP)
8IC
::STRIP-OFF THE ASCII

162230

002310
000176

0080004805480 0000 0000000000000kttt
kb bbkbbbbbkbbbbidn

ASARAEERNSRAN

;#SOFTWARE

105777
100144
117746
042716

s sREINITIALIZE THE ITERATION COUNTER
+3SET NUMBER OF ITERATIONS TO DO
: sCOUNT TEST NUMBERS
:3SET TEST NUMBER IN APT MAILBOX
:sSAVE SCOPE LOOP ADDRESS
s sSAVE ERROR LOOP ADDRESS
: sCLEAR THE ESCAPE FROM ERROR ADDRESS
:sONLY ALLOW ONE(C1) ERROR ON NEXT TEST
::DISPLAY TEST NUMBER
:sFUDGE RETURN ADDRESS
:sFIXES PS
:sMAX. NUMBER OF ITERATIONS

TTY INPUT ROUTINE

1580888480840

016710
016714
016716
016722

#1,$ICNT
$MXCNT, $TIMES
$TSTNM
$TSTNM,STESTN
(SP),$SLPADR
(SP), $LPERR
SESCAPE
#1, SERMAX
$TSTNM,8DISPLAY
$LPADR,(SP)

CMP

BNE
CMPB
BEQ
TYPE
TYPE
MOV
TYPOC

TYPE
CLR
CLR
TST8

30
(SP)+

#SWREG, SWR

31$
(SP)+
15¢

#7,(SP)«
15¢
$AUTOB,
#1
15¢

. $CNTLG
. $MSWR

SWREG, -(SP)

« $MNEW

-(SP)
-(SP)
F$TKS

RETURN TO USER

::BR IF NOT

:KJLOO1L
;KJLOO1
;KJLOO1
;KJLOO1L

:RJLOO1
;RJLOO1

::POP THE STACK
:RJLOOL¢
; sRESTART IF tC
;:RJLOO1
:31S THE SOFT-SWR SELECTED?
;:RJLOO1
::BR IF YES
;:RJLOO1
::POP THE STACK
:RJLOO1
: sBRANCH TO EXIT

:3IS IT A CONTROL G?
:sNO, RETURN TO USER

:RJLOO1

:;ARE WE RUNNING IN AUTO-MODE?

: ;BRANCH IF YES
;;ECHO THE CONTROL-G (tG)
:: TYPE CURRENT CONTENTS

: ;SAVE SWREG FOR TYPEOUT
:3G0 TYPE--OCTAL ASCIICALL DIGITS)
; ;PROMPT FOR NEW SWR

:;CLEAR COUNTER
;s THE NEW SWR

: ;CHAR THERE?

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-45

SEQ 0055

TTY INPUT ROUTINE

017064
017066
017072
017076
017102
017104

017110
017114
017122
017124
017132
017136
017142

017144
017150
017154
017156
017162
017164
017170
017172
017200
017204
017210
017216
017220
017226
017230
017234
017240
017242
017246
017250
017254
017260
017262
017264
017266
017270
017274
017300
017302
017306

100375
117746

042716
021627
001015
104401
062706
123727
001003
012777
000137
021627
001005
104401
062706
000737
021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
000720

BPL

162054
177600
000003
017566
000006
001135
000100
002310
000025

MOVB

BIC
cMP
BNE

TYPE
ADD

000001

162012

CMPB
BNE
MOV

8s$:

JMP

9s:

017573
000006

208:

000015

10s:

cMP

BNE
TYPE
ADD
BR
CMP
BNE
ST

000004
000002
000006
001171
001135

000001

000100

161716

161740

014440
000060

118.
14¢:

ADD
TYPE

15¢:
16%:

RTI
JSR

9$TKB, -(SP)
@tC177,(SP)
(SP),e3

9
+$CNTLC

26 ,SP
$INTAG,#1
8s
#100,88TKS
CSTART
(SP),#25
10$

$INTAG,#1
15¢
#100,38TKS

;sRE-ENABLE TTY KBD INTERRUPTS?
: sBRANCH IF NOT
;sRE-ENABLE TTY KBD INTERRUPTS

(SP),#15

+ $CRLF

18$

(SP), %67
18¢

#60,(SP)+

000002

000002
177776

17¢:

INC

001170

18¢:

TYPE

.DSABL

LSB

2(SP)
17$
(SP)
(SP)
(SP)
2(SP)
-2(SP),(SP)
7%

+» $QUES
R

;sECHO <CR> AND <LF>

: sRETURN

;;ECHO CHAR
::CHAR < 0?
: ;BRANCH IF YES
;;CHAR > 7?
; ;BRANCH IF YES
::STRIP-OFF ASCII
::IS THIS THE FIRST CHAR
: ;BRANCH IF YES
:sNO, SHIFT PRESENT
s
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
; sKEEP COUNT OF CHAR
::SET IN NEW CHAR
;:GET THE NEXT ONE

;s TYPE 2<CR><LF>

20
R

ECHO CONTROL-C (tC)

16$
4(SP)
11$
2(SP),8SWR
#6,5P

+$CNTLV
#6,SP
19¢

(5P), %60

000060

;3 YES,

: sCLEAN UP STACK
; sREENABLE TTY KEYBOARD INTERRUPTS?
; sBRANCH IF NO
;sALLOW TTY KEYBOARD INTERRUPTS
; sCONTROL-C RESTART
:3IS IT A CONTROL-U?
; ;BRANCH IF NOT
::YES, ECHO CONTROL-VU (tU)
; s IGNORE PREVIOUS INPUT
;3LET'S TRY IT AGAIN
:3IS IT A <CR>?
; ;BRANCH IF NO
:3:YES, IS IT THE FIRST CHAR?
; sBRANCH IF YES
: s SAVE NEW SWR
:sCLEAR UP STACK

PC,$TYPEC

000067

;s
IF NOT TRY AGAIN
:;PICK UP CHAR
;sMAKE IT 7-BIT ASCII
33IS IT A CONTROL-C?
: :BRANCH IF NOT

: s SIMULATE CONTROL
-U

P P YT

ITTTITITIYITIIIYLY

;#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;#CALL:

i %

RDCHR

RETURN HERE

: s INPUT A SINGLE CHARACTER FROM THE TTY
: sCHARACTER IS ON THE STACK
:sWITH PARITY BIT STRIPPED OFF

MOV
MOV

(SP),-(SP)
4(SP),2(SP)

;:PUSH DOWN THE PC
::SAVE THE PS

BPL

1¢

017310
017312
017320
017324
017326
017334

011646
016666
105777
100375
117766
042766

000004
161620

000002

16:614
177600

000004

$RDCHR:

1¢:

TST8B

MOVB

BIC

3$TKS

@$TKB,4(SP)

#tC<177>,4(SP)

;s WAIT FOR

:sA CHARACTER
;sREAD THE TTY
:;GET RID OF JUNK IF ANY

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-46
SEQ 0056

TTY INPUT ROUTINE

017342
017350
017352
017356
017360
017364
017370
017374
017376
017400
017406
017410
017416
017420
017426

026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004

000023

161566

2%:

161562
177600
000021
000004

000140

000004

000175

000040

000004

3s:

cMP
BNE
TST8
BPL
MOVB
BIC
cMP
BNE

cMP
BLT
cMP
BGT
BIC
RTI

4(SP),#23
33
93 TKS

2s
98TKB, -(SP)
@tC177,(SP)
(SP).,#21
2%
18
4(SP), #140
4
4(SP),#175
43
#40,4(SP)

:3sIS IT A CONTROL-S?
; ;BRANCH IF NO
s sWAIT FOR A CHARACTER
7:LO0P UNTIL ITS THERE
:sGET CHARACTER
;sMAKE IT 7-BIT ASCII
:3IS IT A CONTROL-Q?
::IF NOT DISCARD IT

;s YES,

RESUME

::IS IT UPPER CASE?
; ;BRANCH IF YES
::IS IT A SPECIAL CHAR?
: sBRANCH IF YES
:sMAKE IT UPPER CASE

;:G0 BACK TO USER

;gtt‘ttt“ttt‘tttttt‘tttttttttit‘ttttttt“tt

t‘ttitttttittttttttt‘

:-;:IS ROUTINE WILL INPUT A STRING FROM THE TTY
;#CALL:
i
RDLIN
;s INPUT A STRING FROM THE TTY
ik
RETURN HERE
: sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
ik
017430
017432
017436
017442
017444
017446
017450
017454
017456
017462
017464
017470
017474
017476
017502
017504
017510
017514
017520
017522
017526
017532
017534
017536
017544
017552
017554
017555
017556
017566
017573
017600
017605
017616

2227

010346
012703
022703
101415
104410
112613
122713
001005
104401
012603
000137
122713
001003
104401
000753
111337
104401
122723
001346
105063
104401
012603
011646
016666
012766
000002
000
000

136
136
136
015
040

$ROLIN: MOV
1¢:
MOV
2%:
cMP
BLOS
RDCHR
MOVB
CMPB
BNE
TYPE
MOV
JMP
10¢:
CMPB
BNE
4s:
TYPE
BR
3s:
MOVB

017556
017566

000003

017566
002310
000177
001170
017554
017554
000015

TYPE

CMPB
BNE
CLRB

177777
001172

000004
017556

000002
000004
9s:

103
125
107
012
040

015
015
015
123
116

STTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:
SMNEW:
.EVEN

TYPE
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

R3,-(SP)
#S$TTYIN,R3
#$TTYIN+8. ,R3
4
(SP)+,(R3)

#3,(R3)

10$
+ SCNTLC
(SP)+,R3

CSTART
#177,(R3)

3s
. $QUES
1s
(R3),9¢
.94

#15,(R3)+
2%

-1(R3)

JSLF
(SP)+,R3
(SP),-(SP)
4(SP),2(SP)
#$STTYIN,4(SP)
0
O
8.
/tC/<15>¢<12>
/tU/<15>¢<12>
/tG/<15><12>
<15><12>/SWR
/
NEW = /

: s TERMINATOR

WILL

BYTE

ALL

0°‘S

::SAVE R3
;sGET ADDRESS
: sBUFFER FULL?
::BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
:sGET CHARACTER
::IS IT A CONTROL-C?
; :BRANCH IF NO
:sTYPE A CONTROL-C (tC)
; sRESTORE R3
;:GOTO CONTROL-C RESTART
;IS IT A RUBOUT
::SKIP IF NOT
:sTYPE A ' 2!
;:CLEAR THE BUFFER AND LOOP
; :ECHO THE CHARACTER

: ;CHECK FOR RETURN
;:LOOP IF NOT RETURN

;sCLEAR RETURN (THE 15)

;s TYPE A LINE FEED
; sRESTORE R3
:sADJUST THE STACK AND PUT ADDRESS OF THE
33
FIRST ASCII CHARACTER ON IT

; sRETURN
;s STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
: sRESERVE 8 BYTES FOR TTY INPUT
; ; CONTROL “C*
: sCONTROL "U*
; s CONTROL “G*

i:s CONTROL-C RESTART ENABLED

:KJLOO1

C-ZDORVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-47
SEQ 0057

POWER DOWN AND UP ROUTINES

2228

.SBTTL
L

017630
017636
017644
017646
017650
017652
017654
017656
017660
017664
017670
017676
017700

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

017774
000340

161254
020000
017702

2229
2230 020002
2231
2232
2233
2575

2576
2577
2578
2579
2580
2581
2582 022366
2583 022370

2584 022374
2585 022402
2586 022406

000024
000026

$PWRDN:

MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV

000024

R4, -(SP)
RS, -(SP)

MOV

000024

TTTTTYYYYOrrres

#$ILLUP, OPWRVEC ;;SET FOR FAST UP
#340,890PWRVEC+2 ;;PRIO:7
RO, -(SP)
;:PUSH RO ON STACK

SP,$SAVR6

MOV

HALT
BR

012737
017774
013706
020000
005037
020000
005237
020000
001375
012677
161206
012605
012604
012603
012602
012601
012600
012737
017630
012737
000340
104401
020002
012716
002616
000002
000000
000776
000000
.NLIST
BIN
PWRMSG: .ASCIZ
.EVEN

:POWER DOWN ROUTINE

017702
017710
017714
017720
017724
017726
017732
017734
017736
017740
017742
017744
017746
017754
017762
017764
017766
017770
017772
017774
017776
020000

POWER DOWN AND UP ROUTINES

#$PWRU
, 8#PWRVE
P
C

-2

::PUSH R1 ON STACK
:sPUSH R2 ON STACK
::PUSH R3 ON STACK
:sPUSH R4 ON STACK
::PUSH RS ON STACK
;:PUSH @SWR ON STACK
: sSAVE SP
;;SET UP VECTOR

: sHANG UP

R bt
LT
T
t
L L L
T T T Tt
T T YOO e rrre

;POWER UP ROUTINE
$PWRUP: MOV
#$ILLUP, 94PWRVEC

MOV
CLR
INC
BNE

1¢:

$SAVR6,SP
$SAVR6
$SAVR6
1$

MOV
MOV
MOV

(SP)+,aSuWR
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0O

MOV
MOV
MOV
MOV
MOV
MOV

000024
000026
$PURMG:

$PWRAD:
$ILLUP:
$SAVR6:

TYPE
.WORD

MOV
.WORD
RTI
HALT
BR
0

;;SET FOR FAST DOWN

::GET SP
;s WAIT LOOP FOR THE TTY
;sWAIT FOR THE INC
::0F
WORD
;:POP STACK INTO 8SWR
;;POP STACK INTO RS
;:POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

#$PWRDN, B4PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,34PWRVEC+2 ;;PRIO:7

(PC)+,(SP)

i sREPORT THE POWER FAILURE
i sPOWER FAIL MESSAGE POINTER
: sRESTART AT RESTRT
: sRESTART ADDRESS

:3THE_POWER UP SEQUENCE WAS STARTED
i: BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

PWRMSG
RESTRT

<15><12>/RESTARTED FROM POWER FAIL/

.NLIST
.NLIST
AL

CND
L

.SBTTL

T TIrTITTITTTYTYYTYTY

ROUTINE TO SIZE FOR DRV11 UNITS

:RJLOO1

R4, -(SP)
WORK2
#1 ,WORK3
@WORK1 ,R4
#172414,RCSR

;RJLOO1L
;RJLOO1
;RJLOO1L
;RJLOO1L
;RJLOO1L
;:RJLOO1L

R
P P Y T Y YPPPP PP PPPre

010446
005037
012737
012704
012737

022774
000001
022750
172414

022776

022732

DRVSIZ: MOV
CLR
MOV

MOV
MOV

:RJLOO1

:SAVE R4
;CLEAR THE 2ND WORK LOCATION
:SET & OF DEVICES T0 1
:SET UP THE TABLE ADDRESS
:SET ADDR

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

ROUTINE TO SIZE FOR DRV11 UNITS

2587 022414
2588 022422
2589 022426
2590 022432
2591 022440
2592 022446
2593 022452
2594 022456
2595 022460
2596 022461

012737
104401
005777
013737
162737
104401
013746
104403
006
000

2597 022462
2598 022466
2599 022474
2600 022476
2601 022502
2602 022510
2603 022514
2604 022522
2605 022530
2606 022532
2607 022534
2608 022540

005237
022737
001402
006337
053737
004737
062737
022737
001410
000735
062706
005737

2611 022552
2612 022554
2613 022562
2614

012604
012737
000207

2609 022544
2610 022546

001002
104401

022534
023004
000300
022732
000004
023130
023000

000004
023000
023000

022774

022776
022776

001252

000010
172524

022732
022732

000004

023171
022744

INC
CMP
BEQ
ASL
BIS
JSR
ADD
CMP
BEQ
BR
ADD
TST

DRDONE: MOV
MOV
RTS
;

@33, TRAPTA
+AUTOS
SRCSR
RCSR,WORK4
4 ,WORK4
.DEVADR
WORK4, -(SP)
6
0

WORK?2
@1 ,WORK2
1024
WORK3
WORKS, $DEVM
PC,GETVEC
@10,RCSR
#172524 ,RCSR
DRDONE
1s
4 ,5P
WORK2

DRDONE
+NODEV

(SP)+,R4
@-1,$SIZE
PC

:SET VECTOR
:TYPE THE AUTO SIZER MESSAGE
;GOOD ADDRESS?
;:GET THE ADDRESS
sMAKE IT THE BASE ADDRESS
:TYPE THE ADDRESS MESSAGE
;PUT THE NUMBER ON THE STACK
:TYPE THE OCTAL NUMBER
;PRINT 6 NUMBERS
:SUPPRESS LEADING 0's

022564
022570
022574
022600
022604

2624 022606

2625 022612
2626 022614

2627 022620
2628 022626
2629 022634
2630

010637
012700
010060
012720
005720

022700

100370
106437

012737
012737
012777

;

022734
000112
177776
000003

GETVEC: MOV
MOV
14:
MOV
MOV
TST

000776
000000

022700
000340
010777

CcMP

000014
000016
000070

2631

BPL
MTPS

MOV
MOV
MOV

012701
005000
005300
001376
005301
001374
042777
013706
104401
000207
162716

000002

010777
022734
023076
000004

000044

VECTIM: MOV
CLR
1$:
DEC
BNE
2%:
DEC
BNE
BIC
MOV
TYPE
4%:
RTS
FIGV:
SuB

:RJLOO1
:RJLOO1
;RJLOO1
:RJLOO1
:RJLOO1
;RJLOO1

;RJLOO1L
;RJLOOL
;RJLOO1
;RJLOO1
;RJLOO1

;RJLOO1
;RJLOO1
:RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1

;RESTORE R4
:SET THE SIZE FLAG
(EXIT
Y

P P

P PP PP P PPwreey

PP P PP

PPwe

;RJLOO1
;RJLOO1

;RJLOO1

SP,SAVESP
#112,R0
RO, -2(RO)
@3,(RO).
(RO).

:SAVE SP
:SET UP VECTOR AREA
;MOV VEC+2 TO VEC
:MOV BPT TO VEC.2
;INC RO BY 2

;:RJLOO1
;P_LOO1
:RJLO01
;RJLOO1
:RJLOO1

1$
PRO

:NO
;ALLOW INTERRUPTS

:RJLOO1
:KJLOO2

#776 ,RO

#FIGV, 14
#340,16
#10777,8RCSR

;LAST VECTOR?

:SET UP BPT VECTOR
:SET BPT PSW
;FORCE INTR

P T P PP P

;RJLOO1

P Y PP P reeey

et
L T Y T
TP T T Y Y

022642
022646
022650
022652
022654
022656
022660
022666
022672
022676
022700

;RUL001

:BR IF YES
;:TYPE THE “No devices found"”

.SBTTL KILL SOME TIME WHILE WAITING FOR INTERRUPT

2632

;RJLOO1L
;RJLOOL
;RJLOO1
;RJLOO1
;RJLOOL
;:RJLOO1
;RJLOOL
;RJLOO1
;RJLOO1

:INCREMENT THE @ OF DEViCES
:1ST ONE?
:BR IF YES
;MAKE DEVICE ENABLE BIT
:NOW SET THE DEVICF MAP
;:GET THE VECTOR
:INC ADDR
;LAST ONE DONE?
s YES--EXIT
: TRY NEXT ONE
;POP STACK
;ARE THERE ANY UNITS?

.SBTTL ROUTINE TO GET DRV11-WA VECTOR ADDRESS

2617

2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643

2%:

2616

2619
2620
2621
2622
2623

1008:
102%:

MOV
TYPE
TST
MOV
SuB
TYPE
MOV
TYPOS
.BYTE
.BYTE

BNE
TYPE

2615

2618

18:

3s:

022774

177777

SEQ 0058

;RJLOO1

022774
000001

022564

Page 10-48

#2,R1
RO
RO
1$
R1
1$
#10777,8RCSR
SAVESP,SP
+NOINTR
PC
#4,(SP)

:SET COUNTER
;:CLEAR RO
;:DEC RO
:RO=0? BR IF NOT
;:DEC COUNTER
:BR IF NOT 0
;:CLR INTR ENABL
:RESTORE STACK
;sTYPE DEVICE DIDN'T INTERRUPT
:EXIT
;FIGURE OUT THE VECTOR

Y PP

;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
:RJLOO1L
;RJLOO1
;RJLOO1L
:RJLOO1
:RJLOO1
;:RJLOO1
:RJLOO1
;RJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO YO0S5.02

Monday 08-Apr-85 16:01

KILL SOME TIME WHILE WAITING FOR INTERRUPT

000000
000000
000000
000000
000000
000000
022750
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
.NLIST
AUTOS:

NOINTR:

DEVADR:
VECADR:
NODEV:
.EVEN

MOV
TYPE
TYPOS
.BYTE
.BYTE

023156

022734
010777

MOV

000002

8IC
RTS

2%:

RCSR:
.WORD
SAVESP: .WORD
SAV176: .WORD
SAV200: .WORD
SAV202: .WORD
$SIZE:
.WORD
VECTOR: WORK1
WORK1:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORK2:
.WORD
WORK3:
.WORD
WORK4;
.WORD
$FLAG:
.WORD

BIN

.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

(SP),(R4)+
+VECADR
3

0
SAVESP ,SP
:éO777.0RCSR

©COOCOCOO

011624
104401
104403
003
000
013706
042777
000207

SEQ 0059

;RJLOO1

OCOO0O0O0O000O00CO0O0O0O0

2644 022704
2645 022706
2646 022712
2647 022714
2648 022715
2649 022716
2650 022722
2651 022730
2652
2653 022732
2654 022734
2655 022736
2656 022740
2657 022742
2658 022744
2659 022746
2660 022750
2661 022752
2662 022754
2663 022756
2664 022760
2665 022762
2666 022764
2667 022766
2668 022770
2669 022772
2670 022774
2671 022776
2672 023000
2673 023002
2674
2675
2676 023004
2677 023040
2678 023076
2679 023130
2680 023156
2681 023171
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691 023216
2692 023220
2693 023222
2694 023224
2695
2696
2697
2698
2699
2700 023226

Page 10-49

;SAVE THE VALUE

;TYPE THE

"Vector="

;TYPE THE VECTOR ADDRESS
:
3 NUMBERS
H
SUPPRESS LEADING 0's
;RESTORE STACK
;CLR INTR ENABL
;EXIT

;LOCATION TO STORE CONTENTS OF LOC
:LOCATION TO STORE CONTENTS OF LOC
:LOCATION TO STORE CONTENTS OF LOC
;FLAG LOCATION
; TARBLE POINTER LOCATION
;LOCATIONS WHERE THE FOUND VECTORS

176
200
202
GO

;RJLOO1
<15>¢<12>/Auto Size found DRV11-WA’'S/

;RJLOO1
;RJLOO1
;:RJLOO1
;RJLOO1
;RJLOO1L
;RJLOO1L
;RJLOO1L

/ at the following locations/<15><12>
/
Device didn’'t interrupt./

<15><12>/DRV11-WA Address = /

Vector

<15>¢<12>/

No devices found./

.LIST

BIN

:
R it
Lt
L
T T T T T
T
t
I TTTTTT T YYION

:
;

TIMING ROUTINE TO LOOP AFTER RESET
.SBTTL
THIS LOOP IS TU' WASTE TIME WHILE THE RESET IS TAKING PLACE
OTHERWISE, A ' - WILL BE DISPLAYED ON THE CONSOLE TERMINAL

R
P P PPN

005000
00530C
001376
000207

WSTTIM:
1s:

CLR
DEC
BNE
RTS

RO
RO
1$
PC
e

.SBTTL

;CLEAR DELAY COUNTER
;DECREMENT DELAY COUNTER
;BRANCH IF NOT ZERO
;RETURN
Y

001712

SETREG:

MOV

#DRVWCR,
RO

;RJLOO1

;KJLOO1

;KJLOO1
iKJLOO1
:KJLOO1
:KJLOO1
:KJLOO1
:KJLOO1

T TITTTTITITTYYYYYTY

RESTORE DEFAULT REGISTER ADDRESSES ROUTINE

R
T TP T TI T I ITTITTT Y YYW

012700

;RJLOO1L
;RJLOO1
;RJLOOL
;RJLOO1
;RJLOO1L
;RJLOO1L
;RJLOO1
;RJLOO1L
;RJLOOYL
;RJLOO1
;RJLOO1
;RJLOO1L
;RJLOO1L
;RJLOO1L
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJL001
;RJLOO1
;RJLOO1
;RJLOOL
;RJLOOL
:RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1
;RJLOO1

:SET UP REG ADRS POINTERS

;RJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

RESTORE DEFAULT REGISTER ADDRESSES ROUTINE

2701
2702
2703
2704
2705

023232
023236
023240
023244
023250
2706 023252
2707 023260
2708 023264
2709 023270
2710 023274
2711 023276
2712 023302
2713 023306
2714 023310
2715
2716

013701
010120
062701
022700
001372
013737
012700
013701
042701
010120
062701
022700
001372

001250

18:

000002
001722

001714
001724
001244
170000

001722

2s:

000002
001730

000207

MOV
MOV
ADD
CHP
BNE
MOV
MOV
MOV
BIC
MOV
ADD
CHP
BNE

$BASE, R1
R1,(RO)+
#2,R1
0DRVDBR+2,R0
1$
DRVBAR,DRVBAE
#DRVCTO, RO
$VECT1,R1
#170000, R1
R1,(RO)+
#2,R1
9DRVCT2+2,R0
28
PC

010046

023314
023320
023322
023324
023326
023332

016600
005740
111000
006300
016000
000200

023334
023336
023344

011646
016666
000002

:SET BASE ADRS
sLOAD EM
;
;ALL DONE?
:BR IF NOT
;SET UP BAE REG ADDRESS
:SET UP DRV11MA VECTOR ADRS POINTER
sGET BASE VECTOR ADRS
sCLR OUT PRIORITY BITS
;
sPOINT TO NEXT
;ALL DONE?
:BR IF NOT

sKJLOO1

sRETURN

TRAP DECODER

jik dbhkb kb khb

023312

SEQ 0060

sRJLOO1

RTS

.SBTTL

Page 10-50

bk hkhkh

bk hhk kb kb kb kb

h bk k kb hhkk

kb h kb kbbb kb hkh kb

;#THIS ROUTINE WILL PICKUP THE LOMER BYTE OF THE “TRAP" INSTRUCTION
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:#G0 TO THAT ROUTINE.

$TRAP:

000002

023346

MOV

RO, -(SP)

MOV
ST
MOVB
ASL
MOV
RTS

2(SP),R0
-(RO)
(RO),RO
RO
$TRPADCRO)
,RO
RO

: 1SAVE RO

:3GET TRAP ADDRESS
: iBACKUP BY 2
:3GET RIGHT BYTE OF TRAP
:sPOSITION FOR INDEXING
;; INDEX TO TABLE
:3G0 TO ROUTINE

;3 THIS IS USE TO HANDLE THE “GETPRI” MACRO

000004

000002

$TRAP2: MOV
(SP),-(SP)
MOV
4(SP),2(SP)
RTI
.SBTTL
TRAP TABLE

:sMOVE THE PC DOWN
:sMOVE THE PSW DOWN
s sRESTORE THE PSW

;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;#BY THE “TRAP” INSTRUCTION.

2717
2718
2719
2720
2721
2722
2723
2724
2725
2726

'b——

023346
023350
023352
023354
023356
023360
023362
023364
023366
023370

023334
014226
015002
014756
015016
015204
017036
016710
017310
017430

ROUTINE

STRPAD:

.WORD
STYPE
$TYPOC
$TYPOS

$TYPON
$TYPDS
$GTSWR
$CKSWR
$RDCHR
$ROLIN
A

$TRAP2
;;CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

::CALL=TYPOC
::CALL=TYPOS
+ sCALL=TYPON
:sCALL=TYPDS
: sCALL=GTSWR
: s CALL =CKSWR
: s CALL=RDCHR
: s CALL=RDLIN

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
GET SOFT-SWR SETTING
TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

.SBTTL

ASCII MESSAGES

Ly
T
Yy Y P Y Yy YTy

023372
023421
023453
023473
023537

.NLIST

BIN

EM1:
EM2:
EM3:
EM4:
EMS:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/REGISTER TIMEOUT ERROR/
“REGISTER READ/WRITE ERROR”
/BUS RESET ERROR/
/FNCT BITS FAILED TO SET STATUS BITS/
/READY INTERRUPT FAILURE/

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-51
SEQ 0061

ASCII MESSAGES

2727 023567
2728 023616
2729 023643
2730 023674
2731 023726
2732 023755
2733 024002
2734 024050
2735 024107
2736 024165
2737 024236
2738 024256
2739 024315
2740 024355
2741 024417
2742 024464
2743
2744 024510
2745 024524
2746 024542
2747
2748
2749
2750
2751 024552
2752 024617
2753 024657
2754 024675
2755 024705
2756 024712
2757 024761
2758 025017
2759 025042
2760 025124
2761
2762
2763
2764 025154
2765
2766
2767
2768
2769
2770 025224
2771

| {—

EM6:
EM7:
EM10:
EM11:
EM12:
EM13:
EM14:
EM15:
WARN:
EM16:
EM17:
EM20:
DH1:
DH2:
DH3:

DT1:

DT2:
DT3:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.esgfil
Vv

/READY CLR OR SET ERROR/
/STATUS ERROR ON XFER/
/WORD COUNT ERROR ON XFER/
/BUFFER ADRS ERROR ON XFER/

/DATA ERROR FROM MEMORY/
/DATA ERROR TO MEMORY/
/SINGLE CYCLE OFF DID NOT LOCK OUT CPU/
/SINGLE CYCLE ON LOCKED OUT CPU/
<15><12>/Please disable "REVil1” memory refresh option/
<15><12>/and enable processor memory refresh./<15><12>
/NEX LOGIC ERROR/
/CYCLE FAILED TO CLOCK DBR (IN)/
"DATA ERROR FROM I/0 PAGE (XCSR)"
.
/ERRPC
TSTNUM
BUSADR
EXPCT
RCVD/
/ERRPC
TSTNUM
BUSADR
ADRS
EXPCT
RCvVD/
/ERRPC
TSTNUM
SUSADR/

$ERRPC, TSTNUM, $BDADR, $GDDAT, $BDDAT,0

$ERRPC,TSTNUM, $BDADR. $GDADR, $GDDAT . $BDDAT, 0
SERRPC,TSTNUM, $BDADR.O

.SBTTL
I

MMAMES:

.ASCIZ

AVAL22:
MEMMES:
FROM:
T0:
INSUFF:
NOMEM:
Q22CPU:
UUT:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

I T
m

STANDARD PROGRAM MESSAGES
L

<15><12>/KT11 (Memory Management) available/

<15><12>/22 Bit Addressing available/<15><12>
<15><12>/Memory Map:/
<15><12>/From /
/ To /
<15><12>/INSUFFICIENT MEMORY TO RUN DIAGNOSTIC/
/ ... FIRST 16K NOT ALL THERE!/
<15><12>/NO MEMORY FOUND./
<15><12>\Does this CPU support 22-bit addressing? [Y/N] \
<15><12>/
Testing Unit Number /
.LIST

BIN

PATCH:

.BLKW

20.

;20 WORD PATCH AREA

R
Y
Y Y P T YT YT I T I TTrTIrrrrTYT)

:'DBUF' IS THE WORKING AREA IN EACH 4K MEM FOR ALL
;NPR OPERATIONS - IT IS 200 WORDS LONG

Y
Y Y P Y Py P Y P Y Yy
ey

000000
000001

DBUF:

0
.END

:1ST ADRS OF DATA BUFFER

;RJLOO1

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-52
SEQ 0062

Symbol table
ABASE =
ACDW1 =
ACDW2 =
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=

172410
000000
000000
000000
000000
000000
000000

ADDW11= 000000
ADDW12= 000000

ADDW13= 000000
ADDW14= 000000

ADDW15=
ADDW2 =
ADDW3 =
ADDW4 =
ADDWS =
ADDW6 =
ADDW? =
ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
AENV
=
AENVM =

AFATAL=
AMADR1=
AMADR2=
AMADR3=
AMADR4=
AMAMS1=
AMAMS2=
AMAMS3=
AMAMS4=
AMSGAD=

AMSGLG=
AMSGTY=

AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPO=
ASKQ22
ASLE
ASRAD
ASR3
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AUTOS
AVAL22
AVECT1=

000000
000000
000000
000000
000000
000000
000000
000000
700000
900000
000001
000000
0C0000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000040
000001
000200
000100
013560
020330
021306
022064
000000
000000
000000
000000
023004
024617
000124

AVECT2=
BACKEX
BITO
=
BITO0 =
BITO1 =
BIT02 =
BITO3 =

000000
021524
000001
000001
000002
000004
000010

BITO4 = 000020
BITOS = 000040

BIT06 = 000100
BITO7 = 000200
BIT08 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2
= 000004
BIT3
= 000010
BIT4
= 000020
BITS
= 000040
BIT6é
= 000100
BIT7
= 000200
BIT8
= 000400
BIT9
= 001000
BNKTAB
016424
BPTVEC= 000014
CHSV
021336
CHSV1
021404
CHSV2
021560
CKDAT
013272
CKDAT1
013344
CKDAT2
013452
CKSTAT
012520
CKSTA1
012704
CKSWR = 104407
CONL
020474
CONLOK
021350
CORCMP
020544
CORCP1
020556
CORSCN
020504
CORSZ
001734
CORSZR
002514
CR
= 000015
CRLF
= 000200
CSTART
002310
CTRLE
022166 G
DBUF
025224
DBUFP
001736
DDISP = 177570
DEVADR
023130
DH1
024355
DH2
024417
DH3
024464

DISMAP
DISPLA
DISPRE
DMAP
DRDONE
DRVBAE
DRVBAR

003500
001142
000174
001732
022552
001722
001714

EXAMO8
EXAMO9
EXAM1
EXAM10
EXAM11
EXAM12
EXAM2

021704
021710
020120
021747
021754
021762
020104

021774
020422

MASK8K= 037777
MEMMAP
001524

021500
021470

MEMMES
024657
MFPT
= 000007

DRVCSR
DRVCTO

001716
001724

EXAM3
EXBACK

DRVCT2
DRVDBR

001726
001720

EXTP1
EXTRAP

DRVSIZ
DRVWCR
DSWR
=
DT1
DT2
DT3
EDEL
EINPUT
ELTOU
EMTVEC=
EM1
EM10
EM11

EM12
EM13
EM14
EM1S
EM16
EM17
EM2
EM20
EM3
EM4
EMS
EM6
EM7
ENDBKT
ENDL
ENDLOK
EPRINT
ERROR =
ERRVEC=
ESC
EWORK
EWORKO
EWORK1
EWORK2
EXAM
EXAMIN
EXAMO1
EXAMO2
EXAMO3
EXAMO4
EXAMOS
EXAMO6
EXAMO7

022366
001712
177570
024510
024524
024542
020366
022102 G
022336 G
000030
023372
023643
023674

LOOKIE
LOOK1
LOOK2
LOOK3
LSIFLG
LSIQ22
MASK4K=

020404
020672
020036
021050
001702
001704
017777

FIDDLE
FIGV
FIRST2
FLG30K
FROM
FSTPAS
GETVEC
GOST
GTSWR =
HT
=
INCE
INSUFF
IOTVEC=

021776
022700
020452
001676
024675

MMAMES
MMAVA
MMCK
MMINIT
MMVEC =

024552
001710
002724
012326
000250

001706
022564
020414
104406
000011
020340
024712
000020
JMPCHK
021432
JMPCK
020410
JPCX
021244
JPEX1
021240
KBCS
= 177560

MOv272
MPAT
MPATT
MSD
MTPS
=
MYCC
NODEV
NOINTR
NOMEM
NONKT
NORUB
NXDEV
NXDEV1

021152
021070
021064
021134
106427
022002
023171
023076
025017
003142
022026 G
012042
012044

177562
013700
013710
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316
003264
013140
013216

OPRINT
PATCH
PATT
PIRQ
=
PIRQVE=

022322 G
025154
022010
177772
000240

023616
016426
020470
021320
022216 G
104000
000004
022014 G
021764
021766
021770
021772
020050 G
020134
021626

KBDB
=
KBDSRV
KBDSR1
KIPARO=
KIPARL1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=
KTSIZ
LDBUF
LDBUF1

PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PWRMSG
PWRVEC=
Q22CPU
RCSR
RDCHR =

000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
020002
000024
025042
022732
104410

021634
021642
021650
021656
021663
021666

LF
=
LMAD
LMEMHI
LMEMLO
LOOK
LOOKAD

000012
001522
016422
016420
020772
022000

RDLIN =
RELOC
RESTRT
RESVEC=
RETEX
REXTS

104411
022012
002616
000010
020426
021624

023726
023755
024002
024050
024236

024256
023421
024315
023453
023473

023537
023567

PRCS
PRDB

= 177564
= 177566

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Page 10-53
SEQ 0063

Symbol table

RSTVEC
012474
RTEX1
020450
RW
= 000006
R6
=%000006
R7
=%000007
SAVESP
022734
SAVET4
022006
SAVE2
022004
SAVTST
001624
SAV176
022736
SAV200
022740
SAV202 022742
SCNTRP
021514
SCOPE = 000004
SETREG
023226
SETVEC
012454
SRO
177572

177574
177576
172516
001100
001740
002344
177774
020642
001140
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
001700
013652

TKVEC = 000060
T0
024705
TPVEC = 000064
TRAPT4= 000004
TRAPVE= 000034
TRTVEC= 000014
TSTMAP
001564
TSTNUM
001730
TST1
003612
TST10
004752
TST11
005162
TST12
005242
TST13
005330
TST14
005432
TST1S
005576
TST16
005704
TST17
006022
TST2
003726
TST20
006142
TST21
006376
TST22
006624
TST23
007026
TST24
007176
TST25
007340
TST26
007546
TS127
010014
TST3
004030
TST30
010430
TST31
010632
TST32
011070
TST33
011334
TST4
004162
TSTS
004364
TST6
004466
TST7
004552
TYPDS = 104405
TYPE
= 104401
TYPMAP
015772
TYPOC
104402
TYPON
104404
TYPOS
104403
uP
000000
wT
025124
VECADR
023156
VECTIM
022642
VECTOR
022746
WARN
024107
022750
WORK1
WORK2
022774
WORK3
022776
WORK4
023000
WRONG2
020500
WRONG3
021266
WSTTIM
023216
XCMPO
021606

$APTHD
$ATYC
$ATY1
$ATY3
SATY4
$AUTOB
$BASE
$8DADR
$BDDAT
$BELL
$COW1
$COW2
$CHARC
$CKSWR
$CMTAG
$CM3
=
SCNTLC
SCNTLG
SCNTLV
$CPUOP
$CRLF
$0BLK
$00WO
$0DW1
$0DW10
$00W11
$DDW12
$0DW13
$0DW14
$0DW1S
$D0W2
$0DW3

$00W4

$DDWS
$00W6
$00W7
$00W8
$0DW9
$DEVCT

$DEVM

$DOAGN
$0TBL
$ENDAD
SENDCT
$SENDLF
$ENDMG
SENULL
$ENV
$ENVM
$EOP
SEOPCT
$ERFLG
$ERMAX
$ERROR
$ERRPC

001000
014534
014510
014516
014526
001134
001250
001122
001126
001164
001254
001256
014504
016710
001100
000000
017566
017600
017573
001222
001171
015420
001260
001262

001304
001306
001310
001312
001314
001316
001264
001266
001270
001272
001274
001276
001300
001302
001204
001252
012276
015410
012266
012230
012302
012310
012305
001214
001215
012174
012222
001103
001115
015430
001116

$ERRTB
$ERRTY
$SERTTL
$ESCAP
SETABL
SETEND
$FATAL
$FFLG
$SFILLC
SFILLS
$FLAG
$GDADR
$GDDAT
$GET42
$GTSWR
$SHD
=
$HIBTS
$ICNT
$ILLUP
$INTAG
$ITEMB
SLF
SLFLG
$LPADR
$LPERR
$MADR1

001320
015636
001112
001162
001214
001320
001176
014754
001156
001155
023002
001120
001124
012256
017036
000003
001000
001104
017774
001135
001114
001172
014753
001106
001110
001226
$MADR2
001232
$MADR3
001236
$MADR4
001242
$MAIL
001174
$MAMS1
001224
$MAMS2
001230
$MAMS3
001234
$MAMS4
001240
$MBADR
001002
$MFLG
014752
$MMAP
001664
$MNEW
017616
$MSGAD
001210
$MSGLG
001212
$MSGTY
001174
$MSWR
017605
$MTYP1
001225
$MTYP2
001231
$MTYP3
001235
$MTYP4
001241
$MXCNT
016706
$NULL
001154
SNWTST= 000001
SOCNT
015200
$OMODE
015202
$OVER
016672
$PASS
001202
$PASTM
001006
$PWRAD
017770

$PWRDN
$PWRMG
$PWRUP

017630
017764
017702
$QUES
001170
$ROCHR
017310
$ROLIN
017430
$SRDSZ = 000010
$RTNAD
012300
$SAVR6
020000
$SCOPE
016430
$SETUP = 000117
$SIZE
022744
$STUP = 177777
$SVLAD
016636
$SVPC = 000106
$SWR
= 167400
$SWREG
001216
$SWRMK = 000000
$TBAE
001674
$TBAR
001672
$TESTN
001200
$TIMES
001160
$TKB
001146
$TKS
001144
$TMAP
001666
$TN
= 000034
$TPB
001152
$TPFLG
001157
$TPS
001150
$TRAP
023312
$TRAP2
023334
$TRP
= 000012
$TRPAD
023346
$TSTH
001004
$TSTNM
001102
$TTST
001670
$TTYIN
017556
$TYPDS
015204
$TYPE
014226
$TYPEC
014440
$TYPEX
014506
$TYPOC
015002
$TYPON
015016
$TYPOS
014756
SUNIT
001206
SUNITM
001010
SUSKR
001220
SVECT1
001244
$VECT2
001246
$VERPC
001520
$WRCK
015620
$XTSTR
016442
$$GET4 = 000000
SOFILL
015201
= 001000
.8X

C-ZDRVB-0 DRV11-WA DMA INTERFAC MACRO Y05.02

Monday 08-Apr-85 16:01

Symbol table
. ABS.

025226
000000
Errors detected:

000
801

(RW,I,GBL,ABS,OVR)
(RW,I,LCL,REL,CON)

a2+ Assembler statistics

file
reads: 364
file writes: 282
( 192 Pages)
Size of work file: 49032 Words
Size of core pool: 19402 Words
( 74 Pages)
Operating system: RSX-11M/PLUS (Under VAX/VMS)
Work
Work

Elapsed time: 00:02:21.60
ZDRVBO.BIN,ZDRVBO.LIS/CR/-SP=SYSMAC/ML
,ZDRVBO.MAC

Page 10-54

SEQ 0064

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERFENCE

SYMBOL

ABASE
ACOW1
ACOM2
ACPUOP
ADDWO

ADDW1

ADDN10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW1S
ADDMW2
ADDW3
ADDW4
ADD
5

| ACOW6

ADDW?
ADDWS
ADDW9
ADEVCT
ADEVM
AENV

AENvM
AFATAL
AMADRY
AMADR2
AMADR3
AMADR4

VALVE

172410

000000
000000
000000

CREF

98-335
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354

9-354
9-354
9-354
9-354
9-354
9-354
#8-337
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354

#10-2286
010-2415

ASWREG
ATESTN

9-354

SEQ 0065

vo2

REFERENCES

AMAMSY
AMAMS2
AMAMS3
AMAMS4
AMSGAD
AMSGLG
AMSGTY
AMTYP1
AMTYP2
AMTYP3
AMTYPS
APASS
APRIOR
APTCSU
APTENV
APTSIZ
APTSPO
ASKQ22
ASLE
ASRAD

ASR3

PAGE 1

9-354
9-354
9-354
9-354
9-354
9-354

9-354
9-354

9-354

9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354

9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354
9-354

10-2104
10-2104
10-555
10-2104
10-608

910-2105
10-2105
#10-2105
10-2105
#10-1991

#10-2516
9-354

10-2518
9-354
9-354

10-2288
10-2417

:a“—

9-354

#10-2105

10-2108

#10-2105
10-2007

s e

i B

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

AUNIT
AUSWR
AUTOS
AVAL22
AVECT1
AVECT2

= 000000
= 000000
023004
024617
= 000124
= 000000

9-354
9-354
10-2588
10-690
88-336
9-354

BACKEX
BITO
BITO0

021524
= 000001
= 000001

BITO1
BIT02
8IT03
BIT04
BITOS
BIT06
BIT07
8IT08
BIT09
BIT1
BIT10
BIT1I
BITi2
BIT13
BITi4
BIT15S
BIT2
BIT3
BIT4
BITS

=
=
=
=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
=
=

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

10-2302
28-334
@8-334
10-1836
£8-334
98-334
#8-334
8-334
08-334
©8-334
8-334
#8-334
#8-334
#8-334
#8-334
€8-334
8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334

BIT7
BIT8
BIT9
BNKTAB

= 000200
= 000400
= 001000
016424

#8-334
#8-334
#8-334
#10-2135

BITé

BPTVEC

CHSV
CHSV1
CHSV2
CKDAT
CKDAT1
CKDAT2
CKSTAT
CKSTAL
CKSWR
CONL
CONLOK
CORCMP
CORCP1
CORSCN
CORSZ
CORSZR

= 000100

= 000014

021336
021404
021560
013272
013344
013452
012520
012704
= 104407
020474
021350
020544
920556
920504
001734
002514

PAGE 2

#8-334

10-2420
10-2428
10-2451
10-1313
10-1421
10-1669
10-1182
10-1659
10-2108
10-2262
10-2312
#10-2327
10-2328
10-2274
#10-549
#10-588

9-354
9-354
#10-2676
€10-2752
9-354
9-354

910-2447
10-651
8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334
10-1634
10-2108
10-2224

SEQ 0066

vo02

9-354

10-758
10-887

10-1619
10-892

10-2224
10-2108

10-2224

10-1415
10-2224
10-687

10-2108

10-663

10-734

10-1624
10-915

10-1681
10-917

10-2154
10-984

10-1465

10-1799

10-1554

10-1596

#10-1780

10-1623

10-1088

10-2146

#10-2422
#10-2430
#10-2453
#10-1905
10-1522
#10-1959
10-1226
#10-1814
10-2108
#10-2312
#10-2424
10-2332
#10-2331
#10-2320
+10-593

#10-2219

10-1564

#10-1926

10-1268

10-1303

10-1403

10-1512

10-2108

10-2115

10-2224

#10-2716

10-2410
10-1535

ZORVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

CREF

SYMBOL

VALUE

REFERENCES

CR
CRLF
CSTART
CTRLE
DBUF

= 000015
= 000200
002310
022166
025224

£8-334
#8-334
€10-571

10-2246
10-550
10-1277
10-1857

DBUFP

001736

€10-550

DDISP
DEVADR
Dhl

177570
023130
024355

8-334

DM2
DH3
DISMAP
DISPLA
DISPRE
DMAP
DRDCNE
DRVBAE

024417
024464
003500
001142
000174
001732
022552
001722

DRVBAR

001714

DRVCSR

001716

PAGE 3

+10-1627

10-2592
10-358
10-436
10-41210-424
10-736

£9-354
8-348
#10-548

10-2605

#210-538

+10-1707

#10-535
10-986

10-1326
10-1642

€10-536

10-1063
10-1110
10-1172
10-1261
10-1345
10-1398
10-1474
10-1508
10-1591
10-1780

DRVCTO
DRVCT2
DRVDER

001724
001726
001720

£#10-542
#10-543
#10-537

DRVSIZ
DRVMWCR

022366
001712

#10-534

DSWR
DTi

177570
024510

10-1147
10-1282
10-2704
10-566

10-972
10-1325
10-1496
10-1790
#38-334
10-359
10-437

10-2104
10-583
10-2046
10-2322
10-595
10-1292
10-1862
+10-595
+10-1675

9-354
210-2679

10-364
10-442
10-418
10-430
£10-811
+10-555
10-555
+10-597
10-2609
10-913
10-1843
10-879
10-1126
10-1352
+10-1704
10-1005
10-1067
10-1111
10-1173
10-1263
10-1354
10-1399
10-1475
10-1542
10-1592
10-1781
10-1082
%10-1710
10-937
10-1149
10-1293

#10-2582
10-615
10-979
10-1351
10-1498
10-1797
9-354
10-365
10-443

10-2104
10-583
10-2073

SEQ 0067

vO02

10-2104
10-2226

10-1170
10-1326
10-1867
+10-1532
10-1686
10-555

+10-1171
10-1352
10-1905
+10-1534
10-1796

10-1191
10-1391
10-1913
10-1535
10-1881

#10-2770

10-370

10-376

10-382

10-448
#10-2742

#10-2741

#10-555

10-2108

10-2224

+10-598

10-600

+10-1701

10-1713

10-924
+10-2706
10-884
10-1129
10-1391
10-1798
10-1013
10-1068
10-1115
10-1175
10-1264
10-1355
10-1439
10-1479
10-1543
10-1646
10-1785
10-1087
+10-1711

10-977

10-990

10-886
10-1131
10-1434
10-1802

€10-2535

€10-2740

€10-2611

10-941

10-1150
10-1581
10-844
10-981
10-1390
10-1538
10-1823
10-555
10-371

#10-2744

10-2226

10-2533

10-1215
10-1497

10 1236
10-1569

10-1238

10-1258

10-1539
10-1927

+10-1569
10-1960

+10-1580

+10-1613

10-388

10-394

10-400

10-406

10-992

10-1438

10-1586

10-1643

10-911
10-1170
10-1469
10-1839
10-1035
10-1090
10-1135
10-1217
10-1299
10-1370
10-1443
10-1500
10-1550
10-1653
10-1820
10-1768
10-1769
10-973
10-1196
+10-1706

10-916
10-1215
10-1497
10-1846
10-1037
10-1094
10-1140
10-1218
10-1319
10-1394
10-1444
10-1501
10-1587
10-1655
10-2024
10-2707
10-2712
10-994
10-1216
10-1909

10-974
10-1258
10-1539
10-2706
10-1039
10-1098

10-983
10-1292
10-1582

10-1177
10-1296
10-1360
10-1440
10-1483
10-1547
10-1647
10-1814
%10-1709
10-1759
10-942
10-1156
10-1607

10-905
10-1136
10-1464
10-1835
10-1027
10-1088
10-1125
10-1178
10-1298
10-1361
10-1441
10-1487
10-1549
10-1651
10-1815
10-1758
10-1768
10-956
10-1193
10-1610

10-860
10-1128
10-1392
10-1540
10-1825

10-864
10-1130
10-1393
10-1579
10-1829

10-865
10-1169
10-1433
10-1641
10-2700

10-377

10-383

10-389

10-1014
10-1083
10-1117

10-1613

10-11438

10-1675

10-1047
10-1108

10-1154

10-1220
10-1332
10-1395
10-1448
10-1505
10-1588
+10-1705
10-2025

10-1222
10-1333
10-1396
10-1452
10-1507
10-1589
10-1767

10-996
10-1241
10-1942

10-1145
10-1279
10-1975

10-883
10-1214
10-1456
10-1644

10-885
10-1257
10-1460
+%10-1703

10-908
10-1291
10-1463
10-1788

10-395

10-401

10-407

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

072
D73
EDEL

024524
24542
020366

EINPUT

022102

EMTVEC
EM1
EM10
E~11

= 000030
023372
023643
023674

ELTOUV

EmM12

022336

CREF

023726

10-413
10-425
10-2256
10-2254

10-2531

18-334
10-357
10-399
10-405

10-411

023755
024002
024050
024236
024256
023421
024315
023453
023473

10-417
10-423
10-429
10-435
17-441
10-363
1)-447
10-369
10-375

EM6
EM7
ENDBKT
ENDL
ENDL OX
EPRINT

023567
023616
016426
020470
021320
022216

10-387
10-393
+10-2136
10-2260
10-2311
10-2249
10-2437
#8-334
10-987
10-1095
10-1185
10-1265
10-1314
10-1412
10-1515
10-1593
10-1671
#8-334
+10-710
10-2303
+10-2245
10-2271
+10-2510
10-2538
%10-2570
#10-2482
*10-2286

ERROR

ERRVEC
ESC
EWCRK

EWORKO
EWORK]

023537

10-381

104000

= 000004
022014
021764

021766
021770

+10-2363

EWORK2

EXAM

+10-2434

021772

020050

SEQ 0068

vo02

RE"ERENCES

Em13
EM14
EM1S
EM16
EM17
EM2
EM20
EM3
EM4

EMS5

PAGE 4

+10-2251

10-2386
10-2050

10-419
10-431

210-2294
#10-2521
€10-2566
#10-555
#10-2722
€10-2729
#10-2730
#10-2731
€10-2732
€10-2733
©€10-2734
€10-2737
£10-2738
€10-2723
#10-2739
€10-2724
#10-2725
€10-2726
#10-2727
#10-2728

10-449

10-2746

210-2745

10-2522
+10-555

+10-2137

10-2141

10-2207

#10-2220

10-2305
10-2441
10-854
10-993
10-1101
10-1187
10-1271
10-1334
10-1423
10-1518
10-1599

10-2325
10-24438
10-868
10-997
10-1114
10-1189
10-1273
10-1341
10-1445
10-1520
10-1602

10-2348
10-2501
10-890
10-1021
10-1120
10-1197
10-1275
10-1362
10-1453

10-2396
#10-2542
10-920
10-1029
10-1134
10-1223
10-1283
10-1369
10-1461
10-1551
10-1612

10-2547
10-927
10-1042
10-1139
10-1229
10-1300
10-1374
10-1470
10-1557
10-1656

10-855

+10-589
*10-855

10-594
10-2224

10-2259
10-2278
10-2513
10-2550

10-2261
10-2280
+10-2524
+10-2555

+10-2282
+10-2525
*10-2556

+10-2308
10-2374
+10-2454

10-2326
10-2421
10-2459
10-2295
10-2427

#10-2311
€10-2419

10-555

%10-757

#10-2500
10-2255

10-2272
#10-2511

#10-2548

+10-2291
+10-2371
10-2452
10-2283
+10-2392

#10-2242

*10-555
+10-843
10-2257
+10-2277

#10-2512

%10-2549

10-2300
10-2373
+#10-2453
10-2289
+10-2411

10-1524

10-1604
#10-555

+10-2292
10-2419

10-2400

10-2263

+10-2335
+10-2422

#10-2483

+10-2309
10-2450

10-2409
10-2552
10-945
10-1057
10-1153
10-1232
10-1306
10-1400
10-1480
10-1560
10-1662
+10-594

*10-2224

10-°
10-¢
10-96.
10-1072
10-1159
10-1234
10-1309
10-1406
10-1488
10-1562
10-1665
*10-647

*10-2224

10-2265
10-2291
10-2526
10-2557

10-2267
10-2308
10-2529
10-2566

+10-2354

+10-2356

10-2429
10-2510
*10-2358
10-2457

+10-2430

+10-2516
*10-2375
#10-2484

10-2425

10-982
10-1091
10-1179
10-1242
10-1311
10-1410
10-1509
10-1566
10-1667
*10-660
*10-2224
10-2269

#10-2481

*10-2537

10-2568

2357

+10-2431

*10-2382
+10-2519

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL

VALUE

EXAMIN

020134

CREF

#10-2254

021626
021634
021642
021650
021656
021663
021666
021704
021710
020120
021747

10-2248
10-2399
10-2377
10-2304
10-2347
10-2324
10-2412
10-2424
10-2440
#10-2251
#10-2474

EXAM2
EXAM3
EXBACK
EXTP1
EXTRAP

020104
021774
020422

210-2248
+«10-2341
10-2264
#10-2442
10-2244

FIGV

022700

021754
021762

921500
021470

FIDDLE

021776

FIRST2
FLG30K
FROM

10-2395
10-2360

+10-2326

10-26°7

020452
001676
024675

10-2204
#10-523
10-2181

FSTPAS
GETVEC
GNS

001706
022564
= shbdis

GOST
GTSWR

020414
= 104406

#10-527
10-2602
8-348
10-2716
10-2716
10-2266
10-578

INCE
INSUFF
IOTVEC
JMPCHK
JMPCK
JPCX
JPEX1
KBCS
KBDB
KBDSRV

020340
024712
= 000020
021432
020410
021244
021240
= 177560
= 177562
013700

= 000011

#8-334

#10-2289
10-832
#8-334
10-2299
10-2270
10-2402
10-2404
10-2339
10-2341
10-631
10-863

KBDSR1
KIPARO
KIPARL
KIPAR2

=
=
=

013710
172340
172342
172344

10-1066
10-1324
10-1859
10-761
#8-339
#8-339
#8-339

KIPAR4

172350

#8-339

KIPAR3Z

= 172346

SEQ 0069

vo2

REFERENCES

EXAMOL
EXAMO2
EXAMO3
EXAMO4
EXAMOS
EXAMO6
EXAMO7
EXAMO8
EXAMO9
EXAM1
EXAM10

EXAMil
EXAM12

PAGE S5

#8-339

10-2293

#10-2464
#10-2465
#10-2466
910-2467
10-2447
10-2408
#10-2470
#10-2472
#10-2473
10-2406
10-2500

#10-2475
#10-2476
10-2423
+10-2342
#10-2302
10-2446
10-2349
10-2331

10-2297

10-2310

#10-2468
10-2436

#10-2469

10-2444
10-2343

#10-2485

#10-2440

10-2445

#10-2486

10-2350

10-2414

#10-2643

#10-2308
*10-728
#10-2754

10-557
#10-2619
8-348
10-2716
10-2716
10-2268
10-583
10-2104

#10-2756
+10-555
#10-2434
#10-2299
#10-2407
#10-2406
#10-2494
#10-2495
10-645
10-882
10-1079
10-1350
10-1885
10-2038
+10-1740
+10-1741
*10-66¢

+#10-756

«10-1744

10-2169

+10-574

10-605

*10-609

10-583
10-2716
10-2716
#10-2300
#10-2716

10-2716
10-2716

10-2546
10-2524
10-686
10-940
10-1124
10-1430
10-1930

10-2553
10-2548
10-711
10-955
10-1144
10-1492
10-1963

10-2555
10-721
10-970
10-1168
10-1533
#10-2037

10-771
10-1007
10-1213
10-1574

10-823
10-1034
10-1253
10-1639

10-846
10-1046
10-1288
10-1700

+10-1635

#10-1690

+10-1742

10-2104

*10-555

:
10-2521
10-2523
10-659
10-909
10-1106
10-1388
10-1906
#10-2040
*10-755

10-777

+10-785

10-781

*10-786

%10-1636

*10-1691

#10-1743

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL
KIPARS
KIPAR6
KIPAR7?
KIPDRO
KIPDR1
KIPDR2
KIPDR3
KIPDR4
KIPDRS
KIPDR6

¥T?DR7
K7S1Z
LDBUF
LDBUF1
LF

LMAD
LMEMHI
LMEMLO
LOOK
LOOKAD
LOOKIE
LOOK1
LOOK2
LOOK3
LSIFLG
LSIQ22
MASK4K
MASK8K
MEMMAP
MEMMES

MFPT
MMAMES
MMAVA
MMCK
MMINIT
MMVEC
MOv272
MPAT
MPATT
MSD
MTPS
MYCC

NODEV
NOINTR
NOMEM
NONKT
NORUB
NXDEV
NXDEV1
OPRINT

CREF

SEQ 0070

vo02

REFERENCES

VALVE

172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316

#8-339

#8-339
#8-339
#8-339

#8-339

#8-339
#8-339

#8-339
#8-339
10-674
10-1256
10-1385
#8-334

003264
013140
013216
000012
001522
016422
016420
020772
022000
020404
020672
020036
021050
001702
001704

#10-458

+10-2149
+10-21438
10-2241
+10-2250
10-2253
#10-2351
#10-2240
#10-2375
#10-525
#10-526
#8-345
#8-346
#10-459
10-815
#8-347
10-654
#10-528
10-617
10-650
#8-339
#10-2393
#10-2379

037777
001524
024657

000007

024552
001710
002724
012326
000250
021152
021070
021064
021134
106427
022002
023171
023076
025017
003142
222026
012042
012044
022322

PAGE 6

10-2365
10-2387

#8-338
+10-2240
10-2366
+10-2407
10-2610
10-2641
10-2143
10-647
10-2294
10-1677
10-602
10-2514

+10-1745
+10-1746

+10-1747

+10-1732
+10-1733
+10-1734
+10-1735
+10-1736
*«10-1737
+«10-1738
+«10-1739
10-692

#10-1857

#10-752

10-1495
10-2104

10-1537
10-2104

10-1640

#10-1881

10-2180
10-2180
10-2298
10-2327

*10-2187

10-2189
«10-2188
10-2345
10-2359

+10-2194
10-2190

#10-2298

*10-2186

10-2340
+10-2357

*10-2200

*10-2202

#10-2366

+10-2373

*10-2194
10-2433
10-2376

*10-2199
10-2439
10-2434

#10-2218
*10-2201
10-2456
#10-2487

#10-2217

10-2367
10-2258

*10-635
10-1575

10-713
10-629
#10-2753
#10-2751
*10-646
#10-629
#10-1731

#10-2378
#10-2389

+10-2247
10-2368
+10-2426

#10-2681
#10-2678
€10-2758
#10-705
€10-2510
#10-1698
#10-1699

10-2528

*10-641

*10-2008

x10-2010

10-707

10-731

10-763
10-753

10-797

10-814

10-821

10-827

10-1632

+10-651

*10-687

10-775

10-788

10-1619

10-1621

10-2166

*10-2338

10-2393
+10-2438

*10-2346

*10-2432

+10-2320
+10-2372
*10-2435

*10-2397
*10-2442

10-2351
10-2401

10-2361
10-2403
+10-2455

+10-2364
+10-2405

10-1714
10-2536

10-2539

10-2545

#10-2561

10-2388
10-2252

+10-2370

*10-2449

#10-2488

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL
PATCH
PATT
PIRQ
PIRQVE
PRCS
PRDB
PRO

PWRMSG
PWRVEC

Q22CPU
RCSR
RDCHR

RDLIN
RELOC
RESTRT
RESVEC

RETEX

REXTS
RSTVEC

RTEX1
RW
R6
R7
SAVESP
SAVET4
SAVE2
SAVTST
SAV176
SAV200
SAV202
SCNTRP
SCOPE

SETREG
SETVEC
SRO
SR1
SR2

VALUE

025154
022010
177772

000240
177564

177566

000000

000040
000100
000140
000200
000240
000300
000340
177776
177776
020002
000024
025042
022732
= 104410
= 104411
022012
002616
= 000010
020426
021624
012474
020450
= 000006

=%000006

=%000007

022734
0220C6
022004
001624
022736
022740
022742
021514
= 000004

023226
012454

177572
177574
177576

PAGE 7
CREF

SEQ 0071

vo02

98-334

10-2228
#8-334
10-1991
+10-2586
10-2226
10-1992
10-2354
10-599
#8-334
10-2272
10-2458
10-559
10-1342
#10-2307
#8-341
#8-334
#8-334
+10-2619
+10-2243

+«10-2374

+10-2379

+10-2380

10-2381

+10-2415

#10-2491

10-2562
+10-2561
10-1085
10-1645

10-1174
10-2023

10-1219
10-2626

10-1353

10-1389

10-1435

10-610

10-1001

10-1080

10-1107

10-1757

10-1770

+10 2228

+10-2228

10-2590

+10-2603

10-2604

10-2363
#10-603

10-2371
10-1715

#10-2492
10-2228

10-576
10-1425

10-1030
10-1489

10-1732
+10-555

10-1733
#10-555

10-1734
10-555

10-2640
10-2306

10-2649
#10-2490

#10-2654

#10-2230
+10-555
#10-2759
10-2589
#10-2716
#10-2716
10-2356
10-601
+10-636
#10-2303
#10-2460
10-573
10-1375

10-2421

10-820

+10-564
*10-565
10-2323
#8-334
10-1044

10-568
10-569
#10-2445
10 -857
10-1060

10-1286
10-1698
10-556
10-1002
10-1493
#8-339
#8-339
#8-339

10-1541

+10-2228

10-2629

10-2639

10-2650

#10-2653

10-1102
10-1526

10-1205
10-1570

10-1250
10-1614

10-1284
10-1676

#10-1767

10-1735

10-1739

10-2429

10-2430

10-2452

10-2453

10-2459

#10-2489

10-876
10-1077
10-1343

10-900
10-1104
10-1377

10-934
10-1122
10-1427

10-953
10-1142
10-1490

10-968
10-1161
10-1528

10-999
10-1206
10-1572

10-1032
10-1251
10-1615

10-579
10-1209
10-1577
%10-831

#10-2700
10-1254
10-1625
+10-1624

10-1289

10-1320

10-1346

10-1383

10-1431

*10-1674

*10-1748

8-334

#10-497

+«10-563

10-1499

10-567

10-1317
10-1718
10-575
10-1164
10-1530
+10-648

+10-555

10-2422

10-1315

#10-2655

#10-2656
#10-2657

#10-1757

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL
SR3
STACK
START
START1
STKLMT
STPCOR
SWR

SWREG
SWO
SWO0
SWO’
S
Sur

SWC-

SWOS
SW06
SWO7
SWo8
SW09

SW1

SW10
SWi1
SWi2
SW13
SW14
SW15

SW2
SW3
SW4
SWS
SWé
SW7
SW8
SW9
TBITVE
TEMP
TIMER
TKVEC
T0
TPVEC
TRAPTSY
TRAPVE
TRTVEC
TSTMAP
TSTNUM
1571
TST10
TST11
TST12

VALUE
172516
001100
001740
002344
177774
020642
001140

000176

400001
000001
000002
000004
000010
000020

000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000014
001700
013652
000060
024705
000064
000004
000034
000014
001564
001730
003612
004752
005162
005242

PAGE 8

CREF

SEQ 0072

vo02

REFERENCES
#8-339
#8-334

+10-663

10-555

8-348
10-570

#10-554
#10-579

10-2344
#9-354
10-988
10-2108
10-2226
©#8-348
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#5-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334
#8-334

#10-2346

10-902

#10-524

+10-2150

#8-334

10-1260
#8-334
10-2191

#8-334

10-2243

#8-334
#8-334
#10-478
#10-547

10-812
10-995
#10-1032
10-1041

10-555
10-1010
10-2108
i0-2228
10-555

+10-673
10-580

*10-1622
10-611

10-706

10-752

%10-555

10-1584
10-2224

*10-555
10-1617
10-2224

10-583
10-2054
10-2224

10-2054

10-2060

10-2226

10-975

10-988

10-1010

10-1016

10-2195
10-1328

*10-2211

#10-2022

*10-2445

10-1718
+10-555

10-1016
10-2108
10-2228
10-583

10-555
10-1436
10-2224

10-902
10-2083
10-2224

10-975
10-2108

10-1436

10-1584

10-1617

#10-2498

+10-2587

10-2226

8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334
8-334

10-1295

#10-2755
+10-2244
*10-555

#10-555

+10-2306

*10-2323

+10-2349

10-1628
+#10-2113
10-830

10-1633
10-2744
#10-837

10-2745

10-2746

#10-999

#10-1044

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL

VALUVE

TST13
TST14
TST1S
TST16
TST17
TST2
TST20
TST21

005330
005432
005576
005704
006022
003726
006142
006376

TST122
TST123

006624
007026

TST125

007340

TST127

010014

TST24

007176

TST26

TST3
TST30
TST31
TST32
TST33
1ST4
TSTS
TSTé
1577
TYPDS
TYPE

TYPMAP
TYPOC
TYPON
TYPOS
uP
uT
VECADR
VECTIM
VECTOR
WARN
WORK1
WORK2
WORK3
WORK4
WRONG2
WRONG3
WSTTIM
XCMPO

007546

004030
010430
010632
011070
011334
004162
004364
004466
004552
= 104405
= 104401

=
=
=
=

$APTHD
SASTAT

$A7YC
$ATYL

015772
104402
104404
104403
000000
025124
023156
022642
022746
024107
022750
022774
022776
023000
020500
021266
023216
021606

001000
sassss

014534
014510

PAGE 9

CREF

SEQ 0073

vo02

REFERENCES

#10-1060
#10-1077
#10-1104
10-1119
#10-1142
#10-857
10-1158
#10-1206
#10-1251
#10-1286
#10-1317
#10-1343
#10-1377

#10-1122

#10-1161

#10-1427
#10-876
#10-1490

#10-1528
#10-1572
10-1576
10-896
10-903
#10-953
10-965
10-620
10-583
10-1718
10-2085
10-2117
10-2226
10-2226
10-817
10-2061
#10-2716
10-2189
#8-340
10-618
10-2645
#10-2633
*10-560
10-607
10-560

*10-2583

#10-2584
+10-2590

10-2279
10-2313
10-572
#10-2457
8-353
10-2105
10-2105

#10-2105

#10-1615
#10-900
10-932
#10-968
10-1718

10-607
10-1718
10-2101
10-2117
10-2226
10-2228
#10-2135
10-2117
10-2190
10-1732

#10-2760
#10-2680
-%10-581

#10-2735
10-581

*10-2597
*10-2600

+10-2591

10-2281

#8-353

10-2105

#10-2105

#10-934

#10-2716
10-618

10-1991
10-2104
10-2117
10-2226
10-2588

10-654
10-2044
10-2106
10-2117
10-2226
10-2592

10-690
10-2058
10-2107
10-2117
10-2226
10-2610

10-2117

10-2226

#10-2716

10-2192
10-1733

10-2193
10-1734

*10-1708
10-1716
10-2598

10-2601

10-2593
10-2290

€#10-2691

10-815
10-2059
10-2108
10-2143
10-2226
10-2641

10-818
10-2062
10-2108
10-2181
10-2226
10-2645

10-2594
10-1735

10-2646
10-1739

#10-2716

10-1709

10-1710

*10-1716

#10-2659

10-2585
10-2608
#10-2671
#10-2672
10-2296

10-2659
#10-2670

#10-2660

#10-2313

10-832
10-2071
10-2117
10-2191
10-2226

#10-2716

10-1718
10-2076
10-2117
10-2226
10-2226

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL
$ATY3
$SATY4
$AUTOB
$BASE
$BDADR

VALUE

014516
014526
001134
001250
001122

CREF

001126

10-2104
#10-2105
#9-354
#9-354
#9-354
*10-996
+10-1175

%10-1846
#9-354
10-918
10-964
10-1019
10-1055
10-1112

10-1157
10-1280
%10-1370
%10-1465
*10-1544
+10-1654
10-1818

%10-1972

$BELL
$COMW1
$COW2
$CHARC
$CKSWR
$CMTAG
$CM3
$CNTLC
$CNTLG
$CNTLV
$CPUOP
$CRLF

001164
001254
001256
014504
016710
001100

$DBLK
$DDWO
$DDW1
$DDW10
$DDW11
$DDW12
$DDW13

015420
001260
001262
001304
001306
001310
001312
001314
001316
001264
001266
001270
001272
001274
001276

$DDW14

$DDW1S
$DDW2
$0DW3
$DDW4
$DDWS
$DDW6
$DDW7

017566
017600
017573
001222
001171

SEQ 0074

vo2

REFERENCES

*10-1396
+10-1589

$BDDAT

PAGE 10

#9-354
#9-354
#9-354

+10-2104

#10-2226
#9-354
#9-354

10-2044
10-2058
10-2076

#9-354
#9-354
10-2117
10-2107
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354
#9-354

#10-2105
10-2108
+10-583

10-2701
+10-847
+10-1005

10-2056

10-2226

*10-860
#10-1035

+«10-879
+10-1048

+10-905
+10-1063

+10-1196

+10-1220

+10-1441
%10-1610

+10-1452
+10-1651

+10-1241

*10-1460
+10-1785

+10-1909

%10-1942

#10-1975

+10-842

+10-865

10-866

10-925
+10-983

*10-942
+10-984

*10-924
+10-979

+10-1027

#+10-1028

+10-1039

+10-1790

+10-1802

+10-1469
10-2744
+10-886
10-943
+10-990
10-1040
*10-1090
10-1132

#10-1177
+10-1298
10-1372
10-1467
*#10-1545

#10-1193
+10-1323
#10-1398
+10-1475
+10-1549

+10-1823
10-2744
10-2108

+10-1835
10-2745
10-2108

+10-2104
10-2716
10-555
9-354
10-2071
10-2226
10-2226

10-2104
10-2716
10-555

+10-2104

#10-2104

10-555

10-2226
#10-2226
#10-2226

10-818
10-2117
i0-2107

10-2085
10-2117
#10-2107

*10-1780

*10-615

10-1118

10-1783

+10-1131

10-1194
#+10-1332
#10-1443
10-1477
#10-1591

%10-1083

#10-1282

+10-1069

+«10-1117

+10-937

*10-1261

+10-1068

10-1070

10-2226

+10-1222

10-1339

+10-1479

10-2745

#10-887
*10-960
%10-994

+10-1051

%10-1094
*10-1136
%10-1238

+10-981
#10-1108

*10-1296

+10-1487
#10-1820
10-2746
10-888
10-961
%10-1014
10-1052

+10-1098

+10-1150
10-1239

*10-1357

*10-1349
10-1450
10-1485
10-1608
*10-1799

%10-1456
*10-1502
%10-1648

+10-1843

10-1800
10-1844

10-555

10-2226

#10-2226

10-2104
10-2117

10-2104
10-2226

10-2108
10-2226

+10-1788

+10-1836

*10-1448

+10-1483
+10-1607

+10-1798

10-1837

*10-986

+10-992

*10-1319
+10-1505
*10-1825

+10-1345

*10-916

+10-917
+10-963

+10-1126

10-962
*10-1015
10-1053
10-1099
10-1151
*10-1263

#10-1360

10-1458
*10-1503
+10-1649

*10-1814

+10-1145

+10-1547
+10-1839

+10-1018

+10-1054

+«10-1111

*10-1156

+10-1279

10-1367

+10-1464

+10-1507

+10-1653

%10-1910

+10-1817
+10-1939

10-2108

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

$DDW8
$DOW9
$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
$ENDLF
$ENDMG
$ENULL
$ENV
$ENVM
$EOP
$EOPCT
$ERFLG

001300
001302
001204
001252
012276
015410
012266
012230
012302
012310
012305
001214
001215
012174
012222
001103

$ERMAX
$ERROR
$ERRPC

001115
015430
001116

$ERRTB
$ERRTY
SERTTL
$ESCAP
$ETABL
SETEND
$FATAL
$FFLG
SFILLC
$FILLS
$FLAG
$GDADR

001320
015636
001112
001162
001214
001320
001176
014754
001156
001155
023002
001120

$GDDAT

001124

CREF

012256
017036

= 000003
001000
001104

SEQ 0075

vo02

REFERENCES
#9-354
#9-354
#9-354
#9-354

+10-612

10-1718
10-2107
8-351

10-597
10-1718
#10-2107
#10-1718

10-1718
10-1718

#10-1718
#10-1718
#10-1718

#10-1718
10-1718

#9-354
#9-354
#10-1718
#10-1718
#9-354
10-2224
#9-354

10-555

#9-354
10-2746
#10-354
10-2114
#9-354
#9-354
#9-354
8-353
#9-354

+10-2105

#9-354
#9-354
10-652
#9-354

10-2745

#9-354
10-884
10-913
10-941
+10-1009

10-1070
10-1132
10-1194
+10-1331
10-1458
+10-1590
+«10-1796

$GET42
$GTSWR
$HD
$HIBTS
$ICNT

PAGE 11

10-616
#10-1718

+10-2601

10-583
10-555

10-2104
10-2104

10-2105
10-2104

10-2105
10-2105

10-2108

10-1718
+10-2108

10-2108

10-2224

*10-555

10-2224

+10-2224

10-2224

+10-2108

10-2108

10-2108
10-2108

10-2108

10-2105
10-2104
10-2104
10-811

+10-2105
10-2104

#10-2105

+10-813

#10-2673

#10-2108

+10-2108

10-2224

10-2108

10-2117

10-2744

10-2745

10-2108

+10-2224

*10-1277

+10-1611

+10-1911

+10-1940

*10-1973

10-866

+10-869
+10-897

+10-921

+10-922
%10-959
10-1040
10-1112
#10-1155
%10-1278

*10-872
+10-910

*10-873
10-911
10-925
+10-971
10-1055
10-1118

10-2117

+10-2108

+10-555

#9-354

+10-2105
+10-2105
10-2104
10-2104
10-688

+10-957

+10-1191

+10-1236

+«10-841

+10-862

10-864
+10-892
10-918

10-888
+10-914
10-943
+10-1012

+«10-1073

+10-1138
+10-1221
+10-1359

*10-891

+10-915

+10-946

10-1019

*10-1084

%10-1146

%10-1237

+«10-1842

+10-1606
10-1800
10-1844

8-330

10-2716
8-330

+10-2224

10-2224

#8-353
#9-354

+10-2224

#10-2117

%10-1371
10-1467
10-1608
%10-1816
%10-1941

#10-1718
#10-2226

10-2224

+10-1466

*10-895

+10-949
+10-1026

%10-950

10-1099
10-1147
10-1239
10-1372
+10-1476
+10-1652
10-1818
*10-1974

*10-1109

%10-1826
10-2744

*10-1442
+10-1484
10-1783
#10-1830
10-2745

+10-2224

10-2224

+10-1036

10-1151
#10-1262

*10-1397

10-1477

+10-1782

+10-923

10-964
+10-1050
+10-1116
10-1157
10-1280

+10-1449

10-1485
+10-1791
+10-1831

+10-1176

+10-1297
10-1450
+10-1506
+10-1794

+10-1833

+10-881

+10-912

+10-939

+10-1008
+10-1064

+10-1127

+10-1192
+10-1329
+10-1457
+10-1548

+10-1795

10-1837

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE
SYMBOL
$ILLUP
$INTAG
$ITEMB
SLF
SLFLG
$LPADR
$LPERR
$MADR1
$MADR2
$MADR3
$MADR4
$MAIL
$MAMS1
$MAMS2
$MAMS3
$MAMS4
$MBADR
$MFLG
$MMAP
$MNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
$MTYP1
$MTYP2
SMTYP3
SMTYP4
$MXCNT
$NULL
SNWTST

VALUE
017774
001135
001114
001172
014753
001106
001110
001226
001232
001236
001242
001174
001224
001230
001234
001240
001002
014752
001664
017616
001210
001212
001174
017605
001225
001231
001235
001241
016706
001154
= 000001

$OMODE
$OVER
$PASS

015200
015202
016672
001202

$PASTM
$PWRAD
$PURDN
$PURMG
$PWRUP
$QUES

001006
017770
017630
017764
017702
001170

SOCNT

PAGE 12

CREF

SEQ 0076

vo02

REFERENCES
10-2228
#9-354
9-354
#9-354
+«10-210C5

#9-354
#9-354

+10-1163

#9-354
#9-354
#9-354
#9-354
8-353
#9-354
#9-354
#9-354
#9-354
#8-353

#10-968
#10-1044
€10-1104
#10-1161
#10-1286
#10-1377
#10-1528
+10-2106

10-2228
10-2226

+10-2108

10-2104

#10-2105

*10-555

+10-555

+10-1208

8-353

10-2105
+10-1632
10-2226
+10-2105

+10-2105

10-2105
10-2226

10-2224
10-2104
10-£37
10-900
10-968
10-1044
10-1104
10-1161
10-1286
10-1377
10-1528
+10-2106
+10-2106
10-2224

+10-2106
10-2224
#9-354
10-2224
#8-353

+10-555

10-555

#10-2228

10-2228
#9-354
10-2226

#10-2228

10-2226
10-2108
10-2104

+«10-837

+10-840

10-2108

#9-354

+10-2105

+10-1682

10-2226

10-2226
10-2108
10-2108
+10-2224
+10-859

10-2224

10-555

10-2226
10-2108
10-2108
+10-2224

10-2117
10-2226

10-2226

10-2224

10-2224
+10-1004

+10-1062

+10-2224

10-2224
+10-904
10-2224

10-583

10-837

10-2104

10-2108

10-2224

€10-876
€10-953
€10-1032
€10-1077
#10-1142

10-1317
10-1427
10-1572

€10-1490
€10-1615

10-876
10-953
10-1032
10-1077
10-1142
10-1251
10-1343
10-1490
10-1615

€10-876
€10-953
€10-1032
€10-1077
€10-1142
€10-1251
€10-1343
€10-1490
#10-1615

+10-2106

#10-2106

10-1718

10-2224

10-2108

10-2226

+10-878

+10-936

10-2224

#10-2105

10-1684

10-2105

+10-2105

10-2105

10-2224
10-2104

#10-2224

#10-837
€10-900
#10-968
#10-1044
€10-1104
#10-1161
#10-1286
€10-1377
#10-1528
#10-2106

10-2106
10-2224

*10-577

10-2224

10-2104
€10-857
€10-934
#10-999
#10-1060
€10-1122

©€10-1206

#10-1317
#10-1427
€10-1572

+10-2106

+10-2105

10-857
10-934
10-999
10-1060
10-1122

10-1206

10-2224
#10-1718

#10-2224
+10-1718

10-2104

10-2108

#10-1251
910-1343

10-2101

10-2228
10-2104

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

SYMBOL CROSS REFERENCE

SYMBOL
$ROCHR
$RDDEC
$ROLIN
$RDOCT
$RDSZ
$RTNAD
$R2A
$SAVRE
$SAVR6
$SCOPE
$SETUP

VALVE
017310
=

shssss

017430
=

skdses

= 000010
012300
=

sbdkse

sbsass

020000
016430
= 000117

$SIZE
$STUP

022744
= 177777

$SVLAD
$SVPC
$SWR

= 000106

016636

= 167400

$SWREG
$ SWRMK

001216
= 000000

$TBAE
$TBAR
$TESTN
$TIMES

001674
001672
001200
001160

$TKB

001146

$TKS

001144

$TMAP
$TN

001666
= 000034

PAGE 13

CREF

SEQ 0077

vo2

REFERENCES
10-2226
10-2716
#10-2226
10-2716
#10-2226
910-1718

10-2716
10-2716

+10-2228

10-555
#10-553
10-553
10-555
10-1718
10-561
#10-553
#10-553
10-2224
#8-351
8-330
8-333
10-837
10-1044
10-1286
10-1718
10-2108
10-2224
10-2224
10-2228
99-354
8-333
10-2224
10-2224
#10-522
#10-521
#9-354
#9-354
+10-1343
+10-2224

#9-354
10-2226
99-354

10-2226
€10-519
8-330
10-857

#10-900

10-965
10-1032
10-1077

€10-1122
10-1206

10-2716

10-2226

10-2228

+10-2228

#10-2228

10-553
#10-553
10-555
10-2108
+10-2612
€10-553
©#10-553
©#10-2224
8-351
#8-330
8-333
10-857
10-1060
10-1317
10-1718
10-2108
10-2224
10-2224

#10-553

10-553
10-555
10-555
10-2108

#10-553

#10-2224

10-555
8-333
10-2224
+10-1638
+10-1637

+10-837

+10-555

+10-1377

10-2224
10-2040

10-759
10-2226

+10-1633

€8-330

10-857
10-903
10-968
910-1032
10-1077
10-1142
€10-1206

10-555
10-555
10-2108
#10-2658
10-553
10-553
98-331
9-354
10-876

10-1077
10-1343
10-1718
10-2108
10-2224
10-2224

#10-553
€10-553

8-333

9-354
10-900

10-1104
10-1377
10-1718
10-2108
10-2224
10-2224

10-553
10-555
10-583
10-2224

#10-553

#10-553
#10-553

10-553
10-553

€10-553

8-333

10-1427
10-1718
10-2108
10-2224
10-2224

8-333
10-555
10-953
10-1142
10-1490
10-2108
10-2108
10-2224
10-2224

8-333
10-555
10-968
10-1161
10-1528
10-2108
10-2108
10-2224
10-2224

8-333
10-555
10-999
10-1206
10-1572
10-2108
10-2224
10-2224
10-2224

8-333
10-555
10-1032
10-1251
10-1615
10-2108
10-2224
10-2224
10-2224

8-333
10-2224

10-555
10-555
10-2108

9-354
10-934
10-1122

10-555
10-583
10-2226

10-553
10-555
10-583
10-2226
€10-553

€10-553

10-555
10-1718

10-553

8-333
10-2224

10-1643
10-1642
#10-2224

+10-1693

+10-1834

10-1842

+10-1490

+10-1032
+10-1528

+10-1615

+10-1718

+10-2224

+10-1286

+10-1317

10-2226

10-2065
10-2226

10-2226

10-812
10-876
10-934

10-830
10-876
10-934
10-995
10-1044
10-1104
10-1158
#10-1251

10-837

10-837
10-896
10-953

+10-968
+10-1427

10-2224
10-2067

10-2037
10-2226
10-1679
08-332
€10-857

10-932
10-968
10-1041

€10-1077

10-1142
10-1251

+10-1692

+10-999

+10-1683

€10-968

10-1044
10-1104
€10-1142
10-1251

10-1832

+10-1077

210-876
€10-934
10-999
¢10-1044
€10-1104

10-1161
10-1286

+10-1251

10-999
10-1060
10-1119
10-1161
10-1286

910-837
10-900
10-953

€10-999

10-1060
10-1122

€10-1161
€10-1286

10-2224

10-837
10-900
€10-953
10-1032

910-1060

10-1122
10-1206
10-1317

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16;03

CREF

SYMBOL CROSS REFERENCE
SYMBOL

$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
$TRP

VALUVE

001152
001157
001150
023312
023334
000012

10-1317
10-1427
10-1572
99-354

#9-354
99-354

10-555

#10-2716
#10-2716
10-2716

#10-2716

€10-1317
€10-1427
#10-1572
10-2104
10-2104
10-1580

#10-2716

10-2716
10-2716
#10-2716
10-2716
10-2716
10-2716

10-1343
10-1490
10-1576
10-2104
10-2104
10-1582

10-1343
10-1490
10-1615
10-2104
10-2104
10-1606

910-1343
€10-1490

10-1615

10-1377
10-1528
€10-1615

10-1377
10-1528

€10-1377
€10-1528

10-1611

10-2104

10-2716
10-2716

10-2716
10-2716
10-2716

10-2716
10-2716
10-2716
10-2716
#10-2716

€10-2716

10-2716
10-2716
10-2716
10-2716

10-2716
#10-2716
10-2716
10-2716
10-2716

10-2716
10-2716
210-2716
10-2716
10-2716

10-2108
10-2224

10-2108

10-2113

10-2224

+10-1681

10-1684

10-2104

910-2104

10-2104

10-612

10-613

10-619

+10-1712

10-2106

€10-2106

910-2716

10-2716
10-2716

#10-2716

10-2108
10-2224
10-1679

$TRPAD
$TSTH
$TSTNM

023346
001004
001102

10-2716
98-353
99-354

#10-2716
+10-839

+10-1718

$TTST
STTYIN
$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
$USWR
$VECT1
$VECT2
$VERPC
$WRCK
$XTSTR
$4GET4
SOFILL
$40CAT
.SASTA
. 84X

001670
017556

€10-520
10-2226
10-2716

+10-1634

+10-1678

10-2226

10-2716
10-2105
10-2104
10-2104
10-2716
910-2106
10-2716

10-2716
10-2716
10-2104
910-2104
10-2716
10-2716

shbsas

sass ek

ssasas

001000

SEQ 0078

V02

REFERENCES

10-2716
10-2716
10-2716

015204
014226
014440
014506
015002
015016
014756
001206
001010
001220
001244
001246
001520
015620
016442
000000
015201

PAGE 14

210-2224

#10-2107
#10-2104
10-2087
10-2104
910-2106

10-2224

10-2106
#10-2106
99-354
98-353
99-354
#9-354
#9-354
€10-457
10-2108

€10-2113

+10-2106

+#10-2106

#10-2224
#10-1718

10-2108
10-2105
98-353

*10-596

10-2224

10-2716

#10-2226

10-2716

10-2708

10-1718

10-2224
10-2105
8-353

10-2226

10-1427
10-1572

10-2716
10-2716
10-2716

#10-2716

10-2716

10-2224

ZDRVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

PAGE 15

MACRO CROSS REFERENCE
MACRO NAME

REFERENCES

COMMEN

08-334

ENDCOM
ESCAPE
GETPRI
GETSWR
MULT
NEWTST
POP

PUSH

REPORT
SETPRI
SETTRA
SETUP
SKIP
SLASH
STARS

SWRSU

8-334
€8-334
#8-334
8-326
8-334
#8-326
10-1032
10-1286
98-334

#10-2716
#8-334
#8-334
#8-334

TYPNUM
TYPOCS
TYPOCT
TYPTXT

#8-334
#8-334
#8-334
#8-334

$$CMRE
$SCMTM
$SESCA
SSNEWT

#8-354
#8-354
#8-334
#8-334

ADVOAN

08-334

10-1044
10-1317

#10-2716
#10-555
#8-334

APDODCATYTEN

10-583

SEQ 0079

vo2

10-583

€8-334
10-1044
10-1317
10-2105

10-837
10-1060
10-1343
10-2105

10-857
10-1077
10-1377
10-2107

10-876

10-900

10-934

10-953

10-968

10-999

10-1104
10-1427
10-2194

10-1122
10-1490
10-2214

10-1142
10-1528
10-2228

10-1161
10-1572
10-2228

10-1206
10-1615

10-1251

10-2105

10-2107

10-2147

10-2180

10-2228

10-2716
10-555
10-812
10-1576

10-2716

10-830

10-896

10-903

10-932

10-965

10-995

10-1041

10-1119

#8-334
10-584
10-676
10-802
10-934
10-1044
10-1142
10-1317
10-1490
10-1718
10-1779
10-1925
10-2105
10-2226
10-2615
10-2719
10-555

8-351
10-586
10-685
10-809
10-934
10-1044
10-1142
10-1317
10-1490
10-1719
10-1808
10-1952
10-2106
10-2226
10-2617
10-2748

8-353
10-622
10-694
10-837
10-953
10-1060
10-1161
10-1343
10-1528
10-1721
10-1813
10-1958
10-2107
10-2226
10-2630
10-2750

8-353
10-623
10-704
10-837
10-953
10-1060
10-1161
10-1343
10-1528
10-1723
10-1850
10-1985
10-2108
10-2226
10-2632
10-2765

8-353
10-625
10-718
10-857
10-968
10-1077
10-1206
10-1377
10-1572
10-1730
10-1856
10-1989
10-2109
10-2228
10-2685
10-2768

9-354
10-628
10-720
10-857
10-968
10-1077
10-1206
10-1377
10-1572
10-1751
10-1875
10-2013
10-2112
10-2228
10-2689

9-354
10-642
10-737
10-876
10-999
10-1104
10-1251
10-1378
10-1615
10-1756
10-1880
10-2020
10-2117
10-2504
10-2696
;

9-354
10-644
10-751
10-876
10-999
10-1104
10-1251
10-1382
10-1615
10-1762
10-1899
10-2030
10-2118
10-2509
10-2698

10-2189
10-2117

10-2190
10-2117

10-2192
10-2226

10-2193

10-837

10-857

10-876

10-900

10-934

10-953

10-968

10-999

10-1032

10-1060
10-1343

10-2716

10-1122
10-1490

10-2716

10-1142
10-1528

10-1161
10-1572

10-1206
10-1615

10-1286

10-2716

10-1104
10-1427

10-1251

10-2716

10-1077
10-1377

10-2716

10-555
10-812

10-330

10-896

10-903

10-932

10-965

10-995

10-1041

10-1119

98-334

$8-334
#8-334
210-2716
#8-334
98-334
10-1158
#8-326
#8-322
10-452
10-656
10-768
10-900
1C-1032
10-1122
10-1286°
10-1427
10-1695
10-1766
10-1904
10-2036
10-2134
10-2578
10-2716
#8-334

TRMTRP
TYPBIN
TYPDEC
TYPNAM

$SSET
$$SETTM
$$5KIP

[

CREF

#8-334
#8-326
10-455
10-658
10-770
19-900
10-1032
10-1122
10-1286
10-1427

10-1697
10-1773
10-1918
10-2104
10-2224
10-2580

10-2717
#10-555

10-1718
10-583

MAFCADN

MAl

ANDD

sz
. A

MAFCE

10-2716

ZORVBO

CREATED BY

MACRO

ON 8-APR-85 AT 16:03

MACRO CROSS REFERENCE

MACRO NAMZ

REFERENCES

JEQUAT
HEADE
KT11
LSETUP
. SWRHI

#8-321
8-321
8-321
#8-321
#8-321
€8-333
8-323
€9-354
#8-323
8-324
8-323
#8-323
#8-324
#8-324
#8-325
$8-325
£8-325
#8-325

.SWRLO
.SACT1
.SAPTB

.SAPTH
. SAPTY
.SCATC
.SCMTA
.SEOP
. SERRO
.SERRT
. $POME
. SREAD
.$5COP
. STRAP
.$TYPD
.STYPE
.$TYPC

10-1158

#8-325
#8-324
#8-324
#8-324

PAGE 16

CREF

10-1576
8-334
8-330
8-339
10-553
8-333
8-351
9-354
8-353
10-2105
8-348
8-354
10-1718
10-2108
10-2117
10-2228
10-2226
10-2224
10-2716
10-2107
10-2104
10-2106

Vo2

SEQ 0080