Digital PDFs

AH-8553C-MC

January 1979

119 pages

Original

7.1MB

view download

OCR Version

5.9MB

view download

Document:	CZDMEC0 DMC-11 MODE LINE UNIT TEST JAN 1979 bw
Order Number:	AH-8553C-MC
Revision:	000
Pages:	119
Original Filename:	CZDMEC0__DMC-11__MODE_LINE_UNIT_TEST__AH-8553C-MC__JAN_1979_bw.pdf

OCR Text

MODE LINE UNIT TEST

CZDMECO

AH-8553C-MC

copvricHT 76.7s
FICHE 1 OF 1

JAN 1979

EHEORED

MADE
IN USA

CZOME

MACY1Y

RN R IR IR

35 SR 0 R i 23000 wonn i

CZOMEC.P11

30A(1052)

11-SEP=-78

11-SEP-78 12:38

12:45

-REM

PAGE
1

)

IDENTIFICATION

THE

PRODUCT

CODE:

AC-8552C-MC

PRODUCT

NAME
:

CZDMECO DDCMP MD

DATE:

SEPTEMBER 1978

MAINTAINER:

DIAGNOSTICS

INFORMATION

THIS

DOCUMENT

SUBJECT

LN UNIT

CHANGE

TST

WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
BJSCL;ES?(NSIBILITV
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
THE

N N

SEQ 0001

SOF TWARE

LICENSL
TERMS

DIGITA

THE
NOT

DESCRIBED

THIS

DOCUMENT

FURNISHED

UNDER

AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
SUCH LICENSE.

EQUIPMENT

CORPORATION ASSUMFS

USE
OR
RELIABILITY OF
SUPPLIED BY DIGITAL.
COPYRIGHT

(()

1976,

ITS

SOF TWARE

1978 BY DIGITAL

RESPONSIBILITY
ON EQUIPMENT

EQUIPMENT

THAT

FOR
IS

CORPORATION

MACY11 30A(1052)
11-SEP-78
PN
11-SEP-78 12:38

12:45

PAGE 2

SEQ 0002

ABSTRACT
THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO
VERIFY
THAT
THE
OPTION
OPERATES ACCORDING TO SPECIFICATIONS.
THE DIAGNOSTICS
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE
ALL
OPERATIONS

THE DMC11 ARE CORRECT IN ITS ENVIRONMENT.

PARAMETERS MUST BE

DMC11

SET UP TO

CONFIGURATION.

THESE

ALERT

THE

DIAGNOSTICS

THE

PARAMETERS ARE CONTAINED IN THE

STATUS
TABLE
AND
ARE
GENERATED
IN
TWwO_
WAYS:
1)
MANUAL
INPUT - THE
OPERATOR
ANSWERS QUESTIONS.
2) AUTOSIZING - THE

PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

CZDME TESTS

PERFORMS

THE

DOMC-11

LINE

UNIT

(M8201

M8202).

WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS.

I7
[T

CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION
IN
DDCMP MODE.
THE
MODEM
SIGNALS
ARE
ALSO
CHECKED.
CZDME

REQUIRES A DMC MICRO-PROCESSOR

(M8200 OR MB204)

BEST
DIAGNOSIS
A
TURN-AROUND CONNECTOR SHOULD BE
g%’\;gg)THE DIAGNOSTIC WILL RUN WITHOUT
IT
(SUME
CURRENTLY THERE ARE

RUN

SFQUENCE

INSURE

THAT

RBBXERRETRI
I

FIVE DIAGNOSTICS ARE:

CZDMC

AN ERROR

ADDITIONAL DIAGNOSTICS MAY BE ADDED

THE

2.
3.

FOR

INSTALLED,
TESTS
ARE

FIVE OFF LINE DIAGNOSTICS THAT ARc

WILL BE DLiECTED AT AN EARLY STAGE.

NOTE:

RUN.

SHOULD OCCUR

IN THE

FUTULRE.

[REV] BASIC W/R AND MICRO-PROCESSOR TESTS

CZDME [REV] DDCMP MODE LINE UNIT TESTS
DZDMF [REV] BITSTUFF LINE UNIT TESTS

DZDMG [REV] JUMP AND CROM TESTS

DZDMH [REV] FREE-RUNNING TESTS

REQUIREMENTS

l2."

EQUIPMENT

(HEAT TEST TAPE)

ANY PDP11 FAMILY CPU (EXCEPT AN LSI-11)
ASR 33 (OR EQUILIVALENT)
DMC11~-AR
WITH
DM(C11-DA
OR
DM(C11-FA
CMC11-AL WITH DMC11-MA OR CMC11-MD

WITH MINIMUM 8K MEMORY

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.PN
11-SEP-78 12:38

12:45

PAGE 3

2.2

SEQ 0003

STORAGE
PROGRAM WILL USE
ALL
8K
OF
MEMORY
EXCEPT
WHERE
ABL
AND
BOOTSTRAP
LOADER
RESIDE.
LOCATIONS 1500 THRU 1640;
CONTAIN
THE ''STATUS TABLE'' INFORMATION WHICH IS GENERATED AT START
OF
DIAGNOSTICS
BY
MANUAL
INPUT
(QUESTIONS)
OR
AUTOMATICALLY
(AUTO-SIZING).
THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE
ALTERED BY THE OPERATOR.

LOADING PROCEDURE
ME THOD
ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED
USING
THE
ABSOLUTE | OADER.
NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH
AS DISK ,MAGTAPE ,DECTAPE, OR
CASSETTE;
FOLLOW
INSTRUCTIONS
;ggIATHE
MONITOR
WHICH
HAS
BEEN
PROVIDED ON THAT SPECIFIC

BOQVO \hbWN—‘O%

=«

24K
28K

— AN
—

SN
by

MEMORY

N
) —

108

— e

16K

20K

P
—

7
7
7
7

8K
12K

123

PLACE

SIZE

3
5

P S QU G S
d ed b d B

ABSOLUTE LOADER STARTING ADDRESS *500

ADDRESS OF

ABS LOADER

(ALSO PLACE

'HALT'

INTO SWITCH REGISTER.

SW UP)

3.1.2

DEPRESS

3.1.3

DEPRESS 'START KEY' ON CONSOLE AND RELEASE
BE LOADING INTO CPU)

'LOAD ADDRESS'

KEY ON CONSOLE AND RELEASE.
(PROGRAM SHOULD NOW

CZOME

MACY11

CZOMEC.P1T
134
135
]‘ég

138

139
140
141
142
143
144
145

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE
4

SEQ 0004

STARTING PROCEDURE

SET SWITCH REGISTER TO 000200

B.
C.

DEPRESS °'LOAD ADDRESS' KEY AND RELEASE
SET SWR TO ZERO FOR 'AUTO SIZING' OR SWR BITO=1 FOR MANUAL
INPUT (QUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS
SET UP BY A PREVIOUS
START
OR
A
PREVIOUSLY
RUN
DMCT
DIAGNOSTIC.
DEPRESS °'START KEY' AND RELEASE.
THE
PROGRAM
WILL
TYPE
MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START

}29

UP OF THE PROGRAM) AND ALSO THE FOLLOWING:

148

MAP OF DMC11

STATUS

(SR

STATZ2

STAT3

177777

000000

149

150
151

STAT1

154

001500 160010 145310

}22

001510 160020 145320

157

THE PROGRAM WILL

159

TABLE STARTING AT ADD.

158

160
161

162

1122
165

TYPE

°'R'

177777

AND PROCEED TO RUN

THE

TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DM(C11°'S.

THE

STATUS

TABLE MUST BE

VERIFIED BY

DONE.

THE DIAGNOSTIC WAS STARTED WITH

HELP.

171

—

TRIRRRIVLBIZ

h
cd md —d
b e
d
= b
i
wmd od
—

IN THIS

THE USER

EXAMPLE

AUTO

SIZING

INDICATING

MANUAL

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

HOW MANY DM(C11°'S TO BE TESTED?)

176

THIS WOULD INDICATE THE STATUS

1500 IN THE PROGRAM.

]'(;g

174

DIAGNOSTIC.

ABOVE IS ONLY AN EXAMPLE.

PARAMETER

172
173

THE

166

}gg

000000

INPUT

THEN

THE

SW00-1

FOLLOWING SHOWS AN EXAMPLE OF THE

QUESTIONS ASKED AND SOME EXAMPLE ANSWERS:

"SR ADDRESS?160010
VECiOR ADDRESS?310
BR PRIORITY LEVEL?

(4,5.6,7)75
DOES MICRO-PROCESSOR HAVE CRAM?
(Y OR NN
WHICH LINE UNIT?
IF NONE TYPE 'N'',
IF
M8201

TYPE

‘71,

PRINTED

OUT

mM8202 TYPE '?2'*21

IS THE LOOP BACK CONNECTOR ON?Y
SWITCH PACAH1 (DDCMP LINEAX)?Z377

SWITCH PACA#2 (BM873 BOOT ADD)?377

FOLLOWING THE

QUESTIONS

THE

STATUS

MAP

DESCRIBED
ABOVE,
THE
INFORMATION
IN
THE
MAP REFLECTS THE
ANSWERS TO THE QUESTIONS.
IF THE DIAGNOSTIC WAS STARTED
WITH

SW00=0

AND ONLY

USED

AND

THE

SW07=0

(AUTO-SIZING)

STATUS-MAP IS PRINTED

STATUS

INFORMATION

(MATCH THC HARDWARE).
DIAGNOSTIC
MUST
BE

THEN NO QUESTIONS ARE ASKED
OUT.

AUTO-SIZING

MUST BE VERIFIED TO BE CORRECT

IF IT DOES NOT MATCH THE
HARDWARE
THE
RESTARTED
WITH SW00=1 AND THE QUESTIONS

12:45

PAGE 5

SEQ 0005

ANSWERED
.

CONTROL SWITCH SETTINGS
SwW
Sw
Sw
SW
SW
SW
Sw
SW
SW
SwW
Sw
Sw
Sw
SW
Sw
SW

(=le e tuturtras
NOO OO —=NIWH
N

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

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT TYPE OUT/ABELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
HALT IN
ROMCLK
ROUT INE
BEFORE
MI CRO-PROCESSOR
RESERVED
RESERVED
RESELECT DMC11°'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELLCTED TEST
BUILD NEW STATUS TABLE FROM QUESTIONS.

AND

SW00=0

NEW

STATUS

TABLE

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

CLOCKING

(IF

SwW07=0

NEEDED

BUILT BY

WHILE THE DIAGNOSTIC IS RUNNING.
SWITCHES 00-03 AND SWITCH 07
ARE STATIC, AND ARE USED ONLY ON STARTING
OR
RESTARTING
THE
DIAGNOSTIC.

OQOOOOO

AUTO-SIZING)
oo ~NON

b
= —t

d ed rd

AV LAV 1 VT,V 1,8 T, V]

h —ad

CES T
R R

11-SEP-78
| CZDME
MACY11 30A(1052)
CZDMEC.PI
11-SEP-78 12:38

CZOME

MACY11

CZOMEC.P1T

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 6

6.1.2

SEQ 0006

SWITCH REGISTER OPTIONS

Sw 01

(AT START UP)

RESTART PROGRAM AT

SUGGESTED

SELECTED

TEST.

STRONGLY

THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE

TRYING TO SELECT A TEST, THE REASON BEING IS THAT
THE
PROGRAM
HAS
TO
CLEAR
AREAS
AND SET UP PARAMETERS.
WHEN THIS SWITCH IS USED THE DIAGNOSTIC WILL ASK
TEST
NO.?
ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED

?IEJ(S)TCARRIGE RETURN TO BEGIN EXECUTION AT THE

Sw 02

LOCK ON SELECTED TEST.

SWO1

THIS

SWITCH

WHEN

SELECTED

USED

WITH

WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE

SELECTED TEST.
HITTING ANY KEY ON
THE
(ONSOLE
WILL
«ET
IT
ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY

IS HIT AGAIN.

SW02=0

PROGRAM
WILL
BEGIN AT
NORMAL OPERATIONS.

Sw 03

WHEN

SWO1

THE SELECTED

USED.

THE

TEST AND CONTINUE

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

EQUAL TO DMC11'S ACTIVE.
FOUR
DMC11S;
‘DMACTV'
FROM

THIS MEANS IF

B8ITS
00,01,02,03
WILL
THE
SWITCH
REGISTER.

THE SYSTEM HAS
BE S£T IN LOC
USING
THIS

SWITCH(SWO00)
ALTERS
THAT
LOCATION.THEREFORE IF FOUR
DMC11S ARE IN THE
SYSTEM
#x*DQ NOTx«+
SET
SWITCHS
GREATER
THAN SW 03 IN THE UP POSITION.
THIS WOULD BE
A FATAL ERROR.
DO NOT SELECT MORE ACTIVE DMC11S
THERE IS INFORMATION ON IN THE STATUS TABLE.

METHOD :

THAN

A:
B:
C:

LOAD ADDRESS 200
START WITH Sw 00=1
PROGRAM WILL TYPE MESS/ .
SET A SWITCH
FOR
EACH
DMC
DESIRED
ACTIVE.
EXAMPLE:
IF YOU HAVE 4 DMC'S BUT ONLY WANT TO
RUN THE FIRST AND THE LAST SET SWR BITS 0
AND

NUMBER (IF
VALID)
(EXCLUDIMG 11/05)

3 = 1.

PRESS CONTINUE

SET WITH ANY OTHER
PRESS CONTINUE.

WILL
SWITCH

DATA

SETTINGS

LIGHTS
DESIRED.

12:45

PAGE 7

6.1.3

SEQ 0007

DYNAMIC SWITCHES
ERROR SWITCHES
NN
—
L] L[]
[] .
.

11-SEP-78
CZDME
MACY11 30A(1052)
11-SEP-78 12:38
CZOMEC.P11

SW
SW
SW
SWw
SW

SCOPE

12
13
15
08
10

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

SWITCHES

SW06

HALT

SWO09

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

CONTINUE TO RESUME RUNNING.

(IF ENABLED BY

PRINTED

)

°'SCOP1') ON AN ERROR;

IN FRONT OF

SW09

THEREFORE

THE

TEST NO.

|INCORPORATED

IF AN '«'

(EX.

+TEST NO.

THAT

TEST

AND

SWO09 IS USUALLY THE BEST SWITCH FOR THE

SCOPE LOOP (SW14=0, SW10=0, Sw09=1,
Sw08=0).
IF
SWO9
IS NOT ENABELED;
AND THERE IS A HARD ERROR
(CONSTANT).;

SW08

SW09=0, SWO8=1).

WILL LOOP ON TEST

ERROR.
INHIBIT

Swi

SW14

BEST.

(SW14=1,0,

Sw10=0,

FOR INTERMITTEMT ERRORS;
REGUARDLESS

ERROR

(SW14=1, SW10=0, SW09=0, Sw08=1,0)
INTERATIONS.

LOOP ON CURRENT

Sw1é4=1

NOT

TEST.

STARTING ADDRESS

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

NOTE :

ARE
NO
OTHER
STARTING
(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM
IS

UNDER

ACT11

ACCORDINGLY AFTER ALL
PROGRAM WILL

RETURN

XXDP

AVAILABLE

°'XXDP'

CONTROL

AND

DMC11'S ARE

ASSUMES
WILL

TESTED

ACT
THE

'ACT-11"'.

OPERATING PROCEDURE
WHEN PROGRAM ]S

SECTION
THE

4.0

DIAGNOSTI(

INITIALLY

WILL

STARTED

BE PRINTED,

MESSAGES

DESCRIBED

AND PROGRAM WILL BEGIN RUNNING

CZDME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12-38
CZDMEC.P11

ala5 -

NN NN W

5.2

PAGE 8

SEQ 0008

PROGRAM AND/OR OPERATOR ACTION

THE

TYPICAL APPROACH SHOULD BE

HALT ON ERROR

2.
3.
4.

= OV ~NOWVNEW nJ

310
3

12:45

THE

322

(VIA SW 15=1) WHEN EVER AN ERROR OCCURS.

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

TEST NUMBER AND PC WILL BE

ERROR

MESSAGE

TYPED

OUT

(THIS DEPENDS ON THE TEST)

AND

TO GIVE

POSSIBILY

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

THE

TEST CAN BE DETERMINED.

NOTE

THE PC OF

THAT

TEST NUMBER WHICH WAS

TYPED OUT AND

THEN

THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF

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

%zET?ER&jE

6.2

ERROR MESSAGE

TO GIVE

INFORMATION WILL BE

SUPPLIED

THE OPERATOR AN INDICATION OF

ERROR RECOVERY

IF FOR SOME REASON THE
DMC11
SHOULD
‘'HANG
THE
BUS'
(GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED.
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO
REGAIN
CONTROL
OF
CPU.
IF
THIS
SHOULD HAPPEN;
LOOK IN LOCATION
'TSTNO' (ADDRESS 1226)FOR THE NUMBER
OF
THE
TEST
THAT
WAS

RUNNING
AT
THE
TIME OF
THE OPERATOR WILL HAVE AN
AT THE TIME OF THE ERROR.

THE CATASTROPHIC ERROR.
IN THIS WAY
IDEA AS TO WHAT THE DM(C11 WAS
DOING

RESTRICTIONS

STARTING RESTRICTIONS
SEE SECTION 4.
(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REZGUARDLESS OF HOW PROGRAM WAS
STARTED.
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
;g(EBIEl;(S)RMTI(W
PRINTED
ON
THE
TTY
TO
C(OMPLETLY
ISOLATE
LEMS.

CZDME

MACY11

CZDMEC.P11
358
359
332?

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

7.2

362
363
364
365
366
367

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 YABLE IS OVERLAYED. _ THE CURRENT PARAMETERS IN THE

%;(1)

PAGE 9

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

7.3

HARDWARE CONFIGURATION RESTRICTIONS

372
%;2

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

%;g

KMC (M8204)~ UMPER W1 MUST BE IN.

377
378

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

381

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

ggg

MUST

POSITION.

333%

IN THE OFF POSITION.

33315

MISCELLANEOUS

3339

8.1

EXECUTION TIME

388
389
390
391
392
393
394
%gg

E76

SW8 OF E26

MUST

ALL DMC11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE
(PROVIDING NO ERRORS AND SW12=0) WITHIN &4 MINS.
THIS IS
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST
POSSIBLE EXECUTION.
THE ACTUAL EXECUTION TIME DEPENDS GREATLY
ON THE PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE
SYSTEM.
8.2

PASS COMPLETE

397
398

NOTE:
EVERY TIME THE PROGRAM IS STARTED;
THE TESTS WILL
RUN
AS
IF
SW11
(DELETE
ITERATIONS)
WAS UP
(=1).,
THIS IS TO

400

FIRST

399

'"VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE.
THEREFORE THE
PASS -EACH
TIME PROGRAM 1S STARTED- WILL BE A ‘QUICK

<01

PASS®

11:843

THE PRINT OUT

402

UNTIL ALL

DMC11°'S

SYSTEM

ARE

TESTED.

WHEN

THE

DIAGNOST]IC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF
TO BE

EXPECTED.

405

END PASS (CZDMC CSR:

ERRORS:

0C0000

408
409

NOTE:

THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE
FOR
EACH DMC11
THAT IS RUNNING, AND ARE SET TO ZERO ONLY

289

410

411
412

413

175000 vEC:

0300 PASSES:

WHEN THE DIAGNOSTIC IS STARTED.

000001

THEREFORE

AFTER

OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS
FC? EACH DMC11 SINCE THE DIAGNOSTIC
WAS
STARTED
ARE

REFLECTED IN PASSES:

AND ERRORS:.

CZOME

MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38

CZDMEC.P11

414
415

12:45

8.4

PAGE 10

SEQ 0010

KEY LOCATIONS
RETURN (1214)

(1216)

TSTNO

(1226)

RUN

(1316)

CONTAIN, “4E ADDRESS WHERE PROGRAM WILL RETURN
WHEN
ITERAT.ON COUNT IS REACHED OR IF LOOP ON
TEST IS ASSERTED.
CONTAINS THE ADDRESS OF

PEFORMED.

CONTAINS THE NUMBER

THE NEXT

TEST

BEING

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

DMC11
(RUN)
NO.06

IS THE DMC11 NOW RUNNING.

DMCROO-DMCR17
DMSTQO~DMST17
(1500)-(1640)

DMACTV (1306)

THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY.
THEY
CONTAIN
THE
CSR,VECTOR
AND
STATUS
CONCERNING THE CONFIGURATION OF EACH DMC11.
EACH BIT SET IN THIS LOCATION
INDICATES
THAT
THE
ASSOCIATED
DMC11 WILL BE TESTED IN TURN.

EXAMPLE:

(DMACTV)

EXAMPLE:

(DMACTV) 1276/0006000000010001 MEANS

THAT DMC11

DMCSR
8.4A

(1402

'STATUS TABLE'

NOW

PEFORMED.

THE

TEST

ggf;{AINS

1276/0000000000011111 MEANS

NO.

00,01,02,03,04 WILL BE TESTED.

NO.

00,04 WILL BE

THE

CSR OF

THE

TESTED.

CURRENT

DMC11

UNDER

(1500-1640)

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

FOLLOWING

ENTRY

THE MAP

IS A DESCRIPTION OF

MAP OF
PC

(SR

DMC11

STAT1

THE BITS

STATUS

STATZ2

STAT3

007500 160010 145310 177777 000000
001510 160020 016320

000000

INFORMATION
FOR
TO
16
DMC11'S.
FOR

EACH

MAP

CZOME

MACY11

CZDMEC.P11

30A(7US2)

11-SEP-78

11-SgP-78 12:38

"2:45

PAGE 1

SEQ 0011

472
473
474
475

EACH MAP ENTRY CONTAINS
&4
WORDS
WHICH
CONTAIN
THE
STATUS
INFORMATION
FOR
1
DMC11,
THE PC SHOWS WHERE IN CORE MEMORY
THE FIRST OF THE 4 WORDS IS.
IN THE EXAMPLE ABOVE
THE
FIRST
DMC'S STATUS IS IN LOCATIONS, 1500, 1502, 1504,
AND 1506.
THE

477
2;3

THE
INFORMATION
FOLLOWS:

2%(1)

(SR:

CONTAINS DMC11

482

STAT1:

BITS 00-08 IS DMC11 VECTOR ADDRESS

476

483

SECOND DMC STATUS IS LOCATED AT 1510, 1512,”

484
485
486

CSR ADDRESS

BIT15=1 MICRO-PROCESSOR HAS CRAM

BIT15=0 MICRO-PROCESSOR HAS CROM
BIT14=1 TURNAROUND CONNECTOR IS ON
BIT14=0 NO TURNAROUND CONNECTOR

487

BIT13=0 LINE UNIT IS AN M8201

488

BIT13=1 LINE UNIT IS AN MB202

23(1)

BITS 09-11

489

BIT12=1

492
232

STATZ2:

495

STAT3:

496

497
498

1514,

AND

1516.

CONTAINED IN EACH 4 WORD ENTRY 1S DEFINED AS

NO LINE UNIT

IS DMC11 BR PRIORITY LEVEL

LOW BYTE IS SWITCH PACAH1 (DDCMP L INE NUMBER)
HIGH BYTE IS SWITCH PACA2 (BM873 BOOT ADD)
BITO=1

RUN FREE RUNNING TESTS ON KM(C11

BIT1=1

DMC11-AL

BIT1=0 DMC11-AR (LOW SPEED)

(HIGH SPEED)

CJOME
MACYN 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

500

12:45

PAGE 12

SEQ 0012

8.5

METHOD OF AUTO SIZING

8.5.1

FINDING THE CONTRCL STATUS REGISTER.

125252

Nttt
ed D e aed b

= O V00 NA NN
—

ViV vV
O
NN

THE AUTO=SIZING ROUTINE FINDS A DMC11 AS FOLLOWS:
IT
STARTS
AT 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

626

16520 A DMC11 HAS BEEN FOUND,

IF NOT, THE

ADDRESS IS UPDATED BY 10 AND
THE
SEARCH
CONTINS.
A
-1
INDICATES A DHC11 WITH NO CROM OR CRAM, A 125252 INDICATES
A
KMC11 WITH CRAM,
626
INDICATES A MC"-AL AND A
16520
INDICATES
A
DHC‘H-AR
FURTHER
TESTS ARE PERFORMED AT THIS
POINT TO DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IfF A
LOOP-BACK
CONNECTOR
IS INSTALLED AND VARIOUS SWITCH SETTINGS
ON THE LINE UNIJT.
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 DJAGNOSTIC MUST BE
RESTARTED
AND
THE
QUESTIONS
MUST
BE
ANSWERED.
ALL DMC11°'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
INSTRUCTION

AREA
(ADDRESS
IOT
AND_
'.+2'

300-776)
IS
FILLED
WITH
THE
(NEXT
ADDRESS).
THE PROCESSOR

STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT.

THE
PS
IS
LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY
MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3
(BECAUSE
OF

IS
A

BAD
DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL
5 AND THE 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
gP(WEBY
YOU;
THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE

8.6

SOF TWARE SWITCH REGISTER

IF THE DIAGNOSTIC
SWITCH
REGISTER

ALLOW USER THE

IS RUN ON AN 11/04 OR OTHER
C(CPU WITHOUT
A
THEN
A
SOFTWARE SWITCH REGISTER IS USED TO

SAME

SWITCH OPTIONS

DESCRIBED

TO OBTAIN CONTROL AT ANY ALLOWABLE

TIME

DURING

PREVIOUSLY.

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

CONTROL :
EXECUTION

THE
DIAGNOSTIC
THE
OPERATOR
TYPES
A CTRL G ON THE CONSOLE
TERMINAL XCYBOARD.
AS SOON AS THE CTRL G
IS
RECOGNIZED,
BY
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED:

CZOME

MACY11

CZOMEC.P11

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 13

SEQ 0013

555

556

ggg

SWR=XXXXXX NEW?

559

WHERE XXXXXX IS THE CURRENT CONTENTS OF

5529

AN OCTAL DIGIT.

560
561
562
563
564
565

THE

SOFTWARE

SWITCH

REGISTER IN OCTAL.
THE SOFTWARE CONTROL ROUTINE WILL THEN
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED
TO TYPE ONE OR_ MORE OF THE LEGAL CHARACTERS:
1) 0 -7, 2)
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR &) CONTROL-U
(CTRL U).
NO_ CHECK IS MADE FOR LEGALITY.,
[IF THE INPUT
CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE

568
569

TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES
THE NEW DESIRED VALUE
IN OCTAL - LEADING ZEROS NEED NOT BE

570
571
572
573
2;5'

TYPED.
AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF>
DEPENDING ON
THE
PROGRAM ACTION DESIRED AS DESCRIBED BELOW.
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS
TYPED.
AT
LEAST ONE
DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR.

576
577
578

WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC
WILL
CONTINUE
EXECUTION FROM THE
POINT AT WHICH
IT WAS
INTERRUPTED.
IF A <CR> IS THE ONLY THING
TYPED
THE
PROGRAM

gg]

ADDRESS 200.

579
580

WILL CONTINUE WITHOUT CHANGING THE SSR.
THE <LF> DIFFERS FROM
THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT

583

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

ggg

PROMPT DISPLAYED

587
§gg

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

584

THE

590
591
592
593
594

TERMINATOR

THE

INPUT

VALUE WILL BE DISREGARDED AND THE

(SWR = XXXXXX NEW?).

THE

12:45
PAGE 14
INTRODUCTION TO DMC11

DIAGMOSCTIC

SEQ 0014

s *AC-8552C-M(
DMC11 DDCMP MODE LINE UNIT TESTS
*COPYRIGHT 1976,1978, DIGITAL EQUIPMENT CORP.. MAYNARD MASS. 01754

;STARTING PROCEDURE
;LOAD PROGRAM

;LOAD ADDRESS 000200

;SWR=0 AUTOSIZE DM(C11
;SWO7=1 USE CURRENT DM(C11 PARAMETERS
;SWO00=1
INPUT NEW DM(C11 PARAMETERS
;PRESS START

;PROGRAM WILL
;PROGRAM WILL

TYPE ‘AC-8552C-MC
TYPE STATUS MAP

JAT

A PASS,

DMC11

DDCMP MODE

LINE UNIT

TESTS''

;PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
THE END OF

PROGRAM WILL

TYPE PASS COMPLETE MESSAGE

JAND THEN RESUME TESTING
;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE

sSWITCH REGISTER OPTIONS

D
D —ed
d ced
—

)

..,
NP

Sw11=4000
Sw10=2000
Sw09=1000
Sw08=400
Sw07=200
SW06=100
SW05=40
SW04=20
Sw03=10
SW02=4
Sw01-2
Sw00 1

SwW13=20000
SW12=10000

HNIIIIHHIIIIH

Sw15=100000

SW14=40000

11-SEP-78
CZDME
MACY11 30A(1052)
CZDMEC.P1T
11-SEP-78 12:38

+HALT ON ERROR
.LOOP ON CURRENT TEST
.INHIBIT ERROR TYPEOUT

LDELETE

TYPEOUT/BELL ON ERROR.

LINHIBIT 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

;RESELECT DMC11°'S TO BE TESTED (ACTIVE)

;LOCK ON TEST SELECT

;RESTART PROGRAM AT SELECTED TEST
s INPUT DMC11 PARAMETERS

INSTRUCTION

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

640
641
642
643
64

645
646
647

648
649
650
651
652

653

654
655
656
657
658
659
660
661
662

000000
000001
000002

000003
000004
000005
000006
000007

177776
001200

010046

668
669
670
671
672
673
674
675
676
677
678
679

680
681

682
683
68
685

686
687
688
689
690

RO=X0
R1=%1

R2=X2
R3=13
R&=%4

R5=X5
SP=36
PC=X7

:GENERAL REGISTER
sGENERAL REGISTER
;GENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
¢ GENERAL REGISTER
;PROCESSOR STACK POINTER
;PROGRAM COUNTER

PS=177776
STACK=7200

sPROCESSOR STATUS WORD
:START OF PROCESSOR STA(K

s INSTRUCTION DEF INITIONS

665

666

SEQ 0015

;LOCATION EQUIVALENCIES

005746

667

JREGISTER DEFINI TIONS

663
664

12:45
PAGE 15
GENERAL DEFINATIONS AND EQUIVALENCIES

005726
012600

024646

022626

PUSH1SP=5746
POP1SP-5726
PUSHR0=10046
POPRO=12600

000200
000100
000040
000020
000010
000004
000002
000001

s INCREMENT PROCESSOR STACK 1

WORD

sSAVE RO ON STACK
JRESTORE RO FROM STA(K
PUSH2SP=24646
;DECREMENT STACK TWICE
POP2SP=22626
s INCREMENT STACK TWICE
EQUIV
EMT HLT JBASIC DEFINITION OF ERROR CALL
;BIT DEFINITIONS

100000
040000
020000
010000
004000
002000
001000
000400

;DECREMENT PROCESSOR STACK 1 WORD

CZOME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZOMEC.PTT

692
693
694
695

12:45

PAGE 16

TRAPCATCHER FOR UNEXPECTED

SRR

2
INTERUPTS

SEQ 0016

T AR RAN A AR AR AR RN AR R AR A AR AR AN AR A ARNARRNRAANRRARAAANRR
AR AR A AR RSN

s TRAPCATCHER FOR ILLEGAL INTERRUPTS
s THE STANDARD ‘‘TRAP CATCHER'' IS PLACED

696
697
698
699
700
701
702
703

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

SRR A AR AR A AR AR

R AN RN AR AR RN A AN A AN AN AN R AAAAR RN AR AR AR AR RAR R

ISTANDARD INTERRUPT VECTORS
=24

)
)

PFAIL

;POWER FAIL HANDLER

340
HLT
340

*SEQVICE AT LEVEL 7
*ERROR HANDLER
*SERVICE AT LEVEL 7

*SERVICE AT LEVEL 7

CTRPSRV

*GENERAL HANDLER DISPATCH SERVICE

;SAVE FOR ACT-11 OR XXDP

$ENDAD

*FOR USE WITH ACT=11

0
0

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

;ACT=11 PROGRAM CHARACTERISTICS

=174

DISPREG: 0
SWREG:
0

000200
000137

002002

001000
005377
046504

041501
030503

001200

.=200

_.=1000
034055
MTITLE:
020061

:SOF TWARE DISPLAY REGISTER
*SOFTWARE SWITCH REGISTER

JMP

_START

.ASCII
ASCIZ

<377><12>/AC-8552C-MC/<377>
/DMC11 DDCMP MODE LINE UNIT TESTS/<377>

177570
177570

;GO TU START OF

PROGRAM

.=1200
JINDIRECT POINTERS

001200
001202

OR XXDP

DISPLAY:17757C
SWR:
177570

TO SWITCH REGISTER AND LIGHT DISPLAY

CZDME

MACY11

CZDMEC.P1

30A(1052)

11-SEP-78 12:38

738

;23
741
7642
763
744

;22

0012064
001206
001210

001212

177560
177562
177564

177566

763
764

765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
%

789
790

PAGE 17

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

SEQ 0017

TKCSR:
TKDBR:
TPCSR:

TPDBR:

177560
177562
177564

;TELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
JTELEPRINTER CONTROL REGISTER

177566

;TELEPRINTER DATA BUFFER

;PROGRAM CONTROL PARAMETERS
001214
001216
001220
001222
001224
001226
001230
001232
001234

000000
Q00000
000000
000003
000000
000000
000000
000000
000000

760

762

12:45

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS

747

750
751
752
753
754
755
756
757
;gg

11-SEP-78

RETURN: 0
NEXT:
O
Lock:
0
ICOUNT: 3
LPCNT:
O
TSTNO:
0
PASCNT: 0O
ERRCNT: 0O
LSTERR: 0O

;SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
JNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
sNUMBER OF ITEREATIONS COMPLETED
JNUMBER OF TEST IN PROGRESS
sNUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
JPC OF LAST ERROR CALL

;PROGRAM VARIABLES

001236
001240

001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001312
001314
001316

001320
001322

000000
000000

000000
000000
000G0O
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
000000
000001
000001
000001
000001
000000

001472
001676

STRTSW:
STAT:

0
(

CLkX:
0
MASKX:
0
TEMP1:
O
TEMP2:
0
TEMP3:
0
TEMP4:
0
TEMPS:
0
SAVRO:
0
SAVR1:
0
SAVRZ2:
0
SAVR3:
0
SAVR4:
0
SAVRS:
0
SAVSP:
0
SAVPC:
0
ZERO:
O
ONE :
1
MEMLIM: O
DMACTV: .BLKW
DMNUM:
_BLKW
SAVACT: .BLKW
SAVNUM: _BLKW
RLENE
0
.EVEN

CREAM:
MILK:

JSWITCHES AT START OF PROGRAM
;DM STATUS WORD STORAGE
s TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE
; TEMPORARY STORAGE
;RO STORAGE
sR1 STORAGE
;R2 STORAGE
:R3 STORAGE
;R4 STORAGE
JRS STORAGE
sSTACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

1
1
1
1

DM.MAP-6
CNT.MAP-4

JHIGHEST LOCATION FOR NPR'S

;DMC11°S SELECTED ACTIVE.
;OCTAL NUMBER OF DM(C11°'S.
JORIGINAL ACTV
DEVICES
;WORKABLE NUMBER

JPOINTER TO RUNNING DEVICE.

;TABLE POINTER,
;TABLE POINTER

CZOME

MACY11

CZDMEC.P1IN

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 18

PROGRAM PARAMETERS,

SEQ 0018

VARIABLES, AND TRAP CALLS.

:PROGRAM CONTROL FLAGS

795
796

001324
001325

798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818

001327

797

819

820
821
822
823
824
825
826
827
828
829
83C

831
832
833
834
835
836

837
838
839
840
841

001326

000
000

INIFLG:
ERRFLG:

.BYTE
.BYTE

0
8

000

QV.FLG:

.BYTE

000

LOKFLG:
Ve

.BYTE

;PROGRAM INITIALIZATION FLAG
;ERROR OCCURED FLAG
sLOCK ON_CURRENT TEST FLAG
$QUICK VERIFY FLAG.

*ON FIRST PASS OF

EACH DMC11

ITERATIONS WILL

:DEFINITIONS FOR TRAP SUBROUTINE CALLS
*POINTERS

TO SUBROUTINES CAN BE FOUND

YIN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
,°:i*'tttt*ttfi!’tttt*t**ttttt'ttttttt*ttfiitfitttitt*t'tltttittttttttQ"t'

001330
001330

001332
001334
001336
001340

001342
001344
001346
001350
(001352
001354
001356
001360
001362
(001364

104400
003576
104401
003736

104402
003766
104403
004050
104404
004154
104405

004174
104406
004374
104407
004434
104410
004466
104411
004472
104412
005466

104413
005436
104414
005504
104415
005552
104416
005616

" TRPTAB:

SCOPE=TRA§E8PE

;CALL TO SCOPE LOOP AND ITERATION HANDLER

suop1=rRA§EéP1

;CALL TO LOOP ON CURRENT DATA HANDLER

rvpe:rRAfi;gps

:CALL TO TELETYPE OUTPUT ROUTINE

INSTR=TRA?&§TR

;CALL TO ASCII STRING INPUT ROUTINE

INSTER:Tfi?Pg?ER

:CALL TO INPUT ERROR HANDLER

<IN
pmm_—rm;;;gm

:CALL

SAVOS=TRA§;SOS

;CALL TO REGISTER SAVE ROUTINE

RESOS=TRA£EZOS

;CALL TO REGISTER RESTORE ROUTINE

CONVRTzTfi?g&agT

:CALL TO DATA OQUTPUT ROUTINE

CNVRT:TRA?LLAT

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

MSTCLR=TRAP+12

;CALL TO ISUE A MASTER CLEAR

DELAY=TRAP+13

;CALL TO DELAY

ROMCLK=TRAP+14

;CALL

TO CLOCK ROM ONCE

;CALL

TO CLK DATA

:CALL

TO DELAY A CLOCK

.MSTCLR
.DELAY

.ROMCLK
DATACLK=TRAP+15
.DATACLK
TIMER-TRAP+16
.TIMER

TO NUMERICAL

DATA

INPUT

ROUTINE

TICK

.':’t'tfittttiiittt.fitt't't"""tfitl*'fittttfi'ittttt.!t.tttfifitltt'ttttitt

SUPPRESS

CZDME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P11

001366
001370
001372

12:45

PROGRAM PARAMETERS,

;DMC11

CONTROL

STAT1:
STAT2:
STAT3:

O
O
0

;DMC11
001374
001376
001400
001402
001404
001406
001410
001472
001414

PAGE 19

VARIABLES,

AND

TRAP CALLS.

INDICATORS FOR CURRENT DMC11 UNDER TEST

VECTOR AND REGISTER INDIRECT POINTERS

DMRVEC: 0
DMRLVL: 0
DMTVEC: O
DMTLVL: O
DMCSR:
O
DMCSRH: 0
DMCTL:
O
DMPO4:
O
DMPO6:
O

JPOINTER
JPOINTER
;POINTER
JPOINTER
JPOINTER
JPOINTER
JPOINTER
JPOINTER
JPOINTER

TO
TO
TO
TO
TO
TO
TO
TO
TO

DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC11
DMC11

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HIGH BYTE.
CONTOL OUT REGISTER
PORT REGISTER(SEL 4)
PORT REGISTER(SEL 6)

;TEMP STORAGE

TEMP:
A

;DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS

.Blkw
.BLkW
.BLKW
.BLKW

1
1
1
1

cCONTROL STATUS REGISTER FOR DMC11 NUMBER 00
JVECTOR FOR DM(C11 NUMBER 00
;DDCMP LINEX FOR DMC11 NUMBER 00
;3RD STATUS WORD

DMCRO1:
DMS101:
DMS201:

.BLKW
.BLKW
.BLkwW

.BLkW

1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 01
JVECTOR FOR oMC11 NUMBER 01
;DDCMP LINEX# FOR DMC11 NUMBER 01

DMCRO2:
DM5102:
DMS202:
DMS302:

.BLKW
.BLKW
.BLKW
.BLKW

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

DMCRO3:
DMS103:
DMS203:
DMS303:

.BLKW
.BLKW
.BLkwW
.BLkwW

1
1
1
1

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

DMCRO4:
DMS104:
DMS204:
DMS304:

.BLKW
.RLKW
.BLKW
.BLKW

!
1
1’

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 04
JVECTOR FOR DMC11 NUMBER 04
;DDCMP LINEX FOR DMC11 NUMBER 04
23RD STATUS WORD

DMS301:

DMCROO:
DMS100:
DMS200:
DMS300:

.~1500

000000
001460

—

001416

:3RD STATUS WORD

SEQ 0019

12:45

PAGE 20

001550
001552
001554
001556

DMCROS :
DMS10¢:
DMS205:
DMS305:

.BLKW

001560

DMCRO6:
DMS106:
DMS206:
DMS306:

.BLKW
.BLKW
.BLKW
.BLKW

SEQ 0020

AND TRAP (CALLS.

;CONTROL STATUS REGISTER FOR DM(C11 NUMBER 05
;VECTOR FOR DMC11 NUMBER 05
;DDCMP LINE# FOR DMC11 NUMBER 05

—) wd ——d —d

DMCRO?7: .BLKW
DMS107: .BLKW
DMS207: .BLKW
DMS307: .BLKW

—t b cncd b

sCONTROL STATUS REGISTER FOR DM(C11 NUMBER 07

DMCR10:
DMS110:
DMS210:
DMS310:

.BLKW
.BLKW
.BLKW
.BLKW

s CONTROL STATUS REGISTER FOR DM(C11
sVECTOR FOR DMC11 NUMBER 10
;DDCMP LINE# FOR DMC11 NUMBER 10

DMCR11:

.BLKW

;CONTROL STATUS REGISTER FOR DMC11 NUMBER "
;VECTOR FOR DMC11 NUMBER 11
;DDCMP LINEX# FOR DMC11 NUMBER 11

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 12
sVECTOR FOR DMC11 NUMBER 12
;DDCMP LINE# FOR DMC11 NUMBER 172

.BLKW
.BLKW
.BLKW
.BLKW

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

:
:

.BLKW
JRLKW

000000

.BLKW

;DDCMP LINE# FOR DMC11 NUMBER 07
;3RD STATUS WORD
10

;3RD STATUS WORD

23RD STATUS WORD

—

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 13
;VECTOR FOR DMC11 NUMBER 13
;DDCMP LINE#X FOR DMC11 NUMBER 13

) ——d —d
—

.BLKW
.BLKW

;VECTOR FOR DMC11 NUMBER 07

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

b — —h

.BLKW

BLKW

—

;3RD STATUS WORD

23RD STATUS WORD

b ——d D

.BLKW
.BLKW
.BLKW
.BLKW

—

.BLKW
.BLKW
.BLKW
.BLKW

BLKW
BLkW
JBLKW

ad —d

:
:
:

b e

;CONTROL STATUS REGISTER FOR DMC11 NUMBER
;VECTOR FOR DMC11 NUMBER 06
;ODCMP LINE#X FOR DMC11 NUMBER 06

— el md ——h

:3RD STATUS WORD

— —d b

VARIABLES,

— cmd md b

.BLKW
.BLKW

— e wd

PROGRAM PARAMETERS,

—

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.PTY
11-SEP-78 12:28

;3RD STATUS WORD

s CONTROL STATUS REGISTER FOR DMC11 NUMBER 15
;VECTOR FOR DMC11 NUMBER 15
;DDCMP LINE# FOR DMC11 NUMBER 15

;3RD STATUS WORD

s CONTROL STATUS REGISTER FOR DMC11 NUMBER 16
SVECTOR FOR DMC11 NUMBER 16
;ODCMP LINE# FOR DMC11 NUMBER 16

:3RD STATUS WORD

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 17

;VECTOR FOR DMC11 NUMBER 17
;DODCMP LINE# FOR DMC11 NUMBER 17

:3RD STATUS WORD

CZOME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P11
954
955
956
957
958
959

001702
001702
001704

12:45

PAGE 21

PROGRAM PARAMETERS,

VARIABLES,

AND

TRAP CALLS.

SEQ 0021

CNT _MAP:
PACTO00: 0

;PASS COUNT FOR DMC11

PACIOT1:

;PASS COUNT FOR DMC11 NUMBER 01

001712
001714

PACT02:

ERCTOZ2: O

SERROR COUNT FOR DMC11 NUMBER 02

001716
001720

PACT03:

;PASS COUNT FOR DMC11 NUMBER 03

001722
001724

PACTO04:

;PASS COUNT FOR DMC11 NUMBER 04

001726
001730

PACTOS:

;PASS COUNT FOR DMC11 NUMBER 05

001732
001734

PACT06:

;PASS (OUNT FOR DMC11

001736
001740

PACTO7:
ERCTO7:

0
O

;PASS COUNT FOR DMC11 NUMBER 07
JERROR COUNT FOR DMC11 NUMBER 07

001742
001744

PACT10:

;PASS COUNT FOR DMC11

NUMBER 10

001746
001750

PACT11:

;PASS COUNT FOR DMC11

NUMBER 11

001752
001754

PACT12:

JPASS COUNT FOR DMC11 NUMBER 12

001756
001760

PACT13: 0

ERCT13: 0

JERROR COUNT FOR DMC11 NUMBER 13

001762
001764

PACT14:

;PASS COUNT FOR DMC11

NUMBER 14

001766
001770

PACT15:

;PASS COUNT FOR DMC11

NUMBER 15

001772
001774

PALT16:

;PASS COUNT FOR DMC11 NUMBER 16

001776
002000

PACT17:

;PASS COUNT FOR DM(C11

001706
001710

000000
000000
000000

ERCTO00: O
ERCTO1: O

ERCTO03: O

ERCTO4: O

ERCTOS: O
ERCTO6: O

ERCT10: O
ERCT11:

ERCT1Z2: O

ERCT14: O

ERCTIS:

ERCT16:

ERCT17:

NUMBER 00

JERROR COUNT FOR DMC11 NUMBER 00

SERROR COUNT FOR DMC11 NUMBER 01
;JPASS COUNT FOR DMC11

NUMBER 02

JERROR COUNT FOR DMC11 NUMBER 03
JERROR COUNT FOR DMC11 NUMBER 04

JERROR COUNT FOR DMC11 NUMBER 05
NUMBER 06

SERROR COUNT FOR DMC11 NUMBER 06

JERROR COUNT FOR DMC11 NUMBER 10

JERROR COUNT FOR DMC11 NUMBER 11

JERROR COUNT FOR DMC11 NUMBER 12
;PASS COUNT FOR DMC11 NUMBER 13

JERROR COUNT FOR DMC11 NUMBER 14

JERROR COUNT FOR DMC11 NUMBER 15

;ERROR COUNT FOR DMC11 NUMBER 16
NUMBER 17

SERROR COUNT FOR DMC11 NUMBER 17

CJOME
MACYN 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

12:45

PAGE 22

PROGRAM PARAMETERS,

VARIABLES, AND TRAP CALLS.

1007
FORMAT OF

r
IC
r

164

STATUS

TABLE

1.1
1r_1.
1
1
1
1
1
0
N
T
R
O
L
R
&
1
1»r
1»r
1»r11r
11
1

1
1r
[«
1
1

1
«]
r

_1
1

1
1

_ 1
T
E
1

1
RI
1
1

1
1
1
1
1
1
1
1_
1
1
_1_
1
1
e s]e]v]«]n
«
Vv
E
C
T
0
R
1»r
1
11
11
1
1
1
1
1
1
1

/[
r.1r
1
1
1
1
1
[~
8
M
A
D
D
1
r1»r
1r1»r
11
1

1
1
1=+«
L
1
1

1
r
11
r1r

1
1
1r

1
1
1

1r
1
r
rr
11

1
r
1

1
1
1

1
1
1r

1
1
¢t

1
1
1

DEFINITION OF

1
1

1
1
1

1
1
1
1

1
=]
1

STAT1

1
|
1

STAT?

STAT3

1
1
1

1
1
1
1*~1]=]
1
1
1

(SR

FORMAT

CSR:

CONTAINS DMC11

STAT1:

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

(SR ADDRESS

BIT13=0 LINE UNIT IS AN M8201
BIT13=1 LINE UNIT IS AN M8202
BIT12=1 NO LINE UNIT
BITS 09-11
STAT2:

STAT3:

IS DMC11 BR PRIORITY LEVEL

LOwW BYTE 1S SWITCH PACA1

HIGH BYTE

IS SWITCH PACA#2

(DDCMP L INE NUMBER)
(BM873 BOOT ADD)

BIT0=1 DO FREE RUNI\ING TESTS ON KM(C

(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDM]I ONLY])
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING

DZDMG TEST 2 FIRST
BIT1=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE

BIT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE

SEQ 0022

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

323 RITIIREERRERT & B\I\I\I\I\J\I\‘\J ZZTEER
~

012737
012706
012737
013737
005037
105037
105037
012737
012737
012737
012700
005020
022700

002002

012737
012737

001234
000001
002002

013746
013746
012737

012737
012737
022777

001402

00 ~NOAWNINNN)
—

000340
001200
005336
001310
010016
001325
001327
001470
001676
100000
001702

000006
000004
002166
177570

177570
177777

000024
001314

SEQ 0023

001226
001214

000004
001202

007154

7%:

001236

:SAVE NUMBER OF DEVICES IN SYSTEM.

#BIT15,RUN
#CNT .MAP RO
(RO) +

*POINT POINTER TO FIKST DEVICE.
*PASS COUNT POINTER TO RO
*CLEAR TABLE

238

*KEEP GOING

CLR
MOV
MOV

LSTERR
#1,TSTNO
#.START ,RETURN

MOV
MOV
MOV

N6, -(SP)
. -(SP)
#6S . Nl

MOV
P

#177570.DISPLAY :SET DISPLAY TO HARD SWR ADDRESS
#-1,35WR
*REFERENCE HARDWARE SWITCH REGISTER

#177570,SWR

“CLEAR LAST ERROR POINTER
“SET UP FOR TEST 1
-SET UP FOR POWER FAIL BEFORE

STESTING STARTS

*SAVE CURRENT VECTORS
:
*SET UP FOR TIMEOUT

:SET SWR TO HARD SWR ADDRESS

63+2

SIF = =1 USE SOFT SWR ANYWAY

MOV

#SWREG, SWR

*POINTER TO SOFT SWR

MOV
MOV

(SP)+, a4,
(SP)+.ax6

8R
cMP
MOV

TSTB

001236

DMNUM,SAVNUM

*SET UP STACK
:SET UP POWER FAIL VECTOR

#CNT.MAP+100,R0 -DOWE YET?

BNE
ggg
20%:

:LOCK OUT INTERRUPTS

#STACK , SP
#.PFAIL.a#26¢

cTMP

MOV
MOV
CLR

BEQ
6%:

#340,PS

SWFLG
“CLEAR SOFT TYPEOUT FLAG
ERRFLG
*CLEAR ERROR FLAG
QV.FLG
*2ERO QUICK VERIFY FLAG
#DM_MAP-10, CREAM: GET MAP POINTER.
#CNT.MAP=4 .MILK :GET PASS COUNT MAP POINTER

MOV

001200
177020

TITLE MESSAGE

CLR
CLRB
CLRB
MOV
MOV

BNE

000042

001306

MOV

23%:

003522

001236

.START: MOV
MOV
MOV

001320
001322
001316

001202
001200

001236
000001

3
o

177776

000176
000174
000004
000006
001324

001000
007606
176734
000042

NOWNSB
NN =O

PROGRAM INITIALIZATION AND START UP.

;TYPE

00 ~NOMN SN = o

ololeololololelele o

PAGE 23

sPROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS

b U
b
D
e
b e
d
D
D e
e
) e
)
b e
b
d
D e
)k ed
D
ek
e
b
e

b ——d —)
—d el

d e
e

)
—

b
b h e
b d b b b ) d e
d

—

12:45

TYPE

7%
(SP)+, (SP)
+

INIFLG

INITIALIZATION BEEN PEREORMED

MTITLE

sTYPE

#SW00, STRTSW

BR IF SW0
6-

STRTSW

DMACTY

TYPE,

NOACT

BNE

*HAS

‘BR IF YES
“IF ACT-11 AUTOMATIC MODE. DON'T TYPE

TSTB

B8PL

*RESTORE VECTORS
:

208
§3§~0Ao,a142
PC.CKSWR
aSWR, STRTSW
7%
.+6
STRTSW

BNE

USE HARD SWR

#DISPREG.,DISPLAY:POINTER TO SOFT DISPLAY REG

JSR
MOV
TST
BEQ
CLR

BIT

SIF IT EXISTS AND NOT = -1
SADJUST STACK

173

10¢

TITLE MESSAGE

“CHECK FOR SOFT SWR
“STORE STARTING SWITCHES
$1IS IT RUNNING IN AUTO MODE?
BR IF NO
“IF YES,
CLEAR SWITCHES

IF Swd0=1,

QUESTIONS ARE ASKED.

SBIT7=172

‘BR IF $W07=0

*ARE ANY DEVICES SELECTED?

“BR IF

YES

*NO DEVICES SELECTED.

MACYN

30A(1052)121:1’,§SEP-78

11-SEP-78

002312
002314
002316
002322
002326
00330
002334
002336
002344
002346
002350
002354
002360

000000
000776
004737
105737
001410
105737
100431
032737
001403
000424
005137
104402
012704

002370
002376
002376
002402
002406

012437
001411
012437
012437
012437

002414
002416
002420

007454
000762
012700

e R

i G

o Pt P

e R

YT DUNE QU WS P

DU W

i Y

QU W

NNNNOAPROQRPOROONO R NNNINNNNNWNWNE
DN
—
—ha—ha.a_ha-a—ha_a_ha_hd_A—ha—Lq_a_hd_a_ha-A-ha;:;::;:;nz—nj-dcréC:Cu;-d—?SR;GRSRxcaxcayj_a

CZDMEC.P11

wf\)—loog\l&\hgwm—'gOm\lo\l\l\wf\)—‘oomVO*U'N\wf\)-JOO&V&U!%WN—*SQQVOUU\WN—'OOQ

CZDME

12:45

PROGRAM INITIALIZATION AND START UP.

SEQ 0024

HAL T
BR
JSR_
TSTB
BEQ
TSTB
BM]
BIT
BEQ
BR
(M
TYPE
MOV

:STOP THE SHOW
=2
:DISQUALIFY CONTINUE SWITCH
PC,AUTO.SIZE
:GO DO THE AUTO SIZE
INIFLG
‘FIRST TIME?
21$
‘BR IF YES
STRTSW
IF USING SAME PARAMETERS DONT TYPE MAP
13
#BIT1!BIT2,STRTSW;IS TEST NO. OR LOCK SELECTED
248
:1FNO THEN TYPE STATUS
1$
1F _YES DO NOT TYPE STATUS
INIFLG
SET FLAG
,XHEAD
TYPE HEADER
#DM.MAP
R4
*SET POINTER

001252
001254
001256

MOV
BEQ
MOV
MOV
MOV

(R4)+,TEMP2
18
(R4)+,TEMP3
(R4I+.TEMPG
(R4I+.TEMPS

001500

XSTATQ
BR
MOV

010512
001324

178:
168:

001236
000006

001236

001324
006224
001500

21$:
248:

002364 010437 001246

002412 104410

PAGE 24

5% :

001250

MOV

CONVRT

18:
SRR

R&,TEMP

53
#DM.MAP,RO

:SET ADDRESS

:SET
ALL
:SET
-SET
:SET

(SR
DONE IF ZERO
STAT1
STAT?
STAT3

:TYPE OUT STATUS MAP
:

:RO POINTS TO STATUS TABLE

AR AR A A AN AR AR AN A AN AN AARNRAANRA AR A ARAAARAARNARRANARR

AR AN

N RN

;.*AUTO SIZE TEST
;o*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING

:;*ADDRESSES FOR YOUR SYSTEM, IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.
;s *CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DH,DG,DU,DUP,LK,DMC,DZ,KMC).

::*IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMCT1, THE FIRST

;:*DMC11 ADDRESS IS 760070, KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT
;s *ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE

;s *RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS
;2*YOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A
so*THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE
;o*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF
;. s*CORRECT).

TO WHAT IT TOLD
DIFFERENT ADDRESS
FINAL ADDRESS
THE DMC'S ARE

;;ttttfit*ttttttttttttfitttttttttttttttttttt!ttttttttfittttttttttttt'tttt

002424
002430
002434
002440
002444
002446
002452
002454
002456
002460
002466
002470
002472
002500
002502
002510

002512

013746
013746
005037
005037
005005
011037
001564
005705
001005
032760
001061
000404
032760
001454
012737
005705

001003

000004
000006
000006
001252
001404

100000

000002

100000

000002

002674

000004

MOV
MOV
CLR
(LR
CLR
AUSTRT: MOV
BEQ
TST
BNE
BIT
SNE
BR
1%:
BIT
BFQ
2%:
MOV
TST

BNE

a4 ,-(SP)
a#6,-(SP)
a#b
TEMP3
RS
(RO) ,DMCSR
AUDONE
RS
1%
#;T15,2(RO)
SK]IP
2%
#MIT15,2(RO}
SKIP
NODEV , a#é
R-

;SAVE LOC 4
;SAVE LOC 6
;CLEAR VEC+2
:CLEAR FLAG
;R5=0=DM(C, RS=~-1=kM(
JGET NEXT DMC CSR
;BR IF DONE
;DMC OR KM(C?
JBR IF KMC
;CHECK FOR DMC CSR
JSKIP IF NOT DMC
JITS A DMC SO CONTINUE
;CHECK FOR KMC CSR
:SKIP IF NOT KMC
JSET UP FOR TIMEQUT
;DMC OR KM(?

‘BR IF KMC

CZOMF
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38
1174

175

1176

1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202

1203
1206

002514

012703

000006

002522

012703

000010

002520

002526
002532
002536
002540
002542
002544
002546
002550
002552
002554
002562
002566
002570
002572
002600
002602
002604
002612
002614
002616
002622
002624
002630
002632
002636
002642

002644
002646

000402

012702
012701
005711
111204
060401
005201
040401
005703
001371
012737
010137
005705
001005
032760
001014
000404
032760
001407
005711
020137
001411
062701
000756
062700
011037
001470

000750
062700

1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221

002652
002660
002664
002666
002672
002674
002676
002700
002704
002706
002710
002712
002720
002722
002724
002726
002730

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

1224
1225
1226

002744
002746
002750

002776
005705
001003
104402
007320
000402

1222
1223

1227
1228
1229

002736
002742

002752
002754
002756

010137
104410

M2
12:45
PAGE 25
PROGRAM INITIALIZATION AND START UP.

3%:

003010
160010

4$:
FLOAT:

002700
003022

000004

100000

000002

100000

000002

FY:

1%:
2%:

001404
000010

000019
001404

SKIP:

000010
000010
001404

0K :

003022

003022
NODEV:
001252

002700

177777

001262

ERR:

001276

(001252

1%:

MOV

#6,R3

;R3 IS COUNT OF DEVICES BEFORE DMC

MOV

#10,R3

:R3 IS COUNT OF DEVICES BEFORE KMC

MOV
MOV
TST
MOVB
ADD
INC
BI(
TST
BNE
MOV
MOV
TST
BNE
BIT
BNE
BR
8IT
BEQ
TST
cMP
BEQ
ADD
BR
ADD
MOV
BEQ

BR
ADD

#DEVTAB ,R2
#160010,R1
(R1)
(R2) ,R4
R4 ,R1
R1
R4 R1
R3
FLOAT
#ERR , a#é
R1,XLOC
RS
1%
#81T15,2(R0O)
SKIP
2$
#8I1T15,2(R0O)
SKIP
(R1)
R1,DMCSR
0K
#10,R1
FyY
#10,RO
(RO) ,DMCSR
AUDONE

FyY
#10,RO
#10,XL0C
(RO) ,DMCSR
AUDONE
XLOC.R1

;GO0 ON

:R2 1S DEVICE TABLE PONTER
:START WITH ADDRESS 160010
sCHECK ADDRESS IN R1

;IF NO TIMEOUT, GET NEXT ADDRESS
JINRY
:
;
;ANY MORE DEVICES TO CHECK FOR?
:BR IF YES
sOK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT
sSAVE FIRST DMC/KMC ADDRESS
;DMC OR KMC?
:BR IF KMC
sCHECK FOR DMC CSR
$SKIP IF NOT DMC
:ITS A DMC SO CONTINUE
sCHECK FOR KMC CSR
sSKIP IF NOT KMC
s CHECK DMC ADDRESS
sDOES IT MATCH
:BR_IF YES
sGET NEXT DMC ADDRESS
:DO IT AGAIN
:SKIP TO NEXT CSR IN TABLE
GET NEXT CSR
BR IF DONE

:ELSE CONTINUE
;SKIP TO NEXT DMC CSR

ADD
MOV
8EQ
MOV
BR
(MPB
RTI
TST
BNE
TYPE
CONERR
MOV
CNVRT
ERRPC
TYPE
CNERR
MOV

#-1,TEMP3

;
SSET FLAG SO IT ONLY GETS TYPED ONCE

CONTAB
TST
BNE

R5
3%

;TYPE CSR VALUES
;DMC OR KMC ?
;BR IF KMC

‘s

s CONT INUE

MOV
CONVRT

TYPE
DM(CM
BR

FY
(R2)+,~(R3)

TEMP3
18

#ERR, SAVP(

:UPDATE EXPECTED DMC/KMC ADDRESS
;GET NEXT DMC/KMC CSR
:BR_IF DONE
;GET EXPECTED DMC/KMC ADDRESS
s CONT INUE
:ON_TIMEOUT, INC R2, DEC R3
sRETURN
;CHECK FLAG IF = 0 TYPE HEADER
:SKIP HEADER
;TYPEOUT HEADER MESSAGE
s CONF IGURATION ERROR!!!!
;SAVE PC FOR TYPEOQUT
;TYPE OUT ERROR PC

H
;TYPE REST OF HEADER

R1,SAVR1

;SAVE R1 FOR TYPEOUT

SEQ 0025

C/OME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P1T
11-SEP-78 12:38

1230
1231
1232
12335
1234
1235
1236
1237
1238
1239
1240
1241
12642
1243
1244
1245
12646
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278

}sgg

002760
002762
002764
002766
002770
002772
002774
002776
003000
003002
003004
003006
003010
003011
003012
003013
003014
003015
003016
003017
003020
003022
003024
003026
003030
003034
003040
003042
003046
003052
003060
003062
003066
003070
003072
003100
003102
003106
003110
003112
003120
003124

003126
003132
003136
003140
003142
003144

003150

104402
007330
022626
000727
000001
006
001276
000002
006
003022
006
001404
007
017
007
007
007
007
007
007
007
003022
000000
005705
001005
012705
012700
000602
012637
012637
032737
001422
104402
005000
000000
027737
101404
104402
000000
000776
017737
013700
000000

012700
012701
010120
005021
022021
022700

001372

=
1285

3s:

002
004
002

177777
001500
000006
000004
000010

001236

006144
176106

001312

006005

176064
001306
000300
000302

001000

1281

12864

12:45
PAGE 26
PROGRAM INITIALIZATION AND START UP,

001306

TYPE
KMCM
48:
cMP
BR
ERRPC:
1
BYTE
SAVP(
CONTAB: 2
.BYTE
XLOC
BYTE
DMCSR
DEVTAB: .BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
.EVEN
xLoc:
0
AUDONE: TST
BNE
MOV
MOV
BR
1%:
MOV
Mov
BIT
BEQ
TYPE
CLR
HALT
cMP
BLOS
TYPE
HALT
8R
2%:
MOV
MOV
HALT
3%:

4%:

MoV
MOV
Mov
CLR
CMP
CMP

BNE

(SP)+,(SP)+
oK

sADJUST STACK
;BR TO GET OUT

6.2
6.4
6,2
7
17
7
7
7
7
7
7
7

:DJ
;DH
;DQ
;DU
H
;LK
s DMC
N4
sKMC

RS
1%
#-1,R5
#DM_.MAP RO
AUSTRT
(SP)+,a#6
(SP) +, 44
#SW03,STRTSW
3%
JMNEW
RO

;DMC?
;BR IF KMC AND ALL DONE
JSET RS TO =1 (kMC)
;RESET RO TO START OF TABLE
:GO DO KMC'S
sRESTORE LOC 6
.RESTORE LOC 4
sSELECT SPECIFIC DEVICES??
;BR_IF NO.
;TYPE THE MESSAGE.
;ZERQ DATA LIGHTS
SWAIT FOR USER TO TELL WHAT DEVICES TJ RUN
;1S THE NUMBER VALID?
;BR IF NUMBER IS OK,
JTELL USER OF INVALID NUMBER.
:STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.
;GET NEW DEVICE PATTERN
sSHOW THE USER WHAT HE SELECTED.
;CONTINUE DYNAMIC SWITCHES.

aSWR, SAVACT
2%
.MERR3
.=2
ASWR,DMACTV
DMACTV,RO
#300,R0
#302,R1
R1,(RO)+
(R1)+
(RO)+,(R1)+
#1000,R0

;PREPARE TO CLEAR THE FLOATING
;VECTOR AREA. 300-776
:START PUTTING ‘PC+2 - HALT''
;IN VECTOR AREA.
;POP POINTERS
;ALL DONE??

JBR 1F NO.

;TEST START AND RESTART
003152

003156

012706

013746

001200

000006

S,
.BEGIN: MOV

MoV

#_TACK,SP

a6, - (SP)

JSET UP STACK

JSAVE LOC ¢

SEQ 0026

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

162700
010037
012637
01263;

007776
001304
000004
000006

00
003236
003242

162700
162700

000004
007776
030000

003254

012700
000
012737
032737

037400

8%e

003212
003216
003222
003226

003262
003270

000004
6%:

157776

000340
000004

7%:

2%:

104402
000177

(@]

—

-—

n
~
W
~

003354
003360

005755
175630

aN6,-(SP)
RO
428, a4
a6
+
(RO)
#;57776.R0
6
#7776 ,R0
RO,MEML
IM

(SP) +,a#4
(SP)+,a#6
108
(SP)+,(SP)+
#4 RO

#7776 ,R0O

177776

001236

10%:

003612
003614
001214
001236

#30000,R0
7%
#37400,R0
7$
#340,PS

:glré,srnrsu
MLOCK

003512
003614

b
b cd cmad
)
) cd cd

OO NONN
NN = O

D
d
d e
d
)
d

NNWWNIN
N NN N

—_—d

MOV

d
D md
D and

000006

003234

PAGE 2 7

PROGRAM INITIALIZATION AND START UP.

000004

S8
KOROR
SRR

013746
005000
012737
005037

g
5

003162
003166
003170
003176

)

D e

SISt 333

1286
1287
1288
1%88

12:45

#NOP TTST

;gOP,TTST+2

sSAVE LOC 4

sSTART AT 0

sSET UP FOR TIME OUT
sTO _AUTOSIZE MEMORY

s CHECK ADDRESS IN RO
s1S IT AT LEAST 28K

;BR BR IF NO

:SAVE 2K FOR MONITORS
;STORE MEMORY LIMIT
sRESTORE LOC 4
sRESTORE LOC 6
s CONT INUE
sADJUST STACK
;GET LAST GOOD ADDRESS
2SAVE 2K FOR MONITORS
SIS IT 8K?
:BR IF NO
;IF 8K DON'T SAVE 2K
sLOCK OUT INTERRUPTS
sCHECK FOR LOCK ON TEST
sBR IF NO LOCK DESIRED.
sTYPE LOCK SELECTED.
sADJUST SCOPE ROUTINE.
;SET UP TO LOCK
sCONTINUE ALONG.
sPREPARE NORMAL SCOPE ROUTINE
sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

1%:

BRW,TTST

4$:

g§UO1,STRTSU

;?£A§gS¢TNafYCLE” FIND WHICH DEVICE
SELECTED?

5%:

MR
aRE TURN

;TYPE R
;START TESTING

BRX,TTST+2

#CYCLE ,RETURN

SEQ 0027

;BR IfF YES

TO TEST

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

12:45
PAGE 28
END OF PASS ROUTINE

1319
1320
1321
1322

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

}%SE

;RESTART TEST

1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
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

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

1367
};gg

003572
003574

1365
1366

003566
003570

000005
005037
105037
005237
013777
104402
104402
104411
104402
104411
104402
104411
106402
104411
013700
013720
013720
005337
001017
112737
013737
013701
001406
000G05
004711
000240
000240
000240
000240
012737
000137
000001
006
001404
000001
004
001374
000001
006
001230
000001
006
001232

001234
001325
001230
001230
005733
006072
003546
006100
003554
006106
003562
006117
003570
001322
001230
001232
001314
000377
001310
000042

.EOP:

175570

001327
001314

$ENDAD
:

010060
010060

002
002

001214

1373
1374

RESET
CLR
CLRB
INC
MOV
TYPE
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
TYPE
CNVRT
MOV
MOV
MOV
DEC
BNE
MOovB
MoV
MOV
BEQ
RESFT

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
JMP
XCSR:
1
BYTE
DMCSR
XVEC:
1
BYTE
DMRVE(C
XPASS:
1
BYTE

XERR:

}%;?
1372

SEQ 0028

PASCNT
1

.BYTE
ERRCNT

LSTERR
ERRFLG
PASCNT
PASCNT ,aDISPLAY
MEPASS
.MCSRX
_XCSR
MVECX
_XVEC
MPASSX
,XPASS
~MERRX
XERR
MILK,RO
PASCNT, (RO) +
ERRCNT, (RO) +
SAVNUM
RESTRT
#377,QV.FLG
DMNUM, SAVNUM
a6l ,R1
RESTRT

sMAKE THE
WORLD CLEAN AGAIN.
sCLEAR LAST ERROR PC
;CLEAR ERROR FLAG
;UPDATE PASS COUNT
;DISPLAY PASS COUNT
;TYPE END PASS
sTYPE (SR
sSHOW IT
;TYPE VECTOR
SSHOW IT
;s TYPE PASSES
sSHOW IT
s TYPE ERAORS
cSHOW IT
;GET POINTER TO PASS COUNT
sSTORE PASS COUNT FOR THIS DMC11
;STORE ERROR COUNT FOR THIS DM(C11
JARE ALL DEVICES TESTED?
:BR IF NO.
sSET THE QUICK VERIFY FLAG.
JRESTORE THE COUNT
JCHECK FOR ACT=11 OR DDP
sIF NOT, CONTINUE TESTING
;STOP THE SHOW=-CLEAR THE WORLD

PC.(R1)

#CYCLE ,RETURN
CYCLE

6,2
4,2

6,2
6,c

:SCOPE LOOP AND INTERATION HANDLER
003576

003602

004737
010016

007606

.SCOPE:

JSR

MOV

P¢.CKSWR

RO, (SP)

sCKECK FOR SOFT SWR
JSAVE RO ON THE

STACK

CZDME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P11
11-SEP-78
112:38

040000

175370

TTST:

003734

003734
004000

175342

;

001327

001224
001224
001325
001224
001220
000020
001216

2222
SR
R

R R gEgEgEeEeEy

032777
001407
000437
005737

001222
2%:

001222
001214

001404
175264

D
)
D e
D
D
D e
d
D

) e
d
d
- —

W NN

1375
1376
1377
1378
1379

12:45
PAGE 29
GENERAL UTILITIES

1398

BIT
BEQ
BR
TST
BEQ
CLR
BR
BIT
BNE

1STB
BEQ
INC
cMP
BLOS

3%:

(TYPEOUT, ERROR, SCOPE, ET(C)

#BIT14,3SWR
1%

DONE

DONE
2$
#SW11,aSWR

QV.FLG

LPCNT
, ICOUNT
LPCNT
3%

ERRFLG
LPCNT
LOCK
#20, 1COUNT
NEXT ,RETURN
(sP) .RO

DMCSR,R1

aRETURN

BRW:
BRX:
DONE
:

SEQ 0029

;'LOOP ON THIS TEST'TM
(IF LOCK SWO1=1; THIS LOC =240)
:BR IF NO.
(IF LOCK SWO1=1; THIS LOC =240)
3%
O
;GOT
SET?
DONE
TKCSR
JWAS
;BR IF NO (LOCKED ON TEST)
JYES, CLEAR FLAG
;GO TO NEXT TEST
;DELETE ITERATION?
:BR IF YES

(QUICK PASS)

JHAVE PASSES BEECOMPLETED?
:BR IF QUICK PASS.

cUPDATE ITERATION COUNTER

:ARE ALL

ITERATIONS DONE??

;PREPARE

FOR NEW TEST

:BR_IF NOT YET

:START ICOUNTER AT O

JRESET ITERATIONS
sGET NEXT TEST
;POP RO OFF OF THE STACK

JFAKE AN 'RTI"’
;R1 CONTAINS BASE DMC ADDRESS
.GO DO THE TEST

CHECK FOR FREEZE ON CURRENT DATA

004737
032777
001405
005737
001402
013716
000002

007606
001000

175232

.SCOP1:

001220
001220

1%:

JSR
BIT
BEQ

TST
BEQ
MOV
RT]

PC, CKSWR

#SW09,asSwWR
1$
LOCK
1%
LOCK, (SP)

;CHECK FOR SOFT SWR

;1S SWO9=1(SET)?
;BR IF NOT SET.

;GOTO THE ADDRESS IN LOCK.
.60 BACK.

sTELETYPE OUTPUT ROUTINE

010546
017605
062766

005737

001004
032777
001012
105715
100002
104402
105777
100375

112577
001357
012605

.TYPE:

000002
000002
010016

000002

010000

175164

4%:

1%:

005672
175154

e ¥

175150

MOV
MOV

RS,-(SP)

@2 (SP) .RS

#2,2(SP)
SWFLG
1%
#SW12,aSWR

(R3)

2%
MCRLF

aTPCSR

(RS)+,aTPDBR
3%

(SP)+ RS

;SAVE RS ON THE STACK.

;GET ADDRESS OF MESSAGE.
:POP _OVER ADDRESS.
sSOFT SWR MESSAGE?
sIF YES TYPE

IT OUT REGARDLFSS OF

JINHIBIT ALL PRINT 0UT??

Sw1?2

;BR IF NO PRINT OUT WANTED (Sw12=1)
;IS NUMBER MINUS? (MSB=1(BIT7))
:BR_IF NUMBER IS PLUS
;TYPE A CR/LF!
;TTY READY?

:BR IF NO.
;PRINT CURRENT CHAR.
;1F NOT ZERO KEEP PRINTING.
JEND OF OUTPUT.

RESTORE RS

11-SEP-78
CZOME
MACY11 30A(1052)
11-SEP-78 12:38
CZDMEC PN

004046

E
(TYPEOUT,

NIZRRBRNEE
R ARG SR S333R%8

000004
000002

006072
000004

.INSTR: MOV
MOV
MOV
ADD

.INST1:
MSG:

175074

1%:

175070
000200
000015

175044

005666

TYPE

# INBUF
R4

TSTR

aTKCSR

MOV
BPL

BICB
CMPB

2%:
175046

.INSTE:

R3,-(SP)

MOV

MOVB

175054

BEQ

TSTR
BPL
MOV

DEC
BNE
MOV
MOV

SCOPE, ET()

TYPE

010546
010446
016605
012537
012537
012537
112537
112537

.PARAM:

QTkDBR, (R4)

#200, (R4)

(R4)+ 415

INSTRS

g;PCSR
aTKDBR,aTPDBR

R3
1%
(SP)+ ,R4
(SP)+,R3
,MQM

R3,-(SP)

E?Y

(SP)+,R3

000004
004364

0000¢7

000060
000015

MOV

MOV
MOV

;SAVE R3 ON STACK

sSAVE R4 ON STA(K

#7,R3

MOV

MOV
BR
INSTRZ: MOV

000060

1486

ERROR,

R4 ,=(SP)
@4 (SP), .MSG
#2,4(SF)

R&4,~(SP)
<INST1
(SP) +,R4

sCONVERT ASCII

16471
1472

000002

RRERRRRERRRRRRRRERRR 28338888

1431

12:45
PAGE 30
GENERAL UTILITIES

JRESTORE R4

JRESTORE R3

STRING TO OCTAL

RS,-(SP)

R4 ,-(SP)
4(SP) ,R5

MOV
MOV
MOV

MOVB
MOVB
MOV

(R5)+,LOLIM
(RS)+ HILIM
(R5)+,DEVADR
(R5)+,L0BITS
(R5)
+ ,ADRCNT
gg,é(SP)

MOV
(MPH
BEQ
CMPB
BLT
CMP8
BGT
BI(B
B1S8
(MPS
BEQ

# INBUF R4
#15, (R4)
PARERR
(Rs) ,#60
PARERR
(R&) ,R67
PARERR
#60, (R4)
(R&)+ RS
#' S, (RG)
LIMITS

SEQ 0030

CJDME
MACY11 30A(1052)
11-SEP-78
CZDMEC. P11
11-SEP-78 12:38
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497

F
3
12:45
PAGE 31
GENERAL UTILITIES (TYPEOUT, ERROR,

PARERR:

ASL
ASL
ASL
BR

RS
RS
RS
1%

PARAM1

INSTER

STEST

020537

004366

020537

004364

101373
103770
133705

001365

LIMITS:

TO SEE

CMP

BHI

cMP

004372

ET(C)

IS WITHIN LIMITS

R5,HILIM
PARERR

RS,LOLIM

BLO

PARERR

BNE

PARERR

BITB

NUMBER

SCOPE,

LOBITS,RS

N NNV

013704
010524
062705
105337
001372
012604
012605
000002

004370

1%:

000002
004373

(OLIM:

NN NN

oo\:o\nbwm—aoooo\:o«mbwm—aosg

HILIM:

MOV
MOV
ADD
DECB
BNE
MOV
MOV
RT]

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

DEVADR: 0
LORITS: O

ADRCNT=LOBITS+1

N VNN
VLIV LV LV LV, [V, LU, LV, 0, LV, [V, ] VI VTN

NOWN IS NN
-

J ¥ oWXV
N—=O0

(VLW LV ALV LV AL

S
g
U
G
G
U S
i QU U L W
T W G
G G
Y

;STORE NUMBER AT SPECIFIED ADDRESS

;SAVE P(

016637

000004

001276

.5AV0S5: MoV

TEST

THAT FAILED AND RO-RS

4(SP},SAVPC

;SAVE R7 (PC)

s SAVE RO-R5

010537
010437
010337
010237
010137
010037

001272
001270
001266
001264
001262
001260

Sv05:

MoV

RS, SAVRS

:SAVE RS

MOV
MOV
MOV
MOV

R3,SAVR3
R2,SAVR?
R1,SAVRI
RC, SAVRO

;SAVE
:SAVE
;SAVE
;SAVE

MOV

RT!

R4, SAVR4

s SAVE R4

R3
R2
Rl
RO

JLEAVE.

JRESTORE RU-RS
004434

001260

.RESO5: MOV

MOV
MOV

MOv

004460

MOV
MOv

SAVRO,R0O

JRESTORE RO

SAVR1,R1
SAVRZ ,R2

JRESTORE R1
JRESTORE RZ

SALR4 R4
SAVRS RS

JRESTORE
JRESTORE

SAVR3 R3

JRESTORE R3
R4
R>

SEQ 0031

CZDME
MACY11 30A(1052)
11-SEP-78
CZOMEC P11
11-SEP-78 12:38
1543
1544

004464

12:45
PAGE 32
GENERAL UTILITIES

000002

(TYPEOUT, ERROR,

RTI

SCOPE, ET(C)

sLEAVE

; CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPPIN'ER
¢ amanan

N ole RaNTe JV, POV,
N]

NNSEEEE FRELESL
~
W LASE_T@lVele

d
d
D
D
D
D
D
)
)
b e
] e
d —od e
b
d
d
) ed cnd
—

wvivwvivaiuvivionuawn
v

005672

000012
000002
004710
004712
004713
004714
000003
177400
004714
004712
001416
177770
000060

.CONVR:

TYPE

CCNVRT: MOV
MOV
MOV
MOV
MOV

MOV

000012
1$:

004712

004714

ADD
MOV

MOVB

MOVB
MOV

cMPB
BNE
2%:
3$:

BIC

MOV
MOVB
MOV
MOV

BIC

ADD
MOVB
cLC

004712

004713

004713
007544
004710

6%:

(R1)+,CHRCNT

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

#3,CHRCNT
2%
#177400,BINWRD
BINWRD
R4
CHRCNT.RS
#TEMP RO
R4 ,R3

#177770.R3
#060,R3
R3.(RO)+

ROR

MOV
MOvVB
DECB
BNE

#MDATA ,R3
-(RO),(R3)+
CHRCNT
4%

BEQ
MOVB
DECB
BNE
CLRB

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

DEC

QQDCNT

MOV
MOV
MOV
MOV
MOV

(SF)+,RS
(SP)
+ ,R4
(SP)+ ,R3
(SP) +,R1
(SP)+,R0O

TSTB

5%:

#2,12(SP)
(R1)+,WRDCNT

BNE
6%:

312(SP) R

ROR

DEC

007544

.MCRLF

Ré

cLC

RO,~(SP)
R1.=(SP)
R3.-(5P)
R .= (SP)
RS .= (SP)

ROR

CLC

1574

TYPE

WwRD(NT: 0
CHR(NT: Q

SPACNT

.MDATA
!

SEQ 0032

CZOME

MACY11

CZOMEC.P11

1599
1603

30A(1052)

12:45
PAGE 33
GENERAL UTILITIES

004713
000000

#1
SPACNT=CHRCNT
BINWRD: 0O

11-SEP-78
11-SEP-78 12:38

004714

H
(TY

WT, ERROR, SCOPE, ETC)

;TRAP CISPATCH SERVICE

SARGUMENT OF TRAP IS EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER

d cd
e
- —

1620

.TRPSR:

000002
000000

TRPOK :

177001

~
~
n

8
b
i

g
g
i
S
Y
— e

0 0O NS WN—=O

o} oo
O N

;TO SELECTED SUBROUTINE

001330

000000

(SP) ,-(SP)

82,(SP)
a(SP)
, (SP)

(SP)
#177001, (SP)
#.TRPTAB, (SP)
a{(SP), (SP)
A(SP)+

:GET TRP

JMULTIPLY TRAP ARG BY 2
cCLEAR UNMANTED BITS
;POINTER TO SUBROUTINE ADDRESS
s SUBROUTINE ADDRESS
:GO TO SUBROUTINE

;ERROR HANDLER
004750

004737

007606
010000

174220

JHLT:

174220

000207
020000

174212
176174

XBX :

001234

001234
001325

1%:

PC,CKSWR

#SW12,8SWR
XBX
8TPCSR
XBX
#207,aTPDBR

#Sw1$, aswRr

HALTS
(SP) ,LSTERR
13
(SP) ,LSTERR
ERRF(
G

(SP) .RS

#2 RS

000002

R4
(RS)

(RS) R4

177001

#177001.R4

031704
005172
005204
005216
001325

# .ERRTAB
R4

005216
1648
1649
1650
1651
1652
1653
1654

cGET PC CF RETURN
;=PC OF TRAP

005106
005112
005116
005122
005124
005130
005134

104402
104402
005737
001402
104402
104402
1044M

005672
007672
V01229
006142
006130
005330

TYPMSG:

(R&)
+ ,ERRMSG
(R4)+.DATAHD
(R4) ,DATABP
ERRF LG
TYPMSG
DATABP
TYFDAT
JMCRLF

;CHECK FOR SOFT SWR
;BELL ON ERROR?
;BR IF NO BELL

;TTY READY.

;DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT THE TTY,
;CELETE ERROR PRINT QUT?
;BR IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
;BR IF YES
-RECORD BEING HERE
:PREPARE HEADER

sSAVE ALL PROC REGISTERS
;GET THE PC OF ERROR
cGET ADDRESS OF TRAP CALL
cGET HLT INSTRUCTION
JMULT BY TWO
;DOUBLE IT7
JMULT AGAIN
;CLEAR JUNK
;GET POINTER
:GET ERROR MESSAGE
;GET DATA HEADRER
;GET DATA TABLE
;TYPE HEADREER

;BR IF YES
;DOES DATA TABLE uX]ST?
;RR IF YES.

"MCRLF

LOCk
1$
N

JMASTEK
J'TSTN
“XTSTN

JSHOW 17

SEQ 0033

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

1655
1656

1657

1658
1659

1660
1661

005140
005144

005150

005154
005162

005166
005170

104402
104411

104402

112737
005737
001402

006217
005322
005672
1772777

00517¢

000000
005737
001402
104402

005204

1668
1669
1670
1671
1672
1673

005206
005212
005214
005216
005220
005222

005737
001402
104410
000000
104407
022737

00521¢

000000

(TYPEOUT, ERROR,

MCRLF

:GIVE A CR/LF

ERRMSG

;1S

#-1,ERRFLG

BEQ

WRKO.FM

:TYPE

DATABP

;DATA TABLE?

RESREG:
HALTS:

173706

001216
001200
001404

001214

173674

EXITER:

2%:
ERTARO:

002

XTSTN:

002

TYPDAT

:BR IF NO
;TYPE

RESREG

DATA HEADER

;BR IF NO.

- SHOW

0
RESOS
ggg

:szDAD.a#42

:
DATA TABLE
JRESTORE PROC REGISTERS
;IF ACT=11 AUTOMATIC MODE, HALT.!

TST

aSWR

JHALT ON ERROR?

8PL

PUSHRO

EXITER

MOV

2(SP) ,RO

POPRO
INC

ERRCNT

HALT

002000

ERROR ME SSAGE

DATAHD: 0
TYPDAT
: TST
8EQ

1%:

173716

;DATA HEADER?

173744

001232
000400

THERE AN ERROR MESSAGE?

;BR _IF NO.

DATAHD

DATARP:

000002

:NO MORE HEADER UNLESS NO DATA TABLE.

TST

CONVRTY

SEQ 0034

JSHOW IT

MOVB

BEQ
TYPE

0uv0042

ET()

TYPE

_ERTABO

ERRMSG: 0

003522

SCOPE,

;TYPE PC.

TST

WRKO.FM:

+MERRP(

TYPE

005172
005174
005174
005200
005202

005204

001325

TYPE

CNVRT

104402

662
663
664
665
666

667

12:45
PAGE 34
GENERAL UTILITIES

8IT
BNE
BIT
BEG

JBR IF NO HALT ON ERROR

;SAVE RO

s SHOW ERROR PC
JHALT

#5W08,aSWR
1%
#SW10,aSwR
2%

MOV
MOV
MOV
JMP
?TI

NEXT ,RETURN
#STACK, SP
DMCSR,R1
aRE TURN

.BYTE

6,2

BYTE

3,2

?AVPC

TSTNO

IN DATA LIGHTS

:GET RO
sUPDATE ERROR COUNT

;GOTQ TOP OF TEST?
;JBR IF YES
;GOTO NE (T TEST?
:BR IF NO

;SET FOR NEXT TEST
JRESET SP
JSET UP R1
;GOTO SPECIFIED TEST
JRETURN

SENTER HERE ON POWER FAILURE

005350

706
1707
1708
1709
1710

000024

.PFA]L:

MOV
SQLT

#RESTART 24

JPROCESSOR WILL

005350
005350
005356

012737
012706

005336
001200

000024

JSET UP FOR POWER UP TRAP
JHALT ON POWER DOWN NORMAL

TRAP HERE

WHEN POWER

IS RESTORED

RESTAR:

MOV
MOv

#."FAIL,24
#STACK,SP

JSET UP FOR POWER FAILURE
JRESET

THE

STA(CK POINTER

C.DME

MACY11

005362
005366

013701

12:45
PAGE 35
GENERAL UTILITIES

001404
001416
001416

MOV
CLR
INC

005675
005430
001325
001234

TYPE
CNVRT
CLRB
CLR

BNE

PFTAB:

BYTE

002

173746

& RSS

P2k
o 3

000020

751

759

000020

005550

005604

DMCSR,R1
TEMP
TEMP
.4

152777
142777

152777

000100
000300

173712
173704

000002
173676
000002
000100

173674

JMP

aRETURN

152777
142777
000002

000003
000007

173644
173636

013637
062746
152777
027777

001416
000002
000020
173610
000020
001416

013677
062746
032777
001401
000000

142777

005337
001364
000002
002001
013637
062746

1%:

MOV

#20,aDMPO4

001416
000002

. TIMER:

INSTRUCTION,

ROMCLK PC=5304

ROMCLK

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

8ISR
8ICR

B8ISR
MOV
ADD
BIT

BEQ
HALT

8I1S8
8l1(R

MOV
ADD
8IS8
(MP
BICB
DE(

BNE

3s:

JNEXT WORD

;POKE CLOCK DELAY BIT

RTi

1%:

;START DOING THAT TEST AGAIN.

121111

.DATACLK:

173616
173696
173602

.CLEAR MAINT BITS
sSTART CLEAN UP OF DEVICE

TSTNO

RT1

173452

JTELL WHAT TEST TO RETURN TO.

3,2

8EQ

:
ROM(CLK

;RESTORE R1
JREADY FOR TIMMER
sPLUS ONE TO THE TIMER!
;BR IF MORE TO GO

CLR

BIT

MSTCLR:

SEQ 0035

SCOPE, ETC)

; START, CLEAN

.PFTAB

1%174,BDMP04

RT]

000602
005504

(TYPEOUT, ERROR,

ERRFLG
LSTERR
(R1)

121224

173730

;. TYPE THE MESSAGE

ROMCLK

1%:

g
4

N=2O

.DELAY:

MPFAIL

MSTCLR

173564

38 258

=
NN
000 NN N

11-SEP-78
11-SEP-78 12:38

000N

~N -~

NENIAN v S RER BW\JO*U\J\WN—‘
NNNNNNB

S-S

S+

CZDMEC.P11

30A(1052)

RT1]

#IT6,aDMCSRH
;SET MASTER CLEAR
#IT6!BIT7 ,aDMCSRH
;CLEAR MASTER CLEAR AND RUN
<RETURN

#IT71,aDMCSRH
a(SP)+ aDMPO6

¥#2,-(SP)

#5W06,aSWR
1%

;SET ROM]

;LOAD INSTRUCTION [N SEL6

sADJUST STA(CK

JHALT IF SW06 =1
;BR IF SW06 =0

;HALT BEFORE CLOCKING INSTRUCTION

#IT1!BIT0, @DMCSRH ;CLOCK INSTRUCTION
#B]T2!B] T1!BIT0,3DMCSRH
;CLEAR ROMO, RQMI, STEP

a(SP)+ TEMP

#2,~(SP)
#M]T4,DMCSRH
3DMCSR,aDMCSR

#MIT4L ,8DMCSRH

TEIMP

PUT TICK COUNT IN TEMP
cADJUST STACK
JSET STEP LU
;WASTE

TIME

;CLEAR STEP LU

JDEC TICK COUNT

;BR [F NOT DONE
:RETURN

8.SP)+ TEMP

JMOVE COUNT

BLKW 1

MOV
ADD

JPORT4_1BUS*11
;1S CLOCK BIT SET?
:BR IF NO

#2,-(SP)

JADJUST

TO TEMP

STACK

CZDME
P??CY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC

1$:

104414

000002

2%:

104414

01416

000005
006
001246

KMCM:
SPEED:

.EVEN

XSTATQ:

s NG NI NI NI NI NI NI NI NI N PO NS NI NI N NN

LASC

D
G
S
DD S
SO

s b

A Ny WD

SO S

LASC
+ASC
.ASC
.ASC
.ASC
.ASC

NS
gy Vg S
R Sy Sy W

nunnnunom

alninlal

.ASC

“ASC

aM:
CONN:
NOA(CT:
SWMES:
SWMEST:
CONERR:
CNERR:
DM(CM:

LASC

NUM:
CSR:
VEC:
PR]IO:
CRAM:
MODU:
LINE:

KLU

MCSRX:
MVECX:
MPASSX:
MERRX:
MTSTN:
HASTEK:

HERRPC:
XHEAD:

a2 lalainlatlalalatlalnlalalalnle)

MLOCK:

NN NN N N NN N N N NN N N N N

042377

MTSTPC:

A) —

024503

HERRZ

>>>>

051440

045503
000040
000040
051505
051117

HEPASS:

nnnnm

052105

042504
052523
052123

LASC
+ASC

nninnnnmon

047040

020122
020104

MQM:
MCRLF
:
MPFAIL:

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

(TYPEOUT, ERROR,

BYTE

TEMPI

SCOPE., ETC)

SEQ 0036

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#2,3DMPO4
1%

PORT4 IBUS* REG11

;1S PGM CLOCK BIT CLEAR?
BR IF YES

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _IBUS* REG11

#2 ,aDMPO4
2%

;1S PGM CLOCK BIT SET?
:BR IF YES

;BR IF NOT DONE

TEMP

RTI

RROSRRRRR
Vv S ety N v

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

BIT
BNE
DEC
BNE

(2)

173536

ROMCLK

021364

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

000002

BIT
BEQ

021364
032777
001372
005337
001361
000002

021364

173552

ROMCLK

b 3. 2. 0. 0. 0.4

021364
032777
001772

N—“QN?NNN
OWVININS
S

1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

12:45
PAGE 36
GENERAL UTILITIES

;DEC

COUNT

;RETURN

<15><12>
<377>/PWR FAILED. RESTART AT
<377>/END PASS CZDME
/
<377>/R/
<377>/NO DEVICES PRESENT./
<377>/INSUFF ICIENT DATA!/

TEST /

<377>/TEST PC~/
<377>/LOCK ON SELECTED TEST/

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
57557 NO: /
)

<377>/SET SWITCH REG TO DMC11°'S DESIRED ACTIVE./
<212>/
MAP OF DM(C11 STATUS/
<377>/
———/
212>/
PC
CSR
STAT1
STAT?
STAT3/
377>/ ==mmme ccmcce
cceencs
cemmes
ceceee /
<377>/HOW MANY DMC11°'S TO BE TESTED?/
<377>/CSR ADDRESS?/
<377>/VECTOR ADDRESS?/
<377>/BR PRIORITY LEVEL? (4,5.6, 7)7/
<377>/1F DMC HAS CRAM (M8204) TYPE V } IF CROM (M8200) TYPE 'WN'' 2/
<377>/WHICH LINE UNIT? IF NONE TYPE ‘W', IF M8201 TYPE ‘11'', IF M8202 TYP
<377>/SWITCH: PACAHT (DDCMP LINE #)2/
<377>/SW17LH PACAH2 (BM873 BOOT ADD)?/
<377>/1S THE LOOP BACK CONNECTOR ON?/
<377>/NQ DEVICES ARE SELECTED/
<377><12>/SWR= /
/NEW? /
<377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS
PC: /

<377>/EXPECTED

FOUND/

/ (DMC) /
/ (KMC) /
<377>/DMC11-AR(REMOTF
,LOW SPEED)

6.2

OR DMC11-AL (LOCAL ,HIGH SPEED)

TYPE 'R'’

CIDME
MACY11 30A(1052)
11-SEP-~78
17-SEP-78 12:38
CZDMEC.P1T
1784
1785

1786

1787

001254
006
001256

PAGE 37

GENERAL UTILITIES

003

.BYTE
TEMP?2

003

TEMP3

003
002
.EVEN

.BYTE
TEMP4
.BYTE
TEMPS

(TYPEOUT, ERROR,

SCOPE, ETC)

6.3

6.3
6.3

6.2

It
R R R R282

1788
1789
1790

006
001250
006
001252
006

12:45

000000
007544
000000
007606

INBUF:
-.+40

:
MDATA
~-.+40

0
0

N QU

QU WU

;BUFFERS FOR INPUT-OQUTPUT

JROUTINE USED

TO CHANGE

SOF TWARE

SWIT(CH

022737
001077
105777

000176

012737

177777
000007

003734
171346

000207

171336

100003

001202

CKSWR:

171362

177777

007205

1823

CKSWRS

#-1,DONE
:7.8TKDBR

$
#207 ,aTKDBR

010016

CKSWR1:

CKSWRZ:

CKSWRS

RZ.=(SP)
R3,-(SP)

R4, ~(SP)
#-1,SWFLG

#-1,R4

.SWMES

;1S THE SOFT SWR BEING USED?
:BR IF NO
;IS DONE SET?
;GO ON IF NOT SET
;1F DONE SET, SET FLAG

;WAS CTRL G TYPED? (7 BIT ASCII)
;BR IF YES
JWAS CTRL G TYPED? (8 BIT ASCII)
J

;STORE R2

;STORE R3
;STORE Ré

JSET SOFT TYPE OUT FLAG
;CLEAR NEW SWR CONTENTS
;SET FLAG TO ALL ONES
;TYPE '‘SWR=*
TVPE OUT PRESENT CONTENTS

,SWMES]

OF SOFT SUITCH REGISTER
JTYPE "NEW? °°

#15,R3

‘WAS

IT A CR?

000025

#12,R3
48
#25,R3

:WAS

IT CTRL U?

000007

#7 ,R3

007215
010020
000015

000012

177770

050302

#SWREG, SWR

aTKCSR

1%:

RTR

— o

b ed —d

U
G
i QU
U
T

=OVBNINSWN=O

00 0000 00 00 00 00 0o 00 00

Qe G

P G

JREGISTER USING THE CONSOLE TERMINAL

CKSWR3:
CKSWRS:

PC,

INCHAR

CKSWR1

CKSWR4
R4
g177770,R3

GET RE SPONSE

:BR IF YES
:WAS IT A LF?
‘BR IF YES

JBR IF YES(START OVER)
;1F CNTL G GET NEXT CHAR

;1T MUST BE A DIGIT SO CLR FLAG

;ONLY 0-7 ARE LEGAL SO MASK OFF BITS

JSHIFT R2 3 TIMES

JADD LAST DIGIT

SEQ 0037

010016

000000

010020
010024
010026
010032
010036
010040

010050

105777
100375
017703
105777
100375
010377
042703
000207

010052

000001

010056

000176

000752
012766
005704
001002
010277
005037
012604
012603
012602
000207

——h

007762
007764
007772
007774
007776
010002
010006
010010
010012
010014

=000~

— el e

FREER

d id e e

0000 00

D nd

d d D

) D

D e

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 1 2:38

006

002002
171200
010016

12:45
PAGE 38
GENERAL UTILITIES

000006

4%
5%:

6$%:

INCHAR:

171154
171152

171146

000200

002

CKSWR4

sGET NEXT CHARACTER

;IF NOT DON'T CHANGE SOFT SWR

#.START ,6(SP)
R4

MOV

R2,3SWR

BNE

CLR

SWFLG

(SP)+ R4
(SP)+ R3
(SP)+ ,R2
PC

O
TSTB

aTKCSR

TSTB

aTPCSR

BPL
MOV

-4
a@TKDBR,R3

BPL
MOV
8IC

.~4
R3,aTPDBR
#IT7,R3

1
BYTE

6,2

RTS

SOFTSW:

(TYPEOUT, ERROR, SCOPE, ETC)

MOV
TST

MOV
MOV
MOV
CKSWRS: RTS
SWFLG:

171160

B8R

;LF WAS TYPED SO GO TO START
;1S FLAG CLEAR?

JIF YES THEN WRITE NEW CONTENTS TO SOFT SWR

;CLEAR TYPEOUT FLAG

;RESTORE R4
JRESTORE R3
JRESTORE RZ2
JRETURN

SEQ 0038

12:45
PAGE 39
GENERAL UTILITIES

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.PYT
11-SEP-78 12:38

(TYPEOUT, ERROR, SCOPE, ET(C)

SEQ 0039

;ROUTINE USED TO '‘CYCLE'' THROUGH UP TO 16 DMC11'S
;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
JAND RUNS THE SPECIFIED DMC11°'S.
THIS ROUTINE *MUST«
;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE

;SETUP NECESSARY.
001306

TST

BNE

001316
001316

TR
LR EEREE
s

007154

TYPE
HALT
B8R

CLC

001322

D e

001320
001320

) e

)

001320
001322
001306

d
D e

010344
010352
010354
010354

032737
001450

005737

88 FRR RORNSSKERR

010306
010314
010320
010326
010332
010340

—

OV NOANEBWN=O

—_—d e

D e

O pelol ool el ol el ook o)
N —d d d e ) b ad d d —d

)

88888 888888

D e

)

001374

001406
001410
001412
001414

001376
001400

001402

001236

;ARE ANY DMC11°'S TO BE TESTED>

‘BR IF OK.

*STOP THE SHOW.
‘DISQUALIFY CONT. Sw.
:CLEAR PROC. CARRY BIT.

LNOACT

RUN
RUN

#4 MILK

#10, CREAM

*NO DMC11°'S SELECTED!'!

*UPDATE POINTER
:CATCH CARRY FROM RUN
“UPDATE POINTER

:UPDATE ADDRESS POINTER.

#DM_MAP+200
, CREAM

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

;KEEP GOING; NOT ALL TESTED FOR.

;RESET ADDRESS POINTER.
;RESET PASS COUNT POINTER
;1S THIS ONE ACTIVE?

;BR _IF NO

(RO) +,DMCSR
(RO) , DMRVE
C

*LOAD SYSTEM CTRL.
*LOAD VECTOR

CREAM,RO
MILK,R?

001322

010270
010274
010302

ROL
ADC
ADD

DMACTV

#177000,DMRVEC

(RO)+,STAT1
(RO)+.STAT2
(RO)+.STAT3
(R)+.PASCNT
(R2)+.ERRCNT
#2 .RO
DMCSR, DMCSRH
DMC SRH
DMCSRH,
DMC TL
DMCTL
DMCTL
, DMPO4%
RO, DMPO4
DMPO4
, DMPO6
R).,DMPO6

DMRVEC ,DMRLVL

;GET ADDRESS PQINTER
;GET PASS COUNT POINTER

:CLEAR UNWANTED BITS

‘LOAD
:LOAD
*LOAD
:LOAD
:LOAD
*SAVE

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

JPTY LVL

RO,DMRLVL

DMTVEC(,DMTLVL

JTX LVL

DMRLVL ,DMTVE(
RO,DMTVEC

RO,DMTLVL

#SWO1,STRTSW

REG

JTX VEC
.

;15 TEST NO.

SELECTED

JBR IF NO

TMY 4

JRUNNING IN AUTO MODE?

CZOME

MACY11

CZOMEC.P11

1921

1923
1924

30A(1052)

11-SEP-78

11-SEP-78 12:38

010360

010362

010366

010370

001045

104402
104403

12:45
PAGE 40
GENERAL UTILITIES
BNE

005672

TYPE

INSTR

006130

(TYPEOUT, ERROR, SCOPE, ETC)

SEQ 0040

;BR IF YES

MCRLF

sGET TEST NO.

MTSTN
?ARAM

1000

010404

00
012700

012320

023760

001226

000002

010426

022760

001226

1939
1940

010436
070442

010037
104402

001214
005755

010446

010454

R
3

010456

R
N

—h

010464
010466
010472

005720
020027
001351
104402
000730
012737
013701
000177

000002

CMP

:CMP FIRST WORD TO 12737

000004

#TSTNO,4 (RO)

;BR IF NO
¢ 1S LAST WORD OK?

001236

RO,RETURN
MR
#SWO1,STRTSW

TSTNO,2(R0)
6%

6%:

TST

8%
(RO)+

RO,#TLAST+10

005666

JMaM
4%

001214

’$:

8%:

MOV

MIV

;DOES TSTNO MAT(H?

IF NO

“IT IS A LEGAL TEST SO DO IT
:POP RO

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

#TST1,RETURN

DMCSR,R1

aRETURN

;ROUTINE USED

sPREPARE RETURN ADDRESS

sR1 = BASE DMC11 ADDRESS
;GO START TESTING.

TO '‘AUTO SIZE'' THE DMC11

sCSR_AND VECTOR.

:NOTE:

—

(9, 1V, ]

o
LY

001700

005037
012702

001310
001500
001306
000001

001236

011252
000001

001256

prd

N
N

001500

prarguart

012702

010514

010554
010560
010566
010570

000137
012737
104403
006450

&~
o

\¥a

—

o
W
~

032737

010544

010530
010534

THE

CSR MAY BE ANY WHERE

(SRMAP: MOV
1%:
CLR
(MP
BNE
CLR
MOV
(LR
BIT
BNE
JMP
MOV

INSTR

NUM

IN THE FLOATING

ADDRESS RANGE (160000:164000)
AND THE VECTOR MAY BE ANY WHERE
FLOATING VECTOR RANGE (300:770)

AUTO.SIZE:
RESET

n
n
~

1973
1974
1975
1976

(PC)+, (RO)
(PC)+,a(PC)+

¢BR _IF NOT SAME

026034

012320
001404
170502

#TST1,RC

010502
010506

042737

000412

5%:

Volo

WA
—

FEXER KRR g
\l\lg

-~ OO0

b
—

b FE

No oNoN
ool ol e}

U
QT QU QN [
U G—

QAL RE RRRRRRR

NTo QW Py V] RN—=SO0m NOWVN SN —

1937

O
1

1931

TSTNO

BYTE
BYTE

IN THE

sINSURE A BUS INIT.
;LOAD MAP POINTER.
#DM.END ,R?

1$
DMNUM
#DI.MAP ,R?
DMACTV
#SWO0,STRTSW

. +6
’$
#1, TEMPS

;ZERO ENTIRE MAP
JALL DONE?
BR IF NO

sSET OCTAL NUMBER OF DMC11'S 10 0

;R2 POINTS TO DMC MAP
JCLEAR ACTIVE
JQUESTIONS?
;BR IF YES
;1F NO SKIP QUESTIONS

JSTART WITH 1

~
Po

(¥,]

)

11-SEP-78

11-SEP-78 12:38

010572
o

12:45
PAGE 41
GENERAL UTILITIES

104405

(TYPEOUT, ERROR, SCOPE, ETC)

?ARAM

16.

TEMP3

010622

005237

00
013737

010604

;

001252
005672

.BYTE
.BYTE
MOV

001310

TYPE

TEMP3
, DMNUM
RLF
+MC

WHICH
INC

TEMPS

CONVRT

001256

INSTR
CSR

;DMNUM = HOW MANY

sTYPE WHICH DMC IS BEING DONE
;TEMPS IS WHICH DMC

PARAM

160000
164000
TEMPS

010644

00
013722

.BYTE
.BYTE

001254

MOV

INSTR

0
TEMPS, (R2) +

;STORE CSR IN MAP

VE(

PARAM

;

gedes $28382888
8RR RERS N

CZOMEC.P11

30A(1052)

MACY11

CZOME

2005
2006

010666

013712

001254

2008
2009

010676
010702

004737
022703

012266
000024

2011

010710

022703

000027

2013

010716

012704

000011

2017

010730

042703

170777

10%:

006606
004737
022703

012266
000131

2028

010764

022703

000116

2032

010776

000763

1
TEMP4
, (R2)

;STORE VECTOR IN MAP

PC,INTTY

JASK WHAT BR LEVEL
;GET RESPONSE

;BR IF GREATER THAN 7
;R4 = NUMBER OF SHIFTS

.~4
¥17077/ ,R3
R3, (R2)

8%:

010752
010756

‘BR IF LESS THAN 4

50%:

2025
2026

776
TEMP4
.BYTE
.BYTE
MOV
TYPE

108

JSHIFT R3 LEFT
sDEC SHIFT COUNT
;BR IF NOT DONE

JBIC UNWANTED BITS
;PUT BR LEVEL IN STATUS MAP
s CONT INUE

JRESPONSE IS OUT OF LIMITS
; TRY AGAIN

PC,INTTY

;DOES DMC HAVE CRAM?
JGET REPLY

JYES

.ASK AGAIN

#15%1,R3
#116,R3
408

;NO
JNOT AYOR N

SEQ 0041

2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2056
2055
2056
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

011000
011002
011006
011010
011014
011016
011022
011024
011026
011030
011032

0711040
011042
011046
011050
011052
011056
011062
011064
011070
011072
011076
011100
011102
011104
011106
011112
011114
011116

011122
011124

011126
011132
011136
011140
011144
011146
011150
011152
011154
011160
011162
011166
011166
011170
011172
011174
011176
011200
011202

011203
011204
011210
011212
011214
011216

104402
007340
004737
022703
001414
022703
001403
104402
005666
000763
052762

000402
052712
104402
006704
004737
022703
001417
022703
001412
022703
001403
104402
005666
000760
052722
022222
000447
052712

104402
007114

004737
022703
001406
022703
001406
104402
005666
000763
052722
000402
042722

40%:

012266
000122
000114

000002
100000

41%:

:
9%
16%:

012266
000021

000022
000116

TYPE

SPEED
JSR
P
8EQ
(MP
BEQ

TYPE
MQM
BR
BIS
BR

BIS

TYPE

MODU
JSR
CMP
BEQ
CMP
BEQ
cMP
BEQ
TYPE
MQM
BR

010000
020000

040000

17%:
18%:

19%:

16%
#114,R3
418

40%
#BIT1,4(R2)
16%

#BIT15, (R2)
PC,INTTY

30%
#22,R3
31%
#116,R3
32%
16$

;TRY AGAIN

;SET BIT1 IN STAT3
- CONT INUE
JSET BIT 15 IF (RAM
:ASK WHICH LINE UNIT
GE], REPLY
:1.2"

..CN"

JIF NOT A 1,2 OR N TYPE 'TM*"*

;TRY AGIAN

JSET BIT 13 IN STAT2 IF MB202

JSR

PC,INTTY

;ASK 1F LOOP-BACK IS ON
JGET REPLY

TYPE
MQM

040000

INTTY

#B1T12,(R2)+
(R2)+,(R2)+
3 33
#1713, (R2)

cMP
BEQ
cMP
BEQ

000116

PC,

#122.R3

8IS
CMP
BR
8IS

TYPE
CONN

012266
000131

104403
007016
104405
000377
001254
000
001
113722
104403
007054
104405
(000000

000004

SCOPE, ET(C)

[%2]

2033
2034
2035
2036
2037
2038
<039
2040
2041
2042
2043

D 4
12:45
PAGE 42
GENERAL UTILITIES (TYPEOUT, ERROR,

m
|

CZDME
MACY11 30A(1052)
_11-SEP-78
CZOMEC.P1T
11-SEP-78 12:38

BR
BIS
BR
BIC

#151.R3

17%
#116,R3
18%

30%

#IT14,(R2)+
19%

#3IT14, (R2)+

JSET BIT 12 IN STATZ IF NO LU
;POP OVER STATZ2 AND STAT3

JIF NOT Y OR N TYPE """

:TRY AGAIN

JTURNAROUND IS CONNECTED

sNO TURNAROUND

INSTR
L INE

PARAM

0
377

TEMPS

001254

.BYTE
.BYTE

0
TEMP4, (R2)+

;STORE SWITCH PAC IN MAP

SEQ 0042

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2106
2105
2106
2107
2708
2109
2110

011220
011222
011224
011225
011226
011232
011234
011240
011242
011246
011252
011256
011264
011266
0112720
011272
011276
011302
011304
011310
011314
011322

000377
001254
000
001
113722
005722
005337
001402
000137
000137
012701
012737
0050°1
00571
00117
005061
005761
001165
012711
005061
012761
052711

2112
2113

011334
011336

001
052762

2111

2114

2115

011326

011344

011346

022761

000431

011370

022761

2125

011376
011400
011406
011410
011416

011420

000516

2126
2127
2128
2129
213C
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140

011436
011442
011450
011454
011462
011466
011474
011476
011502
011504
011512

005061
012761
052711
0712761
052711
122761
001003
052712
000436
032761
001403

2162

011520

000427

2141

2143
2144

€11422

001411
022761
001410
022761
001404

011430
011432

011514

011522
(011530

052762

010122
012711

338:

000004

000006
000006
002000
000004
125252
020000

000006

125252

000004

100000

000002

001400
002000

2119
2120
2121
2122
2123
2124

010612
011702
160000
011774

012711
012711

012761

011360
011364

001252

001000

011352

2117
2118

001254

012711

2116

12:45
PAGE 43
GENERAL UTILITIES

100430

000006

016472

000006

016461

000006

177777

000006

000002

0000C6

001000
000004
122113
000400
02126«
000400
000377

000076
000006
000094

010000

000002

052712

060000

032761
001023

000010

000004

00C004

(TYPEOUT,

¢4
ERROR,

SCOPE, ETC)

377
TEMPS
.BYTE
BYTE
MOVB
TST
DEC
BEQ
IMP
JMP
MOV
MOV
CLR
ST
BNE
CLR
ST
BNE
MOV
CLR
MOV
BIS

0
1
TEMPSG, (R2) +
(R2)+
TEMP3
348
128
138
#160000,R1
#6S , 344
(R1}
(R1)
3s
6(R1)
6(R1)
33
#IT10,(RY)
4(R1)
#125252.6(31)
MIT13, (R1)

JSTORE SWITCH PAC [N MAP
:POP OVER STAT3
*DEC DMC COUNT
*BR IF DONE
SJUMP IF NOT
- CONTINUE
;SET FOR FIRST ADDRESS TO BE TESTED
JSET FOR NON-EXISTANT DEVICE TIME oOUT
:CLEAR SELO
2IF DMC1T DMCSR S/B 0
JIF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DMC11
*CLEAR SEL6
“IF DMC11 THEN DMRIC S/B 0.
;BR IF NOT DMC11
;SET ROMO
:CLEAR SEL&
SWRITE THIS TO SEL6
SWRITE IT!

BNE
BIS

21%
#B1T15,2(R2)

SIF NO IT IS NOT CRAM
“SET BIT1S IF CRAM

21%:

B8R

#125252,4(R1)

228

WAS [T WRITTEN?

MOV

#8179, (R1)

MOV
MOV

#MBITOIBITE,
(R1) :CLOCK INSTRUCTION (MICRO PROC PC TO 0)
#MIT10, (R1)
‘SET ROMO

BEQ
MmP
BEQ
cTMP
BEQ

233
#016461,6(R1)
22%
#-1,6(R1)
2°%

MOV

CMP

B8R

;SET ROMI

#100430,6(R1)

*PUT INSTRUCTION IN SEL6

#016472,6(R1)

1S IT LOCAL CROM?

'NOT A DMC

;BR
cIS
*BR
*NO
:BR

IF YES
IT REMOTE CROM?
IF YES
CROM?
IF YES

23$:
BIS
#IT1,6(R2)
“SET BIT 1 IN STAT3
;AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS.
22%:
MGV
R1,(R2)+
;STORE CSR IN CORE TABLE.
15¢:
MOV
#iT9, (R1)
:CLEAR LINE UNIT LOOP
CLR
4(R1)
*CLEAR PORT4
MOV
#122113,6(R1)
:LOAD INSTRUCTION (CLR DTR)
BIS
#8118, (R1)
SCLOCK INSTRUCTION
MOV
#021264 ,6(R1)
:LOAD INSTRUCTION
IS
#8IT8. (R1)
2CLOCK INSTRUCTION
CMPR
#377.4(R1)
“IS IT ALL ONES?
BNE
.+10
*BR IF NO
8IS
#8;T12, (R?)
“IF YES, NO LINE UNIT, SET STATUS BIT
BR
208
BIT
MBIT1,4(R1)
;IS SWITCH A ONE?
BEQ
.+10
“BR IF M8201

BIS

#8IT13.81T14,
(R2) ;M8202 ASSUME CONNECTOR

BIT
BNE

#TT3,4(RT)
20%

B8R

208

: CONNECTOR ON)

*IS MRDY SET
JBR IF M8201 NO CONNECTOR (ON LINE)

SEQ 0043

CZOME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P1T

2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159

011532
011540
011546
011552
011560
011564
011572
011574
011600
011602
011610
011614
011620
011626
011632

2163
2164
2165

011646
011654
011656

2160
2161
2162

2166
2167
2168
2169
2170
2171
2172
2173

21764
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
218¢
2187
2188
2189

2190
2191

2192
2193
2194
2195
2196
2197
2198
2199
2200

012761
012761
052711
012761
052711
032761
001402

001310
000020

011660
011664
011670
011674
011676
017702
011706
011712

000004
000006
000006

000006

3%:
14%:

011264
001306
001310

13%:

001310
001314

001306
001306
000004
0013°2

012002
012004
012006

6%:
WHICH:

002

032737
001114
012737
012737
012702
012700

000001

001236

000340
012202
001500
000300

000022
000020

TST
MOV
MOV

MOV
MOV
B1SB
TST
CLR
INC
cMP
BEQ
CLR
CLR
ADD

CMP
BEQ

:LOAD PORT4
*LOAD INSTRUCTION
#IT8. (R1)
:CLOCK INSTRUCTION(SET DTR)
#021264 ,6(R1)
:LOAD INSTRUZTION
#IT8. (R1)
:CLOCK INSTRUCTION(READ MODEM REGS
MBIT3.4(R1)
:1S MRDY SET NOW?
P4 03
:BR IF NO CONNECTOR
MIT14,(R2)
:SET STATUS BIT FOR CONNECTOR
(R2)+
:POP POINTER
#021324 ,6(R1)
:PUT INSTRUCTION IN PORT6
(R1) *PORT4_LU 15
#MIT9'BIT8,
4(R1), (R )+
:STORETMDDCMP LINE # IN TABLE
#02134 4,
:PORT6_INSTRUCTION
#MIT8! Bl
; .CLOCK INSTR.
4(R1),(R
;STORE BM873 ADD IN TABLE
;POP OVER STAT3
:CLEAR ROMI
;UPDATE DEVICE COUNTER
JARE MAX. NO. OF DEV FOUND?
JYES DON'T LOOK FOR ANY MORE.
;CLEAR BIT 10
;CLEAR SEL 6
JUPDATE (SR POINTER ADDRESS

5%
DMNLM,R1

JMP

TYPE

CLR

HALT
BR
MoV
RT]

1
.BYTE
TEMPS

VECMAP: BIT
BNE

MOV
MOV

MOV

SEQ 0044

#122113,6(R1)

BEQ
MoV
MOV
CLC
ROL
INC
DEC
BNE
MOV

SCOPE, ET(C)

#B1T6,4(R1)

TST

(TYPEOUT, ERROR,

JMP
CLR

MOV

5%:

011664

BIS

B81S8

001310

164000

000006
001306
012010
005760

20%:

000006

000006
000010

011714
011720
011724
011726
011732
011736
011740
011742
011750
011756
011762
011766
011770
011772
011774
012000

MOV
MOV
BIS
MOV
BIS
BIT
8EQ

000004

021324
001400
000004
021344
001400
000004

011636
011640
011642

012010
012016
012020
012026
012034
01204C

000100
122113
000400

12:45
PAGE 44
GENERAL UTILITIES

DMACTV
DMAUM

;BR IF DONE
JJUMP IF NOT

sWERE ANY DMC11'S FOUND AT ALL?
JERROR AUTO SIZER FOUND NO DMC11°'S IN THIS SYS.

R1,SAVNUM

;SAVE NUMBER OF DEVICES

DMACTYV
DMACTYV
R1
43

;GENERATE ACTIVE REGISTER OF DEVICES.
;SET THE BIT

#6, aN6

DMACTV, SAVACT
VECMAP
.MERR?2
RO

.=2

#14$, (SP)

;BR IF MORE TO GENERATE
JRESTORE TRAP VECTOR
;SAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.
JNOTIFY OPR THAT NQ DMC11°'S FOUND.
;MAKE DATA LIGHTS ZERO
;STOP _THE SHOW
;DISABLE CONT. Sw.
SENTERED BY NON-EXISTANT TIME-OUT.
JRETURN TO MAINSTREAM

2.2
#SWO00,STRTSwW
5%
#360,a42°
#6$,3420
#c
. MAPM
R?
#300,R0

JSET IOT TRAP PRIO TO 7
sSET 10T TRAP VECTOR
:SET SOF TWARE POINTER

JFLOATING VECTORS

START

HERE.

CZOME
MACY'1 30A(1052)
11-SEP-78
CZDMEC P11
11-SEP-78 12:38

012701

000302

1%:

000004

Stown\nt\tnb
NbNO‘bNg BRER&
~
no

)
b

D
b

D
d
)

d
b

d
d

e
b

d
d

d
b
D

d el cd

- D

—d

SIS, ST,NT,NT,NT,
81,8 1,87,87,87,87,87,¥}

elelolelelolelolelololelels)

000012
012252

000200
001000
121111
001400

R1, (RO) +

#
—

001246

2%:

(R1)+

DMACTV, TEMPT
TEMP1

177776

#12.R4
BRLVL (R&4) ,PS

000004

#2004 (R1)

(R2) .R1

#8178, (R1)

000006

#121111.,6(R1)
(R1)
#8IT9'BIT8,
RO
=2

000002

#2.R4

012252

177776

005300

000002

000010
000002
000007
012254

ERROR,

(RO+, (R1)+
R1,#1000

001000
001306
001246

(TYPEOUT,

L ]

012044

12:45
PAGE 45
GENERAL UTILITIES

000002

6%:
3s:

4%:

BgLVL(Ra),DS
7
#5300,2(R2)
(R1)

#10,R2

(SP) ,2(R2)
#7,2(R2)

BRLVL+2(R4)
RS

SCOPE, ETC)

.PC OF IOT INSTR.

;START FILLING VECTOR AREA

SWITH .+2; 10T
;ADD 2 TO RO +R1

;BR IF MORE TO FILL
s STORE TEMPORALLY
;BRING OUT A BIT
;BR IF ALL DONE
JR4 IS INDEX REGISTER
JSET PS TO 7

;SET ROM]
;PUT INSTRUCTION IN PORT6
;FORCE AN INTERRUPT
JSTALL
JFOR

TIME

TO INTERUPT

;GET NEXT LOWEST PS LEVEL
;BR IF R4 = 0

*MOVE NEXT LOWER LEVEL IN PS
;BR TO DELAY

:NO_INTERUPT ASSUME 300 AT LEVEL 5 AND FIX DMC11 LATER
;CLEAR ROMI
;POP SOF TWARE POINTER
;KEEP GOING
;GET VECTOR ADDRESS
s CLEAR JUNK
;GET BR LEVEL OF DMC11

sSHIFT LEVEL 4 PLACES

;TO THE LEFT FOR

;STATUS TABLE

170777

4170777
RS
R5,2(R2)
(SP)+,(SP)+
#3$,(SP)

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

5%:

JALL DONE WITH "AUTO SIZING''

:
BRLVL

SLEVEL
JLEVEL
cLEVEL
JLEVEL
cLEVEL
SLEVEL

INTTY:

aTKCSR

000002

012172

166712

166706

166704

166700

000240

THE

NOWNESOO

012240
012242
012246
012250

SEQ 0045

-4

aTKDBR,R3

WAIT

FOR DONE

;PUT (HAR [N R3

arzcsn

JWAIT UNTIL

R3,3TPDBR

cECHO CHAR

g%'T?.BITS,RK

¢MASK OFF

JRETURN

PRINTER

LOWER CASE

[S READY

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

12:45
PAGE 46
GENERAL UTILITIES

2257
2258
2259
2260

H
(TYPEOUT,

&
ERROR,

SCOPE, ET()

2261

JNNRRNNANRANNARRRARRAARRANRS

2262
2263
2264

;*0UT CONTROL REGISTER READ/ONLY TEST
;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
;*BITS ARE IN THE CORRECT STATE

2265

2266
2267

2068

2269
2270
2271
2272
2273
2276
2275
2276
2277
2278
2279
2280
2281
ggg%

012320
012326

012737
012737

000001
012374

012334
012340
012344
012346
012350
012354
012360
012364
012366
012370
012372

005077
012702
104414
021224
016104
042704
012705
120504
001401
104002
104400

1670644
000011

001226
001216

TST1:

000004
000054
000020

1%:

2284

R R R AR

TEST

SEQ 0046

wnennvannnnavnnnnnavnnntnnn

A A AN R AN AN AR AR RN NN A RARAANAANENNANRANA RN

TEST 1

MOV
MOV

#1,TSTNO
HTST2 NEXT

CLR
aDM( SR
MOV
#11,R2
ROMCLK
021004!'<20*11>
MOV
4(R1) R4
BIC
#54 R4
MOV
#20,R5
CMPS
RS .,R4
BEQ
1%
HLT
P4
SCOPE

;JR1 CONTAINS BASE DM(C11 ADDRESS
;JCLEAR SELO
JSAVE R2 FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:PORT4 LINE UNIT REG 11
JPUT “FOUND'' IN R4
;CLEAR UNKNOWN BITS
‘PUT "EXPECTED'' IN RS
;1S OUT READY SET?
:BR IF YES
JERROR IN LU 11
;SCOPE THIS TEST

2285

INKRARNARRRRRRARNANRARNCANNN

2286
2287
2288

;*IN (ONTROL REGISTER READ/ONLY TEST
.*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
J*BITS ARE IN THE CORRFCT STATE

2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
5%82

TEST 2
Rttt
MOV
#2,TSTNO
MOV
HTST3 NEXT

——

SRR B8

ASTaN1,N1,N
1,V 1,V

2289

012374
(012402

012737
012737

000002
012442

0126410
012414
012416
0126420
012424
012430
012432
012434
012436
012440

012702
104414
021244
016104
042704
005005
120504
001401
104002
104400

000012

001226
0012°6

T1sT2:

000004
000017

1%:

ANEN

[EST

aaa v et s A vt A vt AR RN

AR AR AR AR R R A AN AN AR RN AR AN NN N R AR A NN A AN NN

MOV
M2.R2
ROMCLK
021004 .<20*12>
MOV
4(R1) ,R4
BIC
#17 ,R4
(LR
RS
CMPR
RS.R4
BEQ
1%
HLT
l
SCOPE

AN N

R RN NRANRR R

;JR1T CONTAINS BASE DMC11 ADDRESS
;SAVE R2 FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LINE UNIT REG 12
JPUT “FOUND'' IN R4
;CLEAR UNKNOWN BITS
PUT "EXPECTED'' IN RS
JARE ALL BITS CLEARED?
:BR IF YES
JERROR IN LU 12
;SCOPE THIS TEST

Jrkxnnanranrnnwnenernnnannnwnn

TEST

anennnnonnrnneneennvnnnnnes

;*MODEM CONTROL REGISTER READ/ONLY TEST
;*DO A MASTER CLEAR,

J*BITS ARc

VERIFY

THAT ALL

IN THE CORRECT STATE

J AL AAASESARESESAladRl RS

READ/ONLY

22222 2R

RSN

RN KT R

11-SEP~78
CZOME
MACY11 30A(1052)
CZDMEC.P11
11-SEP-78 12:38

12:45
PAGE 47
LINE UNIT READ/ONLY TESTS

012442
012450

0
0

012456
012460
012464
012466
012470
012476
012500
012504
012506
012510
012512

1
0
1

0000
012514

001226
001216

TST3:

000013

MOV
MOV

#3,TSTNO
#TSTL NEXT

021004 <20+13>

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
:SAVE R2 FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LINE UNIT REG 13

BIC

s CLEAR UNKNOWN BITS

MOV

ROMCLK

000004
000213
000100

SEQ 0047

TEST 3

MSTCLR

#13,R2

MOV

4(R1) R4

MOV
(MPB
BEQ

#100,RS
RS R4
19

#213,R4

HLT
SCOPE

;PUT

® R4
"FOUND'IN

' RS
;PUT "EXPECTED'IN

;ARE RING, DTR,
AND MODEM READY SET?
JBR IF YES
;ERROR IN LU 13
:SCOPE THIS TEST

INRRFERNANRARARREANRNNRRANNAN

TEST

A A

S*MAINTENANCE REGISTER READ/ONLY

TEST

J A

222222322

A RN

AN R AR RN RN R

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

012530

104412

012532

012536
012540
012542
012546
012552
012556
012564

012702
104414

001004

000004
012616

TST14:

EAS

SRSl

MOV

ROMCLK

001366

040000

001366

#TSTS NEXT

”7.R2

MOV
BIC
MOV

4(R1) ,R4
#206,Ré
#51,RS

BNE
BIT
BNE
8IC
81C

23
MIT14,STATT
3
#40 R4
#M]TS.RS

(MPB
BEQ

RS.R4
1%

BIT

2%:
3¢

1%:

222222222222

#4,TSTNO

021004 '<20+17>

00000¢
000206
000051
020000

220222

TEST 4

MSTCLR

000017

000040
000040

012614

012737
012737

—

012514
012522

NS,
—n)

;
o

7
8
9
0

;

5
6

HLT

SCOPE

MIT13,STATT

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11

;SAVE R2 FOR TYPEOUT

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LINE UNIT REG 17

;PUT ‘FOUND'' IN R4

;CLEAR UNKNOWN BITS

JPUT "EXPECTED'' IN RS
;1S LU AN MB202 OR M8201?
;BR IF M8202
; CONNECTOR??2?

;BR IF M8201 WITH CONNECTOR
JMASK OFF SI BIT IF M8202 OR M&201, NO CONNECTOR
;SI BIT IS UNKNOWN
cARE SI AND ICIR SET?
;BR IF YES
JERROR IN LU 17
;SCOPE THIS TEST

Jarncnnsanntnnnrannnennnanans

JEST

wannennannnannenesnnannannse

J*LINE UNIT REGISTER WRITE/READ TEST

J*SET BITS IN LU REGISTER 12,

VERJFY IT ]IS SET

:*CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR
;:t!.t..'

(A2

AARAAR

SRR

MACY11 30A(1052)
11-SEP-78
PN
11-SEP-78 12:38

12: 45
PAGE 48
LINE UNIT WRITE/READ TESTS
;

012616
012624
012632

RRNRRAR

012640
012642
012646
012654
012656
012660
012662
012664
012670
012674
012700
012702
012704
012706
012710
012716
012722
012724
012726
012730
012732
012734
012740
012744
012746
012750
012752
012754

TSTS:

200005
012756
012646
000012
000040

MOV
MOV

#M$,L0CK

MSTCLR

18:

MOV

MOV
ROMCLK

#12.R2

#60,4(R1)

021245

012716
000004

MOV

#40 RS

BEQ
HLT

23
3

MOvB
BIC
(MP8

0012290

2%:
3%:

SroP1

MOV
(LR

ROMCLK

5(R1) R4
#337 R4
RS.R4

#38,. 0CK
4(R1)

122112

CLR

MOvVB
B8IC

000005

000337

(MPR
BEQ

A ¥

HLT
SCoP1
SCOPE

;SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORTS
JNEXT WORD IS

INSTRUCTION,

ROMCLK PC=5304

SNEXT WORD

INSTRUCTION,

ROMCLK P(C=5304

JREAD LU~12

;PUT "EXPECTED’® IN RS

;JPUT 'FOUND'' IN R4
;CLEAR UNMWANTED BITS
;1S BITS SET?
;BR IfF YES

JERROR, BIT S5 IS NOT SET

:SCOPE SUBTEST (SwW09=1)
SNEW SCOP1

;LOAD PORT4
SNEXT WORD

INSTRUCTION,

ROMCLK P(C=5304

JNEXT WORD

INSTRUCTION,

ROMCLK P(C=5304

JCLEAR BIT 5 IN LU-12

ROMCLK

021245

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11

;SET BITS IN LU-12

ROMCLK

000040
000005
000337

SEQ 0048

#5,TSTNO
NTST6 NEXT

MOV

000004

TEST S

122112

5(R1) R4
#337 R4
RS.R4
43
3

JREAD LU~-12

JPUT "EXPECTED' IN RS

JPUT "FOUND'' IN R4
;CLEAR UNMANTED BITS

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

JENNRARRNRARRARRERaRanantnnt

TEST

wewnnnnnnanvnnuvennanaennnn

s*LINE UNIT REGISTER WRITE/READ TEST
J*SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET
;*CLEAR BIT1 IN LU REGISTER 17, VERIFY [T IS CLEAR

::tti.tt.tt.tt""'.lt."tt....ttfitfi.tt.Qtt'ttt'.ttttitt'."t't

—_—

OO§
S
O—‘§

NN
NN

NO =

013024

VNSNS

013000
013002
013006
013014
013016

dhui?g%&d_aga
—-—
b b
NS
PONY
norONY

012756
012764
012772

OO0

TEST 6

OO —==—=00—=

CZOME

000017
000001

001226
001216
001220

TST6:

MOV

MOV
MOV

MSTCLR

000004

1%:

MOV
MOV

ROMCLK

#6,TSTNO

NTST7 NEXT
#18,L0CK
#7,R2

#1,4(RY)

122117

000001

MOV

CONTAINS BASE DMC11 ADDRESS

JMASTER CLEAR DM(11

sSAVE QEGISTER ADDRESS FOR TYPEQUT
;LOAD PORTS

SNEXT WORD

JSET BITY

ROMCLK

021365

JR1

SNEXT WORD

#7 RS

INSTRUCTION,

ROMCLK P(C-5304

INSTRUCTION,

ROMCLK P(=5304

IN LU-17

;READ LU-17

JPUT "EXPECTED'' IN RS

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2625
2626
26427
2628
2629

2430
2431
2632
2633
2634
2635
2636
2637
2438
2439
2640
2441
2442
2643
Szzg

013030
013034
013040
013042
013044

013046
013050
013056
013062
013064
013066
013070
013072
013074
013100
013106
013106
013110
013112
013114

116104
042704
120504
0014601
104003

104407
012737
005061
104414
122117
104414
021365
005005
116104
042704
120504
001407
104003
104407

K
12:45
PAGE 49
LINE UNIT WRITE/READ TESTS

000005
000376

013056
000004

001220

2%:
3%:

000005
000376

4%:

104400

26446

MOVB
BIC
(MP8
BEQ
HLT
SCOP1
MOV
CLR
ROMCLK
122117
ROMCLK
021365
(LR
MOVB
BIC
(MP8
BEQ
HLT
SCOP1

&4
SEQ 0049

5(R1) R4
#376 R4
RS,R&4
23
3

;PUT "FOUND'' IN Ré
;CLEAR UNWANTED BITS
;1S BIT1 SET?
;BR IF YES
;ERROR, BIT 1 IS NOT SET
:SCOPE SUBTEST (Sw09=1)
sNEW SCOP1
:LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JCLEAR BIT 1 IN LU-17
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JREAD LU-17
JPUT ‘EXPECTED'' IN RS
JPUT "FOUND'' IN Ré&
JCLEAR UNWANTED BITS
;1S BIT1 CLEAR?
;BR IF YES
JERROR, BIT1 IS NOT CLEAR
;SCOPE SUBTEST (Sw09=1)

#38,L0CK
4(R1)

RS
S(R1) R4
#376 R4
RS,R4
29
3

SCOPE

;SCOPE THIS TEST

24647

JRRKERRRRNARRANRANRNANRARANR TEST 7 Attt
aa A e v ARt v At nnn

2449

s*FLOAT A 1

2451

2448

J*LINE UNIT REGISTER WRITE/READ TEST

2450

2452
2453
2454
2455

2656

013116

012737

000007

001226

012737

013152

001220

2457
2458
2459
2460
2461
2662
2663

013126

012737

013140
013142
013146
(13152
013152

104412
012702
012700

000013
000001

010061

000004

2665
2666
2667
24668
2469

013164
013166
013170
013172
013176

104414
122113
104414
021265
010005

2664

013132

013156

2470

013176

2474

013214

24671
2472
2673

26475
2476
2477
2478
2479
2480

THROUGH LINE UNIT REGISTER 13

J*FLOAT A O THROUGH LINE UNIT REGISTER 13

042761

042705

013202
013206
013212

116104
042704
120504

013216
013220
013222
013224
013226
013230

104003
104401
000241
106100
001351
012737

013326

000257

001216

T1ST7:

64%:

000004

001401

65%:

001220

MOV

R AR AN R R AN NN AR A NN AN NN NRANRRAN NN AR AR

AN RN

#TST10,NEXT
#64%,L0CK

MSTCLR
MOV
MOV

#13,R2
#1,R0

;R1T CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;SAVE REGISTER ADDRESS FOR TYPEQUT
JSTART WITH BIT 0

MOV

RO,4(R1)

sPUT PATTERN INTO PORT4

BIC

000005
000257

;
TEST 7
:
MOV
#7,TSTNO

MOV

000257

073244

R AR AN AR AR A AR AR

0257.4(R1)

;CLEAR UNWANTED BITS

ROMCLK
122100!13
ROM(CLK
21005!<13%20>
MOV
RO RS

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;MOV DATA TO IBUS REGISTER 13
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JREAD FROM [BUS REGISTER 13
;JPUT EXPECTED IN RS

MOVR
BIC
(MPB

JPUT "FOUND'' INTO R4
o CLEAR UNWANTED BIJTS
;DATA CORRECT?

B8IC

l?f?,RS

BEQ

65$

HLT
SCoP1
(Lc
ROLR
BNE
MOV

5(R1) ,R4
#257 R4
RS ,R¢

RO
6%
#67%,L0CK

s CLEAR UNMWANTED BITS
:BR IF YES

;ERROR
;Sw09=1?
;CLEAR CARRY
JSHIFT BIT IN RO
;1F RO=0 THEN DONE
JNEW SCOPT

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1I
11-SEP~78 12:38

2681
2482
2483
2684

013236
013242
013244
013244

012700
005100

000001

010061

Q00004

2486
2487
2488
2489
2490

013256
013260
013262
013264
013266

104414
122113
104414
021265
010005

013274
013300
013304
013306
013310
013312
013314
013316
013320
013322
013324

116104
042704
120504
001401
104003
104401
005100
000241
106100
001347
104400

2485

26491

2492
2493
2494
2695
2496
2497
2498
2699
2500
2501
ggg%

013250

013270

042761

042705

000257

12:45
PAGE 50
LINE UNIT WRITE/READ TESTS

69%:
67%:

000004

000257

000005
000257

68%:

2504

MOV
oM
MOV

4
SEQ 0050

#1,R0
RO

JSTART WITH BIT 0
;CHANGE TO FLOATING ZERO

RO,4(R1)

;PUT PATTERN INTO PORT4

B8IC

#257.4(R1)

BIC

#257 RS

sCLEAR UNWANTED BITS

ROMCLK
12210013
ROMCLK
21005!<13%20>
MOV
RO RS

SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;MOV DATA TO IBUS REGISTER 13
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JREAD FROM IBUS REGISTER 13
;JPUT EXPECTED IN RS

MOVB
BIC
{MPB
8EQ
HLT
SCOPT
(oM
CLC
ROLB
BNE
SCOPE

JPUT FOUND'' INTO R4
;CLEAR UNWANTED BITS
;DATA CORRECT?
;BR IF YES
s ERROR
2 SW09=1?
JCHANGE TO FLOATING 1
;CLEAR CARRY
JSHIFT BIT IN RO
;IF RO=0 THEN DONE
;SCOPE THIS TEST

5(R1) ,R¢
#257 R4
R5,R4
68%
3
RO
RO
69%

:CLEAR UNWANTED BITS

2505

JNRRNANNRARANCRANEARRANRANASY

2506
2507
2508

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

2509

2510

5?}}

2513
2516
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530

2531
2532
2533
2534
2535

2536

;
013326
013334
013342

012737
012737
012737

013350
(013352
013356
013362
013362
013366
013370
013372
013374
013376
013400
013406
013406
013410

104412
012702
012700

013412
013414
013416
013420
013622

013430

010061
104414
122114
104414
021305
010005
116104
120504
001401
104003

104401
000241
106100
001360
012737

012700

000010
013502
013362

001226
001216
001220

000014
000001

T1ST10:

€6%:

000004

000005

65%:

013436

000001

001220

AN AR

A R A A AR AN AN R ANR AR

A anaaaaa
kAR AR AR AR AR R AR

A NARRANNANAARAARRN N AR

TEST 10

MOV
MOV
MOV

#10,TSTNO
#TST1T NEXT
#64%,L0Ck

MSTCLR
MOV
MOV

#14 R?2
#1,R0

MOV
RO,4(R1)
ROMCLK
122100. 14
ROM(CLK
21005'<14*20>
MOV
RG .RS
MOVB
5(k*) R4
(MP8
R5 R4
BtQ
65%
HLT
3

SCOP1T
CLC
ROLB
BNE
MOV

MOV

TEST

RO
649
#C7% LOCK

#1,R0

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(11
;SAVE REGISTER ADDRESS FOR TYPEOUT
JSTART WITH BIT 0O

JPUT PATTERN INTQ PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
MOV DATA TQO IBUS REGISTER 14
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JREAD FROM IBUS REGISTER 14
JPUT EXPECTED IN RS
JPUT "FOUND'' INTO R4
.DATA CORRECT?
;BR IF YES
;ERROR

;SW09=1?
;CLEAR CARRY
JSHIFT BIT IN RO
;JIF RO=0 THEN DONE
JNEW SCOPT

:START WITH BIT 0

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC. P
11-SEP-78 12:38

2537
2538
2539
2540
2541
2542
2543
2544

M
12:45
PAGE 51
LINE UNIT WRITE/READ TESTS

000004

000005

SEQ 0051

;CHANGE TO FLOATING ZERO

MOV

RO.4(R1)

JPUT PATTERN INTO PORTS

ROMCLK

122100.14

21005!<14+20>

68¢%:

MOV
MOVB
CMPB
BEQ
HLT

RO,RS
5(R1) R4
R5 R4
68$
3

(oM
CLC
ROLB
BNE
SCOPE

SCOP1

JNEXT WORD IS INSTRUCTION,

ROMCLK P(C=5304

JNEXT WORD IS INSTRUCTION,

ROM(LK PC=5304

MOV DATA TO IBUS REGISTER 14

ROMCLK

N—‘—'N?N
—
~N)

purd

O == —
(WLIVL
P o o &=

ggz:

SFSRIE8S525

005100

;READ FROM IBUS REGISTER 14

JPUT EXPECTED IN RS
JPUT "FOUND'' INTO R4
sDATA CORRE(CT?
:BR IF YES

;ERROR

;SW09=1?

;CHANGE TO FLOATING 1
;CLEAR CARRY
JSHIFT BIT IN RO
;IF RO=Q THEN DONE
.SCOPE THIS TEST

69%

JHRRRCRRRNNNCRRNRARRNRAANAAN

TEST

aunnnnanananansnwnterrrannn

J*SWITCH PAC TEST

;*THIS

TEST READS SWITCH PACA1

J*THIS SWITCH PAC CONTAINS THE DDCMP LINE #

JINRERRRARRRRRRRRRAN
AN KRR AR R AR RN AR RN AR ARAR RN N NNNNARAANRCAAANARNRNNR

TEST 11

013502
013510

012737

013516

104412
104414

012737

021324
016104
113705
120504
001401
013542

000011
013544

001226
001216

TST11:

MOV
MOV

#11,TSTNO
#TST12 NEXT

MSTCLR
ROMCLK

021324

000004
001370

104031
104400

1%:

JMASTER CLEAR DM(C11
JNEXT WORD IS INSTRUCTION,

MOV

4(R1) R4

8EQ
HLT
SCOPE

13
31

MOvVB
CMPB

;R1 CONTAINS BASE DMC11 ADDRESS
;PORT4 _LU1S

ROMCLK PC=5304

;PUT "FOUND'* IN R4

S1ATZ2,RS
RS .R4

JPUT ‘EXPECTED'' IN RS
. SW 0K?

;BR [F YES
cERROR, SWIT(CH PAC READ ERROR
;SCOPE THIS TEST

JNARRARNARANRRANRANARARANARR

TEST

7120

ANanaanaa
v a vkt v s AN RANNENR

J*SWITCH PAC TEST

;*THIS TEST READS SWITCH PAC#?
J*THIS SWITCH PAC

CONTAINS

R AR A AR N R

AR AR R AN R R

THE BM873 B0OOY ADD
AN AR

AN R A AN R

R N AT A AN

RN RN

RN NAR RN

TEST 12

000012
013606

001226
001216

TST12:

MOV
MOV
MSTCLR
ROM(LK

021344

#12,TSTNO
#TST13 NEXT

;JR1T CONTAINS BASE DMC11
JMASTER CLEAR DM(C11
JNEXT WORD

:PORT4_LU6

ADDRESS

INSTRUCTION,

ROMCLK PC-5304

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2593
2594
2595
2596
2597
Sggg

013566
013572
013576
013600
013602
013604

016104
113705
120504
001401
104031
104400

N
12:45
PAGE 52
LINE UNIT WRITE/READ TESTS

000004
001371

MOV
MOVB
cMP8
BEQ
HLT
SCOPE

1%:

2600

2601

&
SEQ 0052

4(R1) R4
STATZ2+1,RS
R5.R6
13
3

;PUT 'FOUND'' IN R4
;PUT "EXPECTED'' IN RS
:SW 0K?
:BR IF YES
JERROR, SWITCH PAC READ ERROR
s SCOPE THIS TEST

JenARARARARARRRRttrkannnannt

TEST

annnnnsnnnannnnentnnnnrntntn

2602
2603
2604

:*LINE UNIT CLOCK TEST
ITHIS TEST VERIFYS THAT THE LU INTERNAL CLOCK
:+(BIT 1IN LU-17) IS WORKING

2606
Sggg

;

2605

2609
2610
2611
2612

2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627

2628
2629
2630
2631
2632
2633

013606
013614

012737
012737

013622
013624
013630
013630
013632
013634
013642
013644
013650
013652
013654
013660
013660
013662
013664
013672
013674
013700
(013702
013704

104412
005037

104414
021364
032761
001004
005237
001367
104004
005037
104414
021364
032761
001404
005237
001367
104004
104400

000012
013706

001226
001216

001416

000002

~ST13:

1%:

000004

001416
001416

000002

2%:
3s:
000004

001416

4%:

AR AN AN

NN AN AN AN RN RN R AR RN NN AR AN N RANANAR R

MOV
MOV

#13,TSTNO
HTST14 NEXT

MSTCLR
CLR

TEMP

ROMCLK
021364
BIT
BNE
INC
BNE
HLT
CLR

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JPORT4 _LU~17
#2,4(R1)
;1S CLOCK BIT SET?
2%
;BR IF YES
TEMP
.DELAY
1%
;DELAY FINISHED?
4
SERROR BIT IS STUCK CLEAR
TEMP
;PREPARE FOR DELAY

ROMCLK
021364
BIT
BEQ
INC
BNE
HLT
SCOPE

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU-17
;1S CLOCK BIT CLEAR?
;BR IF YES
;DELAY
;BR IF DELAY NOT DONE
JERROR BIT IS STUCK SET

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11

.PREPARFE FOR DELAY

#2,6(R1)
4%
TEMP
3%
4

JHRRARRRNRRNRRRANRRRRRARARASE

2635

;*0UT DATA SILO TEST

2639

2640
522;
2643
2644
2645
2646
2647
2648

012737
012737

013722
013724
013730

104412
012711
012761

000014
014006
004000

000001

001226
001216

000004

TST14:

TEST

Attt a v aa v a A vt

A A AR NN RRNRRR

c*SET SOM AND LOAD OUT DATA SILO
s*VERIFY THAT OCOR SET, INDICATING THAT THE
s *CHARACTER IS AT THE BOTTGM OF THE OUT SILO
IR

;

013706
013714

TEST 13

2634

2636
2637
2638

ARANRR AR

AN AR

RN RN R

NRN AR AR KA RRARARR R A RN R ARARRRAR RN

TEST 14

MOV
MOV

#14,TSTNO
#TST1S5 NEXT

MSTCLR
MOV
MOV

#IT11,(RY)

#1,4(RT)

JR1 CONTAINS BASE DMC11 ADDRESS
¢sMASTER CLEAR DM(C11
sSET LINE UNIT LOOP
;LOAD PORT4 WITH BITO

RARR

DY o P O
SO
S

R §85“VJ\—¢0“JJ\

OO—=O

013736
013740
013742
013744

30A(1052)
11-S£pP-78
11-SEP-78 12:38
—=OMNION)

MACY11

FRRORNRROR

CZDME

CZDMEC.P1

12:45 PAGE 53
BASIC TRANSMITTER TESTS
ROMCLK

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA SILO

122111

; SET _SOM

122110

000002
000017

TIMER,
MOV
ROMCLK

000004
000357
000020

MOV
BIC
MOV
CMPB
BEQ
HLT

;WAIT FOR OCOR

;SAVE ADDRESS FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 17

021364

1%:

SEQ 0053

' R4
JPUT 'FOUND'IN

;CLEAR UNWANTED BITS

JPUT "EXPECTED''
IN RS

;1S OCOR SET?
;BR IF YES

;SCOPE THIS TEST

SCOPE

INARRRNRRREARARNRANAARANRANN

TEST

wnanannannanrarannsrtrvensnnsn

:*DDCMP TEST OF RTS AND OUT ACTIVE
;*SET SOM AND LOAD OUT DATA SILO

;*SINGLE STEP 2 DATA CLOCKS, VERIFY
s *THAT RTS AND ACTIVE ARE
o AR

SET

R AR RRAR AR A AN AN AN RAARANA RN R RN RARRARRAARNRARARARRRARNNRNRRNARRAS

TEST 15
014006
014014

R3S —“D—JE?J—J—LA
—
nON)
Shvsa fUi?N;E
\P*Rj SN
DO =N
DD
RRR SPONNO
S~ =N
o=

014022
014024
014030

000015
014144

TST15:

MOV

000004

MOV

ROMCLK

#15,TSTNO
#TST16 NEXT

ABIT11, (R1)
#,4(R1)

122117

ROMCLK

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

026374
000002
000011

ROMCLK

021224

000004
000257
000120

MOV

BIC

000013

000004
000337
000040

1%:

4(R1) R4

021264

BIC

MOV

(MPB

;PORTS LU 11

;PUT 'FOUND'' IN R&

;1S ACTIVE SET?
;BR IF YES

#13.R2

;SAVE ADDRESS FOR TYPEOUT
sNEXT WORD %S INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 1

MOV

;WAIT FOR OCOR

;CLOCK DATA FOUR TIMES
s SAVE ADDRESS FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

RS,RS
1%

HLT

ROMCLK

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
<LOAD OUT DATA SILO

sCLEAR UNWANTED BITS

#120.RS

MOV

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11
sSET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
:gE¥ngaRD IS INSTRUCTION, ROMCLK PC=5304

#257 R4

MOV

(MPB
BEQ

kduuuhg_ha_ha

MOV
MOV
MSTCLR

d
D
b
b o)
e
b
b
b

Qo
Janr Qe Ger Giter Guuur Guur Gur Gl

jelolelolelolelelele)

Gnrd

014102

004000
000001

001226
001216

4(R1) R4

#337 R4

#2175 ,RS
R5.Ré

;PUT 'EXPECTED'' IN RS

;PUT ERPECTED IN R4

sCLEAR UNWANTED BITS

JPUT "EXPECTED'' IN RS, RTS SHOULD BE SET
;1S RIS OK?

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2706

014136
014140
014142

014142

12:45
PAGE 54
BASIC TRANSMITTER TESTS

001401

104005

2%:

104400

SEQ 0054

2%
5

BEQ
HLT

;BR IF

YES

JRTS ERROR

;SCOPE THIS TEST

SCOPE

IRARARNRARRRNRANRARAAARANARE

J*TEST OF

TEST

ANanaanaan
vt vt e v ke v annnn

OUT CLEAR

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

;*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED
::tt*fi*ttttttt**t*tt**ttt*ktttt*tttt*tk*tttt*tt*ttttttttittttttt

NN
o an)
SOV

2NNOS

NN
NSS DS NNS
ENE DN
~N
-

Hon

—_

nony

RS K2
O
=

N
no

QO=0O—=
= O—

no
n

014160
014162
014166
014174
014176

—S b ek =2 DO =

014144
014152

2239 RRURROR
NRSR
ERU\
33 RR g SO
ON DB N
s DN 2
WIWN

TEST 16

000016
014342
004000
000001

001226
001216

TST16:

MSTCLR

MOV
MOV

000004

ROMCLK

026374
000002
000200

122110
JSR
PC,0COR
DATACLK,
2

000004

MOV

ROMCLK

DATACLK,
MoV
#17,R2
ROMCLK

021364

000004
000357

000013

MOV

BIC

1%:

=) ——d ——d

MOV

021264

MOV

BIC
CLR
(MPH
BEQ

b ad

000004
000020

CLR
CMP8
BEQ
HLT
ROMCLK

000004
000337

000011

#BIT7,4(RT)

122111

000001
000C17

) e
ed cmd e
b

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

122111

elolelalelelelelelolelelels]

#16,TSTNO
#TST17 NEXT

ROMCLK

001401

n
~N

MOV
MOV

2%:

HLT

MOV

ROMCLK

021224

MOV
MOV

4(R1) R4

#357 R4
RS
R5,Ré
1%
5

#13,R2
4(R1) R4

#337.,R4
RS
R5.R4
2%

sR1

CONTAINS BASE DMC11

ADDRESS

sMASTER CLEAR DM(C11
;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
:§E¥ngaRD IS INSTRUCTION, ROMCLK PC=5304
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
.LOAD OUT DATA SILO
;JWAIT FOR OCOR
;CLOCK DATA FOUR TIMES

;SET BIT7 IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET OUT CLEAR

:GIVE A TICK TO CLEAR RTS
sSAVE ADDRESS FOR TYPEOUT

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PORT4 Lv 1?7

:PUT 'FOUND'* IN R4

;CLEAR UNWANTED BITS

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

s SAVE ADDRESS FOR TYPEOUT
sNEXT WORD IS INSTRUCTION,

:PORT4_LU 13

;PUT ERPECTED IN R4

cCLEAR UNWANTED BITS

:PUT "EXPECTED'* IN RS, RTS SHOULD BE CLEARED
IS RTS 0K?
JBR IF YES

JRTS ERROR

#11,R°

;SAVE ADDRESS FOR TYPEOQUT

4"1) R4
#BIT4 RS

ROMCLK PC=5304

JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

JPORTS LU

JPUT "FOUND'' IN R4

sONLY OUT READY SHOULD BE

SET

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2761
2762
2763
2764
%;gg

014332
014334
014336
014340
014340

12:45
PAGE S5
BASIC TRANSMITTER TESTS

120504
001401
104005

3%:

104400

2767

(MP8
BEQ
HLT

R5.R4
3%
5

SCOPE

SEQ 0055

;1S ACTIVE CLEAR?
sBR IF YES
;ERROR ACTIVE NOT CLEARED
;SCOPE THIS TEST

2768

JRRARNARRANRNANAAEAEARAANRARN

2769
2770
2771
2772
2773

:*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK THE CHARACTER O
s*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
:*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

2774

2775
2776

2777

2778
2779
2780
2781
2782
2783

2785
2786
2787
2788
2789
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816

;

014342
014350

012737
012737

014356
014360
014364
014370
014376
014400
014402
014406
014412
014416
014420
014422
014426
014430
014432
014436
014442
014444
014446
014452
014454
014456
014460
014464
014466
014470
014470
014472
014476
014500
014504
014506
014510
014516
014520
014522

104412
012711
004737
012761
104414
122111
012705
004737
010561
104414
122110
004737
005003
010502
104415
104415
106002
103005
004737
103406
104006
000404
004737
103001
104006

005203
022703
001357
104415
104414
021264
032761
001401
104034
104400

000017
014524

001226
001216

004000
026526
000001

000004

TST17:

000000
026526
000004
026374

000002
000001

1%:

026342

2%:
3%:

000010

000014
000040

000004
4%:

MOV
MOV

RARNAARRNA R AR RN RN

TEST

AR RN A R RN

A aaaaaaaaaanaaena
vt nattnnn

A AN NN RN NN R ARNARARRRARNRANNAN
RN

TEST 17
--

#17,TSTNO
NTST20,NEXT

;R1 CONTAINS BASE DMC11 ADDRESS
MSTCLR
JMASTER CLEAR DM(C11
MOV
#MIT11,(RT)
sSET LINE UNIT LOOP
JSR
PC,OUTRDY
JWAIT FOR OUT-READY
MOV
#1,4(R1)
;SET BITO IN PORT4
ROMCLK
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122111
:SET _SOM!
MOV
#0,RS
;LOAD CHARACTER IN RS FOR TYPEOUT
JSR
PC,OUTRDY
JWAIT FOR OUT-READY
MOV
R5,4(R1)
;LOAD PORT4 WITH CHARACTER
ROMCLK
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122110
;LOAD OUT DATA
JSR
PC,0COR
SWAIT FOR OCOR TO SET
CLR
R3
sCLEAR BIT COUNTER
MOV
R5.R2
sLOAD CHARACTER IN R2
DATACLK,
2
;2 TICKS TO SET UP TRANSMITTER
DATACLK,
1
JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
RORAB
R
sSHIFT NEXT SOF TWARE BIT IN TO CARRY
BCC
2%
;BR_IF CARRY CLEAR
JSR
PC,GETSI
;GET THE WINDOW
BCS
3%
;BR IF BIT IS A MARK
HLT
6
;ERROR BIT WAS A SPACE
BR
3%
;CONTINE WITH TEST
JSR
PC,GETSI
;GET THE WINDOW
BCC
3%
;BR IF BIT IS A SPACE
HLT
6
JERROR BIT WAS A MARK

INC
R3
CMP
#10,R3
BNE
1%
DATACLK,
14
ROMCLK
021264
BIT
#B1T5,4(R1)
BEQ
4%
HLT
34
5COPE

JNEXT BIT
;DONE YET?
:BR_IF NO
sCLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU-13
JRTS SROULD BE CLEAR NOW
JBR IF YES
JERROR, RTS NOT CLEAR
;SCOPE THIS TEST

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC PN
11-SEP-78 12:38

12:45
PAGE 56
BASIC TRANSMITTER TESTS

SEQ 0056

JRRRANRARANRANANNANRRNRRNANRY

TEST

o ana v

asaa v ataaa

et acannhnn

;*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK THE CHARACTER 125

s*VERIFY EACH BIT POSITION AS

;*PASSES THE BIT _WINDOW (SI BIT)

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

RA AN AR A AN AN AR AN AN A RN AN ANARNAAAARAANARNANAARAR
R A AR R AR AR AN AR

TEST 20

014524
014532
014540

014542
014546
074552
014560
014562
014564

014570

014574
014600
014602

014604
014610
014612

014614

014620
014624
014626
014630
014634
014636
014640
014642
014646
014650
014652
014652
014654
014660
014662
014666
014670
014672
014700
014702
014704

000920
014706
004000
026526
000001

001226
001216

TST20:

MOV
MOV
MSTCLR

MOV
JSR
MOV

000004

ROMCLK

122111

#20,TSTNO
#TST21 NEXT
#IT11,(RT)
PC,OUTRDY
#1,4(R1)

.SET SOM!

#125.RS :LOAD CHARACTER IN R5 FOR TYPEOUT

000125
026526
000004

MOV
JSR

MOV

R5.4(R1)

026374

JSR

PC,O0COR

ROMCLK
122110

CLR

000002
000001

1%:

026342

2%:

026342

3%:

000010
000014

000040

PC,OUTRDY

MOV
RS.R2
DATACLK,
2
1
DATACLK,
RORB
R2
8CC
2%
JSR
PC.GETSI
BCS
3%

FOR OQUT-READY
PORT4 WITH CHARACTER
WORD IS INSTRUCTION, ROMCLK PC=5304
OUT DATA

;CLEAR BIT COUNTER
;LOAD CHARACTER IN R?2

;2 TICKS TO SET UP TRANSMITTER

HLT

JSR

PC,GETSI

HLT

JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
JSHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR _IF CARRY CLEAR
;GET THE WINDOW
;B8R IF BIT IS A MARK
;ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW
;BR IF BIT IS A SPACE
JERRGR BIT WAS A MARK

INC
(MP
BNE

R3
#10,R3
1%

:OONE YET?
;BR IF NO

BC(

DATA(CLK,

021264
BIT

JWAIT
;LOAD
sNEXT
;LOAD

;WAIT FOR OCOR TO SET

3%
3s

ROMCLK

000004

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11
sSET LINE UNIT LOOP
JWAIT FOR OUT-READY
JSET BITO IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

BEQ
HLT
SCOPE

:NEXT BIT

#MITS,4(RT)
4%
34

;CLOCK TRANSMITTER 14 MORE

TICKS

LNFYT WORD IS INSTRUCTION, ROMCLK PC=5304

;PORT4 LU~13

;RTS SROULD BE CLEAR NOW

;BR IF YES
SERROR, RTS NOT CLEAR
;SCOPE THIS TEST

JENANARRRRnennRnertnakwnnhnnn

[EST

;*DDCMP TRANSMITTER TEST
J*SINGLE CLOCK THE CHARACTER 252

annnsnrnnnanrnsnnntnnnnnnne

CZDME

MACY11

CZDMEC.P1T

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 57

BASIC TRANSMITTER TESTS

2873
2874
2875

s*VERIFY EACH BIT POSITION AS IT
s*PASSES THE BIT _WINDOW (SI BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

2876

2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2896
2895
2896
2897
2898
2899
2900
2901
2902

2903
2904
2905

2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
Sg}g
2920

SEQ 0057

014706
014714

012737
012737

014722
014724
014730
014734
014742
014744
014746
014752
014756
014762
014764
014766
014772
014774
014776
015002
015006
015010
015012
015016

104412
012711
004737
012761
104414
122111
012705
004737
010561
104414
122110
004737
005003
010502
104415
104415
106002
103005
004737
103406

015020
015022
015024

015030
015032
015034
015034
(15036
015042
015044
015050
015052
015054
015062
015064
015066

104006
000404
004737

103001
104006

005203
022703
001357
104415
104414
021264
032761
001401
104034
104400

000027
015070

001226
001216

004000
026526
000001

000004

TST21:

000252
026526
000004
026374
000002
000001

1%:

026342

2%:
3%:

000610

000014
000040

4%:

A RN RN AN RRA AN N AN

A NN RANR

.
TEST 21
:
MOV
#21,TSTNO
MOV
#TST22 NEXT

;R1 CONTAINS BASE DM(C11 ADDRESS
MSTCLR
JMASTER CLEAR DM(C11
MOV
#BIT11,(R1)
sSET LINE UNIT LOOP
JSR
PC.OUTRDY
JWAIT FOR OQUT-READY
MOV
#1,4(R1)
;SET BITO IN PORT4
ROMCLK
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122111
;SET _SOm!
MOV
#252,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT
JSR
PC,OUTRDY
;WAIT FOR OUT-READY
MOV
R5,4(R1)
;LOAD PORT4 WITH CHARACTER
ROMCLK
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122110
;LOAD OUT DATA
JSR
PC,0COR
;WAIT FOR OTOR TO SET
CLR
R3
;CLEAR BIT LOUNTER
MOV
R5.R2
;LOAD CHARACTER IN RZ2
DATACLK,
2
;2 TICKS TO SET UP TRANSMITTER
DATACLK,
1
JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
RORB
R
sSHIFT NEXT SOF TWARE BIT IN TO CARRY
BCC
2%
;BR_IF CARRY CLEAR
JSR
PC,GETSI
;GET THE WINDOW
BCS
ls
;BR IF BIT IS A MARK
HLT
BR
JSR

BC(
HLT

6
3%
PC,GETSI

021264
BIT
BEQ
HLT
SCOPE

;ERROR BIT WAS A SPACE
sCONTINE WITH TEST
;GET THE WINDOW

3%
6

INC
R3
CMP
#10,R3
BNE
%
DATACLK,

ROMCLK

000004

RN AR AN N AN AR AR RN AR A RN RA AR AR AR R R

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

#BITS5,4(RT)
4%
34

;NEXT BIT
;DONE YET?
:BR_IF NO
;CLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK P(C-5304
JPORT4 LU-13
;RTS SROULD BE CLEAR NOW
;BR IF YES
;ERROR, RTS NOT CLEAR
;SCOPE THIS TEST

2921

JNRRRRIRRKARRRNCANAEARRRKANRR

[EST

270

Aamnansnsvnrsnnrnsnnrnnnnnn

2922
2923
2924
2925
2926
292?

;*DDCMP TRANSMITTER TEST
J*SINGLE CLOCK THE (HARA(TER 377
;*VERIFY EACH B]IT POSITION AS [T
;*PASSES THE BIT WINDOW (S] BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
::ttittlt CHRN S R AR R A RN RN NNRNA A RARNNNERARNRRA AN NN AN

N NI

RRANR NN

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
29645
2946
2947
2948

015070
015076

012737
012737

015104
015106
015112
015116
015124
015126
015130
015134
015140
015744
015146
015150
015154
015156
015160

104412
012711
004737
012761
104414
122111
012705
004737
010561
104414
122110
004737
005003
010502
104415

2953

015200

2949
2950
2951
2952
2956
2955

12:45
PAGE 58
BASIC TRANSMITTER TESTS

015164
015170
015172
015174

104415
106002
103005
004737

015202
015204

104006

103406

200022
015252
004000
026526
000001

001226
001216

0C0C04

TST22:

MOV

#22,TSTNO

MOV

NTST23 NEXT

MSTCLR

MOV

#1711, (R1)

MOV

#1,4(R1)

JSR

PC,OUTRDY

ROMCLK

000377
026526
000004

JSR
MOV

026374

122110
JSR

MOV

ROMCLK

CLR
MOV
1%:

026342

’%:

000610

000014
000040

015250

JWAIT FOR OUT-READY

;SET BITO IN PORT4
NEXT WORD

INSTRUCTION,

ROMCLK P(C=5304

#377 ,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
PC.OUTRDY
RS.4(R1)

;WAIT FOR OUT-READY
:LOAD PORT4 WITH CHARACTER

PC,0COR

;LOAD OUT DATA
;WAIT FOR OCOR TO SET

JNEXT WORD

R3
RS.R2

INSTRUCTION,

ROMCLK PC-5304

;CLEAR BIT COUNTER
;LOAD CHARACTER IN R2

;2 TICKS TO SET UP TRANSMITTER
JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
;SHIFT NEXT SOF TWARE BIT IN TO CARRY
;BR IF CARRY CLEAR
:GET THE WINDOW

HLT

JERROR BIT WAS A SPACE

HLT

BR
JSR
BCC

3%
PC,GETSI

INC
R3
CMP
#10,R3
BNE
1%
DATACLK,

BEQ
HLT
SCOPE

:BR IF BIT IS A MARK

;CONTINE WITH TEST
:GET THE WINDOW
:BR IF BIT IS A SPACE

021264
BIT

ADDRESS

;SET LINE UNIT LOOP

:SET som!

ROMCLK

000004

JR1 CONTAINS BASE DMC11
JMASTER CLEAR DMC1

DATACLK,
2
DATACLK,
1
RORB
R2
BC(
2%
JSR
PC,GETSI

BCS

3%:

2969

TEST 22

122111

000002
000001

SEQ 0058

;ERROR BT WAS A MARK

#RITS,4(RT)
X3
34

:NEXT BIT
;DONE YET?
:BR IF NO
;CLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

:PORT4 LU-13
;RTS SROULD BE CLEAR NOW
:BR IF YES
;ERROR, RTS NOT CLEAR
:SCOPE THIS TEST

JRNRANRNNNRREARRRER
A RNk

JEST

1222

2222 2

s X

R e

R S

R A b}

;*DDCMP TRANSMITTER TEST
J*SINGLE CLOCK A BINARY COUNT PATTERN
;*VERIFY EACH BIT POSITION AS T
;*PASSES THE BIT WINDOW (SI BIT)

*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
;*AND R5 CONTAINS THE CHARACTER THAT FAILED
M IRA AR AR A AN RN AN

;
000023
015460

001226
001216

T3123:

MOV
MOV

T AN A AN AR NN AR A AN RN R NN R A AR RN NN

TEST 23

#2%,_ TSTNO

#TST24 NEXT

AN TN

RN RN

11-SEP-78
CZDME
MACY11 30A(1052)
CZDMEC.P11
11-SEP-78 12:38

YL ER P
i
R
Y|
=0
=DAN= = PNWNO = =N NN
NWNNVIWVINWWNINO
N 2N O
Ny = IS —2

MSTCLR
MOV
CLR

204000

CLR

026526
000001

CLR
JSR
MOV

000004

122111
JSR

026526
000004

MOV
ROMCLK

122110
INC
SR
MOV

026526
000004

026374
000002
000001

ROMCLK
122110

A
¥
1%:

3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3630

015402
015404
015406
015410
015414
015416
015420
015420
015422
015426
(015430
015432
015436
015442
015444
015446
015450
015454
015456

103406
1
0004
004737
103001
104006
005203
022703
001357
005204
004737
010461
104414
122110
005205
022705
001342
10440C

026342

2 ¥
3%:

00000
026526
000004

5%:

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11
;SET LINE UNIT LOOP
;R3 CONTAINS BIT COUNT
;R4 CONTAINS CHAR TO BE LOADED IN SILO

MITIT, (RD)
R3

R4
RS

;R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT

;JWAIT FOR OUT-READY

JSET BITO IN PORT4

#1,4(R1)

SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;SET _SOMm!
JWAIT FOR OUT~READY
;LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
;LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER

PC,OUTRDY

R4 ,4(RT)

R&4

PC,OUTRDY

;WAIT FOR OUT-READY

;LOAD PORT4 WITH CHARACTER
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

R4 ,4(RT)

;LOAD OUT DATA
JWAIT FOR OCOR TO SET

PC,OCOR
JSR
DATACLK,
2
R3
CLR
RS.RZ
MOV
DATACLK,
R2
RORB
BCC
2%
PC,GETS]
JSR
B8CS
3%
HLT
6
B8R
33
JSR
PC,GETSI
BC(C
33
HLT
6

INC
(MP
BNE
INC
JSR
MOV

INC
(MP
BNE
SCOPE

;2 TICKS TO SET UP TRANSMITTER
;CLEAR BIT COUNTER
;LOAD CHARACTER IN RZ
JSHIFT NEXT BIT

;CONTINE WITH TEST
JGET THE WINDOW
;BR IF BIT IS A SPACE
JERROR BIT WAS A MARK
JNEXT BIT
sDONE YET?
JBR IF NO
sNEXT CHARACTER

PC,OUTRDY

JWAIT FOR QUT-READY

RG.4(R1)

;LOAD PORT4 WITH CHARACTER
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:LOAD OUT DATA
JNEXT CHARACTER
;DONE YET?
JBR IF NO
.SCOPE THIS TEST

#400,RS
43

JRRARNSRAN

nnwwrnennnwnnwrn

“«DDCMP STRIP SYNC TEST
J*SET LU LOOP,

IN THE WINDOW (S BIT)

sSHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR IF CARRY CLEAR
JGET THE WINDOW
;BR IF BIT IS A MARK
;ERROR BIT WAS A SPA(CE

#10,R3
1$
R4

ROMCLK
122110

000400

SEQ 0059

PC,OUTRDY

ROMCLK

FREERS

pry
]V,]
—
(A LV, ]

g
(9419,

eleoleolelela]

104412
012711
005003

883328532
SRRSRRURS

015266
015270
015274

——
|9,]

2986
2987
2988

12:45
PAGE 59
BASIC TRANSMITTER TESTS

SINGLE

JEST

annenennnnnnntnnasnvannnnen

STEP S SYNCS,

J*VERIFY THAT IN ACTIVE DOES NOT SET

;:."‘fi'ti’.fittfii"t".'lttt.'.lt'.t..I'tt't.itt"l't'l‘t"'t".fi

TEST s

CZDME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P11
11-SEP-78 12:38

3041
3042

015460
015466

012737
012737

000024
015546

12:45
PAGE 60
BASIC RECEIVER TESTS

001226
001216

TSTZ24:

SEQ 0060

MOV
MOV

#24,TSTNO
NTST2S5 NEXT

004000
000012
026412

MSTCLR
MOV
MOV
JSR

#12,R2
PC,SYNC

000054

DATACLK,

#8IT11, (R1)

ROMCLK

021244

000004
000277

MOV
BIC

CLR

CMPS

1%:

BEQ
HLT
SCOPE

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;SET LU LOOP
JSAVE LU REG FOR TYPEOUT
;SINGLE CLOCK S SYNC CHARACTERS
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

;PORT4_LUT?

;PUT 'FOUND'' IN R4

4(R1) R4
#277 R4
RS
R5.R4
1%
40

sCLEAR UNWANTED BITS

JPUT

"EXPECTED'' IN RS

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

JRRNRARARNANCRANSAOANNRARARE

JEST

Ao aananananaaawntaanrhhhnnn

;*DDCMP IN ACTIVE TEST
J*SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301)
;*VERIFY THAT IN ACTIVE IS SET

000025

015636

001226
001216

TST2S5:

004600
000012
026412

015616
015622
015626
015630
015632
015634

042704
012705
120504
001401
104040
104400

AR AARN AR NN

MOV
MOV

#25,TSTNO
H#TST26 ,NEXT

MSTCLR
MOV
MOV
JSR

#MIT11, (R1)
#12,R2

5
DATACLK,

000064

3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095

. IRANARRA

PC,SYNC

ROM(CLK

021244

000004
000277

MOV
BIC

000100

MOV
(MP8B

1%:

BEQ
HLT
SCOPE

A AN R AN AR

RN N AN

N ARA

sR1T CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;SET LU LOOP
sSAVE LU REG FOR TYPEOUT
JSINGLE CLOCK 5 SYNC CHARACTERS
sNEXT WORC IS INSTRUCTION, ROMCLK PC=5304

JPORT4 LUT2

4(R1) R4
#277 ,R4

:PUT "FOUND'' IN R4

R5.R4

;IS ACTIVE SET?
:BR IF YES
JERROR ACTIVE IS NOT SET

#B1T6,RS
1%

AANNANRANANNANNRNNNAAAY

;CLEAR UNWANTED BITS

:PUT "EXPECTED'' IN RS

:SCOPE THIS TEST

JRNNRNRNRRR
R ne v nnbanwnkwnn

JEST

mawnnnannanrnntsrnnatnanntnns

;*DDCMP IN ACTIVE TEST
J*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON-SYNC
;*VERIFY THAT IN ACTIVE DOES NOT SET

(301)

"_'t"itttt"i.ttiltfil‘fiiittt..Qt.tttt.t'tttttl"i'.tfittfi!.i'l"

CZDME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P11

3097
3098
3099

012737
012737

015652
015654

000026
0157264

001226
001216

TST26:

MOV
MOV

004000
000012
026412

#8IT11,(R1)
#12,R2

MOV
#SR

000024

PC,SYNC

DATACLK,

ROMCLK

021244
MOV
BIC
CLR
CMPS

000004
000277

015722

1%:

SEQ 0061

#26,TSTNO
#TST27 NEXT

MSTCLR
MOV

RS
RS.R6
1%
40

012737
012737

SR EEGENRRRINDS
=C OO NOWNINWN
=
OV~
NS W

IS INSTRUCTION,

104412

012711
012702
004737
000002
104415

000027
016014

001226
001216

TS1E7:

MOV

TEST

ANt aaaaa ARt a R

#TST30, NEXT
#1711, (R1)
#12,R2
PC,SYNC

MOV
5SR

000034

DATACLK,

ROMCLK

021244

000004
000277
000100

MOV
8IC

4(R1) R4
#277 R4

HLT

MOV
(MP8
BEQ
1%:

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

AN AR RARRAR

(301)

ARARNNRA R AR RANANRR AR

#27.TSTNO

MOV

MSTCLR
MOV

004000
000012
026412

ROMCLK PC=5304

TEST 27

#B1T6,RS
R5.R4
1%

SCOPE

JR1 CONTAINS BASE DM(C11
MASTER CLEAR DMCT1
;SET LU LOOP

ADDRESS

sSAVE LU REG FOR TYPEQUT
sSINGLE CLOCK 2 SYNC CHARACTERS

JNEXT WORD

JPORT4 _LUT2

INSTRUCTION,

ROMCLK P(C=5304

;PUT "FOUND'' IN R4
;CLEAR UNWANTED BITS

JPUT "EXPECTED'' IN RS
;1S ACTIVE SET?

JBR IF

YES

;SCOPE

THIS

JERROR ACTIVE

cntnnnnnnnanknenwrrannwnnant

TEST

IS NOT

TEST

SET

anmnnnnnnnnnnananneenrnnnnn

;*IN CLEAR TEST
J*SYNC UP RECEJVER AND TRANSMIT A (CHARA(TER
J*WAIT FOR

IN RDY,

THEN SET

IN CLEAR

J*VERIFY THAT IN ACTIVE AND IN RDY ARE (LEARED
. AR

RN AN AR AR TR AR NN RRAN N AN RNRNANRAAN

ek md ek
d

NN N N NN

ity —

d =

(%, W DS

b b

b ad

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

JNEXT WORD

SYNC CHARACTERS

;*DDCMP IN ACTIVE TEST
;*SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC
J*VERIFY THAT IN ACTIVE IS SET

3152

sSAVE LU REG FOR TYPEOUT

sSINGLE CLOCK 1

;BR IF YES
;ERROR ACTIVE IS NOT CLEAR
;SCOPE THIS TEST

RN AN R R R R R

3129

ADDRESS

;PORT4 _LU12
;PUT 'FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S ACTIVE CLEAR?

4(R1) R4
#277 R4

BEQ
HLT
SCOPE

;R1 CONTAINS BASE DMC11
JMASTER CLEAR DMC11
;SET LU LOOP

IRRNRCRARRRRCAARRAARRRARNAAN

_._a__._a_a._;_a.a_a..a_a_a_a_a_as_a

NN N NN N AN NN NN NN NN NN

D
Db
(@]
Choon*UO\unbkuhu—flcfizaa~48hfiia

3101
3102
3103

015636
015644

12:45
PAGE 61
BASIC RECEIVER TESTS

TEST 30

AN NN RN TP AANNNARAAN R

CZOME

MACY11

CZOMEC.P11

3153
3154
3155
3156
3157
3158
3159
3160
3161
3162

3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3176
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
%}3;

30A(1052)

11-SEP-78

11-SEP-78 12:38

016014
016022

012737
012737

016030
016032
016036
016042
016046

104412
012702
012711
004737
000301

016054
016060
016062
016064
016070
016074
016100
016102
016104
016106
016106
0161146
016116
016120
016122
016124
016130
016134
016136
016140
016142
016144
016144
016150
016154
016156
016160
016162
016164

104416
104414
021244
016104
042704
012705
120504
001401
104040

000002

012761
104414
122112
104414
021244
016104
042704
005005
120504
001401
104040

000200

0161064
042704
005005
120504
001401
104040
104400

000004
000357

016050

104415

000030
016166

12:45

001226
001216

PAGE 62

BASIC RECEIVER TESTS

TST30:

000012
004000
026560
000053

:
MOV
MOV

==
#30,TSTNO
#TST31 _NEXT

MSTCLR
MOV
MOV
JSR
301

#12,R2
#IT11,(R1)
PC,CHAR

DATACLK,

000004
000357
000020

000004

1%:

000004
000277

2%:

3193

SEQ 0062

TIMER,
ROMCLK
021244
MOV
BIC
MOV
CMPB
BEQ
HLT
MOV
ROMCLK
122112
ROMCLK
021244
MOV
BIC
CLR
CMP8
BEQ
HLT
MOV
BIC
CLR
(MPB
BEQ
HLT
SCOPE

4(R1) R4
#357 R4
#3174 RS
RS ,Ré
1%
40
MIT? 4(RY)

4(R1) RS
8277 R4
RS
R5.R%
2%
4«0
4(R1) R4
#357 R4
RS
R5.R4
3%
40

sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
sSAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYNCS
JAND A NON-SYNC
(301)
:SINGLE CLOCK THE DATA

WAIT FOR INRDY
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;JPORT4 LU 12
;PUT 'FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'"
IN RS
;1S INRDY SET?
;ERROR,

INRDY IS NOT SET

;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
SET IN CLEAR
SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;JPORT4 LU 12
;PUT *FOUND'' IN Ré
;CLEAR UNWANTED BITS
JPUT "EXPECTED'' IN RS
;IS IN ACTIVE CLEAR?
JERROR,

IN ACTIVE IS NOT CLEAR

JPUT "FOUND'' IN R4
sCLEAR UNWANTED BITS
JPUT "EXPECTED'’ IN RS
;IS INRDY CLEARED?
JERROR, INRDY IS NOT CLEARED
;SCOPE THIS TEST

2194

JNRRRRkkaanrnnnnnrnnannenntnn

3195
3196
3197

;*DDCMP BASIC RECEICER TEST
s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARA(CTER 0
J*VERIFY THAT IN RDY IS SET, AND THAT THE (HARA(CTER WAS RECEIVED

3199
ggg?

3198

3202
3203
3204
3205
3206
3207
3208

TEST

]

annnnnwannennnnnnnnnnnennnnsy

IR ANA AR AR AR R AN N AR AR A AR AR A NI AR R A NN AN AR AR SRR NN NN

016166
016174

012737
012737

016202
016204
016210
016214

104412
012702
012711
004737

000031
016302
000012
004000
026560

001226
001216

T1ST31:

NI A R AR NNRNRER

TEST 3

MOV
MOV

#31,TSTNO
#TST32 NEXT

MSTCLR
MOV
MOV
JSR

#12,R2
711, (R
P(,(HAR

JR1 CONTAINS BASE DM(C11 ADDRESS
JMASTER CLEAR DMC1
JSAVE REG ADDRESS IN R2 FOR TYPEOQUT

JSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYN(S

MACY11
1"

11-SEP-78
30A(1052)
11-SEP-78 12:38

12:45
PAGE 63
BASIC RECEIVER TESTS

016220

0
DATACLK,
TIMER,

ROMCLK

NOMNESS
NP

3228
32

2%:

JWAIT FOR INRDY
JNEXT WORD

INSTRUCTION,

4(R1) RS
#357 R4

BEQ
HLT

1%
40

JERROR,

021204
MOV
CLR

000004

JAND THE CHARACTER 0
;SINGLE CLOCK THE DATA

;PORT4 LU 12
;PUT ‘FOUND'' IN R4
;CLEAR UNWANTED BITS

#BIT4 RS
R5,R4

INRDY IS NOT SET

JNEXT WORD

INSTRUCTION,

JPORT4 _IN DATA
;PUT "FOUND'' IN Ré
JPUT "EXPECTED'' IN RS

4(R1) R4
RS

g?gs

gg,Ré

JWAS A O RECEIVED?

HLT

JERROR,

SCOPE

ROMCLK P(C=5304

JPUT "EXPECTED'®
IN RS
;IS INRDY SET?

ROMCLK

RIRKIKIKOK*
NINIPININUN

)
N P

SEQ 0063

021244
MOV
BIC
MOV
(MP8

2OV

~NONS WO

RIKIKKKIKIOKIKK
i i S Sl i S i
s Srd

CZOME
4

;SCOPE

JRRRRRRKARARNRARRAANANKARANR

ROMCLK PC=5304

RECEIVED DATA IS WRONG

THIS TEST

TEST

Anaana

a e At

An N

.*DDCMP BASIC RECEICER TEST

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

AR N AN R RN A AR R R R

R A RN R AR AN AN

AN R R R AN A AN NN RN NNRARA AR AR ARANNNNRN

TEST 32

016302
016310

0
0

016316
016320
016324
016330

104412
0
0

00003
016420

016334
016336

pury

104
705

504
401
010

MOV

MSTCLR

MOV
MOV
JSR

125

000053
000002

DATA(CLK,
TIMER,
ROMCLK

021244
MOV
8IC

000004
000357
000020

-—

—=OQO0O0O—~
3N
= =R
R
HNLONHN
=R

204

TST32:

000012
004000
026560

(NN

—

——h

001226
001216

MOV
(MP8
BEQ
HLT

#32,TSTNO

#TST33 NEXT
#12,R2

#MIT11,(R1)
PC,CHAR
¢

4(R1) R4

#357 R4
MIT4 RS
RS.R4
1%
40

ROMCLK

000004
000125

021204

MOV
MOV
(s

HLT

;R1T CONTAINS BASE DMC11
JMASTER CLEAR DMC11

;SAVE REG ADDRESS IN R2 FOR TYPEOUT
JSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYNCS

JAND THE CHARACTER 125

;SINGLE CLOCK THE DATA

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION,

JPORTS LU 12
JPUT “FOUND'' IN R4
;JCLEAR UNWANTED BITS

[

ROMCLK PC=5304

;JPUT "EXPECTED'' IN RS
;1S INRDY SET?
;ERROR,

INRDY

JNEXT WORD

4(R1) R4
#125,RS
SRl

ADDRESS

;JPORT4 _IN DATA

IS NOT SET
INSTRUCTION,

ROMCLK PC=5304

;PUT "FOUND'' IN R4
;PUT "EXPECTED'' IN RS
‘WAS A 125 RECEIVED?

JERROR, RECEIVED DATA IS WRONG

CZOME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P11
11-SEP~78 12:38

3265

3565

016416

12:45
PAGE 64
BASIC RECEIVER TESTS

104400

2%:

SCOPE

SEQ 0064

;SCOPE THIS TEST

3268

JENRRNRANARRRAAANACANRRANRRNY

3269
3270
3271

;*DDCMP BASIC RECEICER TEST
s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252
;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED

3272

3273

%S;é

3276
3277
3278
379
3280
3281

;
016420
016426

012737
012737

3291
3292
3293

016434
016436
016442
016446
016452
016454
016460
016464
016466
016470
016474
016500
016504
016506
8}22}3

104412
012702
012711
004737
000252
104415
104416
104414
021244
016104
042704
012705
120504
001401
104040

3295
3296
3297
3298
3299
3300
3301
g;g%

016512
016514
016516
016522
016526
016530
016532
C16534

104414
021204
016104
012705
120504
001401
104010
104400

3283

3285
3286
3287
2

3289

000033
016536

001226
001216

TST33:

AR A AR AR R AR AR AR AR AR AR AN

MOV
MOV

#33,TSTNO
HTST34 NEXT

2%:

ROMCLK
021204
MOV
MOV
(MPB
BEQ
HLT
SCOPE

000053

000002
000004

000357
000020

000004
000252

3304

waatana et

AN AR

e aanvnerntdnnnn

A NN NANAANRANANNRAN

TEST 33

MSTCLR
MOV
#12,R2
MOV
#IT11,(R1)
JSR
PC,CHAR
252
DATACLK,
53
TIMER,
2
ROMCLK
021244
MOV
4(R1) R4
8IC
#357 .R4
MOV
#BIT4 RS
CMPB
R5,R4
BEQ
1%
HLT
40

000012
004000
026560

TEST

4(R1) ,R4
#252 RS
RS ,R4
P 3
10

;R1 CONTAINS BASE OMC11 ADDRESS
JMASTER CLEAR DM(C11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYNCS
JAND THE CHARACTER 252
;SINGLE CLOCK THE DATA
JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JPORTSG LU 12
JPUT "FOUND'’ IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S INRDY SET?
JERROR, INRDY IS NOT SET
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _IN DATA
;PUT 'FOUND'' IN R4
JPUT "EXPECTED'' IN RS
SJWAS A 252 RECEIVED?
;ERROR, RECEIVED DATA IS WRONG
sSCOPE THIS TEST

2205

JRNKARRARARKRARRNRARANRAS
AN,

3306
3307

;*DDCMP BASIC RECEICER TEST
s*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377

3309

3308

aanaanaananntaanennsatannns

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

3310

%g};

3313
3314
3315
3316
3317
3318
3319
3320

TEST

016536
016544

012737
012737

016552
016554
016560
016564
016570

104412
012702
012711
004737
000377

0000346
016654
000012
004000
026560

001226
001216

T1ST34:

AR AR R AR AR AR AR

R AN AR AN RN A NN AR AR AR A NN

AN ARRARR AR RN

AN RRR AN NS

TEST 34

MOV
MOV

#34,TSTNO
#TST35 NEXT

MSTCLR
MOV
MOV
JSR
377

#12 ,Re
MIT1T,(RY)
FC,(HAR

;JR1T CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
;SAVE REG ADDRESS IN RZ FOR TYPEOQOUT
JSET LINE UNIT LOOP
JLOAD SILO WITH 3 SYNCS
JAND THE CHARACTER 377

104415
104416

12:45
PAGE 65
BASIC RECEIVER TESTS

000053
000002

DATACLK,

016612

1%:

MOV
BIC
MOV
MP8
BEQ
HLT

4(R1) R4
#357 R4

2%:

sSINGLE CLOCK THE DATA
JWAIT FOR_INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LU 12

:PUT ‘FOUNDTM IN Ré

;CLEAR UNWANTED BITS

;PUT 'EXPECTED'® IN RS

#BIT4 RS
R5.R4

;1S INRDY SET?

;ERROR,

ROMCLK

021204

000004
000377

TIMER,
ROMCLK

021244

000004
000357
000020

SEQ 0065

lehD"IN R4

4(R1) R4
#377

MOV
MOV
MP8
BEQ
HLT
SCOPE

PUT "EXPECTED'‘ IN RS
JWAS A 377 RECEIVED?

RS5.R4
2%
10

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

JRRNRNANRARARARNERRRARnnannt

:*DDCMP DATA TEST

s*THIS

INRDY IS NOT SET

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORT4 IN DAT

016572
016576
016602
016604
016606

30A(1052)
11-SEP-78
11-SeP-78 12:38

p o 13

MACY11

CZOME

CZDMEC.P11

TEST SINGLE

TEST

sanananannnanananannnvnnann

STEPS A BINARY COUNT PATTERN

s*CHECKING EACH CHARACTER AS IT IS RECEIVED
S IRRARRARA R AR

AR NN

AAANA

AARANARR

NN ARAANAANRNNRRRA NN A AN RN

TEST 35

000035

017004

001226
001216

TST35:

027176
027200

MOV
MOV

#35,TSTNO
#TST36,NEXT

MSTCLR
CLR
CLR

SCHAR
STUFLG

CLR
MOV
MOV

000073

JSR

016740
016744
016746
016750
016752
016754
016756
016762
016764
016766

016770
016774

0
0
0

DATACLK,
DATACLK

027202

JSR

ROMCLK

021204

000004

000400

026736
000073

2%:

R2
#73,R3
MIT11,(R1)
PC,SILOLD
PC.,INRDY

43
730

MOV
MOV
CMPR
BEQ

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

INC
CMP
BEQ
DEC
BNE
JSR

R2
#400,R2
3%
R3
4$
SILOLD

HLT

MOV

073 R3

:R1 CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DMC11
:START BINARY COUNT AT ZERO
:CLEAR BITSTUFF FLAG
RS IS “EXPECTED'' DATA
:R3_IS CHARACTER COUNT
:SET LINE UNIT LOOP

: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
:PORT4_IN DATA

:PUT "FOUND'' IN R4

IN RS
:PUT "EXPECTED''

;1S DATA CORRECT?
:BR_IF YES
:DATA ERROR
NEXT CHARACTER

JALL DONE?

JBR IF YES
;DECREMENT CHARACTER COUNT
;BRIF SILO NOT EMP1Y

:LOAD SILO WITH MORE OF COUNT PATTERN
JRELOAD CHARACTER COUNT

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP~-78 12:38

3377
3378

017000
017002

12:45
PAGE 66
BASIC RECEIVER TESTS

000751
104400

3%:

B8R
SCOPE

SEQ 0066

s CONT INUE
;SCOPE THIS TEST

3781

JNRRARRRARANRRARRANRRAAARNANY

3382
2383
3384
3385
3386

;*DDCMP DATA TEST
;J«THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
;*CHECKING EACH CHARACTER AS IT IS RECEIVED
J*«THIS TEST IS EXACTLY THE SAME AS THE LAST TEST,
s*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12

3387

PIRAREAA AR

3388

%%gg

3391
3392
3393
3394
3305
3396
3397
3398
3399
3400
3401
3402
3403
3604
3405

;
017004
017012

012737
012737

017020
017022
017026
017032
017034
017040
017042
017050

104412
005037
005037
005002
012703
005011
C12761
104414

017052
017054
017060
017064

122112
004737
104415
104415

3406
3607
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
34619

017070
017074
017076
017100
017106
017106
017110
017112
017114
017116
017122
017124
017126
017130

004737
104414
021204
016104
010205
120504
001401
104010
005202
022702
001407
005303
001360
004737

3421
gzs%

017140
017142

000751
104400

320

3424

017134

012703

000036
017144

001226
001216

TST36:

027176
027200
000073
000040
026736
000043
000730

027202

000004

1%:
4%

000004

000400

2%:

026736

000073
3%:

360

ANt anaaan

AR AR AR A NRNNRA AR NRRNNRAA RN AR

#36,TSTNO
ATST37 NEXT

MSTCLR
CLR
(LR
CLR
MOV
CLR
MOV
ROMCLK

AR AR RRRARR RN

SCHAR
STUFLG
R2
#73,R3
(R1)
#BI1T5,4(R1)

JSR

PC,INRDY

122112
JSR
PC.SILOLD
DATACLK,
43
DATACLK,
730

ROMCLK
021204
MOV
MOV
CMPS
BEQ
HLT
INC
CMP
BEQ
DEC
BNE
JSR

B8R
SCOPE

4(R1) ,R4
R2,RS
RS,R4
’$
10
R2
#6400 ,R2
3%
R3
4%
PC,SILOLD

#7%.R3
1%

:R1 CQNTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;START BINARY COUNT AT ZERO
: CLEAR BITSTUFF FLAG
JR2 IS "EXPECTED'' DATA
;R3 IS CHARACTER COUNT
sCLEAR LU LOOP IN MAINT REG
.LOAD PORTS4
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

JSET LU LOOP IN LU REG 12
JLOAD SILO WITH COUNT PATTERN
cSYNC RECEIVER AND GET IT ACTIVE
;CLOCK IN 73 CHARACTERS

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PORT4 _IN DATA
;PUT "FOUND'' IN R4
JPUT "EXPECTED'' IN RS
;1S DATA CORRECT?
;BR IF YES
:DATA ERROR
JNEXT CHARACTER
;ALL DONE?
JBR IF YES
;DECREMENT CHARACTER COUNT
;BR IF SILO NOT EMPTY
cLOAD SILO WITH MORE OF COUNT PATTERN

:RELOAD CHARACTER COUNT

2 CONT INUE
;SCOPE THIS TEST

3425

INKRRRARARARKNNARRRARARAANNN

3426

;*TRANSMITTER MARK TEST

TEST

AN A

At v

34627

J*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA

3431

;:*fitt*tt

3428
3429
2430

ke aan e a e vt e vt nnn

TEST 36

MOV
MOV

MOV

TEST

Ak A AN AN AR

J«CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377
J*WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT
;*TO A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY

482828022280 22d22R2f22828233232 832X 3R 2R X R RR R E R X REY

CZOME
MACY11 30A(1052) 21}§SEP-78
CZDMEC.P11
11-SEP-78
1

12:45
PAGE 67
BASIC RECEIVER TESTS

§233
3435
3436
3437
3,38
3439
3440
341
36462
3443
344
3445
3446
3447
3448
3449
3450
3451
3452
353
3454
3455
3456
3457
3458
3459
3660
3461
3462
3463
3464
3465
3466
gzgg

:
017144
017152

012737
012737

017160
017162
0171
017172
017176
017200
017206
017206
017210
017214
017220
017222
017224
017226
017232
017234
017236
017242
017246
017250
017252
017254
017260
017262
017264
017270
017274
017276

104412
012711
004737
000301
106415
004737
104414
021204
016104
012705
120504
001401
104010
004737
104414
021204
016104
012705
120504
001407
104010
004737
104414
021204
016104
012705
120504
001401

017300
017302

200037
017304

001226
001216

T1ST37:

004000
026560
000073
027202
000004
000301

027202

1%:

000004
000377

027202

2%:

000004
000377

104010
104400

3469

SEQ 0067

TEST 37

MOV
MOV

#37,TSTNO
H#TSTLN NEXT

MSTCLR
MOV
#IT11, (R1)
JSR
PC,CHAR
301
DATACLK,
73
JSR
PC, INRDY
ROMCLK
021204
MOV
4(R1) ,Ré
MOV
#301,RS
CMPB
RS,R4
BEQ
1%
HLT
10
JSR
PC, INRDY
ROMCLK
021204
MOV
4(R1) ,R4
MOV
#377.RS
CMPB
RS,R4
BEQ
2$
HLT
10
JSR
PC, INRDY
ROMCLK
021204
MOV
4(R1) RS
MOV
#377 RS
CMPB
RS,R4
BEQ
3s
HLT
SCOPE

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
JSET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
JAND A 301
;CLOCK THE 301 IN AND 20 EXTRA TICKS
WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 _IN DATA
JPUT 'FOUND'' IN R4
;PUT "EXPECTED'' IN RS
:WAS A 301 RECEIVED?
:ERROR FIRST CHARACTER INCORRECT
:WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 _IN DATA
JPUT "FOUND'' IN R4
JPUT "EXPECTED'' IN RS
:WAS A 377 RECEIVED?
:ERROR, 377 WAS NOT RECEIVED
;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 IN DATA

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

:ERROR, 377 WAS NOT RECEIVED
:SCOPE THIS TEST

3470

JHNRNNRRAARARREAR
AR AR AR
s

371
3472
3473
374

;*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, SET DTR
J*VERIFY THAT MODEM READY IS SET
:*CLEAR DTR, VERIFY THAT MRDY IS CLEARED

3475

" TRR AR AR AR AR AR

3476

gz;g

;

379
3480
3481
3482
3683

017304
017312

012737
012737

017320
017322

104412
032737

3485
3486
3487
3488

017332
01730
01732
0173%4

032737
001451
005011
0127617

3484

017330

001004

000040
017466

001226
001216

020000

001366

040000

001366

000100

000004

TST40:

R R AN AR AR R

TEST

[ 2222323223232 22222222202 22

AN RRANNANRRAARNNARRARNRARNRARANRAARRNNANNAENRNR

TEST 40

MOV
MOV

#40,TSTNO
#TST4LT NEXT

MSTCLR
BIT

#MIT13,STATI

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(11
;IS LINE UNIT M8202?

BIT
BEQ
(LR
MOV

#81T14,STATI
2%
(1)
#100,4(R1)

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

BNE

L4112

‘BR IF YES (DO TEST EVEN IF NC LOOP-BACK CONN)

11-SEP-78
CZDME
MACY11 30A(1052)
4 OMEC.PN
11-SEP-78 12:38

017352
017354

104414
122113
1044616
104414

021264

12:45
PAGE 68
BASIC RECEIVER TESTS

SEQ 0068

ROMCLK

122113
TIMER,

000002

ROMCLK

021264
MOV
BIC
MOV
CMPB

000004
000223
000110

000004

1%:

ROMCLK

122113

000002

:NEXT WORD_IS INSTRUCTION, ROMCLK PC=5304

18
1
4(R1)

4(R1) R4
#223,R4

;ERROR, MRDY NOT SET
:CLEAR PORT4
INEXT WORD

BEQ
HLT

INSTRUCTION,

ROMCLK PC=5304

;NEXT WORD_IS

INSTRUCTION,

ROMCLK PC=5304

:PORT4_LU13

SCOPE

:CLEAR DTR

RS
#BIT13,STAT1
. +6
#1T3,RS
R5.R4
28

BIS
C(MPB
2%:

4(R1) R4
#223.R4
#110.R5
RS,R4

*PORT4_LU13
:PUT 'FOUND'* IN R4
:CLEAR UNWANTED BITS
:PUT "EXPECTED''
IN RS
:1S MRDY SET?

MOV
BIC
BEQ

000010

:SET DTR
SWAIT

CLR
BIT

001366

TIMER,
ROMCLK

021264

000004
000223

020000

BEQ
HLT
CLR

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PUT "FOUND'* IN R4
:CLEAR UNWANTED BITS

:PUT "EXPECTED'*
IN RS
:IS LINE UNIT M8202?
BR IF NO
MRDY SET ON M8202
1S MRDY CLEAR?
:ERROR, MRLY NOT CLEAR

SCOPE

IRRRERRARANNANRATARNAARANNANE

"THIS TEST

TEST

an e A

A A

kA kA

kAR R

AN Ak

s*CABLE TURNAROUND TEST
s*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO
J*VERIFY THAT ALL MODEM SIGNALS ARE SET
IR

012737
012737

000041
017532

001226
001216

020000

001366

040000

001366

004000
000100

000094

000002
000001

027644

T1ST41:

AR AR AR AR AR R

MOV

MOV
MSTCLR

BIT
BNE
BIT
BEQ

MOV
MOV
ROMCLK

122113

000004

TIMER,
MOV
ROMCLK
122111

JSR

MESDAT
64.

A AR A AN AR

AR AN RNNARANRARRAANRARANA
A RN RRR AN
ANR

#41,TSTNO

#TST62 NEXT

#31T13,STATI
.12
#BIT14,STATT
1%

#81T11,(RY)
#100,
4(RT)
2
#1,4(R1)

RS ,MESLD

:R1 CONTAINS BASE DMC11
JMASTER CLEAR DM(C11

ADDRESS

;1S LINE UNIT MB202?
;BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN)
2 1S TURNAROUND CONNECTOR ON?
;SKIP TEST IF NO
;SET LINE UNIT LOOP
:LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;CLEAR ALL MODEM SIGNALS,EXCEPT DTR

JWAIT
;LOAD PORT4
;NEXT WORD IS
JSET SOM

INSTRUCTION,

;FILL OUT DATA SILO
;WITH 64

CHARACTERS

ROMCLK PC=5304

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1T
11-SEP=-78 12:38

3545
3546
3547
3548
35649
3550
3551
3552
3553
3554
3555
3556
3557
%ggg

017570
017574
017576
017576
017600
017602
017606
017612
017616
017620
017622
017624
017626
017630

012700
005011
104414
021264
016104
042704
012705
120504
001403
005300
001364
104011
104400

12:45
PAGE 69
BASIC RECEIVER TESTS

000050
2%:
000004
000223
000154

1%:

3560

MOV
CLR

SEQ 0069

#50,R0
(R1)

ROMCLK
021264
MOV
BIC
MOV
tMP8
BEQ
DEC
BNE
HLT
SCOPE

;PREPARE FOR DELAY
JCLEAR LINE UNIT LOOP
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU13
;PUT 'FOUND''
IN R4
:CLEAR_UNWANTED BITS
JPUT "EXPECTED''
IN RS
;s COMPARE EXPECTED AND FOUND
¢BR IF 0K
;sDEC DELAY COUNT
;JBR IF NOT ZERO
JERROR, ALL SIGNALS ARE NOT SET
;SCOPE THIS TEST

4(R1) R4
#223.R¢
#1564 RS
RS ,R4
1%
RO
2%
11

3561

INKARNNARRNNARARRNRANRARANRY

3562
3563
3564
3565

c*TEST OF CRC OPERATION
J*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
;*0, VERIFY THE LSB OF THE BCC ON EACH SHIFT
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC

2566

3567

%ggg

3570
3571
3572
3573
3574
3575
3576
3577
3578
3579

017632
017640
017646

012737
012737
012737

017654

104412

3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598

017710
017714
017716
017722
017726
017730
017734
017736
017740
017742
017744
017750
017752
017754
017756
017762
017764
017766

3580

3599

3600

017656
017662

017666
017670
017676

017704

017766

017772

012711
004737

005000
012737
012737

005037

004737
000000
104415
104415
005200
004537
000001
000000
000000
103405
004737
103006
104012

000042
020146
017662

120001
000000

017740

T1ST42:

648%:
027342
017736

000021
000001

65%:

027236

6€%:
67%:
027460

006037

017736
02734

68%:
69%:
017740

CLR
MOV
MOV

CLR

027346

027460

MOV
MOV
MOV
MOV
JSR

{20

v ateaara

e e A v kA AN AR AR

AR AR AR AR AN AR AN AN AN ANAAN AR NRNANARRANRANARR AN R AR R

TEST &2

MST(CLR

004000
027706

004737
103401
104016
013737

001226
001216
001220

RN AR R

TEST

#6462 ,TSTNO
#TSTL3 NEXT
#64%,10CK
#MIT11,(RD)
PC.CLRIO

RO
#CRC16,XPOLY
#0,66%

67$

JR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
JSET LU LOOP
;JCLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOFTWARE B(CC
;LOAD CHAR FOR SOF TWARE BC(C

;CLEAR OLD SOF TWARE BC(

JSR
PC,BCCLD
0
DATACLK,
21
DATACLK,
1
INC
RO
JSR
R5,SIMBCC
1
0
0
8Cs
68%
JSR
PC,GETQO
BCC
69%
HLT
12
B8R
69%
JSR
PC,GETQO
B8CS
69%
HLT
16

;LOAD OUT SILO WITH 2 SYNCS
JAND THE CHARACTER 0
JGET TRANSMITTER ACTIVE
JSHIFT BCC ONCE
JBUMP SHIFT COUNT
;CALCULATE SOF TWARE B(CC LSB
JONE SHIFT
;DATA CHARA(CTER
.0LD BC(CC
;BR IF SOFT BCC LSB IS SET
.GET HARDWARE TRANSMITTER B(CC LSB
;BR IF HARD B(C(C LSB IS CLEAR
ERROR, BCC LSB IS SET
. CONT INUE
;GET HARDWARE TRANSMITTER B(( LSB
JBR IF HARD BC(C LSB IS SET
sERROR, HARD BCC LSB IS CLEAR

ROR

:SHIFY SOFT DATA

MOV

608

CALB((,67%

cLOAD OLD SOFT BCC

CZOME

MACY11

CZDMEC.P1T

30A(1052)

3601
2602
3603
3604
3605
3606
3607
3608

020000
020004
020006
020010
020016
020022
020024
020032

022700
001346
104401
012737
004737
005000
012737
012737

3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3626
3625
3626
3627
3628
3629

020044
020050
020052
020056
020062
020064
020070
020072
020074
020076
020100
020104
020106
020110
020112
020116
020120
020122
020122
020126

004737
000000
104415
104415
005200
004537
000001
000000
000000
103405
004737
103006
104013
000404
004737
103401
104017

3631
3632
%ggz

020140
020142
020144

3609

3630

020040

020134

11-SEP-78

11-SEP-78 12:38

005037

006037
013737
022700
001346
104401
104400

12:45

PAGE

000010
020016
027706

001220

120001
000000

027342
020072

020074

71%:

72%:

027236

’38:

74%:

027472

020072
027344
000010

CMP
BNE
SCOP1
MOV
JSR
CLR
MOV
MOV

CLR

027346

000032
000001

BASIC RECEIVER TESTS

75%:

76%:
020074

3635

#10.R0
65%
#71%,L0CK
PC.CLRIO
RO
#CRC16,XPOLY
#0,73%

ROR
MOV
BNE
SCOP1
SCOPE

JDONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (SwW09=1)
;NEW SCOPE1
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO

sLOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BC(C

74$

;CLEAR OLD SOF TWARE BCC

73%
CALB((,74%
#10,R0
72%

JSHIFT SOFT DATA
;LOAD OLD SOFT BC(C(C
;DONE YET?
;BR [F NOT DONE
;SCOPE SUBTEST (Sw09=1)
;SCOPE THIS TEST

JSR
PC.BCCLD
0
DATACLK,
32
DATACLK,
1
INC
RO
JSR
RS,SIMBCC
1
0
0
8(S
75%
JSR
PC,GETQI
BC(
76%
HLT
13
B8R
76%
JSR
PC,GETQI
8(S
76%
HLT
17

CMP

77%:

SEQ 0070

JLOAD OUT SILO WITH 2 SYNCS
JAND THE CHARACTER 0
;JGET RECEIVER ACTIVE
JSHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
JONE SHIFT
;DATA (CHARAC(CTER
;0LD 8CC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
JERROR, BCC LSB IS SET
. CONT INUE
;GET HARDWARE RECEIVER B(C(C LSB
;BR IF HARD BC(C LSB IS SET
JERROR, BCC LSB IS CLEAR

2536

JANNERRNRARANRRANERA
RNk

3638

J*USING THE CRC16 POLYNOM]JAL,

36357

c*TEST OF CRC OPERATION

3639
3640

3642

3643

3645
3646
3647
3648
3649
3650
3651
3652
3653
3656
3655
3656

AR AR A R AR AR R AR RN RN

020146
020154
020162

012737
012737
012737

020170
020172
020176
020202
020204
020212
020220
020226

104412
Q12711
004737
005000
012737
012737
005037
004737

000043
020462
020176

001226
001216
001220

004000
027706
120001
000377
020254
027346

TST43:

6468 :
027342
020252

R AR AR AN A AN AR

R RN R AP AN

AN N AN AN R AN NN R AN R AR A AR AR AR RANAR RN

TEST 43

e m————————————

MOV
MOV
MOV

#43,TSTNO
#TST4L4 NEXT
#6643 ,L0CK

MSTCLR
MOV
JSR
(LR
MOV
MOV
(LR
JSR

#MIT11,(R1)
PC,CLRIC
RO
#CRC16,XPOLY
#377,66%;
67°¢
PC,BCCLD

AR R AR RN

SINGLE CLOCK THE CHARACTER

;*377, VERIFY THE LSB OF THE BCC ON EACH SHIFT
J*TEST TRANSMITTER FIRST THEN THE RECEIVER B(C

2641

3644

[EST

sR1T CONTAINS BASE DM(C11 ADDRESS
JMASTER CLEAR DMC11
SET LY LOOP
;CLEAR BCC REGISTERS
JSTART SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE B((
;LOAD CHAR FOR SOF TWARE B(C
sCLEAR OLD SOF TWARE BC((
JLOAD OQUT SILO WITH 2 SYNCS

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

3657
3658
3659
3660
3661
3662
3663
3664

020230
020232
020236
020242
020244
020250
020252

000377
104415
104415
005200
004537
000001
000000
000000

020260

004737

3670

020272

0004
004737

027460

3674

020302

006037

020252

3676

020314

022700

3675

020306

3679
3680

020324
020332

3682
3683
3684
3685

013737

12:45
PAGE 71
BASIC RECEIVER TESTS

377

000021
9000001

65%:

027236

027460

000010

68%:
69% :

020254

020332
027706

001220

020340
020346
020354
020360

012737
004737
005000
012737
012737
005037
004737

120001
000377
020410
027346

027342
020406

3687
3688

020366
020372

104415
104415

000032
000001

3690

020400

004537

027236

006

020436
020442
020450

006037
013737
022700

0
0

8(CS
JSR
BCC
HLT
BR
JSR
B(CS
HLT
ROR
MOV

(MP
BNE

SCOP1

71%:

MOV
JSR

CLR

MOV
MOV

CLR
JSR

72%:

027472

75%:

76%:

020410

66%
CALBC(C,67%

#10.RO

65%

#71%,L0CK

PC,.CLRIO

#CRC16,XPOLY

#377.75%:
748

PC.BCCLD

DATACLK,
32
DATA(CLK,
1
RO
INC
R5,SIMBC(C
JSR

0
0

BCS
JSR
8CC
HLT
BR
JSR
B8CS
HLT

ROR
MOV
(MP

BNE
SCOP1
SCOPE

;AND THE CHARACTER 377
;GET TRANSMITTER ACTIVE
JSHIFT BCC ONCE
;BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
JONE SHIFT
;DATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
sGET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD B(CC LSB IS CLEAR

JERROR, BCC LSB IS SET
- CONT INUE
:GET HARDWARE TRANSMITTER B(CC LSB
;BR IF HARD BCC LSB IS SET
JERROR, HARD B(CC LSB IS CLEAR

]

73%:
74%:

020406
027344
000010

]

377

027472

3703
37064
3705

DATACLK,
21
DATACLK,
RO
INC
RS.,SIMBCC
JSR
]

66%:
67%:

027344

SEQ 0071

73%

CALBC(C,74%

#1C,R0
72%

sSHIFT SOFT DATA

;LOAD OLD SOFT BCC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (SwW09=1)
sNEW SCOPE1
;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BC(C

;CLEAR OLD SOF TWARE BCC
;LOAD OUT SILO WITH 2 SYNCS

JAND THE CHARACTER 377
;GET RECEIVER ACTIVE
sSHIFT BCC _ONCE
BUMP SHIFT COUNT

;CALCULATE SOFTWARE B(CC LSB
JONE SHIFT
;DATA (CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
s CONT INUE
;GET HARDWARE RECEIVER B(( LSB
;BR IF HARD BCC LSB IS SET
JERROR, BCC LSB IS CLEAR

JSHIFT SOFT DATA
sLOAD OLD SOFT BCC
;DONE YET?
JBR IF NOT DONE
;SCOPE SUBTEST (Sw09-1)
;SCOPE THIS TEST

JRNNRANANE

Chnnshmnnnnnnwnntn

;*TEST OF

(RC OPERATION

[FST

vonnnnrennsvanantannnernnnnn

11-SEP-78
CZDME
MACY11 30A(1052)
CZDMEC.P11
11-SEP-78 12:38

373
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730

12:45
PAGE 72
BASIC RECEIVER TESTS

s*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
;*125, VERIFY THE LSB OF THE BCC ON EACH SHIFT
;*TEST TRANSMITTER FIRST THEN THE RECEIVER BC(CC
s

iRRAAARANAARAA NN AN A AN AR AR ARARNARRAANARRAANAR
AR R ANRANRN AR R RN AN
N

TEST &4

020462
020470
020476

012737
012737
012737

020504
020506
020512
020516

104412
012711
004737
005000

020520
020526
020534

012737
012737
005037

TST44:

000044
020776
020512

004000
027706
120001

000125
020570

64$:

027342
020566

027346

000021
000001

65%:

027236
66$ :
67%:

027460

68$ :
-

020566
027344
000010

001220

120001

027342
020722

000032
000001

71¢:

000000

MOV
MOV

MSTCLR
MOV

#81T11, (R1)
PC.CLRIO

;R1 CONTAINS BASE DMC11 ADDRESS
*MASTER CLEAR DMC11
*SET LU LOOP

0
0
BCS
JSR
BCC
HLT
BR
JSR
8CS

68$
PC.GETQO
69
12
698
PC.GETQO
69%

:DATA CHARACTER
:0LD BCC
:BR IF SOFT BCC LSB IS SET
*GET HARDWARE TRANSMITTER BCC LSB
:BR IF HARD BCC LS8 IS CLEAR
*ERROR, BCC LSB IS SET
* CONT INUE
*GET HARDWARE TRANSMITTER BCC LSB
‘BR IF HARD BCC LSB IS SET

66$
CALBC(,67%

;SHIFT SOFT DATA
*LOAD OLD SOFT BCC

]

ALT

BNE
SCOP1
MOV
JSR

DATACLK

0
0

SONE SHIFT

*ERROR,

#10.R0
65$

#71%,L0CK
PC.CLRIO

RO
#CRC16,XPOLY

#125,7%8;

CLR
74$
JSR
PC.BCCLD
125
DATACLK,
32
INC
JSR

7¢.
74 :

#TST4S NEXT
#64$,L0CK

:CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO
:LOAD POLYNOMIAL FOR SOF TWARE BCC
:LOAD CHAR FOR SOF TWARE B(C
:CLEAR OLD SOF TWARE BCC
*LOAD OUT SILO WITH 2 SYNCS
*AND THE CHARACTER 125
*GET TRANSMITTER ACTIVE
*SHIFT BCC ONCE
‘BUMP SHIFT COUNT
*CALCULATE SOF TWARE BCC LSB

MOV

72%:

#44 ,TSTNO

JSR
CLR
RO
MOV
#CRC16,XPOLY
MOV
#125,66$;
CLR
67
JSR
PC.BCCLD
125
DATACLK,
21
DATACLK .
1
INC
RO
JSR
RS.SIMBCC

(LR
MOV

027236

020724

MOV

ROR
MOV
TMM

020570

020646
027706
000125
020724
027346

3768

SEQ 0072

RO
RS,SIMBCC

HARD BCC

LSB

CLEAR

:DONE YET?
*BR IF NOT DONE
*SCOPE SUBTEST (Sw09=1)
*NEW SCOPE1

*CLEAR BCC REGISTERS

*START SHIFT COUNTER AT ZERO
*LOAD POLYNOMIAL FOR SOF TWARE BCC

‘LGAD CHAR FOR SOF TWARE BC(

*CLEAR OLD SOF TWARE B((
*LOAD OUT SILO WITH 2 SYNCS
‘AND THE CHARACTER 125
*GET RECEIVER ACTIVE

“SHIFT BCC ONCE

‘BUMP SHIFT COUNT
*CALCULATE SOF TWARE B(C LSB

JONE

SHIFT

*DATA CHARACTER
*0LD BC(

11-SEP-78
CZOME
MACY11 30A(7052)
CZDMEC. PN
11-SEP-78 12:38

3769
3770
3771
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783

3784
3785
3786
3787
3788

103405

004737

103006
104013
000404

020752
020756
020764
020770
020772
020774

BCS

027472

004737

027472

006037
013737
022700
001346

020722
027344
000010

103401
104017

76%:

020724

104401
104400

;:BR IF SOFT BCC LS8 IS SET

76$

:BR IF HARD BCC LSB IS CLEAR

PC,GETQI

HLT

*GET HARDWARE RECEIVER BCC LSB
*ERROR, BCC LSB IS SET

76%

*CONTINUE

76$
17

‘BR IF HARD BCC LSB IS SET
*ERROR, BCC LSB IS CLEAR

JSR

PC,GETQI

ROR
MOY

73s
CALBCC.74$

;SHIFT SOFT DATA
:LOAD OLD SOFT BCC

72%

:BR IF NOT DONE
:SCOPE SUBTEST (SW09=1)

BCS
HLT

CTMMP

77%:

75%

JSR

BCC
75%:

SEQ 0073

BNE
5COP1

:GET HARDWARE RECEIVER BCC LSB

#10,R0

*DONE YET?

SCOPE

*SCOPE

INNERARARRANRRARANEARNNARARN

THIS TEST

[EST

mannnmnnannnnennneanantnnnn

;*TEST OF CRC OPERATION
;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE C(HARACTER

;*252, VERIFY THE LSB OF THE BCC ON EACH SHIFT

;*TEST
AR

TRANSMITTER FIRST
AR AR

AR AR

THEN THE RECEIVER BCC

A AN AR

AR AR

AN ANRA AN NN RRARNARAANNRARR N AR RARS

TEST 45

020776
021004
021012
021020
021022
021026
021032

000045
021312
021026

001226
001216
001220

120001

000021
000001

TST4S:

64%:

027342
021102

65%:

RO ORNOONSNO

027460

JSR

PC.BCCLD

021102

69%:

#252,66%;
67%

DATACLK,
21
DATACLK,
1
INC
RO
JSR
R5,SIMBCC
1

0
¢

B8(CS

68%

8C(C

€95

JSR

68%:

#TST46 NEXT
#6468 ,L0CK
MIT11, (R1)
PC,CLRIO
RO
#CRC16,XPOLY

HLT

027460

#45,TSTNO

MOV
JSR
CLR
MOV

252

66%:
67%:

b
b cmad ——d
)
—

MOV
MOV

MOV
CLR

027236

B W2 OV

MOV

MSTCLR

004000
027706
000252
021104
027346

e §EES

3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805

020726

12:45
PAGE 73
BASIC RECEIVER TESTS

PC,GETQD
10

;R1

CONTAINS BASE DMC11

JMASTER CLEAR DMCT1

ADDRESS

sSET LU LOOP
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOF TWARE BC((

;LOAD CHAR FOR SOF TWARE B(C
;CLEAR OLD SOF TWARE BCC

;LOAD OUT SILO WITH 2 SYNCS

JAND THE CHARACTER 252

;GET TRANSMITTER ACTIVE
JSHIFT BCC ONCE
JBUMP SHIFT COUNT
sCALCULATE SOF TWARE BCC LSB
JONE SHIFY

:DATA CHARACTER
;0LD BCC

;BR_IF SOFT BCC LSB IS SET
cGET HARDWARE

TRANSMITTER B(CC LSB

;BR IF HARD BCC LSB IS CLEAR
;ERROR,

BCC LSB IS SET

JERROR,

HARD B(CC LSB

JSHIFT

SOFT DATA

B8R
JSR
B(CS

69%
PC,GETQQC
69%

s CONTINUE
;GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS SET

ROR

66$

HLT

IS CLEAR

'vggrunnuw
oD

—t

—

o
~nN

CZDME
11-SEP-78
MACY11 30A(1052)
P
CZDME C.P11
11-SEP-78 12:38

12:45
PAGE 74
BASIC RECEIVER TESTS

013737
022700
001346

027344
000010

012737
004737
005000
012737

021162
027706

001220

120001

027342
0c1236

104401

000252
021240

021104

SCOP1

027346
72%:

027236

027472

75%:

104017

021272
021300
021304
021306
021310

006037
013737
022700
001346

021236

027344

000010

65%
#71%,L0CK
PC,CLRIO
RO
#CRC16,XPOLY
w2 52,7%8;;
743
PC.BCCLD

DATACLK,
32
DATACLK,
RO
INC
RS5,SIMB(CC
9SR
]

]

73%:
76%:

000404
004737
103401

MOV
JSR
CLR
MOV
MOV
CLR
JSR

252

000032
000001

103006
104013

CALBCC,67%

MOV
CMP
BNE
71%:

SEQ 0074

76%:

75%

B(CS
JSR
8CC
HLT
B8R
JSR
8(CS
HLT

PC,GETQI

76%
13
76%

PC,GETQI

76%

73%

ROR
MOV

021240

104401
104400

0
0

77%:

cMP
BNE
SCOP1
SCOPE

;LOAD OLD SOFT B(CC
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (SW09=1)
sNEW SCOPE1
sCLEAR BCC REGISTERS
sSTART SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BC(CC
;LOAD CHAR FOR SOF TWARE B(CC
;CLEAR OLD SOF TWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
JAND THE CHARACTER 252
;GET RECEIVER ACTIVE
sSHIFT BCC ONCE
JBUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
JONE SHIFT
;DATA CHARACTER
;0LD BCC
;BR_IF SOFT BCC LSB IS SET
sGET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
s CONT INUE
;GET HARDWARE RECEIVER BCC LS3
;BR IF HARD BCC LSB IS SET
;ERROR, BCC LSB IS CLEAR
JSHIFT SOFT DATA
;LOAD OLD SOFT B(CC
;DONE YET?
:BR IF NOT DONE
;SCOPE SUBTEST (SW09=1)
;SCOPE THIS TEST

CALBC(C,74%

#10,R0
72%

IRNRANRRNANARARRRRANARRANRNN

*TRANSMITTER CRC

TEST

anaaa a aa e s a AN CNRRARR

TEST

;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN,
MR

RSR

VERIFY THE LSB OF

ARt

THE

TRANSMITTER BCC ON EACH SHIFT

id il ittt
2222 222 28

TEST 46

021312
021320
021326

000046
021550

001226
001216

004000

021444
120001

027510
000004

TST46:

#66,TSTNO

H#TST47 NEXT

MiT17,(RY)
R

;R1 _CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DM(11
SSET LINE UNIT LOOP
:ZERQ SIT COUNT

R4 CONTAINS CHAR TO BE LOADED

IN SILO

RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

027342

#CRC1€E,XPOLY

:CLEAR SOFT BC(
:LOAD POLYNOMINAL

R&4,4(RT)

:PORT4_CHAR

PC.SYNLD

$LOAD SILO WITH 2 SYNCS, SOM SET

CZDME

MACY11

CZDMEC.P1N

3881
3882
3883
3885

021364
021366
021370
021372
021376

104414
122110
005204
010461
104414

3897
3898
3899
3900
3901
3902
3903
3904
3905
%ggg

021442
021444
021446
021450
0214546
021456
021460
021462
021466
021470

122110
005204
010461
104414
122110
004737
104415
010537
104415
004537
000001
000000
000000
103405
004737
103006
104020
000404
004737
103401
104021

3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918

021472
021472
021476
021504
021506
021512
021514
021516
021520
021524
021526

006037
013737
005203
022703
001346
005003
005204
022704
003404
010461

3920
3921
3922
3923
%ggg

021534
021536
021540
021544
021546

122110
005205
022705
001327
104400

3887
3888
3889
3890
3891
3892
3893
3894
3895

3919

021400
021402
021404
021410
021412
021414
021420
0214246
021430
021434
021440

30A(1052)

021532

11-SEP-78

11-SEP-78 12:38

104414

12:45

PAGE 75

BASIC RECEIVER TESTS

ROMCLK
122110
INC
MOV
ROMCLK

000004

000004
026374
000021
021442
000001
027236

1%:
2%:

3s:
4%:
027460

027460

021442
027344

5%:

6%:

021444

000010

000004

0
0
BCS
JSR
BCC
HLT
BR
JSR
B(CS
HLT

ROR
MOV
INC
(MP
BNE

ROMCLK

9%:

000400

3926

NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
;PORT4 _(CHAR
JNEXT QORD IS INSTRUCTION, ROMCLK P(C=5304

Ré
R4 ,4(R1)

122110
INC
R4
MOV
R4 ,4(RT)
ROMCLK
122110
JSR
PC,0COR
DATACLK,21
MOV
R5,3%
DATACLK,1
JSR
RS.SIMBCC
1

CLR
INC
(MP
BLE
MOV

000400

SEQ 0075

122110
INC
(mMP
BNE
SCOPE

;LOAD OUT DATA
;s INCREMENT TO NEXT CHARACTER
;PORT4 _(HAR
JNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD OUT DATA
JWAIT FOR OCOR
;CLOCK DATA
;LOAD CHAR FOR SOFT (RC
JSHIFT BCC ONCE
s CALCULATE SOFT BCC
;JSOFT SHIFT COUNT

5%
PC,GETQO
6%
20
6%
PC.GETQO
6%
21

;SOFT CHARACTER
;OLD SOFT BCC
;JBR IF SOFT BCC LSB IS SET
;GET HARDWARE TRANSMITTER B8CC LSB
;BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET
JCONTINUE WITH TEST
;GET HARDWARE TRANSMITTER BCC LSR
JBR IF OK (SET)
;ERROR, BCC LSB WAS CLEAR

3$
CALBCC,4%
R3
#10,R3
2%
R3
R4
#400,R4
9%
R4 ,4(R1)

;SHIFT SOFT DATA
JLOAD OLD SOFT BCC
s INCREMENT BIT COUNTER
JDONE A FULL CHARACTER YET?
;BR IF NO
JRESTART BIT COUNTER
s INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?
;BR IF YES
;PORT4_DATA

RS
#400,R5
1%

;LOAD OUT DATA
; INCREMENT DATA
;DONE BINARY PATTERN YET?
;BR IF NO
;SCOPE THIS TEST

;NEXT QORD IS INSTRUCTION, ROMCLK PC=5304

3927

JRRNRRRRANNANNNRANRRARANANAN

3928
3929
3930

s*RECEIVER CRC TEST
J*USING THC CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSS OF THE RECEIVER BCC ON EACH SHIFT

3932
3933

2931

393%

3935

3936

KRR AN A AN

021550
021556

012737
012737

000047
022006

001226
001216

75747:

AN A A

TEST 47

eeceececcccecesees

MOV
MOV

#57,TSTNO

#TSTSO,NEXT

AR AN

TEST

n A

n e R e R AR AR AR AR RN RNANRR

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

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.PI1
11-SEP-78 12:38

3937
3938
3939
3940
3941
3942
3943
3944
3945
3946

(021564
021566
021572
021574
021576
021600
021604
021612
021616

104412
012711
005003
005004
005005
005037
012737
004737
010461

3948
3949

021624
021626

122110
005204

3947 021622 104414
3950

021630

010461

3951 021634 104414
3952

3953
3954
3955
3956
3957
3958

3959
3960
3961
3962

3963
3964
3965
3966
3967
3968
3969
3970
3971
%g;%

021636

005204
010461
104414
122110
004737
104415

021700
021702
021704
021706
021712
021714
021716
021720
021724
021726

000000
000000
103405
004737
103006
104022
000404
004737
103401
104023

010537
104415
004537
000001

2974
3975
3976
3977

021730
021730
021734
021742

006037
013737
005203

3980
3981
3982
3983
3984
3985
3986

021752
021754
021756
021762
021764
021770
021772

005003
005204
022704
003404
010461
104414
122110

3978
3979

3987
3988
3989
%33?

021744
021750

021774
021776
022002
022004

104000

021792
120001
0275'0
000004

027342

000004

022703
001346

005205
022705
001327
104400

#81T11,(R1)
R3
R4
RS
A
#CRC16,XPOLY
PC,SYNLD
R&4,4(R1)

sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11
JSET LINE UNIT LOOP
;ZERO BIT COUNT
;R4 CONTAINS CHAR TO BE LOADED IN SILO
JRS CONTAINS CHAR CURRENTLY BEING SHIFTED ouT
;CLEAR SOFT BCC
;LOAD POLYNOMINAL
JLOAD SILO WITH 2 SYNCS., SOM SET
PORT4 CHAR

122110
INC

Ré

;LOAD OUT DAT
INCREMENT ro NEXT CHARACTER

MOV

ROMCLK

R4 ,4(R1)

122110

000004

026374
000032
021700
000001
027236

1%:
2%:

3%:
4%:
027472

027472

021700
027344

5¢:

6%:
021702

000010

000400

000004

000400

9% :
7% :

SEQ 0076

MSTCLR
MOV
CLR
CLR
CLR
CLR
MOV
JSR
MOV

ROMCLK

122110

021640
021642
021646
021650
021652
021656

021662
021666
021672
021676

12:45
PAGE 76
BASIC RECEIVER TESTS

INC
R4
MOV
R4,4(R1)
ROMCLK
122110
JSR
PC.,OC0R
DATACLK, 3?2

MOV
RS5,3%
DATACLK,1
JSR
R5,SIMBCC
1

SNEXT DORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4
(

SNEXT DORo IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DAT

; INCREMENT TO NEXT CHARACTER
POR
T4 CHAR
*NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
:UAIT FOR OCOR
;CLOCK DATA

0
0
BCS
JSR
BCC
HLT
BR
JSR
BCS
HLT

5%
PC,GETQI
33
22
6%
PC,GETQ]
6%
23

;LOAD CHAR FOR SOFT CRC
JSHIFT BCC ONCE
. CALCULATE SOFT BCC
;SOFT SHIFT COUNT
;SOFT CHARACTER
;0LD SOFT BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER B(CC LSB
:BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
:GET HARDWARE RECEIVER BCC LSB
:BR IF OK (SET)
JERROR, B(CC LSB WAS CLEAR

ROR
MOV
INC

3%
CALB(C,4$
R3

JSHIFT SOFT DATA
;LOAD OLD SOFT BCC
;INCREMENT BIT COUNTER

R3
R4
#600,R4
9%
R4 ,4(RY1)

JRESTART BIT COUNTER
; INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?
;BR ]F YES
;PORT4 DATA
:NEXT QORD IS INSTRUCTION, ROMCLK PC=S304
;LOAD 2UT DATA

cTMMP
BNE

#10,R3
2%

INC
CMP
BNE
SCOPE

R5
#400,R5
1%

CLR
INC
(MP
BLE
MOV
ROMCLK
122110

;DONE A FULL CHARACTER YET?
;BR IF NO

;INCREMENT DATA
:DONE BINARY PATTERN YET?
;BR IF NO
:SCOPE THIS TEST

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

12:45
PAGE 77
BASIC RECEIVER TESTS

3993

SEQ 0077

JRRANRRRARAARRktenrhbnannntn

3994

TEST

wannnannnnenennnnnnnnannnnnn

J*TRANSMITTER DDCMP CRC TEST

3995
3996
3997

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

2099

3998

s*THE TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BC(CC

4000

288;

;

4003

02200¢

012737

288?

022022

104412

4004
4005

022014

012737

000050
022340

001226
001216

TST50:

4031
4032
4033
4034
6035
4036

4037
4038
4039
4040
4041

4042
4043
4044
4045
L0466
4047
4048

AR NN R AR RN N NN

TEST 50

MOV
MOV

#50,TSTNO

#TSTS1 NEXT

;JR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11

;LOAD OUT DATA SILO
022024
022030
022034
022040
022044
022050
022054
022060
022062
022064
022070
022074
022076
022102
022104

012711
012704
005037
012700
004737
004737
004537
030126
000004
004737
004737
005003
104415
112405
010502

004000
030126
022130
000004
027510
026526
027644
027620
026374

000022

12%:

4026
285;
4029
4030

R AR A R A RN A AN N AR A NN AR A AN AN

MSTCLR

2883
4010
4011
4012
4013
6014
4015
4016
4017
4018
4019
4020
4021
4022
4023
285?

A AR RN A AR R AR

MOV
#8IT11,(R1)
MOV
MMESDAT R4
CLR
108
MOV
#4 RO
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS ,MESLD
ME SDAT
4
JSR
PC,EOM
JSR
PC,O0COR
CLR
R3
DATACLK,22
MOVB
(R&) + ,R5
MOV
RS.R2

JSET LINE UNIT LOOP
;LOAD POINTER TO DATA
;CLEAR SOFT BCC
;LOAD CHARACTER COUNT
;LOAD 2 SYNCS IN OUT SILO
JWAIT FOR OUTRDY
JLOAD SILO WITH 4 (CHAR MESS
;ADDRESS OF MESSAGE
;NUMBER OF CHARAC(CTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
JWAIT FOR OCOR
cCLEAR BIT COUNTER
;CLOCK DATA
;LOAD RS WITH CHAR
;LOAD R2 WITH CHAR

JCHECK FJRST FOUR CHARACTER MESSAGE
JIN THE BIT WINDOW (0,125,252.377)
022106
022114

022120
022126
022126
022130
022132
022140

022144
022146
022150
0221564
022156

022160
022162
022166
022170
022172
022172
0221764

012737
010537

004537
000010
000000
000000
013737
104415

106002
103005
004737
103406
104006

000404
004737
103001
104006
005203
022703

120001
022126

027342

027236

027344
000001

022130

67%:
10%:
64%:

026342

65%:
66%:

000010

MOV
MOV

#CRC16,XPOLY
RS5.,67%

RORB
ecc
JSR
B(CS
HLT
BR
JSR
BC(
HLT

R2
65%
PC,GETSI
663
6
66%
PC,GETS!
66%
6

JSHIFT SOFT DATA
JBR IF A SPACE
JLOOK AT BIT WINDOW
:BR [F OK (MARK)
JERROR, BIT WINDOW WAS A SPACE
. CONT INUE
;LOOK AT BIT WINDOW
;BR IF 0K (SPACE)
JERROR, BIT WINDOW WAS A MARK

INC
(MP

RZ
#10,R3

JBUMP BIT COUNTER
JDONE FULL 8 BITS YET

JSR
RS,SIMBCC
10
0
0
MOV
CALBCC,10%
DATACLK,
1

;LOAD POLYNOMIAL
;LOAD SOFT CHAR FOR BC(CC

. CALCULATE SOFT BC(CC
JSHIFT COUNT
;CHARACTER
;0LD BCC
sLOAD SOFT BCC FOR NEXT SHIFT
;SHIFT DATA IN TO BIT WINDOW

AAN

CZOME

MACY11

CZDMEC.P1T

64049
4050
4051
282%

022200
022202
022204
022206

30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

001357
005003
005300
001335

BNE
CLR
DEC
BNE

282%

022210
022214
022220
022222

013700
104415
006000
103005

4062
6063
4064

022232
022234
022236

104014
000404
004737
103001
104014

4065
4066
4067
4068
6069
4070
28;}

022226
022230

022242
022244
022246
022246
022250
022254
022256

004737
103406

005203
022703
001357
005003

027344
000001

68%:

026342

;BR_IF NO
;CLEAR BIT COUNTER
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

026342

69%:
70%:

000020

022260
022264
022270
022272
022274
022276
022302
022304
022310
022312
022316

104415
004737
103401
104024
005203
022703
001366
104415
005003
104415
004737

4088
4089
409C
283;

022326
022330
022334
022336

005203
022703
001366
104400

022322
022324

103401
104024

000001
026342

000007

2%:

3%:

000010
000001
026342

4%:

HLT
BR
JSR
BC(C
HLT

JERROR, CRC WRONG (SPACE)
> CONT INUE
:LOOK AT BIT WINDOW

INC
MP
BNE
CLR

PC,GETSI
70%

5%:

;LOOK AT BIT WINOOW
:BR IF 0K (MARK)

14
70%
PC,GETSI
70%
14

;BR IF OK (SPACE)
JERROR, (RC WRONG (MARK)

R3
#20,R3
68%
R3

;BUMP BIT COUNTER
;FINISHED BCC YET?
;BR_IF NO
;CLEAR BIT COUNTER

TRANSMITTER IS MARKING

DATACLK,
1
JSR
PC,GETSI
BCS
33
HLT
24
INC
R3
(MP
#7.R3
BNE
2%
DATACLK,
10
CLR
R3
DATACLK,
1
JSR
PC,GETS!

B(CS
HLT

000020

IN THE BIT WINDOW

;PUT BCC IN RO
sSHIFT HARDWARE BC(C(
sSHIFT SCFT BCC
:BR IF CARRY (LEAR

;CHECK TO SEE IF

4075
64076
64077
4078
4079
4080
4081
4082
4083
4084
4085

4093

648
R3
RO
12%

MoV
CALBCC,RO
DATACLK, 1
ROR
RO
BCC
698
JSR
BCS

28;2

4086
4087

SEQ 0078

;CHECK BCC FOR PRECEDING MESSAGE

6056
4057
4058
4059
6060
4061

PAGE 78

BASIC RECEIVER TESTS

INC
(MP
BNE
SCOPE

+4
24

R3
#20,R3
4%

;CLOCK TRANSMITTER
sLOOK AT WINDOW
;1T SHOULD BE MARKING
;ERROR, BIT WAS A SPACE
;BUMP BIT COUNTER
;DONE YET
sBR IF NO
;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
;CLEAR BIT COUNTER
JSHIFT OUT NEXT BIT
;LOOK AT BIT WINDOW

;BR IF IT IS A MARK
;ERROR, TRANSMITTER IS NOT MARKING
2 INC BIT COUNT
;DONE YET?
;BR IF NO
;SCOPE THIS TEST

4094

JERNRANRNRARRNNANCACARNRAANANY

4095
4096
409/
4098
4099
4100

:*RECEIVER DDCMP CRC TEST
;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC
:*AND VERI7YS CORRECT DATA RECEPTION AND BCC MATCH.
;*IN BCC MATCH IS CHECKED TO SEE THAT IT IS NOT ASSERTED
J*UNTIL THE LAST HALF OF THE CRC IS _RECEIVED
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377

4101

4102

4103
LL

;
TEST S
e
—

TEST

aannannnnnantnnntnnnnntnnnn

A AN AR AN AN AN AN RN AN RN ANR N R AN RAANAN R R AN RN ARRNR RN

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

022340
022346

b
d

T1ST51:

MOV

MOV
MOV
JSR
JSR

027644

JSR

?ESDAT

027620
026374
000114
027202

3%:

1%:

4%:

001352

#BIT11,(R1)

MMESDAT ,R2
#4 RO
PC.SYNLD
PC.OUTRDY

RS .MESLD
PC,EOM
PC.OCOR

JSR

PC, INRDY

DATACLK,
114
ROMCLK

MOV
MOVB
CMPB
BEQ
HLT

4(R1) R4
(R2)+.R5
RS,R4
1%
10

ROMCLK

021244
MOV
BIC
CLR
(MPB

000004
000376

#51,TSTNO
#TSTS2 NEXT

JSR
JSR

021204

000004

022462
022466
022470
022472
022474
022476
022500

MOV
MOV
M5TCLR

D e
d e

—

— —

Fo I

001226
001216

022354

o O 00NN
NN = O

e o

D o

4109

000051
022566

12:45
PAGE 79
BASIC RECEIVER TESTS

BEQ
HLT
DEC

BNE

SEQ 0079

;sR1

CONTAINS BASE DMC11 ADDRESS

JMASTER CLEAR DM(C11
JSET LINE UNIT LOOP

;LOAD POINTER TO DATA
;LOAD CHARACTER COUNT

JLOAD 2 SYNCS IN OUT SILO
JWAIT F R OQUTRDY
;LOAD SILO WITH 4 CHAR MESS
;ADDRESS OF MESSAGE
;NUMBER OF CHARACTERS

;LOAD GARBAGE CHARACTER, WITH EOM SET

JWAIT FOR OCOR

. CLOCK DATA

JWAIT FOR INRDY
SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET IN DATA

JPUT "FOUND'' IN R4
JPUT "EXPECTED'' IN RS
;COMPARE RECEIVED DATA

;BR IF 0K
.DATA ERROR

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
4(R1).R4
#376,R4
R5
R5.R4
43
15
RO

;PUT FOUND'' IN Ré4
SCLEAR UNWANTED BITS

:PUT "EXPECTED'* IN RS

:1S IN BCC MATCH STILL CLEAR?

;IN BCC MATCH ERROR
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

;s CHECK TO SEE THAT IN 8CC MATCH IS SET
022502

004737
104414

027202

000004

177400

0272C2

JSR
ROMCLK

021204

001 2 52
001 2 52

MOVB

BIC

JSR

ROMCLK

021244

000004
000376
000001

MOV
BIC

4(R1),TEMP3

#177400, TEMP3
PC, INRDY

RS R4

;IS IN BCC MATCH SET?

BEQ

25$

ROMCLK

021204
SCOPE

;PUT IN TEMP3
sCLEAR HI BYTE
JWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JPUT "FOUND'* IN R4

#1.RS

HLT

;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF CRC

4(R1) R4
#376 R4

MOV

C(MPB

25%:

PC. INRDY

sCLEAR UNWANTED BITS

JPUT "EXPECTED'' IN RS
;IN BCC MATCH ERROR

JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;GET LAST HALF
;SCOPE THIS TEST

CZOME

MACY11

CZDMEC.P1T

30A(1052)

11-SEP-78

11-SEP~-78 12:38

12:45

PAGE 80

BASIC RECEIVER TESTS

SEQ 0080

6161
4122

JRENRRRRANRARARAANAAARRRRNRAN TEST 52 annnnnnnnnnnnnanennnenrenens

4164

;*THIS TEST LOADS OUT SILO WITH:

4167

s *THE CHARCTERS LOADED WITH EOM SET ARE LOST

6163

;+«DDCMP EOM FUNCTION TEST

4165
4166

4168
6169
4170

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

4171

4172
2};2
4175
4176
4177
2};8

;
022566
022574

012737
012737

022602

104412

000052
023666

001226
001216

TSTS2:

4186
4187
4188
4189
4190
4191
6192

022604
022610
022614
022620

022624
022630
022634
022640
022642
022644

022650

012711
012704
005037
012700

004737
004737
004537
030126
Q00004
004737
004537

022654
022656
022660
022664
022670
022672

030126
000004
004737
004737
005003
104415

258?

022700

010502

022676

112405

004000
030126
022724
000004

MOV
MOV

MOV
MOV
(LR
MoV

027510
026526
027644

JSR
JSR
JSR
MESDAT

027620
027644

JSR
JSR

027620
026374
000022

12%:

4202

#52,TSTNO
HTSTS3 NEXT

;JR1T

CONTAINS BASE DMC11

JMASTER CLEAR DM(C11

ADDRESS

#MIT11,(R1)
#MESDAT R4
108
#4 RO

PC,SYNLD
PC,OUTRDY
RS ,MESLD

PC.EOM
RS ,MESLD

MESDAT
4
JSR
PC,EOM
JSR
PC,OCOR
LR
R3
DATACLK, 2?2

MOVB

MOV

(R4)+ RS

RS,R2

JSET LINE UNIT LOOP
.LOAD POINTER TO DATA

cCLEAR SOFT B(C
;LOAD CHARACTER COUNT
JLOAD 2 SYNCS IN OUT SILO
JWAIT FOR OUTRDY
JLOAD SILO WITH 4 (CHAR MESS

;ADDRESS OF MESSAGE
JNUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
;LOAD FOUR MORE CHARACTERS

;sADDRESS OF MESSAGE
JNUMBER OF CHACTERS
JSET EOM
JWAIT FOR OCOR
JCLEAR BIT COUNTER
;CLOCK DATA

;LOAD R5 WITH CHAR

;LOAD R2 WITH CHAR

;JCHECK FIRST FOUR CHARACTER MESSAGE

2382

4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216

TEST 52

;LOAD OUT DATA SILO

4193
6194
4195
4196
4197
4198
4199

AN AN R ANAR NN N AR RANRRA AR AARRARRNNA NN RAANANRANARRARA RN

MSTCLR

z}g?
4182
4183
4184
4185

2 SYNCS,4 CHAR MESSAGE ,EOM

;%4 CHARACTER MESS,EOM. THE DATA STREAM IS CHECKED TO BE
;%4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT

JIN THE BIT WINDOW (0,125,252.377)

022702
022710
022714
022720
022722
022724
022726
022734
022740
022742
022744
022750

012737
010537
004537
000010
000000
000000
013737
104415
106002
103005
004737
103406

120001
022722
027236

027344
000001
026342

027342

022724

67%:
10%:

64%:

MOV
#CRC16,XPOLY
MoV
RS5,67%
JSR
RS.SIMBCC
10
0
0
MOV
CALBCC,10%
DATACLK,
1
RORR
R2
BC(
65%
JSR
PC,GETSI
BCS
66%

;LOAD POLYNOMIAL
sLGAD SOFT CHAR FOR BCC
s CALCULATE SOFT BC(C
JSHIFT COUNT
;CHARACTER
;0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT
JSHIFT DATA IN TO BIT WINDOW
;SHIFT SOFT DATA
JBR IF A SPACE
;LOOK AT BIT WINDOW
;BR IF OK (MARK)

CZOME

MACY11

CZOMEC.PI1

4217
6218
6219

022752
022754
022756

6220
6221

022762
022764

64223
4224
4225
4226
64227
4228

022766
022770
022774
022776
023000
023002

4230
4231

4232
4233
4234
4235
4236

30A(1052)
11-SEP-78
11-SEP-78 1 2:38

104006
000404
004737
103001
104006

005203
022703
001357
005003
005300
001335

12:45
PAGE 81
BASIC RECEIVER TESTS
HLT

65%:

026342

66%:
000010

JSR
BCC
HLT

PC,GETSI
66$
6

JERROR, BIT WINDOW WAS A SPACE
s CONT INUE
sLOOK AT BIT WINDOW
sBR IF OK (SPACE)
;ERROR, BIT WINDOW WAS A MARK

INC
(TM

5
#10,R3

;BUMP BIT COUNTER
;DONE FULL 8 BITS YET

CLR

B8R

BNE
DEC

BNE

663

643
RO

12%

:BR_[F NO

;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
:BR [F NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
023004
023010
023014
023016
023020

013700
104415
000
103005

004737

027344

000001

68%:

026342

MOV
CALBCC RO
DATACLK,1
ROR
RO

BCC

£9%

BCS

70$

JSR
HLT

69%:

026342

70%:

000020

000004
030126
023116
4252

SEQ 0081

023072

13%:

010502

PC,GETSI
14

708

JSR

PC,GETSI

HLT

BCC

INC
MP
BNE
CLR

MOV
MOV
CLR
MOVB
MOV

70$

R3
#20,R3
68$
R3

#4 RO
AME SDAT ,Ré
11$
(R4)+,RS
RS,R2

;PUT BCC IN RO

;SHIFT HARDWARE B(C(
JSHIFT SOFT BCC
:BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
;BR IF 0K (MARK)
sJERROR, CRC WRONG (SPACE)
- CONT INUE
;LOOK AT BIT WINDOW
JBR IF OK (SPACE)
;ERROR, CRC WRONG (MARK)
;BUMP BIT COUNTER
;FINISHED BCC YET?
;B8R IF NO
;CLEAR BIT COUNTER
JRESET CHARACTER COUNTER
sLOAD MESSAGE POINTER
;CLR SOFT BCC

;LOAD CHAR IN RS
;LOAD CAHAR IN R2

JCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
64267
4268
4269
4270
4271
4272

023074
023102
023106
0c3112
023114
023116
023120
023126
023132
023134
023136
023142
023144
023146
023150
023154
023156

0127
010537
004537
000010
000000
000000
0
1
1
1
00473
103406
10
000404
004737
103001
104006

120001
023114
027236

027344
000001

027342

023116

118
73%:

MOV
CALBCC, 118
DATACLK,
1
RORB
R?

743

JSR

PC,GETSI

HLT

JSR

PC,GETSI

HLT

BCS
74%:

#CRC16,XPOLY
RS5,76$
R5.SIMBCC

BCC

026342

MOV
MOV
JSR
10
0

BCC

75$
75%

7-¢&

;LOAD POLYNOMIAL
sLOAD SOFT CHAR FOR BC(CC
;CALCULATE SOFT B(C
sSHIFT COUNT

s CHARACTER
;0LD BCC
JLCAD SOFT BCC FOR NEXT SHIFT
JSHIFT DATA IN TO BIT WINDOW
JSHIFT SOFT DATA
;BR IF A SPACE
cLOOK AT BIT WINDOW
;BR [F OK (MARK)
;ERROR, BIT WINDOW WAS A SPACE
s CONT INUE
;LOOK AT BIT WINDOW
JBR IF OK (SPACE)
JERROR, BIT WINDOW WAS A MARK

11-SEP-78
CZOME
MACY11 30A(1052)
CZDMEC.P11
11-SEP-78 12:38

023160
023160
023162

023174

12:45
PAGE 82
BASIC RECEIVER TESTS

75%:

200010

INC
S
BNE
LLR

DEC
BNE

001335

R3
#10,R3
73%
R3
RO
13$

SEQ 0082
;BUMP BIT COUNTER
;DONE FULL 8 BITS YET
:BR IF NO
;CLEAR BIT COUNTER
:DEC CHARACTER COUNT

:BR IF NOT DONE YET

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
023176

013700
104415

027344
000001

77%:

026342

78%:
79%:

023242
023244

000020
005003

MOV
CALBCC,RO
DATACLK,1
ROR
RO
8CC
78%

;PUT BCC IN RO

BCS

;BR IF OK (MARK)
;ERROR, CRC WRONG (SPACE)
s CONTINUE

JSR

PC,GETSI

HLT

79%
79%

JSR

PC,GETSI

HLT

BC(

INC
(MP
BNE
CLR

79%

R3
#20,R3
77%
R3

sSHIFT HARDWARE B(C(

JSHIFT SOFT BCC
;BR IF CARRY CLEAR

;LOOK AT BIT WINDOW

;LOOK AT BIT WINDOW
:BR_IF OK_ (SPACE)
JERROR, CRC WRONG (MARK)

;BUMP BIT COUNTER
FINISHED BCC

YET?

:BR IF NO
sCLEAR BIT COUNTER

JCHECK TO SEE IF TRANSMITTER IS MARKING

023246
023252

104415

004737
103401
104024
005203
022703

000001
026342

000007

2%:

8(CS
3%:

000010

000001
026342

DATACLK,
JSR
PC,GETSI

A ¥

HLT

INC
R3
CMP
47 .R3
BNE
2%
DATACLK,
(IR
R3

DATACLK,
1
JSR
PC,GETSI

B(CS
HLT

023316
023322

INC
(MP
BNE

000020

.46

R3
#20,R3
4%

;CLOCK TRANSMITTER

;LOOK AT WINDOW
;1T SHOULD BE MARKING
JERROR, BIT WAS A SPACE
;BUMP BIT COUNTER

;DONE YET
:BR IF NO
JGIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
;CLEAR BIT COUNTER
:SHIFT OUT NEXT BIT

;LOOK AT BIT WINDOW
sBR IF IT IS A MARK

;ERROR,

TRANSMITTER

SINC BIT COUNT
sDONE YET?
;BR IF NO

IS NOT MARKING

;CHECK TO SEE THAT FIRST FOUR CHARA(CTER MESSAGE
JWAS RECEIVED CORRECTLY (0,125,252.377)

023324
023330

023350

000001
000004
030126
027202
000004

DATACLK,

4«0%:

MOV
MOV
JSR

ROMCLK

021204

MOv

#4 ,R3
#ME SDAT ,R?

sGET LAST BIT IN RECEIVER

JR3=CHARACTER COUNT

PC,INRDY

;LOAD MESSAGE POINTER IN R2
JWAIT FOR INRDY

4(R1) R4

JPUT "FOUND'' IN R4

JNEXT WORD IS INSTRUCTION, ROMCLK P(C-5304

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1
11-SEP-78 12:38

4329
4330
6331

4332
4333
2%%2

023354
023356
023360
023362
023364
023366

12:45
PAGE 83
BASIC RECEIVER TESTS

112205
120504
001401

104010
005303
001364

418:

4336

023370
023374

004737
104414

027202

4342

023400

116137

000004

004737
104414
021244
016104
042704
012705
120504
001401
104015

027202

6344
4345
4346
4347
64348
4349
4350
4351
4352
4353
4354
4355
64356
4357
4358
4359
4360
2%2;

023376

023406

023414
023420
023422
023424
023430
023434
023440
023442
023444
023446
023446
023450
023452
023460
023466
023474
023502
023504

021204

042737

104414
021204
116137
042737
053737
023737
001401
104027

177400

001252

MOVB

4(R1)

JSR
ROMCLK
021244
MOV
BIC
MOV
CMPB
BEQ
HLT

PC., INRDY

50%:
001251
001250
001252
001252

ROMCLK
021204
MOVB
BIC
BIS
cMP
BEQ
HLT

,TEMP3

#177400
. TEMP3

4(R1) R4
#376,R4
#1,R5
R5,R4
50%
15

4(R1),TEMP2+1
#377 ,TEMP?
TEMPZ, TEMP3
CALBCC,TEMP3
42%
27

;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JGET FIRST HALF OF

JPUT IN TEMP3

CRC

:CLEAR HI BYTE

JWAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JPUT "FOUND'' IN R4
sCLEAR UNWANTED BITS
JPUT "EXPECTED'' IN RS
;1S IN BCC MATCH SET?
;IN BCC MATCH ERROR
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET LAST HALF
;PUT IN TEMP2
;CLEAR LO BYTE
;16 BIT BCC NOW IN TEMP3
;IS IT CORRECT?
;BR IF OK

JCHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE
JWAS RECEIVED CORRECTLY (0,125,252.377)

4366
4367
4368
4369
437C
4371
4372

023506
023512
023516
023522
023524
023526
023532

012703
012702
004737
104414
021204
016104
112205

2%;;

023544

001364

023534
023536
023540
023542

000004
030126
027202

42%:

43%:

000004

120504
001401
104010
005303

44%:

4379
2%3?
6382
4383
4384

PC, INRDY

BIC

000004
000376
000001

000004
000377
001250
027344

JSR
ROMCLK
021204

001252

4363
zggg

4373
4374
4375
4376

10
R3
40$

;PUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?
:BR IF YES
JRECEIVE DATA ERROR
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

JAND THAT THE BCC WAS RECEIVED CORRECTLY

4339
4360

6343

(R2) +,RS5
RS R4
413

sCHECK TO SEE THAT IN BCC MAT(CH IS SET

Zggg

4341

MOV8
CMP8
BEQ
HLT
DEC
BNE

SEQ 0083

MOV
MoV
JSR
ROMCLK
021204
MOV
MOVS

CMPB
BEQ
HLT
DEC

BNE

#4,R3
#ME SDAT ,R?
PC,INRDY

;R3=CHARACTER COUNT
;LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC 5304

4(R1) R4
(R2)+,RS

;PUT "FOUND'' IN R4
;PUT "EXPECTED"' IN RS

R5,R4
448
10
R3

43%

;IS RECEIVED DATA CORRECT?
JBR IF YES
JRECEIVE DATA ERROR
.DEC CHARACTER COUNT

JBR IF NOT DONE YET

;CHECK TO SEE THAT [N BCC MAT(CH IS SET
JAND THAT THE BCC WAS RECEIVED CORRECTLY
023546
023552
023554

004737
104414
021204

027202

JSR
ROM(CLK
021204

PC. INRDY

;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC 5304
;GET FIRST HALF OF (RC

CZOME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P11

4385
4386
4387
4388
4389
4390
43N
4392
4393
4394
4395
4396
4397
4398
4399

023556

116137
042737
004737
104414

021244

000004

177400
027202

12:45
PAGE 84
BASIC RECEIVER TESTS

001252
001252

000004
000377
001250
027344

;PUT IN TEMP3

JSR

PC, INRDY

‘WAIT FOR INRDY

MOV

4(R1) R4

:PUT "FOUND'' IN R4

MOV

#1,RS

*PUT "EXPECTED'" IN RS

BIC

104027
104400

HLT

MOVB

:CLEAR HI BYTE

*NEXT WORD IS INSTRUCTION. ROMCLK PC=5304
*CLEAR UNWANTED BITS

*1S IN BCC MATCH SET?

;IN BCC MATCH ERROR
;NEXT WORD

4(R1),TEMP2+1

‘GET LAST HALF

INSTRUCTION,

#377, TEMP2

*CLEAR LO BYTE

MP
BEQ

CALBCC,TEMP3
5%

1S IT CORRECT?
JBR IF OK

TEMP2, TEMP3

HLT
SCOPE

$16 BIT BCC NOW IN TEMP3
;SCOPE

:ttfi*ti*ttttt*tt"i"iitttfil‘*

;*DDCMP EOM FUNCTION TEST
;*THIS

TEST LOADS OUT

ROMCLK PC=5304

-PUT IN TEMP?

BIC

BIS
5%:

RS5.R&
51%

ROMCLK

021204

001251
001250
001252
001252

#1776400.TEMP3

#376 R4

CMPB
BEQ

4611

THIS

TEST

SILO WITH:

TEST
AANRARRARARANRRRAARA AN RN NN

2 SYNCS,4

CHAR MESSAGE ,EOM

;*SOM,
4 CHAR MESS,EQM. THE DATA STREAM IS CHECKED TO BE
;x4 (HAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
;*THE CHARCTERS LOADED WITH EOM SET ARE LOST

4412
4613
4414

;*Al SO THAT THE CHAR LOADED WITH SOM IS NOT

44615

IN THE B(C

;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT _WINDOW

L4616

4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
44629
4430
463
4432
4433
4434
4435
4436
6437
4438
4439
4440

4(R1),TEMP3

88?525

51%:

4400
44601
4402
4403
44604
4405
4406
44607
4408
4409
44610

MOVB

BIC

900004
000376
000001

SEQ 0084

;*THE

FOUR CHARACTER MESSAGE

IS 0,125,252,377

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED
M (M A

;

023666
023674

012737
012737

023702

1044612

000053
025066

001226
001216

TSTS53:

2220

dtat

2222332303222

3232382323332

222 223232232220

22220

TEST 53

MoV
MOV

#53,TSTNO

#TSTS4 NEXT

MSTCLR

;R1 CONTAINS BASE DMC11
JMASTER CLEAR DMC11

ADDRESS

;LOAD OUT DATA SILO

023704
023710
023714
023720
023724
023730
023742
023744

023750
023754

012711

004000
030126
024030
000004
027510
026526
027644

027620
027570
027644

MoV
MoV

#BIT11, (R1)
AME SDAT ,R4

CLR
MOV
JSR
JSR
JSR

108
#4 R0
PC,SYNLD
PC,OUTRDY
RS,MESLD

JSR
JSR

PC,EOM
PC,SOM
RS ,MESLD

MESDAT
4
JSR

;SET LINE UNIT LOOP
;LGAD POINTER TO DATA

;CLEAR SOFT BCC
;LOAD CHARACTER COUNT
;LOAD 2 SYNCS IN OUT SILO
JWAIT fOR OUTRDY
;LOAD SILO WITH 4 CHAR MESS

;ADDRESS OF MESSAGE
JNUMBER OF CHARA(TERS
:LOAD GARBAGE CHARACTER,

WITH EOM SET
;LOAD GARBAGE CHAR WITH SOM SET
;LOAD FOUR MORE CHARACTERS

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1N
11-SEP-78 12:38

004737
004737
005002

4447
4448

024002
024004

112
010

6446

4449
4450
44651

023776

pard

5
2

MESDAT
4
JSR
JSR

027620
026374

CLR

000022

12%:

PC,EOM
PC.OCOR

DATACLK, 22
MOVB
(R4) +,RS
MOV
R5.R2

SEQ 0085
;ADDRESS OF MESSAGE
JNUMBER OF CHACTERS
JSET EOM
JWAIT FOR OCOR

sCLEAR BIT COUNTER

. CLOCK DATA
;LOAD R5 WITH CHAR
;LOAD R2 WITH CHAR

sCHECK FIRST FOUR CHARACTER MESSAGE
JIN THE BIT WINDOW (0,125,252.377)

4452
4453
4454
4455

024006
024014
024020

4457

024026

4456

PAGE 85

BASIC RECEIVER TESTS

023760
023762
023764
023770
023774

o
W
o

4441
4442
6443
4644
4445

12:45

024024

0127
0105
0045

0000

000000
000000

120001

024026
027236

027342

MOV
MOV
JSR

67%:
027344
000001

024030

10%:

64%:

026342

0
0

MOV
CALBCC,10%
DATACLK,
1
RORB
R2

BCC

65%

HLT

JSR
BCS

65%:
66%:

000010

#CRC12,XPOLY
R5,67
RS,SIMBCC

JSR
8CC

PC,GETSI
66%

66$%

;LOAD POLYNOMIAL
JLOAD SOFT CHAR FOR B(C
s CALCULATE SOFT BCC
JSHIFT COUNT

;s CHARACTER
;0LD 8CC

;LOAD SOFT BCC FOR NEXT SHIFT
;SHIFT DATA IN TO BIT WINDOW
JSHIFT SOFT DATA

:BR IF A SPACE

;LOOK AT BIT WINDOW
;BR IF OK (MARK)
;ERROR,

BIT WINDOW WAS A SPA(c

s CONT INUE

HLT

PC,GETSI
66%
6

;LOOK AT BIT WINDOW
;BR IF OK (SPACE)
;ERROR, BIT WINDOW WAS A MARK

INC
(MP

R3
#10,R3

JBUMP BIT COUNTER
;DONE FULL 8 BITS YET

BNE
CLR
DEC
BNE

64%
R3
RO
12%

;BR_IF NO
;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
;JBR IF NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
4480
4481
4482
4483
4484

4489
4490
4491
4492
4493
4494
4495
4496

024110
024114
(024120
024122
024124

024142
024144
024146
024146
0264150
024154
024156

013700
104415
006000
103005
004737

103001
104014

005203
022703

001357
005003

027344
000001

68%:

026342

69%:
70%:

000020

MOV
CALBCC,RO
DATACLK,1
ROR
RO

;PUT BCC IN RO
sSHIFT HARDWARE B(C
JSHIFT SOFT BCC

HLT

JERROR,

JSR

PC,GETSI

;LOOK AT BIT WINDOW

HLT

JERROR,

R3
#20,R3
68%
R

JBUMP BIT COUNTER
JFINISHED BCC YET?
JBR IF NO
;CLEAR BIT COUNTER

BCC
JSR
BCS

69%
PC,GETSI
70%

70%

B8C(

INC
(MP
BNE
CLR

705

;BR IF CARRY CLEAR
sLOOK AT BIT WINDOW
;BR IF OK (MARK)
CRC WRONG

s CONT INUE

;BR IF OK (SPACE)

CRC WRONG

(SPACE)

(MARK)

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC. 211
11-SEP-78 12:38

12:45
PAGE 86
BASIC RECEIVER TESTS

223;

;CHECK CHARACTER LOADED WITH SOM (000), IN THE BIT WINDOW

4499
4500

024160
024162

005005
010502

4502
4503
4504

024170
024172
024174

106002
103005
004737

024202
0246204
024206

104006
000404
004737

024214
024216
024220
024224
024226
026230
024234
026240
024244
024246

104006
005203
022703
001357
005003
012700
012704
005037
112405
010502

4501

024164

4505

024200

4509

024212

4506
4507
4508
4510
4511
4512
4513
4514
4515
4516
4517
4518
22;3

104415

103406
103001

000001

32%:

026342

024250
024256

012737
010537

4526
4527
4528
4529
4530
4531
4532
4533
453,
4535
4536
4537
4538
4539
4540
6541
4542
4543
4544
4545

024266
024270
024272
024274
024302
024306
024310
024312
024316
024320
024322
024324
024330
024332
024334
024334
024336
024342
0243544
024346

000010
000000
000000
013737
104415
106002
103005
004737
103406
104006
000404
004737
103001
104006

026342

30$:

31¢:

000010

000004
030126
024272

024262

024350

004537

005203
022703
001357
005003
005300

120001
024270

027342

4551
4552

RORB
BCC
JSR

R?
30%
PC,GETSI

HLT
BR
JSR

6
31$
PC,GETSI

HLT
INC
CMP
BNE
CLR
MOV
MOV
CLR
MOVB
MOV

3
R3
#10.R3
32¢
R3
#4 RO
AME SDAT ,R4
11$
(R4)+,RS
RS,R2

DATACLK.,

BCC

MOV
MOV

027236

027344
000001

JSR

024272

76%:
11 :
73%:

026342
)
026342

74%
75%:

000010

001335

; CHARACTER LOADED WITH SOM
‘LOAD R2 WITH CHAR

*CLOCK TRANSMITTER

:SHIFT SOFT DATA
*BR IF SPACE
:LOOK AT BIT WINDOW

31¢$

“BR IF 0K (MARK)

31§

:BR IF OK (SPACE)

*ERROR,BIT WINDOW WAS A SPACE
“CONTINUE
:LOOK AT BIT WINDOW
*ERROR,BIT WINDOW WAS A MARK
:BUMP BIT COUNTER
:DONE CHARACTER YET?
:BR IF NO
*RESET BIT COUNTER
*RESET CHARACTER COUNTER
*LOAD MESSAGE POINTER
SCLR SOFT BCC
:LOAD CHAR IN RS
*LCAD CHAR IN R2

#CRC16,XPOLY
RS,76$

R5,SIMBCC

;LOAD POLYNQMIAL
:LOAD SOFT CHAR FOR BCC

*CALCULATE SOFT BCC

10
0
0
MOV
CALBCC.11$
DATACLK,
1
RORB
R2
BCC
74$
JSR
PC,GETSI
BCS
75$
HLT
6
BR
75%
JSR
PC,GETS]
BCC
75$
HLT
6

SSHIFT COUNT
*CHARACTER
:0LD BCC
:LOAD SOFT BCC FOR NEXT SHIFT
SSHIFT DATA IN TO BIT WINDOW
*SHIFT SOFT DATA
:BR IF A SPACE
:LOOK AT BIT WINDOW
‘BR IF 0K (MARK)
cERROR, BIT WINDOW WAS A SPACE
*CONTINUE
(00K AT BIT WINDOW
‘BR IF OK (SPACE)
*ERROR, BIT WINDOW WAS A MARK

INC
P
BNE
CLR
DEC

;BUMP BIT COUNTER
‘DONE FULL 8 BITS YET
:BR IF NO
:CLEAR BIT COUNIER
:DEC CHARACTER CCUNT

BNE

lzgzg
4550

RS
RS,R2

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252.,377)

4523
4524

zgzg

CLR
MOV

BCS

225}

4525

SEQ 0086

R3
#10,R3
73$
R3
RO

13$

:BR IF NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
(24352

024356
024362

013700

10445
006000

027344
000001

MOV

CALBCC,RO

DATACLK, 1
ROR
RO

:PUT BCC IN RO

*SHIFT HARDWARE BC((
JSHIFT SOFT BCC

CZDME
MACY11 30A(1052)
11-SEP-78
CZDTMMEC.P1Y
11-SEP-78 12:38

12:45
PAGE 87
BASIC RECEIVER TESTS

BCC

026342

7
1

4560
4561
4562
4563
4564
4565

024406
024410
024410
024412
024416
024420

026342

104014
005203
022703
001357
005003

78%

79%:

000020

:BR IF CARRY CLEAR

JSR

PC,GETSI

:LOOK AT BIT WINDOW

HLT

*ERROR,

B8CS
78%:

SEQ 0087

79§

:BR IF 0K (MARK)

79%

JSR

PC,GETSI

HLT

BCC

:LOOK AT BIT WINDOW

798

INC
{MP
BNE
CLR

:BR IF OK (SPACE)
*ERROR,

R3
#20.R3
77%
R3

4586
4587
4588
4589
4590
4591
4592

4593
4594

026622
024426
024432
024434
024436
024440
024444
024446
024452
024454
024460
024464
024466
024470
024472
024476

104415
004737
103401
104024
005203
022703
001366
104415
005003
104415
004737
103401
106024
005203
022703
001366

000001
0¢6342

000007

L’s:

000010

000001
026342

HI T

*ERROR, BIT WAS A SPACE

INC

CMP

:BUMP BIT COUNTER

¥7 ,R3

‘DONE

BNE
2$
DATACLK,
CLR
R3

DATACLK,
1
JSR
PC.GETSI
BCS
.+
HLT
24

TM
BNE

:IT SHOULD BE MARKING

#20,R3
4

YET

‘BR IF NO
*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 NOT MARKING

SINC BIT COUNT
“DONE YET?
‘BR IF NO

;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE
JWAS RECEIVED CORRECTLY (0,125,252,377)
024500
(024504
024510
024514

024520
024522

104415
012703
012702
004737

104414
021204

4595
6596
4597
4598

024524
024530
024532
024534

016104
112205
120504
001401

4600
4601

024540
024542

005303
001364

000001
000004
030126
027202

DATACLK,

40%:

000004

41%:

#4,R3

JSR

PC,INRDY

MOV

#MESDAT ,R2

Sg?gbfi
MOV
MOVB
CMPS
BEQ

4(RY) R4
(R2) + RS
RS,R4
41

DEC
BNE

R3
403

HLT

JAND

024544
024550
024552

004737
104414
021204

027202

MGV

JCHECK TO SEE
4606
4607
4608

TRANSMITTER 1S MARKING
;CLOCK TRANSMITTER
SLOOK AT WINDOW

INC

000020

(MARK

DATACLK,
1
JSR
PC.GETSI

BCS
3%:

CRC WRONG

:BUMP BIT COUNTER
*FINISHED BCC YET?
:BR IF NO
*CLEAR BIT COUNTER

;CHECK TO SEE IF
4569
4570
4571
64572
4573
4574
4575
4576
4577
64578
4579
4580
4581
4582
4583
4584

CRC WRONG (SPACE)

* CONT INUE

THAT

JSR
ROM(CLK
021204

;GET LAST BIT

IN RECEIVER

;R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2
JWAIT FOR INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JPUT ‘FOUND'' IN R4
JPUT "EXPECTED'' IN RS
;1S RECEIVED DATA CORRECT?
;BR IF YES

JRECEIVE DATA ERROR

;DEC CHARACTER COUNT
;BR IF NOT DONE YET

THAT [N BCC MATCH IS SET

THE BCC WAS RECEIVED CORRECTLY

PC,INRDY

JWAIT FOR [NRDY
SNEXT WORD IS INSTRUCTION,

JGET FIRST HALF OF

(RC

ROMCLK Pr-S304

CZOME

MACY11

CZDMEC.P1

6609

024554

30A(1052)

_11-SEP-78

11-SEP-78 12:38

116137

000004

004737
104414
021244

027202

4610

024562

042737

4614
4615

024600
024604

016104
042704

4617
4618
4619
4620
4621
4622
4623
4624

024614
024616
0264620
024622
024622
026626
0264626
024634

120504
001401
104015

104414
021204
116137
042737

000004
000377

4626

024650

023737

027344

4611
4612
4613

4616

4625

4627
2253

024570
024574
024576

0264610

026642

026656
024660

012705

053737
001407
104027

177600

12:45

001252

MOVB

001252

000001

4633
463L
4635
4636
4637

4638

2223

MOV
BIC

4(R1) R4
#376 R4

CMPB
BEQ
HLT

RS.R&
508
15

CLEAR HI BYTE

:PUT 'FOUND''
IN R&
*CLEAR UNWANTED BITS

#1,RS

SPUT "EXPECTED''
IN RS
*1S IN BCC MATCH SET?
;IN BCC MATCH ERROR

4(R1),TEMP2+1
4377, TEMP2

001252

CMP

CALBCC,TEMP3

:IS IT CORRECT?

001252

BIS

BEQ
HLT

TEMP2, TEMP3

45%
27

$16 BIT BCC NOW IN TEMP3
‘BR IF OK

;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000)

026662

026666
024670
026672
024676
024700
024702

024704

004737
104414
021204
016104
005005
120504

027202

45%:

000004

001401

JSR

PC., INRDY

ROMCLK
021204
MOV
CLR
(MPB

4(R1) .R4
RS
RS,R4

HLT

BEQ

104010

;WAIT FOR INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET RECEIVE DATA
*PUT 'FOUND'' IN Ré
‘PUT "EXPECTED''
IN RS
*1S RECEVIED DATA CORRECT?

42%

;CHECK TO SEE

‘BR IF YES

*RECEIVE DATA ERROR

THAT SECOND FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125,252.377)

4644
4645
4646
4647

0264706
024712
026716
024722

012703
012702
004737
104414

000004
030126
027202

4649
465C
4651
4652
4653
4654

024726
024732
024734
024736
024740
024742

016104
112205
120504
001401
104010
005303

000004

026724

024744

021204

4L2%:
43%:

MOV
MOV
JSR
ROMCLK

#4,R3
#MESDAT ,R2
PC.INRDY

;R3=CHARACTER COUNT
*LOAD MESSAGE POINTER IN R2
*WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOV
MOVB
(MPB
BEQ
HLT
DEC

4(R1) R4
(R2)+.RS
RS,R4
448
10
R3

;PUT 'FOUND'' IN R&
*PUT "EXPECTED''
IN RS
*1S RECEIVED DATA CORRE(CT?
‘BR IF YES
*RECEIVE DATA ERROR
*DEC CHARACTER COUNT

021204

44$:

001364

4657

BNE

43$

;CHECK TO EE

zggg

THAT

*BR IF NOT DONE YET
IN BCC MATCH IS SET

SAND THAT THE BCC WAS RECEIVED CORRECTLY

4660
4661
4662

024746
024752
024754

004737
104474
021204

027202

4664

024764

042737

177400

4663

SWAIT FOR INRDY
SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
N

001251
001250

2&%

2222

PC, INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET LAST HALF
:PUT IN TEMP?
*CLEAR LO BYTE

4641

4648

;PUT IN TEMP3

ROMCLK
021204
MOVB
BIC

22%9

4632

4(R1),TEMP3

#177400,TEMP3

MOV

508:

SEQ 0088

BIC

JSR
ROMCLK
021244

000004
000376

001250

PAGE 88

BASIC RECEIVER TESTS

0264756

116137

000004

001252

JSR
ROMCLK
021204
MOVR

BIC

PC, INRDY

4(P1)

TEMP3

#177400, TEMP?

;WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION,
SGET FIRST HALF OF CRC

*PUT

IN TEMP3

:CLEAR HI BYTE

ROMCLK PC=5304

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
17-SEP-78 12:38
4665
4666
4667

024772
024776
025000

004737
104414
021244

12:45
PAGE 89
BASIC RECEIVER TESTS

027202

JSR
ROMCLK
021244

PC. INRDY

4668

025002

016104

000004

MOV

4(R1) R4

4670

025012

012705

000001

MOV

#1,RS

BEQ

51$

4669
4671

4672

025006

025016

025020

042704
120504

025022
025024
025004
025026
025030
025036

104414
021204
116137
042737

4680
4681
4682
2222

025052
025060
025062
025064

023737
001401
104027
104400

025044

BIC

CMPB

001407

4673
4674
4675
4676
4677
4678

4679

000376

104015

053737

51%:
000004
000377

001251
001250

027344

001252

001250

001252

HLT

ROMCLK
021204
MOVB
BIC

BIS

4685

cMP
BEQ
HLT
SCOPE

#376 R4
RS .R&

SEQ 0089
;WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
.
3

:PUT ‘FOUND''

IN Ré

:CLEAR_UNWANTED BITS

*PUT

"EXPECTED'’

IN RS

YIS IN BCC MATCH SET?

;IN BCC MATCH ERROR

4(R1),TEMP2+1
#377 TEMP?

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET LAST HALF
:PUT IN TEMPZ
*CLEAR LO BYTE

TEMP2, TEMP3

CALBCC,TEMP3
5$
27

*16 BIT BCC NOW IN TEMP3
:IS IT CORRECT?
:BR IF OK

:SCOPE THIS TEST

4“6

"tttt'tfitt*fitttt.!i.tttt"it

4687
4688
4689
4690
4691

S«EMPTY SILO TEST
“«L0AD SILO WITH 2 SYNCS, 4 CHAR MESSAGE. SINGLE CLOCK
T*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE
:«SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST
t«4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR

4692

1 4322232332332 33222XXX2 222 ¥

.':ttt'ttttti'fitt'ttQttttttttfifittt'.ttttitttttit!tttitttfitttttttt

4693

4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707

025066
025074

012737
012737

025102
025106
025110
025114
025120
025126
025130
025134
025136

104412
012711
012702
012700
004737
004737
004537
030126
000004

4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720

025144
025150
025154
025156
025160
025164
025170
025172
025174
025202
025204
025206

4708

TEST

025140

004737

104415
004537
030126
000004
004737
104415
104414
021264
032761
001401
104034
104415

000054
025320

001226
001216

TSTS4:

MSTCLR
MOV
MOV
MOV
JSR
JSR
JSR
MESDAT
4

004000
030126
000004
027510
026526
027644

026374

JSR

000065
027644

026374
000005

000040
000041

:
TEST 56
PR
S,
MOV
#54,TSTNO
MOV
#TSTSS NEXT

000004
5¢:

#8IT11, (R1)
MMESDAT ,R2
#4 RO
PC.SYNLD
PC.OUTRDY
RS .MESLD

Pr,0OCOR

DATACLK,
65
JSR
RS ,MESLD
ME SDAT
4
JSR
PC.OCOR
DATACLK,
5
ROMCLK
021264
BIT
#B1TS,4(R1)
BEQ
5%
ALT
3
DATACLK,
41

:R1 CONTAINS BASE DMC11 ADDRESS
*MASTER CLEAR DM(11
*SET LINE UNIT LOOP
*R2 POINTS TO MESSAGE
‘RO = CHAR COUNT
*LOAD SILO WITH TWO SYNCS
“WAIT FOR OUTRDY
*LOAD MESSAGE IN SILO
*START OF MESSAGE
*CHARACTER COUNT

‘WAIT FOR OCOR

SCLOCK DATA (EMPTY SILO)
*PUT MORE CHARACTERS IN SILO

;CLOCK UNTIL RTS IS CLEARED
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET RTS
SIS IT CLEAR?
‘BR IF VES
*ERROR, RTS NOT CLEAR
SCLOCK ‘XMITTER SOME MORE

CZOME

MACY11

CZDMEC.P1T

30A(1052)
11-SEP-78
11-SEP-78 12:38

4721
4722
6723
4724
4725
64726
4727
4728
4729
4730
4731
4732
4733
4734
4735
64736
4737
4738
4739
4760
64741
4742
4743
4746
4745
47646
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759

025212
025216
025220
025222
025226
025230
025232
025234
025236
025240
025242
025246
025250
025252
025256
025262
025264
025266
025270
025274
025276
025300
025304
025310
025312
025314
025316
025316

025320

012737

4762

025334

104412

2;2?

4763

4764
4765
4766
4767
4768
4769
4770
4771

4772
4773
4774
4775

4776

004737
104414
0212C%
016104
112205

12:45
PAGE 90
BASIC RECEIVER TESTS

027202

1%:

JSR
ROMCLK

PC,INRDY

021204

000004

4(R1) R4
(R2) +,RS

120504

R5.Ré

001401

104010
005300
001364

004737
104414
021204
016104
012705
120504
001401
104010
004737

104414
021204
016104

012705

120504
001401
104010

SEQ 0090

3%:

PC, INRDY

000004
000377

:PUT IT IN R4

;RS = "EXPECTED"'
2 1S DATA CORRECT?
:BR IF 0K

2%:

027202

JOK LETS CHECK WHAT WAS RECEIVED
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET RECEIVE DATA

4(R1) R4

;DATA ERROR
;DEC CHAR COUNT
.BR IF NOT DONE YET
WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION,

:GET RECEIVE DATA

ROMCLK P(=5304

JPUT IT IN "FOUND''
;RS = "EXPECTED''

;SHOULD SEE 377
JBR IF 0K

027202

JERROR, TRANSMITTER DID NOT ABORT
<WAIT FOR INRDY

JSR

ROMCLK

NEXT WORD

021204

000004
000377

10%:

104400

MOV
MOV
(MPB
BEQ
HLT

INSTRUCTION,

ROMCLK PC

:SCOPE THIS TEST

JNRRRARRRAAARAANRC
AR ANARAAN

DUPLEX

JEST

annnnannnnasnnannannnenntnsn

TEST

s*SET LINE UNIJT LOOP AND HALF DUPLEX, SEND SYNCS AND A
J*MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR
. TARAN AR A AN AR AN R TR R

025326

025336

025342
025346
025354
025356
025360
025364
025370
025374

025376
025400
025404

0256410

025412

012737
012702

012711
012761
104414
122113
004737
004737
004537
030126

002004
004737
104415
104414

021244

000055
025436

000012
004000
000020

027510
026526
027644

026374
000073

007226
001216

5304

BP IF 0K
JERROR, TRANSMITTER DID NOT ABORT

SCOPE

;*HALF

:GET RECEIVE DATA
PUT IT IN "FOUND''
RS = "EXPECTED''
;SHOULD SEE 377

TSTSS:

#55,TSTNO
W#TSTS56,NEXT

AR AN AN RN NRAANAANN A AN RNARAANRNR NN AN AT AN

;R1

CONTAINS BASE DMC11

JMASTER CLEAR DM(C11

ADDRESS

;SAVE R2 FOR TYPEOQUT
;SET LINE UNIT LOOP
sLOAD PORTS
JNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
JSET H/D BIT

000004

;LOAD 2 SYNCS

JWALT FOR OUTRDY
ME SDAT
A

JSR

DATA(LK,
ROMCLK

021244

;LOAD4 CHAR MESSAGE
ADDRESS OF ME SSAGE

:CHARACTER COUNT
SWAIT FOR OCOR
s SEND ME SSAGE

JNEXT WORD IS
JREAD LU=12

INSTRUCTION,

ROM(LK P/

5304

MACY11

025414
025420
025424
025426
025430
025432
025434

016104
042704
005005

12:45

PAGE 91

BASIC RECEIVER TESTS

000004
000257

120504

001401

104035

1046400

1%:

MOV
8I1C
CLR
M8
8tQ
HLT
SCOPE

SEQ 0091

4(R1) R4
#257 ,Ré
RS
R5,Ré
13

JPUT "FOUND'® IN R4
JCLEAR UNWANTED BITS
;RS = "EXPECTED''

JIN=ACTIVE AND [IN-RDY SHOULD BE (LEAR
;BR IF 0K

.ERROR BOTH ARE NOT (LEAR

JennnnnnRnnnannstnnrannnnnnt

JEST

;*DDCMP CABLE DATA TEST

J*THIS

TEST LOADS OUT

SILO WITH

THE

ananennnnansanccnseneenannn

FOLLOWING:

;%4 SYN(CS,16 CHAR,EQM,16 (HAR,EOM,16 CHAR,EOM

;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO
s*THE

DATA

]IS

TRANSMITTED OVER

THE

CABLE

USING

THE

J*RECEIVED DATA IS VERIFIED AS IS IN BCC MAT(H
s *LOOP-BACK CONNECTOR MUST SE ON TO RUN THIS TEST

INTERNAL

(LO(K

. INRAARAAANRNAANRAN R A NN RN N AR A RAANRANE RN ARARANAANNARNNN AN AN O AR AN R AANNAONN

000056
026024

025452
025454
025462
025464
025470
025474
025500
025506
025512
025516
025522

040000

1ST56:

MOV
MOV
MSTCLR

00136¢

#56,TSTNO
#TSTS7 NEXT

;R1

CONTAINS BASE DMC11

JMASTER CLEAR DMCT
;SKIP TEST IF NO

ADDRESS

MIT14,STAT
33
MITI,(R1)
PC,SYNLD
PC,SYNLD
#CRC16,XPOLY
6%
#16. ,R3

;LOAD 2 SYNCS
;LOAD 2 MORE SYNCS

(R2)+,5%
RS5,SIMBCC(

;LOAD CHAR FOR SOFT BCC CALC.

027644

MOVR
JSR
10
0
0
MOV
DEC
BNE
JSR

027620
027644

JSR

004000
027510
027342

025534
02723¢

027620
027644

004737
005011

TEST 56

8IT
BEQ
MOV
JSR
JSR
MOV
(LR
MOV

027344

025622

——

025436
025444

s
non

w277

11-SEP-78
30A(1052)
11-SEP-78 12:38

C/OME

CZDMEC P11

027620
026374

’%:

5¢:
6%:

g, 01Y)

FLTDAT
16.
JSR

FLTDAT

16.

JSR

FLTDAT
16,

JSR
JSR
R

#F L TDAT ,R2

CALBRCC,6%
R3
7%
RS ., MESLD
PC,EQM

RS .MESLD

PC.EOM

RS ,MESLD

PC,FOM
FC,0C0R
(R1)

sLOOPBACK CONNECTOR ON

JSET LINE UNIT LOOP

cLOAD POLYNOMIAL FOR SOFT CRC CALC
s CLEAR OLD BCC
s CHARACTER COUNT
;R2= POINTER

;CALC SOFT BCC
JSHIFT COUNT
;CHARACTER
;0LD BCC
;LOAD OLD B(CC

sDEC COUNT
;BR IF NOT DONE YET

JLOAD SILO
sMESSAGE ADDRESS
: CHARACTER COUNT
JLGAD AN EOM
JLOAD SILO
sMESSAGE ADDRESS
s CHARACTER COUNT
LOAD AN EOM
;LOAD SILO
sMESSAGE ADDRESS
s CHARACTER COUNT
;LOAD AN EOM
JWAIT FOR OCOR

CLEAR ' INE UNIT LOOP

CZDOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1
11-SEP-78 12:38
4833

025624

012700

000003

4834

025630

012703

000020

4836

025640

004737

027202

4835

4837
4838
4839
4840
4841
4842
4843
4844
4845
4846

2&;

025634

025644
025646
025650
025654
025656
025660
025662
025664
025664
025666

025670

012702
104416
021204
016104
112205
120504
001401
104025
005303
001364

012703

12:45
PAGE 92
BASIC RECEIVER TESTS
MOV

030132

1%:

000004

2%:

000020

025674
025700
025702

004737
104414
021204

027202

4856

025712

042737

177400

4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
22;3

4880

;RO
= MESSAGE COUNT

#6. ,R3

:R3= CHARACTER COUNT

JSR

PC, INRDY

:UAIT FOR INRDY

MOV

lFLTDAT R2

LOAD MESSAGE POINTER IN R2

ROMCLK
021204
MOV
MOovVB
CMPR
8EQ
HLT

4(R1) R4
(R2)+,R5
RS5,R4
2%
25

JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JGET DATA FROM IN SILO
;PUT CHARACTER IN FOUND''
JPUT "EXPECTED''
IN RS
;1S RECEIVED DATA CORRECT
:BR IF OK
;DATA ERROR

DEC
BNE

R3
18

;sDEC CHARACTER COUNT
BR IF NOT DONE THIS MESSAGE

#16. ,R3

JRESET CHARACTER COUNT

sCHECK TO SEE THAT IN B(CC MATCH IS SET
JAND THAT THE BCC WAS RECEIVED CORRECTLY

4852
4853
4854

4855

#3,R0

MOV

4849
zggg

SEQ 0092

025704

025720
025724
025726
025730
025734
0257640
025744
025746
025750
025752
025752
025754
025756
025764
025772
026000
026006
026010
026012
026016
026020
026022

116137

000004

004737
104414
021244
016104
042704
012705
120504
001401
104015

027202

104414
021204
116137
042737
053737
023737
001401
104027
012702
005300
001307
104400

001252

25%:

030132

PC.,INRDY

BIC

#177400, TEMP3

MOVB

001252

000004
000376
000001

000004
000377
001250
027344

JSR
ROMCLK
021204

001251
001250
001252
001252
4%:

3%:

JSR
ROMCLK
021244
Mov
BIC
MOV
(MPB
BEQ
HLT

ROMCLK
021204
MOVB
BIC

BIS
CMP
8EQ
HLT
MOV
DEC
BNE

SCOPE

4(R1)

,TEMP3

;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;JGET FIRST HALF OF CRC

JPUT IN TEMP3

:CLEAR HI BYTE

PC, INRDY

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1) R4
#376 ,R4

sPUT "FOUND'' IN R4
;CLEAR UNWANTED BITS
JPUT "EXPECTED'' IN RS
;IS IN BCC MATCH SET?

#1,R5

RS ,R4
25%
15

4(R1) ,TEMP2+1
#377,TEMP2
TEMP2, TEMP3
CALBCC,TEMP3
4%
27
#FLTDAT R2
RO
1%

;IN BCC MATCH ERROR

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JGET LAST HALF
JPUT IN TEMP?
;JCLEAR LO BYTE
216 BIT BCC NOW IN TEMP3
;1S IT CORRECT?
;JBR IF 0K
JRESET MESSAGE POINTER
;DECREMENT COUNTER
BR IF NOT DONE
;SCOPE THIS TEST

4881

JRNRRRRRARARRRNRARARRNCRANAN

(883
4884
4885
4886
4887

J*THIS TEST LOADS OUT SILO WITH THE FOLLOWING:
s*4 SYNCS,59 DATA CHARACTERS,EOM WITH GAK_AGE CHARACTER
;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK
;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
;*LOOP-BACY. CONNECTOR MUST BE ON TO RUN THIS TEST

4,882

4888

;*DDCMP CABLE DATA TEST

AR AN AR AN AR AN RN R

TEST

ana v ana v

vt ko kR werenn

AR AR A AN AR AR NAR RN NANRRRRARA N R AR AR RN RO RN

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
.
11-SEP-78 12:38

12: 45
PAGE 93
BASIC RECEIVER TESTS

purfnst

026024
026032

;

026040

000057
003364
040000

001226
001216

TSTS7:

004000

027510
027510

120001
026124

027342

000073
030126
026122
027236

027344

’$:

026124

5%:
6%:

#BIT14,STATI
3s
#BIT11,(RY)
PC,SYNLD
PC,SYNLD
#CRC16,XPOLY
63
#59. ,R3
AME SDAT ,R2

#SR

RS,SIMBC(CC

MOVB
0
0

MoV

BNE
JSR

027620
026374

JSR
JSR

MgSDAT

CLR
MOV

1%:

005300
001364

CALRCC,6%

7%
RS,MESLD
PC,EOM
PC,OCOR

(R1)
#59. ,R0

#ME SDAT ,R2
PC.,INRDY

MOV
MOVB

4(R1) R4
(R2) +,RS

021204

2%:

(R2)+,5$

MOV
JSR
ROMCLK

CMPR
BEQ

104025

#57,TSTNO
#_.EOP NEXT

8IT
BEQ
MOV
JSR
JSR
MOV
(LR
MOV
MOV

DEC

000004

026216
026220

MOV
MOV

027644

000073
030126
027202

TEST 57

MSTCLR

001366

SEQ 0093

sRT

CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DMC11
sSKIP TEST IF NO
sLOOPBACK CONNECTOR ON
;SET LINE UNIT LOOP
sLOAD 2 SYNCS
sLOAD 2 MORE SYNCS
:LOAD POLYNOMIAL FOR SOFT CRC CALC
+CLEAR OLD BCC
s CHARACTER COUNT
;R2= POINTER

;LOAD CHAR FOR SOFT BCC CALC.
¢CALC SOFT BCC
sSHIFT COUNT
s CHARACTER
.0LD B8CC
sLOAD OLD BCC
;DEC COUNT
;BR IF NOT DONE YET
;LOAD SILO
sMESSAGE ADDRESS
s CHARACTER COUNT
;LOAD AN EOM

:WAIT FOR OCOR

;CLEAR LINE UNIT LOOP
sRO= CHARACTER COUNT
;LOAD MESSAGE POINTER IN R2

;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET DATA FROM IN SILO
:PUT CHARACTER IN "FOUND'*

:PUT

IN RS
"EXPECTED''

HLT

R5.R4
2%

:1S RECEIVED DATA CORRECT
:BR_IF 0K
:DATA ERROR

DEC
BNE

RO
1%

;DECREMENT COUNTER
;BR IF NOT DONE

JCHECK TO SEE THAT IN BCC MATCH IS SET

JAND THAT THE BCC WAS RECEIVED CORRECTLY

026222

004737
104414
021204
116137

042737
004737

026256

104414
021244

016104

027202

000004

177400
027202

000004

JSR

ROMCLK

021204

MOVB
8IC
JSR

ROMCLK

021244

MOV

PC, INRDY

4(R1)

,TEMP3

#177400, TEMP3
PC., INRDY

4(R1) R4

JWAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF (RC

;PUT IN TEMP3
;CLEAR H] BYTE
;WAIT FOR

INRDY

JNEXT WORD IS INSTRUCTION, ROMCLK P(=5304

;PUT "FOUND'' IN R4

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1T
11-SEP-78 12:38

026262
026266

042704
012705
120504

12:45
PAGE 94
BASIC RECEIVER TESTS

000376
000001

#376 R4

sCLEAR UNWANTED BITS

CMPB

RS.R&

;IS IN BCC MATCH SET?

BEQ
25%:

104414

021204
116137
042737
053737
023737
001401

8IC

MOV

001401
104015

HLT

MOVB

BIC

BIS

104027
104400

3%:

#1,RS

JPUT "EXPECTED'' IN RS

25§
15

s IN BCC MATCH ERROR

ROMCLK

021204

000004
000377
001250
027344

SEQ 0094

P
BEQ
HLT
SCOPE

4(R1).,TEMP2+1

#377 , TEMP2

TEMP2, TEMP3

CALBCC, TEMP3
3s
27

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET LAST HALF
JPUT IN TEMP?
;CLEAR LC BYTE
216 BIT BCC NOW IN TEMP3
;IS IT CORRECT?
;BR IF OK
:SCOPE THIS TEST

: SUBROUT INES
GETSI

;THIS SUBROUTINE READS LU 17,

AND PUTS

INTO NITCH.

NITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY
104414

021364
017737
106137
106137

026372

106137
000207
000000

ROMCLK

153040

026372
026372
026372

026372

NITCH:

026374
026374
026376

021364

OCOR:
104414

MOV
ROLB
ROLB
ROLB
RTS
O

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
aDMPO4
NI TCH
NITCH
NITCH
NIT(H
PC

:THIS SUBROUTINE

000020

153004

BIT
BEQ
RTS

SYNC:

;THIS

:STORETMLU 17
JPUT SI IN THE CARRY BIT

SPINS ON OCOR

ROMCLK

021364

:PORT4_LU 17

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
#8174, aDMPO4
OCOR

SUBROUNTINE

LOADS

s CHARACTERS PASSED TO I1

JPORT4 LU 17

;1S OCOR SET?
BR

IF NO

THE

SILO WITH THE

‘0K OCOR IS SET, GO BACK
NUMBER OF

SYNC

IN _THE WORD AFTER THE JSR CALL

SAND A NON~SYNC CHARACTER (301)
001246
000002
000026
026526
000001

000004

MOV
ADD
MOV

a(SP)+, TEMP1
#2.-(SP)
#26,4(R1)

122114
JSR

FCLOUTRDY

ROMCLK

1%:

MOV

#1,4(RY)

;GET COUNT

sADJUST STACK
*LOAD PORT4

JNEXT
;LOAD
JWAIT
;LOAD

WORD IS INSTRUCTION, ROMCLK PC=5304
SYNC REGISTER
FOR QUTRDY
PORTS&

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC. P11
11-SEP-78 12:38

000026

SEQ 0095

#26,4(R1)

000004

N?
N
NESNEE
&

;WAIT FOR_OUTRDY

000004

#301,4(R1)

026374

PC,OCOR
PC

:
OUTRDY

001256

000020

1%:

15264¢€

CLR

TEMPS

ROMCLK

BIT
BNE
INC
BNE
HLT

026554
026556

gBITé.SDMPOA

(HAR:

pary

orIN=BNoroanrD

AN NNWWa
S NS AN
= SO
WOR N
=R =N

004737

000026

000004

ROMCLK PC=5304

JNEXT WORD IS
*PORT4_LUT1

INSTRUCTION,

ROMCLK PC=5304

;1S OUT RDY SET?

:BR IF

YES

IT.

.GET CHARACTER
JADJUST STACK

JSET FOR 3 SYNCS
;LOAD PORT4
JNEXT WORD IS INSTRUCTION,
;LOAD SYNC REGISTER

1¢:

ROMCLK PC-5304

JWAIT FOR QUTRDY

ROMCLK

122111
MOV

ROMCLK

122110
DEC

001246

INSTRUCTION,

;CLEAR TIMER

CHARACTER PASSED

#2,-(SP)
#3, TEMP]
#26,4(R1)

001246
000004

000004

026526
001250

THE

@(SP)+,TEMP?

026526
000001

:LOAD OUT DATA
JWAIT FOR OCOR

;THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS

JAND

001250
000002
000003
000026

;LOAD PORT4

INEXT WORD IS

:INC TIMER
;KEEP CHECKING IF NOT DONE
;ERROR, OUT READY NOT SET

RTS

026560

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sSET SOM

s THIS SUBROUTINE SPINS ON OUT READY

021224

001256

026560

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;LOAD PORT4

026526

026526
026532

;LOAD PORT4

'BR IF NOT

026526
000004
000301

SNEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
;SET _SOM

;LOAD OUT DATA

001246

NN ==
[ TUN IRV,
SN

026446
026450
026452
026460
026462
026464
026470
026472
026476
026502
026504
026506
026514

229888 2eraee
NQRERSONO
IO ~no
&
WS S
&Rron

5001
5002

12:45
PAGE 95
SUBROUT INES

#26,4(R1)
TEMPI
1%

PC,OUTRDY

TEMP2
4 (R1)

.LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
JSET SOM
.LOAD PORTS
JNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
;LOAD 2UT DATA
;ALL DONE?
;BR IF NOT
JWAIT FOR QUTRDY

;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK Pr-5304
.LOAD OUT DATA

CZDOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP~78 12:38
5057
5058
5059
5060
5061

026672

5064
5065
5066
5067
S068
5069
5070

026672
026676
026702
026706
026714
026716
026720

%82%

5071
5072
5073
5074
5075
5076
5077
5078

026664
026670

026724
026726
026730
026734

004737
000207

12:45
PAGE 96
SUBROUT INES

026374

JSR
RTS
CHARSD:

013637
062746
004737
013761
1046414
122110
004737

104414
122110
004737
000207

001250
000002
026526
001250

000004

026526

026736

S1.0LD:

gggg
026736
026744
0?6750
026752
026754

012737
005737
100470
001032
062737

5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5106

027002
027006
027014
027016
027020
027026
027030
027032
027036
027040
027044
027052
027054
027056
027062

(Q4737
012761
104414
122111
012761
104414
122110
005337
001361
004737
013761
104414
122110
005737
001407

5105
5106
5107
5108
5109
5110
5111
5112

JWAIT FOR OCOR

THE SILO WITH THE CHARACTER PASSED TO IT.

MOV
ADD
JSR
MOV
ROMCLK
122110
JSR

;GET CHARACTER
;ADJUST STACK
JWAIT FOR OUTRDY
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
JWAIT FOR OUTRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
.LOAD GARBAGE CHAR
:WAIT FOR OCOR

a(SP) + ,TEMP?
#2.,-(SP)
PC,CUTRDY
TEMP2.4(R1)
PC.,OUTRDY
~C,0C0OR
PC

:THIS SUBROUTINE FILLS THE OUT SILC

: WITH A BINARY COUNT PATTERN

5081
5082
5083
5084
5085

5086
5087
S088
5089

PC,0COR
PC

;THIS SUBROUTINE LOADS

ROMCLK
122110
JSR
RTS

026374

SEQ 0096

02¢762
026770
02677&
027000

027064
027072
027076
027100
027102
027106
027114
027116

012737
012761
104414
122114

013737
004537
000000
002010
005237
022737
001403
005337

000073
027176

001250

000002
000003
000026

001250
001246
000004

]
52652¢
000001

000004

000026

000004

MOV
TST
BM]
BNE
ADD

1%:

001246
026526
027176

000004

2%:

027200

027176
027726
027176
000400
001250

027076
5¢%:
027176

6%:

MOV
MOV
ROMCLK
122114

JSR
MOV
ROMCLK
122111
MOV
ROMCLK
122110
DEC
BNE
JSR
MOV
ROMCLK
122110
TST
BEQ
MOV
JSR
0
10
INC
(MP
BEQ
DEC

#73,TEMP?
SCHAR
4%
2%
H2,TEMP?2

#3,TEMPT
#26,4(R1)

PC,OUTRDY
#1,4(R1)

#26,4(R1)
TEMP
1%
PC.,OUTRDY
SCHAR,4 (R1)
STUFLG
6%
SCHAR,SS
RS,STFFCL

SCHAR
#400,SCHAR
3:
TEMP2

.LOAD COUNT
;FIRST TIME HERE?
JBR IF BITSTUFF
;BR IF NO
JADD 2 TO CHARACTER COUNT

JSET FOR 3 SYNCS
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD SYNC REGISTER

WAIT FOR OUTRDY
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM
;LOAD PORTS
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD OUT DATA
;ALL DONE?
;BR IF NOT
;WAIT FOR OUTRDY
:LOAD PORT4
,
sNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LGAD QUT DATA
JBITSTUFF?2?2?
;BR IF NO

JIT IS SDLD SO CHECK BITSTUFFING
JADD ANY BIT STUFF CLOCK TICKS
;CHARACTER
JCHIFT COUNT
NEXT CHARACTER
;ALL DONE?
:DECREMENT COUNT

CZOME
MACY11 30A(1052)
_11-SEP-78
CZDMEC.PI
11-SEP=78 12:38

5113
5114
5115
5116
5117

027122
027126
027130
027132
027136

001346
004737
000207
005037
012737

5119

027150

062737

5118

027144

5120
§121

027156
027164

§123
5124
§125

027170
027172
027174

5122

§126
§127
5128

5129
5130
5131
5132
5133

027166

027176
027200

005037
012761
104414

12:45
PAGE 97
SUBROUT INES

026374
027176
177777
030124
000002
0000017

3%
027200

4$:

001250
000004

122111

g}zg
5149
5150
5151
5152
g;gz

000000
000000

INRDY:

#2,TEMP?

;BR IF NOT DONE
‘WAIT FOR OCOR
:START PATTERN AT ZERO
“SET BITSTUFF FLAG
:CLEAR STUFF COUNT
“ADD 2 TO CHARACTER COUNT
SSET BITO IN PORT4
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“SET SOM!
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHAR
:GO LOAD SILO

:THIS SUBROUTINE SPINS ON INRDY
JIF 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,
027202
027210

027210
027212

027214
027222
027224
027230
027232

027234

012737
104414
021244
032777
001004
005237
001367
104037

000000

000020

00124¢

001246

2$:

027236

SIMBCC:

010046

5157
5158
5159
5160
5161
5162
5163
5164
§165

027244
027250
027254
027260
027262
027266
027272
027274
027276

012537
012537
013700
000241
006037
006037
005500
006000
103011

5167
5168

027304
027310

043700
043737

027240

027300

1$:

152170

000207

027236

5166

#1.4(R1)

SCHAR:
0
STUFLG: 0

027202

§155

5156

MOV
ROMCLK
ROMCLK
122110
BR

2};9

5142
5143
5144
5145
5146

BITCON

122111

106414
122110
000721

5135

§1640
5161

2
PC.OCOR
PC
SCHAR
#-1,STUFLG

CLR

ADD

5134

§138
5139

BNE
JSR
RTS
CLR
MOV

SEQ 0097

012537

013700

001246

1$:

027344
001250

027342
027344
027342

O IS THE LONGEST DELAY.

MOV

:SET UP DELAY COUNTER

ROMCLK
021244

BIT
BNE
INC
BNE
HLT

RTS

#8IT4,aDMPO4
2$
TEMP1
1¢
37

;NEXT WORD IS
*PORT4 LU12

INSTRUCTION,

ROMCLK PC-5304

1S INRDY SET?
*BR IF YES
*INC DELAY
*TRY AGAIN
*ERROR,NO INRDY

*RETURN

MOV

RO,-(SP)

;SAVE RO ON STACK

MOV
MOV
MOV
CLC
ROR
ROR
ADC
ROR
BCC

(R5) +, TEMP?
(R5)+,CALBCC
CALBCC,RO

‘TEMP2 = CHARACTER
:CALBCC = OLD BCC
*PUT OLD BCC IN RO

CALBC(
TEMP2
RO
RO
2%

;SHIFT OLD BCC
SSHIFT CRARACTER
*ADD CHAR CARRY TO OLD BCC
‘PUT BITO TO CARRY BIT
*CARRY IS FEEDBACK BIT

BIC
BI(

CALBCC,RO
XPOLY
., CALBCC

SEXCLUSIVLY OR XPOLY TO CALBCC

MOV
027344

#0, TEMP1

cTHIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN
*IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE
:STATE OF THE LSB OF THE BCC IS RETURNED IN THE C BIT.

MOV

001250
027344
027344

THE SMALLER THE NUMBER

*THE SHORTER THE DELAY.

(RE)+, TEMP1

XPOLY ,RO

STEMP1 = SHIFT COUNT

*IF FEEDRACK = 1

11-SEP-78
CZOME
MACY11 30A(1052)
CZDMEC P
11-SEP-78 12:38

027316
027322

050037
005337
001352
013700

006000
012600

12:45
PAGE 98
SUBROUT]NES

027344
001246

2%:

027344

XPOLY:
CALBCC:

SEQ 0098

BIS
DEC

RO, CALBC(
TEMP1

JDEC SHIFT COUNT

MOV
ROR
MOV
STS

CALBCC,RO
RO
(SP)+,R0
RS

JPUT RESULT IN RO
;SHIFT BITQO TO CARRY
JRESTORE RO
JRETURN

BNE

;BR IF NOT DONE

0
LR(C8=200
CRC16=12 0001

102010

CRC.CCIT T-102010

027346

BCCLD:

;THIS

SUBROUTINE

;WITH

THE

LOADS

THE OUT

SILO WITH 2 SYNCS

;WITH SOM SET, AND ONE CHARA(CTER PASSED TO IT

013637

001250
000002
000002
000026
026526
000001

027410
027412
027414

000026

027422
027424

027426
027432
027434
027440
027446
027450
027452
027456

MOV
001246
000004

ADD
MOV
MOV

000004

122114
JSR
MOV

ROMCLK

1%:

ROMCLK

122111
MOV

000004

ROMCLK

122110
DEC

001246
026526
001250

BNE

JSR

000004

MOV

ROMCLK

122110

026374

027460

JSR

RTS

GETQO:

s THIS

SOM BIT

(LEAR

a(SP)+, TEMP2

027470

027472

104414

021364

106177

000207

JADJUST STACK
JSET FOR 2 SYNCS
;LOAD PORT4

151722

RTS

GETQ!:

JNEXT WORD

INSTRUCTION,

ROMCLK PC=5304

JNEXT WORD

INSTRUCTION,

ROMCLK PC=5304

JNEXT WORD

INSTRUCTION,

ROMCLK PC=5:04

;LOAD SYNC REGISTER
;WAIT FOR OUTRDY
;LOAD PORT4

PC,OUTRDY
#1,4(R1)

JSET SOM
;LOAD PORTS

#26,4(R1)

;LOAD OUT DATA
JALL DONE?

TEMPI

;BR IF NOT

PC,OUTRDY

;WAIT FOR OUTRDY

TEMP2,4(R1)

;LOAD PORT4

PC,O0C0R

;WAIT FOR OCOR

JNEXT WORD IS INSTRUCTION,
;LOAD OUT DATA

SUBROUTINE

READS

THE

STATE

SNEXT WORD

TRANSMIT

INSTRUCTION,

JPORT4 _LU-17
;PUT Q0 IN CARRY

aD/PO4

sTHIS SUBROUTINE

THE

ROMCLK PC-5304

IN THE CARRY BIT

ROMCLK

021364
ROLB

CRC)

:GET CHARA(CTER

#2,-(SP)
#2.TEMP]
#26,4(R1)

;BCC LSB AND PJUTS IT
027460

(ENABLE

JRETURN

READS

THE

STATE

THE

JBCC LSB AMND PUTS IT IN THE CARRY BIT

RECEIVE

ROMCLK P(=5304

MACY11

11-SEP-78
30A(1052)
11-SEP-78 12:38

027472
027474
027476
027502
027506

12:45
PAGE 99
SUBROUT INES

SEQ 0099
JNEXT WORLC IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU-17

ROMCLK

021364

151710

151704

027510

SYNLD:

ROLB
ROLB
RTS

aDMPO4
aDMPO4
PC

;THIS

SUBROUTINE

;PUT QD IN CARRY
;PUT QI IN CARRY
JRETURN

LOADS OUT

SILO WITH

NOfsSapraNS~raN

rO
SO
W =S
NS ES NN
SN
W SN2
S ORWN= 2NN

8-.—.0—.-‘0
n
wviny RN
INLY

027510
027516
027524
027526
027530
027534
027542
027544
027546
027554
027556
027560
027564
027566

—_—— OO

;2 SYNC CHARACTERS WITH SOM SET

001361

000002
000026

001246
000004

026526
000001

000004

000026

000004

MOV
MOV
1%:

ROMCLK
122114
JSR

MOV

ROMCLK
122111

;LOAD COUNTER FOR 2 SYNCS

PC,OUTRDY

;LOAD SYNC REG
;WAIT FOR OUTRDY

122110
DEC
BNE

TEMP
1%

;THIS

JPORT4 26

JNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
.LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#1,4(RY)

#26,4(R1)

RTS

SOM:

#2,TEMP]
#26,4(R1)

MOV

ROMCLK

001246

027570

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JLOAD OUT DATA WITH SYNC
.DECREMENT COUNTER
;BR IF NOT DONE

SUBROUTINE

sRETURN

LOADS

. GARBAGE CHARACTER (O)
027570

026526
000001

027606
027612
027614
027616

JSR

000004

EOM:

DATA WITH A

#1,4(RT)

JWAIT FOR OUTRDY
JPORT4 1

122111
(LR

L(RY1)

. CLEAR DATA (HAR

ROMCLK
122110
RTS

027620

PC.,OUTRDY

SOM AND OUT

MOV

ROM(CLK

000004

cTHIS

SUBROUTINE

SNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD GARBAGE CHARA(TER
JRETURN

LOADS EOM AND OUT

DATA WITH A

027644

SRRRROE

027620
027624
027632
027634
027636
027640
027642

NN
QO
md s
ON N
NOH 22N

. GARBAGE (CHARACTER (2) TO ENABLE TRANSMISSION OF B((

Q=0
a0 = OO
nNONO
—

CZOME

CZDMEC P11

026526
000002

JSR

000004

MOV

ROMCLK

PC,OUTRDY

#2,4(R1)

122111

RTS
MESLD:

JNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

JSET EOM
JNEXT WORD

ROMCLK

122110

;WAIT FOR OUTRDY
JPORTS4 2

INSTRUCTION,

.LOAD GARBAGE CHARAC(CTER

JRETURN

s THIS SUBROUTINE LOADS SILO wlTH MESSAGE

ROM(CLK PC(=530¢4

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.PT
11-SEP~78 12:38

12:45
PAGE 100
SUBROUT INES

5281
gggg

;THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE
:THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE

§284

027644

010046

5086
5087

027650
027656

012537
004737

5285

5088

5089
5291
5292
5293
5294
§295
5296
5297
5098

5299

027646

027660

027664
027666
027670
027674
027676
027702
027704

012500
112061

104414
122110
005337
001367
004737
012600
000205

001246
026526

000004

001246
026374

CLRIO:

027706
027714
027716
027720
027722
027724

012761
104414
122112
104414
122111
000207

§314

027726

010046

5316
5317
5318
5319
5320
5321
5322
§323
5324
5325
5§36

027732
027736
027740
027742
027746
027750
027754
027762
027764
027770
027774

012537
106000
103403
005037
000412
005237
022737
001004
005037
104415
005337

5329
5330
5331
5332
5333
5334
5335

030004

000205

§327
5328

MOV
JSR

(RS)+ . TEMP1
PC,OUTRDY

MOVB

:SAVE RO

(RS)+.RO

:RO=MESSAGE POINTER

(RO)+,4(R1)

:LOAD PORT4 WITH CHARACTER

TEMP1
1%
PC.OCOR
(SP)+,R0
RS

*TEMP1=CHARACTER COUNT
sWAIT FOR OUT RDY

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO
*DEC CHAR COUNT
*BR IF NOT DONE
*WAIT FOR OCOR
*RESTORE RO
*RETURN

;THIS SUBROUTINE SETS IN CLR AND OUT CLR TO

:CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS

027725

5315

RO, -(SP)

ROMCLK
122110
DEC
BNE
JSR
MOV
RTS

027706

5310

5311
;5%

MOV

2%8?

§302
5303
5304
5305
5306
5307
5308
5309

SEQ 0100

027730

00000
030002

030006

000200

000004

MOV
ROMC LK
122112
ROMCLK
122111
RTS

STFFCL:

012500

001356
012600

MOV

“$:

030124
030124
000005
030124
000001
001252

030124

28 :

3%,

STFFCK:

:LOAD PORT4
*NEXT WORD IS INSTRUCTION. ROMCLK PC=5304
“SET IN CLR!
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“SET OUT CLR!
*RETURN

:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS
:FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT.

MOV
001252

#BIT7,4(R1)

RO, =(SP)

(R§)+,RO

:SAVE RO

:PUT CHAR IN RO

MOV
(R5)+_TEMP3
ROR8
RO
BCS
2$
CLR
BITCON
BR
3¢
INC
BITCON
cMP
#5,B]TCON
BNE
38
CLR
BITCON
DATACLK,
1
DEC
TEMP3

*PUT SHIFT COUNT IN TEMP3
*LOOK AT NEXT BIT
‘BR IF A MARK
$IT WAS A SPACE, CLEAR 1'S COUNTER
* CONTINUE
- INC CONSECUTIVE 1°'S COUNTER
SIS IT S YET?
‘BR IF NO
SYES!
SO START AGAIN
*GIVE EXTRA TICK TO STUFF ZERO
‘DEC SHIFT COUNT

RTS

*RETURN

BNE
MOV

1%
(SP) +,R0O

*BR IF NOT DONE
*RESTORE RO

;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER
SIS STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT
$IS THE (r ARACTER, SECOND ARGUMENT IS SHIFT COUNT.

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC PN
11-SEP-78 12:38

1%:

030124
030124

80@\‘
GEege

VIV

000176
000000
000
377
001
010
100
375
357
177
100
170

030160
030163
030164
030167
030172
030175
030176
030234
030277

2%:

BITCON

#5,BITCON

BITCON

174
001
363
200
377
037

046377
046377
377

PC,GETSI

001252

3s
30

TEMP3

(SP)+,R0O
RS
CTSDLY:

030122
030124
030126
030131
030132
030135
030140
030143
030146
030151
030152
030155

JPUT SHIFT COUNT IN TEMP3
JSHIFT OUT NEXT BIT
JBR IF IT IS A MARK

030124
000001
026342

030076

010046
012700
027777
005300
001373
012600
000207

(RS)+.TEMP3
RO
2%
BITCON

000205

030076
030100
030104
030112
030114
030116
030120

;SAVE RO

(R§)+.RO

001252

030124
000005

RO,~(SP)

000032
151074

151072

1%:

JPUT CHAR IN RO

;IT WAS A SPACE,

CLEAR 1'S COUNTER

; CONT INUE
JINC CONSECUTIVE I°'S COUNTER

;5 IN A ROW YET?
JBR IF NC
JYES,

SO START OVER

JEXTRA TICK TO STUFF ZERO
;LO0K AT WINDOW
;IS IT A ZERO, BR IF YES

:NO, ERROR ZERO WAS NOT STUFFED
<DEC SHIFT COUNT
;BR IF NOT DONE
JRESTORE RO
;RETURN

;THIS SUBROUTINE WASTES TIME UNTIL CTS SETS,
;BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OuT
MOV

RO, ~(SP)

DEC
BNE

RO
18

MOV
TMMP
MOV
RTS

#32 R0
aTKCSR,aTKCSR
(SP)+.RO

FLAG:

“B<01111110>

MESDAT:

.BYTE

0,125,252.,377

BITCON: 0

;SAVE RO
JLOAD RO WITH COUNT

;WASTE

TIME

<DECREMENT COUNTER
;DO [T AGAIN IF NOT = 0
;RESTORE RO

;RETURN

cFLAG (HARAC(CTER

125

252

002
020
200
373
337

004
040
376
367
277

FLTDAT:

.BYTE

1,2,4.,10,20,40,100,200,376,375,373,367,357,337,277,177

140
003
176

160
300
177

STUFDT:

.BYTE

100,140,160,170,3,300,174,176,177
1

347
000
377

317
377
200

BYTE

365,347,317,200,6,377,377,377,200,37

047111
047111
044514

020105
020105
042516

LASCIZ
JASCI2
LASCIZ

<377>/L INE UNIT INITAL]IZ TION TEST/

.EVEN
EM]:
Eme:
EM3:

<C?7>“LINE UNIT REGISTER READ/ONLY TEST®
<3775 INE UNIT REGISTER WRITE/READ TEST*
—

030074

010046
012500
012537
106000
103403
005037
000416
005237
022737
001010
005037
104415
004737
103001
104030
005337
001352
012600

SEQ 0101

D—

030006
030010
030012
030016
030020
030022
030026
030030
030034
030042
030044
030050
030054
030060
030062
030064
030070
030072

12:45
PAGE 101
SUBROUT INES

]

b
b
3 \ Y\

NNV

—
—

ONOOW

—_

&Hon
v

~
~
~~
~~

~ =~

o£

puity

(@]

H
N
~
~
~

377

031161

[

~
~

<
&H N

—

-— —

—

=)
oo

Wv e

377

031137

EM4 :

LASC]Z

EM6E :

JASCIZ

EMS:

bgom-—aoo—a
=000
ot N P par o PPNy

]

12:45
PAGE 102
SUBROUT INES

044 5
051
042 5
041 S
047 S
051
041 5
020 1
0405
=SNW-O

377
377
377
051377
377
377
051377
044777
052377

SRSSRR

030343
030405
030435
030454
030501
030525
030554
030600
030640

HWISES =2V
RSNSOI
NWS
ONIN
=SAOON NSNS

C/DME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

EM7:
EM10:

LASCIZ

EM16:

LASCIZ

031524

003

010

031530

003

002

031536

003

017

031542

002

007

LASCI2
JASCIZ
.ASCI2Z
JASCIZ
JASCI2

DH1:
DHZ:
DH3:

LASCIZ
LASCIZ
LASCIZ

EM24 :
EM25

031550

006

021

031554

002

031560
031562
031564
031566
031570

002003
001
001300
001
001302

011

LASCI2
JASCIZ

DH4 :
DH5:
DH6 :

JASCIZ
LASCI2Z
LASCI2

DH10:

JASCIZ

DI1:

2
BYTE
SAVRS
BYTE
SAVR4
3
BYTE
SAVRS
BYTE
SAVR4
.BYTE
SAVRZ2
2
BYTE
SAVRS
.BYTE

002

007

JASCIZ
JASCIZ
JASCIZ
LASCIZ

EM17:
EM20:
EM21:
EM22:
EM23:

.EVEN

000G02
003
001272
003
001270
000003
003

JASCI2
JASCIZ

EM11:

EM12:
EM13:
EM14:
EM15:

DH7:

031504
031506
031510
031512
031514
031516
031520

JASCI2

DT2:

DT3:

DT4:

D15:

LASCI2

SAVR3

2
BYTE
CALB((C
BYTE

SAVR3
3
RYTE

ZERO
BYTE
ONE

SEQ 0102

<377>/LINE UNIT INTERNAL CLOCK FAILURE/

<377>/TRANSMITTER DATA ERROR/
<377>/RECEIVER TEST/
<377>/RECEIVER DATA ERROR/
<377>/MODEM SIGNAL ERROR/
<377>/TRANSMITTER CRC ERROR/
<377>/RECEIVER CRC ERROR/
<377>/IN BCC MATCH ERROR (LU REG 12)/
<377>/TRANSMITTER FAILED TO GO TO MARK STATE/

<377>/CABLE DATA TEST/

<377>/FLAG ERROR/
<377>/TRANSMITTER FAILED
<377>/SWITCH PAC TEST/
<377>/ABORT ERROR/
<377>/TRANSMITTER ERROR/
<377>/HALF DUPLEX TEST/
<377>/0UT READY NOT SET/
<377>/IN READY NOT SET/

TO STUFF A 2ERO/

<377>/EXPECTED
FOUND/
<377>/EXPECTED
FOUND
LU=REGISTER/
<377>/CHARACTER
BIT THAT FAILED/
<377>/CORRECT (RC
BIT THAT FAILED/
<377>/EXPECTED
FOUND
SHIFT/
<377>/EXPECTED
FOUND
(HARACTER
SHIFT/
<377>/BLOCK END NOT SET/
<377>/RTS DID NOT

3.7
3.2

3.7

CLEAR/

CZOME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P11
11-SEP-78 12:38

031572
031574
031576
031600
031602
031604
031606
031610
031612
031614

031616
031620
031622
031624
031626
031630
031632
031634
031636
031640
031642
031644
031646
031650
031652
031654
031656
031660
031662
031664
031666
031670
031672
031674
031676
031700
031702
031704
031704
031706
031710
031712
031714
031716
031720
031722
031724
031726
031730

031732
03173
031736
031740
031742
031744

002
001260
000003
001
001302
001
001300
002
001260
000004

001
001300
001
001302
003
001272
002
001266
000004
001
001302
001
001300
003
001272
002
001266
000002
_ 003
030122
002
001266
000002
006
027344
006
001252

000000
000000
000000
030176
031202

031516
030234
031202

031516
030277
031202
031516
030343
000000
000000
030405
031202

12:45
PAGE 103
SUBROUT INES

002
011

DT6:

011
002
011

DI7:

o
007
001
011

DT10:

007
001

007

priv:

002
004

pr12:

002

BYTE
SAVRO
3
.BYTE
ONE
BYTE
2ERO
BYTE
SAVRO
&

BYTE
ZERO
BYTE
ONE
.BYTE
SAVRS
BYTE
SAVR3
4
BYTE
ONE
BYTE
ZERD
.BYTE
SAVRS
BYTE
SAVR3
2
.BYTE
FLAG
BYTE
SAVR3
2
BYTE
CALBCC
BYTE
TEMP3

.ERRTAB:

EM1
DH2
DT
EM2
DH2
D12
EM3
DH2

DT2
EM4
0
0
EMS
DH2

SEQ 0103

2,2
1,11

1,1
2,2
1,11

1,11
3,7
2,1
1,11
1,11

3,7
2,1

3,7
2,2
6,4
6,2

0
0
0
SHLT

SHLT

SHT

wn
Yo

TEIRLSRILRIARES o

—

BAHAANBAN
AR AN A§?fl

ololelololololololololololele]
o] (]

031746
031750
031752
031754
031756
031760
031762
031764
031766
031770
031772
031774
031776
03

11-SEP-78
(JOME
MACYT1 30A(1052)
11-SEP-78 12:38
CZDMEC.P1

031336

12:45
PAGE 104
SUBROUT INES

D12
EMS
DH3
D13
EM6
DH1
DT
EM7
DH1
DT
EM10
DH1
oM
EM11
DHS
DTS
Em1?2
DHS
DTS
EM11
DH¢4

DT4

EM13

DH1
DT
EM11

DHS

RRNSaRRORR

D16

031672
030745

SEQ 0104

JHLT
SHLT

SHLT

cHLT

HLT

cHLT

JHLT

JHLY

SHLT

JHLT

SHLY

CHLT

JHLT

SJHLT

SHLT

JHLT

2’

CZDME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1N
11-SEP-78 12:38

032126

000000
000000
031011
031161
031504

0000
031137
000000
000000
030435
031202
031516
030405
031336
031560
030600

032224
032226

031161
031504

000001

12:45
PAGE 105
SUBROUTINES

SEQ 0105

JHLT

3¢

JHLT

8IT12 = 010000
BIT13 = 020000

BIT14 = 040000

BIT15 = 100000
BITZ2 = 000004
BIT3 = 000010

BIT4

= 000020

BITS
BIT6
BIT7
BIT8
BIT9

=
=
=
=
=

BM
BRLVL
BRW
BRX
CALBCC

CHAR
CHARSD
CHRCNT
CKSWR
CKSWR1
CKSWRZ2

CKSWR3
CKSWR4
CKSWRS
CLKX
CLRIO

CNERR
CNT.MA
CNVRT =
CONERR

CONN

000040
000100
000200
000400
001000

007054
012252
003730
003732
027344

026560
026672
004712
007606
007666
007700

007704
007710
010014
001242
027706

007277
001702
104411
007223

007114

CONTAB 002776
CONVRT= 104410
CORMAX 032226

CRAM

CRC.CC= 102010
CRC16 = 120001

1473«
1163
11620
1120
3581
1559+
5118+
6894
688%
6798
6784
3159
3939
6774
6764
6754
676#
6874
6864
6854
5142
684#
6834
6824
6814
6804
17814

2211

1312
1313
3600
4232
4910
3160
50614
1557%

1509+
1202
1257
19624
3610
1562+
5319+
1749
1125
2107
2647
3207
4010
2058
2061
1375
1079
1125
2143
1733
2255
1738
1739
2117
2115
2086
2221
1398
1399
3629
4262
4956
3208

15184
1207

ADRCNT= 004373
AUDONE
003024
AUSTRT
002446
AUTO.S 010512
BCCLD
027346
BINWRD 004714
BITCON 030124
BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000

12:45
PAGE 107
CROSS REFERENCE TABLE =-- USER SYMBOLS

=N NN SSMNNIN)
= — N (N
N2 W—LO =2 =2 SN2 NNWION
NVNORNZWO
=20
OO NNIONO
S O0OWNO = (WO

CZDMEC.P11

30A(1052)
11-SEP-78
11-SEP-78 12:38

SEQ 0106

12534

3685
16004
5322

53724

1749

NN
= =N
= =0UNW
=S WNNWNWN
NNV

MACY11

3045
3650

3073
3725

4802

4896

3290

3327

3400

4717

3675

3976

4283
5158+

4626
51774

3245
1564
1405

1833
1814

1840
18494

3576
1220

3605
17814

3651

3680

3726

3755

3801

3830

52984

87w

1217

1078
1332

1080
1334

1082

1887
1338

1654

1656

1716

1822

17814
1226

2063
12374

1223

1670

1985

3682

2728

3757

3803

3832

3878

3944

790

1215

gosw

5390
17814
51804
3578
4453

9584

17814

1137

3129
3873

4765

4984

5026

4035
4680
5390

4056
4816

4211
4,872

4029

4205

4256

2216

1560
1373
1837

1706
18194
18224
1824
18254
1807
7654

3101
3800

Y]
n
n
O

CZDME

1336

2024

3607

4523

3653

4807

4901

5179

CZOME

MACY11

CREAM

001320

CZOMEC.P1T

CSR
CSRMAP
CTSDLY
CYCLE
DATABP
DATACL= 104475

30A(1052)

7894
17814

1077 +
1989

1883+

1884

18744
16714

2735
3005
3,06
3762
4075

4446
4774

DMS100

»
»

1886+

1890

2795
3008
3405
3763
4082

279
3049
3442
3808
4084

4460
5325

%2
%
»

SEQ 0107

4481
5348

2847
3133
3612
3838

4212
4551

2861
3162
3613
3892
4233
4569

2897
3210
3658
3894
4263
4576

2898
3247
3659
3958
4284
4578

2912
3284
3687
3960
4302
4589

1098«

1329+

1270

1271

18764

1888

1970+

2171~

2177+

2178«

2182

2207

1196

1201%

1206%

1241

1359

1396

1688

1711

1757

1892+

1901

1739«
1904+
1345
1733

1743x
1905
1968«
1770

1749+

1750»

1756%

1758+

1901

1902+

1903

1983=
1775

2142x
1905+

2163

2172

2174
“IN

4984

5026

5142

5217%

1907+
1911+
1893+

1908+
1912
1894x

*010

62*

b
—

DMRL
VI
C
DMRVE

b B\

R 3

~
Qo
S

DMCSRH
DMCTL

b —a ) —

DMCSR

WWNNO NN NONO
NN =
[0 = BN
NOW ~
~nNo O £00 VNN J

DMCR10
DMCR11
DMCR12
DMCR13
DMCR14
DMCR15
DMCR16
DMCR17

12:45
PAGE 108
CROSS REFERENCE TABLE == USER SYMBOLS

11-SEP-78
11-SEP-78 12:38

1906+

1907

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38

DMS101
oMS102
DMS103
DMS104
pMS10S
oMS106
DMS107
OMS110
pMS111
DMS112
DMS113
DMS114
DMS11S
DMS116
DMS117
DMS200
OMS201
DMS202
OMS203
OMS204
DMS205
DMS206
DMS207
OMS210
oMS211
OMS212
DMS213
OMS214
DMS215
DMS216
OMS217
OMS300
oMS301
DMS302
DMS303
DMS304
DMS305
DMS306
DMS307
OMS310
DMS311
DMS312
DMS313
OMS314
OMS315
OMS316
OMS317
DMTLVL
DMTVEC

001512
001522
001532
001542
001552
001562
001572
001602
001612
001622
001632
001642
001652
001662
001672
001504
001514
001524
001534
001544
001554
001564
001574
001604
001614
001624
001634
001644
001654
001664
001674
001506
001516
001526
001536
001546
001556
001566
001576
001606
001616
001626
001636
001646
001656
001666
001676
001402
001400

8794
884n
8854
8544
899#
904N
9094
9144
9194
924
929K
9344
9394
9444
94,94
8754
880#
8854
8504
8954
9004
9054
9104
9154
9204
9054
930w
9354
940m
9454
950#
8764
8514
886
8914
8964
9014
9064
9114
9164
9214
9264
9314
9364
9414
4 6a
9514
8554
8544

1914%
1912+

1915+
1913«

1914

003734

1378

1380«

14004

1810«

82'5%2 881?88
DONE

DT
DT10
0111
DT12

031504
031636
031660
031672

333’

53904
53004
53904
53904

1393

12:45
PAGE 109
CROSS REFERENCE TABLE =-- USER SYMBOLS

1077

1130

1140

1256

1884

SEQ 0108

1886

1964

1969

;

199

11-SEP-78
CZOME
MACY11 30A(1052)
11-SEP-78 12:38
CZDMEC.P11

031546
031560
031576
031614
030176
030501
030525
030554
030600
030640

EM16
EM17
EM2
EM20
EM21
EM2?
EM23
EM24
EM2S
EM3
EM4
EMS
EM6
EM7
EoM
ERCTO0

030731
030745
030234
03101
031032
031047
031072
031114
031137
030277
030343
030405
030435
030454
027620
001704

SEQ 0109

419

4195

4438

4443

4822

4826

1681«
1389+

1899«
163"«

1644

1658+

1717

4828
1209

<245

4875

53754

030122
002536
030132

002566

—

53714

11794
4810

1188«

7S57#

—

002000

(e JU IVI1N)
ONPOON
—
NONOOON

001710
001714
001720
001724
001730
001734
001740
001744
001750
001754
001760
001764
001770
001774

002700
001232
001325
ERRMSG
005172
ERRPC
002770
ERTABO 005322
EXIT
= 000205
EXITER 005252
FLAG
FLOAT
FLTDAT

4117

OO WM
OW NN
—
— N OV =
»
xR
x

ERCT12
ERCT13
ERCT14
ERCT15
ERCT16
ERCT17
ERR
ERRCNT
ERRFLG

TABLE == USER SYMBOLS

030710

=00 =W

ERCTO1
ERCTO2
ERCTO3
ERCTO4
ERCTOS
ERCTO6
ERCTO7
ERCT10
ERCT11

031516

D14
DTS
D16
077
EM
EM10
EM
EM12
EM13
EM14

EMI1S

031534

—
P A\
S}

01?2

073

12:45
PAGE 110
CROSS REFERENCE

4824

1203

4830

4916

52664

11-SEP-783
CZDME
MACY11 30A(1052)
11-SEP-78 12:38
CZDMEC.PI11

5349
1627
1470+
7534

1440
1825
7954

3362

LOKFLG
LOLIM
LPCNT
LRC8 =
LSTERR

001326
004364
001224
000200
001234

7974
1669+
7544

MASKX
MASTEK
MCRLF
MCSRX
MDATA
MEMLIM

001244
006142
005672
006072
007544
001304

7664
1652

LUTYPE=

MEPASS
MERRPC
MERRX
MERR?
MERR3
MESDAT

wannnn

005733
(006217
006117
005760
006005
030126

MESLD

027644

MILK
MLOCK
MNEW
MODU
MPASSX

001322
006043
006144
006704
006106

MPFAIL
MaM
MR
MRESET
MSTCLR

005675
005666
005755
004000
104412

1476
18534
1101

3406

3459
4632
51304

4120
4646

4142

1997

2076

2085

2025

2064

22494

1391«

1650

3722+

2373«
3754~

1630+

1718+

1657

164594

2008

1231
1486
17814
1472«

7524

3572«

1491
1923

17814
14974
2077
1501

3604+

1084+
5150

1425
1331
1578
(828
1330
1655
1337

1548
17814
1588
1294+
17814
7814
17814

17814

2184
17814

3543

4011

3542

4016

4441

4913
7904
1308
1262

17814
1335
1715
1455
1317

6904
8294

4060
4312
49654

6147
4665

4325
721

4339
4731

4344
4739

4368
4836

4382

2389+
3797«

26415+
3829+

2431«

2457+

2480+

2515+

2535+

17814

1922

1984

4189
4711
4440

4249
4904
4710

4324
4914
4770

4920
48°9

6367

4430
5373
4823

4436

2568

2590

2612

2646

2679

4660

4852

1499
1386+

51784
7584
595

17814
1267

4043

4303
4579

16734
1497
1387

1647

8174
8154

4236
4508

4076
4467

4592
4921

104404
104403
004166
012266
007330
004314
007016
004372
001220

3774
3745
2905

3524
3595
2803

4387
4857

INSTER=
INSTR =
INSTRZ
INTTY
KMCM
LIMITS
L INE
LOBITS
LOCK

SEQ 0110

4516

52794
1078«
17814

6114

4183
4706
4435

1339

1887+

1891

4017
4591

N
= (N

4064
4463

TABLE == USER SYMBOLS

P
S o
NN
-

005222
004366
001222
007502
010020
001324
027202

3620
3591
2799

O~J40

HALTS
HILIM
ICOUNT
INBUF
INCHAR
INIFLG
INRDY

027472
027460
026342

OO
=
=

GETQI
GETQO0
GETSI

12:45
PAGE 111
CROSS REFERENCE

4827

17814

2047
17814
17814
17814
17814

1946
1940

2021

2031

2041

2056

2070

1720

2319

2343

2375

2617

2459

2517

MTITLE
MTSTN
MTSTPC
MVE CX

001000

006130

006031
006100
001216

NITCH
NOACT
NODEV
NUM
OCOR

026372
007154
002674
006450
026374
002646
001302
026526

0K
ONE
OUTRDY

PACTOO
PACTO1
PACTOZ2
PACTO3
PACTO4
PACTOS
PACTO6
PACTO?7
PACT10
PACT11
PACT12
PACT13
PACT14
PACT1S
PACT16
PACT17

001702
001706
001712
001716
001722
001726
001732
001736
001742
001746
001752
001756
001762
001766
001772
001776
PARAM = 104405
PARAM1
004234
PARB] T= 040000
PARERR
004310
PASCNT

PERFOR=

POPRO =
POP1SP=
POP2SP=

7514

2610
3155«
3796+

PUSH1S=
PUSHZ2S=

17814

1393

2644
3203«
3870+

4972«

1171
17814

12104
1976

1117

2686

17814#4

2730

2883
3394

2986
3482

3044
3529

2614w
2984
34,80%

2456+
3042+
3527+

4895

2270+
2721+
3277+«

2294+
2779
3314

2317«
2830~
3351«

2341
2881+
3392%

2372«
2932+
3436w
4697

4760+

4799+

4004+
4974x

2843

6106*
L9764

4176~

2894

2945

4423%

L9794

4985

3004

3891

5015

3957
5057

4020

4999

2890
5270

2936
5008
5287

2941
50194

2991
5044

2995
5053

1999

2078

2087

14914
1340

1498
1365

1500
1898+

1502

1070«
1677

2211«

2221+

1076+

1384

4704

4769

925

1990

1480
1328

2788

2839
5240

497

2885

5256

96S#

9684
9714
Q74LH
Q774
9804
9834
9864

9894

9924
9954
9984
10014

1492

17224

6664
6644

1680

17814

2007

1702

3128
3724

4801

4187
5194

7984

3100
3649

4762

4113
5099
9594
9624

1669

3072
3574

4699

4831

10044
8194
14754
6904
1478
7564
6904

SEQ 01N

4425

1395

66748

005220
005350

2934
3438

4713
12044
5390

2783

TABLE =-- USER SYMBOLS

4708
1197
7814

6574
66SH
6634

4108
1105
17814

4971

6684

PUSHRO=

QV.FLG
RESREG
RESTAR

17814

1333

1716

PF TAB

PRIO
PS

4006
7304
1653

2781
3316

16724
1708#

5073

2514
3070«
3571«

4893

3205
3872

3242
3938

2566+
3098+
3646+

2588+
3126+
3721+

&H00

2723
3279

12:45
PAGE 112
CROSS REFERENCE

—_——

CZDME
MACY11 30A(1052)
11-SEP~78
11-SEP-78 12:38
CZOMEC.P11

3000
5066

6444

5293

3023
5070

4015
5090

11-SEP-78
CZDME
MACY11 30A(1052)
11-SEP-78 12:38
CZDMEC.P11

RESTRT

SCOP1

SKIP
SOF TSW
SoM
SPACNTSPEED
STACK STAT
STAT1
STATZ2
STAT3
STFFCK
STFFCL
STRTSW

002632
010052
027570
004713
007340
001200
001240
001366
001370
001372
030006
027726
001236

STUFDT
STUFLG

030152
027200

SWFLG

010016

004402

SEQ 0112

1393«

5105

2360
2918
3422

= 104601

026736
027236

SvO05

1314~
1731

001316
001312
001314
001276
001260
001262
001264
001266
001270
001272
001274
104406
027176
104400

SILOLD
SIMBCC

13554

003534

RESOS = 104407
RETURN
001214
ROMCLK= 104414

RUN
SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVRZ
SAVR3
SAVR4
SAVRS
SAVSP
SAVOS =
SCHAR
SCOPE

12:45
PAGE 113
CROSS REFERENCE TABLE =-- USER SYMBOLS

5109«

2402

2598
3142
3783

2631

3467

2576
3114
3708

5858

2664
3228
3924

4683

4748

2476

3603

3632

3678

3707

5077#
3736
51504

3765

3961

4031

4207

4258

1941+

1971

2443

12004

1710

15274
1074

3483

3485

3509

3530

3532

4802

4896

1113

1123

1125

1260

1306

1315

1917

51274

18514

CZOME
MACY1T1 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZOMEC.P1

12:45
PAGE 114
CROSS REFERENCE TABLE -~ USER SYMBOLS

SWMES
SWMEST
SWR

SWREG

SW00

SWO1

SwO2
Sw03
SwO4
SWO5
Sw06
SwO7
Sw08
Sw09

SW10
SW11

Swi2
Sw13
SW14
Sw15
SYNC
SYNLD
TEMP
TEMP1

TEMPZ2
TEMP3

007205
007215
001202
000176

= 000001

= 000002

= 000004
= 000010

=
=
=
=
=
=
=
=
=
=
=
=

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
026412
027510

17814
17814
7374
1675
7234

6394
638#
6374
6364
6354
¢34
63
6324
631
6304
6294

001250
001252

TEMP4
001254
TEMPS
001256
TIMER = 104416
TKCSR
001204
TKDBR
001206
TLAST = 026024
TPCSR
001210
TPDBR
001212
TRPOK
004730
TSTNO
001226

TST1
IST1I0
TST11
TST12
TST13
TIST14
TST15
IST16
TST17

012320
013326
013502
013544
013606
013706
014006
Q14144
014342

971
917

1864
2195
1941

1746

1107

1806

1265

1844«

1270

1375

1382

1406

1421

1621

1626

4703
1765+

4768
1777«
5040+
5291«
4400
4955

4805

4806

4899
2622+
5097«

4900

52324

1746
1682
1406
1684
1382

14621

1621

3075
3945

3103
4014

LK
6112

49894
4186

1565
1131+
5170+
1132«
4679
5112«
1134+«
6359
4855+

1212«
1783
5190%
1785
4869+
5119«
1160+
4385+
4856«

1713«
2207+
5201+
6356
4B70+
5157«
1212
43B6*
4871+

1754«
2208+
5236«
4357«
4871
5162+
1221+
4401+
4872

1135«
1136

1789
1791

1993
1974«

1996
1987«

1853

2249
1856
1858~

2653

3163

321

1644
49604
1426
1428+

1450

1811

1448
1450%

1623
1625+«

1442

1085+«

2513«
3069+
3570«

2721

1097«

684
8 06

12€0

1626

001416
001246

1093

SEQ 0113

1808

1696

2565+
3097+
3645+

1724

2587+
3125+
3720+

3248

5006+
5286+
4399«
4954+
5204

1980
4609~
4940+

1983
4610+
4955+~

2005

2081
5028+
3491

2613+
5051~

2619+
5086+

2628+
5138+

4401

4623~
5054

4624+

4625
5067

2095+

4145+
4626

4342

5316«

4146+
L4663
5326+

2084

2090

2093

3503

3538

5038+

4625+
4956

5064+

5144+
4677~
5081«

4343

4664+

4679+
5352+

2371«
2931«
3635+
4696+

2413+
2983+

5339«

1813

1928

2609+
3154+
3795w

2269+
2720+
3276+

4003

2340+
2880+
3391+«

4422+

4759+

CZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P11
11-SEP-78 12:38
TST2
TST20
TST21
1ST22
TST23
TST264
TST25
1ST26
TST27
TST3
T1ST30
TST31
TST32
TST33
TST3
TST35
TST36
TST37

IS
TST40
TST41
TST42
TST43
TST44
TST45
IST46
TST47
TSTS
TSTSO
TST51
TSTSZ2
TST53

TST54

012374
014524
014706
015070
015252
015460
015546
015636
015724
012442
016014
016166
016302
016420
016536
016654
017004
017144

012514
017304
017466
017632
020146
020462
020776
021312
021550
012616
022006
022340
022566
023666

025066

TSTS55
TSTS56
TSTS7
1ST6

025320
025436
026024
012756

1S17

013116

TSTE0

wwewen

TTST
003612
TWOSYN- 010000
TYPDAT
005206
TYPE
- 104402

TYPMSG

VEC
VECMAP
WHICH
WRDCNT
WRKO.F
XBX
XCSR
XERR
XHEAD

005106

006526
012010
012002
004710
005174
005000
003546
003570
006224

2270
2779
2830
2881
2932
2984
3042
3070
3098
2294
3126
3155
3203
3240
3277
3314
3351
3392

K
9
12:45
PAGE 115
CROSS REFERENCE TABLE =-- USER SYMBOLS

22934
28294
28804
29314
29834
30414
30694
30974
31254
23164
31544
32024
32394
32764
33134
33504
33914
34354

2317
3436
3480
3527

23404
34794
35264
35704

3646
3721
3796
3870
2341
3936
4004

37204
37954
38694
39354
23714
40034
41054
41754
44224

3571

4106
4176

4423

4697
4760
4799
2372
4893

2414

1309«
690#
1647
8134

36454

4E96N

47594
47984
48928
24134

4960

24554
1310+

1312+

1665

16684

1105

1117

1331
1655
2020

1333
1657
2023

17814
2183
1986
1556+
1660
1622
1332
1338
1129

1998
21954
21914
1589+
16634
1624
13574
13664
17814

1645

SEQ 0114

16484

1335
1661
2030

15974

16264

1313«

13764

1129

1214

1337
1666
2033

1425
1715
2040

1216

1438
1821
2046

1227

1455
1824
2055

1230

1548
1876
2062

1262

1588
1922
2069

1267

1648
1940
2184

1308

1649
1946

1317

1652
1984

1330

1653
2006

CZOME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P11
11-SEP-78 12:38
XLOC
XPASS
XPOLY

003022
003562
027342

XSTATQ
XTSTN
XVEC

007454
005330
003554

1187«
1336
3578+
£453«
1138
1654
1334

1205+
13634
3607«
4523«
17814
16944
13604

S954

$ENDAD
003522
N
= 000057

- 000061

000017

%Egg

001300
KRANRNRN

$CRAP = 177777

032226

12:45
PAGE 116
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0115

1208

1239

12524

3653+
4807+

3682+
4901+

3728+
5166

3757«
5168

3803«
51764

3832+

3878+

3944x

4029+

4205+

22594

2262

22654

22834

2286

22894

23064

2309

23124

23304

2333

25094

25554

717
S954

1103
2259

13494
2265

1673
2267

22724

2283

2289

2291

22964

2306

2312

2314

2319

5954

2270

22728

2294

22964

2317

23204

2341

2346k

2372

23764

2414

24184

;gg#

23614

S954

8314
7024

9354

4256%

5390

2364

8014

833
703

G3¢H

23674

809

8354
7064

9384

24034

8114

8374
7134

9394

2406

ol 34

8394
7184

9404

24094

24454

2448

24514

25034

2506

8154

8174

8194

8214

8234

8254

8274

8294

7214

7254

7294

7314

7834

7844

7854

7864

9414

9434

9444

9454

9464

948#

9494

9504

(ZOME

MACY11

CZDMEC.P11

30A(1052)

11-SEP-78

11-SEP-78 12:38

9514

lggg
.BEGIN
.CNVRT
.CONVR
.DATAC
.DELAY
.EOP
.ERRTA
CHLY
INSTE
.INSTR
-INST1
.MSG
MSTCL
.PARAM
PFAIL
.RESO5
.ROMCL
.SAVOS
.SCOPE
.SCOP1
.START
.TIMER
.TRPSR
.TRPTA
LTYPE

003152
004472
004466
005552

005436
003364
031704
004750
004154
004050
004070
004072
005466
004174
005336
004434
005504
004374
003576
003736
002002
005616
004716
001330
003766

12844
828
826
836
832
13254
1640
709
818
816
14284
1436
830
820
707
824
834
822
810
8172
726
838
71
8084
814

12:45

1109

2016

PAGE 117

CROSS REFERENCE

1119

2136

12514

2140

m9
TABLE =-- USER SYMBOLS

1269

2187

1704

2218

1714

2250

SEQ 0116

17624

2253

17974

3484

1799%

3510

1854

353

1857

4086

15494
15484
17534

17264
4893
53904
16204
14554
16340
1458
14354
17374
14664
1072
15374
17424
15234
13734
14G5#
10704
17644
16084
1613
14164

—
17014

1709

1086

1847

1878

4313

11-SEP-78
(ZOME
MACY!11 30A(1052)
C20MEC.P11
11-SEP-78 12:38

$ABOR T

$AUTO
$8((
SBINCR
SBINW]
$BUF F E

$SCDATA
$CLOCK

$COMP

$CRC
$CRCSH
SCYCLE

SEMPTY
$EOP
$F INI
$FLAG
SFLOAT
$GE TPA
SHALF
$HE ADE
$INACT
$INIT
$LINET
$LUT
$LUT2
$LU17

SMARH
$MARK
$MATCH
$MOCK
$MODEM
MSG
MULT
$PATTE
SPFAIL
$00Q]
$QUEST
SRAMCL
$RCLK

5030

5954

5954
5954
5954
5954
5954

2630
2917
3256
3597
3902

6272
4506

6238
44669
6653

4719

5146

1141
3559
3859
2970
1793

4784

4879

5954

3166

3178
413

2599

4150

3214
6347

2481

2519

2536

30%

3059

3087

3115

2445
2259
2361
2403

2503
2283

2306

2330

4335

4378

4602

3494
5954
5954
5954
5954
5954
5954
5954
S954
S95#4
5954
5954
595#
5954
S95#
5954
5954
5954
S95#
5954
5954
5954
59S#
5954
5954

3506
3576
3873
1865
4684
1319
4960

5954
5954
5954
5954
5954

1697
5211
1975
1725
1728

5954

2433
2651
2836
3106

2461

2387
7464

3330

3672

4041
4289
4510
4728

2400
754

017

3338
3697

2475

2530
852

805

171

3450
3747

3466
3776

4078
4332
4560
4843

2548
856

2597

3499
3818
6136
6375

3557
3847

2903

183

6127
4361
4581
4874

4599
4928

3334

3446

3219

€217

«604

4628
4958

3784

5954

2359
2706
968
301
3668
3972

2304

2281

NWO NS
[aTe
IV Te X,

1319

6221
4465
4639

SEQ 0117

== MA(RO NAMES

2621
2907
3227
3593
3851

TABLE

k) l\§www'\)'\l

oS4
5954

O OWNNL—
O
WO

OMEND
DMFRNT

12:45
PAGE 119
(ROSS REFERENCE

3939

3185

3651

3680

3223
3726

351

3260

4614

4668

4848

4932

3755

3801

3288

4860

3830

3297

4944

3305

3454

3462

4749

3423
4139

4656

3468
1781
3340

2435
2655
2841
3134

1997

1768

2467
2684
2887
3174

2422
2649
2811
3078
3401

3407
3947

$RCRC
$REC
$SCOPE
$SIMBC
$SINAC
$SOFTC
$STUFF
$SWPAC
$TCHAR
$TCRC
$ TRANW
$TRAN1
$TRPDE
$TSTN

$VAR]A
$WINDO
$xZ

4388
4766
5010
5140
5303
5954
5954
5954
5954
5954
595#
5954
5954
5954
S954
S95#
5954
5954
837
5954
2776
3389
4757
S95#
5954
5954

2503
2774
3115
3387
3859

$ZEROS

5954

. ABS.

(32226

ERRORS DETECTED:

3444
3951

4397
4775
5013
5192
5305
4092
3143
1369
5150

32k

8 10
TABLE == MACRO NAMES

3501

3504

4148
4647
4937
5068
5238

SEQ 0118
3919
4383
4740
5004
5123
5289

1801
2555
4010
3991
4029
2632
809
2267

2827
3433
4796

728
2766
2259

2509
2817
3121
3423
3865

000
O

CZDMEC/],CZDMEC.SEQ/CRF/SOL=CZDME(
RUN-TIME: 14 19 1 SECONDS
RUN-TIME RATIO: 55/35=1.5

CORE USED:

12:4S
PAGE 120
CROSS REFERENCE

AN
SN B NN
OO0 =\
F VY e
NV TV
N =N =
O

11-SEP-78
CZOME
MACY11 30A(1052)
CZDMEC.P11
11-SEP-78 12:38

(63 PAGES)

833

835

2674
3311

2718

4420

4694

2445
2716
3087
3346

2451
2766

4692

4749

3379
37N