Digital PDFs

AH-8553D-MC

November 1980

123 pages

Original

6.7MB

view download

OCR Version

5.6MB

view download

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

OCR Text

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

4ACYY1

07-uuL-80C

01-,UL-80 15:29

13:53

PAGE

SEQ 0001

.REM

PUPINIAY
=P cd b cld e P e o e e

2O OO0 NN

NN —

30A(1052)

IDENTIFICATION

=2 OO0

PRODUCT

THE

CODE:

AC-8552D-M(

PRODUCT NAME:

CZDMEDO DDCMP MD LN UNIT

DATE:

AUGUST 1980

MAINTAINER:

DIAGNOSTICS=MERRIMACK

INFORMATION

IN THIS DOCUMENT

IS SUBJECT

TO CHANGE

TST

WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATICN ASSUMES
NO RES?ONSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR [N THIS
DOCUMENT.

THE SOF TWARE DESCRIBED

LICENSE

TERMS OF

IN THIS DOCUMENT

NOT

USE

UNDER

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

DIGITAL EQUIPMENT CORPORAT]ION ASSUMES
THE

IS FURNISHED

RELIABILITY OF

SUPPLIED BY DIGITAL.

(()

1976,

RESPONSIBILITY

[TS SOF TWARE ON EQUIPMENT

THAT

FOR
IS

1680 BY DIGITAL FQUIPMENT CORPORATION

(I0ME

. P11
(20me

C10Mt
MACY1Y 30A(1052)
07-JuL-80
CZomt P11
01-JUL~80 75:29

13:53

PAGe 2

SEQ 0002

LS
29

ABSTRACT
THE

FUNCTION OF

THE DMC11

DIAGNOSTICS

VERIFY

THAT

THE

L9
50
2;

OPTION OPERATES ACCORDING TO SPECIFICATIONS.,
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE
OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT.

53
5
5

PARAMETERS MUST BE SET UP TO ALERT
THE
DIAGNOSTICS
TO
THE
DMC11
CONFIGURATION.
THESE
PARAMETERS ARE CONTAINED IN THE
STATUS
TABLE
AND
ARE
GENERATED
IN
TWO WAYS:
1)
MANUAL

PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY.

59
60
61
62
63
64
65

INPUT - THE

OPERATOR

(IDME TESTS

THE

ANSWERS QUESTIONS.

DMC-11

LINE

UNIT

THE DIAGNOSTICS
ALL
OPERATIONS

2) AUTOSIZING - THE

(MB201

M82072).

PERFORMS WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS.
IT
(HECKS 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 DTAGNOSIS A TURN-AROUND CONNECTOR SHOULD BE INSTALLED,
HOWFVER THE DIAGNOSTIC WILL RUN WITHOUT
IT
(SOME
TESTS
ARE
SKIPPED).

68
69

CURRENTLY THERE ARE FIVE OFF LINE DIAUNOSTICS THAT ARE
TO BE
RUN
IN SEQUENCE
TO
INSURE THAT [F 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:

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

3.
&.

D2DMF [REV]) BITSTUFF LINE UNIT TESTS
DIDMG [REV) JUMP AND CROM TESTS

78
79

CIDME [REV) DDCMP MODE LINE UNIT TESTS

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

NOTE: THE NAMES OF THESE UIAGNOSTICS MAY VAYIE AS THEY ARE UPDATED.

REQUIREMENTS

2.1

EQUIPMENT

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

OR DM 11-FA
DMC11=-AL WITH DMCI1-MA OR DMC11-4D

90
91

ASR 33 (OR EQUILIVALENT)
DM(11-AR WITH DMC11-DA

(I0ME
MACY11 30A(1052)
0;-JUL°80
CZDME . P11
01-JuL-80 15:2
94
95

13:53

PAGE 3

2.2

SEQ 0003

STORAGE
PROGRAM WILL USE

ALL

8Kk

BOOTSTRAP

LOADER

}82

ALTERED BY

THE NPERATOR.

100
10
102

LOADING PROCEDURE

107
108

ME THOD

MEMORY

SIZE

—_—— NN
—
VN =~~~

~N~~

=D
i
) o

NN =2 OO

2 b D b b s 2 O

i e

LOCATIONS 1500 THRU 1640;

ABL

AND

CONTAIN

ABSOLUTE LOADER STARTING ADDRESS *500

D oD o
d
d
e
d o
e
i

WHERE

MEDIA,

8k
12K
16K

NO VNS LW

D e
D
e
i
b
ot
i
s
e

EXCEPT

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

= OOV

AN N AN AN NN N NI NN RO FONIPNININD — b

MEMORY

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

}82

O VB WA = OV

RESIDE.

20K
24K
28k

3.1.1

PLACE ADDRESS OF

3.1.2

DEPRESS

3.1.3

ABS LOADER INTO SWITCH REGISTER.

(ALS0 PLACE

'HALT'

'LOAD ADDRESS'

SW UP)

KEY ON CONSOLE

AND RELEASE.

DEPRESS 'START KEY' ON CONSOLE AND RELEASE

BE LOADING INTO CPU)

(PPOGRAM SHOULD NOW

CIDME

MACY11 3GA(1052)
07-J4uUL-80
01-JuL-80 15:29

P11
(Z0.ME

13:53

PAGE

STARTING PROCEDURE

B.
(.

—t il

)

ik e

fo Yo XV XV, IV, IV TV IV IV TV, 1V ]
= OO0 NO N
NN —

SEQ 0004

SET

SWITCH REGISTER

TO 000200

DEPRESS 'LOAD ADDRESS' KEY AND RELEASE
SET SWR TO ZERO FOR 'AUTO SIZING' OR SWR BIT0=1

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

DIAGNOSTIC.

DEPRESS "START KEY' AND RELEASE.

THE

PROGRAM

WILL

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

(SR

DMC11

STAT1

001500 160010 145210
001510 160020 145320

TYPE

START

STATUS

STAT2

STAT3

177777
177777

000000
000000

THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN
THE
DIAGNOSTIC.
THE
ABOVE 1S ONLY AN EXAMPLE.,
THIS WwOULD INDICATE THE STATUS
TABLE STARTING AT ADD.
1500 IN THE PROGRAM.
[N THIS
EXAMPLE

THE
TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DML11'S,
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF
AUTO SIZING

IE PDONE.

HELP.

FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR

THE DIAGNOSTIC WAS STARTED WITH

SW00=1

INDICATING

MANUAL

PARAMETER
INPUT
THEN
THE
FOLLOWING 3HOWS AN EXAMPLE OF
QUESTIONS ASKED AND SOME EXAMPLEL ANSWERS:
HOW MANY DMC11°'S TO BE

THE

TESTED??

(SR _ADDRESS?160010
VECTOR ADDRESS?310

(4,5,6,7)?5
BR PRIORITY LEVEL?
(Y OR N)N
DOES MICRO-PROCESSOR HAVE CRAM?
IFf MB201
‘'N'',
TYPE
NONE
IF
UNIT?
LINE
WHICH
MB202 TYPE '"2"'N
IS THE LOOP BACK CONNECTOR ON?Y

TvyPt

'1°',

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

WHICH MODEM TYPE,

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

TYPE “F** FOR OMCI1-FA (v.35) 2 D

SWITCH PAC#Y (DDCMP LINEN)?377
SWITCH PAC#2 (BMB73 BOOT ADD)?377
FOLLOWING THE QUFSTIONS THE

DESCRIBED

ABOVE,

THE

STATUS

INFORMATION

ANSWERS TO THE QUESTIONS.

MAP

THE

PRINTEDL

OUT

MAP REFLECTS THt

THE DIAGNOSTIC WAS STARTED

WITH

CIOME

MACYYY 30GA(1052)
07-JuL-80
01-JuL-80 15:29

E
. P11
CIDM

13:53

194
195
196
197
198
199

= OOV

W) - O

POMNVNLNININL
NI
NI NN
POR) ~2 b et —d od b s —d b

SEQ 0005

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

193

200
20N
202
203
204
205
206
207
208
2?9

PAGE

THE

USED

(MATCH THE

RagS?ggglC

6.1

CONTROL

STATUS

MUST

MyST BE VERIFIED TO BE CORRECT

INFORMATION

WARDWARE).

DOES NOT MATCH THE

RESTARTED

HARDWARE

THE

WITH SW00=1 AND THE QUESTIONS

SWITCH SETTINGS

SW 15 SET:
SW 16 SET:

SW
SW
SW
SW
SW
SW
5W
SW

13
12
11
10
09
08
07
06

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

SW
SW
SW
SWw
SW

05
04
03
02
01

SET:
SET:
SET:
SET:
SET:

SWw 00 SET:

HALT ON ERROR

LOOP ON CURRENT TEST

[NHIBIT ERROR PRINT OQUT
INWIBIT TYPE OQUT/ABELL ON ERROR.
(QUICK PASS)
INWHIBIT ITERATIONS.
ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
WUSE PREVIOUS STATUS TABLE.
HALY IN
ROMCLK
ROUTINE
BEFORE

CLOCKING

M]CRO-PROCESSOR

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

BUILD NEW STATUS TABLE FROM QUESTIONS.
AND

SW00=0

AUTO=-SIZING)

NEW

STATUS

TABLE

(IF

sw07=0

BulLT BY

SWITCH 06 AND 08-15 ARE DYNAMI( AND (AN BE CHANGED
AS NEEDED
WHILE THE DIAGNOSTIC IS RUNNING.
SWITCHES 00-03 AND SWIT(H 07
ARE

SYA;{C. AND ARE USED ONLY ON STARTING

DIAGNOSTIC.

RESTARTING

THE

MACY1Y

[LS 1, STST, N1 VI NI S1 V], V1, V1.8

W
UHAN N W W NN
NOWVNEB
W 2,O000~N

P11

3GA(1052)

07-JuL-80

01-JuL-80 15:29

13:53

PAGE 6

6.1.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
C(LEAR
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

?gg‘CARRIGE RETURN TO BEGIN EXECUTION AT THE

Sw 02

SWITCH WHEN USED WITH
THIS
LOCK ON SELECTED TEST.
WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THF
SW01
SELECTED TEST.
HMITTING ANY KEY ON
THE
(CONSOLE
WwILL
ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY
IT
LET
1S HIT AGAIN.
IF
SW02=0 WHEN SWG1
IS USED.
THE
PROGRAM

WILL

BEGIN AT THE

NORMAL OPERATIONS.

Sw 03

SELECTED

SELECTED TEST AND CONTINUE

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

EQUAL TO DMC11°'S ACTIVE.
FOUR

DMC11S;

THERE

BITS

THIS MEANS [F THE SYSTEM HAS

00,01,02,03

wiLL

BE SET

IN LOC

"DMACTV'
FROM THE
SWITCH REGISTER.
USING
THIS
SWITCH(SWOO)
ALTERS
THAT
LOCATION;THEREFORE IF FOUR
OMCY1S ARE IN THE
SYSTEM +«e¢DQ NOTee+
SET SWITCHS
GREATER
THAN SWw 03 IN THE UP POSITION.
THIS WOUID BE
A FATAL ERROR.
DO NOT SELECT MORE ACTIVE DMC11S
THAN
ME THOD :

INFORMATION ON IN THE

LOAD ADDRESS 200

PROGRAM WILL

NUMBER (IF

B:
D:

STATUS

TABLE.

START WITH Sw 00=1

TYPE MESSAGE

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

PRESS CONTINUE

VALID)

(EXCLUDING 11/05)

SET WITH ANY OTHER

PRESS

CONTINUE.

WILL
SWITCH

DATA

SETTINGS

LIGHTS
DESIRED.

———

PAGE 7

6.1 .3

SEQ 0007

DYNAMIC SWITCHES
ERROR SWITCHES
@

SW 12

SW
SW
SW
SW

NS
—

275
276
277
278
279
280
281
282
283
284
285
286

270
271
272
273
274

13:53

MACYYY 30A(1052)
O ;-JUL-BO
01-JUL-80 15:2

e«

(IDME

CIDME.P1Y

SCOPE
1.

DELETE ERROR PRINTOUT.
HALY ON THE ERROR.
GOTO BEGINNING OF THE TEST(ON ERROR).
GOTO NEXT TEST(ON ERROR).

SWITCHES

SwW06

HALT

ROMCLK

MICRO-PROCESSOR

ROUTINE

INSTRUCTION.

BEFORE

THIS

CLOCKING

ALLOWS

THE

OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN

287
288
289
2 .
291

BEFORE
STATE
STATIC
THE
CONTINUE TO RESUME RUNNING.

Sw09

HIT

CLOCKED.

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

IF AN '¢'

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

292

293
294
295
296
297
298
299
300
301
302
303
304

DELETE PRINT OUT/BELL ON ERROR.

13
15
08
10

IF
Sw08=0).
SCOPE LOOP (Sw14=0, SW10=0, SwW09=1,
AND THERE IS A HARD ERROR
IS NOT ENABELED;
SW09
(TONSTANT),
SW08
IS BEST.
(SW14=1,0,
SwW10-0,

sw09=0, SW08=1).

WILL LOOP ON TEST
3.
L.
4.2

ERROR,

Swli
35W14

FOR INTERMITTEMT ERRORS;
REGUARDLESS

ERROR

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

INHIBIT INTERATIONS.
LOOP OGN CURRENT TEST,

SwWlé=1

NOT

STARTING ADDRESS

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

ARE
NO OTHER
STARTING
(SEE SECTION 4.0)

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM

ASSUMES
[T
OR XXDP CONTROL AND WiLL ACT
ACT11
UNDER
IS
ACCORDINGLY AFTER ALL AVAILABLE DMC11'S ARE TESTED THE
PROGRAM WILL RETURN TO 'XXDP'

'ACT-11",

OPERATING PROCEDURE

WHEN PROGRAM [S INITIALLY STARTED

SECTION
THE

4.0

DIAGNOSTIC

WILL

MESSAGES
AS
DESCRIBED
IN
BE PRINTED, AND PROGRAM WiLL BEGIN RUNNING

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

13:53

5.2

PAGE 8

SEQ 0008

PROGRAM AND/OR OPERATOR ACTION
THE

TYPICAL

APPROACH

SHOULD BE

HALT ON CRROR

SET

2.
3.

THE

(VIA SW 15=1)

WHEN EVER AN ERROR OCCURS.

CLEAR SW 15,
(LOOP ON THIS TEST)
SET SW 14:
Sw 13:

(INHIBIT ERROR PRINT 0QUT)

TEST NUMBER AND PC WILL BE

ERROR

MESSAGE

TYPED

OUT

(THIS DEPENDS ON THE TEST)

AND

TO GIVE

POSSIBILY

THE OPERATOR

AN IDEA AS TO THE SOURCE OF THE PROBLEM.
IF IT
IS
NECESSARY
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT;
LOOK IN
THE LISTING FOR 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 Bt

DETERMINFD.

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).
I[N MOST CASES ADDITIONAL INFORMATION WILL BE
SUPPLIED
%NET?ERBSE ERROR MESSAGE TO GIVE THE OPERATOR AN [NDICATION OF
H

ERROR RECOVERY

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

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

CONTROL

CPU.

THIS

SHOULD HAPPEN;

REGAIN

LOOK IN LOCATION

'TSTNO®' (ADDRESS 1226)FOR THE NUMBER
OF
THE
TEST
THAT
WAS
RUNNING AT
THE
TIME OF THE CATASTROPHIC ERROR.
[N THIS WAY
THE OPERATOR WILL HAVE AN [NEA AS TO WHAT THE DMC11 WAS
DOING
AT

THE

TIME OF

THE

ERROR.

RESTRICTIONS

STARTING RESTRICTIONS

(PLEASE)
STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS
ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WlTH
STARTED.
T:galg;ORHATION PRINTED ON
THE
TTY
TO
COMPLETLY
[ISOLATE

SEE SECTION 4.

PROSLEMS.

(IDME

MACY11 30AC1052)
07-JuUL-80
01-JuL-80 15:29

P11
(20.ME

366
367
368
369
370
N
372
373
374
375
376
3/7

13:53

7.2

FIRST TIME A DMCY11 DIAGNOSTIC
STATUS TABLE MUST BE SET UP.

(SW00=0

IS LOADED INTO CORE AND
RUN
THIS IS DONE BY MANUAL INPUT

AND

SW07=0).

THEREAFTER

STATUS
TABLE
IS OVERLAYED.
THE
CURRENTM PARAMETERS [N THE
STATUS TABLE ARE USED WHEN SWw07=1 ON START UP,

HARDWARE

CONFIGURATION RESTRICTIONS

DMC11(MB200)- JUMPER W1 MUST BE IN, AND SWIT(H 7 OF

IN THE OFF

POSITION.

KMC (M8204)~ JUMPER w1

MUST BE

ggélT?gD

MUST

OuT.

SW8

AND W& MUST BE

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

OFF

POSITION.

E76

MUST

IN.

LINE UNIT(M8201)- JUMPERS W1, W2,

E26

IN.

MUST BE

JUMPERS

IN THE ON

SW8 OF E26

MUST

MISCELLANEOUS

393
394

teXECUTION TIME

375
396
397
398
399
<00

617

OPERATING RESTRICTIONS

(SW00=1) OR BY AUTOSIZING

388
389
390
N
392

18
419
420
21

SEG 0009

HOWEVER
THE
STATUS
TABLE
NEED
NOT
BE SETUP BY SUBSEQUENT
RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC
BECAUSE
THE

383
384
385
386
387

616

THE
THE

378
379
380
381
382

401
402
403
404
405
406
407
408
409
410
611
412
413
L4
415

PAGE

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

MESSAGE
THIS IS
FASTEST
GREATLY

ON Y?E PDP11 CPU CONFICURATION AND THE AMOUNT OF MEMORY IN THE
SYSTEM.

8.2

PASS

COMPLETE

NOTE:
EVERY TIME THE PROGRAM IS STARTED;
THE TESTS WILL
RUM
AS
15
SW11l
(DELETE
ITERATIONS)
WAS UP
(=1).,
THIS IS T0

'VERIFY NO HWARD ERRORS' AS SOON AS POSSIBLE.
THEREFORE
THE
FIRST
PASS =-EACH
TIME
PROGRAM IS STARTED- WILL BE A 'QUi(K
PASS' UNTIL ALL
DOMC11'S
IN SYSTEM ARE
TESTED.
WHEN
THE

DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF
THE

PRINT QUT

TO BE EXPECTED.

END PASS CZDME CSR:

175000 VEC:

0300 PASSES:

000001

ERRORS:

000000

NOTE:

THE PASS COUNT AND ERROR COUNTS ARE
CUMMULITIVE
FOR
THAT IS RUNNING, AND ARE SET TO ZERQ ONLY
EACH DMCYI1
AFTER AN
THEREFORE
WHEN THE DIAGNOSTIC IS STARTED.
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS
FOR EACH DMC1Y SINCE THE DIAGNOSTIC
WAS
STARTED
ARE
REFLECTED

IN PASSES:

AND ERRORS:.

CIDME

by
MACY11 30A(1052)
0 7-JUL-80
01-JuL-8 0 15 :2 9

. P11
(ZDME
422
423

624

425
626
627
428
429
430
(31
432
433
434
435
436
637
638
439

13:53

PAGE

8.4

440
1y
642
443
644
645

SEQ 0010

KEY LOCATIONS

RETURN

(1214)

(1216)

TSTNO

(1226)

RUN

(1316)

(1500)=(1640)

465

466

467
468
L69

470
«N
672

473
674

675
676

&77

THE

TEST

NOw

BEING

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

OM(C11
(RUN)
NO.06

PEFORMED.

TEST

THESE LOCATIONS COi.

IN THE

INFORMATION NEEDED

CONCERNING THE CONFIGURATION OF EACK DMC11.

DMACTV (1306)

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

DMC11

THAT

INDICATES

WILL BE TESTED IN TURN.

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

EXAMPLE:

THAT DMC11

DMCSR

657

464

CONTAINS THE NUMBER

THE NEXT

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

647
448
449
450
45
452
453
654
455
L56

462
463

CONTAINS THE ADDRESS OF

PEFORMED.

DMCROO-DMCR1?
DMST00-DMST17

446

458
459
460
461

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN
WHEN
[TERATION COUNT IS REACHED OR IF LOOP ON
TEST IS ASSERTED.

B.4A

(1402)

'STATUS TABLE'
THE

TABLE

INPUT

USER;

(DMACTY) 1276/0000000000010001 MEANS
NO.

00,04 WILL BE

$2N¥AINS THE (SR OF THE
ST.

TESTED.

CURRENT

DMC11

UNDER

(1500-1640)

1S FILLED BY AUTO SIZING OR BY THE MANUAL

(QUESTIONS) AS DESCRIBED PREVIOUSLY.

THE LOCATIONS MAY BE ALTERED BY HAND

SUIT THE SPECIFIC CONFIGURATION.

THE EXAMPLE STATUS MAP SHOWN BELOW

CONTAINS

PARAMETER

ALSO IF DESIRED BY

(TOGGLED

IN)

INFORMATION

FOR

TWO DMC11'S.
THE
TABLE
CAN CONTAIN UP TO 16 DMC11'S.
EO%EOU!NG THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP
NTRY

MAP OF

CSR

DMC11

STATY

001510 160020 016320

STATUS

STAT2

STAT3

000000

(IDME

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

CZDME .P1Y
(78
679
480
481
(82
483
484
485
486
487
488
489
490
9N
492

13:53

PAGE 11

SEQ 0011

EACH MAP ENTRY C(ONTAINS & WORDS WHICH CONTAIN THE
INFORMATION FOR
1
DM(11,
THE PC SHOWS WHERE IN CORE MEMORY
THE

FIRST OF

500
501
502
503
504
505
506
507
508
509

IS.

IN THE EXAMPLE ABOVE

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

SECOND DMC STATUS IS LOCATED AT 1510, 1512,
THE

INFORMATION

(SR:

STATY:

CONTAINS DMC11

AND 1506.

1514,

CONTAINED IN EACH & WORD ENTRY

FOLLOWS:

493

494
495
496
497
498
499

THE & WORDS

IS DEFINED AS

(SR ADDRESS

=08 IS DMC11

VECTOR ADDRESS

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

LINE UNIT IS AN M8201
LINE UNIT IS AN MB20?

NO LINE UNIT
=11 IS OMC11 BR PRIORITY LEVEL

(DDCMP LINE NUMBER)

STATZ:

E IS SWITCH PACHT

STATY:

RUN FREE RUNNING TESTS ON KM(C1
OMC11-AR (LOW SPEED)
OMCI1-AL (HIGH_SPEED)

1S SWITCH PAC#2

DMC11-DA (RS232)

DMC11-FA (Vv.35)

(BMB73 BOOT ADD)

(I TV TV TV TV TV IV TV TS ST N TN LTS TN 1,8 1 W N Rsttty
O~NOWVNES NN 2OV
NN
WD 2OV NOWVNWN—-O

MACY11 30A(1052)
07-JuL-80
4 t
01-JuUL~80 15:29
0 te.P1N

13:53

PAGE 12

SEQ 0012

8.5

METHOD OF

8.5.1

FINDING THE CONTROL STATUS REGISTER.

AUTO SIZING

THE AUTO-SIZING ROUTINE FINDS A DMC11

AS FOLLOWS:

STARTS

AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP
TO AND INCLUDING ADDRESS 167760.
IF THE ADDRESS DOES NCT TIME
OUT,
THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS 'S WRITTEN
TO A 125252 THEN 1T IS READ BACK.
IF
IT
(CONTAINS A
=1
OR
125252 OR 626 OR
16520 A DMC11 HAS BEEN FOUND, IF NOT. THE
ADDRESS 1S UPDATED BY 10 AND
THE
SEARCH CONTINUES.
A =1

INDICATES

DMC11 WITH NO CROM OR CRAM, A 125252 INDICATES A
INDICATES A DMCI1-AL AND A 16520
FURTHER TESTS ARE PERFORMED AT THIS

KMC11 WITH CRAM, A 626
INDICATES A DMC11-AR,

POINT TO DETERMINE WHICH LINE UNIT,

IF ANY,

IS INSTALLED,

LOOP-BACK
CONNECTOR
IS INSTALLED AND VARIOUS SWITCH SETTINGS
ON THE LINE UNIT.
THIS
IS WHY
THE
STATUS
TABLE
MUST BE
VERIFIED BY
THE USER AND IF ANY OF THE INFORMATION DOES NOT

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

WILL BE FOUND BY THE AUTO-SIZER.

IT DOES NOT FIND A

DMC1I

THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED.

FINDING THE

VECTOR AND BR LEVEL

THE

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

LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY

BAD

DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL

MACE AND IF NO INTERUPT OCCURES AT PS LEVEL 3

(BECAUSE

5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC.
ONCE THE
THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET
CORRECT VECTOR.
IF AN INTERUPT OCCURED;
THE ADDRESS TC WHICH
THE
OMC11
INTERUPTED
TO
IS
PICKED UP AND REPORTED AS THE
VECTOR.
NOTE:
IF THE VECTOR REPORTED IS NOT THE VECTOR SET

PRC3BLEM IS FIXED;

gP EBY
ONE

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 (PU WITHOUT A
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED T0
ALLOW USER THE SAME SWITCH OPTiONS AS DESCRIBED PREVIOUSLY.
IF
THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOFS
AND
IT
CONTAINS ALL ONES
(177777)
THIS
SOFTWARE
SWITCH
REGISTER

[S USED.

CONTROL:

TO OBTAIN CONTROL AT ANY ALLOWABLE IME
DURING EXECUTION OFf
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 W!LL BE DISPLAYED:

(IDME

MACY1Y 30A(1052)
07-Ju -80
01-JuL-80 15:29

CI0ME .P1Y

13:53

566
567
568
569

575
576
S77

AN OCTAL DIGIT.

57
57
580
581
582
583
84
585
586
587
588
589
590
591

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

DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW.
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS
TYPED,
AT
LEAST
ONE
DIGIT
MUST BE TYPED ON ANY GIVEN INPUT STRING
PRIOR TO THE TERMINATOR BEFORE A CHANGE

TO THE SSR WILL OCCUR.

WHEN THE INPUT STRING [S TERMINATED WITH A <(R> THE DIAGNOSTIC
WILL
CONTINUE
EXECUTION FROM THE
POINT
AT WHICH
[T WAS
IF A <CR> IS THE ONLY THING TYPED THE PROGRAM
INTERRUPTED.
THE <LF> DI*FERS FROM
WILL CONTINUE WiTHOUT CHANGING THE SSR.
AT
IT WERE RESTARTED
[F
AS
PROGRAM
THE
RESTARTING
THSREg§>285
AD

992

591

610

SEQG 0013

SWIT'H
SOFTWARE
THE
WHERE XXXXXX [S THE CURRENT CONTENTS OF
REGISTER
IN OCTAL.
THE
SOFTWARE CONTROL ROUTINE WILL THEN
AWAIT OPERATOR ACTION.
AT WHICH TIME THE OPERATOR IS REQUIRED
TO TYPE ONE OR_MORE OF THE LEGAL CHARACTERS:
1) 0 -7, 2)
C(ONTROL-V
LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR &)
(CTRL U).
NO CMECK
IS MADE
FOR LEGALITY.
IF THE INPUT
CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED
TO BE

573
574

607
608
609

SWR=XXXXXX NEW?

570
571
572

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

PAGE

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

THE

TERMINATOR

PROMPT DISPLAYED

THE

INPUT

VALUE WILL BE DISREGARDED AND THE

(SWR = XXXXXX NEW?).

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

THE

HiSTORY

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

AND M8201.

IN THIS CONIFURATION, RING WILL NOT BE LOOPED BA(K

4w SHOULD NOT RE

TESTED FOR.

MACY11 30AC1052)
07-JuL-80
c2ome.P1
01-JuL-80 15:29

PAGE 14

*3:53

INTRODUCTION TO DMC11 DIAGNOSCTIC

SEQ 0014

oooCcocoocoo

CIDME

;vAC-85520-M(

OMC11

DD(MP MODE LINE UNIT TESTS

;*COPYRIGHT 1976,1978, DIGITAL cQUIPMENT CORP.,
T

YRR

Y X Y

PR PR XY LR

MAYNARD, MASS. 01754

2 X

XTI

;STARTING PROCEDURE

:LOAD PROGRAM

: OAD ADDRESS 000200

AUTOSIZE OmC!
:SWR=0
;SW07=1
USE CURRENT LM(11 PARAMETERS
. SW00=1
INPUT NEW DMC11 PARAMETERS
;PRESS

START

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

TYPE

STATUS MAP

DMC11 DDCMP MODE LINE UNIT TESTS"

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

THEN RESUME

TESTING

;SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE

;SWITCH REGISTER OFTIONS

655

il e

+HALT

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

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
Sw10=2000
SW09=1000
SwW08=400
SW07=200
SWw06=100
SW05= 40
SW0«= 20
Sw03-= 10
P
E4
SWo =2
Sw00=1

—

100000

ON ERROR

,LOOP ON CURRENT TEST

.,INHIBIT ERROR TYPEOUT

LDELETE TYPEOUT/BELL ON ERROR.
LINHIBIT ITERATIONS
LESCAPE TO NEXT TEST ON ERROR
.LOOP WITH CURRENT DATA
.LOOP ON ERROR

LUSE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11
. HALT BEFORE CLOCKING MICRO- PROCESSOR INSTRUCTION

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

PROGRAM AT

SELECTED

;INPUT DMC11 PARAMETERS

TEST

MACY11 30A(1052)
07-JyuUL-80
(ZDME
01-JuL-80 15:29
20 mE.PY

13:53
PAGE 15
GENERAL DEFINATIONS AND EQUIVALENCIES

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

RO=%0
R1=%1
R2=%2
R3=%3
RG=X4
R5=15
£o=%6
pPC=x7

;OENERAL
:GENERAL
:GENERAL
;GENERAL
;GENERAL
:GENERAI

;PROCESSOR STACK POINTER
. PROGRAM COUNTER

;LOCATION EQUIVALENCIES
177776

001200

PS=177776
STACK=1200

;PROCESSOR STATUS WORD

;START O

PROCESSOR STACK

s INSTRUCTION DEF INITIONS

00>746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626
LEQUIV EMT HLT

;BIT DEFINITIONS
100000

040000
020000
010000

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

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

SEQ 0015

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

13:53
PAGE 16
TRAPCATCHER FOR UNEXPECTED

708
709

NN RN

710
14}
712
73

IRV

eRCRONOOE

INTERRUPTS

[

; CHRRRNRRRANRRNNEENCECEORONCEERNCOEROARORNRNRRAROERROOERRRORORNANCREORROONOSOROEOROTETNTS

718

.=0

000000

000052

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

000174
000176

000174
000000
000000

000200

000200
000137

000024
000026
000030
000032

000034
000036

000040
000042
000044
000046

001000
001016

; STANDARD

.=24

005377
046504

INTERRUPT

VECTORS

PFAIL

:POWEK FAIL HANDLER

HLT

"ERROR HANDLER

34,0
o

"SERVICE AT LEVEL 7

340
" TRPSRV

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

0
0
0
SENOA

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

“ACT=11 PROGRAM CHARACTERISTICS

2174

.SOF TWARE DISPLAY REGISTER
"SOF TWARE SWITCH REGISTER

D1SPREG: 0
0
SWREG:
.=200

001000

001200

748

030503

034055
020061

.=1000

MTITLE:

GO TO START OF PROGRAM

IMP

START

.ASCII
"ASCIZ

<377><12>/AC-85520-MC/<377>
/DMCI1 DDCMP MODE LINE UNIT TESTS/<377>

.=1200

DISPLAY: 17 7
17 7
SWR:

001200
001202

JINDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY
N

749
750
751
752
753

ILLEGAL

RRNN

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

(2)
(2)
747

SEQ 0016

INTERUPTS

;THE STANDARD "'TRAP CATCHER'® 1S PLACED

716

7462
743
744
745
746

NPt eI

:TRAPCATCHER FOR

714
715

719
720
721
722
723
724
725
726
727
728
729
730
3
732
733
734
735
736
737
738
739
740
741

MACY11 30A(1052)
(ZDME
07-JuL-80
94 DmMe .P1N
01-JuL-80 15:29
754

755

762
763

PROGRAM PARAMETERS, VARIABLES, AND TRAP (AL.S.

SEQ 0017

;INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
oeoeceee

001204
001206
001210
001212

177560
177562
177564
177566

TKCSR:
TKDBR:
TP(CSR:
TPDBR:

RETURN:
NEXT:

001234

000000
000000
000000
000003
000000
000000
000000
000000
000000

764
765
766

767
768
769
770
77

772
773
774
775
776
777
778
779
780
781
782
783
/84
785
786
787
788
789
790
791
792
793
794

LOCK:
JCOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

177560
177562

;TELETYPE
;TELETYPE

OOOOOWOOO

758
759
760
761

PAGE

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

177564
177566

KEYBOARD CONTROL REGISTER
KEYBOARD DATA BUFFER

;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

;NUMBER OF

[TERATIONS THAT CUPRENT TEST WILL BE EXECUTED

;NUMBER OF

PASSES COMPLETED

;NUMBER OF JTEREATIONS COMPLETED
;NUMBER OF TEST IN PROGRESS
;TOTAL
;PC OF

NUMBER OF ERRORS
LAST ERROR CALL

;PROGRAM VARIABLES
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302

000000
000000

000000

001304
001306
001310
001312
001314
001316

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
000000
000001
000001
000001
000001
000000

001320
001322

201472
001676

STRTSW:
STAT:
CLKX:

MASKX:
TEMP

TEMP?:
TEMP3:

TEMPSG:

TEMPS:
SAVRO:
SAVR1:

SAVRZ:
SAVR3:

SAVRG:
SAVRS:
SAVSP:
SAVP(:
l1ERO:
ONE:

MEMLIM:

DMACTYV:
DMNUM:
SAVA(CT:
SAVNUMRUN:

JEVEN
(REAM:

MiLK:

(e P
lelolelelelololelalelelelelelelo
o]
)

756
757

13:53

BLKW 1
BLKW 1
BLKW 1
BLKW 1

DM . MAP-6

(NT _MAP-4

;SWITCHES AT START OfF 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

:R5 STORAGE

:STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

;HIGHEST LOCATION FOR NPR'S
;OMC11'S SELECTED ACTIVE.
:OCTAL NUMBER OF DM(C11°'S,
;ORIGINAL ACTV
;WORKABLE

NUMBER

DEVICES

;POINTER TO RUNNING DEVICE.
. TABLE

POINTER,

;TABLE POINTER

CZ0ME
MACYYY 30A(1052)
07-JuL-80
(2DMe PN
01=-JuL-80 15:29
807
808
809
810
811

812
813
814

815
816

826
827
828
829
830
831
832
833
834
835
836
837

838
839
840
841
B42
843
844
845
B4b
847
848
849
850
851
852
853

854
855

856

PAGE

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

SEQ 0018

;PROGRAM CONTROL FLAGS
001324
001325
001326
001327

000
000
000
000

INIFLG:
ERRFLG:
LOKFLG:
Qv.fFLG:

EvE

.BYTE
.BYTE
.BYTE

0
0
0

.BYTE

;PROGRAM [NITIALIZATION FLAG
;ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG

;QUICK VERIFY FLAG.

;ON FIRST PASS OF EACH DMC11

.EVEN

817

818
819
820
821
822
823
824
825

13:53

ITERATIONS WilL BE SUPPRESS

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND

;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS
N X

001330

001330
001332
0013%3&

001336

001340
001342

001344
001346
001350

001352
001354
001356
001360

001362

001364

X N

" TRPTAB:

X A

R X R

R R R

R R

R X

R XA R

AR AN

104400
003576
104401
003736
1046402
003766
104403
004050
1046404

scopc=1nA§EgPE

SCALL TO SCOPE LOOP AND ITERATION MANDLER

SCOP1=TRAP+1 1

:CALL TO LOOP ON CURRENT DATA HANDLER

104405
006174
104406
0064374
104407
006436
106410
004466
104611
004472
104412
005466
1046413
005436
1046614
005504
1046415
005552
106416

004154

0059616

.SCOP
TYPE=TRAP+2
JTYPE

SCALL

TO TELETYPE

OUTPUT

ROUTINE

INSTR=TRAP+3

SCALL 10 ASCII STRING INPUT ROUTINE

INSTER=TRAP+4
JINSTER

;CALL

TO INPUT ERROR HANDLER

PARAM= TRAP ¢5

:CALL

TO NUMERICAL DATA

SAVOS=TRAP0605
.SAV

SCALL

TO REGISTER SAVE

.INSTR

.PARAM

INPUT ROUTINE
ROUTINE

Resos=vnA:E705

;CALL TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+10

:CALL TO DATA OUTPUT ROUTINE

CNVRT=TRAF+11

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

.RES

.CONVRT

.CNVRT
MSTCLR=TRAP#12
JMSTCLR

DELAY=TRAP+13

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

SCALL

ISUE

A MASTER CLEAR

:CALL 10 DELAY
;CALL

TO CLOCK ROM ONCE

;CALL

TO CLK DATA

SCALL

TO DELAY A CLOCK

TICK

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

———

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

PAGE

PROGRAM PARAMETERS,

VARIABLES,

2
AND

TRAP

(ALLS.

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

000000
000000
000000

STAT1:
STAT2:
STATY:

0
O
0

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

000000
000000
000000
000000
000000
000000
000000
000000
000000

878

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

001416

0
0
O
0
0
0
O
O
O

;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER
;POINTER

TO
TO
TO
TO
TO
TO
TO
TO
TO

DMC11 RECEIVER INTERRUPT VECTOR
DMC11 RECEIVER INTERRUPT SERVICE PS
DMC11 TRANSMITTER INTERRUPT VECTOR
DMC11 TRANSMITTER INTERRUPT SERVICE PS
DMC11 CONTROL STATUS REGISTER
DMC11 CONTROL STATUS REGISTER MIGH BYTE.
DMC11 CONTOL OUT REGISTER
DMC11 PORT REGISTER(SEL &)
DMC11 PORT REGISTER(SEL 6)

STORAGE

000000
001460

;DMCY1 STATUS TABLE AND ADDRESS ASSIGNMENTS

.BLKW
.BLKW
.BLKW
.BLKW

001520
001522
001524
001526

000001
000001
000001
000001

DMCROZ2:
DMS102:
DMS202:

.BLKW
.BLKW
.BLKW

001530

001532
001534
001536

000001
000001
000001
000001

DMCRO3:
DMS103:

.BLKW
.BLKW

DMS303:

.BLKW

001540
001542
001544
001546

000001
000001
000001
000001

DMCRO4:
DMS104:
DMS204:
DMS304:

DMS302:

NMS203:

.BLKW

.BLRW
.BLKW
.BLKW
.BLKW

J R

DMCRO1:
DMS101:
DMS201:
DMS301:

— b b b

000001
000001
000001
000001

001510
001512
001514
001516

.BLKW
.BLKW
.BLKW
.BLKW

DMCROO:
DMS100:
DMS200:
DMS300:

—

000001
000001
000001
000001

—_— b

001500

b
—b

001500
001500
001502
001504
001506

—

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

13:53

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

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

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

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

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

SEQ 0019

— it e b
b —a

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

NUMBER 07

; CONTROL STATUS REGISTER FOR DM(N

NUMBER 10

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

NUMBER

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

NUMBER 12

;CONTROL STATUS RECISTER FOR DM(11
;VECTOR FOR DMC11 NUMBER 13
;DDCMP LINE# FOR DMC11 NUMBER 13
;3RD STATUS WORD

NUMBER

— e ek —D

;CONTROL STATUS REGISTER FOR DM(11
;VECTOR FOR DM(C11 NUMBER 14
;ODCMP LINE# FOR DMC11 NUMBER 14
;3RD STATUS WORD

NUMBER

; CONTROL STATUS REGISTER FOR DMC11
;VECTOR FOR DMC11 NUMBER 15
;ODCMP LINE# FOR DMC11 NUMBER 15

R 15
NUMBE

; CONTROL STATUS REGISTER FOR DM(C1!}
;VECTOR FOR DMC11 NUMBER 16
;DDCMP LINE# FOR DMC11 NUMBER 16
;SRD STATUS WORD

NUMBER

1¢

;CONTROL STATUS REGISTER FOR DM(11
;VECTOR FOR DM(11 NUMBER 17
;DDCMP LINEN FOR DMC11 NUMBER 17
;3RD STATUS WORD

NUMBER

DMCRO6:
DMS106:
DMS206:
DMS306:

.BLKW
.BLKW

001570
001572
001574
001576

000001
000001
000001
000001

DMCRO7:
£4s107:
DMS207:
pMS307:

.BLKW
.BLKW
.BLKW
.BLKW

001600
001602
001604
001606

000001
000001
000001
000001

DMCR10:
pMS110:
DMS210:
DMS310:

BLKW
.BLKW
.BLKW
.BLKW

001610
001612
001614
001616

000001
000001
000001
000001

¢
:

.BLKW
JBLKW

. .BLKW

001620
001622

00000M
000001

000001
000001
000001
000001

.BLKW

001650
001652
001654
001656

000001
000001
000001
000001

.BLKW
.BLKW
.BLKW

001660
001662
001664
001666

000001
000001
000001
000001

.BLKW
.BLKW
.BLKW
.BLKW

001670
001672
001674
001676

000001
000001
000001
000001

.BLKW

001700

000000

.BLKW
.BLKW

JBLKW

BLKW

JBLKW

—t —d b b
it D
— e
— d b

001640
001642
001644
001646

.BLKW
.BLKW

— o

.BLKW

000001
000001
000001
000001

001630
001632
001634
001636

000001

—

001624
001626

—_—

000001
000001
000001
000001

I S

NUMBER 06

001560
001562
001564
001566

[

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

.BLKW
.BLKW
.BLKW
.BLKW

SE@ 0020

(ALLS.
NUMBER 05

DMCROS:
DMS105:
DMS205:
CMS305:

JBLKW

TRAP

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

000001
000001
000001
000001

AND

1
1
1
1

001550
001552
001554
001556

.BLKW

VARIABLES,

— e e —D

13:53
PAGE 20
PROGRAM PARAMETERS,

MACY11 30A(1052)
@4V o
07-JUL-80
20 ME.P1Y
01-JuL-80 15:29

;VECTOR FOR DMC11 NUMBER 10
;ODCMP LINE# FOR DM(11 NUMBER 10
;3RD STATUS WORD

:3RD STATUS WORD

CIDME
MACYTY 3GA(1052)
07-JuL-80
CI0ME.PIN
01-JuUL-80 15:29
970

g;;

973

I
2
13:53 PAGE 21
PROGRAM PARAMETERS, VARIABLES, AND TRAP (A(LLS.

SEQ 0021

;:DMCT1Y1 PASS COUNT AND ERROR COUNT TABLE

974
975

001702
001702

978
ggg

’

000000

CNT.MAP:
PACTO0: O

;PASS COUNT FOR DM(CT11

001706
001710

000000
000000

PACTO1: O
EPCTOT: O

:PASS COUNT FOR DMC11 NUMBER 01
;ERROR COUNT FOR DM(C11 NUMBER 01

981

001712

000000

FACTO02: 0

:PASS COUNT FOR DMC11 NUMBER 02

984

001716

000000

PACTO3: 0

:PASS COUNT FOR DMC11 NUMBER 03

987

001722

000000

PACTO4: O

:PASS COUNT FOR DMC11 NUMBER 04

990
gg;

001726
001730

000000
000000

PACTOS: 0O
ERCTO5: 0

:PASS COUNT FOR DMC11 NUMBER 05
*ERROR COUNT FOR DMC11 NUMBEK NS

993

001732

000000

PACTO6:

:PASS COUNT FOR DMC11

NUMBER 06

996

001736

000000

PACTO?:

:PASS COUNT FOR DMC11

NUMBER 07

999

001742

000000

PACi10:

;PASS COUNT FOR DM(C11 NUMBER 10

1002

001746

000000

PACT11:

:PASS COUNT FOR DMC11

1005

001752

000000

PACT12:

:PASS COUNT FOR DM(C*1 NUMBER 12

1008
}8?8

001756
001760

000000
000000

PACTI13: 0
ERCT13: 0

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

1011

001762

000000

PACTI4:

:PASS COUNT FOR DMC11 NUMBER 14

10i4

001766

000000

PACTIS: O

;PASS COUNT FOR DMC11 NUMBER 15

1017

001772

000000

PATT16: 0

;PASS COUNT FOR DMC11 NUMBER 16

1020
1021

001776
002000

000000
000000

PACT17: 0
ERCTI?: 0

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

g;?

gg%

ggz
ggg

ggg

}88?

1882

}889

}8]%

}8}2
}8}3

1022

001704

001714

001720
001724

001734

001740

001744
001750

001754

001764

001770
00177&

000000

000000
000000

000000

000000
000000

000000

000000
000000

ERCTO0: O

ERCTINZ: O

ERCTO03: 0
ERCTO4: O

ERCTO6: O

ERCTO7: O
ERCTIO: O
ERCTI1:

ERCT12:

ERCTI4: 0

ERCTIS:

ERCTI6:

O
O

NUMBER (00

;ERROR COUNT FOR DMC11 NUMBER 00

:ERROR COUNT FOR DMC11 NUMBER 02

;ERROR COUNT FOR DMC11 NUMBER 03
;ERROR COUNT FOR DMC11 MUMBER 04

;ERROR COUNT FOR DMC11 NUMBER 06

:ERROR COUNT FOR DMC11 NUMBER 07
;ERROR (OUNT FOR DMC11 NUMBER 10
NUMBER

:ERROR COUNT FOR DM(C11 NUMBER 11

"ERROR COUNT FOR DMC11 NUMBER 12

;ERROR COUNT FOR DMCT1 NUMBER 14

;ERROR COQUNT FOR DMC11 NUMBER 15
:ERROR COUNT FOR DMC11 NUMBER 16

CIDME

MACY11 30A(1052)
(7-JuL-80
C20me P11
01-JuUL-80 15:29

13:53

PAGE 22

PROGRAM PARAMETERS,

VARIABLES,

AND

TRAP CALLS.

1023
FORMAT OF
N

R }

= {

bothe
L

{ * { +

STATY:

CONTAINS DMC11

[«

(SR:

Gt Pt Bt Bmp

St Gt Gt Gt P

O OOoOmOOOOoOD

« ] «]
1

CSR

STAT1H

STAT3

CSR ADDRESS

-08 IS DMC11 VECTOR ADDRESS
MICRO-PROCESSOR HAS CRAM
MICRO=-PROCESSOR HAS CROM

77277 TURNAROUND CONNECTOR
NO TURNAROUND CONNECTOR

IS ON

LINE UNIT IS AN M8201
LINE UNIT IS AN MB202

NO LINE UNIT
-11 IS DMC11 BR PRIORITY LEVEL

OWw BYTE IS SWITCH PAC#1 (DOCMP LINE NUMBER)
HIGH BYTE IS SWITCH PAC#2 (BMB73 BOOT ADD)

STAT?:

STATUS TABLE

STATS:

BIT0=1 DO FREE RUNNING TESTS ON KM(C
(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLYJ)
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING

DZDMG TEST 2 FIRST
BIT1=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE
BIT1=0 DMC11-AR REMOTE LOW SPEED MI(CRO-CODL

B112=0
BiT2=1

DMC11-DA (RS2320)
DMCI1-FA (V.35)

SEQ 0022

CIDME
MACY1Y 3GA(1052)
07-JUL-80
CZDME .P11
01-JUL-80 15:29
$

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

SEQ 0023

MACY1Y 30A(1052)
(IDME
07-J4uUL-80
e
.P
c20m
01-JUL-80 15:29

13:53

PROGRAM

1081
1082
1083

1106

1107
1108
1109
1110
1111
1112
1113
1114

002122
002126
002132
002140
002146
002154
002162
002164

1116
1117
1118
1119
1120
1121
1122
1123
1126
1125
1126
1127
1128
1129
1130

002170
002176
002204
002210
002214
002220
002222
002230
002232
002236
002242
002250
002254
002256
002262

1115

1131

1132
1133
1134

1135
1136

002166

002270

002272
002276
002300

002304
002306

A U AN N AN NN O N
SNNNNNNNNO N

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

002002
002010

AR WA
NN

:TYPE

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

INITIALIZATION AND

START

SEQ 0024

UP.

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STA(CK
;SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
OO0O0O0O
200000
Otk
e OO
2 2 >

1084
1085
1086
1087
1088
1089
1090

PAGE 24

000340
001200
005336
001310
010144
001325
001327
001470
001676

177776

013746

013746
012737
012737
012737
022777
001402

000407
022626

012737
012737
012637
012637
105737

001006

022737
001402
104402

004737
017737
005737
001402
005037
032737
001012

CLR
CLRB
CLRB

100000

001702

23%:

001234
000001
002002
000006
000004
002166

177570
177570
177777

003522

000042

176734

000042

001236
000001

001236

104402

007154

001306

CLR

(MP
BNE
CLR

MOV
MOV
MOV
MOV
MOV

000004
001202
001200
177020

001202
001200

001000
007734

MoV
MOV
MOV
MOV

MoV
Mov

000176
000174
000004
000006
001324

105737
100007

005737
001006

MoV
Mov
MoV

000024
001314

002002

012737
012737

.START: MoV

001236

6$:
7%:

CMP
BEQ
BR
CMP

MOV
MoV
MOV
MOV
1ST8

BNE

CMP

BEQ

20%:

TITLE MESSAGE

#340,PS

;LOCK OUT

#.PFAIL 8024

;SET UP POWER FAIL VECTOR

#STACK,SP

DMNUM, SAVNUM
SWFLG
ERRFLG

#CNT MAP,RO
(RO) ¢

;PASS COUNT POINTER TO RO
;CLEAR TABLE

238

;KEEP GOING

#1,TSTNO

;SET UP FOR TEST

a6, -(SP)

:SAVE CURRENT VECTORS

#CNT
. MAP+100,RO ;DONE

LSTERR

# . START,RETURN

TST18

8PL
TST
BNE

TYPE,

;SET UP FOR POWER
;TESTING STARTS

FAIL BEFORE

2177570, SWR

SSET SWR TO HARD SWR ADDRESS

#177570.D1SPLAY
#-1,3SWR

:SET UP FOR TIMEOUT

:SET DISPLAY TO HARD SWR ADDRESS
"REFERENCE HARDWARE SWITCH REGISTER

6842

CIF = =1 USE SOFT SWR ANYWAY

(SP)+,(SP)+

TADJUST STACK

#SWREG, SWR

“IF

IT EXISTS AND NOT = =1

"POINTER TO SOFT SWR

#DISPREG,DISPLAY:POINTER TO SOFT DISPLAY

(SP) ¢+, a#é

(SP) +.ak6

INIFLG
208
ggguouo.aoaz

BNE

(LR
BIT

;CLEAR LAST ERROR POINTER

6%, 306

#SW00,STRTSW
17%

MOV

YET?

af4,-(SP)

TST
BEQ

JSR

;SAVE NUMBER OF DEVICES IN SYSTEM,
;CLEAR SOFT TYPEOUT FLAG
;CLEAR ERROR FLAG

QV.FLG
;JERO QUICK VERIFY FLAG
#DM . MAP-10,CREAM;GET MAP POINTER.
#ONT MAP=4 ,MILK ;GET PASS COUNT MAP POINTER
#BIT15,RUN
;POINT POINTER TO FIRST DEVICE.

ATITLE
PC,CKSWR
FSWR, STRTSW
Y%
.6

TYPE

INTERRUPTS

:SET UP STA(CK

STRTSW

:RESTORE VECTORS

REG

*HAS INITIALIZATION BEEN PERFORMED
‘BR IF YES
“IF ACT-11 AUTOMATIC MODE, DON'T TYPE
sTYPE TITLE MESSAGE
“CHECK FOR SOFT SWR

"STORE STARTING SWITCHES
SIS IT RUNNING IN AUTO MODE?
;BR IF NO
S1F YES,
CLEAR SWITCHES

+IF SW00=1, QUESTIONS ARE ASKED.
‘B8R IF sw00=1
;8117=122

17%

;BR IF

16%
NOACT

;BR IF YES
:NO DEVICES SELECTED

DMACTV

USE HARD SWR

SW07=0

;ARE ANY DEVICES SELECTED”

CIDME

MACY11 30A(1052)

(IZOME . P11

01-JuL-80 15:29

1137
1138
1139
11640
1161
1142
1143
11446
1145
1146
1147
11648
1149
1150

002312
002314
002316

002350
002354
002360
002364

006000
000776
004737
105737
001410
105737
100431
032737
001403
000424
005137
104402
012704
010437

1152
1153
1156

002374
002376
002402

00141
012437
012437

1151

1155
1156
1157
1158
}}zg

07-JuL-80

002322

002326

002330
002334
002336
002344
002346

002370

002406
002412

002414
002416
002420

012437

012437
104410

007602
000762
012700

13:53

010640
001324

17%:
16%:

001236

001324
006224
001500
001246

PROGRAM INITIALIZATION AND START yP,

00123%
000006

PAGE 25

21%:
ehs

HALT
BR
JSR

Y.
PC,AUTO.SIZE

BEQ

213

1518

INIFLG

18718
BMI
BIT
BEQ
BR

:STOP THE SHOW
sDISQUALIFY CONTINUE SWITCH
:60 DO THE AUTO SIZE
;FIRST TIME?
:BR IF YES
;1F USING SAME PARAMETERS DONT TYPE MAP

STRTSW
1%
#B1TY . BIT2,STRTISW;
IS TEST NO. OR LOCK SELECTED
248
;1F NO THEN TYPE STATUS
18
if YES DO NOT TYPE STATUS
INIFLG
. XHEAD
#DM _MAP R4
R4, TEMPT

:SET FLAG
:TYPE HEADER
;SET POINTER
;SET ADDRESS

001252
001254

BEQ
MOV
MOV

1%
(RG)+,TEMPY
(RG)+, TEMPL

;ALL DONE IF
;SET STAT1
;SET STAT?

001500

XSTATQ
BR
MOV

5%
#DM.MAP,RO

5¢:

001250

001256

COM
TYPE
MOV
MOV

MOV

(R4)+,TEMP?2

MOV
CONVRT

1%:

1161

SEQ 0025

(R&)+,TEMPS

:SET CSR

ZEPO

;SET STAT3
:TYPE QUT STATUS MAP
:

;RO POINTS TO STATUS TABLE

.':Q-'ttttt.tt""'t"t'tt"'t"'ttt't'tttt'tttt't."'ttttttitt'ttt"ti

1162

;s *AUTO SIZE

TEST

1163
1164
1165
1166
1167
1168
1169
1170
1171
1172

;o*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING
; :*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR.
;:*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ,DW,DQ,DU,DUP,LK,DMC,DZ,.KMC).
::%]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST
::*DMC11 ADDRESS IS 760070, xMmC11 IS 760110. NO DEVICE SHOULD EVER BE AT
::*ADDRESS 76M000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE
::*RIGHT ADDFESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT [T TOLD
;:eYOU THE FIRST TIME, 1T MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS
;:¢THE NEXT TIME YOU RUN [T. PLEASE HAVE PATIENCE, THE FINAL ADDRESS
soeWILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE

117‘

.'"tttttt"tttttt'tttt't"'t"'t!ittttltttiQttfitttttttttitl"tt'tttt"t

1173
1175

;:*«CORRECT),

1176
1177

002424
002430

013746
013746

000004
000006

MOV
MOV

1181
1182

002446
002452

01°)37
001564

001404

AUSTRT: MOV
BEQ

032760

100000

000002

032760

100000

000002

1$:

002674

000004

1178
1179
1180
1183
118«

1185

1186
1187

1188
1189
1190
1191
1192

002434
002440
002444

002454
002456

002460

002466
002470

002472

002500
002502
002510
002512

005037
005037
05005

005705
001005

001061
000404

01454
12737
005705
001003

000006
001252

ars,-(SP)
af6,-(SP)

;SAVE LOC &
sSAVE LOC 6

TST
BNE

(RO) ,DMCSR
AUDONE
RS
1%
)

;OGET NEXT DMC CSR
:BR IF LONE

BNE
BR

SKiP
23

CLR
f R
CLR

BIT
BIT

BEQ
MOV
1ST
BNE

aré
TENPI
RS

#B1115,¢R0O)
#BI1T15,2(R0O)
SKIP
#NODEV , 884
RS
1%

;CLEAR VEC+2
;CLEAR FLAG
:RS=0=DMC, RS=-1=KMC
;DMC OR KMC?
:BR IF KMC

;CHECK FOR DMC (SR

;SKIP IF NOYT DMC
;1TS A DMC SO CONTINUE

:CHECK FOR KMC CSR

;SKIP IF NOT KM(C
;SET JP FOR TIMEOQUT
;DMC OR KM(C?
:BR IF KMC

0
w

=2 OO
~NO WV
WUIN 2OV
NO WV
W
=000 NO WV
W)
=
o~
SRR WuuwNNNNNNNNNN—-—‘-‘-fl—'—‘—‘—‘—'—‘00080200083008

012703
000402
012703

13: 53

0000C6

160010

FLOAT:

MOV
Mov

MOV
TST
move
ADD
INC

BI(

002700
003022

000004

100000

000002

100000

ST
BNE
fy:

000002

2%:

001404

000010
SKIP:

000010
000010
001404

:
0K

003022

8IT

BEQ
TST
CMP
BEQ
BR

ADD

MOV

BEQ
BR

ADD
ADD

MOV

BEQ

003022

MOV

NODEV:

ERR:

001252

001276

BNE
BR

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

R4 ,R1

R
R1
R4,
R3
FLOAT

PERR, a#4
R1,XLOC

RS
1%
#B1T15,2(RO)
SK1P

#B1T15,2(R0O)
sklp
(R1)
R1,DMCSR

ADD

000010
001404

002700

Mov
MOV
TST
BNE

BIT

1%:

BR
(MPB
RY]
TST

8Nt
TYPE
CONERR
MoV
CNVRT

#10,R0

(RO) ,DMCSR

AUDONE

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

(R2)+,-(R3)

TEMPY
1%

#ERR,SAVP(

ERRP(

177777

002742

002744

002746
002750
002752
002754
002756

001262

001252

1%:

INITIALIZATION AND START

MoV

000010
003010

PAGE 26

PROGRAM

e
e
e
h e
i
D
D e
)
D
sl
i
) Al
D il
D el el
D el el
D el el
el
i
D
d il
D el el e
D
d
D
D
i
i
e
i o

—> —b b b —d s ALORNLRLNLRLANLRLRLNVIANUNIAL
NN NN
NLNONI VNN PO NI NN NNV POV PIPININY

b —

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

TYPE
CNERR
MoV
nov

CONVRT
(ONTAB
ST

BNE

TYPE

OLIg]

SEQ 0026

UP,

:23 éfi COUNT OF DEVICES BEFORE DMC
:R3 IS COUNT OF DEVICES BEFORE KM(
:R2 IS DEVICE TABLE PONTER
:START WITH ADDRESS 160010
;CHECK ADDRESS IN R?
;{r

2? TIMEOUT,

GET NEXT

ADDRESS

JIN

JANY MORE DEVICES TO (HECK FOR?
;BR IF YES
;0K ONLY DMC'S ARE LEFT, SET UP FOR TIMEOQOUT
;SAVE FIRST DMC/KMC ADDRESS
;DOMC OR KM(C?
JBR

KMC

;CHECK FOR DMC CSR
:SKIP IF NOT DMC

;ITS A DMC SO CONTINUE

;CHECK FOR KMC (SR

;SKIP IF NOT KMC
JCHECK DMC ADDRESS
;DO0ES IV MAT(CH
;BR IF YES
JGET NEXT DMC ADDRESS
;00 IT AGAIN
;SKIP TO NEXT CSR IN TABLE
;GET NEXT (SR
;BR IF DONE
;ELSE CONTINUE
JSKIP TO NEXT DMC (SR
JUPDATE EXPECTED DMC/KMC ADDRESS
;GET NEXTM DM(C/KMC (SR
;B8R IF DONE
;GET EXPECTED DMC/KMC ADDRESS
;CONTINUE
;ON TIMEOUT, INC R2, DEC RS
JRETURN

:CHECK FLAG IF = 0 TYPE HEADER

:SKIP HEADER
;TYPEOUT MEADER MESSAGE

;CONF TGURATION ERROR!'
;SAVE PC FOR TYPENUY
;TYPE

OUT

ERROR P(

“TYPE REST OF WEADER
#-1,TEMPY
R1,SAVRY

“SET FLAG SO IT ONLY GETS TYPED ONCE
"SAVE R1

;TYPE

(SR

FOR 7YPEQUT
VALUES

.OMC OR KM(
.BR IF xM(C

«%

. CONT INUE

0027€0
002762
002764
002766
002770
002772
002774
002776
003000
003002
003004
003006
003010
00301
003012
003013
003014
003015
003016
003017
003020
003022
003024
003026
003030
003034

000002
006
003022
006
001404
007
017
007
007
007
007
007
007
007
003022
000000
00>705
001005
012705
012700

000602
012637
012637
032737
001422
104402

-—t

U\bbbg
OrMNOrMNO LSOO

WNORNIN)
= =

101404
104402

13:53

000000
000776
017737
013700
000000
012700
012701
010120
005021
022021
022700
001372

PAGE

PROGRAM

1
BYTE

CONTAB:

SAVP(

002
DEVIAB:

001500

000006
000004
000010

1%:

001236

006144
176104

;DJ

.BYTE
.BYTE
.BYTE
.BYTE

7
7
?
7

;D@
;DU
;DUP
;LK

.BYTE
.BYTE

176064

001306
000300
000302

2%:

3%
4%

001000
;TEST

;DM

;DM(

7
7

D2
JKMC

;OMC?

1%
#-1,RS
#DM MAP RO

MOV
MOV

(SP)+,ak6
(SP)+,al4

JRESTORE LOC 6
;RESTORE LOC &

JANEW

;TYPE

AUSTRT

BIT
BEQ

#SW03,STRTSW
3

(LR

(MP
BLOS

8SWR,SAVA(T
2%

BR
MOV

.~2
aSWR,DMACTY

TYPE
HALT

001306

BNE
MOV
MOV

HALT

006005

6.2

.BYTE

STA(CK

;B8R TO GET QuT

6.2

TYPE

001312

;ADJUST

BYTE

DM(SR

AUDONE: TST

177777

0] 4

6.4

.BYTE

.EVEN

SEQ 0027

yP,

2
.BYTE
XLOC

Xt0oC:

START

(SP)+,(SP) e

ERRP(:

004

INITIALIZATION AND

KMCM
(MP

LS.

002

TYPE

b ¥

104402

007330
022626
000727
000001
006
001276

005000
000000
027737

[o e Yo X o BV IV IV NV IV TV IV IV 1V 1V, }
W) = OO 00 ~NO N
W) = O

D
i
)
i
il
il
il
el
k)
)
)
il
)
—

249

L1, 1,81, F1, N1, ST,.V1, V1, ¥1, ST ST, VT, U1, )

MACY11 30A(1052 )
(DMt
07-JUL-80
CIDME P11
01-JuL-80 1 5:29

MOV

HALT

JMERR3

ODMACTV,RO

MoV
MoV
MoV

#300,R0
#30c ,R1
R1,(RO)+

(Mp
CMP
BNE

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

CLR

START

(RY)+

;BR IF KMC AND ALL DONE
:SET RS 10 =1 (KMC)
;RESET RO TO START OF TABLE

;60 DO KMC'S

;SELECT SPECIFIC DEVICES??
:BR IF NO.
THE MESSAGE.

:ZERO DATA LIGHTS

;WAIT 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.

;RESTART THE PROGRAM AGAIN.
JGET NEW DEVICE PATTERN

;SHOW THE USER WHAT HE SELECTED.
:CONTINUE DYNAMIC SWITCMES.

:PREPARE TO CLEAR THE FLOATING
;VECTOR AREA. 300-776
;START PUTTING ‘'PC+2 = HALT'
;IN VECTOR AREA,

;POP POINTERS
sALL DONE??
;BR IF NO.

AND RESTART

‘eceoceensrrcccnsccoameee

001200
000006

.BEGIN: MOV
MOV

#STACK,SP
ar6,-(5P)

JSET UP STACK
+SAVE

LOC 6

07-JuL-80
CZOME
MACY1) 30A(1052 )
CZ0mMe.P1N
01-JuL-80 15:29
1305

1306

1307
1308
1309
1310
1311
1312

1313
1316
1315
1316

1317

1318

1319

1320
1321

1322

1323
1324

1325

1326
1327

1328
1329
1330
1331

1332
1333

1334
1335

1336
1337

003162

003166

003170
003176
003202
003204
003210
003212

003216
003222
003226
003232

003234

003236

013746

0000604

012737
005037
005720
022700
001374
162700

003234
000006

012637
000413

000006

005000

010037
012637
022626

001304
000004

003246

022700

030000

003254

012700

003242

003252

003260
003262

003270

003276
003300

003304
003312
003320
003322

003330
003336
003344
003352

003354
003360

162700

001361

000756
012737

032737

001411
104402

012737
012737
000406
013737

013737
012737
032737
001002
104402
000177

6% :

007776

000004

007776

000004

001236

006043
000240
000240

003612
003614

003730

003612

003732
010206

000002

005755
175630

:SAVE LOC &

MOV
CLR
1$7
CMP
BNE
SUB

#2834
ane
(RO) ¢
#157776,R0
6%
#7776,R0

“SET UP FOR TIME OUT
:T0 AUTOSIZE MEMORY
:CHECK ADDRESS IN RO
SIS IT AT LEAST 28K
‘BR IF NO
“SAVE 2K FOR MONITORS

MOV
MOV
MOV
BR

CMP

003614
001214

001236

10%.

(SP)+.aN6
108

(SP)+,(SP)+

CMP

#30000.R0

#7776,R0
7%

MOV

#37400,R0

BIT

#BIT2,STRTSW

BR
MOV

7%
#340,PS
1$
,MLOCK

MOV
MOV
BR
MOV

#NOP,TTST
#NOP,TTST+?
{3
BRW,TTST

BIT
BNE

#SW01,STRTSW
5¢

3$:

MOV
MOV

TYPE
JMP

&$:

RO,MEMLIM
(SP)+,ald

44 RO

BEQ
TYPE

'$:

suB
BNE

177776

SEQ 0028

G, -(SP)

SUB

037400
000340

MOV
CLR

0CU004

157776

162700

13:53
PAGE 28
PROGRAM INITIALIZATION AND START ypP,.

BRX,TTST+2
NCYCLE.RETURN
MR
SRE TURN

SSTART AT 0

<STORE MEMORY LIMIT
:RESTORE LOC &
:RESTORE LOC 6
. CONTINUE

CADJUST STACK

“GET LAST GOOD ADDRESS

SSAVE 2K FOR MONITORS
(1S

:BR

1T 8K?
IF

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

INTERRUPTS

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

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

*LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:START AT “'CYCLETM FIND WHICH DEVICE TO TEST
1S TEST NO.
:BR IF YES

SELECTED?

“TYPE R
“START TESTING

MACY11 30A(1052)
(Z DMt
07-JuL-80
(2 OME.P1N
01-JuL-80 15:20

13:53
PAGE 29
END OF PASS ROUTINE

1338

<END OF PASS

\ng‘uuuwww

AN
AN NN
ow
OO 00 ~NO NI NN 2O

s
d
d
e
el e
d
— b

1339

1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383

1385
1386

1387
1388
1389
1390
1391
1392
1393

SEQ 0029

;TYPE

NAME

TEST

;UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
;RESTART TEST
003364
003366
003372
003376
003402
003410
003414
003420
003424
003430
003434
003440
003444
003450
003456
003460
003464
003470
003474
003476
003504
003512
003516
003520
003522
003522
003524
003526
003530
003532
003534
003542
003546
003550
003552
003554
003556
003560
003562
003564
003566
003570
003572
003574

000005
005037
105037
005237

013777
104402
104402
104411
104402

001234
001325
001230

001230
005733
006072
003546

LEOP:

CLRB
INC
1[0}
TYPE
TYPE
CNVRT

175570

006100
003554
006106
003562
006117
003570
001322

001230
001232
001314

000377
001310
000042

001327
001314

010206
010206
002

002
002
002

001214

;CLEAR ERROR FLAG
;UPDATE PASS COUNT
PASCNT ,aDISPLAY ;DISPLAY PASS COUNT
JMEPASS
;TYPE END PASS
LMCSRY
;TYPE (SR
LXCSR
;SHOW IT

;TYPE VECTOR
;SHOW T
;TYPE PASSES
:SHOW IT
:TYPE ERRORS
;SHOW IT
:GET POINTER TO PASS COUNT

BNE

RESTRT

:BR

RESET

JSR

NOP
NOP
NOP
NOP

RESTRT: MOV
JMP
XCSR:

XVEC:

DM(SR
1

XPASS:

DMRVEC
1

XERR:

;MAKE THE
WORLD CLEAN AGAIN.
;CLEAR LAST ERROR PC

JAVECX
. XVEC
LMPASSX
,XPASS
JMERRX
.XERR
MILK,RO

MOVB
MOV
MOV
8EQ
$ENDAD:

LSTERR
ERRFLG
PASONT

TYPE
(NVRT
TYPE
CNVRT
TYPE
(NVRT
MOV

MOV
MOV
DEC

000005

004711
000240
000240
000240
000240
012737
000137
000001
006
001404
000001
004
001374
000001
0vé
001230
000001
006
001232

RESET
CLR

PASCNT, (RO) +
ERRCNT, (RO) +
SAVNUM
#377,QV.FLG
DMNUM, SAVNUM
are? R
RESTRY

BYTE

4,2

BYTE

6,2

.BYTE

ERRCNT

NO.

;STOP THE

SHOW=-=CLEAR

#CYCLE ,RETURN
CYCLE
6,2

:SET THE QUICK VERIFY FLAG.
;RESTORE THE COUNT
:CHECK FOR ACT=-11 OR DDP
;1F NOT, CONTINUE TESTING

PC,(RY)

.BYTE

PASCNT

:STORE PASS COUNT FOk THIS DMCII
:STORE ERROR COUNT FOR THIS DM(C11
;ARE ALL DEVICES TESTED?

6.2

:SCOPE LOOP AND INTERATION HANDLER
003576
003602

004737
010016

007734

.SCOPE: JSR

MOV

PC,CKSWR
RO, (SP)

:CKECK FOR SOFT SWR
;SAVE

RC ON THE

STACK

THE WORLD

CIDME

MACY11

30A(1052)

003606

032777

(I0Me . P11
13964

01-JuL-80 15:29

1395
1396
1397
1398
1399

003612
003614
003616
003622
003624

1401

003632

1400

1402
1603
1604

1405
16406
1407
1408
1409
1410
1411
1412
1413
1614
1415

1616
1417
1418

}:;8

07-JUL-8C

003630

003640
003642
003646

003650
003654
003662
003664
003670
003674
003700
003706
003714
003716
003720
003726
003730
003732

003734

001407
000437
005737
001434
005037
000415

032777

001011
105737
001406

005237
023737
101414
105037
005037
005037
012737
013737
011600
022626
013701
000177
001407
000437

040000

13:53

175370

TTST:

001325
001224
001220
000020
001216

000000

;DELETE

INC
(MP
BLOS
CLRB
CLR
CLR
MOV
MoV
Mov

LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPONT
LOCK
#20, ICOUNT
NEXT,RETURN
(sP),R0

BRW:
BRX:

MOV
JMP
1407
437

DONE:

1ILYa
}ng
4

003736
003742
003750
003752

004737
032777
001405
005737

007734
001000

1429
}2%9

003760
003764

013716
00000¢

001220

003756

001402

175232

SCOP1:

001220

'S:

010546
017605
062766
005737

000002
000002
010144

0000G2

1440

004010

032777

010000

175164

1442

1443
16444

1445
1446

1447

1448

1449

DMCSR,R1
SRE TURN

ITERATION?

(QUICK PASS)

;BR IF YES
;MAVE PASSES BEECOMPLETED?
;BR IF QUICK PASS.

;UPDATE ITERATION COUNTER
;ARE ALL [TERATIONS DONE"?
;BR [F NOT VYET
;PREPARE FOR NEW TEST
;START ICOUNTER AT 0
;RESET ITERATIONS
;GET NEXT TEST
;POP RO OFF OF THE STA(K
;FAKE AN 'RTI"
;R1 CONTAINS BASE DM. ADDRESS
;GO DO THE

TEST

JSR
B8I7
8t0

MOV
RT]

PC,CKSWR
#5W09,aSwR
1%
LOCK
1%
Lock, (SP)

;TELETYPE

003766
003770
003776
004002

1441

4 )
QV.FLG
2$

TEST

OUTPUT

;(HECK FOR SOFT SWR
;1S SW09=1(SFT)?
;BR IF NOT SET,
;GOTG THE
;G0 BAC(K,

ADDRESS

IN LOCK.

ROUTINE

mcmmemceocecceecoeena

1435
1436
1437
1438

1439

POP2SP

TST
BEQ

1432

1433
1634

BNE
1518
BEQ

;GO TO NEXT

THIS LOC =240)
THIS LOC =240)

;CHECK FOR FREEZE ON CURRENT DATA
is-eessssesesescecccecoccccooooe-

1424
16425
1626
1427
1628

FSwW1l,aSwR

001404
175264

BEQ
BR
TST
BEQ
CLR

;'LOOP ON THIS TEST'"?

BIT

1%:

(C01222

001222
001214

#BIT146,a5wR

;BR IF NO.
(IF LOCK SWO1=1;
;60TO 3%
(IfF LOCK SW01=1;
:WAS TKCSR DONE SET?
:BR IF NO (LOCKED ON TEST)
JYES, CLEAR FLAG

001327

001224
001226

BIT

SEQ 0030

1%
I8
DONE
3%
DUNE

003734

175342

GENERAL UTILITIES (TYPEQOUT, ERROR, SCOPE, ETC)

003734

004000

PAGE 30

004006

004016

004020
004022
006026

004030
004034

004036

004042

004044

001004

001012

100002
104402

005672

112577

175150

001357

012605

105715

105777
100375

LTYPE:

175154

2%.

MOV
Mov
ADD
157

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

;SAVE RS ON THE STA(K.
;GET ADDRESS OF MFSSAGE.
;POP OVER ADDRESS.
;SOFT SWR MESSAGE?

8I1

#5W12 ,dSWR

SINHIBIT ALL PRINT 0UT??

1ST8

(RS)

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

1518
8PL

oTP(SR
2%

;TTY READY?
;BR [F NO.

BNE

‘%

BNE

BPL
TYPE

MOvB

MOV

b3 3

'3
JACRLF

(RS)+ ,aT1PDBR
(SP)+ RS

;1F YES TYPE IT OQUT REGARILESS OF Swl1?
;BR IF NO PRINT QUT WANTED (Swi1c=1)
;BR IF NUMBER IS PLUS
;TYPE A CR/LF!

;PRINT CURRENT CHAR.
;1F

NOT ZERO KEtP PRINTING.
;END OF QUTPUT. RESTORE RS

MACYYY 30AC1052 )
07-JuL-80
(DMt
(ZDMme .P1Y
01-JuL-80 15:29
1450
1651

1452
1453
1654
1455

1456
1457
1458
1459

1460
1401
16462
16463
16464

1465

1666

1467
1468
14669
1470
16471
1472
1673
1476
1475
1476

1477

1478
1479
1480
1481
1482

13:53

PAGE

GENERAL UTILITIES

000002

RT]

004050
004052
004054
004062
004070
004072
004074
004100
004104
004110
004112
004116
004122
004126
004130
004134
004136
004144
004146
004150
004152
004154
004160
004162
004164
004166
004170
004172

010346
010446
017637
062766

INSTR: MOV
000004
000002

000000
012704
012703

007630
000007

104402

105777
100375
117714
142714

122427
001417
105777
100375

017777
005303
001356
012604
012603
104402

010346
010446
000741
012604
012603
000002

004072
000004

MOv
MOov
ADD

JINSTY: TYPE
MSG:
0
mov

175074

1€

000290
000015

175044

005666

/S
175046

LINSTE:

1497

1498
1499
1500
1501
1502
1503
1504
1505

R3,=(SP)

R4 ,=-(SP)
86 (SP),
. .MSG
#2,6(5P)

#200, (R&)
(RG)+, 1S
INSTR?

8TKDBR,3TPDBR

MOV

(SP)+,R&

R3
1%

(SP)+,R3
,mom
R3.-(SP)

MOV

RG,=-(SP)

MOV

(SP) ¢ ,R&
(SP)+ ,RY

004270
004272
004276

(W LV [V LV LV LV, .} o
o
(V_V
1V [V ]
(9,
NNNN

005
f

000004
004364
004366

004370
004372
004373
000004
007630
000015
000060

000067

000060
000015

MOV

LINSTA

PARAM®:

RS,=-(SP)

RG,=(SP)

MOV
MOV
MOV
MOV

4L(SP) ,RS
(RS)+,LOLIM
(RS)+ HILIM
(RS)+,DEVADR

MOVB
MOV
(LR
MOV

(RS)+,ADRCNT
RS,4(SP)
RS
# INBUF R4

MOVB

(RS)+,LOBILTS

C(MPB

£15,(R4)

C(MPB

RG)
L 860

BEQ

PARERR

BLT

PARERR

BGT

PARERR

(MPB

, 067
(RG)

8l(8
8158

860, (R4)
(RG)+ RS

BtO

LIMLTS

(MPB

R& ON STA(K

8TK(CSR

MCv

RT]

;SAVE

#INBUF ,R&G

8TP(SR

MOV
TYPE
MOV

;SAVE RY ON STA(K

27 ,RY

1578

BFL

SCOPE, ET()

;G0 HOME

dTKDBR, (R4)

B8R
INSTR2: MQv

.PARAM:

~
(=]

004174
004176
004200
004204
004210
004214
004220
004224
004230
004234
004236
004242
004246
004250
004254
004256
004262
004264

S NS NO S &
O =t QO et
Y —»[aV 1, %)
O NN
~NWN ~O

1694
1495
1496

(TYPEOUT, ERROR,

MOv8

BI(B
(MPB
8tQ

;RESTORE R&
;RESTORE R3

;CONVERT ASCI1 STRING TO OCTAL

OPNIWVMEONOMNON
=4O = = — —2 b — =
= PORURD
N =N — = AN
O NN

1493

1ST8

DEC
BNE

1483

1484
1485
1486
1487
1488
1489
1490
1691
1492

MOV

BPL

175070

175054

004046

Q2= a OO0 -0 ~2000—-+—-0000

[

05, (RG)

SEQ 0031

CIDME
MACY1Y 30A(1052)
07-JUL-80
(20ME P11
01-JuL-80 15:29
1506
1507
1508
1509

004300
004302
004304
0046306

006305
006305
006305
000760

12}}

004312

000750

1510

004310

104404

PARERR:

1212
1515
1516
1517
1518
1519
1520

}g%;

004314
004320
004322
004326
004330

004334

020537
101373
020537
103770
133705

001365

004366

LIMITS:

004364
004372

004336

013704

004370

1527
1528
1529
1530
1531
1532
1533
1534
1535
1536

004344
004350
004354
004356
004360
004362
004364
004366
004370
004372

062705
105337
001372
012604
012605
000002
000000
000000
000000
000000

000002
004373

004342

0105264

1$:

LOLIM:
HILIM:
DEVADR:
LOBITS:

004373

154

004374

016637

000004

010537

001272

1548
1549
1550
1551

004412
004416
004422
004426

010337
010237
010137
010037

001266
001264
001262
001260

004406

004432

010437

000002

001270

}ggg

155%
1557
1558
1559
1560
1561

PARERR

MOV

DEVADR,R&

ADD
DECB
BNE
MoV
MOV
RTI
9
O
0
0

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

MOV

001276

.SAV0S: MOV
; SAVE

004402

}gg%

RS,HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS

RS, (RG) +

TEST

THAT FAILED AND RO-RS

--------------------------------------

1546

1547

CMP
BH]
(MP
8LO
8178

;SAVE PC OF

1242
154

PARAM]

[NSTER

ADRCNT=LOBITS#+1

1240
1541

B8R

BNE

1539

124%

RS
RS
RS
1%

;STORE NUMBER AT SPECIFIED ADDRESS

1525

}ggg

ASL
ASL
ASL
BR

;TEST 1O SEE IF NUMBER IS WITHIN LIMITS

12%2
1526

13:53 PAGE 32
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ET()

Sv0S:

4 (SP),SAVPC

:SAVE R7 (PC)

RO-RS

MOV

RS, SAVRS

;SAVE RS

MOV
MOV
MOV
MOV

R3,SAVR3
R2,SAVR2
R1,SAVR1
RO, SAVRO

;SAVE
;SAVE
;SAVE
;SAVE

MOV

RTI

R4, SAVR4

:SAVE R&

R3
R2
R}
RO

;LEAVE .

;RESTORE RO-RS

004434
004440
004444
004450
004454
004460

013700
013701
013702
013703
013704
013705

001260
001262
001264
001266
001270
001272

LRESOS: MOV
MOV
MOV
MOV
MOV
MOV

SAVRO, RO

SAVR1,R1

SAVRZ ,R2
SAVR3,R3
SAVRG , R4
SAVRS,RS

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

RO
R
R?
R3
R&
RS

SEQ 0032

CIDME
MACY11 30A(1052)
07-JUL-80
CIDME . P11
01-JuUL~-80 15:29
}22%

004464

000002

RT]

}ggg
004466
004472
004474

1573

004504

15724
1575
1576

1877

1578
1579
1580
1581
1582
1583
1584
1585

1586

1587
1588
1589
1590
1591
1992
1593
1594

1595
1596
1597
1598
1599
1600
1601
1602

1603
1604
1605
1606

1607
1608
1609

1610
1611

1612
1613
1614

1615
1616

1617

;LEAVE

;CONVERT OCTAL NUMBER TO ASCII AND OQUTPUT TO TELEPRINTER

1566
1567
1568
1569

1570
1571
1572

13:53 PAGE 33
GENERAL UTILITIES (TYPEOQUT, ERROR, SCOPE, ET()

004476
004500
004502

104402
010046
010146

005672

017601

000012

112137

004713

010346
010446
010546

004510
004516
004522

062766
012137
112137

004532
004536
004544
004546
004554
004560
004564
0064570

013137
122737
001003
0462737
013704
113705
012700
010403

004576
004602
006604
004606

062703
110320
000241
006004

0064526

004572

904610
004612
004614
004616

004620
004622
004624
004630
004632
004636
004640
004644

004646
004652
004656
004660

004662
004666
004672

004674
004676

004700
004702
004704

004706
004710

004712

042703

000002
004710
004712

004714
000003
177400
004714
004712
001416

177770

.CONVR:
.CNVRT:

112723
105337
001373
105013

104402
005337
001313

000012

1¢004712
004714

3¢ .

000060

007672
004712

4%.

004713

000040
004713
007672
004710

5%
6%:

a12(sP) ,RY

ADD
MOV
MOVB

MOVB

012600

#2,12(5P)
(R1)+,WRDCNT
(R1)+,CHRCNT

(R1)+,SPACNT

8(R1)+,BINWRD
#3, CHRCNT
2%
#177400,BINWRD
BINWRD,
R4
CHRCNT,RS
#TEMP,RO
R4 ,R3

ADD
MOVB
cLe
ROR

#060,R3
R3, (RO)+

BIC

DEC
BNE
MOV
MOVB
DECB
BNE
TSTB
BEQ

MOVB
DECB
BNE
CLRB

#177770,%3
R4
R4
R4
RS
3

#MDATA ,R3
-(R0), (R3)+
CHRCNT
4%
SPACNT

6%
#040, (R3) ¢+
SPACNT

113
(R3)

TYPE
DEC
BNE

LMDATA
WRDCNT
1%

MOV
MOV

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

MOV
WRD(NT:

RY,-(SP)
RG,=(SP)
RS, =(SP)

MOV
CMPB
BNE
BIC
MOV
MOVB
MOV
MOV

MOV
MOV

012603
012601

000000

MOV

cLe
ROR
(Le
ROR

012605
012604

000002
000000

JACRLF
RO,=-(SP)
R1,-(SP)

MOV
MOV
MOV

000241
006004
000241
006004

005305
001362
012703
114023
105337
001374
105737
001405

TYPE
MOV
MOV

RT]
0

(HRCNT: 0

(SP)+,RS
(SP)+,R&

(SP)+,kO

SEQ 0033

MACY11 30A(1052)
(ZDME
07-JuUL-80
CZOME P11
01-JuUL-80 15:29

004714

13:53
PAGE 34
GENERAL UTILITIES

(TYPEOUT, ERROR,

SEQ 0034

SCOPE, ET()

SPACNT=CHRCNT+1

004713
000000

BINWRD: 0

;TRAP DISPATCH SERVICE

;ARGUMENT OF TRAP S EXTRACTED

sAND USED AS OFFSET

TO OBTAIN POINTER

;7O SELECTED SUBROUTINE
004716
004720
004724
004730
004732
004736
004742
004746

.TRPSR:

000002
000000

TRPOK:

MOV

001330
000000

;GET

8(SP), (SP)

;GET

TRP

#2,(SP)

ASL

(SP)

MOV

BIC

177001

(SP),=(SP)

SuB

ADD
MOv
JMP

#177001, (SP;

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

:=PC OF

RETURN

TRAP

;MULTIPLY

TRAP ARG BY

;CLEAR UNWANTED BITS

;POINTER TO SUBROUTINE
: SUBROUTINE ADDRESS

ADDRESS

;GO TO SUBROUTINE

;ERROR HANDLER

105037
104406

011605
162705
011504
006304
061504

006304
042704
062704
012437
012437
011437
105737

001403
005737
001040
005112
005116
005122
005124
005130
005134

104402
104402

0057%7
001402
104402

104402
104411

001234
001325

Hro

001234

)

021637

XBx:

000002

006142
006130
005330

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

BPL

XBX

:DON'T WAIT

#207 ,8TPDBR

BNE
CMP
BEQ

HALTS
(SP),LSTERR
1%

BIT

MOV
CLRB
SAVOS
MOV

#swid, asur

(SP),LSTERR
ERRFLG

“TTY

READY.

(SP),RS

(RS) .R4

"GET HLT INSTRUCTION

BIC

#177001,R4

"CLEAR JUNK

TYPMSG

;BR [F YES

(R5) , R4
R&

# . ERRTAB,R4
(RG)+,ERRMSG
(R4)+.DATAHD
(R4) ,DATABP
ERRFLG
DATABP
TYPDAT
CRLF

TYPE
TST

JMCRLF
LOCK

TYPE
TYPE

LMASTEKX
JISTIN

(NVRT

TTY,

;RECORD BEING HERE
"PREPARE MEADER
“SAVE ALL PROC REGISTERS
:GET THE PC OF ERROR

BEQ

THE

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

ASL

TST
BNE
TYPMSG: TYPE

TTY NOT READY.

*DELETE ERROR PRINT OUT?

#2 RS

BEQ

;PUSH A BELL AT

SUB

ADD
MOV
MOV
MOV
1S18

1%:

aTPCSR

MovB

ADD
ASL

177001

005672
005672
001220

PC,CKSWR
#SW12,aSWR
XBX

MOV

032406
005172
005204
005216
001325
005216

JSR
BIT
BEQ

TSTB

—

032777

000207
020000

001404
011637

JHLT

174220
A
2

001105

174220

005006
005010
005014
005016
005022

005000

100003
112777

007734
010000

—

004737
032777
001406
105777

—

004750
0047564
004762
004764
004770
004772

‘GET ADDRESS OF
‘MULT BY

TWO

DOUBLE [T
;MULT AGAIN

;GET POINTER
-GET ERROR MESSAGF
-GET DATA HEADRER
;GET DATA TABLE
;TYPE HEADREER
;DOES DATA TABLE
;BR IF YES.

LTSN

TRAP CALL

. SHOW [T

EXIST>

—————

MACY11 30A(1052
CZDME
07-JuUL-80
P1Y
CIDME.
01-JuL-80 15 129
1674
1675
1676

1677
1678

1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
16N
1692

005140
005144
005150
005154
005162
005166

005170
005172
005174

104407

022737
001403
005777
100005
010046
010600
000000

012600
005237

032777

001007
032777
001411
013737
012706

013701
000177
000002

005334

000001
006
001276
000001
003
001226

005336
005336
005344
005346

012737
000000
000777

Move
1ST

BEQ
ERRMSG:

WRKO.FM:

005204

DATAHD:

005216

003522

TYPE

TYPDAT:

000042

DATABP:
RESREG:

HALTS:

173744

187

TYPE

TST

BEQ
CONVRY
0
RESOS

1%:

001232
000400

173716

002000

173706

001216
001200
001404

001214

173674

EXITER:

XTSTN:

002

JMERRP(

;TYPE

.ERTABO

JMCRLF

#-1,ERRFLG
ERRMSG

WRKO.FM

SEQ 0035

PC.

;SHOW [T
;GIVE A CR/LF
;NO MORE HEADER UNLESS NO DATA TABLE.

;1S THERE AN ERROR MESSAGE?
:BR

IF NO,

ERROR MESSAGE

;TYPE

.
:DATA HEADER?

DATAKD

TYPDATY

:BR If NO
;TYPE

DATABP

JDATA

RESREG

DATA HEADER

;BR IF
;SHOW

TABLE?

NO.

:
DATA TABLE
;RESTORE PROC REGISTERS

EXITER

:BR IF NO HALT ON ERKOR

MOV

2(SP),RO

;SHOW ERROR PC

INC

ERRCNT

PUSHRO

HALT
POPRO

85WR

J1F

ACT=11

AUTOMATIC MODE,

;HALT

ON ERROR?

:SAVE

cHALT
:GET RO

;UPDATE ERROR COUNT

#5W08,aSuwR

BIT
BEQ

#5W10,aSwR
2%

;G0TO NEXT TEST?
;BR IF NO

DMCSR,R1
SRETURN

;SET UP R1
;G0TO SPECIFIED TEST

MOV
MOV

MOV
JMP

?AVPC

.BYTE

TSTNO

NEXT ,RETURN
#STACK,SP

HALT..

IN DATA LIGHTS

BIT

;GOTO TOP OF TEST?
;BR

YES

JSET FOR NEXT
<RESET SP

TEST

+RETURN

6,2

3,2

;ENTER HERE ON POWER FAILURE

005350

000024

FAIL:

MOV
HALT
B8R

#RESTART, 24

;PROCESSOR WILL

005350
005350
005356

SCOPE, ETC)

BPL

?Tl
2%:
ERTABO:
.BYTE

002

(TYPEOUT, ERROR,

#SENDAD, a#4°
1%

BNE

19%:

C(MP
BEQ
TST

000002

BEQ

000000

d OO

NO NS WN 2O
NN =2 O 0D
NO N
O

b
d
b
e
e
e
el e
D e
e
e
e
o
e
e

005737

001402
104402
000000

005737
001402

TYPE

001325

104410

SNNNSNNNSNSNNNNNNNNNNNNNNN

CNVRT

112737

000000
005737
001402

1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

—

TYPE

104402

1693

ORI RN ANt d e e ed e e e

104402
104411
104402

13:53
PAGE 35
GENERAL UTILITIES

005336
001200

00002¢

RESTAR:

MOv
MOV

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

TRAP HERE WHEN POWER

§.PEALL,
24
#STACK,SP

1S RESTORED

;SET UP FOR POWER FAILURE
;RESET

THE

STACK POINTER

:\I\IN\I\INN\J\J\INN

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

7646

005436

£ B £~
M M N AN N NN w
WM 2 OO0 NO N
Wl — o

MACYYY 30A(1052)S 07-JuL-80
(ZDME
CZ0ME .P11
01-JuL-80
1 :29

7647
7648
749
750

51
52
53

57
58
59

005436

005444
005646
005450
005450

005452
005454
005462

013701

001404
001416
001416

0
1
1

FETAB:

.BYTE

002

000020

173746

LDELAY:

104

000020

005466
005466
005474
005502

52
52
56

70
76

04
0
2
&

6
6

;TYPE

MSTCLR:

152777
142777
000002

000100

152777

000002
173676
000002
000100

173674

152777
142777
000002

000003
000007

173644
173636

013637
062746
152777
027777

001416
000002
000020
173610
000020
001416

142777

005337
001364
000002

000300

(LR

(R1)

;CLEAR MAINT BITS

JMP

aRE TURN

:START DOING THAT TEST AGAIN.

MOV

ROMCLK

0014616
00000¢

CLEAN UP OF

DEVICE

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

CLOCK DELAY BIT

ROMCLK

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

BIT

;15 cLBCcx BIT SET?

BISB
BI(B

B1SB
MOV
ADD
HALT

BISB

a%ce

MoV
ADD
BISB
CMP

BI(B
DEC
BNE

.TIMER:

#20,aDMPO4

121111

.DATACLK:

1%:

;START

TSTNO

RT]

3¢

000001

013637
062746

1%:

;TELL WHAT TEST TO RETURN TO.
;START
CLEAN
:nunnnnnnuuno

3,2

RIT
BEQ

173452

THE MESSAGE

,PFTAB
ERRFLG
LS‘»ERR

RTI

.ROMCLK:

;READY FOR TIMMER
;PLUS ONE TO THE TIMER!
:BR IF MORE TO GO

CNVRT
CLRB
CLR

RTI

013677
062746
032777
001401
0000C0
50

JMPFALL

TEMP
TEMP
=4

SEQ 0036

ETC)

TYPE

BEC

005464

SCOPE,

;RESTORE R1

121224

173730

(TYPEOUT, ERROR,

DMCSR,R1

MSTCLR

173564

MOV

CLR
INC
BNE

005675
005430
001325
001234

003

13:53
PAGE 36
GENERAL UTILITIES

RTI
.BLKW 1

MOV

ADD

#B174,a0MPO4
1%

;PORT4

IBUS*11

:BR IF

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

#817T1,8DMCSRH
3(SP)+,3DMPO6
#2,-(SP)

#5W06,3SWR
1%

;SET ROMI
;LOAD INSTRUCTION IN SEL6
;ADJUST STACK

SHALT IF SW06 =1
:BR IF SW06 =0

;HALT BEFORE CLOCKING INSTRUCTION

#BIT1'BITO,30MCSRH ;CLOCK

#BIT2'BIT1'BITO,8DMCSRH

3(SP)+,TEMP
#2,-(SP)
#8174 ,3DMCSRH
SDMCSR,ADMCSR

#BIT4L,8DMCSRH
TEMP
1%

a(SP)¢+

TEMP

#,-(SP)

INSTRUCTION

;CLEAR ROMO, ROMI, STEP

:PUT TICK COUNT
:ADJUST STACK
;SET STEP LU
;WASTE TIME

IN TEMP

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

;MOVE COUNT TO TEMP
:ADJUST STACK

(IDME
MACY11 30A(1052)
07-JuL-80
CI0ME . P
01-JuL-80 15:29
1786

005626

1787
1788

005626
005630

104414
021364

1790
1791

005640
005642

001772

1789

005632

1792

005642

1794

005646

1793
1795
1796
1797

1798

005644

005654
005656
005662

005664

032777

1$:

000002

104414

021364

032777

001372
005337
001361

000002

000077
000
053520
047105

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

005760
006005
00603
006043
006072
006100
006106
006117

047377
377
377
377
051503
042526
040520
105

020117
047111
0625246
047514
035122
035103
051523
051122

(2)

006142

000052

(2)
(2)
(2)

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

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

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

(2)

(2)
(2)

006130

006144
006217
006224

006263
006322
006374
006450
006510
006526
006547

006606
006704

007016
007054
007114
007154
007205
007215

007223
007277

007320
007330

007340

173536

BIT
BNE
DEC
BNE

042524

051777
120
020212

377
020212
026777
0446377
041777
053377
377

044777
053777

051777
051777
044777
047377
377
116
377
77
024040

024040

042377

000122

052123

052105
035103
020040

020040
050040
026455
053517
051123
041505
051102

020106
044510

044527
044527
020123
020117
051412
053505
042377
054105
046504

046513

041515

052200
007602

050131

:15 PGM CLOCK BIT CLEAR?

‘BR

YES

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

:PORT4_1BUS* REG1T

¥2,30MPO4

;1S PGM CLOCK &IT SET?

28
TEMP
1%

‘BR IF YES
:DEC_COUNT
;BR [F NOT DONE

*RETURN

020122
020104

LASCIZ
LASCIZ
.ASTIZ
.ASCIZ

/7
<15><12>
<377>/PWR FAJLEC. RESTART AT
<377>/END PASS CIDMF
/

042504
052523
052123
045503
000040
000040
051505
051117

MERR2:
MERR3:
MISTPC:
MLOCK:
MCSRX:
MVECX:
MPASSX:
MERRX:

.ASCIZ
ASCIZ
.ASCIZ
(ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<377>/NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC-/
<377>/L0CK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES: /
/ERRORS: /

047040
051440
000040
020040

020040
020103
026455
046440
040440
047524
050040

066504
044103

041524
041524
044124
042504
051127
020077
041515
042520
024503
024503

030461

MTSTN:

MASTEK:

MNEW:
MERRPC:
XHEAD:

NUM:
(SR:
VEC:

PRIO:

CRAM:
MODU:

LINE:
BM:
CONN:
NOACT:
SWMES:

SWMESi:

CONERR:
CNERR:

DMCM:
KNCM:

SPEED:

007454 053600 064510 064103 Mv3S5:
007540

#2,aDMPOL

MOM:
MCRLF:
MPFAIL:
MEPASS:

MR:

020105

(EVEN

.ASCIZ

.ASCIZ
.ASCI?

LASCIZ
.ASC1Z
.ASCII

ASCIT
ASCIT
ASCI]
LASCIZ
LASCIZ
.ASCIZ
LASCIZ

LASCIZ
LASCIZ

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
-ASCIZ

.ASCIZ

LASCI]

'ASCIZ

SEQ 0037

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:PORT4_[BUS* REG11

ROMCLK

RT]

020040
005015
377
377

(2)

BEG
021364

000002

377

ROMCLK
021364

BIT

001416

005666
005672
005675
005733

005755

173552
2

1800
(2)
(2)
(2)

(2)

3
L
13:53 PAGE 37
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC)

TEST /

<377>/R/

/TEST NO:
/+/

<377>/SET SWITCH REG TO DMC11°'S DESIRED ACTIVE./
/PC: /
<212>/
MAP OF DMC11 STATUS/

<377>/
memecmmcecemaceeoo- /
<125/ pC
(SR
STAT1
STAT2
<377>/=m=m==
memmme cmmmee cemece
<377>/HOW MANY DM(C11'S TO BE TESTED?/
<377>/CSR ADDRESS?/
<377>/VECTOR ADDRESS?/
<377>/BR PRIORITY LEVEL? (4,5,6,7)?/

STAT3/
ceeol- /

<377>/1F DMC HAS CRAM (MB204) TYPE ‘'v'', IF CROM (M8200) TYPE '‘N'' 2/
<377>/WHICH LINE UNIT? IF NONE TYPE °'N'', IF MB201 TYPE '"1'‘, [F MB202 TYP
<377>/SWITCH PACHY (DDCMP LINE #)?/
<377>/SWITCH PACH2 (BMB73 BOOT ADD)?/
<377>/1S THE LOOP BACK CONNECTOR ON?/
<377>/NO DEVICES ARE SELECTED/
<377><12>/SuR= /
/NEW? /
<377><377>/DM(11 FOUND AT NON-STANDARD ADDRESS
<377>/EXPECTED FOUND/
/7 (DRC) /
/_(KMO)

PC: /

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

<200>/WHICH MODEM TYPE, TYPE ''D'° FOR DM(11-DA (RS?;Z().OR/
<200>/TYPE “F" FOR DMCT1-FA (v.35) 7 /

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

(2)

1801

e
i o
e
) e

VB WO =2 OO

VA VAVAWAWA

md i e e
d B e
b

OB G0 OB 0o O OB

D o

FIIIII AL

NO W
NO NS WO W00

e
e
e
d
D
d
d e
d
D

PO
=P et D e D e D e o
2 D
=S OOV
NO VNS WA =00

000005
006
001246
006
001250
006
001252
006
001254
006
001256

XSTATQ:

003
003

003

.BYTE

6,3

.BYTE
TEMP3

6,3

BYTE

6,3

BYTE
TEMPS

6,2

TEMP4

002
.SVEN

(TYPEOUT, ERROR,

6,3

TEMP?

003

§
.BYTE

TEMP1

;BUFFERS FOR

007630
007672

INBUF:
.=.440

000000
007672
000000
007734

MDATA:

.=.+40

SEQ 0038

SCIPE, ET()

INPUT-0UTPUT

0
O

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

G0 0o Oo 0o 0o OB O OO

b e

[o Jo To To -To Yo To Yo -Jo -Jo -Jo Jo Jo Jo }

1808

007602
007604
007606
007610
007612
007614
007616
007620
007622
007624
007626

13:53
PAGE 38
GENERAL UTILITIES

007734
007742
007744
007750
007752
007760
007766
007770
007776
010000
010002
010004

022737
001077
105777
100003
012737
022777
001404

022777

001061
010246
010346
010446

012737
005002
012704
106402
104411

010200
106402

004737
022707
00142«
022703
001416
022703
001754
022703
001762
005004
042703
006302

000176

001202

(KSWR:

171234

1518

177777

003734

000207

171210

000007

171220

BPL

2%:

1%:
177777
177777
007205

007215
010146
000015
000012

000025
000007
177770

(MP
BNE

010144

(KSWR1:
CKSWR2:

MOV

(MP

BEQ

#SWREG, SWR
CKSWRS
aTKCSR
2%

;GO ON IF NOT SET

#7,3TKDBR

;WAS CTRL G TYPED? (7 BIT ASCII)

#-1,D0NE

;STORE R2
;STORE R3

R4 ,-(SP)
#-1,SWFLG

TYPE
CNVRT
SOF TSW

CKSWR3: TYPE
(KSWR&L: JSR

CMP

BEQ
CMP
BEQ
CMP
BEQ
(Mp
BEQ

(LR
BlC
ASL

DONE

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

MOV
MOV

MOV

;IF

;BR IF

#207,aTKDBR
CKSWRS

CLR

;1S DONE SET?

CMP
BNE
MOV
MOV

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

#-1,R4

L SWMES

,SWMES1
INCHAR

PC,

15 R3

13
22,R3
43
#25,R3
(KSWR1
#7,R3
CXSWR&

R&
#177770,R3
R2

SET,

SET

FLAG

VYES

;WAS CTRL G TYPED? (8 BIT ASCII)
:BR IF NO
: STORE R4
;SET SOFT

TYPE QUT FLAG

;CLEAR NEW SWR CONTENTS
sSET FLAG TO ALL ONES

STYPE ‘‘SWR= '
STYPE OUT PRESENT CONTENTS
‘OF SOFT SWITCH REGISTER

STYPE 'NEW? "
:GET RESPONSE

‘WAS IT A CR?

‘BR IF YES
‘WAS [T A LF?
‘BR IF YES
JWAS

[T CTRL U?

;BR IF YES(START OVER)
;IF CNTL G GET NEXT (HAR

;1T MUST BE A DIGIT SO CLR FLAG
;ONLY 0-7 ARE LEGAL SO MASK OFf BITS
JSHIFT R2 3 TIMES

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

(ZDME

010144

000000

010146
010152
010154
010160
010164
010166
010172
010176

105777
100375
017703
105777
100375
010377
062703
000207

010200
010202
010204

000001
006
000176

010130

1874
1875
1876

1877

1878
1879
1880
1881
1882

1883

il
il
il
D
e
e
-

—

1864
1865
1866
1867
1868
1869
1870
1871
1872
1873

1863

[elolololelolelw]

[e]oleololololole]

NN
= =2 000
S2NONOO
N

010142

006302
006302
050302
000752
012766
005704
001002
010277
005037
012604
012603
012602
000207

1856
1857
1858
1859
1860
1861
1862

ASL
ASL

002002
171052
010144

000006

4$:
5¢%:
6%:

BIS
B8R

MOV
TST

BNE

MOV

CLR
MOV
MOV
MoV

(KSWRS: RTS
SWFLG:

171032

INCHAR:

171026
171024

000200

1S18

BPL
MOV

BIC

RTS

SUETSM:

R2
R2

R3,R2

CKSWR4
#.START,6(SP)
R4

6%
RZ2,8SWR

SWFLG
(SP)+,PL
(SP)+,RY
(SP)+,R2

1ST8
8PL
MOV

171020

002

13:53
PAGE 39
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETO)

.BYTE
SWREG

3TKCSR
b

a#TKDBR,R3
8TP(SR
.<b
R3,aTPDBR
#B117,R}
PC

6.¢

;ADD LAST DIGIT

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

;RETURN

SEQ 0039

E%DHE
MATY11 30A(1052)
07-0uUL-80
OME .PYN
01-JuL-80 15:29

B 4
13:53 PAGE 40
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ET()

1884
1889
1886
1887

R
sROUTINE USED
;THIS ROUTINE

1889
1890

;BE RUN FIRST BEFORE
JSETUP NECESSARY,

1888

1892

010206
010212
010214
010220
010222

005737
001004
104402
000000
000776

001306

1899
1900
1901

010226
010232
010236

006137
005537
062737

001316
001316
000004

001322

010252
010260
010262
010270
010276
010304
010306
010312
010316
010322

022737
001006
012737
012737
033737
001747
013700
013702
012037
011037

001700

001320

010334

012037

001366

012237
012237
012700
013737
005237
013737
005237
013737
060037
013737

001230
001232
000002
001404
001406
001406
001410
001410
001412
001412

1898

1902

1903
1904
1905
1906
1907
1908
1909
1910
1911
1912

1913
1914

1915
1916

1917
1918
1919
1920
1921
1922
192%
19264
1925
1926

}gg;
1929

1930
1931
1932
1933

}ggg

010224

010244

010326

010340
010344

010350
010354
010360
010364
010372
010376
010404
010410
010416
010422

010430

010434

010442
010446
010454
010460

010466

000241

062737

042737

012037
012037

060037
013737

060037
013737
060037
013737

060037

000010

001500
001702
001316

001320

001320
001322
001306

2§%:

001404
001374

177000

001374

001376

001376
001376
001400
001400

001402

032737
001450

000002

1939

010502

005737

000042

RUN
RUN
86 MILK

;UPDATE POINTER
;CATCH CARRY FROM RUN
;UPDATE POINTER

(MP
BNE
Mov
MOV
BIT
BEQ
MOV
MOV
MoV
MOV

#OM MAP+200,CREAM
2%
sKEEP GOING,; NOT ALL TESTED FOR.
#OM_MAP,CREAM
JRESET ADDRESS POINTER.
#CNT PAP MILK
;RESET PASS COUNT POINTER
RUN,DMACTY
;IS THIS ONE ACTIVE?
1%
:BR IF NO
CREAM,RO
;GET ADDRESS POINTER
MILK,RZ
;GET PASS COUNT POINTER
(RO)+,DMCSR
;LOAD SYSTEM CTRL. REOG
(RO) ,DMRVE(
;LOAD VECTOR

016.CREAH

;LOAD STAT?
:LOAD STAT3

MOV

DMRVEC ,DMRLVL

ADD

RO,DMTLVL

ADD
MOV
ADD
MOV

001402

001236
L%

JUPDATE ADDRESS POINTER,

(RO)+,STAT?
(RO)+,STAT3

001376

;LOAD STATI

;LOAD PASS COUNT
:LOAD ERRJR (COUNT
:SAVE CORE THIS WAY

RO,DMPO6

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

TFSTFD?

CARRY BIT,

;CLEAR UNWANTED BITS

(RO)+,STAT

001414

ADD

;CLEAR PROC.

0177600,DHRVEC
(R2)+ ,PASCNT
(R2)+ ,ERRCNT
#2 R0
DMCSR,DMCSRH
DMCSRH
DMCSRH,DMCTL
DMCTL
DMCTL ,DMPO4
RO,DMPO4
DMPO4 ,DMPO6

001400

THME

ROL
ADC
ADD

MOV
MOV
MOV
MOV
INC
MOV
INC
MoV
ADD
MOV

001412

eMuSTe

CLc

MOV
MOV

00141C

FOR

ARE ANY OMC11°'C TR RE
;BR IF OK.
sNO DMC11'S SELECTED'!
;STOP THE SHOW.
:DISQUALIFY CONT. SW.

MOV

001406

THIS ROUTINE

DIAGNGSTIC

DMALTY
1%
JNOACT

BIC

001370
001372

001414

ENTERING THE

TST
BNE
TYPE
HALT
BR

ADD

001320
001322

010472
010500
010502

CY(LE:

007154

1936
1937

1938

TO ''CYCLE' THROUGH UP TO 16 DMC11°'S
SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC

:AND RUNS THE SPECIFIED DMC11'S.

1893
1894
1895
1896
1897

SEQ 0040

:PTY LVL

:
sTX VEC
:
;TX LVL

BI7
8EQ

#SW01,STRTSW
7%

;1S TEST NO.
;:BR IF NO

SELECTED

FY 1Y

;RUNMING IN AUTO MODE?

CIDME

MACY11

30A(1052 )

010506
010510

9001045
104402
104403
006130
104405
000001
001000
001226
000
001

(Zome .P11
1940
19641

1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

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

010514
010516
010520
010522
010524
010526
010530
010531
010532
010536
010540
010542
010544
010552
010554
010562
010564
010570
010574
010602
010606
010606
010612
010614
010620
010622
010630
010634

012700
022710
012737

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

012737
013701
000177

13:53
PAGE &1
GENERAL UTILITIES
BNE

005672

TYPE

INSTR

.BYTE
.BYTE

012526

£g .

001226

000002

001226

000004

001214
005755

000002

;BR IF

JCRLF

6%:

026342
005666
012526
001404

001214

170354

7%:
8%:

SEQ 0041

ETC)

VYES

;GET TEST NO.

0
1

MoV

#TST1,RO

MOV

(PC)
¢ ,a(PC)+

(PCY+, (RD)

;CMP FIRST WORD TO 12737

BNE
(mp
BNE

;BR

MOV
TYPE

6%
#TSTND,4L(RO)
6%
RaéRETURN

:BR [F NO
;1S LAST WORD 0K?
;BR [F NO

CMP

BIC
B8R
TST
(mp
BNE

TSTNO,2(RO)

IF NOT SAME

:DOES

;1T

TSTNO MAT(H?

IS A LEGAL

TEST

SO DO

#5W01,S5TRTSW

8%
(RO) ¢+

;POP RO

;:BR

RO,#TLAST+10

TYPE

,Mam
4

MOV
MOV
JMpP

#T7ST1,RETURN
DM(SR,R1
aRE TURN

;AT

END YET?

;YES ILLEGAL
;TRY AGAIN

TEST NO.

;PREPARE RETURN ADDRESS
;RY = BASE DMC11 ADDRESS
;60 START TESTING.

;ROUTINE USED TO ''AUTO SIZE'' THE DMC11
;CSR AND VECTOR.

1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988

010640
010640

010642
010646
010650
010654
010656
010662
010666

012702
005022
022702
001374
005037
012702
005037

1991

010700

001002

1995

SCOPE,

1000
TSTNO

(MP
BNE

001236

1974

1992
1993
1994

ERROR,

MTSTN
7ARAH

1972
1973

1989
1990

(TYPEOUT,

JNOTE:

THE

CSR MAY BE

AND

THE

ADDRESS RANGE

ANY WHERE

VECTOR MAY BE

FLOATING VECTOR RANGE

010672

010702
010706
010714
010716

000005

032737

000137
012737
104403

006450

AUTO.SIZE:
RESET
(SRMAP: MOV
1%:
CLR
(mp
BNE

001500

001700

CLR

001310
001500
001306
000001

001236

011460
000001

001256

Mov

CLR
BIT

BNE
JMP
MOV

INSTR

NUM

#DM _MAP,R?
(R2) ¢

#DM_END,R2
1%

DMNUM

#DM_MAP,R?
DMACTV

#5W00,STRTSW

. +6
78
", TEMPS

IN THE

(160000:164000)

ANY WHERE

(300:770)

FLOATING
[N THE

. INSURE A BUS INIT.
;LOAD MAP POINTER.
;JERO ENTIRE MAP

;ALL DONE?
;B8R _IF NO

;SET OCTAL NUMBER OF DMC11'S 10 0
;R2 POINTS TO DMC MAP
CLEAR ACTIVE
;QUESTIONS?

;B8R IF YES
;1F NO SKIP QUESTIONS
;START WITH 1

CI0ME
MACYY1T 30A(1052 )
0%-JUL-80
CIOME . PIY
01-)uL-80 15:2
1996
1997

010720
010722

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017

010730
0107%N
010732
010740
010744
010746
010750
010754
010756
010760
010762
010764
010766
010770
0107
010772
010776
011000

1998
1999

2018
2019
2020

2021
2022
2023
2024

2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036

2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051

010724
010726

011002
011004
011006

011010
011012
011013
011014

011020
011022
011026
011030
011034
011036
011042
011044
011050
011052
011054
011056

011062
011064
011066
011070
011072
011074
011076
011100
011104
011110
011112
011116
011120
011122
011124

13:53

GENERAL UTILITIES

104405
000001

104402
006547
004737
022703
101014
022703
10341
012704
006303
005304
001375
042703

050312
000403
104402
005666
000752
104402
006606
004737
022703
001427
022703
001403
104402
005666
000763

(TYPEOUT, ERROR,

SCOPE, ETC)

16.

001252
005672

001310

TEMPY
.BYTE
.BYTE

12%:

MOov
TYPE

CONVRT

WHICH

001256

001254

TEMP3,DMNUM

JMCRLF

INC
INSTR
(SR

TEMPS

BYTE
BYTE
MOV
INSTR
VEC

PARAM
160000
164000
TEMPL

104405
000000
000776

001254
000
001
013712

?ARAH

000020
001252

000
001
013737
104402
104410
012210
005237
104403
006510
104405
160000
164000
001254
000
001
013722
104403
006526

PAGE 42

TEMPL, (R2) ¢

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

;STORE (SR [N MAP

PARAM

776

TEMP4

001254

10%:

012474
000024
000027
000011

50%:
8%:

000116

JSR
cMpP
BHI
CMP
BLO

PC,INTTY

MOV
TYPE
PRIO

TEMP4L, (R2)

424 R3

DEC
BNE
BlC
BIS
BR

TYPE
MQM

TYPE

STORE VECTUR [N MAP
;ASK WHAT

BR LEVEL

;GET RESPONSE

‘BR IF LESS THAN &
:BR IF GREATER THAN 7
;R4 = NUMBER OF SHIFTS

[[0]%
ASL

170777

012474
000131

LBYTE
.BYTE

;SHIFT R3 LEFT

=4
#170777,R3

R3, (R2)
8%
10%

;DEC SHIFT COUNT
;BR IF NOT DONE
;B1C UNWANTED BITS
;PUT BR LEVEL IN STATUS MAP
. CONTINUE
;RESPONSE IS OUT OF LIMITS
: TRY

AGAIN

CMP
BEQ
(mp
BEQ

PC,INTTY

;DOES DMC HAVE (RAM?
;GET REPLY

9%
2116,R3
408

:NO
;NOT

sASK AGAIN

CRAM

JSR

TYPE
MOM

181,83

JYES
A Y

OR N

SEQ 0042

(IDME
MACY11 30A(1052 )
07-JuUL~-80
CIDME .P1
01-JuL-80 15 129

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
2089
2090
2091
2092
2093
2094

2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

2107

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

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

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

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

011314
011316

001027

13:53
PAGE 43
GENERAL UTILITIES
40%:

000114

TYPE
MQM

000002

000004

100000

AL ¥
9%:

16%:

BIS

BR
BIS

TYPE
MODU

012474
000021
000022

000116

(TYPEOUT,

TYPE

SPEED
JSR
CMP
BEQ
(Mp
BEQ

012474
000122

PC,INTTY

#1232 ,R3
168

32%:

40%
MBIT1,4L(R2)
16%
#BIT15,(R2)

PC,INTTY

16%
#B1T12,(R2)+
(R2)+,(R2)¢

020000

31%:
30%:

012474
000131
000116

(Mp
BR

BIS
TYPE

CONN
JSR
CMP
BEQ
(MP
BEQ

040000
020000

17777¢

4408

011316
011320
011322
011326
011332

104402
007454
004737
122703
001004

011334
011342

062762
0004M1

000004

011344

122703

000106

012474
000104
000002

4462%:

;DMC11-AR OR DM(C11-AL?

sGET RESPONSE
IS IT R

: TRY

AGAIN

;SET BIT1 IN STAT3
s CONTINUE

JSET BIT 15 IF (RAM

iG], REPLY

UNIT

33%

#BIT13,(RO)

PC,INTTY

081,83
17%

;IF NOT A 1,2 OR N TYPE ‘2"
;TRY

AGIAN

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

;SET BIT 13 [N STATZ IF MB20?
sASK

LOOP-BACK

:GET REPLY

]S ON

M |

;+F NOT Y OR N TYPE "2
; TRY AGAIN
: TURNAROUND

BR
BIS
BIT
BNE
TYPE

SEQ 0043

ETC)

TYPE
MOM

17%:

SCOPE,

;ASK WHICH LINE

JSR
CMP
BEQ
(MP
BEQ
CMP
BEQ

BIS

ERROR,

#1114 ,RY
418

TYPE
MQM

010000

1S CONNECTED

. IS IT A M8202?
;

YES,

IGNOR.

; ASK QUESTION
; ABOUT MODEM TTYPE
PC,INTTY
: GET ANSWER.

Mv35
JSR
(MPB
BNE

#'D,R3
4428

: IS 1T DMC11-DA?
. NO.

8IC
BR

#8112,2(R2)
461

; YES INDICATE IT IN STATS

(MPB8

£'F RS

SIS 1T A DMCIT-FA (V.35)?

(IDME

MACY11 30A(1052)

(I0ME.PY°

01-JuL-80 15:29

g}gg

011350

2110

011352

%}}%

011356

000757

%}}g

011360

052762

2116
2117
2118
2119
2120
2121
2122
212%
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136

011366
011366
011370
01374
011374
011376
011400
011402
011404
011406
011470
011411
011412
011416
011420
011422
011424
011426
011430
011432
011433

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

2138

011440

005722

011454
011460
011464

000137
012701
012737

2111

2137

2139
21640
2141
2142
2143
2144

21645

2146

2147

2148

2149

2150
21517

2152
2153
21564

2155

2156

2157

2158
2159

O07-JuL-80

011354

011434

011442
011446
011450

011472
011474

011476
011500

011504

011510
011512

011516
011522

011530

011534

011542

011544

011552
011554

001403

BEQ

104402

000402
042722

000004

040000

001254

005337
001402
000137

001252

18%:
19%:

33%:

010740

012110
160000
012202

005061

005761

001165
012711

005061
012761

052711

022761

000004

001004

052762

INSTR
L INE
PARAM
0
177
TEMP4
.BYTE
.BYTE
MOvB
INSTR
B8M
PARAM
0
377
TEMPG
BYTE
.BYTE
ST

DEC
BEQ
JMP

0
1
TEMPL, (R2)

O
1

(R1)

(LR

6(RY)

BNE

6(R1)
#BIT10,(RY)

000004

(mp

0125255,4(R1)

100000

000002

2163

011576

022761

016472

002000

000006

#1713 _(R1)

213

8IS

#MB1IT115,2(R2)

MOV

0100430,6(?1)

BR
MOV

MOV

(MP

SWITCH PA(

[N MAP

;DEC DMC COUNT
:BR IF DONE
;JUMP IF NOT

1S7

BNE

;STORE

TEMPY
349
12%

13%
#160000,R1
6%, 904

BlS

:NO TURNAROUND

;STORE SWITCH PAC IN MAP

(R2)+

JMP
MOV
MOV

(LR

; END DECISION POINT,

TEMPL, (R2)+

125252

001400

REASK QUESTION

19¢
#BITIL,(R2)

L(RY)
#125252.,6(R1)

012711

NO ASK OPERATER WHATS GOING ON.

BR
BIC

(LR
MOV

011566

: YES V.35, RECORD IN STAT}

000006

21s:

|T.

#B1T12,2(R2)

MOV

100430 000006

YES=-TAKE CARE OF

BIS

000004
125252

001000

;

1871

002000

SEQ 0044

“60%

BNE

000006

000431
012711

012711

LA ¥
7%

000006

020000

MovBe

00571

001172

44&38:

001254

2161

011572

000002

L61%:

113722

005011

4438

TYPE

MQM

Q05666

2160 011560 012761
2162

13:53 PAGE 46
GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ET(C)

22%
#8119, (R1)

;POP OVER STATS

: CONT INUE
;SET FOR FIRST ADDRESS TO BE
:SET FOR NON-EXISTANT DEVICE

:CLEAR SELO
:1F

TESTED
TIME QUT

DMCYY DMCSR S/B O

:IF NO DEV ; TRAP TO &, IF NO BIT B THEN NO DM(1N
;CLEAR SEL6

:1F DMC11 THEN DMRIC S/B =0.
:BR If NOT DM(C11
:SET ROMO

;CLEAR SELG
;WRITE THIS TO SELG
;WRITE

JWAS IT WRITTEN?

;IF NO IT IS NOT CRAM

JSET BITIS [F CRAM
;SET ROM]

;PUT INSTRUCTION IN SELG

#B1T9'BI18,(RY1) ;CLOCK INSTRUCTION (MICRO PROC PC 1O O)
#B1110,(RY)

2016472 ,6(R1)

:SET ROMO

;1S 1T LOCAL CROM?

CIOME

MACY!Y 30A(10)2)

C10Mt .P11

07-JUL-80

01-JuL-80 15:29

2164
2165
2166

0116064
011606
011614

0016411
022761
001410

68
69
70
4

011626
011626
011630

001404
000516
052762

001000

167

011616

022761

72
73

011636
011640

010122
012711

75
76
77
78
79
80

011650
011656
011662
011670
011674
011702

012761
052711
012761
052711
122761
001003

011710
011712

000436
032761

82
83

84
85
86
87
88
89
90

91
92
93
94

011644

011704

011720
011722
011726
011730
011736
011740

011746

01175
011760
011766
011772
012000
012002

012006
012010
012016

012022

005061

052712

001403
052712
000427
032761
001023
012761
012761

0521
012761
052711
032761
001402
052712

005722
012761
012711
012761
012711

22
22
22
22

012044
012046
012050
012054
012062
012064
012066
012072
012076
012102
012104

005722
005011
005237
022737
001412
005011
005061
062701
022701
001402
000137

012114

005737

22
22

012122
012126

012040

012110

012120

016461

000006

177777

000006

000002

000006

000004

122113
000400
021264
000400
000377

000002

BEQ
(mp
BEQ

(mp

000006
000006
000004

000004

021326
001400

000006

021344
001400

000006

20%:

005037

001423

013701
010137

000006

000010
164000
011472

001306

001310
00i310
001314

#122113,6(R1Y
#8118, (R1)
#021264 ,6(R1)
#8178, (R1)
#377,6(RV)
.+10

;LOAD INSTRUCTION (CLR DTR)
;CLOCK INSTRUCTION
;LOAD INSTRUCTION
;CLOCK INSTRUCTION
;1S IT ALL ONES?
;B8R [F NO

(LR

3%:
14%:

13%:

¥BIT12,(RD)

20%
#BIT1,4(RD)

;CLEAR PORT4

;IF YES, NO LINE UNIT, SET STATUS BIT

;1S SWITCH A ONE?
.+10
;BR IF M8201
#BIT13.BIT14,(R2) ,;MB202 ASSUME CONNEL(TOR
20%
: CONNECTOR ON)
#BIT3,4(RY)
;1S MRDY SET
20$
;BR IF MB201 NO CONNECTOR (ON LINE®
#BLT6,4(RY)
;LOAD PORT4
#122113,6(R1)

;LOAD INSTRUCTJON

#8118, (R1)
#021264,6(R1)
#8178, (RY)
#B1T3,4(R1)
20%
#B1T14,(R2)

;CLOCK INSTRUCTION(SET DTR)
;LOAD INSTRUCTION
;CLOCK INSTRUCTION(READ MODEM REG)
;1S MRDY SET NOW?
:BR IF NO CONNECTOR
;SET STATUS BIT FOR CONNECTOR

81s8

4(R1),(R2)+

;STORETMDDCMP LINE # IN TABLE

4(R1) . (R2)+

;STORE BM873 ADD [N TABLE

TST
MoV
MoV

B1SB

001310

4L(R1)

BIS
MOV
BIS
BIT
BEQ
BIS

Mov
Mov

156122 000004

001310
000020

MoV
BIS
MOV
BIS
(MPB
BNE

MoV

000006

040000

:NO CROM?

;STORE (SR IN CORE TABLE.
:CLEAR LINE UNIT LOOP

BEQ
BIS
BR
BIT
BNE
MoV

060000

000004
000006

#-1,6(R1)

:BR [F YES
;IS |T REMOTE CROM?
;B8R IF YES

R1,(R2)¢
1819, (R1)

BR
BIT

00000¢

000100
122113
000400
021264
000400
000010

233
#016461,6(R1)
22%

MoV
MOV

BIS

000004

BEQ
229
;BR IF YES
BR
3%
;NOT A DM(
23%:
BIS
#BIT1,6(R2)
;SET BIT 1 IN STAT3
‘AT THIS POINT IT 1S ASSUMED THAT R1 HOLDS A DMC11 (SR ADDRESS.

228:
15¢:

000010

PAGE 45

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

010000

156122 000004

012026
012034

13:53

ST
CLR
INC
(MP
BEQ
(LR
(LR
ADD
(Mp
BEQ
JMP
CLR

TST

BEQ

MoV
MoV

;POP POINTER
(R2) ¢+
#021324 ,6(R1)
;PUT INSTRUCTION IN PORT6
#B1T9!BIT8,(R1) ;PORT4_LU 15
PORTb INSTRUCTION
#021344,6(RY)
#B1T8'BIT9,(R1) ;CLOCK INSTR.

(R2)+
(R1)
DMNUM
#20,0MNUM
13%
(R1)
6(R1)
ALY
#164000,R1
13%
2%
DMACTV

DMNUM

R
DMNUM,
R1,SAVNUM

:POP OVER STAT3
;CLEAR ROMI
;UPDATE DEVICE COUNTER
;ARE MAX. NO. OF DEV FOUND?
;YES DON'T LOOK FOR ANY MORE.

;CLEAR BIT 10
;CLEAR SEL 6

;UPDATE CSR POINTER ADDRESS
;BR |F DONE
;JUMP [F NOT

;WERE ANY DM(C11'S FOUND AT ALL?

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

SEQ 0045

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

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

012210
012212
012214

000001
002
001256

12216
12226

032737
001114

000001

001236

12234
12242
12246
12252
12256

012737

012737
012702
012700
012701
010120

000340

012410
001500
000300
000302

000022

012721

000004

020127
101771
013737

001000

W U L AN N N W AN AN AN A NI PO N A N RO AO NI N
VOO NOWVE
WA 2OV
NO WV
W
—-O

felelelel=lelelel=l"lol>lclololelolelelelolololalelolelelolelelelolele
ol o]

b 3

12260

12264

12266
12272
12274

AV,

07-JuUL-B0

01-JuL-80 15:29

NIAIRNIRI NI NI RN NP NI NI NI AL MO RN NN P
[AS 1o ST ST ST N1 ST T UL ST ST ST NI S S oS S L LS I A

~ I~

30A(1.52)

12226

~N
~N

‘ale)

MACY1Y

12302
12306
12310
12314
12322
12326

12332

12336
12346

12350

12352
12354

12360
12362

022021

006037
103063
012704
016437
011201
012761

012711

012761
012711

105200
001376
162704

001404
016437

12370 000767
12372

12400
126402

126406

12610
12614

12622

12626
12430

052762

005011
062702

000735

051662
042762

016405
006305
006305

13:53

PAGE 46

48:

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

001306
001306
000006
001306
012216
005760

A%
WHICH:

002

177776

000200

000004

121117
001400

000006

000002
0126460

177776

005300

000002

000010
000002
000007

012462

MOV
MOV
MQV
MOV
MOV

MOV

CMP

000012
012460

001000

MOV

001246

1
.BYTE
TEMPS

VECMAP: BIT
BNE

000020

001306

000002

GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ETC)

000004
001312

012072

4$:

=2
8143, (SP)

:GENERATE ACTIVE REGISTER OF DEVICES.
SSET THE BIT
:BR IF MORE TO GENERATE
"RESTORE TRAP VECTOR
:SAVE ACTIVE REGISTER
:GO FIND THE VECTOR NOw.
*NOTIFY OPR THAT NO DMC11'S FOUND.
“MAKE DATA LIGHTS ZERO
*STOP THE SHOW
:DISABLE CONT. SW.
“ENTERED BY NON-EXISTANT TIME-OUT.
SRETURN TO MAINSTREAM

2,2
#SW00,STRTSW
5¢

#340,3022

;SET 10T TRAP PRIO TG /

#4 (R1)+

SWITH .+2; 10T

84S ,3420
#OM.MAP,R?
#300,R0
#302.R1
R1,(RO) ¢

(R +, (R1)+

SSET 10T TRAP VECTOR
:SET SOF TWARE POINTER
CFLOATING VECTORS START HERE.
:PC OF IOT INSTR.
SSTART FILLING VECTOR AREA

CADD 2 TO RO +R1

CMP
BLOS
MOV

R1,#1000
1%
DMACTV, TEMP1

MOV

#8179, (RD)

:SET ROMI

SSTALL

6%
BRLVL (R&) ,PS

‘BR IF R4 = 0
:MOVE NEXT LOWER LEVEL IN PS

ROR
BCC
MOV
MOV
MOV
MOV

MOV
MOV

INCB
BNE
SUB

BEQ
MOV

6%:

DMACTV
DMACTV
R1
43
06,304
OMACTV,SAVACT
VECMAP
JMERR2
RO

B8R

TEMPI
5¢
#12,R4
BRLVL (R&) ,PS
(R2),R1
#200,4(R1)

=2
#2,R4

#5300,2(R2)

B8R

8IS
BIC

MOV
ASL
ASL

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

#121111,6(R1)
:PUT INSTRUCTION IN PORT6
#BIT9'BIT18,(R1) :FORCE AN INTERRUPT

8IS

CLR
ADD

SEQ 0046

(R1)
#10,R2

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

BRLVL+2(R4),RS
RS
RS

CFOR TIME TO INTERUPT
“GET NEXT LOWEST PS LEVEL

:BR TO DELAY

:NO INTERUPT ASSUME 300 AT LEVFL S AND F1Y DMC11 LATER
:CLEAR ROM]
*POP SOF TWARE POINTER

‘KEEP GOING

:GET VECTOR ADDRESS
:CLEAR JUNK

:GET BR LEVEL OF DMC11
CSHIFT LEVEL & PLACES
270 THE LEFT FOR THE

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

2276
2277
2278
2279
2280
2281
2282
%%gz

0126432
0126434
012436
012442
012446
012450
012454
012456

006305
006305
042705
050562
022626
012716
000002
000207

2285
2286
2287
2288
2289
2290
22N
2292
2293
2294

012460
012462
012464
012466
012470
012472

000000
000000
000200
000240
000300
000340

012474
012500
012502

105777
100375
017703

2295
2296
2297
2298
2299
2300
2301
2302

012506
012512
012514
012520
012524

105777
100375
010377
042703
000207

4
I
13:53 PAGE &7
GENERAL UTILITIES (TYPEQUT, ERROR, SCOPE, ETC)

ASL
ASL
BIC
BIS
(MpP
MOV
RTI
RTS

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

;STATUS TABLE

;ALL DONE WITH "'AUTO SIZING''

8PLVL:

O
0
200
240
300
340

JLEVEL
JLEVEL
JLEVEL
JLEVEL
JLEVEL
JLEVEL

INTTY:

T1STB
BPL
MOV

aTK(SR
4
8TKDBR,R3

170777
000002
012400
5%:

166504

166500
166476

T1S718
BPL
MOV
8IC
RTS

166472
000240

2303
2304

sCLEAR UNWANTED BITS
JPUT BR LEVEL [N STATUS TABLE
;POP J0T JUNK OFF STA(CK
;SET FOR RETURN

O
O
&
S
6
7

8TP(SR
.~4
R3,aTPDBR
#8177 BITS,RY
PC

;WAIT FOR DONE

:PLTM CHAR IN R}
JWAIT UNTIL PRINTER [S RELADY
;ECHO CMHAR
;MASK OFF LOWER CASE
;RETURN

2305

eerrsnereresrtertentennrerr

2306
2307
2308

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

2309

2310

23N
2312

2313
2314

2315
2316
2317

2318
2319

2320
2321
2322

2323
2326
2325
ggg?

2328

012526
012534

012737
012737

000001
012602

012562
012546

005077
012702

012556

016104

012552
012554

012562
012566

012572

012574
012576
012600

104414
021224

042704
012705

120504

001401
104( Y2
104400

001226
001216

SEQ 0047

T1ST1:

TEST

saonnesntnertertersentenene

#1,TSTNO
#TST2 NEXT

166636
000011

(LR
M)y

aDMCSR
M11,R?

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

000004

MOV

4(R1),R4

;PUT "FOUND'' IN R4

(MPB

RS ,.R&

ROM(CLK
021004 '<20¢11>
BIC
MOV

TEST 1
;o===scss=scoceo

MOV
MOV

000054
000020

BEQ
HLT
SCOPE

#54 R4
#20,R5

1%
2

;NEXT WORD IS INSTRUCTION, ROMCLK P(-5304
;PORT4 LINE UNIT REG N
;CLEAR UNKNOWN BITS
;PUT "'EXPECTED'' IN RS

;1S OUT READY SET?

;BR IF YES
;ERROR IN LU N
;SCOPE THIS TEST

2329

JtNCEAeteR R

2330
23N

;¢IN CONTROL REGISTER READ/ONLY TEST
;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY

ERANOTRANRERNORY

TEST

tecsencnssnntesetstnsrenene

MACY1Y 30A(1052)
07-JuL-80
P
01-JUL-80 15:29

13:53 PAGE 48
LINE UNIT READ/ONLY TESTS

SEQ 0048

;*BITS ARE IN THE CORRECT STATE

;:"'."""""'Q"'O"'Q'Q""t"""""'Qt"'."""".""

TST2:

MOV
MoV

#2,TSTNO
#TSTI NEXT

000012

MOV

#12,R2

;R1 CONTAINS BASE DMC11
;SAVE R2 FOR TYPEQUT

000004
000017

MOV

4(R1),R4

;PUT "'FOUND'' IN R&

0000G2
012650

0012¢6
001216

ROMCLK
021004!<20+12>
BIC
CLR
(MPB
BEQ

012646

104400

1%:

HLT
SCOPE

nM7,R4
RS
RS.R&
1%

ADDRESS

sNEXT WORD IS INSTRUCTION, ROMCLK P(-5304
;PORT4 _LINE UNIT REG 12
;CLEAR UNKNOWN BITS
;PUT "'EXPECTED'' IN RS
;ARE ALL BITS CLEARED?
;BR

YES

;ERROR IN LU 12
;SCOPE THIS TEST

erntnrerertreeevvereenanen

TEST

enenncconnnsterenereenvecan

s *MODEM CONTROL REGISTER READ/ONLY TEST

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

;*BITS ARE IN THE CORRECT STATE

;:'"'""Q"""""""'.Q...t.t".l"fi.tt.t't"t'..ttt"'t"

012664

—

00000 3
01272 4

[aV],
¥

012650
012656

(=l
ele]

;
TST3:

TEST 3

MOV

#3,TSTNO

#TSTL NEXT

000013

MSTCLR
MoV

000004

0210046!<20+13>
MOV
4(R1),R4

ROMCLK

000213
000100

104400

1%:

BIC
MOV
(MPB
BtQ
HLT
SCoPt

#3,R2

#213 R4
#100,R5
RS,R&
1%
2

:R1

CONTAINS BASE

DMC11

;MASTER CLEAR DM(11
;SAVE R2 FOR TYPEQUT

ADDRESS

SNEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

;PORT4L _LINE UNIT REG 13
;PUT 'FOUND'' IN R4

:CLEAR UNKNOWN BITS
;PUT "'EXPECTED'" IN RS
;ARE RING, DTR,
AND MODEM READY SET?
;BR IF YES
;ERROR IN LU 13
;SCOPE THIS TEST

ceenceesrnnterrtnvrennennenr

TEST

attonnenvtenntnveennanteene

;*MAINTENANCE REGISTER READ/ONLY TEST

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

;*BITS ARE IN THE CORRECT STATE

NN
—

012736

.l
O

012722
012730

[Y=]
—
[V 1N )

;;.t!'t""""""'""ii.'.lt"'t'l"ttifittl"tt!ttt'!t't"'t

000004
013024

001226
001216

1ST4:

MOV

MoV
MSTCLR

#4,TSTNO.

#TISTS NEXT

;R1 CONTAINS BASE DMC11 ADDRESS
SMASTER CLEAR DM(C11

(1 DME
MA(Y1Y 30A(1052)
07-JuL-80
01-JUL-B0 15:29
2z DME.P11

2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
26403
2404
2405
2406

2407
2408
24609
2610
2611
2612
24613
2614

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

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

ROMCLK

#7,R2

021004'<20-17>

000004
000206
000051
020000

001366

040000

001366

MOV

4((R1),R4

1206,R4

BIC

000040
000040

MOV

2%:

1%:

#51,RS

#RIT13,STATY
23
#BIT14,STATY
1

BIT
BNE
BIT
BNE

#40,R4

BIC

#BITS,RS

BIC

CMPB
BEQ

HLT
SCOPE

RS,RG
1%
2

;SAVE R2 FOR TYPEOUT

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:20¥T4 LINE UNIT REG 17
:PU "“FOUND'' IN R4
;CLEAR UNKNOWN BITS

;PUT "EXPECTED'' IN RS
;1S LU AN M8202 OR MB8201”
;BR [f MB20¢

;CONNECTOR???
;BR IF M8201 WITH CONNECTOR
;sMASK OFF

SI BIT

;ST BIT IS UNKNOWN
;ARE

:BR

AND

YES

[ICIR

M8202 OR MB201, NO CONNECTOR

SET?

;ERROR IN LU 17
;SCOPE THIS TEST
TEST

rannvvvneentcrreveneneerenn

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

;*C EAR BITS IN LU REGISTER 12, VERIFY IT [S CLEAR

.';t.'t""ti't't""""Qtitt"'ttiil'ltttt'ti.tii"fit"'t't"'

TEST

013040

012737

2619

013046

104412

2635
2636
2437
26438
26439
2440
2441
26462
2443

MOV

SEQ 0049

TESTS

cerreerntrrerrettnenennnannn

0130264
013032

26420
2621
2622
2423
2626
2625
2426
2427
2428
2629
26430
26431
26432
2433
263

000017

120504
001401
104002
104400

26415
2616
Si}g

13:53
PAGE 49
LINE UNIT READ/ONLY

013050
013054
013062
013064
013066
013070
013072
013076
013102
013106
013110
013112
013114
013116
013124

013130
013132
013134
013136
013140
013142
013146
013152
013154

012737
012737

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

104414
122112
104414
021245
005005
116104
042704
120504
001401

000005
013164
013056

000012
000040

001226
001216

T1ST5S:

001220

MOV

MOV
MOV
MSTCLR

000004

1%:

MOV
MOV

ROMCLK

#5,TSTNO

#TSTH,NEXT
#1%,L0CK

#12,R2
#40,4(RY)

ROMCLK

000040
000005
000337

013126
001004

BIC
CMFB
BEQ

001220

3%:

HLT
SCOPY
MOV

(LR

ROMCLK

#40,RS
5(R1),R4

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-12
;PUT "'EXPECTED'" IN RS
;PUT "'FOUND'' IN R&

#3%,L0CK

;NEW SCOP1
;LOAD PORTS

4(RY)

ROMCLK

BIC

#337 R4

(MPB
BEQ

IN LU-12

;CLEAR UNWANTED BITS

021245
(LR

MOVB

INEXT WORD IS INSTRUCTION, ROMCLK PC=5304

#3137 ,R4
RS.R&
2%

122112

000005
000337

;MASTER CLEAR DM(11

;SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT4
;SET BITS

122112

021245
MoV
MOVB

;R1 CONTAINS BASE DMC17 ADDRESS

S(R1),R4

RS.R4
4

;1S BITS SFT?
;BR IF YES

;ERROR, BIT 5 IS NOT SET
;SCOPE SUBTEST (SW09=1)
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;CLEAR BIT 5 IN LU-1?
;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;READ LU-12

:PUT "EXPECTED' IN RS
;PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS
;1S BITS (LEAR?
.BR

YES

CIDME
MACY11 30A(1052)
g?-JUL-BO
CI0Me.PIN
01-JUL-80 15:29
2664

013156

5229

013162

24645

013160

13:53 PAGE 50
LINE UNIT WRITE/READ TESTS

104003

104401

($:

104400

24648

WLT

SCOP1

SEQ 0050
;ERROR, BITS

IS NOT

:SCOPE SUBTEST

SCOPE

:SCOPE

CLEAR

(SW09=1)

THIS TEST

2449

srerrearenreerreeetevetennes

2650
2451

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

2452
2453
2454

2455
2456

26457
2658
2459
2460
2661
2662
26463

012737
012737
012737

2470

013206
013210
013214
013222
013224
013226
013230
013232
013236
013242

104412
012702
012761
104414
122117
104414
021365
012705
116104
042704

2672

013250

001401

013254

104401

2671

2473

2674

2675

013246
013252

013270

104414

26478

013272

2483

2484
2485
2486
2487
S:gg

005061

000017
0000017

001226
001216
001220

000004

T1ST6:

1%:

000001
000005
000376

senveetecrnnennennennerncee

104414
021365
005005
116104

013312
013314
013316
013320
013322

120504
001401
104003
104401
104400

042704

;
TEST 6
jemevecceccncee

MOV
MOV
MOV

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

MSTCLR
MOV
MOV
ROMCLK
122117
ROMCLK
021365
MOV
MovB
BIC
(MPB

BEQ
013264

000004

001220

2%:
3%:

122117

013274
013276
013300
013302
013306

000006
013324
013214

104003

012737

013264

2679
26480
2481
2482

120504

013256

2476

26477

R R R R R Ry
R
R

013164
013172
013200

2664
2665
2666
2667
2668
2469

JEST

HLT

SCOP1

Mov

(LR

ROMCLK

#1,R5
5(R1),R4
#376,R4

:R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11
;SAVE REGISTER ADDRESS FOR TYPEOUT
;LOAD PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;SET BIT1 IN LU-17
;NEXT WORD IS INSTRUCTION, ROMCLK PC-5304
;READ LU-17
;PUT "EXPECTED' IN RS
;PUT "'FOUND'' IN R4
;CLEAR UNWANTED BITS

,BR IF YES

n7,R2
#1,6(RY)

RS,R4

000005

000376

BIC

2490

(MPB
BEC
HLT
SCoP1
SCOPE

SET?

;ERROR, BIT 1

#3%,L0CK

;NEW SCOP1

4(R1)

122117

ROMCLK
021365
CLR
MOovB

;18 BIT1

#376 R4

RS,R4
3
3

SET

:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;CLEAR BIT 1

RS
S(R1),R&

IS NOT

;SCOPE SUBTEST (Sw09=1)

[N LU-17

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU=-17
;PUT “EXPECTED'' IN RS
;PUT "'FOUND'' IN R&
;CLEAR UNWANTED BITS

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

2691

JENRRAREEAEEERAENRNCELANONNRY TEST 7 teenteennnecnanensnnstanent

24995

2492
2493
2494

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

2496

2497
9

2499

0133264

012737

000007

001226

T1ST7:

R R

TEST 7

,eescccecsccce-

MOV

#7,151NO

R R

(10ME
MACY11 30A(1052)
O07-JuL=-80
(DmMe . P
01-JuL-80 15:29
2500
25017
2502
2503
2506
2505
2506
2507

013332
013340

012737
012737

013346
013350
013354
013360
013360

104412
012702
012700

000013
000001

010061

000004

2509
2510
2511
2512
2513

013372
013374
013376
013400
013402

104414
122113
104414
021265
010005

2515
2516

013410
013414

2508 013364

2514

013404

042761

0642705

116104
062704

000257

010061
042761

000004
000257

2535

013476 062705

000257

013506
013512
013514
013516

042704
120504
001401
104003

000257

013522

005100

013526
013530

106100
001347

253

2537
2538
2539
2540

2561

25642

2543

25644
25645

5229

2548

2549

2550
2551
2552
2553

2554

2555

013502

104414
122113
104414
021265
010005

116104

013520 104401
013524

013532

000241

104400

648:

000004

013452
000001

#TST10,NEXT
8648, L0CK

MSTCLR
MOV
MOV

#3,R2
#1.R0

:R1 CONTAINS BASE DMC11 ADDRESS
:MASTER CLEAR DM(11
“SAVE REGISTER ADDRESS FOR TYPEOUTM
:START WITH BIT 0

MOV

RO,4(RY)

;PUT PATTERN INTO PORT4

#257.,4(R)

ROM(CLK
122100.13
ROMCLK
21005!<13+20>
MOV
RO,RS

BIC

#287°RS

(MPB
BEQ
HLT
SCOP1
CLC
ROLB
BNE
MOV
MOV
(oM

RS ,R4
65%
3

MOvVB
BIC

658 :

001220
69%:
67%:

000004

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:MOV DATA TO IBUS REGISTER 13
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
*READ FROM IBUS REGISTER 13
:PUT EXPECTED IN RS
;PUT "'FOUND'' INTO R&
:CLEAR UNWANTED BITS

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

;DATA CORRECT?
‘BR IF YES
*ERROR
- 5W09=12
SCLEAR CARRY
:SHIFT BIT IN RO
-1F RO=0 THEN DONE
*NEW SCOP1
;START WITH BIT O
;CHANGE TO FLOATING ZERO

MOV
BIC

RO,4(RY)
#257,4(R1)

;PUT PATTERN INTO PORT4
:CLEAR UNWANTED BITS

BIC

#257.RS

*CLEAR UNWANTED BITS

BIC
CMPB
BEQ
HLT

8257 R4
RS,R&
68$
3

COM

ROLB
BNE

RO
69%

MOvVB

688 :

*CLEAR UNWANTED BITS

5(R1),R4&
2257 R4

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

000005

SEQ 0051

MOV
MOV

BIC

000005
000257

013420
013422
013424
013426
013430
013432
013434
013436
013444
013450
013452
013452
013456

013464
013466
013470
013472
013474

001216
001220

000257

2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2°28
2529

2530
2531
2532
2533
2534

120504
001401
104003
104401
000241
106100
001351
012737
012700
005100

01353&
013360

13:53 PAGE 51
LINE UNIT WRITE/READ TESTS

SCGP1
cLe

SCOPE

S5(R1),R4

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:MOV DATA TO IBUS REGISTER 13
;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:READ FROM [BUS REGISTER 13
;PUT EXPECTED IN RS

;PUT “'FOUND'' INTO R&

*CLEAR UNWANTED BITS
:DATA CORRECT?
‘BR IF YES
*ERROR

15W09=17

:CHANGE TO FLOATING 1
SCLEAR CARRY

SSHIFT BIT IN RO
“1F RO=0 THEN DONE
*SCOPE THIS TEST

;eeneeeeceeeeerevaneneveenne

TEST

seacannnsasetsnnnanteannte

‘oL INE UNIT REGISTER WRITE/READ TEST
S¢FLOAT A 1 THROUGH LINE UNIT REGISTER 14
SefFLOAT A O THROUGH LINE UNIT REGISTER 14
IR

;

NP RO

TEST 10

NP RN

RN RN

PR R

RE N E R AR NIRRT

AR ERNEEINOY

13:53
PAGE 52
LINE UNIT WRITE/READ TESTS
oo~on

s
—

L1, 81§}
N -

[ el
OO

[efelw]

00O
Py
WNO
NO

OOoOo
— el
OO0O0O0O0O0
— ol el o D

000014
000001

1S110:

643:

000004

MSTCLR
MoV
MoV

#4,R2
#1,R0

;SAVE REGISTER ADDRESS FOR TYPEOUT
;START WITA BIT 0

[ [0]"

RO,4(RY)

;sPUT PATTERN INTO PORT4

12210014

ROMCLK

116104

MOV
Move
(MPB

120504
001401

21005.<14+20>

BEQ

104003
104401

65%:

000241

106100

001360
012737
012700
005100
010061

104414
122114
104414

021305
010005

116104
120504

013644
000001

001220
69%:
67%:

000004

HLT
SCOP1
LC
ROLB
BNE
MOV
MOV
(OM
MOV

ROMCLK

RO,RS
5(R1),R4
RS,R&

65%
3

643

104003
1064401

68%:

005100
000241

RO,RS
S(R1),R&

HLT

(qo],]

cLc
ROLB

106100

BNE

001356

SCOPE

1046400

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;READ FROM [BUS REGISTER ié

;PUT EXPECTED IN RS
;PUT "'FOUND'' INTO R4
;DATA CORRECT?
JBR IF YES
:ERROR

;SW09=1?

;CLEAR CARRY

;SHIFT 8IT IN RO

;1F RO=0 THEN DONE

;PUT PATTERN INTO PORT4

MOV
MOVB

scoP1

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;MOV DATA TO IBUS REGISTER 14

RO,4(RY)

21005'<1420>

CMPB
BEQ

;MASTER CLEAR DM(C11

ROMCLK

000005

;R1 CONTAINS BASE DMC11 ADDRESS

;NEW SCOPY
;START WITH BIT 0
;CHANGE TO FLOATING ZERO

#67%,L0CK
#1,R0

122100!14

001401

013706

#10,TSTNO
#TST11 NEXT
#64%,10CK

ROMCLX

000005

SEQ 0052

MOV
MOV
MOV

104414

021305
010005

RS ,R&
68%

RO
RO

69%

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:MOV DATA TO IBUS REGISTER 14

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;READ FROM ]BUS REGISTER 14
;PUT EXPECTED IN RS
:PUT "'FOUND'' INTO R4

;DATA CORRECT?
:BR IF YES
;ERROR

:SW09=1?

:CHANGE TO F' OATING !
:CLEAR CARRY

JSHIFT BIT IN RO
:1F RO=0 THEN DONE
:SCOPE THIS TEST

JettesReN eI eRIEeTOTEIIOICIRIRLTS

TEST

casenesnerntenrecnteneccene

JeSWITCH PAC TEST

;*THIS TEST READS SWITCH PACMN
;¢TH]S SWITCH PAC CONTAINS THE DDCMP LINE #

;:..'."""..""""'."..'..'".l't".'l"t.'l".t'..'l""'.

—

[ IV

—

;T.sT
oo

W) =2 O000~V

ooV

mMmm

G7-JuL-80
MACY11 30A(1052 )
P1i
01-JuL-80 15:29

000011
013752

001226
001216

TST11:

noV

MOV

£11,1STNO

275712 ,NEXT

;RY

(CONTAINS BASE

DM(C1!

ADDRESS

MACYY1 30A(1052)
CIDmE
07-JuL-80
. P11
CZnme
01-JUL-80 15:29

2637
2638
2639
2640
2641
2642
2643

2658
2659
2660
2661
2662
2653
2664
2665
2666
2667

;MASTER CLEAR DM(11

ROMCLK

021324

MOV

000004
001370

1%:

MOVB
(MPB
BEQ
HLT
SCOPE

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:PORT& LU1S

4(R1),R4

;PUT "FOUND'' IN R4

STAT2,RS
RS,R4
1%
31

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

ceernereeserecterveveeennnet

TEST

eenncetennnctcncectneceeer

:*SWITCH PAC TEST

;*THIS TEST READS SWITCH PACAH?
;*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD

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

.
0000
0140

013752
013760

001226
001216

T1ST12:

TEST 12

MOV
MOV

#12,1STNO
#TST13, NEXT

;R1 CONTAINS BASE DML'1 ADDRESS

MSTCLR

013766
013770
013772
013774
014000
014004
014006
014010
014012

ROMCLK
021344

000004
001371

1%:

;MASTER CLEAR DM(C11

MOV

4(R1),R4

nL T

MovB
CMPB
BEQ

2644
2645
2646
2647
2648
2649

2650
2651
2652
2653
2654
2655
2656
2657

SEQ 0053

MSTCLR

Hro

2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636

013724
013726
013730
013732
013736
013742
013744
013746
013750

—

2612
2613
2614
2615
2616
2617
2618
2619
2620

13:53
PAGE 53
LINE UNIT WRITE/READ TESTS

SCOPE

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PORT4 LU1G

:PUT *'FOUND'' IN R4

STAT2+1,RS
R5,R4
1%

:PUT "EXPECTED'' IN RS
;SW 0K?
:8R IF YES
;ERROR,

SWITCH PAC READ ERROR

:SCOPE THIS TEST

setannstsrerenverrneeerennen

TEST

s*THIS

¢*LINE UNIT CLOCK TEST
TEST VERIFYS

THAT

THE

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

weveecnveerenecennnnnneceer

INTERNAL

CLOCK

;;"t.t"""""""'""iti.".itfi"'t't"'ttt't'ttt.'i"""'

014014
014022
014030
014032
014036
014036

014040
014042
014050
014052
014056
014060
014062
014046

T1ST13:

000013
014114
001416

000002
001416

005037

001416

1%:

000004

MOV

MSTCLR
CLR

#13,15TNO

#TST14 ,NEXT

TEMP

ROMCLK
021364

BIT

BNE
INC
BNE
LT
CLR

:R1

CONTAINS BASE DMC11

;MASTER CLEAR DMC1
:PREPARE FOR DELAY

ADDRESS

SNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
#2,4(R1)
2%
TEMP
13
4
TEMP

:PORT4 LU-17

;15 CLOCK BIT SET?

;BR IF YES
;DELAY
:DELAY FINISHED?
;ERROR BIT IS STUCK CLEAR
:PREPARE FOR DELAY

[an]

CI0ME

MACYW 30A(1052)

CIOME. P11

2668
2669
2670

014066
014070
014072

104414
021364
032761

2672
2673

014102
014106

005237
001367

2671

2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686

2687
2688
2689
2690
2691
2692
2693
2694

2695
2696
2697
2698

2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
271
2712
2713
2714
2715
26
2717
2718
2719

2720
2721
2722
272%

07-JuL-80

01-JuL~-80 15: 29

014100

014110
014112

001404

000002

13:53
PAGE 5S¢4
LINE UNIT WRITE/READ TESTS

ROMCLK
021364

0Cu00&

#2,4(RY)

2%5P‘

8EQ
INC
BNE

001416

104004
104400

BIT

4%:

X3
TEMP
3%

SEQ 0056

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

;1S CLOCK BIT CLEAR?

‘BR IF YES
:DELAY
:BR If DELAY NOT DONE
;ERROR BIT

et anrertretrernteneeennes

TEST

IS STUCK SET

tenveravcennecnennctcntnene

.*0UT DATA SILO TVEST

;*SET SOM AND LOAD OUT DATA SILO

;*VERIFY THAT OCOR SET, INDICATING THAT THE
;*CHARACTER IS AT THE BOTTOM OF THE OUT SILO

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

014114
014122

012737
012737

014130
014132
014136

104412
01271
012761

014150
014152
014154
014160

104414
122110
104416
012702

014144
014146

014164
014166
014170
014174
014200
0146204
014206
014210
014212
014212

1046414
122N

104414
021364
016104
042704
012705
120504
00140
104005

104400

000014
014214

004000
000001

001226
001216

T1ST14:

TEST

Mov

#14 ,TSTNO

MOV

FTST1S ,NEXT

MSTCLR
MOV

MOv
ROMCLK

000004

#BIT11,(RD)

#1,L(RY)

122111

;SET LINE

ADDRESS

UNIT LOOP

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

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
2
n7,R2

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

MOV

4(R1) R4

;PUT "'FOUND'' IN Ré&

MOV

#20,RS

#357 ,R4

BIC

(MPB
8EQ
1%:

DML11

122110
TIMER,
MOV

ROMCLK
021364

000004
000357
000C20

CONTAINS BASE

;MASTER CLEAR DMC11

;SET

ROMCLK

000002
000017

:R1

HLT

RS, R4
1%
5

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

*PUT "'EXPECTED"" IN RS
;1S OCOR SET?
;BR IF YES
;SCOPE

SCoPE

errneenercenesecentnvnnnnnn

THIS TEST

TEST

evevecrernreccenrernnevreer

:+DDCMP TEST OF RTS ANL OUT ACTIVE
:+SET SOM AND LOAD OUT DATA SILO

:*SINGLE STEP 2 DATA CLOCKS, VERIFY
;*THAT RTS AND ACTIVE

ARE

SET

::."0""""'.""""'Q'."'t".i'i.tl"'t"'..Q"t."'i""t

TEST 15

014214
014222

012737
0127%7

MOV
MoV

014230

104412

MSTCLR

#15,TSTNO
#1ST16 ,NEXT

;R1

CONTAINS BASE

DMC11

;MASTER CLEAR DM(11

ADDRESS

CIDME

MACYYY

30A(1052 )

014232
014236
014264
014246
014250
014252
014254
014260
014264
014270
014272
014274
014300
014304
014310
014312
014314
014316
014316
014322
014324
014326
014332
014336
014342
014344
014346
014350
014350

01271
012761
104414
122N
104414
122110
0047%7
104415
012702
104414
021224
016104
042704
012705
120504
001640
104005

004000
000001

012702
104414

000013

000004

CZDME . P11

2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
27464
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754

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

021264
016304
042704
012705
120504
001401
104005

13:53
PAGE 55
BASIC TRANSMITTER TESTS

MOV
MoV
ROMCLK

000004

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

122110

026702
000002
000011

:LOAD OUT DATA SILO

JSR
PC,OCOR
DATACLK,
MOV
L ARV
ROMCLK
021224

000004

000257
000120

MOV

4&(R1) R4

(MPB
BEQ

RS,R&
19
5

BIC
MOV
s

;PUT "FOUND'' IN R4

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

Mov
ROM(CLK

¥3.R2

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

MOV

4(R1),Ré

(MPB
BEQ

R5,R4
2%

HLT

BIC
MOV
"

;WAIT FOR OCOR
;CLOCK DATA FOUR TIMES
: SAVE ADDRESS FOR TYPEQUT
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORTSL LU 11

8257 ,R4
#120,R5

021264

000337
000040

;SET LINE UNIT LOOP
;LOAD PORT4 WITH BITO
;NEXT WORD IS INSTRUCTION, ROMCLK P(=53064
;SET _SOM

ROMCLK

104400

;1S ACTIVE SET?
:BR IF YES

;PORT& LU 13

;PUT EXPECTED IN Ré

#337,R4
#BITS RS

HLT

:CLEAR UNWANTED BITS
;PUT "'EXPECTED'' IN RS, RTS SHOULD BE SET
;1S RIS 0K?
;BR IF YES

:RTS

;*TEST

ERROR

;SCOPE

SCOPE

jretearrereernrevrsenernnnen

OUT

THIS TEST

TEST

tovtenttenvnrnrncenrveenneny

CLEAR

;«SET SOM AND LOAD OUT DATA SILO
;*SINGLE STEP DATA CLOCK, SET OUT CLEAR
:«VERIFY THAT OCOR,RTS, AND ACTIVE ARE

014352
014360

012737
012737

2774
2775
2776

014366
014370
014374
014402
014404
014406
014410
014412
014416
0146422

104412
012711
012761
104414
122111
104414
122110
004737
104415
012761

2778
2779

014432
014434

12211
104415

2777

#1111, (RT)
M LR

122111

2755
2756
2757
2758
2759
2760
2761
2762

2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773

SEQ 0055

014430

104414

000016

014550

004000

000001

001226

001216

TST16:

;

TEST

MOV

MSTCLR

000004

MoV

MoV
ROMCLK

#TST17 NEXT
#BITYY, (RY)

1 ,4(RY)

000001

ROMCLK
122111

DATACLK,

ADDRESS

;SET LINE UNIT LOOP

;LOAD PORT&4 WITH BITO
;NEXT WORD IS INSTRUCTION, ROMCLK PC=53064
;NEXT WORD 1S INSTRUCTION, ROMCLK P(=5304

JSR
PC,OCOR
DATACLK,
2

MOV

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

;SET _SOM

122110

000004

ARl

#16,TSTNO

122111

000200

ROMCLK
026702
000002

CLEARED

#BITT7,4(RY)
1

;LOAD OUT DATA SILO

;WAIT FOR OCOR
;CLOCK DATA FOUR TIMES

;SET BIT7 IN PORT4

;NEXT WORD IS iNSTRUCTION, ROMCLK PC-5304
;SET OUT CLEAR

;GIVE A TICK TO CLEAR RTS

——

MACY1Y 30A(10>2)
(IDME
07-JuL-80
(20me. P11
01-JuUL-80 15: 29

2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
279N
2792
2793
2796
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810

014440
01464446
014446
014450
014454
014460
014462

012702

014466
014470
014470

104005

0146464

104414

021364
016104
042704
005005

13:53
PAGE 56
BASIC TRANSMITTER

000017

MOV

ROMCLK

021364

000004
000357

120504

001401

012702
104414

021264
016104
042704
005005

000043
000004
000337

014546

V2 ¥

(MPB
BEQ

RS ,R4
2%

000011

:BR IF

;SAVE ADDRESS FOR TYPEOQUT

021224

MOV
MoV

;RTS

:PUT "“EXPECTED"’ IN RS,
;1S RTS 0K?
;BR IF YES

1%:

HLT

104400

2811
2812
2813
2814
2815

RTS SHOULD BE

CLEARED

ERROR

:SAVE ADDRESS FOR TYPEOQUT
sNEXT WORD IS INSTRULTION, ROMCLK PC=5304
;PORTS4 LUY

:PUT “'FOUND'' IN R4

4(R1) R4
#BIT4,RS

RS ,R4

ROMCLK PC=5304

;PUT EXPECTED IN R4

;CLEAR UNWANTED BITS

(MPB

BEQ

INSTRUCTION,

#33%7 R4
RS

ROM(CLK

000004
000020

ROMCLK P(=5304

YES

;NEXT WORD IS
;PORT4 LU 13

#11,R?

MoV

INSTRUCTION,

;PUT "FOUND'' IN R&
:CLEAR UNWANTED BITS
;PUT "'EXPECTED" IN RS
;1S OCOR CLEARED?

#13,R2
4L(R1) ,RG

HLT

JNEXT WORD S
:PORT4 LU 17

357, R4
RS
RS ,R4
1%

MOV

BIC
CLR

104005

021224
016104
012705
120504
001401
104005

021264

001401

104414

HLT

ROM(CLK

120504

012702

4L(RY) R4

MOV

:SAVE ADDRESS FOR TYPEOUT

nv,R2

MoV

RIC
(LR
(MPB
BEG

SEQ 0056

TESTS

;ONLY QUT READY SHOULD BE SET

1S ACTIVE CLEAR?
;BR IF YES

;ERROR ACTIVE NOT

;SCOPE

SCOPE

(eveanceecrrerennrncerennnnt

CLEARED

THIS TEST

TEST

eevenrennerercnveenseennnee

'DDCHP TRANSMITTER TEST
;*SINGLE CLOCK THE CHARACTER O

;'VERIFY EACH BIT POSITION AS [T
;*PASSES THE BIT WINDOW (S] BIT)
;*ON AN ERROR, R3 (ONTAINS BIT POSITION OF

FAILURE

;:t'..."""""."""'Qtt'..'."t".'tt.t"tttttt"t""""t

~N~
[V LV ]
~N N
NS NNNS
s =
(=2 — s O
A%, — Pt
-

OO0~ 2000 —
—

[elelalelelelelalalala Rele)

000017
014732

004000
027034
000001

000000
027034
000004

001226
001216

1ST17:

TEST

MOV
MOV
MSTCLR

000004

MOV
JSR
MOV

17
#17,15TN0
#15120,NEXT
#BIT11, (R
PC,OUTRDY
1,4(R1)

#0,RS

MOV

RS,&(R1)

JSR

ROM(LK

122110

;WAIT FOR QUT=READY

;SET BITO IN PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

ROMCLK

122111
MOV

;R1 CONTAINS BASE DM(11 ADDRESS
;MASTER CLEAR DM(11
;SET LINE UNIT LOOP

JSET SOMm!

:LOAD CHARACTER IN RS FOR TYPEOUT

PC,OUTRDY

;WAIT FOR QUT-READY
;LOAD PORT4 WITH CHARACTER

CNEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

.LOAD OUT DATA

MACY1Y 30A(1052 )
C l DMt
07-JuL-80
E
. P11
01-JuL-80 15:129
C l DM
2

2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862

014630

0146634
014636
014640

014644
014650
014652
014654
014660
014662
014664
014666
014672
014674
014676
014676
014700
014704
014706
014712
014714
014716
014724
014726

01473%0

004737

005003
010502
104615
1044615
106002
103005

004737
103406
104006

000404

004737

103001
104006

005203
022703
001357
104415
1046614

021264
032761
001401

13:53

PAGE

BAS](

026702

JSR
CLR

MOV

000002
000001

1%:

2878

SEQ 0057

DATACLK,

;WAIT FOR OCOR TO SET

PC,0COR

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

RY
RS,R2

;SHIFT NEXT BIT IN THE WINDOW (S] 8IT)
;SHIFT NEXT SOFTWARE BIT [N TO CARRY

DATACLK,
R
RORB

;BR If CARRY (CLEAR
;GET THE WINDOW
:BR IF BIT IS A MARK

BC(
JSR
B(S

026650

BR
JSR
B((

PC,GETSI

;ERROR BIT WAS A SPA(E
;CONTINE WITH TEST
;GET THE WINDOW

HLT

;ERROR BIT WAS A MARK

INC
(mp
BNE

R3
#10,R3
1%

(NEXT BIT
:DONE YET?

HLT

026650
38

000010
00001¢
000040

021264
BIT

000004

104034

104400

BEQ
4%

HLT
SCOPE

;BR IF BIT IS A SPACE

DATACLK,
ROM(LK

#BITS,4(RY)

:BR

IF NO

;CLOCK TRANSMITTER 14 MORE TI(CKS

:NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
:PORT4 LU-13

;RTS SHOULD BE CLEAR NNW

;BR IF YES
;ERROR,

RTS NOT

:SCOPE THIS TEST

;reeceneretteeterenennnnennn

2863

2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877

TRANSMITTER TESTS

TEST

CLEAR

tteeevccnncncnccnnccrerecee

;*DDCMP TRANSMITTER TEST

;*SINGLE CLOCK THE CHARACTER 125
;*VERIFY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF

FAILURE

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

014732
014740

001226
001216

014746
014750
014754
014760

004000
027034
000001

15120:
MSTCLR
MOv

JSR
MOV

000004

122111

MOV

JSR

MOV
ROMCLK

122110
JSR
CLR

026702

106415

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

ROMCLK

000125
027034
000004

000002
000001

#20,TSTNO
#FTST21 NEXT

1%.

MOV
DATA(LK,
DATACLK,

#125,RS

PC,OCOR

R3
RS,R2

ADDRESS

;SET LINE UNIT LOOP
;WAIT FOR OQUT=READY
;SET BITO IN PORT4
;NEXT WORD IS INSTRUCTION, ROMCLK PC-5304
.SET SOM!

;LOAD CHARACTER

PC.,OUTROY

RS,4(RY)

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

IN RS FOR TYPEOQUT

;WAIT FOR QUT-READY

;LOAD PORT4 WITH CHARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK P(-5304
:LOAD OUT DATA
;WAIT FOR OCOR TO SET

;CLEAR BIT COUNTER

;LOAD CHARACTER IN R?
;¢ TICKS TO SET UP TRANSMITTER
JSHIFT NEXT BIT

IN THE WINDOW (SI BID)

CIDOME
MACY11 3GA(1052)
07-JuL-80
(Z0me.P1N
01-JuL-80 15:29
2892

015032

2895
2896
2897
2898
2899
2900
2901
2902
2903
2904

015042
015044
015046
015050
015054
015056
015060
015060
015062
015066

2906

015074

2893
2894

2905

2907

015034
015036

015070

103406
104006
000404
004737
103001
104006

005203
022703
001357
104415

104414

015076

021264

015106
015110

001601
104034

2908

015100

gg};

015112

2909
2910

106002

103005
004737

032761

026650

2$:
3%

000010
000014

;SHIFT NEXT SOFTWARE BIT

BCS
HLT
BR
JER
8CC
HLT

1%
6
s
PC,GETSI
3%
6

;BR [F BIT IS A MARK
ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW
;BR IF BIT IS A SPA(CE
;ERROR BIT WAS A MARK

INC
(mp
BNE

2%
PC,GETSI

R3
#10,R3
1%

ROMCLK

104400

021264

BIT
6%

2913

SEQ 0058

DATALLK,

000004

5§

RORB

BC(C
JSR

026650

0000406

13:53 PAGE 58
BASIC TRANSMITTER TESTS

BEQ
HLT

SCOPE

;BR IF CARRY (LEAR
;GET THE WINDOW

#BITS,6(RY)
3
34

JNEXT BIT
;DONE YET?
;BR IF NO
;CLOCK

TRANSMITTER

IN TO (ARRY

14 MORE

;PORTL LU-13

;RTS SAOULD BE CLEAR NOW
;BR [F YES
;ERROR, RTS NOT CLEAR
;SCOPE

THIS TEST

2914

etenecetteteanerteveneetesn

2915

;*DDCMP TRANSMITTER TEST

2917
2918
2919

;*VER'FY EACH BIT POSITION AS IT
;*PASSES THE BIT WINDOW (SI BIT)
;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE

2916

2926
2925

2926
2927
2928
2929
2930

2931

2932
2933
293
2935
2936
2937
2938
2939

2940
2941

2942
2943
2944
2945
2946
2947

[EST

PABR

R R

)

;*SINGLL CLOCK THE CHARACTER 252

2920

2921
2922
2923

TI(CKS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

Rl R
R R I A AR
ALl

015114
015122

012737
012737

015130
015132
015136
015142

104412
012711
004737
012761

015152
015154
015160
015164
015170
015172
015174
015200

12211
012705
004737
010561
104414
122110
004737
005003

015150

015202
015204

015210
015214
015216
015220
0152264
015226

104414

010502
104415

104415
106002
103005
004737
103406
104006

000021
015276
004000
027034

000001

001226
001216

T1ST21:

000004

026702

000001

026650

MoV

#TST22 NEXT

MSTCLR
MOV
JSR
MoV

MIT1,(RT)
PC,OUTRDY

122111
Moy
JSR
MoV
ROM(LK
122110
JSR
(LR

N
;SET SOMm!
#252,R5 ;LOAD CHARACTER IN RS FOR TYPEOQUT
PC,OUTRDY
;WAIT FOR OUT-READY
RS,4(R1)
;LOAD PORT4 WITH (HARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD OUT DATA
PC,OCOR
;WAIT FOR OCOR TO SET
R3
;CLEAR BJT COUNTER

ROMCLK

000252
027034
000004

000002

;0
TEST
;o=e-eesecccooMOV
#21,1STNO

1%:

#,64(RY)

MoV
RS ,R2
DATACLK,

:R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C!
;SET LINE UNIT LOOP
;WAIT FOR OUT-READY
;SET BITO IN PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

DATACLK,
1
RORB
R2
8C(
2%
JSR
PC,GETSI
BCS
3%
HLT
6

:LOAD CHARACTER IN R?
;2 TICKS TO SET UP TRANSMITTER

SSHIFT NEXT BIT IN THE WINDOW (SI BID)
;SHIFT NEXT SOFTWARE BIT [N 10 CARRY
;BR IF CARPY CLEAR
;GET THE W[*DOW
;BR [F BIT IS A MARK
ERROR BIT WAS A SPA(E

(IDME
MACYYY 3GA(1052) )
07-JuL=-80
(Z0ME .PN
01-JuL-80 15:29
2948
2949

015230
015232

000404
004737

2951
2952
2953
2954
2955

015240
015242
015242
015244
015250

104006
005203
022703
001357

2957
2958

015256
015260

104414
021264

015270
015272
015274

001401
104034
104400

2950

2956

2959

2960
2961
2962
2963
2964

015236

015252

015262

10307

13:53
PAGE 59
BASIC TRANSMITTER TESTS

026650

2%:
b ¥

000010

104415

000014

032761

000040

BR
JSR

)

sERROR BIT WAS A MARK

INC
(MP
BNE

R3
#10,R3
1%

ROMCLK
021264

BIT
6%

JCONTINE WITH TEST
;GET THE WINDOW

b33

DATACLK,

000004

3%
PC,GETSI

BC(C

HLT

BEQ
HLT
SCOPE

SEQ 0059

;BR IF BIT IS A SPACE

#BLITS,L(RY)
43
34

;NEXT BIT
;DONE YET?
;BR [F NO
;CLOCK

TRANSMITTER

:BR IF YES
;ERROR, RTS NOT CLEAR
;SCOPE THIS TEST

sreeereneteceerrtentterveran

2966

;*DDCMP TRANSMITTER TEST

2968
2969

J*VERIFY EACH BIT POSITION AS T
;*PASSES THE BIT WINDOW (SI BIT)
R

2972
2973

2977
2978
2979

2980
2981

2982

2983
2984
2985
2986

2987

2988
2989
2990

2991
2992
2993
2994
2995

2996
2997
2998
2999
3000

3001

3002

3003

eveeveancencnrcstnnenreecee

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

2971

2975
2976

TEST

;*SINGLE CLOCK THE CHARACTER 377

2970

2974

TICKS

;RTS SROULD BE CLEAR NOW

2965

2967

14 MORE

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;PORT4 LU=-13

015276
015304

012737
012737

015312
015314

104412
012711

015320
015324

015332

004737
012761

104414

015334
015336
015342
015346

122111
012705
004737
010561

015354
015356
015362

122110
004737
005003

015352

015364
015366
015372
015376
015400

015402
01506
015410
015412
015414

015420
015422

0154264

104414

010502
104415
104415
106002
103005

004737
103406
104006
000404
004737

103001

104006

000022
015460

001226
001216

1ST22:

004000

027034
000001

000002
000001

1%:

026650

MOV
MOV

#22,1STNO
#TST23 NEXT

MSTCLR
MOV

#BIT11,(RY)

2%:
3%

PC,OUTRDY
4R

;R1 CONTAINS BASE DM(C11
JMASTER CLEAR DM(11
;SET LINE UNIT LOOP

R R

ACDRESS

JWAIT FOR QUT-READY
;SET BITO IN PORTS

NEXT WORD IS INSTRUCTION, ROMCLK PC 5304

122111
MoV
JSR
MOV

;SET SOM!
#377,RS ;LOAD CHARACTER IN RS FOR TYPEOUT
PC,OUTRDY
JWAIT FOR QUT-READY
RS,4(RY)
;LOAD PORT4L WITH CHARACTER

122710
JSK
CLR

PC,0C0R
R3

ROM(CLK

026702

FAILURE

TEST 22

ROM(CLK

000377
027034
000004

jemee-cecccccce-

JSR
MOV

000004

NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

MOV
RS ,R2
DATACLK,
DATACLK,
RORB
R?
BCC
2%
JSR
B(S
HLT
B8R
JSR

PC,GETSI
3%
6
1%
PC,GETSI

HLT

BC(

b} 3

sLOAD QUT DATA
;WAIT FOR OCOR TO SET
;CLEAR BIT COUNTER

2
1

;LOAD CHARACTER IN R?
;¢ TICKS TO SET UP TRANSMITTER
JSHIFT NEXT BIT IN THE WINDOW (SI BIT)
;SHIFT NEXT SOFTWARE BIT IN TO CARRY
;BR If CARRY CLEAR
;GET THE WINDOW
;BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW

;BR IF BIT IS A SPACE

;ERROR BIT WAS A MARK

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

3004
3005

005203
022703
001357

3006
3007
3008
3009
3010
3011
3012
3013

106415
104414

021264
032761
001401

13:53
PAGE 60
BASIC TRANSM]TTER

INC
(MpP
BNE

000010

000014
060040

021264
BIT
BEQ
49
:

HLT

SCoPt

;BR

IF NO

:CLOCK TRANSMITTER 14 MORE TICKS

ROMCLK

104034
104400

NEXT BIT
;DONE YET?

R3
#10,R3

DATACLK,

000004

SEQ 0060

TESTS

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

:PORT4 LU-13

;RTS SAOULD BE CLEAR NOW

#BITS, LR
3]

;BR IF YES

:ERROR,

RTS NOT

:SCOPE THIS TEST

cevveneeevestenevenveveanenr

TEST

CLEAR

sonvocecennnnenconnctceneee

;*DDCMP TRANSMITTER TEST
;*SINGLE CLOCK A BINARY COUNT PATTERN
;*VERIFY EACH BIT POSITION AS
;*PASSES

THE

BIT WINDOW

(SI

BIT)

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF
;*AND RS CONTAINS THE

CHARACTER THAT FAILED

FAILURE

;;t""""""Q""""'l""t'.'tt".l'.t"'t""'.'"ttt'."l

TEST

015460
015466

012737
012737

C)E;\PN*eONI\fl\h\ht\t~tflflk~hohahhfl

) —d
d
)
il
il
i
il
D
el el
il
)
D
D
)
e
) e
) el
i
i ot
s

3057
3058
3059

VA VA WA WA A A WA AW AWV A VNN WA AT A WVTAIA WD
oo OO VAWV
WA AN VWA VNN VTN WA
— s et b O
SO SO SFOSSNOONON NS
[e W ¥ ¥
¥ o8 NO

ololelelelalelelolelolelelolelalafolalelalaledalel
ey

104412

01271
005003
005004
005005
004737
012761
104414
122111

004737
010461

104414
122110

005204
004737
210461

106414
122110

004737
104415

005003
010502
104415
106002
103005

004737
103406
104006

000404
004737

000023
015666

001226
001216

T5123:

MOV
MOv
MSTCLR

MOV

004000

000004

(LR
JSR

RS
PC,OUTRDY

MOV

ROMCLK

12211

JSR
MOV

027034
000004

122110
INC
JSR
M0V

000001

ROMCLK

#,6(RY)

PC,OUTRDY
R4 ,4(RY1)

CONTAINS CHAR

LOADEC

TO BE

RORB

HLT

JSR

PC,GETSI

2%
PC,GETSI
3%

IN SILO

;RS CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT
;WAIT

FOR QUT=-READY

;SET BITO IN PORT4
;SET SOM!
;WAIT

FOR OUT=-READY

;LOAD PORT4 WITH CHARACTER

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:LOAD PORT4 WITH CHARACTER

R3
RS, R2

;R4

R&,4(RY)

PC,OUTRDY

CLR
MOV

BC(
JSR
8CS

ADDRESS

;LOAD OUT DATA
; INCREMENT TO NEXT CHARACTER

PC,OCOR

DATACLK,

CONTAINS BASE DMC11

;MASTER CLEAR DM(11
;SET LINE UNIT LOOP
;R3 CONTAINS BIT COUNT

122110
JSR

DATATLK,

:R1

;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

;WAIT

FOR OUT-READY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

RLMCLK

026650

#BIT11,(RY)

027034
000004

026702
000002

#23,1STNO
#1ST246 NEXT

(LR
(LR

027034
000001

:LOAD OUT DATA

;WAIT FOR OCOR TO SET

;2 TICKS TO SET UP TRANSMITTER
;CLEAR BIT COUNTER
;LOAD CHARACTER IN R2
;SHIFT NEXT BIT IN THE WINDOW (S] BIT)
;SHIFT NEXT SOFTWARE BIT [N TO CARRY
;BR IF CARRY CLEAR
;GET THE WINDOW
;BR IF BIT IS A MARK
;ERROR BIT WAS A SPACE
;CONTINE WITH TEST
;GET THE WINDOW

[
MACY1Y 3GA(1052)
CZDME
07-JuL-80
(Z0ME.P11
01-JuL-80 15:29

3085

3086

3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102

005203
022703
001357
005204
004737
010461

104414
122110

005205
022705
001342

1%:
000010

BCC
HLT

INC

104400

5%-

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

R3
#10,R3

;NEXT BIT
;DONE YET?
JBR [F NO
+NEXT CHARACTER
;WAIT FOR OUT-READY
;LOAD PORT4 WITH CHARACTER
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;LOAD OUT DATA

1%
R4
PC,OUTRDY

BNE
INC
JSR

000400

(MP

027034
000004

SEQ 0061

TESTS

MOV
ROMCLK
1221190
INC
(MP
BNE
SCOPE

R4 ,4(RY)
RS
#400,RS
31

:NEXT CHARACTER

;DONE YET?

:BR

[F NO

;SCOPE THIS TEST

;tvrererretreteeeranennnnnnr

TEST

tevvrencceeccnnnnevecenetene

;*DDCMP STRIP SYNC TEST

;*SET LU LOOP, SINGLE STEP 5 SYNCS,
;*VERIFY THAT [N ACTIVE DOES NOT SET

;;"'tt"""'."'0"""."...tttt"t't.l..t"""'."t't""t'

;
015666

01273
01273

015702
015704
015710
015714
015720
015722
015726
015730
015732

10441

015674

015736
015742
015744
015746
015750
015752

012711
012702
004737
000005
104415
1044614

021244
016104
042704
005005

001226
001216

T1ST24:

TEST 24
#24,TSTNO
#T1ST2S5 NEXT

MOV
MOv

MSTCLR
MOV
MOV

004000
000012
026720

JSR

00005¢4

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

DATACLK,
ROMCLK

021244

000004
000277

MOV
8!C
CLR
(MPB

120504

001401

BEQ

104040
104400

1%:

HLT

4(R1) R4

277 ,R4
RS
RS ,R&

1%
40

SCoPE

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(11

ADDRESS

;SET LU LOOP
;SAVE LU REG FOR TYPEQUT
;SINGLE CLOCK S SYNC CHARACTERS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

:PORT4 LU12

;PUT "'FOUND'' IN R4

:CLEAR UNWANTED BITS

;PUT "'EXPECTED'' IN RS

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

N W=
O 0
~NO N

Y= L= 1=

;eevanterteetrevenenererennn

;*DDCMP IN ACTIVE TEST

TEST

veeneeenvennevcennnnrennene

;¢SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301)
JeVERIFY THAT [N ACTIVE IS SET

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

N
~

—

TEST
OO

—

At A

L Ll Ll

el A

il e

103

103001
104006

~N~N

3081
3082
3083
3084

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

3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080

13:53
PAGE 61
BASIC TRANSMITTER

000025
016044

001226
001216

TST125:

MOV

25
#25,15TNO
#15T126 NEXT

;R1

(ONTAINS BASE

DMC11

ADDRESS

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

015770

3118

015776

3117

3119
3120
3121
3122
3123

3126

3125

3126

3127
3128
3129
%}g?

104412

015772

012711

004000

016002
016006
016010
016014
016016

004737
000005
104415
104414
021244

026720

016020
016024

016030

016034
016036
016040
016042

012702

MSTCLR
MOV

000012

MOV

000064

;SET LU LOOP

”#12,R2

000004

MOV

4L(R1) ,R&

012705

000100

MOV

#BIT6,RS

120504
001401
104040
104400

;MASTER CLEAR DM(C11

#B1T11,(RT)

016104
042704

000277

BIC

;SAVE LU REG FOR TYPEQUT

3132

;SINGLE CLOCK 5 SYNC CHARACTERS

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PORT&L LUT2

;PUT "'FOUND'' IN Ré

#277 ,RL

(MPB
8EQ
HLT
SCOPE

SEQ 0062

JSR
PC,SYNC
5
DATACLK,
64
ROMCLK
021244

3133

;CLEAR UNWANTED BITS

;PUT "'EXPECTED'" IN RS

RS ,R&
1%
40

;1S ACTIVE SET?
;BR [F VYES
;ERROR ACTIVE IS NOT SET
;SCOPE THIS TEST

creeararetreecttteneveeetnee

TEST

vevvvcevcnentnnannnsnteneey

3134
3135

;*DDCMP IN ACTIVE TEST
;*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON=SYNC (301)

313%7

3136

*VERIFY THAT

3138
3139
3140

3141

3142
3143
3144

;.
016044

012737

016060

104412

016052

012737

3145

016062

012711

3150
3151
3152

016104
016106
016110

104414
021244
016104

3146
3147
3148
3149

3153
3154
3155
3156
3157
g}gg

016066
016072
016076
016100

016114
016120
016122
016124
016126
016130

012702
004737
000001
104415

042704
005005
120504
001601
104040
104400

000026

016132

001226

001216

T1ST26:

004000

[N ACTIVE DOES NOT SET
R T E

MOV

Mov

#1ST27 NEXT

000004

MOV

0MCLK
021244

3160

BIC
CLR
(MPB
BEQ
HLT
SCOPE

;SET LU LOOP

;SAVE LU REG FOR TYPEOUT
JSINGLE CLOCK 1 SYNC CHARACTERS

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;PORTS LUT2
;PUT "'FOUND'' IN R4

4(R1) ,R4
#277 ,R6
RS
RS,R4
19
40

3162

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11

#B1T11,(RY)

000024

1%:

RN R AR RN L E RN TR AN RPN AR NN N RO NRANE

#26,7STNO

MOV
#12,R2
JSR
PC,SYNC
1
DATACLK,
24

000277

R PR

TEST 26

MOV

000012
026720

[e=eeeecccecee-

MSTCLR

3161

A R

;CLEAR UNWANTED BITS
;PUT "EXPECTED'" IN RS
;IS ACTIVE CLEAR?
;BR IF YES
JERROR ACTIVE [S NOT CLEAR
;SCOPE THIS TEST
A R

AR R

]

TEST

retncncnrsantattstasatnnene

;«DDCMP IN ACTIVE TEST

3163

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

3165

R
R
R
RN Rl

3164

;*VERIFY THAT IN ACTIVE IS SET

3166
g}gg

3169
3170
"N

13:53 PAGE 62
BASIC RECEIVER TESTS

016132
016140

012737
012737

000027
016222

001226
001216

T1S127:

MOV
MOV

TEST 27

#27,1STNO
#1ST30,NEXT

;R1 CONTAINS BASE DMC11 ADDRESS

:E
MACY11 30A(1052)
9Q7-JuUL-80
€.P1Y
01-JuL-80 15:29
172
173
176
175
176
177

016146
016150
0161564
016160
016164
016166

104412
012711
012702
004737
000002
104415

180

016176

178
179
181

3182
3183
3184
3185
%}g?

016172
016174
016202

016206
016212
016214
016216
016220

13:53 PAGE 63
BASIC RECEIVER TESTS
MSTCLR
MOV
MOV
JSR

004000
000012
026720

SEQ 0063

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

000034

4
DATACLK,

016104

000004

MOV

4(R1),R4

012705
120504
001600
104040
104400

000100

MOV
(MPB
BEQ
HLT
SCOPE

#BIT6,RS
RS, R&
1%
40

104414
021244
042704

ROMCLK
021244

000277

BIC

1%:

3148

#277 R4

;MASTER CLEAR DM(11
;SET LU LOOP
;SAVE LU REG FOR TYPEQUT
;SINGLE CLOCK 2 SYNC CHARACTERS

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

;PUT *'FOUND'' IN R&

; CLEAR UNWANTED BITS

;PUT "'EXPECTED'" [N RS
;1S ACTIVE SET?
;BR IF YES
;ERROR ACTIVE IS NOT SET
:SCOPE THIS TEST

3159

srrrnnrnrreereervevvveenrnns

3190
3191
3192

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

3194

A
R R AR AR ARl

3193

;*VERIFY

3195
%}39

3198

3199
3200
3201
3202
3203
3204
3205
3206
3207

3208
3209

3210

016222

016230

012737
012737

016236
016240
016244
016250
016254
016256
016262

"6412
O .702
012711
004737
000301
104415
104416

016272

016104

016266
016270

104414
021244

3211 016276 042704
3212 016302 012705
3213 016306 120504
3214 016310 001401
3215 016312 104040
3216 016314
3217, 016314 012761

3218

016322 104414

3220
3221
3222

016326
016330
016332

104414
021244
016104

016342
016344
016346

005005
120504
001401

3219

3223

3224
3225
3226
3227

016324

016336

016350

000030

016374

104040

001216

T1ST30:

[N ACTIVE AND

veevevevenscanntcenntetecens

IN RDY ARE

CLEARED

TEST 30

MOV

#30,TSTNO

#TST3Y NEXT

000053
000002

MSTCLR
MOV
”2,Re
MoV
#BIT11,(R1)
JSR
PC,CHAR
301
DATACLK,
53
TIMER,
¢

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(11
;SAVE REG ADDRESS [N R2 FOR TYPEOUT
;SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS
;AND A NON-SYNC
(301)
:SINGLE CLOCK THE DATA
;WAIT FOR INRDY

000004

MOV

;PUT "FOUND'' IN R4

000012
004000
027066

ROMCLK
021264

000357
000020

000200

122112

042704

001226

THAT

TEST

000004

1%:

BIC
MOV
(MFB
BEQ
HLT
MoV

ROMCLK

4(R1),R4

#357,R4
#BITL RS
RS.R&
1%
40
#BIT7,4(RY)

122112

000004

000277

4(R1),R4

(LR
(MPB
BEQ

RS
RS ,R&
2%

HLT

:CLEAR UNWANTED BITS
;PUT "'EXPECTED"" IN RS
;1S INRDY SET?
.ERROR, INRDY IS NOT SET
. LOAD PORT4

;NEXT WORD 1S INSTRUCTION, ROMCLK P(=5304
;SET IN CLEAR

ROMCLK
021264
MOV
8I(

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

#277,R4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;PORT4 LU 12
;PUT *'FOUND'' IN Ré4
;CLEAR UNWANTED BITS

;PUT "EXPECTED'" IN RS
;1S IN ACTIVE CLEAR?
;ERROR, IN ACTIVE IS NOT CLEAR

’

MACY1Y

30A(1052) g;-JUL°80

01-JuUL-80
1

016104
042704
005005

13:53 PAGE 64
BASIC RECEIVER TESTS
2%:

000004

000357

MOV

BI(C
CLR

120504
001401

(MPB

BEQ

104040
104400

HLT

SCOPE

SEQ 0064

4(R1) R4

;PUT "'FOUND'' IN R4

RS,R4

;1S

#357 ,R&
RS

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

b3 3
40

INRDY CLEARED?

;ERROR,

;SCCPE

cevevennetcernenenvnnevnnnne

INRDY

IS NOT

THIS TEST

TEST

CLEARED

tecceccnncccccncenennnenene

:*DDCMP BASIC RECEICER TEST
:«SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0
S«VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED
IR

;0
016374
016402

012737
012737

016410
016412
016416
016422
016426

104412

016430
016434

016440
016442
016444
016450
016454
016460
0164¢°
0164
016466
016466
016470

016472
016476
016500

016502
016504
016506

012702
01271
004737
000000
106415
104416
1044614

021244
016104
042704
012705
120504
001401

000031
016510

001226
001216

000012
004000
027066

000053
000002
000004
000357
000020
"

005005

MOV
MOV

#31,1STNO
#TST32 NEXT

MSTCLR
MOV
MOV

12 ,R2
#BITI1,(RT)

120504
001401

2%:

T E R RO RO ORI PRONNNOIOIOTLE

TIMER,

MOV

4&(R1) ,R&

sR1 CONTAINS BASE DMC11
sMASTER CLEAR DMC1

ADDRESS

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

;LOAD SILO WITH 3 SYNCS
sAND THE (CHARACTER 0
sSINGLE CLOCK THE DATA

ROMCLK
021244

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

BEQ
HLT

INRDY

;PUT "'FOUND'’ IN R&

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

JERROR,

4(R1),R4
RS
RS.,R&

HLT

SCOPE

UAIT FOR

#357 R4
#BIT4L,RS
RS ,R&

MoV
(LR
(MFB
BEQ

104010
104400

AN A RN RARRER

JSR
PC,CHAR
0
53
DATACLK,

ROMCLK
021204

000004

LA AT RN RN

TEST N

8IC
MOV
CmMPB

104040

104414
021204
016104

TST31:

’$

INRDY

IS NOT

SET

NEXT WORD IS INSTRUCTION, ROMCLK P(-5304
;PORT4 _IN DATA

;PUT "'FOUND'' IN R4
;PUT “'EXPECTED'' IN RS
;UAS A O RECEIVED?

;ERROR, RECEIVED DATA IS WRONG

;SCOPE THIS TEST

;eengrececeeeevevennvnenwwnn

TEST

teneanaaentattnaanatentann

;*DDCMP BASIC RECEICER TEST

:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125
JeVERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED
;;ltltt"'tttt"'ttitt"t'tttttttt'tttttttttttttttttt"ttt't'!tt

.
016510

012737

000032

001226

1ST132:

MOV

TEST 32
#32,1STNO

MACYNY 30A(1052)
(l0Mt
07-JuL-80
CZDME .P1
01-JuL-80 15: 29

3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295

016516

012737

016524

106412

012702
012711
004737
000125
104415
104416
104414

021244
016104
042704
012705
120504
001401

016626

13:53
PAGE 65
BASIC RECEIVER TESTS

001216

MSTCLR

Mov

MOV

JSR
125
DATACLK,

000053
000002
000004
000357
000020

MOV

1%:

000004
000125

Vflfl\fla:&flx”fi\fiuflfi
O~ (¥, W)
= O

RS R4
1%
40

(MPB
1]

001401

104010
104400

HLT

SCOPE

‘WAIT FOR INRDY

;PUT "FOUND'' IN Ré&

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

#BIT4,RS

;IS INRDY SET?

;ERROR,

IS NOT SET

INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

MOV
MOV

;AND THE CHARACTER 125
;SINGLE CLOCK THE DATA
;PORT4 LU 12

4&(R1) R4

(MPB
BEQ
HLT

;SAVE REG ADDRESS IN RZ2 FOR TYPEQUT
;SET LINE UNIT LOOP
;LOAD SILO WITH 3 SYNCS

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

#357 ,R4

021204

i) —

:PORT4

IN DATA

;PUT "FOUND'' IN R4

L(R1) R4
#125,R5
RS,R&

:PUT "EXPECTED'' IN RS

:WAS A 125 RECEIVED?

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

;eeenaeseeerecreevntereeennn

;*DDCMP BASIiC RECEICER TEST

TEST

eevevnececccrencnnnnnnennee

;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252

;*VERIFY THAT

IN RDY

[S SET, AND THAT

THE

CHARACTER WAS RECEIVED

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

.
016626
016634

012737
012737

000033
016744

016642
016644
016650
016654
016660

10461
012702
012711
004737
000252

000012
004000
027066

001226
001216

1ST33:

WD =2 OO0 ~YO NS

NNNN—‘-A—‘—._‘—‘—A-—.—I

(G TPV IV TV IV T TV IV IV TV
T ]
VIV TV IV RV TV AV IV L TV RV (V)

3329
A0l At ol
A A
AN
(VI IV LV IV IV TV LV IV LV

120504

8I(

MOv

104414

021204
016104
012705

#BIT11,(RY)
PC,CHAR

TIMER,

021244

:R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11

LAYALT4

ROMCLK

104040

016604
016606
016612
016616
016620
016622
016624

#TST3Z, NEXT

Mov

000012
004000
027066

SEQ 0065

1064415
104416
1044614

021244
016104
042704
012705
120504

10464614

MOV
MOV

MSTCLR
MOV
MOV

JSR

252

000053
000002

#33,1STNO
#TST36 NEXT
22,R2
#BIT11,(RY)
PC,CHAR

DATACLK,
TIMER,
ROMCLK

021244

000004
000357
000020

MOV

81C
MoV
(MPB
8tQ

001401

104040

TEST 33

HLT

1%
ROM(LK

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

:SAVE REG ADDRESS IN RZ FOR TYPEQUT
;SET LINE UNIT LOOP
:LOAD €ILO WITH 3 SYNCS
:AND Tiic CHARACTER 252

;SINGLE CLOCK THE DATA
“WAIT FOR INRDY

NEXY WORD IS INSTRUCT(ON, ROMCLK P(C=5304

4(R1) R4

#2357 ,R4
#8174, ,RS
RS.R4
13 )
4«0

;PORT4 LU 12

;PUT "FOUND'' IN Ré&

:CLEAR UNWANTED BITS

;PUT "EXPECTED'" IN RS

;1S INRDY SET?
;FRROR,

INRDY IS NOT SET

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

(IDME
mMACYN 30A(1052)
07-JUL-B0
CI0ME .PI
01-JuL-89 15:29

33,0

016722

021204

016730
016734
016736

012705
120504
001401

3361

016724

33645
§§29

016740
016742

3342
3343
366

016104

13:53
PAGE €6
BASIC RECEIVER TESTS

021204

000004

000252

MoV

4(RY) R4

HLT
SCOPE

MoV
(MPB
BEQ

104010
104400

2%:

3348

SEQ 0V66

#252,RS
RS ,R&
2%

;PORT4_IN DATA

PUT “FOUND'' IN R&

;PUT "'EXPECTED'' IN RS
‘WAS A 252 RECEIVED?
;ERROR, RECEIVED DATA [S WRONG
;SCOPE TMIS TEST

3349

Jerrerteres
et et ettt enenene

3350

;*DDCMP BASIC RECEICER TEST

3352

;*VERIFY THAT

3351

016744
016752

012737
012737

3360
3361
3362

016760
016762
016766

06412
012’02
012711

000012
004000

3366

017006

104416

000053
000002

3363
3364
3365

3367

3368

3369
3370
3371
3372
3373
3374
3375

3376

3377

3378

3379
3380
3381

3382
gggz

tecvnrenencttnetnettreeeny

;*SYNC UP RECEIVER AND SINGLE CLOCK THE (MARACTER 377

3393

3354
3355
3356
3357
3358
3359

TEST

016772
016776
017000

017010

004737
000377
104415

104414

017012

021244

017020
017024
017030
017032
017034
017036

042704
012705
120504
001600
104040

017040

021204

017046
017052
017054

012705
120504
001401

017014

017036

017042

017056
017060

016104

000034
017062

001226
001216

027066

MOV
MOV

#34,TSINO
#TST3I5 NEXT

MSTCLR
MOV
MOV

’2,R2
#BIT11, (RY)

TIMER,

ROMCLK
021244

000004

MOV

000357
000020

1%:

BIC
MOV
(MPB
BEQ
HLT

000377

2%:

3385

ARl l])

#357 R4
#BIT4 RS
RS, R4
1%
40

;R1 CONTAINS BASE DM(C11 ADDRESS
;MASTER CLEAR DM(C11
sSAVE REG ADDRESS [N RZ FOR TYPEOUT
;SET LINE UNIT LOOP

;LOAD SILO WITH 3 SYN(CS
;AND THE CHARACTER 377
;SINGLE CLOCK THE DATA
;WAIT FOR INRDY

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

:PUT "'FOUND'" IN R4

;sCLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S INRDY SET?
JERROR,

INRDY IS NOT SET

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

MOV

4(R1),R4

;PUT "'FOUND'' IN R4

HLT
SCOPE

;ERROR, RECEIVED DATA IS WRONG
;SCOPE THIS TEST

MoV
(MPB
BEG

104010
104400

4(R1) ,R4

ROM(LK

021204

000004

[S SET, AND THAT THE C(MARACTER WAS RECEIVED

TEST 34
jeemecccccccean

JSR
PC,CHAR
377
DATACLK,
53

104414

016104

T1ST34:

IN RDY

#377,RS
RS,Ré
2%

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

3386

AR AR AR AR R AR AR AR AR RN L TEST 35 123322322 R RS ERR SRR L]

31390

DNt
R RN RN R AN RN R RN
R RN TR RERRITYY

3387
3388
3389

J*DDCMP DATA TEST
s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
s*CHECKING EACH CHARACTER AS IT [S RECEIVED

31391
ggg%

3394
3395

;

017062
017070

012737
012737

000035
017212

001226
001216

7T1ST35:

MOV
MOV

TEST 35

#35,1STNO
#1ST36 ,NEXT

CIDOME
MACY11 30A(1052)
07-9uL-80
(Z0me . P11
01-JUL-80 15:29
3396
3397
3398
3399
3400
3601
3402
3403
3404

3405
3406
3407
3408

3409

017076
017100
017104
017110
017112
017116
017122
017126
017132
017136

017142

017144

017146

3610
3411
36412
3613
3414
36415
3616
3617
3618
3419

017152
017154
017156
017160
017162
017164
017170
017172
017174
017176

3421
%2%%

017206
017210

3,20

017202

.
10441¢
005037
005037
005002
012703
012711
004737
104415
104415
004737

104414

021204

016104

010205
120504
001401
104010
005202
022702
001407
005303
001360
004737

012703

000751
1044060

13:53

PAGE 67
BAS:iC RECEIVER TESTS

027504
027506

000073
004000
027244
000043
000730
027510

1%:
A ¥

MSTCLR
(LR
SCHAR
(LR
STUFLG
(LR
R2
MOV
#73,R3
MOV
#BIT11,(RT)
JSR
PC,SILOLD
DATACLK,
43
DATACLK,
730
JSR
PC,INRDY

ROMCLK
021204

000004

2%:

000400

027244

000073
3%

3424

SEQ 0067

MOV

4((R1) ,R4

MOV

#7%,R3

MOV
(MPB
BEQ
HLT
INC
(MP
BEQ
DEC
BNE
JSR
BR
SCOPE

R2,RS
RS R4
2%
10
R?
#400,R2
3%
R3
4
PC,SILOLD
1%

;RT CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(N
;START BINARY COUNT AT ZERO
;CLEAR BITSTUFF FLAG
sR2 IS "EXPECTED'' DATA
;R3 IS CHARACTER COUNT
;SET LINE UNIT LOOP
;LOAD SILO WITH COUNT PATTERN
sSYNC RECEIVER AND GET IT ACTIVE

:CLOCK IN 73 CHARACTERS
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK P(-5304
;PORT4 IN DATA

JPUT “FOUND'' IN R&

;PUT “EXPECTED'' IN RS
;1S DATA CORRE(CT?
:BR IF YES
:DATA ERROR
JNEXT CHARACTER
;ALL DONE?
;BR IF YES
;DECREMENT (MHARACTER CNUNT
JBR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN

RELOAD CHARACTER COUNT
s CONTINUE
;SCOPE THIS TEST

3425

JERRRERO
TR TR R ETE AR
eaner

3426

;*DDCMP DATA TEST

3430

L*EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12

3427
3428
3429
3432

3437
3438
3439
36440
3441
3442
3443
3444

3445
36446
3447

3448
3449
3450

3451

teteneanenesenecrnnteeantet

P
R R
AR
R R

3433

3435
3436

ThH

;*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN
J*CHECKING EACH CHARACTER AS IT IS RECEIVED
;eTHIS TEST IS EXYACTLY THE SAME AS THE LAST TEST,

343

3434

TEST

;

017212
017220

012737
012737

017226
017230
017234
0172640
017242
017246
017250

104412
005037
005037
005002
012703
005011
0127617

017262

004737

027244

017272
017276

104415
004737

000730
027510

017256
017260
017266
017302

104414
122112
104415

104414

000036
017352

001226
001216

T1ST36:

027504
027506

000073
000040

000043

000004

TEST 36

jeeeememeeeccna"

MOV
MOV

#36,1STNO
#TST37 NEXT

MSTCLR
CLR
(LR
(LR
MOV
(LR
MOV

SCHAR
STUFLG
R2
#73,R3
(R1)
#BITS,4(RY)

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

JSR

PC,SILOLD

;LOAD SILO WITH COUNT PATTERN

ROMCLK
122112

1%:
4%

DATACLK,

DATACLK,
730
JSR
PC,INRDY

ROM(CLK

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
;SET LU LOOP [N LU REG 12
;SYNC RECEIVER AND GET T ACTIVE
;CLOCK IN 73 CHARACTERS
;WAIT FOR [NRDY

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

CIOME

MACY1Y 30A(1032)

(ZOME. P11
3452

3453

3654
3455
7456
3457
36458
3459
3460
3461
3662
3663

3464

3465
gzg?

07-JuL-80

01-JuL-8015:29

017304

017306

017312
017314
017316
017320
017322
017324
017330
017332
017336
017336

017342

017346
017350

021204

016104

010205
120504
001401
104010
005202
022702
001407
005303
001360
004737

13:53

PAGE 68

BASIC RECEIVER TESTS
021204

000004

2%:

000400

027244

012703 000073
000751
104400

1% -

3468

SEQ 0068

MOV

4(R1),R4

MOV

l?fi R3

MOV
(MPB
8EQ
HLTY
INC
(MP
BEQ
DEC
BNE
JSR
BR
SCOPE

R2,RS
RS ,R4
2%
10
R2
#400,R2
b3 1
R3
43
PC,SILOLD
1%

PORTL IN DATA

PUT "FOUND"' IN R4

PUT "EXPECTED'" IN RS
:lS DATA CORRECT?
;BR IF YES
;DATA ERROR
sNEXT CHARACTER
;ALL DONE?
;BR [F YES
;DECREMENT CHARACTER COUNT
;BR IF SILO NOT EMPTY
;LOAD SILO WITH MORE OF COUNT PATTERN

;RELOAD CHARACTER COUNT
s CONTINUE
;SCOPE THIS TEST

3469

JNtERAREELERRRLIRCRICONERINONRNY

3470
b 1%

-TRANSHITTER MARK TEST
:*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA

3473

;'HERE RECEIVED INDICATING THAT THE TRANSMITIER WENT

3472

3476

3477

3479

.
017352

012737

3487

017366
017370
017374
017400
017402
0176406

104412
012711
Q04737
000301
104415
004737

3489

017414

021204

36484
3485
3486

3488

3490
3491
3492

3493

017360

0176412

017430

001401

3496

017640

017442

021204

017456

001401

3502

017460

3504

3505

3506
3507

104010

004737

017444
017450
017454

3503

012705
120504

017434

3498
3499
3500
3501

104414

016104

017422
017426

017432

3497

012737

017416

3494

3495

taevntanenntnetantanteetene

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

3475

3480
3481
3482
3483

;aCLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377

3474

3478

TEST

104414

016104
012705
120504

104010

017462

004737

017470

021204

017476

012705

017466

017472

104414

016104

000037

017512

001226

001216

7T1S7137:

027066
000073

027510

MOV

MoV

MOV

MOV
(MPB
BEG

1%:

HLT

JSR

ROMCLK

021204

000004
000377

000004

000377

2%:

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

PC,INRDY

MOV
MOV
CMPB

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

HLT

BEQ
027510

NN TR RN NN

R AN

AR TR ARE

#37,1STNO

#T1STLO NEXT

ROMCLK

000301

NN RN

TEST 37

021204

000004

AR AR R R R R AN AR RN

feccececccccnan

MSTCLR
MOV
#BITIT,(RD)
JSR
PC,CHAR
301
DATACLK,
73
PC,INRDY
JSR

004000

027510

N P

JSR

ROM(LK

021204

MOV

PC,INRDY

4L(R1),R4
#377,RS

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

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
PORTA IN DATA

;PUT "'FOUND'' IN R4

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

;ERROR FIRST CHARACTER INCORRECT
JWAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
JPORT4L _IN DATA

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

;ERROR, 377 WAS NOT RECEIVED

‘WAIT FOR INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK PC 5304
;PORT4 "IN DATA

;PUT "FOUND'' IN R4

;PUY “EXPECTED'" IN RS

CI0ME
MACYN 30A(10>2)
07-JUL-80
(ZDME .P1Y
01-JUL-80 15:29

3508
3509
3510
}2};

017502
017504
017506
017510

13:53 PAGE 69
BASIC RECEIVER TESTS

120504
001401
104010
104400

1%:

3513

(MPB
8eQ
HLT
SCOPE

RS ,RG
b3
10

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

3514

;evenvcreecececeervececreennr

3515
3516
3517
3518

;*CABLE TURNAROUND TEST
;*CLEAR LINE UNIT LOOP, SET DTR
;*VERIFY [HAT RING ANDODEM READY ARE SET
;*CLEAR DTR, VERIFY THAT MRDY [S CLEARED

3520
%gg;

3519

3523
3524

3525
3526
3527
3528
3529
3530
3531
3532

3533
3534

3535

017512
017520

012737
012737

017526
017530
017536
017540
017546
017550

104412
032737
001004
032737
001475
005011

017560

104414

017552

017562

017564

017570
017572

3539
3540

017600
017604

3541

3542

ggzz

012761

020000

001366

040000

001366

000100

000004

7T1ST40:

104414
021264

Q017610

032737

042704
012705

001402

020000

042705

000200

#40,TSTNO
#TSTLT NEXT

MSTCLR
BIT
BNE
BIT
BEQ
(LR

#BITI3,STATY
+12
lBlT14 STATI

ROMCLK

122113

TIMER,

ROMCLK
021264

000004

000023
000310

MOV
MOV

MOV

104416 000002

016104

017620

001226
001216

122113

017574

017616

000040
017744

MOV

BIC
MOV

001366

BIT

BEQ

4(R1) R4

#23 R4
#310,RS

#BIT13,5TAT
+6

; 1S THIS v.35 MODEM?
; NO THEN GO AHEAD.

BIC

#B1T7,RS

; YES=NO RING ON V.35 MODEM
; ARE RING AND MODEM READY SET?

017640

020504

001403

BEQ

(Mp

RS,R4

3554
3555

0176446
017646

120405
001435

(mP8
BEQ

R4 ,RS
2%

3560

017652

3561

017656

3563

017662

3562

017660

1040M

005061

104414

122111

104416

000004
000002

1%:

. IS LINE UNIT MB202?

#RIT2,STATY
3%

3550

017650

+e
o oNEW

B!T
BEQ

000200

3559

; PUT FOUND IN R4

; CLEAR JUNK
; GET EXPECTED.

; NO RING ON MB8202

042705

3557
3558

NEXT WORD IS INSTRUCTION, FOMCLK P(=5304
sPORT& LU13

#BIT7,RS

017634

3556

NEXT WORD IS INSTRUCTION, RCACLK P(C=5304

BIC

3548

017642

:LOAD PORT4

;SET DTR

000004

3%:

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(11
;1S LINE UNIT MB202?
;BR IF YES (DO TEST EVEN [F NO LOOP-BACK CONN)
;1S TURNAROUND CONNEL'NR ON?
;SKIP TEST IF NO
;CLEAR LINE UNIT LOOP

TWALT

032737
001402

017640

001372

2%
(R1)
#100,4(RY)

017624
017632

3551
3552
3553

tevecrenccnccnccecccennncne

TEST 40

3545
ggzg
3549

L R
R
AR R AR

3536
3537

3538

TEST

HLT

(LR

ROMCLK

122113
TIMER,

4(RY)
¢

;
;
;
.

WARNING' IF V.35 AND AUTO STARTED,
YOU WILL GET THIS ERROR, YOU MUST
MANUALL NASWER THE QUESTIONS FOR Vv.35.
ARE RING AND MRDY CLEAR?

; WARNING! YOU MAY GET THIS ERROR [F v.35

; AND AUTOSTART., YOU MUST MANNUALLY ANSWER
ALL QUESTIONS IF Vv.35.
ERROR MRDY NOT SET

sCLEAR PORT4

;NFXT WORD IS INSTRUCTION, ROMCLK PC 5304
;CLEAR DTR

MACY Y 30A(10>2)
(I0ME
07-JuL-80
CIDME .P1Y
01-JuL-80
1 5:29

3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596

017736

104414

SEQ 0070

;NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

ROMCLK

021264

200004
000023

MOV

000010
000004

001372

000200

001366

(VY

020000

43
#BI1T7,RS

120405
001401

4(R1),R4

#23,R6
RS
MBIT13,5TAT
.6
#BIT3,RS
#BIT2,STATS

BIC

MO —-nNOD — 0

021264
016104
0462704
005005
032737
001402
052705
032737
001402
062706

et FYY et 0

017666
017670

DODODDDOD@D

3565
3566
3567
1568
3569
3570
35N
3572
3573
3574

sPORT& LU13

PUR FOUND IN R&
; STRIP JUNK
; SET EXPECTED.
; IS THIS A MB202?
;

;

104011
104400

2%:

THEN EXPECT

MARDY

IS THIS v.35?

; WARNING!

017740
017742

YES

+ooNEW

SET.

: ARE RING AND MRDY (LEAR?

R4 ,RS

Doy
mx
00V

3564

13:53
PAGE 70
BASIC RECEIVER TESTS

YOU MAY GET

AND AUTOSTART.

THIS ERROR

; ALL QUESTIONS IF v, 35.
;ERROR,

HLT

MRDY NOT

;SCOPE THIS TEST

SCOPE

JENNRARRECRRRRERREOETRIORARYRRTYE

TEST

YOU MUST MANNUALLY

V.35

ANSWER

(LEAR

teeccecnsncccnnesnteesennee

;*CABLE TURNARQUND TEST
;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO
S*VERIFY

THAT

ALL MODEM SIGNALS ARE

SET

;:"t.t"""'"t"""t""iQ....".".""".".QQ."'Q"'Q'..

TEST 41

017744
017752

00004
020140

017760
017762
017770
017772
020000
020002
020006
020014
020016
020020
020024

020042
020044
020046
020052

020054
020054
020050
020060
020064
020070

TST41:

021264
016104
042704
012705

MOV
MoV

#BIT11,(RY)
2100,
4&(RY)

000004

122113
TIMER,
MoV

¢
#21,4(RY)

001366

004000
000100

BNE
BIT
BEQ

ROMCLK

L4112
#BITIL,STATT
1%

ROMCLK

122111

JSR

RS,MESLD

MOV

#50,R0

MESDAT
664.

000050
2%

000354

#TSTL2 NEXT

000004

040000

000004
000023

#41,7STINO

#BIT13,STATY

001366

104414

MOV

MSTCLR

030152

005011

MOV

BIT

020000

000002
000001

020032
020034
020036

001226
001216

(LR

(R1)

MOV

G(RV),RG

MOV

354 ,RS

BIC

ADDRESS

;1S LINE UNIT mMB202?
;BR IF YES (DO TEST EVEN IF NO LOOP-BACK (ONN)
;1S TURNAROUND CONNECTOR ON?
;SKIP TEST IF NO
;SET LINE UNIT LOOP
;LOAD PORT4

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

;LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(=53064

;SET SOM

SFILL OUT DATA SILO
;WITH 64

CHARACTERS

;PREPARE

FOR DELAY

;CLEAR LINE UNIT LOOP

SNEXT WORD IS INSTRUCTION, RUMCLK P(=5306

ROMCLK

021264

;R CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

#23 R4

;PORT4_LU13

:PUT “'FOUND'' IN R&

;CLEAR UNWANTED BITS
;PUT

“EXPECTED'' IN RS

MACY11 30A(1052 )
07-JuL-80
CZ0ME
CZ0me. PN
01-JuUL-80 15:29

3620
3621
3622
3623
36264
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641

032737
001402
042705
032737
001402
042705

13:53

PAGE

000004

001372

000200
020000

001366

000200

#BIT2,STATS

408
#B1T7.RS

221113,srar1

40%:

120504

1¢:

1S THIS v.35?

YES

THEN GET

RID OF

IS THIS MB202?

RING

RS R4
1%
RO

:COMPARE EXPECTED AND FOUND
‘BR [F OK
*DEC DELAY COUNT

"ERROR, ALL SIGNALS ARE NOT SET
: WARNING THIS TEST WILL FAIL IFfF

104400

;

P81T7.RS

001403
005300
001350
104011

020136

SEQ 0071

BASIC RECEIVER TESTS

‘BR IF NOT ZERO
:
:

DON'T MANUALLY ANSWER QUESTIONS
YES HAVE V.35S.

;SCOPE THIS TEST

SCOPE

jeveesanevrertrenvecrvannntn

JEST

;*TEST OF CRC OPERATION

. *USING THE CRC16 POLYNOMIAL,

SINGLE

;*TEST

THE

tevvencencencceecencvenceen

CLOCK

THE

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

3642
3643
3644
3645

YOU

TRANSMITTER

FIRST

THEN

CHARACTER

RECEIVER BC-

::ttt""‘"'Qt""'"""QQ"""Q".'..""t."t't'ttt.""'.'

020230
020234
020236
020242
020244

020246

020250
020252
020256
020260
020262
020264
020270
020272
020274

01271
004737
005000

012737
01273%7
005037
004737
000000

1046415
104415
005200

004537

000001
000000
000000
103405
004737
103006
104012
000404
004737
103401
104016

)
—

000042
020454
020170

norOMNL

104412

73
73

lelele
OOO

020162
020164
020170
020174
020176
020204
020212
020216
020222
020224

—et

020140
020146
020154

OOO

(2819 ]1,8}

NSNS

TEST Y

004000
030214
120001

000000
020246
027654

000021
000001

TST42:

64%:

027650
020244

MSTCLR
MOV

JSR
(LR

MoV
MOV

(LR
JSR

65%:

027544
66%:
67%:

027766

MOV

MOV
MOV

68%:

69%:

0
DATACLK,
DATACLK,

#42,TSTNO
#TSTLZ NEXT

#64%,L0CK

#BIT11,(RY)
PC,CLRIO

RO
#CRC16,XPOLY
¥0,66%

67%
PC,BCCLD

21
1

INC
JSR
1

RO
RS,SIMBCC

BCS
JSR
BCC
HLT
BR

68%

0
0

JSR
BCS
HLT

PC,GETQO

69%
12
699

PC,GETQ0
69%
16

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC1

:SET LU LOOP
;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOFTWARE B((
;LOAD CHAR FOR SOF TWARE B(C

;CLEAR OLD SOF TWARE BC(
;LOAD OUT SILO WITH 2 SYNCS

;AND THE CHARACTER 0

;GET TRANSMITTER ACTIVE
;SHIFT BCC

ONCE

;BUMP SHIFT COUNT
;CALCULATE SOF TWARE B(CC LSB

;ONE SHIFT
:DATA CHARACTER
.0LD BCC
:BR _IF

SOFT BCC LSB IS SET

;GET HARDWARE

TRANSMITTER B(C LSB

;BR IF HARD BCC LSB [S CLEAR
;ERROR, BCC LSB IS SET
. CONT INUE

;GET HARDWARE TRANSMITTER BCC LSB
;BR If HARD BCC LSB IS SET
;ERROR, HARD BCL LSB [S CLEAR

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

020274
020300
020306
020312
020314
020316
020324
020330
020332
020340
020346
020352
020356
020360
020364
020370
020372
020376
020400
020402
020404
020406
020412
020414
020416
020420
020424
020426
020430
020430
020434
020442
020446
020450
020452

006037
013737
022700
001346

020244
027652
000010

012737
0047%7
005000
0127%7
012737
005037
004737
000000

020326
030214

001220

120001

027650
020400

104401

1044615
104415
005200

000000
020402
027654

027544

004737

030000

000000
000000
103405

103006
104013

000404
004737
103401
104017

006037
013737
022700
001346

ROR
MOV

020246

71%:

#10,R0
65%

JSR
CLR

PC,CLRIO

MOV

Mov
MOV

CLR
JSR

72%:

73%:
74%:

75%:

020400
027652
000010

76%:

104401
104400

BR
JSR
BCS
HLT
ROR

020402

MOV

(MP
BNE

77%:

#71%,L0CK

#CRC16,XPOLY

#0,738
748

PC,BCCLD

32
DATACLK,
1
DATA(CLK,
RO
INC
RS,SImMBCC
JSR
1
0
0
75%
BCS
PC,GETQI
R
JS
76%
BCC
HLT

030000

66$
CALBCC,67%

(Mp
BNE
SCOP1

000032
000001

004537
000001

SCOP1

13
76%

PC,GETQI

76%
17

73%

CALBC(C,748

#10,R0
72%

SEQ@ 0072

JSHIFT SOFT DATA
JLOAD OLD SOFT B((
;DONE YET?
:BR IF NOT DONE

:SCOTMME SUBTEST (SwW09=1)
;NEW SCOPE1

;CLEAR BCC REGISTERS

:START SHIFT COUNTER AT ZERO

:LOAD POLYNOMIAL FOR SOF TWARE B((
;LOAD CHAR FOR SOF TWARE BC((
;CLEAR OLD SOF TWARE BC(
:LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 0

sGET RECEIVER ACTIVE
;SHIFT B(C ONCE
;BUMP SHIFT COUNT

:CALCULATE SOFTWARE B(C LSB
JONE SHIFT
:DATA CHARACTER
;0LD BCC
;BR IF SOFT BCC LSB IS sgr7
;GET HARDWARE RECEIVER BCC LSB
;BR IF

MARD BCC LSB IS CLEAR

;ERROR, BCC LSB IS SET
; CONTINUE

:GET HARDWARE RECEIVER B(CC LSB
;BR If HARD BCC LSB IS SET

;ERROR, BCC LSB IS CLEAR

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

;SCOPE SUBTEST (Sw09=1)

;SCOPE THIS TEST

SCOPE

;ernanaerrerennveerrerenenen

TEST

vnnevevvnnennnnencetnncenne

;*TEST OF CRC OPERATION

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

NN~
NNO N-—-N

NN
NNO N~

WAAN
O N =t =

NOPLA SN

—

[P 1V 1V ]

020476
020500
020504
020510
020512
020520

020454
020462
020470

[=lele]

(a1
N ], N

;:!tQ't"'.""""""'".'it"t'll".'t.'."'tt.tttt"t"""t

OO0
—
— e OO 2O

3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
371
3712
3713
3714
3715
3716
3717

13:53
PAGE 72
BASIC RECEIVER TESTS

000043
020770
020504

001226
001216
001220

004000

030214
120001

000377

648

027650
020560

#63,1STNO

TST4Y:

#TST44L NEXT
#64%,L0CK

MSTCLR
MOV
JSR

CLR

MOv
MOV

#B81T11,(RY)
PC,CLRIO

RO
#CRC16,XPOLY
N377,66%;

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

;SET LU LOOP
;CLEAR BCC REGISTERS
:START SHIFT COUNTER AT ZERO

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

MACY11 30A(1052 )
07-JuL-80
(IDME
. P11
C(20me
01-JuL-80 15:29

005037
004737
000377

3732

3733
3734
3735
3736
3737
1738
3739

106415
1046415

005200
004537
000001
000000
000000

3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3706
3767
3768
3769
3770
3771
3772

3773
3774
3775
3776
3777
3778
3779
1780
31781
3782
3783
3784
3785
1786
3787

103405

004737

103006
104012
000404
004737
103401
104016

027766

120001
000377
020716
027654

103405

004737

103006
104013
000404

004737
103401
104017

006037
013737
022700
001346
104401
104400

68%:

027766

012737
0127%7
005037
004737

005200
004537
000001
000000
000000

65%:

66%:
67%:

020640
030214

104415
104415

377

027544

01273%7
004737

000377

CLR
JSR

000021
000001

020560
027652
000010

005000

020766

020562

027654

006037
013737
022700
001346
10446401

13:53
PAGE 73
BASIC RECEIVER TESTS

69%:
020562

72%:

027544
73%:
74%:

030000

75%:

030000

020714
027652

100010

76%:

020716

BCS
JSR
8C(
HLT
BR
JSR
BCS
HLT

ROR
MOV

MOV

JSR
CLP
MOV
My
LLR
JSR

0
0

;AND THE CHARACTER 377
;GET TRANSMITTER ACT]VE
;SHIFT BCC ONCE

;BUMP SHIFT COUNT
;CALCULATE SOFTWARE B(C LSB
;ONE SHIFT
:DATA CHARACTER

;0LD BCC

;BR IF SOFT BCC LSB IS SET

68%

,GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS CLEAR

PC,GETQO

69%

;ERROR, BCC LSB IS SET
; CONTINUE

69%

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

PC,GETQO

69%
16

;ERROR,

66%
CALBCC,67%
#10,R0

65%

#71%,L00K
PC.CLRIO
RO
#CRC16,XPOLY

#377,7%8;
74$
PC,BCCLD

HARD BCC

LSB

CLEAR

(SHIFT SOFT DATA

;LOAD OLD SOFT BC(C
;DONE YET?
;BR IF NOT DONE

;SCOPE SUBTEST (SW09=1)
;NEW SCOPE1

;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMIAL FOR SOF TWARE BC(
:LOAD CHAR FOR SOF TWARE BC((
;CLEAR OLD SOFTWARE B(C

;LOAD OUT SILO WITH 2 SYNCS
32

DATACLK,
1
DATACLK,
RO
INC
RS,51ImMBCC
JSR
1

;AND THE CHARACTER 377

;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOF TWARE BCC LSB
;ONE SHIFT
;DATA CHARA(CTER

;0LD BCC
;BR IF SOFT BCC LSB [S SET

BCS
JSR
BC(C
HLT
BR
JSR
BCS

75%
PC,GETQI
76%

;GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS CLEAR

PC,GETAQI
76%

;GET HARDWARE RECEIVER BCC LSB
;BR IF HARD BCC LSB IS SET

ROP

73%

HLT

="y

CMP
BNE

77%:

;LOAD OUT SILO WITH 2 SYNCS

PC.BCCLD

0
0

377

000032
000001

;CLEAR OLD SOF TWARE B((

67%

DATACLK,
21
1
DATACLK,
RV
INC
RS,SIMBCC
JSR

(MP
BNE
ScoPt

71%:

SEQ 0073

SCOP1
SCOPE

13
76%
17

CALBCC,74$

#10,R0
72%

;ERROR, BCC LSB IS SET
. CONTINUE

;ERROR, BCC LSB IS CLEAR

;SHIFT SOFT DATA
;LOAD OLD SOFfT BCC
;OONE YET?
.BR IF NOT DONE

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

MACY11 3GA(1052)
CIDME
07-JuL-80
Clome .P11
01-JuL-80 15:29

PAGE 74
BASIC RECEIVER TESTS

SEQ 0074

cavantteeentenceerervrnvnnnnn

“eTEST OF CRC OPERATION

JEST

teenceenccnenetennttanennee

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

;:QQQfi"'"""""""""'t"""'Q"".'Q"""QQ."Q'"""'

d e
D
D
b
d
b
d
d e
d

8B B M ANTNONONIN)
= = = O
N
OSNOSNOO

021102

NN
N

[elele]

1273

? &4

27
004737
005000
012737
012737
005037
004737
000125
104415

021012
021014
021020
021024
021026
021034
021042
021046
021052
021054
021060
021064
021066
021072

1273
1273

O -

020770
020776
021004

—

TEST 46

—

3788
3789
3790
3791
3792
3793
3794
3795
3796
3797

13: 53

104415

005200
004537
000001
000000
000000
103405

004737

103006
104012

000404

004737

103401
104016

000044

120001

000125
021076
027654

027650
021074

CLR

JSR

125

DATACLK,

66%:
67%:

69%:
021076

INC
JSR
1

0
BCS
JSR
8c(C
HLT
BR
JSR
BCS
HLT

ROR
MOV
(MP

BNE
SCOP1

71%:

120001

MOV

JSR
CLR

MOV
MOV

000125
921232
027654

027544

DATACLK,

65%:

68%:

027766

000032
000001

JSR
CLR

MOV

027766

021154
030214

MSTCLR
MOv

MOV

027544

012737
004737
005000
012737
012737
005037
004737
000125
005200
004537
000001

64%:

000021
000001

021074
027652
000010

104415
1046415

MOV

004000
030214

006037
013737
022700
001346
104401

TSTéG:

021304
021020

72%:

#44,TSTNO
FTSTLS NEXT
#64%,L0CK

#BITI1,(R1)
PC,CLRIO
RO
#CRC16,XPOLY

#125,66%;
67%
PC,BCCLD

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

ADDRESS

;SET LU LOOP
;CLEAR BCC REGISTERS

;START SHIFT COUNTER AT ZERO

;LOAD POLYNOMJAL FOR SOFTWARE BCC(
;LOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOFTWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
;AND THE

CHARACTER

12%

;GET TRANSMITTER ACTIVE

PC,GETQO

;SHIFT BCC ONCE
;BUMP SHIFT COUNT
sCALCULATE SOFTWARE BCC LSB
;ONE SHIFT
;DATA CHARACTER
.0LD BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE TRANSMITTER BCC LSB
;BR IF HARD BCC LSB IS CLEAR
:ERROR, BCC LSB IS SET
s CONTINUE
;GET HARDWARE TRANSMITTER BCC LSB

;ERROR, HARD BCC LSB IS CLEAR

1
RO
RS,SIMBCC

68%

PC,GETQO

69%
12

69%

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

9125,7%8;

748
CLR
PC,BCCLD
JSR
125
32
DATACLK,
1
DATACLK,
RO
INC
RS,SIMBCC
JSR
1

;BR IF HARD BCC LSB IS SET

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
;DONE YET?
:BR

IF NOT DONE

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

;START SHIFT COUNTER AT ZERO

:LOAD POLYNOMIAL FOR SOF TWARE B((
:LOAD CHAR FOR SOF TWARE BCC
;CLEAR OLD SOFTWARE BCC

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

;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
; CALCULATE SOFTWARE BCC LSB
;ONE SHIFT

MACY1 30A(10>2)
(IDME
07-JuL-80
CZDME .P11
01-JuL-80 15: 29

3844
3845
3846
3847
3848
3849

000000
103405

004737

103006

748
:

030000

104013

000404
004737
103401

3852

3853
3854
3855

3871
3872
3873
3874
3875
3876
3877
3878

73%:

000000

3850
3851

3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870

13:53
PAGE 75
BASIC RECEIVER TESTS

030000

75%:

104017

006037
013737
022700
001346
021302

021230
027652
000010

76%:

02123¢

104401
104400

;DATA (HARACTER

0
0

BCS
JSR
BCC
HLT
BR
JSR
B(S
HLT

75%

ROR
MOV

73%

;0LD BCC
;BR IF

;BR IF HARD BCC LSB IS S CL EAR

76%
13
76%

;ERROR, BCC LSB IS SE T
; CONTINUE
;GET HARDWARE RECEIV E R BCC LSB
;BR [F HARD B(CC LSB I S SET
;ERROR, BCC LSB IS ( L EAR

PC,GETQI

76%
17

CALBCC, 748

72%

SCOP1
SCOPE

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

JenNrRteRteneeteeeneenernnene

CRC

SOFT BCC LSB IS S SET

;GET HARDWARE RECEIVER R BC( L.B

PC,GETQI]

CMP
BNE
77%:

SEQ 0075

;+TEST

;*TEST

TRANSMITTER FIRST

TEST

renrtarqnerrnn
et RR Rt RN RS

QPERATION

;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER
4252, VERIFY THE LSB OF THE BCC ON EACH SHIFT
N A

s
021304
021312
021320

021326
021330
021334
021340
021342
027350
021356
021362
021366
021370
021374
021400
021402
021406
021410
021412
021414
021416
021422
021424
021426

021430
021434
021430

000045
021620
021334

001226
001216
001220

004000
030214
120001

000252
021412
027654
104415
106415

005200
004537
000001
000000
000000
103405

004737
103006
104012

000404
004737
103401
104016

000021
000001

MOV

64%:

MSTCLR
MOV
JSR

027650
021410

MOV
MOV

CLR

MOV
MOV

CLR
JSR

252

65%:

66%:

67%:

027766

R R

#45,TSTNO
#TSTL6, NEXT
#64%,L0CK
#BIT11,(RD)
PC,CLRIO

RO
#CRCY16, XPOLY
#252,66%;

67%

DATACLK,
INC

JSR
1

0
0

THEN THE
AR

RECEIVER BCC
R

ARt

RRRRRRRRRRARRRRRRRRA)

21
1

RO
RS,SIMBCC

BCS
JSR
BC(C

68%

BR
JSR
BCS
HLT

69%

PC,GETQO

69%
12

PC,GETQO

69%
16

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DMC11

;SET LU LOOP
:CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOFTWARE BC((
;LOAD CHAR FOR SOF TWARE BC(
;CLEAR OLD SOFTWARE BCC

;LOAD OUT SILO WITH 2 SYN(CS

PC,BCCLD

DATACLK,

HLT

68%:

TEST 45

TST4LS:

027544

027766

:AND THE CHARACTER 252

;GET TRANSMITTER ACTIVE
;SHIFT BCC ONCE
:BUMP SHIFT COUNT
;CALCULATE SOF TWARE B(C(C LSB
;ONE SHIFT
;DATA CHARACTER
.0LD BCC
;BR IF SOFT BCC LSB IS SET
sGET HARDWARE TRANSMITTER B((C LSB
;BR IF HARD BCC LSB IS CLEAR
;EPROR, BCC LSB IS SET
. CONTINUE
;GET HARDWARE TRANSMITTER BCC .SB
;BR IF HARD BCC LSB IS SET
;ERROR,

HARD BCC

LSB

CLEAR

MACY1T 30A(1052)
CIDME
07-JuL-80
E
. PN
CZ0M
01-JuL-80 15:29

3900
3901
3902
3903
3904
3905
3906
3907
3908
3509
3910
3911
3912
3913
3914
3915
3916
3917
3918
3619
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
393N
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951

3952
3953
3954
3955

021440

021440
021444
021452
021456
021460
021462
021470
021474
021476
021504
021512
021516
021522
021524
021530
021534
021536
021542
021544
021546
021550
021552
021556
021560
021562
021564
021570
021572
021574
021574
021600
021606
021612
021614
021616

13:53
PAGE 76
BASIC RECEIVER TESTS

69%:

006037
013737
022700
001346

10441°

005200
004537
000001
000000
000000
103405

004737

103006
104013

000404
004737
103401
104017

006037
01373%7
022700
001346

#10,R0

BNE

SCOP1

104401

012737
004737
005000
012737
012737
005037
004737
000252
104415

66%
CALBCC,67%

ROR
MOV
CMP

71%:

120001

(LR

MOV
MOV

000252
021546
027654

748

PC,BCCLD

252

72%:

027544

#71%,L0CK
PC,CLRIO
RO
#CRC16,XPOLY

#252,7%8;

CLR
JSR

000032
000001

32
DATA(CLK,
1
DATACLK,
RO
INC
RS,SIMBCC
JSR
]

73%:
74%:

030000

021544
027652
000010

MOV
JSR

65%

75%:
76%:

021546

104401
104400

77%:

0
0

75%
PC,GETQI

BCS
JSR
BCC
HLT
BR
JSR

PC,GETQI

HLT

76%
13
76%

SEQ 0076

sSHIFT SOFT DATA
;LOAD OLD SOFT B(C(
;DONE YET?
;BR IF NOT DONE
;SCOPE SUBTEST (SwW09=1)
;NEW SCOPE1
;CLEAR BCC REGISTERS
;START SHIFT COUNTER AT ZERO
;LOAD POLYNOMIAL FOR SOF TWARE B(C
;LOAD CHAR FOR SOFTWARE BC(
;CLEAR OLD SOF TWARE BCC
;LOAD OUT SILO WITH 2 SYNCS
;AND THE CHARACTER 252
;GET RECEIVER ACTIVE
;SHIFT BCC ONCE
;BUMP SHIFT COUNT
;CALCULATE SOFTWARE BCC LSB
;ONE SHIFT

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

; CONTINUE
;GET HARDWARE RECEIVER BC(C LSB

BCS

76%

;BR IF HARD BCC LSB IS SET

ROR
MOV

73%

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

CMP
BNE
scoP1
SCOPE

CALBCC, 748

#10,R0

72%

JERROR, BCC LSB IS CLEAR

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

eanrarenntenveernrevernversr

TEST

tanennnneannancnnneaneaneny

;*TRANSMITTER CRC TEST
s*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY
;*COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT
:;ttt'!""'""'"t""ttti"Q'tt"tttttt'!tt"'i"tl't'ti""'

;
021620
021626

021634
021636
021642
021644
021646
021650
021654

000046
022056

001226
001216

TEST 46
#46,TSTNO

1ST46:

#1STLT7 NEXT
MSTCLR
MoV

004000

027650

(LR
CLR
(LR
(LR

MOV

#1711, (RY)
R3

R&
RS
3
#CRC16,XPOLY

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DMC11

;SET LINE UNIT LOOP
;ZERO BIT COUNT

ADDRESS

;R4 CONTAINS CHAR TO BE LOADED IN STLO
;RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT

;CLEAR SOFT B(C
.LOAD POLYNOMINAL

~N
Po

(=]

pry

o~
~

o [elelolelololelels,

~n (S

3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
39N
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983

ST ST NI NI NI V] N1,V

MACY1 30A(1052)
CIDME
07-JuL-80
CZ0ME.P1Y
01-JuL-80 15: 29

004737
010461
104414

122110
005204
010461
104414
122110

005204
010461

104414
122110

004737
106415

010537
1044615

004537
000001
000000
000000
103405

004737

103006
104020
000404

021774
021776

022000
022000
022004

022034
022040
022042
022044
022046
022052
022054

004737
103401
104021

006037
013737
005203
022703
001346
005003
005204
022704
003404
010461

1046414
122110

005205
022705
001327
104400

13:53
PAGE 77
BASIC RECEIVER TESTS

030016
000004

SEQ 0077

:LOAD SILO WITH 2 SYNCS, SOM SET

JSR
MOV
ROMCLK
122110

PC,SYNLD
R4 ,L(RY)

:PORT4 CHAR

000004

MOV

Ra,4(R1)

;LOAD OUT DATA
; INCREMENT TO NEXT CHARACTER

000004

122110
INC
MOV

INC

ROMCLK

ROM(CLK

122110
JSR

026702
000021
021750
000001
027544

MOV
R5.,3%
DATACLK,1
%SR
RS,SIMBCC

b1 ¥

027766

021750
027652

5¢:

6%:

021752

B8CS

JSR
BCC
HLT
BR
JSR
BCS
HLT

PC,.GETQO
6%
20

6%
PC,GETQO
6%
2’

ROR
MOV

3%
CALBCC,48

INC
CMP
BNE
CLR
INC

000010

000400

R3
#10,R3
23
R3
R4

CMP
BLE
MOV

000004

000400

PC,GCOR

21
DATA(CLK,

1%:
2%:

49:

027766

A
R4 ,L(RY)

ROMCLK

9%:
7%:

122110
INC
CMP
BNE
SCOPE

#400,R4
9s
R4 ,4(RY)

RS
#400,RS
1R3

*NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
‘PORT4 CHAR

*NEXT QORD IS INSTRUCTION, ROMCLK PC=5304

;LOAD OUT DATA
; INCREMENT TO NEXT CHARACTER
‘PORT4 CHAR

;NEXT QORD IS INSTRUCTION, ROMCLK PC=5304

;LOAD OUT DATA
:WAIT FOR OCOR

;CLOCK DATA

;LOAD CHAR FOR SOFT (RC
;SHIFT BCC ONCE

;CALCULATE SOFT BCC
;SOFT SHIFT COUNT
;SOFT CHARACTER
;0LD SOFT BCC
;BR IF SOFT BCC LSB IS SET
;GET HARDWARE
:BR [F OK (CLEARED)

TRANSMITTER B(C LSB

;ERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
;GET HARDWARE TRANSMITTER BCC LSB
;BR IF OK (SET)
;ERROR, BCC LSB WAS CLEAR

;SHIFT SOFT DATA
;LOAD OLD SOFT BCC
s INCREMENT BIT COUNTER
;DONE A FULL CHARACTER YET?
;BR IF NO
;RESTART BIT COUNTER
; INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?
:BR IF

YES

:PORT4 DATA

;NEXT QORD IS INSTRUCTION, ROM{LK PC 5304

;LOAD OUT DATA

: INCREMENT DATA
;DONE BINARY PATTERN YET?
:BR IF NC
:SCOPE THIS TEST

seRerrrereeteeteenenrnnrrnns

TEST

setennevneetennentnvenennne

;*RECEIVER CRC TESY

;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY

'COUNT PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT
R 3222222222222
2222222222222
00000 R R
Rttt tiRRill el

TEST 47

———————

MACY1] 30A(10)2)
07-JuL-80
C/DME. P11
01-JuL-80
1 5:29

6024
4025
4026
4027
4028
4029
4030
[A1}]]
(332
4033
4034

012737
012737

72
74

104412

56
64

i e i i e e
=B DO
VIV IV LN N elelele] o
SO SOOI SNVO

4023

PORIPORNININMNINININDN

4012
4013
6014
4015
(016
4017
4018
4019
6020
401
4022

[elelelelolalslolololoBe] o]

(ZDME

4059

4060
4061
4062

4063

4064
4065
4066
4067

104414
122110

005204
010461
10446414

122110
005204
010461
104414
122110

004737

4035

4036
4037
4038
4039
4040
4061
4042
L043
4044
4045
4046
4047
4048
4049
4050
4051
4052
405%
4054
4055
4056
4057
4058

012711
005003
005004
005005
005037
012737
004737
010461

106415

010537
104415

004537
000001
000000
000000
103405

004737
103006

104022
000404
004737
103401
104023

022236
022236
022242
022250
022252
022256
022260
022262
022264
022270
022272
022276
022300
022302
022304
022310
022312

006037
013737
005203
022703
001346
005003
005204
022704
003404
010461

104414
122110

005205
022705
001327
104400

000047
022314

13:53 PAGE 78
BASIC RECEIVER TESTS

001226
001216

TST47:

MSTCLR

004000

022210
120001

030016
000004

MOV
MOV

027650

#BIT11,(R1)
R3
R4
RS
4%

JSR
MoV

PC,SYNLD
R4, L4(RY)

0MLK

122110
INC

000004

247 ,1SINO
#TSTSO,NEXT

MOV
CLR
CLR
CLR
(LR

MOV

ROM(LK

122110
INC

#CRCY6,XPOLY

R&
R4 ,L(RY)
R&
R4 ,4(R1)

000004

MOV

026702
000032
022206
000001
027544

1%:

JSR
PC,0COR
DATACLK,
3¢
MOV
RS,3%
DATACLK,1
{sk
RS,SIMBCC

3¢
4

0
0

ROMCLK

122110

2%:

030000

BCS
JSR
BC(

5%
P(,GETQI
6%

B8R

B(CS

ROR

INC
(MP

R3
#10,R3

HLT

030000

5%:

JSR

HLT

022206

027652

6%.

022210

MmN

00N010

BNt
(LR
INC

(mpP

000400

BLE
Mov

000034

000400

ROMCLw

9% :
7%.

122110

INC

(MpP

BNE

SCOPE

2?2

PC,GETOL
23

CALBCC,4%

2%
R3
R4

#400,R4

9%
R4&,4(RY)
RS

#400,RS
1%

SEQ 0078

;R1

CONTAINS BASE

DMC11

;R4

CONTAINS CHAR TO BE

;MASTER CLEAR DM(11
;SET LINE UNIT LOOP
;JERO BIT COUNT

ADDRESS

LOADED

IN SILO

;RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT
:CLEAR SOFT BCC
:LOAD POLYNOMINAL

;LOAD SILG WITH 2 SYNCS, SOM SET
:PORT4

CHAR

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

\
;LOAD OUT DATA
: INCREMENT TO NEXT (HARACTER
:PORT4

CHAR

;NEXT QORD IS INSTRUCTION, “OMCLK PC=5304

:LOAD OUT DATA
: INCREMENT TO NEXT CHARACTER
‘PORT4

CHAR

;NEXT Q@ORD IS INSTRUCTION, ROMCLK P(= 5304

;LOAD OUT DATA
;WAIT FOR OLOR

*CLCCK DATA

;LOAD CHAR FOR SOFT (RC(

;SHIFT BCC ONCE
sCALCULATE SOFT BC(
;SOFT SHIFT COUNT
;SOFT CHARACTER
;0LD SOFT BCC

:BR IF

SOFT BCC LSB IS SET

;GET HARDWARE RECEIVER BCC LSB

;BR IF 0K (CLEARED)

JERROR, BCC LSB WAS SET
;CONTINUE WITH TEST
;GET LARDWARE RECEIVER BCC LSB
;BR IF OK (SET)
;ERROKk, BCC LSB WAS (LEAR
;SHIFT SOFT DATA
:LOAD OLD SOFT B7(C
: INCREMENT BIT COUNTER
;DONE A FULL CHARACTER YET?
;BR iF NO
;RESTART BIT COUNTER
; INCREMENT DATA FOR SILO
;DONE BINARY COUNT YET?
:BR IF YES
;PORT4L DATA

:NEXT WORD IS INSTRUCTION, ROMCLK PC-5304

;LOAD QUT DATA

:lNCREHENY DATA
;DONE BINARY PATTERN YET?
;BR

;SCOPE THIS TEST

MACY1T 30A(1052)
(l0ME
07-JuL-80
CZDME .P1
01-JuL-80 15:29

13:53
PAGE 79
BASIC RECEIVER TESTS

SEQ J079

4068

4069
4070
«N

;ereveereeeeertetteeceennee

~NO NN

cececereneccecrcrenecrteeee

;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT
;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252,377
;*THE TRANSMITTER [S CHECKED FOR GOING TO A MARK STATE AFTER THE BC(
;:""""Q'Q""'"""""'Q'Q"'."""C"'"""t""'i""'

;

022314
022322

012737
012737

022330

104412

000050
022646

001226
001216

TST150:

TEST 50

MOV

#50,1STNO

#TSTS1, NEXT

MSTCLR

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

;LOAD OUT DATA SILO
022332
022336
022342
022346
022352
022356
022362
022366
022370
022372
022376
022402
022404
022410
022412

01271
012704
005037
012700
004737

004737
004537
030434
000004
004737
004737
005003
1064415
112405

004000
030434
022436
000004
030016
027034
030152

MOV
MOV

MBIT11,(R1)
#MESDAT R4

;SET LINE UNIT LOOP
:LOAD POINTER TO DATA

JSR

PC,SYNLD

;LOAD 2 SYNCS IN OUT SILO

CLR
MOV

030126
026702

000022

12%:

010502

108
¥4 RO

JSR
-SR
MESDAT
&
JSR
JSR
(LR

PC,OUTRDY
RS ,MESLD

PC,EOM
PC,OCOR
R3

MOovB
Mov

(Ra)+,RS
RS,R2

DATA(CLK, 22

;CLEAR SOFT BC(
;LOAD CHARACTER COUNT

;WAIT FOR OUTRDY
;LOAD SILO WITH & (HAR MESS
;ADDRESS OF MESSAGE
:NUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
;WAIT FOR OCOR
;CLEAR BIT COUNTER

;CLOCK DATA

;LOAD RS WITH (HAR
;LOAD R2 WITH CHAR

;CHECK FIRST FOUR CHARACTER MESSAGE

;IN THE BIT WINDOW (0,125,252,377)
022414
022422
022426
022432
022434

022436
022440
022446
022452
022454

012737
010537
004537
000010
000000
000000
013737
1046415
166002
103005

022500

120001

022434
027544

027652
000001
026650

000404
004737

026650

103001
104006

027650

67%:

004737
103406
104006

= OOV
W

POPOVPIND
b e ed e D ed ek b

and

Y
i

P
X

)
il
i

o
b e

;*TRANSMITTER DOCMP CRC TEST
;*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC

6072
4073

4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
40N
4092
4093
4094
4095
4096
4097
4098
4099
4100
310
4102
4103
4104
4105
4106
6107
4108
6109
6110
6N

TEST

022436

:
108

64%:

MOV

#CRC16,XPOLY

DATACLK,
QORB

CALBCC,108
1
R2

JSR

PC,GETS]

MOV
JSR
10
0
0
MOV

BCC

65%:
66%:

B(S
HLT
BR
JSR

BCC

HLT

RS,67%
RS SIMBCC

65%

:LOAD POLYNOMIAL

SLOAD 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

66$
6
65%
PC,GETSI

SLOOK AT BIT WINDOW
SBR IF OK (MARK)
"ERROR, BIT WINDOW WAS A SPACE
CONTINUE
:LOOK AT BIT WINDOW

"ERROR, BIT WINDOW WAS A MARK

66$

‘BR If OK (SPACE)

2NOO0O0NNVO

RNONIND

PRI

6142
6143

4145

L6154
4155

4156
4157
4158
4159
4160
4161
6162
4163
4164

6165
6166
4167
4168
4169
4170
“Nn
4172
4173
174

4175

4176
4177
4178
4179

1044615

006000
103005
004737
103406
104014
103001
104014

L1464

6147
6148
4149
4150
4151
6152
6153

013700

000404
004737

6141

L1466

005203
022703
001357
005063
005300
001335

13:53

PAGE 80

SEQ 0080

BASIC RECEIVER TESTS
INC
(mp
BNE
(LR
DEC
BNE

000010

R3
#10,R3

;BUMP BIT COUNTER
;OONE FULL 8 BITS VYET

RY
RO
12%

;CLEAR BIT COUNTER
;DEC CHARACTER COUNT
:BR IF NOT DONE YET

648

;BR IF NO

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
NN
N —

6124
4125
6126
6127
(128
4129
6130
AR
6132
6133
6134
4135
4136
6137
4138
4139
L4140

OO0O0OOO

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

022562
022564

005203
022703
001357
005003

027652
000001

68%:

026650

69%:
70$:

000020

MOV

CALBCC,RO

INC
CMP
BN
CLR

022630
022632
022634
022636
022642
022644

104415

004737
103401
1064024

005203
022703
001366

104415
005003
106415

004737
103401
104024

005203
022703
001366

104400

000001
026650

000007

2%:

1 ¥

000010

000001
026650

000020
5%:

:SHIFT
;SHIFT

HARDWARE BC(C
SOFT BCC

:BR IF CARRY CLEAR

;LOOK AT BIT WINDOW
:BR IF Ok (MARK)
:ERROR, CRC WRONG (SPACE)
;CONTINUE
;LOOK AT

BIT WINDOW

;BR IF OK (SPACE)
:ERROR, CRC WRONG

;BUMP BIT COUNTER

68$

:BR IF NO

#20,R3

;FINISHED BCC

JCHECK T O SEE
022566
022572
022576
022600
022602
022604
022610
022612
022616
022620
022624

;PUT BCC IN RO

DATAC.K, 1
RO
ROR
BC(C
69%
PC,GETSI
JSR
70%
BCS
HLT
14
70%
BR
PC,GETSI
JSR
70%
BCC
14
HLT

;CLEAR BIT
IF

TRANSMITTER

1
DATACLK,
PC,GETSI
JSR
b5 3
BCS
HLT
24
R3
INC
#7,R3
cmp
BNc
2%
10
DATACLK,
R3
CLR
1
DATACLK,
PC,GETSI
JSR
RIA
BCS
HLT
24
R3
INC
#20,R3
CMP
43
BNE
SCOPE

(MARK)

YET?

COUNTER

IS MARKING

:CLOCK
;LOOK

TRANSMITTER

WINDOW

;1T SHOULD BE MARKiNG

;ERROR, BIT WAS A SPACE
:BUMP BIT COUNTER
;DONE YET

:BR IF

:GIVE ENOUGH TICKS TO CLEAR OUT
;CLEAR BIT COUNTER
;SHIFT OUT NEXT BIT
;LOOK AT BIT WINDOW
;BR IF IT IS A MARK

ACTIVE

;ERROR, TRANSMITTER IS NOT MARKING

;INC BIT COUNT
;DONE YET?
:BR IF NO

;SCOPE THIS TEST

RO
Y teeverraeteenerenntre

"«RECEIVER DDCMP CRC TEST

TEST

ceanvevtnntennenntranenntenye

“eTHIS TEST CLOCKS A FOUR CHARACTER MESSAGE WITH BCC
J*AND VE RIFYS CORRECT DATA RECEPTION AND BCC MATCH.
;*IN BCC MATCH IS CHECKED TO SEE THAT IT IS NOT ASSERTED
J*UNTIL THE LAST HALF OF THE CRC IS RECEIVED

;*THE FOUR CHARACTER MESSAGE

IS 0,125,252,377

;;t"t'.""'"ii"""""tit..'.ttiQt"t'tttttttttti"l"tttli

13:53
PAGE 81
BASIC RECEIVER TESTS

MACY11 3GA(1052)
CIDME
07-JUL-80
(IDME.PN
01-JuL-80 15:29

6211
6212
6213
6214
6215
4216
4217
4218
6219
4220
6221
6222

6223
6224
6225

022662

104412

022664
022670
022674
022700
022704
022710
022714
022716
022720
022724
022730
022734
022740
022742
0e2744
022750

012711
012702
012700
004737
004737

022752
022754
022756
022760
022760
022762
022764
022770
022774
022776
023000
023002
023004
023006

004537
030434
000004
004737
004737
104415

004737
104414

021204
016104
112205

000051
023074

0 Cie 4 6
0 012 1 6

18751:

004000

MOV

MoV
MOV
MoV
JSR
JSR

030434

000004
030016
027034
030152

JSR

MESDAT

#51,1STNO

#5752, NEXT

#BIT1T,(R1)
#MESDAT ,R?
#4 R0
PC,SYNLD
PC,OUTRDY

RS ,MESLD

030126
026702
000114

027510

JSR
JSR

PC,EOM
FC,OCOR

JSR

PC, INRDY

DATACLK,114
ROMCLK

021204

000004

MOV

4(R1) ,R&

(MPB
BEQ

RS,R&
19

mMove

120504

001401

MLT

104010

104414

021244
016104
042704
005005

TEST 51

MSTCLR

000004
000376

MOV

120504

001401

005300
001352

;R1 CONTAINS BASE DMC11 ADDRESS
;MASTER CLEAR DM(C11
;SET LINE UNIT LOOP
;LOAD POINTER TO DATA
+LOAD CHARACTER COUNT
;LOAD 2 SYNCS IN OUT SILO
;WAIT FOR OUTRDY

;LOAD SILO WITH & CHAR MESS
;ADDRESS OF

MESSAGE

;NUMBER OF CHARACTERS
;LOAD GARBAGE CHARACTER, WITH EOM SET
;WAIT FOR OCOR

. CLOCK DATA
;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET IN DATA

;PUT "'FOUND'" [N R&
;PUT "EXPECTED'" IN RS

: COMPARE RECEIVED DATA

;BR [F 0K
;DATA ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC-5304
«(R1) ,R4

;PUT "'FOUND'" IN R4

BIC
(LR
(MPB
BEQ

#376,R4
RS
RS ,R4
43
15

;IN BCC MATCH ERROR

DEC
BNE

RO
3%

;DEC CHARACTER COUNT
;BR IF NOT DONE YET

HLT

104015

(R2)+,RS

ROM(CLK

021244

;CLEAR UNWANTED BITS

;PUT "'EXPECTED'' IN RS
;IS IN BCC MATCH STILL CLEAR?

;CHECK TO SEE THAT IN BCC MATCH IS SET
023010
023014
023016
023020
023026
023034

023040
023042
023044
023050
023054
023060
023062
023064

004737
104414

021204

116137

042737
004737
104414

021244
016104
042704
012705
120504

001401

104015

027510

JSR

PC, INRDY

;WAIT FOR

000004

021204
MOVB

4{(R1),TEMP3

;PUT

JSR

PC,INRDY

177400

027510
000004
000376
000001

ROMCLK

[, 1,8]

4207
4208
4209
4210

012737
012737

—

4200
4201
6202
4203
6204
4205
4206

022646
022656

(a1,
¥

4198
4199

4180
181
4182
(183
(184
4185
6186
6187
4188
4189
4190
619
6192
4193
4194
4195
4196
4197

SEQ 0081

BIC

ROMCLK

021244

MOV

8IC

MOV

(MPB
BEQ
HLT

1177400, TEMP3
4(R1),R4

#376 R4

RS.R&
25$
15

INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK P(=53064
;GET FIRST HALF OF CR(
IN TEMP3

;CLEAR H] BYTE
;WAIT FOR INRDY

;NEXT WORD [S INSTRUCTION, ROMCLK P(=5304
;PUT ''FOUND'' IN R&

:CLEAR UNWANTED BITS

;PUT "EXPECTED'' IN RS
;1S IN BCC MATCH SET?
;IN BCC MATCH ERROR

MACY11 3GA(1052)
(l0ME
07-JuUL-80
E
. P11
CZDM
01-JuL-80 15:29

4276

6277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289

4290
29

021204

104400

2%:

ROMCLK
021204
SCOPE

;NEXT WORD [S INSTRUCTION, ROMCLK P(C=5304
:GET LAST HALF
;SCOPE

THIS TEST

TEST

nevonveevenerececnnnnennene

;*DDCMP EOM FUNCTION TEST

;*TH]S TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM
;%4 CHARACTER MESS,EOM. THE DATA STREAM S (HECKED TO BE
;%4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT
;*THE CHARCTERS LOADED WITH EOM SET ARE LOST

;*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW

;*THE FOUR CHARACTER MESSAGE

[S 0,125,252,377

;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED
. A2

TEST

023074
023102

012737
012737

023110

104412

000052
024174

001226
001216

1ST152:

MOV
MOV

iRl

ll])

52
#52,1STNO
#TSTST NEXT

MSTCLR

;R1

CONTAINS BASE

DML:1

;MASTER CLEAR DMC

ADDRESS

;LOAD OUT DATA SILO
OO~ NO OO NV
B B I WRIR) — —
OOoNNIONNONVONN
=12 OSSN

012711
012704
005037
012700
004737
004737
004537
030434
000004
004737
004537
030434
000004
004737

023206

010502

b
el
el
el
-l
el
)
il
D
il
o
il
)
)

6262
6263
6264
4265
4266
4267
4268
4269
4270
W27
4272
627%
w274
6275

25%:

104414

SEQ 0082

creareevrecceceeerecscenenene

NN
——

6261

023066
023066
023070
023072

elole) [eelolalolelololololololalele)]
NN 1ROR0 R0 A R AU R0 RD RO R0 R RD RD RO N
U A A A A
G Al AN Ll L U L
N
AN AN A

6236
W2y
4238
6239
L2L0
4261
6242
4243
(2464
4245
4246
Lo47
G248
4249
4250
6251
4252
6253
6254
4255
4256
4257
4258
4259
4260

13:53 PAGE 82
BASIC RECEIVER TESTS

004737
005003
104415
112405

004000

MOV
MOV

#BIT11,(RY)
#MESDAT R4

000004

MoV

#4,R0

JSR
JSR

PC,OUTRDY
RS ,MESLD

:WAIT FOR OUTRDY
:LOAD SILO WITH & CHAR MESS

JSR
JSR

PC,EOM
RS,MESLD

:LOAD GARBAGE CHARACTER, WITH EOM SET
;:LOAD FOUR MORE CHARACTERS

030434
023232

(LR

JSR

030016

MESDAT
4

030126
026702
000022

12%

10%

PC,SYNLD

PC,EOM
JSR
JSR
PC,0COR
R3
(LK
DATACLK,2?
MOV8
(R4)+,RS
MOV
RS,R?

;SET LINE UNIT LOOP
:LOAD POINTER TO DATA

;CLEAR SOFT BC(CC

;LOAD CHARACTER COUNT

;LOAD 2 SYNCS IN OUT SILO
;ADDRESS OF MESSAGE
;NUMBER OF CHARACTERS

;ADDRESS OFf MESSAGE
;NUMBER OF CHACTERS

:CET EOM
;WAIT FOR OCOR
;CLEAR BIT COUNTER

;CLOCK DATA

;LOAD RS WITH CHAR
;LOAD R2 WITH CHAR

;CHECK FIRST FOUR CHARACTER MESSAGE
;IN THE B1T WINDOW (0,125,252,377)
023210
023216
023222
023226
023230
023232
023234

012737
010537
004537
000010
000000
000000
013737

120001

023230
027544

027652

MOV
MOv

027650

JSR

023232

67%:
10%:

0
0

MOV

FCRC16,XPOLY
RS,67%

RS,SImBCC

CALBCC,108

:LOAD POLYNOMIAL
;LOAD SOFT (HAR FOR B((

s CALCULATE SOFT B((
sSHIFT COUNT
; CHARACTER
;0LD B8C(

“COAD SOFT BCC FOR NEXT SWIFT

r—

07-JuL-80
CIDME
MACYYY 30GA(1032 )
(I0Mg . P11
01-JuUL-80 15:29

4292
6293

6296
6295

€296
4297

6298

4299

4300
4301
302

023242
023246
023250
023252

023256
023260

104415
106002

10300%
004737

103406

0004064

023270

103001

023272
02327¢

004737

023274
023276

005203
02270%

:ggg

023310

001335

023302
023304
023306

66Y:

026650

001357
005003
005300

026650

£5%:

66%.

00001C

6316
64315

4316

023312
023316

013700
104415

027652
000001

023326

004737

026650

023322
0233264

023332
023334
023336

6321

023344

4322
432%

006000
103005
103406
104014
000404

023340

004737

023346
023350

104014

103001

6324

023350

005203

4326

023356

001357

6325

4327
4328
0329
4330

6331
4%%%

023352

023360
023362

023366
023372

023%76
023400

02270%
005003
012700
012704
005037

112405
010502

68% .

026650

69%:
708:

000020

JSR

B((

MUY

66$

66%

PC,GETSI

66$
6

;SHIFT DATA IN TO BI7 WINDOW
JSHIFT SOFT DATA
:BR IF A SPA(E
;LO0OK AT BIT WINDOW

:BR IF OK (MARK)

:ERROR, BIT WINDOW WAS A SPA(E
: CONTINUE

;LO0OK AT BIT WINDOW

‘BR IF OK (SPACE)
;ERROR,

BIT WINDOW WAS A MARK

INC
(mp

RY
#10,R8

;BUMP BIT COUNTER
;DONE FULL 8 BITS vET

BNE

12%

:BR [F NOT DONE

MOV
DATACLK

643
R3
RO

000004
030434
023424

13¢:

(ALBCC,RO

ROR
BC(

RO
69%

B(S
HLT
8R

70%
14
70%

P(,GETSI

JSR

PC,GETSI

HLT

B((

;BR [F NO
;CLEAR BIT COUNTER
:DEC CMARACTER COUNT

YET

IN THE BIT WINDOW

;PUT BCC IN RO
:SHIFT HARDWARE BC((
SHIFT
,BR I+

SOFT BCC
CARRY CLEAR

;LOOK AT BIT WINDOW
;BR IF 0K (MARK)
;ERROR, CRC WRONG
: CONTINUE

:BR

INC

;BUMP BIT COUNTER

BNE

68%

MoV
(LR

mov8
MoV

£20,R3

(SPA(E)

:L00OK AT BIT WINDOW

70%

(LR
MoV

:ERROR,

(SPA(E)

CR(

WRONG

(MARK)

;FINISHED BCC ET°
;BR

R3
26 ,R0

;CLEAR BIT COUNTER
:RESET CHARACTER (OUNTER

(R&)+,RS
RS,R2

:LOAD CHAR N RS
:LOAD (HAR [N R?

SMESDAT R4
118

;LOAD MESSAGE POINTER
;CLR SOFT BCC

SCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,092.377

4336

023402

012737

64338
4339
430
31

023414
023420
02322
02%24

004537
000010
000000
000000

«347

MLT

B8R

(mpP

4%%2

6342
343
(346
4365
«366

65%
PC,GETSI

JSR

4337

BCC
JSR

SEQ 0083

;(HECK BCC FOR PRECEDING MESSAGE

0317
4318
«319

«320

DATA(LK,
RORB
R2

BNE
(LR
DEC

2%1?
6312
4313

BCS

104006

4303
6304

4305
4306
4307

00000

PAGE

BASIC RECEIVER TESTS

104006

023262
023264

13:53

023410

023426
023434
02%40
02342
023446

02350

010537

013737
104415
106002
103005
004737

103406

120001

(23422

027650

026650

023424

OCRC16,XPOLY

;LOAD POLYNOM]AL

JSR
10
0
0

RS,SIMBCC

sCALCULATE SOFT B(C
JSHIFT (OUNT
:CMARACTER
;0LD BCC

MoV

027544

027652
000001

MoV

76%
1y

73%

RS, 76%

mov
CALBCC,118
DATACLK,
1
RORB
R2
B((
74%
JSR
P(,GETSI

B(S

754

:LOAD SOFT CHAR FOR B((

:LOAD SOFT BCC FOR NEXT SHIFT
;SHIFT DATA IN 10 BIT WwINDOW
JSHIFT SOFT DATA
;BR JF A SPACE
;L0OK AT BT WINDOwW

"BR .F 0K (MARK)

MACY1Y 30A(1052 )
(10me
07-4uUL~-80
(I0me .PYY
01-JuL-~-80 15 129

4348
6349
&350
6351

0234952
023456

13:53

103001

026650

104006

005203
022703
001357
005003
005300
001335

SEQ 0084

BASIC RECEIVER TESTS

104006

000404
004737

PAGE

74%:

75%:

000010

MLT
BR
JSR

6
75%
PC,GETSI

;ERROR, BT WINDOW WAS A SPA(E
; CONTINUE
;LOOK AT BIT WINDOW

HLT

;ERROR, BIT WINDOW WAS A MARK

INC
Cme

R3
810,83

;BUMP BIT COUNTER
;DONE FULL 8 BITS v¢T

CLR

;CLEAR BIT COUNTER

BNE

13¢

;BR [F NOT DONE YET

B((

BNE

DEC

75¢

CBR IF OK (SPACE)

738

:BR

:DEC CMARACTER COUNT

;CHECK BCC FOR PRECEDING MESSAGE
013700
104415

006000
103005

004737

026650

000404
006737

026650

103406
1040454

023542
023542
023544
023550
023552

027652
000001

103001
104014

005203
022703
001357
005003

77%:

78%
.

79%:

000020

MOV
CALBCC,RO
DATACLK,1
ROR
RO

;PUT BCC IN RO
:SHIFT MARDWARE B((
SSHIFT SOFT BCC

B8R

: CONTINUE

023564
023566
023570
023572
023576
023600
023604
023606
023612
023616
023620
023622
023624
023630

1044615

004737

78%
P{,GETSI
79%
14

JSR
BCC

PC.GETSI
79%

;LOOK AT BIT WINDOW
;BR If OK (SPACE)

INC
(MP
BNE

R3
#20,R3
77%
RY

;BUMP BIT COUNTER
LFINISHED BCC YET®
:BR IF NO
;CLEAR BIT COUNTER

HLT

(LR

103401
104024

005203
022703
001366

000001
026650

000007

104415

000010

106415

000001
026650

005003

004737
103401
104024

005203
022703
001366

DATA(LK,

79%

HLT

DATACLK,

HLT

000020

INC
(MP
BNE

R3
27 ,RY
4)

(LR
R3
DATACLK,

JSR
BCS

TRANSMITTER [S MARKING

PC,OETSI

INC
(mMp
BNE

;ERROR, CRC WRONG (MARK)

JSR

BCS
8.

:BR If CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF OK (MARK)
;ERROR, CRC WRONG (SHArE)

BCC
JSR
BCS
MLT

JCHECK TO SEE
023554
023560

IN TME BIT WINDOW

PC,GETSI
R

;CLOCK

TRANSMITTER

;L00K AT WINDOW

;1T SHOULD BE MARKING
;ERROR,

10
1

BIT

WAS A SPA(E

;BUMP BIT COUNTER
.DONE VYET
;BR ]F NO

;GIVE ENOUGH TICKS TO CLEAR QUT ACTIVE
;CLEAR BIT COUNTER
SSHIFT QUY NEXT 81T

;LOOK AT BIT WINDOW
;BROIF JT IS A MARK
;ERROR,

TRANSMITTER

;INC BIT COUNT
;DONE YET?
;BR IF NO

R3
#20,R3
3

S NOT MARK (NG

CHECK TO SEE THAT FIRST FOUR (HARACTER MESSAGE
;WAS RECEIVED CORRECTLY (0,125,252.377)
023632
023636

104415

012703

000001
000004

DATACLK,

MOV

26 ,R3

;GET

LAST BIT

IN RECEIVER

;RI=CHARACTER (OUNT

CI0Me

MACY1Y

3GA(1032)

6604
4405
4606

023642
023646
023652

012702
004737
104414

030434
027510

(6408
6609
6610
6611
6612
4413
4414
4615
4616
L4617
4618
4619
6420
6621

023656
023662
023664
023666
023670
023672
023674

016104
112205
120504
0016400
104010
005303
001364

000004

023676
023702
023704

004737
104414
021204

027510

6627
LL24
6625
4626
4427
6428
64429
4630

023714
023722
023726
023730
023732
023736
023742
023746

042737
004737
104414
021244
010104
062704
012705
120504

177400
027510

6632
64633
G634
4635
4636
4637
64438
4439
4640
46461
6462
4643

023752
023754
023754
023756
023760
023766
023774
024002
024010
024012

104015

CI0Me . P11

L6a07

4622

4631

0Q7-JuL-80

01-JuUL-80 15:29

023654

021204

13:53

40%:

023750

116137

000004

4450
4451
4452
4453
4454
6455
4456

4457

4458
4459

PC,INRDY

;WAIT FOR

MOV
L)Y]
(MPB
BEG
HLT
DEC
BNE

((RY1) R4
(R2)+,RS
RS R4
38
10
R3
40%

;PUT "'FOUND'' [N Ré
;PUT "EXPECTED'' [N RS
;1S RECEIVED DATA CORRE(T?

JSR
ROM( LK
021204

001252

MOV8B

001252

BIC
JSR
ROM(C LK
021244
MOV
BIC
MOV
(MPB

000004
000376
000001

001401

104414
021204
116137
042737
053737
023737
0014ON
104027

BEQ

50%000004
000377
001250
027652

0C1251
001250
001252
001252

;LOAD MESSAGE POINTER [N R?

#MESDAT ,R¢

(CHECK TO SEE
;AND THAT THE

023706

SEQ 0085

MoV
JSR
ROMCLK

021204

HLT

ROMCLK
021204
MOVB
BIC
BIS
(MP
BEQ
HLT

[NRDY

;NEXT WORD [S INSTRUCTION, ROMCLK P(=5304

;BR IF YES
;RECEIVE DATA ERROR
;DEC CHARACTER COUNT
;BR IF NOT DONE YET

THAT [N BCC MATCH IS SET
BCC WAS RECEIVED CORRECTLY

;WAIT FOR INRDY
;NEXT WORD IS INSTRUCTION,

PC.INRDY

4(R1) ,TEMPY
#177400,TEMP3

;GET FIRST HALF OF (RC

;PUT

ROM(C.K PC-5304

IN TEMP3

;CLEAR H] BYTE

PC,INRDY

;WAIT FOR INRDY
JNEXT WORD IS INSTRULTION,

L(R1),R4
376 ,R4
#,RS
RS R4

;PUT “'FOUND'' IN Ré&

ROMCLK

P(=5304

;CLEAR UNWANTED BITS

;PUT "EXPECTED’ IN RS
;1S IN BCC MATCH SET?

50%

;IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC 5304
:GET LAST HALF

L(R1),TEMPZ2
1
377 ,TEMP2

;PUT

CALBCC,TEMPY

;1S 1T CORRECT?

TEMP2,TEMPY

423

[N TEMP?

;CLEAR LO BYTE

;16 BIT BCC NOW IN TEMP3
;B8R

;CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125,252.,377)

4464

6445
4445
4447
4668
4649

PAGE 85

BASIC RECEIVER TESTS

024014
024020
024024
024030

024032
024034
024040
024042
(024044
024046
024050

024052

012703
012702
004737
104414

021204
016104
112205
120504
001401

104010
005303

001364

000004
030434
027510

42%:

63%:

MOV
[[0]"
JSR
ROMCLK

021204
[, [0]"
[ [0]"]:]
(MPB
BEQ

000004

L4s:

HLT
DEC

BNE

#4 ,R3
IMESDAT ,R?
PC.INRDY
L(R1) ,R4
(R2)+,RS
RS ,R4
X3
10

R3
633

;CHECK TO SEE

THAT

;R3=CHARACTER COUNT

;LOAD MESSAGE POINTER IN RZ

;WAIT

FOR

INRDY

;NEXT WORD IS INSTRUCTION, ROMCLK P(-5304
;PUT ''FOUND'' IN R&
;PUT 'EXPECTED'" IN RS
;1S RECEIVED DATA CORRE(T?
:BR

YES

;RECEIVE DATA ERROR
:DEC CHARACTER COUNT
;BR [F NOT DONE YET
IN BCC MATCH IS SET

—

13:53
PAGE 86
BASIC RECEIVER TESTS

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

4467
L4L68
4469
4670
INNA
4672
4473
L4474
44675

4476
4677

4478
4479
4480
4481
4482
4LBY
4484
L4L8S
L4486
4487
4488
4489
4490

024160
024166
024170
024172

116137

042737
004737
1044614

021244
016104
042704
012705
120504
001401

000004

177400

W,]

021204

027510
~noON

1044614

6666

004737

norO

(464

4465

024054
024060
024062
024064
024072
024100
024104
024106
024110
024114
024120
024124
024126
024130
024132
024132
024134
024136
024144
024152

4462
4463

;AND

(el]
lole]

L4660
L4671

104414

000004
000377
001250
027652

*WAIT FOR INRDY

4(R1),R&
#376 R4
0 ,RS
RS.R&
51%

;PUT "FOUND'* IN R&
*CLEAR UNWANTED BITS
tPUT “EXPECTED'' IN RS
1S IN BCC MATCH SET?

HLT

ROMCLK
021204
MOVB
BIC
CMP
BEQ

5¢:

HLT
SCOPE

4(R1),

TEMP3

#177600,TEMP3

4(R1),TEMP2+1

#377,TEMP?
TEMP2, TEMP3
CALBCC,TEMP3
5¢
27

;WAIT FOR [NRDY
*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
‘GET FIRST WALF OF CR(
‘PUT IN TEMP3

:CLEAR H] BYTE

*NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;IN BCC MATCH ERROR

:NEXT WORD IS INSTRUCTION, ROMCLK PC-5306
SGET LAST HALF
:PUT IN TEMP2
“CLEAR LO BYTE

216 BIT BCC NOW IN TiMp3
IS IT CORRECT?
:BR IF OK
:SCOPE

creaeneranrerenevreesennnnnsr

THIS TEST

TEST

sentnnnnevnnnnetrncerrncere

;*DDCMP EOM FUNCTION TEST

;*THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM
;*SOM,4 CHAR MESS,EOM. THE DATA STREAM IS (HECKED TO BE
;*6 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT

L4911
(492

4493
L4694
4495
4496
(497
4498
L499
4500
4501
4502
4503
4504
4505

PC, INRDY

BIS

104027
104400

CORRECTLY

JSR

MOV
BIC
MOV
C(MPB
BEQ
51%:

BCC WAS RECEIVED

PC.,INRDY

88?5%5

000004
000376
000001

THE

JSR
ROMCLK
021204
MOVB

BIC

027510

104015

021204
116137
042737
05373%7
023737
001401

THAT

SEQ 0086

;*THE

CHARCTERS LOADCD WITH EOM SET ARE

LOST

;*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BC(
;*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

;:t.i""""Q""'fi"""i."'it".'i"t't""'tt.ttt"ilitt"t

024174
024202

012737
012737

024210

104412

000053
025374

001226
001216

TST53:

MOV
MOV

#53,TSTNO

215754, NEXT

MSTCLR

:R1

CONTAINS BASE

DMC11

;MASTER CLEAR DMC(C11

ADDRESS

;LOAD OUT DATA SILO
024212
024216
024222
024226
024232
0242%6
024242

012711
012704
005037
012700
004737
004737
004537

004000

030434
024336
000004
030016
027034
030152

MOV
MOV

#BIT1T, (RY)
FMESDAT R4

JSR

PC,SYNLD

CLR
MOV
JSR

JSR

10%
¥4 RO

PC,OUTRDY

RS,MESLD

;SET LINE UNIT LOOP
;LOAD POINTER TO DATA

:CLEAR SOFT BCC
;LOAD CHARACTER COUNT

;1 0AD 2 SYNCS IN OUT SILO

;WAIT FOR OUTRDY

;LOAD SILO WITH & (HAR MESS

VNN [V

4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
45461
4542

4543

4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569

4570
4SSN

024266
024270
024272
024276
024302
024304
024310
024312

004737
004537
030434
000004
004737
004737
005003
104415
112405

MESDAT
4
JSR
JSR

VNN

030434
000004
004737

13:53
PAGE 87
BASiC RECEIVER TESTS

oo~

024246
024250
024252
026256
024262

OOO
W NN
OO0
—_
—

(aalaal
= b d

IV TV IV IV IV IV B

(o RV P YV N —=2OOWO~NO

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

nONINOND PIPUAD

P2k
¥
s0rrrr

9
(9

JSR

MESDAT
4

030126
026702

JSR
JSR

000022

12¢:

010502

SEQ 0087
;ADDRESS OF MESSAGE
;NUMBER OF (HARACTERS

;LOAD GARBAGE CHARACTER, WITH EOM SET

PC,EOM
PC,SOM

;LOAD GARBAGE CHAR WITH SOM SET

RS ,MESLD

;LOAD FOUR MORE CHARACTERS
;ADDRESS OF MESSAGE
;NUMBER OF CHACTERS

PC,EOM
PC,0COR

;SET EOM
;WAIT FOR OCOR

CLR
R3
DATACLK, 22
MOvB
(R&)+,RS
MOV
RS ,R2

;CLEAR BIT COUNTER
;CLOCK DATA

;LOAD RS WITH CHAR
;LOAD R2 WITH CHAR

;CHECK FIRST FOUR CHARACTER MESSAGE

;IN THE BIT WINDOW (0,125,252,377)

024314
024322
024326
024332
024334
024336
024340
024346
024352
024354
024356
024362
024364
024366
024370
024374
024376
024400
024400
024402
024406
024410
024412
024414

012737
010537
004537
000010
000000
000000
013737
104415
106002
103005

004737
103406
104006

000404
004737

103001
104006

005203
022703
001357
005003
005300
001335

027650

MOV

67%:

027652
000001

024336

10%:

648

026650

MOV
JSR
10
0
0
MOV

DATACLK,
RORB

669%:

000010

RS.67%
RS SIMBCC

CALBCC,10$
R2

;LOAD POLYNOMIAL

:LOAD SOFT (HAR FOR B(C
:CALCULATE SOFT BCC
“SYUIFT COUNT
CHARACTER
20LD BCC
*LOAD SOFT BCC FOR NEXT SHIFT

“SNIFT DATA IN TO BIT WINDOW
SSHIFT

SOFT DATA

BCC
JSR

65%
PC,GETSI

‘BR IF A SPACE
:LOOK AT BIT WINDOW

HLT

‘ERROR, BIT WINDOW WAS A SPACE

HLT

;ERROR, BIT WINDOW WAS A MARK

BCS
65%:

#CRC16,nPOLY

BR
JSR
BCC
INC
CMP
BNE
CLR
DEC
BNE

66$

66$
PC,GETSI
66$
R3
#10,R3
64%
R3
RO
129

:BR IF OK (MARK)

*CONTINUE
:LOOK AT BIT WINDOW
‘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

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
024416
024422
024426

024430
024432
024436
024440
024442
024444
024450
024452
024454

013700
106415

006000
103005

004737
103406
104014

000404
004737
103001
104014

027652
000001

68%:

026650

MoV
CALBCC,RO
DATACLK,1
ROR

699%:
70%:

;SHIFT SOFT BCC

BCC
JSR
BCS

69%
PC,GETSI
70%

:BR [F CARRY CLEAR
;LOOK AT BIT WINDOW
:BR IF OK (MARK)

BR
JSR
8((

70$
PC,GETSI
70%

; CONTINUE
;LOOK AT BIT WINDOW
;BR IF Ok (SPACE)

HLT

026650

;PUT BCC IN RO
;SHIFT HARDWARE BCC

HLT

;ERROR,

CRC WRONG

(SPACE)

;ERROR,

CRC WRONG

(MARK)

MACY11 30A(1052)
CIDME
07-JuL-80
CZDMt .P11
01-JuL-80 15 129
4572
457%
6574

4575
(576
4577
4578
4579
4580
4581
4582
458%
4584
4585
4586
4587
4588
4589
4590
459
4592
4593
4594
4595
4596
4597
4598

4599

4600
4601
4602
4603
4604
4605

4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616

4617
4618
4619
4620
4621

4622

462%

4624
4625
4626
4627

024454
026456
024462
024464

005203
022703
001357

13:53
PAGE 88
BASIC RECEIVER TESTS
INC
(MP
BNE
CLR

000020

005003

SEQ 0088

R3
#20,R3

:BUMP BIT COUNTER
;FINISHED BCC YET?

;CLEAR BIT COUNTER

68%

;B8R IF NO

;CHECK C HARACTER LOADED WITH SOM (000),
024466
024470
024472
024476
024500
024502
024506
024510
024512
024514
024520
024522
024524
024526
024532
024534
024536
024542
024546
024552
024554

024556
024564
024570
024574
024576
024600
024602
024610
024614
024616
024620
024624
024626
024630
024632
024636
024640
024642
024642
024644
024650
024652
024654
024656

005005
010502
1064415
106002

103005
004737
103406

CLR

32%:

000001
026650

104006

000404
004737

103001
104006

005203
022703
201357
005003
012700
012704
005037
112405

30%:

026650

31%:

000010

000004
030434
024600

104415
106002
103005

004737
103406
104006

000404
004737
103001
104006

005203
022703
001357
005003
005300
001335

120001

024576
027544

027652
000001

138

027650

024600

1%
73%:

74%:

75%:

000010

BCC
JSR
BCS
HLT
BR
JSR
BCC
HLT
INC
cMP
BNE
CLR
MoV

RS
RS,R2

R2
308

PC,GETSI

31¢
6
R3

;:BR IF 0K (SPACE)
;ERROR,BIT WINDOW WAS A MARK
;:BUMP BIT COUNTER

32%

:BR IF NO

;LOOK AT BIT WINDOW

:DONE

CLR

;CHECK

S ECOND MESSAGE

(R4)+,RS
RS,R2

#CRC16,XPOLY
RS, 76%

RS,SIMBCC

MOv

CALBCC,118

RORB

R2
74%
PC,GETSI
75%

DATACLK,

BC(C
JSK
BCS
HLT
BR
JSR
8c(
HLT

INC
CMP
BNE
(LR
DEC
BNE

;SHIFT SOFT DATA
:BR [F SPACE

;LOOK AT BIT WINDOW

R3
#4,R0
#MESDAT RS
11%

JSR
10
0

:CLOCK TRANSMITTER

:BR IF 0K (MARK)
;ERROR,BIT WINDOW WAS A SPACE
; CONT INUE

#10,R3

MOvVSB
MOV

; CHARACTER LOADED WITH SOM
;LOAD R2 WITH CHAR

318
6
31¢

PC,GETSI

MOV
MOV

026650

DATACLK,

RORB

MoV

010502

012737
010537
004537
000010
000000
000000
013737

MoV

IN THE BIT WINDOW

75%
PC,GETSI
75%

CHARACTER YET?

;RESET BIT COUNTER
:RESET CHARACTER COUNTER
;LOAD MESSAGE
;CLR SOFT BCC

POINTER

:LOAD CHAR IN RS
:LOAD CHAR IN R2

[N THE BIT WINDOW (0,125,252,377)
:LOAD POLYNOMIAL
;LOAD SOFT THAR FOR BC(C

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

;ERROR, BIT WINDOW WAS A SPACE
; CONT INUE
:LOOK AT BIT WINDOW
:BR IF 0K (SPACE)

;ERROR, BIT WINDOW WAS A MARK

R3
#10,R3
73%
R3
RO
13¢

;:BUMP BIT COUNTER
;DONE FULL B BITS YET
:BR IF NO
:CLEAR BIT COUNTER
;DEC CHARACTER COUNT
:BR IF NOT DONE YET

MACY11 30A(1052)
CIOME
07-JuL-80
e
. P11
C0m
01-JuUL-80 15:29
4628
4629
4630

4631
£632
4633
4634
4635
4636
4637
4638

4639
4640
L6461
4642
4643
4644
L6465
4646
4647
4648
4649
4650
4651

4652
4653

4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
174
4072
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682
4683

13:53
PAGE 89
BASIC RECEIVER TESTS

SEQ 0089

;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW
024660
024664
024670

024672
024674
024700
024702
024704
024706
024712
024714
024716
024716
024720
024724
024726

013700

027652
000001

004737

026650

1064415
006000
103005

103406
1064014
000404

004737
103001
104014

005203
022703
001357
005003

026650

77%:

MOV

CALBCC,RO

;PUT BCC

8CC
JSR
BCS

78%
PC,GETSI
79%

;BR IF CARRY CLEAR
:LOOK AT BIT WINDOW
;BR IF OK (MARK)

BCC

79%

;BR IF OK

DATACLK,1
ROR
RO

78%:

HLT
BR
JSR

298

HLT

INC
CMP
BNE
CLR

000020

14
79%
PC,GETSI

IN RO

;SHIFT HARDWARE BCC
;SHIFT SOFT BCC

;ERROR, CRC WRONG (SPACE)
; CONTINUE
:LOOK AT BIT WINDOW

;ERROR,

R3
#20,R3
77%
R3

(SPACE)

CRC WRONG

(MARK)

;BUMP BIT COUNTER
;FINISHED BCC YET?
:BR IF NO
;CLEAR BIT COUNTER

CHECK TO SEE IF TRANSMITTER IS MARKING
024730
024734
024740
024742
024744
024746
024752
024754
024760
024762
024766
024772
024774
024776
025000
025004

104415

004737
103401
104024

005203
022703
001366
104415
005003
104415

004737
103401
104024

005203
022703
001366

000001
026650

000007

2$:

JSR

PC,GETSI

HLT

(MP
BNE

#7,R3
23

BCS
3%:

000010

000001
026650

DATACLK,

(%:

INC

PC,GETSI
.t

INC
(MP
BNE

R3
#20,R3
4

;CLOCK TRANSMITTER
;LOOK AT WINDOW

;17 SHOULD BE MARKING

;ERROR, BIT WAS A SPA(E

JSR
BCS
HLT

000020

DATACLK,
R3
CLR

DATACLK,

;BUMP BIT COUNTER

10
1

;DONE YET
:BR IF NO

;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE
;CLEAR BIT COUNTER

;SHIFT OUT NEXT BIT

;LOOK AT BIT WINDOW
;BR IF IT IS A MARK
;ERROR,

TRANSMITTER

s INC BIT COUNT
;OONE YET?
:BR IF NO

IS NOT MARKING

;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE

;WAS RECEIVED CORRECTLY (0,125,252,377)
025006
025012
025016

025022
025026
025030
025032
025036
025040
025042
025044
025046

025050

104415
012703
012702
004737

000001
000004
030434
027510

40%:

000004

L1%:

DATACLK,
1
MOV
¥4 ,R3
MOV
#MESDAT ,R2

;GET LAST BIT IN RECEIVER
;R3I=CHARACTER COUNT
:LOAD MESSAGE POINTER IN RZ

gg?gbf

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

JSR

PC,INRDY

MOV
Mov8e
(MPB
BEQ

4(R1),R&
(R2)+,RS
RS,R
1%

;PUT ''FOUND'' IN R&
:PUT "EXPECTED'' IN RS
;1S RECEJVED DATA CORRE(CT?
;BR IF YES

BNE

(0%

;BR IF NOT DONE YET

HLT
DEC

10
R3

;WALIT FOR

INRDY

;RECEIVE DATA ERROR
;DEC CHARACTER COUNT

;CHECK TO SEE THAT IN BCC MATCH IS SET

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

13:53 PAGE 90
BASIC RECEIVER TESTS

2ggg

;AND THAT THE BCC WAS RECEIVED CORRECTLY

4686

025052

004737

(688

025060

021204

025070

042737

025102

104414

4687

025056

4689

025062

4691

025076

4690
4692

4693

4694
4695
4696

4697
4698
4699
4700

4701

4702

000004

004737

027510

025122
025124
025126
025130

120504
001401
104015

025106
025112
025116

025130

016104
042704
012705

021204

025150

053737

025156
025164

025166

177400

JSR

ROMCLK

0212064

001252

:GET FIRST HALF OF CRC

#177400,TEMP3
4(R1),R4
#376,R4
#1,RS
RS,R4
50%
15

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

023737
001401

027652

001252

CMP
8EQ

CALBCC,TEMPY
45%

BIS

104027

HLT

IN BCC MATCH SET?

:IN BCC MATCH ERROR

4(R1),TEMP2+1
#377,TEMP2

001252

:WAIT FOR INRDY

:1S

MOVB
BIC

001250

:CLEAR HI BYTE

;PUT "FOUND'' IN R&
:CLEAR UNWANTED BITS
:PUT "EXPECTED'' IN RS

ROMCLK
021204

:PUT IN TEMP3

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

001251
001250

TEMP2, TEMP3

:GET LAST HALF

:PUT IN TEMP2
:CLEAR LO BYTE

116 BIT BCC NOW IN TEMP3
;IS IT CORRECT?
;BR [F 0K

;CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000)
027510

4716
4715
4716
4717
4718
2;;8

025176
025200
025204
025206
025210
025212

021204
016104

000004

025174

104614

005005

45%:

120506
001401

104010

(721

2;5%

JSR

PC,INRDY

021204
MOV
CLR
CMPB
BEQ
HL"

4(R1),R4
RS
RS, R4
423
10

:CHECK

TO SEE

MOV
MOV
JSR

26 ,R3
#MESDAT,R2
PC, INRDY

:R3=CHARACTER COUNT
:LOAD MESSAGE POINTER IN R2
‘WAIT FOR INRDY

4(R1),R4
(R2)+,RS
RS ,R&
448
10
R3
438

;PUT "'FOUND'' IN R4
:PUT “EXPECTED'' IN RS
:1S RECEIVED DATA (ORRECT?
:BR IF YES
:RECEIVE DATA ZRROR
:DEC CHARACTER COUNT
‘BR IF NOT DONE YET

ROMCLK

THAT

:WAIT FOR

INRDY

SNEXT WORD IS INSTRUCTION, RCMCLK PC=5304
:GET RECEIVE DATA
SPUT “FOUND'" IN R&

;PUT “EXPECTED'' IN RS

;1S RECEVIED DATA CORRE(T?
:BR IF YES

;RECEIVE DATA ERROR

SECOND FOUR CHARACTER MESSAGE

‘WAS RECEIVED CORRECTLY (0,125,252.377)

4724
4725
4726

025214
025220
025224

(012703
012702
004737

4728

025232

021204

4739

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

000004
000377

004737

4737
4738

CMPB
BEQ
HLT

:WAIT FOR INRDY

116137
042737

025170

4729
4730
4731
4732
4733
4736
2;%2

PC, INRDY

MGV
BIC
MOV

50%:

4712

4727

JSR

021244

2;}?
4713

4(R1),TEMP3

BIC

000004
000376
000001

PC, INRDY

MOVB

ROMCLK

1064414

025132

4706
4707

027510

116137

021244

025134
025142

2;83

104414

025104

4703
4704

4705

SEQ 0090

025230

025234
025240
025242
025244
025246
025250
025252

104414

016104
112205
120504
001401
104010
005303
001364

000004
030434
027510

$2%:
$3%:

ROMCLK

021204

000004

448

MOV
MOVB
CMPB
BEQ
HLT
DEC
BNE

SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304

;CHECK TO SEE THAT [N BCC MATCH IS SET
CAND THAT THE BCC WAS RECEIVED CORRECTLY

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

4740
G761
6742

004737

L7464
4745
4746
4747
4748
4749
4750
4751
4752
475%
4754
4755
4756
757
4758
4759

042/37
004737

000004
177400
027510

021244
016104
042704
012705

000004
000376
000001

104414

120504
001401
104015

116137

042737
053737
023737
0014
025372

4784

4785
4786

4787

4788
4789
4790
L4791

4792
479%
4794
4795

—b
—

PC.INRDY

JSR

PC, INRDY

BIC

51¢%:

000004

000377
001250
027652
5%:

4(R1),TEMP3

#177600,TEMP3

;WAIT FOR INRDY
SNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;GET FIRST HALF OF CRC(
‘PUT IN TEMP3

:CLEAR W] BYTE

‘WAIT FOR INRDY

'NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304

4(R1),R&
#376 ,Ré

:PUT "'FOUND'' IN R
"CLEAR UNWANTED BITS

(MPB
BEQ

RS.R&
51¢

1S IN BCC MATCH SET?

HLT

#1,RS

:PUT "'EXPECTED'' IN RS

:IN BCC MATCH ERROR

ROMCLK
021204
MOVB
BIC

4(R1),TEMP2+¢1
#7377, TEMP2

:NEXT WORD IS I*STRUCTION, ROMCLK PC=5304
"GET LAST HALF
:PUT IN TEMP2
*CLEAR LO BYTE

CMP
BEQ

CALBCC,TEMP3
5¢

1S IT CORRECT?
‘BR [F OK

BiS

104027
104400

SEQ 0091

MOV
BIC

MOV

HLT

SCOPE

TEMP2, TEMPY

216 BIT BCC NOW IN TEMP3

-SCOPE THIS TEST

et cesettesenevrenveenvnt

JEST

revnrennnnvnnventttnnnenten

;*EMPTY SILO TEST

4767

4768
4769
4770
“N
4772
477%
4774
4775
4776
W777
4778
4779
4780
4781
4782
478%

JSR
ROMCLK
021204
MOVB

gg?gkf

104414

021204

4760
4761

6762
4763
4764
4765
4766

(a1, 8]

021204
116137

6743

PAGE 91

BASIC RECEIVER TESTS

027510
O
oo

104414

13:53

;*LOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK

;*UNTIL THE SILO IS EMPTY, LOAD & MORE CHARACTERS IN THE

;*SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST
;¢4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS

IS CLEAR

;:.""""""'""""'l't't".i"""ttt""t"ttl'Q'QQ'.Q"'

000054
025626

025374
025402

025410
025412
025416
025422
025426
025432
025436
025442
025444
025446
025452
025456
025462
025464
025466
025472
025476

004000
030434
000004
030016
027034
030152

001226
001216

1ST1564:

TEST

MOV
MOV

MSTCLR
MOV
MOV
MOV

JSR
JSR
JSR

MESDAT

#54,1STNO
#ISTSS ,NEXT
#1711, (R1)

#MESDAT ,R2
#4 R0
PC,SYNLD
PC,OUTRDY
RS, MESLD

026702
000065
03C1<?

PC,OCOR
JSR
65
DATACLK,
JSR
RS ,MESLD

MESDAT

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

ADDRESS

:R2 POINTS TO MESCAGE
;RO = CHAR COUNT
;LOAD SILO WITH TWO SYNCS
:WAIT FOR QUTRDY
;LOAD MESSAGE IN SILO
;START OF

MESSAGE

; CHARACTER COUNT

;WAIT FOR OCOR
;CLOCK DATA (EMPTY SILO)
;PUT MORE CHARACTERS IN SILO

026702
1046414

000005

JSR

DATACLK,

ROMCLK

PC,0COR

;CLOCK UNTIL RTS IS CLEARED

LNEXT WORD IS INSTRUCTION, ROMCLK PC-5304

CIOME
MACYTIY 30A(1052)
07-0uL-80
CIOME . PN
01-JuL-80 15:29
4796

025500

021264

64798
4799
(800
64801

025510
025512
025514
025520

001400
104034
104415
004737

4797

4802
4BO3
4804

4805

4806
4807
4808
4809
60810
4811
4812
64813
48146
815
4816
4817
(818
4879

025502

025524
025526
025530

025534

032761

104414
021204
016104

112205

025536
025540
025542
025544
025546
025550
025554
025556
025560
025564
025570
025572
025574
025576

120504
001401
104010
005300
001364
004737
104414
021204
016104
012705
120504
0014601
104010
004737

64821
64822

025604
025606

021204
016104

64825
4826

025620
025622

00160
104010

64820

4823
4826

4827
4828
4829
4830

025602

025612
025616

025624
025624

104414

012705
120504

000040

13:53 PAGE 92
BASIC RECEIVER TESTS
021266

000004

000041
027510

BIT
5%:
R ¥

000004

BEQ
5%
HLT
34
DATACLK,
41
JSR
P, INKDY

ROMCLK
021204
Mov

mMove

2%:

027510

000004
000377

027510

(MPB
BEQ
MLT
DEC
BNE
JSR
ROM(CLK
021204
MoV
MOV
(MPB
BEQ
HLT
JSR

ROM(CLK

021204
MOV

000004

000377

MOV
(MPB

10%:

104400

#B175,4(RY)

BEQ
HLT

L(RY) ,R4

(R2)+,PS

RS,RG
2%
10
RO
1%
PC,INPDY

SEQ 0092
;GET RTS

;1S 1T CLEAR?

;BR [F YES
;ERROR, RTS NOT (LEAR
;CLOCK XMITTER SOME MORE
;0K LETS CHECK WHAT WAS RECEIVED

SNEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;GET RECEIVE DATA
:PUT IT IN RG

;RS = "EXPECTED"

4(R1) ,R4
#377.RS
RS,R&
43
10
PC,INRDY

;1S DATA CORRE(CT?
;BR [F 0K
;DATA ERROR
;DEC CHAR (OUNT
;BR [F NOT DONE YET
;WAIT FOR INPDY
SNEXT WORD IS INSTRUCTION, ROMCLK PC-5304
;GET RECEIVE DATA
;PUT IT IN "'FOUND''
;RS = "'EXPECTED"
; SHOULD SEE 377
;BR IF 0K
;ERROR, TRANSMITTER DID NOT ABORT
;WAIT FOR INRDY

4(R1),R4

;GET RECEIVE DATA
;PUT IT IN “'FOUND''

10%
10

;BR IF 0K
;ERROR, TRANSMITTER DID NOT ABORT

#377,RS
RS,R&

SCOPE

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

sRS = "EXPECTED"'
; SHOULD SEE 377

;SCOPE

THIS

4831

Jeverenrecteerneerteeneenner

4832
4833
4834

J*HALF DUPLEX TEST
;*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A
;*MESSAGE. VERIFY THAT IN=-ACTIVE AND IN-READY ARE (LEAR

LB3S

4836

;

4839
4840
4841
0842
4843

025626
025634

012737
012737

025642
025644

104412
012702

000012

4845

025654

012761

000020

4844

4846

847

025650
025662
025664

012711

104414

122113

848

(025666

004737

4850

025676

004537

4849
4851

attnracrennteaetae
RO RRLY

R
R R R
R R
Rl

«83%7

4838

JESQT

TEST

025672

025702

004737
030434

000055
025744

004000

001226
001216

000004

T1STS55:

TEST 55

j=ee=cececcccane

MOV
MOV

#55,1STNO
#TSTS56,NEXT

MSTCLR
MOV

912,R2

:R7 CONTAINS BASE OMC11 ADDRESS
;MASTER CLEAR DM(11
:SAVE R2 FOR TYPEOUT

MOV

#B1IT4L,4(RY)

sLOAD PORT4

MOV

ROMCLK

122113

4BI1T11,(RY)

30016

JSR

PC,SYNLD

030152

JSR

RS ,MESLD

027034

JSR

MESDAT

PC,OUTRDY

;SET LINE UNIT LOOP

:NEXT WORD IS INSTRUCTION, ROMCLK P(C-5304
;SET W/D BIT

;LOAD 2 SYNCS

;WALT FOR QUTRDY

;LOAD & CHAR MESSAGE
ADDRESS OF MESSAGE

MACY11 30A(1052
C20ME
07-JuL-80
C(20me P11
01-JuL~-80
5.29

000004
004737

6852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4,863
4864
4865

104415
104414

021244
016104
042704
005005
120504
001401

13:53

4897
4898
4899
4900
4901
4902
4903
4904
4905
4906

4907

SEQ 0093

)

026702
000073

;CHARACTER COUNT

JSR
PC,OCOR
DATACLK,
73
ROMCLK
021244
MOV
4(R1) R4
8I(C
#257 R4
(LR
RS

000004
000257

(mMPB

RS .RG

HLT
SCOPE

8tQ

104035
104400

;WAIT FOR OCOR
;SEND MESSAGE
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
;READ LU-12
;PUT "'FOUND'' IN R&
;CLEAR UNWANTED BITS
;RS = "EXPECTED'’

;IN=ACTIVE AND [N=RDY SHOULD BE CLEAR

;BR

;ERROR BOTH ARE NOT

srernereeteveerreerreerennny

LB66
64867
4868
4869
4870
(871
4872
4873
LB74
LB75
4876

L877
4878
LB79
4880
(881
4882
4883
4884
4885
4886
4887
4,888
4889
4890
4891
4892
4893
4894
4895
4896

PAGE 93

BASIC RECEIVER TESTS

TEST

CLEAR

trevvnvcenncccecnncernnnere

;*DDCMP CABLE DATA TFST
;*THIS TEST LOADS OUY SILO WITH THE FOLLOWING:
;%4 SYNCS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM

;*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO
;*THE

DATA

[S TRANSMITTED OVER

THE

CABLE USING THE

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH
;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST
; A2 A XA

;
025744

025752

012737
012737

025760

104412

025762
025770
025772
025776
026002
026006
026014
026020
026024

032737
001557
012711
004737
004737
012737
005037
012703
012702
112237
004537
000010
000000
000000
013737

000056

026332

001226
001216

000020
004737

MOV

004000
030016
030016
120001

026044
000020
030440
026042

001366

027544

027652

#TSTST NEXT

:R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C

#BIT14,STATT
b1

;SKIP TEST IF NO
;LOOPBACK CONNECTOR ON

JSR
JSR

PC,SYNLD
PC,SYNLD

;LOAD 2 SYNCS
;LOAD 2 MORE SYNCS

MOV
CLR
MOV
MOV
MOV3

JSK
10

026044

ARttt

BIT
BEQ

MoV

027650

#56,TSTIND

MSTCLR
040000

AR AR

TEST 56

0
0

MOV

#BIT11,(RT)

#CRC16,XPOLY
6%
#16.,R3
#FLTDAT,R?
(R2)+,5%

RS,SIMBCC

CALBCC,6%

:LOAD POLYNOMIAL FOR SOFT CRC CALC
;CLEAR OLD 8CC
;CHARACTER COUNT
:R2= POINTER
;LOAD CHAR FOR SOFT BCC CALC.

;CALC SOFT B(CC
;SHIFT COUNT

s CHARACTER
;0LD BCC

sLOAD OLD B(CC

R3
7%
RS,MESLD

;DEC COUNT
;BR IF NOT DONE YE!
;LOAD SILO

JSR

PC,EOM
RS,MESLD

;LOAD SILO

FLTDAT
16.
JSR

PC,EOM

ADDRESS

;SET LINE UNIT LOOP

DEC
BNE
JSR

FLTDAT
16.
JSR

026100
026102
026104

AR AR

INTERNAL

sMESSAGE ADDRESS
;CHARACTER COUNT
:LOAD AN EOM

;MESSAGE ADDRESS
;CHARACTER COUNT
.LOAD AN EOM

(LOCK

Rll/

(I0ME

MACY1Y 30A(1052)
07-JUL-B0
01-JuL-80 15

C20me .P11
4908
4909

4910

N
(912

4913
(914
4915
6916
4917
4918
6919
4920
4921
4922
4923
4926
4925
4926

6927
(4928

4929
4930
4931
4932
4933
4936
4935
4936
4937
4938
4939
49640
4941
4942
4943
4944
6945
6946
4947
4948
4949
4950

4951
4952
4953
495
4955
4956
4957
4958
4959

4960
4961
4962
4963

0261 0
0261 &
0261 6
0261 0
0261 &
026130
026132
026136
026142
026146

026152
026154
026156
026162
026164
026166
026170
026172
026172
026174
026176

004537

030440

000020
004737
004737
005011
012700
012703
012702
004737
104414
021204
016104
112205
120504
001401
104025

13:33 PAGE 9
BASIC RECE]IVER TESTS

030152

JSR

RS ,MESLD

030126
026702

16.
JSR
éS:

PC,EOM
PC,OCOR

000003
000020
030440
027510

MOV
MOV
MoV
JSR

FLTDAT

1$:

L[0}Y:]

2%:

005303

001364
012703

000020

;LOAD SILO
;MESSAGE ADDRESS
: CHARACTER COUNT
;LOAD AN EOM

;WAIT FOR OCOR

;CLEAR LINE UNIT LOOP
;RO = MESSAGE COUNT
;R3= CHARACTER COUNT

;LOAD MESSAGE POINTER IN R2
INRDY

PC,INRDY

;WAIT FOR

4((RY) R4

;GET DATA FROM [N SILO
;PUT CHARACTER IN ''FOUND''

ROM(CLK

021204
MOV

000004

(R1)
#3,R0
#16.,R3
#F_TDAT ,R?

SEQ 0094

(R2)+,R5

;NEXT WORD [S INSTRUCTION, ROMCLK P(=5306
;PUT "EXPECTED'' IN R5
;1S RECEIVED DATA CORRECT

(MPB
BEQ

RS ,R4

2%
25

;BR

DEC
BNE

R3
1%
#6.,R3

;DEC CHARACTER COUNT
;BR IF NOT DONE THIS MESSAGE

HLT

MOV

;DATA ERROR

;RESET

CHARACTER COUNT

;CHECK TO SEE THAT [N BCC MATCH IS SET
;AND THAT
026202

004737

026210
026212
026220
026226
026232
026234
026236
026242
026246
026252
026254
026256
026260
026260
026262
026264
026272
026300
026306
026314
026316
026320
026324
026326
026330

021204
116137
042737
004737
104414
021244
016106
042704
012705
120504
001601
104015

026206

104414

104414
021204
116137
042737
053737
023737
001401
104027
012702
005300
001307
104400

ISR

027510

00000&

1776400

027510

001252

030440

MOV

4(R1),TEMPY

JSR

PC,INRDY

;GET FIRST HALF OF CRC
;PUT IN TEMP3
;CLEAR H] BYTE

;WAIT

021244
MOV
BIC
MOV

4(R1) R4
376 ,R4
”1,RS

;PUT “'FOUND'’ IN R4

BEQ

25%

BIC

177400, TEMP3

ROMCLK

25%:

4%:
1%:

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

FOR

INRDY

;NEXT WORD [S INSTRUCTION, ROMCLK P(=5304

(MPB

RS ,R4

;CLEAR UNWANTED BITS
;PUT "EXPECTED'' IN RS
;1S IN BCC MATCH SET?

HLT

;IN BCC MATCH ERROR

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304

ROMCLK

021204
MOvB
BIC
BIS
CMP

001251
001250
001252
001252

INRDY

;WAIT

021204

001252

FOR

PC,INRDY

LOMCLK

000004
000376
000001

000004
000377
001250
027652

THE BCC WAS RECEIVED CORRECTLY

BEQ
HLT

MOV

DEC
BNE
SCOPE

4(R1),TEMP2¢1
#377,TEMP?

TEMPZ,TEMPS
E:LBCC,TEHPS

#FLTDAT,
R?
RO
1%

;GET LAST HALF

;PUT

;16 BIT BCC NOW IN TEMP3
;1S IT CORRECT?

;BR [F 0K

;RESET MESSAGE POINTER
;DECREMENT COUNTER
:BR [F NOT DONE
:SCOPE THIS TEST

seveevenveecveerenvencernenen

;*DDCMP CABLE DATA TEST

IN TEMP?

;CLEAR LO BYTE

TEST

enncccentnnrecncanrenecnenr

MACY11 30A(1052)
(ZDME
07-JuL-80
P11
.me
C(l0
01-JuL-80 15:29
L964
4965
4966
4967
(968
4969
4970
4971
4972
4973
6974
4975
L4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990

4991
4992
4993
6994
4995
4996
4997
4998
4999

13:53
PAGE 95
BASIC RECEIVER TESTS

SEQ 0095

;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING:
;4 SYNCS,59 DATA CHARACTERS,EOM WITH GARBAGE
;*THE

DATA

TRANSMITTED OVER

THE

. A

CABLE

USING

CHARACTER
THE

;*RECEIVED DATA IS VERIFIED AS IS IN BCC MAT(H
;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST

.
026332
026340

012737
012737

026346

104412

026350
026356
026360
026364
026370
026374
026402
026406
026412
026416
026422
026426
026430
026432
026434
026442
026444
026446
026452
026454
026456
026462
026466
026470
026474
026500
026504
026506
026510
026514
026516
026520
026522
026524
0265264
026526

032737
001533
01271
004737
004737
012737
005037
012703
012702
112237

004537
000010
000000

000000
013737
005303
001364
004537
030434
000073
004737
004737

005011
012700
012702
004737
104414

021204
016104

112205
120504
001491
104025

000057
003364

001226
001216

15157

001366

MOV
MOV

030016
030016
120001

026432
000073
030434
026430
027544

#.EOP, NEXT

7$:

5%.

027652

026432

MBITIL,STATY

mMov

#BIT11,(R1)

(LR
MOV
MOV
MOVB
JSR

6%
#59.,R3
#MESDAT ,R?
(R2)+,5%
RS,SIMB(CC

JSR
JSR
MOV

027650

0
0

MOV

DEC
BNE
JSR

030152

MESDAT

59.

PC,SYNLD
PC,SYNLD
#CRC16,XPOLY

CALBCC,6%

RY
7%
RS,MESLD

JSR
JSR

PC,EOM
PC,0COR

000073
030434
027510

MOV
MOV

#59.,R0
#MESDAT ,R?

(LR

JSR

ROMCLK

021204

000004

[0}
MOv8

(mMPB

BEQ
2%

005300
001364

;R1 CONTAINS BASE DMC11
;MASTER CLEAR DM(C11

ADDRESS

;SKIP TEST IF NO
;LOOPBACK CONNECTOR ON
JSET LINE UNIT LOOP
;LOAD 2 SYNCS
;LOAD 2 MORE SYNCS
:LOAD POLYNOMIAL FOR SOFT (RC CALC
;CLEAR OLD BCC

;CHARACTER COUNT
;R2= POINTER

;LOAD CHAR FOR SOfT BCC CALC.
;CALC SOFT BCC
:SHIFT COUNT

;CHARACTER

030126
026702

1%:

RRRRRR)

#57,TSTNO

BIT

BEQ

004000

CLOCK

TEST 57

MSTCLR

040000

INTERNAL

(R1)

PC,INRDY

4(R1),PL
(R2)+,KS

RS,R&
2%

,0LD BCC
JLOAD OLD 8(C

;DEC COUNT

:BR IF NOT DONE YET
;LOAD SILO

JMESSAGE

ADDRESS

;CHARACTER COUNT
:LOAD AN EOM
;WAIT

FOR OCOR

JCLEAR LINE UNIT LOOP
;R0= CHARACTER COUNT

;LOAD MESSAGE POINTER IN R?2

;WAIT FOR INRDY
:NEXT WORD IS INSTRUCTION, ROMCLK PC 5304
;GET DATA FROM IN SILO
:PUT CHARACTER IN "‘FOUND''

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

;BR IF 0K

HLT

;DATA ERROR

DEC
BNE

RO
1%

;DECREMENT COUNTER
:BR [F NOT DONE

;CHECK TO SEE THAT IN BCC MATCH IS SET
JAND THAT

G26530
026534

004737
106414

027510

JSR

ROMCLK

THE BCC WAS RECEIVED CORRECTLY

PC.INRDY

;WAIT

FOR

INRDY

;NEXT WCRD IS INSTRUCTION, ROMCLK PC Ssew

MACY11 30AC1052 )
07-4u_-80
(l0mt¢
15-29
(lome P11
01-4uL-80

5020
5021
5C2¢

5023

$024
5025
5026

5027

5028
5029

5030

50N
5032

5033
5034
5035
5036
5037
5038
5039
5040
5041

5042
5043

5044
5045
5046
5047
5048
5049
5050
5051

5052

5053

026536
026540
026546
026554
026560
026562
026564
026570
026576
026600
026602

026604
026606
026606
026610

026612
026620
026626
026634
026642

026644
026646

021206
116137

042737
004737
106414

021244
016104
042704
012705
120504

000004

1776400

027510

13:53
PAGE 96
BASIC RECEIVER TESTS

021204

001252

Move

0C1¢52

BiIC
JSR
ROMCLK

021244

000004
000376
000001

MOov

BiC

MOV

(mPB8
BtQ

001400

104015

25%:

104414

021204

116137

042737
053737
023737
00160
104027
104400

000004

000377
001250
027652

HLT

move
Bi(
B!S
(mp
8tQ

001250
001252
001252
3%:

,TEMP3

0177600, Teme3

HLT

SCOPE

;GET FIRST MALS OF (RC
;PUT [N TEMP3
;CLEAR W] BYTE
[NRDY

PC.INRDY

JWAIT FOR

4(R1),R&
2376 R4

.2UT ""FOUND'" IN Ré
;CLEAR UNWANTED BITS

RS,R&

;1S IN BCC MAT(CH SET?

;IN BCC MAT(CH ERROR

;NEXT WORD [S INSTRUCTION, ROMCLK ~(=53064

0 RS

;PUT "EXPECTED'" [N RS

25%

ROMCLK

021204

001251

4(R1)

SEQ 0096

G(R1),TEMP2+1
2377 TEMP2

TEMPS, TEMP3

CALBCC, TEMP3
b1)
27

SNEXT WORD 1S INSTRUCTION, ROMCLK P(=5304
;GET LAST HALF
;PUT

IN TEMP?

;CLEAR LO BYTE

;16 BIT BCC NOW [N TEMPS
1S 1T CORRE(CT?

;BR

;SCOPE THIS TEST

;SUBROUTINES
026650

STHIS SUBROUTINE

READS LU 17,

AND PUTS

[NIO NIT(H,

SNITCH [S ROTATED LEFT UNTILL THE SI BIT IS IN CARRY
0266590
026652
026654
026662
02666¢
026672
026676
026700

1046614

021364
0177%7

106137
106137
106137

000207
000000

152532

0267G0
026700
026700

026720

021364

026700

MOV

ROLB
ROLB
ROLB
R'S

NITC(H:

026702

026702
026704
026706
026714
026716

OCOR:
104614

021364
032777
001772
000207

SNEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

ROM(LK

S0MPOL NIT(H
NIT(H

NIT(H

8IT
BEQ

RTS

SYN(:

IN THE

(ARRY B]T

;THIS SUBROUTINE SPINS ON OCOR

021364

152476

:STORETMLU 17
;PUT SI

NIT(H

SNEXT WORD IS INSTRUCTION, ROMCLK PC-5304

ROM(LX

000020

;PORT4_LU 17

#8174 ,30MP04

OCOR

:PORTL LU 17

;15 oCOR SET°
;BR

;0K OCOR IS SET, GO BA(KX

;THIS SUBROUNTINE LOADS THE SILO WiTH THE NUMBER Of SYN(C
;CHARACTERS PASSED TO [T
SAND A NON-SYN(

(WARACTER

IN_THE WORD AFTER THE JSR (ALL
¢301)

~(l0m¢

(oM

MACYYY

5076

5077
5078
5079

3GA(1052 )
07-JuL-80
129
01-JuL-80 15:2

026720
026724
026730

5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091

013637
062746
012761

001246
00000¢
000026

0Cu004

122114
004737
012761

027034
000001

000004

012761

000026

000004

1064614

106416
122111

106614
122110

005337
001361
004737
005061

5092

106414
122111

5093

012761

5094
5095

106616
122110

027032

13:53

004737
000207

b b
(o]
JOOONOmwa—-OOONOV\wa—OO%O

WA VAN
VA VA VA WA VA AN VA VDA VA

2 b b e

ANV

—.—l_‘-‘-‘-‘.‘—‘_‘-‘—‘—‘_‘.‘dd—‘—.—.—.—-‘—‘—‘—‘

WP POROPOPRLRNOPNUIRININ) b b —

WAL

1%:

8(SP)s TEMPY
82,-(SP)
826,L(RY)

MOV
ADD
MOV
ROMCLK
122114

JSR

02703«
000004

000301

TEMPY

000004

PC=5304

INSTRUCTION,

|F NOT

JNEXT WORD IS INSTRUCTION, ROM(CLK PC=5304
JSET SOm
;LOAD PORT4

JNEXT WORD

;LOAD QUT DATA
;WAIT FOR OCOR

PC,0C0OR
PC

RTS

ROMCLK

;LOAD PORT4

#301,64(RD)

JSR

026702

JNEXT WORD

:WAIT FOR QUTRDY

«(RY1)

MOV
ROMCLK
122110

PC=5304

;BR

ROM(CLK

122111

ROMCLK

;LOAD OUT DATA
;ALL DONE?

1%
PC,OUTRDY

JSR
(LR

:LOAD PORT4
SNEXT WORD 1S INSTRUCTION,
;SET SOM
:LOAD PORTA

826,64(P1)

DE(
BNE

JGET COUNT
;ADJUST STA(K
;LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROM(CLK P(=5304
;LOAD SYNC REGISTER

;WALT FOR QUTRDY

PL,OUTRDY
£, 4L(RY)

MOV
ROM( LK
122111
MOV

ROM(LX

001246

INSTRUCTION, ROMCLK PC=5304

QUTRDY:

s THIS

005037

001256

1%:

1046416

021224
032777
001004
005237
001367

000020

000207

3.
(HAR

ROM(CLK

013637
062746

027142

104414

012737
012761
106414
122114

001250
000002

000003

000026

001246
000004

004737
012761

027034
000001

000004

012761

000026

000004

1044614
122111

1%:

#8174,30MP0O4

READY

;CLEAR TIMER

JNEXT WORD IS INSTRUCTION,
;PORT4 LUN

ROM(L
K PI-5304

;15 ouY RDY SET?
:BR

YES

JINC TIMER
:KEEP CHECKING 1F NOT DONE

;ERROR, OUT READY NOT SET

MLT
RTS

;THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS
;AND

027066
027072
027076
027104
027112
027114
027116
027122
027130
02/132

SPINS ON OUT

TEMPS

(LR

BNE
INC
BNE

001256

104036

SUBROUTINE

021224
8IY

152340

027066

27134

SEQ 0097

122110

027034

027034
027040
027040
027042
027044
027052
027054
027060
027062
027064

PAGE

SJUBROUTINES

THE

CMARACTER PASSED

MOV
ADD
Mov
mov
ROM(LK

8(SP)+ TEMP?
#,-(5P)
#3,TEMPY
#26,4(RY)

JSR
MOV

PC,OUTRDY
¥1,4(RY)

122111
MOV
K
ROM(L

#26,4(RY)

122114

ROMCLK

[T,

:GET CHARA(CTER
.ADJUST STA(CK

;SET FOR 3 SYNCS
;LOAD PORT4

;NEXT WORD 1S INSTRUCTION, ROMCLK P(-5304
:LOAD SYNC REGISTER
;WAIT FOR QUTRDY

;LOAD PORT4
;NEXT WORD [S INSTRUCTION, ROMLLK P(:=5304
;SET SOM
:LOAD PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK PC 5304

—_—

(IOME
MACY11 3GA(1052)
07-JuL-80
(2ome P11
01-JuL-80 15:29
95132
5133
513
5135
€136
5137
5138
5139
5140
5141
5142
5143

027200

95146
5147
5148
5149

027200
027204
027210
027214

013637
062746
004737
013761

001250
000002
027034
001250

5151
5152

027226
027226

122110
004737

027034

027234
027236
027242

122110
004737
000207

glzg

5150

5153

027144
027146
027152
027154
027160
027166
027170
027172
027176

027222

027232

122110
005337
001361
004737
013761
104414
122110
004737
000207

104414

027244

5163
5164
5165
5166

027244
027252
027256
027260

012737
005737
100470
001032

S170

027304

104414

5167
5168
5169
S171
5172
5173

5174

S175
5176

S177

5178
5179
5180
5181
5182

5183

5184
S185
3186

027262
027270
027276

062737
012737
012761
122114
004737
012761

027326
027326

12211
012761

027336
077340
u¢7364
027345
027352

122110
005337
001361
004737
013761

027362
027364
027370
027372

122110
005737
001407
013737

027334

027360

027034
001250

000004

026702

000004

104414

000073
027504

001250

000002
000003
000026

001250
001246
000004

027034

000001

000026

000004

027034
027504

122110
JSR

PC,OUTRDY

;LOAD QUT DATA
:WAIT FOR OUTRDY

122110
JSR
RTS

PC,OCOR
PC

ROMCLK

122114
JSR
MOV

ROMCLK

000004

000604

122110
DEC
BNE
JSR
MOV

ROMCLK

027404

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

:NEXT WCRD IS INSTRUL!ION, ROMCLK P(=5306
:LOAD GARBAGE (HAR
:WAIT FOR OCOR

:THIS SUBROUTINE FILLS THE OUT
: WITH A BINARY COUNT PATTERN

122111
MOV

027506
027504

:GET CHARACTER
:ADJUST STACK
;WAIT FOR QUTRDY
:LOAD PORT4

ADD
MOV
MOV

001246

PC,OCOR
PC

;LOAD QUT DATA
;ALL DONE?
;BR [F NOT
;WAIT FOR OUTRDY
:LOAD PORT4
:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
;LOAD OUT DATA
:WALT FOR OCOR

S(SP)+ TEMP?
#2,-(SP)
PC,OUTRDY
TEMP2 ,4(RY)

Mov
ST
BM]
BNE

1$:

TEMPY
1%
PC,OUTRDY
TEMP2,4(RY)

MOV
ADD
JSR
MOV

ROMC LK

026702

SEQ 0098

:THIS SUBROUTINE LOADS THE SILO WITH THE CHARA(CTER PASSED TO IT.

ROMCLK

SILOLD:

027306
027310
027314

027322

122110
DEC
BNF
JSR
MOV
ROMCLK
122110
JSR
RTS

001246

(9YARSD:

5154
5155
5156
5157
5158
5159
5160
2}2;

13:53 PAGE 98
SUBROUTINES

ROMCLK

122110
1ST
BEQ
MOV

#73,TEMP?
SCHAR
43
2%

#2,TEMP?
#3,TEMP
#26,4(RY)

SILO

;LOAD COUNY
;FIRST TIME MERE?
;BR IF BITSTUFF
;BR [f NO

;ADD 2 TO CHARACTER COUNT
:SET FOR 3 SYNCS
:LOAD POR1&

:NEXT WORD IS INSTRUCTION, ROMCLK P(=5304

#1,4(RY)

;LOAD SYNC REGISTER
;WAIT FOR QUTRDY
:LOAD PORT4

#26,4(R1)

;SET SOM
:LOAD PORT4

PC,OUTRDY

NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304

SNEXT WORD IS INSTRUCTION, RCMCLK P(C=5304

PC,OUTRDY
SCHAR,4(R1)

;LOAD OUT DATA
;ALL DONE?
;BR [F NOT
;WAIT FOR OQUTRDY
;:LOAD PORT4&

STUFLG
6%
SCHAR,SS

;LOAD OUT DATA
;BITSTUFF?2??
:BR IfF NO
1T 1S SDLD SO CHECK BITSTUFFING

TEMP1
1%

:NEXT WORD IS INSTRUCTION, RUMCLK P(C-5304

CIZOME
MACY1Y 30AC1052)
O07-JUL-80
CZDME.PIN
01-JUL-80 15:29
5188
5189
5190
5191
€192
5193
5194
5199
5196
5197
5198
S199
5200
5201

027600
027404
027406
027410
027414
027422
027424
027430
02746432
027436
027440
027444
027452
027456

004537
000000
000010
005237
022737
001403
005337
001346
004737
000207
005037
012737
005037
062737

5203
5204
5205
5206

027472
027474
027476
027500

104414
122111
104414
122110

5202

B B B BN M
N N AN N NN N NN PO
TN RININON) = 2 b b b b
>
VN 2O OWNO N WN 2 OO
NN
WA =2 OO0 N W
W) —

ATV

LA LA WA A W LA U WA WA WA WA LA AU WA VA VA WA WVANWA

VN VAN WA WOV

N VNV WALV

POALALALRLNLNLRLRL
AL NNV RN
NI NN NN IASZAS AN oS oS 1 VT, ST, N1 N1 N 1,8 [ N ]

5207
5208
5209
5210

027464

027502
027504
027506

012761

13:53
PAGE 99
SUBROUTINES

030234
027504
000400

5% 027504

6% :

001250

026702
027504
177777
030432
000002

000001

1%
027506

L%:

001250

000004

000721
000000
000000

JSR
0
10
INC
(MP
BEQ
DEC
BNE
JSR
RTS
CLR
MOV
CLR
ADD

RS,STFFCL

ROMCLK
122111
ROMCLK
122110

INRDY:

BR
0
O

;THIS

;IF

;ADD ANY BIT STUFF
:CHARACTER
;CHIFT COUNT
sNEXT CHARACTER
;ALL DONE?

SCHAR
#400,SCHAR
s
TEMP?
’%
PC,OCOR
PC
SCHAR
#=1,STUFLG
BITCON
#2,TEMP?

MOV

SCHAR:
STUFLG:

027510

SEQ 0099

(LOCK TICKS

;DECREMENT COUNT
;BR IF NOT DONE
;WAIT FOR OCOR
:START PATTERN AT ZERO
;SET BITSTUFF FLAG
;CLEAR STUFF COUNT
:ADD 2 TO CHARACTER COUNT

#£1,4(R1)

:SET BITO IN PORT4

;NEXT WORD IS INSTRUCTION, ROMCLK P(C=5304
JSET SOM!
;NEXT WORD IS INSTRUCTION, ROMCLX P(=5304
;LOAD GARBAGE C(HAR

;G0 LOAD SILO

SUBROUTINE

SPINS ON

INRDY FAILS TO SET

INRDY

THE DELAY TIMES OUT AND AN

;ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS

sDELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER

JINITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER
:THE

8g;g}g

027516

027520

027522

027530
027532
027536

027540

027542

012737

000000

001246

104414

021244

032777

001004
005237
001367

SHORTER THE DELAY.

MOV

#0,TEMP

000020

151662

001246

104037

000207

2$:
SIMBCC:

027544

#B174,aDMP04

HLT

RTS

THE

LONGEST DELAY.

;NEXT WORD IS INSTRUCTION, ROMCLK P(-5304

BIT
BNE
INC
BNE

;SET UP DELAY COUNTER

ROMC LK

021244

2%
TEMPI
1%

;PORT4 LU12

;1S INRDY SET?
;BR IF YES
:INC DELAY
:TRY AGAIN

;ERROR,NO INRDY

;RETURN

;THIS SUBROUTINE

CALCULATES THE

CRC USING POLYNOMIAL

GIVEN

;IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE
;STATE OF

027544

010046

027552
027556
027562

012537
012537
013700

027546

027566

027570

012537
000241

006037

001246

001250
027652
027652
027652

THE BCC IS RETURNED IN THE ( BIT.

MOV

RO,-(SP)

;SAVE RO ON STACK

MOV
MOV
MOV

(RS)+.TEMP?
(RS)+.CALBCC
CALBCC,RO

:TEMP2 = CHARACTER
:CALBCC = OLD BCC
SPUT OLD BCC IN RO

MOV
1%:

THE LSB OF

(Le
ROR

(R§)+ TEMPY

CALBCC

“TEMP1 = SHIFT COUNT

JSHIFT OLD B8CC

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

AN N LN
DN N VWA S
AIAINOMI
NN AL NINI NI NN ~no
VAL VIV
IV IV [V, VT 28 » &~
Pode BTe JV PV ISP JaoRel. | ~

5264
5245
52646

027574
027600
027602
027604
027606
027612
027616
027624
027630
027634
027636
027642
027644
027646
027650
027652

006037
005500
006000
103011

013700
043700
043737
050037
005337
001352
013700
006000
012600

13:53
PAGE 100
SUBROUTINES

SEQ 0100

001250

ROR
ADC
ROR

TEMP?
RO
RO

027650
027652
027650
027652
001246

MoV

XPOLY,RO

BCC

BIC

027652

BIC

2%:

027652

000205
000006000000
000200

XPOLY:

8IS
DEC
BNE
MOV

ROR
MOV
RTS
O

CALBCC,RO

XPOLY,CALBCC

RO,CALBCC
TEMPY
1%
CALBCC,RO
RO
(SP)+,R0
RS

;SHIFT CHARACTER
;ADD C(HAR CARRY TO OLD BCC
;PUT BITO TO CARRY BIT
;CARRY IS FEEDBA(CK BIT
;1F FEEDBACK = 1
JEXCLUSIVLY OR XPOLY TC CALBCC
;DEC SHIFT COUNT
;BR IF NOT DONE

sPUT RESULT

IN RO

JSHIFT BITO TO CARRY

;RESTORE RO
JRETURN

CALBCC: O
LR(8=200

(RC16=120001
CRC.CCITT=102010

120001
102010

027654

BCCLD:

;THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS
JWITH SOM SET, AND ONE CHARACTER PASSED TO [T

JWITH THE SOM BIT CLEAR (ENABLE CR()
027654
027660

027664

027672
027700
027702
027704
027710
027716
027720
027722
027730
027732
027734
027740

027742
027746
027754
027756
027760
027764

001250
000002
000002
000026

001246
000004

027034
000001

000004

000026

000004

000207

1%:

MOV
MOV

#2,TEMPT
#26,4(R1)

MOV

#1,4(R1)

122111
MOV

#26,4(R1)

ROMCLK
122114
JSR
ROMCLK

ROMCLK

122110

DEC
BNE
JSK

MOV

000004

ROMCLK

122110

026702

+SR

RTS

GETQO:

027766

a(SP)¢,TEMP?

ADD

001246

027034
001250

MoV

#2,-(SP)

PC,OUTRDY

TEMPA
1%
PC,OUTRDY

TEMPZ2,4(RY)

PC.OCOR

;GET CHARACTER
;ADJUST STACK

;SET FOR 2 SYNCS
;LOAD PORT4
sNEXT WORD IS INSTRUCTION, ROM(CLK PC=5304
:LOAD SYNC REGISTER
:WAIT FOR QUTRDY

:LOAD PORT4
JNEXT WORD IS INSTRUCTION, ROM(CLK PC=5304
SSET SOM
;LOAD PORT4
SNEXT WORD [S INSTRUCTION, ROMCLK PC=5304
;sLOAD OUT DATA
;ALL DONE?
;BR [F NOT
;WAIT FOR QUTRDY

:LOAD PORT4
SNEXT WORD

;LOAD OUT DATA
;WAIT

INSTRUCTION,

FOR OCOR

;THIS SUBROUTINE READS THE

STATE OF

THE

;BCC LSB AND PUTS [T IN THE CARRY BIT

027766
027770
027772

104414

021364

106177

151474

ROLE

TRANSMIT

;NEXT WORD IS INSTRUCTION, ROMCLK PC-5304

ROMCLK

021364

ROM(CLK PC=5304

aDMPO4

;PORT4L LU-17

:PUT Q0 IN CARRY

MACY1Y 30A(1052)
(ZDME
07-JuUL-80
E
. P11
C2DM
01-JUL-80 15:29

027776

000277

RTS

GETQ]:

030000

;THIS

SEQ 0101
PC

SUBROUTINE

;RETURN

READS

THE

STATE

THE

:BCC LSB AND PUTS [T IN THE CARRY BIT

104414

021364

(VP
o

—

106177
106177

ROMCLK

—

021364

[V R,|

030000
030002
030004
030010
030014

000207

030016

SYNLD:

;NEXT WORD

ROLB

aDMPO4

sTHIS

SUBROUTINE

ROLB
RTS

:PORT4 LU=-17

RELEIVE

INSTRUCTION,

ROMCLK PC=5304

;PUT Q0 IN CARRY

aDMPO4
PC

;PUT QI
:RETURN

LOADS OUT

IN CARRY

SILO WITH

;2 SYNC CHARACTERS WITH SOM SET

030016
030024
030032
030034
030036
030042
030050
030052
030054
030062
030064
030066
030072
030074

000002
000026

MOV
MOV

001246
000004

027034
000001

000004

000026

000004

"2, TEMPI
#26,4(R1)

;LOAD COUNTER FOR 2 SYNCS
;PORTG 26

JSR
MOV

PC,OUTRDY
#1,4(RY)

:WAIT FOR OUTRDY
;LOAD PORT4

MOV
ROMCLK

#26,4(R1)

ROMCLK

1%:

122114

ROMCLK
12211

122110

DEC

001246

BNE

000207

RTS

SOM:

030076

;:THIS

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304
:LOAD SYNC

REG

:NEXT WORD
:SET SOM

INSTRUCTION,

ROMCLK PC=530¢4

INSTRUCTION,

ROMCLK PC=5304

:PORT_26
NEXT WORD

:LOAD OUT DATA WITH SYNC

TEMPY

:DECREMENT COUNTER

;RETURN

SUBROUTINE

:BR

NOT DONE

LOADS SOM AND OUT

:GARBAGE CMHARACTER (0)
004737
012761
104414
122111

005061

104414
122110

027034
000001

JSR

MOV

000004

ROMCLK
122111

000004

CLR

ROMCLK
122110
RTS

000207

DATA WITH A

;WAIT FOR OUTRDY

PC,OUTRDY

#1,64(R1)

;PORTS 1

;NEXT QORD IS INSTRUCTION, ROMCLK PC=5304
;SET

SOM

:CLEAR DATA CHAR

4(R1)

:NEXT WORD IS INSTRUCTION,
;LOAD GARBAGE CHARACTER
:RETURN

ROMCLK PC=5304

(W LV TV LV

VU 1V ] 2k 2k

= OO0 ~NO

2¥

FRE B Gl A A

N AN N M M AN N NI NIPO PO PO PO RNINI RO
= b cd d b D
b
2OV NOWVE WLWN =20V
~NO VS WA —
W) = OOV NOWVMEWN

(W XV IV TV IV IV XV IV IV IV IV AV IV IV TV QW TV LV [V [V LV LN IS QL LV LV IV TV LV LV SV IV [V TV IV XV W LV IV TV LV A LS IV IV ]
[ OV Y
I
et o bt ad et et ad Yl ad ad Lol T IV TV LV TV LV IV 1V LV [V IV ]
i Aot Ll Al Ll Al Ll A W L\ A

5300
5301
5302
5303
£304
5305
5306
5307

13:53
PAGE 101
SUBROUTINES

EOM:

:THIS SUBROUTINE

LOADS EOM AND OUT DATA WITH A

;GARBAGE CHARACTER (2)
004737
012761
1044614
122111

027034

000002

000004

JSR
MOV

ROMC _K
1221

PC,OUTRDY
#2,4(R1)

TO ENABLE TRANSMISSION OF B((
;WAIT FOR OUTRDY
;PORTS 2

SNEXT QORD IS INSTRUCTION, ROMCLK PC=5304
JSET

EOM

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

5356
§357
5358
5359
€340

030144
030146
030150

5361
5362
5363

030152

$366

030152

13:53 PAGE 102
SUBROUTINES

104414
122110
000207

ROMCLK
122110
RTS
MESLD:

gggg

5367

030154

010046

012500

5369
§370

030162
030166

004737
112061

§372
5373
5374
§375
§376
5377
5378
5379
5380

030174
030176
030202
030204
030210
030212

122110
005337
001367
004737
012600
000205

5381

030172

104414

001246
027034
000004

1%:

001246
026702

CLR!O:

012761

5386

030224

122112

030222

030226

030230
030232

104414

000200

MOV

(RS) ¢+, TEMP1

- TEMP1=CHARACTER COUNT

JSR
MOVB

PC,OUTRDY
(RO)+,4(RT)

122110
DEC
BNE
JSR
MOV
RTS

TEMP1
1%
PC.OCOR
(SP)+,RO
RS

*RO=MESSAGE POINTER

:WAIT FOR OUT RDY
:LOAD PORT4 WITH CHARACTER

CNEXT WORD IS INSTRUCTION, ROMCLK PC=5304
“LOAD OUT DATA SILO
‘DEC CHAR COUNT
:BR IF NOT DONE
‘WAIT FOR OCOR
*RESTORE RO
*RETURN

:THIS SUBROUTINE

SETS

122111
RTS
STFFCL:

5398
5399
5400
5401
5402
5403
5404
5405
5406

030240
030244
030246
030250
030254
030256
030262
030270
030272

012537
106000
103403
005037
000412
005237
022737
001004
005037

001252

005337
001356
012600

001252

5407 030276

030302
030306
030310
030312

ROMC LK

122111
000207

030234

030236

MOV

012500

IN CLR AND OUT

CLR TO

030432
000005

030432

2% :

030432

:LOAD PORT4

*NEXT WORD IS INSTRUCTION, ROMCLK P(=5304
:SET IN CLR!

CNEXT WORD 1S INSTRUCTION, ROMCLK PC=5304
:SET OUT CLR'
:RETURN

:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS
CFIRST ARGUMENT 1S CHAR, SECOND ARGUMENT IS SHIFT COUNT.

MOV

RO,-(SP)

:SAVE RO

MOV
RORB
BCS
CLR
BR
INC
CMP
BNE
CLR

(RS)+,TEMP3
RO
28
8ITCON
1%
BITCON
#5,B11CON
3$
81TCON

SPUT SHIFT COUNT [N TEMP3
:LOOK AT NEXT BIT
‘BR IF A MARK
21T WAS A SPACE, CLEAR 1'S COUNTER
: CONTINUE
SINC CONSECUTIVE 1'S COUNTER
215 IT S YET?
:BR IF NO
SYES!
SO START AGAIN

DEC
BNE
MOV

TEMP3
1%
(SP)+,RO

MOV

030432

104415 000001

000205

#B1T7,4(RY)

ROMCLK

010046

5411

000004

104414

030234

5408
5409
5410

:SAVE RO

(R§)+ RO

122112

5396

§397

RO,-(SP)

SCLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS
030214

5388
$389
$390
5391
$392
5393
gggg

MOV

ROMC LK

030214

5384

5387

;THIS SUBROUTINE LOADS SILO WITH MESSAGE
STHE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE

MOV

ggg%

5385

:NEXT WORD IS INSTRUCTION, ROMCLK PC=53064
:LOAD GARBAGE CHARACTER
‘RETURN

:THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE

5368 030156 012537
5371

SEQ 0102

DATACLK,
RTS

(R$)+ RO

‘PUT CHAR IN RO

:GIVE EXTRA TICK TO STUFF ZERO
“DEC SHIFT COUNT
:BR IF NOT DONE
‘RESTORE RO
RETURN

CIOME
MACY1Y 3GA(1052)
07-JuL-80
CZDMe . P11
01-JuUL-80 15:2 9
95412
5413
5414

5415
5416

13:53 PAGE 103
SUBROUT INES

030314

STFFCK:

gz}g
030314

010046

5421

030320

012537

001252

5424

030330

005037

030432

5420 030316

5425
5426
5427
5428
5429
5430
5631
543c
5433
5434
5435
5436
5437
5438
5439
5440
5441

030326
030326

03033&
030336
030342
030350
030352
030356
030362
030366
030370
030372
030376
030400
030402

012500

106000
103403

000416
005237
022737
001010
005037
104415
004737
103001
104030
005337
00i352
012600
000205

030432
000005

1%:

030432

030432
000001
026650
001252

3s:

CTSDLY:

030404

010046

5646

030412

027777

5448
54649

030422
030424

001373
012600

030420

030426

005300

030430
030432
030434
030437

000176
000000
000
377

5458
5459
5460
5461
5462

030443
030446
030451
030454
030457

010
100
375
357
177

5463

5464
5465

5466

5467

030440

030460

030463
030466

030471

030472

150566

150564

MOV

(RS)+,TEMP3

;PUT SHIFT COUNT [N TEMP3

RORS
BCS

RO
23

BITCON

8R
3
INC
BITCON
CMP
#5,8ITCON
BNE
3
CLR
81TCON
DATACLK,
1
JSR
PC,GETSI
BCC
3%
HLT
30
DEC
TEMP3
BNE
1$
MOV
(SP)+,R0
RTS
RS

‘PUT CHAR IN RO

;SHIFT OUT NEXT BIT
:BR IF IT IS A MARK

;1T WAS A SPACE, CLEAR 1'S COUNTER
:CONTINUE
;INC CONSECUTIVE 1'S COUNTER
:S IN A ROW YET?
:BR IF NO
;YES, SO START OVER
;EXTRA TICK TO STUFF ZERO
;LOOK AT WINDOW
;IS IT A 2ERO, BR IF YES
:NO, ERROR ZERO WAS NOT STUFFED
:DEC SHIFT COUNT
:BR IF NOT DONE
:RESTORE RO
:RETURN

;THIS SUBROUTINE WASTES TIME UNTIL CTS SETS,

1%:

MOV

RO,-(SP)

:SAVE RO

CMP

3TKCSR,3TKCSR

;WASTE TIME

MOV
DEC

BNE
MOV

000207

5453
5454
5455
5456

5457

:SAVE RO

(R)+ RO

;BUT HOPEFULLY NGT SO LONG THAT THE SILO RUNS 0.7

5445 030406 012700 000032

5452

RO,=(SP)

CLR

030404

S444

gzg?

MOV

g:z%

5447

;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER
;1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT

;1S THE CHARACTER, SECOND ARGUMENT 1S SHIFT COUNT,

5419

5422
5423

SEQ 0103

RTS

#32 R0
RO

1%
(SP)+,RO

FLAG:
*B<01111110>
BITCON: 0

:LOAD RO WITH COUNT
;:DECREMENT COUNTER

;DO IT AGAIN IF NOT = 0
:RESTORE RO
:RE TURN

;FLAG CHARACTER

125

252

MESDAT: .BYTE

0,125,252,377

001

002

004

FLTDAT: .BYTt

1,2,4,10,20,40,100,200,376,375,373,367,357,337,277.177

100

170
174

140

003
176

160

STUFDT: .BYTE

100,140,160,170,3,300,174,176,177,1

363

347

317

.BYTE

363,347,317,200,0,377,377,377,200,37

001

020
200
373
337

040
376
367
277

300
177

]

030475
030500
030503

200
77
037

000
377

€472

030504

046377

047111

547°

030542
030605
030651
030713
030743
030762
031007
031032
031112
031174
031226
031255
031301
031341
031411
031432
031446
031512
031533
031550
031573
031615
031640
031662
031703
031741
031777
032037

032071
032137
032162
032206

032210
032212
032214
532216
052220
032222
032204

032226

032230

032232
032234
032236
032240
032242
032244
032246

046377
377
377
377
377
051377
377
052377
040777
054777
052377
377
377
377
377
043377
052377
051777
377
052377
377
377
C44777
042777
377
377
377
377

377
377
051377

032206
000602

003
001272
003
001270
000003
003
001272

047111
044514
044514
051126
042522
041505
047515
044510
052125
052517
040522
042522
047111
051126
040503
040514
040522
044527
041101
040522
040510
052517
020116
050130
054105
044103
047503
054105

054105
046102
051526

007

005

010

003

002

003
001272
002
001266

017

001270

001264
000002

020105

020105
042516
042516
047101
042503
044505
042504
020123
051517
044040
051516
042503
041040
047101
046102
020107
051516
061524
051117
051516
043114
020124
042522
041505
042520
051101
051122
042520

042520
041517
042040

EVEN

EM1:

LASCIZ

<377>/LINE UNIT

EMI1:
EM12:
EMI3:
EMI4:
EM1S:
EM16:
EM17:
EM20:
Em21:
EM22:
EM23:
EM24:
EM25:

LASCIZ
LASCIZ
JASCIZ
LASCIZ
LASCIZ
JASCIZ
LASCI]
LASCI]
ASCIL
LASCIZ
2012
LASCIZ
LASCIZ
LASCIZ
JASCIZ
ASCIZ
JASCIZ
ASCIZ
LASCIZ
LASCIZ
ASCI2
LASCIZ
LASCIZ

DHI:
DH2:
DH3:
DHé:
DH5:

LASCI2
JASCIZ
ASCIZ
ASCIZ
ASCIZ

<377>/EXPECTED FOUND/
<377>/EXPECTED FOUND LU-REGISTER/
<377>/CHARACTER
BIi THAT FAILED/
<377>/CORRECT CRC
BIT THAT FAILED/
<377>/EXPECTED
FOUND
SHIFT/

EM2:
EM3:
EM4:
EMS:
EM6:
EM7:
EW'O:

DHé6:
DH7:
OH10:

.EVEN

pTI1:

002

007

002

SEQ 0104

5468
5469
5470

13:53 PAGE 104
SUBROUTINES
o~
O~

(IDME
MACY11 30A(10>2)
07-JUL-80
CIDME.P11
01-JuL-80 15:29

pr2:

LASCIZ
.ASE{%
AS

BYTE
SAVRS
.BYTE
SAVR4
3
BYTE
SAVRS

p13:

<377>/EXPECTED
FOUND
CHARACTER
<377>/BLOCK END NOT SET/
<377>/RTS DID NOT CLEAR/

3,7

3,2

3,7

.BYTE

3,10

BYTE

3,2

.BYTE
SAVRS
BYTE
SAVRS

3,17

SAVR4

EAVRZ
2

INITALIZATION TEST/

<377>*LINE UNIT REGISTER READ/ONLY TEST*
<37T7>LINE UNIT REGISTER WRITE/READ TEST*
<377>/LINE UNIT INTERNAL CLOCK FAILUJRE/
<377>/TRANSMITTER DATA ERROR/
<377>/RECEIVER TEST/
<377>/RECEIVER DATA ERROR/
<377>/MODEM SIGNAL ERROR/
<377>/THIS ERROR COULD BE CAUSED IF YOU HAVE V,35 AND/
<377>/AUTOSIZED.
YOU MUST MANUALLY ANSWER QUESTIONS IF/
<377>/Y0U HAVE V.35 (DMC11-FA)/
<377>/TRANSMITTER CRC ERROR/
<377>/RECEIVER CRC ERROR/
<377>/IN BCC MATCH ERROR (LU REG 12)/
<377>/TRANSMITTER FAILED TO GO TO MARK STATE/
<377>/CABLE DATA TEST/
<377>/FLAG ERROR/
<377>/TRANSMITTER FAILED TO STUFF A (ERO/
<377>/SWITCH PAC TEST/
<377>/ABORT ERROR/
<377>/TRANSMITTER ERROK/
<377>/MALF DUPLEX TEST/
<377>/0UT READY NOT SET/
<377>/IN READY NOT SET/

2,2

SHIFT/

CIOME
MACYYY 30A(1052)
07-J0L1-80
(2ome P11
01-JuL-80 15:29
032250
032252
032254
032256
032260
032262
032264
032266
032270
032272
032274
032275
032300
032302
032304
032206
032310
032312
032314
032316
032320
032322
032324
032326
032330
032332
032334
032336
032340
032342
032344
032346
032350
032352
032354
032756
032360
032362
0323¢4
032366
032370
032372
032374
032376
032400
032402
032404
032406

032406
032410
032412
032414
032416
032420
032422

000002
C06
027652
002
001266
000003
001
001300
001
001302
002
001260
000007
00
001272
001
0C'300
002
001260
000004
001
001300
001
001302
003
001272
002
001266
000004
001
001302
001
001300
003
001272
002
001266
000002
003
030430
002
001266
000002
006
027652
006
001252

000000
000000
000000
030504
031703
032220
030542

021

DT4:

002
011

DTS:

002
on

DT6:

011
002

DI7:

on
007
001

011

DT10:

011

007
001

007

DT11:

002
004

15:53 PAGE 10§
SUBROUTINES

DT12:

002
.ERRTAB:

EM1
DH2
D12
EM2

¢
.BYTE
CALBCC
BYTE
SAVR3
3
.BYTE
1ERO
BYTE
ONE
.BYTE
SAVRO
3
.BYTE
ONE
BYTE
1ERO
BYTE
SAVRO
4
BYTE
1ERO
BYTE
ONE
.BYTE
SAVRS
.BYTE
SAVR3
4
.BYTE
ONE
.BYTE
1ERO
.BYTE
SAVRS
.BYTE
SAVR3
2
.BYTE
FLAG
.BYTE
SAVR3
2
.BYTE
CALBCC
.BYTE
TEMP3

SEG 0105
6,21

2,2
1.1
1.1

2,2
1.1

1.1
2,2

1.1
1.1
3,7
2,1

1.1
1.1

3,7
2,1

3,7
2,2
6,4
6,7

0
0
0
JHLY

MACY1Y 30A(1052)
clome
07-JuL-80
. P11
(20m¢
01-JuL~-80 15:29

032424

31703

13:53
PAGE 106
SUBROUTINES

DH2

JHLT

SEQ 0106

CIOME
MACYY1 30A(1052)
07-JuUL-80
(ZDme .P1Y
01-JuL-80 15:29

032426
032430
032432

032220
030605
031703

13:53
PAGE 107
SUBROUTINES

T2
Em3
DH2

SHLT

SEQ@ 0107

———

(I0ME

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

e
. P11
(om

SEQ 0108

D12

EMé

0
0
EmS
DH2
D12
EMS

JHLT

cHLT

JHLT

Emé
41
D11

SHLT

JHLT

SHLT

D11
EM11
DMS
D16

JHLT

=2 PORD =2 POR) = POR) = RORN) = NIN) — N

Em?
DH1

SHLT

JHLT

DH6

JHLT

DH6

JHLT

DH6

JHLT

DH6

JHLT

D11

EM10

DH1
b1
EM1
DHS
DTS

Em12
DHS
DTS
Em1

—

32250

WONINO
NI NONIWONIWNONIWWNO ~nN
B NN
= NS NN = NN O WO (V1,8
OO =2NO OO =0 O NWNO ~NO~

032446
032450
032452
0324564
032456
032460
032462
032464
032466
032470
032472
032474
032476
032500
032502
032504
032506
032510
032512
032514
032516
032520
032522
032524
032526
032530
032532
032534
032536
032540
032542
032544
032546
032550

032220
030651

PAGE 108

SUBROUTINES

032434
032436
032440
032442
0324446

13:53

031341

031432

DH&
D14

EM13
DH1

EM12
DHS
D16

EM11
D17
EM
DT10
Em12

01?7
Em12

D110
EM16
0
0
M5

DH1
D11
Em16

(l0me

MACYY1Y 30A(1052)
07-JuL-80
01-JuUL-80 15:29

(ZDme P11

13:53
PAGE 109
SUBROUTINES

pu3

SHLT

cHLT

JHLT

DM1
DT

JHLT

OM7?

tHLT

JHLT

JHLY

JHLT

SHLTY

cHLT

sHLT

DTN

Em12

DH1

D112
Em7
0
0
Em20
fu

0
EM21
DH3
013

DTS
M3
032726

032730

032206

000001

SEQ 0109

DH1

CORMAX:

ClOME
MACYYIY 3GAC1052)
07-0uL-80
(lomg . P11
01-JuL-80 15:29
ADR(NT= 004373
AUDONE
003024
AUSTRT
002446

AUT0.S

010640

BINWRD

004714

BCCLD

BITCON
8110 =
BITY
=
81710 =
BI1T11 =

3808

1837

3883

31912

52654

5404

5406

S424v

54260

5427

54729

54540

3089

3117

31597
4883

3623
4978

1581

2170

2183

2768

2826

2877

2928

2979

4016

4087

4187

6262

4509

4780

4844

4885

4980

2082
1394

2094
2093

2154
2118

2185
2185

2394
2196

31527
2396

3541
31529

31569
3599

1325

1769

2104

PARNA

3545

= 000040

BI1?
8178

= 000200
= 000400

= 000100
= 001000
007054
012460
003730
003732

027552

027066

3203

6934

6924
6914
690#

7034

1188

1209

1212

3483

3601

3652

2064

2157

31572

3620

3727

3149

3173

4845

5066

5108

5384

31802

2804

3212

3260

1297

3334

371

7004

2299

2399

2747

2857

2908

2959

1010

Thian

4797

1878

2299
2178

c776
219N

3574

3622

3625

1987

4053

4112

5254

52594

547°2

6994

6984
6978

6964
18004

2255

133
1332

3677

1792

1757

1758

124

1758

2161
2159

2176
2161

2265

2273

2130

16172
1418#

3706

3752

2189
2173

312¢

2199

31182

3217

2193
2202

3543

2199
2258

781

31827

3856

31902

6342

4363

4439

4482

4539

4560

3204

3252

31289

3326

3363

3484

51164

4992

CNERR

007277

1239

1125

5038

1579

1392

1850

5240«

1583

16424

3548

2202
2260

2260

5241

5263

5249

1599

16179

1618

1639

1825%

95250

193

4609

4630

5251«

4706

1852
1833

1859
1868#

3653

3682

1728

3757

1803

3832

1878

3907

5380#

806
Bu34
1234

Q74LH
1236

1097
1391

1099
1353

1101
1355

1906
1357

1673

1675

1735

1841

1242

1689

2004

1834

1880

31909

31959

4021

18004
1243
8414
54724
18004
52624

3655

4533

18004

1800#
2084
12564
1154

3877

31950

22854

4312

18384
184612
184634
1844
1826
7814

(RC16 = 120001

1189

3402

1777

S;gln

010014
010026
010032
010036
010142
001242

007114
002776
104410
032730
006606
102010

1144

31362

3571

CKSWR1
(kSwR2
(KSWRY
(KSWR4
CKSWRS
CLKX

CNT.MA 001702
CNVRT = 104411
CONERR 007223

1098

2181

3325

2194

51434
1576+

030214

2079

3288

16194

2187

027200
004712

007734

3251

1582

7024

CHARSD
(HRCNT

CONN
CONTAB
(ONVRT=
CORMAX
(RAM
(RC.CC=

31762

1578

2062

811S

CLRIO

3733

1981#

1769

= 000020

(KSWR

31687

1139

1768

= 000010

(HAR

102728

5403+
1769
1762
2162
2724

8174

CALBCC

1537
1226

S401+
1768
1144
2151
2691

= 000004

BRY
BRX

1528
1221
1276

5200
7054
7048
6954
69«8

81115 = 100000

BRLVL

SEQ 0110

030432
000001
000002
002000
004000

BIT2

BITY
M

== USER SYMEOLS

3658

81112 = 010000

8!116

TABLE

027654

81113 = 020000
BI1:4 = 040000
BI1TS

1692
1182
11818

13:53
PAGE 111
CROSS RFFERENCE

4760

4897

4133

L2291

6106

4285

4336

4953

2043

3684

4603

3730

4888

3759

4983

3805

5261¢

(IDME
MACYY11 30AC1052)
07-JUL=-80
(I0me P11
01-JuL-80 15:29
(REAM
(SR
CSRMAP
C1soLy
CYCLE
DATABP

001320
006510
010642
030404
010206
005216

DATACL= 104415

DATAHD
DELAY =
DEVADR
DEVTAB
DH1
DH10
DH2
DH3

005204
104413
004370
003010
031662
032162
031703
031741

DHS
DH6
DH7
DISPLA
DISPRE
DMACTV

032037
032071
032137
001200
000174
001306

DKH&

031777

DMCM
DMCROO
DMCROY
DMCRO2
DMCRO3
DMCRO4
ODMCROS
DMCRO6
DMCRO7
ODMCR10
DM(R1Y
DMCR12
DMCR13
OMCR14
DMCR1S
DMCR16
OMCR17

007320
001500
001510
001520
001530
001540
001550
001560
001570
001600
001610
001620
001630
001640
001650
001660
001670

DMCSRH
OMCTL
DMNUM
DMPO4

001406
001410
001310
001412

OMPO6
DMRLVL
DMRVEC
DMS100

001414
001376
001374
001502

DMCSR

001404

13:53 PAGE 112
CROSS REFERENCE

80S#
18004
19834
54404
1333
1662+

1096+*
2008

1902«

1903

1374
1665

1375
1687

1893
16904

2792
3365

2993
3404

1905«

1909

8514

27%

2775

2779

28139

2840

2854

3765

3810

1811

3839

31840

1885

1886

4099
4389
4789

1661«
8470
1490
1196
54724
54724
54724
54724

3007
3405

3049
3448

SEQ 0111

TABLE == USER SYMBOLS

3052
3449

3093
3486

31N
3660

2890
3149
3661
3914

2891
3177
3689
3915

4292
4631

2905
3206
31690
3969

2941

3256
3735

2962
3291
3736

6313

3971

4649

4343
4656

4035
6364
4658

2956
3328
3764

4037
4382
4669

4159
4540
5407

4161
456
5430

4197
4581

4278
4610

1290

1893

1907

1989+

2215¢

2221

2222+

2226

2251

1215

1220«

1225+«

1260

1378

1415

1707

1730

1776

1911

1920

1757«
1922+«
1092
1746+

1758+«
1923+«
1364
1752

1762«
1924
1987«
1789

1768+

1769«

1775«

1777

1920+

1921

1922

2002+«
1794

2206+
1924+

2207
1925+«

2216

2218
5053

5066

5108

5224

5299+

1763
1929«
1381

1926+
1930+
1912+

1927«
193
1913

1929

4113
4391
4794

4134
402
4800

1525
12614

15354

1111«
1117
1134

1117«

1348¢

1289+

1181+

1683

16864

4152
4526
(854

54724

54724
SL72#
54724
7524
7384
7994
1247
8894
894N
899#
9044
9094
9144
9194
Q24LN
9294
934w
939«

1800#

9L4N
9494
954n

9594
9644

8724

1969

8734
87404
8004
B75#4

5309+

8764
8694
868«
8904

2316¢

5310+

1926

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

1933«
1931+
1985

888«

1399«

9374
9424
9474
9524
9574
9624
9674
8714
8704
9694
805
1397
56724
56724
56724
56724

=0
N
OO0
Mo

001616
001626
001636
001646
001656
001666
001676
001402
001400
001700
001500
003734
032206
032340
032362
03¢374

SEQ 0112

TABLE == USER SYMBOLS

8954
9004
9054
9104
9154
9204
9254
9304
9354
9404
9454
9504
9554
9604
9654
8914
896#
9014
9064
9114
9164
9214
9264
9314
9364
9414
9464
9514
9564
9614
9664
8924
8974
9024
9074
9124
9174
9224
9274
9324

—

DMS311
OMS312
OMS313
DMS314
OMS315
OMS316
DMS317
DATLVL
OMTVEC
DM.END
DM.MAP
DONE
oM
0110
TN
AR

001512
001522
001532
001542
001552
001562
001572
01602
001612
001622
001632
001642
001652
001662
001672
001504
001514
001526
001534
001544
001554
001564
001574
001604
001614
0016264
001634
001644
001654
001664
001674
001506
001516
001526
001536
001546
001556
001566
001576
001606

srO0O

DMS101
OMS102
DMS103
DMS104
OMS105
OMS106
OMS107
DMS110
OMS111
DMS112
OMS113
DMS114
DMS115
DMS116
DMS117
DMS200
DMS201
DMS202
DMS203
DMS204
DMS205
DMS206
DMS207
DMS210
OMS211
DMS212
DMS213
DMS214
DMS215
DMS216
DMS217
OMS300
OMS301
DMS302
OMS303
OMS304
OMS305
DMS306
OMS307
OMS310

13:53
PAGE 113
CROSS REFERENCE

1933
1149
1829+

1159

1275

1903

1905

1983

1988

2243

CIOME
MACYT1 30A(1052)
O07-JuL-80
(Z0me .P11
01-JuL-80 15:29

032220

56724

032250
032262
032300
032316
030504
031007
031226
031255
031301

56720
56724
56724
56724
56720
54720
56724
56720
56724

EM1S
EM16
Emi7
Eme
Em20
Eme
Em22
Em23
EM24
EM25
Em3
EM4
EMS
EM6
EM?

0314
031432
031446
030542
031512
031533
031550
031573
031615
031640
030605
030651
030713
030743
030762

56720
56724
54724
56724
54720
56724
56720
54724
54724
54724
54724
56724
56724
56724
564724

ERCTO0
ERCTO1
ERCTO2
ERCTO3
ERCTO4
ERCTOS
ERCTO6
ERCTO7
ERCTI0

001704
001710
001714
001720
001724
001730
001734
001740
001744

D12

D13

03223%6

EmM14

031341

D14
D15
DT¢
D17
em
EM10
Em
Em12
Em13

EOM

ERCTI1
ERCT1IZ
ERCT13
ERCT14
ERCT1S
ERCT16
ERCT17
ERR
ERRCNT

FLTDAT
Fv

TABLE -~ USER SYMBOLS

SEQ 0113

54724

56724

030126

4096

4195

4271

4275

4518

4523

4903

4907

001750
001754
001760
001764
001770
001774
002000
002700

10034
10064
10094
10124
10154
10184
1021#
1205

12314

1235
1387
1346+
16814

1700«
1408+

1918«
1650

1663

1677«

1736+

4905
1222

4999
1228

4916

4956

5657

001232
ERRFLG 001325
ERRMSG 005172
ERRPC
002770
0053¢2
ERTABC
= 000205
EXIT
EXITER 005252
FLAG
FLOAT

13:53 PAGE 114
CROSS REFERENCE

030430
002536

030440
002566

9764
9794
9824
9854
9884
7914
994u
9974
10004

7734
8124
1660
1237
1675
7064
1695

564538
11984

4891
12074

1360
1094
1678
12534
17104
17004

5472
1204

L0
1218

491

4998

53484

ICOUNT
INBUF
INCHAR
INIFLG
INRDY

00522°2
004366

001222
007630
010146
001324
027510

INSTER=
INSTR =
INSTRZ
INTTY

104404
104403
004166
012474

LIMITS
LINE
LOBITS
LOCK

004314
007016
004372
001220

LOKFLG
LOLIM

001326
004364

KMCM

LPCNT
LRC8 =
LSTERR
LUTYPE=

MASKX
MASTEK
MCRLF
MCSRX

MDATA
MEMLIM
MEPASS
MERRPC
MERRX
MERR2
MERRY
MESDAT

007330

001224
000200
001234
eeeeee
001244
006142
005672
006072

007672
001304
005733
006217
006117
005760
006005
030434

MESLD

030152

MILK
MLOCK
MNEW

001322
006043
006144

MODU
MPASSX
MPFAIL
[ L]
MR

006704
006106
005675
005666
005755

MRESET= 004000
MSTCLR= 104412

6153
64547

1646
1489+

16924
1516

95431

7694
1459
1844
811#
3406

6667
4938

833
8314
1466
2027
1250

1505
1800
1491+
7684
3649
8134
1488+«
7708
52604
7748
611
782#
1671
1444
1350

1597
798#
1349
1674
1356
18004
1286
3610
W51

3609

4995

8064
1327
1281

18004
1354
1734
1474
1336
7064
8454

4162
4564

1406
1495
18724
1120
3450

4295
4568

1147

3495

3851
3822
2949

4299
4584

4316
4588

3503

4222
4740

6067

4227
6745

4405
4801

64619
4811

4424
4819

L4648

L4662

2475+

2501+

2526+

2559+

2579+

4604
4996
4850

G447

5002

6516

4900

6510
54554
4904

2634

2656

2690

2723

4691

4712

4198
4726

2007

2016

2120

2129

2069

2085

2100

22934

15164
2921
1520
1410+
3681+

1537
1429
3756+

1669

3799«

2417
3831

2433+
38741

2459+
3906+

1518
1405+

1409+
1647

1649+

1737+

1668

1676

18004

1941

2003

4094
4671
6192

4188
4725
4268

4193
4781
4272

4263
4786
4515

4269
LN
4520

4273
4851
4785

4329
4986
4790

1358

1901«

1906+

1910

2040

2050

2060

2077

209

2111

2387

2419

2461

2503

2561

2612

4672
5003

5023

1510
1942
14784
2044

1800#

1103
5232
18004
1567
18004

1607
1313«
18004
18004
18004
2228
18004
4088
4596

4093

53614

1097«
18004
18004

2068
1800#
18004
18004
1800#
1739

52124

3981
3059

4367

4638

L
X3

3847
3818
2945

3776
3747
2898

414
4543

3772
3743
2894

3701
3672
2847

O N = NI
N N—= OO
O —= O~
N

3697
3668
2843

Pk
Y
IV P o
O NO VO
WA NS
SOV~

HALTS
HILIM

030000
027766
026650

SEQ 0114

TABLE =-- USER SYMBOLS
R V[V
[V ]
O NO
O
— OO
NONO NO

GE1Q1
GETQ0
GETSI

CIOME
MACY1Y 30A(1032)
07-J) L-80
CIDME P
01-JuUL-80 15:29

13:53
PAGE 115
CROSS REFERENCE

4120
4383
4659

6137
4392
50474

4917

4933

4908

1705

2314+

2338

2361e

2385«

4256%

4503+

4853
1252

4912

4999

2878

2883

2929

2734

2980

5322

5338

5352

5369

6514

4784

1996

2009

2018

2122

FARY

19 9
191 7 *

1521

5285

4849

5081

5067

5090

1095
16914

—

6834
8144
1688

6794

N —

PUSH2S= 024646
QV.FLG 001327
RESREG
005220

1499
1347+

—

1414
2026
1089+
1696

6804

1944
15N

—

9814
9844

17610
1699

13264+

2255+

1363«

1403

2265+

6196
5196

4524

3044
5148

4092

4840

4879

3968
5097

4034
5139

4097
5155

512¢

2558«
31140
3648

4777+

3035

AN
~
— O

2500+
3086+
3594

4267
5276

50614

2925+
3436e

5472
2832

2874
3395+

[PV]

4793
12234

2823«
3358+

3048

1895

2765+
3321«

—_ O

2989

191
5181
9754
9784

3286

4015

1943

2938

4788
1216

—O

~NWN
—

488"

2887

6848
18004
6734
6814

PUSH1S= 005746

4842

2836

18004
12294
1995

022626
006547
177776
010046

POP2SP=
PRIO
PS
=
PUSHRO=

2458+
3028+
3524+

4779

2774

1136
1190
18004

1412

004234
040000
004310
001230
004537
005430
012600

POP1SP= 005726

2416+
2976+
3480+

4505

3249
3949

18004

9874
9904
9934
9964
9994
10024
10054
10084
10114
10144
10174
10204
8354
16940
7064
1497
7728
7064
1735
68284

PARAM1
PARBIT=
PARERR
PASCNT
PERFOR=
PFTAB
POPRO =

3144
3726

4L183¢
5058«

79748
2827

001760
001772
001776
104405

3088
3596

4081+
5056+

002646
001302
027034

001762

3030
3526

4013«
5055«

ox
ONE
OUTRDY

PACT1S
PACT16
PACT17
PARAM =

2978
3482

2721+
3284+

2730

PACT14

SYMBOLS

2688+
3247«
3947+
5054+

026702

001702
001706
001712
001716
001722
001726
001732
001736
001742
001746
001752
001756

== USER

2654
3199
3873«
5053«

7670

SEQ 0115

TABLE

2099

026700
007154
002674
006450

PACTO0
PACTO1
PACT02
PACTO3
PACTO4
PACTOS
PACTO6
PACTO7?
PACT10
PACT11
PACT12
PACT13

18004

NITCH
NOACT
NODEV
NUM

OCOR

4258

2927
3438

wiw

001216

007454

1124
1800#

oo —

MvV35

7468
1672
18004
1352

2876
3397

—

001000
006130
006031
006109

2825
3360
(185

MTITLE
MISTN
MISTPC
MVECX

2767
3323
4083

13:53
PAGE 116
CROSS REFERENCE

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

4974

5575

5172

005350
003534
104407
001214
104414

17274
1366
1691
1105+«
1747

2466

2659
2791
3008
3265
3533

4032
4468
4812

RUN

001316

SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVRY
SAVR4
SAVRS
SAVSP

001312
001314
001276
001260
001262
001264
001266
001270
001272
001274

SAVOS = 104406
027504
SCHAR
SCOPE = 104400

SCOP1

= 104401

SILOLD
SIMBCC

027244
027544

SKIpP

002632

SOFTSW
SOM
SPACNT=
SPEED
STACK =
STAT

STAT1
STAT2
STATY
STFFCK
STFFCL
STRISW

STUFDT
STUFLG

Sv05S

010200
030076
004713
007340
001200
001240

001366
001370
001372
030314
030234
001236

030460
027506

004402

5064
5170
5320

PAGE 117

CROSS REFERENCE

1333«
1750

24677

2668
2801
3037
3293
3536

2432

3859
3419
3692

2693
2829
3041
3302
3561

1412+
2318

1416
23461

2695
2834
3046
3330
3564

2699
2855
3069
3339
3603

2726
2880
3094
3367
3607

2509

4208
4687
4855

1361+
1255
1556

1364+
1542«
5472

2219+
1712

5164
2349

5182
2373

5187
2404

1550
1558
1559
1560
1561

2809
3346
4168

2479

1374
1792

4199
4673
4846
5083
5177
5327

1261«
15649+«
1548+
15647«
1566+

3439«
2326

1337
1787

£062
4677
4820
5079
5174
5324

1899«
2226

1651

2860
3383
6239

24645

3905
3447
3738

1900+«

5086
5183
5340
1907

291
3422
44BS

4223
4692
4918

5092
5203
5343

2530

4228
4701
4934

5095
5205
5354

1970

2437
2613
2777
2982
3220
3496

4024
4449
4795

4425
4746
5019
5131
5281

5033
5150
5297

5787

2474

3634
3463
3767

5191«
2446

5192
2488

2708
3272

3102
3635

2642
3186
3860

2675
3235
3935

40C1

2575

3709

3755

3784

4108

4287

4338

3013
3511
4828

51594
3813

3842

1888

3917

3529

3541

3569

3567

3599

3623

4883

4978

1142

1144

1279

1325

1334

1936

1960+

1990

2487

4988
1213

52324
1219¢

1601

1604«

16184

1090

1303

1706

1729

19142
1915«
1916+

2394
2616
3545

2396
2638
3572

3527

S392#
1126

1129«

1130

1'32

3440

5185

5199«

5209¢#

2520

3074
3582
4863

5198+
2546

2962
3466
4763

4893
1210

2053

2511

1958+

2424
2584
2770
2936
3208
3451
3966

1557
5472
5472
5472
5472

4605
1189
18814

53344

SEQ 0116

TABLE -- USER 5YMBOLS

13740

1098+«
1284

1092«
1235«
1551«

m
PO NN N) —
W) — O NN
20D VNN~
NN ON =2 (N — NN LI O
O PO O O N NWNON OO
WA

RESTAR
RESTRT
RESOS =
RETURN
ROMCLK=

13:53

AN
SN B SN

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

2541

4959

362C

MACY1Y 30A(1052)

07-JUL-80

SWFLG
SWmMES
SWMES1
SWR

010144
007205
007215
001202

1093«
18004
1800
7538

1438
18490
1843
1110

1837«

1864+

1870#

1112

1116

1126

000176
000001
000002
000004
000017
0000¢v
000040
000100
000200
000400
001000
002000

7394
6554
654N
653
6524
6514
6504
64Lo8
(AT
6678
6468
6454

1116
1130
1334

1825
1990
1936

1883
2239
1960

5244«

1240«

5270«
1806

4430
4936

4465
4937+«

4L66+
(952«

4481+
4953

4482
5021+

4689+
5022+

7864
7874

1154+
1155«

1808
1810

2012
1993«

2015
2006+

201
2237

2024
5104+

8534
7588
7594

2697
1461
1463

7610

1447«

50424
1445

1104

2557«
3113«
3647

(973
1968
2557#
26094
26314

1ST16
TST1S

014114
014214

2654
2688

26874
27204

2721

26534
27648

3207
1827
1469

3255
1872
1830

3292
2293
1832

3329
5446
1874

1467

164

1875

2296

1715

1743

1947

1954

1469

2609¢
T141e
3722«
2313

1644

2631
3169
3797«

1877«

2653+
J1QRe
3872+«

2
»

1999

5286

4638
gzgg

4878
1950
2500
2558
2610

01435¢

S239e«

2666
5179«

2672+

4704+

4705
5149

4757+
5163+

4705+

4225+
4706

5398«

4226+
47430
5408+

4422+
L7440

4423
4759

2128

2134

2137

5563

3605

2415
2975+
3479

2457
3027+

12%

5201+

2663+
5168+

4703+
5136

1179«

5194

012526
013534
0137210
013752

TST16

5226+

5038

3366

5§146¢

56211

56434+

2295

2298

2687«
3246
3946t

1956

2720+
3283
4012+

2313
27640
3320

4080+

1153«

2632

5220+

1784+
5088«
5368«
4479
5036«

7854

1778«
5076+
5329+«
4438
5035«

- O~ 00

4950

1773«
2252«
S318+
4437+
4952

4759

ST
1ST10
1ST11
1S112

014014

WA
D

4758+

2699
3085¢
3693

53144

O—=

5272+«
1804

1731«
1802

5071«

6266

5252«
1151«

1584
1150«

3175

4190

(U 1,0
o

5238
7848

16304
7718

TST1Y

3147

1732+
2251«
5283+
4636
4951+

TRPOK
TSTNO

004730
001226

3119

1640

40N

1963
7608

001212

1645

4022

TLAST = 026332
TPCSR
001210

TPDBR

1401
16440

TiIMER = 104416
TKCSR
001204
TKDBR
001206

4982

1701
1425
1703

»>

07M1254
001256

4981

1765

TEMPL
TEMPS

4887

1279

3956

5167«

1645

001252

1640

g9 e -]

TEMPY

1440

-— B~

001250

1425

(VP

TEMPZ2

4783

1401

p—ry

8814
7834

4513

1364

001416
001246

030016

1289

1863+

YAV]
640N
3091

1825

—2 MO0
N

TEMP
TEMPY

= 040000
= 100000
026720

1765

[0 XV ]STV]

SYNLD

(YAY
6434
6428

1703

]
1284

SO
N

SW14
SW1S
SYNC

= 004000
= 010000
= 020000

1701

SEQ 0117

TABLE == USER SYMBOLS

SW11
sWw12
SW13

=
=
=
=
=
=
=
=
=
=
=

1694

CROSS REFERENCE

SWREG
SWw00
sw01
sw02
sw03
SWw04
SWw0S
Swo6
sw07
sw08
SWw09
sWw10

01-JuL-80 15:29

PAGE 118

CZDME .P1N

13:53

CIDME

2360¢

2873

3394+

4255

2384
2924+
3435

4502+

L7760

3523

4839

CIDME

MACY1Y

(I0ME .P1Y
1$117

014550

2765

014732

2823

012602

1S121

01911

18122
1S123
TST26

015276
015460
015666

19125
1S126
19127

0157954
016044
016132

1513

1ST30

15136

2874

29244

2925
2976
3028

3086
3114
3142

016374
016510
016626
016744
017062

1199
3247
3284
1321
3358

017352

3170

3395

31436

31134
31410
31692
23604

311982

bYLY.Y
32834
33204
3357
33944

34354

34792

2361
3480

2384n
35234

15142
T1ST43

020140
0206454

3594
3648

36478
37224

021304

1798

1S144

020770

T1ST46
TST47

021620
(022056

TST4S

1S15
T1STS0

3524

372%

31873
3947

35934
37974

1872#

39464
40124

TSTSY
TST54

013024
022314
022646
023074
024174
025374

2385
4013
<081
4183
4256
4503

26154
4080~
41824
62554
4502#
W60

15156
1S157
1516

025744
026332
013164

4840
4879
2616

4878#
49734
24574

15751
1S152

TSTSS

TS160

1S17

TT1ST

025626

teeeee

013324

003612

TWwOSYN= (10000
TYPDAT
005206

TYPE

TYPASG
VEC
VECMAP
wHICH
WROCNT
WRKO.F
X8X

X(CSR
XERR

= 104402

005106
006526
012216
(012210
004710
005174
005000

003546
003570

“77?7

4974

68394

5042

2458

24998

7064
1666

1329«

1331

1684

16874

2042

2049

1328«

8294
1350
1674

2039

1664
18004
2227
2005
1575
1679
1641

130
1357

SEQ 0118

29754
3027#
30854

012722
017512

017744

(ROSS REFERENCE TABLE == USER SYRBOLS

28734

1874
15740

1ST141

810

PAGE 119

2822#

23374

2338

017212

TST37

13:53

23146

012650

016222

ST
TS132
TST33
T1S134
1ST3S

0Q7-JuL-80

01-JuL~-80 15:29

TS12

18120

36A(1052)

1124
1352
1676

16674
2017
22394
22354
1608+
1682#
1647

13764
13854

1136
1354
1680

16164
1645

1332

13954

1148
1356
1685

1233
1444
1734

2052

2059

1238
1457
1840

2067

1246
1474
1843

2076

1249
1567
1895

2083

1281
1607
1941

2090

1286
1667
1959

2098

1327
1668
1965

2110

1336
1671
2003

2228

1349
1672
2025

CIDME

MAIYYT

XHEAD
XLOC

006226
003022

1148
1206

007602
005330
003554

4533«
1197
1673
1353

wveeeer

611

(20ME .P1Y

XPASS
XPOLY

1ERO

$COD

001300

SCRAP = 177777

SENDAD

07-JuL-80

01-JuL-80 15:29

003562
027650

XSTATQ
XTSTN
XVEC

3GA(1052)

003522

= 000057

- 000061

= 000017

= 032730

PAGE

120

CROSS REFERENCE

¢ 10
TABLE

== USER SYMBOLS

SEQ 0119

18004
1224+
13824
3684
4603»
18004
17134
13794

1227

1258

12718

3730«
4BB8e

3759«
4983+

380Se
5248

I83Le
5250

3880+
52584

3909

3955«

40271+

4106

4285+

4336

61im
24054
2602
27164
2C634
3134
32794
34678
3714

23034
2408
26054
27534
2966
31374
33104
3470
37184

2306
2118
26214
2756
29714
31594
3313
34754
3786#

23094
24478
2624
27604
30144
3162
33164
351¢ew
31789

2%27&
2450
26278
28104
3017
31654
33474
3515
3793%#

2330
26530
26438
2813
30234
3187¢
3350
35194
38614

23334
2489
2646
28184
30754
3190
33538
35834
3864

23504
2492
26498
28614
3078
31944
33844
3586
3868#

2353
24954
26764
2864
30814
32364
3387
35894
39364

23564
25478
2679
28694
31034
3239
33904
36364
1939

23744
2550
26834
29124
3106
32420
3423x
3639
19424

2377
25534
27094
2915
31094
32734
3426
36434
40024

23804
2599«
2712
29204
3131#
3276
34312
37114
4005

6114

2303

2309

23N

23164

2327

2333

2335

23404

2350

2356

2358

2363

33240

3347

3353

3355

3360

33614

3384

3390

31392

1355
3655+«

7964

40084
L7640
733

23640
2455
2599
2656
2760
28778
3025
N
1201

3316

13:53

5472

40684
4767
1122

2374
2461
2605
2657
2762
2912
3030
3137
32024

3318

4071
L772%
13688

2380
26628
2607
2676
2767
2920
30314
3139
3236

3323

40764
4829
1692

2382
2489
2612
2687
2748
2922
3075
3144
3242

L1694
4832

2387
2495
26134
2685
2810
2927
3081
31450
3244

4172
48354

23888
2497
2621
2690
2818
29288
3083
3159
3249

L1784
4864

2405
2503
2627
26914
2820
2963
3088
3165
32504

42400
4867

261
2504k
2629
2709
2825
2971
30894
3167
3273

4243
4874n

2413
2547
2634
2716
28264
2973
3103
3172
3279

425
49604

2419
2553
26354
2718
2861
2978
3109
3173
3281

LLBON
4963

24208
2555
2643
2723
2869
29794
311
3187
3286

4489
4969

2447
2561
2649
27240
2871
3014
3116
3194
3287¢

LLOBS

2453
2562#
2651
2753
2876
3023
31174
3196
3310

3397

33684
3521
I7N
1876
4076
42594
ggz;

3423
3526
3718
38774
4078
4486
4842

3431
15278
3720
3936
4083
4498
LBLIA

3433
3583
31726
3942
L0BLE
4500
4864

3438
3589
37274
3944
4169
4505
LB74

36398
3591
3786
3949
6178
45060
4876

3467
3596
3793
39504
4180
4764
881

3475
35974
3795
4002
4185
4772
4882#

3477
3636
3801
4008
L1864
4774
4960

3482
3643
38024
4010
4240
4779
4969

34834
3645
3861
4015
4251
478048
4971

3512
3651
3868
L0164
4253
4829
4976

3519
36524
31870
4068
4258
4835
49774

6114
2500
27248
3086
32874
3594
40164

2314
25044
2765
30894
3321
35974
4081

23164
2558
27684
3114
33244
3648
4084y

2338
25624
2823
31178
3358
36524
4183

23408
2610
28264
3142
33614
3723
L1868

2361
26138
2874
31454
3399
37278
4256

23644
2632
28778
3170
33984
3798
42594

2385
26354
2925
31734
3436
38024
4503

233884
2654
2928%
3199
34394
3873
L5064

2416
26578
2976
32024
3480
38774
4777

24204
2688
29794
3247
34830
3947
47804

2458
2691
3028
32508
3524
39504
4B4LO

2L620
271
3031
3284
35274
4013
48438

6114
8474

817#
B4O#N

825
851

8274
853

829¢#
855¢4

831#

8334

8354

8374

8394

841

8434

845

8904
9064
9224

891¢#
9074
924

8924
9094
9254

’

4879

7184

8824
9024
9194

9354

W8B28

719

8874
9044
9204
9364

4974

7228

889#
9054
9214
9374

“9774

7294

9394

7344

9L08

737

9u1n

76410

B894n
9104
9264

9428

7454

8954
9114
9274
G4Ln

7674

896#
9124
9294
454

799#

897#
9144
9304
ubH

800#

8994
9154
9314
9674

801#

9004
9164
9324

9494

802#

9014
9178
9344

9504

C IOME
WMACYI1 30A(1052)
07-JuL~-80
C 10m¢ . P11
01-JuUL-80 15:2"°

9514
9674

.BEGIN
.CNVRT
LCONVR
.DATAC
.DELAY
.EOP
LERRTA
LHLT
LINSTE
.INSTR
JINSTY
MSG
LASTCL
.PARAM
LPFAIL
.RESOS
LROMCL
.SAVOS
.SCOPE
.SCOP1
.START
LTIMER
.TRPSR
.TRPTA
LTYPE

003152
004472
004466
005552
005436
003364
032406
004750
004154
004050
004070
004072
005466
004174
005336
004434
005504
004374
003576
003736
002002
005616
004716
001330
003766

1897
6163

13034
844
842
852
848
13440
1659
725
834
832
14578
1455+
B46
836
723
840
850
838
826
828
742
854
727
8248
830

13:53
PAGE 121
CROSS REFERENCE

952#
1128

1991
6393

15684
1567#
1772
17452
4974
54728
16394
14748
14534
1477
1458#
17564
14854
1091
15564
1761#
15424
13924
1424
10894
1783
16274
1632
14354

954
1138

9554
12704

2035

2180

17204

1728

1105

1860

4660

54724

0 10
TABLE

9564
1288

2184

SEQ 0120

== USER SYMBOLS

9574
1723

2231

9594
1733

2262

9604
17814

2294

9614

18004

2297

9624
18164

3528

9648
18184

3542

9654
1873
3570

9664
1876

3598

—

(IOME
MACY11 30A(105¢)
07-JuL-80
C20me P11
01-JuUL-80 15:29
DMEND

ANT

HLT

$8C(
$BINCR
$BINVI
$BUFFE

$COATA
$CLOCK

sComP

$CRC

2325

2348

2372

2403

2631

2444

2473

2686

2519

2540

2574

2592

2619

2641

4301

4318

(322

4348

4352

4369

4373

4385

6394

4612

44632

4641

4455

4475

4484

3341

3369

3378

3490

3498

3506

2622
2586
2781
3037
3330

2424
2613
2791
3041
3339

24635
2635
2801
3046
3367

2437
2659
2879
3069
3376

2464
2668
2834
3094
3407

2666
2693
2855
3122
3445

5112
6114
6114
6118
6118
6114
6114
6114
611d

6114
4210

6114

SINACT
$INIT
$LINE
Ll
$LU1Z
sLU1?
SMARH |
SMARK

6114
6114
6114
6114
6114
6114
6114
6114

$MOCK

SMODENM

6114

2674
2961
3300
3674
1979
4549
733

5278

1160

3222
64627

4230

3653

$RCLK

61148
24677
2695
2880
3150

2740
3002
3337
3703
4045
4570
4762

2750
3012
3345
3745
4049
{586
4799

3786

3861

3229
4470

3258
4694

2788
3057
3374
3749
4118
4590
4808

2798
3061
3382
3774
6122
4615
4818

2807
2101
3413
3778
6139
4619
4826

2845
3129
3457
3820
6143
4636
4862

2849
3157
3494
3824
4155
4640
4924

2859
3185
3502
3849
4164
4652
4946

2896
3215
3510
3853
4206
4661
4955

2900
3227
3559
3895
4215
4679
5010

2910
3234
3581
3899
4235
4699
5031

2947
3263
3631
3924
4297
4708
5040

4960

3682

3728

3757

3267
4748

3295
4941

3304

3332

31878

3907

4929

5014

2341
2566
2770
2982
3265

2365
2568
2772
2987
3293

3803

3950
1884
4764
1338
5042

4016

2505

2525

2563

2580

3075

3103

313

3159

2489
2303
2405
2447

2547
2327

2350

2374

4615

4458

4682

4736

5303
2007

2016

2120

2129

1750
2509
2726
2906
3208

1787
2511
2728
2931
3218

1792
2530
2733
2936
3220

2318
2532
2743
2957
3256

1832

5026

4829

3467

3512

6118
6110

9433

3210

4864
2643

6114

6114
6114
6118
6118
6114

4566
4753

3711
4002

6219

6114

2706
2998
3308
3699
3983

3636
3936
3014
1812

6118

$MSG
$MULT
SPATTE
SPFAIL
$Q00 |

S$QUEST
SRAMCL

SEQ 0121

6858

2665
2951
2N
3670
39¢8

6114
6114
6118
6114
6114
6114
6114
611
5118

SMATCH

TABLE -~ MACRO NAMES

1338

$CRCSH
$CYCLE
SEMPTY
$EOP
$FIN]
$FLAG
$FLOAT
$GE TPA
SHALF
SMEADE

E 10

6114

6118

4545
4719

$ABORT
$AUTO

13:53 PAGE 123
CROSS REFERENCE

1800

3384
1716
5293

1994
1744

1747
2479
2699
2885
3178

3423

2389
2584
2777
3008
3302

31958

3962

4634
4802

3966

3996

4812

44663
4820

64649

839

845

849

851

6114

23N

2335

2358

2455

2497
3139

2651
3281

2718
3355

2762
3392

4837

4876

4971

2555
3167
3944

6114
2547
2818

2303
255%
2861

2309
2599
2869

2374
2649

2489

2495

331

3467

6118

4169

6118

5232

4835

6112

032730

ERRORS DETECTED:

(W IV TV, W

5079
5183
5354

5083
5203
5356

5086
5205
5371

3347

287
3477

744
2810

3165

31942

LB6L

2922
3521

2861

31187
3475

4002
4874

2973
3591

2912

2327
2605
2912

3194

3512

4008
4960

000
0

15 21 1 SECONDS
RUN-TIME RATIO: 64/39=1.6
(63 PAGES)
(ORE USED:
32x

3111

3795

2356

2643

2971

3273
3589

4169

3870

3014
3279
3636

(178

4180

4500

NN
=
DD
NO — B~
OO WO~

1820

(ZDME ,CIDME . SEQ/SOL/CRF/NL:TOC=(2DME
. P11

RUN=-T
| M¢ :

3310

5064
5177
5343

2760
nNn
3390
3861

S ANNINRNOND

31936

3273

5297

=0 OO

3159

3236

5128
5287

6114
6114

5124
5281

O WO WOO

2820
3433

3187
1388

5106
5278

£ W
N

$SWPA(
$TCHAR
$TCRC
S TRANW
$TRANY
$TRPDE

5095
5274
5387

[V IV

5092
5222
5385

(687

837

4934

4673

TV ]

835

4918

4477

4262
4686
4336
2753
829

NPOMNY
NO O N

4425
4795

W — O~
OWO —r0
~N N NN

1564

2621
4187
4240
4285
2709
827

4855

»
61\
6114
3RV

ABS.

3561

SEQ 0122

=~= MACRO NAMES

2599
(087
4068
4106
2676
825

4846

$S1MB(C

3536

4208
4701
4948
NN

TABLE

6114
6114
6118
6118
611e
gggc

64062

$SINAC
$SOF T(
SSTUFF

$EROS

3533

6199
6692
4939

4228
4727

4032

6114
6114

$x?

3504

4028

$REC
$SCOPE

SVAR!A
$WINDO

3496

6024

L6468

$ISTIN

3488

13:53
PAGE 124
CROSS REFERENCE

£ NP
—
O
2 NO

01-JuL~-80 15:29

3451

SRCRC

07-JuL-80

czomg . P11

30A(1052)

WO~

MACYYY

(WIIC
TV, P W

(Z0ME

6772

L774

2810

3137
3423
3868

4829