Digital PDFs

AH-8566C-MC

November 1980

75 pages

Original

4.1MB

view download

OCR Version

3.6MB

view download

Document:	CZDMHC0 DMC11 DMC-11 FREE RNGS TSTS NOV 1980 bw
Order Number:	AH-8566C-MC
Revision:	000
Pages:	75
Original Filename:	CZDMHC0__DMC11__DMC-11_FREE_RNGS_TSTS__AH-8566C-MC__NOV_1980_bw.pdf

OCR Text

DMC-11 FREE RNGS TSTS AH-B566C-MC ~
CZDMHCO

fiE

FICHE

OF 1

0 ommmeom
Movweo

’
-BU
is
= SU8L
mocw

(20MKH

MACYYY 30A(1052
06-JuL-80
08-JuL-80 08:21

08:21

PAGE 2

SEQ 0001

.REM

PORIPINININY
~b b =D b od b ) o e b

NENA) =2 OO0 NO NN 2O OO0 NO N

NN =

(ZDMH. P11

IDENTIFICATION
PRODUCT CODE:

AC-8564C-M(C

PRODUCT NAME:

CZDMHCO DMC-11

DATE:

AUGUST 1980

MAINTAINER:

DIAGNOSTICS-MERRIMACK

FREE RUNNING TESTS

WITHOUT
THE INFORMATION IN THIS DOCUMENT [S SUBJECT TO CHANGE
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES
gg :ES?ONSIBILITY E0R ANY ERRORS THAT MAY APPEAR [N THIS
CUMENT.

THE SOF TWARE DESCRIBED IN THIS DGCUMENT

LICENSE

TERMS OF

NOT

USE

UNDER

SUCH LICENSE.

D!GITAL EQUIPMENT CORPORATION ASSUMES
THE

IS FURNISHED

AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH Tkt

RELIABILITY OF

SUPPLIED BY DIGITAL.

RESPONSIBILITY

I7S SOFTWARE ON EQUIPMENT THAT

FOR
IS

(IDMH
MACY11 30A(1052)
08-JuL-80
(7DMH.P1"
08-JuL-80 08:21

08:21

PAGE
3

SEQ 0002

PAGE 2

ABSTRACT

«8
«9
50
2;

THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS

53
5
59
56
g;

PARAMETERS MUST BE SET UP TO ALERTM THE DIAGNOSTICS TO THE
DMC11
CONFIGURATION.
THESE PARAMETERS ARE CONTAINED I[N THE
STATUS TABLE AND ARE GENERATED IN TWO WAYS:
1) MANUAL
INPUY = THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

59
60
61

MICRO-PROCESSORS
DMC11-AL
CIDMH TESTS THE DMC11=AR AND
(M8200-YA AND M8200-YB), OR THE KMC11 MICRO-PROCESSOR (MB8204).
FREE RUNNING TESTS ARE PERFORMED.
A LINE UNIT (MB201 OR

VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE
OF THE DMC11 ARE CGRRECT IN ITS ENVIRONMENT.

INSTALLED.

OPERATIONS

M8202)

65
66
2;

CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE T0 BE
RUN IN SEQUENCE TO [INSURE THAT IfF AN ERROR SHOULD OCCUR IT

WiLL BE DETECTED AT AN EARLY STAGE.

NOTE:

;;

THE

MUST

ALL

DIAGNOSTIC BY MANUFACTURING.

CZDMH CAN BE USED AS A HEAT TEST

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

FIVE DIAGNOSTICS ARE:

DIDMC [REV) BASIC W/R AND MICRO-PROCESSOR TESTS

76
75

2.
3.

DIDME [REV) ODCMP LINE UNIT TESTS
DZ0MF [REV) BITSTUFF LINE UNIT TESTS

CIDMH [REV] FREE-RUNNING TESTS (HEAT TEST TAPE)

DIDMG [REV] CROM AND JUMP TESTS

NOTE:

THE NAMES OF THESE DIAGNOSTICS MAY VARIE AS THEY ARE UPDATED.

REQUIREMENTS

2.1

EQUIPMENT

ANY PDP11 FAMILY CPU (EXCEPT AN LSI=11) WITH MiINIMUM BK MEMORY

DMC11-AR WITH DMC11-DA

ASR 33 (OR EQUILIVALENT)

DMC11-FA

OMC11=-AL WITH DMC11-MA OR DMC11-MD

e DMH

MACY11 30A(1052)
g?-JUL-SO
08-JuL-80 08

K
.P
(1 DM
91
9
93
94
95
96
97
98
99

08:21

PAGE 4

SEQ 0003
PAGE

2.2

STORAGE

PROGRAM WILL USE

ABL

AND

THE “'STATUS TABLE'' INFORMATION WHICH IS GENERATED AT START

BOOTSTRAP

LOADER

DIAGNOSTICS

(AUTO=SIZING).

100

ALTERED BY

ALL

RESIDE.

MANUAL

MEMORY

EXCEPT

WHERE

LOCATIONS 1500 THRU 1640;

INPUT

(QUESTIONS)

CONTAIN

AUTOMATICALLY

THIS AREA IS5 AN OVERLAY AREA AND SHOULD NOT BE

THE OPERATOR.

LOADING PROCEEDURE

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING
THE
ABSOLUTE LOADER.
NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH
AS DISK ,MAGTAPE ,DECTAPE, OR
(CASSETTE;
FOLLOW
INSTRUCTIONS
;gngTHE
MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC

d eod o

WM AN WNANI PNV PONINIPNONININIAN)
=
b b b
b 2 2 2 D
BN
= OO
NN WN OO0 NOWNE WO 0

ME THOD

MEMORY

B ek e

NN
VN =~~~
~NN~

s e

ABSOLUTE LOADER STARTING ADDRESS *500

D el

12K
16K

3.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.
(ALSO PLACE 'HALT' Sw UP)

3.1.2

DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

DEPRESS 'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW

el e

D e

20K
24K
28k

SIZE

BE LOADING INTO (PU)

(IDMH

MACY1Y 30A(1052)
O08-JuL-80
08-JuL-80 08:21

. F1Y
(IDMK

135
136
137
138
139

08:21

PAGE 5
P.GE

A.
B.

SET SWITCH REGISTER T0 000200
DEPRESS 'LOAD ADDRESS' KEY AND RELEASE

SET SWR TO ZERO FOR 'AUTO SIZING' OR SWR BIT0=1 FOR MANUAL
INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS
SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN DMCM
DIAGNOSTIC.

DEPRESS 'START KEY' AND RELEASE.

THE

PROGRAM

WILL

TYPE

MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START
UP OF THE PROGRAM) AND ALSO THE FOLLOWING:
MAP OF

NP
OO0 NON N B

STARTING PROCEEDURE

[V XV TV IV IV YV RV LV, ]V, ]

SEQ 0004

(SR

DMC11

STAT1

001500 160010 145310
001510 160020 145320

STATUS

STAT2

STAT3

177777
177777

000000
000000

THE PROGRAM WILL TYPE °'R' AND PROCEED TO RUN
THE
DIAGNOSTIC.
THE
ABOVE IS ONLY AN EXAMPLE,
THIS WOULD INDICATE THE STATUS
TABLE STARTING AT ADD.
1500 IN THE PROGRAM.
IN THIS EXAMPLE

THE
TABLE CONTAINS THE INFORMATION AND STATUS OF TwWO DM(C11'S.
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO SIZING

AELPDONE.

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

INDICATING MANUAL
IF THE DIAGNOSTIC WAS STARTED WITH SW00=1
FCLLOWING SHOWS AN EXAMPLE OF THE
THEN THE
INPUT
PARAMETER

QUESTIONS ASKED AND SOME EXAMPLE ANSWERS:

S?U MANY DMC11°'S TO BE TESTED?1

CSR _ADDRESS?160010
VECTOR ADDRESS?310
(4,5,6,7)?5
BR PRIORITY LEVEL?
DOES MICRO-PROCESSOR HAVE CRAM?

WHICH LINE UNIT?

(Y OR N)N

[F NONE TYPE ''N'',

M8202 TYPE '2''N
IS THE LOOP BACK CONNECTOR ON?Y
SWITCH PAC#1 (DDCMP LINEN)?377
SWITCH PAC#2 (BMB73 BOOT ADD)?377

FOLLCAING THE QUESTIONS THE

STATUS

MB20Y

TYPE

"7,

MAP

PRINTED

OQUT

DESCRIBED ABOVE, THE |INFORMATION IN THE MAP REFLECTS THE
IF THE DIAGNOSTIC WAS STARTED WITH
ANSWERS TO THE QUESTIONS.
THEN NO QUESTIONS ARE ASKED
(AUTO-SIZING)
SW00=0 AND SW07=0
AUTO-SIZING IS
IF
OUT.
PRINTED
IS
STATUS-MAP
AND ONLY THE
TO BE CORRECT
VERIFIED
BE
MUST
N
USED THE STATUS INFORMATIO
(MATCH THE HARDWARE).
IF IT DOES NOT MATCH THE HARDWARE THE
RIgG?gEBIC MUST BE RESTARTED WITH SW00=1 AND THE QUESTIONS
NSW

PAGE

SEQ 0005
PAGE

b
b e

SW
SW

198
199

201

200

SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:

SET:

e
el
i
il
il
—

SET:

NN By =

[LS T, NT . N1,N1,81.§]
§)

CONTROL SWITCH SETTINGS

=2 ed

4. 1

189
190
191
192
193
194
195
196
197

08:21

~NOO OO =PI~V

MACY11 30A(1052)
08-JuL-80
CIDMH
CZ0MH . P11
08-JuL-80 08:21

HALT ON ERROR

LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT TYPE OUT/ABELL ON ERROR.
(QUICK PASS)
INHIBIT ITERATIONS.
ERROR
ON
TEST
NEXT
ESCAPE TO
DATA
CURRENT
LOOP WITH
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
HALT IN
ROMCLK
ROUTINE
BEFORE

CLOCKING

MICRO-PROCESSOR
RESERVED
RESERVED

RESELECT DMC11'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST

BUILD NEW STATUS TABLE FROM QUESI]INNS.
AND
SW00=0
AUTO=-SIZING)

NEW

STATUS

TABLE

(IF SW07=0
BUILT BY

SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED
AS NEEDED
WHILE THE DIAGNOSTIC IS RUNNING.
SWITCHES 00-03 AND SWIt(H 07
ARE STATIC, AND ARE USED ONLY ON STARTING
OR
RESTARTING
THE
DIAGNOSTIC.

N AN AN AN N NN PO RO NV A N PO RO NI
2
OWVNEBE W 2OV NOWNSWN
2O 0

MACY11 30A(1052)
08-JuL-80
(l0MH
. P11
08-JuUL-80 08:21
(I0MK

08:21

PAGE

SEQ 0006
PAGE

‘. 1 .2

SWITCH REGISTER OPTIONS (AT START UP)
Sw 01

RESTART PROGRAM AT

SELECTED
TEST.
IT
IS
STRONGLY
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE
TRYING TO SELECT A TEST, THE REASON BEING IS THAT
THE
PROGRAM HAS
TO CLEAR
AREAS AND SET UP PARAMETERS.
TEST
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK
NO.?
ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED
?ggTCARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED

Sw 02

THIS SWITCH WHEN USED WITH
LOCK ON SELECTED TEST.
SWO1
WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE
SELECTED TEST.
HITTING ANY KEY ON THE
(CONSOLE
WILL
1T ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY
LET
1S HIT AGAIN.
IF
SW02=0 WHEN SW01
IS USED.
THE
PROGRAM WILL BEGIN AT THE SELECTED TEST AND C(ONTINUE
NORMAL OPERATIONS.

Sw 03

A
THAT
PLEASE NOTE
RESELECT OMC11'S DESIRED ACTIVE.
TYPED OUT FOR SETTING THE SWITCH REGISTER
IS
MESSAGE

THIS MEANS IF THE SYSTEM HAS
EQUAL TO DMCI1'S ACTIVE.,
FOUR DMC11S;
BITS 00,01,02,03 wiLL BE SET IN LOC
"DMACTV'
FROM THE
SWITCH REGISTER.
USING
THIS
FOUR
IF
THEREFORE
LOCATION;
THAT
ALTERS
SWITCH(SWOO)
DMC11S ARE IN THE SYSTEM e««D0 NOTeee SET SWITCHS
THIS WOULD BE
GREATER THAN SW 03 IN THE UP POSITION.
THAN
DO NOT SELECT MORE ACTIVE DMC11S
A FATAL ERROR.
THERE

ME THOD:

1S INFORMATION ON IN THE STATUS TABLE.

LOAD ADDRESS 200

PROGRAM WILL

NUMBER (IF

START WITH SW 00=1

TYPE MESSAGE

SET A SWITCH FOR EACH DMC DESIRED ACTIVE.
[F YOU HAVE 4 DMC'S BUT ONLY WANT 70
EXAMPLE:
RUN THE FIRST AND THE LAST SET SWR BITS O AND
3 = 1.

PRESS CONTINUE

VALID)

(EXCLUDING 11/05)
SET WITH ANY OTHER

PRESS CONTINUE.

WILL
SWITCH

DATA

SETTINGS

LIGHTS
DESIRED.

309

310

08:21

PAGE 8

SEQ 0007
PAGE

61 .3

DYNAMIC SWITCHES

ERROR SWITCHES

SW
SWw
SW
SWw
SW

268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308

08-JuL-80

262
263
264
265
266
267

30A(1052)

08-JuL-80 08:21

MACY11

W SN
—

(IDMH

(DMK . P11

SCOPE
1.

12
13
15
08
10

DELETE PRINT QUT/BELL ON ERROR.
DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST(ON ERROR).
GOTO NEXT TEST(ON ERROR).

SWITCKES

Sw0é

HALT
IN
ROMCLK
ROUTINE
MICRO-PROCESSOR
INSTRUCTION.

BEFORE
THIS

THE
STATIC
STATE
BEFORE
CONTINUE TO RESUME RUNNING.

CLOCKING
ALLOWS
THE

OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN

SwW09

CLOCKED.

(IF ENABLED BY 'SCOP1') ON AN ERROR;

IF AN '¢'

HIT

[S§

PRINTED
IN FRONT OF THE TEST NO.
(EX,
+TEST NO.
10
)
SW09
IS
INCORPORATED
IN
THAT
TEST
AND
THEREFORE
SWO9 IS USUALLY THE BEST SWITCH FOR THE

IF
Sw08=0).
SCOPE LOOP (SW14=0, Sw10=0, SW09=1,
AND THERE IS A HARD ERROR
IS NOT ENABELED;
SW09
(CONSTANT);
SWO8
IS BEST.
(SW14=1,0,
Sw10=0,
SwW1é4=1
FOR INTERMITTEMT ERRORS;
SW09=0, SwW0B=1).

WILL LOOP ON TEST
3.

L.
4.2

Swn

SW14

ERROR.

INHIBIT

REGUARDLESS

ERROR

(SW14=1, SW10=0, Sw09=0, Sw08=1,0)

NOT

INTERATIONS.

LOOP ON CURRENT

TEST.

STARTING ADDRESS

STARTING ADDRESS IS AT 000200
THERE
ADDRESSES FOR THE DMC11 DIAGNOSTICS.
NOTE:

ARE
NO OTHER
STARTING
(SEE SECTION 4.0)

If ADDRESS 000042 IS NON-ZERO THE PROGRAM

ASSUMES
[T
ACT
WILL
AND
CONTROL
XXDP
OR
ACTI1
UNDER
IS
ACCORDINGLY AFTER ALL AVAILABLE DMC11°S ARE TESTED THE
PROGRAM WILL RETURN TO 'XXDP' OR 'ACT-11',

OPERATING PROCEDURE

WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED
IN
SECTION 4.0 wILL BE PRINTED, AND PROGRAM WiLL BEGIN RUNNING
THE

DIAGNOSTIC

08-4uL-80
MACYYI1 30A(1052)
08-JuL-80 08:21

CI0MH

08:21

PAGE 9

SEQ 0008
PAGE 8

PROGRAM AND/OR OPERATOR ACTION
THE

TYPICAL APPROACH SHOULD BE

HALT ON ERROR

OOV

2.
3.
4.

[

AN L

e I

5.2

~NO NS

]

—

M AN AN AN N NN N

(I0MKH. P

THE

(VIA SW 15=1)

WHEN EVER AN ERROR OCCURS.

CLEAR SW 15.
(LOOP ON THIS TEST)
SET SW 14:
(INHIBIT ERROR PRINT OUT)
SET Sw 13:

TEST NUMBER AND PC WILL BE

ERROR

TYPED

OUT

AND

POSSIBILY

MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR

AN IDEA AS TO THE SOURCE OF THE PROBLEM.
IF IT
IS
NECESSARY
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT,
LOOK IN
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND
THEN
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION Of
THE

TEST

CAN BE DETERMINED.

ERRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND

PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND Sw
12=0).
IN MOST CASES ADDITIONAL INFORMATION WILL BE
SUPPLIED
%NETQSRSSE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION Of
H

6.2

ERROR RECOVERY

(GAIN
IF FOR SOME REASON THE DMC11 SHOULD ‘'HANG THE BUS'
INHIBITED)
ARE
FUNCTIONS
MANUAL
CONSOLE
THAT
SO
CONTROL OF BUS

AN INIT OR POWER DOWN/UP 1S NECESSARY FOR OPERATOR

TO REGA'N
LOCATION
IN
LOOK
HAPPEN;
SHOULD
THIS
IF
(PU.
CONTROL OF
*TSTNO® (ADDRESS 1226)FOR THE NUMBER OF
THE
TEST
THAT
WAS
RUNNING AT
THE
TIME OF THE CATASTROPHIC ERROR.
IN THIS WAY
THE OPERATOR WILL HAVE AN [DEA AS TO WHAT THE DMC11 WAS DOING
AT

THE

TIME

THE

ERROR.

RESTRICTIONS

STARTING RESTRICTIONS

SEE SECTION 4.

(PLEASE)

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
STARTED.
Y:EBl?FORHATION PRINTED ON THE
TTY TO COMPLETLY
ISOLATE

PROBLEMS.

08-JuL-80
(Z DMN
MACY11 30A(1052)
K
. P11
Q2 DM
08-JuL-80 08:21

08:21

PAGE

SEQ 0009
PAGE 9

7.2

OPERATING RESTRICTIONS
THE FIRST TIME A DMC11 DIAGNOSTIC IS LOADED INTO CORE AND
RUN
THE STATUS TABLE MUST BE SET UP,
THIS IS DONE BY MANUAL INPUT

(SW00=1) OR BY AUTOSIZING

(SW00=0

AND

SW07=0).

THEREAFTER

HOWEVER
THE
STATUS
TABLE
NEED
NOT
BE SETUP BY SUBSEQUENT
RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC
BECAUSE
THE
STATUS
TABLE
I35 OVERLAYED. _ THE
CURRENT PARAMETERS IN THE

STATUS TABLE ARE USED WHEN SW07=1 ON START UP.

7.3

HARDWARE

CONFIGURATION RESTRICTIONS

DMC11(MB8200)= JUMPER W1 MUST BE IN, AND SWITCH 7 OF

BE IN THE OFF POSITION.
KM( (M8204)- JUMPER W1 MUST BE

IN.

E76

MUST

LINE UNIT(MB2071)- JUMPERS W1, W2, AND W4 MUST BE IN.
W3,
AND WS MUST
BE
OuT.
SW8 OF
EZ26 MUST BE

JUMPERS
IN THE ON

LINE UNIT (MB202)- JUMPER W1 MUST BE IN.

MUST

POSITION.

IN THE OFF POSITION.

Swb OF E26

MISCELLANEOUS

EXECUTICN TIME

ALL OMC11 DEVICE DIAGNOSTICS WILL GIVE AN 'END
PASS'
(PROVIDING
NO
ERRORS
AND
SW12=0)
WITHIN & MINS.
ASSUMING SwW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE
POSSIBLE EXECUTION.
THE ACTUAL EXECUTION TIME DEPENDS

MESSAGE
THIS IS
FASTEST
GREATLY

ONS}?S POP11 (PU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE
SY

8.2

PASS COMPLETE

NOTE:
EVERY TIME THE PROGRAM [S STARTED;
THE TESTS WILL
RUN
AS
IF
SW11
(DELETE
ITERATIONS)
WAS UP
(=1),
THIS IS T0
*VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE.
THEREFORE
THE

FIRST

PASS

=-EACH TIME PROGRAM IS STARTED- WILt BE A 'QUICK
ODMC11'S
IN
SYSTEM ARE
TESTED.
WHEN
THE
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE Of

PASS' UNTIL ALL

THE PRINT OUT TO Bt EXPECTED.

END PASS C2DMH CSR:

175000 VEC:

03CO PASSES:

000001

ERRORS:

000000

NOTE:

THE PASS COUNT AND ERROR COUNTS ARE
CUMMULITIVE
FOR
THAT [S RUNNING, AND ARE SET TO ZERO ONLY
EACH DMC11
WHEN THE DIAGNOSTIC IS STARTED.
THEREFORE
AFTER
AN
OVERNIGHY RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS
FOR EACH DMC11 SINCE THE DIAGNOSTIC
WAS
STARTED
ARE
REFLECTED

IN PASSES:

AND ERRORS:.

—_—

(DMK

MACY11

QOLUNAR!

30A(1052)

08-JuL-80

08-JuUL-80 08:21

08:21

PAGE

SEQ 0010
PAGE

[ATA

615

416
W7
618
419

8.4

KEY LOCATIONS

RETURN (1214)

420
621
$2?
623
624
625
626
627
428
429
430
43
632
433
3
635
436
637
438
439
440
L

TEST

(1216)

TSTNO

(1226)

RUN

(13'6)

(1500)=-(1640)

OMACTV (1306)

DMCSR
8.4A

(1404)

"STATUS TABLE'
THE TABLE

TEST

DM(11
(RUN)
NO.06

THESE LOCATIONS CONTAIN THE

INFORMATION NEEDED

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

INDICATES

THAT

DMC11 WILL BE TESTED IN TURN.

(DMACTV) 1276/0000000000010001 MEANS
00,04 WILL BE TESTED.

%gz}AlNS THE CSR OF THE

CURRENT

DMC11

UNDER

(1500-1640)

IS FILLED BY AUTO SIZING OR BY THE MANUAL

PARAMETER

INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO
SUIT THE SPECIFIC CONFIGURATION.

THE EXAMPLE STATUS MAP SHOWN BELOW

CONTAINS

INFORMATION

FOR

THE TABLE CAN CONTAIN UP TO 16 DMCI1°S.
TWO DMC11°'S.
EO%%OUING THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP
NTRY

464

468
469

THE BIT IN "RUN' ALWAYS POINTS
TO
THE
EXAMPLS:
TESTED.
BEING
CURRENTLY
1302/0000000001000000 MEANS THAT DM(C11
IS THE DMC11 NOW RUNNING.

THAT DMC11 NO.

447

4«67

BEING

EXAMPLE:

648

465

THE

B8t

NOW

PEFORMED.

(DMACTV) 1276/0000000000011111 MEANS
EXAMPLE:
THAT DMC11 NO.
00,01,02,03,04 WILL BE TESTED.

<45
446

466

CONTAINS THE NUMBER

TEST

CONCERNING THE CONFIGURATION OF EACH DMC11.

[ANA

461

CONTAINS THE ADDRESS OF THE NEXT

PEFORMED.

TO TESY UP TO 16 (DECIMAL) DMC11S SEQUENTIALY.
THEY
CONTAIN THE
CSR,VECTOR
AND
STATUS

443

462
463

IS ASSERTED.

DMCROO-DMCR17
DMST00-DMST17

462

449
450
451
452
453
654
455
456
457
4S8
459
4«60

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN
WHEN
ITERATION COUNT IS REACHED OR IF LOOP ON

MAP OF DMC11

STATUS

CSR

STAT2

STAT1

SIAT3

001500 160010 145310 177777 000000
001510 160020 016320

000000

PAGE

THE FIRST OF

THE
INF ORMATION
FOLLOWS:

8
B8
B
B8
B8

Y
Y
S
S
W
G
P

B
8
B8

[7, R

489

PO NN B~ B~ wnun
QOu i
unnnNo
O = =2 OO0 2O =20

STAT1:

CONTAINS DMC11

THE

FIRST

AND

1516,

AND 1506.

1514,

THE

CONTAINED IN EACH & WORD ENTRY IS DEFINED AS

CSR:

487

500

IN THE EXAMPLE ABOVE

SECOND DMC STATUS IS LOCATED AT 1510, 15i2,”

488

499

THE 4 WORDS IS.

OMC'S STATUS IS IN LOCATIONS, 1500, 1502, 1504,

485
486

490
9N
492
493
494
495
496
497
498

EACH MAP ENTRY CONTAINS & WORDS WHICH CONTAIN THE
STATUS
INFORMATION FOR
1
DMCI1.
THE PC SHOWS WHERE IN CORE MEMORY

st Pt St

481
482
483
484

PAGE 12

et Pt

670
34
472
673
(74
675
76
w77
4«78
79
480

08:21

et
=t = — =4

MACY11 30A(1052;
08-JuL-80
08-JuL-80 08:21

Pt Pt

CIOMH

C20MH. P11

CSR ADDRESS

=08 IS DMC1Y

VECTOR ADDRESS

MICRO-PROCESSOR HAS CRAM
MICRO-PROCESSOR HAS CROM
TURNAROUND CONNECTOR IS ON
NO TURNAROUND CONNECTOR

LINE UNIT IS AN MB8201
LINE UNIT IS AN MB202

NO LINE UNIT
=11 IS DMC11 BR PRIODRITY LEVEL

STATZ:

L OwWw BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER)
HIGH BYTE 1S SWITCH PACH2 (BM873 BOOT ADD)

STAT3:

BIT0=1 PERFORM FREE RUNNING TESTS ON KM(C
(MUST BE SET MANUALLY. SEE TEST 1)
BIT1=0 DMC11-AR (LOW SPEED)
BIT1=1 DMC11-AL (h.GH SPEED)

SEQ 0011 1

(20MH

MACY11 30A(1052)

QOLUMAR

08-JuUL-80

C8-JuL-80 08:21

08:21

PAGE 13

SEQ 0012

501

502
503

PAGE 12

28?

8.5

METHOD COF AUTO SIZING

28?

8.5.1

FINDING THE CONTROL STATUS REGISTER.

508

THE AUTO=SIZING ROUTINE FINDS A DMC11 AS FOLLOWS:

2O OO NOWVEWN—~O

8.5.2

FINDING THE VECTOR AND BR LEVEL

THE VECTOR AREA
(ADDRESS 300-776)
IS FILLED
WITH
THE
THE PROCESSOR
(NEXT ADDRESS).
INSTRUCTION 10T AND_'.42'
STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT.
THE PS
IS LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS
MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A

547

DMC11

THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED.

BAD DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL
S AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE

545
546

IF IT DOES NOT FIND A

WILL BE FOUND BY THE AUTO-SIZER.

= OO

AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE
RESTARTED AND
THE QUESTIONS MUST BE ANSWERED.
ALL DMC11°'S IN THE SYSTEM

PROBLEM IS FIXED;
THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET
THE ADDRESS TO WHICH
IF AN INTERUPT OCCURED;
CORRECT VECTOR.
THE DOMC11
INTERUPTED TO IS PICKED UP AND REPORTED AS THE

VECTOR. NOTE: [IF THE VECTOR REPORTED IS NOT THE VECTOR SET
UP BY YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE

541

222

STARTS

TO AND INCLUDING ADDRESS 167760.
IF THE ADDRESS DOES NOT TIME
OUT, THE FOLLOWING IS OONE, THE FIRST CROM ADDRESS IS WRITTEN
TO A 125252 THEN IT IS READ BACK.
IF
IT CONTAINS A -1
OR
125252 OR A 626 OR 16520 A DMC11 OR KMC11 HAS BEEN FOUND, IF
NOT, THE ADDRESS IS UPDATED BY 10 AND THE SEARCH CONTINUES.
A
=1
INDICATES A DMC11 WITH NO CROM, A 125252 INDICATES A KMC11
WITH CRAM, A 626 INDICATES A DMC11-AL AND A 16520 INDICATES A
DMC11-AR.
FURTHER TESTS ARE PERFORMED AT THIS POINT TO
IF A
IS INSTALLED,
IF ANY,
DETERMINE WHICH LINE UNIT,
SETTINGS
SWITCH
VARIOUS
AND
LOOP-BACK CONNECTOR IS INSTALLED
ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT

539
540

542

AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP

~NO

AAD AL AA WA NN

IO WA ALOWA

DA VLA AN VDWW

WA WA

509

DONE.

8.6

SOF TWARE SWITCH REGISTER

IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER (PU WITHOUT A
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO

ALLOW USER THE SAME SWITCH OPTIONS

DESCRIBED

PREVIOUSLY.

548
549

IF THE HARDWARE SWITCH REGISTER DOES NOY EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH

552

TO OBTAIN CONTROL_AT ANY ALLOWABLE TIME

550
991

553

554
555

EXECUTION

OFf

TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED,
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED:

THE

DIAGNOSTIC YWE

OPERATOR

TYPES

DURING

A CTRL G ON THE CONSOLE

MACYT1 30A(1052)
08-JuL-80
(0 MM
08-JuUL-80 08:21
CZ0m P

08:21

PAGE

SEQ 0013
PAGE 13
SWR=XXXXXX NEW?

WHERE XXXXXX 1S THE CURRENT CONTENTS OF
THE
SOFTWARE
SWITCH
REGISTER
IN OCTAL.
THE
SOFTWARE CONTROL ROUTINE WILL THEN
AWAIT OPERATOR ACTION.
AT WHICH TIME THE OPERATOR IS REQUIRED

TO TYPE ONE OR_ MORE OF THE LEGAL CHARACTERS:
1) 0 -7, 2)
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR &)
(CONTROL-U
(CTRL
U).
NO (HMECK
IS MADE
FOR LEGALITY.
IF THE INPUT
CHARACTER I3 NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE
AN OCTAL DIGIT.

TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES
THE
NEW DESIRED VALUE
IN OCTAL - LEADING ZEROS NEED NOT BE
<LF>
OR
AND TERMINATES THE INPUT STRING WITH A <CR>
TYPED.
DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW.
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS
TYPED.
AT
LEAST
ONE
DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL NFCUR.
WHEN THE INPUT STRING IS TERMINATED WITH A <(R> THE DIAGNOSTIC
WiILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS
IF A <CR> IS THE ONLY THING TYPED THE PROGRAM
INTERRUPTED.
WILL CONTINUE WITHOUT CHANGING THE SSR.
THE <LF> DIFFERS FROM
THSREgR>288 RESTARTING THE PROGRAM AS [F [T WERE RESTARTED
AT
AD

IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO

THE

TERMINATOR

PROMPT DISPLAYED

THE

INPUT

VALUE WILL BE DISREGARDED AND THE

(SWR = XXXXXX NEW?).

TO SET THE SSR FOR
THE
STARTING SWITCHES,
FIRST
LOAD
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC.

THE

CIOMH

MACYYY 30A(1052)

(20MH. P11

08-JuUL-80
08-JuL-80 08:21

08:21

PAGE 15

SEQ 0014

59¢
593

594
995
596
597
598
599
600
601
602
603
604
605
606

;v(IDMHC

'COPYRIGHT 1

€ RUNNING TESTS

GITAL EQUIPMENT CORP.,

MAYNARD, MASS. 017564

;STARTING PROCEDURE
; .JAD PROGRAM

:LOAD ADDRESS 000200
: SWR= 0 AUTOSI2E DMC11
:5W07=1 USE CURKENT DMC11 PARAMETERS
INPUT NEW DMC11 PARAMETERS
:SW00=1
:PRESS START

;PROGRAM WI' ¢ TYPE ''CZOMNC

;PROGRAM WILL TYPE STATUS MAP

DMC11 FREE RUNNING TESTS"

;PROGRAM WILL TYPE "'R'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

:AND THEN RESUME TESTING

;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE

;SWITCH REGISTER OPTIONS
100000

040000
020000
010000
004000
002000
001000
000400

000200
000100
000040
000020
000010
000004
000002
000001

SW15="00000

;=1 ,HALT ON ERROR

Sw07=200
SW06=100

;=1USE CURRENT DMC11 PAKAMETERS, =0,AUTOSIZE DMC11
:=1, HALT BEFORE CLOCKING MICRO-~PROCESSOR INSTRUCTION

SW14=40000
SwW13=20000
SW12=10000
SW11=4000
SWw10=2000
Sw09=1000
Sw08=400
SW05=40

5wW04=20

:=1.L0OP ON CURRENT TEST
:=1,INHIBIT ERROR TYPEOUT
;=1,DELETE TYPEOUT/BELL ON ERROR.
:=1,INHIBIT JTERATIONS
:=1,2SCAPE TO NEXT TEST ON ERROR
:=1, _00P WITH CURRENT DATA
:=1,L.00P ON ERROR

Sw03=10

;RESELECT DMC11'S TO BE TESTED (ACTIVE)

Swo1=¢

;RESTART PROGRAM AT SELECTED TEST

SW02=4

SWw00=1

:LOCK ON TEST SELECT

S UNPUT DMC11 PARAMETERS

(IOMH

MACY11 30A(1052)
08-JuUL-80
CZ0MH.P11
08-JuL-80 08:1
638
639
640
641
642
643
644

645

646

647
648

649

650
651
652
653
654
655
656
657
658
65%
660
661
662
663
664
665
666

667

668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686

687
688
689

08:21

PAGE 16

GENERAL DEF INATIONS AND EQUIVALENCIES

;REGISTER DEFI!

" 10NS

000000
000001
000002

RO=%0
R1=X1
R2=X2

000004
000005
000006
000007

R4=X4

;OENERAL REGISTER
;OENERAL REGISTER
;GENERAL REGISTER
:GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;PROCESSOR STACK POINTER

000003

R3=13

:PROGRAM COUNTER

LOCATION EQUIVALENCIES
177776
001200

PS=177776

STACK=1200

;PROCESSOR STATUS WORD

;START OF PROCESSOR SYA(CK

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

PUSH1ISP=5746
POP1SP=5726
PUSHR0=10046
POPR0=12600
PUSH2SP=24646
POP25P=22626
EMT HLY
LEQUIV

<BIT DEFINITIONS
100000

040000
020000
010000
004000
002000
001000

000400
000200
000100
000040
000020
000010
000004
000002
000001

;DECREMENT PROCESSOR STACK 1 WORD
; INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
;RESTORE RO FROM STACK

;DECREMENT STACK TWICE
; INCREMENT STACK TWICE
;BASIC DEFINITION OF ERROR CALL

SEQ 0015

MACY11 30A(1052)
08-4uUL-80
Cl0MH
. P11
CZOMH
08-JuUL-80 08:21

D 2
PAGE 17
08:21
TRAPCATCHER FOR UNEXPECTED INTERUPTS

690
691
692
693
694
695

712

713

714
715
716

000024
000026
000030
000032
000034
000036
000040
000042
000044
000046

000052

720
721
722
723

000174
000176

724

725
726
727
728
(2)
(2)
729
730
14}
732
733
734
735

R NN

ORI R e RN

et Ot

OOEY

:"ttt".""t""""""""Q"'Q".'QQ"'.'t'tQ"".""""""QQ

717
718
719

R et

;BETWEEN ADDRESS 0 TO ADDRESS 776.
;1T LOOKS LIKE ''PC#2 HALT'.

697
698
699

710

;TRAPCATCAER FOR [LLEGAL INTERRUPTS
:THE STANDARD "'TRAP CATCHER'' 1S PLACED

696

700
701
702
703
704
705
706
707
708
709

SEQ 0016

000000

.=0
:STANDARD

000024
005336
000340
004750

.=24

PFAIL
340

:POWER FAIL WANDLER

340
“TRPSRV
340

"SERVICE AT LEVEL 7
"GENERAL MANDLER DISPATCH SERVICE
"SERVICE AT LEVEL 7

-SAVE FOR ACT-11 OR XXDP

"SERVICE AT LEVEL 7

CHLT

000340
004716
000340
000040
000000
000000
000000
003522
000052
000000

)
,

"ERROR HANDLER

"RETURN ADDRESS IF UNDER ACT=11 OR XXDP
"SAVE FOR ACT-11 OR XXDP
"FOR USE WITH ACT-11 OR XXDP

0
0
SENDWD

ACT=11 PROGRAM CHARACTERISTICS

000174
000000

=174

-SOF TWARE DISPLAY REGISTER
"SOF TWARE SWITCH REGISTER

D1SPREG:0
0
SWREG:

000000

000200

000200
000137

002002

001000
001011

001000
005377
104

055 1 03
041 5 15

001200

INTERRUPT VECTORS

.=200

0 4 6504
0 3 0461

.=1000
MTITLE:

GO TO START OF PROGRAM

JMP

_START

LASCII
LAS"I2

<377><12>/CI0MHC/<377>
/DMC11 FREE RUNNING TESTS/<377>

.=1200

;INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY
001200
001202

177570
177570

DISPLAY:177570
177570
SWR:

CIDMH
MACY11 30A(1052)
08-JuUL-80
CZDMH. P11
08-JuL-80 08:21
736

;%g

739
740
7641

762
;22

001204
001206

001210
001212

177560
177562

177564
177566

753
754
755
;gg
758
759
760

TPCSR:
TPDBR:

177560
177562

177564
177566

001214

001216
001220
001222
001224
001226
001230
001232
001234

000000

000000
000000

000003
000000

000000
000000
000000
000000

RETURN:

*ADDRESS OF NEXT TEST TO BE EXECUTED
*ADDRESS FOR LOCK ON CURRENT DATA
*NUMBER OF ITERATIONS THAT CUPRENT TEST WILL BE EXECUTED
*NUMBER OF ITEREATIONS COMPLETED
*NUMBER OF TEST IN PROGRESS
"NUMBER OF PASSES COMPLETED
“TOTAL NUMBER OF ERRORS
‘PC OF LAST ERROR CALL

:PROGRAM VARIABLES
[eeeeecccccccanans

000000
000000
000000
000000
000000
000000
000000
000000
000000

STRYSW:
STAT:
CLKX:
MASKX:
TEMPI:
TEMP2:
TEMP3:
TEMPL:
TEMPS:

0
0
0
0
O
0
0
O
0

778
779

001300
001302

000000
000001

2ERO:
ONE :

0
1

787
788

:SCOPE ADDRESS FOR LOOP ON TEST

NEXT:
O
LOCK:
0
ICOUNT: 3
LPCNT:
0
TSTNO:
O
PASCNT: 0
ERRCNT: 0
LSTERR: 0

001236
001240
001242
001244
001246
001250
001252
00125¢
001256

780
781
782
783
784
;gz

STELEPRINTER CONTROL REGISTER
“TELEPRINTER DATA BUFFER

761
762
763
764
765
766
767
768
769

770
771
772
773
774
775
776
777

;TELETYPE KEYBOARD CONTROL REGISTER
“TELETYPE KEYBOARD DATA BUFFER

jS==sessssssseccccccconcooo

751
752

TKCSR:
TKDBR:

:PROGRAM CONTROL PARAMETERS

;4?
749
750

SEQ 0017

:INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

745

7648

E
2
08:21
PAGE 18
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

001260
001262
001264
001266
001270
001272
001274
001276

001304
001306
001310
001312
001314
001316
001320
001322

000000
000000
000000
000000
000000
000000
000000
000000

SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:

- TEMPORARY
" TEMPORARY
*TEMPORARY
" TEMPORARY

STORAGE
STORAGE
STORAGE
STORAGE
* TEMPORARY STORAGE

0
0
0
0
0
0
0
0

000000
000001
000001
000001
000001
000000

MEMLIM: 0
DMACTV: .BLKW
DMNUM:
.BLKW
SAVACT: .BLKW
SAVNUM: .BLKW
agné
0

001472
001676

CREAM:
MILK:

.EVEN

-SWITCHES AT START Of PROGRAM
:DM STATUS WORD STORAGE

‘RO STORAGE
‘R1 STORAGE
‘R2 STORAGE
‘R3 STORAGE
‘R& STORAGE
‘RS STORAGE
"STACK POINTER STORAGE
*PROGRAM COUNTER STORAGE

1
1
1
1

DM_MAP-6
CNT.MAP-4

SHIGHEST LOCATION FOR NPR'S
“DMC11'S SELECTED ACTIVE.
“GCTAL NUMBER OF DMC11°'S.
‘ORIGINAL ACTV DEVICES
;WORKABLE NUMBER
*POINTER TO RUNNING DEVICE.
:TABLE POINTER.
“TABLE POINTER

C10MH

C20MK . P11
789
790
79
792
793
794

795
796

797
798
799
800

801
802
803
804
805

806
807
808
809
810
811
812
813
814
815

816
817
818
819

82C
821
822
823
824
825
826
827
828
829
830
831
832
833
A3

835
836
837
838

08-JuL-80
C8-JuL-80 08:21

MACY11

30A(1052)

F
2
PAGE 19
PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

08:21

SEQ 0018

:PROGRAM CONTROL FLAGS
001324
001325
001326
001327

000
000
000
000

INIFLG:
ERRFLG:
LOKFLG:

QV.FLG:

.BYTE
.BYTE
.BYTE

.BYTE

0
O

.EVEN

;PROGRAM INITIALIZATION FLAG
;EKROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG
;QUICK VERIFY FLAG.

;ON FIRST PASS OfF EACH DMC11 JTERATIONS WILL BE SUPPRESS

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
:POINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS
;:Q'Qt"""'tt"""""'Qt"'"""'t".""i"""t"""t"'t'Q't'

001330

001330
001332
001334

001336

001340
001342
001344
001346
001350

001352
001354

001356
001360
001362

001364

104400
003576
104401
003736
104402
003766
104403
004050
104404

004154
104405
004174

104406
004374
104407
004634
104410
004466
104411
004472
104412
005466
1064413
005436
1046414
005504
104415

005552

1044616
005616

"TRPTAB:

SCOPE=TRA228PE

SCALL TO SCOPE LOOP AND ITERATION HANDLER

scop1=rqigz1p1

sCALL TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP;2PE

;CALL TO TELETYPE OUTPUT ROUTINE

INSTR:TRAP#ST

SCALL TO ASCII STRING INPUT ROUTINE

INSTER=TRAP;?

SCALL TO INPUT ERROR HANDLER

PARAM=TRAP+5

:CALL TO NUMERICAL DATA INPUT ROUTINE

SAVOS=TRA§;6OS

<CALL TO REGISTER SAVE ROUTINE

RESOS=TRA:E§05

:CALL TO REGISTER RESTORE ROUTINE

convm:vfupngT

:CALL TO DATA QUTPUT ROUTINE

CNVRT=TRAP+11

SCALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

HSTCLR:TR:P;12R

SCALL TO ISUE A MASTER CLEAR

DELAY=TRAP+13

:CALL TO DELAY

ROMCLK=TRAP+14

:CALL TO CLOCK ROM ONCE

DATACLK=TRAP+15

;CALL TO CLK DATA

TIHER=TRA¢016

SCALL TO DELAY A CLOCK TICK

.SCO
1Y

.INSTR

LINSTER
.PARAM
.SAV

. CONV

.CNVRT

JMSTCL

.DELAY

.ROMCLK

_DATACLK

.TIMER

;tt"'.'l'tt.!.t""""'""'Q"""""t't"l."'l!'!"".""i""

CIDMH

MACY11 30A(1052)

CZDOMH.P11

08-4uL-80

08-JuUL~-80 08:21

08:21

:DMC11

842

’

gzz

001366
001370

001372

000000
000000

000000

gtg

849

850
851
852
853
854
855
856
857
ggg

001374
001376
001400
001402
001404
001406
001410
001412
001414

000000
000000
000000
000000
000000
000000
000000
000000
000000

860

ggg

STATY:
STAT2:

0
0

:DMC11

VECTOR AND REGISTER

STAT3:

)

DMRVEC:
CMRLVL:
DMTVEC:
PMTLVL:
OMCSR:
DMCSRH:
DMCTL:
DMPO4L:
DMPO6:

0
0
0
0
0
0
O
O
O

INDIRECT POINTERS

;POINTER
*POINTER
:POINTER
:POINTER
SPOINTER
:POINTER
“POINTER
CPOINTER
SPOINTER

TO
TO
TO
TO
TO
TO
TO
TO
TO

DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC1)

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VE(TOR
TRANSMITTER INTERRUPT SERVICE PS
CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HIGM BYTE.
CONTOL OUT REGISTER
PORT REGISTER(SEL &)
PORT REGISTER(SEL 6)

jemcccaccenea

001416

000000
001460

ggg

868

869
870

001500

g;g

001506

871
872
873

CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST

; TEMP STORAGE

861

862
863

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

gzg
843
844

PAGE 20

001500

001500
001502
001504

000001
000001
000001

876
877
878
ggg

001510
001512
001514
001516

881
882
883

TEMP:
.2, 440

:DMC11

STATUS TABLE AND ADDRESS ASSIGNMENTS

)

.=1500
DM.MAP:

OMCROO: .BLKW
OMS100: .BLKW
OMS200: .BLKW
DMS300:

.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 00
“VECTOR FOR DMC11 NUMBER J0
‘DDCMP LINE# FOR DMC11 NUMBER 00

000001
000001
000001
000001

DMCRO1:
DMS101:
DMS201:
DMS301:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 01
SVECTOR FOR DMC11 NUMBER 01
:DDCMP LINEN FOR DMC11 NUMBER 01
S3RD STATUS WORD

001520
001522
001524

000001
000001
000001

DMCRO2: .BLKW
OMS102: .BLKW
OMS202: .BLKW

1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 02
SVECTOR FOR DMC11 NUMBER 02
:DDCMP LINE# FOR DMC11 NUMBER 02

886
887
888

001530
001532
001534

000001
000001
000001

DMCRO3: .BLKW
OMS103: .BLKW
OMS203: .BLKW
OMS303:

.BLKW

1
1
1

:CONTROL STATUS REGISTER FQOR DMC11 NUMBER 03
:VECTOR FOR DMC11 NUMBER 03
:DDCMP LINE® FOR DMC11 NUMBER 03

891
892
89%
894

001540
001542
001544
001546

000001
000001
000001
000001

DMCRO4:
OMS104:
DMS204:
OMS304:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 04
SVECTOR FOR DMC11 NUMBER 04
SDDCMP LINEX FOR DMC11 NUMBER %
“3RD STATUS WORC

ggg

001526

001536

000001

DMS302:

.BLKW

SIRD STATUS WORD

S3RD STATUS WORD

SEQ 0019

CIDMH
MACY11 30A(1052)
08-JUL-80
CI0MK . P
08-JuUL-80 08:21

08:21
PAGE
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

896
897
898
ggg

001550
001552
001554
001556

000001
000001
000001
000001

DMCROS:
DMS105:
DMS205:
DMS305:

.BLKW
.BLKW
.BLkW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DM(C11 NUMBER 05
:VECTOR FOR DMC11 NUMBER 05
:DDCMP LINEX FOR DMC11 NUMBER 05
:3RD STATUS WORD

901
902
903
ggg

001560
001562
001564
001566

000001
000001
000001
000001

DMCRO6:
DMS106:
DMS206:
DMS306:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DM(C11 NUMBER 06
;VECTOR FOR DMC11 NUMBER 06
:DDCMP LINEX FOR DMC11 NUMBER 06
:3RD STATUS WORD

906
907
908
8?8

001570
001572
001574
001576

000001
00000
000001
000001

DMCRO7:
C%s107:
pDMS207:
DMS307:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR DM(C11 NUMBER 07
;VECTOR FOR DM(C11 NUMBER 07
:DDCMP LINE# FOR DMC11 NUMBER 07
:3RD STATUS WORD

911
912
913
g}g

001600
001602
001604
001606

000001
000001
000001
000001

DMCR10:
DMS110:
DMS210:
DMS310:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;:CONTROL STATUS REGISTER FOR DMC11 NUMBER 10
:VECTOR FOR DMC11 NUMBER 10
:DDCMP LINE# FOR DM(11 NUMBER 10
;IRD STATUS WORD

916
917
918
g;g

001610
001612
001614
001616

000001
000001
000001
000001

DMCR11:
DMS111:
DMS211:
DMS311:

.BLKW
.BLKW
.BLkW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR DM(C11 NUMBER 11
:VECTOR FOR DMZ11 NUMBER 11
:DDCMP LINE# FOR DMC11 NUMBER 11
:IRD STATUS WORD

921
922
923
g%g

001620
001622
001624
001626

000001
000001
000001
000001

DMCR12:
DMS112:
DMS212:
DMS312:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;:CONTROL STATUS REGISTER FOR DMC11 NUMBER 12
;VECTOR FOR DMC11 NUMBER 12
:DDCMP LINE# FOR DMC1' NUMBER 12
;3RD STATUS WORD

926
927
928
g%g

001630
001632
(01634
001636

000001
000001
000001
000001

DMCR13:
DMS113:
DMS213:
DMS313:

.BLKw
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISIER FOR DMC11 NUMBER 13
;VECTOR FOR DMC11 NUMBER 13
:DDCMP LINE# FOR DMC11 NUMBER 13
:3RD STATUS WORD

931
932
933
g%g

001640
001642
001644
001646

000001
000001
0000M
000001

DMCR14:
DMS114:
DMS214:
DMS314:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 14
:VECTOR FOR DMC11 NUMBER 14
;:DDCMP LINE# FOR DMC11 NUMBER 14
:3RD STATUS WORD

936
937
938
gzg

001650
001652
001654
001656

000001
000001
000001
000001

DMCR1S: .BLKW
OMS11S5: .BLKW
DMS215: .BLKW
DMS315: .BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 15
:VECTOR FOR DMC11 NUMBER 15
:DDCMP LINE# FOR DMC11 NUMBER 15
:3RD STATUS WORD

941
942
943
g:g

001660
001662
001664
001666

000001
000001
000001
000001

DMCR16:
DMS116:
DMS216:
DMS316:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 1¢
:VECTOR FOR DMC11 NUMBER 16
;DDCMP LINEX FOR DMC11 NUMBER 16
:3RD STATUS WORD

946
947
948
828

001670
001672
001674
001676

000001
000001
000001
000001

DMCR17:
DMS117:
DMS217:
DMS317:

.BLKW
.BLKW
.BLkW
.BLKW

1
1
1
1

;CONTROL STATUS REGISTER FOR DM(11 NUMBER 17
:VECTOR FOR DMC11 NUMBER 17
:DD{MP LINEX FOR DMC11 NUMBER 17
:3RD STATUS WORD

951

001700

000000

DM.END: 000000

SEQ 0020

CI0MH

MACY11 30A(1052)

CZDMH.P11

08-JUL-80 08:21

322
956

001702

ggg

001704

957

08:21

PAGE 22

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

:DMC11 PASS COUNT AND ERROR COUNT TABLE

952

955

08-JuL-80

)

CNT.MAP:

001702

000000

PACTO0: 0

:PASS COUNT FOR DMC11 NUMBER 00

960
gg}

001706
001710

000000
000000

PACTO1: 0
ERCTO1: 0

:PASS COUNT FOR DMC11 NUMBER 01
*ERROR COUNT FOR DMC11 NUMBER 01

963
ggg

001712
001714

000000
000000

FACTO2: 0
ERCTO2: 0

:PASS COUNT FOR DMC11 NUMBER 02
*ERROR COUNT FOR DMC11 NUMBER 02

966
gg;

001716
001720

000000
000000

PACTO3: 0
ERCTC3: 0

;PASS COUNT FOR DMC11 NUMBER 03
*ERROR COUNT FOR DMC11 NUMBER 03

969
g;?

001722
001724

000000
000000

PACTO4: 0
ERCTO4: 0

:PASS COUNT FOR DMC11 NUMBER 04
“ERROR COUNT FOR DMC11 NUMBER 04

972
3;2

001726
001730

000000
000000

PACTOS: 0
ERCTOS5: 0

:PASS COUNT FOR DMC11 NUMBER 05
"ERROR COUNT FOR DMC11 NUMBEK 05

975
g;g

001732
001734

000000
000000

PACTO06: 0
ERCTO6: O

:PASS COUNT FOR DMC11 NUMBER 06
‘ERROR COUNT FOR DMC11 NUMBER 06

978

001736

001740

000000

ERCTO?: 0

"ERROR COUNT FOR DMC11 NUMBER 07

981
ggg

001742
001744

000000
000000

PACT10: 0
ERCT10: 0

:PASS COUNT FOR DMC11 NUMBER 10
"ERROR COUNT FOR DMC11 NUMBER 10

984

001746

000000

PACT11: 0

ERCT11: 0

"ERROR COUNT FOR DMC11 NUMBER 11

987
333

001752
001754

000000
000000

PACT12: 0
ERCT12: 0

:PASS COUNT FOR DMC11 NUMBER 12
“ERROR COUNT FOR DMC11 NUMBER 12

990
gg;

001756
001760

000000
000000

PACT13: 0
ERCT13: 0

:PASS COUNT FOR DMC11 NUMBER 13
*ERROR COUNT FOR DMC11 NUMBER 13

993
ggg

001762
001764

000000
000000

PACT14: 0
ERCT14: 0

:PASS COUNT FOR DMC11 NUMBER 14
"ERROR COUNT FOR DMC11 NUMBER 14

996
33;

001766
001770

000000
000000

PACTIS: 0
ERCT15: 0

:PASS COUNT FOR DMC11 NUMBER 15
"ERROR COUNT FOR DMC11 NUMBER 15

999
}88?

001772
001774

000000
000000

PACT16: 0
ERCT16: 0

:PASS COUNT FOR DMC11 NUMBER 16
"ERROR COUNT FOR DMC11 NUMBER 16

1002
}882

001776
002000

000000
000006

PACT17: 0
ERCT17: 0

:PASS COUNT FOR DMC11 NUMBER 17
"ERROR COUNT FOR DMC11 NUMBER 17

3;8

ggg

001750

000000

ERCTO0: 0

PACTO7: 0

"ERROR COUNT FOR DMC11 NUMBER 00

;PASS COUNT FOR DMC11 NUMBER 07

:PASS COUNT FOR DMC11 NUMBER 11

SEQ 0021

MACY1T 3GA(1052)
08-JUL-80
CZ0MKH. P11
08-JuL-80 08:21
CIOMH

08:21

PAGE 23

PROGRAM PARAMETERS, VARIABLES,

AND TRAP CALLS.

1005

FORMAT OF
13

R {

CSR

I
1
. { * { +

l
¢ {

STAT1

¢ { +

{

[ « 1 «]

STATZ

STAT3

CSR:

CONTAINS DMC11

CSR ADDRESS

STAT1:

BITS 00 08 1S DMC11 VECTOR ADDRESS
BIT 1 5=1 MICRO-PROCESSOR HAS CRAM
BIM 5 0 MICRO-PROCESSOR HAS CROM
77277 TURNAROUND CONNECTOR IS ON
BIM 4
4
N
0 TURNAROUND CONNECTOR
BIMNM
BIT 3
L INE UNIT [S AN M8201
L INE UNIT [S AN M8202
BIM 3
N 0 LINE UNIT
8IM 2
091 1 1S DMC11 BR PRIORITY LEVEL
BITS

STATZ:

L OwWw

STATY:

BIT0=1 DO FREE RUNNING TESTS ON KM(
(HUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY])
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING
DZDMG TEST 2 FIRST
BIT1=1 DMC11-AL LOCAL HIGH SPEED M]CRO-CODE
BIT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE

164

O NN
o_o—noo_.

STATUS TABLE

H IGH

BYTE IS SWITCH PACH1

(DDCMP LINE NUMBER)

BYTE IS SWITCH PAC#2 (BM873 BOOT ADD)

SEQ 0022

CIDMH

MACY11 3GA(1052)

CZOMH.P11

0B8-JuL-80

08-JuL-80 08:21

08:21

PAGE 24

PROGRAM INITIALIZATION AND START UP.

1060
1061

:PROGRAM INITIALIZATION

1065
}829

“CLEAR PROGRAM CONTROL FLAGS AND COUNTS
STYPE TITLE MESSAGE

1062
1063
1064

1068
1069

1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088

*LOCK OUT INTERRUPTS
*SET UP PROCESSOR STACK
*SET UP POWER FAiL VECTOR

002002
002010

002014
002022
002030
002034
002040
002044
002052
002060
002066
002072
002074
002100
002102
002106
002114

012737
012706

012737
013737
005037
105037
105037
012737
012737
012737
012700
005020
022700
001374
005037
012737
012737

005336
001310
010016
001325
001327
001470
001676
100000
001702

000024
001314

238:

002002
001234
000001
002002

001226
001214

000006

002132

012737

002166

000004

177570
177777

001200
177020

013746

002146
002154

012737
022777

1093
1096
1095
1096
1097

002164
002166
002170
002176
002204

000407
022626
012737
012737
012637

1099
1100
1101
1102
1103
1106
1105
1106
1107
1108

002214
002220
002222
002230
002232
002236
002242
002250
002254
002256

105737
001006
022737
001402
104402
004737
017737
005737
001402
005037

1092 002162 001402

002210

012637

000004

177570

000176
000174
000004

105737
100007
005737
001006
104402

001202

001202
001200

001000
007606
176734
000042

001236
001236
001306

007154

000042

001236

208:

017’570.SUR

;SET SWR TO HARD SWR ADDRESS

68¢2

YIF = =1 USE SOFT SWR ANYWAY

(SP)+.a86

;

MOV
CMP

#177570.DISPLAY :SET DISPLAY TO HARD SWR ADDRESS
2-1,3SWR
"REFERENCE WARDWARE SWITCH REGISTER

B8R
CMP
MOV
MOV
MOV

;IF 1T EXISTS AND NOT = -1 USE HARD SWR
7%
(SP)+, (SP)+
TADJUST STACK
#SWREG, SWR
"POINTER TO SOFT SWR
#DI1SPREG,DISPLAY:POINTER TO SOFT DISPLAY REG
(SP)+,add
‘RESTORE VECTORS

BEQ

:LOCK OUT INTERRUPTS
‘SET UP STACK

MOV

#340,PS
#STACK,SP

#.PEALL.a#24
:SET UP POWER FAIL VECTOR
OMNUM,SAVNUM
:SAVE NUMBER OF DEVICES IN SYSTEM.
SWFLG
*CLEAR SOFT TYPEOUT FLAG
ERRFLG
‘CLEAR ERROR FLAG
QV.FLG
*ZERO QUICK VERIFY FLAG
#DM.MAP-10,CREAM:
GET MAP POINTER.
#CNT.MAP=4 _MILK :GET PASS COUNT MAP POINTER
#B1T15,RUN
*POINT POINTER TO FIRST DEVICE.
#CNT.MAP RO
*PASS COUNT POINTER TO RO
(RO) ¢
*CLEAR TABLE
#CNT.MAP+100,R0 :DONE YET?
238
‘KEEP GOING
LSTERR
:CLEAR LAST ERROR PGINTER
#1,1STNO
“SET UP FOR TEST 1
# . START.RETURN -SET UP FOR POWER FAIL BEFORE
STESTING STARTS
ane,-(SP)
*SAVE CURRENT VECTORS
ari.-(SP)
:
768,904
;SET UP FOR TIMEOUT

MOV

001324

003522

MOV
MOV
CLR
CLRB
CLRB
MOV
MOV
MOV
MOV
(LR
CMP
BNE
CLR
MOV
MOV

MOV

000006

1109 002262 032737 000001
1110 002270 001012
002272
002276
002300
002304
002306

.START: MOV
MOV

001320
001322
001316

013746

002126

1090
1091

1111
1112
1113
1114
1115

177776

002122

1089 002140 012737

1098

000340
001200

MOV

T1ST8
BNF
CMr
3EQ
TYPE
JSR
MOV
131
BEQ
CLR

INIFLG
208
#SENDAD , 8842
208
,ATITLE
PC,CKSWR
ASWR,STRTSW
N2
.46
STRTSW

TSTB
BPL
TSt
BNE
TYPE,

STRTSW
178
DMACTV
16%
NOACT

BIT
BNE

#SW00,STRTSW
17%

:HAS INITIALIZATION BEEN PERFORMED
‘BR IF YES
;1F ACT=11 AUTOMATIC MODE, DON'T TYPE [D
sTYPE TITLE MESSAGE
SCHECK FOR SOFT SWR
"STORE STARTING SWITCHES
*1S IT RUNNING IN AUTO MODE?
‘BR IF NO
‘IF YES, CLEAR SWITCHES

- 1F Sw00=1, QUESTIONS ARE ASKED.
‘B8R IF Sw00=1
‘BIT7=12?
‘BR IF SW07=0
*ARE ANY DEVICES SELECTED?
‘BR IF YES
*NO DEVICES SELECTED.

SEQ 0023

=2 O V00 NO VNN~
OO0 ~NO

MACY11 30A(1952)
08-JuL-80
PN
08-JuUL-80 0 8:21

NN NN

000000
000776
004737
105737
001410
105737
100431
032737
001403
000424
005137
104402
012704
010437
012437
001411
012637
012437
012437

002420

007454
000762
012700

16$:

001236
000006

001324
006224
001500
001246
001250

21s:
chs:
5%:

001252
001254
001256

B8R
JSR

1ST8B
BEQ
;g}fl

.2
PC,AUTO.S12¢E
INIFLG
21
§1RTSU

;STOP THE SHOW

;DISQUALIFY CONTINUE SWITCH
;GO DO THME AUTO SIZE
;FIRST TIME?

;BR ]F YES
;1F USING SAME PARAMETERS DONT TYPE MAP

817
BtQ
B8R
COM
TYPE

#BIT1'BITZ2,STRISW;
IS TEST NO. OR LOCK SELECTED
243
;1F NO THEN TYFL STATUS
1%
:1F YES DO NOT TYPE STATUS
INIFLG
:SEY FLAG
;TYPE HEADER
. XHEAD

MoV
MoV
BEQ
MOV
MOV
MOV
CONVRT

R4, TEMPY
(RG) ¢+, TEMP?
1%
(RG)+ , TEMPS
(RG) ¢+, TEMPS
(R&)+,TEMPS

MOV

XSTATQ

C01500

PROGRAM INITIALIZATION AND START UP,

17%:

010512
001324

8R
MOV

#OM _MAP R4

5%
#DM_MAP RO

;SET POINTER

;SET ADDRESS
JSET (SR
sALL DONE IF ZERO
JSET STAT
JSET STAT?
;SET STAT3
:TYPE OUT STATUS MAP
:

;RO POINTS TO STATUS TABLE

;:t'tttt.ttt."t"t""'t't"""t"'t""'t't'tttt't".t"'ttttt't't'

Jo*AUTO SIZE TEST
::*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING

::«ADDRESSES FOR YOUR SYSTEM. [F THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.

;:«CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,LK,DMC,DZ.KM(C).
::*1F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMCY1, THE FIRST
::«DMCYY ADDRESS IS 760070, XMC11 IS 760110. NO DEVICE SHOULD EVER BE AT
:;*ADDRFSS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE

ok
VIV IV IV IV IV AV IV IV 1V 2 28 22 2

SLERRER2E OO NO NS NWN OO~V

dd
b
el
i
il
ld
ald wld
i
-—

PAGE 25

HALT

L Vad Vad Yo

104410

08: 21

::*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD
;:eYOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS
;:«THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS

::'gékkfgg)CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DM(C'S ARE
;

::"'.."'."""""'"""""".Qt."."i".t"'t"!i"".t"""'.

000004
000006

MOov

884 ,-(SP)

;SAVE LOC &

TST
BNE

;DMC OR KM(?
;BR IF KM

MOV
CLR
CLR
CLR
AUSTRT: MOV
BEQ

000006
001252
001404

100000

000002

100000

000002

1$:

002674

000004

2s:

8#6,-(5SP)
14
TEMP3
RS
(RO) ,DMCSR
AUDONE
19

BIT
BEQ
MOV

#B1715,2(RO)
SKIP
2%
#81715,2(R0O)
Sk1p
#NODEV, 384

BNE

BIT
BNE
BR

1§71

¢SAVE LOC 6
;CLEAR VEC+?2
;CLEAR FLAG
;R5=0=DM(C, RS==1=KM(
sGET NEXT DMC (SR
:BR IF DONE
CHECK FOR DM(C (SR
;SKIP IF NOT DMC
;1TSS A DMC <P CONTINUE
;CHECK FOR KkMC CSR
JSKIP 1F NOT KM(C
;SET UP FOR TIMEOUT
;DMC OR KM(?
:BR [F KM(

SEQ 0024

MACY11 30A(1052)

002514

012703

000006

74
75

002522
002526

012703
012702

000010
003010

H.PIY
73

76
17
78

79
80
81

82
83
84
85
86
87

8%
90

92
93
94
95
96
N —
NONLNLNLNINLALNININININI
NN
NI AININININININININI

97
98
99
00
01
02
03
04
05
06
07

10
11

08-JuUL-80 08:21

002520

002532
002536
002540

002542
002544
002566

002550
002552
002554
002562
002566
002570

002572

002600
002602

002604

002612
002614
002616
002622
002624

002630
002632
002636
002642
002644
002646
002652
002660
002664
002666
002672

0026764

005703
001371
012737
010137
005705
001005

002724

19
20

002730
002736

002726

002742

160010

003022

FLOAT:

0600004
Fv:

100000

000002

032760

100000

000002

001014
000404

001407
005711
020137
00i4N
062701

000756
062700
011037
001470
000750
062700
062737
011037
001457
013701
000735

104402
007223
012737
104411

1%$:

000010
000010
001404

SKIP:

003022

oK:

003022

122243

005737

NODEV:
001252

002700

ERR:

001276

104410

;R3 IS COUNT OF DEVICES BEFORE DMC

MoV
MoV

#10,R3
#DEVTAB,R?

:RY IS COUNT OF DEVICES BEFORE KM(
:R2 1S DEVICE TABLE PONTER

MoV
TST
Mmove

TST
BNE
MOV
Mov
TST
BNE
BNE
BR

‘8

#160010,R1
(R1)
(R2) ,R4
R4 ,R1
R1
R4 ,R1

R3
FLOAT
#ERR , 844
R1,xL0C
RS
1%

#BIT15,2(R0O)
SKIF
2%

BIT

#B1715,2(R0O)

BR
ADD
Mov
BEQ
BR
ADD
ADD
MOV
BEQ
MoV
BR

FyY
#10,R0
(RO) ,DMCSR
AUDONE
FY
#10,R0

BEQ
TST
CMP
BEQ
ADD

(MPB

RTI

TST

BNE

SKIP
(R1)
R1,DMCSR
0]
#10,R1

#10,xL0C
(RO) ,DMCSR
AUDONE
XLOC,R1
FY

(R2)+,=(R3)

TEMP3
1%

#ERR,SAVPC

TYPE

177777
001262

001252

CNERR

1$:

;GO ON

;START WITH ADDRESS 160010
: CHECK ADDRESS IN R1
;IF NO TIMEOUT, GET NEXT ADDRESS
JIN R
:
;

;ANY MORE DEVICES TO CHECK FOR?
:BR IF YES
;0K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT
sSAVE FIRST DMC/KMC ADDRESS
;OMC OR KMC?
;BR IF KMC

;CHECK FOR DMC CSR

sSKIP IF NOT DMC
J1TS A DMC SO CONTINUE

sCHECK FOR r.4C CSR

:SKIP IF NOT KMC
:CHECK DMC ADDRESS
;D0ES IT MATCH
;BR _IF YES
;GET NEXT DMC ADPRESS

;D0 IT AGAIN
;SKIP TO NEXT CSR IN TABLE
;GET NEXT CSR
:BR _IF DONE
;ELSE CONTINUE
:SKIP TO NEXT DMC CSR
;UPDATE EXPECTED DMC/KMC ADDRESS
;GET NEXT DMC/KMC CSR
:BR _IF DONE
;GET EXPECTED DMC/KMC ADDRESS
: CONTINUE

;ON TIMEOUT, INC R2, DEC R3
;RETURN

;CHECK FLAG IF = 0 TYPE HEADER
:SKIP HEADER

;TYPEOUT HEADER MESSAGE
;CONFIGURATION ERROR!!!!
:SAVE PC FOR TYPEOQUT
:TYPE OUT ERROR PC
;

tRRP(

104402

012737
010137

#6,R3

TYPE
CONERR
MOV
CNVRT

002770
007277

MoV

BIT

2s:

001404

PROGRAM INITIALIZATION AND START UP.

ADD
INC
BIC

002700

PAGE 26

38:
4$:

032760

001014

002722

08:21

060401
005201
040401

002704

002700

012701
005711
111204

000002

002706
002710
002712
002720

000402

002676

12
13
14
15

08-JuL-80

.TYPE REST OF HEADER
;

MOV
Mov

#-1,TEMPY
R1,SAVRY

;SET FLAG SO IT ONLY GETS TYPED ONCE
;SAVE R1 FOR TYPEOUT

CONVRT

22
23
24

002746
002746
002750

002776
005705
001003

CONTAB
TST
BNE

RS
3%

;TYPE CSR VALUES
;DMC OR KMC ?
:BR IF KM(

002756

000402

s CONTINUE

25
26

002752
002754

104402
007320

TYPE
DMCM

SEQ 0025

CIDMH

MACYIT 30A(1052)8 g?-JUL-BO

CZOMK. P11

08-JuUL-80 0

1228
1229

104402
007330

1230
1231
1232
1233
1234
1235
1236

1237
1238
1239

1240
12641
1242
1243
1264
1245
12646
12647
1248
1249
1250
1251

1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268

1269
1270
1271

002760
002762

002764
002766
002770
002772
002774
002776
003000

003002
003004
003006

003010
003011
003012
003013
003014
003015
003016
003017
003020
003022
003024

003026
003030
003034
003040
003042
003046
003052
003060
003062
003066
003070
003072
003100
003102
003106
7203110
003112

003120
003124
003126

022626
000727
000001
006
001276
000002
006

003022
006
001404

43:

004
002

007
017
007
007
007
007
007
007
007
003022
000000
005705

001005
012705
012700
000602
012637
012637
032737
001422
104402
005000
000000
027737
101404
104402
000000
000776
017737

013700
000000
012700

177777
001500
000006
000004
000010

003142
003144
003150

022021
022700
001372

1282
1283

001236

001312

006005
176064
001306

000300

001000

001306

28%:

38:

A ¥

BNE
MOV
MOV
B8R
MOV
L [0}")
BIT
_ BEQ
TYPE
CLR
HALT
CMP
BLOS
TYPE
HALT
BR
MOV

Moy
HALT
MOV

MOV
MoV
CLR
CMP
CMP
BNE

(SP)+,(SP)+
(0] 4

;ADJUST STA(CK
;BR TO GET 0QUT

6,2
6.4
6,2

7
17
7
7
7
7
7
7
7

:DJ
‘DM
100
1DV
:DUP
‘LK
S DMC
D2
SKMC

;DMC?

1%
#-1,RS
#0M . MAP,RO
AUSTRY
(SP)+,a06
(SP)+, a4
#SW03,STRTSW
3t
TMNEW
RO
ASWR, SAVACT
2%
JMERRY

.~2
aSWR,DMACTV
DMACTV,RO

#300,R0

#302.,R1
RY,(RO)¢
(rRi)+

(RO)+, (R1) ¢
#1000.R0

:BR IF KMC AND ALL DONE
SSET RS TO =1 (KMC)
sRESET RO TO START OF TABLE
:G0 DO KMC'S
‘RESTORE LOC 6
:RESTORE LOC 4
:SELECT SPECIFIC DEVICES??
‘BR IF NO.
:TYPE THE MESSAGE.
:1ERO DATA LIGHTS
:WAIT FOR USER TO TELL WHAT DEVICES TO RUN
©1S THE NUMBER VALID?
‘BR IF NUMBER 1S OK.
TELL USER OF INVALID NUMBER.
:STOP EVERY THING.
:RESTART THE PROGRAM AGAIN.
*GET NEW DEVICE PATTERN

;SHOW THE USER WHAT HE SELECTED.
SCONTINUE DYNAMIC SWITCHES.
*PREPARE TO CLEAR THE FLOATING

‘VECTOR AREA. 300-776
3
:START PUTTING 'P(+2 - HALT
“IN VECTOR AREA.
:POP POINTERS
“ALL DONE??
;BR IF NO.

STEST START AND RESTART

1279

1580

1$:

006144
176104

TYPE
KMCM

CMpP
B8R
ERRPC:
1
BYTE
SAVP(
CONTAB: 2
.BYTE
XLOC
.BYTE
DMCSR
DEVIAG: .BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
.EVEN
XLOC:
0
AUDONE: TST

002

PAGE 27

PROGRAM INITIALIZATION AND START uP.
38:

1272 003132 012701 000302
1273 003136 010120
1274 003140 005021

1275
1276
}S;g

08:21

003152
003156

012706
013746

001200
000006

FrmmmTTmnommosTmoeee
.BEGIN: MOV
MoV

#STACK,SP
of6,-(5P)

SSET UP STACK
;SAVE LOC ¢

SEQ 0026

(g
X an)

MACY11 30AC1052)

284
285
286
287
288

003162
003166
003170
003176
003202

MK, P

289

290

291
292
293
1294

003204

003210

003212
003216
003222
003¢26

013746
005000
012737
005037
005729

022700
001374

162700
010037
012637
012637

1295 003232 000413

1296
1297

08-JUL-80

08-JUL-80 08:2"

003234
003236

022626
162700

08:21

0CQ0C4
6% :

157776
007776
001304
000004
000006

7%:
2%:

000004

1298 003242 162700 007776
1301

003252

003254

001361

012700

1305
1306
1307
1308
1309

003276
003300
003304
003312
003320

1311
1312

003330 013737 003732 003614
003336 012737 010060 001214

1310

1313
1314

1315
1316

003322
003344
003352

003354
003360

10$:

006043
000240
000240

003612
003614

013737

003730

003612

1§%:

032737
001002

000002

001236

4$:

104402
{00177

005755
175630

are,-(SP)
RO
928,306
a6
(RO)»

BNE

CMP

SuUB
MOV
MOV
MOV

B8R

c(MP
SUB

3$%:

5¢%:

#157776,R0

:ADJUST STACK
:GET LAST GOOD ADDRESS

#30000. R0

‘1s 1T 8k?

MOV

" CONTINUE

:SAVE 2K FOR MONITORS
B8R IF NO

#37400,R0

“IF 8K DON'T SAVE 2K

#340,PS

;LOCK OUT INTERRUPTS

1%
,MLOCK
#NOP,TTSTY
INOP TTST+2
{3

:BR IF NO LOCK DESIRLD.
:TYPE LOCK SELECTED.
:ADJUST SCOPE ROUTINE.
“SET UP T0 LOCK
*CONTINUE ALONG.

7%
lBlIé.STRTSU

BRW,TTST

MOV
MOV

BRX,TTST+?2
#CYCLE,RETURN

TYPE
JMP

MR
aRETURN

gIT
BNE

‘BR 'F NO

(SPY+,(SP)+
#4 RO

10$

BNE

BEQ
TYPE
MoV
MOV
8R

IS IT AT LEAST 28K

;SAVE 2Kk FOR MONITORS
:STORE MEMORY LIMIT
:RESTORE LOC 4
;RESTORE LOC 6

27976 ,R0

B8R
MOV
BIT

;SAVE LOC &
“START AT 0
“SET UP FOR TIME OUT
10 AUTOSIZE MEMORY
:CHECK ADDRESS IN R0

#7776 ,R0
RO,MEMLIM
(SP)+,004
(SP)+,a86

SUB

MOV

037400

1302 003260 000756
1303 003262 012737 000340 177776
1304 003270 032737 000004 001236
0014611
104402
012737
012737
000406

MOV
CLR
MOV
(LR
TS7

CMP

1299 003246 022700 030000

1300

PAGE 28

PROGRAM INITIALIZATION AND STARTY yP,

000004

003234
000006

#SW01,STRTSW
5%

:
:CHECK FOR LOCK ON TEST

:PREPARE NORMAL SCOPE ROUTINE

:LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:START AT ‘'CYCLE'' FIND WHICH DEVICE 10 TEST
;1S TEST NO. SELECTED?
BR IF YES

;TYPE R
;START TESTING

SEQ 0027

MACY11 30A(1052)

A U U U U U A U U U U N U Ul U U AN N N N AN NN
Y
(T TV IV TV TV IV TV TV Y LS eSS oS IaS 1S L s dacd[ PO P

08-JuL-80

08-JuL-80 08:21

08:21

PAGE 29

END OF PASS ROUTINE

:END OF PASS

=D e

8
9
0
5

003364

000005

S
6

003372
003376
003402
003410
003414
003420
003426
003430
003434
003440
003444
003450
003454

105037
(05237

i
il e
ok e

7
8
9

d e

D o

D e

0
1
2
3
&
S
6
7

8
9
0

;TYPE NAME OF TEST
;UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
"RESTART TEST

003366

003460
003464
003470
003474

005037

013777
104402
104402

104411
104402
104411
104402
104411
106402
104411
013700

013720
013720
005337
001017

003476
003504
003512
003516
003520

112737
013737
013701
001406
000005

348
349

003522
003524

004711
000240

353
&
S
6

003534
003542
003546
003550

012737
000137
000001
006

2
3
&
S
6

347

NNV

350
351
352

S
8

NNNOOO

8
9
0
1
2
3

003522

003526
003530
003532

003552

003554
003556
003560
003562
003564
003566
003570

003572
003574

000240
000240
000240

001404

000001
004
001374
000001
006
001230
(00001

006
001232

}

.EOP:

001234

001325
001230
001230
005733
006072
003546
006100
003554
006106
003562
006117
003570
001322

000377
001310
000042

175570

002
002

001214

CLR

LSTERR

MoV
MOv
DEC

PASCNT, (RO) ¢
ERRCP, (RO) ¢
SAVNUM

BNE

001327
001314

$ENDAD:

010060
010060

RESET
(LRB
INC
MoV
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
MoV

001230
001232
001314

#377,QV.FLG
DMNUM, SAVNUM
CLLYARL
RESTRY

JSR

PC,(RD)

RESTRT: MOV
JMP
XCSR:
1
.BYTE

XPASS:
XERR:

RESTRY

Movs
MOV
MoV
BEQ
RESET
NOP
NOP
NOP
NOP

XVEC:

ERRFLG
PASCNT
PASCNT ,@DISPLAY
JMEPASS
JMCSRX
,XCSR
JMVECX
,XVEC
+MPASSX
,XPASS
.MERRX
,XERR
MILK,RO

DMCSR

1
.BYTE
DMRVEC
1
.BYTE
PASCNT
1

.BYTE
ERRCNT

;MAKE THE

WORLD CLEAN AGAIN.

;CLEAR LAST ERROR P(

;CLEAR ERROR FLAG
;UPDATE PASS COUNT
;DISPLAY PASS COUNT
;TYPE END PASS
;TYPE CSR
;SHOW IT
s TYPE VECTOR
;SHOW 17
; TYPE PASSES
;SHOW IT
: TYPE ERRORS
;SHOW 1T
;GET POINTER TO PASS COUNT

:STORE PASS COUNT FOk THIS DM(11
;STORE ERROR COUNT FOR THIS DMC11
;ARE ALL DEVICES TESTED?
:BR [F NO.

;SET THE QUICK VERIFY FLAG.
;RESTORE THE COUNT
;CHECK FOR ACT-11 OR DDP
;IF NOT, CONTINUE TESTING
;STOP THE ShOW=-- CLEAR THE WORLD

#CYCLE ,RETURN
CYCLE

6,2
6,2

6.2
6,2

:SCOPE LOOP AND INTERATION HANDLER

3
0

SEQ 0028

003576
003602

004737
010016

007606

.SCOPE: JSR
MoV

PC,CKSWR
RO, (SP)

:CKECK FOR SOFT SWR
;SAVE RO ON THE STACK

CIDMH

MACY11 30A(1052)

CZOMNH. PN

003604
003612
003614

1380

003632

1378
1379

003616
003622
003624
003630

1381
1382
1383

003640
0036642
003646

1385
1386
1387

1388
1389
1390
1391
1392

1393

1394
1395
1396
1397
}ggg

08:21

08-JuL-80 08:21

1373
13764
1375
1376
1377

1384

08-4uL-80

003650
J03654
003662
003664

003670
003674
003700
003706
003714

003716

003720
003724
003730
003732
003734

032777
001407
000437
005737
007434
005037
000415

032777

001011
105737
001406

005237

023737
101414
105037

005037
005037
012737
013737
011600

022626

013701
000177
001407
000437
000000

040000

175370

TTST:

003734

175342

18:

001327

0012264

001325
001224
001220
000020
001216

)

2%:

001222
001214

001404
175264

003736

004737

1405
1406
1407
1408
}2?8

003750
003752
003756
003760
003764

001405
005737
001402
013716
000002

1611
1412
1413

003742

032777

007606

001000

175232

001220

000002
000002
010016

000002

1419

004010

032777

010000

175164

1428

#SW11,aSwWR

;DELETE JTERATION?

DONE
38
DONE
2%

BNE
1ST8
BEQ

2%
Qv.fLG
2%

CMP
BLOS
CLRB

LPCNT, ICOUNT
3%
ERRFLG

BRW:
BRX:
DONE:

MOV
JMP
1407
437
O

POP2SP

LPCNT

LPCNT
LOCK
#20, ICOUNT
NEXT,RETURN
(SP),RO
DMCSR,RY
SRETURN

:WAS TKCSR DONE SET?
:BR IF NO (LOCKED ON TEST)
;YES, CLEAR FLAG
;G0 TO NEXT TEST

THIS LOC =240)
THIS LOC =240)

(QUICK PASS)

;BR IF YES
;HAVE PASSES BEECOMPLETED?
:BR IF QUICK PASS,

;UPDATE

ITERATION COUNTER

;ARE ALL ITERATIONS IONE??
;BR IF NOT1 YET
;PREPARE FOR NEW TEST

;START ICOUNTER AT 0

;RESET ITERATIONS
;GET NEXT TEST
;POP RO OFF OF THE STACK

;FAKE AN 'RTI"’

;R1 CONTAINS BASE DML ADDRESS
;60 DO THE TEST

.SCOP1:

JSR

BIT

BEQ
TST
BEQ
MOV
RTI

PC,CKSWR

#5w09,aSwWR
19
LOCK
1%
LOCK, (SP)

;CHECK FOR SOFT SWR

;1S SW09=1(SET)?
;8R IF NOT SET.

.GOTO THE ADDRESS
;60 BACK.

IN LOCK.

;TELETYPE OUTPUT ROUTINE
j=====eseccccccccccccce-

010546
017605
062766
005737

1422
1623
1426
1425
1426
1427

8IT

TST
BEQ
(LR
BR

3$:

1%:

003766
003770
003774
004002

1420
1421

;"'LOOP ON THIS TEST'"?
;BR IF NO.
(IF LOCK SWO1=1;
;6070 7%
(IF LOCK SW01=1;

CLR
CLR
MOV
MOV
Mov

001220

14614
1415
1416
1417

1418

#BIT14,85WR
14
3

;CHECK FOR FREEZE ON CURRENT DATA

1403

1404

SE@ 0029

BIT
BEQ
BR

INC

(01222

1400

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

003734

004000

PAGE 30

004006

004016
004020

004022
00640264
004030
004034
0064036
004042

004044

001004

001012
105715

100002
104402
105777
100375
112577
001357

012605

LTYPE:
(s:

1$:
005672
175154

2%:

175150

3%:

MOV
MOV
ADD
ST

RS,=(SP)
82(SP) RS
#2,2(SP)
SWFLG

:SAVE R5 ON THE STACK.
;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.
;SOFT SWR MESSAGE?

BIT

#SW12,35WR

;INHIBIT ALL PRINT QUT??

BPL
TYPE
TST8
BPL
Move
BNE

2%
JMCRLF
8TPCSR
2%
(RS)+,aTPDBR
4%

BNE

BNE
1578

Mov

3¢
(RS)

(SP)+,RS

;1F YES TYPE [T OUT REGARDLESS OF Sw1?
;BR IF NO PRINT OUT WANTED (Swic-1)
;1S NUMBER MINUS? (MSB=1(BIT7))
;BR _[F NUMBER IS PLUS
;TYPE A CR/LF!
sTTY READY?
;BR [F NO,
:PRINT CURRENT CHAR.
;IF NOT ZERO KEEP PRINTING.

;END OF OQUTPUT. RESTORE RS

MACY1Y 30A(1052)
08-JuUL-80
08:21
AR
80
QOLUN
08-JuLCIDMH

1429
1430
13
1432
1433
14634

1435

16436
1437
1438
1439
1440
164610
1642
1443
16444
1445
1446
14647
1448
1449
1450
1451
1452
1453
1454

1455

1456
1457
1458
1459
1460

004040

000002

004050
004052
004054
004062
004070
004072
004074
004100
004104
004110
004112
004116
004122
004126

010346
010446

3
E
PAGE 31
08:21
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ET()
;GO HOME

000004

000002

175074

JINSTY:
.MSG:

2%:

175054

004144
004146
004150

006152
004154
004160
004162
004164
004166
004170
004172

005666

175046

:SAVE

1ST8
BPL
Mov

MOV
MOV

INSTRZ: MoV

MOV
RTI

= NIN) = OO O

NO NN NNV

— il il el il ) el ) e

OO
o
wn
s
N NN Or

O=2Q = =P

04276

OB
VNE NNV NO
S SV NNNNNWVWOO

SLVTN
~ ~

QOO
o0

1480

Nog [STe ¥

N aTo J N

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479

[ S

1466

1465

OO WVEAONON
2 PORLADIN
=) =

SR8

1464

.PARAM:

000004
004364
004366
004370
004372
004373
000004

w502
000015
000060

000067
000060
000015

MOV
MOV
MOV
MOV
MOV
MOV

:
PARAMI

1%:

R4 ON STACK

#7.R3
JTKCSR
1%
aTKDBR, (R4)
#200, (R&)
(R4)+ 215

INSTRS

aTPCSR

@TKDBR,8TPDBR
R3
1%
(SP)+ R4
(SP)+,R3
L

R3,-(SP)

R4 ,-(SP)

LINSTH

¢+ ,R4
(SP)

(SP)+,R3

:RESTORE R4

;RESTORE R3

;CONVERT ASCI] STRING TO OCTAL

16462
1463

1481

BEQ

DEC
BNE
MOV
MoV
JINSTE: TYPE

1461

1482
148%
1484

:SAVE R3 ON STA(CK

#INBUF ,R&

1¢:

175070
000200
000015

175044

004072

000004

007502
000007

004130
004134
004136

.INSTR:

MOovB
MOovS
Mov

(LR

MOV

(MPB
8eaQ
(mMPB
BLY
(MPB

BGT
8l1(8
8158
{MPB
BEQ

RS ,=(SP)

R4 ,-(SP)

L(SP) RS
(RS)+,LOLIM
(RS)
¢+, HILINM
(RS)+,DEVADR
(RS)+,LOBITS
)
¢ ADRCNT
(RS
RS ,4(SP)
RS
# INBUF R4

5, (R4)
PARERR

(R4) ,#60

PARERR

, 067
(R4)

PARERR
060, (R4)

(R&)
¢+ RS
215, (R4)
LIMITS

SEQ 0030

MACY11 30A(1052)
08-JuL-80
. P11
CIDMK
08-JuUL-80 08:21
CZDMH

1485
1486
1487
1488
1689
1490
14691
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501

& MM

OO®NP

s o

i o

D e e

e o

D e

d e

D e

YA VA LA WA WL VA VA WA WA WA WA WA VA VLA WA WD VVPDA VN VWAL

oD i e

VWA NN

gWWWWU‘WNNNNNNNNNN—‘—'—‘—‘—'—‘—‘—‘—‘—‘o
NN OO
NO VNS UWN 2O 0D NONEWN =00

1508

004300
004302
004304
004306
004310
004312

08:21

006305
006305
006305
000760
1046404
000750

PAGE 32

GENERAL UTILITIES

PARERR:

(TYPEOUT, ERROR,

ASL
ASL
ASL
BR

kS
RS
RS
1%

PARAMI

INSTER

3
SCOPE, ETC)

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
004314
004320
004322
004326
004330
004334

020537

004366

020537

004364

133705
001365

004372

101373

103770

LIMITS:

(MP

RS,HILIM

CMP
BLO
BITB

RS,LOLIM
PARERR
LOBITS,RS

BHI

BNE

PARERR

;STORE NUMBER AT

004336
004342
004 344
004350
004354
004356
004360
004362

004364
004366
004370
004372

013704
010524
062705

105337

001372
012604
012605
000002
000000
000000
000000
000000
004373

004370

1%:

000002

004373

LOLIM:

HILIM:

DEVADR:
LOBITS:

MoV
MOV

DEVADR,R4
RS, (R&)+

MOV
MOV

(SP)+,R4
(SP)+,RS

ADD
DECB
BNE
RTI

SPECIFIED ADDRESS

#2,R5
ADRCNT
1%

0
0

ADRCNT=L0BITS+1

;SAVE PC OF TEST THAT FAILED AND RO-RS
004374

000004

001276

.SAV0S: MoV

4L(SP),SAVPC

:SAVE R7 (PC)

:SAVE RO-RS
004402
004406
004412
004416
004422

004426
004432

001272
001270
001266
001264
001262
001260

SvOs5:

Mov

RS,SAVRS

:SAVE RS

MoV
MOV

R3,SAVR3
R2,SAVR?

;SAVE R3
;SAVE R?

MOV

MOV
RT]

R4 ,SAVRG

R1,SAVRY

RO,SAVRO

JSAVE R4

;SAVE R

:SAVE RO
JLEAVE.

;RESTORE RO-RS

004434
004440
004446
004450
004454
004460

001260
001262
001264
001266
001270
001272

LRESOS: MmOV

SAVRO,RO

;RESTORE RO

MoV

SAVRY,RS

:RESTORE R3

MOV
MoV

MOV

Mov

SAVR1 ,R1
SAVRZ ,R?

SAVR4G ,RG

SAVRS,RS

JRESTORE R
;RESTORE R?2

:RESTORE R4

;RESTORE RS

SEQ@ 0031

CIOMH

MACLYY1T 30GA(1052)

CZDMH.P11
;223

O08-JUL-80

08-JUL-80 08:21

004464

08:21

000002

RT]

004466
004472
004474

104402
010046
010146

1550
1551

004500
004502

010646
010546

004510
004516
004522
004526
004532
004536
004544
004546
004554

062766
012137
112137
112137
013137
122737
001003
062737
013704

1552

1553
1554
1555
1556
1657
1558
1559
1560
1561

1562

1563
1564

1565

1566
1567
1568

004476

004504

004560

017601

113705

004564
004570

012700
010403

004576
004602
004604

062703
110320
000241

004572

042703

004606
004610
004612
004614
004616
004620
004622

006004
000241
006004
000241
006004
005305
001362

1577

004630

114023

1578
1579
1580
1581

1582
1583
1584
1585

1586
1587
1588

1589
1590

1591
1592

1593
15964
1595

1596

006626

005672

000012

000002
004710
004712
004713
004714
000003

600012

177400
004714

004716

004712

001416

177770

004632
004636
004640
004644

105337
001374
105737
001405

004712

004662
004
004672

104402
005337
001313

007544
004710

004674

004676

004700
004702

004704

004706
004710

004712

R4 .= (SP)
RS,=(SP)

al2(SP),R1

MOV
MOV

#TEMP,RO
R4 R3S

ADD
MOVB
cLe

#060,R3
R3, (RO)+

004712

MOVB

BIC

ROR
(Le
ROR
(Le
ROR
DEC
BNE

004713

000040
004713

R3,~(SP)

2% :

5¢:

6% :

MOV

MOVB

R4
R4

R4
RS
38

#MDATA
R3S

-(RO), (R3)+

LMDATA
WRDCNT
1%

MOV

WRDCNT:

017777083

TYPE
DEC
BNE

MOVB
DECB
BNE
CLRB

MOV
MOV

012600

CHRCNT.RS

CHRCNT
4
SPACNT
6%

MOV

012603
012601

#2,12(SP)
(R1)
¢+ ,WRDCNT
(R1)¢+,CHRCNT
(R1)+,SPACNT
a(R1)+,BINWRD
#3, CHRCNT
28
#177400,BINWRD
BINWRD,
R4

DECB
BNE
1ST8
BEQ

MOV

012604

000000

MOV
MOV

ADD
MOV
MOVB
MOVB
MOV
CMP8
BNE
BIC
MOV

012605

000002
000000

,MCRLF
RO,=(SP)
R1,=(SP)

MOV

000060

007544

112723
105337
001373
105013

)

TYPE
MOV
MOV

MoV

012703

004646
004652
004656
004660

.CONVR:
LCNVRT:

010346

1569
1570
1571
1572
1573
1574
1575

1576

;LEAVE

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

1546
1947
1548

1549

GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ETC)

}222

1545

PAGE 33

RT]
0

(HRCNT: 0

2040, (R3)+
SPACNT
S
(R3)

(SP)+,RS
(SP)
¢ ,R4

(SP)¢.R3
(SP)+,
R\

(SP)+.RO

SEQ 0032

MACY11 30A(1052)
(Z0MH
08-JuL-80
AR!
QOLUM
08-JuL~80 08:21
1597
1598
1599
1600
1601

004714

H
3
08:21
PAGE 34
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
+1
SPACNT=(CHRCNT

004713
000000

BINWRD:

004716
004720
004724
004730
004732
004736
004742
004746

MOV
SUB

MOV
TRPOK: _ ASL

IC
D

177001

001330
000000

MOV

JMP

(SP),=(SP)
#2,(SP)

;GET PC OF RETLRN
:=PC OF TRAP

#177001, (SP)
#.TRPTAB, (SP)

;CLEAR UNWANTED BITS
;POINTER TO SUBRGUTINE ADDRESS

8(SP), (SP)
(SP)
a(SP), (SP)

a(SP)+

:GET TRP
:MULTIPLY TRAP ARG BY 2
;SUBROUTINE

ADDRESS

;60 TO SUBROUTINE

.ERROR HANDLER

105037
104406

011605

105737

001403
005737
001040
104402
104402

0057%7
001402
1064402
106402
104411

174220

JHLT:

—

Hr0

000207
020000

XBX:

000002

177001

023404
005172
005204
005216
001325
005216

005672
005672
001220
006142
006130
005330

XBX

‘BR

TSTB

@TPCSR

MOVE

#207,aTPDBR

BNE

HALTS

BIT

XBX

#su1d, asuR

(SP) ,LSTERR
1%

‘BELL ON ERROR?
IF NO BELL

“TTY READY.

:DON'T WAIT IfF

TTY NOT READY.

'PUSH A BELL AT THE

TTY.

*DELETE ERROR PRINT OUT?

“BR IF NO PRINT OUT WANTED.

"WAS THIS ERROR FOUND LAST TIME?
BR IF YES

MOV
CLRB
SAVOS
MOV

(SP),LSTERR
ERRFLG
(SP) RS

“RECORD BEING HERE
*PREPARE HEADER
“SAVE ALL PROC REGISTERS
“GET THE PC OF ERROR

MOV

(R5) . R4

*GET HLT

SUB

#2 RS

ASL

BIC

#177001,R4

TYPE

.MCRLF

ADD
ASL

ADD
MOV
MOV
MOV
TSTB
BEQ
ST
BNE
TYPMSG: TYPE

(RS) ,Ré
R4

¥ .ERRTAB,R&
(RG)+,ERRMSG
(RG)+.DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT
,MCRLF

Locx

TYPE
TYPE

,MASTEK
.MISIN

BEQ
18

SCHECK FOR SOFT SWR

#SW12,aSwR

CMP
BEQ
18

PC,CKSWR

BIT
BPL

001234
001234
001325

JSR

BEQ

174220
~

032777
001105
021637
001404
011637

007606
010000

004737
032777
001406
105777
100003
112777

~N~N
P i o
—_—n

004750
004754
004762
004764
004770
004772
005000
005006
005010
005014
005016
005022
005026

011504
006304
061504
006304
042704
062704
012437
012437
011437

1652

.TRPSR:

000002
000000

—

=2 O O 00NN
W) —

PIPIAORN)
o —2 d b b b o b b

b
el
e
)
il
) ad
D
s
and and el
— o

ooooooooororOrOO

;7O SELECTED SUBROUTINE

162705

1650

;TRAP DISPATCH SERVICE
;ARGUMENT OF TRAP [S EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER

1602
1603

1647

SEQ 0033

CNVRT

*GET ADDRESS OF
‘MULT BY

TWO

*DOUBLE IT
'MULT AGAIN

"CLEAR JUNK

“GET POINTER
:GET ERROR MESSAGE
:GET DATA HEADRER
'GET DATA TABLE
‘TYPE MEADREER
‘BR IF YES
"DOES DATA TABLE EXIST?
"BR IF YES.

XTSTN

TRAP CALL

INSTRUCTION

SHOW |1

CIDMH
MACYYY 3GA(1052)
08-JuL-80
CI0OMHKH . P
08-JuL-80 08:21
1653
1654

1655
1656
1657

005140
005144

104402
104411

005150
005154
005162

104402
112737
005737

1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670

005172
005174
005174
005200
005202
005204
005206
005212
005214
005216
005220

000000

1672
1673

005230
005232

1658
1659

1671

16764
1675
1676
1677
1678
1679

1680

1681
1682
1683
1684
1685
1685
1687
1688
1689
1690
1691
1692

1693
1694

1695

1696
1697
1698

005166
005170

005222

005236
005240
005242
005246
005250
005252

005256

005264
005266
005274
005276
005304
005310
005314
005320
005322
005324

005326
005330

005332
005334

005737
001402
104402
000000
005737
001402
104410
000000
104407

022737

001403
005777

100005
010046
010600
000000
012600
005237

032777

001007
032777
001411
013737
012706
013701
000177
000002
000001
006
001276
000001

003

001226

08:21
PAGE 35
GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ET(C)

006217
005322

005672
177777
005172

TYPE
CNVRT

TYPE
MOVB
TST

001325

BEQ
TYPE

005336

};8%

005346

WRKO.FM:

005204

DATAHD:
TYPDAT:

00521¢

000042

173744

000002
001232

000400

173716

002000

173706

001216
001200
001404
173674

001214

002

DATABP:
RESREG:

HALTS:

1707
1708

;TYPE PC.
:SHOW [T

WRKO.FM

:BR 1F NO.
:TYPE

JMCRLF
#-1,ERRFLO
ERRMSG

DATAHD
TYPDAY

BEQ
ST

1%
aSWR

(MP

BIT

BNE
BIT
BEQ
MOV
1%:
MOV
MOV
JMP
2s:
RT]
ERTABO: 1
.BYTE
XTSTN:

002

TST
BEQ
TYPE
0
TST
BEQ
CONVRT
0
RESOS

BPL
1$:
PUSHRO
MOV
HALT
POPRO
EXITER: INC

SAVP(
1

.BYTE

TSTNO

DATABP
RESREG

#SENDAD 3042
EXITER

2(SP),RO
ERRCNT

#SW08,aSwWR

1%
#SW10,85WR
23
NEXT,RETURN
#STACK,SP
DMCSR,RY
SRE TURN

;GIVE A CR/LF
:NO MORE HEADER UNLESS NO DATA TABLE.
:1S THERE AN ERROR MESSAGE?
:
ERROR MESSAGE
:
,DATA HEADER?
:BR IF NO
:TYPE
;
DATA HEADER
:DATA TABLE?
:BR IF NO.
: SHOW
:
DATA TABLE
:RESTORE PROC REGISTERS

;IF ACT=11 AUTOMATIC MODE, HALT.!
;HALT ON ERROR?

:BR IF NO HALT ON ERKOR
;SAVE RO
:SHOW ERROR PC IN DATA LIGHTS
SHALT
:GET RO
;UPDATE ERROR COUNT

:GOTO TOP OF TEST?

;BR [F YES
;GOTO NEXT TEST?
;BR IF NO
;SET FOR NEXT TEST
;RESET SP
;SET UP R1
:GOTO SPECIFIED TEST
:RETURN

6,2
3,2

;ENTER HERE ON POWER FAILURE

005336
005344

012737
000000

005350

000024

PFAIL:

MoV
HALT

#RESTART, 24

000777

};8§
1706

JMERRP(
LERTABO

ERRMSG: 0

003522

jeeseeseescememmmcccoceeoae-

1699

1700
1701

001402
104402

;SET UP FOR POWER UP TRAP
:HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
005350

005350
005356

012737
012706

005336
001200

000024

RESTAR:

MoV
MOV

#.PEAIL,24
#STACK,SP

:SET UP FOR POWER FAILURE
RESET THE STACK POINTER

SEQ 0034

1
17

17
17
17
17
1759
1760
17
17
17
17

005362
005366
005372
005376
005400
005404
005410
005614
005420
005422
005424
005430
005432
005434

013701
005037
005237
001375
104402

104411
105037

005037
00501
104412
000177
000001
003
001226

005436
005436
005444
005446
005450
005450
005452
005454
005462
005464
005466
005466
005474
005502

005504
005504
005512
005516
005522
005530
005532
005534
005542
005550

J
3
PAGE 36
08:
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

001404
001416
001416

MOV

005675
005430
001325
001234

TYPE

CLR
INC
BNE

CNVRT
CLRB
CLR
CLR

MSTCLR

173564

FETAB:

002

000020

.BYTE

173746

DELAY:

JMP
1

DMCSR,R1

;RESTORE R1

;BR IF MORE T0 GO

TEMP
TEMP

;READY FOR TIMMER
;PLUS ONE TO THE TIMER!

JMPFAIL

;TYPE

;TELL WHAT TEST TO RETURN TO.

LSTERR

:IKN"-’O""”’CNO

;START CLEAN

ERRFLG
(R1)

;CLEAR MAINT BITS

;START CLEAN UP OF DEVICE
;START DOING THAT TEST AGAIN.

SRETURN

3,2

TSTNO

#20,30MPO4

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;POKE CLOCK DELAY BIT

1%:

000020

173730

000100
000300

152777

000002
173676
000002
000100

173674

000003
000007

173644
173636

000002

013677
062746
032777
001401
000000
152777

162777

000002

005552
005552
005556
005562
005570
005576
005604
005610
005612
005614

013637
062746
152777
027777
162777
005337
001364
000002
000001

001416
000007
000020
173610

005616
005616
005622

013637
062746

001416
000002

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
#B1T4,aDMPO4

:PORT4 1BUS*11
;1S cLOck BIT SET?

#B1T6,@DMCSRH

;SET MASTER CLEAR

MSTCLR:

152777
162777

THE MESSAGE

PFTAB

;BR

#B1T6!BIT7 ,@DMCSRH

;CLEAR MASTER CLEAR AND RUN

;RETURN

.ROM(LK:

#B17T1,8D0MCSRH

;SET ROMI

;LOAD INSTRUCTION IN SEL6

(SP)+,30MPO6
#2,-(SP)

#SW06,3SWR
1%

173452
1%:

1%:

'81710,

'BIT1

0,30MCSRH

;CLEAR ROMO, ROMI, STEP

;PUT TICK COUNT IN TEMP

SOMCSR,8DMCSR

WASTE TIME

#2,-(SP)
#BIT4L,9DMCSRH

3%
.TIMER:

STACK

SHALT IF SW06 =1
:BR IF SW06 =0
;HALT BEFORE CLOCKING INSTRUCTION
CSRH ;CLOCK INSTRUCTION

8(SP)+ TEMP

#8174 ,30MCSRH
TEMP
1%

000020
001416

sADJUST

—Q
— X

“’Wflhflvfi;t:grUflflhflvflVthJN"UflJflJhJfl"v-J—J—La.a.A—A_o_hacp
OO0~
W
=2 OO0 NO NS NWN=2O OO NN
W00

MACY11 30A(1052)
08-JuL-80
P
08-JuL-80 08:21

NNNSNNSNNNNNNNNNNNSNNNNNNNNNNNNNNNNNNY

a(SP) ¢+, TEMP
#2,-(SP)

:ADJUST STACK
;SET STEP LU

;CLEAR STEP LU
;DEC TICK COUNT
:BR IF NOT DONE

;RETURN

;MOVE COUNT TO TEMP
;ADJUST STACK

SEQ 0035

(Z0MH

MACYY 30A(1052)

C20MKH. P11
1765

08-JuL-80 08:21

005626

1766

005626

1768

005632

1770

005642

1767

1769

021364

005640

001772

005642

177%

005646

1774
1775
1776

};;g

1779

(2)
(2)
(2)
(2)

032777

021364

005654
005656
005662

001372
005337
001361

005666

032777

RTI

000077

MOM:

LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

047040

MERR2:
MERR3:
MTSTPC:
MLOCK:
MCSRX:
MVECX:
MPASSX:
MERRX:
MTSTN:

MNEW:

051777

052105

051440

(2)
(2)

0062264
006263

020212
377

020040
020040

(2)
(2)
(2)
(2)

006450
006510
006526
006547

044377
041777
053377
377

(2)

006130

(2)

(2)
(2)

(2)
(2)
(2)
(2)
(2)

(2)

006142

006217

006322
006374

006606
006704

007016
007054
007114
007154
007205
007215

(2)

007223

s%;

007340

(2)
(2)
(2)

(2)
1780
1781

BNE
DEC
BNE

047377
377
377
377

051503
042526
040520
105
000052

120

020212
026777

035103

050040
026455

053517
051123
041505
051102

044777
053777

020106
044510

116

053505

051777
051777
044777
047377
377

3727

007277
007320
007330

377
024040
024040

007454
007456
007460

000005
006
001246

042377

044527
044527
020123
020117
051412

020122
020104

042504
052523
052123
045503
000040
000040
051505
051117

000040

020103
026455

MERRPC:

XHEAD:

NUM:
{SR:
VEL:
PRIO:

041524
041524
044126
042504
051127

LINE:
BH
CONN:
NOACT:
SWMES:

046504
044103

020077

041515

030461

003

MASTEK:

046440
040440
047524
050040

042377

054105
046504
046513

MCRLF:
MPFAIL:
MEPASS:
MR:

042520
024503
024503

CRAM:
MODU:

SWMES1:

LASCIZ
.ASCIZ
.ASCIZ
ASCIZ

S:EED:
EVEN

;PORT4 _[BUS* REG11T

#2,30MPO4

;1S PGR CLOCK BIT CLEAR?

:BR IF YES

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PORT4 _1BUS* REG11

#2,30MPO4

;1S PGM CLOCK BIT SET?

23
TEMP
1%

:BR IF YES
:DEC COUNT
;BR IF NOT DONE

;RETURN

_ASCIZ

<15><12>
<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CIDMH
/
<377>/R/
<377>/NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC-/
<377>/LOCK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /

ASCIZ

<377>/SET SWITCH REG TO DMC11°'S DESIRED ACTIVE./

.ASCII
ASCIT

<212>/
<377>/

LASCIZ
LASCIZ
JASCIZ
.ASCIZ

<377>/HOW MANY DMC11'S TO BE TESTED?/
<377>/CSR ADDRESS?/
<377>/VECTOR ADDRESS?/
<377>/BR PRIORITY LEVEL? (4,5,6,7)7/

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

ASCIT
ASCI?

ASCIZ
.ASCIZ

.ASCIZ
LASCIZ
.ASCIZ
ASCIZ
.ASCI?

.ASCIZ

(CONERR: .ASCIZ

CNERR:
OMCM:
«kMCM:

SEQ 0036

;NEXT WORD IS INSTRUCTION, ROMCLK P(=53064

ROMCLK

8IT

001416

006144

006072
006100
006106
006117

005015
377
377
377

BEQ

021364

173536

062524

(2)
(2)
(2)
(2)

005760
006005
006031
006043

BIT

000002

020040

ROMCLK
021364

2$:

000002

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

173552

000
053520
047105
000122
020117
047111
042524
047514
035122
035103
051523
051122
052123

(2)
(2)
(2)
(2)

005672
005675
005733
005755

000002

PAGE 37

18:

104414

005644

005664

08:21

104414

005630

1771

1772

08-JuL-80

.ASCIZ
.ASCIZ
_ASCIZ

LASCIZ

XSTATQ: S
.BYTE
TEMP

/+/

/PC:

MAP OF DMC11 STATUS/
esececcemccococene-

<«212>/ PC
CSR
STATI
<3775/==ee=s ecccce emecme

STATZ
sc-eoe

STAT3/
ooo-ee /

<377>/1F DMC HAS CRAM (MB204) TYPE "Y', IF CROM (MB200) TYPE 'N'' ?/
<377>/WHICH LINE UNIT? IF NONE TYPE ‘N, IF MB201 TYPE ""1'', IF M8202 TvP
<377>/SWITCH PAC#1 (DDCMP LINE #)?/
<377>/SWITCH PACH2 (BM873 BOOT ADD)?/
<377>/1S THE LOOP BACK CONNECTOR ON?/
<377>/NO DEVlCES ARE SELECTED/
<377><12>/SUR
/NEW?
/

<377><377>/DMC11 FOUND AT NON~STANDARD ADDRFSS
<377>/EXPECTED
/ (DWC) /
/_(kMC) /

FOUND/

PC: /

<377>/DMC11-AR(REMOTE,LOW SPEED) OR DMC11-AL(LOCAL ,HIGH SPEED) TYPE "R"
6,3

MACY11 30A(1052)
08-JuL-80
CZDMH
CZDMKH
. P11
08-JuL-80 08:21
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797

007462
007464
007466
007470
007472
007474
007476
007500

006
001250
006
001252
006
001254
006
001256

PAGE 38
08:21
GENERAL UTILITIES (TYPEQOUT, ERROR, SCOPE, ET(C)

003

BYTE

6,3

.BYTE

6,3

.BYTE

6,3

.BYTE
TEMPS

6,2

TEMP?

003

TEMP3

003

TEMP4

002
.EVEN

;BUFFERS FOR INPUT=-QUTPUT
007502
007544

INBUF:
.=.+40
MDATA:

000000
007544
000000
007606

.=.+40

O
O

;ROUTINE USED TO CHANGE SOFTWARE SWITCH
sREGISTER USING THE CONSOLE TERMINAL

b b b od cd b ad ed e

OO NOWVESWLWN
=4O

022737
001077

105777

007632
007640

177777

003734

000207

171336

77777
17777

007205

007215
010020
000015

007710

000007

177770

~
~

AN
NO

O O» O» OB O

000025

— d d
e i

(KSWR:

171362

000012

O O

001202

171346

007760

006302
050302

010016

CMP
BNE

#SWREG, SWR
CKSWRS

.1S THE SOFT SWR BEING USED?
:BR IF NO

‘60 ON IF NOT SET

CMP

#7,3TKDBR

‘WAS CTRL G TYPED? (7 BIT ASCID)

CMP

#207,3TKDBR

*WAS CTRL G TYPED? (8 BIT ASCID)

MOV

R2,=-(SP)

*STORE R2

MOV
MOV

R& - (SP)
#-1,SWFLG

:STORE R&
“SET SOFT TYPE OUT FLAG

,SWMEST

STYPE 'NEW? °

TSTB

aTKCSR

MOV

#-1,DONE

BPL

2%:

1$:

~N S

1823

000176

000007

PPN

b e

©» O» 09 O» 09 OB 09 OB 09 O O 09 O

1809

007606
007614
007616
007622
007624

1804
1805
1806
1807
1808

BEQ

BNE

MOV

CKSWR1: CLR
MOV
TYPE
CKSWR2: CNVRT
SOF TSW

CKSWR3: TYPE
CKSWR&: JSR

CMP

CKSWRS

R3.-(5P)
R2
#-1,R4
,SWMES

PC, INCHAR

#15.R3

:1S DONE

SET?

“1F DONE SET, SET FLAG
‘BR IF

YES

:BR IF NO

*STORE R3

“CLEAR NEW SWR CONTENTS
“SET FLAG TO ALL ONES
;TYPE ''SWR= "'
STYPE OUT PRESENT CONTENTS
‘OF SOFT SWITCH REGISTER
<GET RESPONSE

‘WAS IT A CR?

CKSWR1
27 ,R3

‘BR IF YES
“WAS IT A LF?
‘BR IF YES
‘WwAS IT CTRL U?
‘BR If YES(START OVER)
S1F CNTL G GET NEXT CHAR

CLR
BIC

4
2177770.R3

1T MUST BE A DIGIT SO CLR FLAG
"ONLY 0-7 ARE LEGAL SO MASK OFF BITS

BIS

R3,R2

SADD LAST DIGIT

BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
ASL
ASL
ASL

5%
212 ,R3
13
#25,R3

CKSWR4

R2
R2
R2

SSHIFT R2 3 TIMES

SEQ 0037

CZOMK

MACY11 30A(1052)

0?-JUL°80

CZ0MH. P11

08-JuL-80 08:2

1838

000752

1839
1840
1841
1842
1843
1844
1845

1846
}gzg

007762

007764
007772
007774
007776
010002
010006
010010

010012
010014

012766
005704
001002
010277
005037
012604
012603

MOV
TST
BNE
MOV
CLR
MoV
Mov

INCHAR:

TS718B
BPL

010020
010024

105777
100375

010026
010032
010036
010040
010044
010050

017703
105777
100375
010377
042703
000207

010052

000001

010054
010056

6$:

1851
1852

1861
1862

&S$:
5%:

SVFLG:

000000

006
000176

171160

171154
171152

MoV
1578
BPL
Mov
BIC
RTS

171146
000200

002

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

Mov
CKSWRS: RTS

010016

1860

171200
010016

000006

PAGE 39

012602
000207

}ggg

1853
1854
1855
1856
1857
}ggg

002002

08:21

SOFTSW:

BYTE

SWREG

CKSWR4
# . START,6(SP)
R&
6%
R2,85WR
SWFLG
(SP)+,R4
(SP)+,R3

(SP) ¢+ ,R2
PC

3TKCSR
.=

8TKDBR,R3
aTPCSR
.=
R3,a8TPDBR
#BIT7,R3
PC
6,2

;GET NEXT CHARACTER

;LF WAS TYPED SO GO TO START
;1S FLAG CLEAR?
:1F NOT DON'T CHANGE SOFT SWR
;IF YES THEN WRITE NEW CONTENTS TO SOFT SWR
;CLEAR TYPEOUT FLAG
;RESTORE R4
;RESTORE R3

;RESTORE R2
;RETURN

SEQ 0038

52)
08-JuL-80
CIDMH
MACY11 30A(1052
CZDMH.P11
08-JuL~80 08:21

08:21

PAGE 40

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

1863

1864

1869

;SETUP NECESSARY.

1865
1866
1867
1868

;ROUTINE USED
;THIS ROUTINE
;AND RUNS THE
;BE RUN FIRST

1872

010060

1874

1877
1878
1879
1880

010066
010072
010074
010076
010100
010104
010110

1882
1883
1884
1885
1886
1887
1888
1889
1890
1891

010124
010132
010134
010142
010150
010156
010160
010164
010170
010174

1873

1875
1876

1881

1892

1893
1894
1895
1896
1897
1898

1899
1900
1901
1902
1903
1904
1905

}ggg

010064

010116

010200

010206
010212
010216
010222
010226
010232

010236
010244
010250
010256
010262
010270
010274

010302

005737

001306

104402

007154

001004

000000
000776

000241
006137
005537
062737

CYCLE:

1%:

001316
001316
000004

001322

022737
001006
012737
012737
033737
001747
013700
013702
012037
011037

001700

001320

012037
012037
012037
012237
012237
012700

001366
001370
001372
001230
001232
000002

062737

042737

013737
005237
013737
005237
013737
060037
013737

060037

000010

001500
001702
001316
001320
001322
001404
001374

001320

001320
001322
001306

177000

001374

001404
001406
001406
001410
001410
001412
001412

001406

001414

001374
001376
001376
06C°400
001400

001376

1915
1916

010344
010352

032737
001450

000002

001236

1918

010354

005737

000042

1917

010340

010354

060037

001402

DMACTV

TYPE

+NOACT

HALT
BR

sNO DMC11°'S SELECTED!!
;STOP THE SHOW.
:DISQUALIFY CONT. SW.
JsCLEAR PROC. CARRY BIT,
;UPDATE POINTER
;CATCH CARRY FROM RUN
;sUPDATE POINTER

#OM . MAP+200,CREAM
2%
sKEEP GOING; NOT ALL TESTED FOR.
#OM . MAP,CREAM
sRESET ADDRESS POINTER.
#CNT
MAP MILK
;RESET PASS COUNT POINTER
RUN,DMACTV
;1S THIS ONE ACTIVE?
1%
;BR IF NO
CREAM,RO
:GET ADDRESS POINTER
MILK,R2
;GET PASS COUNT POINTER
(RO)+ ,DMCSR
;LOAD SYSTEM CTRL. REG
(RO) ,DMRVE(
sLOAD VECTOR

ADD

#10, CREAM

0177600.DHRVEC
(RO)+,STATT
(RO)+,STAT?
(RO)+,STAT3
(R2)+ ,PASCNT
(R2)+,ERRCNT
#2,R0

DMCSR,DMCSRH
DMCSRH
DMCSRH,DMCTL
OMCTL
ODMCTL ,DMPO4
RO ,DMPO4
DMPO4L ,DMPO6

;JUPDATE ADDRESS POINTER.

JCLEAR UNWANTED BITS
;LOAD
sLOAD
JLOAD
;LOAD
;LOAD
;SAVE

STAT
STAT?
STAT3
PASS COUNT
ERROR COUNT
CORE THIS WAY!

RO.DMPOG

MOV
ADD
MOV
ADD
MOV

OMRVEC,DMRLVL
RO,DMRLVL
DMRLVL ,DMTVEC
RO,DMTVEC
DMTVEC,DMTLVL

,PTY LVL
.
TX VEC
:
,TX LVL

BIT
BEQ

#5¢01,STRTSW
7%

1S TEST NO. SELECTED
;BR IF NO

abic

;RUNMING IN AUTO MODE?

ADD

3 ¥

;ARE ANY DMC11°'S TO BE TESTED?

JBR IF OK.

(MP
BNE
MOV
MOV
BIT
8EQ
MOV
MoV
MOV
MOV

MOV
INC
MOV
INC
MOV
ADD
MOV

001402

RUN
RUN
#6 MILK

MOV
MOV
MOV
MOV
MOV
MOV

001400

TO '‘CYCLE'' THROUGH UP TO 16 DMC11'S
SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
SPECIFIED DMC11'S.
THIS ROUTINE +MUST+
BEFORE ENTERING THE DIAGNOSTIC FOR THE

CLC
ROL
ADC
ADD

BIC

001414

013737
060037
013737
060037
013737

}g}z

2%:

001472

010306
010314
010320
010326
010332

TST

BNE

ADD

001410

1908
1909
1910
1911
1912

RO,DMTLVL

SEQ 0039

MACYYY 30A(1052) 08-JuL-80
C20MH
CZOMM . P11
08-JuL-80 0 8:21
1919
1920
1921
1922

010360
010362

010366
010370

001045
104402
104403
006130

1926

010400

001226

1923
1924
1925

1927
1928

1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946

1947
1948
1949

1950
1951
1952
1953
1954
1955
1956
1957
1958
1959

1960

1961
1962
1963
1964
1965
1966
1967

1968
1969
1970
1971
1972
1973
1974

010372
010374
010376

010402
010403

08: 21

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
BNE

TYPE

005672

INSTR

JMCRLF

MTSTN
qARAH

104405
000001
001000
000
001

PAGE 41

;BR IF YES
;GET TEST NO.

1000

010404
010410
010412
010414
010416
010424
010426
010434
010436
010442
010446
010454
010456
010460
010466
010466
010472

012700
022710
012737
001020
023760
001014
022760
001010
010037
104402
042737
000412
005720
020027
001351
104402
000730

012320

010474
010502
010506

012737
013701
000177

012320
001404

.BYTE
BYTE
g

001226

000002

001226

000004

001214
005755
000002

Mov

CMP

Mov

BNE
(MP
BNE
(MP
BNE

MOV
TYPE

001236
6%:

01621¢

TSTNO

0
1

001214

170502

7%:
BS:

;CMP FIRST WORD TO 12737

TSTNO,2(R0O)

;BR IF NOT SAME
sDOES TSTNO MAT(CH"

4 (RO)
#1STNO,

;IS LAST WORD 0K?

RO,RETURN
MR

8IC
BR
TST
(MP
BNE

#SW01,STRTSW

'3)

[[0}
MOV
JMP

DMCSR,RY

TYPE

005666

#75T1,RO
(PC)+,(RO)
(PC)Y+,a(PC)+

8%
+
(RO)
Rg.lTLAST¢10
,MQM

#TST1,RETURN

ARETURN

:BR

;BR IF NO

;1T IS A LEGAL TEST SO DO IT

;POP RO

;AT END YET?
;BR IF NO
;YES ILLEGAL TEST NO.
: TRY AGAIN

;PREPARE RETURN ADDRESS
;R* = BASE DMC11 ADDRESS
;G0 START TESTING.

;ROUTINE USED TO '"AUTO SIZE'' THE DMCI

;CSR AND VECTOR.
THE CSR MAY BE ANY WHERE IN THE FLOATING
;JNOTE:
ADDRESS RANGE (160000:164000)
AND THE VECTOR MAY BE ANY WHERE IN THE
FLOATING VECTOR RANGE (300:770)

010512

030512
010514
010520
010522
010526
010530
010534

010540
010544
010552
010554
010560
010566
010570

000005
012702
005022
022702
001374
005037
012702

005037
032737
001002
000137
012737
104403
006450

AUTO.SIZE:
RESET

CSRMAP: MOV

001500

1%:

001700

001310
001500
001306
000001
011252
000001

001236
001256

CLR
CMP
BNE
CLR
MOV

(LR
BIT
BNE
JMP
MoV

INSTR

NUM

#DM _MAP,R?2
(R2)+
#OM
. END,R?
1%
DMNUM
#DM.MAP
R
DMACTV
IS:OO,S‘RTSU
¢

s
21, TENMPS

:INSURE A BUS INIT,
:LOAD MAP POINTER.
;LERO ENTIRE MAP
.ALL DONE?
;BR IF NO

:SET OCTAL NUMBER OF DMC11'S TO 0
:R2 POINTS TO DMC MAP
;CLEAR ACTIVE
;QUEST]IUNS?

;BR IF YES
:1F NO SKIP QUESTIONS
;START WITH 1

SEQ 0040

(I0MH
MACY1) 30A(1052)8 g?-JUL-BO
CZDMH.P11
08-JuL-80 0
1975
1976
1977
1978
1979
1980
1981
1982
1983

010572
010574
010576
010600
010602
010603
010604
010612
010616

104405
000001
000020
001252
000
001
013737
104402
104410

1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

010626
010630
010632
010634
010636
010640
010642
010643
010644
010650
010652
010654
010656
010660

104403
006510
104405
160000
164000
0012564
000
001
013722
104403
006526
104405
000000
000776

1984
1985

2000
2001
2002

2003

2006
2005

2006
2007
2008
2009
2010
2011

2012
2013
2014
2015
2016
2017
2018

2019
2020
2021
2022
2023

010620
010622

010662
010664
010665

010666

010672
010674

010676
010702
010706
010710
010714
010716

010722
01072¢
010726
010730
010734
010736
010740

012002
005237

001254
000
001

013712

104402
006547

004737
022703
101014
022703
103411
012704

006303
005304
001375
042703
050312
000403

001252
005672

005666
000752
104402
006606
004737

2025
2026
2027
2028

010762
010764
010770
010772

001427
022703
001403
104402

2030

010776

000763

010774

005666

128

001254

INSTR
CSR
PARAM
165,00
164000
TEMPL
BYTE
BYTE
MOV
INSTR
VEC
PARAM
0
776

TEMP4
.BYTE
BYTL

108 :

012266
000024

000011

170777
50$

8$:

00011¢

MOV

TYPE
PRIO

JSR
CMP
BHI
CMP
B8LO
MOV

000027

012266

PARAM
1
16.
TEMP3
.BYTE
BYTE
MOV
TYPE
CONVRT

WHICH
INC

001254

2024 010756 022703 000131

2029

001310

001256

104402

010742
010744
010746
010750
010752

08:21
PAGE 42
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

ASL
DEC
BNE
BIC
B1S
BR

TYPE

MOM
BR
TYPE
CRAM
JSR

CMP

BEQ
CMP
BEQ
TYPE

MQM

0
1
TEMP3, DMNUM
JMCRLF

TEMPS

0
1
TEMPG, (R2) ¢

0
1

TEMP4L, (R2)

PC,INTTY
224 ,R3
508
#27,R3
50%
M1,R4

;OMNUM = HOW MANY
;TYPE WHICH DMC IS BEING DONE
;TEMPS 1S WHICH DMC

;STORE CSR IN MAP

;STORE VECTOR IN MAP
:ASK WHAT BR LEVEL
‘GET RESPONSE
:
‘BR IF LESS THAN &
;

R3
R4
=4
#170777,R3
R3, (R2)
8%

:BR IF GREATER THAN 7
‘R4 = NUMBER OF SHIFTS
SSHIFT RS LEFT
‘DEC SHIFT CCUNT
‘BR IF NOT DONE
:BIC UNWANTED BITS
;PUT BR LEVEL IN STATUS MAP
: CONTINUE

10%

:RESPONSE IS OUT OF LIMITS
STRY AGAIN

PC,INTTY

;DOES DMC HAVE C(RAM?
‘GET REPLY

9%
11€,R3
408

S YES
*NO
INOT A Y OR N

1181
R3

STYPE '

“ASK AGAIN

SEQ 0041

CIOMH

MACY1' 30A(1052)

CIOMM.P11

2031

08-JuL-80

08-JuL-80 08:21

011000

08:21

104402

2032
2033

011002
0110064

007340
004737

2035
2036
2037
2038
<339
2040

011014
011016
011022
011004
011026
011030

001414
022703
001403
104402
005666
000763

2062

011040

000402

408 :
012266

000114

000002

052712

100000

011050
011052
017056
011062
011064
011070
011072
011076

006704
004737

012266

011102

0035666

2056
2057
2058
2059

011106
011112
011114
011116

052722
022222

010000

32%:

052712

020000

31¢:

2061
2062

011124
011126

007114
004737

2064
2065
2066

011136
011140
011144

001406
022703
001406

2068

011150

005666

2044

2045
20646
2047
20648
2049
2050
2051
2052
2053

2054

2055

2060

011042

C11046

011100

011104

011122

104402

022703
001617
022703
001412
022703
001403

000004

418:
9% :

16%:

000021

000022

000116

104402

000760

000447
104402

2069
2070
2071
2072

2073
2074
2075
2076
2077

2078
2079
2080
2081

2082

2083
2084
2085
2086

011146

011152
011154
011160
011162

011166
011166
011170
011172
011174

011176
011200
011202
011203

308 :

012266

011204

011210
011212
011214
011216

113722

104403
007054
104405
000000

8IS

TYPE

MODU
JSR
CMP
BEQ
CMP
BEQ
(Mp
BEQ

8IS
(MP
BR
B81S

TYPE

040000

18¢%:

001254

198:

16%
#114 ,R3
418

"BR IF REMOTE
SIS IT L
;BR IF LOCAL

#1232 ,R3

STRY AGAIN

168

L CONTINUE

#BIT1,4(R2)
#BIT1S,(R2)
PC,INTTY

#21,R3
308
822,83
318
#116,R3
328
16

#BIT12,(R2 ¢
(R2)+,(R2) ¢+
13{3
#BIT13,(R2)

17%
#116,R3
18%

BR
B1S
BR
BIC

(1S IT R

408

BEQ
CMP
BEQ

TYPE

17%:

:DMC11-AR OR DMC11-AL?
:GET RESPONSE

PC,INTTY

MOM

040000

PLINTTY

CONN
JSR

CMP

000116

104403
007016
104405
000000

000377
001254
000
001

BIS

TYPE

104402

000763
052722
000402
042722

BEQ
(MpP
8EQ
TYPE
MOM
BR

MQM

2063 011132 022703 000131
2067

TYPE

SPEED
JSR

CMP

052762

2043

011032

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

2034 011010 022703 000122

2041

PAGE 43

081 ,r3

308
#BITIL,(R2) ¢
19%
#BIT14,(R2) ¢

“SET BIT1 IN STAT3
SET BIT 1S IF CRAM
;ASK WHICH LINE UNIT
"GET REPLY
T

:1F NOT A 1,2 OR N TYPE '"?"
STRY AGIAN

:SET BIT 12 IN STATZ2 IF NO LU
:POP OVER STAT2 AND STAT3

:SET BIT 13 IN STAT?2 IF MB202
;ASK IF LOOP-BACK IS ON
;GET REPLY

:IF NOT Y OR N TYPE '"2*'

“TRY AGAIN
s TURNAROUND IS CONNECTED

:NO TURNAROUND

INSTR
L INE
PARAM
0

377
TEMPS
.BYTE
BYTE

MOVB

INSTR
am
PARAM
0

0
1

TEMP4L, (R2) ¢+

sSTORE SWITCH PAC IN MAP

SEQ 0042

CIDOMH

MACY11 30A(1052)

CI0MH. P11
2087

2088
2089
2090

011220

011222
011224
011225

011226
011232

011234
011240
011242
011246
011252
011256
011264
011266

2103

2104
2105
2106
2107

2108

O0B8-JuL-80

08-JuL-80 08:21

011270
011272

011276

011302
011304
011310
011314

011322

001256
000
001

113722
005722

001252

005061

000006

005761

010612
011702

160000
011774

002000
000004

052711

020000

125252

011334
011336
011344
011346

001004
052762
000431
012711

001000

2115

011360

012711

001400

2116

012761

011364

012711

011376
011400
011406
011410
011416
011420

001411
022761
001410
022761
001404
000516

2117 011370 022761
2118
2119
2120
2121
2122
2123

21264
2125
2126
2127
2128
2129

2130
2131

2132
2133
2136

2135

2136

2137

2138

100000

100430

000006

000002

000006

002000

016472 000006
000006

177777

000006

052762

000002

000006

011430
011432
011436

010122
012711
005061

001000
000004

011450
011454

052711
012761

000400
(21264

011442

011462
011466
011474

011476

011502

011504

011512

012761

052711
122761

001003

122113

000400
000377

052712

010000

032761

000002

000436

001403

000006

000004
000604

2139 011514 052712 060000
2140

2141

2142

011520

0115%2

011530

000427

032761

001023

000010

0
1

DEC
BEQ
JMP
JMP
MoV
MoV
CLR
TST

TEMP3
348
12%
13¢
#160000,R1
"6 306
(R1)
(R1)

CLR

6(R1)

BNE
MOV
CLP

3%
#81710,(R1)
4(R1)

;BR _[F NOT DMCT
;SET ROMO
;CLEAR SEL4

BIS

#B1T13 (R1)

;WRITE IT!

TST

016461

011422

TEMP4
BYTE
BYTE

BNE

125252 000004

2110
2111
2112
2113

011352

000004

000006

001165
012711
005061
012761

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

Move
TST

001254

005337
001402
000137
000137
012701
012737
005011
005711

001172

PAGE &4

377

000377

2109 011326 022761
2116

08:21

00000«

MoV

CMP

BNE
BIS
BR
MoV

MOV

MoV
MOV

TEMP4L, (R2) ¢
(R2) ¢

;STORE SWITCH PAC [N MAP
;POP OVER STAT3

;1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NG DM(11

6(R1)

#125252,6(R1)

#125258,4(R1)
21
#BIT15,2(R2)
22%
#8179 (RY)

#100430,6(R1)

;DEC DMC COUNT
;BR IF DONE
;JUMP [F NOT
s CONTINUE
;SET FOR FIRST ADDRESS TO BE TESTED
;SET FOR NON-EXISTANT DEVICE TIME OUT
;CLEAR SELO
;1F DMC11 DMCSR S/B 0

;CLEAR SEL6

;IF DMC11 THEN DMRIC S/B =0.
;WRITE THIS TO SEL6

:WAS IT WRITTEN?

s1F NO IT IS NOT CRAM
;SET BIT1S IF CRAM
JSET ROM]

:PUT INSTRUCTION IN SEL®

#B119!BIT8,(R1) ;CLOCK INSTRUCTION (MICRO PROC PC TO O)
#1710, (RY)

;SET ROMO

23%
#016461,6(R1)
223
#-1,6(R1)
229
3%

;BR IF YES
;IS IT REMOTE CROM?
:BR IF YES
;NO CROM?
;BR IF YES
;NOT A DM(

MoV

#122113,6(RY)

;LOAD INSTRUCTION (CLR DTR)

BIS
(MP8

#8118, (RY1)
#2377 ,4(RYV)

:CLOCK INSTRUCTION
;1S IT ALL ONES?

BIS

1BI112,(R2)

;1F YES, NO LINE UNIT, SET STATUS BIT

BIT

B111,4(RY)

;1S SWITCH A ONE?

20%

; CONNECTOR ON)

20%

;BR [F MB201 NO CONNECTOR (ON LINE)

CMP

BEQ
[
8EQ
CMp
8EQ
BR

#016478,6(R1)

1S IT LOCAL CROM?

;SET BIT 1 IN STATS
#BIT1,6(R2)
BIS
AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS.
;STORE CSR IN CORE TABLE.
R1,(R2)+
MoV
2%:
;CLEAR LINE UNIT LOOP
#8179, (RY)
MoV
;CLEAR PORT4
4(RY)
(LR
8IS
MOV
BNE
BR

BEQ

#8178, (RY)
#021264 ,6(R1)
.10

20%

.10

;CLOCK INSTRUCTION
;LC*Y INSTRUCTION
:BR [F NO

:BR ]F M8201

B1S

(R} ;MB202 ASSUME CONNECTOR
#BIT13'B1T14,

#B1T3,4(RY)

BNE

;1S MRDY SET

SEQ 0043

CIOMM
MACY11 30A(1052)
O08-JUL-80
CIDMH.P11
08-JuL-80 08:21
21643

011532

012761

000100

011546

052711

000400

032761

000010

21646

011540

2146
21647

011552
011560

2145

21648

011564

C12761

012761
052711

2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
““oe
165
2166
2167
2168
2169

011572
011574
011600
011602
011610
011614
011620
011626
011632
011636
011640
011642
011646
0116564
011656
011660
011666
011670
011674
011676
011702

2171

011712 001423

2170

2172

011706
011714

=173

011720

2175
2176
2177
2178

2180
2181
2182
2183
2184
2185
2186
S}g;

2174

2179

001402
052712
005722
012761
012711
156122
012761
012711
156122
005722
005011
005237
022737
0016412
005011
005061
062701
022701
001402
000137
005037

005737
013701

021264
000400

000006

001310
000020

011750
011756
011762
011766
011770
011772
011774
012000

013737
000137
104402
005000
000000
000776
012716
000002

001306
012010
005760

011742

012737

012002
012004
012006

000001
002
001256

2193
2194

012010
012016

032737
001114

012020
012026

000006

012040

148 :

138

8IS

#8178, (R1)

SCLOCK

BEQ
BIS
ST
MOV
MOV
BISB
MOV
MOV
BISB
ST
CLR
INC
(NP
BEQ
(LR
CLR
ADD
CMP
BEQ
JMP
CLR

BEQ
48

000004

68 :
WHICH:

002

000001

001236

012737
012737

000340
012202

000022
000020

012700

000300

#021264,6(R1)
#BIT8, (R1)
#BIT3.4(RY)

208
#BIT14, (R2)
(R2)+
#021324,6(R1)
#BIT9'BITR,
(R1)
4(R1).(R2)+
#021344,6(R1)
#B1T8'Bi19,(R1)
4(R1).(R2)+
(R2)+
(R1)
©
DMNUM
#20, DANUM
138
(R1)
6(R1)
#10,R
#164000,
R
138
2%
OMACTV

DMNUM

:LOAD INSTRUCTION

INSTRUCTION(SET DTR)

:LOAD INSTRUCTION
<CLOCK INSTRUCTION(READ MODEM REG.
*1S MRDY SET NOW?

:BR IF NO CONNECTOR
“SET STATUS BIT FOR CONNECTOR
:POP POINTER
:PUT INSTRUCTION [N PORT6
:PORT4_LU 15
:STORE"DDCMP LINE # IN TABLE
:PORT6_INSTRUCTION
:CLOCK INSIR.
*STORE BM873 ADD IN TABLE
‘POF OVER STAT3
ICLEAR ROMI
CUPDATE DEVICE COUNTER
"ARE MAX. NO. OF DEV FOUND?
SYES DON'T LOOK FOR ANY MORE.
“CLEAR BIT 10
“CLEAR SEL 6
CUPDATE CSR POINTER ADDRESS

:BR IF DONE
SJUMP IF NOT

:WERE ANY DMC11'S FOUND AT ALL?

'ERROR AUTO SIZER FOUND NO DMCi1'S IN THIS SYS.

MOV

R1, SAVNUM

;SAVE NUMBER OF

ROL
INC
DEC
BNE

DMAC TV
DMAC "V
R
43

:GENERATE ACTIVE REGISTER OF DEVICES.
‘SET THE BIT

MOV
JMP
TYPE
CLR
HALT
BR
MOV
RT]

DMACTV,SAVACT
VECMAP
JMERR2
RO

:SAVE ACTIVE REGISTER
:60 FIND THE VECTOR NOW.
INOTIFY OPR THAT NO DMCi1°'S £OUND.
‘MAKE DATA LIGHTS ZERO
SSTOP THE SHOW
:DISABLE CONT. SW.
"ENTERED BY NON-EXISTANT TIME-OUT.
CRETURN TO MAINSTREAM

(LC

MOV

001312

#122193,6(R1)

SEQ 0044

5S¢

MOV

011664

2197 012034 012702 001500
2198

20$:

001310

001306
001306

:LOAD PORT4

BIT

001310

#B1T6,4(RT)

MOV
RIS

000006

011266
001306

006137
005237
005301
00137

000241

000006

000006
000010
164000

011726
011732
011736
011740

MOV

000004

040000

001314

2189
2190
g:g;

2195
2196

000006

010137

011724

000006

122113

021324
001400
000004
021344
001400
000004

08:21
PAGE 45
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

1
.BYTE
TEMPS

VECMAP: BIT
BNE

MOV
MOV

MOV

DMNUM,
R

86,386

)
0148, (SP)

DEVICES

:BR IF MORE TO GENERATE
"RESTORE TRAP VECTOR

2,2

#5W00,STRTSW
5%

#340,3022
0.3, 3820

SSET 107 TRAF PRIO T0 7
“SET 10T TRAP VECTOR

#300.R0

*FLOATING VECTORS START HERE.

#DM . MAP,R?2

*SET SOF TWARE POINTER

CIDMH
MACY1Y 30A(1052)
08-JUL-80
CIOMH.P11
08=JUL-80 08:21

2199

012044

012701

000302

012721

000004

2200

012050

010120

2202
2203

012056
012060

022021
020127

2201

2204
2205
2206
2207
2208

2209
2210
2211

2212

2213
2214
2215
2216
2217
2218
2219

012052

012064
012066
012074
012100
012102

012106
01211¢
012116

012126

012130
012134
012142
012144
012146
012152
012154

101771
013737
006037
103063
012704

016437
011201
012761

012711

012761
012711
105200
001376
162704
001404
016437

2220 012162 000767

2221

2222
2223
2224

012164

012172
012174
012200

052762
005011
062702
000735

1%:

000012

001246

012252

177776

000200

000004

121111
001400

000006

001000

2%:

7%:

012252

177776

005300

000002

000010

6$:
38

2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236

012202
012206
012214
012220
012222
012224
012226
012230
012234
012240
012242

051662
042762
016405
006305
006305
006305
006305
042705
050562
022626
012716

012250

000207

5¢:

2239
2240
22641
22642
2243
2264
2245
2246
2247
2248

012252
012254
012256
012260
0.2262
012264

000000
000000
000200
000240
000300
000340

012266
012272

105777
100375

2251
2252

012304
012306
012312
012316

%g%g

2249
2250
2253
2254

012246

012274
012300

000002

017703
105777

100375
010377
04270%
000207

000002

170777
0000C2

012172

166712

166706
166704
166700
000240

#302,R1

:PC OF

MOV

#,° (R1)+

‘WITH .+2;

MOV

BLOS
MOV
ROR
BCC
MOV

R1,(RO)¢+

(RGY+_ (R1)+
rR1, #1000

10T INSTR.
0T

SADD 2 TO RO ¢RI

MOV
MOV
MOV

:BR IF
;STORE
;BRING
‘BR IF
‘RG 1S

MOV
MOV
INCB
BNE
SUB
BEQ
MOV

#121191,6(R1)
#8179
. BIT8,(R1)
RO
=2
#2,R4
6%
BRLVL (R&) ,PS

:PUT INSTRUCTION IN PORT6
;FORCE AN INTERRUPT
SSTALL
;FOR TIME TO INTERUPTY
:GET NEXT LOWEST PS LEVEL
‘BR IF R4 = 0
;MOVE NEXT LOWER LEVEL IN ¢S

B8R

:SET PS TO 7

;SET ROMI

:BR TO DELAY

#530C,2(R2)

8IS
BIC
MOV
ASL
ASL
ASL
ASL
BIC
BlS
C(MP
MOV
RTI

(SP),2(R2)
#7,2(R2)
BRLVL*+Z2(R4),RS
RS
RS
RS
RS
#170777 RS
RS,2(R2)
(SP)+,(SP)+
#3%,(SP)

CLR
ADD
BR

MORE TO FILL
TEMPORALLY
OUT A BIT
ALL DONE
INDEX REGISTER

#8119, (R1)

BIS

(R1)
#10,R2
28

'NO INTERUPT ASSUME 300 AT LEVEL S AND FIX DMC11 LATER
12 _EAR ROM]
‘POP SOFTWARE POINTER
*KEEP GOING

;GET VECTOR ADDRESS
SCLEAR JUNK
:GET BR LEVEL OF DM(
sSHIFT LEVEL & PLACES
270 THE LEFT FOR THE
:STATUS TABLE
;CLEAR UNWANTED BITS
:PUT BR LEVEL IN STATUS TABLE
:POP ]OT JUNK OFF STACK
:SET FOR RETURN

RTS

BRLVL:

O
0
200
240
300
340

SLEVEL
SLEVEL
SLEVEL
- EVEL
SLEVEL
SLEVEL

INTTY:

TSTB
BPL

8TK(SR
-4

;WAIT FOR DONE

BPL
MOV
BIC
RTS

-4
R3,3TPDBR
#B1T7'BITS,RY
PC

:ECHO CHAR
JMASK OFF LOWER CASE
*RETURN

MoV
1STE

:ALL DONE WITH '‘AUTO SIZING''
0
0
&
S
6
7

8TKDBR,R3
dTP(SR

SEQ 0045

;START FILLING VECTOR AREA

1%
DMACTV,TEMPI
TEMPY
5¢
#12.R4
BRLVL (R&L) ,PS
(R2) ,R1
#2004 (R1)

MOV

000002

000002
000007
012254

MOV

CMP
CMP

001000
001306
001246

08:21
PAGE 46
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ET()

:PUT (HAR [N R3
sWAIT UNTIL PRINTER [S READY

(ZDMH

MACY11 30A(1052)

CZ0MH . P11
2255

08-JuL-80

08-JuL-80 08:21

08:21

PAGE 47

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

SEQ 0046

MACY11

H.P11

30A(1052)

08-JuL-80

08-JuUL-80 08:
1

08:21

PAGE 48

FREE RUNNING TESTS

56
57
58

srreerrrteterrnererecrenenr

59
60
61

wnveccenneteeaneenneneeneny

;«THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS
;eWILL FAIL ON A KMC, THE TIMER IS TOO FAST) THEN YOU MUST
:*MANUALLY SET BITO OF STAT3 IN THE STATUS MAP, ALSO THE KMC
;*MUST HAVE THE MICRO-CODE LOADED BY PREVIOUSLY RUNNING
:«DIDMG TEST 2 AND THEN LOADING AND STARTING CZDMH(
st WITH SWITCH 7 = 1
T

22N

2272

2274
2275

012320
012326

012737
012737

000001
013404

001226
001216

032737
001406
032737
001002
000137

100000

001366

2280
2281

012334
012342
012344
012352
012354

000001

001372

2282
2283
2284
2285
2286

012360
012366
012370
012374
012400

032737
001372
013700
062700
012702

2290
2291
2292
2293
2296
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311

(12412
012416
012422
012426
012434
012436
012442
012446
012450
012454
012456
012660
012464
012466
012470
012472
012476
012502
012504
012506
012512
012514

005037
005037
012711
032737
001402
012711
105227
001375
005037
005711
100405
005237
001373
104014
000771
052711
005037
10571
100404
005237
001373
104014

2287
2288
2289

:*ALL FOLLOWING TESTS ARE FREE RUNNING AND ARE PERFORMED
:*ONLY ON OMC'S WITH LINE UNITS. IF YOU WISH TO PERFORM

2270

2276
2277
2278
2279

TEST

;¢FREE RUNNING FLAG MODE DATA TEST
;*TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA
s*LINE UNIT LOOP IS SET FOR THIS TEST,

62
2263
2264
2265
2266
2267
2268
2269

2273

SEQ 0047

0126404
012406
012410

105022
005300
001375

013402

010000

T1ST1:

001366

021360
000002

021362

021306
021310
040000
100000

10%:

001366

100000

000000

001416

1$:

001416

004043
001416

001416

2%:

ARl

TEST 1

jemmececcecccnn

MOV
MoV

#1,TSTNO
#TST2 NEXT

BIT
BEQ
BIT
BNE
JMP

#BIT15,STAT
.+16
#B170,STAT3
.46
14%

BIT
BNE
MOV
ADD
MOV

#MBIT12,STAT
.~12
RCOUNT RO
#2,R0
#RBUF ,R?2

(LR
(LR
MOV
8!7
BEQ
01"
INCB
BNE
CLR
TST
BM!
INC
BNE
HLT
B8R
BIS
(LR
1ST8
BM]
INC
BNE
HLT

TFLAG
RF! AG
#B8,714,(RY)
#BIT15,STATY

CLRB
DEC
BNE

(R2)+
RO
108

.46

#BIT1S,(RY)
#0
b
TEMP
(R1)
414
TEMP
1%

14
1%
#4043, (RY)
TEMP
(R1)
412
TEMP
2%
14

;R1 CONTAINS BASE DM(C11 ADDRESS
1S IT A DMC?
;BR IF YES
;KMC WITH BITO SET?
;BR IF YES
;SKIP TEST

;LU PRESENT?
:BR IF NO
sCLEAR RECEIVER BUFFER
;CLEAR 2 MORE LOCATIONS
;CLEAR OUT RECEIVE BUFFER
;CLEAR BUFFER
;DONE YET!
:NO

sSET TFLAG TO O
JSET RFLAG T0 0
:MASTER CLEAR
;s CRAM?
;BR If NO
;1F CRAM SET RUN
sDELAY
sDELAY
;GET SET TO DELAY
;RUN SET?
;BR IF YES
s INC DELAY
:BR IF NOT DONE
;ERROR RUN NOT SET
;TRY AGAIN
JBASE 1, LU LOOP
;GET SET TO DFLAY
JRDI SET?
;BR IF YES
s INC DELAY
:BR IF NOT DONE
;ERROR,RDI NOT SCT

12
13
14
15
16
17
18
19

20
21
22
23
24
25
26

28
29
30
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340

2341
2
3

it
e I 9 3 S S I3 3 Y

PLRLALALNINLNLAINLINLNL
AL NN AN AL RN NI NI NI NN NI

&
5

7
8
9

0
1
2
3
&
S
6
7
8
9
360
361
362
363
364
5

66
67

MACY1Y

30A(1052)

012516
012524
012530
012534
012540
012542
012544
012550

012761
005061
142711
005037
105711
100020
005237
001373

0?-JUL-80

08-JuL-80 08:2

012552
012556
012560
012566
012574
012576
012602
012604

012604
012610
012612
012614
012620
0126264
012626
012630
012634
012640
012642
012644
012650

012652
012654
012662

012670
012674

012700

012702
012704
012710

012712
012714
012720
0127264
012726
012730
012734
012736
012740
012746
012754
012760
012764
012766
012770
012774

012776
013000

021430
000006
000040
0014616

000002

152711
10571
100376
005061
142711
105711
100776
152711
005037
105711
100404
005237
001373

000041

142711
005037
105711
100004
005237
001373
104014
152711

005037
105711
100404
005237

001373
104014
012761
013761
142711
005037
105711
100004
005237
001373
104014
005037

PAGE 49

FREE RUNNING TESTS

000004

3%:

001416

105761
100011
016137
016137
104016
000137
104014

104014
012761
013761

08:21

000004
000006

001252
001254

013402

18$:

8$:

648

000006
000040

65%:

000044
001416

001416
021362
021360
000040
001416

5%:

001416
000040

001416

6$:

001416

021314
021312
000040
001416

000004
000006

7$:

001416

Mov
(LR
81(8
CLR
1ST8
BPL
INC
BNE

#BASE 4 (RY)
6(R1)
260, (RY)
TEMP
(R1)
8%
TEMP
3%

;SET UP BASE ADDRESS
;CLEAR COUNT
;CLEAR RG]
;GET SET TO DELAY
;1S RDI GONE?
:BR IF YES
: INC DELAY
;BR IF NOT DONE

BISB
1ST8
BPL
CLR
BI(B
1ST8
BMI
BISB
CLR
1ST8
BMI
INC
BNE

#41,(R1)
(R1)
649
6(R1)
#40,(R1)
(R1)
65%
864, (RY)
TEMP
(R1)
.412
TEMP
48

;ASK FOR CNTL I
:WAIT FOR RDI
;BR IF NOT SETY
;SET FULL DUPLEX
;CLEAR RQ]
;RDI UP?
:BR IF YES
;REC BA/CC(
;GET SET TO DELAY
;IS RDI SET?
;BR IF YES
:INC DELAY
;BR IF DELAY NOT DONE

8l1(8B
CLR

#40, (R1)
TEMP

;CLEAR RQ]
sGET SET TO DELAY
:RDI GONE?
;BR IF VYES
+ INC DELAY
;BR IF NO DONE
;ERROR RD] STILL SET
;XMIT BA/CC

1578
BPL
MoV
MoV
HLT
JMP
HLT

HLT
MoV
MOV

000004
000006

16%:

SEQ 0048

1ST8

BPL
INC
BNE

HLT
8158
CLR
1STB
BMI
INC
BNE
HLT
MoV
MOV
8I(8
CLR
1STB
BPL
INC
BNE

HLT
CLR

2(R1)
18%
4(R1),TEMP3
6(R1),TEMP4
16
143
14

14
#RBUF ,4(R1)
RCOUNT,6(R1)
(R1)

.+12
TEMP
5%

14
#40, (R1)
TEMP
(R1)
.+12
TEMP
6%
14
#TBUF ,4(R1)
TCGUNT ,6(R1)
840, (R1)
TEMP
(RY)
.+12
TEMP
7%

14
TEMP

;1S THERE A CNTL O ERROR
:BR IF NO
;SAVE SEL4 FOR TYPEOUT
;SAVE SEL6 FOR TYPEQUT
;CNTL O ERROR
sFATAL ERROR STOP
;ERROR RDI STILL SET

;ERROR RDI NOT SET
;LOAD REC BA
;LOAD REC COUNT

;GET SET TO DELAY
;RDI SET?
:BR IF YES
: INC DELAY

:BR [F NOT DONE
;ERROR RDI NOT SET
:LOAD XMIT BUFFER
;LOAD COUNT
;CLEAR RQ]
JGET SET TO DELAY
:RDI GONE?

:BR IF YES
s INC DELAY
;BR IF NOT DONE DELAY
;ERROR RD] STILL SET
;GET SET TO DELAY

CZDMH

MACY1 30A(1052)8 08-JuL-80

CIDOMH . P11

08-JuL-80 0 121

2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2600
2401
2602
2603
2404
2605
2406
26407
2408
2409
2610
2611
2612
2613
2614
2615
2616
2617
2618
2419
2620
2621
2422
2423

012737
105761
100407
005237
001372
005337
001367
104014
016137
001001
104014
032761
001032
005737
001401
104014
012737
132761
001401
104014
022761
001401
104014
023761
001401
104014
142761
000453
005737
001401
104014
012737
132761
001401
104014
022761
001401
104014
023761
001401
104014
013700
012702
012703
010337
112205
112304
120504
001401
104013
005300
001367
005713
001401
104014
142761

013004
013012
013016
013020
013024
013026
013032
013034
013036
013044
013046
013050
013056
013060
013064
013066
013070
013076
013104
013106
013110
013116
013120
013122
013130
013132
013134
013142
013144
013150
013152
013154
013162
013170
013172
013174
013202
013204
013206
013214
013216
013220
013224
013230
013234
013240
013242
0132446
013246
013250
013252
013254
013256
013260
013262
013264

000022
000002

08: 21

001246

118:

001416
001246
000002

000004

001250

177777
000001

17%:

12%:

021306
000002

021314

000004

021312

000006

000207

000002

021310
021310
000002

021362

000004

021360

000006

021360
021314
021362
001252

BNE
TST
BEQ
HLT
MOV

BlT18B
BEQ

13%:

177777
000001

[0}
178
BM]
INC
BNE
DEC
BNE
HLT
MoV
BNE
HLT

BIT

000002

021306

PAGE 50

HLT
CMP
BEQ
HLT
CMP
BEQ
HLT
BI(B
BR
TST

2(R)
17¢
TEM P
119
TEMPI
11%
14

2(R1),TEMP?
14

#BI1T2,2(RY)
13¢
TFLAG

.t
14
#-1,TFLAG
#B110,2(R1)

.44

14
#TBUM,4(RT)

R
14
TCOUNT ,6(R1)
.t

14
#207,2(R1)

BEQ
HLT
[0}

BI1T8
BEQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT

9s:

822, TEMP1

MOV
MoV
[0}

MoV
MOVB
Mov8e
CMPB

#-1,RFLAG

#8170,2(R1)
A
14
#RBUF ,4(RY)
YA
i4
RCOUNT,6(R1)

.44

RO
RCOUNT,

#1BUF ,R2
#RBUF ,R3

R3, TEMP3

(R2)+,RS
(R3)+ R4

TST

BEOQ

000002

HLT

BI(B

;GET SET FOR LONG DELAY
sRDO SET?
:BR IF YES
s INC DELAY
:BR IF DELAY NOT DONE
:DEC DELAY COUNT
;BR IF NOT DONE DELAY
;ERROR RDO NOT SET
:SAVE SEL?
:BR [F 0K

:REC OR XMIT?
:BR IF REC
;FIRST TIME HERE?
;BR IF YES

:ERROR MULTIPLE XMIT DONES

;SET TFLAG T0 -1
;1S 1T CONTROL O
;BR IF NO
:XMIT ERROR

;XMIT BA CORRECT?
;BR IF YES
;XMIT BA ERROR

;COUNT 0K?
;BR IF YES
JXMIT COUNT ERROR
:CLEAR RDO AND BITS 0-2
:CONTINUE
;FIRST TIME HERE?
;BR IF YES

:ERROR MULTIPLE REC DONES

sSET RFLAG T0 -1
;IS IT CNTL O
;BR IF NO
JRECEIVE ERROR
sREC BA CORRECT?
:BR IF YES
;REC BA ERROR
;COUNT 0K?
:BR IF YES
;REC COUNT ERROR
;GET SET TO CHECK DATA
:R2 POINTS TO GOOD DATA

;R3 POINTS TO RECEIVE DATA
:SAVE ADDRESS FOR TYPEOUT

;RS = XMIT DATA
;R4 = RECEIVE DATA
;CHECK DATA

JBR IF 0K

BEQ
HLT
DEC
BNE

000207

SEQ 0049

FREE RUNNING TESTS

14
#207 ,2(R1)

:DATA ERROR
;DEC COUNT
;BR IF NOT DONE
;THIS SHOULD BE O, ELSE
;1T RECEIVED TO MUCH!!
:ERROR

:CLEAR RDO AND BITS 0-2

CIDMH
MACY11 30A(1052)
08-JuL-80
CIOMH. P
08-JuL -80 08:21

2624
2625
2626
2627
2628

013272
013276
013300
013304
013306

005737
001640
005737
001635
004737

021310

2630
2631
26432
2433
26434
2435
2636
2637
26438
26439
26440
26641
2642
26643
2444
2445

013316
013322
013326
013330
013332
013334
013336
013340
013343
013346
013350
013356
013364
013372
013400
013402

012701
012702
122021
001007
005302
001374
000421
000
000
000
113737
113737
113737
113737
104017

021433
000010

2429

5229

013312

013402

012700

08:21
PAGE 51
FREE RUNNING TESTS

158:

021306

022472

013340

000
000
000
021433
021435
021437
021441

21%:
22%:

000
000

258%:

001250
001252
001254
001256

238:

24$:

104400

148:

2448

SEQ 0050

187
BEQ
ST
BEQ
JSR

RFLAG
16%
TELAG
16$
PC SHUTDOWN

;REC DONE?
:BR IF NO
;XMIT DONE?
;BR IF NO
; SHUTDOWN DMC

MOV
MOV
(MPB
BNE
DEC
BNE
BR
.ByTe

#BASE+3,R1
70,R2
(RO)+,(R1)+
23%
R2
22%
248
0,0,0,0,0,0,0,0

;POINTER TO ACTUAL COUNTS
: COUNT
: COMPARE SOFT ERROR COUNTS
:1F _ERROR BR 23$
:DEC_COUNT
;CONTINUE CHECKING IF NOT PONC
;ALL COUNTS OK, GET OUT
;EXPECTED ERROR COUNTS

MOV

MOVB
MOVB
MOVB
MOVB
HLT

258 R0

;POINTER TO EXPECTED SOFT COUNTS

BASE+3,TEMP?
BASE+5,TEMP3
BASE+7,TEMP4
BASE+11,TEMPS
17

SCOPE

;SCOPE THIS TEST

2449

srenannentteteenennenennnnnt

2450

;*OVERUN TEST

2453

2451
2452
2455

2457
2458
2459
2460
2461
2462
2463
2464
2665
2666
2467
2468
2469
2470

;
01364064
013412

012737
012737

000002
013744

001226
001216

032737
001406
032737
001002
000137
032737
001372
004737
004537
021314
000044
012700
012703
005037

100000

001366

000007

001372

013726
010000

001366

2473

013420
013426
013430
013436
013440
013444
013452
013454
013460
013464
013466
013470
013474
013500

2475
2476
2477
2678
2479

013510
013512
013516
013520
013522

100407
005237
001372
005303
001370

2471

26472
2474

wannnencaennnteannnnnnnener

;*IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE
;*BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS

2454

2456

TEST

013504

105761

7TST2:

022030
022440

000010
000015

001416
000002

001416

18:

N R R

R AN AR AR AR AN AR AR ANRR IS

TEST 2

;o=se=sesscsceo

MOV
MOV

#2,1STNO
#TST3 NEXT

BIT
BEQ
BIT
BNE
JMP
BIT
BNE
JSR
JSR
TBUF
46
MOV
MOV
CLR

#BIT15,5TAT
.+16
#B170,STAT3
. +6
10$
MBIT12,5TATH
=12
PC,BASELD
RS, XFRELD

BM]
INC
BNE
DEC
BNE

1518

;R1 CONTAINS BASE DMC11 ADDRESS
;1S IT A DMC?
:BR IF YES

;KMC WITH BITO SET?

:BR IF YES
;SKIP TEST
;LU PRESENT?
:BR IF NO
:LOAD DMC BASE ADDRESS

#10,R0

:LOAD XMIT BA/(C
:BA
. CC
;RO = RETRANSMISSION COUNT

TEMP

;CLEAR DELAY COUNTER

.+20
TEMP
1%
R3
13

:BR IF SEY
: INC DELAY COUNTER
:BR _IF NOT DONE DELAY
;DEC DELAY COUNT
;BR [F DELAY NOT DONE

#15,R3
2(R1)

:DELAY COUNT

;1S RDY O SET?

ENE LS

SN B B NN
2298 AN
S
SBEE sl OrNOOCOO

e
e
e
ol

L A AN i

e
D
D el e
el
D
i

2485
2486
2487
2688
2489
2490
269N
2492
2493
2494
2495

2484

-l

2483

08: 21

000001

118:

000001
000207
001416

013576

000002

21$:
22%:

BEQ

13$

#1,R4

HLT
BIC
CLR

15
#207,2(R1)
TEMP

RO
1%
PC,SHUTDOWN

0258.R0

000660

1S IT ONTL 0?

:PUT "‘FOUND'' IN Ré&
;IS ORUN SET?
;BR IF YES
:DATA CK ERROR?

:BR IF YES

;ERROR, ORUN NOT SET
;CLEAR RDO
JRESET DELAY

;DEC RETRANS COUNT
s COUNTINUE
;SHUTDOWN DM(

;POINTER TO EXPECTED SOFT COUNTS (LOW SPEED)

BIT
BEQ
MOV
MOV

#BIT1,STATS
213
#26% ,R0
#BASE+3 R

IS !IT HIGA OR LOW
;BR IF LOW
:POINTER TO EXPECTED SOFT COUNTS (HIGH SPEED)
sPOINTER TO ACTUAL COUNTS

CMPB
BNE

(RO)+,(R1)+
23

; COMPARE SOFT ERROR COUNTS
;IF ERROR BR 23$%

MOV

#M0,R2

s COUNT

;DEC COUNT

;CONTINUE CHECKING IF NOT DONE
22%
COUNTS OK, GET OuT
JALL
243
;EXPECTED ERROR COUNTS (LOW SPEED)
0,0,077,100,0,0,0,0

077
000

25%:

BNE
BR
.BYTE

077
000

269%:

.BYTE

0,0,77,100,0,0,0,0

001250
001252
001254
001256

23%:

Movs

BASE+3,TEMP?

248%:
108:
13%:

MOvB
MOvVB
mMovs
HLT

BASE+5,TEMP3
BASE+7,TEMP4
BASE+11,TEMPS
17

SCGPE
BIC

#207,2(R1)

(¥,

013736
013742

000207
001416

:BR IF YES
sERROR, NOT CNTL O
s CONTINUE
JPUT “EXPECTED'" IN RS

6(R1) ,R4
RS ,R4
12%

MOV

001372

11%
14
10$
#BIT2,RS

MOV
CMpP
BEQ

DEC
BNE
JSR

ol
D D
b
b

NI RLRINI NI NI NN AN AN NI N A NNV

WA WAV WA VA VA VAN VWA VAR VAWV WAWA VWA VIV LY W
NN W
NN PO NIPI PO A NN NVN) = b b b = b e b =h b
NO NS LWN-O
(VY
AV IS
Y al o1 B ) O VS NN =2 OO
[V AV ] AW

12%:

:ERROR, RDY O NOT SET
;GET QUT

#B8170,2(R1)

BNE
HLT
BR
MoV

DEC

021441

14
10$

8118

CMP

013664
021433
000010

MOALNLAL NNV

HLT
BR

000002

000004
000006

022472
013654
000002

2507

PAGE 52

FREE RUNNING TESTS

104014

000477
132761

(Y Ul U L L L L U U
AN

2480

2481
2482

[elelelelelelalalelalelalale)

MACY11 30A(1052)
08-JuL~-80
CZDMH
CI0MK. P11
08-JuL-80 0 8:21

000002

CLR

TEMNP
1%

;EXPECTED ERROR COUNTS (HIGH SPEED)

;SCOPE THIS TEST
;IGNOR THIS ERROR

sRESET DELAY
;s CONTINUE

R RERACRERCRERENCETARRIORNLSE

TEST

3 wratnatnnasattatatnanaenaet

;*LOST DATA TEST

:*IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE
;*BUFFER, VERIFY THAT A LOST DATA ERROR OCCURS.

::ttttttt"tt"t't"'tttttttt't"tttt't'tt'tttttt!ttt'tttt'tttQ

013744

012737

000003

001226

TST3:

MoV

TEST 3

#3,1STNO

SEQ 0051

013752

012737
104412

001366

000001

001372

014224
010000

001366

Mov
MSTCLR

8l7

BEQ
BIT
BNE
JMP
BIT
BNE
JSR
JSR

022030
022406

RBUF

JSR

TBUF
b6
MOov

000015
001410
000002

1%:

001416

000002

J\‘“rWNNN-‘—‘-‘
S5£05r002rNOMNVO

i
i el
D e
i
-l

d oD

D e

)

s ssrsres

000020
000006

Bl18

11%:

BNE
HLT
BR
MOV
MOV
CMP

BEQ

022472
014162
021433
000010

12%:

218%:
22%:

Vel
f

D
i ad o oD
o
b e
B

1ST18
BM]
INC

HLT
BR

HLT
JSR
MOV
MOv
MOV
(MPB
BNE
DEC

BNE

L ]

ESEIRAR

PONLANIAL
NN NN
AANNAA
VA WAWVAA W

CLR

BNE
DEC
BNF

014106
0000000000000 O0O0O00O000000

STEIEHE

001216

100000

000001

PAGE 53

000
000
000

021433
021435
021437
021441

SEQ 0052

FREE RUNNING TESTS

022440

goafloflabwwdo

N MNININI
NI NI[JSTNT ST NTNT NT ST NI NT NI NT ST ST ST NT
(¥,
VA WA AWAAVA
W AUV \Y4
VAV
AWV WAV N P
~
o
O~
0
WA
-

032737
001406
032737
001002
000137
032737
001372
004737
004537

014226

08:21

000
000

25%:

001250
001252
001254
001256

23$:

24%:
10%:

B8R
.BYTE

ROV8

Move
MOVB
MovBe
HLT

SCoPt

#TSTL NEXT

#BIT15,STATY
.+16
#BITO,STATS
.+b
10$
#BIT12,STAT1
-12

PC,BASELD
RS 'RFRELD

RS,XFRELD
#15,R3
TEMP

2(R1)
.+20
TEMP
1%

-t DO~
2O
- 2D
WVMNONA~ADO
=D O
M
WP
Do @h
P
P»

ST ST ST ST NI ST ST NI ST ST S N ,SEp —l -]
AV IV IV I IV IV IV IV I
3

MACY11 30A(1052)
08-JuUL-80
P
08-JuL-80 08:21

10,2(R1)

14,RS
1) ,R&
R&

PC,SHUTDOWN

#2583 RO

#BASE+3,R1
210,R2
(RO)+,(R1)«

sR1

CONTAINS BASE DMC11

JMASTER CLEAR DMC1
:18 IT A DMC?
:BR IF YES
JKMC WITH BITO SET?
:BR IF YES

ADDRESS

;SKIP TEST

;LU PRESENT?
;BR IF NO
:LOAD DMC BASE ADDRES>
;LOAD RECEIVE BA/CC
s CC

:LOAD XMIT BA/CC
:BA

.CC

:DELAY COUNT

;CLEAR DELAY COUNTER
;1S RDY 0O SET?
:BR IF SET

s INC DELAY COUNTER
;BR [F NOT DONE DELAY
;DEC DELAY COUNT
;BR IF DELAY NOT DONE
sERROR, RDY O NOT SET
JGET QUT
;I8 IT ONTL 0?
;BR IF YES
;ERROR NOT CNTL O
; CONT INUE
;PUT “EXPECTED'' IN RS
;PUT "'FOUND'' IN R4

;1S LOST DATA SET?
:BR IF YES
;ERROR, LOST DATA NOT SET
:SHUTDOWN DM(
sPOINTCR TO EXPECTED SOFT COUNTS
;POINTER TO ACTUAL COUNTS
;sCOUNT
:COMPARE SOFT ERROR COUNTS

;IF ERROR BR 23%

;DEC COUNT
;CONMTINUE CHECKING IF NOT DONE

22%
JALL COUNTS Ok, GET OL
248
0,0,0,0,0,0,0,0 ;EXPECTED ERROR COUNTS

BASE+3, TEMP?
BASE+5
. TEMPS
7
BASE+ TFMPL

?;5501{.(enps
;SCOPE THIS TEST

MACY11 30A(1052)
08-JuL-80
CI0MH
M
. P11
0&-JuL-80 08:21
(20m

08:21

PAGE 54

2592
2593
2594
2595
2596
2597
2598
2599

ceenevrececcccececentetnttes

;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS

N TREANERRERRONRRRLCRLRRCRORRARRNRNRORONROROURRRNGROROGORORNORRRRORNQRQONOOTETS

bbwu«m\am—-—t-‘og
NN:O‘O\A
OO s
MrNOOONO
LSOOI
OSSNSO
2O
MNOO VIl

oy
ol

das dasdatdacdacd
ONANE S

o o

P o ol

-G GurGur-GuurgurGur @ Gur Gur-Su-Jur- G- Qur-Pr-Gur-Sur-Suu-har

2l 2k al R

oW W

W O

Pt
Ll
NN [V LV LV LV LV LV LV [V IV IV LV IV IV IV IV LSl O
NN

par@un

ocC

hur s GurSus-Guur-Gur

N
W
PR

2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628

;*IN FREE RUNNING MODE, LOAD A TRANSMIT BA THAT WILL TIME OUT

Sr-Bue-Sur-GerSur-er- G- Suiir QoG

2602

TEST

;*TRANSMIT NON-EXISTENT MEMORY TEST

<OV

;retennretecerteecreeccneene

PeYel=lelelelelelicl=lelelalialeTolelelelolalolalelalolelelalelalalaolalaleladoll
o)

2600

SEQ 0053

FREE RUNNING TESTS

000004
014500

001226
001216

160000

001366

000001

001372

014476
010000

001366

1ST4:

BIT
BEQ
BIT
BNE
JMP
BIT
BNE
JSR
JSR

177320
160044

000015
0014616
000002

1%:

0014616

000002

11%:

000400
000006

022472
014434
021433
000010

000
000
200

021433

MoV
Mov

MSTCLR

022030
022440

000001

TEST 4

21%:

22%:

#4,TSTNO
#TISTS NEXT

#BIT1S,STATI
416
#B1T0,STATS
.46
10%
#B'T12,STATT
.~12
PC,BASELD
RS5,XFRELD

Mov

#15,R3

1S18

2(R1)

HLT
BR
BIT8
BNE
HLT
BR

V4
108
#8170,2(R1)
11%
14
108

(LR

BMI]
INC
BNE
DEC
BNE

MOv
MOV
(MP
BEQ
HLT
JSR

MOV

Mov
MOv

(MPB

001250

23%:

MovBe

. CC

;DELAY COUNT

.+20
TEMP
1%
R3
1%

;BR IF SET
; INC DELAY COUNTER
:BR IF NOT DONE DELAY
;DEC DELAY COUNT
:BR IF DELAY NOT DONE

#8118, RS
6(R1) R4
RS ,R&
L)
15
PC, SHUTDOWN

;PUT "EXPECTED'' IN RS
;PUT ''FOUND'' IN R4
;1S NON-EX-MEM SET?
;BR IF YES
;ERROR NON-EX-MEM NOT SET
*ShJTDOWN DMC

2288 ,R0

#BASE+3 R
#10,R2

(RO)+,(R1)¢

BASE+3,TEMP?

25%:

:BA

;CLEAR DELAY COUNTER

23%

00¢
000

IS IT A DMC?
:BR IF YES
;KMC WITH BITO SET?
;BR IF YES
JSKIP TEST
;LU PRESENT?
:BR IF NO
;LOAD DMC BASE ADDRESS
;LOAD XMIT BA/(CC

TEMP

BNE

DEC
BNE
BR
.BY1¢

:R1 CONTAINS BASE DMC11 ADORESS
;MASTER CLEAR DM(C11

;IS RDY O SET?

;ERROR, RDY O NOT SET
sGET 0UT
;IS IT CNTL 0?
;BR IF YES
;ERROR, NOT CNTL O
. CONTINUE

:POINTER TO EXPECTED SOFT COUNTS
;POINTER TO ACTUAL COUNTS

: COUNT

. COMPARE SOFT ERROR COUNTS

;1f ERROR BR 23%

;DEC COUNT
;CONTINUE CHECKING If NOT DONE
;ALL COUNTS Ok, GET QuUT
24%
0,0,0,0,0,0,0,0 ;EXPECTED ERROR COUNTS

R2
228

MACY11 30A(1052)
CIDMH
CZDMH. P11
08-JuL-80

2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658

2659
2660
2661
2662
2663

014452
014460
014466
014474
014476
014476

FREE

PAGE

MOVB
HLT

108:

SEQ 0054

RUNNING TESTS

MOVB
MOVB

104400

BASE*S,TEMP3
BASE+7. TEMP&

BASE+11, TEMPS
17

;SCOPE THIS TEST

SCOPE

settereecceter ettt

TEST

eececevrenccnnnnennenrennene

;*RECEIVE NON-EXISTENT MEMORY TEST
;*IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OUT
;*VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS

::"'Q."Q"""""'"'t"".""'"'QQ"""Q'Q.'."""t't"

;

014500
014506

012737
012737

2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686

014514
014516
014524
014526
014534
014536
014542
014550
014552
014556
014562
014564
014566
014572
014574
014576
014602
014606
014612
014614

104412
032737
001406
032737
001002
000137
032737
001372
004737
004537
177320
140044
004537
021314
000044
012703
005037
105761
100407
005237

2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

08:

113737
113737
113737
104017

2664
2665

2666

?-JUL-BO

014620
014622
0146264
014626
014630
014632
0164640
014642
0146446
014646
014652
014656
014660
014662
014664
014670
014674

001372
005303
001370
104014
000453
132761
001002
104014
000445
012705
016104
020504
001401
104015
004737
012700
012701

000005
014762

001226
001216

100000

001366

000001

001372

014760
010000

1S8T7S:

#BIT0,STATS
. *6

BIT
BNE
JSR

#BIT12,STATI
=12
PC,BASELD

11%:

21s:

.+16

10%

RS,RFRELD

JSR

RS ,XFRELD

MOV

#15,R3

1S78

2(R1)

[0}
MoV
(MP
BEQ
MLT
JSR

#B178,RS
6(R1),R4
RS,R&
XA
15
PC, SHUTDOWN

TBUF
44

000002

#TSTH NEXT

BIT
BNE

177320
140044

0014616

#5,7SINO

#BIT15,5TAT

JSR

1%:

BIT

JMP

001366

000015
001416
000002

022472
014716
021433

MOV

BEQ

022440

000400
000006

MOV

MSTCLR

022030
022406

000001

TEST

(LR

BM]
INC
BNE
DEC
BNE
HLT
BR
BITB
BNE
HLT
BR

MOV

;R1

CONTAINS BASE DMC11

;MASTER CLEAR DM(C11

ADDRESS

IS 1T A DMC?
:BR IF YES

:KMC WITH BITO SET?
;BR IF YES

:SKIP TEST

;LU PRESENT?
;BR If NO
;LOAD DMC BASE ADDRESS
;LOAD RECEIVE BA/C(CC

;BA
;CC

;LOAD XMIT BA/CC
;BA
;CC

;DELAY COUNT

TEMP

:CLEAR DELAY COUNTER

.+20
TEMP
1%
R3
1%
14
10%
#8170,2(R1)
11%
14
10%

;BR IF SET
JINC DELAY COUNTER
JBR IF NOT DONE DELAY
;DEC DELAY COUNT
:BR IF DELAY NOT DONE
;ERROR, RDY O NOT SET
;GET OUT
;IS IT CNTL 0?7
:BR IF YES
;EKROR, NOT CNTL O
: CONTINUE

#25% ,R0

*POINTER TO EXPECTED SOFT COUNTS

#BASE+3,R1

;1S RDY O SET?

;PUT "EXPECTED' IN RS
;PUT "'FOUND'' IN R&
;1S NON-EX-MEM SET?
;BR IF YES
;ERROR NON-EX-MEM NOT SET
*SHUTDOWN DMC

"POINTER TO ACTUAL COUNTS

MACY1Y 30A(1052)8 88 JUL-80
CZDMH
CIOMKH.P1Y
08-JuL-80
0

2704 014700
2705 014704
2706 014706
2707 014710
2708 014712
2709 014714
2710 014716
2711
07N
2712 014726
2713 014726
2716 014734
2715 014742
2716 014750
2717 014756
2718 014760
2719 014760
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730 014762
014770
2731
2732
2733 014776
2734 015000
2735 015006
2736 015010
2737 015016
2738 015020
2739 015024
27640 015032
27641 015034
2742 015040
2743 015044
27644 015046
2745 015050
2746 015054
2747 015060
2748 015064
2749 015066
2750 015072
2751 015074
2752 015076
2753 015100
2754 015106
2755 015110
2756 015112
2757 015114
2758 015120
2759 015124

012702
122021
001007
005302
001374
000421
000
000
000
113737
113737
113737
113737
104017

08:1

FREE

000010

PAGE 56
RUNNING TESTS
MOV

#10,R2

BASE+3,TEMP?

000
000

25‘:

CMPB
BNE
DEC
BNE
BR
-BYTE

001250
001252
001254
001256

238

MOVB

22%:

24%:
108 :

104400

MOVB
MOVB
MOVB
HLT

(ROT+, (R1)+
3$
R2
22%
249
0'0:050'0:0'0'0

SEQ 0055

; COUNT

:COMPARE SOFT ERROR COUNTS
:iF ERROR BR 23$
:DEC COUNT
:CONTINUE CHECKING IF NOT DONE
;ALL COUNTS OK, GET QUY
;EXPECTED ERROR COUNTS

BASE+S,TEMP3
BASE+7.TEMP4
BASE+11,TEMPS
17

;SCOPE THIS TEST

SCOPE

serennnerteeecerertreceenany

TEST

teeenncnnncctceennecennvney

1 «PROCESSOR ERROR TEST

;*IN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER A
'BASE HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS.

'tQl""""""'t""t"'i"'."'.'Qilt"""'t't""'t""'

;

012737
012737
104412
032737
001406
032737
001002
000137
032737
001372
004737
1527M
105711
100376
142711
005037
105761
100405
005237
001372
104014
000770
132761
001002
104014
000443
012705
016104
020504

000006

015224

001226
001216

100000

001366

000001

001372

015222
010000

001366

022030
000043

1ST6:

MOV

BIT
BEQ
BIT
BNE
JMP

138

BIs8

#4%, (R1)

BPL
BICB
CLR

=2
#40,(R1)
TEMP

BM]

148

JSR

1578

1STB

BNE

148

118

PC,BASELD
(R1)

2(R1)

TEMP

HLT

BITB
BNE

#BIT0,2(R1)
118

BR
MOV
MOV
CMP

108
#B119,RS
6(R1) R4
RS, R4

B8R

HLT

001000
000006

#BIT1S,STATY
+16
#BIT0,STAT3
.+6
108

#BIT12,STATY
=12

INC

000002

#6,TSTNO

#TST7 NEXT

BNE

BIT

001416

000001

MOV
MSTCLR

128

000040
001416
000002

TEST 6

138
14

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

;IS IT A DMC?
¢BR IF YES
;KMC WITH BITO SET?
;BR IF YES
JSKIP TEST

;LU PRESENT?
;BR

;LOAD BASE ADDRESS
;¢ND BASE REQUEST
sRDI SET?
;BR IF NO
;CLEAR RQI
:GET SET TO DELAY
JRDO SET?
;BR 1f YES
;s INC DELAY

;BR IF NOT DONE DELAY
;ERROR, RDO NOT SET
: TRY AGAIN
SIS IS ONTL 0?
;BR IF VYES
;ERROR NOT CNTL O

: CONTINUE
:PUT "EXPECTED'' IN RS
;PUT "'FOUND'' IN R&

1S PROC ERROR SET?

ADDRESS

CIOMH

MACY11 30A(1052)

(ZomMKH.P11

08-JuL-80 08:21

2760
2761
¢762
2763
2764
2765

015126
015130
015132
015136
015142
015146

001401
104015
012700
012701
012702
12201

2767
2768
2769
2770
2771

015152
015154
015156
015160
015163

005302
001374
000421
€00
000

2766

2772

2773
2774
2775
2776
2777

2778

%;gg

08-JuL-80

015150

015166

015160
021433

000

113737
113737
113737
113737
104017

015222

104400

009

000

021435
021437
021441

001250
001252
001254
001256

000

SEQ 0056

22%:

BEQ
HLT
MOV
MOV
MOV
CMPB

.44
15
#25% RO
#BASE+3,R1
#10,R2
(RO)+,(RY)+

;BR [F YES
;ERROR, PROC ERROR NOT SET
;POINTER TO EXPECTED SOFT COUNTS
;POINTER TO ACTUAL COUNTS
s COUNT
;COMPARE SOFT ERROR (OUNTS

]
¢5%:

DEC
BNE
BR
.BYTe

R
22%
24%
0,0,0,0,0,0,0,0

;DEC COUNT
;CONTINUE CHECKING IF NOT DONE
;ALL COUNTS Ok, GET OUT
;EXPECTED ERROR COUNTS

MOVB
MOVB
MOvB
MovB
HLT

BASE+3,TEMP?
BASE+S, TEMP3
BASE+7,TEMP4
BASE+11,TEMPS
17

21s:

000010

000
000
021433

PAGE 57

FREE RUNNING TESTS

001007

015170
015176
015204
015212
015220

015222

08:21

238:

24$:

10%:

2781
2782

BNE

23%

;IF ERROR BR 23%

:SCOPE THIS TEST

SCOPE

reeeeneeereteercreetennnnny TEST 7 tetnennerattaneeeaendteneee

2783

:*PROCESSOR ERROR TEST

2785

JeVERIFY THAT A PROCESSOR ERROR OCCURS

2784

;*IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE

2787

;

2788
2789

2790

2791

2792
2793

2794

015224

015232

015240

015242

2795
2796
2797
2798
2799
2800
2801
2802
2803
2804

015250
015252
015260
015262
015266
015274
015276
015302
015306
015310

2806
2807
2808
2809
2810
2811
2812
2813
2814
2815

015316
015322
015326
015330
015334
015336
015340
015342
015350
015352

2805

2786

015312

012737

104412

032737

001406
032737
001002
000137
032737
001372
004737
152711
105711
100376

142711

005037
105761
100405
005237
001372
104C14
000770
132761
001002
104014

000007

015466

001226

001216

100000

001366

000001

001372

015464
010000

001366

1S717:

001416
000002

1%:

0014616

000001

000002

LR AN

A R AR RN TR TR R N ER ORI AN

TEST 7

MoV

MOV

#7,TSTNO

#1ST10,NEXT

BIT

#BIT1S5,STATY

81(8

#40, (RY1)

8tQ
81T
BNE
JMP
BIT
BNE
JSK
8IsB
1518
BPL

000040

N R RN RN

|mecccscccncans

MSTCLR

022030
000046

PR R R L LR

(LR
1S18
BM]
INC
BNE
HLT
BR
BI18
BNE
HLT

.46
#8170,STATS
.+6
108
MBIT12,STATY
.~12
PC,BASELD
#40,(RY)
(R1)
.=2

TEMP
2(R1)
414
TEMP
1%
14
1%
#8170,2(R1)
1%
14

;H1 CONTAINS BASE DM(C11 ADDRESS
;MASTER CLEAR DM(C11

;IS IT A DMC?

JBR IF YES
;KMC WITH BITO SET?
;BR IF YES
;SKIP TEST
;LU PRESENT?
;B8R IF NO
;LOAD DMC BASE ADDRESS
JRQI AND ILLEGAL rODE
;WAIT FOR RDI
;BR IF NO RDI

;CLEAR RQI

JCLEAR COUNTER
;RDY O SEY?
;BR IF YES
;BUMP COUNTER DELAY
,BR IF NOT DONE
;ERROR NO RDY O
;TRY AGAIN
JIS IT ONTL O
;:BR IF YES
;ERROR, NOT (NTL O

[

MACY11 30A(1052)
08-JuL-80
1R
08-JuL-80 08:21

[elelalalalelelolelalele]

000443
012705
016106
020504
001401

D od

1064015

D oD

406

012700
012701
012702

122021
001007

005302
001374
000621

08: 21

FREE

015622
021433
000010

021433
021435
021437
021441

RUNNING

11%:

001000
000006

000
000
000

PAGE 58

21%:

22%:

10%

: CONT INUE

#25%,R0

;POINTER TO EXPECTED SOFT COUNTS

MOV
MOV
(Mp
BEQ
HLT

#BIT9,RS
6(R1) R4
RS ,R4
R
15

Mov

#BASE+3,RY

MOV
MOV

#10,R2

(mPB
BNE

000
00C

25%:

DEC
BNE
BR
.8v7¢

001250
001252
001254
001256

238:

MOVB

24$:
108:

SCOPE

015464

SEQ 0057

TESTS

(RO)+,(R1) ¢
238

Move
Move
Move
HLT

R2
22%
243
0,0,0,0,0,0,0,0

BASE+3, TEMP?

;PUT "EXPECTED'' IN RS
;PUT "'FOUND'' IN Ré
;1S PROC ERROR SET?
;BR [F YES
;ERROR PRCC ERROR NOT SET
;POINTER

: COUNT

TO ACTUAL

COUNTS

; COMPARE SOFT ERROR COUNTS
;1F ERROR BR 23%

;DEC_COUNT
;CONTINUE CHECKING IF NOT DONE
;ALL COUNTS Ok, GET QUT
;EXPECTED ERROR COUNTS

BASE+5,TEMP3
BASE+7 ,TEMPS
BASE+11,TEMPS
17
;SCOPE

;evsereseettservctscanennnnt

;*HALF

DUPLEX

THIS

TEST

;*IN FREE RUNNING MODE, SET HALF

TEST

eevcavveennnertverteenerene

DUPLEX AND L U LOOP

;*SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES
R

OrOr

OO VAW

L,H-rOOOSNEsMNIESN

466

VIV IV IVAVAV IV IV IV IV IV IV IV 1V 1V 1V 1V IV |
VA AAWWAWDGY.
[o AV 1Y IV ] VAV VAWMV

—r el

)

D e

i ol il el el

)

) el

[eleleloleololelelalelolelalalalolelalo BN -—h
e o)

000010
015622

0012 26
1
001216

TST10:

TEST

#10,7STNO
#ISTIT NEXT

#BIT1S,STATY

100000

001366

MSTCLR
BIT

000001

001372

BIT

#BIT0,STATS

015614
010000

001366

BIT

#MIT12,5TAT

BNE
JMP

BNE
JSR
JSR

022146
022406

RBUF

46
JSR
T8UF
46

022440

000003
001416
000002

‘%

.+16

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(1
;1S 1T A DMC?

ADDRESS

:BR IF YES

;KMC WITH BITO SET?

.+6
10%

:BR IFf YES
;SKIP TEST

=12
PC,BASELM
RS ,RFRELD

;B8R [F NO
;LOAD BASE AND HALF DUPLEX
;LOAD RECEIVE BUFFER

RS, XFRELD

MoV

#3,R3

1518
BM]

2(RY1)
5%

(LR

MOV
MOv

8tQ

TEmp

;LU PRESENT?

:BA

. CC
;LOAD
:BA
. CC

TRANSMIT BUFFER

:LOAD DELAY COUNT

;CLEAR DELAY

;1S DONE SET?
;BR [F YES (ERROR)

ARl

CZOMH
MACY11 30A(1052)
08-JuL-80
CZDMK . P11
08-JuL-80 08:21

2872
2873
2874
2875
2876
2877
2878
2879
2880

015602
015606
015610
015612
015614
015616
015620

005237
001372
005303
001370
104400
104014
000775

08:21

PAGE 59
FREE RUNNING TESTS

001416

10$:

5%:

2881

INC
BNE
DEC
BNE
SCOPE
HLT
BR

SEQ 0058

TEMP
63
R3
2

; INC DELAY
:BR IF DELAY NOT DONE
;DEC DELAY COUNT
;BR IF DELAY NOT DONE
;SCOPE THIS TEST
:ERROR DONE WITH HALF-DUPLEX
;GET OuTt

1
108

JeNEREARRORNRRETTERNOCRELARCERRS

2882

TEST

teanccananntcenaatttacateee

;*RESUME TEST

2883
2884
2885

J*THIS TEST SENDS AND RECEIVES A BUFFER AND SHUTS DOWN THE
:*DMC. THEN A MASTER CLEAR IS ISSUED AND A BASE WITH RESUME
s*BIT SET IS GIVEN, ANOTHER BUFFER IS SENT AND RECEIVED.

2887

2888
2889
2890
2891

.
TEST 1
jmeeeeeccccece-

2886

2892
2893
2894

289S

;*DATA IS CHECKED.

015622

012737

015636

104412

015630

015640

012757

032737

2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914

015646
015650
015656
015660
015664
015672
015674
915700
015704
015706
015712
015714
015720
015724
015726
015730
015734
015736
015740

001406
032737
001002
000137
032737
001372
005037
005737
001003
004737
000402
004737
004537
021362
000044
004537
021314
000044
012703

2916
2917
2918
2919
2920
2921
2922
292%
2924
2925
2926
2927

015750
015754
015760
015762
015766
015770
015772
015774
015776
016000
016006
016010

005037
105761
100407
005237
001372
005303
001370
104014
000501
042761
005300
001361

2915

015744

012700

000011

016204

001226

001216

100000

001366

000001

001372

016202
010000

001366

020050

71STi11:

BIT

022030

2%:
3%:

022440

000030

000002

BEQ
BIT
BNE
JMP
BIT
BNE
CLR
TST
BNE
JSR
BR
JSR
JSR
RBUF
44
JSR
TBUF
44
MOV

MOV

001416
000002

0014616

000207

MOV

MSTCLR

1%:

022266
022406

MOV

000002

(LR
1ST8
BM]
INC
BNE
DE(
BNE
HLY
BR
8I(
DEC
BNE

P R R RN AR R RN R RN RN R AR NN AN NN IR RO RO O R NN

#11,TSTNO

#TST12 NEXT

#BIT1S5,STAT

.+16
#B1T0,STAT3
.+6
10%
#BIT12,STAT
.~12
RE SUME
RESUME
4)
PC,BASELD
3s
PC,RFSUM
RS,ktRELD

:R1 CONTAINS BASE DMc'1 ADDRESS
JMASTER CLEAR DMC11

JIS IT A DMC?

#30,R3

:BR IF YES
;KMC WITH BITO SET?
;BR IF YES
sSKIP TEST
;LU PRESENT?
;BR IF NO
;CLR RESUME FLAG
JFIRST OR SECOND PASS?
;s8R IF SECOND
:BASE
s CONT INUE
;BASE WITH RESUME BIT
JRECEIVE BUFFER
;BA
.CC
JXMIT BUFFER
;BA
;CC
sDELAY COUNT

TEMP
2(R1)
.+20
TEMP
4%
R3
43
14
10%
#207,2(R1)
RO
4%

;CLEAR DELAY COUNTER
;1S RDY O SET?
;BR IF SET
;INC DELAY COUNTER
;B8R IF NOT DONE DELAY
;DEC DELAY COUNT
;BR IF DELAY NOT DONE
JERROR, RDY O NOT SET
;GET OuT
:CLEAR DONE
;TWO DONES YET?
:BR [F NOT

RS,XFRELD

#2.,R0

+NEED TWO DONES

CIOMH
MACY11 30A(1052)
08-Jui-80
CIDMKH. P11
08-JuL-80 08:21

2928
2926

016012
016016

012702
012703

2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943

016026
016030
016032
016034
016036
016040
016042
016044
016050
016054
016056
016064
016066

112205
112304
120504
001401
104012
005300
003N
004737
005737
001004
012737
000705

2930

2944
2945
2946
2947

2948

2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2902
2963
2964
2965
2966
2967
2968

016022

012700

000044

6%:

7%:
022472
020050
177777

012700
032737
001402
012700

016130
000002

016112
016116
016120
016122
016124
016126
016130
016133
016136
NM16140
216143
016146
016150
016156
016164
016172
016200
016202
016202

012702
122021

000010

012701

PAGE 60
FREE RUNNING TESTS

021314
021362

016066
016072
016100
016102

016106

08:21

020050
8%:

021433

005302
001374
000425
000
000
000
000
000
000
113737
113737
113737
113737
104017

#TBUF ,R2
#RBUF ,RY

;ADDRESS OF GOOD DATA
:ADDRESS OF RECEIVED DATA

Move
MOovB
CMPB
BEQ
HLT
DEC
BNE
JSR
TST
BNE
MOV
BR

(RZ)’ RS
(83)’.R4
R>,R4
7%
12
RO
63
PC,SHUTDOWN
RE SUME
8%
#-1,RESUME
1%

;LOAD GOOD DATA
:LOAD FOUND DATA
: COMPARE DATA
:BR IF 0K
;DATA ERROR
;DONE YET?
;BR IF NOT
;SHUTDOWN DM(
;
;BR IF ALL DONE
:SET FLAG FOR SECOND PASS
;CONTINUE

MOV

#i4 RO

: COUNT

#25%,R0
#BIT1,STATS
213
#26% ,R0

:POINTER TO EXPECTED SOFT COUNTS (LOW SPEED)
;IS IT HIGH OR LOW
:BR IF LOW
;POINTER TO EXPECTED SOFT COUNTS (HIGM SPEED)

22%:

MOV
CMPB

#10,R2
(RO)Y+,(R1)+

s COUNT
;COMPARE SOFT ERROR COUNTS

R?
22%
248
0.,0,0,0,0,0,0,0

21%:

001013

MOV
MOV

MOV
BIT
8EQ
MOV

001372

016140

SEQ 0059

MOV

BNE

#BASE+3,R1

238

;POINTER TO ACTUAL COUNTS

:1F ERROR BR 23%

000
000

258%.

DEC
BNE
BR
.BYTe

000
000
000
021433
021435
021437
021441

000
0C0

268%:

.BYTE

0,0,0,0,0,0,0,0 ;EXPECTED ERROR COUNTS (HIGH SPEED)

001250
001252
001254
001256

23%:

MovB
MOvVB
Mov8
MOvB
HLT

BASE+3,TEMP?
BASE+S5,TEMP3
BASE+7,TEMPS
BASE+11,TEMPS
17

000

24%:

104400

10%:

2969

SCOPE

:DEC COUNT
;CONTINUE CHECKING IF NOT DONE
sALL COUNTS 0K, GET QuT
;EXPECTED ERROR COUNTS (LOW SPEED)

;SCOPE THIS TEST

2970

JERRAERRLAREERARERRERAORNRNRY

29N

'FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER)

2972
297%
2974
2975
2976
2977

tttanttannaananttrvenettntey

:*THIS TEST REPEATEDLY QUEUES UP 7 RECEIVE BUFFERS AND
'7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS
'ARE RECEIVED. TRANSMIT COUNTS RANGE FROM 2 TO 104.
:*DATA IS A BINARY COUNT PATTERN. THE RESUME FUNCT]ON
;]S CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR
'IF IT IS PRESENT, OTHERWISE LINE UNIT LOOP IS SET.
"t't"'t't"t"tt't'ttttttttttt!fitt't!t"!'t"ttttti't'!t't!t

2978

2979
ggg?

2982
2983

TEST

;

016204
016212

012737
012737

000012
003364

001226
001216

TST12:

MOV
MOV

TEST 12

#12,1STNO
# .EOP NEXT

CIDMH

MACY11 30A(1052)
08-JuL-80
08-JuL-80 08:21

CIDMH. P

2984
2985

2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998

2999

3000
3001
3002
gggz

016220
016222
016230
016232
016240
016242
016246
016254
016256
016264
016270
016272

104412
032737
001406
032737
001002
000137
032737
001372
012737
013700
006200
006200

016300

042700

016274
016276

016304
016312
016316
016324

006200
006200

012777
010077
012777
010077

08:21
PAGE 6!
FREE RUNNING TESTS

100000

001366

000001

001372

017034
010000

001366

000340
001366

177437

017122
163060
017412
163052

MSTCLR
BIT
BEQ
BIT
BNE
JMP
BIT
BNE
MOV
MOV
ASR
ASR

177776

016330
016336
016342
016346

012737
012700
012703
010320

000104
020054
020346

3012
3013
3014
3015
3016

016354
016360
016362
016366
016372

022700
001372
012720
022700
001373

020072

016400
016404
016410

013720
022700
001373

3018
3019
3020

3021
3022
3023
3024

3025

163054

021306

1%:

016350 062703 000104

016374

016412
016420
016424
016432

016434

3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036

016440
016444
016450
016454
016456
016462
016464
016470
016474
016500
016502

3038
3039

016506
016510

3037

#1I1SR,30MRVEC
RO,8DMRLVL
#OISR,DMTVEC
RO,S0MTLVL

#177437,R0

:R1 CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DM(C11
1S IT A DMC?
:BR IF YES
:KMC WITH BITO SET?
;BR IF YES
:SKIP TEST
;LU PRESENT?
:BR IF NO
:LOCK 2UT INTERRUPTS
:GET BR LEVEL
JSHIFT RIGHT & TIMES

;PUT BR LEVEL IN RO
;LOAD
;LOAD
;LOAD
;LOAD

INPUT VECTOR
LEVEL
OUTPUT VECTOR
LEVEL

SINITIALIZE ALL BUFFER LISTS AND COUNT LISTS

3007
3008
3009
3010

3017

MoV
MOV
MOV
MoV

BIC

163062

%882

3011

ASR
ASR

#BIT15,STATY
416
#B1T0,STATY
. +6
ENDEX
#BIT12,STAT
.~12
#340,PS
STAT1,RO
RO
RO
RO
RO

SEQ 0060

016504

012700

020222

012737
012711
032737
001402

000005
040000
100000

012711

012700
005037
012705
005025
022705
001374
012704
013724
022704
001373
005002

005004

005711
100376

2$:

020110
020110

3s:

021306
020240

100000

177777
020050

020256
021302

020240
021306
020256

021304

001366

MOV
MOV
MOV
MOV

#104,TFLAG
#XMITBA+2,R0
#RBUFF ,R3
R3, (RO)+

:TFLAG CONTAINS COUNT
;RO POINTS TO BA LIST
:R3 CONTAINS BUFFER ADDRESS
;LOAD BA LIST WITH REC BA

CMP
BNE
MOV
CMP
BNE

#XMITBA+20,RO
1%
#TBUFF,(RO)+
#XMITBA+36,RO
2%

;END OF REC BUFFERS?
:NO LOAD NEXT ONE
:LOAD BA LIST WITH XMIT BA
;END OF XMIT BUFFERS?
:NO LOAD NEXT BUFFER

MOV
CMP
BNE

TFLAG, (RO) +
#RCNTAB+20,RO
3%

:LOAD COUNT OF 104
;END OF REC COUNT LIST?
:BR IF NO

ADD

MOV

MOV
MOV
BIT
BEQ

104,83

#RCNTAB+2,R0O

#B81T15,(R1)

(LR

187
BPL

;RO POINTS TO COUNT LIST

#5,FLAG ;LOOP COUNT
:SET MASTER CLEAR
#BIT14, (RV)
;10P?
#BIT15,STAT
;:BR IF NO
.+6

MOV

MOV
CLRTAB: CLR
MoV
CLR
28:
CMP
BNE
MOV
MOV
(3
CMP
BNE
CLR
5% :

:UPDATE BUFFER ADDRESS

:SET RUN ON 10P

#-1,R0
RESUME
#RDNTAB,RS
(RS) +
#RBUFFE RS
2%
#XCNTAB, R4
TFLAG, (R4) ¢
#XCNTAB+16,R4
48
R2

;RO IS INPUT DONE COUNTER
:CLEAR RESUME FLAG
:GET READY TO CLEAR ALL RECEIVE
:BUFFERS
:END OF BUFFER?
;BR IF NO
;R4 POINTS TO XMIT COUNT LIST
:LOAD XMIT CHAR COUNT
;DONE?
JBR [F NO
:R2 IS OUTPUT DONE COUNTER

(R1)
.2

:1S RUN SET?
:WAIT FOR RUN

:R& 1S USED AS INDEX IN OISR

3067
3068
3069
3070
3071
3072
3073
3074
3075

152761

\V ]

000100
040000

004000
000005

08: 21

PAGE 62

D
d

000144
001416
000022
177776
000020

000002

BISB

BIT

001366

BNE
BIS
(MP
BNE
BIS
BR
BIS
CLP

021304

001250
SCAN:

SCANZ:

017072
000034

8%:

017072

012700
012002
005005
005003
010237
112204

020256

9s:

5%:

001252

120504

016660
016662
016664
016666
016670
016674
016700
016702
016706
016714
016716
016722
016724
016732
016736
016740
016744
016750

016752
016756
016704
016766
016772
016776
017002

001401
104013
005205

005203
021003
001366
062700
022700
001356
012700
032737
001003
005337
000403

000001
000001

021306
000040
021304

021306

017024
021433
000010

2$:
ENDEX:
1%:

000146
021304

017014
000002

1%:

MOV
MOV

CLR

MOV
Move
(MPB
BEQ
HLT
INC
INC
(MP

(MP
BNE
MOV

BIT

BNE
DEC
BR
sus
DEC

BNE
8158
TST
8EQ
MOV

BEQ

2%:
3%:

#5,FLAG
19

7143, (R1D)
3$

#34,R2
8$
SCAN1
#34 R4
9$
SCANT

8IT

001372

L ¢6

#817T11,(R1)

JMP
CMP
BEQ
JMP
CmP
BEQ
JMP

8EQ

ADD

021304

#BIT14, STATY

CMP

CLR

BNE

000002
020312

#B1T6,2(R1)

#1446, (RY)
TEMP
#22,TEMP?
PS
#20,R0

MOV

017072
000034

000137

SEQ 0061

FREE RUNNING TESTS

000145

032737
001002

3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066

[eloleleololololeolole]o)]

MACY11 30A(1052)
08-JuL-80
(DMK
H
. P11
08-JuL-80 08:21
CI0M

MOV
MoV
MOV

(MPB

SCAN2
SCAN

#RONTAB,RO
(RO)+,R2
RS
R3
P2,TEMP3

(R2)+,R4
RS ,R4
.t

#2,R0
#RONTAB+34
RO

#1,R0
#BITC,FLAG
1%
TFLAG

#40,TFLAG
FLAG

CLRTAB

8146, (R1)
FLAG
1%

#10% RO

oglti,SIATB
2

#11%,R0
#BASE+3,RY
n0,R2
(RO)+,(RY1)¢

;SET 1EO
;LOOP BACK CONNECTOR?
;BR IF YES
;SET LINE UNIT LOOP
;FIRST TIME?
:BR [F NOT
:SET 1EI,RQI,BASE |
; CONTINUE
:SET 1EI, RQI, REC BA/(CC
;SET UP FOR DELAY COUNT
;GET SET FOR DELAY
:ALLOW INTERRUPTS
:INPUT DONE?
:BR IF YES
;BR [F NO

:XMIT DONE FOR ALL MESSAGES?
;BR IF YES
;B8R IF NO

:REC DONE FOR ALL MESSAGES?
:BR IF YES
:BR If NO
;GET FIRST REC BUFFER
;R2 POINTS TO BUFFER
;RS=EXPECTED
;R3 = COUNT
;SAVE ADDRESS FOR TYPEOUT
JGET RECEIVE DATA
;1S 1T CORRECT?
:BR IF YES
:DATA ERROR
:NEXT CHARACTER
s INC COUNT
;DONE YET?
;BR [F NO
;GET NEXT REC BUFFER
:DONE YET?
;BR IF NO

;SET RO 1O 1
:CHANGE CHAR COUNT FOR NEXT LOOP
;BR T0O SUB &0
:DEC BY ONE
; CONTINUE
:SUBTRACT 40 FRON XMIT COUNT
:DEC LOOP COUNT
;G0 DO IT AGAIN
s SHUT DOWN DM(
:HAS

INTERRUFT OCCURED?

:BR IF NO

;RO POINTS TO LO SPEED (OUNTS
;1S IT LO SPEED?
:BR IF YES

;RO POINTS TO HI

COUNTS

;POINTER TO ACTUAL COUNTS
;10 COUNTS TO CHECK
;CHECK COUNT

CIDMH
MACY11 30A(1052)
08-JuL-80
CZ0MH. P11
08-JuL-80 08:21
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108

3109
3110

I
3112
3113
3114
3115
3116
3117
3118
3119
g}g?

017004
017006
017010
017012
017014
017017
017022
017024
017027
017032
017034
017036
017044

017052
017060

103414
005302
001374
000410
000
000
005
000
000
005
104400
113737
113737

113737
113737

104017
000761
005337
001402
000137
005337
001402
000137
104001
000745

000
000
005
000
000
005

021433
021435
021437
0214641

08:21
PAGE 63
FREE RUNNING TESTS

000
000

10§:

BLO
DEC
BNE
BR
.BY7¢

005
000

11%:

.BY1¢

001250
001252
001254
001256

ENDEX1: SCOPE
ENDEX2: MOVB
Mov8

Mmove
Move

001416

SCAN1:

016574
001250

18:

016574

2%:

%}%%

0171
0\
0171
01N
01
017
017

022700
001421
005737
001432
032711
001407
012761

3132
3133
3134

017
017
017

000404
005061
005037

3135

3136
3137
3138
3139
3140
3141

3142
3143
3144
3145

3146

3147
3148

3149
3150
3151

ENDE X2
R
3
ENDEX
0,0,0,0,0,0,5,5

0,0,5,0,0,0,5.5 ;EXPECTED HI

BASE+3, TEMP2
BASE+5,TEMP3
BASE+7,TEMP4
BASE+11,TEMPS
17
ENDE X1
TEMP
19
SCAN
TEMP?
2%
SCAN
1
ENDEX1

;BR IF ERROR
;DEC COUNT
;BR IF NOT DONE
;ALL OK GET OUT
;EXPECTED LO SPEED COUNTS
SPEED CQUNTS

;SCOPE THIS TEST
;SAVE ALL ODD ADDRESSES
;FOR TYPEOUT

;

:NON ZERO ERROR COUNT
:GET 0UT
;DECREMENT DELAY COUNTER
;BR [F ZERO
;BR IF NOT DONE DELAY
;DEC DELAY COUNT
;BR IF DONE DELAY
:BR IF NOT DONE
;ERROR HUNG
sGET OUT

s INPUT INTERRUPT SERVICE ROUTINE

3126
3125
3126
3127
3128
3129
3130

313

HLT
BR
DEC
BEQ
JMP
DEC
BEQ
JMP
HLT
BR

SEQ 0062

017

012761

142711

017
017200
017202
017206
017210

105711
100776
005737
001403
152711

017216
017220
017222
017224

105011
000002
005700
100006

017214

017226

017234
017240

017242
017244

017250

000002

000017

021430

(MP
8tQ
TST
BEQ
BIT
BEQ
MOV

#17,R0
12%
RE SUME
8$
#BITT,(RY)
13%
#BASE 4 (R1)

;PROC. ERROR DONE?
;BR IF YES
;1S THIS A RESUME INTERRUPT
:BR _If NO
:CNTL OR BASE?
;BR IF CNTL |
:LOAD BASE ADDRESS

000006
020050

BR
CLR
CLR

128
6(R1)
RESUME

s CONTINUE
;SELECT FULL DUPLEX
:CLEAR RESUME FLAG

020050
000002

010000
000040

138:

12%:

000041

148:
8$:
021430

001003
005061

000006

000430

MOV

020050

012761

005061
000434

[ISR:

8l1(8B

1STB
BMI
TST
BEQ
8Is8
RT]

7$:

#40, (R1)

(R1)
.=2
RE SUME
148
#41,(RY)

;CLEAR RQ]

:1S RDI GONE?
:BR IF NO
;BASE OR CNTL 1?
:BR IF [T WAS CNTL |
;ASK FOR CNTL |
;RETURN

RO
7%

;CLEAR BSEL 0
sRETURN
¢FIRST TIME HERE?
:LOAD BASE IF MINUS

CLR
BR

6(R1)
3%

;CLEAR COUNT
; CONTINUE

BNE
(LR
BR

(R1)

;WITH RESUME BIT SET

CLRB
RT]
TST
BPL
MOV

000006

#B1T12,6(R1)

#BASE ,4(RY)

1%
6(R1)
3%

sSET UP BASE ADDRESS

;CNTL [ FULL DUPLEX IF 0
JSELECT FULL DUPLEX
. CONTINUE

000004
000006

000041

000017

6%:

000010
000044
000040

5%:

000046

($:

B
i
e

017412
017420
017422
017426

017430
017434
017442
017444

i o

032761
001467
005737
001006

005237
022761
001531
022700

000001

021304
001000

=l
)
=l ol
el
-

~
»

0ISR:

RO
3%

ROL
MOV
MOV

RO
;MAKE IT EVEN
XMITBACRO) ,4(R1);LOAD XMIT BUFFER
RCNTAB(RO) ,6(R1);LOAD COUNT

ROR

TSTR
BMI
INC
BNE
BISB
RT]

RO
6%

BR
cLc

BI(B

#40, (R1)
(R1)

.=2

#61,(RY)

(mMpP
BEQ
BIT
BNE
BISB

#17,R0

BISB

#40, (R1)
#46, (R1)

RT]

|
?B

000017

040000

100000

9%:

000006

001366

100000

BEQ
CMP

BNE
(o[
BNE
INC
MoV

BIT
BEQ

MoV

INCB

000000
177777

BIT
BEQ

TST
BNE
INC
CMP

000006

b prrd

000002

021304

001000
OO0O0O00000 o

pry

ROR

RECBA(RO) ,4(R1) ;LOAD REC BUFFER
RCNTAB(RO) ,6(R1);LOAD COUNT

4%
#B1T3,R0
5%
#i4,(R1)

s CLEAR CARRY
:GET RO BACK
; CONTINUE
;CLEAR CARRY

:CLEAR CARRY
JPUT

IT BACK

;CLEAR RQI
;WAIT FOR

;RDI TO GO AWAY
: INC_COUNT

;1F 0 ASK FOR CNTL |

JASK FOR CNTL
sRETURN
;DONE YET?

;BR IF YES
JXMIT?
:BR [F YES
:ASK FOR REC BA/(CC

sRETURN

;ASK FOR XMIT BA/(CC

:RETURN

;FORCE PROC.

;RETURN

ERROR

. OUTPUT INTERRUPT SERVICE ROUTINE

A\ Ll U L
NI
—o

JXMIT?
;BR IF YES
;CLEAR CARRY
;MAKE RO EVEN

cLC

1 ¥

000040

#B1T13,RO
23

ROL
MOV
MOV

cLC

2%:

020052
020220

BIT
BNE
CLC

000002
152711
000002

1%:

000010

SEQ 0063

RUNNING TESTS

N\
~NO OO

017402
017404
017410

000002
152711

PAGE 64

—

S NOONY

OONN

& oo

RS
FNO
OONO SN0

et
v D
N
OO VNNE

b
b
e
i
o
D o
D
D o
b
D ad
d
e
o
b
cnld
i
b
-l

~
P

SERRES28TEITTRERZ
3833

017374
017376

FREE

Ul Ll W A L L Al U A Ll A U N U

3179
3180

NNNSNSNSNSNSNSNSN N NNNNNNSNSNSNSNSNNNNN
NP
(v iy W AN N AN N N AN N

0000000000 elolelelelelalelelelolalalalole]lo)

o
o

put

3159

032700
001013
000241
006100
016061
016061
000241
006000
000412
000241
006100
016061
016061
000241
006000
142711
105711
100776
005200
001003
152711
000002
022700
001411
032700
001003
152711

08: 21

poXo
ol o]

(W IV IV IV TV IV IV R
[« BN 1o JV P JV [,S]

=4 =4
NN
LN N N NN

MACY11 30A(1052)
0?°JUL-80
L1
08-JuL~80 08:2

A
N

(2
€2

020050

BNE
MOV
TSt
BPL

#B170,2(R1)
1%

:1S THIS AN ERROR?
¢BR IF NO

:BR

FLAG

FLAG
#B1T9,6(R1)
10%
£17,R0
118
#B179,6(RY)
1%

#1714, (RY)

;1S THIS SHUT DOWN INTERRUPT?
I1F NO

;YES MAKE FLAG NON-ZERO
sSHUT DOWN BIT SET?
sYES ALL IS OK
;RESUME INTERRUPT?
:BR IF NO
+PROC. ERROR BIT SET?
;BR IF NO

;BUMP COUNTER (10 20)
;MASTER CLEAR DEVICE

414

;DMC OR KMC?
‘BR IF DMC

#-1,RESUME

;SET RESUME FLAG

;BR [F NO

#MBIT15,5TATY
#BIT1S, (R)
co‘
(R1)

:SET RUN ON KMC
:DELAY ON KMC
SRUN SET?

08:21

104016

022626
000137
032761
001053
022761
001412
022761
001406
012705
016137
104002

005005
026561

000100
040000

000002
001366

MOV

BIT
BNE
BIS
8IS

00290
000143

017034
000004

000002

020110

000004

02011

000004

020110
000004

001252

020240

000004
000006

P
K

012761
032737
001002
052711
052711
000002
016137
016137

000006

118:

1%:

5%:

000002
000016

000004
000002
000006
000002
000207

020312

6%:

020312
000002
:
108

000004

2%:

020046

MoV
Mov
HLT

SEQ 0064

000006

020256
000002

8%:

.+6
#BIT11, (RD)
2143, (R)

BR IF YES
“SET LINE UNIT LOOP
‘ASK FOR PORT (BASE REQUEST)

4(R1),TEMP3

:SAVE FOR ERROR TYPEOUT

6(R1) . TEWP&
16
(SP)+,(SP)+

*LOOP BACK CONNECTOR?
‘RETURN

*SAVE FOR ERROR TYPEOUT

ENDE X1

*CNTL O ERROR
*ADJUST STACK
SGET OUT

2%
#TBUFF .4 (R1)

;:BR IF YES
‘1S XMIT BA CORRECT?

#B1T2,2(R1)

/5
#TBUFF+1,4(R1)
X3
#TBUFF ,RS
4(R1),TEMP3

‘RECEIVE?

‘B8R IF OK
IS XMIT BA CORRECT?
‘BR IF YES
‘RS = EXPECTED
*SAVE FOUND FOR TYPEOUT

CMP
BNE
HLT
MOV

*XMIT COUNT ERROR
3
4(R1),XDNTAB(R2):STORE XMIT DONE BA

ADD
MOV
ADD
RT]

CLRB
CLRB

RTI
MOV

CMP

CMP
BNE
HLT
CLR
CMP

BEQ
ADD

020256

SSET 1EO

#BIT14,STATY

*XMIT BA ERROR
2
RS
‘RS IS INDEX REG
XCNTAB(RS) ,6(R1):1S CHAR COUNT OK?
63
‘BR IF YES

ADD

3%:
7%:

#B1T6,2(R1)

CLR
CMP
BEQ

BEQ

000002
000016

000004
000002
000006
000002
00C207

HLT
CMP
JMP
BIT
BNE
CMP
BEQ
CMP
BEQ

BI(B

000002
000020

020240

RTI
MOV
MoV

ADD

000002
000002
020052

PAGE 65

FREE RUNNING TESTS

[=X =]
[=le]

purPur
S
urSur-Sufinr Sy

[eloleolelolelalels)

2 OO0 NO N

NN = O 000

(T T
TV T TV T T T T
TV TV T W
[ ST ST, ST, ST ST NI S, ST NI N1 N1 .S1.N/N
PN = aed d e e e ) e e = O o

MACY11 30A(1052) 88 JUL-80
CZDMH
CZDMH.P11
08-JuL-80 08:

CmMpP
BNE
HLT
MOV
ADD
MOV
ADD

B1(B

RTI

#2 RS
06,RS
5%

#2,R2

:INC

#2,R2
2207,2(RD)

SINC INDEX
SCLEAR RDO

INDEX

6(R1),XDNTAB(R2):STORE XMIT DONE (C

(R1)

2(R1)
22,85

*RETURN
SCLEAR SELO
SCLEAR SEL2
*RETURN

“SET UP RS AS INDEX
RECBA(RS),4(R1) :COMPARE WITH LIST OF CORRECT BA'S
{1
'H R

‘BR IF OK?
*INCREMENT RS

2S0

:BR IF NO

220 R

SEND OF LIST?

*REC BA ERROR

ns
‘RS IS INDEX
XCNTAB(RS) ,6(R1):CHECK FOR CORRECT REC COUNT
:BR IF YES
8s
#2,RS
- INCREMENT RS
#16,RS
CEND OF LIST?
7%
5

4(R1) RONTAB(R&G)

‘BR IF NOT
sREC COUNT ERROR

:STORE REC BA
;INC_ INDEX

6(R1) RONTAB(R4) ;STORE REC DONE (C

:267.2<a1>

INC

INDEX

;CLEAR RDO
<RETURN

CIDMH

MACY11 30A(1052)

CIOMK.P1Y
3264
3265
3266
3267
1268
3269

020050
020052

3272

020110

3275

020116

%%;?

3273
3274

3276
3277
3278
3279
3280
3281
3282
3283
3284

3285
3286
3287

08-4uL-80

08-JuL-80 08:21

08:21

PAGE 66

FREC RUNNING TESTS

SEQ 0065

;:BUFFERS

020052

020110
020113

00000C

RESUME: 0
RECBA:

000017

000
003

006

XMITBA:

001
004

002
005

007

TBUFF :

.BLKW

;REC & XMIT BA LIST

.BYTE

0,1,2,3,4,5,6,7

012
015

.8YTE

10,11,12,13,14,15,16,17

022

.BYTE

20,21,22,23,24,25,26,27

032
035

.BYTE

30,31,52.33,34,35,3%36,3%7

020120
020123
020126
020130
020133
020136
020140
020143

010
013
016
020
023
026
030
033

01
014
017
021
024
0.7
oNn
034

020150
020153

040
043

041
044

042
045

.BYTE
.

40,41,42,63,44,45,46,47

051

052

.BYTE

50,51,52.53,54,55,56,57

020146

020156

036

037

046

047

053
056

054
057

025

;:TRANSMIT DATA

020160

0590

3291

020170

060

061

062

.BYTE

60,61,62.63,64,65,66,67

3294

020200

070

072

.BYTE

70,71,72,73%3,74,75,76,77

101

102

.BYTf

100,101,102,103,104,105,106,107

3288

3289
3290
3292
3293
3295

3297

3298
g%gg

020163
020166

020173
020176

063
066

020203
020206

073
076

074
077

103
106

104
107

020210

020213
020216

100

064
067

055
065
075

105

3301
g%g%

020220
020240

000010
000007

RCNTAB: .BLkW
XCNTAB: .BLkW

10
7

;RECEIVE COUNT TABLE
:TRANSMIT COUNT TABIE

3304
gggg

020256
020312

000016
000016

RONTAB: .BLKW
XDNTAB: .BLKW

16
16

;RECEIVE DONE TABLE (BA/CC(}
:XMIT DONE TABLE (BA/CC)

3307

020346

3308
3309
3310
3311
3312
3313

3314
§§}2
3317
31318
3319

020346
020452
020556
020662
020766
021072

021176
021302

000104
000104
000104
000104
000104
000104

000104
000000

RBUFF :

RBUFF1:
RBUFF2:
RBUFF3:
RBUSP&:
RBUFFS:
RBUFF6:

.BLKB
.BLKB
.BLKB
.BLKB
.BLKB
.BLKB

104
104
104
104
104
104

RBUFF7: .BLKB 104
RBUFFE: 0
BUFFER AREA

:RECEIVER BUFFERS

;END OF RECEIVER BUFFERS

CIDMH

MACY11 30A(1052)

C20MKH . P11
3320
3321

021304
021306
021310
021312

000000
000000
000000
000046

3327
3328
3329
3330
3331

021322
021330
021336
021344
021352

046107
047115
052123
055131
032464

021360
021362

0000446
021430

021430

022030

3332
3333
IITL

31335
3336

1337
31338
3339
3340
3341
3342
3343

3344

08:21

PAGE 67

FREE RUNNING TESTS

021314

041101

042103

045111
0S01'7
053125
030460
033466

043105

046113
OSH i1
054127
031462
034470

FLAG:
TFLAG:
RFLAG:
TCOUNT:

TBUF:

O
O
O
44

.ASCII/ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/

.EVEN
RCOUNT: 44
RBUF:
.=.+46

EVEN
BASE:

.=.+256.
; SUBROUTINES
[eesmcccccea
BASELD:

022030

3355

3356
3357
3358
3359
3360
3361
2362
3363
3364
3365
3366
3367
3368
3369
3370
gg;;
3373

7374
3375

:THIS SUBROUTINE LOADS THE OMC WITH A BASE ADDRESS

:AND PUTS DMC INTO FULL-DUPLEX MODE

ggzz

3347
3348
3349
3350
3351
3352
3353
3354

SEQ 0066

Je=seccccces

3322
3323
1326
3325

3326

08-JuL-80

08-JUL-80 08:21

022030
022034
022042
022044
022050
022054
022056
022060

022062

022
022072
022074
022076
022104
022110
022114
022116
022120
022124
022126
022130
022134
022140
022142
022144
022146

012711
032737
001402
012711
105227
001375
005711
100376

052711

152711
105711
100376
012761
005061
142711
105711
100776
152711
105711
100376
005061
142711
105711
100776
000207

040000
100000

001366

100000
000000

1%:

8IS

004000
000043

021430
000006
000040
000041
000006
000040

MOV
8IT
BEQ
MOV
INCB
BNE
TSt
BPL

2s:

000004
3%:
648 :
65%:

BIsB
1ST8
BPL
CLR
BI(B
TS18
BM]
BASELH:

81714, (RY)
#BIT1S,STATH
.+6
#B1715, (R1)
%0
A
(R1)
1%

#B81T11,(R1)

:MASTER CLEAR
: CRAM?
;:BR [F NO
:1F CRAM SE” RUN
;DELAY
:BR IF NOT DONE DELAY
;1S RUN SET?
;BR IF NO

;SET LU LOOP

;BASE REQUEST
263, (RV)
BISB
:RDY | SET?
(R
1578
8PL
2%
:BR IF NO
:LOAD BASE ADDRESS
#BASE ,4(R1)
MOV
(LR
6(R1)
:CLEAR (CC
BICB
#40, (R1)
,CLEAR RQI
:RDY 1 CLEAR?
(R1)
TSTB
BMI
3%
;:BR IF NO
;ASK FOR CNTL I
#41,(R1)
:WAIT FOR RDI
(RV)
:BR IF NOT SETY
643
:SET FULL DUPLEX
6(R1)
;CLEAR RQI
#40, (R1)
;RDI UP?
(R1)
:BR IF YES
65%
:RETURN
PC
RTS

;THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS
SAND PUTS DMC INTO HALF=DUPLEX MODE

CIOMH

MACY11 30A(1052)

CLL . PN
3376
3377
3378
3379
3380
3381

3382
3383
3384
3385
3386
3387
3388
3389

3390
3XQ1

3,92
3393
3394

3395

3396
3397
3398
3399
3«00
g:g;

08-JuL-B0

08-JuL-80 08:21

022146
022152
022160
022162
022166

022172
022174
022176
022200
022204
022210
022212
022214

022222
022226

022232
022234
022236

022242

022244
022246
022254
022260
022262
022264

012711
032737
001402
012711
105227

001375
005711
100376
052711
152711
105711
100376
012761
005061
142711

105711
100776
152711

105711

100376
012761
142711
105711
100776
000207

3403
3404

022266

3407

022266

012711

3409
3410
3411
3412
3413
3414

022300
022302
022306
022312
022314
022316

001402
012711
105227
001375
005711
100376

PAGE 68

SUBROUTINES

040000
100000

MoV
BIT
BEQ
Mov
INCB

100000
000000
1%:
004000
000043

28:

021430
000006
000040

38:

000041
002000
000040

649%:
0Jv006
65%:

B1SB

IS8

BPL
MOV
BI(8
1518
BM]

RESUM:

gzgg
3408

3415

3416
3417
36418
3419

3420

3621
3422
3423
3426
3425
3426
3427
3428
3429
3430
3431

SEQ 0067
;MASTER CLEAR
; CRAM?
:BR IF NO
:IF CRAM SET RUN
:DELAY
BNE
.=
;BR IF NOT DONE DELAY
TST
(RY)
;1S RUN SETI?
BPL
1%
;BR IF NO
BIS
#BIT11,(RT)
;SET LU L70P
B1S8
243, (RY)
:ASE REQUEST
TS18
(R1)
;RDY | SET?
BPL
23
:BR If NO
MoV
#BASE ,4(R1)
:LOAD BASE ADDRESS
(LR
6(R1)
;CLEAR CC
BI(B
#60,(RY)
;CLEAR RQI
IR
(R1)
;ROY 1 CLEAR?
BMI
3%
;BR IF NO
#41,(RY)
;ASK FOR CNTL [

(R1)

#BIT14,(RT)
#BIT15,STATY
.0
#BIT1S,(RY)
#0

643
#BIT10,6(R1)
#.0, (R1)
(R1)
65%
RTS
PC

;WAIT FOR RDI

;BR IF NOT SETY
sSET HALF DUPLEX
;CLEAR RQ]
;RDI UP?
;BR IF YES
;RETURN

;:THIS SUBROUTINE LOADS THE DMC WITH A BASE ADDRESS

:WITH RESUME BIT SET AND PUTS DMC INTO FULL-DUPLEX MODE
022272

022320
0223264
022330
022332
022334

022342

022350
022354
022356
022360
022364
022366
022370
022374
022400
022402
022404

032737

052711

152711
105711
100376
012761

012761

142711
105711
100776
152711
105711
100376
005061
142711
105711
100776
000207

040000

100000

001366

18:

004000

000040
000041
000006
000040

;MASTER CLEAR

BEQ
Mov
INCB
BNE
TST
BPL

. *6
#BIT15,(RY)
20
.=4
(R1)
1%

:BR IF NO
;IF CRAM SET RUN
;DELAY
;BR IF NOT DONE DELAY
;1S RUN SET?
;BR IF NO

BIS

000043

021430

#B1T14,(RY)

BIT

100000
000000

010000

MoV

2%:
000004

8158
1ST8
BPL
MOV

MOV

000006
3%:
648

65%:

8158
1ST8
BPL
(LR
8l(8B
1ST8
BMI

#B:1T15,STATY

#B1T711,(RY)

#43,(R1)
(R1)
2%
#BASE 4 (R1)

#B81112,6(RY)

; CRAM?

;SET LU LOOP

;BASE REQUEST
;RDY | SET?
:BR IF NO
:LOAD BASE ADDRESS

;SET RESUME 81T

81C8
#40, (RT)
;CLEAR RQ]
1ST8
(R1)
;ROY | CLEAR?
BM]
3%
:BR_IF NO
#41,(RY)
JASK FOR CNTL |
(R1)
WA,T FOR RDI
;BR [F NOT SETY
64%
6(R1)
:SET FULL DUPLEX
;CLEAR RG]
#40, (RY)
(R1)
;RDI UP?
65%
;BR IF YES
RTS
PC
;RETURN

MACYT1 30A(1052)
08-4uL-80
CZ0MH
C20MH. P11
08-JuL-80 08:21

08:21

PAGE 69

ON=
=20 ONN— =
NN =D e e
A OO b

AN NNNAAN
NN

QO eded e OO =
>
OCOOH—-»—=00W
O OWVIFNONINO
VN

PN
= = 2 O

RFRELD:

000044

1%:

000004
000006
000040

3455
3456

i ¥

3467
3468
3469
3470
34671
3472

XFRELD:

000040

1%:

000004
000006
000040

#44,(RY)

JREC BA/CC REQUEST

BPL

JBR IF NO

BICB
1518
BMI]

#40,(R1)
(R1)
2%

1578

2%:

(R1)

(RS)+,4(RY)
(RS)+,6(RY)

JRDY

SET?

;LOAD REC BA
JLOAD REC CC

;CLEAR RQI
;IS RDY | CLEAR
sBR If NO
;RETURN

sTHIS SUBROUTINE LOADS THE DMC WITH A TRANSMIT BA/((

B1SB

#40,(RY1)

JXMIT BA/CC REQUEST

BPL
MOV
MOV

19
(RS)+,4(RY)
(RS)+,6(R1)

:BR IF NO
;LOAD XMIT BA
;LOAD XMIT (o

1ST18

BI(B
1518
BM]
RTS

(R1)

#40, (R1)
(R1)
2%
RS

JRDY [

SET?

;CLEAR RQ]
;1S RDY | CLEAR
:BR [F NO
:RETURN

SHUTDOWN:

:THIS SUBROUTINE FORCES THE DMC TO UPDATE THE BASE TABLE

022472
022500
022504
022506
022510
022514
022520
022522

000207
000046

022524
022547

040522
051124
042522
062522
041505

022575
022617
022644

BISB

RTS

022472

3463
3464
3465

;THIS SUBROUTINE LOADS THE DMC WITH A RECEIVE BA/((

MOV
MOV

022440
022440
022444
022446
022450
022456
022460
022464
022466
022470

SFQ 0068

SUBROUTINES

000002

1%:

000040
000002

2%:

BIC
BISB
1S718
BPL
gI(8B
1578
BPL

#207,2(RD
#46,(R1)
(R1)
1%
#40, (RY)
2(R1)
2%

JASCI2
JASCIZ
LASCIZ
LASCIZ
LASCIZ

<377>/TRANSMIT BA ERROR/
<377>/TRANSMIT COUNT ERROR/
<377>/RECEIVE BA ERROR/
<377>/RECEIVE COUNT ERROR/
<377>/RECEIVE DATA ERROR/

RTS

051516
047101
042503
042503
044505

EMC:
EM3:
EM4 :
EMS:
EM11:

;CLEAR ANY QUTPUT DONES
;ASK FOR ILLEGAL REQUEST
JRDI SET?
;BR [F NO
;CLEAR RQ;
;OUTPJUT DONE SET?
;BR [F NOT
JRETURN

MACY11 30A(1052)
08-JuL-80
(2 DMK
(2 DMH.P11
08-JuL-80 08:21
022670

043377

042522

08:21

020105

PAGE 70

SUBROUTINES

Em12:

SEQ 0069
ASCIZ

<377>/FREE RUNNING ERROR/

CIOMH

MACY11

3GA(1052)

022714
022737

061777
377

047117
047111

051126
042524

EM13:
EM14:

_ASCIZ
ASCIZ

<377>/CONTROL OUT ERROR/
<377>/INTERNAL DDCMP ERROR COUNTS NON ZERO/

023005
023037
023060
023101
023127

377
377
020377
377
377

054105
054105
042523
040502
046504

042520
042520
032114
042523
030503

DH1:
DH2:
DH3:
DH&:
D?Sé

JASCI2
LASCIZ
JASCIT
LASCIZ
LASCIZ

<377>/EXPECTED FOUND ADDRESS/
<377>/EXPECTED FOUND/
<377>/ SEL&
SEL6/
<377>/BASE+3 THRU BASE+12 /
<377>/DMC11 [S HUNG/

023146
023150
023152
023154
023156
023160
023162
023164
023166
023170
023172
023174
023176
023200
023202
023204
023206
023210
023212
023214
023216
023220
023222

000003
006
001264
006
001270
004
001260
000003
006
001272
006
001270
004
001264
000003
006
001272
006
001270
004
001252
000002
003

DT1:

3
BYTE
SAVR?
.BYTE
SAVR4
BYTE
SAVRO
3
BYTE
SAVRS
BYTE
SAVR&
BYTE
SAVR2
3
.BYTE
SAVRS
.BYTE
SAVR4
BYTE
TEMPY
2
.BYTe

CI0MK . P11

08-yuL-80

08-JuL-80 08:21

004

08:21

PAGE 71

SUBROUTINES

.EVEN

004
002
004

D12:

004

002
004

DT3:

004
002

007

DT4:

SEQ 0070

6,4
6,4
4,2
6,4
6,6

4,2
6,4

6,¢
4,2

3,7

MACY11 30A(1052)
08-JuL-80
CIDMH
CZ0MH. P11
08-JuL-80 08:21
001272
003
001270
000002
006
001272
006
001270
000003
003
001272
003

08:21

PAGE 72

002
004

D15:

DT6:

004

D17:

004

DT10:

004

023312
023314
023316
023320
023322
023324
023326
023330
023332
023334
023336
023340
023342
023344
023346
023350
023352
023354
023356
023360
023362
023364
023366
023370
023372
023374
023376
023400
023402

DT11:

002

pT12:

4,2

3,4

3
BYTE
SAVRS
BYTE

3,4

BYTE

4.2

.BYTE
SAVRS
.BYTE

3,7

%AVRZ

3,10

3,4

.BYTE
;EHPS

6,2

BYTE
TEMP3
.BYTE

6.4

.BYTE

3,2

.BYTE

3,2

.BYTE

3,2

.BYTE
BASE+6

3,2

TEMP4
10

TEMP4

6.2

3,2

.BYTE
3,2
BASE+10
.BYTE
3,2

002
002

TEMPS

002

001270

BYTE

FLAG

.BYTE

002

3,10

TEMP3

002

6,2

BYTE
SAVRS
.BYTE

BASE +4

002

%AVR&

TEMP?

002

004

6,6

SAVRG

002
004

.BYTE

SAVR4

002
007

3,2

SAVRL

SAVR&

002
010

SAVRS
BYTE

002
010

SEQ 0071

SUBROUTINES

DT13:

.BYTE

3,2

.BYTE

6.4

gASE~12

SAVRS
.BYTE
SAVR4

6,2

CI0MH

MACY1Y 30A(1052)

CIDMKH . P11

08-JuL-80

1
08-JuL-80 08:

023404
023404
023406
023410
023412
023414
023416
023420
023422
023424
023426
023430
023432
023434
023436
023440
023442
023444
023446
023450
023452
023454
023456
023460
023462
023464
023466
023470
C23472
023474
023476
023500
023502
023504
023506
023510
023512
023514
023516
023520
023522
023524
023526
023530
023532
023534
023536
023540
023542
023544

000000

08:21

PAGE 73

.ERRTAB:

EM12
DHS
0
EM2
DH2
DT13
EM3
0
0
EM4
0
0
EMS
0
0
EMé
DH2
DTS
EMS
DH?
DT4

DH1
DT6

0
DH1
DT?
0
DHZ
DT4

022714
023060
023316
022737
023101
023330

000001

SEQ 0072

SUBROUTINES

EM11
DH1
DT10
EM12
0
0
EM12
DH2
DTS

EM13
DH3
DT
EM14
DHé

D112
CORMAX:
.END

0
0
JHLY
sHLT

JHLT

JHLY

JHLT

JHLY

JHLT

JHLY

JHLT

CIDMH

MACY11 30A(1052)

08-JuL-80

ADRCNT=
AUDONE
AUSTRT
AUTO.S

004373
003026
002446
010512

CELAY =
DEVADR
DEVTAB
DH1

104413
004370
003010
023005

DMS201
DMS202
DMS203
DMS204

001514
001524
001534
001544

EM4
EMS
ENDEX
ENDEX1

022575
022617
016740
017034

MASTEK
MCRLF
MCSRX
MDATA

006142
005672
006072
007544

BRX
003732
CHRCNT 004712
CKSWR
007606
(KSWR1 007666
CKSWR2 007700
CKSWR3 007704
CKSWR4 007710
CKSWRS 010014
001242
CLKX
CLRTAB 016444
007277
(NERR
CNT.MA 001702
CNVRT = 104411
CONERR 007223
007114
CONN
CONTAB 002776
CONVRT= 104410
CORMAX 023544
006606
CRAM
001320
CREAM

DMCR17
DMCSR
DMCSRH
DMCTL
DMNUM
DMPO4
DMPO6
DMRLVL
DMRVEC
DMS100
OMS101
DMS102
DMS103
DMS104

001670
001404
001406
001410
001310
001412
001414
001376
001374
001502
001512
001522
001532
001542

DMS314
DMS315
DMS316
DMS317
OMTLVL
ODMTVEC
DM.END
DM.MAP
DONE
b1
0710
pTN
DT12
DT13

001646
001656
001666
001676
001402
001400
001700
001500
003734
023146
022300
023316
023330
023372

EXIT = 000205
EXITER 005252
FLAG
021304
FLOAT
002536
002566
FY
005222
HALTS
HILIM
0046366
ICOUNT 001222
017122
IISR
007502
INBUF
INCHAR 010020
INIFLG 001324
INSTER= 104404
INSTR = 104403

NUM
OISR
1] 3
ONE
PACTO0
PACTO1
PACTO2
PACTO3
PACTO4
PACTOS
PACTO6
PACTO7
PACT10
PACT11
PACT12
PACT13
PACT14
PACT1S
PACT16
PACT17

006450
017412
002646
001302
001702
001706
001712
001716
001722
001726
001732
001736
001742
001746

CZ0MH. P11

08-JuL-80 08:21

BASE
021430
BASELD 022030
BASELH 022146
BINWRD 004714
81170 = 000001
8111 = 000002
BIT1C = 002000
81711 = 004000
81112 = 010000
81713 = 020000
BIT14 = 040000
B8IT15 = 100000
8112 = 000004
8113 = 000010
8174 = 000020
8175 = 000040
8176 = 000100
B1T7 = 000200
BIT8 = 000400
8119 = 001000
8M
007054
012252
BRLVL
BRW
003730

006510
CSR
(SRMAP 010514
010060
CYCLE
DATABP 005216
DATACL= 104415
DATAHD 005204

DH?
DH3
DHé
DHS
DISPLA
DISPRE
DMACTV
DMCM
DMCROO
DMCROT
DMCROZ2
DMCRO3
DMCRO4
DMCROS
DMCROS6
DMCRO7
OMCR10
DMCR11
DMCR12
DMCR13
DMCR14
DMCR1S
DMCR16

08:21

PAGE 75

SYMBOL TABLE

023037
023060
023101
023127
001200
000174
001306
007320
001500
001510
001520
001530
001540
001550
001560
001570
001600
001610
001620
001630
001640
001650
001660

DMS105 001552
DMS106 001562
DMS107 001572
DMS110 001602
DMS111 001012
DMS112 001622
DMS113 001632
DMS114 001642
DMS115 001652
DMS116 061662
DMS117 001672
DMS200 001504

SEQ 0073

DMS205
DMS206
DMS207
OMS210
DMS211
DMS212
OMS213
DMS214
DMS215
DMS216
DMS217
OMS300
OMS301
DMS302
OMS303
DMS304
DMS305
DMS306
DMS307
DMS310
DMS311
DMS312
DMS313

D12
D13
DT4&
DTS5
DTé
D17
M1
EM12
EM13
EM14
EM2
EM3

001554
001564
001574
001604
001614
001624
001634
001644
001654
001664
001674
001506
001516
001526
001536
001546
001556
001566
001576
001606
001616
001626
001636

023164
023202
023220
023232
023244
023262
022644
022670
022714
0227%7
022524
022547

ENDEX2
ERCTO0
ERCTO1
ERCT02
ERCTO3
ERCTO4
ERCTOS
ERCTO6
ERCTO7
ERCTI0
ERCT1T
ERCT12
ERCT13
ERCT14
ERCTIS
ERCT16
ERCT17
ERR
ERRCNT
ERRFLG
ERRMSG
ERRPC
ERTABO

INSTR2
INTTY
KMCM
LIMITS
LINE
LOBITS
LOCK
LOKFLG
LOLIM
LPCNT
LSTERR
MASKX

017036
001704
001710
001714
001720
001726
001730
001734
001740
001744
001750
001754
001760
001764
001770
001774
002000
002700
001232
001325
005172
002770
005322

004166
012266
007330
004314
007016
004372
001220
001326
004364
001224
001234
001244

MEMLIM 001304
MEPASS 005733
MERRPC 006217
MERRX
006117
MERRZ
005760
MERR3
006005
MILK
001322
MLOCK
006043
MNEW
006144
MODU
006704
MPASSX 006106
MPFAIL 005675
MQM
005666
MR
005755
MRESET= 004000
MSTCLR= 104412
MTITLE 001000
MTSTN
006130
MISTPC 006031
MVECX
006100
NEXT
001216
007154
NOACT
NODEV
002674

001752
001756
001762
001766
001772
001776
PARAM = 104405
PARAMY 004234
PARBIT= 040000
PARERR 004310
PASCNT 001230
PERFOR= 004537

CIDMH
MACY11 30A(1052)
08-4uL-80
CZOMH. P
08-JuL-80 08:21

08:21
PAGE 76
SYMBOL TABLE

SEQ 0074

PFTAB
POPRO =
POP1SP=
POP2SP=

005430
012600
005726
022626

SAVACT
SAVNUM
SAVPC
SAVRO

001312
001314
001276
001260

sw02
sw03
Sw04
sw05

=
=
=
=

000004
000010
000020
000040

TST12
TSTZ
TST3
TST4

RBUFF2
RBUFF3
RBUFF&
RBUFFS
RBUFF6
RBUFF7
RCNTAB
RCOUNT
RONTAB
RECBA
RESREG
RESTAR
RESTRT
RESUM
RESUME
RESOS =
RETURN
RFLAG
RFRELD
ROMCLK=
RUN

020452
020556
020662
020766
021072
021176
020220
021360
020256
020052
005220
005350
003534
022266
020050
104407
001214
021310
022406
104414
001316

SCOPE =
SCOP1 =
SHUTDO
SK1P
SOFTSW
SPACNT=
SPEED
STACK =
STAT
STAT1
STATZ2
STAT3
STRTSW
SV05
SWFLG
SWMES
SWMES1
SWR
SWREG
sw00 =
SWw01
=

104400
10440
022472
002632
010052
004713
007340
001200
001240
001366
001370
001372
001236
004402
010016
007205
007215
001202
000176
000001
000002

TBUF
TBUFF
TCOUNT
TEMP
TEMP1
TEMP2
TEMPS
TEMPL
TEMPS
TFLAG
TIMER =
TKCSR
TKDBR
TLAST =
TPCSR TPDBR
TRPOK
TSTNO
ST
TST10
TST11

021314
020110
021312
001416
001246
001250
001252
001254
001256
021306
104416
001204
001206
016204
001210
001212
004730
001226
012320
015466
015622

WHICH
WRDCNT
WRKO.F
XBX
XCNTAB
XCSR
XDNTAB
XERR
XFRELD
XHEAD
XLOC
XMITBA
XPASS
XSTATQ
XTSTN
XVEC
X0
=
X1
=
X2
=
X3
=
X4
=

PRIO
PS
=
PUSHRO=
PUSH1S=
PUSH2S=
Qv.fFLG
RBUF
RBUFF
RBUFFE
RBUFF1

ABS.

006547
177776
010046
005746
024646
001327
021362
020346
021302
020346

023544

ERRORS DETECTED:

SAVR1
001262
SAVRZ
001264
SAVR3
001266
SAVR4
001270
SAVRS
001272
SAVSP
001274
SAVOS = 104406
SCAN
016574
SCANT
017072
SCAN2
016606

000

CZDMH, CIDMH/NL : TOC/SOL=CZDMH
. MAC,CZDMH. P11
RUN-TIME: 7 11 .3 SECONDS
RUN-TIME RATIO: 28/19=1.4
CORE USED:
25K
(49 PAGES)

sSwoé
sw07?
Sw08
sw09
SWw10
SW1l
sWwi2
Sw13
SWwié
sWwi15

=
=
=
=
=
=
=
=
=
=

000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

TSTS
1ST6
1817
TTST
TWOSYN=
TYPDAT
TYPE
=
TYPMSG
VEC
VECMAP

016204
013404
013744
014226

014500
014762
015224
003612
010000
005206
104402
005106
006526
012010

012002
004710
005174
005000
020240
003546
020312
003570
022440
006224
003022
020052
003562
007454
005330
003554
000110
000101
000102
000103
000104

X5
1
X7
lERO

= 000105
= 000106
= 000107
001300

$CRAP =
SENDAD
SN
=
$S
=
$Y
=
.
=
.BEGIN
.CNVRT
.CONVR
.DATAC

.DELAY
.EOP
LERRTA
JHLT
LINSTE
LINSTR
LINSTT
.M56
MSTCL
.PARAM
PFAIL
.RESOS
LROMCL
.SAVO0S
.SCOPE
.SCOP1
.START
.TIMER
.TRPSR
.TRPTA
LTYPE

177777
003522
000012
000014
000017
023544
003152
004472
004466
005552

005436
003364
023404
004750
004154
004050
004070
004072
005466
006174
005336
004434
005504
004374
003576
003736
002002
005616
004716
001330
003766