Digital PDFs

AH-8553D-MC

November 1980

123 pages

Original

62MB

view download

OCR Version

85MB

view download

Document:	CZDMED0 DMC11 DDCMP MD LN UNIT TST NOV 1980 bw
Order Number:	AH-8553D-MC
Revision:	000
Pages:	123
Original Filename:	CZDMED0__DMC11__DDCMP_MD_LN_UNIT_TST__AH-8553D-MC__NOV_1980_gray.pdf

OCR Text

D
DE
EE
HT
t
t
t
S
C
.N
30
SS
.B
AH
.
T
LN OUNLT TS FICHE 1 OF 1 waoe v usa gL el
WD MED
DMLYl - DDCMP CZD

PAGE

SEQ 0001

.REM

NN
OO0
2O 0O NO VNS W

PORUPURININY
=
b acd
e e d e o

IDENTIFICATION

VB WA

PRODUCT

CODE:

AC-8552D=-MC

PRODUCT NAME:

CZDMEDO DDCMP MD LN UNIT

DATE:

AUGUST 1980

MAINTAINER:

DIAGNOSTICS=MERRIMACK

TST

26
THE

INFORMATION IN THIS DOCUMENT

IS SUBJECT

TO CHANGE

WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO :ES?ONSIB[LITY
FOR ANY
ERRORS
THAT
MAY APPEAR IN THIS
DOCUMENT.

THE

SOF TWARE DESCRIBED

LICENSE

TERMS OF

IN THIS DOCUMENT

NOT

USE

UNDER

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES
THE

IS FURNISHED

AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

RELIABILITY OF

SUPPLIED BY DIGITAL.

RESPONSIBILITY

[TS SOFTWARE ON EQUIPMENT THAT

FOR

[Tl

13:53

—

(2 D ME
AACY11 30A(1052)
07-JuL-80
2 DME .P11
01=-JUL-80 15:29

MACY1! 30A(1052)
07-JuL-80
CZDME .P11
01-JuUL=-B0 15:29
(ZDMe

13:53

PAGE 2

SEQ 0002

ABSTRA(T

THE FUNCTION OF

THE DMC11

DIAGNOSTICS

IS TO

OPTION OPERATES ACCORDING TO SPECIFICATIONS.
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE
OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT.
PARAMETERS MUST BE SET UP TO

ALERT

THE

VERIFY

THAT

THE

M8202).

THE DIAGNOSTICS
ALL
OPERATIONS

DIAGNOSTICS

DMC11
CONFIGURATION.
THESE PARAMETERS ARE CONTAINED IN THE
STATUS TABLE AND ARE GENERATED
IN TWO WAYS:
1)
MANUAL
INPUT = THE OPERATOR ANSWERS QUESTIONS.
2) AUTOSIZING = THE
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

CIDME TESTS

PERFORMS

THE

DMC-11

LINE

UNIT

(M8201

WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS.

CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION
IN
DDCMP MODE.
THE MODEM SIGNALS ARE ALSO CHECKED.
CZDME
REQUIRES A DMC MICRO-PROCESSOR (M8200 OR MB8204) TO RUN.
FOR
BEST DIAGNOSIS A TURN-AROUND CONNECTOR SHOULD BE INSTALLED,
gO?E;Eg)THE DIAGNOSTIC WILL RUN WITHOUT
IT
(SOME
TESTS
ARE
K

CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE

RUN

SEQUENCE

INSURE THAT

WILL BE DETECTED AT AN EARLY STAGE.

FIVE

CZOMC
CZDME
DZDMF
DZDMG
DZDMH

THE

NOTE:

[F AN ERROR SHOULD OCCUR IT

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

—

NOTE:

NS NP

DIAGNOSTICS ARE:

[REV]
[REV]
[REV]
[REV]
[REV]

BASIC W/R AND MICRO-PROCESSOR TESTS
DDCMP MODE LINE UNIT TESTS
BITSTUFF LINE UNIT TESTS
JUMP AND CROM TESTS
FREE-RUNNING TESTS (HEAT TEST TAPE)

THE NAMES OF

THESE DIAGNOSTICS MAY VAYIE AS THEY ARE UPDATED.

REGUIREMENTS

EQUIPMENT

ANY PDP11 FAMILY CPU (EXCEPT AN _SI=11) WITH MINIMUM 8K MEMORY

ASR 33 (OR EQUILIVALENT)

DMC11-AR WITH DMC11-DA OR DM 11-FA
DMC11=-AL WITH DMC11-MA OR DMC11-MD

(ZDME
MACY11 30A(1052)
07-JuL-80
CZDME .P11
01-JuL-80 15:29
94
95

13:53

PAGE 3

2.2

SEQ 0003

STORAGE

PROGRAM WILL USE

100
101
102

THE "'STATUS TABLE'' INFORMATION WHICH IS GENERATED AT START
OF
DIAGNOSTICS
BY
MANUAL
INPUT
(QUESTIONS)
OR
AUTOMATICALLY
(AUTO=-SIZING).
THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE

}82

B8k

BOOTSTRAP

LOADER

ALTERED BY

THE NPERATOR.

}82

LOADING PROCEDURE

107

3.1

ME THOD

MEMORY

EXCEPT

WHERE

LOCATIONS 1500 THRU 1640;

ABL

AND

CONTAIN

8k
12K
16K

20K
24K
28k

SIZE

VN
— N~~~

il
D el el il

D el
D i
il
il
D il
D
D
D
D
D
il
i
D
D
s
el
—

NONE WN =00V

NN N NN WIWWN NN RO FONONININ) — = b

OWVEBWN =0V

MEMORY

—— NN
—

ABSOLUTE LOADER STARTING ADDRESS *500

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
;gglATHE
MONITOR
WHICH
HAS
BEEN PROVIDED ON THAT SPECIFIC

=00

2 2 2O

RESIDE.

b b

108

ALL

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.

3.1.2

DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

(ALSO PLACE

'HALT'

SW UP)

DEPRESS 'START KEY' ON CONSOLE AND RELEASE

BE LOADING INTO CPU)

(PROGRAM SHOULD NOW

52)
07-JuL-80
MACY11 30A(1052
01-JuL-80 15:29

CIDME

CZDME.P11

13:53

137
138

128

PAGE 4

A.
B.

163

144

145

146

147
148

}gg

i
153

SEQ 0004

STARTING PROCEDURE

141
142

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

SET SWR TO ZERO FOR "AUTO SIZING' OR SWR BIT0=1 FOR MANUAL

INPUT (QUESTIONS) CR SWR BIT7=1 TO USE EXISTING PARAMETERS
SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN DMC11

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:

ot T

PRI

et S

}gg

156

157

MAP OF DMC11

STATUS

(SR

STAT2

STAT3

177777

000000

STAT1

001500 160010 145310

}gg

001510 160020 145320

177777

000000

160
161
162

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

}gg

HELP.

168
169
};?

1F THE DIAGNOSTIC WAS STARTED WITH SW00=1
INDICATING MANUAL
PARAMETER
INPUT
THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS:

};%

HOW MANY DMC11'S TO BE TESTED?1

174

163
164
165

THE
TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11'S.
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO SIZING
IS DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

175
176
177
178

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

180
}g}

M8202 TYPE '2''N
IS THE LOOP BACK CONNECTOR ON?Y

179

WHICH LINE UNIT?

(Y OR N)N

IF NONE TYPE 'N'',

M8201

TyPE

‘1",

IFf

}gs

(THE NEXT QUESTION WILL BE ASKED IF M8201 AND LOOP BACK CONNECTOR)

185

WHICH MODEM TYPE,

187
}gg

SWITCH PAC#1 (DDCMP LINEX)?377
SWITCH PAC#2 (BMB73 BOOT ADD)?377

190

FOLLOWING THE QUFSTIONS THE

192

ANSWERS TO THE QUESTIONS.

186

191

TYPE 'D'' FOR DMC11-DA (RS232C), OR

TYPE "F** FOR DMCI1-FA (v.35) 2 D

DESCRIBED

ABOVE,

THE

STATUS

INFORMATION
IF

MAP

THE

PRINTED

OUT

MAP REFLECTS THE

THE DIAGNOSTIC WAS STARTED

WITH

CIDME

MACY11 30A(1052)
07-JuL-80
01=-JuL-80 15:29

(ZDME.P11

13:53

194
195
196

USED

2#23?8%;1(

197

NN & NN —
= OOV

THE

STATUS

4. 1

MUST

MUST BE VERIFIED TO BE CORRECT

INFORMATION

(MATCH THE HWARDWARE).

198
199

roroRorONONON
NN N
PON)
= e ad od
e
d e

SEQ 0005

SW00=0
AND
SW07=0
(AUTO=SIZING) THEN NO QUESTIONS ARE ASKED
AND ONLY THE STATUS=MAP IS PRINTED
OUT.
IF
AUTO-SIZING
IS

193

200
20
202
203

PAGE 5

IT DOES NOT MATCH THE

RESTARTED

HARDWARE

THE

WITH SW00=1 AND THE QUESTIONS

CONTROL SWITCH SETTINGS

SW 15 SET:
SW 14 SET:

SWw
SW
SW
SW
SW
SWw
SW
SW

13
12
11
10
09
08
07
06

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

SW
SW
SW
SW
SWw

0S5
04
03
02
01

SET:
SET:
SET:
SET:
SET:

SWw 00 SET:

HALT ON ERROR

LOOP ON CURRENT TEST

INHWIBIT ERROR PRINT OUT
INHIBIT TYPE QUT/ABELL ON ERROR.
(QUICK PASS)
INWIBIT ITERATIONS.
ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
HALT IN
ROMCLK
ROUT INE
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 QUESTIONS.
AND

SW00=0

AUTO=SIZING)

NEW

STATUS

TABLE

(IF sw07=0
BUILT BY

SWITCH 06 AND 08-15 ARE DYNAMIC AND (AN BE CHANGED AS NEEDED
WHILE THE DIAGNOSTIC IS RUNNING.
SWITCHES 00-03 AND SWITCH 07
A?E STA;{(. AND ARE USED ONLY ON STARTING
DIAGNOSTIC.

RESTARTING

THE

MACY1Y 30A(1052)
OS-JUL-BO
01-JuUL-80 15:2

CZDOME

A LS LN TN L L

A A A

LN LN NN N N N N W WO N A

OO NOVNES WOV~

E
. P11
(ZDM

13:53

PAGE 6

‘. 1 .2

SEQ 0006

SWITCH REGISTER OPTIONS (AT START UP)
Sw 01

RESTART PROGRAM AT

SUGGESTED

SELECTED

TEST.

STRONGLY

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
?22'CARRIGE 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
WwILL
ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY
IT
LET
IS HIT AGAIN.
IF
SW02=0 WHEN SWO1
IS USED.
THE
PROGRAM WILL
BEGIN AT
NORMAL OPERATIONS.

Sw 03

THE SELECTED TEST AND CONTINUE

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

EQUAL TO DMC11'S ACTIVE.
THIS MEANS IF THE SYSTEM HAS
FOUR DMC11S;
BITS
00,01,02,03 wILL BE SET IN LOC
'DMACTV'
FROM THE
SWITCH REGISTER.
USING
THIS
SWITCH(SWO0)
ALTERS THAT LOCATION;THEREFORE IF FOUR
DMC11S ARE IN THE
SYSTEM «««D0Q NOTw#+ SET SWITCHS
GREATER THAN SW 03 IN THE UP POSITION.
THIS WOULD BE
A FATAL ERROR.
DO NOT SELECT MORE ACTIVE DMC11S
THAN
THERE

ME THOD :

INFORMATION ON IN THE STATUS TABLE.

LOAD ADDRESS 200

(¢

PROGRAM WILL TYPE MESSAGE

B:
D:

E:
fs

START WITH SW 00=1

SET A SWITCH FOR EACH DMC
DESIRED ACTIVE.
IF YOU HAVE 4 DMC'S BUT ONLY WANT TO
EXAMPLE:
RUN THE FIRST AND THE LAST SET SWR BITS O AND
3 =1,
PRESS CONTINUE
NUMBER (IF
VALID)
WILL BE
IN DATA LIGHTS
(EXCLUDING 11/05)
SET WITH ANY OTHER

PRESS CONTINUE.

SWITCH

SETTINGS

DESIRED.

(ZDME

MACY11 30A(1052)

CIDME.P11
270
27
ggg

07-JUL-B0

01-JUL-B0 15:29

13:53

PAGE 7

4.1.3

3;2

276

ERROR SWITCHES

SW 12

DELETE PRINT OUT/BELL ON ERROR.

]

SW 08

GOTO BEGINNING OF THE TEST(ON ERROR).

2.
3.

gg?

SW 13
SW 15

DELETE ERROR PRINTOUT.
HALT ON THE ERROR.

SWw 10

%g§

SCOPE SWITCHES

284
285
286
287
288
289
-

SW06

SW09

GOTO NEXT TEST(ON ERROR).

295

HALT
IN
ROMCLK
ROUTINE
BEFORE
CLOCKING
MICRO-PROCESSOR
INSTRUCTION.
THIS ALLOWS THE
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN
THE STATIC STATE BEFORE
IT
1S CLOCKED.
HIT
CONTINUE TO RESUME RUNNING.
(1F ENABLED BY 'SCOP1') ON AN ERROR;
IF AN '+' IS
PRINTED
IN FRONT OF THE TEST NO.
(EX.
*TEST NO.
10 ) SW09 1S INCORPORATED IN THAT TEST AND
THEREFORE SW09 IS USUALLY THE BEST SWITCH FOR THE
SCOPE LOOP (SW14=0, SW10=0, SW09=1, SW08=0).
IFf
SW09
IS NOT ENABELED:
AND THERE IS A HARD ERROR
(CONSTANT): SWO8 IS BEST.
(SW14=1,0, SW10=0,

297

WILL LOOP ON TEST

291
292
293
294

296

sv09=0, SWOB=1).

298

299
gg?
ggg

3.
4.
4.2

304

SWil
SWl4

FOR INTERMITTEMT ERRORS;
REGUARDLESS

p1Ve

OTHER

STARTING

INHIBIiT INTERATIONS.
LOOP ON CURRENT TEST.

THERE

NOT

ARE

(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES 1T
1S
UNDER
ACT11
OR XXDP CONTROL AND WILL ACT
ACCORDINGLY AFTER ALL AVAILABLE DMC11'S ARE TESTED THE
PROGRAM WILL RETURN TO ‘XXDP' OR 'ACT=11'.

OPERATING PROCEDURE

314

WHEN PROGRAM IS INITIALLY STARTED

%}?

THE DIAGNOSTIC

315

ERROR

STARTING ADDRESS

NOTE:

SwWi4=i

(SW14=1. SW10=0, SW09=0, SW08=1,0)

ADDRESSES FOR THE DMC11 DIAGNOSTICS.

307
308
309
g}?
g}g

ERROR.

STARTING ADDRESS IS AT 000200

305

DYNAMIC SWITCHES

277
278

279

SEQ 0007

SECTION

4.0

WILL

MESSAGES

DESCRIBED

BE PRINTED, AND PROGRAM WILL BEGIN RUNNING

CZDME

MACY11 30A(1052)

CZDME.P1N

07-JuL-80

01-JuL-80 15:29

318
319

%%?

13:53

5.2

PAGE 8

SEQ 0008

PROGRAM AND/OR OPERATOR ACTION

§%§

THE

324
325
326
%gg

1.
g
3,
4.

329
330
331
332
333
334

THE TEST NUMBER AND PC WILL BE
TYPED OUT AND POSSIBILY AN
ERROR 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

ggz

g%g

TYPICAL APPROACH SHOULD BE

HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS.
CLEAR SW 15.
SET SW 14:
(LOOP ON THIS TEST)
SET SW 13:
(INWIBIT ERROR PRINT OUT)

THE TEST CAN BE DETERMINED.

ERRORS

339

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND

341

12=0).

340

PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW

342
gzg

SUPPLIED

IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF

343

344

IN MOST CASES ADDITIONAL INFORMATION WILL BE

THE

6.2

347
348

ERROR.

ERROR RECOVERY

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

34,9

AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR

350
351
352
353

REGAIN

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

AT THE TIME OF THE ERROR.

ggg
ggg

RESTRICTIONS

ggg

7.1

STARTING RESTRICTIONS

360
361

SEE SECTION 4.
(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS

364

PROBLEMS.

362
363

STARTED.
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
THE INFORMATION PRINTED ON THE TTY T0 COMPLETLY ISOLATE

(ZDME

MACY11 30A(1052)

CZDME.P11
366
367

ggg

07-JuL-80

01-JuL-80 15:29

13:53

7.2

370
37

SEQ 0009

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

372
373

(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
IS OVERLAYED. _ THE
CURRENT PARAMETERS IN THE
STATUS TABLE ARE USED WHEN SW07=1 ON START UP.

374
375

g;g

%;g

PAGE 9

7.3

HARDWARE CONFIGURATION RESTRICTIONS

380
%g;

DMC11(MB200)- JUMPER W1 MUST BE IN, AND SWITCH 7 OF
BE IN THE OFF POSITION.

ggz

KMC (M8204)~- JUMPER w1 MUST BE

385
386

LINE UNIT(M8201)~- JUMPERS W1, W2, AND W& MUST BE IN.
JUMPERS
W3, AND W5 MUST BE OUT.
SW8 OF E26 MUST BE IN THE ON

389

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

ggg

IN.

IN THE OFF POSITION.

MISCELLANEOUS

8.1

EXECUTION TIME

SW8 OF E26

396
397
398
399

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

401
402

SYSTEM.

«00

282

405
406
407
408
409
410
2}5

613
2}2

416
417
418
619

620
21

MUST

POSITION.

gg?

392
393
ggg

E76

MUST

MESSAGE
THIS IS
FASTEST
GREATLY

ON THE PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE

8.2

PASS COMPLETE

NOTE:
EVERY TIME THE PROGRAM IS STARTED;
THE TESTS WILL RUM
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- WILL BE A 'QUICK
PASS' UNTIL ALL DOMC11'S IN SYSTEM ARE TESTED.
WHEN THE
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF
THE PRINT QUT TO BE EXPECTED.

END PASS CZDME CSR:

175000 VEC:

0300 PASSES:

000001

ERRORS:

000000

NOTE:

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

E%gflf

MACY11

ME.P11

30A(1052)

07-JuL-80

01-JuL-80 15:29

13:53

PAGE 10

SEQ 0010

422

623

424
425
426

8.4

KEY LOCATIONS

RETURN (1214)

627
428
429
430
431
432
433
434
435
436
437
438
439

TEST

440
441
442
443
444
445

(1216)

TSTNO

(1226)

RUN

(1316)

IS ASSERTED.

CONTAINS THE ADDRESS OF THE NEXT

PEFORMED.

CONTAINS THE NUMBER

THE

TEST

NOW

BEING

THE BIT IN 'RUN' ALWAYS POINTS
TO THE
EXAMPLE:
TESTED.
BEING
CURRENTLY
1302/0000000001000000 MEANS THAT
DMC11
IS THE DMC11 NOW RUNNING.

DMC11
(RUN)
NO.06

PEFORMED.

TEST

DMCROO-DMCR17
DMSTO0-DMST17
(1500)=(1640)

446

THESE LOCATIONS COi...IN THE INFORMATION NEEDED
TO TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY.
THEY
CONTAIN
THE
CSR,VECTOR
AND
STATUS

CONCERNING THE CONFIGURATION OF EACH DMC11.

647
448
449
450
451
452
453
454
455

DMACTV (1306)

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

INDICATES

THAT

DMC11 WILL BE TESTED IN TURN.

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

EXAMPLE:

(DMACTV) 1276/0000000000010001 MEANS

THAT DMC11 NO.

DMCSR

456

457
458
459
460
461
462
463

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

8.4A

(1402)

"STATUS TABLE'
THE TABLE

00,04 WILL BE TESTED.

ggg}AlNS THE CSR OF THE

CURRENT

DMC11

UNDER

(1500-1640)

IS FILLED BY AUTO SIZING OR BY THE MANUAL

PARAMETER

464

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

466

THE EXAMPLE STATUS MAP SHOWN BELOW

465

467
468
469
470
471

4«72
473
474
475
476

477

CONTAINS
INFORMATION FOR
TWO DMC11°'S.
THE TABLE CAN CONTAIN UP TO 16 DMC11'S.
ES%ESUING THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP

MAP OF DMC11

STATUS

CSR

STAT2

STAT1

STAT3

001500 160010 145310 177777 000000
001510 160020 016320

000000

CIOME
MACY11 30A(1052) 07-JuL-80
CIDME.P11
01-JUL-80 15:29
478
479

13:53

PAGE 11

SEQ 0011

480
481
482

EACH MAP ENTRY CONTAINS & WORDS WHICH CONTAIN THE
STATUS
INFORMATION FOR
1
DMC11.
THE PC SHOWS WHERE IN CORE MEMORY
THE FIRST OF THE & WORDS IS.
IN THE EXAMPLE ABOVE
THE
FIRST

484

SECOND DMC STATUS IS LOCATED AT 1510, 1512,

483
485

DMC'S STATUS IS IN LOCATIONS, 1500,
THE

INFORMATION

1502,

1504,

AND 1506.

1514,

THE

1516.

CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS

:gg

FOLLOWS :

zgg

CSR:

CONTAINS DMC11 CSR ADDRESS

490
491
492
493
494

STAT1:

BITS 00-08 IS DMC11 VECTOR ADDRESS
BIT15=1 MICRO-PROCESSOR HAS CRAM
BIT15=0 MICRO-PROCESSOR HAS CROM
BIT14=1 TURNAROUND CONNECTOR IS ON
BIT14=0 NO TURNAROUND CONNECTOR

500
gg;

STAT2:

LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER)
HIGH BYTE 1S SWITCH PAC#2 (BM873 BOOT ADD)

503
504
505
506
ggg

STAT3:

BITO=1 RUN FREE RUNNING TESTS ON KMC11
BIT1=0 DMC11-AR (LOW SPEED)
BIT1=1 DMC11-AL (HIGH SPEED)
B1T2=0 DMC11-DA (RS232)
BIT2=1 DMC11-FA (V.35)

495
496
497
233

AND

BIT13=0 LINE UNIT IS AN M8201
BIT13=1 LINE UNIT IS AN M8202
BIT12=1 NO LINE UNIT
BITS 09-11 IS DMC11 BR PRIORITY LEVEL

CIDME

MACY11 30A(1052) 07-JuL-80
01-JuL~80 15:29

13:53

PAGE 12

SEQ 0012

8.5

METHOD OF

8.5.1

FINDING THE CONTROL STATUS REGISTER.

AUTO SIZING

THE AUTO=-SIZING ROUTINE FINDS A DMC11 AS FOLLOWS:

STARTS

AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP
TO AND INCLUDING ADDRESS 167760.
IF THE ADDRESS DOES NCT TIME
OUT,
THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS 'S WRITTEN
TO A 125252 THEN IT IS READ BACK.
IF
IT CONTAINS A -1
OR
125252 OR 626 OR
16520 A DMC11 HAS BEEN FOUND, IF NOT, THE
ADDRESS 1S UPDATED BY 10 AND THE SEARCH CONTINUES.
A -1
INDICATES A DMC11 WITH NO CROM OR CRAM, 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 DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF A
LOOP-BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS
ON THE LINE UNIT.
THIS IS WHY THE STATUS TABLE MUST BE
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE
RESTARTED AND
THE
QUESTIONS MUST BE ANSWERED.
ALL DMCi1'S IN THE SYSTEM
WILL BE FOUND BY THE AUTO-SIZER.
IF IT DOES NOT FIND A DM(C11

ONO VS NN 2OV

NO VNS WN 2OV

WAL
WA LW T WA T WA A A WA
AW NN AN NN AN w
NN N N N N N NN N N PO PO RO NI RO NI AU N b b —d b e d h b b —

NO VNS WN=O

CZDME.P1

THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED.

FINDING THE VECTOR AND BR LEVEL

THE

VECTOR

AREA

(ADDRESS

300-776)

FILLED

WITH

THE

LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS

BAD

DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL

THE PROCESSOR
(NEXT ADDRZSS).
INSTRUCTION IOT AND_'.+2'
STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT

539

MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3

(BECAUSE

S AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE
THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET
CORRECT VECTOR.
IF AN INTERUPT OCCURED;
THE ADDRESS TO WHICH
THE
DMC11
INTERUPTED TO
IS PICKED UP AND REPORTED AS THE
VECTOR. NOTE:
[IF THE VECTOR REPORTED IS NOT THE VECTOR SET
gSNEBY
YOU;
THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE
PRCBLEM IS FIXED;

8.6

SOF TWARE SWITCH REGISTER

IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO
ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY.
IF
THE WARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND
IT CONTAINS ALL ONES
(177777)
THIS SOFTWARE
SWITCH
REGISTER IS USED.
:
CONTROL

TO OBTAIN CONTROL AT ANY ALLOWABLE TIME
DURING EXECUTION OF
THE
DIAGNOSTIC
THE
OPERATOR
TYPES A CTRL G ON THE CONSOLE
TERMINAL KEYBOARD.
AS SOON AS THE CTRL G
IS RECOGNIZED,
BY
THE DIAGNOSTIC, THWE FOLLOWING MESSAGE wW!LL BE DISPLAYED:

(2 DME

MACY11 30A(1052) 07-Ju.~80
01-JuL-80 15:29

CZDME .P11

13:53

PAGE 13

SEQ 0013

SWR=XXXXXX NEW?

SWITCH
SOFTWARE
THE
WHERE XXXXXX IS THE CURRENT CONTENTS OF
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 CMARACTERS:
1) 0 - 7, 2)

LINE FEED(SLF>), 3) CARRIAGE

RETURN(<CR>),

CONTROL-V

(CTRL U).
NO CHECK IS MADE FOR LEGALITY.
IF THE INPUT
CHARACTER IS 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
TYPED.
AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF>
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 OCCUR.

WHEN THE INPUT STRING IS TERMINATED WITH A <(R> THE DIAGNOSTIC
WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS
IF A <CR> IS THE ONLY THING TYPED THE PROGRAM
INTERRUPTED.
THE <iLF> DIfFERS FROM
WILL CONTINUE WITHOUT CHANGING THE SSR.
IT WERE RESTARTED AT
!F
AS
PROGRAM
THE
YHERE§§>288 RESTARTING
AD

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

THE

TERMINATOR

THE

INPUT

VALUE WILL BE DISREGARDED AND THE

PROMPT DISPLAYED (SWR = XXXXXX NEW?).

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

THE

HISTORY

THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35

AND M8201.

IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK

43U SHOULD NOT BRE

TESTED FOR.

MACY11 30A(1052)
(IDME
07-JuL-80
CZDME .P11
01-JuL-80 1 5:29
611
612
613
614
615

13:53

PAGE 14

SEQ 0014

INTRODUCTION TO DMC11 DIAGNOSCTIC

;*AC-85520-MC _ DMC11

616

DDCMP MODE LINE UNIT

TESYS

'COPVRIGHT 1976,1978, DIGITAL cQUIPMENT CORP.,

617
618
619

MAYNARD, MASS. 01754

;STARTING PROCEDURE

:LOAD PROGRAM

:'.OAD ADDRESS 000200
;SWR=0 AUTOSIZE DMC11
;SW07=1 USE CURRENT LM(11 PARAMETERS
INPUT NEW DMC11 PARAMETERS
;SW00=1
;PRESS START

;PROGRAM WILL TYPE 'AC-85520-MC
;PROGRAM WILL

TYPE

STATUS MAP

DMC11 DDCMP MODE LINE UNIT 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 OFTIONS
100000

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

SW15=100000
SW14=40000

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

SW12=10000
SW11=4000

;=1,DELETE TYPEOUT/BELL ON ERROR.
;=1,INHIBIT ITERATIONS

SWw13=20000
SWw10=2000
SW09=1000

SWw08=400
SW07=200
SW06=100
SW05=40
SW04=20
SW03=10
SW02=4

SWw01=2
Sw00=1

;=1,INHIBIT ERROR TYPEOUT

:=1,ESCAPE TO NEXT TEST ON ERROR

:=1,L00P WITH CURRENT DATA

:=1,L00P ON ERROR
©=1.USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11
;=1. HALT BEFORE CLOCKING MICRO- PROCESSOR INSTRUCTION
;RESELECT DMC11'S TO BE TESTED (ACTIVE)
:LOCK ON TEST SELECT
:RESTART PROGRAM AT SELECTED TEST
; INPUT DMC11 PARAMETERS

(Z DMt
MACY11 30A(1052)
07-JuL-80
@4 DME.P11
01-JuL-80 15:29

675
676

677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698

699

700
701
702
703
704
705
706

;REGISTER DEFINI TIONS
000000
000001
000002
000003
000004
000005
000006
000007

;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAI REGISTER
;PROCESSOR STACK POINTER
;PROGRAM COUNTER

RO=%0
R1=%1
R2=%2
R3=%3
RG=X4
R5=%5

£o=%6
PC=%7

;LOCATION EQUIVALENCIES
‘eecececcsceeceeeee

177776
001200

PS=177776
STACK=1200

;PROCESSOR STATUS WORD

;START OF PROCESSOR STACK

; INSTRUCTION DEF INITIONS.
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726

PUSHR0=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626
EMT HLT
LEQUIV

;BIT DEFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200

000100

000040
000020
000010
000004
000002
000001

=AM
—
o
o
o
o

656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674

13:53
PAGE 15
GENERAL DEFINATIONS AND EQUIVALENCIES

000
00

;DECREMENT PROCESSOR STACK 1 WORD
: INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE
;BASIC DEFINITION OF ERROR CALL

SEQ 0015

MACY11 30A(1052)
(ZDME
07-JuL-80
(ZDME.P11
01-JuL-80 15:29

13:53

708
709

TRAPCATCHER FOR UNEXPECTED

INTERUPTS

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

710
14}
712
713

; TRAPCATCHER FOR

ILLEGAL

INTERRUPTS

;THE STANDARD '"'TRAP CATCHER'' IS PLACED

;BETWEEN ADDRESS O TO ADDRESS 776.
;1T LOOKS LIKE ''PC+2 HALT'.

714
715

716

IR RRRRRRRRARRRRERRERRRCERRRCERROROERRRNRARRCORARRRRRROERRRRERRONRORRORORORRROROLIOTTRTSE

717

718

719
720
[£4.
722

PAGE 16

.=0

000000

; STANDARD INTERRUPT VECTORS
=24

723
724
725
726

000024
000026
000030
000032

728

000036

730
731
732
733

000040
000042
000044
000046

735

000052

000024
005336
000340
004750
000340
004716
000340
000040
000000
000000
000000
003522
000052
000000

738
739

000174
000176

000174
000000
000000

742

000200

000200
000137

002002

746
(2)

001000
001016

001000
005377
046504

041501
030503

001200

PFAIL

:POWEK FAIL HANDLER

CHLT

"ERROR HANDLER

340

"SERVICE AT LEVEL 7

"SERVICE AT LEVEL 7
“GENERAL HANDLER DISPATCH SERVICE
“SERVICE AT LEVEL 7

340
“TRPSRV
-

:SAVE FOR ACT=11 OR XXDP

S$ENDAD

"FOR USE WITH ACT=11 OR XXDP

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

0
0

ACT=11 PROGRAM CHARACTERISTICS

=174

.SOF TWARE DISPLAY REGISTER
"SOF TWARE SWITCH REGISTER

D1SPREG:0
0
SWREG:
.=200

034055
020061

.=1000
MTITLE:

G0 TO START OF PROGRAM

JMP

START

.ASCII

<377><12>/AC-8552D-MC/<377>

"ASCIZ

/DMC11 DDCMP MODE LINE UNIT TESTS/<377>

.=1200

JINDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY
Y

752
753

001200
001202

177570
177570

DISPLAY:177570
SWR:
177570

S R

R R

SEQ 0016

MACY11 30A(1052)
(ZDME
07-JuL-80
(2 DME .P11
01-JuL-80 15:29

oo s

000000
000000

000000
000000
000000

S8 ZISZZSSENNNNEY

798

793
794
795
796
797

—

790
791
792

ICOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

STRTSW:
STAT:
CLKX:

MASKX:

TEMP1:
TEMP2:

TEMP3:

1254

28 888883388888888888

787
788
789

RETURN:
NEXT:
LOCK:

;SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
;NUMBER OF

ITERATIONS THAT CURRENT

;NUMBER OF ITEREATIONS COMPLETED
;NUMBER OF TEST IN PROGRESS
;NUMBER OF PASSES COMPLETED
;TOTAL

NUMBER

ERRORS

;PC OF LAST ERROR CALL

;PROGRAM VARIABLES

783

784
785
786

000000
000000
000000
000003
000000
000000
000000
000000
000000

OOOOOWOOO

774
775
776
777
778
779
780
781
782

SEQ 0017

;TELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

177560
177562
177564
177566

TEMP4:

TEMPS:
SAVRO:
SAVR1:
SAVRZ:

SAVR3:

:
SAVRG

SAVRS:

SAVSP:
SAVPC(:
lERO:
:
ONE
MEML IM:
DMACTV:
DMNUM:

[P Helelelelelelelelalelelelelelels
o]l

773

snooo

772

001204
001206
001210
001212

—2

758
759
760
761
762
763
764
765
766
767
768
769
770
mm

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

A L LN LS L N LS N LV [
NN NN
NN — —

754
755
756
757

13:53
PAGE 17
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

000000

RUN:

BLKW 1
.BLKW 1
BLKW 1
0

001472
001676

MILK:

DM . MAP=6
CNT.MAP=4

SAVA(T:
SAVNUM:
.EVEN
CREAM:

;SWITCHES AT START OF PROGRAM
;DM STATUS WORD STORAGE
: TEMPORARY STORAGE
;s TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY STORAGE
;s TEMPORARY STORAGE
:RO STORAGE
:R1 STORAGE
:R2 STORAGE

:R3 STORAGE

;R4

STORAGE

:RS STORAGE

:STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

;HIGHEST LOCATION FOR NPR'S
;DMC11*S SELECTED ACTIVE.
;OCTAL NUMBER OF DMC11°'S.
;ORIGINAL ACTV DEVICES
;WORKABLE NUMBER

;POINTER TO RUNNING DEVICE.

;TABLE
;TABLE

POINTER.
POINTER

TEST WILL BE EXECUTED

MACY11 30A(1052)
CIDME
07-JuL-80
(ZDME . P11
01-JuL-80 15:29
807
808
809
810
811
812
813
814

815
816
817
818
819
wWwrhororornoNrRorRO
N
= OV NV
W

PAGE

PROGRAM PARAMETERS,

VARIABLES,

AND

TRAP

SEQ 0018

CALLS.

;PROGRAM CONTROL FLAGS
001324
001325
001326
001327

000
000
000
000

INIFLG:
ERRFLG:
LOKFLG:

QV.FLG:

.BYTE
.BYTE
.BYTE
.BYTE

J
8

;PROGRAM [NITIALIZATION FLAG

;ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG
;QUICK VERIFY FLAG.
;ON FIRST PASS OF EACH DMCT1

.EVEN

[TERATIONS WiLL BE SUPPRESS

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

820
821

Oo Co 0o 0o OO Oo OO OO Oo 0O

13:53

N iRt Rt RN

001330

RRRRRRRCRRRRCERORRRRRRRROERRQRERRRRRRRORRRRRRRRRORROROQROEOROPORORPORTRPOTRTPOTNT

"TRPTAB:

104400

scops=taAgzng

<CALL TO SCOPE LOOP AND ITERATION MANDLER

104401

scom:mip?p1

:CALL TO LOOP ON CURRENT DATA HANDLER

001330

003576

001332

003736

001334

003766

832

001336

004050

834

001340

004154

836

001342

004174

838

001344

004374

840

001346

004434

842

001350

004466

844

001352

004472

846

001354

005466

848

001356

005436

850

001360

005504

852

001362

005552

854

001364

005616

104402

.SC0
TYPE=TRAP+2

104403

lNSTR:YRAT'gIR

;CALL TO ASCII STRING INPUT ROUTINE

104404

INSTER=TRAP+4
LINSTER
PARAM=TRAP +5
.PARAM

SCALL

TO NUMERICAL DATA

104405

.TVPE
LIN

SCALL

TO TELETYPE

OUTPUT ROUTINE

INPUT ERROR MANDLER
INPUT ROUTINE

SAVOS=1RA2;605

SCALL TD REGISTER SAVE ROUTINE

104407

ncsos=1RA:E§05

:CALL TO REGISTER RESTORE ROUTINE

104410

CONVRT=TRAP+10

SCALL TO DATA QUTPUT ROUTINE

104411

CNVRT=TRAF+11

:CALL TO DATA OQUTPUT ROUNTINE WITHOUT CR/LF.

104406

104412

104413
1044614

104415

104416

SAY

.CONVRT

.CNVRT
MSTCLR=TRAP+12
LMSTCLR

DELAY=TRAP+13

.DELAY
ROMCLK=TRAP+14
.ROMCLK
DATACLK=TRAP+15
.DATACLK
TIMER=TRAP+16

.TIMER

SCALL

ISUE

A MASTER CLEAR

:CALL TO DELAY
:CALL

10 CLOCK ROM ONCE

:CALL

TO CLK DATA

SCALL

10 DELAY A CLOCK

TICK

:'0..'..'."'t't!""""'Q'.'l""'.."l.t"'.'....'..'Q'l."""l.'

——

MACY11 30A(1052)
(ZDME
07-JuL-80
E
P11
.
CZDM
01-JuL-B80 15:29

6 2

PROGRAM PARAMETERS,

VARIABLES,

AND

TRAP C(ALLS.

;DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST
001366
001370
001372

000000
000000
000000

STAT:

0
0
0

STATZ:
STAT3:

;DMC11 VECTOR AND REGISTER INDIRECT
001374
001376
001400
001402
001404
001406
001410
001412
001414

000000
000000
000000
000000
000000
000000
000000
000000
000000

878
879

DMRVEC:
CMRLVL:
DMTVEC:
DMTLVL:
DMCSR:
DMCSRH:
DMCTL:
DMPO4:
DMPO6:
; TEMP

001416

JPOINTER 10
sPOINTER 10
;POINTER T0
;POINTER 10
;POINTER T0
;sPOINTER 10
;POINTER 10
;POINTER T0
;sPOINTER 10

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR

TRANSMITTER INTERRUPT SERVICE PS

CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HIGH BYTE.
CONTOL OUT REGISTER

PORT REGISTER(SEL &)
PORT REGISTER(SEL 6)

STORAGE

000000
001460
TABLE

AND ADDRESS ASSIGNMENTS

AW
s

000001
000001
000001
000001

DMCRO1:
DMS101:
DMS201:
DMS301:

.BLKW
.BLKW

000001
000001
000001
000001

DMCROZ2:
DMS102:
DMS202:
DMS302:

.BLKW
.BLKW

W
o

000001
000001
000001
000001

DMCRO3:
DMS103:
DMS203:
DMS303:

.BLKW
.BLKW
.BLKW
.BLKW

000001
000001
000001
000001

DMCRO4:
DMS104:
DMS204:
DMS304:

.BLKW
.BLKW
.BLKW
.BLKW

e
—
o
—
—
e

.BLKW

—

.BLKW

SRS
[« ¥ 1 N1}

BLKW
JBLKW

—

o
o
o D
o
h o

AW VIV

ot
ot o

VIV
ok
aF oF o

:
:

pDMS200:
DMS300:

o OO 8

000001
000001
000001
000001

VWAV
NN
oo

001500

8888 8888 8888 888 8 8

880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897

PAGE

eleolelelolelslele)]

858
859
860
861
862
863
864
865
866
867
868
869
870
87
872
873
874
875
876
877

13:53

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

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

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

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

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

SEQ 0019

DMS105:
DMS205:
DMS305:

001560
001562
001564
001566

000001
000001
000001
000001

DMCRO6:
DMS106:
DMS206:
DMS306:

001570
001572
001574
001576

000001
000001
000001
000001

DMCRO7:
C4S107:
pDMS207:
DMS307:

.BLKW

001600
001602
001604
001606

000001
000001
000001
000001

DMCR10:
DMS110:
DMS210:
DMS310:

.BLKW
.BLKW
.BLKW
.BLKW

001610
001612
001614
001616

000001
000001
000001
000001

.BLKW

001620
001622
001624
001626

000001
000001
000001
000001

JBLKW

—

.BLKW

001630
001632
001634
001636

000001
000001
000001
000001

.BLKW
.BLKW

001640
001642
001644
001646

000001
000001
000001
000001

JBLKW
.BLKW
.BLKW

001650

000001
000001
000001
000001

.BLKW

000001
000001
000001
000001

.BLKW
.BLKW
.BLKW
JBLKW

000001
000001
000001
000001

:
:

JBLKW
JBLKW

JBLKW

000000

: 000000

¢
:

.BLKW

JBLKW
JBLKW

. .BLKW
JBLKW

JBLKW

P
—
— el el

.BLKW
.BLKW

— e

— e e

.BLKW
.BLKW

— s

.BLKW

—d il

DMCROS:

— el e

001552
001554
001556

000001
000001
000001
000001

001550

—

914
915
916
917
918
919

13:53
PAGE 20
PROGRAM PARAMETERS, VARIABLES,

MACY11 30A(1052)
(ZDME
07-JuL-80
@4V ME.P11
01-JuL-80 15:29

SEQ@ 0020

AND TRAP CALLS.

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

NUMBER 05

;CONTROL STATUS REGISTER FOR DMC11
;VECTOR FOR DMC11 NUMBER 06
;DDCMP LINE# FOR DMC11 NUMBER 06

NUMBER 06

;CONTROL STATUS REGISTER FOR DMC11
;VECTOR FOR DMC11 NUMBER 07
;ODCMP LINE# FOR DMC11 NUMBER 07
;3RD STATUS WORD

NUMBER 07

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

NUMBER 10

;3RD STATUS WORD

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

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

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

NUMBER 13

;CONTROL STATUS REGISTER FOR DMC11
;VECTOR FOR DMC11 NUMBER 14
;DDCMP LINE# FOR DMC11 NUMBER 14

NUMBER 14

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

NUMBER 15

;CONTROL STATUS REGISTER FOR DMC1!
;VECTOR FOR DMC11 NUMBER 16
;ODCMP LINE# FOR DMC11 NUMBER 16
:3RD STATUS WORD

NUMBER

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

NUMBER

;3RD STATUS WORD

MACY11 30A(1052)
0 7-JUL-80
(Z DME
(2 DME.P1
01-JuL-80 15:29

000000
000000

PACTO06:

001736
001740

000000
000000

PACTO7:

001742
001744

000000
000000

PACT10:

001746
001750

000000
000000

PACT11:

001752
001754

000000
000000

001756
001760

000000
000000

001762
001764

000000
000000

001766
001770

000000
000000

b it e

001772
001774

000000
000000

001776
002000

000000
000000

s = e

ERCTO06:

ERCTO?:
ERCTI10:
ERCT11:

001732
001734

ERCTOS:

PACTOS:

000000
000000

001726
001730

ERCTO4:

PACTO4:

;PASS COUNT FOR DMC11 NUMBER 04
;ERROR COUNT FOR DMC11 NUMBER 04

000000
000000

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

;PASS COUNT FOR DMC11 NUMBER 05
;ERROR COUNT FOR DMC11 NUMBEK 05

001722
001724

ERCTO3:

;PASS COUNT FOR DMC11 NUMBER 06

PACTO3:

;PASS COUNT FOR DMC11 NUMBER 02

;PASS COUNT FOR DMC11 NUMBER 07
;ERROR COUNT FOR DMC11 NUMBER 07

000000
000000

ERCTNZ:

;PASS COUNT FOR DMC11 NUMBER 01
;ERROR COUNT FOR DMC11 NUMBER 01

;PASS COUNT FOR DMC11 NUMBER 10

;ERROR COUNT FOR DMC11 NUMBER 02

;ERROR COUNT FOR DMC11 NUMBER 06

;ERROR COUNT FOR DMC11 NUMBER 10

OO0

001716
001720

ERCTO1:

;PASS COUNT FOR DMC11 NUMBER 00
;ERROR COUNT FOR DMC11 NUMBER 00

;PASS COUNT FOR DMC11 NUMBER 11
;ERROR COUNT FOR DMC11 NUMBER 11

OO0

FACTO2:

ERCTOO:

;PASS COUNT FOR DMC11 NUMBER 12
;ERROR COUNT FOR DMC11 NUMBER 12

OO0

000000
000000

CNT.MAP:
PACTO00:

;PASS COUNT FOR DMC11 NUMBER 13
;ERROR COUNT FOR DMC11 NUMBER 13

001712
001714

s e e

TRAP CALLS.

;PASS COUNT FOR DMC11 NUMBER 14
;ERROR COUNT FOR DMC11 NUMBER 14

OO0

PACTO1:

N=OOVONOWVNES
W —-O

D
it
d
i
i
D
s
d
D

AND

;PASS COUNT FOR DMC11 NUMBER 15
;ERROR CCUNT FOR DMC11 NUMBER 15

OO0

000000
000000

[eolelelelelelelelelelelele)

VARIABLES,

;PASS COUNT FOR DMC11 NUMBER 16
;ERROR COUNT FOR DMC11 NUMBER 16

OO0

001706
001710

1009

;DMC11 PASS COUNT AND ERROR COUNT TABLE

000000
000000

977

PROGRAM PARAMETERS,

001702
001702
001704

978
979
980
981
982
983
984
985

—

PAGE 21

POPOND

970
971
972
973
974
975
976

13:53

;PASS COUNT FOR DMC11 NUMBER 17
;ERROR COUNT FOR DMC11 NUMBER 17

SEQ 0021

CIDME

MACY11 30A(1052)
C7-JuL-B0
CZDME.P1Y
01-JuL-80 15:29

J 2
13:53 PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

1023
FORMAT OF

PR L
e
Tl
] e]e]e]e]e
BN
e
W
TN
B
1

|
_® {

(

|
]
l
I

#oel o

[ « ] «] «]
<8 .. €

(SR:
STAT1:

CONTAINS DMC11

(SR

STAT1

sTan2

STAT3

CSR ADDRESS

UNIT IS AN MB202

l NE UNIT
l
S DMC 1 BR PRIORITY LEVEL

STAT2:

ITC
LOW BYTE IS SWITCH
PAC#1 (DDCMP LINE NUMBER)
HIGH BYTE IS SWITCH
e
PAC#2 (BMB73 BOOT ADD)

STAT3:

BITO=1 DO FREE RUNNING TESTS ON KMC
(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY])
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING
DZDMG TEST 2 FIRST
1 1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE
1
DMC11-AR REMOTE LOW SPEED MICRO-CODE
DMC11-DA (RS232C)
2
DMC11=-FA (V.35
4
-0

M @

0 b

[«
SOT

e bt

|
{ E

€D 0D GO o 0 O @

STATUS TABLE

SEQ 0022

MACY11 30A(1052)
07-JuL-80
CZDME
(ZDME.P1
01-JuL-80 15:29
$

13:53

PAGE 23

PROGRAM PARAMETERS,

K
VARIABLES,

2
AND TRAP CALLS.

SEQ 0023

CIDME
MACY11 30A(1052)
07-JuL-80
CIDME.P11
01-JUL-B0 15:29

L 2
13:53 PAGE 24
PROGRAM INITIALIZATION AND START UP.

1081
1082
1083
1084
1085
1086
}gg;

1089
1090
1091

1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103

1104
1105
1106
1107

:PROGRAM INITIALIZATION
:LOCK OUT INTERRUPTS
*SET UP PROCESSOR STACK
‘SET UP POWER FAIL VECTOR
‘CLEAR PROGRAM CONTROL FLAGS AND COUNTS
:TYPE TITLE MESSAGE
002002
002010
002014

002022
002030
002034
002040
002044
002052
002
002066
002072
002074
002100
002102

002106
002114

012737
012706
012737

013737
oosogr
105037
105037
012737
012737
012737
012700
005020
022700
001374

000340
001200
005336

001310
010144
001325
001327
001470
001676
100000
001702

000024
001314

001234

000001
002002

.START: MOV
MOV
MOV

001320
001322
001316
238:

002002

005037

012737
012737

177776

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

000004

MOV
MOV
MOV

1111
1192

002146
0021564

012737
022777

177570
177777

001200
177020

MOV
CMP

1113
1114

1115

1116
1117
1118
1119
1120

1121
1122
1123
1124
1125
1126

002162

002164

001402

002170
002176
002204
002210
002214

002220
002222
0022
002232
002236
002242

012737
012737
012637
012637
105737

001006
832737
1402
104402
004737
017737

000176
000174
000004
000006
001324

001202
001200

003522

000042

001000
007734
17673¢

1127 002250 005737 000042
1128

1129

002254

002256

001402

005037

001236

105737
100007
005737
001006
104402

001236

1130 002262 032737 000001
1131 002270 001012
1132
1133
113,
1135
1136

002272
oozgro
002300
002304
002306

001202

000407

002166 022626

001306
007154

*CLEAR LAST ERROR POINTER

:
“SET UP FOR TIMEOUT

#177570 DISPLAY :SET DISPLAY TO HARD SWR ADDRESS
#-1,aSWR
"REFERENCE MARDWARE SWITCH REGISTER

000006
000004
002166

177570

LSTERR

DMNUM,SAVNUM
:SAVE NUMBER OF DEVICES IN SYSTEM.
SWFLG
*CLEAR SOFT TYPEOUT FLAG
ERRFLG
*CLEAR ERROR FLAG
QV.FLG
*7ERO QUICK VERIFY FLAG
#DM.MAP=10,CREAM:GET MAP POINTER.
#CNT.MAP=4
. MILK :GET PASS COUNT MAP POINTER
#BITi5,RUN
*POINT POINTER TO FIRST DEVICE.
#CNT . MAP, RO
*PASS COUNT POINTER TO RO
(RO) +
*CLEAR TABLE
#CNT.MAP+100,R0O :DONE YET?
238
‘KEEP GOING

a6, =(SP)
G -(SP)
068 and

013746
013746
012737

012737

:LOCK OUT INTERRUPTS
SSET UP STACK
:SET UP POWER FAIL VECTOR

MOV
MOV

002122
00 1;3
002132

002140

#340,PS
#STACK,SP
#.PFAIL,3#24

001226
001214

1108
1109

1110

SEQ 0024

001236

MOV

BEQ

6% :
7%:

208:

CMP

MOV
MOV
MOV
MOV
TSTB

BNE
CMP
BEQ
TYPE
JSR
MOV

BEQ

001236

(LR

BIT
BNE

TSTB
BPL
ST
BNE
TYPE,

#1,TSTNO
#.START.RETURN

#177570, SWR

*SET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE
:TESTING STARTS
*SAVE CURRENT VECTORS

*SET SWR TO HARD SWR ADDRESS

6842

SIF = =1 USE SOFT SWR ANYWAY

(SP)+,(SP)+

TADJUST STACK

“IF IT EXISTS AND NOT = =1 USE HARD SWR

#SWREG, SWR
*POINTER TO SOFT SWR
#DISPREG.DISPLAY:POINTER TO SOFT DISPLAY REG
(SP) +, a4
*RESTORE VECTORS
(SP)+.a#6
;
INIFLG
*HAS INITIALIZATION BEEN PERFORMED

208
FSENDAD,3#42
208
,MTITLE
PC,CKSWR
@SWR,STRTSW

‘BR IF YES
:1F ACT=11 AUTOMATIC MODE, DON'T TYPE

.46

‘BR IF NO

FY7%

STRTSW

#SW00,STRTSW
17
STRTSW
178
DMACTV
16%
NOACT

:TYPE TITLE MESSAGE
SCHECK FOR SOFT SWR
*STORE STARTING SWITCHES

1S IT RUNNING IN AUTO MODE?
*1F YES,

.
CLEAR SWITCHES

:I1F SW00=1, QUESTIONS ARE ASKED.
BR IF sw00=1
BIT7=122
‘BR IF SWO7=0
*ARE ANY DEVICES SELECTED?
‘BR IF YES
*NO DEVICES SELECTED.

CIDME MACY11 30A(1052

CZDME.P1N
1137
11;8
1139

1140
1141
1142
1143
1144
1145
1146
1147

)
07-JUL-80
01-JuL-80 15:29

002312
002314
002316

002322
0023%6
002330
002334
002336
002344
002346
002350

000000
000776
004737

105737

2
002370
002374
002376
002402

001410
105737
100431
032737
001403
ooo«ga
005137
104402
012704
010437
012437
001411
012437
012437

1157

002412
002414

007602

}}zg

002420

1148
1149

1150
1151
1152
1153
11564
1155
1156

1158

0023564
2360

26406

002416

012437
104410

000762

012700

13:53

010640
001324

17%:
16%:

001236

001324
006224
001500
001246
001250

21$:
2h$:

5%:

001252
001254

001256

=2
PC,AUTO.SIZE

BEQ
1ST18
BMI
BIT
BEQ
BR
COM
TYPE
MOV
MOV
MOV
BEQ
MOV
MOV

21$
;BR IF YES
STRTSW
s1F USING SAME PARAMETERS DONT TYPE MAP
1%
#BIT1!BIT2,STRTSW;
IS TEST NO. OR LOCK SELECTED
24%
s1F NO THEN TYPE STATUS
13
:iF YES DO NOT TYPE STATUS
INIFLG
;SET FLAG
. XHEAD
;TYPE HEADER
#DM . MAP R&
sSET POINTER
R4, TEMPY
sSET ADDRESS
(R4)+,TEMP2
;SET CSR
1%
;ALL DONE IF ZERO
(R4)+,TEMP3
;SET STAT
(R&) +,TEMP4
JSET STAT?

TSTB

INIFLG

XSTATQ

1%:

SEQ 0025

HALT
BR
JSR

MOV
CONVRT

001500

PROGRAM INITIALIZATION AND START UP.

001236
000006

PAGE 25

B8R

MOV

(R&)+,TEMPS

#DM.MAP RO

1162

;s *AUTO SIZE TEST

R R RN

JFIRST TIME?

;SET STAT3
;TYPE OUT STATUS MAP
:

1161

;STOP THE SHOW
;DISQUALIFY CONTINUE SWITCH
+GO DO THE AUTO SIZE

RO POINTS TO STATUS TABLE

R R R RN N R R

R RN NN

R R AN TR R AR

RN RO

RRNS

1163
1164
1165

2*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING
;s *ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.
;;*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DQ,DU,DUP,LK,DMC,DZ,KMC).

1167
1168
1169
1170
"n
1172

2;*DMC11 ADDRESS IS 760070, kMC11 IS 760110. NO DEVICE SHOULD EVER BE AT
;;*ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE
;;*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD
;:*YOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS
;s*THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS
;:*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE

1174

LR
AR A
il

1166

ss*]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE bHCi1, THE FIRST

1173
1175

1176
1177

1178
1179
1180
1181
1182
1183
1184

1185

1186

1187
1188
1189
1190
1191
1192

s s*CORRECT).

002424
002430

002434
002440
002444
002446
002452
002454
002456

002460
002466

002470
002472
002500
002505
002510
002512

013746
013746

005037
005037
005005
011037
001564
005705
ogwos

032760
001061

000404
032760
801654
12737
005705
001003

000004
000006

000006
001252
001404

100000

000002

MOV
MOV

a4, -(SP)
a6, -(SP)

sSAVE LOC 4
;SAVE LOC 6

BIT

#B1715,(R0O)

sCHECK FOR DMC CSR

CLR
CLR
CLR
AUSTRT: MOV
BEQ
TST
BNE
BNE

100000

000002

1%:

002674

000004

2§:

BR
BIT
BEQ
MOV
TST
BNE

1L
TEMP3
RS
(RO) ,DMCSR
AUDONE
RS
18
,
SKIP

2%
#81715,2(RO)
SKIP
#NODEV ,a84
RS
3%

;CLEAR VEC+2
sCLEAR FLAG
+R5=0=DMC, RS5=-1=KM(
sGET NEXT DMC CSR
;BR IF DONE
sDMC OR KMC?
:BR IF KMC
sSKIP IF NOT DMC

;1TSS A DMC SO CONTINUE
sCHECK FOR KMC CSR
sSKIP IF NOT KMC
sSET UP FOR TIMEOUT
sDMC OR KMC?
;BR IF KMC

1193
1194
1195
1196
1197
1198
1199

002514
002520
002522
002526
002532
002536
002540

012703
00040
012703
01%702
012701
005711
111204

1201
1202
12C3

002544
002546
002550

005201
040401
005703

1200
1204

1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215

1216

1217

1218

1219
1%20
1221

1222
1223
1226
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238

1239

1240
1241
12642
1243
1266
1245
12646
12647
1248

002542

002552
002554
002562
25

002570
002572
2600

002602
002604
002612
002614
002616

002622
002624

002630

002632
00 633
002642

0013NM
012737
010137

38:
(8
FLOAT:

005705

001005
032760
001014

000004
FY:

100000

000002

100000

000002

000404
032760
001407
005711
020137

001404

062701

000010

062700
011037
001470

000010
001404

SKIP:

000010
000010
001404

0K :

00141

000756

000750
062700
062737
011037
001457
013701
000735
122243
000002
005737
001014
104402
007223
012737
104411
002770
104402

0027
002736
002742
002744
002746
002750
002752
002754
002756

012737
010137
104410
002776
005705
001003
104402
0073 20
000402

007277

1%:
2%:

#6,R3
48
#10,R3
#DEVTAB,R2
#160010,R1
(R1)
(R2) ,R4

:R3 IS
;GO ON
;:R3 IS
:R2 IS
:START
:CHECK
;IF NO

INC
BIC
TST

R1
R4 ,R1
R3

:
:
:ANY MORE DEVICES TO CHECK FOR?

BNE
MOV
MOV
TST

BNE
BIT
BNE

R
BIT
BEQ
TST
CMP

003022

NODEV:
001252

ERR:

002700

001276

177777
001262

001252

FLOAT

PERR, ¥4
R1,XLOC
RS
1%
#BIT15,2(RO)
SKIP
2%
#BIT15,2(RO)
SKIP
(R1)
R1,DMCSR

(14

FyY

ADD
MOV
BEQ

#10,R1
#10,R0
(RO) ,DMCSR
AUDONE

BE
ADD
ADD
MOV
BEQ
MOV
-1
C(MPB
RTI
TST
8Nt
TYPE
CONERR
MOV
CNVRT
ERRP(
TYPE

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

MOV
MOV
CONVRT
CONTAB
ST
BNE
TYPE
DMCM
BR

#-1,TEMPY
R1,SAVRI

CNERR

1%:

RG,R1

BEQ
ADD

003022

SEQ 0026

MOV
BR
MOV
MOV
MOV
TST
MOVB

ADD

002700
003022

PROGRAM INITIALIZATION AND START UP.

000006
000010
003010
160010

PAGE 26

060401

002644
002646
002652
002660
002664
002666
002672
002674
002676
002700
002704
002706
002710
002712
002720
002722
002724

002726

13:53

(R2)+,-(R3)

TEMP3
1%
#ERR,SAVPC

(IN R

COUNT OF DEVICES BEFORE DMC
COUNT OF DEVICES BEFORE KMC
DEVICE TABLE PONTER
WITH ADDRESS 160010
ADDRESS IN R1
TIMEOUT, GET NEXT ADDRESS

:BR IF YES
;0K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT
:SAVE FIRST DMC/KMC ADDRESS
:DMC OR KMC?

:BR IF KMC
:CHECK FOR DMC CSR
:SKIP IF NOT DMC

;1TS A DMC SO CONTINUE
:CHECK FOR KMC (SR
:SKIP IF NOT KMC
:CHECK DMC ADDRESS
:DOES 17 MATCH

:BR IF YES

;GET NEXT DMC ADDRESS

;00 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
:CONT INUE
_
:ON TIMEOUT, INC R2, DEC R3S
:RETURN
:CHECK FLAG IF = 0 TYPE HEADER
:SKIP HEADER
:TYPEOUT HEADER MESSAGE
:CONF IGURATION ERROR!''!'!
:SAVE PC FOR TYPEOUT
:TYPE OUT ERROR PC
:
:TYPE REST OF WEADER
3

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

:TYPE CSR VALUES
:DMC OR KM(C ?

“

; CONT INUE

:BR IF KMC

————

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME.P11
01-JuL-80 15:29

[aal

MACY11 30A(1052 )

DME .P11

07-JuL-B0
01-JuL-80 15:29

1249
1250

002760
002762

104402
007330

1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266

002772
002774
002776
003000
003002
003004
003006
003010
003011
003012
003013
003014
003015

006
001276
000002
006
003022
006
001404
007
017
007
007
007
007

1251
1252
1253

1267

1268
1269

1270
1271
1272
1273

1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289

1290
1291
1292
1293
1294

1295

1296
1297
}%gg

002764
002766
002770

003016
003017
003020

003022
003024
003026

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

003120
003124
003126
003132
003136

022626
000727
000001

1303
1306

CONTAB:

DEVTAB:

007
007

012705
012700
0006%;
012637
012637
032737
001422
104402
005000
000000
027737
101404
104402
000000
000776
017737

013700
000000
012700
012701
010120
022021
022700
001372

CMP
B9

(SPY+,(SP)+
(1] 4

.BYTE
SAVP(
2
.BYTE

6,2

.BYTE

6,2

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

7
17
7
7
7

:DJ
:DH
;D@
;DU
:DUP

.BYTE

:DMC

DM(CSR

BYTE

007

003022
000000
005705
001005

TYPE
KMCM

XLOC

002

.BYTE
.BYTE

.EVEN
XLOC:
0
AUDONE: TST
BNE

177777
001500
000006
000004
000010

1$:
001236

006144

176104

001312

006005
176064

001306
000300

000302

001000

1300

1302

ERRP(C:

004

001306

PROGRAM INITIALIZATION AND START UP.

4
002

PAGE 27

3%:

003140 005021
003142
003144
003150

13:53

2%:

48:

MOV
MOV
BR
MOV
MOV
BIT
BEQ
TYPE
(LR
HALT
CMP
BLOS
TYPE
HALT
BR
MOV

MOV
HALT
MOV
MOV
MOV

CLR

CMP
CMP
BNE

;ADJUST STACK
:BR TO GET OQuT

6,4

7
4

RS
1%

#-1,RS
#DM.MAP RO
AUSTRT
(SP)+,al6
(SP)+,alG
#SW03,STRTSW
3%
JMNEW
RO
ASWR, SAVACT
2%
JMERR3
=2
@SWR,DMACTV

DMACTV,RO

:LK

D2
T KMC
:DMC?
‘BR IF KMC AND ALL DONE

SSET RS TO =1 (KMC)
CRESET RO TO START OF TABLE
:6G0 DO KMC'S
‘RESTORE LOC 6
:RESTORE LOC 4
SSELECT SPECIFIC DEVICES??
:BR IF NO.
:TYPE THE MESSAGE.
:7ERO 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.
CRESTART THE PROGRAM AGAIN.
:GET NEW DEVICE PATTERN

#302,R1
R1, (RO)+

:SHOW THE USER WHAT HE SELECTED.
SCONTINUE DYNAMIC SWITCHES.
:PREPARE TO CLEAR THE FLOATING
:VECTOR AREA. 300-776
:START PUTTING ''PC+2 = HALT'

(RO)+, (R1)+
#1000, R0
4%

:POP POINTERS
:ALL DONE??
:BR [F NO.

#300,R0

(R1)+

:IN VECTOR AREA.

STEST START AND RESTART

003152
003156

012706
013746

001200
000006

.BEGIN: MOV
MOV

#STACK,SP
arh,-(SP)

:SET UP STACK
:SAVE LOC 6

SEQ 0027

CZOME
WACY11 30A(1052)
07-JUL-BO
CZOME.P11
01-JUL-80 15:29
1305
1306
1307

00%162
003166
003170

1309
1310
1311
1312
1313
1314
1315
1316

003202
003204
003210
003212
003216
003222
003226
003232

1308

1317
1318

1319
1320
1321

1322

1323
1324

1325

1326
1327

003176

003234
003236

003242
003246
003252

003254

013746
005000
012737
005037
005720
022700
001374
162700
010037
012637
012637
000413

022626
162700

162700
022700
001361

012700

003260
003262

000756
012737

003276
003300

001411
104402

003270

032737

000004
00323&¢
000006

000004
6%

157776
007776
001304
000004
000006

7%:

2%:

000004

007776
030000

000004

003312
003320
003322

012737
000406
013737

1333

003336

012737

1332

1334
1335
1336
1337

003330
003344
003352
003354

003360

177776

001236

108:

BRX.TTST+2

010206

001214

3$:

MOV

005755
175630

001236

&$:

1%
LMLOCK

MOV

18$:

000002

7%
#340,PS

#NOP, TTST

003612

032737
001002
104402

:BR

MOV

003730

BIT
BNE
TYPE
JMP

;SAVE LOC &
;START AT 0
SSET UP FOR TIME OUT
:T0 AUTOSIZE MEMORY
:CHECK ADDRESS IN RO
SIS IT AT LEAST 28K
:BR IF NO
*SAVE 2K FOR MONITORS
:STORE MEMORY LIMIT
:RESTORE LOC &
:RESTORE LOC 6
:CONT INUE

#7776 ,R0
#30000,R0

#BIT2,STRTSW

MOV
BR
MOV

SEQ 0028

SADJUST STACK
:GET LAST GOOD ADDRESS

BIT

BR
MOV

003614

(SP)+,(SP)+

44 RO

#37400,R0

000240

003732

G ,-(SP)
RO
928,304
ane
(RO) +
#157776,R0
6%
#7776,R0
RO,MEMLIM
(SP)+,ak
(SP)+.a#6
10%

MOV

BEQ
TYPE

006043

013737

000177

CMP
SUB

BNE

1328 003304 012737 000240 003612
1329
1330
1331

MOV
CLR
MOV
CLR
ST
CMP
BNE
SUB
MOV
MOV
MOV
BR

SUB
CMP

037400
000340

13:53 PAGE 28
PROGRAM INITIALIZATION AND START UP.

#NOP . TTST+2
38
BRW,TTST

#CYCLE.RETURN
#SWO01,STRTSW
5%
MR
SRE TURN

:SAVE 2K FOR MONITORS
(1S IT 8K?
IF NO

SIF 8K DON'T SAVE 2K
;
:LOCK OUT

INTERRUPTS

:CHECK FOR LOCK ON TEST
:BR IF NO LOCK DESIRED.
STYPE LOCK SELECTED.

SADJUST SCOPE ROUTINE.

SSET UP TO LOCK
:CONTINUE ALONG.
:PREPARE NORMAL SCOPE ROUTINE

SLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

:START AT “'CYCLE' FIND WHICH DEVICE TO TEST
1S TEST NO.
‘BR IF YES
‘TYPE R
*START

SELECTED?

TESTING

DME
MACY11 30A(1052)
07-JuL=-80
DME .P11
01-JuL-80 15:2°

13:53 PAGE 29
END OF PASS ROUTINE

338
339
340
341

%2%

344
345
346
347
348
349
350
351
352
353
354
355
356
357
358

359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
gg;

:END OF PASS
;TYPE NAME OF TEST
;UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11

;RESTART TEST

003364
003366
003372
003376
003402
003410
003414
003420
003424
003430
003434
003440
003444
003450
003454

003460
003464
003470
003474
003476
003504
003512
003516
003520
003522
003522
003524
003526
003530
003532
003534
003542
003546
003550
003552
003554
003556
003560
003562
003564
003566
003570
003572
003574

000005
005037
105037
005237
013777
104402
104402
104411
104402
104411
104402
104411
104402
104411
013700

013720
013720
005337
001017
112737
013737
013701
001406
000005

004711
000240
000240
000240
000240
012737
000137
000001
006
001404
000001
004
001374

000001
006
001230
000001
006
001232

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

391

JEOP:

175570

001230
001232
001314
000377
001310
000042

001327
001314

$ENDAD:

010206
010206

002
002

002

001214

RESET
CLR
CLRB
INC
MOV
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
MOV

MOV
MOV
DEC
BNE
MOVB
MOV
MOV
BEQ
RESET

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
JMP
1
XCSR:
BYTE
DM(SR
XVEC:
1
BYTE
DMRVEC

XPASS:

XERR:

1
.BYTE
PASCNT
1
BYTE
ERRCNT

LSTERR
ERRFLG
PASCNT
PASCNT,aDISPLAY
LMEPASS
,MCSRX
,XCSR
JMVECX
,XVEC
JMPASSX
,XPASS
,MERRX
,XERR
MILK,RO

PASCNT, (RO)+
ERRCNT, (RO) +
SAVNUM
RESTRT
#377,QV.FLG
DMNUM, SAVNUM
are2 Rl
RESTRT

;MAKE THE
WORLD CLEAN AGAIN.
:CLEAR LAST ERROR P(
:CLEAR ERROR FLAG
:UPDATE PASS COUNT
;DISPLAY PASS COUNT
:TYPE END PASS
:TYPE (SR
;SHOW IT
;TYPE VECTOR
;SHOW IT
:TYPE PASSES
;SHOW IT
:TYPE ERRORS
;SHOW IT
:GET POINTER TO PASS COUNT

;STORE PASS COUNT FOk THIS DMC11
:STORE ERROR COUNT FOR THIS DMC11
;ARE ALL DEVICES TESTED?
:BR IF NO.
;SET THE QUICK VERIFY FLAG.
;RESTORE THE COUNT
:CHECK FOR ACT=11 OR DDP
:1F NOT, CONTINUE TESTING
;STOP THE SHOW=-CLEAR THE WORLD

PC,(R1)

#CYCLE ,RETURN
CYCLE

6,2
4,2

6,2

:SCOPE LOOP AND INTERATION HANDLER

%33
392
393

SEQ 0029

003576
003602

004737
010016

007734

.SCOPE: JSR
MOV

PC,CKSWR
RO, (SP)

:CKECK FOR SOFT SWR
:SAVE RC ON THE STACK

MACY11 30A(1052 )
07-JUL-80C
1
E.PI
15:29
01-JuL-8
0
(ZDM

13:53 PAGE 30
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

(ZDME

003604

032777

040000

004000

001325
001224
001220
000020
001216

1413

1414
1415
1416

1%:

001222
2%:

175264

003734

;BR IF NO (LOCKED ON TEST)

BR
BIT
BNE

2%
#SW11,aSwR
2%

;G0 TO NEXT TEST
;DELETE ITERATION?
;BR IF YES

BEQ
INC
CMP
BLOS

2%
LPCNT
LPCNT, ICOUNT
3

TSTB

001404

1417

BRW:

DONé:

000000

CLRB
CLR
CLR
MOV
MOV

MOV

POP2SP

MOV
JMP
1407
437

DONE

QV.FLG

ERRFLG
LPCNT
LOCK
#20,1COUNT
NEXT,RETURN

(SP),R0O

DMCSR,R1
aRE TURN

;WAS

TKCSR DONE

;YES,

SET?

CLEAR FLAG

(QUICK PASS)

;HAVE PASSES BEECOMPLETED?

;BR IF QUICK PASS.
;UPDATE ITERATION COUNTER
:ARE ALL ITERATIONS DONE??
:BR IF NOT YET
;PREPARE FOR NEW TEST
;START ICOUNTER AT 0

;RESET ITERATIONS
;GET NEXT TEST

:POP RO OFF OF THE STACK
:FAKE AN '‘RT]"

:R1 CONTAINS BASE
:GO DO THE TEST

DML

ADDRESS

;CHECK FOR FREEZE ON CURRENT DATA
003736
003742
003750
003752
003756
003760
003764

004737
032777
001405
005737
001402
013716
000002

007734

001000

175232

.SCOP1:

JSR

#5W09,aSuWR

TST

LOCK

MOV
RTI

LOCK, (SP)

BEQ

001220

BEQ

001220

1%:

PC,CKSWR

BIT

;CHECK

FOR

SOFT

;BR

NOT

SET.

;1S SW09=1(SET)?
IF

;GOTO THE
;G0 BACK,

SWR

ADDRESS

IN LOCK.

;TELETYPE OUTPUT ROUTINE

000002
000002
010144

000002

010000

175164

14642
1443

005672

1444
1445
1446

175154

1447

.TYPE:

MOV

ADD
TST

1%:

1441

1448
1449

175342

—

1409
1410
1411
1412

1407
1408

;"'LOOP ON THIS TEST'"?
;BR IF NO.
(IF LOCK SWO1=1; THIS LOC =240)
;6GOTO 3%
(IfF LOCK SWO1=1; THIS LOC =240)

(LR

AN
1, 8]

1406

#BIT14,a5WR
1%
3

BEQ

001327
001224
001224

BIT
BEQ
BR
TST

003734

1401
1402
1403
1404
1405

1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440

TIST:

003734

1400

1418
1419
1420
1621
1422
1423
1424
1425
1426

175370

(==
oo

1394
1395
1396
1397
1398
1399

SEQ 0030

2%:

BNE

3%:

RS,=(SP)

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

;SAVE RS ON THE STACK.
;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.

:SOFT SWR MESSAGE?

:IF YES TYPE IT OUT REGARDLESS OF Sw1?2

BIT

#SW12,3SWR

1STB
BPL

(RS)
2%

BPL

:BR [F NO.

4%
(SP)+ RS

:1F NOT ZERO KEEP PRINTING!
END OF QUTPUT., RESTORE RS

BNE

TYPE
1STB

MOVB

175150

004044

MOV

BNE
MOV

;INHIBIT ALL PRINT QUT??

b33

:BR IF NO PRINT QUT WANTED (SwW1Z2=1)

JMCRLF
aTPCSR

;TYPE A CR/LF!
;TTY READY?

(RS)+,aTPDBR

;1S NUMBER MINUS? (MSB=1(BIT17))
;BR IF NUMBER IS PLUS

:PRINT CURRENT (HAR.

CIDME
MACYI1 30A(1052 )
07-JuL-80
2
CZDME .P1
01-JuL=-80 15:129
1450
1651
1452

004046

000002

1453
16454
1455
16456
1457
1458
1459
1460
1461
1462
1463
1664
1465

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

010346
010446
017637
062766
104402
000000
012704
012703
105777
100375
117714
142714
122427

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

004130
004134
004136
004144
004146
004150
004152
004154
004160
004162
004164
004166
004170
004172

105777
100375
017777
005303
001356
012604
012603
104402
010346
010446
000741
012604
012603
000002

1466

1481
1482
1483
1484

004126

001417

004174
004176

010546
010446

1488
1489
1490
1491
1492
149%
1494
1495
1496
1497
1498
1499
1500
1501
1502

004204
004210
004214
004220
004224
004230
004234
004236
004262
004246
004250
004254
004256
004262
004264

012537
012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
1462714

004272
004276

122714
001406

1503

1504
1505

(TYPEOUT, ERROR,

SCOPE, ETC)

;60 HOME
R3,=(SP)

.INSTR:

000004
000002

004072
000004

R4 ,=(SP)
a4 (SP), .MSG
#2,4(SP)

JINSTY:

.MSG:

007630
000007
175074

004200

004270

016605

aTKDBR, (R4)

#200, (R&)
(R4)+, 015

INSTR?

’%:

175054

aTPCSR

aTKDBR,aTPDBR
R3

175046

.INSTE:

MOV
MOV

TYPE
MOV
MOV

%
(SP)+ R4

(SP)+,R3
,MQM

R3,-(SP)

R4 ,=-(SP)

JANSTY

MOV

(SP)+ R}

INSTRZ2: MOV

(SP)+ R4

;RESTORE

RTI]

152405

.PARAM:

000004
004364
004366
004370
004372
004373
000004
007630
000015
000060

000067

000060
000015

R4 ON STA(CK

7 ,RY
aTKCSR
1%

000290
000015

005666

;SAVE

#INBUF R4

175070

175044

;SAVE RY ON STA(K

;CONVERT ASCII STRING TO OCTAL

1485
1486

1487

13:53
PAGE 31
GENERAL UTILITIES

MOV

MOv
MOV

MOV

MOV
MOVB

PARAMY:

MOvVB
MOV

CLR

MOV

(MPB

1%:

RS,-(SP)
R4 ,=(SP)

4(SP) ,RS
(RS)+,LOLIM
(RS)+,HILIM
(RS)+,DEVADR
(RS)+,LOBITS
(RS)+,ADRCNT
RS,4(SP)
RS
# INBUF ,R&

#15, (R4)

BEQ
(MPB
BLT
(MPB

PARERR
«R&) ,#60
PARERR

BI(B
8158
(MPB
BEQ

260, (RG)
(R&)+,RS
215, (R4)

BGT

, 867
(RG)

PARERR

LIMITS

SEQ 0031

CIDME
MACY11 30A(1052)
07-JUL-80
CZDME . P11
01-JUL-80 15:29
1506

004300

1507

004302

1508
1509
1510
}g};

004304
004306
004310
004312

6 3
13:53 PAGE 32
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

006305

ASL

006305

006305
000760
104404
000750

:TEST

1318

004314
004320
004322
004326
004330

}g%}

004334

020537
101373
020537
103770
133705

001365

004366

LIMITS:

004364

004372

004336
004342
004344
004350
004354
004356
004360
004362
004364
004366
004370
004372

}ggg

004374

013704
010524
062705
105337
00i372
012604
012605
000002
000000
000000
000000
000000

004370

CMP
BHI
CMP
BLO
BITB

MOV
MOV
ADD
DECB
BNE
MOV
[0}
RTI
LOLIM:
O
HILIM:
O
DEVADR: 0
LOBITS: O

000002
004373

NUMBER

RS, HILIM
PARERR
RS5,LOLIM
PARERR
LOBITS,RS

IS WITHIN LIMITS

PARERR

016637

DEVADR,R&
RS, (R4)+
#2.RS
ADRCNT
1%
(SP)+,R4
(SP)+,RS

ADRCNT=LOBITS+1

004373

000004

001276

;SAVE PC OF

TEST THAT FAILED AND RO-RS

AR
PR

.SAVOS: MOV

4(SP),SAVPC

:SAVE R7 (PC)

:SAVE RO-RS

1546

004402

010537

001272

1548
1549
1550
1551
}22%

004412
004416
004422
004426
004432

010337
010237
010137
010037
000002

001266
001264
001262
001260

004406

010437

001270

;ggg

155%
1557
1558
1559
1560
1561

TO SEE

1%:

}g:g
1547

PARAM1

;STORE NUMBER AT SPECIFIED ADDRESS

1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536

12:%

RS
1%

BNE

}ggz

1539

ASL
BR
PARERR: [NSTER
BR

1513

1516
1517
1518
1519
1520

ASL

Sv0S5:

MOV

RS,SAVRS

:SAVE RS

MOV
MOV
MOV
MOV
RTI

R3,SAVR3
R2,SAVR?
R1,SAVR1
RO,SAVRO

:SAVE R3
;SAVE R?
;SAVE R1Y
;SAVE RO
:LEAVE.

MOV

R4, SAVR4

:SAVE R4

:RESTORE RO-RS

004434
004440
004444
004450
004454
004460

013700
013701
013702
013703
013704
013705

001260
001262
001264
001266
001270
001272

.RESOS: MOV
MOV
MOV
MOV
MOV
MOV

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

;RESTORE
:RESTORE
:RESTORE
:RESTORE
:RESTORE
;RESTORE

RO
R
R2
R3
R4
RS

SEQ 0032

MACY11 30A(1052)
(ZDME
07-JuUL-80
CZDME .P11
01-JuL-80 1 5:29

004464

004466
004472
004474
004476

104402
010046
010146
010346

O=-=000
-0 —=—=0O
— s i JSCON)
=D e s

>
F

AT ATV
AT AT

LRQRENZETEIFTRIRZE

SCOPE,

ETC)

sLEAVE

.CONVR: TYPE
"CNVRT: MOV

JMCRLF
RO,=(SP)

MOV

RS =(SP)

MOV
MOV
MOV

004714
004712
001416

177770

MOV

000012

ADD

1%:

004712
004714

2%:

MOV
MOvB
Move
MOV

(MPB
BNE
BIC

(LC

WIN S OWWNN
S NWWO
- N = YNNI O N NN
W SNN NN N W N S
W

o
o

(=l=l=]

OO0
—
88338328
OO0OO0O—
D = WA BN VN =2 VAN =3 N =2 N L

ROR

000040

004713

007672
004710

5%:

6%:

#3,CHRCNT
2%
#177400,BINWRD

CHRCNT.RS
#TEMP,RO

177770,
%3
#060,R3
R3,(RO)+
R4
R4
R&

DEC
BNE
MOV
MOvB
DECB
BNE

RS
3%
#MDATA ,R3
-(RO),(R3)+
CHRCNT
3]

BEQ
MOVB
DECB
BNE
CLRB

6%
#040, (R3)+
SPACNT
5%
(R3)

DEC
BNE
MOV

WRDCNT
1%
(SP)+,RS

MOV
MOV

(SP)+,R3
(SP)+,R1

TST8

004713

(R1)+,WRDCNT
(R1)+,CHRONT
(R1)+,SPACNT
a(R1)+ ,BINWRD

R4 .R3

BIC

ROR

4%:

#2,12(SP)

MOV

CLC

004712

a12(SP) ,R1

R4
BINWRD

MOVB
MOV

ROR

007672

R1.=(SP)
R3.-(SP)
Ré.=(SP)

MOV

ADD
MOVB
CLC

000060

O
W

005672

177400

NO WV

RTI

000012
000002
004710
004712
004713
004714
000003

VIV AWV
s

i
ol

il
i

i
il

il
i

e
—

(TYPEOUT, ERROR,

; CONVERT OCTAL NUMBER TO ASCII AND QUTPUT TO TELEPRINTER

1598

oococoocooo

v 3'

PAGE 33

GENERAL UTILITIES

000002

WLD

1562
1563
1564
1565
1566
1567

13:53

TYPE

MOV

RTI

WRDCNT: 0
(HRCNT: 0

SPACNT

+MDATA

(SP)+,R4

(SP)+, K0

SEQ 0033

MACY11 30A(1052)
07-JuL-80
PN
01-JuL-80 15:29

004714

13:53
PAGE 34
GENERAL UTILITIES

(TYPEOUT, ERROR,

SEQ 0034

SCOPE, ETC)

SPACNT=CHRCNT+1
BINWRD: 0

004713

000000

:TRAP DISPATCH SERVICE
;ARGUMENT OF TRAP IS EXTRACTED

;AND USED AS OFFSET TO OBTAIN POINTER
;7O SELECTED SUBROUTINE

wn S

-b

o ooocoocoron
~No ANINININIAD
-

W =000

p >

(Z
2z

004716
004720
004724
004730

004732
004736
004742
004746

011646

162716

017616
006316
042716
062716
017616
000136

000002
000000
177001

.TRPSR: MOV

suB

TRPOK:

001330
000000

(SP),=(SP)

+=PC OF TRAP

(SP)

;MULTIPLY

MOV

a(SP), (SP)

BIC

#177001, (SP)

MOV

a(SP), (SP)

ASL

ADD

JMP

;GET PC OF RETURN

#2,(SP)

#.TRPTAB, (SP)

a(SP)+

;GET TRP

TRAP ARG BY

;CLEAR UNWANTED BITS

;POINTER TO SUBROUTINE ADDRESS

; SUBROUTINE ADDRESS
;GO TO SUBROUTINE

;ERROR HANDLER

004750

004737
032777
001406
105777
100003
112777
032777
001105

021637
001404
011637
105037

104406

011605

007734
010000

CHLT:

174220

000207
020000

XBX:

1%:

000002

53383538882
s

RERVSSERS

(=l =]

N
=
W
= OV

NOWVES

3333883288338

il
i
D
D
il
i
D
i
il
i
-

005076

@TPCSR

STTY READY.

MOVB

#207,aTPDBR

BEQ
MOV
CLRB
SAVOS
MOV

1%
(SP),LSTERR
ERRFLG

BNE
CMP

HALTS
(SP),LSTERR

(SP)

,RS

SUB

#2 RS

ASL
ADD
ASL

R4
(RS) ,R4
R4

(RS) R4

#177001,R4

;BELL ON ERROR?
‘BR IF NO BELL

'DON'T WAIT IF TTY NOT READY.
:PUSH A BELL AT THE

‘BR IF NO PRINT OUT WANTED.
‘WAS THIS ERROR FOUND LAST TIME?

‘BR IF YES
:RECORD BEING HERE
:PREPARE HEADER
*SAVE ALL PROC REGISTERS
‘GET THE PC OF ERROR

:GET ADDRESS OF TRAP CALL
:GET HLT INSTRUCTION
‘MULT BY TWO
:DOUBLE IT
SMULT AGAIN

;CLEAR JUNK
:GET POINTER
;GET ERROR MESSAGE
;GET DATA HEADRER

TSTB

ERRFLG

: TYPE

TST

DATABP

TYPE
TYPE
TST

+JMCRLF
+MCRLF
LOCK

TYPE
TYPE

+MASTEK
JMISTN

BNE

BEQ

CNVRT

(R&) ,DATABP

TYPMSG

TYPDAT

;GET DATA TABLE
HEADREER

;BR IF YES
sDOES DATA TABLE EXIST?
;BR IF YES.

LUTSTN

TTY.

‘DELETE ERROR PRINT QUT?

# .ERRTAB,R4
(R&4)
+ ,ERRMSG
(R&4)+,DATAHD

BEQ

1%:

XBX

#sw1d,aswr

MOV

TYPMSG:

#SW12,aSWR
XBX

BIT

ADD
MOV
MOV

005216

006142
006130
005330

TSTB

BIT
BEQ

BIC

032406
005172
005204
005216
001325

005672
005672
001220

;CHECK FOR SOFT SWR

MOV

177001

1660

PC,CKSWR

BPL

001234
001234
001325

JSR

;SHOW [T

CIDME
MACY11 30A(1052,
07-JuL-80
CZDME.PIN
01-JUL-80 15:29
1674
1675

005140
005144

104402
104411

1678

005162

005737

006217
005322
005672
177777
005172

005737

005204

1676
1677

005150
005154

1679
1680
1681

005166
005170
005172

1683

005174

1682

1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700

1701

1702

1703
1704
1705

1706
1707
1708

1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720

1721
1722

};52

005174

005200
005202
005204
005206
005212
005214
005216
005220
005222
005230
005232
005236
005240
005242
005246
005250
005252

005556
005264

005266

104402
112737

001402
104402
000000
001402
104402
000000
005737
001402
104410
000000
104407
022737
001403
005777
100005
010046
016600
000000
012600
005237

032777

003522

DATABP:
RESREG:
HALTS:

000042

173744

1%:

000002
001232

173706

012706
013701
000177

001216
001200
001404
173674

001214

000002
000001
006
001276
000001
003
001226

005346

DATAMD:
TYPDAT:

002000

005320
005322
005324
005326
005330
005332
005334

005336
005344

005216

032777

001007

012737
000000

TYPE
CNVRT
TYPE
MOVB
ST
BEQ
TYPE
ERRMSG: 0

WRKO.FM:

173716

001411
013737

005336

001325

000400

005274
005276

005304
005310
005314

J
3
13:53 PAGE 35
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

1%:

1728
1729

TYPDAT

DATABP
RESREG

#SENDAD ,a#42
1%
aSWR
EXITER

:BR IF NO
:TYPE
:
DATA HEADER
:DATA TABLE?
;BR IF NO.
: SHOW
:
DATA TABLE
;RESTORE PROC REGISTERS
:1F ACT=11 AUTOMATIC MODE, HALT!!

:BR IF YES

2%
NEXT,RETURN

:BR IF NO
:SET FOR NEXT TEST

BIT

#SW10,aSwWR

MOV
MOV
JMP

:DATA HEADER?

ERRCNT

2(SP),RO

#5W08,aSwWR

BEQ
MOV

;

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

BIT
BNE

002

000024

PFAIL:

000777

MOV
HALT

B8R

};52
1727

BEQ
TYPE
0
TST
BEQ
CONVRY
0
RESOS
CMP
BEQ
TST
BPL
PUSHRO
MOV
HALT
POPRO
INC

DATAHMD

;TYPE PC.
JSHOW T
:GIVE A CR/LF
:NO MORE HEADER UNLESS NO DATA TABLE.
:1S THERE AN ERROR MESSAGE?
;BR IF NO.
:TYPE
:
ERROR MESSAGE

#STACK,SP
DMCSR,R1
ORE TURN

:GOTO TOP OF TEST?

:GOTO NEXT TEST?

JRESET SP
;SET UP R
:GOTO SPECIFIED TEST

2%:
RTI
;RETURN
ERTABO: 1
.BYTE
6,2
SAVP(
XTSTN:
1
.BYTE
3,2
TSTNO
JENTER HERE ON POWER FAILURE
P

002

005350

EXITER:

LMERRPC(
L,ERTABO
JMCRLF
#-1,ERRFLG
ERRMSG
WRKO.FM

#RESTART, 24

:SET UP FOR POWER UP TRAP
:HALT ON POWER DOWN MORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
005350

005350
005356

012737
012706

005336
001200

000024

RESTAR:

MOV
MOV

#.PFAIL,24
#STACK,SP

:SET UP FOR POWER FAILURE
:RESET THE STACK POINTER

SEQ 0035

CIOME
MACY11 30A(1052)
07-JuL-80
CZDME .P11
01-JUL-80 15:29
1730
1731
1732
1733
1734
1735
1736

005362
005366
005372
005376
005400
005404
005410

013701
005037
005237
001375
104402
104411
105037

1738
1739
1740

005420
005422
005424

005011
104412
000177

1737

1741

005414

005430

005037

000001

001404
001416
001416
005675
005430
001325

MOV
CLR
INC
BNE
TYPE
CNVRT
CLRB

DMCSR,R1
TEMP
TEMP
=4
JMPFALL
,PFTAB
ERRFLG

;RESTORE R1
;READY FOR TIMMER
:PLUS ONE TO THE TIMER!
:BR IF MORE TO GO
;TYPE THE MESSAGE
:TELL WHAT TEST TO RETURN TO.
:START CLEAN

(R1)

173564

CLR
MSTCLR
JMP

:CLEAR MAINT BITS
;START CLEAN UP OF DEVICE
:START DOING THAT TEST AGAIN.

001234

1742

005432

005434

001226

003

002

1745
1746

005436
005436

012777

000020

};zz

1747
1748
1749

005444
005446

005450

104414
121111

K
3
13:53 PAGE 36
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

CLR

FETAB:
BYTE

173746

1%:

1750

005450

104414

1752

005454

032777

000020

173730

1756
1757

005466
005466

005474
005502

152777

142777
000002

000100

000300

173712

173704

1761
1762

005504
005504

152777

000002

173674

1751

1753
};gg

1758
};23

1763
1764
1765
1766
1767
1768
1769
};;?

005452

005462
005464

005512
005516
005522
005530
005532
005534
005542
005550

1772

005552

1776
1775
1776
1777
1778
1779
1780
};31

005556
005562
005570
005576
005604
005610
005612
005614

1773

005552

17a§ 005616
1784

1785

005616

005622

121224

001772
000002

013677
062746
032777
001401
000000
152777
142777
000002

013637

062746
152777
027777
142777
005337
001364
000002
000001

013637

062746

DELAY:

173676
000002
000100
000003
000007

000002

ROMCLK
121111

.ROMCLK:

18:

173616
173606
173602

1%:

.TIMER:

#20,3DMPO4

ROMCLK

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;POKE CLOCK DELAY BIT

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _[BUS*11

BIT

#B174,30MPO4
1%

:BR IF NO

BISB

#BIT6,3DMCSRH

;SET MASTER CLEAR

BISB

#BIT1,3DMCSRH

;SET ROMI

MOV

3(SP)+,TEMWP

:PUT TICK COUNT IN TEMP

MOV

3(SP)+, TEWP

:MOVE COUNT TO TEMP

BICB
RTI

3%:

001416

MOV

MOV
ADD
BIT
BEQ
HALT
BISB
BICB
RTI

.DATACLK:

001416

000002
000020
173610
000020
001416

TSTNO

BEG
RTI

LMSTCLR:

SRETURN

3,2

121224

173452

173644
173636

LSTERR

ADD
BISB
CMP
BICB
DEC
BNE
RTI
.BLKW 1

ADD

;1S CLOCK BIT SET?

#BIT6'BIT7,3DMCSRH :CLEAR MASTER CLEAR AND RUN
:RETURN

a3(SP)+,30MPO6
#2,-(SP)
#SW06,aSWR
1%

;LOAD INSTRUCTION IN SEL6
:ADJUST STACK
SHALT IF SW06 =1
:BR IF SW06 =0
:HALT BEFORE CLOCKING INSTRUCTION
#BIT1'BITO,aDMCSRH ;CLOCK INSTRUCTION
#BIT2'BIT1'BITO,3DMCSRH ;CLEAR ROMO, ROMI, STEP

#2,-(SP)
#BIT4L,ADMCSRH
SOMCSR,aDMCSR
#BIT4,aDMCSRH
TEMP
1%

#2,-(SP)

:ADJUST STACK
;SET STEP LU
;WASTE TIME
;CLEAR STEP LU
:DEC TICK COUNT
:BR IF NOT DONE
:RETURN

:ADJUST STACK

SEQ 0036

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME.PT
01-JuL-80 15:29
1786
1787

1788
1789
1790
1791

005626
005626

005630
005632
005640
005642

021364
032777
001772

005642
005644
005646
005654
005656
005662

005664

104414
021364
032777
001372
005337
001361
000002

1800
(2)
(2)

005666
005672
005675

020040
005015
377

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

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

(2)
(2)

(2)

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

:g;

(2)

005733
005755
005760
006005
006031
006043
006072
006100
006106

006117
006130
006142
006144
006217
006224
006263
006322
006374
006450
006510
006526
006547

006704
007016
007054
007114
007154
007205
007215
007223
007277
007 gg
73
007340
007454
007540

377
377
047377
377
377
377
051503
042526
040520

105
042524
000052
051777
120
020212
377
020212
026777
044377
041777
053377
377
044777

053777
051777
051777
044777
047377
377
116
377
377
024040
024040
042377
053600
052200
007602

000002

173552

”

ROMCLK
021364

BIT

BEQ
ROMCLK
021364

173536

MQM:

BNE

020122
020104

051122
052123

042504
052523
052123
045503
000040
000040
051505
051117
047040

052105
035103
020040

051440
000040
020040

026455

020040
050040
053517
051123
041505
051102
020106
044510
044527
044527
020123
020117
051412
053505
042377
054105
046504
046513
041515
044510

050131

020040
020103
046440
040440
047524
050040
046504
044103
041524
041524
044124
042504
051127
020077
041515
042520
024503
024503
030461
044103

020105

LASCIZ

:1S PGM CLOCK BIT CLEAR?

#2,30MPO4

BNE
DEC

:BR IF YES

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

;1S PGM CLOCK BIT SET?

2%
TEMP

SEQ 0037

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _[BUS* REG11

#2,3DMPO4

BIT

RTI

047105
000122
020117
047111
042524
047514
035122
035103
051523

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

001416

000077
000
053520

PAGE 37

1%:

104414

1792
1793
1794
1795
1796
1797

};gg

13: 53

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

MCRLF:
MPFAIL:
MEPASS:
MR:
MERR2:
MERR3:
MTSTPC:
MLOCK:

LASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

2>
<151
<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CZDMF
/
<377>/R/
<377>/NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC-/
<377>/LOCK ON SELECTED TEST/

MNEW:

.ASCIZ

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

.ASCII
ASCII

<212>/
<3772/

NUM:

ASCIZ
LASCIZ

<377>/==m===
=mmeme smecee cmecee
<377>/HOW MANY DMC11'S TO BE TESTED?/

CRAM:
MODU:
LINE:
CLE

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

MCSRX:
MVECX:
MPASSX:
MERRX:
MTSTN:
MASTEK:
MERRPC:

XHEAD:

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

ASCII
CSR:
VEC:
PRIO:

CONN:
NOACT:
SWMES:
SWMEST:
CONERR:
CNERR:
DMCM:
KMCM:

SPEED:

MV3S:

LEVEN

LASCIZ
ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

.ASCIZ

.ASCII
"ASCIZ

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/+/
/PC:

<212>/

MAP OF DMC11 STATUS/
eeeccccccccccccca-- /

CSR

STATI

STAT?

STAT3/

aceeee /

<377>/CSR ADDRESS?/
<377>/VECTOR ADDRESS?/
<377>/BR PRIORITY LEVEL? (4,5,6,7)?/

<377>/1F DMC HAS CRAM (MB204) TYPE “'y'', IF CROM (M8200) TYPE '‘N'' 2/
<377>/WHICH LINE UNIT? IF NONE TYPE ''N'', IF MB201 TYPE '"1'', IF M8202 TYP
<377>/SWITCH PAC#1 (DDCMP LINE #)?/
<377>/SWITCH PAC#2 (BM873 BOOT ADD)?/
<377>/1S THE LOOP BACK CONNECTOR ON?/
<377>/NO DEVICES ARE SELECTED/
<377><12>/SWR= /
/NEW? /
<377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS
<377>/EXPECTED FOUND/
/ (DMC) /

PC: /

/7 (kmC) /

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

<200>/WHICH MODEM TYPE, TYPE 'D'' FOR DMC11-DA (RS282C),OR/
<200>/TYPE "‘F" FOR DMCi1-FA (v.35) ? /

CZDME
MACY11 30A(1052)
07-JUL-80
CZDME .P11
01-JUL-80 15:29
(2)
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812

007602
007604
007606
007610
007612
007614
007616
007620
007622
007624
007626

1815
1816

007630

000005
006
001246
006
001250
006
001252
006
001254
006
001256

M3
13:53 PAGE 38
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

XSTATQ: §
.BYTE
TEMP1
.BYTE
TEMP?2
.BYTE
TEMP3
.BYTE
TEMP4
BYTE
TEMPS

003

003
003
003
002

1824

1825
1826
1827

1828
1829
1830
1831
1832
1833
1834

1835

1836
1837

1838
1839

1840
1841
1842

1843
1844

1854
1855

6,3
6,3
6,2

:BUFFERS FOR INPUT=-QUTPUT

007672

000000
007672

INBUF:
.=.+40

000000
007734

MDATA:
.=, +40

0
0

:ROUTINE USED TO CHANGE SOF TWARE

SWITCH

;REGISTER USING THE CONSOLE TERMINAL

007734
007742
007744

007750
007752
007760
007766
007770
007776
010000

010002

010004
010006

010014
010016

010022

022737
001077
105777

100003
012737
022777
001404
022777
001061
010246
010446
012737

005002
012704

177777

000007
000207

003734

171220

177777
177777

104402

007215

004737

010046
010050
010054
010056
010062
010064
010070
010072

00142«
022703
001416
022703
001754
022703
001762
005004

042703
006302

2%:

171210
1%:

007205

010036

CKSWR:

171234

104402

104411
010200

010074
010100

001202

010346

010026
010030

010032

000176

010146

1845 010042 02270 000015
1846
1847
1848
1849
1850
1851
185§
1853

6,3

.SVEN

}g}f

1817
1818
1819
1820
1821
}ggg

6,3

000012
000025
000007

177770

010144

CMP
BNE
TSTB

BPL
MOV

#SWREG, SWR
CKSWRS
aTKCSR

;1S THE SOFT SWR BEING USED?
:BR IF NO
;1S DONE SET?

R3,=-(SP)

;STORE R3

CMP
BNE
MOV

2%
#-1,DONE
#7,3TKDBR
13
#207,3TKDBR
CKSWRS
R2,=(SP)

MOV
MOV

R4, =(SP)
#-1,SWFLG

CMP

BEQ

MOV

CKSWR1: CLR
MOV

TYPE

CKSWR2: CNVRT
SOF TSW

CKSWR3: TYPE
(KSWR4: JSR

R2
#-1,R4

,SWMES
, SWME S

PC, INCHAR

:GO ON IF NOT SET
:IF DONE SET, SET FLAG
:WAS CTRL G TYPED? (7 BIT ASCID)
:BR IF YES
:WAS CTRL G TYPED? (8 BIT ASCID)
:BR IF NO
:STORE R2
:STORE R4
:SET SOFT TYPE OUT FLAG

;CLEAR NEW SWR CONTENTS
;SET FLAG TO ALL ONES

;TYPE "'SWR= "'

;TYPE OUT PRESENT CONTENTS
;OF SOFT SWITCH REGISTER

:TYPE "NEW?
'

;GET RESPONSE

CMP

15,R3

‘WAS IT A CR?

BIC
ASL

#172770,R3
R2

;1T MUST BE A DIGIT SO CLR FLAG
SONLY 0=7 ARE LEGAL SO MASK OFF BITS
SSHIFT R2 3 TIMES

BEQ
CMP
BEQ
CMP
BEQ
(P
BEQ
CLR

°s
#12,R3
‘s
#25,R3
CKSWR1
#7,R3
CKSWR4
R4

:BR IF YES
:WAS IT A LF?
:BR IF YES
;WAS IT CTRL U?
:BR IF YES(START OVER)
:1F CNTL G GET NEXT CHAR

SEQ 0038

o l“NONOng

ASL
ASL

002002
171052

010144

000006

4%:
5%:

6%:

il
D
i
il
il
il
el
Py —

W W)
= 2000
&~

006302
006302
050302
000752
012766
005704

N 3
13:53 PAGE 39
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

purd

33333

W =00V~

VAL

©o 0o 0o 0o

PN
————
Y

———————

07-JuL-80
MACY11 30A(1052)
(Z DME
01~ JUL-80 15:29
94 DME.P11

BIS
BR
MOV
TST
BNE
MOV
CLR
MOV
MOV
MOV

R2
R2

R3,R2
CKSWR4
#.START,6(SP)
Ré
6%
R2,3SWR
SWFLG
(SP)+,PR4
(SP)+,R3
(SP)+,R2

000207

(KSWRS: RTS

SWFLG:

INCHAR:

TSTB
BPL
MOV

ATKCSR
A
@TKDBR,R3

BPL
MOV

)
R3,aTPDBR

010144

000000

1872
1873
18764
1875
1876
1877
1878
1879

010146
010152
010154
010160
010164
010166
010172
010176

105777
100375

017703
105777
100375
010377
042703
000207

1881
1882
1883

010200
010202
010204

000001
006
000176

171032
171026
171024

TSTB

171020

000200

002

aTP(CSR

BIC

#BIT7,R3

1
BYTE

6,0

RTS

SOFTSW:

SWREG

;ADD LAST DIGIT
:GET NEXT CHARACTER
;LF WAS TYPED SO GO TO START
;1S FLAG CLEAR?
:IF NOT DON'T CHANGE SOFT SWR
:1F YES THEN WRITE NEW CONTENTS TO SOFT SWR
:CLEAR TYPEOUT FLAG
;RESTORE Ré&
:RESTORE R3
;RESTORE R2
sRETURN

SEQ 0039

MACY11 30A(1052)
07-JuL-80
PN
01-JuL-80 15:29

B &
13:53
PAGE 40
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

SEQ 0040

"ROUTINE USED TO "‘CYCLE'' THROUGH UP TO 16 DMC11'S

“THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
;AND RUNS THE SPECIFIED DMC11°'S.

THIS ROUTINE

*MUSTe

005737
001004
104402

001306

CYCLE:

007154

b b
b b o
b o

—

SN SZREJR BRFSRAIW 33
o0

OOgOOO eSS
~
o
[« 3 -.8_00 - 8u8umumu----¢~
w

~N
~

b ob cb b ob ob ab b ob ob
obob ob ob

b ab b

000000000000

bbb b

RRRRR i~

ebabtabtababal

R FRRRRRR

bbbl

VAW

VOOV OO0OO0O0O0
NN
N
U
AN

354

==l

328238 3
NO VNS WN—=O
~N =S OOV

8000000000000
POND) b b b b e d d ad d h

<
b
il
D
il
S
b
D
D
i
i
il
D
D
D
D
i
D
D

b
il
il
i
D
il
D
-

340

001316
001316
000004
000010
001700

001322
001320
001320

001500
001702
001316

001320
001322
001306

001320
001322
001404
001374
177000

001366
001370
001372
001230
001232
000002
001404
001406
001406
001410
001410
001412
001412
001414
001374
001376

DMACTY
1%
LNOACT

*NO DMC11%S SELECTED!''

BR
cLe

)

‘DISQUALIFY CONT. SW.
:CLEAR PROC. CARRY BIT.

2%:

001412
001414

001376

001236

ADD

210, CREAM

001402

#e MILK

JARE ANY DMC11°'S TO RE TESTED?
‘BR IF OK.

:STOP THE

SHOW.

*UPDATE POINTER
“CATCH CARRY FROM RUN

:UPDATE POINTER

:UPDATE ADDRESS POINTER.

CMP
BNE

#DM.MAP+200, CREAM
2%
:KEEP GOING: NOT ALL TESTED FOR.

BIT
BEQ

RUN,DMAC TV
1%

MOV
MOV

#DM.MAP,CREAM
#CNT.MAP,MILK

:RESET ADDRESS POINTER.
:RESET PASS COUNT POINTER

MOV
MOV
MOV
MOV

CREAM,RO
MILK,R2
(RO)+,DMCSR
(RO) ,DMRVEC

:GET ADDRESS POINTER
:GET PASS COUNT POINTER
:LOAD SYSTEM CTRL. REG
*LOAD VECTOR

MOV
MOV
MOV
MOV
MOV
MOV

(RO)+,STATI
(RO)+,STAT?
(RO)+,STAT3
(R2)+.PASCNT
(R2)+,ERRCNT
#2,R0

:LOAD
:LOAD
:LOAD
:LOAD
;LOAD
:SAVE

MOV
INC
MOV
INC

00141C

000002

RUN
RUN

BIC

001406

001400

ROL
AD(

ADD

001374

001376
001400
001400
001402

000042

TST
BNE
TYPE

HALT

b cb o

SOOOOOOOOO
ORI
NN
~
WRONNON) = 2O
>~ gNObNO SO0

[el=l=1" BNelelelelele-ENelelelelelelelelelelelelelelelelelelelelelelelelolelelelelelaleolole
le]

;BE RUN FIRST BEFORE ENTERING THE DIAGNGSTIC FOR THE
;SETUP NECESSARY.

#177000,0MRVEC

:1S THIS ONE ACTIVE?
:BR IF NO

:CLEAR UNWANTED BITS
STAT1
STAT?
STAT3
PASS COUNT
ERROR COUNT
CORE THIS WAY'

MOV
ADD
MOV
ADD

DMCSR,DMCSRH
DMCSRH
DMCSRH,DMCTL
DMCTL
DMCTL ,DMPO4
RO, DMPO4
DMPO&
, DMPO6
RO,DMPO6

MOV
ADD
MOV
ADD
MOV
ADD

DMRVEC,DMRLVL
RO, DMRL VL
DMRLVL ,DMTVEC
RO,DMTVEC
DMTVEC,DMTLVL
RO,DMTLVL

:PTY LVL
;
:TX VEC
;
- TX LVL

BIT
BEQ

#SWO1,STRTSW
7%

;1S TEST NO. SELECTED
‘BR If NO

7Y,

:RUNNING

[N AUTO MODE?

VIV NNV
NIV

gWV‘WNNNN—.
-‘—02
=00 SH~NOOSO

il
D
il
i
D
D
D A
D
D
D

001045

104402
104403

13:53
PAGE 41
GENERAL UTILITIES

BNE

005672

TYPE

INSTR
MTSTN
:ARAH

006130
104405

BYTE
.BYTE

012526

e .

elelelelelelelelelalalel=]

[elelelolelelelelelelelelelolelelalalalelelolelelelo R

MACY11 30A(1052 )
07-JuL-80
1=JUL-80 15 129

el
—

—

000004

104402

005666

012737
013701
000177

012526
001404

000730

0
1

6%:

170354

7%:

8%:

JMCRLF

#1ST1,RO

MOV

(PC)¢+,a(PC)e

CMP

:BR IF YES
JGET

TEST NO.

(PC)+, (RD)

;CMP FIRST WORD TO 12737

BNE

:BR IF NOT SAME

BNE
(MP
BNE

6%
#TSTNO,4(RO)
6%

;BR IF NO
:1S LAST WORD 0OKk?
sBR IF NO

TYPE

TSTNO,2(R0O)

RO,RETURN

:DOES TSTNO MAT(H?

;IT

IS A LEGAL

BIC
BR
ST
CMP
BNE

#SWO1,STRTSW
8%
(RO) +
RO,#TLAST+10
5%

;POP RO
;AT END YET?
;BR IF NO

;TRY AGAIN

MOV

#TST1,RETURN

JMP

SRE TURN

TYPE

001214

SEQ 0041

(TYPEOUT, ERROR, SCOPE, ETC)

MOV

CMP

001236

1000
TSTNO

MOV

026342

001226

000002

10604
r——

000002

001214
005755

10574

010620

001226

MOV

,MQM

DMCSR,R1

:YES

ILLEGAL

TEST SO DO

TEST

NO.

:PREPARE RETURN ADDRESS

:R1 = BASE DMC11 ADDRESS
:GO START TESTING.

;ROUTINE USED TO ''AUTO SIZE'' THE DMC11
;CSR_AND VECTOR.
NOTE:

:
3

CSR MAY BE ANY WHERE

Sa828
§—‘~\fl~\fl

RESET

IN THE

ADDRESS RANGE (160000:164000)

AND THE VECTOR MAY BE ANY WHERE

FLOATING VECTOR RANGE (300:770)

AUTO.SIZE:

O —=O
OO [« X 31, N
BB N-2ONONO
VO WWWNO WO W
COWNNNINNNN

NNNNY

(=lelelele]

D e

D el

OO OONNNOO

ZgFassess
35388

s =D —b

[elelolelelolelolelelelelele
o)

THE

FLOATING
IN THE

; INSURE A BUS INIT.

001500

(SRMAP: MOV

#DM_.MAP,R2

001700

CMP
BNE
CLR
MoV
(LR

#OM_END,R2
1%
DMNUM
#DM MAP ,R2
DMACTV

sALL DONE?
:BR _IF NO
;SET OCTAL NUMBER OF DMC11'S TO 0
;R2 POINTS TO DMC MAP
;CLEAR ACTIVE

JMP
MOV

7%
M, TEMPS

;1F NO SKIP QUESTIONS
;START WITH 1

1%:

001310
001500
001306
000001

001236

011460
000001

001256

CLR

BIT
BNE

INSTR
NUM

(R2)+

#SW00,STRTSW
+6

;LOAD MAP POINTER.
;JERO ENTIRE MAP

;QUESTIONS?
;BR IF YES

(2 DME
MACY11 30A(1052)
0;°JUL-80
(2 DME .P11
01-JuL-80 15:2
1996
1997

010720
010722

104405
000001

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2026
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051

010730
010731
010732
010740
010744
010746
010750
010754
010756
010760
010762
010764
010766
010770
01077
010772
010776
011000
011002
011004
011006
011010
011012
011013
011014
011020
011022
011024
011030
011034
011036
011042
011044
011050
011052
011054
011056
011062
011064
011066
011070
011072
011074
011076
011100
011104
011110
011112
011116
011120
011122
011124

000
001
013737
104402
104410
012210
005237
104403
006510
104405
160000
164000
001254
000
001
013722
104403
006526
104405
000000
000776
001254
000
001
013712
104402
006547
004737
022703
101014
022703
103411
012704
006303
005304
001375
042703
050312
000403
104402
005666
000752
104402
006606
004737
022703
001427
022703
001403
104402
005666
000763

1998
1999

010724
010726

13:53

PAGE 42

GENERAL UTILITIES (TYPEOUT, ERROR,

SCOPE, ETC)

?ARAH

000020
001252

001252
005672

001310

12%:

16.
TEMP3
.BYTE

MOV
TYPE

+MCRLF

CONVRT

WHICH

001256

INC
INSTR
(SR

1
TEMP3 ,DMNUM

TEMPS

;DMNUM = HOW MANY
;TYPE WHICH DMC IS BEING DONE
;TEMPS IS WHICH DMC

PARAM
160000
164000
TEMP4

.BYTE
.BYTE

0012564

MOV

INSTR
VEC

TEMP4L, (R2) +

;STORE CSR IN MAP

PARAM

776

TEMP4

001254

10%:

012474
000024
000027
000011

50%:

8%:

000116

JSR
(MP
BHI
CMP
BLO

PC,INTTY

MOV
TYPE
PRIO

TEMP4, (R2)

#24 ,R3

;STORE VECTUR IN MAP
;ASK WHAT BR LEVEL

;GET RESPONSE

‘BR IF LESS THAN 4
:BR IF GREATER THAN 7
sR4 = NUMBER OF SHIFTS

MOV
ASL

170777

012474
000131

.BYTE
.BYTE

DEC
BNE
BIC
BIS
BR

#170777,R3
R3, (R2)
8%

:SHIFT R3 LEFT
;DEC SHIFT COUNT
;BR IF NOT DONE
;BIC UNWANTED BITS
;PUT BR LEVEL IN STATUS MAP
; CONTINUE

B8R

108

;RESPONSE IS OUT OF LIMITS
; TRY AGAIN

JSR
CMP

PC,INTTY

;DOES DMC HAVE CRAM?
;GET REPLY

BEQ
CMP
BEQ

9%
#116,R3
40%

sNO
;NOT

A Y ORN

;ASK

AGAIN

TYPE
MQM
TYPE
CRAM

TYPE
MQOM

21581 ,R3

JYES

SEQ 0042

(7 DME
MACY11 30A(1052 )
07-JUL-B0
CZDME.P1N
01-JuL-80 15:29

205
2053
2054

0111%6
011130
011132

104402
007340
004737

2056
2057
2058
2059
2060
2061

011142
011144
011150
011152
011154
011156

001414
022703
001403
104402
005666
000763

13:53

2066
2067
2068
2069
2070
2071
2072

2073
20764
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085

011160
011166
011170
011174

011174
011176
011200
011204
011210
011212

011216
011220
0112264
011226
011230
011232
011234
011240
011242
011244
011250
011252
011254

052762
000402
052712

40$:

012474

104402
006704
004737
022703
001417
022703

001412
022703
001403
104402
005666
000760
052722
022222
000477
052712
104402
007114
004737

2086 011260 022703

2087
2088
2089
2090

2091
2092
2093
2094
2095

2096
2097
2098
2099
2100

011264
011266
011272
011274

011276
011300
011302
011306
011314

011316

001406
022703
001436
104402

005666
000763
052722
032762
001027

000114

000002
100000

010000

32%:

020000

31%:
308

012474

000131

17%:
4408

21064

011334

042762

000004

2107

011344

122703

000106

012474
000104

000002

16$
#114,R3
41%

“BR IF REMOTE
SIS IT L
‘BR IF LOCAL

BIS
BR
BIS

408
#B1T1,4(R2)
16%
#BIT1S,(R2)

BEQ
CMP
BEQ
TYPE
MQM
BR
BIS
CMP
BR
BIS
TYPE
CONN
JSR

PC,INTTY
#2183
30
#22,R3
318
#116,R3
s
168
#BIT12,(R2)+
(R2)+,(R2)+
33¢
#BIT13,(R2)
PC,INTTY

#1%1,R3

17%
#116,R3
18%

(1S IT R

STRY AGAIN
‘SET BIT1 IN STAT3
:CONT INUE
;SET BIT 15 IF CRAM

ASK WHICH LINE UNIT
;GET REPLY
sreges

o &

SN
:1F NOT A 1,2 OR N TYPE """
“TRY AGIAN
:SET BIT 12 IN STATZ2 [F NO LU
:POP OVER STATZ2 AND STAT3
:SET BIT 13 IN STAT? IF MB202
;ASK IF LOOP-BACK IS ON
;GET REPLY

MQM
BR
BIS
BIT
BNE

308
#BIT14,(R2)+
#BIT13.-2(R2)
19%

TYPE
My 35
JSR
(MPB
BNE

: ASK QUESTION
: ABOUT MODEM TTYPE
PC,INTTY
; GET ANSWER.
#'D,R3
S 1S IT DMC11-DA?
462%
: NO.

BIC

#B112,2(R2)

: YES INDICATE IT IN STAT3

(MPB

#'F,RY

1S IT A DMCI1=FA (v.35)?

213}

442%:

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

#1232 ,R3

CMP

177776

PC,INTTY

CMP

BEQ
CMP
BEQ
TYPE
MOM
BR

BEQ
(MP
BEQ
TYPE

000116

040000
020000

TYPE
SPEED
JSR

TYPE
MODU
JSR
(MP
BEQ
(MP

000116

2101
g:gg

000411

9% :
168:

000022

104402
007454
004737
122703
001004

011342

41%:

012474
000021

011316
011320
011322
011326
011332

%}gg

000004

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

2055 011136 022703 000122

2062
2063
2064
2065

PAGE 43

441%

:iF NOT Y OR N TYPE """
“TRY AGAIN
:TURNAROUND IS CONNECTED
: IS IT A M8202?
; YES, IGNOR.

SEQ 0043

07-JuL-B0
CIOME
MACY1) 30A(1052 )
(ZDME .P17
01-JuL-80 15:29

%}83

011350

001403

2110

011352

104402

011354
011356

005666
000757

%}}g

011360

052762

2116

011366

2111
%}}g

2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127

011366
011370
011374
011374
011376
011400
011402
011404
011406
011410
0114N

104403
007016
104405
000000
000377
001254
000
001

2129
2130
2131
2132
2133
2134
2135
2136
2137

011416
011420
011422
011424
011426
011430
01143
01143
011434

104403
007054
10405
000000
000377
001254
000
001
113722

011446
011450
011454

001402
000137
000137

2128

2138
2139

2140
2141
2142

2143

2144
2145

2146

2147

2148

011412

011440
011442

011460

011464
011472
011474

011476

011500

2149
2150

011504
011510

2152
2153

011516
011522

2151

21564

011512

011530

000402
042722

113722

005722
005337

012701

012737
005011
001172

000004

040000

18%:

108;

BR
BIC

19%
#BITI4L,(R2)+

INSTR
L INE
PARAM
0
377
TEMP4
BYTE
BYTE

0
1

INSTR
BM
PARAM
0
377
TEMP4
.BYTE
BYTE
MOVB

TEMP4L, (R2)+

:STORE SWITCH PAC IN MAP

0
1
TEMP4, (R2)+

:STORE SWITCH PAC

34
12%
13%

:BR IF DONE
:JUMP IF NOT
: CONT INUE

ST
DEC

2%:

MOV
CLR

7%:

000004
125252

MOV

BNE

000006

(R2)+
TEMP3

#160000,R1

068,04
(R1)
(R1)

CLR

6(R1)

MOV

#B1T10, (RY)

ST
BNE

6(R1)
{1

000006

CLR
MOV

4(R1)
#125252,6(R1)

125252 000004

(MP

#125252,4(R1)

020000

001004
052762
000431
012711

001000

2161

011566

012711

001400

012711

348

011542
011544
011552
011554

2163 011576 022761

#B1T2,2(R2)

BEQ
JMP
JMP

000004

100000

100430 000006

002000

BIS

000002

016472 000006

21%:

NO ASK OPERATER WHATS GOING ON.

BIS

010740
012110

012202

[T,

: REASK QUESTION

338

160000

: YES=TAKE CARE OF

440%

001252

002000

2160 011560 012761

4438

SEQ 0044

MQM
RR

MOVB

001254

012711

052711

&438:

001254

2156
2157
2158
2159

011572

000002

441$:

000006

005061
012761

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

TYPE

005061

005761
001165

PAGE &4

BEQ

005711

2155 011534 022761

2162

13:53

BNE
BIS
BR
MOV

MOV

(MP

BIT13, (R1)

218
#B1T15,2(R2)
22%
#8119, (R1)

2100480,6(R1)

YES V.35, RECORD [N STAT3

: END DECISION POINT,

:NO TURNAROUND

‘POP OVER STAT3
:DEC DMC COUNT

IN MAP

SSET FOR FIRST ADDRESS T0O BE

TESTED

SSET FOR NON-EXISTANT DEVICE TIME OUT
“CLEAR SELO
“IF

DMC11 DMCSR S/B 0

“1F NO DEV ;
“CLEAR SEL6

TRAP TO 4.

IF NO BiT 8 THEN NO DM(C11

:CLEAR SEL&
:WRITE THIS TO SEL®
“WRITE

IT!

:WAS IT WRITTEN?

S1F NO IT IS NOT CRAM
SSET BIT1S IF CRAM

:SET ROM]

:PUT INSTRUCTION IN SEL6

#BIT9'BIT8,
(R1) :CLOCK INSTRUCTION (MICRO PROC PC TO O)
#81710, (RY)

#016472,6(R1)

“SET ROMO

1S 1T LOCAL CROM?

R
I

= =200
W NN
o~
o
O o s00

ocorOCrOrOMONO

010122
012711
005061
012761
052711
012761
052711
122761

001003
052712
000436
032761
001403

~N
oo sSsO

— i s il s i it OO

NNNON

07-JuL-80
5:29

13: 53

016461

000006

77777

000006

000002

000006

001000
000004

122113

000400
021264
000400
000377

000002

VIVOCROMNOONND

005

NN = PNON) = 0NN —
NN=2NIN)
= 2R -

012761

:BR IF YES

22%

‘BR IF YES

#016461,6(R1)

CMP

#-1,6(R1)

BEQ

238

CMP

REQ
BR
BIS

MOV

BIS

(MPB

BNE
gés

CROM?

“NO CROM?

22%
3
#BIT1,6(R2)

‘BR IF YES
‘NOT A DMC
“SET BIT 1 IN STAT3

#8118, (R1)

:CLOCK INSTRUCTION

#8118, (R1)

:CLOCK INSTRUCTION

IT 1S ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS.
R1,(R2)+
:STORE CSR IN CORE TABLE.
#Bi19, (R1)
:CLEAR LINE UNIT LOOP
*CLEAR PORT4
4(R1)
:LOAD INSTRUCTION (CLR DTR)
#122113,6(R1)
#021264 ,6(R1)
#377,4(R1)

.+10
;81‘12'(R2)

;LOAD INSTRUCTION
“1S IT ALL ONES?

:BR IF NO
“IF YES, NO LINE UNIT, SET STATUS BIT

BIS
BR

(R2) ;MB202 ASSUME CONNECTOR
#BIT13'BIT14,
:CONNECTOR ON)
208

BNE

208

‘BR IF M8201 NO CONNECTOR (ON LINE)

BIS

#8118, (R1)

:CLOCK INSTRUCTION(SET DTR)

BIS

#BIT8, (R1)

SCLOCK INSTRUCTION(READ MODEM REG)

BEQ
BIS

208
#B1T14, (R2)

:BR IF NO CONNECTOR
“SET STATUS BIT FOR CONNECTOR

000006

MOV

#021324,6(R1)

000006

MOV
MOV

000004

000100
122113
000400
021264
000400
000010

000004
000006
000006
000004

BEQ
BIT

MOV
MOV

MOV
BIT

+10

#B1T3,4(R1)

#B1T6,4(R1)
#122113,6(R1)

#021264,6(R1)

#BIT3.4(R1)
(R2) +

‘BR IF M8201

*1S MRDY SET

:LOAD PORT4&
:LOAD INSTRUCTION

:LOAD INSTRUCTION
SIS MRDY SET NOW?
:POP POINTER

:PUT INSTRUCTION IN PORT6
#BIT9'BIT8,(R1) :PORT4_LU 15
:STOREDDCMP LINE # IN TABLE
4(R1),(R2)+

BISB

4&(R1),(R2)+

#021344,6(R1)
#BIT8'BIT9,(R1)

:PORT6_INSTRUCTION
:CLOCK INSTR.

(R2)+
(R1)
DMNUM
#20,DMNUM
138
(R1)
6(R1)
#10,R1
#164000,R1

:POP OVER STAT3
*CLEAR ROMI
*UPDATE DEVICE COUNTER
:ARE MAX. NO. OF DEV FOUND?
.
*YES DON'T LOOK FOR ANY MORE
“CLEAR BIT 10
“CLEAR SEL 6
*UPDATE CSR POINTER ADDRESS
SJUMP IF NOT

164000

011472
001306
001310

JMP
CLR
ST

2%
DMACTV
DMNUM

MOV
MOV

R
DMNUM,
R1, SAVNUM

001310

;1S SWITCH A ONE?

MOV
BISB

ST
CLR
INC
CMP
BEQ
CLR
CLR
ADD
CMP

000006
000010

IT REMOTE

#BIT1,4(R1)

000010

001310
000020

:1S

SEQ 0045

BIT

000004

060000

021324
001400
000004
021344
001400
000004

BEQ

000006

010000

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000006

000004

PAGE 45

THIS POINT
MOV
MOV
CLR
MOV

040000
AN b b \ ) b
88-‘00-‘0

022
026

—————
P

W) —=O
OO NN

il il il

022761
001410
022761
001404
000516
052762

§88
iy

[=1=]

SERLRRREIV2ETEIEAR W

NO WV
= OV

d
b

NN—‘—.ddéd—‘.‘—‘-fl—.dd-‘-‘-‘ b
o

NNNNNNNNNNSNNNNY oo oo~
VNS S
NOOWVE
S NWHNNINN = 2O ONNO
O S oo~
rnoosrsocrocoroorNONO
S NSO

il
i

il
il
—
)

—

D i

[elelelolelo]o

001411

12054

ORI AL N LNV NLNL NN
NN NN
NT NN N

30A(1052

01-JuL-80

e lel=l=l=l=l=l=]l=l=l=le]lelelelelelelelelelelelelelelelelelelelolelelelolelolalalalalalelelelele)
— e i il il D il D el D il il D D D Al D D D i D D D s D A
B D D B D el

WN =00~V

SLSLSLSTNTNLNLSTSTST
NS NSNS
SIS SN SN LSS TS S LN LN L
s i
L

MACY11

BEQ

13$%
5%

“STORE BM873 ADD IN TABLE

:BR IF DONE

:WERE ANY DMC11'S FOUND AT ALL?

"ERROR AUTO SIZER FOUND NO DMC11°'S IN THIS SYS.
-SAVE NUMBER OF DEVICES

P11

W N N N N N N N N NN N RO N RO N RO RO NN
VNV
WA 2OV NOWNSWN -0

p >

MACY11 30A(1052)

07-JuL-B0

01-JUL=-80 15:29

012132
01213¢
012140
012144
012146
012150
012156
012164
012170
012174
012176
012200
012202
012206

000241
006137
005237
005301
001371
012737
013737

012210
012212
012214

000001
002
001256

012216
012224

032737
001114

000137
104402
005000
000000
000776
012716
000002

13:53

PAGE 46

4%:

CLC
ROL
INC
DEC
BNE
MOV
MOV
JMP
TYPE
CLR
HALT
BR
MOV
RTI

001306
001306
000006
001306
012216
005760

6%
WHICH:

002
000001

001236

012737
012737
012702
012700
012701
010120
012721

000340
012410
001500
000300
000302

000022
000020

012266
012272
012276
012302
012306
012310
012314
012322
012324

020127
101771
013737
006037
103063
012704
016437
011201
012761

001000

012336
012344
012350
012352
012354
012360
012362
012370

012761
012711
105200
001376
162704
001404
016437
000767

012400

005011

012226
012234
012242
012246
012252
012256
012260

012264

022021

012332 012711

012372

012402
012406
012410
012414
012422
012426
012430

001306
001246

001246

177776

000200

000004

121111
001400

000006

2%:

7%:

012460

177776

052762

005300

000002

062702
000735
051662
042762
016405
006305
006305

000010
000002

6%:

4$:

DMACTV
DMACTV
R1
43
"6, 304
DMACTV,SAVACT
VECMAP
,MERR2
RO
)
8148, (SP)

:BR IF MORE TO GENERATE
‘RESTORE TRAP VECTOR
:SAVE ACTIVE REGISTER
260 FIND THE VECTOR NOW.
*NOTIFY OPR THAT NO DMC11'S FOUND.
:MAKE DATA LIGHTS ZERO
:STOP THE SHOW
:DISABLE CONT. SW.
“ENTERED BY NON-EXISTANT TIME=-OUT.
"RETURN TO MAINSTREAM

2.2
#SW00,STRTSW
5¢

#340,3422
#4$,3#20
#OM.MAP,R2
#300,R0
#302.R1
R1, (RO)+
#4 (R1)+

(ROY+, (R1)+

:SET 10T TRAP PRIO TG 7
:SET 10T TRAP VECTOR
:SET SOFTWARE POINTER
:FLOATING VECTORS START HERE.
:PC OF 10T INSTR.
:START FILLING VECTOR AREA
SWITH .+2; 10T

SADD 2 TO RO +R1

R1.#1000
1%
DMACTV, TEMP1
TEMP1
5%
#12,R4
BRLVL(R4),PS
(R2) ,R1
#200,4(R1)

MOV
MOV
INCB
BNE
SUB
BEQ
MOV
BR

#121111,6(R1)
(R1)
#BIT9'BIT8,
RO
=2
#2,R4
33
BRLVL(R4),PS
7%

:PUT INSTRUCTION IN PORT6
:FORCE AN INTERRUPT
SSTALL
:FOR TIME TO INTERUPT
SGET NEXT LOWEST PS LEVEL
‘BR IF R4 = 0
:MOVE NEXT LOWER LEVEL IN PS
:BR TO DELAY

(R1)

:CLEAR ROMI

BIS
CLR

ADD
BR
BIS
BIC
MOV
ASL
ASL

SEQ 0046

:GENERATE ACTIVE REGISTER OF DEVICES.
SSET THE BIT

CMP
BLOS
MOV
ROR
BCC
MOV
MOV
MOV
MOV

MOV

000002

000002
000007
012462

MOV
MOV
MOV
MOV
MOV
MOV
MOV

CMP

000012
012460

001000

1
.BYTE
TEMPS

VECMAP: BIT
BNE

1%:

000004

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000004
001312

,
012072

#8119, (R1)

#5300,2(R2)

#10,R2
2%
(SP),2(R2)
#7,2(R2)
BRLVL*+2(R4),RS
RS
RS

:BR IF MORE T0 FILL
:STORE TEMPORALLY
:BRING OUT A BIT
‘BR IF ALL DONC
‘R4 IS INDEX REGISTER
:SET PS 10 7

:SET ROMI

"NO INTERUPT ASSUME 300 AT LEVFL S AND FIx DMC11 LATER
‘POP SOF TWARE POINTER
‘KEEP GOING
SGET VECTOR ADDRESS
:CLEAR JUNK
:GET BR LEVEL OF DMC11
SSHIFT LEVEL & PLACES
ST0 THE LEFT FOR THE

lalia

DME
MACY11 30A(1052)
07-JuL=-80
DME .P11
01-JuL-80 15:29

2276
2277
2278
2279
2280
2281
2282
%%gz

012432
012434
012436
012442
012446
012450
012454
012456

006305
006305
042705
050562
022626
012716
000002
000207

2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298

012460
012462
012464
012466
012470

000000
000000
000200
000240
000300
000340

012474
012500
012502
012506
012512
012514

105777
100375
017703
105777
100375
010377

2299
2300
2301

012520
012524

042703
000207

170777
000002
012400
5%:
BPLVL:

166504

166500
166476
166472
000240

2302
2303
2304
2305

ASL
ASL
BIC
BIS
(MP
MOV
RTI
RTS

RS
RS
#170777 ,RS
RS,2(R2)
(SP)+,(SP)+
#3%,(SP)

sSTATUS TABLE

;ALL DONE WITH "'AUTO SIZING''

0
0
200
240
300
340

;LEVEL
;LEVEL
JLEVEL
JLEVEL
;LEVEL
JLEVEL

1STB
BPL
MOV
1ST8
BPL
MOV

aTKCSR
b
8TKDBR,R3
aTPCSR
.4
R3,aTPDBR

BIC
RTS

2306

0
O
4
S
6
7

#BIT7'BITS,R3
PC

012737
012737

000001
012602

MOV
MOV

#1,TSTNO
#TST2 NEXT

2316
2317

2318

012542
012546

166636
000011

CLR
MOV

aDMCSR
#11,R2

2319

012552

005077
012702

012554

021224

012562

042704

gggg

2328

2329

2330

2351

TEST

sesenenenntterraetttnanttne

s
TEST 1
e

012526
012534

2324
2325

;ECHO CHAR
;MASK OFF LOWER CASE
sRETURN

R
R R

2313
2314
2315

2322
2323

:PUT CHAR IN R3
sWAIT UNTIL PRINTER IS READY

;*0UT CONTROL REGISTER READ/ONLY TEST

2310

2321

;WAIT FOR DONE

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
;*BITS ARE IN THE CORRECT STATE

2309

2320

sCLEAR UNWANTED BITS
;PUT BR LEVEL IN STATUS TABLE
;POP 10T JUNK OFF STACK
sSET FOR RETURN

eeRRRRRte
Rttt eerennrnns

2307
2308
23N
2312

4
I
13:53 PAGE 47
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

012556
012566
012572

012574
012576
012600

104414

ROMCLK

021004'<20+11>

016104

000004

MOV

4&(R1) R4

012705
120504

000020

MOV
CMPB

#20,RS
RS.,R4

001401
104("2
104400

000054

BIC

BEQ
HLT
SCOPE

#54 R4
1%
2

sR1 CONTAINS BASE DMC11 ADDRESS
;CLEAR SELO
;SAVE R2 FOR TYPEOUT

sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;PORT4 _LINE UNIT REG 11

;PUT "'FOUND'' IN R4

: CLEAR UNKNOWN BITS

JPUT “EXPECTED'" IN RS
;1S OUT READY SET?
:BR IF YES
;ERROR IN LU 1

;SCOPE THIS TEST

ceenneneerreeennenareernnne

JEST

;*IN CONTROL REGISTER READ/ONLY TEST

envteccvvnvnetrntttnnvnnnne

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

SEQ 0047

MACY11

30A(1052)

07-JuL-80

01-JuL-80 15:29

13:53

PAGE 48

LINE UNIT READ/ONLY TESTS

SEQ 0048

;*BITS ARE IN THE CORRECT STATE

R R
R R
A
Rl

TEST 2

;
012602
012610

012737
012737

000002
012650

012616
012622
012626

012702
104414
021244

000012

012632
012636
012640
012642
012644

042704
005005
120504
001401
104002

000017

012626

012646

016104

001226
001216

TST2:

MOV
Mov

#2,TSTNO
#TST3 NEXT

;R1

MOV
#2,R2
ROMCLK
021004 !<20+12>

000004

MOV

104400

1$:

:PUT "FOUND'' IN Ré

#7,RG
RS
RS .R&
1%
2

SCOPE

ADDRESS

:SAVE R2 FOR TYPEQUT
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
POR74 LINE UNIT REG 12

4(R1),Ré

BIC
CLR
(MPB
BEQ
HLT

CONTAINS BASE DMC11

:CLEAR UNKNOWN BITS
:PUT "EXPECTED'' IN RS
;ARE ALL BITS CLEARED?
:BR IF YES
;ERROR IN LU 12
;SCOPE

;e rtreetreeevrennvnnnnnn

THIS TEST

TEST

:*MODEM CONTROL REGISTER READ/ONLY

eeeevvennenvnnnenenneneenee

TEST

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

~NONW
OV
W
=200V

N
N NN N

NORLRLNLNLNLRL
NN RPNV
RO N

2LLLLLETELY e

[SLSTNT NTNT N1,V

;+BITS ARE IN THE CORRECT STATE

012650
012656

012737
012737

012664
012666

104412
012702

012676

016104

012672
012674

012702
012706
012712
012714
012716
012720

104414
021264

042704
012705
120504
001401
104002
104400

000003
012722

001226
001216

T1ST3:

;

TEST 3

MOV
MoV

#3,1STNO
#TSTL NEXT

:R1

CONTAINS BASE DMC11

000013

MSTCLR
MoV

#13,R2

;MASTER CLEAR DMC11
:SAVE R2 FOR TYPEOQUT

000004

MOV

4(R1),R4

:PUT "FOUND'' IN R4

ROMCLK
021004!<20+13>

000213
000100

1$:

BIC
MOV
(MPB
BEQ
HLT
SCOPE

#213 R4
#100,R5
R5,R4
1%
2

ARl

ADDRESS

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LINE UNIT REG 13
: CLEAR UNKNOWN BITS
:PUT "EXPECTED'' IN RS
;ARE RING, DTR, AND MODEM READY SET?
:BR IF YES
;ERROR IN LU 13
;SCOPE THIS TEST

sekkaretrernrernnnreenvnnnnn

TEST

tenvvnnvnnnnnnnnnteenenener

:«MAINTENANCE REGISTER READ/ONLY TEST

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

1«BITS ARE IN THE CORRECT STATE

;:t!t".""""""Q""Q.ii.tl""Q..'t..'ll"'t't'fi'Q!'Q'l't

012722

012737

012736

104412

012730

012737

000004

013024

001226

001216

T1ST4:

MOV

MSTCLR

#4,TSTNO.

#TSTS, NEXT

:R1 CONTAINS BASE DMC11 ADDRESS

;MASTER CLEAR DMC1

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME.P11
01-JuL-80 15:29
2388
2389
2390

012740
012744
012746

2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
%zgg

012754
012760
012764
012772
012774
013002
013004
013010
013014
013014
013016
013020
013022

2391

012750

13:53 PAGE 49
LINE UNIT READ/ONLY TESTS

012702
104414
021364

000017

042704
012705
032737
001004
032737
001004
042704
042705

000206
000051
020000

001366

040000

001366

016104

000004

000040
000040

2%:
3%:

120504
001401
104002
104400

1%:

2406

SEQ 0049

MOV
”7,R2
ROMCLK
021004!<20¢17>

;SAVE R2 FOR TYPEOUT
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LINE UNIT REG 17

BIC
MOV
BIT
BNE
BIT
BNE
BIC
BIC

;CLEAR UNKNOWN BITS
;PUT "EXPECTED'' IN RS
;1S LU AN M8202 OR M8201?
;BR IF M8202
;CONNECTOR??2?
;BR IF M8201 WITH CONNECTOR
sMASK OFF SI BIT IF M8202 OR M8201, NO CONNECTOR
;S1 BIT IS UNKNOWN

MOV

4(R1) ,R&

(MPB
BEQ
HLT
SCOPE

RS,R4
1%
2

#206,R4
#51,RS
FRIT13,STATT
2%
#BIT14,STATI
3%
#40,R4
#BIT5,RS

;PUT "FOUND'' IN R4

;ARE SI AND ICIR SET?
;BR IF YES
;ERROR IN LU 17
sSCOPE THIS TEST

2407

errneretrrerrerrneeennnnnns

2408

;*LINE UNIT REGISTER WRITE/READ TEST

TEST

aennseanncerannvvennnvtnnne

2409

;*SET BITS IN LU REGISTER 12, VERIFY IT IS SET

2611

MOV
MOV
MOV

#5,1STNO
#TSTE NEXT
#1%,L0CK

MSTCLR
MOV
MOV

#12,R2
#40,4(R1)

2410

;*CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR

24612

2615
2416
2417
2418
2419
2620
26421

2622
2423
2624
2625
2426
2427
2428
2429

2430
26431
2432
2433
2634

2635
2636
2437
2438
2439
2440
2641
2642
2443

013024
013032
013040

012737
012737
012737

013046
013050
013054

104412
012702
012761

013062
013064
013066
013070
013072
013076
013102
013106
013110
013112

013114

013116
013124

013130
013132
013134
013136
013140
013142

013146
013152
013154

104414
122112
104414
021245
012705
116104
042704
120504

000005
013164
013054
000012
000040

001226
001216
001220

000004

104401

104414
122112
104414
021245
005005
116104
042704
120504
001401

1%:

000040
000005
000337

001401
104003

012737
005061

T1STS5:

0131246
001004

000005
000337

001220

2%:
38:

ROMCLK
122112
ROMCLK
021245
MOV
MOVB
BIC
(MPB
BEQ
HLT

SCcoP1

#40,RS
5(R1) ,R4
#337 ,R4
RS .R4
2%
3

MOV
CLR

#3%,L0CK
4(R1)

BIC
(MPB
BEQ

RS
S(R1),R4
#337 R4
RS ,R4
4

ROMCLK
122112
ROMCLK
021245
CLR
MOvVB

;R1 CONTAINS BASE DMC17 ADDRESS
;MASTER CLEAR DMC11
sSAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BITS IN LU-12
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-12
;PUT "EXPECTED'" IN RS
;PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS
;1S BITS SET?
;BR IF YES
;ERROR, BIT 5 IS NOT SET

;SCOPE SUBTEST (Sw09=1)
;NEW SCOP1
;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;CLEAR BIT 5 IN LU-12
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:READ LU-12
;PUT "EXPECTED'' IN RS
;PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS
;1S BITS CLEAR?
;BR [F YES

MACY11 30A(1052)
CZDME
07-JuL-80
C ZDME P11
01-JuL-80 15:29

2644
2445
2446
2647

013156
013160
013162

13:53 PAGE 50
LINE UNIT WRITE/READ TESTS

104003
104401
104400

A ¥

2448
2449
2450
2451

2452
2453
2454
2455
2656
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2,78
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
249
2495
2496
2497
2498
2499

HLT

SCOP1

SCOPE

SEQ 0050

;ERROR, BIT5 IS NOT CLEAR
;SCOPE SUBTEST (SwW09=1)
;SCOPE THIS TEST

et ervrereerreeveenveennnnn

TEST

renctnneannenneennenneennne

;*LINE UNIT REGISTER WRITE/READ TEST

:#SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET
:*CLEAR BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR

;:QQ"Q"'"""""""'Q'."""'QQ.tit."'t't"'.""'tttt"

013164
013172
013200

013206
013210
013214
013222
013224
013226
013230
013232
013236
013242
013246
013250
013252
013254
013256
013264
013270
013272
013274
013276
013300
013302
013306
013312
013314
013316
013320
013322

000006
013324
013214

000017
000001

001226
001216
001220

000004

#6,TSTNO

1ST6:

1%:

#TST7 NEXT
#1$%,L0CK

MSTCLR
MOV
MOV
ROMCLK

n7,R2
#1,4(R1)

021365

MOV
MOvB
BIC
(MPB

;PUT "'FOUND'' IN R4

BEQ

013264
000004

001220

3%:

HLT

SCOP1

MoV

CLR

ROMCLK

#3%,L0CK
4(R1)

122117

ROMCLK

021365

;PUT "'FOUND'' IN R4

Move

4%:

104400

;CLEAR UNWANTED BITS
;1S BITY1 SET?
;BR IF YES
;ERROR, BIT 1 IS NOT SET
;SCOPE SUBTEST (SW09=1)
;NEW SCOP1
:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;CLEAR BIT 1 IN LU-17
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-17

;PUT "EXPECTED'" IN RS

CLR

000005
000376

;SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-17
;PUT "EXPECTED'' IN RS

ROMCLK

2%:

ADDRESS

;SET BIT1 IN LU-17

122117

000001
000005
000376

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

;CLEAR UNWANTED BITS
;1S BIT1 CLEAR?
:BR IF YES
;ERROR, BIT1 IS NOT CLEAR
;SCOPE SUBTEST (SW09=1)
;SCOPE THIS TEST

BIC
CMPB
BEQ
HLT

SCOP1

SCOPE

etk RRterreenererennennnnn

TEST

Attt etrnanttteattttstntnt

t«LINE UNIT REGISTER WRITE/READ TEST
;*FLOAT A 1 THROUGH LINE UNIT REGISTER 13
tFLOAT A O THROUGH LINE UNIT REGISTER 13

iRttt AR Rttt Rt R RERTRTRTRTRTRTRETRRRTRRRRRRNRRRRRRRRRRRAROARRRRRROERROERROTRETYE

01332

012737

000007

001226

1S17:

MOV

#7,T1STNO

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME.P11
01-JuL-80 15:29

2500
2501
2502
2503
2504
2505
2506
2507

013332
013340

012737
012737

013346
013350
013354
013360
013360

104412
012702
012700

000013
000001

010061

000004

2509
2510
2511
2512
2513

013372
013374
013376
013400
013402

104414
122113
104414
021265
010005

2515
2516
2517
2518
2519
2520
2521
2522
2523
25%4
2525
2526
2527
2528

013410
013414
013420
013422
013424
013426
013430
013432
013434
013436
013444
013450
01345%
01345

2530
2531
2532
2533
2534

013464
013466
013470
013472
013474

104414
122113
104414
021265
010005

2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
%229

013502
013506
013512
013514
013516
013520
013522
013524
013526
013530
013532

116104
042704
120504
001401
104003
104401
005100
000241
106100
001347
104400

2508 013364

2514

013404

042761

042705

116104
042704
120504
001401
104003
104401
000241
106100
001351
012737
012700
005100
010061

2529 013456 042761

2535 013476 042705

2548

013534
013360

000257

13:53 PAGE 51
LINE UNIT WRITE/READ TESTS

001216
001220

64%:

000004

MSTCLR
MOV
MoV

#3,R2
#1,R0

;MASTER CLEAR DMC11
sSAVE REGISTER ADDRESS FOR TYPEOUT
;START WITH BIT 0

MOV

RO, 4(R1)

;PUT PATTERN INTO PORT4

#2574

BIC

65%:

000004

#TST10,NEXT
#64%,L0CK

ROMCLK
122100!13
ROMCLK
21005'<13+20>
MOV
RO,RS

000005
000257

013452
000001

MOV
MoV

BIC

000257

001220
69%:
67%:

000257 000004

MOVB
BIC
(MPB
BEQ
HLT
SCoP1
CLC
ROLB
BNE
MOV
MOV
COM
MOV

BIC

000257

68$%:

#257.RS

5(R1),R4
#257 ,Ré4
RS ,R4
65%
3

;R1 CONTAINS BASE DMC11 ADDRESS

:CLEAR UNWANTED BITS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 13
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ FROM IBUS REGISTER 13
;PUT EXPECTED IN RS

:CLEAR UNWANTED BITS

RO
64%
#67%,L0CK
#1,R0
RO

;PUT "'FOUND'' INTO Ré
;CLEAR UNWANTED BITS
;DATA CORRECT?
;BR IF YES
sERROR
;SW09=1?
;CLEAR CARRY
;SHIFT BIT IN RO
;1F RO=0 THEN DONE
;NEW SCOP1
sSTART WITH BIT 0
;CHANGE TO FLOATING ZERO

RO,4(R1)

sPUT PATTERN INTO PORT4

#257,4(R1)

;CLEAR UNWANTED BITS

ROMCLK
122100!13
ROMCLK
21005!<13+20>
MOV
RO,RS

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 13
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ FROM IBUS REGISTER 13
;PUT EXPECTED IN RS

MOVB
BIC
CMPB
BEQ
HLT
SCOP1
COM
CLC
ROLB
BNE
SCOPE

sPUT "'FOUND'' INTO R4
sCLEAR UNWANTED BITS
;DATA CORRECT?
:BR IF YES
;ERROR
;SW09=1?
sCHANGE TO FLOATING 1
sCLEAR CARRY
;SHIFT BIT IN RO
;1F RO=0 THEN DONE
;SCOPE THIS TEST

BIC

000005
000257

SEQ 0051

#257 RS

S(R1) ,R4
#257 R4
RS ,R4
68%
3

RO
69%

:CLEAR UNWANTED BITS

2549

seenenneveseenervennerenenen TEST 10 seeveneenenvevevnnvnveennne

2553

2550
2551
2552
2554
2555

s*LINE UNIT REGISTER WRITE/READ TEST
;*FLOAT A 1 THROUGH LINE UNIT REGISTER 14
s*FLOAT A O THROUGH LINE UNIT REGISTER 14
;

TEST 10

CZDME

MACY11 30A(1052)

CZDME.P1i
2556
2557
2558

2559

2560
2561
2562
2563
2564
2565

2566
2567
2568
2569
2570
2571
2572
2573
25764

2575

2576
2577
2578
2579
2580
2581
2582
2583

2584
2585
2586
2587
2588
2589

2590
2591
2592
259%

2594

2595
2596

2597
%ggg

G7-JuL-B0

01-JuL-80 15:29

013534
013542

012737
012737

013556
013560
013564

104412
012702
012700

013570
013574
013576

010061
104414
122114

013612
013614
013616

120504
001401
104003

013550

013570

013600
013602
013604
013606
013620

013622
013624
013626
013630
013636
013642
013644
013644

013650
013652
013654
013656
013660
013662

013666
013670
013672
013674

013676

013700
013702

013704
013706

012737

104414
021305
010005
116104

000010
013710

013570

13:53

Q01226
001216

010061

104414
122114
104414
021305
010005
116104

120504
001401
104003
104401

T1ST10:

001220

000014
000001

64$:

000004

000005
65%:
013644
000001

001220
69%:
67%:

000004

[ 1]

#64%,10CK

MSTCLR
MOV
MOV

#14,R2
#1,R0

68$:

005100

;PUT PATTERN INTO PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 14

(MPB
BEQ
HLT

;DATA CORRECT?
;BR IF YES
;ERROR

scopP1

RS,R4
65%
3

001356
104400

;SW09=1?

RO
64%
#67%,L0CK
#1,R0
RO

;CLEAR CARRY
;SHIFT BIT IN RO
;1F RO=0 THEN DONE
sNEW SCOP1
;START WITH BIT 0
;CHANGE TO FLOATING ZERO

MOV

RO,4(RY)

sPUT PATTERN INTO PORT4

(MPB
BEQ
HLT
ScoP1

COM

BNE
SCOPE

2600

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ FROM IBUS REGISTER i4
;PUT EXPECTED IN RS
;PUT "FOUND'' INTO R4

cLC
ROLB
BNE
MOV
MOV
COM

CLC
ROLB

000241
106100

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
sSAVE REGISTER ADDRESS FOR TYPEOUT
;START WIT4 BIT O

MOV
RO,&4(RY)
ROMCLK
122100!14

ROMCLK
122100!14
ROMCLK
21005!<14+20>
MOV
RO,RS
S(R1),R4
MOVB

000005

SEQ 0052

jeeecccccccccas
MOV
#10,TSTNO
MOV
#TST1T, NEXT

ROMCLK
21005!<14+20>
MOV
RO,RS
MOvVB
S5(R1),R4

104401

000241
106100
001360
012737
012700
005100

PAGE 52

LINE UNIT WRITE/READ TESTS

RS, R4
68%
3

RO
RO
69%

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 14

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ FROM IBUS REGISTER 14
;PUT EXPECTED IN RS
;PUT "FOUND'' INTO Ré

sDATA CORRECT?
;BR IF YES
;ERROR
. Sw09=1?

sCHANGE TO F'.OATING 1
;CLEAR CARRY
;SHIFT BIT IN RO

;1F RO=0 THEN DONE
sSCOPE THIS TEST

2601

JEteRERRRRERTRRRRRRERERRORRRTRTY TEST

2605

2606

2607

2609
2610

2611

sennenvensncenenencdnecenes

ceSWITCH PAC TEST
;*THIS TEST READS SWITCH PACM
soTHIS SWITCH PAC CONTAINS THE DDCMP LINE #

2002
2603
2604

2608

013710
013716

012737
012737

000011
013752

001226
001216

T1ST11:

A LA

R L

TEST W

;eeessscscsccce

MOV
MOV

#11,7STNO
#TST12 NEXT

;R1 (ONTAINS BASE DMC1) ADDRESS

ARl

MSTCLR

;MASTER CLEAR DMC11

aonc5x

021324

000004
001370

nove
(MPB
BEQ

104400

1%:

HLT
SCOPE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PORTL LU1S

4(R1),R4

:PUT "FOUND'' IN R&

STAT2.RS
R5,R4
1%

:PUT "EXPECTED'' IN RS
;SW 0K?
‘BR IF YES

:ERROR, SWITCH PAC READ ERROR
:SCOPE THIS TEST

setrnnnrereeeerntrrnrecrnnnn

TEST

sennnctccevevceneenteccener

;*SWITCH PAC TEST

;*THIS TEST READS SWITCH PACA?2
;*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD
::..""""""""'Q"'I'Q't.."'t'."'.""""""'..'"'Q'Q

013766

104412
106414

021344
016104
113705
120504

000012
014014

012737
012737

(==
oo

013752
013760

1ST12:

TEST

MOV

#12,TSTNO

#TST13, NEXT

MSTCLR

ROMCLK
021344

000004
001371

MOV

001401

104031
104400

1%:

MOvVB
(MPB
BEQ
HLT

SCOPE

:R1

CONTAINS BASE DM(L11

:MASTER CLEAR DMC11

ADDRESS

;NEXT WORD IS INSTRUCTION, RCMCLK P(C=5304
;PORT4 'LU16

4(R1) R4

STAT2+1,RS
R5,R&
1%
3

:PUT "FOUND'' IN R4

:PUT "EXPECTED'' IN RS
:SW 0K?
;B8R IF YES
;ERROR, SWITCH PAC READ ERROR
;SCOPE THIS TEST

srearnnrererennvtnveenvnennnn

;*LINE UNIT CLOCK TEST

TEST

stevneennennnnnnennnnnneneee

;*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK

;*(BIT 1 IN LU-17) IS WORKING

:;'.tt."""""""'.i"tt'i'..Q"!Q".t'tittt""'tt'i't'!"t

001416
N OONNNONO

220322

O0O0OO0O0O0O0O0O0O0O0O0O0

TST13:

000013
014114

000002

1%:

000004

MOV

MSTCLR
CLR

ROMCLK
021364

2%:

#13,1STNO

#TST14,NEXT

TEMP

BIT

#2,4(RY1)

HLT
CLR

4
TEMP

BNE
INC
BNE

001416
001416

MOV

2%
TEMP
1%

:R1 CONTAINS BASE DMC11 ADDRESS

;MASTER CLEAR DMC11
:PREPARE FOR DELAY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU=17

;15 CLOCK BIT SET?

‘BR IF YES
‘DELAY
:DELAY FINISHED?

;ERROR BIT IS STUCK CLEAR
:PREPARE FOR DELAY

—re————

[elelelolelelelelo B

104412
104414

SEQ 0053

———

13:53 PAGE 53
LINE UNIT WRITE/READ TESTS

07-JuL-80
01-JuL-8015: 29

MACY11 30A(1052)

2698
2699

2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
27T
2712
2713
2714
2715
2716

1046414
0%1364
032761
001404
005237
001367

0C0004

001416

ROMCLK
021364
BIT
BEQ

BNE

INC

gkspe

SEQ 0054

#2,4(R1)

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU=17
;1S CLOCK BIT CLEAR?

TEMP

;DELAY

:BR IF YES

:BR IF DELAY NOT DONE

;ERROR BIT

sererrerererennebennnnnnnnnn

TEST

IS STUCK SET

vevvevnvccncecannnnnnnennne

;*OUT DATA SILO TEST

:*SET SOM AND LOAD OUT DATA SILO

;*VERIFY THAT OCOR SET, INDICATING THAT THE
;*CHARACTER

IS AT THE BOTTOM OF

THE OuT SILO

;:..i".""""""""Q".""'.'Q"'Q't".."t".t"'""""

014114
014122

014130
014132
014136
014144
014146
014150
014152
014154
014160
014164
014166
014170
014174
014200
014204
014206
014210
014212
014212

;

000014
014214

004000
000001

001226
001216

TST14:

104005
104400

TEST

MOV

#TST1S, NEXT

MOV

MOV
ROMCLK

000004

#14,TSTNO

MOV

MSTCLR

#BIT11,(RT)

#1,4(RT)

122111

000002
000017

CONTAINS BASE DM(11

;MASTER CLEAR DM(C11

ADDRESS

;SET LINE UNIT LOOP

;LOAD PORT4 WITH BITO
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122110
TIMER,
MOV

2
”n7,R2

:LOAD OUT DATA SILO
;WAIT FOR OCOR
:SAVE ADDRESS FOR TYPEOQUT

MOV

4(R1) R4

;PUT "'FOUND'' IN R4

MOV

#20,R5

ROMCLK
021364

#357 R4

BIC

(MPB
BEQ
1%:

:R1

;SET SOM

ROMCLK

000004
000357
000020

HLT

R5 R4
1%
5

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 17

;CLEAR UNWANTED BITS
;PUT "EXPECTED'" IN RS
;1S OCOR SET?
;BR IF YES

;SCOPE THIS TEST

SCOPE

sevrnnnerrererenennnnerennnn

TEST

envevevevnnnnnnnnnrnennvnns

;*DDCMP TEST OF RTS AND OUT ACTIVE
;*SET SOM AND LCAD OUT DATA SILO
;*SINGLE STEP 2 DATA CLOCKS, VERIFY
;*THAT RTS AND ACTIVE

ARE

SET

::..'0.""'."Q"Q"""Q.Q"'Q"tQi."""t"'."'.'.'l'it"'i

2717

2718
2719
2720
2721
2722
272%

000002

104004
104400

s cd O =

2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

014066
014070
014072
014100
014102
014106
014110
014112

2668
2669
2670
2671
2672

13:53
PAGE 54
LINE UNIT WRITE/READ TESTS

;

TEST 15

014214
014222

012737
012737

MOV
MOV

014230

104412

MSTCLR

#15,TSTNO
#TST16 NEXT

:R1

CONTAINS BASE DMC11

;MASTER CLEAR DM(11

ADDRESS

PED——

MACY11 30A(1052)
CZDME
07-JuL-80
CZOME.P1N
01-JuL-80 15:29

o
PP R

P P

w NN N NN
~N N =P b
d
d
=~

004000
000001

MOV
MOV

000004

ROMCLK

SEQ 0055

#BIT11,(RT)
0,41

122111

—

000004
000257
000120

MOV

104414

021264
016104
062704
012705
120504

:CLOCK DATA FOUR TIMES
;SAVE ADDRESS FOR TYPEOUT

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

1%:

000013

:CLEAR UNWANTED BITS

BEQ
HLT

;1S ACTIVE SET?
:BR IF YES

MOV

#13,R2

:SAVE ADDRESS FOR TYPEOUT

021264

MOV

104005

2%:

104400

:PUT "EXPECTED'' IN RS

#120.RS
R5,R&

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PORT4 LU 13

;PUT EXPECTED IN R4

4(R1),R4

BIC

#337 R4

:CLEAR UNWANTED BITS

(MPB
BEQ

RS,R&
2%

;1S RTS 0K?
:BR IF YES

MOV

001401

;PUT "FOUND'' IN R4

#257 R4

ROMCLK

000004
000337
000040

;PORT4 LU N

4(R1) R4

BIC

MOV
(MPB

104005

012702

:WAIT FOR OCOR

ROMCLK

021224

:gg¥rsgano IS INSTRUCTION, ROMCLK PC=5304
;:LOAD OUT DATA SILO

122110
PC,OCOR
JSR
DATACLK,
MOV
#11,R2

026702
000002
000011

;SET LINE UNIT LOOP
:LOAD PORT4 WITH BITO

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

ROMCLK

P P P
P P P P 0P P oF P 0P o
N NN RO NN NN N NNV N
NNNONOC VWIS SN

nao~o~awu<>52§;:~nac>a«:4~nuc>o~:w>au

344

d e

D e

elelelelelelelelelelelolelelelolelelelelelelalolololelele

012711

13:53
PAGE 55
BASIC TRANSMITTER TESTS

HLT

#B1T5,RS

:PUT "EXPECTED'' IN RS, RTS SHOULD BE SET
:RTS ERROR

;SCOPE THIS TEST

SCOPE

JERERRNRRR
R R e
nennnr

TEST

teanenestenneatrennetenetes

;*TEST OF OUT CLEAR

;*SET SOM AND LOAD OUT DATA SILO
;*SINGLE STEP DATA CLOCK, SET OUT CLEAR

;*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED

::.'"i"'"""i'""""'..t""""""t'ttl"i"t""t"""

—
N

0000
0145

NN
NANO S == a)
VNt PN

— s s O e A e e el s OO e

NN
~N~

OO
——

-t DD
b s e OO =
OO =OO0ONONO
= =D
SrofsroSSOSNSNONS
Bt BN
NP NNS

WANANN)
=4 SO

D e

b —b —

014352
014360

;

735

MACY11 30A(1052 )
07-JuL-80
01-JuL-80 15:129
2

g:unvnaunnonuhananan:
W —=O0V~
WV~

MNIRNLMNNI
NN
NI NI NI NN
NNNNNSNSNNNNN

.P1

004000
000001

001226
001216

000004

TEST 16
#16,TSTNO

1ST16:

#T1ST17 NEXT

MSTCLR
MOV
MOV
ROMCLK

o
#BIT11,(RT)
1 ,4(RY)

122111

026702
000002
000200
000001

000004

PC,OCOR

2
DATACLK,
#BIT7,4(RY)
MOV
ROMCLK

122111

DATACLK,

ADDRESS

;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO

:§E¥nggflb IS INSTRUCTION, ROMCLK PC=5304
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;LOAD OUT DATA SILO

ROMCLK

122110
JSR

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

;WAIT FOR OCOR

;CLOCK DATA FOUR TIMES

;SET BIT7 IN PORT4

;NEXT WORD IS iNSTRUCTION, ROMCLK PC=5304
;SET OUT CLEAR
;GIVE A TICK TO CLEAR RTS

MACY1Y 30A(1052)
(ZDME
07-JuL-80
(ZDME.P1
01-JuL-80 15: 29

014440
014444
014446

014450
014454

13:53
PAGE 56
BASIC TRANSMITTER TESTS

012702

000017

MOV

021364
016104
042704
005005

000004
000357

MOV

1046414

ROMCLK

021364

BIC

120504

001401
104005

012702
104414

[elelelelelelele]

021264
016104
042704
005005

1%:

000013

021264

000004
000337

MOV

104005

2%:

021224
016104
012705
120504
001401
104005

014546

000011
000004
000020

3%:

104400

;PUT "EXPECTED'' IN RS

;1S OCOR CLEARED?

;BR IF YES

;SAVE ADDRESS FOR TYPEOUT

#13,R2

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU 13

:PUT EXPECTED IN R4

4(R1),R4

:CLEAR UNWANTED BITS

;PUY “EXPECTED'" IN RS, RTS SHOULD BE

;1S RTS 0K?
;BR IF YES

RS ,R4
2%

CLEARED

;RTS ERROR

;SAVE ADDRESS FOR TYPEOUT

#11,R2

MOV
MOV

4L(R1),R4
#BIT4L,RS

HLT

(MPB
BEQ

:CLEAR UNWANTED BITS

RS
RS ,R&
1%
5

021224

:PUT "FOUND'' IN R&

357, R4

HLT

ROM(CLK

;PORT4 LU 17

4(R1) ,R4

#337 R4
RS

MOV

;SAVE ADDRESS FOR TYPEOUT
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#17,R2

BIC
CLR

(MPB
BEQ

001401

104414

MOV

ROMCLK

120504

012702

CLR
(MPB
BEG
HLT

SEQ 0056

:NEXT WORD IS INSTRULTION, ROMCLK PC=5304

:PORT4 _LU11

:PUT "FOUND'' IN R4

:ONLY OUT READY SHOULD BE SET

:IS ACTIVE CLEAR?
;BR IF YES

RS ,R4
3%

;ERROR ACTIVE NOT CLEARED

;SCOPE THIS TEST

SCOPE

e reeeerercnreneernnenns

TEST

sveenevnnnnnnnnnennrnnnnene

'DDCHP TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER 0
;'VERIFV EACH BIT POSITION AS IT
:*PASSES

THE

BIT WINDOW

(SI

BIT)

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

.':.i.""""".""'"'.""Qi't"'.'.tt'!'.t'it..t.'.""""'

P
—

—

001226
001216
004000
027034
000001

000000

027034
000004

TST17:

TEST

MOV
MOV
MSTCLR

000004

#17,1STNO
#TST20 NEXT

MOV
JSR
MOV

#BIT11,(RY)
PC,OUTRDY
#1,4(RY)

122111
MOV

#0,RS

MOV

RS,4(RY)

ROMCLK

JSR

ROMCLK

122110

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

ADDRESS

;SET LINE UNIT LOOP
;WAIT FOR QUT=READY

;SET BITO IN PORT4
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM!

;LOAD CHARACTER IN RS FOR TYPEOUT

PC,OUTRDY

;WAIT FOR QUT-READY
;LOAD PORT4 WITH CHARACTER

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

.LOAD OUT DATA

MACY11 30A(1052 )
07-JuL-80
(1 DME
2z DME .P1
01-JuL~-80 15:29

004737
005003
010502
104415
1046415

13:53

PAGE

BASIC TRANSMITTER TESTS

026702

JSR

000002
000001

MOV
RS ,R2
DATACLK,
DATACLK,

1%:

000010

021264
032761
001401

000040

PC,OCOR

RORB

000014

104400

2
1

4%:

;LOAD CHARACTER IN R?
:2 TICKS TO SET UP TRANSMITTER
:SHIFT NEXT BIT IN THE WINDOW (SI 3IT)
;SHIFT NEXT SOFTWARE BIT

BCC
JSR
BCS
HLT
KR

2%
PC,GETSI
3%
6
1%

BCC
HLT

3%
6

:BR IF BIT IS A SPACE
;ERROR BIT WAS A MARK

INC
(MP
BNE

R3
#10,R3
1%

SNEXT BIT
;DONE YET?
:BR IF NO

BEQ

:BR

PC,GETSI

HLT

SCOPE

IN TO CARRY

:GET THE WINDOW

DATACLK,
14
ROMC LK
021264
BIT
#B1T5,4(RY)

000004

104034

;WAIT FOR OCOR TO SET

;CLEAR BIT COUNTER

:BR IF CARRY CLEAR
;GET THE WINDOW
:BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
;CONTINE WITH TEST

JSR

1%:

005203
022703
001357
104415
104414

014726
014730

026650

SEQ 0057

R3Y

(LR

026650

103001
104006

:CLOCK TRANSMITTER 14 MORE TICKS
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU-13
;RTS SHOULD BE CLEAR NOW
IF

;ERROR,

;SCOPE

jeteeererereteterrnennennnesr

YES

RTS NOT

THIS TEST

TEST

CLEAR

trernnnnatenenrrrnneretnee

;*DDCMP TRANSMITTER TEST

;*SINGLE CLOCK THE CHARACTER 125
;*VERIFY EACH BIT POSITION AS IT
;*PASSES

THE BIT WINDOW

(SI

BIT)

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF

FAILURE

.':"'"."""Q"'Q"Q."""'.'..Qt.'t'.tQQ""""Q"'Q"".'Q

.
001226
001216

[elelelelelelele]

004000
027034
000001

15120:

JSR

MOV

000004

ROMCLK
122111

MOV

JSR
MOV

ROMCLK

#20,TSTNO
#TST21 NEXT

#BIT11,(RT)

PC,OUTRDY
#,4(RY)

1%:

ADDRESS

;WAIT FOR OUT=-READY
;SET BITO IN PORT4
;SET

SOM!

#125,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
RS,4(RT)

PC,OCOR
JSR
R3
CLR
MOV
RS,R2
4
DATACLK,
DATACLK,

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11
;SET LINE UNIT LOOP

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

122110

026702
000002
000001

MOv
MOV

MSTCLR
MOV

000125
027034
000004

104415

TEST 20

;WAIT FOR OUT=READY
;LOAD PORT4 WITH CHARACTER

;NEXT WGRD IS INSTRUCTION, ROMCLK P(=5304
:LOAD OUT DATA

;WAIT FOR OCOR TO SET
;CLEAR BIT COUNTER
;LOAD CHARACTER [N R2
;2 TICKS TO SET UP TRANSMITTER
SSHIFT NEXT BIT

IN THE WINDOW (ST BIT)

CIDME
MACY1] 30A(10)2) 07-JuL-B0
CZDME P11
01-JuL-80 15:29
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907

015032
015034
015036
015042
015044
015046
015050
015054
015056
015060
015060
015062
015066
015070
0150764
015076

106002
103005
004737
103406
104006
000404
004737
103001
104006

2909
2910
%g};

015106
015110
015112

001401
104034
104400

2908

015100

005203
022703
001357
104415
104414
021264

032761

13:53 PAGE 58
BASIC TRANSMITTER TESTS

026650

2%:
3%:

000010

000014

000040

RORB
BC(
JSR
BCS
MLT
BR
JER
BC(
HLT

000004

BIT
4%:

2913

R?
2%
PC,GETSI
1%
6
3%
PC,GETSI
3%
6

INC
R3
(MP
#10,R3
BNE
1%
DATALLK,

ROMCLK
021264

BEQ
HLT
SCOPE

SEQ 0058
;SHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR IF CARRY CLEAR
;GET THE WINDOW
;BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW
;BR IF BIT IS A SPA(E
;ERROR BIT WAS A MARK

#BITS,4(RY)
4%
34

;NEXT BIT
;DONE YET?
;BR [F NO
;CLOCK TRANSMITTER 14 MORE TICKS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU-13

;RTS SAOULD BE CLEAR NOW
BR IF YES
:ERROR. RTS NOT CLEAR
;SCOPE THIS TEST

2914

cetrennttretnnrenvrenveernnnn

2915
2916
2917

:«DDCMP TRANSMITTER TEST
;+SINGLE CLOCK THE CHARACTER 252
s*VER'FY EACH BIT POSITION AS IT

2919

:*ON AN ERROR, R3 CONTAINS BIT POSITION OF

2918

2924
2925
2926
2927
2928
2929

015114
015122

012737
012737

015130
015132
015136
015142

104412
012711
004737
012761

2934
2935

015152
015154
015160
015164

122111
012705
004737
010561

2937

015172

122110

2930
2931
2932
2933

2936

015150

015170

104414

2938
2939
2940
2941
2942

015174
015200
015202
015204
015210

004737
005003
010502
104415
104415

2944
2945
2946
2947

015216
015220
015224
015226

103005
004737
103406
104006

2943

senvenncccntaveanecnnvennes

;*PASSES THE BIT WINDOW (SI BIT)

2920

2921
2922
2923

JEST

015214

106002

000021
015276
004000
027034

000001

001226
001216

T1ST121:

000004

000002
000001
026650

#21,1STNO
#TST22 NEXT

MSTCLR
MOV
JSR
MOV

#BIT11,(RT)
PC,OUTRDY

122111
MOV
JSR
MOV

JSET SOM!
#252,R5 ;LOAD CHARACTER IN RS FOR TYPEOQUT
PC.OUTRDY
;WAIT FOR OUT-READY
RS,4(RY)
;LOAD PORT4 WITH CHARACTER

#1,4(RY1)

R AR

ARl

JSR
PC,O0COR
CLR
R3
MOV
RS ,R2
DATACLK,
2
DATACLK,
1
RORB

BC(
JSR
B(S
HLT

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
sSET LINE UNIT LOOP
;WAIT FOR OUT-READY
;SET BITO IN PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

122110

1%:

MOV
MOV

ROMCLK

026702

FAILURE

s
TEST 2
s

ROMCLK

000252
027034
000004

2%
PC,GETSI
b}
6

;LOAD OQUT DATA

:UAIY FOR OCOR TO SET
;CLEAR BIT COUNTER
;LOAD CHARACTER IN R2
;2 TICKS TO SET UP TRANSMITTER
SHIFT NEXT BIT IN THE WINDOW (SI BIT)
sSHIFT NEXT SOFTWARE BIT IN 10 CARRY

;BR IF CARPY CLEAR
;GET THE WINDOW
sBR IF BIT IS A MARK
;ERROR BIT WAS A SPACE

000404
004737

103001
104006

&»
&

—

005203
o

-q-u-u¢r<>\n~nunt~J~tnr};=sz;
SNONOOMNVO SSNNO

il
il
il
i
B
il
D
—

D el

w
w

R
Y
I
I Y]
LSTLSLSISTSTSISTSTSTISISILSINTINTN

2948

(=lelelelolelelolalalalalalale)

MACY11 30A(1052 )
(ZDME
07-JUL-80
.P1N
01-JuL-80 15:129
CZDME
2

13:53
PAGE 59
BASIC TRANSMITTE R TESTS

026650

2%:
3%:

000010

JSR

BCC
HLT

INC
(MP

021264

000004

104400

BIT
BEQ
4%

HLT
SCOPE

:CONTINE WITH TEST
SGET THE WINDOW
‘BR IF BIT IS A SPACE
;ERROR BIT WAS A MARK

3%
PC,GETSI
3
6

:NEXT BIT

R3
#10,R3

%
BNE
DATACLK,
ROMCLK

000014
000040

SEQ 0059

:DONE YET?

#BITS,4L(RT)
4%

:BR IF NO

;CLOCK TRANSMITTER 14 MORE TICKS
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PORT4 LU-13

;RTS SAOULD BE CLEAR NOW
:BR IF YES

:ERROR, RTS NOT CLEAR

:SCOPE THIS TEST

cranrknartrrenrnenrtnennennn

“«DDCMP TRANSMITTER TEST

TEST

tvsnvtnnnntnnnennenentenene

;*SINGLE CLOCK THE CHARACTER 377

;*VERIFY EACH BIT POSITION AS IT
;*PASSES

THE

BIT

WINDOW

(SI

BIT)

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF

FAILURE

;:"Q"Q""""""'t'0"Q'ii"'t'Q"'t't"..t"'t"tt"""i"

~N
~

—

004000
027034
000001

MSTCLR
MOV

JSR

000004

000377
027034
000004

026650

~
w
~

026650

2%:

3%:

;SET LINE UNIT LOOP
;WAIT FOR OUT=-READY
;SET BITO IN PORT4

MOV

#377,RS

MOV
ROMCLK

RS,4(R1)

;WAIT FOR OUT=-READY
:LOAD PORT4 WITH CHARACTER

PC,OCOR

;WAIT FOR OCOR TO SET

122710
JSK
CLR

1%:

PC,OUTRDY

ADDRESS

#1,4(R1)

JSR

o
o

000002
000001

#BIT11,(RT)

;R1T CONTAINS BASE DMC11
;MASTER CLEAR DMC11

MOV
ROMCLK

122111

026702

\nunvnu,:unfltnuufiynvc O~
(VLN
s

EEC)E;‘U“ 333

VWAV
WTAWVA
AW AWVTAWVMAWVIAWVAWVTATTAYDY
IR ol R
R R ol ok
kb el
YAV YD
WWNWNIN)
- =
oo~
O SN
OO
SO MNNVO

D e
e
o
e
e
o

#22,1STNO
#TST23 NEXT

e
s o
ot
o

—

D e

D i

D e

il e

[elelelelelolelelalolelelelelelelalalalolalolololele]

~nN

R3
RS,R2

PC,GETSI

JSR

PC,GETSI

HLT

BCC

;SET SOM!

;LOAD CHARACTER IN R5 FOR TYPEOUT

PC,OUTRDY

MOV
DATACLK,
DATACLK,
R2
RORB

BCC
JSR
B(CS
HLT
BR

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA

;CLEAR BIT COUNTER

;LOAD CHARACTER IN R2
;2 TICKS TO SET UP TRANSMITTER

;SHIFT NEXT BIT IN THE WINDOW (SI BIT)

;SHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR IF CARRY CLEAR
;GET THE WINDOW
;BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE

;CONTINE WITH TEST
;GET THE WINDOW
;BR IF BIT IS A SPACE
;ERROR BIT WAS A MARK

MACY11 30A(1052)
CZDME
07-JuL-80
CZDME .PTN
01-JuL-80 15:29

3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059

015424
015426
015432
015434
015440
015442
015444
015452
015454
015456

005203
022703
001357

000010

021264
032761
001401

000040

104415
104414

13:53

PAGE 60

BASIC TRANSMITTER TESTS
R3
INC
(MP
#10,R3
BNE
%
DATACLK,
ROMCLK

000014

021264
BIT

000004

104034
104400

BEQ
48

HLT
SCOPE

SEQ 0060
;NEXT BIT
:DONE YET?
14

#BITS,4(RY)
4%
34

:BR _IF NO

;CLOCK TRANSMITTER 14 MORE TICKS
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PORT4 LU-13
:RTS SAOULD BE CLEAR NOW
;BR IF YES

;ERROR, RTS NOT CLEAR
;SCOPE THIS TEST

ceenennrenrrtrntenetevreennnnr

TEST

sevvvencenneevncenenneenner

;*DDCMP_TRANSMITTER TEST
;*SINGLE CLOCK A BINARY COUNT PATTERN
;*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
;*AND RS CONTAINS THE
R

:
000023
015666

015460
015466

015474
015476
015502
015504
015506
015510
015514
015522
0155264
015526
015532
015536
015540
015542
015544
015550
015554
015556
015560
015564

015570
015572
015574
015600
015602
015604
015610
015612
015614
015616

001226
001216

TS123:

004000

027034
000001

MOV
MOV

#23,TSTNO
NTST24 NEXT

MSTCLR
MOV

#BIT11,(RY)

;MASTER CLEAR DM(C11
;SET LINE UNIT LOOP

#1,4(RT)

;SET BITO IN PORT4

MOV

ROMCLK
1221

027034
000004

JSR
MOV

ROMCLK

122110

027034
000004
026702
000002
000001

026650
000404

004737

2%:

R3
R&
RS
PC,OUTRDY

;R1 CONTAINS BASE DMC11 ADDRESS

:R3 CONTAINS BIT COUNT
;R4 CONTAINS CHAR TO BE LOADEC IN SILO
:R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT
;WAIT FOR OUT-READY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PC,OUTRDY
R4,4(RY)

;SET SOM!

;WAIT FOR OUT=READY
:LOAD PORT4 WITH CHARACTER

;NEXT WORD IS INSTRUCTION, ROMCLK PC=53064
:LOAD OUT DATA

R&
PC,OUTRDY
R4 ,4(RT)

; INCREMENT TO NEXT CHARACTER
;WAIT FOR QUT-READY
:LOAD PORT4 WITH CHARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=53064

JSR

PC,OCOR

;WAIT FOR OCOR TO SET

MOV

R5.R2

BCC
JSR
B(S

2%
PC,GETSI
3%

;BR _IF CARRY CLEAR
;GET THE WINDOW
;BR _IF BIT IS A MARK

BR
JSR

3%
PC,GETSI

;CONTINE WITH TEST
;GET THE WINDOW

:LOAD OUT DATA

DATATLK,
CLR
R3

DATACLK,
RORB
R2

HLT

026650

INC
JSR
MOV
RCMCLK

122110

TEST 23

CLR
(LR
CLR
JSR

000004

CHARACTER THAT FAILED

;2 TICKS TO SET UP TRANSMITTER
;CLEAR BIT COUNTER

:LOAD CHARACTER IN R2

;SHIFT NEXT BIT IN THE WINDOW (SI BIT)
;SHIFT NEXT SOFTWARE BIT IN TO CARRY

;ERROR BIT WAS A SPACE

CIDME
MACY11 30A(1052)
Og-JUL-BO
CZDME .P1N
01-JuL~-80 15:2
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
%8;?

015622
015624
015626
015626
015630
015634
015636
015640
015644
015650
015652
015654
015656
015662
015664

13:53 PAGE 61
BASIC TRANSMITTER TESTS

103001
104006
005203
022703
001357
005204
004737
010461
104414
122110
005205
022705
001342
104400

3%:
000010
027034
000004

000400
5%:

3076

SEQ 0061

BC(
HLT

3%
6

;BR IF BIT IS A SPACE
sERROR BIT WAS A MARK

INC
(MP
BNE
INC
JSR
MOV
ROMCLK
122119
INC
CMP
BNE
SCOPE

R3
#10,R3
1%
R4
PC,OUTRDY
R4 ,4(RT)

;NEXT BIT
;DONE YET?
;BR IF NO
sNEXT CHARACTER
;WAIT FOR QUT=READY
:LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
sNEXT CHARACTER
;DONE YET?
;BR [F NO
;SCOPE THIS TEST

RS
#400,RS
6%

3077

serRrrrrrtrereeeernnernnnnnn

3078
3079
3080

;*DDCMP STRIP SYNC TEST
;*SET LU LOOP, SINGLE STEP S SYNCS,
s*VERIFY THAT [N ACTIVE DOES NOT SET

3082
3083
3084
3085
3086

015666
015674

012737
012737

.
TEST 24
[mmeececcccccen
MOV
#24,TSTNO
MOV
#TST25 NEXT

3094
3095

015702
015704
015710
015714
015720
015722
015726
015730

104412
012711
012702
004737
000005
104415
104414
021244

3097
3098
3099
3100

015736
015742
015744
015746

042704
005005
120504
001401

3081

3087
3088
3089
3090
3091
3092
3093

3096

3101

;}8%

015732

015750
015752

016104

000024
015754

001226
001216

T1ST24:

MSTCLR
MOV
#BIT11,(RY)
MOV
#12,R2
JSR
PC,SYNC
5
DATACLK,
54
ROMCLK
021244

004000
000012
026720
000054

000004

000277

MOV

4(R1) R4

HLT

4«0

B!C
CLR
(MPB
BEQ

104040

104400

1%:

3104

SCOPE

#277 R4
RS
RS,R&
1%

evnsenncetevnneneneneevenne

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;SET LU LOOP
;SAVE LU REG FOR TYPEOUT
JSINGLE CLOCK S SYNC CHARACTERS

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;PORT4 LU12

;PUT "FOUND'' IN R&

;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
.1S ACTIVE CLEAR?
sBR IF YES

JERROR ACTIVE IS NOT CLEAR
;SCOPE THIS TEST

JRERRRRRRRERRRRRANRRRR RN

3106

;*DDCMP IN ACTIVE TEST

3108

s*VERIFY THAT

3107

TEST

ttttnanatnnnentnatntnenanen

:*SET LU LOOP, SINGLE STEP S SYNCS AND A NON-SYNC (301)

3109

3110

g}}}

3115

RR
R R Rl

3105

3113
3114

TEST

015754
015762

012737
012737

000025
016044

001226
001216

T1ST25:

MOV
MOV

IN ACTIVE

IS SET

TEST 25
#25,1STNO
#TST26 NEXT

:R1 CONTAINS BASE DMC11 ADDRESS

ARl

DME
MACY11 30A(1052) )
07-JuL-80
DME.P11
01-JuL-80 15:29

3116
3117
3118
3119
3120
3121
3122
3123

015770
015772
015776
016002
016006
016010
016014
016016

104412
012711
012702
004737
000005
104415
104414
021244

3125

016024

042704

3124

3126
3127
3128
3129
g}g?

016020

016030
016034
016036
016040
016042

13:53 PAGE 62
BASIC RECEIVER TESTS

004000
000012
026720
000064

016104

000004

012705
120504
001401
104040
104400

000100

000277

1%:

3132

SEQ 0062

MSTCLR
MOV
#BIT11,(R1)
MOV
2 ,R2
JSR
PC,SYNC
5
DATACLK,
64
ROMCLK
021244

;MASTER CLEAR DMC11
;SET LU LOOP
;SAVE LU REG FOR TYPEOUT
;SINGLE CLOCK 5 SYNC CHARACTERS

BIC

sCLEAR UNWANTED BITS

MOV

4(R1),R&

MOV
(MPB
BEQ
HLT
SCOPE

#BIT6,RS
RS ,R&
1%
40

#277 R4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT& _LU12

;PUT "'FOUND'' IN R4

;PUT "EXPECTED'' IN RS

;1S ACTIVE SET?
;BR IF YES
;ERROR ACTIVE IS NOT SET
;SCOPE THIS TEST

3133

serrrrnnterenertrentenenennn

3134

;*DDCMP IN ACTIVE TEST

3137

B
R R
s

3135
3136

g}zg

.
016044
016052

012737
012737

3146
3147
3148

016060
016062
016066
016072
016076

104412
012711
012702
004737
000001

3150
3151

016104
016106

104414
021244

3149

3152

3153
3154
3155
3156
3157

g}gg

teeencannnnnnnnvetereteeeny

s*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON=SYNC (301)
;*VERIFY THAT IN ACTIVE DOES NOT SET

3138

3141
3142
3143
3144
3145

TEST

016100

000026
016132

000024

016110

016104

000004

016126

104040

016130

042704
005005
120504
001401

TST26:

004000
000012
026720

104415

016114
016120
016122
016124

001226
001216

TEST 26

MOV
MOV

#26,T1STNO
#1ST27 NEXT

MSTCLR
MOV
MOV
JSR
1

#BIT11,(R1)
#12,R2
PC,SYNC

DATACLK,

ROMCLK
021244

000277

MOV

4(R1) R4

HLT

BIC
CLR
(MPB
BEQ

104400

1%:

3160
3161

SCOPE

#277 ,R&
RS
RS,R4
1%

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11
;SET LU LOOP
;SAVE LU REG FOR TYPEOUT
JSINGLE CLOCK 1 SYNC CHARACTERS

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU12

;PUT "FOUND'' IN R4

;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S ACTIVE CLEAR?
;BR IF YES
ERROR ACTIVE

IS NOT CLEAR

;SCOPE THIS TEST

JRERRARERRRRRRRACERNRERRORRNN

TEST

27 stttttcatntttnttttttntnenen

3162

*DDCMP IN ACTIVE TEST

3164
3165
3166

J*VERIFY THAT IN ACTIVE IS SET
RN RN RN
RN R RN
SRR

3163

;*SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301)

g}gg

3169
3170
nn

016132
016140

012737
012737

000027
016222

001226
001216

T1ST127:

MOV
MOV

R R RN

TEST 27

#27,1STNO
#T1ST30,NEXT

;R1 CONTAINS BASE DMC11 ADDRESS

(IDME
MACY11 30A(1052)
07-JuL-80
CZDME.P11
01-JUL-80 15:29

3172
3173
3174
3175
3176
3177
3178
3179

016146
016150
016154
016160
016164
016166
016172
016174

104412
012711
012702
004737
000002
104415
104414
021244

3181
3182
3183
3184
3185
g}g?

016202
016206
016212
016214
016216
016220

042704
012705
120504
001401
104040
104400

3180

016176

016104

13:53

PAGE 63
BASIC RECEIVER TESTS

004000
000012
026720
000034

000004

MSTCLR
MOV
#BIT11,(RT)
MOV
#2,R2
JSR
PC,SYNC
2
DATACLK,
34
ROMCLK
021244

;MASTER CLEAR DM(C11
;SET LU LOOP
sSAVE LU REG FOR TYPEOQUT
;SINGLE CLOCK 2 SYNC CHARACTERS

BIC
MOV
CMPB
BEQ
HLT
SCOPE

sCLEAR UNWANTED BITS
sPUT "EXPECTED'" IN RS
;1S ACTIVE SET?
;BR IF YES
;ERROR ACTIVE IS NOT SET
;SCOPE THIS TEST

MOV

000277
000100

1%:

3168

SEQ 0063

4(R1),R4

#277 ,R&
#BIT6,RS
RS ,R4
1%
40

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU12

;PUT "FOUND'' IN R&

3189

JRRRRRNRNEATRCEREERERRORRRRS

3190
3191
3192

;*IN CLEAR TEST
s*SYNC UP RECEIVER AND TRANSMIT A CHARACTER
s*WAIT FOR IN RDY, THEN SET IN CLEAR

3194

BR
R
il al

3193

J*VERIFY THAT

3195

g}gg

3198
3199
3200
3201
3202
3203

3204
3205
3206
3207
3208
3209

3210
3211

3212

016222
016230

012737
012737

016236
016240
016244
016250
016254
016256
016262

74412
0:2702
012711
004737
000301
104415
104416

016272

016266
016270
016276

016302

016326

3222

016332

3224

3225
§226
227

000030
016374

IN RDY ARE CLEARED

MOV
MOV

#30,TSTNO
#TST3T NEXT

016104

000004

MOV

4(R1) R4

;PUT "FOUND'' IN R4

012705

000020

MOV

#B1T4,RS

104414
021244

042704

120504
001401
104040

000012
004000
027066

016336

042704

0161064

005005

120504
001401
104040

ROMCLK
021244

000357

000200

BIC

000004

1%:

CMPB
BEQ
HLT

MOV
ROMCLK

#357 R4

000004

000277

;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JERROR, INRDY IS NOT SET

sSET IN CLEAR

sNEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1) R4

(LR

(MPB
BEQ
HLT

;PUT "EXPECTED'" IN RS

#BI1T7,4(R1)

MOV
BIC

sCLEAR UNWANTED BITS
;1S INRDY SET?

ROMCLK

021244

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 12

RS.R4
1%
40

122112

104414

021244

016344
016346
016350

T1ST30:

000053
000002

016330

016342

001226
001216

:R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11
sSAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
;AND A NON-SYNC (301)
;SINGLE CLOCK THE DATA
;WAIT FOR INRDY

016324 “122112

3220
3223

tetntanantantetetentnevetns

MSTCLR
MOV
#2,R2
MOV
#BIT17,(R1)
JSR
PC,CHAR
301
DATACLK,
53
TIMER, 2

3217 016314 012761
3218 016322 104414
3221

. TEST 30

3213 016306
3214 016310
3215, 016312
3216 . 016314

3219

IN ACTIVE AND

TEST

9277 R4
RS.R4
2%
40

sPORTS LU 1.

;PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

sPUT "EXPECTED''

IN RS

1S IN ACTIVE CLEAR?

;ERROR, IN ACTIVE IS NOT CLEAR

’

CIDME

07-JUL-B0
MACY11 30A(1052 )
01-JuL-80 15:29

CZDME.P

3228
3229
3230
3231
3232
3233
3234
g%gg

016352
016352
016356
016362
016364
016366
016370
016372

016104
042704
005005
120504
001401
104040
104400

13:53

PAGE 64

BASIC RECEIVER TESTS
2%:

000004
000357

3%:

3237

MOV
BIC
CLR
(MPB
BEQ
HLT
SCOPE

SEQ 0064

4&(R1),R4
#357 ,Ré
RS
RS ,R4
33
40

:PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S INRDY CLEARED?
JERROR, INRDY IS NOT CLEARED
;SCOPE THIS TEST

3238

sennennrrerernnnerrnneennnnn

3239
3240
3241
3242
3243
g%zg

s*DDCMP BASIC RECEICER TEST
:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0
;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED
A Rt
R
L

32646
3247
3248
3249
3250
3251

016374
016402

012737
012737

3255

016410
016412
016416
016422
016426
016430
016434

104412
012702
012711
004737
000000
104415
104416

3258

016444

3260
3261

016454
016460

3252
3253
3254

3256
3257
3259
3262

3263
3264

3265

3266

3267

3268
3269
3270
3271
3272

016440
016442
016450

016462

0164:..
016466

016466

001226
001216

TST31:

MOV
MOV

#31,TSTNO
#TST32 ,NEXT

000053
000002

016104

000004

MOV

4(R1),R4

012705
120504

000020

MOV
CMPB

#BIT4,RS
RS ,R&4

104414
021244
042704

000012
004000
027066

ROMCLK
021244

000357

BIC

001401

BEQ

104040

1%:

104414

021204

016476
016500
016502
016504
016506

005005
120504
001401
104010
104400

016104

HLT

MOV

2%:

#357 R4
1%
40

CLR
CMFB
BEQ
HLT
SCOPE

sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP

;LOAD SILO WITH 3 SYNCS
;AND THE CHARACTER 0
sSINGLE CLOCK THE DATA
sWAIT FOR INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
sPORT4 LU 12

;PUT "FOUND'' IN R4

sCLEAR UNWANTED BITS

sPUT "EXPECTED'" IN RS
;1S INRDY SET?

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),R4
RS
RS.R4
2%
10

sPORT4 _IN DATA

;PUT "'FOUND'' IN R&

sPUT "EXPECTED'' IN RS
sWAS A 0 RECEIVED?
;ERROR, RECEIVED DATA IS WRONG
:SCOPE THIS TEST

3275

3276

;*DDCMP BASIC RECEICER TEST

3279

3277
3278

RN R RN

RRENNY

TEST

32 ttttannntttantttattetenenns

:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125
:*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

3280

3281

senecvnnnecncctcennrceceeee

JERROR, INRDY IS NOT SET

ROMCLK
021204

000004

TEST N

MSTCLR
MOV
#12,R2
MOV
#BIT11,(R1)
JSR
PC,CHAR
0
DATACLK,
53
TIMER,
2

016470

016472

000031
016510

TEST

3283 016510 012737 000032

001226

T1ST32:

TEST 32

eesessssetssss

MOV

#32,1STNO

ARl

MACY11 30A(1052 )
07-JuL-80
(IDME
01-JuL-8 0 15:29
CZDME.P11

016516

012737

0165264
526

1046412

016626

13:53 PAGE 65
BASIC RECEIVER TESTS

001216

000012
004000
027066

MOV

#TSTI3 NEXT

MSTCLR
)]
MoV

#2,R2
#BIT11,(RT)

PC,CHAR
JSR
125
DATACLK,
53

000053
000002

TIMER,
ROMCLK

MOV

4(R1),R4
#357 R4
#BIT4L,RS

021244

000004
000357
000020

BIC

MOV
(MPB

BEQ

104414
021204
016104
012705
120504

1%:

000004
000125

104010
104400

;SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
:AND THE CHARACTER 125

;SINGLE CLOCK THE DATA

;WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S INRDY SET?

RS.R4

1%
40

;ERROR, INRDY IS NOT SET

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4

_IN DATA

:PUT "FOUND'' IN R4

4(R1) R4
#125,R5
R5.R&

:PUT "EXPECTED'' IN RS
;WAS A 125 RECEIVED?

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

TEST

sevevnvenentcennnnnenvnnnee

;*DDCMP BASIC RECEICER TEST

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252

;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

NESENONNNNS
B
b NN =2 O =

SO WVINN—-NON

~N~N
NN

b
rnorno

O VNN
S5 O00

O =W

—_—_D
oS

00—

5 =2ONNO
—

- O = OO0~
—

w
o~

purnrd

::.t'."'.""""""'i't.it'."".""'t'.l"'.'."t"t'.""t

SSnaRSER

328

2%:

;MASTER CLEAR DMC11

:SAVE REG ADDRESS IN R2 FOR TYPEOUT

:PORT4 LU 12

ROMCLK

MOV
MOV
(MPB
BEQ
HLT
SCOPE

:R1 CONTAINS BASE DMC11 ADDRESS

sevennneerererenenenrnrennnn

(=lelelelelelelelalalololalolelele)

e
d e
d e
e
~N PORIND) =
A~ N=OO0VNOWNEWNN-=O

N NN N N N N N U N NN N NN N
NN
W WM AN NN NN NN NN
AN L

326

HLT

021204

001401

3309

SEQ 0065

104414

000033

016744

001226
001216

1ST133:

MOV
MOV
MSTCLR
MOV
MOV

000012
004000
027066

JSR

252

000053
000002

#33,1STNO
#TST346 NEXT
M2,R2
#BIT11,(RT)
PC,CHAR

DATACLK,
TIMER,
2
ROMCLK

021244

000004
000357
000020

MOV
BIC
MOV
(MPB
BEQ
1%:

HLT

ROMCLK

4&(R1) ,R4
#357 R4
#BiT4,RS
RS ,R&
%
40

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

ADDRESS

:SAVE REG ADDRESS IN RZ FOR TYPEOQUT
;SET LINE UNIT LOOP
*LOAD €ILO WITH 3 SYNCS
:AND Tiic CHARACTER 252
:SINGLE CLOCK THE DATA
;WAIT FOR INRDY

:NEX! WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU 12

:PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

:1S INRDY SET?

;ERROR, INRDY IS NOT SET

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

MACY11 30A(1052 )
07-JuL-80
01-JuL-89 15:129
2

SN —=2OO0VRNO
WV WN—-O

13:53 PAGE 66
BASIC RECEIVER TESTS

021204

000004
000252

2%:

4(R1) ,R&

HLT

SCOPE

SEQ 0066

;PORT4 _IN DATA

:PUT "FOUND'' IN R4

#252,R5
s:.aa

;PUT "EXPECTED'' IN RS
;WAS A 252 RECEIVED?
;ERROR, RECEIVED DATA IS WRONG

:SCOPE THIS TEST

srreenrrrertereeeeenanennnns

;*DDCMP BASIC RECEICER TEST

TEST

eevvnnccvcveveececcctennene

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377

;*VERIFY THAT IN RDY [S SET, AND THAT THE C(HARACTER WAS RECEIVED

::Q".'Q""Q""'""""'.Qt"""Q""'.".'."t'."""""'

;
016744
016752

000034
017062

001226
001216

TST34:

17024
17030
e
D e

o
>

D o

i
h

#12,R2
#BIT11,(RY)

TIMER,

;AND THE CHARACTER 377

;:SINGLE CLOCK THE DATA
;WAIT FOR

INRDY

#357 R4

C(MPB

RS ,R4

;1S INRDY SET?

:ERROR,

HLT

ROMCLK
021204

4(R1) ,R4

#BITL RS

:PUT "EXPECTED'' IN RS
INRDY

IS NOT SET

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 _IN DATA

MOV

4(R1),R4

:PUT "'FOUND'' IN R4

ggga

gg,aa

:WAS A 377 RECEIVED?

MOV
2%:

;LOAD SILO WITH 3 SYNCS

BIC

MOV

000004
000377

PC,CHAR

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;SAVE REG ADDRESS IN RZ FOR TYPEOUT
;SET LINE UNIT LOOP

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 12
;PUT "'FOUND'' IN R4
:CLEAR UNWANTED BITS

MOV

001401

MSTCLR
MOV
MOV

ROMCLK
021244

1%:

104414

104010
104400

#TST35 NEXT

BEQ

104040

#34,TSTNO

Mov

DATACLK,

001401

120504

MOV

377

000004
000357
000020

021204
016104
012705

TEST 34

JSR

000053
000002

~
o

000012
004000
027066

HLT
SCOPE

#377.,RS
10

:PUT "EXPECTED'' IN RS
;ERROR, RECEIVED DATA IS WRONG
:SCOPE THIS TEST

sreenneeeererereeeernnnnnne

TEST

sevenevvnnnevenntennncennne

;*DDCMP DATA TEST
;*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
;*CHECKING EACH CHARACTER AS IT IS RECEIVED

::."."'Q"""'"i""'i.i."'i"'t'i""'i"t'."'tttt."l"'

‘oo

W
N U
N N N

MoV

MOV
g:se

NN NN NN
VWA

N N U

N NN

FEFREREERE

7062
7070

MOV
MOV

aeaoeae

#35,TSTNO

#15136, NEXT

07-JuL-80
CIDME
MACY11 30A(1052 )
CZDME.P1N
01-JuL-80 15:29

3396
3397
3398
3399
3400
3401
3402
3403
34064
3405
3406
3407
3408
3409
3410
3411
3412
36413
3414
3615
3416
3417
3418
36419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447

3648
3449
3450
3451

017076
017100
017104
017110
017112
017116
017122
017126
017132
017136
017142
017144
017146
017152
017154
017156
017160
017162
017164
017170
017172
017174
017176
017202
017206
017210

104412
005037
005037
00500%
01270
012711
004737
104415
104415
004737
104414
021204
016104
010205
120504
001401
104010
005202
022702
001407
005303
001360
004737
012703
000751
104400

13:53 PAGE 67
BASiC RECEIVER TESTS
MSTCLR

027504
027506

CLR
CLR
(LR

000073
004000
027244
000043
000730
027510

SEQ 0067

sR1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11

SCHAR
S;UFLG

;START BINARY COUNT AT ZERO

sCLEAR BITSTUFF FLAG

;R2 1S "EXPECTED'' DATA
;R3 IS CHARACTER COUNT

#73,R3

MOV
MOV

sSET LINE UNIT LOOP
sLOAD SILO WITH COUNT PATTERN
:SYNC RECEIVER AND GET IT ACTIVE

#BIT11,(RT)

PC.SILOLD3
JSR
4
DATACLK,
730
DATACLK,
PC,INRDY
R
JS

sWAIT FOR INRDY

021204

:PORT4 _IN DATA

:CLOCK IN 73 CHARACTERS

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

000004

:PUT "FOUND'' IN R4

MOV
MOV
(MPB

PUT "EXPECTED'' IN RS

;1S DATA CORRECT?
:BR IF YES
;DATA ERROR
:NEXT CHARACTER
sALL DONE?
;BR IF YES
;DECREMENT CHARACTER COUNT
sBR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN
;RELOAD CHARACTER COUNT
s CONT INUE
;SCOPE THIS TEST

BEQ

2%:

000400

HLT
INC
CMP

BEQ
DEC
BNE
JSR

027244
000073

PC,SILOLD

#7383

MOV

3%:

BR
SCOPE

sernnnnerreretnnneneeeenannr

TEST

wvaneenevvnnnnnnevnneenvene

; *DDCMP DATA TEST

;*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN

;*CHECKING EACH CHARACTER AS IT IS RECEIVED
;*THIS TEST

IS EXACTLY THE

SAME AS THE LAST

TEST,

;*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12
3 A2

017212
017220

012737
012737

017226
017230
017234
017240
017242
017246
017250
017256
017260
017262
017266
017272
017276
017302

104412
005037
005037
005002
012703
005011
012761
104414
122112
004737
104415
104415
004737
104414

000036
017352

001226
001216

#36,TSTNO
#TST37 NEXT

TST36:

SCHAR
STUFLG

000073

027244
000043
000730
027510

000004

RRRRRRll

TEST 36

027504
027506

000040

MOV
ROMCLK

122112

#BIT5,4(RY)

PC,SILOLD
JSR
43
DATACLK,
730
DATACLK,
PC,INRDY
JSR
ROMCLK

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;START BINARY COUNT AT ZERO
;CLEAR BITSTUFF FLAG
;R2 IS "EXPECTED'' DATA
;R3 IS CHARACTER COUNT
;CLEAR LU LOOP IN MAINT REG
:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET LU LOOP IN LU REG 12
;LOAD SILO WITH COUNT PATTERN
;SYNC RECEIVER AND GET IT ACTIVE

;CLOCK IN 73 CHARACTERS
;WAIT FOR

INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

CIOME
MACY11 30A(1052) 07-JuL-80
(ZDME .P11
01-JuL-80 15:29
3452

017304

021204

3453

017306

016104

356
36457
3458
3459
3460
3461
3462

017316
017320
017322
017324
017330
017332
017334

001401
104010
005202
022702
001407
005303
001360

3454
3455

36463

017312
017314

017336

010205
120504

004737

13:53

PAGE 68

BASIC RECEIVER TESTS
021204

000004

MOV

&(R1) R4

000400

BEQ
HLT
INC
(MP
BEQ
DEC
BNE

2%
10
R2
#400,R2
3%
R3
4%

MOV
CMPB
2%:

027244

JSR

3464 017342 012703 000073

3465
gzgg

017346
017350

PC,SILOLD

MOV

000751
104400

3%:

3468

R2,RS
RS.,R4

BR
SCOPE

#7385 R3
1%

SEQ 0068
;PORT4 _IN DATA

;PUT "FOUND'' IN R&

;PUT "EXPECTED'" IN RS
;1S DATA CORRECT?

;BR IF YES
;DATA ERROR
sNEXT CHARACTER
sALL DONE?
;BR IF YES
;DECREMENT CHARACTER COUNT
;BR IF SILO NOT EMPTY

sLOAD SILO WITH MORE OF COUNT PATTERN

:RELOAD CHARACTER COUNT
s CONTINUE
;SCOPE THIS TEST

3469

sernnnnereereeenereenerennnn TEST 37 wnvovannvenennvnnnenenenene

3471
3472
3473

;*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA
:*CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377
;*WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT

3470

s*TRANSMITTER MARK TEST

3474

;*TO A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY

3475

34676
3477

3478

3479
3480
3481
3482
3483

017352
017360

012737
012737

3487

017366
017370
017374
017400
017402
0176406

104412
012711
004737
000301
104415
004737

3489

017414

021204

3484
3485
3486

3488

3490
3491
3492

3493

017412

017416

017422
017426
017430

104414

016104

012705
120504

017432
017434

104010
004737

3497

017442

021204

017450
017454

012705
120504

01746440

3498 017444
3499
3500

104414

016104

001401
104010
004737

3501
3502
3503

017456
017460
017462

3505

017470

021204

017476

012705

3504

017466

3506 017472
3507

001226
001216

T1ST37:

004000

027066
000073

027510

104414

016104

MOV
MOV

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
;AND A 301
;CLOCK THE 301 IN AND 20 EXTRA TICKS
sWAIT FOR INRDY

021204

sPORT4 _IN DATA

BEG

027510

#37,TSTNO
#TSTLO NEXT

MSTCLR
MOV
#BIT11,(RY)
JSR
PC,CHAR
301
DATACLK,
73
PC,INRDY
JSR

MOV
CMPB

000301

1%:

HLT
JSR

ROMCLK

021204

4(R1),R4
#301,RS
RS,R4
1%

10
PC,INRDY

000004

MOV

4&(R1),R4

027510

BEQ
HLT
JSR

2%
10
PC,INRDY

MOV
(MPB

000377

000004

000377

2%:

TEST 57

MOV

000004

R R

|eeecccccccccan

ROMCLK

001401

3496
3495

3496

000037
017512

ROMCLK

021204

MOV
MOV

#377 ,RS
RS ,R4

4(R1) R4
#377 RS

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

;PUT "FOUND'' IN R4

;PUT “EXPECTED'' IN RS
;WAS A 301 RECEIVED?

;ERROR FIRST CHARACTER INCORRECT
sWAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PORT4 _IN DATA

;PUT "FOUND'' IN R4

;PUT "EXPECTED'' IN RS
JWAS A 377 RECEIVED?
;ERROR, 377 WAS NOT RECEIVED
;WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _IN DATA

;PUT "FOUND'' IN R4

;PUT "EXPECTED'" IN RS

MACY11 30A(1052)
07-JuL-80
(IDME
(ZDME .P1
01-JuL-80 15:29
120504
001401

104010
104400

3%:

(MPB
BEQ
HLT
SCOPE

SEQ 0069

RS, R4
3
10

;WAS A 377 RECEIVED?
;ERROR, 377 WAS NOT RECEIVED
;SCOPE THIS TEST

AN ATV NN WD
e e
s b

~NODnWES
W

TEST

;*CABLE TURNAROUND TEST

NO WV

JEGR

N U

AT
AN NN
ViAW VWA WA VIV
= e
W W WO POPOPIRI NI NI
—
(V1N]
oV~ O VS NN 2OV

N AN AN N N N NN G N N N N NN W NN NN

PAGE 69

BASIC RECEIVER TESTS

sevrnennrrerervnreeeeeeennnn

VIV
AV WA
VIV AW

N LN N U

13:53

svvvevrecvevnvenentccreceene

;*CLEAR LINE UNIT LOOP, SET DTR

;*VERIFY (HAT RING ANDODEM READY ARE SET

;*CLEAR DTR, VERIFY THAT MRDY IS CLEARED
3 R

;
017512
017520

017526
017530
017536
017540
017546
017550
017552
017560
017562
017564
017570
017572
017574
017600
017604
017610
017616
017620

000040
017744

001226
001216

020000

001366

040000

001366

000100

000004

1ST40:

000004
000023
000310
020000
042705

000200

017624
017632

032737

000004

017634
017640
017640
017642

042705

000200

017644
017646

120405

001402

020504
001403

MOV
MOV

R R

#40,TSTNO
#TST4T NEXT

BIT
BNE

#BIT13,STATT
+12

MOV

#100,4(R1)

BIT
BEQ
CLR

ROMCLK

122113
TIMER,

¥BIT14,STATI
2%
(R1)

ROMC LK
021264
MOV

4(R1),R4

MOV

#310,RS

BIC

gé;

001366

R R

ARl

TEST 40

MSTCLR

000002

:R1

CONTAINS BASE DMC11

;MASTER CLEAR DM(11

ADDRESS

;1S LINE UNIT M8202?
:BR IF YES (DO TEST EVEN IF NO LOOP=-BACK CONN)
:1S TURNAROUND CONNELTNR ON?
:SKIP TEST IF NO
;CLEAR LINE UNIT LOOP
;LOAD PORT4

*NEXT WORD IS INSTRUCTION, RCACLK PC=5304

;SET DTR
SWALT

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU13
; PUT FOUND IN R4
s+ eNEW

#23 R4

: CLEAR JUNK

OBéT13,STAT1

;

GET EXPECTED.

IS LINE UNIT M8202?

001372

BIC

#BIT7,RS

: NO RING ON M8202

BIT

#RIT2,STATY

: IS THIS V.35 MODEM?

BIC

#BIT7,RS

: YES=NO RING ON V.35 MODEM

CMP

RS, R4

: ARE RING AND MODEM READY SET?

BEQ

3%:

BEQ

(MPB

BEQ

001435

R4 RS

: NO THEN GO AMEAD.

: WARNING' IF V.35 AND AUTO STARTED,
; YOU WILL GET THIS ERROR. YOU MUST

; MANUALL NASWER THE QUESTIONS FOR Vv.35.

; ARE RING AND MRDY CLEAR?

WARNING' YOU MAY GET THIS ERROR [F V.35

AND AUTOSTART. YOU MUST MANNUALLY ANSWER

104011

005061

104414
1221132
104416

000004
000002

1%:

HLT

CLR

ROMCLK

122113
TIMER,

4L(R1)

; ALL QUESTIONS IF V.35.

;ERROR, MRDY NOT SET

;CLEAR PORT4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;CLEAR DTR

MACY1

30A(1052)
07=JUL=-80
01-JuL-80
1 5:29

13:53 PAGE 70
BASIC RECEIVER TESTS

104414

021264

ROMCLK

000010
000004

017736

021264
MOV
BIC

000004
000023
020000

042704

SEQ 0070

(LR

001366

000200

120405

lBéT13.STAT1

BIT
BEQ
BIS
BIT

001372

; PUR FOUND IN R&

104011
104400

2%:

+++NEW

: STRIP JUNK
;

;

SET EXPECTED.

IS THIS A M8202?

BEQ
BIC

#BIT3,RS
#BIT2,STATY
4%
#BIT7,R4

; YES THEN EXPECT MRDY SET.
; IS THIS v.35?

R4 RS

; ARE RING AND MRDY CLEAR?

;: WARNING'
;

017740
017742

INSTRUCTION, ROMCLK PC=5304

a®

(MPB
BEQ

001401

4(R1) ,R&
#23,R4
RS

:NEXT WORD IS
‘PORT4 LUT3

YOU MAY GET THIS ERROR IF

AND AUTOSTART.

YOU MUST MANNUALLY

; ALL QUESTIONS IF v.35.

V.35

ANSWER

:ERROR, MRDY NOT C(LEAR

HLT

:SCOPE THIS TEST

SCOPE

ennnenrevtteceereerneenennt

TEST

sevtctnnveceeneenneecnecene

;*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO
;*VERIFY THAT ALL MODEM SIGNALS ARE
3 Rt

SET

AR AR RERRRAERRRRRRRRRRRRRRRRRRARRORORARRRRORORRORGROERRRROEROOROORRTORTOETNR

TEST

001366

004000
000100

000004

021264
016104
042704
012705

122113
TIMER,

000004

MOV

ROMCLK

122111

JSR

MESDAT

64.

MOV
2%:

000004
000023
000354

BIT
BEQ
MOV
MOV

#BIT14,STATY
1%
#BIT11,(RY)
#100,
4(R1)

ROMCLK

000050

1046414

#BIT13,STAT]

BNE

030152

005011

BIT

(LR

.+12

#1,4(RY)

RS ,MESLD

#50,R0
(R1)

021264
MOV
BIC
MOV

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

;1S LINE UNIT M8202?

;BR IF

YES (DO TEST EVEN IF NO LOOP-BACK CONN)

;1S TURNAROUND CONNECTOR ON?
;SKIP TEST IF NO
;SET LINE UNIT LOOP
:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
CkE?R ALL MODEM SIGNALS,EXCEPT DTR
W

;LOAD PORT4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM

:FILL OUT DATA SILO
;WITH 64 CHARACTERS
;PREPARE

FOR DELAY

;CLEAR LINE UNIT LOOP

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

ROMCLK

OO NO VSN
2O

AR A

001366

040000

000002
000001

MSTCLR

#41,TSTNO

#TSTL2 NEXT

020000

MOV
MOV

017760
017762

T1ST&1:

P
.

017752

001226
001216

L3 K

000041
020140

N
~
VAN
O

017744

;PORT4 LU13

*PUT "FOUND'' IN R&4

;CLEAR UNWANTED BITS

SPUT "EXPECTEDTM IN RS

13:53

MACY1Y 30A(1052)
CZDME
07-JuL-80
CZDME.P11
01-JuL-80 15: 29

032737
001402
042705
032737
001402
042705

PAGE

BASIC RECEIVER TESTS

000004

001372

000200
020000

001366

000200

40%:
4%

120504

001403
005300
001350
104011

SEQ 0071

3@3

ngxxzLSTATS

1S THIS v.35?

BIC

#BI17,RS

YES THEN GET RID OF RING

BEQ
BIC

48
#BIT7,RS

BIT

#BIT1%,5TATY

C(MPB
BEQ
DEC
BNE
HLT

RS,R4
1%
RO
2%

:COMPARE EXPECTED AND FOUND
‘BR IF OK
:DEC DELAY COUNT
‘BR IF NOT ZERO

‘ERROR, ALL SIGNALS ARE NOT SET
: WARNING THIS TEST WILL FAIL if

YOU

; DON'T MANUALLY ANSWER QUESTIONS IF
020136

104400

1%:

: YES HAVE Vv.35.
“SCOPE THIS TEST

SCOPE

e RRRRerre
Rt e
e nnnnn

;*TEST

TRANSMITTER

TEST

atttrnttntenttettnetntetet

CRC OPERATION

;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
:+0, VERIFY THE LSB OF THE BCC ON EACH SHIFT
FIRST

THEN THE

RECEIVER BC~

::t"'."‘""""""'t".'.'t"'.".'Q"t"'.t...t"."t."t!'

020162
020164

120001

000000
020246
027654

000021
000001

oo~

-0

—y
i

64%:

027650
020244

65%:

33 334

027766

68%:
69%:

#42,TSTNO
#TST43, NEXT
#64$,L0CK

MOV

#BIT11,(RT)

CLR
MoV
MoV

RO
#CRC16,XPOLY
#0,66%

JSR

CLR

66%:
67%:

104016

MOV
MOV

MOV

027544

027766

TEST 42

MSTCLR

004000
030214

020170
020174
020176

TST42:

000042
020454
020170

[=l=l=]
=l o]

020140
020146
020154

roror

;

PC,CLRIO

67%

JSR
PC,BCCLD
0
DATACLK,
21
DATACLK

;R1

CONTAINS BASE

DMC11

;MASTER CLEAR DMC11

ADDRESS

;SET LU LOOP

;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BC(C(
;LOAD CHAR FOR SOF TWARE BCC

:CLEAR OLD SOF TWARE BCC

:LOAD OUT SILO WITH 2 SYNCS
*AND THE CHARACTER 0
:GET TRANSMITTER ACTIVE
SSHIFT BCC ONCE

RO
RS,SIMBCC

‘BUMP SHIFT COUNT
"CALCULATE SOF TWARE BCC LSB

0
0
BCS
JSR
BCC

68%
PC,GETA0
69%

*DATA CHARACTER
:0LD BCC
:BR IF SOFT BCC LSB IS SET
‘GET MARDWARE TRANSMITTER BCC LSB
:BR IF HARD BCC LSB IS CLEAR

BCS

69%

:BR IF HARD BCC LSB IS SET

INC
JSR
1

HLT
BR
JSR

12
69%
PC,GETQO

SONE SHIFT

‘ERROR, BCC LSB IS SET
CONT INUE

“GET HARDWARE TRANSMITTER BCC LSB
*ERROR, HARD BCC LSB 1S CLEAR

MACY11 30A(1052 )
07-JuL-80
01-JuL-80 1 5:29

006037

020244
027652
000010

13:53 PAGE 72
BASIC RECEIVER TESTS

020324
030214

001220

120001

027650
020400

000000
020402
027654

000032
000001

71%:

030000

006037
013737
022700
001346

020400
027652
000010

75%:

76%:

020402

104401
104400

MOV

#718,L0CK

JSR
CLR

MOV

20,738

#CRC16, XPOLY

74$

0
DATACLK,

32
1

75%

BCS
JSR
BCC
HLT
BR
JSR
BCS

PC,GETQI

76%
13
76%

PC,GETQI

76%
17

HLT

73%

ROR
MOV

CALBCC,74%

(MP
BNE

77%:

PC,BCCLD

DATACLK,
RO
INC
RS,SIMBCC
JSR
1

0
0

SCOP1

JSHIFT SOFT DATA
sLOAD OLD SOFT BCC
;DONE YET?

:BR IF NOT DONE

PC,CLRIO

CLR
JSR

73%:
74%:

103401
104017

#10,R0
65%

MOV

72%:

030000

CMP
BNE

SCOP1

027544

00
020402
020404
020406
020412
020414
020416
020420
020424
020426
020430
020430
020434
020442
020446
020450
020452

66%
CALBCC,67%

ROR
MOV

020246

SEQ 0072

#10,RO
72%

SCOPE

;SCOPE SUBTEST (Sw09=1)
sNEW SCOPE1

CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO
:LOAD POLYNOMIAL FOR SOF TWARE BCC
:LOAD CHAR FOR SOFTWARE BCC
;CLEAR OLD SOFTWARE BCC

;LOAD OUT SILO WITH 2 SYNCS
:AND THE CHARACTER 0
;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
:CALCULATE SOFTWARE BCC LSB
;ONE SHIFT
:DATA CHARACTER

;0LD BCC
;BR IF SOFT BCC LSB IS SET
:GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
; CONT INUE
:GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS SET
ERROR, BCC LSB IS CLEAR

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
;SCOPE THIS TEST

sevrennnrrrnveereneernnnennr

;*TEST OF CRC OPERATION

TEST

tevvvenennnntcnnnrtcnnnenen

;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
;*377, VERIFY THE LSB OF THE BCC ON EACH SHIFT
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC

::'t""".""""""'."'ttitit't'.l'."'li.!'l..t.'Q"'ttttt

020520

NN~

—
NN
NN

OO0

— et OO =2 O
ooV
NNONNES
NN
O N — =
NNON—-N

020470

OO0
=

020454
020462

NN
N

;
000043
020770
020504

001226
001216
001220

004000
030214
120001

000377

TST43:

64%:

027650
020560

TEST 43
#43,TSTNO
#TSTLL NEXT
#64%,L0CK
#B1T11,(R1)
PC,CLRIO

RO
#CRC16,XPOLY
#377,66%;

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11

;SET LU LOOP
;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOF TWARE BC(
;LOAD CHAR FOR SOF TWARE B((

CIDME
MACY11 30A(1052 )
07-JuL-80
CZDME.P1
01-JuL-80 15:29
005037
004737
000377
1046415
104415

13:53 PAGE 73
BASIC RECEIVER T ESTS

020562
027654

CLR
JSR

377

000021
000001

DATACLK,

66%:
67%:

0
0

027544

004737
103006

027766

104012

000404
004737

103401
104016

027766

006037
013737
022700
001346

020560
027652
000010

012737
004737

020640
030214

104401

68%:
69%:

020562

71%:

120001

027544
73%:
74%:

000404
004737
103401
104017

3781
3782
3783
3784
3785

020750
020756
020762
020764
020766

006037
013737
022700
001346
104401

104400

030000

020714
027652

000010

75%:

76%:

020716

ROR
MOV

MOV

JSR
CLR

;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 377
;GET TRANSMITTER ACTIVE

;SHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT
;DATA CHARACTER

PC,GETQO

69%
12

69%

PC,GETQO

66%
CALBCC,67%

#10,R0

65%

#71%,L0CK
PC,CLRIO
RO
#CRC16,XPOLY

#377,7%s;
743

PC,BCCLD

32
DATACLK,
DATACLK,
1
RO
INC
RS,SIMBCC
JSR
1
0
0
75%
BCS
PC,GETQI
JSR
76%
BCC
13
HLT
76%
BR
PC,GETQI
JSR
76%
BCS
17
HLT
ROR

73%

CMP
BNE
SCOP1
SCOPE

#10,R0

#ov

77%:

RO
RS,SIMBCC

69%

JSR

377

72%:

BCS
HLT

(LR
JSR

000032
000001

68%

MOV
MOy

020716
027654

PC,BCCLD

BCS
JSR
BCC
HLT
BR

(MP
BNE
SCOP1

000377

103006
104013

INC
{SR

;CLEAR OLD SOF TWARE B(C

67%

DATACLK,

65%:

SEQ 0073

CALBCC,74%
72%

;0LD BCC

;BR IF SOFT BCC LSB IS SET
;GET HARDWARE TRANSMITTER B(C LSB
;:BR IF HARD BCC LSB IS CLEAR

;ERROR, BCC LSB IS SET
; CONTINUE

;GET HARDWARE TRANSMITTER BCC LSB
:BR IF HARD BCC LSB IS SET
;ERROR, HARD BCC LSB IS CLEAR

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (SwW09=1)
;NEW SCOPE1
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BC(
;LOAD CHAR FOR SOF TWARE BCC(
;CLEAR OLD SOFTWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 377
;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT
;DATA CHARACTER
:0LD BCC
:BR _IF SOFT BCC LS B
:GET HARDWARE RECE IV
;BR IF HARD BCC LS B
;ERROR, BCC LSB IS
s CONTINUE
;GET HARDWARE RECEIV
;BR IF HARD BCC LSB
;ERROR, BCC LSB IS C

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC
:DONE YET?
;BR IF NOT DONE

;SCOPE SUBTEST (SW09=1)
;SCOPE THIS TEST

CIDME
MACY11 30A(1052)
07-JuL-80
CZOME.P1N
01-JuL-80 15:29

13:53 PAGE 74
BASIC RECEIVER TESTS

SEQ 0074

3788

srrnrenntrrnererenernnnnnnn

3789
3790

s*TEST OF CRC OPERATION
;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER

3792
3793
3794
3795

J*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC
R R R Y
R

3791

3796

3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829

3830
3831
3832
3833
3834

;*125, VERIFY THE LSB OF

020770
020776
021004

012737
012737
012737

021012
021014
021020
021024
021026
021034
021042
021046
021052
021054
021060
021064
021066
021072
021074
021076
021100
021102
021106
021110
021112
021114
021120
021122
021124
021124
021130
021136
021142

104412
012711
004737
005000
012737
012737
005037
004737
000125
104415
104415
005200
004537
000001
000000
000000
103405
004737
103006
104012
000404
004737
103401
104016

021144
021146
021154
021160
021162

006037
013737
022700
001346

104401
012737
004737
005
012737

000044
021304
021020

001226
001216
001220

004000
030214

120001
000125
021076
027654

TST&4:

64%:

027650
021074

000021
000001

65%:

027544
66%:
67%:

027766

021074
027652
000010

68%:

69%:

021076

021154
030214

001220

120001

027650

71%:

3835 021170 012737 000125 021230

3836

021176

005037

021232

3839
3840
3841
3842
3843

021210
021214
021220
021222
021226

104415
104415
005200
004537
000001

000032
000001

3837
3838

021202
021206

004737
000125

027544

tevnneetevnerenenteenneenee

THE BCC ON EACH SHIFT

TEST 44

MOV
MOV
MoV

#44,TSTNO
#TSTLS NEXT
#64%,L0CK

MSTCLR
MOV
#BIT11,(RT)
JSR
PC,CLRIO
CLR
RO
MOV
#CRC16,XPOLY
MOV
#125,66%;
CLR
67%
JSR
PC,BCCLD
125
DATACLK,
21
DATACLK,
1
INC
RO
JSR
RS,SIMBCC
1
0
0
BCS
68%
JSR
PC,GETQO
BCC
69%
HLT
12
BR
69%
JSR
PC,GETQO
BCS
69%
HLT
16

sR1

CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;SET LU LOOP
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOFTWARE BCC
;LOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOFTWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
sAND THE CHARACTER 125
sGET TRANSMITTER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
;ONE SHIFT
sDATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
sGET HARDWARE TRANSMITTER BCC LSB
sBR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
s CONTINUE
;GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS SET
sERROR, HARD BCC LSB IS CLEAR

ROR
MOV
CMP
BNE
SCOP1
MOV
JSR
CLR
MOV

66%
CALBCC,67%
#10,R0
65%

#71%,L0CK
PC,CLRIO
RO
#CRC16, XPOLY

;SCOPE SUBTEST (Sw09=1)
sNEW SCOPE1
sCLEAR BCC REGISTERS
JsSTART SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOF TWARE BCC

CLR

74%

;CLEAR OLD SOFTWARE BCC

JSR
125

72%:

;eeeeeeccccccan

MOV

027654

TEST

#125,7%s;
PC,BCCLD

DATACLK,
32
DATACLK,
1
INC
RO
JSR
RS,SIMBCC
1

;SHIFT SOFT DATA
sLOAD OLD SOFT BCC
;DONE YET?
sBR IF NOT DONE

:LOAD CHAR FOR SOF TWARE BCC

;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 125

;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
;ONE SHIFT

(VI
IV P . o bg
OSOOSTNOSNO

— D e D D D D D D D

SLSTNSTST
NI NI NI, NT.NT.N)
N NN

[elelelolelelelelele]

SN NI NT NI NT NI NI NN

MACY11 30A(1052 )
07-JuL-80
(ZDME
CZDME.P1
01-JuL-8 0 15:29

000000

73%:
74%:

030000

000404
004737
103401
104017

006037
013737
022700
001346
021302

13:53
PAGE 75
BASIC RECEIVER TESTS

0
0
BCS
JSR
BCC

75%
PC,GETAI
76$

:DATA CHARACTER
:0LD BCC
‘BR IF SOFT BCC LSB IS SET
:GET HARDWARE RECEIVER BCC L3B
:BR IF HARD BCC LSB IS CLEAR

BR
JSR

768
PC,GETAL

:CONTINUE
:GET HARDWARE RECEIVER BCC LSB

HLT

030000

021230
027652
000010

75%:
76%:

021232

104401
104400

77%:

SEQ 0075

BCS

‘ERROR, BCC LSB IS SET

76$

ROR
MOV

:BR IF HARD BCC LSB IS SET
*ERROR, BCC LSB IS CLEAR

738
CALBCC,748

CMP
BNE
SCOP1
SCOPE

#10,R0
72%

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC

:DONE YET?
‘BR IF NOT DONE
:SCOPE SUBTEST (SW09=1)
*SCOPE THIS TEST

KRR ERRRCERCCERRCRER
R

TEST

vttt nennrtatttt
ettt iene

;*TEST OF CRC OPERATION

;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
;*252, VERIFY THE LSB OF THE BCC ON EACH SHIFT

;*TEST

TRANSMITTER FIRST THEN THE RECEIVER BCC

3 AR AR

;
021304
021312
021320

000045
021620
021334

021326

001226
001216
001220

000252
021412
027654

000021
000001

64%:

027650
021410

66%:

67%:

027766

104016

68%:

R AR RN AR RN

NTSTLE NEXT
#64%,L0CK

#BIT11,(R1)

MOV
MOV

#CRC16,XPOLY
#252,66%;

JSR
CLR

RN RRA

PC,CLRIO
RO
67%

PC,BCCLD

;R1

CONTAINS BASE DMC11

;MASTER CLEAR DM(C11

ADDRESS

;SET LU LOOP

;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOFTWARE BCC
;LOAD CHAR FOR SOF TWARE BCC

;CLEAR OLD SOF TWARE BCC

;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 252

DATACLK,
21
DATACLK,
1
RO
INC
JSR
RS,SIMBCC
1
0
0
BCS
68%

;GET TRANSMITTER ACTIVE
;SHIFT BCC ONCE
:BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
;ONE SHIFT
sDATA CHARACTER
;0LD BCC
:BR IF SOFT BCC LSB IS SET

HLT

;EPROR, BCC LSB IS SET

JSR
BCC

PC,GETQO
69%

BR
JSR
BCS

69%
PC,GETQO
69%

HLT

#45,TSTNO

MOV

JSR
252

027544

027766

MOV

MOV
MoV

CLR

65%:

R RN R

TEST 45

MSTCLR

004000
030214
120001

TST4S:

R R

;GET HARDWARE TRANSMITTER BCC LSB
:BR IF HARD BCC LSB IS CLEAR
: CONT INUE
;GET HARDWARE TRANSMITTER BCC .SB
:BR IF HARD BCC LSB IS SET
;ERROR, HARD BCC LSB IS CLEAR

MACY11 30A(1052 )
(ZDME
07-JuL-80
CZDME.P11
01-JuL-80 15:129
2

69%:

021440
021440
021444
021452
021456
021460

001220
120001

WNON)
= -

000252
021546
027654

030000

004737

030000

103401
104017

006037
013737
022700
001346

021544
027652
000010

72%:

75%:

76%:

021546

104401
104400

CMP
BNE
SCOP1
MOV

#10,R0
65%

CLR

JSR

CALBCC,67%

#71%,L0CK
PC,CLRIO

MOV

#252,7%s;

JSR

PC,BCCLD

74%

252
DATACLK,
DATACLK,

INC
4SR

0
0

32
1

RO
RS,SIMBCC

75%

BCS
JSR

PC,GETQI

JSR

PC,GETQI

HLT

76%
13
76%

BCC
HLT
BR

76%

BCS
ROR
MOV

73%
CALBCC,74%

CMP
BNE
77%:

SEQ 0076

#CRC16,XPOLY

CLR

73%:
74%:

004737
103006

66%

MOV

027544

104013
000404

021616

71%:

027650
021544

000032
000001

ROR

MOV

021412

SREFERRaN

SCOP1
SCOPE

#10,R0
72%

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
;NEW SCOPE1
;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOF TWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
sAND THE CHARACTER 252
;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT

;DATA CHARACTER
;0LD BCC

;:BR IF SOFT BCC LSB 1S SET

:GET HARDWARE RECEIVER BCC LSB
:BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
: CONT INUE
;GET HARDWARE RECEIVER
;:BR IF HARD BCC LSB IS
;ERROR, BCC LSB IS CLE

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC
;DONE YET?
;:BR IF NOT DONE

;SCOPE SUBTEST (SW09=1)
;SCOPE THIS TEST

srrrnnneeeernnerennrennnnnnn

TEST

tanevnnnevnnneenvnttnnnnnns

;*TRANSMITTER CRC TEST

;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT
:;Qtt'.""""""t"'t'itt'"it"'titltl.'tt"tt"'t't"'.t'.'

;
001226
001216

TST&6:

MOV

MOV
MOV

(LR

)

CLR

—

o —
o~
own

TEST 46

MSTCLR

004000

000046
022056

wooog NS

021654

v
s

021620
021626

cooogooo
—-O000

3900

13:53 PAGE 76
BASIC RECEIVER TESTS

027650

CLR
CLR

MOV

#46,TSTNO

#TSTLT7 NEXT
#BIT11,(RY)

R3
R4

RS
48

#CRC16,XPOLY

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

:SET LINE UNIT LOOP
:ZERO BIT COUNT
;R& CONTAINS CHAR TO BE LOADED IN S Lo
;RS CONTAINS CHAR CURRENTLY BEING S H1F TED QuT
;CLEAR SOFT BCC
:LOAD POLYNOMINAL

MACY11 30A(1052 )
(IDME
07-JuL-80
129
CZDME.P11
01-JuL-80 15:2

004737

13:53

PAGE 77

BASIC RECEIVER TESTS
JSR

030016
000004

PC,SYNLD

MOV

ROMCLK

s
OO -

INC

000004

MOV

ROMCLK

122110

INC

MOV

000004

ROMCLK

SNSNSNSNNNNY

RNSFo&
R

1700

238 NO —=2ONO

122110

026702
000021
021750
000001
027544

1%:

2%:
3%:

4%:

027766

021774
021776
022000

104021

006037
013737
005203
022703
001346
005003
005204
022704
003404
010461

104414
122110

022052
022054

5%:

027766

005205
022705
001327

104400

6%:

021752

MOV

000400
000004

000400

7%:

R4 ,4(RY)

RS,3$

:LOAD SILO WITH 2 SYNCS, SOM SET
:PORT4 _CHAR

:NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

:INCREMENT TO NEXT CHARACTER
:PORT4 _CHAR

:NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

:INCREMENT TO NEXT CHARACTER
:PORT4& CHAR

;NEXT QORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD OUT DATA
;WAIT FOR OCOR
:CLOCK DATA

:LOAD CHAR FOR SOFT CRC

:SHIFT BCC ONCE
:CALCULATE SOFT BCC
;SOFT SHIFT COUNT

:SOFT CHARACTER

;:0LD SOFT BCC

BCS
JSR
BCC

5%
PC,GETQO
6%

JSR
BCS

PC,GETQO
6%
2*

;ERROR, BCC LSB WAS CLEAR

ROR
MOV

3%
CALBCC,4$

:SHIFT SOFT DATA
;LOAD OLD SOFT BCC

#400,R4
9%
R4 ,4(R1)

:DONE BINARY COUNT YET?
:BR IF YES
:PORT4 DATA

HLT
BR

20
6%

R3
#10,R3
2%
R3
R4

ROMCLK

9%:

R4 ,4(R1)

DATACLK,1
JSR
RS,SIMBCC

INC
CMP
BNE
CLR
INC
CMP
BLE
MOV

000010

122110
JSR
PC,OCOR
DATACLK,21

HLT

021750
027652

R&,4(R1)

SEQ 0077

122110
INC

CMP
BNE
SCOPE

RS
#400,RS
1%

:BR IF SOFT BCC LSB IS SET
:GET HARDWARE TRANSMITTER BCC LSB
:BR IF 0K (CLEARED)
;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST

:GET HARDWARE TRANSMITTER BCC LSB
:BR IF OK (SET)

: INCREMENT BIT COUNTER
:DONE A FULL CHARACTER YET?
:BR IF NO
;RESTART BIT COUNTER
: INCREMENT DATA FOR SILO

:NEXT QORD IS INSTRUCTION, ROM{LK PC=5304
:LOAD OUT DATA
: INCREMENT DATA

:DONE BINARY PATTERN YET?
:BR IF NC
:SCOPE THIS TEST

JRRRRRRERRRRRCERR
R RR
ennnn TEST

ARttt
t Attt ettt ate

;*RECEIVER CRC TEST
;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY

;*COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT
;:.ti""""i""""""itIl.Q.'ltilt'.lt'."i'!"'i.'.'ttt't'

;

TEST 47

MACY1] 30A(1052)
CZDME .P1N
01-JuL-80
1

07-JUL-80

012737
012737

13:53 PAGE 78
BASIC RECEIVER TESTS
TST47:

104412

MOV
MOV
MSTCLR

012711
005003

MOV

CLR

CLR
CLR

MOV
JSR
MOV

ROMILK

#CRC16,XPOLY
PC,SYNLD
R&,4(RY)

000004

R&
R4 ,4(R1)

122110
JSR

PC,OCOR

ROMCLK

DATACLK,3?

0
0
BCS
JSR
BCC

BCS

HLT

030000

5%:

JSR

HLT

022206
027652

6%:

000010

ROR
MOy

000004

PC,GETQI

3%
CALBCC,4%

CMP
BLE

#400,R4
9%

ROMCLK

7%:

PC,GETQI

RY
#10,R3
2%
R3

MOV

9%:

INC
(MP
BNE
CLR
INC

000400

R4
R4 ,4(RY)

MOV
RS.,3%
LK,1
DATAC
#SR
RS,SIMBCC

030000

RS
4%

122110
INC
MOV

ROMCLK

38:

000004

4%:

[PrTo"

#BIT11,(RY)

122110
INC
MOV

026702
000032
022206
000001
027544

247 ,TSTNO
#TSTSO,NEXT

122110

INC
CMP
BNE

SCOPE

R4 ,4(RY)

RS
#400,RS
1%

SEQ 0078

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

ADDRESS

;SET LINE UNIT LOOP
;ZERO BIT COUNT

;R4 CONTAINS CHAR TO BE LOADED IN SILO
;R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

;CLEAR SOFT BCC
:LOAD POLYNOMINAL

;LOAD SILO WITH 2 SYNCS, SOM SET
;PORT4_CHAR

;NEXT WORD IS INSTRUCTION, ROHCLK PC=5304
;LOAD OUT DATA
: INCREMENT TO NEXT CHARA(TER
:PORT4 CHAR

*NEXT QORD IS INSTRUCTION, POMCLK PC=5304

:LOAD OUT DATA
: INCREMENT TO NEXT CHARACTER
:PORT4_ CHAR

*NEXT QORD IS INSTRUCTION, ROMCLK PC= ssoa

;LOAD OUT DATA
:WAIT FOR OCOR

:CLCCK DATA
;LOAD CHAR FOR SOFT (RC
;SHIFT BCC ONCE
;CALCULATE SOFT BCC
;SOFT SHIFT COUNT
;SOFT CHARACTER
;0LD SOFT BCC
:BR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BCC LSB
;BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
;GET HARDWARE RECEIVER BCC LSB
;BR IF OK (SET)
;ERROK, BCC LSB WAS CLEAR

;SHIFT SOFT DATA
:LOAD OLD SOFT BfC
: INCREMENT BIT COUNTER
;DONE A FULL CHARACTER YET?
:BR iF NO
;RESTART BIT COUNTER
: INCREMENT DATA FOR SI LO
;DONE BINARY COUNT YET?
:BR IF

YES

‘PORT4 DATA

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;LOAD OUT DATA

: INCREMENT DATA
;DONE BINARY PATTERN YET?
:BR IF NO
.SCOPE THIS TEST

—-—

MACY11 30A(1052)
(ZDME
07-JuL-80
01-JuL-80 15:29
CZDME .P11

13:53 PAGE 79
BASIC RECEIVER TESTS

4068
4069
4070
407
6072
4074
4075
4076
4077
4078
4079
4080
4081
4082
4,083
4084
4085
4086
4087
4088
4089
4090
409N
4092

;*TRANSMITTER DDCMP CRC

N --.d-‘-‘-‘—.-‘-‘-l N
w N — OO0
O N &S W) — o

&»

. —

—

veveercecvennnterecceernene

TEST

;*THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC
;:'."""""""""""""Q'Q'""Q't"'.'Q""".'Q"'""Q

;

022314
022322

012737
012737

022330

104412

000050
022646

001226
001216

TS150:

TEST S0

MOV

#50,TSTNO

#TSTS1,NEXT

MSTCLR

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DMCT1

ADDRESS

;LOAD OUT DATA SILO
022332

012711
012704

005037
012700
004737
004737
004537

004000
030434
022436
000004
030016
027034
030152

022412

104415
112405

MOV
MoV

#BIT11,(RT)
#MESDAT R4

;SET LINE UNIT LOOP
;LOAD POINTER TO DATA

JSR

PC,SYNLD

;LOAD 2 SYNCS IN OUT SILO

CLR
MOV
JSR
JSR
MESDAT
4

030126
026702

4097

—_— IR

S50

;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252,377

4096

& PN

TEST

;*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC
;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT

4093
4094
4095

4098
4099
4100
6101
4102
4103
4104
6105
6106
6107
4108
6109

SEQ 0079

serenenrectrerereeneeeeevnnr

4073

000022

12%:

010502

10%
¥4 RO

PC,OUTRDY
RS ,MESLD

;CLEAR SOFT BCC
;LOAD CHARACTER COUNT

;WAIT FOR OUTRDY
;LOAD SILO WITH 4 CHAR MESS
;ADDRESS OF MESSAGE

;NUMBER OF

CHARACTERS

JSR
JSR
CLR

PC,EOM
PC,OCOR
R3

;LOAD GARBAGE CHARACTER, WITH EOM SET
;WAIT FOR OCOR
;CLEAR BIT COUNTER

Mova
Mov

(R4) +,RS
R5,R2

;LOAD R5 WITH CHAR
;LOAD R2 WITH CHAR

DATACLK,?22

;CLOCK DATA

;CHECK FIRST FOUR CHARACTER MESSAGE

;IN THE BIT WINDOW (0,125,252,377)
022614

012737
010537

004537
000010
000000
000000
013737
104415
106002

120001

022434
027544

027650

Mov
MOV

67%:

027652
000001

022436

108:

64%:

026650

026650
022500

104006

#CRC16,XPOLY
R5,67%

:LOAD POLYNOMIAL
:LOAD SOFT CHAR FOR BCC

0
MOV

CALBCC,108

“SHIFT COUNT
*CHARACTER
:0LD BCC
:LOAD SOFT BCC FOR NEXT SHIFT

RORB

SSHIFT SOFT DATA

BCC

66$

JSR

65%:

66$:

10
0

DATACLK,

BCC
JSR
BCS
HLT
BR
JSR
HLT

RS,SIMBCC

65%
PC,GETSI
66$
6
65%
PC,GETSI
6

;CALCULATE SOFT BCC

“SHIFT DATA IN TO BIT WINDOW

‘BR IF A SPACE
:LOOK AT BIT WINDOW
‘BR IF OK (MARK)
"ERROR, BIT WINDOW WAS A SPACE
* CONT INUE
:LOOK AT BIT WINDOW

‘BR IF OK (SPACE)

"ERROR, BIT WINDOW WAS A MARK

—

13:53 PAGE 80
BASIC RECEIVER TESTS

INC
CMP
BNE
(LR
DEC
BNE

000010

tflUC’snvE;
——

[olelelelele BN

MACY11 30A(1052 )
07-JuL-80
P
01-JuL-80 15:129
2

001335

SEQ 0080

;BUMP BIT COUNTER
;DONE FULL 8 BITS YET
:BR_IF NO
;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

R3
#10,R3
64%
R3
RO
12%

RNSFROERESN
o

(=l=l=]

SOOOOOOOOOO

nororN
NN
NN
WD
ViAW VIV
VAW VNS
S

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

022562
022564

013700
104415

006000
103005

004737

103406
104014

000404
004737
103001
104014

005203
022703
001357
005003

027652
000001

68%:

MOV

CALBCC,RO

sPUT BCC IN RO

ROR

DATACLK,1

JSR

PC,GETSI

JSHIFT SOFT BCC
:BR IF CARRY CLEAR
sLOOK AT BIT WINDOW
;BR IF Ok (MARK)
;ERROR, CRC WRONG (SPACE)
: CONTINUE
;LOOK AT BIT WINDOW

HLT

;ERROR, CRC WRONG (MARK)

BCC
JSR
BCS

026650

HLT

026650

69%:
70%:

000020

:SHIFT HARDWARE BCC

BCC

INC
CMP
BNE
CLR

69%
PC,GETSI
70%
14

70%

;BR IF Ok (SPACE)

:BUMP BIT COUNTER

R3
#20,R3
68%
R3

;FINISHED BCC YET?
:BR IF NO
;CLEAR BIT COUNTER

;CHECK TO SEE IF TRANSMITTER IS MARKING
022566

104415

004737
103401
104024

000001
026650

000007

2%:

BCS
3%:

000010
4161
6162

4163
4165
4166
L167
4168
4169

4170
“N
4172
4173
4174
6175

4176
6177
4178
4179

103401
104024

022644

005203
022703
001366
104400

000001
026650

1
DATACLK,
JSR
PC,GETSI

4%:

000020

5%:

HLT

R3
INC
CMP
#7,R3
BNE
2%
DATACLK,
R3
CLR
DATACLK,
JSR
BCS
HLT

INC
CMP
BNE

SCOPE

PC,GETSI
.t
24

R3
#20,R3
31

;CLOCK TRANSMITTER
;LOOK AT WINDOW
;1T SHOULD BE MARKING

;ERROR, BIT WAS A SPACE

10
1

;BUMP BIT COUNTER
;DONE YET
;BR IF NO
:GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
sCLEAR BIT COUNTER
sSHIFT OUT NEXT BIT
;LOOK AT BIT WINDOW
:BR IF IT IS A MARK
;ERROR, TRANSMITTER IS NOT MARKING
sINC BIT COUNT
;DONE YET?
:BR

IF NO

:SCOPE THIS TEST

canenrrettrrevenenenenenennn

JEST

tevevavntcecevecevannentnen

;*RECEIVER DDCMP CRC TEST
s*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC
s*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH.
;*IN BCC MATCH IS CHECKED TO SEE THAT IT IS NOT ASSERTED
;*UNTIL THE LAST HALF OF THE CRC IS RECEIVED
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377

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

13:53
PAGE 81
BASIC RECEIVER TESTS

MACY11 30A(1052)
07-JuL-80
PN
01-JuL-80 15:29

;
022646
022654

012737
012737

000051
023074

0C! ¢ 2 6
001 2 1 6

TST51:

104412

012711
012702
012700
004737
004737
004537
030434
000004
004737
004737
104415
004737
104414

022744
022750

022752
022754
022756

021204
016104
112205

MOV
MOV
MOV
JSR
JSR

030434
000004
030016
027034
030152

JSR

zfsoAr

030126
026702
000114
027510

#51,1STNO
#TSTS2 NEXT

000004

#BIT11, (R1)
#MESDAT,R2
#4 RO
PC.SYNLD
PC.OUTRDY

RS.MESLD

JSR
JSR

PC,EOM
PC.OCOR

JSR

PC, INRDY

DATACLK,114
ROMCLK

021204

4(R1) ,R4
(R2)+.RS

001401

104010

(MPB
BEQ
HLT

RS,R&
1%
10

104414

ROMCLK

120504

021244

000004
000376

4&(R1) ,R4

BEQ

120504

104015

HLT

005300
001352

4%:

DEC
BNE

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

ADDRESS

;SET LINE UNIT LOOP
;LOAD POINTER TO DATA
;LOAD CHARACTER COUNT
;LOAD 2 SYNCS IN OUT SILO
;WAIT FOR OUTRDY

;LOAD SILO WITH & CHAR MESS
;ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
;WAIT FOR OCOR

;CLOCK DATA
;WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET IN DATA

;PUT "'FOUND'' IN R4

;PUT "EXPECTED'" IN RS
;COMPARE RECEIVED DATA

;BR IF 0K
;DATA ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

MOV

BIC
CLR
(MPB

001401
023004
023006

MOV
MOV

MOV
MOVB

021244
016104
042704
005005
4214

TEST §1

MSTCLR

004000

SEQ 0081

#376 ,R4
RS
R5,R4

;PUT "'FOUND'' IN Ré

;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;IS IN BCC MATCH STILL CLEAR?

;IN BCC MATCH ERROR

RO
38

;DEC CHARACTER COUNT
;BR IF NOT DONE YET

s CHECK TO SEE THAT [N BCC MATCH IS SET

104414

021244
016104
042704

023062
023064

104015

177400

027510

000004
000376
000001

(a1,
N)

000004

021204
116137
042737
004737

JSR

PC, INRDY

;WAIT FOR INRDY

021204
MOVB

4(R1),TEMP3

;PUT IN TEMP3

JSR

PC, INRDY

;WAIT FOR INRDY

ROMCLK

104414

027510
nn

004737

(=34
oo

023010
023014

BIC

ROMCLK

021244
MOV

BIC

MOV

(MPB
BEQ
HLT

#177400, TEMP3

4(R1),R4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF CRC
;CLEAR HI BYTE

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PUT "'FOUND'' IN R4

#376 R4

;CLEAR UNWANTED BITS

RS.R&
25%
15

;1S IN BCC MATCH SET?

;PUT "EXPECTED'' IN RS
;IN BCC MATCH ERROR

MACY11 30A(1052)
C l DME
07-JuL-80
C 1 DME.P11
01-JuL-80 15:29

023066
023066
023070
023072

13:53 PAGE 82
BASIC RECEIVER TESTS
25%:

104414

021204

104400

2%:

SEQ 0082

ROMCLK
021204
SCOPE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET LAST HALF
:SCOPE THIS TEST

;e erreeereetreceenvennne

TEST

eeesnveccenveecenecncncecny

;*DDCMP EOM FUNCTION TEST

;*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM
;*4 CHARACTER MESS ,EOM. THE DATA STREAM [S CHECKED TO BE
;%4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
;*THE CHARCTERS LOADED WITH EOM SET ARE LOST

;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW

;*THE FOUR CHARACTER MESSAGE

1S 0,125,252,377

;*RECEIVED DATA [S VERIFIED, AND IN BCC MATCH IS CHECKED

023074
023102

012737
012737

023110

104412

000052
024174

001226
001216

1$152:

- S

AR AR R AR

TEST 52

MOV
MOV

#52,71STND

#TSTS3 NEXT

MSTCLR

:R1

CONTAINS BASE

DML11

;MASTER CLEAR DMC11

ADDRESS

NONOON&NONON
‘U\q;gy’\flv“fi‘“"
WNON) = 8o

[elelelelelelolelelelcllol=l=l=1l=]

NN
N
~N oD
N N NN N NN N NN
vL L U L
—
e
o
e
o
e
d
e
e
e
e
el
e
e
N

:LOAD OUT DATA SILO

023204

012711
012704
005037

004000

030434
023232

MOV
MOV

#BIT11,(RY)
#MESDAT R4

;SET LINE UNIT LOOP
:LOAD POINTER TO DATA

MOV

#4 RO

:LOAD CHARACTER COUNT

CLR

PC,SYNLD
PC,OUTRDY
RS ,MESLD

:WAIT FOR OUTRDY
;LOAD SILO WITH & CHAR MESS

JSR
JSR

PC,EOM
RS ,MESLD

;LOAD GARBAGE CHARACTER, WITH EOM SET
;LOAD FOUR MORE CHARACTERS

MESDAT
“

000022

12%:

;CLEAR SOFT BCC

JSR
JSR
JSR

MESDAT
i

030126
026702

10%

PC,EOM
JSR
JSR
PC,0COR
R3
(LK
DATACLK,22
MOVB
(R4)+,RS
RS,R2
MOV

;LOAD 2 SYNCS IN OUT SILO
;ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS
:ADDRESS OF MCSSAGE
;NUMBER OF CHACTERS

;SET EOM
;WAIT FOR OCOR
;CLEAR BIT COUNTER
;CLOCK DATA
;LOAD RS WITH CHAR
;LOAD R2 WITH CHAR

JCHECK FIRST FOUR CHARACTER MESSAGE
;IN THE BIT wINDOW (0,125,252,377)
120001

023230
027544

027650

023232

#CRC16,XPOLY

:LOAD POLYNOMIAL

JSR

RS,SIMBCC

;CALCULATE SOFT BCC

MOV

67%:

027652

MOV

10%:

RS.67%

sSHIFT

COUNT

;CHARACTER

MOV

;LOAD SOFT CHAR FOR BC(C

CALBCC,10%

:0LD B(C

;LOAD SOFT BCC

FOR NEXT

SHIFT

(%Dflt
MACY11 30A(1052)
0;'JUL-80
CZDME.P1N
01-JuL-B0 15:2
4292

6293

023242

104415

6295

023246
02%250
023252

106002
103005
004737

64297

023260

104006

4294

4296
4298

023256
023262

000404

023270

103001

4299

023264

4301
4302

023272
023274

4300

103406

004737

023274

005203

:ggg

023310

001335

023276
023302
023304
023306

000001

648 :

022703
001357
005003
005300

026650

4313
4314
4315
4316
4317
4318
4319

4320

4321
4322
4323
4324
4325
4326

4327
4328
4329

4330
4331

2;;%

026650

65%:
668:

000010

023312

023316
023322
023324
023326
023332
023334
023336

023340

023344
023346
023350
023350
023352
023356

023360
023362

023366

023372
023376

023400

013700

104415
006000
103005
004737
103406
104014
000404

004737
103001
104014

005203
022703
001357

005003
012700
012704

005037
112405

027652
000001

68%:

026650

6£9%:
70%:

000020

4339

023420

000010

4367

MLT

;ERROR, BIT WINDOW WAS A SPACE

PC,GETSI

;LOOK AT BIT WINDOW

JSR

B(C
MLT

66$

669%

66
6

;SHIFT SOFT DATA
:BR IF A SPACE
:LOOK AT BIT WINDOW

:BR IF OK (MARK)

: CONT INUE

‘BR IF OK (SPACE)

;ERROR, BIT WINDOW WAS A MARK

INC

;BUMP BIT COUNTER

BNE

12%

:BR IF NOT DONE YET

#10,R3
64$
R3
RO

;DONE FULL 8 BITS YET
;BR IF NO
;CLEAR BIT COUNTER
:DEC CHARACTER COUNT

MOV

030434

023424

13%:

CALBCC,RO

;PUT BCC IN RO

DATACLK
ROR
BCC
JSR
BCS
HLT
B&

RO
65%
PC,GETSI
70%
14
70%

;SHIFT HARDWARE B(C(
;SHIFT SOFT BCC
;BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF OK (MARK)
:ERROR, CRC WRONG (SPACE)
: CONT INUE

BCC
HLT

70%
14

:BR IF OK (SPACE)
:ERROR, CR( WRONG (MARK)

INC
o, [
BNE

R3
#20,R3
68%

;BUMP BIT COUNTER
;FINISHED BCC YET?
:BR IF NO

MOV

SMESDAT R4

:LOAD MESSAGE POINTER

JSR

(LR
MOVB

MOV

PC,GETSI

R3
24 ,R0

11%
(R&)+ RS

RS ,R2

;LOOK AT BIT WINDOW

;CLEAR BIT COUNTER
:RESET CHMARACTER COUNTER
:CLR SOFT BCC
:LOAD CHAR IN RS

:LOAD CHAR IN R?

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252.377)
012737

436

:SHIFT DATA IN TO BIT WINDOW

JSR

(LR
MOV

000004

010502

023402

430
431
6342
4343
43644
4345

;CMECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

4336

4337
4338

SEQ 0083

R2
65%
PC,GETSI

(MP
BNE
CLR
DEC

4§§§
4

RORB

B(S

2%}?
4312

DATACLK,

BCC

104006

4303

43064
4305
4306
4307

13:53 PAGE 83
BASIC RECEIVER TESTS

023410
023414

02322
02324
023426
0234
023440
02342
023444

023450

010537
004537

000000
000000
013737
104415
106002
103005

004737

103406

120001

(023422
027544

027652
000001
026650

027650

023424

MOV

MOV
JSR
76%:
1%

73%:

#CRC16,XPOLY

RS,76%
RS,SIMBCC

10
0
0
MOV
CALBCC, 118
DATACLK,
1
RORB
R?
BC(
74%
JSR

B(S

PC,GETSI

76%

;LOAD POLYNOM]AL

:LOAD SOFT CHAR FOR BCC
:CALCULATE SOFT BCC
SSHIFT COUNT

:CHARACTER

;0LD BCC

:LOAD SOFT BCC FOR NEXT SHIFT
SHIFT DATA IN T0O BIT WINDOW
JSHIFT SOFT DATA
:BR [F A SPACE
;L0OK AT BIT WINDOW

‘BR [F OK (MARK)

YNV

026650

13:53

PAGE

B84

SEQ 0084

BASIC RECEIVER TESTS

74%:

75%:

NOOMSO

SARRRERERRRY

<>cru~rusu;ggrvnnu~
OSSN

NTNTNT NTNTNT NTNT N

636

434

[elelelelelelelelelelele

MACY11 30A(1052 )
07-JuL-80
DME
15:29
DME .P1
01-JuL-80

000010

WLT
BR
JSR

.
75%
PC,GETSI

CERROR, BIT WINDOW WAS A SPACE
S CONTINUE
:LOOK AT BIT WINDOW

HLT

:ERROR, BIT WINDOW WAS A MARK

BC(

75¢%

INC

:BR IF OK (SPACE)

(MP

210,83

;BUMP BIT COUNTER
:DONE FULL 8 BITS Y&T

(LR

:CLEAR BIT COUNTER

BNE

738

‘BR

“DEC CMARACTER COUNT

DEC

BNE

IF NO

138

:BR IF NOT DONE YET

;CMECK BCC FOR PRECEDING MESSAGE
027652
000001

77%:

026650

MOV

CALBCC,RO

;PUT BCC IN RO

BCC
JSR
BCS

78%
PL,GETSI
79%

“BR IF CARRY CLEAR
:LOOK AT BIT WINDOW
‘BR IF OK (MARK)

BR
JSR
BCC
LT

79%
PC,GETSI
79%
14

- CONT INUE
:LOOK AT BIT WINDOW
;BR IF Ok (SPACE)
:ERROR, CRC WRONG (MARK)

INC
CMP

R3
#20,R3
77%
R3

:BUMP BIT COUNTER
“FINISHED BCC YET?
;BR IF NO
:CLEAR BIT COUNTER

DATACLK,1
ROR
RO

104014

023542
023544
023550
023552

005203
022703
001357
005003

78%:
79%:

000020

BNE
(LR

SSHIFT
SSHIFT

HARDWARE BCC
SOFT BCC

:ERROR, CRC WRONG (SHACE)

HLT

026650

IN THE BIT WINDOW

JCHECK TO SEE [F TRANSMITTER IS MARKING
023554

104415

004737
103401
104024

005203
022703
001366
104415

005003
104415
004737
103401
1046024

005203
022703
001366

4403

000001
026650

000007

2%:

1%:

000010

000001
026650

1
DATA(LK,
JSR
PC,GETSI
B(S
3%

;CLOCK TRANSMITTER
;LO0K AT WINDOW
;1T SHOULD BE MARKING

R3
INC
#7,R3
(MP
BNE
2%
DATACLK,
(LR
R3

;BUMP BIT COUNTER
;DONE YET
;BR [F NO
;GIVE ENOUGH TICKS TO CLEAR OQUT ACTIVE
;CLEAR BIT COUNTER

HLT

DATACLK,

JSR
BCS

PC,GETSI
e

INC
(MP
BNE

R3
#20,R3
31

JCHECK

TO SEE

HLT

000020

;ERROR, BIT WAS A SPACE

;SHIFT QUT NEXT BIT

;LOOK AT BIT WINDOW
;BR [F IT IS A MARK
;ERROR,

TRANSMITTER

;INC BIT COUNT
;DONE YET?
;BR IF NO
THAT

[S NOT MARKING

FIRST FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125,252.377)

023632
023636

104415

012703

000001
000004

DATACLK,
MOV
6 ,R3

;GET LAST BIT [N RECEIVER
;R3=CHARACTER COUNT

CIDME
MACY11 30A(1052)
07-JuL-B0
CIDME .P11
01-JuL-80 15:29
4404
4405
406

La07
4408

4609
6610

411

6412
4413

22}2

023642
023646
023652

023654
023656

023662
023664

023666
023670
023672

023674

012702
004737
104414
021204
016104

112205
120504

13:53 PAGE 85
BASIC RECEIVER TESTS

030434
027510

40%:

000004

001401

104010
005303

4's:

001364

4419

023676

004737

621

023704

021204

023702

104414

4422
6423
4424

023706
023714
023722

116137
042737
004737

4426

023730

021244

023726

104414

4427

023732

010104

4630
4431
6432
4433

023746
023750
023752
023754

120504
001401
104015

4428
4429

6636

4435
436
4437

4438
439
4440
4225

021204
MOV

:LOAD MESSAGE POINTER IN R2
:WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),R&

:PUT "FOUND'' IN R&

BEG

41$

‘BR IF YES

BNE

40%

HLT
DEC

(R2)+,RS
RS,R&

;PUT "'EXPECTED'' IN RS
;1S RECEIVED DATA CORRE(CT?

10
R3

;RECEIVE DATA ERROR
:DEC CHARACTER COUNT

:BR IF NOT DONE YET

:CHECK

TO SEE

THAT

JSR

PC,INRDY

IN BCC MATCH IS SET

AND THAT THE BCC WAS RECEIVED CORRECTLY

:2};

4425

#MESDAT ,R2
PC,INRDY

MOVB
(MPB

4416

4420

MOV
JSR
ROMC LK

SEQ 0085

023736
023742

023754

042704
012705

000004
177400
027510

ROMCLK

021204
116137
042737

024010
024012

001401
104027

053737
023737

021204

001252
001252

MOVB
BIC
JSR

ROMCLK
021244

000004

000376
000001

50%:

000004
000377

001250
027652

001252
001252

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),TEMP3
#177400,TEMP3
PC, INRDY

:GET FIRST HALF

;PUT IN TEMP3
;CLEAR H] BYTE
;WAIT FOR INRDY

:PUT "'FOUND'' IN R4

(MPB
BEQ
HLT

RS ,R&
50%
15

;1S

#376,R4
#1,RS

;CLEAR UNWANTED BITS
;PUT "EXPECTED'" IN RS

BEQ
HLT

IN BCC MATCH SET?

:IN BCC MATCH ERROR

ROMCLK

BIS
(MP

(RC

;NEXT WORD IS INSTRULTION, ROMCLK PC=5304

4(R1),Ré&

021204
MOVB
BIC

0C1251
001250

:WAIT FOR INRDY

MOV

BIC
MOV

104414

023756
023760
023766

023774
024002

027510

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
4(R1),TEMP2+1
#377,TEMP2

TEMP2,TEMP3
CALBCC,TEMP3
42%
27

;GET LAST HALF
;PUT IN TEMP2
:CLEAR LO BYTE

:16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?
:BR IF 0K

4443

sCHECK TO SEE

THAT SECOND FOUR CHARACTER MESSAGE

:WAS RECEIVED CORRECTLY (0,125,252.377)

222§

L44d

024014

012703

000004

42%:

MOV

# ,R3

:R3=CHARACTER COUNT

4648

024024

004737

027510

43%:

JSR

PC, INRDY

:WAIT FOR INRDY

4447

4449

4450

0264020

024030

024032

012702

104414

021204

4451
4452
4453

024034
026040
024042

016104
112205
120504

4455

024046

104010

4456

4456
422;
'A

4459

024044

024050
024052

030434

ROMCLK
021204

000004

001401

005303
001364

MOV

:LOAD MESSAGE POINTER IN R2

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

MOV
MOVB
(MPB

4(R1),R4
(R2)+,RS
RS, R4

&
:PUT "'FOUND''
IN R4
:PUT “EXPECTED'' IN RS
;1S RECEIVED DATA CORREC(T?

HLT

;RECEIVE DATA ERROR

BEQ

44s:

#MESDAT,R2

DEC
BNE

44t

R3
43

;CHECK TO SEE

‘BR IF YES

:DEC CHARACTER COUNT
:BR [F NOT DONE YET

THAT

[N BCC MATCH [S SET

13:53

MACY11 30A(1052)
(ZDME
07-JuL-80
(ZDME.P11
01-JuL-80 15:2 9

116137

4465
L4666

042737
004737

L4667
LL68
4469
4470
L4671
472
4473
4474
4475
4476
477

104414
021244
016104
042704
012705
120504
001401

000004
177400
027510

021204

116137

042737
053737
023737
001401
0246172

THAT

JSR

ROMCLK
021204
MOVB

51%:

000004
000377
001250
027652

;WAIT FOR INRDY

PC,INRDY

;WAIT FOR INRDY

MOV
BIC
MOV
(MPB
BEQ

4(R1) ,R4
#376 R4
#1,RS
RS ,R4
51%

;PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'" IN RS
;1S IN BCC MATCH SET?

HLT

ROMCLK
021204

BIC
BIS
(MP
BEQ
5%:

PC,INRDY

JSR

MOvB

104027
104400

THE BCC WAS RECEIVED CORRECTLY

4(R1),TEMP3

BIC

000004
000376
000001

SEQ 0086

SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;GET FIRST MALF OF CRC
‘PUT IN TEMP3

gg?gt:

104414

4480
4481
4482
4483

HLT
SCOPE

#1776400, TEMP3

:CLEAR HI BYTE
;NEXT WORD

INSTRUCTION,

ROMCLK PC=5304

;IN BCC MATCH ERROR

4(R1),TEMP2+1

#377 ,TEMP2
TEMP2, TEMP3
CALBCC,TEMP3
5%
27

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET LAST HALF
;PUT IN TEMP2
;CLEAR LO BYTE

;16 BIT BCC NOW IN TiMP3
;1S IT CORRECT?
;BR IF 0K

:SCOPE THIS TEST

cernrnererenenenvnnnnnennnnn

;*DDCMP EOM FUNCTION TEST

JEST

;*THIS TEST LOADS OUT SILO WITH:

sevnecneenvnnnenvnveceeeene

2 SYNCS,4 CHAR MESSAGE ,EOM

;*SOM,4 CHAR MESS,EOM. THE DATA STREAM IS CHECKED TO BE
;%4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
;*THE CHARCTERS LOADZD WITH EOM SET ARE LOST

;*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC
;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHAECKED
3 RN

;
024174
024202

012737
012737

024210

104412

000053
025374

001226
001216

TST53:

RN AR R

AR RN

RRRAR

RAARRARRERRRERRRERARROERS

TEST S3

MOV

#53,TSTNO

#5754, NEXT

MSTCLR

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

;LOAD OUT DATA SILO
024212

45N

4512
4513
4514
4515

027510

104015

4478
4479

4506
4507
4508
4509
4510

104414

021204

6464

4484
4485
44LB6
44LB7
4488
4L4LB9
4490
44691
L4692
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505

004737

—

024054

[aS
1, %]

64663

;AND

oo
oo

4460
4461
6662

PAGE 86

BASIC RECEIVER TESTS

024242

004000
030434
024336
000004
030016

027034
030152

MOV
MOV

(LR
MOV

JSR

#BIT11,(R1)
#MESDAT R4

;SET LINE UNIT LOOP
:LOAD POINTER TO DATA

PC,SYNLD

;LOAD 2 SYNCS IN OUT SILO

10%
#4,R0

PC,OUTRDY

RS ,MESLD

;CLEAR SOFT BCC
;LOAD CHARACTER COUNT
;WAIT FOR QUTRDY

;LOAD SILO WITH & CHAR MESS

07-JuL-80
MACY11 30A(1052 )
(ZDME
CZDME.P11
01-JuL-80 15:29
6516
6517
6518
6519

024246

13:53
PAGE 87
BASIC RECEIVER TESTS

030434

MESDAT
4

JSR
JSR
JSR

PC,EOM
PC,SOM
RS ,MESLD

JSR

PC,EOM

MESDAT
i

024312

104415
112405
010502

000022

12%:

JSR
PC,O0COR
CLR
R3
DATACLK,22

MovBe

MoV

(R4)+,RS

RS ,R2

SEQ 0087
;ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS

;LOAD GARBAGE CHARACTER, WITH EOM SET
;LOAD GARBAGE CHAR WITH SOM SET
;LOAD FOUR MORE CHARACTERS
;ADDRESS OF MESSAGE
;NUMBER OF CHACTERS

;SET EOM

;WAIT FOR OCOR
;CLEAR BIT COUNTER
;CLOCK DATA

;LOAD R5 WITH CHAR

;LOAD R2 WITH CHAR

;CHECK FIRST FOUR CHARACTER MESSAGE
;IN THE BIT WINDOW (0,125,252,377)
024314
024322
024326
024332
024334
024336
024340
024346
024352
024354
02435
02436

012737
010537

004537
000010
000000
000000
013737
104415
106002
103005

004737
103406
104006

000404
004737
103001

120001

024334
027544

4553
4554

024414
4559
4560

4565

45N

MOV
MOV

JSR
10

#CRC16,xPOLY
RS,67%

RS,SIMBCC

;LOAD POLYNOMIAL
;LOAD SOFT CHAR FOR BCC

; CALCULATE SOFT BCC
;SHIFT COUNT

026650

0
0
MOV
CALBCC,10%
DATACLK,
1
RORB
R2
BCC
65%
JSR
PC,GETSI

s CHARACTER
;0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT
;SHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA
‘BR IF A SPACE
:LOOK AT BIT WINDOW

026650

HLT
BR
JSR

‘ERROR, BIT WINDOW WAS A SPACE
: CONTINUE
:LOOK AT BIT WINDOW

67%:

027652
000001

104006

005203
022703
001357
005003
005300
001335

027650

024336

10%:

64%:

65%:
66%:

000010

BCS

66$

BCC

66$

‘BR IF OK (SPACE)

R3
#10,R3
648
R3
RO
12%

:BUMP BIT COUNTER
:DONE FULL 8 BITS YET
:BR IF NO
*CLEAR BIT COUNTER
‘DEC CHARACTER COUNT
:BR IF NOT DONE YET

HLT

INC
CMP
BNE
CLR
DEC

BNE

6
66%
PC,GETSI
6

‘BR IF OK (MARK)

*ERROR, BIT WINDOW WAS A MARK

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
024416
024422
024426

024430
024432
024436
024440
024442
024444
024450
024452
024454

013700
104415

027652
000001

68%:

104014

ROR

HLT

69%:
70%:

;PUT BCC IN RO
:SHIFT HARDWARE BC(C
;SHIFT SOFT BCC

69%
PC,GETSI
70$

:BR IF CARRY CLEAR
:LOOK AT BIT WINDOW
:BR IF OK (MARK)

BR
JSR

708
PC,GETSI

CONT INUE
:LOOK AT BIT WINDOW

HLT

BCC
JSR
BCS

026650

MOV
CALBCC,RO
DATACLK,1

BCC

70$

“ERROR, CRC WRONG (SPACE)

BR IF OK (SPACE)

*ERROR, CRC WRONG (MARK)

1.
MACY11 30A(1052)
(IDME
07-JuL-80
CZDME .P11
01-JuL-80 15 129

4572
4573
4574
4575
6576
6577

024454
024456
024462
024464

005203
022703
001357
005003

13:53
PAGE 88
BASIC RECEIVER TESTS

INC
CMP
BNE
CLR

000020

R3
#20,R3
68%
R3

SEQ 0088

;BUMP BIT COUNTER
;FINISHED BCC YET?
;BR_IF NO
;CLEAR BIT COUNTER

;CHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW
024466

024470
024472
024476
024500
024502
024506
024510
024512
024514
024520
024522
024524
024526
024532
024534
024536
024542
024546
024552
024554

005005
010502
1046415

000001

004737

026650

106002
103005

103406
104006

000404
004737
103001
104006
005203
022703
001357
005003
012700
012704
005037
112405

32%:

(LR
RS
MOV
R5,R2
DATACLK,
1
RORB
R2
BCC
30%
JSR
PC,GETSI
BCS
31%

;CHARACTER LOADED WITH SOM
;LOAD R2 WITH CHAR
;CLOCK TRANSMITTER

BR
JSR

: CONTINUE
;LOOK AT BIT WINDOW

HLT

30%:

026650

31%:

000010

000004
030434
024600

BCC

010502

31%
PC,GETSI
31%

HLT

MOV

¥4 ,R0O

INC
(MP
BNE
CLR

MOV

13%:

CLR
Move
MOV

;SHIFT SOFT DATA

;BR IF SPACE
;LOOK AT BIT WINDOW
:BR IF OK (MARK)

;ERROR,BIT WINDOW WAS A SPACE

:BR IF OK (SPACE)

;ERROR,BIT WINDOW WAS A MARK

R3
#10,R3
32%
R3

;:BUMP BIT COUNTER
;DONE CHARACTER YET?
:BR IF NO
;RESET BIT COUNTER

#MESDAT R4

;LOAD MESSAGE POINTER

1%
(R4)+,R5
RS,R2

sRESET CHARACTER COUNTER
;CLR SOFT BCC
;LOAD CHAR IN R5
;LOAD CHAR IN R2

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)
024556
024564
024570
024574

012737
010537
004537

120001

024576
027544

027652
000001

103001
104006

024656

005203
022703
001357
005003
005300
001335

027650

MOV
MOV

JSR

024600

11$:
73%:

10
0

RORB

HLT

026650

BR
JSR
BCC

75%:

000010

RS,SIMBCC

0
MOV
CALBCC,11%
DATACLK,
1

BCC
JSR
BCS
74%:

#CRC16,XPOLY
RS,76%

HLT

INC
CMP
BNE
(LR
DEC
BNE

74%
PC,GETSI
75%

:LOAD POLYNOMIAL
;LOAD SOFT CHAR FOR BCC

sCALCULATE SOFT BCC
;SHIFT COUNT
s CHARACTER

;0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT
sSHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA

:BR IF A SPACE
;LOOK AT BIT WINDOW
:BR IF 0K (MARK)

;ERROR, BIT WINDOW WAS A SPACE

75%
PC,GETSI
75%

s CONT INUE
;LOOK AT BIT WINDOW
;BR IF OK (SPACE)

R3
#10,R3
73%
R3
RO
13%

;BUMP BIT COUNTER
;DONE FULL 8 BITS YET
:BR_IF NO
;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
:BR IF NOT DONE YET

;ERROR, BIT WINDOW WAS A MARK

|
|

(Z DME
MACY11 30A(1052)
07-JuL-80
(2 DME.P11
01-JuL-80 15:29

13:53 PAGE 89
BASIC RECEIVER TESTS

SEQ 0089

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
024660

024700
024702
024704
024706
024712
024714
024716
024716
024720
024724
024726

013700
1046415

027652
000001

77%:

005203
022703
001357
005003

026650

CALBCC,RO

;PUT BCC IN RO

ROR

SSHIFT SOFT BCC

JSR

PC,GETSI

:LOOK AT BIT WINDOW

HLT

DATACLK, 1

BCC

026650
104014
000404
004737
103001
104014

MoV

BCS
78%:

79%:

000020

79%

79%
PC,GETSI

HLT

BCC

INC
CMP
BNE
CLR

‘BR IF CARRY CLEAR

78%

BR
JSR

*SHIFT HARDWARE BC(
:BR IF OK (MARK)
*ERROR,

CRC WRONG (SPACE)

: CONTINUE
:LOOK AT BIT WINDOW

79%

:BR IF OK (SPACE)
:ERROR,

R3
#20,R3
778
R3

CRC WRONG

(MARK)

:BUMP BIT COUNTER
:FINISHED BCC YET?
:BR IF NO
:CLEAR BIT COUNTER

SCHECK TO SEE IF TRANSMITTER IS MARKING
024730
024734
024740
024742
024744
024746
024752
024754
024760
024762
024766
024772
024774
024776
025000
025004

104415

004737
103401
104024

005203
022703
001366

000001
026650

000007

104415

000010

104415

000001
026650

005003

2%:

DATACLK,
JSR

PC,GETSI

HLT

BCS
3%:

4%:

INC

CMP

INC
CMP
BNE

R3
#20,R3
48

1LOOK AT WINDOW

‘ERROR, BIT WAS A SPACE

‘BUMP BIT COUNTER

#7,R3

PC,GETSI
.+

;CLOCK TRANSMITTER
21T SHOULD BE MARKING

JSR
BCS
HLT

000020

BNE
2%
DATACLK,
R3
CLR

DATACLK,

;DONE YET

:BR IF NO
*GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
:CLEAR BIT COUNTER

SSHIFT OUT NEXT BIT

:LOOK AT BIT WINDOW
‘BR IF IT IS A MARK
*ERROR,

TRANSMITTER

SINC BIT COUNT
:DONE YET?
:BR IF NO

IS NOT MARKING

;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125,252,377)
000001
000004
030434

027510

40$%:

000004

025050

MOV
JSR

#MESDAT ,R2
PC,INRDY

;GET LAST BIT IN RECEIVER
;R3=CHARACTER COUNT
;LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY

MOV
MOvB
CMPB
BEQ

4(R1) R4
(R2)+,R5
RS ,R4
1%

;PUT "'FOUND'' IN R4
;PUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?
:BR IF YES

DEC
BNE

R3
40%

;DEC CHARACTER COUNT
;BR IF NOT DONE YET

DATACLK,
MOV
¥4 ,R3

41%:

sgngz

HLT

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;RECEIVE DATA ERROR

;CHECK TO SEE THAT IN BCC MATCH IS SET

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME .P11
01-JUL-80 15:29

13:53 PAGE 90
BASIC RECEIVER TESTS

223@

;AND THAT THE BCC WAS RECEIVED CORRECTLY

4686
4687
4688
4689

025052
025056
025060
025062

004737
104414
021204
116137

027510

4691
4692
4693

025076
025102
025104

004737
104414
021244

027510

042704
012705
120504
001401
104015

000376
000001

4690
4694

4695
4696
4697
4698
4699
4700

4701

4702

025070

025106

025112
025116
025122
025124
025126
025130

025130
025132

042737
016104

000004

177400

001252

BIC

JSR
ROMCLK
021244

000004

MOV

50%:

104414

021204

JSR
ROMCLK
021204
MOVB

BIC
MOV
CMPB
BEQ
HLT

PC,INRDY
4&(R1),TEMP3

1177460.IERP3
PC, INRDY

4&(R1),R4
#376,R4
#1,RS
RS ,R4
50%
15

ROMCLK

021204

025134
025142

116137
042737

000004
000377

001251
001250

MOVB
BIC

4(R1),TEMP2+41
#377,TEMP2

4706
4707

025156
025164

023737
00i401

027652

001252

CMP
BEQ

CALBCC,TEMP3
45%

2;83

025150

025166

053737

001250

001252

BIS

104027

HLT

2;}?
025170

004737

4714
4715
4716
4717
4718

025176
025200
025204
025206
025210

021204
016104
005005
120504
001401

2;;8

025174

025212

104414

027510

45%:

000004

104010

025214
025220

012703
012702

4727

025230

104414

4732

4733
473

:;gg

4737
4738

:CLEAR UNWANTED BITS
:PUT "EXPECTED'' IN RS
;1S IN BCC MATCH SET?
:IN BCC MATCH ERROR

TEMP2, TEMP3

:GET LAST HALF

;PUT IN TEMP2
:CLEAR LO BYTE

:16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?
:BR IF OK

PC,INRDY

:WAIT FOR INRDY

021204
MOV
CLR
CMPB
BEQ

4(R1),R4
RS
RS,R4

:GET RECEIVE DATA
;PUT "'FOUND'' IN R4
;PUT “EXPECTED'' IN RS
;1S RECEVIED DATA CORRECT?
;BR IF YES

42%

;NEXT WORD IS INSTRUCTION, RCMCLK PC=5304

;RECEIVE DATA ERROR

:WAS RECEIVED CORRECTLY (0,125,252,377)

4724
4725

4730
4731

;PUT "'FOUND'' IN R4

;CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE

2;35

4728
4729

:WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JSR

ROMCLK

HLT

4721

4726

:CLEAR HI BYTE

;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000)

4712

4713

;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET FIRST HALF OF CRC
;PUT IN TEMP3

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4703
4704

4705

SEQ 0090

025224

004737

025232
025234

021204
016104

025244

001401

025240
025242
025246
025250

025252

112205
120504

104010
005303

001364

000004
030434

027510

42%:
43%:

000004

MOV
MOV

JSR

ROMCLK

PC, INRDY

;R3=CHARACTER COUNT
:LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

021204
MOV

4(R1),R4

;PUT

BEQ

BR IF YES

BNE

438

MOVB
CMPB
44

#4,R3
#MESDAT,R2

HLT
DEC

(R2)+,RS
RS, R4
10
R3

h i
""FOUND''
IN R4

:PUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?
;RECEIVE DATA ERROR
:DEC CHARACTER COUNT

:BR IF NOT DONE YET

;CHECK TO SEE THAT IN BCC MATCH IS SET
:AND THAT THE BCC WAS RECEIVED CORRECTLY

021204
116137
0462737
004737
1046414

021244
016104
042704
012705
120504

027510
000004

177400

JSR

ROMCLK
—_—

104414

13:53 PAGE 91
BASIC RECEIVER TESTS

021204

nrno

004737

[=l=]
oo

oown

S~
SREF nNO

N NN NN N NN NN
NN
NN — =
~
NOONSO SO

4740
“761
674
474
L7464
4745
L7466
G747
4748

[el=lelelelelelelelelelal=l=l{=]

MACY11 30A(1052 )
07-JuL-80
CZDME
CZDME.P1N
01-JuL-8 0 15:29

51%:

1046414

021204
116137

;CLEAR HI BYTE
;WAIT FOR INRDY
;NEXT WORD iS INSTRUCTION, ROMCLK PC=5304

MOV

4(R1),R4

;PUT "'FOUND'' IN Ré

MOV

#1,RS

CMPB
BEQ
HLT

5%:

;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S IN BCC MATCH SET?

RS.R&
518
15

:IN BCC MATCH ERROR

ROMCLK

MOVB

4(R1),TEMP2+1

BiS

TEMP2, TEMP3

BIC

025370
025372

0177400, TEMP3

#376 R4

021204

000004
000377
001250
027652

;PUT IN TEMP3

PC, INRDY

BIC

104015

;GET FIRST HALF OF CRC

JSR

ROMCLK

001401

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1),TEMP3

021244

000004
000376
000001

;WAIT FOR INRDY

PC, INRDY

MOVB

BIC

027510

SEQ 0091

CMP
BEQ
HLT

SCOPE

8377, TEMP2

CALBCC,TEMP3
5$
27

;NEXT WORD IS IMSTRUCTION, ROMCLK PC=5304
JGET LAST HALF
;PUT IN TEMP2

;CLEAR LO BYTE
;16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?

:BR IF 0K

;SCOPE THIS TEST

seerereeendteennnnnenvennnns

TEST

envnnnnnnnnvnnvreettnenenene

J*EMPTY SILO TEST

;*LOAD SILO WITH 2 SYNCS, & CHAR MESSAGE, SINGLE CLOCK

;*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE

;*SILO. GIVE MORE TICKS, AND VERIFY THAYT ONLY THE FIRST
;%4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS

IS CLEAR

:;tQ.Q.""Q""i"'i""lt'.'Q""t"'i.l"..."""'.'l""t"

025410

NNNON =N

—

s s

025374
025402

o000
—=

22882828
LS I ST NP (ANN~
1,8 )
PRRSERE sa WVISNISNISNINNS
-‘-‘Nflg;,:\fi-‘u‘ ,’Uflfihflfigc’-‘—' NN

4789

025476

4795

]

4793

SWVN

WV~

4787

~SSwvw~

4783

000054
025626

001226
001216

TEST 54
#55,TSTNO

TST54:

#TSTSS NEXT

MSTCLR

004000
030434

MOV
MOV

027034
030152

JSR
JSR
JSR
QESDAY

026702

026702
000005

MOV

#BI1T11,(R1)
#MESDAT ,R2
#4,R0
PC,SYNLD
PC,OUTRDY

RS, MESLD

JSR

PC,OCOR

JSR

RS ,MESLD

JSR

PC,OCOR

DATACLK,

MESDAT
4
DATACLK,
ROMCLK

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11

;SET LINE UNIT LOOP
;R2 POINTS TO MESZAGE
;RO = CHAR COUNT
;LOAD SILO WITH TWO SYNCS
;WAIT FOR OUTRDY
;LOAD MESSAGE IN SILO
;START OF MESSAGE
s CHARACTER COUNT

;WAIT FOR OCOR
;CLOCK DATA (EMPTY SILO)
;PUT MORE CHARACTERS IN SILO

;CLOCK UNTIL RTS IS CLEARED.
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MACY1 30A(1052) g?-JUL-BO
1
01=JuL-80 1

13:53 PAGE 92
BASIC RECEIVER TESTS

025502 052561 000040 000004
025500

0 SS\g
025512
0%5516
025520
0255264
o%ssgg
0255
0%5534
025536
025540
025542
025544
025546
025550
025554
025556
25560

001401
104034
104415
004737
104414
021204
016104
112205
120504
001401
104010
005300
001364
004737
104414
021204
016104

025570
025572
025574
025576
025602
025604
025606
025612
025616
025620
025622
025624
025624

120504
001401
104010
004737
104414
021204
016104
012705
120504
001401
104010

025564

012705

000041
027510
000004

2%:
027510

3%:

000004

000377

027510

000004
000377

10%:

104400

BIT

#BIT5,4(RY)

:GET RTS

MOV

#377.,RS

;RS = "EXPECTED"

021264

5%:
i$:

SEQ 0092

BEQ
5%
HLT
34
DATACLK,
41
JSR
PC, INRDY
ROMCLK
021204
0]
4(R1),R4
MOVB
(R2)+,PS
(MPB
RS,R4
BEQ
2%
HLT
10
DEC
RO
BNE
1%
JSR
PC,INRDY
ROMCLK
021204
MOV
4(R1),R4
(MPB
BEQ
HLT
JSR
ROMCLK
021204
MOV
MOV
(MPB
BEQ
HLT

RS.R4
43
10
PC,INRDY
4(R1),R4
#377 ,RS
RS,R4
108
10

SCOPE

;1S IT CLEAR?

;BR IF YES
:ERROR, RTS NOT CLEAR
:CLOCK XMITTER SOME MORE
;0K LETS CHMECK WHAT WAS RECEIVED
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA
SPUT IT IN Ré&
;RS = "EXPECTED"'
:1S DATA CORRECT?
:BR IF OK
:DATA ERROR
:DEC CHAR COUNT
:BR IF NOT DONE YET
JWAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA
SPUT IT IN "FOUND''
;SHOULD SEE 377
:BR IF 0K
;ERROR, TRANSMITTER DID NOT ABORT
;WAIT FOR INRDY
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA
;PUT IT IN "FOUND''
RS = "EXPECTED''
SHOULD SEE 377
:BR IF OK
:ERROR, TRANSMITTER DID NOT ABORT
:SCOPE THIS TEST

:tt't't"""'tt"'!""""

;*HALF

DUPLEX

TEST

2233223333322 22223222222220]

TEST

«SET LINE UNIT LOOP AND MALF DUPLEX, SEND SYNCS AND A
:*MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR

;:tt"tt"t""'t'ittt"'ttttt"tt"ttt""tt"t't"""'ttt"t'

;
025626
025634

012737
012737

025642
025644
025650
025654

104412
012702
012711
012761

025664
025666
025672
025676
025702

122113
004737
004737
004537
030434

025662

104414

000055
025744

000012
004000
000020
030016
027034
030152

001226
001216

000004

TSTSS:

TEST S5

MOV
MOV

#55,TSTNO
#TSTS6,NEXT

MSTCLR
MoV
MOV
MOV

c12.n2
#B8IT11,(RY)
08114. R1)

ROMCLK

122113
JSR
JSR
JSR
MESDAT

PC,SYNLD
PC,OUTRDY
RS,MESLD

:RT CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11
:SAVE R2 FOR TYPEOUT
sSET LINE UNIT LOOP
:LOAD PORT4

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET W/D BIT
:LOAD 2 SYNCS
:WAIT FOR OUTRDY
:LOAD & CHAR MESSAGE
;ADDRESS OF MESSAGE

858228333

13:53

PAGE 93

BASIC RECEIVER TESTS
4

026702
000073

JSR

PC,OCOR

HLT

SEQ 0093
;CHARACTER

18:

SCOPE

COUNT

;WAIT FOR OCOR

DATACLK,
73
ROMCLK
021244
MOV
4&(R1) R4
BIC
#257 R4
CLR
RS
(MPB
RS.,R&
BEQ
1%

000004
000257

~
o

b
b

[=]=]

NN
RN R R

NN
VWA
WA AW AW

485
485
4854

OO0O0O0O0O0O0O0O00O0O

MACY11 30A(1052
(ZDME
07-JuL-80
2 DME .P11
01-JuL-80 5:29

; SEND MESSAGE
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-12
;PUT "FOUND'’' IN R&
;CLEAR UNWANTED BITS
;RS = "EXPECTED"
; IN=ACTIVE AND IN=RDY SHOULD BE CLEAR
;BR IF 0K
;ERROR BOTH ARE NOT CLEAR

erannrretereeeeverreenennnn

TEST

;*DDCMP CABLE DATA TFST

;*THIS TEST LOADS OUY

SILO WITH THE

tnevvcenenvccencnvrecnnenee

FOLLOWING:

;%4 SYNCS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM

;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO
;*THE

DATA

IS TRANSMITTED OVER THE

CABLE USING THE

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
:*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST

INTERNAL

CLOCK

L AL

;

025744
025752

000056
026332

001226
001216

TST56:

025760
025762
025770
025772
025776

MOV
Mov

#56,TSTNO
#TSTS7 NEXT

MSTCLR

040000

004000
030016
030016
120001

026044
000020
030440
026042
027544

027652
030152

026102
026104

TEST 56

001366

BIT
BEQ

#BIT14,STATT
3%

;SKIP TEST IF NO
:LOOPBACK CONNECTOR ON

JSR
JSR

PC,SYNLD
PC,SYNLD

:LOAD 2 SYNCS
;LOAD 2 MORE SYNCS

MOV

027650

7%:

026044

5%:
6$:

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

MoV
(LR
MoV
MOV
Movs

JSR
10
0
0

MoV

#BIT11,(RT)

#CRC16,XPOLY
6%
#16.,R3
#FLTDAT,R?
(R2)+,5%

RS,SIMBCC

CALBCC,6%

;SET LINE UNIT LOOP

:LOAD POLYNOMIAL FOR SOFT CRC CALC
;CLEAR OLD BCC
; CHARACTER COUNT
:R2= POINTER
;LOAD CHAR FOR SOFT BCC CALC.

;CALC SOFT BCC

;SHIFT COUNT
; CHARACTER

;0LD BCC

;LOAD OLD BCC

DEC
BNE
JSR

R3
7%
R5,MESLD

;DEC COUNT
;BR IF NOT DONE YET
;LOAD SILO

JSR
JSR

PC,EOM
RS ,MESLD

:LOAD AN EOM
;LOAD SILO

FLTDAT
16.
FLTDAT
16.
JSR

PC,EOM

ADDRESS

;MESSAGE ADDRESS
:CHARACTER COUNT

;MESSAGE ADDRESS
: CHARACTER COUNT
:LOAD AN EOM

CIDME
MACY11 30A(1052) O7-JuL-80
CZDME .P11
01-JuL=-80 15:/9

13:53 PAGE 94
BASIC RECEIVER TESTS

SEQ 0094

4908
4909
4910
4911
4912

026110
026114
026116
026120
026124

004537
030440
000020
004737
004737

030152

JSR
FLTDAT

RS,MESLD

030126
026702

JSR
JSR

PC,EOM
PC,OCOR

;CHARACTER COUNT
;LOAD AN EOM
;WAIT FOR OCOR

4914
4915

026132
026136

012700
012703

000003
000020

MOV
MOV

#3,R0
#16.,R3

;RO = MESSAGE COUNT
sR3= CHARACTER COUNT

4917

026146

004737

027510

JSR

PC,INRDY

4913 026130 005011
4916

026142

012702

4918

026152

4920
4921
4922

026156
026162
026164

016104
112205
120504

026176

005303
001364
012703

4919

4923
4924
4925
4926
4927

28%3

026154

026166
026170
026172
026172
026174

104414

021204

16.

(LR

030440

1$:

000004

001401
104025

2%:

000020

026202

004737

4935
4936
4937
4938

026210
026212
026220
026226

021204
116137
042737
004737

4940

026234

021244

026206

026232

4941
4942
4943
4944
4945
4946

026236
026242
026246
026252
026254
026256

4948

026260

4950

026264

4952
4953

026300
026

4947

4949

4951

4954
4955
4956
4957
4958
4959

4960
4961

4962
4963

#FLTDAT,R2

MOV
MOvB
CMPB

4(R1) R4
(R2)+,RS
RS R4

DEC
BNE
MOV

R3
1%
#16.,R3

BEQ
HLT

2%
25

;CLEAR LINE UNIT LOOP
;LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;GET DATA FROM IN SILO

;PUT CHARACTER IN "FOUND''
;PUT "EXPECTED'" IN RS
;1S RECEIVED DATA CORRECT
;BR IF OK
;DATA ERROR

;DEC CHARACTER COUNT
sBR IF NOT DONE THIS MESSAGE
sRESET CHARACTER COUNT

;CHECK TO SEE THAT IN BCC MATCH IS SET
;AND THAT THE BCC WAS RECEIVED CORRECTLY

4933

4939

ROMCLX
021204

4930
23%}

4934

MOV

(R1)

;LOAD SILO
sMESSAGE ADDRESS

026260

104414

016104
042704
012705
120504
001401
104015

027510

000004
177400

027510

001252
001252

021204

25%:

026272

042737

026314
026316
026320
026324
026326
026330

001401
104027
012702
005300
001307
104400

000004

053737
023737

001250
027652

000377

030440

sWAIT FOR INRDY

021204
MOV@
BIC
JSR

4(R1),TEMP3
#177400,TEMP3

;GET FIRST HALF OF CRC
sPUT IN TEMP3
;CLEAR H] BYTE
;WAIT FOR INRDY

021244

000004
000376
000001

116137

PC,INRDY

ROMCLK

104414

026262

JSR

FOMCLK

MOV
BIC
MOV
CMPB
BEQ
HLT

PC,INRDY

4&(R1) R4
#376 R4
#1,R5
RS ,R4
25%
15

ROMCLK
021204

MOVB

4(R1),TEMP2+1

001252
001252

BIS
CMP

TEMPZ,TEMP3
CALBCC,TEMP3

BIC

4%:
1%:

BEQ
HLT
MOV
DEC
BNE
SCOPE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT "'FOUND'" IN R4
;CLEAR UNWANTED BITS
;PUT "'EXPECTED'" IN RS
;1S IN BCC MATCH SET?
:IN BCC MATCH ERROR

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

001251

001250

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

#377,TEMP2

4%
27
#FLTDAT,R?
RO
1%

;GET LAST HALF

sPUT IN TEMP2

;CLEAR LO BYTE

;16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?
;BR IF OK

;RESET MESSAGE POINTER
;DECREMENT COUNTER
;BR IF NOT DONE
;SCOPE THIS TEST

REERRRERRRARRORRRRNRCERRIRRRY TEST 57 tenecennantrnerennnntneneny
;*DDCMP CABLE DATA TEST

MACY11 30A(1052)
(ZDME
07-JuL-80
CZDME .P1N
01-JuL-80 15:29

13:53
PAGE 95
BASIC RECEIVER TESTS

;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING:
;%4 SYNCS,59 DATA CHARACTERS ,EOM WITH GARBAGE CHARACTER

L964

4965
4966
4967
(968
4969
4970
314
4972
4973
4974

4975
4976

4977
4978
4979
4980
4981
4982
4983
4984
4985

SEQ 0095

;*THE DATA

IS TRANSMITTED OVER THE

CABLE USING THE

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST
3 AR AR AR A AR A

;s
026332
026340

012737
012737

026346

104412

026350

032737
001533
012711
004737
004737
012737
005037
012703
012702

4986
4987
4988
4989
4990
499
4992

112237

004537

000057
003364

001226
001216

18157:

040000
004000
030016
030016
120001

026432
000073
030434
026430
027544

001366

MOV
MOV

7%:

#.EOP,NEXT

#BIT14,STATY
3%

CLR
MOV
MOV
MOVB
JSR

6%
#59.,R3

#BIT11,(RT)
PC,SYNLD
PC,SYNLD
#CRC16,XPOLY

#MESDAT,R2
(R2)+,5%

RS,SIMBCC

030152
030126
026702

59.
JSR
JSR

PC,EOM
PC,OCOR

000073
030434
027510

MOV
MOV
JSR

#59.,R0
#MESDAT,R2
PC,INRDY

026432

6%:

MESDAT

CLR

1%:

ROMCLK

021204

000004

2%:

005300
001364

CALBCC,6%

R3
7%
RS ,MESLD

(R1)

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

;SHIFT COUNT
;CHARACTER

;0LD BCC
sLOAD OLD BCC
sDEC COUNT
:BR IF NOT DONE YET
;LOAD SILO

sMESSAGE

ADDRESS

;CHARACTER COUNT
:LOAD AN EOM
;WAIT FOR OCOR

sCLEAR LINE UNIT LOOP
;RO= CHARACTER COUNT

;LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET DATA FROM [N SILO

:PUT CHARACTER IN "'FOUND''
JPUT "EXPECTED'' IN RS
;IS RECEIVED DATA CORRECT

4L(R1) ,P4
(R2)+,R5

HLT

:BR IF 0K
;DATA ERROR

RO
1%

;DECREMENT COUNTER
:BR IF NOT DONE

DEC
BNE

RS ,R4
2%

ADDRESS

;SKIP TEST IF NO
;sLOOPBACK CONNECTOR ON
;SET LINE UNIT LOOP
;LOAD 2 SYNCS
sLOAD 2 MORE SYNCS
;LOAD POLYNOMIAL FOR SOFT CRC CALC
:CLEAR OLD BCC
;CHARACTER COUNT
sR2= POINTER
;LOAD CHAR FOR SOFT BCC CALC.
;CALC SOFT BCC

MOV
MOVB

CMPB
BEQ

104025

RRRl ]

#57,TSTNO

BIT
BEQ

MOV
JSR
JSR
MOV

027650

ARttt

CLOCK

TEST §7

0
0
MOV
DEC
BNE
JSR

027652

026526

MSTCLR

5%:

4993
4994
4995
4996
4997

INTERNAL

;CHECK TO SEE THAT IN BCC MATCH IS SET

;AND THAT THE BCC WAS RECEIVED CORRECTLY

026530
026534

004737
104414

027510

JSR

ROMCLK

PC,INRDY

;WAIT FOR

INRDY

SNEXT WCRD IS INSTRUCTION, ROMCLK PC=550u«

CIDME
MACY11 30A(1052)
07-Ju.-B80
CZDME .P1N
01-JuL-80 15:29

5020
5021

026536
026540

0212
116137

5023
5026
5025
5026
5027

026554
026560
026562
026564
026570

004737
104414
021244
016104
042704

5029
S030
5031
5032
5033
5034
5035
5036

02
026602
026604
026606
02
026610
026612
026620

120504
001401
104015

S038
5039
5040
5041

026634
026642
026644
026646

5022

5028

5037

5042

026546

026574

026626

042737

012705

000004

177400

027510

13:53 PAGE 96
BASIC RECEIVER TESTS

;
001252

001252

MOV
25%:

000004
000377

001251
001250

023737
00146401
104027
104400

027652

001252

001250

001252

5048

5054
5055
5056
5057
5058
5059

026650

026650
026652
026654

026662
026666
026672
026676
026700
026702

5064
5065
5066

026702
026704
026706

5070
5071

026720

5067
gggg

5072

5073

28;:

(mP
BEQ
MLT
SCOPE

#177400, TEMPS

:GET FIRST WALF OF CRC
:PUT IN TEMP3

:CLEAR W] BYTE

PC,INRDY

:WAIT FOR INRDY
NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1),R4
#376 R4

;PUT "FOUND' IN R4
:CLEAR UNWANTED BITS

RS, R4
25%
15

;1S IN BCC MATCH SET?

2 ,RS

G(R1),TEMP2+1
#377,TEMP?

TEMPZ, TEMP3

CALBCC,TEMP3
I
27

:PUT "EXPECTED'" IN RS
:IN BCC MATCH ERROR

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET LAST HALF
:PUT IN TEMP?2
;CLEAR LO BYTE

;16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?
;BR IF 0K
:SCOPE

GETSI:

THIS TEST

:THIS SUBROUTINE READS LU 17, AND PUTS IT INIC NIT(H,
NITCH IS ROTATED LEFT UNTILL

5060
5061

28%%

ROMC LK
021204
MOVB
BIC

4(R1),TEMPY

:SUBROUTINES
jeeeecccccan

2828

5051
5052
5053

(MPB
BEQ
MLT

BIS

b ¥

5043

5044
5045
5046
5047

JSR
ROMCLK
021244
MOV
BIC

000001

116137
042737

053737

BIC

000004
000376

104414

021204

021204
MOVB

SEQ 0096

026714
026716

104414
021364
017737
106137
106137
106137
000207
000000

152532

026700
026700
026700

ROMC LK
021364
MOV

026700

NITCH:
OCOR:

104414
021364

032777

001772
000207

000020

ROLB
ROLB
ROLB
RTS
O

BEQ
RTS

SYNC:

SI BIT

IN CARRY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4L
LU 17
;STORE"LU 17
:PUT S1

IN THE CARRY BT

:THIS SUBROUTINE SPINS ON OCOR

ROMC LK
021364
BIT

152476

S0MPO4 NIT(H
NITCH
NITCH
NITCH
PC

THE

#B174,30MP04

OCOR
PC

NEXT WORD IS INSTRUCTION, ROMCLE P(=5304
;PORTG LU 17
;15 OCOR SET?
:BR [F NO
;0K OCOR IS SET, GO BACK

:THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF

AND A NON-SYNC CHARACTER (301)

:CHARACTERS PASSED TO IT

IN THE WORD AFTER THE

SYNC

JSR (AL

€Y1 30A01052)
07-JuL-80
01-JuL-80 15:2 9

013637

001246

0127
04414

000026

737
761

027034
000001

N =t —a O
NO P =
ONNNON
N
Ot
et
8t
P

s s
2

114

000026

0C0004

000004

1%:

005037

MOV

#26,4(P1)

122110
DEC
BNE

ROMCLX

ROMCLK
122110

JSR

1%:

2%:
(HAR:

NS NN=NN
O~ s ON M = = O
— s B s Y BB
YO

~2-.-.
R g-a-oog
~N
L S L N
027142

W14

001246
000004

027034
000001

000004

ROMCLK

000026

000004

IElTL,ODnPOA
2

TEMPS
8
36

HLT

RTS

;LOAD PORTS

JNEXT WORD IS INSTRUCTION,
;LOAD OUT DATA

ROMCLK

PC=5304

ROMCLK

PC=5304

ROM(LK

PC=5304

;ALL DONE?
;BR

NOT

;LOAD PORT4

;NEXT WORD

;LOAD OQUT DATA

INSTRUCTION, ROMCLK PC=5304

;WAIT FOR OCOR

sCLEAR

TIMER

;NEXT WORD IS
:PORT4 LU

INSTRUCTION,

ROMCLK

PL=5304

ROMCL
K

PC=5304

:1S OUY RDY SET?
:BR IF

YES

:INC TIMER
;KEEP CHECKING IF NOT DONE
:ERROR, OUT READY NOT SET

;THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS
MOV
ADD
MOV

1%:

;SET SOM

#301,4(RY)

TEMPS

(LR

AND

001250
000002
000003
000026

:WAIT FOR QUTRDY
;LOAD PORTS
SNEXT WORD IS INSTRUCTION,

sTHIS SUBROUTINE SPINS ON OUT READY

BNE
INC
BNE

001256

;LOAD SYNC REGISTER

JNEXT WORD IS INSTRUCTION,
;SET SOM
;LOAD PORT4

021224
BIT

152340

SNEXT WORD [S INSTRUCTION, ROMCLK PC=5304

;WAIT FOR OQUTRDY

:c.ocon

RTS

;GET COUNT

;ADJUST STACK
:LOAD PORT4

PC,OUTRDY
«(R1)

122111
MOV

000004

104036

637

TEMPY

ROMCLK

000207

P(,OUTRDY
#1,4(RY)

MOV

JSR
(LR

001256

000020

JSR

122111

027034
000004

1044614

021224
032777
001004
005237
001367

ROMCLK
122114

#2,-(5P)
#26,4(RY)

ROMCLK

OUTRDY:

TM
e B Le ]
D =N
srorn

oo
N b s b e
s i s
o0cOo
283
-PORIRORI
OO0 NN
W) - Chocl~e0nal~uuu-ocfl3£=~uSh»iE

U WA WA WALWANWVLWA VYA
WA WA WA WA WA A WA WA WY WA WA WA WU

-‘—._.—.-‘-.-.-.—‘-.-J—.—‘—.—‘-‘—‘—‘-‘-.—.—.—.—‘_.—‘—0—‘

MOV

00000«

027034

027034
027040

a(SP)+ TEMPT

ADD

001246

000301

SEQ 0097

MOV

026702

027032

5103

PAGE 97

SUBROUTINES

I
et T I§~

000002
e 062746
61

13:53

THE

CHARACTER PASSED TO

IT.

a(SP)+ TEMP?

;GET

#3,TEMPY

;SET FOR 3 SYNCS

#2,-(5P)

#26,4(R1)
PC,OUTRDY

CHARACTER

;ADJUST

STA(CK

:LOAD PORT4

sNEXT WORD IS INSTRUCTION,
;LOAD SYNC REGISTER
;WAIT

FOR OUTRDY

¥ ,4(RY)

;LOAD PORT4

#26,4(R1)

;LOAD PORT&
;NEXT WORD IS

;NEXT WORD [S INSTRUCTION, ROMCLK PC=5304
;SET SOM
INSTRUCTION, ROMCLK PC=5304

MACY11

122110

211

027176

473

020

=N
NNO&H

NN
= S NN

00533;
6
3
376
OO —=»—=0O
oOoNO
-

027144
027146
027152

07-JuL-80

1 3:53
PAGE 98
SUBROUTINES
122110
DEC
BNE
JSR

001246
027034
001250

000004

MOV
ROMCLK
122110

026702

JSR

RTS

027200

(YARSD:

027200
027204
027210
027214
027222

001250
000002
027034
001250

MOV
ADD

000004

000073
027504

001250

000002
000003
000026

001250
001246
000004

027034
000001

000004
000004

001246
000604

027506
027504

027404

2%:

;WAIT FOR QOUTRDY

;LOAD PORTé

sNEXT WORD

IS INSTRUCTION,

:LOAD OUT DATA

ROMCLK PC=5304

;WAIT FOR OCOR

a(SP)+ TEMP2

GET CHARACTER

PC,OUTRDY

:WAIT FOR OUTRDY

#2,-(SP)

:ADJUST STACK

:LOAD PORT4
INEXT WORD

:LOAD OUT DATA

INSTRUCTION, ROMCLK PC=53064

:WAIT FOR OUTRDY
INEXT WCRD IS INSTRULTION,

:LOAD GARBAGE CHAR
‘WAIT FOR OCOR

ROMCLK

PC=5304

ROMCLK

PC=5304

WITH A BINARY COUNT PATTERN

MOV
TST

#73,TEMP2
SCHAR
4%

ADD
MOV

#2,TEMP2

8BMI
BNE

1%:

;LOAD QUT DATA
sALL DONE?
;BR IF NOT

;THIS SUBROUTINE FILLS THE OUT SILO
;

027034
027504

PC,OCOR
PC

SILOLD:

000026

TEMP2,4(RY)

PC,OUTRDY

027244

027244
027252
027256
027260
027262

TEMP1
1%
PC,OUTRDY

TEMP2 ,4(R1)

026702

027242

SEQ 0098

:THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT.

027034

OO0 —=—=00
- OONNO—=O
W=V
S WS=SSN
NE N = B NN
= BN WO W= = ONNON N — = O = NNNOS
= N=NOHr = —

—

ww
(V1 8]

XV v IV e v
0P o
A A YAV IV IV IV IV IV LV D P of 2B o F o o o

30A(1052 )

01-JuL-80 15:29

[0 1 *
NNNNNNNNNNOOOOO

WAWA WA DTA DT WA TN AN WA
VAW
W WA WA VLA WAL
WA
WA WA WA WA WA WA WA

WA VWA NN DA N NN N NN VDWW WY

(ZDME .P1N

MOV
ROMCLK
122114
JSR
MOV
ROMCLK
122111
MOV
ROMCLK
122110

DEC
BNE

JSR

MOV
ROMCLK

122110
TST
BEQ

MOV

#3,TEMPI

#26,4(R1)

PC,OUTRDY
#1,4(RT)

#26,4(R1)
TEMP1
1%
PC,OUTRDY

SCHAR,4(R1)

STUFLG
6%
SCHAR,S%

;LOAD COUNT
;FIRST TIME HERE?
:BR IF BITSTUFF

;BR IF NO
;ADD 2 TO CHARACTER COUNT

;SET FOR 3 SYNCS
;LOAD PORT4
;NEXT WORD IS INSTRUCTION,
;LOAD SYNC REGISTER
;WAIT FOR QUTRDY

;LOAD PORT4

;NEXT WORD IS

INSTRUCTION,

ROMCLK

PC=5304

sNEXT WORD

INSTRUCTION,

ROMCLK

PC=5304

;SET SOM
;LOAD PORT4

:LOAD OUT DATA
;ALL DONE?
:BR IF NOT
;WAIT FOR QUTRDY

:LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
;BITSTUFF?22?
:BR IF NO
;1T IS SDLD SO CHECK BITSTUFFING

MACY11

30A(1052)

027400
027404
027406
027410
027414
027422
027424
027430
027432
027436
027440
027444
027452
027456
027464
027472
027474
027476
027500
027502
027504
027506

004537
000000
000010
005237
022737
001403
005337
001346
004737
000207
005037
012737
005037
062737
012761
104414
122111
104414
122110
000721
000000
000000

335232282238

[V IV IV IV TV TV IV IV LV TV IV )

LSTSTSTSTSTSTNISNTNT.N
— i il i i i
—._.o

VO NOWVNEWN
=00

—3

wh
n

(W AV LW

W LV LV LW SN LV LV LW TV

P11

01-JUL-80 15:29

G SESEISRRIRZ

027504

000400

SEQ 0099

JSR
0
10
6%:
INC
CMP
BEQ
DEC
BNE
1%:
JSR
RTS
4%:
CLR
MOV
CLR
ADD
MOV
ROMCLK
12211
ROMCLK
122110
BR
SCHAR:
0
STUFLG: 0
5%:

027504

001250
026702
027504
177777
030432
000002
000001

SUBROUTINES

027506
001250
000004

INRDY:

:THIS

:THE

012737

000000

001246

104414

027520

021244

027530
027532
027536
027540
027542

001004
005237
001367
104037
000207

027522

VWA WA VTV VWA

030234

PAGE 99

RS,STFFCL
SCHAR
#400,SCHAR
3$
TEMP?2
2%
PC,OCOR
PC
SCHAR
#-1,STUFLG
BITCON
#2,TEMP?
#1,4(R1)

SUBROUTINE

:ADD ANY BIT STUFF CLOCK TICKS
:CHARACTER
;CHIFT COUNT
:NEXT CHARACTER
;ALL DONE?

;DECREMENT COUNT
:BR IF NOT DONE
;WAIT FOR OCOR
:START PATTERN AT ZERO
:SET BITSTUFF FLAG
:CLEAR STUFF COUNT
:ADD 2 TO CHARACTER COUNT
;SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM!
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHAR
:GO LOAD SILO

SPINS ON

INRDY

:1F INRDY FAILS TO SET THE DELAY TIMES OUT AND AN
:ERROR [S REPORTED. FOR BETTER SCOPE LOOPS THIS
:DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER
:INITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER
85;2}2

noruruRLRURLRORD
RN NN NN

13:53

027510

027516

AUAWA WA WA

07-JUL-B0

032777

SHORTER THE DELAY. O IS THE

MOV

#0,TEMP1

ROMCLK

000020

021244

151662

BIT

001246
2%:

SIMBCC:

027544

BNE
INC
BNE
HLT
RTS

LONGEST DELAY.

;SET UP DELAY COUNTER

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#B1T4,aDMPO4
2%
TEMPI
1%
37
PC

:PORT4 LU12

;1S INRDY SET?

:BR IF YES
s INC DELAY
:TRY AGAIN
:ERROR,NO INRDY
:RETURN

;THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN

;IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE
;STATE OF

027544

010046

027552
027556
027562

012537
012537
013700

027546 012537 001246
027566
027570

000241
006037

001250
027652
027652
027652

MOV

RO,-(SP)

;SAVE RO ON STACK

MOV
MOV
MOV

(RS)+,TEMP2
(RS)+,CALBCC
CALBCC,RO

:TEMP2 = CHARACTER
;CALBCC = OLD BCC
:PUT OLD BCC IN RO

MOV
1%:

THE LSB OF THE BCC IS RETURNED IN THE C BIT.

CLC
ROR

(R)+ TEMPY

CALBCC

STEMP1 = SHIFT COUNT

;SHIFT OLD BCC

DME
MACY! 30A(10)2)
07-JUL-80
DME .P11
01-JuL=-80 15:29
5244
5245
5246
5247
5248
5249
5250
§251
5252
5253
5254
5255
5256
5257
5258
5259

027574
027600
027602
027604
027606
027612
027616
027624
027630
027634
027636
027642
027644
027646
027650
027652

006037
005500
006000
103011
013700
043700
043737
050037
005337
001352
013700
006000
012600
000205
000000~
000000
000200

13:53 PAGE 100
SUBROUT INES

001250

027650
02765
027650
027652
001246

027652

120001
102010

ROR
ADC
ROR
BCC
MOV
BIC
BIC
BIS
2%:
DEC
BNE
MOV
ROR
MOV
RTS
XPOLY:
0
CALBCC: 0
LRC8=200

SEQ 0100

TEMP2
RO
RO
2%
XPOLY,RO
CALBCC,RO
XPOLY,CALBCC
RO,CALBCC
TEMP1
1%
CALBCC,RO
RO
(SP)+,RO
RS

;SHIFT CHARACTER
:ADD CHAR CARRY TO OLD BCC
:PUT BITO TO CARRY BIT
;sCARRY 1S FEEDBACK BIT
:1F FEEDBACK = 1
:EXCLUSIVLY OR XPOLY TO CALBCC

:DEC SHIFT COUNT
:BR IF NOT DONE
:PUT RESULT IN RO
;SHIFT BITO TO CARRY
;RESTORE RO
:RETURN

CRC16=120001
CRC.CCITT=102010

027654

BCCLD:

:THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS
;WITH SOM SET, AND ONE CHARACTER PASSED TO IT

:WITH THE SOM BIT CLEAR (ENABLE CRC()
027654
027622

013637
062746

0276
027672
027700
027702
027704

012737
012767
104414
122114
004737

027716

104414

027710

012761

027720
027722

122111
012761

027732
027734
027740
027742
027746

122110
005337
001361
004737
013761

027756
027760
027764

122110
004737
000207

027730

027754

104414

001250
000002

000002
000026
027034
000001

000026

MOV
ADD

001246
000004

000004

1%:

#2,TEMPI
#26,4(R1)

PC,OUTRDY
#1,4(RY)

:GET CHARACTER
;ADJUST STACK

:SET FOR 2 SYNCS
:LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;:LOAD SYNC REGISTER
:WAIT FOR OUTRDY
:LOAD PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

000004

122111
MOV

#26,4(R1)

:SET SOM
:LOAD PORT4

000004

122110
DEC
BNE
JSR
MOV

TEMP1
1%
PC,OUTRDY
TEMP2,4(R1)

;LOAD OUT DATA
sALL DONE?
;:BR IF NOT
:WAIT FOR OUTRDY
:LOAD PORT4

122110
JSR
RTS

PC.OCOR
PC

ROMCLK

026702

GETQO:

027766

MOV

ROMCLK

001246

027034
001250

MOV
MOV
ROMCLK
122114
JSR

a(SP)+,TEMP2
#2,-(SP)

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
:WAIT FOR OCOR

:THIS SUBROUTINE READS THE STATE OF

THE

:BCC LSB AND PUTS IT IN THE CARRY BIT

027766

027770

027772

104414

021364

106177

ROMCLK

151414

021364

ROLB

TRANSMIT

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
aDMPO4

:PORTG LU=-17

‘PUT QO IN CARRY

CIDME

MACY11 30A(1052)
07-JuL-80
01-JUL=-80 15:29

CZDME.P11

2%8?

027776

5302
5303
€304

030000

5307
5308

030000
030002

104414
021364

5310
5311
5312
5313
5314
5315

030010
030014

106177
000207

13:53 PAGE 101
SUBROUTINES

000207

RTS
GETQI:

2382

5309

3%:9

030004

106177

5321
5322
5323

030034
030036
030042

122114
004737
012761

030052
030054

122i11
012761

030064
030066
030072
030074

122110
005337
001361
000207

5327

5328
5329
5330
5331
5332
5333
5334
5335

151402

ROLB

151376

ROLB
RTS
SYNLD:

012737
012761

5325
§326

030032

030050

030062

104414

000002
000026
027034
000001

000026

;PUT QI IN CARRY
:RETURN

:2 SYNC CHARACTERS WITH SOM SET

:THIS SUBROUTINE LOADS OUT SILO WITH

:LOAD COUNTER FOR 2 SYNCS
:PORT4 26

000004

122114
JSR
MOV

PC,OUTRDY
#1,4(R1)

:LOAD SYNC REG
:WAIT FOR OUTRDY
:LOAD PORT4

122111
MOV

#26,4(RY)

:SET SOM
:PORT_26

122110
DEC
BNE
RTS

TEMP1
1%
PC

:LOAD OUT DATA WITH SYNC
:DECREMENT COUNTER
:BR IF NOT DONE
:RETURN

ROMCLK

1%:

ROMCLK

000004

ROMCLK

SOM:

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:NEXTTWORD IS INSTRUCTION, ROMCLK PC=5304

;THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A

:GARBAGE CHARACTER (0)

004737
012761

027034
000001

$341
5342

030112
030114

1221
005061

000004

030122
030124

122110
000207

030110

030120

104414

000004

JSR
MOV

PC,OUTRDY
#1,4(RY)

:WAIT FOR OUTRDY
:PORT4 1

122111
CLR

4(R1)

;SET SOM
:CLEAR DATA CHAR

122110
RTS

:LOAD GARBAGE CHARACTER
:RETURN

ROMCLK
ROMCLK

030126

EOM:

:NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;:THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A

:GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC

2%2?

5352

030126

004737

5355

030142

1221

5353
5354

:PUT Q0 IN CARRY

#2,TEMPY
#26,4(R1)

030076

030076
030102

5344
5345
5346
5347
5348
5349

aDMPO4

a0MPO4
PC

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU=-17

MOV
MOV

001246

5338
5339

5343

THE RELEIVE

001246
000004

g%gg

5340

;RETURN

:THIS SUBROUTINE READS THE STATE OF

ROMCLK
021364

030016

030016
030024

5324

;BCC LSB AND PUTS IT IN THE CARRY BIT

5318
5319

5320

SEQ 0101

030132
030140

012761
104414

027034

000002

000004

JSR

MOV
ROMCLK
12211

PC,OUTRDY

#2,4(RY1)

;WAIT FOR OUTRDY

:PORTS 2
b
:NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;SET EOM

OOV

WIN NN NN NN
(v [V )

NS WOV~

MACY11 30A(1052)
(ZDME
07-JUL-B0
94V ME.PI
01-JuL-80 15:29

030144
030146
030150

13:53

122110
RTS
MESLD:

030152
030154
030156
030162
030166

010046
012500
012537
004737

112061
104414
122110

005337
001367
004737
012600
000205

001246
027034
000004

RO,=(SP)

:SAVE RO

MOV
JSR

(RS)+ . TEMP1
PC,OUTRDY

S TEMP1=CHARACTER COUNT
‘WAIT FOR OUT RDY

MOVB

122110

DEC
BNE
JSR
MOV

026702

[S THE ADDRESS OF THE MESSAGE
IS THE NUMBER OF CHARACTERS IN THE MESSAGE

MOV

ROMCLK

001246

CHARACTER

;THIS SUBROUTINE LOADS SILO WITH MESSAGE

MOV

RTS

CLR!O:

000200

(R§)+,RO

(R0O)+,4(R1)

:RO=MESSAGE POINTER

:LOAD PORT4 WITH CHARACTER

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO

TEMPI
1%
PC,OCOR
(SP)+,RO

:DEC CHAR COUNT
:BR IF NOT DONE
‘WAIT FOR OCOR
‘RESTORE RO

*RETURN

:THIS SUBROUTINE

SETS

000004

MOV

ROMCLK

#BIT17.4(R1)

122112

IN CLR AND OUT

CLR

122111
RTS

030234

STFFCL:

030432
000005

030432
000001
001252

VOO

030432

ngb
~NOoOOo

[« IV IV . 1=]
NOWWS
OO NNSO
W
= WO
OO
WV
-\

—

—d

OO0

8858888883
S N =2 VB WN==NOWVO W & oo
-

1%:

030432

2%:

IN CLR!

:SET OUT CLR!
*RETURN

:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS
1S CHAR, SECOND ARGUMENT 1S SHIFT COUNT.

MOV

RO,=(SP)

:SAVE RO

MOV

(RS)+,TEMP3

‘PUT SHIFT COUNT IN TEMP3

MOV

001252

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

*NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

SFIRST ARGUMENT

030234
030236
030240
030244
030246
030250

:LOAD PORT4
:SET

ROMCLK

8O
VO
Oo
~NOW
0o GO

VWAL
NN
NN
VWAV
NN NN

030232

;LOAD GARBAGE
sRETURN

“CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS

030214

N —

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;THE FIRST ARUGUMENT
;THE SECOND ARGUMENT

030214

5393

SEQ 0102

ROMCLK

104414
122110
000207

030152

030212

5383

PAGE 102

SUBROUTINES

(R$)+,RO

:PUT CHAR IN RO

RORB

CLR
BR
INC
CMP
BNE
CLR

BITCON
{3
BITCON
#5,B1TCON
38
BITCON

:BR IF A MARK
S1T WAS A SPACE, CLEAR 1'S COUNTER
:CONT INUE
SINC CONSECUTIVE 1'S COUNTER
(1S IT S YET?
:BR IF NO
SYES!
SO START AGAIN

DEC
BNE
MOV

TEMP3
13
(SP)+,RO

:DEC SHIFT COUNT
:BR IF NOT DONE
*RESTORE RO

BCS

DATACLK,
RTS

:LOOK AT NEXT BIT

*GIVE EXTRA TICK TO STUFF 2ERO
;RETURN

MACY11 30A(1052)
07-JuL-80
(ZDME
CZDME.P1N
01-JuL-80 15:29

STFFCK:

030314

030314
18

030432

030432
000005

030432

2%:

030432
000001
026650

001252

MOV

RO,=(SP)

:SAVE RO

MOV

(R5)+ . TEMP3

SPUT SHIFT COUNT IN TEMP3

RORB

(R$)+,RO

BCS
CLR
BR

2%
BITCON
38

HLT
DEC
BNE
MOV

BITCON
INC
CMP
#5,B1TCON
BNE
3%
BITCON
CLR
DATACLK,
1
PC,GETSI
JSR
BCC
38

RTS

CTSDLY:

SEQ 0103

:THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER
;1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT
;1S THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT.

MOV

001252

TEMP3
1%
(SP)+,R0

:PUT CHAR IN RO

SSHIFT OUT NEXT BIT

:BR IF IT IS A MARK
(1T WAS A SPACE, CLEAR 1'S COUNTER
: CONTINUE
*INC CONSECUTIVE I'S COUNTER
‘S IN A ROW YET?
‘BR IF NO
*YES, SO START OVER
"EXTRA TICK TO STUFF ZERO
*LOOK AT WINDOW
‘IS IT A ZERO, BR IF YES
‘NO, ERROR ZERO WAS NOT STUFFED
*DEC SHIFT COUNT
‘BR IF NOT DONE
*RESTORE RO
“RETURN

;THIS SUBROUTINE WASTES TIME UNTIL CTS SETS,

sBUT HOPEFULLY NGT SO LONG THAT THE SILO RUNS O.T
000032

150566

000000
0

150564

1%:

FLAG:

MOV

RO,-(SP)

CMP

3TKCSR.TKCSR

MOV

DEC
BNE
MOV
RTS

#32,R0

RO
1%
(SP)+,R0
PC

“B<01111110>

:SAVE RO

:LOAD RO WITH COUNT
‘WASTE TIME

*DECREMENT COUNTER
D0 IT AGAIN IF NOT = 0
‘RESTORE RO
‘RETURN
;FLAG CHARACTER

BITCON: 0
MESDAT: .BYTE

0,125,252,377

FLTDAT: .BYTE

1,2,4,10,20,40,100,200,376,375,373,367,357,337,277,177

STUFDT: .BYTE

100,140,160,170,3,300,174,176,177,1

100

OO NN

WO = = = —a NN
OO NNO NV

333 33333333333 £

33 33
ST 8

030404
030406
030412
030420
030422
030424
030426
000000000000
O0O0O0

5412
5613
5614
5415
5616
5617

13:53 PAGE 103
SUBROUTINES

.BYTE

363,347,317,200,0,377,377,377,200,37

MACY11 30A(1052 )
(ZDME
07-JuL-80
CZDME.PT
01-JuL-80 15:129
2

007

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

EM7:
EM10:

LASCIZ
LASCII

EM
EM12

EM23
EM24
EM2S:

LASCI2
LASCIZ
.ASCIZ

DH4&:

[=d=d=4

B \AN

EM14
EM1S
EM16
EM17
EM20
EM21
EM22

DH3:

DHS:

ASCIZ

ASC12

DH7:
DH10:
EVEN

DT1:

ASCI2
ASCIZ

DT2:

<377>/LINE UNIT INTERNAL CLOCK FAILURE/

<377>/TRANSMITTER DATA ERROR/
<377>/RECEIVER TEST/
<377>/RECEIVER DATA ERROR/
<377>/MODEM SIGNAL ERROR/
<377>/TH1S ERROR COULD BE CAUSED IF YOU HAVE V.35 AND/
<377>/AUTOSIZED.
YOU MUST MANUALLY ANSWER QUESTIONS IF/
<377>/YOU HAVE V.35 (DMC11=FA)/
<377>/TRANSMITTER CRC ERROR/
<377>/RECEIVER CRC ERROR/
<377>/IN BCC MATCH ERROR (LU REG 12)/
<377>/TRANSMITTER FAILED TO GO TO MARK STATE/
<377>/CABLE DATA TEST/
<377>/FLAG ERROR/
<377>/TRANSMITTER FAILED TO STUFF A ZERO/
<377>/SWITCH PAC TEST/
<377>/ABORT ERROR/
<377>/TRANSMITTER ERROk/
<377>/WALF DUPLEX TEST/
<377>/0UT READY NOT SET/
<377>/IN READY NOT SET/

<377>/EXPECTED
FOUND/
<377>/EXPECTED
FOUND
LU=-REGISTER/
<377>/CHARACTER
BIT THAT FAILED/
<377>/CORRECT CRC
BIT THAT FAILED/
<377>/EXPECTED
FOUND
SHIFT/
<377>/EXPECTED
FOUND
CHARACTER
SHIFT/

<377>/BLOCK END NOT SET/
<377>/RTS DID NOT

3.7

.BYTE
SAVR4

3.2

.BYTE

3.7

.BYTE
SAVR4
BYTE
SAVR¢

3,10

.BYTE

5.17

.BYTE

SAVRS

DT3:

<377>/LINE UNIT INITALIZATION TEST/
<377>*LINE UNIT REGISTER READ/ONLY TEST*
<377>*LINE UNIT REGISTER WRITE/READ TEST*

.BYTE

SAVRS

002

ASCIZ

DHé6:

010

017

LASCIZ
LASCI2
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

LASCIZ
LASCIZ
ASCIZ

002

007

LASCII
LASCII
LASCIZ
L.C12

LASCIZ
LASCIZ

DH1:
DH2:

04151

LASCIZ

EM13

s s
b
W N =t

NNV ONNO
o NOOMN=0OWV

N =

NN -

NN
LN —=O
NSO NSONN

—_— ) — ~8u-.-a-o-no

046102

&
~n

—

046102
051524

LEVE
EM1:
EM2:
EM3:
EM&:
EMS:
EM6:

— e

2 NI ONIN) =2 ON) =2 PIN) =2 N = = ONIN) =

> s s

046377
046377

030504
030542
030605

037

SEQ 0104

377

000
377

200

377

S472

030475
030500
030503

oo
w

5468

13:53 PAGE 104
SUBROUTINES

SAVRS

3.2

CLEAR/

et &

8 FRNSEEREFES

(=l= o
NN w A LN AN N U N N N N AN AN NN
NN NN
NN NN
NN

MACY11 30A€1052)
2;-JUL-80
CIDME
15:
01-JuL-80
CZDOME .P1

000002

027223
001266

001880
001

001302
002
001260

021

snooo0MsNO

w
~

o OCOO0O0O0O0OO
w N NN
NN
N
~N oo

PAGE 105

DT4:

DTS:

002
on

DT6:

002
on

SEG 0105

SUBROUTINES

002

D17:

.BYTE
CALBCC
.BYT
SAVR

6,21

.BYTE
1ERO
.BYTE
ONE
BYTE

1.1

§Avno

.BYTE
ONE
.BYTE
1ERO
.BYTE
zAvno

2,2

2,2
.1

2.2

1ERO

ONE

007

SAVRS

001
on

032372

15:53

DT10:

SAVR3

.BYTE
ONE

007

001
007

2,1
DT11:

3.7
2,2

002
004

DT12:

6.2

002
.ERRTAB:

EM1
DH2
D12
EM2

JHLT

MACY11 30A(1052)
(IDME
07-JuL-80
01-JuL-80 15:29
(ZDME .P1 1

032424

(31703

13:53 PAGE 106
SUBROUT INES

DW2

JHLT

SEQ 0106

CIOME
MACY11 30A(1052)
07-JuL-80
(ZDME .P11
01-JuL-80 15:29
032426
032430
032432

032220
030605
031703

13:53 PAGE 107
SUBROUTINES
DT
EM
DH?

JHLT

SEQ 0107

07-JuL-80
30A(1052 )
01-JuL-80 15:29

MACY11

032434
032436
032440
032442
032444
032446
032450
032452

032454
032456
032460
032462
032464
032466
032470
032472
032474
032476
032500
032502
032504
032506
032510
032512
032514
032516
032520
032522
032524
032526
032530
032532

032534

032536
032540
032542
032544
032546
032550
032552
032554
032556
032560
032562
032564
032566
032570
032572

032574
032576
032600
032602
032604
032606
032610
032612

032220
030651
000000
000000
030713
031703
032220
030713

13:53

031741
032236
030743
031662
032206
030762
031662
032206
031007
031662
032206
031226
032037
032262
031255
032037
032262
031226
031777
032250
031301
031662
032206
031226

D12
EM4
0
0
EMS
DH2
D12
EMS
DH3
D*3
EM6
cYl
DT1
EM7
DH1
DT
EM10
DH1
DT1
EM11
DHS
DTS
EM12
DHS
DTS
EM11
DH&
DT&
EM13
DH1
DT
EM11

032300
031255
032037
032300
031226
032071
032316
031226
032071
032340
031255
032071
032316
031255
03207

DT6
EM12
DHS
DT6
EM11
DH6
D17
EM11
DH6
pDT10
EM12
DH6
D17
EM12
DH6

032037

032340
031341
000000
000000
031411
031662
032206
031432

PAGE 108

SUBROUTINES

DMHS

DT10
EM14
0
0
EM1S
DH1
DT
EM16

SEQ 0108

SHLT

JHLT

SHLT

JHLT

SHLT

JHLT

CHLT

031741
0 236%

é 00O
— JONS

125
1662

=l=lelal=)

QUERRS

32374
031446
(O L I
IV V)
N — A — —

£ NOOCSNOO

—

MACY11 30A(1052)
(ZDME
07-JuL-80
(ZDME .P1
01-JuL~-80 15:29

13:53
PAGE 109
SUBROUTINES

pM3

JHLT

SHLT

JHLT

DH2

JHLT

DHS

JHLT

SHLT

DTN

Em12
DH1

D112
Em17
0
0
EM20
DM
pT1
(3. VAl

DN7
0
EM21

DH3Y

DT3
EmM22
8"10

EM13

032724
032726

DH1

032730

(ORMAX:
.END

000001

SEQ 0109

CIOME

MACYYY

ADRCNT=
AUDONE
AUSTRT
AUTOD.S
BCCLD
BINWRD

004373
003024
002446
010640
027654
004714

CIDME . PN

BITCON
8110 =
BIT1
=
BIT10 =
BIT11 =

030432
000001
000002
002000
004000

BITi4 = 040000

BIT1S
BIT2
BITY
BIT4

=
=
=
=

BITS

= 000040

BIT7
BIT8
BIT9

= 000200
= 000400
= 001000

Bm
BRLVL

07-JuL-B0

01=-JuL~-80 15:29

BIT12 = 010000
BIT13 = 020000

B!T6

30A(1052)

100000
000004
000010
000020

3733
1582
S403«
1769
1762
2162
2724
3288

693
6924

2079
2082

2181
2094

4016

6918

CHAR

027066

027200

CHRCNT
CKSWR
CkSWR1
(kSWR2
CkSWR3
CKSWR4
CKSWRS
CLKX
CLRIO
CNERR
CNT.MA

004712
007734
010014
010026
010032
010036
010142
001242
030214
007277
001702

CONERR
CONN
CONTAB
CONVRT=
CORMAX
CRAM
CRC.CC=

007223
007114
002776
104410
032730
006606
102010

CNVRT = 104411

CRC16 = 120001

3837

3883

3912

5265#

5406

5424+

5426

5427

5429+

S5454#

1768

1769

2062

2170

2183

2768
3325

2826
3362

2877
3402

2928
3483

2979
3601
4885

3031
3652

4980

3089
3727

2154

2185

2394

3527

3541

3569

1188
1769
3571
1777

1209
2104

1212
2114

2064
3545

2157
3572

3620

6262

2118

2399

6984
6974
6964

1758
2161
2159
2130
2265

1878
2176
2161
2273

22854

3677
4312

14184
3706
64342

3752
4363

3204

3252

3289

1331

4992

51434

1757

146172

5038

1185
1325
2194
1775

1758

5240+

1576«
1125
1838#
18414
18434
18440
1826
781#
3653
1239
806

1579
1392
1850

1583
1424

1852
1833

1859
1868#

3682
1800#
Q74N

1234
18004
1243
BL1a
S4724
18004
52624

18004
2084
12564
1156

4533

4603

843

3655

1236

4509

2185

4780

2196

4844

2396

3529

31599

3597

3117
3802

3145
3877

3173
3950

5108

3623

4883

4978
4845

5066

2804

3212

3260

3297

3334

3371

2747

2857

2908

2959

3010

34iéa

4797

2299
2178
2173

2776
21N
2199

3217
2193
2202

3543
2199
2258

3548
2202
2260

3574
2260

3622

3625

5384

3781
4439

3827
4482

3856
4539

3902
4560

3931
4609

3987
4630

4053
4706

4112
4760

4133
4897

4291
4953

3326

3363

3484

S1164

3878

3907

S380#

1357

1673

1675

1735

1841

31834

3880

3909

3955

4021

6106

4285

633%

2189

5241

312¢

5263

3182

5249

1599«
1639

16178
1825¢#

1618

3728

3757

3803

3832

1097

1099

1906

1242

1689

2004

3759

3809

1351

SEQ 0110

3808

2299

1332

CHARSD

2093

TABLE == USER SYMBOLS

3762
16194
5404

7004

003732

0274652

4187

6 9

12724

1098
1144
2187
1752

18004
2255

CALBCC

1394

1537»
1226

690#
7034
7024
S;gll

007054
012460

FER

4087

111

CROSS RFFERENCE

1528«
1221
1276
1981#
3687
1581«
5401+«
1768
1144
2151
2691
3251

6994

003730

PAGE

1492«
1182
1181»
1139
3658
1578
5200
705«
7040
6954
6948
3203

= 000100

BRwW

13:53

1353

1355

5250

5251«

5254

52598

5472

2043

3684

3730

4888

4983

52614

MACY11 30A(1052)
(ZDME
07-JuL-80
.P1N
(ZDME
01-JuL~-80 15:29
CREAM
001320
(SR
006510
CSRMAP
CTSDLY
CYCLE
DATABP
DATACL= 104415

805#

1096+

18004
19834

2008

1333
1662+

1374
1665

54404

851

H 9
13:53 PAGE 112
CROSS REFERENCE TABLE == USER SYMBOLS
1902+

1905«

1909

2839
3052
3449
3840

2840
3093
3486
3885

2854
3121
3660
31886

4197
4581

4292
4631

4313
4649

4035
4364
4658

1893

16904

2731
2993
3404
3810

2779
3049
3448
3839

6113
4391
4794

DATAHD
005204
DELAY = 104413
DEVADR
DEVTAB

1903

SEQ 0111

4152
4526
4854

1683

4159
4540
5407

4161
4561
5430

2891
3177
3689
3915

2905
3206
3690
3969

2942
3291
3736

2956
3328
3764

4037
4382
4669

1525
12614

DH1
DH10
DH2
DH3
DH&

DHS

DH6

DMRL VL
C
DMRVE

DMS100

1893

1907

1989+

2221+

2222+

2251

1220«

1225+

1260

1378

1707

1730

1911

1920

b
)
e

1762«

1768+

1769+«

1775+

1920+

1921+

1987«

2002+
1794

2206+
1924+

2207
1925+

2218
5053

5066

5224

5299+

1929

=
»

8734
8744
8004
8754
5309+
8764
8694
8684
890#

001414
001376
001374
001502

1290

DMPO6

1289+

1969

DMCSRH
DMCTL
DMNUM
DMPO4

8724

el \ S|

9594
9644

DMCSR

1348+

8994

— e

DMCR13
DMCR14
DMCR15
DMCR16
DMCR17

1117«

9044
9094
9144
9194
924N
9294
934n
9394
94in
9494
9544

WO NN NO O NN —
CONO
— 2 ONOW — 00
- O WOV
NO —

DMCROO
DMCRO1
DMCRO2
DMCRO3
DMCRO&
DMCROS
DMCRO6
DMCRO7
DMCR10
DMCR11
DMCR12

288888888888S

DH7

DISPLA
DISPRE
DMACTV
DMCM

9--

CIDME MACY11 30A(1052) 07-JuL-B0 13:53 PAGE 113

CIOME.P11

01-JuL-80 15:29

DMS101
DM$102
DMS103
DMS104
DMS105
DMS106
DMS107
DMS110
DMS111
DMS112
DMS113
DMS114
DMS115
DMS116
DMS117
DMS200
DMS201
DMS202
DMS203
DMS204
DMS205
DMS206
DMS207
DMS210
DMS211
DMS212
DMS213
DMS214
DMS215
DMS216
DMS217
DMS300
oMs301
DMS302
pMs303
DMS304
DMS305
DMS306
DMs307
DMS310
oMs311
pMs312
pMs313
pMs314
pMs315
pMs316
pMs317
DMTLVL

001512
001522
001532
001542
001552
001562
001572
001602
001612
001622
001632
001642
001652
001662
001672
001504
001514
001524
001534
001544
001554
001564
001574
001604
001614
001624
001634
001644
001654
001664
001674
001506
001516
001526
001536
001546
001556
001566
001576
001606
001616
001626
001636
001646
001656
001666
001676
001402

8954
9004
9054
9104
9154
9204
9254
9304
9354
9404
9454
9504
9554
9604
9654
8914
8964
9014
9064
9114
9164
9214
9264
9314
9364
9414
9464
9514
9564
9614
9664
8924
8974
9024
9074
9124
9174
9224
9274
9320
9374
9420
9474
9524
9574
9624
9674
8714

DM.END

001700

969#

DMTVEC

DM.MAP
DONE
DT
DT10
pT11
D112

001400

001500

003734
032206
032340
032362
032374

870#

805

1397
54720
54700
54700
54728

CROSS REFERENCE TABLE -- USER SYMBOLS

1933+
1931«
1985

1934e
1932«

1933

1399+

1096

14194

1149

8884

1829+

1159

1275

1903

SEQ 0112

1905

1983

1988

2243

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME .P1N
01-JuL-80 15:29

002536
030440
002566

11984
4891
1207#

42N

ON NN
Co & GO\~
—ON
W
t

el e

OWRHO—
W-Ww
L 3

NNVONO
W
- N NO
O N

—

- OO NO
W=
NNO
N

FLOAT
FLTDAT
FY

1009#
1012#
10154
1018#
10214
1205
7734
8124
1660+
1237
1675
7064
1695
54534

4195

ERCT13 001760
ERCT14 001764
ERCTIS 001770
ERCT16 001774
ERCT17 002000
ERR
002700
ERRCNT 001232
ERRFLG 001325
ERRMSG 005172
002770
ERRPC
ERTABO 005322
EXIT = 00020
EXITER 005252
FLAG
030430

54720
56720
56720
564724
56724
56724
56724
54724
54724
564724
54720
54724
54720
54724
56724
56724
54724
54724
54724
54724
54724
54720
54724
54724
54724
54724
54724
4096
9764
9794
9824
9854
988#
9914
9944
9974
1000#
1003#
10064

032220
032236
032250
032262
032300
032316
030504
031007
031226
031255
031301
031341
031411
031432
031446
030542
031512
031533
031550
031573
031615
031640
030605
030651
030713
030743
030762
030126
001704
001710
001714
001720
001724
001730
001734
001740
001744
001750
001754

OSSN

D12
D13
D14
D15
DTE
D17
1,)
EM10
EMN
EM12
Em13
EM14
EM15
EM16
Em7
Em2
EM20
Em21
EM22
EM23
EM24
EM25
EM3
EMé
EMS
EM6
EM7
EOM
ERCTO0
ERCTO1
ERCT02
ERCTO3
ERCTO4
ERCTOS
ERCTO6
ERCTO7
ERCTI0
ERCTI1
ERCTI2

13:53
PAGE 114
CROSS REFERENCE

4905
1222

SEQ 0113

TABLE == USER SYMBOLS

4275

4518

4523

4903

4907

1700+
1408+«

1918«
1650

1663

1677+«

1736+

4909
1228

4916

4956

564574

4911

4998

53484

CIDME

MACY11 30A(1052)

07-JuL-B0

030000

3697

CZDME .P1N

GETQl

01-JuL-80 15:29

13:53

3701

PAGE 115

CROSS REFERENCE TABLE == USER SYMBOLS

3772

3776

31847

005222
004366

1646
1489+

16924
1516

15344

INBUF
INCHAR

007630
010146

1459
1844

1495
18724

18154

;
‘

INRDY

027510

3406
4467

3450
4672

3487
4686

3495
4691

3503
4712

4198
4726

4222
4740

833
8314
1466

1510
1942
14784

1994

2007

2016

2120

2129

2085

2100

22934

1669

2617+

2433«

INSTER= 104404
INSTR = 104403
INSTR2 004166

8114

4938

1120

5003

1140

5018

1147+

5023

2027

2044

2054

2069

LIMITS
L INE
LOBITS

004314
007016
004372

1505
18004
1491+

15164
2121
1520

15364

1537

3649«

3681+

3724+

3756+

LOCK

LOKFLG

001220
001326

1250

7684

8134

004364
LOLIM
LPCNT
001224
LRC8 = 000200
LSTERR 001234
LUTYPE= seeees |

1488+«
7708
52604
7744
611

MCRLF

1444

MASKX
MASTEK

001244
006142

MCSRX

006072

005672

7824
1671

1350

MDATA
MEMLIM
MEPASS
MERRPC
MERRX

007672
001304
005733
006217
006117

1597
7984
1349
1674
1356

MERRS

006005

1286

MERR2

MESDAT

005760

030434

MESLD

030152

MILK

001322

18004

1410+

1345+

1647

1649+

1737+

1567

1667

1668

1676

18004

1607
1313«
18004
18004
18004

18174

18004

4419
4811

4424
4819

4448
4917

4462
4933

2459+

2475+«

2501«

2524

2559+

2579+

3906w

2003

4088

4094

4188

4193

4263

4269

4273

4329

4404

4447

4510

4516

2332

ggz?,

4192

4268

4272

4515

4520

4785

4790

4850

4900

4904

4908

8064

1097+«

1358

4521

4596

18004

005755

1336

18004

MSTCLR= 104412

1941

4405
4801

3610

18004

2068
18004
18004

MRESET= 004000

3874+

4227
4745

2228

18004
1354
1734

005666

4137
4392
50474

18004

006704
006106
005675

MoM

3831«

1103+
5232

MODU
MPASSX
MPFAIL

006144

3799«

1409+

1327

MNEW

1429

15334
1406

006043

MLOCK

1427

52124

1518
1405+«

18004

4120
4383
4659

;

012474

007330

£2934
4116
4371
4650

1411+

INTTY

KMCM

3981
3059
4367
4638

53034

HALTS
HILIM

001324

3977
3055
4350
4634

4047

3743
2894
4162
4564

INIFLG

3897
3000
4346
4617

4043

3672
2847
4153
4547

1406

3893
2996
4320
4613

3926

3668
2843
6141
gzg?

7694

3822
2949
4316
4588

3922

027766
026650

001222

3818
2945
4299
4584

3851

GETQ0
GETSI

ICOUNT

3747
2898
4295
4568

SEQ 0114

1281

1474

7064

B4SH

4671

4725

1901«

4781

1906+«

4786

4791

4851

4986

4996

5002

54554

1910

;

18004

:
.

18004

1965

2040

2050

2060

2077

2091

2111

1739

2363

2387

2419

2461

2503

2561

2612

1959

2634

2656

2690

2723%

CIOME
MACY11 30A(1052)
07-JuL-B0
CZDME.P11
01-JuL-80 15:29

MTITLE
MISTN
MTSTPC
MVECX

001000
006130
006031
006100

001216

Mv3S5

NITCH
NOACT
NODEV
NUM

007454

2688+
3247+«
3947+

2730
4788

2774
4793

027034

2827

001702
001706
001712
001716
001722

9754
9784
9814
9844
9874

026700
007154
002674
006450
002646
001302

001726
001732
001736
001742
001746
001752
001756
001762
001766
001772
001776
104405
004234
040000

PARERR 004310
PASCNT 001230
PERFOR= 004537
PFTAB
005430
POPRO = 012600
POP1SP= 005726
POP2SP= 022626
PRIO
006547
)
= 177776

PUSHRO=
PUSH1S=
PUSH2S=
QVv.FLG
RESREG

010046
005746
024646
001327
005220

7678

5053«
1136
1190
18004
1216
7978

619
5181

9904
9934
9964
9994
1002#
10054
1008#
10114
10144
1017#
10204
8354
164940
706#
1497

7720
7064
1735
6824
6804
6844
1800#
6734
6814
6794
6834
8144
1688

2876
3397
4258

SEQ 0115

2927
3438
4505

2978
3482
4779

3030
3526
4842

3088
3596
4881

3116
3651
4976

3144
3726

3172
3801

3201
3876

3249
3949

3286
4015

1705

2314«

2338«

2416+

2458+

2500+

2558«

2610+

2632+

5056+

5053#

2B74+
3395+
4256+

2385+

5055+«
1895

2823«
3358«
4183«

2361+«

4276
5289

4524
5575

3067

4092

1943

18004

2654
3199+
3873«

oK
ONE

PACTOS
PACTO6
PACTO7
PACTI0
PACT11
PACT12
PACT13
PACT14
PACT15S
PACT16
PALT17
PARAM =
PARAMT
PARBIT=

1124
1800#

2099

026702

PACTCO0
PACTO1
PACT02
PACTO3
PACTO4

76460
1672
1800#
1352

2825
3360
4185

18004

OCOR

OUTRDY

2767
3323
4083

L 9
13:53 PAGE 116
CROSS REFERENCE TABLE == USER SYMBOLS

1412

5054+
18004
12294
1995

2721%
3284+
4013+

2925+«
3436+
4503+

3028+
3524+
4BLO+

3086+
3594+
4B79r

3114+
3648+
4974+

4912

2887

2938
4999

2989
50614

5067

5097

3968

4034
5139

4097
5155

4196
5196

2832

2878

2883

2929

2934

2980

2985

3035

3039

3044

1944
1511

1996

2009

2018

2122

2131

1499
1347+«

1501
1348

15104
1359

1517
1384

1519
1917+

1521

1324+

2255+

2265+

1363+

1403

4267
5276

4514
5285

4784
5322

4849
5338

176414
1699
1414
2026
1089+

1696

1095+
16914

5081
5352

3048

2976+
3480+
4777+

4853
1252

12234
5472

2836

2765+
3321+«
4081+

5090
5369

5101

5120

5135

5148

3142«
3723+

5152

3170+
3798e

5172

SCOP1 = 104401
SILOLD
SIMBCC

027244
027544

SKIP
SOFTSW
SOM
SPACNT=
SPEED
STACK =
STAT

002632
010200
030076
004713
007340
001200
001240

STAT1
STAT2
STATS
STFFCK
STFFCL
STRTSW

STUFDT
STUFLG
Sv05

001366
001370
001372
030314
030234
001236

030460
027506
004402

4067

8274
3830
3403
3663

4535

1186
1842
4519
1577«
18004
6744
7804

8614
8628
8634
56144
5188
2;;3'

54634
3399«
15464

AN
S 8 SN
A NN OO N —
WA
= O NNV
N =0 NN~
VNV
O N = N — NN
N WLIONO
[o STEVe JWEE VAV To N NIV, 1. -1 o8 LV, LV ]

SN WML
N NN —

PO NO G0 NN
OO OVOMNOWN S —
WNNST OO0

=2 NN

BN B

PO NN

—

(W STaVoTe X STo SV Te T, "To IV TVP 3
£ OO0V
ONOWO
N
— ——
WN NN 00 N NN O O WO = 00N

SN BN BN WNANINNONONY
— —

-—

[
~
5
£

NANANNOI NN = -

1284
1092+
1235+
1551«
1241+
1549+
1548+
1547+
1546+

1098+

8014
802#
7954
7884
7894
7902
7914
7928
7934
7944
8374
3398+«
8254
2752
3309

5170
5320

8034

5153
5307

B B o

4032
4468
4812
5064

001316

001312
001314
001276
001260
001262
001264
001266
001270
001272
001274
104406
027504
104400

4028
4463
4802
5051

SEQ 0116

SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVR3
SAVRG
SAVRS
SAVSP
SAVOS =
SCHAR
SCOPE =

2466
2659
2N
3008
3265
3533

RUN

2464
2635
2781
2987
3256
3504

17274
1366
1691
1105+
1747

RETURN 001214
ROMCLK= 104414

1721
1362
8394
7664
84N

— e e e e e e e (N =

RESTAR
005350
RESTRT
003534
RESOS = 104407

LI
13:53 PAGE 117
CROSS REFERENCE TABLE == USER SYMBOLS

VIR
O W =000 M OWVMNOO S~ NW
OOV
WNWNON N ONNNNNOM
WO WO O W
= OWVOOO VN0 O STVONNOWN—-=ONO

CIDME
MACY11 30A(1052)
07-JuL-80
CZOME.P1N
01-JuL-80 15:29

1651
3439+
2326
2809
3346
4168

5198+
2546

3102
3635

4959
2575

2432
3859
3419
3692

3917

4605

2642
3186
3860

2675
3235
3935

2708
3272

3709

3755

3784

4108

4287

4338

4001

1189
18814
53340
1601
2053
1090

1706

1914»
1915+
1916+

2396
2638
3572

3529

3541

3569

3567

3599

3623

4883

4978

53924
1126+

1130

1142

1144

1279

1325

1334

1936

1960+

1990

3440+

5199«

16184

TEMPL
001254
TEMPS
001256
TINER = 104416
TKCSR
001204

TKDBR
001206
TLAST = 026332
004730
001226

16304
7710

s
TST10
TST11
s
Isn
TST16
TST1S
TST16

012526
013534
013710
013752
014014
014114
014214
01435¢

2699
3085+«
3593«

4878¢
1950
2500
2558
2610
2632
2654
2688
2721

4636+
4951+

4437+
4952

4438
5035+«

L4479+
5036+

123
4666
4952+

1240«
44LB1+
4953

1806
4482
5021«

1999
4689+

2012

2015

2021

3329

1640

1645

4886

4887

4981

4982

53144

2239
1960

2251+
5283+
$239«

1993«

3255

2252+«
5318+«
5244+

2006+

3292

5076+
5329+
5270+

2237

1872
1830

2293
1832

5446
1874

1447

1642
1644

1875
1877«

2296
2298+

1104+

1743

1947

1954

1463
50420
1445

2557«
3113«
3647+

4973e
1968
25574
26094
26314
26534
26874
27204
27640

2631+
3169+
3797«

2653+
3198¢
3872+

2687+«
3246+
3946+

5088+
5368+

2657+
5133«

2663+
5168+

2666
5179«

2672+
5220+

5226+

4703+

4704

4705

4757+
5163

4705+

5038

4225+
4706
5398+

4226+
L743%
5408+

4422+
L7440
5421+

44230
L4759+

2024

2128

2134

2137

3366

3563

3605

2360+
2873
3394+

24150
2975+
3479+

2457
3027+
3523+

5286

5022+
5104+

7610

TRPOK
TSTNO

TPDBR

001212

3119
4022

1154+
1155+
2697
1461

001210

4783
1784+

1440

1701
1425
1703
140N
1440
1645

7864
7878
8534
7588

TPCSR

4513
1778+

1425

1765

4758
5167+«
7854
4438
4760

759%
1963
7608

5071#
4266
1773«

1401

1279

1584
1150+
5252+
1151«
4759
5194+
1153«
4439
4936+

5472

3175
4190
1732«

1394

mrNOoo
o

001252

1289

TEMP3

640#
3091
3956
8814
7834
5238+
7844

1284
1863

W
v

001250

6414

1126
1825

wnes
—

TEMP2

1116
1130
1334

1116
1765
1883

—

000100
000200
000400
001000
002000
000
010000
020000
SW1&
= 040000
SWwis5 =10
SYNC
026720
SYNLD
030016
TEMP
001416
TEMPT1
001246

739
6554
6544
6534
6524
6514
6504
6498
6484
6474
6468
6454
b4l
6438
6428

0
2

18704

000176
000001
000002
000004
00001"
00002y

1701

1864+

SEQ 0117

SHwrorn
— NOD
N
NP
NSO
N

=
=
=
=
=
=
=
=
=
=
=
=
=
=

1694

1843
1110+

1837«
OO WVIHNIN

SWREG
SWw00
SWw01
Sw02
SWw03
SWw04
SWoS
sw0é
Sw07
SWw08
Sw09
SWw10
Wil
sWw12
SWw13

007215
001202

1438
1840

SWMES1
SWR

1093+«
18004
18004
7534

010144
007205

—

SWFLG
SWMES

N 9
13:53 PAGE 118
CROSS REFERENCE TABLE == USER SYMBOLS

OO0~
—

CIDME
MACY11 30A(1052)
07-JuL-80
CZDME.P1N
01-JuL-80 15:29

5136

5146«

5149

5434+

2295

1956

2720+
3283
4012+

4255+

2384
2924
3435«
6502«

4776+

4839+

8 10

MACY11 30A(1052) %-JU.-OO 13:53 PAGE 119

P11

01-JuL-80

014550

812?25
14
015114

—l
|

265

823
874

2873
9244

|
|

976

3027#

314

3370

015666

028

3085#

29754

114

1410

;

3394s

015754

jose

016132
012650
016222
016374
016510
016626
016744

3142
3338
170
3199
3247
3286
3321

31690
g3e0s
31984
32468
3283
33208
33570

017212
017352
012722
017512
017744
020140
020454
020770

3395
336
2361
3,80
3524
3594
3648
3723

34350
3479
23840
3523
3503
36470
37220
37970

021620

3873

39460

017062

021304

3358

3798

3113

38720

022056
013024
022314
022646
023074
024174
025374
025626
025744
026332
013164

3967
2385
4013
«081
$183
6256
4503
4777
(840
879
2616

40128
24154
4080#
41820
42554
45024
47768
4839
4B78N
49738
24578

013324

2458

24994

7064
1666

1329+«

1331+

1686

16874

2042

2069

TS160 = eveeee |

003612

TWOSYN= 010000
TYPDAT
005206

= 106402

WRDCNT
WRKO.F

SEQ 0118

925

016044

VECMAP

CROSS REFERENCE TABLE =-- USER SYMBOLS

015276

015460

TYPASG

15:

005106
006526
012216

012210
004710
005174
005000
003546
003570

4974

1328«

8204
1350
1676

2039

1666
1800#
2221

2005
1575«
1679
1661
1351
1357

1126
1352
1676

16678
2017
223

22354
1608+«
16828
1643
13764
1385#

5042

1136
1354
1680

16164

16454

1332+

1395#

1148
1356
1685

1233
14kk
173«

2052

2059

1238
1457
1840

2067

1246
1474
1843

2076

1249
1567
1895

2083

1281
1607
1941

2090

1286
1667
1959

2098

1327
1668
1965

2110

1336
1671
2003

2228

1349
1672
2025

00356
027650

XSTATG
XTSTN
XVEC

ZERO

$COD

001300
wenene

SCRAP = 177777

SENDAD 003522
= 000057
$N

= 000061

135

13824

3655+

007602
005330
003554
=

18004

= 000017

= 032730

3684e

4533+
1157
1673
1353
7968
611

4603+
1800#
17134
13794
5472

27168
20630
3134
32794
36670
3714

2753
2966
3137#
33104
3470
3718#

6114
24054
2602

2303
2408
2605#

40084
L7648
733

4068
4767
1122

4076
L2594
4837

4078
4L4LB6
4842

6114
23640
2455
2599
2656
2760
2877#
3025
3131
3201
3316
33084
3521
3711
3876

50424
6114
2500

27240
3086
3287#¢
3594

1224+

40164
4879

6114
8472
7184

8824

902#
9194

2303
2374
2461
2605
26578
762
912
3030
3137
32024
3318
3423
3526
3718
38774

2314
25040

2765
3089#
3321
35974

4081
48824

8174
8494

719
8874
904#

9204

1227

3730+

4888+

1258

1271

3759+

3805+
5248

4983+

3909«

3955+

4021+

93#

VOOO';JWN

XPASS
XPOLY

1148

1%02'

NN PO NN

0062264

003025

SEQ 0119

& BB NN N NN
NNOO
O N
NSO~

XHEAD

XLOC

¢ 10

13:53 PAGE 120
CROSS REFERENCE TABLE == USER SYMBOLS

NN LNNN
N N RO N
NN —=O0O W
- PO
AN
~ VINO ~NO~
= = W

CIDME
MACY11 30A(1052) 07=-JuL-80
CZDME .P1
01-JuL- 80 15:29

106+

4285+

4336+

951#

.INST?

.MSG
MSTCL
.PARAM
PFAIL

.RESOS

.ROMCL

.SAVOS

. SCOPE
.SCOP1
+START
. TIMER
. TRPSR
.TRPTA
.TYPE

9524

9674

1128

64163

4393

844
842
852
848

15684
15674
17724
1745

1897

.BEGIN
.CNVRT
. CONVR
.DATAC
.DELAY
.EOP
LERRTA
JHLY
. INSTE
.INSTR

0D 10
13:53 PAGE 121
CROSS REFERENCE TABLE == USER SYMBOLS

1303#

1991

1091

17204

1728

1089#

1105

1860

832

14534

846
836

17564
1485#

840
850
838
826
828

15564
17614
15424
1392#
14240

854

17834

B24m
830

1632
14354

723

742

727

12704

2180

4974
54720
16394

1457#
1455«

1138

955#

2035

13440
1659
725

834

954#

4660

54724

164740

1477
1458»

16274

956#

1288

2184

957#

1723

2231

959#

1733

2262

SEQ 0120
960#
1781#

2294

961#
18004

2297

9624
18164

3528

9648
1818#

3542

9654
1873

3570

9664
1876

3598

———————————————

MACY11 30A(1052 )
C IDME
07-JuL=-80
CZDME .P1N
01-JuL-80 15:129

CIOME
MACY11 30A(1052) 07-JuL-80
CZDME.P1N
01-JuL-80 15:29
DMEND

DMF ANT
HLT

$ABORT
$AUTO

$8CC
$BINCR
$BINWI
$BUFFE

SCDATA
$CLOCK

sComP

$CRC
$CRCSH

$CYCLE
SEMPTY
$EOP
$FINI
$FLAG

S$FLOAT

$GETPA
SHALF
SHEADE
SINACT

S$INIT

SLINET
$LU1
$LU12

$LU17
SMARH ]
SMARK
SMATCH
$MOCK
SMODEM
$MSG
$MULT

SPATTE
SPFAIL
$000!
SQUEST
SRAMCL

SRCLK

E 10
13:53 PAGE 123
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0121

6114

1338

6854

2325

2348

2372

2403

2431

2444

2473

2486

2519

2540

2574

2592

2619

2641

4301
6545
4719
5112
6114
6114
6114
6114
6114
6114
6114
6114

4318
4549
4733
5278

4322
4566
4753
5433

4348
4570
4762

4352
(586
4799

4369
4590
4808

4373
4615
4818

4385
4619
4826

4394
4636
4862

4412
4640
4924

4632
4652
4946

4441
4661
4955

4455
4679
5010

4475
4699
5031

4484
4708
5040

4B64
2643

4960

4210

4230

4427

4470

4694

6114
6114
6114
6114

1884
4764
1338
5042

6114

2505

2525

2563

2580

3075

3103

3159

2489
2303
2405

2547
2327

2350

2374

4415

4458

2016

6114

2665
2951
32N
3670
3928

6114

6114
6114

6114

6114
5114
6114
6114

6114

6114
6114
6114

6114

6114
6114

6114
6114
6114
6114
6114

2674
2961
3300
3674
3979

1160

3636
3936
3014
1812

3210

3653
3950

3T
4002

3222

3682
4016

%760
002
3337
3703
4045

3786

3229
3728

2750
3012
3345
3745
4049

§788
057
3374
3749
4118

2798
3061
3382
3774
4122

2807
3101
3413
778
6139

2845
3129
3457
3820
4143

2849
3157
3494
3824
4155

2859
3185
3502
3849
4164

2896
3215
3510
3853
4206

2900
3227
3559
3895
4215

2910
3234
3581
3899
4235

2947
3263
3631
3924
4297

3861

3258

3267

3295

3304

3332

3832

3878

3907

4748

4941

4682

4736

4929

5014

2120

2129

1792

2318

2341

2365

3757

3803

5026

3341

3369

3378

34390

3498

3506

2422

2424

2435

2437

2464

2466

4829

2447
3467
46219

3512
(800

6114
6114
6114
6114
6118

3384
1716
5293
1994
1744

2477
2695
2880
3150

2479
2699
2885
3178

6114

2706
2998
3308
3699
3983

1747

3423
5303
2007

1750

2509
2726
2906
3208

1787

2511
2728
2931
3218

2530
2733
2936
3220

2532
2743
2957
3256

2566
2770
2982
3265

2568
2772
2987
3293

2389

2584
2777
3008
3302

2586
2781
3037
3330

2613
2791
3041
3339

2635
2801
3046
3367

2659
2829
3069
3376

2668
2834
3094
3407

2693
2855
3122
3445

(ZDME

MACY11

CZDME .P11

30A(1052)

07-JuL-80

01-JuL-80 15:29

3451

3488

4024
4468
4846

4028
6477
4855

$RCRC

6114

4169

$SCOPE
$Sim8C
$SINAC
$SOF TC
SSTUFF
$SWPA(
$TCHAR
$TCRC
$ TRANW
$TRANY

6114
611¢
611»
6114
611#
6114
6112
6114
6114
6114

1388
5232

$TSTN

SVARIA
$WINDO

3496

13:53

3504

3533

3536

4062
4687
4934

4199
4692
4939

4208
4701
4948

3236

3273

3310

3347

2599
4087
4068
4106
2676

2621
6187
4240
4285
2709

4262
4486
4336
2753

4509

6114
2820
3433

231
2871
3477

6114
6114

744
2810

$ZEROS

4835
6114

4864

. ABS.

032730

$SREC

$TRPDE

$x2

611#

6114

6114
2547
2818
3159
3.3
3936

ERRORS DETECTED:

5095
g%g;

3187

5106
5278

CROSS REFERENCE TABLE == MACRO NAMES

403
467
4918

5092
g%%g

PAGE 124

5124
5281

5128
5287

5131
5297

3561

3564

3603

3607

3614

3958

SEQ 0122

3962

3966

3996

4223
4713
5004

4228
4727
5019

4237
6741
5024

4406
4746
5033

4420
4755
5051

4425
4795
5064

4634
4802
5079

4449
4812
5083

4463
4820
5086

5137
5307

5150
5320

5153
5324

5170
5327

5174
5340

5177
5343

5183
5354

5203
5356

5205
5371

1820

825

2303
2553
2861
3165
3467
3942

4533

4603

829

831

833

835

837

839

841

843

845

847

849

851

2335
2922
3521

2358
2973
3591

2382
3025
3645

2613
3083
3720

2455
31
3795

2497
3139
3870

2555
3167
3944

2607
3196
4010

2629
3244
4078

2651
3281
4180

2685
3318
4253

2718
3355
4500

2762
3392
774

2861

2912

2963

4874

4960

4969

2350
2627
2963
3242
3583
4076

2356
2643
2971
3273
3589
4169

2374
2649
3014
3279
3636
4178

2380
2676
3023
3310
3643
4240

2403
2683
3075
3316
3T
4251

2411
2709
3081
3347
3718
4486

2447
2716
3103
3353
3786
4498

2453
2753
3109
3384
3793
4764

2489
2760
I3
3390
3861
4772

2495
2810
3137
3423
3868
4829

827

2309
2599
2869
3187
3475
4002

2327
2605
2912
3194
3512
4008

000
O

CZDME ,CZDME . SEQ/SOL/CRF/NL:TOC=(ZDME
.P11
RUN-TIME: 15 21 1 SECONDS
RUN-TIME RATIO: 64/39=1.6
(ORE USED:
32k
(63 PAGES)

2333
2621
2920
3236
3519
4068