Digital PDFs

AH-FG28C-MC

September 1985

31 pages

Original

1.2MB

view download

OCR Version

1.2MB

view download

Document:	Micro Fiche Scan Name of device(s) tested: DH11 Test description: DH11 ECHO TEST MAINDEC Number or Package Identifier (after SEP 1977): CZDHJCO Fiche Document
Order Number:	AH-FG28C-MC
Revision:	000
Pages:	31
Original Filename:	CZDHJC0__DH11__DH11_ECHO_TEST__AH-FG28C-MC__1985_bw.pdf

OCR Text

Micro

Fiche

Scan

Name of device(s)

tested:

DH11

Test description:
DH11

ECHO

TEST

MAINDEC Number

Package

Identifier

(after

SEP

1977):

CZDHJICO

Fiche

Document Part Number:

AH-FG28C-MC

Fiche preparation date

unknown,

using copyright year:

1985

Image

resolution:

1-bit black&white,
COPYRIGHT

(C)

compressed for minimal

1973-1985 by dlilgliltlall

file

size

T
R

3 w
0;CZDHJ-CO

.REM

DHLl

ECHO/CABLE

TEST

MACRO

Y05.03¢c

Wednesday

14-Aug-85

14:13

IDENTIFICATION
PRODUCT

THE

CODE:

AC-8480C-MC

PRODUCT NAME:

CZDHJCO DH11 ECHO

DATE:

AUGUST

MAINTAINER:

NAC

AUTHOR :

GEORGE BAISLEY

INFORMATION IN

THIS DOCUMENT

TEST

1985

SOFTWARE

SUBJECT

ENGINEERING

TO CHANGE

WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL
EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES

ggcsgéngSIBILITY FOR

ANY

ERRORS

THAT

MAY

APPEAR

IM THIS

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
SOFTWARE
ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
1ITS
AFFILIATED

COMPANIES

(C)

1985 BY DIGITAL EQUIPMENT CORPORATION

Page

SEQ

CZOHJ-CO

DH11 ECHO/CABLE

TEST

MACRO Y05.03c

Wednesday

14-Aug 85

14:13

ABSTRACT
THE DH11 ECHO/CABLE DIAGNOSTIC IS DIVIDED INTO TWO
THE_FIRST TEST (ECHO) IS A QUICK VERIFY TEST USING
A TTY OR VTOS ETC.
THE

SECOND

CABLE

TEST

TERMINATOR

(CABLE

TEST)

A QUICK

(TEST CONNECTOR).

VERIFY

Page 2

SEQ 2

TESTS.

TEST

USING

THE

B0TH TESTS ASSUME
8 BITS/CHARACTER,NO PARITY GENERATION
OR CHECKING,AND A DH PRIORITY LEVEL S (BR:S)
1.1

1.2

THE DH11 ECHO TEST VERIFIES THAT ALL

THE DH11 CABLE TEST VERIFIES THAT ALL CHARACTERS (0 377)
ARE TRANSMITTED AND RECEIVED ON A PER LINE BASIS.
THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR

REQUIREMENTS
PDOP-11

2.1

CHARACTERS (0 377)

WILL ECHO ON EACH LINE (0-17 OCTAL) WITH STANDARD DH11l
TERMINAL ATTACHMENTS TTY 33,35 OR VT0S ETC. USING ASCII
ASYNCHRONOUS CODE

FAMILY

STANDARD

TERMINALS;

ONE FOR

COMPUTER WITH MINIMUM 4K

OH11 ASYNCHRONOUS MULTIPLEXER.
FOR THE ECHO TEST
TWO

2.2

FOR THE CABLE TEST
ONE CONSOLE TERMINAL,

2.3

STORAGE

CONSOLE,

ONE FOR DM11

MEMORY.

ECHO

TEST.

ONE TEST CONNECTOR MINIMUM

THE PROGRAM LOADS INTO 4KW OF MEMORY WITH ABS LOADER

LOADING PROCEDURE
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES
IS T0 BE USED.

STARTING

PROCEDURE

CONTROL SWITCH SETTINGS
AFTER PROGRAM LOAD
ALL
4.1

CONSOLE

(INITIAL

PROGRAM START)

SWITCHES DOMis.

TO MODIFY DEVICE VECTOR
AFTER PROGRAM RESTART

AND

CONTROL

ADDRESSES

SW00=1
TC MODIFY

5W02=1

DH11l

LINE

NUMBER

(MOMENTARILY-

AND BAUD RATE OF

DH11

(WMILE RUNNING)

DO NOT LEAVE THIS SWITCH UP AFTER

LINE & QUESTION)

CZDHU-CO

OH11

ECHO/CABLE

TEST

MACRO Y05.03c

Wednesday

14-Aug-85

14:13

Page 2-1

STARTING ADDRESS
THE

STARTING

THE RESTART

ADDRESS

FOR

ADDRESS FOR

ALL

TESTS

PROGRAM AND/OR OPERATOR ACTION

.3.1

INITIAL PROGRAM START

000200

IS 000200

LOAD PROGRAM INTO MEMORY
LOAD ADDRESS 000200
CLEAR CONSOLE SWITCHES
PRESS

.3.2

START

THE PROGRAM WILL TYPE "DH11 ECHO/CABLE TEST"
CZOMJ-REVISION C (ONCE ONLY)

<CR>

AND WILL TYPE
~“WHICH TEST ECHO OR CABLE (E OR C )* AND WILL
WAIT FOR AN INPUT FROM THE
CONSOLE TELETYPE KEYBOARD
TYPE

IN THE

TEST

YOU INTEND TC RUN (E

IF AN INCORRECT CHARACTER IS TYPED,

AND WILL

.3.3

THEN REPEAT

THE PROGRAM WILL

FOR

THE MESSAGE

TYPE

AN INPUT FROM THE

OR C)

FOLLOWED BY

THE PROGRAM WILL TYPE

“VECTOR ADDRESS

” AND WAIT

TELETYPE KEYBOARD.

TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT
VECTOR FOR THE DH11 TO BE TESTEU FOLLOMWED BY A
<CARRIAGE RETURN>.

.3.3

THE PROGRAM WILL TYPE

AND WAIT FOR AN INPUT

“CONTROL REGISTER ADDRESS
FROM

THE

TELETYPE KEYBOARD.

TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
OF THE DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED.

TYPE

.3.4

"?"

AND MILL

THEN REPEAT

.3.5

THE PROGRAM WILL

THE MESSAGE

WAIT

THE PROGRAM WILL

FOR AN INPUT

TYPE

“LINE NUMBER IN OCTAL-“ AND

TYPE

LINE

NUMBER

THE

DH11l

FROM THE TELETYPE KEYBOARD.

TO BE TESTED FOLLOWED BY

THE PROGRAM WILL
AN

TYPE

INPUT

FROM

IN THE

TYPE

THE

”BAUD RATZ-*

APPROPRIATE DHil

SPEED FOLLOWED BY

(IN OCTAL,

FROM O

<CARRIAGE RETURN>,

TELETYPE

AND WAIT FOR

KEYBOARD.

TERMINAL'S LINE

<CARRIAGE RETURN>.

17)

«7~

SEQ 3

CZ0HJ-CO

DH11 ECHO/CABLE

TEST

MACRO Y0S.03c WednesJjay

14 Aug 85

14:13

(ANY LEGAL BAUD RATE IS ACCEPTABE IN THE CABLE TEST)

Page 2 2

TRY

SEQ 4

'EM ALL

IF AN_INVALID BAUD RATE IS TYPED IN THE PROGRAM
WILL TYPE "INVALID BAUD RATE" AND REPEAT THE MESSAGE.
4.3.6

THE PROGRAM WILL TYPE “ECHO" OR “CABLE” RESP. TO INDICATE
ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN.

THAT

THE ECHO TEST WILL TYPE
“TYPE A CHARACTER ON DH1l TERMINAL“
-TYPE OR TRANSMIT VIA PREPUNCHED TAPE ANY SEQUENCE OF CHARACTERS(EXCEP
T
A CONTROL C (tC) WHEN TYPED ON THE DH11l TERMINAL WILL CAUSE
PROGRAM TO EXIT TO THE END OF PASS ROUTINE.

THE CABLE TEST REQUIRES NO ADDITIONAL OPERATOR
UNLESS TO RESELECT LINE ¢,BAUD RATE, ETC.

INTERVENTION

NOTE:
TO CHANGE LINE NUMBER AND/OR BAUD RATE,
SIMPLY MOMENTARILY RAISE SWO02 (SwW02=1),.
PROGRAM RESTART

WITH ALL

LOAD ADDRESS

000200

PRESS

SWITCHES DOWN

START

THE PROGRAM WILL TYPE "“ECHO" OR
AND COMMENCE TESTING AS BEFORE.

PROGRAM RESTART

LOAC
SET

“CABLE”

RESPECTIVELY

WITH SW00=1

ADDRESS 000200
SWO1=1

PRESS

START

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.2 T0 4.3.6

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS
SW1S=1,
SW14=1,
SW13=1,
SWll=1,
SW10=1,
SW02=1,
SWO00=1,

HALT ON ERROR
LOOP ON CURRENT TEST (CABLE TEST ONLY)
SUPPRESS ERROR TYPEOQUT
INHIBIT ITERATIONS (CABLE TEST ONLY)
ESCAPE ON ERROR
RESELECT LINE NUMBER AND BAUD RATE (MOMENTARILY)
CHANGE PARAMETERS AT PROGRAM RESTART

6.0

ERRORS

6.1

ERROR HALTS

tC)

CZDHJU-CO

DH11

ECHO/CABLE
THE

TEST

MACRO Y05.03¢c

ERROR MESSAGE FORMAT FOR

Wednesday
ALL

ERROR

14-Aug-85
TYPEOUTS

14:13

Page 2-3

AS FOLLOWS:

PC.2

MESSAGE

WHERE
PC+2 IS

MESSAGE

6.1.1

THE

ADDRESS

THE

CALL

THE

IS AN ASCII MESSAGE DESCRIBING

ERROR

HANDLER

(BRIEFLY)

THE FAILURE

ERROR DESCRIPTIONS
SEE LISTING FOR DETAILS OF ERRORS
NOTE:

FOR SERIQUS TROUBLESHOOTING....USE

6.2

ERROR RECOVERY

6.2.1

SW15=0
IF THE PROGRAM IS RUN WITH SW1S=0,
REQUIRED TO CONTINUE TESTING.

6.2.2

NO OPERATOR ACTION IS

SW15=1
IF THE PROGRAM IS RUN WITH SW1S=1,

THE PROGRAM HAS HALTED,
CONTINUE SWITCH.

6.2.3

THE REGULAR DH11 DIAGNOSTICS

PRESS

TQ CONTINUE TESTING AFTER
THF PROCESSOR CONSOLE

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
ODURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN THE

TRAPCATCHER.
THE ADDRESS AT WHICH THE PROGRAM HALTS IS 2
GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT OCCURRED.
ESEOSROGRAH MUST BE RESTARTED AT 200 TO RECOVER FROM THIS

RESTRICTIONS
NONE
MISCELLANEQUS

THE ECHO TEST DOES NOT ENABLE AUTO ECHO

- BAUD RATE

134.5 HAS BEEN ROUNDED OFF

TO 135

PROGRAM DESCRIPTION

RATES:

LISTING

50,75,110,134.5,150,200,300,600,1200,1800,2400,4800,9600.

SEQ

ECHO/CABLE

TEST

MACRO Y05.03c

Wednesday

Aug-85

;OH11 ECHO/CABLE TEST
;COPYRIGHT 1973, 1985 DIGITAL EQUIPMENT CORP.,

14:13

MAYNARD,

Page 4

MASS.

SEQ 6

01754

;STARTING PROCEDURE
;LOAD PROGRAM
:LOAD ADDRESS 000200
;PRESS START
; PROGRAM WILL TYPE DH11 ECHO/CABLE TESY
: PROGRAM WILL TYPE
WHICH TEST- ECHO OR CABLE
;TYPE IN
E
OR
C
RESPECTIVELY
: PROGRAM WILL TYPE “VECTOR ADDRESS-"
;TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
;FOR THE OH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>

:PROGRAM WILL TYPE “CONTROL
;TYPE IN THE ADDRESS OF THE

;FOR THE DH11 70O BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
: PROGRAM WILL TYPE "LINE NUMBER-"
;:TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL)
: FOLLOWED BY <CARRIAGE RETURN>
: PROGRAM WILL TYPE *“BAUD RATE-"
:TYPE IN THE BAUD RATE OF THE DH1l TERMINAL
+ /FOLLOWED BY <CARRIAGE RETURN>

DOH1l

CZDHJ CO

THE FOL%gHING BAUD RATES ARE ACCEPTED IN DECIMAL
75
110

135
150
200
300
600
1200
1800
2400

(ROUNDED OFF

134.5)

4800

9600

;:ALL OTHERS ARE REJECTED

;:PROGRAM WILL TYPE “ECHO”
OR
"CABLE TEST” TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE " CZDHJ [REV] *
;AND THEN RESUME TESTING
:SWITCH REGISTER OPTIONS
100000
040000
020000
010000
004000
002000
001000
000400
000100

000020
000010
000004

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SW09=1000
SW08=400
SW06=100
SW05=40
SW04=20

SW03=10
SWO2=4

=1, HALT ON ERROR
;=1,L00P ON CURRENT TEST
:=1,INHIBIT ERROR TYPEOUT

:=1, INHIBIT ITERATIONS
+=1,ESCAPE TO NEXT TEST ON ERROR
+21,LO0P WITH CURRENT DATA

;RESELECT DH11 LINE NUMBER AND BAUD RATE (RAISE MOMENTARILY ONLY)

CZDHJ-CO

DH11 ECHO/CABLE

67
68
69
70
71
72
73

74
75
76
77

000002
000001

TEST

MACRO Y05.03c Wednesday

14-Aug-85 14:13

SWO1=2
SWO00=1

Page 4

:RESTART PROGRAM AT SELECTED TEST
+RESELECT VECTOR AND CONTROL REGISTER
: ADDRESS AFTER PROGRAM RESTART

:REGISTER DEFINITIONS
000000
000001
000002
000003
000004
000005
000206
000007

RO=%0
R1l=#1
R2=%2
R3=x3
R4 =%4
R5=%5

;:GENERAL REGISTER
;GENERAL REGISTER
;:GENERAL REGISTER
s GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;PROCESSOR STACK POINTER
;PROGRAM COUNTER

SP=%6
PC%7

:LOCATION EQUIVALENCIES
177776

PS=177776

:PROCESSOR STATUS WORD

i INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSHR0=10046
POPR0O=12600
PUSH2SP=24646
POP2SP=22626

:OECREMENT PROCESSOR STACK 1 WORD
: INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

8IT15=100000
81714=40000
BIT13=20000
8IT12-10000
8IT11=4000
BIT10=2000
B81709=1000
8IT08=400
8IT07=200
81706=100
8IT0S5=40
BIT04=20

111
112

113
114
115
116
117
118
119
120 000000
121 000002
128
129
130
131
132 000024

PUSH1SP=5746
POP1SP=5726

000001

BIT03=10
BIT02=4
BITO1=2

8IT00=1

000000
000000
000000

. =0
HALT
HALT

000024
005126

.=24

s TRAPCATCAER FOR ILLEGAL INTERRUPTS

;STANDARD INTERRUPT VECTORS

PFAIL

;POWER FAIL HANDLER

SEQ 7

CZDHJ-CO
133
134
135
136
137
138
{23

DH11 ECHO/CABLE TEST

000026
000030
000032
000034
000036
000200

000340
002720
000340
003122
000340
000200
000137

MACRO Y05.03¢c Wednesday

.=200

001104

340
ERRORS
340
TRPSRV
340
JMP

141
142
143
144

14-Aug-85 14:13

Page 4 2

SEQ 8

:SERVICE AT LEVEL
;:ERROR HANDLER

;SERVICE AT LEVEL 7

:GENERAL HANDLER DISPATCH SERVICE

:SERVICE AT LEVEL 7

START

;GO TO START OF PROGRAM

;:DEFINITIONS FOR TRAP SUBROUTINE CALLS
:POINTERS TO SUBROUTINES CAN BE FOUND STARTING

i:g

;AT LOCATION "TRPTAB"

147
148
149
150
151
152
153
154
155
156
157
%gg

104400
104401
104402
104403
104404
104405
104406
104407
104410
104411
104412
104413

{gg

001000

ig% 001000

000000

igg

001100

SCOPE=TRAP+0
TYPE=TRAP+1
OCTASC=TRAP .2
INSTR=TRAP+3
INSTER=TRAP +4
PARAM=TRAP+5
SAVOSP=TRAP+6
RESOS=TRAP+7
SCOPE1=TRAP+10
PARAMD=TRAP+11
PAWCH=TRAP+12
SAVOS=TRAP+13

:SCOPE LOOP AND ITERATION HANDLER
; TELETYPE QUTPUT ROUTINE
;OCTAL TO ASCII CONVERSION
s INPUT ASCII STRING
:STRING INPUT ERROR
: CONVERT STRING TO OCTAL, CHECK LIMITS
$SAVE RO-RS, PC
;RESTORE RO-RS
;CHECK FOR FREEZE ON CURRENT DATA
:CONVERT DECIMAL SIRING TO OCTAL
;SET FLAG
ECHO OR
CABLE
:SAVE RO - RS

STACK:

;PROCESSOR STACK (PS)

=1000

.WORD

.*1100

166

;PROGRAM INITIALIZATION

167
168

sLOCK OUT INTERRUPTS
$SET UP PROCESSOR STACK

170

;CLEAR PROGRAM FLAGS AND COUNTS

169

sSET UP POMER FAIL VECTOR

i;%

sTYPE

173 001100
};g 001102

177570
177570

176
177
178
179
180
181
182
183
184
185
186
187

012737
012706
012702
012722
012722
012722
012722
012722
012712
012737
005037
005037

001104
001112
001116
001122
001126
001132
001136
001142
001146
001152
001160
001164

188 001170
189 001174

005037
005037

000340
001000
000024
005126
000340
0v2720
000340
003122
000340
001104
005070
005026

005030
005024

177776

005032

TITLE MESSAGE

SWR:
LIGHTS:

. WORD
.WORD

1771570
177570

;
:

START:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR

#340,.PS
#STACK, SP
224 ,R2
PFAIL,(R2)+
4340, (R2).
QERRORS, (R2)+
4340, (R2).
ATRPSRV, (R2).
#340, (R2)
OSTART ,RETURN
STFLG
PASCNT

:LOCK QUT INTERRUPTS
;SET UP PROCESSOR STACK
: POINT TQO VECTOR AREA
:SET UP POWER FAIL TRAP
:SERVICE AT LEVEL 7
:ERROR HANDLER
:SERVICE AT LEVEL 7
:GENERAL HANDLER DISPATCH SERVICE
:SERVICE AT LEVEL 7
;:SET UP_IN CASE OF POWER FAIL
;CLEAR TEST START FLAG
;CLEAR PASS COUNT

CLR
CLR

ERRCNT
ERRFLG

SWITCH REG ADDRESS
lights

:CLEAR ERROR COUNT
;:CLEAR ERROR FLAG

CZ0HJU-CO

DM11 ECHO/CABLE

001200
001204
001210
001214
001222
001226
001230
001230
001236
199 001242
200 001242
201 001244
202 001246
203 001252
204 001256
205 001262
206 001264
207 001270
208 001272
209 001300
210 001302
211 001306
212 001312
213 001316
214 001320
215 001322
216 001324
217 001326
218 001332
219 001334
220 001336
221 001340
222 001342
223 001344
224 001346
225 001350
226 001352
227 001354
228 001356
229 001360

190
191
192
193
194
195
196
197
198

230 001361
231 001362
232 001364
233 001366
234 001370
235 001372
236 001374
237 001376
238 001377
239 001200
240 001406

241
242
243
244

001412

001414
001416
001420
245 001422
246 001424

TEST

005037
013746
013746
012737
005777
000405

005074
000004
000006
001230
177652

012737
005037

000176
001102

005726
005726
012637
012637
005237
001003
104401
000404
032777
co1471
012701
012702
012703
010211
005012
060301
060302
020127
001371
104403
005722
104412
005066
104403
005347
104405
000300
000770
005012
003
004
104403
005372
104405
000000
177776
004770
007
010
012777
005037
104403
005610
104405
000000
000017
005110

MACRO

Y05.03c

Wednesday

14:13

Page 4

CLR

000004

001100

1$:

set up trap vector

9176, SWR
LIGHTS

:
i

POINT TO SOFT SWITCH REG
0 MEANS WE ARE NOT GOING TO USE LIGHTS

(SP)-«
(SP).
(SP)+, 6
(SP)., 4
INIFLG

CLEAN UP STACK

;
i

JMIITLE

177600

000300
000302
000004

VEC2
4SW00, 8SWR
BEGIN
#300,R1
#302.R2

VECL:
VEC2:

;IF SW00-1,
;:AND CSR

44 ,R3
R2,(R1)

1¢:

R3,R2
R1,@1000
1¢

s INPUT WHICH TEST YCU ARE RUNNING
;ECHO OR CABLE

:SET FLAG
; THIS FLAG

.BYTE
.8YTE

INSTR
MREGAD

004000
005070

003362

LINE:

: INPUT ADDRESS OF DEVICE VECTOR
iMESSAGE "VECTOR ADDRESS *
;CONVERT STRING TO OCTAL
sLOW LIMIY
sHIGH LIMIT
;LOCATIONS TO BE FILLED
;LSB MASK
:NUMBER OF LOCATIONS

; INPUT ADDRESS OF DEVICE CSR

:MESSAGE “CONTROL REGISTER ADDRESS *
sCONVERT STRING TO OCTAL
sLOW LIMITY
sHIGH LIMIT
;LOCATIONS TO BE FILLED
;LS8 MASK
iNUMBER OF LOCATIONS
iMASTER CLEAR INTERFACE
;:CLEAR PROGRAM START FLAG
1 INPUT LINE NUMBER
{MESSAGE *LINE NUMBER-*
:CONVERT
STRING TO OCTAL
;LOW LIMIY

LINENU

sLOCATION TO BE FILLED

SARAH

.BYTE
.BYTE

GET NEW VECTOR

;RESTORE TRAPCATCHER
;IN FLOATING VECTOR AREA

(R2)
R3,R1

001000

TEST SWITCH REGISTER ADDRESS
IF SUCCESSFUL, LEAVE IT ALONE

:SET _UP FOR ONCE ONLY TYPE OUT
;DITTO
:TYPE TITLE

VEC1

005270

SEQ 9

TST
BR

2%:

;CLEAR LAST ERROR PC
: PUSH TRAP VECTOR

MOV
MOV
MOV

000006
000004
005064

000001

14-Aug-85

177776
gHSCR

10
MOV
CLR
INSTR
MLINE
PARAM
17

#8IT11,80HSCR
STFLG

tHIGH LIMIT

CZDHJ-CO

DH11

247 001426
248 001427

249 001430
250 001432
251 001434
252 001436
253 001440
254 001442
255 001444
256 001445
257 001446
258 001452
259 001460
260
261
262 001464
263 001472
264 001476
265 001502
266 001506
267 001510
268 001516
269 001522
270 001524
271 001530
272 001534
273 001536
274 001544
275 001550
276 001552
277 001556
278 001562
279
280
281
282
263 001566
284 001574
285 001602
286 001610
287 001616
288 001624
289
290 001632
291 001640
292
293 001646
294 001654
001662
001670
001676
001702
001710
001712

ECHN/CABLE

TEST

MACRO

000
001

.BYTE
.BYTE
BAUD:

104403
005642
104411
000062
022600
005104

004204
005006
005010

012737
012706
005037
005737
C01413
012737
005737
001017
005137
104401

000412
012737

005737
001004
005137
104401
000177

012737
012737
012737
0527717
013777
013777
012777
012777
052777
012777
013777
013737
104401
032717
001774
000137

Y05.03c

.BYTE
.BYTE

005010

000340
001000
005072
005066

177776

002074
005070

005032

Wednesday

MSPEED
PARAMD

50.
9600.
bINESP

1
JSR

005070
005771
003244

000340
001400

177776

004000
005112
005106

005034
005022
003152
003144
003142

005124

003146
003130

100000
001716
0u5116
005120
005661
001400

TEST1:

177170

0340,PS
#STACK,
SP

LOCKLP

sLOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK
;CLEAR TIMEOUT

#TEST2, ,RETURN

.CABLE TEST

gsflFLG

:ECHO OR CABLE TEST
ECHO

STFLG
is
STFLG
i?CfiBLE

:TYPE CABLE

OTESTL RETURN
izFLG

sSEY UP ECHO TEST
=°g§ YOU LOOPING ?

STFLG

:NO

Agg YOU LOOPING

:NO

JHTERM
SRETURN

TEST

;TYPE ECHO TEST
;START TESTING

sTHIS TEST WILL ACCEPY
)
1 CHARACTER AT A TIME
;(CIN INTERRUPT MODE) AND
AND TRANSHIT THAT SAME CHARACTER,
A
A TIME, ANY LINE O THRU 17 (OCTAL)
;ONE LINE AT
MoV

4340 ,PS

;DISABLE ALL INTERRUPTS

oBITi1.BOHSCR

MASTER CLEAR INTERFACE
+SELECT LINE @ & SET INTERRUPT ENABLE
1SET LINE SPEED AND

nov
MOV

o INE ESCAPE
#EOP NEXT

MOV
nov

NUMLIN, BOHSCR
SPEED, SDMLPR

"oV
MOV

#0, BOHSSR
STHUF, 3DHBA

BIS

MOV

MOy

HOV
DELAY:

1L.S8 MASK
;NUMBER OF LOCATIONS
: INPUT BAUD RATE
:MESSAGE "“BAUD RATE -~
s CONVERT DECIMAL STRING TO OCTAL
;LOW LIMIT
tHIGH LIMIT
;LOCATION TO BE FILLED
;LSB MASK
:NUMBER OF LOCATIONS

HOV
MOV

8IS

003114
003130
003124
177778

SEQ

;SET _UP ADORESS OF SILO
sSTATUS REGISTER HIGH BYTE

2%:

1%:

Page 4-4

OHSSR,DHSLR
OHSLR

CLR

005032

RS,SET

14:13

INC

005070
006017

001566
005070

Aug-85

0
1
INSTR

MOV

BEGIN:

TYPE

817

BEQ

JHP

sCHARACTER LENGTH (TRANS. & REC.)
:SET SILO ALARM LEVEL=0
1 ADDRESS
OF TRANSHNITTER
sDATA BUFFER
4100000, SOMSCR
1SEY TRANSHIT “DONE*
SINTSVC . SOHRVEC sSET UP INTERRUPT SERVICE

PR10,8DHALVL

LESS1,PS
HCHAR

#5102
, BSWR

DELAY

LINE

+AND LLEVEL
tALLOU INTERRUPTS

iJYPE “ANY CHARACTER*
1IF _SWOR=1 GET NEMW LINE NUMBER
;RETURN HERE AFTER *INTSRRUPT"
i

sTHE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE

CZOHJ-CO

DM1l ECHO/CABLE

304 001716
305 001722

313
314
315
316
317
3.8
319
320
321
322

001760
001766
001774
002000
002006
002010
002012
002020
002026
002030

105777
100401
104000
005777
100401
104001
017737
113737
113737
042737
042737
000337
023737
001401
104002
012777
032777
001001
104003

324
325
326
327
328
329
330

002040
002042
002050
002054
002056
002064
002072

001006
0S2777
012716
000002
012777
013777
000002

306 001724

307
308
309
310
311
312

001726
001732
001734
001736
001744
001752

323 002032

332

123727

TEST

MACRO Y0S5.03c

003046

INTSVC:

003040

003030
005122
005122
177600
170377
005122
005110

005122

177777
100000

002760
002742

006066

000003

005122
005124
006066
006066
005122

004000
002500

902720

005124
005118

002712
002710

333

crPs

BNE
8IS
nov
RYI
MOV
'l
RTI

14:13

Page 4 S

SEQ

80HSCR
.+

:TEST REC.

SOHNRC
. o4
1
SOHNR
, 8ORECOAT
C
RECDAT, TBUF
RECDAT, INBUF

: TEST FOR VALID CHARACTER

FLAG

:MOVE CHARACTER TO OUTPUT AREA
iMOVE CHARACTER TO CHECK FOR tC
#1Cc177>,INBUF
;STRIP JUNK PLUS PARITY
9170377, 80RECDAT
sSAVE ONLY LINE
NUMBER
RECDAT
LINENU,RECDAT
sDOES THE LINE ¢ COMPARE?
. o4
e
#-1,80M8C
1 (OCTAL) BYTES WILL BF XMITTED
#100000, 3DHSCR
zTESY “FLAG” FOR [-ONE
x
3

INBUF , #3

IS IT A ¢C 2

14
MBIT11.80HSCR
#EQP
., (SP)

sNO
;STOP DEVICE
sCRUNCH STACK

#TBUF , BOMBA
NUMBAR,SDMBAR

:ADDRESS OF TRANSMITTER
;START XMITTER

aVIA INTERRUPY MODE TO THE RECEIVER

335
336 002074
337 002102

012737
012737

339 002116
340 002124
341 002132

052777
013777
052777

343 002140

013777

345 002154
346 002162
347 00217G

012777
012777
012777

338 002110

342

344 002146

012737

012777

000340
001400

002500

177776
005034

0EQP NEXT

BIS
Hov
815

S8I111,80MSCR
NUMLIN. BDHSCR
#BIT13,.DHSCR

sMASTER CLEAR INTERFACE
;SELECT LINE @ & REC.
INTERRUPY ENABLE
1SET TRANSMITTER INTERRUPT ENABLE

005106

002626

MOV

SPEED, MPE

;SET LINE SPEED

006664
177400
002266

002614
002610
002614

MOV
MoV
oV

STABLE . Q0MBA
¢-256. ,80M8C
SINTREC,BOHRVEC

+ADDRESS OF TRANSMITTER DATA BUFFER
.SET U@ JYTE COUNY
1SET UP INTR SERVICE

002604
002600

Moy
MOV

000000

005022

002632

013777

005116

351 0022:0
352 002224
;gz 002232

012701
013737
013777

006664
0u5120
005114

177776
002542

355
356
337
358
359

032777
001402
000137
005237

000004

176632

002240
062246
002250
102254

360 902260

012777
013777

001367

.THE LINE UNDER TESY MUST BE TERMINATED MITH THE TEST CONNECTOR
TESTZ.
nov
8340.PS
;:DISABLE INTERRUPTS
fl.nfi ESCAPE

002644
002636
002630

004000
005112
020000

348 002176

349 002204
350 002212

o yv—

TSTB
8MI
EMT
TST
8M1
EMT
MOV
MOV
MOVB
6IC
81C
SWAB
cHe
8EQ
EMT
MOV
81T
8NE
3,11

14-Aug 85

sTHIS TEST TRANSMITS A BINARY COUNT PATTERN

334

oy ———
.

Wednesday

002436
005116

001400
005072

MOV

002610

MOV

MOV
MOV
MOV
SPIN:

14;

0, BDHSSR

PRIO, BOHRL
VL

i& NON EXTSTANT MEMORY INTR ENABLE

+SET SILO ALARM LEVEL =0
1SET UP LEVEL

GINTRAN, fl)NTVEC sSET UP INTR SERVICE
PRIC, BOHTL /L
tSET UP LEVEL
STABLE R}
LESSL.PS
NUMBAR, BDHBAR

;9¢T UP DATA SCINTER
;A&LOH INTERRUPTS
iSET UP BAR BIT

;YOU RETURN HERE AFTER EVERY RECEIVER INTERRUPT
8IT
#SK02 , SSHR
;IF SW02=1
GET NEW LINE NUMBER
BEQ
1s
:SWO2=0
JHP
LINE
:SW02=1
INC
LoCkp
1 INC TIMEOUT FLAG

B8NE

SPIN

1IF NOT O

RETURN SPINNING

CZ0MJ CO

DH11

361 002262
362 002264
363 002266
cog2712
365 002276
002300
002302
002310
002314

002316

002326

40, 002470
40"

002476

ECHO/CABLE

104006
104400
005037

105777

100401

104000
017737
005737
100401
104001
032737
001401
104007
032737
001401
104010
032737
001401
104011
122137
001401
104005
042737
000337
023737
001401
104002
126127
001003
012716
000402

TEST

MACRO

040000

Wednesday

QUITS:
INTREC:

005072
002472
002464
005122

Y05.03c

oV
1S7
BMI
EMT

005122
005122

010000

005122

817
8€EQ
EMT
81T
8€EQ
EMT
8IT
8EQ
EMT
cHP8
8EQ
EMT
a1c
SHWAB

005122

170377
005122
005110

CLR

1S78

8MI
EMT

005122

020000

EMT
SCOPE

005122
005122

14-Aug-85

14.13

LOCKUP
S8DHSCR
. o4
0
SOHNRC
, PECDAT
REEDAT
.

002240

032717
001001
104003
032777
001404
104004
042777
042777
000002

100000

002324

002000

002312

000400
100000

002300
002272

: SAVE WORD
sTEST FOR VALID CHARACTER

#8IT13,RECDAT
Y}
10
OBETIZ.RECDAT
.®

(R1)+ ,RECDAT

,+4
5
4170377 ,RECDAT
RECDAY
LI:ENU.RECDAT

sDATA OVERRUN ?

:NO

;FRAMING ERROR
s NO
;PARITY ERROR

s NO

?
?

;GO0D CHARACTER ?
s YES
s SAVE ONLY LINE NUMBER

:DOES THE LINE ¢ COMPARE ?

s YES

:hSST CHARACTER

:CRUNCH STACK

1¢:
248:

MUITS,(SP)
24

OSPIN, (SP)

;CRUNCH STACK

INTRAN:

#BIT1S,80HSCR

; TEST TRANSMIT FLAG

;?ITIO.SDHSCR

sNON EXISTANT MEMORY ?

002264

;CLEAR TIMEQUT FLAG
;TEST REC DONE
s YES

1
81714 ,RECDAT
. *4

000377

S€Q 12

17771

Page 4-6

4
18

481708, BONSCR
#8IT15,80HSCR
1RETURN

:CLEAR NON EXISTANT MEMORY BIT
:CLEAR DONE BIT FOR NEXT ROUND

CZDOHJ-CO

DH13 ECHO/CABLE

405
406
407
408
409
410
411
412 002500
413 002502
414 002504

415 002510
416 002514
417
418
41°
420
421

422

423
424
425

426

827

428
429
430
431
432
433
434 002566
435
436
437
438
439
440
441
442

443 002602

444
443
446
447
448
449
450

TEST

MACRO Y05.03¢c

Wednesday

14-Aug-85

14:13

Page S5

SEQ 13

:END OF PASS

s TYPE NAME OF TEST

tUPDATE _PASS COUNT
sCHECK FOR EXIT TO ACT-11
tRESTART TEST
104401
005525
003037
005037
005237
005737
001005
104401
0053541
104402
002574
000403

013737

013701
001406
000005
004711
000240
000240
000240
000240
000137
000001
006
005026

EOP:

TYPE

MEPASS
CLR
CLR
INC
TST

005074
005024
005026
001102

B8NE

TYPE
PASTXT
OCTASC
PASARG

005026

001102

24:

LOGICAL:

001464

RESTRT:

PASARG:

002

s TYPE NAME OF

LAST
ERRFLG
PASCNT
LIGHTS

sCLEAR LAST ERROR PC
s:CLEAR ERROR FLAG
sUPDATE PASS COUNT
: ARE WE USING LIGHTS?

;:
+

BRANCH IF WE ARE
TYPE PASCOUNT MESSAGE

;

PRINT PASSCOUNT

CONTINUE

MOV

PASCNT ,LIGHTS

:DISPLAY PASS COUNT

MOV
BEQ
RESET

8042 ,R1
RESTRT

;CHECK FOR ACT-11 OR DCP
:IF NOT, CONTINUE TESTING

NOP
NOP
NOP
NOP
JP
LWORD
BYTE
.HORD

JSR

PC.(R1)

8EGIN
1
6,2
PASCNTY

1CHECK FOR LOOP ON CURRENT TEST
1CHECK FOR LTERATION SUPPRESSION
0G2000

176270

040000

176260

004000

176250

005042
005042

(05040

005042
0V3024
005032

005024

005032

SCOPER: 81T
BNE
1¢:
8I7
BNE
817
BNE
INC
"
BNE
2%:
CLR
CLR
3s:
44:

TEST

MOV
MOV
RYI
187
BEQ

B8R

:%HIO.'SUR
#5414, 8SWR
34
#SW11,8S5wR
24
LPCNY
LPCNT, ICOUNT
34
LPCNTY
ERRFLG

NEXT ,RETURN
RETURN, (SP)

1. O0PING

E?RFLG

1CHECK FOR FREEZE ON CURRENT DATA

PARAMETERS TO PRINT PASSCOUNT

CZDHJ CO

DH1l

462
463 002702
464 002710
465 002712
466 002716
467
468
469
470 002720
471 002726
472 002730
473 002734
474 002736
475 002742
476 002746
477 002750
478 002752
479 002756
480 002760
481 002762
482 002764
483 002770
484 002774
485 003000
486 003004

487
488
489
490
491
492
493
494
495
496
497
498
499

500
501
502
503
504
3035
506
So0?
508
509
510
511
S12
513
S14
S15
516
517
518

003010
003012
003016
003020
003022
003024
003032
003034
003036
003042
003044
003046
003050
003052
003056
003060
003062
003066
003070
003072
003076
003104
003106
003112
003114
003116
003120

ECHO/CABLE

032777
001402
013716
000002

TEST

001000

MACRO Y05.03c

176170

005036

Wednesday

14-Aug-85

14:13

SCOP1R:

géa

f§H09.flSHR

14:

MOV
RTI

FREEZ1,(SP)

Page S5-1

;ERROR HANDLER
032777
001051
021637
001404
011637
005937
104406
011605
162705

011504

006304
C06304
042704
062704
012437
011437
005737
001403
005737
001007
104402

003114

012737
104401
000000
005737
001402
104402
000000
104407
005777
100005
010046
016600
000000
012600
005237
032777
001402
013716
000002
000001
006

005062

020000

176152

ERRORS:

200002

BIT
BNE
CMP
BEQ
MOV
CLR
SAVOSP
MOV
suB

177001

8IC

005074
005074
005024

1$:

006124
003034
003046
005024

TYPMSG:
000001

005024

ERRMSG:
TYPDAT:

003046

DATABP:

RESREG:

176022

HALTS:

000002
005030
002000

005034
002

175774

EXITER:

(R5).R4
R4
R4

ADD
MOV
MOV
TST

QERRTAB,R4
(R4)+ ,ERRMSG
(R4),DATABP
ERRFLG

ST
BNE
OCTASC
ERTABO
MOV
TYPE
O
TST

DATABP
TYPDAT

BEQ
OCTASC
O

RESOS

TST
8PL

PUSHRO
MOV
HALT
POPRO
INC
8IT

BEQ

18:
ERTABO:

(SP),R5
#2.RS

MOV
ASL
ASL

BEQ

003046

4SW13,aS5WR
HALTS
(SP),LAST
14
(SP),LAST
ERRFLG

MOV
RTI
1
BYTE
SAVPC

2177001 ,R4

TYPMSG

#1 ,ERRFLG

DATABP
RESREG

aSWR
EXITER
2(SP),RO
ERRCNT
#SW10, aSuR

ESCAPE, (SP)
6,2

; TRAP DISPATCH SERVICE
; ARGUMENT OF TRAP IS EXTRACTED
:AND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE

SEQ

CZOHJ-CO

D11 €CHO/CABLE TEST

519 003122
520 003124
521 003130
S22 003134
S23 003136
Se4 003142
$25 003146
526 003152
527
28
329
530 003154

011646

162716
017616
006316
042716
062716

017616
000136

MACRO Y05.03c

Wednesday

TRPSRV:

000002

MOV

suB

000000

TRPOK
:

177001
006036

MOV
ASL

8IC

ADD
MOV
JMP

000000

14-Aug-85

000004

005062

SVOSP:

Mov

Page S5 2

(SP),-(SP)

#2,(SP)

a(SP),(SP)
(SP)

#177001,(SP)
¢TRPTAB, (SP)

a(SP),(SP)
(SP)»

:SAVE PC OF
016637

14:13

;:SAVE RO-RS
534
335
336
337
538
539

003162
003166
003172
003176
003202
003206

540 003212

010537
010437
010337
010237
C10137
010037
000002

543
S44
545
546
547
548
549

013700
013701
013702
013703
013704
013705
000002

003214
003220
003224
003230
003234
003240
00324

005056
005054
005052
005050
005046
005044

SVOS:

MOV
MOV
MOV
MOV
MOV
MOV
RTI

RS, SAVRS
R4 ,SAVR4
R3,SAVR3
R2,SAVR2
R1,SAVR1
RO, SAVRO

MOV

SAVRO ,RO

sRESTORE RO-RS

RSO0S:

005044
005046
005050
005052
005054

005056

MOV
MOV
MOV
MOV
MOV
RTI

SAVR1.R1
SAVR2,R2
SAVR3,R3
SAVR4 R4
SAVRS RS

;TELETYPE OQUTPUT ROUTINE
553
554
955
556
537
558
5359
560
561

003246
003252
003256
003262
003264
003266
003270
003272
003276

017605
062716
105777
100375
105715
001001
000002
112577
000767

000000
000002
001502

TYPER:

1%:

001470

2%:

MOV

ADD
1ST8
8PL
1ST8

a(SP),RS

92,(SP)
8TPLSR

1
(RS)

BNE

MOVB
BR

{R5)+,8TPDOBR
is

RTI

;ASCII STRING INPUT ROUTINE
565
566
567
568
569
370
571
372
573

003300
003306
003312
003314
003316
003322
003326
003332
003354

574 003340
575 003344

017637
062716
104401
000000

000000
000002

012704
012703
105777

006066
000007
001426

142714
122427

001422
000200
000015

100375
117714

003314

INSTRG:

INSTR1:

MSG:

14:

MOV
ADD
TYPE

8(5P) MSG
@2,(SP)

MOV

H4INBUF
R4

MOV
1ST8

B8PL

MOVB

BICB
cMPB

;:GET PC OF RETURN
:=PC OF TRAP

;GET _TRP

sMULTIPLY

&7,.R3
8TKCSR

8TKDBR,(R4)

©#200,(R4)
(R4).,015

TRAP

ARG By

;:CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
: SUBROUTINE ADDRESS
;GO TO SUBROUTINE

TEST THAT FAILED AND RO-RS

4(SP),SAVPC

5€Q

CZOHU-CO

DH11

ECHO/CABLE

576 003350
001413
577 003352
117777
578 003360
105777
579 003364
100375
580 003366
005303
581 003370
001356
582 003372
104401
583 003374
005427
584 003376
000745
585 003400
000002
586
587
588
0115605
589 003402
012537
590 003404
591 003410
012537
592 003414
012537
593 003420
112337
594 003424
112537
595 003430
C10516
596 003432
005005
597 003434
012704
598 003440
122714
599 003444
001420
600 003446
121427
601 003452
002415
602 003454
121427
603 003460
003012
604 003462
142714
605 003466
152405
606 003470
122714
607 003474
001406
608 003476
00630S
609 003500
006305
006305
610 003502
611 003504
000760
612 003506
104404
613 003510
000750
614
615
616
020537
617 003512
618 003516
101373
619 003520
020537
620 003524
103770
621 003526
133705
622 003532
001365
623
624
625
626 003534
013704
627 003540
010524
628 003542
062705
629 003546
105337
630 003552
001372
631 003554
000002
632 003556
000000

TEST

001404
001400

MACRO Y05.03c Wednesdsy

(01406

BEQ
2%:

INSTRE:

INSTR2:

MOVB
TSTB

BPL
DEC
BNE
TYPE
MQaM

B8R

RTI

14-Aug 85

14:13

Page 5 3

INSTR2

8TKDBR, aTPDBR
8TPCSR

2
R3
14

INSTR1

:CONVERT ASCII STRING TO OCTAL
003556
003560
003562
003564
003565
006066
000015

000060

PARAMS
;

PARAM]:

1$:

000067

MOV
MOV
MOV
MOV
MOV8
MOvB
MOV

CLR

MOV

000015

PARERR:

QINBUF R4

cMPg
8EQ
cMPe
BLY

@15,(R4)
PARERR
(R4), 860
PARERR

8GT
8IC8
BISB
cMPB
8EQ
ASL
ASL

PARERR
460, (R4)
(R4).,RS
#15,(R4)
LIMITS
RS>
RS

cMP8

000060

(SP),RS
(R5)+,LOLIM
(RS)« ,HILIM
(R5)+,DEVADR
(R5)+,LO0BITS
(R5)+,ADRCNT
R5,(sP)

(R4),067

ASL

B8R

PARAM]

8R
INSTER

:TEST TO SEE IF NUMBER IS WITHIN LIMITS
003560

LIMITS:

003556

003564

cme
BHI
cHe
BLO
8118
BNE

RS HILIM
PARERR
R5,LOLIM
PARERR
LOBITS.RS
PARERR

:STORE NUMBER AT SPECIFIED ADDRESS
003562

000002
003565

1s$:

LOLIM:

MOV
MOV
ADD
DECS
BNE

RTI
0

DEVADR ,R4
RS,(R4).
#2.R5
ADRCNT
1

SEQ

CZ0HJ-CO

DH11 ECHO/CABLE

633 003560
634 003562

000000
000000

638
639 003566
640 003570

011605
012537

635 003564
2;9 003565

641 003574
642 003600
643 003604
644 003610
645 003614
646 003616
647 003620
648 003624
649 003630
630 003632
651 003636
652 003640
653 003644
654 003646
635 003652
656 0036354
657 003656
658 003660
659 003664
660 003666
661 003670
662 003672
663 003674
664 0035676
6635 003700
666 003702
22; 003704

TEST

000
000

012537
012537
112537
112537
010516
005905
012704
122714
001424
121427
002421
121427
003016
142714
005002
152402
060205
122714
001410
006305
010502
006305
006305
060205
000754
104404
000744

MACRO Y05.03c Wednesday

006066
000015
000060

14:13

Page S5-4

HILIM:
DEVADR:

O
0

.PARAMD :

s CONVERT DECIMAL ACCII STRING TO OCTAL
MOV
(SP),RS
MOV
(R5)+,64

LOBITS:
ADRCNT:

003752
003754
003756
003760
003761

14 Aug-85

2%:

1%:

000071
000060

000015

3¢:

ggg

.BYTE O
.BYTE O

MOV
MOV
MOvB
MOve
MOV
CLR
MOV
CMPB
8EQ
CMPB
eLY
cMPB
8GT
BIC8
CLR
8158
ADD
crPB
8EQ
ASL
MoV
ASL
ASL
ADD
BR
INSTER
B8R

(R5)+,74
(RS)+,8%
(R5)+,9¢
(R5)+,104
R5,(SP)
S
4INBUF ,R4
#15,.(R4)
34
(R4),s'0
3¢
(R4),8'9
3
4'0,(R4)
R2
(R4). R2
R2,R5
@15.(R4)
4%
RS
X2
RS5,.R2
SAVE X2
RS
: X4
RS
: X8
R2.R5
:TIMES 10
1¢
28

+TEST TO SEE IF NUMBER IS WITHIN LIMITS

671 003706
672 003712
673 003714

020537
101373
020537

003754
003752

CcHP
8HI
cMe

675 003722

133705

003760

8178

94 ,RS

BNE

3¢

674 003720

g;g 003726

103770

001365

44:

BLO

g;g

R5,7%
38
R3,6%
34

;STORE NUMBER AT SPECIFIED ADDRESS

680
681
682
683

003730
003734
003736
003742

685
686
687
688
689

003750
003752
003754
003756
003760

684 003746

013704
010524
062705
105337

001372

000002
000000
0C0000
000000
000

003756
000002
003761

MOV
MOV
ADD
DECB

BNE

6$:
74:
8¢:
9s:

RTI
0
0
0
.BYTE 0

84.R4
R3,.(R4).
#2,.R5
10%
S$

SEQ

CZ0HJU-CO

DM11

690 003761
691
692
693
694
695
696
697
698 003762
699 003766
700 Q03774
701 003776
702 004000
703 004002
704 004010
705 004012
706 004016
707 004022
708 004024
709 004026
710

ECHO/CABLE TEST

MACRO Y05.03c Wednesday

000

108:

14:13

Page 5 S

SEQ

.BYTE 0

:COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUY

;BUFFER TO THE CHARACTERS “E" AND "C”.
:IF THE CHARACTER IS "E" CLEAR THE FLAG
:IF THE CHARACTER IS "C"” SET THE FLAG
017605
122737
001002

000000
000105

006066

105015

000406

122737

001005

112715
062716
000002
104404
C00755

000103

177777

000002

006066

.PAWCH : MOV
cMPE
BNE
CLRB
1%:

2s:

34:

711
712

713
714 004030
715 004032
716 004034
717 004036
718 004042
719 004046
720 004052
721 004056
722 004062
723 004066
724 004072
725 004076
726 004102
727 004104
728 004110
729 004114
730 004116
731 004120
732 004122
733 004124
734 004126
735 004130
736 004134
737 004136
738 004142
739 004144
740 004150
741 004152
742 004156
743 004162
744 004164
745 004166
746 004170

14 Aug-85

8(SP).RS
&' €, INBUF
13
(R5)

;IS

@' C, INBUF

;IS

MOvB
ADD
RTI

@-1,(RS)
02,(SP)

377

.PAWCH

B8R

BNE

cMPB

INSTER

“E”

»C»

;000

;RETRY

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
104401
005434
104413
017601
062716

€l2137

112137
112137
013137
013704
113705
012700
010403
042703
062703
110320

006204
006204
006204
005305
001365
012703
114023
105337
001374
105737
001405
112723
105337
001373
105013
104401
006112

OCTASN:
000000
000002
004662
004664

004665

004666
004666
004664
006100

177770
000260

1%:
2%:

3$:

TYPE

MCRLF
SAVOS5
MOV
ADD
MOV
Move

MOve
MOV
MOV
MOve
MOV
MOV
BIC
ADD
MOVB
ASR
ASR
ASR

0DEC

006112

004664

BNE

4 :

004665
000240
004665

MOV
MOVB

6$:

o177770,R3
¢260,R3
R3,(RO).
R4
R4
R4

RS
34

OMDATA,R3
-(RO),(R3)«

DECB
BNE

CHRCONT
43

BEQ
MOVB
DECB
BNE
CLRB
TYPE

64
4240,(R3).
SPACNT
54
(R3)

1518

5%:

8(SP),R1
#2,(5P)
(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+,SPACNY
a(R1)+ ,BINWRD
BINWRD,R4
CHRCNT RS
OTEMP RO
R4 ,R3

MDATA

SPACNT

CZDHJ-CO
747
748
749
750

751
752

DH1l ECHO/CABLE TEST

004172
004176
004200
004202

005337
001325
104407
000002

MACRO Y05.03¢ Wednesday

004662

OEC
BNE
RESOS
RTI

Page > 6

SEQ@ 19

WRDCNT
1

:REGISTER USAGE.

004204
004212
004220
004226
004230
004236
004240

762 004246

763 004250
764 004256

765 004260
166 004266
767 004270
768 004276
769 004300
770 004306
771 004310
772 004316
773 004320
774 004326
775 004330
776 004336
777 004340
778 004346
779 004350
780 004356
781 004360
782 004366
783 004370
784 004376
785 004400
786 004406
787 004410
788 004416
789 004420
790 004426
791 004430
792 004436
793 004440
794 004446
795 004450

796 004456

797 004460

798
799
800
801
802
803

14:13

: THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND
:LINE NUMBER (LINENU) FOR DHLPR, DHBAR AND DHSCR

;22
755
756
757
758
759
760
761

14-Aug 85

004466
004470
004476
004500
004506
004510

013737
052737
023727
001004
01273~
000572
023727
001004
012737
000562
023727
€01004
012737
000552
023727
001004
0i2737
000542
023727
001004
012737
000532
023727
001004
012737
000522

023727
001004
012737

000512
023727
001004
012737
000502
023727
001004
012737
000472
023727
001004
012737

000462

023727

001004
012737
000452
023727
001004
012737

005110
000100
005110

005112
005112
000000

000001

005114

005110

000001

000002

005114

00S110

000002

000004

005114

00S110

000003

000010

005114

005110

000004

000020

005114

005110

000005

000040

005118

005110

000006

000100

005114

005110

000007

000200

005114

005110

000010

000400

005114

005110

000011

0v1000

005114

005110

000012

002000

005114

005110

000013

004000

005114

SET:

BARO:

BAR1:

BAR2:

BARS3:

BAR4:

BARS:

BARG6:

BARTY:

BARS:

BAR9:

MOV
81Ss
CMP
BNE
MoV
BR
CcMP
BNE
MOV
B8R
CMP
BNE
MOV
B8R
CMP
BNE
MOV
B8R
cMe
BNE
MOV
BR
CHP
BNE
MOV
B8R

cMP
BNE
MOV

8R
cMP
BNE
MOV
B8R
cMP
BNE
MoV
B8R
cHP
BNE
MOV

BAR1O:

BAR1l:

CMP

BNE
MOV
B8R
CHMP
BNE
MOV

LINENU, @ONUMLIN
@B8IT06,30NUMLIN
LINENU, €0
BAR1
01, 80NUMBAR
SET1
LINENU, 01
BAR2
&2 , 3ONUMBAR
SET1
LINENU, 02
BAR3
44 , 3ONUMBAR
SET1
LINENU, 03
BARS
210, 3ONUMBAR
SET1
LINENU, 04
BARS
220, 8ONUMBAR
SET1
LINENU, @5
BAR6
€40, 3ONUMBAR
SET1

LINENU, 86
B8AR7
2100, 3ONUMBAR

SET1
LINENU, @87
BARS
€200, BONUMBAR
SET1
LINENU, 410
BAR9
4400, BONUMBAR
SET1
LINENU, 211
BAR10O

;SAVE LINENU
;SET REC INTERRUPT ENABLE
:IS IT LINE 0?
iNO
:STORE BAR BIT O

;IS IT LINE 17
:NO
;STORE BAR BIT

;IS IT LINE 27
;NO
:STORE BAR BIT 2

;IS IT LINE 32
:NO
:STORE BAR BIT 3
:IS IT LINE 4?7
sNO
:STORE BAR BIT 4
+IS IT LINE S?
:NO
:STORE BAR BIT S5

;IS IT LINE 62
:NO
;STORE BAR BIT 6
+IS IT LINE 7 2
sNQ
;STORE BAR BIT 7
:IS IT LINE 10?
iNO
;STORE BAR BIT 8

01000,80NUMBAR

;IS IT LINE 11?
:NO
;STORE BAR BIT 9

LINENU, 812

+1S IT LINE

SET1

BAR11
€2000, 30NUMBAR
SET1
LINENU, 013
BAR12
£4000, 3ONUMBAR

127

:NO
;STORE BAR BIT 10

:IS IT LINE 137

iNO
:STORE BAR BIT 11

CZ0MJ-CO

DOM11 ECHO/CABLE

804 0043516
805 004520
806 004526

000442
023727
001004

808
809
810
811
812
813
814

000432
023727
001004
012737

807 004530
004536
004540
004546
004550
004556
004560
004566
815 004570
816 004576
817 004600
818 004606
819 004610
820 004616
821 004620
822 004624
823 004630
824 004634
823 004636
826 004640
827 004642
828 004646
829 004652
830 004654
831 004660
832
833
834 004662
835 004664
836
837 004666
838
839
004670
004672
004674
004676
004700
004702

004704
004706
004710
004712
004714
004716
004720
004722
004724
004726
004730
004732
004734
004736
004740

012737

000422
023727
001004
012737
000412
023727
001004

012737

000492
005037
012701
22137
001407
005721
001373
104401
012705
000402
011137
000205

TEST

MACRO

005110

000014

010000

005114

005110

000015

020000

005114

005110

000016

040000

005114

005110

000017

100000

005114

005114
004670
005104

Y05.03c

Wednesday

BAR12:

BAR13:

BAR14:

BARLS:

BARNUN:
SETL:
1¢:

2$:
3s:

SEQ 20

;IS IT LINE 14?
iNO
;STORE BAR BIT 12

C(CMP
BNE

LINENU, #15
8AR14

ggggOO.SONUMBAR

;IS IT LINE 15?
;NO
:STORE BAR BIT 12

CMP

LINENU, #16

;IS IT LINE 167

B8R

BNE
ggv

SET1

BAR1S
gg?gOO.SONUHBAR

iNO
;STORE BAR BIT

CMP
BNE
ggv

LINENU, #17
;IS IT LINE 177
BARNUN
sNO
géggOOO.BONUHBAR
;STORE BAR BIT

CLR
MOV
cMp
BEQ
TST
BNE
TYPE
ggv

SONUMBAR
4TABLE2,R1
(R1)+,LINESP
24
(R1)+
1
. MINVAL
ggAUD.RS

MOV
RTS

(R1),SPEED
RS

WROCNT: 0
CHRCNT: O
SPACNT =CHRCNT +1
BINWRD: O

000062
002107
000113
004207
000156
006307
000207
010407
000226
012503
000310
014603
000454
016703
001130

TABLE2:

021003

SET1

Page S5-7

LINENU, #14
BAR13
910000, 3ONUMBAR

000000
000000
004665
000000

002260
023103
003410
025203
004540

14:13

CHMP
BNE
MOV

ggv

005561
001430
005106

B8R

14-Aug-85

;:CLEAR BAR BITS

;IS 1T THE END OF TABLE?
:NO
; INVALID BAUD RATE,BEGIN AGAIN
: JUMP TO BAUD THRU RS
;SET UP BAUD RATE

: THE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR)

.WORD
.WORD

S0.
2107

;20 BAUD
: TWO STOP BITS

LHORD
.WORD
. WORD
.MORD
.WORD

75,
4207
110.
6307
135,

175 BAUD
; TWO STOP BITS
:110 BAUD
;: TWO STOP BITS
:134.5 BAUD

.WORD

150,

i 150 BAUD

.WORD

.WORD
.HORD
.WORD
.WORD
.MORD
LWORD
.WORD

.WORD
.WORD
.WORD
.WORD

10407

1250

200,
14603
300.
16703
600.
21003
1200,

23103
1800,
25203
2400.

: TWO STOP BITS

;ONE STOP BIT

:200 BAUD
;ONE STOP BIT
;300 BAUD
;ONE STOP BIT
:600 BAUD
;ONE STOP BIT
:1200 BAUD
;ONE STOP BIT
:1800 BAUD
1ONE STOP BIT
12400 BAUD

CZ0HJ CO

DH11 ECHO/CABLE

861 004742
862 004744
863 004746

864 004750
865 004752
866 004754
867
868
869
870
871 004760
872 004762
873 004764
874 004766
875 004770
876 004772
877 004774
878 004776
879 005000
880 005002
881 005004
882 005006
883 005010
884 005012
885 005014
886 005016
887 005020
888
889
890 005022
891 005024
892 005026
893 005030
894 005032
895 005034
896 005036
897 005040
898 005042
899 005044
005046

005050
005052
005054
005056
005060
005062
005064
005066
005070
005072
005074
005076
005100
005102
005104

005106

027303
011300
031403
022600
033503

177777

TEST

MACRO Y05.03c Wednesday
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

000000

14-Aug-85 14:13
27303
4800,
31403
9600.
33503
-1.0

Page 5 8

SEQ 21

:ONE STOP BIT
;4800 BAUD
;ONE STOP BIT
: 9600 BAUD
;ONE STOP BIT
: TABLE TERMINATOR

; INDIRECT POINTERS

177560
177562
177564
177566

000000
000000
000000
000000
000000
€00000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
001104
000000
000000
000012
000000
000000
000000
000000
000000
000000
000000
000000
000000

177777

000000
000000
000000
000000

000000
000000
000000
000156
006307

TKCSR:

TKDBR:
TPCSR:
TPDBR:

OHSCR:
OHNRC:
DHLPR:
DHBA:
DHBC:
OHBAR:
DHBCR:
DHSSR:
DHSLR:
DHRVEC:
DHRLVL:
DHTVEC:
DHTLVL:

ERRFLG:

PASCNT:

177560

177562
177564
177566

TDATA:
RDATA:
BYTCNT:
LINESP:

SPEED:

;ERROR FLAG

ERRCNT: 0
RETURN: START
ESCAPE: 0
FREEZ1: ©
ICOUNT: 10.
LPCNT:
©
SAVRO:
O
SAVR1:
O
SAVR2:
O
SAVR3:
0
SAYRA:
O
SAVRS:
O
SAVSP:
O
SAVPC:
O
INIFLG: .WORD
WCHFLG: 0
STFLG: ©
LOCKUP: O

LAST:

sNEXT TEST &

O
O
O
110.

6307

sPASS COUNT

;ERROR COUNT
;RETURN ADDRESS
; ADDRESS FOR ERROR ESCAPE
;DATA LOOPING RETURN ADDRESS
:ITERATION COUNT FOR TEST IN PROGRESS
:NUMBER OF ITERATIONS THIS TEST

;RO SAVE AREA
;R1 SAVE AREA
;R2 SAVE AREA

-1

;:R3 SAVE ARE
;R4 SAVE AREA
:RS SAVE AREA
:STACK POINTER SAVE AREA
;CALLING ROUTINE SAVE AREA
;PROGRAM INITIALIZATION FLAG
;:ECHO OR CABLE FLAG
;PROGRAM START FLAG
: TIMEOUT FLAG

;LAST ERROR PC

;:DEFAULT BARUD RATE

sDEFAULT 110 BAUD,
;FDX, 2 STOP BITS

8 BITS/CHAR,

C20MJ-CO

DM11

ECHO/CABLE

918 005110
919 005112

000000
000100

005114
005116
005120
005122
005124

000001
000240
000200
000000
000000

920
921
922
923
924
925
926

TEST

MACRO Y05.03¢

Wednesday

LINENU:

0
100

NUMBAR
:
PRIO:
LESS1:

1
240

NUMLIN:

RECDAT:
TBUF
:

927

928
929 005126
930 005130
931 003132
932 005134
933 005136
934 005140
935 005142
936 005146
937 005152
938 005160
939 005162
940
941
942
943 005164
944 005170
945 005172
946 005174
947 005176
948 005200
949 005202
950 005204
951 005212
952 005220

953
954
955
956
957
958
959

005224
005230
005234
005236
005240
005242
005244
005246
005252
005256
005262
005264
005266
005270
005322
005347
005372
005427
005434
005437
005325
005541

010046
010146
010246
010346
010446
010546
013746
010637
C12737
000000
000777

PFAIL:

000024
005060
005164

000024

14-Aug-85

013706

005060

RESTAR:

200

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

MOV
MOV

PFTAB
TYPE
MPFAIL

PFTAB:
.BYTE

002
012

132
012

012
040

012
040
012
012

MOV
MOV
MOV

CLR
INC
BNE
OCTASC

005024
005074
177550

012

MTITLE:

126
103
077
000
120

MVECTO:
MREGAD:
MQM:
MCRLF
:
MPFAIL
:
MEPASS:
PASTXT:

103
120

TO ALLOW

INTERRUPTS

:ENTER HERE ON POWER FAILURE

MOV
MOV
MOV
Mov

000024
177776

LINE O
REC. INTERRUPT ENABLED

;DEFAULT PRIORITY4,

0
0

MOV

005126
000340
001000
006100
006100

SEQ 22

:DEFAULT VALUE,BAR BIT O
;DEFAULT DEVICE PRIORITY S

;SAVE RO-RS ON PROCESSOR STACK

SP,SAVSP
ORESTART, 24

;SAVE STACK POINTER
:SET UP FOR POWER UP TRAP

sHALT ON POWER DOWN NORMAL

012603
012602

012601
012600
012737
012737
012706
005037
005237
001375
104402
005262
104401
005437
005037
005037
000177
000001
006
000207
015
103
015
0135
040
015
040
015
015

Page S 9

;DEFAULT VALUE,
;:DEFAULT VALUE,

;PROCESSOR WILL
012605
012604

14:13

CLR
CLR
JMP
1

6,2
RETURN
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

TRAP HERE WHEN POWER IS RESTORED

SAVSP,SP
(SP)+.RS
(SP)+.R4
(SP)+,R3
(SP)+ R2
(SP)+ ,R1
(SP)+ RO

;RESTORE STACK POINTER
;RESTORE RO-RS

OPFAIL ,24
4340,PS
OSTACK,SP
TEMP
TEMP
.-4

;SET UP FOR POWER FAILURE

ERHFLG
LAST
SRETURN

€15>¢12><¢12>?DH11 ECHO/CABLE TEST 2¢15>¢12>

/CZ0HJ REVISION CO

<15><12>/VECTOR ADDRESS- 7/
;15;<12’/CONTROL REGISTER ADDRESS- /
? /
c1S><ci12>

POWER FAILURE,

PROGRAM RESTART

€15><12>/C20HJ-CC /
<15><12>/PASS COUNT

TEST

IN PROGRESS /

CZ0MJ-CO
978
979

DH11

005561
005610

980 005642
981 005661
982 005722
983 005774
984 006017
985
989
990
991
992 006036
993 006040
994 006042
995 006044
996 006046
997 006050
998 006052
999 006054
1000 006056
1001 006060
1002 006062
1003 006064
1004
1005
1006
1007 006066
1008
1009 006100

1010
1011 006112
1012
1013
1014
1015
1016 006124
1017 006124
1018 006126
1019 006130
1020 006132
1021 006134
1022 006136
1023 006140
1024 006142
1025 006144
1026 006146
1027 006150
1028 006152
1029
1030 006156

1031 006160
1032 006162
1033 006164
1034 006166
1035 006170
1036 006172
1040 006174

ECHO/CABLE

TEST

015
015

012
012
012
012
012
012
012

015
015
015
015
015

MACRO Y05.03c Wednesday 14 A g-85
111
114
102
124
127
124
103

MINVAL
:
MLINE
:
MSPEED:
MCHAR:

MWHICH:
MTERM:
MCABLE:

.EVEN

14:13

Page 5-10

SEQ 23

.ASCIZ
.ASCIZ

«<15><.i.>/INVALID BAUD RATE
/
«<15><12>/LINE NUMBER IN OCTAL -

LASCIZ
.ASCIZ

<15><12>/TERMINAL ECHO
<15><12>/CABLE TEST /

.ASCIZ
.ASCIZ
LASCIZ

<15>¢12>/BAUD RATE - /
«<15><12>/TYPE A CHAR. ON DH11 TERMINAL /
«<15><12>/WHICH TEST ? ECHO OR CABLE (E OR )
TEST

:TABLE OF POINTERS FOR TRAP DECODING
002602
003246
004030
003300
003372
003402
003154
003214
€02702
003366
003762
003162

TRPTAB:

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVOSP
RSOS5
SCOP1R
.PARAMD
. PAWCH
SvVOS

:BUFFERS FOR INPUT-QUTPUT
000000
006100

INBUF
:
.*.+10
TEMP:
.=.+10
MDATA:
.=.+10

006112
000000
006124

0
0
0

1 TABLE OF POINTERS TO ERROR MESSAGES AND DATA
ERRTAB:

006174
000000
006243
000000
006300
006333
000000
006403
000000
006440

EMe
0

Ems
Y
EM6
0
EM7
0
EMS
0
EM9
0

006471

006567
006615
000000
006644

015

EM1
)
EM2
0
EM3
0

gnlo

012

105

EM1:

LASCIZ

<15><12>/ERROR-

INTERRUPT NOT CAUSED BY FLAG /

1043 006333
1044 006403

006440
006471
006567
006615
1049 006644

1045
1046
1047
1048

1030

1055 006664
1062 006664
006665
006666
006667
0066170
006671
006672
006673
006674
006675
006676
006677
006700
006701
006702
006703
006704
006705

006706
006707
006710
006711

006712
006713
006714
006715
006716
006717
006720
006721
006722
006723
006724
006725
006726
006727
006730
006731
006732
006733
006734
006735
006736
006737
006740
006741

013
015

015
015
015
015
015
015
015
000400

012
012

012

012
012
012
012
012
012

105
105
105
105
105
105
105
105
120

EM2:
EM3:
EM4 :
EMS:
EM6:
EM7:
EM8:
EM9:
EM10:
.EVEN
TABLE:

14-Aug 85 14:13

Page S5

SEQ 24

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

«15><12>/ERROR-NON VALID CHARACTER /
€15><12>/ERROR-WRONG LINE NUMBER /
<15><12>/ERROR-TRANSMITTER DONE SHOULD BE
<15>¢12>/ERROR-NON-EXISTANT MEMORY /

.REPT
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

256.

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE

.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE

.BYTE

<13><135‘NOT
/ERRORRECETVING Ch
<15>¢12>/ERROR-DATA OVERRUN /
<15>¢<12>

VING

€135><12>/ERROR-FRAMING ERROR /
<15>¢<12>/PARITY ERROR /

1041 006243
006300

1042

MACRO Y05.03c Wednesday

=0 (ot (i ot Pt Pt NONNALIN-O

DOM11 ECHO/CABLE TEST

(V¥ X7 TV

CZOHJ-CO

CHARACTERS

SET

-CHECK

CABLE

ERMINATOR

TERMINA

CZDHJ-CO

DH11 ECHO/CABLE TEST

006742
006743
006744
006745

006746
006747
006750
006751
006752
006753
006754
006755
006756
006757
006760
006761
006762
006763
006764
006765
006766
006767
006770
006771
006772
006773
006774
006775
006776
006777
007000
007001
007002
007003
007004
007005
007006
007007
007010
007011
007012
007013
007014
007015
007016
007017
007020
007021
007022
007023
007024
007025
007026
007027
007030
007031
007032

056

MACRO Y05.03c Wednesday
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.8YTC
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

14 Aug-85 14:13
56
37
60
61
62

Page 5-12

SEQ 25

CZDHJ-CO

DOH11 ECHO/CABLE TEST

007033
007034
007035
007036
007037
007040
007041
007042
007043
007044
007045
007046
007047
007050
007051

007052
007053
007054
007035
007056
007057
007060
007061
007062
007063
007064
007065
007066
007067

067070
907071

007072
007073
007074
007075
007076
007077
007100
007101
007102
007103
007104
007105
007106
007107
007110
007111
007112
007113
007114
007115
007116
007117
007120
007121
007122
007123

147

MACRO Y05.03c Wednesdey 14-Aug-85 14:13
.BYTE
.8YTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.B8YTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

147
150
151
152
153
154
155
156
157
160
161
162
163
164
165
166
167
170
171
172
173
174
175
176
177
200
201
202
203

Page 5-13

SEQ 26

CZOHJU-CO

DH11 ECHO/CABLE

007124
007125
007126
007127
007130
007131
007132
007133
007134
007135
007136
007137
007140
007141
007142
007143
007144
007145
007146
007147
007150
007151
007152
007153
007154

007155
007156
007157
007160
007161
007162
007163
007164
007165
007166
007167
007170
007171
007172
007173
007174
007175
007176
007177
007200
007201
007202
007203
007204
007205
207206
00,207
007210
007211
007212
007213
007214

240
241
242

243
244
245
246
247
250
251
232
253
254
255
256
257
260
261
262
263
264
265
266
267
270
271
272
273
274
275
276
277
300
301
302
303
304
305
306
307
310
311
312
313
314
315
316
317
320
321
322
323

324

325
326

327
330

TEST

MACRO

Y05.03c

Wednesday

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

240
241
242
243
244
245
246
247

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

250
251
252
253
254
255
256
257

26N
261
262
263
264
265
266
267
270
271
272
273

274
275
276
277
300
301
302

303

304
305
306

307

310
311
312
313
314
315
316
317
320
321
322
323
324
325
326

327
330

Aug

14:13

Page

SEQ 27

C20HJ-CO

DH11 ECHO/CABLE

007215
007216
007217

007220
007221
007222
007223
007224
007225
007226
007227
007230
007231
007232
007233

007234
007235
007236
007237
007240
007241

007242

007243

007244
007245
007246
007247
007250
007251
007252
007253
007254
007255
007256
007257
007260
007261
i

1063

007262
007263

TEST

MACRO Y05.03¢c

331
332
333

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.8YTE

334
335

336
337
340
341
342
343
344
345
346
347
350
351
352
353
354
355
356
357
360
361
362
363
364
365

366
367
370

371
372
-73
374
375
376
377
000001

Wednesday

.END

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

14-Aug-85
331
332
333
334
335
336
337

340
341
342

343
344
345
346
347
350
351
352
353
354
355
356
357
360

14:13

Page 5-15

SEQ 28

CZ0HU CO
DH11
Symbol table
ADRCNT

BARNUN

B8ARO

BAR1
3AR10
BAR11
BAR12
BAR13
BAR14

BAKR1S

BAR2
BAR3
BARA
BARS
BAR6
BAR7
BARS

BARY9

BAUD
BEGIN
BINMRD
B8IT00 =
BIT01 =
BIT02 =
8IT93 =
BITO4 =
BIT0S =
BIT06 =
BITO7 =
BIT08 =
81709 =
B8IT10 =
8IT11 =
BIT12 =

ECHO/CABLE

004620

004220

004240
004460
004500
004520
004540
004560

004260
004300
004320
004340
004360
004400
004420

004440

sss

Assembler

004770
005010
005006
005020
005015
006174
006644
006243
006300
006333
006403
006440

EM7?

006471

EM8
EM9
EoP
ERRCNT
ERRFLG
ERRMSG
ERRORS

006567
006615
002500
005030
005024
003034
002720

ERTABO
ESCAPE
EXITER

003114
005034
003072

ERRTAB

006124

FREEZL

005036

HALTS
HILIM

003052
003560
ICOUNT
005040
INBUF
006066
INIFLG
005064
INSTER= 104404
INSTR = 104403
INSTRE
003372
INSTRG
003300
INSTR1
003312
INSTR2
003400

003562
004776

007264
000000
Errors detected:

Y05.03¢

005002
005000
005004
004774
004772
005014
005012

DOHSCR
OHSLR
DHSSR
OHTLVL
DHTVEC
EM1
EM10
EM2
EM3
EM4
EMS
EM6

004600

ABS.

MACRO

DHBAR
OHBC
OHBCR
OHLPR
DHNRC
OHRLVL
OHRVEC

003565

001430
001464
004666
000001
000002
0U0004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
BIT13 = 020000
8IT14 = 040000
BIT1S5 = 100000
BYTCNT
005102
CHRCNT
004664
DATABP
003046
DELAY
001702

DEVADR
DHBA

TEST

000
801

(RW,.I,GBL,ABS,0VR)
(RW,I,LCL,REL,CON)

statistics

reads:
Work
f'le
Work
file writes:
Size of work file:
Size of core pool:
Operating
system:

0
0

8350 Words

(

9596 Words
(
RSX-11M/PLUS

33 Pages)

36 Pages)

Wednesday

INTRAN
INTREC
INTSVC
LAST
LESS1
LIGHTS
LIMITS
LINE
LINENU
L INESP
LOBITS
LOCKUP

LOGICA
LOLIM
LPPENT

MCABLE

MCHAR

M RLF

MOATA

AEPASS
MINVAL

ML INE
MPFAIL
o
MREGAD
nsG

MSPEED

MTERM
MTITLE
MVECTO
MUHICH
NEXT
NUMBAR
NUML IN
OCTASC=

OCTASN

PARAM o
PARAMD
«
PARANS
PARAML
PARERR
PASARG
PASCNT

Aug 85

002436
002266
001716
005074
005120
001102
003512
001400
005110
005104
003564
005072
002556

0033556
005042
006017
005661
005434
006112
005525
005561
005610
005437
005427
005372
003314
005642
0035771
0035270
005347

14:13

Page

--16

PASTXT
PAWCH =
PFATL
PFTAB
POPRO =
POP1SP POP25P
PRIO
PS
.

005541
104412
005126
005262
012600
005726
022626
005i16

177776

PUSHRO= 010046
PUSH1S= 005746
PUSH2S
» 024646
002264
QUITS
RDATA
005100
RECDAT
005122
RE SREG
003050
RESTAR
005164
RESTRY
002570
RESOS = 104407
RE TURN
005032
RSOS
003214
005052
SAVPC
SAVRC

SAVR}
SAVR2
SAVR3
SAVRA
SAVAS
SAVSP
SAVOS »

SEQ 29

5V0S
SVOSP
SWR
SW00
=
SWO01
=
SW02
=
SWo3
=
SWo4
=
SKOS
=
SW06
=
SW08
=
SWO9
=
SW10
=
SWll
=
SWi12
SK¥13
=
SWis4
=
SUiS
=
TABLE
TABLE2
TBUF
TOATA
TEMP
TEST1
TEST2
IKCSR

003162
003154
001100
000001
000002
000004
000010
000020
000040
000100
000400
001000
002000
004000
010000
020000
040000
100000
006664
004670
005124
005076
006100
001566
002074
004760

TPDBR
TRPOK
TRPSRY
TRPTAB
“YPDAT
IYPE
=
JYPER
TYPMSG

004766
003134
003122
006036
003036
104401
003246
003020

TKDBR
TPCSR

VECL
VEC2

004762
004764

MOFLG

001272
001302
005066

.PARAN
PAUCH

003566
003762

HROCNT
004662
$Q
= 000400

CZD0HJ CO
DH11
Symbol table

ECHO/CABLE

TEST

MACRO

Y05.03c¢

Elapsed time: 00:00:32.50
CZDHJC,CZDOHJUC.SEQ/
-SP=CZDHJC .DOC,CZDHJC. P11

Wednesday

Aug-85

14:13

Page

5£Q