Digital PDFs

AH-8557C-MC

November 1980

134 pages

Original

74MB

view download

OCR Version

109MB

view download

Document:	CZDMFC0 DMC11 BTSTUF MD LN UNT TSTS NOV 1980 bw
Order Number:	AH-8557C-MC
Revision:	000
Pages:	134
Original Filename:	CZDMFC0__DMC11__BTSTUF_MD_LN_UNT_TSTS__AH-8557C-MC__NOV_1980_gray.pdf

OCR Text

DHCLL

BTSTUF

MD LN UNT
CZDMFCO

TSTS AH-B557C-MC

l
e
dile
vuse
woc'i
1
OF
1
E
FICH
NOV

1980

bl bl

MACY11 30A(1052)
(ZDM F
08-JUL-80
CZDm F.PI
08-JuUL=-80 08:25

08:26

PAGE 2
SEQ 000!

PORUNIAY
—2 b b ed s o e o h

NS WA 2O LC00 YO

S WA

.REM

= OOV

IDENTIFICATION
PRODUCT

CODE:

AC-8556(-MC

PRODUCT

NAME
:

CZDMFCO BTSTUF

MD LN UNIT

DATE -

AUGUST

MAINTAINER:

DIAGNOSTICS=MERRIMA(CK

TSTS

1980

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DITITAL

EQUIPMENT

CORPORATION.

RESPONSIBILITY

THE

SOF TWARE

DOCUMENT,

LICENSE

TERMS OF

DESCRIBED

NOT

USE

ANY

EQUIPMENT

ERRORS

IN THIS

DOCUMENT

CORPORATION ASSUMES

RELIABILITY

SUPPLIED BY DIGITAL.

(C)

1976,

[TS

MAY

APPEAR

FURNISHED

ASSUMES
IN

THIS

UNDER

IN ACCORDANCE WITH THE

SUCH LICENSE.

CORPORATION

THAT

AND MAY ONLY BE USED OR COPIED

DIGITAL EQUIPMENT
THE

DIGITAL

FOR

SOFTWARE

1980 BY DIGITAL

RESPONSIBILITY
ON EQUIPMENT

EQUIPMENT

THAT

FOR
IS

CORPORATION

[

|
I

| (2 DMF
1

MACY11 30A(1052)
08-JuL-80
Q2 DMF PN
08-JuL-80 08:25

08:26

PAGE 3
SEQ 0002

63
'

45
46
47
4«8
49

9N
52
53

ABSTRACT
THE

FUNCTION OF

THE

DMC11

DIAGNOSTICS

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

ALERT

THE

VERIFY

THAT

THE

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

TESTS

PERFORMS

THE

DOMC-11

WRITE/READ

LINE

TESTS

UNIT

THE

(M8201

DMC

LINE

OR
UNIT

M8202).

REGISTERS.

(HECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION
IN
BITSTUFF
MODE.
THE
MODEM
SIGNALS ARE ALSO CHECKED.
(CZDMF
REQUIRES A DMC MICRO-PROCESSOR

(MB200 OR M8204.,

BEST
DIAGNOSIS
A
TURN-AROUND CONNECTOR SHOULD BE
ZGYEXES)THE DIAGNOSTIC WILL RUN WITHOUT
[T
(SOME
K

CURRENTLY

RUN

WILL

—

DZDMC
DZDME
DZDMF
DZDMG
DZDMH

FIVE

FIVE OFF

[INSURE

LINE

THAT

DIAGNOSTICS
[f

ADDITIONAL DIAGNOSTICS MAY BE

THE

ARE

DETECTED AT AN EARLY STAGE.

NOTE:

THERE

SEQUENCE

THE

DIAGNOSTICS

[REV]
[REV]
[REV)
[REV]
[REV]

AN ERROR

ADDED

RUN.

FOR

INSTALLED,
TESTS
ARE

THAT ARE

SHOULD OCCUR

IN THE

FUTURE.

ARE:

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

NAMES OF

THESE

DIAGNOSTICS MAY VARIE

AS EACH

IS UPDATED.

REQUIREMENTS

EQUIPMENT
ANY PDP11

——

FAMILY

CPU

(EXCEPT

AN LSI=11)

WITH MINIMUM 8K MEMORY

DMC11-AR
WITH
DMC11-DA
OR
DMC11-FA
DMC11-AL WITH DMC11-MA OR DM(C11-MD

ASR 33

(OR EQUILIVALENT)

| CZDMF

MACY11 30A(1052)

CZDMF P11
93
94
gg

08-JuUL-80

08-JuUL-80 08:25

08:26

PAGE &

2.2

STORAGE

PROGRAM WILL USE

ALL

8Kk

BOOTSTRAP

LOADER

}8§

ALTERED BY

THE OPERATOR.

99
100
101

LOADING PROCEEDURE

106
107

ME THOU

EXCEPT

WHERE

ABL

AND

CONTAIN

MEDIA.

ABSOLUTE LOADER STARTING ADDRESS +500
MEMORY

12K
16K

5
7

20K
24K
28k

1
1
1

SIZE
WVIWN—
I NN N
NN~

i
il

s s
=000

B
il il il
il il il
il i
il
il il il il il il
i
D il il
il
il il il

MEMORY

LOCATIONS 1500 THRU 1640;

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

s
s
NN
W

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

}gg

AN WIN NN PO N MNORO NN AORNOND =
NE W
=2 OO0
NN
W
=00

RESIDE.

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'

SWw UP)

DEPRCSS 'START KEY' ON CONSOLE AND RELEASE

INTO CPU)

(PROGRAM SHOULD NOW

SEQ 0003

—_—

MACY11 30A(1052)
CZDME
08-JuL-80
C2DMF P11
08-JuUL-80 08:25

136
137
138
139
140
14
142

143

08:26

PAGE S

STARTING PROCEEDURE
A.

144

145

ScQ@ 0004

SET

SWITCH REGISTER TO 000200

DEPRESS 'LOAD ADDRESS' KEY AND RELEASE

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

DIAGNOSTIC.

DEPRESS "START KEY' AND RELEASE.

MAINDEC NAME AND PROGRAM NAME

UP OF

(IF

THE

PROGRAM

THIS WAS THE

THE PROGRAM) AND ALSO THE FOLLOWING:
MAP OF

(SR

DMC11

STAT1

001500 160010 145310
001510 160020 145320

WILL

TYPE

FIRST START

STATUS

STAT2

STAT3

177777
177777

000000
000000

THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN
THE
DIAGNOSTIC.
THE
ABOVE IS ONLY AN EXAMPLE.
THIS WOULD INDICATE THE STATUS
TABLE STARTING AT ADD.
1500 IN THE PROGRAM.
IN THIS
EXAMPLE
THE
TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11°S.
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO
SIZING

lé PDONE.

HELP.

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

IF THE DIAGNOSTIC WAS STARTED WITH

SW00=1

INDICATING

MANUAL

PARAMETER
INPUT
THEN
THE
FOLLOWING SHOWS AN EXAMPLE OF
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS:

S?U MAMY DMC11'S TO BE

THE

TESTED?1

gmmmmmuwwwwww
N
WP 2O 0N
Ve
O®WNO

Qo
0o Co

-.-J—.—‘_.—._‘—.—.—.-‘_‘_‘—.—._‘

(SR ADDRESS?160010
VECTOR ADDRESS?310

'f“__. _

190

BR PRIORITY LEVEL?
(4,5,6,7)?5
(Y OR N)N
DOES MICRO-PROCESSOR HAVE C(RAM?
WHICH LINE UNIT?
IF NONE TYPE 'N'',
[IF
MB8201
TYPE
1",
IF
M8202 TYPE '"2''1
IS THE LOOP BACK CONNECTOR ON?Y
(THE NEXT QUESTION WILL BE ASKED ONLY I[F M8201 AND LOOP BACK CONNECTOR)
WHICH MODEM TYPE,
TYPE 'D'' FOR DMC11-DA (RS232C), OR

TYPE "F'* FOR DMCT11-FA (V.35) 2 D

SWITCH PAC#1 (DDCMP LINEN)?377
SWITCH PAC#2 (BM873 BOOT ADD)?377

FOLLOWING THE QUESTIONS THE

STATUS

MAP

PRINTED

OUT

INFORMATION I[N THE MAP REFLECTS THE
DESCRIBED ABOVE, THE
ANSWERS TO THE QUESTIONS.
IF THE DIAGNOSTIC WAS STARTED WITH
SW00=0 AND SWO7=0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED
AND ONLY THE STATUS-MAP IS PRINTED OUT.
IF
AUTO=SIZING
IS
USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT
(MATCH THE HARDWARE).
IF IT DOES NOT MATCH THE
HARDWARE
THE
olgcgggrlc MUST BE RESTARTED WITH SW00=1 AND THE QUESTIONS
ANSW

E%DHF
MACY11 30A(1052)
O08-JuL-80
DMF . P11
08-JuL-80 08:25
19
192
132

08:26

6.1

PAGE 6

SEQ 0005

CONTROL

SWITCH SETTINGS

195

SW 15 SET:

HALT ON ERROR

197
198
199

SW 13 SET:
SW 12 SET:
SW 11 SET:

INHIBIT ERRGR PRINT OQUT
INMIBIT TYPE QUT/ABELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)

196

SW 14

200

SW 10 SET:

201
202
203
204
205

206
207
208
209
210

211
212

SET:

SW
SW
SW
SWw

09
08
07
06

SET:
SET:
SET:
SET:

SW
SW
SWw
SW
SW

05
04
03
02
01

SET:
SET:
SET:
SET:
SET:

SW 00 SET:

g}z

215

LOOP ON CURRENT

TEST

ESCAPE TO NEXT TEST ON ERROR

LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
HALT IN
ROMCLK
ROUTINE
MICRO-PROCESSOR

CLOCKING

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

BUILD NEW STATUS TABLE FROM QUESTIONS.
(IF Sw07=0
AND SW00=0 A NEW STATUS TaBLE
IS BUILT BY
AUTO=SIZING)

SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED

216

WHILE THE DIAGNOSTIC IS RUNNING.

218

DIAGNOSTIC.

217

BEFORE

NEEDED

SWITCHES 00-03 AND SWITCH 07

ARE STATIC, AND ARE USED ONLY ON STARTING

RESTARTING

THE

| C2OMF

aS LS TS T ST NN LN L NS S S N

S L Lt

WIWIWIWIWWIWW
AN N RO NN NN NN —
NN S WSO
NN S WO 0

MACY11 30A€1052)
08-JuL-80
C2DMF P11
08-JuL-80 08:25

08:26

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
C(LEAR
AREAS
AND SET UP PARAMETERS.

WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK
NO.?

ANSWER BY TYPING THE NUMBER OF

THE

?22TCQRRIGE RETURN TO BEGIN EXECUTION AT THE

Sw 02

THE

SELEZTEC

RESELECT DMC11°'S DESIRED ACTIVE.

EST AND CONTINUE

PLEASE NOTE

THAT

MESSAGE
IS
TYPED QUT FOR SETTING THE SWITCH REGISTER
THIS MEANS I[F THE SYSTEM HAS
EQUAL TO DMC11'S ACTIVE.
FOUR
DMC11S;
BITS
00,01,02,03 WwILL
BE SET IN LOC
"DMACTV'
FROM THE
SWITCH REGISTER.
USING
THIS
SWITCH(SWOO)
ALTERS
THAT
LOCATION; THEREFORE [F FOUR
DMC11S ARE IN THE
SYSTEM #««DQ NQOTee«
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:

SELECTED

THIS SWITCH WHEN USED WITH
LOCK ON SELECTED TEST.
SWO1
WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE
SELECTED TEST.
HMITTING 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 SWO"
IS USED.
THE
PROGRAM
WILL
BEGIN AT
NORMAL OPERATIONS.

Sw 03

TEST

TEST DESIRED

A:
B:
C:

£:
Fi

INFORMATION ON

THE

STATUS

TABLE.

LOAD ADDRESS 200
START WITH Sw 00=1
PROGRAM WILL TYPE MESSAGE

SET A SWITCH
FOR
EACH DMC
DESIRED
ACTIVE.
[F 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.

xaais

CZOMF

MACY11

CZDMF P11

30A(1052)

08-JUL-80

08-JUL=-80 08:25

262
263
%gg

08:26

PAGE 8

4.1.3

SEQ 0007

DYNAMIC SWITCHES

ggg

ERROR SWITCHES

268

SWw 12

DELETE PRINT OUT/BELL ON ERROR.

SW 15

HALT ON THE ERROR.

269

270
27

SWw 13

SWw 10 GOTO NEXT TEST(ON ERROR).

SWw 0B

53%

DELETE ERROR PRINTOUT.

GOTO BEGINNING OF THE TEST(ON ERROR).

g;g

SCOPE SWITCHES

276
277
278
279
280

SW06

SW09

281
282

HWALT
IN
ROMCLK
ROUTINE
BEFORE
CLOCKING
MICRO-PROCESSOR
INSTRUCTION.
THIS ALLOWS
THE
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN
THE
STATIC STATE BEFORE
IT
IS CLOCKED.
MIT
CONTINUE TO RESUME RUNNING.

283
284

(1F ENABLED BY 'SCOP1') ON AN ERROR;
IF AN '+' [S
PRINTED
1IN FRONT OF THE TEST NO.
(EX.
+TEST NO.
10
)
SW09 IS
INCORPORATED
IN THAT
TEST
AND
THEREFORE
SWO09 IS USUALLY THE BEST SWITCH FOR THE
SCOPE LOOP (SW14=0, SW10=0, SW09=1, SWC8=0).
IFf
SW09 IS NOT ENABELED:
AND THERE IS A HARD ERROR

288

SW09=0, SWOB=1).

285
286
287

289
N0
291

Sgg
ggg

(CONSTANT):

4.
4.2

SWO8

BEST.

swil

SWwl4

LOOP ON CURRENT

299

NOTE:

* +e°

301

306
307
308

NOT

STARTING ADDRESS

gg%
: ggg

Swlé=1

TEST.

STARTING ADDRESS 1S AT 000200 THERE
ADDRESSES FOR THE DMC11 DIAGNOSTICS.

[éi'soo

Sw10=0,

WwILL LOOP ON TEST REGUARDLESS OF
ERROR OR
ERROR.
(SW14=1, SW10=0, Sw09=0, SwW08=1,0)
INHIBIT INTERATIONS.

296
Sg;

(SW14=1,0,

FOR INTERMITTEMT ERRORS;

ARE NO OTHER STARTING
(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM

UNDER

ACTT1

XXDP

CONTROL

AND

PROGRAM WILL RETURN TO 'XXDP' OR "ACT=-11'.

ASSUMES

WILL

ACT

ACCORDINGLY AFTER ALL AVAILABLE DMC11'S ARE TESTED THE

OPERATING PROCEDURE

WHEN PROGRAM 1S INITIALLY STARTED MESSAGES AS DESCRIBED IN
SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING
THE DIAGNOSTIC

MACYY11 30A(1052)
08-JuL=-80
08-JuL-80 08:25

CZDMF

08:26

PAGE 9

SEQ 0008

5.2

PROGRAM AND/OR OPERATOR ACTION

N
W=D
= OO0V ~NO NS W — OOVM~NO

CZDMF P11

s o

THE

TYPICAL

ot e

Yo
L.

THE

APPROACHM

SHOULD BE

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

NN NN N N N NN NN
WWNIRORO
NN RO RO RO AL P

SET SW 13:

(INHIBIT ERROR PRINT 0UT)

TEST NUMBER AND PC WILL BE

ERROR

TYPED

OUT

AND

POSSIBILY

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

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

TEST

CAN BE

DETERMINED.

ERRORS
AS DESCRIBED PREVIOUSLY

THERE WILL ALWAYS BE

A TEST NUMBER AND

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

6.2

ERROR RECOVERY

IF FOR SOME REASON THE DMC11
SHOULD
‘'HANG THE BUS'
(GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INWIBITED)
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO
REGAIN
CONTRCL 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.
IN THIS WAY
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMCi1 WAS
DOING
AT

THE

TIME

THE

ERROR.

RESTRICTIONS

STARTING RESTRICTIONS

(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAH WAS
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
STARTED.
THE lgFORHATION PRINTED ON
THE
TTY
TO
COMPLETLY
[ISOLATE
SEE SECTION 4.

PROBLEMS.

CIDMF

MACY11 30A(1052)

F
. P11
CZDM

358
359
360
361
362
363
364
365
366
367
368
369

08-JuUL-B0
08-JUL-80 08:25

08:26

7.2

PAGE 10

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
(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 SWO7=1 ON START UP.

HARDWARE CONFIGURATION RESTRICTIONS

370

371
372
373
374
375
376
377
378

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

IN THE OFF POSITION.

KMC (M8204)= JUMPER W1 MUST BE

E76

MUST

IN.

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

POSITION.

379
380

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

SW8 OF E26

MUST

MISCELLANECUS

EXECUTION TIME

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
THE ACTUAL EXECUTION TIME DEPENDS
POSSIBLE EXECUTION.

MESSAGE
THIS IS
FASTEST
GREATLY

ONS}gs PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE
SY

8.2

PASS COMPLETE

THE TESTS WILL RUN
EVERY TIME THE PROGRAM IS STARTED;
NOTE:
AS IF
SW11
(DELETE
ITERATIONS) WAS UP (=1).
THIS IS T0
THEREFORE THE
'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE.
FIRST PASS <=EACH TIME PROGRAM IS STARTED- WILL BE A "QUICK
WHEN THE
PASS' UNTIL ALL DMC11'S IN SYSTEM ARE TESTED.

DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OFf
THE PRINT OUT TO BE EXPECTED.
-

END PASS CZDMf 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
THEREFORE AFTER AN
WHEN THE DIAGNOSTIC IS STARTED.
PASSES AND ERRORS
TOTAL
THE
EXAMPLE,
FOR
OVERNIGHT RUN
FOR EACH DMC11 SINCE THE DIAGNOSTIC
REFLECTED IN PASSES:

AND ERRORS:.

WAS

STARTED

ARE

CI0MF

MACY11 30A(1052)
08-JUL-80
08-JuUL-80 08:25

CZDMF P11
614
615
L6

67
418
619
420
Y3
422
423
424
425
426
L27
428
429
430
431
432
433
434
435
436
437
438

08:26

PAGE 11

8.4

SEQ 0010

KEY LOCATIONS

RETURN

(1214)

TEST

(1216)

TSTNO

(1226)

RUN

(1316)

(1500)=(1640)

CONTAINS THE ADDRESS OF

PEFORMED.

CONTAINS THE NUMBER

THE

DMACTV (1306)

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

DM(C11
(RUN)
NO.06

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

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

INDICATES

THAT

DMC11 WILL BE TESTED IN TURN.

THAT DMC11

DMCSR
8.4A

(1402)

'STATUS TABLE'

(DMACTY) 1276/0000000000010001 MEANS
NO.

00,04 WILL BE TESTED.

ggg;AlNS THE CSR OF THE

CURRENT

DMC11

UNDER

(1500-1640)

THE TABLE

IS FILLED BY AUTO SIZING OR BY THE MANUAL
PARAMETER
ALSO IF DESIRED BY
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY.
USER;
THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN)
TO
SUIT THE SPECIFIC CONFIGURATION.
THE EXAMPLE STATUS MAP SHOWN BELOW

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

MAP OF

DMC11

STATUS

464

467
468
469

BEING

EXAMPLE:

647

466

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

4468
L9

465

TEST

TEST
NOW

PEFORMED.

THE NEXT

CONCERNING THE CONFIGURATION OF EACH DMC11.

439

453
454
455
456
457
458
459
460
461
462
463

ITERATION COUNT IS REACHED OR IF LOOP ON

IS ASSERTED.

DMCROO-DMCR17
DMSTO0-DMST17

440
Iy
642
443
Nl
445
446

450
451
452

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN

WHEN

(SR

STAT1

001510 160020 016320

STAT2

STAT3

000000

gg-JUL-BO
MACY11 30A(1052)
(2 DMF
F
. P11
(2 DM
08-JuL-80 08
470
«N

472

673
L74
675

476

677
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501

08:26

PAGE 12

SEQ 00N

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

THE & WORDS IS.

IN THE

DMC'S STATUS IS IN LOCATIONS, 1500,

EXAMPLE ABOVE

1502,

1504,

SECOND DMC STATUS 1S LOCATED AT 1570, 1512,
;gs Olgronnutlon
LLOWS:

CSR:
STAT1:

THE

FIRST

AND

1516.

AND 1506.

1514,

THE

CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS

CONTAINS DMC11

CSR ADDRESS

=08 IS DMC11 VECTOR ADDRESS

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

NO TURNAROUND CONNECTOR

LINE UNIT IS AN M8201
LINE UNIT IS AN M8202

NO LINE UNIT
=11 IS DMC11 BR PRIORITY LEVEL

STATZ:

IS SWITCH PAC#1 (DDCMP _LINE NUMBER)
E IS SWITCH PACH2 (BMB873 BOOT ADD)

STAT3.

N FREE RUNNING TESTS Ot KM(C11?
C11-AR (LOW SPEED)

gg-JUL-SO
MACY11 30A(10 52)
08-JuL-8 00 8

CZDMF

CZDMF .P11
502
503
504
505
506
507
508
509

08:26

PAGE 13

SEQ 0012

8.5

METHOD OF

8.5.1

FINDING THE CONTROL STATUS REGISTER.
THE

AUTO SIZING

AUTO-SIZING ROUTINE FINDS A DMC11

AS FOLLOWS:

STARTS

A1 ADDRESS 160000 AND TESTS_ALL ADDRESS IN INCREMENTS OF 10 UP
TO AND INCLUDING ADDRESS 167760.
IF THE ADDRESS DOES NOT TIME
OUT,
THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS IS WRITTEN
TO A 125252 THEN IT IS READ BACK.
IF
IT
CONTAINS A -1
OR
125252 OR 626 OR A 16520 A DMC11 HAS BEEN FOUND, IF NOT, THE
ADDRESS IS UPDATED BY i0 AND
THE
SEARCH CONTINUES.
A =1

(W LW LW RV LW LW LV LV LV AV LV, w
PORIN
b b
ed d i h —

=00V
NOWVN I W —

510

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 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 DMC11
THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED.

8.5.2

FINDING THE VECTOR AND BR LEVEL

THE

VECTOR AREA
(ADDRESS
300-776)
IS FILLED
WITH
THE
THE PROCESSOR
(NEXT ADDRESS).
INSTRUCTION 10T AND_ '.+42'
STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT.
THE

LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS

MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3
(BECAUSE OF
A
BAD DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL
5 AND TKRc PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC.
ONCE THE
PROBLEM IS FIXED;
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
gSNEBV YOU;
THERE IS A PROBLEM AND AUTO SIZING SHCULD NOT BE
8.¢

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 HARDWARE 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, THE FOLLOWING MESSAGE WILL BE DISPLAYED:

MACY11 30A(1052)
gg-JUL-BO
(20 MF
08-JuL-80 08
(20D ME P

08:26

558
559
560
561
562
563
564
565
566
567
568
569
570
57

572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598

PAGE 14

SEQ 0013

SWR=XXXXXX NEW?

WHERE XXXXXX IS THE CURRENT CONTENTS GF THE SOFTWARE SWITCH
THE SOFTWARE CONTROL ROUTINE WILL THEN
REGISTER IN OCTAL.
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED
TO TYPE ONE OR_ MORE OF THE LEGAL CHARACTERS: 1) 0 -7, 2)
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR &) (CONTROL-U
IF THE INPUT
NO CHECK IS MADE FOR LEGALITY.
(CTRL U).
TG BE
ASSUMED
IS
IT
U
CTRL
OR
<CR>,
<LF>,
CHARACTER IS NOT A
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
AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF>
TYPED.
DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW.
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED.
AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR wILL 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.
CHANGING THE SSR. THE <LF> DIFFERS FROM
WITHOUT
WILL CONTINUE
THE PROGRAM AS IF IT WERE RESTARTED AT
RESTARTING
EC?)ZSB
THE
ADDRES

’

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 THE

DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC.
9.0

HISTORY

THIS DIAGNOSTIC WAS UPDATED TC DETECT FOR THE CONDITION OF V.35
IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK
AND M8201.
AND SHOULD NOT BE TESTED FOR.

CZDMF
MACY11 30A(1052)
08-JuL-80
CZDMF P11
08-JuL-80 08:25

599
600

08:26

PAGE 15
SEQ 0014

( 4 DMF
MACY11 30A(1052)
08-JuL-80
C P4 DMF. P11
08-JuL-80 08:25

601
602
603
604
605
606
607
608
609

;STARTING PROCEDURE

:'.0AD PROGRAM
:LOAD ADDRESS 000200
;SWR=0 AUTOSIZE DMC11

614
615
616
617
618
619
620

:SW07=1
;SW00=1

;PRESS START

621

;SUBSEQUENT RESTARTS WILL NOT

624
625

645

646

USE CURRENT DMC11 PARAMETERS
INPUT NEW DMC11 PARAMETERS

:PROGRAM WILL TYPE '"CZOMFCO BTSTUF MD LN UNT TSTS
DMC11 DDCMP LINE
:PROGRAM WILL TYPE STATUS MAP
.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

622
623

644

SEQ 0015

;*CZDMFCO BTSTUF MD LN UNT TSTS
DHC11 DDCHP LINE UNIT TESTS
'COPVRXGHT 1976, DIGITAL EQUIPMENT CORP.,
MAYNARD, MASS. 01754

613

641
42
643

PAGE 16
NLIST

610
611
612

TYPE

UNIT

TESTS'

PROGRAM TITLE

ll
"

D
e

Il
ll

el
il

ll
ll

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

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SW09=1000
SWw08=400
Sw07=200
SWw06=100
SW05=40
SW04=20
Sw03=10
Sw02=4
Sw01=2
SwWw00=1

040000

100000

;SWITCH REGISTER OPTIONS

626
627
628
629
630
631
632
633
634
635
636
637
638
639
640

(8:26

—

0002

—-

LHALT ON ERRCR
.LOOP ON CURRENT TEST
+ANHIBIT ERROR TYPEOQUT

DELETE TYPEOUT/BELL ON ERROR.
INHIBIT ITERATIONS
LESCAPE TO NEXT TEST ON ERROR

.LOOP WITH CURRENT DATA
.LOOP ON ERROR
LUSE CURRENT DMC11 PARAMETERS,

=0,AUTOSIZE DM(C11

. HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION

;RESELECT DMC11°S TO BE TESTED (ACTIVE)
;LOCK ON TEST SELECT

JRESTART

PROGRAM AT

s INPUT DMC11

SELECTED

PARAMETERS

TEST

647
648
649

653
654

655
656
657
658
659
660
661
662
663

664

665

666

667
668
669
670
671
672
673
674
675

676

677
678
679
680
681
682
683
684
685
686
687
688
689
690
691

692

693
694
695
696
697
698

;REGISTER

000000
000001
000002
000003
000004
000005
000006
000007

GENERAL DEFINATIONS AND EQUIVALENCIES

SEQ 0016

DEFINITIONS

RO=%0

;GENERAL REGISTER

R2=X2
R3=13

;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER

R1=%1

RG=%4

;GENERAL REGISTER

RS5=%5

:GENERAL REGISTER

PC=%7

:PROGRAM COUNTER

co=%6

;PROCESSOR STACK POINTER

;LOCATION EQUIVALENCIES
177776
001200

PS=177776

STACK=1200

;PROCESSOR

STATUS WORD

;START OF PROCESSOR STA(CK

: INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746

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

;BIT DEFINITIONS
100000

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

mnmmunmnnnoO—=NwWsWm

652

PAGE 17

650
651

08:26

0003

CZDMF
MACY11 30A(1052)
08-JUL-B0
. P11
CZDMF
08-JuUL-80 08:25

;DECREMENT PROCESSOR STACK

1 WORD

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

0004

MACY11 30A(1052)
(2 DM¥F
08-JUL-80
2 DMF
. P11
08-JuUL-80 08:25

08:26

PAGE 18

TRAPCATCHER FOR UNEXPECTED

INTERUPTS

SEQ 0017

699

700
701
702
703
704
705
706
707
708
709
710
(4}
712
73
714
715
716
717
718
719
720
721
722

723

724
725
726
727
728
729
730
731
732
733

734

735
736
737
(2)
(2)
738
739

: TRAPCATCAER FOR ILLEGAL INTERRUPTS
: THE STANDARD '‘TRAP CATCHER'' IS PLACED

;BETWEEN ADDRESS O TO ADDRESS 776.
;1T LOOKS LIKE "'PC#2 HWALT',
A

000000

.=0

: STANDARD

000024
000032
000034
000036

000040
000042
000044
000046

000024
005336
000340
004750
000340
004716
000340
000040

=24

INTERRUPT

000052

000000

000174
000176

000174
©10000
00C000

000200

000200
000137

002002

001000
001040

001000
005377
046504

055 103
030 503

001200

HLT

“ERROR HANDLER

“TRPSRY
W

“GENERAL HANDLER DISPATCH SERVICE
"SERVICE AT LEVEL 7

"SERVICE AT LEVEL 7

:SAVE FOR ACT=11 OR XXDP

0
0

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

;ACT=11 PROGRAM CHARACTERISTICS

“FOR USE WITH ACT=11 OR XXDP

=174

046504

020061

.=1000

MTITLE:

;SOF TWARE DISPLAY REGISTER
SOF TWARE SWITCH REGISTER

IMP

START

.ASCII

<377><12>/CZDMFCO BTSTUF

LASCIZ

/DMC11

GO TO START OF

DDCMP LINE UNIT

PROGRAM

MD LN UNT

TESTS/<377>

TSTS/<377>

.=1200

sINDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY

741

001200
001202

177570
177570

DISPLAY:177570
SWR:
177570

"SERVICE AT LEVEL 7

DISPREG: 0
SWREG:
0

.=200

;POWER FAIL HANDLER

340

PFAIL

340

VECTORS

S$ENDAD

740

7642
743
744

R IIIInImmmmm

OR XXDP

CIOMF

005

MACY11 30A(1052)

CZDMF P11

;29
748

;g%

001204
001206
001210

001212

177560
177562
177564

177566

754

i
,

08:26

PAGE 19

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

’

TKCSR:
TKDBR:
TPCSR:

TPDBR:

177560
177562
177564

:PROGRAM CONTROL PARAME TERS

S
g

000000
000000
000000

RETURN: 0
NEXT:
0
LOCK:
0

:SCOPE ADDRESS FOR LOOP ON TEST
*ADDRESS OF NEXT TEST TO BE EXECUTED
SADDRESS FOR LOCK ON CURRENT DATA

761
762
763
764
;gg

001224
001226
001230
001232
001234

000000
000000
000000
000000
000000

LPCNT:
TSTNO:
PASCNT:
ERRCNT:
LSTERR:

:NUMBER OF ITEREATIONS COMPLETED
:NUMBER OF TEST IN PROGRESS
:NUMBER OF PASSES COMPLETED
:TOTAL NUMBER OF ERRORS
‘PC OF LAST ERROR CALL

001222

000003

767

001236
001240
001242
001244
001246
001250

000000
000000
000000
000000
000000
000000

787

001300

000000

788
789
790
791
792
79%
;3%
796
797

ICOUNT: 3

:NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED

0
O
0
0
0

:PROGRAM VARIABLES

770
771
772
77%
774
775

776
777
778
779
780
781
782
783
784
785
786

SEQ 0018

STELEPRINTER DATA BUFFER

177566

001214
001216
001220

768

:TELETYPE KEYBOARD CONTROL REGISTER
:TELETYPE KEYBOARD DATA BUFFER
STELEPRINTER CONTROL REGISTER

757
758
759

760

:INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

745

749
750
751

O08-JuL-80

08-JuL=-80 08:25

001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276

101302
001304
001306
001310
001312
001314
001316
001320
001322

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

STRTSW:
STAT:
CLKX:
MASKX:
TEMP1:
TEMP2:

0
0
0
0
0
0

lERO:

TEMP3:
TEMP4:
TEMPS:
SAVRO:
SAVR1:
SAVRZ2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:

000001
000000
000001
000001
000001
000001
000000

ONE :
MEMLIM:
DMACTV:
DMNUM:
SAVACT:
SAVNUM:
RgNé

001472
001676

CREAM:
MILK:

.EVEN

:SWITCHES AT START OF PROGRAM
:DM STATUS WORD STORAGE

- TEMPORARY STORAGE
:TEMPORARY STORAGE
: TEMPORARY STORAGE
- TEMPORARY STORAGE
: TEMPORARY STORAGE
;RO STORAGE
:R1 STORAGE
:R2 STORAGE
:R3 STORAGE
:R4& STORAGE
:RS STORAGE
SSTACK POINTER STORAGE
:PROGRAM COUNTER STORAGE

O
0
O
0
0
0
0
0
0
0
0

1
O
.BLKW
.BLKW
.BLKW
.BLKW
0

1
1
1
!

DM.MAP-6
CNT.MAP-4

:HIGHEST LOCATION FOR NPR'S
:DMC11'S SELECTED ACTIVE.
SOCTAL NUMBER OF DMC11'S.
:ORIGINAL ACTV DEVICES
;WORKABLE NUMBER
:POINTER TO RUNNING DEVICE.
:TABLE POINTER.
STABLE POINTER

)006

(2 DMF
MACY11 30A(1052)
08-JUL=-80
(2 DMF .P11
08-JuUL-80 08:25

08:26

PAGE 20

PROGRAM PARAMETERS,

VARIABLES,

2
AND

SEQ 0019

TRAP CALLS.

;PROGRAM CONTROL FLAGS
802
803
804
805
806
807
808
809

001324
001325
001326
001327

000
000
000
000

INIFLG:

.BYTE

;PROGRAM INITIALIZATION FLAG

LOKFLG:

.BYTE

:LOCK ON CURRENT TEST FLAG

ERRFLG:

.BYTE

Qv.FLG:

.BYTE

823

: IR

001330

001330
001332
001334

001336
001340

001342
001344

001346

833
834
835

001350

837
838

001354

836

839

840

841
842
843
844
845
846
847

[TERATIONS WILL BE SUPPRESS

:POINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

831

832

;QUICK VERIFY FLAG.
;ON FIRST PASS OF EACH DMC11

;DEFINITIONS FOR TRAP SUBROUTINE CALLS

811

824
825
826
827
828
829
830

;ERROR OCCURED FLAG

.EVEN

810

812
813
814
815
816
817
818
819
820
821
822

0013%5¢

001356
001360
001362
001364

104400
003576
104401
003736
104402
003766
104403
004050
104404
004154
104405
004174
104406
004374
104407
004434
104410
004466
VYRR
004472

104412

005466
104413

005436

104414

005504
104415
005552
104416
005616

RRRRRNRRRRECERCERNRECECEROECRRRRERRRNRRRRRARORRRORRARRANOERRRROROECEIOROERNOTEOTOERTY

"TRPTAB:

scope:rnAgzng

:CALL TO SCOPE LOOP AND ITERATION HANDLER

sc091=rnigoép1

:CALL TO LOOP ON CURRENT DATA HANDLER

.SC
TVPE=TRAP;2
.TYPE

:CALL

TO TELETYPE

.IN
INSTER=TRAP0$E
.INSTER

“CALL

TO ASCII

STRING INPUT ROUTINE

:CALL

ERROR HANDLER

SAVOS=TRA§;6OS

:CALL TO REGISTER SAVE ROUTINE

RESOS=TRA:E;05

:CALL TO REGISTER RESTORE ROUTINE

convnr=r§A8o1o

:CALL TO DATA OUTPUT ROUTINE

(NVRT=YRA?011T

:CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

INSTR:YRATO%TR

PARAM=TRAP+5
. PARAM
.

SAV

.CONVRT

.CNVR
MSTCLR=TRAP+12
LMSTCLR

DELAY=TRAP+13

.DELAY
ROMCLK=TRAP+14
.ROMCLK

DATACLK=TRAP+15

.DATACLK
TlHER:TRA?I;6
.TIMER

INPUT

OUTPUT ROUTINE

:CALL TO NUMERICAL DATA INPUT ROUTINE

SCALL

TO ISUE A MASTER CLEAR

;CALL TO DELAY
:CALL

TO CLOCK ROM ONCE

:CALL TO CLK DATA
SCALL

TO DELAY A CLOCK TICK

:.'..t'.t"""!'."'"'QQ.!"""'Q..!..""l'l.'."""l."'.l"‘Ql

08:26

PAGE 21

PROGRAM PARAMETERS, VARIABLES, AND TRAP (CALLS.

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

000000
000000
000000

STAT:
STATZ:
STAT3:

0
0

;DMC11 VECTOR AND REGISTER INDIRECT POINTERS
DMRVEC:

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

DMCRO3: .BLKW
DMS103: .BLKW
DMS203: .BLKW
DMS303: .BLKW

000001
000001
000001

DMCRO4:
DMS104:
DMS204:
DMS304:

.BLKW
.BLKW
.BLKW

BLKW

VAN

—
—

000001
000001
000001
000001

.BLKW
.BLKW
.BLKW
.BLKW

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 00
;VECTOR FOR DMC11 NUMBER 00

DMCROZ2:
DMS102:
DMS202:
DMS302:

OFNO
orMO

000001
000001
000001
000001

(W RV LV LV ]

— — —s —

DMS301:

AORIRON)

.BLKW
.BLKYW
.BLKW

DMCROO:
DMS100:
DMS200:
DMS300:

.BLKW
.BLKW
.BLKW
.BLKW

osr o

b
s
—s

AND ADDRESS ASSIGNMENTS

.=1500

DM.MAP:

[V LW LV LV ]

—

STATUS TABLE

DMCRO1:
DMS101:
DMS201:

8888 8888
8883
-l s —l
— e e
R

Y -

888 S

PORT REGISTER(SEL &)

;POINTER TO DMC11 PORT REGISTER(SEL 6)

=460

000001
000001
000001
000001

000001

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

TEMP:

VAW W
LR »

000001
000001
000001
000001

;POINTER TO DMC11
;POINTER TO DMC11
;POINTER TO DMC11

STORAGE

;DMC11

001500

RECEIVER INTERRUPT SERVICE PS

;POINTER TO DMC11

—

000000
001460

;POINTER TO DM( 11

;POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR
;POINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS

— il et

001416

;POINTER TO DMC 11 RECEIVER INTERRUPT VECTOR

il
ol

000000
000000
000000
000000
000000
000000
000000
000000
000000

[elelelelelelele
e

001374
001376
001400
001402
001404
001406
001410
001412
001414

0007

MACY11 30A(1052)
08-JuL-80
C l DM
08-JuUL-80 08:25
C l DMF .P11

;: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
;SRD STATUS WORD

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

SEC 0020

CIOMF

0008

905
906
907
ggg

001550
001552
001554
001556

000001
000001
000001
000001

DMCROS:
DMS105:
OMS205:
DMS305:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

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

910

001560

000001

DMCRO6:

.BLKW

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 06

915

001570

000001

DMCRO7:

.BLKW

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 07

920
921
922
352

001600
001602
001604
001606

000001
000001
000001
000001

DMCR10:
DMS110:
DMS210:
DMS310:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 10
“VECTOR FOR DMC11 NUMBER 10
“DDCMP LINEX FOR DM(11 NUMBER 10
“3RD STATUS WORD

925
926
927
ggg

001610
001612
001614
001616

000001
000001
000001
000001

DMCR11:
DMS111:
DMS211:
DMS311:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 11
“VECTOR FOR DMC11 NUMBER 11
SDDCMP LINE# FOR DMC11 NUMBER 11
“3RD STATUS WORD

930
931
932
ggz

001620
001622
001624
001626

000001
000001
000001
000001

DMCR12:
DMS112:
DMS212:
DMS312:

.BLKW
.BLKW
.BLKW
.BLKW

1
!
!
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 12
SVECTOR FOR DMC11 NUMBER 12
SDDCMP LINE# FOR DMC11 NUMBER 12
“3RD STATUS WORD

935
936
937
ggg

001630
001632
001634
001636

000001
000001
000001
000001

DMCR13:
DMS113:
DMS213:
DMS313:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 13
:VECTOR FOR DMC11 NUMBER 13
SDDCMP LINEX FOR DMC11 NUMBER 13
S3RD STATUS WORD

940
941
942
g:z

001640
001642
001644
001646

000001
000001
000001
000001

DMCR14:
DMS114:
DMS214:
DMS314:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 14
SVECTOR FOR DMC11 NUMBER 14
“DDCMP LINE# FOR DMC11 NUMBER 14
:3RD STATUS WORD

945
946
947
gzg

001650
001652
001654
001656

000001
000001
000001
000001

DMCR1S:
DMS115:
DMS215:
DMS315:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

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

950
951
952
322

001660
001662
001664
001666

000001
000001
000001
000001

DMCR16:
DMS116:
DMS216:
DMS316:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

:CONTROL STATUS REGISTER FOR DMC11 NUMBER 16
SVECTOR FOR DMC11 NUMBER 16
:DDCMP LINE# FOR DMC11 NUMBER 16
S3RD STATUS WORD

955
956
957
ggg

001670
001672
001674
001676

000001
000001
000001
000001

DMCR17:
DMS117:
DMS217:
DMS317:

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

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

960

001700

000000

DM.END: 000000

911
912
glz

;
e

916
917
g}g

08-JuL-80 08:25

001562
001564
001566

001572
001574
001576

000001
000001
000001

08:26

PAGE 22

30A(1052)

CZOMF P11

08-JUL=-80

MACY11

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

DMS106:
DMS206:
DMS306:

C¥S107:
OMS207:
OMS307:

.BLKW
.BLKW
.BLKW

1
!
1

1
1
1

“VECTOR FOR DMC11 NUMBER 06
:DDCMP LINEX FOR DMC11 NUMBER 06
“3RD STATUS WORD

SVECTOR FOR DMC11 NUMBER 07
:DDCMP LINEX FOR DMC11 NUMBER 07
S3RD STATUS WORD

SEQ 0021

10009

CIDMF

CZOMF.P11

961
ggg

964

965
966

ggg

08-JUL-80

08-JuUL-80 08:25

08:26

PAGE 23

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.
;DMC11

001702
001702

PASS COUNT AND ERROR COUNT

TABLE

001704

000000
000000

CNT.MAP:
PACTO0: 0

ERCTO0: 0

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

969
g;?

001706
001710

000000
000000

PACTO1:
ERCTO1:

0
0

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

972

001712

000000

FACTO2: 0

;PASS COUNT FOR DMC11 NUMBER 02

001716
001720

000000
000000

PACTO3: 0
ERCTO3: 0

:PASS COUNT FOR DMC11 NUMBER 03
*ERROR COUNT FOR DMCi1 NUMBER 03

000000

PACTO04: 0

g;z

975
g;g

978

001714

001722

000000

ERCT02:

*ERROR COUNT FOR DMC11 NUMBER 02

sPASS COUNT FOR DMC11 NUMBER 04

g;g

001724

000000

ERCTO4:

“ERROR COUNT FOR DMC11

981

001726

000000

PACTOS:

:PASS COUNT FOR DMC11 NUMBER 05

984

001732

000000

PACTO6: 0

:PASS COUNT FOR DMC11 NUMBER 06

987

gg%

ggg

001730

001734

001736

000000

ERCTOS: 0

ERCTO6: 0

PACTO?: 0

ggg

001740

000000

EXCTO7:

990 001742

000000

PACT10: 0

30A(1052)

MACY11

NUMBER 04

JERROR COUNT FOR DMC11 NUMBEK 0S5

*ERROR COUNT FOR DMC11 NUMBER 06

:PASS COUNT FOR DMC11 NUMBER 07

:ERROR COUNT FOR DMC11 NUMBER 07

:PASS COUNT FOR 'DMC11 NUMBER 10

gg;

001744

993

001746

000000

PACT11: 0

:PASS COUNT FOR DMC11 NUMBER 11

996
gg;

001752
001754

000000
000000

PACT12: 0
ERCT12: 0

sPASS COUNT FOR DMC11 NUMBER 12
:ERROR COUNT FOR DMC11 NUMBER 12

999
}889

001756
001760

000000
00C000

PACT13: 0
ERCT13: 0

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

1002 001762 000000
}882

001764

000000

PACT14: 0

;PASS COUNT FOR DMC11 NUMBER 14

1005

001766

000000

PACT1S:

;PASS COUNT

ggg

}88?

001750

001770

000000

ERCT10:

ERCT11:

ERCT14: 0

ERCT15: 0

:ERROR COUNT FOR DMC11

"ERROR COUNT FOR DMC11

NUMBER 10

NUMBER 11

:ERROR COUNT FOR DMC11 NUMBER 14
FOR DMC11

NUMBER

*ERROR COUNT FOR DMC11 NUMBER 15

1008

001772

000000

PACT16:

:PASS COUNT FOR DMC11 NUMBER 16

1011

001776

000000

PACT17:

:PASS COUNT FOR DMC11 NUMBER 17

}8?8
}815

001774

002000

000000
000000

ERCT16: 0
ERCT17: 0

:ERROR COUNT FOR DMC11 NUMBER 16

*ERROR COUNT FOR DMC11 NUMBER 17

SEQ 0022

PAGE 24

08:26

PROGRAM PARAMETERS, VARIABLES,

AND

TRAP CALLS.

1014
FORMAT OF
N

§_.%W }

CSR

5§

V.9

I
RR_"3
l

STAT1

L {

|
l
FegR-%
l
l
I

Ry s.
I

(SR:

CONTAINS DMC11

STAT1:

BITS 00 08 IS DMC11 VECTOR ADDRESS

]

STATZ2

STAT3

CSR ADDRESS

1 5=1 MICRO-PROCESSOR HAS C(RAM
1 5 0 MICRO-PROCESSOR HAS CROM
1 4 1 72?77 TURNAROUND CONNECTOR IS ON
1 4 0 NO TURNAROUND CONNECTOR
1 3 0 L INE UNIT IS AN M8201
1 3 1 L INE UNIT IS AN M8202
1 2 1 NO L INE U UNIT
l
9- 1 I S DMC1
S
C 1 BR PRIORITY LEVEL

s
=
e

[« ] «]

—

STAT?2:

STATS:

BI1T0=1 DO F FRE 3 R UNNING TESTS ON KMC
(MUST BE SET 1 0 A ONE MANUALLY [PROGRAM DZDMI ONLY])
KMC MUST MA;E M l (RO-CODE WRITTEN FROM RUNNING

YT
IS S v ITCH PAC#1 (DDCMP LINE NUMBER)
BYTE
HIGH BYTE | S S wIiT
I CH PAC#2 (BMB73 BOOT ADD)

OoomoOomod

STATUS TABLE

0010

CZDMF
MACY11 30A(1052)
08-JUL-B0
CZDMF .P11
08-JuL-80 08:25

F IRST
DMC111 A L L OCAL H'GH SPEED MICRO-CODE
1 - A R ] EMOTE LOW SPEED MICRO-CODE
0 DMC11
DA (RS232C)
? DH(1}
DMC11- FA (v.35)

SEQ 0023

———
i
——————————————————————————————————
e

CIDMF

MACY11 30A(1052)

(ZDMF P11

‘

08-JuL-B0

08-JuL-80 08:25

08:26

PAGE 25

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.
¢

SEQ 0024

0012

|
|
.

CIDMF

MACY11 30A(1052)

CZDMF .P11

O0B-JUL-B0

08-JUL-80 08:25

08:26

PROGRAM INITIALIZATION AND START UP.

1071

:PROGRAM INITIALIZATION
:LOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR

}S;g

:TYPE

:CLEAR PROGRAM CONTROL FLAGS AND COUNTS

1079 002002 012737 000340 177776
1080
1081
1082
1083
1084
1085
1086
1087
1088

002010
002014
002022
002030
002034
002040
002044
002052
002060

012706
012737
013737
005037
105037
105037
012737
012737
012737

1090

002072

005020

1089
1091

1092
1093

1094
1095
1096
1097

002066
002074

002100
002102

002106
002114

012700

001200
005336
001310
010144
001325
001327
001470
001676
100000

001702

022700

002002

012737
012737

001234
000001
002002

001374
005037

000004

1101
1102
1103
11064
1105
1106
1107
1108

002146
002154
002162
002164
002166
002170
002176
002204

012737
022777
001402
000407
022626
012737
012737
012637

177570
177777

001200
177020

001202
001200

1110
1111

002214
002220

105737
001006

000176
000174
000004
000006
001324

022737

003522

000042

104402
004737
017737

001000
007734
176734

1113

002222

002230

012637

001402

1114
1115
1116

002232
002236
002242

1118
1119

002254
002256

001402
005037

1122
1123

002272
002276

105737
100007

177570 001202

1117 002250 005737 000042

001236

1120 002262 032737 000001
1121 002270 001012

1124
1125
1126

002300
002304
002306

005737
001006
104402

001236
001306
007155

001236

MOV

CLR

78:

:LOCK OUT INTERRUPTS

#CNT.MAP,RO

:PASS COUNT POINTER TO RO

#STACK,SP
:SET UP STACK
#.PEALL,a#24
:SET UP POWER FAIL VECTOR
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
#BIT15,RUN
:POINT POINTER TO FIRST DEVICE.
(RO) +

:CLEAR TABLE

MOV
MOV

238
LSTERR

#1,TSTNO
#.START,RETURN

:KEEP GOING
:CLEAR LAST ERROR POINTER

MOV
MOV
MOV

arg,-(SP)
s ,-(SP)
#6S . ank

:
SSET UP FOR TIMEOUT

MOV
CMP
BEQ
BR
CMP
MOV
MOV
MOV

#177570.D1SPLAY :SET DISPLAY TO HARD SWR ADDRESS
#-1,35WR
‘REFERENCE HARDWARE SWITCH REGISTER
68+2
SIF = =1 USE SOFT SWR ANYWAY
7
S1F IT EXISTS AND NOT = =1 USE HARD SWR
(SP)+,(SP)+
:ADJUST STACK
#SWREG, SWR
:POINTER TO SOFT SWR
#DISPREG,DISPLAY:POINTER TO SOFT DISPLAY REG
(SP)+, a0k
:RESTORE VECTORS

TSTB
BNE

INIFLG
208

MOV

#177570, SWR

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

:SET SWR TO HARD SWR ADDRESS

(SP)+,ak6

;

CMP

#SENDAD, 342

SIF ACT=11 AUTOMATIC MODE, DON'T TYPE ID

TYPE
JSR
MOV

JMTITLE
PC,CKSWR
aSWR,STRTSW

:TYPE TITLE MESSAGE
:CHECK FOR SOFT SWR
SSTORE STARTING SWITCHES

.46
STRTSW

:BR IF NO
:1F YES, CLEAR SWITCHES

8EQ

208:

#340,PS

#CNT.MAP+100,RO ;DONE YET?

MOV

6% :

TITLE MESSAGE

CMP

BNE
CLR

001226
001214

000006
000004
002166

1112

23%:

013746
013746
012737

002210

MOV
MOV
MOV
CLR
CLRB
CLRB
MOV
MOV
MOV

001320
001322
001316

002122
002126
002132

1100 002140 012737

.START: MOV

000024
001314

1098
1099

1109

1072
1073
1074
1075

1076

PAGE 26

BEQ
CLR

208

FY7%,)

BIT
BNE

#5W00,STRTSW
17%

ST
BNE
TYPE,

DMACTV
16%
NOACT

TSTB
BPL

STRTSW
17%

*HAS INITIALIZATION BEEN PERFORMED
‘BR IF YES

:1S 1T RUNNING IN AUTO MODE?

S1F SW00=1, QUESTIONS ARE ASKED.
‘BR IF sw00=1
(BIT7=122
:BR IF SWO07=0

SARE ANY DEVICES SELECTED?
‘BR IF YES
:NO DEVICES SELECTED.

SEQ 0025

CZDMF

0013

MACY11 30A(1052)

CZDMF .P11
u

1127

08-JUL-80 08:25

002312

1128
1129
1130
1131
1132
1133

002314
002316
002322
00232¢
00233,
00233

1135
1136
1137
1138
1139
11640

002344
002346
002350
002354
002360
002364

1134

1141

002336

002370

1142
11643
1144
1145
1146

002374
002376
002402
002406
002412

1148

002416

1147

}}gg

08-JUL-80

002414

002420

08:26

032737

001403
000424
005137
104402
012704
010437

012437

001411
012437
012437
012437
104410

HALT

010640
001324

17%:
16$:

001236

000006

001236

001324
006225
001500
001246

001252
001254
001256

007602

000762

012700

=2
PC,AUTO.SIZE
INIFLG
218
STRTSW
1%

BEQ
BR
COM
TYPE
MOV
MOV

248
1%
INIFLG
,XHEAD
#OM.MAP R4
R4, TEMPT

:1F NO THEN TYPE STATUS
:IF YES DO NOT TYPE STATUS
SSET FLAG
:TYPE HEADER
:SET POINTER
:SET ADDRESS

BEQ
MOV
MOV
MOV
CONVRT

1%
(R4)+,TEMPY
(RG)+. TEMPL
(RG) +,TEMPS

:ALL DONE IF ZERO
:SET STATI
SSET STAT2
;SET STAT3
STYPE OUT STATUS MAP

MOV

XSTATQ

001500

1%:

:STOP THE SHOW

BR
JSR
TST8
BEQ
TSTB
BMI

BIT

218:
chs:

001250

PROGRAM INITIALIZATION AND START UP.

000000

000776
004737
105737
001410
105737
100431

PAGE 27

MOV

:DISQUALIFY CONTINUE SWITCH
:GO DO THE AUTO SIZE
‘FIRST TIME?
‘BR IF YES
*1F USING SAME PARAMETERS DONT TYPE MAP

#BIT1'BIT2,STRISW;
IS TEST NO. OR LOCK SELECTED

(R4)+,TEMP?2

#DM_.MAP,RO

;SET CSR

;RO POINTS TO STATUS TABLE

1151

.'"'t"t'ttt.'."'t""'t""""tt.tt'tttt.'.lttt.t"'t'!t"t"ttt'.'t

1152

;*AUTQO SIZE TEST

1153
1154
1155
1156
1157
1158
1159
1160
1161
1162

Si«THIS TEST VERIFYS TMAT THE DMC11S AND/OR KMC11S ARE AT THE CCRRECT FLOATING
. «ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.
*:«CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DM,DQ,DU,DUP,LK,DMC,DZ,KMC).
i:«IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST
S.«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
Si«RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD
Si«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
iieWILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE

1163

i «CORRECT).

.'."Qtt"t'ttti't'ttt""""ttt'tttt"ltt'."itttttttt"'ttt'tt"tt't'

116‘

1165

1166

002424

013746

000004

MOV

1169
1170
1171

002440
002444
002446

005037
005005
011037

001252

CLR
CLR
AUSTRT: MOV

1173
1174
1175
1176
1177
1178
1179

002454
002456
002460
002466
002470
002472
002500

005705
001005
032760
001061
000404
032760
001454

1167 002430 013746 000006
1168 002434 005037 000006

1172 002452 001564

1180
1181
1182

002502
002510
002512

012737
005705
001003

MOV
CLR

001404

BEQ

100000

000002

100000

000002

1%:

002674

000004

2%:

ST
BNE
BIT
BNE
BR
BIT
BEQ

MOV
ST
BNE

ar4 ,-(SP)

;SAVE LOC &

TEMP3
RS
(RO) ,DMCSR

“CLEAR FLAG
‘RS=0=DMC, RS==1=KM(
:GET NEXT DMC CSR

arne,-(SP)
areé

AUDONE

RS
¥
#B1T15,2(RO)
SKIP
2%
#B1T15,2(RO)
SKIP

#NODEV 084
RS
{3

:SAVE LOC 6
SCLEAR VEC+2

:BR IF DONE

:DMC OR KMC?
‘BR IF KMC
SCHECK FOR DMC CSR
SSKIP IF NOT DMC
S1TS A DMC SO CONTINUE
;CHECK FOR KMC (SR
SSKIP IF NOT KM(

JSET UP FOR TIMEOQUT
‘DMC OR KM(?
‘BR [F KMC

SEQ 0026

3%:

FLOAT:

06C

002700
003022

Fy:

100000

000002

100000

000002

1%:

2%:

000010
000010
001404

SKIP:

003022

0K :

MOV
BR

#6,R3
4%

MOV
MOV

#DEVTAB,R2
#160010,R1

MOVB

(R2) R4

MOV
TST

TST

MOV
MOV

#ERR ,a¥4
K1,xL0C

TST

BNE
BIT
BNE
BR

ERR:

1%
#BI1T15,2(R0O)
SYIp
2%

(R1)

ADD

BR
aQ?B

ST
BNE

CONERR

001276

TST

TYPE

002700

FLOAT

#BIT15,2(R0O)

CMP
BEQ
ADD
BR
ADD
MOV
BEQ
BR

MOV

CNVRT
ERRP(

SKIP

R1,DMCSR
(0]¢
#10,R1
FY
#10,R0
(RO) ,DMCSR
AUDONE
FY

#10,R0

#10,xL0C
(RO) ,DMCSR

AUDONE

XLAC,R1

FY
(R2)+,-(RY)

TEMPY
1%
#ERR,SAVP(C

177777

001262

104402

002756

007321
000402

001252

1%:

‘23 33 COUNT OF DEVICES BEFORE DMC

:R3 IS COUNT OF DEVICES BEFORE KMC
;R2 IS DEVICE TABLE PONTER
;START WITH ADDRESS 160010

;CHECK ADDRESS IN R1
:%; :g TIMEOUT, GET NEXT ADDRESS

sANY MORE DEVICES TO CHECK FOR?
;BR IF YES

;OK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT
sSAVE FIRST DMC/KMC ADDRESS
;DOMC OR kM(C?

;BR IF KMC
sCHECK FOR DMC CSR
JSKIP IF NOT DMC
sITS A DMC SO CONTINUE
;CHECK FOR KMC CSR

JSKIP

NOT KMC

sCHECK DMC ADDRESS
sDOES IT MAT(H
;BR IF YES
JGET NEXT DMC ADDRESS
;D0 IT AGAIN

sSKIP TO NEXT

;TYPEOUT

HEADER MESSAGE

s CONF IGURATION ERROR!!'!'!

sSAVE

OUT

FOR

“TYPE REST OF WEADER
“SET FLAG SO IT ONLY GETS TYPED ONCE

CONVRT
TONTAB
ST

b33

;DMC OR KM(C ?
;BR IF KM(

‘%

; CONT INUE

TYPEOUT

ERROR PC

#-1,TEMP3
R1,SAVR1

TYPE
DM(CM

IN TABLE

JGET EXPECTED DMC/KMC ADDRESS
sCONTINUE
;ON TIMEOUT, INC R2, DEC R3
JRETURN
JCHECK FLAG IF = 0 TYPE HEADER
;SKIP HEADER

MOV

BNE

CSR

JGET NEXT CSR
;BR IF DONE
;ELSE CONTINUE
;SKIP TO NEXT DMC CSR
JUPDATE EXPECTED DMC/KMC ADDRESS
JGET NEXT DMC/KMC CSR
;BR IF DONE

sTYPE

TYPE

CNERR
MOV

SEQ 0027

R1
R4 R

BIT

BEQ

MOV

001252

(R1)

R4 LR1

BEQ
NODEV:

#10,R3

ADD

ADD
MOV

003022

INITIALIZATION AND START yP.

BNE

000004

001404

NO WV
VO NO NS W2 OO0V

PROGRAM

4%:

160210

O
oo
O S

33333

000010
003010

PAGE 28

000006

WN 2O

BEIRAREC
SRR REC28BERE R

A AN LN LN LN A LS LN L N L S L LS LS LS LS LSS INTN NN VLN NN VT NT N7,V PONIPOPOMNOPNINOININD
= cd o o o e o o o o o o o o o

D et
T R
D
D
D i
D i
D
D i
D il
i
i
D i
i
i
D il i
D il
D i
il
i
D il il i

08: 26

INC
BIC

il il

D il ild D

002542

il
-

—————

)014

MACY11 30A(1052 )
08-JUL-80
L1
8-JUL-80 08:25

:SAVE

FOR

TYPEOUT

;TYPE

CSR VALUES

PROGRAM

KMCM
CMP

ERRPC:

002

(ONTAB:

004

DEVTAB:

.EVEN
XLOC:
AUDONE:

177777

SERSERERIISER

)

LL
el

WNOMNON)
= -2

il
s
il
el

001306
000300
000302

1%:

MOV

001236

BIT

BEQ

TYPE

CLR

HALT
CMP

001312

BLOS
TYPE
HALT

001306

=3=4

2%:

UP,

SEQ 0028

6.4

RS
1%
#-1,RS

;DMC?
sBR IF KMC AND ALL DONE

AUSTRT
(SP)+,an6
(SP)+, aNé
#SW03,STRTSW

;60 DO KMC'S
;RESTORE LOC 6
;RESTORE LOC 4
;SELECT SPECIFIC DEVICES??
;BR [F
;TYPE THE MESSAGE.

#DM_MA
RO
P

3%
+MNEW

aSWR, SAVACT

2%
+MERR3
.-2

#300,R0
#302.,R1

START

MOV

;ADJUST STA(K
;BR TO GET OuT

6.2

MOV

MOV
CLR
CMP
CMP
BNE

.BEGIN:

(SP)+,(SP)+

@SWR ,DMACTYV

MOV

001000

001200
000006

START

MOV

MOV
HALT

b1 ¥

;TEST

03152
03156

TST

BR
MOV

006006
176064

MOV
MOV

006145

003100

.BYTE
DMCSR
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

BNE

001500

176104

ar
1
BYTE
SAVP(
¢
.BYTE

XLOC

002

000006
000004
000010

INITIALIZATION AND

TYPE

3%:

NS W=
O

104402

007331
022626
000727
000001
006
001276
000002
006
003022
006
001404
007

o VO

——_—
Y
JE
T
I
e

N LSLSTNT.NT.NTNT
NT NT. VT NT.N)
o VIV NV

002760

PAGE 29

P11

08: 26

08-JuUL-80
08-JuL-80 08 &9

0015

30A(1052)

NNNNNNN—N

MACY11

SIS

DMACTV,RO

R1,(RO)+
(R1)+
(RO)+,(R1)+
#1000,R0
4«8

;SET RS TO =1 (kM()
;RESET RO TO START OF

;ZERO DATA LIGHTS

;WAIT

FOR USER

af6,-(SP)

TO TELL WHAT

DEVICES

;1S THE NUMBER VALID?
:8R IF NUMBER IS OK.
;TELL USER OF INVALID NUMBER.
:STOP EVERY THING.
;RESTART THE PROGRAM AGAIN.
;GET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
:CONTINUE DYNAMIC SWITCHES.

;PREPARE

TO CLEAR

THE

;VECTOR AREA. 300-776

FLOATING

;START PUTTING ''PC+2 - HALT"

:IN VECTOR AREA.
sPOP POINTERS
;ALL DONE??
;BR IF NO.

AND RESTART

#STACK,SP

TABLE

JSET UP STACK
JSAVE LOC 6

TO RUN

CZDMF

016

MACY11 30A(1052)

CZDMF. P11
1295
1296
1297
1298

;
g
i

'
‘

1299
1300
1301
1302
1303
1304
1305
1306
1307
1308

1309

08-JuUL-80 08:25

003162
003166
003170
003176

003202
003204
003210
003212
003216
003222
003226
003232
003234
003236

003242

013746
005000
012737
005037

005720
022700
001374
162700
010037
012637
012637
000413
022626
162700

162700

1310
1311
1312
1313
1314

003246
003252
003254
003260
003262

022700
001361
012700
000756
012737

1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327

003276
003300
003304
003312
003320
003322
003330
003336
003344
003352
003354
003360

001411
104402
012737
012737
000406
013737
013737
012737
032737
001002
104402
000177

1315

08-JUL-B0

003270

032737

000004

003234
000006

08:26

6%:

007776
001304
000004
000006

2%:

000004

007776

037400
177776

000004

001236

006044
000240
000240

003612
003614

003730
003732
010206
000002

003612
003614
001214
001236

005756
175630

MOV
CLR
MOV
CLR

G ,-(SP)
RO
#2%,3%4
ane

MOV
MOV
MOV

RO,MEMLIM
(SP)+,a#
(SP)+.a#6

1ST
CMP
BNE
SUB

BR
CMP
SUB

SUB

030000

000340

PROGRAM INITIALIZATION AND START yP.

;
000004

157776

PAGE 30

10%:

1%:
3%:
4%:
5%:

CMP
BNE
MOV
BR
MOV

BIT

BEQ
TYPE
MOV
MOV
BR
MOV
MOV
MOV
BIT
BNE
TYPE
JMP

(RO)+
#157776,R0
6%
#7776,R0

10
(SP)+,(SP)+
#4 RO

#7776 ,R0

csoooo RO

;

:SAVE LOC &
:START AT 0
;SET UP FOR TIME OuT
270 AUTOSIZE MEMORY

:CHECK ADDRESS IN RO
SIS IT AT LEAST 28K
:BR IF NO
SSAVE 2K FOR MONITORS
;STORE MEMORY LIMIT
;RESTORE LOC &
*RESTORE LOC 6
; CONTINUE
sADJUST STACK
;GET LAST GOOD ADDRESS

*SAVE 2K FOR MONITORS

lSkO PS

S1S IT 8K?
:BR IF NO
S1F 8K DON'T SAVE 2k
;
;LOCK OUT INTERRUPTS

1%
,MLOCK
#NOP,TTST
#NOP,TTST+2
3%
BRW,TTST
BRX,TTST+2
#CYCLE ,RETURN
#SW01,STRTSW
5%
MR
aRE TURN

;BR [F NO LOCK DESIRED.
;TYPE LOCK SELECTED.
;ADJUST SCOPE ROUTINE.
:SET UP TO LOCK
:CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE
;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:START AT "'CYCLE'' FIND WHICH DEVICE TO TEST
;1S TEST NO. SELECTED?
‘BR IF YES
‘TYPE R
:START TESTING

037a00 RO

OBITé STRTSW

;CHECK FOR LOCK ON TEST

SEQ 0029

CZDMF

0017

MACY11

CZDMF P11

30A(1052)

O08-JUL-80

08-JuL-80 08:25

08:26

PAGE

END OF PASS ROUTINE

1328

sTYPE NAME OF

1330
1331

|
;
|

1340
1341

1342

1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356

1357
1358

1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376

};;g

JCHECK FOR EXIT

JRESTART 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

001234
001325
001230
001230
005733

LEOP:

175570

006073
003546

006101

TYPE

003554
006107
003562
006120
003570
001322
001230
-001232
001314

000377

001310

000042

001232

CNVRT
TYPE
CNVRT
TYPE
CNVRT
MOV
MOV
MOV
DEC
BNE
MOVB
MOV
MOV
BEQ

001327

001314

000005

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

SENDAD:

010206
010206

002
002

1387

1383

RESET
CLR
CLRB
INC
MOV
TYPE
TYPE
CNVRT

001214

RESET

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
JMP
XCSR:
1
.BYTE
DM( SR
XVEC:
1
.BYTE
DMRVE
(
XPASS:
1
.BYTE
PASCNT
XERR:
1
.BYTE

ERRCNT

1379
1382

TEST

JUPDATE PASS COUNT

}3%%
3

SEQ 0030

JEND OF PASS

1329

1334
1335
1336
1337
1338
1339

k-3

sSCOPE

003576

003602

004737

010016

007734

.SCOPE:

JSR

MOV

TO ACT-11

LSTERR
ERRFLG
PASCNT
PASCNT ,aDISPLAY
,MEPASS
LMCSRX
,XCSR

,MVECX

JXVEC
LMPASSX
,XPASS
LMERRX
L XERR
MILK,RO
PASCNT, (RO) +
ERRCNT, (RO) +
SAVNUM
RESTRTY
#377,QV.FLG
DMNUM, SAUNUM
are? Rl
RESTRT

;MAKE THE
WORLD CLEAN AGAIN.
sCLEAR LAST ERROR P(
;CLEAR ERROR FLAG
UPDATE PASS COUNT
;DISPLAY PASS COUNT
;TYPE END PASS

;TYPE (SR
JSHOW IT

;TYPE

VECTOR

JSHOW T
;TYPE PASSES
JSHOW IT
;:TYPE ERRORS
JSHOW IT
;GET POINTER TO PASS COUNT
;STORE PASS COUNT FOKk THIS DM(C11
;STORE ERROR COUNT FOR THIS DMC11
;ARE ALL DEVICES TESTED?
;BR IF NO.
JSET THE QUICK VERIFY FLAG.
;RESTORE THE COUNT
;CHECK FOR ACT=11 OR DDP
;IF NOT, CONTINUE TESTING

;STOP THE SHOW==CLEAR THE WORLD

PC,(RY)

#CYCLE ,RETURN
CYCLE

6,2
4,2

6,2
6,2
LOOP AND

PC,CKSWR

RO, (SP)

INTERAYION HANDLER

e .o S

;CKECK FOR SOFT

;SAVE

RO ON THE

SWR

STA(K

08: 26 PAGE 32
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

MACY11 30A(1052)
(2 D MF
08-JuL-80
(2 DMF P11
08-JuL-80 08:25

023737

001325
001224
001220
000020
001216

BIT

#BIT14,3S5wR

175342

1%:

2%:

3%:

001404

1ST8

QV.FLG

;HAVE

INC
CMP
BLOS

LPCNT
L:CN1.ICOUNT

JARE

CLRB
CLR
(LR

MOV
MOV

MOV

POP2SP

MOV

175264

BRW:
BRX:

DONE :

000000

;''LOOP ON THIS TEST'TM?

#SW11,aSwWR

BEQ
CLR
BR
BIT
BNE

BEQ

001222

SEQ 0031

;BR IF NO.
(IF LOCK SWO1=1; THIS LOC =
;GOTO 3%
(IF LOCK SWO01=1; THIS LOC =
;WAS TKCSR DONE SET?
;BR IF NO (LOCKED ON TEST)
;YES, CLEAR FLAG
;GO TO NEXT TEST
(QUICK PASS)
;DELETE ITERATION?

BcQ
TST

004000

001224
001224

005037
005037
012737
013737
011600
022626
013701
000177
001407
000437

1013

003734

001327

101414
105037

175370

003734

105737

001406
005237

003734

040000

032777
001407
000437
005737
001434
005037
000415
032777
001011

003604
003612

JMP

1407
457

DONE

DUNE

ERRFLG
LPCNT
LOCK
#20, ICOUNT

NEXT,RETURN
(SP),RO
DMCSR,R1
aRETURN

;BR IF

YES

PASSES BEECOMPLETED?

;BR IF QUICK PASS.
;UPDATE ITERATION COUNTER
ALL

ITERATIONS DONE??

;BR IF NOT YET
;PREPARE

FOR NEW TEST

;START

JCOUNTER AT 0

;RESET

ITERATIONS

;GET NEXT TEST

;POP RO OFF OF THE STAC(K

;FAKE AN "RT]"
;R1

CONTAINS BASE

;GO DO THE TEST

DM.

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:

001220

JSR
BIT
BEQ
TST

BEQ

001220

1%:

MOV
RTI

PC,CKSWR

#5W09,aSwR
1%
LOCK
1%
LoCk, (SP)

;TELETYPE

003766
003770
003774

010546

017605

TYPE:

000002
000002

000002

010000

175164

010144

1%:

005672
175154

1435
1438
1439

2%:

175150

1437

——

)018

004044

3%:

MOy

OUTPUT

RS,=(SP)

@82 (SP) ,RS

BIT

#SW12,aSWR

#2,2(SP)
SWFLG
1%

BPL

b33
(RS)
2%

1STB

aTPCSR

MOVB

(RS)+,aTPDBR
4%
(SP)+ RS

BNE

T1STB

TYPE

BPL
BNE

MOV

JMCRLF

;GOTO THE ADDRESS IN LOCK.
;60 BACK.

ROUTINE

MOV
ADD
TST

BNE

;CHECK FOR SOFT SWR
;1S SW09=1(SET)?
;BR [F NOT SET.

;SAVE RS ON THE STACK.

;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.
;SOFT SWR MESSAGE?
;1F YES TYPE IT OUT REGARDLESS OF Swi1?
;INHIBIT ALL PRINT OUT?2?
;BR [F NO PRINT QUT WANTED (SW12=1)

;1S NUMBER MINUS? (MSB=1(BIT7))
;BR _IF NUMBER [S PLUS
;TYPE A CR/LF!
;TTY READY?

;BR [F NO.
;PRINT

CURRENT

(HAR.

;1F NOT ZERO KEEP PRINTING!

;END OF OUTPUT. RESTORE RS

1440

14461

1642
1443

14644
14645
1446

1447
1448
1449
1450
1651
1452

1453
1454

1455
1456
1457
1458
1459
1460
1461
1462
1463

004046

000002

004050
004052
004054
004062
004070
004072
004074
004100
004104
004110
004112
004116
004122
004126
004130
004134
004136
004144
004146
004150

010346
010446
017637

08:26

GENERAL UTILITIES

.INSTR:

000004
000002

004072
000004

175074

JINST1:
.MSG:
1¢:

175070
000200
000015
175054
175044

1464

005666

1465
1466

2%:
175046

1485

1486
1487
1488
1489
1490
149

1492
1493

1494
1495

MOV

MOV
1STB
BPL
MOVB

BI(B
(MPB
BEQ

LINSTE:

R3,=(SP)
R4 ,=-(SP)

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

sSAVE R3 ON STA(K
sSAVE R4 ON STACK

# INBUF R4

#200, (R4)
(RG)+ 415
INSTR2

aTKDBR,aTPDBR

MOV
MOV
TYPE

(SP)+ R4
(SP)+,R3
.MQOM

:?Y

R3
1%

R3,-(SP)

R4 ,-(SP)

LINSTT

(SP)+ R4
(SP)+,R3

;RESTORE
;RESTORE

e
i
i
i
—

004200

OO0 0000

: CONVERT ASCII STRING TO OCTAL
.PARAM:

000004
004364
004366
004370
004372
004373
000004
007630
000015

000060

000067
000060

000015

PARAM
:

1%:

MOV
MOV
MOV
MOV
MOV
MOV
MOVB
MOvB
MOV

RS5,=(SP)
R4 ,=(SP)
4(SP) RS
(RS)+,LOLIM
(RS)+ HILIM
(R9)+,DEVADR
(R5)+,LOBITS
(RS)+,ADRCNT
RS,4(SP)

MOV

# INBUF R4

(LR

(MPB
BEQ
(MPB
BLT
(MPB
BGT
B!(B
BlSB
(MPB
BEQ

ET()

#7,R3
aTK(CSR
1%
aTKDBR, (R4)

MOV

SCOPE,

;60 HOME

aTPCSR

MOV

(TYPEOUT, ERROR,

TSTB

BPL

INSTR?2: MOV

oS VSsNONWVNO
SOV
o-oo--am—omw-ooguuuw
NNNN

1484

MOV
ADD
TYPE

MOV

SN8r28

1479
1480
1481
1482
1483

MOV
MOV

DEC
BNE

1467

1468
1469
1470
147
1472
1473
1474
1475
1476
1477
1478

PAGE 33
RTI

007630
000007

Ot
et O =
orRWVMESON

0019

MACY11 30A(1052)
CZDMF
08-JUL-B0
CZDMF P11
08-JuL-80 08:25

#15,(R4)
PARERR
(R4) ,#60
PARERR
(R&) ,#67
PARERR
#60, (R4)
(R&)+ ,RS
#15,(R4)
LIMITS

R4
R3

SEQ 0032

1496

1497

1498
1499
1500
1501
1502
1503

2 O
e e
b b s
b

004300
004302
004304
004306
004310
004312

. §

08:26 PAGE 34
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

006305
006305
006305
000760

ASL
ASL
ASL

104404

PARERR:

000750

AV}

A VAWMV

o0 o
oF aF oF o R oF o
IV T R

INSTER

RS
RS
RS

PARAM1

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

020537

004366

020537

004364

101373

103770
133705

001365

LIMITS:

CMP
BHI

(MP

BLO
BITB
BNE

004372

RS,HILIM
PARERR
RS,LOLIM

PARERR
LOBITS,RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
004336
004342
004 344
004350
004354
004356
004360
004362
004 364
004366
004370
004372

013704
010524
062705

105337

001372
012604
012605
000002
000000
000000
000000
000000
004373

004370

1%:

000002
004373

MOV
MOV
ADD
DECB

DEVADR,R&
RS, (R4)+
#2,RS
ADRCNT

MOV

(SP)+,R4

BNE

MOV

LoLim:

HILIM:

DEVADR:
LOBITS:

RTI]

(SP)+,RS

0
0

ADRCNT=LOBITS+1

;SAVE PC OF
004374

016637

000004

001276

.SAVOS5: MOV

TEST

THAT FAILED AND RO-RS

4 (SP) ,SAVPC

;SAVE R7 (PC)

;SAVE RO=-RS

AA NV

WWNWNIWWNI NI NN NINIRONININD =

dd—.—‘—.—‘—‘—‘—‘d—.-‘-‘—.-‘—‘—‘—‘—.—‘-‘—.-‘—.—‘-‘d—‘-—l—‘—.—._‘—l—.—.—d_‘—.—.—.—l—‘

AV VANV ATV

1508

VIV AWV AWVIA VAWM

)020

MACY11 30A(1052)
CZDMF
08-JUL=-80
CZDMF P11
08-JuL-80 08 125

004402
004406
004412
004416
004422
004426
004432

010537
010437
010337
010237
010137
010037
000002

001272
001270
001266
001264
001262
001260

Sv05:

MOV

RS,SAVRS

;SAVE RS

MOV
MOV
MOV
MOV

R3,SAVR3
R2,SAVR?

;SAVE R3

MOV

RT]

R4 ,SAVRG

R1,SAVR1
RO,SAVRO

;SAVE R4

;SAVE R2
:SAVE R

;SAVE RO
sLEAVE.

;RESTORE RO-RS
004434
004440
004444
004450
004454
004460

013700
013701
013702
013703
013704
013705

001260
001262
001264
001266
001270
001272

.RESO5: MOV

SAVRO,RO

MOV
MOV

SAVR? ,R?
SAVR3,R3

MOV

MOV
MOV

SAVR1,R1

SAVRSL R4
SAVRS RS

;RESTORE RO
;RESTORE R1
sRESTORE R2
sRESTORE
;RESTORE

JRESTORE RS

SEQ 0033

CZDMF
MACY11 30A(1052)
08-JuL-80
CZDMF P11
08-JUL-80 08:25

)021

}22%

004464

1 3
08:26 PAGE 35
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000002

RTI

1%22

1556

;
:

:
|
'

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

1557
1558
1559
1560
1561
1562

004466
004472
004474
004476
004500
004502

104402
010046
010146
010346
010446
010546

005672

1564

004510

062766

000002

1563
1565
1566
1567
1568
1569
1570
1571

1572

006504

004516
004522
004526
004532
004536
004544
004546

004554

1573
1574
1575

004560
004564
004570

1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592

004576
004602
004604
004606
004610
004612
004614
004616
004620
004622
004624
004630
004632
004636
004640
004644

1576

1593
1594
1595
1596
1597
1598
1599
1600

1601

004572

004646
004652
004656
004660
004662
004666
004672
004674

004676

1602
1603
16064

004700
004702
0047064

1607

004712

1605
1606

:LEAVE

004706
004710

017601

000012

012137
112137
112137
013137
122737
001003
042737

004710
004712
004713
004714
000003
177400

013704

004714

042703

177770

113705
012700
010403

062703
110320
000241
006004
000241
006004
000241
006004
005305
001362
012703
114023
105337
001374
105737
001405

112723
105337
001373
105013
104402
005337
001313
012605

004712
001416

.CONVR:
.CNVRT:

1$:
004712

2%:
3%

000060

007672
004712

4$:

004713

000040
004713
007672
004710

JMCRLF
RO,=-(SP)
R1,=-(SP)
R3,-(SP)
R&,=(SP)
RS ,=(SP)

ADD

#2,12(5P)

MOV

000012

004714

TYPE
MOV
MOV
MOV
MOV
MOV

5%:
6% :

MOV
MOVB
MOVB
MOV
(MPB
BNE
BIC

BINWRD ,R&

BIC

077770.83

MOVB
MOV
MOV
ADD
MCVB
cLe
ROR
cLe
ROR
cLe
ROR
DEC
BNE
MOV
MOVB
DECB
BNE
1ST8
BEQ

MOVB
DECB
BNE
CLRB
TYPE
DEC
BNE
MOV

MOV

000002
000000

RTI]
WRDCNT: 0
CHRCNT: 0

000000

MOV
MOV
MOV

(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+,SPACNT
a(R1)+,BINWRD
#3, CHRCNT
2%
#177400,BINWRD

MOV

012604

012603
012601
012600

312(SP)
R

CHRCNT,RS
#TEMP,RO
R4 ,R3
#060,R3
R3, (RO)+

R4
R&
R4

RS
38
#MDATA,R3
-(RO), (R3)+
CHRCNT
‘s
SPACNT
63

#040, (R3)+
SPACNT
5%
(R3)
LMDATA
WRDCNT
1%
(SP)+,RS

(SP)+,Ré&

(SP)+,P3
(SP)+,R1
(SP)+,RO

SEQ 0034

MACY11 30A(1052)
08-JuL-B0
CZDMF P11
08-JuL-80 08:25

J
3
08:26 PAGE 36
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
SPACNT=(CHRCNT+1
BINWRD: 0

WA —

004713
000000

;TRAP DISPATCH SERVICE

;ARGUMENT OF TRAP IS EXTRACTED
;AND USED AS OFFSET TO OBTAIN POINTER
.
;7O SELECTED SUBROUTINE

o o o

004716
004720
004724
004730

004732
004736
004742
004746

011646
162716

017616
006316
062716
062716
017616
000136

.TRPSR: MOV
SUB

000002
000000

TRPOK:

177001

001330
000000

MOV

ASL
BIC
ADD
MOV
JMP

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

:GET PC OF RETURN
*zPC OF TRAP

(SP)
#177001,(SP)
#.TRPTAB,(SP)
a(sP), (SP)
a(SP)+

‘MULTIPLY TRAP ARG BY 2
:CLEAR UNWANTED BITS
:POINTER TO SUBROUTINE ADDRESS
*SUBROUTINE ADDRESS
160 TO SUBROUTINE

a(SP), (SP)

‘GET TRP

:ERROR HANDLER

004750
004754
004762
004764
004770
004772

005006
005010
005014

004737
032777
001406
105777
100003
112777

032777
001105
021637
001404
011637
105037
104406

007734
010000

174220

JHLT:

174220

000207
020000

174212

17641764

xBX:

001234
001234
001325

1%:

000002

N
-, OOOWOO
B
LY YN N1 NTe LNV

—y
R

—

04
005106

—

)

b \S

22288 13 888s=2

2437

BEQ

XBX

‘BELL ON ERROR?

‘BR IF NO BELL

STTY READY.

BIT

#SW1d, asuR

‘DELETE ERROR PRINT OUT?

BPL
MOVB
BNE
(MP
BEQ
MOV
CLRB

SAVOS
MOV

XBX
#207,aTPDBR
HALTS
(SP),LSTERR
1%
(SP),LSTERR
ERRFLG
(SP) RS

“DON'T WAIT IF TTY NOT READY.
CPUSH A BELL AT THE TTY.
‘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

SUB

#2 RS

ASL
ADD
ASL

R4
(RS) ,Ré
R4

TMULT BY TWO
:DOUBLE IT
‘MULT AGAIN

ADD

#.ERRTAB,R4

:GET POINTER

BNE

(RS) R4

#177001,R4

(RG)+,ERRMSG
(RG)+.DATAHD
(R&) ,DATABP
ERRFLG
TYPMSG
DATABP

TYPDAT

TYPE
TYPE
ST

,MCRLF
"MCRLF
LOCK

TYPE
TYPE

JMASTEK
"MISTN

BEQ
1%

SCHECK FOR SOFT SWR

@TPCSR

TYPMSG:

#SW12,a5WR

TSTB

MOV
MOV
MOV
TSTB
BEQ

005216

006143
006131
005330

PC,CKSWR

BIC

005216
001325

005672
005672
001220

JSR

BIT

MOV

177001

S es
g
rEXNGS

NO NI

e e e
=

OOV

— ol

B o

004714
oooocorOrOrO
OO

022

(2 DMF

(NVRT

:GET ADDRESS OF TRAP CALL

SGET HLT INSTRUCTION

*CLEAR JUNK

:GET ERROR MESSAGE
:GET DATA HEADRER
‘GET DATA TABLE
STYPE HEADREER
‘BR IF YES
"DOES DATA TABLE EXIST?

‘BR IF YES.

.XTSTN

SSHOW [T

SEQ 0035

)023

MACY11 30A(1052) 08-JuL-80
(2 DMF
(2 DMF .P11
08-JuUL=-80 08:25
1664

1665

1666
1667
1668
1669
1670
1671
1672

1673
1674
1675
1676
1677
1678
1679
1680
1681

1682

1683
1684

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

1703
1704
1705

1706

005140

K
3
08:26 PAGE 37
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

104402

006220

TYPE

JMERRP(C

:TYPE PC.

005150
005154
005162

104402
112737
005737

005672
177777
005172

TYPE
MOVB
TST

JMCRLF
#-1,ERRFLG
ERRMSG

:GIVE A CR/LF
:NO MORE HEADER UNLESS NO DATA TABLE.
;1S THERE AN ERROR MESSAGE?

005172

000000

005144

005166
005170
005174

104411

001402
104402

005174
005200
005202
005204
005206
005212
5214
005216
005220

005737
001402
104402
000000
005737
001402
104410
000000
104407

5230
005232

001403
005777

005222

005236
005240
005242
005246
005250
005252
005256
005264
005266
005274
005276
S
005310
005314
005320
005322
005324

J05326

005330
005332
005334

022737

100005
010046
010600
000000
012600
005237
032777
001007
032777
001411
013737
012706
013701
000177
000002
000001
006

001276

000001
003

001226

005322

CNVRT

(001325

BEQ
TYPE

1710

1711
1712
};}2

005204

005216

003522

000042

173744

000002

001232
000400

173716

002000

173706

001216

001214

001200

001404
173674

002

nALTS:

1718
1719

(MP

BEQ
ST

BPL
1%:
PUSHRO
MOV
HALT
POPRO
EXITER: INC
BIT
BNE
BIT
BEQ
MOV
1%:
MOV
MOV
JMP
2%:
RTI
ERTABO: 1
.BYTE
XTSTN:

002

1ST
BEQ
TYPE

DATAMD: 0
TYPDAT: TST
BEQ
CONVRT
DATABP: 0
RESREG: RESOS

SAVP(

1
.BYTE

TSTNO

WRKO.FM

;SHOW IT

:BR IF NO.
:TYPE

DATAKD
TYPDAT
DATABP
RESREG

#SENDAD ,an42
1%
aSWR

EXITER

2(SP),RO

ERRCNT
#5408 ,aSWR
1%
#SW10,aSWR
2%

NEXT,RETURN
#STACK,SP

DMCSR,R1
aRETURN

ERROR MESSAGE

;DATA HEADER?
:BR IF NO
:TYPE
:
DATA HEADER
;DATA TABLE?
:BR IF NO.
: SHOW
:
DATA TABLE
;RESTORE PROC REGISTERS

:1F ACT=11 AUTOMATIC MODE, HALT!!
:HALT ON ERROR?
:BR IF NO HALT ON ERKCR
;SAVE RO
:SHOW ERROR PC IN DATA LIGHTS
JHALT
:GET RO

;UPDATE ERROR COUNT
:GOTO TOP COF TEST?
;BR IF YES
;GOTO NEXT TEST?
;BR IF NO

:SET FOR NEXT TEST

JRESET SP

:SET UP R1
:GOTO SPECIFIED TEST
sRETURN

6,2
3,2

:ENTER HERE ON POWER FAILURE

jee=mesececcccccccccccccccnan
005336

005336
005344
005346

012737
000000
000777

005350

000024

PFAIL:

};}S

6
1717

LERTABO

ERRMSG: 0

WRKO.FM:

1707
1708

1709

SEQ 0036

MOV
HALT
BR

#RESTART, 24
.

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

:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
005350

005350
005356

012737
012706

005336
001200

000024

RESTAR:

MOV
MOV

#.PFAIL,24
#STACK,SP

:SET UP FOR POWER FAILURE
JRESET THE STACK POINTER

WIWWIWNONONONINONONONONINY
WN 2OV NOWVEWN—-O

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

013701
005037
005237
001375

104402
104411
105037

005037
005011
104412

000177
000001
003
001226

005436
005436
005444
005446
005450
005450
005452
005454

k3
08:26 PAGE 38
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

001404
001416
001416

MoV

005675
005430
001325
001234

TYPE

(LR
INC
BNE

CNVRT
CLRB
CLR
CLR

MSTCLR

173564

FETAB:

002

000020

JMP

DMCSR,R1

:RESTORE R1

=4
JMPFAIL
LPFTAB
ERRFLG

:BR IF MORE TO GO
:TYPE THE MESSAGE
:TELL WHAT TEST TO RETURN TO.
START CLEAN

(R1)

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

TEMP
TEMP

LSTERR

aRETURN

.BYTE

173746

DELAY:

#20,3DMPO4

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

1%:

000020

;READY FOR TIMMER
:PLUS ONE TO THE TIMER!'

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#B1T4,30MPO4

173730

;PORT4 _IBUS*11

;15 CLOCk BIT SET?
‘BR

i ol D el il i D B

D D e i e i D i i B i i e

NNNSNSNNSNNNSNSNSNSNY

‘ale
NN

0024

MACY11 30A(1052) gg-JUL
-80
PN
08-JuL-80 08:

747
748
749

MSTCLR:

152777
1642777

000100
000300

152777

000002
173676
000002
000100

173452

000003
000007

173644
173636

000002

013677
062746
032777
001401
000000

152777
162777

000002

013637
06274
15277
027777
142777
005337
001364
000002
000001

001416
000002

013637
062746

001416
000002

000020
173610

#B1T6,aDMCSRH
;SET MASTER CLEAR
#BIT6E!BIT7,3DMCSRH
;CLEAR MASTER CLEAR AND RUN
;RETURN

173674

LROMCLK:

#BIT1,3DMCSRH

;SET ROMI

#2,-(SP)

;sADJUST STACK

a(SP)+,3DMPO6
#SW06,aSWR
1%

sHALT IF SW06 =1
:BR IF SW06 =0
sHALT BEFORE CLOCKING INSTRUCTION

#BIT1!BITO, ADMCSRH sCLOCK INSTRUCTION
#BIT2'BIT1!BITO, aDMC SRH sCLEAR ROMO, ROM]I, STEP

1%:

.DATACLK:

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

sPUT TICK COUNT IN TEMP
sADJUST STACK

a0OMCSR,aDMCSR

;WASTE TIME

#BIT4,3DMCSRH

1%:

#BIT4,30MCSRH
TEMP
1%

000020
001416
3%:

;LOAD INSTRUCTION IN SEL6

.BLKW 1

.TIMER:
ADD

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

;SET STEP LU

;CLEAR STEP LU
sDEC TICK COUNT
:BR IF NOT DONE
;RETURN

sMOVE COUNT TO TEMP
sADJUST STACK

SEQ 0037

CIZDMF

0025

MACY11 30A(1052)

CZDMF .P11
1776

1777
1778
1779
1780
1781

005640
005642

1784

005646

1790

(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)
l

(2)

104414
021364
032777

001772

021364

005654
005656
005662
005664

001372
005337
001361
000002

005666

005672
005675
005733
005756
005761
006006
006032
006044
006073
006101
006107
006120
006131
006143
006145
006220
006225

006264

006323

032777

020040

005015
377
377
051377
377
0.4777
(52377
46377
103
126
120
051105
126
052
377
041520
212

020377

006375
006451

377
377

006550

041377

007017
007055
007115
007155
007206

377
377
377
377
005377
042516
177777
042777
040

006511
006527

006607
006705

007216

0072264

300
007321
007331

007341

007541

08:26

1%:

000002

173552
2%:

377
377

040

377

000002

173536

000077

042040
043125
020124
020113
020072
020072
042523
051522
020124

020124

000

020040

020040
020040

026455
047510

026455
020127

020122

051120

MCRLF:
MPFAIL:
MEPASS:
MR:
MERR2:
MERR3:
MTSTPC:
MLOCK:
MCSRX:
MVECX:
MPASSX:
MERRX:
MTSTN:
MASTEK:
MNEW:
MERRPC:
XHEAD:

020040 041520
051503
042526

043111
044127

053523
053523
051511
047516
053523
037527
046504
050130
042050

045450

046504

020122
052103

042040
041511

052111
052111
052040
042040
036522
000040
030503
041505
041515
041515

030503

NUM:
CSR:
VEC:
PRIO:

CRAM:
MODU:

LINE:
BM:
CONN:
NOACT:
SWMES:

«KkMCM:

SPEED:

054524

042520

LEVEN

#2,30MPO4
1%

ROMCLK

#2,30MPO4

LASCIZ

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _IBUS* REG!1
;1S PGM CLOCK BIT CLEAR?
:BR IF YES

2%
TEMP
1%

:PORT4 _IBUS* REG11

;1S PGM CLOCK BIT SET?
:BR IF YES
:DEC COUNT
:BR IF NOT DONE
:RETURN

L.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

<15<12>
<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CZDMFC /
<377>/R/
<377>/NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC=-/
<377>/LOCK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/1EST NO: /
/+/
<377>/SET SWITCH REG TO DMC11'S DESIRED ACTIVE./
/PC: /
<212>/
MAP OF DMC11 STATUS/

ASCII

<212>/

ASCII

ASCIZ
LASCIZ

JASCIZ
LASCIZ

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

SEQ 0038

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

BIT

.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
SWMES1: .ASCIZ
CONERR: .ASCIZ
CNERR:
.ASCIZ
DMCM:
.ASCIZ

200 044127 041511 Mv35:
200

BEQ

BNE
DEC
BNE
RT]
MQM:

020122
020104

ROMCLK
021364
BIT

021364

001416

000
053520
047105
000
047516
051516
051505
041517
051123
041505
051501
047522
051505
000
042523
020072
020040

PAGE 39

GENERAL UTILITIES (/YPEOUT, ERROR, SCOPE, ETC)

104414

005644

(2) 007455
zg;

005626

005626
005630
005632

005642

1785
1786
1787
};gg

08-JUL=-80 08:25

1782

1783

08-JuL-80

<377>/

eececccccccccccccc=- /

(SR

STAT1

STAT?2

<377>/====e=
eccecce
ecccce
ccccecs
<377>/HOW MANY DMC11'S TO BE TESTED?/

STAT3/

cccee- /

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

<377>/1F DMC HAS CRAM (M8204) TYPE ''Y'', IF CROM (M8200) TYPE 'N'' ?/
<377>/WHICH LINE UNIT? IF NONE TYPE 'N'', IF M8201 TYPE ‘"1'', IF M8202 TYP
<377>/SWITCH PAC#1 (DDCMP LINE #)?/
<377>/SWITCH PACH2 (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: /

/ (KMC) /

.ASCIZ

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

JASCIZ

<200>/TYPE "‘F'' FOR DMC11=-FA (v.35) ? /

.ASCII <200>/WHICH MODEM TYPE, TYPE ‘D' FOR DMC11-DA (RS232¢) ,OR/

007602
007604
007606
007610
007612
007614
007616
007620
007622
007624
007626

000005
006
001246
006
001250
006
001252
006
001254
006
001256

N 3
08: 26 PAGE 40
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
XSTATQ:

003

003
003

003
002
.SVEN

5
.BYTE

TEMP1
.BYTE
TEMP2
.BYTE
TEMP3
.BYTE
TEMP4
.BYTE
TEMPS

SEQ 0039

6.3

6.3
6.3
6.3
6.2

;BUFFERS FOR INPUT=QUTPUT

007530

B NN =2OO®NOWV
SN —

022737
001077
105777
100003

2888
8 ~NO

-l

-l -l

3888888838888
‘““§§$¥3§§&%8§3;:§

010004

—

VB W

=00

333333 w

INBUF:

MDATA:

.=. 440
.=.440

000176

001202

CKSWR:

171234
177777
000007

003734

000207

171210

177777
177777

007206

007216
010146
000015
000012
000025

000007
177770

CMP
BNE

TSTB

171220

2%:

1%:

[elelelolaleleleleleleleoleleleleladale]

1825

000000
007672
000000
007734

sROUTINE USED TO CHANGE SOF TWARE SWITCH
;REGISTER USING THE CONSOLE TERMINAL

PNIRIRIRIND
= b
b e e a =

D i

007672

0D 0o 00 0o 0D OB OO On 20 OO OO OO OO OO

0026

MACY11 30A(1052)
CZDMF
08-JUuL-80
CZDMF .P11
08-JuL-80 08 125

010144

BPL
MOV

(mp
BEQ
CMP
BNE
MOV
MOV
MOV
MOV

(KSWR1: CLR
(KSWR2:

MOV
TYPE

CNVRT
SOF TSW
CKSWR3: TYPE
(KSWRE: JSR
(e
BEQ
(MP

BEQ
(MP
BEQ
(MP
BEQ
(LR
BIC
ASL

#SWREG, SWR

;1S

#-1,DONE

*1F DONE SET, SET FLAG

CKSWRS
3TKCSR
2%

THE

SOFT

SWR BEING USED?

:BR IF NO
:1S DONE SET?
‘GO ON IF NOT SET

#7,3TKDBR

:WAS CTRL G TYPED?

(7 BIT ASCII)

#207,3TKDBR
CKSWRS
R2,-(SP)
R3.-(SP)

‘WAS CTRL G TYPED?
‘BR IF NO
:STORE R2
:STORE PR3

(8 BIT ASCIID)

Ré . =(SP)

#-1,5WFLG
R2

#-1,R4

L SWMES

L SWMES1

PC,

INCHAR

1§ .R3
5%

2,83
48
#25,R3
CKSWR1
#7.R3
CKSWRG
Y
#177770,R3

‘BR

YES

:STORE Ré4

*SET SOFT TYPE OUT FLAG
:CLEAR NEW SWR CONTENTS
“SET FLAG TO ALL ONES

STYPE "'SWR= '

STYPE OUT PRESENT CONTENTS

‘OF SOFT SWITCH REGISTER
STYPE 'NEW?
:GET RESPONSE

‘WAS IT A CR?

‘BR IF YES

‘WAS IT1 A LF?
‘BR IF YES
‘WAS IT CTRL U?
“BR IF YES(START OVER)
S1F CNTL G GET NEXT CMAR
;17 MUST BE

A DIGIT

SONLY 0=7 ARE LEGAL

JSHIFT R2 3 TIMES

SO CLR FLAG

SO MASK OFF BITS

CIDMF
MACY1) '.'nOA(‘lOEoZ)8 gg-JUL-GO
CZDMF P11
08-JuUL-80 0

0027

l
r

,
,
|
|
i
;
:
|

1846

1847

1848
1849
1850
1851
1852
1853
1854
1855
1856

;

ASL

050302
000752
012766
005704
001002
010277
005037
012604
012603

010142

000207

(KSWRS: RTS

}gg?

010144

000000

SWFLG:

1862

010146

1857

1863
1864
1865

1866

010140

105777

100375
017703

010164

100375

171032

105777

171026
171024

1868

010172

171020

042703

000200

010176

000207

019200

000001

010202

6%:

006

1873 010204 000176

BIS
BR
MOV
TST
BNE
MOV
CLR
MOV
MOV

MOV

010377

1872

&4%:
5$:

171052

(10144

010166

}ggg

000006

012602

010152
010154

010160

002002

1867

1871

006302

010106
010110
010112
010120
010122
010124
010130
010134
010136

}ggg

;

010102

010104

08:26
PAGE 41
GENERAL UTILITIES

002

INCHAR:

TSTB

BPL
MOV

TSTB

R3,R2
CKSWR4
#.START,6(SP)
R4
6%
R2,aSWR
SWFLG
(SP)+,P4
(SP)+,R3

(SP)+,R2

3TKCSR

=4
aTKDBR,R3
aTPCSR

MOV

R3,3TPDBR

#BIT7,R3

BYTE

SWREG

SEQ 0040

BIC

RTS

(TYPEOUT, ERROR, SCOPE, ETC)

BPL

SOFTSW:

6.2

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

;RESTORE R?

:RETURN

TO SOFT

SWR

CZDMF

0028

MACY11

CZ0MF P11

30A(1052)

08-JuL-80

08-JuL~-80 08:25

08:26

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

1880

010206
010212

005737
001004

1886
1887

010220
010222

000000
000776

1889
1890
1891

1892

1893
1894

1895
1896
1897
1898
1899
1900
1901
1902

1903

1904
1905

1906
1907
1908

1909
1910
1911
1912
1913
1914
1915
1916

}g};

1919
1920
1921
1922

1923
}85;

1926
1927
1928
1929

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

;SETUP NECESSARY.

1883
1884

1888

SEQ 0041

1876
1877
1878
1879

1885

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

1874
1875

PAGE 42

010214

010224

010226
010232
010236

010244

010252
010260

010262
010270
010276
010304
010306
010312
010316
010322

010326

010334
010340

010344
010350
010354

010360
010364
010372
010376
010404
010410
010416
010422

010430

010434
010442
010446
010454

104402

000241

001306

CYCLES

007155

1%:

001316
001316
000004

022737
001006

001700

001320

001500
001702
001316

001320
001322
001306

000010

012737
012737
033737
001747
013700
013702
012037
011037

001320
001322
001404
001374

012037
012037

001366
001370

042737

012037
012237
012237

012700
013737
005237
013737
005237
013737
060037
013737

060037

013737
060037
013737
060037

010460
010466

013737
060037

010472
010500
010502
010502

177000

001322

001320

001414

C©01374
001376
001376
001400

;ARE ANY DMC11'S TO BE
;BR IF OK.

HALT
BR

;STCP THE SHOW.
;DISQUALIFY CONT.

ROL
ADC
ADD

RUN
RUN
#4 MILK

JUPDATE POINTER
sCATCH CARRY FROM RUN
;UPDATE POINTER

2%:

001374

001412

001414

001376
001400

001402

032737
001450

000002

001236

005737

000042

'16.CREA"

MOV
MOV
BIT
BEQ
MOV
MOV
MOV
MOv

#DM_.MAP,CREAM
#CNT _MAP MILK
RUN.DMACTV
1%
CREAM,RO
MILK,R2
(RO)+,DMCSR
(RO) ,DMRVEC

‘177600.0HRVEC

MOV
MOV
MOV

(RO)+,STAT3
(R2)+,PASCNT
(R2)+,ERRCNT

(RO)+,STAT]
(RO)+,STAT?

TESTED?

sNO DMC11°'S SELECTED!!

SW.

;CLEAR PROC. CARRY BIT,

sUPDATE ADDRESS POINTER.

#DM_.MAP+200,CREAM
2%
;KEEP GOING;

BIC

MOV
MOV
INC
MOV
INC
MOV
ADD
MOV

001410

JNOACT

ADD

MOV
MOV

001406

001400
001402

CLC

CMP
BNE

001372
001230
001232

000002
001404
001406
001406
001410
001410
001412
001412

DMACTV
1%

TYPE

006137
005537
062737

062737

TST
BNE

NOT ALL TESTED FOR.

JRESET ADDRESS POINTER.
JRESET PASS COUNT POINTER
;1S THIS ONE ACTIVE?
;BR IF NO
;GET ADDRESS POINTER
;GET PASS COUNT POINTER
sLOAD SYSTEM CTRL. REG
;LOAD VECTOR

sCLEAR UNWANTED BITS

;LOAD STATI1
;LOAD STAT?

;LOAD STAT3
;LOAD PASS COUNT
sLOAD ERROR COUNT

;SAVE

ADD

#2,R0
DMCSR,DMCSRH
DMCSRH
DMCSRH,DMCTL
DMCTL
OMCTL ,DMPO4
RO,DMPO4
DMPO4 ,DMPO6

RO,DMPO6

MOV
ADD
MOV
ADD

MOV
ADD

DMRVEC ,DMRLVL
RO,DMRLVL
DMRLVL ,DMTVEC
RO,DMTVEC

DMTVEC,DMTLVL
RO,DMTLVL

JPTY LVL
:
sTX VEC
;

BIT
BEQ

#SW01,STRTSW
7%

;1S TEST NO.
;BR IF NO

arL?

;RUNNING

CORE

THIS WAY!

;TX LVL

SELECTEW

IN AUTO MODE?

029

MACY11 30A(1052)
08-JuL-80
CZDMF
CZDMF P11
08-JuUL-80 08 :25
1630
1931

1932
1933
1934
1935
1936
1937
1938
1939
1940
19641
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955

010514
010516
010520
010522
010524
010526
010530
0105
010532
010536
010540
010542
010544
010552
010554
010562
010564
010570
010574
010602
010604
010606
010612
010614

001045
104402
104403
006131
104405
000001
001000
001226
000
001
012700
022710
012737
001020
023760
001014
022760
001010
010037
104402
042737
000412
005720
020027
001351
104402

1958

010622

012737

012526

1960
961
| 162
1963
1964
1965

010634

000177

170354

}32?
1959

010506
010510

010620
010630

000730
013701

08: 26 PAGE 43
GENERAL UTILITIES (TYPEOQUT, ERROR, SCOPE, ETC)
BNE

005672

TYPE

INSTR

JMCKRLF

MTSTN
:ARAH

SEQ 0042

;BR [F YES

;GET TEST NO.

1000

.BYTE
.BYTE

012526

€s.:

001226

000002

001226

000004

001214
005756
000002

MOV

CMP

MOV

MOV
TYPE

6% :

005666

001404

0
1

BNE
CMP
BNE
CMP
BNE

001236

031762

TSTNO

BIC
BR
TST
CMP
BNE

TYPE

001214

7%:

8%:

MOV

JMP

#1ST1,RO
(PC)+, (RO
(PC)+,a(PC)+

6%
TSTNO,2(RO)
6%

#TSTNO,4(RO)

6%
RO,RETURN
MR

;CMP FIRST WORD TO 12737
:BR IF NOT SAME
:DOES TSTNO MAT(CH?
;BR [F NO
:1S LAST WORD OK?
;BR

;1T IS A LEGAL TEST SO DO IT

#SW01,STRTSW

(RO)+
RO,#TLAST+10
5%

,MQM
4%

#TST1,RETURN

DMCSR,R1
dRETURN

:POP RO

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

;PREPARE

RETURN ADDRESS

;R1 = BASE DMC11 ADDRESS
;GO START TESTING.

;ROUTINE USED TO ''AUTO SIZE'' THE DMC11

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

1966

AND THE VECTOR MAY BE ANY WHERE

1967
1968

FLOATING VECTOR RANGE

(300:770)

IN THE

1969

1970
1971
1972
1973
1974
1975

1976
1977
1978
1979
1980
1981
1982
1983
1984
1985

010640
010640
010642
010646
010650

010654
010656
010662
010666
010672
010700
010702
010706
010714
010716

000005
012702
005022
022702

001374
005037
012702
005037
032737
001002
000137
012737
104403
006451

AUTO.SIZE:
RESET

001500

CSRMAP: MOV
1%:

001700

BNE
CLR

001310

001500
001306

000001

011460
000001

CLR
CMP

MOV

001236
001256

CLR
BIT
BNE
JMP
MOV

INSTR
NUM

#DM.MAP,R?
(R2)+
#DM
. END,R2
1%

DMNUM
#DM.MAP ,R?2
DMACTV
OSXOO.STRTSU
o I

7%
#1,TEMPS

:INSURE A BUS INIT.
:LOAD MAP POINTER.
;IERO ENTIRE MAP
;ALL DONE?
;BR [F NO

:SET OCTAL NUMBER OF DMC11'S 10 0
:R2 POINTS TO DMC MAP
;CLEAR ACTIVE
;QUESTIONS?
;BR IF YES
:1F NO SKIP QUESTIONS
;START WITH 1

030

08-JuUL-80
CZDMF
MACY11 30A(1052 )
CZDMF .P11
08-JuL-80 08:25
1986
1987

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

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030

2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041

010720
010722

010724
010726
010730
01071
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

08:26
PAGE 44
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

104405
000001

?ARAH

000020
001252
000
001
013737
104402
104410
012210
005237
104403
006511
104405

160000
164000
001254
000
001
013722
104403
006527
104405
000000
000776
001254
000
001
013712
104402
006550
004737
022703
101014
022703
103411
012704
006303
005304
001375
042703
050312
000403
104402
005666

000752
104402
006607
004737
022703
001427
022703
001403
104402
005666
000763

SEQ 0043

001310

12%:

16.
TEMP3
.BYTE
.BYTE

TYPE

+MCRLF

MOV

CONVRT
WHICH
INC

INSTR
CSR

TEMP3,DMNUM

TEMPS

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

PARAM

160000
164000

TEMP4

.BYTE
.BYTE

001254

MOV

INSTR
VEC

TEMPL, (R2) +

;STORE CSR [N MAP

PARAM

776
TEMP&

001254

10%:

012474
000024
000027

000011

50%:
8%:

000116

JSR
CMP
BHI
CMP
BLO

PC,INTTY

MOV
TYPE
PRIO

TEMP4, (R2)

#24 ,R3

DEC
BNE
BIC
BIS
Re

TYPE

MQM

;STORE VECTOR IN MAP
;ASK WHAT BR LEVEL

;GET RESPONSE

‘BR IF LESS THAN &
;BR IF GREATER THAN 7
;R4 = NUMBER OF SHIFTS
;SHIFT R3 LEFT

MOV
ASL

170777

012474
000131

.BYTE
.BYTE

#170777,R3
R3, (R2)
8%
10%

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

;TRY AGAIN

IS OUT OF

BR
TYPE
CRAM
JSR
(MP
BEQ
(MP
BEQ

9
#116,R3
40%

:YES
:NO
;NOT

A Y OR N

.ASK

AGAIN

TYPE
MQM

PC,INTTY

151
83

;DOES DMC HAVE C(RAM?
;GET REPLY

LIMITS

011126
011130
011132
011136
011142
011144
011150
011152
011154
011156
011160
011166
011170
011174

2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097

011174
011176
011200
011204
011210
011212
011216
011220
011224
011226
011230
011232
011234
011240
011242
011244
011250
011252
011254
011260
011264
011266
011272
011274
011276
011300
011302
011306
011314
011316

004737
022703
001417
022703
001412
022703
001403
104402
005666
000760
052722
022222
000477
052712
104402
007115
004737
022703
001406
022703
001436
104402
005666
000763
052722
032762
001027

011316
011320
011322
011326
011332

104402
007455
004737
122703
001004

011334
011342

042762
000411

000004

011344

122703

000106

2056

104402
007341
004737
022703
001414
022703
001403
104402
005666
000763
052762
000402
052712

PAGE 45
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

40$:

2062
2043
2044
2045
2046
2067
2048
2049
2050
2051
2052
2053
2054
2055

012474
000122
000114

TYPE

SPEED
JSR
(MP
BEQ
(MP

BEQ

TYPE
MQM

000002

000004

100000

AL ¥

9%:

146%:

104402

006705

08: 26

BIS

BR
BIS

T RESPONSE

IT R

IF REMOTE
IT L
IF LOCAL

40%
#BIT1,4(R2)
16%
#BIT15,(R2)

TYPE

MODU

012474
000021

JSR
(MP
BEQ
CMP
BEQ
CMP
BEQ

000022
000116

TYPE
MQM

010000

32%:

020000

31%:
30%:

012474
000131

000116

040000
020000

177776

440%:

000002
442%:

AGAIN

;SET BIT1 IN STAT3

; CONTINUE
;SET BIT 15 IF (RAM

;ASK WHICH LINE
[ GE], REPLY

PC,INTTY

UNIT

#21,R3

DN
;1F
16%

;TRY

NOT A 1,2 OR N TYPE """
AGIAN

BIS

JSET BIT 12 IN STAT?2 [F NO LU
;POP OVER STAT2 AND STAT3

BIS
TYPE

#BIT13,(R2)

;SET BIT 13 IN STAT2 [F MB20?

(MP
BR

CONN
JSR
CMP
BEQ
CMP
BEQ

BIS

BIT
BNE

33%

JASK

LOOP-BACK

;GET REPLY

PC,INTTY

#131,R3

[S ON

17%
#116,R3
18%

;1F NOT Y OR N TYPE "'

30%

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

TYPE

012474
000104

; TRY

#BIT12,(R2)+
(R2)+,(R2)+

TYPE
MQM

17%:

SEQ 0044

C11-AR OR DMC11=-AL?

S
—WO
e
O
Y
Lk
adh e

031

08-JuL-80
CZOMF
MACY11 30A(1052 )
C20Mf P11
08-JuL-80 08:25

;
.

;TRY

AGAIN

: TURNAROUND

. M8202?

CONNECTED

ASK QUESTION
ABOUT MODEM TTYPE

Mv35
JSR
(MPB
BNE

#'D,R3
442%

BIC
BR

L1y

MmI12,2(R2)

; YES INDICATE IT IN STAT3

(MPB

#'fLR3

SIS [T A DMCIT-FA (v.35)?

PC,INTTY

;

GET ANSWER.

IS 1T DMCY1-DA?

. NO.

0032

CZOMF

MACY11

CZDMF P11

30A(1052)

08-JUL-B0

08-JuUL-80 08:25

08:26

PAGE 46

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

SEQ 0045

5833

011350

001403

BEQ

2100
2101
%18%

011352
011354
01135¢

104402
005666
000757

TYPE
MQM
BR

440$

: REASK QUESTION

5}82

011360

052762

BIS

#B1T2,2(R2)

;

2106

011366

BR
BIC

19%
#BIT14,(R2)+

:NO TURNAROUND

0
1
TEMPL, (R2)+

;STORE SWITCH PA(C

2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127

2128
2129
2130
2131
2132
2133
2134
2135

2136

2137
2138

2139

011366
011370
011374
011374
011376
011400
011402
0114064
011406
011410
011411
011412
011416
011420
011422
011424
011426
011430
011432
011433

011434

011440
011442
011446
011450
011456
011460
011464
011472

011474

011476
011500

011504

2140
2141
2142
2143
2144

011510
011512
011516
011522
011530

2146
2147
2148

011542
011544
011552

2145

2149

2150
2151
2152

2153

011534

011554

011560

011566
011572

011576

000402
042722

104403
007017
104405
000000
000377
001254
000
001
113722
104403
007055
104405
000000
000377
001254
000
001
113722

005722
005337
001402
000137
000137
012701
012737
005011

000004

000002

ALY
040000

18%:
19§:

001254

0012564

005761

001165
012711
005061
012761
052711

022761

001004
052762
000431

0
1

TEMP4,(R2)+

000006

BNE
CLR

3%
5(R1)

002000
000004
125252
020000

BNE
MOV
CLR
MOV
BIS

001252

338

010740
012110
160000
012202

348:
7%:

000004

2%:

000006

125252

000004

100000

000002

012711
012711

001400
002000

100430

016472

000006

CMP

21%:

BNE
BIS
Bk

YES V.35, RECORD [N STAT3

; END DECISION POINT.

:STORE

SWITCH PAC

[N MAP

IN MAP

:POP OVER STAT3
:DEC DMC COUNT
‘BR IF DONE
:JUMP IF NOT
- CONT INUE
:SET FOR FIRST ADDRESS TO BE
:SET FOR NON-EXISTANT DEVICE
“CLEAR SELO

*1F

DMC11

DMCSR S/B 0

6(R1)

S1F

DMC11

THEN DMRIC

;1F NO DEV ;
*CLEAR SEL6

TRAP TO 4.

3%
#B1T10, (R1)
4(R1)
#125252,6(R1)
#B1T13, (R1)

:BR IF NOT DMC11
“SET ROMO
SCLEAR SEL4
JWRITE THIS TO SEL6
‘WRITE IT!

218
#B1115,2(R2)
22%

S1F NO IT IS NOT CRAM
SSET BIT1S IF CRAM
:

#125252,4(R1)

#8119,

MOV
MOV

#BIT19'BIT
(R1)
8,
#B1110, (R1)

CMP

IT.

(R1)

MOV

YES=TAKE CARE OF

: NO ASK OPERATER WHATS GOING ON.

(R2)+
TEMP3
34$
12%
138
#160000,R1
068,304
(R1)

001000

022761

;

ST
DEC
BEQ
JMP
IMP
MOV
MOV
CLR

012711

012761

INSTR
LINE
PARAM
0
377
TEMP4
BYTE
BYTE
MOVB
INSTR
BM
PARAM
0
377
TEMP4
.BYTE
BYTE

MOVB

005711

001172
005061

443%:

4638

(R1)

#100480,6(R1)

#016472,6(R1)

TESTED
TIME OUT

IF NO BIT 8 THEN NO DMC11

S/B =0'

‘WAS IT WRITTEN?

:SET ROMI

:PUT INSTRUCTION IN SEL6

:CLOCK INSTRUCTION
“SET ROMO

1S IT LOCAL CROM?

(MICRO PROC PC

10 0)

033

MACTIL

S0A(1082) 0B-JUL-80

011604
011606
011614

001411
022761
00141

0116264
011626

001404
000516

P11

2154
2155
2156

08-JUL-80 O

2157

011616

2160
2161

011630

2158
2159

2162

011636

016461

000006

022761

177777

000006

052762

000002

000006

010122

2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174

0N
011
011
0N
0N
0N
011674
011702
011704
011710
011712
011720

012711
005061
012761
052711
012761
052711
122761
001003
052712
000436
032761
001403

2177
2178

011730
011736

001023

2180
2181

011746
01175¢

012761
052711

122113
000400

2183
2184
2185
2186
2187
2188

011766
011772
012000
012002
012006
012010

052711
032761
001402
052712
005722
012761

000400
000010

2190

012022

2175
2176
2179

011722
011726
011740

2191

2192

2193
2194

2195
2196
2197

2198
2199
2200
2201
2202
2203
2204
2205

2206

2207

2208

012016

012110

012114

012120

(012122
012126

22%
3$

‘BR IF YES
*NOT A DMC

22%:

15¢:

000006
000006
000004

000004

MOV

MOV
CLR
MOV
BIS
MOV
BIS
CMPB
BNE
BIS
BR
BIT
BEQ

012761

000100

000004

MOV

012711

156122

012711

005011
005237

022737

001412
005011
005061
062701
022701
001402
000137

005037

005737

001423
013701
010137

021264

000006

021324

001400
000004

021344

001400

000006

208 :

000006

000020

000006
000010
164000
011472

001306

001310
001310
001314

;1S SWITCH A ONE?
‘BR IF M8201

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

:LOAD INSTRUCTION
*CLOCK INSTRUCTION(SET DTR)

BIS
BIT
BEQ
BIS
ST
MOV

#BIT8, (R1)
#BIT3.4(RY)
208
#BIT14, (R2)
(R2)+
#021324,6(R1)

SCLOCK INSTRUCTION(READ MODEM REG)
:1S MRDY SET NOW?
:BR IF NO CONNECTOR
“SET STATUS BIT FOR CONNECTOR
:POP POINTER
:PUT INSTRUCTION IN PORT6

BISB

4(R1).(R2)+

“STORE"DDCMP LINE # IN TABLE

CLR
INC

CMP

138

SCLEAR LINE UNIT LOOP
*CLEAR PORT4
:LOAD INSTRUCTION (CLR DTR)
SCLOCK INSTRUCTION
:LOAD INSTRUCTION
SCLOCK INSTRUCTION
SIS IT ALL ONES?
:BR IF NO
“IF YES, NO LIME UNIT, SET STATUS BIT

#122113,6(R1)
#8118, (R1)

BISB
ST

148 :

:STORE CSR IN CORE TABLE.

MOV
BIS

MOV

#8179, (R1)
4(R1)
#122113,6(R1)
#8118, (R)
#021264,6(R1)
#8118, (R1)
#377.4(R1)
.+10
#B1T12,(R2)
208
#BIT1,4(R)
.+10

*1S MRDY SET
‘BR IF M8201 NO CONNECTOR (ON LINE)

MOV

001310

R1, (R2)+

#BIT3,4(R1)
208

MOV

000004

001310

‘NO CROM?

BNE

MOV

000004

040000

#-1,6(R1)

23%:
BIS
¥BIT1,6(R2)
“SET BIT 1 IN STAT3
‘AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS.

000004

156122
015722

012062
012064
012066
012072
012076
012102
012104

BEQ
BR

000010

012
012
0

:BR IF YES
:1S IT REMOTE CROM?
‘BR IF YES

BIS
BR
BIT

012761

01
01

23$
#016461,6(R1)
22%

CMP

010000
000002

BEQ
CMP
BEQ

060000

012026

012

001000
000004
122113
000400
021264
000400
000377

PAGE ¢7

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

052712
000427
032761

2182 011760 012761

2189

08:26

BEQ
CLR
CLR
ADD
CMP
BEQ
JMP
(LR

REQ

MOV
MOV

#B1T6,4(R1)

2021264 ,6(R1)

*LOAD PORT4

:LOAD INSTRUCTION

(R1) :PORT4_LU 15
#BIT9'BIT8,
#021344,6(R1)

:PORT6_INSTRUCTION

(R1) :CLOCKINSTR.
#BITB'BIT9,

4(R1).(R2)+
(R2)+
(R1)
DMNUM

#20,DMNUM

*STORE BM873 ADD IN TABLE
'POP OVER STAT3
*CLEAR ROMI
“UPDATE DEVICE COUNTER

“ARE MAX. NO. OF DEV FOUND?

13%
(R1)
6(R1)
#10,R1
#164000,R1
13
2%

:YES DON'T LOOK FOR ANY MORE.
*CLEAR BIT 10
“CLEAR SEL 6
*UPDATE CSR POINTER ADDRESS

DMNUM

:WERE ANY DMC11'S FOUND AT ALL?

R1
DMNUM,
R1, SAVNUM

:SAVE NUMBER OF DEVICES

DMACTV

:BR IF DONE
SJUMP IF NOT

“FRROR AUTO SIZER FOUND NO DMC11'S IN THIS SYS.

SEQ 0046

CZDMF

0034

MACY11

C2DMF . P11

;
;

‘

2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
g%gz

2225

2226

30A(1052)

08-JUL-80 08:25

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

000241
006137
005237
005301
00137
012737
013737
000137
104402
005000
000000
000776
012716
000002

012210

000001

012212

000022
000020

032737
001114
012737
012737
012702
012700
012701
010120
012721

012266
012272
012274
012302

020127
1017Nn
013737
006037

2248

2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262

2263
2264
2265

012332

012336
012344
012350
012352
012354
012360
012362
012370
012372
012400
012402
012406
0126410
012414

012422
012426
012430

WHICH:

000340
012410
001500
000300
000302

012216
012224
012226
012234
012242
0122486
012252
012256
012260

012306
012310
012314
012322
012324

LS :

001236

2229
2230
2231
2232
2233
2234
2235
2236
2237

2243
2244
2245
2246
2247

5%:

012072

022021

103063
012704
016437
011201
012761

012711

012761
012711
105200
001376
162704
001404
016437
000767
052762
005011
062702
000735
051662
042762

016405
006305
006305

000012
012460

177776

000200

000004

121111
001400

000006

001000

CMP
BLOS
MOV
ROR

R1,#1000
1%
DMACTV, TEMPI
TEMPI

2%:

177776

005300

000002

000010
000002
000007

012462

000002

BCC
MOV
MOV
MOV
MOV

MOV

000002

6$%:
3%:
¥

;GENERATE ACTIVE REGISTER OF DEVICES.
:SET THE BIT
;BR IF MORE TO GENERATE
JRESTORE TRAP VECTOR
:SAVE ACTIVE REGISTER
;GO 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=-QUT.
;RETURN TO MAINSTREAM

2.2

#SWO00,STRTSW
5%
#340,a#22
#4%,3#20
#DM.MAP,R2
#300,R0
#302,R1
R1,(RO)+
#4,(R1)+

7%:

012460

=2
#1483, (SP)

VECMAP: BIT
BNE
MOV
MOV
MOV
MOV
MOV
1$:
MOV
MOV

CMP

001246

DMACTY
DMACTV
R1
48
6,04
DMACTV,SAVACT
VECMAP
JMERR?
RO

SEQ 0047

1
.BYTE

001000

001306
001246

cLe
ROL
INC
DEC
BNE
MOV
MOV
JMP
TYPE
CLR
HALT
B
MOV
RT]

TEMPS

000004

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000004
001312

000001

001256

2239
2240
22641
2242

000006
001306
012216
005761

PAGE 48

001306
001306

002

012214

012264

08:26

002

ggg;

2238

08-JUL-80

MOV
MOV
INCB
BNE
SuUB
BEQ
MOV
i
BIS
CLR
ADD
BR
BIS
BIC

MOV
ASL
ASL

(RO)+, (R1)+

5%
#12,R4
BRLVL (R&) ,PS
(R2),R1
#200,4(RY)

#8119, (R1)

#121111,6(R1)
#BIT9'BIT8,(R1)
RO
=2
#2.R4
6%
BRLVL (R&) ,PS
7%
#5300,2(R2)
(R1)
#10,R2
2%
(SP),2(R2)
#7,2(R2)

BRLVL*2(R4),RS
RS
RS

JSET 10T TRAP PRIO TU 7
:SET IOT TRAP VECTOR
;SET SOFTWARE POINTER
sFLOATING VECTORS START HERE.
;PC OF IOT INSTR.
;START FILLING VECTOR AREA
JWITH .+2; 10T

SADD 2 TO' RO +R1

;:BR IF MORE (0 FILL
:STORE TEMPORALLY
;BRING OUT A BIT

:BR IF ALL DONE
;R4 IS INDEX REGISTER
:SET PS TO 7

:SET ROMI

PUT INSTRUCTION IN PORTE
:FORCE AN INTERRUPT
:STALL
;FOR TIME TO INTERUPT
JGET NEXT LOWEST PS LEVEL
:BR IF R4 = 0
;MOVE NEXT LOWER LEVEL IN PS
:BR TO DELAY
;NO INTERUPT ASSUME 300 AT LEVFL S AND Fix DMC11 LATER
:CLEAR ROM]
:POP SOF TWARE POINTER
KEEP GOING
;GET VECTOR ADDRESS
sCLEAR JUNK

:GET BR LEVEL OF DMC!
JSHIFT LEVEL & PLACES
;TO THE LEFT FOR THE

NOWVES WO O 0o

2266
2267

012432
012434
012436
012442
012446
012450
012454
012456

006305
006305
042705
050562

012460
012462
012464
012466
012470
012472

000000
000000
000200

000002
000207

012474

SEQ 0048

RS
RS
#170777,RS
RS,2(R2)

;STATUS TABLE

(SP)+,(SP)+
#3%,(SP)

;CLEAR UNWANTED BITS
;PUT BR LEVEL IN STATUS TABLE
;POP JOT JUNK OFF STACK
;SET FOR RETURN

RTS

;ALL DONE WITH ""AUTO SIZING"

BRPLVL:

0
0
200
240
300
340

sLEVEL
sLEVEL
sLEVEL
sLEVEL
sLEVEL
sLEVEL

INTTY:

TSTB

ar:csa

;WAIT FOR DONE

3TKDBR,R3

atzcsn

:PUT CHAR IN R3
sWAIT UNTIL PRINTER

R3,aTPDBR

sECHO CHAR

ASL
ASL

170777

BIC
BIS
(MP

000002

012400
5%:

166504

166500
166476

MOV
RTI

BPL

MOV
TSTB

BPL
MOV

166472

000207

08:26 PAGE 49
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ET(C)

000240

~NOWVMSrOO

MACY11 30A€1052)
08-JuL-80
08-JuL-80 08: 25
CZDMF P11

ORI n
NN ~n
SNSNSNSNNNNY oo

#BIT7!B1T5,R3

BIC

RTS

JMASK OFF
;RETURN

JENRRRRRRERTERRRRNRRRR RN

TEST

IS READY

LOWER CASE

tentasstvnannnntnnntnnnnens

'OUT CONTROL REGISTER READ/ONLY TEST
:*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
:'BITS ARE IN THE CORRECT STATE

2 :"tl."""""""'""t'i"t'.tt'tilt.tl't!litt'l"t".""

MOV

4(R1) R4

MOV

#2C,RS

HLT

000004
000054
000020

VWAVWAV
AW Vi

aDMCSR
#11,R2

———

CLR
MOV
ROMCLK

104400

LSLSTNTNT
NI NT NI NT NN LS

PSS-S

CO0O0O0OOOO0O0

166636
000011

005077
012702

104414

021224

001226
001216

TST1:

021006!<20'11>

BIC

(MPB
BEQ

1%:

SCOPE

54 R4

RS.R4
1%

:R1 CONTAINS BASE DMC11 ADDRESS
;CLEAR SELO
;SAVE R2 FOR TYPEOQUT

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORI‘ LINE UNIT REG 11

:PUT "FOUND'' IN Ré&

:CLEAR UNKNOWN BITS

;PUT “EXPECTED'" IN RS
;1S OUT READY SET?
:BR IF YES
;ERROR IN LU N
:SCOPE THIS TEST

o ch e o

= OOV®NO
NS WO

#1,TSTNO
#TST2 NEXT

000001
012602

TEST D

MOV
MOV

012737
012737

POND =

0035

CZDMF

stererrrereretenerenvenennne

TEST

R NRERNRRANRTY
trtERNARNRRRNARNRARN

t«IN CONTROL REGISTER READ/ONLY TEST
;*D0 A MASTER CLEAR, VERIFY THAT ALL READ/CNLY

CIDMF
MACY11 30A(1052) 08-JuL-80
CZDMF .P1N
08-JuL-80 08:25

0036

08:26 PAGE 50
LINE UNIT READ/ONLY TESTS

|
;
|

l
,

1
;
l

I
,
l

|
!
T

i
!
!
’

2322

;*BITS ARE IN THE CORRECT STA
L

2324
2325
2326

7
TEst &
jeeeccccccccccs

2323

‘

2328
2329
2330

012610

012737

000002

012616

012702

000012

2334
2335

012632
012636

016104

000004

2327

012602

2331
2332
2333

012622
012624
012626

2336
2337
2338

012640
012642
012644

%gzg

012646

104414
021244

042704
005005

012650

001226

001216

T1ST2:

LR R

LR
R
LY

MOV

#2,TSTNO

MOV

#2,R2

sR1 CONTAINS BASE DMC11 ADDRESS
;SAVE R2 FOR TYPEOUT

BIC
CLR

#7,R4
RS

sCLEAR UNKNOWN BITS
;PUT "EXPECTED'" IN RS

MOV

#TST3 NEXT

ROMCLK
021004'<20+12>
MOV
4(R1) ,R4

000017

120504
001401
104002

104400

18:

2341

23(.2

CMPB
BEQ
HLT

SCOPE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LINE UNIT REG 12
;PUT "FOUND'' IN R&

RS.,R4
1%
2
-

JARE ALL BITS CLEARED?
;BR IF YES
;ERROR IN LU 12
:SCOPE THIS TEST

E RN RO T ORRRR TEST 3 222222222222 X222 22222

2343
2344

;*MODEM CONTROL REGISTER READ/ONLY TEST
;*D0O A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

2346

L
L
ARl

2345

;*BITS ARE IN THE CORRECT STATE

2347

2348

2349

2350

;

012650

012737

2353
2354
2355
2356

012664
012666
012672
012674

104412
012702
104414
021264

2358

012702

042704

2351

2352

2357
2359
2360
2361

2362
2363
2364
2365

012656

012676
012706
012712
012714

012716
012720

012737

000003

012722

001226

001216

T1ST3:

000004

012705
120504

000100

MOV

#3,TSTNO

MOV

#TSTL NEXT

:R1 CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DMC11
sSAVE R2 FOR TYPEOQUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LINE UNIT REG 13

MSTCLR
#13,R2
MOV
ROMCLK
021004 '<20+13%>

000013

016104

TEST 3

jeeeecccccccane

000213

4(R1) R4

MOV
CMPB

#100,R5
RS .R&

sPUT "EXPECTED'' IN RS
;ARE RING, DTR, AND MODEM READY SET?

HLT
SCOPE

;ERROR IN LU 13
;SCOPE THIS TEST

BIC

001401

BEQ

194002
104400

;PUT "FOUND'' IN R4

MOV

#213,R4

sCLEAR UNKNOWN BITS

:BR IF YES

2366

JRRRRRRRRERERRRNEAERERRRRRRS TEST 4 tetttnttnntnnnnentnnnttnens

2369

*«BITS ARE IN THE CORRECT STATE

2367
2368

:«MAINTENANCE REGISTER READ/ONLY TEST
2«DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

2370

23N

gg;g

2374
2375

2376
2377

012722
012730

012737
012737

012736

104412

000004
013024

001226
001216

TST4:

TEST &

MOV
MOV

MSTCLR

#4,TSTNO
#TSTS NEXT

:R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(11

SEQ 0049

0037

MACY11 30A(1052)
08-JUL-80
CIDMF
C2ZDMF P11
08-JuL-80 08: 25
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
26409
26410
26411
2612
2613
2614
2615
26416
2617
2618
2619
2620
2421
2622
2423
2624

26425
2426
2627
2428
2429
26430
26431
2632
2433

012740
012744
012746
012750
012754
012760
012764
012772
012774
013002
013004
013010
013014
013014
013016
013020
013022

012702
104414
021364
016104
042704
012705
032737
001004
032737
001004
042704
042705

08:26 PAGE 51
LINE UNIT READ/ONLY TESTS

000017

000004

000206
000051
020000

001366

040000

001366

000040

2%:

000040

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

sSAVE R2 FOR TYPEOUT
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORTA LINE UNIT REG 17

BIC
MOV
BIT
BNE
BIT
BNE

lZOb.RA
#51,RS
#B1713,5TAT
2%
#BITI4,STATT
3%

sCLEAR UNKNOWN BITS
PUT "“EXPECTED'' IN RS
;1S LU AN MB8202 GR M8201?
‘BR IF M8202
sCONNECTOR???
BR IF M8201 WITH CONNECTOR

#BITS,RS

;SI BIT IS UNKNOWN

MOV

4(R1),R4

BIC

#40,R4

BIC

CMPB

120504
001401
104002
104400

1%:

SEQ 0050

BEQ
HLT

SCOPE

:PUT "FOUND'' IN R4

;MASK OFF SI BIT IF M8202 OR mM8201, NO CONNECTOR

RS ,Ré&

JARE SI AND ICIR SET?

1%
2

sBR IF YES
;ERROR IN LU 17

:SCOPE THIS TEST

JRRRRRRRERTRRERERERCRNONORNR

TEST

tttattnannternnaetntnneenns

'LINE UNIT REGISTER WRITE/READ TEST
;*SET BITS IN LU REGISTER 12, VERIFY IT IS SET

:'CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR
R

;]

013024
013032
013040

012737
012737
012737

013046
013050
013054
013062
013064

104412
012702
012761
104414
122112
104414
021245
012705
116104
042704
120504
001401
104003
104401
012737
005061

013070
013072
013076
013102
013106
013110
013112
013114
013116
013124
013130
013132
013134
013136
013140
013142
013146
013152
013154

104414
122112
104414
021245
005005
116104
042704
120504
001401

000005
013164
013054

000012
000040

001226
001216
001220

T1STS5:

1%:

MOV
MOV
MOV

MOV
MOV
ROMCLK

#5,TSTNO
#TST6 NEXT
#1%,L0CK

#12,R2
#40,4(RY)

122112

ROMCLK
021245
MOV
MOVB
BIC
CMFB

000040
000005
000337

013124
000004

001220

2%:

bt §

BEQ
HLT

SCOP1
MOV
CLR
ROMCLK

ROMCLK
021245
CLR
MOVB
BIC
CMPB
BEQ

A ARl

;R1

CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DM(C11

:SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT&
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BITS IN LU-12

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

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
sREAD LU-12
;PUT "'EXPECTED'' IN RS
;PUT "'FOUND'" IN R4
sCLEAR UNWANTED BITS
;1S BITS SET?
:sBR IF YES
;ERROR, BIT 5 IS NOT SET

:SCOPE SUBTEST (Sw09=1)
sNEW SCOP1
;LOAD PORT4
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
CLEAR BIT S IN LU-12
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
READ Lu=12
;PUT “EXPECTED' IN RS

RS ,R4
31

;lS BITS CLEAR?
;BR [F YES

#3%,L0CK
4(R1)

122112

000005
000337

TEST S

MSTCLR

000004

S(R1) ,R4
#337,R4

PUT "FOUND'' IN R4
sCLEAR UNWANTED BITS

CZOMF
MACY11 30A(1052)
O0B-JuL-80
CZDMF . P11
08-JuUL-80 08:25

0038

2434
2635

%2%9

013156
013160
013162

08:26 PAGE 52
LINE UNIT WRITE/READ TESTS

104003
104401

4$:

104400

2438

2450
2451
2452
2453

SCOPE THIS TEST

:
013164
013172
013200

012737
012737
012737

013206
013210
013214

104412
012702
012761

000017
000001

042704

000001
000005
000376

013246

2467
2668
26469
2470
2471
2472
2473

2474

2475
26476

2477
%2;3

TEST 6

2461

2463
2464
2465
2466

TEST § seveveccvevvcneneennnetenne

tttt"'t'ttt""t'tt'titttt"ttt'tt"tttt

013222
013224
013226
013230
013232
013236

2462

013242

013250

013252
013254
013256
013264

013270
013272
013274
013276
013300
013302

013306

013312

013314
013316

013320
013322

104414
122117
106414
021365
012705
116104
120504

000006
013324
013214

001401

104003
104401
012737
005061

104414
122117
104414
021365
005005
116104
042704

120504

001226
001216
001220

000004

T1STé:

1%:

#6,TSTNO
#TST7 NEXT
#1%,L0CK

MSTCLR
MOV
MOV

#17,R2
#1,4(RY1)

ROMCLK
122117
ROMCLK
021365
MOV
MOVE
(MPB

013264
000004

MOV
MOV
MOV

BIC

001220

BEQ

2%:
3%:

000005

000376

HLT
SCOP1
MOV
CLR

ROMCLK
122117
ROMCLK
021365
CLR
MOvVB

001401
104003

4%:

104401
104400

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BITT IN LU=17
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JREAD LU-17
;PUT "EXPECTED'" IN RS
;PUT "'FOUND'' IN R4
sCLEAR UNWANTED BITS

;1S BIT1 SET?

;BR IF YES

:ERROR, BIT 1 IS WNOT SET
;SCOPE SUBTEST (Sw09=1)
sNEW SCOP1
;sLOAD PORT4

#3%,10CK
4(R1)

RS
5(R1) ,Ré&

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
CLEAR BIT 1 IN LU=-17
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-17
PUY "“EXPECTED'' IN RS
:PUT "'FOUND'' IN R4

RS,R4

;1S BIT1 CLEAR?

#376 R4

BEG
HLT

4%
3

SCOP1
SCOPE

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
:SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT4

#1,RS
S(R1) ,R4
#376 R4
RS .,R&4

BIC

CMPB

;CLEAR UNWANTED BITS

sBR IF YES
;ERROR, BITY1 IS NOT CLEAR

;SCOPE SUBTEST (SW09=1)
;SCOPE THIS TEST

2480
2481

ceerseerreeernerneenneenenns TEST 7 seetnnennntnnnnnnevnnnenene

2483
2484

:*FLOAT A 1 THROUGH LINE UNIT REGISTER 13
'FLOA‘ A O THROUGH LINE UNIT REGISTER 13

'LINE UNIT REGISTER WRITE/READ TEST

2482

AR AR

2485

SCOPE

*+LINE UNIT REGISTER WRITE/READ TEST
:+SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET

2454
2455
2456
2457
2458
2459
2460

;ERROR, BITS IS NOT CLEAR
:SCOPE "SUBTEST (SW09=1)

'CLEAR BIT1 IN LU REGISTER 17, VERIFY IT IS
CLEAR
fittttttt't"t""!t'

2447
26448
2449

2442

2446

|
|

SEQ 0051

serRrerrrRrrreenreeenenennnn

2443
2444
2445

2439

2440
2441

WLT
SCOP1

2486

2487

2488
2489

013324

012737

000007

001226

T1ST17:

TEST 7

fommmmeooooeee
MOV
#7,1STNO

R R R

AR R R R AN R R R R RN R R R R AR R RN R

RRN RN

CZOMF
MACY11 30A(1052)
O08-JuL-80
CZDMF . P11
08-JuL-80 08:25

0039

2490
2491
2492
2493
2494
2495
2496
2497

013332
013340

012737
012737

013346
013350
013354
013360
013360

104412
012702
012700

000013
000001

010061

000004

2499
2500
2501
2502
2503

013372
013374
013376
013400
013402

104414
122113
104414
021265
010005

2498

2504

013364

013404

042761

042705

2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518

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

116104
042704
120504
001401
104003
104401
000241
106100
00i35?
012737
012700
005100
010061

2520
2521
2522
2523
2524

013464
013466
013470
013472
013474

104414
122113
104414
021265
010005

2526
2527
2528
2529
2530
2531
2532
2533
253
2535

013502
013506
013512
013514
013516
013520
013522
013524
013526
013530

116104
042704
120504
001401
104003
104401
005100
000241
106100
001347

2519 013456 042761

2525

ggg?

2538

013476

013532

042705

104400

013534
013360

000257

08:26 PAGE 53
LINE UNIT WRITE/READ TESTS

001216
001220

64%:

000004

000005
000257

65%:

000004

000257

SEQ 0052

MOV
MOV

#TST10,NEXT
#64%,L0CK

MSTCLR
MOV
MOV

#13,R2
#1,R0

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11
:SAVE REGISTER ADDRESS FOR TYPEOUT
;START WITH BIT 0

RO,4(R1)

;PUT PATTERN INTO PORT4

MOV

BIC

‘2§7,4(R1)

BIC

#257 RS

sCLEAR UNWANTED BITS

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

000257

013452
000001

001220
69%:
67%:

000004

MOVB
BIC
CMPB
BEQ
HLT
SCOP1
cLC
ROLB
BNE
MOV
MOV
COM
MOV

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

:CLEAR UNWANTED BITS

5(R1),R4
#257 ,R4
RS,R4
65%
3
RO
64%
#67%,L0CK
#1,R0
RO

PUT "'FOUND'' INTO Ré&
;CLEAR UNWANTED BITS
;DATA CORRECT?
;BR IF YES
:ERROR
;SW09=1?
;CLEAR CARRY
JSHIFT BIT IN RO
;1F RO=0 THEN DONE
sNEW SCOP1
;START WITH BIT 0
sCHANGE TO FLOATING ZERO

RO,4(R1)

;PUT PATTERN INTO PORT4

BIC

‘2§7.4(R1)

BIC

#257 RS

sCLEAR UNWANTED BITS

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

000257

000005
000257

68%:

MOVB
B!C
(MPB
BEQ
HLT
SCOP1
COM
cLC
ROLB
BNE

SCOPE

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

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

:CLEAR UNWANTED BITS

sPUT "'FOUND'' INTO R4
sCLEAR UNWANTED BITS
sDATA CORRECT?
;BR IF YES
;ERROR
;Sw09=1?
sCHANGE TO FLOATING 1
sCLEAR CARRY
JSHIFT BIT IN RO
:1F RO=0 THEN DONE

RO
69%

:SCOPE THIS TEST

253%9

seveenevesertrerverenvenennr TEST 10 seectcccvcnenenenvencnnnnen

2541
2542

;*FLOAT A 1 THROUGH LINE UNIT REGISTER 14
;*FLOAT A O THROUGH LINE UNIT REGISTER 14

2540

s*LINE UNIT REGISTER WRITE/READ TEST

2543

2544
2545

;

TEST 10

L R

_._1

CZOMF

0040

MACY11

CZDMF .P11

|
|
,
»

|
|

2546

2550
2551
2552
2553

104412
012702
012700

2548
2549

2554
2555
2556
2557
2558
2559
2560
2561
2562

2563

013556
013560
013564

013570
013570
013574
013576
013600
013602
013604
013606
013612

012737
012737

010061
104414
122114
104414
021305
010005
116104
120504

001401

2565

013620

104401

2567
2568

013624
013626

106100
001360

2570

013636

013616

2569

2571

2572

2575

2577
2578

2579

2580

013630

012737

012700

013642

005100

013644
013650

010061
104414

013654

104414

013644

013652

013656
013660

021305
010005

013666

120504

013662

116104

2581

013670

001401

2583

013674

10440°

2584

013676

005100

2586
2587
%ggg

013702
013704
013706

106100
001356
104400

|
|

2585

013700

T1ST10:

000004

648:

000005

65%:

013644

000001

001220
67%:

MSTCLR
MOV
MOV

#4,R2
#,R0

MOV
RO,4(RY)
ROMCLX
12210014
ROMC LK
21005'<14+20>
MOV
RO,RS
MOVR
S(R1),R4
CMPB
RS,R4
HLT

SCOP1

cLe

65%
3

;BR IF YES
:ERROR

;5w09=1?

"CLEAR CARRY

#1,R0

;START WITH BIT

MOV
ROMCLK

RO,4(R1)

;PUT PATTERN INTO PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

COM

#678%,L0CK
RO

;NEW SCOP1

;MOV DATA TO

IBUS REGISTER

(MPB

;DATA CORRECT?
:BR IF YES

S(R1),R4

RS,R4

;PUT "'FOUND'' INTO R4

68%

COM

;CHANGE TO FLOATING 1

ROLB
BNE
SCOPE

RO
69%

;SHIFT BIT IN RO
;IF RO=0 THEN DONE
;SCOPE THIS 1€ST

SCOP1

;NEXT WORD iS INSTRUCTION, ROMCLK PC=5304

;READ FROM IBUS REGISTER 14
;PUT EXPECTED IN RS

CLe

ERROR

:SW09=1?

:CLEAR CARRY

seterenerererrrnvennenennnnt

2592
2593
2594

;CHANGE TO FLOATING ZERO

21005'<14+20>
MOV
RO,RS

BEQ

000241

;PUT PATTERN INTO PORT&

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO I8US REGISTER 14
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ FROM [BUS REGISTER i4
;PUT EXPECTED IN RS
;PUT "FOUND'' INTO R4
;:DATA CORRE(CT?

MOV

MOVB

688%:

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11
;SAVE REGISTER ADDRESS FOR TYPEOUT
;START WITH BIT 0

;SHIFT BIT I%N RO
;IF RO=0 THEN DONE

122100!14

000005

SEQ 0053

RO
643

LOMCLK

2590

TEST

srecneveteneennenrnatnennnnn

;*SWITCH PAC TEST
;*THIS TEST READS SWITCH PACH#1
;*THIS SWITCH PAC CONTAINS THE DDCMP LINE #

2595

.':.t.""'t"it'"'t.'t"'tt'.'tt!'t't'tttt'tttttlitltlltt!ti\lt

2596
2597

2599
2600
2601

#TST11,NEXT
#648,10CK

MOV

69%:

000004

#10, TSTNO

MOV
MOV

ROLB
BNE

2591

2598

MOV

BEQ

122114

5582 013672 106003

000014
000001

PAGE 54

LINE UNIT WRITE/READ TESTS

00216
001220

104003

|
|

013710
013570

2566 013622 000241

2576

013542
013550

013614

2564

;

08:26

012737 000010 001226

2573
2574

;
:

08-JuL-B0

2547 013534

;
|

30A(1052)

08-JuL-80 08:25

013710
013716

012737
012737

000011
013752

001226
001216

TST11:

;
TEST 11
{=-e=eoncscsses
MOV
#11,1STNO
MOV
#TST12,NEXT

;R1

CONTAINS BASE DMC11 ADDRESS

—

0041

C(DMF
MACY11 30A(1052)
08-JuL=-80
CZDMF P11
08-JuL-80 08:25

2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
gggg

013724
013726
013730
013732
013736
013742
013744
013746
013750

104412
104414
021324
016104
113705
120504
001401
104031
104400

08:26

PAGE 55

LINE UNIT WRITE/READ TESTS
MSTCLR
ROMCLK

000004
001370

;MASTER CLEAR DMC11
SNEXT WORD IS INSTRUCTION,

021324

MOV

:PORT4 LU1S

4(R1),R4

MOVB

;PUT "EXPECTED'' IN RS

RS ,R&
1%

HLT
SCOPE

:SW 0K?
:BR IF YES

;ERROR, SWITCH PAC
:SCOPE THIS TEST

Rtk rrrterrtrrenrracnenen

s*SWITCH PAC

:
013752
013760

012737
012737

013766
013770
013772
013774
014000
014004
014006
014010
014012

104412
106414
021344
016104
113705
120504
001401
104031
104400

2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
ggtg

014014
014022

012737
012737

2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657

014030
014032
014036
014036
014040
014042
014050
014052
014056
014060
014062
014066

104412
005037

000012
074014

001226
001216

1ST12:

;*THIS

TEST

SWITCH

READS
A

TEST

120

READ ERROR

evncecscntcvnannetnneeneene

TEST

s*THIS
A

ROMCLK PC=5304

;PUT "FOUND'' IN Ré&

STAT2,RS

(MPB
BEQ
1%:

SEQ 0054

SWITCH

PAC
A

PACH?

CONTAINS
R

THE

BM873 BOOT

ADD

TEST 12

MOV
MOV

#12,TSTNO
#TST13 NEXT

MSTCLR
ROMCLK

000004
001371

;R1 CONTAINS BASE DM(L11
;MASTER CLEAR DM(C11

JNEXT

021344

MOV

4(R1),Ré4

CMPB
BEQ

RS,R4
1%

MOVB

;SW 0K?
:BR IF YES
"ERROR,

:SCOPE

;*LINE UNIT
TEST

;*(BIT 1

TEST

CLOCK TEST

VERIFYS

IN LU=17)

ROMCLK

PC=5304

:PUT "'FOUND'' IN R4

sereranreerevvenrerrvertnnnnn

;*THIS

INSTRUCTION,

:PUT "EXPECTED'' IN RS

5COPE

;PORT4 LU6

STAT2+1,RS

HLT

1%:

WORD

ADDRESS

THAT

THE

IS WORKING

SWITCH PAC

THIS

TEST

READ ERROR

ecvnnntenntcntttanenonecens

INTERNAL

CLOCK

;;t'.'t""t""""i"..""."Q"ilt"'.'Q"Q"Q"".'Q"!""

104414
021364
032761
001004
005237
001367
104004
005037

000013
014114

001226
001216

TST13:

TEST 13

MOV

ROMC LK

000004

;R1

CLR

021364

BIT

BNE

001416
001416

#TST14

MSTCLR

001416

000002

#13,T1STNO

INC
BNE
%::

HLT

CLR

[EMP

CONTAINS BASE DMC11 ADDRESS

;MASTER CLEAR DMC11
;PREPARE

;NEXT

#2,4(R1)

WORD

;1S CLOCK BIT

:BR IF

DELAY

INSTRUCTION,

:PORT4 LU=17

YES

TEMP
1%

:DELAY
:DELAY FINISHED?

TEMP

:PREPARE

“

FOR

ROMCLK

SET?

;ERROR BIT IS STUCK CLEAR
FOR DELAY

P(C=5304

CIDMF
MACY11 30A(1052)
08-,uL-80
CZDMF . P11
08-JuL-80 08:25

)04 2

2658
2659

014066
014070

104414
021364

2661
2662
2663
2664
2665

014100
014102
014106
014110
014112

001404
005237
001367
104004
104400

2660

2666
2667

{

,
[,
B

;

014072

032761

000002

08:26 PAGE 56
LINE UNIT WRITE/READ TESTS

ROMCLK

0C0004

02364

BIT

BEQ
INC
BNE
HLT
SCOPE

001416
6%

#2,4(R1)

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU=-17

;15 CLOCK BIT CLEAR?

3]
TEMP
3%
4

:BR IF YES
:DELAY
;BR IF DELAY NOT DONE
;ERROR BIT IS STUCK SET

2668
2669
2670
2671
2672

JRRRRRRECRRREROR AT RCENORONY TEST 14 tetenneenecanetteneenectnne
;*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 OQUT SILO

2674
2675

;

2673

2676

2677
2678
2679

014114
014122

012737
012737

2680

2681

014130

2682
2683

014132

104412

0146136
014140

005061

000004

2687

014142
014146
014152

014160

004737
012711
012761

033676
004000
000001

2689

014162

014164

122111

2684
2685
2686

2688

2690
2691
2692

2693
2694

2695

2696

014202

021364

014210

042704

014200

014204

2701

014226

2703
2704
2708

2706
2707
2708

2709

2710

271

2712

2713

014220
014222
014224

014226

001226
001216

T1ST14:

104414

016104

012705

120504
001401
104005

104400

#14,TSTNO
#TSTI15,NEXT

CLR

4(R1)

JSR
MOV
MOV

PC,CLRIO
#BIT11,(RT)
#1,4(R1)

ROMCLK

122110
TIMER,
MOV

ROMCLK

021364

000004

MOV

000020

MoV

BIC

1%:

2
#7,R2

4(R1) R4

#357 R4

(MPB
BEG
HLT

;R1 CONTAINS BASE DMc11 ADDRESS

;MASTER CLEAR DMC11
;CLEAR PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT LINE UNIT IN BITSTUFF MODE

;DO THIS AFTER MODE IS SET
;SET LINE UNIT LOOP
:LOAD PORT4 WITH BITO

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

000357

AR ARl

(SET SOM

122111

000002
000017

jeeeeccecccccccan

MOV
MoV

ROMCLK
122117

000004

R R

TEST 14

MSTCLR

104414

122110
104416
012702

014214

2702

104414

014166
014170
014174

2697

2698
2699
2700

104414
122117

000014
014230

#20,RS
RS ,R4
1%
5

;LOAD OUT DATA SILO
;WAIT FOR OCOR
;SAVE ADDRESS FOR TYPEOUT

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

;PORT4 LU 17

;PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

:PUT "EXPECTED" IN RS
;1S OCOR SET?
;BR IF YES

;SCOPE THIS TEST

SCOPE

sevrsnenterrrnneerrrnernnnns

TEST

;*BITSTUFF TEST OF RTS AND OUT ACTIVE
;*SET SOM AND LOAD OUT DATA SILO
;*SINGLE STEP 2 DATA CLOCKS, VERIFY
;*THAT RTS AND ACTIVE ARE SET

tevnnanntncnnstevnnnnnrcnvnen

AR
R A AR
LL

TEST 15

SEQ 0055

NNNNNNNNSNSNNNNNNNNNNNY

MACY11 30A(1052)
(Z D Mf
08-JuUL-80
2z OMF .P11
08-JuUL-80 08:25

8rfluflfiN"UN"UAMUNHUNHU—Ld—na_ad
=00V
NO NS WN =200
~NONN S

0043

014230
014236

012737
012737
104412

000015
014402

08:26

001226
001216

PAGE 57

BASIC

TST1S:

033676
004000
G00001

#15,TSTNO

MOV
MOV

#IST16,NEXT

MSTCLR

000004

122117
JSR

ROMCLX

122111

ROMCLK

122110
PC,OCOR
JSR
DATACLK,

032346
000002
000011

120504

MOV

4(R1) R4
#257 R4
#120,R5
RS, R4
1%

MOV

1%:

000013

(MPB
BEQ
HLT

000004
000337
000040

#7,R2

MOV

4(R1),R4

MOV
(MPB
BEQ
HLT

#BITS,RS
RS, R&

#337 ,R4

BIC

104005

2%:

104400

2%
5

ADDRESS

INSTRUCTION, ROMCLK PC=5304

;PUT LINE UNIT IN BITSTUFF
;00 THIS AFTER MODE IS SET
;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
;NEXT WORD IS INSTRUCTION,
;SET SOM
sNEXT WORD

INSTRUCTION,

;LOAD OUT DATA SILO

MODE

ROMCLK

PC=5304

ROMCLK

PC=5304

;WAIT FOR OCOR

;CLOCK DATA FOUR TIMES
:SAVE ADDRESS FOR TYPEOQUT
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 11

;PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

:PUT "EXPECTED'' IN RS
;1S ACTIVE SET?
;BR IF YES

;NEXT WORD IS
;PORT4 LU 13

INSTRUCTION,

ROMCLK

PC=5304

;PUT EXPECTED IN R4

:CLEAR UNWANTED BITS

D BE SET
;PUT "EXPECTED'' IN RS, RTS SHOUI

;1S RTS 0K?
;BR IF YES
;RTS ERROR

;SCOPE THIS TEST

SCOPE

serrernrerrevrertenneevnenne

;*TEST

DMC11

;SAVE ADDRESS FOR TYPEQUT

MOV
ROMCLK

021264

001401
014400

#11,R2

BIC

104005

012702
104414
021264
016104
042704
012705

MOV
ROMCLK

021224

000004
000257
000120

CONTAINS BASE

;NEXT WORD

PC,CLRIO
#BITI1,(RY)
#1,4(RY)

MOV
MOV

;R1T

;MASTER CLEAR DM(C11
;CLEAR PORT4

L(R1)

(LR

ROMCLK

000004

SEQ 0056

TRANSMITTER TESTS

OUT

CLEAR

;*VERIFY

THAT

OCOR,RTS,

JEST

teevennvenvtnvenvenvennntnyr

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

ARE

CLEARED

::.'.'.""'.Q""""."'Q.""Q.'.'.'t.t""l"'Ql'!"i'ti't.'

§
001226
001216

014402
014410

014430

TST16:

;R1
MSTCLR

014416
014420
014424

014426

RSV 16

(LR

ROMCLK

033676

122117
JSR

4(R1)
PC,CLRIOD

CONTAINS BASE

DMC11

;MASTER CLEAR DM(C11

;CLEAR PORT4
;NEXT WORD IS INSTRUC
;PUT LINE UNIT N BIT
;D0 THIS AFTER MODE |

ADDRESS

N, ROMCLK PC=5304
FF

MODE

CZDMF
MACY11 30A(10%2)
08-JuL=-80
CZ0MF . P11
08-JuUL-80 08:25

2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811

—

0044

014434
014440
014446
014450
014452
014454
014456
014462
014466
014474
014476
014500
014504
014510
014512
014514
014520
014524
014526
014530
014532
014534
014534
014540
014542
014544
014550
014554
014556
014560
014562
014564
014564
014570
014572
014574
014600
014604
014606
014610
014612
014612

012711
012761
104414
12211
104414
122110
004737
104415
012761
104414
122111
104415
012702
104414
021364
016104
042704
005005
120504
001401
104005

004000
000001

012702
104414
021264
016104
042704
005005
120504
001401
104005

000013

012702

000011

104414
021224
016104
012705
120504
001401
104005
104400

032346
000002
000200

08:26 PAGE S8
BASIC TRANSMITTE R TESTS

000004

000001
000017
000004
000357

1%:

000004
000337

2%:

000004
000020

b B

SEQ 0057

#BIT11,(RY)
MOV
#1,4(RY)
MOV
ROMCLK
122111
ROMCLK
122110
PC,OCOR
JSR
2
DATACLK,
#BIT7,4(R1)
MOV
ROMCLK
12211
1
DATACLK,
#7,R2
MOV
ROMCLK
021364
4(R1),R4
MOV
#357,R4
BIC
RS
CLR
(MPB
RS, R4
1%
BEQ
HLT
5

;SET

MOV
ROMCLK
021264
MOV
BIC
(LR
(MPB
BEQ
HLT

#13,R2

:SAVE

MOV

ROMCLK
021224
MOV
MOV
CMPB
BEQ
HLT
SCOPE

4(R1) ,R&

LINE

UNIT

LOOP

:LOAD PORT4 WITH BITO
;NEXT WORD IS INSTRUCTION,

:WAIT

FOR OCOR

:CLOCK DATA FOUR TIMES

:SET BIT7 IN PORT4
:NEXT WORD IS INSTRUCTION,

;SET OUT CLEAR
:GIVE
:SAVE

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

;PUT “FOUND'' IN R4

:CLEAR UNWANTED BITS
:PUT "EXPECTED'' IN RS

;1S OCOR CLEARED?
:BR

YES

ADDRESS

FOR

TYPEOQUT

SNEXT WORD IS INSTRUCTION, ROMCLK PC(=5304

:PORT4 LU 13

:PUT EXPECTED IN R4

:CLEAR UNWANTED BITS

RS ,R&

;1S RTS 0K?

#11,R2

:SAVE ADDRESS FOR TYPEOQUT
NEXT WORD IS INSTRUCTION,
:PORT4 LU

2%
S

4(R1),R&

:PUT "EXPECTED'' IN RS,

RTS SHOULD BE

CLEARED

:BR IF YES
:RTS ERROR

;PUT "FOUND'' IN R4

#BIT4,RS

;ONLY

RS,R4

;1S ACTIVE

:ERROR ACTIVE

ROMCLEK PC=5304

A TICK TO CLEAR RTS
ADDRESS FOR TYPEOQUT

#3%7,R4

ROMCLK PC=5304

:SET SOM
:NEXT WORD IS INSTRUCTION, ROMCLK PC(=5304
:LOAD OUT DATA SILO

:BR

OUT

YES

READY

SHOULD BE

CLEAR?
NOT

:SCOPE THIS TEST

CLEARED

ROM(LK PC=5304
SET

CZDMF

0045

MACY11

CZDMF P11

30A(1052)

08-JuL-80

08-JuL-80 08:25

08:26

PAGE

2815

2816
2817
2818
2819
2820
2821

2823

2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843

2844

2845
2846
2847
2848
2849
2850
2851
2852

2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867

SEQ 0058

JEtRRNR Rt Tttt ettt tnennnt

TEST

sevcenvtentoveteneecesnenne

*BITSTUFF TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER 0
s*CHECK FLAG AND DATA IN THE BIT WINDOW
;*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

2822

2824
2825
2826
2827
2828
2829
2830
2831
2832

BASIC TRANSMITTER TESTS

2812
2813
2814

.
'

014614

012737

014622

012737

014630
014632
014636
014640
014642
014646
014652
014656
014662
014670
014672
014674
014676
014700
014704

104412
005061
104414
122117
004737
005037
012711
004737
012761
104414
122111
104414
122110
012705
004737

014710

014714
014716
014720
014724
014726
014730
014734
014742

014746
014752
014754
014760
014762
014764
014766
014772
014774
014776
015000
015004
015006
01501C
015014

010561

104414
122110
004737
005003
010502
104415
012737
104415

106037
103405
004737
103006
104026
000404
004737
103401
104026
005203
022703
001356
005003
104415
106002

000017

015076

001226

001216

1ST17:

033676
034114
004000
032500
000001

000004

000000
032500

0072004

000002
000176

000001

001252

64%:

032314

000010
000001

MOV

032346

65%:

66%:

1%:

:
TEST 17
[ee=eeeccccccaaa
MOV
#17,TSTNO

MSTCLR
CLR
ROMCLK
122117
JSR
CLR
MOV
JSR
MOV
ROMCLK
122111
ROMCLK
122110
MOV
JSR

000004

#TST20,NEXT

:R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
4(R1)
sCLEAR PORTS
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
sPUT LINE UNIT IN BITSTUFF MODE
PC,CLRIO
;DO THIS AFTER MODE 1S SET
BITCON
;CONSECUTIVE 1°'S COUNTER INIT TO O
#BIT11,(RY)
;SET LINE UNIT LOOP
PC,OUTRDY
;WAIT FOR QUT=-READY
#1,4(RY)
;SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM!
SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD GARBAGE CHAR
i
#0,RS
;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
;WAIT FOR OUT-READY

RS,4(R1)

;LOAD PORT4 WITH CHARACTER

ROMCLK
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
122110
;LOAD OUT DATA
JSR
PC,OCOR
;WAIT FOR OCOR TO SET
CLR
R3
;CLEAR BIT COUNTER
MOV
RS ,R2
sLOAD CHARACTER IN R2
DATACLK,
"4
;2 TICKS TO SET UP TRANSMITTER
MOV
#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3
DATACLK,
1
sCLOCK FLAG ONCE

RORB
TEMP3
BCS
65%
JSR
PC,GETSI
BC(C
66%
HLT
26
BR
66%
JSR
PC,GETSI
BCS
66%
HLT
26
INC
R3
CMP
#10,R3
BNE
64%
(LR
R3
DATACLK,
1
RORB
R?

;SHIFT SOFT FLAG
;BR IF BIT IS MARK
;LOOK AT BIT WINDOW
;BR IF 0K
¥
;ERROR [N FLAG CHAR

sLOOK AT BIT WINDOW
;BR IF 0K
;ERROR IN FLAG CHAR
INC BIT COUNT
;FLAG DONE YET?
;BR [F NO
;CLEAR BIT COUNT
JSHIFT NEXT BIT IN THE WINDOW (S BIT)
JSHIFT NEXT SOFTWARE BIT IN TO CARRY

MACY11 30A(1052)
(2 DMF
08-JuUL-8B0
. P11
(2 DMF
08-JuUL-80 08:25
103005

004737
103406

08:26

PAGE 60

BASIC

032314

104006

000404
004737

103001
104006

005203
022703
001357
104415
104414

021264
032761
001401
015074

032314

2%:
3%:

SEQ 0059

TRANSMITTER TESTS
BCC
JSR
BCS
HLT
BR
JSR
BCC
HLT

CARRY (LEAR

;BR [F

3%
6
3%

;BR IF BIT IS A MARK
;ERROR BIT WAS A SPAC(E
;CONTINE WITH TEST

3%
6

;BR IF BIT IS A SPA(E
;ERROR BIT WAS A MARK

PC,GETSI

;GET

THE WINDOW

;GET

THE

WINDOW

000014

R3
INC
#10,R3
P
(M
1%
BNE
DATACLK,

000040

021264
BIT

#BITS,4L(RY)

;PORT4 LU-13
;RTS SAOULD BE CLEAR NOW

HLT

;ERROR, RTS NOT (I EAR

0000170

JNEXT BIT
14

ROMCLK

000004

104034
104400

BEQ
6%

SCOPE

;DONE YET?
;BR IF NO
;CLOCK TRANSMITTER

14 MORE

TICKS

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

YES

;SCOPE THIS TEST

setrrnnrrertnereneeneenvennns

JEST

senvenencvenvnenennvecennes

J*BITSTUFF TRANSMITTER TEST
s*SINGLE CLOCK THE CHARACTER 125
;s *(CHECK FLAG AND DATA IN THE BIT WINDOW
;*VERIFY EACH BIT PCSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF

FAILURE

VAW WA WA
LA WVA WA VAWV
AW
PONIND = e e o d o o o o o o o d e e e
NN
= =
o0
NNV
S
w

PGS
S
——p—

—

TR
EE Y tttetttttttRttRtRRRRRRdRRRRRARRRRRRRRRRRRRROARROROROROERRORTETS

lelelelelelelalelelelelelelelelelele
lele]

0046

000020
015360

001226
001216

MSTCLR

000004

033676
034114
004000
032500
000001

#20,TSTNO
#FTST21 NEXT

1$720:

CLR

ROMCLK

000004

122117
JSR
(LR
MOV
JSR
MOV
ROMCLK

4(R1)
PC,CLRIO

BITCON

#BIT11,(R1)
PC,OUTRDY
#,4(RT)

122111

ROMCLK

000125
032500
000004
032346

122110
MOV
JSR

MOV
ROM(LK
122110

JSR
CLR

;R1

CONTAINS BASE

DMC11

;MASTER CLEAR DMC11

ADDRESS

;CLEAR PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PUT LINE UNIT IN BITSTUFF MODE
;D0 THIS AFTER MODE

IS SET

;CONSECUTIVE 1°'S COUNTER INIT TO O
:SET LINE UNIT LOOP
;WAIT FOR OUT=-READY
;SET BITO IN PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5306
;SET SOM!

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:LOAD GARBAGE CHAR
#125,R5 ;LOAD CHARACTER IN RS FOR TYPEOQUT
PC,OUTRDY
RS,4(R1)

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

PC,OCOR
R3

;WAIT FOR OCOR TO SET
;CLEAR BIT COUNTER

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

e
i
i
i
e
D
D
b

d o

NN AW VWL
VWA VYA WA WA
NI SIS NI,V .V
N OO LSTSTSTNTNIST
N~ ~ooror
W v NSNS 85 55 NN NN = b
&~
OO
NOSOSrO0NNVO
o oo~

MACY11 30A(1052)
czome
08-JUL-B0
CZomf P11
08-JuL=-80 08:25
[eleleolelelelelelelelelalelelelelelelelelelelelelolelalelololelelolelolelele)

0047

010502
104415
012737
104415
106037
103405

004737

103006
104026

000404
004737

103401
104026

005203
022703
001356
005003
104415
106002
103005

004737
103406
104006
000404

004737
103001
104006

005203
022703
001357
104415
104414

021264
032761
001401

000002
000176
000001
001252

08:26

001252

PAGE 61

64%:

RORB

65%:
64%:

000001

1%:

65%

BCC

66$

HLT
BR

26
66%

JSR

2%:
3%:

000010

HLT

;LOOK AT BIT WINDOW

;ERROR IN FLAG CHAR
;INC BIT COUNT
;FLAG DONE YET?
;BR_IF NO
;CLEAR BIT COUNT

R3
INC
CMP
#10,R3
64%
BNE
R3
CLR
DATACLK,
RORB

JSR

PC,GETSI

HLT

;BR

104034
104400

JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
JSHIFT NEXT SOFTWARE BIT IN TO CARRY

HLT

INC
CMP
BNE

R3
#10,R3
1%

;DONE YET?
:BR IF NO

e
JSR
BCC

021264

;ERROR BIT WAS A MARK

SNEXT BIT

BIT

#BITS,4(RY)

HLT
SCOPE

BEQ
L%:

3
PC,GETSI
3%

ROMCLK

000004

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

DATACLK,

000014

PC,GETSI

66%

BCS

032314

:BR IF BIT IS MARK
;LOOK AT BIT WINDOW
;BR IF 0K
:ERROR IN FLAG CMAR

PC,GETSI

BCC

032314

:SHIFI SOFT FLAG

TEMPY

BCS

JSR

000010

000040

;LOAD CHARACTER IN R2
2
(2 TICKS TO SET UP TRANSMITTER
MOV
#*8<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3
1
DATACLK,
;CLOCK FLAG ONCE

MOV
RS,R2
LK,
DATAC

032314

SEQ 0060

BASIC TRANSMITTER TESTS

:CLOCK TRANSMITTER 14 MORE TI(CKS

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

;RTS SROULD BE CLEAR NOW
:BR

YES

:ERROR, RTS NOT CLEAR

sSCOPE THIS TE-T

JRRRRRRRRRERRARNRRRCRORRARNS

TEST

ttetnenstnentastnatnnnneny

S«BITSTUFF TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER 252
;*CHECK FLAG AND DATA IN THE BIT WINDOW
:«VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI &!T)

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

.':"'t""'"""""""".'..'..t't!"'t"'.'Q'll"'.""'.'tl

.
015360
015366

012737
012737

015374

104412

000021
015642

001226

001216

1ST21:

TEST 21

MOV

MOV
MSTCLR

#21,1STNO

#15722 NEXT

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

ADDRESS

(ZDMF

) 0048

MACY1T

CZ0MF . P11

l
'

;
,

'
'
‘
;
|
|

‘

%
,

2980
2981
2982
2983
2984
2985
2986
2987
2988
2989

2990

2991

2992
2993
2994
2995
2996

2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014

015376
015402
015404
015406
015412
015416
015422
015426
015434
015436

005061
104414
122117
004737
005037
012711
004737
012761
104414
122111

015442

122110

015440

BASIC

000004

033676
034114
004000
032500
000001

TRANSMITTER

CLR
ROMCLK
122117
JSR
(LR
MOV
JSR
MOV
ROMCLK
122111

000004

104414

PAGE 62

TESTS

SEQ 0061

4(R1)

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

ROMCLX

122110

;CLEAR PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT LINE UNIT IN BITSTUFF MODE
;D0 THIS AFTER MODE IS SET
sCONSECUTIVE 1'S COUNTER INIT TO C
JSET LINE UNIT LOOP
JWAIT FOR OUT=READY
:SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM!
sNEXT WORD

INSTRUCTION,

sLOAD GARBAGE CHAR

ROMCLK P(C=5304

012705
004737
010561
104414

000252
032500
000004

MOV
JSR
MOV
ROMC LK

015464
015470
015472
015474
015500
015506
015512
015516
015520
015524
0155%6
015530
015532
015536
015540
015542

004737
005003
010502
104415
012737
104415
106037
103405
004737
103006
104026
000404
004737
103401
104026
005203

032346

JSR
PC,O0COR
;WAIT FOR OCOR TO SET
CLR
R3
sCLEAR BIT COUNTER
MOV
RS,R2
;LOAD CHARACTER IN R2
DATACLK,
2
;2 TICKS TO SET UP TRANSMITTER
MOV
#*8<01111110>,TEMP3 ;PUT FLAG CHARACIER IN TEMP3
DATACLK,
1
;CLOCK FLAG ONCE
RORS
TEMP3
;SHIFT SOFT FLAG
BCS
65%
;BR IF BIT IS MARK
JSR
PC,GETSI
sLOOK AT BIT WINDOW
BCC
66%
;BR IF 0K
HLT
26
;ERROR IN FLAG CHAR
BR
66%
JSR
PC,GETSI
;LOOK AT BIT WINDOW
BCS
66%
;BR IF 0K
.
HLT
26
;ERROR IN FLAG CHAR
INC
R3
JINC BIT COUNT

015462

015544
015550

3018

015562

3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035

08:26

015444
015450
015454
015460

015552
015554

3019

08-JUL=-B0

08-JuL-80 08:25

3015

3016
3017

30A(1052)

015560

015564

015570
015572
015574
015576
015602
015604
815606
015606
015610
015614
015616
015622
015624
015626
015634
015636

122110

022703
001356

005003
104415
106002

103005

004737

103406
104006
000404
004737
103001
104006

005203
022703
001357
104415
104414
021264
032761
001401
104034

000002
000176
000001
001252

122110

001252

648 :

032314

65%:
66%:

000010

000001

1%:

CLR

JSR

i
2%:

032314

3%:

000010

000014
000004

)

#10,R3
64%

DATACLK,
RORB
R2

BCC

032314

000040

CMP
BNE

#252,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
JWAIT FOR QUT=READY
RS,4(RY)
;LOAD PORT4 WITH CHARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

B(CS
HLT
BR
JSR
BCC
HLT

;LOAD OUT DATA

;FLAG DONE YET?
:BR IF NO

PC,GETSI

3%
6
3%
PC,GETS!
3%
6

INC
R3
CMP
#10,R3
BNE
1%
DATACLK,
14
ROMCLK
021264
BIT
#BIT5,4(RY)
BEQ
4%
HLT
34

sCLEAR BIT COUNT
;SHIFT NEXT BIT IN THE WINDOW (SI BIT)

sSHIFT NEXT SOFTWARE BIT

;BR IF

CARRY CLEAR

IN TO CARRY

;GET THE WINDOW

;BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
JCONTINE WITH TEST
P
;GET THE WINDOW
sBR IF BIT [S A SPACE
JERROR BIT WAS A MARK

:NEXT BIT
;DONE YET?
sBR IF NO
;CLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU-13
;RTS SROULD BE CLCAR NOW
;BR IF YES
;ERROR, RTS NOT CLEAR

MACY11 30A(1052)
CIDMF
08-JuL-80
CZDMF P11
08-JuL-80 08:25

104400

3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
ggzg

015640

015642
015650

012737
012737

3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084

015656
015660
015664
015666
015670
015674
015700
015704
015712
015714
015716
015720
015722
015726
015730
015732
015736
015740
015744
015750
015756
015762
015766
015770
015774
015776
016000
016002
016006
016010
016012
016014
016020
016022
016024

104412
005061
104414
122117
004737
012711
004737
012761
104414
122111
104414
122110
004537
034142
000024
012704
005003
012700
104415
012737
104415
106037
103405
(04737
103006
104026
000404
004737
103401
104026
005203
022703
001356
005003
012700

3085
3086
3087
3088
3089
3090
3091

08:26 PAGE 63
BASIC TRANSMITTE R TESTS
0%

SFQ 0062

;SCOPE THIS TEST

SCOPE

sevrenanerrrerrereeerneennne

TEST

wevevevcctnevnnnetnnnenenne

;*BIT STUFF TEST

;*THIS TEST CHECKS ZERO BIT STUFFING OF
;* THE TRANSMITTER IN THE BIT WINDOW

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

016030
016034
016036
016040
016044
016046
016050

005037
112405
010502
104415
106002
103407
005037

0012
0012

1§122:

—

000022
016152

:
oo

0049

MOV

MSTCLR

000004

033676
004000
032500
000001

TEST 22

ROMCLK

000004

ROMCLK

033634

64%:

032314

000010
000024
034114

000001
034114

JSR
MOV

PC,OUTRDY
#1,4(R1)

122117

65%:
66%:

4(R1)

#BIT11,(R1)

122110

;SET LU LOOP

:WAIT FOR OUT=READY
:SET BITO IN PORT4

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

122111

MOV

001252

ADDRESS

JSR

JSR
STUFDT
20.

034142

:R1 CONTAINS BASE DMC11
;MASTER C(LEAR DM(C11

:CLEAR PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:PUT LINE UNIT IN BITSTUFF MODE
:DO THIS AFTER MODE IS SET
PC,CLRIO

CLR

MOV

ROMCLK

000006
000002
000176
000001
001252

#22,TSTNO
#TST23 NEXT

;SET SOM!

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
RS,MESLD

:LOAD GARBAGE CHAR
;LOAD OUT SILO DATA
JMESSAGE ADDRESSS
:NUMBER OF CMHARACTERS

#STUFDT,R4

:R4=CHARACTER POINTER

MOV

;R3= BIT COUNTER
R3
CLR
:BIT COUNTER FOR FLAG CHARACTER
#6,R0
MOV
:SET UP TRANSMITTER
2
DATACLK,
#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3

RORB

TEMP3

DATACLK,

BCS
JSR
BCC
HLT
BR

JSR
BCS
HLT

INC
CMP
BNE
CLR

3%:
4%:

;CLOCK FLAG ONCE
;SHIFT SOFT FLAG

65%

;BR IF BIT IS MARK

66%

;BR IF 0K

PC,GETSI

;LO0OK AT BIT WINDOW

:ERROR IN FLLAG CHAR

gg$
PC,GETSI

;LOOK AT BIT WINDOW

66%
26
R3

:BR IF 0K
:ERROR IN FLAG CHAR
sINC BIT COUNT

64%
R3
MOV

:BR IF NO
;CLEAR BIT COUNT
#20.,R0
:RO=CHARACTER COUNTER

RORB

#10,R3

sFLAG DONE YET?

BITCON
CLR
MOVB
(R&)+,RS
MOV
RS.R2
DATACLK,
1
BCS
CLR

5%
BITCON

sCLEAR BIT STUFF COUNTER
:LOAD CHARACTER IN RS
:LOAD CHARACTER IN R?
JSHIFT DTAT ONCE
;SHIFT SOFT DATA

:BR IF CARRY SET
:CLEAR BIT STUFF COUNTER

0050

;
;
|

‘

}

1
1

CIOMF
MACY11 30A(1052) 08-JuL-80
CZDMF P11
08-JuL-80 08:25

3092
3093

3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
g}}z

016054
016060
016062
01606&
016066
016072
016076
016100

004737
103010
104006
000406
005237
004737
103401
104006

016110
016112
016116
016122
016126
016130
016132
016134
016140
016142
016144
016146
016150

001010
005037
104415
004737
103001
104030
005203
022703
001337
005003
005300
001332
104400

016102

022737

032314

JSR
BCC

034114
032314

000005

034114

034114
000001
032314
7%:

000010

8%:

3115

SEQ 0063

PC,GETSI
6%
6
6%
BITCON
PC,GETSI
6%
6

HLT
cMp
#5,B1TCON
BNE
7%
CLR
BITCON
DATACLK,
JSR
PC,GETSI
BCC
7%
HLT
30
INC
R3
Cmp
#10,R3
BNE
4%
CLR
R3
DEC
RO
BNE
3%
SCOPE

6%:

HAVE THERE BEEN 5 1'S IN A ROW

sBR IF NO
:1F YES CLR BIT STUFF COUNTER
;AND CLOCK TRANSMITTER ONCE
;CHECK WINDOW FOR A ZEOR STUFF!!
;BR IF WINDOW IS A SPACE
;ERROR, TRANSMITTER DID NOT STUFF A ZERO
JBUMP BIT COUNTER
;DONE THIS CHARACTER YET?
;BR IF NO
sRESTART BIT COUNTER AT ZERO
:DEC CHARACTER COUNTER
;BR IF NOT DONE YET
;SCOPE THIS TEST

IR AT

3118
3119

:*SINGLE CLOCK THE CHARACTER 377
;*CHECK FLAG AND DATA IN THE BIT WINDOW

3117

;*BITSTUFF TRANSMITTER TEST

RR
R ARl

3124

;

3127
3128
3129
3130
3131

016152
016160

012737
012737

016166
016170

104412
005061

3133
3134

016176
016200

122117
004737

3135
3136
3137
3138
3139
3140

3141

3142
3143
3144
3145
3146
3147

TEST 23 watnnavannenananananenstens

s*VERIFY EACH BIT POSITION AS IT
:*PASSES THE BIT WINDOW (SI BIT)
:*ON AN ERROR, R CONTAINS BIT POSITION OF FAILURE

g}%z

3132

TR RRC RO RO RN

;LOOK AT WINDOW
:BR IF SPACE
JERROR, WINDOW WAS A MARK
s CONTINUE
JADD 1 TO BIT STUFF COUNTER
;LOOK AT WINDOW
;BR IF MARK
JERROR, WINDOW WAS A SPACE

3116

3123

|
|

HLT
BR
INC
JSR
BCS

5%:

3120
3121
3122

|
!

08:26 PAGE 64
BASIC TRANSMITTER TESTS

016174

016204
016210
016214
016220
016226
016230

016232

0162364
016236
016242
016246
016252
016256

104414

005037
012711
004737
012761
104414
122111

000023
016460

MOV
MOV

#23,1STNO
#TST24 NEXT

000004

MSTCLR
CLR

4((R1)

:R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
sCLEAR PORT4

033676

122117
JSR

PC,CLRIO

:PUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE IS SET--

034114
004000
032500
000001

T1ST123:

ROMCLK

000004

CLR
MOV
JSR
MOV
ROMCLK
122111

ROMCLK

104414

122110
012705
010537
004737
010561
104414

001226
001216

TEST 23

000377
016414
032500
000004

122110
MOV
MOV
JSR
MOV
ROMCLK

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

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

;CONSECUTIVE 1°'S COUNTER INIT TO O
sSET LINE UNIT LOOP
sWAIT FOR OUT=-READY
:SET BITO IN PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JSET SOMm!

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sLOAD GARBAGE CHAR
#377,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
;LOAD CHAR FOR STUFF CHECK
RS.5%
sWALIT FOR QUT=-READY
PC,OUTRDY
;LOAD PORT4 WITH CHARACTER
RS,4(R1)
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

)

S—

CIOMF

0051

MACY11 30A(1052)

CZDMF.P11

;

3148
3149
3150
3151
3152

016260
016262
016266
016270
016272

122110
004737
005003
010502
104415

3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168

016304
016310
016314
016316
016322
018324
016326
016330
016334
016336
016340
016342
016346
016350
016352

104415
106037
103405
004737
103006
104026
000404
004737
103401
104026
005203
022703
001356
005003
005037

3153

3169
3170
3171
3172
3173
3174
3175
3176
3177
3178

|
'

3184
3185

016424
016426

3186

3188

;
‘

016356
016362
016364
016366
016372
016374
016376
016400
016404
016406

016410
016410
016414
016416

3187

016276

3179
3180
3181
3182

3183

3189

3190

3191
3192
g}gz

08-JuL-80

0B-JuL-80 08:25

012737

104415
106002
103005
004737
103406
104006
000404
004737
103001
104006

016420

004537
000377
000001
010237

016432

001351

016434

016440

005203
022703
104415

104414

016442

021264

016452
016454
016456

001401
104034
104400

016444

032761

08:26

000176
000001
001252

001252

64%:

032314

€58:

66%:

000010
034114
000001

1%:

032314

2%:
3%:

033776

5%:

016414

PAGE 65

000014

:LOAD QUT DATA
;WAIT FOR OCOR TO SET
;CLEAR BIT COUNTER
;LOAD CHARACTER IN RZ
;2 _TICKS TO SET UP TRANSMITTER

DATACLK,
1
RORB
TEMP3
BCS
65%
JSR
PC,GETSI
BCC
66%
HLT
26
BR
66%
JSR
PC,GETSI
B(S
66%
HLT
26
INC
R3
CMP
#10,R3
BNE
649
CLR
R3
CLR
BITCON

;CLOCK FLAG ONCE
;SHIFT SOFT FLAG
:BR IF BIT IS MARK
;LOOK AT BIT WINDOW
:BR IF OK
;ERROR IN FLAG CHAR

JSR
377
1
MoV

RS,STFFCK

;CHECK FOR BIT STUFF
;DATA CHARACTER
;SHIFT COUNT
:LOAD CHAR FOR STUFF CHECK

BNE

MoV

#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3

DATACLK,
1
R2
RORB
BCC
2%
JSR
PC,GETSI
BCS
3%
HLT
)
BR
3%
JSR
PC,GETSI
BCC
3%
6
HLT

DATACLK,

R2,5%

- 021264

BIT

4$:

BEQ
HLT
SCOPE

#BIT5,4(R1)
1)
34

;LOOK AT BIT WINDOW
;BR _IF OK
;ERROR IN FLAG CHAR
;INC BIT COUNT
:FLAG DONE YET?
:BR_IF NO
;CLEAR BIT COUNT
;CLEAR STUFF COUNT

sSHIFT 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

NEXT BIT
:DONE YET?

R3
#10,R3

ROMCLK

000004

SEQ 0064

122110
JSR
PC,O0COR
CLR
R3
MOV
RS.R2
DATACLK,
2

INC
CMP

000010

000040

BASIC TRANSMITTER TESTS

032346
000002

: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

l
|

3195
3196

sevenennerererereeennnennnne TEST 24 tetvnttctcnnnsntnnanennnens

~;
‘

3198
3199
3200

:«SINGLE CLOCK A BINARY COUNT PATTERN
;*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)

3202

;*AND RS CONTAINS THE CHARACTER THAT FAILED
R LR

3197

3201

3203
|

:«BITSTUFF TRANSMITTER TEST

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

AR AR AR

—

;

0052

(ZDMF

MACY11

CZDMF.P11

30A(1052)

08-JUL-B0

0B8-JUL-B80 08:25

08:26

016460
016466

012737
012737

016474

104412

3212
3213
32164
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228

016502
016506
016506
016512
016516
016522
016524
016526
016530
016534
016542
016544
016546
016550
016552
016556
016562

3211

|
|

3229
3230
3231
3232

3233

32364
3235
3236

3237

3238
3239
3240
3241
3242
3243

3244

3245
3246
3247

3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258

—

3259

016476

016564
016566
016570
016574

005061

104414
122117
004737
005037
012711
005003
005004
005005
004737
012761
104414
122111
104414
122110
004737
010461
104414

000024
017012

032500
000001

122110
004737
104415

032346
000002

016622
016626
016632
016634
016640
016642

104415
106037
103405
004737
103006
104026

016614

016644

016646
016652
016654

016656
016660
016664
016666
016670
016674
016676
016700
016704
016710
016712
016714

012737

004737
103401
104026

005203
022703
001356
005003
005037
005003
010502
010237
104415
106002
103005
004737

000176
000001
001252

122110
INC

001252

648:

032314

000010

034114
016742
000001
032314

MOV
MOV

CLR

000004

658:

668:

‘:

18:

SEQ 0065

TEST 24

ROMCLK
122117
JSR
CLR
MOV
(LR
CLR
(LR
JSR
MOV
ROMCLK
122111
ROMCLK
122110
JSR
MOV
ROMCLK

032500
000004

016602
016604
016610

jeeccccccccccas

MSTCLR

133676
034114
004000

032500
000004

104414

TST24:

000004

122110
005204
004737
010461

016600

001226
001216

—

BASIC TRANSMITTER TESTS
:

3207
3208
3209
3210

PAGE 66

3204
3205

3206

#24,1STNO
#TST25 NEXT

4(R1)

;R1 CONTAINS BASE DMC11 ADDRESS
{MASTER CLEAR DM(11

;CLEAR PORT4

PC,CLRTO
BITCON
#BIT1, (R1)
R3
R4
RS
PC,OUTRDY
#LARD

PC,OUTRDY
R4, 4(R)
R4
PC,OUTRDY
R4,4(R1)

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PUT_LINE UNIT IN BITSTUFF MODE
:DO THIS AFTER MODE IS SET
;CONSECUTIVE 1'S COUNTER INIT TO 0
:SET LINE UNIT LOOP
:R3 CONTAINS BIT COUNT
iR& CONTAINS CHAR TO BE LCADED IN SILO
;R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT
:WAIT FOR OUT=READY
:SET BITO IN PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET_SOM!
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD GARBAGE CHAR
;WAIT FOR OUT=-READY
;LOAD PORT4 WITH CHARACTER
:NEXT WORD IS INSTRUCTION, RUMCLK PC=5304
:LOAD OUT DATA
: INCREMENT TO NEXT CHARACTER

JSR
;WAL FOR OUT-READY
MOV
;LOAD PORT4 WITH CHARACTER
ROMCLK
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122110
:LOAD OUT DATA
JSR
PC,OCOR
:WAIT FOR OCOR TO SET
DATACLK
2
:2 TICKS TO SET UP TRANSMITTER
MOV
#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3
DATACLK,
1
:CLOCK FLAG ONCE
RORB
TEMP3
:SHIFT SOFT FLAG
BCS
65%
:BR IF BIT IS MARK
JSR
PC,GETSI
:LOOK AT BIT WINDOW
BCC
66%
:BR _IF OK
HLT
26
;ERROR IN FLAG CHAR
BR
66%
JSR
PC,GETSI
:LOOK AT BIT WINDOW
BCS
66%
:BR_IF 0K
HLT
26
;ERROR IN FLAG CHAR
INC
R3
:INC BIT COUNT
(MP
#10,R3
:FLAG DONE YET?
BNE
649
:BR_IF NO
CLR
R3
:CLEAR BIT COUNT
(LR
BITCON
;CLEAR BIT STUFF COUNTER
(LR
R3
:CLEAR BIT COUNTER

MOV

RS,R2

MOV
R2.68
DATACLK,
R2
RORE
2%
BC(
JSR

PCLGETSI

;LOAD CHARACTER IN R2

;LOAD CHAR FOR STUFF CHECK
;SHIFT NEXT BIT IN THE WINDOW (SI BIT)
;SHIFT NEXT SOFTWARE BIT IN TO CARRY
:BR IF CARRY CLEAR
:GET THE WINDOW

CZDM¢
MACY11 30A(1052)
08-JuL-80
CZOMF .P1N
08-JuL~-80 08 125

3260
3261
3262

3263
3266
3265
3266
3267
3268
3269
3270
3271
3272
3273
32764
3275
3276
3277
3278

3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299

3300
3301
3302
303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315

016720
016722
0167%4

016726
016732
016734
016736
016736
016742
016744
016746
016752
016754
016760
016762
016764
016770
016774
016776

017000
017002
017006
017010

103406
104006
000404

08: 26

PAGE 67

BASIC

TRANSMITTER TESTS

BCS

b33

HLT

004737
103001
104006

032314

004537
000000
000001
010237
005203
022703
001351
005204
004737
010461
104414
122110
005205
022705
001332
104400

033776

2%:
5

6%:

016742

JSR
BCC
JSR

1
MOV

INC
CMP
BNE
INC
JSR

000010
032500
000004

MOV
ROMCLK

122110
INC

000400
5%:

(MP
BNE
SCOPE

SEQ 0066

sBR IF BIT IS A MARK

;ERROR BIT WAS A SPACE

PC,GETSI
1%

;GET THE WINDOW
;BR IF BIT IS A SPACE

;CONTINE WITH TEST

JERROR BIT

WAS A MARK

RS,STFFCK

JCHECK

R2,6%

sSHIFT COUNT
;LOAD CHAR FOR STUFF

FOR BIT

sDATA CHARACTER

R3
10,R3
1%
R&
PC,OUTRDY

STUFF

(CHECK

JNEXT BIT
;DONE YET?
;BR IF NO
JNEXT CHARACTER
JWAIT FOR QUT-READY

R4 ,4(RY)

;LOAD PORT4 WITH CHARACTER
JNEXT WORD IS INSTRUCTION, ROMCLK

;LOAD OUT DATA

JNEXT

#400,RS
4

PC=5304

CHARACTER

sDONE YET?
;BR IF NO - ;SCOPE THIS TEST

stk rarerrreRR
et erenannan
t

**MULTIPLE

FLAG AND

TESH

ARANRR TN AN CRERRRROEARAROROTRSE

TRANSMITTER

ABORT

TEST

;*LOAD SILC WITH S FLAGS AND A CHAR (000)

S*VERIFIY IN THE BIT WINDCW THAT THE FLAGS

+*AND DATA
A

;3
017012
017020

012737
012737

017026
017030

104412
005061

017034
017036
017040
017044
017050
017054
017056
017062
017070
017072
017074
017076
017100
017102
017104
017110

104414
122117
004737
0127M
012700
005003
004737
012761
104414
12211
104414
122110
005300
001365
004737
005061

000025

017300

001226
001216

TST25:

MOV

b (01"

ROM(CLK

FOLLOWED BY

AN ABORT

#25,TSTNO

#TST26 NEXT
CLR

122117
JSR

MOV

000004

AND

TE3T &5

033676
004000
000005
1%:
ROMCLK

ROMCLK

032500
000004

CORRECT

(8 CONTIGUOUS 1°'S)

MSTCLR

000004

032500
000001

;*SEQUENCE

ARE

4(R1)

;R1 CONTAINS BASE DMC11
JMASTER CLEAR DM(11

sCLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PUT LINE UNIT IN BITSTUFF MODE
PC,CLRIO
;DO THIS AFTER MODE IS SET

#BIT17,(RY)

MOV

5 ,R0

JSR
MOV

PC,OUTRDY
#1,4(RY)

(LR

SNEXT

122111
:

12¢110
DEC

BNF

JSR
(LR

ADDRESS

JNEXT

RO
1%

PC,OUTRDY
4(R1)

SET

LU LOOP

sFLAG COUNT

sCLEAR BIT COUNTER

;WAIT FOR QUT-READY
;SET BITO IN PORT4

WORD

INSTRUCTION,

ROMCLK

P(=5304

INSTRUCTION,

ROMCLK

P(C=5304

;SET SOMm!

WORD

;LOAD GARBAGE
;DEC COUNT

sLOAD ANOTHER

CHAR

;WAIT FOR QUTRDY
;CLEAR PORT4

——

0053

CIDMF

0054

MACY11

CZDMF P11

3316
3317
3318
3319
%%g?

01711«
017116
017120
017124
8};}%2

104414
122110
004737
012700
104415

017134

012737

33264

017146

106037

3325
3326
3327

3328

3329
3330

3331
3332
3333
33364
3335
3336
3337
3338
3339
3340
3341
3342
3343
33446
3345
3346
3347
3348
3349
3350
3351
3352
3353
33564
3355
3356
ggg;

08-JuL-80

08-JuUL-80 08:25

3322

3323

'
'

30A(1052)

017142

104415

017152
017154
017160

103405
004737
103006

017164
017166

000404
004737

017162

017172
017174
017176
017200
017204
017206
017210
017212
017214
017216
017220
017224
017230
017232
017234
017236
017242
017244
017246
017252
017256
017262
017264
017266
017270
017274
017276

08:26

BASIC

TRANSMITTER

ROMCLK

032346
(000005
000002

(00176.
000001

001252

64%:

TESTS

SEQ 0067

122110
JSR
MOV

DATACLK,

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;LOAD A ZERO
PC,OCOR
JWALT
#5,R0
;RO = FLAG COUNT
2

:SET UP TRANSMITTER

MOV

#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER IN TEMP3

RORB

TEMP3

DATACLK,

;CLOCK FLAG ONCE

;SHIFT SOFT FLAG

032314

BCS
JSR
BC(C

65%
PC,GETSI
66%

;BR IF BIT IS MARK
;LOOK AT BIT WINDOW
;BR IF 0K

032314

BR
JSR

66%
PC,GETSI

;LOOK AT BIT WINDOW

104026

103401
104026
005203
022703
001356
005003
005300
001350
005003
005005
104415
004737
103001
104006
005203
022703
001366
005003
012705
104415
004737
103401
104033
005203
022703
001366
104400

PAGE 68

WLT

65%:

66%:

000010

000001
032314

BCS
HLT
INC
(MP
BNE
CLR

3%:

000010
000377
000001
032314

5%:

6%:

000010

3359

;ERROR IN FLAG CHAR

66%
;BR IF 0K
26
;ERROR [N FLAG CHAR
R3
;INC BIT COUNT
#10,R3
;FLAG DONE YET?
64%
:BR_IF NO
R3
;CLEAR BIT COUNT
DEC
RO
;DEC COUNT
BNE
2%
:BR IF NOT DONE
CLR
R3
:R3 = BIT COUNT
(LR
RS
;RS = "EXPECTED"
DATACLK,
1
. CLOCK ONCE
JSR
PC,GETSI
;G0 LOOK AT WINDOW
BCC
4%
;BR IF A SPA(CE
HLT
6
;ERROR, A MARK WAS SEEN
INC
R3
:INC BIT COUNT
(MP
#10,R3
;DONE YET?
BNE
3%
:BR_IF NO
CLR
R3
;CLEAR BIT COUNT
MOV
#377,RS
;RS = "EXPECTED"
DATACLK,
1
;CLOCK ONCE
JSR
PC,GETS!
;LOOK AT WINDOW
BCS
6%
;BR IF A MARY
HLT
33
;ERROR, A SPACE WAS SEEN
INC
k3
:INC BIT COUNT
(MP
#10,R3
;DONE YET?
BNE
5%
:BR IF NO
SCOPE
;SCOPE THIS TEST

3360

srtrenrrrerretereneternnnnnt JEST 26 ttenntttcvnnntntennentenenn

3365

3361
3362
3363
3364
3366

ggg;

3369
3370
3371

:
017300
017306

012737
012737

000026
017520

001226
001216

T57T26:

MOV
MOV

;*LEADING ZEROS TEST
;*VERIFEY THAT THE SETTING OF SOM AND EOM TOGE THER
;*AND THEN SOM ALONE WILL GENERATE 16 LEADING ZEROS
:*AND A FLAG,THE CHECK IS MADE USING THE BIT WINDOW
R

R R R

R R

R R R R R R R R R R R R R R RS

TEST 26
#26,TSTNC
#TST27 NEXT
;R1

CONTAINS BASE

DMC11

ADDRESS

CZDMF

0055

MACY11

30A(1052)

017314
017316
017322
017324
017326
017332
017336
017342
017350
017352
017354
017356

104412
005061
104414
122117
004737
012711
004737
012761
104414
122111
104414
122110

CZDMF P11

|
|
f
[

3372
3373
33764
3375
3376
3377
3378
3379
3380
3381
3382
3383

3384
3385
3386
3387
3388
3389

3390
3391
3392

3393

08-JuL-80 08:25

017360
017366
017370
017372
017374
017376

017400
017402
017406

01741C

012761
104414
122111
104414
122110
104414
122110
004737
005000

104415

3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413

017414
017420
017424
017426
017430
017432
017436
017440
017442
017450
017454
017460
017462
017466
017470
017472
017474
017500
017502
017504

104415
004737
103001
104041
005200
022700
001366
005003
012737
104415
106037
103405
004737
103006
104026
000404
004737
103401
104026
005203

3415
3416
g:};

017512
017514
017516

001356
005003
104400

3414

3419

3420
3421
3422
3423
3424

3425
3426

34327

08-JuL-80

017506

022703

08:26

MSTCLR

ROMCLK

000004

ROMCLK
ROMCLX

000001

C00004

ROMCLK
ROMCLK

ROMCLK
032346

000002
000001
032314

1%:

000020

000176
000001
001252

001252

64%:

032314

000010

BASIC TRANSMITTER TESTS

000004
033676
004000
032500
000003

PAGE 69

65%:

66%:

CLR
122117
JSR
MoV
JSR
MOV
122111

122110

MOV

122111
122110
122110
JSR
CLR

SEQ 0068
;MASTER CLEAR DMC11
;CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;
;SET T0 BITSTUFF MODE
PC,CLRIO
:DO THIS AFTER MODE IS SET
#BIT11,(RT)
;SET LU LOOP
PC,OUTRDY
;WAIT FOR OUTRDY
#3,4(R1)
;LOAD PORT4

4(R1)

;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
;SET SOM & EOM

JNEXT WORD IS INSTRUCTION,
; GARBAGE CHARACTER
" L4R)
:LOAD PORT4
SNEXT WORD IS INSTRUCTION,
;SET SOM
SNEXT WORD IS INSTRUCTION,
: GARBAGE CHAR
SNEXT WORD IS INSTRUCTION,
: GARBAGE (HAR
PC,O0COR
:HAIT FOR OCOR
RO

DATACLK,?2

ROMCLK PC=5304

ROMCLK P(=5304
ROMCLK PC=5304

ROMCLK PC=5304

;RO = BIT COUNT

;SET UP TRANSMITTER

DATACLK,1
;SINGLE CLOCK TRANSMITTER
JSR
PC,GETSI
;LOOK AT BITWINDOW
BCC
.t
HLT
41
;ERROR WINDOW WAS A MARK
INC
RO
(MP
#16.,R0
;16 ZEROS YET?
BNE
1%
BR IF NO
CLR
R3
R3= BIT COUNT
MOV
0‘8(01111110> TEMP3 PUT FLAG CHARACTER lN TEMP3
DATACLK,
1
CLOCK FLAG ONCE
RORB
TEMP3
SHIFT SOFT FLAG
BCS
65%
:BR IF BIT IS MARK
JSR
PC,GETSI
;LOOK AT BIT WINDOW
BCC
66%
;BR IF 0K
HLT
26
;ERROR IN FLAG CHAR
BR
66%
JSR
PC,GETSI
;LOOK AT BIT WINDOW
BCS
66%
;BR IF 0K
HLT
26
;ERRCR IN FLAG CHAR
INC
R3
;INC BIT COUNT
(MP

BNE
CLR

#10,R3

649
R3
SCOPE

;FLAG DONE YET?

;BR [F NO
;CLEAR BIT COUNT
;SCOPE THIS TEST

eerttreeetreereeeereveenene TEST Q7 ttvtvstrenanttnnttvecrnneny
*eBITSTUFF STRIP FLAG TEST
:+SET LU LOOP, SINGLE STEP S FLAGS,
t«VERIFY THAT IN ACTIVE DOES NOT SET
TR

;

TESY 27

bR SIS

CZDMF

0056

3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
343G
3440
3441
3462
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482

30A(1052)
08-JUL-80
08-JuL-80 08:25

MACY11

. P11
CZDMF

017520
017526

012737
012737

017534
017536
017542
017544
017546
017552
017556
017562
017566
017570
017574
017576
017600
017604
017610
017612
017614
017616
017620

104412

005061

104414
122117

004737
012711
012702
004737
000005
104415
104414

021244
016104
042704
005005

000027
017622

08:26

001226
001216

PAGE 70

SEQ 0069

BASIC RECEIVER TESTS

TST127:

MOV
MOV
MSTCLR

000004

(LR

ROMCLK

122117

JSKR

033676
004000
000012
032364

MOV
MOV
éSR

000054

#27,1STNO
#TST30, NEXT

MOV

120504

#BITIT,(R)
#12,R2
PC,SYNC

104040
104400

1%:

LINE

UNIT

IN BITSTUFF

;D0 THIS AFTER MODE IS SET
;SET LU LOOP

;SINGLE CLOCK 5 SYNC CHARACTERS
:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

:PORT4 LU12

:PUT "FOUND'' IN R4

4(R1) ,R4

#277 R4
RS

:CLEAR UNWANTED BITS

HLT
SCOPE

:ERROR ACTIVE

:PUT "EXPECTED'' IN RS

;1S ACTIVE CLEAR?
:BR IF YES

RS ,R4
1%

IS NOT CLEAR

:SCOPE THIS TEST

seerrnnrerrrrerverrenreennnn

;*BITSTUFF

MODE

;SAVE LU REG FOR TYPEQUT

BIC
(LR

(MPB
BEQ

001401

;PUT

PC,CLRIO

DATACLK,

000004
000277

ADDRESS

;CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1)

ROMCLK

021244

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

[EST

sevevenvveennvvectcernneees

IN ACTIVE TEST

;*SET LU LOOP, SINGLE STEP 5 FLAGS AND A NON-FLAG (301)
;*VERIFY THAT

[N ACTIVE

IS SET

,':Ql...""""""'"".'.t"i.'QQ.QQ'..Q""..".QQ"t"i't"'

000030
017726

017622
017630
017636
017640
017644
017646

017650
017654
017660
017664
017670
017672
017676
017700
017702
017706
017712
017716
017720
017722
017724

001226
001216

15130:

MOV
MSTCLR

000004

CLR

#30,TSTNO
#IST3T NEXT

122117

JSR

MOV
MOV

JSR

000064

DATACLK,
ROMCLK

000004
000277
000100

MOV

021244

BIC

MOV

1%:

(MPB
BEQ
HLT
SCOPE

ADDRESS

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

PC,CLRIO

#BIT11,(RY)
"2 ,R2
PC,SYNC

64
4&(R1) ,R4
#277 ,R4
#B116,RS
RS, R4
1%
40

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

;CLEAR PORT4

4(R1)

ROMCLK

033676
004000
000012
032364

104400

MOV

;PUT LINE UNIT IN BITSTUFF MODE
;D0 THIS AFTER MODE IS SET
:SET LU LOOP
;SAVE LU REG FOR TYPEQUT
;SINGLE CLOCK 5 SYNC CHARACTERS

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

:PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

:PUT “EXPECTED'" IN RS

;1S ACTIVE SET?
:BR

YES

;ERROR ACTIVE

IS NOT SET

:SCOPE THIS TEST

0057

(ZDMF

MACY11

C2DMF P11

30A(1052)

O08-JuL-80

08-JuL-80 08:25

08:26

PAGE

BASIC

3484

RECEIVER

TESTS

SEQ 0070

srrrrnnrrrererertvecevennent

TEST

wevncevcecevrncneneeveceneen

3485
3486

;*BITSTUFF IN ACTIVE TEST
;*SET LINE UNIT LOOP,SINGLE STEP ONE FLAG AND A CHAR (301)

TL88

AR R

3487

;*VERIFY THAT

3489
3490

3491

3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
ggs;

017726
017734

012737
012737

017742
017744
017750
017752
017754
017760
017764
017770
017774
020002
020004
020006
020010
020012
020020
020022
020024
020030
020034
020036
020040
020044
020050
020054
020056
020060
020062

104412
005061
104414
122117
004737
012711
012702
004737
012761
104414
122111
104414
122110
012761
104414
122110
004737
104415
104414
021244
016104
042704
012705
120504
001401
104040
104400

000031
020064

001226
001216

TST31:

000004

033676
004000
000012
032500
000001

000301

000004

032346
000023
000004
000277
000100

1%:

3523

3524

ggg?

3532
3533
3534
3535
3536
3537
3538
3539

IN ACTIVE

IS SET

TMTM

TEST O

Jemeeeeccccccas

MOV
MOV

#31,TSTNO
#TST32 NEXT

MSTCLR
CLR
4(R1)
ROMCLK
122117
JSR
PC,CLRIO
MOV
#BIT11,(RT)
MOV
#12,R2
JSR
PC,OUTRDY
MOV
#1,4(RY)
ROMCLK
122111
ROMCLK
122110
MOV
#301,4(RY)
ROMCLK
122110
JSR
PC,0COR
DATACLK,
23
ROMCLK
021244
MOV
4(R1) ,Ré4
BIC
#277 R4
MOV
#BIT6,RS
CMPB
RS ,R4
BEQ
1%
HLT
40
SCOPE

sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
;CLEAR PORT4
:
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
JPUT LINE UNIT IN BITSTUFF MODE
;MUST DO THIS AFTER MODE IS SET
;SAVE REG ADDRESS FOR TYPEOUT
;WAIT FOR OUTRDY
;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK
sSET SOM
SNEXT WORD IS INSTRUCTION, ROMCLK
;LOAD GARBAGE C(HAR
;LOAD PORT4
;NEXT WORD IS INSTRUCTION, RUMCLK
sLOAD OUT DATA
JWAIT FOR OCOR
;SINGLE CLOCK THE DATA
SNEXT WORD IS INSTRUCTION, ROMCLK
sPORT4 _LU=-12
;PUT "FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'" IN RS
IS IN ACTIVE SET?

PC=5304

P(C=5304
P(=5304

P(=5304

;ERROR, IN ACTIVE NOT SET
sSCOPE THIS TEST

Jeerarnrneenentreveneenennnr

3525
3526
3527
3528
3529

TEST

wnvevnvrennecntntctntnnanene

;*BITSTUFF IN ACTIVE TEST
;*SET LU LOOP, SINGLE STEP 2 FLAGS AND A NON-FLAG (301)
;*VERIFY THAT IN ACTIVE IS SET
AR
R
R
R
R R R R
R
I

; NN R
020064
020072

012737
012737

020100

104412

020102
020106
020110
020112

005061
104414
122117
004737

000032
020170

000004
033676

001226
001216

T1ST32:

MOV
MOV
MSTCLR

(LR
ROMC LK
122117
JSR

#32,1STNO
#TST33 NEXT

4(RY)
PC,CLRIO

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11

;CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT LINE UNIT [N BITSTUFF MODE
D0 THIS AFTER MODE IS SET

012711
012702
004737
000002

3540
3541
3542

3543

3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555

104415
104414

021244
016104
042704
012705
120504
001401

020166

08:26

PAGE 72

3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595

#MBIT1,(RT)
#2,R2
PC,SYNC

MOV

JSR

000033

DATACLK,
ROMCLK

000004
000277
000100

;SAVE LU REG FOR TYPEOQUT
;SINGLE CLOCK 2 SYNC CHARA(CTERS

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

021244

BIC

:CLEAR UNWANTED BITS

:PUT "FOUND'' IN R4

{MPB
BEQ

:PUT "EXPECTED'" IN RS
;1S ACTIVE SET?
;BR IF YES

SCOPE

:SCOPE THIS TEST

MOV

104040
104400

;SET LU LOOP

:PORT& LU12

MOV

:ERROR ACTIVE

HLT

sewrvnnneerretrrerrrnnennnen

3556
3557

TEST

IS NOT

SET

senvveecnvvetnnveentnneenne

;*IN CLE AR TEST!

;*SYNC UP RECEIVER AND TRANSMIT A (HARACTER
;*WAIT FOR IN RDY, THEN SET
;*VERIFY THAT IN ACTIVE AND

IN CLEAR
IN RDY ARE

CLEARED

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

020204
020206
020212
020214
020216
020222
020226
020232
020240
020242
020244
020246

1046412

005061

000033
020374

012737
012737

—

020170
020176

3
oo
—‘N

3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
b314
3572
3573
3574
3575
3576
3577
3578

SEQ 0071

BASIC RECEIVER TESTS

004000
000012
032364

oo
oo

0058

MACY11 30A(1052)
(2 DMF
08-JUL-80
F
. P11
(2 DM
08-JuL-80 08:25

5735

CLR

#33,7STNO
#1ST34 NEXT

122117
JSR

MOV

MOV
MOV
ROMCLK

000004

PC,CLRIO

#12,R2
#BIT11,(RY)
#1,4(R1)

122111

032644

000004
000357
000020

MOV
MOV

104040

012761

104414
122112

PC,CHARSD

000033
000002

BIC

000200

000004

1%:

(MPB
BEQ
HLT
MOV
ROM(LK
122112

DMC11

ADDRESS

;DO THIS AFTER MODE

IS SET

:SAVE REG ADDRESS IN R2 FOR TYPEOUT

:SET LINE UNIT LOOP
:SET BITO IN PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:SET SOM!

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

DATACLK,
TIMER,
4
ROMCLK

021244

CONTAINS BASE

:CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:PUT LINE UNIT IN BITSTUFF MODE

4(R1)

ROMCLK

122110
JSR

:R1

;MASTER CLEAR DM(C11

ROMCLK

001401

020324

MOV
MOV

MSTCLR

000004

033676
000012
004000
000001

¥ 33

4(R1),R4

#357 R4
#BIT4L RS
RS ,R4&
1%
40

#BIT7,4(RY)

:LOAD GARBAGE CHAR
:LOAD SILO WITH CHARACTER

;CHARACTER

:SINGLE CLOCK THE DATA
:WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:PORT4 LU 12

:PUT "FOUND'' IN R4

:CLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

;1S INRDY SET?

;ERROR, INRDY IS NOT SET
;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
JSET IN CLEAR

0059

(ZDMF

MACY11 30A(1032)
08-JuL-80
08-JuL-80 08:25

CZDMF P11

3599
3600

326
330
0332
020336
020342

104414
021244
016104
042704
005005

3602
3603

020346
020350

001401
104040

3605
3606
3607

020352
020356
020362

016104
042704
005005

3609
3610
3611

020366
020370
020372

001401
104040
104400

08:26

PAGE

SEQ 0072

BASIC RECEIVER TESTS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROM(LK

021244

000004
000277

MOV

2%:

000004
000357

:CLEAR UNWANTED BITS

HLT

;ERROR, IN ACTIVE IS NOT CLEAR

MOV

4L(R1) ,P4

;PUT "FOUND'' IN R4

;ERROR, INRDY IS NOT CLEARED
;SCOPE THIS TEST

BIC
CLR
CMPB
BEQ

120504

3%:

:PUT "FOUND'' IN R4

#277 R4
RS
R>,R4
2%

BIC
(LR
CMPB
BEQ

120504

:PORT4 LU 12

4&(R1) ,R4

HLT

SCOPE

;PUT "EXPECTED'' IN RS
;1S IN ACTIVE CLEAR?

#357 R4
RS
RS ,R&
1%

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

chreevrnresreveerveevernnenwn

TEST

vevtvnttnatneavtttnceenenne

;*BITSTUFF BASIC RECEICER TEST

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0
*VERIFY THAT

IN RDY

[S SET, AND THAT

THE

CHARACTER WAS RECEIVED

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

TEST

3622
3623

020374
020402

0
0

3625
3626
3627

020410
020412
020416

104414

000034
020542

020446
020450
020452
020454
020460
020462
020466
020472
020474
020476
020502
0506
020512
020514
020516
020520
0203520
020522

122111
104414
122110
004737
000000
104415
104416
104414
021244
016104
042704
012705
120504
001401
104040
104414
021204

1ST34:

MOV
MOV
MSTCLR

000004

033676
000012
004000
000001

3634
3635
3636
3637
3638
3639
3640
3641
36‘;
3643
3644
3645
3646
3647
3648
3649
3650
3651

001226
001216

#34,TSTNO
#TST3S NEXT

CLR

4L(RY1)

122117
JSR
MOV
MOV
MOV

PC,CLRIO
#12,R2
#BIT11,(RY)
#1,4(RY)

ROMCLK

000004

ROMCLK

122111

ROMCLK

122110

032644

éSR

000033
000002

DATACLK,
TIMER,

ROMCLK

021244

000004
000357
000020

MOV

4L(R1),R4

MOV

#B1T4 RS

BIC

(MPB
BEQ
1%:

PC,CHARSD

HLT

ROMCLK

021204

#357,R4
RS .,R4
1%

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

:CLEAR PORT4
NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:PUT LINE UNIT [N BITSTUFF MODE
;DO THIS AFTER MODE 1S SET

:SAVE REG ADDRESS IN R2 FOR TYPEOQUT
;SET LINE UNIT LOOP

:SET BITO IN PORT4
;gg¥rsgggo IS INSTRUCTION, ROMCLK PC=5304
:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:LOAD GARBAGE CHAR

:LOAD SILO WITH CHARACTER
: CHARACTER
:SINGLE CLOCK THE DATA
:WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=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
;PORT&_IN DATA

| 0060

MACY11 30A(1052)
CZDMF
CZDMF PN
08-JuL-80 0

3652
3653
3654
3655
3656
3657
3658

020524
020530
020532
020534
020536
020540

016104
005005

08-JuUL=-80

08:26
PAGE 74
BASIC RECEIVER TESTS

000004

MOV

120504

104010
104400

2%:

;PUT "'FOUND'' IN Ré&
PUT "EXPECTED'' IN RS

4(R1),R&
RS
RS,R4

(LR
(MPB
BEQ

001401

SEQ 0073

;WAS A O RECEIVED?

MLT

SCOPE

;ERROR, RECEIVED DATA [S WRONG
;SCOPE THIS TEST

,rereverrrtrvrrvrvecveevernne

TEST

;*BITSTUFF BASIC RECEICER TEST
s*SYNC UP RECEIVER AND SINGLE CLOCK

;*VERIFY
MR

&
020542
020550

000035
020712

020556
020560
020564
020566

001 22 6
001 21 6

TST3S:

[N RDY

MOV
MOV

(LR

ROMCLK

#35,7STND
#TST36,NEXT
4(R1)

122117

JSR

PC,CLRIO

MOV
ROMCLK

#1,4(RY)

MOV
MOV

000004

#BITIT,(RY)

122111

122110
JSR
125

DATA(CLK,
TIMER,
2
ROM(CLK

000004
000357
000020

MOV
BIC
MOV
CMPB

021244

BEG

104414

021204
016104
012705
120504

HLT

000004
000125

MOV
MOV
(MPB
BEQ

2%:

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

RS ,R4
1%
40

ROM(C LK

021204

001401

104010
104400

PC,CHARSD

000033
000002

1%:

SET,

AND

THE CHARACTER 12§

THAT

THE
R

(HARACTER WAS RECEIVED
R

HLT
SCOPE

4(R1),R4
#125,R5
RS.R4

;RT CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
;CLEAR PORT4
JNEXT WORD IS INSTRULTION, ROMCLK P(=5304
JPUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE

"3
R2

ROMCLK

032644

TR 35

MSTCLR

000004

033676
000012
004000
000001

THAT

eeveevcececcccennceeeneaney

IS SET

;SAVE REG ADDRESS IN R2 FOR TYPEOQUT
;SET LINE UNIT LOOP

;SET BITO IN PORT4

JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;SET SOM!
SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD GARBAGE (HAR
JLOAD SILO WITH CHARACTER
;CHARACTER

;SINGLE CLOCK THE DATA
JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304

;PORT4 LU 12

;PUT "FOUND"' IN R4

sCLEAR UNWANTED BITS

;PUT "'EXPECTED'" IN RS

;1S INRDY SET?

;ERROR,

INRDY [S %OT SET

SNEXT WORD IS INSTRUCTION,
;PORT4 [N DATA

ROMCLK

P(C=5304

;PUT "FOUND'' IN R&

;PUT "EXPECTED'" IN RS

;WAS A 125 RECEIVED?

;ERROR, RECEIVED DATA [S WRONG
.SCOPE THIS TEST

Jeeveneetvtevtrrretnrenevnee

TEST

;*BITSTUFF BASIC RECEICER TEST

eeececetveecnccnntnsnnnennee

CZOMF

MACY11 30A(1052)

CZDMF P11

0061

O08-JuL-B80

08-JuL-80 08:25

08:26

3711

;

;;}%
020712
020720

012737
012737

000036
021062

020726
020730

104412
005061

020736
020740

3723
3724

3726

|
.

3720
3721

3719

3727
3728
3729
3730
3731
3732

|
:

|
,

122117
004737

033676

122117
JSR

PC,CLRIO

;PUT LINE UNIT IN BITSTUFF MODE
;D0 THIS AFTER MODE IS SET

020750
020754

012711
012761

004000
000001

MOV
MOV

#BIT11,(R1)
#1,4(RY)

020764

122111

020762

020766
020770

104414

104414
122110

MOV

000004

ROMCLK

#128,R2

122111

ROMCLK
021244

;NEXT WORD IS INSTRUCTION, RUMCLK PC=5304
JPORT4 LU 12

MOV

4(R1),R4

3737

021024

012705

000020

MOV

#BITL RS

021020

021030
021032

3740

021034

3742

021036

3745
3746

3747
3748
g;gg

021036

042704

120504
001401

(MPB
BEQ
1%:

104414

021204

021046
021052

012705
120504

021054
021056
021060

BIC

104040

021040

021042

000357

016104

HLT

000252

001401
104010
104400

2%:

;PUT "FOUND'' IN Ré

sCLEAR UNWANTED BITS

RS ,R4
1%

;1S INRDY SET?

;PUT "EXPECTED'' IN RS

;ERROR, INRDY IS NOT SET

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOV

4&(R1),R4

BEQ
HLT
SCOPE

2%
10

MOV
(MPB

;LOAD SILO WITH CHARACTER
; CHARACTER
;SINGLE CLOCK THE DATA
;WAIT FOR INRDY

#357 ,R&

ROMCLK

021204

000004

;SET LINE UNIT LOOP
:SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

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

000004

104414
021244

;SAVE REG ADDRESS IN R2 FOR TYPEOUT
;SET SOM!

016104

021010
021012

032644

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK
122110

021014

3744

ARl

4(R1)

ROMCLK

3735

37643

MSTCLR
CLR

000033
000002

3741

000004

JSR
PC,CHARSD
252
33
DATACLK,
TIMER, 2

3738
3739

R A

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;CLEAR PORT4

004737
000252
104415
104416

3736

TEST 36

020772
020776
021000
021004

3733
3734

R R

#36,TSTNO
#TST37 NEXT

104414

TST36:

MOV
MOV

020734

001226
001216

3722 020744 012702 000012
3725

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252
;*VERIFY THAT [N RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

3710

3716
3717
3718

BASIC RECEIVER TESTS

3708
3709

3714
3715

PAGE 75

#252 ,RS
RS,R4

;PORT4 _IN DATA

;PUT “'FOUND'' IN R4

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

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

3751
3752

ceennnarnrecrrerrevnervennes JEST 37 aevnnentnrnnecntnnnnnnnnnne

3754
3755

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

3753

;*BITSTUFF BASIC RECEICER TEST

3756

:;ttt'tt"tt"'t"tt'ti"'tt.t'l.'tt.tQt!tttttlt'ttttt't"!'lt"

. TEST 37
gg 021062 012737 000037 001226 T1ST37: MOV
g;
#37,1STNO
3760
3757

3761
3762

3763

021070

012737

021076

104412

021232

001216

MOV

MSTCLR

#TSTLO, NEXT

;R1 CONTAINS BASE DMC11 ADDRESS

;MASTER CLEAR DM(1

SEQ 0074

08:26

PAGE 76

SEQ 0075

BASIC RECEIVER TESTS

000004

033676
000012
004000
000001

CLR

4(R1)

122117
JSR

PC,CLRIO

ROMCLK

MOV

MOV
MOV

000004

ROMC LK

:CLEAR PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#18,R2

#8171, (RN
#1,4(R)

122111

122110
JSR

032644

377
DATACLK,

000034
000002

TIMER,

ROMCLK

021244

“000004
000357
000020

1%:

104414

021204
016104
012705
120504
001401

MOV
(MPB

#B1T4,RS
RS,R&4

HLT

2%:

#357,R4
1%

:2E¥ngg$o IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHAR
:LOAD SILO WITH CHARACTER

:CHARACTER

:SINGLE CLOCK THE DATA

:WAIT FOR

INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK:PC=.304

: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 PC=5304

ROMCLK

MOV
MOV

4(R1),R4
#377.RS

HLT
$COPE

(MPB
BEQ

104010
104400

021204

000004
000377

4(R1) R4

BEQ

104040

PC,CHARSD

MOV

BIC

:PUT LINE UNIT IN BITSTUFF MODE
:D0 THIS AFTER MODE IS SET
:SAVE REG ADDRESS IN R2 FOR TYPEOUT
;SET LINE UNIT LOOP
:SET BITO IN PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

R5,Ré
2%

:PORT4

_IN DATA

;PUT "FOUND'' IN R4

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

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

sewnrrnenrtrrennenevnnernnnns

TEST

tvvennnnvnnvnevnnvetanentny

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

- :...""""'t"""'"IQ"'.'...""".'..i""."tt'!""""t

021246
021250
021254
021256
021260
021264
021270
021274
021300
021304
021306

SCEECIRRNECR M

021232
021240

NOOO—=ON=-FON~
OO WNNNN
— = O —
WRINNNNNNES 2N

;
OO
—-—

3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819

005061

—_—O
NOOO

3796

3797
3798
3799
3800
3801
3802
380
3804
3805

021100
021104
021106
021110
021114
021120
021124
021132
021134
021136
021140
021142
021146
021150
021154
021160
021162
021164
021170
021174
021200
021202
021204
021206
021206
021210
021212
021216
021222
021224
021226
021230

purd

3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
37764
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795

0062

MACY11 30A(1052)
(2 DMF
08-JUL-80
F
. P11
(2 DM
08-JuL-80 08:25

000040
021406

001226
001216

TEST 40
#40,TSTNO
#TSTLT NEXT

TST40:
MSTCLR

CLR

4(R1)

122117
JSR

PC,CLRIO

ROMCLK

CLR
COM

CLR
CLR
CLR

MOV

SCHAR
SCHAR
BITCON
STUFLG
R2
#73,R3

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

ADDRESS

;CLEAR PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE IS SET
;START BINARY COUNT AT ZEROQ

;IF BITSTUFF SCHAR IS MINUS NUMBER
;START 1'S COUNT AT 0
;CLEAR BITSTUFF FLAG

;R2 IS "EXPECTED'' DATA
R3

[S CHARACTER COUNT

012711
004737
104415
104415
004737
104414

021204
016104
010205
120504
001401

08:26

021404

000004

;SET LINE UNIT LOOP

021204

:PORT4_IN DATA

MOV
MOV

(MPB
BEQ

2%:

032710
000073
3%:

104400

SEQ 0076

#BITI1,(RT)
MOV
PC,SILOLD
JSR
DATACLK,
23
730
DATACLK,
PC,INRDY
JSR
ROMCLK

000400

004737
012703
000751

PAGE 77

BASIC RECEIVER TESTS

004000
032710
000023
000730
033154

104010

4(R1) R4

R2,RS
RS,R4

HLT
INC

CMP
BEQ
DEC
BNE
JSR
MOV
BR
SCOPE

PC,SILOLD

273 R3
1%

:LOAD SILO WITH COUNT PATTERN
SYNC RECEIVER AND GET IT ACTIVE
:CLOCK IN 73 CHARACTERS

‘WAIT FOR INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PUT "FOUND'' IN R4

‘PUT "EXPECTED'' IN RS
:1S DATA CORRECT?

:BR IF YES
;DATA ERROR
sNEXT CHARACTER
;ALL DONE?
;BR IF YES
;DECREMENT CHARACTER COUNT
:BR IF SILO NOT EMFTY
;LOAD SILO WITH MORE OF COUNT PATTERN
;RELOAD CHARACTER COUNT
; CONTINUE
;SCOPE THIS TEST

sennnnnrrarerererenenennnnnn

;*BITSTUFF DATA TEST

TEST

snnvennnnntnnenensnennnnenen

;*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

.Qt.t""t"t""""'t'fi"'tt'i't"""."."""t"."Q'"'t

TEST 1
o0

12737
12737

021406
021414

021422
021424
021430
021432
021434
021440
021444
021450

—_—O
— - O —b
TM
B
NOOO
nNO
—
o
o0
s
s~
&£ 50 oI
—
£~
BN
NS
NONO o
—
—
w
—h A et AP e s O - O
~
~N
~
S NWVNINN
S = 2

000041
021572

001226
001216

#41,TSTNO
#TST4L2 NEXT

TST41:
MSTCLR

CLR

5061

ROMCLK

122117
JSR
CLR
COM
(LR
CLR
(LR

S 2888888

4(R1)
PC,CLRIO
SCHAR

SCHAR
BITCON
gTUFLG

MOV

032710
000023
000730
033154

MOV
ROMCLK

BN -

000040

CLR

000004

0063

MACY11 30A(1052) gg JUL-B0
CZDMF
CZDMF .P11
08-JuL-80 08:

#BIT5,4(RY)

122112
PC.SlLOLg
JSR
DATACLK,
730
DATACLK,
PC,INRDY
JSR
ROMCLK

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;CLEAR PORT4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT LINE UNIT

IN BITSTUFF MODE

:DO THIS AFTER MODE IS SET
;START BINARY COUNT AT ZERO
J1F BlTSTUFF SCHAR IS MINUS NUMBER
:START 1'S COUNT AT 0
:CLEAR BITSTUFF FLAG
iR IS “EXPECTED'' DATA
:R3 IS CHARACTER COUNT
;CLEAR LU LOOP IN MAINT REG
:LOAD PORT4

:NEXT WORD IS lNSTRUCTION ROMCLK PC=5304
;SET LU LOOP IN LU REG
1
;LOAD SILO WITH COUNT PATTERN
;SYNC RECEIVER AND GET IT ACTIVE
:CLOCK IN 73 CHARACTERS
:WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

—

CZDMF

MACY11 30A(1052)

CZOMF P11

0064

08-JuUL-80 08:25

3876

021524

021204

3878

021532

010205

3877

3879
3880
3881
3882
3883
3884
3885
3886
3887

08-JuL-80

021526
021534
021536
021540
021542
021544
021550
021552
021554
021556

016104

120504
001401
104010
005202
022702
001407
005303
001360
004737

08:26

021566
021570

021204

000004

MOV

4(R1) R4

000400

(MPB
BEQ
HLT
INC
CMP
BEQ
DEC
BNE
JSR

RS ,R4
2%
10
R2
#400,R2
3%
R3
1)
PC,SILOLD

MOV

2%:

032710

mov

000751
104400

3%:

3892

:RELOAD CHARACTER COUNT

s CONT INUE
;SCOPE THIS TEST

;*WERE RECEIVED INDICATING THAT THE RECEIVER RECOGINIZED
;*THE ABORT SEQUENCE (8 CONTIGUIOUS 1'S)

;*RECEIVER ABORT TEST

3900

3902

;

3903
3904
3905
3906
3907

021572
021600

012737
012737

021606

021610

104412

005061

909
3910
3911

021616
021620
021624

122117
004737
012711

021636

004737

3915

3916
3917
3918

3919

3920

021614

021630
021634

021642

021204

021666

012705

3923

021672

'
:
;

3928
3929
3930

104414

021660

021656

021662

3925
3926

004737
000301

122110
104415
004737

3921

3926

104414

021644
021646
021652

3922

ANOTHER 301 AND 10 EXTRA

:«CLOCK TICKS, VERIFY THAT A 501 AND A BLOCK END

3901

3914

#75,R3

3897
3898

3912
3913

;1S DATA CORRECT?
;BR IF YES
;DATA ERROR
sNEXT CHARACTER
;ALL DONE?
;BR IF YES
sDECREMENT CHARACTER COUNT
;BR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN

3895

3908

‘

;PUT "'EXPECTED'' IN RS

;*SINGLE CLOCK 3 FLAGS, A 301,

3899

;PUT "'FOUND'' IN Ré

R2,RS

snrnrnnrerereneerernnnennnne TEST 42 tvtvennnntntnnnntetennnnennn

3896

BR
SCOPE

;PORT4 _IN DATA

3893

3894

SEQ 0077

BASIC RECEIVER TESTS

3888 021562 012703 000073

3889
ggg?

PAGE 78

021674

021676
021700

3927 021704

021706
021710
021714

104414

016104

120504

000042
021734

001226
001216

TST42:

122117
JSR
MOV

JSR
301

JSR

ROMCLK

000073
033154

021204

000301

021244
016104
042704

000004
000375

3931 021720 012705 000002

RN RN RN AR

PC,CLRIO
#BIT11,(RY)
PC,CHAR
PC,OUTRDY

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT LINE UNIT IN BITSTUFF MODE
;D0 THIS AFTER MODE IS SET
JSET LINE UNIT LOOP

;LOAD SILO WITH 3 FLAGS
;AND A 301
;WAIT FOR OUTRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD 2ND 301 CHARACTER
;CLOCK THE 301 IN AND 10 EXTRA TICKS
;WAIT FOR INRDY

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

;PUT "FOUND'' IN R4

4(R1) R4

(MPB

RS.R4

;WAS A 301 RECEIVED?

HLT
JSR

10
PC,INRDY

JERROR FIRST CHARACTER INCORRECT
;WAIT FOR INRDY

021244
MOV
BIC

4(R1) R4
#375 R4

;READ LU-12
;PUT "'FOUND'' IN Ré&
CLEAR UNWANTED BITS

MOV

1%:

R R RN R R R R R

MOV

BEQ

033154

4(R1)

ROMCLK

000004

104010
004737

#42,1STNO
#TSTL3 NEXT

122110
73
DATACLK,
PC,INRDY
JSR

001401

104414

MOV
[0}
(LR

032500

R R

TEST 42

ROMCLK

033676
004000
032532

R R R

;eeeeccccccccns

MSTCLR

000004

ROMCLK

MOV

#301,RS
1%

2 .RS

;PUT “EXPECTED'' IN RS

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

;PUT “EXPECTED'" IN RS

MACY11 30A(1052)
08-JuL-80
F
P11
.
08:25
CZDM
08-JuL-80
CZDMF

120504
001401
104032

(MPB
BEQ

3%:

104400

HLT

SCOPE

SEQ 0078

;1S BLOCK END SET?

RS, R4

3%
32

;BR IF YES

:ERROR, BLOCK END NOT SET
:SCOPE THIS TEST

JewRtRRRRReerereteeeeeennnne

TEST LT satvtnenenttatntnetetntveces

;*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, SET DTR

S«VERIFY THAT RING AND MODEM READY ARE SET
;*CLEAR DTR, VERIFY THAT MRDY IS CLEARED

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

:
021734
021742

021750
021752
021760
021762
021770
021772
021774

012737
012737
104412

032737
001004
032737
001473
005011
012761
104414
122113
104416
104414

021264
016104
042704
012705
032737
001402
042705

000043
022162

001366

040000

001366

000100

000004

000023
000310
020000

042705

000200

020504
001401

MOV
MOV

ROMC LK

ROMCLK

000002

000004
000023

BIT

001372

#100,4 (R1)

ADDRESS

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

:NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

:SET DTR
WAIT

CNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU13

#23 R&

; CLEAR JUNK

#310,RS

: PUT FOUND IN"R&

oeé113STAT1

s+
4 oNEW

. GET EXPECTED.
:

1S LINE UNIT M8202?

BIC

#BIT7.RS

: NO RING ON M8202

BIT

#BIT2,STATS

: 1S THIS V.35 MODEM?

BIC

#B117.RS

: YES=NO RING ON V.35 MODEM

CMP

RS ,R4

: ARE RING AND MODEM READY SET?

BEQ
3%:

CONTAINS BASE DMC11

021264

MOV

Séé

:R1

:MASTER
#BIT13,STAT]
412
#BIT14,STATI
2%
(R1)

122113
TIMER,

4(R1),R4

BIC
0013¢6

MOV

BEQ

000004

#43,TSTNO
#TST4L4 NEXT

BNE
BIT
BEQ
CLR

000200

022056
022062
022062
022064

TEST 43

MSTCLR

000004

NN
200
o0
—
S ONE
- —

TST43:

000002

032737
001402

OO =t it et i O —»

001226
001216

020000

022046
022054

SR3S14
S

0065

08:26 PAGE 79
BASIC RECEIVER TESTS

1$:

ROMCLK

ROMCLK
MOV
BIC
(LR

HLT

CLR

4(R1)

122113
TIMER,

021264
4(R1),R&
#2%,R4
RS

: NO THEN GO AHEAD.

. WARNING' IF V.35 AND AUTO STARTED,
© YOU WILL GET THIS ERROR. YOU MUST
© MANUALL NASWER THE QUESTIONS FOR V.35.
CERROR, MRDY NOT SET

*CLEAR PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:CLEAR DTR

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU13
: PUR FOUND INTR&
sooNEY
: STRIP JUNK
© SET EXPECTED.

066

CZDMF P11

|
;

3988
3989

‘
;
;
|

3990

3991

3992

3993
3994
3995
3996
3997

30A(1052)

08-JUL-80

08-JuL-80 08:25

0221;2
022130

022132

032737
001402

052705

022136

032737

022146
022152
022152
022154

042704

022144

001402

020000
000010

000004

08:26

001372

BIT

3999
4000

022156

022160

104400

2%:

4003

L0004

4007
4,008
4009

:8}?

(MPB
BEQ

R« ,RS
2%

HLT

l
|

022176
022200
022206
022210

104412
032737
001004
032737

020000

001366

040000

O0C:366

012711

004000

4019

6020

4021

4022

6023

4024
4025
6026

6027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037

:8;8

4040
4041
4042

4043

SCOPE

;

4015
64016
4017
4018

|
r
;

#BIT7,R

;

YES

;

ARE RING AND MRDY CLEAR?

THEN EXPECT MRDY SET.

IS THIS v.35?

; WARNING! YOU MAY GET THIS ERROR IF V.35
; AND AUTOSTART. YOU MUST MANNUALLY ANSWER

; ALL QUESTIONS IF v.35.
;ERROR, MRDY NOT CLEAR

;SCOPE THIS TEST

;*VERIFY
A

4014

BIC

1S THIS A M8202?

TEST L4 vtvcccevnvsentntnantetannnse

;*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO

#BIT2,STATS

;

Rt ranrrrtertrtrernnnnnnnt

4005
4006

012737
012737

’

#B1T3,RS

BEQ

104011

022162
22170

;

SEQ 0079

#BIT13,5TAT
+6

BIS

4s:

120405
001401

BASIC RECEIVER TESTS
BIT
BEQ

000200

001366

4012
4013

PAGE

3998

288;

MACY11

CZDMF

022216

022220

022224

022232
022234

022236
022242
022250

022252
022254
022260
022262
022264
022270
022272
022272
022274
022276
022302

001456

012761

104414

000100

001226
001216

TST44:

104416
012761
104414

122111
004537
034116
000100
012700
005011

022312
022320
022322

032737
001402
042705

032737

#44,TSTNO
#TSTLS NEXT
R1

000004

ROMCLK

033634
000050

2%:
ROMCLK
000004
000023

000354

000004

001372

000200
020000

001366

40%:

BIT

CONTAINS

BIT
BNE
BIT

MASTER
#BIT13, STAT1
412
081T1Q,STAT1

MOV

#MBIT11,(RT)

BEQ

104414

022306

MOV
MOV

ROMCLK
000002
000001

TEST 44

MSTCLR

122113

021264
016104
042704
012705

022326

000044
022356

THAT ALL MODEM SIGNALS ARE SET
R
R
R R R R R R R R R R R R SRR

MOV

#10C,

122113

TIMER,
MoV

122111
JSR
MESDAT
64.
MOV
CLR

2
#1,4(R1)

4(R1)

BASE

DMC11

ADDRESS

CLEAR DMC11
;1S LINE UNIT MB8202?
:BR IF YES (DO TEST EVEN IF NO LOOP-RACK CONN)
;1S TURNAROUND CONNECTOR ON?
;SKIP TEST

;SET LINE UNIT LOOP

;NEXT WORD

:LOAD PORTA4

INSTRUCTION,

ROMCLK PC=5304

SWALT
:LOAD PORT4
sNEXT WORD IS INSTRUCTION,

ROMCLK P(C=5304

:CLEAR

ALL

MODEM SIGNALS,EXCEPT

RS,MESLD

;SET SOM
SFILL OUT DATA SILO
;WITH 64 CHARACTERS

#50,R0
(R1)

;PREPARE FOR DELAY
;CLEAR LINE UNIT LOOP
;NEXT WORD

021264
MOV
BIC
MOV

4(R1) ,R4
#23,R4

BIT
BEQ
BIC

38112 STAT3
40%
#B117,RS

#354 RS

#BIT13,STATT

INSTRUCTION, ROMCLK PC=5304

;PORT4 LU13
;PUT "FOUND'' IN R4
:CLEAR UNWANTED BITS

:PUT "EXPECTED"" IN RS
s

SEE

DTR

4.3

; IF SO, NO RING.
;IS THIS mM8202?

0067

CIDMF
MACY11 30A(1052)
O08-JuL-80
CZ0MF P11
08-JuL-80 08:25
4046
4045
4046
4047
(048
4049
4050
4051
4052

4053
282?

022334
022336
022342
022342
022344
022346
022350
022352

120504
001403
005300
001350
104011

022354

104400

001402
042705

08:26
PAGE 81
BASIC RECEIVER TESTS
BEQ

000200

“$:

1%:

SEQ 0080

8 3
BIC

#B1T7,RS

(MPB
BEQ
DEC
BNE
HLT

RS, R4
1%
RO
2%
1

;

NO,SKIP

;COMPARE EXPECTED AND FOUND
:BR IF 0K
;DEC DELAY COUNT
:BR IF NOT ZERO
;ERROR, ALL SIGNALS ARE NOT SET
; YOU MUST ANSWER ALL QUESTIONS

; MAUNALLY IF v.35 .
:SCOPE THIS TEST

SCOPE

4056

4057

2828

4065

4078
4079
4080
4081
«082

4083
4084
4085
4086
4087
4088

;
022356

012737

022364
022372

012737
012737

022400
022402
022406

104412
005061
104414

022410

022412

022416
022422
022426
022432
022434

022442
022450
022454
022460
022464
022466

004737

005037
012711
004737
005000
012737

012737
005037
005137
004737
000000
104415

022472

2835

022476

005200

4093

022500

004537

022504
022506
022510
022512
022514
022520

000045

022722
022426

001226

001216
001220

I.S

R R

R R X2 2L ]

SINGLE CLOCK THE

CHARACTER

104415

000001
000000
000000
103405
004737
103006

TST4S:

TEST 45

Jemeeeeccccccaan

MOV

MOV
MOV
MSTCLR

000004

ROMCLK

122117

2833

4094
4095
4096
4097
4098
4099

TEST

.' ;t't'.tQ""t"""'t"t'!ttiQtt"'tt't"tt"tt.tt'tttt'tt'tt't

4066

4077

;*TEST TRANSMITTER FIRST THEN THE RECEIVER B(C

1.06‘.

28;2

;*0, VERIFY THE LSB OF THE BCC ON EACH SHIFT

4063

4069
4070
A4l
6072
4073
4074

R R

;*USING THE CRC.CCITT POLYNOMIAL,

:82;

4068

;*TEST OF CRC OPERATION

4060

4067

033676

000000
022510
022510
033336
000021

000001

64%:
033332

022506

65%:

033210
66%:
67%:
033450

#TSTL
, NEXT
E
#64%,L0CK

CLR

4(R1)

122117
JSR

034114
004000
033676
102010

#45,TSTNO

CLR
MOV
JSR
CLR
MOV

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
:CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PUT LINE UNIT IN BITSTUFF MODE

PC,CLRIO

;DO THIS AFTER MODE

MOV
#0,66%
CLR
67%
COM
67%
JSR
PC,BCCLD
0
DATACLK,
21

DATACLK,

INC

JSR

RS,SIMBCC

1
0
0
BCS
JSR
BCC

IS SET

BITCON
;CONSECUTIVE 1'S COUNTER INIT TO 0
#BIT11, (R1)
;SET LU LOOP
PC,CLRIO
;CLEAR BCC REGISTERS
RO
;START SHIFT COUNTER AT ZERO
#CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOF TWARE B((

68%
PC,GETQO
69%

;LOAD CHAR FOR SOF TWARE B((
;CLEAR OLD SOF TWARE BCC
;START AT -1
;LOAD OUT SILO WITH 2 SYNCS
:AND THE CHARACTER 0
,GET TRANSMITTER ACTIVE

;SHIFT BCC ONCE

;BUMP SHIFT COUNT
;CALCULATE SOF TWARE BC( LSB

;ONE SHIFT
:DATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB 1S SET
:GET HARDWARE TRANSMITTER BCC LSB
:BR IF HARD BCC LSB IS CLEAR

4105

64106
4107
4108
4109
4110
41N
4112
4113
L1114
4115
4116
6117
4118
4119

4120
L2
4122
4123
4124

4125
4126
6127

4128
4129
4130
M3
4132

4133
4134
4135
4136

4137
4138

4139

6140
4141
4142

4143

4144

4145
L146
4147
4148
4149
4150
15
152
4153
4154
4155

W B N NN NN
OO
NO SN

6104

NNON O NV
SO

4103

S LN LN N NT N NT NT NI NT NT N NT N T ¥
LS LN LN T NTNTNTNTNTNT
NT N NT NN
VAW
VN W AW WA

4100
6101
4102

[oleleoleleleleleleololololelole]

0068

MACY11 30A(1052) gB JUL-B0
CZDMF
(2 DMF .P1T
08-JuL-80 08:

022626
022632

08:26

103401
104016

104401

012737
004737
005000
012737
012737
005037
005137
004737
000000
104415
104415

022636

005200

022640
022644
022646
022650
022652
022654
022660
022662
022664
022666
022672
022674
022676
022676
022702
022710
022714
022716
022720

004537
000001
000000
000000
103405
004737
103006
104013
000404
004737
103401
104017

006037

013737
022700
001346
104401
104400

SEQ 0081
12

HLT

033450

68%:
69%:

006037
013737
022700
001346

022510

BR
JSR
BLS

PC,GETQO

HLT

102010

000000
022650
022650
033336

033332

022646

72%:

033210
73%:
74%:

033462

022646
033334
000010

75%:

76%:

77%:

SCOPE

ettt

YET?

;CLEAR BCC

REGISTERS

;START SHIFT COUNTER
AT ZERO

0,738

(oM
JSR

74%
PC,BCCLD

l(RC CCITT,XPOLY:LOAD

FOR

;START AT -1
;LOAD OUT SILO WITH 2
sAND THE CHARACTER 0

;BUMP SHIFT COUNT

JSR
1

RS,SIMBCC

;CALCULATE

SOFTWARE

;ONE SHIFT
;DATA CHARACTER
:0LD BCC

75%

;BR

PC,GETQI

:GET

76%
13
76%

_IF

SOFT BCC LSB

BCC

LSB

IS SET

HARDWARE

RECEIVER BCC

LSB

HARDWARE

RECEIVER BCC

LSB

:BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
: CONTINUE

PC,GETQI

;GET

76%

:BR

HARD BCC LSB IS SET

;ERROR, BCC LSB

73%
CALBCC,74$
#10,R0
72%

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
;DONE YET?
:BR [F NOT DONE

;SCOPE

rrenetrerttnnnnennn

;*TEST OF

SYNCS

JSHIFT BCC ONCF

(MP
BNE
scopP1

BC(

sGET RECEIVER ACTIVE

INC

BR
JSR
BCS
HLT

SOF TWARE

:CLEAR OLD SOF TWARE BC(

DATACLK,

POLYNOMIAL

;LOAD CHAR FOR SOF TWARE BC((

74$

DATACLK,

0
0
BCS
JSR
BCC

IS CLcAR

;NEW SCOPE1

PC.CLRlO

MOV
MOV

ROR
MOV

022650

HARD BCC LSB

LSB

:BR IF NOT DONE
:SCOPE SUBTEST (SwW09=1)

#71%,L0CK

JSR
CLR

HLT

033462

;DONE

65%

MOV

TRANSMITTER BCC

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC

#i0,R0

000032

:FRROR,

66%
CALBCC,67%

ROR
MOV

CLR

000001

;65T HARDWARE

;BP IF HARD BCC LSB IS SET

SCOoP?

71%:

s CONTINUE

69%

(mpP

001220

;ERROR, BCC LSB IS SET

69%

BNE

022566
033676

BASIC RECEIVER TESTS

104012

000404
004737

PAGE 82

:SCOPE SUBTEST

THIS TEST

TEST

IS CLEAR

(SW09=1)

trvennnvnnnntntcenttttnnnne

CRC OPERATION

s*USING THE

CRC.CCITT POLYNOMIAL,

SINGLE

CLOCK

:*377, VERIFY THE LSB OF

THE BCC ON EACH SHIFT

;*TEST

THEN

TRANSMITTER

FIRST

THE

RECEIVER B(C

THE

CHARACTER

.':Ql.."".""""'tt""'l't'.."l.'Q't""'!."ll"Q'Q."l."

TEST

30A(1052)
08-JuL-80
08-JuL-80 08:25

£160
4161

L164

6165

04 73
005037
012711

6166
L167
4168
6169

4208
4209
6210
VAR

004737

033450

e
d o

rorON

—

033210

AN N N NN N

004537
000001
000000
000000

SOOmmbbwuNNN—-‘-‘o
ONOO NS ONNNOONNOO

4207

023064
023070
023072
023074
023076
023100
023104
023
02
02

NSO

4203
4204
4205
4206

005200

e e e

4194
£195
4196
6197
4198
4199
4200
4201
4202

000021
034114
023056
000001
033776

023062

e e o

4193

000377
023074
023074
033336

023060

h e o

6192

104415

103405

103006
104012

000404
004737

103401
104016

013737
006037
013737
022700
001337

64%:

102010

004537
000000
000001

N U L U L U U U L U

106415

005037
005037

A b b b
o~

4185
4186
4187
4188
4189
4190

004737
005000
012737
012737
005037
005137
004737
000377

#TSTLT7 NEXT
#648,.0CK

ROM(CLK

033676
034114
004000
033676

65%:
60%:

66%:
67%:

68%:

023072

023056

69%:

023074

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11
;CLEAR PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PUT LINE UNIT IN BITSTUFF MODE

;DO THIS AFTER MODE IS SET
;CONSECUTIVE 1'S COUNTER INIT T0 0

JSR
CLR
MOV

PC,CLRIO
BITCON
#BIT11,(RT)

CLR
MOV

RO
;START SHIFT COUNTER AT ZERO
#CRC.CCITT, XPOLY;LOAD POLYNOMIAL FOR SOF TWARE

JSR

PC,CLRIO

;SET

LU LOOP

;CLEAR BCC REGISTERS

MoV
#377,66%;
CLR
67%
COM
67%
JSR
PC,BCCLD
377
DATACLK,
21
BITCON
CLR
CLR
60%

;LOAD CHAR FOR SOF TWARF B(C(
;CLEAR OLD SOFTWARE BC(
;START AT -1
;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 377
;GET TRANSMITTER ACTIVE
;CLEAR BIT COUNTER

JSR

;CHECK FOR STUFFING ZEROS

DATACLK,

RS,STFF(CK

;SHIFT

. CHARACTER

sSHIFT

COUNT

;BUMP SHIFT COUNT

JSR

RS,SIMBCC

;CALCULATE SOFTWARE BCC LSB

0
0
B(CS

68%

;DATA CHARACTER
.0LD BCC
;BR IF SOFT BCC LSB IS SET

BCC

69%

;BR IF HARD BCC LSB IS CLEAR

BR
JSR

69%
PC,GETQO

PC,GETQO
12

B(C

BCC ONCE

INC

;ONE

SHIFT

;GET HARDWARE

TRANSMITTER BCC

;ERROR, BCC LSB

. CONTINUE
:GET HARDWARE

LSB

IS SET

BCS

69%

TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS SET

MOV
ROR
MOV

66%,60%
66%
CALBCC,67%

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC

BNE
SCOP1
MOV
JSR

65%

HLT

(MP

71%;

4(R1)

122117

HLT

104401

012737
004737
005000
012737
012737
005037

CLR

JSR

033450

SEQ 0082

#46,TSTNO

TST46:

MSTCLR

—_so

04
05
04
22

6162
6163

6170
an
672
673
6174
6175
6176
677
4178
6179
4180
4181
4182
4183
4184

NN~

OO0O0O

12
12
12

4158
4159

08:26 PAGE 83
BASIC RECEIVER TESTS

—
O =
NS

64156
L6157

NN
NN

MACY11

CZDMF

(2 DMF .P11

o
[elelelelelelelelelelelelelele]
N N NT N
oo LY

069

CLR
MOV
MOV
(LR

#10,R0

#71%,L0CK

PC,CLRIOD

RO
#CRC.CCITT
#377,7%%:;
74%

;ERROR, HARD BCC LSB IS5 CLEAR

;DONE

YET?

:BR IF NOT DONE
;SCOPE SUBTEST (SW09=1)
;NEW SCOPE1

;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO
XPOLY;LOAD POLYNOMIAL FOR SOF TWARE

;LOAD CHAR FOR SOF TWARE BC((
;CLEAR OLD SOF TWARE BC(C(

B((

(RS ST ST ST ST NI N1,N NI 1N N1,V ]
POPOPOPNORNIN
= b
b
s
VBN
2O 000 NN
Wwr

-JUL-80

08:26

PAGE 84

COM

005200

023232
023236
023240
023242
023244
023246
023252
023254
023256
023260
023264
023266
023270
023270
023274
023302
023306
023310
023312

004537
000001
000000
000000

033210

004737

033462

000404

004737
103401
104017

006037
013737
022700
001346

377
DATACLK,

72%:

023230

103006
104013

749

JSR

104415
104415

103405

SEQ 0083

BASIC RECEIVER TESTS

005137
004737
000377

023240
033334
000010

;CALCULATE SOFTWARE BCC LSB

0
0
BCS
JSR
BCC

75%
PC,GETQI
76%

;DATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BC(C LSB
;BR IF HARD BCC LSB IS CLEAR

BR
JSR
BCS

76%
FC,GETQI
76%

s CONTINUE
;GET HARDWARE RECEIVER BCC LSB
;BR IF HARD B(C LSB IS SET

BCC

LSB

;ERROR, BCC LSB

73%

;SHIFT

#10,R0

;DONE

CALBCC, 748

SHIFT

;ERROR,

BNE
scori

AR AR R R

;ONE

ROR

SCOPE

;SHIFT BCC ONCE

RS,SIMBCC

(mp

77%:

;AND THE CHARA(CTER 377
;GET RECEIVER ACTIVE

33
1

JSR

MOV

023242

;LOAD OUT SILO WITH 2 SYNCS

;BUMP SHIFT COUNT

HLT

76%:

-1

73%:

INC

HLT

033462

;START

PC,BCCLD

DATACLK,

73%:
74%:

104401
104400

SET

IS C(LEAR

SOFT DATA

;LOAD OLD SOFT B(C

72%

YET?

;BR IF NOT DONE
;SCOPE SUBTEST (SW09=1)

;SCOPE THIS TEST
A A R R A AR AR AR ]

;*TEST OF

TEST

tttsennttnnnteasnttnsttenny

CRC OPERATION

;*USING THE CRC.CCITT POLYNOMIAL, SINGLE CLOCK THE CHARACTER
;*125,

VERIFY

THE

LSB OF

;*TEST

TRANSMITTER FIRST

THE BCC ON EACH SHIFT
THEN THE

RECEIVER BCC

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

—=—O0O—=
MNOOO
RS WVWS

=508~
— O
=
NS

OO0Oo

———
rororo
NN

TEST

4261
4262

4265
4267

023400

000
OO0
—ot
O
—-0O00
ROROWVESNOWME
NNONNO~N
WANO
N — NN
NNON=NN

070

MACY11 30A(1052)
1
P1
08-JuL-80 0

000047
023660

023364

001226
001216
001220

MOV

ROMCLK

#47,T1STNO
#TSTSO, NEXT

#64%,10CK

CLR

64%:

033332
023444

4(R1)

122117

JSR

033676
034114
004000
033676
000125

MOV
MOV

MSTCLR

000004

102010

TST47:

;CLEAR PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
IN BITSTUFF

PC,CLRID

;D0 THIS AFTER MODE IS SET

#BIT11,(R1)

;SET LU LOOP

BITCON

JSR

PC,CLRIO

(LR
MOV
MOV

;MASTER CLEAR DM(11

;PUT LINE UNIT

CLR

MOV

;R1 CONTAINS BASE DMC11 ADDRESS

MODE

;CONSECUTIVE 1'S COUNTER INIT TO O
;CLEAR BCC REGISTERS

RO
;START SHIFT COUNTER AT ZEROD
#CRC.CCITT, XPOLY;LOAD POLYNOMIAL #OR SOF TWARE
#125,66%;
;LOAD (HAR FOR SOF TWARE B(C(

BC((

0071

f——

MACY11 30A(1052)
CZDMF
gg JUL-B0
F
. P11
CZOM
08-JuL-80 08:
4268
4269
4270
627

672
4273

6274
6275
6276
6277
4278
4279
4280
4281
4282
4283

005037
005137
004737
000125

023434

005200

023436
023442
023444
023446
023450
023452
023456
023460
023462
023464
023470
023472
023474
023474
023500
023506
023512
023514
023516
023524
023530
023532
023540
023546
023552
023556
023562
023564
023570

004537
000001
000000
000000

033210

004737

033450

023574

005200

023576

004537
000001
000000
000000

033210

004737

033462

103405

103006
104012

000404
004737
103401

001346

104415
104415

103405

103006
104013

65%:

SEQ 0084

TESTS

66%:
67%:

;CLEAR OLD SOFTWARE BCC(
;START AT -1

67%
67%

;LOAD OUT SILO WITH 2 SYNCS

PC,BCCLD

DATACLK,
DATACLK,

INC

;BUMP SHIFT COUNT

RS,SIMBCC

;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT
;DATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
; CONTINUE

68%

PC,GETQO

69%

023444
033334
000010

69%

68%:

033450

66%
CALBCC,67%

023446

#10,R0

65%

001220

71%:

000032
000001

72%:

PC.BCCLD
JSR
125
32
DATACLK,

75%:

76%:

023606

DATACLK,

SOFTWARE

:START AT -1

;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 125

;GET RECEIVER ACTIVE
;SHIFT BCC ONCE

INC

sBUMP SHIFT COUNT

JSR
1

RS,SIMBCC

;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT

BCS
JSR
BCC

75%

0
0

HLT

023604
03333

FOR

;LOAD CHAR FOR SOF TWARE BCC
:CLEAR OLD SOF TWARE BCC

73%:
74%:

006037
013737

;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

TT,XPOLY;LOAD POLYNOMIAL

033332
023604

033462

;GET HARDWARE TRANSMITTER BCC LSB
;:BR IF HARD BCC LSB Il SET
;ERROR, HARD BCC LSB IS CLEAR

PC,GETQO

69%

69%:

;AND THE CHARACTER 125
;GET TRANSMITTER ACTIVE
;SHIFT BCC ONCE

000404
004737

103401
104017

023640

0 00021
000001

104401

012737
004737
005000
012737
012737
005037
005137
004737
000125

RECEIVER

(LR
(0%
/3R
125

104016

006037
013737
022700

PAGE 85

BASIC

0 23446
0 23446
0 33336

023406
023412
023416
023422
023424
023430

104415
104415

08:26

BR
JSR
BCS
HLT
ROR

MOV

;DATA CHARACTER
PC,GETQI

76%
13
76%

PC,GETQI

76%
17
73%

CALBCC,74%

.0LD BCC
;BR IF SOFT BCC L S B IS SET
BCC LSB
3
;GET HARDWARE RECEIVER
.BR IF HARD B(C( Lg B IS CLEAR
;ERROR, BCC LSB IS

SET

. CONTINUE
;GET HARDWARE RECEIV ER B{( LSB
;BR [F HARD BCC LSB 1S SET
;ERROR, BCC LSB IS C LEAR

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC

BCC

—

CZOMF
MACY11 30A(1052)
08-JuL=-80
C20Mf . PN
08-JuL~-80 08:25

)072

6324
6325

6326
2%%;

023646
023%52

0236564
023656

022700
001346

p—

08:26 PAGE 86
BASIC RECEIVER TESTS

000010

(mp
BNE

1046400
104400

77%:

4329

4330

SCOP1

SEQ 0085
#10,R0
72%

A R A R R

;DONE YET?
;BR IF NOT DONE

;SCOPE SUBTEST (Sw09=1)
:SCOPE THIS TEST
]

TEST

weeencncnenentrcetaneceense

:fi;

;*TEST OF CRC OPERATION

4333
:%;g

:*USING THE CRC.CCITT POLYNOMIAL, SINGLE CLOCK THE
:*252, VERIFY THE LSB OF THE BCC ON EACH SHIFT
«TEST

TRANSMITTER FIRST

THEN THE

CHARACTER

RECEIVER B(C

4337

.-;QQQ'Q""'"Q""""t"t't'Qttt"tt'tt't'ttttttt'tttt""""

4338
4339
4340
4341
6342
4343

023660
023666
023674

012737
012737
012737

:
TEST SO
|eeeeccccccccns
MOV
#50,TSTNO
MOV
#TSTST NEXT
MOV
#64%,L0CK

4346

023702
023704

104412
005061

4344
4345

4347
2%23
4350

4351

4352

023710
023712
023714

023720
023724

104414
122117

012711

004000

004737

4356
4357
4358
4359
4360
4361
2%2%

023744
023752
023756
023762
023766
023770
023774

012737
005037
005137
004737
000252
104415
104415

005000
012737

2%2%

024000

005200

4366
4367
4368
4369

024002
024006
024010
024012

004537
000001
000000
000000

4370
4371
4372
437%
4374
«375

4376

4377
«378
4379

024014
024016
024022
024024
024026
024030

024034

024036
024040
024040

103405
004737
103006
104012
000404

004737

103401

T1ST50:

MSTCLR

ROMC LK

033676

102010
000252
024012
024012
033336
000021

000001

646 :
033332
024010

65%:

033210

66%:
67%:

033450

024010

CLR

68%:

6£9%:

4(R1)

122117
JSR

034114

104016

006037

001226
001216
001220

000004

033676

005037

023730
02373&
023736

000050
024224
023730

004737

6353
4354
4355

SCOPE
AR AR

4336

r_____

:CLEAR PORT4

NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
sPUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE

#BIT11,(RY)

;SET LU LOOP

BITCON

JSR

PC,CLRIO

CLR
MOV

ADDRESS

PC,CLRIO

(LR

MOV

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

IS SET

:CONSECUTIVE 1°'S COUNTER INIT TO O

;CLEAR BCC REGISTERS

RO
;START SHIFT COUNTER AT ZERO
#CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOFTWARE BCC

MOV
#252,66%;
CLR
67%
COM
67%
JSR
PC,BCCLD
252
DATACLK,
21
DATACLK,
|

;LOAD CHAR FOR SOF TWARE BC(C
;CLEAR OLD SOF TWARE BC(C(
:START AT =1
;LOAD OUT SILO WITH 2 SYNCS
:AND THE CHARACTER 252
:GET TRANSMITTER ACTIVE
SHIFT BCC ONCE

INC

:BUMP SHIFT COUNT

JSR
1
0
0

RS,SIMBC(

:CALCULATE SOF TWARE B((
:ONE SHIFT
:DATA CHARACTER
;0LD BCC

BCS

69%

BCS
JSR
BC(
HLT
Bk
JSR

68%
PC,GETQO
69%
12
69%
PC,GETQO

HLT

ROR

668

LSB

:BR IF SOFT BCC LSB [S SET
:GET HARDWARE TRANSMITTER B(CC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
:CONTINUE
:GET HARDWARE TRANSM|TTER B((C LSB

;BR IF HWARD BCC LSB [S SET

;ERROR, HARD BCC LSB IS CLEAR

:SHIFT SOFT DATA

r
T

0073

(CZOMF

MACY11 30A(1052)

CZDMF . P11
4380

4381

4382
4383
(384
4385
4386
(387
4388

024044

024052

024056
024060
024062
024070
024074
024076
0264104

4389
4390

024112
024116

4392
4393

024126
024130

4391

024122

013737

022700

001346
104401
012737
004737
005000
012737
012737
005037
005137

004737

000252
104415

2;32

0264136

2%39

024140

005200

4398

024142

004537

4399

4400
4401
4602

4403
4604
405
4606
4407
4408
409

4610
46411
4612
4613
4614
4615

:2}9

08-JUL-80 08:26 PAGE 87

08-JUL-80 08:25

024146

024150
024152
024154

024156
024162
024164
024166
024170
024174
024176

024200
024200
02642064
024212
026216
024220

024222

104415

000001

000000
000000
103405

004737
103006
104013
000404
004737
103401
104017
006037
013737
022700
001346
104401

03333¢

000010

BASIC RECEIVER TESTS

024012

024070
033676

001220

102010
000252
024152
024152

033332
024150

MOV

71%:

000032
000001

72%:

033210
738
748

033462

75%:
76%:
024152

104400

77%

44629
4630
4631
4632

4433

4634
4635

74%
74%

;CLEAR OLD SOF TWARE BC((
SSTART AT =1

PC,BCCLD

;AND THE CHARACTER 252
;GET RECEIVER ACTIVE

32
1

DATACLK .

INC

JSR

RS,SIMBCC

0
o
BCS

YET?

;LOAD OUT SILO WITH 2 SYNCS

;SHIFT BCC ONCE

:BUMP SHIFT COUNT
;CALCULATE SOF TWARE BC( LSB

;ONE

SHIFT

:DATA CHARACTER
;0LD BCC
:BR IF SOFT BCC LSB

75%

SET

JSR
BCC
HLT
BR
JSR
BCS
WLT

PC,GETQI
76%
13
76%
PC,GETQI
76$
17

;GET MARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
: CONTINUE
;GET MARDWARE RECEIVER BCC LSB
:BR IF HARD BCC LSB IS SET
;ERROR, BCC LSB IS CLEAR

ROR
MOV
(MP
BNE
SCOP1

73%
CALBCC,748
#10,R0
72%

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

:SCOPE

Jrterennetevvetrenvveccernnne

THIS TEST

JEST

§1

secevcencnccevenaontrentenen

;*TRANSMITTER CRC TEST
;*USING THE CRC.CCITT POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT

“23

G628

SCOPE

:DONE

:BR [F NOT DONE
;SCOPE SUBTEST (SW09=1)
#71%,L0Ck
;NEW SCOPE!
PC,CLRIO
;CLEAR BCC REGISTERS
RO
;START SHIFT COUNTER AT 2ERO
#CRC.CCITT,XPOLY;LOAD POLYNOMIAL FOR SOF TWARE B((
#252,73%;
;LOAD CHAR FOR SOF TWARE B(C

252
DATACLK,

;LOAD OLD SOFT BCC

#10,R0

658

JSR

44620
44621
44622

4627

BNE
SCOP1
MOV
J3R
CLR
MOV
MOV
CLR
Com

4418
L4619

44624
4425
4626

CALBCC,678

cmp

03333¢

024150
033334
000010

SEQ 0086

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

024224

012737

026240
024242
026246

104412
005061
104414

024232

024250
024252
024256

012737

122117

004737
005037

000051

024546

000004
033676
034114

001226
001216

T1STS1:

;
TEST 1
;oeeecesscsscess

MOV

MOV
MSTCLR

ROMC LK

#51,1STND

#TSTS2 NEXT
(LR

122117

JSR
(LR

4(R1)
PC,CLRIO
BlicON

;R CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;CLEAR PORT4
;NEXT WORD IS INSTRUCTION,

;PUT LINE UNIT

ROMCLK PC=5304
IN BITSTUFF MODE

;DO THIS AFTER MODE 1S SET
;CONSECUTIVE 1'S COUNTER INIT

)074

MACY11 30A(1052)
CZ0m¢
08-JuL-80
CZOMF P11
08-JuUL-80 08:25
4636
4637
4638
4439
(440
6641
446462

024262

102010

033500
000004

444k

4466

4467
4468
4469
4470
471
4472

44673
4474
4475
4476
W77
4478
4479
4280
4481
4482
4483
4484

4485

4486
L4687
4488

4489
4490
4691

MOV

(LR
(LR
CLR

JSR

MOV

ROM(CLK

ROMCLK

032346
000021
024406
000001
024420
000001
033776

1%:
2%:
10%:

122110
INC
MOV
122110

4%:

033450

;R4
;RS

;CLEAR SOFT BCC

PC,SYNLD

;LOAD SILO WITH 2 SYNCS, SOM SET

#CRC.CCITT, XPOLY

R4 ,4(RT)

R&
R&,4(RT)

PC,OCOR

5%:

;PORT4_(HAR

; INCREMENT TO NEXT CHARACTER
:PORT4_CHAR

;NEXT WORD IS INSTRUCTION,

6%:

000010
024406

11%:

024422

ROMCLK P(C=5304

;LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
;PORT4_CHAR

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

RS.SIMBCC

;LOAD OUT DATA
;WAIT FOR OCOR
;CLOCK DATA

;START WITH ZERO

;START COUNT AT 1
;LOAD CHAR FOR SOFT (RC

JSHIFT BCC ONCE
;CHECK BIT STUFFING
; CHARACTER

sSHIFT COUNT
;CALCULATE SOFT BCC
;SOFT SHIFT COUNT

;SOFT CHARACTER

;0LD SOFT BCC
;BR IF SOFT BCC LSB IS SET

BCS

BCC

BR
JSR
BCS

6%
PC,GETQC
6%

ROR
DEC
BNE
MOV
MOV

10%RO
11%
#10,R0

;SHIFT CHAR FOR STUFF CHECK

ROR
MOV

3%
CALBCC,4%

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC
: INCREMENT BIT COUNTER
;DONE A FULL CHARACTER YET?
:BR IF NO

HLT

024406

;LOAD POLYNOMINAL

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

MOV
RS,10%
MOV
#1,R0
MOV
RS,3%
DATACLK,1
RS,STFFCK
JSR

JSR

033450

CONTAINS CHAR TO BE LOADED IN SILO
CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

;START AT -1

122110
JSR

0
0

;SET LINE UNIT LOOP
;JERO BIT COUNT

3
4

R&
R4 ,4(RT)

HLT

000400

#BIT11,(RY)

R3
R&
RS

INC
MOV

{SR

024420
033334

SEQ 0087

DATACLK,?2]

033210

000010

024514
024516

MOV

ROMCLK

000004

024450
024450
024454
024456
024460
024464
024470
024470
024474

(LR
COM

033332

000004

024352
024356
024362
024366
024372
024376
024402
024406
024410
024412
024416
024420
024422
024424
024426
024432
024434
024436
024440
024444
024446

PAGE 88

BASIC RECEIVER TESTS

004000

024422
024422

4443

4445
444k
4467
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465

012711
005003
005004

08:26

INC
(MP
BNE
CLR

INC
CMP

PC,GETQO

RS,10%

R3
#10,R3
2%
R3

R4
#400,R4

;GET HARDWARE

TRANSMITTER B((C LSB

;BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST

;GET HARDWARE TRANSMITTER B(C LSB
:BR IF OK (SET)
;ERROR, BCC LSB WAS CLEAR

;DEC STUFF CHECK SHIFT COUNT
;BR IF NOT DONE THIS CHARACTER

;RESET BIT COUNT TO 10
;LOAD NEXT CHAR FOR STUFF CHECK

;RESTART BIT

COUNTER

; INCREMENT DATA FOR SILO

;DONE BINARY COUNT YET?

)075

08-JuUL-80
MACY11 30A(1052 )
CZDMF
CZDMF .P11
08-JuL-80 08:25

4492
4493
4494
4495

024522

4497
4498
4499
4500

024536
024542
024544

(496

08:26

BLE

000004

ROMCLK
9% :

000400

7%:

MOV
122110
INC
CMP

BNE

SCOPE

SEQ 0088
9%

R4 ,4(RY)

:BR IF YES

:PORT4 DATA

sNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:LOAD OUT DATA
: INCREMENT DATA
:DONE BINARY PATTERN YET?

RS
#400,RS
1%

:BR IF NO
:SCOPE

;erreenntrrrenrneeennnennnns

;*RECEIVER CRC TEST

4503

TEST

THIS TEST

tenevnvnvecnvenennenenennen

;*USING THE CRC.CCITT POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT

4504

4505

6513

BASIC RECEIVER TESTS

50
4502

4506
4507
4508
4509
4510
5N
4512

PAGE 89

: AR AR

RAE R R RN R R

AR RN PP RARRRARRNARCRRRARREAREORRRIROICTORRCERES

024546
024554
024562
024564
024570
024572
024574
024600
024604
024610
024612
024614
024616

000052
025104

001226
001216

#52,1STNO
#T5TS3 NEXT

1S1S52:
MSTCLR

000004

ROMCLK

102010

033500
000004

000004

032346
000032
024734
024734
000010
024746
000001
033770

122117

JSR

033676
034114
004000

024750
024750

CLR

BITCON

CLR
CLR

R3
R4

CLR
COM

48
43

CLR

ROMCLK

1%:

2%:
1C$:

;00 THIS AFTER MODE IS SET

;SET LINE UNIT LOOP

:RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

MOV

R4 ,4(R1)

122110
MOV

122110

INC
MOV

PC,SYNLD

R&
R4 ,4(R1)

122110

:LOAD POLYNOMINAL

:LOAD SILO WITH 2 SYNCS, SOM SET
:LOAD OUT DATA

: INCREMENT TO NEXT CHARACTER
:PORT4 CHAR

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

: INCREMENT TO NEXT CHARACTER
:PORT4 CHAR
sNEXT WORD IS TNSTRUCTION, ROMCLK P(C=5304

MOV

RS, 3$

JSR
0

RS,STFFCK

DATACLK,1

:CLEAR SOFT BCC
;START AT -1
:PORT4 CHAR

R4 ,4(R1)

;ZERO BIT COUNT
:R4 CONTAINS CHAR TO BE LOADED IN SILO

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PC,OCOR
JSR
DATACLK,32
MOV
RS,108
10%
INC
#10,R0
MOV

:CONSECUTIVE 1'S COUNTER INIT TO 0

#BIT11,(R1)

#CRC.CCITT,XPOLY

INC

ROMCLK

sPUT LINE UNIT IN BITSTUFF MODE

MOV

JSR

ADDRESS

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

PC,CLRIO

(LR

MOV

033332

4(RT)

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11
;CLEAR PORT4

;LOAD OUT DATA

:WAIT FOR OCOR
:CLOCK DATA
:START WITH ZERO
;TRANSMITTER IS ONE CHAR AHEAD
:RO = CHAR COUNT

"LOAD CMAR FOR SOFT (RC
:SHIFT BCC ONCE

:CHECK BIT STUFFING
: CHARACTER
;SHIFT COUNT

0076

MACY11 30A(1052)
08-JUL-80
P11
CZDMF
08-JuL-80 08:25
CZDMF

4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562

024740
024744
024746
024750
024752
024754
024760
024762
024764
024766
024772
024774
024776

4563

4564
4565
4566
4567
4568
4569
4570
45N
4572
4573
4574
4575
4576

4577

4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
459
4592
4593
4594
4595
4596
4597
4598
4599
4600
“601
4602

4603

004537
000001

033210

JSR
1

3%:

004737
103006
104022
000404
004737
103401

033462

006037
005300
001010
012700
010537
005237
005237

024734

006037
013737
005203
022703
001326
005003
005204
022704
003404
010461

024746
033334

5%:

104023

005205
022705
001307

6%:

000010
024734
024734
024734

BR
JSR
BCS
HLT

6%
PC,GETQI
6%
23

ROR

11%:

024750

000400

ROMCLK
9% :

000400

COUNT

: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)
;ERROR, BCC LSB WAS CLEAR

10%

:SHIFT CHAR FOR STUFF

CHECK

DEC
BNE
MOV

;DEC STUFF .CHECK SHIFT COUNT
:BR IF NOT DONE THIS CHARACTER
;RESET BIT COUNT TO 10

INC

10%

:TRANSMITTER IS 2 CHAR AHEAD

RS,10%

:LOAD NEXT CHAR FOR STUFF

INC

108

;

ROR
MOV

3%
CALBCC,48

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC

R4 ,4(R1)

:PORT4 DATA

MOV

122110
INC

CMP
BNE

7%:

104400

SHIFT

RO
1%
#10,R0

INC
CMP
BNE
CLR
INC
CMP
BLE

000010

;SOFT

:SOFT CHARACTER
5%
PC,GETQI
6%

MOV

000004

;CALCULATE SOFT BCC

RS,SIMBCC

BCS
JSR
BCC
HLT

033462

SEQ 0089

4$:

104414
122110

025074
025100
025102

08:26 PAGE 90
BASIC RECEIVER TESTS

SCOPE

R3
#10,R3
2%
k3
R&
#400,R4
9%

CHECK

: INCREMENT BIT COUNTER
:DONE A FULL CHARACTER YET?
:BR IF NO
;RESTART BIT COUNTER
: INCREMENT DATA FOR SILO
:DONE BINARY COUNT YET?
:BR IF YES

:NEXT WORD IS TNSTRUCTION, ROMCLK P(C=5304
:LOAD OUT DATA
: INCREMENT DATA

#400,RS
1%

:DONE BINARY PATTERN YET?
:BR IF NO
:SCOPE

cernnnnnnrereeerreerenennnnse

TEST

;*TRANSMITTER BITSTUFF

CRC

THIS TEST

sevnvnnntnnttvnennnnnnennns

TEST

;*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC

;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT

;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252.377

;*THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC

.':t'i'i""""'i'""""'.i...tt"l..!'Q..Q'."."""l"'ltt'

;

025104
025112

012
012

025120
025122
025126

005
104

000053
025606
000004

001226
001216

TSTS3:

TESY 53

MOV

MSTCLR

ROMCLK

#53,TSTNOD

#5754, NEXT
CLR

4(R1)

:R1

CONTAINS BASE DMC11

;MASTER CLEAR DM(11

;CLEAR PORT4

ADDRESS

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

0077

.
'

CZDMF

CZOMF .P11

|
|

4604
4605

zggg

|
‘

4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625

MACY11 30A(1052)

2289

zggg

O08-JuL=-B0

08-JuL-80 08:25

025130
025132

025136

122117
004737

005037

08:26

122117
JSR

033676

034114

CLR

025142
025146
025152
025156
025162
166
025172
025176
025202
025204
025206
025212
025216
025222
025224
025230

025232

012711
012704
005037
005137
012700
004737
004737
004537
034116
000004
004737
004737
004737
005003
104415
112405

004000
034116
025262
025262
000004
033500
032500
033634

033610

033610
032346

000022

12%:

010502

010537

025330

4633
4634
4635
4636
4637

025246
025252
025256
025260
025262

010537
004537
000010
000000
000000

025260
033210

4649

4650
4651
4652

g
g
.
|
.

4653
4654
4655
4656
4657
4658
4659

BITCON

:PUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE IS SET

:CONSECUTIVE 1'S COUNTER INIT TO 0

MOV
#BIT11,(RY)
MOV
#MESDAT R4
CLR
108
COM
10%
MOV
#4,R0
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS,MESLD
MESDAT
4
JSR
PC,EOM
JSR
PC,EOM
JSR
PC,OCOR
CLR
R3
DATACLK,22
MOVB
(R4)+,RS

MOV

RS5,R2

;SET LINE UNIT LOOP
:LOAD POINTER TO DATA
;CLEAR SOFT BCC
;START AT =1
:LOAD CHARACTER COUNT
:LOAD 2 FLAG CHARACTERS IN OUT SILO
;WAIT FOR OUTRDY
:LOAD SILO WITH 4 CHAR MESS
;ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS
:LOAD GARBAGE CHARACTER, WITH EOM SET
:WAIT FOR OCOR
;CLEAR BIT COUNTER
:CLOCK DATA
:LOAD RS WITH CHAR

;:LOAD R2 WITH (HAR

;IN THE BIT WINDOW (0,125,252.377)

025234

4643
4644
4645
4646
4647
4648

PC,CLRIO

;CHECK FIRST FOUR CHARACTER MESSAGE

4631

4642

:LOAD OUT DATA SILO

22%8

4638
4639
4640
4641

BASIC RECEIVER TESTS

4628

4632

PAGE 91

025240

025264
025272
025276
0253
025302

025306
025310
025312
025314
025320
025322
025324

025324
025330
025332

025334
025340
025342
025346
025350
025352
025354

012737

013737
104415
106002
103005

004737

103406
104006
000404
004737
103001
104006
004537
000000
000001

110237
005203
022703
001351
005003
005300
001325

102010

033334
000001

MOV

033332

025262

MOV
67%:
10%:

648 :

032314

033776

025330
000010

65%:
66%:

71%:

MOV
JSR
10
0
0

RS,71%

:LOAD FOR STUFF CHECK

RS,67%
RS,SIMBCC

:LOAD SOFT CHAR FOR BCC
:CALCULATE SOFT BCC
:SHIFT COUNT
:CHARACTER
:0LD BCC

#CRC.CCITT, XPOLY

MOV
CALBCC,10$
DATACLK,
1
RORB
R2
BCC
65%
JSR

PC,GETSI

JSR
0
1

RS,STFFCK

BCS
HLT
B
JSR
BCC
HLT

MOVB
INC
CHP
BNE
CLR
DEC
BNE

66%
6
66%
PC,GETSI
66%
6

R2,71%
(S
#10,R3
64%
R3
RO
12%

:LOAD POLYNOMIAL

;LOAD SOFT BCC FOR NEXT SHIFT
:SHIFT 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
: CONT INUE
:LOOK AT BIT WINDOW
:BR IF OK (SPACE)
:ERROR, BIT WINDOW WAS A MARK

sSHIFT FOR NEXT STUFF CHECK
:BUMP BIT COUNTER
:DONE FULL 8 BITS YEI
:BR IF NO
:CLEAR BIT COUNTER
:DEC CHARACTER COUNT
<BR IF NOT DONE YET

SEQ 0090

0078

{
5

CZDMF

MACY11 30A(1052)

;

CZDMF P11

4660

08-JuL=-80

08-JuL=-80 08:25

222}

;
|
i
;

4663
(664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675

025356
025362
025366
025372
025376
025400
025402
025406
025410
025412
025414
025420
025422

005137
013700
010037
104415
006000
103005
004737
103406
104014
000404
004737
103001
104014

033334
033334
025430
000001

4677
4678
4679
468"~
4681
4682
L6B3

025424
025430
025432
025434
025440
025442
025446

004537
000000
000001
010037
005203
022703
001351

033776

,
|

W76

:ggg

08:26

4689
4690
4691
4692
4693
4694

4695

4696

4697

4698
4699
4700

4701
2;8%

025424

025450

68%:

032314

69%:
70%:

72%:

025430
000020

COM
CALBCC
MOV
CALBCC,RO
MOV
RO,72%
DATACLK,1
ROR
RO
BCC
69%
JSR
PC,GETSI
BCS
708
HLT
14
BR
70%
JSR
PC,GETSI
BCC
70%
HLT
14

;ADJUST BCC FOR SDLC
;PUT BCC IN RO
:LOAD BCC FOR STUFF CHECK
:SHIFT HARDWARE BCC
;SHIFT SOFT BCC
:BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF OK (MARK)
:ERROR, CRC WRONG (SPACE)
s CONTINUE
;LOOK AT BIT WINDOW
:BR If OK (SPACE)
;ERROR, CRC WRONG (MARK)

JSR
0
1
MOV
INC
(mp
BNE

:CHECK BCC CHAR FOR ZERO STUFFS
;s CHARACTER
sSHIFT COUNT
:SHIFT SOFTBCC ONCE
:BUMP BIT COUNTER
FINISHED BCC YET?
;BR IF NO

CLR

005003

RS,STFFCK
RO,72%
R3
#20,R3
68%

;CLEAR BIT COUNTER

:CHECK FOR FLAG TO FOLLOW BCC
025452

025460
025464
025470
025472
025476
025500

025502
025504

025510

025512
025514
025516

025522
025524

012737

000176

104415
106037
103405
004737
103006
104026

000001
001252

004737

032314

000404
103401

104026
005203
022703
001356

001252

73%:

032314

000010

005003

74%:

75%:

MOV

#°8<01111110>,
TEMP3 ;PUT FLAG CHARACTER IN TEMP3

DATACLK,
1
RORB
TEMP3
BCS
74%
JSR
PC,GETSI
BCC
75%
HLT
26

;CLOCK FLAG ONCE
SHIFT SOFT FLAG

JSR

PC,GETSI

;LOOK AT BIT WINDOW

HLT
INC
CMP

26
R3
#10,R3

:ERROR IN FLAG CHAR
sINC BIT COUNT
;FLAG DONE YET?

513

BCS

BNE
CLR

75%

:BR IF BIT IS MARK
;LOOK AT BIT WINDOW
;:BR IF 0K
:ERROR IN FLAG CHAR
:BR IF 0K

73%%
R3

;BR IF NO
:CLEAR BIT COUNT

:CHECK TO SEE IF TRANSMITTER 1S MARKING

4706
4707

025526
025532

104415
004737

4709
4710
4711
4712

025540
025542
025544
025550

104024
005203
022703
001346

471%
4714
4715

SEQ 0091

:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

2;82

4708

BASIC RECEIVER TESTS

2239
4688

PAGE 92

025536

025552
025556
025560

103401

104415
005003
104415

009001
032314

000007

2%:

;CLOCK TRANSMITTER
:LOOK AT WINDOW

HLT
INC
cmp
BNE

:ERROR, BIT WAS A SPACE
;BUMP BIT COUNTER

BCS
b1 ¥

000010
000001

DATACLK,
1
JSR
PC,GETSI

24
RY
#7,R3
2%

DATACLK,
R3
(LR
DATACLK,

10
1

;17T SHOULD BE MARKING
;DONE YET
:BR [F NO

:GIVE ENOUGH TICKS TO CLEAR QUT ACTIVE
:CLEAR BIT COUNTER
SSHIFT QUT NEXT BIT

OO NN
OO NNNNO>O
SN SNO
S

[olelelelelele]

4716
4717
4718
6719
(720
“721
4722
4723
6724
4725
4726
4727
4728
4729

SN
NT NT NT TN
WV IV I IV IV TV

MACY17 30A(1052)
08-JUL-80
CZDMF
P11
CZDMF
08-JuL-80 08:25

004737

032314

005203
022703
001366

000020

103401
104024

08:26

PAGE 93

BASIC RECEIVER TESTS
JSR
BCS
HLT
INC
(MP

§734
4735
4736
737
4738
4739

4740
4741
L7462
4743
L4744
4745
L4746
G747
4748
4749
4750

475
4752
4753
4754
4755

4756

4757
4758
4759
4760
4761
4762

4763
4764
4765
4766

4767
4768

4769
6770
«N

PC,GETSI
. th
24
R3
#20,R3

BNE

;LOOK AT BIT WINDOW
;BR IF IT IS A MARK
;ERROR, TRANSMITTER IS NOT MARKING
;INC BIT COUNT
;DONE YET?

SCOPE

5%:

104400

:BR IF NO

;SCOPE THIS TEST

;evecrnnerrevavenrevvzveennne

TEST

ennnvvcevevcncccnnnnnvvenne

;*RECEIVER BITSTUFF CRC TEST

;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC
;*AND VERIFYS CORRECT DATA RECEPTION AND B(C MAT(CH
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377

4730

L3N
4732
4733

SEQ 0092

. AR

:
000054
026030

025606
025614

025622
025624
025630
025632

001226
001216

MOV
MOV

ROMCLK

033676
004000
034116
000004

CLR

122117
JSR

ARl

:CLEAR PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PUT LINE UNIT IN'BITSTUFF MODE
‘DO THIS AFTER MODE IS SET
PC,CLRIO

JSR
JSR
JSR

PC.SYNLD
PC.OUTRDY
RS .MESLD

"LOAD 2 FLAG CHARACTERS IN OUT SILO
‘WAIT FOR OUTRDY
*LOAD SILO WITH 4 CHAR MESS

JSR

PC,EOM

‘LOAD GARBAGE CHARACTER, WITH EOM SET

#4 RO

PC.EOM
PC .OCOR

JSR

021204

HLT

DEC

BNE

PC, INRDY

*LOAD CHARACTER COUNT

*ADDRESS OF MESSAGE
*NUMBER OF CHARACTERS

:WAIT FOR OCOR

DATACLK,115
MOV
MOVB
(MPB

1%:

*MASTER CLEAR DMC11

ADDRESS

:SET LINE UNIT LOOP
*LOAD POINTER TO DATA

JSR
JSR

ROMCLK

CONTAINS BASE DMC11

#BiT11, (R1)
#MESDAT ,R2

MESDAT
4

4(R1)

:R1

MOV
MOV

MOV

033500

005300
001364

#54,TSTNO
#TSTSS,NEXT

BEQ

025740
025742

TEST S&

MSTCLR

000004

025634
025640
025644
025650
025654
025660
025664
025670
025672
025674
025700
025704
025710
025714
025720
025722

T1S754:

SCLOCK DATA

‘WAIT FOR

INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET IN DATA

;PUT "'FOUND'" IN R&

4(R1) ,R4
(R2)+,R5S
RS.R4

;PUT "EXPECTED'" IN RS

; COMPARE RECEIVED DATA

;BR _IF OK

;DEC CHARACTER COUNT
;BR IF NOT DOME YET

;DATA ERROR

;CHECK TO SEE THAT IN BCC MATCH IS SET
025744
025750
025752
025754

004737
104414

021204

116137

033154

000004

ROMCLK
001252

;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5306
;GET FIRST HALF OF (RC

JSR

PC,INRDY

021204
MOVB

4(R1),TEMP3

;PUT IN TEMP3

4772
4773
Q774
4775
4776
“777

4778
4779
4780
4781
4782
4L78%
4784
4785
4786
4787
4788

042737
004737
104414

021244
016104
042704
012705
120504
001401

026022
026022
026024
026026

177400

033154

08: 26

BASIC RECEIVER TESTS

001252
ROMCLK

000004
000374
000003

;NEXT

021244

INSTRUCTION,

MOV

#3 RS

:PUT "EXPECTED" IN RS

BEQ

25%

RS .Ré

SARE

HLT

PC=5304

IN BCC MATCH AND B! NCK END SET?

:IN BCC
;NEXT

021204
SCOPE

2%:

ROMCLK

;CLEAR UNWANTED BITS

ROMCLK

104400

WORD

;PUT "FOUND'' IN R4

#374 R&

021204

;CLEAR K] BYTE
;WAIT FOR INRDY

WORD

MATCH ERROR

INSTRUCTION,

ROMCLK

;GET LAST WALF
:SCOPE THIS TEST

TEST

§5

PC=5304

wevecacnenetntrtrnananeeceny

:*4 CHARACTER MESS,EOM. THE DATA STREAM [S CHECKED TO BE
;%4 CHAR,BCC,FLAG,4 CHAR,BCC,FLAG,MARKS. THIS TEST VERIFYS
:*THE CHARCTERS LOADED WITH EOM SET ARE LOST

026030
026036

000055
027430

026044
026046
026052
026054
026056
026062

001226
001216

TST155:

AR R

;

TEST

MOV
MOV
MSTCLR

ROM(CLK

THAT

:*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 CHECKED
A

S S R

#55,TSTNO
#TSTS6 NEXT

CLR

4&(R1)

122117
JSR
CLR

PC,CLRIO
BITCON

sR1 CONTAINS BASE DMC11
JMASTER CLEAR DM(C11

ADDRESS

sCLEAR PORT4
SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPUT LINE UNIT IN BITSTUFF MODE

;00 THIS AFTER MODE IS SET
;CONSECUTIVE 1'S COUNTER INIT T0 0

;LOAD OQUT DATA SILO

\fi“’};

—

WNNOND
—

026066

—

682%

6824
4825
4826
4827

#177400,TEMP3
PC,INRDY

4(R1) R4

(MPB

104414

BIC
JSR

MOV

BIC

104042

SEQ 0093

;*BITSTUFF EOM FUNCTION TEST
;*THIS TEST LOADS OUT SILO WITH: 2 FLAGS,4 CHAR MESSAGE ,EOM

4813
4814
4815
4816
“817
4818
4819
4820
“821
4822

srerrratrrrrrrenenenernennnt

4790
L7991
4792
479%
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
«810
4811
4812

PAGE 94

4789

080

MACY11 30A(1052)
CZDMF
08-JuL-80
C2DMF P11
08-JuL-80 08 125

012711
012704

005037
005137
012700
004737
004737
004537
034116
000004
004737
004737
00457
034116
000004

MOV
MOV

CLR
COM

MOV
JSR
JSR

JSR

MESDA?
b

JSR
JSR
JSR

MESDAT
o

#BIT11,(RY)
#MESDAT R4

10%
10%

¥4 RO
PC,SYNLD

PC,OUTRDY

RS ,MESLD

PC,EOM
PC,EOM
RS.MESLD

;SET LINE UNIT LOOP
;LCAD POINTER TO DATA

;CLEAR SOFT BCC
;START AT -1

;LOAD CHARACTER COUNT
;LOAD 2 FLAG CHARACTERS

;WAIT

FOR OUTRDY

IN QUT

SILO

:LOAD SILO WITH & CHAR MESS

.ADDRESS OF MESSAGE
;NUMBER OF CHARACTERS

:LOAD GARBAGE

CHARACTER, WITH EOM SET

:LOAD FOUR MORE C(HARACTERS

;ADDRESS OF MESSAGE
;NUMBER OF CHACTERS

CIOMF

MACY11 30A(1052)

C2DMF . P11
4828
4829
4830
4831

026152
026156
026162
026166

004737
004737
004737
005003

4B3Y

026174

112405

(832
:ggg

08-JuL=-80

08-JuL-80 08:25

026170
026176

104415

08:26

PAGE 95

BASIC RECEIVER TESTS

033610
033610
032346

000022

12%:

010502

4836

026200

010537

026274

4841
4BL2
4843
4844

026212
026216
026222
026224

010537
004537
000010
000000

026224
033210

013737
104415
106002
103005
004737
103406
104006
000404
004737

033334
000001

4B4E
4B47
LBLB
4BLY
4BSO
4LBS1
4852
4853
4854

4855

4856

4857

026204

026226

026230
026236
026242
026244
026246
026252
026254
026256
026260

026264

026266

026270

012737

000000

103001

102010

032314

104006

026270

004537

033776

4861
4862

026300
026304

110237
005203

026274

4863
4864

4865
«866

222;

026274
026276

026306
026312

026314
026316

026320

000000
000001

022703
001351

026226

67%:
10%:

64%:

65%:
66%:
71%:

000010

(R4)+,RS

;LOAD RS WITH CHAR

DATACLK,2?2

MOV

MOV
JSR
1C
0

RS,R2

;CLOCK DATA

;LOAD R2 WITH (HAR

:LOAD FOR STUFF CHECK

RS,67%
RS,SIMBCC

:LOAD SOFT CHAR FOR BCC
;CALCULATE SOFT BC(C
:SHIFT COUNT
:CHARACTER

:LOAD POLYNOMIAL

;0LD BCC

:LOAD SOFT BCC FOR NEXT SHIFT
:SHIFT DATA IN TO BIT WINDOW
JSHIFT SOFT DATA
:BR IF A SPA(E
;LOOK AT BIT WINDOW
:BR IF OK (MARK)
;ERROR, BIT WINDOW WAS A SPACE
: CONTINUE
;LOOK AT BIT WINDOW

BC(C

66%

JSR

RS,STFFCK

MOVB
INC

R2,71%
R3

:SHIFT FOR NEXT STUFF CHECK
:BUMP BIT COUNTER

BNE

64%

;BR IF NO

HLT

0
1

CLR
DEC

001325

RS,71%

#CRC.CCITT, XPOLY

MOV
CALBCC,10%
DATACLK,
1
RORB
R2
BCC
65%
JSR
PC,GETSI
BCS
66%
HLT
6
B
56%
JSR
PC,GETSI

CMP

005003
005300

BNE

#10,R3
R3
RO

12%

:8R IF OK (SPACE)

;ERROR, BIT WINDOW WAS A MARK

:DONE FULL 8 BITS YET
:CLEAR BIT COUNTER
:DEC CHARACTER COUNT

:BR IF NCT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

4871

026322

005137

4875
4876
4877
4878
4879

026342
026344
026346
026352
026354

006000
103005
004737
103406
104014

4880
4881
4882
4883

MOVB

MOV

2%?3
4872
487%
4874

:SET EOM
;SET EOM
:WAIT FOR OCOR
sCLEAR BIT COUNTER

MOV

033332

032314

4858
4859
4860

PC,EOM
PC,EOM
PC,OCOR
R3

:IN THE BIT WINDOW (0,125,252,377)

4839

4B4S

JSR
JSR
JSR
CLR

:CHECK FIRST FOUR CHARACTER MESSAGE

:ggg
4BLO

;

02632¢
0c6332
026336

026356
02636C
026364
026366

013700
010037
104415

000404
004737
103001
104014

033334

033334
026374
000001

68%:

032314

69%:

COM

CALBCC

sADJUST BCC FOR SDLC

ROR
BCC
JSR
BCS
HLT
L]
JSR
BCC
HLT

RO
69%
PC,GETSI
70%
14
70%
PC,GETS!
70%
14

SHIFT SOFT BCC
;BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF 0K (MARK)
:ERROR, CRC WRONG (SPACE)

MOV
CALBCC,RO
MOV
RO,72%
DATACLK,1

;PUT BCC IN RO
:LOAD BCC FOR STUFF CHECK
;SHIFT HARDWARE BCC

: CONT INUE
;LOOK AT BIT WINDOW
:BR IF Ok (SPACE)
;ERROR, CRC WRONG (MARK)

SEQ 0094

MACY11 30A(1052)
08-JuL-80
CZDMF
. P11
CZDMF
08-JuUL-80 08:25

4926
4927
4928
4929
4930
493

4932
4933
4934

4935

4936
4937
4938
4939

026414

004537
000000
000001
010037
005203
022703
001351
005003

08:26 PAGE 96
BASIC RECEIVER TESTS
70%:

033776

SEQ 0095

JSR
0

RS,STFF(CK

026374

MOV

000020

INC

(mp
BNE

RO,72%
R3
#20,R3

CLR

72%:

:CHECK BCC CHAR FOR ZERO STUFFS

;CHARACTER
:SHIFT COUNT
:SHIFT SOFTBCC ONCE

:BUMP BIT COUNTER
;FINISHED BCC YET?

68%

;BR

;CLEAR BIT COUNTER

;CHECK FOR FLAG TO FOLLOW BCC
026416
026424
026430
026434
026436
026442
026444
026446
026450
026454
026456
026460
026462
026466
026470
026472
026476
026502
026506
026512
026514

012737
104415
106037
103405

004737

103006
104026

000404
004737

103401
104026

005203
022703

000176
000001
001252

001252

73%:

MOV

DATACLK,

RORB

032314

BCS
JSR
BCC

032314

BR
JSR
BCS

HLT

74%:

75%:

000010
000004
034116
026544
026544

HLT
INC

l‘8<0111}110>,YEHP3 ;PUT FLAG CHARACTER IN TEMP3
;CLOCK F LAG ONCE
TEMP3
;SHIFT SOFT FLAG

;BR IF BIT IS MARK
;LOOK AT BIT WINDOW
;BR IF 0K
;ERROR IN FLAG CHAR

PC,GETSI

;LOOK AT BIT WINDOW

74%

PC,GETSI
75%
75%

75%

sINC BIT COUNT
;FLAG DONE YET?
;BR [F NO

(MP
BNE
CLR

13%:

;BR

:ERROR IN FLAG CHAR

COM

MOVB
MOV

;CLEAR BIT COUNT
;RESET CHARACTER COUNTER
;LOAD MESSAGE POINTER
;CLR SOFT BCC

#4 ,RO
#MESDAT
R4
11%
11%
(R&4)+,RS

R5.R2

;ADJUST TO =1

FOR SDLC

;LOAD CHAR IN RS
;LOAD CHAR IN R2

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)
026516
026522
026530

026534
026540
026542
026544
026546

4923
4924
4925

026370
026370
026374
026376
026400
026404
026406
026412

OoOrnorn

4884
4885
4886
4887
(888
4889
4890
4,891
L89!
489.
4894
489S
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
(911
(912
4913
4914
4915
4916
(917
4918
4919
4920
4921
4922

OO —=O
wrhoOrN
WO
VOO

MOV
MOV

033332

MOV

JSR
10

033334
000001

026544

1%
76%:

CALB((.l}S

RORB

R2
77%

DATACLK,

HLT

032314
104006

004537

033776

77%:

78%:

RS,79%
RS,SIMBCC

MOV

BCC
JSR
BCS

032314

026574
026576
026602
026604
026606
026606

0
0

RS,83%

#CRC.CCITT,XPOLY

PC,GETSI

78%

78¢

BR
JSR
BCC

PC,GETS]

HLT

78%
;

JSR

RS,STHECK

;LOAD FOR STUFF CHECK
:LOAD POLYNOMIAL
;LOAD SOFT CHAR FOR BCC(
;CALCULATE SOFT BCC

sSHIFT COUNT
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
:BR IF OK (MARK)
;ERROR, BIT WINDOW WAS A SPAC(E
- CONT INUE
;LOOK AT BIT WINDOW
:BR IF OK (SPACE)
;ERROR, BIT WINDOW WAS A MARK

—

MACY11 30A(1052)
CZDMF
08-JuL-80
CZOMF P11
08-JuUL-80 08:25
4940
4941
4942

4943

(944

4945
4946
4947
4948
4949
4950
4951
4952
495%
4954
4955
4956
4957
4958
4959
4960
4961

4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
498%
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995

026612
026614
026616
026622
026624
026630
026632
026634
026636

000000
000001
110237

005203
022703
001351
005003
005300
001325

08: 26

PAGE 97

SEQ 0096

BASIC RECEIVER TESTS

83%:

026612

0
1

R2,83%
R3
#10,R3
76%
R3
RO
13%

MOvB

INC
(mp
BNE
CLR
DEC
BNE

000010

;SHIFT FOP NEXT STUFF
;BUMP BIT COUNTER
;DONE FULL 8 BITS YET
;BR _IF NO
;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

(HECK

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
026640
026644
026650
026654
026660
026662
026664
026670
026672
026674
026676
026702
026704
026706
026706
026712
026714
026716
026722
026724
026730
026732

005137
013700
010037
106415

006000
103005
004737
103406
104014

000404
004737
103001
104014

004537
000000
000001
010037
005203
022703
001351
005003

033334
033334
026712
000001

80%:

COM
MOV
MOV

CALBCC
CALBCC,RO
RO,84%

DATACLK,1
ROR
RO

:SHIFT HARDWARE
:SHIFT SOFT BCC

JSR
BCS

PC,GETSI
82%

:LOOK AT BIT WINDOW
:BR IF OK (MARK)

82%

JSR

RS,STFFCK

HLT

032314

81%:

82%:

033776

B4S:

JSR
BCC
HLT

MOV

026712

CRC WRONG

: CONTINUE

(SPACE)

;LOOK AT BIT WINDOW
:BR IF OK (SPACE)
:ERROR, CRC WRONG (MARK)
;CHECK BCC

:CHARACTER

CHAR FOR

ZERO STUFFS

;SHIFT COUNT

RO,B84$

INC
CMP
BNE
CLR

000020

:ERROR,

PC,GETSI
82%
14

BC((

:BR IF CARRY CLEAR

81%

BCC

032314

;ADJUST BCC FOR SDLC
;PUT BCC IN RO
:LOAD BCC FOR STUFF CHECK

;SHIFT SOFTBCC ONCE

R3
#20,R3
80%
R3

:BUMP BIT COUNTER
;FINISHED BCC YET?
:BR IF NO
:CLEAR BIT COUNTER

;CHECK FOR FLAG TO FOLLOW BCC
026734
026742
026746
026752
026754
026760

026762
026764
026766
026772
026774
026776
027000
027004
027006

012737

000176
000001
001252

004737

032314

104415
106037
103405

103006
104026

000404
004737
103401
104026

005203
022703
001356
005003

001252

85%:

#*B<01111110>,TEMP3 ;PUT FLAG CHARACTER
MOV
VATACLK,
1
sCLOCK FLAG ONCE
RORB
TEMP3
JSHIFT SOFT FLAG

;BR [F BIT IS MARK
;LOOK AT BIT WINDOW
;BR IF 0K
;ERROR [N FLAG CHAR

BCS
JSK

BC(

HLT

032314

000010

86%:

87%:

BR
JSR
BCS

;LOOK AT BIT WINDOW

;BR

104415

2%:

;FLAG DONE YET?
;BR

sCLEAR BIT COUNT

CLR

000001

;ERROR [N FLAG CHAR
INC BIT COUNT

HLT
INC
(MP
BNE

;CHECK

027010

IN TEMP3

TO SEE

DATACLK,

TRANSMITTER
1

IS MARKING

;CLOCK

TRANSMITTER

MACY11 30A(1052)
CIDMF
08-JuUL-80
CZDMF P11
08-JuL-80 08 125
4996
4997
4998
4999

5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021

027014
027020

004737
103401

08: 26

PAGE 98

032314

000007

JSR

3%:

000010

027046
027052
027054
027056
027060
027064

000001
032314

BCS
HLT
INC
(MP
BNE

DATACLK,

:LOOK AT WINDOW

24
R3

JERROR, BIT WAS A SPACE
;BUMP BIT COUNTER

:BR [F NO
:GIVE ENOUGH TICKS TO CLEAR CUT ACTIVE
;CLEAR BIT COUNTER

PC,GETSI
.t
24

INC
(MpP
BNE

YET

;DONE

#7,R3

JSR

DATACLK,

;1T SHOULD BE MARKING

BCS

000020

PC,GETSI

(LR

HLT

001366

SEQ 0097

BASIC RECEIVER TESTS

JSHIFT OUT NEXT BIT

;LOOK AT BIT WINDOW
;BR IF IT IS A MARK
:ERROR, TRANSMITTER [S NOT MARKING
;INC BIT COUNT

#20,R3

;DONE YET?

;BR

JCHECK T O SEE THAT FIRST FOUR CHARACTER MESSAGE
;WAS REC EIVED CORRECTLY (0,125,252,377)
027066

027072
027076
027102
027106
027110
027112
027116
027120
027122
027124
027126
027130

012703
012702
004737

000001
000004
034116
033154

021204
016104

000004

104415

106414

112205
120504

DATACLK,

MOV

40%:
ROMCLK

MOV

JSR

021204

MOV
MOVB

(MPB
BEQ

001401

104010

4L1%:

005303
001364

HLT

DEC
BNE

04 ,R3

#MESDAT ,R?2
PC, INRDY

:GET

LAST BIT

IN RECEIVER

:R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2

“WAIT FOR

INRDY

“NEXT WORD I35 INSTRUCTION, ROMCLK P(=5304
:PUT "'FOUND'' IN R4
SPUT "EXPECTED'' IN RS

4(R1).R&
(R2)+.RS
RS, R4

41§

‘B8R IF YES

*RECEIVE DATA ERROR
‘DEC CHARACTER COUNT

10
R3

40%

"SR

NOT

DONE

YET

;CHECK T O SEE THAT IN BCC MATCH IS SET
;AND THAT

027132
027136
027140
027142
027150
027156
027162
027164
027166

027172
027176
027202
027204
027206
027210
027210
027212
027214
027222

004737
104414

021204
116137

042737
004737
104414

021244
016104
042704
012705
120504

033154
000004
177400
033154
000004

000374
000003

001401

104042

116137

042737

ROMCLK

MOV

000377

BIC
JSR

PC, INRDY

:WAIT

FOR

INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1),TEMP3

-GET FIRST HALF OF
SPUT IN TEMP3

PC.INRDY

‘WAIT

#177600,TEMP3

021244

FOR

INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PUT "'FOUND'" IN Ré

4(R1),R4

#374 R4

;CLEAR UNWANTED BITS
;ARE

BEQ

RS R4
50%

MOV
(MPB

#3,RS
HLT

021204

MOVB

BIC

CRC

:CLEAR HI BYTE

BIC

50%:

000004

021204

MOVB

ROM(CLK

104414

021204

ROMCLK

JIR

THE BCC WAS RECEIVED CORRECTLY

;PUT "EXPECTED'" IN RS

IN BCC MATCH AND BLOCK END SET?
;IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
4L(R1),TEMP2+]
#377,TEMP?

;GET LAST HALF
;PUT IN TEMP?

;CLEAR LO BYTE

CZDMF

MACY11 30A(1052)

CZOMF .P11
5052
5053
5054
2822

08-JuL=-80

08-JuL-80 08:25

027230
027236

027244
027246

053737
023737

001401
104027

001250
033334

08:26

001252
001252

BIS
(MP
BEQ
HLT

012703
012702
004737
104414
021204

5066
5067

027274
027276

112205
120504

027270

027300
027302
027304
027306

016104

000004
034116
033154

L2%:
63%:

ROMCLK

000004

001401
104010
005303
001364

(6s:

5073

004737

027316

021204

S081
S082

027326
027334

042737
004737

5084

027342

021244

5083
5085
S086
S087
S088
5089
5090
S091

5092

5093
5094
5095

5096

5097
5098
S099
218?

027314

027320

027340

104414

116137

104414

027344
027350
027354
027360
027362
027364

016104
042704
012705
120504
001401
104042

027366

104414

027366

027370
027372
027400

021204
116137
042737

027414
027422
027424
027426

023737
001401
104027
104400

027406

053737

033154

ROMC LK

000004

001252

177400
033154

ROM( LK

000004
000374
000003

MOV
BIC
MOV
(MPB
BEQ
51%:

ROMCLK
001251
001250
001252
001252

000004
000377
001250
03333&

5107

021204

#,R3
;R3I=CHARACTER COUNT
#MESDAT ,R2
:LOAD MESSAGE POINTER [N R2
PC,INRDY
:WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1),Ré&

:PUT "'FOUND'' IN R4

BEC
HLT
DEC
BNE

L4s
10
R3
43%

:BR IF YES
;RECEIVE DATA ERROR
:DEC CHARACTER COUNT
:BP IF NOT DONE YET

JSR

021204

BIC
JSR

021244

(R2)+,R5
RS ,R&

PC,INRDY

;PUT "'EXPECTED'" IN RS
;1S RECEIVED DATA (CORPECT?

021204
MOVB
BIC

cmp
BEQ
HLT
SCOPE

:WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4L(R1),TEMP3

#177400,TEMP3
PC,INRDY

;PUT IN TEMP3

;CLEAR H] BYTE
:WAIT FOR INRDY

:PUT "'FOUND'' IN R4
:CLEAR UNWANTED BITS
:PUT "'EXPECTED'' IN RS
:ARE IN BCC MATCH AND BLOCK END SET?
;IN BCC MATCH ERROR

NEXT WORD IS INSTRUCTION, ROM(CLK P(=5304
4(R1),TEMP2+1
#377,TEMP2
TEMP2,TEMPS
CALBCC,TEMP3
5%
27

cevesenererrevrererenrertnnne

;GET FIRST HALF OF CRC

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1),R&
#374 R4
#3,RS
RS ,R&
51%
42
HLT

BIS

5%:

5102

5106

;BR [F 0K

MOV

MOVB

001252

5103

3104
5105

;16 BIT BCC NOW IN TEMP3
;1S 1T CORRECT?

:CHECK TO SEE THAT IN B(C MATCH IS SET
:AND THAT THE BC( WAS RECEIVED CORRECTLY

027310

SO80

MOV
MOV
JSR

MOVB
(MPB

5074
28;2

5079

TEMP2,TEMP3
CALBCC,TEMP3
429
27

:WAS RECEIVED CORRECTLY (0,125,252.,377)

027250
027254
027260
027264
027266

5078

:(HECK TO SEE THAT SECOND FOUR CHARA(CTER MESSAGE

5060
5061
5062
5063
5064

5077

BASIC RECEIVER TESTS

2828

5068
5069
5070
gg;;

PAGE 99

5057

5065

:GET LAST HALF
:PUT I[N TEMP?
:CLEAR LO BYTE

;16 BIT BCC NOW [N TEMP3
;1S 17T CORRECT?
;BR [F 0K

:SCOPE THIS TEST
TEST

56 sevnvvcnnnsnnnctcncttcnnene

eBITSTUFF EOM FUNCTION TEST

oTHIS TEST LOADS OUT SILO WITH: 2 FLAGS,4 C(HAR MESSAGE ,EOM
:*¢SOM,4 CHAR MESS,EOM, THE DATA STREAM S (HMECKED TO BE

co4 CHAR,BCC,FLAG,& CHAR,BCC,FLAG,MARKS. THIS TEST VERIFYS THAT

SEQ 0098

PPN SRR il L
L CZDmF

)086

MACY1Y

CZDMF P11

500 B

30A(1052)

08-JuL=-B0

08-JuL-80 08:25

rE
08:26

PAGE

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS (HECKED

S11S

;;'"Q..l"t"""'t""tQ"""Q"QQ'tQQ"0"""'0'.""0"'0'

5114

2”2

TEST 56

5117
S118

027430
027436

012737
012737

5120
5121
5122
5123
5126
g}gg

027444
027446
027452
027454
027456
027462

104412
005061
104414
122117
004737
005037

000056
031110

001226
001216

T15756:

MOV
MOV

MSTCLR

000004

ROM( LK

033676
034114

2}5;
5129
5130
5131
5132

5133
5134
5135
5136
S137
5138
5139
5140

5141
5142
5143
5144
5145
5146
5147
5148
5149

5150
g}g;

027466
027472
027476
027502

027506
027512
027516
027522
027526
027530
027532
027536

027542
027546
027552
027554
027556
027562
027566
027572
027574

027600
027602

012711
012704
005037
005137

012700
004737
004737
004537
034116
000004
004737
004737

004737
004537
03«116
000004
004737
004737
004737
005003
104415

112405
010502

004000
034116
027632
027632
000004
033500
032500
033634

(LR

122117
JSR
(LR

MOV
MOV
(LR
COM

MOV
JSR
JSR
JSR
MESDAT
A
JSR
JSR

033610
033610
033560
033634
033610
033610
032346
000022

12%:

;R1 CONTAINS BASE DMC11 ADDRESS

JMASTER CLEAR DM(C11
4(R1)
;CLEAR PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PUT LINE UNIT IN BITSTUFF MODE
PC,CLRIOD
;D0 THIS AFTER MODE IS SET
BITCON
JCONSECUTIVE 1°'S COUNTER INIT TO O

#BIT11,(RY)
#MESDAT R4
10%
10%

#4,R0
PC,SYNLD
PC,OUTRDY
RS ,MESLD
PC,EOM
PC,EOM
PC,SOM
RS,MESLD

JSR
JSR
MESDAT
A
JSR
PC,EOM
JSR
PC,EOM
JSR
PC,0COR
CLR
R3
DATACLK,22

MOVB
MOV

(R4)+,RS
RS,R2

JSET LINE UNiT LOOP
;LOAD POINTER TO DATA
sCLEAR SOFT BCC
;START AT =1

;LOAD CHARACTER COUNT
;LOAD 2 FLAG CHARACTERS N OUT SILO
:WAIT FOR OUTRDY
;LOAD SILO WITH & CHAR MESS
sADDRESS OF MESSAGE
sNUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
;LOAD GARBAGE CHAR WITH SOM SET
;LOAD FOUR MORE CHARACTERS
;ADDRESS OF MESSAGE
;NUMBER OF (CHMACTERS
:SET EOM
JSET EOM
JWAIT FOR OCOR
;CLEAR BIT COUNTER
;CLOCK DATA

;LOAD RS WITH (HAR
;LOAD R2 WITH (HAR

SCHECK FIRST FOUR CHARACTER MESSAGE

g}gg

’

#56,TSTND
#TSTS7 NEXT

;LOAD OUT DATA SILO

5153

5156
S157
5158
5159
5160
5161
5162
5163

SEQ 0099

;*THE CHARCTERS LOADED 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

5112

5119

BASIC RECEIVER TESTS

5108
5109
5110
5111

100

;IN THE BIT WINDOW (0,125,252.377)

027604
027610
027616
027622
0276§6
027630
027632
027634

010537
012737
010537

004537

000010
000000
000000
013737

027700
102010
027630
033210

03333&

MOV
MOV
MOV

033332

JSR

67%:
10%:

0276%2
.

10
0
0
MOV

RS,71%
LOAD FOR STUFF (HECK
#CRC.CCITT, XPOLY
;LOAD POLYNOM]AL
RS,67%
;LOAD SOFT CHAR FOR BC(C

RS,SIMBCC

CALBCC,10%

sCALCULATE

SOFT BCC

SHIFT COUNT
;CHARACTER
;0LD BC(
JLOAD SOFT BCC FOR NEXT SHIFT

104415

106002
103005
004737

103406
104006

000404
004737
103001

08:26

PAGE 101

6H4%:

000001

032314

65%:

104006

66%:

DATACLK,
RORB
R2

BCC
HLT

66%
6

JSR
?

RS,STFFCK

Ho T
BR
JSR

110237

027700

MOVB

000010

CMP

005203
022703
001351
005003
005300
001325

:BR IF A SPACE
;LOOK AT BIT WINDCW
;BR IF 0K (MARK)
;ERROR, BIT WINDOW WAS A SPA(E
; CONTINUE
;LOOK AT BIT WINDOW
;BR [F Ok (SPACE)
;ERROR, BIT WINDOW WAS A MARK

65%
PC,GETSI
66%

033776

71%:

;SHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA

BCC
JSR
BCS

004537
000000

000001

SEQ 0100

BASIC RECEIVER TESTS

6
66%
PC,GETSI

sSHIFT FOR NEXT STUFF (HECK
;BUMP BIT COUNTER
;DONE FULL 8 BITS YET

R2,71%

INC

BNE
CLR
DEC
BNE

649
R3
RO
12%

#10,R3

;BR IF NO

;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
:BR IF NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
027726
027732
027736
027742
027746
027750
027752
027756
027760
027762
027764
027770
027772
027774
027774
030000
030002
030004
030010
030012
030016
030020

005137
013700
010037
1044615

006000
103005

004737
103406
104014

000404
004737
103001
104014

004537
000000
000001
010037
005203
022703
001351
005003

033334
033334
030000
000001

68%:

CALBCC
COM
MOV
CALBCC,RO
MOV
RO,72%
DATACLK,1
ROR
RO

BCC

032314

JSR

BCS
69%:

032314

70%:

033776

72%:

030000

PC,GETSI

70%

HLT

JSR

PC,GETSI]

HLT

BCC

70%

JSR

RS,STFFCK

MOV

RO,72%

INC
cmp
BNE

000020

69%

CLR

;ADJUST BCC FOR SDLC
;PUT BCC IN RO
;LOAD BCC FOR STUFF (HECK
;SHIFT HARDWARE BCC(
;SHIFT SOFT BCC
;BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
;BR IF OK (MARK)
;ERROR, CRC WRONG (SPACE)
. CONTINUE
;LOCK AT BIT WINDOW
;BR IF OK (SPACE)
;ERROR, CRC WRONG (MARK)

:CHECK BCC CHAR FOR ZERO STUFEFS

:CHARACTER
:SHIFT COUNT
;SHIFT SOFTBCC ONCE

;BUMP BIT COUNTER
;FINISHED BCC YET?
;BR IF NO
;CLEAR BIT COUNTER

R3
#20,R3
68%
R3

;CHECK FOR FLAG TO FOLLOW BCC

SR8 ~N

3
[

VO NOWVESWN
—-O

VWA
WVAVWA VWA VWA WD

5206
5207
5208

027642
027646
027650
027652
027656
027660
027662
027664
027670
027672
027674
027674
027700
027702
027704
027710
027712
027716
027720
027722
027724

OOO0O0

2
OO0~V

NNNNNNNO
2O OO NO VNS W

ROR288

VWAV VIV

TNV A N AWM NN AN NN AN

D p—

N AN NN NN AL wn

MACY11 30A(1052)
08-JuL-80
CZDMF
08-JuL-80 08:25
CZDMF P11

LSLSTSTNTNT NSNS LNV

)87

030042
030046
030050

012737

000176
000001
001252

004737

032314

104415
106037
103405

103006
104026

001252

0>, ;PUT FLAG CHARACTER
#*B<0111111TEMP3
MOV
1
;CLOCK FLAG ONCE
DATACLK,
sSHIFT SOFT FLAG
RORB
TEMP3
74%
BCS
;BR IF BIT [S MARK
PC,GETSI
;LOOK AT BIT WINDOW
JSR
B(C
HLT

75%
26

;BR IF

:ERROR IN FLAG CHAR

IN TEMP3

oo~

= OO0V

NO VW

-0

~no

MACY11 30A(1052)
08-JUL-B0
CZOMF
CZDMF .P11
08-JuL-80 08:25
VI AN VAN AN WA w
NN
N NN NN NI NN NN N ~o

088

030052
030054
030060
030062
030064
030066
030072
030074

000404
004737

103401
104026

005203
022703
001356
005003

08:26

032314

74%:
75%:

000010

PAGE 102

SEQ 0101

BASIC RECEIVER TESTS
BR
JSR
BCS
HLT
INC
(MP
BNE
CLR

75%

PC,GETSI

;LOOK AT BIT WINDOW

;ERROR IN FLAG CHAR
sINC BIT COUNT
sFLAG DONE YET?
sBR IF NO
;CLEAR BIT COUNT

75¢

;BR

R3
#10,R3

738
R3

s CHECK F OR ANOTHER FLAG CAUSED BY THE SOM
030076
030104
030110
030114
030116
030122
030124
030126
030130
030134
030136
030140
030142
030146
030150
030152
030156
030162
030166
030172
030174

012737
104415
106037
103405
004737
103006

000176
000001
001252

004737

032314

104026
000404

103401
104026

005203
022703
001356
005003
012700

001252

76%:

032314

77%:

78%:

000010
000004

MOV

#*B<0111 1110>,TEMP3 ;PUT FLAG CHARACTER

RORB

TEMP3

DATACLK,

BCS
JSR
BCC
HLT
BR
JSR
BCS
HLT
INC
(MP
BNE
CLR

13%:

[N TEMP3

;SHIFT SOFT FLAG

:BR IF BIT IS MARK
;LOOK AT BIT WINDOW
:BR IF 0K
:ERROR IN FLAG CHAR
;LOOK AT BIT WINDOW

;BR IF 0K

;ERROR IN FLAG CHAR
sINC BIT COUNT
;FLAG DONE YET?
:BR IF NO

;CLEAR BIT COUNT

034116

030224
030224

:CLOCK FLAG ONCE

MOvVB
MOV

¥4 ,R0
#MESDAT R4
1%
1%

(R4) +,RS
RS,R2

;RESET CHARACTER COUNTER
;LOAD MESSAGE POINTER
:CLR SOFT BCC
:ADJUST TO =1 FOR SDLC

:LOAD CHAR IN RS
;:LOAD CHAR IN R2

:CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)
030176

033332

033334

000001

030224

18
79%:

032314

030266
030272

004537
000000

033776

80%:

81%:
86%:

MOV
MOV
MCVY

RS,86%
:LOAD FOR STUFF CHECK
#CRC.CCITT,XPOLY
:LOAD POLYNOMIAL
RS,82%
:LOAD SOFT CHAR FOR BCC(
RS,SIMBCC
:CALCULATE SOFT BCC
;SHIFT COUNT
:CHARACTER

MOV

CALBCC,118

RORB

JSR
10
0
0

DATACLK,

BCC
JSR
BCS
HLT
BR
JSR
BCC
HLT

JSR
9

80%

PC,GETSI

;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

81%
6
81%

:BR IF OK (MARK)
:ERROR, BIT WINDOW WAS A SPACE
: CONT INUE

81%

:BR IF Ok (SPACE)

PC,GETSI

RS,STFFCK

:LOOK AT BIT WINDOW

:ERROR, BIT WINDOW WAS A MARK

089

CZOMF

MACY11 30A(1052)

CZDMF .P11

é
=
i
?

5276
5277
5278
5279
5280
5281
5282
g%gz

2%%2
5287

|
a
,

5288
5289
5290
5291
5292
5293
5294
5295

5296
5297
5298
5299

5300
5301
5302
5303
5304
5305
5306
5307
gggg

08-JuL-B0

08-JUL=-80 08:25

030274
030276
030302
030304
030310
030312
030314
030316

000001
110237
005203
022703
001351
005003
005300
001325

030320

030324
030330
030334
030340
030342
030344
030350
030352

030354
030356
030362
030364
030366
030366
030372
030374
030376
030402
030404
030410
030412

005137

013700
010037
104415
006000
103005
004737
103406

033334

033334
030372
000001

104014

000404
004737
103001
104014
004537
000000
000001
010037
005203
022703
001351
005003

032314

84%:

85%:

033776

87%:

030372

000020

012737

000176

5314

030426

106037

001252

5319
5320
5321
€322
5323
5324
5325
gggg

:SHIFT FOR NEXT STUFF CHECK
JBUMP BIT COUNTER
;DONE FULL 8 BITS YET
:BR IF NO
sCLEAR BIT COUNTER
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

:ADJUST BCC FOR SDLC

BR
JSR
BCC
HLT

85%
PC,GETSI
85%
14

: CONTINUE
;LOOK AT BIT WINDOW
:BR IF OK (SPACE)
:ERROR, CRC WRONG (MARK)

JSR
0
1
MOV
INC
CMP
BNE
CLR

RS,STFFCK

RO.87%
R3

#20,R3
83$
R3

sFUT BCC IN RO
:LOAD BCC FOR STUFF CHECK
;SHIFT HARDWARE BC(C(
JSHIFT SOFT BCC
:BR IF CARRY CLEAR
:LOOK AT BIT WINDOW
:BR IF 0K (MARK)
;ERROR,

CRC WRONG

(SPACE)

:CHECK BCC CHAR FOR ZERO STUFFS
:CHARACTER
;SHIFT COUNT
;SHIFT SOFTBCC ONCE
:BUMP BIT COUNTER
;FINISHED BCC YET?
:BR IF NO
;CLEAR BIT COUNTER

;CHECK FOR FLAG TO FOLLOW BCC
030422

104415

030432
030434
030440

103405
004737
103006

030444
030446
030452
0304564
030456
030460
030464
030466

000404
004737
103401
104026
005203
022703
001356
005003

030442

000001

001252

88%:

032314

104026

MOV

#*B8<01111110>,
TEMP3 ;PUT FLAG CHARACTER IN TEMP3

RORB

TEMP3

DATACLK,

BCS
JSR
BCC

89%
PC,GETSI
90%

BR
JSR
BCS
HLT
INC
CMP
BNE
CLR

90%
PC,GETSI
90%
26
R3
#10,R3
88%
R

HLT

032314

000010

89%:

90$:

gggg
$330
5331

R2,86%
R3
#10,R3
79%
R3
RO
13%

COM
CALBCC
MOV
CALBCC,RO
MOV
RO,87%
DATACLK,1
ROR
RO
BCC
84%
JSR
PC,GETSI
BCS
85%
HLT

030414

5318

83%:

032314

$312

5315
5316
5317

SEQ 0102

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

|
|
?

1
MOVB
INC
(MP
BNE
CLR
DEC
BNE

000010

g%}?
5313

PAGE 103

BASIC RECEIVER TESTS

030272

08:26

:CLOCK FLAG ONCE

:SHIFT SOFT FLAG

:BR IF BIT IS MARK
;LOOK AT BIT WINDOW
:BR IF 0K
:ERROR IN FLAG CHAR

:LOOK AT BIT WINDOW
:BR IF OK
:ERROR IN FLAG CHAR
;INC BIT COUNT

sFLAG DONE YET?
;BR IF NO
;CLEAR BIT COUNT

:CHECK TO SEE IF TRANSMITTER 1S MARKING
030470
030474

104415
004737

000001
032314

2%:

DATACLK,
1
JSR
PC,GETSI

:CLOCK TRANSMITTER
:LOOK AT WINDOW

?
|

CZDMF
MACY11 30A(1052) 08-JuL-80
CZDMF.P11
08-JUL-B0 08:25

!
|

5333 030502 104024
533,

030504

005203

§336

030512

wJ1366

.
|
n

5332

030500

103401

5335

5337
5338
5339
5340
5341
5342
53¢3
5344
gg:g

030506

030514
030520
030522

030526
030532
030534
030536
030540
030544

000007

104415
005003
104415
004737
103401
104024
005203
022703
001366

000010

000001
032314

4%:

000020

5353

012703
012702

5355

030570

02i204

5354

5356
5357
5358
5359
5360
5361
g%g%

030566

030572
030576
030600
030602
030604
030606
030610

004737

104414

01610&
112205
120504
001401
104010
005303
001364

000004
034116
033154

40%:

ROMCLK

000004

418:

033154

5368

030612

004737

5370
5371

030620
030622

021204
116137

000004

030636

004737

033154

030616

104414

5374

030642

5376
5377

030646
030652

016104
042704

5379

030662

120504

5375

ROMCLK
001252

030644

021244

000004
000374

5378 030656 012705 000003
5380

030664

030666

001401

104042

5381

;

5383 030670

|
,
|

5385 030676 116137 000004 001251
5386 030702 042737 000377 001250
5387 030710 053737 001250 001252

5382

5384

;ERROR, BIT WAS A SPACE
‘BUMP BIT COUNTER

‘BR IF NO

#7.R3

DATACLK,
CLR
R3
DATACLK,

JSR
BCS
HLT
INC
CMP
BNE

PC,GETSI
R
24
R3
#20,R3
4

:DONE YET

10
1

;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
:CLEAR BIT COUNTER
:SHIFT OUT NEXT BIT
;LOOK AT BIT WINDOW
;BR IF IT IS A MARK
:ERROR, TRANSMITTER IS NCT MARKING
:INC BIT COUNT
:DONE YET?
:BR IF NO

MOV

JSR
021204

MOV
MOVB
(MFB
BEQ
HLT
DEC
BNE

#MESDAT ,R2
PC,INRDY

:GET LAST BIT IN RECEIVER
*R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2

;WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4&(R1) R4
(R2)+.RS
RS,R4
L%
10
R3
40%

:PUT "'FOUND'' IN R4
*PUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?
;BR IF YES
: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

5372 030630 042737 177400 001252

;1T SHOULD BE MARKING

DATACLK,
MOV
#4 ,R3

5364

5373

:WAS RECEIVED CORRECTLY (0,125,252.377)

5365
3%2?

5369

CMP

SEQ 0103

:CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE

§§23
§350 030546 104415 000001
030552
030556
030562

INC

BNE

5347

§351
5352

HLT

BCS

022703

08:26 PAGE 104
BASIC RECEIVER TESTS

030670

030672

104414

021204

PC,INRDY

021204
MOVB

4&(R1),TEMP3

JSR

PC,INRDY

BIC

ROMCLK

sWAIT FOR INRDY

JSR

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

2177400, TEMP3

021244

:GET FIRST HALF OF CRC
:PUT IN TEMP3

:CLEAR HI BYTE

sWAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOV
BIC

4&(R1) R4
#374 R4

:PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS

(MPB

RS,R4

:ARE IN BCC MATCH AND BLOCK END SET?

MOV
BEQ

508:

ROMCLK

*PUT “'EXPECTED'' IN RS

#3,RS
50%

HLT

021204

MOVB
BIC
BIS

;IN BCC MATCH ERROR

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4&(R1),TEMP2+1
2377, TEMP?
TEMP2, TEMP3

SGET LAST HALF

:PUT I[N TEMP?
*CLEAR LO BYTE
16 BIT BCC NOW IN TEMP3

AT
z
;

CIOMF

MACY11 30A(1052)

CZDMF.P11
5388
5389

3%3?

08-JuL-80

08-JuL-80 08:25

030716
030724

030726

023737
001401

033334

08:26

PAGE 105

BASIC RECEIVER TESTS

001252

CMP
BEQ

HLT

104027

€392

5396
$397
5398
5299

5404
5405
2289

030730 012703 000004
030734
030740
030744
030746

012702
004737
104414
021204

030754
030756
030760

112205
120504
001401

42%:

034116
033154

43%:

ROMC X

030762
030764
030766

104010
005303
001364

44$:

030774

030776
031000

021204
116137

000004

031014

004737

033154

031022

021244

5418

031020

5420
5421

031024
031030

5423

031040

104414

016104
042704

ROMCL K
001252

177400 001252

000004
000374

;
l
'

HLT
DEC
BNE

10
R3
438

;RECEIVE DATA ERROR
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

:PUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORPECT?
:BR IF YES

031046

104414

ROMC LK

021204
116137
042737

518

000004
000377

,
001251
001250

023737
001401
104027
104400

033334

4(R1),TEMP3

;GET FIRST HALF OF CRC
:PUT IN TEMP3

JSK

PC, INRDY

:WAIT FOR INRDY

#177400,TEMP3

021244

#3,R5
51%
HLT

:CLEAR M1 BYTE

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

001252
5%:

:PUT "EXPECTED' IN RS

:IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

021204
MOVE
BIC

&4(R1),TEMP2+1
#377,TEMP2

CMPBEQ*
HLT
SCOPE

CALBCC,TEMP3
5%
27

BIS

5431 031066 053737 001250 001252
031074
031102
031104
031106

021204
MOVB

:ARE IN BCC MATCH AND BLOCK END SET?

5427

031050
031052
031060

;WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

RS5,R4

BEQ

031046

PC, INRDY

CMPB

MOV

120504

JSR

;PUT "‘FOUND'' IN Ré&
:CLEAR UNWANTED BITS

001401
104042

5637
5438

;PUT ""FOUND'' IN R&4

(R2)+,RS
RS,R4
44$

4(R1),R4
#374 R4

031042
031044

5432
5433
5434
g:gg

4(R1),Ré&

621204

MUY
BIC

5424
5425

5428
5429
5430

MOV

BIC
ROMCLK

5422 031034 012705 000003
5426

:R3=CHARACTER COUNT

#MESDAT,R2
:LOAD MESSAGE POINTER IN R2
PC, INRDY
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:AND THAT THE BCC WAS RECEIVED CORRECTLY

104414

5416 031006 042737
5419

# R3S

MOV
JSR

:CHECK TO SEE THAT IN BCC MATCH IS SET

22}?
5412 030770 004737 033154
€417

5409

5414
5415

MOV

MOVB
(MPB
BEQ

5408

5413

;1S 1T CORRECT?
;BR IF OK

;CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE

5400 030750 016104 000004
5401
5402
5403

CALBCC,TEMP3
42%
.

;WAS RECEIVED CORRECTLY (0,125,252,377)

gggz

5395

SEQ 0104

TEMRS , TEMP3

JEeRRNERTRRIRRRRTRRE TR

;GET LAST MALF
:PUT IN TEMP?
;CLEAR LO BYTE

116 BIT BCC NOW IN TEMP3
;1S 1T CORRECT?
:BR IF 0K

;SCOPE THIS TEST

YRRERNTY TEST 57 secsetsnssscnsnenenttesnene

5439

;*EMPTY SILO TEST

5442
5443

2eSILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST
“e4 CHARACTERS AND A BLOCK END WERE RECEIVED, AND IN ACTIVE IS C(LEAR

5440
5441

SeLOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK
SeUNTIL THE SILO IS EMPTY, LOAD & MORE CHARACTERS IN THE

MACY11 30A(1052)
CZDmF
08-JuL-80
CZOMF
. P11
08-JuL-80 08:25

— b

OO0 —=»—=O—=
- a2 ONOOO

oSNNS

00O

8”~‘~RJ“,

-h b
NNNN
oaongObmogzOObObNom

oo
oo

s
-

5496

5497
5498
5499

012700

ead

d e

D o

POPNIPIPO
PO ROININ
b cd cd
o i o o o o o o o
WAOR)
— — — OO NN~ OOV
S
OO SO S NONONNOON
s~

b ot ad ok ok LV LV TV TV TV TV TV R

ko o L d o LY LV LV LV LV TV T TV TP TV TV L TV TP O T TV TV D

o ot

ettt et d ol=leleleleleloleleleleleleleleloleleolelel=T=] [=leleleléleleleleleole

—

BNele]
W TV

N
s

5494
5495

5491
5492
5493

5465
5466
5467
5468
5669
5470
571
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490

PAGE 106

BASIC RECEIVER TESTS

SEQ 0105
Q"""""""'

o
o

54664

08:26

.':'Q."""'""""0""""'.'0.'.0'..""Q"'

5444
5445
5446
5647
$648
5449
5450
5651
5652
5453
5654
5655
5656
5457
5458
5459
5460
5461
5662
5463

——— <

000057
031330

001226
001216

1S157:

TEST 57

MOV
MOV

#57,TSTNO
#IST60,NEXT
;R1 CONTAINS BASE DM(11
;MASTER CLEAR DM(11
;CLEAR PORT4

MSTCLR

000004

ROMCLK

033676
004000
034116
000003
033500
032500
033634

CLR

122117
JSR

MOV
MOV
MOV

JSR
JSR
JSR

MESDAT
“

032346
000065
033634

4(R1)

;NEXT

ROM(CLK

000004

PC,SYNLD
PC,OUTRDY
RS ,MESLD

;LOAD SILO WITH TWO FLAGS
;WAIT FOR OUTRDY
;LOAD MESSAGE IN SILO

P(=5304

;SET LINE UNIT LOOP
:R2 POINTS TO MESSAGE
;RO = CHAR COUNT

:START OF MESSAGE
s CHARACTER COUNT

;WAIT FOR OCOR
;CLOCK DATA (EMPTY SILO)
:PUT MORE CHARACTERS IN SILO

JSR
PC,OCOR
DATAC! X,
6

021264

BIT

BEQ

5%:

1%:
ROMCLK

HLT

DATACLK,
JSR

021204

MOV
MOvB

2%:

033154
ROMCLK

000004
000022

#BITS,4(RT)

5%
34

PC,INRDY

kO
1%

JSR

021244
MCV

BEQ
HLT

4(R1) R4
(R2)+,R5

DEC
BNE

HLT

4&(R1),R4

#22,R5

RS,R4

6%
32

CLEAR?

;ERROR,

YES

RTS NOT

CILEAR

;CLOCK XMITTER SOME MORE

;0K LETS CHECK WHAT WAS RECEIVED
WORD IS INSTRUCTION, ROMCLK P(C=5304

;GET RECEIVE DATA

.1S DATA CORRECT?
:BR IF 0K

;DATA ERROR

;DEC CHAR COUNT
:BR IF NOT DONE YET

;NEXT

;WAIT FOR

WORD

INRDY

INSTRUCTION,

;READ LU-12
;PUT "FOUND'" IN R4

ROMCLK

;PUT "EXPECTED'' IN RS

PC=5304

;ARE BLOCK END AND IN RDY SET?
:AND IN ACTIVE AND IN BCC MATCH CLEAR?
:BR IF YES
;ERROR, BLOCK END NOT

SET

sOR IN BCC MATCH NOT CLEAR
:OR

SCOPE

:PUT IT IN R4
;RS = "EXPECTED"

PC,INRDY

;GET RTS

.BR

;NEXT

RS .R4
2%

(MPB

104032

;CLOCK UNTIL RTS IS CLEARED
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

(MPB
BEQ

MOV

001401

104400

ROMCLK

000004

120504

INSTRUCTION,

PC,CLRIO

#BIT11,(RY)
#MESDAT ,RZ
#3,R0

JSR
PC,OCCR
DATACLK,
65
JSR
R5,MESLD

032346
000006

000041
033154

sPUT LU IN BITSTUFF MODE
;D0 THIS AFTER MODE IS SET

MESDAT

000040

WORD

ADDRESS

;SCOPE

ACTIVE

THIS

NOT

TEST

CLEAR

08: 26

PAGE 107

BASIC RECEIVER TESTS

SEQ 0106

5500
A0

veevencvcenenvetttereaereee

:*2 FLAGS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM
;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO

;*THE

031330
031336

000060
031752

031344
031346
031354

040000

031356
031362
031364
031366
031372
031376
031402
031410
031414
031420
031424
031430
031434
031440
031442
031444
031446
031454
031456
031460
031464
031470
031472

033676
004000
033500
102010

031444
031444
000020
034122
031442
033210

033334

H£2 00

Nt —a

NN
N

WN
N

j=lele

&S00

N
— —

ooO

THE

CABLE

USING

MSTCLR

CLR

4(R1)

JNEXT

122117
JSR
MOV

#BIT11,(RT1)

MOV

#CRC.CCITT

JSR

PC,CLRIO

PC,SYNLD

CLR
COM

6%
6%

MOV

#FLTDAT,R?2

JSR
10
0
0

RS,SIMBCC

MOV

5%:
6%:

;R1T CONTAINS BASE DMC11
JMASTER CLEAR DM(C11

#BIT14,STATI

BEQ

7%:

BIT

MOVB

MOV

DEC
BNE
COM
JSR
16.
JSR
JSR
JSR

16.
JSR
JSR
JSR

FLTDAT

—»

TRANSMITTED OVER

#60,TSTNO
#TSTOT NEXT

FLTDAT

004737

THE

INTERNAL

TEST 60

MOV
MOV

033332

031444

DATA

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
: *LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST

FLTDAT

031544

001366

1ST60:

ROMCLK

WiNWN
NN
N

031474
031500
031504
031510
031512
031514
031520
031524
031530
031532
031534
031540

001226
001216

000004

O NN
WwWONO~

5555

TEST

;*BITSTUFF CABLE DATA TEST
;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING:

(=1l

5543
5544
5545
2546
5547
5548
5549
5550
5551
5552
5553
5554

ytrtrntrrvtvitecttrnernernne

NN
N

5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
55264
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
2342

jelele]

MACY11 30A(1052)
CZDMF
08-JuL-80
CZDMF P11
08-JuL-80 08:25

16.
JSR
JSR
JSR

#16.,R3

(R2)+,5%

CALBCC,6%

R3
7%
CALBCC
RS,MESLD

sSKIP TEST

;CLEAR PORT4

WORD

INSTRUCTION,

RS,MESLD
PC,EOM
PC,EOM
PC,0COR

ROMCLK PC=5304

sPUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE IS SET
sSET LINE UNIT LOOP

JLOAD

TWO FLAGS

XPOLY;LOAD POLYNOMIAL

FOR

SOFi

sCLEAR OLD BCC
JADJUST TO =1 FOR SDLC

CRC

sCHARACTER COUNT

sR2= POINTER

sLOAD CHAR FOR

sCALC SOFT BCC
JSHIFT COUNT
;s CHARACTER
.0LD BCC

SOFT BCC

sLOAD OLD BCC

sDEC COUNT
sBR IF NOT DONE YET
sADJUST CALBCC FOR SDLC
sLOAD SILO
ADDRESS

sCHARACTER COUNT
sLOAD AN EOM

sLOAD SILO

JMESSAGE

PC,EOM
PC,EOM

sLOOPBACK CONNECTOR ON

JMESSAGE

PC,ECM
PC,EOM
RS,MESLD

ADDRESS

sCHARACTER COUNT
sLOAD AN EOM

sLOAD SILO

JMESSAGE

ADDRESS

sCHARACTER COUNT
;LOAD AN EOM
;WAIT

FOR OCOR

CALC.

CALC

CLOCK

F o MACY 30A(‘|0')2)8 gg-JUL-BO
F.P11
08-JuL-80 0

56
57
58
39
60
61
62
63
5564
5565
5566
5567
5568
5569
5570
5;3

031550
031552
031556
031562
031566
031572
031574
031576
031602
031604
031606
031610
031612
031612
031614
031616

005011
012700
012703
012702
004737
104414
021204
016104
112205
120504
001401
104025
005303
001364
012703

08:26
PAGE 108
BASIC RECEIVER

000003
000020
034122
033154

1%:
ROMCLK

000004

2%:
000020

031622
031626
031630
031632
031640
031646
031652
031654
031656
031662
031666
031672
031674
031676
031700

004737
104414
021204
116137
042737
004737
104414
021244
016104
042704
012705
120504
001401
104042

033154
000004
177400
033154

000004
000377

5597

031726

023737

033334

5606

5607

5608

5609
5610
5611

031734
031736
031740
031744
031746
031750

053737

001401
104027
012702
005300
001307
104400

001252
001252
ROMCLK
MOV
BIC
MOV
(MPB
BEQ
25%:

104414
021204
116137
042737

031720

ROMCLK

000004
000374
000003

031700
031702
031704
031712

5598
5599
5600
5601
5602
5603
5604
5605

021204
MOV
MOvVB
(MPB
BEQ
HLT

(R1)
;CLEAR LINE UNIT LOOP
#3,R0
;RO = MESSAGE COUNT
#6.,R3
:R3= CHARACTER COUNT
#FLTDAT,R?
;LOAD MESSAGE POINTER IN R2
PC, INRDY
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET DATA FROM IN SILO
4(R1) R4
;PUT CHARACTER IN "FOUND"'
(R2)+,RS
:PUT "EXPECTED'' IN RS
R5,R&
;1S RECEIVED DATA CORRECT
2%
:BR_IF 0K
25
;DATA ERROR

DEC
BNE
MOV

R3
1%
#6.,R3

;AND THAT

5592
5593
5596
5595

5596

(LR
MOV
MOV
Mov
JSR

SEQ 0107

;DEC CHARACTER COUNT
:BR IF NOT DONE THIS MESSAGE
;RESET CHARACTER COUNT

;CHECK TO SEE THAT IN BCC MATCH IS SET

gg;g

5577
5578
5579
5580
5581
5582
83
84
85
86
87
88
89
90

TESTS

ROMCLK

001250

034122

JSR

021204
MOVE
BIC
JSR

THE BCC WAS RECEIVED CORRECTLY

PC,INRDY

;WAIT FOR INKDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF C(RC
4&(R1),TEMP3
;PUT IN TEMP3
#177400,TEMP3
;CLEAR HI BYTE
PC,INRDY
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

021244
4(R1),R4
#374 R4
#3,RS
RS ,R4
25%
HLT
62

;PUT "FOUND'' IN R4
; CLEAR UNWANTED BITS
:PUT "EXPECTED'' IN RS
;ARE IN BCC MATCH AND BLOCK END SET?
;IN BCC MATCH ERROR

001251
001250

021204
MOvVB
BIC

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;GET LAST HALF
4(R1),TEMP2+1
;PUT IN TEMP?
#377,TEMP2
;CLEAR LO BYTE

001252

(MP

CALBCC, TEMP3

001252

BIS

4$:

3%:

BEQ
HLT
MOV
DEC
BNE
SCOPE

TEMPS, TEMPS3

;16 BIT BCC NOW [N TEMP3

4%
27
#FLTDAT,R?
RO
%

:BR IF 0K

srernnnrreervteerrennecnntnnn

;*BITSTUFF

;*THIS

TEST

;1S IT CORRECT?

;RESET MESSAGE POINTER
;DECREMENT COUNTER
;BR _IF NOT DONE
:SCOPE THIS TEST
JEST

CABLE DATA TEST
LOADS OUT

vatntvenevnrntecnattnannens

SILO WITH THE

FOLLOWING:

;%2 FLAGS,59 DATA CHARACTERS,EOM WITH GARBAGE C(HARACTER
;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK
;*RECEIVED DATA [S VERIFIED AS

IN BCC MATCH

MACY11 30A(1052)
CZDMF
08-JuL-80
CZDMF P11
08-JuL.-80 08:25

5612
5613
5614
5615
$616
5617
5618
5619
5620
5621
5622

5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639

08:26

PAGE 109

9
~

BASIC RECEIVER TESTS

;*LOOP=BACK CONNECTOR MUST BE ON TO RUN THIS TEST

CIRRARRRRERRRCRRNRELTETRREPRRRNRRCRAROERRROERORRROROERNORRRCCERROEROEROOROOERNTETR

.
031752

000061
003364

031760
031766
031770
031776
032000
032004
032006
032010
032014
032020
032024
032032
032036
032042
032046
032052
032056

040000

001226
001216
001366

000004

033676
904000
033500
102010

032066
032066
000073
034116
032064
033210

T1ST61:

TEST 61

MOV
MOV

MSTCLR

ROMCLK

BIT

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
#BIT14,STATI
JSKIP TEST IF NO

122117
JSR

PC,CLRIO

MOV
CLR

#CRC.CCITT, XPOLY,;LOAD POLYNOMIAL FOR SOFT
6%
;CLEAR OLD BCC

BEQ
CLR

3%
4(R1)

MOV
JSR

033332

COM

g T

5%:

032066

5640
5641
5642
5643
5644
5645

#61,TSTNO
#.EOP,NEXT

6% :

MOV
MOV

MOVB

JSR
10

0
MOV

005300
001364

;LOAD

CHAR FOR

sSHIFT

COUNT

;BR IF NOT DONE YET

PC,EOM

sCHARACTER COUNT
;LOAD AN EOM

PC,O0COR
(R1)

;WAIT FOR OCOR
sCLEAR LINE UNIT LOOP

#MESDAT ,R?

:LOAD MESSAGE POINTER

CALBCC
RS,MESLD

JSR

PC,EOM

MOV

#59. R0

MOV
JSR

PC,INRDY

021204
MOV

CALC.

sDEC COUNT

sADJUST CALBCC
sLOAD SILO
sMESSAGE

FOR SDLC
:

ADDRESS

;R0O= CHARACTER COUNT
JWAIT

FOR

INRDY

[N R2

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
JGET DATA FROM IN SILO
4&(R1),R4
sPUT CHARACTER IN "'FOUND"'
., (R2)+,RS
;PUT "'EXPECTED'" IN RS
;1S RECEIVED DATA CORRECT
RS,R4
2%
;BR IF 0K
25

;DATA ERROR

RO
1%

;DECREMENT COUNTER
:BR [F NOT DONE

;CHECK TO SEE THAT IN BCC MATCH IS SET
;AND

SOFT BCC

COm
JSR

DEC
BNE

sCALC SOFT BCC

,0LD BCC
sLOAD OLD BCC

HLT

CALC

FOR SDLC

;sCHARACTER COUNT
;R2= POINTER

CALBCC,69

DEC

JSR
CLR

104025

(R2)+,5%

CRC

; CHARACTER

59.
JSR

001401

sSET LINE UNIT LOOP
;LOAD TWO FLAGS
sADJUST TO -1

MOVB
(MPB
BEQ

JPUT LINE UNIT IN BITSTUFF MODE
;DO THIS AFTER MODE IS SET

RS,SIMBCC

MESDAT

ROMCLK

#BIT11,(RY1)
PC,SYNLD

#59. ,R%
#MESDAT ,R?

BNE

1%:

;LOOPBACK CONNECTOR ON
;CLEAR PORTS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

THAT

THE

BCC WAS RECEIVED C(ORRECTLY

SEQ 0108

5673
5674
5675

5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693
5694
95695
5696
5697
5698
5699
5700
5701

104414

021244
016104
042704
012705
120504

nonro

042737
004737

000004
177400

ROMCLK
il

116137

033154

021204

033154

000004
000374
000003

116137

001401
104027

NO- NS W

JSR

;GET FIRST HALF OF CRC
‘PUT IN TEMP3

:CLEAR Ml BYTE

#177400,TEMP3
PC, INRDY

‘WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

4(R1),R4
#374 R

:PUT "'FOUND'' IN R4
“CLEAR-UNWANTED BITS

(MPB
BEQ

RS ,R4
25%

;ARE

#3,RS
HLT

*PUT "EXPECTED'" IN RS
42

IN BCC MATCH AND BLOCK END SET?
i
:IN BCC MATCH ERROR

(MP
BEQ

JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
SGET LAST HALF
4L(R1),TEMP2+1
:PUT IN TEMP?
9377, TEMP?
:CLEAR LO BYTE
216 BIT BCC NOW IN TEMP3
TEMP2, TEMP3
:IS IT CORRECT?
CALBCC,TEMP3
;BR IF 0K
3%

SCOPE

:SCOPE THIS TEST

021204
MOVB
BIC

BIS
HLT

: SUBROUTINES
GETSI

;THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH.
NITCH IS ROTATED LEFT UNTILL

104414

ROMCLK

021364
017737

032344

000207
000000

W) = OV

4(R1),TEMP3

MOV
BIC

000004
000377
001250
033334

106137
106137
106137

WA
NN
VA WD
NNNNNNNNNNNN
POPORNUN
b bt et s = s

021204
MOVE

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

ROM(CLK

104400

;WAIT FOR INRDY

PC,INRDY

ROMCLK

104414

062737
053737
023737

JSR

BIC

MOV

001401
104042

021204

PAGE 110

BASIC RECEIVER TESTS

104414

08:26

roro

004737

(==}
oo

NONONINTONIN NN
—

5668
5669
5670
5671
5672

O VNV B WO
=2 O 00 v
SO SNONOOC SO OOSONSNO
S

MACY11 30A(1052)
08-JUL-80
CZDm¥
CZDMF P11
08-JuUL-80 08:25

SI BIT

ADMPO4L ,NITCH

;PORT4_LU 17
:STORETMLU 17

ROLB

NITCH

;PUT

grs

IN CARRY

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

021364
MOV
ROLB
ROLB

NITCH
NITCH

IN THE

CARRY BIT

NITCH:

OCOR:
ROMCLK

104414

021364
032777
001772

THE

000020

147032

;THIS SUBROUTINE

SPINS ON OCOR

021364

:NEXT WORD IS INSTRUCTION, ROM(CLK P(=5304
:PORT4 LU 17

BIT

#B[T4,aDMPO4

;1S OCOR SET?

RTS

;0K OCOR

BEQ

000207
SYNC:

0COR

:BR IF NO

;THIS SUBROUNTINE LOADS THE

;CHARACTERS PASSED TO IT

IS SET,

GO BAC(K

SILO WITH THE NUMBER OF

IN THE WORD AFTER THE

SYNC

JSR CALL

SEQ 0109

———

CIDMF

———

MACYYY

(2DMF . P1)

————————————————————————————————

30A(1052)

O08-JUL-80

08-JuL-80 08:25

08:26

PAGE

111

SUBROUTINES

g;gg
5726

5727
€728

5729

032364

032370
032374

032402

013637

062746
012761

104414

122114

5731
5732

032406
032412

004737
012761

5734

032422

122111

032420

104414

5735

032424

012761

5737
5738
5739
5740

032434
032436
032442
032444

122110
005337
001361
004737

032454

104414

5736

5741

5742

5743
5744

5745

5746
S747

032432

032450

104414

005061

032456
032460

12211
012761

032470
032472

122110
004737
000207

032466

032500

5754
5755

032500
032504

005037

5757

032506

021224

032516
032520
032524
032526

001004
005237
001367
104036

5756

5758

5759
5760
5761
5762

5763

5764
5765
5766

5767

032476

104414

5748
5749
5750
5751
2;2%

032504

032510

032530

001246

000002
000026

032500
000001

000026

MOV

000004

ROMCLK
1%:

ROMCLK

ROMC LK

001246

032500

000004
0003017

ROMCLK
000004

ROMCLK

(32346

QUTRDY:

001256

1%:

104414

032777

ROMCLK

000020

146674

001256
2%:

000207

(HAR:

032532

g;gg

032532
032536

013637
062746

5774

032556

104414

5775
5776
§777

S778

5779

d(SP)+,TEMPI

ADD
MOV

#2,-(SP)
#26,4(R1)

;GET COUNT

ADJUST STACK
:LOAD PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122114

JSR
MOV

;LOAD SYNC REGISTER

PC,OUTRDY
#1,4(R1)

;HAIT FOR QUTRDY
:LOAD PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122111

:SET SOM

MOV

#26,4L(R1)

:LOAD PORT4

122110
DEC
BNE
JSR

TEMPY
1%
PC,OUTRDY

;LOAD OUT DATA
JALL DONE?
:BR IF NOT
:WAIT FOR QUTRDY

:NEXT WORD IS INSTRUCTION, ROMCLK P(=530¢4

CLR

4L(RY1)

:LOAD PORT4

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

122111
MOV

#301,4(R1)

122110
JSR
RTS

’
PC,OCOR
PC

:NEXT WORD IS INSTRULTION, ROM(!K P(C=5304
:LOAD OUT DATA
:WAIT FOR OCOR

;THIS SUBROUTINE

(LR

021224

SPINS ON OUT READY

TEMPS

;CLEAR TIMER

NEXT WORD IS INSTRUCTICN, ROMCLK PC=5304

BIT

#B174,3DMPO4

RTS

BNE
INC
BNE
HLT

:SET SOM
:LOAD PORT4

2%
TEMPS
1%
36
.

:PORT4 LU

:1S oUY RDY SET?

BR IF YES
SINC TIMER
:KEEP CHECKING [F NOT DONE
;ERROR, OUT READY NOT SET

:THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS
:AND THE CHARACTER PASSED TO IT.

5770
S771

§772
§77%

SEQ 0110

;AND A NON=SYNC CHARACTER (301)

5730 032404

5733

;

032542
032550

012737
012761

032560
032562
032566

122114
004737
012761

032576

122111

032574

104414

001250
000002

000003
000026
032500
000001

001246
000004
000004

MOV
ADD

ROMCLK
1%:

ROMC LK

MOV
MOV
122114
JSR
MOV
122111

3(SP)+,TEMP2
#2,-(SP)

#3,TEMPY
#26,4(R1)

:GET CHARACTER
:ADJUST STACK

:SET FOR 3 SYNCS
:LOAD PORT4

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

PC,OUTRDY
2 ,4(RY)

:LOAD SYNC REGIST ER
:WAIT FOR OUTRDY
:LOAD PORT4

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM

‘g
-

MACY11 30A(1052)
C2DMF
08-JUL-80
08-JuL-80 08:25
. P1 1
(ZDMF

5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818

5819
5820
5821

032600
032606
032610
032612
032616
032620
032624
032632
032634
032636
032642

012761

104414
122110

000026

005337
001361
004737
013761

001246

004737
000207

032346

106414
122110

032500
001250

08:26

000004

112

ROMCLK

ROM(CLK

104414
122110

001250

004737

032500

004737
000207

032346

106414
122110

122110
DEC

MOV

122110

RTS

001250
000002

032500

MOV

BNE
J3R

(HARSD:

013637
062746
004737
013761

SEQ 011

JSR

032644

032644
032650
032654
032660
032666
032670
032672
032676
032700
032702
032706

PAGE

SUBROUTINES

000004

ROMCLK

100470

001032
062737
012737
012761

000073
033150

001250

000002

001250
001246
000004

000003
000026
032500
000001

000004

122110
JSR
122110

;THIS

000026

000004

ROMCLK

001246
032500
033150
122110

005737

033152

000004

’%:
ROM(LK

;LOAD PORT4

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

;WAIT FOR OCOR

PC,0COR
PC

PC,OUTRDY

;GET C(HARACTER
JADJUST STACK

;WAIT FOR OUTRDY
;LOAD PORT4

;NEXT WORD

IS INSTRUCTION, ROMCLK PC=5304

PC,OUTRDY

;LOAD OUT DAiA
;WAIT FOR OUTRDY

PC,0COR

JWAIT FOR OCOR

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

GARBAGE

C(HAR

SUBROUTINE

FILLS

THE

OUT

SILO

MOV

#73,TEMP?

;LOAD COUNT

BM]|
BNE

3]
2%

;BR IF BITSTUFF
:BR IF NO

SCHAR

MOV

¥2,TEMP2
#3,TEMPY
#26,4(R1)

122114
JSR

PC,OUTRDY

MOV

122111

MOV
ROMCLK

;BR IF NOT
;WAIT FOR OUTRDY

WITH A BINARY COUNT PATTERN

ADD
MOV

1%:

TEMP2,4(RY)

TEMP2,4(R1)

TST

ROMCLK

TEMP1
1%
PC,OUTRDY

MOV

;

012737
005737

;LOAD OUT DATA
;ALL DONE?

a(SP)+ TEMP2
#2,-(SP)

RTS

SILOLD:

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

MOV
ADD

JSR

032710

;LOAD PORT4

;THIS SUBROUTINE LOADS THE SILO WITH THE (HARACTER PASSED TO IT.

JSR

ROM(LK

#26,4(RY)

122110

DEC
BNE
JSR

MOV
122110
1S7

;FIRST

TIME

HERE?

;ADD 2 TO CHARACTER COUNT
;SET FOR 3 SYNCS
:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

#1,4(RY)

;LOAD SYNC REGISTER
;WAIT FOR OUTRDY

;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

#26,4(R1)

JSET

SOM

:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

TEMPI
1%
PC,OUTRDY

SCHAR,4(R1)

;LOAD OUT DATA

;ALL DONE?
;BR IF NOT
SWAIT FOR QUTRDY
.LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

STUFLG

;LOAD QUT DATA
(BITSTUFE22?

MACY11 30A(1052)
08-JuUL-80
P11
08-JuL-80 08 19

onNvoRoO
S¥ERE3

033034

001407

013737
004537
000000
000010
005237
022737
001403
005337
001346
004737
000207
005037
012737
005037
062737
012761
104414
122111
104414

08: 26 PAGE 113
SUBROUTINES

033050
5%:
6%:

033150

032346

033150

(LR

177777

0346114
000002
000001

033152
001250
000004

ROM(LK

ROMC LK

001246

ROMCLK

104414

000020

2%:
SIMBCC:

JNEXT CHARA(CTER
JALL

DONE?

;BR IF NOT DONE
;WAIT FOR OCOR

SCHAR

#2,TEMP?
#1,4(RY)

COUNT

JDECREMENT COUNT

TEMP?2

2%
PC,OCOR

122111

;START

PATTERN AT

JSET BITSTUFF FLAG
;CLEAR STUFF COUNT

ZERO

:ADD 2 TO CHARACTER COUNT
;SET BITO IN PORT4

NEXT WORD IS INSTRUCTION, ROM(CLK P(=5304
;SET SOMm!

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;LOAD GARBAGE (HAR
;GO LOAD SILU

JTHIS SUBROUTINE SPINS ON INRDY
:1F INRDY FAILS TO SET THE DELAY TIMES OUT AND AN
;ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS
;DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER
SINITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER
;THE SHORTER THE DELAY. O IS THE LONGEST DELAY.
MOV

021244

BNE

000207

#-1,STUFLG
BITCON

BNE
INC

001246

SCHAR

#400,SCHAR

MOV
CLR

ADD
MOV

;BR IF NO
;1T IS SDLD SO CHECK BITSTUFFING
;ADD ANY BIT STUFF CLOCK TICKS
:CHARACTER
JCHIFT

BIT

146216

104037

HLT

RTS

20, TEMP

;SET UP DELAY

COUNTER

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:PORT4 LUT?

#B1T4,aDMPO4

;1S INRDY SET?

;TRY AGAIN

2%
TEMP
37

JERROR,NO

sTHIS SUBROUTINE

;BR JF YES
sINC DELAY

RETURN

CALCULATES THE

INRDY

CRC USING POLYNOMIAL GIVEN

;IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE

WINROND
WD
S
s rOo0o

NN
— —

[=]eTele)
WWwWO

b >
o
et D

wrorONO
NN
O
O WwNwN
S
O N~NNO

JSTATE OF
[=lelele
e

N LN U N
N
N NN
N U U
NN N NN N

[elelelelelelelelele]

204
206

000000

6%
SCHAR,SS
RS,STFFCL

RTS

122110
BR
SCHAR:
0
STUFLG: 0
INRDY:

005237
001367

INC

(MP

BNE
JSR

033154

021244
032777
001004

DEC

001250

000000

162

BEQ
MOV
JSR
0

BEQ

122110
000721
000000

012737

SEQ 0112

MOV

RO, = (SP)

MOV

(RS)+ . TEMP?

MOV
1%:

THE LSB OF

MOV

THE BCC IS RETURNED IN THE C BIT.
:SAVE RO ON STACK

(RE)+ ., TEMPY

STEMPY = SHIFT COUNT

(RS)+,(ALBCC

:CALBCC

CALBCC,RO

STEMP2 = CHARACTER
= OLD BCC

:PUT OLD BCC

IN RO

MACY11 30A(1052)
08-JUL-80
CZDMF
CZOMF P11
08-JuL-80 08:25

08:26

PAGE 114

000241

5892
5893
5894
589%
5896
5897
5898
5899

cLC

ROR

TEMP?
RO

BCC

MOV

BIC

033334

BIC

2%:

001246

033332
033334

;CARRY |S FEEDBACK BIT

XPOLY,RO

CALBCC,RO

XPOLY,CALBCC

BIS
DEC
BNE

RO, CALBCC
TEMP1
1%

MOV
ROR
ADC
ROR
MOV
RTS
O

CALBCC,RO
RO
TEMP1
TEMP1
(SP)+,R0
RS

MOV

XPOLY:

;SHIFT OLD BCC
'
;SHIFT CHARACTER
;ADD CHAR CARRY TO OLD BCC
;PUT BITO TO CARRY BIT

CALBCC

ROR
ADC

ROR

5900

SEQ 0113

SUBROUTINES

#1,TEMP

;IF FEEDBACK = 1
SEXCLUSIVLY OR XPOLY TO CALBCC
;DEC SHIFT COUNT
;BR IF NOT DONE
;GET SET TO INVERT BITO
;PUT RESULT IN RO
;SHIFT BITO TO CARRY
; INVERT CARRY TO BITO OF TEMPI
.PUT INVERTED BIT IN CARRY
;RESTORE RO
;RETURN

CALBCC: 0
LR(8=200
(RC16=120001
CRC.CCITT=102010

000200
120001
102010

BCCLD:

033336

:THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS

;WITH SOM SET, AND ONE CHARACTER PASSED TO IT
;WITH THE SOM BIT CLEAR (ENABLE CR(C)
033336
033342
033346
033354

013637
062746
012737
012761

001250
000002
000002
000026

004737
012761

032500
000001

104414
122114

104414
122111

012761

000026

104414

122110

005337
001361
004737
013761
104414
122110

004737
000207
033450

001246
000004

000004
00000«

a(SP)+ TEMP?2

;GET CHARACTER

MOV

#2,TEMP

:SET FOR 2 SYNCS

ADD

ROMCLK
18:

ROMCLK

MOV

122114

JSR
MOV

122111

MOV

122110

DEC
BNE

001246

032500
001250

MOV

000004

ROMCLK

JSR
MOV
122110

JSR

032346

RTS

GETQO:

#2,-(SP)

#26,4(R1)

JADJUST STACK

;LOAD PORT4

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD SYNC REGISTER

:WAIT FOR QUTRDY
:LCAD PORT4

PC,OUTRDY
#1,4(R1)

NEXT WORD 1S INSTRUCTION, ROMCLK P(=5304
;SET SOM

#26,4(R1)

:LOAD PORT4

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

TEMP
1%

;LOAD OUT DATA

PC,OUTRDY
TEMP2,4(RY)

sALL DONE?
;BR IF NOT

;WAIT FOR QUTRDY
;LOAD PORT&

sNEXT WORD IS INSTRUCTION, ROM({LK P(=5304

PC,0OCOR
PC

;THIS SUBROUTINE

;LOAD OUT DATA

;WAIT FOR OCOR

READS THE

STATE

GOF

THE

TRANSM|T

MACY11 30A(1052)
08-JuUL-B0
CZDMF P11
08-JuUL-80 08:25
CZDMF

5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983

08:26

PAGE '15

SEQ 0114

SUBROUTINES

;BCC LSB AND PUTS IT [N THE CARRY BIT
033450
033452
033454
033460

104414

021364

106177

000207

ROMCLK

145732

021364
ROLB
RIS

GETGI:

033462

:NEXT WORD IS INSTRUCTION, ROM(CLK PC=5304

:PORT& LU=17
:PUT Q0 IN CARRY

ADMPOL
PC

;RETURN

;THIS SUBROUTINE READS THE

STATE OF

THE RECEIVE

;BCC LSB AND PUTS IT IN THE CARRY BIT

033462
033464
033466
033472
033476

104414

021364

106177
106177

000207

ROMCLK

145720
145714

ROLB

SYNLD:

033500

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

021364
ROLB

aDMPO4

RTS

aDMPO4

:PUT QI

:PORT4 LU=17
:PUT Q0 IN CARRY
IN CARRY
:RETURN

;THIS SUBROUTINE LOADS OUT

SILO WITH

;2 SYNC CHARACTERS WITH SOM SET

033500
033506
033514
033516
033520
033524
033532
033534
033536
033544
033546
033550
033554
033556

012737
012761
104414
12214

000002
000026

001246
000004

004737
012761

032500
000001

000004

012761

000026

000004

005337
001361
000207

001246

104414
122111

104414
122110

ROMCLK

1%:
ROMCLK

ROMCLK

MOV
MOV
122114

JSR

MOV

PC,OUTRDY

:WAIT FOR OUTRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD SYNC REG

#1.,4(R1)

:LOAD PORT4

TEMP1

;DECREMENT COUNTER

:RETURN

122110

BNE

122111

MOV

RTS

SOM:

:LOAD COUNTER FOR 2 SYNCS
:PORT4 26

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM
#26,4(R1)
;PORT_26
:NEXT WORD ISTINSTRUCTION, ROMCLK P(=5304
:LOAD OUT DATA WITH SYNC

DEC

033560

#2,TEMPI
#26,4(R1)

:BR IF NOT DONE

;THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A

: GARBAGE CHARACTER (0)

033560

004737
012761
104414
122111

005061

104414
122110

032500
000001
000004

000004

JSR

ROMCLK

MOV
122111
CLR

122110

RTS

000207
EOM:

PC,OUTRDY
#,4(RY)

:WAIT FOR OUTRDY
;PORT4 1

4(R1)

SSET SOM
:CLEAR DATA CHAR

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHARACTER
:RETURN

;THIS SUBROUTINE LOADS EOM AND QUT DATA WITH A
;GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC

30A(1052)

033610

004737
012761
104414
122111

CZDMF P11

6016
6017
6018

6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
0034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050

6051
6052
6053
6054
6055
6056
6057
6058
6059

033614
033622
033624
033626
033630
033632

032500
000002

000004

104414
122110

9
SEQ 0115

SUBROUTINES

ROMCLK
ROMCLK

000207

033634

PAGE 116

MESLD:

JSR
MOV

PC,OUTRDY
#2,4(R1)

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122111
122110
RTS

:WAIT FOR OUTRDY
:PORT4 2
:SET EOM

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE
:RETURN

CHARACTER

;THIS SUBROUTINE LOADS SILO WITH MESSAGE
;THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE

;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE

033634
033636
033640
033644
033650
033654
033656
033660
033664
033666
033672
033674

MOV

RO,-(SP)

MOV

(R5)+ . TEMP1

MOV

001246
032500
000004

1%:
ROMCLK

001246

032346

JSR

MOVB
122110

000205

033676

CLRIO:

:SAVE RO

(R§)+,R0

PC,OUTRDY

(RO)+,4(R1)

*RO=MESSAGE POINTER

“TEMP1=CHARACTER COUNT

‘WAIT FOR OUT RDY

*LOAD PORT4 WITH CHARACTER

“NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO

DEC
BNE
JSR

TEMPA
1%
PC,OCOR

:DEC CHAR COUNT
‘BR IF NOT DONE
‘WAIT FOR OCOR

RTS

*RETURN

MOV

(SP)+,R0

*RESTORE RO

;THIS SUBROUTINE SETS IN CLR AND OUT CLR TO

;CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS

033676
033704
033706
033710
03..12
033714

012761

104414
122112
104414
122111

000200

000004

ROMCLK

000207
STFFCL:

033716

033716
033720
033722
033726
033730
033732
033736
033740
033744
033752
033754

ROMCLK

—b

6006
6007
6008
6009
6010
6011
6012
6013
6014
6015

08:26

001252

1%:

034114
034114
000005
034114

MoV

034114

2%:

#BIT7,4(RY)

122111
RTS

;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

122112

;SET

IN CLR!

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

:SET OUT CLR!
;RETURN

;THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS
;FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT.

MOV

RO,-(SP)

:SAVE RO

MOV

(RS)+,TEMP3

*PUT SHIFT COUNT IN TEMP3

‘BR IF A MARK

MOV

—s

6004
6005

08-JUL-8C
08-JuL-80 08:25

MACY11

—_—

CZDMF

(R$)+,RO

RORB

CLR

BITCON

INC

BITCON

BCS

(MP
BNE
CLR

#5,BITCON
3%
BITCON

*PUT CHAR IN RO

*LOOK AT NEXT BIT

“1T WAS A SPACE, CLEAR 1'S COUNTER
s CONTINUE

;INC CONSECUTIVE 1'S COUNTER
SIS IT 5 YET?
:BR IF NO
SO START AGAIN
JYES!

CIDMF

MACY11 30A(1052)

CZDMF.P11
6060
6061
6062
6063
6064

6065
6066
6067

6068
6069

08-JuL-80

08=JUL-80 08:25

033760
033764
033770
033772
033774

104415
005337
001356
012600
000205

08:26

PAGE 117

SUBROUTINES

000001
001252

033776

STFFCK:

6072

033776

010046

6074

034002

012537

6073 034000 012500
034006
034010
034012
034016
034020
034024
034032
034034
034040
034044
034050
034052
034054
034060
034062
034064

106000
103403
005037
000416
005237
022737
001010
005037
104415
004737
103001
104030
005337
001352
012600
000205

6091
6092
6093

034066

6097

034066

6099
6100

034074 027777
034102 005300

6103

034110

6094
6095

:GIVE EXTRA TICK TO STUFF ZERO
‘DEC SHIFT COUNT
‘BR IF NOT DONE
‘RESTORE RO
*RETURN

:THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER
;1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT

1%:

034114
034114
000005

034114

2%:

034114
000001
032314

001252

CTSDLY:

010046

145104

MOV

RO,-(SP)

:SAVE RO

MOV

(RS)+,TEMP3

‘PUT SHIFT COUNT IN TEMP3

MOV

001252

6098 034070 012700 000032
6101
6102

DATACLK,
1
DEC
TEMP3
BNE
1%
MOV
(SP)+,R0
RTS
RS

:1S THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT.

28;?

6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6085
6090

SEQ 0116

RORB
RO
BCS
2%
CLR
BITCON
BR
3%
INC
BITCON
CMP
#5,BITCON
BNE
3%
CLR
BITCON
DATACLK,
1
JSR
PC,GETSI
BCC
3%
HLT
30
TEMP3
DEC
BNE
1%
MOV
(SP)+,R0
RTS
RS

1%:

:PUT CHAR IN RO

SSHIFT OUT NEXT BIT
SBR 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
YEXTRA TICK TO STUFF ZERO
;LOOK AT WINDOW
;1S 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,
;BUT HOPEFULLY NOT SO LONG THAT THE SILC RUNS OuT

MOV

145102

(R$)+,R0

RO,=-(SP)

:SAVE RO

MOV

#32,R0

*LOAD RO WITH COUNT

1%
(SP)+,R0O

‘DO IT AGAIN IF NOT = 0
:RESTORE RO

CMP
DEC

oTKCSR,aTKCSR
RO

JWASTE TIME
*DECREMENT COUNTER

034104
034106

001373
012600

BNE
MOV

6106
6107
6108

034112
034114
034116

000176
000000
000

125

252

~g<01111110>
FLAG:
BITCON: 0

MESDAT: .BYTE

0,125,252.377

6110

034122

001

002

004

FLTDAT: .BYTE

1.2.4.10,20.40,100,200,376,375,373,367,357,337,277.177

034130
034133
034136
034141

100
375
357
177

200
373
337

376
367
277

6104

6105

6109
6111

6112
6113
6114
6115

034121

034125

RTS

000207

377

010

020

040

*RETURN

;FLAG CHARACTER

347
000
377

317
377
200

046377
046377
377
377
377
377
051377
377
052377
040777
054777
052377
377
377
377
377
043377
022377
051777
377
052377
377
377
044777

047111
047111
044514
044514
051124
042522
041505
047515
044510
052125
052517
040522
042522
047111
051124
040503
040514
040522
044527
041101
040522
040510
052517
020116

020105
020105
042516
042516
047101
042503
044505
042504
020123
051517
044040
051516
042503
041040
047101
046102
020107
051516
041524
051117
051516
043114
020124
042522

.EVEN
EM1:
EM2:
EM3:
EM&:
EMS:
EM6:
EM7:
EM10:
LASCII
LASCII
LASCIZ
EM11:
EM12
EM13:
EM14:
EM1S:
EM16:
EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM25:

042777
377
377
377
377
377

050130
054105
044103
047503
054105
054105

041505
042520
051101
051122
042520
042520

DH1:
DHZ:
DH3:
DH&:
DH5:
DH6:

377
051377
035670
000002
003
001272
003
001270
000003
003
001272
003
001270
003
001264

046102
051524

007

041517
042040

.BYTE

DH7:
DH10:
.EVEN
DT1:

363,347,317,200,0,377,377,377,200,37

<377>/LINE UN I T INITALI IATION TEST/
<377>*LINE UN} T REGISTER READ/ONLY TEST*
<377>*LINE UNIT REGISTER WRITE/READ TEST*
<377>/LINE UNIT INTERNAL CLOCK FAILURE/
<377>/TRANSMITTER DATA ERROR/
<377>/RECEIVER TEST/
<377>/RECEIVER DATA ERROR/
<377>/MODEM SIGNAL ERROR/
l
<377>/THIS ERROR COULD BE CAUSED If YOU MAVE V.35 AND/
<377>/AUTOSIZED.
_YOU MUST MANUALLY ANSWER OUESYIONS [F/
<377>/Y0OU_HAVE V.35 (DMC11=FA)/
<377>/TRANSMITTER CR( ERRORI
LASCIZ
<377>/RECEIVER CRC ERROR/
LASCIZ
<377>/IN BCC MATCH ERROR (LU REG 12)/
ASCIZ
<377>/TRANSMITTER FAILED TO GO TO MARK STATE/
LASCIZ
<377>/CABLE DATA TEST/
LASCIZ
<377>/FLAG ERROR/
LASCIZ
<377>/TRANSMITTER FAILED TO STUFF A ZERO/
<377>/SWITCH PAC TEST/
<377>/ABORT ERROR/
<377>/TRANSMITTER ERROR/
<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
FCUND
CHARACTER
SHIFT/

<377>/BLOCK END NOT SET/
<377>/RTS DID NOT

3-7
3.2

002
007

100,140,160,170,3,300,174,176,177,1

STUFDT:

e o

035344
035365
035423
035461
035521
035553

035670
035672
035674
035676
035700
035702
035704
035706
035710
035712
035714
035716

160
300
i77

e bt

034166
034224
034267
034333
034375
034425
034444
03447
034514
0345764
034656
034710
034737
034763
035023
035073
035114
035130
035174
03521
035232
035255
035277
035322

035621
035644

140
003
176

100
170
174
001
363
200
377
037

—

034142
034145
034150
034153
034154
034157
034162
034165

D12:

SEQ 0117

6116
6117
6118
6119
€120
6121
6122
6123
6124
6125

08:26 PAGE 118
SUBROUTINES

()]

CZDMF
MACY11 30A(1052)
08-JuL-B0
CZOMF P11
08-JuL-80 08:25

3.7

019

3.10

002

5.2

CLEAR/

—

006
033334
002

001266
000003
001
001300
001
001302
002
001260
000003
001
001302
001
001300
002
001260
000004
001
001200
001
001302
003
001272

017

036070
036070
036072

000000
000000

D16:

.BYTE
CALBCC
.BYTE
§AVR3

3,17
2,2
6,21

.BYTE
ZERO
.BYTE

§AVRO

2.2

.BYTE

.BYTE
ZERO
.BYTE

DT7:

zAVRO

2,2

.BYTE

lEROD

.BYTE
ONE

007

.BYTE

DT10:

007

SAVRS
.BYTE
SAVRS

2.1

.BYTE

1.1

.BYTE
ZERO
.BYTE

1.1

3,7

.BYTE

2,1

SAVRS

001
DT11:

SAVR3
FLAG

002

004

SAVRS

.BYTE

007

BYTE

ONE

002

002
001266
000002
006
033334
006
001252

DTS:

001

036042
036044
036046
036050
036052
036054
036056
036060
036062
036064
036066

DT4:

002
on

SAVRS
.BYTE

001

001302
001
001300
003
001272
002
001266
000002
003
034112

DT3:

002

002
001266

000004

SUBROUTINES

002

B 10

PAGE 119

740

000002
003
001272
002
001266
000002

08:26

.BYTE

DT12:

002

SAVR3
.BYTE
CALBCC

TEMP3

.ERRTAB:

3,7
2.2

~no

SO0 O

WNANNNONONO
N

CZDMF
MACY11 30A(1052)
08-JuUL-80
CZOMF P11
08-JuL-80 08:25

6.4

6.2

- SEQ@ 0118

r—

—

CZDMF
MACY11 30A(1052)
08-JuL-80
CZ0MF . P11
08-JuUL-80 08:25

036074
036076
036700
036102
036104
036106
036110
036112
036114
036116
036120
036122
036124
036126
036130
036132
036134
036136
036140

036142
036144
036146
036150
036152
036154
036156
036160
036162
036164
036166
036170
036172
036174
036176
036200
036202
036204
036206

036210
036212
036214
036216
036220
036222
036224
036226
036230
036232
036234
036236
036240
036242
036244
036246
036250
036252

000000
034166
035365
035702
034224
035365
035702
034267
035365
035702
034333
000000
000000
034375
035365
035702
034375
035423
035720

034425
035344
035670
034444
035344
035670
034471
035344
035670
034710
035521
035744
034737
035521
035744
034710
035461
035732
034763

000000
000000
034710
035521
035762
034737
035521
035762
034710
035553
036000
034710
035553
036022
034737
035553
036000
034737

————————————————————.

¢ 10

08:26
PAGE 120
SUBROUTINES

EMI
DH2
n12
EM2
DH2
DT2
EM3
DH2
DT2
EMS
0
0
EMS
DH?
DT2
EMS
DH3
DT3

EME
DH1
DT1
EM7
DH1
CT1
EM10
DH1
DT
EM11
DHS
DTS
EM12
DHS
DTS
EM1Y
DH&
DT4
EM13

0
0
EM1
DHS
DTé
EM12
DHS
DT6
EM11

DHé
D17
EM11
DH6
DT10
EM12
DH6
D17
EM12

———————————————

5EQ 0119

CHLT

SALT

CHLT

JHLT

SHLT

JHLT

SHLT

JHLT

MACY11 30A(1052)
CZOMF
08-JuL-80
CZOMF P11
08-JuUL-80 08:25

08:26

DHé

036412

CORMAX:
LEND

DT10
EM14
0
0
EM15
DH1

JHLT
JHLT

JHLT

EM2?2
DH10

JHLT

EM23
DH2

JHLT

JHUT

DT1
EM16
DH3
DT11

EM12

DH1

DT12

EM17
0
0
EM20
DH1
DT
EM21

DH7

0
EM21
DH3
D13
0

DTZ

EM24
0
0
EM25
0
0
EM6

DH2
DT2
EMS
DH5
DTS
EM13
DH1
DT

000001

SEQ 0120

SUBROUTINES

036254
036256
036260
036262
036264
036266
036270
036272
036274
036276
036300
036302
036304
036306
036310
036312
036314
036316
036320
036322
036324
036326
036330
036332
036334
036336
036340
036342
036344
036346
036350
036352
036354
036356
036360
036362
036364
036366
036370
036372
036374
036376
036400
036402
036404

036406
036410

D 10

PAGE 121

CNERR
CNT_MA
CNVRT =
CONERR
CONN
CONTAB
(ONVRT=

104410

8324

1765

2389
1748
1868

3990
1767

2745

2179
2289

3691
3190

3737
3868

3783
5473

5716

5758

3972
2192
2250

3993
2250

4042

4045

6037

6412

4485

4571

4638

3302
3910

4202
4872

4234
4927

4291
4952+

3683

3729

3775

2833
3629

2908
3675

1573
1414

1842
1823

1849
18584

2721
3539

2769
3572

1589+
1629

5539+
6125

5097
5642+

2983
3721

4261

4264

4296

1226

1087
1341

1089
1343

1091
1345

1896
1347

1663

1665

1146

1232

1679

1994

5124
17904
965#

1790#
2074
12464

5455

5523

4018

5163
5688

5188+
5890+

5621

5189
5891

5874

4664

5287+
5899

16074
1815#

4207

4169

3645
3033
3549
3967
2189
2248

22754

1569
1382
1840

4040

2263

5536
59124

—

4043

2255

5432
5905

3965
3953
2147
3991

2149

5388
5901«
S7664
3637

3951
2386
2054
3969

2168
2163

14074
1408#
4139
4871+

N
-

5129

2166
2151

2120

»H -0

1178
1759

3988

3436

4168

2184

2144
2108

3303

4020
5627

4813

OWO

1175
1315

4519

w00

2171
2084
2087

oOWw

4436

3136
3820
5456

)
i vl

3055
3769

VNN
wvnonrn

2985
3723

v
WMo

2770
3574

3816+
6054+

cornLON
oo~
WwWhrROW

1224
17904
1233

B340

2173

2152
2722
3540

61074

3168+

4809+

oo O~

007224
007115
002776

104411

2160

1759
1752

3135+

4606

oo~
—
Vo
S

007300
001702

4808
1229
797

1758

6059+

3102+

5626

S NN

4166

6082+

4518+

3100

59184

[ Te 1 aN]

2684
3499

6077+

44635+

3085+

A
— N

1566+«
1115
18284¢
18314
18334
18344
1816
7724

4178+

2984+

o
e

5288
5900«
3912
3580

4167+

439N

NN
S

CLKX
CLRIO

1321
1322
4107
4846

2289
1747
1748
2151

4359

CKSWR4
CKSWRS

2245

1088
1134
2177
1742

4213
16094

CKSWR2
CKSWR3

17908

4352
2069
2072
1384

6175
1572

wor
—

032532
032644
004712
007734

6056+
6964
6954
6868
6854
3468
4263
684k
6834
6824
6814
694w
6934
6924
6914
6908
6894
6884
6878

12624

D =M

000004
000010
000020
000040
000100
000200
000400
001000
007055
012460
003730
003732
033334

2909+
4078+
6057
1758
1134
2141
2685
3500

1571+«

SEQ 0121

15274
1216

[ B

100000

2834+
3863+

1568«

== USER SYMBOLS

H NN
WNO
Voo
o~NS

CHAR
CHARSD
CHRCNT
CKSWR
CKSWR1

010000
020000
040000

1518+
1211
1266
19714
4118

TABLE

VO~N~
S~ oo

BRX
CALBCC

000001
000002
002000
004000

1482«
1172
M7
1129
4086

CROSS REFERENCE

E 10

— s~y £~ 00 00

TITINT]
([

[T
T
1
LU

L I
A
L

[

N
—_
VSN

O NOVNN
= o

et bt

—
—
) —
] —]
]

et Pt

]
]

DD DODDODDODEDDODD

et Pt Gt Pt Bt

—

——

@
® @

BCCLD
BINWRD
BITCON

004373
003024
002446
010640
033336
004714
034114

PAGE 123

WO NNO
O =00 NWOr

ADRCNT=
AUDONE
AUSTRT
AUTO.S

08: 26

PPN

MACY11 30A(1052)
CZDMF
08-JuL-80
. P1 1
CZDMF
08-JuL-80 08: 25

Pt Pt

6033#
1725

4434

1831

3376

4077
6517

3435

4080
4605

3467

6112
4741

08-JuL-80 08:25

DMCM
DMCROO

007321
001500

DMCRO6
DMCRO7?
DMCR10
DMCR11
DMCR12
DMCR13
DMCR14
DMCR1S
DMCR16
PMCR17
DMCSR

001560
001570
001600
001610
001620

DMCRO1
DMCRO2
DMCRO3
DMCRO4
DMCROS

DMCSRH

DMCTL
DMNUM

001510
001520
001530
001540
001550

001630
001640
001650
001660
001670
001404
001406

001410
001310

1651+
8384
1480+
1186
61254
61254
61254
61254
6125#4
61254
61254
61254
7634
7294
7904

1237
8804

4298

086+

1892+

1893

1895+

1899

1365

18834
1680#%

2850
3070
3350
3822

2852
3088
3393
3823

998

5526

1677

2777

5629

2781
3068
3341
3777

4216
4624
4955

5313

5915#

4273

4355

4387

4525

4632

4840

4921

2866
3103
3394
3872

2925
3154
3440
3917

2927
3169
3472

2941
3187
3512

2955
3236
3544

3000
3238
3582

4272
4639
4978

4666

L995

4304
4689
5002

5330

5337

5339

56465

4362
4715
5149
5470

4089
4393
4753
5164
5476

4120
4394
4832
5191

4361
4713
5015

4088

6060

4121
4456
4847
5214

6083

4177
4460
4874
5232

4266

— NSNS
NN
— —
NN
= O WO NON WS
NO O WO oM — POV
WWN
OOV OO OW &

DATAHD 005204
DELAY = 104413
DEVADR
004370
DEVTIAB
003010
035344
DH1
035644
DH10
035365
DH?
035423
DH3
035461
DH&
035521
DH5
035553
DH6
035621
DH7
DISPLA 001200
000174
DISPRE
DMACTV 001306

1323
1652+
842N
3002
3256
3639

4209

256

SEQ 0122

TABLE == USER SYMBOLS

CYCLE
010206
DATABP 005216
DATACL= 104415

7964
17904
19734
60934

114

001320
006511
010642
034066

033

1790#
4082
5157
59144

—

CRC16 = 120001

61254

PAGE 124

CROSS REFERENCE

CRAM
006607
CRC.CC= 102010

CREAM
(SR
CSRMAP
CTSDLY

08:26

NN S SN
WWN N
WO NWOoo
& — 00
VNOOONOWMO
OSFrOWVNWNWMRNO

036412

08-JUL-80

—

CORMAX

CZ0OMF P11

3CA(1052)

MACY11

&~
~N

CZOMF

1101«
1107
1124
17904

1107«

1338«

1279+

1280

1883

1897

1979«

2205+

2211+

2212+

2216

2241

1171«

1205

1210+

1215+

1250

1368

1405

1697

1720

1766

1901+

1747+
1912«
1082

17480
1913«
1354

1752+«

1758+

1759+

1765+

1767+«

1910+

1911

1912

1977«

1992+

2196+

2197

2206

2208

8854
8904
895#
900#
905#
9104
9154
9204
925#
9304

9354

9404
9454
9504
9554
8634

1959

B6Ln

865#
791#

2306

1914

1910

MACY11 30A(1052)
(ZDMF
08-JUL-80
. P11
CZDMF
08-JuL-80 08:25

DMS114

DMS115
DMS116
DMS117
DMS200
DMS201
DMS202
DMS203
DMS204
DMS205
DMS206
DMS207
DMS210
DMS211
DMS212
DMS213
DMS214
DMS215
DMS216
DMS217
DMS300
DMS 301
DMS302

DMS303
DMS 304
DMS305
DMS 306
DMS307
DMS310
DMS311
DMS312
DMS313
DMS314
DMS315
DMS316
DMS317
DMTLVL
DMTVEC(
DM_.END

001516
001526
001536
001546
001556
001566
001576
001606
001616
001626
001636
001646
001656
001666
001676
001402
001400
001700

d B\
-

1779

1784

1916+
1920+
1902+

1917«
1921
1903+«

1919

—

1742

non
LaSP

DMS112
DMS113

TABLE

N
—a N

DMS111

G 10

WONO~N
N =S NONWN
— O WWO

DMS101
DMS102
DMS103
DMS104
DMS105
DMS106
DMS107
DMS110

8674

860#

001414
001376
001374
001502
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

DMPO6
DMRLVL
DMRVE
(
DMS100

866#
5962+

001412

PAGE 125

CROSS REFERENCE

OO0
~Nrono

DMPO4

08:26

O O

p—

1923

SEQ 0123

== USER SYMBOLS
1914

1915«

1916

5703

5716

5758

5874

5952+

CZDOMF

MACY11 30A(1052)

08-JuL-80

DM.MAP

001500

796

ERRCNT

001232

ERR

ERRFLG

ERRMSG
ERRPC

002700

001325

005172
002770

CROSS REFERENCE TABLE == USER SYMBOLS

8794

1086

1139

1149

1265

1893

1895

1973

1978

2233

4621

4750

4751

4823

4824

48.8

4829

5139

5140

5145

12214

1225

1690+

1908¢

1667+

1726+

1389+

14004

1819+

SEQ 0124

oo o
Y
YD o
YUY
T
T
VvV

— O — Y ——— g — g —

e
e
I
I
e
e

H 10

PAGE 126

R
RN

001704
001710
001714
001720
001724
001730
001734
001740
001744
001750
001754
001760
001764
001770
001774
002000

033610

ERCTO0
ERCTOT
ERCTO2
ERCTO3
ERCTO4
ERCTOS
ERCTO6
ERCTO7?
ERCTI0O
ERCT11
ERCT12
ERCT13
ERCT14
ERCTIS
ERCTI6
ERCT17

5544
9674
9704
9734
9764
9794
9824
9854
9884
991#
994w
9974
10004
10034
10064
10094
1012#
1195

EOM

387
25N
PORLNLMNLRLNLNLNLNLNLNL
N NN NNV NN RO RO NN

003734
035670
036022
036044
036056
035702
035720
035732
035744
035762
036000
034166
034471
034710
034737
034763
035023
035073
035114
035130
034224
035174
035215
035232
035255
035277
035322
034267
034333
034375
034425
034444

DONE
DT
DT10
DTN
D112
D12
D13
DT4
DTS
D16
D17
Eml
EM10
Em1
EM12
Em13
EM14
EM15
EM16
Em17
EmM2
EM20
EmM21
EM22
EM23
EM24
EM25
EM3
EM4
EMS
EM6
EmM7

08-JuUL-80 08:25

fa Yo Yo Yo No No No o Mo N'e Mo Mo No o No N'e Ne N No No No No No¥o No o Ne No No N

CZDMF P11

08:26

61254

4620

7644

8034

1650+
1227

5548

1350

1084+

1668
12434

5549

1377

1336«

16714

5555

1398e

5554

1640+

5646

1653

5647

60014

5146

5543

MACY1Y 30A(1052)
C20m¢
08-JUL-80
C20mf P11
08-JuL-80 08:25

08:2¢6

CROSS REFERENCE

ERTABO

005322

1665

FLAG

034112

61064

6125

5530

5541

2855
3077
3330

4716
4996
HALTS
HILIM

ICOUNT
INBUF
INCHAR
INIFLG
INRDY

005222
004366

001222
007630
010146
001324
033154

INSTER= 104404
INSTR = 104403

INSTR2
INTTY

004166
012474

LIMITS
L INE
LOBITS
LOCK

004314
007017
004372
001220

KMCM

LOKFLG
LOLIM
LPCNT
LRC8
=
LSTERR
LUTYPE=

MASKX
MASTEX
MCRLF
MCSRX

MDATA

MEMLIM
MEPASS
MERRPC
MERRX
MERR?
MERRS
MESDAT

007331

001326
004364
001224
000200
001234
000000

001244
006143
005672
006073

007672

001304
005733
006220
006120
005761
006006
034116

MESLD

033634

MiLk

001322

5297

1636

1479+

7604

1449
1834

802#
3824
5353
5673
824n
8224

2859
3092
3342

4850

5005
5316

NNP) & S —un
NO O —rorOW
NOO0 ON0
— 5~
o NS S NONVNOO

4130
4098

1208
6154
4102

=-- USER SYMBOLS

5600

6110#

6314
4282

318
4286

6403

6407

4553

2944

2948
3176

3005
3241

31§57

3406

4881

5194
5340

2934
3161
3410

4900

5198

56974

437

3172

6642
4904

5217
6084

1130
3918

4754

5373

5612

4768

56417

4773
5477

5235

4692
4962

6696
4981

4707
4985

5062
5582

5077
5652

5082
5668

5239

59464

3019
3259

5266

3023
3263

5270

3073
3326

5293

26469
63840

24650

2691

2514

25490

2569«

5017
5651
5666

5061
6108#
5540

51350

5137

5545

5550

2017

2044

2059

2075

2090

2283

16481

15264
1417
4159«

1527
1419
62060

1659
4254

4295

2407+

5487

5560

1478
7614

15234

1396

1399«

7654

1335e

1637

1639+

1727«

1658

1666

1790#

1693

6743

4821

4826

4912

5142

5461

60?2

4673
4958

3009
3245

2623

2119

59134

59564

6343

2110

BO4#

5221

4669

4935

4557
4473

503:

2006

759«
4070

Lh46

4931

L4669

5018

1997

1240
1495
17904

4375

15244
16401
1805#

1984

1456

SEQ 0125

3559

2930

NS
w~ 4

1197»

1194

002566
033462
033450
032314

1188#

TABLE

16504

Fy
GETQI
GETQ0
GETSI

002536
034122

1685

110

1700#

FOQJMOO 2

FLCAT
FLTDAT

6974

WGOD — Q0D S N
N~ ®OO oo

ExIT
= 000205
EXITER
005252

PAGE 127

773

1661
1434
1340

1587

78%9#
1339
1664

1346

1790#

1276

6029

514%

3062

9643

797#

5396
“7467

(748

4814

4820

4825

1891

1896

1900

5657

5467

5467
5134

5633

5644

—

L CZOmF

MACY11 30A(1052)
08-JuL-80
CZOMF PN
08-JuUL-80 08:25

006044
006145
006705
006107
005675
005666
MR
005756
MRESET= 004000

MTITLE
MTISTN
MTISTPC
MVECX

Mv3s
NEXT

002646
001302
032500

ONE
OUTRDY
PACTOO
PACTON
PACTO2

PACTO3

PACTO4
PACTOS
PACTO6

PACTO?7
PACT10
PACTI
PACT12
PACT13
PACT14
PACT1S
PACT16
PACT17

PARAM =

PARAM1
PARBIT=
PARERR
PASCNT
PERFOR=

PFTAB

1790#
17904
1790#
17904

001702
001706
001712
001716
001722
001726
001732
001736
001742
001746
001752
001756
001762
001766

001772
001776
104405

004234
040000
004310
001230
004537
005430

CROSS REFERENCE

J 10
TABLE

SEQ 0126

== USER SYMBOLS

1955
1949

2030

2050

2829
3625

2353
2904
3671

2377
2979
3717

2451
3130
3809

1114
17904

1933

1729

4430

001000
006131
006032
006101
007455
001216

032344
007155
002674
006451
032346

128

2058

1044612

NITCH
NOACT
NODEV
NUM
OCOR

PAGE

17904
1790#

MLOCK
MNEW
MODU
MPASSX
MPFAIL
MQm

MSTCLR=

08:26

4513

4601

2624
3431

2646
3463

2680
3495

2717
3535

2622+
3429+

4256

4015

4072

4161

2351
2902+
3669+

2548+
3296+
3904+
5449+

2600+
3370+
3948+

4455
5789

4538

4622
5846

3226

3231
5740
6022

3275
57514#

5620

4804

17904

2089

1695

2304+

4158+

0253«

4342+

4428

4511«

2490+
3208«
3854+
5118+

17904
12194

1885

2922
5464

2997
5669

3149
5555

3511
5747

2911
3378
5798

2918
3502
5802

2986
3614
5822

4616

4746

1986

1999

2008

2112

2121

1491
1338

1500#
1349

1507
1374

1509
1907

151

1402

2678+
3493+
5704+

2715+
3533¢
5705+

2847
5147
1206
7884

2836

5776

9664
9654
9724
9754

2763+
35640

5706+

2328+
2827+
3623
S708#

2993
5831

3056

5929

9934
9964

8264

16840

6974

1487
7634

6974

1725

5805

4013
5618+

1242

9784
9814
9844
9874
990#

9994
1002#
1005#
1008#
10114

5515+

3137

4819

5938

3220

5460
5991

5731
6005

MACY11 30A(1052)
08-JuUL-80
CZDMF
CZDMF P11
08-JuL-80 08:25
1689
1404

2016

1079+
1686

1314+

2245+

1353«

1393

002632
010200

1176
1832

wmbmoc‘{:wmwo

WL
PO
N —

NN
WNI NN PO RO P —
NSO
NWNIANOS
— Q00 S WNWNW—=MNOWV
O
O S = wW—00 oW

WIWWWRONO NN —
W S PO NO 000NN
S~
NWMN
O WONWO

RO O N
NN
N N
P
PR
(LT

4445
L4774

5369
5578
5742
5853
5996

1960

2427
2603
2767
2913
3139
3316
3506
3635
3765
3927

»
»

=»

— O~
0

—‘O’OQ?OM

ild willnN

csil

W
it
il
il
D

BSNNONO N

3821
g?gg

5048
5427
5674
5787
5940

5814

2394
3036
3749

4722

2477
5809#

4277

S5882#4
1209#

O~ NO 00N
&~
wViVornos
—

SKIP
SOFTSW

4294

4432
4769
5354
5561
5736
5833
5993

4532

POWNINNND
W
W S~ oW
0o

032710
033210

818#

2425
2576
2741
2906
3132
3310
3504
3633
3742
3919

PO WIN
NN W
W — Q0 — &~ 00
WO
H O NW
—_OOWoo~N

SILOLD
SIiMacC

4327

NSNS

SCOP1 = 104401

7844
7854
8284
3814+
8164
2750
3553

—a

001272
SAVRS
001274
SAVSP
SAVOS = 104406
033150
SCHAR
SCOPE = 104400

—
SV ~O Co
o F o W — 00

7834

(W LW LV LV LV

001270

7924
7934
7864
7794
780#
7814
7824

SAVRG

001316

001312
001314
001276
001260
001262
001264
001266

5927
6024

1958+

4026

4449
4783

SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVR3

2308
2501
2689
2803
2990
3224
3389
3576
3687
3825

3509
3641
3771
3957

RUN

1402+

— —

1323+

COWOO
WV = NO —=O~

13644

2454
2625
2772
2915
3141
3374

5374
5583
5745
5855
6007
7944

2255+

DO ONOSTOWNONONWNOONO
NI
OWWNWN = (N —0000~ & 00— 0000000 NN
O00 — 00 WWES NWO OWNWNN = WA O NN

6734
6714
6754
17904
664N
6724
6704
6740
805#
1678
1711
1352
8304
7574
8404

= O

012600
005726
022626
006550
177776
010046
005746
024646
001327
005220
005350
003534
104407
001214
104414

SEQ 0127

rONONON-2ON——
— e ed 2 N2 NN
POMPROMNLND
B MNONWN
VIS

POPRO =
POP1SP=
POP2SP=
PRIO
PS
=
PUSHRO=
PUSH1S=
PUSH2S=
QV.FLG
RESREG
RESTAR
RESTRT
RESOS =
RETURN
ROMCLK=

K 10
08:26 PAGE 129
CROSS REFERENCE TABLE == USER SYMBOLS

5603
4110

4366

4398

4548

5848+
2610
3617

4001

58584

2632
3449

2665
3481

2702
3521

4054
5691
4142

6143

4238

4205

4237

4634

4842

4923

CZOMF

MACY11 30A(1052)

08-JuL-80

SOM
SPACNT=
SPEED
STACK =
STAT

033560
004713
007341
001200
001240

5141
1567«
17904
665#
718

59874
1591
2043
1080

STAT2
STATS

001370
001372

853#
854#

1905+
1906*

CZOMF.P11

STAT1

STFFCK

08-JUL-80 08:25

001366

033776

08:26

L 10

PAGE 130

CROSS REFERENCE TABLE -- USER SYMBOLS
1594+

16084

1293

1696

1719

3951

8524

1904+

2384

2386

3180

3267

2606
3969

SEQ 0128

3953

3965

3988

4016

4018

4043

5518

5621

4565

4650

4677

4BS8

4885

4939

4966

5175

5202

1132

1134

1269

1315

1324

1926

1950«

1980

1430

1630

1635

2656%
5829+
6026+
5386+

2662+
S870+

5876+

5796+

5387
5799

5429+
5813«

2926+
3404 .
5080+
5388
6051+

2928+
4688¢

4181

2628
3991

ebb1

4040

5301
6045K

60674

11ée

1M19«

1120

1122

STFFCL

033716

5274
5838

STUFDT
STUFLG
SV0S
SWFLG
SWMES
SWMES1

034142
033152
004402
010144
007206
007216

3063
3817+«
15364
1083+
17904
17904

3065
3864+

61164
5835

5B49+

SBSON

1428
1830
1833

1827+

1854+

18604

1686

1100«
1691

1102

1106+

1116

1274

1279

1384

1391

1415

1106
1120
1324

1693

1815
1980
1926

1873
2229
1950

4B1B
1763+«
2242+
5908+

5134
1768+
S5726%
5925+

5459
1774+
5738
5936+

5525
1786%
5772+
5971«

5628
2647+
5783+
5682«

5967#
2653+
5818«
6021+

STRTSW

001236

SWR

001202

SWREG
000176
SW00 = 000001
sW01
= 000002

SW02
sw03
SW04
SW0S
sW06
sW07
SW08
sW09
sw10
swil
sw12
sW13
Swis
sW15

SYNC

SYNLD
TEWP
TEMP1

TEMP2
TEMP3

=
=
=
=
=
=
=
=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400

001000
002000
004000
010000
020000
040000
100000
032364

033500
001416
001246

001250
001252

Jior

7660

7304
6u6#
645#
644l
6438
6420
614
6408
6394
6384
6374
6364
6354
6344
6334
6324
6314
3,38

W43
8720
77648
5888¢

7754
5430«
5817+

7768
3001«

001254

TEMPS
001256
TIMER = 104416
TKCSR

001204

1815

1755
1691
1415
1693
1391
1430
1635

3470

4526
1574
1140+
5902«

1141+
5431

5B44+

1630

3542

4615
1721+
1792
5904*

1794
5594%

5851%

57214

4745
1722+«
2741
5907+

5050+
5595+

5889+

5051+
5596

5894+

5096+
5416¢

1169«
3069+
4772+
5213+
5432

1221
3071+
4B96*
5215+
5580+

1230+
3153+
4BOBe
5231+
5581+

7778

114ke

1798

2002

2005

6074+

7788
Bu4#

7494

1853+

1269

1143«
3003+
4771+
5097
5431¢

4690%

TEMPG

1755

60B7+

1145+
2691
1451

6125

1800
3583

1817

1983«
3640
1862

1996¢
3686

2283

5052
5685+

5923+

1796
3155+

5094+
5686+
5939

4977+

5233+
5596+

1989
3237+
4979+
5312+«
5597

2011

2014

2227
3732

6099

5754+
3778

5095+
5687

1992
3239s

5096
5770%

5385«
5786

5036+

5314+
5671+

2129+
3322+
5037+
5371«
5672«

2851+
3324v
5052+
5372«
5487+

2853+
3402+
5053
5387«
5688

2115

2118

2124

2127

3982

402

5760+
3959

5081+

5415+
6061+

CZDMF

MACY11 30A(1052)

CZDMF P11

08-JuL-80 08:25

TKDBR
001206
TLAST = 031752
TPCSR
001210
TPDBR
001212
TRPOK
004730

TSTNO

001226

1ST1
1ST10
1ST11
15112
1ST13
15114
1ST1S
1ST16
1ST17
1ST2
15120
15121
15122
15123
15124
15125
15126
15127
1ST3
15730
1ST31
15732
1ST33
15734
1ST35
15136
15137
ST
15140
15141
15162
15143
15Ted
1ST4S

012526
01353¢
013710
013752
014014
014114
014230
014402
014614
012602
015076
015360
015642
016152
016460
017012
017300
017520
012650
017622
017726
020064
020170
020374
020542
020712
021062
012722
021232
021406
021572
021734
022162
022356

15166
1ST47
1515
1ST50
1ST51
1ST52
1ST53
15154
15155
15756
15157
1516

08-JuL-80

022722
023314
013024
023660
024224
024546
025104
025606
026030
027430
031110
013164

08:26

Mm10

PAGE 131

CROSS REFERENCE TABLE == USER SYMBOLS

7504
1953
7510
7520
16204

1453
56920
1435
1437+

1459

1820

1822

1864

1457
1459+

1632
1634+

1865
1867+

2286
2088+

5117+
1940
2690

109+
2547+
3295«
3903«

544Be
1958
25474
25994
26214
26430
2677TH
2714k
27624
2826M
23274
2901#
29764
30474
31274
32074
32954
33694
34284
23504
34604
3492H
35304
35654
36224
36684
3714M
37608
23744
38064
38534
3903
39474
40120
4068#

1705
2599+
3369«
3947«

1733
2621%
3428+
4012+

1937
2643+
3460
4068

1944
2677+
3492+
4157+

7620
2489+
3207+
3853

2548
2600
2622
2644
2678
2715
2763
2306
2827
2902
2977
3048
3128

3208
3296
3370
2328
3409
3461
3493
3533
3566
3623
3669
3715
2351
3761
3807
3854
3904
3948
W013
4069
4158
2375
4253
4362
428
4511
4599
4735
4802
5118
2006

41570
42520
24054
4341w
4h27e
45100
45984
4734k
48014
51174
5448#
26L7H

5514n
23034

5617+

SEQ 0129

2285

1946
2714w
3532+
4252+

2303*
2762+
3565«
4341%

2327+
QB8+
3622«
4427+

2350«
901%
3668+
4510+

PSRRI,
,

.
:
S

2374w
2976+
3714«
4598+

2405+
3047+
3760+
4734+

2447
3127
3806+
4801+

CZDMF

MACY11 30A(1052)

08-JuL-80

1S160
TST61

031330
031752

5449
5515

CZDMF .P11

08-JuL-80 08:25

TSTH2 = wessen |
1817
013324
T1ST
003612
TWOSYN= 010000

TYPDAT

5618
2448
1318«

6974

08:26

5692

24894
1319+«

1321+«
16774

1656

1674

VECMAP

005106
006527
012216

1654
17904
2217

16574
2007
22294

WRKO.F
XBX
XCSR
XERR
XHEAD
XLOC

005174
005000
003546
003570
006225
003022

1669
1631
1341
1347
1138
1196+

16724
1633
13664
13754
17904
1214+

XPOLY

033332

= 104402

TYPMSG
VEC
WHICH
WRDCNT

XPASS

XSTATQ
XTSTN

XVEC
ZERO
$COD

012210
004710

003562

007602
005330
003554
001300
= weeeee

SCRAP = 177777

SENDAD

003522

= 000061

8204
1340
1664
2029

1995
1565«

1345

PAGE 132

CROSS REFERENCE TABLE == USER SYMBOLS

55140
56174

005206

TYPE

1322+«

1385#

1138
1346
1675
2042

1223
1434
1724
2049

1217

1248

12614

1114
1342
1666
2032

1126
1344
1670
2039

2225
1598+«

16064

13724

N 10

SEQ 0130

1228
1447
1330
2057

1236
1464
1833
2066

1239
1557
1885
2073

1271
1597
1931
2080

1276
1657
1949
2088

1317
1658
1955
2100

1326
1661
1993
2218

1339
1662
2015

16354

40B2%

4114%

4171«

4209+

“4266%

4298t

4355+

4387+

4442+

4525+

4632+

4B40+

4921+

14
23954
2592
27104
30374
3361
35284
37504
3939
(24BN
L7234

22934
2398
25954
2751k
3040
33654
35544
3753
39434
43288
4726

2296
26014
2611k
2754
306434
34184
3557
37564
40024
L3310
47304

22994
24378
2614
27584
311ax
3421
35614
37964
4005
W3378
47864

2317%
2440
26174
2813¢
3117
34248
36120
3799
40084
LA TH
4789

2320
2LL3N
26334
2816
323
34504
3615
38024
4055#¢
6420
L797#

23234
2479
2636
28224
3194w
3453
36184
38414
4058
44234
51014

23404
2482
26394
28884
3197
34564
36584
3844
064N
45004
5104

2343
24854
26664
2891
32034
34828
3661
38494
4144k
4503
5113

23464
2537k
2669
28974
3283¢
3485
36644
38914
4147
45064
54368

23644
2540
26734
2963x
3286
34884
37044
3894
L1538
45864
5439

2367
25434
27034
2966
32914
3522¢
3707
38994
L2398
4589
S444n

23704
25894
2706
29724
33584
3525
37104
39364
4242
45944
55004

4
23540
2445
2589
2646
2758
29054
3125
3358
3463
3561
367208
3804

2293
2364
2451
2595
26470
2760
2963
3130
3365
34640
563
3704
3809

2299
2370
26520
2597
2666
2765
972
1314
3367
3482
3568
3710
38104

2301
2372
2479
2602
2673
27664
2974
3194
3372
3488
35694
3712
3841

23064
2377
2485
2603#
2675
2813
%979
203
3373%
3490
3612
N7
3849

2317
23784
2487
2611
2680
2822
2980#
3205
3418
3495
3618
3718¢
3851

2323
2395
2493
2617
26814
2824
3037
3210
3424
34964
3620
3750
3856

2325
2401
2696
2619
2703
2829
3043
32114
3426
3522
3625
3756
318574

23304
2403
2537
2624
2710
28304
3045
3283
3431
3528
36264
3758
3891

2340
2409
2543
26250
2712
2888
3050
32N
364328
3530
3658
3763
3899

2346
26108
2545
2633
2717
2897
30514
3293
3450
3535
3664
37640
3901

2348
2437
2551
2639
27188
2899
3114
3298
3456
35364
3666
3796
3906

2353
2443
2552#
2641
2751
2904
3123
3299+
3458
3554
3671
3802
5907«

5157«
1147
1663
1343
7874
602

5503
724

5256+
17904
17034
13694
6125

55104
1112

5526+

56044
13584

5629+

5607
1682

5898

5613#

5900

59114

L3468

5449
816
8424

= 000017

7134

= 036412

880#
8964
912#
9284
9454

1128

2170
.BEGIN
. CNVRT
. CONVR
.DATAC
.DELAY
.EOP
.ERRTA
LHLT
. INSTE
.INSTR

.INSTT

.MSG
MSTCL
.PARAM
PFAIL

.RESO5
-ROMCL

. SAV05
.SCOPE

.SCOP1

.START
. TIMER
. TRPSR
.TRPTA
.TYPE

003152
004472
004466
005552
005436
003364

5517
2328
25528
2827
32994
3623
39074
4428

54524
8184
844N
7204

005336
004434
005504
004374
003576
003736
002002
005616
004716
001330
003766

8154
821

5518#
23304
2600
28304
3370
36264
3948
“6312

5515
820#
LY
7254

8814
897#
9134

882#
8984
915#

12604

1278

9304
946N

2174

5341

61254

17104

1718

1095

1850

036070

004750
004154
004050
004070
004072
005466
004174

4601
5111

931#
9478

2221

Nwmmm:oooo

5512
23064
2548
27664
3296
356408
3904

4596
5101

W~ w~(PN NT NI NIV IV P O
P o
NVO
oo ~ S OO NN =N
N
O — — N IR N = PO NN N —
— OO (V]
=
=
=
=

2490

5510

4594
4B0S#

824

Beon

7324

7364

V‘NOU\N:WOWMN

4339

4002
6161
4423

wn S~ P
VIV
NI N1 SAV R P R oko P
oW OO H OO WO =Y — o
— — NN
O NN =N o
oo
oo &~
R
=
Sy

= 000063

3943

4073
4586
4804

SEQ 0131

CROSS REFERENCE TABLE == USER SYMBOLS

5500

B N

PAGE 133

3936

4072
4337
5140
4799

08:26

St
——
el

MACY11 30A(1052)
08-JuUL-80
(ZDMF
08-JuL-80 08:25
CZDMF
,P

885#

8864

901#

9024
9184
9354

1723
2284

17714

9174
9334
9504

9514

2287

4066
4328
4513
4797

54524

24520

CZDMF
MACY11 30A(1052)
08-JuL-80
CZDMF P11
08-JuL-80 08:25

VAN
B B B LN NN
WO
W — YNO DWW
VPO O WNILNMO
& NOLO
OVNNO WO
O -0

3689

3698

3735

3744

3781

3790

3921

4688

4896

4977

5213

5231

5312

nrorLrO
N

2627
2649
2783
2990

2454
2658
2793
2995

ORIy
(T
-To B o

2609
2932
3159
3412
3794

6231
4671
4937
5196

2631

2936
3163
3448
31831

4284
4675
4960

5381
5878

5200
5390
6086

6014
6014
5994
"

602#
6014
"

3598
5620
4207

4776

4264

4296

4353

4385

3153

3237

3322

3402

5407

5572

5663

1874

602#

5436

599#
5994

2851
2495

3069
2570

602
3418
2479
2293
2395
2437
L4764

2364

5028

5072

5363

2006

2110

3936

wO oW
— N
O

O ~NO
&~
Qo ~PUPY
O

O~
&
oo NO
—
— N

1782

2520
2724
2881

~"OMNLRO
N

1777

2501
2719
2845

orooN

2499
2693
2840

1740

NN
N —

1997

O NN
et
ALY 2l
= 00N

5956

rorOUNLND

3841

nORONL
RO

"
4

3652

O~ —

3643

5676

N AN

6014
601#

3605
5585

—

SMARH
|
$MARK
SMATCH
$MOCK
$MODEM
$MSG
T
SMUL
SPATTE
SPFAIL
$0001
$QUEST
SRAMCL
SRCLK

5219
5404
5994

O ~NINWKnN

$LU12
$LU17

SEQ 0132

O = O N NWOWNWN
N
O Q0 O OWVNL & PO
YO

602
2315

$CRC
$CRCSH
$CYCLE
SEMPTY
$EOP
$FINI
$FLAG
$FLOAT
$GETPA
SHALF
$HEADE
SINACT
SINIT
$LINET
$LUl

== MACRO NAMES

1328

4288
4694
4964

$ABORT
$AUTO
$8CC
$BINCR
$BINVI
$BUFFE
$SCDATA
$CLOCK
$(OMP

TABLE

AN
BN B B
wNro N
NWNOOD
S =N
NO 0o &~

6764
2655
2946
3174
3480
3881

(ROSS REFERENCE

nONL PO

HLT

L
1L

PAGE 135

LAl
al Al 2R olWLV
IV N1, W)
SO YOO NS
O NNVBDOWV =N OMNY
WVPNOW = N
O b
O —

DMEND
DMFRNT

08:26

—————

CIDMF

MACY11 30A(1052)

CZDMF P11

08-JuL-80 08:25

$VARIA
$WINDO
$x2

$ZEROS
. ABS.

D N

CROSS REFERENCE

TABLE == MACRO NAMES

SEQ 0133

3060
3316
3513
3679
3825
4074

3132
3374
1537
3681
3858
4163

3139
3380
3545
3687
3869
4258

3141
3382
3570
3696
3875
6347

3147
3385
3576
3719
3908
4432

3188
3387
3578
3725
3915
4445

3212
3389
3584
3727
3919
44649

3222
3433
3594
3733
3927
4453

3224
3441
3596
3742
3957
44694

3228
3465
3627
3765
3960
4515

3233
3473
3633
37N
3780
6528

3277
3497
3635
3773
3983
4532

3300
3504
3641
3779
4022
4536

5092

5122

5354

5369

5374

5383

5398

5613

5618

5427

5453

5471

5478

5488

5521

4603

5578
5756

Zgzg

$TSTN

PAGE 136

3058
3310
3509
3673
3811
4033

5561
5745

$SOF TC
$STUFF
$SWPAC
$TCHAR
$TCRC
$ TRANW
$TRANT
$ TRPDE

08:26

3052
3308
3506
3650
3788
6026
4580

$RCRC
$REC
$SCOPE
$SIMBC
$SINAC

08-JuL-80

5931

4739

5583
5774
5934

4755

5592
5778

5940

4769

56264
5781

5950

4774

5653
5787

5960

4783

5669
5800
5973

4806

5674
5803

5977

5019

5683
5820

5980

5034

5701
5824

5993

5039

5714
5827

5048

5729
5833

5063

5733
5853

5078

5736
5855

5083

5742
5872

5996

6007

6009

6024

6038

6028
599#
1w
14
599%
1w
602#
6024
6014
6014
6014
5994
1L
844

4723
3554
1378
5882
3482
1810
3037
2589
4610
4586
463
2066
816

3612

3658

3704

2611
LY:
4786
4839
2703
818

4813
5101
4920
2751
820

5129
5156

5255

822

824

826

828

830

832

834

836

838

840

842

w230
2824
2899
3712
3758

4799

5115

2325
2974
3804

2348
3045
3851

2372
3125
3901

2403
3205
3945

24645
5293
4010

2487
3367
4066

2545
3626
4155

2597
3458
4250

2619
3490
4339

2641
3530
4425

2675
3563
4508

2712
3620
4596

2760
3666
6732

"
735
599¢
2813
#2293

2888
2299

2963
2317

3114
2323

2340

2346

2364

2370

2395

2401

:
2437

2443

2479

2485

6797

5113

5436

5444

5500

5510

5604

2537
2822
3418
3710
6144

2543
2888
3424
3750
4153

602%#

036412

ERRORS DETECTED:

5 101
3358

5446

2589
2897
3450
3756
627

5512

2595
2963
3456
3796
4248

5615

2611
2972
3482
3802
4328

3750

2617
3037
3488
3841
4337

000
O

CZDMF ,CZDMF /NL : TOC/SOL/CRF _CZDMF .MAC,CZDMF .P11/EQ:LUTYPE
RUN-TIME: 15 22 1 SECONDS
RUN-TIME RATIO: 48/39=1.2

CORE USED:

33k

(65 PAGES)

2633
3043
3522
3849
4417

2639
3114
3528
3891
44623

2666
3123
3554
3899
4500
5613

2673
3194
3561
3936
4506

2703
3203
3612
3943
4586

2710
3283
3618
4002
4594

2751
3291
3658
4008
6723

2758
3358
3664
4055
4730

2813
3365
3704
4064
4786