Digital PDFs

AC-8178C-MC

June 1985

65 pages

Original

3.7MB

view download

OCR Version

3.4MB

view download

Document:	CVDRAC0 DRV11-B DRV11-B DMA INTFC AH-T086C-MC OCT 1985 bw
Order Number:	AC-8178C-MC
Revision:	0
Pages:	65
Original Filename:	CVDRAC0__DRV11-B__DRV11-B_DMA_INTFC__AH-T086C-MC__OCT_1985_bw.pdf

OCR Text

DRV11-B

QVoraco

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

4
A

pwm
>;MATINDEC-11-CVORA-C DRV118 OMA INTERFACE DIAGNOSTIC
CVORAC.P1{
07-MAY-85 09:22

5624
5625
5626
5627
3628
5629
5630
S631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641

5642

5643
5644
5645
5646
5647

MACY11 30(1046)

O7-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 SOF TWARE 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.

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

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

CVDRAC.P11

MACY11

30(1046)

O07-MAY-85

09:37

PAGE S9

SEQ 0002

5673

5674

5675
5676
5677
5678
5679
5680
5681
5682
5633
5684
5685
5686
5687
5688
5689

h—

HISTORY

REVISION A

:FIRST RELEASE OF DIAGNOSTIC

REVISION B

:THIS REVISION WAS MADE TO SUPPORT

REVISION C

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

11/23-8

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

5737
5738
5739

o
MO

REQUIREMENTS

LOADING PROCEDURE

PROGRAM START

NHO

SOFTWARE SWITCH REGISTER
OPTIONS
CONTROL

NFO

ERROR REPORTING
ERROR COMMENT
ERROR DATA

NN~NSNISNY

VBWNFO

MISCELLANEOUS
ORV11B BUS & VECTOR ADDRESS MODIFICATION

XXDP/APT NOTES
POWER FAIL

EXECUTION TIME
PROGRAM TEST DESCRIPTIONS
GENERAL
REGISTER TESTS
BYTE ADDRESSING TESTS
'FNCT' TO 'STAT' WRAP ARQUND TEST
READY INTERRUFIT TEST
NPR DATA TRANSFER TESTS

ABSTRACT

5736

10.0

EQUIPMENT
STORAGE

STARTING PROCEDURE

MULTIPLE DRV11B INTERFACE TESTING
RESTRICTIONS

MAINT MODE NPR DATA TRANSFER TESTS

BURST & NON-BURST MODE TESTS
"NEX'

PAGE 60

SEQ 0003

5723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735

09:37

VRSOV LWNIFO

5722

O07-MAY-85

TABLE OF CONTENTS

VOOV OVOOOOVOOY

5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
S711
5712
5713
5714
5715
5716
5717
5718
5719
5720
5721

MACY11 30(1046)

ERROR CONDITION TEST

LISTING

MAINDEC-11-CVORA-C DRV118B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
5741
5742
5743
S744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
S764
5765
5766
5767
5768
5769
5770
5771

5772

5773
5774
s775

5794
5795
5796

30(1046)

O07-MAY-85

09:37

PAGE 61

SEQ 0004

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 5
OF THIS DOCUMENT. IF THE SYSTEM ALSO INCLUDES AN “REV11“ (DMA REFRESH),
THE DOMA 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-R),
DLV11 WITH I/0 TYPE TERMINAL
DRV11B WITH LOOP BACK CABLE

11/23B(KDF11-8)

STORAGE
THE PROGRAM USES THE LOWER 4K OF MEMORY.

3.0

LOADING PROCEDURE

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

5776
5177
5778

5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793

MACY11

07-MAY-85 09:22

3.
4.

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 DRV118 BINARY TAPE
IN THE APPROPRIATE READER).

STARTING PROCEDURE

FOR PAPER

TAPE MEDIA:

MAKE SURE THE MAINTENANCE LOOP BACK CABLE IS INSERTED IN
THE I/0 CONNECTORS ON THE M7950 MODULE.
MAKE SURE THE DEVICE BUS & VECTOR ADDRESSES AGREE WITH THE
DEFAULT VALUES DEFINED IN SECTION 7.1.
IF NOT, CHANGE
LOCTION(S) AS DESIRED VIA THE ‘ADDRESS/' ODT COMMAND.

[V RN7]

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

5797
5798

5799
5800
5301
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827

O07-MAY-85

09:37

PAGE 61-1

SEQ 0005
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 6Y ENTERING OCTAL SWITCH REGISTER DATA TERMINATED
g;TQOCARRIAGE RETURN - SEE SECTION 5.0 FOR SWITCH REGISTER
NS.

THE NEXT QUESTION ASKED IS ABOUT THE TYPE OF A PROCESSOR.

L}gg

'Y"

WITH CARRIGE RETURN IF USING KDF11-8,

'N’'

OTHER-

IF RUNNING UNDER XXDP+ MONITOR:
A)
DO 1., 2., 3. OF THE ABOVE.
B)
IN MONITOR MODE TYPE IN 'R VDRAB?'.
C)
DO S. AND 6.
TYY
T

5.0

IF USING LSI-11/23B(KDF11-B) AND WANT TO TEST DMA TRANSFERS TO
I/0 PAGE PUT THE ADDRESS OF YOUR I/0 INTERFACE CONTROL REGISTER INTO LOCATION 1544 (IOPAGE). TO DO THIS PERMANENTLY USE
LOAD-MOD-OUMP 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

5.1

OPTIONS

SWITCH

5828

5829
5830
5831
5833
5¢33
5834
5835
5836
5837
5838
5839
5840
5841
5342
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852

MACY11 30(1046)

SW15=1

OCTAL

FUNCTION

100000

HALT ON ERROR

SWi4=1
SW13=1

040000
020000

SW10=1
SW09=1
SW08=1

002000
001000
0004 XX

SWiis=1

004000

s545H07=1
##4DIAGNOSTIC WILL SET

LOOP ON TEST
INHIBIT ERROR TYPEOUTS

INHIBIT ITERATIONS

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR <5-0>
000200
DEVICE IS KDF11-8
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-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
CVDRAC.P11
07-MAY-8S 09:22

6.1

ERROR COMMENT

6.2

*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

7.0

*ALWAYS REPORTED
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
AFTER PROGRAM LOAD.
NO VECTOR ASSIGNMENT ABOVE 774 SHOULD BE
ALLOWED.

7.2

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 BITO? T0 1 (000200)
FOR XXDP CHAINS SET LOCATION 176 (SWR) BITO7 TO 1

TO DO THIS UNDER XXDP:
. R UPD2
LOAD VDRAB?.BIC
r-

5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908

ERROR DATA

5891
5892
5893

PAGE 61-2

ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIP
TIVE
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.

5876
5877

5880
5881
5882
5833
5834
5885
5886
5887
5888
58389

09:37

‘P' (CONTINUE).
IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS., SEVERAL
‘CONTROL & G’ COMMANDS MAY BE NECESSARY TO BE ACKNOWLEDGE
8Y THE PROGRAM.

ERROR REPORTING

5871
5872
5873
5874
5875

5878
5879

O07-MAY-8S

SEQ 0006

6.0

5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870

MACY11 30(1046)

MOD 176
THE TERMINAL WILL RESPOND:
NOW TYPE IN 200

1767000000

BE CAREFUL: AT THIS POINT IT IS NECESARY TO DELETE THE FILE
FROM THE DISK.
DEL DLO:VDRAB?.BIC (IF MEDIA IS RL ON DRIVE 0)
CUMP VDRABO.BIC
TO BE SAFE, SKIP 5. AND DUMP THE FILE UNDER DIFFERENT NAME

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

5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940

S941

5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964

MACY11 30(1046)

O07-MAY-85

09:37

PAGE 61-3

SEQ 0007

NOTE:

WITH .BIC EXTENSION.
THIS PROCEDLTME ASSUMES THAT DIAGNOSTIC *S ON THE DISK
FROM WHICH THE SYSTEM IS BOOTED. IF THIS IS UNTRUE
%N 2. AND 6. THE OPERATOR HAVE TO SPECIFY THE DRIVE BEFORE
HE NAME.

POMWER 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).

MULTIPLE DRV118 INTERFACE TESTING
THIS PROGRAM DOES NOT *AUTO-SIZE* THE NUMBER OF DRV11B'
S CONNECTED.
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 8 DRV11B
INTERFACES
WITH CONTIGUOUS BUS AND VECTOR ADDRESSES.
THIS IS ACCOMPLISHED
8Y THE OPERATOR SETTING UP LOCATION ‘$DEVM’' WITH A BIT MAP INDICATI
NG 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..
RESTRICTIONS

IF THE SYSTEM ALSO INCLUDES AN “REV11* (DMA REFRESH),
THE DMA
REFRESH MUST BE DISABLED AND CPU REFRESH MUST BE ENABLED.
EXECUTION TIME
EXECUTION TIME RANGES FROM ABOUT S SECONDS WITH NO ITERATI
ONS
TO ABOUT 90 SECONDS WITH ITERATIONS ENABLED WITH ONE DRV11B
CONNECTED.
AN ENO PASS MESSAGE INDICATES ALL TESTS HAVE COMPLETED
ON ALL SELECTED UNITS.
PROGRAM TEST DESCRIPTIONS
GENERAL

THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESISNED
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.
R 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.
REGISTER TESTS

THE FOLLOWING REGISTERS ARE READ/WRITE & RESET TESTED:
1.
2.
3.
4.

WORD COUNT
BUFFER ADDRESS
COMMAND/STATUS
DATA BUFFER

BYTE ADDRESSING TESTS

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
35976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004

MACY11

07-MAY-85 09:22

30(1046)

O07-MAY-85

09:37

PAGE 61-4

SEQ 0008

1.
2.

COMMAND/STATUS
DATA BUFFER

9.4

‘FNCT'

9.5

READY INTERRUPT

9.6

NPR DATA TRANSFER TESTS

‘STAT'

WRAP AROUND TEST
TEST

THE FOLLOWING NPR XFERS ARE CHECKED FOR CORRECT STATUS,
WORD COUNT, BUFFER ADDRESS & DATA:
NEWN
-

CVORAC.P11

SINGLE 'DATI' XFER - FLOATING 1/0 PTRN
SINGLE 'DATO' XFER - FLOATING 1/0 PTRN
200 'DATI' XFERS - FLOATING 1/0 PTRN
200 'DATO’ XFERS - FLOATING 1/0 PTRN
SINGLE 'DATI' XFER TO THE TTY PRINTER CSR

FOR KDF11-8 PROCESSOR THE USER HAVE TO SELECY

CSR OF A PARTICULAR INTERFACE (DISK INTERFACES

ARE SUGGESTED). SOME OF THEM ARE:
RXV11
(RX01): 177170
RXv21
(RX02): 177170
RKV11-D (RKOS5): 177404
9.7

MAINT MODE NPR DATA TRANSFER TESTS
1.
2.
3.

9.8

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

BURST & NON-BURST MODE TESTS
1.
2.

THAT CPU IS LOCKED OUT IN BURST MODE
THAT CPU IS NOT LOCKED OUT IN NON-BURST MODE

9.9

'NEX’'

10.0

LISTING

ERROR CONDITION TEST

MAINDEC-11-CVORA-C DRV118 OMA INTERFACE DIAGNOSTIC

6073
6074
6075

PAGE 62

MAINDEC-11-CVORA-C DRV1iB DMA INTERFACE DIAGNOSTIC

i #MAYNARD,

MASS.

01754

i *PROGRAM BY R. MOORE
I3

14THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC
1sPACKAGE (MAINDEC-11-DZQAC-CS), FEB, 1985.
8

.ENABLE ABS,AMA

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

CKSWR=104407
ROCHR=104410
ROLIN=104411
RDOCT=104412
$XON=000021
$X0FF=000023

INHIBIT ERROR TYPOUT

)

$TN=1
$SWR=160000
i sHALT ON ERROR, LOOP ON TEST.
$SWR=167400
$SWRMK =300
$TN=1
.SBTTL
OPERATIONAL SWITCH SETTINGS

.SBTTL

SWITCH
15

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

[

6065
6066
6067
6068
6069
6070
6071
6072

09:37

1sCOPYRIGHT (C) FEBRUARY 1985
:¢DIGITAL EQUIPMENT CORP.

6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064

-TITLE

6049

O07-MAY-85

]

BN B

6045
6046
6047
6048

30(1046)

SEQ 0009

6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6025
6026
6027
6028
6029
6030
6034
6043
6044

MACY11

07-MAY-85 09:22

LK K

CVDRAC.P11

13
11
10
9
8

USE
HALT ON
LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP ON

ERROR
TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SWR<S:0>

BASIC DEFINITIONS

;#INITIAL ADDRESS OF THE STACK POINTER s#s 1100 44

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
CVORAC.P11
07-MAY-85 09:22
BASIC DEFINITIONS
6076
6077
gg;g
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6030
6091
6092
6093
6094
6095

6096

6097
6098
6099
6100
6101
218§
1
6104
610S
6106
6107
6108
6109
6110
6111
gllg
11
6114

6115

6116

6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131

001100

STACK=
.EQUIV
.EQUIV

1100
EMT,ERROR
I0T,SCOPE

O7-MAY-85

09:37

PAGE 62-1

SEQ 0010

: ;BASIC DEFINITION OF ERROR CALL
: 1BASIC DEFINITION OF SCOPE CALL

177774
177772
177570
177570

: MISCELLANEQUS DEFINITIONS
HT=
11
: sCODE FOR HORIZONTAL TAB
LF=
12
::CODE FOR LINE FEED
CR=
15
:sCODE FOR CARRIAGE RETURN
CRLF=
200
:;CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
t ;PROCESSOR STATUS WORD
.EQUIV
PS,PSW
STKLMT= 177774
: s STACK LIMIT REGISTER
PIRQ=
177772
: :PROGRAM INTERRUPT REQUEST REGISTER
DSWR=
177570
: sHARDWARE SWITCH REGISTER
DOISP=
177570
: HARDWARE DISPLAY REGISTER

000000
000001
000002

: $GENERAL PURPOSE REGISTER DEFINITIONS
RO=
%0
; iGENERAL REGISTER
Rl=
1
: sGENERAL REGISTER
R2=
%2
: sGENERAL REGISTER

000004
000005
000006
000007
000006
000007

R4=
R5=
R6=
R7=
SP=
PC=

000000
000040
000100
000140
000200
000240
000300
000340

1#PRIORITY LEVEL DEFINITIONS
PRO=
0
$ sPRIORITY
PR1=
40
; sPRIORITY
PR2=
100
: i PRIORITY
PR3=
140
s sPRIORITY
PR4=
200
: sPRIORITY
PRS=
240
: 1PRIORITY
PR6=
300
i sPRIORITY
PR7=
340
: sPRIORITY

100000

SWiS=

000011
000012
000015
000200
177776

000003

040000

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

R3»

%4
%5
%6
%7
%6
7

; iGENERAL REGISTER

1 iGENERAL REGISTER
;: sGENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
;i STACK POINTER
: sPROGRAM COUNTER

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

:#"SWITCH REGISTER” SWITCH DEFINITIONS

SWi4=

SW13=
SWi2=
SWii=
SW10=
SW09=
SW08=
SWO7=
SWo6=
SWO5=
SWo4=
SWo3=
SWo2=
SWOo1=
SW00=
.EQUIV

100000

40000

20000
10000

4000
2000
1000
400
200
100
40
20
10
4
2
1

SW09,S5W9

0
1
2
3
4
S
6
7

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11L

07-MAY-85 09:22

6132
6133
6134
6135
6136
6137
6138
6139
6140
6141

6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

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

6163

6164
6165
6166
6167
6168
6169
6170
6171
6172

6173
6174
6175

6176
6177
6178
6179
6180
6181
6182
6183
6134
6185
6186
6187

MACY11l 30(1046)
BASIC DEFINITIONS

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
172410
104400
000124
000001
106427

07-MAY-85

09:37

PAGE 62-2

SWO8,SwW8
SWO7,SW7
SWO06
, SW6
SWOS5, SWS
, Ski4
SWO4
SWO3,SW3
SW02,SW2
SWO1,SW1
SW00,SWO

s#DATA BIT DEFINITIONS (BITOO TO BIT1S)

B8IT15=
B8IT148IT13BIT12=
B8IT11=
8IT10=
8IT09=
BITO8=
8IT07=
BITO6=
BITOS=
B8IT04B8IT03=
BITO2=
B8IT01=
B8IT00=
LEQUIV
EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

20
10
4

2
1
81709,8IT9
8I1T08,B8IT8
8IT07,8177
81T06,8IT6

81705,8ITS
8IT04,81T4
BITO3,BIT3
81102,8IT2
B8IT01,B8IT1
8IT00,8ITO

;#BASIC “CPU“ TRAP VECTOR ADDRESSES
ERRVEC= 4
+:TIME OQUT AND OTHER ERRORS
RESVEC= 10
s sRESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
$37T* BIT
TRTVEC= 14
+ 1 TRACE TRAP
BPTVEC= 14
: sBREAKPOINT TRAP (BPT)
IOTVEC- 20
1 s INPUT/0UTPUT TRAP (I0T) #¢SCOPEss
PWRVEC= 24
; sPONER FAIL
EMTVEC= 30
$ sEMULATOR TRAP (EMT) #¢ERRORss»
TRAPVEC= 34
s3 “TRAP" TRAP
TKVEC=
60
:3TTY KEYBOARD VECTOR
TPVEC=
64
1:TTY PRINTER VECTOR
PIRQVEC=240
; ;PROGRAM INTERRUPT REQUEST VECTOR
ABASE=
172410
:BASE DRV11B BUS ADRS EQUATE
TRAP=104400
AVECT1= 000124
:BASE DRV11B VECTOR ADRS EQUATE ADEVM=
1
;:DOEFAULT TO ONE DRV1iB
MTPS=106427
;INSTR EQUATE THAT MOVES BYTE TO PSW

SEQ 0011

glg:ggC;ll-CVDRA-C ORV118 DMA INTERFACE OIAGNOSTIC
MACY11 30(1046)
v
07-MAY-85 09:22
P11
BASIC DEFINITIONS
6188
6189
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

177522

TMAIN= 177522

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

AMSGTY=0
AFATAL=0
ATESTN=0
APASS=0
ADEVCT=0
AUNIT=0
AMSGAD=0
AMSGLG=0
AENV=0
AENVM=0
ASWREG=0
AUSWR=0
ACPUOP
=0
AMAMS1=0
AMTYP1=0
AMADR1=0
AMAMS2=0
AMTYP2=0
AMADR2=0
AMAMS3=0
AMTYP3=0
AMADR3
=0
AMAMS4
=0
AMTYP4=(
AMADR4
=0
AVECT2=0
ACOW1=0

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

09:37

PAGE 62-3

:MAINTENCE REGISTER(FOR USE WITH KDF11-8)

ACOW2=0
ADDWO=0
ADDW1=0
ADOW2=0
ADOW3=0
ADOW4=0
ADDWS=0
ADOW6=0

ADOW7=0

ADDW8=0

ADDW9=0
ADDW10=0
ADDW11=0

ADOW12=0

ADDW13=0
ADDW14=0
ADDW15=0

.SBTTL
000000
014052
000340
000000

O07-MAY-85

.ASECT
$TRAP
340

TRAP CATCHER

.=0

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

SEQ 0012

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

6244
6245
000174
000176

000200

000100

O07-MAY-85

09:37

PAGE 62-4

SEQ 0013

:¢SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
1¢LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

000137
000100
000104

MACY11 30(1046)

001550
000200

000002

.=174
OISPREG: .WORD
O
s sSOFTWARE DISPLAY REGISTER
SHREG:
.WORD
O
3 s SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
”00
O¢START ;;JUMP TO STARTING ADORESS OF PROGRAM
.ol
.WORD
104,200,2
1IF '8 EVENT' ON Q BUS IS CONNECTED

.SBTTL

ACTii HOOKS

1IGNORE IT‘'S INTERRUPT - JUST DO A RTI

110606880608604068088888844884848808848004080888844004008800088088000

000052

000106
000046
010042
000052

000106
001000

+HOOKS REQUIRED BY ACTi1
osxzc-.

1SAVE PC

isgw

131)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

MORD

.= $SVPC

.SBTTL

.=1000
APT PARAMETER BLOCK

132)SET LOC.52 TO ZERO

13 RESTORE PC

110808088880804808888048880880000440408044888888000804844800888808048¢

$SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

1 8 8 8 04 8008408408808808488084084040000808444808080008480848808888¢

000024

001000
000024
000200

000044

001000

.$X=.
.24

200
=44

$APTHOR
.®.8X

001000

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

$1FOR APT START UP
1sPOINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
3 3RESET LOCATION COUNTER

1 06 68 8684 6588868880000888840480088804800008488088086880080888884802

1SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
1 INTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

000000
001174
000031
000006
000144
000052

$APTHD:
$HIBTS:
$MBADR:
$TSTH:
$PASTM:
S$UNITM:
.SBTTL

.WORD
O
13 TWO HIGH BITS OF 18 BIT MAILBOX ADODR.
.WORD
SMAIL
;;ADDRESS OF APT MAILBOX (BITS 0-1S)
.WORD
25.
$sRUN TIM OF LONGEST TEST
.WORD
6.
$sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
.WORD
100,
1 tADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
HORD
$ETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLE(WORDS)
COMMON TAGS

116006868648688480588848044888880044840080400880000084888088888888888

16 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
18USED IN THE PROGRAM.
001100
001100
001102
001103
001104
001106

SCHTAG:

.=1100

voRo

13START OF COMMON TAGS

STSTNM: .BYTE

1 sCONTAINS THE TEST NUMBER

JERFLG:
SICNT:
SLPADR:

.BYTE
.WORD
.MORD

O
O
O

1 sCONTAINS ERROR FLAG
: sCONTAINS SUE TEST ITERATION COUNT
1 sCONTAINS SCCPE LOOP ADDRESS

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

002
012
000
000000
000000
177607

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

001171
001172

015
000012

6327

001170

000000
000000
000
001
000000
000000
000000
O0N0000
000000
000000
000000

PERR:
$cRTTL:
$ITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000
000
000000
177570
17/570
177560
177562
177564
177566
000

0717

$AUTOB:
$INTAG:

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

.BYTE
.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
sTPS:
177564
$TPB:
177566
SNLL:
.BYTE

000377

$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TIMES: O
$ESCAPE:
0
$8ELL:
.ASCIZ

$QUES:
$CRLF:
$LF:

.ASCII

_ASCII
.ASCI2

O07-MAY-85

3 sCONTAINS
s s CONTAINS
1 1 CONTAINS
s sCONTAINS
1 sCONTAINS
s sCONTAINS
1 s CONTAINS
s sCONTAINS
3 s CONTAINS
s tRESERVED

09:37

PAGE 62-S

SCOPE RETURN FOR ERRORS

TOTAL ERRORS DETECTED

ITEM CONTROL BYTE

MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADORESS OQF 'GOOD’ DATA
ADORESS OF 'BAD' DATA
*GO0D’ DATA

‘BAD’ DATA
-NOT TO BE USED

s sAUTOMATIC MODE INDICATOR
s sINTERRUPT MODE INDICATOR

6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
631S
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326

MACY11 30(1046)

8% CO00O0OO0O0O0O0O0OOO0O

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE ODIAGNOSTIC
CVORAC.P11
07 -MAY-8S 09:22
COMMON TAGS

; ;sADDRESS OF SWITCH REGISTER
; 1ADDRESS OF DISPLAY REGISTER
;3 TTY KBD STATUS
::TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
13 TTY PRINTER BUFFER REG. ADDRESS
: sCONTAINS NULL CHARACTER FOR FILLS
1 ;CONTAINS @ OF FILLER CHARACTERS REQUIRED
1 1 INSERT FILL CHARS. AFTER A “LINE FEED”

;3 "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES)

;3MAX. NUMBER OF ITERATIONS
«207>¢377><377>

7%/

<iS
<12»

1 ;ESCAPE ON ERROR ADDRESS
;;CODE FOR BELL
1 iQUESTION MARK
; ; CARRIAGE RETURN
:sLINE FEED

;5006860080088 088088088080840040480840000088808008400880848088048808088

.SBTTL

APT MAILBOX-ETABLE

$:0880888880828048088888884084888088828480888008008808000080088084

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
:
$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$OEVCT: .WORD
$UNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
$ENVM:
_BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
:s
)
H
is
HJ
L

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

:sAPT MAILBOX
: sMESSAGE TYPE CODE
ssFATAL ERROR NUMBER
;s TEST NUMBER
s s PASS COUNT
s sOEVICE COUNT
55170 UNIT NUMBER
s sMESSAGE ADORESS
;sMESSAGE LENGTH
; sAPT ENVIRONMENT TABLE
: sENVIRONMENT BYTE
: sENVIRONMENT MODE BITS

ssAPT

SWITCH REGISTER

: ;USER SWITCHES
; ;CPU 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
B8IT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8sMEMORY MANAGEMENT

SEQ 0014

MAINOEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11
07-MAY -85 09:22
APT MAILBOX-ETABLE

CVORAC.P11)

$MAMS]
:
MTYPL:

.BYTE
.BYTE

AMAMS1
AMTYP1

.WORD

AMADR1

.BYTE
BYTE
.WORD
-BYTE
.BYTE
.WORD
.BYTE
BYTE
.WORD

AMAMS2
AMTYP2
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4

I )
I
18

$MADR1
:
‘b

000124

000000
172410
000001
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORC
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACOW2
ADDWO
ADDW1
ADOW2
ADDW3

ADDW4

ADDWS

ADDW6
ADDW7
ADDW8
ADDW9
ADDW10
ADDW1l

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
-(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;HIGH ADDRESS,BLK®#1
MEM.LAST ADOR.=3 BYTES,THIS WORD AND LOW OF
;;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
;;HIGH ADDRESS,.M.S.BYTE
;;MEM.TYPE,BLK#M
;;MEM.LAST ADDRESS,BLK#

“TYPE* ABOVE

;;INTERRUPT VECTOR®1,BUS PRIORITY®1
;;INTERRUPT VECTOR®2BUS PRIORITY®2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
1 ; CONTROLLER DESCRIPTION WORD&1
;;CONTROLLFR DESCRIPTION WORD#2
;;DEVICE DESCRIPTOR WORD#0O
;;DEVICE DESCRIPTOR WORD®1
;;DEVICE DESCRIPTOR WORD®2
;;DEVICE DESCRIPTOR WORD#3
;;DEVICE DESCRIPTOR WORD#4
;;DEVICE DESCRIPTOR WORD#S
;;DEVICE DESCRIPTOR WORD®6
;;DEVICE DESCRIPTOR WORD&?7
;;DEVICE DESCRIPTOR WORD®S
;;DEVICE DESCRIPTOR WORD&9
;;DEVICE DESCRIPTOR WORD#10
;;DEVICE DESCRIPTOR WORDO11
;;DEVICE DESCRIPTOR WORD&12
;;DEVICE DESCRIPTOR WOR( 913
;;DEVICE DESCRIPTOR WORD#14
;;DEVICE DESCRIPTOR WORD®1S

$ETEND
:

.SBTTL

ERROR POINTER TABLE

;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;#THE INFORMATION IS OBTAINED BY USING THE INOEX NUMBER FOUND IN
i#LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;sNOTEL:
IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).

;#NOTE2:

000
000000

$MAMS?
:
MTYP2:
$MADRZ2
:
$MAMS3S:
$MTYPS:
$MADR3
:
$MAMSS
;
MTYPA
$MADRA
:
SVECTL:
$VECT2:
$BASE:
$OEVM:
$COWL:
sCoW2:
$00WO:
$DDMW1
:
s0DM2:
$ODW3:
$D0MS
;
$DDWS:
$D0M6:
$DDM7:
$ODW8:
$00W9:;
$0DW10:
$00WLL:
$DOWi2:
$0DW13:
$0DW14:
$DDW1S:;

6400
6401
6402
6403
6404
6405
6406
6407
6403
6409
6410
6411

000
000

6356
001224
6357
001225
6358
6359
6360
6361
6362
001226
6363
001230
6364
6365
001231
6366
001232
6367
001234
6368
001235
6369
001236
6370
001240
6371
001241
6372
001242
6373
001244
6374
001246
6375
001250
6376
001252
6377
001254
6378
001256
6379
001260
6380
0C1262
6381
001264
6382
001266
6383
001270
6354
001272
6385
001274
6386
001276
6387
001300
6388
001302
6389
001304
6390
001306
6391
001310
6392
001312
6393
001314
6394
001316
6395
6396
6397
001320
6398
6399

30(1046)

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

£M
DH
DY
OF

: sPOINTS
; sPOINTS
; sPOINTS
: sPOINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

MAINOEC-11-CVORA-C DRV11B OMA INTERFACE DIAGNOSTIC
Q7-MAY-85 09:22
ERROR POINTER

CVDRAC P11

6412
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442

6443
6444
6445
6446
6447
64438
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463
6464
6465
6466
6467

001320

MACY11 30(1046)
TABLE

O07-MAY-85

09:37

PAGE 62-7

S£Q 0016

$ERRTB:

001320
001322
001324
001326

014134
015025
015176
000000

001330
001332
001334
001336

014153
015025
015176
000000

001340
001342
001344
001346

014175
015025
015176
000000

00. S0
001352
001354
0C1356

014212
015025
015176
000000

001360
001362
001364
001366

014254
015025
015176
000000

001370
001372
001374
001376

014277
015025
015176
000000

001400
001402
001404
001406

014323
015025
015176
000000

001410
001412
001414
001416

014345
015025
015176
000000

001420
001422
001424
001426

014373
015025
015176
000000

;ERROR

;:ERROR

;ERROR

sERROR

;ERROR

:ERRUN

;ERROR

EM1
DH1
0T1

:REG TIMEOUT ER
iERRPC
TSTNUM BUSADR
;$ERRPC TSTNUM
$BDADR

EM2
DH1
DT1

EXPCT
$GODAT

RCVD
$BDDAT

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

EXPCT

RCVD
$BODAT

EM3
DH1
0T1

:BUS RESET ER
:ERRPC
TSTNUM
; $ERRPC TSTNUM

EXPCT

RCVD
$8DDAT

EM4
DML
0T1

:FNCT BITS FAILED TO SET STAT BITS
:ERRPC
TSTNUM BUSADR EXPCT
RCVD
; $SERRPC TSTNUM
$BDADR
$GDDAT
$8DDAT

EMS
DH1
0Tl

:READY INTR FAILURE
;ERRPC
TSTNUM
BUSADR
:$ERRPC TSTNUM
$BDADR

EM6
DH1
DT1

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

EM7
DH1
071

10
EM10
OH1
0T1

11
EM11
DH1
0T1

BUSADR
$BDADR

$GDDAT

EXPCT
$GDDAT

RCVD
$80DDAT

EXPCT

$GODAT

RCVD
$80DAT

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

EXPCT
$GODAT

RCVD
$BDDAT

;WORD COUNT ER ON XFER
;ERRPC
TSTNUM BUSADR

EXPCT

$GDDAT

RCVD
$BDDAT

;:BUFFER ADRS ER ON XFER
;:ERRPC
TSTNUM
BUSADR
EXPCTY
; $ERRPC TSTNUM
$BDADR
$GDDAT

RCVD
$80DDAT

; $ERRPC TSTNUM

$BDADR

MAINDEC-11-CVDRA-C DRV118B DMA INTERFACE DIAGNOSTIC

CVORAC.P11
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
6480
6481
6482
64283
6484
6435
6486
6487
6438
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500

6501
6502
6503
6504
6505
6506
6507
6508
6509

6510
6511
6512
6513
6514
6515
6516
6517
65138
6519
6520
6521
6522
6523

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

;ERROR

;:ERROR

;sERROR

;:ERROR

;ERROR

O07-MAY-85

09:37

PAGE 62-8

SEQ 0017

EM12
DH2
D712
0

tDATA ER FROM MEM
tERRPC
TSTNUM
BUSADR
1$ERRPC TSTNUM
$BDADR

ADRS
$GDADR

EXPCT
$GDOAT

RCVD
$BDDAT

13
EM13
OH2
0712
0

;DATA ER TO MEM
;ERRPC
TSTNUM BUSADR
1$ERRPC TSTNUM
$BDADR

ADRS
$GDADR

EXPCT
$GDDAT

RCVD
$BDDAT

14
EM14
DH3
DT3
0

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

EM1S
DH3
0T3

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

16
EM16
DH1
071

:NEX LOGIC ER
;ERRPC
TSTNUM
;$ERRPC TSTNUM

EXPCT
$GDDAT

RCVD
$BDDAT

17
EM17
DH1
0T1

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

BDDAT
¢BDDAT

20
EM20
DH2
0T2

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

EXPCT
$GODAT

BUSADR
$BDADR

;DRV118B BUS REGISTER ADDRESS POINTERS
001520
001522
001524
001526

172410
172412

172414
172416

DRVMWCR:
DRVBAR:
DRVCSR:
ORVDBR:

172410
172412
172414
172416

;WORD COUNT
;:BUFFER ADDRESS
; 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

:COMMON PROGRAM LOCATION(S)
001534

000000

TSTNUM:

;CONTAINS TEST NUMBER ON ERROR

RCVD
$BDDAT

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11
07-MAY-85 09:22
ERROR POINTER TABLE

CVORAC.P11
6524
6525
6526
6527
6528
6529
6530
6531

001536
001540
001542
001544
001546

DMAP :

000001
000000
015364
000000
000000

6533
6534
6535
6536
6537
6538
6539
6540
6541

6542
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554
6555
6550
6557
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579

001550
001554
001556
001562
001564

012706
005026
022706
001374
012706

001100

001570
001576

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

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

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

iDEVICE MAP - EA BIT SAYS TEST THAT DRV11B

1CONTAINS 1ST NON-EXISTANT MEM ADRS
sCONTAINS CURRENT 4K NPR BUFFER ADRS

KDF :

;JF KOF11-8

.SBTTL

sCONTAINS ADDRESS FOR I/0 TRANSFERS

PROGRAM START

INITIALIZE THE COMMON TAGS

::CLEAR THE COMMON TAGS ($CMTAG) AREA

001100

MOV

001140

012700
013701
010120
062701
022700
001372
012700

000004
001742
177570
177570
177777

000020
000022
000030
000032
000034
000036
000024
000026

#3CMTAG,R6

s3sFIRST LOCATION TO BE CLEARED

CLR
CMP
BNE
MoV

(R6).
#SWR,R6 ;;DONE?
-6
#STACK, SP

MOV
MOV

#$SCOPE, 8#I0TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
#340,890I0TVEC+2 ;;LEVEL 7

: ; INITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOVB
MOV
MOV

001115
001106
001110

s sCLEAR MEMORY LOCATION

;:LOOP BACK IF NO
:3SETUP THE STACK POINTER

#3ERROR, Q#EMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
€340,04EMTVEC+2 ;;LEVEL 7
#3TRAP,Q4TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
€340,90TRAPVEC +2;LEVEL 7
@3PWRON, @OPWRVEC ; ;POWER FAILURE VECTOR
#340,80PWRVEC+2 ;;LEVEL 7
$TIMES
: ; INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
+ sCLEAR THE ESCAPE ON ERROR ADDRESS
91, $ERMAX
: ;ALLOW ONE ERROR PER TEST
€., $LPADR
+; INITIALIZE THE LOOP ADDRESS FOR SCOPE
4., $LPERR
; sSETUP THE ERROR LOOP ADDRESS

001140
001142

65%:

001140

SETUP2:

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
:sSETUP FOR A HARDWARE SWICH REGISTER

;;AND A HARDWARE DISPLAY REGISTER

BNE

664

; sBRANCH IF NO TIMEOUT TRAP OCCURRED

B8R

654

o-1,8S5KWR

: s TRY TO REFERENCE HARDWARE SWR

::AND

THE HARDWARE SWR IS NOT =

; ;BRANCH IF NO TIMEOUT

H0¥

2653 ,(SP)

::SET UP FOR TRAP RETURN

MOV

OSWREG, SWR

; ;POINT TO SOF TWARE SWR

$PASS
QAPTSIZE,$ENVM
674
#$SWREG, SWR

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

#DRVWCR,RO
$BASE,R1
R1,(RO)+
#2,R1

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

MOV
MOV

CLR
8178
BEQ

67%:
START1:

S0ERRVEC,-(SP)
644 ,Q9ERRVEC
Q0SHR, SWR

#0DISP,DISPLAY

CMP

664 :

001216

001530

MoV

644:

001215

000002
001530

MOV
Mov
MoV

000004
001140
001142
177202

001202
000200

001520
001250

IF NOT FOUND OR IT IS

1:EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

001750
000176
000174
000004

PAGE 62-9

SEQ 0018

::SIZE FOR A HARDWARE SWITCH REGISTER.
001702
001706
001714
001722
001730
001736

09:37

0
DBUF

START:
.SBTTL

6532

07-MAY-85

CORSZ:
OBUFP:

IOPAGE:

001550

30(1046)

MOV
MOV
MOV
MOV
ADD

cMP
BNE

MOV

#DISPREG,DISPLAY
(SP)+,80ERRVEC
;;RESTORE ERROR VECTOR

S0RVDBR+2,R0O
SETUP2
#DRVCTO,RO

;ALL DONE?
;BR IF NOT

;SET UP DRV118 VECTOR ADRS POINTER

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

CVORAC 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

6604
6605
6606
6607
6608
6610
6611
6612
6613
6614
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628

002042

002046
002052
002054
002060
002064

013701
042701
010120
062701
022700
001372

002066
002072
002074

005227
001052
104401

002100
002104
002106
002114
002116
002124
002126
O_130
002132
002140
002140
002142
0C2150
002156
002164
002172
002200
002206
002214

005737
001012
123727
001406
023727
001005
104406
000403
112737

000001

001134

000427
046600
041455
041455
030526
040515
051105
042040
100040

66$:
67%:

026504
042126
020040
041061
044440
040506
040511
000

030461
040522
051104
042040
052116
042503
020107

65¢:

002220

002220
002224
002230
002236
002240
002246
002252
002256
002262
002264

002220

001244
170000

MOV
$VECT1,R1
8IC
#170000,R1
SETUP3: MOV
R1,(RO).
ADD
2 ,R1
cMP
Q0RVCT2+2,R0
BNE
SETUP3
.SBTTL
TYPE PROGRAM NAME

000002
001534

002142
.SBTTL

000042
001214

000001

001140

000176

000010
000012
002246
000200
000012
000010
001540

09:37

PAGE 62-10
SEQ 0019

1GET BASE VECTOR ADRS
:CLR OUT PRIORITY BITS
:
:POINT TO NEXT
sALL DONE?
18R IF NOT

13 TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

644:

013746
013746
012737
000007
152777
012637
012637
005737
001002
104401

O07-MAY-85

:
H
:
:
000010
176672
1004 :

014567

INC
o-1
ssFIRST TIME?
BNE
644
1 sBRANCH IF NO
TYPE
.65%
;s TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
8642
s 1ARE WE RUNNING UNDER XXDP/ACT?
BNE
66$
s sBRANCH IF YES
CMPB
$ENV, 01
s ARE WE RUNNING UNDER APT?
BEQ
664
: $BRANCH IF YES
CMP
SWR, #SHREG
s ; SOFTWARE SWITCH REG SELECTED?
BNE
67%
: ;BRANCH IF NO

g;SHR

$:GET SOFT-SWR SETTINGS

MOV8

#1,$AUTOB

:3SET AUTO-MODE INDICATOR

B8R

644

;;GET OVER THE ASCIZ

-ASCIZ

<CRLF>&MD-11-CVDRA-C

DRV118B DMA INTERFACE DIAG

@<CRLF>

.EVEN

INC
BNE
CMPB
8EQ

MOV
MOV
MOV
MFPT
BISB
MOV
MOV
18T
BNE
TYPE

o-1
100
€1, $AUTOB
1004

8410,-(SP)
8012,-(SP)
91004, 610

#8IT07,8SWR
(SP)+,8812
(SP)+,8010
CORSZ
CORSZR
.WARN

;FIRST PASS?
;BRANCH IF NO
$MANUAL INTERVENTION PERMITTED?
+BR IF NO

:SAVE ILLEGAL INSTRUCTION
; TRAP VECTOR

;00001 INSTRUCTIONS
;DD001 NO LONGER
;00001 NECESSARY
;00001
;00001
;00001

H
;00001
;IF CPU TYPE IS 11723
;00001
sTHEN SET BIT 7 IN SWREG
;00001
:AND RESTORE TRAP VECTOR
;00001
:
;00001
;sTEST IF FIRST PASS
;BR IF NOT
;sTELL THE OPERATOR TO TURN OFF DMA REFRESH

H ;‘tttttt‘“““t‘tttt“t"ttttt““‘.‘“t“ttt‘ttttt‘t‘tt

tt“tt‘t

;LET'S SEE HOW MUCH MEM WE HAVE

002270
002274
002302
002304
002306
002312

012700
012737
005720
000776
042700
010037

020000
002306

P SRABAREEA0AASAAEARAE44AASS0RA000000000040A000000

000004

CORSZR: MOV
MOV

1%:

017777
001540

2%:

TST
BR
8IC
MOV

#20000,R0
#24, 80ERRVEC

(RO).
14
417777 ,R0
RO,CORSZ

0000044

sUSE 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-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
CVDRAC.P11
07-MAY-85 09:22
GET VALUE FOR SOFTWARE SWITCH REGISTER

6629
6630
6631
6632

6633

6634
6635
6636
6637
6638
6639
6640
6641
6642
6643
6644

6645

002326
002324
002332
002340

012737
012737
012737
013737

002354
002356
002364
002366
002372
002376
002402

001406
032737
001002
000137
106427
012706
013737

002346

002410
002414
002416
002424

042737

013700
006300
013760
000005

000006
015364
000000
001252

177400

000001
007660
000200
001100
001206
001206
001520

000004
001542
001206
001536

001536
001536

001204

6665
6666
6667

002426
002430
002436
002444

002452
0C2460
002464
002470
002476
002502
002506
002512
002514
002516
002520
002522
002524

002526
002530

000240
012737
012737
112737

012737
005037
005037
012737
013700
012701
010037
005710
005720
005301
001403
000771
022626

104001
012737

002444

000001
000001
002506
001124
001126
002524
001520
000004
001122

001106

001200
001172
001110

TSTL:

#ERRVEC+2, 9#ERRVEC
;RESTORE VECTOR
#DBUF , DBUFP
1INITIALIZE TO LOWEST 4K
40, $INTT
:SET UP UNIT COUNT
$DEVM, DMAF
iGET THE # € POSITION OF DRV11B'S

0177460.DHAP

RESTRT
#1,0MAP
RESTRT
NXDEV1
9200
#STACK, SP
$UNIT, $DEVCT

sUP TO 8 ONLY

1GO CONTINUE AS IF SOMETHING WAS SELECTED
;IS 1ST DRVi1B SELECTED?
tBR IF SO
iNO_- GO ADVANCE BASE DRV11B ADORESSES
1SET PRIORITY TO HIGHEST LEVEL
sALWAYS RESET STACK PTR
sLOAD APT COUNTER

$UNIT,RO
sMAKE AN INDEX
RO
s VALUE
DRVWCR, $DDWO(RO)
:SAVE THE BUS ADDRESS
1INITIALIZE DRV118 BEFORE TESTING

TEST THAT ALL DRV118 REGS ARE ACCESSIBLE

<NOP
>
MOV
MOV
MOvVB

10%:

MoV
CLR
CLR
MOV
MOV
MOV
MOV
187
TST
DEC
BEQ
BR
cMP

000004

1s:

2%:
000006

000004

ERROR
MOV

3$:
L

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

40004044

9104,$LPADR

002564
001520

001110
001122

177776
001124
176722
001124

001124
176726
001126
001126

001124
001124

1%:

2%:

O P P P P P P P PP PP PP TP

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

b etttnnhaadd

TST2:

:sSET SCOPE LOOP ADDRESS

01 ,4TESTN
1;SET TEST NUMBER IN APT MAIL BOX
#1,4TSTNM
sSET TO TEST 1
418, $LPERR
:SET UP SCOPE LOOP ADRS
$GDDAT
tNO DATA COMPARE
$8DOAT
iNO DATA COMPARE
924, 90ERRVEC
:SET UP TIMEOUT RETURN ADDRS
ORVHCR,RO
:SET UP 1ST DRV11 BUS ADRS
94 R1
:SET UP REG COUNT
RO, $8DADR
;SET UP CURRENT DRV BUS ADRS
(RO)
:SEE IF THERE
(RO)»
:BUMP TO NEXT
R1
;COUNT 4 OF THEM
34
:BR IF ALL DONE
13
: TRY NEXT
(SP)+,(SP).
;FIX STACK SINCE NO RTI
1
iBUS ADRS INDICATED DID NOT RESPOND
®ERRVEC+2,80ERRVEC
;RESTORE LOC 4

b thttiharadt DL LI TET T T T T

:sTEST 2

6670

6683
6684

SEQ 0020

FiS8A40AAAER04000400408045840040800008085280088480000000

6668

. 6682

PAGE 62-11

JIARASASASAAS004
04808000
0004
088 80430880
4000
08800000
4404
80800444
40

6669

6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681

MOV
ASL
MOV
RESET

;oTEST 1

6647

6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664

8IC

BEQ
BIT
BNE
JMP
RESTRT: MTPS
MOV
MOV

001260

6646
6648
6649
6650
6651

Mov
MoV
MOV
MOV

09:37

b L

T TP

SCOPE
MOV
MOV
CLR
MOV
MOV
MOV
CHP
BEQ
ERROR
COM

018, SLPERR
DRVWCR, $BDADR
RO
@-2, $GODAT
$GOCAT,80RVWCR
S80RVHWCR, $BDDAT
$GDDAT, $BDDAT
24
2

BNE
ASL

13
$GDDAT

COoM

$GDDAT

:SET UP SCOPE LOOP ADRS
:SET UP WC REG ADRS
;RO SAYS SHIFT PTRN WHEN O
iFLOAT O RIGHT TO LEFT
;LD WC
;READ IT BACK
;CORRECT?
;BR IF SO
:WORD COUNT WRITE/READ FAILURE
; COMPELEMENT ZERO

:RO SAYS SHIFT LEFT WHEN = 0

i TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT

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

CVORAC P11

6685
6686

6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
66938
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716

6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740

002626
002632

005237
103754

001124

INC
8Cs

$GDDAT

09:37

PAGE 62-12

SEQ 0021

iKEEP LSB SET
sAGAIN TILL ALL PATRNS DONE

$18080888404848848088080888804880488008008088800848000

s¢TEST

002634
002636
002644
002652
002654
002662
002670
002676
002704
002712
002714
002716
002722
002730
002732
002734
002740
002742
0€2750

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

0088048888484884

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

1108000800044 40000080084088800080004088808808

002662
001522

001110
001122

177774

001124
176626
000001
001124

001124
176632
001126
001126
001126

001124
000001

001124

TST3:

SCOPE
MoV
MOV

CLR
Mov
MoV
MoV
8IC
CMP
8EQ
ERROR
CoM
8IC
CcoM
BNE
ASL
8CC
ADD
BR

1s:

2%:

001124
000002

001124

40880888088008048844

418, SLPERR

ORVBAR, $BDADR
RO
-4, $GDOAT
$GDDAT,8ORVBAR

SORVBAR, $BDDAT
#B1700, $BDDAT
$GDDAT, $BDDAT
24
2

$GDDAT
:gITO0.0GODAT

13
$GDDAT
T574

$SET UP SCOPE LOOP ADRS
:SET UP BA REG ADRS
RO SAYS SHIFT PTRN WHEN O
;FLOAT O RIGHT TO LEFT
;LD BA
sREAD IT BACK
;OON'T WANT BITO0O0
;CORRECT?
sBR IF SO
1BUS ADRS WRITE/READ FAILURE
;COMPLEMENT ZERO
;8IT 00 NOT INVOLVED
;RO SAYS SHIFT LEFT WHEN = 0
:TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT

s sNEXT TEST IF BIT 15 DONE
:KEEP ADOR LSB SET
;AGAIN TILL ALL PATTERNS DONE

#2,4GODAT

;;tt‘t“.tt"tt“t‘t“‘tt‘tt‘ttt“““tt“‘tt“‘t‘t

tt“‘t“tt‘tt‘

;#TEST 4

bbbt

002752
002754
02762
002770
002772
003000
003006
003014
003022
003024
003026
003032
003034
003036
003042
003046

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

103754

003000
001526

001110
001122

177776

001124
176520
001126
001126

001124

176514
001124
001124

TST4:

1s:

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

eddhnhad e

SCOPE
MOV
MOV
CLR
MOV
MOV

MOV

2%:

001124
001124

CMP
BEQ
ERROR
CoM
CoM
BNE

ASL

INC
BCS

LIT LT

LT T

014, SLPERR

DRVDBR, $BDADR

RO
@-2, $GDDAT
$GDDAT,8DRVDBR
S8ORVDBR, $BDDAT
$GDDAT, $BDDAT
i
2
$GDDAT
RO
13
$GDDAT
$GDDAT
13

PP PP

;SET UP SCOPE LOOP ADRS
;SET UP DB REG ADRS
;RO SAYS SHIFT PTRN WHEN O
sFLOAT O RIGHT TO LEFT
;L0 DB
;READ IT BACK
:CORRECT?
;BR IF SO
;DOATA BUFFER WRITE/READ FAILURE (LOOP BACK)
;COMPLEMENT ZERO
sRO SAYS SHIFT LEFT WHEN = 0
;TRY THE COMPLEMENT IF RO NOT O
;COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT

sKEEP LSB SET
sAGAIN TILL ALL PATRNS DONE

$i08808048848804484 0800000584000 00 00000040

80000 0000000000000

;#TEST 5

003050
003052
003056
003062
003064
003072
003100

000004
013700
010037
005010
012737
012737
153760

TEST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE

PSR AARERA
04
E0AR00E
NA
SAA0440
AA
040A
04400000
RA
0008 0000404
R

TSTS:

001526
001122

17171177
077776
001126

001124
001126
000001

SCOPE
MOV

MoV
CLR
MOV
MOV
BIcB

DRVDBR,R0O
RO, $BDADR

(RO)

9177177, $GODAT
#77776, $BDDAT
$BDDAT,1(RO)

:GET 0B REG ADRS
:SET UP DB REC ADRS
sZERO DATA BUFFLR REG
;LD EXPECTED
:SEND DATA FROM "BDDAT*
:LOAD HI BYTE DB

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

09:37

CVORAC.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

BISB
nov
cMp
BEQ
ERROR

001126

$8DDAT+1,(RO)

(RO), $BDDAT
$GDDAT, $BDDAT
;STG

PAGE 62-13

SEQ 0022

:LOAD LO BYTE DB
:READ IT BACK
s CORRECT?
s sNEXT TEST IF SO
:DATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG

i 808280084402 4008004 008048004848 0488200 0004888000440 00000080004d

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

TEST THAT RESET CLEARS WORD COUNT,

000010
001124
1777717

001160

177776
1777717

176346
176342
176340

176324

001126

001520

001122

000001

176306

001126
001126

001522

001122

176264

001126

001526

001122

TST6:

SCOPE
MOV
CLR

MOV

mov
BEQ

g?RVHCR.OBDDAT

MOV

8IC
BEQ

MOV

ERROR
MoV
BEQ
MoV

2%:

ERROR

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

000002

000200
176114
007000

001124
001126
001126

SCOPE

MOV
MTPS

MOV
A0V

2%:

$
gRVBAR.‘BDADR

S80RVDBR, $BODAT
1ST7
gRVDBR.OBDADR

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

JSR
34
MOV

001126
001126
001126

S0RVBAR, $BDDATY
;BITOO.‘BDDAT

ERARREAEA00E 0008000400004 04R04404084404000000008000000ds

LEARE

1%:

gRVHCR.OBDADR

1300 10 ITERATIONS
;LD EXPECTED
:SET ALL BITS - WC REG
:SET ALL BITS - BUS ADRS REG
:SET ALL BITS - DB OUT REG
100 A BUS RESET
sREAD WC REG
;:BR IF CLRED
:SET UP WC REG ADRS
tRESET FAILED TO CLR WC REG
:READ BUS ADRS REG
;OON'T WANT BITTO00
1BR IF CLRED
:SET UP BA REG ADRS
:RESET FAILED TO CLR BUS ADRS REG
:READ DATA BUFFER REG
1 sNEXT TEST IF CLREC
$SET UP DB REG ADRS
:RESET FAILED TO CLR DATA BUFFER OUT REG

440448004000
04 004000400000 0804400000040000000000080

;#TEST 7
1IN

$GDDAT
#-1,80RVUCR

#-2,80RVBAR
9-1,80RVDBR

MOV
ERROR

1s:

€10, $TIMES

MOV

MOV
RESET

i 880888

003256
003260
003266
003272
003276
003300
003306
003314
003320
003324
003332
003336
003344
003352
003360
003362
003364
003370
003372
003374
003376
JO3404
003412

BUS ADDRESS & DATA REGS

P ER0AAS00A0004L00RERARSRR0SA6040080453088040000800880008080800

910, $TIMES
9200
R5,SETVEC

1%,$LPERR
DRVCSR, $8DADR
€160000,R0
RO, $GDDAT
#167201, $GDDAT

MOV
81IC
MOV

RO,8DRVCSR

MOV

SDRVCSR, $BODAT

81IC
CMP
BEQ
ERROR
ADD
BNE
B8R
cMp
8IS

MOV

8IC

1:00 10 ITERATIONS

sOON'T WANT ANY INTRS
:SET UP INTR RETURN ADRS IN CASE
;:RETURN TO 34 ON ILLEGAL INTR
:SET UP SCOPE LOOP ADRS
$SET UP CSR ADRS

;START AT O - HI BITS FOR NOISE
;LD EXPECTED

sMASK TO WRITEABLE BITS

1LD CSR
;READ IT BACK
tOON'T LOOK AT STAT & RDY BITS
;CORRECT?
s8R IF SO
:CONTROL/STATUS REG WRITE/READ FAILURE
; ADVANCE COUNT PATTERN
:WRITE NEXT PATTERN IF NOT ALL TESTED
;GO RESTORE VECTOR

€200, $GDDAT
SORVCSR, $BDDAT
#7000, $8DDAT

;CORRECT EXPECTED
;READ CSR
;:OON'T WANT 'STAT'

#7200, $BODAT
$GODAT, $80DAT

28
2
#2,R0
1

(SP)+,(SP).

iFIX STACK

SHOULD NOT HAVE INTR'ED

BITS

MAINDEC-11-CVORA-C DRV11B OMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6797
g;gg

003420
003422

07-MAY-85 09:22
104005
004737

010116

43:

6800

6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
ggig

003426
003430
003436
003444
003452
003460
003462
003470
003476
003500

000004
012737
013737
012737
012777
000005
017737
023737
001401
104003

000010
001524
000200
177776

001160
001122
001124
176044

176036
001124

001126
001126

6814

S
PC,RSTVEC

09:37

PAGE 62-14

SEQ 0023

:CPU FAILED TO LOCK OUT DRV11B INTR REQ
:GO RESTORE VECTOR

;#TEST 10
TEST THAT RESET CLEARS ALL WRITEABLE BITS & SET READY IN CSR
$1080848880004400400800008058400004000008800840040800088800008004080
TST10:
SCOPE
MOV
410, $TIMES
;300 10 ITERATIONS
MoV
DRVCSR, $BDADR
;SET UP CSR ADRS
MOV
9200, $GDDAT
;LD EXPECTED
MOV
#-2,80RVCSR
iLD ALL CSR BITS
RESET
:00 A BUS RESET
MoV
S80ORVCSR, $BODAT
;READ CSR
CHP
$GODAT, $8DDAT
;CORRECT?
BEQ
TST11
1 sNEXT TEST IF CSR CLRED & READY SET
ERROR
3
tRESET FAILED TO SET UP THE CSR
Fi0808888550 0044000400448 88400440088040008800888804008000
08804420

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

TST1i:

001524
001122
010300
040020
001126
001127
001126
001124

001124
001126
000001

001126

1%:

6831

SCOPE
MOV
MOV
CLR
MOV
MOV
8IS8
B8ISB
MOV
CMP
BEQ
ERROR
CLR

P800

;«TEST 12

6833

003564
003566
003574
003602
003610
003614
003620
003626
003634
003642
003644
003646
003654
003660

000004
012737
013737
012737
012700
010077
017737
042737
023737
001401
104004
162737
162700
100355

6849

TEST THAT THE CSR IS BYTE ADDRESSABLE

JiS0S0E4A
400000000
040
000ARR
480040088ER0
008800808000848480
000
0

6832

DRVCSR,RO
RO, $BDADR
(RO)
10300, $GODAT
840020, $800AT
$80DAT,1(RO)
$8DDAT+1,(RO)
(RO), $B0DAT
$GDDAT, $BDDAT
13

(RO)

001000
000002

001110
001122
001124

001126
(01126
001126

001124

TST12:

1%:

2%:

- USE MAIN « IE

:DATA ERROR ON BYTE ADDRESSING THE CSR

+ZERO CSR BEFORE ADVANCING

0044000400000 80400400004800000000004000000000000080044

TEST THAT THE 3

“FNCT” BITS CONTROL THE 3

#1%, SLPERR
DRVCSR, $BDADR
#7000, $GODAT
€16,R0
RO,3DRVCSR
SORVCSR, $BDDAT
170777, $BDOAT
$GODAT, $80DAT
i
4
1000, $GODAT
#2,R0
14

:SET UP SCOPE LOOP ADRS
;SET UP CSR ADRS
iLD EXPECTED
sRO CONTAINS *“FNCT* BITS WRITTEN
;WRITE INTO “FNCT” BITS
;READ BACK THRU “STAT" BITS
;MASK TO “STAT~ BITS ONLY
;CORRECT?
tBR IF SO
1 “FNCT~ BITS FAILED TO SET “STAT* BITS (LOOP BACK)
:CHANGE TO NEXT EXPECTED
iDECREASE COUNT PATTERN
:D0 AGAIN UNTIL O TESTED

JISRRAES0 RS040

003614
001524
007000
000016
175704
175700
170777
001124

:GET CSR ADRS
:SET UP CSR ADRS
1ZERO CSR
;LD EXPECTED
iSEND DATA FROM "BDDAT*
1LOAD HI BYTE CSR
;LOAD LO BYTE CSR
sREAD IT BACK
:CORRECT?
18R IF SO

SCOPE
MOV
MoV
MOV
MOV
MOV
MOV
8IC
CHP
BEQ
ERROR
SuB
SuB
BPL

“STAT* BITS (COUNT PTRN)

0R040440 404000000004 0048040440000000800000800004

PiEARES0LARE
04400000
00A
00800
ARN
84888008
E44
00400008
E04
08800448
0

63850

;o TEST 13

6851

6852

ERROR
JSR

;#TEST 11

6816

6834
6835
6836
6837
6838
6839
6840
6841
6842
6343
6844
6845
6846
2::7
8

O07-MAY-85

110000085008 04440000048040484400080000008808408004000000000084804

6815

6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6:59
6830

MACY11 30(1046)

GET VALUE FOR SOFTWARE SWITCH REGISTER

003662

000004

TEST THAT READY SET WILL CAUSE AN INTERRUPT AT LEVEL 0

FIUERAASA
04084000
EAR
40004AAA
888088380
4R0
040880880000
000000008

TST13:

SCOPE

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

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
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908

003664
003672
003676
003700
003706
003714
003722
003726
003730

003736

003744
003746
003754
003756
003760
003762

003770
003772
003774
003776
004004
004012
004014
004016

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

001160

003760
001524
000300
000000

175622
001122
001124

003774

175572

000100

175560

175552

001126

175536

175522
001124

MOV
MTPS
RESET
MOV
MOV
MOV
MTPS
CHP
MOV

001126

001126
001126

BIS

1s:

2s:

CMP
mov
ERROR
BR
CHP
MOV
ERROR
BR
cHp
MOV
CcHP

BEQ
010116

34:

ERROR
JSR

#10, $TIMES
9200
#14,80RVCTO

DRVCSR, $80A0R
#300, $GODAT
0
(SP),(SP)
#24,80RVCTO
#8176,80RVCSR
(SP),(SP)

gDRVCSR.OBDDAT

3
(SP)+,(SP).
gDRVCSR.OBDOAT
ki
(SP)+,(SP)e
SORVCSR, $BDDAT
$GODAT, $BODAT
34
s
PC,RSTVEC

09:37

PAGE 62-15

SEQ 0024

+;00 10 ITERATIONS
;DONT WANT INTR YET
;SET THE READY FLAG BY INIT
$:SET UP PREMATURE INTR RETURN ADRS
;SET UP CSR ADRS
;LD EXPECTED (READY + IE)
;ALLOW AN INTR
;STALL
:SET UP EXPECTED INTR RETURN ADRS
tENABLE THE EXPECTED INTERRUPT
sSTALL
tGET THE CSR
sREADY FAILED TO CAUSE AN INTERRUPT
1GO RESTORE VECTOR
:SHOULD NEVER GET HERE - IE NOT WORKING?
sGET THE CSR
;READY INTERRUPTED WITHOUT THE 1€ BIT
;GO RESTORE VECTOR
sFIX STACK SINCE NO RETURN
sREAD STATUS
sCORRECT?

;BR IF SO

1 INCORRECT STATUS ON READY INTR
160 RESTORE VECTOR

§i0088884888044048000488400400884008888880008800

;«TEST 14

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

8840880800808808088

TEST THAT GO CLRS READY & FNCT 2 WILL SET IT

$18888084088858048080408008848804300008028408808

000200
001524
001124
000001
175450
001124

000004
002204
175414
001124

TST14:

001122
175454
001126
001126

175426
001124
001126
001126

1%:

SCOPE
MTPS
MOV
CLR
MOV
MOV
CMP
BEQ
ERROR
8IS
MOV
MOV
CcMP
BEQ
ERROR

88000000040800884804

9200

ORVCSR, $BDADR
$GDDAT

€1,80RVCSR
GORVCSR, $BDDAT
$GDDAT, $BDDAT

1
)
#4,80RVCSR

#2204, $GDOAT

SORVCSR, $BDDAT
$GDDAT, $BODAT
ZSTIS

;DONT WANT ANY INTRS
1SET UP CSR ADRS

sEXPECT 0
:SET GO WHICH SHOULD CLR READY
tREAD THE CSR
1CORRECT?
tBR IF SO
1THE GO BIT FAILED TO CLR READY
iFNCT 2 SHOULD SET READY
1LD EXPECTED
:GET CSR

1CORRECT?
1 sNEXT TEST IF SET
tFNCT 2 (VIA ATTN) FAILED TO SET READY

$18808888848805848880008808888848404808048280808088000

1#TEST 1S5
004124
004126
004134
004142
004150

004154
004162
004170
004172

000004
012777
013737
012737
005077

017737
023737
001401

104002

TEST THAT READY CONTROLS ‘BAR‘

00088880080048

BIT00

1180088880 88058808804828000838348488800088000448804480808808

000004
001522
000001
175346

175342
001124

175370
001122
001124

001126
001126

TST1S:

SCOPE
MOV
MOV
MOV
CLR

MOV
CMHP
BEQ

ERROR

808800008004

#4,8DRVCSR

DRVBAR, $BDADR

1, $GODAT

SORVBAR
SORVBAR, $BDDAT
$GDDAT, $BDDAT
19
2

sSET READY
:SET UP BAR ADRS
1EXPECT LS8 OF BAR
sCLR BAR
sREAD BAR
$tCORRECT?
s8R IF SO

+A00 FAILED TO READ A ONE(SB TIED TO ROY)

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

CVORAC P11
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942

6943
6944
6945

6946
6947
6948
6949
6950
6951
6952
6953

6954

6955
6956
6957
6958
6959

6960
6961
6962
6963
6964

004174
004202
004210
004212
004216
004220

012777
017737
001403
005037
104002
012777

000001
175314

175322
001126

1s:

001124

000004

175276

MoV
MOV

B8EQ
CLR
ERROR
MOV

#1,00RVCSR
SORVBAR, $BDDOAT
24
$GODAT

#4,00RVCSR

09:37

PAGE 62-16
SEQ 002S%

sSET GO(CLRS BAR BIT00)
sREAD BAR
18R IF ZERO
1EXPECTED ZERO
+WHEN ROY CLRED-AOO FAILED TO READ A ZERO
1INSURE RDY SET BEFORE ADVANCING

$10080884844858408404480880080008884084408808440800800

;oTEST 16

004226
004230
004236
004244

004252

004260
004266
004274
004302
004304
004306
004314
004322
004330
0C4336
004340

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

TEST THAT

‘CYCLE’

02800488088000000

WILL CLOCK THE DBR (IN)

1:0008008640000880808000808648800008088080088484

001526
125252
001124
000400
052525
175234
001124

001122
001124
175254
175244
175240
001126
001126

000400
052525
175200
001124

175210
001124
001126
001126

TST16:

1s:

SCOPE
MoV
MOV
MOV
MOV
MOV
MOV

8IC

BEQ
ERROR

808008080888088088484

ORVOBR, $8DADR

0125252, $GDDAT
$GODAT, SORVDBR
#400, 90RVCSR

52525, 80RVOBR
S@ORVDBR, $BODAT
$GDOAT, $BDDAT
14
17
#400,80RVCSR
52525, 4GDDAT
GORVDBR, $8DDAT
$GDDAT, $8DDAT
;STI?

1SET UP DBR ADRS
iLD EXPECTED
;LD DBR WITH #125252
1SET CYCLE - SHOWD CLK DBR (IN)
1CHANGE DBR (OUT) DATA - SHOWD NOT AFFECT C(IN)
tREAD DBR
sCORRECT?
tBR IF SO
1CYCLE DID NOT LATCK DBR CIN) DATA

sREMOVE CYCLE

sNOW EXPECT 052525
tREAD DBR
1CORRECT?
1 sNEXT TEST IF SO
1DBR FAILED TO READ WHEN CYCLE CLRED (NORMAL)

1108888404 088888848008048848408088484808088888804804800

1o TEST 17

004342

000004
012737
004537
004462
012700
005001
012777
012777
010037
012777
052777
106427
013737
012737
017737
042777
104005
000442
022626
004537
000700
000001
104007
000433
104010
000431

00080088080088484000

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

1180808880844 458880080488080080848488840808888408846088000

004366

010076

001110

TST17:

177776
11771717
015364
015364
000101
000400
000000
001524
000700
175056
000100

010142

175124
175120

1s:

SCOPE
MOV
JSR
24
MOV
MoV

8008808880884888

014, SLPERR
R5,SETVEC

R1
#-1,80RVHCR

®0BUF
, SORVBAR
RO,0BUF

175110
175102

€101 ,80RVCSR
#400,00RVCSR
0

001122
001124
001126
175046

DRVCSR, $BDADR

4700, $GODAT
SORVCSR, $BDOAT
glO0.0DRVCSR
2%:

(SP)+,(SP)e

RS ,CKSTAT

44
10
44

1SET UP SCOPE LOOP ADRS

s60 SET UP INTERRUPT RETURN
tRETURN TO 24 ON INTR
sFLOAT ZERO RIGHT TO LEFT
1R1 CONTROLS DATA SHIFTING
;D0 ONE XFER
sGET DATA WORD FROM ”"DBUF”
:1SET UP MEM DATA
+SET IE &€ GO
$SET CYCLE
sENABLE THE INTR
$1SET UP CSR ADRS
;LD EXPECTED
;1READ THE CSR
iCLR IE
1WCO FAILED TO INTERRUPT (CHECK FOR WCO)
$GO RESTORE VECTOR
1INTR RETURNS HERE - FIX STACK SINCE NO RTI
$GO CHECK STATUS
1CSR STATUS EXPECTED
19 OF XFERS
tRETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
1GO RESTORE VECTOR
tRETURN HERE IF WC ER - EXPECTED O
;GO RESTORE VECTOR

MAINOEC-11-CVORA-C NRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
:ggg

004504
004506
004510
004516
004522
004530
004536
004540
004546
004550
004552
004554
004556
004560
004562
004564
004566

07-MAY-85 09:22
104011
000427
012737
010037
017737
023737
001405
013737
104012
000406
005100
005101
001303
006300
005200
103700
004737

015364
001124
175000
001124

001126
001126

001526

001122

001120

34:

010116

4%:

69383

6986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6999
7000
7001
7002
7003
7004
7005
7006
7007

004572
004574
004602
004606
004610
004614
004616
004624
004632
004636
004644
004652
004656
004664
004672
004700
004702
004704
004706
004712
004714
004716

000004
012737
004537
004704
012700
005001
012777
012777
010077
012777
052777
106427
013737
012737
017737
104005
000442
022626
004537
001702
000001
104007

7009

004720

000433

7011
7012
7013
7014

004724
004726
004730
004732

000431
104011
000427
012737

004722

7015
7016

004740
004744

7018
7019
7020

004760
004762
004770

7017

ERROR
BR
MOV
MOV
MOV
cne
8EQ
MOV
ERROR
BR
CcoM
CoM
BNE
ASL
INC
8cs
JSR

18TEST 20

6985

7010

O07-MAY-85

11
44
Q0BUF , $GDADR
RO, $GODAT
GORVDBR, $BDDAT
$GDOAT, 980DAT
34
ORVDBR, $80ADR
12
44
RO
R1
14
RO
RO
14
PC,RSTVEC

09:37

PAGE 62-17

SEQ 0026

iRETURN HERE IF BAR ER - SHOULD = DBUF+2
1GO RESTORE VECTOR
tRETURN HERE IF OK - SET UP XFER ADRS
;LD EXPECTED
;READ DATA XFERED
;CORRECT?
tBR IF SO
;SET UP DBR ADRS
tDATA ER - DBR CONTAINS WRONG DATA
1GO RESTORE VECTOR
tRETURN HERE ON GOOD DATA - NOW COM PATRN
1KEEP TRACK OF COMPLEMENT
100 COMPLEMENT OF THIS FLOATING ZERO IF 0
1WAS DONE - NOW SMIFT ZERO LEFT
IKEEP LSB SET
1AGAIN TILL ZERO BIT IN CARRY
1GO RESTORE VECTOR

1100008046486808000068004080840400500000008400060000884880000808888¢

6984

7008

MACY11 30(1046)

GET VALUE FOR SOFTWARE SWITCH REGISTER

004752

004616
010076

001110

023737

001405
013737
104013

TST20:

177776
177777

015364

174670
000103

000400
000000
001524

001702
174626

174674

174670

174660
174652
001122
001124
001126

2%:

010142

104010

010037
013737

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

110660840884640884800800008048488480840800800688000686086488008000008808

SCOPE
MOV
JSR
24
MOV
CLR
MOV
MOV
MOV
MOV
8IS
MTPS
MOV
MOV
MOV
ERROR
BR
CHP
JSR
1702

001120

001124

001126
001126

001526

001122

014, SLPERR
R3,SETVEC

ERROR

1SET UP SCOPE LOOP ADRS
1GO_SET UP INTERRUPT RETURN
1RETURN TO 24 ON INTR
1tFLOAT ZERO RIGHMT TO LEFT
1R1 CONTROLS DATA SHIFTING
100 ONE XFER
;WRITE DATA WORD TO *DBUF*
1SET UP DATA IN DBR
1SET 1E, GO & FNCT1 (C1 CONTROL)
1SET CYCLE
1ENABLE THE INTR
;SET UP CSR ADRS
1LD EXPECTED
READ THE CSR
1WCO FAILED TO INTERRUPT (CHECK FOR WCO)
1GO RESTORE VECTOR
1INTR RETURNS HERE - FIX STACK SINCE NO RTI
1GO0 CHECK STATUS
1CSR STATUS EXPECTED
1# OF XFERS
1RETURN HERE IF STATUS ER - EXPECTED STAT C,

1GO RESTORE VECTOR

R
ERROR
8R
MOV

4
11
44
#0BUF , $GDADR

ERROR

015364
001124
015364

84828

MOV
MOV
cHP
8EQ
MOV
ERROR

®-2,R0

#-1,80RVHCR

€0BUF ,BDRVBAR

RO, 80RVDBR
€103 ,80RVCSR

#400,80RVCSR
0
DRVCSR,$BDADR

#1702, $GDOAT
GORVCSR, 4BODAT
5
44
(SP)+,(SP)e
R5,CKSTAT

RO, $GDDAT
DBUF, $BDDAT
$GDOAT, 480DAT
34
ORVOBR, $BDADR
13

1CYCLE, READY, IE & FNCT 1

tRETURN HERE IF WC ER

EXPECTED O

1GO RESTORE VECTOR
tRETURN HERE IF BAR ER - SHOULD = DBUF .2
1GO RESTORE VECTOR
tRETURN HERE IF OK - SET UP XFER ADRS

1ILD EXPECTED
1GET DATA XFERED
;CORRECT?
18R IF SO
;SET UP DBR ADRS
1DATA ER - MEM CONTAINS MRONG DATA

MAINOSF-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
07-MAY-8S 09:22
CVORAC.P11
GET VALUE FOR SOFTWARE SWITCH REGISTER

7021
7022
7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066

7067

004772
004774
004776
005000
005002
005004
005006
005010

000406
005100
005101
001306
006300
005200
103703
004737

3s:

010116

ASL
INC
BCS
JSR

49
RO
Ry
14
RO
RO
14
PC.RSTVEC

PAGE 62-18

SEQ 0027

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

110008880060 48044004884888080840400000484808000040800004440000240000888084¢

;o TEST 21

005014
005016
005024
005030

005032

005036

005052
005056
005064
005072
005100
0C5106
005114
005122
005124
005126
005130
005134
005136
005140
005142
005144
005146
005150
005152
005154
005162
005170
005176
005204
005206
005214
005216

000004
012737
004537
005126
004737
012777
012777
106427
012777
052777
013737
012737
017737
042777
104005
000434
022626
004537
000700
000310

000010
010076
010322
177470
015364
000000
000101
000400
001524
000700
174412
00010C

001160

TST21:

174454
174450

174440
174432

001122
001124
001126
1744cC2

010142

SCOPE
MOV
JSR
13
JSR
MOV
MOV
MTPS
MoV
8IS
MOV
MOV

1s:

CHP

2%:

MOV
CHp
8EQ
MoV
ERROR
JSR

104007

000425
104010
000423
104011
000421
012737
012737
017737
023737
001404
013737
104012
004737

TEST 200 "DATI” NPR TRANSFERS (BURST MOOE)

;5008808840 800008404400006008230484004088008400880004808080048000880002¢

016202
070707
174332
001124

001120
001124
001126
001126

001526

001122

010116

7068

€10, $TIMES
RS,SETVEC

PC,LOBUF
#-200. ,8D0RVWCR

#0BUF
, BORVBAR
€0

::00 10 ITERATIONS
1GO SET UP INTERRUPT RETURN
iRETURN TO 1% ON INTR
;GO LOAD BUFFER WITH COMPLEMENTING PATRN
sLOAD WC REG - WILL DO 200 XFERS
$SET UP CURRENT ADRS

;ENABLE THE INTR
:SET 1E & GO
;SET CYCLE
DRVCSR, $8DADR
:SET UP CSR ADRS
9700, $GDDAT
;L0 EXPECTED
SORVCSR, $BDDAT
;READ THE CSR
;IO0.0DRVCSR
;CLR INTR ENABLE
1WCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS)
23
1GO RESTORE VECTOR
(SP)+,(SP).
;INTR RETURNS HERE - FIX STACK ~INCE NO RTI
RS,CKSTAT
;G0 CHECK STATUS
;CSR STATUS EXPECTED
;@ OF XFERS
7
;RETURN HERE IF STATUS ER - EXPECTED CYCLE, READY & IE
24
;GO RESTORE VECTOR
10
;RETURN MERE IF WC ER - EXPECTED 0
23
;GO RESTORE VECTOR
11
sRETURN HERE IF BAR ER - SHOUWLD = DBUF +620
23
:GO RESTORE VECTOR
#0BUF +616, $GDADR
;0K - SET UP LAST XFER ADRS WHERE @70707 SHOWD BE
70707, $GODAT
;LD EXPECTED
SORVDBR, $BDDAT
:OBR SHOULD HAVE LAST DATUM
$GDDAT, $BDDAT
;CORRECT?
23
;B8R IF SO
DRVDBR, $BDADR
:SET UP DBR ADRS
12
;DATA ER - DBR DID NOT CONTAIN EXPECTED LAST XFER
PC.RSTVEC
;GO RESTORE VECTOR
€101 ,80RVCSR
#400,80RVCSR

1500880880048 804888084800000840038384320828030800008048088080088804

7069

7070
7071
7072
7073
7074
7075
7076

BR
CoM
com
BNE

09:37

;sTEST 22

005222
005224
005232
005236
005240
005246

000004
012737
004537
005336
012717
012777

TEST 200 “DATO” NPR TRANSFERS (BURST MODE)

;3008888888008 48808488000488888058048080004880800800008005530808008

000010
010076

001160

177470

174252
174246

015364

TST22:

SCOPE
MOV

JSR
19
MOV
MOV

910, $TIMES
RS,SETVEC
¢-200. ,80RVWCR

#0BUF
, SORVBAR

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

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

CVORAC 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

127
7128
7129
7130
7131
7132

h—

005254
005262
005266
003274

005302
005310

005316
005324
005332
005334
005336
005340
005344
005346
005350
005352
005354
005356
005360
005362
005364
005370
005372

012777
106427
012777
052777
013737
012737
017737
042777
104005
000416
022626
004537
001702
000310
104007
000407
104010
000405
104011
000403
004737
104013
004737

1773717
000000
000103
000400
001524
001702
174202
000100

174244

MOV

MTPS

174230
174222
001122

001124
001126
174172

010142

010444

010116

2%:

MOV
8Is
MOV
MOV
MOV
8IC
ERROR
BR
cHpP
JSR
1702
200.
ERROR
B8R
ERROR
B8R
ERROR
BR
JSR
ERROR
JSR

#177377,80RVDBR
&0
€103 ,80RVCSR
6400, 80RVCSR

DRVCSR, $BDADR
#1702, $GDDAT

GORVCSR, $BDDAT
;100.80RVCSR
2
(SP)+,(SP).
R5,CKSTAT

24
10
24
11
24
PC,CKDAT

PC,RSTVEC

09:37

PAGE 62-19

SEQ 0028

;THIS WILL BE WRITTEN TO MEM

iENABLE THE INTR
1SET 1E, FNCT 1 & GO
1SET CYCLE
$sSET UP CSR ADRS
;LD EXPECTED
;READ THE CSR
iCLR INTR ENABLE
:WCO FAILED TO INTERRUPT (SNGL CYCL ON COULD CAUSE THIS)
1GO RESTORE VECTOR
$INTR RETURNS MERE - FIX STACK SINCE NO RT:
;GO CHECK STATUS
:CSR STATUS EXPECTED
;1@ OF XFERS

;RETURN HERE IF STATUS ER

EXPECTED STAT C,

;CYCLE, READY, IE & FNCT 1
;GO0 RESTORE VECTOR
:RETURN HERE IF WC ER - EXPECTED O
;GO RESTORE VECTOR
{RETURN 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

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

;sTEST 23
005376
005400
205406
005414
005420
005422
005426
005432
005440
005446
005452
005460
005466
005470
005472
005474
005500
005502
005510
005516
005524

005526
005530
005532
005534
005536
005542
005544

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

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

TEST THAT THE CPU IS LOCKED OUT WITH SINGLE CYCLE OFF

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

000010
001524
010076
000010
001126
177470
015364
000000
000101
000400

001160
001122

174060
174054

T5123:

1%:

174044
174036
Ss:

001126
000700
174010
000100

24:

001124
001126
174000

MOV

3s:

001126

SCOPE
MOV
MOV
JSR
3
MOV
CLR
MOV
MOV
MTPS
MOV
8IS
INC
BNE
NOP
INC
BNE
MOV

8IC
ERROR
BR
cHp
OEC
BNE
TST
BEQ
ERROR

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

€10, $TIMES

DRVCSR, $8DADR

R5,SETVEC

€10,R0
$BOOAT
¢-200. ,8DRVHWCR
@0BUF
, BORVBAR
&0
#101,80RVCSR
#400,80RVCSR
R1

5%
$BDDAT
24
€700, $GDDAT
S8ORVCSR, $BDDAT

#100,80RVCSR

(SP)+,(SP).

RO
1s
$8DDAT
43
14

::00 10 ITERATIONS
+SET UP CSR ADRS
;GO SET UP INTR RETURN

;RETURN TO 3% ON INTR

;00 EIGHT 200 WORD XFER'S
;USR $BDDAT AS A COUNTER
;00 200 XFERS (DATI'S)
;FROM DBWF
;ALLOW AN INTR
:SET IE & GO
;SET CYCLE
; INCREMENT R1 -DDOO1
;00001
;START COUNTING - SHOULD NEVER GET HERE
;UNTIL 64K
;LD EXPECTED
;sREAD STATUS
;CLR IE
;sNO INTERRUPT ON 200 DATI'S
;GO RESTORE VECTOR
+FIX STACK SINCE NO RTI
;OONE 8 TIMES?
:BR IF NOT
;SHOWD STILL BE ZERO

;BR IF SO

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

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

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
nn
7172
7173
7174
7175
7176
7177
7178

7179

7180
7181
7182
7183
7184
7185
7186
7187
7188

005546

004737

INTERFACE DIAGNOSTIC

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

010116

43
;

JSR

PC,RSTVEC

09:37

PAGE 62-20

SEQ 0029

:GO RESTORE VECTOR

,3.‘..ttt‘.‘..‘.‘....00.““‘.t‘.‘..‘

;o TEST 24
005552
005554
005562
005570
005574
005576
005602
005610
005616
005624
005630
005636
005644
005646
005652
005654
005662
005670
005676
0C5700
005702
005704
005706
005710
005716
005720
005722
005730
005736
005744
005746
005750

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

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

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

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

000010
001524
010076

000010
000000

177470
015364

000000
000111
000400

001160
001122

173702
173676

€10, $TIMES
DRVCSR, $BDADR
R5,SETVEC
#10,R0

40, $BDDAT

1s:

#-200. ,90RVWCR

#0BUF
, SORVBAR

&
€111 ,80RVCSR
#400,80RVCSR

173666
173660
2%:

$8DDAT

001124
001126
173626

#4710, $GODAT

SORVCSR, $BDDAT
€100, 80RVCSR

5
5%

3s:
000000

001126

173576
004710

001126

001124

(SP)+,(SP).

RO
1%
40, $BDDAT
44

SORVCSR, $BDDAT
#4710, $GDDAT
$GDDAT, $8DDAT
5%
7
PC,RSTVEC

001126

010116

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

SCOPE

001126

001126
004710
173636
000100

1ST24:

S¢:

13100 10 ITERATIONS
:SET UP CSR ADRS
GO SET UP INTR RETURN
sRETURN TO 3¢ ON INTR
100 EIGHT 200 WORD XFER'S
:USE $BDDAT AS A COUNTER
;D0 200 XFERS (DATI'S)
sFROM DBUF

:ALLOW AN INTR
:SET IE, FNCT3 € GO
sSET CYCLE

;FREEBEE

sSTART COUNTING
sUNTIL 64K - SHOUWD INTR BEFORE OVERFLOM
;LD EXPECTED
;READ STATUS
sCLR IE
iNO INTERRUPT ON 200 DATI'S (WITH SINGLE CYCLE)
:GO RESTORE VECTOR
:FIX STACK SINCE NO RTI
;DONE 8 TIMES?
;:BR IF NOT
: $BDODAT SHOULD HAVE BEEN COUNTED
;BR IF SO
:CPU APPEARED LOCKED OUT WITH SINGLE CYCLE SET

;READ STATUS

;LD EXPECTED

;CORRECT?
;BR IF SO
:STATUS INCORRECT ON XFER WITH SINGLE CYCLE SET
:+60 RESTORE VECTOR

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

s#TEST 25

005754
005756
005764
005770
005772
005776
006004
006012
006016
006024
006032
006036
006044
006052
006060

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

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

TEST THAT MAINT MODE CONTROLS FNCT BITS,

$i8888808858888808888008488448880800808084808800

000200
010076

010374
011702
0003001
000000
015364
006116
173462
010101
000400
001524
006114

001160

1572S:

24
JSR
MOV

006114
006116

173476
173466

173460
173452
001122
001124

SCOPE

MoV
JSR

1¢:

MOV
MTPS
MOV
MOV

NEG

MOV

8IS

MOV
MOV

XFER DIR & SINGLE CYCLE

00000000000000044

420
$ TIMES
0,
RS,SETVEC

PC,LDBUF
€11702,3%
1,49
80

®0BUF
, BORVBAR

44 ,00RVWCR
8DRVWCR
©10101,80RVCSR
#400,8DRVCSR

DRVCSR, $BDADR
3%,$GDDAT

;:D0 200 ITERATIONS
;GO SET UP INTR RETURN
;RETURN TO 2% ON INTR
;GO SET UP DBUF (SPECIAL COM PATTERN)
;3% CONTAINS EXPECTED STATUS
14% CONTAINS THE CURRENT XFER NO & (MAX 8)
sALLOW INTR
:SET UP CURRENT ADRS
;GET XFER ¢
;NEGATE FOR WC
:SET UP MAINT, IE & GO
;SET CYCLE
iSET UP CSR ADRS
;LD EXPECTED
.

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

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
718
719
7220

7221
1222
7223
7224
7225
7226
7227
7228
7229
7230
7231
7232
7233

7234
7235

7236
7237
7238
7239
7240
7241
7242
7243
7244

006066
006074
006102
006104
006106
006110
006114
006116
006120

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

017737
042777
104005
000440

173432

000100

001126
173422

022626

004537
01170¢
000001
104007

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

MOV

2%:

010142

3%
44:

001002
020000

006114
006114

010700
006116
000011

006114
006116

S$:

010512

010116

64:

8IC
ERROR
BR
cMp
JSR

11702
1
ERROR

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

S0RVCSR, $8DDAT

#100,80RVCSR
S
63
(SP)+,(SP).
R5,CKSTAT
7

64
10
63
11
63
41002, 39
#8I713,34
S
#10700,3$
43
011,4¢
13
R5,CKDATL
13
PC.RSTVEC

09:37

PAGE 62-21

SEQ 0030

;READ STATUS

:DISABLE IE
iNO INTR ON XFER (IN MAINT MD)
;GO RESTORE VECTOR
iRETURN HERE ON INTR - FIX STACK SINCE NO RTI
1GO CHECK STATUS

i THIS LOCATION WILL CONTAIN EXPECTED STATUS
1THIS LOCATION WILL CONTAIN CURRENT XFER & (MAX 8)
+RETURN HERE IF STATUS ER - WILL EXPECT

;MAINT, COUNT INCREASE OF FNCT & STAT BITS,
:CYCLE, READY & IE

;GO RESTORE VECTOR
;RETURN HERE IF WC ER - SHOULD BE O
;GO RESTORE VECTOR
sRETURN HERE IF BAR ER:GO RESTORE VECTOR
;RETURN HERE IF OK - ADVANCE EXPECTED STATUS LOC
:LOOK FOR OVERFLOW
;B8R IF NOT
:FNCT € STAT BITS SHOULD BE ZERO THIS TIME
:ADVANCE CURRENT XFER ¢
:HAVE 10 XFERS BEE¥ DONE
;B8R IF NOT
;NOW GO CHECK DATA
;@ OF XFER'S TO CHECK
;RETURN HERE IF DATA ER - (WITH MAINT SET)
;RESTORE VECTOR NEXT
;GO RESTORE VECTOR

FiNsAA
40400004
RAA
0400 04000080
AEE
00840800
AEA
80024008
RSA
080000004

;»TEST 26
006212

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

000004

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

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

$i00BRRAAAAAAAIRRAAAAMRERAAA400000000800

000100
000002
010076

001160

17771717
160000
000000
000161
000400
001524
140760
173214
000100

173256
173252

TST26:

1%:

SCOPE
MOV

MoV
JSR
23

MoV
MOV

MTPS
MOV

173242
173234
001122
001124
001126
173204

BIS

MOV
MOV
MOV

8IC

ERROR

173172

140760
001124

001126
001124
001126

001524

001122

24:

BR
CHp

MOV
MOV

cHe
8EQ

MOV
ERROR

4400008080800840048040

9100, $TIMES

#2,R0
R5,SETVEC

::00 100 ITERATIONS

;RO WHEN ZERO SAYS CLR 'NEX' WITH RESET
;GO SET UP INTERRUPT RETURN
:RETURN 70 2% ON TIMEOUT INTR
€#-1,80RVKCR
;SET UP FOR ONE XFER'S
160000, 830RVBAR ;SET UP CA TO 160000 (RESERVED)
0
;ALLOW INTR
#161,80RVCSR
;SET IE, XAD 17,16 & GO
€400,8DRVCSR
;SET CYCLE
ORVCSR, $8DADR
:SET UP CSR ADRS - SHOULD NEVER GET HERE
€140760, $GDDAT
;LD EXPECTED
S80RVCS”, $BDDAT
;GIVE THEM THE STATUS
#100,8URVCSR
;:CLR IE
16
;NEX FAILED TO CAUSE AN INTERRUPT
74
:GO RESTORE VECTOR
(SP)+,(SP)+
:SHOULD INTR RETURN HERE - FIX STACK
S0RVCSR, $BDDAT
;READ THE CSR
140760, $GODAT
;LD EXPECTED
$GDDAT, $8DDAT
;CORRECT?
3
;BR IF SO
DRVCSR, $8DADR
;:SET UP CSR ADRS
16
;STATUS ER - EXPECTED

:ER, NEX,

CYCLE, READY,

IE,

XAD17 & XAD16

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

CVORAC P11

7245
006362
7246
006364
7247
006372
7248
006400
7249
006406
7250
006410
7251
006416
7252
006420
7253
006422
7254
006430
7255
0064 36
7256
006444
7257
006446
7258
006454
7259
006456
7260
006460
7261
006462
7262
006464
7263
006472
7264
006500
7265
006506
7266
006514
7267
006516
7268
006524
7269
0C6526
7270
006530
7271
006532
7272
006540
7273
006546
7274
006554
7275
006556
7276
006564
7277
006566
1278
7279
7280
7281
006572
7282
006574
7283
006602
7284
006606
7285
006610
7286
006614
7287
006622
7288
006630
7289
006634
006642
7290
7291
006650
7292
006656
7293
006662
7294
006664
7295
006672
7296
006700
7297
006706
7298
006714
7299
006716
7300
006720

000501
017737
012737
023737
001405
013737
104010
000462
017737
012737
023737
001405
013737
104011
000443
005300
001422
042777
017737
012737
023737
001644
013737
104016
000417
000005
017737
012737
023737
001404
013737
104016
004737

173130
177777

001124

001126
001124
001126

001520

001122

173074
160000
001124

001126
001124
001126

001522

001122

BR
MOV

3s:

MOV

cMP

BEQ
MOV
ERROR
B8R
MOV
MOV
cmHp
BEQ
MOV
ERROR
BR
DEC
BEQ
8IC
MOV

4%
:

040000
173026
000760
001124

173032
001126
00112«
001126

001524

001122

172766

000200
001124

001126
001124
001126

001524

001122

010116

MoV

CMP
BEQ

MOV
ERROR

64:

RESET
MOV
MOV

cHp
8EQ
MOV

ERROR
JSR

7%:
RS

eSS

;#TEST 27

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

74
SORVMCR, $BDDAT
#-1,3GODAT
$GDDAT, $8DDAT
43
DRVWCR, $BDADR
10
74
B0RVBAR, $BDDAT

160000, $GDDAT

;GDDAT.SBDDAT
$

ORVBAR, $80ADR
11

7%
RO
64
#40000, 80RVCSR
80RVCSR, $BDDAT
€760, $GDDAT
$GDDAT, $BDDAT
13
DRVCSR, $BDADR
16
74

S80RVCSR, $BDDAT

9200, $GDDAT

$GODAT, $BDOAT
7%
DRVCSR, $BDADR
16
PC.RSTVEC
22

09:37

PAGE 62-22

SEQ 0031

:GO RESTORE VECTOR
;READ WORD COUNT
1SHOUWLD STILL HAVE -1
1CORRECT?
+BR IF SO
1SET UP WCR ADRS
;WC INCREMENTED ON A TIMEOUT ER
;GO RESTORE VECTOR
sREAD BUFFER ADRS
sSHOULD NOT HAVE INCREMENTED
; CORRECT?
:BR IF SO
:SET UP BAR ADRS
iBAR INCREMENTED ON A TIMEGUT ER
;GO RESTORE VECTOR
;KEEP TRACK ON HOW TO CLR
:BR IF CLR BY RESET
;WRITE NEX TO ZERO
;READ CSR
;LD EXPECTED
:CORRECT?
;BR _IF SO + REPEAT TEST FOR RESET TEST
:SET UP CSR ADRS
i 'NEX' FAILED TO WRITE TO ZERO
;GO RESTORE VECTOR
;ISSUE BUS RESET
:READ THE CSR
iEXPECT ONLY READY
;CORRECT?
;BR IF SO
:SET LP CSR ADRS

;RESET FAILED TO CLR

;GO RESTORE VECTOR
Y

’'NEX'

Yy S YTy
YYYYen

TEST 200 NPR TRANSFERS IN MAINT MODE

FiRRARARA40008004
ARA
0400
EAA
0000 0000000
ARA
000000t
540
tt
400
ttibtks

000010
010076

010374
015364
177470
000000
010101
000400
000000
001126
001524
010700
172620
000100

001160

TST27:

SCOPE
MOV
JSR

24
JSR

172700
172670
172662
172654
001126
1$:

001122
001124
001126
172610

MOV
MOV
MTPS
MOV
8IS
MoV
INC

PC,LDBUFL

@DBUF
, 8DRVBAR

#-200. ,8DRVWCR

90
€10101,80RVCSR
#400,80RVCSR
€0, $BDDAT
$8DDAT

BNE
MoV

1
ORVCSR, $BDADR
10700, $GDOAT

8IC
ERROR
BR
cMpP

;100.0DRVCSR

MOV
MOV

2%:

410, $TIMES
R5,SETVEC

S80RVCSR, $BDDAT

(SP)+,(SP)+

::00 10 ITERATIONS
;GO 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
;WAIT TILL DONE - SHOULD INTR BEFORE OVFLO
;:SET UP CSR ADRS
;LD EXPECTED
;READ STATUS
;:DISABLE IE
iNO INTR AFTER 200 MAINT MODE XFER'S
1GO RESTORE VECTOR

iRETURN HERE ON INTR - FIX STACK SINCE NO RTI

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

7301
7302
7303
7304
730S
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329
7130
7331
7332
7333
7334

7335
7336
7337
7338
7339

7340
7341
7342
7343
7344
7345

7346

7347
7348
7349
7350
7351
7352
7353
7354
7355
7356

006722
006726
006730
006732

0045357
010700
000310
104007

006734
006736
006740
006742
006744
006746
006752
006754
006756
006760

000411
104010
000407
104011
000405
004537
000310
104013
000240
004737

010142

010512

010116

34:

JSR
10700
200,
ERROR

R5,CKSTAT

BR
ERROR
BR
ERROR
BR
JSR
200,
ERROR
NOP
JSR

34
10
3
11
3
R5,CKDATL

13
PC,RSTVEC

09:37

PAGE 62-23

SEQ 0032

1GO CHECK STATUS
:EXPECTED STATUS
;10 OF XFERS
iRETURN MERE IF STATUS ER - EXPECTED MAINT,
:CYCLE, READY & IE
iGO RESTORE VECTOR
;RETURN HERE IF WC ER - SHOULD BE 0O
iGO RESTORE VECTOR

;RETURN HERE IF BAR ER

SHOULD = DBUF +620

;GO RESTORE VECTOR
iRETURN HERE IF OK - NOW GO CHECK DATA
1# OF XFER'S TO CHECK
iRETURN HERE IF DATA ER - (WITH MAINT SET)
sRESTORE VECTOR NEXT
;GO RESTORE VZCTOR

;;“t“““tttt““‘t‘t“‘t‘t‘tttttt““t““‘t

;«TEST 30

006764
006766
006774
007000
007002

007006
0C7014

007022
007024
007030
007036
007044
007050
007056
007064
007072
007076
007100
007106
007114
007122
007130

000004
012737
004537
007134
005037

062737
023737

001465
004737
013777
012777
106427
012777
052777
012737
005237
001375
013737
012737
017737
042777
104005

007132
007134
007136
(007142
007144
007146

000421
022626
004537
010700
000310
104007

007150
007152
007:54
007156
007160
007162
007166
007170
007172

000412
104010
000410
104011
000406
004537
000310
104013
000401

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

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

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

000005
010076

001160

TST30:

001542

020000
001540

010374
001542
177470
000000
010101
000400
000000
001126

001524
010700
172404
000100

010142

010512

001542
001542

14:

172464
172454
172446
172440
001126
2%:

001122
001124
001126
172374

SCOPE
MOV
JSR
3
CLR

ADD
cMP

BEQ
JSR
MOV
MoV
MTPS
MOV
BIS
MOV
INC
BNE
MOV
MOV
MoV
8IC
ERROR
BR
CMP
JSR
10700
200.

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

05, $TIMES
R5,SETVEC

O8UFP
#20000,08UFP
EgRSZ.DBUFP
PC,LDBUF1

OBUFP, BDRVBAR

€-200.,80RVWCR
%0
€10101,8DRVCSR
#400,80RVCSR
90, $8DDAT
$8DDAT

2
DRVCSR, $BDADR
10700, $GDDAT
80ORVCSR, $BDDAT
;100.0DRVCSR
44

(SP)+,(SP).

R5,CKSTAT

ERROR

BR
ERROR
BR
ERROR
BR
JSR
200.
ERROR
BR

44
10
44
11
44

R5,CKDATL

::00 5 ITERATIONS
:GO SET UP INTR RETURN
;RETURN TO 33 ON INTR
:GET LOWEST BUFFER ADRS
:POINT TO NEXT 4K
;1S THE 4K THERE?
;BR IF MOT
+GO SET UP SPECIAL COMPEMENT PATTERN
$SET UP BUFFER ADRS
;SET UP FOR 200 XFER'S
;ALLOW INTR
1SET MAINT,IE € GO

:SET CYCLE

;SET UP A COUNTER
s COUNT AWAY
;SHOULD ALWAYS INTR FROM THIS LOOP
:SET UP CSR ADRA
;LD EXPECTED
;READ CSR
;OISABLE IE
iNO INTR AFTER 200 MAINT MOOF XFER'S
;GO RESTORE VECTOR
;RETURN HERE ON INTR - FIX STACK SINCE NO RTI
;GO CHECK STATUS
iEXPECTED STATUS

;@ OF XFER'S

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

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

CVORAC P11
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401

7402

7403
7404
7405
7406
7407
7408
7409
7410
7411
7412

007174
007176
007204

000704
012737
004737

015364
010116

001542

43
:

BR
MOV
JSR

#0BUF
, DBUFP

PC,RSTVEC

118088508804 0408800844080880 400

;#TEST 314
007210
007212
007216
007220
007224
007226
007234
007242
007250
007254
007260
007266
007274

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
007350
007352
007354
007356
007364
007372
007400
007402
007410
007416
007420
007426
007432

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

007302
007310

007316
007324
007326
0C7330
007332

09:37

PAGE 62-24

SEQ 0033

1 TRY NEXT BANK
:RESTORE BUFFER ADRS TO LOWEST 4K
1GO RESTORE VECTOR
8448004884484 000088888000400080440

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

P14 0400040004808300400400400000080500000008808088444800000

TST31:

171722
010076

177777
001150
001150
000000
172246
000161
000400
001524
000760
172210
000100

101$:
172264
001542

172252

MTPS

CLR

172236
172230
001122

MOV

8IS
Mov

001124
001126
172200

MOV
MOV
BIC
ERROR

1s:

010142

SCOPE
1518
8MI
JSR
1%
MOV
MOV
MOV

001124
001126
001126

001526
001150

001122
001120

015364
010116
007656

001542

€-1,80RVUWCR
$TPS,DBUFP
$TPS,80RVBAR
90
S80RVDBR

#161,80RVCSR
9400,80RVCSR
DRVCSR, $BDADR
9760, $GODAT
S80ORVCSR, $8DDAT

glO0.0DRVCSR

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

1
ERROR

BR
ERROR
BR
ERROR
BR

MOV
MOV

CMP
BEQ

2%:

8SWR
ALTERN
R5,SETVEC

BR
cHp
JSR

760

171566
172136
001124

0804

HOV
MOV
ERROR
MOV
JSR
JMP

108880 Rs bbb

1KDF11-8?
:IF YES,GO TO THE NEXT SUBTEST
;GO SET UP INTR RETURN
tRETURN TO 14$ ON INTR
;SET UP WC - 1 XFER
:SET UP BUFFER ADRS TO PRINTER CSR ADRS
:SET UP BUFFER ADRS - FROM PRINTER CSR
sALLOW INTR
1ZERO THE DBR
:SET IE, XAD17? & XAD16, & GO
$SET CYCLE
$:SET UP CSR ADRS
;LD EXPECTED STATUS
tREAD THE CSR
;:DISABLE 1IE
iNO INTR ON 1 WD XFER FROM XCSR
;GO RESTORE VECTOR
s INTR RETURNS HERE - FIX STK SINCE NO RTI
;G0 CK STATUS
:CSR EXPECTED STATUS

;@ OF XFER'S

2%
10

24
11
24
83 TPS, $GODAT

G0ORVDBR, $BDDAT
$GDDAT, $80DAT
23
DRVDBR, $BDADR
$TPS, $GDADR
20
#0BUF
, DBUFP
PC,RSTVEC
NXDEV

:RETURN HERE IF STATUS ER - EXPECTED CYCLE,
:XAD17 & XAD16, RDY & IE
:GO RESTORE VECTOR
;RETURN HERE IF WC ER - EXPECTED 0
;GO RESTORE VECTOR
;:RETURN HERE IF B6AR ER - SHOULD = XCSR+2
;GO RESTORE VECTOR
sRCTURN HERE IF OK - GET XCSR CONTENTS
;READ DBR
sCORRECT?
;B8R IF SO
;SET UP DBR ADRS
:GET ADRS OF DATA (XCSR)
;:DATA ER FROM TTY PRINTER CSR
;RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR

; IGNORE NEXT ‘SUBTEST

405000 0080008000440 004800840004000000s0RddadsR

: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

FiRANAAAAR
4204 ARRAAERAAAAA0
AERAA
0R00 RRESE
4000000000000
EA
REEE0

001544

ALTERN:

010076

17177717
001544
001544

172040
001542

172026

TST
8EQ
JSR
13
MOV
MOV
MOV

JOPAGE
NXDEV
R5,SETVEC
#-1,8DRVUCR
IOPAGE ,DBUFP
IOPA
, 8DRVBAR
GE

$1/0 TRANSFER DESIRED?
1IF NOT, SKIP THE TEST
:GO SET UP INTR RETURN
:RETURN TO 1$ ON INTR
:SET UP NC - 1 XFER
sSET UP BUFFER ADRS TO I/0 CSR ADRS
$SET UP BUFFER ADRS - FROM I/0 CSR

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

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
744§
744

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
0C7624
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

7458
7459

7460
7461

7462
7463

7464
7465
7466
7467
7468

ERROR

BR
ERROR
BR
ERROR
BR
MOV
MOV
CMP
BEQ
MOV
MOV
ERROR
MOV
JSR

2%
10
2
11
23
8IOPAGE, $GDDAT
S80RVDBR, $BDDAT
$GODAT, $BDDAT
24
DRVDBR,$BDADR
IOPAGE, $GDADR
20
DBUF , DBUFP
PC,RSTVEC

1DON'T REPORT

7446

7455
7456
7457

#0
S@0RVDBR
€161,80RVCSR
#400, 80RVCSR
DRVCSR,$BDADR
9760, $GDDAT
B8ORVCSR, $BDDAT
#100,30RVCSR
S
24
(SP)+,(SP)»
R5,CKSTAT

PAGE 62-25

SEQ 0034

sALLOW INTR
:ZERO THE DBR
:SET IE, XAD17 & XAD16, €& GO
:SET CYCLE
;SET UP CSR ADRS
:LD EXPECTED STATUS
;READ THE CSR
;DISABLE IE
iNO INTR ON 1 WD XFER FROM XCSR
1GO RESTORE VECTOR
1INTR RETURNS HERE - FIX STK SINCE NG RTI
;GO CK STATUS
1CSR EXPECTED STATUS
;19 OF XFER'S
iRETURN HERE IF STATUS ER - EXPECTED CYCLE.
iXAD17? & XAD16, RDY & IE
:GO RESTORE VECTOR
iRETURN HERE IF WC ER - EXPECTED O
:GO RESTORE VECTOR
:RETURN 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)
;DATA ER FROM TTY PRINTER CSR
:RESTORE BUFFER ADRS TO LOWEST 4K
;GO RESTORE VECTOR

PIOBRA
RS0 AR
0AAAAEA
AR
0RE00R
AE
0400044
AS
000004A
00000040484

7445
7447
7448
7449
7450
7451
7452
7453
7454

24%:

MTPS
CLR
MOV
8IS
MOV
MoV
MOV
8IC
ERROR
BR
CcHP
JSR
760
1

09:37

007656
007660
007662
007666
007670
007676
007704
007712

007720
007726
007734
007740
007746

007750

000004
000241
006037
001432
062737
06273/
062737
062737
062737
062737
005237

032737
001744

000137

NXDEV:
NXDEV1:

001536
000010
000010
000010
000010
000004
000004
001206

001520
001522
001524
001526
001530
001532

000001

001536

SCOPE
CLC
ROR
BEQ
ADD
ADD
ADD
ADD

ADD
ADD
INC

002372

.SBTTL
P18

‘END OF PASS'

bt ttttninheeee L

BIT
BEQ
JMP

OMAP
$EQP
410,DRVWCR
€10, 0RVBAR
€10,0RVCSR
910,DRVDBR
4 ,DRVCTO
#4 ,DRVCT2
$UNIT
41,0MAF
NXDEV1
RESTRT

UNTIL ALL SELECTED DRV11'S HAVE BEEN TESTED

LT T TTY L

END OF PASS ROUTINE

P PP PP PP

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

R4RAAEERREA 000000400443 04400004884004048204800080008000
08488

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

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

CVORAC 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
010046
010050
010052
010052
010054
010056
010061
010066
010074

O07-MAY-85

09:37

PAGE 62-26

SEQ 0035

$EOP

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

104405
104401
013700
001405
000005

001102
001160
001202
100000

001202

010061
001202
010056
000042

» $SENULL
8042,R0
$DOAGN

$ENDAD:

PC,(RO)

RESET

004710
000240
000240
000240

000137
002012
377
015
050040
000043

NOP
CLR
CLR
INC
8IC
DEC
$EOPCT: .WORD
8GT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
Mov
TYPDS
TYPE
$GET42: MOV
BEQ

JSR
NOP

NOP
$D0OAGN:

377

042412

051501

000
042116

020123

$RTNAD:
$ENULL
:
$ENDMG
:

NOP

JMP
.WORD
.BYTE
.ASCIZ

$TSTWM
$TIMES
$PASS
4100000, $PASS

s3ZERO THE TEST NUMBER
;;ZERO THE NUMBER OF ITERATIONS
s s INCREMENT THE PASS NUMBER
;;O0N'T ALLOW A NEG. NUMBER
;:LO0P?

$D0AGN
iPC)0.9(PC)0

s s YES

. $ENDMG

s;TYPE “END PASS #*
1:SAVE $PASS FOR TYPEOUT
+:GO TYPE--DECIMAL ASCII WITH SIGN
;:TYPE A NULL CHARACTER
:sGET MONITOR ADDRESS
;s sBRANCH IF NO MONITOR
;;CLEAR THE WORLD
$:G0 TO MONITOR
+ s SAVE ROOM
::FOR
;3ACT11

(PC)»
1

$PASS, -(SP)

s ;RESTORE COUNTER

8(PC)»
; sRETURN
START1
-1,-1,0
: sNULL CHARACTER STRING
<15><12>/END PASS &/

MAINDEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.P1}

07-MAY-85 09:22

7499
7500
7501
7502
7503
7504
7505

.SBTTL

7506

1
71516

010076
010102
010106

010114

106427
012577
012777

000205

000200
171422
000200

171416

010116
010122
010130

010134
010140

005077
013777
005077

106427
000207

171402
001532
171376

171400

MTPS
MOV
MOV

#200
(R5)+,80RVCTO
€200,80RVCT2

0044

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

sEXIT

800480500448 808888080848424458000800880000808880000000000400

RSTVEC:

000200

CLR
MOV
CLR

MTPS
RTS

SORVCSR
DRVCT2,8DRVCTO
SORVCT2

9200
PC

%04d

sCLR STATUS & CONTROL
;POINT VECTOR TO HALT
$SET UP HALT

:RAISE PRIORITY LEVEL
sEXIT

$i 0888084840884 84088800880888048000880800008084000000000803040048

7527
7528
7529
7530

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

7531

83888004

3300888848404 040080000084448440400008808880884800000000800000804
; THIS ROUTINE CLEARS THE DRV11B CSR - RESTORES THE DRV11B
: INTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL

7526

7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554

SEQ 0036

PROGRAM SUBROUTINES

RTS

7519

7523
;g?g
2

PAGE 63

$ 088888004 044800048000880808444850000880800208848200000008080800

SETVEC:

7517
7518

7520
7521
7522

09:37

sTHIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT ;:SETS UP THE DRV118 INTERRUPT TO RETURN ON INTERRUPT
sTO THE ADDRESS INDICATED ((RS)) 8Y THE CALL +2

7510

;glg

O7-MAY-85

$: 08848884 044488800040000048048880080004880808448000008048

7507
7508
7509

7511
7512
7513

MACY11 30(1046)

END OF PASS ROUTINE

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
001124

001126
171346

001126

001524
000002

001122

171306

001126

001520
001124
000006

001122

001124
001124
001542
171242
000001

$300888084844458548848880488444408088000080004888000000004000084

CKSTAT:

1%:

24:
001124
001126
001126

001124

001126

001522
000012

001122

MOV
8IC
MOV
cMP
BEQ
MOV
ADD
RTS
MOV
8EQ
MOV
CLR
ADD
RTS
MOV
ASL
ADD
MOV
8IC
cHP
BEQ
MOV
ADD

ODRVCSR, $8DDAT
#100,8DRVCSR
(RS)+, $GDDAT
$GODAT, $BDDAT
14
DRVCSR, $BDADR
2 ,RS
RS
SORVUWCR, $BDDAT
24
DRVKCR, $BDADR
$GDDAT
#6 ,RS
RS
(RS), $GODAT
$GDOAT
DBUFP, $GDDAT
SORVBAR, $8DDAT
81700, $BDDAT
$GDDAT, $BDDAT
34
ORVBAR, $BDADR
€12,.RS

;READ THE STATUS
;DISABLE THE IE BIT
$SET UP EXPECTED STATUS
;CORRECT?
s8R IF SO
;SET UP CSR ADRS
;:POINT TO THE CSR ER
;EXIT HERE ON STATUS ERROR
;GET WC
;BR IF ZERO
;SET UP WCR ADRS
;EXPECTED O
sPOINT TO THE WCR ER
{EXIT HERE ON WCR ER
sGET XFER ¢
sCONVERT TO WORD
;POINT TO LAST XFER +2
;GET BA
;DON'T WANT BITOO
;CORRECT?
;1BR IF SO
;SET UP BAR ADRS
;POINT TO BAR ER

0400

MAINOEC 11-CVORA-C DRV11B OMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7555
7556
;gg;

010312
010314
010320

07-MAY-85 09:22
000205
062705
000205

000016

7559
7560
7561
7562
7563

3s:

RTS
ADD
RTS

RS
#16,R5
RS

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

09:37

PAGE 63-1

sFOR 199 LOCATIONS - THE LAST LOCATION IS LOADED WITH THE
;470707 WHICH SHOULD BE THE DATA WORD AVAILABLE IN THE DBR
tAT THE COMPLETION OF A 200 WORD TRANSFER
010322

012703

7566
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578

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

012704
010423
005104
022703
001003
012713
000207
010423
022703
001771
005104
006304
005204

;g:g

010372

7579

O07-MAY-85

;00880000288 88888808488488884888808808880880880888008084804884048028
:THIS ROUTINE LOADS '‘DBUF’' WITH A FLOATING ZERO/ONE PATTERN

7564

7565

MACY11 30(1046)

PROGRAM SUBROUTINES

010370

015364

177776

310688408080 20488408880484484058884508048000480088888884040888888880448

LOBUF:

14:
24:

MOV

#0BUF ,R3

103356

MOV
MOV
CoM
CMP
BNE
MOV
RTS
MOV
CMP
BEQ
com
ASL
INC

8CC

177776, ,R4
R4,(R3).
R4
#0BUF +616,R3
43
#70707,(R3)
PC
R4,(R3).
#BUF+616,R3
39
R4
R4
R4

000757

016202
070707

016202

$GET BUFFER ADRS

:SET UP FLOATING ZERO PATRN
tLOAD IT (FLOATING 0)
{MAKE INTO FLOATING 1
tAT END OF BUFFER?
sBR IF NOT
sLOAD LAST DATVAR (SPECIAL)
1GET OUT
;LOAD IT (FLOATING 1)
+AT END OF BUFFER?
;88 IF SO
1BACK TO FLOATING ZERO
sSHIFT LEFT
;KEEP LSB SET
1GO RESET FLOATING PATRN
$GO LOAD NEXT PATRN

7582

3088880880800 8488880888804884888850884848088800888804000088080004040

7583

:THIS ROUTINE LOADS

7585
7586
7587
7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599

:IT IS USED WITH MAINT BIT SET (DATI/DATO SEQUENCE) - 200 LOCS
sARE LOADED WITH THIS PATTERN
$i0888048042088800088484888488088080280880080800808008¢408004804438
LDBUF1: MOV
DBUFP,R3
1GET BUFFER ADRS
MoV
R3,RS
$SAVE IN RS
ADD
#620,RS
sPOINT TO END OF BUFFER
1¢:
MOV
#177776,R4
1SET UP FLOATING ZERO PATRN
24:
MOV
R4,(R3).
sLOAD IT (FLOATING 0)
CLR
(R3).
1 ZERO NEXT
COM
R4
$SET UP FLOATING 1
MoV
R4,(R3)»
sLOAD I7
CLR
(R3).
s+ZERO NEXT
CMP
R5,R3
4200 LOCS DONE?
BNE
3
;BR IF NOT
RTS
PC
;GET OUT

7584

7600
7601
7602
7603
;ggg

'DBUF'

WITH A UNIQUE FLOATING ZERO/ONE PATTERN

4(177776,0,1,0,177775,0,2,0,177773,0.4,0,177767,0,10,0 E€TC.)

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

CcoM
ASL
INC
8CC
BR

R4
R4
R4
1

:BACK TO FLOATING ZERO
sSHIFT LEFT
IKEEP LSB SET
$GO RESET FLOATING PATRN

1GO FLOAT NEXT PATRN

7606

11068888480008888888848088888048888882888080080880804000000042848844

7607
7608

s THIS ROUTINE CHECKS 200 LOCATIONS IN “DBUF“ FOR GOOD TRANSFERED
sOATA (#177377) ON 'DATO’ TRANSFERS - IF AN ERROR IS DETECTED

7610

$1368088888480888488888084888808880080800088000840888088800808400048

7609

s;THE RETURN IS TO CALL +2 - IF NO ERROR THE RETURN IS TO CALL +4

SEQ 0037

MAINOEC-11-CVDRA-C DRV11B DMA INTERFACE DIAGNOSTIC
FACY11 30(1046)
07-MAY-8S5 09:22
PROGRAM SUBROUTINES

CVDRAC.P11

7611
010444
7612
010450
7613
010454
7614
010456
7615
010464
7616
010470
7617
010474
7618
010476
7619
010502
7620
010504
7621
010510
7622
7623
7624
7625
7626
7627
7628
7629
7630
010512
7631
010514
7632
010520
7633
010524
7634
010526
7635
010530
7636
010532
7637
010534
7638
010536
7639
010542
7640
010544
7641
010550
7642
010552
7643
010556
7644
010562
7645
010566
7646
010574
7647
010576
7648
010600
7649
010602
7650
010604
7651
010606
7652
010610
7653
010612
7654

012701
022721
001410
013737
014137
010137
000207
022701
001362
062716
000207

015364
17731
001526
001126
001120

CKDAT:
14

001122

016204

24:

000002

MOV

cHpP

BEQ
MOV
MoV
MOV
RYS
cnp
BNE
ADD
RTS

#0BUF ,R1

0177377,(R1).
29

DRVDBR, $BDADR
-(R1), 4BDDAT

R1,$GDADR
PC

#0BUF +620,R1
1$
#2,(SP)

O07-MAY-85

09:37

PAGE 63-2

SEQ 0038

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

150008688440480844048040884848008080008080888088

8008080088080000844

1 THIS ROUTINE CHECK 200 LOCATIONS IN ‘DBUF’ FOR GOOD TRANSFERED
iDATA (177776,177776,1,1,177775,177775,2,2,177773,177773,E1C.)
1ON MAINT MODE TRANSFERS - THE NUMBER OF CHECKS REQUIRED IS INDICATED
1BY THE CALL +2 - IF AN ERROR IS DETECTED THE RETURN IS TO CALL +4 ;IF NO ERROR THE RETURN IS TO CALL +10
012500
013702
012701
005003
020122
001010
020122
001006
162700
003015
062705
000205
014237
010237
010137
013737
000205
005101
005103
001351
006301
005201
103343
000745

118868088808 08008040000408488084488000480000

CKDAT1:

001542
177776

14:
24:

MOV
MOV
MoV
CLR
cHpP
BNE

000002
000004

001126
001120
001124
001526

3s:

- MOV

001122
4% :

CoM

(RS)+,q0
0BUFP,R2
#177776,R1
R3
R1,(R2).
34
R1,(R2).
34
#2,.R0O
43
#RS
RS

-(R2), $BDDAT

R2 ., $GDADR
R1,$GDDAT
DRVOBR, $BDADR
RS
R1
R3

R1
R1
13

08884880884888800808848004

1GET & OF CHECKS
:GET BUFFER ADRS
1SET UP FLOATING ZERO PATRN
1IR3 SAYS WHEN TO SHIFT PATRN

;DATA 0K?

1BR IF NOT
;DATA WRITTEN OK?
sBR IF NOT
tACCOUNT FOR TWO ADRS'S
:BR IF MORE
sADJUST FOR GOOD RETURN
1EXIT
1GET BAD DATA
:1GET MEM ADRS
sLO EXPECTED DATA
sSET UP DBR ADRS
tRETURN TO ERROR
stNOW EXPECT COMPLEMENT
sTIME TO SHIFT?
:1BR IF NOT
sSHIFT LEFT
sKEEP LSB SET
3GO RESET FLOATING PATRN
100 NEXT

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

CVDRAC.P11
7656
7657
7658
7659
7660
7661
7662
7663
7664
7665
7666

.SBTTL
.SBTTL

1692

7693
7694
7695
7696
7697
7698
7699
7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
711

09:37

PAGE 64
SEQ 0039

SYSMAC ROUTINES

TYPE ROUTINE

1180008804884080408488880000808000000880068804808000080800808000800008

1*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
1sTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

7667

7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682
7683
7684
7685
7686
7687
7688
7689
7690
7691

07-MAY-85

.oWTEl:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

$1eNOTEZ2:

.OMJTES:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

soCALL:

1¢1) USING A TRAP INSTRUCTION

;¢0R

TYPE

MESADR

1 sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR

010614
010620
010622
010624
010626
010630
010634
010642
010644
010652
010654
010660
010664
010666
010674
010676
010700
010702
010704
010706
010712
010714
010720
010722
010726
010730
010732
010736
010742
010744
010750
010754
010756

105737

100002
000000
000430
010046
017600

122737
001011

132737

001405
010037
004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
003726
104401
105037
000755
004737
123726
001350
013746

$TYPE

001157

1¢:

000002
000001

001214

000100

001215

010664
011156

000040

001215

18718

BPL
HALT

B8R

MOV
MOV
CHP8
BNE
8178

B8EQ

61¢:
624:

$TPFLG

RO, -(SP)
s sSAVE RO
82(SP),RO
$3GET ADDRESS OF ASCIZ STRING
SAPTENYV, $ENV
$ sRUNNING IN APT MODE
624
$:NO,GO CHECK FOR APT CONSOLE
SAPTSPOOL
, $ENVM 31SPOOL MESSAGE TO APT

624

MoV
JSR
.WORD
8ITe
BNE

RO,61¢
PC,SATYS
0
SAPTCSUP, $ENVM
604

2s:

MOVve
BNE

000002

60¢:
3

(SP)+,R0O
02,(SP)

000011

4% :

MOV
ADD
RTI
crP8
BEQ

000200
001171
011144
011026
001156

001154

S¢:
64:

TS7T

CHPB
BNE
TST
TYPE
CLR8
B8R
JSR
CMPB
BNE
MOV

13IS THERE A TERMINAL?

ssBR IF YES
s sHALT HERE IF NO TERMINAL
s sLEAVE

(RO)e+,-(SP)

(SP)«

T, (SP)
.1
®CRLF,(SP)
1)
(SP).
+ $CRLF
S$CHARCNT

PC.S$TYPEC
SFILLC,(SP).
24
SNULL, -(SP)

31 sND,GO CHECK FOR CONSOLE
$1SETUP MESSAGE ADDRESS FOR APT
1:SPOOL MESSAGE TO APTY
s sMESSAGE ADDRESS
s 1APT CONSOLE SUPPRESSED
11 YES,SKIP TYPE OUT
13PUSH CHARACTER TO BE TYPED ONTO STACK
$3BR IF IT ISN'T THE TERMINATOR
$3IF TERMINATOR POP IT OFF THE STACK
1 sRESTORE RO
1 1ADJUST RETURN PC
1 sRETURN

1 :BRANCH IF <MT»

1 $BRANCH IF NOT <CRLF>
$3POP <CR><LF> EQUIV
$3TYPE A CR AND LF
s sCLEAR CHARACTER COUNT
1:GET NEXT CHARACTER
51G0 TYPE THIS CHARACTER
$3IS IT TIME FOR FILLER CHARS.?
$3IF NO GO GET NEXT CHAR.
$3GET @ OF FIL.ER CHARS. NEEDED

MAINOEC-11 CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC .P11
712
7713
7714
771S
7716

;;1;
1

010762
010766
010770
010774

011000

07-MAY -85 09:22
105366
002770
004737
105337

000770

MACY11

TYPE ROUTINE

000001

7s:

011026
011144

DECB
BLT
JSR
DECB

1(SP)
69
PC,TYPEC
$CHARCNT

B8R

7719

tHORIZONTAL

30(1046)

O7-MAY-8S

09:37

PAGE 64-1

SEQ 0040

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

NO--GO POP THE NULL

13G0 TYPE A NULL
$:00 NOT

11 LOOP

COUNT

OFF

STACK

AS A COUNT

TAB PROCESSOR

7720

7721

011002

7723
7724
7725
7726
7727
7728
7729
77
7731

011012
011020
011022
011024
011025
O1:vi01ivi.
01:07
011040

7733
7734
7735
773

011050
011052
011052
011056

001012

105777
10037S

170066

7738
7739
7740

011064
011070
011074

042716
122716
001366

177600
000021

011076
011100
011100
011104
011106
011114
011122
011124

005726

7722

7732

7737

7741

7742
7743
7744
7745
7746
7747
7748
7749

7750
7751
7752

7753

7754
7755
7756
757
7758

011006

011044

011060

011076

011130
011132
011140

011142

011144
011146

112716

0C0040

132737
001372
005726
000724

000007

105777
100022
017746
042716

170112

004737

011026

8s:

011144

MOV8

,(SP)

1 sREPLACE TAB WITH SPACE

JSR

PC.S$TYPEC

1518
8PL
MOV
BIC

@8 TKS
10$
88TKB, -(SP)
177600, (SP)

1 sCHAR IN KYBD BUFFER?
1:BR IF NOT
1 1GET CHAR
1 STRIP EXTRANEOUS BITS

BNE

1024

::BR IF NOT

8ITB
BNE
187
BR

7, 3CHARCNT
93
(SP)e
24

13 TYPE A SPACE

; sBRANCH IF NOT AT
::TAB STOP
; :POP SPACE OFF STACK
1 sGET NEXT CHARACTER

$TYPEC:

122716

170106
177600

000023

CcMPB

@S$XOFF ,{SP)

:MJD001
sMJD001
;MJD001
;MJD001

1 :WAS CHAR XOFF

sMJD001
;MJD001
:MJD001
:MJD001
;MJD001

101s:

117716

170062

1578
8PL

98 TKS
1019

;s WAIT FOR CHAR

BIC
cHPB
BNE

#177600, (SP)
#$XON, (SP)
101

;:STRIP IT
; 1WAS IT XON?
;;BR IF NOT

MOVB

1028 :

937TK8B, (SP)

: sGET CHAR

;MJD001

TST

(SP).

;sFIX STACK

1578

98TPS

; sWAIT

8PL
MOVB
cHPB
BNE
CLRB

104
2(SP),981P8
®CR,2(SP)
1
$CHARCNT

; ;LOAD CHAR TO BE TYPED INTO DATA REG.
::I1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH IF NO
; : YES- -CLEAR CHARACTER COUNT

;MJD001
:MJD001
:MJD001

:MJD0O1

;MJD001
:MJD0O1

108:
105777

100375
116677
122766
001003
105037

000406
122766
001402

170044

000002
000015

170036
000002

011144

000012

000002

105227

1%:

B8R
cHMP8

000000
000207

$TYPEX

BEQ

INCB

.SBTTL

APT

UNTIL

PRINTER

IS READY

;MJDOO01

#LF,2(5P)

s EXIT
;3
IS CHARACTER A LINE FEED?

(PC)e.

: ;COUNT THE CHARACTER

$TYPEX

$CHARCNT:
. WORD
$TYPEX: RTS

7759

O
PC

: ;BRANCH IF

YES

; iCHARACTER COUNT

STORAGE

COMMUNICATIONS ROUTINE

;8808888038848 8208828840004408028204008080440050808008800308408800803

7760

011150

112737

7762

011164

(J0403

7761

9s:

011156

7763

011166

7764
7765
7766

011174
011174
011176

7767

011200

*12737

112737

000001
000001

000001

011414

011412
011414

$ATYi:

MOVB

#1,8FFLG

SATYC

#1,$MFLG

i ; TO REPORT FATAL ERROR

$ATY3:

MOVB

;:T0 TYPE A MESSAGE

SATY4:

MOVB

1,8FFLG

;:
70 ONLY

MOV
MOV
1578

RO, -(SP)
R1,-(SP)
IMFLG

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

REPORT

FATAL

ERROR

SATYC:
010046
010146
105737

011412

MAINOEC-11-CVORA-C DRV118 DMA

CVORAC P11l
7768

7769
7770
7mn

7772
77713

1774
1778
1776
12844
7778
7779
7780
7781
1782

7783

7784
7788
7786
1787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798
779

7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812

7813
7814

7815
7816
7817
7818
7819

820
7821
7822
7823

011204
011206
011214
011216
011224
011226
011232
011240
011244
011246
011252
011254
011256
011262
011264

¢ 11270
011276
011300
011306
011314
011320
011324
011326
011326
011332
011334
011340
011342
011346
011350
011356
011364
011370
011374
011400
011404
011406
011410
011412
011413
011414

Q7-MAY -85 09:22
001450
122737
001031
132737
001425
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

INTERFACE DIAGNOSTIC
MACY11 30(1046)
APT COMMUNICATIONS ROUTINE

000001

001214

000100

001215

8EQ

CHMPB

000004

000002
001174

000004

1%:

001210

2%:
001210
001212
000004

001174

000004
000002

011324
000004

177776

33:

010614

43 :

Ss:
104

011414
001214
001174

000004
000002
001174

011414
011413
011412

11%:
001176
000004

12¢%:

QAPTENV, SENV

O7-MAY-8S

09:37

PAGE 64-2

SEQ 0041

$1IF NOT:

1 sOPERATING UNDER APT?

BNE
8IT8
BEQ
MOV
ADD

39
;3
IF NOT:
B8R
QAPTSPO
, SENVM
OL ; ; SHOULD SPOOL MESSAGES?
3
s1IF NOT:
BR
84(SP),RO
15GET MESSAGE ADDR.
42.4(5P)
: 1BUMP RETURN ADDR.

BNE
MOV
1S78
BNE
sus

1
RO, $MSGAD
(RO).
29
$MSGAD ,RO

1S7T

$MSGTYPE

ASR

MOV
MOV

RO, $MSGLGT
&4, $MSGTYPE

B8R
401"

ADO
MOV

S
S4(SP),As

02 ,4(SP)
177776, -(SP)

JSR

PC.ITYPE

.WORD

ST
8EQ
TST
BEQ
TST
BNE
MoV
ADD
INC

$FFLG
12%
SENV
12¢
$MSGTYPE
114
84(SP) , SFATAL
2 .4(SP)
$MSGTYPE

CLR8
CLRB

SLFLG
SMFLG

CLRB

$FFLG

$3SEE IF DONE M/ LAST XMISSION?

s:IF NOT:
WAIT
::PUT ADDR IN MAT_BOX
ssFIND END OF MESSAGE

1:SUB START OF MESSAGE

;:GET MESSAGE LNGTH IN WORDS

;:PUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

s:PUT MSG ADDR IN JSR LINKAGE
1 :8UMP RETURN ADDRESS
s sPUSH 177776 ON STACK

; sCALL

TYPE MACRQ

;s SHOULD REPORT FATAL ERROR?
;s
IF NOT:
BR
; ;sRUNNING UNDER APT?
ssIF NOT:
BR
s sFINISHED LAST MESSAGE?
:sIF NOT:
WAIT
s;GET ERROR ¢
; ;BUMP OETURN ADDR.
;s TELL APT TO
AXE ERROR

:;CLEAR FATAL FLAG

:;CLEAR LOG FLAG
; ;sCLEAR MESSAGE FLAG

MOV
(SP).,R1
;:POP STACK INTO R1
MOV
(sP).,RO
s;POP STACK INTO RO
RTS
PC
; sRETURN
$MFLG:
.BYTE
O
; sMESSG. FLAG
SLFLG:
.BYTE
O
:;L0G FLAG
$FFLG:
.BYTE
O
::FATAL FLAG
.EVEN
APTSIZE=-200
APTENV=001
APTSPOOL =100
APTCSUP=040
.SBTTL
BINARY TO OCTAL (ASCII) AND TYPE

;1080088000080 00048000000880080080000480840888000300480808480804080¢

s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;#0CTAL (ASCII) NUMBER AND TYPE 1T,
;88TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF GIGITS TO TYPE
:
ssCALL
is
MOV
NUM, -(SP)
; sNUMBER TO BE TYPED

TYPOS

.BYTE

; sCALL FOR TYPEOUT

::N=1 TO 6 FOR NUMBER 0OF DIGITS TO TYPE

MAINODEC-11-CVORA-C DRV11B OMA

CVvDRAC.P1L
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
70843
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
78177
7878

——

7879

07-MAY -85 09:22

INTERFACE DIAGNOSTIC

MACY11

30(1046)

O07-MAY-85

BINARY TO OCTAL (ASCII) AND TYPE
se

.BYTE

;1M1

OR O
1:1=TYPE LEADING ZEROS
+ ;0=SUPPRESS LEADING ZEROS

]
L)

1#3TYPON ---ENTER HERE
;#3TYPOS OR $TYPOC

;oCALL:

PAGE 64-3

SEQ 0042

09:37

MOV

TYPON

TYPE

NUM, -(SP)

OUT

WITH

THE

SAME PARAMETERS

THE

: s NUMBER TO BE TYPED

::CALL

FuR

TrPeoOuT

;#3TYPOC---ENTER HERE

;oCALL:

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

MOV

$TYPOC:

Mov8
MOve
ADD
BR
MOVB

$TYPON:

011643

1%:
2%:

34:

177770

000060
000040
011636
011636
011640

Move

43 :

Ss:

7%:

8(SP), -(SP)

1(SP), $OFILL
(SP)+,$0M00E~-1
®2,(5P)
$TYPON
€1,80FILL

6, 3$0M0DE -1

NEG
ADD
MOV
Move
MOV
CLR
ROL

R4
# R4
R4, $OMODE
$OFILL ,R4
12(SP).RS
R3
RS

ROL
ROL
ROL
MOV

R5
RS
RS
RS,R3

ROL
DECB
8PL
8IC
BNE
TST
BEQ
INC
8IS
8IS
MOV8

TYPE
DECB
8GT
BLY
INC
8R

$OMODE »1 ,R4

R3
$0MODE
73
#177770,R3
43
R4
S
R4
¢ 0,R3

¢ ,R3
R3,8

.84
$OCNT
24
6
R4
28

16 BIT

NUMBER

; sNUMBER T0 BE TYPED

+:CALL

95, $OCNT
R3,-(SP)
R4, -(SP)
RS, -(SP)

B8R

TYPEOUT

NUM, -(SP)

MOVB
MOV
MoV
MOV

HMove

000006
011642
011641
000012

011642

TYPOC

$TYPOS:

011641

011641
011643
011640

MOV

FOR

5:PICKUP

TYPEOUT

THE MOOE

::LOAD ZERQ FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
1 sADJUST RETURN ADDRESS
:3SET THE ZERO FILL

SWITCH

:sSET FOR SIX(6) DIGITS

::SET THE ITERATION COUNT
; s SAVE R3
::SAVE R4
:: SAVE RS

::GET THE NUMBER OF DIGITS TO TYPE
: sSUBTRACT IT FOR MAX.

;::SAVE IT FOR USE

ALLOWED

::GET THE ZERO FILL SWITCH
; :PICKUP THE INPUT NUMBER
: ;CLEAR THE OUTPUT WORD
;: sROTATE MSB INTQ *“C*

;:GO 00 MS8

: ;FORM THMIS DIGIT

;:6GET LSB OF THIS DIGIT
:; TYPE THIS DIGIT?
;::BR IF NO
;:GET RID OF JUNK
;:TEST FOR O
; s SUPPRESS THIS 0?
;:BR IF YES

;:00N'T SUPPRESS ANYMORE 0°S
: ;MAKE THIS DIGIT ASCII
s sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

::G0 TYPE THIS DIGIT
; ;COUNT BY 1
;:BR IF MORE TO DO
::8R IF DONE
; s INSURE LAST DIGIT ISN'T A BLANK
::6G0 DO THE LAST DIGIT

LAST

MAINOEC-11-CVORA-C DRV118B DMA

CVORAC P11
7880
7881
7882
7883
7884
7885
7886
7887
7838
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926

7927
7928
7929
7930
7931
7932
7933
7934
7935

011616

011620
011622
011624
011632
011634
011636
011637
011640
011641
011642

07-MAY -85 09:22
012605
012604
012603

016666
012616
000002
000
000
000
000
000000

INTERFACE DIAGNOSTIC

64:

000002

MACY11l

30(1046)

BINARY TO OCTAL (ASCII) AND TYPE

000004

83:
$OCNT:
$OFILL:
$OMODE
:

.SBTTL

MOV
MoV
MoV
MOV
MoV
RTI
.BYTE
.BYTE
.BYTE
.BYTE
. WORD
CONVERT

O7-MAY-85

09:37

PAGE 64-4

SEQ 0043

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

s sRESTORE
; ;RESTORE
; sRESTORE
3:SET THE

RS
R4
R3
STACK FOR RETURNING

0
0
0

;:STORAGE FOR ASCII 01GIT
;1 : TERMINATOR FOR TYPE ROUTINE
1 ;0CTAL DIGIT COUNTER

: s RETURN

0
;3 ZERO FILL SWITCH
0
; sNUMBER OF DIGITS TO TYPE
BINARY TO DECIMAL AND TYPE ROUTINE

110088888088 08888880800808000080000080000008442888880880000880480804

18THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
s#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
i#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

soCALL:

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

011736
011740
011742
011744
011746
011754
011760
011764
011766
011770

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002

20200
000020

000055

000001

18:

012060
000040

2%:

012050

MOV

NUM, -(SP)

:sPUT THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

MOV
MOV
0}
MOV
MOV
MOV
MOV
BPL
NEG
2 (0]Y]:]
CLR
MOV
MOvVB
CLR

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS, -(SP)
92020
- (SP)
0,
20(SP).,RS
1
RS
& -,1(SP)
RO
O$DBLK ,R3
¢ L(R3).
R2
$OTBL(RO),.R1
R1,RS

;sPUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
; sPUSH R3 ON STACK
: :PUSH RS ON STACK
;sSET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
;;BR IF INPUT IS POS.
i sMAKE THE BINARY NUMBER POS.
i ;MAKE THE ASCII NUMBER NEG.
: : ZERO THE CONSTANTS INDEX
;s SETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
; sCLEAR THE B8CD NUMBER
:sGET THE CONSTANT
: ;FORM THIS BCD DIGIT
;i8R IF DONE
: s INCREASE THE BCD DIGIT BY 1

TYPDS

MOV

3s:

4% :

106316

S$:

052702

000001
N00060
000040

005720
020027

000010

110223

SPACES.

$TYPDS:

105716
100407

103003
116663
052702

WITH

177N

64:
7%:

sus
BLT
INC
BR

ADD

TST
BNE
TSTB
BMI
ASLB
B8CC
MOVB
8IS
BIS
MOVe
ST

CMP

; ; ADD BACK THE CONSTANT
; ;CHECK IF BCD DIGIT=0
;3FALL THROUGH IF O
;:STILL DOING LEADING 0'S?
;:BR IF YES
;:MSD?
1(SP), -1(R3)

¢ 0,R2
® ,R2
R2,(R3).

(RO)

RO, %10

::BR IF NO

;s YES--SET THE SIGN
:sMAKE THE BCD DIGIT ASCII
;sMAKE IT A SPACE IF NOT ALREADY A DIGIT
; :PUT THIS CHARACTER IN THE OUTPUT BUFFER
; : JUST INCREMENTING
;s CHECK THE TABLE INDEX

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVDRAC.P11
7936
7937
7938
7939
7940
7941
7942
7943
7944
7945
7946
7947
7948

7949
7950
7951
7952
7953
7954
7955
7956
7957
7958

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

07-MAY-85 09:22
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600

104401
016666
012616
000002
023420
001750
000144
000012
000004

8.
177777

177776
9s:

012060
000002

000004

$OTBL:

$0BLK:
.SBTTL

7959
7960

7961
7962
7963
7964
7965
7966
7967
7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7978
7979
7980

BLT
24
8GT
8s
MOV
R5,R2
BR
63
1518
(SP).
8PL
9
MOVB
-1(SP),-2(R3)
CLRB
(R3)
MoV
(SP)+,RS
MOV
(SP)+,R3
MOV
(S5P)+,R2
MOV
(SP)+,R1
MOV
(SP)+,RO
TYPE
. $08BLK
MOV
2(SP),4(5P)
MOV
(SP).,(SP)
RTI
10000.
1000.
100.
10.
.BLKW
4
ERROR HANOLER ROUTINE

09:37

PAGE 64 S

SEQ 0044

+:GO DO THE NEXT DOIGIT
$:60 TO EXIT
3sGET THE LSO
: ;GO CHANGE TO ASCII
:sWAS THE LLSD THE FIRST NON-ZERO?
;:BR IF NO
$3YES-- T THE SIGN FOR TYPING
$:SET THE TERMINATOR
1:POP STACK INTO RS
1 :POP STACK INTO R3
1 :POP STACK INTO R2
:sPOP STACK INTO R1
i :POP STACK INTO RO

; sNOW TYPE THE NUMBER
: s ADJUST THE STACK
:sRETURN

,0 USER

$i8008004040058088400008820488844000000048888840400000000008000

408

012070
012070
012072
012074
012109
012102
012110
012116
012120

104407
104407
105237
001775
013777
032777
001402
104401

$ERROR:

001103

001102
002000

005237

7982
7983
7984

001112

012130
012134
012142

011637
162737
117737

001116
000002
166750

012150
012156
012160
012164
012170

032777
001004
004737
104401

012170
012176

122737
001007

7%:

167032
167022

001164

012124

7990
7991

O07-MAY-85

:#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROF 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:
;4SW15=1
HALT ON ERROR
;4SW13=1
INHIBIT ERROR TYPEOUTS
;8SW10=1
BELL ON ERROR
;#SW09=1
LOOP ON ERROR
;#CALL
i s
ERROR
N
; ;ERROR=EMT AND N=ERROR ITEM NUMBER

7981

7985
7986
7987
7988
7989

MACY11 30(1046)

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

020000

1¢:

001116
001114
166762

001214

INC

MOV
sus
MOVB

012260
001171
000001

CKSWR
CKSWR
INCB
BEQ
MOV
BIT
BEQ
TYPE

208
:

:; TEST FOR CHANGE IN SOFT-SWR
;GO0 LOOK FOR SWR CHANGE
$ERFLG
::SET THE ERROR FLAG
T4
::00N'T LET THE FLAG GO TO ZERO
$TSTNM,8DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,8S5KR
:;8ELL ON ERROR?
13
;sNO - SKIP
$BELL
; sRING BELL
$ERTTL

(SP), $ERRPC
82, $ERRPC
O$ERRPC, $ITEMB

81T
BNE
JSR
TYPE

#8IT13,8SKR
204
PC, SWRCK
«$CRLF

CMPB
BNE

QAPTENV, $ENV
2s

; ;COUNT

THE

NUMBER

ERRORS

:;GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF SET
: : SKIP TYPEOUTS
::GO0 TO USER ERROR ROUTINE

: ;RUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT

‘

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.P11
7992
7993

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

8009

012200
012206

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

07-MAY-85 09:22
113737
004737

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

001114
011166

012212

.BYTE
.BYTE
BR
TST
8PL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

22%:
24:

166716

166702

001110
001162

3s$:

4s:

001162

000002

07-MAY-85

09:37

PAGE 64-6

SEQ 0045

$ITEMB,21%
PC,$ATYA

13SET ITEM NUMBER AS ERROR NUMBER
1 sREPORT FATAL ERROR TO APT

#8IT09,8SWR
43
$LPERR,(SP)
$ESCAPE
5%
$ESCAPE, (SP)

:sAPT ERROR LOOP
i sHALT ON ERROR
s SKIP IF CONTINUE
1 sHALT ON ERROR!
1 : TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?
$3BR IF NO
i sFUDGE RETURN FOR LOOPING
+ sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
i sFUDGE RETURN ADDRESS FOR ESCAPE

0
O
224
OSWR
34

RTI

s sRETURN

FIS8EASR4040
80000440
440
00000 000
0 08008800
000
40000 00800040
080034
8

80.v
8011

;GO TYPE ERROR
;GO UPDATE SOFTWARE SWR IF

8012

8013
8014
8015
8016
801;
801

MOve
JSR

214

001000

MACY11 30(1046)

ERROR HANOLER ROUTINE

012260
012266
012272
012274

113737
004737
104407
000207

001102
012276

001534

‘CNTRL/G’

FiASAANRRSAEAEASS004A00400KA04E04RAA0A0004500004000000004000444

SWRCK:

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

.SBTTL

8019

(NN

8020
8021
:g?§
2
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041

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

8042
8043
8044
8045
8046
8047

012276
012276
012302
012304
012306
012312

104401
010046
005000
153700
001004

001171

012314

013746

001116

012320
012322
012324
012326
012330
012332
012334
012340
012344

104402
000426
005300
006300
006300
006300
062700
012037
001404

012346
012350
012352
012356
012362
012364

104401
000000
104401
012037
001404
104401

AAASA 0000044044000 0000000 0050800000800
00000048844

$ERRTYP:

001114

14:

001320
012350

001171
012366

24:
3:

TYPE
MOV
CLR
BIS8
BNE

. $CRLF
RO, -(SP)
RO
80$ITEMB,RO
13

MOV

$ERRPC, -(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ

64
RO
RO
RO
RO
#$ERRTB,RO
(RO)+,24
34

TYPE
.WORD
TYPE
MOV
8EQ
TYPE

O
+$CRLF
(RO)+,44
54

: s "CARRIAGE RETURN® & "LINE FEED"
:;SAVE RO
1;PICKUP THE ITEM INDEX

i:IF ITEM NUMBER IS ZERO, JUST
;:TYPE THE PC OF THE ERROR
1 sSAVE $ERRPC FOR TYPEOUT
; :ERROR ADDRESS
+:G0 TYPE--OCTAL ASCII(CALL DIGITS)
;sGET OUT
i sADJUST THE INDEX SO THAT IT WILL
i
WORK FOR THE ERROR TABLE
: sFORM TABLE POINTER
; ;PICKUP “ERROR MESSAGE* POINTER
i sSKIP TYPEOUT IF NO PGINTER

;: TYPE THE “ERROR MESSAGE*
i "ERROR MESSAGE* POINTER GJES HERE
i s "CARRIAGE RETURN” & “LINE FEED*
: :PICKUP "DATA HEADER* POINTER
; s SKIP TYPEOUT IF 0
;s TYPE THE "DATA HEADER"

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-HAY-85 09:22
ERROR MESSAGE TYPEOUT ROUTINE

CVDRAC P11
8048
8049
8050
80351
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
8062
8063
8064
8065
8066
8067
8068
8069
8070

012366
012370
012374
012376
012400
012402
012406
012415
012410
012412

012414
012416
012420
012424
012426

000000
104401
011000
001004
012600

104401
000207

013046
104402
005710
001770
104401
000771
020040
012432

001171

S$:
63:

001171

3081
8082

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

MOV
BNE
MOV

TYPE

;
$:

012426

000

8s:
.SBTTL

O
. $CRLF

09:37

PAGE 64-7
SEQ 0046

53 "DATA HEADER* POINTER GOES HERE
+ 3 "CARRIAGE RETURN" & "LINE FEED*

(RO),RO
74
(SP)+,R0

; :PICKUP “DATA TABLE" POINTER
::G0 TYPE THE DATA
s sRESTORE RO

« $CRLF

:: “CARRIAGE RETURN”

RTS

pPC

MOV
TYPOC

8(RO)+,-(SP)

TST
BEQ

s ;RETURN

(RO)
64

TYPE
84
BR
74
.ASCIZ
s
7
.EVEN
SCOPE HANDLER ROUTINE

"LINE FEED"

s SAVE 9(RO)+ FOR TYPEQUT
$3G0 TYPE--OCTAL ASCIICALL DIGITS)
:: IS THERE ANOTHER NUTMBER?
;:BR IF NO
s3TYPE TWO(2) SPACES
;:LOOP
+: TWO(2) SPACES

b
Lt
T T T
T
LT L T T YT YO T T oree

i#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT

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

;#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
i#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;8SW14=1
LOOP ON TEST
;eSHil=1
INHIBIT ITERATIONS
;#5W09=1
LOOP ON ERROR
;45W08=1
LOOP ON TEST IN SWR<S:0>

8071
8072
8073

8074
8075
8076
8077
8078
8079
8080

MORD
TYPE

O07-MAY-85

;#CALL

i
012432
012432
012434
012436
012444

001117

012446

000416

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

104407
104407

032777

013746
012737
005737
012637
000466
022626
012637
000426
032777
001407
017746
042716
122637
001465
105737
001421
123737

$SCOPE:

040000

166474

1s:

SCOPE

; : SCOPE=IOT

CKSWR
CKSWR

BIT

BNE

#8IT14,8SWR

;s TEST
FOR CHANGE IN SOFT-SWR
;GO LOOK FOR SWR CHANGE

:;LOOP ON PRESENT TEST?

$OVER

1:YES IF SWi14=1

3:IF RUNNING ON THE

;80000START OF CODE FOR THE XOR TESTEROO#8O

$XTSTR:
000004
012474
177060
000004

000004

S$:

000004

000400

MOV
MOV
TST
MOV
BR
cMP
MOV

B8R

166426

001103

81T

24:

001103

BOERRVEC,-(SP)
#5%,80ERRVEC
80177060
(SP)+ ,80ERRVEC
$SVLAD
(SP)+,(SP).
(SP)+,80ERRVEC

“XOR” TESTER CHANGE

$: THIS INSTRUCTION TO A "NOP” (NOP=240)

;;SAVE THE CONTENTS OF THE ERROR VECTOR
+:SET FOR TIMEOUT
;s TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
;360 TO THE NEXT TEST
1 sCLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR

;::LOOP ON THE PRESENT TEST

64:;00000END OF CODE FOR THE XOR TESTEROG00

166420
000300
001102

001115

BEQ
MOV
8IC
o (]
BEQ
TST8
BEQ
cMP8

981IT08,8S5uWR

2s
8SWR, -(SP)
94 SWRMK , (SP)
(SP)+,$TSTNM
$OVER
$ERFLG
33
$ERMAX , $ERFLG

;:LOOP ON SPEC.

TEST?

;:BR IF NO
s:SET DESIRED TEST NUM. FROM 35WR
: s STRIP AWAY UNDESIRED BITS
;:ON THE RIGHT TEST?
::BR IF YES
: :HAS AN ERROR OCCURRED?
::BR IF NO
:sMAX. ERRORS FOR THIS TEST OCCURRED?

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.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
8134
8135
8136
8137
8138
8139
8140
8141
8142
8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159

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

MACY11 30(1046)
SCOPE HANDLER ROUTINE

Q7-MAY-85 09:22
101015
032777
001404
013737
000446
105037
005037
000415
032777
00101%
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

001000
001110

166362
001106

001103
001160
004000

7%:
43 :

166330

001202
001104
001160

0000
/1
012720
001102
001102
001106
001110
001162
000001
001102
001106

001104
001104
001160
001200

001115
166230

1%:
$SVLAD:

$OVER:

$MXCNT:

.SBTTL

B8HI
BIT
BEQ
MOV

CLRB

CLR
BR
BIT
BNE

TST
BEQ
INC
cMP
8GE
MOV

MOV
INCB
MOVB
MOV

MOV
CLR
MOVB
MOV
MOV
RTI
2000.

43
$LPERR, $LPADR

$CVER
$ERFLG
$TIMES
1
#8IT11,8SKR
14

09:37

PAGE 64-8

SEQ 0047
:1BR IF NO

::LOOP ON ERROR?

::BR IF NO

s sSET LOOP ADDRESS TO LAST SCOPE

11 ZERO THE ERROR FLAG
: sCLEAR THE NUMBER OF ITERATIONS TO MAKE
s sESCAPE TO THE NEXT TEST
; ; INHIBIT ITERATIONS?
;38R IF YES
1 ; IF FIRST PASS OF PROGRAM

i
INHIBIT ITERATIONS
: s INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
3 sREINITIALIZE THE ITERATION COUNTER
$MXCNT, $TIMES
:sSET NUMBER OF ITERATIONS TO DO
$TSTNM
;s COUNT TEST NUMBERS
$TSTNM,$TESTN
$3SET TEST NUMBER IN APT MAILBOX
(SP),$LPADR
3 SAVE SCOPE LOOP ADDRESS
(SP),$LPERR
: :SAVE ERROR LOOP ADDRESS
$ESCAPE
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
21, $ERMAX
$3ONLY ALLOW ONEC1) ERROR ON NEXT TEST
$TSTNM,S0ISPLAY ; ;OISPLAY TEST NUMBER
$LPADR, (SP)
: ;FUDGE RETURN ADDRESS
;s FIXES PS
: sMAX. NUMBER OF ITERATIONS
$ICNT
$TIMES,
$ ICNT
$OVER
01,$ICNT

TTY INPUT ROUTINE

$i088888484400

.ENABL

34
#81IT709,8SKR

07-MAY-85

LSB

4050000804000 0804 0080004880048 000000080 08080000

040

PTE0SE
40040444RA
00440 00040040
EA
88480808
0A
80800000
AA
00080848
A
44

012722
012730
012732
012736
012740
012744
012750
012754
012756
012764

022737
001074
105777
100071
117746
042716
022726
001062
123727
001456

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

;sSOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;sROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
1#SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
i *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
#SUWREG,
SWR
;IS THE SOFT-SWR SELECTED?
BNE
15
1 iBRANCH IF NO
TST8
94 TKS
: sCHAR THERE?
BPL
15¢
s:IF NO, DON'T WAIT ARQUND
MOvVB
94TKB, -(SP)
: s SAVE THE CHAR
BIC
&tC177,(SP)
;:;STRIP-OFF THE ASCII
#7,(SP).
o
;:IS IT A CONTROL G?
BNE
15¢
;3sNO, RETURN TO USER
CMPB
$AUTOB,
&1
s ARE WE RUNNING IN AUTO-MODE?
8eQ
154
; ;BRANCH IF YES
$GTSWR:

19s:
7%:

TYPE
TYPE

MOV
TYPOC
TYPE

CLR

CLR
TST8

. $CNTLG
. $MSWR

SWREG, -(SP)

+ SMNEW

-(SP)
-(SP)

8$TKS

;;ECHO THE CONTROL-G (tG)
:s TYPE CURRENT CONTENTS
3 s SAVE SWREG FOR TYPEQUT
:3G0 TYPE--OCTAL ASCIICALL DIGITS)
; ;PROMPT FOR NEW SWR
: ;CLEAR COUNTER
:; THE NEW SWR
; ;CHAR THERE?

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

8160
8161
8162
8163
8164
8165
8166
8167
8168
8169
8170
sin
8172
8173
8174
8175
8176
8177
8178
8179
8180
8131
8182
8183
8184
8185
8136
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215

013020

100375

013022
013026

117746
042716

166120
177600

013032
013036
013040
013044
013050

021627
001005
104401
062706
000757

000025
013452
000006

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
001022

005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

000015

000001

000100

166022

SEQ 0048

$:IF NOT TRY AGAIN

MOve
8IC

947K8, -(SP)
#1C177,(SP)

s sMAKE IT 7-BIT ASCII

cMP
BNE
TYPE

(SP),#25
104

20%:

ADD

#6,5P
19%

+$CNTLU

B8R

rMp

(SP), @15
164
4(SP)
114
2(SP),8SWR
#6,5P

11%:

+ $CRLF

14%.

011026
000060

PAGE 64-9

000004
166044

09:37

ePL

10¢:

000002
000006
001171
001135

O07-MAY-85

$INTAG,#1

154

€100,94TKS

15%:
164:

PC,$TYPEC

000002
177776

17%:

001170

18%:

. $QUES

LTI T

I T

204

: ;BRANCH IF NOT
; ;RE-ENABLE TTY KBD INTERRUPTS

s s RETURN

s sECHO CHAR

;iCHAR > 77

LS8

;;RE-ENABLE TTY KBD INTERRUPTS?

(SP), 067

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

.DSABL

::IS IT A <CR>?
s ;BRANCH IF NO
33 YES, IS IT THE FIRST CHAR?
: ;BRANCH IF YES
$ s SAVE NEW SWR
s 3CLEAR UP STACK
;sECHO <CR> AND <LF>

s ;CHAR < 07

184
@60, (SP).
2(SP)
174

000060
000002

:sIS IT A CONTROL-U?
1 ;BRANCH IF NOT
:sYES, ECHO CONTROL-VU (tU)
: s IGNORE PREVIOQUS INPUT
$sLET'S TRY IT AGAIN

(5P), 060
184

000067

+sPICK UP CHAR

LTy Y

s sBRANCH IF YES

; sBRANCH IF YES
:sSTRIP-OFF ASCII
$:IS THIS THE FIRST CHAR
: $BRANCH IF YES
:sNO, SHIFT PRESENT
4
CHAR OVER TO MAKE
3
ROOM FOR NEW ONE.
; ;KEEP COUNT OF CHAR
1:SET IN NEW CHAR
;3GET THE NEXT ONE

:: TYPE

2<CR><LF>

; s SIMULATE CONTROL
-U

TITI I

I LY

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

;#CALL:

013204
013206
013214
013220

011646
016666

105777
100375

000004

165724

000002

$ROCHR:

1%:

RDCHR
RETURN HERE

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

MOV
MOV
1578
8PL

; ;PUSH DOWN THE PC
: s SAVE THE PS
;s WAIT FOR
; ;A CHARACTER

(SP),-(SP)
4(SP),2(sP)
838 TKS
1$

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

8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229
8230
8231
8232
8233
8234
8235
8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264

8265
8266
8267
8268
8269
8270

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

042766
000002

165720
177600

000004

000004
000004
000023

165672
165666
177600

000021

000004

000140

000004

000175

000040

000004

84TKB,4(SP)

cHpP

4(SP),#23

B8PL

BIC

2%:

000004

MOove

34:

4% :

BNE
TS78
MOve
8IC
cMP
BNE
BR
o, [
BEQ
cHP
BLT
cMP
8GT
81C
RTI

07-MAY-85

09:37

PAGE 64-10

SEQ 0049

;sREAD THE TTY
$;GET RID OF JUNK IF ANY
$3IS IT A CONTROL-S?
s sBRANCH IF NO
s sWAIT FOR A CHARACTER
:;LO0OP UNTIL ITS THERE
:+sGET CHARACTER
s sMAKE IT 7-BIT ASCII
$:IS IT A CONTROL-Q?
$sIF NOT DISCARD IT
;3 YES, RESUME
:3IS IT A RANDOM XON?
: sBRANCH IF YES
13IS IT UPPER CASE?
: sBRANCH IF YES
$3IS IT A SPECIAL CHAR?
: ;BRANCH IF YES
s sMAKE IT UPPER CASE
::GO BACK TO USEP

#tC<177> ,4(SP)

3
93 TKS

84TKB, -(SP)
#1C177.(SP)
(sP) ,e21
24
13
4(SP), #$XON
13
4(SP),#140
43
4(SP), 0175
43
940,4(SP)

;RANOO1
;RANOO1

Fi0sAAAEAA000440040044040440000000
0000080000004 00R0d000040004

;#THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;#CALL
:
ROLIN
i
i8
RETURN HERE

: s INPUT A STRING FROM THE TTY
: ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
: s TERMINATOR WILL BE A BYTE OF ALL 0'S

013334
013336
013342
013346
013350
013352

013354

010346
012703
022703
101405
104410
112613

122713

$SROLIN.
14:

013442
013452

2%:

10%:

001170

4% :

013360
013362
013366
013370
013374
013400
013404
013406
013412
013416
013420
013422
013430
013436
013440
013441
013442
013452
013457
013464
013472

001003
104401
000763
111337
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000
000
000010
052536
136
005015
020075

$TTYIN.S.
,R3
43

cMPB
BNE

0177,(R3)
33

BR
MOVB
TYPE

13
(R3),94
94

005015
006507
053523
000

000
000012
020122

013475

040

047040

053505

013440
013440
000015

3s:

TYPE

CHMPB

BNE
CLRB

1771
001172

(SP)+,(R3)

;sTYPE A

. $QUES

215, (R3).

$ sCHECK FOR RETURN
$sLOOP IF NOT RETURN
: sCLEAR RETURN (THE 15)
$sTYPE A LINE FEED
; sRESTORE R3
:sADJUST THE STACK AND PUT ADDRESS OF THE
HH
FIRST ASCII CHARACTER ON IT

2%
-1(R3)

$LF
(SP)+,R3
(sP),-(SP)
4(SP),2(SP)
Q$TTYIN,4(SP)

$TTYIN:
tINTLU:
$CNTLG:
$MSWR:

$MNEW:

.ASCIZ

94 :

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

NEW

' 2

;s sCLEAR THE BUFFER AND LOOP
; ;ECHO THE CHARACTER

TYPE
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BLKB
ASCIZ
.ASCIZ
.ASCIZ

000002
000004

: s SAVE R3
: ;GET ADDRESS
: sBUFFER FULL?
;38R IF YES
::G0 READ ONE CHARACTER FROM THE TTY
;s sGET CHARACTER
;3IS IT A RUBQUT
; :SKIP IF NOT

R3,-(SP)
$TTYIN,R3

cHMP
B8LOS

RDCHR
MOVB

000177

000004
013442

MOV
MOV

: s RETURN
:;STORAGE FOR ASCII CHAR. TO TYPE
: s TERMINATOR
; tRESERVE 8 BYTES FOR TTY INPUT
+ s CONTROL *“u*
=

; ;CONTROL

*“G*”

MAINDEC-11-CVORA C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11
8271
8272
8273
8274
8275
8276
8277
8278
8279
8280
8281
8282
8283
8284
8285
8286
8287
8288
8289
8290
8291
8292
8293
8294
8295
8296
8297
8298
8299

8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
o311
8312
8313
8314
8315
8316
8317
8318
8319
8320
8321
8322
8323
8324
8325

013502

MACY11 30(1046)
TTY INPUT ROUTINE

07-MAY-85 09:22
036440

O7-MAY-85

09:37

PAGE 64-11

SEQ 00S0

000040
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

§180808808880400048844004044000008000880000848480008440488848080088888

1sTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;#CHANGE IT TO BINARY,
s#THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
1¢0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?” WILL BE TYPED

:#FOLLOWED BY

CARRIAGE

:#THEN BE RETYPED.
;#CALL:

;8
i

RETURN-LINE

RDOCT
RETURN HERE

013506
013510
013516
013520
013522
013524
013526
013530
013534
013536
013540
013542
013544
013550
013552
013556
013560

013562

013564
013566
013570
013572
013574
013600
013602
013604
013606
013612
013616
013620
013622
013624
013626
013630
013632
013634
013636
013642
013644

011646
016666
010046
010146
010246
104411
012600
010037
005001
005002
112046
001420

122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726

010166
010237

012602
012601
012600
000002
005726
105010
104401
000000
104401
000730
000000

$RDOCT:
000004

000002

1s:

013634

24:
000060

000067

1777170

000012
013644

001170

S¢:

FEED.

CLR

MOvVe

BEQ
cMP8
8GT
o [ ]
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV
MOV
MOV
MOV
RTI
18T
CLRB
TYPE
.WORD
TYPE

B8R

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

(SP)+,RO
RO,S¢
R1
R2

(RO)+,-(SP)

34
#'0,(SP)
44
#7,(SP)
43
R1
R2
R1
R2
R1
R2
#C7,(SP)
(SP)+,R1
24
(SP).
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,RO
(SP)e
(RO)

O
. SQUES

COMPLETE

NUMBER MUST

;;READ AN OCTAL NUMBER
;3LON ORDER BITS ARE ON TOP OF
s 1HIGH

MOV
MOV
MOV
MOV
MOV
ROLIN
MOV
MOV
CLR

THE

THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

ORDER

BITS

ARE

$HIOCT

s sPROVIDE SPACE FOR THE
s s INPUT NUMBER
:;PUSH RO ON STACK
+;PUSH R1 ON STACK
s sPUSH R2 ON STACK
s sREAD AN ASCIZ LINE
3:GET ADDRESS OF 1ST CHARACTER
s sAND SAVE IT
: sCLEAR DATA WORD

::PICKUP THIS CHARACTER

ssIF ZERO GET OUT
3 sMAKE SURE THIS CHARACTER
+3IS AN OCTAL DIGIT

s382

1384
1108

1:STRIP THE ASCII JUNK
33ADD IN THIS OIGIT
;:LOOP
s sCLEAN TERMINATOR FROM STACK
ssSAVE THE RESWT
33POP STACK INTO R2
:sPOP STACK INTO R1
13sPOP STACK INTO RO
s sRETURN
s sCLEAN PARTIAL FROM STACK
s3SET A TERMINATOR
$:TYPE UP THRU THE BAD CHAR.
$3%?"

"CR” & "LF"~

1 TRY AGAIN

$HIOCT: .WORD
O
s sHIGH OROER BITS GO HERE
.SBTTL
POWER DOWN AND UP ROUTINES

THE STACK

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85 09:22
POWER DOWN AND UP ROUTINES

CVDRAC.P11

O07-MAY-85

09:37

PAGL 64-12

SEQ 0051

8326

8327
8328
8329
8330
8331
8332
8333
8334
8335
8336

8337

8338
8339
8340
8341
0342
8343
8344
8345
8346
8347
8348
8349
8350
8351
8352
8353
0354
8355
8356
8357

8358
8359

8360
8361
8362
8363
8364
8363
8366
8367

8368
8369
8370
83N
8372
8373
8374
8375
8376
8377

1580066004400004008000800400800608088008060880008008464008080000808008

013646
013554
013662
013664
013666
013670
013672
013674
013676
013702
013706
013714
013716

012737
012737
010046

010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

014012
000340

000024
000026

sPOWER DOWN ROUTINE

$PWRDN:

165236

014016
013720

000024

MOV
MoV
MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
HALT

S4ILLUP, OOPURVEC ;;SET FOR FAST WP
0340 ,90PHRVEC+2 ;;PRIO:7
RO, -(SP)
1:PUSH RO ON STACX

R1,.-(SP)

R2,-(SP)
R3,-(SP)
R4, -(SP)
RS, -(SP)
8SWR, -(SP)

SP,8SAVR6

SIPUH
, DOPURVEC
RUP

-2

$3PUSH R1 ON STACK

1:PUSH
s1PUSH
:1PUSH
13PUSH
$:1PUSH

R2 ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
8SWR ON STACK

s 3sSAVE SP

;;SET UP VECTOR

1 sHANG UP

11866804888084088048400088484880488004008040888080800808308088000880004

€13720
013726
013732
013736
013742
013744
013750
013752
013754
013756
013760

013762
013764
013772
014000
014002
014004
014006
014010
014012
014014
014016
014020
014026
014034
014042
014030

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
014020
012716
002372
000002
000000
000776
000000
005015
051101
051106
051127
000114

014012
014016
014016
014016

000024

165170

013646
000340

042522
042524
046517
043040

1POWER UP ROUTINE

$PWRUP: MOV
MoV
CLR
1s:
INC
BNE
MoV
MoV
MOV
MOV

000024
000026

052123
020104
050040
044501

OS$ILLUP, BOPURVEC ;;SET FOR FAST DOWN
$SAVRG .SP
:13GET SP
$SAVR6
ssWAIT LOOP FOR THE TTY
$SAVRE
ssWAIT FOR THE INC

1
(SP).,85WR
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,RO

$30F
$sPOP
:1POP
$:POP
13:POP
1:POP
1:POP
3sPOP

€340, ,00PWRVEC+2

;;PRIO:?7

#$PWRDN, OOPURVEC

WORD
STACK
STACK
STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO
INTO
INTO

@SMR
RS
R4
R3
R2
R1
RO

;;SET UP THE POWER DOWN VECTOR

$ iIREPORT THE POWER FAILURE

$PWRMG:

.WORD

PURMSG

1 sPOMER FAIL MESSAGE POINTER

$PWRAD:

.WORD

RESTRT

1 sRESTART ADDRESS

SILLUP:

HALT
.-2

$SAVR6:

(PC)+,(SP)

PWRMSG:

.ASCIZ

.EVEN
.SBTTL

TRAP DECODER

1 sRESTART AT RESTRTY

11 THE POWER UP SEQUENCE WAS STARTED

BEFORE THE POWER DOWN WAS COMPLETE

::PUT THE SP MHERE

<15><12>/RESTARTED FROM PWR FAIL/

1108008880000080088800464888400008000000008000084884884008088808488084

18THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP“ INSTRUCTION
1#AND USE IT TO INDEX THROUGH THE TRAP TABLE FON THE STARTING AODRESS

MAINOEC-11-CVORA-C ORV118 DMA INTERFACE DIAGNOSTIC
CVORAC .11
07-MAY-8S 09:22
TRAP DECODER
8378
8379

8380
8381
8382
8383
8384
838S
8386
8387
6388
8389
8390
8391
8392
8393
8394
8395
839
8397
8398
8399
8400
8401
8402
8403

8419
8421

8422
8423
8424
8425

8426

MACY11 30(1046)

O7-MAY-85

09:37

PAGE 64-13
SEQ 0052

180F THE DESIRED ROUTINE. THEN USING THE ADORESS OBTAINED IT WILL
3*G0 TO THAT ROUTINE.
014052
014054

014060

014062

014064
014066
014072

017046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

MOV

2(SP),RO

MOVE

(RO),.RO

TST

ASL
MoV
RTS

014106

RO, -(SP)

MoV

-(RO)

RO
$TRPAD(RO).RO
RO

1 sSAVE RO

11GET TRAP ADORESS

+ 1BACKUP BY 2

1sGET RIGHT BYTE OF TRAP

1 1POSITION FOR INDEXING
;;INDEX TO TABLE
11G0 TO ROUTINE

131 THIS IS USE TO MANDLE THE “GETPRI” MACRO
014074
014076
014104

011646
016666
000002

000004

000002

$TRAP2:

MOV

MOV
RTI

.SBTTL

(SP),-(SP)

4(SP),2(SP)

1 1MOVE THE PC DOWN

11MOVE THE PSW DOWN

1 sRESTORE THE PSW

TRAP TABLE

1#THIS TABLE CONTAINS THE STARTING ADORESSES OF THE ROUTINES CALLED
1#BY THE “TRAP” INSTRUCTION.
'

ROUTINE

eecee-a

$TRPAD:

.WORD
$STYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

S$TRAP2
43 CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPQS
;;CALL=TYPON
;;CALL=TYPDS

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

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

; ;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRAP+7(104407)

TEST FOR CHANGE IN SOFT-SWR

014106
014110
014112
014114
014116
014120

014074
010614
011442
011416
011456
011644

014122

012772

$GTSWR

014124
014126
014130
014132

012722
013204
013334
013506

SROCHR ; ; CALL =ROCHR
SROLIN
;;CALL=RDLIN
$ROOCT ; ; CALL=RDOCT

014134
014142
014150

042522
042515
051105

020107
052517
000

044524
020124

014153
014160
014166
014174

122
040505
052111
000

043505
027504
020105

014175
014202
014210

102
051505
000122

051525
052108

SCKSWR ; ; CALL =CKSWR

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

.SBTTL
EM1:

ASCII MESSAGES
.ASCIZ
/REG TIMEOUT ER/

051040
051127
051105

EM2:

.ASCIZ

‘'REG READ/MRITE ER'

051040
042440

Em3:

.ASCIZ

/BUS RESET ER/

MAINOEC-11-CVORA-C DRV118 OMA INTERFACE DIAGNOSTIC
07-MAY -85 09:22
ASCII MESSAGES

CVORAC.P1}
8427
8428

014212
014220
014226

8433
8434

8435
8437
8438

8439
8440

8441
8442

8443
8444
8445
3446

8447
8448
8449
8450

8451

8453
8454

8455
8456
8457

8458

O7-MAY-85

09:37

052103
020123
042105
042523
052101
000123

041040
040506
052040
020124
041040

€M

.ASCI2

/FNCT BITS FAILED TO SET STAT BITS/

042522
047111

.ASCIZ

/READY

052514

020131
043040
042522

EMS:

044501

042101
051124

014277
014304
014312
014320

122
041440
020122
051105

040505
051114
042523

054504
047440
020124

EM6:;

.ASCIZ

/READY CLR OR

SET ER/

014323
014330
014336
014344

123
020123
020116
000

040524
051105
043130

052524
047440
051105

EM7:

.ASCIZ

/STATUS ER ON

XFER/

014345
014352
014360
014366

047503
051105
043130

127

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

014422
014430
014436

040504
020122
046440

040524
051106
046505

042440
046517
000

EM12:

.ASCI2

/DATA ER FROM MEM/

014443
014450
014456

104
051105
042515

052101
052040
000115

020101
020117

EM13:

.ASC.Z

/DATA ER TO MEM/

014242
014250

014254
014262
014270
014276

000

PAGE 64-14

SEQ 0053

047106
052111
046111
020117
052123
052111

014234

8429
8430
8431

MACY11 30(1046)

INTR FAILURE/

ON XFER/

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11
8459
8460

8461
8462
8463
8464
8465
8466
8467

8468
8469
8470
8471
8472
8473

8474
8475
8476
8477
8478
8479
8480
8481

8482
8483
8484
8485
8486
8487
8488

Q7-MAY -85 09:22

ASCII MESSAGES

“ACY11

30(1046)

07-MAY-85

09:37

PAGE 64-:5

SEQ 0054

018462
014470
014476
014504
014512
014520
014526

044523
041440
047440
042111
046040
0S2517
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
000

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

WARN:

LASCII

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

020130
020103

047514
051105

.ASCIZ

/NEX LOGIC ER/

EM16:

“REV11~ MEMORY REFRESH OPTION/

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

CVDRAC P11
8489
8490
8491

8492
8493
8494
8495
8496

8497
8498
8499

8500
8501

8502
8503
8504
5505
8506
8507
8508

MACY11 30(1046)

O07-MAY-85

SEQ 005S

103
043040
020104
045514
024040

041531
044501
047524
042040
047111

042514
042514
041440
051102
000051

EML17:

.ASCIZ

/CYCLE FAILED

014770
014776
015004
015012
015020

040504
020122
044440
043501
051503

040524
051106
047457
020105
024522

042440

EM20:

.ASCIZ

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

015025
015032
015040
015046
015054
015062
015070

105

051122
052040
020115
042101
05C130
051040

041520
052123
041040
020122
052103
053103

DH1:

.ASCIZ

/ERRPC

TSTNUM

020040
052516
051525
042440
020040
000104

BUSADR

EXPCT

RCVD/

051105

ADRS

EXPCT

015072

046517
050040
054050
000

TO CLK

DBR

015100
015106
015114
015122
015130
015136
015144

050122

051524
020040
051104
051522
054105
020040
000

020103
047124
052502
020040
020040
041520
041522

DM:

.ASCIZ

/ERRPC

020040
046525
040523
042101
020040
020124
042126

TSTNUM

BUSADR

015147
015154
015162
015170

105
020040
052516
051525

051122
052040
020115

041520
052123
041040
000122

OH3:

.ASCIZ

/ERRPC

TSTNUM

BUSADR/

AS14

8517
8518
8519
8520

PAGE 64 16

014733
014740
014746
014754
014762

8509
8510
8511
8512
8513
2,15
8516

09:37

042101

(IN)/

RCvOD/

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
CVDRAC.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
8544
8545
8546
8547
8548
8549
8550

MACY11

30(1046)

O07-MAY-85

09:37

PAGE 64-17

SEQ 0056

015176
015204

001116
001124

001534
001126

001122
000000

OT1:

.EVEN
$ERRPC, TSTNUM, $BDADR, $GDDAT, $BDDAT,0

015212
015220
015226

001116
001120

001122
001126

DT2:

$ERRPC
$BDADR,
.TS
$GDADR, TNU
$GDDAT, $BDDAT,
M,
0

000000

001534
001124

015230
015236

001116
000000

001534

001122

0T3:

$ERRPC, TSTNUM, $BDADR, 0

015240
015246
015254
015262
015270

005015
042510
042503
045440
041055

051511
050040
051523
043104
020077

052040
047522
051117
030461
000040

KOF118:

.ASCIZ

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

015276
015304
015312
015320
015326

005015
043123
047506
020117
020077

051124
051105
020122

047101
020123

IOTEST:

.ASCIZ

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

015332
015340
015346
015354
015362

005015
051505
044440
043501
000

051104
043117
050040
020040

IOADR:

.ASCIZ

<15><12>\ADDRESS OF

040520
000040

042101
020123
047457
037505

027511
042507

015364

I/0 PAGE?

.EVEN
R

LY E 55488808804 888404508008848880804488480080800%88

808830008800008448

:'0BUF’ IS THE WOAAING AREA I' EACH 4K MEM FOR ALL
:NPR OPERATIONS - IT IS 200 WURDS LONG
015364

000000
000001

PiSEARRERL044000084800840400008888080400

OBUF:

O
.END

848408808000000008008040

:1ST ADRS OF DATA BUFFER

HAINOEC511~CVDRA

CVORAC.P11
ABASE =
ACON1
ACOM2 =
ACPUOP«
ADOWO ADOM1
ADOW10
-

172410
000000
000000
CCL000
000000
000000
000000
ADDW11- 000000
ADDW12= 000000
ADOW13= 000000
ADCW1A
= 000000
ADDW15= 000000
ADDW2
000000
ADOW3
000000
ADDWA
000000
ADDWS
000000
ADDW6
000000
ADDM7
000000
ADDWS
000000
ADOW9
000000
ADEVCT» 000000
ADEVM
000001
AENV
000000
AENVM
000000
AFATAL
= 0C0000
ALTERN
007436
AMADR]
= 000000
AHADR2= 000000
AMADR3= 000000
AMADR4
= 000000
AMAMS]
= 000000
AMAMS2
= 000000
AMAMSS
= 000000
AMAMSA= 000000
AMSGAD
= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000
AMTYP3» 000000
AMTYP4= 000000
APASS
000000
APTCSU= 000040
APTENV= 000001
APTSIZ= 000200
APTSPQ= 000100
ASWREG= 000000
ATESTN= 000000
AUNIT
000700
AUSWR
009000
AVECT1= 000124
AVECT2= 000000
8170
000001
BITOO = 000001
B8IT01
000002
BITO2 = 000004

C DRV118 DMA INTERFACE DIAGNOSTIC

07-MAY -85 09:22

6183¢
62180
6219¢
6204¢
62204
6221¢
62304
6231¢
6232¢
6233¢
62344
62354
6222¢
62234
62244
6225¢
6226¢
6227¢
6228¢
62294
6196¢
61864
62004
62014
6193¢
7365
62074

62104
6213¢
62160
6205¢
62084
6211
62144
6198¢
6199¢
6192¢
62064
62099
6212¢
6215¢
6195¢
7692
7685
6569
7687
6202¢
61944
6197¢
62034
61859
6217¢
61684
61586
6157¢
61569

MACY11

CROSS RECERENCE TABLE

30(1046)

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

74069

6362
6366
6369
6372
6356
6364
6367
6370
6342
6343
6336
6357
6365
6368
6371
6339

78138
7769
78104
7771

6347
6338
6341
6348
6373
6374
6168
6167
6166

78114

7990

78128

6698

6703

6762

O07-MAY-85

-- USER SYMBOLS

7550

09:37

PAGE 65

SEQ 0057

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
07-MAY-85
CVORAC.P1%
07-MAY-8S 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS

8IT03 = 000010
8IT04 = 000020
BiTOS = 000040
8IT06 = 000100
B8IT07 = 000200
8IT08 = 000400
8IT09 = 001000
BIT1
= 000002
BIT10 = 002000
8IT11 = 004000
8IT12 = 010000
BIT13 = 020000
BIT14 = 040000
8IT1S = 100000
8IT2
= 000004
BITS
= 000010
8IT4
= 000020
BITS
= 000040
B8IT6
= 000100
BIT7
= 000200
BIT8
= 000400
8IT9
= 001000
BPTVEC= 000014

CKDAT
CKDAT:
CKSTAT
CKSWR =
CORSZ
CORSZR
CR
=
CRLF
=
O8WF
DBUFP

010444
010512
010142
104407
001540
002270
000015
000200
015364

001542

DDISP =
DH1
DH2
DH3
DISPLA
DISPRE
DMAP
ORVBAR

177570
015025
015072
015147
001142
000174
001536
001522

DRVCSR

001524

ORVCTO
ORVCT2
ORVDBR

001530
001532
001526

6155¢
6154¢
6153¢
6152¢
6151¢
6150¢
6149¢
6167¢
61438¢
6147¢
6146¢
6145¢
61449
61430
6166¢

6165¢
6164¢
6163¢
61624
6161¢
6160¢
6159¢
6175¢
7098
7212
6958
6051¢
6525¢
6618
6083¢
6084¢
6526
7182

6165
6164
6163
6162
6161
6160
6159

7206

8081

7611¢
7311
7004
7973

6617
66234

7985

7353
7050
7974
6628+

7630¢
7088
8000
7325

7702
6946
7358
7323

6947
7399
73244

7194

7301

7343

7382

7424

75324

7014
7569
73582+

7016
7574
7369+

7039
7611
7399+

7059
7618
T411s

7076
8549¢

6446

6451

6457

6463

6764
7253

6902
7257

8015

8079

8080

6967
7325

6993
7565
7328

7747

6603
6630
7286

6315
6422
6475
6487
6557s
6565
6632«
6693
7076»
7553
6780
6864
6948+
70464
7149«
7234+
7331«
7419
6579
6584
6577

6519¢
6514¢

8105

6862

6090¢
6416
6469
6481
6315¢
6247¢
6524¢
6512¢
7039+
7549

6S13¢

SEQ 0058

7978

6630+

6862+
6929+
7045
7148+
7233
7297=
7417
6518¢

PAGE 65-1

8112

6526¢
7631

6614
8095
8001

09:37

6557

7441

6428
6504
8516¢

6434
8508¢

6440

65654

7977

8127+

66332
6696+
7113

6635
6697
7146+

7449«
67542
7182»

7458
6761
7227+

67841
68638
69494
7079«
7154
7238
7332
74208
6856+
7456%
6716

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

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

680S
68852
6954»
7083

6807+
6886
6995
70844
7186s
7267
7373s
75332
7521s

6809
68902
6996+
7107
7187
7271
7374»
7537

6735

6755+

6766

7185«
7263
7339
7532
7512+
7522+

7113

7146

7441

7548

7588

6493

6499

8501¢

69043s
72862

6905
73284

6910
73708

69462
7412+

6993«
74524

6818
6892

6836
6901s

6839+
69092

6857
6923+
7043
7140
7231
7296
74163

6925

6998
7115
7189
7275
7375

7000
7116+
7190s
7289
7377

70412
7123
7229
72908
7378«

6840
6914»
7042+
7124+
7230
7294
7415+

6768

6920

6922+

69242

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE DIAGNOSTIC

CVORAC.P11

07-MAY-85 09:22

6931

DRVWCR

DSWR
ot}

0712

0713

001520

= 177570
015176

015212

015230

EMTVEC= 000030

emM1

EM10
emil
EM12

EmM3

EMi4
EM15
EM16
EM1?
EM2

EM20
EM3
EM4
ENS
EM6

EM?7

014134

014345
014373
014422

014443

014462
014530
014716
014733
014153

014770
014175
014212
014254
014277

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
= 106427
NXDEV
007656
NXDEV1
007660
PIRQ
= 177772
PIRQVE= 000240
PRO
= 000000
PR1
= 000040
PR2
= 000100
PR3
= 000140
PR4
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSH
= 177776
PWRMSG
014027
PWRVEC= 000024

7438

65116
;gzgt

60898
6417

6969

7454s

6573

;é:gt

6314
6423

6470

6476

61784

6541«

6456
6462
6468

84460
8450¢
84544

6480
6486
6492
6498

84600
8467¢
84884
84910

6421

84219

6482

6415

6474

MACY11

CROSS REFERENCE TABLE

6488

8418¢

6972
7614

6643

7145¢

6556
6429

6505

8527¢

30(1046)

09:37

PAGE 65-2

SEQ 0059

6994+

7019

7061

7064

7077+

7372«

7393

7396

7414

7435

6656

6673

6676

667

6753+«

6757

6759

6945¢

6992s

7038e

7645

7183+

7184s

7226+

7246

7250

72878

7329s

7368s

7410s

6435

6441

6447

6452

6458

6464

6494

6500

8522¢

6655+

6666+

8086

8087+

8089+

38092

3834Ss

8357+

8358+

85244

65424

8457¢

6503
6427
6433
6439
6445

84964
84254
84284
8434¢
84384

61718
60500
6081¢
8539¢
65270
85344
61766
65280
8529¢
7037
7178
6082¢
60449
6187¢
7401
6637
60884
61824
61050
6106¢
6107¢
6108¢
61094
61100
6111¢
6112¢
6085¢
6086¢
8360
6177¢

6554
6598
7700

6555¢

6566+

6624+

6629%

7406

7411

7412

7434

7439

6539+

6540+

8330+

8339+

6450

O07-MAY-85

USER SYMBOLS

84429

7565¢
7285
7751
6613
7407
74486

7327

7588¢

74474
7459

6086
83674
65458

6546%

8329s

h
r MATAMALEA 06 AMIRRA A ANMMLIAANM AMLiA LTI
M A MS: S0G0 & .ooh o e e e

7451e

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

CVDRAC.P11

ROCHR = 104410
ROLIN = 104411
ROOCT = 104412
RESTRT
002372
RESVEC= 000010
RSTVEC
010116

SETUP2
SETUP3
SETVEC

002022
002052
010076

STACK = 001100
START
001550
START1
002012

STKLMT= 177774

SHWR

001140

SWRCK
012260
SWREG
000176
SWO
= 000001
SWO0
= 000001

SWO1
SW02

SW03
SWO4
SHOS

SW06
SWO07
SW08

SW09
SW1
SW10
SWii
SWi2
SW13
SWi4
SW15
SW2
SW3
Sk4

= 000002
= 000004

= 000010
= 0C0020
= 000040

= 000100
= 000200
= 000400

=
=
=
=
=
=
=
=
=
=
=

SWS
=
SW6
=
SW?
=
SW8
=
SW9
=
TBITVE=

TKVEC =
TMAIN =
TPVEC =
TRAP
=
TRAPVE=
TRTVEC=
TSTNUM
TST1

TST10
TST11

001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020

000040
000100
000200
000400
001000
000014
000060
177522
000064
104400
000034
000014
001534
002426
003426
003502

6052¢
60534
60540
6634
6172¢
6798
7442

65754
6582¢
6777
7511¢
6076¢
6250
6573¢
6087¢
63140
8081
7987
6248¢
61400
61304
6129¢
6128¢
61274
6126¢
6125¢
61244

6123¢

6122¢
61214
6139¢
61204
6119¢

PAGE 65-3

SEQ 0060

8246
8291

6636

66384

7460

8362

6876
75204
6578
6585
6941

6981

7028

7066

7100

7133

7169

7216

7277

7315

7359

7400

6988

7035

7073

7108

7141

7176

7224

7283

7321

7366

7408

6571
8141

6596
8178«

66142+
8337

8350+

7364

7978

7985

7997

8001

6537
65304
7494

6639

6535
8095
8013¢
6564

6556+
8097

6558
8105

6564+
8112

6596

8141

8154

8524

8527

6140
6139
6138
6137
6136
6135
6134
6133
6132
6131

61154

6117¢
6116¢
6.15¢
6138¢
6127¢
61364
6135¢
61344
61334
61324
61310
61734
6180¢
6188¢
6181¢
61844
6179¢
6174¢
6523¢
66484
6803¢
6811

09:37

65432

6544+

8013+

8522

6817¢

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC

CVORAC.P11

75712
TST13
TST14
TST1S
TST16
TST17
1572
75720
75721
TST22
TST23
TST24
1ST2S
75726
TST27
TST3
TST30
TST31
7574
TSTS
T576
TS77
TYPDS =
TYPE
=

003564
003662
004022
004124
004226
004342
002536
004572
005014
005222
005376
005552
005754
006212
006572
002634
006764
007210
002752
003050
003130
003256
104405
104401

TYPOC = 104402
TYPON = 104404
TYPQOS = 104403

WARN
$APTHD
SATYC
$ATY1

SATYS
$ATY4
$AUTOB
$BASE
$80ADR

$BDDAT

014567
001000
011174
011150

011156
011166
001134
001250
001122

001126

07-MAY-85 09:22

683440
6852¢
68814
6894
6919¢
6933
66714
6986¢
7033¢
7071
7105¢
7138¢
71740
72210
7281¢
66916
7319¢
73634
6707
67349
6744
6767
6049¢
6045¢
8047
8320
604€¢
6048¢
60474
6619
6274
7762
77604
7690
17636
63118
6375¢
63060
6857+
71878
75378
63088
6743
6823
6892+
7016+«

7161

$BELL
$COW1
$CON2
S$CHARC
SCKSWR
$CMTAG
$CNTLG

001164
001254
001256
011144
012722
001100
013457

7271
7436
63264
63774
6378¢
7706
81416
6294¢
8152

MACY11 3001046)

O7-MAY-85

CROSS REFERENCE TABLE -- USER SYMBOLS

09:37

PAGE 65-4

SEQ 0061

69004

69394

67140

67500
67744
7483
6590
8049
8322
8033

6619
8053
8359
8057

7481
8060

7484
8152

7705
8153

6716+
69519

6736+
6972+
72678
8522
6698+
6785+
6841s
6925+

7874
8156

7949
8169

7980
8180

6759

6764»

6768

8199

7988

8025
8250

8042
8253

8044
8257

67802
70644
73754

68054
70812
7396»

6819+

6836+
7140+

6739
6796+
6872+
6953+
7130
7253
7393s
8522

6740
6809
6873
69692
71444

6741
6810
6886+
6970
7151s

8155

84734
62804
77644

77614
7993
6600+
6574

8149

6658+
68383+«
7231+
7542¢
6654+
6757+
6824
6893
7017
7164¢
7273
7532+«
7980

6673+
6902+
7242«
7553+
6677+
6761s
6825«
6905+
7045
7166
7291
7535

6826
6906
7061s
7189+
7292
7540+

72578
7645+
6697+
6766+
6840s
6910+
7062
7233s
7296+
7549

7716
8412
6533
82674

7723

7749

77544

6693+
§920e
7250s
7614e
6678
6762+

7083
7238
7333«
7550

69908+
7275s
8524
6699
6786%
6842
6926
T111s
7240
7334«
7551

7019s
72944

8527
67204
6787
608642+
6931s

71204
72464+
7338
7615»

7043s
7336+

6721
6795s
6868+
6932

7123s
7248
1377
76422

7255
7394

8524

7107«
7417

7263s
7419

74382

67424«
6822+
6887

70004
71544
7265
7435

MAINDEC-11-CVORA-C DRV11B DMA INTERFACE DIAGNOSTIC
MACY11 30(1046)
O07-MAY-85
CVDRAC.P114
07-MAY -85 09:22
CROSS REFERENCE TABLE -- USER SYMBOLS
SCNTLU
$CPUOP
S$CRLF
$0BLK
$ODWO
$00W1
$0DW10
$0DW11
$00W12
$ODW13
$00W14
$00W1S
$00W2
$00N3
$00W4
$00WS
$00W6
$ODW7
$00W8
$00W9
$OEVCT
$DEVM
$D0AGN
$0TBL
$ENDAD

S$ENOCT
$ENOMG
SENLL
$ENV

$ENVM
$EOP
$EOPCT
$ERFLG
S$ERMAX
$ERROR
$ERRPC
$ERRTB
SERRTY
SERTTL
$ESCAP
SETABL
SETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

013452
001222
001171
012060
001260
001262
001304
001306
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

8169
6349¢
6328¢
7915
6379¢
63804
6389¢
6390¢
6391¢
6392¢
6393¢
6394¢
6381¢
6382¢
638360
63844
6385¢
63364
6387¢
63304
63408
63768
7477
7918
6260

7479¢
7481
7484

63456

$GET42

010032

7705
7949
6643«

6640«
6632
7486
79534
7488¢
74964
7495¢

6594

6967+
6653+«
6708+
6794+
6893
7015«

8522

8524

7485¢

PAGE 65-S
SEQ 0062

82669

6346%
7450
74768
62974
63034
6541
63048
6413¢
8014
63018
6325¢
63444
6286
6337¢
77608
6322¢
6321¢
6305¢
6307¢
6706
6787
6891+
6999s
7239¢
7392s

09:37

6569
7469¢
7480
797Ss
6549+«
7972¢
79828
8039
8024¢
7981
6548+
63974
7797s
7763¢
7709

7240
7394

7988
7957¢

8025

8044

8049

7685

7769

7793
7771

7990

8101
8103

8103
8126+

8109+

7983+

7984

8031

8004

8006

8125s

7791

7800+

78084

7014«
6675+
6718+
6806+
6903+
7017

7059s
6676
6719
6810
6906
7044+

7397+
6678
6721
6821s
6912s
7060
7254+
7436

8053

8180

8522

8524

8527

7439
66312
6724»
6826
6921+
7062
725S
7534+

7616+
6684+
6727+
6837
6922
7082+
7264+
7535

76434

7492¢

7687

7247+
7418+

7692

7248
74342

6685+
6720+
6842
6926
7122+
7265
7543+

8524
669Ss
6738+
6845+
6930s
7153«
7272s
75464

6696
6743

6858+
6932
7165
7273
7547

6699
6752+
6873
6952+
7166
7295+
75484

67022
6782+
6884+
6968+
7188+
7337
7551

6703s
6783+
6887
6970
7232
73764
7644+

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

CVORAC.P11
$GTSWR
$MIBTS
SMIOCT

$ICNT
s$ILLUP
$INTAG
$ITEMB
SLF
SLFLG
SLPADR
SLPERR
$MADR1

$MADR2
$MADRS3
$MADR4
SMAIL
$MAMS]
SMAMS2
$MAMS3
SMAMSA
$MBADR
SMFLG
$MNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR
MTYPL
IMTYP2
MTYP3
MTYP4
$MXCNT
INULL
$OCNT
$OMODE
SOVER
$PASS

SPASTM
SPWRAD

$PWRDN
SPURMG
$PURLP
$QUES
SROCHR
SROLIN
$RDOCT
SRTNAD

$SAVR6
$SCOPE
ISETUP$STUP »
$SVLAD
$SVPC «
ISR
=
$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
1777177
012650
000106
167400
001216
000300

8153¢

6281¢
8313
6298¢
8329
6312¢
6302¢
6329¢
78014
6299¢
6300¢
6362¢
63664
6369¢
6372¢
6282
63564
6364¢
63674
6370¢
6282¢
7761+
8156
63429
6343¢
63366
8153
6357¢
6365¢
636084
6371¢
8120
63204
7846+
7841s
8082
6339¢
6284¢
8362¢
6545
8360¢
8339
6327¢
8212¢
8242¢
82864
74949
8338«
6539
6024¢
60240
8090
6258¢
6058¢
6347¢
6060¢

09:37

PAGE 65-6

SEQ 0063

8410

83249
8116+
8345
8181
79842
8257
7807¢
6550
6551+

6286

63354

7767
82709
1777+
7782+
7775
8268¢

7802+

8117
8364¢

8119

7992

8028

6649+
6652+

8107
6672+

8123«
6692¢

78064

7780

7783

7795

7799+

8100
6568+

7888¢
7850
8108
74738

7853
8118
T7474s

7864s
8127¢
7482

8329¢

8357

81304
7711
7875+

7845+

8345¢
8199
8413
8414
8415
8346
8078¢

8121¢
6263
6059¢
6571
8098

8128
6715

8250

8322

8347+

8348«

83664

7890
8114

6779+

6835

6940+

6987+

8003

8107

8124»

MAINDEC-11-CVORA-C DRV118 DMA INTERFACE OIAGNOSTIC

CVDRAC.P11
$TESTN
STINES

001200
001160

$TX8
$TKS

001146
001144

$TN

$TPB

07-MAY-85 09:22

63388
63240
7320

6650
6547¢
7472¢

= 000001

60576

60610

001157

6323¢

6317¢
63166

001152

STPFLG

sTPS
STRAP

631986

001150
014052

015366

ERRORS DETECTED:

8216
8183s

8222
8214

8220

7679

7977
82654

8013

8099

8121s

8122

8127

8404
7722
7755¢

77274

8185

6641

7457+

626106
79574

62630
80638

62640
8265¢

6270
8341

7043

7839¢

63416

6285¢
63484
6373¢
63746
60568
6055¢
8034¢
7840¢
624260
6536
62706

8403
8403¢

8408
7788
7715
1752
8405

780466

8407

6631+

6640

8406

7139¢

717Se

7222+

7282e

62718
8365

62736
85440

6275¢

62930

6580
7732
7739

8227

7044s

7854

7889¢

62464
6550
6275

62516
6551

6258
66040

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
36K
CORE USED:
(72 PAGES)

SEQ 0064

7746+

7471
8261

001010
0C1220
001244
001246
000023
000021
012446
011641
015366

ABS.

8162
8159

71068

6651«
8244

SUNITH
SUSWR
SVECTL
SVECT2
$XOFF =
$XON
=
$XTSTR
S$OFILL
.
*

7072¢

629686
8243

011416

= 001000

7034

7744

$TYPOS

L4X

8145
8143

638538

7397

79036
7679¢
7708
7750
78448

001206

7737
7738

6804«
8120

7392

011644
010614
011026
011146
011442

SUNIT

67756
8117

PAGE 65-7

7370
8381¢

8392¢
8386
628340

011456

7730
7728

8122«
6751e
8110e¢

09:37

7369
6543

014074
014106
001004

$TYPON

O7-MAY-85

631806
6240

$TRAP2
STRPAD
$TSTH
$TSTNM
ITTYIN
$TYPDS
$TYPE
$TYPEC
STYPEX
$TYPOC

001102
013442

MACY11 30(1046)

CROSS REFERENCE TABLE -- USER SYMBOLS

6259¢
78096