Digital PDFs

AH-T086C-MC

October 1985

65 pages

Original

33MB

view download

OCR Version

43MB

view download

Document:	CVDRAC0 DRV11-B DRV11-B DMA INTFC OCT 1985 gray
Order Number:	AH-T086C-MC
Revision:	000
Pages:	65
Original Filename:	CVDRAC0__DRV11-B__DRV11-B_DMA_INTFC__AH-T086C-MC__OCT_1985_gray.pdf

OCR Text

DRV11-B

QVoraco

Torr
ocress
EEOON
COPYRIGHT®© 1976-85 MADE iN USA

4 pwm
A >;MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
07-MAY-85 09:22

MACY11 30(1046)

O07-MAY-85

09:37

PAGE 58

SEQ 0001

.REM

IDENTIFICATION

PRODUCT CODE:

AC-8178C-MC

PRODUCT NAME:

CVDRACO DRV11B DMA INTFC DIAG

DATE:

JUNE 1985

MAINTAINER:

DIAGNOSTIC ENGINEERING

COPYRIGHT (C) 1976,1985
DIGITAL EQUIPMENT CORPORATION, MAYNARD, 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 AVAILABLE 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
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORAT
ION.

5671

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE
ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

—

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-85 09:22

MACY11 30(1046)

07-MAY-85

09:37

PAGE 59

SEQ 0002

5673
5674
5675
5676
5677
5678
5679

5680

5681
5682
5683
5684

. 5685
5686
5687
5688
5689

REVISION A

:FIRST RELEASE OF DIAGNOSTIC

REVISION B

:THIS REVISION WAS MADE TO SUPPORT 11/23-8

REVISION C

:THIS REVISION WAS MADE TO SUPPORT ORION (11/73)CPU
SEE ;DD001

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
07-MAY -85 09:22

MACY11 30(1046)

O07-MAY-85

09:37

SEQ 0003

5692

5737
5738
5739

5736

5721
5722
S5723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735

STARTING PROCEDURE
PROGRAM START
SOFTWARE SWITCH REGISTER
OPTIONS
CONTROL

5720

LOADING PROCEDURE

ERROR REPORTING
ERROR COMMENT
ERROR DATA

VBWNFO

5712

5713
5714
5715
5716
5717
5718
5719

REQUIREMENTS
EQUIPMENT
STORAGE

MISCELLANEOUS
DRV11B BUS & VECTOR ADDRESS MODIFICATION
XXDP/APT NOTES
POMER FAIL
MULTIPLE DRV11B INTERFACE TESTING
RESTRICTIONS

5710
5711

ABSTRACT

EXECUTION TIME

VOENOVNELWNFO

TABLE OF CONTENTS

5707

PROGRAM TEST DESCRIPTIONS
GENERAL
REGISTER TESTS
BYTE ADDRESSING TESTS

10.0

‘FNCT'

TO ‘STAT'

WRAP AROUND TEST

READY INTERRUPT TEST
NPR DATA TRANSFER TESTS
MAINT MODE NPR DATA TRANSFER TESTS
BURST & NON-BURST MODE TESTS
‘NEX' ERROR CONDITION TEST
LISTING

PAGE 60

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

5762

5763
5764
5765
5766
5767
5768
5769
5770
ST
5772
S773
5774
S775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796

09:37

PAGE 61

ABSTRACT

THE DRV118 DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED
TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE WITH

THE LOOP BACK CABLE INSERTED IN THE USER I/0 CONNECTORS.
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL
VIA THE ODT/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 CPU REFRESH MUST BE ENABLED.

2.0

REQUIREMENTS

2.1

EQUIPMENT
1.

2.
3.
2.2

LSI-11 FAMILY PROCESSOR.

11/03(LSI-11/02), 11/23(KDF11-A),
DLV11 WITH I/0 TYPE TERMINAL
DRV11B WITH LOOP BACK CABLE

11/23B(KDF11-8B)

STORAGE
THE PROGRAM USES THE LOWER 4K OF MEMORY.

3.0

LOADING PROCEDURE
IF USING PAPER TAPE READER FOLLOW THIS PROCEDURE:
ASSURE ‘THAT THE LSI-11 IS IN THE ODT MICROCODE STATE.
#2:2 THE LOW OR HIGH SPEED READER WITH THE ABSOLUTE LOADER

5753
5754
5755
5756
5757
5758
5759
5760
5761

1.0

5752

07-MAY-85

SEQ 0004

5741
5742
5743
S744
5745
5746
5747
5748
5749
5750
5751

MACY11 30(1046)

07-MAY -85 09:22

CVDRAC.P11

4.0

TYPE THE READER'S CSR ADDRESS (177560-LOW OR 177550-HIGH)

AND CHARACTER ‘L°'.

AFTER TAPE IS LOADED, LOAD THE DRV11B BINARY TAPE INTO THE
READER AND TYPE THE CHARACTER 'P’'.
IF THE ABSOLUTE LOADER HAS ALREADY BEEN LOADED (STEPS 2 & 3),
THEN ONLY THE STARTING ADDRESS OF THE ABSOLUTE LOADER AND
THE CHARACTER ‘G’ NEED BE TYPED (WITH THE DRV11B BINARY TAPE
IN THE APPROPRIATE READER).

STARTING PROCEDURE
FOR PAPER TAPE MEDIA:
1.
MAKE SURE THE MAINTENANCE LOOP BACK CABLE IS INSERTED IN
THE I/0 CONNECTORS ON THE M7950 MODULE.
2.
MAKE SURE THE DEVICE BUS & VECTOR ADDRESSES AGREE WITH THE

DEFAULT VALUES DEFINED IN SECTION 7.1.
IF NOT, CHANGE
LOCATIONC(S) AS DESIRED VIA THE ‘ADDRESS/’' ODT COMMAND.

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
07-MAY-85 09:22

5797

5798
5799

MACY11 30(1046)

07-MAY-85

09:37

PAGE 61-1

SEQ 0005

3.
4.
S.

INSURE THAT THE HALT SWITCH IS DISABLED (IF ANY).
TYPE THE STARTING ADDRESS OF 200 AND THE CHARACTER G.
THE PROGRAM WILL RESPOND BY TYPING THE SOF TWARE SWITCH
REGISTER CONTENTS AND ALLOWING THE USER TO CHANGE ITS
CONTENTS BY ENTERING OCTAL SWITCH REGISTER DATA TERMINATED
ngmC‘gRRIAGE RETURN - SEE SECTION 5.0 FOR SWITCH REGISTER

THE NEXT QUESTION ASKED IS ABOUT THE TYPE OF A PROCESSOR.
L}PSE ‘Y* WITH CARRIGE RETURN IF USING KDF11-B, ‘N’ OTHER-

IF RUNNING UNDER XXDP+ MONITOR:
A)
DO 1., 2., 3. OF THE ABOVE.
B)
1IN MONITOR MODE TYPE IN ‘R VDRAB?'.

DO S. AND 6.

YrYY’

5.0

IF USING LSI-11/23B(KDF11-B) AND WANT TO TEST DMA TRANSFERS TO
I1/0 PAGE PUT THE ADDRESS OF YOUR I/0O INTERFACE CONTROL REGISTER INTO LOCATION 1544 (IOPAGE). TO DO THIS PERMANENTLY USE
LOAD-MOD-DUMP PROCEDURE DEFINED IN 7.2. FOR TEMPORARY CHANGES
JUST MODIFY LOCATIONS AFTER LOADING THE PROGRAM.
NOTE: THIS TEST IS NOT GOING TO BE PERFOMED UNLESS THE ABOVE
MENTIONED LOCATIONS ARE MODIFIED.
SOFTWARE SWITCH REGISTER

3.1

OPTIONS

SWITCH

OCTAL

FUNCTION

SW15=1
SWi4=1
SW13=1
SWii=1
SW10=1
SW09=1

100000
040000
020000
004000
002000
001000

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

SW08=1

+445W07=1

0004 XX

000200

LOOP ON TEST IN SWR <5-0>

DEVICE IS KDF11-8

#+4DIAGNOSTIC WILL SET THIS SWITCH AUTOMATICALLY,

IF THIS TYPE

OF A PROCESSOR HAS BEEN CONFIRMED IN A DIALOGUE. IF RUNNING IN
AUTOMATIC MODE (CHAINS UNDER XXDP OR APT) SEE SECTION 7.2
5.2

CONTROL
1.
2.

THE SOFTWARE SWITCH REGISTER ‘SWREG' (LOC. 176) CAN BE
CHANGED BY USING THE ODT FACILITIES.
THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM
CONTROL BY TYPING THE 'CONTROL & G' KEYS.
THIS

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 BIT1S 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

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
07-MAY-85 09:22

MACY11 30(1046)

CVDRAC.P11

09:37

PAGE 61-2

SEQ 0006
‘P' (CONTINUE).
1IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL
‘CONTROL € G’ COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE
BY THE PROGRAM.

6.0

ERROR REPORTING

6.1

ERROR COMMENT
ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF
THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE
ERROR PC OR FROM THE TEST ITSELF.

5865

6.2

ERROR DATA

*ERRPC
«TSTNUM
BUSADR

EXPCT
RCVD

ADRS

LISTING ADDRESS WHERE THE ERROR WAS DETECTED
TEST NUMBER WHERE THE ERROR OCCURRED
DRV11B BUS REG ADDRESS OF CONCERNED OPERATION

DATA THAT WAS EXPECTED

DATA THAT WAS RECEIVED

MEMORY ADDRESS OF DATA TRANSFER ON ERROR

sALWAYS REPORTED

7.0

MISCELLANEOUS

7.1

DRV11B BUS & VECTOR ADDRESS MODIFICATION
MODIFY LOCATION ‘$BASE' IF BASE BUS ADDRESS IS NOT 172410.
MODIFY LOCATION ‘$VECT1' IF VECTOR ADDRESS IS NOT 124.
#NOTE:
USE THE LSI-11 ODT FACILITIES TO MODIFY THESE LOCATIO
NS
:LFIS:!E:RWRAH LOAD.
NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE

XXDP/APT NOTES

THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REF. 7.5)(REQUIRES 8K OR MORE).
THIS DIAGNOSTIC DOES SUPPORT “APT” AND HAS RUN UNDER IT.

IF THE PROCESSOR USED IS KDF11-B:
FOR APT SET $SWREG BITO7 TO 1 (000200)
FOR XXDP CHAINS SET LOCATION 176 (SWR) BITO7 TO 1
TO DO THIS UNDER XXDP:
. R UPD2
. LOAD VDRAB?.BIC
. MOD 176
THE TERMINAL WILL RESPOND: 176/000000
NOW TYPE IN 200
BE CAREFUL: AT THIS POINT IT IS NECESARY TO DELETE THE FILE
FROM THE DISK.
Ve

7.2

5853
5854
5855
5856
3857
5858
5859
5860
5861
5862
5863

O07-MAY-85

DEL DLO:VDRA8?.BIC (IF MEDIA IS RL ON DRIVE 0)

. CUMP VDRABO.BIC
TO BE SAFE, SKIP S.

AND DUMP THE FILE UNDER DIFFERENT NAME

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
07-MAY-85 09:22

5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923

7.3

09:37

PAGE 61-3
SEQ 0007

POWER FAIL
A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE).

7.4

MULTIPLE DRV11B INTERFACE TESTING

THIS PROGRAM DOES NOT “AUTO-SIZE” THE NUMBER OF DRV11B'S
CONNECTED.
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRV11B INTERFA
CES
WITH CONTIGUOUS BUS AND VECTOR ADDRESSES.
THIS IS ACCOMPLISHED
BY THE OPERATOR SETTING UP LOCATION ‘$DEVM' WITH A BIT MAP INDICAT
ING WHAT
INTERFACES ARE TO TESTED.
I.E. BITO=1 SAYS TEST 1ST DRV11B,
BIT1=1 SAYS TEST 2ND DRV11B, BIT2=1 SAYS TEST 3RD DRV11B, ETC..
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

EXECUTIOfl TIME RANGES FROM ABOUT S SECONDS WITH NO ITERATIONS

TO ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV118 CONNECTE
D.
AN END PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON ALL
SELECTED UNITS.

9.0

PROGRAM TEST DESCRIPTIONS

9.1

GENERAL

THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11B 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 CAN BE BENEFICIAL IN TEST UNDERSTANDING.

5948

5949

5950

5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964

07-MAY-85

WITH .BIC EXTENSION.
NOTE: THIS PROCEDU?E ASSUMES THAT DIAGNOSTIC IS ON THE DISK
FROM WHICH THE SYSTEM IS BOOTED. IF THIS IS UNTRUE
%ZM'AEM 6. THE OPERATOR HAVE TO SPECIFY THE DRIVE BEFORE

5924
5925
5926

5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947

MACY11 30(1046)

9.2

9.3

WORD COUNT
BUFFER ADDRESS
COMMAND/STATUS
DATA BUFFER

BYTE ADDRESSING TESTS

—

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

MACY11 30(1046)

07-MAY-85 09:22

5966
5967

1.
2.

PAGE 61-4

COMMAND/STATUS
DATA BUFFER

5968
3367:

9.4

'FNCT'

g:;%

9.5

READY INTERRUPT TEST

g:;z

9.6

NPR DATA TRANSFER TESTS

5975

TO *STAT'

WRAP AROUND TEST

THE FOLLOWING NPR XFERS ARE CHECKED FOR CORRECT STATUS,

g:;g

WORD COUNT, BUFFER ADDRESS & DATA:

5978

5979
5980

5981

5983

SINGLE 'DATI'

XFER - FLOATING 1/0 PTRN

2.
3.

SINGLE 'DATO’ XFER - FLOATING 1/0 PTRN
200 'DATI' XFERS - FLOATING 1/0 PTRN

SINGLE ‘DATI'

5982

5984

200 'DATO’

XFERS - FLOATING 1/0 PTRN

XFER TO THE TTY PRINTER CSR

FOR KDF11-B PROCESSOR THE USER HAVE TO SELECT

CSR OF A PARTICULAR INTERFACE (DISK INTERFACES

5985

ARE SUGGESTED). SOME OF THEM ARE:

5986

RXV11

5987

RXvV21

gg:g

(RX01): 177170
(RX02):

RKV11-D (RKOS):

ggg.i

9.7

1.
2.
3.

g:zg

9.8

9.9

oo Ll

THAT MAINT MODE CONTROLS 'FNCT' BITS
200 MAINT MODE XFERS - CHECKING STATUS & DATA
200 MAINT MODE XFERS TO EACH 4K AVAILABLE MEM

THAT CPU IS LOCKED OUT IN BURST MODE

THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE

‘NEX'

10.0
o

177404

BURST & NON-BURST MODE TESTS

5998

593
60

177170

MAINT MODE NPR DATA TRANSFER TESTS

5992
5993
g:g

BOO8

09:37

SEQ 0008

5965

6003

07-MAY-85

ERROR CONDITION TEST

LISTING
L

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
07-MAY-85 09:22

CVDRAC.P11
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6025
6026
6027
6028

MACY11 30(1046)

O07-MAY-85

09:37

PAGE 62

SEQ 0009
%

-TITLE

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

s#COPYRIGHT (C) FEBRUARY 1985
+#DIGITAL EQUIPMENT CORP.
i*MAYNARD, MASS. 01754
L

:*PROGRAM BY R. MOORE
s

1#THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC
s#PACKAGE (MAINDEC-11-DZQAC-CS), FEB, 1985.

.ENABLE ABS,AMA

000007
104401
104402
104403
104404
104405
104406
104407
104410
104411
104412
000021
000023
000001
160000
167400
000300
000001

MFPT=000007
TYPE=104401
TYPOC=104402
TYP0S=104403
TYPON=104404
TYPDS=104405
GTSWR=104406

CKSWR=104407
RDCHR=104410
RDLIN=104411
RDOCT=104412
$XON=000021
$X0FF=000023

$TN=1
$SWR=160000
$SWR=167400
$SWRMK =300

$TN=1

.SBTTL
i

:sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT

OPERATIONAL SWITCH SETTINGS

HALT ON
LOOP ON
"INHIBIT
INHIBIT

.SBTTL

ERROR
TEST
ERROR TYPEOUTS
ITERATIONS

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<S:0>

BASIC DEFINITIONS

;#INITIAL ADDRESS OF THE STACK POINTER ##+ 1100 #ss

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6076
6077

07-MAY-85 09:22
001100

STACK=
.EQUIV

23;:

6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
g:g

MACY11l 30(1046)

BASIC DEFINITIONS

.EQUIV

1100
EMT,ERROR
I0T,SCOPE

07-MAY-85

s *MISCELLANEOUS DEFINITIONS
HT=
11
+:CODE FOR HORIZONTAL TAB
LF=
12
+3CODE FOR LINE FEED
CR=
15
:3CODE FOR CARRIAGE RETURN
CRLF=
200
:3CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
+ s PROCESSOR STATUS WORD
.EQUIV PS,PSW
STKLMT= 177774
+sSTACK LIMIT REGISTER
PIRQ=
177772
: sPROGRAM INTERRUPT REQUEST REGISTER
DSWR=
177570
s sHARDWARE SWITCH REGISTER

000011
000012
000015
000200
177776
177774
177772
177570

177570

DDISP=

177570

s sHARDWARE DISPLAY REGISTER

RS=
R6=
R7=

gigg

000007

PC=

6104
6105
6106

000000
000040

;#PRIORITY LEVEL DEFINITIONS
PRO=
0
+ sPRIORITY LEVEL 0
PR1=
40
: sPRIORITY LEVEL 1

6107

000000
000001
000002

i *GENERAL PURPOSE REGISTER DEFINITIONS
RO=
%0
+ sGENERAL REGISTER
Ri=
%1
s sGENERAL REGISTER
R2=
e
s sGENERAL REGISTER

000004

R4=

000003

R3=

000006

SP=

000100

PR2=

000140
000200
000240
000300
000340

PR3=
PR4=
PRS=
PR6=
PR7=

6115
6116
6117
6118
6119
6120
6121
6122
6123
6124

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

SW15=
SWi4=
SW13=
SWi2=
SWil=
SW10=
SW09=
SW08=
SWO07=
SWo6=

6127
6128

000010
000004

6114

6125
6126

6129
6130

6131

000040
000020

000002
000001

SEQ 0010

+3BASIC DEFINITION OF ERROR CALL

000005
000006
000007

6108
6109
6110
6111
2{1%

PAGE 62-1

+3BASIC DEFINITION OF SCOPE CALL

6092
6093
6094
6095
6096
6097
6098
6099
6100
6101

09:37

¥4

: s§GENERAL REGISTER

+ sGENERAL REGISTER

%5
%6
%7

+ sGENERAL REGISTER
+ sGENERAL REGISTER
+ sGENERAL REGISTER

: :PROGRAM COUNTER

100

140
200
240
300
340

: s STACK POINTER

3+ sPRIORITY LEVEL 2

+ sPRIORITY LEVEL
+ sPRIORITY LEVEL
+ sPRIORITY LEVEL
+ sPRIORITY LEVEL
+sPRIORITY LEVEL

3
4
S
6
7

;#"SWITCH REGISTER” SWITCH DEFINITIONS

SWOS=
SWO4=

SWo3=
SWo2=

SWOo1=
SW00o=

.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100

40
20

10
4

2
1

SW09,SW9

]

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-85 09:22

6132

.EQUIV

6134

.EQUIV

6133

.EQUIV

6135

.EQUIV

SWO3,SW3

6139
:i:‘l’

.EQUIV
.EQUIV

SWO1,SW1
SW0O,SWO

6142
6143

.EQUIV

BIT15=

020000

BIT13=

6147

004000

B8ITii=

6149

001000

BITO9=

6151

000200

BITO7=

6153

000040

BITOS=

000002

BITO1=

040000

6146

010000

6145

6148
6150

6152

002000
000400

000100

6154
6155
6156

000020
000010
000004

6158

000001

6157

6159

SWO4,SW4

SW02,SW2

BITi4=

BIT12=
BIT10=

BITO8=

BITO6=

BITO4=
BITO3=
BITO2=
B8IT00=

100000

40000
20000

10000

4000

2000
1000

400
200

100

20
10
4
2

.EQUIV

BIT09,BIT9

6161

.EQUIV

BIT07,BIT7

6163

.EQUIV

BITOS5,BITS

6165

.EQUIV

6160

.EQUIV

6162

.EQUIV

6164

.EQUIV

6166

.EQUIV

6167
gi:g
6170

.EQUIV
.EQUIV

BIT08,BIT8

BIT06,BIT6
BITO3,BIT3

BIT02,BIT2
BITO01,BIT1
BIT00,BITO

1#BASIC “CPU” TRAP VECTOR ADDRESSES

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC= 64
PIRQVEC=240

6184
6185
6186
6187

104400
000124
000001
106427

TRAP=104400
AVECT1= 000124
ADEVM= 1
MTPS=106427

172410

BITO4,BIT4

6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183

SEQ 0011

;#DATA BIT DEFINITIONS (BITOO TO BIT1S)

100000

6144

PAGE 62-2

SW06,SW6

6137

6138

09:37

SWO7,SW7

SWOS,SWS

.EQUIV

O07-MAY-85

SWO08,SW8

.EQUIV

6136

MACY11 30(1046)

BASIC DEFINITIONS

ABASE=

172410

+:TIME OUT AND OTHER ERRORS
s sRESERVED AND ILLEGAL INSTRUCTIONS
337" BIT
+ s TRACE TRAP
3 1BREAKPOINT TRAP (BPT)
$ s INPUT/QUTPUT TRAP (IOT) #+SCOPEss
+ sPOMER FAIL
$ sEMULATOR TRAP (EMT) #+ERRORs#
13 “TRAP* TRAP
13 TTY KEYBOARD VECTOR
33 TTY PRINTER VECTOR
s ;PROGRAM INTERRUPT REQUEST VECTOR

:BASE DRV11B BUS ADRS EQUATE

:BASE DRV11B VECTOR ADRS EQUATE :DEFAULT TO ONE DRV118
sINSTR EQUATE THAT MOVES BYTE TO PSW

MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
:{::
6190
6191

6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
g;z

07-MAY-85 09:22
177522

THAIN= 177522

000000
000000
000000
000000
000000

AMSGTY=0
AFATAL=0
ATESTN=0
APASS=0
ADEVCT=0
AUNIT=0
AMSGAD=0
AMSGLG=0
AENV=0
AENVM=0
ASWREG=0
AUSKHR=0
ACPUOP=0
AMAMS1=0
AMTYP1=0
AMADR1=0
AMAMS2=0
AMTYP2=0
AMADR2=0
AMAMS3=0
AMTYP3=0
AMADR3
=0
AMAMS4
=0
AMTYP4=0
AMADR4
=0
AVECT2=0
ACOW1=0
ACDW2=0
ADDWO=0
ADDW1=0
ADDW2=0
ADDW3=0
ADDW4=0
ADDWS=0
ADDW6=0
ADDW7=0
ADDW8=0
ADDW9=0
ADDW10=0
ADDW11=0
ADDW12=0
ADDW13=0
ADDW14=0
ADDW15=0

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

6237

.SBTTL

6238

6239
6240
6241

6242
6243

000000
000002

000000
014052
000340

000000

MACY11 30(1046)

O07-MAY-85

BASIC DEFINITIONS

09:37

PAGE 62-3

sMAINTENCE REGISTER(FOR USE WITH KDF11-8)

TRAP CATCHER

.ASECT

$TRAP
340

.=0
s#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “,+2,HALT"

——

MAINDEC-11-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11
6244
6245
6246
6247
6248

07-MAY-85 09:22

000174
000176

MACY11 30(1046)

O7-MAY-85

09:37

PAGE 62-4

SEQ 0013

3¢SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
##LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
.=174

000174

000000
000000

DISPREG:
SWREG:

6249
8;2

000200

%{g

001550

6252

000100

000104

000200

6253

TRAP CATCHER

.SBTTL

000002

.WORD
.WORD

O
O

3+ s SOFTWARE DISPLAY REGISTER
+:SOFTWARE SWITCH REGISTER

.WORD

104,200,2

+IF 'B EVENT' ON Q BUS IS CONNECTED

STARTING ADDRESS(ES)
J'IOO
SOSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM
sIGNORE IT'S INTERRUPT - JUST DO A RTI

.SBTTL

6256

10888488 84488888888848888848888884888888848008804808888088888888408

6257
6258
6259
6260
6261
6262

6263
6264

000046
000052

:22:2

ACT11 HOOKS

000106
000046
010042
000052

+HOOKS REQUIRED BY ACTi1
$SVPCe.
.=46
$ENDAD
.32

000106
001000

.=4$SVPC
.=1000

000000

.HORD

.SBTTL

1SAVE PC
$31)SET LOC.46 TO ADDRESS OF S$ENDAD IN . $EOP

132)SET LOC.52 TO ZERO

13 RESTORE PC

APT PARAMETER BLOCK

6267

$118808882888888888888848888848884488888888880828808808888888088888888

6269

118888882488888888888488088888848040408888888888888808088888888008

6268
6270
6271

$SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

6272

000024

6274

000044

6273
6275

6276

001000
000024

:22::

;3SAVE CURRENT LOCATION
13SET POMER FAIL TO POINT TO START OF PROGRAM

.=44

13sPOINT TO APT INDIRECT ADDRESS PNTR.

000200

200

001000

SAPTHDR ;;POINT TO APT HEADER BLOCK

000044
001000

6277
6278

6279
6280
6281
6282
6283
6284
6285
6286

.#X=.,
=24

BEEIIELE

.=.8X

13FOR APT START WP

33RESET LOCATION COUNTER

I PR

LRI P

.WORD

R P

T I P

1SETUP_APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.
001000

001000

001002
001004
001006
001010
001012

000000

001174
000031
000006
000144
000052

$APTHD:
SHIBTS:

$MBADR:
$TSTH:
$PASTM:
SUNITM:
.SBTTL

.WORD
.WORD
.WORD
.WORD
.MORD

$3TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

$MAIL
;;ADDRESS OF APT MAILBOX (BITS 0-1S)
25.
$3RUN TIM OF LONGEST TEST
6.
$sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
100
1 sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
$ETEND-$MAIL/2 s LENGTH MAILBOX-ETABLECWORDS)

COMMON TAGS

6289

118888888848888848888488888888888484888808888088000488888084888888480888

6291

1sUSED IN THE PROGRAM.

6290

1¢THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

6292

6293
6294

001100

6296
6297

001102
001103

6295

6298
6299

001100

000000

001104
001106

000000
000000

000
000

$CHTAG:

.=1100
.HORD

.WORD
.WORD

O
O

$TSTNM: BYTE
SERFLG: .BYTE
S$ICNT:
SLPADR:

O
O

13START OF COMMON TAGS
13CONTAINS THE TEST NUMBER
1 sCONTAINS ERROR FLAG

3 3CONTAINS SUE TEST ITERATION COUNT
1sCONTAINS SCCPE LOOP ADDRESS

CVDRAC.P11
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349

6350
6351

6352

6353
6354
6355

001110
001112
001114
001115
001116
001120
001122
001124
001126
001130

001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154

001155

001156
001157
0C1160
001162
001164
001170
001171
001172

07-MAY-8S 09:22
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
000000
177607
077
015
000012

COMMON TAGS

. PERR:
$cRTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

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

.WORD
.BYTE
.BYTE
.WORD
SWR:
.HORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
SAUTOB:
$INTAG:

$FILLS:

000377

.BYTE

SFILLC: .BYTE
$TPFLG: .BYTE
$TIMES: O
$ESCAPE:
0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
$LF:
.ASCIZ

MACY11 30(1046)
0000000000000

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

0
2
12

O07-MAY-85

09:37

PAGE 62-5

1 sCONTAINS SCOPE RETURN FOR ERRORS
1 sCONTAINS TOTAL ERRORS DETECTED
3 sCONTAINS ITEM CONTROL BYTE
3+ s CONTAINS MAX. ERRORS PER TEST
1 sCONTAINS PC OF LAST ERROR INSTRUCTION
+ sCONTAINS ADDRESS OF 'GOOD’ DATA
$ sCONTAINS ADDRESS OF 'BAD’' DATA
1 sCONTAINS 'GOOD’ DATA
3 sCONTAINS ‘'BAD' DATA
s sRESERVED--NOT TO BE USED

s s AUTOMATIC MODE INDICATOR
+ s INTERRUPT MODE INDICATOR

: s ADDRESS OF SWITCH REGISTER
: s ADDRESS OF DISPLAY REGISTER
33 TTY KBD STATUS
:3TTY KBD BUFFER
+3TTY PRINTER STATUS REG. ADDRESS
+3TTY PRINTER BUFFER REG. ADDRESS

: sCONTAINS NULL CHARACTER FOR FILLS
s sCONTAINS @ OF FILLER CHARACTERS REQUIRED
s s INSERT FILL CHARS. AFTER A "LINE FEED”

33 “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)
:sMAX. NUMBER OF ITERATIONS
1 ;ESCAPE ON ERROR ADDRESS
<207>¢<377><377> ::CODE FOR BELL
7?2/
: sQUESTION MARK
<15
: sCARRIAGE RETURN
<12

ssLINE FEED

138080880888 888888888888880804880884888884884040000480000000008044

.SBTTL

APT MAILBOX-ETABLE

3580888888888 88488888840888888848804888884880884
2480080808000 0000444

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

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

.EVEN
$MAIL:
o
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$ENV:
.BYTE
$ENVM:
_.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

H
is
s

AMSGTY
AFATAL
ATESTN
APASS

ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSHR
ACPUOP

:sAPT MAILBOX
s sMESSAGE TYPE CODE
ssFATAL ERROR NUMBER
s s TEST NUMBER
s sPASS COUNT
s sDEVICE COUNT
$3170 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
:sAPT ENVIRONMENT TABLE
s sENVIRONMENT BYTE
: sENVIRONMENT MODE BITS
ssAPT SWITCH REGISTER
:sUSER SWITCHES
:sCPU TYPE,OPTIONS

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

SEQ 0014

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
APT MAILBOX-ETABLE

CVORAC P11
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6363
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380

6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392

001224
001225

000

$MAMS]:
SMTYPL:

.BYTE
.BYTE

AMAMS1
AMTYP1

-WORD

AMADR1

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

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4

001226
s

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

001316

$MAMS2:
SMTYP2:
$MADR2:
$MAMSS:
SMTYP3:
$MADR3:
$MAMSS;
SMTYP4
$MADRS:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$COML:
$COW2:
$DDWO:
$0DM1:
$DDW2:
$DDM3:
$0DW4:
$DDWS:
$0DW6:
$DDM7:
$DDW8:
$DDW9:
$0DW10:
$0DW11:
$DDW12:
$DDMW13:
$DDNW14
:
$DDN1S:

001320

$SETEND:

001314

.SBTTL

.WORD
-WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
-WORD
-WORD
.WORD

AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACDW2
ADDWO
ADDW1
ADOW2
ADDW3
ADDW4
ADDWS
ADDW6
ADDW7
ADDW8
ADDW9
ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

O07-MAY-85

09:37

PAGE 62-6

SEQ 0015

;;HIGH ADDRESS,M.S. BYTE
;;MEM. TYPE,BLK#1
MEM.TYPE BYTE
-(MIGM BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003
;;HIGH ADORESS,BLK®1
MEM.LAST ADOR.=3 BYTES,THIS WORD AND LOW OF “TYPE“ ABOVE
;;HIGH ADDRESS.M.S. BYTE
;;MEM.TYPE,BLK#2
;;MEM.LAST ADDRESS,BLK®2
;;HIGH ADDRESS,M.S.BYTE
;;MEM.TYPE,BLK®3
;;MEM.LAST ADDRESS,BLK®3

s sHIGH ADDRESS ,M.S.BYTE

s sMEM.TYPE .BLK#4
;;MEM.LAST ADDRESS,BLK®4
;;INTERRUPT VECTOR®1,BUS PRIORITY®1
;;INTERRUPT VECTOR®2BUS PRIORITY®2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
;;CONTROLLER DESCRIPTION WORD&1
;;CONTROLLER DESCRIPTION WORD®2
;;DEVICE DESCRIPTOR WORD&O
;;DEVICE DESCRIPTOR WORDO1

;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE

;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE
;;DEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD®2
WORD#3
WORD®4
WORD®S
WORD®6

WORD&7
WORD®8
WORD®9
WORD®10
WORD®11
WORD®12
WORD®13
WORD®14
WORD®1S

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.

;#NOTE1:

IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;#NOTE2:

EM
DH
0T
DF

:sPOINTS
: sPOINTS
: sPOINTS
s sPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11l 30(1046)
07-MAY -85 09:22
ERROR POINTER TABLE

CVORAC.P11
6412
6413
6414
6415
6416
6417
6418
6419
6420

001320
001320
001322
001324
001326

014134
015025
015176
000000

001330
001332
001334
001336

014153
015025
015176
000000

001342
001344

001340

001346

014175
015025
015176
000000

001150
001352
001354
0C1356

014212
015025
015176
000000

001360
001362
001364
001366

014254
015025
015176
000000

001370
001372
001374
001376

014277
015025
015176
000000 .

001400
1001402
001404
001406

014323
015025
015176
000000

001410
001412
001414
001416

014345
015025
015176
000000

001420
001422
001424
001426

014373

O07-MAY-85

09:37

PAGE 62-7

SEQ 0016

$ERRTB:
:ERROR

+REG TIMEOUT ER
sERRPC
TSTNUM BUSADR
+ $ERRPC TSTNUM
$BDADR

EXPCT
$GDDAT

RCVD

;REG READ/WRITE ER
sERRPC
TSTNUM BUSADR
:$ERRPC TSTNUM
$BDADR

EXPCT

RCVD

oT1

1BUS RESET ER
;ERRPC
TSTNUM
+$ERRPC TSTNUM

EXPCT

RCVD

DT1

sFNCT BITS FAILED TO SET STAT BITS
;ERRPC
TSTNUM BUSADR EXPCT
RCVD
+$ERRPC TSTNUM
$BDADR
$GDDAT
$BDDAT

$BDDAT

:ERROR

;ERROR

sREADY INTR FAILURE
sERRPC
TSTNUM BUSADR
:$ERRPC TSTNUM
$BDADR

;ERROR

DT1
10
EM10
oT1

;ERROR

015025
015176
000000

11
EM11

DT1

;ERROR

$GDDAT

$BDDAT

EXPCT
$GDDAT

RCVD
$BDDAT

EXPCT

RCVD

:STATUS ER ON XFER
;ERRPC
TSTNUM BUSADR
:$ERRPC TSTNUM
$BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

sWORD COUNT ER ON XFER
;ERRPC TSTNUM BUSADR
s $ERRPC TSTNUM
$BDADR

EXPCT
$GDDAT

RCVD
$BDDAT

:BUFFER ADRS ER ON XFER
:ERRPC TSTNUM BUSADR EXPCT
+$ERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$BDDAT

;READY CLR OR SET ER
:ERRPC
TSTNUM BUSADR
i $ERRPC TSTNUM
$BDADR

;ERROR

sERROK

BUSADR
$BDADR

$GDDAT

$BDDAT

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479

16480
6481

6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
- 6494
6495

07-MAY-85 09:22

001430
001432
001434
001436

014422
015072
015212
000000

001440
001442
001444
001446

014443
015072
015212
000000

001450
001452
001454
001456

014462

015230
000000

001460
001462
001464
001466

014530
015147
015230
000000

0C1470
001472
001474
001476

014716
015025
015176
000000

001500
001502
001504
001506

014733
015025
015176
000000

001510
001512
001514
001516

014770
015072
015212
000000

MACY11 30(1046)
ERROR POINTER TABLE

07-MAY-85

09:37

PAGE 62-8

SEQ 0017

EM12
DH2
oT2
0

1DATA ER FROM MEM
sERRPC TSTNUM BUSADR
1$ERRPC TSTNUM $BDADR

ADRS
$GDADR

EXPCT
$GDOAT

RCVD

13
EM13
DH2
D12
0

:DATA ER TO MEM
:ERRPC
TSTNUM BUSADR
s $ERRPC TSTNUM $BDADR

ADRS
$GDADR

EXPCT
$GDDAT

RCVD

;ERROR

14
EM14
DH3
T3
0

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

;:ERROR

15
EM15
DH3
DT3
0

+SINGLE CYCLE ON LOCKED OUT CPU
sERRPC TSTNUM BUSADR
+$ERRPC TSTNUM
$BDADR

16
EM16
DH1
oT1
0

sNEX LOGIC ER
;ERRPC
TSTNUM
:$ERRPC TSTNUM

;ERROR

015147

;:ERROR

;ERROR

17
EM17
DH1
oT1
0
20
EM20
DH2
T2
0

BUSADR
$BDADR

EXPCT
$GDDAT

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

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

:$ERRPC TSTNUM

$BDADR

$GDADR

001524

001526

172410
172412
172414
172416

DRVMCR:
DRVBAR:
DRVCSR:
DRVDBR:

172410
172412
172414
172416

BDDAT

$¢BDDAT

EXPCT
$GDDAT

;WORD COUNT
:BUFFER ADDRESS
s COMMAND/STATUS
:DATA BUFFER

;:DRV118 VECTOR ADDRESS POINTERS
001530
001532

000124
000126

DRVCTO:
DRVCT2:

124
126

;READY, NEX & INCOMPLETE DATIO VECTOR
;NEW PSW ON INTR

sCOMMON PROGRAM LOCATION(S)
001534

000000

TSTNUM:

;CONTAINS TEST NUMBER ON ERROR

$BDDAT

RCVD
$BDDAT

;:DRV11B BUS REGISTER ADDRESS POINTERS
001520
001522

$8DDAT

RCVD
$BDDAT

——

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11l 30(1046)
07-MAY-85 09:22
ERROR POINTER TABLE

CVORAC.P11

001536
001540

001542

001544
001546

000001
000000
015364
000000
000000

DMAP;

CORSZ:
DBUFP:

001564

012706
005026
022706
001374
012706

001100

001570
001576
001604
001612
001620
001626
001634
001642
001650
0C1654
001660
001666
001674

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037
112737
012737
012737

012432
000340
012070
000340
014052
000340
013646
000340
001160
001162
000001
001666
001674

001562

001702
001706
001714
001722
001730
001736

012737
012737
022777
001012

001740
001742
001746
001750
001756
001764

000403
012716
000002
012737
012737
012637

001770
001774
002002
002004
002012
002012
002016
002022
002024
002030
002034
002036

005037
132737
001403
012737

013746

012737

012700
013701
010120
062701

022700
001372
012700

09:37

PAGE 62-9

SEQ 0018

+DEVICE MAP - EA BIT SAYS TEST THAT DRV11B
1CONTAINS 1ST NON-EXISTANT MEM ADRS
sCONTAINS CURRENT 4K NPR BUFFER ADRS
sCONTAINS ADDRESS FOR I/0 TRANSFERS
:IF KDF11-B

DBUF

IOPAGE: 0
KDF
:
0
.SBTTL
PROGRAM START
START:
.SBTTL
INITIALIZE THE COMMON TAGS

001550

001550
001554
001556

1
0

07-MAY-85

+3CLEAR THE COMMON TAGS ($CMTAG) AREA
@3CMTAG,R6
MOV
+sFIRST LOCATION TO BE CLEARED
CLR
(R6)+
+3CLEAR MEMORY LOCATION
CMP
OSGIR.RG 1 :DONE ?

001100
001140

BNE
MOV

s s INITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
CLR
CLR
MOvVB
MOV
MOV

MOV

001140
001142

001202
000200

001215

001216

001140

000002
001530
001530

#$SCOPE, 8@IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE
©340,80I0TVEC+2 ;;LEVEL 7
@$ERROR, BPEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
#340,00EMTVEC+2 ;;LEVEL 7
@$TRAP ,80TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,80TRAPVEC+2;LEVEL 7
@$PWRDN, 80PWRVEC ; ;PONER FAILURE VECTOR
€340,80PWRVEC+2 ;;LEVEL 7
$TIMES
+ : INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
13CLEAR THE ESCAPE ON ERROR ADDRESS
€1, $ERMAX
:sALLON ONE ERROR PER TEST
@..$LPADR
+sINITIALIZE THE LOOP ADDRESS FOR SCOPE
9., $LPERR
i s SETUP THE ERROR LOOP ADDRESS

SOERRVEC, -(SP)
9643 ,00ERRVEC
QDSHR, SWR
@0DISP ,DISPLAY

@-1,85WR
66$

001750

001520
001250

+3LOOP BACK IF NO
+3SETUP THE STACK POINTER

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

000004
001742
177570
177570
17777

000176
000174
000004

#STACK,
SP

644:

MOV

65%:

MOV

66$:

MOV

67%:
START1: MOV

SETUP2: MOV

654
#654,(SP)

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
:3SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

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

::AND

THE HARDWARE SWR IS NOT = -1

s sBRANCH IF NO TIMEOUT
+sSET UP FOR TRAP RETURN

@SWREG, SWR
::POINT TO SOFTWARE SWR
@DISPREG,DISPLAY

(SP)+,80ERRVEC

;;RESTORE ERROR VECTOR

$PASS
O@APTSIZE,$ENVM
674
@$SWREG, SWR

s sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
+: YES,USE NON-APT SWITCH
:sNO,USE APT SWITCH REGISTER

®DRVHCR,RO
$BASE,R1
R1,(RO)+
#2,R1

:SET UP REG ADRS POINTERS
:GET BASE ADRS
;LOAD EM
;

@DRVDBR+2,R0O
SETUP2
@DRVCTO,RO

;ALL DONE?

:BR IF NOT
+SET UP DRV11B VECTOR ADRS POINTER

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
INITIALIZE THE COMMON TAGS

07-MAY-85

CVDRAC P11
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601

6602
6603

002042
002046
002052
002054
002060
002064

013701
042701
010120
062701
022700
001372

001244
170000

MOV
8IC
SETUP3: MOV
ADD

000002
001534

.SBTTL

002066
002072
002074
002100
002104
002106
002114
002116
002124
002126
002130
002132
002140
002140
002142
0C2150
002156
002164
002172
002200
002206
002214
002220

002220
002224
002230
002236
002240
002246
002252
002256
002262
002264

005227
001052
104401
005737
001012
123727
001406
023727
001005
104406
000403
112737
000427
046600
041455
041455
030526
040515
051105
042040
100040
002220

152777

012637
012637
005737
001002
104401

®DRVCT2+2,R0O

sALL DONE?

BNE
SETUP3
TYPE PROGRAM NAME
INC

o-1

BNE

002142

.SBTTL

000042

644

1BR IF NOT

s 3sFIRST TIME?

3 sBRANCH IF NO

TYPE
,65%
:sTYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
8642
$3ARE WE RUNNING UNDER XXDP/ACT?
BNE
663
1 sBRANCH IF YES

CcMPB

000001

$ENV, 01

:sARE WE RUNNING UNDER APT?

BEQ
CMP
BNE
S;SHR

663
SWR, #SWREG
674
ave

s sBRANCH IF YES
+ s SOFTWARE SWITCH REG SELECTED?
$ sBRANCH IF NO
:3GET SOFT-SWR SETTINGS
+3SET AUTO-MODE INDICATOR

001140

000176

000001

001134

gg::

MOVB

#1,3AUTOB

026504
042126

030461
040522
051104

65¢:

BR
.ASCIZ

644
:sGET OVER THE ASCIZ
<CRLF>&MD-11-CVDRA-C
DRV11B DMA INTERFACE DIAG

041061
044440
040506
040511

000010
000012
002246
000200
000012
000010
001540

3
H
}
H

000010

176672

.EVEN

INC
BNE
CMPB
BEQ

o-1
100
@1, $AUTOB
1004

MOV
MOV

8010,-(SP)
8012,-(SP)

MOV

€1004,8¢610

MFPT

1008:

014567

BISB

#B8IT07,8SWR

MOV
MOV
TST
BNE
TYPE

jitktdstbbbb

(SP)+,8012
(SP)+,8010
CORSZ
CORSZR
+WARN
bbb

;sFIRST PASS?
;00001 INSTRUCTIONS
;BRANCH IF NO
;0D001 NO LONGER
sMANUAL INTERVENTION PERMITTED? ;DD001 NECESSARY
:BR IF NO
;00001

:SAVE ILLEGAL INSTRUCTION
;TRAP VECTOR

;00001
;00001

;IF CPU TYPE IS 11723

;00001

012700
012737
005720
000776
042700
010037

PiRAAAAAS

020000
002306

017777
001540

000004

CORSZR: MOV
MOV
14:
TST
BR
24:
BIC
MOV

EAE

;00001

;THEN SET BIT 7 IN SWREG

bbbttt bvhnmn
L LI T I LTI T
tad
EET TE PP TY T

000440040405 000000 0000000000000

#20000,R0
924, 90ERRVEC
(RO«
14
€17777,R0
RO,CORSZ

;00001

;AND RESTORE TRAP VECTOR
;00001
:
;00001
;TEST IF FIRST PASS
;:BR IF NOT
;TELL THE OPERATOR TO TURN OFF DMA REFRESH

iLET'S SEE HOW MUCH MEM WE HAVE

002270
002274
002302
002304
002306
002312

&<CRLF>

052116
042503
020107

644:

013746
013746
012737

:GET BASE VECTOR ADRS
sCLR OUT PRIORITY BITS
'
sPOINT TO NEXT

:3TYPE THE NAME OF THE PROGRAM IF FIRST PASS

17777

001214

PAGE 62-10
SEQ 0019

$VECT1,R1
#170000,R1
R1,(RO).
#2,R1

cMP

09:37

FFPYPS

00000000044

tUSE RO TO LOOK
+SET UP TIME OUT RETURN ADRS
:TAKE A LOOK
sUNTIL TIMEOUT
;POINT TO 1ST NON-EXSISTANT 4K BLK
:SAVE FOR LATER

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046) O07-MAY-85
07-MAY-8S 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11
6629
6630
6631
6632
6633
6634

6635
6636
6637
6638
6639

6640
6641
6642
6643
6644
6645

002316
002324
002332
002340
002346
002354

002356
002364
002366
002372
002376

002402
002410
002414
002416
002424

012737
012737
012737
013737
042737
001406

032737
001002
000137
106427
012706

013737
013700
006300
013760
000005

000006
015364
000000
001252
177400

000004
001542
001206
001536
001536

000001

001536

007660
000200
001100
001206
001206
001520

001204

. 6682
6683
6684

MOV
MOV
ASL
MOV
RESET

P35

002426
002430
002436
002444
002452
0C2460
002464
002470
002476
002502
002506
002512
002514
002516
002520
002522
002524
002526
002530

002444
000001

000001
002506
001124
001126
002524
001520
000004
001122

001106
001200
001192
001110

TST1:

3$:
$i 08820

RERR

10$:

000004
14:

24:
000006

000004

s#TEST 2
002536
002540
002546
002554
002556
002564
002572
002600
002606
002610
002612

002616

002620
002622

000004
012737
013737
005000
012737
013777
017737
023737
001401
104002
005137

005100

001361
006337

002564
001520

001110
001122

177776
001124
176722
001124

001124
176726
001126
001126

001124

<NOP>
MOV
MOV
MOVB
MOV
CLR
CLR
MOV
MOV
MOV
MOV
TST
TST
DEC
BEQ
BR
CMP
ERROR
MOV

TST2:

1%:

2¢:

COM

BNE
ASL

;RESTORE VECTOR

sGET THE @ & POSITION OF DRV118'S

RESTRT
01, DMAP
RESTRT
NXDEV1
9200
#STACK, SP
SUNIT,$DEVCT
SUNIT, RO

1GO CONTINUE AS IF SOMETHING WAS SELECTED
;IS 1ST DRVi18 SELECTED?
i8R IF SO
iNO - GO ADVANCE BASE DRV118 ADDRESSES
sSET PRIORITY TO HIGHEST LEVEL
sALMAYS RESET STACK PTR
;LOAD APT COUNTER
iMAKE AN INDEX

DRVMCR, $DDWOCRO)

sSAVE THE BUS ADDRESS
+INITIALIZE DRV11B BEFORE TESTING

;UP TO 8 ONLY

s+ VALUE

080880288804 0088888888 80080000 000000044

TEST THAT ALL DRV11B REGS ARE ACCESSIBLE

0004040004804 80884800080088 0888888000 0000 00800000

€104, $LPADR

+3SET SCOPE LOOP ADDRESS

#1,4TESTN

+3:SET_TEST NUMBER IN APT MAIL BOX

@1,8TSTNM
14, SLPERR
$GDDAT
$BDDAT
924, BOERRVEC
DRVWCR,RO
o4 ,R1
RO, $BDADR
(RO)
(RO)+

+SET TO TEST #1
:SET UP SCOPE LOOP ADRS
sNO DATA COMPARE
iNO DATA COMPARE
+SET UP TIMEOUT RETURN ADDRS
+SET UP 1ST DRVi1 BUS ADRS
:SET UP REG COUNT
:SET UP CURRENT DRV BUS ADRS
:SEE IF THERE
:BUMP TO NEXT

R1
34
14

sCOUNT 4 OF THEM
1BR IF ALL DONE
s TRY NEXT

(SP)+,(SP)+

sFIX STACK SINCE NO RTI

1
1BUS ADRS INDICATED DID NOT RESPOND
@ERRVEC+2,80ERRVEC
;RESTORE LOC 4
A

0040080000084

00 000000000000 00 000000000000ttt 0ts

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

ettt ttnnnds et L T

SCOPE
MOV
MOV
CLR
MOV
MOV
MOV
CHP
BEQ
ERROR
COM

SEQ 0020

$DEVM, DMAP

88000044 0804004408000

PSR RE

000240
012737
012737
112737
012737
005037
005037
012737
013700
012701
010037
005710
005720
005301
001403
000771
022626
104001
012737

PAGE 62-11

sINITIALIZE TO LOWEST 4K
:SET UP UNIT COUNT

0177400,0MAP

s#TEST 1

6669

6670
6671
6672
6673
6674
6675
6676
6677
6678°
6679
6680
6681

OERRVEC+2, 90ERRVEC

#0BUF , DBUFP
00, SUNTT

BIT
BNE
JHP
RESTRT: MTPS
MOV

001260

6646

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656 6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668

MOV
MOV
MOV
MOV
8IC
BEQ

09:37

T T T

014, SLPERR
ggVHCR + $BDADR

@-2, $GDDAT
$GDDAT, 8DRVWCR
SDORVHWCR, $BDDAT
$GDDAT, $BDDAT

24
2

$GDDAT
RO
14
$GDDAT

Y Y

T TTTTTTYTY

:SET UP SCOPE LOOP ADRS
:SET UP WC REG ADRS
;RO SAYS SHIFT PTRN WHEN 0
;FLOAT O RIGHT TO LEFT
;LD WC
;sREAD IT BACK
;:CORRECT?
:BR IF SO
:WORD COUNT WRITE/READ FAILURE
;COMPELEMENT ZERO
;RO SAYS SHIFT LEFT WHEN = 0
sTRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT

MI%C;!{-CMA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
CVDRAC.P1
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

002626
002632

005237
103754

INC

001124

$GDDAT

8CS

09:37

PAGE 62-12

SEQ 0021

+KEEP LSB SET

sAGAIN TILL ALL PATRNS DONE

PIASASESEE00444400000000008884880800004880888884

888088888800888808

;#TEST 3

002634
002636

002652
002654
002670
002676
002704

002712
002714
002716
002722
002730
002732
002734
002740
002742
02750

000004
012737
013737

012737
013777
017737
042737
023737
001401
104002
005137
042737
005100
001353
006337
103004
062737
000744

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

PISAR0AR0E04400404000004808004044004044084

002662
001522

001110
001122

177774
001124
176626
000001
001124

001124
176632
001126
001126
001126

001124
000001

001124

TST3:

1%:

MOV
MOV
CLR
MOV
MOV
MOV

@14, SLPERR
DRVBAR,$BDADR
RO
-4, $GDDAT
$GDDAT,80RVBAR
SORVBAR, $BDDAT

;LD BA
;READ IT BACK

CMP

$GDDAT, $BDDAT

;CORRECT?

BIC

2%:

#8IT00,$BDDAT

PSRN

:BR IF SO
1BUS ADRS WRITE/READ FAILURE

BIC

8IT00,$GDDAT

;BIT 00 NOT INVOLVED

$GDDAT

COM
BNE
ASL

RO
14
$GDDAT

ADD
BR

@2, $GDDAT
14

TST4

AREAARAAAEAAAE

;#«TEST 4
[

6727
6728

6731
6732
6733
6734
6735
6736
6737
6738
6739
6740

000004
012737
013737
005000
012737
013777
017737
023737
001401
104002
005137
005100
001361
006337
005237
103754

003000
001526

001110
001122

177776
001124
176514
001124

001124
176520
001126
001126

001124

Bttt

TST4:

bniatad

SCOPE

MOV
MOV
CLR

MOV
MOV
MOV
CMP

1%:

24:

sRO SAYS SHIFT LEFT WHEN = 0
s TRY THE COMPLEMENT IF RO NOT 0
sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT

s sNEXT TEST IF BIT 1S DONE

+KEEP ADDR LSB SET
sAGAIN TILL ALL PATTERNS DONE

4000005440000

440030008085 0000004000000 00040 4

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

LI L

LT T LT
P PP P PP PP

214, SLPERR
DRVDBR, $BDADR

+SET UP SCOPE LOOP ADRS
;SET UP DB REG ADRS

©-2, $GDDAT
$GDDAT,80RVDBR
SDRVDBR, $BDDAT
$GDDAT, $BDDAT

tFLOAT O RIGHT TO LEFT
;LD DB
;READ IT BACK
;CORRECT?

;RO SAYS SHIFT PTRN WHEN 0

24
2

COM

sRO SAYS SHIFT LEFT WHEN = 0

ASL
INC
BCS

$GDDAT
$GDDAT
14

;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
+KEEP LSB SET
sAGAIN TILL ALL PATRNS DONE

COM

001124

:COMPLEMENT ZERO

BEQ
ERROR

BNE

001124

;DON'T WANT BITOO

24
2

8CC

001124

+SET UP SCOPE LOOP ADRS
;SET UP BA REG ADRS
3RO SAYS SHIFT PTRN WHEN 0
sFLOAT O RIGHT TO LEFT

BEQ
ERROR

COM

001124

000002

000488888880848080088444

SCOPE

$GDDAT

:BR IF SO
iDATA BUFFER WRITE/READ FAILURE (LOOP BACK)

sCOMPLEMENT ZERO

sTRY THE COMPLEMENT IF RO NOT 0

PISSRA
0044000
AA
400004
ES
00 08000000
AAAA
88000 00000000
AA
00
0
044

:#TEST S5
PSSR

000004
013700
010037
005010
012737
012737
153760

TSTS:

001526
001122

1771177
077776
001126

001124

001126
000001

TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE

EEREALAAA404

SCOPE

MOV
MOV
CLR
MOV
MOV

BISB

400040000005 00044800 0404000000000

DRVDBR,RO
RO, $BDADR
(RO)
©177177,$GODAT
€77776,$BDDAT
$BDDAT,1(RO)

:GET DB REG ADRS
+SET UP DB REG ADRS
+ZERO DATA BUFFUR REG
;LD EXPECTED
;SEND DATA FROM “BDDAT*
;LOAD HI BYTE DB

00 0040040

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046) O07-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751

6752

6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796

003106
003112
003116
003124
003126

153710

011037
023737
001401
104002

001127
001126
001124

8158
MOV
CMP

001126

BEQ
ERROR
H ittt

et I

:#TEST 6
003130
003132
003140
003144
003152
003160
003166
003170
003176
003200
003206
003210
003216
003224
003226
0C3234
003236
003244
003246
003254

000004
012737
005037
012777
012777
012777
000005
017737
001404
013737
104003
017737
042737
001404
013737
104003
017737
001404
013737
104003

LRI

PAGE 62-13
SEQ 0022

;LOAD LO BYTE DB
sREAD IT BACK
sCORRECT?
; sNEXT TEST IF SO
;DATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG

$BDDAT+1,(RO)

(RO), $BDDAT
$GDDAT, $BDDAT
;STG
LI E LRI

09:37

P IR T

PP PP

Py P

PP YYY Y Y

TEST THAT RESET CLEARS WORD COUNT, BUS ADDRESS & DATA REGS

11000888000 0000000048888 848008004880 4440400480884884880808880888804844

TST6:

SCOPE

000010
001124
177777
177776
177777

001160

176346
176342
176340

€10, $TIMES
$GDDAT
#-1,80RVHCR
@-2,80RVBAR
€-1,80RVDBR

176324

001126

SQRVUCR.OBDOAT

001520

001122

gRVHCR.OBDADR

176306
000001

001126
001126

001522

001122

176264

001126

001526

001122

14:

MOV

SDORVBAR, $BDDAT
OEITOO.‘BODAT
2
gRVBAR.OBDADR

2%:

MOV

SORVDBR, $BDDAT
TST7
gRVDBR.OBDADR

1300 10 ITERATIONS
;LD EXPECTED
sSET ALL BITS - WC REG
+SET ALL BITS - BUS ADRS REG
+SET ALL BITS - DB OUT REG
;00 A BUS RESET
tREAD WC REG
:BR _IF CLRED
1SET UP WC REG ADRS
sRESET FAILED TO CLR WC REG
sREAD BUS ADRS REG
sDON’'T WANT BITTOO
1BR IF CLRED
+SET UP BA REG ADRS
sRESET FAILED TO CLR BUS ADRS REG
sREAD DATA BUFFER REG
s sNEXT TEST IF CLRED
:SET UP DB REG ADRS
tRESET FAILED TO CLR DATA BUFFER OUT REG

38888884 VA48 8 0848848440550 08 000800000000 00 00000000 d0 00 bbbk bbta st

:#TEST 7

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

D bt
L L T T T
P
TYYY
T

003256
003260
003266
003272
003276
003300
003306
003314

003320
003324
003332
003336
003344

003352
003360
003362
003364
003370
003372
003374
003376
003412

000004
012737
106427
004537
003374
013737
013737
012700
010037
042737
010077
017737
042737
023737
001401
104002
062700
001353
000413
022626
052737
017737
042737

000010
000200
010076

001160

003320
001524
160000
001124
167201
176166
176162
007200
001124

001110
001122
001124

14:

SCOPE

MOV

001126
001126
001126

000002

000200
176114
007000

TST7:

001124
001126
001126

€10, $TIMES
9200
RS,SETVEC

14, $LPERR
DRVCSR, $BDADR
€160000,
RO
RO, $GDDAT
167201, $GDDAT
RO,8DRVCSR
SDRVCSR, $BDDAT
#7200, $BDDAT
$GDDAT, $BDDAT

24:

ADD

34:

cMP

24
IS

#2,R0

(SP)+,(SP)+

€200, $GDDAT

SDRVCSR, $BDDAT

€7000, $BDDAT

+:00 10 ITERATIONS
:DON’'T WANT ANY INTRS
:SET UP INTR RETURN ADRS IN CASE
sRETURN TO 34 ON ILLEGAL INTR
+SET UP SCOPE LOOP ADRS
:SET UP CSR ADRS

sSTART AT O - HI BITS FOR NOISE
;LD EXPECTED
tMASK TO WRITEABLE BITS
iLD CSR
sREAD IT BACK

:DON'T LOOK AT STAT & RDY BITS
sCORRECT?
:BR IF SO
5
sCONTROL/STATUS REG WRITE/READ FAILURE
sADVANCE COUNT PATTERN
sWRITE NEXT PATTERN IF NOT ALL TESTED
;GO RESTORE VECTOR
sFIX STACK - SHOULD NOT HAVE INTR'ED
:CORRECT EXPECTED
:READ CSR
sDON'T WANT 'STAT' BITS

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6797
:;:

003420
003422

07-MAY-85 09:22
104005
004737

010116

4%:

6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
ag

003426
003430
003436
003444
003452
003460
003462
003470
003476
003500

000004
012737
013737
012737
012777
000005
017737
023737
001401
104003

003502
003504
003510
003514
0C3516
003524
003532
003540
003544
003550
003556
003560
003562

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

000010
001524
000200
177776
176036
001124

001160
001122
001124
176044

6837

6838
6839
6840

6841

6842

6843
6844
6845
6846
6847

003564
003566
003574

003602

003610
003614
003620

003626

003634

003642
003644
003646
003654
003660

000004
012737
013737

012737

TST11:

001524
001122

010300
040020
001126
001127
001126
001124

001124
001126
000001
001126

1%:

6852

003662

003614
001524

007000

023737

001124

6849
6850
6851
000004

S
PC,RSTVEC

PAGE 62-14

+CPU FAILED TO LOCK OUT DRV118 INTR REQ
1GO RESTORE VECTOR

SCOPE
MOV
MOV
MOV
MOV
RESET
MOV
CHP
BEQ
ERROR

010, $TIMES
DRVCSR,$BDADR
9200, $GDDAT
#-2,80RVCSR

SDRVCSR, $BDDAT
$GDDAT, $BDDAT
TST11
3

1300 10 ITERATIONS
;SET UP CSR ADRS
iLD EXPECTED
;LD ALL CSR BITS

100 A BUS RESET
;READ CSR
;CORRECT?

+ sNEXT TEST IF CSR CLRED & READY SET

+RESET FAILED TO SET UP THE CSR

SCOPE
MOV
MOV
CLR
MOV
MOV
B8ISB
B8ISB
MOV
CMP
BEQ
ERROR
CLR

DRVCSR,RO
RO, $BDADR
(RO)
10300, $GDDAT
©40020, $BDDAT
$BDDAT,1(RO)
$BDODAT+1,(RO)
(RO), $BDDAT
$GDDAT, $BDDAT
13
2
(RO)

sGET CSR ADRS
+SET UP CSR ADRS
+ZERO CSR
;LD EXPECTED
;SEND DATA FROM "BDDAT” - USE MAIN + IE
sLOAD HI BYTE CSR
;LOAD LO BYTE CSR
sREAD IT BACK
;CORRECT?
1BR IF SO
iDATA ERROR ON BYTE ADDRESSING THE CSR
+ZERO CSR BEFORE ADVANCING

PSR
ARAAREEAA0000400 4040400040800 04000008040804088808000080848044
;#TEST 12
TEST THAT THE 3 “FNCT” BITS CONTROL THE 3 “STAT* BITS (COUNT PTRN)
PiSESSAAERAAAA0EA0000044000000044080044888080048840400000004800044

000016
175704
175700

001401
104004
162737
162700
100355

ERROR
JSR

09:37

PSSR SRLALAE04004004040084080048804080400400800804880888800888004844
soTEST 11
TEST THAT THE CSR IS BYTE ADDRESSABLE
P800
040444004004 08000080840808844888008884800008000000004044

012700
010077
017737

042737

TST10:

001126
001126

6831
6832
6833
6834
6835
6836

O07-MAY-85

11888888088040484440040000408884880800808440008044840804480808080844
+#TEST 10
TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR
PIR00A0E0E0040440804040885888884404400080000880888808088888084804

6814
6815
6616
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
::23:

MACY11 30(1046)

GET VALUE FOR SOFTWARE SWITCH REGISTER

170777

001000
000002

001110
001122

TST12:

001124

001126
001126
001126
001124

SCOPE
MOV
MOV
MOV

1%:

MOV
MOV
MOV
8IC

CMP

2%:

BEQ
ERROR
SuB
SuB
BPL

014, SLPERR
DRVCSR,$BDADR
#7000, $GDDAT
16,R0
RO,8DRVCSR
SDRVCSR, $BDDAT
170777, $BDDAT
$GDDAT, $BDDAT
2
4
1000, $GDDAT
2 ,RO
13

+SET UP SCOPE LOOP ADRS
;SET UP CSR ADRS
;LD EXPECTED

sRO_CONTAINS “FNCT” BITS WRITTEN
sWRITE INTO “FNCT” BITS
;READ BACK THRU “STAT* BITS

;MASK TO “STAT* BITS ONLY

;CORRECT?

i8R IF SO
1+ “FNCT” BITS FAILED TO SET “STAT” BITS (LOOP BACK)
sCHANGE TO NEXT EXPECTED
sDECREASE COUNT PATTERN
iD0O AGAIN UNTIL O TESTED

PSR SRANAL404444000804484000000004000800888888880080400084848
s#TEST 13
TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0
PISEASAER
000000440
EAR
400 0808408480
AAA
0008400000
L40
8480000000
000
0048

TST13:

SCOPE

SEQ 0023

——

MAINDEC-11-CVDORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
::;g

003664
003672
003676
003700
003706
003714
003722
003726
003730
003736
003744
003746
003754
003756
003760
003762
003770
003772
003774
003776
004004
004012
004014
004016

07-MAY-85 09:22
012737
106427
000005
012777
013737
012737
106427
021616
012777
052777
021616
017737
104005
000417
022626
017737
104005
000411
022626
017737
023737
001401
104005
004737

000010
000200

003760

001160

175622

001524
000300
000000

001122
001124

003774
000100

175572
175560

175552

001126

175536

001126

175522
001124

001126
001126

010116

6894
sg

004022
004024
004030
004036
004042
004050
004056
004064
004066
004070
004076
004104
004112
004120
004122

000004
106427
013737
005037
012777
017737
023737
001401
104006
052777
012737
017737
023737

001401
104006

004124
004126
004134
004142
004150
004154
004162
004170
004172

000004
012777
013737
012737
005077
017737
023737
001401
104002

07-MAY-85

2¢:

MOV
MTPS
RESET
MOV
MOV
MOV
MTPS
CHP
MOV
BIS
cHP
MOV
ERROR
BR
CMP
MOV
ERROR
BR
CHP
MOV
CMP
BEQ
ERROR
JSR

#10, $TIMES
9200

#14,80RVCTO

DRVCSR,$BDADR
€300, $GDDAT
0
(SP),(SP)
#24,80RVCTO
#8IT6,80RVCSR
(SP),(SP)
SDRVCSR, $BODAT
S
34
(SP)+,(SP)+
SDRVCSR, $BDDAT
S
33
(SP)+,(SP)+
SDRVCSR, $BDDAT
$GDDAT, $BDDAT
34
S
PC,.RSTVEC

09:37

PAGE 62-15

1300 10 ITERATIONS
sDONT WANT INTR YET
sSET THE READY FLAG BY INIT
+SET UP PREMATURE INTR RETURN ADRS
;SET UP CSR ADRS
sLD EXPECTED (READY + IE)
sALLOW AN INTR
s STALL
+SET UP EXPECTED INTR RETURN ADRS
;ENABLE THE EXPECTED INTERRUPT
s STALL
;GET THE CSR
sREADY FAILED TO CAUSE AN INTERRUPT
1GO RESTORE VECTOR
+SHOULD NEVER GET HMERE - IE NOT WORKING?
;GET THE CSR
sREADY INTERRUPTED WITHOUT THE IE BIT
1GO RESTORE VECTOR
sFIX STACK SINCE NO RETURN
;READ STATUS
;CORRECT?
1BR IF SO
s INCORRECT STATUS ON READY INTR
1GO RESTORE VECTOR

1i000080844000004040404040448848840804040800004080884088888888888844
;¢TEST 14
TEST THAT GO CLRS READY & FNCT 2 WILL SET IT
PiE000800040000080040804880880040800088088880888808888888048048844

TST14:

000200
001524
001124
000001
175450
001124

175454
001126
001126

000004
002204
175414
001124

175426
001124
001126
001126

001122

14:

SCOPE
MTPS
MOV
CLR
MOV
MOV
CHP
BEQ
ERROR
BIS
MOV
MOV
CMP
BEQ
ERROR

6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908

1%:

34:

6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893

MACY11 30(1046)

GET VALUE FOR SOFTWARE SWITCH REGISTER

9200
DRVCSR,$BDADR
$GDDAT
#1,8DRVCSR
SDRVCSR, $BDDAT
$GDDAT, $BDDAT
14
6
4 ,80RVCSR
92204, $GDDAT
SDRVCSR, $BDDAT
$GDDAT, $BDDAT
TST15
6

sDONT WANT ANY INTRS
;SET UP CSR ADRS
sEXPECT 0
+SET GO WHICH SHOULD CLR READY
;READ THE CSR
;CORRECT?
18R IF SO
sTHE GO BIT FAILED TO CLR READY
sFNCT 2 SHOULD SET READY
1LD EXPECTED
;GET CSR
;CORRECT?

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

11888888 000808048000088080848888048800004880008084848888888888808488448
1#TEST 15
TEST THAT READY CONTROLS ‘BAR‘' BITO0
11880808080408088088000000008488484484800800088888008888888888008808804

000004
001522
000001
175346
175342
001124

175370
001122
001124

001126
001126

TST1S:

SCOPE
MOV
MOV
MOV
CLR
MOV
CcHP
BEQ
ERROR

#4 ,80RVCSR
DRVBAR,$BDADR
@1, $GDDAT
SORVBAR
SORVBAR, $BDDAT
$GDDAT, $BDDAT
13
2

1SET READY
;SET UP BAR ADRS
1EXPECT LSB OF BAR
:CLR BAR
;READ BAR
;CORRECT?
i8R IF SO
+A00 FAILED TO READ A ONE(SB TIED TO RDY)

SEQ 0024

——————

m—

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046) O7-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11

004174
004202
004210
004212
004216
004220

012777
017737
001403
005037
104002
012777

000001
175314

175322
001126

14:

#1,80RVCSR
zm.BAR, $BDDAT

001124
000004

$GDDAT

175276

24:

4 ,80RVCSR

—

09:37

—

PAGE 62-16

+SET GOCCLRS BAR BITO00)
sREAD BAR
1BR IF ZERO
;EXPECTED ZERO
sWHEN RDY CLRED-AOO FAILED TO READ A ZERO
sINSURE RODY SET BEFORE ADVANCING

$11888880404048488448488088800882884888888840488004088088488008

s#TEST 16

480008888888

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

11880808880084000408000040800088888080800808888080800880

000004
013737
012737
013777
012777
012777
017737
023737
001401
104017
042777
012737
017737
023737
001401
104002

001122
001124
175254
175244
175240
001126
001126
175210
001124
001126
001126

TST16:

SCOPE
MOV

808008088884

DRVDBR, $BDADR

9125252, $GDDAT
$GDDAT , SORVDBR
#400,80RVCSR

#52525, 80RVDBR
SORVDBR, $BDDAT

$GDDAT, $80DDAT
1%
17
#400,80RVCSR
952525, $GDDAT
SORVDBR, $BDDAT
$GDDAT, $BODAT
;STI.?

1%:

+SET UP DBR ADRS
1LD EXPECTED
sLD DBR WITH #125252
+SET CYCLE - SHOULD CLK DBR CIN)
sCHANGE DBR (OUT) DATA - SHOULD NOT AFFECT CIN)
sREAD DBR
sCORRECT?
18R IF SO
sCYCLE DID NOT LATCH DBR CIN) DATA
sREMOVE CYCLE

sNOW EXPECT #52525
sREAD DBR
1CORRECT?
1 sNEXT TEST IF SO
1DBR FAILED TO READ WHEN CYCLE CLRED (NORMAL)

118888884088448448848848480848408048884888888080802804888888888

1 TEST 17

80848808888888

TEST SINGLE “"DATI” NPR TRANSFERS (FLOATING O COMPLEMENT PATRN)

J18888084408000408008000008808448848888880844804088880

004366
010076

001110

TST17:

SCOPE

000101
000400
000000
001524
000700

175056
000100

#14, SLPERR

RS,SETVEC

177776
177777
015364
015364

8888888808880844

.'2.”

175124
175120

175110
175102
001122
001124
001126
175046

14:

MOV

'#-1,8DRVNCR

#0BUF , GORVBAR
RO, DBUF

€101 ,80RVCSR
#400,80RVCSR
0

DRVCSR, $8DADR

€700, $GDDAT
SDRVCSR, $BDDAT
gxoo +8DRVCSR
44

010142

(SP)+,(SP)e
RS,CKSTAT
7
4%

10
43

+SET UP SCOPE LOOP ADRS
1GO_SET UP INTERRUPT RETURN
tRETURN TO 24 ON INTR
tFLOAT ZERO RIGHT TO LEFT

1R1 CONTROLS DATA SHIFTING
100 ONE XFER
$GET DATA WORD FROM “DBUF*

1SET UP MEM DATA
+SET IE & GO
+SET CYCLE
1ENABLE THE INTR
1SET UP CSR ADRS
1LD EXPECTED

tREAD THE CSR
iCLR IE
sWCO FAILED TO INTERRUPT (CHECK FOR NCO)
1GO RESTORE VECTOR

+INTR RETURNS HERE - FIX STACK SINCE NO RTI
1GO CHECK STATUS
1CSR STATUS EXPECTED
1® OF XFERS
tRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
1GO RESTORE VECTOR
sRETURN HERE IF WC ER - EXPECTED O
1GO RESTORE VECTOR

MAINDEC-11-CVORA-C
118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046) O7-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTMARE SWITCH REGISTER

6965
6966
6967
6968
6969
6970

6971
6972
6973
6974
6975

004504
004506
004510
004516
004522
004530
004536
004540

104011
000427
012737
010037
017737
023737
001405
013737
104012
000406
005100
005101
001303
006300
005200
103700
004737

015364

001120

175000
001124

001126
001126

001526

001122

001124

010116

4%:

§§2§Z§§’§§§3§§§’§

CVDRAC.P11

11
a4

Q0BUF, $GDADR
RO, $GDDA
SDRVDBR, $8DDAT
;o‘zoon + $BDDAT

PC.RSTVEC

09:37

PAGE 62-17

sRETURN HERE IF BAR ER - SHOULD = DBUF+2
160 RESTORE VECTOR
sRETURN HERE IF OX - SET UP XFER ADRS
;LD EXPECTED
sREAD DATA XFERED
1CORRECT?
sBR IF SO
+SET UP DBR ADRS
tDATA ER - DBR CONTAINS WRONG DATA
160 RESTORE VECTOR
sRETURN HERE ON GOOD DATA - NOW COM PATRN
sKEEP TRACK OF COMPLEMENT
100 COMPLEMENT OF THIS FLOATING ZERO IF O
tWAS DONE - NOW SHIFT ZERO LEFT
sKEEP LSB SET
sAGAIN TILL ZERO BIT IN CARRY

160 RESTORE VECTOR

110808084084848488880884840848040848484888880808008888486084888

1¢TEST 20

000004
012737

800008888888

TEST SINGLE “DATO” NPR TRANSFERS (FLOATING O COMPLEMENT PATRN)

118680408848048040084008008000840888080848040808800080888800880

004616
010076

001110

TST20:

177776

177777

015364
174670
000103

000000
001524
001702
174626

SCOPE
MOV

008808484848

014, ILPERR

RS,SETVEC

.‘20”

174674
174670
174660

1s:

Rl #-1,8DRVUCR
#0BUF , BORVBAR
RO, BORVDBR
103 ,80RVCSR

174652

200 +8DRVCSR

001122
001124
001126

DRVCSR, $BDADR
#1702, $GDDAT
SORVCSI + $BDDAT
44

(SP)+,(SP)«
RS,.CKSTAT

010142

1SET UP SCOPE LOOP ADRS
1GO_SET UP INTERRUPT RETURN
tRETURN TO 24 ON INTR
sFLOAT ZERO RIGHT TO LEFT
1R1 CONTROLS DATA SHIFTING
100 ONE XFER
tWRITE DATA WORD TO “DBUF*
+SET UP DATA IN DBR
+SET IE, GO & FNCT1 (C1 CONTROL)
1SET CYCLE
1ENABLE THE INTR
1SET UP CSR ADRS
1ILD EXPECTED
1READ THE CSR
1MCO FAILED TO INTERRUPT (CHECK FOR WCO)
1G0_RESTORE VECTOR
+INTR RETURNS HERE - FIX STACK SINCE NO RTI
160 CHECK STATUS
1CSR_STATUS EXPECTED
1# OF XFERS
tRETURN HERE IF STATUS ER - EXPECTED STAT C,
1CYCLE, READY, IE & FNCT 1
1GO_RESTORE VECTOR

tRETURN HERE IF WC ER - EXPECTED 0
1GO _RESTORE VECTOR
tRETURN HERE IF BAR ER - SHOULD = DBUF+2

015364

001120

001124
015364
001124

001126
001126

001526

001122

1GO_RESTORE VECTOR

sRETURN HERE IF OK - SET UP XFER ADRS
1LD_EXPECTED
1GET DATA XFERED

1DATA ER - MEM CONTAINS WRONG DATA

e ———

MAINDFC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11

7021
7022
7023

004772
004774

000406
005100
005101
001306
006300
005200
103703
004737

BR
COM
coM
BNE
ASL
INC

010116

8CS
JSR

RO
R1
13
RO
RO
14
PC.RSTVEC

09:37

PAGE 62-18

SEQ 0027

1GO RESTORE VECTOR
tRETURN HERE ON GOOD DATA - NOW COM PATRN
tKEEP TRACK OF COMPLEMENT
100 COMPLEMENT OF THIS FLOATING ZERO IF 0
sCOMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT
+KEEP LSB SET
sAGAIN TILL ZERO BIT IN CARRY
1GO RESTORE VECTOR

1100008080848 848088808000004000000888088800848800448000008800888884

soTEST 21

TEST 200 “DATI” NPR TRANSFERS (BURST MODE)

11006000000000000000000008088800000000400080000088408000888048808840

000010
010076

010322
177470
015364
000000

000101
000400
001524
000700

174412
00010C

001160

016202
070707

7061

7065

€-200. ,80RVWCR

gflf + S8DRVBAR

€101 ,80RVCSR

#400,80RVCSR

001122
001124
001126

DRVCSR, $BDADR
€700, $GDDAT
SORVCSR, $8DDAT
gxoo.eoavcsa

174402

18:

174332
001124

001120
001124
001126
001126

001526

001122

€10, STIMES
RS,SETVEC

PC,LDBUF

174440
174432

010116
7069
7070
7071
7072
7073
7074
7075
7076

SCOPE
MOV
JSR

174454
174450

010142

7059

TST21:

cMP

24
(SP)+,(SP).
RS,CKSTAT

+300 10 ITERATIONS
1GO SET UP INTERRUPT RETURN
sRETURN TO 14 ON INTR

1GO LOAD BUFFER WITH COMPLEMENTING PATRN
sLOAD MC REG - WILL DO 200 XFERS
+SET UP CURRENT ADRS
;ENABLE THE INTR
+SET IE & GO
:SET CYCLE

$SET UP CSR ADRS
;LD EXPECTED
sREAD THE CSR
iCLR INTR ENABLE
sWCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS)

1GO RESTORE VECTOR
:INTR RETURNS HERE - FIX STACK SINCE NO RTI
:GO CHECK STATUS
:CSR STATUS EXPECTED
:® OF XFERS

7
+RETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
2%
;GO RESTORE VECTOR
10
;RETURN HERE IF WC ER - EXPECTED O
23
:GO RESTORE VECTOR
11
sRETURN HERE IF BAR ER - SHOULD = DBUF +620
24
:GO RESTORE VECTOR
®DBUF +616, $GDADR
;0K - SET UP LAST XFER ADRS WHERE €70707 SHOULD BE
70707, $GDDAT

S8ORVDBR, $BDDAT
;(‘500AT +$BDDAT
gvosa . $BDADR
28:

JSR

PC,RSTVEC

;LD EXPECTED
:DBR SHOULD HAVE LAST DATUM
:CORRECT?
:BR IF SO
:SET UP DBR ADRS
;DATA ER - DBR DID NOT CONTAIN EXPECTED LAST XFER
;GO RESTORE VECTOR

5008888888888 848884848888888088884800088808
0400000000
0880000
00048

;#TEST 22

005222
005224
005236
005240
005246

000004
012737
004537
005336
012777
012777

TEST 200 “DATO” NPR TRANSFERS (BURST MODE)

Fi08404000004800000008048888804840880804808040800080000804880808040

000010
010076

001160

177470
015364

174252
174246

TST22:

SCOPE
MOV
JSR
14
MOV
MOV

910, $TIMES
R5,SETVEC
€-200. ,8DRVWCR

#DBUF , SDRVBAR

::00 10 ITERATIONS
;GO SET1 UP INTERRUPT RETURN
;RETURN TO 18 ON INTR
:WORD WC REG - WILL DO 200 XFER'S
:SET UP CURRENT ADRS

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7111
7112
7113

7114

7115
7116
7117
7118
7119
7120
7121

7122
7123

7124
7125
7126
7127
7128
7129
7130
7131
7132

MACY11 30(1046)
O07-MAY-85
GET VALUE FOR SOFTWARE SWITCH REGISTER

07-MAY-85 09:22

005254
005262
005266
005274
005302
005310
005316
005324
005332
005334
005336
005340
005344
005346
005350

022626
004537
001702
000310
104007

005352
005354
005356
005360
005362
005364
005370
005372

000407
104010
000405
104011
000403
004737
104013
004737

012777

106427
012777
052777
013737
012737
017737

042777

104005

177377
000000
000103
000400
001524
001702
174202
000100

174244

001122
001124
001126
174172

MOV
BIS

#103,80RVCSR

#400, B0RVCSR

DRVCSR, $BDADR
1702, SGODAT

SORVCSR, $BDDAT
;IOO.CDRVCSR
2
(SP)+,(SP).
RS5,CKSTAT

1s:

BR
ERROR
010444

010116

2%:

SEQ 0028

#177377,80RVDBR ;THIS WILL BE WRITTEN TO MEM

000416

010142

PAGE 62-19

MOV

MTPS

174230
174222

09:37

JSR
ERROR
JSR

13
PC.RSTVEC

sENABLE THE INTR
+SET IE, FNCT 1 € GO
+SET CYCLE
+SET UP CSR ADRS
:LD EXPECTED
sREAD THE CSR
sCLR INTR ENABLE
sWCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS)
1GO RESTORE VECTOR
+INTR RETURNS HERE - FIX STACK SINCE NO RTI
;GO CHECK STATUS
iCSR _STATUS EXPECTED
1@ OF XFERS
;RETURN HERE IF STATUS ER - EXPECTED STAT C,
sCYCLE, READY, IE & FNCT 1
;GO RESTORE VECTOR
;RETURN HERE IF WC ER - EXPECTED 0
+GO RESTORE VECTOR
sRETURN HERE IF BAR ER - SHOULD = DBUF +620
:GO RESTORE VECTOR
;RETURN HERE IF OK - NOW GO CHECK DATA
sRETURN HERE IF DATA ER - DBR CONTAINS WRONG DATA
;RETURN HERE IF DATA CHECK OK - GO RESTORE VECTOR

500880880 888844880480080088888880800040048880888840

;o TEST 23
000004
012737
013737
004537
005530
012700
005037
012777
012777
106427
012777
052777
005201
001376
000240
005237
001375
012737
C17737
042777
104005
000407
022626
005300
001336
005737
001401
104014

0480808888888840

TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF

Fi0000000400000000004000080884800080808000000888

000010
001524
010076

001160
001122

000010
001126
177470
015364

174060
174054

000101
000400

174044
174036

TST23:

SCOPE

888800888000800000844

€10, STIMES

DRVCSR, $BDADR
R5,SETVEC

1¢:

€10,R0
$BDDAT
©-200. ,80RVWCR

gaur +8DRVBAR

Ss:

#101,8DRVCSR
#400,80RVCSR
R1

001126
000700
174010
000100

2%:
001124
001126
174000

3s:
001126

$BDDAT
2
€700, $GDDAT
SDRVCSR, $BDDAT
;IO0.0DRVCSR
43

(SP)+,(SP).
RO
1s

$BDDAT
a4
14

::00 10 ITERATIONS
:SET UP CSR ADRS
;GO SET UP INTR RETURN
;sRETURN TO 3% ON INTR
;00 EIGHT 200 WORD XFER'S
;USR $BDDAT AS A COUNTER
;00 200 XFERS (DATI'S)
;FROM DBUF
sALLOW AN INTR
;SET IE € GO
sSET CYCLE
;INCREMENT R1 -DDOO1
;00001
:START COUNTING - SHOULD NEVER GET HERE
sUNTIL 64K
;LD EXPECTED
;READ STATUS
;CLR IE
:NO INTERRUPT ON 200 DATI'S
;GO RESTORE VECTOR
sFIX STACK SINCE NO RTI
;DONE 8 TIMES?
:BR IF NOT
;SHOULD STILL BE ZERO

:BR IF SO

;BURST MD (SINGLE CYCLE=0) FAILS TO LOCK OUT CPU

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176

7177
7178
7179

7180
7181
7182
7183
7184
7185
7186
7187
7188

005546

004737

010116

JSR

PC,RSTVEC

09:37

PAGE 62-20

SEQ 0029

1GO RESTORE VECTOR

1300808008 880800000400048000048088884000000080040088880

;¢TEST 24
000004
012737
013737
004537
005702
012700
012737
012777
012777
106427
012777
052777
000240
005237
001375
012737
017737
042777
104005
000423
022626
005300
001340

022737
103401
104015
017737
012737
023737
001401
104007
004737

0000400088884484

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

11000000000 000000000000000000800000000000000088

1000010
001524

001160
001122

000010
000000

001126

010076

177470
015364
000000

000111
000400

173702 “18%:
173676

173636
000100

SCOPE
MOV
MOV
JSR
34
MOV
MOV
MOV

173666
173660

001126
004710

TST24:

173576
004710

2%:

001124

zaur . SDRVBAR

4
#4710, $GDDAT

SORVCSR, $BDDAT

glOO.GORVCSR

S
(SP)+,(SP)+
RO

001126

010116

#10,R0
0, $BDDAT

;BODAT

001124
001126
173626

001126
001124
001126

10, $TIMES

DRVCSR, $BDADR
RS,SETVEC

€111,80RVCSR
#400,80RVCSR

3s:
000000

0808080808808808808448

S$:

8CS
ERROR
MOV
MOV
cHP
BEQ
ERROR
JSR

14
€0, $BDDAT
4%

SORVCSR, $BDDAT
#4710, $GDDAT
$GDDAT, $BDDAT
S5
7

PC,.RSTVEC

+:00 10 ITERATIONS
:SET UP CSR ADRS
;GO SET UP INTR RETURN
;RETURN TO 38 ON INTR
sD0 EIGHT 200 WORD XFER'S
;USE $BDDAT AS A COUNTER
;D0 200 XFERS (DATI'S)
;FROM DBUF
:ALLOW AN INTR
sSET IE, FNCT3 & GO
:SET CYCLE
;FREEBEE
:START COUNTING
sUNTIL 64K - SHOULD INTR BEFORE OVERFLOW
;LD EXPECTED
;READ STATUS
;CLR IE
;NO INTERRUPT ON 200 DATI'S (WITH SINGLE CYCLE)
;GO RESTORE VECTOR
sFIX 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
sREAD STATUS
;LD EXPECTED
;:CORRECT?
:BR IF SO
:STATUS INCORRECT ON XFER WITH SINGLE CYCLE SET
;GO RESTORE VECTOR

Pi8080008040040008080004088840400880480800808800

s TEST 25

000004
012737
004537
006106
004737
012737
012737
106427
012777
013777
005477
012777
052777

013737
013737

04000000000008044

TEST THAT MAINT MODE CONTROLS FNCT BITS,

XFER DIR & SINGLE CYCLE

$i8888888488888488888080888888
0000880048828
0000 00 00000000
80808
044
0

000200
010076

010374
011702
000001
000000
015364
006116
173462
010101
000400
001524
006114

001160

TST2S:

SCOPE

9200, $TIMES

R5,SETVEC
006114
006116

173476
173466

173460
173452
001122
001124

PC,LDBUF
1
€11702,34
14:

1,44

#0
#DBUF
, SORVBAR

4% ,8DRVMWCR

S0RVWCR
©10101,80RVCSR
#400,8DRVCSR
DRVCSR, $BDADR
38,$GDDAT

::00 200 ITERATIONS
;GO SET UP INTR RETURN
;RETURN TO 2% ON INTR
;GO SET UP DBUF (SPECIAL COM PATTERN)
i3% CONTAINS EXPECTED STATUS
143 CONTAINS THE CURRENT XFER NO @ (MAX 8)
sALLOW INTR
:SET UP CURRENT ADRS
:GET XFER @
sNEGATE FOR WC
:SET UP MAINT, IE & GO
:SET CYCLE
+SET UP CSR ADRS
;LD EXPECTED
.

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216

7217
7218

7219
7220
7221
7222
7223
7224
7225
7226

7227

7228
7229
7230
7231
7232
7233
7234
7235
7236
7237
7238
7239
7240
7241
7242
?’gfi

MACY11l 30(1046)
07-MAY-85
GET VALUE FOR SOFTWARE SWITCH REGISTER

07-MAY-85 09:22

006066
006074
006102
006104
006106
006110
006114
006116
006120

022626
004537
011702
000001
104007

006122
006124
006126
006130
006132
006134
006142
006150
006152
006160
006164
006172
006174
0C6200
006202
006204
006206

000431
104010
000427
104011
000425
062737
032737
001403
012737
005237
022737
001307
004537
000010
104013
000240
004737

017737
042777
104005
000440

173432
000100

001126
173422

MOV
BIC
ERROR
BR

2%:

010142

34:
43:

001002
020000

006114
006114

010700
006116
000011

006114

006116

5s:

010512

010116

64:

SORVCSR, $BDDAT
glOO..ORVCSR
69

CMP
JSR
11702
1
ERROR

(SP)+,(SP)+
RS,CKSTAT

BR
ERROR
BR
ERROR
BR
ADD
BIT
BEQ
MOV
INC
CHP
BNE
JSR
10
ERROR
NOP
JSR

64
10
64
11
64
91002, 3¢
#8I713,34
S
€10700,34
43
011,44
13
R5,CKDAT1

13
PC,.RSTVEC

006212

006214
006222
006226
006232
006234
006242
006250
006254
006262
006270
006276
006304
006312
006320
006322
006324
006326
006334
006342
006350
006352

006360

P800

000004

012737
012700
004537
006324
012777
012777
106427
012777
052777
013737
012737
017737
042777
104016
000521
022626
017737
012737
023737
001405
013737

104016

000100
000002
010076

001160

177777
160000

173256
173252

TST26:
1%:

000000
000161
000400
001524
140760
173214
000100

173242
173234
001122
001124
001126
173204

173172
140760
001124

001126
001124
001126

001524

001122

24:

PAGE 62-21

SEQ 0030

sREAD STATUS
:DISABLE IE
sNO INTR ON XFER (IN MAINT MD)
:GO RESTORE VECTOR
sRETURN HERE ON INTR - FIX STACK SINCE NO RTI

1GO CHECK STATUS

+THIS LOCATION WILL CONTAIN EXPECTED STATUS
+THIS LOCATION WILL CONTAIN CURRENT XFER @ (MAX 8)
tRETURN HERE IF STATUS ER - WILL EXPECT
sMAINT, COUNT INCREASE OF FNCT & STAT BITS,
sCYCLE, READY & IE
;GO RESTORE VECTOR
sRETURN HERE IF WC ER - SHOULD BE 0
;GO RESTORE VECTOR
sRETURN HERE IF BAR ER-

:GO RESTORE VECTOR
sRETURN 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 BEE¥ DONE
:BR IF NOT
iNOW GO CHECK DATA
:@ OF XFER'S TO CHECK
sRETURN HERE IF DATA ER - (WITH MAINT SET)
;RESTORE VECTOR NEXT
:GO RESTORE VECTOR

bt tttatnnadtd sttt LI ITTETE T Ty T

:#TEST 26

09:37

P PP

PP PP

PPPPs

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

040444040408 0408 048858040000 080884888008400000888880

SCOPE

MOV
MOV
JSR
2%
MOV
MOV
MTPS
MOV
BIS
MOV
MOV
MOV
8IC
ERROR
BR
CMP
MOV
MOV
CMP
BEQ
MOV

ERROR

044

€100, $TIMES
#2.R0

:300 100 ITERATIONS
1RO WHEN ZERO SAYS CLR 'NEX’' WITH RESET
RS,SETVEC
:GO _SET UP INTERRUPT RETURN
sRETURN TO 24 ON TIMEOUT INTR
@-1,80RVHCR
:SET UP FOR ONE XFER'S
160000, SORVBAR +SET UP CA TO 160000 (RESERVED)
0
sALLOW INTR
#161,80RVCSR
+SET IE, XAD 17,16 & GO
€400, 8DRVCSR
+SET CYCLE
DRVCSR, $BDADR
+SET _UP CSR ADRS - SHOULD NEVER GET HERE
140760, $GDDAT
:LD EXPECTED
S8DRVCSR, $BDDAT
:GIVE THEM THE STATUS
:200 +8DRVCSR
:CLR IE
sNEX FAILED TO CAUSE AN INTERRUPT
7¢
;GO RESTORE VECTOR
(SP)+,(SP)+
:SHOULD INTR RETURN HERE - FIX STACK
SDRVCSR, $BDDAT
;READ THE CSR
€140760, $GDDAT
iLD EXPECTED
;?DDAT.OBDDAT
:CORRECT?
:BR IF SO
DRVCSR, $BDADR
:SET UP CSR ADRS
16
iSTATUS ER - EXPECTED
;ER, NEX, CYCLE, READY, IE, XAD17 & XAD16

MAINDEC-11 -CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7245
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
7271
7272
7273
7274
7275
7276
;2;;
2
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289

7290

7291
7292
7293
7294
7295
7296
7297
7298
7299
7300

MACY11 30(1046)
07-MAY-85
GET VALUE FOR SOFTWARE SWITCH REGISTER

07-MAY-85 09:22

006362
000501
006364
017737
006372
012737
006400 023737
006406
001405
006410 013737
006416
104010
006420 000462
006422
017737
006430 012737
006436
023737
006444
001405
006446
013737
006454
104011
006456 000443
006460
005300
006462
001422
006464
042777
006472
017737
006500
012737
006506
023737
006514
001644
006516
013737
006524
104016
006526
000417
006530
000005
006532
017737
006540
012737
006546
023737
006554
001404
006556
013737
006564
104016
006566 004737

173130
177777
001124

001126
001124
001126

001520

001122

173074
160000
001124

001126
001124
001126

001522

001122

33:

43:

Ss:
040000
173026
000760
001124

173032
001126
001124
001126

001524

001122

172766
000200
001124

001126
001124
001126

001524

001122

010116

6%:

74:

BR
MOV
MOV
CHP
BEQ
MOV
ERROR
BR
MOV
MOV
CMP
BEQ
MOV
ERROR
BR
DEC
BEQ
8IC
MOV
MOV
cMP
BEQ
MOV
ERROR
BR
RESET
MOV
MOV
CMP
BEQ
MOV
ERROR
JSR

74
SORVWCR, $BDDAT
@-1, $GDDAT
:(:WAT + $BDDAT

;#TEST 27

7%
S0RVBAR, $8DDAT

#160000, $GDDAT
;(:DDAT +$BDDAT

74
RO
64

40000, 80RVCSR
SDRVCSR, $BDDAT
€760, $GDDAT
$GDDAT, $BDDAT

1
DRVCSR, $BDADR
16
74

S8DRVCSR, $BDDAT

9200, $GDDAT
;(.;DDAT +$BDDAT

g:VCSR +$BDADR
PC,RSTVEC

006572

006574
006602
006606
006610
006614
006622
006630
006634
006642
006650
006656
006662
006664
006672
006700
006706
006714
006716
006720

000004

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

000010
010076
010374
015364
177470
000000
010101

000400

001160

TST27:

172700
172670
172662
172654

000000
001126

001126

001524
010700
172620
000100

001122
001124
001126
172610

14:

2%:

MOV
JSR
24
JSR
MOV
MOV
MTPS
MOV
BIS
MOV
INC
BNE
MOV
MOV
MOV
8IC
ERROR
BR
CMP

iBR IF CLR BY RESET
sWRITE NEX TO ZERO
sREAD CSR
;LD EXPECTED
:CORRECT?
iBR_IF SO + REPEAT TEST FOR RESET TEST
:SET UP CSR ADRS
i'NEX' FAILED TO WRITE TO ZERO
:GO RESTORE VECTOR
+ISSUE BUS RESET
sREAD THE CSR
sEXPECT ONLY READY
sCORRECT?
:BR _IF SO
:SET UP CSR ADRS
;RESET FAILED TO CLR ‘NEX’
;GO RESTORE VECTOR
T

T Y

LTI

TTTTTTTTTTTYYYTTY

TEST 200 NPR TRANSFERS IN MAINT MODE

ettt

SCOPE

L L

SEQ 0031

sSHOULD NOT HAVE INCREMENTED
:CORRECT?
:BR IF SO
+SET UP BAR ADRS
:BAR_INCREMENTED ON A TIMEGUT ER
;GO RESTORE VECTOR
+KEEP TRACK ON HOW TO CLR

fiVBAR +$BDADR

PAGE 62-22

1GO RESTORE VECTOR
sREAD WORD COUNT
sSHOULD STILL HAVE -1
s CORRECT?
1BR _IF SO
sSET UP WCR ADRS
sWC INCREMENTED ON A TIMEOUT ER
:GO RESTORE VECTOR
tREAD BUFFER ADRS

%WCR + $BDADR

ettt
bt ta

09:37

e L

L T

910, $TIMES

R5,SETVEC

PC,LDBUF1
#DBUF, SDRVBAR

:6200. .ODRVMCR

€10101,8DRVCSR
#400,8DRVCSR
90, $BDDAT
IgDDM’

DRVCSR, $BDADR

#10700, $GDDAT
SDRVCSR, $BDDAT
glO0.0DRVCSR

(SP)+,(SP)+

Y Y

TYYYYYY

;:00 10 ITERATIONS
;GO0 SET UP INTR RETURN
;RETURN TO 2% ON INTR
;GO SET UP DBUF (SPECIAL COM PATTERN)
:SET UP CURRENT ADRS
:SET UP FOR 200 XFER'S
;ALLOW INTR
:SET MAINT, IE & GO
;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
:NO INTR AFTER 200 MAINT MODE XFER'S
;GO RESTORE VECTOR
:RETURN HERE ON INTR - FIX STACK SINCE NO RTI

===

MAINDEC-11-CVORA-C DRV118B DMA INTERFACE DIAGNOSTIC
MACY11l 30(1046)
O07-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11
7301
7302
7303
;;gs‘

006722
006726
006730
006732

004537
010700
000310
104007

7306
7307
7308
7309
7310
7311
7312
7313
7314
;giz

006734
006736
006740
006742
006744
006746
006752
006754
006756
006760

000411
104010
000407
104011
000405
004537
000310
104013
000240
004737

010142

JSR
10700
200.
ERROR

010512

010116

34:
P800

7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
773‘3467

007050
007056
007064
007072
007076
007100
007106
007114
007122
007130
007132
007134
007136
007142
007144
007146

012777
052777
012737
005237
001375
013737
012737
017737
042777
104005
000421
022626
004537
010700
000310
104007

7348
7349
7350
7351
7352
7353
7354
7355
7356

007150
007152
007154
007156
007160
007162
007166
007170
007172

000412
104010
000410
104011
000406
004537
000310
104013
000401

BR
ERROR
BR
ERROR
BR
JSR
200.
ERROR
NOP
JSR

007022
007024
007030
007036
007044

000004
012737
004537
007134
005037
062737
023737

001465
004737
013777
012777
106427

i8R0 00RR

000005
010076
001542
020000
001540
010374
001542
177470
000000
010101
000400
000000
001126
001524
010700
172404
000100

TST30:

001160

001542
001542

14:

172446
172440
001126

MOV
BIS

24:

001122
001124
001126
172374
38:

010142

010512

SCOPE
MOV
JSR
3
CLR
ADD
CHP

BEQ
JSR
MOV
MOV
MTPS

172464
172454

R5,CKDAT1

13
PC,RSTVEC

PAGE 62-23

MOV
INC
BNE
MOV
MOV
MOV
8IC
ERROR
BR
CcMP
JSR
10700
200.

00000000004

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

0004404408000 0448884004080080048888848000

008884408

5,4 TIMES
RS,SETVEC
DBUFP

920000, DBUFP
EI:RSZ.OBU"P

PC,LDBUF
1
DBUFP, 8DRVBAR
:6200. +8DRVWCR
10101 ,80RVCSR
#400,80RVCSR
€0, $BDDAT
$BDDAT

24
DRVCSR, $BDADR
10700, $GDDAT
S8DRVCSR, $BDDAT
glO0.0DRVCSR :
44

(SP)+,(SP)+

RS ,CKSTAT

ERROR

BR
ERROR

ERROR
BR
JSR
200.
ERROR
BR

SEQ 0032

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

840404880004 04 040004404804 40 000000808020 00 0000

;«TEST 30

006764
006766
006774
007000
007002
007006
0C7014

RS,CKSTAT

09:37

10
4%
11
43
R5,CKDAT1

+:00 5 ITERATIONS
:GO_SET UP INTR RETURN
sRETURN TO 3% ON INTR
:GET LOWEST BUFFER ADRS
sPOINT TO NEXT 4K
:IS THE 4K THERE?
:BR IF NOT
1GO SET UP SPECIAL COMPEMENT PATTERN
+SET UP BUFFER ADRS
:SET UP FOR 200 XFER'S
sALLON INTR
+SET MAINT,.IE & GO
:SET CYCLE
:SET UP A COUNTER
sCOUNT AWAY
sSHOULD ALWAYS INTR FROM THIS LOOP
:SET UP CSR ADRA
;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

:® 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
sRETURN HERE IF BAR ER - SHOULD = DBUFP+620
:GO RESTORE VECTOR
sRETURN HERE IF OK - NOW GO CK DATA
i@ OF XFER'S TO CK
;RETURN HERE IF DATA ER
:GO RESTORE VECTOR

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

CVDRAC.P11
7357
7358
7359

007174
007176
007204

000704
012737
004737

015364
010116

001542

4s:

MOV

JSR

09:37

PAGE 62-24

s TRY NEXT BANK

®DBUF , DBUFP

sRESTORE BUFFER ADRS TO LOWEST 4K

PC,RSTVEC

1GO RESTORE VECTOR

1I080000004008000088884084884480000400008884888888848884800888808444

7361

+#TEST 31

007210
007212
007216
007220
007224
007226
007234
007242
007250
007254
007260
007266
007274
007302
007310
007316
007324
007326
0C7330
007332
007336
007340
007342

000004
105777
100507
004537
007330
012777
013737
013777
106427
005077
012777
052777
013737
012737
017737
042777
104005
000434
022626
004537
000760
000001
104007

007344
007346

000425
104010
000423
104011
000421
017737
017737
023737
001407
013737
013737

007350
007352
007354
007356
007364
007372
007400
007402
007410
007416
007420
007426
007432

104020
012737
004737
000137

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

PIREEAAAA404044444404000800080888884844488088888000080088888880444

TST31:

8SWR

JSR

RS,SETVEC

:GO_SET UP INTR RETURN

172264
001542
172252

MOV
MOV
MOV
MTPS

#-1,80RVHCR
$TPS ,DBUFP
$TPS,8DRVBAR
90

sSET UP WC - 1 XFER
+SET UP BUFFER ADRS TO PRINTER CSR ADRS
+SET UP BUFFER ADRS - FROM PRINTER CSR
sALLOW INTR

172236
172230
001122

MOV
BIS
MOV
MOV
MOV
B8IC

€161 ,80RVCSR
9400, 80RVCSR
DRVCSR,$BDADR
9760, $GDDAT
SORVCSR, $BDDAT
€100,80RVCSR

+SET IE, XAD17 & XAD16, & GO
+SET CYCLE
;SET UP CSR ADRS
;LD EXPECTED STATUS
;READ THE CSR
;:DISABLE IE

JSR

RS,CKSTAT

101%:

010076

177777
001150
001150

000000
172246
000161
000400
001524
000760

172210
000100

SCOPE

TST8

171722

CLR

001124
001126
172200

ERROR

1¢:

010142

BMI

cHP

1KDF11-8?

ALTERN

+IF YES,GO TO THE NEXT SUBTEST

SORVDBR

tRETURN TO 14 ON INTR

+ZERO THE DBR

iNO INTR ON 1 WD XFER FROM XCSR

(SP)+,(SP)+

sINTR RETURNS HERE - FIX STK SINCE NO RTI

;GO RESTORE VECTOR

;GO CK STATUS

760
1
ERROR

BR
ERROR

24
10

:GO RESTORE VECTOR
sRETURN HERE IF WC ER - EXPECTED 0

11
24

sRETURN HERE IF BAR ER - SHOULD = XCSR+2
:GO RESTORE VECTOR

ERROR
BR

:CSR_EXPECTED STATUS
+® OF XFER'S
sRETURN HERE IF STATUS ER - EXPECTED CYCLE,

:XAD17 € XAD16, RDY & IE

;GO RESTORE VECTOR

171566
172136
001124

001124
001126
001126

MOV
MOV
CMP

83 TPS, $GDDAT
SDORVDBR, $BDDAT
$GDDAT, $BDDAT

sRCTURN HERE IF OK - GET XCSR CONTENTS
;READ DBR
;CORRECT?

001526
001150

001122
001120

MOV
MOV

DRVDBR,$BDADR
$TPS, $GDADR

;SET UP DBR ADRS
:GET ADRS OF DATA (XCSR)

015364
010116
007656

001542

#DBUF , DBUFP
PC,RSTVEC
NXDEV

;RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR
:IGNORE NEXT ‘SUBTEST

BEQ

24:

ERROR

MOV
JSR
JMP

PiEA A ARA A A R

AR ERE

:BR IF SO

:DATA ER FROM TTY PRINTER CSR

004400040000000 0000000000 0000044

+IN CASE OF KDF11-B TEST SOME SPECIFIED I/0 PAGE

007436
007442
007444
007450
007452
007460
007466

005737
001505
004537
007554
012777
013737
013777

PiAAAANARAEAAREE 0000044400044 00008000800 000000000040 00044

ALTERN: TST
BEQ

001544
010076

1777717
001544
001544

172040
001542
172026

JSR
14

MOV
MOV
MOV

JOPAGE
NXDEV

RS,SETVEC

#-1,80RVHCR
IOPAGE ,DBUFP
IOPAGE ,8DRVBAR

:1/70 TRANSFER DESIRED?
+IF NOT, SKIP THE TEST

360 SET UP INTR RETURN
;RETURN TO 14 ON INTR

:SET UP WC - 1 XFER
:SET UP BUFFER ADRS TO I/0 CSR ADRS
;SET UP BUFFER ADRS - FROM I/0 CSR

SEQ 0033

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7413
7414
7415
7416
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
_7'::‘3’

07-MAY-85 09:22

007474
007500
007504
007512
007520
007526
007534
007542
007550
007552
007554
007556
007562
007564
007566

106427
005077
012777
052777
013737
012737
017737
042777
104005
000434
022626
004537
000760
000001
104007

007570
007572
007574
007576
007600
007602
007610
007616
007624
007626
007634
007642
007644
007652

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

000000
172022
000161
000400
001524
000760
171764
000100

172012
172004
001122
001124
001126
171754

1%:

010142

171736
171712
001124

001124
001126
001126

001526
001544

001122
001120

015364
010116

001542

7444
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456

7457
7458
7459
7460
;461
462

007656
007660
007662
007666
007670
007676
007704
007712
007720
007726

007734
007740
007746
007750

000004
000241
006037
001432
062737
062737
062737
062737
062737
062737

005237
032737
001744
000137

MACY11 30(1046)

07-MAY-85

GET VALUE FOR SOFTWARE SWITCH REGISTER

23%:

MTPS
CLR
MOV
BIS
MOV
MOV
MOV
8IC
ERROR
BR
CMP
JSR
760
1
ERROR

®0
SORVDBR
€161 ,80RVCSR
€400, 80RVCSR
DRVCSR,$BDADR
€760, $GDDAT
SDRVCSR, $BDDAT
#100,30RVCSR
S
2%
(SP)+,(SP)+
RS,CKSTAT

BR
ERROR
BR
ERROR
BR
MOV
MOV
CcHP
BEQ
MOV
MOV
ERROR
MOV
JSR

24
10
2
11
2%
SIOPAGE, $GDDAT
SDRVDBR, $8DDAT
$GDDAT, $BDDAT
24
DRVDBR, $BDADR
IOPAGE,$GDADR
20
®DBUF , DBUFP
PC,RSTVEC

09:37

PAGE 62-25

sALLOW INTR
+ZERO THE DBR
+SET IE, XAD17 & XAD16, & GO
+SET CYCLE
;SET UP CSR ADRS
sLD EXPECTED STATUS
;READ THE CSR
:DISABLE IE
tNO INTR ON 1 WD XFER FROM XCSR
1GO RESTORE VECTOR
+INTR RETURNS HERE - FIX STK SINCE NO RTI
160 CK STATUS
1CSR_EXPECTED STATUS
1@ OF XFER'S
sRETURN HERE IF STATUS ER - EXPECTED CYCLE,
+XAD17 € XAD16, RDY & IE
:GO RESTORE VECTOR
sRETURN HERE IF WC ER - EXPECTED 0
+GO RESTORE VECTOR
sRETURN HERE IF BAR ER - SHOULD = XCSR+2
1GO RESTORE VECTOR
;RETURN HERE IF OK - GET XCSR CONTENTS
;READ DBR
;CORRECT?
:BR _IF SO
;SET UP DBR ADRS
;GET ADRS OF DATA (XCSR)
sDATA ER FROM TTY PRINTER CSR
;RESTORE BUFFER ADRS TO LOMWEST 4K
:GO RESTORE VECTOR

PIERARAREARAAE 00040004
048 00080000
44
00000
04
00000000
4
004
1DON’'T REPORT ‘END OF PASS' UNTIL ALL SELECTED DRV11‘'S HAVE BEEN TESTED
PIRARSAARARAAAEA 0400000000004 0004 0040000000000 00 000000440

001536
000010
000010
000010
000010
000004
000004
001206
000001

001520
001522
001524
001526
001530
001532

NXDEV:
SCOPE
NXDEV1: CLC
ROR
BEQ
ADD
ADD
ADD
ADD
ADD
ADD

001536

002372

.SBTTL

DMAP
$EOP
#10,DRVWCR
#10,DRVBAR
#10,DRVCSR
€10,DRVDBR
€4 ,0RVCTO
4 ,DRVCT2

INC
SUNIT
BIT
o1 ,0MAP
BEQ
NXDEV1
JMP
RESTRT
END OF PASS ROUTINE

iCLR CARRY
;LOOK FOR NEXT
:BR IF ALL TESTED
:OFFSET BASE BUS ADRS TO NEXT DRV118B
:
:
:
:OFFSET VECTOR ADRS TO NEXT
:
:COUNT DEVICE
+IS IT SELECTED?
:BR IF NOT
s TEST NEXT

7463

PISEARAEA
4440050040000
ARE
044400040
SEE
008080000
AAA
000000000
AE
44

7465

i#TYPE “END PASS #XXXXX“ (WHERE XXXXX IS A DECIMAL NUMBER)

7464

7466
;:g;

;#INCREMENT THE PASS NUMBER ($PASS)

s#IF THERES A MONITOR GO TO IT
+#IF THERE ISN'T JUMP TO START1

SEQ 0034

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
END OF PASS ROUTINE

CVDRAC.P11
7469
7470
7471
7472
7473
7474
7475
7476
7477
7478
7479
7480

7481

7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493
7494
7495
7496

7497

007754
007754
007756
007762
007766
007772
010000
010002
010004
010006
010010
010012
010014
010020
010024
010026
010032
010036
010040
010042
010044

000240
005037
005037
005237
042737
005327
000001
003022
012737
000001
010002
104401
013746

104405
104401

013700
001405

$EOP:

001102
001160
001202
100000

001202

$EOPCT:
$ENDCT :

010061
001202
010056

37
042412
051501

000
042116
020123

SEQ 0035

$DOAGN

33 YES
s sRESTORE COUNTER

+ $ENDMG

13:TYPE "END PASS #”
:sSAVE $PASS FOR TYPEOUT
3360 TYPE--DECIMAL ASCII WITH SIGN
:sTYPE A NULL CHARACTER
$3GET MONITOR ADDRESS
:sBRANCH IF NO MONITOR
:sCLEAR THE WORLD
$:G0 TO MONITOR

iPC )+,8(PC)e

+SENULL

8042,R0
$DOAGN

$ENDAD:

PC,.(RO)

$RTNAD:
$ENULL
:
$ENDMG:

PAGE 62-26

::ZERO THE TEST NUMBER
+3ZERO THE NUMBER OF ITERATIONS
+ s INCREMENT THE PASS NUMBER
ssDON’T ALLOW A NEG. NUMBER
+:LO0P?

$GET42:

$DOAGN:

09:37

$TSTNM
$TIMES
$PASS
#100000, $PASS
gPC)o

$PASS, -(SP)

010046
010050
010052
010052

010054
010056
010061
010066
010074

NOP
CLR
CLR

O07-MAY-85

:3ACT11
8(PC)+
: sRETURN
START1
'1.'1.0
s sNULL CHARACTER STRING
<15><12>/END PASS &/

MMC;II.-CVDRI-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11l 30(1046)
07-MAY-85 09:22
END OF PASS ROUTINE

CVDRAC.P11

O07-MAY-85

09:37

PAGE 63
SEQ 0036

7499

7500

7501

7503

.SBTTL

PROGRAM SUBROUTINES

P80480 004044004004000000008888808400440888884840

0044808380000
8

+THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT +SETS UP THE DRV118 INTERRUPT TO RETURN ON INTERRUPT
+TO THE ADDRESS INDICATED ((RS)) BY THE CALL +2
010076
010102
010106
010114

106427
012577
012777
000205

000200
171422
000200

P800 080408040008400880048488848000080404888888888848

SETVEC: MTPS

MOV
MOV

171416

RTS

80808088884844

9200

+SET UP FOR NO INTERRUPT

JEXIT

(RS5)+,80RVCTO
9200,80RVCT2

;SET UP INTR RETURN ADRS
+KEEP PRIORITY LEVEL AT TOP ON INTR

100888804 08004408840000000488888408040048008

884888088880800040484

s THIS ROUTINE CLEARS THE DRV11B CSR - RESTORES THE DRV118B
s INTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL

010116
010122
010130
010134
010140

005077
013777
005077
106427
000207

171402
001532
171376
000200

PSS E0E0E0404404040044804008454004800888808088088840

171400

RSTVEC: CLR

MOV
CLR
MTPS
RTS

SDRVCSR

DRVCT2,80RVCTO
SDRVCT2
9200

00040044800444

iCLR STATUS & CONTROL

;POINT VECTOR TO HALT
+SET UP HALT
;RAISE PRIORITY LEVEL

sEXIT

1088884 084040040448804400800808488408880880888884880880

080000008448

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

010142
010150
010156
010162
010170
010172
010200
010204
010206
010214
010216
010224
010230
010234
010236
010242
010246
010254
010262
010270
010276
010300
010306

017737
042777
012537
023737
001406
013737
062705
000205
017737
001410
013737
005037
062705
000205
011537
006337
063737
017737
042737
023737
001406
013737
062705

171356
000100
001124

001126
171346

001124

001126

001524
000002

001122

171306

001126

001520
001124
000006

001122

001124
001124
001542
171242
000001
001124

001522
000012

PIAESEASEA00444040400000888880804040004888888404884888

CKSTAT: MOV

BIC

MOV
CMP
BEQ
MOV
ADD
1s:

001122

BEQ

MOV
CLR
ADD
24:

001124
001126
001126
001126

RTS

MOV

RTS
MOV
ASL

SDRVCSR, $BDDAT

€100,80RVCSR

(RS)+, $GDDAT
$GDDAT, $BDDAT
14
DRVCSR,$BDADR
#2,R5

SORVWCR, $BDDAT

DRVWCR, $BDADR
$GDDAT
6 ,RS

RS
(RS), $GDDAT
$GDDAT

ADD
MOV

DBUFP, $GDDAT
SDRVBAR, $BDDAT

CMP

$GDDAT, $BDDAT

8IC

BEQ

MOV
ADD

#8IT00,$BDDAT

DRVBAR, $BDADR
€12,R5

;READ THE STATUS

8080840044

;DISABLE THE IE BIT

+SET UP EXPECTED STATUS
;CORRECT?
:BR_IF SO
;SET UP CSR ADRS
sPOINT TO THE CSR ER

;EXIT HERE ON STATUS ERROR

;GET WC

iBR _IF ZERO

;SET UP WCR ADRS
sEXPECTED 0
:POINT TO THE WCR ER

tEXIT HERE ON WCR ER
:GET XFER ¢
sCONVERT TO WORD

tPOINT TO LAST XFER +2
;GET BA

;DON'T WANT BITOO

;CORRECT?

1BR _IF SO

;SET UP BAR ADRS
;POINT TO BAR ER

—

MAINDEC -11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
PROGRAM SUBROUTINES
07-MAY-85 09:22

CVDRAC.P11

7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7566
7567
7568
7569
=
75711
7572
7573
7574
7575
7576
7577
7578
7579
7580

7302

010312
010314
010320

000205
062705
000205

000016

RTS
ADD
RTS

#16,RS
RS

09:37

PAGE 63-1

sEXIT HERE ON BAR ER
sALL OK - POINT TO GOOD EXIT
sEXIT HERE IF NO ERRORS

138068880800480888888808088888808804888880404084080880808488880888800¢

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

1670707 WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR

sAT THE COMPLETION OF A 200 WORD TRANSFER

010322
010326
010332
010334
010336
010342
010344
010350
010352
010354
010360
010362
010364
010366
010370
010372

012703
012704
010423
005104
022703
001003
012713
000207
010423
022703
001771
005104
006304
005204
103356
000757

015364
177776

11008888808800848800808008888880888808884888888080884884888888808840

LDBUF:
14:
2%:

016202
070707
016202

34:
44

MOV
MOV
MOV
COM
CcMP
BNE
MOV

RTS
MOV

CMP
BEQ
coM
ASL

INC
B8CC
BR

#0BUF ,R3

9177776 ,.R4
R4,(R3).
R4

:I.JO\F +616,R3
#70707,(R3)

R4,(R3).

QDBUF +616,R3
3
R4
R4
R4
14
24

:GET BUFFER ADRS
+SET UP FLOATING ZERO PATRN
sLOAD IT (FLOATING 0)
sMAKE INTO FLOATING 1
tAT END OF BUFFER?
1BR IF NOT
sLOAD LAST DATVAR (SPECIAL)
sGET OUT
sLOAD IT (FLOATING 1)
+AT END OF BUFFER?
iBR IF SO
sBACK TO FLOATING ZERO
1SHIFT LEFT
sKEEP LSB SET
1GO RESET FLOATING PATRN
1GO LOAD NEXT PATRN

118688848800088400888888888848880808440888888888804880888888084848

7583

7584
7585
7586
7587

34:

O07-MAY-85

sTHIS ROUTINE LOADS ‘DBUF’ WITH A UNIQUE FLOATING ZERO/ONE PATTERN
41(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 LOCS
sARE LOADED WITH THIS PATTERN

010374
010400
010402
010406
010412
010414
010416
010420
010422
010424
010426
010430
010432
010434
010436
010440
010442

013703
010305
062705
012704
010423
005023
005104
010423
005023
020503
001001
000207
005104
006304
005204
103362
000763

001542
000620
177776

1888888884888 8888880848088488808488020448888880488840888880808808488

LDBUF1: MOV

1s:

24:

MOV

DBUFP,R3

R3.RS
#620,RS
€177776,R4
R4,(R3)-

(R3).

R4
R4,(R3).

(R3).

34:

coM

1GET BUFFER ADRS
1SAVE IN RS
.
;POINT TO END OF BUFFER
:SET UP FLOATING ZERO PATRN
sLOAD IT (FLOATING 0)
$sZERO NEXT

$SET UP FLOATING 1
sLOAD IT

:1ZERO NEXT
3200 LOCS DONE?
:BR IF NOT
:GET OUT

:BACK TO FLOATING ZE
s1SHIFT LEFTY

1KEEP LSB SET

3GO RESET FLOATING PATRN
sGO FLOAT NEXT PATRN
130880888840808008080888808888884888880888808084840808888848808880844¢

s THIS ROUTINE CHECKS 200 LOCATIONS IN *"DBUF* FOR GOOD TRANSFERED
sDATA (#177377) ON ‘DATO’ TRANSFERS - IF AN ERROR IS DETECTED
sTHE RETURN IS TO CALL +2 - IF NO ERROR THE RETURN IS TO CALL +4

1108888088080808088888888088888888888848880088488888808080880880800804

SEQ 0037

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
;:g“l’

010444
010450
010454
010456
010464
010470
010474
010476
010502
010504
010510

07-MAY-85 09:22
012701
022721
001410
013737
014137
010137
000207
022701
001362
062716
000207

FACY11 30(1046)

PROGRAM SUBROUTINES

015364
177377
001526
001126
001120

e—

CKDAT:
1%:
001122

016204

24:

000002

MOV
cHP
BEQ
MOV
MOV
MOV
RTS
CcHP
BNE
ADD
RTS

#DBUF ,R1
0177377,(R1)+
2
DRVDBR, $BDADR
-(R1), $BDDAT
R1,$GDADR
PC
#0BUF +620,R1
14
92,(SP)
PC

———

—

O07-MAY-85

09:37

PAGE 63-2

1GET BUFFER ADRS
;DATA OK?
18R IF SO
;SET UP DBR ADRS
sGET ACTUAL DATA XFERED
1GET MEMORY ADRS
:RETURN TO ERROR
;AT END OF ‘DBUF'?
1BR IF MORE
sADJUST STACK FOR GOOD RETURN
sGET OUT

7623
7624
7625
7626

13088888 0448044880804088080088888880080804088888484808888800000840
s THIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF' FOR GOOD TRANSFERED
1DATA (177776,177776,1,1,177775,177775,2,2,177773,177773,E1C.)
sON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED

7628
7629

+IF NO ERROR THE RETURN IS TO CALL +10
§18888888888084804584400008000848888880888008488888888800088088884

7627

CKDAT1: MOV
MOV
14:
MOV
CLR
24:

001542
177776

000002
000004
001126
001120
001124
001526

34:
001122

B3223987333328822322

012500
013702
012701
005003
020122
001010
020122
001006
162700
003015
062705
000205
014237
010237
010137
013737
000205
005101
005103
001351
006301
005201
103343
000745

010512
010514
010520
010524
010526
010530
010532
010534
010536
010542
010544
010550
010552
010556
010562
010566
010574
010576
010600
010602
010604
010606
010610
010612

DHPDOOD

7630
7631
7632
7633
7634
7635
7636
7637
7638
7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653

18Y THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 (RS)+,R0
DBUFP,R2
#177776.R1
R3
R1,(R2).
34
R1,(R2).
34
#2,R0
44
o4 RS
RS
-(R2), $BDDAT
R2, $GDADR
R1,$GDDAT
DRVDBR, $BDADR
RS
R1
R3
24
R1
R1
14
24

1GET & OF CHECKS
sGET BUFFER ADRS
1SET UP FLOATING ZERO PATRN
tR3 _SAYS WHEN TO SHIFT PATRN
1DATA OK?
1BR_IF NOT
sDATA WRITTEN OK?
1BR_IF NOT
tACCOUNT FOR TWO ADRS'S
1BR IF MORE
1ADJUST FOR GOOD RETURN
1EXIT
1GET BAD DATA
1GET MEM ADRS
1LD _EXPECTED DATA
;SET UP DBR ADRS

sRETURN TO ERROR

sNOW EXPECT COMPLEMENT
s TIME TO SHIFT?
1BR_IF NOT
sSHIFT LEFT
+KEEP LSB SET
1GO RESET FLOATING PATRN
100 NEXT

Sm——

——

SEQ 0038

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
PROGRAM
07-MAY-85 09:22

7656
7657
7658
7659

.SBTTL

m’:vu 30(1046)

07-MAY-85

09:37

PAGE 64

SYSMAC ROUTINES

7661

.SBTTL

TYPE ROUTINE

1188008004400004000646000000088848008880008408048480000048080888080888008

s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE MITH A O BYTE.
#¢THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

seNOTEL:
seNOTE2:
s#NOTES3:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

soCALL:
s¢1) USING A TRAP INSTRUCTION

'.M

TYPE

1sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

13IS THERE A TERMINAL?

e
L

STYPE:

001157

TYPE

MESADR

TSTB

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BIT8
BEQ
MOV
JSR

s3BR IF YES
$sHALT HERE IF NO TERMINAL
3¢
1 sLEAVE
RO,-(SP)
131SAVE RO
82(SP) RO
$3GET ADDRESS OF ASCIZ STRING
SAPTENV, $ENV
s sRUNNING IN APT MODE
624
33NO,GO CHECK FOR APT CONSOLE
SAPTSPOOL
, $ENVM ; ; SPOOL MESSAGE TO APT
624
$3N0,GO CHECK FOR CONSOLE
RO,61¢
13SETUP MESSAGE ADDRESS FOR APT
PC,OATYS
1sSPOOL MESSAGE TO APT

BIT8
BNE
MOV8e
BNE
ST
MOV

OAPTCSUP,$ENVM
604
(RO)+,-(SP)
44
(SP)e«
(SP)+,RO

;;APT CONSOLE SUPPRESSED
s3YES,SKIP TYPE OUT
13sPUSH CHARACTER TO BE TYPED ONTO STACK
$3BR IF IT ISN'T THE TERMINATOR
13IF TERMINATOR POP IT OFF THE STACK
1 sRESTORE RO

RTI
a?

:0:7.(3’)

1 sRETURN
$sBRANCH IF <HT>

000200

g(.:RLF.(SP)

13BRANCH IF NOT <CRLF>

001171
011144

TYPE
CLRB
BR
JSR
CMPB
BNE
MOV

TST

(SP).

14:
000001

001214

000100

001215

010664
011156
001215

614:

624:

24:

604:
34:

000011

011026
001156

001154

Se:
64:

LMORD

ADD

#2,(SP)

+ICRLF
$CHARCNT
24
PC.STYPEC
SFILLC,.(SP).
24
SNULL, -(SP)

1MESSAGE ADDRESS

1sADJUST RETURN PC

13POP

<CR><LF> EQUIV

$sTYPE A CR AND LF
1 3CLEAR CHARACTER COUNT
$3:GET NEXT CHARACTER
$:G0 TYPE THIS CHARACTER
$3IS IT TIME FOR FILLER CHARS.?
33IF NO GO GET NEXT CHAR.
33GET @ OF FILLER CHARS. NEEDED

MAINDEC-11-CVORA-C DRV118B DMA INTERFACE DIAGNOSTIC
TYPE ROUTINE
CVORAC.P11
07-MAY-85 09:22
7712
7713
7714
7715
7716
7717
7718
7719

7720

7721
7722
7723

7724

7753
7754
7755
7756

010762
010766
010770
010774

011000

105366

002770
004737
105337
000770

74:

000001
011026
011144

BLT
JSR
DECB

1(SP)

PC,ITYPEC
$CHARCNT
7

O07-MAY-8S5

09:37

PAGE 64-1

SEQ 0040

13AND THE NULL CHAR.
13D0ES A NULL NEED TO BE TYPED?

13BR IF NO--GO POP THE NULL OFF OF STACK
+3GO0 TYPE A NULL
3300 NOT COUNT AS A COUNT
13LOOP

tHORIZONTAL TAB PROCESSOR
011002
011006
011012
011020
011022
011024
011025
01i02+
011032
01102
011040
011044
011050
011052
011052
011056
011060
011064
011070
011074
011076
011076
011100
011100
011104
011106
011114
011122
011124
011130
011132
011140
011142
011144
011146

112716

004737

132737

001372
005726
000724

105777
100022
017746
042716
122716

001012

105777
100375
117716

042716
122716
001366

011026
000007

011144

170106
177600
000023
101s:

170066
170062
177600

000021

105777
100375
116677
122766
001003
105037

000002
000015

122766

000012

001402

MOve
JSR
BITE
BNE
TST
BR

¢ ,(SP)
PC.STYPEC

(SP)e«

:3POP SPACE OFF STACK
$3GET NEXT CHARACTER

1578
BPL
MOV
8IC
CMPB
BNE

93TKS
104
937KB, -(SP)
#177600, (SP)
#$XOFF ,{SP)
1024

:3CHAR IN KYBD BUFFER?
$3BR IF NOT
:3GET CHAR
13 STRIP EXTRANEOUS BITS
:sWAS CHAR XOFF
:3BR IF NOT

TST8
BPL
MOV
BIC

93 TKS
1014
93TKB, (SP)
177600, (SP)

;sWAIT FOR CHAR

102¢%:

005726

000406

8s:
9:

$TYPEC:

170112

10s:

170044

170036

cMPB

$CHAR
: CNT
. WORD
$TYPEX: RTS

000000
000207

.SBTTL

s sREPLACE TAB WITH SPACE
13TYPE A SPACE
1sBRANCH IF NOT AT
13 TAB STOP

:3GET CHAR

@$XON, (SP)

101¢

:sSTRIP IT
;3WAS IT XON?
:3BR IF NOT

(SP)«

s3FIX STACK

93TPS
104

s sWAIT UNTIL PRINTER IS READY

:ER.2(SP)

18:

105227

:Z.OCNARCNT

2(SP),847P8

011144

7757
7758

7759
7760
7761
7762
7763
7764
7765
7766
7767

DECB

MACY11 30(1046)

$CHARCNT
$TYPEX

oLF,2(SP)
$TYPEX

(PC).

:3LOAD CHAR TO BE TYPED INTO DATA REG.
:3IS CHARACTER A CARRIAGE RETURN?
: sBRANCH IF NO
:: YES--CLEAR CHARACTER COUNT
s EXIT
:3IS CHARACTER A LINE FEED?
: :BRANCH IF YES
: sCOUNT THE CHARACTER
; sCHARACTER COUNT STORAGE

APT COMMUNICATIONS ROUTINE

3888888888884 288888888888808482840028080888080800000800800000000048

011150
011156
011164

011166
011174
011174
011176
011200

112

600403

000001
000001

112737

010046
010146
105737

011412

011414
011412

SATY1:
$ATY3:

MOVB
MOVB

011414

$ATY4:
$ATYC:

MOVB

MOV
MOV

1ST8

#1,$FFLG
91,8MFLG
$SATYC
1,$FFLG

::TO ONLY REPORT FATAL ERROR

RO, -(SP)
R1,-(SP)
$MFLG

::PUSH RO ON STACK
::PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?

:: 70 REPORT FATAL ERROR
::T0 TYPE A MESSAGE

sMJDOO1
sMJDOO1
:MJD001
;MJDOO1
sMJDOO1
:MJD001
:MJDOO1
sMJDO01
:MJD001
;sMJDOO01
;MJDOO01
:MJDOO1
sMJDOO1
;sMJDOO1
;MJD001
;MJDOO1
:MJDOO1

c——

—

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY -85 09:22
APT COMMUNICATIONS ROUTINE

CVORAC.P11

7768
011204
7769
011206
7770
011214
mmm
011216
7772
011224
7773
011226
7774
011232
7775
011240
7776
011244
7
011246
7778
o11252
779
011254
7780
011256
7781
011262
7782
011264
7783 €11270
7784
011276
7785
011300
7786
011306
7787
011314
7788
011320
7789
011324
7790
011326
7791
011326
7792
011332
7793
011334
7794
011340
7795
011342
7796
011346
7797
011350
7798
011356
7799
011364
7800
011370
7801
011374
7802
011400
7803
011404
7804
011406
7805
011410
7806
011412
7807
011413
7808
011414
7809
7810
7811
7812 |

7813
7814

7815
7816
7817
7818
7819
7820
7821
7822
7823

001450

122737

001214

132737
001425

001215

001031

017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766
013746
004737
000000

105737

001416
005737
001413
005737

001375

017637
062766
005237

105037
105037
105037

012601
012600
000207
000
000
000
011416
000200
000001
000100
000040

000004

2%:

011324

177776
010614

3s:

;O:
$:

011414

10¢:

001174
000004
000002
001174
011414
011413
011412

11%:
001176

BNE
BITe
BEQ

39
$3IF NOT:
BR
OAPTSPO
, SENVM
OL ; ; SHOULD SPOOL MESSAGES?
33
s3IF NOT:
BR

MOV

S4(SP) RO

33GET MESSAGE ADDR.

TST
BNE
MOV
;'Sél

SMSGTYPE
1
RO, $MSGAD
570)0

33SEE IF DONE W/ LAST XMISSION?
33IF NOT:
WMAIT
::PUT ADDR IN MATLBOX
:3sFIND END OF MESSAGE

ADD

#2.,4(SP)

$MSGAD ,RO

.MORD

RO
RO, $MSGLGT
;‘.OHSGYYPE
$
84(SP) .48
92,4(SP)
177776,-(SP)
PC.STYPE
O

ST
BEQ

$FFLG
124

BEQ

124

MOV
ADD
MOV
JSR

SENV

$MSGTYPE

BNE
MOV

114
84(SP),SFATAL

INC
CLRB
CLRB
CLRB

$MSGTYPE
$FFLG
SLFLG
SMFLG

ADD

12%:

s3IF NOT:

1 sOPERATING UNDER APT?

TST

001214

SEQ 0041

OAPTENV, SENV

SuB

000004

PAGE 64-2

ASR
MOV
=2V

001174

09:37

BEQ

cMP8

13:

O07-MAY-85

MOV

#2.,4(SP)

(SP)+,R1

(SP)+,.RO

$:BUMP RETURN ADDR.

3:SUB START OF MESSAGE

+3GET MESSAGE LNGTH IN WORDS
33PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

3:PUT MSG ADDR IN JSR LINKAGE
;:BUMP RETURN ADDRESS
33PUSH 177776 ON STACK
:sCALL TYPE MACRO

;s SHOULD REPORT FATAL ERROR?
:3IF NOT:
BR

: sRUNNING UNDER APT?

s3IF NOT:

s sFINISHED LAST MESSAGE?

:3IF NOT:
MWAIT
::GET ERROR ¢

::BUMP RETURN ADDR.

ssTELL APT TO TAKE ERROR
:sCLEAR FATAL FLAG
:sCLEAR LOG FLAG
::CLEAR MESSAGE FLAG

::POP STACK INTO R1

:;POP STACK INTO RO

RTS
PC
: sRETURN
$MFLG:
.BYTE
O
:sMESSG. FLAG
SLFLG:
.BYTE
O
::LOG FLAG
$FFLG:
.BYTE
0
:sFATAL FLAG
.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040
.SBTTL
BINARY TO OCTAL (ASCII) AND TYPE

Fi00000048008000080800808000088080880444800080000800808808080800008

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

MOV

TYPOS

.BYTE

NUM, -(SP)
N

: sNUMBER TO BE TYPED

;:sCALL

FOR

TYPEOUT

:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-8S 09:22

7824
7825

e
;e

;:g

O07-MAY-85

09:37

PAGE 64-3

3sM=1 OR O
3:1=TYPE LEADING ZEROS

1 :0=SUPPRESS LEADING ZEROS

1#3TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;#8TYPOS OR $TYPOC
soCALL:

7831

;:g

;e
e

7834

MOV

TYPON

NUM, -(SP)

s sNUMBER TO BE TYPED

:3:CALL FOR TYPEOUT

:#3TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

7835

seCALL
:

;:gz

7836

7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879

BYTE

7828
7829
7830

7839
7840

MACY11 30(1046)

BINARY TO OCTAL CASCII) AND TYPE

011416
011422

011430
011434
011440
011442
011450
011456
011464
011466
011470
011472
011476
011500
011504
011510
011514
011520
011522
011524
011526
011530
011532
011534
011536
011540
011544
011546
011552
011554
011556
011560
011562
011566
011572
011576
011602
011606
011610
011612
011614

017646
116637

112637
062716
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

000000
000001
011643
000002
000001
000006
000005

011643
000006
011642
011641
000012

011642
177770

000060
000040
011636
011636
011640

011641

011641
011643
011640

MOV

TYPOC

$TYPOS: MOV
MOVB

MOVB
ADD
BR
S$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOvVEe
MOV
CLR
18:
ROL
BR
2%:
ROL
ROL
ROL
MOV
3s:
ROL
DECB
BPL
BIC
BNE
TST
BEQ
43
INC
BIS
S$:
BIS
MOVB
TYPE
74:
DECB
BGT
BLT
INC
BR

NUM, -(SP)

:sNUMBER TO BE TYPED

:sCALL FOR TYPEOUT

8(SP),-(SP)
1(SP), SOFILL

(SP)+,$0MODE+1
#2,.(SP)
$TYPON
€1,30FILL
#6,$0MODE+ 1
95, $0CNT
R3,-(SP)
R4,-(SP)
RS,-(SP)
$OMODE +1,R4
R4
o6 R4
R4, $OMODE
$OFILL R4
12(SP).RS
R3
RS
34
RS
RS
RS
RS,R3
R3
$OMODE
74
#177770,R3
44
R4
Ss
R4
¢'0,R3
# ,R3
R3,8¢
.84
$OCNT
2¢
6$
R4
2

;sPICKUP THE MODE
::LOAD ZERO FILL SWITCH

;;NUMBER OF DIGITS TO TYPE
: sADJUST RETURN ADDRESS

+3SET THE
:3SET FOR
$3SET THE
:3SAVE R3
::SAVE R4
:;SAVE RS
+:GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

;sSUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
;sROTATE MSB INTO “C”
::G0 DO MSB
::FORM THIS DIGIT

:sGET LSB OF THIS DIGIT
;s TYPE THIS DIGIT?

::BR IF NO
::GET RID OF JUNK
::TEST FOR O
: : SUPPRESS THIS 0?
;:BR IF YES

::DON’'T SUPPRESS ANYMORE 0'S

: sMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::6G0 TYPE THIS DIGIT
:;COUNT BY 1

:3BR IF MORE TO DO

::BR IF DONE
:sINSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT

SEQ 0042

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11l 30(1046)
O07-MAY-85
CVDRAC.P11
07-MAY-85 09:22
BINARY TO OCTAL (ASCII) AND TYPE

7883

7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
7899

011616
011620
011622
011624
011632
011634
011636
011637
011640
011641
011642

012605

64:

012603
016666

§§§§§§§

7880

7881
7882

RTI
.BYTE
.BYTE
$OCNT:
.BYTE
SOFILL: .BYTE

8s:

$OMODE:

.SBTTL

7921
7922
7923
7924

7925

7926
7927
7928

7930
7931
7932
7933
7934
7935

(SP)+,RS
(SP)+,.R4
(SP)+,R3
2(SP),4(SP)
(SP)+,(SP)
O
O
O

PAGE 64-4

: sRESTORE RS
+ sRESTORE R4
1 sRESTORE R3
13SET THE STACK FOR RETURNING
: sRETURN

33 STORAGE FOR ASCII DIGIT
3 s TERMINATOR FOR TYPE ROUTINE
330CTAL DIGIT COUNTER
+3ZERO FILL SWITCH
s sNUMBER OF DIGITS TO TYPE

O
0
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
.WORD

FI8080000004040000040080880884888080404808808448884840888800808408800

s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-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
:

MOV

NUM, -(SP)

+sPUT_THE BINARY NUMBER ON THE STACK
+:G0 TO THE ROUTINE

MOV

RO,-(SP)

020200
000020

MOV
MOV
MOV
MOV
MOV

R2,-(SP)
R3,-(SP)
RS,-(SP)
#20200, -(SP)
20(SP).RS

005405
112766

000055

NEG
MOVB

RS
®'-,1(SP)

::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
::GET THE INPUT NUMBER
::BR IF INPUT IS POS.

012703
112723

000040

016001

012050

7910
7911
7912
7913
7914
7915
7916
7917
7918
7919

MOV
MOV
MOV
MOV
MOV

09:37

011644
011644
011646
011650
011652
011654
011656
011662
011666
011670
011672
011700
011702
011706 .
011712
011714
011720
011722
011724
011726

011730
011732

011734

011736
011740
011742
011744
011746
011754
011760
011764
011766
011770

010046
010146
010246
010346
010546
012746

016605

160105

002402
005202
000774
060105
005702
001002
105716
100407
106316
103003

116663

052702
052702
110223
005720
020027

$TYPDS:

BPL

000001

012060

18:
2%:

3s:

43 :

S$:

000001
000060
000040
000010

TYPDS

177777

64:
74:

CLR

MOV
MOVB

#$DBLK ,R3
¢ ,(R3).

CLR

BLT
INC
BR

43
R2
34

MOV
SuB

ADD

TST
BNE
1ST8
BMI
ASLB

$DTBLCRO),R1
R1.RS

R1.RS

R2
S$
(SP)
74
(SP)

B8CC
MOVB

64
1(SP), -1(R3)

MOVB

R2,(R3).

CcMP

RO, €10

BIS
BIS

TST

#'0,R2
® ,R2

(RO)+

: sMAKE THE BINARY NUMBER POS.

:sMAKE THE ASCII NUMBER NEG.
;s ZERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
:sCLEAR THE BCD NUMBER
:3GET 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

s3FALL THROUGH IF 0

::STILL DOING LEADING 0'S?
;:BR IF YES
:sMSD?
::BR IF NO
::YES--SET THE SIGN
:sMAKE THE BCD DIGIT ASCII
ssMAKE IT A SPACE IF NOT ALREADY A DIGIT

;sPUT THIS CHARACTER IN THE OUTPUT BUFFER
: : JUST INCREMENTING
:;CHECK THE TABLE INDEX

SEQ 0043

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85
07-MAY-85 09:22
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CVDRAC.P11
7936
7937
7938
7939
7941

011774
011776
012000
012002
012004
012006
012010
012016
012020
012022
012024
012026
012030
012032
012036
012044
012046
012050
012052
012054
012056
012060

002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

24
84
RS.R2

8%:

177777

012060
000002

177776

TST8

9s:

CLRB

(SP)e«

-1(SP),-2(R3)
(R3)

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

. $0BLK

000004

2(SP),4(SP)
(SP)+,(SP)
$DTBL:

10000.

$OBLK:

.BLKW

.SBTTL

09:37

PAGE 64-5

SEQ 0044

+3G0 DO THE NEXT DIGIT
$:60 TO EXIT
$:GET THE LSD
::6G0 CHANGE TO ASCII
33WAS THE LSD THE FIRST NON-ZERO?
:3BR IF NO
$3YES-T THE SIGN FOR TYPING
3:SET THE TERMINATOR
::POP STACK INTO RS
3:POP STACK INTO R3

:3POP STACK INTO R2
:sPOP STACK INTO R1
::POP STACK INTO RO

;sNOW TYPE THE NUMBER
:sADJUST THE STACK

;sRETURN 0 USER

ERROR HANDLER ROUTINE

PSR 00444404080808480000008088808880000

0880008000884844

+#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:

;4SW1S=1

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR

;4SH13=1

;#SW10=1

;#SW09=1

;#CALL

012070
012070
012072
012074
012100
012102
012110
012116
012120
012124
012130
012134
012142
012150
012156
012160
012164
012170
012170
012176

104407
104407
105237

001775
013777
032777
001402
104401
005237
011637
162737
117737
032777
001004
004737
104401

122737
001007

$ERROR:

001103
001102
002000
001164
001112
001116
000002

166750
020000

74:

167032
167022
1¢:

001116
001114
166762

012260
001171
000001

001214

20%:

LOOP ON ERROR

ERROR

CKSWR
CKSWR

:: TEST FOR CHANGE IN SOFT-SWR
;GO LOOK FOR SWR CHANGE
;ERFLG
::SET THE ERROR FLAG
:sDON'T LET THE FLAG GO TO ZERO
$TSTNM,8DISPLAY +:DISPLAY TEST NUMBER AND ERROR FLAG
#8IT10,8SWR
:;BELL ON ERROR?
14
:sNO - SKIP
+$BELL
: sRING BELL
$ERTTL
: ;COUNT THE NUMBER OF ERRORS
(SP), $ERRPC
::GET ADDRESS OF ERROR INSTRUCTION

INCB
BEQ
MOV
BIT
BEQ
TYPE
INC

MOV
suB
MOVB
BIT
BNE
JSR
TYPE
CMPB
BNE

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

92, $ERRPC
S@$ERRPC, $ITEMB
#8IT13,8SKWR
204
PC, SWRCK

+ $CRLF

QAPTENV, $ENV

::STRIP AND SAVE THE ERROR ITEM CODE

+ s SKIP TYPEOUT IF SET
s SKIP TYPEOUTS
1360 TO USER, ERROR ROUTINE
: sRUNNING IN APT MODE
: iNO,SKIP APT ERROR REPORT

MAINDEC-11-CVDORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-85 09:22

7992
7993
7994
7995
7996
7997
7998
7999
8000
8001
8002
8003
8004
8005
8006
8007
8008

012200
012206
012212
012213
012214
012216
012222
012224
012226
012230
012236
012240
012244
012250
012252
012256
012256

000002

8013
8014
8015
8016
:gi:

012260
012266
012272
012274

113737
004737
104407
000207

8009
80.iv
8011
8012

113737
004737
000
000
000777
005777
100002
000000
104407
032777
001402
013716
005737
001402
013716

001114
011166

166702

33:

4s:

001162
Ss:

001102
012276

07-MAY-85

$ITEMB,21$
PC,$ATY4
0
0
224
8SWR
34

+3SET ITEM NUMBER AS ERROR NUMBER
1 sREPORT FATAL ERROR TO APT

001534

#BIT09,8SWR
44
SLPERR,(SP)
$ESCAPE
S
$ESCAPE, (SP)

RTI

09:37

PAGE 64-6

+sAPT_ERROR LOOP
s sHALT ON ERROR
13 SKIP IF CONTINUE
s sHALT ON ERROR!
33 TEST FOR CHANGE IN SOFT-SWR
+:LO0OP ON ERROR SWITCH SET?
13BR_IF NO
+sFUDGE RETURN FOR LOOPING
+3CHECK FOR AN ESCAPE ADDRESS
:3BR _IF NONE
+3FUDGE RETURN ADDRESS FOR ESCAPE

s sRETURN

) D
i
b
L T T T T T
TrTrTrYYYYYTYTY
;GO TYPE ERROR
;GO UPDATE SOFTWARE SWR IF ‘'CNTRL/G’
PiERSEAE
0040040000040 0000000000000 8080800000000000000444

SWRCK:

MOVB
$TSTNM,TSTNUM
;SET UP TEST @ ON ER
JSR
PC,$ERRTYP
:GO TYPE ERROR
CKSWR
;GO LOOK FOR SWR CHANGE
RTS
sRETURN TO ERROR HANDLER
ERROR MESSAGE TYPEOUT ROUTINE

PSRN
AERERAALARA 0044400400800 040004000888880000000004808044
;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH
+#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ( $ERRTB),
1#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
012276
012276
012302
012304
012306
012312

104401
010046
005000
153700
001004

8031

012314

013746

8033
8034
8035
8036
8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047

22%:
24:

.SBTTL

8024
8025
8026
8027
8028
8029

8032

MOV
JSR
.BYTE
.BYTE
BR
TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

21%:

001110
001162

8019
8020
8021
agg

8030

012212

166716

001000

MACY11 30(1046)

ERROR HANDLER ROUTINE

012320
012322
012324
012326
012330
012332
012334
012340
012344
012346
012350
012352
012356
012362
012364

104402
000426
005300
006300
006300
006300

062700
012037
001404
104401
000000
104401
012037
001404
104401

001171

$ERRTYP:

001114

001116

14:

001320
012350

001171
012366

24:
3%:

TYPE
MOV
CLR
BISB
BNE

+ $CRLF
RO, -(SP)
RO
80$ITEMB,.RO
1s

MOV

$ERRPC, -(SP)

TYPOC
BR
DEC
ASL
ASL
ASL

64
RO
RO
RO
RO

ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE

#$ERRTB,RO
(RO)+,28
34

0O
+ $CRLF
(RO)+,48
54

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

+:IF ITEM NUMBER IS ZERO, JUST

i3 TYPE THE PC OF THE ERROR
1 s SAVE $ERRPC FOR TYPEOUT

s sERROR ADDRESS

+:6G0_TYPE--OCTAL ASCIICALL DIGITS)
+3:GET OUT
:sADJUST THE INDEX SO THAT IT WILL
i
WORK FOR THE ERROR TABLE
:sFORM TABLE POINTER
+sPICKUP "ERROR MESSAGE" POINTER
:3SKIP TYPEOUT IF NO POINTER
:3sTYPE THE "ERROR MESSAGE"
i3 "ERROR MESSAGE” POINTER GOES HERE
i3 "CARRIAGE RETURN” & “LINE FEED*
:sPICKUP “DATA HEADER” POINTER
3+ sSKIP TYPEOUT IF 0
::TYPE THE “DATA HEADER"

SEQ 0045

——

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
ERROR MESSAGE TYPEOUT ROUTINE

CVDRAC.P11
8048
8049
8050
8051
8052
8053
8054
8055
8056
8057
8058

8059
8060
8061

8062

012366
012370
012374
012376
012400
012402
012406
012410
012410
012412
012414

012416
012420
012424

012426

000000
104401
011000
001004
012600

104401
000207

013046
104402
005710
001770
104401
000771
020040
012432

001171

S$:
6%:

001171

.MORD

MOV
TYPE

(SP)+,RO
+$CRLF

TYPE
MOV
BNE

MOV

8(RO)+,-(SP)

TST

BEQ

TYPE

012426

8s:

.ASCIZ
EVEN

.SBTTL

09:37

PAGE 64-7

SEQ 0046
+3 "DATA HEADER” POINTER GOES MERE

+$CRLF
(RO),RO
74

RTS

TYPOC

O07-MAY-85

+ s "CARRIAGE RETURN” & "LINE FEED”
:sPICKUP “DATA TABLE” POINTER
;60 TYPE THE DATA

s sRESTORE RO
1: "CARRIAGE RETURN” & "LINE FEED*
: sRETURN

+sSAVE 8(RO)+ FOR TYPEOUT

+360 TYPE--OCTAL ASCIICALL DIGITS)

(RO)

+3IS THERE ANOTHER NUMBER?

.84

:3sTYPE TWO(2) SPACES

::BR IF NO

;s LOOP

:: TWO(2) SPACES

SCOPE HANDLER ROUTINE

PIAESSERE
00048080
REA
8000 00884800
A04
80880400
004
00000000
400
0004 48

+#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
+#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
+#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;#SW14=1
LOOP ON TEST
;#SW1l=1
INHIBIT ITERATIONS

;#5W09=1
;#SW08=1

:#CALL

i
8078
8079
8080
8081
8082

012432
012432
012434
012436
012444

104407
104407
032777
001117

8084

012446

000416

8086
8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100
8101
8102
8103

012450
012454
012462
012466
012472
012474
012476
012502
012504
012504
012512
012514
012520
012524
012530
012532
012536
012540

013746
012737
005737
012637
000466
022626
012637
000426

032777
001407
017746
042716
122637
001465
105737
001421
123737

$SCOPE:
040000

166474

1s:

LOOP ON ERROR
LOOP ON TEST IN SWR<S:0>

SCOPE

CKSWR
CKSWR

BIT

BNE

: s SCOPE=IOT

#B8IT14,8SWR

:sTEST FOR CHANGE IN SOFT-SWR
;GO0 LOOK FOR SWR CHANGE
+:LOOP ON PRESENT TEST?

$OVER

;3 YES IF SW14=1

:3IF RUNNING ON THE “XOR” TESTER CHANGE

;#8000START OF CODE FOR THE XOR TESTER®9900

$XTSTR: BR

000004
012474
177060
000004

000004

5¢:

166426

BR
CMP

$SVLAD
(SP)+,(SP)+

MOV
BR
BIT

(SP)+,80ERRVEC
74

+: TIME OUT ON XOR?

;;RESTORE THE ERROR VECTOR

+3G0 TO THE NEXT TEST
1:CLEAR THE STACK AFTER A TIME OUT

;;RESTORE THE ERROR VECTOR
:;LOOP ON THE PRESENT TEST

#8IT08,8SWR

+;LOOP ON SPEC. TEST?

MOV
8IC

8SWR, -(SP)
@$SWRMK, (SP)

+:SET DESIRED TEST NUM. FROM SWR
+sSTRIP AWAY UNDESIRED BITS

BEQ
TST8
BEQ

$OVER
$ERFLG
38

::BR IF YES
:sHAS AN ERROR OCCURRED?
::BR IF NO

CHPB
2%:
001103

(SP)+,@0ERRVEC

$3THIS INSTRUCTION TO A “NOP” (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
+3SET FOR TIMEOUT

64:;00000END OF CODE FOR THE XOR TESTERS00O¢

166420
000300
001102

001115

80177060

BEQ

001103

SOERRVEC,-(SP)
54, B0ERRVEC

TST

MOV

000004
000400

MOV
MOV

CMPB

(SP)+,$TSTNM

$ERMAX, $ERFLG

:3BR_IF NO

:3ON THE RIGHT TEST?

;;MAX. ERRORS FOR THIS TEST OCCURRED?

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
SCOPE MANDLER ROUTINE

07-MAY-85

CVDRAC.P11
8104
8105
8106
8107
8108
8109
8110
8111
8112
8113
8114
8115
8116
8117
8118
8119
8120
8121
8122
8123
8124
8125
8126
8127
8128
8129
8130
8131
8132
8133

012546
012550
012556
012560
012566
012570
012574
012600
012602
012610
012612
012616
012620
012624
012632
012634
012642
012650
012654
012662
012666
012672
012676
012704
012712
012716
012720

101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

001000
001110

166362
001106

001103
001160
004000

166330

001202
001104
001160
0000/1
012720
001102
001102
001106
001110
001162
000001
001102
001106

001104
001104
001160
001200

001115
166230

BHI
BIT
BEQ
7%:
MOV
BR
4s:
CLRB
CLR
BR
3$:
BIT
BNE
TST
BEQ
INC
cHP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOVB
MOV
MOV
CLR
MOVB
$OVER:
MOV
MOV
RTI
$MXCNT: 2000

.SBTTL

34
#8IT09,8SkWR

4t
SLPERR, $LPADR
$OVER
SERFLG
$TIMES
13
#8IT11,8SKR
13
$PASS
14
$ICNT
$TIMES, $ICNT
$OVER
1,$ICNT
$MXCNT, $TIMES
$TSTNM
$TSTNM,$TESTN

.ENABL

8135
8136
8137
8138
8139
8140
8141
8142
8143
8144
8145
8146
8147
8148
8149
:igg

012722
012730
012732
012736
012740
012744
012750
012754
012756
012764

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

8152
8153
8154
8155
8156
8157
8158
8159

012766
012772
012776
013002
013004
013010
013012
013014

104401
104401
013746
104402
104401
005046
005046
105777

000176

001140

166206

166202
177600
000007
001134

013457
013464
000176

013475
166124

000001

PAGE 64-8

SEQ 0047
$13BR IF NO

::LOOP ON ERROR?
:3BR IF NO
+3SET LOOP ADDRESS TO LAST SCOPE

+3ZERO THE ERROR FLAG

+sCLEAR THE NUMBER OF ITERATIONS TO MAKE
$;ESCAPE TO THE NEXT TEST
s s INHIBIT ITERATIONS?
::BR IF YES
:3IF FIRST PASS OF PROGRAM
T
INHIBIT ITERATIONS
s s INCREMENT ITERATION COUNT
1sCHECK THE NUMBER OF ITERATIONS MADE
33BR IF MORE ITERATION REQUIRED
s sREINITIALIZE THE ITERATION COUNTER
+3SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
$3SET TEST NUMBER IN APT MAILBOX
(SP),$LPADR
s sSAVE SCOPE LOOP ADDRESS
(SP), $LPERR
;s SAVE ERROR LOOP ADDRESS
$ESCAPE
:sCLEAR THE ESCAPE FROM ERROR ADDRESS
€1, $ERMAX
ssONLY ALLOW ONEC1) ERROR ON NEXT TEST
$TSTNM,8DISPLAY ::DISPLAY TEST NUMBER
$LPADR,(SP)
: sFUDGE RETURN ADDRESS
:sFIXES PS
;sMAX. NUMBER OF ITERATIONS

TTY INPUT ROUTINE

Rttt

8134

09:37

Lt LT T T

LSB

Y Y

TTTTTTTTYY YT

ERAAAAAAAAA L0004 4404080040 0000000000000
000000000444

+#SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
+#*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
+#SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
i*WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
#SWREG, SWR
+3IS THE SOFT-SWR SELECTED?
BNE
15¢
: sBRANCH IF NO
TST8
84 TKS
::CHAR THERE?
BPL
15
:3IF NO, DON'T WAIT AROUND
MOVB
:3SAVE THE CHAR
8IC
#tC177,(SP)
::STRIP-OFF THE ASCII
CMP
#7,(SP)+
:3IS IT A CONTROL G?
BNE
154
:3NO, RETURN TO USER
CMPB
$AUTOB,#1
s sARE WE RUNNING IN AUTO-MODE?
BEQ
15
: sBRANCH IF YES
TYPE
$GTSWR: TYPE
MOV
TYPOC
TYPE
19%:
CLR
CLR
74:
TST8

+3CNTLG

+ $MSWR
SWREG, -(SP)

+ $MNEW

-(SP)
-(SP)

93TKS

:;ECHO THE CONTROL-G (1G)
33 TYPE CURRENT CONTENTS
1 SAVE SWREG FOR TYPEOUT
+3G0 TYPE--OCTAL ASCIICALL DIGITS)
s sPROMPT FOR NEW SWR
: sCLEAR COUNTER
:: THE NEW SWR
1 sCHAR THERE?

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
TTY INPUT ROUTINE
CVDRAC.P11

8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170
8171
8172
8173
8174
8175
8176
8177
8178
8179
8180
8181
8182
8183
8184
8185
8186
8187
8188
8189
8190
8191

013020

100375

013022
013026

117746
042716

166120
177600

013032
013036
013040
013044
013050

021627
001005

000025

94:

104401
062706
000757

013452
000006

20$:

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737

000015

10%:

013052
013056
013060
013064
013066
013074
013100
013104
013112
013114
013122
013124
013130
013134
013136
013142
013144
013150
013154
013156
013160
013162
013164
013170
013174
013176
013202

021627

002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

001171
001135

000001

000100

166022

11%:
14%:

15¢:

16%:

011026

000002
177776

17%:

001170

18¢:

.DSABL

09:37

PAGE 64-9

BPL

+3IF NOT TRY AGAIN

MOVB

9$7KkB, -(SP)

$3PICK UP CHAR
s sMAKE IT 7-BIT ASCII

cMP

(SP),#25

TYPE
ADD
BR

+SCNTLY
#6,SP
19¢

$3IS IT A CONTROL-U?
: sBRANCH IF NOT
$3YES, ECHO CONTROL-V (tU)
: s IGNORE PREVIOUS INPUT
33LET'S TRY IT AGAIN

CMP
BNE
ST
BEQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI

(SP),e15
164
4(SP)
113
2(SP),8SWR
#6,5P
+ $CRLF

B8IC

166044

O07-MAY-85

BNE

#tC177,(SP)

104

JSR

PC,$TYPEC

:3IS IT A <CR>?
: sBRANCH IF NO
:3YES, IS IT THE FIRST CHAR?
:;BRANCH IF YES
s sSAVE NEW SWR
:3CLEAR UP STACK
:sECHO <CR> AND <LF>
:sRE-ENABLE TTY KBD INTERRUPTS?
s sBRANCH IF NOT
ssRE-ENABLE TTY KBD INTERRUPTS
s sRETURN
:3sECHO CHAR

CcMP

(SP), 067

:sCHAR > 77

CMP
BLY

$INTAG,#1
154
€100,84TKS
(SP),#60
18¢

BGT
BIC
ST
BEQ

184
#60,(SP)+
2(SP)
174

INC

2(SP)

ASL
ASL
ASL

BIS
BR
TYPE
BR
LSB

ettt

:sCHAR < 0?

: sBRANCH IF YES

: sBRANCH IF YES
:3STRIP-OFF ASCII
:3IS THIS THE FIRST CHAR
: sBRANCH IF YES
:3NO, SHIFT PRESENT
s
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
1 s KEEP COUNT OF CHAR
:3SET IN NEW CHAR
:3GET THE NEXT ONE

(sP)
(SP)
(SP)

-2(SP),(SP)
74
» $QUES
208

33 TYPE 2<CR><LF>

: s SIMULATE CONTROL
-V

T T

YYYYY

+#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;#CALL:
i
RDCHR
$sINPUT A SINGLE CHARACTER FROM THE TTY
T
RETURN HERE
+ sCHARACTER IS ON THE STACK
i *
s sWITH PARITY BIT STRIPPED OFF
H

013204
013206
013214
013220

011646
016666
105777
100375

000004
165724

000002

$RDCHR: MOV
MOV
14:
TST8
BPL

(SP),-(SP)
4(SP),2(SP)
898 TKS
14

;:PUSH DOWN THE PC
:3SAVE THE PS

: sWAIT FOR

;A CHARACTER

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
07-MAY-85 09:22
TTY INPUT

CVDRAC.P11
8216
8217
8218
8219
8220
8221
8222
8223

013222
013230
013236
013244
013246
013252

013254
013260
013264
013270
013272
013274
013302
013304
013312
013314
013322
013324
013332

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

165720
177600

000004

000004
000004
000023

165672

24:

165666
177600
000021
000004

000021

000004

000140

000004

000175

042766
000002

MOVB
BIC
cMP
BNE
1578
BPL
MOVB
BIC
cMP

34:

IugACYll 30(1046)
94TKB,4(SP)
#C<177>,4(SP)
4(SP),e23

#+tC177,(SP)

24
14
Q(SP).OOXON
4(8’).0140

4(59).0175

43:

RTI

44
940,4(SP)

O07-MAY-85

09:37

PAGE 64-10

ssREAD THE TTY
$3:GET RID OF JUNK IF ANY
$3IS IT A CONTROL-S?
: sBRANCH IF NO
3sWAIT FOR A CHARACTER
33LOOP UNTIL ITS THERE
:3GET CHARACTER
ssMAKE IT 7-BIT ASCII
$3IS IT A CONTROL-Q?
33IF NOT DISCARD IT

$3YES, RESUME

$3IS IT A RANDOM XON?

: sBRANCH IF YES

13IS IT UPPER CASE?
: sBRANCH IF YES
$3IS IT A SPECIAL CHAR?
: sBRANCH IF YES
:3MAKE IT UPPER CASE
::G0 BACK TO USER

;RANOO1
:RANOO1

PI00ARAEAA04004480044
088444408804 40000884880080088480000000484084004

+#THIS ROUTINE WILL INPUT A STRING FROM THE TTY
;#CALL:
ROLIN
i
$3INPUT A STRING FROM THE TTY
1
RETURN HERE
+ s ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
L]
3 s TERMINATOR WILL BE A BYTE OF ALL 0'S
013334
013336
013342
013346
013350
013352
013354
013360
013362
013366
013370
013374
013400
013404
013406
013412
013416
013420
013422
013430
013436
013440
013441
013442
013452
013457
013464
013472

010346
012703
022703
101405
104410
112613
122713
001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000

013475

$ROLIN: MOV
14:
MOV

013442
013452

000177

10%:

001170

013440
013440
000015

177777
001172
000004
013442

CMPB

000002
000004
9s:

005015
020075

005015
006507
053523
000

000
000012
020122

040

047040

053505

$MNEW:

#$TTYIN+S.
,R3

(SP)+,(R3)

#177,(R3)

BNE
TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB

34
. $QUES
14
(R3),94
94
015 (R3).
24
-1(R3)

MOV
MOV
MOV
MOV

(SP)+,R3
(SP),-(SP)
4(SP),2(SP)
@$TTYIN,4(SP)

TYPE

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:

000010
052536

CcMP

BLOS
RDCHR
MOVB

R3,-(SP)
#$TTYIN,R3

RTI
.BYTE

JSLF

.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

O
8.
/tU/<15>¢12>
/tG/<15>¢<12>
<15><12>/SWR = /

.ASCIZ

NEW = /

:sSAVE R3
:3GET ADDRESS
:sBUFFER FULL?
:3BR IF YES
:3:G0 READ ONE CHARACTER FROM THE TTY
:3GET CHARACTER
:3IS IT A RUBOUT
3 sSKIP IF NOT
ssTYPE A ' 2
3 sCLEAR THE BUFFER AND LOOP
:3ECHO THE CHARACTER
+ sCHECK FOR RETURN
+3:LOOP IF NOT RETURN
s sCLEAR RETURN (THE 15)
::TYPE A LINE FEED
: sRESTORE R3
+sADJUST THE STACK AND PUT ADDRESS OF THE
i
FIRST ASCII CHARACTER ON IT

: sRETURN
$sSTORAGE FOR ASCII CHAR. TO TYPE
+ s TERMINATOR
;sRESERVE 8 BYTES FOR TTY INPUT
s sCONTROL *u*
: sCONTROL “G*

MAINDEC-11-CVDRA-C DRV118B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
—

013502

07-MAY-85 09:22
036440

MACY11 30(1046)

TTY INPUT ROUTINE

O07-MAY-85

09:37

PAGE 64-11

000040

:g;g

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

8274
8275
8276

13088888 888888884884484484888888808888888880888088888888888880488
+#THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND
;#CHANGE IT TO BINARY.

8277
8278
8279

s¢THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
+¢0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A *"?” WILL BE TYPED
s#FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST

8282
8283

i
;e

g:g

s¢THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
;#CALL:

:22:;
8286
8287
8288
8289
8290

i
013506
013510
013516
013520
013522

011646
016666
010046
010146
010246

000002

RETURN HERE

$RDOCT: MOV
MOV
MOV

(SP)+,R0
RO,S5¢
R1
;7]
(RO)+,-(SP)
34
#'0,(SP)
4%
®'7,(5P)
44
R2

013524
013526
013530
013534
013536

8298
8299
8300
8301

013544
013550
013552
013556

122716
003026
122716
002423

8303

013562

006102

ROL

8305

013566

006102

ROL

8307
8308
8309
8310
8311
8312
8313
8314
8315
8316

013572
013574
013600
013602
013604
013606
013612
013616
013620
013622

006102
042716
062601
000756
005726
010166
010237
012602
012601
012600

ROL
BIC
ADD
BR
ST
MOV
MOV
MOV
MOV
MOV

8302

8304
8306

8317
8318

8319
8320
8321

8322
8323
8324

832s

013540
013542

013560
013564

013570

013624
013626

013630
013632

112046
001420

013634
24:

000060
000067

006301

ASL

006301

ASL

006301

ASL

177770

000012
013644

000002
005726

000000

013644

000000

104401
000730

34:

105010
104401

013634

013636
013642

1s:

001170

S$:
$HIOCT:

.SBTTL

(SP),-(SP)
4(SP),2(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)

MOV
MOV
ROLIN
MOV
MOV
CLR
CLR
MOVB
BEQ
CMPB
BGT
CMPB
BLT

8291
8292
8293
8294
8295
8296
8297

104411
012600
010037
005001
005002

000004

RDOCT

RTI
ST

CLRB
TYPE

.WORD

TYPE
BrR

.WORD

ssREAD AN OCTAL NUMBER

s3LON ORDER BITS ARE ON TOP OF THE STACK
s sHIGH ORDER BITS ARE IN $HIOCT
s sPROVIDE SPACE FOR THE
: s INPUT NUMBER
:3PUSH RO ON STACK

:3PUSH R1 ON STACK
:13PUSH R2 ON STACK
13READ AN ASCIZ LINE
:3GET ADDRESS OF 1ST CHARACTER
s3AND SAVE IT
:3sCLEAR DATA WORD
33PICKUP THIS CHARACTER
:3IF ZERO GET OUT

:sMAKE SURE THIS CHARACTER
:3IS AN OCTAL DIGIT

1382

j:04

1348

R2
#C7,(SP)
(SP)+,R1
24
(SP)e«
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,RO
(SP)«

(RO)
O

. $QUES
1
O

13STRIP THE ASCII JUNK
33ADD IN THIS DIGIT
3+ :LOOP
:sCLEAN TERMINATOR FROM STACK
13SAVE THE RESULT
13POP STACK INTO R2
:3POP STACK INTO R1
:3POP STACK INTO RO

s sRETURN
1:CLEAN PARTIAL FROM STACK

$3SET A TERMINATOR
1sTYPE UP THRU THE BAD CHAR.
$3"7" "CR” & "LF"”
13 TRY AGAIN
; sHIGH ORDER BITS GO HERE

POWER DOWN AND UP ROUTINES

SEQ 0050

—

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-85 09:22

8329
8330
8331
8332
8333
8334
8335
8336
8337

013646
013554
013662
013664
013666
013670
013672
013674
013676

012737
012737
010046
010146
010246
010346
010446
010546
017746

165236

8339
8340

013706
013714

012737

013720

014012
000340

8338 013702 010637 014016

:333

8343
8344

013716

(13720
013726
013732
013736
013742
013744
013750
013752
013754
013756
013760
013762
013764

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737

8359

014000

104401

014012
014016
014016
014016

000024
000026

000024

8358 013772 012737 000340 000026
8360

8361
8362
8363
8364
8365

8366
8367

8368
8369
8370
8371
8372
:g;:

837s
8376

8377

014002

014004
014006
014010
014012
014014

014016
014020
014026
014034
014042
014050

SPWRDN: MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000024

165170

013646

014020

O7-MAY-85

@SHR, -(SP)

09:37

re——————

PAGE 64-12

13PUSH GSHR ON STACK

1sSAVE SP

-2

1 sHANG UP

“W OOPURVEC ;;SET UP VECTOR

110008888888848404080008808000808000080804080000080838008888888008
sPONER UP ROUTINE

$PWRUP: MOV
MOV
CLR
14:
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

@$ILLUP, BOPURVEC ;;SET FOR FAST DOWN
$SAVR6 . SP
+3GET SP
$SAVR6
s sWAIT LOOP FOR THE TTY
$SAVR6
1sWAIT FOR THE INC
14
130F WORD
(SP)+,85uR
13POP STACK INTO @SWR
(SP)+,.RS
+3POP STACK INTO RS
(SP)+,.R4
+3POP STACK INTO R4
(SP)+,.R3
13POP STACK INTO R3
(SP)+,R2
13POP STACK INTO R2
(SP)+,R1
13POP STACK INTO R1
(SP)+,RO
13POP STACK INTO RO
#4PURDN, OPURVEC ; ;SET UP THE POMER DOWN VECTOR

MOV

€340, BOPURVEC +2 13PRIO:7

.WORD

PWRMSG

1sPOMER FAIL MESSAGE POINTER

-2

13 THE POMER UP SEQUENCE WAS STARTED
ss BEFORE THE POWER DOWN WAS COMPLETE

TYPE

MOV
.WORD
RTI
SILLUP: MWALT
BR

052123
020104
050040
044501

#SILLUP, OPURVEC ;;SET FOR FAST W
9340, ,00PURVEC+2 ;;PRIO:7
RO, -(SP)
13sPUSH RO ON STACK
R1,-(SP)
+sPUSH R1 ON STACK
R2,-(SP)
13PUSH R2 ON STACK
R3,-(SP)
+sPUSH R3S ON STACK
R4,-(SP)
13sPUSH R4 ON STACK
RS,-(SP)
13PUSH RS ON STACK

SP, $SAVR6

$PHRAD:

042522
042524
046517
043040

MACY11 30(1046)

MoV

MOV
HALT

$PURMG:

012716
002372
000002
000000
000776

000000
005015
051101
051106
051127
000114

1100660800040408080000080004080080004080048800000000880008000880808088
sPOMER DOWN ROUTINE

000776

8345
8346
8347
8348
8349
8350
8351
8352
8353
8354
8355
8356
8357

————

POMER DOWN AND UP ROUTINES

8326

8327
8328

$SAVR6: 0
PWRMSG: .ASCIZ

(PC)+,(SP)
RESTRT

s sREPORT THE POWER FAILURE

1 sRESTART AT RESTRT
1 sRESTART ADDRESS

13PUT THE SP HERE
(15>¢1Z>IRESTMTED FROM PWR FAIL/

.EVEN
.SBTTL

TRAP DECODER

11080888888804840800080880808000000084080800088000808080808084880888

1#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION

##AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

SEQ 0051

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11

07-MAY-85 09:22

MACY11 30(1046)

O7-MAY-85

09:37

PAGE 64-13

180F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
160 TO THAT ROUTINE.
STRAP:

MOV

MOV
ST

MOV
ASL
MoV
RTS

RO,-(SP)

2(SP),.RO

$3SAVE RO

$3GET TRAP ADDRESS

-(RO)

3 3BACKUP BY 2

3360 TO ROUTINE

(RO).RO
$3GET RIGHT BYTE OF TRAP
RO
s3sPOSITION FOR INDEXING
STRPADC(RO)
,RO ;; INDEX TO TABLE

33 THIS IS USE TO MANDLE
THE "GETPRI” MACRO
011646
016666

$TRAP2: MOV

MOV
RTI

.SBTTL

(SP),-(SP)

4(SP),2(sP)

1sMOVE THE PC DOWN

1sMOVE THE PSH DOWN
1 sRESTORE THE PSW

TRAP TABLE

1#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
188Y THE "TRAP* INSTRUCTION.

014106
014110
014112
014114
014116
014120

014074
010614
011442
011416
011456
011644

014122

012772

014124
014126
014130
014132

012722

013334
013506

014134
014142
014150

042522
042515
051105

020107
052517
000

044524

EM1:

.SBTTL

ASCII MESSAGES

.ASCIZ

/REG TIMEOUT ER/

014153
014160
014166
014174

122
040505
052111
000

043505

EM2:

.ASCIZ

‘'REG READ/MRITE ER’

020105

051040
051127
051105

014175
014202
014210

102
051505
000122

051525
052105

051040
042440

EM3:

.ASCIZ

/BUS RESET ER/

TRPAD:

.WORD
$TYPE

STRAP2
§;CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE
TYPE
TYPE
TYPE

$GTSHMR ; ;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRAP+7(104407)

TEST FOR CHANGE IN SOFT-SWR

$TYPOC
$TYPOS
STYPON
$TYPDS

SCKSWR

013204

;3 CALL=CKSWR

SROCHR ;; CALL =ROCHR
SROLIN
;;CALL=ROLIN
$ROOCT
5 ;CALL=RDOCT

020124

TRAP+1(104401)

TTY TYPEOUT ROUTINE

OCTAL NUMBER (MITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (MITM SIGN)

TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY

MAINDEC-11-CVORA-C DRV118B DMA INTERFACE DIAGNOSTIC
07-MAY -85 09:22
ASCII MESSAGES

CVORAC.P11
8427
8428

014212

014220
014226

014234
014242

046111

052103
020123
042105
042523
052101

041040
040506

MACY11 30(1046)

e
——

O07-MAY-85

EM4:

.ASCIZ

/FNCT BITS FAILED TO SET STAT BITS/

EMS:

.ASCIZ

/READY INTR FAILURE/

052040
020124

000123

014254
014262
014270
014276

042522
047111
044501

042101
051124
052514

042522

014277
014304
014312
014320

122
041440

040505
051114
042523

054504
047440
020124

EM6:

.ASCIZ

/READY CLR OR SET ER/

014323
014330
014336
014344

123
020123
020116

040524
051105
043130

052524
047440
051105

EM7:

.ASCIZ

/STATUS ER ON XFER/

014345
014352
014360
014366

127
047503
051105
043130

051117
047125
047440
051105

020104
020124
020116
000

EM10:

.ASCIZ

/WORD COUNT ER ON XFER/

014373
014400
014406
014414

102
020122
042440
054040

043125
042101
020122
042506

042506
051522
047117
000122

EM11:

.ASCIZ

/BUFFER ADRS ER ON XFER/

014422
014430
014436

040504
020122
046440

040524
051106
046505

042440
046517
000

EM12:

.ASCIZ

/DATA ER FROM MEM/

014443
014450
014456

104
051105
042515

052101
052040
000115

020101
020117

EM13:

.ASCiZ

/DATA ER TO MEM/

020122
051105

041040

020131

8445

8447
84438
8449
8450

8451

8453
8454

8455
8457

8458

09:37

PAGE 64-14

SEQ 0053

020117
052123
052111

014250

8443

047106
052111

—

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
8459
8460

8461

07-MAY-85 09:22

ASCII MESSAGES

MACY11 30(1046)

O07-MAY-85

09:37

PAGE 64-15

SEQ 0054

014462
014470
014476
014504
014512
014520
014526

044523
041440
047440
042111
046040
052517
000125

043516
041531
043106
047040
041517
020124

042514
042514
042040
052117
020113
050103

EM14:

.ASCIZ

/SINGLE CYCLE OFF DID NOT LOCK OUT CPU/

014530
014536
014544
014552
014560
014566

044523
041440
047440
045503
052125

043516
041531
020116
042105
041440

042514
042514
047514
047440
052520

EM1S:

.ASCIZ

/SINGLE CYCLE ON LOCKED OUT CPU/

014567
014574
014602
014610
014616
014624
014632
014640

015
051501
040523
051042
020042
054522
042522
052120

050012
020105
046102
053105
042515
051040
044123
047511

042514
044504
020105
030461
047515
043105
047440
116

-ASCII

<15><12>/PLEASE DISABLE

014645
014652
014660
014666
014674
014702
014710

015
042440
020105
051505
042515
051040
044123

040412
040516
051120
047523
047515
043105
020040

042116
046102
041517
020122
054522
042522
000040

-ASCIZ

<15><12>/AND ENABLE PROCESSOR MEMORY REFRESH

01471¢
014724
014732

042516
044507

020130
020103

047514
051105

.ASCIZ

/NEX LOGIC ER/

8463
8465

8467

8469
8470
8471
8472
8473

8474
8476
8477
8478
8479
8480
8481

EM16:

"REV11” MEMORY REFRESH OPTION/

—

MAINDEC-11-CVORA-C DRV118B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
8489
8490
8491

8502
8503
8505
8506
8507
8508

8509
8510
8511

8512
8513
8514
2515
8516

8517
8518
8519
8520

07-MAY-85 09:22

O07-MAY-85

09:37

PAGE 64-16

SEQ 0055

042514
042514
041440
051102
000051

EM17:

.ASCIZ

/CYCLE FAILED TO CLK DBR (IN)/

040504
020122
044440
043501
051503

040524
051106
047457
020105

042440
046517

EM20:

.ASCIZ

“DATA ER FROM I/0 PAGE (XCSR)”

105

051122

041520
052123
041040
020122
052103
053103

DH1:

.ASCIZ

/ERRPC

TSTNUM

BUSADR

EXPCT

RCVD/

020103
047124
052502

DH2:

.ASCIZ

/ERRPC

TSTNUM

BUSADR

ADRS

EXPCT

DH3:

.ASCIZ

/ERRPC

TSTNUM

BUSADR/

045514
024040

014770
014776
015004
015012
015020

015025
015032
015040
015046
015054
015062
015070

015147
015154
015162
015170

MACY11 30(1046)

041531
044501
047524
042040
047111

103

014733
014740
014746
014754
014762

015072
015100
015106
015114
015122
015130
015136
015144

ASCII MESSAGES

043040
020104

052516
051525
042440
000104

051105
046525
040523
042101
020124
042126

024522

020115

042101
05C130
051040

050122
051524
051104
051522
054105
020040

105

051122

052516
051525

042101

020115

054050

020040
041520
041522

041520
052123
041040
000122

RCvVD/

m——

?%C;II-CMC-C DRV118 DMA INTERFACE DIAGNOSTIC
Vv
P11
07-MAY-85 09:22
ASCII MESSAGES
8521
8522

8523
8524
8525
8526
8527
8528
8529

8530
8531
8532
8533
8534

8535
8536
8537
8538
8539

8540
8541
8542
8543

DT3:

$ERRPC, TSTNUM, $BDADR, 0

052040
047522
051117

KDF11B:

.ASCIZ

<15><12>/IS THE PROCESSOR KDF11-8?

047101

IOTEST:

.ASCIZ

<15><12>.TRANSFERS FOR I/0 PAGE?

051104
043117
050040
020040

IOADR:

.ASCIZ

<15><12>\ADDRESS OF I/0 PAGE?

001122
000000

015212
015220
015226

001116
001120
000000

001534
001124

001122
001126

015230
015236

001116
000000

001534

015240
015246
015254
015262
015270

005015
042510
042503
045440
041055

051511
050040
051523
043104
020077

015276
015304
015312
015320
015326

005015
043123

051124
051105
020122
040520

020123
027511
042507

042101
020123
047457
037505

.EVEN
PISEAA000080044044000000488480000040080880804080

000000000000048844

:'DBUF’ IS THE WORKING AREA IM EACH 4K MEM FOR ALL
iNPR OPERATIONS - IT IS 200 WORDS LONG
PiRAERARS

8549
8550

030461
000040

015364

8545
8546
8547

PAGE 64-17
SEQ 0056

001122

001534
001126

005015
051505
044440
043501

09:37

.EVEN
$ERRPC, TSTNUM, $BDADR, $GDDAT, $8DDAT,0

001116
001124

015332
015340
015346
015354
015362

O07-MAY-85

DT1:

015176
015204

020117
020077

MACY11 30(1046)

015364

000000
000001

DBUF :

A48 00400040000408400000000000000000

oE'O

:1ST ADRS OF DATA BUFFER

0000000404

e ———

—

flfiIN%EC;{{-CVDRA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O7-MAY-85
07-MAY-85 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS

ABASE = 172410
ACON1 =
ACDM2 =
ACPUOP
=
ADDWO =
ADOM]L =
ADOW10ADDW11=
ADDW12=
ADDW13=
ADOW
14 =
ADDW1S=

6183¢
6218¢
6219¢

62040
62200
6221¢
62300
6231¢
62320
62334
62344
6235¢
62224
6223¢
6224¢
6225¢
62260
6227¢
62280
6229¢
6196¢
6186¢
62004
6201¢
6193¢
7365
6207¢
6210¢
62130
62168
6205¢
6208¢
6211¢
62144
6198¢
6199¢
6192¢
6206¢
6209¢
6212¢
6215¢
6195¢
7692
7685

6569

ATESTN=
AUNIT =
AUSKR =
AVECT1=
AVECT2=

BIT0
B8IT00
BITO01
BITO2

=
=
=
=

7687
6202¢
6194¢
6197¢
6203¢
6185¢
6217¢
6168¢
6158¢
6157¢
61564

6375
6377
6378
6349
6379
6380
6389
6390
6391
6392
6393
6394
6381
6382
6383
6384
6385
6386
6387
6388
6340
6376
6345
6346
6337

74064
6362
6366
6369
6372

6356
6364
6367
6370
6342
6343
6336
6357
6365
6368
6371
6339

7813¢
7769
7810¢
7771

6347
6338
6341
6348
6373
6374
6168
6167
6166

78114

7990

7812¢

6698

6703

6762

7550

09:37

PAGE 65

SEQ 0057

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11

07-MAY-85 09:22

BITO3 = 000010
BITO4 = 000020
BiITOS = 000040
BIT06 = 000100
BITO7 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
8IT12 = 010000
BIT13 = 020000
BIT14 = 040000
B8IT1S = 100000
BIT2
= 000004
BITS
= 000010

6155¢
6154¢
6153¢
6152¢
6151¢
6150¢
6149¢
6167¢
6148¢
6147¢
6146¢
6145¢
6144¢
61430
6166¢
6165¢

BITS
= 000040
BIT6
= 000100
BIT7
= 000200
BIT8
= 000400
BIT9
= 001000
BPTVEC= 000014
CKDAT
010444
CKDAT1
010512
CKSTAT
010142
CKSWR = 104407
CORSZ
001540
CORSZR
002270
CR
= 000015
CRLF
= 000200
DBUF
015364

6163¢
6162¢
6161¢
6160¢
6159¢
6175¢
7098
7212
6958
6051¢
6525¢
6618
6083¢
6084¢
6526
7182
gggg.

7611¢
7311
7004
7973
6617
6623¢
7747
6603
6630
7286
6630«

BIT4

= 000020

MACY11 30(1046)

O07-MAY-85

CROSS REFERENCE TABLE -- USER SYMBOLS

6165
6164
6163
6162
6161
6160
6159

09:37

PAGE 65-1

SEQ 0058

6614

8095
8001

8105

7978
8112
7206
8081

7985

6164¢

6862

7353
7050
7974
6628+

7630¢
7088
8000
7325

7194
8015

7301
8079

7343
8080

7382

7424

7532¢

7702
6946
7358
7323+

6947+
7399
7324+

6967
7441
7325

6993
7565
7328

7014
7569
7358+

7016
7574
7369«

7039
7611
7399+

7059
7618
7411+«

7076
8549¢
7441+

7113

7146

7548

7588

6434
8508¢

6440

6446

6451

6457

6463

6493

6499

8501¢

7977+

8127+

6764
7253

6902
7257

6904+
7286+

6905
7328+

6910
7370+

6946+
7412«

6993+
7452+

6807+«
6886
6995+«
7084+
7186+
7267
7373+«
7533+
7521+

6809
6890+«
6996+
7107
7187
7271
7374+
7537

6818
6892
6998
7115«
7189
7275
7375

6836
6901+
7000
7116+
7190«
7289+«
7377

6839+
6909+
7041+
7123
7229«
7290+
7378+

6840
6914+
7042+
7124+
7230+
7294
7415+

6857
6923+
7043
7140
7231
7296
7416+

6755+

6766

6768

6920

6922+

6924+

6925

DBUFP

001542

DDISP =
DH1
DH2
DH3
DISPLA
DISPRE
DMAP
DRVBAR

177570
015025
015072
015147
001142
000174
001536
001522

6090¢
6416
6469
6481
63156
6247¢
65240
6512¢
;gzgt

6315
6422
6475
6487
6557+
6565
6632¢
6693
;g;gt

6633+
6696+
7113+

6635
6697
7146+

7449+
6754+
7182+

7458
6761
7227+«

DRVCSR

001524

DRVCTO
DRVCT2
DRVDBR

001530
001532
001526

6513¢
6862+«
6929+
7045
7148+
7233
7297+«
7417
65188
6519¢
6514¢

6780
6864
6948+
7046+«
7149+
7234+«
7331+
7419
6579
6584
6577

6784+
6863
6949+
7079«
7154
7238
7332«
7420%
6856+
7456+
6716

6785
6872
6951
7080+
7155«
7242
7336
7453«
6861+
7513+
6719+

6795
6883
6953
7081
7164
7262+«
7338
7520+
7455+
7521
6720

6805
6885+
6954+
7083
7185+«
7263
7339«
7532
7512+
7522+
6735

6557
6428
6504
8516¢
6565«

———

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
07-MAY-85 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS

CVDRAC.P11

6931

DRVWCR

DSWR
DT1
D12

7438

001520

6511¢

7075«
7540
6089¢
6417
6470
6482

=« 177570
015176
015212

T3
015230
EMTVEC= 000030
EM1
014134
EM10
014345
Emi1
014373
EM12
014422
EM13
014443
EM14
014462
EM15
014530
EM16
014716
EM17
014733
EM2
014153
EM20
014770
EM3
014175
EM4
014212
EMS
014254
EM6
014277
EM7
014323
ERRVEC= 000004
GTSWR = 104406
HT
= 000011
IOADR
015332
IOPAGE
001544
IOTEST
015276
IOTVEC= 000020
KDF
001546
KDF118
015240
LDBUF
010322
LDBUF1
010374
LF
= 000012
MFPT
= 000007

MTPS
=
NXDEV
NXDEV1
PIRQ
=
PIRQVE=
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=

PRS
PR6
PR7
PS
PSW

=
=
=
=
=

6178¢

6415
6456
6462
6468
6474
6480
6486
6492
6498
6421
6503
6427
6433
6439

6445

6450
6171¢
6050¢
6081¢

8539¢

65274
8534¢
6176¢
6528¢
8529¢

7037
7178
6082¢
60444
6187¢
7401

106427
027656
007660
177772
000240
000000
000040
000100
000140
000200

6637
6088¢

6182¢
6105¢
6106¢
6107¢
6108¢
6109¢
61100
6111¢
6112¢
6085¢
60864
8360
6177¢

000240
000300
000340
177776
177776

PWRMSG
014025
PWRVEC= 000024

MATAMMMEP
S

PUIRRNRA

AMPIIA AN

MLIA

6969
7454«
6573

6972
7614
6643

6994+
7645
6656

09:37

PAGE 65-2

SEQ 0059

7019

7061

7064

7077+

7372+«

7393

7396

7414+

7435

6673

7184+

66762+
7226+

667"
7246

6753+
7250

6757

6759

7329+

6945«
7368+

6992+
7410+

7038+
7451+

6435
85249

6441

6447

6452

6458

6464

6494

6500

8522¢

6555+«

6566+

6624+

6629+

6655+

6666+

8086

8087+

8089+

8092+

7406

7411

7412

7434

7439

6539+

6540+

7565¢
7285
7751

7327

7407
7448¢

74470
7459

8330+

8339+

8345+

8357+

8358+

7112¢

7542
6314
6423
6476
6438
6541s
8418¢
84460
8450¢
84540
8457¢
84600
84679
8488¢
8491¢
84214
84969
8425¢
8428¢
8434¢
8438¢
84420
6554
6598
7700

7145+«

6556
6429
6505
8527¢
6542+

7183+

7287+

75884

6613

6086

8367¢
6545+

LIV
LI 6
60

6546+

SoS & oo

oo o

8329+

—

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
CVDRAC.P11
07-MAY-85 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS

ROCHR = 104410
ROLIN = 104411
RDOCT = 104412

RESTRT
002372
RESVEC= 000010
RSTVEC 010116

6634
6172¢

SETUP2
SETUPS
SETVEC

STACK =
START
START1
STKLMT=

SWR

SWRCK

SWOO
SWO1

SW02

8246
8291

1
7460

8362

gz"g

gg'zlg.

6981

7028

7066

7100

7133

7169

7216

7277

7315

7359

7400

002022
002052
010076

6575¢
6582¢
g;II.

6578
6585
6941

6988

7035

7073

7108

7141

7176

7224

7283

7321

7366

7408

001100
001550
002012
177774

6076¢
6250
6573¢
6087¢

6537
6530¢
7494

6639

6535

6556+«

6558

6564+

6571+

6596

6614+

7364

7978

7985

7997

8001

6596

8141

8154

8524

8527

001140
012260

= 000001
= 000002

= 000004

= 104400

TRAPVE=
TRTVEC=
TSTNUM
TST1
TST10
TST11

SEQ 0060

6638¢

SWO3
= 000010
SWO4
= 0C0020
SWOS
= 000040
SWO6
= 000100
SW07
= 000200
SWO8
= 000400
SW09
= 001000
SH1
=
SW10
= 002000
SWi1
= 004000
SWi2
= 010000
SW13
= 020000
SWi4
= 040000
SW15
= 100000
SW2
= 000004
SW3
= 000010
SW4
= 000020
SW5
= 000040
SW6
= 000100
SW7
= 000200
SW8
= 000400
SW9
= 001000
TBITVE= 000014
TKVEC = 000060
THMAIN = 177522
TPVEC = 000064

TRAP

PAGE 65-3

6636

SWREG
000176
SWO
= 000001

6052¢
6053¢
60544

09:37

000034
000014
001534
002426
003426
003502

6314¢
8081

7987

62486
61400

6130¢
6129¢

6128¢

6127¢
6126¢
6125¢
6124¢
6123¢
6122¢
6121¢
6139¢
61204
6119¢
6118¢
6117¢
6116¢
6115¢
6138¢
61374
61364
6135¢
61340
61334
6132¢
6131¢
6173¢
61804
6188¢
6181¢

61840

6179¢
6174¢
6523¢
6648¢
6803¢
6811

8095

8013¢

6564

8097

8105

8112

6140
6139

6138

6137
6136
6135
6134

6133
6132
6131

6543+

6544s

8013+

8522

6817¢

8141

8178+

8337

8350+

~o
e

—=

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.P11
1ST12
TSTI3
TSTi4
TSTIS
1ST16
TST17
1ST2
1ST20
1ST21
1ST22
1ST23

1ST24

1ST25
1ST26
1ST27
TST3
TST30
TST31
1ST4
TSTS
1ST6
1ST?7
TYPDS =
TYPE =

003564
003662
004022
004124
004226
004342
002536
004572
005014
005222
005376

68340
68520
68810
6894
69190
6933
66710
69860
70330
70710
7105¢

005754
006212
006572
002634
006764
007210
002752
003050
003130
003256
104405
104401

71740
72210
72810
66910
73190
73630
6707
67340
6744
6767
6049¢
60450
8047
8320
60460
60480
60470
6619
6274
7762
77600
7690
77630
6311¢
6375¢
63060
6857+
71878
7537«
63080
6743
6823
6892+
7016«
7161
7271
7436
63260
63770
63780
7706«
81410
62940
8152

005552

TYPOC = 104402
TYPON = 104404
TYPOS = 104403

WARN
$APTHD
SATYC
SATY1
SATY3
SATYS
SAUTOB
$BASE
$BDADR

014567
001000
011174
011150
011156
011166
001134
001250
001122

$BDDAT

001126

$BELL
SCOML
$COM2
SCHARC
SCKSWR
SCMTAG
SCNTLG

O7-MAY-85 09:22

001164
001254
001256
011144
012722
001100
013457

MACY11 30(1046)

O07-MAY-85

CROSS REFERENCE TABLE -- USER SYMBOLS

09:37

—

PAGE 65-4

SEQ 0061

69000
69390

71380

67140
67500
67740
7483
6590
8049
8322
8033

6619
8053
8359
8057

7481
8060

7484
8152

7705
8153

7874
8156

7949
8169

7980
8180

7988
8199

8025
8250

8042
8253

8044
8257

6716
6951s
7257«
7645«
6697

6736
6972«
7267+
8522
6698+

6759«
6998+
7275¢
85284
6699

6764
7019
7294s
8527
6720s
6787
6864+
6931s
7120¢
72464
7338«
7615«

6768+
7043
7336+

6780
7064«
7375s

6805
7081s
7396s

6819s
7107
7417+

6836s
7140e
7438s

8155

84730
62800
77649

77610
7993
6600+
6574
6658+
6883+
7231s
7542«
6654+
6757+
6824
6893
7017
7164+
7273
7532«
7980
7716+
8412
6533
8267¢

8149

6673+
6902«
7242«
7553«
6677«

6761
6825«

6693
6§920s
7250%
7614+
6678

6762«
6826

6766
6840s

6905«
7045«
7166
7291s
7535

6906
7061«
7189+
7292«
7540«

69108
7062
7233s
7296+
7549+

7723

7749«

717548

6785«
6841+

6925«
7083+
7238«
7333«
7550«

6786«
6842

6926
711ls
7240
7334«
7551

6721

6795«
6868+

6932
7123«
7248
7377«
7642+

6739«

6796+
6872¢

6953+
7130
7253«
7393«
8522

6740

6809s
6873

6969
7144s
7255
7394
8524

6741

6810
68864

6970
7151
7263
7419

6742s

68224
6887

7000s
7154e
7265
7435s

MAINDEC-11-CVDRA-C DRV118B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046) O7-MAY-85
CVORAC.P11
O7-MAY-85 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS
SCNTLU
SCPUOP
SCRLF
$0BLK
$00NO
S00NL
$00N10

013452
001222
001171
012060
001260
001262
001304

$DON12
$0DW13
$00N14
$0DW1S
$0DM2
$0DN3
$DDN4
SDONS
S0DN6
SODN7
$DDN8
$DDN9
$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
$ENDCT
$ENDMG
$ENULL
SENV
SENVM
SEOP
$EOPCT
$ERFLG
SERMAX
$ERROR
$ERRPC
$ERRTB
SERRTY
SERTTL
$ESCAP
SETABL
SETEND
SFATAL
SFFLG
SFILLC
SFILLS
$GDADR
$GDDAT

001310
001312
001314
001316
001264
001266
001270
001272
001274
001276
001300
001302
001204
001252
010052
012050
010042
010010
010061
010056
001214
001215
007754
010002
001103
001115
012070
001116
001320
012276
001112
001162
001214
001320
001176
011414
001156
001155
001120
001124

$D0N11

001306

8169
63490
63280
7915
63790
63800
6389¢

010032

PAGE 65-5

SEQ 0062

82660
7705
7949
6643

7988
7957¢

8025

8044

8049

8053

8180

63900

63916
63920
6393¢
63940
6381¢
63820
6383¢
63840
6385¢
63860
63870
63880
63400
637686
7477
7918
6260
7479¢
7481
7484
63450
63460
7450
74760
62970
63030
6541
63040
6413¢
8014
6301¢
63250
63440
6286
6337¢
7760s
63220
63216
63050
6307¢
6706¢
6787
6891¢
6999¢
7239«
;ggg.

$GET42

09:37

74850

6640
6632
7486
7953¢
74880

74960
74950
6594
6569
74690
7480
7975«
6549«
7972¢
7982«
8039
80240
7981s
6548+
63970
7797
7763s
7709
6967+
6653+
6708+
6794+
6893
7015+
7240
:gg:

7492¢

7685
7687

7769
7692

7793
7771

8101
8103

8103
8126+

8109+

7983+

7984

8031

8004

8006

8125+

7791

7800s

78080

7014s
6675«
6718+
6806+
6903+
7017
7247+

7059
6676
6719
6810
6906
7044s
7248

7397«
6678
6721
6821+
6912¢
7060+
7254s

7418+

7434s

7436

7990

8522

8524

8527

7439
6681s
6724s
6826
6921+
7062
7255

7616¢
6684s
6727
6837«
6922
7082«
7264

7643+
6685s
6728
6842
6926
7122
7265

7534s

7535

7543s

8524
6695«
6738
6845+
6930
7153«
7272¢

7546

6696
6743
6858s
6932
7165
7273

7547+

6699
6752+
6873
6952¢
7166
7295
7548+

6702
6782«
6884s
6968+
7188s
7337«
7551

6703
6783+
6887
6970
72324
13768
7644

—

e R

m——eacm

—

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.P11
SGTSWR
SHIBTS
SHIOCT
SICNT
SILLUP
S$INTAG
SITEMB

SLF

SLFLG
SLPADR
SLPERR
S$MADR1

SMADR2
S$MADRS
S$MADR4
SMAIL
SMAMS1
SMAMS2
SMAMSS
SMAMS4
$MBADR
IMFLG
SMNEW
$MSGAD
$MSGLG
SMSGTY
$MSWR
MTYP1
SMTYP2
$MTYPS
SMTYP4
SMXCNT
SNULL
SOCNT
SOMODE
SOVER
$PASS
SPASTHM
SPWRAD
SPWRDN
SPURMG
SPURUP
$QUES
SROCHR
SROLIN
$RDOCT
SRTNAD
$SAVR6
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SHR
=
$SWREG
$SWRMK=

012772
001000
013644
001104
014012
001135
001114

001172

011413
001106
001110
001226

001232
001236
001242
001174
001224
001230
001234
001240
001002
011412
013475
001210
0C1212
001174
013464
001225
001231
001235
001241
012720
001154
011640

011642
012704
001202
001006
014006
013646
014002
013720
001170
013204
013334
013506
010054
014016
012432
000137
177777
012650
000106
167400

001216
000300

07-MAY-85 09:22

8153¢
6281¢
8313«
6298¢
8329
6312¢
63026

6329¢

7801+
6299¢
63000
6362¢

6366¢
6369¢
6372¢
6282
63564
63644
63674
63700
6282¢
7761«
8156
63420
63430
63368
8153
6357¢
63650
6368¢
6371¢
8120
6320¢
7846+

7841+
8082
6339¢
62840
8362¢
6545
8360¢
8339
6327¢
8212¢
82420
82060
74940
8338+
6539
60244
6024¢
8090
62580
6058¢
6347¢
6060¢

MACY11 30(1046)

e r——

———

O7-MAY-85

09:37

PAGE 65-6

CROSS REFERENCE TABLE -- USER SYMBOLS

w—

—

e —

SEQ 0063

8410
83244
8116«
8345
8181
7984+

8257

7807¢
6550+
6551+

8117
8364¢

8119«

7992

8028

6649«
6652+
,

8107+
6672+«

6286

6335¢

7767
8270¢
7777¢
7782+
7775
8268¢

7802«

8123+
6692+

78064

7780

7783+

7795

7799+

8130¢
7711
7875«
7845«
8100
6568+

7888¢
7850
8108
7473«

7853+
8118
7474+

7864+
8127¢
7482

8329¢

8357

8345¢
8199
8413
8414
8415

8346
8078¢
8121¢
6263
6059¢
6571
8098

8128
6715«

8250

8322

8347+

8348+

8366¢

78900
8114

6779«

6835¢

6940«

6987+

8003

8107

8124

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11

07-MAY-85 09:22

STESTN
STIMES

001200
001160

$TKB
$TKS

001146
001144

TP8

63380
63240
7320s

6650«
6547+
7472+

= 000001

6057¢

60610

001157

6323¢

7679

STPFLG

6317¢
63166

001152

63190

7730
7728

001150
014052

63180
6240

7369
6543

STRPAD

014106

8386

8403¢

014074

8392¢

8403

$TSTH

001004

STYPDS
STYPE

011644
010614

STYPOC

011442

78440

8405

STYPOS

011416

7839¢

8406

SUNITH
SUSWR

001010
001220

ITSTNM
STTYIN

STYPEC
STYPEX

STYPON

62830

001102
013442

62968
8243

6651«
8244

011026
011146

7708
7750

7715
7752

79036
7679¢

011456

SUNIT

SVECT1
SVECT2
$XOFF =
$XON
=
IXTSTR
SOFILL

7843

ERRORS DETECTED:

8099

8121+

8122

8127

8408
7788

7727¢

8185

6641

7457+

78894
6258

6259¢

62610

62634

62640

6270

8404

7722
7755¢

78466

8407
6640

6550

6551

66048

000
O

CVDRAC, CVDRAC/CRF : SYM/NL : TOC=SYSMAC.SML ,CVDRAC.P11
RUN-TIME: 9 12 .8 SECONDS
RUN-TIME RATIO: 77/22-3.3

CORE USED:

36K

(72 PAGES)

8220

8013

6275

015366

8222
8214

7977
8265¢

7854
62510

6270¢

8216
8183+

T7471e
8261

7044+
62468

= 001000

8162
8159

71066

7744

8227

LAX

T072¢

7397

7732
7739

6536

7034«

7392

6580

= 015366

6853«

7370
8381¢

001244
001246
000023
000021
012446
011641

6804s
8120+

PAGE 65-7

8145
8143

6631+

6775«
8117

09:37

7737
7735

63416

63734
63740
60568
6055¢
8084¢
T7840¢
62420

. ABS.

8122«
67S1s
8110«

001206

6285¢
63484

O7-MAY-85

SEQ 0064

7139

T17Se

7222«

7282e

6271¢

62730

6275¢

6293¢

7746+

TPS
STRAP

STRAP2

MACY11 30(1046)

CROSS REFERENCE
TABLE -- USER SYMBOLS

T809¢

7957¢

80634

B8265¢

8341

8365

85440