Digital PDFs

AH-8553C-MC

January 1979

119 pages

Original

64MB

view download

OCR Version

84MB

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_gray.pdf

OCR Text

MODE LINE UNIT TEST

CZDMECO

AH-8553C-MC

copvricHT 76.7s
FICHE 1 OF 1

JAN 1979

EHEORED

MADE
IN USA

12:45

PAGE 1

SEQ 0001

T
e
e P e

2{fig%&fi&&#&fifi838333?3%38omVOwbwwdoomwombwma

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

IDENTIFICATION
PRODUCT CODE:

AC-8552C-MC

PRODUCT NAME
:

CZDMECO DDCMP MD LN UNIT TST

DATE :

SEPTEMBER 1978

MAINTAINER:

DIAGNOSTICS

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

EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
%CL’Rth’T’(NSIBIUTV
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED

LICENSE

TERMS OF
USE

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES
THE

UNDER

AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

RELIABILITY OF

NOT SUPPLIED BY DIGITAL.

(C)

1976,

RESPONSIBILITY

ITS SOFTWARE ON EQUIPMENT

THAT

FOR
IS

1978 BY DIGITAL EQUIPMENT CORPORATION

(ZOME
MACY11 30A(1052)
11-SEP-78
11-SEP-78 12:38
C IDMEC.PTN

12:45

PAGE 2

SEQ 0002

ABSTRACT
THE FUNCTION OF

THE DMC11

DIAGNOSTICS IS TO

OPTION OPERATES ACCORDING TO SPECIFICATIONS.
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE

OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT.
PARAMETERS MUST BE SET UP TO

DMC11

STATUS

CONFIGURATION.
TABLE

INPUT = THE

AND_

ARE

OPERATOR

THESE

ALERT

THE

VERIFY

THAT

THE

THE DIAGNOSTICS
ALL
OPERATIONS

DIAGNOSTICS

PARAMETERS ARE CONTAINED IN THE

GENERATED

TWO_

ANSWERS QUESTIONS.

WAYS:

MANUAL

2) AUTOSIZING - THE

PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

CZDME TESTS
THE
DMC-11
LINE UNIT
(M8201
OR M8202).
IT
PERFORMS WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS.
IT
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 M8204) TO
RUN.
FOR
BEST
DIAGNOSIS
A
TURN-AROUND CONNECTOR SHOULD BE INSTALLED,
NSKIPXEEg)tHE DIAGNOSTIC WILL RUN WITHOUT
IT
(SOME
TESTS
ARE

CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT AR

RUN
IN
SFQUENCE
TO
INSURE THAT IF AN ERROR SHOULD OCCUR IT
WILL BE DETECTED AT AN EARLY STAGE.

NOTE:

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE FIVE DIAGNOSTICS ARE:
NS W) =

.
.

BB IR RRRR 2B I INANINYITELRERAR
LB L IFARUK 28 55 L8

.
.

CZDMC
CZDME
DZDMF
DZDMG
DZDMH

[CREV]
[REV]
[REV]
[REV]
[REV]

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

REQUIREMENTS

EQUIPMENT
ANY PDP11

FAMILY CPU (EXCEPT AN LSI=11) WITH MINIMUM 8K MEMORY

ASR 33 (OR EQUILIVALENT)
DMC11-AR WITH DMC11-DA OR DM(C11-FA
PMC11-AL WITH DMC11-MA OR DMC11-MD

CZOME

MACY11 30A(1052)

CZDMEC.P1
9N
92

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 3

2.2

SEQ 0003

STORAGE

95
9%

PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND
BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640;
CONTAIN

98
99

DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY
(AUTO-SIZING).
THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE

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

}8?

ALTERED BY THE OPERATOR.

}8%

LOADING PROCEDURE

}8’;

3.1

ME THOD

106

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED

107

ABSOLUTE LOADER.

NS RN R A RN NS BN A,

]

WWN
WY

NOTE:

:fa[;IATHE

MONITOR

WHICH

USING

THE

THE DIAGNOSTICS ARE ON A MEDIA SUCH

AS DISK ,MAGTAPE,DECTAPE, OR

108

1
n
1"
1"
1
11
1
1"
11
1"
1"
120
12
12
12
12
12

HAS

CASSETTE;
BEEN

INSTRUCTIONS

PROVIDED
ON THAT SPECIFIC

ABSOLUTE LOADER STARTING ADDRESS *500
MEMORY
4K

12K

16K

20K

24K

28K

=~ SIZE
17

117

137

157

35.1.1

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

3.1.2

DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

3.1.3

DEPRESS 'START KEY' ON CONSOLE AND RELEASE

BE LOADING INTO CPU)

(PROGRAM SHOULD NOW

CZDOME
MACY11 30A(1052)
_11-SEP-78
CZDMEC.P1T
11-SEP-78 12:38
134
135

138

139
140
141
142
143
144
145

12:45

PAGE
4

SEQ 0004

STARTING PROCEDURE

B.
C.

}29

SET SWITCH REGISTER TO 000200

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

UP OF THE PROGRAM) AND ALSO THE FOLLOWING:

148
149
150
1212

153

154
}gg

MAP OF DMC11

STATUS

CSR

STAT2

STAT3

177777

000000
000000

STAT1

001500 160010 145310

001510 160020 145320

177777

157
158
159

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

161

THE STATUS TABLE MUST BE VERIFIED BY THE USER IF

160

162
165

THE
IS

TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11°'S.

DONE.

AUTO

SIZING

INDICATING

MANUAL

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

IF THE DIAGNOSTIC WAS STARTED WITH

SW00=1

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

}93

HOW MANY DMC11°'S TO BE TESTED?1

17
172
1

Oi
CSR_ADDRESS?160010
VECTOR ADDRESS?310

1
1
1

1
1

R RN RN

-l — —

RB IR I

ANN

166
}2;

BR PRIORITY LEVEL?

(4,5,6,7)?5

DOES MICRO-PROCESSOR HAVE CRAM? (Y OR NN
WHICH LINE UNIT?
IF NONE TYPE 'N'',
[IF
M8201
M8202 TYPE '2''1

TYPE

‘71,

PRINTED

OUT

AUTO-SIZING

IS THE LOOP BACK CONNECTOR ON?Y
SWITCH PACA#1 (DDCMP LINE#X)?377
SWITCH PAC#2 (BM873 BOOT ADD)?377

FOLLOWING THE QUESTIONS THE

STATUS

MAP

OUT.

DESCRIBED ABOVE,
THE
INFORMATION
IN
THE
MAP REFLECTS THE
ANSWERS TO THE QUESTIONS.
IF THE DIAGNOSTIC WAS STARTED
WITH
SW00=0 AND
SW07=0
(AUTO-SIZING) THEN NO QUESTIONS ARE ASKED
AND ONLY THE STATUS-MAP IS PRINTED

USED

THE_STATUS

INFORMATION

MUST BE VERIFIED TO BE CORRECT

(MATCH THC HARDWARE).
IF IT DOES NOT MATCH THE
HARDWARE
THE
DIAGNOSTIC
MUST
BE
RESTARTED
WITH SWOO=1 AND THE QUESTIONS

12:45

PAGE 5

SEQ 0005

ANSWERED.
4.1

CONTROL SWITCH SETTINGS

SW 15 SET:

4 SET:

3 SET:
2 SET:
1

SET:

HALT ON ERROR

LOOP ON CURRENT TEST

INHIBIT ERROR PRINT OUT
"INHIBIT TYPE OUT/ABELL ON ERROR.
INHIBIT ITERATIONS.

(QUICK PASS)

QO
09
08
SW 07
SW 06

SET:
SET:
SET:
SET:
SET:

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

SW
SW
SW
SW
SW

SET:
SET:
SET:
SET:
SET:

RESERVED
RESELECT DMC11'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
BUILD NEW STATUS TABLE FROM QUESTIONS.
(IF SW07=0
AND
SW00=0 A NEW STATUS
TABLE
IS BUILT BY
AUTO-SIZING)

04
03
02
01
00

BEFORE

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

WHILE

THE DIAGNOSTIC IS RUNNING.

CLOCKING

NEEDED

SWITCHES 00-03 AND SWITCH 07

S?EGS‘KT)QHE' AND ARE USED ONLY ON STARTING

PRy

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

RESTARTING

THE

CZDME
MACY11 30A(1052) 21%§SEP-78
11-SEP-78
CZOMEC.P1
1

12:45

PAGE 6

b 5.2

SEQ 0006

SWITCH REGISTER OPTIONS (AT START UP)

Sw 01

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

%TCARRIGE RETURN TO BEGIN EXECUTION AT THE

Sw 02

LOCK ON SELECTED TEST.

SW01

THIS

SWITCH

WHEN

SELECTED

USED

WITH

WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE

SELECTED TEST.
HITTING ANY KEY ON
THE
CONSOLE
WILL
LET
IT
ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY

IS HIT AGAIN.

SW02=0

WHEN

SWO1

USED.

THE

PROGRAM WILL
BEGIN AT THE SELECTED TEST AND CONTINUE
NORMAL OPERATIONS.

Sw 03

RESELECT DMC11°'S DESIRED ACTIVE.
PLEASE NOTE
THAT
A
MESSAGE
IS
TYPED OUT FOR SETTING THE SWITCH REGISTER
EQUAL TO DMC11°'S ACTIVE.
THIS MEANS IF THE SYSTEM HAS
FOUR
DMC11S;
BITS
00,01,02,03 WILL
BE ScT IN LOC

'DMACTV'
FROM THE
SWITCH® REGISTER.
USING
THIS
SWITCH(SWOO0)
ALTERS
THAT LOCATION;THEREFORE IF FOUR
DMC11S ARE IN THE
SYSTEM #%xDQ NOT+**
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.

ME THOD: A:
B:
C:
D:

LOAD ADDRESS 200

START WITH SW 00=1
PROGRAM WILL TYPE MESSA.C
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 O

Fi2

THAN

3 = 1.

PRESS CONTINUE

NUMBER (IF
VALID)
(EXCLUDIMG 11/05)

SET WITH ANY OTHER

PRESS CONTINUE.

WILL

SWITCH

DATA

SETTINGS

AND

LIGHTS

DESIRED.

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

12:45

PAGE 7

6.1.3

SEQ 0007

DYNAMIC SWITCHES
ERROR SWITCHES

1.
2.
3e

SW 12

DELETE PRINT OUT/BELL ON ERROR.

SW 08
SW 10

GOTO BEGINNING OF THE TEST(ON ERROR).
GOTO NEXT TEST(ON ERROR).

SW 13
SW 15

4.
5.

DELETE ERROR PRINTOUT.
HALT ON THE ERROR.

SCOPE SWITCHES

SWO6

SW09

HALT

ROMCLK

ROUTINE

BEFORE

CLOCKING

MICRO-PROCESSOR
INSTRUCTION.
THIS
ALLOWS
THE
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN
THE
STATIC
STATE
BEFORE
IT
1S
CLOCKED.
HIT
CONTINUE TO RESUME RUNNING.

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

PRINTED

IN FRONT OF

THE TEST NO.

IF AN '**'

(EX.

+*TEST NO.

10
)
SW09
IS
INCORPORATED
IN
THAT
TEST AND
THEREFORE
SW09 IS USUALLY THE BEST SWITCH FOR THE
SCOPE LOOP (SW14=0, SW10=0, SW09=1,
SW08=0).
IF
SW09
IS NOT ENABELED:;
AND THERE IS A HARD ERROR
(CONSTANT);
SWO8
IS BEST.
(SW14=1,0,
Sw10=0,

SW09=0, SW08=1).

& RESEBIIIITR

305

307
308
309

6.2

SwWwil

SW14

FOR INTERMITTEMT ERRORS:

SW14=1

WILL LOOP
ON TEST
REGUARDLESS
OF
ERROR
OR
ERROR.
(SW14=1, SW10=0, SW09=0, SwW08=1,0)

NOT

INHIBIT INTERATIONS.

LOOP ON CURRENT TEST.

STARTING ADDRESS

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

ARE
NO OTHER
STARTING
(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES
IT
IS
UNDER
ACT11
OR
XXDP
CONTROL
AND WILL
ACT

ACCORDINGLY AFTER ALL AVAILABLE DMC11'S ARE
PROGRAM WILL RETURN TO °'XXDP' OR ‘ACT-11"'.

TESTED THE

OPERATING PROCEDURE
WHEN PROGRAM IS INITIALLY STARTED
MESSAGES
AS
DESCRIBED
IN
SECTION 4.0 WILL
BE PRINTED, AND PROGRAM WILL BEGIN RUNNING
THE DIAGNOSTIC

CZDME

MACY11 30A(1052)

11-SEP-78

11-SEP-78 12:38

12:45

PAGE
8

SEQ 0008

WWWWWWWW

s
ah s
b

CZDMEC.P1

5.2

PROGRAM AND/OR OPERATOR ACTION

THE TYPICAL APPROACH SHOULD BE

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

SET SW 13:

RRRKICRE

2.
3.

CLEAR SW 15.
SET SW 14:
(LOOP ON THIS TEST)

(INHIBIT ERRCR PRINT OUT)

THE TEST NUMBER AND PC WILL BE

ERROR

TYPED

OUT

MESSAGE (THIS DEPENDS ON THE TEST)

AND

POSSIBILY

TO GIVE THE OPERATOR

AN IDEA AS TO THE SOURCE OF THE PROBLEM.
IF IT
IS
NECESSARY
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT;
LOOK IN
THE LISTING FOR_THAT TEST NUMBER WHICH WAS TYPED OUT AND

THEN

NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF
THE TEST CAN BE DETERMINED.

ERRORS
AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW

12=0).

_IN MOST CASES ADDITIONAL INFORMATION WILL BE

SUPPLIED

%fiE”E‘SR&'E ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF

337

6.2

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

THE

TIME OF

THE

CATASTROPHIC ERROR.

IN THIS WAY

THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS

THE

TIME OF

THE ERROR.

DOING

RESTRICTIONS

STARTING RESTRICTIONS
SEE SECTION 4.
(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS
STARTED.
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH
;ggelrg;csnwnm
PRINTED
CON
THE
TTY
TO
COMPLETLY
ISOLATE
L

CZDME
MACY11 30A(1052)
11-SEP-78
CZoMEC.P1N
11-SEP-78 12:38

358
359

12:45

7.2

PAGE 9

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

HOWEVER

THE

STATUS

TABLE

(SWO00=0
NEED

AND

NOT

SW07=0).

THEREAFTER

BE SETUP BY SUBSEQUENT

RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC BECAUSE
THE
STATUS
TABLE
IS OVERLAYED. _ THE
CURRENT PARAMETERS IN THE
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP.

7.3

HARDWARE CONFIGURATION RESTRICTIONS

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

E76

MUST

KMC (M8204)~ JUMPER W1 MUST BE IN.
LINE UNIT(M8201)~ JUMPERS W1, W2, AND W4 MUST BE IN.
JUMPERS
ggén?g)‘ W5 MUST BE
OUT.
SW8 OF
E26 MUST BE IN THE ON
LINE UNIT (M8202)- JUMPER W1 MUST BE IN.
IN THE OFF POSITION.

SW8 OF E26

MUST

MISCELLANEOUS

8.1

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

8.2

PASS COMPLETE

NOTE:
EVERY TIME THE PROGRAM IS STARTED;
THE TESTS WILL
RUN
AS
IF
SW11
(DELETE
ITERATIONS)
WAS
UP
(=1).
THIS IS TO
'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE.
THEREFORE
THE
FIRST
PASS
<~EACH
TIME
PASS® UNTIL ALL
DMC11'S

PROGRAM IS STARTED- WILL BE A ‘QUICK
IN
SYSTEM ARE
TESTED.
WHEN
THE

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

END PASS CZDMC CSR:
ERRORS:
000000
NOTE:

175000 VEC:

0300 PASSES:

THE PASS COUNT AND ERROR COUNTS

EACH

DMC11

ARE

000001
CUMMULITIVE

FOR

THAT IS RUNNING, AND ARE SET TO ZERO ONLY

WHEN THE DIAGNOSTIC IS STARTED.
THEREFORE
AFTER
AN
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS
FC? EACH DMC11 SINCE THE DIAGNOSTIC
WAS
STARTED
ARE
REFLECTED IN PASSES:
AND ERRORS:.

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

12:45

8.4

PAGE 10

KEY LOCATIONS

RETURN (1214)

CONTAIN.

“4E ADDRESS WHERE PROGRAM WILL RETURN

WHEN
ITERAT.ON COUNT IS REACHED OR IF LOOP ON
TEST IS ASSERTED.

(1216)

CONTAINS THE ADDRESS OF THE NEXT
PEFORMED.

TSTNO

(1226)

CONTAINS THE NUMBER
PEFORMED.

NOW

BEING

RUN

(1316)

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

DMC11
(RUN)
NO.06

DMCROQ-DMCR17
DMSTO0-DMST17
(1500)-(1640)

THE

TEST

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.

DMACTV (1306)

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

EXAMPLE :

INDICATES

THAT

DMC11 WILL BE TESTED IN TURN.

(DHACTV) 1276/0000000000011111 MEANS

THAT DMC11 NO

02,03,04 WILL BE TESTED.

EXAMPLE : (omcrv 27/0000000000010001 MEANS
THAT DMC11 NO.

DMCSR

8.4A

(1402)

'STATUS TABLE'
THE

TABLE

00, 04 WILL BE rssreo

gg;}’AINS THE CSR OF THE

CURRENT

DMC11

UNDER

(1500-1640)

IS FILLED BY AUTO SIZING OR BY THE MANUAL

PARAMETER

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

TWO

DMC11°'S.

ES%ILQ(YMING

THE

TABLE

CAN

CONTAINS

CONTAIN

THE MAP IS A DESCRIPTION OF

MAP OF DMC11

STATUS

CSR

STAT2

STAT1

UP_

THE BITS

STAT3

OC:EOO 160010 145310 177777 000000
001510 160020 016320

000000

INFORMATION

FOR

DMC11'S.

EACH

MAP

SEQ 0010

11-SEP-78
CZDME
MACY11 30A(7052)
CZD'EC PIN
11-SEP-78 12:38

12:45

PAGE 1

SEQ 0011

EACH MAP ENTRY CONTAINS & 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

SECOND DMC STATUS IS LOCATED AT 1510, 1512, 511.

THE
INFORMATION
FOLLOWS:

CONTAINED IN EACH 4 WORD ENTRY is DEFINED AS

CSR:

CONTAINS DMC11 CSR ADDRESS

STAT1:

BITS 00-08 IS DMC11 VECTOR ADDRESS
TURNAROUND CONNECTOR IS ON

BR PRIORITY LEVEL

STATZ2:
STAT3:

WITCH PAC#1_(DDCMP_LINE NUMBER)
S SWITCH PAC#2 (BM873 BOOT ADD)

UN FREE RUNNING TESTS ON KMC11

DMC11-AR (LOW SPEED)
C11-AL (HIGH SPEED)

-~ -

CZOME

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

CZDMEC.P1

499
500
501
502

PAGE 12

METHOD OF AUTO SIZING

8.5.1

FINDING THE CONTROL STATUS REGISTER.

i
i
i el ittt cucd ot cnh i

THE AUTO-SIZING ROUTINE FINDS A DMC11 AS FOLLOWS:

STARTS

AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP
TO M INCLWING ADDRESS 167760.
IF THE ADDRESS DOES NOT TIME
OWING IS DONE, THE FIRST CROM ADDRESS IS WRITTEN
TO A 12 52 TFEN IT IS
READ BACK.
IF
IT CONTAINS A -1
OR
125252
626 OR 16520
A DMC11 HAS BEEN FOUND, IF NOT, THE

VONO
NS WN=O

viviviviaoaviavioaung

SEQ 0012

8.5

3
BRIRAR

503

12:45

ADDRESS IS UPDATED BY 10

AND

KMC11 WITH CRAM,
626
INDICATES A DHC11-AR

INDICATES A W"-AL AND A 16520
FURTHER TESTS ARE PERFORMED AT THIS

INDICATES

THE

CONTINUES.

DHC11 WITH NO CROM OR CRAM, A 125252 INDICATES A

POINT TO DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF
A
LOOP-BACK
CONNECTOR
IS INSTALLED AND VARIOUS SWITCH SETTINGS
ON THE LINE UNIT.
THIS
IS WHY
THE
STATUS
TABLE MUST BE
VERIFIED BY
THE USER AND IF ANY OF THE INFORMATION DOES NOT
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE
RESTARTED AND

520

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

AREA

(ADDRESS

300-776)

FILLED

WITH

THE

LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS

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

MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3

(BECAUSE

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

lfi'(;IEBY

8.6

YOU;

THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE

SOF TWARE SWITCH REGISTER

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

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

| CZOME

MACY11 30A(1052)

CZDMEC.P

11-SEP-78

. E—————

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
568
569
570

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

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

gg;

ADDRESS 200.

583
584

IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE

5532

PROMPT DISPLAYED (SWR = XXXXXX NEW?).

587

TO SET THE SSR FOR

§gg

THE

STARTING

SWITCHES,

FIRST

LOAD

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

594

SWITCH

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.

579
580

590
591
592
593

SOFTWARE

TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES
THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE
TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF>

571
572
573
g;s.

576
577
578

THE

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 4) 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

THE

= <3

CZDME

MACY11 30A(1052)

CZDMEC.P11

_11-SEP-78

11-SEP-78 12:38

12:45

PAGE 14

INTRODUCTION TO DMC11 DIAGNOSCTIC

595
59
597

600
601

;*AC-8552C-MC __ DMC11 DDCMP MODE LINE UNIT TESTS
:*COPYRIGHT 1976,1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
* %

603

604
605
606
607
603
609

:STARTING PROCEDURE
:LOAD PROGRAM
:LOAD ADDRESS 000200
:SWR=0 AUTOSIZE DMC11
:SW07=1 USE CURRENT DMC11 PARAMETERS
SW00=1 INPUT NEW DMC11 PARAMETERS

817

:SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE

621

:SWITCH REGISTER OPTIONS

610
611
612
613
614
615

:PRESS START
;
:PROGRAM WILL TYPE 'AC-8552C-MC
DMC11 DDCMP MODE LINE UNIT TESTS'
:PROGRAM WILL TYPE STATUS MAP
:PROGRAM WILL TYPE "R'* TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
:AND THEN RESUME TESTING

618
619
620

624
625
626
627
628
630
631
632
633
634
635
63¢
637
638
639

100000
040000
020000
010000
004000
2000
001000
000400
000200
000100
0
000020
000010
000004
000002
000001

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SW09=1000
Sw08=400
SW07=200
SW06=100
SW05=40
SW04=20
SW03=10
SW02=
SW01=2

Sw00=1

:=1,HALT ON ERROR
:=1.L00P ON CURRENT TEST
:=1.INHIBIT ERROR TYPEOUT
:=1.DELETE_TYPEOUT/BELL ON ERROR.
:=1.INHIBIT ITERATIONS
:=1,ESCAPE TO NEXT TEST ON ERROR
:=1.L00P WITH CURRENT DATA
:=1.L00P ON_ERROR
:=1,USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11

:=1, HALT BEFORE CLOCKING MICRO~PROCESSOR INSTRUCTION

:RESELECT DMC11'S TO BE TESTED (ACTIVE)
:LOCK ON TEST SELECT
:RESTART PROGRAM AT SELECTED TEST

; INPUT DMC11 PARAMETERS

SEQ 0014

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

640
641
642
643
644

645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662

663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678

679
680
681
682
683
684
685
686
687
688

689
690

12:45 PAGE 15
GENERAL DEFINATIONS AND EQUIVALENCIES

sREGISTER DEFINITIONS

000000
000001
000002
000003
000004

000005
000006
000007

RO=X0

sGENERAL REGISTER

R1=%1

sGENERAL REGISTER

R4=%4
R5=%5

s GENERAL REGISTER
s GENERAL REGISTER

R2=%2
R3=%3

sGENERAL REGISTER
+GENERAL REGISTER

SP=2%6

sPROCESSOR STACK POINTER

PC=X7

sPROGRAM COUNTER

sLOCATION EQUIVALENCIES
177776
001200

PS=177776

STACK=7200

sPROCESSOR STATUS WORD

;START OF PROCESSOR STACK

s INSTRUCTION DEFINITIONS

005746
005726
010046
012600
024646
022626

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

sDECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
sSAVE RO ON STACK
;RESTORE RO FROM STACK

POP2SP=22626

s INCREMENT STACK TWICE

PUSH2SP=24646
.EQUIV

EMT.HLT ;BASIC DEFINITION OF ERROR CALL

;BIT DEFINITIONS
100000
040000
020000
010000
004000

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002

000001

;DECREMENT STACK TWICE

SEQ 0015

CZDME

MACY11 30A(10;2)121%ESEP-78

CZDMEC.P1

11-SEP-78

12:45

gg%

695

696

717

;12(9)

721

000000

000024

000026
000030
000032
000034

000036
000040
000042
000044

000046

000052

;

000024
005336
000340
004750
000340

.=24

004716

.=40

003522

000052

.=52

000000

000174

000200

000200
000137

002002

001000
001016

001000
005377
046504

041501
030503

Jelohdcidaiesdy

000000

:SERVICE AT LEVEL 7
;ERROR HANDLER
JSERVICE AT LEVEL 7

340

:SERVICE AT LEVEL 7

;GENERAL HANDLER DISPATCH SERVICE

0
0
0

;SAVE FOR ACT=11 OR XXDP
JRETURN ADDRESS IF UNDER ACT=11 OR XXDP
:SAVE FOR ACT-11 OR XXDP

;ACT=11 PROGRAM CHARACTERISTICS

$ENDAD

;FOR USE WITH ACT=11 OR XXDP

DISPREG:0

000000

001200

:POWER FAIL HANDLER

=174

725
;%9

728

PFAIL

340
LHLT
340

. TRPSRV

000340
000040
000000
000000
000000

000174

000176

323 2333233332333 3323233232332 %82% 3

=0
:STANDARD INTERRUPT VECTORS

722

;222

2323233333222 8R8%

:TRAPCATCHER FOR ILLEGAL INTERRUPTS

: A2 222ttt

705

718

il eIt

;BETWEEN ADDRESS O TO ADDRESS 776.
:IT LOOKS LIKE "PC+2 HALT''.

m
701
702
77813.

712
713
714
715
716

il i

SEQ 0016

:THE STANDARD ‘‘TRAP CATCHER'' IS PLACED

697
ggg

711

TRAPCATCHER FOR UNEXPECTED INTERUPTS

: M A2 a2 22 22d i

694

706
707
708
709
710

PAGE 16

SWREG:
.=200

034055
020061

.=1000
MTITLE:

:SOF TWARE DISPLAY REGISTER

:SOFTWARE SWITCH REGISTER

JMP

.START

;GO TO START OF PROGRAM

.ASCII
LASCIZ

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

.=1200

s INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY
001200
001202

177570
177570

DISPLAY:177570
SWR:
177579

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

12:45

PAGE 17

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

SEQ 0017

s INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
177560
177562
177564
177566

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

sTELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER

sTELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

;PROGRAM CONTROL PARAMETERS
-

RETURN:

NEXT:
LOCK:
ICOUNT:
LPCNT:

TSTNO:
PASCNT:

:
ERRCNT
LSTERR:

OCOOOOWOOO

:SCOPE ADDRESS FOR LOOP ON TEST
sADDRESS OF NEXT TEST TO BE EXECUTED

sADDRESS FOR LOCK ON CURRENT DATA
sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
sNUMBER OF ITEREATIONS COMPLETED
sNUMBER OF TEST IN PROGRESS
sJNUMBER OF PASSES COMPLETED

s TOTAL NUMBER OF ERRORS

sPC OF LAST ERROR CALL

STRTSW:
STAT:
CLKX:

MASKX:
TEMP1
:
TEMP?2:
TEMP3:
TEMPS:
TEMPS:

SAVRO:
SAVR1:
SAVR?:
SAVR3:

SAVRS:

_ga

SAVSP:
SAVP(:
ZERO:
ONE:
MEML IM:
DMACTV:
SAVACT:
SAVNUM:

RUN:

—a—n—a—a§
oNMNO

n
N

b
b
d
b

WWWW

b
b
-

88 88888

SAVRS:

.EVEN
CREAM:

MILK:

eljelelelelelelelelololololelolelelele)

:PROGRAM VARIABLES

.
.,

sSWITCHES AT START OF PROGRAM
;DM STATUS WORD STORAGE

; TEMPORARY STORAGE

+ TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE

; TEMPORARY STORAGE

;RO STORAGE
;R1 STORAGE
;R2 STORAGE
;R3 STORAGE
;R4 STORAGE

;RS STORAGE

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

sHIGHEST LOCATION FOR NPR'S
;DMC11°S SELECTED ACTIVE.
;OCTAL NUMBER OF DMC11°S.
;ORIGINAL ACTV RDEVICES
: WORKABLE NUMBE
;POINTER TO RUNNING DEVICE.

;TABLE POINTER.
;TABLE POINTER

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

F 2
12:45 PAGE 18
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

SEQ 0018

8388

;PROGRAM CONTROL FLAGS

INIFLG:
ERRFLG:
LOKFLG:

QV.FLG:

.BYTE
.BYTE
.BYTE

sPROGRAM INITIALIZATION FLAG
sERROR OCCURED FLAG
sLOCK ON_CURRENT TEST FLAG
sQUICK VERIFY FLAG.
;ON FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESS

.BYTE

.EVEN

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

001330
001330

001332
001334

001336
001340

001342
001344

001346
001350

001352

001354
001356
001360
001362
001364

AR AR

A AR

A AR A AR AR AR AR A AR AR A AR AR AR AR AR

.TRPTAB:

SCOPE=TRAP+0
.SCOPE
SCOP1=TRAP+1
.SCOP1
TYPE=TRAP+2
. TYPE
INSTR=TRAP+3
. INSTR
INSTER=TRAP+4
. INSTER
PARAM=TRAP+5
.PARAM
SAVO5=TRAP+6
. SAVO05
RESO5=TRAP+7
.RESO5
CONVRT=TRAP+10
. CONVRT
CNVRT=TRAP+11
. CNVRT

AR AR AR AR

ARk

s CALL TO SCOPE LOOP AND ITERATION HANDLER
s CALL TO LOOP ON CURRENT DATA HANDLER
s CALL TO TELETYPE OUTPUT ROUTINE

s CALL T0 ASCII STRING INPUT ROUTINE
s CALL

TO INPUT ERROR HANDLER

s CALL TO NUMERICAL DATA INPUT ROUTINE
s CALL T0 REGISTER SAVE ROUTINE

s CALL T0 REGISTER RESTORE ROUTINE
s CALL T0 DATA OUTPUT ROUTINE
s CALL

MSTCLR=TRAP+12
.MSTCLR

T0 DATA OUTPUT ROUNTINE WITHOUT CR/LF.

s CALL T0 ISUE A MASTER CLEAR

DELAY=TRAP+13

s CALL

ROMCLK=TRAP+14

s CALL T0 CLOCK ROM ONCE

.DELAY

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

. TIMER

T0 DELAY

s CALL 70 CLK DATA

s CALL T0 DELAY A CLOCK TICK

: A

AR S

2222222322232

22223223222

CZDME
MACYN 30A(1052)
11-SEP-78
11-SEP-78 12:38
CZDMEC.P1

12:45

PAGE 19

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

;DMC117 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST
STAT1:
STAT2:
STAT3:

0
0
0

;DMC11 VECTOR AND REGISTER INDIRECT POINTERS
DMRVEC: 0

sPOINTER TO DMC11 RECEIVER INTERRUPT VECTOR

DMTVEC: 0

sPOINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR

DMRLVL: 0

sPOINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS

DMTLVL: 0

DMCSR:
DMCSRH:
DMCTL:
DMPO4:
DMPO6:

sPOINTER TO DMC11

0
0
O
O
O

JPOINTER
sPOINTER
sPOINTER
;POINTER
sPOINTER

TO
TO
TO
TO
TO

DMC11
DMC11
DMC11
DMC11
DMC11

TRANSMITTER INTERRUPT SERVICE PS

CONTROL STATUS REGISTER
CONTROL STATUS REGISTER HIGH BYTE.
CONTOL OUT REGISTER
PORT REGISTER(SEL 4)
PORT REGISTER(SEL 6)

;s TEMP STORAGE
001416

000000
001460

TEMP:

.=.+40

;DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS
.=1500

DM.MAP:

DMCROO:
DMS100:
DMS200:

.BLKW
.BLkW
.BLKW

DMS300: .BLKW

'3RD STATUS WORD

DMCRO1:
DMS101:
DMS201:

.BLKW
.BLkW
.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 01
vecroa FOR uMC11 NUMBER 01
;DDCMP LINE# FOR DMC11 NUMBER 01

DMCRO2:
DMS102:
DMS202:

.BLKW
.BLKW
.BLkW

1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 02
JVECTOR FOR DMC11 NUMBER 02
DDCFP LINE# FOR DMC11 NUMBER 02

DMCRO3:
DMS103:
DMS203:

.BLkW
.BLkw
.BLKW

1
1
1

JCONTROL STATUS REGISTER FOR DMC11 NUMBER 03
JVECTOR FOR DMC11 NUMBER 03
;DDCMP LINE# FOR DMC11 NUMBER 03

DMCRO4:
DMS104:
DMS204:

.BLkW
.RLKW
.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 04
SVECTOR FOR DMC11 NUMBER 04
;DDCMP LINE# FOR DMC11 NUMBER 04

DMS301: .BLkW

DMS302: .BLKW

DMS303:

DMS304:

.BLkW

.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 00
JVECTOR FOR DMC11 NUMBER 00
DDCFP LINE# FOR DMC11 NUMBER 00

'3RD STATUS WORD

:3RD STATUS WORD

SEQ 0019

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 05

:
:

BLKW
.BLKW

06
sCONTROL STATUS REGISTER FOR DMC11 NUMBER
sVECTOR FOR DMC11 NUMBER 06
;DDCMP LINE# FOR DMC11 NUMBER 06
:3RD STATUS WORD

BLKW

:
:
:

.BLKW
JBLKW
.BLKW

.BLKW

:
:
:

.BLKW
BLKW
.BLKW

:
:

.BLKW
.BLKWw

:
:

.BLKW

.BLKW
.BLKW

.BLKW

BLKW

.BLKW

: .BLKW

—_—_

BLKW
.BLKW
.BLKW

P e S

:
:
:

— b b -

BLKW
BLKW

—_—

:
:

R eR

.BLKW
.BLKW
.BLKW
.BLKW

— —d — —

920

DMCROS:
DMS10S:
DMS205 :
DMS305:

BLKW

_—

p-|

88848988
e0

NI INTVYNV -

910

PAGE 20
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

:
:

.BLKW
.BLKW

2 -

001550

11-SEP-78 12:38

12:45

:VECTOR FOR DMC11 NUMBER 05
:DDCMP _LINEX FOR DMC11 NUMBER 05

:3RD STATUS WORD

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 07
:VECTOR FOR DMC11 NUMBER 07
:DDCMP LINE# FOR DMC11 NUMBER 07

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR DMC11 NUMBER 10
:VECTOR FOR DMC11 NUMBER 10
;DDCMP LINE# FOR DMC11 NUMBER 10
:3RD STATUS WORD
sCONTROL STATUS REGISTER FOR DMC11 NUMBER 11
;VECTOR FOR DMC11 NUMBER 11
;DDCMP LINE# FOR DMC11 NUMBER 11
:3RD STATUS WORD
sCONTROL STATUS REGISTER FOR DMC11 NUMBER 12
sVECTOR FOR DMC11 NUMBER 12
;DDCMP LINE# FOR DMC11 NUMBER 12
:3RD STATUS WORD
;CONTROL STATUS REGISTER FOR DMC11 NUMBER 13
;VECTOR FOR DMC11 NUMBER 13
;DDCMP LINE# FOR DMC11 NUMBER 13

:3RD STATUS WORD

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

:3RD STATUS WORD

sCONTROL STATUS REGISTER FOR DMC11 NUMBER 15
sVECTOR FOR DMC11 NUMBER 15
;DDCMP LINE# FOR DMC11 NUMBER 15

:3RD STATUS WORD

;CONTROL STATUS REGISTER FOR DMC11 NUMBER 16
sVECTOR FOR DMC11 NUMBER 16
;DDCMP LINE# FOR DMC11 NUMBER 16

.BLKW
.BLKW

—

CZDMEC.PT

11-SEP-78

:3RD STATUS WORD

.BLKW
.BLKW

e —

MACY11 30A(1052)

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

BLKW

—

CZDME

: 000000

:3RD STATUS WORD

SEQ 0020

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

3552

957

12:45 PAGE 21
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

:DMC11 PASS COUNT AND ERROR COUNT TABLE

958
959
%

001702
001702
001704

962
%3:

;

000000
000000

CNT.MAP:
PACT00: 0
ERCT00: 0

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

001706
001710

000000
000000

PACTO1: 0
ERCTO1: 0

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

965
%9

001712
001714

000000
000000

PACT02: 0
ERCT02: O

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

968
3678

001716
001720

000000
000000

PACT03: 0
ERCTO3: 0

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

971

001722

000000

PACTO4: 0

;PASS COUNT FOR DMC11 NUMBER 04

976
g;g

001726
001730

000000
000000

PACT0S: 0
ERCTOS5: 0

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

977

001732

000000

PACT06: 0

;PASS COUNT FOR DMC11 NUMBER 06

980
%

001736
001740

000000
000000

PACTO7: 0
ERCTO7: O

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

983
gts.

001742
001744

000000
000000

PACT10: 0
ERCT10: 0

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

986
gg

001746
001750

000000
000000

PACT11: 0
ERCT11: 0

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

989
g

001752
001754

000000
000000

PACT12: 0
ERCT12: 0

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

992

001756

000000

PACT13: 0

;PASS COUNT FOR DMC11 NUMBER 13

995
339

001762
001764

000000
000000

PACT14: 0
ERCT14: 0

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

998
1%

001766
001770

000000
000000

PACT15: 0
ERCT15: C

PASS COUNT FOR DMC11 NUMBER 15
ERROR COUNT FOR DMC11 NUMBER 15

1001
}%%

001772
001774

000000
000000

PACT16: 0
ERCT16: 0

;PASS COUNT FOR DMC11 NUMBER 16
JERROR COUNT FOR DMC11 NUMBER 16

1006

001776

000000

PACT17: 0

;PASS COUNT FOR DMC11 NUMBER 17

g;g

3;3

ggz

001724

001734

001760

002000

000000

002000

ERCT04: O

ERCT06: O

ERCT13: 0

ERCT17: 0

:ERROR COUNT FOR DMC11 NUMBER 04

*ERROR COUNT FOR DMC11 NUMBER 06

*ERROR COUNT FOR DMC11 NUMBER 13

;ERROR COUNT FOR DMC11 NUMBER 17

SEQ 0021

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

12:45

PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

1007
FORMAT OF

MRS B

EE "SChi

el G

et
[«
s

SEE
SRR
«] ~«]
i
ORe

I~
B

FOF
ANE
ot

SEiE IS Wk R

SN o

STATUS TABLE

THE

BN RET NG

(SR

T
GRS

TRy BNy
0
R
et S

S
=]
08

STAT1

BEST OPNE BOR

SRy SO

WG AR

(ol

ol e

BN SIS Bul W

BT SN SR
B
BN N
«]«]*«]«]x
«
Vv
e
Salt S80 BER SN SeE O
B

~]I=*

8 B

BES BEE
E
C
R
ok

EaS ST Nt DS
e

Sl B

vk S
SO BN AR
ol BT TRE BN AR
e
By e
O
MNT S
]
ST ShE Se B
BN o
PR G
S
BWE RS
SEU SRS Bn S
SRl SN S
Jab BN Selk BNE A
SR SN

DEFINITION OF

«~]

STAT?

38
EN

STAT3

oNl
W

FORMAT

CSR:

CONTAINS DMC11 CSR ADDRESS

STAT1:

BITS 00-08 IS DMC11 VECTOR ADDRESS
BIT15=1 MICRO-PROCESSOR HAS CRAM
BIT15=0 MICRO-PROCESSOR HAS CROM
BIT14=1 227? TURNAROUND CONNECTOR IS ON
BIT14=0 NO TURNAROUND CONNEC
BIT13=0 LINE UNIT IS AN M8201

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

STAT3:

LOW BYTE IS SWITCH PAC#1

HIGH BYTE

IS SWITCH PAC#2

(DDCMP LINE NUMBER)
(BM873 BOOT ADD)

BITO=1 DO FREE RUNIKING TESTS ON KMC

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

DZDMG TEST 2 FIRST
BIT1=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE
BIT1=0 DMC11-AR REMOTE LOwW SPEED MICRO-CODE

SEQ 0022

SS352ERRERE2% !

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

002034
002040

012737
012706
012737
013737
005037

105037
105037

000340 177776
001200
005336 000024
001310 001314
010016
001325
001327

002044 012737
002052 012737
002060 012737
002066 012700

001470
001676
100000
001702

1082
1083
1084
1085
1086

002074
002100
002102
002106
002114

022700
001374
005037
012737
012737

002002

1088 002122
1089 002126
1090 002132

013746
013746
012737

1092 002146
1093 002154

012737
022777

1095

000407

1087

002072

005020

.START: MOV
MOV
MOV
MOV
CLR

CLRB
CLRB

001320
001322
001316

1094 002162 001402
002164

002166

022625

001226
001214

#CNT.MAP+100,R0 :DONE YET?
238
*KEEP GOING
LSTERR
*CLEAR LAST ERROR POINTER
#1,TSTNO
*SET
UP FOR TEST1
#.START RETURN -SET
UP FOR POWER FAIL BEFORE

000006
000004
002166

000004

MOV
MOV
MOV

a6, -(SP)
m.-<sp>

177570
177777

001200
177020

MOV
cTMP

001234
000001
002002

012737
012737
012637
012637

238:

000176
000174
000004

1102
1103
1106

002220
002222
002230

001006
022737
001402

003522

002236
002242

004737
017737

007606
176734

1109 002254

001402

001202
001200

1101 002214 105737 881:3:2:.6
002232

1108

002250

005737

000042

001236

002256

005037

1112

002270

00101

1111

1113

1114
1115
1119
1117

002262

002272

002276
002300
002304
002306

032737
105737

100007
005737
001006
104402

000001

001236

001306
007154

001236

(LR

MOV

BEQ

68:

78:

000042

1ou.og 001000

1110

*CLEAR ERROR FLAG
*ZERO QUICK VERIFY FLAG

CMP
BNE
CLR
MOV
MOV

002170
002176
002204
002210

1106
1107

ERRFLG
QV.FLG

:LOCK OUT INTERRUPTS
*SET UP STACK
:SET UP POWER FAIL VECTOR
:SAVE NUMBER OF DEVICES IN SYSTEM.
“CLEAR SOFT TYPEOUT FLAG

#DM_MAP-10, CREAM: GET MAP POINTER.
#CNT.MAP=4 .MILK -GET PASS COUNT MAP POINTER
#BIT15,RUN
*POINT POINTER TO FIKST DEVICE.
#CNT. MAP RO
*PASS COUNT POINTER TO RO

1097
1098
1099
1100

1105

#340,PS
#STACK, SP
#.PFAIL ,a#24
DMNUM,SAVNUM
SWFLG

MOV
MOV
MOV
MOV

1091 002140 012737 177570 001202
1096

SEQ 0023

sSET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
:TYPE TITLE MESSAGE

1077
1078
1079
1080

1081

sPROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS

002002
002010
002014
073 002022
107&4 002030

1075
1076

12:45 PAGE 23
PROGRAM INITIALIZATION AND START UP.

208:

017?570 SWR

*CLEAR TABLE

*TESTING STARTS

*SAVE CURRENT VECTORS
:
*SET
UP FOR TIMEOUT

*SET SWR TO HARD SWR ADDRESS

»177570 DISPLAY -SET DISPLAY TO HARD SWR ADDRESS
#-1,3S
*REFERENCE HARDWARE SWITCH REGISTER

63*?

SIF = =1 USE SOFT SWR ANYWAY

(SP)+,(SP)+

*ADJUST STACK

B8R

MOV
MOV
MOV
MOV

#SWREG, SWR
*POINTER TO SOFT SWR
msmsc DISPLAY:POINTER TO SOFT DISPLAY REG
(SP)+,
:RESTORE VECTORS
(SP)+.a#6

BNE
CMP
BEQ

208
#SENDAD,a#42
208

JSR
MOV

PC.,CKSWR
aSWR, STRTSW

TMP

TSTB

TYPE
ST

BEQ
001236

(RO) +

INIFLG

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

“HAS INITIALIZATION BEEN PERFORMED

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

MTITLE

sTYPE TITLE MESSAGE

*1S IT RUNNING IN AUTO MODE?

*CHECK FOR SOFT SWR
*STORE STARTING SWITCHES

. +6

‘BR
IF NO

BIT

#SW00,STRTSW

-IF SWO0=1,

TSTB

STRTSW

CLR

BNE

BPL
ST
BNE

TYPE,

STRTSW

*IF YES,

CLEAR SWITCHES

QUESTIONS ARE ASKED.

17%

‘BR y swod=1

178
DMACTY
108

‘BR IF SW07=0
*ARE mv DEVICES SELECTED?
“BR IF YES

NOACT

‘BIT7=17?

*NO oevxcss SELECTED.

CZDME

000000
000776
004737
105737

010512
001324

17$:

168 :

D d i

001236

D il i

gl o O VP NI

)

001236

D e

21$:
24$:

% B 23 2 1o B 25 28 25 2 o i o

D D

D b

D e

;s;nrsu

“IF USING SAME PARAMETERS DONT TYPE MAP

BIT
BEQ

#BIT1!BIT2,STRTSW;IS TEST NO. OR LOCK SELECTED
248
:IF NO THEN TYPE STATUS

(oM
TYPE

INIFLG
,XHEAD

*SET FLAG
:TYPE HEADER

RG , TEMPT

*SET ADDRESS

B8R

MOV

#DM.MAP . RG

MOV
BEQ
MOV
MOV
MOV
CONVRT

(R4)+,TEMP2
1%
(R4)+, TEMP3
(RG)+. TEMPG
(R4)+, TEMPS

MOV

5
#DM.MAP , RO

:IF YES DO NOT TYPE STATUS

*SET POINTER

*SET CSR
*ALL DONE IF ZERO
*SET STAT1
*SET STAT2
*SET STAT3
*TYPE OUT STATUS MAP
.

e AR

AR AR AR A A AR AR AR AN A AR AN AR AR AAAARA AR

;RO POINTS TO STATUS TABLE
ANRARR RN

AR A AR AR AR A

D D
i
D i

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

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

OV NN ONON ON DN VAN N VNN

g}e

:GO DO THE AUTO SIZE

:*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).

D e

SN NN

*FIRST TIME?
*BR IF YES

1$:

b
D
D il

INIFLG
218

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

D e
D e
i e
i
i
i
i

;STOP THE SHOW
*DISQUALIFY CONTINUE SWITCH

PC,AUTO.SIZE

TSTB
BEQ

SEQ 0024

JSR

XSTATQ

;;ttttttttttttttttttttttttttttttttttttttttttttttttttttt'tttttttttttttt

013746

000004
000006
000006
001252

MOV
MOV

a#6 ,~-(SP)
a#6,-(SP)

CLR

TEMP3

CLR

CLR
AUSTRT: MOV

001404

100000

000002

100000

000002

1%:

002674

000004

2%:

;SAVE LOC 4
;SAVE LOC 6

;CLEAR VEC+2

RS
(RO) ,DMCSR

;R5=0=DMC, RS==1=KM(
JGET NEXT DMC CSR

:DMC OR KMC?

;CLEAR FLAG

BEQ

AUDONE

BNE
BIT
SNE
BR
BIT
BFQ
MOV

1%
#MiT15,2(RO)
SKIP
P 3
#NODEV , a#é

sBR IF KMC
sCHECK FOR DMC CSR
;SKIP IF NOT DMC
;ITS A DMC SO CONTINUE
;CHECK FOR KMC CSR
JSKIP IF NOT KMC
;SET UP FOR TIMEOUT

BNE

JBR IF KMC

TST

i i e

HALT
B8R

BR
MOV

d
i i

il e

12:45 PAGE 24
PROGRAM INITIALIZATION AND START UP.

D i

A MO PRI —

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

TST

#BIT15,2(RO>
SKIP
R

;BR IF DONE

;DMC OR KMC?

%g;
o

;R3 IS COUNT OF DEVICES BEFORE DMC

c1o R3
#DEVTAB,R2
#160010.R1
(R1)
(R2) R4

:R3 IS COUNT OF DEVICES BEFORE KMC
:R2 IS DEVICE TABLE PONTER

R1
R4 .R1
R3

FY:

000002

2%
#BIT15,2(RO)

1%:

D ) D D D
) ) D e
D

SKIP:

(ROJ ,DMCSR

FyY

003022

(RoS DMC SR

UDONE
XLOC R1

001252

ERR:

(R2)+,-(R3)

TEMP3
18

c1o RO

#10,R0
#10,XLOC

NODEV:

N
~N

SKIP
(R1)
R1,DMCSR
0K
flO R1

AUDONE

*ANY MORE DEVICES TO CHECK FOR?
IF YES

SKIP

2%:

000019
001404

b ek

.}'F‘ ?‘11) TIMEOUT, GET NEXT ADDRESS

#BIT15,2(RO)

000010

002700

;START WITH ADDRESS 160010
:CHECK ADDRESS IN R1

: SAVE rxnsr DMC/KMC ADDRESS

000002

001404

;GO ON

“0K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT

002700
003022

D ) D

4%:

d
d ed
e

) D e

3%:

SEQ 0025

0‘6.&3

001276

#ERR, SAVP(

b e

d D d e e
e

PROGRAM INITIALIZATION AND START UP,

R4 ,R1

003022

:GET NEXT DMC ADDRESS
:D0 IT AGAIN
:SKIP TO NEXT CSR IN TABLE

$GET NEXT CSR
:BR _IF DONE
sELSE CONTINUE

;SKIP TO NEXT DMC CSR
sUPDATE EXPECTED DMC/KMC ADDRESS
sGET NEXT DMC/KMC CSR
:BR_IF DONE
Ggfwg)(PECTED DMC/KMC ADDRESS
;€
NUE

:ON_TIMEOUT, INC R2, DEC R3

:RETURN

sCHECK FLAG IF
= 0 TYPE HEADER
:SKIP HEADER

: TYPEOUT HEADER MESSAGE

CONF IGURATION ERROR!!!!

:SAVE PC_FOR TYPEQUT

s TYPE OUT ERROR PC

*TYPE REST OF HEADER
177777
001262

001252

1%:

#-1,TEMP3
R1,SAVR1

—

d e

PAGE 25

FLOAT:

000010

\Y)
N
N%NNNNNNN nINNONY
N
~ W)=
NS VONONSBWN=O CESE

12:45

leolole]

—_—

—_

N
~
o

002522
0025
0025
002536
540

012703

0004
o

0025%0
N

—>

002514

D D D D ) D D D D D D d D

) D D D e

D D

) D d-

RS BB IR RIBOLIBIRBRARIBIIINAN

CZOME
MACYN 30A(1052)
11-SEP—78
CZDMEC.P
11-SEP-78
1

RS
3s
6%

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

sTYPE CSR VALUES

;DMC OR KMC ?
:BR IF KMC

s CONT INUE

838838
N33R
233 88388

104402
007330
022626

3s:
A ¥
ERRPC:

002

CMP
BR
1

6.4

.BYTE

6.2

.BYTE

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

7
7
7
7
"§
7

g‘\

DEVTAB:

8
<

DMCSR

.BYTE

ERERER

333

.EVEN
XLOC:
0
AUDONE: TST

PRISRRENS

~
o

—

000300
000302

001000

sDMC?
sBR_IF KMC AND ALL DONE
;SET R5 TO =1 (KMC)

(SP)
+ ,a#4
#SWO3,STRTSW
3s

*RESTORE LOC 4
sSELECT SPECIFIC DEVICES??

CLR

BLOS

CMP

aSWR, SAVACT
2%

2%:

BR
MOV
MOV

=2
aSWR,DMACTV
DMACTV,RO

3%:

MOV

;ZERO DATA LIGHTS
sWAIT FOR USER TO TELL WHAT DEVICES TO RUN
;1S THE NUMBER VALID?
:BR IF NUMBER IS OK.
sTELL USER OF INVALID NUMBER.
:STOP EVERY THING.
JRESTART THE PROGRAM AGA IN.
sGET NEW DEVICE PATTERN
sSHOW THE USER WHAT HE SELECTED.
sCONTINUE DYNAMIC SWITCHES.

001236

MOV

TYPE

HALT

001312

TYPE
HALT

001306

MOV
BIT
BEQ

1%:

006005
176064
001306

1%
#-1,RS
#DM_.MAP
RO
AUSTRT

006144
176104

sADJUST STACK
:BR TO GET OUT

BNE
MOV
MoV
BR

177777
001500

000006
000004
000010

(SP)+,(SP)+
0K

SAVP(C
CONTAB: 2
BYTE

002

4%:

HALT

(SP) +,a#6

+MNEW

.MERR3

#300,R0

:ZSSST RO T(S) START OF TABLE
0 KMC'

*RESTORE LOC 6

;BR
_IF NO .
;BRI

:TYPE THE MESSAGE.

:PREPARE TO CLEAR THE FLOATING

MOV

#302 ,R1

:VECTOR AREA. 300-776

CLR

(R1)+

:IN VECTOR AREA.
;POP POINTERS
;ALL DONE??
;BR iF NO.

MoV

CMP

BNE

R1,(RO)+

(RO)+,(R1)+

#1000,R0

:START PUTTING

-l

88
WW

JTEST START AND RESTART
001200
000006

SEQ 0026

TYPE

KMCM

XLOC

S 2

Nf‘\\.l NINYNINININININININD

D e
D d d
d D e e

b e e
n
d
D e e

N 2
PAGE 26
PROGRAM INITIALIZATION AND START UP.

12:45

) d

e D )e e
NN
d e e
D e e e
D e e e
) e e e
e e e e e e
—

e e

e e e e e

SIS IS DS IS TS LSS TNT NS TS SNV, V)

RN
3 000000
WA
— 33
NNV
NERERRREL
S St StBB IFAR AR 2SS0roN L EEHEIENRO

CZDME
MACY11 30A(10 52)
_11-SEP-78
11-SEP-788 12:38
CZDMEC.P1

.BEGIN: MOV

MOV

#_TACK,SP

a#6,-(SP)

sSET _UP STACK
JSAVE LOC 6

'PC+2 = HALT"'

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

1286

013746

000004

1288 003170 012737

003234

1287

1289

003162

003166

003176

005000

005037

000006

204 022700

157776

1290

003202

1292
1293
129
1295
1296
1297

003210
003212
003216
003222
003226
003232

001374
162700
010037
012637
012637
000413

007776
001304
000004
000006

1299 003236

162700

000004

1291

1298 003234

005720

022626

6$:

7%:

28:

003246 022700 030000

1302 003252 001361
1303 003254 012700
1304 003260 000756
1305 003262 012737
1306
1307
1308

003270
003276
003300

032737
001411
104402

1309
1310
1311
1312
1313
1314

003304
003312
003320
003322
003330
003336

012737
012737
000406
013737
013737
012737

1316

003352

001002

1318

003360

000177

1315

1317

003344

003354

032737
104402

000004

006043

000240
000240

177776

001236

005755

175630

10%:

0034512
003614

003730 003612
003732 003614
010060 001214
000002

NG, =(SP)

;SAVE LOC
4

MOV

#2S , an6

*SET UP FOR TIME OUT

(RO) +

*CHECK ADDRESS IN RO

CLR

cTMP

001236

18%:
3$:

&$%:
5%:

#157776 .RO

*START AT 0

*TO AUTOSIZE MEMORY

*IS IT AT LEAST 28K

BNE
SUB
MOV
MOV
MOV
BR

6$
#7776.R0
RO, MEML IM
(SP)+, a4
(SP) +. a6
108

*BR
IF NO
*SAVE 2K FOR MONITORS
*STORE MEMORY LIMIT
*RESTORE LOC 4
*RESTORE LOC 6
* CONT INUE

SUB

mn RO

*GET LAST GOOD ADDRESS

cMP

SuB

cTMP

037400
000340

MOV
CLR

000004

1300 003242 162700 007776
1301

12:45 PAGE 27
PROGRAM INITIALIZATION AND START UP.

<sp>+ (SP)+

csooob RO

*ADJUST STACK

*SAVE 2K FOR MONITORS

YIS IT 8?2

BNE
MOV
BR
MOV

c374oo RO
73
#340,PS

*BR IF NO
“IF 8K DON'T SAVE 2K
:
*LOCK OUT INTERRUPTS

MOV
MOV
BR
MOV
MOV
MOV

#NOP,TTST
ANOP . TTST+2
38
BRW,TTST
BRX.TTST+2
#CYCLE,RETURN

*ADJUST SCOPE ROUTINE.
*SET UP TO LOCK
*CONTINUE ALONG.
*PREPARE NORMAL SCOPE ROUTINE
*LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
-START AT "‘CYCLE'' FIND WHICH DEVICE TO TEST

BNE

‘BR IF YES

BIT
BEQ
TYPE

BIT

TYPE

JMP

#BITS,STRTSW
1%
,MLOCK

#SWO1,STRTSW

-CHECK FOR LOCK ON TEST
:BR IF NO LOCK DESIRED.
*TYPE LOCK SELECTED.

+IS TEST NO. SELECTED?

.MR

‘TYPE R

aRE TURN

START TESTING

SEQ 0027

CZOME

MACY1 30A(10;2)

CZDMEC.P1T

11-SEP-78

11-SEP-78 12:38

12:25

PAGE 28

ND OF PASS ROUTINE

1319

:END OF PASS

1320
1321
1322

:TYPE NAME OF TEST
JUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=11

}%222

sRESTART TEST

1325

003364

000005

1328

003376

005237

1332

003420

1326
1327
1329
1330
1331

1333

003366
003372

003402
003410
003414
003424

005037
105037

001234
001325

013777
104402
104402

001230
005733
006072

1339
1340
1341
1342
1343
1344
1345
136

003454
003460
003464
003470
003474
003476
003504
003512

1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357

003450

,XERR

1362

003560

1363
1364

003562
003564

1367
}3328

003572
003574

1365
1366

013700
013720
013720
005337
001017
112737
013737
013701

001404

003554
003556

003566
003570

001406
000005

000377
001310
000042

010060
010060

000001
004

002

006

002

006
001232

002

001230
000001

1372

001327
001314

'
$ENDAD:

002

000001

TYPE

001322
001230
001232
001314

006

001374

TYPE

006117

}%;(1)
1373
1374

JSHOW IT

CNVRT

104411

003552

1360
1361

SHOW IT

003570

104402

004711
000240
000240
000240
00024
012737
000137
000001

003550

1359

XCSR

XPASS

006106

001214

MOV
MoV
MOV
DEC
BNE
MOVB
MOV
MOV

BEQ
RESET

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
JMP
XCSR:
1

XVEC:
XPASS:
XERR:

JMVECX
JMPASSX

. MERRX

MILK,RO
PASCNT, (RO) +
ERRCNT, (RO) +
SAVNUM
RESTRT
#377.QV.FLG
DMNUM, SAVNUM
a4l R1
RESTRT

1
BYTE

4,2

BYTE

6,2

BYTE
ERRCNT

6.,c

PASCNT
1

:TYPE PASSES
JSHOW IT

:TYPE ERRORS
JSHOW IT

;GET POINTER TO PASS COUNT
;STORE PASS COUNT FOR THIS DMC11
;STORE ERROR COUNT FOR THIS DMC11
;ARE ALL DEVICES TESTED?
:BR IF NO.
;SET THE QUICK VERIFY FLAG.
;RESTORE THE COUNT
;CHECK FOR ACT-11 OR DDP

:IF NOT, CONTINUE TESTING
;STOP THE SHOW=--CLEAR THE WORLD

:
#CYCLE ,RETURN
CYCLE

6,2

DMRVEC

:TYPE VECTOR

PC, (R1)

BYTE

DMC SR

JUPDATE PASS COUNT

PASCNT ,aDISPLAY ;DISPLAY PASS COUNT
JMEPASS
;TYPE END PASS
.MCSRX
:TYPE CSR

CNVRT

003516
003520
003522
003522
003524
003526
003530
003532
003534
003542
003546

1358

CNVRT

TYPE

WORLD CLEAN AGAIN.

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG

PASCNT

003562

104411

104402

006100

;MAKE THE

INC

MOV
TYPE
TYPE

,XVEC

003440

1338

LSTERR
ERRFLG

CNVRT

1336

003444

CLR
CLRB

003554

104411

1337

175570

RESET

003546

104402

003430

003434

001230

.EOP:

104411

1334

1335

SEQ 0028

;SCOPE LOOP AND INTERATION HANDLER
003576
003602

737
010016

007606

.SCOPE: JSR
MOV

PC.CKSWR
RO, (SP)

:CKECK FOR SOFT SWR
:SAVE RO ON THE STACK

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

1375

003604

032777

003614

000437

§76

003612

1378
1379
1380
1381
1382
1383

003616
003622
003624
003630
003632
003640

1387

003654

1384
1385
1386

1388
1389
1390
1391

1392
1393
1394
1395
1396
1397

1398
1399
}2'8?

003642
003646
003650

003670
003674

003700
003706
003714
003716
003720
003724

003730
003732
003734

001407

005737
001434
005037
000415
032777
001011

105737
001406
005237

023737

040000

012737
013737
011600
022626
013701
000177

001407
000437
000000

175370

TTST:

003734
003734
004000

175342

1$:

001327

001224

101414
105037 001325

005037
005037

001224
001220

000020
001216

001222

001222
001214

001404
175264

1404

003736
003742
003750

004737
032777
001405

003752
003756

005737
001402

003764

000002

003760

013716

003766
003770
003774
004002
004006
004010
004016

010546
017605
062766
005737
001004
032777
001012

1424

004022

100002

007606
001000

DONE
3$
DONE
2%
#SW11,3SWR
28

:WAS TKCSR DONE SET?
:BR IF NO (LOCKED ON TEST)
:YES, CLEAR FLAG
GO TO NEXT TEST
:DELETE ITERATION? (QUICK PASS)
:BR
IF YES

CMP

%PCNT.ICMT

:GOTO 38~

(IF LOCK SWO1=1;

:HAVE PASSES BEECOMPLETED?
:BR IF QUICK PASS.
:UPDATE ITERATION COUNTER

$
ERRFLG

:BR IF NOT YET
*PREPARE FOR NEW TEST

3$:

LPCNT
LOCK

1407
437
O

THIS LOC =240)

(IF LOCK SWO1=1: THIS LOC =240)

QV.FLG
28
LPCNT

MOV
#20, 1 COUNT
MOV
NEXT,RETURN
MOV
(SP) .RO
POP2SP
MOV
DMCSR,R1
JMP
ARE TURN

CLR
CLR

’

175232

.SCOP1: JSR
BIT
BEQ

PC, CKSWR
#SW09, aSWR
1$

MOV

LOCK, (SP)

TST
BEQ

001220

1$:

004020

000002

010000

175164

105715

005672
175154

1428

004036

112577

175150

004042
004044

100375

001357
012605

4$:
1$:

104402
105777

004034

.TYPE:

000002
000002
010016

004024
004030

1429
1430

TST
BEQ
CLR
BR
BIT
BNE

28:

BRW:
BRX:
DONE:

001220

1425
1426

1427

:BR IF_NO.

:ARE ALL ITERATIONS DONE??

:START ICOUNTER AT 0

;RESET ITERATIONS
:GET NEXT TEST
:POP RO OFF OF THE STACK
:FAKE AN 'RTI'
*R1 CONTAINS BASE DMC ADDRESS
‘GO DO THE TEST

RTI

LOCK
1%

;CHECK FOR SOFT SWR
;IS SW09=1(SET)?
:BR IF NOT SET.

:GOTO THE ADDRESS IN LOCK.

:GO BACK.

;TELETYPE OUTPUT ROUTINE

1416
1417
1418
1419
1420
1421
1422
1423

;'LOOP ON THIS TEST'*%

BLOS
CLRB

}2}2
1415

#BIT14,aSWR

BEQ

SEQ 0029

;CHECK FOR FREEZE ON CURRENT DATA

1408
1409

1410

BIT

TSTB
BEQ
INC

}28?5

1405
1406
1407

12:45 PAGE 29
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

2%:

MOV
MOV
ADD
TST
BNE
BIT
BNE

RS,=(SP)
22(SP) RS
#2,2(SP)
SWFLG
1
#SW12,3SWR
3s

;SAVE RS ON THE STACK.
:GET ADDRESS OF MESSAGE.
:POP OVER ADDRESS.
*SOFT SWR MESSAGE?
:IF YES TYPE IT OUT REGARDLESS OF SW12
;INHIBIT ALL PRINT OUT?
:BR IF NO PRINT OUT wwrso (SW12=1)

BPL

:BR IF NUMBER IS PLUS

TSTB

TYPE
TSTB

,MCRLF
QTPCSR

BPL

BNE
MOV

43
(SP)+,RS

MOVB

38:

(R3)

(RS)+,aTPDBR

;1S NUMBER MINUS? (MSB=1(BIT7))

:TYPE A CR/LF!
:TTY READY?

‘BR IF NO.

:PRINT CURRENT CHAR.

:1F NOT ZERO KEEP PRINTING'
:END OF OUTPUT. RESTORE RS

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

1431

004046

000002

RTI

1434

004050

010346

.INSTR: MOV

1038

1435 004052
1436 004054
1437 004

010446
017637
062766

000004
000002

1640 004074
1441 004100

0127064
012703

007502
000007

1443 004110

100375

1438
1439

004070
004072

1442

004106

1444

004112

1446

004122

1448

004130

1445

1447

004116

104402
000000

105777
117714

142714

122427

004126

001417

1449 004134
1450 004136

100375
017777

1452
1453
1454

004146
004150
004152

001356
012604
012603

1456
1457
1458

004160
004162
004164

010346
010446
000741

004170

012603

1451

1455

1459

1460

},,”2}_

004144

004154

004166

004172

105777

005303

104402

004072
000004

175074

1%:

2%:

175046

JINSTE:

004174

004220

004224

004230

004234

004236

1477
1478
1479
1480

004242
004246
004250
004254

1483
1484
1485
1486

004264
004270
004272
004276

1481
1482

QTKCSR

QTKDBR, (R&4)

#200, (R4)

(R&)+ 415

INSTR2

QTPCSR

BPL
MOV
DEC
BNE
MOV
MOV

28
aTKDBR,aTPDBR
R3
13
(SP)+,R&4
(SP)+.R3

MOV
MOV
BR

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

MOV

(SP) +.R3

TYPE

;SAVE R3 ON STACK

*SAVE R4 ON STACK

,MQM

(SP) +,Ré

:RESTORE R&

‘RESTORE R3

;CONVERT ASCII STRING TO OCTAL
010546

112537

1476

TSTB

RTI

1473

1474

BEQ

000002

010446
016605
012537
012537
012537

1475

BPL

INSTR2: MOV

1467 004176
1468 004200
1469 004204
1470 004210
1471 004214
1472

TSTB

012604

1463
1466

# INBUF ,Ré4
#7 .R3

C(MPB

175054

005666

MOV
MOV

BICB

000015

R3,=(SP)

R&.=(SP)
% (SP)
, .MSG
#2,4(SP)

MOVB

000200

;GO HOME

MOV
MOV
ADD

JINST1: TYPE
MSG:
0

175070

175044

12:45
PAGE 30
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

004256
004262

.PARAM: MOV

004364
004366
004370

R&.-(SP)
4(8P) RS
(R5)+.LOLIM
(R5)+.HILIM
(R5)+.DEVADR

004373

MOVB

(R5)+.ADRCNT

000004

112537

004372

010566

000004

005005

012704

007502

122714
001420
121427
002415

000015

142714
152405
122714
001406

000060

121427
003012

RS,=(SP)

MOV
MOV
MOV
MOV
MOV

000060

000067

000015

MOVB

MOV

PARAM1: CLR

MOV

1$:

CMPR
BEQ
CMPB
BLT

CMPB
BGT

BICB
BISB
CMPR
BEQ

(R5)+.LOBITS

RS.4(SP)

#INBUF
R4

#15, (R4)
PARERR
(R4) 460
PARERR
(R4) 467
PARERR
#60, (R4)
(R4S+ RS

#75, (R4)
LIimiTS

SEQ 0030

CZDME

MACY11 30A(1052)

CZDMEC.P1T

_11-SEP-78

11-SEP-78 12:38

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

ASL

PARERR:

RS
R5
1%

PARAM1

INSTER

;TEST

004366

ASL
ASL
BR

TO SEE

LIMITS: CMP

BHI

IF NUMBER IS WITHIN LIMITS

RS ,HILIM

PARERR

004372

S
N

~
o

004370

22028888

oAl

:STORE NUMBER AT SPECIFIED ADDRESS
1%:

000002
004373

D
)
D
D

OO S 2 I

HILIM:

001276

Sv05:

D i

) —

)

.5AV0S5: MOV

4(SP) ,SAVPC

;SAVE R7 (PC)

:SAVE RO-R5

) e

;SAVE P( OF TEST THAT FAILED AND RO-RS

MoV
MOV
MOV
MOV
MOV

MOV

1%
(SP)+ R4
(SP)+,RS

ADRCNT=LOB]TS+1

e e

RTI

R5,SAVRS
R4, SAVR4
R3,SAVR3
R2,SAVR
R1,SAVR

RC,SAVRO

:SAVE
:SAVE
:SAVE
;SAVE
:SAVE

RS
R4
R3
R?2
R1

:SAVE RO

;LEAVE.

2
=2 —d —a
S D

B
N=OO

jelelelelele)

;RESTORE RO-RS

D
)
)

DEVADR R4

R5,(R4)+
#2,R5
ADRCNT

DEVADR: 0
LOBITS: 0

N L LV IV L

d e

)

LoLim:

XKLL Rl
W

—

MOV

MOV
ADD
DECB

BNE
MOV
MOV

W LV LV LV LV LV LV LV LV LV LV, LV LV

)

D - —d d

1504

.RESO5: MOV
MOV
MOV
MOV
MOV
MOV

SAVRO,R0O
SAVR1 ,R1
SAVR?,R?
SAVR3,R3
SAVR4 R4
SAVRS RS

sRESTORE
JRESTORE
JRESTORE
JRESTORE
JRESTORE
JRESTORE

RO
R1
R?
R3
R4
RS

SEQ 0031

CZDME

MACY11 30A(1052)

CZDMEC.P1

1543
1544

004464

11-SEP-78

11-SEP-78 12:38

000002

RTI

15522

1547

1548
1549

1550
1551
1552
1553
1554
1555
1556

004466
004472

104402
010046

010146
010346
010446
010546
017601
062766
012137

004710

004532

013137

004714

004544

001003

1560

004536

112137
112137
122737

1562

004546

042737

1564

004560

113705

1563

004554

000012
000002

177400

004714

004712

012700
010403

001416

1568

004576

062703

000060

1569
1570

004602
004604

110320
000241

1572

004610

000241

1574

004614

000241

004620

005305

1571

1573

004606

004612

1575

004616

1577
1578

004622
004624

1576

1579
1580

1581

1582
1583

1584
1585

1586

1587
1588
1589

1590
1591
1592
1593
1594
1595

1596
1597
1598

004630
004632

004636

001362
012703

114023
105337

001374

004640
004644

105737
001405

004656

001373

004646
004652

004660
004662
004666

004672
004674
004676
004700
004702
004704

004706
004710
004712

112723
105337

105013
104402
005337

001313
012605
012604
012603
012601
012600

000002
000000
000000

1%:
004712

013704

042703

000012

000003

004564
004570
004572

.CONVR: TYPE
.CNVRT: MOV

004712
004713

1565
1566

1567

005672

004474
004476
004500
004502
004504
004510
004516

004522
004526

1561

sLEAVE

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER

1557
1558

1559

12:45
PAGE 32
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

177770

MOV
MOV
MOV
MOV
MOV
ADD
MOV

R1,-(SP)
R3,-(SP)
R&.=(SP)
RS .=(SP)
@12(SP) ,R1
#2.12(SP)
(R1)+,WRDCNT

MOV

a(R1)+,BINWRD

MOVB
MOVB
CMPB

BNE

2%:

3$:

BIC

#TEMP RO
R4 ,R3

ADD

#060,R3

ROR

R&4

BIC

ROR
DEC

000040
004713

007544
004710

BNE
MOV

MOVB
DECB

BNE

004713
5%
6% :

#177400,BINWRD

MOV
MOV

MOVB
cLC

4$:

#3,CHRCNT

BINWRD
, R4

MOVB

CcLC

004712

(R1)+,CHRCNT
(R1)+.SPACNT

MOV

cLC

007544

,MCRLF
RO,=(SP)

TSTB
BEQ
MOVB
DECB

BNE

C(LRB
TYPE
DEC

BNE
MOV
MOV
MOV
MOV
MOV

RT]
WRDCNT: 0
CHRCNT: O

CHRCNT.RS

#177770.R3
R3,(R0)+

33
#MDATA,R3

-(RO), (R3)+
CHRCNT

SPACNT
é$

#040, (R3)+
SPACNT

(R3)
_MDATA
WRDCNT

s
(SF)+,RS
(SP)
+ R4
(SP)+.R3
(SP)+
R1
(SP)+.RO

SEQ 0032

CZOME

MACY11 30A(1052)

NN NN
3 NN
2RTERER 283!

CZDMEC.PI

11-SEP-78 12:38

004714

H 3
12:45 PAGE 33
GENERAL UTILITIES (TY tOUT, ERROR, SCOPE, ETC)

004713

C'(')RCNTH
SPACNT=

000000

BINWRD:

]

1599

11-SEP-78

e S

;TRAP DISPATCH SERVICE

St —

(SP) ,~(SP)
#2,(5P)
(SP), (SP)

BIC

#177001, (SP)

ASL

ADD
MOV
JMP

001330
000000

MOV
SUB
MOV

(SP)

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

:GET PC CF RETURN
:=PC OF TRAP

:GET _TRP
:MULTIPLY TRAP ARG BY 2
:CLEAR UNMANTED BITS

:POINTER TO SUBROUTINE ADDRESS

s SUBROUTINE ADDRESS

:GO TO SUBROUT INE

;:ERROR HANDLER

004754

032777

004762
004764

1625

004772

1628

TRPOK
:

177001

1622
1623

1626

.TRPSR:

000002
000000

VRNFNE NSO

sARGUMENT OF TRAP IS EXTRACTED
sAND USED AS OFFSET TO OBTAIN POINTER
sTO SELECTED SUBROUTINE

005000
005006
005010

001406
105777
100003
112777

007606
010000

174220

LHLT:

BEQ

174220
000207

032777

020000

021637

001234

1630
1631

005016
005022
005026

011637
105037

001234
001325

1634

005032

162705

000002

174212
174174

JSR

BIT

TSTB
8PL

XBX:

BNE

HALTS

BIT

(SP) ,LSTERR

13
(SP) ,LSTERR

ERRFLG

MOV
SUB
MOV

(SP) RS
#2 RS
(RS) R4

ADD

(RS) R4

SAVOS

ASL

BIC

#177001,Ré4

TSTB

ERRFLG

ADD
MOV
MOV
MOV

#SW1%, aswR

CLRB

ASL

BEQ

18:

XBX

arpcsn

0207 aTPDBR

BEQ
MOV

TYPMSG:

#SW12,aSWR

MOVB
P

1%:

PC.,CKSWR

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

DATABP

TYPE
TYPE
ST

,MCRLF
,MCRLF

LOCK

CNVRT

XTSTN

BNE

BEQ
TYPE
TYPE

TYFDAT

18
,MASTEK
“IATSTIN

;CHECK FOR SOFT SWR
;BELL ON ERROR?
:BR IF NO BELL
s TTY READY.

:DON'T WAIT IF TTY NOT READY.

:PUSH A BELL AT THE TTY,
;DELETE ERROR PRINT OUT?
sBR _IF NO PRINT OUT WANTED.
;WAS THIS ERROR FOUND LAST TIME?
;BR IF YES
-RECORD BEING HERE
sPREPARE HEADER
sSAVE ALL PROC REGISTERS
:GET THE PC OF ERROR
:GET ADDRESS OF TRAP CALL
sGET HLT INSTRUCTION
sMULT BY TWO
;DOUBLE IT
sMULT AGAIN
sCLEAR JUNK
:GET POINTER
:GET ERROR MESSAGE
:GET DATA HEADRER
:GET DATA TABLE
: TYPE HEADREER
JBR IF YES
;DOES DATA TABLE EXIST?
:BR IF YES.

SEQ 0033

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

005140

104402

006%17

005154
005162
005166
005170

112737
005737
001402
104402

177777
005172

1656
1657

005144
005150

1662
1663
1664

005172
005174
005174

1667

005204

1658
1659
1660
1661

1665
1669

1668
1669
1670

005206
005212
005214

005737
001402
104410

1673

005222

1674
1675

1676
1677

1678
1679

005737

001402
104402

005216

005220

005230
005232

005236
005240

005242
005246

005322
005672

000000

022737

001403
005777

100005
010046

016600
000000

005204

003522

000042

000002

173716

1684

005266

032777

002000

173706

001216

001214

001411
013737

005310
005314

013701
000177

1687

005304

1690
1691
1692
1693
1694
1695

005320
005322
005324
005326
005330
005332

1688
1689

1696
}ggg

012706

000002
000001
006
001276
000001
003

005334

001226

005336
005336

012737

RESREG: RESOS

HALTS:

173744

000400

005274
005276

*NO MORE HEADER UNLESS NO DATA TABLE.
*IS THERE AN ERROR MESSAGE?
:BR IF NO.
:TYPE

,ERTABO
JMCRLF

001200

001404
173674

C(MP

DATAHD

TYPDAT

DATABP
RESREG

1%
aSWR

MOV
HALT

2(SP) ,RO

BIT
BNE

#SW08,aSWR
1%

BEG
MOV

2%
NEXT ,RE TURN

1%:

EXITER:

POPRO
INC

BIT

1%:

MOV

MOV
JMP

2%:
RT]
ERTABO:
1
.BYTE
SAVP(
XTSTN:
1
.BYTE

002
002

#SENDAD , a4 2

BEQ
TST

BPL
PUSHRO

JSHOW IT
;GIVE A CR/LF

;

DATABP: 0

001232

1685
1686

#-1,ERRFLG
ERRMSG
WRKO.FM

TYPDAT: TST
BEQ
CONVRT

012600
005237

032777
001007

MOVB
TST
BEQ
TYPE

DATAHD: 0

005216

005250
005252

005256
005264

;TYPE PC.

BEQ
TYPE

1680
1681

1682
1683

. MERRP(

ERRMSG: 0
WRKO.FM:
TST

000000

104407

TYPE

CNVRT
TYPE

001325

000000

005200
005202

1671

1672

104411
104402

12:45 PAGE 34
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

EXITER

ERROR MESSAGE

DATA HEADER?

*BR
IF NO
:TYPE
3

DATA HEADER

DATA TABLE

“DATA TABLE?
*BR IF NO.
* SHOW

*RESTORE PROC REGISTERS

sIF ACT=11 AUTOMATIC MODE, HALT!'!

JHALT ON ERROR?

“BR IF NO HALT ON ERROR
:SAVE RO

ERRCNT

.suou ERROR PC IN DATA LIGHTS
JHALT
;GET RO
JUPDATE ERROR COUNT

#SW10,3SWR

;GOTO NEXT TEST?

#STACK,SP

DMCSR,R1
@RE TURN

;GOTO TOP OF TEST?
:BR IF YES

:BR
IF NO
:SET FOR NEXT TEST

RESET SP

“SET
UP R1
:GOTO SPECIFIED TEST
;RETURN

6.2
3.2

TSTNO
)
;ENTER HERE ON POWER FAILURE

1699

1700
1701
1702

1703
117782

005344
005346

000000
000777

005350

000024

PFAIL:

HALT
HH

37789
1708

1709

1710

MOV

#RESTART 24

;SET UP FOR POWER UP TRAP

HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER 1S RESTORED
005350

005350

005356

012737

012706

005336

001200

000024

RESTAR:

MOV

#.°FAIL,24

#STACK,SP

JSET UP FOR POWER FAILURE

:RESET THE STACK POINTER

SEQ 0034

CIDME

MACY11 30A(105 )121}§SEP-78

CZDMEC.P11
1711
mg
1713
1714

11-SEP-

005362
005366
005372
005376

013701
005037
005237
001375

001404
001416
001416

1718

005414

005037

1720
1721

005422
005426

1723 005432
}% 005434

1715
1716
1717
1719

1722

005400
005404
005410
005420

005430

1726

005436

1729

005446

1727
1728

1730

1731

1732
1733
173

005436
005444

005450

12:45

DMCSR,R1
TEMP
TEMP
=)

001234

CLR

LSTERR

104412
000177

173564

MSTCLR
JMP
SRETURN

003
001226

002

012777
104414

000020

104402
104411
105037

005011

000001

005675
005430
001325

TYPE
CNVRT
CLRB
CLR

PFTAB:

121111

121224
032777
001772

000020

1737
1738
1739

005466
005466
005474

005502

152777
142777

000002

000100
000300

173712
173704

1742
1743

005504
005504

152777

000002

173674

1746

005522

032777

000100

173452

1748

005532

};{4’?

1744
1745

1747

1749

005464

005512
005516

005530

001401

005534

152777

1750
;;g;

005542
005550

1753

005552

1756
1757
1758
1759

005562
005570
005576
005604

1761

005612

176
1764

005616

1754
1755

1760

wcg

1765
1766

000000

173676
000002
000003

000007

005552
005556

013637
062746

001416
000002

005610

001364

005616
005622

MOV
ROMCLK

152777
027777
142777
005337

000020
173610
000020
001416

000002

000001

013637
062746

173636

.MSTCLR:

.ROMCLK:

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

BISB

#BIT1,aDMCSRH

BIT

BEQ

3$:

001416
000002

.TIMER:

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

BISB
BICB

MOV
ADD

1%:

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#BIT4,3DMPO4

HAL T

BISB
BICB
RT]

.DATACLK:

173616
173606
173602

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

121224
BIT
BEQ

RTI

1%:

“TYPE THE MESSAGE
*TELL WHAT TEST TO RETURN TO.
:START. CLEAN

“POKE CLOCK DELAY BIT

ROMCLK

173730

173644

#20, aDMPO4

121111

RT]

142777
000002

005614

.DELAY:

000002

013677
062746

(R1)

:RESTORE R1
*READY FOR TIMMER
*PLUS ONE TO THE TIMER!'
*BR IF MORE TO GO

3,2
TSTNO

1%:

104414

.MPFAIL
.PFTAB
ERRFLG

.BYTE

173746

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
MOV
CLR
INC
BNE

005452
005454
005462

};332

PAGE 35

:RETURN

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

#5W06, aSWR
18

BNE

#BIT4,aDMCSRH
DMCSR,aDMCSR
#BIT4,aDMCSRH
TEMP

.BLKW 1

MOV
ADD

:LOAD INSTRUCTION IN SEL6
*ADJUST STACK
SHALT IF SW06 =1

*BR IF SW06 =0

HALT BEFORE CLOCKING INSTRUCTION

#BIT2!BIT1'BITO,aDMCSRH

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

RT]

:SET ROMI

#BIT1'BITO,aDMCSRH ;CLOCK INSTRUCTION

MOV
ADD

BISB
P
BICB
DEC

*PORT4_IBUS*11
-1S CLOCK BIT SET?
*BR IF NO

3:SP)+, TEMP
#2,-(SP)

:CLEAR ROMO, ROMI, STEP

;PUT TICK COUNT IN TEMP
*ADJUST STACK

-SET STEP LU
:WASTE TIME
:CLEAR STEP LU
:DEC TICK COUNT

*BR IF NOT DONE
*RETURN

;MOVE COUNT TO TEMP
SADJUST STACK

SEQ 0035

MACY11 30A(1052)

001416

006072
006100
006106
006130
006142
006144

051503
042526
040520
05
042524
000052
051777

006224

006322

045503

MLOCK:

.ASC

.ASC
.ASC

051440

020212

020040

XHEAD:

020212

050040

020103

026

—

wvi

035103

020040

026455

000040

020040

MERRPC: .ASC
.ASC
>

377

—

052105

N
N

052123

000040
051505
051117
047040

120

035122
035103
051523

.ASC

026455

.ASC

024040
024040
042377

007454

000005

007456

006

046504
046513
041515

003

024503
024503
030461

DMCM:
KMCM:
Slgsgz

.ASC
.ASC
.ASC
.ASC

.ASC
.ASC
LASC

XSTATQ: §

Bt By B

SWMES:
SWMES1:
CONERR:
CNERR:

051127
20077
041515
2520

g b

007320
007330
007340

5141%
05350
042377
054105

007215
007223
007277

377
116
377
377

By B

g Bt B

006374

047514

MERR2:

MERR3:
MTSTPC:

006263

052523
052123

042504

MCSRX:
.ASC
MVECX:
.ASC
MPASSX: .ASC
MERRX:
.ASC
MTSTN:
.ASC
MASTEK: .ASC
MNEW:
<ASC

—y

006217

047111
042524

g b

020117

377
377

MPFAIL: .ASC
MEPASS: .ASC
MR:
.ASC

047377

020122
020104

.ASC
.ASC

b bg bg b

005760

006005
006031

053520
047105
000122

MQM:
MCRLF:

000077
000

BYTE

SEQ 0036

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_IBUS* REG11
;1S PGM CLOCK BIT CLEAR?
:BR IF YES

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
#2 ,aDMPO4
2%
TEMP

By B

020040
005015

377
377
377

BNE

RTI

005666
005672

005675
005733
005755

BIT
BNE
DEC

NN N v S N N

—_

v W N

e N N S

e e N N N W o S N N W N

N N N N N N N N N N N N N N N

;B’\AAAAAAAAt\flAAAAAF\F\’\AAAAAAAAAAAAAAAAAAAA

173536

g B

000002

001361

021364

g B

005664

005662

000002

#2,aDMPO4
1%

ROMCLK

s NI NININININ N ININ N PN N N N NN

}

2%:

104414

021364

BIT
BEQ

g Bg by b

032777
001372
005337

173552

005646
005654
005656

ROMCLK
021364

1775
1776
1

1774

1%:
000002

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

bt Bt by B g B

032777
001772

PAGE 36

NNININNININN NN N NN N N N N N N S

104414
021364

005632
005640
005642
005642

N33

1770
1771
1772
1773

005626

00
0056

1767

1768
1769

11-SEP-78 12:38

12:45

CZDMEC.PIN

_11-SEP-78

QOO

CZDME

;PORT4 _IBUS* REG11

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

;BR IF NOT DONE

:RETURN

2/
<15><12>

<377>/PWR FAILED. RESTART AT TEST /
<377>/END PASS CZDME /
<377>/R/
<377>/NO DEVICES PRESENT./

<377>/INSUFFICIENT DATA!/
<377>/TEST PC=/

<377>/L0CK ON SELECTED TEST/

/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /
/TEST NO: /
/~/
<377>/SET SWITCH REG TO DMC11°'S DESIRED ACTIVE./

/PC: /

<§12>/

<377>/
<§17>/

<377>/

MAP OF DMC11 STATUS/

CSR

STAT1

STAT2

STAT3/

<377>/HOW MANY DMC11°'S TO BE TESTED?/

<377>/CSR ADDRESS?/

<377>/VECTOR ADDRESS?/
<377>/BR PRIORITY LEVEL?

(4.5.6.7)2/

<377>/1F DMC HAS CRAM (M8204) ‘TYPE '*Y'',

IF CROM (M8200) TYPE 'N'* 7/

<377>/WHICH LINE UNIT? IF NONE TYPE ‘N, IF M8201 TYPE '1'°, IF M8202 TYP
<377>/SWITCH PACHT (DDCMP LINE #)2/
<377>/SW17CH PACH2 (BM873 BOOT ADD)?/
<377>/1S THE LOOP BACK CONNECTOR ON?/
<377>/NO DEVICES ARE SELECTED/

<377><12>/SWR= /
/h;w? /
<377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS
<377>/EXPECTED FOUND/

PC: /

/ (DMC) /
/ (KMC) /
<377>/DMC11-AR(REMOTE
,LOW SPEED) OR DMC11-AL (LOCAL ,HIGH SPEED) TYPE 'R'’

6,%

gg
b8 3

)

P RN NS SR LD S & 3

CZDME
MACYN 30A(1052)
11-SEP-78
CZNEC P11
11-SEP-78 12:38

003

6.3

003

6.3

003

6.3

) D

002

) D

)

.EVEN

.BYTE
TEMPS

SEQ 0037

6.2

;BUFFERS FOR INPUT-QUTPUT

000000
007606

INBUF:

MDATA-

=,+40

)

12:45 PAGE 37
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

)

sROUTINE USED TO CHANGE SOF TWARE SWITCH

022737

CKSWR:

177777
000007

003734

000207

171336

171346

177777

007205

007215
010020
000015

CKSWRS

#7 ,aTKDBR
1%
#207 ,aTKDBR
1%:

177777

#SWREG, SWR

aTKCSR

WN=O

388

D
) e
e

VNN

SERRR 8

001202

171362

D
D cod
s

e ad s

) D

00 00 00 0o 00 0o 00 00 00 0O

000176

D e

sREGISTER USING THE CONSOLE TERMINAL

010016

CKSWRS

CKSWR2:

CKSWR3:

CKSWRS:

WAS CTRL G TYPED?
BR IF Y

:gas CTRL G TYPED? (8 BIT ASCID)

z-i SWFLG
#-1,R4

. SWMES

,SWMES1

PC, INCHAR

:SET SOFT TYPE QUT FLAG
sCLEAR NEW SWR CONTENTS
SE;EFLQG
TO, ALL ONES
sTYPE OUT PRESENT CONTENTS

:OF SOFT SUITCH REGISTER

:TYPE °'NEW?
:GET RESPONSE

#15.R3

:WAS IT A (R?

000025

#25,R3

sWAS IT A LF?
:BR IF YES
sWAS IT CTRL U?

000007

#7.R3
CKSWR4
R4
#;77770.R3

000012

177770

(7 BIT ASCII)

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

CKSWR1:

IF DONE SET, SET FLAG

5%
#12 ,R3
4

CKSWR1

R2
R3 R2

:BR IF YES

:BR IF YES(START OVER)

:IF CNTL G GET NEXT CHAR

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

sADD LAST DIGIT

CZDOME

MACY11 30A(1052)

CZDMEC.P1T

11-SEP-78 12:38

1840
1841
184%
1843
1844
1845
1846
1847
1848
}glosg

007762
007764
007772
007774
007776
010002
010006
010070
010012
010014

752
012766
005704
100;
010277
005037
012604
012603
012602
000207

}gg}

010016

000000

1853

010020

105777

1854
1855
1856
1857
1858
1859

010024
010026
010032
010036
010040
010044

100375
017703
105777
100375
010377
042703

1862

010052

000001

1864

010056

000176

;lgg?

1863

010050

010054

_11-SEP-78

000207

006

002002
171200
010016

m3
12:45 PAGE 38
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000006

BR
MOV
TST
BNE
MOV
6%:
CLR
MOV
MOV
MOV
CKSWRS: RTS
4%:
5%:

SWFLG:
171160

INCHAR:

171154
171152
171146
000200

002

TSTB

BPL
MOV
TSTB
BPL
MoV
BIC
1

.BYTE

SWREG

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

sRETURN

RTS

SOFTSW:

CKSWR4

:.START.é(SP)

ATKCSR
-4

JTKDBR,R3

aTPCSR
=4
R3,aTPDBR

#i77,R3

6.2

SEQ 0038

CZDME
MACY11 30A(1052) 21;§SEP-78
CZDMEC.P1T
11-SEP-78

1890
1891

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

*THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
THIS ROUTINE *MUST+
sJAND RUNS THE SPECIFIED DMC11°S.
;BE_RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
sSETUP NECESSARY.
010060
010064
010066
010072
010074
010076
010100
010104
010110
010116
010124
010132
010134
010142
010150
010156

005737
001004
104402
000000
000776
000241
006137
005537
062737
062737
022737
1
012737
012737
033737
001747

001306

001316
001316

CLC
ROL
ADC

I-2
RlN

:STOP THE SHOW.
sDISQUALIFY CONT. SW.
;CLEAR PROC. CARRY BIT.
;UPDATE POINTER
:CATCH CARRY FROM RUN

001500
001702
001316

001320
001322
001306

MOV
MOV
BIT

#DM.MAP
, CREAM
#CNT .MAP MILK
?W.DHACTV

001374
001376
001376

1917
1918
1919
1920

1$:

CMP

013737
060037
013737

1913
1914
}g}g

NOACT

sARE ANY DMC11°'S TO BE TESTED?
:BR IF OK.
sNO DMC11*'S SELECTED!!

;UPDATE POINTER
;UPDATE ADDRESS POINTER.
zgfl-MAP+200, CREAM

010306
010314
010320

060037

TYPE

HALT

ADD
ADD

1910
1911
1912

010302

DMACTV

001322
001320
001320

001410
001410
001412
001412

012037
011037
042737
012037
012037
012037
012237
012237
012700
013737
005237
013737

TST

BNE

000010
001700

005237
013737
060037
013737

013700
013702

CYCLE:

007154

1904
1905
1906
1907

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

010160
010164
010170
010174
010200
010206
010212
010216
010222
010226
010232
010236
010244
010250
010256
010262
010270
010274

1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903

PAGE 39

—

1865
866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889

12:45

2%:

xt. MILK
#10, CREAM

001320
001322

001404
001374
177000
1
001370
001372
001230
001232
2
001404
001406
001406

001414

;KEEP GOING; NOT ALL TESTED FOR.
:RESET ADDRESS POINTER.,
sRESET PASS COUNT POINTER

:1S THIS ONE ACTIVE?
:BR_IF NO
;GET ADDRESS POINTER
:GET PASS COUNT POINTER

:LOAD SYSTEM CTRL. REG
;LOAD VECTOR

001374

MOV

(RO)+,STAT

001406

MOV
MOV
MOV
MOV
MOV

(RQ)+,STAT3
(R2)
+ ,PASCNT
(R2)
+ ,ERRCNT
#2 RO
DMCSR, DMCSRH

001410

MOV

DMCSRH,DMCTL

001412

MOV
ADD
MOV
ADD

MOV

INC

001414

(RO)+,STAT2

sCLEAR UNMWANTED BITS

;LOAD STAT1
:LOAD STAT?

;LOAD STAT3

;LOAD PASS COUNT
:LOAD ERROR COUNT

;SAVE CORE THIS WAY!

DMCSRH

DMCTL

DMCTL ,DMPO4
RO, DMPO4
DMPO4,DMPO6
RO, DMP06

001376

MOV

001400

MOV
ADD
MOV
ADD

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

BIT

#SW01,STRTSW
7%

:ég }ESLONO

TSTY

JRUNNING IN AUTO MODE?

010326
010332
010340

060037
013737
060037

001400
001400
001402

001402

010344
010352
010354
010354

032737
001450

000002

001236

005737

000042

ADD

4%:

DMRVEC, DMRL VL

RO,DMRLVL

sPTY LVL

::T)( VEC
::TX LvL

SELECTED

SEQ 0039

PSS

CZDME
MACY11 30A(105 )121;§SEP-78
CZOMEC.P
11-SEP1921
19 §

1926
1925
1926
1927

1928
1929
1930
1931
19
1933
1934
1935
1936
1937

SRR R R R R R 0RO RO RRRRRRRRRPY

1938

0
1
2
3

9
0

‘]g

010360
010362

010

010370
010372
010374
010376

010400
01040
01040
010404
010410
010412
010414
010416
0104246
0104%2

0104
010436
010442
010446
010454

010456
010460

001045
104402
10440

001226
000
001
012700

022710
012737
001020
023760
001014
022760

001010
010037

000002

001226

000004

001214
005755

026034

010474
010502

012737
013701

000177

5%:

001226

020027

000730

BYTE
.BYTE

012320

000002

005720

7$
.MCRLF

MTSTN
PARAM
1
1000

104402
042737
000412

001351
104402

010506

BNE
TYPE
INSTR

005672

006130
104405
000001
001000

010464
010466

010472

B 4

12:45 PAGE 40
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

CMP
MOV
BNE
CMP
BNE
CMP

#TST1,RO
(PC)+, (RO)
(PC)+,a(PC)+
63
TSTNO,2(RO)
63
#TSTNO, 4 (RO)

TYPE
BIC
BR

MR
#SWO1,STRTSW
8%

BNE
MOV

001236

6%:

TST

001214

170502

7%:
8%:

6%
RO,RETURN

sGET TEST NO.

sCMP FIRST WORD TO 12737

;BR_IF NOT SAME
;DOES TSTNO MATCH?
:BR IF NO
:1S LAST WORD OK?

:BR IF NO
sIT IS A LEGAL TEST SO DO IT

(RO)+

:POP_RO

5%
.MQM

:BR _IF NO
sYES ILLEGAL TEST NO.

MOV
MoV

#TST1,RETURN
DMCSR,R1
IRETURN

;PREPARE RETURN ADDRESS
sR1 = BASE DMC11 ADDRESS
;GO START TESTING.

CMP

BNE
TYPE

005666
012320
001404

TSTNO
O
1
MOV

;BR IF YES

JMP

RO, #TLAST+10

;AT END YET?

:TRY AGAIN

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

5
6

:CSR_AND VECTOR.
sNOTE:
THE CSR MAY BE ANY WHERE IN THE FLOATING

8
9

:
:

969
970
971

1972
1973
1974
1975
1976

010512
010512
010514
010520
010522
010526

010530
010534

010540
010544
010552
010554
010560
010566

010570

000005
012702
005022
022702
001374
005037
012702
005037
032737

00100;
000137
012737
104403
006450

AUTO.SIZE:
RESET
CSRMAP: MOV
1%:
CLR
CMP
BNE

001500
001700

001310
001500

001306
000001

001236

011252
000001

001256

CLR
MOV
CLR
BIT

BNE
JMP
MOV
INSTR

ADDRESS RANGE

(160000:164000)

AND THE VECTOR MAY BE ANY WHERE IN THE
FLOATING VECTOR RANGE (300:770)

#DM.MAP ,R2
(R2) +
#DM.END ,R2
1$

DMNUM
#DI4.MAP ,R2
DMACTV
#SW00,STRTSW
. +6
’$
#1,TEMPS

s INSURE A BUS INIT.
;LOAD MAP POINTER.
:ZERO ENTIRE MAP
sALL DONE?
sBR_IF NO
sSET OCTAL NUMBER OF DMC11'S TO O
;R2 POINTS TO DMC MAP
sCLEAR ACTIVE
sQUESTIONS?

:BR IF YES
sIF NO SKIP QUESTIONS
sSTART WITH 1

SEQ 0040

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

010572
010574
010576

981

010602
010603
010604
010612
010616
010620
010622
010626
0106
010632

b
i
i
b
b
i
b
b

els . RNTe NV, FXWIT,N)

2025

010600

KEKK

gz AAGA TS

29229222992

S5sCEEEEEEREE e e SFERERRRRELE
LT CEEE

1980

010665

104405

013737
104402
104410

012002
005237

104403
006510

¢4

?ARAH

000001
000020
001252

16.

TEMP3

1977
1978
1979

12:45 PAGE &
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

001252
005672

.BYTE
MOv
TYPE
CONVRT
WHICH
INC
INSTR
CSR

001310

001256

104405
160000
164000

TEMP3
, DMNUM
RLF
+MC
TEMPS

sDMNUM = HOW MANY
sTYPE WHICH DMC IS BEING DONE

;TEMPS IS WHICH DMC

PARAM

160000
164000

001254
000

TEMP4

001254

.BYTE

MOV

TEMP4, (R2) +

INSTR

;STORE CSR IN MAP

VEC

PARAM

001254

10%:

TEMP4, (R2)

012266
000024

PC,INTTY
#24 ,R3

000027

#27 ,R3

000011

#11,R4

000116

508

;BR IF GREATER THAN 7
;R4 = NUMBER OF SHIFTS
sSHIFT R3 LEFT
sDEC SHIFT COUNT
:BR IF NOT DONE
sBIC UNWANTED BITS
;PUT BR LEVEL IN STATUS MAP
s CONTINUE

R3, (R2)

8%:

012266
000131

*BR IF LESS THAN 4

R&
.=4
#170777 ,R3

50%:

sASK WHAT BR LEVEL
;GET RESPONSE

508

170777

;STORE VECTOR IN MAP

108
PC,INTTY

#1%1,R3
9%

#116,R3
408

sRESPONSE IS OUT OF LIMITS
:TRY AGAIN

;DOES DMC HAVE CRAM?
sGET REPLY

JYES
sNO
JNOT

AYORN

.ASK AGAIN

SEQ 0041

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

2033
2034
2035
2036
2037
2038
<039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
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
011004
011010
011014
011016
011022
011024
011026
011030
011032
011040
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
5
763
052762
02
052712
104402
006704
004737
022703
001417
022703
001412
022703
001403
104402
005666
000760
052722
022222
47
052712
104402
007114
737
022703
1406
022703
001406
104402
005666
000763
052722
000402
042722

D 4
12:45 PAGE 42
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)
40%:

012266
000122

100000

PC,INTTY

#122,R3

16%
#114 ,R3
418

000114

000002

TYPE

SPEED
JSR

000004

sDMC11=-AR OR DMC11-AL?
E
:GET RE
;IS ITR
:BR IF REMOTE
JIS IT L
;BR IF LOCAL

41%:

40%
#BIT1,4(R2)

;TRY AGAIN

9%:

#BIT1S, (R2)

:SET BIT 15 IF CRAM

16%:

012266
000021

16$

PC,INTTY

#21,R3

30%
#22 ,R3
31

000022
000116

:SET BIT1 IN STAT3

- CONT INUE

:ASK WHICH LINE UNIT
:GET, REPLY

:l?'l

#116,R3

:INII

16%

:TRY AGIAN

32%

010000

32%:

020000

31%:

;IF NOT A 1,2 OR N TYPE "7**

#BIT12,(R2)+
(R2)+,(R2)+
33%
#BIT13, (R2)

;SET BIT 13 IN STAT2 IF mM8202

PC,INTTY

sASK IF LOOP-BACK IS ON
:$ET REPLY

000116

17%
#116,R3
18%

040000

308
#BIT14,(R2)+

012266
000131

040000

#151,R3

19%
#MBIT14,(R2)+

;SET BIT 12 IN_STAT2 IF NO LU
;POP OVER STAT2 AND STAT3

:IF NOT Y OR N TYPE '""'

:TRY AGAIN

2 TURNAROUND IS CONNECTED

sNO TURNAROUND

104403
007016
104405
000377
001254

001
113722
104403
007054
104405

001254

TEMP4, (R2) +

:STORE SWITCH PAC IN MAP

SEQ 0042

CZDME

MACY11 30A(1052)

CZDMEC.P11

11-SEP-78 12:38

2089
2090
2091
2092
2093
2094
2095
2096

011220
011222
011224
011225
011226
011232
011234
011240

000377
001254
000
001
113722
005722
005337
001402

2098
2099
2100

011246
011252
011256

000137
012701
012737

2102
2103
2104
2105
2106
2107
2108
2109
2110

011266
011270
011272
011276
011302
011304
011310
011314
011322

005711
001172
005061
005761
001165
012711
005061
012761
052711

2112
2113

01133
011336

001004
052762

2097 011242 000137
2101

2111

2114

011264

011326

011344

005011

022761

000431

2115

011346

012711

2120
2121
2122
2123
21246
2125
2126
2127

011376
011400
011406
011410
011416
011420
011422

001411
022761
001410
022761
001404
000516
052762

011430
011432

010122
012711

2116
2117
2118
2119

2128
2129

2130
2131
2132

2133
2134

2135

011352
011360
011364
011370

011436
011442
011450

011454

011462

011466

012761
012711
012711
022761

001252
011702
160000
011774

002000
000004
125252
020000

001003

2138

011502

000436

000004

100000

000002

001000

100430
001400
002000
016472

000006

016461

000006

177777

000006

000002

000006

000377

000004

2139
2140

011504
011512

032761
001403

000002

2142

011520

000427

2143
2144

011522
011530

000006

052712

060000

032761
001023

000010

000004

;STORE SWITCH PAC IN MAP
;POP OVER STAT3
*DEC DMC COUNT
*BR IF DONE

JMP
MOV
MOV

138
#160000,R1
#6S , kG

* CONT INUE
*SET FOR FIRST ADDRESS TO BE TESTED
*SET FOR NON-EXISTANT DEVICE TIME OUT

ST
BNE
CLR
ST
BNE
MOV
CLR
MOV
BIS

(R1)
33
6(R1)
6(R1)
3s
aexr1o (R1)
4(R
#125’52 6(21)
#MIT13, (R1)

*IF DMC11 DMCSR S/B 0
sIF 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 SEL4
-WRITE THIS TO SEL6
SWRITE IT

BNE
BIS

218
#BIT15,2(R2)

“IF NO IT IS NOT CRAM
:SET BIT1S IF CRAM

#MIT9,(R1)

;SET ROMI

IJMP
CLR

21%:

B8R

MOV

MOV
MOV
MOV
CMP

128

(R1)

0125252 4(R1)

22%

#100450,6(R1)
lBIT9'BIT8 (R1)
#1710, (R1)
#016472,6(R1)

*JUMP IF NOT
:CLEAR SELO

:WAS IT uaxrrs~7

*PUT INSTRUCTION IN SEL6
;CLOCK INSTRUCTION (MICRO PROC PC TO 0)
*SET ROMO
:1S IT LOCAL CROM?

BEQ
23s
‘BR IF YES
P
#016461,6(R1)
IS IT REMOTE CROM?
BEQ
22%
*BR IF YES
CMP
#-1,6(R1)
JNO CROM?
BEQ
22%
:BR IF YE
BR
3s
*NOT A DMC
23%:
BIS
#BIT1,6(R2)
“SET BIT 1 IN STAT3
‘AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS.

MOV
MOV

R1, (R2)+
#IT19, (R1)

MOV

#021264 6(R1)

CLR
MOV
BIS
BIS

CMPR

BNE

;STORE CSR IN CORE TABLE.
:CLEAR LINE unxr LOOP

4(R1)
4122113 6(R1)
178, (R1)

*CLEAR PORT4
:LOAD INSTRUCTION (CLR DTR)
*CLOCK INSTRUCTION

#BIT8, (R1)

*CLOCK INSTRUCTION

0377 4(R1)

+10

:LOAD INSTRUCTION

“IS IT ALL ONES?

*BR IF NO

8IS

#BiT12,(R2)

BIT
BEQ

#BIT1,4(R1)
+10

;1S suxrcu A ONE?
‘BRIF M8201

208

;CONNECTOR ON)

B8R

8IS

000004

377
TEMPS
BYTE
0
BYTE
1
MOVB TEMP4, (R2)+
TST
(R2)+
DEC
TEMP3
BEQ
348

cMP

22%:
158:

02126«

010000

011514

000006

001000

011476 -052712

2141

28:

000006

125252

000400

011474

34$:
7%:

000006
000006

052711

122761

000004

PAGE 43

GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

338:

010612

000004
122113
000400

012761

12:45

001254

005061
012761
052711

2136

2137

_11-SEP-78

B8R

BIT
BNE

208

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

#BIT13!81T14, (R2) :MB202 ASSUME CONNECTOR
#27T3.4(R1)
208

*IS MRDY SET
*BR IF M8201 NO CONNECTOR (ON L INE)

SEQ 0043

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

2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189

2190
2191

2192
2193
2194
2195
2196
2197
2198
2199
2200

011532
011540
011546
011552
011560
011564
011572
011574
011600
011602
011610
011614
011620
011626
011632
011636
011640
011642
011646
011654
011656
011660
011664
011670
011674
011676
011702
011706
011712
011714
011720
011724
011726
011732
011736
011740
011742
011750
011756
011762
011766
011770
011772
011774
012000

012761

012002
012004
012006

000001
002
001256

012010
012016
012020
012026
012034
01204C

032737
001114
012737
012737
012702
012700

000100
122113
000400
021264
000400
000010

F 4
12:45 PAGE 44
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

000004
000006
000006
000004

040000
021324
001400
000004
021344
001400
000004

001310
000020

000006

BEQ

20%:

000006

BIS
TST
MOV
MOV
BISB
MOV
MOV
BISB

#BIT6,4(R1)

w122113 6(R1)

#BIT8,(

#021264 6(R1)
#BIT8, (R1)

ae;rs"4(R1)
2
085714.(R2)

#021324 ,6(R1)

3%:

INC
CMP
BEQ
CLR

14%:

ADD

164000

011264
001306
001310

13%:

001310
001314

4%:

001306
001306

5%:

6%:
WHICH:

002

CMP
BEQ
JMP
CLR

;IS MRDY SET NOW
:BR_IF NO CMCTM
sSET STATUS BIT FOR CONNECTOR
:POP POINTER
:PUT_INSTRUCTION IN PORT6

PORT6 INSTRUCTION

sCLOCKTM INSTR.

$
(R1)
6(R1)
#1),R1
#124000.R1

TST

:STORE BM873 ADD IN TABLE
:POP OVER STAT3
:CLEAR ROMI
sUPDATE DEVICE COUNTER
sARE MAX. NO. OF DEV FOUND?
sYES DON'T LOOK FOR ANY MORE.
;CLEAR BIT 10
:CLEAR SEL 6
;UPDATE CSR POINTER ADDRESS
:BR IF DONE
;JUMP IF NOT

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

BEQ
MOV
MOV

:SAVE NUMBER OF DEVICES

ROL
INC

sGENERATE ACTIVE REGISTER OF DEVICES.
;SET THE BIT

CLC

DEC
BNE

000004
001372

011664

CLR

.+ CLOCK INSTRUCTION(READ MODEM REG>

;STORETMDDCMP LINE # IN TABLE

CLR

001310

:LOAD PORT4

:LOAD INSTRUCTION
. CLOCK INSTRUCTION(SET DTR)
:LOAD INSTRUCTION

0?1T9‘BIT8 (R1) :PORT4_LU 15

000010

000006
001306
012010
005760

MOV
MOV
BIS
MOV
BIS
BIT

MOV
MOV
JMP
TYPE
CLR

MOV

#14%, (SP)

HALT
BR
RTI

.BYTE

TEMPS

000001

001236

VECMAP: g&g

000340
012202
001500
000300

000022
000020

MOV
MOV
MOV
MOV

6,44
DMACTV, SAVACT
VECMAP

MERRZ2
1

:BR IF MORE TO GENERATE
sRESTORE TRAP VECTOR
sSAVE ACTIVE REGISTER
;GO FIND THE VECTOR NOW.

sNOTIFY OPR THAT NO DMC11'S FOUND.

sMAKE DATA LIGHTS ZERO
;STOP THE SHOW
;DISABLE CONT. SW.
;ENTERED BY NON-EXISTANT TIME-OUT.
JRETURN TO MAINSTREAM

2.2
#SW00,STRTSW

l300 RO

sSET IOT TRAP PRIO TO 7
sSET IOT TRAP VECTOR
+SET SOF TWARE POINTER

;FLOATING VECTORS START HERE.

SEQ 0044

CZDME

MACY'1 30A(1052)

CZDMEC.P
2201
2202
2203

_11-SEP-78

11-SEP-78 12:38

012044
012050
012052

012701
010120
012721

000302

012060

020127

001000

2207 012066 013737

001306

001246

000012
012252

177776

000200

000004

2204

012056 022021

2206

012064

2208
2209
2210
2211
2212
2213

012074
012100
012102
012106
012114
012116

2205

2214
2215

012124
012130

101771

006037
103063
012704
016437
011201
012761

012711
012761

001000
121111

2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227

012136
012142
012144
012146
012152
012154
012162
012164
012172
012174
012200
012202

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

2230
2231
2232
2233
2234
2235
2236
2237
2238
5523

012214
012220
012222
012224
012226
012230
012234
012240
012242
012246
012250

016405
006305
006305
006305
006305
042705
050562
022626
012716
000002
000207

2241
2242
2243
2264
2245
2246

012252
012254
012256
012260
012262
012264

000000
000000
000200
000240
000300
000340

2249
2250
2251
2252

012266
012272
012274
012300

105777
100375
017703
105777

166712

225
2255
2256

012306
012312
012316

010377
042703
000207

166700
000240

2228

2253

012206

012304

042762

100375

1%:

000004

001246

001400

005300

000002

000010

R1,#1000

MOV

DMACTV, TEMP1

MOV
MOV

#BIT9, (R1)
#121111,6(R1)

000002

(ROI+, (R1)+

:PC OF IOT INSTR.
:START FILLING VECTOR AREA
‘WITH .+2; IOT

*ADD 2 TO RO +R1

:BR IF MORE TO FILL

TEMP1
5$
#12.R4
BRLVL(R4),PS
(R2) ,R1
#2004 (R1)

*BRING OUT A BIT
*BR IF ALL DONE
‘R4 IS INDEX REGISTER
:SET PS TO 7

4%:

MOV
IN(B
BNE
SUB
BEQ
MOV
BR
BIS
CLR
ADD
BR
BIS

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

:FORCE AN INTERRUPT
SSTALL
*FOR 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

BRLVL+2(R4)
,RS
RS
RS
RS
RS
#170777 .RS
RS,2(R2)
(SP)+,(SP)+
#33, (SP)

:GET BR LEVEL OF DMC11
“SHIFT LEVEL 4 PLACES
“TO THE LEFT FOR THE
*STATUS TABLE
;CLEAR UNWANTED BITS
:PUT BR LEVEL IN STATUS TABLE
;POP IOT JUNK OFF STACK
*SET FOR RETURN

MOV
ASL
ASL
ASL
ASL
BIC
BIS
CMP
MOV
RT]
RTS

:ALL DONE WITH "‘AUTO SIZING''

BRLVL:

0
0
200
240
300
240

;LEVEL
SLEVEL
‘LEVEL
‘LEVEL
‘LEVEL
SLEVEL

INTTY:

TSTB
8PL
MOV
TSTB
BPL
MOV
BIC
RTS

@TKCSR
“oll
aTKDBR,R3
aTPCSR

:WAIT FOR DONE

R3,3TPDBR
#2TT7'BITS,R3
P(

;ECHO CHAR
:MASK OFF LOWER CASE
“RETURN

2%:

6%:
38

170777
000002

012172

166706
166704

cMP

SEQ 0045

’$:

177776

012254

#302,R1
R1, (RO)+
#6° (R1)+

BLOS

000006

012252

000007

MOV
MOV
MOV

cTMMP

000002

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

ROR
BCC
MOV
MOV
MOV
MOV

BIC

#7.,2(R2)

*STORE TEMPORALLY

:SET ROMI
*PUT INSTRUCTION IN PORT6

*CLEAR JUNK

0
0
4
S
6
7

:PUT CHAR IN R3
JWAIT UNTIL PRINTER IS READY

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

H &
12:45 PAGE 46
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

SEQ 0046

2257
2258
%259
2261

JRRARARRNANARARRRRRRRNAAARAN

2262
2263
2264

]

At a et aa v

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

2265

2266

52225

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

TEST

;
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

167044
000011

001226
001216

TST1:

000004
000054
000020

1%:

2284

A AR AR AR AR AN RN AR AR AR RN AR AR AR

av A

MOV
MOV

#1,TSTNO
#TST2 NEXT

CLR
aDMCSR
MOV
#11,R2
ROMCLK
021004 !<20*11>
MOV
4(R1) R4
BIC
#54 R4
MOV
#20 ,R5
(MPB
RS R4
BEQ
1%
HLT
2
SCOPE

2287

.*D0O A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

2289

IR AR AR AR AR AR AR R AR AR AR AR AR AR AR AR RRRAARRARRR R

2293
2294

012374
(012402

012737
012737

000002
012442

2296
2297
2298
2299
2300
2301
2302
2303
2304
S%

012410
012414
012416
012420
012424
012430
012432
012434
012436
012440

012702
104414
021244
016104
042704
005005
120504
001401
104002
104400

000012

2295

2307

[EST

AAN o r

;*BITS ARE IN THE CORRECT STATE
;.
001226
001276

TST2:

000004
000017

1%:

MOV
MOV

#2,TSTNO
#TST3 _NEXT

MOV
#12,R2
ROMCLK
021004 ! <20*12>
MOV
4(R1) ,R4
BIC
#17 ,R4
(LR
RS
CMPB
R5.R4
BEQ
1%
HLT
2
SCOPE

A A kAR AR AR

AR RRRR AR

sR1 CONTAINS BASE DMC11 ADDRESS

;SAVE R2 FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4_LINE UNIT REG 12
PUT "FOUND'' IN R4
CLEAR UNKNOWN BITS
PUT "EXPECTED'' IN RS
JARE ALL BITS CLEARED?
:BR IF YES
JERROR IN LU 12
JSCOPE THIS TEST

IRRRRRARRARRRARARARAANRANRNRE

2310
2311

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

2312

TEST 2

2308

2309

RAS

;sR1 CONTAINS BASE DMC11 ADDRESS
;CLEAR SELO
sSAVE R2 FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
Poml. LINE UNIT REG 11
*PUT "FOUND'' IN R&
;CLEAR UNKNOWN BITS
*PUT "EXPECTED'' IN RS
;1S OUT READY SET?
:BR IF YES
JERROR IN LU N
;SCOPE THIS TEST

;*IN CONTROL REGISTER READ/ONLY TEST

2290
gg}

tnn

TEST 1

IRARRRRRARRRRRARARNRANAAARAR

2288

vt A

RARRRRARRA AR

2285

2286

vt A

JEST

annannnnnnnennnnmanewnnnnnn

:*MODEM CONTROL REGISTER READ/ONLY TEST

AR AR AN

R R AR

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

R RN R AN R RN

11-SEP-78
CZOME
MACYN 30A(1052)
CZDMEC.PN
11-SEP-78 12:3 8

12:45
PAGE 47
LINE UNIT READ/ONLY TESTS

4
oo~

b
il

AS 1,V
—nN)

012456

012450

012442

_—

5
6

TST3:

1B 3

MOV

#3,TSTNO

MOV

#TST4L NEXT

MSTCLR

MOV

ROMCLK

:SAVE R2 FOR TYPEOUT
:NEXT WORD IS INSTRUCTIW ROMCLK PC=5304

MOV

4(R1) ,R4

MOV

#100,RS

BEQ

BIC

#213,R4

(MP8

HLT
SCOPE

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER _CLEAR DMC11

#13,R2

021004 !'<20*13>

012512

SEQ 0047

R5,R4

PCRM LINE UNIT REG 13
:PUT "FOUND'* IN R4
:CLE UNKNOWN BITS
sPUT "EXPECTED'' IN RS
sARE RING, DTR,

;BR IF YES
JERROR IN LU 13
;SCOPE THIS TEST

JRRRFRRRARRARARNRRNRRRRRRRNR

TEST

AND MODEM READY SET?

At aaa

A v kA A

Ak AN AR AR RN

s*MAINTENANCE REGISTER READ/ONLY TEST
:*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY
;*BITS ARE IN THE CORRECT STATE

s IR

nono
—N)
oo~

—_—

012737
012737

838

012514
012522

-2

2
TST4:

104412

AR AR AR A AR AR AR A RAR R AR

MOV
MOV

MOV

ROMCL

#TSTS NEXT

#17.R2

pp—

(elelelelelelelelelalelele]

S
Qs W
e T

3%:

;PUT "FOUND'' IN Rlo

MOV

#51
RS

:PUT "EXPECTED'' IN RS
;1S LU AN M8202 OR M8201?
*BR IF M8202
+CONNECTOR???
BR IF M8201 WITH CONNECTOR

1%:

#206,R4

BIT

#MIT13,STATI

BIT

MIT14,STATT

BIC
BIC

#40 R4
#MIT5,RS

(MPB

RS R4

HLT

BNE

BEQ

R
S

b
e
b

W
i

12%)

4(R1) R4

BNE
2%:

JR1 CONTAINS BASE DMC11 ADDRESS
sMASTER _CLEAR DMC11
;SAVE R2 FOR TYPEOUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LINE UNIT REG 17

MOV
BIC

001366

AR AR

#4 ,TSTNO

021004'<20t17>

001366

AN R AR ARARR R AR AR AR AR

TEST &

MSTCLR

012702

AR AR AR

SCOPE

2%
3s

;CLEAR UNKNOWN BITS

*MASK OFF SI BIT IF M8202 OR M8201, NO CONNECTOR
*SI BIT IS UNKNOWN

sARE SI AND ICIR SET?
:BR IF YES

;ERROR IN LU 17

;SCOPE THIS TEST

JRwnnknrnannnnnnnnnnnnwnnent

TEST

wnnnvnnnnennnnennnnnennnnnns

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

'CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR
IRRARARR.

AR AP AR AN A AR R AR RN AR AR A AR AR AR AR AR AR R

RN RN AR R AR

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

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

000005
012756
012646

000012

000040

001226
001216
001220

TSTS:

18:

SEQ 0048

WS S

MOV
MOV
MoV

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

MSTCLR

000004

MOV

MOV
ROMCLK

CONTAINS BASE DMC11 ADDRESS

;MASTER CLEAR DMC11

#12,R2

:SAVE REGISTER ADDRESS FOR TYPEOUT

#40,4(R1)

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

122112
CLK

021245

sR1

;SET BIT5 IN LU-12
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:READ LU-12 ~

000040

MOV

#40,R5

000337

BIC

#337 R4

;CLEAR

BEQ

:BR
IF YES

000005

012716
000004

MOVB
(MPB

001220

2%:

3%:

HLT

SCOP1
MOV
CLR

;PUT EXPECTED

S(R1).R4

RS.R&

;1S BITS

CLR

000005
000337

MOVB
8IC
(MPB
BEQ
4$:

HLT

SCOP1
SCOPE

TED BITS

SET?

;ERROR, BIT 5 IS NOT SET

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

#38,L.0CK
4(R1)

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

122112
ROMCLK

021245

IN RS

:PUT *FOUND'' IN R4

sCLEAR BIT 5 IN LU-12
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sREAD LU-12

;PUT "EXPECTED'' IN RS

5(R1) ,R4
#337 R4
R5.R4
4

;PUT "FOUND'' IN R4
sCLEAR UNMWANTED BITS
;1S BITS CLEAR?
;BR IF YES

sERROR, BIT5 IS NOT CLEAR

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

JARRRARNRARRRARARRRRRNRNRAAN

TEST

wnnnnnannnanannetntnentnnen

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

:*CLEAR BIT1 IN LU REGISTER 17, VERIFY IT IS CLEAR
; AR AR AR

VIS
NS =N

JESSEXIE

—R)
N —2

OO ===00=

_—

FNRNAR Y

OO0

NINN

-2

000006
013116
013006

000017
000001

000001

001226
001216
001220

TST6:

1%:

W &

MOV
MOV
MoV
MSTCLR

000004

R RN P AR AR AR R R R AR R AR AR

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

MOV

#17,R2

MOV

#1,RS

MOV
ROMCLK
122117
ROMCL K
021365

#1,4(R1)

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11

:SAVE REGISTER ADDRESS FOR TYPEQUT

;LOAD PORT4
Pf)(f WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BIT1 IN LU-17
INEXT WORD_IS INSTRUCTION, ROMCLK P(=5304
:READ LU=-17

JPUT "EXPECTED'" IN RS

CZDME

MACY11 30A(1052)

CZDMEC.P11

2625

3:.
427

2628

2429

2630
2631

013030

013034
013040

013042
013044

013046
013050

11-SEP-78 12:38

116104

042704
120504

104401
012737

013056
013062

005061
104414

2635
2636

013066
013070

104414
021365

26437
2438
2439
2640

013064

005005
116104
042704
120504

013110

104003

013106

2643
2444

013112
013114

26442

5048

MOVB

000376

BIC
(MPB

000004

001220

28:
3$:

BEQ
HLT

SCOP1
MOV

CLR
ROMCLK

S(R1),Ré4

#376 R4
R5,Ré

28
3

#3$,LOCK
4(RT)

122117

ROMCLK
021365

000005
000376

001401

48:

RS
S(R1),Ré4
#376 R4
RS5,R&

HLT

SCOP1
SCOPE

SEQ 0049

;PUT 'FOUND'' IN R4

;CLEAR UNWANTED BITS
;1S BIT1 SET?

:BR IF YES

:ERROR, BIT 1 IS NOT SET

:SCOPE SUBTEST (SW09=1)
:NEW SCOP1

;LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:CLEAR BIT 1 IN LU=17

CLR
MOVB
BIC
(MPB

BEQ

104401
104400

LINE UNIT WRITE/READ TESTS

000005

013056

PAGE 49

122117

013072
013076
013100
013106

2641

12:45

001401
104003

26432
2633
2634

_11-SEP-78

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:READ LU-17
:PUT 'EXPECTED'' IN RS
:PUT 'FOUND'' IN R4
:CLEAR UNWANTED BITS
;1S BIT1 CLEAR?

:BR IF YES

:ERROR, BIT1 IS NOT CLEAR

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

2447

JRRRRRRRRARRRANARANRARNRARAANE

2450

:*FLOAT A O THROUGH LINE UNIT REGISTER 13

2448
2449
2451

3 A s

2452
2453
2454
2455

013116

2458
2459

013126
013132

012737
012737

013140

104412

2456
2457

2460
2661

012737

013326
013152

013142
013146

012702
012700

000013
000001

26463

013152

010061

000004

2465

013164

104414

2462

2664
2666

2467

2668

2469

013152

013156
013166

013170
013172

013174

042761

010005

2672

013206

042704

013214

001401

013212

2475
2476
2677
2478

013216
013220
013222
013224

2474

2479
2480

013226

013230

TST7:

AAn

e A

64$:

000004

116104

120504

012737

MOV
MOV
MOV

ROMCLK

#TST10, NEXT
#64$,L0CK
#13,R2
#1,R0
RO,4 (R1)

#257,4(R1)

122100!13

ROMCLK

21005 ' <13#20>

MOV

000005

013244

001220

A AR R AR AR RN

RO,RS

;R1 CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DMC11

;SAVE REGISTER ADDRESS FOR TYPEOUT
:START WITH BIT 0
;PUT PATTERN INTO PORT4
:CLEAR UNWANTED BITS

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:MOV DATA TO IBUS REGISTER 13

;NEXT WORD IS INSTRUCTION,

:READ FROM IBUS REGISTER 13

:PUT EXPECTED IN RS

#257.RS

:CLEAR UNWANTED BITS

BIC

#257 R4

:CLEAR UNWANTED BITS

BEQ

65$

(MPB

658:

2223323332333 2323232233222382%3

BIC

MOVB

000257

104003
104401
000241
106100

001351

MOV
MOV

BIC

000257

:
TEST 7
:
MOV
#7,TSTNO

MSTCLR

021265

042705

2473

001216
001220

104414

013176

013202

000257

001226

122113

470
471

TEST

;*LINE UNIT REGISTER WRITE/READ TEST
;*FLOAT A 1 THROUGH LINE UNIT REGISTER 13

S(R1),Ré4

RS,Ré

:DATA CORRECT?

‘BR IF YES

HLT
SCOP1
cLe
ROLB

*ERROR
:SW09=1?
:CLEAR CARRY
;SHIFT BIT IN RO

MOV

#67%,L0CK

*NEW SCOP1

BNE

:PUT "FOUND'' INTO R4

:1F RO=0 THEN DONE

ROMCLK PC=5304

CZDME
MACY1 30A(10;2)121}§SEP-78
CZDMEC.P11
11-SEP-78

26481

2682
2483

013236 012700 000001

013242
013244

005100

2484

013244

26486
2487
2488
2489
2490

013256 104414
013260 122113
013262 104414
013264 021265
013266 010005

26485

2491
2492

2493
2494

2495

2496
2497
2498
2499
2500

2501
2502

L
12:45 PAGE 50
LINE UNIT WRITE/READ TESTS

013250

013270
013274

013300

010061

042761

042705
116104

013304

042704
120504

013310
013312
013314
013316
013320

104003
104401
005100
000241
106100

013306

013322
013324

000004

000257

69%:
67%:

000004

000257
000005

000257

001401

MOV

#1.R0

COM

MOV

001347
104400

SEQ 0050

;START WITH BIT 0

*CHANGE TO FLOATING ZERO

RO,4(R1)

;PUT PATTERN INTO PORT4

BIC

#257.4(R1)

BIC
MOVB

#257 RS
S(R1J.Ré4

*CLEAR UNWANTED BITS

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

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

BIC
CMPB

#257 R4
RS.R&

“CLEAR UNWANTED BITS
*DATA CORRECT?

*ERROR
$SW09=1?
JCHANGE TO FLOATING 1
*CLEAR CARRY
“SHIFT BIT IN RO

BEQ
688:

HLT
SCOP1
coM
cLC
ROLB

BNE
SCOPE

68§
RO

698

*CLEAR UNWANTED BITS
*PUT "FOUND'* INTO Ré&

*BR IF YES

*IF RO=0 THEN DONE
*SCOPE THIS TEST

2505

JNRNARRANARAARARARRRRAARRRnnr

2507

“«FLOAT A 1 THROUGH LINE UNIT REGISTER 14

2509

;:tttt*ttttt'tttttttttttttttitttt.tttttttt.ttttttttttt'ttttttttt

2510

;

2513

013326

012737

2516
2517

013350

104412

013334
013342

012737
012737

013502
013362

2518 013352 012702
2519 013356 012700

000014
000001

2521

000004

013362

010061

2523 013370
2524 013372
2525 013374
2526 013376

122114
104414
021305
010005

2529 013406

001401

2522 013

2527
2528

013400
013406

2530
2531

013410
013412

2533

013416

2532

253
2535
2536

" AR RN

AR AR KRR AR AR AR AR AR R AR

;*«FLOAT A O THROUGH LINE UNIT REGISTER 14

gg;;

2520

;*LINE UNIT REGISTER WRITE/READ TEST

2508

2514
2515

TEST

104414

116104
120504

001226

001216
001220

000241

013420
013422
01330

001360
012737
012700

MoV

MOV
MOV

MSTCLR

648
:

000005

658:

106100

001220

#TST17 NEXT
#64$,L0CK

#14 ,R2
#1,R0

MOV

RO,4(R1)

;R1 CONTAINS BASE DMC11 ADDRESS
*MASTER CLEAR DMC11

“SAVE REGISTER ADDRESS FOR TYPEOUT
*START WITH BIT 0
:PUT PATTERN INTO PORT4

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

12210014
ROMCLK
21005 ' <14%20>
MOV
RO .RS

:MOV DATA TO IBUS REGISTER 14
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:READ FROM IBUS REGISTER 14
*PUT EXPECTED IN RS

BEQ

‘BR IF YES

MOVB
(MPB

S(K'),Ré4
RS,R4

HLT
SCOP1

CcLC

ROLB

013436
000001

#10,TSTNO

MOV
MOV

ROMCLK

104003
104401

013414

TST10:

TEST 10

BNE
MOV
MOV

655
RO

64%
#(7$,10CK
#1.RO

“PUT "FOUND"" INTO R4
*DATA CORRECT?

*ERROR
*SW09=1?

*CLEAR CARRY

“SHIFT BIT IN RO

*IF RO=0 THEN DONE
*NEW SCOP1
“START WITH BIT 0

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

2537
2538
2539
2540
2541
2542
3343
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569

013434
013436
013436
013442
013444
013446
013450
013452
013454
013460
013462
013464
013466
013470
01372
013474
013476
013500

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

005100
010061
104414
122114
104414
021305
010005
116104
120504
001401
104003
104407
005100
000241
106100
001356
104400

ggg:

000004

JCHANGE TO FLOATING ZERO

MOV

RO,4(R1)

;PUT PATTERN INTO PORT4

122100 14

21oos'<14-20>

novs

s<é1> R4

BEQ

68$

(MPB

68%:

RS R4

HLT
SCOP1
coMm

CLC
ROLB

BNE

SCOPE

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

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

:READ FROM IBUS REGISTER 14
:PUT EXPECTEP IN RS

:PUT "FOUND" INTO Ré4
sDATA CORRECT?

:BR 1r YES

:ERR
:SU09=1?
JCHANGE TO FLOATING 1

RO
69%

;IF RO=0 THEN DONE

;CLEAR CARRY
sSHIFT BIT IN RO
sSCOPE THIS TEST

JRRRRCARAANRCRRARRARRARANRAN

TEST

Anaan

vkt

A kAR

tSUITCH PAC TEST

tTHIS TEST READS SWITCH PAC#1
;tTHIS SWITCH PAC CONTAINS THE DDCMP LINE #
SRR AR

;
013502
013510

012737
012737

013516
013520

104412
104414

000011
013544

001226
001216

TST11:

013542

AR R

AR AR AR AR

MOV
MoV

#11,TSTNO
#TST12 NEXT

ROMCLK
021324
MOV
MOVB

CMPB

104400

1%:

AR R AR A AR

R AR AR AR AR AR AR RAARRAAANRCA AR AR AR

ST 1N

MSTCLR

000004
001370

2576

CoM
ROMCLK

000005

SEQ 0051

BEQ
HLT
SCOPE

;JR1T CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11

4(R1) ,R4
STATZ2,RS

R5.,R4
1%
3

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORT‘
LU
"FOUND'' IN R4
PUT "EXPECTED'' IN RS

S 0K?

‘BR IF YES
;ERROR, SWITCH PAC READ ERROR
;SCOPE THIS TEST

JRRRRRRRNRRRRRAARRRRARRANAARY

TEST

aaaaaa A vt AN

A kAR R R AR AR AR

s*SWITCH PAC TEST

;*THIS TEST READS SWITCH PACA#2

;*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD
IR

:
000012
013606

001226
001216

T1ST12:

RAR N R R R R R R AR R R R R R RN R R

R R AR RRA AR

AR RN

RRARR

AR AR AR

TESY 12

MOV
MOV
MSTCLR

ROMCLK
021344

#12,TSTNO
#TST13,NEXT

;R1 CONTAINS BASE DMC11 ADDRESS
MASTER CLEAR DMC11

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*PORT4_LU16

CZDME

MACY1 SOA(‘lOSZ)

CZDMEC.PI
93

594

2595
596
597
2598
2599

11-SEP-78 12:38

§S66

012 04

013576
013600
013602
013604

120504
001401
104031
104400

013572

11-SEP-78

113705

12:45

PAGE 52

LINE UNIT WRITE/READ TESTS

000004

001371

MOV

4(R1) R4

sPUT 'FOUND'' IN R4

(MP8
BEQ
HLT
SCOPE

RS5.,R4
1%
31

‘S
:BR IF YES
JERROR, SWITCH PAC READ ERROR
:SC(PE THIS TEST

MOVB

18:

SEQ 0052

STAT2+1,RS

*PUT EXPEUED

2601

JEARRRRANRARRAAAARANRAARNARNE

2604

;#(BIT 1 IN LU=17) IS WORKING

2602
2603

2606

22%

;

2609
2610

013606
013614

012737
012737

2612
222}{3.

013622
8}332%3

104412
005037

2615
2616
2617

013630
013632
013634

104414
021364
032761

2619
2620
2621
2622
2623
2624
2625

013644
013650
013652
013654
013660
013660
013662

005237
001367
104004
005037

2627
2628
2629
2630
2631
2632
2633

013672
013674
013700
013702
013704

2618

aannnnnnnovnannanannanetnen

s*LINE UNIT CLOCK TEST
s*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK

2605

2611

TEST

IN RS

013642

001004

000012
013706

001226
001216

001416

000002

7TST13:

000004

001416

2%:
3%:

104414
021

001404
005237
001367
104004
104400

MSTCLR
CLR

TEMP

JMASTER CLEAR DMC11
;PREPARE FOR DELAY

ROMCLK
021364
BIT

#2,4(R1)

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORM LU=17
;1S CLOCK BIT SET?

INC
BNE
HLT
CLR

TEMP
1%
4
TEMP

BEQ
INC
BNE
HLT
SCOPE

4%:

;R1 CONTAINS BASE DMC11 ADDRESS

:BR IFYES

sDELA
sDELAY F INISHED?
JERROR BIT IS STUCK CLEAR
;PREPARE FOR DELAY

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

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU=17

;IS CLOCKBIT CLEAR?

‘BRIF YES
DELAY
BR IF DELAY NOT DONE
;sERROR BIT IS STUCK SET

2634

JRARRRARNARRARARAARRARRRAAAR

2635
2636
2637
2638

;*0UT DATA SILO TEST
s«SET SOM AND LOAD OUT DATA SILO
s*VERIFY THAT OCOR SET, INDICATING THAT THE
s*CHARACTER IS AT THE BOTTGCM OF THE OUT SILO

‘

2639

2640
5&}

013706
013714

012737
012737

2646
2647

013722
013724

104412
012711

2645

2648

;

2643
2644

013730

012761

000014
014006
004000

000001

001226
001216

000004

TST14:

AAARAAANAR AR

#13,TSTNO
#TST14 NEXT

BIT

001416

AR AR AR AR AR NN AR AN

MOV
MOV

ROMCLK
021364

2626 013664 032761 000002 000004

AR AR

TEST 13

BNE

001416

R AR AR R AR AR AR

AR AR AR

e vk kA kAR AR A AR R AR

AR AR R AR AR AN AN AR AR ANRRA RN RA AR RARARARARARAR AR AR

TEST 14

MOV
MOV

#14 ,TSTNO
#TST15 NEXT

MSTCLR
MOV

lr]-TH

MOV

TEST

(R1)

;sR1T CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
sSET LINE UNIT LOOP

*LOAD PORT4 WITH BITO

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

— .asg—u:sasrgmasz_ha-a_hg
R RESRNaSRURRNRRUR
S3TInSE
8S 883338
BSRGRREFRFIFIR

12:45

PAGE 53

BASIC TRANSMITTER TESTS

SEQ 0053

RGQC%K
122111

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET_SOM
:SET

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO
:WAIT FOR OCOR
:SAVE ADDRESS FOR TYPEQUT
INEXT WORD_[S INSTRUCTION,

ROMCLK

122110

000002
000017

TIMER,
MOV
ROMCLK

000004
000357

MOV
BIC
MOV
CMPB
BEQ

:1S OCOR SET?
:BR IF YES

SCOPE

:SCOPE THIS TEST

021

1%:

:PUT 'FOUND'' IN R4

:CLEAR_UNWANTED BITS

:PUT

HLT

JRANRRRRRARARARARRANRRARANEN

"EXPECTED'’ IN RS

TEST

wannnannnannntnnntnrtnrtntnnen

s*DDCMP TEST OF RTS AND OUT ACTIVE
s*SET SOM AND LOAD QUT DATA SILO
s*SINGLE STEP 2 DATA CLOCKS, VERIFY

s*THAT RTS AND ACTIVE ARE SET
e

AR AR AR

TEST 15

012737
012737

MOV
MOV

014022

104412

MSTCLR
MOV
MOV
ROMCLK

RERISRSSKRE

E O 2R R

W S

s Y

R O

s P

YR Y

SO VINO~ =S~

] O=0O=
—t e ek = OO
S2R293S
CD“JNM)-*SL\) 53
SRIR N RERERRYS
S
MO
\heg‘fl-‘“JC\‘d
N=O
= (N
b
\rfl-flhJ&“M:“V—dbhdtj§:j
RIRRR
=< 838322

014006
014014

AR AR AR

#15,TSTNO
#TST16,.NEXT

#BIT11,(R1)

#1,4(RT)

12211

ROMCLK

122110
PC,OCOR
JSR
DATACLK,
MOV
ROMCLK

021224

1%:

MOV
BIC
MOV
CMPB
BEQ
HLT
MOV

ROMCLK

021264

MoV
BIC
MOV
(MPB

CZDME

| czomEC. P11

AR AR

AR AR AR AR ARARAA AR AR RAR AR AR AR AR

AR AR

sR1 CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DMC11
:SET LINE UNIT LOOP
:LOAD PORT4 WITH BITO
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SET_SOM
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA SILO
:WAIT FOR OCOR
:CLOCK DATA FOUR TIMES
:SAVE ADDRESS FOR_TYPEQUT
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU 11

:PUT "FOUND'" IN Ré

:CLEAR_UNWANTED BITS

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

sSAVE ADDRESS FOR TYPEOQUT
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 1

;PUT ERPECTED IN R4

:CLEAR UNWANTED BITS

sPUT "EXPECTED'' IN RS, RTS SHOULD BE SET
:1S RTS 0OK?

CZDME

MACY11 '.'»0A(10;2)1 11-SEP-78

CZDMEC.P1N

11-SEP-78

2705
2706
2707
2708

001401
104005

5750

014136
014140
014142
014142

12:38

12:45

PAGE 54

BASIC TRANSMITTER TESTS

2%:

104400

BEQ
HLT

2%
5

SCOPE

SEQ 0054
;sBR IF YES
sRTS ERROR
;SCOPE THIS TEST

2711

JRRRRRRRRARRRRARRRRRRARRARRR

2712
2713
2714
2715

s*TEST OF 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

2716

2717

g;}g

2720
2721
2722
2723
2724
2725
2726
2727
2728
2729

.
014144
014152

012737
012737

2737
2738
2739
2740
27641
2742
2743
2744
2745
2746
2747
2748

014160
014162
014166
014174
014176
014200
014202
014204
014210
014214
014222
014224
014226
014232
014236
014240
014242

104412
012711
012761
104414
122111
104414
122110
004737
104415
012761
104414
122111
104415
012702
104414
021364
016104

014256
014260
014262
014262
014266
014270

001401
104005

2750
2751
2752
2753
275
2755
2756
2757
2758

014276
014302
014304
014306
014310
014312
014312
014316
014320

016104

000004

012702
104414
021224

000011

2760

014326

012705

000020

2731
2732
2733
2
2735

2749

2759

014246
014252
014254

014272

014322

042704
005005
120504

000016
014342
004000
000001

026374
000002
000200

TST16:

000004

000004
000357

000013

042704
005005
120504
001401
104005

000337

000004

1%:

2%:

716

wamaa

v kA

Ak A

ARRA AR AR RARRRRRRRRRRRAARAAARARRRRARRARRNRARANARNARA AR

TEST 16

MOV
MOV

#16,TSTNO
#TST17 NEXT

MSTCLR
MOV
#MIT11,(R1)
MOV
#1,4(R1)
ROMCLK
122111
ROMCLK
122110
JSR
PC,O0COR
DATACLK,
2
MOV
#BI1T7,4(R1)
ROMCLK
122111
DATACLK,
1
MOV
#17 ,R2
ROMCLK
021364
MOV
4(R1) ,R4

000001
000017

012702
104414
021264

016104

001226
0071216

TEST

BIC
CLR
(MPB

#357 R4
RS
RS R4

MOV
ROMCLK
021264

#13.R2

BIC
CLR
CMPE
BEQ
HLT

BEQ
HLT

1%
5

;sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
sSET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
JNEXT WORD IS INSTRUCTION, ROMCLK
sSET SOM
JNEXT WORD IS INSTRUCTION, ROMCLK
sLOAD OUT DATA SILO
JWAIT FOR OCOR
sCLOCK DATA FOUR TIMES
sSET BIT7 IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK
sSET OUT CLEAR
;GIVE A TICK TO CLEAR RTS
;SAVE ADDRESS FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK
;PORTS LU 17
JPUT "FOUND'' IN R4
;CLEAR UNWANTED BITS
JPUT "EXPECTED'' IN RS
;IS OCOR CLEARED?
:BR IF YES

PC=5304
PC=5304

PC=5304

s SAVE ADDRESS FOR TYPEOUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 LU 1

MOV

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

sCLEAR UNWANTED BITS
JPUT "EXPECTED'' IN RS, RTS SHOULD BE CLEARED
;IS RTS 0K?
;BR IF YES
sRTS ERROR

MOV
ROMCLK
021224

#11,R2

;SAVE ADDRESS FOR TYPEOQUT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JPORT4 LU

MOV

#MIT4 RS

MOV

4{”1) R4

;PUT ERPECTED IN R4

sPUT "FOUND'' IN R4

JONLY OUT READY SHOULD BE SET

CZDME
MACYN 30A(1052)
11-SEP-78
CZDMEC.PI1
11-SEP-78 12:38

2761
276%
2763
2764
2765

014332
014334
014336
014340
014340

12:45 PAGE 55
BASIC TRANSMITTER TESTS

120504
001401
104005

38:

104400

(MPB
BEQ
HLT

SEQ 0055

R5.R4
3%
5

;1S ACTIVE CLEAR?
:BR IF YES
sERROR ACTIVE NOT CLEARED

SCOPE

;SCOPE THIS TEST

2768

JRRRRRARRRARRAARARRANARARNARR

2769

s*DDCMP TRANSMITTER TEST

2773

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

2770
2771
2772

2775

5%9

;

014342
014350

012737
012737

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

2810
2811
2812
2813
2814

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

104415
104414
021264
032761
001401

2816

014522

104400

2780
2781

2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809

2815

Aanaa

a kA

Ak Ak kA ek

hen

s*SINGLE CLOCK THE CHARACTER 0O
s*VERIFY EACH BIT POSITION AS IT
s*PASSES THE BIT_WINDOW (SI BIT)

2774

2778
2779

TEST

014520

005203
022703
001357

104034

000017
014524

001226
001216

004000
026526
000001

000004

TST17:

000000
026526
000004
026374

000002
000001

1%:

026342

2%:
3%:

000010

000014

000040

000004
4%:

AR R

R AR R RRRT A AR RA AR AR AN

RARARRRRRRRARAR AR AR

TEST 17

MOV
MOV

#17,TSTNO
#TST20,NEXT

sR1 CONTAINS BASE DMC11 ADDRESS
MSTCLR
sMASTER CLEAR DM(C11
MOV
#IT11,(R1)
sSET LINE UNIT LOOP
JSR
PC,OUTRDY
;WAIT FOR OUT-READY
MOV
#1,4(R1)
;SET BITO IN PORT4
ROMCLK
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
122111
sSET SOM!
MOV
#0,RS
;LOAD CHARACTER IN RS FOR TYPEOUT
JSR
PC,OUTRDY
;sWAIT 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,OCOR
;WAIT FOR OCOR TO SET
CLR
R3
sCLEAR BIT COUNTER
MOV
RS,.R2
;LOAD CHARACTER IN R2
DATACLK,
2
22 TICKS TO SET UP TRANSMITTER
DATACLK,
1
sSHIFT NEXT BIT IN THE WINDOW (SI BIT)
RORB
R2
sSHIFT NEXT SOFTWARE BIT IN TO CARRY
BCC
2%
:BR IF CARRY CLEAR
JSR
PC,.GETSI
;GET THE WINDOW
BCS
33
:BR IF BIT IS A MARK
HLT
6
:ERROR BIT WAS A SPACE
BR
3%
sCONTINE WITH TEST
JSR
PC,GETSI
;GET THE WINDOW
BCC
38
sBR IF BIT IS A SPACE
HLT
6
;ERROR BIT WAS A MARK
INC
R3
CMP
#10,R3
BNE
1%
DATACLK,
14
ROMCLK
021264
BIT
#B1T5,4(R1)
BEQ
4

sCLOCK TRANSMITTER 14 MORE TICKS
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU=1
;RTS SHOULD BE CLEAR NOW
:BR IF

5COPE

;SCOPE THIS TEST

HLT

JNEXT BIT
;DONE YET?
;BR IF NO

*ERROR, RTS NOT CLEAR

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

12:45

PAGE 56

BASIC TRANSMITTER TESTS

SEQ 0056

JRRRAARNNRRRRARRNRRARARRRNNR

TEST

aaa

ek a A A AR AR AR RN

;*DDCMP_TRANSMITTER TEST
:*SINGLE CLOCK THE CHARACTER 125

:*VERIFY EACH BIT POSITION AS IT
s*PASSES THE BIT _WINDOW (SI BIT)

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

2830
2833
2834

014524
014532

012737
012737

014540
014542

104412
012711

000020

014706
004000
026526
000001

001226

001216

TST20:

;

TEST 20

MOV

MOV
MSTCLR

MOV
JSR
MOV

000004

ROMCLK

122111

A A A A R

#MIT11,(RT)
PC,OUTRDY
#1,4(R1)

RS5,4(R1)

026374

JSR

PC,OCOR

1%:

000010

000014
000040

sNEXT EU.QD IS INSTRUCTION, ROMCLK PC=5304
;WAIT FOR OUT-READY
;LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
;WAIT FOR OCOR TO SET
:CLEAR BIT COUNTER
;LOAD CHARACTER IN R2
;2 TICKS TO SET UP TRANSMITTER

HLT

INC
MP
BNE

R3
#10,R3
1%

;OONE YET?
;BR IF NO

BCC

DATACLK,

021264
BIT
BEQ
4%:

2
1

PC,GETSI

3%
3$
3%

ROMCLK

000004

;R1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11
sSET LINE UNIT LOOP
sWAIT FOR OUT-READY
;SET BITO IN PORT4

PC,GETSI

HLT

3%:

ARk

JSR

BCS

2%:

sSHIFT NEXT BIT IN THE WINDOW (SI BIT)
SHIFT NEXT SOFTWARE BIT IN TO CARRY
BR_IF CARRY CLEAR
:GET THE WINDOW
:BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
sCONTINE WITH TEST
:GET THE WINDOW
:BR IF BIT IS A SPACE
;ERRCOR BIT WAS A MARK

JSR

026342

PC,OUTRDY

MOV
RS5.R2
DATACLK,
DATACLK,
RORB
R2

B8CC

026342

AR AR AR AR

SET _SOM

MOV

000002
000001

A A AR AR AR AR AR AR

#125,RS :LOAD CHARACTER IN RS FOR TYPEOUT

MOV
JSR

CLR

A AR AR AR R

#20,TSTNO

#TST21 NEXT

000125
026526
000004

ROMCLK
122110

HLT
SCOPE

:NEXT BIT

#MITS5,4(RT)
A3
34

sCLOCK TRANSMITTER 14 MORE TICKS
JNEYT WORD IS INSTRUCTION, ROMCLK PC=5304

*PORT4 LU-13

RTS SROULD BE CLEAR NOW
BR IF YES

.'ERROR. RTS NOT CLEAR
;SCOPE THIS TEST

JRNENRRRRRAARARANARANRARARARY

[EST

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

Ananaa ek e n e a ek

A kA kAR AR AR AN

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

12:45

PAGE 57

BASIC TRANSMITTER TESTS

SEQ 0057

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

CD—“JCD§SCLJ

000027
015070

SFERRRoGRNRS

—_—

OSSN

014722

ronY

014706
014714

;
001226
061216

TST21:

AR RN AR RAR

AR AR RN RRR AR AR RAARERRRRRARRRRREANRAAAA

TEST 21

MOV
MOV
MSTCLR

#21,TSTNO
HTST22 NEXT

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11

004000
026526
000001

MOV
JSR
MOV

#1711, (R1)
PC,OUTRDY
#1,4(R1)

000252
026526
000004

MOV

#252,RS5 ;LOAD CHARACTER IN RS FOR TYPEOUT

MOV

RS,4(R1)

ROMCLK
122111
JSR

ROMCLK

026374
000002
000001

1%:

026342

2%:

3%:

000010
000014
000040

4%:

PC,OUTRDY

;WAIT FOR OUT-READY

;LOAD PORT4 WITH CHARACTER

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;LOAD OUT DATA
;WAIT FOR OCOR TO SET
;CLEAR BIT COUNTER
:LOAD CHARACTER IN R2
;2 TICKS TO SET UP TRANSMITTER

RORSB

:SHIFT NEXT SOFTWARE BIT IN TO CARRY

HLT

;ERROR BIT WAS A SPACE

JSR
BCC

PC,GETSI
3%

;GET THE WINDOW
;BR IF BIT IS A SPACE

DATACLK,

HLT

BIT
BEQ
HLT
SCOPE

JSHIFT NEXT BIT IN THE WINDOW (SI BIT)

2%
PC,GETSI
3

;BR IF CARRY CLEAR
;JGET THE WINDOW
:BR IF BIT IS A MARK

;CONTINE WITH TEST

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

000004

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM!

122110
JSR
PC,OCOR
CLR
R3
MOV
RS.R2
DATACLK,
2
BCC
JSR
BCS

026342

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

;ERROR BIT WAS A MARK

:NEXT BIT
:DONE YET?
:BR IF NO

;CLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU-13

#BITS,4(RT)
43
34

JRTS SAOULD BE CLEAR NOW
:BR IF YES
:ERROR, RTS NOT CLEAR
:SCOPE THIS TEST

JRRARRRARRARKRNRRACANRNRRAANR

[EST

aaaa st a e v ek a kA

A AR R AR R AR R

;*DDCMP_TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER 377
;*VERIFY EACH BIT POSITION AS IT
;*PASSES

THE BIT WINDOW

(SI

BIT)

:*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
2 IRAAAARR,

AR A AR R AR

AR AR R A AR AR R AR AR AR AR R AR R AR

TR AR AN

AR R

RR AR RN

CZDME
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
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969

5377

015070

012737

015104
015106
015112
015116
015124
015126
015130
015134
015140
015744
015146
015150
015154
015156
015160
015164
015170
015172
015174
015200
015202
015204
015206
015212
015214
015216
015216
015220
015224
015226
015232
015234
015236
015244
015246
015250

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

015076

12:45 PAGE 58
BASIC TRANSMITTER TESTS

s
:

005203
022703
001357
104415
104414
021264
032761
001401
104034
104400

MOV

000377
026526
000004
026374
000002
000001

1%:

026342

2%:
3%:

000610
000014
000040

000004
4%:

2972

#22,TSTNO

lTSTZS NEXT

sR1 CONTAINS BASE DMC11 ADDRESS

MSTCLR
JMASTER CLEAR DMC11
§ MOV
#IT11,(R1)
sSET LINE UNIT LOOP
= JSR
PC,OUTRDY
;WAIT FOR OUT-READY
MOV
#1,4(R1)
;SET BITO IN PORT4
ROMCLK
?fXT WORD IS INSTRUCTION, ROMCLK PC=5304
122111
SET SOMm!
MOV
#377 ,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
~C,0COR
JWAIT FOR OCOR TO SET
CLR
R3
;CLEAR BIT COUNTER
MOV
RS.R2
;LOAD CHARACTER IN R2
DATACLK,
2
;2 TICKS TO SET UP TRANSMITTER
DATACLK,
1
sSHIFT NEXT BIT IN THE WINDOW (SI BIT)
RORB
R2
sSHIFT NEXT SOFTWARE 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%
JCONTINE 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
#MITS,4(RT)
BEQ
4%
HLT
34
SCOPE

JNEXT BIT
;DONE YET?
;BR IF NO
sCLOCK TRANSMITTER 14 MORE TICKS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU-13
:RTS SH(!JLD BE CLEAR NOW
BR IF YES
;ERROR, RTS NOT CLEAR
.‘SCU’E THIS TEST

IREARRARRRRANNRARRARANRARNNASY

2973
2974
2975
2976
2977
2978

TEST

At a v v e kA Ak e kAR AR AR R AR

;*DDCMP TRANSMITTER TEST
s*SINGLE CLOCK A BINARY COUNT PATTERN
;*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
;*0ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE
;*AND RS CONTAINS THE CHARACTER THAT FAILED

2979

2980

2983
2984

TEST 22

MOV

012737

SEQ 0058

;

015252
015260

012737
012737

000023
015460

001226
001216

7T5723:

MOV
MOV

TEST 23

#22,TSTNO
#TST24 NEXT

T R T T T T

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

12:45
PAGE 59
BASIC TRANSMITTER TESTS

2985

MSTCLR

004000

JSR
MOV

PC,OUTRDY
#1,4(R1)

026526
000004

1221
JSR
MOV

PC,OUTRDY
R4,4(RT)

026526
000004

122110
INC
JSR
MOV

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

026374
000002

JSR
PC.OCOR
DATACLK,
2

NRoe
NRR

-0
—N—=—=O0W
NNV
WWINO
=N

SNSREN

— O

NN
=

EEELEEE

0O NONN

000001

CLR

000004

ROMCLK

ROMCLK
122110

(%:
1%:

026342

CLR
MOV

R3
R5.R2

RORB
BCC

R2
2%

HLT

DATACLK,

JSR
BCS

2%:
3%:

000010
026526
000004

:R3 CONTAINS BIT COUNT

:R4 CONTAINS CHAR TO BE LOADED IN SILO

:RS CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT
;WAIT FOR OUT-READY

;SET BITO IN PORT4

NEXTS\&)'?D IS INSTRUCTION, ROMCLK PC=5304
;WAIT FOR OUT-READY

;LOAD PORT4 WITH CHARACTER
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
s INCREMENT TO NEXT CHARACTER
;WAIT FOR OUT-READY
;LOAD PORT4 WITH CHARACTER
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
;WAIT FOR OCOR TO SET

;2 TICKS TO SET UP TRANSMITTER
sCLEAR BIT COUNTER
:LOAD CHARACTER IN R2

sSHIFT NEXT BIT IN THE WINDOW (SI BIT)
sSHIFT NEXT SOFTWARE BIT IN TO CARRY
:BR IF CARRY CLEAR
GET THE WINDOW
BR IF BIT IS A MARK

JSR

PC,GETSI

HLT

*ERROR BIT WAS A MARK

INC
(MP
BNE
INC
JSR

R3
#10,R3

;NEXT BIT
;DONE YET?

BC(

ROMCLK

INC

5%:

sR1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11
sSET LINE UNIT LOOP

:ERRG! BIT WAS A SPACE
sCONTINE WITH TEST
;GET THE WINDOW

MOV

000400

PC,.GETSI
3s

122110

015456

#BIT11,(R1)
R3

CLR

026526
000001

3009
3010

MOV
CLR

SEQ 0059

(MP
BNE

SCOPE

1%
R&
PC,OUTRDY
R4 ,4(R1)

#400,R5
4%

BR IF BIT IS A SPACE

BR
IF NO

sNEXT CHARACTER
;WAIT FOR OUT-READY
;LOAD PORT4 WITH CHARACTER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

.LOAD OUT DATA
sNEXT CHARACTER
sDONE YET?
:BR
IF NO
;SCOPE THIS TEST

JRRRNRSERARARARr
R rRnnnnenh

[EST

annnnannnnsrnnnnnnnrnnnntnnn

;*DDCMP STRIP SYNC TEST
s*SET LU LOOP, SINGLE STEP 5 SYNCS,

J*VERIFY THAT IN ACTIVE DOES NOT SET
> TR

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

RN R

R AR AR RN R

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

012737

NRRERN

015460
015466

000024
015546

12:45

001226
001216

PAGE 60

BASIC RECEIVER TESTS
TST24:

#24,TSTNO

MOV
MOV

#TST25 NEXT

MSTCLR
MOV
MOV
JSR

000012
026412

#BIT11,(R1)

#12,R2

PC,SYNC

000054

DATACLK,

ROMCLK

021244

000004
000277

4(R1) ,R4
#277 R4
RS

MOV

BIC
CLR

1%:

SEQ 0060

CMPB
BEQ
HLT
SCOPE

;R1

CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DMC11
sSET LU LOOP
sSAVE LU REG FOR TYPEOUT
sSINGLE CLOCK 5 SYNC CHARACTERS

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:CLEAR UNWANTED BI TS

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

1%
40

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

JRARRCRRRRRRCARARCARRARARRAR

TEST

Aaaanaaa
e na e a vtk A vk hn

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

015546
015554

012737
012737

000025
015636

001226
001216

TSTZ25:

MOV
MOV

#25,TSTNO
#TST26 ,NEXT

MoV

#81T11,(R1)

gSR

PC,SYNC

MOV

000064

#12 ,R2

DATACLK,

ROMCLK

021244

000004
000277
000100

MOV

BIC

MOV
(MPB
BEQ
1%:

AR R A AR

AR AR AR AR AR AR

HLT
SCOPE

4(R1) R4

sR1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11
;SET LU LOOP
sSAVE LU REG FOR TYPEOQUT
sSINGLE CLOCK 5 SYNC CHARACTERS
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:CLEAR UNWANTED BITS

#277 R4

#8176 ,R5
R5.R4
1%

;PUT "EXPECTED'' IN RS

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

JRRRRRRRARARKRANCRAARANRNANNS

[EST

waaaaa a aaa v A v e ke kA A AR

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

#3%7

;]

AR RN

TEST 25

MSTCLR

004000
000012
026412

A A AR AR AR A AR AR AR R AR AR A AR AR

AR AR

A AR AR AN

M ec

AR A AR R AR R R R AR AR AR AR AR AR R AR AR RAR R R AR

AR AR RN

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

3097

015636

012737

3098

015644

012737

3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114

015652
015654
015660
015664
015670
015672
015676
015700
015702
015706
015712
015714
015716
015720
015722

104412
012711
012702
004737
000001
104415
104414
021244
016104
042704
005005
120504
001401
104040
104400

3099

316

000026

015726

12:45

001226

001216

PAGE 61
BASIC RECEIVER TESTS

TST26:

004000
000012
026412
000024
000004
000277

1%:

MOV

SEQ 0061

#26,TSTNO

MOV

#TST27 NEXT

MSTCLR
MOV
#MIT11,(R1)
MOV
#12 ,R2
JSR
PC,SYNC
1
DATACLK,
24
ROMCLK
021244
MOV
4(R1) ,R4
BIC
#277 ,R4
CLR
RS
(MPB
RS,.R4
BEQ
1%
HLT
40
SCOPE

sR1 CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DMC11
sSET LU LOOP
sSAVE LU REG FOR TYPEOUT
sSINGLE CLOCK 1 SYNC CHARACTERS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 _LU12
sPUT "FOUND'' IN R4
;CLEAR UNWANTED BITS
sPUT "EXPECTED'' IN RS
;1S ACTIVE CLEAR?
:BR IF YES
sERROR ACTIVE IS NOT CLEAR
;SCOPE THIS TEST

3117

JRRRRARRRRARCRRNRAARRAARRANRN

3118
3119

;*DDCMP IN ACTIVE TEST
s*SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301)

3121

VIS WA

) —d

AINNINY

3120

;
012737
012737

3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142

015740
015742
015746
015752
015756
015760
015764
015766
015770
015774
016000
016004
016006
016010
016012

104412
012711
012702
004737
000002
104415
104414
021244
016104
042704
012705
120504
001401
104040
104400

—

015724
015732

s*VERIFY THAT IN ACTIVE IS SET

3126
3127

TEST

000027
016014

001226
001216

TSTZ7:

004000
000012
026412
000034
000004
000277
000100

1%:

Aanaaad
A
a Ak Ak AR Ak kk

AR AR AR AR AR AR AR R RRRAR AR ANRANR AR AR

RRANRRARRRRARRR AR AR AR

TEST 27

MOV
MOV

#27 ,TSTNO
#TST30 NEXT

MSTCLR
MOV
#8IT11,(R1)
MOV
#12,R2
JSR
PC,SYNC
2
DATACLK,
34
ROMCLK
021244
MOV
4(R1) ,R4
BIC
#277 ,R4
MOV
#IT6,RS
(MPB
R5,R4
BEQ
1%
HLT
40
SCOPE

;sR1

CONTAINS BASE DMC11 ADDRESS

JMASTER CLEAR DM(C11
sSET LU LOOP
sSAVE LU REG FOR TYPEOUT
sSINGLE CLOCK 2 SYNC CHARACTERS

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LU12
sPUT "FOUND'' IN R4
;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;IS ACTIVE SET?
;BR IF YES
JERROR ACTIVE IS NOT SET
;SCOPE THIS TEST

3145

JRRRRRRRAR
AR
AR R RnenRwnt

3146
3147
3148
3149

;*IN CLEAR TEST
s*SYNC UP RECEIVER AND TRANSMIT A CHARACTER
;*WAIT FOR IN RDY, THEN SET IN CLEAR
s*VERIFY THAT IN ACTIVE AND IN RDY ARE (LEARED

3152

;

2150

AR AR AR AR

TEST 30

TEST

wannnnnnnnnrnenenenennrnennn

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

CZDME

MACY11 30A(1052)

CZDMEC.P11
3153
154

155

016014

016022

3156
3157 016030
158
159
160

3161

3163
3164
3165

016046
016050
016054
016060
016062

3167

016070

3162

166

3168

3169

3170

3171
3172

11-SEP-78 12:38
012737

000030

104412

012737

012702
012711
004737

042704

000357

016104

000004

016076

012705

000020

016102

016104
016106

120504

016120

104414

3178

016126

021244

3179
3180
3181

016130
016134
016136

042704
005005
120504

3183
3184

016142
016144

016104

016106

3190

016162

104040

3191

3108

016150
016154
016156
016160
016164

MOV
BIC

042704
005005
120504
001401

MOV

CMPB

BEQ
000200

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

TIMER,
ROMCLK
021244

000004

HLT

4(R1) R4
#357,R4

#1T4,RS

000004

000357

3%:

:CLEAR UNWANTED BITS

;PUT "EXPECTED''

;1S INRDY SET?

;ERROR, INRDY IS NOT SET

IN RS

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1) ,R4

“SET IN CLEAR
*PORT4 LU 12

*PUT "FOUND"" IN R&

BIC
CLR
(MPB

#277 R4
RS
RS5,.R4

:CLEAR UNWANTED BITS
:PUT "EXPECTED''
IN RS
“IS IN ACTIVE CLEAR?

HLT

;ERROR, IN ACTIVE IS NOT CLEAR

MOV

4(R1) R4

:PUT "FOUND'*
IN R4

HLT

BIC
CLR
(MPB
BEQ

104400

*PUT 'FOUND""
IN R4

ROMCLK

BEQ
28:

SAND A NON=-SYNC
(301)
*SINGLE CLOCK THE DATA
*WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*PORT4 LU
1

:LOAD PORT4
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOV

000277

:SAVE REG ADDRESS IN R2 FOR TYPEOUT
:SET LINE UNIT LOOP
*LOAD SILO WITH 3 %Ncs

MOV
#BIT7,4(RY)
ROMCLK
021244

000004

:R1 CONTAINS BASE DMC11 ADDRESS
“MASTER CLEAR DMC11

RS.R4

122112

104040

016144

3186
3187
3188
3189

#7731, NEXT

301

1$:

SEQ 0062

#30, TSTNO

MOV

DATACLK,

001401

3185

MOV

MOV
MOV
JSR

122112

016122

016140

TST30:

MSTCLR

104040

3176

3182

001216

BASIC RECEIVER TESTS

001401

012761
104414

016116

001226

PAGE 62

000053

016064

016100

12:45

000012
004000
026560
000002

016106
016114

3177

016166

000301
104415
104416
104414
021244

3173
3174

3175

016032
016036
016042

11-SEP-78

SCOPE

#357 R4
RS
R5,R4
38

*CLEAR UNWANTED BITS
“PUT "EXPECTED'' IN RS
*IS INRDY CLEARED?
;ERROR,

INRDY IS NOT CLEARED

;SCOPE THIS TEST

3194

JRRRRARRRARRRNRRRRRARARNAntt

3195

**DDCMP BASIC RECEICER TEST

3197

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

3196
33228?

;

3203

016174

016166

012737

3205

016202

104412

3206
3207
3208

wnnannnnanannnrnnnnnnntntnns

;:Q.tttttltttttttttttt.ttt!ttt't.tttttttttt.t'tttttt.tttttt't'tt

3199

3204

:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0

3198

3202

TEST

016206
016210
016214

012737

012702
012711
004737

000031

016302

000012
004000
026560

001226

001216

TST31:

TEST 31

MOV

MSTCLR

MOV
MOV
JSR

#31,TSTNO

#7S732 NEXT

#12,R2
#2111, (R1)
PC . CHAR

:R1 CONTAINS BASE DMC11 ADDRESS
“MASTER CLEAR DMC11

:SAVE REG ADDRESS IN R2 FOR TYPEQUT
*SET LINE UNIT LOOP
“LOAD SILO WITH 3 SYNCS

CZDME

MACY11 30A(10;2)

CZDMEC.P1
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3¢1
322
3223
3224
3225
3226
3227
3228

016220
016222
016226
016232
016234
016236
016242
016246
016252
016254
016256
016260
016260
016262
016264
016270
016272
016274
016276
016300

11-SEP-78

11-SEP-78 12:38
000000
104415
104416
104414
021244
016104
042704
012705
120504
001401
104040
104414
021204
016104
005005
120504
001401
104010
104400

12:45

PAGE 63

BASIC RECEIVER TESTS

000053
000002
000004
000357
000020

1%:

000004

2%:

ROMCLK
021204

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

MOV
CLR
(MPB
BEQ
HLT
SCOPE

4(R1),Ré
RS
RS,R4
43
10

sERROR, INRDY IS NOT SET

:PUT "FOUND'' IN R4
sPUT "EXPECTED'' IN RS
JWAS A O RECEIVED?

JERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

3235

;

3239
3240

016302
016310

012737
012737

3242
3243
3244
3245
3246
3247
3248
3249
325C
3251
3252

016316
016320
016326
016330
016334
016336
016342
016346
016350
016352
016356

104412
012702
012711
004737
000125
104415
104416
104414
021244
016104
042704

3241

3253

016362

335, 016366

3255

012705

120504

016370
016372
016374

001401
104040

016400

015104

3257
3258
3259

016374
016376

3261
3262
3263
3264

016404
016410
016412
016414

3260

TEST

Aana sttt

A v

A A

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

3236

JAND THE CHARACTER 0
sSINGLE CLOCK THE DATA
;WAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sPORT4 LU 1
sPUT "FOUND'' IN R4
:CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S INRDY SET?

JRNRNRRARARRRRARRARARAAARAAR

ggg

0
DATACLK,
53
TIMER, 2
ROMCLK
021244
MOV
4(R1) R4
BIC
#357,Ré
MOV
#IT4 RS
CMPB
R5.,R4
BEQ
1%
HLT
40

3231

32
3233
3234

SEQ 0063

104414
021204

012705
120504
001401
104010

32
016420

001226
001216

T1ST32:

000012
004000
026560

000053
000002
000004
000357

000020

1%:
000004

000125

RN AR

AN AR R AR R R AN AN RN AN

RRRRA AN

ARRRARAARRRRARRA R AR AR

TEST 32

MOV
MOV

#32,TSTNO
#TST33 NEXT

;sR1T CONTAINS BASE DMC11 ADDRESS

MSTCLR
MOV
#12,R2
MOV
#MIT11,(R1)
JSR
PC,CHAR
125
DATACLK,
53
TIMER,
2
ROMCLK
021244
MOV
4(R1) R4
BIC
#357 R4

JMASTER CLEAR DMC11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT
JSET LINE UNIT LOOP
sLOAD SILO WITH 3 SYNCS
JAND THE CHARACTER 125
sSINGLE CLOCK THE DATA
JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU 12
sPUT "FOUND'' IN R4
;CLEAR UNWANTED BITS

CMPB

;1S INRDY SET?

MOV

#I1T4,RS

BEQ
HLT

1%
40

ROMCLK
021204

MOV

MOV
(MPB
BEQ
HLT

RS,R4

4(R1) R4

#125,R5
R5.R4
e
10

;PUT "EXPECTED'' IN RS

sERROR, INRDY IS NOT SET

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_IN DATA

JPUT "FOUND'' IN R4

JPUT "EXPECTED'' IN RS
sJWAS A 125 RECEIVED?

JERROR, RECEIVED DATA IS WRONG

MACYN 30A(1052)
CZDME
11-SEP-78
11-SEP-78
CZDMEC.P1
112:38

016416

12:45 PAGE 64
BASIC RECEIVER TESTS

2%:

104400

SEQ 0064
;SCOPE THIS TEST

SCOPE

JRRRRRARRAARRAAAAARANAARAARY

TEST

a e A A

kA v

A AR

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

MOV

#TST34 NEXT

MSTCLR

MOV
MOV
JSR

252
DATACLK

TIMER,
ROMCLK

021244
MOV
BIC
MOV
(MPB
BEQ
HLT

AR AR AR

AR AR,

sR1 _CONTAINS BASE DNCH ADDRESS
:MASTER CLEAR DMC11
sSAVE REG ADDRESS IN R2 FOR TYPEOUT
SSET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
:AND THE CHARACTER 252
sSINGLE CLOCK THE DATA

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

;WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PCRTlo LU 1

:PUT "FOUNDTM" IN R4

4(R1) R4
#357 R4
#3174 RS
R5,R4

;CLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

;IS INRDY SET?

1%
40

;ERROR, INRDY IS NOT SET

ROMCLK

021204
MOV
MOV
CMPB
BEQ
2%:

A AR

#33,TSTNO

MOV

000004
000252

A AR

TEST 33

;

1%:

AR AR A AR AR AR AN A AA AR AR AR

HLT
SCOPE

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

PGR'M IN DATA

T 'FOUND'' IN R4

4(R1) R4
#252 ,R5
R5,R4
2%

PUT "EXPECTED'' IN RS

:WAS A 252 RECEIVED?

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

JRRRRRRRRRRRRAARRNRRRAAANSAAN

TEST

ANt ana v

AR AR ARRCRARAR

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

AR AR AR A AR AR

016570

000012
004000
026560

—N)
oo

016552

000034
016654

—_

016536
016544

NW=O
NN=NN

;
TST34:

AR AR AR

A AR

AR AR

AR AR AR AR AR RR AR AR

TEST 34

MoV
MOV
MSTCLR
MOV

MOV
JSR
377

AR A AR

#35,TSTNO
#TST35 NEXT
#12.R2
#1711, (R1)
PC.CHAR

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;SAVE REG ADDRESS IN R2 FOR TYPEOUT
sSET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
AND THE CHARACTER 377

[

C ZOME
MACY11 30A(1052)
11-SEP-78
CZOMEC.P1
11-SEP=-7. 12:38

R JSNEEE

Sgc:—na.a

REmRRR

]

12:45 PAGE 65
BASIC RECEIVER TESTS

000053
000002

DATACLK,
TIMER,
2

SEQ 0065
53

ROMCLK

000004
000357
000020

021244
MOV
BIC

4(R1) R4
#357 R4

CMPB
BEQ
HLT

R5.R4
1%
40

MOV
1%:

ROMCLK

021204
MOV
MOV
CMPB

000004
000377

BEQ

2%:

#1T4 RS

HLT

4(R1) ,R4
#377 RS
RS.R4
Pt3
10

SCOPE

sSINGLE CLOCK THE DATA
;WAIT FOR INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*PORT4 LU 1

sCLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

;IS INRDY SET?

;ERROR, INRDY IS NOT SET
sNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:PORT4_IN DATA

;PUT 'FOUND'® IN Ré

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

:SCOPE THIS TEST

IRRRRNRNNRRRNNRNCRARAANAANAR

[EST

annnnnnnnnnnnnnnnnnnnnnnnnn

+«DDCMP DATA TEST

s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN

s*CHECKING EACH CHARACTER AS IT IS RECEIVED
SRR

000035
017004

012737
012737

nonY

;
TST35:

016774

026736
000073

MOV

CLR

000004

000400

MOV

MOV
MOV
JSR
1%:
A ¥

2%:

#TST36 NEXT
SCHAR
STUFLG

. R2

DATACLK,
730
JSR
PC,INRDY

ROMCLK

021204
MOV

4(R1) ,R4

CMPB

RS .R4

BEQ
HLT
INC

CMP

BEQ
DEC

BNE
JSR

MOV

AR AR AR AR AN AR

RN AR

#35,TSTNO

#73,R3
#MIT11, (R1)
PC,SILOLD
DATACLK,
43

MOV

AR AR AR

TEST 3§

MSTCLR
CLR
CLR

027176
027200
000073
004000
026736
000043
000730
027202

AR AR A AR A AR AR

R2.RS
2%
10
R2

#400,R2
3%
R3

PC,SILOLD

#7%.R3

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
;START BINARY COUNT AT ZERO
;CLEAR BITSTUFF FLAG
;JR2 IS "EXPECTED'' DATA
:R3 IS CHARACTER COUNT
sSET LINE UNIT LOOP

;LOAD SILO WITH COUNT PATTERN

sSYNC RECEIVER AND GET IT ACTIVE

;CLOCK IN 73 CHARACTERS

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA
:PUT 'FOUND'' IN R4
sPUT "EXPECTED'" IN RS
;1S DATA CORRECT?
;BR IF YES
;DATA ERROR
JNEXT CHARACTER
;ALL DONE?
;BR IF YES
;DECREMENT CHARACTER COUNT
sBR IF SILO NOT EMPIY
sLOAD SILO WITH MORE OF COUNT PATTERN
JRELOAD CHARACTER COUNT

CZDME

MACY11 30A(1052)

CZDMEC.PN

11-SEP- I

3377
378

000751

017000
017002

11-SEP-78
12:38

12:45 PAGE 66
BASIC RECEIVER TESTS

3s:

104400

SEQ 0066

BR
SCOPE

s CONT INUE
:SCOPE THIS TEST

JRARRRRANRRRANRARRRARRARNNARR

TEST

Aot aaaaaa

e v e

v v A

Ak A

: *DDCMP DATA TEST

s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN

s *CHECKING EACH CHARACTER AS IT IS RECEIVED
s*THIS TEST IS EXACTLY THE SAME AS THE LAST TEST,
s*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12
s iR

;
000036
017144

#36,TSTNO
#TST37 NEXT

027176
027200

MSTCLR
CLR
CLR

SCHAR
STUFLG

000073

MOV

RSREXRVERNoRRS

e
i e
e
i

s cclh il cald
i

il
i

b
s

i
i

cnlh csld
s

NNNNNNNNNNNNY

elelalelalelelelolelelele]

026736
000043
000730
027202

CLR

000004

000400

PC.SILOLD

JSR

PC, INRDY

DATACLK,
DATACLK

021204

MOV
CMPB
BEQ
HLT
INC
P
BEQ

DEC
BNE

026736
000073

JSR

MOV
3%:

(R1)

JSR

MOV

2%:

#73,R3
#BITS,4(R1)

ROMCLK

000004

MOV

ROMCLK
122112
A

SEER5RES
)
B

e R

K28 NRRRCRNE OBV
NE NSO

TST36:

TEST 36

MoV
MOV

000040

RRRRY R RRRRRRRRRRR

001226
001216

P—

017004
017012

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

BR
SCOPE

43
730

;sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11
+;START BINARY COUNT AT ZERO
;CLEAR BITSTUFF FLAG
sR2 IS "EXPECTED'' DATA
R3 IS CHARACTER COUNT
sCLEAR LU LOOP IN MAINT REG
:LOAD PORTS
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sSET LU LOOP IN LU REG 12
;LOAD SILO WITH COUNT PATTERN
sSYNC RECEIVER AND GET IT ACTIVE
;JCLOCK IN 73 CHARACTERS
JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_IN DATA

:HH:flUW“INR4

4(R1) ,R4

R2,RS
RS.R&
2%

JPUT

"EXPECTED'' IN RS

;1S DATA CORRECT?
;BR IF YES
;DATA ERROR
JNEXT CHARACTER
sALL DONE?
:BR IF YES
;DECREMENT CHARACTER COUNT
sBR IF SILO NOT EMPTY
sLOAD SILO WITH MORE OF COUNT PATTERN
:REL(T)AI\D CHARACTER COUNT
s CONT INUE
:SCOPE THIS TEST

10
R2
#400,R2
3
R3
43

PC,SILOLD

#7%5.R3
1$

JRRRARARRRARRRARKRAARRRRAAAR

TEST

At na

A v

e v

kAR

AR AR

RRR AR

s*TRANSMITTER MARK TEST
s*SINGLE CLOCK 3 SYNCS AND A 301 AND 0 EXTRA
s *CLOCK TICKS VERIFY THAT A 301, A 377 AND A 377

:*WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT

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

R AR

AR AR AR R AR A AR RN AR AR AR AR AR AR AR AR AR

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

33
34
35
36
3437
3438
3439
3440
3441
344%
3443
3446
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467

12:45 PAGE 67
BASIC RECEIVER TESTS

TEST 37

:
017144
017152

012737
012737

017160
017162
017166
017172
017174
017200
017204
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
104415
004737
104414
021204
016104
012705
120504
001401
104010
004737
104414
021204
016104
012705
120504
001401
104010
004737
104414
021204
016104
012705
120504
001401

017300
017302

000037
017304

017304
017312

012737
012737

3482
3483
3484
3485
3486
3487
3488

017320
017322
017330
017332
017340
017342
017344

104412
032737
001004
032737
001451
005011
012761

TST37:

301

#BIT11, (R1)
PC,CHAR

DATACLK,

JSR
PC, INRDY
ROMCLK
021204
MOV
4(R1) R4
MOV
#301,RS

000004
000301

ggl;e

1%:

000004
000377

027202

#37,TSTNO
#TST4N NEXT

MOV
JSR

000073
027202

027202

MOV
MOV
MSTCLR

004000
026560

HLT

2%:

MOV

4(R1) ,R4

gf'l;e

gg.m.

ROMCLK
021204

HLT

MOV
MOV

4(R1) ,R&4
#377 RS

HLT

gzr;a

SCOPE

:SET LINE UNIT LOOP
:LOAD SILO WITH 3 SYNCS

JAND A 301

*CLOCK THE 301

IN AND 20 EXTRA TICKS

*WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*PORT4_IN DATA
*PUT 'FOUND'' IN Ré
:PUT "EXPECTED'' IN RS
:WAIT FOR INRDY

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*PORT4_IN DATA
sPUT "FOUND'' IN R4

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

PC, INRDY

*MASTER CLEAR DMC11

;ERROR FIRST CHARACTER INCORRECT

#377.RS

JSR
ROMCLK

:R1 CONTAINS BASE DMC11 ADDRESS

*WAS A 307 RECEIVED?

PC, INRDY

021204

3%:

qg.m

JSR

MOV

000004
000377

104010
104400

3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
gzg?

001226
001216

SEQ 0067

;ERROR, 377 WAS NOT RECEIVED

*WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_IN DATA

*PUT "FOUND'' IN Ré
*PUT "EXPECTED'' IN RS

r}ag,aa

“WAS A 377 RECEIVED?
;ERROR,

377 WAS NOT RECEIVED

*SCOPE THIS TEST

JERRARKRRRRARRCRARARRARANARR

TEST

Armaaa v

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

;

000040
017466
020000
040000
000100

TST40:

A AR AR

MSTCLR

BIT
BEQ
(LR
MOV

AR AR A AR AR R AR AR A AR A AR AR AR RN AR

Ak kAR AR AR

AR AR AR R AR

TEST 40

MOV
MOV

BIT
BNE

a v aaa

#40,TSTNO
#TST4T NEXT

#BIT13,STATT
.+12
#BIT14,STATT
2%
(R1)
#100,4(R1)

;R1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DMC11

;1S LINE UNIT M8202?
sBR IF YES (DO TEST EVEN IF NC LOOP-BACK CONN)
s 1S TURNAROUND CONNECTOR ON?
sSKIP TEST IF NO
sCLEAR LINE UNIT LOOP
:LOAD PORT4

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

3489
3490
3491
3492
3493
3496
3495
349
3497
3498
3499
3501
3502
3503
3505

3507
3508
3510
3511
3512
3513
3514
gg}g

017352
017354
017356
017362
017364
017366
017372
017376
017402
017404
017406
017410
017414
017416
017420
017426
017426
017430
017434
017440
017442
017450
017452
017456
017460
017462
017464

104414
122113
104416
104414
021264
016104
042704
012705
120504
001401
104011
005061
104414
122113
104416
104414
021264
016104
042704
005005
032737
001402
052705
120504
001401
104011
104400

12:45

PAGE 68
BASIC RECEIVER TESTS

000002

000004
000223
000110

000004

1%:

000002
000004
000223
020000

001366

000010

2%:

3517

ROMCLK
122113
TIMER,
ROMCLK
021264
MOV
BIC
MOV
(MPB
BEQ
HLT
(LR
ROMCLK
122113
TIMER,
ROMCLK
021264
MOV
BIC
CLR
BIT
BEQ
BIS
CMPB
BEQ
HLT
SCOPE

SEQ 0068
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET DTR
JWAIT
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4 LU13 A
sPUT "FOUND'' IN R4
:CLEAR_UNWANTED BITS
;PUT "EXPECTED'' IN RS
1S MRDY SET?

4(R1) ,R4
#223.R¢
#110,RS
RS,R4
1%
1
4(R1)

;ERROR, MRDY NOT SET
;CLEAR PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;sCLEAR DTR

2
4(R1) ,R4
#223,Ré
RS
#BIT13,STATI
.+6
#MIT3,RS
RS5.R4
P 3
1"

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LU13
sPUT "FOUND'' IN R4
:CLEAR_UNWANTED BITS
sPUT "EXPECTED''
IN RS
;IS LINE UNIT mM8202?
;BR IF NO
JMRDY SET ON M8202
1S MRDY CLEAR?
JERROR, MRDY NOT CLEAR
;SCOPE THIS TEST

3518

JRRRARKANRARAARAARNARARARANRY

3519

;*CABLE TURNAROUND TEST

3521

s*VERIFY THAT ALL MODEM SIGNALS ARE SET

3520

3523

gggg

3537
538
3539
3540
3541
3542
3543
3544

At a A vk a

kA kAR

AR AR AR AR

s*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO

3522

3526
3527
3528
3529
353C
3531
532
533
3534
3535

TEST 4]

;
017466
017474

012737
012737

017502
017504
017512
017514
017522
017526
017530
017536
017540
017542
017546
017554
017556
017560
017564
017566

104412
032737
001004
032737
001442
012711
012761
104414
122113
104416
012761
104414
122111
004537
030126
000100

000041
017532

001226
001216

020000

001366

040000

001366

004000
000100

000004

000002

000001

027644

000004

TST41:

AR AR AR

AR AR AR RN AN RN

ARRAARRRRA AR RARARRRRRRRR AR AR

TEST 41

MOV
MOV

MSTCLR
BIT
BNE
BIT
BEQ
MOV
MOV
ROMCLK
122113
TIMER,
MOV
ROMCLK
122111
JSR
ME SDAT
64.

#41,TSTNO
HTST&2 NEXT

#IT13,STATI
412

#MIT14,STATI
1%
#BIT11,(RY)

#100,
2

#1,4(R1)
RS ,MESLD

4(R1)

sR1 CONTAINS BASE DMC11 ADDRESS
JMASTER CLEAR DM(C11

2IS LINE UNIT M8202?
sBR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN)

s 1S TURNAROUND CONNECTOR ON?
sSKIP TEST IF NO
sSET LINE UNIT LOOP

:LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sCLEAR ALL MODEM SIGNALS,EXCEPT DTR
JWAIT
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JSET SOM
JFILL OUT DATA SILO
JWITH 64 CHARACTERS

CZDME
MACYN 30A(1052)
11-SEP-78
CZDMEC.P1
11-SEP-78 12:38

3545
3546
3547

017570
017574
017576

012700
005011

12:45 PAGE 69
BASIC RECEIVER TESTS

000050

MOV
2%:

#50,RO

CLR

1%:

;PREPARE FOR DELAY

(R1)

;CLEAR LINE UNIT LOOP

ROMCLK

021264
MOV
BIC
MOV
(MPB

000004
000223
000154

SEQ 0069

BEQ
DEC
BNE
HLT
SCOPE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PORT4_LU13
“PUT "FOUND'' IN Ré
:CLEAR UNWANTED BITS

4(R1) R4
#223,R4
#154 .RS
RS.R4
1%
RO
2%

*PUT "EXPECTED''
IN RS
:COMPARE EXPECTED AND FOUND

‘BR IF 0K
:DEC DELAY COUNT
*BR IF NOT ZERO
*ERROR, ALL SIGNALS ARE NOT SET
*SCOPE THIS TEST

JRRRKRRRARRNRRRRRARRRRRIANRN

;*TEST OF

TEST

420

At nanaan e

Ak kA A

ARk A

CRC OPERATION

:*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
::ttfitttttt*fi*ti'i'tttifit'tQtfitttittitttl'fitttt!tti.'tttfititttt'

;
3570
3571
3272

017632
017640
017646

3574

017654

000042
020146
017662

TST42:

004000
027706
120001

000000
017740
027346

64%:

027342
017736

65%:

39 258
;§§§§§E§
§3§3§§§

66%:
67%:

69%:

017740

#BIT11,(R1)
PC.CLRIO
RO
#CRC16,XPOLY

sR1T CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11
;SET LU LOOP
sCLEAR BCC REGISTERS

#0,66%

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

PC.BCCLD

*LOAD OUT SILO WITH 2 SYNCS

67$

:CLEAR OLD SOF TWARE BC(

21
1

RS.,SIMBCC

“AND THE CHARACTER 0

*GET TRANSMITTER ACTIVE
*SHIFT BCC ONCE

*BUMP SHIFT COUNT

:CALCULATE SOF TWARE BCC LSB

SONE SHIFT

0
0
BCS

68$

:DATA CHARACTER
*0LD BCC
“BR IF SOFT BCC LSB IS SET

BCC

69%

:BR IF HARD BCC LSB IS CLEAR

69%

BCS

69%

“BR IF HARD BCC LSB 1S SET

60 ¢

;SHIFY SOFT DATA

HLT

68%:

#42,TSTNO

#TST4L3, NEXT
#64%,10CK

DATACLK,
DATACLK .
INC
RO

JSR

O
NO

prd

CLR
MOV
MOV

JSR

027460

017736
027344

MSTCLR
MOV
JSR

027460

017766
017772

MOV
MOV

CLR

027236

3599
3600

MOV

JSR

000021
000001

TEST &2

JSR

HLT

ROR

MOV

PC,GETQO
12

PC,GETQO
16

CALB(C,67%

*GET HARDWARE TRANSMITTER BCC LSB
:ERROR, BCC LSB IS SET

* CONT INUE

*GET MARDWARE TRANSMITTER BCC LSB

:ERROR, HARD BCC LSB IS CLEAR

;LOAD OLD SOFT BCC

CZOME

MACY11 30A(1052)

CZDMEC.P11

3601
3602
3603
3604
3605
3606
3607
3608

020000
020004
020006
020010
020016
020022
020024
020032

3610
3611
3612
3613
3614

020044
020050
020052
020056
020062

3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633

020070
020072
020074
020076
020100
020104
020106
020110
020112
020116
020120
020122
020122
020126
020134
020140
020142
020144

3609

3615

020040

020064

_11-SEP-78

11-SEP-78 12:38

022700
001346
104401
012737
004737
005000
012737
012737

005037

004737
000000
104415
104415
005200
004537

000001
000000
000000
103405
004737
103006
104013
000404
004737
103401
104017
006037
013737
022700
001346
104401
104400

12:45

PAGE 70

BASIC RECEIVER TESTS

000010
020016
027706

001220

120001
000000

027342
020072

020074

71%:

CLR

027346
000032
000001

72%:

027236

027472

75%:
76%:
020074

77%:

2636

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

1
0
0
B(S
JSR
BCC
HLT
B8R
JSR
B(CS
HLT

;CLEAR OLD SOF TWARE BCC

RS,SIMBCC

s CALCULATE SOFTWARE BCC LSB

75%
PC,GETQI
76%
13
76%
PC,GETQI
76%
17

ROR
MOV
CMP
BNE
SCOP1
SCOPE

sDONE YET?
*BR IF NOT DONE
sSCOPE SUBTEST (Sw09=1)
:NEW SCOPE1
sCLEAR BCC REGISTERS
START SHIFT COUNTER AT ZERO
:LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BC(CC

74$

JSR
PC.BCCLD
0
DATACLK,
32
DATACLK,
1
INC
RO
JSR

’3$:
74%:

020072
027344
000010

(MP
BNE
SCOP1
MOV
JSR
CLR
MOV
MOV

SEQ 0070

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

LOAD OUT SILO WITH 2 SYNCS
AND THE CHARACTER 0
GET RECEIVER ACTIVE
*SHIFT BCC ONCE
:BUMP SHIFT COUNT

JONE SHIFT
;DATA CHARACTER
;0LD 8CC
;sBR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BCC LSB
BR IF HARD BCC LSB IS CLEAR
sERROR, BCC LSB IS SET
* CONT INUE
GET HARDWARE RECEIVER BCC LSB
BP IF HARD BCC LSB IS SET
sERROR, BCC LSB IS CLEAR
sJSHIFT SOFT DATA
sLOAD OLD SOFT BCC
;DONE YET?
BR IF NOT DONE
sSCOPE SUBTEST (SW09=1)
SCOPE THIS TEST

JRRERRRRRRNRRRARARRRARRAARARY

3637
3638

[EST

mnaa o n e e e v kA kA A AR AN R AR AR

s*TEST OF CRC OPERATION
s*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER

3639

'377 VERIFY THE LSB OF THE BCC ON EACH SHIFT

3640

*TEST TRANSMITTER FIRST THEN THE RECEIVER B(C

3642
3&2

3641

;;utnntnntutw:ntttt-ttt'»nn'nttttttttatntt-tttn.ta-nttn'tt-att-'

3645
3646
3647

020146
020154
020162

012737
012737
012737

3649
3650
3651
3652
3653
3654
3655
3656

020170
020172
020176
020202
020204
020212
020220
020224

104412
012711
004737
005000
012737
012737
005037
004737

3648

000043
020462
020176

001226
001216
001220

004000
027706
120001
000377
020254
027346

TST43:

64%:

027342
020252

TEST 43

MOV
MOV
MOV
MSTCLR
MOV
JSR
CLR
MOV
MOV
(LR
JSR

#43,TSTNO
HTST4L4 NEXT
#648,L0CK

#MIT11,(R1)
PC,CLRIC
RO
lCRC16.XPOLV
03 .66%;
PC BCCLD

.R1 CONTAINS BASE DMC11 ADDRESS

MASTER CLEAR DMC11
sSET LYLOOP
*CLEAR BCC REGISTERS
sSTART SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE B(C
sCLEAR OLD SOF TWARE B(CC
sLOAD OUT SILO WITH 2 SYNCS

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

3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673

3674

3675
3676
3677
3678
3679
3680
3681
3682

3683
3684

3685
3686
3687

020230
020232
020236
020242
020244
020250
020252
020254
020256
020260
020
020266
020270
020272
020276
020300
020302

020302

020306
020314
020320
020322
020324
020332
020336
020340

020346
020354

020360
020364
020366

000377
104415
104415
005200
004537
000001
000000
000000
103405
004737
103006
104012
000404
004737
103401
104016
006037

013737
022700
001346
104401
012737
004737
005000
012737

000021
000001

66%:
67%:

027460

020254

020332
027706

001220

120001

027342

004737
000377
104415

027346

020410

006037

020406

3705
3706
3707
g;gg

020450
020454
020456
020460

022700
001346
104401
104400

000010

3710

013737

71%:

020406

000032
000001

020372
020376
020400
020404
020406
020410
020412
020414
020420
020422
020424
020426
020432
020434
020436
020436

020442

698:

027344
000010

3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703

3704

68%:

020252

000377

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

65%:

027236

012737

005037

12:45 PAGE 71
BASIC RECEIVER TESTS

CLR

027236
73%:
74%:
027472

027344

ROR

MOV
(MP
BNE
SCOP1
MOV
JSR
CLR
MOV

MOV

72%:

027472

377
DATACLK,
21
DATACLK,
1
INC
RO
JSR
R5,SIMBCC
1
0
0
B(CS
68%
JSR
PC,GETQO
BCC
69%
HLT
12
BR
69%
JSR
PC,GETQO
BCS
69%
HLT
16

75%:
76%:

020410

CALBCC,67%
#10,R0
65%
#71%,L0CK
PC,CLRIO
RO
#CRC16,XPOLY

#3773

JSR
PC BCCLD
377
DATACLK,
32

DATACLK,
1
INC
RO
JSR
R5,SIMBCC
1
0
0
BCS
75%
JSR
PC,GETQI
B8CC
76%
HLT
13
BR
76%
JSR
PC,GETQI
BCS
76%
HLT
17

;AND THE CHARACTER 377
sGET TRANSMITTER ACTIVE
:SHIFT BCC ONCE
:BUMP SHIFT COUNT
s CALCULATE SOFTWARE BCC LSB
sONE SHIFT
sDATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS SET
sGET HARDWARE TRANSMITTER B(CC LSB
:BR IF HARD BCC LSB IS CLEAR
sERROR, BCC LSB IS SET
: CONT INUE
.GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS SET
;ERROR, HARD BCC LSB IS CLEAR
sSHIFT SOFT DATA

.LOAD OLD SOFT BCC
;DONE YET?
:BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
:NEW SCOPE1
:CLEAR BCC REGISTERS
sSTART SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BCC

;LOAD CHAR FOR SOF TWARE BCC

;CLEAR OLD SOFTWARE BCC

sLOAD OUT SILO WITH_ 2 SYNCS
:AND THE CHARACTER 377
sGET RECEIVER ACTIVE
sSHIFT BCC ONCE
:BUMP SHIFT COUNT
s CALCULATE SOFTWARE BCC 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
cERROR, BCC LSB IS SET
: CONT INUE
GET HARDWARE RECEIVER BC(C LSB
:BR IF HARD BCC LSB IS SET

;ERROR, BCC LSB IS CLEAR

ROR

73%

sSHIFT SOFT DATA

(MP
BNE
SCOP1
SCOPE

#10,R0
72%

:DONE YET?
:BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
:SCOPE THIS TEST

MOV

77%:

66%

SEQ 0071

CALBCC,74%

:LOAD OLD SOFT BCC

3711

JRNRRRRRN. vhnnrnwrnnnnnnnnnn

3712

;*TEST OF CRC OPERATION

[FST

tannmnnannnnnnnnnnnrnennnnnn

MACY11 30A(1052)

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

12:45 PAGE 72
BASIC RECEIVER TESTS

SEQ 0072

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 BCC
: AL

b
o
e

noroNY
N =N
oo

000044
020776
020512

388

=lele]

:
TST44:

64%:

027342
020566

MOV

MOV
MOV

FINROKIISS2YS

66%:
67%:

027460

68%:

020566
027344
000010

020646
027706

69%:

020570

001220

027342
020722

738:

74%:

PC.BCCLD

21
1

;R1

CONTAINS BASE DMC11 ADDRESS

sMASTER CLEAR DMC11
:SET LU LOOP
sCLEAR BCC REGISTERS
sSTART SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR_SOF TWARE BCC

sCLEAR OLD SOF TWARE BCC
LOAD OUT SILO WITH 2 SYNCS
AND THE CHARACTER 125
GET TRANSMITTER ACTIVE
sSHIFT BCC_ONCE

:BUMP SHIFT COUNT
s CALCULATE SOFTWARE BCC LSB
JONE SHIFT
;DATA CHARACTER
;0LD BCC

{sn

RS,SIMBCC

0
0
BCS

68$

BCC
HLT
BR
JSR
BCS

69%
12
£9%
PC,GETQO
69%
16

;GET HARDWARE TRANSMITTER BCC LSB
sBR IF HARD BCC LSB IS CLEAR
;ERROR, BCC LSB IS SET
- CONT INUE
:GET HARDWARE TRANSMITTER BCC LSB
sBR IF HARD BCC LSB IS SET
;ERROR, HARD BCC LSB IS CLEAR

ROR

66$

sSHIFT SOFT DATA

HLT

BNE
SCOP1
MOV
JSR

CLR
MOV

PC,GETQO

CALBCC,67$%
#10.R

65%

#71%,L0CK
PC,CLRIO

RO
#CRC16,XPOLY

#125.7%s.;
74$

JSR
PC.BCCLD
125
DATACLK,
32
DATACLK,
1

INC

#sn
020724

PC.CLRIO

125
DATACLK,
DATACLK .
INC
RO

CLR

72%:

#TST4LS NEXT
#64$,10CK

RO
#CRC16,XPOLY
#125,66%;
67

MOV

125

#44 ,TSTNO

CLR
MOV
MOV
CLR

MOV
CMP

71%:

itttz

#BIT11, (R1)

JSR

027460

MOV

JSR

65%:

AR AR

TEST 44

MSTCLR

004000
027706

CZDME

CZDMEC.P1

0
0

RS,SIMBCC

BR IF

SOFT BCC LSB IS SET

;LOAD OLD SOFT BCC
;DONE YET?
:BR IF NOT DONE

;SCOPE SUBTEST (Sw09=1)
*NEW SCOPE1
:CLEAR BCC REGISTERS

sSTART SHIFT COUNTER AT ZERO
sLOAD POLYNOMIAL FOR SOF TWARE BC(C
;LCAD CHAR FOR SOF TWARE BCC

sCLEAR OLD SOF TWARE BCC
sLOAD OUT SILO UITH 2 SYNCS
SAND THE CHARACTER 125
JGET RECEIVER ACTIVE
sSHIFT BCC _ONCE

:BUMP SHIFT COUNT

sCALCULATE SOF TWARE B(C LSB
SONE SHIFT
;DATA CHARA(CTER
:0LD BCC

222

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

3769
3770
3773

020726
020730
020740

103405
004737
103006

12:45

PAGE 73

BASIC RECEIVER TESTS

027472

BCS
JSR

75%
PC,GETQI

;sBR IF SOFT BCC LSB IS SET
;GET HARDWARE RECEIVER BCC LSB

027472

75%:

HLT
BR
JSR

13
76%
PC,GETQI

;ERROR, BCC LSB IS SET
s CONT INUE
GET HARDWARE RECEIVER BCC LSB

768

HLT

sERROR, BCC LSB IS CLEAR

BCC

104013

000404
004737
103401
104017

006037
013737

SEQ 0073

020722
027344
000010

76%

BCS

76$

ROR
MOV
CMP

020724

77%:

BNE
SCOP1

733
CALBCC,74%
#10,R0

SCOPE

:BR IF HARD BCC LSB IS CLEAR

:BR IF HARD BCC LSB IS SET
sSHIFT SOFT DATA
LOAD OLD SOFT BCC
sDONE
YET?

BR IF NOT DONE
;SCOPE SUBTEST (Sw09=1)
SCOPE THIS TEST

JRRRRARRRRRNRRRRRAAARRARARRAR

;*TEST OF

[EST

Anaawaan
e aaa ke Ak ek AR AR

CRC OPERATION

*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER

'2 2, VERIFY THE LSB OF THE BCC ON EACH SHIFT
tTEST

TRANSMITTER FIRST THEN THE RECEIVER BCC

;:ttfittttttttttttttt*tttttttttttttttttttttttitttttttflttttttttttt

;

3795
3796
3797

020776
021004
021012

000045
021312
021026

001226
001216
001220

000021
000001

027342

65%:

—_

027460

gSEEES
&R R g

67%:
—_—

MOV
JSR
CLR

MOV

021102

66%:

RRERNSH RO&R

64%:

027236

R
R

d
D
—d
e
d
—d
—

VO NN
W =0

RREBRRRRRRRRRgeggee

120001

MOV
MOV
MOV
MSTCLR

004000
027706
000252
021104
027346

TST45:

68%:
o8

021102

#45,TSTNO
#TSTL6 NEXT
#64%,L0CK

#IT11,(R1)
PC,CLRIO
RO

#CRC16,XPOLY

MOV
#252,66%;
CLR
67%
JSR
PC.BCCLD
252
DATACLK,
21
DATACLK,
1
INC
RO
JSR
RS5,SIMBCC
1
0

B(CS
JSR
BCC

68%
PC‘GETQO
€9%

69%

HLT

027460

TEST 45

JSR
B(S
ROR

;sR1

CONTAINS BASE DMC11 ADDRESS

JMASTER CLEAR DMC11

;SET LU LOOP
sCLEAR BCC REGISTERS
sSTART SHIFT COUNTER AT ZERO

sLOAD POLYNOMIAL FOR SOF TWARE BCC

;LOAD CHAR FOR SOF TWARE BCC
sCLEAR OLD SOF TWARE BCC
sLOAD OUT SILO WITH 2 SYNCS
AND THE CHARACTER 252
sGET TRANSMITTER ACTIVE
sSHIFT BCC ONCE
BUP SHIFT COUNT
s CALCULATE SOF TWARE BCC LSB

SONE SHIFT
;DATA CHARACTER

.0LD BCC

BR IF SOFT BCC LSB IS SET
.GET HARDWARE TRANSMITTER BCC LSB
BR IF HARD BCC LSB IS CLEAR
sERROR, BCC LSB IS SET

s CONT INUE

PC,GETQO
69%

GEY HARDWARE TRANSMITTER BCC LSB
BR IF HARD BCC LSB IS SET

66%

JSHIFT SOFT DATA

:ERROR. HARD BCC LSB IS CLEAR

11-SEP-78
CZDME
MACY11 30A(1052)
CZDMEC.P1
11-SEP-78
112:38

013737

012737

12:45 PAGE 74
BASIC RECEIVER TESTS

027344
000010

021104

021162
027706

001220

120001
000252
021240
027346

027342
0c1236

CALBCC,67%

#10.R0

*SCOPE SUBTEST (SW09=1)
*NEW SCOPE1

#71%,L0CK
PC,CLRIO

#CRC16 _XPOLY

#252,7%8;
748

027236

DATACLK,
32
DATACLK,
RO
INC
R5,SIM
R
BCC
JS
;

739
74%:

PC,GETQI

027472

76%
13
76%

75%:

PC,GETQI

76%:

021240

;LOAD OUT SILO WITH 2 SYNCS
:AND THE CHARACTER 252

:GET RECEIVER ACTIVE
:SHIFT BCC ONCE

:BUMP SHIFT COUNT
s CALCULATE SOF TWARE BCC LSB
sONE SHIFT

76%
17

:GET HARDWARE RECEIVER BCC LS3
;BR IF HARD BCC LSB IS SET
;ERROR, BCC LSB IS CLEAR

73%
CALBCC,74%

:LOAD OLD SOFT BCC

72%

021310

:LOAD POLYNOMIAL FOR SOF TWARE BCC
;LOAD CHAR FOR SOF TWARE BCC

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

75%

027472

:CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO
;CLEAR OLD SOF TWARE BCC

PC.BCCLD

72%:

;LOAD OLD SOFT 8CC
;DONE YET?

“BR IF NOT DONE

65%

000032
000001

021236
027344
000010

SEQ 0074

sSHIFT SOFT DATA

:DONE YET?
:BR IF NOT DONE

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

77%:

JRRRRANRAARRRRRNRRNRARRARRRANR

TEST

A aataa v

v e v e

kAN

A N

s*TRANSMITTER CRC TEST
;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT
IR

:
021312
021320

012
012

021326

AR A A A AR AR

AR AR AP AR AR AR AR A AR AR

MOV

MSTCLR

#MiT11,(RY)

CLR

CLR
CLR
MOV
JSR
MOV

AR AR

AR R AR

#46,TSTNO

#TST47 NEXT

MOV

CLR

TEST 46

MOV

027342

RS
3
#CRC16,XPOLY
PC.SYNLD
R4 ,4(RT)

:R1_CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DM(C11
:SET LINE UNIT LOOP
:2ERQ SIT COUNT
:R4 CONTAINS CHAR TO BE LOADED IN SILO
RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT
:CLEAR SOFT BCC
:LOAD POL YNOMINAL
:LOAD SILO WITH 2 SYNCS, SOM SET
PORT4_CHAR

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

3881
3882
3

021364
021366
021370

104414
122110
005204

3887

021400
021402
021404

122110
005204
010461

021412
021414
021420
021426
021430
021434
021440
021442
021444
021446
021450
021454
021456
021460
021462
021466
021470

122110
004737
104415
010537
104415
004537
000001
000000

021372

010461

3885 021376 104414
3889 021410 104414
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
%
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926

021472
021472
021476
021504
021506
021512
021514
021516
021520
021524
021526
021532
021534
021536
021540
021544
021546

103405
004737
103006
104020
000404
004737
103401
104021

006037
013737
005203
022703
001346
005003
005204
022704
003404
010461
104414
122110
005205
022705
001327
104400

12:45 PAGE 75
BASIC RECEIVER TESTS

000004

ROMCLK
122110
INC

MOV

000004

122110
INC
MOV

R4
R4,4(R1)

ROMCLK

.
026374
000021
021442
000001
027236

1%:
2%:
3%:
4%:

027460

021442
027344

5%:

6$:

021444

000010

000400
000004

9%:

000400

7%:

R4 ,4(R1)

SEQ 0075

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DAT
s INCREMENT TO NEXT CHARACTER

:PORT4_CHAR

hEXT QRD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DAT.
s INCREMENT TO NEXT CHARACTER
:PORT4_CHAR

NEXT WRD IS INSTRUCTION, ROMCLK PC=5304

122110
JSR
PC,OCOR
DATACLK,?21
MOV
R5,3%
DATACLK,1
JSR
R5,SIMBCC
1
0
0
BCS
5%
JSR
PC,GETQO
BCC
6%
HLT
20
BR
6%
JSR
PC,GETQO
B(CS
6%
HLT
21

;LOAD OUT DAT
:WAIT FOR OCM
sCLOCK DATA
sLOAD CHAR FOR SOFT CRC
sSHIFT BCC ONCE
s CALCULATE SOFT BCC
;SOFT SHIFT COUNT
;SOFT CHARACTER
;OLD SOFT BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE TRANSMITTER BCC LS8
sBR IF OK (CLEARED)
sERROR, BCC LSB WAS SET
JCONTINUE WITH TEST
;GET HARDWARE TRANSMITTER BCC LSB
JBR IF OK (SET)
;ERROR, BCC LSB WAS CLEAR

ROR
MOV
INC
(MP
BNE
CLR
INC
CMP
BLE
MOV
ROMCLK
122110
INC
cMP
BNE
SCOPE

sSHIFT SOFT DATA
;LOAD OLD SOFT BCC
s INCREMENT BIT COUNTER
:DONE A FULL CHARACTER YET?
:BR
IF NO
sRESTART BIT COUNTER
s INCREMENT DATA FOR SILO
'DM BINARY COUNT YET?
;BR IF YES
;PORT4 _DATA
*NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DAT
s INCREMENT DATA
:DONE BINARY PATTERN YET?
:BR
IF NO
;SCOPE THIS TEST

3
CALBCC,4%
R3
#10,R3
2%
R3
R4
#400,R4
9%
R4 ,4(R1)
RS
#400,R5
1%

3927

JRNRRRRRNRNARNKARANRRRAANRNN

3929
3930

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

3928

J*RECEIVER CRC TEST

3931

3932

z
ggg
3935 021550 012737 000047 001226
3936

021556

012737

022006

001216

MOV

e a e a v

e A

kA kAR AR AR AR

AN AR AR R A AR R AR AR AN AR AN R R AN AR AN AR AR AR AR R RN CRRARR R AR

; TEST 47
7T5T47:

TEST 47

#57 ,TSTNO

#1550, NEXT

CZOME

MACY11 30A(1052)

CZDMEC.P11

3937

3938

021564

104412

3939

021566

012711

3942

021576

005005

3940
3941
3943

021572
021574

021600

005003
005004
005037

3944
3945
3946

021604
021612
021616

012737
004737
010461

3948

021624

122110

3947 021622 104414
3949
3950

021626
021630

005204
010461

3952

021636

122110

3951 021634 104414
3953

021640

005204

3956

021650

122110

3954

021642

11-SEP-78

11-SEP-78 12:38

021702

120001
027510
000004

021662

010537

021672

004537

3958

021656

3960

021666

3961

3962
3963
3964
3965
3966
3967
3968

3969

3970
3971
%g;%
3974

021676
021700
021702
021704
021706
021712
021714

021716

021720
021724
021726
021730

104415

000032

104415

000001

000001
000000
000000
103405
004737
103006
104022

000404

027472

006037
013737

021700
027344

3978
3979

021744
021750

022703
001346

000010

022704

000400

010461

000004

3980
3981

021752
021754

005003
005204

3983

021762

003404

3982

021756

3984

021764

3986

021772

3985 021770 104414
3987
3988
3989
gggg

021774
021776
022002
022004

122110

005205
022705
001327
104400

#CRC16,XPOLY
PC,SYNLD
R4 ,4(R1)

“LOAD POLYNOMINAL
LOAD SILO WITH 2 SYNCS, SOM SET
*PORT4 CHAR

ROMCLK
INC

MOV

ROMCLK

122110

1%:

2%:

027472

004737
103401
104023

005203

“RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

MOV
JSR
MOV

3%:
4%

021730
021734
021742

INC
MOV

027236

3975
3976

3977

CLR

ROMCLK

021700

000400

5%:

6%:

021702

R4
R4,4(R1)
R4

R4 ,4(R1)
PC,0COR

MOV

RS,3$

JSR

RS,SIMBCC

;ZERO BIT COUNT
*R4 CONTAINS CHAR TO BE LOADED IN SILO

*CLEAR SOFT BCC

*NEXT DORD xs INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DAT

2 INCREMENT ro NEXT CHARACTER
*PORT4 CHAR

*NEXT DORD xs INSTRUCTION, ROMCLK PC=5304

;LOAD OUT DAT

; INCREMENT ro NEXT CHARACTER

*PORT4 CHAR

*NEXT Doao IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

*WAIT FOR OCOR

DATACLK,32

:CLOCK DATA

DATACLK,1

:SHIFT BCC ONCE

1
0
0
BCS
JSR
BCC
HLT

5%
PC,GETQI
63
22

;LOAD CHAR FOR SOFT CRC
;CALCULATE SOFT BCC

:SOFT SHIFT COUNT
:SOFT CHARACTER
:0LD SOFT BCC
;BR IF SOFT BCC LSB IS SET
:GET HARDWARE RECEIVER BCC LSB
:BR IF OK (CLEARED)
;ERROR, BCC LSB WAS SET

;CONTINUE WITH TEST

3s
CALBC(C,4$

:SHIFT SOFT DATA
;LOAD OLD SOFT BCC

CMP
BNE

#10,R3
2%

;DONE A FULL CHARACTER YET?
:BR IF NO

(MP

#400,R4

:DGNE BINARY COUNT YET?

MOV

R4 ,4(R1)

JSR
BCS
HLT

ROR
MOV

CLR
INC

BLE

ROMCLK

7%:

R3
Ré

JSR

INC

9% :

JMASTER CLEAR DMC11

JSET LINE UNIT LOOP

122110

026374

;R1 CONTAINS BASE DMC11 ADDRESS
#8IT11,(R1)

CLR

027342

SEQ 0076

MOV
CLR
CLR

000004

3957

004737

MSTCLR

122110

3955 021646 104414
021652

PAGE 76

BASIC RECEIVER TESTS

004000

000004

3959

010461

12:45

122110

INC
CMP
BNE
SCOPE

PC,GETQI
6%
23

R3
R4

RS
#400,RS
1%

:GET HARDWARE RECEIVER BCC LSB
;BR IF OK (SET)
;ERROR, BCC LSB WAS CLEAR

; INCREMENT BIT COUNTER

;JRESTART BIT COUNTER
: INCREMENT DATA FOR SILO

“BR IF YES

*PORT4 DATA

SNEXT Doao xs INSTRUCTION, ROMCLK PC=5304
;LOAD DUT DAT

: INCREMENT DATA
*DONE BINARY PATTERN YET?
*BR IF NO
:SCOPE THIS TEST

CZDME

MACY1 30A(10;2)12113§SEP-78

CZDMEC.P11

11-SEP-78

12:45

PAGE 77

BASIC RECEIVER TESTS

3993

SEQ 0077

JRRARARRARANARARAACRARARARAx [EST SO AR AN RRARR AR AR R AR

AR AR

3994
3995
3996

s*TRANSMITTER DDCMP CRC TEST
s*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC
s*BOTH DATA AND THE BCC ARE VERIFIED IN THE gIT

3998

;*THE TRANSMITTER IS CHECKED FOR GOING TO A'MARK STATE AFTER THE BCC

3997

;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252,377

30999

4000

2%}

;

4003
4004

022006
022014

012737
012737

2%9

022022

104412

4005

000050
022340

001226
001216

TST50:

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

022106
022114
022120

012737
010537
004537

4033
4034
4035
4036
4037
4038
4039

022126
022130
022132
022140
022144
022146
022150

000000
000000
013737
104415
106002
103005
004737

4041
4042
4043

0221
022160
022162

104006
000404
004737

4045
4046
4047
4048

022170
022172
022172
022174

104006

4044

#50,TSTNO
#TSTST1 NEXT

;sR1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DMC11

004000
030126
022130
000004
027510
026526
027644
027620
026374
000022

12%:

MOV
#IT11,(R1)
MOV
#ME SDAT R4
CLR
108
MOV
#4 ,RO
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS ,MESLD
MESDAT
4
JSR
PC.EOM
JSR
PC,OCOR
CLR
R3
DATACLK,22
MOVB
(R4) + RS
MOV
RS .R2

JSET LINE UNIT LOOP
;LOAD POINTER TO DATA
sCLEAR SOFT BCC
;LOAD CHARACTER COUNT
sLOAD 2 SYNCS IN OUT SILO
JWAIT FOR OUTRDY
;LOAD SILO WITH & CHAR MESS
sADDRESS OF MESSAGE
sNUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
JWAIT FOR OCOR
;sCLEAR BIT COUNTER
;CLOCK DATA
;LOAD RS WITH CHAR
;LOAD R2 WITH CHAR

sCHECK FIRST FOUR CHARACTER MESSAGE
;IN THE BIT WINDOW (0,125,252.377)

4029
4030
4031

4040

MOV
MOV

;LOAD OUT DATA SILO

4026
2%;

RRA A AR

TEST S0

MSTCLR

2%
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
ll:gglso

A R AN AR AR AN RN AR AR AR

0221246

022154

022166

000010

103406
103001

005203
022703

120001
022126
027236

027342

MOV
MOV
JSR

;LOAD POLYNOMIAL
sLOAD SOFT CHAR FOR BCC
s CALCULATE SOFT BCC

JSHIFT COUNT

026342

0
0
MOV
CALBCC,10%
DATACLK,
1
RORB
R2
BCC
65%
JSR
PC,GETSI

026342

HLT
BR
JSR

6
66$%
PC,GETSI

sERROR, BIT WINDOW WAS A SPACE
2 CONT INUE
;LOOK AT BIT WINDOW

HLT

JERROR, BIT WINDOW WAS A MARK

027344
000001

022130

67%:
10%:

#CRC16,XPOLY
R5.,67%
RS,SIMBCC

64%:

BCS

65%:
66%:

000010

BCC

INC
(MP

66$

R2
#10,R3

;CHARACTER
;0LD BCC
sLOAD SOFT BCC FOR NEXT SHIFT
sSHIFT DATA IN TO BIT WINDOW
sJSHIFT SOFT DATA
;BR IF A SPACE
;LOOK AT BIT WINDOW

:BR IF OK (MARK)

:BR IF OK (SPACE)

JBUMP BIT COUNTER
DONE FULL 8 BITS YET

gr—

11-SEP-78
CZDME
MACY11 30A(105 )
CZDMEC.P1
11-SEP=7 12:38

4049

12:45 PAGE 78
BASIC RECEIVER TESTS

001357
005003
005300
001335

BNE

648

BNE

12%

CLR
DEC

SEQ 0078
;BR_IF NO

R3
RO

sCLEAR BIT COUNTER
:DEC CHARACTER COUNT
:BR IF NOT DONE YET

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
027344
000001

68$:

026342

MOV
CALBCC,RO
DATACLK, 1
ROR
RO
BCC
698
JSR

PC,GETSI

BCS

708

HLT

026342

698 :

70%:

000020

B8R

708

JSR

PC,GETSI

HLT

BCC

708

INC
CMP
BNE

sSHIFT HARDWARE BCC
sSHIFT SCFT BCC
:BR IF CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF 0K (MARK)
;ERROR, CRC WRONG (SPACE)
: CONT INUE
:LOOK AT BIT WINDOW
:BR IF OK (SPACE)

:ERROR, CRC WRONG (MARK)

R3
#20,R3
68$

CLR

;PUT BCC IN RO

;BUMP BIT COUNTER

sFINISHED BCC YET?
:BR_IF NO
sCLEAR BIT COUNTER

;CHECK TO SEE IF TRANSMITTER IS MARKING
000001

026342

000007

2%:

JSR

PC,GETSI

HLT

8CS

3%:

000010

000001
026342

DATACLK,

4%:

000020
5%:

INC

CMP
47 .R3
BNE
2$
DATACLK,
CLR
R3

DATACLK,
1
JSR
PC,GETSI

BCS
HLT
INC
CMP
BNE
SCOPE

L+
24
R3
#20,R3
43

sCLOCK TRANSMITTER
;LOOK AT WINDOW
;1T SHOULD BE MARKING
;ERROR, BIT WAS A SPACE
;BUMP BIT COUNTER

;DONE YET
:BR IF NO
;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
;CLEAR BIT COUNTER
sSHIFT QUT NEXT BIT
;LOOK AT BIT WINDOW
sBR IF IT IS A MARK
;ERROR, TRANSMITTER IS NOT MARKING
sINC BIT COUNT
;DONE YET?
;BR IF NO
;SCOPE THIS TEST

JRRRRRRRRRRRNRARKARANARANNRARY

TEST

Aada

v Ak Ak kA kAR Rk

;*RECEIVER DDCMP CRC TEST

;*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC

s*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH.
s*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

2 TR AR A AR A A A AR A AR R AR AR AR A A AR A A AR AR A AR AR AR AR AR AR AR AR AR AR AR AR

TEST &'

[

|
|

CZDME
MACYN 30A(10;S)
11=SEP=78
CZDMEC.P11
11-SEP-78
12:38

4105 022340 012737 000051 001226 TSTS1: MOV

2}89

022346

012737

4108

022354

104412

4109
4110

022356
022362

012711
012702

022376

004737

4111
411§

022
022372

6114
4115
4116
4117
4118

4120
4121
6122
4123
4124
4125
4126
4127
4128
6129
4130
4131
4132

4113

4119

4133
413
4135

4136
4137
4138
4139
4140
4141
4142

12:45 PAGE 79
BASIC RECEIVER TESTS

004737
104414
021204
016104
112205
120504
001401
104010

022474
022476
022500

022526
022532
022534
022536
022542

4153

022552

4155

022556

4156
4157
4158

2}23

MOV
JSR

JSR
ME SDAT
4
JSR
JSR

027620

026374

000114

027202

3$:

000004

1%:

104414

000004
000376

'A ¥

#4,RO
PC.SYNLD

RS .MESLD

PC,EOM

PC.0COR

DATACLK,114

JSR
ROMCLK
021204
MOV
MOVB
CMPB
BEQ
HLT

PC, INRDY

4(R1) R4
(R2)+.RS
RS,R4
1%
10

ROMCLK

021244
MOV
BIC
CLR
(MPB
BEQ
HLT
DEC
BNE

:R1 _CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DMC11
:SET LINE UNIT LOOP

:LOAD POINTER TO DATA
:LOAD CHARACTER COUNT
:LOAD 2 SYNCS IN OUT SILO
:WAIT F(R_OUTRDY
:LOAD SILO WITH 4 CHAR MESS
:ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS
:LOAD GARBAGE CHARACTER, WITH EOM SET
:WAIT FOR_OCOR
:CLOCK_DATA
:WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET IN DATA

:PUT "FOUND'' IN R4
:PUT "EXPECTED'* IN RS

:COMPARE RECEIVED DATA
‘BR_IF_OK

*DATA ERROR
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1) R4
#376 R4

RS
R5,R4
4$
15
RO
38

;PUT "FOUND'' IN R4

sCLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS

:1S IN BCC MATCH STILL CLEAR?
s IN BCC MATCH ERROR
sDEC CHARACTER COUNT
;BR IF NOT DONE YET

;CHECK TO SEE THAT IN BCC MATCH IS SET

4147
4148
4149
4150
4151

4154

PC.OUTRDY

022453
022432
022436
022436
022442
022444
022446
022450
022452
022452
022454
022456
022

022502
022506
022510
022512

4152

JSR

027644

021244
016104
042704
5005
120504
001401
104015
S
001352

#TSTS2 NEXT

026526

004537
030126
oooog«
004737
004737

022
022470
022472

MSTCLR

SEQ 0079

4S1.ISTNO

#BIT11,(R1)
MMESDAT ,R2

02242
022406
022410
022412
022416

104415

MOV

MOV
MOV

000004
027510

022422

001216

004000
030126

012700
0047§7

4143
4144
4145

4146

022566

8 7

022520

004737
104414
021204
116137

042737
004737
104414
021244
016104
042704

022546

012705

022554

001401

022560
022560
022562

022564

120504

104015

104414
021204

104400

027202

000004

177400

027202

JSR
ROMCLK
021204
MOVB

001252

BIC

JSR
ROMCLK
021244
MOV
BIC

000004
000376

000001

#177400, TEMP3
4(R1) R4
#376 R4

:PUT *FOUND'' IN R4

4(R1),TEMP3
PC, INRDY

#1,RS

BEQ

258

HLT

ROMCLK
021204

SCOPE

sWAIT FOR INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET FIRST HALF OF CRC
;PUT IN TEMP3
:CLEAR HI BYTE
sWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MOV

(MPB

25%:

PC. INRDY

:CLEAR UNWANTED BITS

RS .R&

:PUT "EXPECTED'* IN RS
;1S IN BCC MATCH SET?

2 IN BCC MATCH ERROR

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET LAST HALF
;SCOPE THIS TEST

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

12:45 PAGE 80
BASIC RE CEIVER TESTS

SEQ 0080

JRRRRRRRNRRRARARARRRRRAARNRAN

TEST

ek A a v r et

a Ak enn

:+DDCMP EOM FUNCTION TEST
:«THIS TEST LOADS OUT SILO WITH: 2 SYNCS.4 CHAR MESSAGE ,EOM

4164

EOM, THE DATA STREAM IS CHECKED TO BE

‘w4 CHARACTER MESS

i#4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
:#THE CHARCTERS LOADED WITH EOM SET ARE LOST

;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW
:#THE FOUR CHARACTER MESSAGE IS 0,125,252,377
:*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED
s IR

;

022566
022574

000052
023666

001226
001216

TSTS2:

022602

R AR AR AR

A AR AAARAAAAAAAAAAAA

AR AR AR AR

TEST 52

MOV

#52,TSTNO

#TSTS3, NEXT

MSTCLR

;R1 CONTAINS BASE DMC11 ADDRESS
*MASTER CLEAR DMC11

;LOAD OUT DATA SILO

022604

004000
030126
022724
000004
027510
026526
027644

MOV

#BIT11,(R1)

sSET LINE UNIT LOOP

CLR
MOV
JSR
JSR
JSR
ME SDAT

108
#4 RO
PC,SYNLD
PC.OUTRDY
R5,MESLD

:CLEAR SOFT BCC
sLOAD CHARACTER COUNT
;LOAD 2 SYNCS IN OUT SILO
;WAIT FOR OUTRDY
;LOAD SILO WITH 4 CHAR MESS
sADDRESS OF MESSAGE

MOV

4
JSR

027620
027644

JSR

MESDAT
4
JSR

027620
026374
000022

12%:

#MESDAT ,R4

PC,EOM

sNUMBER OF CHARACTERS
:LOAD GARBAGE CHARACTER, WITH EOM SET

PC,EOM

sADDRESS OF MESSAGE
sNUMBER OF CHACTERS
;SET EOM

(R4)+,R5

;LOAD RS WITH CHAR

R5,MESLD

JSR
PC,O0COR
CLR
R3
DATACLK, 22

MOvB

MOV

:LOAD POINTER TO DATA

R5.R2

;LOAD FOUR MORE CHARACTERS

;WAIT FOR OCOR
;CLEAR BIT COUNTER
;CLOCK DATA

;LOAD R2 WITH CHAR

sCHECK FIRST FOUR CHARACTER MESSAGE

2IN THE BIT WINDOW (0,125,252,377)
027342

027344
000001

022750

026342

MOV
MOV

JSR

120001
022722
027236

67%:

022724

108:

64%:

#CRC16,XPOLY
RS,67%

R5.SIMBCC

0
0

MOV
CALBCC,108
DATACLK,
1
RORB
R2
BCC
65%
JSR
PC,GETSI]

BCS

66$

:LOAD POLYNOMIAL
:LCAD SOFT CHAR FOR BCC

*CALCULATE SOFT BCC
*SHIFT COUNT

*CHARACTER
:0LD BCC

*LOAD SOFT BCC FOR NEXT SHIFT
*SHIFT DATA IN TO BIT WINDOW
:SHIFT SOFT DATA
‘BR IF A SPACE
*LOOK AT BIT WINDOW

‘BR IF OK (MARK)

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

6217

022752

104006

4218
4219

022754
022756

000404
004737

4221
4222
4223
4224
4225
4226
4227
25%3

022764
022766
022766
022770
022774
022776
023000
023002

104006

4220

022762

12:45 PAGE 81
RASIC RECEIVER TESTS

103001

005203
022703
001357
005003
005300
001335

HLT

026342

65%:
668 :

000010

2%%(1)

023004
023010
023014
023016
023020

013700
104415
006000
103005
004737

4238
4239

023026
023030

104014
000404

023036

103001

4240

4241

4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
252%

023024

023032

023040
023042
023042
023044
023050
023052
023054
023060
023064
023070
023072

103406

004737

027344
000001

68%:

026342

69$:

104014
005203
022703
001357
005003
012700
012704
005037
112405
010502

708:
000020
000004
030126
023116

138:

25§§
023074
023102
023106
023112
023114
023116
023120
023126
023132
023134
023136

012737
010537
004537
000010
000000
000000
013737
10441S
106002
103005
004737

4268
4269

023144
023146

104006
000404

4271

023154

4270

4272

HLT

INC
CMP
BNE
CLR
DEC
BNE

;ERROR, BIT WINDOW WAS A SPACE
* CONT INUE
:LOOK AT BIT WINDOW

:ERROR, BIT WINDOW WAS A MARK

66$

‘
R3
#10,R3
64$
R3
RO

128

‘BR IF OK (SPACE)

;BUMP BIT COUNTER
:DONE FULL 8 BITS YET
*BR IF NO
*CLEAR BIT COUNTER
*DEC CHARACTER COUNT
*BR IF NOT DONE YET

MOV
CALBCC,RO
DATACLK,1
ROR
RO
BCC
69%
JSR
PC,GETSI

;PUT BCC IN RO
*SHIFT HARDWARE BCC
JSHIFT SOFT BCC
BR IF CARRY CLEAR
:LOOK AT BIT WINDOW

HLT
BR

:ERROR. CRC WRONG (SPACE)
* CONT INUE

BCS

70$

JSR

PC,GETSI

HLT

BCC

INC
cTMP
BNE
CLR
MOV
MOV
CLR
MOVB
MOV

14
70%

70$

R3
#20,R3
68$
R3
#4 RO
#ME SDAT ,Ré
11$
(R4)+.RS
RS.R2

“BR IF OK (MARK)

:LOOK AT BIT WINDOW

:BR IF OK (SPACE)

*ERROR, CRC WRONG (MARK)
:BUMP BIT COUNTER
*FINISHED BCC YET?
*BR IF NO
*CLEAR BIT COUNTER
*RESET CHARACTER COUNTER
*LOAD MESSAGE POINTER
*CLR SOFT BCC
*LOAD CHAR IN RS
:LOAD CHAR IN R2

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377)

4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266

4267

BCC

&
66$
PC,GETSI

sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

4232
4233
4234
4235
4236

4237

BR
JSR

SEQ 0081

023142

103406

023150

004737

023156

104006

103001

120001
023114
027236

027344
000001

027342

023116

768:
118:
73%:

026342

MOV
#CRC16,XPOLY
MOV
RS,76$
JSR
RS.SIMBCC
10
0
0
MOV
CALBCC,11$
DATACLK,
1
RORB
R2
BCC
743
JSR
PC,GETSI

:LOAD POLYNOMIAL
*LOAD SOFT CHAR FOR BCC
*CALCULATE SOFT BCC
JSHIFT COUNT
*CHARACTER
*0LD BCC
“LGAD SOFT BCC FOR NEXT SHIFT
sSHIFT DATA IN TO BIT WINDOW
SHIFT SOFT DATA
BR IF A SPACE
*LOOK AT BIT WINDOW

HLT
BR

6
75%

JERROR, BIT WINDOW WAS A SPACE
* CONT INUE

BCC

7-¢

BCS
74%:

JSR

HLT

75%

‘BR IF 0K (MARK)

PC,GETSI]

*LOOK AT BIT WINDOW

*ERROR, BIT WINDOW WAS A MARK

‘BR IF OK (SPACE)

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

4274

4275
4276
4277
4278
25;3

023160

023162
023166
023170
023172
023174

005203

022703
001357
005003
005300
001335

12:45 PAGE 82
BASIC RECEIVER TESTS
758%:

000010

25%}
023176
023202
023206
023210
023212

013700
104415
006000
103005
004737

4289
4290
4291

023220
023222
023224

104014
000404
004737

4293
429
4295
4296
4297

023232
023234
023234
023236
023242

104014

4292

2533

023216

023230

023244

103406

103001

005203
022703
001357
005003

027344
000001

023246
023252
023256
023260
023262
023264
023270
023272

104415
004737
103401
104024
005203
022703
001366
104415

4311

023300

104415

2;};

026342

:PUT BCC IN RO
:SHIFT HARDWARE BCC
JSHIFT SOFT BCC
“BR IF CARRY CLEAR
:LOOK AT BIT WINDOW

026342

HLT
BR
JSR

14
79%
PC,GETSI

:ERROR, CRC WRONG (SPACE)
+ CONT INUE
*LOOK AT BIT WINDOW

HLT

:ERROR. CRC WRONG (MARK)

BCS
78%:
79%:

000020

023276

023304
023310
023312
023314
023316

023322

005003

004737
103401
104024
005203
022703

001366

000001
026342

000007

2%:

000010

000001

026342

($:

000020

4326
4327
4328

INC
CMP
BNE
CLR

79%

‘BR IF OK (MARK)

*BR IF OK (SPACE)

R3
#20,R3
77%
R3

;:BUMP BIT COUNTER
:FINISHED BCC YET?
*BR IF NO
*CLEAR BIT COUNTER

DATACLK,
1
JSR
PCLGETSI
BCS
3%
HLT
24
INC
R3
CMP
#7 .R3
BNE
2%
DATACLK,
10
CLR

JSR
BCS
HLT
INC
CMP

PC,GETSI
RYA
24
oy
e
#20,R3

DATACLK,

JCLOCK TRANSMITTER
:LOOK AT WINDOW
JIT SHOULD BE MARKING
*ERROR, BIT WAS A SPACE
*BUMP BIT COUNTER
:DONE YET
*BR IF NO
sGIVE ENOUGH TICKS TO CLEAR OQUT ACTIVE
*CLEAR BIT COUNTER

*SHIFT OUT NEXT BIT

:LOOK AT BIT WINDOW
:BR IF IT IS A MARK
JERROR, TRANSMITTER IS NOT MARKING
“INC BIT COUNT
*DONE YET?

‘BR IF NO

JCHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE

2%5?

4323
4324
4325

BCC

BNE

4319
4322

:DONE FULL 8 BITS YET
*BR IF NO
*CLEAR BIT COUNTER
*DEC CHARACTER COUNT
:BR IF NOT DONE YET

;CHECK TO SEE IF TRANSMITTER IS MARKING

4302
4303
4304
4305
4306
4307
4308
4309
4312
4313
4314
4315
4316

:BUMP an COUNTER

#10,R3
738
R3
RO
138

MOV
CALBCC,RO
DATACLK,1
ROR
RO
BCC
78%
JSR
PC,GETSI

77%:

38(1)

4310

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW

4283
4284
4285
4286
4287

4288

INC

CMP
BNE
CLR
DEC
BNE

SEQ 0082

;WAS RECEIVED CORRECTLY (0,125,252.377)

023324

023330
023334
023340

023344
02336
023350

104415

012703
012702
004737

104414
021204
016104

000001

000004
030126
027202
000004

DATACLK,

408:

MOV
MOV
JSR

ROMCLK
021204
MOV

;GET LAST BIT IN RECEIVER

#4 ,R3
#MESDAT ,R2
PC, INRDY

“R3=CHARACTER COUNT
*LOAD MESSAGE POINTER IN R2
*WAIT FOR INRDY

4(R1) R4

;PUT "FOUND'' IN R4

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

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

aggg

023354

023356

332
4333
4%;@

02332
023364
023366

4331

02330

12:45 PAGE 83
BASIC RECEIVER TESTS

112205

MOVB

001401

BEQ

120504

104010
005303
001364

418:

4336

023370
023374
023376
023400

004737
104414
021204
116137

027202

4344

023414

004737

027202

4346

023406

023420

0234622

437
4348
4349

023426
023430
023434

4352

023444

4350
4351

4353
4354
4355
4356
4357

4358

4359
4360
2525

023440
023442

023446
023446
023450
023452
023460

023466
023474
023502
023504

042737

104414

021244

016104
042704
012705

120504
001401

000004

177400

001252

4372
4373
4374
4375
4376
22;;

:1S RECEIVED DATA CORRECT?

*RECEIVE DATA ERROR
:DEC CHARACTER COUNT
*BR IF NOT DONE YET

053737

023737
001401
104027

508:
000004
000377

001250
027344

4(R1),TEMP3

;WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“GET FIRST HALF OF CRC
*PUT IN TEMP3

JSR

PC, INRDY

*WAIT FOR INRDY

001251
001250

001252

#1776400, TEMP3

:CLEAR HI BYTE

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:

4(R1) R4
#376 R4
#1,RS

:PUT 'FOUND'' IN R4
:CLEAR_UNWANTED
BITS
*PUT "EXPECTED'’
IN RS

HLT

:IN BCC MATCH ERROR

ROMCLK
021204
MOVB
BIC

4(R1),TEMP2+41
#377 , TEMP2

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET LAST HALF
:PUT IN TEMP2
:CLEAR LO BYTE

CMP
BEQ
HLT

CALBCC,TEMP3
428
27

BIS

001252

PC, INRDY

MOV
BIC
MOV

CMPB
BEQ

104015

104414
021204
116137
042737

JSR
ROMCLK
021204
MOVB

021244

000004
000376
000001

RS.R&
50%

TEMP2, TEMP3

*IS IN BCC MATCH SET?

216 BIT BCC NOW IN TEMP3

:IS IT CORRECT?
“BR IF OK

;CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125.252.377)

023506
023512
023516

023522
023524
023526

023532
023534
023536
023540
023542
023544

012703
012702
004737

104414
021204
016104

112205
120504
001401
104010
005303
001364

000004
030126
027202

42%:
43%:

000004

44%:

4379

MOV
MOV
JSR
ROMCLK
021204
MOV
MOVB
CMPB
BEQ
HLT
DEC

BNE

#4 ,R3
#ME SDAT ,R2
PC, INRDY
4(R1) R4
(R2)+.RS
RS,R4
448
10
R3

433

;CHECK TO SEE

23339

4382
4383
4384

*BR IF YES

10
R3
408

ROMCLK

2332‘§

4369
437C
4371

418

HLT
DEC
BNE

BIC

4363

4366
4367
4368

:PUT "EXPECTED'' IN RS

RS,R4

:AND THAT THE BCC WAS RECEIVED CORRECTLY

4339
4340
431
4342

4345

(R2)+,RS

CMP8

;CHECK TO SEE THAT IN BCC MATCH IS SET

2%%;

4343

SEQ 0083

:R3=CHARACTER COUNT
:LOAD MESSAGE POINTER IN R2
‘WAIT FOR INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PUT "FOUND'' IN R4
*PUT "EXPECTED'' IN RS
“1S RECEIVED DATA CORRECT?
*BR IF YES
*RECEIVE DATA ERROR
*DEC CHARACTER COUNT

“BR IF NOT DONE YET

THAT IN BCC MATCH IS SET

JAND THAT THE BCC WAS RECEIVED CORRECTLY
023546
023552
023554

004737
104414
021204

027202

JSR
ROMCLK
021204

PC, INRDY

:WAIT FOR INRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“GET FIRST HALF OF

CRC

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

023556
64

116137

062737

004737
104414

021244

1776400

027202

12:45 PAGE 84
BASIC RECEIVER TESTS

001252

SEQ 0084

MOVB

4(R1),TEMP3

;PUT IN TEMP3

JSR

PC, INRDY

‘WAIT FOR INRDY

BIC

ROMCLK

021244

#177400, TEMP3

:CLEAR WI BYTE

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

016104

000004

MOV

4(R1) R4

:PUT 'FOUND'’ IN Ré4

012705

000001

MOV

#1,R5

:PUT "EXPECTED''
IN RS

042704
120504

000376

BIC

CMPB

001401

104015

106414

021204
116137

042737

053737

023737
001401

#376 R4

BEQ
HLT

RS.R&

51§
15

ROMCLK

000377

001250
027344

*CLEAR UNWANTED BITS

*1S IN BCC MATCH SET?
;IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

001251

021204
MOVB

4(R1),TEMP2+1

*GET LAST HALF
:PUT IN TEMP?

001252

BIS

TEMP2, TEMP3

:16 BIT BCC NOW IN TEMP3

001250

BIC

001252

104027
104400

CMP
BEQ
5% :

HLT
SCOPE

#377, TEMP2

CALBCC,TEMP3
5$

*CLEAR LO BYTE

:IS IT CORRECT?

‘BR IF OK

:SCOPE THIS TEST

;tt'tt.*.itttt*.fitt'.ttfitfi‘t

;*DDCMP EOM FUNCTION TEST

TEST

;*THIS TEST LOADS OUT SILO WITH:

LA 222222228 2222222222222 220 ]

2 SYNCS,4 CHAR MESSAGE,.EOM

;*SOM,4 CHAR MESS,EOM. THE DATA STREAM IS CHECKED TO BE
;*4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
;*THE CHARCTERS LOADED WITH EOM SET ARE LOST
;*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC
;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT_WINDOW
;*THE FOUR CHARACTER MESSAGE

IS 0,125,252,377

s IR

AR AR AR AR AR AR AR AR

s*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED
:

023666
023674

000053

025066

023702

001226

001216

TSTS3:

A R AR AR R AR RN

TEST 53

MOV

#53,TSTNO

HTST54 ,NEXT

MSTCLR

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11

;LOAD OUT DATA SILO

004000

MOV

#BIT11,(R1)

000004

MOV

#4 RO

030126
024030

027510
026526

027644

023754

027620
027570

027644

MOV
CLR

JSR
JSR

JSR

ME SDAT
“

JSR
JSR

JSR

sSET LINE UNIT LOOP

#ME SDAT ,R4
108

;LCAD POINTER TO DATA
;CLEAR SOFT BCC

PC,SYNLD
PC,OUTRDY

;LOAD 2 SYNCS IN OUT SILO
;WAIT FOR OUTRDY

RS.,MESLD
PC.EOM
Pc.,SOM

R5,MESLD

;LOAD CHARACTER COUNT

sLOAD SILO WITH & CHAR MESS

sADDRESS OF MESSAGE
sNUMBER OF CHARACTERS

;LOAD GARBAGE CHARACTER, WITH EOM SET
;LOAD GARBAGE CHAR WITH SOM SET

;LOAD FOUR MORE CHARACTERS

CZDME

MACY11 30A(1052)

CZDMEC.P1

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

12:45

PAGE 85

BASIC RECEIVER TESTS
QESDAT

027620
026374
000022

12%:

sADDRESS OF MESSAGE

JSR
PC,EOM
JSR
PC,OCOR
CLR
R3
DATACLK,22

MOVB
MOV

SEQ 0085

(R4)+ RS
RS5.R2

sNUMBER OF CHACTERS
;SET EOM
;WAIT FOR OCOR
sCLEAR BIT COUNTER
sCLOCK DATA

;LOAD R5 WITH CHAR
;LOAD R2 WITH CHAR

;CHECK FIRST FOUR CHARACTER MESSAGE
;IN THE BIT WINDOW (0,125,252.377)
120001
024026
027236

027342

MOV
MOV
{BR

67%:
027344
000001

024030

10%:

64%:

026342

65%:
66%:

000010

4479
4480
4481
4482
4483
4484

RORB

HLT
BR

66%

JSR
BCC

65%
PC,GETSI
66%
PC,GETSI
66%

HLT

INC
CMP

R3
#10,R3

CLR
DEC
BNE

R3
RO
12%

64%

sLOAD POLYNOMIAL
;LOAD SOFT CHAR FOR BCC
sCALCULATE SOFT BCC

sSHIFT COUNT
s CHARACTER
:0LD BCC
;LOAD SOFT BCC FOR NEXT SHIFT
sSHIFT DATA IN TO BIT WINDOW
sSHIFT SOFT DATA
:BR IF A SPACE
sLOOK AT BIT WINDOW
:BR IF OK (MARK)
ERROR BIT WINDOW WAS A SPACc
: CONT INUE
:LOOK AT BIT WINDOW
:BR IF OK

(SPACE)

:ERROR, BIT WINDOW WAS A MARK
;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
024110
024114
024120
024122
024124

013700
104415
103005
004737

027344
000001

68%:

024156

005003

ROR

69%:

69%

JSR

PC,GETSI

HLT

BCS

70%:

000020

MOV
CALBCC,RO
DATACLK,1
BCC

026342

4495

MOV
CALBCC,10%
DATACLK,
1

BNE

4478

RS,.SIMBCC

BCC
JSR
B(CS

026342

#CRC16,XPOLY
R5,67%

708

;PUT BCC IN RO

sSHIFT HARDWARE B(CC
sSHIFT SOFT BCC
:BR IF CARRY CLEAR
;LOOK AT BIT WINDOW

:BR IF OK (MARK)

BR
JSR
BC(

70%
PC,GETSI
70%

:ERROR, CRC WRONG (SPACE)
s CONT INUE
sLOOK AT BIT WINDOW
;BR IF OK (SPACE)
;ERROR, CRC WRONG (MARK)

INC
(MP
BNE
CLR

R3
#20,R3
68%
R>

sFINISHED BCC YET?
:BR IF NO

HLT

;BUMP BIT COUNTER

;CLEAR BIT COUNTER

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

12:45 PAGE 86
BASIC RECEIVER TESTS

223;
4499

4500
4501
4502
4503

;CHECK CHARACTER LOADED WITH SOM (000),
024160

024162
024164
024170
024172

005005

010502
104415
106002
103005

CLR

000001

328:

4504 024174 004737 026342

4505

024200

103406

4507
4508

024204
024206

000404
004737

4510
4511

024214
024216

104006
005203

4513
4514
4515

024224
0264226
024230

22}3

024246

4512

4516
4517
4518

024212

103001

024220

022703

026234
024240
024244

012704
005037
112405

001357
005003
012700

026342

308:
31$:

000010

000004
030126
024272

138:

010502

22%12
024250
024256

012737
010537

4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537

024266
024270
024272
024274
024302
024306
024310
024312
024316
024320
026322
024324

000010
000000
000000
013737
104415
106002
103005
004737
103406
104006
000404
004737

4539
4540
4541
4542
4543
4544
4545

024332
02433
024334
0264336
024342
024344
024346

104006

4538

2229

024262

024330

024350

004537

103001

005203
022703
001357
005003
005300

120001
024270

027342

PC,GETSI

HLT

;CHARACTER LOADED WITH SOM

*LOAD R2 WITH CHAR
*CLOCK TRANSMITTER
“SHIFT SOFT DATA
*BR IF SPACE

:LOOK
AT BIT WINDOW

31§

*BR IF OK (MARK)

31s
PC,GETSI

*CONT INUE
*LOOK AT BIT WINDOW

HLT
INC

3
R3

*ERROR,BIT WINDOW WAS A MARK
:BUMP BIT COUNTER

BNE
CLR
MOV

328
R3
#4 RO

BR
JSR

BCC

cMP

MOV
CLR
MOVB

MOV

MOV
MOV

027236
027344
000001

JSR

024272

768:
118:

73%:

.
026342

026342

74%:
75%:

000010

001335

31§

#10.R3

#ME SDAT , R4
11$
(R&4)+.RS

RS,R2

#CRC16,XPOLY
RS, 76$

RS5.SIMBCC

10
0
0
MOV
CALBCC,11$
DATACLK,
1
RORB
R2
BCC
74$
JSR
PC,GETSI
BCS
75%
HLT
6
BR
75%
JSR
PC,GETSI

BCC

:ERROR,BIT
WINDOW WAS A SPACE

*BR IF OK (SPACE)

*DONE CHARACTER YET?

*BR IF NO
*RESET BIT COUNTER
*RESET CHARACTER COUNTER

:LOAD MESSAGE POINTER
“CLR SOFT BCC
*LOAD CHAR IN RS

*LOAD CHAR IN R2

;LOAD POLYNOMIAL
*LOAD SOFT CHAR FOR BCC

*CALCULATE SOFT BCC

SSHIFT COUNT
*CHARACTER
*0LD BCC
*LOAD SOFT BCC FOR NEXT SHIFT
*SHIFT DATA IN TO BIT WINDOW
“SHIFT SOFT DATA
‘BR IF A SPACE
*LOOK AT BIT WINDOW
‘BR IF OK (MARK)
:ERROR, BIT WINDOW WAS A SPACE
* CONT INUE
:LOOK AT BIT WINDOW

HLT

‘

758

*BR IF OK (SPACE)

INC
P
BNE
CLR
DEC

R3
#10,R3
73%
R3
RO

:BUMP BIT COUNTER
*DONE FULL 8 BITS YET
*BR IF NO
*CLEAR BIT COUNTER
*DEC CHARACTER COUNT

BNE

2‘;‘-’23
4550
4551
4552

JSR

IN THE BIT WINDOW

;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125.252.377)

4523
4524

4525

MOV
R5,R2
DATACLK,
RORB
R2
BCC
308

BCS

4506 024202 104006
4509

SEQ 0086

13$

*ERROR, BIT WINDOW WAS A MARK

*BR IF NOT DONE YET

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
(24352
024356
024362

013700
104415
006000

027344
000001

77%:

MOV
CALBCC,RO
DATACLK,1
ROR
RO

:PUT BCC IN RO
*SHIFT HARDWARE BC(
JSHIFT SOFT BCC

MACY11 30A(1052)

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

12:45 PAGE 87
BASIC RECEIVER TESTS

BCC

026342

JSR

BCS
HLT

026342

78%:
79%:

000020
024420

78%

;LOOK AT BIT WINDOW
:BR IF OK_(MARK)
sERROR, CRC WRONG (SPACE)
: CONT INUE

79%
14

79%

PC,GETSI

HLT

INC
MP
BNE
CLR

;BR IF CARRY CLEAR

PC,GETSI

JSR

BCC

SEQ 0087

LO(K AT BIT WINDOW
BR IF OK (SPACE)
:ERRm. CRC WRONG (MARK)

79%

R3
#20,R3
77%
R3

;BUMP BIT COUNTER

sFINISHED BCC YET?

:BR IF NO

sCLEAR BIT COUNTER

sCHECK TO SEE IF TRANSMITTER IS MARKING
024422

000001
026342

000007

DATACLK,
1
JSR
PC,GETSI

BCS
3%:

000010

000001
026342

4%:

HLT

INC

JSR
BCS
HLT

PC cersx

cMP
BNE

#20,R3
48

sCLOCK TRANSMITTER
;LOOK AT WINDOW
:IT SHOULD BE MARKING

;ERROR, BIT WAS A SPACE

CMP
#7 .R3
BNE
2
DATACLK,
CLR
R3
DATACLK,

INC

000020

:BUMP BIT COUNTER
;DONE YET
:BR IF NO
:GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
sCLEAR BIT COUNTER

:SHIFT OUT NEXT BIT
;LOOK AT BIT WINDOW
BR IF

IT IS

A MARK

JERROR, TRANSMITTER IS NOT MARKING
JINC BIT COUNT
;DONE YET?
;BR IF NO

§898“8

024540
024542

A P P> N

O OO
= OO0 —

sCHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE
;WAS RECEIVED CORRECTLY (0,125,252,377)

8RR
NR e

CZDME

CZDMEC.P1T

000001
000004
030126
027202

DATACLK,
40%:

#4 ,R3
#MESDAT ,R2
PC,INRDY

000004

4(R1) R4
(R2)+,RS
RS ,R4

;GET LAST BIT IN RECEIVER

;R3=CHARACTER COUNT
sLOAD MESSAGE POINTER IN R2

;WAIT FOR INRDY

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PUT 'FOUND'' IN R4
:PUT "EXPECTED'' IN RS

21S RECEIVED DATA CORRECT?
:BR IF YES

cRECEIVE DATA ERROR

41%:

sDEC CHARACTER COUNT

:BR IF NOT DONE YET
sCHECK TO SEE THAT IN BCC MATCH IS SET

JAND THAT THE BCC WAS RECEIVED CORRECTLY

024544
024550
024552

027202

JSR

ROMCLK

021204

PC, INRDY

;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF CRC

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

024554
562

116137

000004
177400
027202

12:45 PAGE 88
BASIC RECEIVER TESTS

1252
1252

mMove
BIC
JSR

ROMCLK

021244

000004
000376
000001

MOVB

BIC
BIS
CMP
BEQ
HLT

;PUT IN TEMP3

:CLEAR HI BYTE

PC, INRDY

‘WAIT FOR INRDY

4(R1) R4

:PUT "FOUND'' IN Ré

#1,RS

*PUT "EXPECTED'' IN RS

;IN BCC MATCH ERROR

#376 R4
§3£R4

ROMCLK

021204

O
—

027344

norONOND

001250

lolelels)
0080

000004
000377

i
cnch il

50%:

MOV
BIC
MOV
CMPB
BEQ
HLT

4(R1) ,TEMP3

#177400, TEMP3

SEQ 0088

4(R1),TEMP2+1

#377, TEMP2

TEMP2, TEMP3

CALBCC, TEMP3
45%

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:CLEAR UNWANTED BITS

*1S IN BCC MATCH SET?

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*GET LAST HALF
:PUT IN TEMP?

*CLEAR LO BYTE

216 BIT BCC NOW IN TEMP3

;IS IT CORRECT?
:BR IF 0K

s CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000)
027202

45%:

JSR

ROMCLK

021204

000004

MOV
CLR
CMPB
BEQ
HLT

PC,INRDY

4(R1) ,R4
RS
RS R4
42%

JWAIT FOR INRDY

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET RECEIVE DATA
PU "FOUND'' IN R4
JPUT "EXPECTED''
IN RS
;1S RECEVIED DATA CORRECT?
*BR IF YES

JRECEIVE DATA ERROR

: CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE
;WAS RECEIVED CORRECTLY (0,125,252,377)
000004
030126
027202

42%:

#4 R3

#ME SDAT ,R2
PC, INRDY

43%:

000004

4(R1) ,R4

024744

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*FOUND'' IN Ré

(R2)+.RS

PUT "EXPECTED'' IN RS

448

‘BR IF YES

RS ,R4
10
R3

44%:

;R3=CHARACTER COUNT

:LOAD MESSAGE POINTER IN R2
:WAIT FOR INRDY

43$

*1S RECEIVED DATA CORRECT?

*RECEIVE DATA ERROR
:DEC CHARACTER COUNT
“BR IF NOT DONE YET

s CHECK TO SEE THAT IN BCC MATCH IS SET
:AND THAT

024746
024752
024754
024756
024764

027202
000004

177400

JSR

BIC

THE BCC WAS RECEIVED CORRECTLY

PC, INRDY

;WAIT FOR

4{®1) , TEMP3

“GET FIRST HALF OF CRC
‘PUT IN TEMP3

#177600, TEMP?

INRDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

“CLEAR HI BYTE

CZDME

MACY11 30A(1052)

CZDMEC.P1M
4665

024772

4666
4667
4668
4669

024776
025000
025002
025006

004737
104414
021244
016104
042704

4671

025016

120504

4673
4674
4675
4676
4677
4678

025022
025024
025024
025026
025030
025036

104414
021204
116137
042737

4680
4681
4682
4683

025052
025060
025062
025064

023737
001401
104027
104400

4670 025012 012705
4672

4679

025020

025044

11-SEP-78

11-SEP-78 12:38

12:45

PAGE 89

BASIC RECEIVER TESTS

027202

JSR
ROMCLK
021244
MOV
BIC

000004
000376

000001

104015

053737

51%:
000004
000377

001250
027344

001251
001250

001252

5%:

RS R4

;IS IN BCC MATCH SET?

BEQ

51§

ROMCLK
021204
MOVB
BIC

BIS

001252

4(R1) ,R4
#376 R4

#1,RS

HLT

(MP
BEQ
HLT
SCOPE

JWAIT FOR INRDY

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
.
:
JPUT "FOUND''
IN R4
. CLEAR UNWANTED BITS

MOV

CMPB

001401

PC,INRDY

SEQ 0089

:PUT "EXPECTED'' IN RS

sIN BCC MATCH ERROR

4(R1) ,TEMP2+1
#377 ,TEMP2

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;JGET LAST HALF
JPUT IN TEMP?2
sCLEAR LO BYTE

TEMP2, TEMP3

CALBCC,TEMP3
5%
27

216 BIT BCC NOW IN TEMP3
;1S 1T CORRECT?
;BR IF 0K

;SCOPE THIS TEST

4L686

JRRARNRARRRRARRNRRRRARRARNRNY

4692

4687
4688
4689
4690
4691
4693

‘l:g%

;

4696
4697

025
025074

012737
012737

4699

025102

104412

4698

4700
4701
4702
4703

4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720

TEST

Araan st aa A A

J*EMPTY SILO TEST
;*LOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK
J*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE
s*SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST
;%4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR

025104
025110
025114
025120

025124
025130
025134
025136
025140
025144
025150
025154
025156
025160
025164
025170
025172
025174
025202
025204
025206

012711
012702
012700
004737

004737
004537
030126
000004
004737
104415
004537
030126

000054
025320

032761

000040

104034
104415

000041

MOV
MOV

#54,TSTNO
HTSTSS NEXT

MOV
MOV
MOV
JSR

#MIT11,(R1)
#ME SDAT ,R2
#4 RO
PC,SYNLD

JSR

RS ,MESLD

JSR
PC,OUTRDY
JSR
R5,MESLD
MESDAT
4
JSR
PC,0COR
DATACLK,
65

026374
000065
027644

MESDAT
4
JSR
PC,OCOR
DATACLK,

000004
5%:

RARAANRNREAR

TEST 54

MSTCLR

026526
027644

026374
000005

001401

TSTS4:

004000
030126
000004
027510

004737
104415
104414
021264

001226
001216

AR AR A AN A R R AR AR AR AR AR RN AR AR AR AR R RN RANRAAN R

AR NN ®

ROMCLK
021264
BIT
#ITS5,4(RT)
BEQ
5%
HLT
34
DATACLK,
41

;JR1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11

sSET LINE UNIT LOOP
;R2 POINTS TO MESSAGE
;RO = CHAR COUNT
sLOAD SILO WITH TWO SYNCS
JWAIT FOR QUTRDY
;LOAD MESSAGE IN SILO
;START OF MESSAGE
sCHARACTER COUNT
;WAIT FOR OCOR
.CLOCK DATA (EMPTY SILO)
;PUT MORE CHARACTERS IN SILO

JCLOCK UNTIL RTS IS CLEARED
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JGET RTS
;IS IT CLEAR?
;BR IF YES
JERROR, RTS NOT CLEAR
JCLOCK XMITTER SOME MORE

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

4721
4 §
4723
4724
4725
4726
4727
4728
4
4
4731
473%

025212
025216
025220
025222
025226
025230
025232
025234
025236
025240
025242
025246

4734
4736
4737
4
4739
4740
4741
4742
4743

4733

4735

4744
4745
4746
4747
4748

£33

004737
104414
021
016104
112205

027202

120504

001401
104010
005300
001364

025252

016104

000004

025262
025264
025266
025270
025274
025276
025300
025304

120504
001401
104010
004737
104414
021204
016104
012705

025310
025312
025314
025316
025316

021204

012705

120504
001401
104010

2%:

027202

025256

1%:

000004

004737
104414

025250

12:45 PAGE 90
BASIC RECEIVER TESTS

3%:

JSR
ROMCLK
021204
MOV
MOVB
CMPB
BEQ
HLT
DEC
BNE
JSR
ROMCLK

021204

000377

4%:

000004
000377

10%:

104400

4(R1) ,R4
(R2) + ,RS5
RS ,R4
2%
10
RO
1%
PC,INRDY

MOV

4(R1),R4

CMPB
BEQ
HLT
JSR
ROMCLK
021204
MOV
MOV

RS.R4
49
10
PC,INRDY

MOV

027202

PC,INRDY

MPB
BEQ
HLT

#377 RS

4(R1) R4
#377 RS
RS R4
108
10

SCOPE

SEQ 0090

JOK LETS CHECK WHAT WAS RECEIVED
JNEXT WORD IS INSYRUCTIW ROMCLK PC=5304
JGET RECEIVE DAT
JPUT IT IN R4
E
JRS = "EXPECTED

;1S DATA CORRECT?

;BR IF 0K
;DATA ERROR
sDEC CHAR COUNT

sBR IF NOT DONE YET

JWAIT FOR INRDY
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

“GET RECEIVE DATA

:PUT IT_IN "FOUND'*

‘RS =

"EXPECTED

:SHOULD SEE 377
BRI 0K
JERROR, TRANSMITTER DID NOT ABORT
*WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET RECEIVE DATA
JPUT IT IN "FOUND''
;RS = "EXPECTED''

;SHOULD SEE 377
BPI 0K
JERROR, TRANSMITTER DID NOT ABORT

;SCOPE THIS TEST

4751

JRRRNRRRRARANRRARAAARARARAAN

4752
4753
4754

s*HALF DUPLEX TEST
s*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A
s*MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR

4755

4756

2;2;

;

4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774

025320
025326

012737
012737

025334
025336
025342
025346
025354
025356
025360
025364
025370
025374
025376
025400
025404

104412
012702
012711
012761
104414
122113
004737
004737
004537
030126
002004
004737
104415

4776

025412

021244

4775

025410

104414

000055
025436
000012
004000
000020
027510
026526
027644

026374

000073

001226
001216

000004

TSTS5:

RN AR R AN R AR AN RN

[EST

wanananannanrananntnnnennnnsn

AR RN R A RA AN R RN

AR AR

RN R RN R R AR AR

TEST 55

MOV
MOV

#55,TSTNO
#TSTS6,NEXT

;JR1 CONTAINS BASE DMC11 ADDRESS
sMASTER CLEAR DM(C11
;SAVE R2 FOR TYPEOUT
sSET LINE UNIT LOOP
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

MSTCLR
MOV
#12,R2
MOV
#MIT11,(R1)
MOV
#MIT4,4(RT)
ROMCLK
122113
JSR
PC,SYNLD
JSR
PC,OUTRDY
JSR
RS ,MESLD
ME SDAT
4
JSR
PC,OCOR
DATACLK,
73

;LOAD 2 SYNCS
JWAIT Fm OUTRDY
sLOAD4 CHAR ME SSAGE
ADDRESS OF ME SSAGE
*CHARACTER COUNT
JWAIT FOR OCOR
s SEND ME SSAGE

021244

JREAD LU-12

ROMCLK

JSET H/D BIT

INEXT WORD IS INSTRUCTION, ROMCLK Pr=5304

CZDME
MACY11 30A(1052)
_11-SEP-78
p)
CZOMEC.PI
11-SEP-78 12:38
4777
4778

025414
0§5422

016104
042704

12:45
PAGE 91
BASIC RECEIVER TESTS

000004
000257

MOV

4(R1) R4
#257 R4
RS
R5.R4

8IC
CLR
(MP8
1%:

SEQ 0091

BEQ
HLT

;PUT "FOUND'' IN R4

;CLEAR UNWANTED BITS
;RS = "EXPECTED"'
s IN-ACTIVE AND IN-RDY SHOULD BE CLEAR

13
35

SCOPE

;BR IF OK
;ERROR BOTH ARE NOT CLEAR

JRRRRnRRRnnnnnnnnnnnnnnnnnnt

JEST

snnnnnnnnannnntennnrtonnnnns

*+DDCMP CABLE DATA TEST

:#THIS TEST LOADS OUT SILO WITH THE FOLLOWING:

‘%4 SYNCS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM

i«THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO

:*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL (LOCK
**RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
*#LOOP-BACK CONNECTOR MUST SE ON TO RUN THIS TEST
SRR

RRARRAAR AR

104412
032737
001557
012711

040000

025452
025454
025462
025464

——

4801
4802
4803
4804

000056
026024

nono

012737
012737

025436
025444

T1STS6:

025526

004537

027344
027644
4822

4823

4826
4827
4830
4831
4832

025562

004737

025576
025282

20
004737
004537

025566

025612
025616
025622

004537

0000

004737
004737
005011

’%:

027236

027620

027644

027620
027644
027620
026374

025536

5%:
6%:

#56, TSTNO
#TSTS7 NEXT

BIT

#BIT14,STATI

MOV
JSR
JSR
MOV
CLR
MOV
MOV

#MIT11, (R1)
PC,SYNLD
PC.SYNLD
#CRC16,XPOLY
53
#16. ,R3
#FLTDAT ,R2

JSR

RS, SIMBCC

BEQ

027342

4812

MOV
MOV
MSTCLR

001366

A R AR AR

AANAA AR

AR AR

AR AR AR

ARRR AR RO

TEST 56

;
4798
4799

MOVB
10
0
0

MOV
DEC

BNE
JSR

FLTDAT

16.

JSR
JSR

FLTDAT

JSR
JSR

FLTDAT

16.

JSR
JSR
(LR

(R2)+,5%

CALBCC,6%

7%
RS ,MESLD
PC,EOM
RS.MESLD
PC,EOM

RS.MESLD

PC,EOM
PC.OCOR
(R1)

;R1 CONTAINS BASE DMC11 ADDRESS
*MASTER CLEAR DMC11

“SKIP TEST IF NO

*LOOPBACK CONNECTOR ON

*SET LINE UNIT LOOP
:LOAD 2 SYNCS
*LOAD 2 MORE SYNCS
:LOAD POLYNOMIAL FOR SOFT CRC CALC
*CLEAR OLD BCC
*CHARACTER COUNT
*R2= POINTER
:LOAD CHAR FOR SOFT BCC CALC.

*CALC SOFT BCC

SSHIFT COUNT
*CHARACTER
:0LD BCC

*LOAD OLD BCC

:DEC COUNT

*BR IF NOT DONE YET
*LOAD SILO

*MESSAGE ADDRESS

*CHARACTER COUNT

*LCAD AN EOM
*LOAD SILO

*MESSAGE ADDRESS

*CHARACTER COUNT

*LOAD AN EOM
*LOAD SILO

*MESSAGE ADDRESS

*CHARACTER COUNT

:LOAD AN EOM
‘WAIT FOR OCOR

sCLEAR L INE UNIT LOOP

CZDME
MACY11 30A(10
CZDMEC.P11
11-5EP-

712138

000003
0000%
0301
02720

12:45 PAGE 92
BASIC RECEIVER TESTS

1%:

000004

= MESSAGE COUNT
;RO
CHARACTER COUNT
sR3=
:LOAD MESSAGE POINTER IN R2
;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET DATA FROM IN SILO
sPUT CHARACTER IN “FOUND''
sPUT "EXPECTED'' IN RS
:1S RECEIVED DATA CORRECT

4(R1) ,R4

(R2)+,RS
RS5,R4

2%
25

2%:

~
o
(Y]

—

025670

SE@ 0092

PC,INRDY

—

—hacpcya

288 28R3282 gs&%
gg R2RERR
OHINInD— —

1-SEP-78

:BR_IF OK

:DATA ERROR

R3
1%
#16. ,R3

000020

sDEC CHARACTER COUNT
sBR_IF NOT DONE THIS MESSAGE
sRESET CHARACTER COUNT

sCHECK TO SEE THAT IN BCC MATCH IS SET
;AND THAT THE BCC WAS RECEIVED CORRECTLY
027202
000004
177400
027202

JSR

ROMCLK

021204

025674
700

MOvVB
BIC
JSR
ROMCLK

021244

000004
000376
000001

25%:

4%:

3%:

4(R1),TEMP3

#177400, TEMP3
PC, INRDY

MOVB
BIC
BIS
CMP
BEQ
HLT
MOV
DEC
BNE
SCOPE

sWAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sGET FIRST HALF OF CRC
;PUT IN TEMP3
;CLEAR HI BYTE
;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;PUT "FOUND'' IN R4

4(R1) R4
#376 R4

sCLEAR UNWANTED BITS

RS .R&

:1S IN BCC MATCH SET?

#1,RS

sPUT "EXPECTED'' IN RS

258
15

:IN BCC MATCH ERROR

4(R1), TEMP2+1
#377, TEMP2

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
JGET LAST HALF
sPUT IN TEMP?2
sCLEAR LO BYTE

ROMCLK

021204

000004
000377
001250
027344
030132

MOV
BIC
MOV
CMPB
BEQ
HLT

PC.INRDY

TEMP2, TEMP3

EgLecc.rsms

#FLTDAT
,R2

216 BIT BCC NOW IN TEMP3

;1S IT CORRECT?
:BR IF 0K

JRESET MESSAGE POINTER
;DECREMENT COUNTER
;BR IF NOT DONE
;SCOPE THIS TEST

JHRRRAARRRARRRARERRARRAARNRAY

TEST

A aataataa
e e A v ek Ak ket n

:*DDCMP CABLE DATA TEST

s*THIS TEST LOADS QUT SILO WITH THE FOLLOWING:

;%4 SYNCS,59 DATA CHARACTERS,EOM WITH GARSBAGE CHARACTER

:*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK
s*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
s *LOOP-BACY CONNECTOR MUST BE ON TO RUN THIS TEST
s

AR A AR AR AR AR

A AR AN AN A AR AN AR AR

AR AR AR

AR AR R AR AR

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

12:45 PAGE 93
BASIC RECEIVER TESTS

4889

480

4892

026006

012737

4200

026040
026042
026050
026052
026056
026062

104412
032737
001533
012711
004737
004737

4902
4903
4904

026074
026100
026104

005037
012703
012702

026124
000073
030126

4906 026114
4907 026120
4908 026122
4909 026126
4910 026126
4911
026134
4912 026136
4913 026140
4914 026144
4915 026146
4916 026150
4917 026154
4918 026160
4919 026162
4920 026166
4921
026172
4922 026176

004537
000010
000000
000000
013737
005303
001364
004537
030126
000073
004737
004737
005011
012700
012702
004737
104414

027236

4924
4925

016104
112205

4893
489
4895
489%
4897
4898

4901

4905

4923

4926
4927
4928
4929
4930
4931

026032

026110

026200

026202
02

026210
026212
026214
026216
026216
026220

012737

012737
112237

021204

000057

003364

040000
004000
027510
027310

120001

001226

001216
001366

027342

026122

027344

026124

5%:
68:

027644
027620
026374
000073
030126
027202

TEST 57

MOv

MOV

1$:

120504
001401
104025

28:

005300
001364

A.EOP,NEXT
#BIT14,STAT1
3%
#BIT11,(R1)
PC,SYNLD
PC,SYNLD

:R1_CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DMC11
:SKIP TEST IF NO
:LOOPBACK CONNECTOR ON
:SET LINE UNIT LOOP
:LOAD 2 SYNCS
:LOAD 2 MORE SYNCS

(LR
MOV
MOV

63
#59.,R3
AMESDAT,R2

:CLEAR OLD BCC
: CHARACTER _COUNT
:R2= POINTER

JSR
10
0
0
MOV
DEC
BNE
JSR _
ME SDAT
59,
JSR
JSR
CLR
MOV
MOV
JSR
ROMCLK

RS,SIMBCC

MOVB

021204

000004

AS7,TSTNO

MSTCLR
BIT
BEQ
MOV
JSR
JSR

MOV

78:

4933

WCRC16,XPOLY
(R2)+,5%

CALBCC,6$
R3
7%
R5,MESLD
PC,EOM
PC,OCOR
(R1)
#59..R0
AMESDAT,R2
PC,INRDY

:LOAD POLYNOMIAL FOR SOFT CRC CALC
:LOAD CHAR FOR SOFT BCC CALC.

:CALC_SOFT BCC
SHIFT COUNT
: CHARACTER
:0LD BCC
:LOAD OLD BCC
:DEC_COUNT
:BR IF _NOT DONE YET
:LOAD SILO
:MESSAGE ADDRESS
:CHARACTER COUNT
:LOAD AN EOM
:WAIT FOR OCOR
:CLEAR LINE UNIT LOOP
:RO= CHARACTER COUNT
:LOAD MESSAGE POINTER IN R2
:WAIT FOR INRDY
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:GET DATA FROM IN SILO

MOV
MOVB

4(R1),R4
(R2)+.R5

RS5,Ré
2%
25

:1S RECEIVED DATA CORRECT
:BR_IF OK
:DATA ERROR

DEC
BNE

RO
18

:DECREMENT COUNTER
:BR IF NOT DONE

(MPB
BEQ
HLT

:PUT CHARACTER
IN "FOUND''
:PUT "EXPECTED'* IN RS

:CHECK TO SEE THAT IN BCC MATCH IS SET

:AND THAT THE BCC WAS RECEIVED CORRECTLY

4936
4937
4938
4939

026222
026226
026230
026232

4941
4942
4943
4944

026246
026252
026254
026256

4940

TSTS7:

SEQ 0093

026240

004737
104414
021204
116137

042737
004737
104414
021244
016104

027202

000004

177400

027202
000004

001252

JSR
ROMCLK
021204
MOVB

BIC

JSR
ROMCLK
021244
MOV

PC.INRDY

4(R1)

TEMP3 _

#177400,TEMP3

;WAIT FOR INRDY
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:GET FIRST HALF OF CRC
:PUT IN TEMP3

:CLEAR W] BYTE

PC,INRDY

:WAIT FOR INRDY
INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

4(R1) ,R4

JPUT "FOUND'' IN R4

CZDME

MACY11 30A(1052)

CZDMEC.P11
4945

026262

042704

4947

026272

120504

zgl.sg

82223(7)8

4951

026300

4953

026304

4955

026320

(9%6 026266
48
4952

4954

4956

4957
4958

2323

006274

012705

000376

258

042737

026326

023737

000004

053737

001250

001401
104027

4966

4972
4973
4974
4975
4976
4977
4978
4979
23%?

4982

4983
4984

4985

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

001252

BIS

TEMP2, TEMP3

000377

001250

027344

001252

104400

BIC

CMP

3$:

BEQ
HLT

SCOPE

;IN BCC MATCH ERROR

#377,TEMP2

CALBCC,TEMP3

3s
27

JGET LAST HALF

:PUT IN TEMP?2

;CLEAR LC BYTE

;16 BIT BCC NOW IN TEMP3

;1S IT CORRECT?
:BR IF OK

:SCOPE THIS TEST

:SUBROUT INES

GETSI:

;THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH.
sNITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY

026342
026344
026346

026354
026360
026364
026370
026372

104414
021364
017737

106137
106137
106137
000207
000000

153040

026372
026372
026372

026374

026376
026400

ROMCLK
021364
MOV

026372

NITCH:

026374

026412

OCOR:

104414

021364
032777

001772
000207

ROLB
ROLB
ROLR
RTS
0

aDMPO4 NI TCH
NITCH
NITCH
NITCH
PC

000020

021364
BIT

153004

BEQ
RTS
SYNC:

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORT4_LU 17
:STORETMLU 17
:PUT SI

IN THE CARRY BIT

;THIS SUBROUTINE SPINS ON OCOR

ROMCLK

233%

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
#8174 ,aDMPO4

OCOR
PC

:PORT4 LU 17
;1S OCOR SET?

:BR IF NO

;0K OCOR IS SET, GO BACK

;THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC
;CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL
JAND A NON=-SYNC CHARACTER (301)

4994

026412

013637

4996
4997

026422
026430

012761
104414

000026

4999

026434

004737

026526

S000

HLT

25§

4(R1) ,TEMP2+1

026342

4988
4989

4998

;1S IN BCC MATCH SET?

BEQ

*PUT "EXPECTED'' IN RS

& ——————

026406
026410

4995

RS ,R4

MOVB

2339

4990
4991

CMPB

021204

zggg

4969
4970
4971

;CLEAR_UNWANTED BITS

#1.RS

001251

4963

4964
4965

#376 R4

ROMCLK

116137

SEQ 0094

BIC

MOV

104414

026312

4961
4962

PAGE 94

BASIC RECEIVER TESTS

000001

104015

021204

026340

12:45

001401

026302

026334
026336

11-SEP-78

11-SEP-78 12:38

026416
026432

026440

062746
122114

012761

001246

000002

000001

MOV
ADD

000004

MOV
ROMCLK
1%:

122114

JSR

MOV

d(SP)+, TEMP1

#2,-(SP)

#26,4(R1)
PC,OUTRDY

#1.4(R1)

:GET COUNT

:ADJUST STACK

;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD SYNC REGISTER

;WAIT FOR OUTRDY

:LOAD PORT4

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

5001
2
5003

026446
026450
026452

104414
12211
012761

5005

026462

122110

5004

026460

026464

5007
5008
5
5010
5011
5012
5013
5014
5015

026470
026472
026476
026502
026504
026506
026514
026516
026520

5017
5018
5019

026526

5016

285(1)

5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
2839

02v.24

026526
026532
026532
026534
026536
026544
026546
026552
026554
026556

104414

005337

001361
004737
005061
104414
122111
012761
104414
122110
004737

000207

000026

12:45 PAGE 95
SUBROUT INES

000004

001246

DEC

000301

000004

026374

RTS

OUTRDY:
005037
104414
021224
032777
001004
005237
001367
104036
000207

001256

000020

1%:
152646

001256
2%:

CHAR:

026560

013637

001250

5040
5041
5042

026570
026576
026604

012737
012761
104414

000003
000026

5044
5045

026610
026614
026622

004737
012761
104414

026526
000001

000004

000026

000004

5043

5047
5048
5049
5050
5051
5052
5053

5055
5056

026606

026624
026626
026634
026636
026640

026644
026646
026652

026660
026662

BNE
JSR
CLR
ROMCLK
122111
MOV
ROMCLK
122110
JSR

026526
000004

026560

026564

ROMCLK

122110

5038

2039

ROMCLK
122111
MOV

062746

122114

122111
012761
104414
122110
005337

001361
004737
013761

104414
122110

000002

001246
026526
001250

000004

1%:

#26,4(R1)

TEMP1

1%
PC,OUTRDY
4(R1)

#301,4(R1)
PC,O0COR
PC

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

NEXT me IS INSTRUCTION, ROMCLK PC=5304

<LOAD OUT
D

:ALLDM"

:BR_IF NOT
:WAIT FOR QUTRDY
;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM
;LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA
:WAIT FOR OCOR

sTHIS SUBROUTINE SPINS ON OUT READY

CLR
ROMCLK
021224
BIT
BNE
INC
BNE
HLT
RTS

TEMPS

#8174 ,aDMPO4
2%
TEMPS
1%
36
PC

;CLEAR TIMER
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_LU11
;1S OUT RDY SET?
:BR IF YES
:INC TIMER
;KEEP CHECKING IF NOT DONE
;ERROR, OUT READY NOT SET

;THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS
JAND THE CHARACTER PASSED TO IT.
MOV

d(SP)+,TEMP2

;GET CHARACTER

MOV
MOV
ROMCLK

#3,TEMP1
#26,4(R1)

;SET FOR 3 SYNCS
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JSR
MOV
ROMCLK

PC,OUTRDY
#1,4(R1)

ADD

001246
000004

122114

122111
MOV
ROMCLK
122110
DEC

BNE
JSR
MOV

ROMCLK
122110

#2,=(SP)

#26,4(R1)

TEMP1

1%
PC,OUTRDY
TEMP2,4(R1)

sADJUST STACK

;LOAD SYNC REGISTER
sWAIT FOR QUTRDY
;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET SOM
:LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
sLOAD QUT DAT
:ALL DONE?

:BR IF NOT
;WAIT FOR OUTRDY
:LOAD PORT4

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

SEQ 0095

CZDME

MACY11

CZDMEC.P11
5057
5058
5059
5060
5061
3062

5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078

026664
026670

30A(‘I0;?.’)1

11§SEP-78

11-SEP=78 12:3
004737
000207

12:45

026374

JSR
RTS

026672
026672
026676
026702
026706
026714
026716
026720
026724
026726
026730
026734

CHARSD:
013637
062746
004737
013761
104414
122110
004737
104414
122110
004737
000207

001250
000002
026526
001250

000004

026526

026374

026736

SILOLD:

5097
5098
099
5100
5101
5102
5103
5104
5105
5106
5107
5108

5109
5110

5111
5112

026736
026744
026750
026752
006754
026762
026770
026778
027000
027002
027006
027014
027016
027020
027026

027030
027032
027036
027040
027044
027052
027054
027056
027062
027064
027072
027076
027100

027102
027106

027114
027116

012737
005737
100470
001032
062737
012737
012761
104414
122114
004737
012761
104414
122111
012761
104414

122110
005337
001361
004737
013761
104414
122110
005737
001407
013737
004537
000000
000010

005237
022737

001403
005337

000073
027176

001250

000002
000003
000026

001250
001246
000004

:
52652
000001

000004

000026

000004

18:

001246
026526
027176

000004

28:

027200
027176
027726

027176
000400
001250

027076
5%

027176

6$:

SEQ 0096
PC,OCOR
PC

;WAIT FOR OCOR

:THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT.

MOV
ADD
JSR
MOV
ROMCLK
122110
JSR
ROMCLK
122110
JSR
RTS

2079

5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
509
5095

PAGE 96

SUBROUT INES

@(SP)+,TEMP2
#2,-(SP)
PC,OUTRDY
TEMP2,4(R1)
PC,OUTRDY

PC,OCOR
PC

;GET CHARACTER
:ADJUST STACK
WAIT FOR OUTRDY
:LOAD PORT4
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
:WAIT FOR OUTRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD GARBAGE CHAR
WAIT FOR OCOR

;THIS SUBROUTINE FILLS THE OUT SILC
: WITH A BINARY COUNT PATTERN
MOV
TST
BMI
BNE
ADD
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

A73,TEMP2
SCHAR
48
28
#2,TEMP?
43, TEMPT
#26,4(R1)
PC,OUTRDY
#1.4(R1)

#26,4(R1)
TEMPT
18
PC,OUTRDY
SCHAR,4(R1)

STUFLG
&S
SCHAR,5S$
RS,STFFCL

SCHAR
#400,SCHAR
3:
TEMP2

:LOAD COUNT
:FIRST TIME HERE?
:BR IF BITSTUFF
:BR IF NO
ADD 2 TO_CHARACTER COUNT
:SET FOR 3 SYNCS
:LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD SYNC REGISTER
WAIT FOR OUTRDY
:LOAD PORT4
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
SET SOM
:LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:LOAD OUT DATA
:ALL DONE?
:BR_IF NOT
WAIT FOR_OUTRDY
:LOAD PORT4
.
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LGAD OUT DATA
:BITSTUFF?2?
:BR IF NO
:IT IS SDLD SO CHECK BITSTUFF
ING
ADD ANY BIT STUFF CLOCK TICKS
: CHARACTER
SCHIFT COUNT

NEXT CHARACTER
:ALL DONE?

:DECREMENT COUNT

CZOME

MACYN '.';0A(10;2)1

CZDMEC.P1T

11-SEP-78

5113
5114
5115
5116
5117
5118
5119

027122
027124
0271
027132
027136
027144
027150

001346
004737
000207
005037
012737
005037
062737

5121
5122
5123
5124
5125
5126
5127
5128

027164
027166
027170
027172
027174
027176
027200

104414
122111
104414
122110
000721
000000
000000

5120

5129
5130
5131

027156

012761

11-SEP-78

12:38

12:45

026374
027176
177777
030124
000002
000001

PAGE 97

SUBROUT INES
3%:

027200

4$:

001250
000004

027202

MOV

ROMCLK
122111
ROMCLK
122110
Hi
SCHAR:
0
STUFLG: 0
INRDY
:

5132

5133
5134
5135
g}gg

85;5?5

012737

5140
5141

027210
027212

104414
021244
032777
001004
005237
001367
104037
000207

5149
5150
5151
5152

027214
027222
027224
027230
027232
027234

000000

000020

00124¢

#1,4(R1)

:BR IF NOT DONE
:WAIT FOR OCOR
:START PATTERN AT ZERO
:SET BITSTUFF FLAG
:CLEAR STUFF COUNT
:ADD 2 TO CHARACTER COUNT
;SET BITO IN PORT4
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:SET SOM!
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD GARBAGE CHAR
;GO LOAD SILO

;THIS SUBROUTINE SPINS ON INRDY
;1F INRDY FAILS TO SET THE DELAY TIMES OUT AND AN

152170

001246
2%:

027236

MoV
ROMCLK
021244

SIMBCC:

g}gz

BIT
BNE
INC
BNE
HLT
RTS

#0, TEMP1

#B1T4,aDMPO4
2%
TEMP1
1%
37
PC

:SET UP DELAY COUNTER
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4 LU12

;1S INRDY SET?
:BR IF YES
;INC DELAY
:TRY AGAIN
;ERROR,NO INRDY
sRETURN

:THIS 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.

5155

027236

010046

5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168

027244
027250
027254
027260
027262
027266
027272
027274
027276
027
027304
027310

012537
012537
013700
000241
006037
006037
005500
005000
103011
013700
043700
043737

5156

2%
PC,OCOR
PC
SCHAR
#-1,STUFLG
BITCON
#2,TEMP2

;ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS
;DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER
;INITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER
;THE SHORTER THE DELAY. O IS THE LONGEST DELAY.

§}§g

5142
5143
5144
5145
5146
glzg

BNE
JSR
RTS
CLR
MOV
CLR
ADD

SEQ 0097

027240

012537

001246
001250
027344
027344

1$:

027344
001250

027342
027344
027342

MOV

RO,-(SP)

;SAVE RO ON STACK

MOV
MOV
MOV
cLC
ROR
ROR
ADC
ROR
B(C
MOV
BIC
BIC

(RS)+, TEMP2
(RS)+,CALBCC
CALBCC,RO

:TEMP2 = CHARACTER
;CALBCC = OLD BCC
;PUT OLD BCC IN RO

MOV

027344

(RS)+, TEMP1

CALBCC
TEMP?
RO
RO
2%
XPOLY RO
CALBCC,RO
XPOLY, CALBC(

*TEMP1 = SHIFT COUNT

:SHIFT OLD BCC
:SHIFT CHARACTER
:ADD CHAR CARRY TO OLD BCC
:PUT BITO TO CARRY BIT
;CARRY IS FEEDBACK BIT
:1F FEEDBACK = 1
JEXCLUSIVLY OR XPOLY TO CALBCC

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

027316

050037

12:45 PAGE 98
SUBROUT INES

027344
001246

2%:

ro
~

b i

D i

BCCLD:

TEMPI

sDEC SHIFT COUNT

CALBCC,RO
RO
(SP)+,R0O

sPUT RESULT IN RO
JSHIFT BITO TO CARRY
;RESTmE RO

*BR IF NOT DONE

sRETURN

;THIS SUBROUTINE LOADS

THE OUT SILO WITH 2 SYNCS

sWITH SOM SET, AND ONE CHARACTER PASSED TO IT

D e

027346

sWITH THE

MOV
ADD
MOV
MOV

o
N
~

b
s

BNE

LR(C8=200
CRC16=120001
CRC.CCITT=102010

001246
000004

)

RO, CALBCC

DEC

RTS
XPOLY:
0
CALBCC: O

120001
102010

026526
000001

000004

000026

000004

18:

n
»H

026526
001250
027452
027456

004
000

027472

—

3
S8R

SN2

PC,OUTRDY

;GET CHARACTER
;ADJUST STACK
JSET FOR 2 SYNCS
.LOAD PORT4

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
sLOAD SYNC REGISTER
JWAIT FOR OUTRDY

MOV
ROMCLK

#26,4(R1)

LOAD PORT4
NEXT WORD IS INSTRUCTION, ROMCLK PC=5X04

DEC
BNE
JSR
MOV
ROMCLK

TEMP1
1%
PC,OUTRDY
TEMP2,4(R1)

JSR

PC,0COR

;SET SOM

'LOAD OUT DATA

sALL DONE?
;BR IF NOT
JWAIT FOR OUTRDY
LOAD PORT4
.'NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

JWAIT FOR OCOR

;THIS SUBROUTINE READS THE STATE OF THE TRANSMIT
sBCC LSB AND PUTS IT IN THE CARRY BIT

ROMCLK
021364
ROLB

RTS

GETQ]:

a(SP)+, TEMP2
#2,-(SP)
#2,TEMP1
#26,4(R1)

(ENABLE CRC)

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

RTS

151722

SOM BIT (LEAR

#1,4(R1)

122110

GETQO:

—_
-

o
N

027470

000004

026374

027460

MOV
ROMCLK

122110

001246

5203

ROMCLK
122114
JSR
122111

o
N

v ViV

BIS

MOV
ROR
MOV

000000
000200

<S8 BRILRRU2EBBIRRREV2BY

NN
oo~

D and

027344

SEQ 0098

aDIP04

sTHIS SUBROUTINE READS

JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
PORN LU=17
;PUT Q0 IN CARRY
RETUW

THE

STATE OF

THE RECEIVE

sBCC LSB AMD PUTS IT IN THE CARRY BIT

5232

(NS

NNNSS

027472

— e O -

11-SE

N
~
o~

n
N
~

5225
5226

O
ocorny

MACY11 30A(1

SIFNR
oww§~ Po

CZDME

CZDMEC.P

)

11-SEP-78

12:38

12:lSoS

PAGE 99

UBROUT INES

SEQ 0099

ROMCLK

021364

151710

ROLB

151704

ROLB
RTS

027510

SYNLD:

JNEXT WORC 55 INSTRUCTION, ROMCLK PC=5304
aDMPO4

aDMPO4
PC

:PORT4 LU-1

;PUT Q0 IN CARRY

;PUT QI IN CARRY
JRETURN

;sTHIS SUBROUTINE LOADS OUT SILO WITH

N=N O

@ aNNaN

NS
NN= S NN
R =SB
— O\
S ON N = = NN

oSN

—

EXR3

H
»

8887
RONRY §~?_a_a
By

v
v

N
~

-t
Ot
= O

b=
N
=

5252

N
~

W
~
&H

RRORORS
bl

027510

-0

;2 SYNC CHARACTERS WITH SOM SET
000002
000026
026526

001246
000004

000001

000004

000026

000004

1%:

027616

#26,4(R1)

DEC
BNE

TEMPT
1%

122111

027620

EOM:

026526
000002

4(R1)

RTS

PC,OUTRDY
#2,4(R1)

122111

ROMCLK
122110
RTS
MESLD:

sLOAD SYNC REG
;WAIT FOR OUTRDY

:LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JSET SOM

;PORT_26
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA WITH SYNC

;DECREMENT COUNTER
;BR IF NOT DONE

;RETURN

JWAIT FOR OUTRDY
;PORTS 1

sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

JSET SOM

.CLEAR DATA (CHAR
g
JNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD GARBAGE CHARACTER

JRETURN

sTHIS SUBROUTINE LOADS EOM AND QUT DATA WITH A
s GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BC(CC
JSR
MOV
ROMCLK

000094

PC,OUTRDY
#1,4(R1)

(LR
ROMCLK

122110

000207

;LOAD COUNTER FOR 2 SYNCS
;PORT4 26
JNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

sTHIS SUBROUTINE LOADS SOM AND OUT DATA WITH A
. GARBAGE CHARACTER (0)

ROMCLK

000004
5263

MOV
ROMCLK

JSR
MOV

000004

PC,OUTRDY

#1,4(R1)

RTS

026526
000001

#2,TEMPI
#26,4(R1)

MOV
ROMCLK

122110

SOM:

004737

122114
JSR
122111

001246

027570

MOV
MOV
ROMCLK

;WAIT FOR OUTRDY
;PORT4 2
JNEXT QORD IS INSTRUCTION, ROMCLK PC=5304

JSET EOM
PC

JNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;LOAD GARBAGE CHARACTER
;RETURN

s THIS SUBROUTINE LOADS SILO WITH MESSAGE

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

12:45

PAGE 100

5281

;THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE

ggg

:THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE

284
5285
5086

027644 010046
027646 012500
027650 012537 001246

5288

027660

5287

027654

004737

5289 027664

104414

290

§291
5292
5293
§294

027666

027670
027674
027676
027702

§295
5296
5297
5298

027706

§302
5303

027706
027714

5299
g%?

5304
530S
5306
§307
5308
5309
5310
5311
gg}%

5314
5315

5316
5317
5318

5319
5320

027704

027716
027720
027722
027724

027726
027730

027732
027736
027740

122110

005337
001367
004737
012600

000004

027774

005337

5329 0

000205

030002

030006

*LOAD PORT4 WITH CHARACTER

030124

2%:

030124
000001

001252

012600

STFFCK:

*WAIT FOR OUT RDY

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*LOAD OUT DATA SILO

TEMP1
1%
PC,0OCOR
(SP)+,R0

*DEC CHAR COUNT
*BR IF NOT DONE
*WAIT FOR OCOR
*RESTORE RO

*RETURN

MOV
#BIT7,4(R1)
ROMCLK

1%:

030124

PC,OUTRDY

;THIS SUBROUTINE SETS IN CLR AND OUT CLR TO
sCLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS

:LOAD PORT4
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*SET IN CLR!
JNEXT 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
MOV

001252

000005

104415

(RO)+.4(R1)

JSR

122112
ROMCLK
122111
RTS

022737
001004
005037

001356

gggg

000200

027754
(027762
027764

005237

MOVB

RTS

STFFCL:

5327 0:

5334

026374

122112
104414
122111
000207

012537
106000
103403

;SAVE RO
*RO=MESSAGE POINTER
*TEMPT=CHARACTER COUNT

DEC
BNE
JSR
MOV
CLRIO:

010046
012500

RO,=(SP)
(R§)+.RO
(RS)+. TEMP1

122110

000205

012761
104414

MOV
MOV
MOV
ROMCLK

001246

030124

027770

5330
5331
5332
5333

1$:

000004

005037
000412

5325

5328

026526

027742
027746

027750

5326

112061

027725

5321

5322
5323
5334

SEQ 0100

SUBROUT INES

MOV
RORB
BCS

RO,=(SP)
(R§)+,R0

(R5)+,TEMP3
RO
2$

JPUT SHIFT COUNT IN TEMP3
;LOOK AT NEXT BIT
‘BR IF A MARK

BITCON

JINC CONSECUTIVE 1°'S COUNTER

CLR
BR

BITCON
3$

CMP
BNE
CLR

#5,BITCON
38
BITCON

DEC

TEMP3

INC

DATACLK,

BNE
MOV
RTS

:SAVE RO
*PUT CHAR IN RO

1$
(SP)+,R0
R

:IT WAS A SPACE, CLEAR 1'S COUNTER
* CONT INUE

SIS IT S YET?
*BR IF NO
*YES' SO START AGAIN

;GIVE EXTRA TICK TO STUFF ZERO

*DEC SHIFT COUNT

*BR IF NOT DONE
*RESTORE RO
*RETURN

;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER

*IS STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT

:1S THE CrARACTER, SECOND ARGUMENT IS SHIFT COUNT.

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

5337

030006

010046

030012
030016
030020
030022

012537
106000
103403
005037

030124

§344

030030

005237

030124

5346
5347
5348
5349
5350
§351
5352
§353
§354,
§355
5356
5357
5358

030042
030044
030050
030054
030060
030062
030064
(030070
030072
030074

001010
005037
104415
004737
103001
104030
005337
001352
012600
000205

§338

5339
§340
5341
534§

5343

5345

5359

030010

030026
030034

012500

000416

022737

12:45 PAGE 101
SUBROUT INES

000005

1$:

030124

2%:

030124
000001
026342

001252

3$:

030076

CTSDLY:

2332?
030076

010046

5364
5365
5366

030106
030112
030114

027777
005300
001373

5367
5368

030100
030116

012700

000207

5371
5372
§373
5374
5375
5376
§377
5378
5379
5380
5381
5382
5383
5384
5385

030122
030124
030126
030131
030132
030135
030140
030143
030146
030151
030152
030155
030160
030163
030164

000176
000000
000
377
001
010
100
375
357
177
100
170
174
001
363

5387
5388
5390

5386

5389

030167

000032
151074

151072

1%:

012600

030120

2359

RO,=(SP)

:SAVE RO

MOV
ROR8
BCS
CLR

(RS)
+. TEMP3
RO
2$
BITCON

*PUT SHIFT COUNT IN TEMP3
SSHIFT ouT Nexr BIT
‘BR IF IT IS
A MARK
;1T WAS A SPACE, CLEAR 1'S COUNTER

INC

BITCON

<INC CONSECUTIVE I'S COUNTER

B8R

CMP

(R§)+,RO

#5,BITCON

BNE
3
CLR
BITCON
DATACLK,
1
JSR
PC.GETSI
BCC
3$
HLT
30
DEC
TEMP3
BNE
1%
MOV
(SP)+,R0
RTS
RS

*PUT CHAR IN
RO

* CONT INUE

“5 IN A ROW YET?

‘BR IF NC
*YES, SO START OVER
*EXTRA TICK TO STUFF ZERO
sLOOK AT uxuoou
xs IT A ZERO, BR IF YES
ERROR ZERO WAS NOT STUFFED
osc SHIFT COUNT
*BR IF NOT DONE
*RESTORE RO
*RETURN

;THIS SUBROUTINE WASTES TIME UNTIL CTS SETS,

sBUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT

§362

5363

MOV

001252

SEQ 0101

MOV

RO,=(SP)

:SAVE RO

cMP
DEC
BNE

STKCSR,ATKCSR
RO
1%

-WASTE TIME
*DECREMENT COUNTER
DO IT AGAIN IF NOT = 0

*RETURN

MOV

MOV
RTS

#32 RO

(SP)+,R0

FLAG:
“B<01111110>
BITCON: 0
MESDAT: .BYTE
0,125,252.377

*LOAD RO WITH COUNT

*RESTORE RO

:FLAG CHARACTER

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

317

BYTE

363,347,317,200,0,377,377,377,200,37

LASCIZ
JASCIZ
JASCIZ

<377>/LINE UNIT INITALIZATION TEST/
<277>AUINE UNIT REGISTER READ/ONLY TEST*
<377>*LINE UNIT REGISTER WRITE/READ TEST*

030172
030175

200

377
037

000

377

200

030176
030234
030277

046377
046377
377

047111
047111
044514

020105
020105
042516

.EVEN

EM1:
EM2:
EM3:

PAG E 102
SUBROUT INES

12:45

SEQ 0102
NNNNNNNNNNNNNNNNNN

SRRIGRRREARRRRRRRR
R
o RSN
RIS
VW=

NRSSNoSR SRR
R =NON
SR NS
RASNIR
NN S A

377

= OO =

031161

RO = NN

377

REFARIZE RERGRGSRERDR SRRRGR

031137

RNOO=OOR

030640
030710
030731
030745
031011
031032
031047

377
377
37
051377
37
377
051377
044777
052377
041777
377
377
7
040777
377

:38

030343
030405
030435
030454
030501
030525
030554

11-SEP-78

051040

NNNNNNPAIN

CZDME
MACYN 30A(10;2)
CZDMEC.P1T
11-SEP-78

<377>/LINE UNIT INTERNAL CLOCK FAILURE/
<377>/TRANSMITTER DATA ERROR/
<377>/RECEIVER TEST/
<§77>/RECEIVER DATA ERROR/
<377>/MODEM SIGNAL ERROR/

<377>/TRANSMITTER CRC ERROR/
<377>/RECEIVER CRC ERROR/
2%77>/IN BCC MATCH ERROR (LU REG 12)/

77>/TRANSMITTER FAILED TO GO TO MARK STATE/
<377>/CABLE DATA TEST/
<377>/FLAG ERROR/
<377>/TRANSMITTER FAILED TO STUFF A ZERO/
<377>/SWITCH PAC TEST/
<377>/ABORT ERROR/

<377>/TRANSMITTER ERROR/

<377>/HALF DUPLEX TEST/
<377>/0UT _READY NOT SET/
<377>/IN READY NOT SET/

<377>/EXPECTED
FOUND/
<377>/EXPECTED
FOUND
LU-REGISTER/
<377>/CHARACTER
BIT THAT FAILED/
<377>/CORRECT CRC
BIT THAT FAILED/
<377>/EXPECTED
FOUND
SHIFT/
<377>/EXPECTED
FOUND
CHARACTER
SHIFT/

<377>/BLOCK END NOT SET/

<377>/RTS DID NOT CLEAR/

3.7
. W

007

DT2:

010

3.10

002

3.2

017

DT3:

002

021

001
001302

3.17

2.8
DT4:

002

031570

6.21

2.2
DT5:

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

002
001260
000003
001
001302
001
001300
002
001260
000004

002
on

12:45 PAGE 103
SUBROUT INES

DT6:

DT7:

007

DT10:

007

001
DT11:

DT12:

031700
031702

031704

ERRTAR

EMI

3.7

BYTE

)

SAVR3
4

2.1

2
.BYTE

3.7

SAVR3

0
0
0

JHLT

DHZ2

JHLT

DT?
EM3
DH2
D12
EM4
0
0

1.1

ZERO
BYTE
SAVRS
.BYTE

DH2

DT?
EM?

2.2

CALBCC
.BYTE
TEMP3

002

1.1

.BYTE
ONE
.BYTE

FLAG

002

ONE

2.2

BYTE

SAVRS

001

007

SAVRO
ZERO

.BYTE
ONE
ZERO

002
on

§A

SEQ 0103

JHLT
JHLT

3,7

2.2
6,4

6.2

(ZOME
MACY11 30A(1052)
11-SEP-78
CZDMEC.P1
11-SEP-78 12:38

031746
031750

031752

031516
030405

031534
030435
031161
031504
030454
031161
031504
030501

031776
032000
032002
032004
032006
032010
032012
032014
032016
032020
032022
032026
032026
032030
032032
032034
032036
032040
032042

031504
030525
031336
031560
030554
031336
031560
030525
031276
031546
030600
031161
031504
030525
031336
031576
030554
031336
031576

031774

032044
032046
032050
032052
032054

032056
032060
032062
032064
032066
032070
032072
032074
032076
032100
032102
032104
032106
032110
032112
032114
032116
032120
032122
032124

D12
EMS

031240

031754
031756
031760
031762
031764
031766
031770
031772

DH3

DT3
EM6
DH1
DT
EM?7
DH1
DT
EM10

031161

DH?

DT
EM11
DHS
DTS
Em1?2
DHS
DTS
EM1]
DH4
DT4
EM13
DHI
DT
EMi
DHS
DT6
EM12
DHS
DT6

030525
031370
031614
030525
031370

031636
030554
031370
031614
030554
031370
031636
030640
000000
000000
030710
031161
031504
030731
031240
031660
030554
031161
031672
030745

EM11
DH6
DT?
EM11
DH6

12:45
PAGE 104
SUBROUT INE S

pri1o
EM12
DH6
D17
EM12
DHé
DT10
EM14
0
0
EM15
DH1
DT1
EM16
DH3
DT11
EM12
DH1
DT12
EM17

8
SEQ 0104

JHLT

SHLT

JHLT

SHLT

I CZDME MACY! 30A(10; ) _11-SEP-78 12:45 PAGE 105
CZDMEC.P1T

8%%} 6

0321

0321
0321
032140
032142
032144

11-SEP-78

000000

021011

021161
031504
031032
031436

12:38

SUBROUT INES

JHLT

DH1
DT
EM21
DH7
0

JHLT

SHLT

JHLT

SHLT

JHLT

EM20

032146

031032

EM21

032152
032154
032156
032160
032162
032164
032166
032170
032172
032174
032176
32200
032202
032204
032206
032210
032212
032214
032216
032220
032222
032224

031534
031047
031461
031072
031202
031516
031114
000000
000000
031137

DT3
EM22
DH10
0
EM23
DH2
DT2
EM24
0
0
EM25

030435
031202
031516
030405

0
EM6
DH2
DT2
EMS

031560
030600
031161
031504

DTS
EM13
DH1
DT

032150

032226

031240

031336

SEQ 0105

DH5S

CORMAX:

BIT4

= 000020

BITS

= 000040

BIT7
BIT8
BIT9

= 000200
= 0004
= 001

BRLVL
BRW
BRX
CALBCC

012252
0037
003732
027344

BIT6

= 000100

CHAR
CHARSD
CHRCNT
CKSWR
CKSWR1
CKSWRZ2
CKSWR3
CKSWR4
CKSWR5
CLKX
CLRIO
CNERR
CNT.MA
CNVRT =
CONERR

CONN
CONTAB

007054

026560
026672
004712
007606
007666
007700
007704
007710
010014
001242
027706
007277
001702
104411
007223

007114
002776

CONVRT= 104410
CORMAX 032226

gy
e

SEQ@ 0106

12534

S O=sHNONN

= 000004
= 000010

== NN
WNIN) =
N -

BITZ2
BIT3

Wil

BIT14 = 040000
BIT15 = 100000

1518#
1207

BIT12 = 010000
81713 = 020000

O==NNN
~N=-=0W
QO —=— NNV
NS
(o AV, INEVeTo
AV, B VIIVELV,]

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

NOPNONY = =N —"\)—'—l—'§'\)bw-—'—l\h—‘
NOWN=S0OHRONS 20N U!OS

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

3685
16004
5322

53724

1749

3045
3650

3073
3725

4802

4896

3290

3327

4765

4984

5026

3400

4717

4035
4680
5390

4056
4816

4211
4872

4029

4205

4256

3101
3800

2216

2117

3779

3854

5167
3440

5169+

3976

4626
51774

1599

1840
18454

3651

3680

3726

1078
1332

1080
1334

1082

1223

1670

1985

1336

3755

3801

3830

52984

1338

1654

1656

1716

1822

3757

3803

3832

3878

3944

1887

CRAM

CRC.CC= 102010
CRC16 = 120001

3653

4807

2728

51794

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

001320
006510
010514
030076
010060
005216
104415

1077

1989

1883«

1884

1356

1874H

2731
2963
3361
373

2735
3005
3404
3762

1668

4057
4322
4720
16674

1886+

SEQ 0107

1890

16714

2847
3133
3612
3838

4075
4446
4774

2861
3162
3613
3892

4212
4551

4233
4569

15164

— et
)

Db
—d

38388 8888 88
ONN—=
VIWWES Sy J\%
o

CREAM
CSR
CSRMAP
CTSOLY
CYCLE
DATABP
DATACL=

12: 45 PAGE 108
CROSS REFERENCE TABLE == USER SYMBOLS

1098+

1329+

1270«

1271

1874

1888

1970~

2171

2177«

2178+

2182

2207

1196

1201+

1206+

1241

1359

1396

1688

1711

1757

1892+

1901

1739«
1904+
1345
1733

1743+
1905
1968+
1770

1749«

17508

1756+

1758+

1901

1902+

1903

1983«
1775

2162

2163

2172

4984

5026

5142

5217+

1907+
1911+
1893+

1908+
1912
1894»

%10

1905+

1906+

1907

2174

49N

CZDME

MACY11 30A(10 52)

_11-SEP-78

DMS101
DMS102
DMS103
DMS104
DMS10S
DMS106
DMS107
OMS110
DMS111

001512
001522
001532
001542
001552
001562
001572
001602
001612

8794
884#
8894
8944
8994
9044
9094
9144
9194

DMS113
DMS114
DMS115S
DMS116
DMS117
DMS200
DMS201
DMS202
DMS203

001632
001642
001652
001662
001672
001504
001514
001524
001534

9094
934k
9394
944k
9498
8754
8804
8854

001554
001564
001574
001604
001614
001624
001634
001644
001654
001664
001674
001506
001516
001526
001536
001546
001556
001566
001576
001606
001616

9004
9054
9104
9154
9204
9054
9304
9354
9404
9454
950#
8764
8814
8864
8914
8964
9014
9064
9114
9164
9214

CZDMEC.P1

onsn% 001622

11-SEP-78 12:38

001544

DMS312
DMS313
DMS314
DMS315
DMS316
DMS317
DMTLVL
DMTVEC

001626
001636
001646
001656
001666
001676
001402
001400

9264
9314
9364
9414
94 b6H
9514
8554
8544

003734
037504
031636

1378
53904
53904

g"n'gANg %1588
:

DONE
DT
DT10

D111
DT12

031660
031672

PAGE 109

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0108

9244

DMS

DMS205
DMS206
DMS207
DMS210
DMS211
DMS212
DMS213
DMS214
DMS215
DMS216
DMS217
DMS300
pMS301
DMS302
DMS303
DMS304
DMS305
DMS306
DMS307
OMS310
DMS311

12:45

8954

333‘

53904
53904

1914%
1912+«

1915+
1913«

1914

1380+

14004

1810«

13930

1077

1130

1140

1256
2

1884

886

1964

1969

2199

F
9
12:45 PAGE 110
CROSS REFERENCE TABLE == USER SYMBOLS

CZDME
MACY11 30A(10 52)
11-SEP-78
11-SEP=-78 12:
CZDMEC.P1

DT2
DT3
DT4
DTS
DTé
D17
EM
EM10
EM1
EM1
EM1
EM14
EM1S
EM16
EM7
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM3
EM4
EMS
EM6

031516
031534
031546
031560
031576
031614
030176
030501
030525
030554
0
03064
030710
030731
030745
030234
03101
031032
031047
031072
031114
031137
030277
030343
030405
030435

EOM
ERCTO0
ERCTO1
ERCTO2

027620
001704
001710
001714

EM?7

ERCTO3

030454

001720
001724
001730
001734
001740
001744
001750
ERCT12 001754
ERCT13 001760
ERCT14 001764
ERCT15 001770
ERCT16 001774
ERCT17 002
ERR
002700
ERRCNT 001232
ERRFLG 001325
ERRMSG 005172
ERRPC
002770
ERTABO 005322
EXIT = 000205
EXITER 005252

4117

419

SEQ 0109

4195

4438

4443

4822

4826

1681«
1389+

1899+«
1631+

1644

1658+

1717

4828
1209

4235

4875

53754

SROWV-=n
%
R3R=3
L3
=
r

—

b —d

ONPLONOWN

— PN\
N -

=00 =N

030122
002536
030132
002566

2N AN —
—
—=00 = NO\O
O Y
00 =N
NOWN =

FLAG
FLOAT
FLTDAT
FY

QOO—'O§O~N 2

ERCTO4
ERCTOS
ERCTO6
ERCTO7
ERCT10
ERCT11

4830

4916

52664

005222

ICOUNT
INBUF

001222
007502

CROSS REFERENCE TABLE == USER SYMBOLS

3695
666

3970
3904
3015
4287
4558

4060
4312
49654

4721

4325

4339
4731

4368
4836

4382
4852

2431«

2457

2515+

2535+«

4249
4904
4710

4324
4914
4770

4430

4436

4823

4827

2568

2590

2646

2679

4219
4504

010020

001324
027202

MNEW
MODU
MPASSX
MPFAIL
MoM
MR
MRESET=
MSTCLR=

006144
006704
006106
005675
005666
005755
004000
104412

006043

4017
459N

1650

3722+

2373+
3754~

1630+

1718+

1657

17814

2389+
3797

2415
3829+

1922

1984

4189
4711
4440

N
— N

001322

2085

4147
4665

H
NN
-

MILK

2076

4660

4114

4110
4645
4188

H
—_——

027644

4142

1339

1882+

1887

1946
1940

2021

2031

2047

2056

2070

2319

2343

2375

24617

2459

2517

53734

R 3

MESLD

005672
006072
007544
001
005733
(006217
006117
005760
006005
030126

001244
006142

}gooooboo

MASKX
MASTEK

0000 ~\ ~ — — — 00 00 00 00 0o
—_
s
N0 — 00 —b
WO
— —dN
Ry
T
R+
_

wawnnn

—_—

LUTYPE=

LRC8 = 000200
LSTERR 001234

—
A e
el V2 T Y 2 F i
120 L T
T
W
- —
NONNNYN
NNONOWNON=
NN NOLOWVNWNY

001326
004
001224

4120
4646

22494

n
o

LOKFLG
LOLIM
LPCNT

MLOCK

SEQ 0110

3770
3741
2901

INSTER= 104404
INSTR = 104403
INSTR2 004166
INTTY
012266
KMCM
007330
LIMITS 004314
L INE
007016
LOBITS 004372
LOCK
001220

MCRLF
MCSRX
MDATA
MEMLIM
MEPASS
MERRPC
MERRX
MERRZ2
MERR3
MESDAT

INIFLG
INRDY

PAGE 111

OO -

INCHAR

027472
027460
026342

HALTS

HILIM

12:45

N
— N

GETQI
GETQO
GETSI

11=SEP=78

SeR

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

MACYN 30A(10;2)1
CZOME
11-SEP-78
CZDMEC.P1T

MTITLE
MTSTN
MTSTPC
MVECX
NEXT

001000
006130
006031
006100
001216

NITCH
NOACT
NODEV
NUM
OCOR

026372
007154
002674
006450
026374

0K
ONE
OUTRDY

002646

026526

PACTO0
PACTO1
PACTO2
PACTO3
PACTO4
PACTOS
PACTO6
PACTO7
PACT10
PACT11
PACT12
PACT13
PACT14
PACT1S
PACT16

001702
001706
001712
001716
001722
001726
001732
001736
001742
001746
001752
001756
001762
001766
001772

PARAM =
PARAM1
PARBIT=
PARERR
PASCNT

104405
004234

PACT17

001776

040000
004310
001230

PERFOR= 004537
PFTAB
005430
POPRO =

11-SEP-78

H 9
12:45 PAGE 112
CROSS REFERENCE TABLE == USER SYMBOLS

2934
3438

4699

4762

2270+
2721%
3277«

22%*
2779+
3314«

2317«
2830«
3351«

4004«
4974

2843

4106%
L9764

4176%

2894

2945

RESTAR

005350

4801

2839
4704
5240

2885

4769

4999

1925
1492

1990

1999

2078

2087

1480
1328+

14914
1340

1498

1500

1502

1070+
1677

2211«

2221+

1076+
16724
1708#

1384

5256

1365

17224
1680

3072
3574

4895

3100
3649

3205
3872

3242
3938

2566+
3098+
3646+

2588+
3126+
3721+

L6446

4917

1395

005220

3044
3529

4831

2007

RESREG

2986
3482

%883
394
4425

SEQ 011

L9794

5293

2890

3023
5070

5270

1898+

4015
5090

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

RESTRT 003534
RESOS = 104407
RETURN 001214
ROMCLK= 104414

1343
823
7504

1347
1672
1086+

1314+

1318

2220
2591
2737
2943
3212

2622
2615
2747
2964
3221
3489
3955
438

2433
262k
2757
2993
3249
302
3985
4397

2435
2649
2785
2997
3258
301
4121
4593

304
4129
4607

1079«
1265
1073«
1216«
1532«
1222«
1530
1529«
1528+
1527%

1880~
2182+
1342+«
1236
1537
1531«
1539
1540
1541
1542

1881~

1888

1345+«
1523«
5390
1538
5390
5390
5390
5390

2175«
1693

1632
3395+«
2282

5082
2305

5100
2329

5105
2360

8334

3951
4383

RUN
SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVRZ
SAVR3
SAVR4
SAVRS
SAVSP
SAVOS5 =
SCHAR
SCOPE =

001316
001312
001314
001276
001260
001262
001264
001266
001270
001272
001274
104406
027176
104400

SCOP1 = 104401
SILOLD
SIMBCC

026736
027236

SKIP
SOFTSW

002632
010052

SPACNT=
SPEED
STACK =
STAT
STAT1
STAT2

(04713
007340
001200
001240
001366
001370

SQoM

STAT3

027570

787#
7854
7864
7794
7728
7734
7764
7754
7768
7778
7784
8214
3354+
8094

1728

1731

1768

2765
3302
40N

2816
3339
4159

2867
3378
4405

3753

3782

3828

3857

2388

SEQ 0112

13554

2708
3265
3990

8114

12:45 PAGE 113
CROSS REFERENCE TABLE == USER SYMBOLS

2401

2430

1393«

2465
2651
2790
3002

2467
2655
2811
3025
3295
3%
4143
4612

2486
2682
2836
3050
3323
30
4148
4621

0488
2684
0841
3078
3332
e
4157
4633

2522
0689
0862
3106
3363
a1
4326
4647

2524
0699
0887
3134
3401
3ges
4340
4661

9540
2726
0892
3164
3407
389
4345

2542
0728
2913
3174
34bk
3919
4354
4675

3176
3452
3oas
4369
4715

5109«
2402

5110
2444

5116
2502

51264
2554

2576

2598

2631

2664

1773

2918
3422
4683
2443

2969
3467
4748

2297

1686+

2321

1689

2345

2378

2380

3142
3783

2476

2497

2549

3603

3632

3678

3707

3765

3811

3840

3895

3961

4031

4207

4258

1941«

1971

3419
3690
4906
1194

1558«
17814
6584
64N
8454
B4bH

1582
2034
1071

1585+«

1599#

1284

1687

1710

1895+
1896+

2350
2572

2352
2594

3483

3485

3509

3530

3532

4802

4896

53104
107«

1110«

11N

113

1123

1125

1260

1306

1315

1917

3396+

5103

5117«

51274

1419

1818+«

1845+

18514

STFFCK
STFFCL
STRTSW

001372
030006
027726
001236

53324
5106
qugl

8474

STUFDT
STUFLG
SV05
SWFLG

030152
027200
004402
010016

53814
3355«
15274
1074«

1897+

2569
2733

3086
3633
4959

3403
3661
4812
119

19N
5858

1951

2393

3058
3558
4878

3375
3615
4525
1170
18624

52524

1949+

2391

3030
3515
4783

2531

3114
3708

1939«

3359
3586
4455
1167
1823

4439

50774
3736
51504
12004

227%,

1397

3
1721

1355+«

3228
3924

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

SwO2
Sw03

SwO4
SW05
Sw06

Sw07
Sw08
Sw09

SW10
SW11

sw12
SWw13
SW14
SwW15
SYNC
SYNLD
TEMP
TEMP1

TEMP2
TEMP3

= 000004
= 000010

= 000020
= 000040
= 000100

= 000200
= 000400
= 001000

= 002000
= 004000

=
=
=
=

010000
020000
040000
100000
026412
027510

001416
001246

001250
001252

——

TEMP4
001254
TEMPS
001256
TIMER = 104416
TKCSR
001204
TKDBR
001206
TLAST = 026024
TPCSR
001210
TPDBR
001212
TRPOK
004730
TSTNO
001226

TST1
TST1I0
TST11
TST12
TST13
T1ST14
TST15
IST16
TST17

012320
013326
013502
013544
013606

013706
014006
014144
014342

6394
638%
6374
6364
6354
6344
6334
6324
6314
6304
629%
628%
6278
6268
625#
624K
3047
3879
8654

1821
1824
1091«
1682
1097

1111
1315

1270

1375

1382

4768
1777%
5040+
5291+
4400*
4955

4805

1406

1421

1621

1626

4899
2622+
5097+

4900

52324

4624+
5064+

4625

4677+
5081+

4146+

4342+
4664+

4343
4679+
5352+

2371«
2931+
3435«

2413«
2983
3479+
4759+

1941

3075
3945
1565

1135«
1136+

5112«

1134+

1983
4610~
4955+«

4359
4855+

837

2653

7434
1944
7448
7454
16114
7554

1444
L9604
1426
1428+

4798

4892«

2456
2514
2566
2588
2610
2644
2677
2721

25134
25654
25874
26094
26434
26764
27204
27784

1931

1265
1844+

1682
1406
1684
1382
1421
1626

7704
7714

2455«
3041«
3526«

1107
1806

SEQ 0113

1746

1131»
5170+«
1132«
4679

742

1260

7678
5156«
7684
L678%
5085«
7694
4358+
4680

5390

1097+
1746
1864
2195

1442

1085+

1450

OoOonNL

SWREG
000176
SWO0 = 000001
Sw01
= 000002

17814
17814
7374
1675
7234

1448
1450+

ONON

007205
007215
001202

1696

2513«
3069+
3570«

2565+
3097+
3645+

1949

22694

SWMES
SWMEST
SWR

12:45
PAGE 114
CROSS REFERENCE TABLE == USER SYMBOLS

2613+
5051«

4401

5038+

2095+«

4625+
4956

4663+

2081
5028+
349N

2084

2093

2269+
2720
3276+

2293+
2778+
3313+

4003+

5326+

2628+
5138+

5067

5339+

5144+

3503

4105+~

2316+
2829+
3350+

4175+

2340+
2880
3391«

4422+

4696+

CZDME
MACY11 30A(1052)
_11-SEP-78
CZDMEC.P11
11-SEP-78 12:38
TST2
TST20
TST21
T1ST22
TST23

012374
014524
014706
015070
015252

TST2S .
T1ST26
TST27

015546
015636
015724

TST24

TST
TST30
TST31

TST32
TST33
TST3%

’

015460

3070
3098
229
2126
3155
3203

012442
016014
016166

016302
016420
016536

3240
3277

TST35
016654
TST36
017004
TST37
017144
TST4
012514
TST40
017304
TST41
017466
TST42
017632
TST43
020146
TST44
62
TST45
020776
TST46
021312
TST47
021550
TSTS
012616
TSTSO = 022006
TSTS1
022340
TSTS2
022566

TSTS3
TSTS4
TSTSS
TSTS6
TSTS7
TST6
TSTOED

1S17
TTST
TWOSYN=
TYPDAT
TYPE

TYPMSG

3666
025066
025320
025436
026024
012756
wxwwnw

013116
003612
010000
005206

= 104402

005106

2270
2779
2830
2881
2932
2984

3314
3351
3392
2317
3436
3480
3527
3571

)

3721
3796
3870
2341
3936
4004
4106
4176
4423
4697
4760
4799
2372
4,893

K 9
12:45 PAGE 115
CROSS REFERENCE TABLE == USER SYMBOLS

22934
28294
28804
29314
29834
30414

30694
30974
31254
23164
31544
32024
32354

32764
33134

33504
33914
34354
23404
3479#4
35264
3570#
36454
37204
37954
38694
39354
23714
40034
41054
L1754

L4224
L6964
4759
47984
4892#
24134

4960

2414
1309«
6904
1647

24554
1310+«

1312«

1665

1668#

1331
1655
2020

1333
1657
2023

1335
1661
2030

813#

1645

1105

16484

1117

VEC
VECMAP
WHICH
WRDCNT
WRKO.F

006526
012010
012002
004710
005174

17814
2183
1986
1556
1660

1998
21954
21914
1589«

15974

XCSR
XERR
XHEAD

003546
003570
006224

1332
1338
1129

1624

13574
13664
17814

16264

XBX

005000

1622

SEQ 0114

16634

1313«

13764

1129

1214

1337
1666
2033

1425
1715
2040

1219

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

1653
2

CZDME
MACY11 30A(1052)
_11-SEP-78
CZDMEC.P11
11-SEP~-78
12:38
XLOC
XPASS
XPOLY

003022
003562
027342

XSTATQ
XTSTN
XVEC
ZERO

007454
005330
003554
001

SCOD

mwwwnwn

$CRAP = 177777

$ENDAD
(003522
TM
= 000057

1187«
1336
3578+
L453%

= 000017

= 032226

SEQ 0115

1208

1239

12524

3653~
4BO7+*

3682+«
4901+

3728+
5166

3757«
5168

3803
51764

3832+«

3878+

3944*

4029+

4205%

4256+

S95#

22594

2262

22654

22834

2286

2894

23064

2309

23124

23304

2333

32354
34234
5637
39314
4684

25614
2709
2922
3093
32664
3426
36414
39914
4687

31984
3379#
3562
38654
L4064
4882

S#
871
S#
32294
3
S66#
39254
4409
48884

1138
1654
1334
780#
595

23618
2558
26728
291%

717
5954

23204
2411
2555
2612
2716
28334
2981
3087
3157
3272
33544
3477

L179%
2;25’
= 000061

1205«
13634
3607«
4523«

3799
3999

12:45 PAGE 116
CROSS REFERENCE TABLE == USER SYMBOLS

5954

2456
26804
3042
32634
3527
39394

4799
5954

8314
7024
8664
8864
9034
9354

17814
16944
13604
5390

2364

1103
2259

23674
25774
2712
29274
31154
3269
34314

37094

L6928

13494
2265
2336

2330
2417
2561
26134
2718
2868
2986
3093
31584
3274
3379
3482
3641
3800#
4001

3387
3483%
3643
3859
4006

2270

4406
4762

24608
2721
30454
3277
35304
4004

48024
8014

8334
703
8714
8884
9044
9364

24184
2563
2632
2723
2876
29874
95
3192

24034

2580
27164

3118
32724
34684
3712
39994
4749
1673
2267
2338

2406
25834
§97
1214
33034
3471
37164
4092#
4752

37844
4095
L7554

22724
2343

2283
2344k

2289
2361

4418
47634

4420
4784

2451
25694
2641
2766
2883
3037
31014
3200
3303
3394
3522
36504
3867
4092

22728

2294

22964

4893
809

8354
7064
873
8854
9054
9384

25184
2779
30734
3314
35754
4106

48964
8114

445K

2602
27748
30314
3146
33094
35164
3787
41014
4L78B4m

2445
2568
2639
2724k
2878
3031
3100
3198
32804
3389
3516
3649
3865
40074

2514
2724k
3070
32804
3571
4007#

24094
25994
2769
979
1434
3306

4425
4794

5
2782¢
9
33174

34754

2453
2577
2646
2774
28844
3039
3115
3205

2459
2583
26474
2776
2919
3044
3121
32
3311

2448
26054
28174
3034
31504
33404
3519

38594
4163
47948

2291
2367

24604
2585

3872
4101

3529
3716
38734
4103

4692
48024

2317

23204

2341

LL268
4796

4684
4801

35224

37914
41604
4787

2781
2927
30454
3123
3229
3316
3431
35304
3718
2925
4108

33954
3524

24514
26324
2820
30374
31924
3343

25034
2635
28254
3195
35594

L1718
LB79%

47004
4890

4749
4895

4755
4896H

2344k

2372

23764

2414

24184

3559
3724
3931
41094

41094

2610
884
155
33954
3796
L4268

3800#
4697

o134

8154

8174

8194

8214

7214
8764
8934
9094

7254
8784
8944
9104

7294
8794
8954
9114

7314
8804

9414

9434

9404

3928
44184

4699
4888

3065
129#
3237

25914
2881
§1
392
37254
4423

9394

36344

4694
4879

3059
3128
3235
33174

26134
2932
3158

2644
29354
3203

2314
2403

25554
2668
28764
3087#
3232
33874

37254
3933
4160

2375
5
25914
2674
2817

2588
8334
126
33544
3721
41798

8394
7184
8754
8914
9084

2312
23764
25N
2599
2679
2825
29354
3
3143
3242
3346
34394
3568
3784
3938
LGN

369
2503
2590
2672
27824

25694
2830
31014
3351
36504
4176

8374
7134
8744
8904

2506
26394
ggggl

2517
2605

2827
2970
3072
3150
32434
3348
34
3574
3791
39394
4173

26478

2319
2409

2518#
2607
2709
2832
30734
3152
3353
35754
3793
3991
4178

32064

2677
874
240

3870
47004

3873
4760

3936
47634

8234

8254

827#

829#

7844
8834

7854
8844

9134

7834
8814
8984
9144

9154

9164

7864
8854
901#
9184

9454

9464

9484

9454

9504

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

9514
1972
4580
12844

1109
2016

13254
1640
709
81
816

4893
53904
16204
14554
14344

1436+
830
820
707

726
838

1439
17374
14664
1072
15374
17424
15234
13734
14054
1070#
17644

808#

1613

828
826
836
832

1438%#

824
834
822
810
812

rak|

814

Mmoo

12:45
PAGE 117
CROSS REFERENCE TABLE == USER SYMBOLS

1119
2136

12514
2140

17014

1709

1086

1841

15454
1548#
17534
17264

1458

16084
14164

1269

2187

1704

2218

1714
2250

SEQ 0116
17624
225

17974
3484

17994

3510

1854

3531

1857

4086

1878

4313

I(IOHE MACY11 30A(105

$ABORT

$AUTO
$8(C
$BINCR
$8INW]

$BUF F E

$CDATA
$CLOCK

sCoMP

$CRC
$CRCSH
$CYCLE
SEMPTY
$EOP
$F INI
$FLAG
$FLOAT
$GE TPA
SHALF
$HEADE
$INACT
$INIT
$L INET

3494

3506

5954

2433
2651
2836
3106

3166

3576
3873
1865
4684
1319
4960

972

4272

4506
4719

3178

4131

3214

3223

3680

6347

3939

2536

3031

3059

3087

3115

2445
2259
2361
2403

2503
2283

2306

2330

4335

4378

4602

3¢51

3260

3726

4614
3755

4668

4656

4848

4932

3801

4749

3468
1781

3340
1697
5211
1975
1725
1728

2435
2655
2841
3134

513

4158

597
3

g19

3847

217

4395
4619

4404

4949

4628
4958

3454

3462

4879

2519

3423
4139

575
866
190

3784

2481

2461

S W

1141
3559
3859
2970
1793
4784
2599

5954
5954
5954
5954
5954
5954

301
668

5954
5954
595#
5954
5954
5954
5954

SPATTE
SPFAIL
$00Q]
$QUEST
SRAMCL
$RCLK

SMULT

256
3597
3902

423%8
4469
4653
5146

sLU1
$LU12
$LU17
$MARH
$MARK
SMATCH
$MOCK
$MODEM
$MSG

359

4221
4465
4639
5030

5954
5954
5954
S95#
5954
5954
S95#4
5954
5954
5954
5954
5954
5954
5954
5954
5954
5954
S95#4
5954
5954
5954
5954
5954

SEQ 0117

§917

5954

CROSS REFERENCE TABLE == MACRO NAMES

-.am

5954

FR IS

2281

227
3593
3851

119

1319

5954
6694

2621

PAGE

i |
Sed no

5954

12:38

12:45

OMEND

DMFRNT
HLT

11-SEP=7

11-SEP-78

EaE
ak ¥ o

CZDMEC.P

3288

4860

3830

3297

4944

3325

3334

3446

CZDME
MACY11 30A(1052)
_11-SEP-78
CZOMEC.P1
11-SEP-78
12:38
07
947
4388
4766
5010
$RCRC
$REC
$SCOPE

$SIMBC

$SINAC
$SOF TC
$STUFF
$SWPAC
$TCHAR
$TCRC
$TRANW
$TRANT
$TRPDE
$TSTN

4397

3938

659

3589

4607

8 10

12:45 PAGE 120
CROSS REFERENCE TABLE == MACRO NAMES

3489
64121
461
485

5042
520

5140
5303
5954
5954

3266

5954

349
41

4621
4867

5049
5215

3504

414

415

4937

4942

464

gggg

4661

5242

3303

5954

5954
595#
5954
5954
5954
5954
S95#
5954
5954

4429

837

5954

2776

3389

$VARIA

4757
5954

$xZ

5954

$WINDO

981

—

5954

3433

4796
728

3477

4890

3524

2503
2774
3115
3387
3859

$ZEROS

4755
5954

. ABS.

(032226

4453

4523

815

817

821

823

2338
2981
3568

2369
3039
3643

2453
3095
3793

2511
3123
3867

2919
2289
2577
2876
3192
3475
3991

2306
2583
2919
3198
3516
3999

2330
2605
2970
3235
3559

2336
2632
2979
3266
3566

4888

ERRORS DETECTED:
—_

CZDMEC/I,CZDMEC. SEQ/CRF /SOL=CZDME (
RUN-TIME: 14 19
SECONDS
RUN-TIME RATIO: 55/35=1.5
CORE USED:
(63 PAGES)
32K

4101

4160

SEQ 0118
3540
4326

23EI\ —

\'\I;MJ*QJ\

—

3919
4383
4740

5004
5123
5289