Digital PDFs

AH-8504F-MC

September 1979

96 pages

Original

5.2MB

view download

OCR Version

5.1MB

view download

Document:	CZDJAF0 DJ11 DJ11 LGC TEST SEP 1979 bw
Order Number:	AH-8504F-MC
Revision:	000
Pages:	96
Original Filename:	CZDJAF0__DJ11__DJ11_LGC_TEST__AH-8504F-MC__SEP_1979_bw.pdf

OCR Text

DJ11 LGC TEST

CZDJAFO

AH-8504F-MC

SEP 1979

EOEA0ENIN-USA
copvaichT 7279 MA
DE

FICHE1 OF1

DJ°Y

LOGIC

30A(€1052)

CO=FLRB=79

15,47

1
PAGE

6-FEB-79 1

MACY11

IDENTIF JCATION

PRODUCT

CODE
:

AC=8502
=M(
F

PRODUCT NAME;

CZDJAFO DJ1T

LGC

TEST

PROGRAM DATE
:

FEB

MAINTAINER:

DIAGNOSTIC ENGINEERING

1979

& it
L]
B

B S BN

Y IR Y B8 35 3 REC DS con v £

.REM %

THE INFORMATION
IN
THIS
DOCUMENT
IS
SUBJECT
TO
C(HANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY
DIGITAL
EQUIPMENT
CORPORAT]ON.
DIGITAL
EQUIPMENT

CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY FRRORS THAT
MAY APPEAR IN THIS DOCUMENT,
THE

SOF TWARE

LICENSE
THE

AND

TERMS OF

DESCRIBED

MAY

THIS DGCUMENT

IS FURNISHED UNDER A

ONLY BE USED OR (OPIED IN ACCORDANCE W'TH

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATIUN ASSUMES NO RESPONSIBILITY
FOR
THE
USE OR RFLJABILITY OF TS SOF TWARE ON EQUIPMENT THAT [S
NOT SUPPLIED BY DIGITAL,
{OFYRIGRT

()

1972,

1979 RY DIGITAL

EQUIPMENT CORPCRATION

Ji= D)A=F<0

2D AF P

DJIY

55
56
57

58
59
60
é1
62
63
64

67
68
6
7C
71
7¢

TESTS

26=FEB=79 15:41

5()
g?

LOGIC

MACY11

30A(1052)

P6=FEB=~79

22=~ (2DJA=F=D DJ11

TABLE OF CONTENTS

15:47
LOGIC

PAGE

TESIS

CONTENTS

lnll

1.
2.
2."°
2.2
2.3%
3.
4,
6.1

STORAGE
PREL IMINARY PROGRAMS
LOADING PROCEDURE
STARTING PROCEDURE
CONTROL SWITCH SETTINGS

4.3

PROGRAM AND OPERATOR ACTION

§.2

S.
5.1
5.2

ARSTRACT
REQUIREMENTS
EQUIPMENT

STARTING ADDRESS

OPERATING PROCEDURE
OFERATIONAL SWITCH SETTINGS
SUBROUT INF ABSTRA(TS

5.3
6.
6.1

PROGRAM AND OPERATOR A(TION
ERRORS
ERROR PRINTOUT

6.2

75
76

6.3

ERROR COUNTER

7.
8.

RESTRICTIONS
MISCELLANEOQUS

79
2C

8.1

8.2

8.3
8.6
9.

s§0 0002
PAGE 2

ERROR RECOVERY

EXECUTION TIME

STACK POINTER

PASS COUNTER
POWER FAJIL

PROGRAM DES(RIPTION

77=-C7DJA=F=0
CZDIAF.P11

82
8%
8,
85
8

DJ11 LOGIC TESTS
26=EEB~79 15:41

MArv11l

30A(1052)

26~FEB-79

15:47

1
PAGE 4
SFQ 0003

27~ CIDJA=F=D DJ11
DESCRIPTION
1.

TESTS

PAGE

PROGRAM

TESTS

THE

LOGIC

MULTIPLEXER
IN MAINTENANCE
MODE.
CONTROL REGISTERS FUNCTION PROPERLY.

&2
9%

ABSTRACT
THIS

85
%0

LOGIC

THE

RIGHT

LEVEL.

RECEIVED CORRECTLY.
INPUT
AND
QUTPUT

THE

DJ11

ASYNCRONOUS

IT CHECKS THAT ALL THE
THAT INTERRUPTS = OCCURE

AND THAT DATA CAN BE

TRANSMITTED AND

THIS PROGRAM DOES
NOT
TEST
THAT
THE
LEAD
CONNECTIONS
ARE FUNCTIONAL.
(SEE

&%,

MAINDEC~11-DZDJB, PROGRAMS 2 AND 3 FOR ON~! INE TESTING).

NOTE:

35
%

THE
PROGRAM
SHOU'D
SWITCHES DOWN.

43
100

103
104
105

106

RUN FOR AT LZAST 2 PASSES WiTH ALL

THE PROGRAM WILL AUTOSIZE THE SILO ALARM LEVEL OF THE

DJ11
AND
WILL RUN AT ANY ALARM LEVEL
ANY ALARM LEVEL SET.

]

102

REQUIREMENTS

2.1

EQUIPMENT

108
109

SET.

AND WILL RUN AT

PDP-11 STANDARD COMPUTER WITH CONSOLE TELETYPE
UP TO 16 DJ11 ASYNCRONOUS MULTIPLEXERS.

111

2.2

1€

3119

120
151
122

THIS PROGRAM USES ALL OF

2.3

126

8K,

EXCEPT ABS LOADER.

PREL IMINARY PROGRAMS

NONE
3,

124

127

STORAGE

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR ABS TAPES.

‘.

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

129

12
134
1%

137

SFE 5.1
4.2

(ALL DOWN FOR WORST CASE TESTING)

STARTING ADDRESS

THE PROGRAM SMOULD ALWAYS BE STARTED

200.

MAY

Z7=-(ZDJA=F=0
(ZDJAF P

138

D.11 LOGIC TESIS
26=FEB=79 15:41

MACY7 30A(1052)

26-FEB=79

15:47

1
PAGE 5
SEG Q004

RESTARTED AT

1000 AFTER ALL

PARAMETERS HAVE BEEN SELE(TED.

72=-07DJA=F=Q

(ZDJAF P

139

140

143
144
145
146

DJ11

LOGIC

TESTS

26-FEB=79 15:41

MACY11

30A(1052)

27~ CIDJA-F=D DJ11
DESCRIPTION
4.3

1
PAGE €

LOGIC

TESTS

PAGE 4

PROGRAMTM AND OPERATOR ACT]ON
1)

LOAD PROGRAM INTO MEMORY USING ABS LOADER.

4)
5)
6)

(SEE SEC.
5.1), ALL DOWN FOR WORST CASE, PRESS START,
IF SWITCH-LESS PROCESSOR SIMPLY PRESS START.
ENTER PARAMETERS (SEE SEC.
5.3) AS THEY ARE REQUESTED.
THE PROGRAM WILL LOOP AND BELL WILL RING ONCE EVERY PASS.

A MINIMUM OF

2) LUAD ADDRESS 200.
3) IF HARDWARE SWITCH REGISTER IS AVAILABLE, SET SWITCHES

148

157

15:47

SEG 0005

149
150
151
152
153

“54
155
156

26~FEB=79

EOP'' IS ALSO PRINTED ON EACH PASS.

TWO PASSES SHOULD ALWAYS BE RUN.

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

158

189

160

161
162

AT SA 200, ALL SWITCHES DOWN [S WORST

164
165
166

168

Sweis> = 1

163

167

CASE

TESTING.

SUBTEST WILL BE LOOPED UPON UNTIL COMPLETION OF
THAT SUBTEST.

THE

THE BELL WILL

THE ENTIRE PROGRAM.

FEACH

16 PASSES OF

RING UPON (OMPLETION OF

PASS

SWITCH SETTINGS ARE:

SWkie>
Sw<13>
Swe<i2>
SW<11>
SW<10>

(... HALT ON ERROR

= 1 ...,
=1 ..,..
=1 ...
=1 (...
= 1 ...,
0.....
Sw<09>
=1 ...,

SCOPE LOOP
INHIBIT PRINTOUT
PRINT SILO ALARM LEVEL (IN OCTAL)
INHIBIT ITERATIONS OF SUBTEST
BELL ON ERROR
BELL ON PASS COMPLETE
LOOP ON ERROR

SW<O8> = 1 ..... LOOP ON TEST IN Sw<7:0>

THIS PROGRAM HAS BEEN MODIF[ED TO RUN ON A PROCESSOR WITH OR
WilTHOUT A HARDWARE SWITCH REGISTER.
WHEN FIRST EXECUTED THE
PROGRAM TESTS THE EXISTENCE OF A HARDWARE
SWITCH
REGISTER.

IF NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION {(SWREG=LOC.
176) 1S DEFAULTED TO.
IF THIS IS THE CASE,
UPON EXECUTION

THE

CONTENTS OF

THE

SWREG ARE DUMPED

TTY AND ANY CHANGES ARE REQUESTED

(1.E.)

IN OCTAL ON THE

CONSOLE

SWR=XXXXXX NEW=

POSSIBLE RESPONSES ARE:

<CR>

6 DIGITS Q-7

IF NC CHANGES ARE TQ BE MADE.

TO REPRESENT IN

REgHTER
<(R>,

VALUE;

OCTAL

THE

NEW

SwWlT(H

LAST DIGIT FOLLOWED BY

TO ALLOW REENTERING VALUE

ERROR

27=C2DJA=-F=0
(IDJAF P11
195

DJ11 LOGIC TESTS
26~FEB=-79 15:41

MACY11

30A(7052)

P26=FEB=79

15:47

PAGE

SEG 0006
(OMMITTED KEYING

IN SWREG VALUF.

2/=CID.A<F=)

T 2D JAF P11

166
197
198
169

DJ11 LOG 11 ESTS
co=FEB=79 15:41

MACYTT

30A(1052)

26-tEB-79

15:47

PAGE 8
SEQ 0007

2Z- CZDJA~F=D DJ11

DESCRIPTION

200
201

BUILT
THE

“G

LOGIC

TESTS

PAGE

INTO THE PROGRAM IS THE ABILITY 'O DYNAMICALLY

CONTENTS OF

(CNTL

SWREG DURING PROGRAM EXECUTION.

ON CONSOLE

CHANGE

BY STRIKING

TTY THE OPERATOR SETS A REQUEST

FLAG

TO
CHANGE
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY
AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES,
AFTER
HALTS

END OF PASS,

—2

5. 2

SUBROUTINE ABSTRALTS

5.2.1

SCOPE
THIS SUBROUTINE

BIFRER o —O 0O~ VW
2O O00 NJOM Y NN

R W

AL
ST VT VY, ¥) SIASIANIANI
VT, ST.N} [ASIACIAN
T, NI VAV [ W48 )
mml\bl\l\l\l\l\l\'}\) &SN '\)&'\)'\JN nonro
W WA NINON) NNNNININ

210

THE

D
s Jr

(VIA

STARTING ADDRESS OF

TRAP

INSTRUCTION)

INSTRUCTION SECTION.

EACH SUBTEST AS IT

PLACED

1T RECORDS

IS BEING

ENTERFD

IN
LOCATION
‘'LAD'’.
I[F
A
SCOPE
LOOP
IS REQUESTED, THE
CURRENT SUBTEST WILL BE LOOPED UPON.
SW<11> GN A 1 INHIRITS
ITERATION OF SUBTESTS.
THE CONTENTS OF “LAD'' MAY BE USED TO

DETERMINE

5.2.2

THE LAST SUBTEST SUCCESSFULLY COMPLETED.

HLY
THIS ROUTINE

(CALLED BY AN EMT

INSTRUCTION)

PRINTS

QUT

ERROR
MESSAGE
(SEE
6.1).
IF SW<9> IS ON A 1 AND A HLT IS
EXECUTED,
THE
SUBTEST
WILL
BE
LOOPED
UPON
UNTIL
16
CONSECUTIVE GOOD PASSES ARE COMPLETED.
TO INHIBIT TYPEQUTS.
PUTAS%I<13> ON A 1.
TO RING THE BE'L ON AN ERROR, PUT SW<10>

ALMCK

IN THE NORMAL OPERATION
THE
'DONE'® BiT
IS
SET
AS
EACH
(HARACTER
IS
KEAD
INTO THE FI/FO BUFFER (SILO).
BUT THIS
"DONE’' CONDITION CAN BE DELAYED TG CAUSE DONE ON THE
5.
9,

OR 17 _CHARACTER.

THIS IS DONE BY LUTTING ONE OF THE JUMPERS

(W1,W2,W3) ON THE M7285 CONTROL BOARD.
THE
PROGRAM
TESTS
FOR
THIS
‘'SILO ALARM LEVEL'' AND IF SW12 IS SET (1) IT JI0

PRINT QUT THE LEVEL AT WHICH EACH DJ11 WILL SET 'DONE.'"

SUBROUTINE
THAT

ALSO

ADJUSTS

THE MAXIMUM NUMBER OF

THE

CHARACTER COUNTERS TO ENSURE

(CHARACTERS TO BE

TRANSFERED

MULTIPLE
OF
THE
SILO ALARM LEVEL.
THIS ENSURES THAT ALL
DATA WILL BE READ QUT OF THE SILO.
DONE WILL NOT SET IF THE
NUMBER

CHARACTERS

SILO ALARM LEVEL.
C?AFEQAC}ER
IN
THE

LEVEL.

AX 1V

CALL

BETWEEN EACH SUBTEST IN THE

OO0 NN
LN - OO

RSN
L LY LN LS V1, ¥}

AND OTHER APPLICABLE AREAS.

TRAPCAT(HER

IN THE F1/FO BUFFER IS LESS THAN THE

(NOTE CHARACTER PRESENT IS
SET
ON EACK
BUFFER,
REGARDLESS
GF
THE
SILO ALARM

J="2D,A~F=0
5 AF BT

Ph¢
252

DJI1T

LOGIC

Y ESTS

C6=FEB=79 15:41

MACY11

30A(1052)

P26-FEB=~79

15:47

1
PAGE 9
SEU 0008

A ''e2" = "HALT'' SEQUENCE

IS REPEATED FROM 0 = 56 10O

DETE(?Y

1Z=C2DJA=F=0
P11
CZDJ.AF

DJ11

LOC!C

TESTIS

26-FEB=79 15:41

MACY11

30A(1052)

26-FEB=79

15:47

1
PAGE

SEG 0006
2Z- CZDJA=F=D DJ1T
DESCRIPTION

LOGIC

TESTS

PAGE 6

ANY
UNEXPECTED
TRAPS
AND
A ‘', +2'" =
“'[QT'"
SEQUENCE IS
REPEATED FROM 60 = 776 TO DETECT ANY UNEAFECTED
INTERRUPTS.
THUS
ANY UNEXPECTED TRAPS WILL HALT AT THE VECTOR + 2.
ANY
H?S?EE&]FD INTERRUPTS WILL
RESULT
IN
AN
ERROR
'HLT'"
IN

5.3

PROGRAM AND OPERATOR ACTION

THE FOLLOWING REQUESTS ARE
MADE
TO
THE
OPERATGR
AT
THE
BEGINNING OF THE PROGRAM.
A DETAILED DESCRIPTION OF WHAT IS
REQUIRED FOR EACH PARAMETER IS GIVEN BELLOW.

*FIRST DJ11

ADDRESS:

‘*

THE CSR ADDRESS OF THE
FIRST
DJ11
TEST.
MUST
BE
BETWEEN 160000(8)
THE DEFAULT (CARRIAGF
RETURN)
IS

"P(REVIOUS)''
SELECTED.

2) 'VECTOR ADDRESS:
THE

RECEIVER

SELECTS

THE

YOU
WISH
TO
AND 177777(8).
TO
160010(8).

ADDRESS

PREVIOUSLY

INTERRUPT VECTOR ADDRESS OF

THE FIRST

0J11 YOU WISH TO TEST.
MUST BE BETWEEN 300(8) AND
1000(8).
THE
DEFAULT
_(CARRIAGE
RETURN)
IS
10
300(8) .
"P(REVIOUS)''
SELECTS
~THE
ADDRESS

PREVIOUSLY SELECTED.

3> *NO. OF DJ11°'s:

*°

THE NUMBER OF DJ11

UNITS YOU WISH TO TEST

TIME.
MUST
BE
BETWEEN
(CARRIAGE RETURN) IS TO 1.
4)

ONE

AND 1€.
THE DEFALLT
"P(REVIOUS)''
SELECTS

THE NUMBER OF UNITS PREVIOUSLY SELECTED.

"‘STANDARD CONFIGURATION?
'
"Y(ES)''
OR DEFAULT
(CARRIAGE

RETUPN)
SELECTS
8
LEVEL CODE, NO PARITY.
‘W(0)'* (AUSES REQUESTS FOR
CODE LEVEL AND PARITY ON ALL
REQUESTED
LINES
IN
GROUPS OF
FOUR.
"P(REVIOUS)" SELECTS THE CODC
LEVELS AND PARITIES PREVIOUSLY SELECTED.

5) ‘'CHAR LENGTH:

THE CODE LEVEL FOR THE LINE GROUP SPECIFIED.

MUST

THE

GROUP

BE
5.
6,7, OR 8.
THE DEFAULT (CARR'AGE RETURN)
'S 10°8 LEVEL CODE.
6) "PARITY (NO, ODD, EVEN):
TYPE OF

SPECIFIED.

PARITY SELECTED

THE DEFAULT

ERRORS

6.1

ERROR PRINTOUT
THE

FORMAT

IS AS FOLLOWS:

FOR

THE

LINE

(CARRIAGE RETURN)

1S 10 NO

12=CZ0JA=f=0

CZDJAF

310
11

P11

DJ11 LOSIC TESTS
25~FEB=7G 15:41

MACY11

30A(1052)

26-FEB~79

15:47

PAGE

$EC 0010
ADR

DuSDR

(R1)

(RZ)

(R3)

(R4)

/=" IDJA~F=0

LOGIC

ESTS

30A(1052)

26=FEB~-79

IZ- CZDJA-F=-D DJ11

DESCRIPTION

LOGIC

1
PAGE

SEQ 00N

TESTS

PAGE

ADR

ADDRESS OF ERROR HLT
CSR_ADDRESS OF DJ11 UNDER TEST
CONTENTS OF GENERAL REGISTER
'W''.
FROM
NONE
TO
FOUR
OF THESE MAY BE TYEED DEPENCING ON THE NUMBER

DJADR
(RN)

FOLLOWING THE HLT;

THRU (R3);

HLT

ADR AND DJADR.

E.G.,

HLT+3

WOULD

TYPE

(R1)

(BY ITSELF) WOULD STUP AFTER TYPING

TO FIND THE FAILING TES1, LOOK
AT
THE
{_ISTING
ABOVE
THE
ADDRESS
TYPED.
IN
MOST
CASES THE COMMENT BESIDE THE HLT
TELLS WHAT WAS BEING (HECKED AND WHAT WAS EXPECTED.
ALSO, A

W NN
N NN N

LIST

THE PROBABLE FAILING LOGIC

THE BEGINNING OF

THE

TEST.

IS5 GIVEN N THE COMMENTS

ERROR RECOVERY
RESTART AT 20C GR 1000.

6.3

ERRCR COUNTER
AN ERROR COUNT IS KEPT IN "ERRORS'® .
IT CAN BE CLEARED FROM
;gSCRggNSOLE.
BY
RESTARTING
AT
200,
OR BY RELOADING THE

LRV

S S A A A RRRY Ry EREfiwwwww
QA

15:47

:
WHERE

NP NN

26-FEB=79 15:41

MACY11

A WINWIWNRIND
~ WA SO0
00

N AN NN

NN
NN
ORRORORORIROR)
B LAN AR
AN A

200NN
Ly

*IDLAF P

DJ11

345

VY RN

RESTRICTIONS

IF MORE THAN ONE DJ11
IS
TESTED AT
A
TIME,
THE
DEVICE
ADDRESSES AND THE VECTOR ADDRESSES MUST ALL BE CONTIGUOUS.

WNWN NANAN NN W

THE

THIS PROGRAM 1S RUN WITH A MONITOR, I.E.
DEVICE

CONVENTION.

ADDRESSES

MUST

THE

ACT11

FLOATING

DDP,

ADDRESS

D.J11'S WILL BE FIRST, STARTING AT 160010,.

MISCELLANEOUS

EXECUTION TIME
7)

DUE TO THE VERIOUS BAUD RATES AVAILABLE AND THE
‘" WHAT ARE THE BR PRIORITIES? FOR:"'

" DEVICE
‘" DEVICE

1="'
2="'

ABILITY

ETC.

THIS WILL CO TO THE NUMBER OF DEVICES SPECIFIED

IN QUESTION 3 ABOVE.PRIORITIES ALLOWED ARE O THROUGH 7.
CHECK
UP
TO
16
DJ11'S AT ONCE. THE EXECUTION TIME CAN BE
ANYWHERE FROM 15 SECONDS

TO THREE AND

HALF

HOURS.

"TMt

22=T20)A=<F<0
IDJAF P11

DJ11

LOGIC

TESTS

26-FEB-79 15:41

MACY1T

30A(1052)

26-FEB=79

15:47

PAGE

13
SEQ 0012

368
369
37G
371
372

THE SAME SPEED, 8 LEVEL (ODE, 2 STOP BITS, AND NO PARITY
ON
A
PDP-11/20
WITHOUT
TRACE TRAPPING.
FOR MULTIPLE DJ11°'S,
MULTIPLY THESE TIMES BY THE NUMBER
OF
UNI/S
SELECTED
FOR

374

BAUD RUN TIME

373

FOLLOWING

TYPICAL

TEST.

TIMES ARE

FOR ONc

DJ11

WITH ALL

LINES AT

2Z=C7DJA=F=0
(ZDJAF .P11

375
376

377

DJ11 LOGIC TESTS
26=FEB=79 15:41

MACY11

3CA(1052)

2Z- CZDJA=F-D DJ11
DESCRIPTION

410

411
412
413
414

418

416

417

418
419
420
621
422
423
424

425
426
427
428
429
430

1
PAGE

LOGIC

TESTS

PAGE

1200 00:01:45
1800 00:01:20

2400 00:00:55

4800 00:00:30

9600 00:00:15

STACK POINTER

295

400
401
402
403
404
505
406
407
408
4,06

15:47

SEQ 001%

378
379
380
381
382
383
384
385
386
387
388
386
390
391
392
394
394

396
397
268
399

26~FEB-79

STACK IS INITALLY SET TO 1200

8.3

PASS

COUNT

A 32 BIT (2 WORDS) PASS COUNT IS KEPT [N PCNT.
IT
CAN BE
CLEARED
FROM
THE
CONSOLE,
BY
RESTARTING
AT
200, OR BY
RELOADING THE PROGRAM.

8.4

POWER FAIL

EACH TEST CAN BE POWER FAILED WITH NO ERRORS.
T0 USE, START
THE
TEST
AS USUAL AND POWER DOWN THEN UP AT ANY TIME.
THE
ROUTINE SHOULD TYPE ‘POWER'' AND RESTART THE PROGRAM WITH
NO
OTHER ERROR TYPEOQUTS.
PROGRAM DESCRIPTION

THIS PROGRAM TESTS THE LOGIC OF

UP TO 16

DJ11

ASYNCHRONOUS

DATA
MULTIPLEXERS
IN MAINTENANCE MODE.
IT CHECKS THAT ALL
THE CONTROL REGISTERS
FUNCTION
PROPERLY,
THAT
INTERRUPTS
OCCURE
AT
THE
RIGHT
PRIORITY LEVEL, AND THAT DATA CAN BE
TRANSMITTED AND RECEIVED CORRECTLY.

THE

PROGRAM

HAS

MANY

SUBTESTS (THE CODE BETWEEN 2 SCOPE STATEMENTS) WHICH ARE RUN
16 TIMES BEFQ7E CONTINUING TO
THE
NEXT.
SW<11>
ON
A
1
CAUSES
EACH
SUBTEST
TO BE
RUN ONLY ONCE.
SW<9 ON A 1
ENABLES LOOP ON ERROR.
THE
ADDRESS
''ICNT'' CONTAINS
THE
[TERATION C(OUNT IN THE LEFT BYTE AND THE TEST NUMBER IN THE
RIGHT BYTE.
ALL THE SUBTESTS SHOULD BE RUN SEQUENTIALLY
RY
STARTING AT
200 NOT BY
STARTINR AT THE BEGINNINGC OF THE
SUBTEST.
70 LOOP ON A
PARTICULAR
SUBTEST,
PUT
THE
TEST

NUMBER
(SEE
LISTiNG)
IN
REGISTER AND SW<8> ON A 1.,

UNTIL

THE
RIGHT
BYTE
OF
THE SWITCH
THIS TEST WILL
BE
LOOPED
UPON

SW<8> IS PUT ON A O OR THE RIGHT BYTE IS CHANGED.

20="20)A=F=0

(20

AF DY

o7,

DJIT

LOGIC

26~FER=79

TESTS

15:41

MACYT!

30A(1052)

26=FEB=79

15:47

PAGE

15
SEQ 0014

THE

TEST

IS NON-EX]STANT,

THAN

ONE

DJ1T

THE

PROGRAM wi.L

RUN AS

USUAL.

IS SELECTED, ALL THE SUBTFSTS ARE

17=-CZDJA<F<0

CZDJAF P11

DJ11

LOGIC

TES
S

26-FEB=-79 15:4

433
434
435
436

MACY11

30A(1052)

26-FEB=79

15:47

PAGE

SEQ 0015

2Z- CIDJA=F=D DJ11
DESCRIPTION

437
438
439

LOGIC TESTS

PAGE 9

PERFORMED ON ONE UNIT AT A

440
441
642
443
444
445

TIME.

THE BELL

WILL

NOT RING AND

EOP
PRINT, UNTIL A PASS HAS BEEN MADE ON EACH OF
SELECTED FOR TEST.

)

LTITLE 27-CZDJA-F=0
.ENABLE ABS
.ENABLE AMA

DJ11

LOGIC

THE DJ11°S

TESTS

446

447

448
449
450

451
452
453
454
455
456

457

458
459
460
461
662
463
465
466
467
468
469

SWITCH
100000

SWi5=
Swi4=

USE

100000
40000

JHALT ON ERROR
;LOOP ON TEST

040000
020C00
010020
004000
002000

swi13=
Swi2=
SW1l=
Swi0=

4000
2000

: INHIBIT ERROR TYPEOUTS
JPRINT SILO ALARM LEVEL
s INHIBIT ITERATIONS
;0 - BELL ON PASS COMPLETE

001000
000400

SW9=
Sw8=

1000
400

:LOOP ON ERROR
;LOOF ON TEST IN SW<7:0>

20000
10000

;1 - BELL ON ERROR

DJ11 REGISTER BIT ASSIGNMENTS:
CONTROL

STATUS REGISTER (CSR) XXXXXO0

BITO
8IT1

RECEIVER ENABLE (READ/WRITE)
HALF DUPLEX SELECT (READ/WRITE)

BITZ2

MAINTENANCE (READ/WRITE)

8174

CLEAR MOS FLAG (READ ONLY)

BIT3

CLEAR MOS (WRITE ONLY)

BITS
BIT6
BIT7
BIT8
BITY
BIT10
BIT11

NOT USED
RECEIVER INTERUPT ENABLE (READ/WRITE)
DONE (READ ONLY)
MASTER TRANSMITTER SCAN ENABLE (READ/WRITE
NOT USED
READ/WRITE BREAK REGISTER (READ/WRITE)
NOT USED

BIT13
BIT14
BIT1S

F1/FO OVERRUN (READ ONLY)
MASTER TRANSMITTER INTERUPT ENABLE (READ/WRITE
TRANSMITTER READY (READ ONLY)

BIT12

STATUS ENABLE (READ/WRITE)

RECEIVER BUFFER REGISTER

(RBUF)

XXXXX2

BITO-7 RECEIVED CHARACTER
BITE=11 LINE NUMBER
112
113
14
115

PARITY ERROR
FRAMING ERROR

UART OVERRUN ZRROR
CHARACTER PRESENT

(READ ONLY)

Z2-CZD1A=F=0
P1
CZCJ.AF

d
b

AN —

b e
b
b
b

NOWV

(S VL IV, IV, LV, IV, IV, |

489
490
4N
492
493
494
495
496
497
498
499
500
501
502
503

518

DJ11

LOGIC

TESTS

26=FEB~79 15:41

MACYT1

30A(1052)

D 2
15:47
PAGE 17
26~FEB-79
DJ11 SPECIFICATIONS

TRANSMITTER CONTROL

(TCR)

SEQ 0016
XXXXX4

(READ/WRITE)

BITO-15 STOP THE SCANNER ON CORRESPONDING L INF
TRANSMITTER BUFFER

BITO~7
BIT8-11

(TBUF)

XXXxX6

TRANSMITTED CHARACTER (WRITE ONLY)
LINE NUMBER (READ ONLY)

BREAK CONTROL STATUS REGISTER

(BCSR)

XXXXX4

(BIT10 OF

BITO-15 TRNSMIT A BREAK ON CORRESPONDING LINE!
104400
104600

000004
177776
000000
000001
000002
000003
000004
000005
000005
000006
000007
000007
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000340
000000
000020
001200

SCOPE=
HLT=
TYPE=

PS=
RO=
Ri=
R2=
R3=
R4 -

RS=

TTY=

SP=
PC=

BELL=

BITO=

BIT1=
BITZ=
BIT3=
BIT4=
BITS=
BIT6=
BIT7=
BIT8=
BIT9=
BIT10=
BIT11=
BIT12=

B8IT13=

BIT14=

TRAP
EMT
]0OT

177776
20
X1
4
%3
%4

%6
x7
7

]

2
4
10
20
40
100
200
400
1000
2000
4000
10000

20000

40000

BIT15= 100000
LEVEL7 = 340
OPEN =
0
DJMXNO=16.
STACK
=1200

sMAX

ALLOWED NUMBER OF DJ11°S

CSR SET)

(READ/WRITE)

22=CI0.A=F~0
CZDJAF P

540
5417
542
542
544
545
546
547
548
549
550
551
55¢
553
554
555
556
557
558

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

572
573
574

575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592

000000

LOGIC

TESTS

26-FEB=79 15:41

009000
000000

0000CO

MACY11

30A(1052)

E
2
26-FEB=79
15:47 PAGE 18
DJ11 SPECIFICATIONS

0
0 .0
IONS 6
;LOCATION

SEQ 0017

;TRAP CATCHER IN LOCATIONS O THRU 77¢

;LOCATIONS O AND 2 CONTAIN “HALT'' INSTRUCTIONS

THRU 56 _CONTAIN ‘".+2'' AND "HALT'' IN EVERY VECTOR

:LOCATIONS 60 THRU 776 CONTAIN ''.+2'' AND '‘IOT'' IN EVERY VECTOR
000046

000046

014450

000174
000176

000174
000000
00000

000200

001000

000200
000137
001000
000137

46
$ENDAD

174

DISPREG: 0
SWREG:

200

0014C2

JMP
1000
JMP

002344

001200

1200
ADDRESS

"LINGTH'' TABLE

BECIN

QABR

;200 ALWAYS IS THE STARTING ADDRESS
JRESTART ADDRESS

TABLES

IS SET SO THE FIRST FOUR BYTES (2 WORDS) CONTAIN

THE CHARACTER LENGTH FOR THE & LINE GROUPS OF

S Sev, 0,08,

537
538
539

DJ11

001200
001300
001302
001304
001306
001310
001312
001314

000100
000000
000000
000000
000000
000000
000000
000000

001220
001322
001324
007324
001326

160010
160012

THE FIRST DJ11, ETC.

"PARITY'' TABLE HAS 4 WORDS, ONE FOR EACH LINE GROUP. THE FIRST WORD CONTAINS
THE ODD PARITY FLAGS FOR LINES 0-3 OF ALL DJ11°S. THE NEXT WORD
HAS PARITY FLAGS FOR LINES 4=7, ETC, EACH BIT [N THE WORD REPRESENTS

ng?ong};Iglf O IN EACH OF

LENGTH:

.BLk8 100

THE FOUR WORDS IS FOR DJ/0 TO RIT

sTABLE OF CHAR. i{ENGTHS (MASK)

PARITY: O
PARITZ2: O
PARITS: O
PARIT4: O

;ODD
;0DD
;0DD
;00D

PCNT:

0.0

;PASS COUNT REGISTER

CSR:
RBUF :

160010
160012

-CONTROL STATUS REGISTER(DJ UNDER TEST)
JRECEIVER BUFFER REGISTER(DJ UNDER TESY)

160014
160016

B(SR:

TBUF :

160014

160016

> TRANSMITTER BUFFER REGISTER(DJ JUNDER TEST)

001330
001332
001334
001336

00030¢
001302
000304
000306

ggzvsfz

ggg

JRECEIVER INTERUPT VECTOR ADDRESS(DJ UNDER TEST)

XMTVEC: 304
XMTLVL: 306

STRANSMITTER INTERUPT VECTOR ADDRESS(D) UNDER TEST)

001349
001342
001344
001346
001350
001352

000300
000001
000000
000000
000000

160010

DEVADR:
VECADR:
UNJTS:

JFIRST DEVICE ADDRESS(SELECTED)
JFIRST VECTOR ADDRESS(SELECTED)

000000

ICNT:
0
ERRORS: 0

TCR:

LVL:

TIMER:
ALMFLG:
TIMERA:

160010
300

1
O
O

PARITY
PARITY
PARITY
PARITY

FLAGS
FLAGS
FLAGS
FLAGS

FOR
FOR
FOR
FOR

LINES
LINES
LINES
[ INES

0-3
4-7
10-13
14-17

SITERATION COUNT-LH, TEST NO.-RH
JERROR COUNT REGISTER

s TRANSMITTER CONTROL REGISTER(DJ UNDER TESY)

JBREAX STATUS REGISTER(DJ UNDER TEST)

JNUMBER OF UNITS TO BE TESTED
JUSED TO SAVE RELATIVE TIMES
JTEST FLAG FOR SILO ALARM LEvEL
s TIME

COUNTERS

J{=UIDJA=F<0
CZDJAF P11

593
594
995
596
597
598
549

600
601

602
603
604
605
606

607
608

609

Du1

LOGIC

26~FEB=79 1

T
ESTS
A

MA(YTT

30A(1052)

26-FEB=79

000000
000000
000000

001362
001364
001366
001370
001372

000000
000000
000000
n60300

DEFVEC:

001374
001376

177570
177570

SWR:
177570
DISPLAY:177570

001400

177777

FTIME:

160010

2
PAGE

TABLFS AND '"'SCRAT(H PAD‘'

001354
001356
001360

TIMERB:

15:47

19
SEQ 0018

(OUNT:
SUM:

O
0

+CHAR (OUNTER
+SUMATION OF ALARM LEVEL CHAR'S

DuwtT:
DJLEN:
DJPAR:
DEFADR:

O
O
O
160010

JUNIT NUMBER OF DJ11 UNDER TEST
;CHAR MASK TABLE POINTER
JUNIT FLAG (FOR ODD PARITY FLAG)
JDEFAULT FIRST DEVICE ADDRESS

300

;DEFAULT FIRST VECTOR ADDRESS

17-CZDJA=F=0
CZDUAF
. P11

610
671
612
613
614
615
616

617
618
619
620
621
622
623
624

625
626
627
628
€29
630
631
s32
633
634
635
636
537
638
639

640
641
642
643
644
645
646
647
648
649
650
651
652

653
€54
655
656
557
658
659
660
661
662
663
664
665

0061402
001406
001412
001416
001422
001426
001432
001436
001442
001446
001452
001456
001462
001466
001472
001476
001502
001504
001510

DJ11

LOGIC

26=FEB-79 15:41
012706
004737
012700
012726
012720
012720
032720
012720
012720
012720
012720
005037
005037
005037
005037
005737
001404
004737
000137

001514
001520
£N1524
001530
001534
001536
001540
001544

30A(1052)

BEGIN:

001572
01576
001602
001604
001606
001612
001614
001622
001630
001636
001640

000004
004537
001342
001372
005737
601003
012737
042737
022737
003353
022737

003751
000004
004737
032702
112201
001434
122701
001443

120127
101362

000300
000007
000300

001342
001342
001342

001000

001342

016606
015644

015772

000120

000071

;

(RO)
+

#2340,

(RO)+

UP STACK POINTER

AEMTS,

(RO)+

SEMT VECTOR

(30)

#RTRAPS,

(RO)+

;TRAP VECTOR

#340,

ALMFLG

BEQ
JSR
JMP

GE TADR
PC,
QABR

TYPE,

MTITLE

JSR
.WORD

RS,
DEVADR

TYPE.
TYPE.

MOV

(RQ)
+

#340, ~ (RO)+
€RRORS
PCNT
PCNT+?2

CLR

aws?2

RETURN
MSGADR

AUTO

READIN

GETADR

sCLEAR ERROR (OUNTER
;CLEAR PASS COUNTER

“BRANCH IF NONE
=GO TO SUBROUTINE TO "MAP'* DJ11 ON THE SYS
;SKIP OPERATOR AZTION

;TYPE *FIRST DJI1

ADDRESS'’

-READ INPUT FROM TTY AND SAVE
: IN DEVADR

GETADR

#160000, DEVADR

TYPE,

MSGVEC

.WORD
BNE
;gg

VECADR
GETVEC
¥§CADR

MOV
BIC

(24)

DEFADR,DEVADR

BHI

JSR

(24)

*BRANCH If BAD INPUT

DEVADR

#7 ,DEVADR

cTMe

:CHECK FOR SWITCH REGISTER

sCHECK FGR ACT11 OR DDP PRESENT

BIC

RS,

READIN

#300,
7

VECADR
VECADR

;TYPE 'VECTOR ADDRESS:"'

;READ INPUT FROM TTY AND SAVE

$IN VECADR
*BRANCH IF BAD INPUT
SCHECK FOR CR

:SET TO FIRST FLOATING VECTOR
:CLEAR TO MODULO 10

cMP

#300,

VECADR

:CHECK FOR LOW LIMIT

cMpP
BLE

#1000,
GETVEC

VECADR

;CHECK FOR UPPER LIMIT

8GT
GE TNUM:

#340,

JSET

VECTOR

BNE

1%:

;POWER FAIL

001342

ASTACK,

#PDOWNS , (RO) +

BNE

GE TVEC:

SEQ 0016

MOV

TST

016562
015476

(20)

MOV
CLR
CLR
CLR

1%:

PAGF

;10T VECTOR

MOV

001340
061340
001340

PC,
SUSWRR
#20,R0
#10TRAP, (RO) +

MOV

GE TADR:

15:47

JSR
MOv
MOV

MOV

001340
00000/
160000

MOV

017304
002344

00 370

26-FER=79
SETUP AREA

MOV

016532
015476

101351

001660
001664
001666
001670
001574
001676
001702

001200
017524
00002V
016364
000340
014224
000340
015254
000340
015112
000340
001312
001314
001216
001350
000042

017013

001554
001562
001576

001654

MACY11

016524

001546

001646
001650

TESTS

TYPE,

GETVEC

MSGNUM

; TYPE' NUMBER OR UNJTS:'*

JSR
PC.READS
*READ INPUT FROM THE TTY
(HECK STRING FOR VALID DiGITS,TERMINATOR,AND 'P'
MOV
# INPUT ,R2
:POINTS TO INPUT STRING
MOVB
(R2)+,R1
*LOAD 1ST CHAR
BEQ
1%
*BRANCH IF IMMEDIATE TERMNATOR
(MPB
#'P,RI
*CHECK FOR A P

BEQ

(MPB
BH]

CONFIG

R1,471
GE TNUM

*CONF IGURE MODE IF SO

TMUST BE A VALID ASCII NUMBER
*ELSE RETRY

Z/~CIDJA=F=0
CZDUAF P11

666

667
668
69
670
671
&72
672
674

675
676

677

678
679
680
681

682
683

684
685
686
€87
688
689
690
691
c%2
€93
694
695
696
697
698
699
700

701
702
703
704

705

706
707
708

709
710
711
712
713
714
715
716
717
718
719
720
721

001704

DJ11

LOGIC

26-FEB=79 15:41
162701

001710

003757

001712
001714
001716
001720
001722
001726
001730
001732
001736

105722

061740
001742

001744

001746
001750
001752
001754
001756
001760

TESTS

30A(7052)

000060
J1ST

001423

001353

124227
101350
111203
162703
100744

010146
006201
006301
006301
G06316
062601
0603203
000402
012701
020327

000071

GE TNUM

BH]
MOVB
SUB
BM]

GE TNUM
(R2),R3

002042
002044
002046
002052
002054
002060
002066
002070
002074
002102
002104
002106
002110

005300
001375
105737
001002
000137
122737
001002

sR1

3s:

000020

HAS

SEG 0020
cSTRIP ASC!]

CODE

;SHOULDN'T BE ZERO OR NEG

THRL 9 - CHECK REST OF

STRING

;2ND CHAR A TERMINATOR?

;YES = R1 HAS THF FINAL # OF UNITS
JNO - NXT (CHAR MUST BE THE TERMINATOR

(R2)

= (R2) 471

JELSE RETRY.
;JCHECK 2ND CHAR FOR A VALID NUMBER

#60,R3

JSTRIP ASCII

sJMAKE

[T MORE ACCESSIBLE

MOV

CONFIG:

015772

BHI

GE TNU“

MOV

#100,00UT

TYPE,
JSR
MPB
8NE
JMP

MSGCON
PC.
#'P,
AAA
0ABR

MOV

#LENGTH,R1

MOV

1$:

(LR

$SS:

002344
000116

015772

DDD:

TYPLIN:

R1,4D. MXNO

#64,

READS
INPUT
RO

(R1)+

RO
18

BNE
JMP
C(MPB
BNE

SSS
QABR
#131,
0DD

INPUT

QABR

BNE
CLR
CLR
MOV
MOV
MOV

CONFIG
RO
R1
#LENCTH,R?
#PARITY.R3
#1,R4

CMPR

TYPE,

MOV
JSR

TYPE,

#1116,

MSGLIN

INPUT

RI,TTY
PC.PRINTS

MSGDAS

sLOAD DEFAUL7 VALUE HERE

- COMPARE AGAINST MAX ALLOWED.

R1,UNIi ¢

DEC
BNE

ISTR

015772

CONVERTED VALUE

(TMP

T BY 2

JRESULT IS5 (H] ORD)~10.
;NOW ADD IN THE LOW ORDER

THE

AAA:

002344
000131

JMULTIPLY

R3,R1

MOV

075772

016052
016676

PAGE 21

R1
R1
(SP)
(SP)+ ,R1

B8R

001362

002344
000044
001260

001200
001300
000001
016665

CODE
GE TNUM
;SHOULDN'T BE NEGATIVE
;80TH LOW AND HIGH ORDER DIGITS ARE OK = (ONVERT DECIMAL VALUE.
MOV
R1,=(SP)
JSAVE IT FOR LATER
ASL
R1
;JMULT HI ORDER BY 8

000001

016631
015644
000120

001340
005000
905001
012702
012703
012704
000004
010105
004737
000004

BNE

ADD

000004
004737
122737
001002
00G137
012700
012701
005021

122737

3¢

ASL
ASL
ASL
ADD

002004
002010
002014
002022
002024
002030
002034
002040

15:47

BEO

CMPB

000060

01344
000100

000137

SETUP AREA

TSTB

010137
012737

101327

26=FER=79

SuB
#60,R1
B_E
GE TNM
CHAR IS A VALID DIGIT,
(R2)+
TSR

105712

001764
001770
001772
001776

002114
002120
002124
002130
002132
002136

MACY11

;100 BIG?
;YES = RETRY.
SVALUE OK -~ STORF RESULT

J"PRIME'" UNIT UNDER TEST NUMBER
;TYPE "'STANDARD CONFIG?"*

JREAD INPUT FROM iTY

JCHECK FOR 'P'°

; GO THRU IF NOT PREVIOUS
: BRANCH IF PREVIOUS
;SET UP COUNTER
;POINT TO CHAR LEN TABLE
JPUT (HAR MASK FOR 8 IN (HAR TABLE
sAND CLR PARITY TARLE
<COUNT DOWN
sBRANCH IF NOT DONE
+CHECK FOR CR
: GO THRU IF NOT DEFAULT
. BRANCH IF DEFAULT
JCHECK FOR 'Y
; GO THRU IF NOT DEFAULT
; BRANCH IF DEFAULT
:CHECK FOR 'N''
JBRANCH IF JLLEGAL ENTRY
JCLR UNIT COUNTER
cCLR LINE COUNTER

+SET UP POINTER TO (HAR MASK TABLFE
E
sSET UP POINTER TO PARITY TABR.

sSET UP MARKER

JTYPE "LINES *'

JTYPE R1

IN OCTAL

JAND SUPRESS LEADING ZER(C'S
JTYPE A DASH (=)

740
741
742
743
744
745
746
747
748
749

750
751
752
753
754
755
756
757
758
759
760
761
762

002176
002200
002204
002206
002214
002220
002222
002224
002230
002232
002236
002240
00224¢
002246
002252
002256
002262
002264
002272
002274

002302

002304
002312
002314
002316
002320
002324
002326
002332
002334
002336
002342

26-FEB-79 15:41

062701
010105
004737
005201
000004
005037
004737
105737
001421
105737
001364

162737
112712
106312
103355
105337
001373
132712

001347
005202
000004
005037
004737
005737
001415
122737

001411
122737
001495
122737
001353
050413
005723
032701
001277
012703
006304
005200
020037
001270

MACY11

30A(1052)

SETUP AREA

000003

ADD
MOV
JSR

016052
016702
015770
015644
015772

GETLEN:

015773
000060
177777

015772

2%:

015772

000037
016723
015770
015644
015772

GETPAR:

000116

015772

000105

015772

000117

015772

766
767
768
769
770

771
772
773
774
775

776
777

TYPE,

CLR
JSR
TSTR
8EQ
TSTB
BNE

(R2)

TYPE,

(LR
JSR
ST

BEQ

001344

#-1.

GETLEN
R2

000004
012737
012737
010446
012704

002372
(02400
002404
002410
002414
002420
002426

063737
000004
000004
000004
004737
023727
100415

017051
000061
000061

QABR:

MOV

017232

001344
017174
017210
000075
015644
015772

DEVNEW:

000060

ADD

TYPE,
TYPE,
TYPE,

JSR
MP
8M]

JCHECK FOR CR

(R2)

;BAD INPUT,

JTYPE 'PARITY

ODD,

EVEN):

;CHECK FOR CR

JBRANCH IF DEFAULT
JCHECK FOR "W

#1116, INPUT
3s

JBRANCH IF "WNO°°
JCHECK FOR ‘¥

#105, INPUT

;BRANCH [F "EVEN"'
JCHECK FOR 'O

sBRANCH IF NONE
;SET THE ODD PARITY FLAG
;POINT TO THE NEXT PARITY WORD
sCHECK FOR NEXT UNIT
<BRANCH IF NOT
JRESET PARITY TABLE POINTER
SFLAG TO NEXT UNIT

(R3)+

TYPLIN
#PARITY
R3
R4
RO
/O, UNITS
TYPLIN

JCOUNT UNITS
JCHECK FOR LAST
;BRANCH IF MORE

PRIORITIES FOR INDIVIDUAL DJ11S

#61,
DEVNUM
#61,
UNITS1
R&,=(SP)

PC ,READS
INPUT
, #60
NOGOOD

(NO,

JREAD INPUT FROM TYY

UNITS,UNITS1

< 5

SINC TO NEXT LINE GROUP

INHRE
PC.READS
INPUT

#PRTBLE +2,R4

(DEFAULT)

;CLEAR MASK BIT BY BIT
;BAD INPUT, > 8
; COUNT
;BRANCH [F NOT DONE
JCHECK FOR 5 (CHAR

(R2)

MSBR

JSET 1P MASK

MSGPAR

VICE
DEVNUM
‘=

GROUP

;TYPE ''CHAR LENGTH:

INPUT

M7.R1

TYPE,

JAND SUPRESS LEADING ZERO'S

JBRANCH IF DEFAULT
;CHECK FOR BAD DATA
;BRANCH IF BAD
;CONVERT FROM ASCI!

BIT

MOV
MOV
MOV

IN GROUP OF 4

IN OCTAL

;FIRST LINE NEXT

GETLEN
INPUT

2%
437,

JREAD FROM THE TTY

: ROUTINE TO GET BUS
002344
002350
002356
002364
002366

JLAST LINE

JTYPE

READS

117, INPUT
GETPAR
R4
(R3)

PAGE 22

SEQ 0027

CMPB
BNE
BIS
BNE
MGV
ASL
INC
P
BNE

001300

INHRE
PC,
INPUT
GETPAR
INPUT+1
GETLEN

ASLB

BNE
BITR
BNE
INC

MSGLEN

#60,

BCC
DECB

15:47

#3,
R
RI.TTY
PC.PRINTS
R1

SuUB

MOVB

CMPB
BEQ
CMPB

3s:

000017

INC

BEQ

763

764
765

26~FEB=79

PN PN I

734
735
736
737
738
739

002154
002156
002162
002166
002172

TESTS

732
733

002142
002146
002150

LOGIC

722
723
724
705
726
727
728
/29
730
731

D11

AR
R
R
IR
PR R
PN

22=C2DJA=F=Q
CZDJAF PN

TYPE QUESTION- BR PRIORITES???

LOAD UP INITIAL DEVICE #
LOAD FIRST UNIT FOR BR QUESTION
SAVE CONTENTS OF R4
SKIPPING FIRST TABLE LOCATION
TO ALLOW ROUTINE BRSET TO WORK
LOAD TOTAL UNITS IN UNITS?
TYPE OUT WORD 'DEVICE'"
TYPE DEVICE NUMBER
TYPE AN EQUAL SIGN

GO READS IN NUMBER(ASCIID)
(MP DECIMAL 7 AND BR INPU®

REPORT ERROR

0C0004
000744
012604

c172117

NOGOOD:

BR
TYPE,

AROUND
MSBAD

AROUND:

MOV

017210

cMP
BNE

B8R

UNITS1,DEVNUM
DEVNEW

PEVNEW

(SP)+,

#67, INPUT
NOGOOD
INPUT, (R4) +
DEVHUM

015772
017219
017212

CMP
BM]
MoV
INC

013724
005237
023737
001350
000403

01577¢

786
/87

000067

100411

783
/84
785

022737

SETUP AREA

780
781
782

002430
002436
002440
002444
002450
002456
002460
002462
002466
002470

MACY11 30A(1052) 26-FEB-79 15:47 J PA%E 23

778
?79

DJ1) LOGIC 1ESTS
26=FEB=79 1S:41

72=-CIDJA=F=0
CZDUAF
. P1T

THECK IF A VALID ENTRY
REPORT ERROR

STORE VALUE OF PRIO

TO NEXT DEVICE # (IN ASCII)
ARE YOU TESTING LAST DEVICF?2?
BACK [© MORE DEVICES
THRU IF ALL DEVICES FINISHED
TYPE ERROR IN INPUT VALUE

BACK TO ASK AGAIN
RESTORF R4

27~-CZDJA=F-0
CZDJAF F1

788
785
790
791
792
793
794
795
796
797
798
799
800
801
802

803
804
305
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
321

822
823
324
825
826
827
828
829
830
831
837
833
834

DJ1T1

LOGIC

TESIS

26-FEB-79 15:41

002472
002474
002500
002504
002506
002516
002516
002522
002526
002532
002534
002540
0C.2544
002550
00¢>52
560
002566
002574
002600
002606
002610
00261<
002622
0N2630
002636
0C2644
002659
0C2654
002660
002664
00<670

000005
012706
005737
001410
022737
001004
004737
005037
012700
005720
010060
012720
022700
001370
062737
062737
062737
006337
023737
002416
005037
013737
013737
012737
012737
005237
013701
062701
010137
062701
010137

002674
002700
002704
002710
002712
2716
002720
002724
002726
(02732
002736
062742

062701
010137
013701
005721
010137
005721
010137
005721
010137
005037
005037
104400

MACYTT

RESTAR:

001200
001400
000176

001374

017604
001400
000300

001362
001340
001342
001200
000001
001362
001320
000002
001322
000002
0U1324

26-FER=79
SETUP AREA
RESET
MOV

1%:

001329
00133C
0C1364
001366

(RO)
+
RO,~2(R0O)
#10T,
(RO)+

#300,R0

#1000,R0
1$

CMP
BLT
CLR
MOV
MOV

DJUUT ,UNITS
2s
DJWUT
DEVADR, CSR
VECADR,RCYVEC

INC

MOV

(SR
RCVVEC
DJLEN

NLENGTH, DJLEN

#1.DJPAR

buwut
CSR,

MOV
ADD
MoV

RY,
»2,
RY.

RBUF
R1
TCR

000002
001326
001330

ADD
MOV

02,
R1.

R1
TBUF

001332

MOV

R1,

RCVLVL

001334

MOV

XMTVEC

001336
001310
015250

MOV
CLR
(LR
SCOPE

R1,
1CNT
LAD

XMTLVL

ADD

MOV
ST

.2,

RCVVEC. R1
(R1)+

(R1)+

(RY)+

;SET UP STACK POINTER

CNTLY

#10,
#10.
7

MOV

;iSSUE RE FT

SWR

ADD
ADD
ADD

MOV

2%:

SEG 00¢4

A#STA(CK,

DJFAR

PAGE 24

TST
MOV
MOV

ASL

001344

FTIME
CLRVEC
#SWREG,
CLRVEC
PC,
FTIME

cTMP
BNE

001320
001330
001364

15:47

ST
BEQ
CMP
BNE
JSR
(LR

CLRVEC: MOV

177776
000004
001000

000010
000010
000004
001366
001362

30A(1052)

;BEGINNING OF

FLOATING VECTORS

:.lliorll

JUPDATE DEVICE ADDRESS TO NcXT UNIT
sUPDATE DEVICE VECTOR ADDRESS
sMOVE CHAR TABLE POINTER
SJUPDATE PARITY FLAG MARKEK

. INIT CHAR TABLE POINTER
INIT PARITY FLAG MARKER
:25; gP ALL THE REGISTER ADDRESSES

*SET UP RECEIVER BUFFER
:ADD 2

;SET UP TRANSMITTER CONTROL REG

. AND BREAK STATUS REG

JADD 2

:SET UP TRANSMITTER BUFFER

;POINTER FOR VECTUR SETUP

< INC R1

+SET INT VL

JINC R

JTPANSMITTER VECTOR

JINC R

JXMYT INT LVL ADR

12--CIDJA=F-0
CZDJAF P11

DJ11

LOGIC

TESTS

26-FEB-79 15:41

MACYTT

835
836

883
884
885
886
887
888
889
890

TST1:

SRR A

26-FEB=79

TEST

AR A AR

P OTEST 1:

837
838

839
840
841
842
843
844
845
846
847
848
849
359
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
268
869
87C
871
872
873
874
875
876
877
878
879
880
881
882

30A(1052)

15:47

CSR EXISTS

AN AR A

2
PAGE 25
SEv 00¢«

NN AR AN

AR AR AN AR R

AND ABILITY

JPROBABLE FAULTY LOGIC:

012737
012737
005777
V5077
005577
001405

003000

000403

003002
003004

012601
1040C1

093006
003010
003016
003022

00572%
012737
005037

003002
000340
176334
176330

000004
000006

IsT1i:

CLR

104000

104400

000006
000006

000004

SREFERENCE

ADC

alSR

JCHECK (SR

BEQ

MOV

(SP) + ,R1

TST

SCCPE

000002
000002

003044
003052
003054

032777
001401
104000

177775

003056
003062
003070
003072

005077
032777
001401

C03074

104400

176266
176260

MOV

BIT
HLT

617

:SAVE RT]

176236

#31T1,3CSR

;SET BIT1

sBRANCH IF Ok

(D2-4) E47.E64

sCHECK THAT BIT1

sCSR BIT1

T I

I35 SET

FAILED TO SET

s(HECK THAT NO OTHER BIT SET

JBRANCH IF 0K

JEXTRA BIT SET IN (SR

;CLEAR BIT

sCHECK THAT BIT1
JBRANCH IF 0K
:CSR BITT

IS CLEARED

FAILED 1O CLEAR

000004
000004

176214
176206

TST3:

I e

TEST THAT CSR BIT2 CAN BE SET AND CLEARED

cPROBABLE FAULTY LOGIC:

104000

TYPING

SCOPE

JTEST 3:

012777
032777
001001

ADR FOR

M7285 (D2-2) E25.E7.

#IT1,a(SR
R

HLT

003076
003104
003112
003114

alSR

BIT
BEQ

104000

. vl

CLR

176230

(READ AND WRITE)

cFINISH CLEARING STA(K

#6304
awé

877775 ,aCSR

BEOQ
HLT

00000¢

(WRITE)

;CAN'T REFERENCE (SR!

#8171,3CSR

BNE

176246

TRAP VECTOR

;SKIP ISR

TISTc:

A AR AN N NS

;CSR NOT CLEARED

JPROBABLE FAULTY LOGIC:

012777
032777
001001
104000

AP W

TEST THAT CSR BIT1 CAN BE SET AND CLEARED

003024
003032
003040
003042

(READ)

JBRANCH IF 0K

STEST 2:

CSR

;CLEAR (53R

(SP)+

MOV
CLR

AANR AR A A A RR AN AN NN RPN A A

JSET UP TIME-OUT

a( SR

HLT+1

2s:

AR C T ANNRT

ns,
Al
#LEVEL7 ,a#6
alSR

HLT

1%:

AN NS

CSR.

MoV
MOV
TST

CLR

176324

RN NN P AR ARR I AN NN R

M105; M7285 (D2-6) E29

SRR RA KRR AN R R R AR AR A RN AN AR A AN NN KRR AR

002744
002752
002760
002764
002770
002774
002776

YA AR R AR

TEST ABILITY TO REFERENCE (SR WITHOULT TRAPPING

MOV
elt
BNE
HLT

M7285 (D2-2) E25.E7.

#BIT2,3CSR
#BIT2,a(SR
ot

(D2-4) E47,ES54
I

sSET BIT?2
:CHECK THAT BITZ2 IS SEY
¢BRANCH IF OX
;CSR BIT2 FAILED 10 SET

22~CIDJA=F=0
CIDIAF P11

891

892

003116

DJ11 LOGIC TESTS
26~FEB~79 15:41

032777

ggz

003124

C03126

001407

895
896
897
ggg

003130
003134
003142
003144

005077
032777
001401
104000

gg?

003146

104400

177773

MACY11

176174

HLT

76164
000006

000100
000100

176142
176134

912

003170

032777

177677

176122

Gu3176

g}g

003200

916
917
918

003202
003206
003214

00321¢

003220

001401

7TST4:

;(HECK THAT NO OYHER BIT SeT

JBRANCH [F 0K

JEXTRA BIT SET IN (SR

d(SR
#B]T2,aCSR
.th

005077
032777
001401

MOV
8IT
BNE
HLT

#B176,a(SR
#3176,aCSR
.+

BIT

#177677 ,8CSR

BEQ

104000

HLT

176112
000100

CLR
BIT
8tQ

176104

104000

HLT

104400

;CLEAR BITZ2
;CHECK THAT BIT2 IS CLEARED
;BRANCH IF OK
:CSR BIT2 FAILED TO CLEAR

;SET BIT6
;CHECK THAT BIT6 IS SET
sBRANCH IF 0K
;CSR BIT6 FAILED TO SET
sCHECK THAT NO OTHER BIT SET

sBRANCH IF 0K

SEXTRA BIT SET IN (SR

a(SR
#176,aCSR
.t

;CLEAR BIT6
;CHECK THAT BIT6 IS CLEARED
sBRANCH IF 0K

sCSR BIT6 FAILED TO CLEAR

SCOPE

923
924
925

R
L
Y Ll
L LT D
e
STEST 5:
TEST THAT CSR BIT8 CAN BE SET AND CLEARED
;PROBABLE FAULTY LOGIC:
M7285 (D2-2) E6,E1B, (D2-4) E47.E31

926

003222
00323C

003236
003240

012777
032777
001007
104000

000400
000400

176070
176062

933
934
ggg

003242
003250
003252

032777
001401
104000

177377

176050

937
938
939
gz?

003254
003260
003266
003270

005077
032777
001401
104000

176040
000400

176032

gz%

0035272

104400

94¢

.+4

SEQ 0025

;!iltttt*tittttttltttIttttttttt'tfit*i'ttlt'ttitutttttttttlt.ttt‘tttfitt't

012777
032777
001001
104000

9410
945

#177773%,a(CSR

2
PAGE 26

STEST 4
TEST THAT (SR BIT6 CAN BE SET AND CLEARED
;PROBABLE FAULTY LOGIC:
M7285 (D2-2) E&4,E18, (D2~4) E47,E64

003150
003156
003164
003166

928
929
230
g%;

"'ttttttt*.'*ittttttt*.ttttttt*ttt*tttltt*'tttttttttttt.tttttttfittttt.tt

906
907
908
909
3}?

927

15:47
(SR

SCOPE

q)s

gg;

CLR
8IT
BEQ
HLT

176156

903
904

g}g

BIT

BEQ

104000

913

30A(1052)
26~FEB=79
TST3:
TEST BIT2 O+

TS1S:

MOV
BIT

#3]78.a(CSR
#B]T8,a(SR

;SET BIT8
¢CHECK THAT BIT8 IS SET
sBRANCH IF OK
;CSR BIT8 FAILED TO SET

BIT
BEQ
HLT

#177377 ,8CSR
.4

JCHECK THAT NO OTHER BIT SET
sBRANCH IF Ok
JEXTRA BIT SET IN (SR

CLR
BIT
BEQ
HLT

alSR
#3]78,a(SR
R

sCLEAR BIT8
JCHECK THAT BIT8 IS CLEARED
JBRANCH 1F 0K
sCSR BIT8 FAILED TO CLEAR

BNE
HLT

AN RN

AR AR R

I R R R AR R AN AR R R RN A AR R AN AR AR R RANANN

. th

AR E A NG R R

SCOPE
AR A R AR AR A
AN R N R RN P R R R R R R R A AR R AN R R RN R R AR RN AR N AR NN ARN S AN
JTEST 6:
TEST THAT CSR BIT1G_CAN BE SET AND CLEARED

;PROBABLE FAULTY LOGIC:

M7285 (D2-2) E30.£24, (D2-4) E4&7.:)

ZI~-CIDJA-F=0
CZDJAF P
947
548
949
950

951
952
953

54
955
956
957
958
959
960
961

962
963
964
265
966
967
968
9%9

970
971
972
973
974

975

976
977

DJ11

LOGIC

T ESTS

4
26=FEB-79 15:41

MACYT1

30A(1052)
26-FEB-79
15:47
TST6:
TEST BIT10 OF CSR
SRR AN

003274
003302
003310
003312

012777
032777
001001

003314
003322
003324

032777
001401

003320
003332
003340
003342

005077
032777
001401

003344

104400

00200C
002000

A AR R AN R

TSTo:

Mov

BIT

HLT

175777

175776

BIT
BEQ

104000

HLT

175766
002000

CLR
BIT
BEQ

175760

104000

2
PAGE 27
P R A A RN NN

AR AR AR N IR NRANNANNR R AR RS

#B1T10,aCSR

JSET BIT10

JBRANCH IF 0K

#175777 ,aCSR
R

;CHECK THAT NO OTHER BIT SET
sBRANCH IF 0K

s DA

;CHECK THAT BIT10 IS SET

;CSR BIT10 FAILED

aCSR
#BIT10,aCSR
R

HLT

SEG 0026

AN R TR A AN AR R

#81T710,aCSR

BNE

104000

A RN AN

JEXTRA BIT SET

TO SeT

IN (SR

;CLEAR BIT10
;CHECK THAT BIT10 IS CLEARED
sBRANCH [F (K
;CSR BIT10 FAILED

YO (LEAR

SCCPE
;t*ttt*it*tt*tt*fi*tlfit*t"fitttt*Qtttttfittitfitfitfittttttttfittt.tttttttttit

STEST 7:

;PROBABLE

TEST THAT CSR BIT12 CAN BE SET AND CLEARED

FAULTY LOGIC:

M7285

(D2-2)

ES.E1,

(D2-4)

E47,E37

:fi't*iiitt*t****!fifitittt.tfi"tt‘ttt*l.*i*tkttltttfittttttttttttttQttttttt

003346
003354
003362
003364

012777
032777
001001
104000

010000
010000

003366
003374
003375

032777

167777

003400
003404
003412
003414

005077
032777
001401
104000

003416

104400

0014

175744
175736

TST7:

MOV
BIT
BNE

#BIT12,aCSR
#BIT12,3CSR
.+

BIT

#167777,3CSR

HLT

175724

BEQ

104000

HLT

175714
010000

(LR

175706

BIT
BEQ

HLT

:SET BIT12
:CHECK THAT BI712 IS SET
ZBRANCH IF OK

:CSR BIT12 FAILED TO SET

;CHECK THAT NO OTHER BIT SET

:BRANCH IF OK

:EXTRA BIT SET

@CSR

#BIT12,aCSR
-+4

IN (SR

:CLEAR BIT12

:CHECK THAT BIT12 IS (LEARED
:BRANCH IF OK
:CSR BIT12 FAILED TO CLEAR

SCOPE
:t*tt'tt*ttfifi.tittflfitt.tttQtttfit'it.ttl*tt‘tttttttttlit'ttttt‘ttt't.-tt-

:TEST 10:

TEST THAT CSR BIT14_CAN BE SET AND CLEARED

:PROBABLE FAULTY LOGIC:

M7285

(D2-2)

E3,E1,

(D2-4)

E47.031

:***t**‘t*tfit**t*iififiiilt*'tfi*tfifit*fil*tkt't‘it*tttt‘tt'tt!ii"tttt‘.'t"

1002

003420
003426
003434
003436

012777
032777
001001

003440
003446
003450

032777
001401
104000

137777

003452
003456
003464

005077
032777
001401

175642
040000

040000
040000

175672

175664

104000

TST10:

MOV
BIT
BNE

#BIT14,@CSR
#BIT14.aCSR

BIT

#137777,3CSR

HLT

175652

BEQ
HLT

175634

CLR
BIT
BEQ

:SET 8IT14
:CHECK THAT BIT14
:BRANCH IF OK

IS SET

:CSR BIT14 FAILED TO SET

:CHECK THAT NO OTHER BIT SET

:BRANCH IF OK
:EXTRA BIT SET

aCSR
#81T14,aCSR
.t

:CLEAR BIT14
;CHECK THAT BIT14
sBRANCH [F OK

IN (SR

IS CLEARED

17-CZDJA<F-C
CZDJAF
. P1Y

DJ11

LOGIC

TELTS

26=FEB=7S 15:41

MACYT]

39A( 10 52)

ST10:

26-FEB~79

TEST BIT14 OF

1003

003466

104000

HLT

1005
1006

00347C

104400

SCOPE

1004

1007

1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
019
1020
1021

1022

1023
1024
1025

1026

1027
1028

1029
1030

103
1032

1033

1034
1035
1036
1637
1038
1039

1040
1041

1045

1046

1047

1048
1049

1052

1053
1054
1055
1056
1057

1058

(SR

3
PAGE 28
SEQ 0027
;CSR BIT14

FAILED

10 CLEAR

fit't.ttfit."

JTEST

11:

TEST THAT RECEIVER ENABLE (BITO OF THE (SR) CAN BE SET
AND CLEARED, AND THAT CLEAR MOS (BIT3) IS WRITE ONLY.

:PROBABIE FAULTY LOGIC:

M7285 (D2-2) E26.E36,E7,E24, (D2-B) E17.E14.£15

:.ttttitt'titttt*fittt‘.t"i".Qtfititfiittttfitt*“ttfi!itlt.t

ittt"'ttttt"

003472
003500
003502
003510
003514
003520
003522
003524
003530
003532
003534
003536

003540
003544
003546

012777

005005
052777
017701
032701
001607

000004

175620

000010
175604
000010

175610

TST11:

1%:

000020

105305

001365
104001

022701
001401

#BIT2,
RS
#8173,

QCSR

BIT

#8175,

BIT
8EQ
DECB
BNE

#8174,
2$
RS
1%

MOV

BEQ
HLT+1

104001

032701
001403

MOV
(LR
BIS

HLT+1

000004

2%:

104007

cTMP
BEQ
HLT+1

aCSR.~

.+4

MIT2.
.+

QCSR

;SET MAINTENANCE MODE
*SET UP COUNTER
-SET CLEAR MOS (BIT3)

(BITZ,

‘SAVE

(SR

*BRANCH IF OK
:CLEAR MOS (BIT3) SET (WRITE-ONLY)
*R1 = CONTENTS OF CSR
SCHECK CLEAR MOS FLAG

*CHECK CLEAR MOS (BIT3)

“BRANCH IF CLEARED
SWAIT FOR MOS TO CLEAR
*BRANCH IF MORE TIME
*CLEAR MOS FLAG

(BIT4)

*R1 = CONTENTS OF (SR

FAILED

TO (LEAR

SCHECK THAT ONLY MAINTENANCE BIT SET
*BRANCH IF OK

:CLEAR MOS CLEARED MAINTENANCE

. OR SET OTHER (SR BITS

003550
003556
003562
003570
003572

052777
017701
032777
001001
104001

003574
003602
003604

022777
001401

000001

175536

000001

175542
175530

aCSR

BIT

#MIT0,

a(SR

BNE
HLT+1
00C005

175516

cMP
BEQ

104001

042777
017701
022777
001401
104001

#3170,

MOV

HLT+1

INOTE:

003606
003614
003620
003626
003630

BIS

0006001

175500

000004

175504

175472

a(SR,

.th

#5,
.+

a(SR

8IC

#BIT0,

aCSR

cMP
BEQ

#RITZ,
L4

QCSR

HLT+!

aCSR,

sSET RECEIVER ENABLE
:SAVE CSR

sCHECK THAT RECEIVER ENABLE SET

sBRANCH iF 0K
SRECEIVER ENABLE FAILEC TO SET

sR1 = CONTENTS CF (SR
sCHECK REST OF (SR
JBRANCH IF 0K

sR1 = CONTENTS OF (SR
IS BEING USED AND DONE (BIT7)

THE ERROR (OULD BE DUE

MOV

;R1 = CONTENTS OF (SR

:CSR ERROR

IF THE TTY MODULE

105C
1051

;t'fitttt'l‘t't'tttt'ttfifit""tifit*tt‘tt*fittttttt"'tfitfitfitt'

1042

1043
1044

15:47

IS SET,

TO MAINTENANCE OR CLEAR MOS NOT WORKING.

sCLEAR RECEIVER ENABLE
:SAVE CSR

;CHECK CSR
;BRANCH IF OK

;RECEJVER ENABLE DIDN'T CLEAR

: OR OTHER CSR BIT SET
;R1 = CONTENTS OF (SR

063632

104400

SCOPE
;tttttfittttttt.l&tt'!!fi*tiit.it...'tt‘lili'."!.t"ltii.i"t"Q!‘IQt'Q"

; TEST 12:
TEST THAT CSR RESPONDS PROMERLY TO BYTE COMMANDS
/PROBABLE FAULTY LOGIC:
M7285 (D2-4) E47

;tit?t'ti'Qltttttfit".l‘fi".'Qfi.“i"'l..q'ti..".i“!'ii.“.'l."lttt‘t

Z7=CIDJA~F=0
CZDJAF P

1059
1060
1061
1062

1063

1064
1065

003634
003642
003646
003652
£03656
003660
003662
003670
003674

003700
003704

003710
003714
003716
003720

DJ11

LOGIC

TESTS

26=FEB-79 15:41
012777

052506
175452

105077

017701
022701
001401

MACY1!

175456

TST12:

175446

104001

#052506,aCSR
aCSR

(MP
BEQ

#052400,R1
R

aCSR,

HLT+1

05250¢
001320

005337
017701
022701
001401

001329
175410
000106

105077

MOV
CLRB

MoV

052400

012777
005237

175430

MOV
INC
(LRB
DEC
MOV

175420

104001

104400

fl—‘—imh-hd—J—J—Mfl-fl—d—iard
s )
OO
Q0

AR AR

JSET TEST NUMBER IN (SR
2INC TO ODD BYTE
;CLR ODD BYTE
JRESTORE TO EVEN
;SAVE (SR

;CHECK CSR
JBRANCH IF 0K
;0DD BYTE (. R FAJLED ON CSR

A AR AR R

003736
003744
003752
003754

052777
022777
001401

G03756
003764
003770
003772

042777
017701
001401
104001

MOV
BEQ
HLT+1

003774

104400

SCOPE

175372
175366

TST13:

104001

052506
052506

175354
175346

aCSR

BEQ

a({SR,

8IS
cMP

175334

AR R AR R AR

BIC

INSTRUCTIONS SET AND (LEAR R/W

R R AN AR A AR R R R R AN RN ARANAAR S AARRNN RS

:CLEAR THE CSR

;CHECK AND SAVE (SR

JBRANCH IF CLEARED 0K

;RESET FAILED TO CLR (SR

aCSR
alSR

HLT

052506
175330

#052506,
#052506,

8EQ

104000

M7285 (D2-4) E47

AR R A R

CLR

MOV
HLT+1

;SET ALL R/W BITS OF CSR
sCHECK THAT THEY GOT SET

JBRANCH IF Ok

sREG FAILED CMP

2052506,
alSR,
.t

a3(SR

JCLEAR (SR

JCHECK AND SAVE (SR
JBRANCH ]F CLEARED Ok
JCLR FAILED TO CLR CSR

;tt*t*t'tttttttttttttttttttttQ.ttttttt!'tttttttttttitttttit\Qiittl-tnntt

JTEST 14:
TEST BITS OF TCR FOR READ/WRITE CAPABILITY
;PROBABLE FAULTY LOGIC:
M7285 (D2-2) ALL, (D2-3) EB,E20,E21,E43,E47

SRR

104001

005077
017701
001401

175320

TST14:

AR AT RN

R AR

MOV
MoV

177777 ,81CR
alCR
R1

BEQ

. +4

CMP

HLT+1

004020
004024
004030

177777

175314
177777

41V

004010
004014
004016

012777
017701
022701
001401

003776

—

CLR FAILFD ON (SR

;R1 = CONTENTS OF (SR

TEST THAT THE BIS AND BIC
BITS OF CSR

005077
017701
001401

[N (SR

;sR1 = CONTENTS OF (SR

003722
003726
003732
003734

QI W
[
o
e R
R

JEVEN BYTE

#000106,R1
.t

sPROBABLE FAULTY LOGIC:

e R

;SET TEST NUMBER
;CLR EVEN BYTE
;SAVE (SR

SCOPE

SJTEST 13:
H

StQ 0028

sCHECK CSR
JBRANCH [F OK

#052506,aCSR
(SR
a(SR
(SR
aCSR,
R1

(MP
BEQ
HLT+1

1099

30A(1052)
26-FEB=79
15.47
PAGE 29
TST12:
TEST BYTE ADDRESSING OF (SR

CLR
MOV
BEC

2177777 .R

aTCR
arctrR,
. +4

R AR RN AR NN RN AR

AR R R E

R R I

RN TR AN RN R

sSET ALL BITS OF T(R
sCHECK AND SAVE TCR

SCHECK THAT ALL THE BITS ARE SET
*BRANCH IF OK

JBIT(S) OF TCR FAILED TO SETY
R1

:CLEAR TCR
SCHECK THAT IT CLEARED AND SAVE
*BRANCH IF CLR

Z7=CIDJA=F=0
(ZDJAF P11

DJ11 LOGIC TESTS
26~FEB=79 15:41

MACY11

”}2

004032

104001

HLT+1

};}7

034034

104400

SCOPE

1118

1124

004036

1125
1126
1127
1128
1129

0040446
004050
004054
004060
004062

105077
Q17701
022701
001401
104001

175254
175250
177400

004064
004072
004076
004102
004106

012777
005237
105077
005337
017701

177777
001324
175222
001324
175212

1136

004112

012777

022701

1157
1128
;}zg

006116
004120

001401
104001

}}2;

004122

104400

177777

175260

R R

TST15%:

R A A AR

175232

000377

8177777 ,8T7CR
TCR
alCR
TCR
aTCR
R1

CMP

RN R A

;};g

004136

1156
1155
1156

004140
004146
004154

}}gg

004756

1159

004160

004166

004172

004174

175174
175170

TST16:

104001

052777
022777
(01401

017701

001401

A AR A RN

1168

1169

1170

006176

004200
004206

177777
177777

175156
175150

104400

T(CR

:CHECK TCR

177777

175132

175136

R R AR R AP R

aTCR
arCtR,
R

BIS
cMP
8t0

mz7777,
77777,
-t

BIC

MOV

BEQ

HLT+1

000001
004214

SCOPE

901346
015250
SRR

;

RN R AR AR N ANR RN R AR RSN R RS NS AR AR AN

RN AR

AR R

Il I

TN T TS

¢RESET FAILED TO CLR TCR

n77777,

“an,
#.+6,

INSTRUCTIONS SET ANC (LEAR R/W

sCLEAR THE T(R
cCHECK AND SAVE T(R
;BRANCH [F CLEARED 0K

8TCR,

MOV
MOV

JTEST 17:

NIy

(LR
MOV
8EQ

HLT

104001

012737
012737

JBRANCH IF OK
;0DD BYTE CLR FAILED ON T(R
JR1 = CONTENTS OF T(R

aT(R
sSET ALL R/W BITS OF T(R
al(R
s CHECK THAT THEY GOT SET
sBRANCH IF 0K

SREG FAILED (MP

aTCR

s CLEAR T(R

sCHECK AND SAVE T(R

;BRANCH [F

CLEARED Ok

sCLR FAILED TO CLR T{R

]

1165
;}g?

NUMBER

.R1 = CONTENTS OF T(CR
;SET TEST NUMBER IN T(R
;INC TO ODD BYTE
;CLR ODD BYTE
;RESTORE TO EVEN
.SAVE T(R

T(R
M7285 (D2-3) E4?

HLT+1

104000

042777

TEST

TEST THAT THE BIS AND BIC

:
BITS OF
sPROBABLE FAULTY LOGIC:
005077
017701
(001401

;SET

AN AN RN AR ARN N AN R AR A A R A AN RN R AN AN

SCOPE

1147

1164

TCR FAILED TO (LEAR

;CLR EVEN BYTE
. SAVE T(R
;CHECK TCR
JBRANCH IF 0K
;EVEN BYTE CLR FAILED ON T(R

#000377 ,R1

8EQ
HLT+1

1145
1146

1161

4177777 ,8TCR

Mov
INC
CLRB
DEC
MOV

sTEST 16:

004124
004130
G0413%

R AR R R R A A AN AR

aTCR
al(CR,
R1
#177400,R1
Lt

]}g%

CLRB
MOV
(mP
BEQ
HLT+1

1144

1160

AR R RN

MOV

1143

1148
1149
11560
1151

JBIT(S) OF

s TEST 15:
TEST THAT TCR RESPONDS PROPERLY TO BYTE COMMANDS
;PROBABLE FAULTY LOGIC:
M7285 (D2-3) F41

1122

1130
1131
1132
1133
1134
1135

St0 0029

:tt\'ttittt*tttfifittlt*ttt*t**tttttt*tttttt‘it'ttfittttttttttttfittttttt"tt

1120
1121

1123

30A(1052)
26-FEB=79
15:47
PAGE 30
TST14:
TEST READ/WRITE BITS OF TCR

TIMER
LAD

;INITIALIZE TIMER
JRESET LOOP ADDRESS

R AT RN NN AR AR AR R R R R R R RN A R R R R R R R R R R T P RN O R RN AR NP TRNE S

TEST THAT TRANSM]T READY (BI715 OF (SR) SETS AND [_EARS
WHEN

TCRO

SET

AND

CLEARED.

27-CIDJA=F=0
CZDJAF P11

DJ°" LOGIC TESTS
26~FEB=-79 15:41

MACY11

1173
1172

:
;PROBABLE

"1?3

1174

1175
1176
1177
1178
1179
*180
1181

31
SEQ 0030

ALSO CHECK_THAT THE RIGHT LINE NO. (Q) APPEARS IN TBUFF.
FAULTY LOGIC:
M7285 (D2-5) ALL, (D2-6) E23, E32, E33, €49, (D2=2)

.'tttt'ii.tt*tfiiittttt!tt‘!’Qittttttttfltltttttitttfi*fitfitttttttttttlt'tnl'n

004214
004222

012777
052777

000400
000001

Hg%

004230
004232
004236
004240
004242

004244

005000
017701
100404
005200
001373

Hgg

004246

000416

1186
1187
1188

004250
004254
004260

050037
017701
105001

001346
175046

1189

30A(1052)
26-FEB=-79
15:47
PAGE
TST17:
TEST TRANSMIT READY

004262

175Q76
175074

175062

T1ST17:

1%:

104001

000301

MOV
8IS

#4400,
#8170,

sSET XMTR SCAN ENABLE
;SET XMTR CONTROL BIT,

CLR
MOV
8M]
INC
BNE

RO
a(SR,
2%
RO
1%

BIS
MOV
CLRB

RO,
aTBUF,
Ri

TIMEP
R1

;SET UP TIMER
sSAVE LINE NUMBER

HLT+1

2%:

QCSR
aTCR

SWAB

| INE O

;SET UP WAIT COUNTER
;CHECK AND SAVE YMTR READY
JBRANCH IF SET 0K
IWAIT A WHILE

;XMTR READY FAILED TG SE?
JSKIP LINE # CHECK ON ERROR

1190
1197
Hg%

004264
004270
004272

022701
001401
104007

00000C

(mp
BEC
HLT+1

40,
Lt4

:CHECK THAT THE XMTR STOPPED ON LINE ©
SBRANCH IF 0K
WRONG LINE NUMBER APPEARED IN TBUF

1194
1195

MOV
aM]

a(SR,
.46

004302

017702
100401

175020

;}gg

004274
004300

;CHECK AND SAVE XMTR READY
sBRANCH IF OK

1198

004304

(042777

000001

#8170,

QTCR

1199
1200

1201

}gg%

1204
1205
1206

004312
004316

004320

104002

017701
100001

HLT+2

175002

175012

104001

MOV
8PL

a(SR,
-+

SREADING THE TBUF CLEARED XMTR READY

sCLR XMTR CONTROL BIT, LINE C

sCHECK AND SAVE XMTR READY
sBRANCH IF 0K

JXMTR READY FAILED TGO TiEAY WHEN
s

00432¢

104400
SRR

JTEST 20:
:

1210

R AN

R AR R R AR

ALSO CHECK THAT

;PROBABLE FAULTY LOGIC:

1212

SRR AR

004356
004360

012777
005001
012706
050477
000
017702
100404
005300

001373
104002

000400

174766

T1ST20:

000001
174760

4%:

174746

1%:

MOV
CLR
MOV
BIS
CLR
MOV
aMI
DEC

BNE
HLT+2

RN AR R AN R AR R AR R AR A AR AN R RO AN RO R AR SR AR O T A"

TEST THAT TRANSMIT READY (BIT1S5S OF CSR) SETS AND CLEARS
WHEN EACH TCR BIT IS SET AND CLEARED.

1211

0043264
004332
004334
004340
006344
004346
004352
004354

XMIR (ONTROL FOR LINE O WAS CLEARED

SCOPE

1208
1209

1222
1223
1224
1225

8IC

HLT+1

1207

1213
2214
1215
1216
1217
1218
1219
1220
1221

3%:

E3, E1

SR R

A AR

#4600,
R1
f,
R4,
RO
a(SR,
23
RO

R N

THE RIGHT LINE NO.

M7285 (D2-5) ALL,
A

AP R

P NN AR NS

APPEARS

iN TBUFF.

(D2-6) E23. €32, E33. E49,

RN R R AR

RN R E R R E RN R NN

aCSR

sSET XMTR SCAN ENABLE

R4
aTCR

sSET UP MARKER
JSET XMIR CONTROL BIT, EAlM ! INE
sSET UP WAIT COUNTER

sCHECK AND SAVE XMTR READY

¢BRANCH IF SET Ok
JWAIT A WHILE

sXMTR READY FAILED TO SE°
:RI=LINE »
sR2=(SR

(D2-2) E3. E!

N R IR RRDE Ry

Z{=CZDJA=F=Q
CZDJAF P11

}ggg

004362

1229

004364

1230

1231
1232

1233

1236

1235

004370

004374
004376

004400

004402

DJ'1 LOGIC TESTS
26~FEB=79 15:41

MACYT1

000414
050037

017702

000302
020201

BR
001346

2%:

174732

15:47
30A(1052)
26-FEB=79
PAGE
1ST20
TEST TRANSMIT READY

BIS

MOV

SWAB
CMP

001401

BEQ

104002

HLT+2

SEQ 0631

;SKIP LINE # (HE(X ON ERROK

RO,

aTBUF,

TIMER

;SET UP TIMER

;CHECK

Re
RZ,

JSAVE L INE NUMBER
THAT

THE

BRANCH IF OK

XMTR STOPPED ON RIGHT [ INE

;WRONG LINE NUMBER APPEARED

JR1=LINE #(SHOULD Bt)

1236

1538

IN TRUF

R2 LINE # (TBUF)

]

1239
124C

}gzg
l

004404
004410

004412

1263
12446
1265
1266
1247
1248
gls'g

004414
004420
004424
004426

1251

004430

1252
}ggz
Z

1255

1256
1257

017703
100601

174710

MOV
B8M]

104003

Q40477
017702
100007
104002

a(SR,
.4

BIC
MOV
B8P,
HLT+2

RS,
G)CSR
.

al(R
R?

INC

HLT+3

174704
174674

3%:

005201

0046432
00463

006304
103341

ASL
8((

004436

104400

SCOPE

1258

JREADING THE TBUF

STEST 21:

TEST THAT MASTER TRANSMIT SCAN ENABLE

1262

PR(BABLE FAULTY LOGIC:

1261

1263

AR AR

1264
1265
1266

004440
CO&%444

005077
052777

1268
1269

(04456
004462

017701
100002

1272

(0C4452

004464

0046466

006470

g;z

00L472

1275
1276

00%474
304502

1277
1278
1279
1280

1281
1282

;CLR XMTR CONTROL BIT, EA(H LINE
;(HE(K AND SAVE XMTR READY
JBRANCH IF 0K
:XMTR READY FAILED TO (LEAR WHEN
:
XMTR CONTROL FOR LINE .LINE WAS (LEARED
;R = LINE #
;R2 = CONTENTS OF (SR

JSHIFT MARKER TO NEXT L INE
JBRANTH IF NCT LAST LINF

1271

CLEARED XMTR READY

JINC LINE COUNTER TO NEXT LINE

R4
I 3

1260

1270

XMTR REALY

ttttntttlfitttt'tttt!lttlt'ltltttttl‘tQlltt.tfii.tttttqtht.tttttttttttt.t

1259

1267

JCHECK AND SAVE
JBRANCH [F 0K

004506
004510
006512
004514
00457€¢

013700

174454
9200007

001346

174652

174636

104001

A AR

174610

174616

M7285 (D2-6) £49.523.E32.E35

R AN

AT A

AR AR AR AR AR RN

N AN AR RO N RN B R R R G AN RO O

1%:

MOV
8P

alSR,R1
2%

s CHECK AND SAVE XMTR READY
;BRANCH [F NOT SET

B8R

sMASTER TRANS SCAN ENABLE

2%:

020400

A AN R

a(SR
MIT0,aTCR

Moy

HLT+1

001371

017701
100403
005200
001373

R RN

(LR
81s

104001

(052777
005000

WHEN TCR BIY, LINE O IS SET.

1ST21:

00040z

005300

((SR BIT 8) ON A ©

DISABLES TRANSMITTER KREADY (CSR BIT 15)

3%:

A ¥

T ]MER RO

;CLEAR CONTROL STATUS
JSET XMTR CONTROL BIT, LINE ©
JGET

TIMER FROM PREVIOUS

TEST

JXMTR READY SET WITHOUT

DEC

JWAIT A WHILE

BIS
(iR

#400,8(SR
RO

<SET MASTER TRAN SCAN ENARLE

BNE

MOV
8M]
INC
BNE

HLT+T

a(SR,
5%
RO
4%

<AND CHECK AGAIN

sCHECK AND SAVE XMTR READY

+ TRAN READY NEVER CAME UP

JTCR BIT WAS SET FIRST

27=CIDJA-F=C
CZDJAF P

1283

1284

1285

Q04520

DJ171 LOGIC TESTS
20=~FEB~79 15:41
042777

004526

017707

}Sgg

004534

104001

1285
1290
1291

00453%

'04400

1286

(004532

100001

000001

174566

MACY"1

174576

30A(10520
26-FEB=?9
15:47
PAGE 33
TSTS1:
TEST MASTER TRANSMIT SCAN ENABLE
5%:

BIC

4BITO,

BPL

MOV

a(SR,

HLT+1

s THEN MASTER TRAN SCAN ENABLF

QTCR

;CLEAR

]T QUT

sCHECK AND SAVE TRAN READY

JBRANCH

:TRAN READY DIDN'T CLEAR,

SCOFE

1292

1532

JTEST 22:

1295
}Sgg

:
:

THIS TESTS ALL INTERRUPT LEVELS. THIS TEST wilLl
TEST ALL DEVICES WHICH ARE SPECIFIED DURING CULSTIONING.

1298
}%83

H
s

ERROR PRINT QUT S AS FOLLOWS::::
ADDR
DJADR
RO R1

1301

ADDR=

;ggg

;

R2= BR LEVEL WHERE ERROR OCCURED

1306

;PROBABLE FAULTY LCOGIC:

1302
13G3

:
:

1307

1308
1307
1310
1311
1312
1313

1314
1315
1216

004560
004546
004554
006562

004570

004574
004602

012777
012777
012737
012737

004656
000340
000010
000005

013737
006737

0172%4
014464

005337

017214

1764566
174562

R RN R NN A AR AN A AR

TEST

AN R R RN R A RN R RN R AN R

TRANSMIT

INTERRUPT LEVEL

ADDRESS OF ERROR HLT

DJADR= (SR ADDRESS OF DJ11 UNDER TEST
R1= BR LEVEL FOR DJ11 TO ALLOW INTR

AR AR R A A

TST22:

MOV
MOV

017214
017226

MOV
AGAINT: MOV

017216

MOV
JSR

DEC

A AN R AR AR

M7821 WIRING, PROPER PRICRITY (HIP

A RR

A AN R AR

#INTR1 ,@XMTVEC
#3460, MTLVL

#10,PRIOLO
#5,CT

PRIOLO

PRIOLO,NOW
PC,
BRSET

1317

7318

004606
004614
004622

1326

004636

004630

004642

1329
;gg?

004644

1332
1333

004644
004652

}g%g

1336
1337

1338

TR AR PR CR ARSI A O o w

START TEST BR7,

(LEVEL)= DECIMAL #{0 TO 7)

THEN BR6,BRS...ET{.

: LOAD PRE-ROL-ED DECIMAL PRIO
; GO TD SUBROUTINE TO ::::::
. LOAD BR INTR LEVEL OF DJ13
(MASK)= OCTAL #(0 TO 340)

0,40,100,140,200,240,300,340)

: (NOW)= OCTAL #(0 YO 340) AS

1321
1322
1323
1324

;}Sg

RN RN AN

;

1320

S T NN R AN R AR

; SET UP XMIR INTERRUPT VECTOR
s AT LEVEL 7
; LOAD BR7+1 INTO BR TEST LEVEL
: LOADS COUNTER 5 ROL ~BR PRIQT

1319

1325

RN RN AR AN RS I RN AN NSRS A RO SRR O N

004654

004556

042737
053737
012777

000340
017216
040400

017701

174456

012777
100375

000001

177776
177776
174479

174466

WAIT1:
NINTRT:

023737
002407

000417

017216

017220

BIC
BIS
MOV

#340 ,a4PS
NOW, a#PS
#040400,3(SR

s MASK, BUT
CURRENTLY TESTING
; CLEAR PS LEVEL
s SET PS TO
CURRENT TFST LEVEL
+ SET TRAN MASTER INT, ENABLE

MOV

a3(SR,

s WAIT

Mov

BPL
;
;IF

(MpP
BLT
8R

#R1T0,

WAITY

T(R

; SET TRAN CONTROL BIT, tINE C

YOU ARE HERE NO INTR QOCCURED

NOW ,MASK
ERROR1

THRU1

INIR1:;
JIF YOU ARE HERE AN INTR QCCURED

. 1S TKIS AN ERROR?2722
: BRANCH IF YES

IF NO,GO ON TO NEXT! 3R

PV
lY, 1V, 1V,

WWWIWNW

3fi N
buwv—ua§£§\fifitn£3$§

CZDJAF PN

004656
004660
004666
004670

LJYT _OGIC TESTS
26=FEB=79 15:41

022626
023737

002001
000411

017216

MACY1T

H
3
30A(1052)
26-FEB-79
15:47
PAGE 34
TST22:
TEST TRANSMIT INTERUPT LEVEL
CMP
CMP
BGE
BR

017220

004672

ERROR1:

004672
004674

010146
010246

004676

013701

004702

013702

;

(SP)+,(SP)+
NOW ,MASK

YOU ARE HERE

MOV NOw,

HLT+2

004710
004712

012602
012601

MOV
MOV

(6)+ ,R2
(6)+,R]

004714
004714
00472C
004724
004730

005077
005077
005737
001314

CLR
LR

aT(R
(SR

004732
004740
004746

013777
012777
042737

004754

104400

004756
004762

005037
012737

(01336
000004
000340

IS8T
BNE
174374
174370
177776

END22:

00134¢
004770

(BR BITS OF PSW)
R2=BR LEVEL OF ERROR

;

REPORT ERROR+ REG.

;

(BR BITS OF PSW)

JPOP STACK.
;POP STACK

".2

INTO RZ
INTG R1

;. TEST IF LAST BR WAS CHECKED
. BACK TO TEST NEXT INTR LOWER

;

XMTLVL ,@XMTVEC
2107,
AXMTLVL
#3640, a#PS

CLR

015250
A

;
;
;
:
:
H
;

R AR

8,46,
R

1$:
38:
6$:
58:
68:
7%:
8%:

;PROBABIE

014600

TIMER

MOV
STEST 23:
;

004737

R1=BR LEVEL ALLOWED

:
;

(NOW)

; RELOAD AND CLEAN UP

SCOPE

004770

;

NOW
AGAINT1

MOV
MOV
BIC

ON STA(K

;PUSH RZ2 ON STACK

MOV MASK,

104002

THRU:

;PUSH R1

R2,=-(6)

004766

174404
174374
0317216

THEN SOMETHING IS WRONG

RY,=(6)

MOV

017216

TESTED

ERROR.
.. !!. 1.1t

MOV

017220

. CLEAN UP THE STACK
; 1S THIS AN ERROR?7772?
. BRANCH [F ERROR
. IF NO,SEE IF ALL BR LEVELS

ERROR1
THRU1

;

SEQ 0033

AR RN R

TIMER

JRESET LOOP ADDRESS
AR A RN

R AR AR R AR R RN AR NIRRT RN N AR

AN AR ORNRAR TR

TEST THAT LINE O CAN TRANSMIT AND
RECEIVE A CHARACTER. (377)

(HECKS
(HECKS
CHECKS
C(HECKS
(HECKS
(HECKS
CHECKS

THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME.
THAT NO ERRORS IN FI/FQ
THAT RIGHT LINE # (0) IN FI/FO
FOR RIGHT rHARACTER LENGTH
THAT CORRECT DATA WAS RECE]VED
THAT CHARACTER PRESENT CLEARS
THAT DONE CLEARS

FAULTY LOGIC:

JINITIALIZE

LAD

AN R AR

M7285

INITIALIZE

DEVICE''CSR' REGISTER

7$7123.

JSR

PC,

(D2-7)

ALL;

M7279 ALL;

UART

CARD [03 SERIES

R R TR AR AR RN AR AN AR AR R A RN R RRNRRAR R RN ARSI RORN P RS YRS NS

AFINITD :BIT2 = MAINTENANCE

‘BIT3 = CLEAR MOS
JBIT8 = MASTER XMTR S{AN ENK

J{=CIDJA=F=0
CZDJAF (P17

DJ1Y

LOGIC

T ES{S

26-FEB-79 15:4

MACY?1

1395
139¢
1397

1398

1399

1400
1401
1402
1403

1604

1405

1406

1407

JWAIT

052777
017701

100375
012777
005000
105305

001376
017701
100405

14614
1415
1416
1617
1418
1419
1420
1421
1422
1423
1424
1425

050037
032701
00140

1434

1435
1436
1437
1438
14329
1440
1441

1442

1443
1444
1445
1446
1447
1448
1449

1450

FOR MOS

TO CLEAR

;BITO = RECEIVER ENABLE

005200
001371
017702

1426
1427
1428
1429
1430
1431
1432
1433

SET:

1408
1406
1410
1411
1412

1413

30A(1052)
15:47
26-F EB=79
PAGE 35
TST23:
TEST ALL OF LINF O TRANSMIT AND RECEIVE LOGIC

104002

000001

174312

000377

17¢322

LOP23:

174310
1%:

174272

122702
001401
104001
117702
130201

170377

DECR
BNE

MOV

2%:

104001

010102
0427902
000302

CLR

BMI]
INC
BNE
MOV
HLT+2

174256

001346
070C00

BIS
MOV
BPL
MoV

4%:

000000

BIS
BIT
BEQ
HLT+)

MOV
BIC
SWAB

CMPB

BEQ
HLT+1

174260

5%:

021407
104002

MOVB
BIIB

BEQ
HLT+2

105102
120102
001401
104002

6%:

coms

8EQ
HLT+2

#BITO.
aCSR,

QTCR
R1

4377,

QTBUF

LOP2%

RO
RS
1%
@R3UF ,R1
3%
RO
1%
alSR,
R?

RO, TIMER

#70000,

. t4

aDJLEN, R2
R2
R1

R
R1,

-*4

FOR CHAR.

PRES.

;BRANCH WHEN FOUND
;TIME (OUNTER
;BRANCH [F NOT TIME-OUT
;SAVE CSR

;CHARACTER READY DIDN'T SET

sSAVE THE TIMER
;CHECK FOR ERROR BITS
;BRANCH [F NONE
;ERROR IN RECEIVED CHAR

;R1 = CONTENTS OF RAULF
;BIT14=UART OVERRUN
;BIT13=FRAMING ERROR
;BIT12=PARITY ERROR
;DUPLICATE DATA WORD
sMASK LINE#
JLINE # IN LOW RYTE
JCHECK LINE #

JBRANCH IF 0K
JWIRONG LINE # RECEIVED

JBITS8-11 = LINE ¥
sGET MASK OF CHARACTER
JCHECK CHAR LENGTH.
sBRANCH IF Ok

JREVERSE THE MASK

sCHECK THE ACTURAL DATA
JBRANCH IF 0K
;WRONG CHAR LEN OR DATA ERROR

;R1=DATA FROM F]1/F0O (COMPLETE WORD:

MoV
B8PL
HLT+1

aRBUF,
-“

017701
022701
001401

174162

8%:

Mov

aCSR,
R1
1120405.R1

104001

;WAIT

sWRONG CHARACTER LENGTH

7$:

(MP
BEQ
HLT+1

:SHORT WAIT LOOP

;R1=DATA FROM F1/FQ
;R2=MASK (BITS SET NOT EXPECTED)

1764174

100405

;SEND A RUBOUT
;CLEAR COUNTER

;R1 = CONTENTS OF RBUT

017701
100001
104007

FOR XMTR READY

;R1 = CONTFNTS OF RBUF
;R2 = CONTENTS OF (SR

R!,
R2
#170377 .R2
#0.,

;SET XMTR CONTROL BIT, LINE O

JWAIT

;R2=DATA (LOW BYTE) EXPECTED

JREAD Fl/FQ
;BRANCH ]F CHAR PRESENT NOT SET
. CHARACTER PRESENT STAYED SET
JR1T

= CONTENTS OF RBUF

:SAVE THE CSR
JCHECK THE (SR
;BRANCH [F 0K
;DONE DIDN'1 CLEAR OR OTHER (SR tRROR
JR1 = CONTENTS OF (SR

SEC

ZZ-CZDJ;;;-O
CZDJAF
1451

1452

1453
654
1455

005146
005152
005156

DJ11

LOGIC

TESTS

26-FEB~79 15:41
005077
005077
104400

MACY11

4152

(LR
CLR
SCOPE

6142

1471

1472
1473
1474
1475
1476
1477

1478

1479
1480
1481
1482
1483
1484
1485
1486
1487

1488
1489
1490
1491

14972
1493
1494
1495
1496
1497
1498

alCR
aCSR

1501
1502

1503
1504
1505
1506

SEQ 0035

.CLEAR T(R
;CLEAR (SR

tttttt..t'n

JTEST 24:

TEST

LINE

CAN TRAMSMIT AND

(377)

18:

CHECKS

4%:
5%:

(CHECKS THAT RIGHT LiNE # (1) IN FI/FO
(HECKS FOR RIGHT CHARACTER LENGTH

7%:

(HECKS

38:

THAT

RECEIVE A CHARACTER.

6%$:

8%:

IPROBABLE

THAT CHAR PRESENT

IN FI/€0 [N REASONABLE

{(HECKS THAT NO ERRORS IN F1/F0

TIME.

CHECKS THAT CORRECT DATA WAS RECEIVED
THAT

CHARA(TER PRESENT CLEARS

C(HECKS THAT DONE CLEARS

FAULTY LOGIC:

M7285

(D2-7)

ALL;

M7279 ALL:

UART

(ARD D03 SERIES

ttt't*'.'fi"fi‘.t'tttl’tttt"!fifittl‘ttfitfl.ttt.'ttti....t't't't

..'t."lttti

005160

004737

014600

INITIALI2E

DEVICE' ‘(SR REGISTER

TST24:

JSR

;wAIT FOR MOS

PC,

:BIT3 = CLEAR MOS
SBIT8 = MASTER XMIR SCAN ENB

TO (iEAR

005164
005172
005176
005200
005206
005210
005212
005214
005220

052777
017701

000002
174122

174132

012777
005000
105305
001376
017701

000377

174120

100375

100405

005222
005224
005226
005232

005200
001371
017702

005234
005240
005244
005246

050037
032701
001401

104002

LOP24:

1%:
174102

;BITO = RECEIVER ENABLE

BIS
MOV

BPL
MOV

(LR

DECE

001346
070000

LOP24
#377,

3TBUF

005250
005252
005256
005260
005264
005266

010102
042702
000302
12276G¢
001401
104001

000001

L$:

:SEND A RUBOUT

sCLEAR COUNTER

*SHORT WAIT LOOP

BNE
MOV

13
(SR,

:BRANCH iF NOT TIME-OQUT
:SAVE CSR

8IS

BIT

HLT

170377

;SET XMTR CONTROL BIT, LI 1
;WAIT FOR XMTR READY

;WAIT FOR CHAR. PRES.
:BRANCH WHEN FOUND

BEQ

104001

QTCR
/1

1%
SRBUF LR
33

HLT+2

3$:

#BIT1,
a(SR,

BNE
MOV
BM|
INC

174066

S#INITD :BIT2 = MAINTENANCE

:TIME COUNTER

MOV

BIC

SWAS
(M8
BEQ
HLT+1

:CHARACTER READY DIDN'T SET
SRY = CONTENTS OF RBUF
‘R2 = CONTENTS OF CSR

RO.TIMER

SSAVE THE TIMER

‘BRANCH IF NONE

#70000, R1

;CHECK FOR ERROR BITS

:ERROR IN RECEIVED (HAR

*R1 = CONTENTS OF RBUF
:BIT14<UART OVERRUN

1499

1500

"tttt't!QltQi'RQ#t'ltt‘(t'i"tlkfi*fi'fi*t.ttflQttt'!ttttt't.tlitt

1454
1457
1458
1459
16460
1461
1462
1463
1664
1465
1466
1467
1468
1469

1470

30A(i052)
26-FEB=-79
15:47 PAGE 36
TST23:
TEST ALL OF LINE O TRANSMI1 AND RECEIVE LOGIC

4»1703?7 R?
R?
a1,
Y

:BIT113=FRAMING t ROR
R
‘BIT12=PARITY PP

SDUPLICATE Dr 1%

TMASK L INE#

SLINE # IN LOW BYTE
SCHECK LINE #
SBRANCH IF 0K
‘WRONG LINE # RECEIVED

—‘OO@\IO‘U\bLflN—‘OSg\I

—

b o

VIV
N AW DA AR, IV, IV, IV, TW TV IV, 1V, 1V,
POR IR R
o— b e e d e d d
o
LYV
N)

Z7-CZDJA=F=0
CZDJAF L1

005270
005274
005276
005300

005302
005304
005306
005310

DJ11

LOGIC

TESTS

26~FEB=79 15:41

117702
130207

MACYI1

174070

5%:

001401

104002

105102
120102

6%:

001403

104002

v05312
005316
005320

017701

005322
005326
CC5332
005334

017701
022701
001401

173772
1004C5

005336
005342
005346

005077
005077

173762
173752

10009
104001

176004

7%:

MG vB
BITR
BEQ
HLT+2

aDJLEN,
R2,

(OMB
{MPR
BEQ
HLT+2

R?
R1,
.+

§%:

TRTR
R
TR

éPROBABL

#100405
,R1
. %6

a( SR,

00535C

024737

014600

JCLEAR T(R

JCLEAR (SR

R AR

AN AR R AR AN AR

C LR R R

1S125:

JSR

PC,

;WAIT

FOR MOS

TO CLEAR

aINITD

012777
005000

000377

100375

105305

173732

173742

LOP25:

173730

I I

T T T

LA N R AR AR

AR AR RAR RN CAN O RN

NANATARNOROENSQ

SET:

;BITZ = MAINTENANCE
;BIT3 = CLEAR MOS
JBIT8 = MASTER XMTR SCAN ENR

SET:

;BITO = RECEIVER ENABLE

000004

RECEIVE A CHARACTER. (377
CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME.
(HECKS THAT NO ERRORS IN Fl/FO
(HECKS THAT RIGHT LINE # (2) IN FI/FO
CHECKS FOR RIGHT CHARACTER LENGTH
CHECKS THAT CORRECT DATA WAS RECEIVED
CHECKS THAT CHARACTER PRESENT (LEARS
3s:
CHECKS THAT DONE C(LEARS
E FAULTY LOGIC:
M7285 (D2-7) ALL; M7279 ALL. UART (ARG DG3 SERIES

052777
017701

THAT LINE 2 CAN TRANSMIT AND

005354
005362
005366
005370
005376
005400

WOWD®

JREAD F1/F0
JBRANCH IF TMAR PRESENT NOT ST
s CHAKACTER PRESENT STAYED SET
;R1 = CONTENTS OF RBUF
JSAVE THE CSR
JCHECK THE (SR
JBRANCH IF 0K
;DONF DIDN'T CLEAR OR JTHER (SR ERROR
:R1 = CONTENTIS OF (3R

allR
aCSR

TEST

(COMPLETE

;R2=DATA (LOW BYTE) EXPECTED

INITIALIZE
DEVICE' 'CSR*REGISTER

1548

1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562

;R1=DATA FROM FI/FO

MOV
CMP
BEQ
HLT+1

STEST 25-

;R2=MASK (BITS SET NOT EXPECTED)
JREVERSE THE MASK
JCHECK THE ACTURAL DATA
JBRANCH IF 0K
JWRONG CHAR LEN OR DATA ERROR

JBRANCH JF (K

JWRONG CHARACTER LENGTH
;R1=DATA FROM F/FO

aRBUF,
. +4

CLR
CLR
SCOPE
A

JR1 = CONTENTS OF RRJf
JRITSB=11 - LINE #
;GET MASK OF CHARAC(CI!ER
JCHECK CHAR LENGTH,

RZ
R1

MOV
8PL

HLT+1

104001

10440C

26=FEB-79
15:47 PAGE 37
3 QA( 252)
TEST ALL OF LINE 1 TRANSMIT AND RECEIVE LOGI(
ST
ST2

BIS
Mov
8PL
MOV
(LR
DECB

#MBIT2,
aCsR,”

LoP26

8377,

RO
RS

aT(R

JSET XMTR (ONTROL BIT, LINF 2

aTBUF

JSEND A RUBOUY
+CLEAR COUNTER
JSHORT WAIT LOOP

JWAIT FOR XMTR READY

7]-CIDJA=F=0
(ZDJAF P11
1563

1564

1565

1566

1567
1568
1569
1570
1571
1572
1673
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
186
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
161C
1611
1612

1613

1614
1615
1616

1617

16138

005402

005404

05410
005412
005414
005416
005422

DJ11

LOGIC

T ESTS

2€~FEB-79 15:41
001576
017701
100405
005200
001371
017702
104002

005424
005430
005434

MACY1T

30A( 252)
1

26=FERB-79

TST 25.

173712

BNE
MOV

18
ARBUF ,R1

INC
BNE

RO
1%
aCSR,

MOV
HLT+2

001346
0700C0o

PAGE 38

RO, TIMER

PRES.

*TIME COUNTER
*BRANCH IF NOT

TIME-OUT

REQ

. +4

*SAVE CSR
*CHARACTER READY DIDN'T SET

.R1 = CONTENTS Of RBUF
*R2 = CONTENTS Of (SR

#70000, R1

HLT41

;WAIT FOR CHAR.

:SAVE

005460
005464
005466
005470
005472
005474
005476
005500

170377

A ¥

:BRANCH IF NONE

*ERROR

000002

117702
130201

173700

5%:

001601
104C02
105102
120102

6%:

001401

104002

005502
005506
005510

017701

173614

005512
005516
005522
005524

017701
022701
001401

173602
100405

005526
005532
005536

005077
005077
104400

100001
104001

8%:

MOV

SWAB
(MPB
BEQ
HLT 1

R2
#2.,
. +4

BIS

MOVB

aDuLEN,

BEQ
HLT+C

.+4

BITB

MOY
BPL
HLT+1

SRHUF,
Y

(SR,

MOV

(MP

CLR
(LR
SCOPE

2100405 ,R1
. +h

alcR
(SR

[N RECEIVED CHAR

= CONTENTS NF RBUF

*BIT14=UART OVERRUN
:BIT13=FRAMING ERROR
*BIT12=PARITY ERROR

:DUPLICATE DATA WORD

:MASK L INE#

SLINE # IN LOW BYTE
SCHECK LINE #
SBRANCH [F OK
*WRONG LINE # RECEVED

*R1 = CONTENTS OF RBUF
SBITS8=11 = LINE #
SGET MASK OF

CHARACTER

SCHECK CHAR LENGTH.

‘BRANCH IF 0K
SWRONG CHARACTER LENGTH
*R1=DATA FROM FI/FO

‘R2=MASK (BITS SET NOT EXPECTED)

R?
RI,
L+

HLT+1

173572
173562

RZ,

(oM
(M8
BEL
HLT 2

BEQ

104001

2170377 82

THE TIMER

:CHECK FOR ERROR BITS

*R1

005440
005442
005446
005450
005454
005456

SEQ 0037

‘BRKANUH WHEN FOUND

BIS

8IT

005436

TEST ALL OF LINE 2 TRANSMIT AND RECEIVE LOGI(

8M]

173676

15:47

SREVERSE THE MASK
SCHECK THE ACTURAL DATA
SBRANCH [F OK
SWRONG CHAR LEN OR DATA ERROR
SR1=DATA FROM FI/FO (LOMPLFTE WORD
*R2=DATA (LOW BYTE) EXPECTED
*READ FJ/FO
SBRANCH [F CHMAR PRESEN! NOT SET
:CHARACTER PRESENT STAYED SET
JR1 = CONTENTS OF RBUF
SSAVE THE (SR

SCHECK THE CSR
SBRANCH IF 0K

SDONE DIDN'T CLEAR OR OTHER (SR ERROR

*R1 = CONTENTS OF CSR

SCLEAR TCR
SCLEAR (SR

"tlt'tttltt..tQt'.'i.tfl.""l’.l..i'.l‘."....".'..l"l.i.l...‘..i‘tll..

JTEST 26:
[
’
]

’

'$:
3$:
¢%:

TEST THAT LINE 3 CAN TRANSMIT AND

RECEIVE A CHARACTER, (377)
(HE(KS THAT (HAR PRESENT IS IN FI/FO IN REASONABLE

(HECKS THAT NO ERRORS IN F1/FQ
C(HF(KS THAT RIGHT LINE # (3) IN F1/FQ

TIME.

I2=-CZDJA=F=0
., P11
CZDJUAF

DJ11

LOGIC

TES S

26-FEB=79 15:4

MACY11

1619

§%:

1620
1621

68:
.

1622
1623
1624
1625

:PROBABLE

CHECKS rOR RIGHT CHARACTER LENGTH

CHECKS

THAT CHARACTER PRESEMNT CLEARS

CHECKS

THAT DONE CLEARS
M7285 (D2-7) ALL; M7279 AL.; UAKT CARD D03 SERIES

FAULTY LOGIC:

tfitttntntttttt-ttttttit'tnttttttttttttttttttttt.tntfit.nn-nttntntntnat'

a¥INITD

1631

1636

1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648

1649
1650
1651
1652
1653

1654
1655
1656

1657
1658
1659
1660
1661
1662
1663
1664
1665
1666

1667
1668
1669
1670
1671
1672
1673
1674

JWAIT FOR MOS TO CLEAR

005544
005552
005556
005560
005566
005570
005572
005574
005600
005602
005604
005606
005612

052777
017701

000010

012777

000377

100375

005000
105305
001376

017701

100405

173542

173552

LOP26:

173540

18:
173522

017702
104002

005¢€14
005620
005624
005626

050037
032701
001401

005630
005632
005636
005640
005644
005646

010102
042702
000302

b1 ¥

122702

LOP26

8377,
RO
RS

aTBUF

< SEND A RUBCUT
:CLEAR COUNTER
;SHORT WAIT LOOP

JWAIT FOR XMTR READY

JWAIT FOR CHAR.

cR1 - CONTENTS OF RBUF
sR2 = CONTENTS OF (SR

T IMER

079000 R1

:SAVE THE TIMER
sCHECK FOR ERROR BITS
JBRANCH [F NONE

cERROR IN RECEIVED (HAR
;R1 = CONTENTS OF RBUF
;BIT14=UART OVERRUN
;BIT13=FRAMING ERROR

170377

4%:

000003

104001

005662
005664

117702
130201

173510

5¢:

001401

R2
3.,
a"

#1720377
,R2

:BIT12=PARITY ERROR
;DUPLICATE DATA WORD
JMASK LINEN
JLINE # IN LOW BYTE

JCHECK LINE #
+BRANCH [F OK

JWRONG LINE # RECEIVED

@DJLEN, R2
R1
R2,
RY/

104002

105102
120102

PRES.

;BRANCH WHEN FOUND
sTIME COUNTER
JBRANCH ]F NOT TIME-OUT
;SAVE (SR
sCHARACTER READY DIDN'T SET

sRT

005650
005654
005656
005660

;SET XMTR CONTROL BIT, LINE 3

aRBUF ,R1

RO,

RECEIVER ENABLE

al(R
R1

104001

001401

8PL
MOV
(LR
DECB
BNE

a(SR,

RO
1%
a(SR,

173506

001346
070000

#8113,

E
BITO

005200

001377

BIS

MOV

(LEAR MOS
MASTER XMTR SCAN ENRB

-Q

1632
1633
1634
1635

= MAINTENANCE

nua

PC,

JSR

?5726

014600

—

004737

QOLNN

005540

Sy g Gumg =

INITIALIZE

DEVICE''CSR'REGISTER

1629

1630

78:

8%:

StG 0038

CHECKS THAT CORRECT DATA WAS RECEIVED

1626
1627
1628

30A(1052)
15:47
26-FER~79
PAGE 39
1ST26:
TEST ALL OF LINE 3 TRANSMIT AND RECSIVE LOGIC

RBUF

sBRANCH IF OK
sWRONG CHARACTER LENGTH

JR1=DATA FROM F1/FO
;R2=MASK (B]TS SET NOT EXPESTED:

fi2

R1,

= CONTENTS Or

;BITS8-11 = LINE #
sGET MASK OF CHARA(TER
sCHECK CHAR LENGTH.

+REVERSE

THE MASK

s(HECK THE ACTURAL DATA

22-CZDJA=F-0
F
. P11
CZDJUA
1675
1676
1627
1678
1679
1680
1681
1682
16854
1684
1685

DJ11

LOGIC

TESTS

26~FEB-79 15:41

005666
005670

001401

005672
005676
005700

017701

005702
005706
005712
005714

017701
022701
001401

173412
100405

005716
005722
005726
005730
005734

005077
005077

173402
173372

005237
012737

001364
005742

MACY11

104002

100001
104001

7%:

. th

MOV

ARBUF,

BPL
HLT+1

8%:

a(SR,

SRR

(LR
CLR
SCOPE

aTCR
ACSR

R R AR A

JTEST 27:

DJLEN

LAD

AR RN RN A AN

NRRNRNYININNIYIINY
3
WA, 2ROV NOAWNB NN —=OO
~

004727

052777
017701
100375
012777
005000
105305

001376
017701
100405
005200

001371
017702
1064002

014600

000020

173350

000377

173336

173340

(CHECKS THAT RIGHT LINE # (4)

CHECKS
CHECKS
CHECKS
(HECKS

173304

SRS

IN FI/FO

M7285 (D2-7) ALL; M7279 ALL. UART CARD D03 SERIES
sl

TS127:

JSR

PC,

Y22232223222232357

S¥INITD :BIT2 = MAINTENANCE

‘BIT3 = CLEAR MOS
*BIT8 = MASTER XMTR SCAN EN8

;WAIT FOR MOS TO CLEAR

:BITO = RECEIVER ENABLE
BIS

#8IT4,

Q@TCR

:SET XMTR CONTROL BIT. LINE 4

MOV

#377,

QTBUF

;SEND A RUBOUT

DECB
BNE

R5
1%

MOV
8PL
CLR

aCSR,
LOPR7

MOv
BM]
INC

aRBUF ,R1
3$
RO

Mov

alSR,

BNE

HLT+2

TIME.

FOR RIGHT CHARACTER LENGTH
THAT CORRECT DATA WAS RECEIVED
THAT CHARACTER PRESENT CLEARS
THAT DONE CLEARS

INITIALIZE
DEVICE''CSR* REGISTER

LOPZ27:

A ARSI
NS A Ao

4%:

;

1%:

173320

NN AN AR RN RN AR N KRR NN AR A AN CRRA

CHECKS THAT NO ERRORS IN FI/FO

:PROBABLE FAULTY LOGIC:

005742

R AR A R AR

18:

58:
€$:
7%:
8%:

RS S

TEST THAT LINE & CAN TRANSMIT AND
RECEIVE A CHARACTER. (377)
CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE

38:

;CHECK THE CSR
JBRANCH IF OK
;DONE DIDN'T CLEAR OR OTHER (SR ERROR
JR1 = CONTENTS OF (SR
;CLEAR T(CR
;CLEAR (SR

#.+6,
AR R

:READ FI/FO

;BRANCH IF CHAR PRESENT NOT SET
;CHARACTER PRESENT STAYED SEY
;R1 = CONTENTS OF RBUF
;SAVE THE (SR

RI1

#100405,R1
.+

MOV

JWRONG (CHAR LEN OR DATA ERROR
:R1=DATA FROM F1/FO (COMPLETE WORD)
;R2=DATA (LOW BYTE) EXFECTED

CMP
BEQ
HLT#1

INC

015250

SEQ 0039

JBRANCH [F 0K

MoV

104001

104400

B8EQ

HLT+2

1734624

30A(1052)
26-FEB-79
15:47 PAGE 40
T1ST26:
TEST ALL OF LINE 3 TRANSMIT AND RECEIVE LOGIC

‘WAIT FOR XMTR READY
;CLEAR COUNTER

¢SHORT WAIT LOOP
SWAIT FOR CHAR. PRES.
;BRANCH WHEN FOUND
s TIME COUNTER
RZ

JBRANCH IF NOT TIME-QUT
. SAVE

(SR

sCHARACTER READY DIDN'T SET
JR1 = CONTENTS OF RBUF

ZZ=CZDJA=F~0

006032
006034
006040
006042

006050

TESIS

26~FEB-79 15:41
050037
032701
001407

001346
070000

MACY11

B 4
30A(1052)
26-FEB=-79
15:47 PAGE 41
1S127:
TEST ALL OF LINE & TRANSM,T AND RECEIVE LOGIC
3%:

122702
001401

170377

Bl7

BEQ
HLT+1

104001

010102
042702
000302

BIS

MOV

104001

BIC

#170377.R2

BEQ

#4.,
YA

SWAB
CMPB

000004

RO, TIMER
#70000, R1
.t

HLT+1

;R2 = CONTENTS OF (SR

;SAVE THE TIMER
sCHECK FOR ERROR BITS
;BRANCH IF NONE

JERROR IN RECEIVED (HAR
;R1 = CONTENTS OF RBUF
;BIT14=UART OVERRUN

;BIT13=FRAMING ERROR
;BIT12=PARITY ERROR

;DUPLIZATE DATA WORD

IMASK LINE#

SLINE # IN LOW BYTE
JCHECK LINE #
JBRANCH IF 0K

;JWRONG LINE # RECEIVED

;R1

173306

5%:

001401

104002

MOVB

BITB
8EQ

aDJLEN,
R2,
A

RZ
R1

:BRANCH

HLT+2

105102
120102

6%:

001401

104002

006074
006100
006102

017700
100001

173222

006104
006110
006114
006116

017701
022701
001401

173210
100405

006120
006124
006130

005077
005077
104400

coms
(MPB
BEQ
HLT+2

R1,

.+4

sCHECK THE ACTURAL DATA

JWRONG CHAR LEN JR DATA ERROR

¢R1=DATA FROM F1/FO (COMPLETE WORD)

8%:

MOV
M
8La
HLT+1

a(SR,
R1
#100405.R1

CLR

al(R
al5R

CLR
SCOPE

JREVERSE THE MASK
:BRANCH [F 0K

aRBUF,

173200
173170

;R2=MASK (BITS SET NOT EXPECTED)

MOV
BPL
HLT+1

104001

;WRONG CHARACTER LENGTH
sR1=DATA FROM FI/FO

7%:

104001

;GET MASK OF CHARACTER
sCHECK CHAR LENGTH.

;R2=DATA (LOW BYTE) EXPECTED
:READ FI1/FO

sBRANCH IF CHAR PRESENT NOT SET
+CHARACTER PRESENT STAYED SET

;R1 = CONTENTS OF RBUF

+SAVE THE CSR
;CHECK THE (SR

JBRANCH IF OK

;DONE DIDN'T CLEAR OR QTHER (SR ERROR
+R1 = CONTENTS OF CSR
;CLEAR T(R
;CLEAR (SR

A AR

;TEST 30:

TEST THAT LINE 5 CAN TRANSMIT AND

)

*REAENEN AR AR

1%:

AR R AR

A AR R AR NN A NN

RECEIVE A CHARACTER.

R AR R

NIRRT RN IRARE RN

(377)

CHECKS THAT (HAR PRESENT IS IN FI/FO IN REASONABLE TIME.
3%:
CHECKS THAT NO ERRORS IN F1/FO
A
CHECKS THAT RIGHT LINE # (5) IN FI/FO
5%
CHECKS FOR RIGHT CHARACTER LENGTH
6%:
CHECKS THAT CORRECT DATA WAS RECEIVED
7%:
CHECKS THAT CHARACTER PRESENT (LEARS
8%:
CHECKS THAT DONE CLEARS
PROBABL E FAULTY LOGIC: M7285 (D2-7) ALL; M7279 AL.; UART CARD DO3 SERIES
R

006070
006072

117702
130201

= CONTENTS OF RBUF

;BITS8-11 = LINE #

006052
006056
006060
006062

SEG 0040

b:\bwwwgw

006016
006022
006026
006030

LOGIC

LRI

~ N NNNNNNN
&H &H
o WN)
= OV~

CZDJAF .P1

DJ11

"tttt*itl‘*fitfifitl‘ttttttt‘Qfifltfiii‘t.fi‘.t!tfi.‘.".liit‘!iti‘l‘.‘.“l".'.tl

INITIALIZE

Z2=CZDJA=F~0
F
. P11
CZDJA
1787
1788
1789
1790
1791

1792
1793
1794
1795
1796

DJ11 LOGIC TESTS
26~FEB=79 15:41

MACY11

30A(1052)
15:47
26~FEB~79
PAGE 42
1ST30:
TEST ALL QOF LINE 5 TRANSMIT AND RECEIVE LOGIC

DEVICE''CSR'REGISTER

006132

004737

014600

TST30:

JSR

PC,

JWAIT

FOR MOS

TO CLEAR

A#INITD

SET:

;BITZ2 = MAINTENANCE
;BIT3 = CLEAR MOS
;BIT8 = MASTER XMTR SCAN ENB

SET
BITO = RECEIVER ENABLE

006136
006144
006150
006152
006160
006162
006164
006166
006172
006174
006176
006200
006204
006206
006212
006210
006220

052777
017701

000040
173150

173160

012777
005000
105305
0013576
017701

000377

173146

100375

100405

005200
001371
017702
104002

050037
032701
001401
104001

LOP30:

1%:

173130

BPL

MOV
(LR

DECB
BNE
MOV

BMI
INC
BNE
MOV
HLT+?2

173114

001346
070000

BIS

MOV

3s:

BIS
BIT
BEQ
HLT+]

481715,
ACSR,

QTCR
R1

sSET XMTR CONTROL BIT, LINE 5

#4377,
RO
R5

QTBUF

sSEND A RUBOUT
;CLEAR COUNTER

LOP30

:SHORT WAIT LOOP

aRBUF ,R1

RO
1%
a(SR,

;WAIT FOR XMTR READY

RO, TIMER
372000. R1
,0

;WAIT FOR CHAR. PRES.
sBRANCH WHEN FOUND
s TIME COUNTER
:BRANCH IF NOT TIME-OUT

;SAVE (SR

CHARACTER READY DIDN'T SET
R1 = CONTENTS OF RBUF
RZ = CONTENTS OF (SR
;SAVE THE TIMER

:CHECK FOR ERROR BITS
;BRANCH [F NONE

;ERROR IN RECEIVED (HAR
:R1 = CONTENTS OF RBUF

;BIT14=UART OVERRUN

006222
006224
006230
006232
006236
006240

006242
006246
006250
006252
006254
006256
006260
006262

006264
006270
006272

010102
042702
000302
122702

001401
1040017

117702

130201
001401

170377

4%:

000005

cMP8

8EQ

HLT+1

173116

bt ¥

104002

6%:

001401
104002

100001
104001

R2
£S.,

#17037
,R2
7
t*‘

MOVR
8118
BEQ

R2,

coMB
(MPR

R2
R1,

HLT+?

105102
120102

017701

MOV
8I(

BEQ

aDJLEN, R?
.+

7%:

MOV
BPL
HLT+1

SMASK LINENX
SLINE # IN LOW BYTE
SCHECK LINE #
;BRANCH IF OK
SWRONG LINE # RECEIVED

sR1 = CONTENTS OF RBUF
;BITSB-11 = LINE #

;GET MASK QF CHARACTER
s CHECK CHAR LENGTH.
:BRANCH IF OK

;WRONG CHARACTER LENGTH
sR1=DATA FROM FI/FO

JR2=MASK (BITS SET NOT EXPECTED)

HLT+2

173032

;BIT13=FRAMING ERROR
sBIT12=PARITY ERROR
;DUPLICATE DATA WORD

sREVERSE THE MASK
JCHECK THE ACTURAL DATA
;BRANCH IF OK
JWRONG CHAR LEN OR DATA ERROR

;R1=DATA FROM FI1/FO (COMPLETE WORD)

aRBUF,
. 6

sR2=DATA (LOW BYTE) EXPECTED

¢READ F1/FO
sBRANCH IF CHAR PRESENT NOT SET
s CHARACTER PRESENT STAYCZD SET
sR1 = CONTENTS OF RBUF

SEG 0041

27-CZDJA~F=0
(ZDJAF P11
1843

1844

1845
1846

1847
1848

1849
1850
1851
1852

DJ11

LOGIC

TESTS

26-FEB-79 15:41

006274
006300
006304
006306

017701
022701
00140°

173020
100405

006310
006314
006320

005077
005077

173010

MACY11

30A(1052

TST30:

8%:

104001

104400

173000

MoV
(MP
BEQ
HLT +1

@SR,
RI
#100405,R1
.+

CLR
CLR
SCOPE

alCR
aCSR

SEG 0042

. SAVE THE (SR
sCHECK THE (SR
JBRANCH IF 0K
;DONE DIDN'T CLEAR OR OTHER (SR ERROR

:R1 = CONTENTS OF
;CLEAR TCR
:CLEAR CSR

CSR

ttt*tttttttt*tttttt

JTEST 31:

1855
1856
1857

TEST THAT LINE 6 CAN TRANSMIT AND

RECEIVE A CHARACTER.

18:

(HECKS

3%:

1859
1860

006322

1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1381
1882
1883
1884
1885

004737

052777
017701
100375
012777
005000
105305
001376
017701
100405
005200
001371
017702

1886

1887
1888
1889
1890
1891

104002

050037
032701
001401

1892

014600

000100
172760

172770

000377

172756

M7285

INITIALIZE

DEVICE''CSR'REGISTER

TSTS1

JSR

PC,

(D2-7)

IN FI/FO IN REASONASLE

ALL;
2

M7279 ALL:

SNINITD ;BITZ2 = MAINTENANCE

:BIT3 = CLEAR MOS

;BIT8 = MASTER XMTR SCAN ENB

:BITO = RECEIVER ENABLE

172740

172724

81S

#MiT6,

al(R

8PL
MOV
CLR

LOP31
#377,
RO

QTBUF

MOV

a(SR,

gfiga

MOV
BM]
INC
BNE
MOV
HLT+2

SRBUF LR
3s
RO
18

8IS

B8I7

BrQ

HLT+1

alSR,

Rr?

sSET XMYR CONTROL BIT, LINF 6

JWAIT FOR XMTR READY
;SEND A RUBOUT

;CLEAR COUNTER
JSHORT WAIT 1LOOP

JWAIT FOR CHAR. PRES.
sBRANCH WHEN FOUND
sTIME COUNTER
JBRANCH IF NOT TIME-OQUT
+SAVE (SR
+CHARACTER READY DIDN'T SETY

JR1 = CONTENTS OF RBUF
JR2 = CONTENTS OF (SR

RO, TIMER

;SAVE THE TIMER

R YA

JBRANCH ]F NONE

#70000 R1

;sCHECK FOR ERROR BITS

sERROR

JR1

[N RECEIVED

CHAR

= CONTENTS CF RBUF

BIT14-UART OVERRUN

BIT13 FRAMING ERROR

Mov

R1,

(CARD D03 SERIES

SET

1064001

006412

UART

SET

LOP31:

TIME.

2222y2222232222327

JWAIT FOR MOS TO CLEAR

1%:

001346
070000

(HECKS THAT DONE CLEARS

FAULTY LOGIC:

CHECKS THAT CHARACTER PRESENT CLEARS

88:

AL E

(377)

(HECKS THAT CORRECT DATA WAS RECEIVED

7$:

PROBABLE

CHAR PRESENT

CHECKS THAT RIGHT LINE # (6) IN FI/FO
CHECKS FOR RIGHT CHARACTER LENGTH

6$:

1861

THAT

CHECKS THAT NO ERRORS IN FI/FO

4%:
58:

1858

1893
1894
1895
1896
1897
1898

\tt'tttiQflfittttttit*kttittittitttt**tt*ttttfi*tt*tttt

1853
1854

1862
1863
1864
1865
1866
1867
1868
1869
1870

26-FEB=79
15:47 PAGE 43
TEST ALL OF LINE 5 TRANSMIT AND RECEIVE LOGIC

sBIT12=PARITY ERROR

:DUPLICATE DATA WORD

Z2=-CZDJA=F=0
CZD_AF P11

DJ11 LOGIC TESTS
C6~FEB=~79 15:41

1899
1900
1901
1902
1903

006414
006420
006622
006426
006430

042702
000302
122702
001401
104001

1906
1907

0064632
Q0643¢

117702
130201

1904
1905
1908

1909
910
911
1912
1913
1514
1915
1916

1917
1918
1919

1920

1921
1922
1923
1924
1925
1926
19¢7

1928

38%8

006440

006442

006454
006460

017701
100001

006674
006476

006500

006504

006570

170377
000006

172726

5%:

Q01401
104001

005077

104400

#170377 ,R2
R2
#6.,
R2
.+

MOVB
BITB

aDJLEN,
R2.

HLT+2

172642

{OM3
(MPB
8EQ
HLT+2

R2
R1,
.4

7%:

MOV
BPL

aRBUF,
.+

MOV
(MP

a(SR,
R1
#100405,R1

HLT+1

17263C
100405

8%:

BEQ
HLT+1

172620

(LR

172610

(LR

SCOPE

1931

1932
1633

STEST 32:
N

1934

936

1937

193

1742

19564

;WRONG CHARACTER LENGTH
;R1=DATA FROM F]/FO
;R2=MASK (BITS SET NOT EXPECTED)
;REVERSE THE MASX
;CHECK THE ACTURAL DATA
;BRANCH IF OK
;WRONG (CHAR LEN OR DATA ERROR
R1"DATA FROM FI/FO (COMPLETE WORD)
R2=DATA (LOW BYTE) EXPECTED
JREAD F1/F0
:BRANCH IFf

CHAR PRESENT NGT SET

;R1 = CONTENTS GF RBUF
;SAVE THE (SR
sCHECK THE (SR
JBRANCH IF 0K
JDONE DIDN'T (LEAR OR CTHER CSR ERROR
LR1 = CONTENTS OF (SR
;CLEAR T(R
JCLEAR (SR

R RN TR

R AR AR A

P AR C AR R R C R AR R AR RN AR ANARARR NP A NN SR

TEST THAT LINE 7 CAN TRANSMIT AND
RECEIVE A CHARACTER. (377)

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE TIME.

CHECKS FOR RIGHT CHARACTER LENGTH

7%:

CHECKS THAT CHARA(TER PRESENT CLEARS

6%:

;

%gzg

1952
1953

:BRANCH IF OK

58:

;

SRR

1964

1947

JGET MASK OF CHARACTER
;CHECK (HAR LENGTH.

;CHARACTER PRESENT STAYED SET

aCSR

JR1 = CONTENTS OF RBUF
JBITS8-11 = LINE #

CHECKS THAT RIGHT LINE # (7) IN FI/FO
CHECKS THAT CORRECT DATA WAS RECEIVED

8%:
(HECKS THAT DONE CLEARS
P’%OBABLE FAULTY LOGIC:
M7285 (D2~7) ALL: M7279 ALL; UART CARD D03 SERIES

1943

7948
1949
1950
1951

JMASK L INE#X
J.INE # [N LOW BYTE
JCHECK LINE #
;BRANCH 1F 0K
JWRONG LINE # RECEIVED

(HECKS THAT NO ERRORS IN F1/FO

4%:

1940
1941

38:

1938

1$:

AN AN RN AN AR A A AR

1935

R2
R1

6%:

104001

017701
022701

BIC
SWAB
(MPB
BEQ
HLT+1

BEQ

104002

105102
120102
001401
104002

006464
006470

30A(1052)
26~FEB=79
15:47
PAGE 44
TST31:
TEST ALL OF LINE & TRANSMIT AND RECEIVE LOGIC

001401

006446
006446
006450
006452

006462

MACYT1

006512

004737

014600

R AR

IR RN AR R AN P PR R R R R R R I R IR R AN R AR AR TR AR AN AR AR R RN RA R TR AN S

L INITIALIZE

;

DEVICE''(SR'REGISTER

TST32:

JSR

PC,

AXINITD :BITZ = MAINTENANCE

:BIT3 = CLEAR MOS
;BITB = MASTER XMTR SCAN ENB

sWAIT FOR MOS TO CLEAR
:

SET:

;

006516

052777

000200

172600

BIS

#3117,

SET:

;BITO = RECEIVER ENABLE

al(R

JSET XMIR CONTROL B8IT, LINE 7

SEQ 0043

72-CIDJA~F=0
CZDJAF L1

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976

1977
1978

1979
1980
1981
1982
1983
1984

}985

987
1988

1989

006526
006530
006532
006540
006542
006544
006546
006552
006554
006556
00656G

006564

006566
006572
006576

006600

006602

006610
00012
006616
006620

DJ11

LOGIC

TESTS

26~FEB=79 15:41

017701

172570

012777
005000
105305
001376
017701

000377

100375

100405

005200
001371
017702
104002

050037
032701
001401

MACY11

TST32:

F
&4
P26<FER=79
15:47
PAGE 45
TEST ALL OF LINE 7 TRANSMIT AND RECEIVE LOGIC

LOR32:

MoV

30A(1052)

172566
i N

172550

BPL

MOV
CLR

DECB
BNE

MOV

BM]
INC
BNE

172534

001346
070000

3%-

122702

00140

RI1

JWAIT

4377,

QTBUF

;SEND A RURQUT
sCLEAR COUNTER

LOP32

RC
RS

aRBUF ,R"
1%

28(SR,

RO, TIMER

170377

JWAIT

3%
RO

R1,
R2
#170377 ,R2
R2
»’.,
RZ

0C0007

104001

006632

117702
1302C1

172536

5%:

aDJLEN, R2
R2,
R1
.6

0014(1

104002

FOR CHAR.

PRES.

;BRANCH WHEN FOUND
;TIME COUNTER
JBRANCH IF NOT TIME-QUT

:SAVE CSR

;CHARACTER READY DIDN'T SET

;R1 = CONTENTS OF RBLIF
;JRZ = CONTENTS OF (SR
JSAVE THE TIMER
;CHFCK FOR ERROR BITS

;BRANCH IF NONE
JERROR IN RECEIVFD CHAR
JR1 = CONTENTS OF RBUF

;BIT14=UART GVERRUN
;BIT13=FRAMING ERROR
;BIT12=PARITY ERROR

;DUPLICATE DATA WORD
:MASK L INE#
JLINE # IN LOW BYTE
JCHECK LINE #
<BRANCH IF Ok
JWRONG LINE # RECEIVED

JR1

06622
006626

FOR XMTR READY

;SHORT WAIT LOOP

#70000,

104001

016102
042702
009302

aCSR,

= CONTENTS OF RBUF

;BITS8-1 = LINE #

;GET MASK OF CHARACTER
JCHECK CHAR LENGTH,
JBRANCH IF 0K

JWRONG CHARACTER LENGTH

+R1=DATA FROM F1/FO

*99G

1991
1992
1993

105102
120102
001401
104002

017701

006652
006654

100007
104001

017701
022701
001401

6%:

172452

7%:

HLT+1

172440
100405

BS.

104001

006670
006( 00¢
006702
006706

{MpP
B8t

HLT+?

005077
005077

172430
1724273

005237
0127%7

001364
006714

104400

R2
R1,
.+

(15250

CLR
(LR
SCOPE
INC

MOv

aRBUF,
.+

R
(SR,
#100405,R1
-'4

DILEN

SCHECK THE ACTURAL DATA
JBRANCH IF 0K
JWRONG (HAR LEN OR DATA ERROR

JRI=DATA FROM F1/F0O (COMPLETE WORD)
sR2=DATA (LOW BYTE) EXPECTED

<READ F1/F0
JBRANCH IF (HAR PRESENT NOT SET
;CHARACTER PRESENT STAYED SET

sR1

= CONTENTS OF RBUF

sSAVE THE (SR
sCHECK THE (SR
sBRANCH IF 0K

;DONE DIDN'T CLEAR OR CTHER [SR ERROR
JR1 = CONTENTS OF (SR
<CLEAR T(R
JCLEAR (SR

al(R
a(SR
N.+6,

JR2=MASK (B]TS SET NOT EXPECTtD)
cREVERSE THE MASK

LAD

SEQ 0044

Z2=CIDJA=F~C
CZDJAF P

2048
2049
2050
2051
2052
2053
2054
2055
2056
2057

2058
2059
2060
2061
2062
2063
2064
2065
2066

LOGIC

TESIS

26~FEB~79 15:47

MA(Y"1

30A{1052)

TST33:

26~FEB=79

15:47

PAGE 46

TEST ALL OF LINE 8 TRANSMIT AND RECEIVE LOGIC

SFQ 0045

'IQ‘.fifitt!til’ttl‘fi.'lQtflitl"tt'ti.ifi"ltttfifittttttfi!

’lttfi.tt't'.tttt."t.

LTEST 33:

TEST

;

1%:

6%:

8%:

:
:

3%:

5%:
7%:

+PROBABLE

THAT

LINE

8 CAN

TRANSMIT

AND

RECEIVE A CHARACTER. (377)
(HECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE
CHECKS THAT NO ERRORS IN FI/FO
CHECKS THAT RIGHT LINE # (8) IN FI/FO
(HECKS FOR RIGHT CHARA(CTFR LENGTH
(HECKS THAT CORRECT DATA WAS RECEJVED
(HECKS THAT CHARACTER PRESENT (LEARS

TIME,

CHECKS THAT DONE CLEARS
M7285 (D2-7) ALL; M7279 ALL; UART rARD DG3 SERIF

FAULTY LOGIC:

.-t!t!tttltttttnt‘ttltltttttntttttnt.nttttttttnntttttnttttan

noontttt-.tot

INITIAL]ZE
DEVICE'‘CSR*REGISTER
006714

004737

1ST33:

014n00

JSR

;WAIT FOR MOS

2011
2012
2013
2014
2015
2016
2017
2018
2910
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

DJ1Y

PC.,

SET:
a#INITD (BIT2
;
= MAINTENANCE

;BIT3 = CLEAR MOS
;BIT8 = MASTER XMTR SCAN ENB

TO CLEAR

SET:

JBITO = RECEIVER ENABLE

006720
006726
006732
006734
006742
006744
006746
006750
006754
006756
006760
006762
006766
006770
206774
007000
007002

052777
017701

000400

012777
005000

000377

100375

172366

105305

001376
017701
100405

005200
001371
017702
104002

050037
032701
001401

172376

LOP33:

172364

1%:
172346

D01346

010102
042702
000302

007024

“177¢¢

122702

001401
104001

8PL
MOV
CLR
DE(R
BNE
MOV
8M]
MOV
HLT+2

3%:

104001

007004
007006
007012
007014
007020
007022

MOV

INC
BNE

172332

070000

8IS

8IS
BIT
BEQ

HLT
%

170377

000010

MOV
8IC
SWARB
{MPS

BEQ

#8[T8,
SR,

LOP3S

#377,

RO
RS
1%
SRBUF R1

QICR
Rl

QI8UF

RC, TIMER

#70000,

JBRANCH WHEN FOUND

R2
#8.,

#170377,R2

HLT+1

172334

MOVE

<SEND A RUBOUT

<CLEAR COUNTER
+SHORT WAIT LOOP
JWAIT FOR CHAR. PRES.

RO
1$
3SR,

;SET XMTR CONTROL BIT, LINE B

SWAIT FOR XMIR READY

;TIME COUNTER
JBRANCH [F NOTV TIME-QUT
sSAVE (SR
:CHARACTER READY DIDN'T SETY

JR1 = CONTENTS OF RBUF
JRZ = CONTENTS OF (SR
;SAVE THE TIMER

+CHE(K FOR ERROR BITS
JBRANCH [F NONE
<ERROR IN RECEIVED (HAR
;R1 = CONTENTS OF RBUF
sBIT14=UART OVERRUN

JBIT13=FRAMING ERROR
;BIT12=PARITY ERROR
sDUPLICATE DATA WORD

JMASK L INE#
cLINE # IN LOW BYTE
JCHECK LINE #
JBRANCH IF 0Ok

JWRONG LINE # RECEIVED
+R1 = CONTENTS OF RBUF
aDJLEN, R2

JBITSB=11 = LINE #
JGET MASK OF (HARA(CTER

22=CIDJA=F-0
(ZDJAF P11

2067
2068
2069
2070
2071
2072
2073
2074
2075
2076

2077
2078

2079
2080
2081
2082
2083
2084
2085
2086
2687
2088
2089
2090

D.11 LOGIC T ESTS
26~FEB=7G 15:41

007030
007032
007034

130201
007140!
104002

007036
007040
007042
007044

105102
120102
001401
104002

MACY1?

30AC1052)
TST33:

6$:

26-FEB=-79

TEST ALL OF

15:47
LINE

BITH
BEQ
HLT+2

Re,
.+

(oM3
cMPB
BEQ
HLT +2

R
R1,
R

172250

7%:

MOV
8PL
HLT+1

JRBUF,
.+

007056
007G62
0067066
007070

017701
022701
001401
104001

172236
160405

8%:

MOV
CMP
BEQ
H T+l

a(SR,
R1
#100405,R1
.th

007072
007076
007102

005077
005077
104400

172226
172216

CLR
CLR
SCOPE

al(R
a(SR

SRR
A AN RN AR

SEQ 0046

:CHECK CHAR LENGTH.
JBRANCH IF 0K
;WRONG CHARACTER LFNGTH
;R1=DATA FROM FI/F9D
;RZ=MASK (BITS SET NOT EXPECTED)
JREVERSE THE MASK
;CHECK THE ACTURAL DATA
JBRANCH IF OF.
;WRONG CHAR LEN CR DATA ERROR

;R1=DATA FROM FI/FO (COMPLETE WORD)

017701
100201
10400

2092
2093
2094
2095
2096
2097
2098
2099
2100
2101

PAGE 47

8 TRANSMIT AND RECEIVE LOGIC

007046
007052
00705¢

2091

:R2=DATA (LOW BYTE) EXPECTED
;READ FI/FO

;BRANCH IF CHAR PRFSENT NCT SET
;CHARACTER PRESENT STAYED SET
;R1 = CONTENTS OF RBUF
;SAVE THE (SR
;CHECK THE (SR
;BRANCH [F OK
;DONE DIDN'T CLEAR OR OTHER (SR ERROR
;R1 = CONTENTS OF (SR
;CLEAR T(R
;CLEAR (SR

R AR RN AN AN AR AR AR S AN R R AN RN AN A RIS KA AN A ST FNNIRE
RS S oy

2102

STEST 34:
TEST THAT LINE 9 CAN TRANSMIT AND
H
RECEIVE A CHARACTER. (377}
:
18:
CHECKS THAT (HAR PRESENT IS IN FI/FO IN REASONABLE TiMF.
:
3$:
(HECKS THAT NO ERRORS IN FI/FQ
:
©$:
CHECKS THAT RIGHT LiNE # (9) IN FI/FO
:
58:
CHECKS FOR RIGHT CHARACTER LENGTH
:
6$:
CHECKS THAT (ORRECT DATA WAS RECEIVED
:
7$:
CHECKS THAT CHARACTER PRESENT (LEARS
:
88:
C(HECKS THAT DONE CLEARS
SPROBABLE FAULTY LOGIC:
M7285 (D2-7) ALL.; M7279 ALL; UART CARD D03 SERIES

2103
2104

S]gg

2107
2108
2109
2110
2111

007704

2114

007110

052777

007122
007724
007132
007134
007136

100375
012777
005000
105305
001376

007144

100405

004737

2116
2117
2118
2119
2120

2121

2122

INITIALIZE

DEVICE''CSR'REGISTER

(14600

TST34:

JSR

PC,

;WAIT FOR MOS TO CLEAR
;

A
2115

0071640

017701

(017701

001000

172176

000377

172206

LOP34:

172174

1$:

172156

8PL
Mov
CLR
DECls
BNE

LOP34
#377,
@TBUF
RO
RS
s
SRBUF ,R1

MOV

BMI

SET

ST
:BITO = RECEIVER ENABLE

#M179,
ACSR,

8IS

MOV

@#INITD ;BIT2 = MAINTENANCE
:BIT% = CLEAR MCS
;BITB = MASTER XMTR 5SCAN ENB

;

007116

ATCR
R1

sSET XMTR CONTROL BIT, LINE ©
JWAIT FOR XMTR READY

;SEND A RUBOUT
:CLEAR COUNTER
sSHORT WAIT LOOP

JWAIT FOR CHAR. PRES.

sBRANCH WHEN FOUND

T I

12-C2DJA=~F=0
CZDJAF . P11

2123
2124
2125
2126

2127

2128
2129
2130
2131
2132
2133
213
2135

007146
007150
007152
007*56

DJ11 LOGIC TEE1S
26=FEB=79 15:

005200
001371
017702
104002

MAlYT

4
I
30A(1052)
26-FEB=79
15:47
PAGE 48
ST34:
TEST ALL OF LINE 9 TRANSMIT AND RECEIVE LOGIC

INC
BNF
MOV
HLT+2

172142

050037
032701
001401
104001

2137

007174

010102

2139
2140

007202
007204

000302
122702

007212

104001

001346
570000

3%:

BIS
BIT
BEQ
HLT+1

2138 007176 042702 170377

4%:

MOV

2141

2142
2143
2144
2145
2146
2147
2148
2149
2150

2151

007210

007214
607220
007222
007224

007226

001401

117702
130207
001407
104002

007230
(07232
007234

120102
001401
104002

2157
2158
2159
2160

007236
007242
007244

017701
100001
104001

007246

017701

2161

2162
2163
2164

2165

2166

2167

g;gg
2170

2171

2172

2i73
2174

2175

176

2177
2178

007252
007256
007260
007262

007266

007272

022701
001401
104001

005077

005077
104400

RO, TIMER
#70000, R
.+

BIC

RQ
4.,

BEQ

ALT+3

172144

5% :

SLINE # IN LOW BYTE
SCHECK LINE #

@DJLEN, RZ
R2,
R1
. +4

COM8

RI1,
. +4

172060

7%:

MOV
BPL
HLT +1

@BRBUF,
.+

172046

8s%:

MOV

3SR,

CLR

aTCR

100405

172036

172026

TMR
BEQ
HLT+1

(LR

SCOPE

#700405,R1
. +4

aCSR

;BIT12=PARITY ERROR

:DUPLICATE CATA WORD

MOVB
BITB
BEQ
HLT+2

(MPE
BEQ
HLT+2

= CONTENTS OF RBUF

*R2 = CONTENTS OF CSR
*SAVE THE TIMER
‘CHECK FOR ERROR BITS
*BRANCH IF NONE
JERROR IM RECEIVED CHAR
;R1T = CONTENTS OF RBUF
;BIT14=UART OVERRUN
*BIT13=FRAMING ERROR

#1?0377 R2

SWAB
CMPB

000011

105102

2152
2153
2154
2155

2156

;TIME COUNTER
*BRANCH IF NOT TIME-OUT
*SAVE CSR
;CHARACTER READY DIDN'T SET
:R1

007160
(07164
007170
007172

2136

RO
1¢
aCSR,

‘MASK L INE#

*BRANCH IF OK

SWRONG LINE # RECEIVED
JR1 = CONTENTS OF RBUF
:BITS8-11 = LINE #
*GET MASK OF CHARACTER
*CHECK CHAR LENGTH.
SBRANCH IF OK
SWRONG CHARACTER LENGTH
*R1=DATA FROM f /FO
sR2=MASK (BITS SET NOT EXPECTED)

SREVERSE THE MASK

:CHECK THE ACTURAL DATA
“BRANCH IF OK
JWRONG CHAR LEN OR DATA ERROR
*R1=DATA FROM FI/FO (COMPLETE WORD)

‘R2=DATA (LOW BYTE) EXPECTED

*READ F1/FO
SBRANCH IF CHAR PRESENT NOT SET
;CHARACTER PRESENT STAYED SET
3R1 = CONTENTS OF RBUF

SSAVE THE CSR

*CHECK THE CSR
SBRANCH IF OK
;DONE DIDN'T CLEAR OR QTHER (SR ERROR
:R1 = CONTENTS OF CSR
SCLEAR TCR
:CLEAR (SR

ttttatttttt'tttitttt**tttttttt'tt'lt‘ttt.ttitttltt!ittfitt'itti.tttt.t..

STEST 35:

;
:

18:
3$:

TEST THAT LINE 10 CAN TRANSMIT AND

RECEIVE A CHARACTER. (377)

CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE ~IME.
CHECKS THAT NO ERRORS IN FI/FO

4%:

CHECKS THAT RIGHT LINE # (10) IN F1/FO

:
;

6$:
7$:

CHECKS THAT CORRECT DATA WAS RECEIVED
(HECKS THAT CHARACTER PRESENT CLEARS

;

5¢:

CHECKS FOR RIGHT CHARACTER LENGTH

SEG 0047

D11 LOGIC

TESTS

26~FEB-79 15:41

MA(YI

d —ad

8%:

PROBABLE

CHECKS THAT DONE CLEARS
LOGIC:
M7285 (D2-7) ALL; M7279 ALL; UAR' CARD D03 SERIES

INITIALIZE
DEVICE''CSR'RFGISTER

007274

004737

014600

T1ST35:

SEQ 0048

JWAIT

—

V1,V

2195

FAULTY

JSR
FOR MOS

PC,

A INITD

SET:
;
JRIT2
= MAINTENANCE

:BIT3 = CLEAR MOS
;BIT8 = MASTER XMTR SCAN tNB

TO CLEAR

SET:

—b

2000
fiw’\)—‘

15:47
PAGE 49
LINE 10 TRANSMIT AND RECEIVE LOGIC

flit.tttttl‘tttfi"ttl‘tt\'tttttfiktttltfittttttttt'ltt"titfifitttttttt.'ttttl’

d sd ek

NN S UPLS
TSRV

26~FEB~79

TEST ALL OF

LET.Vb 1, NT NT.NT VT

22=CZDJIA=F=0
CZDJAF P11

;BITO - RECEIVER ENABLE

007300
6073C6
007312
007314
007322
007324
007326
ou733c
007334
67336
007 %0
007342
007346
007350
007354
007360
007362

007364
0073€6
007372
007374
007400
007402

007404
007410
007412
007414
007416
007420
00/422
007424

252777
017701

002000
172006

172016

012777
00>000

000377

172004

100375

105305

001376
17701
100405
0C5200
001371

017702

104002

050037
032701
001401

LOP3S:

1%:

171766

1721752

001346
070000

3%:

122702

001401

4%:

130201

171754

5%:

104002

007401

104002

#3772,
RO

DECR

:SET XMTR CONTROL BIT, LINE 10

QO TBUF

;SEND A RUBOUT
¢CLEAR COUNTER

1%
arRBUF R
33
RO
1%
a(SR,
R?

BIS
BIT

RO, TIMER
470000, R1

MOy

BI{

R1,

R?
#10.,
1A

#170377 ,R2

aDJLEN, RZ

BFQ

TOMB
MPS

8EQ

HLT+2

;WAIT

RC.

FOR XMTR READY

:SHORT WAIT LOCP

SWAIT FOR CHAR. PRES.
;BRANCH WHEN FOUND
s TIME COUNTER

cBRANCH IF NOT TIME-QUT
JSAVE (SR

;CHARACTER READY DIDN'T SET

SRl = CONTENTS OF RRUF
sR2 = CONTENTS OF (SR

JSAVE THE TIMER
sCHECK FOR ERROR BITS
sBRANCH [F NONE
;ERROR IN RECEIVED (HAR

SR1 = (ONTENTS OF RBLF
:BIT14=UART OVERRUN
;BIT13=FRAMING ERROR
;BIT12=PARITY ERROR
sDUPLICATE DATA WORD
JMASK L INES
JLINE # IN LOW BYTE
sCHECK LINE #
sBRANCH IF OK
JWRONG LINE # RECEIVED

sR1

move

BIT1R

H{ T+2

A ¥

LOP3§

QAT(R

BNE
MOV
BM]
iNC
BNE
MV
HLT+2

HL T+

01401

105102
120102

MOV
CLR

BPL

SWAB
(MR
BEC

000012

164001

117702

a(SR

HL T+

170377

#8]T10,

MOV

BtQ

104001

010102
042702
000302

BIS

= CONTENTS OF RBUF

.BITS8-11 = LINE #
sGET MASK OF CHARACTER
sCHECK CHAR LENGTH.

sBRANCH [F OK
+WRONG CHARACTER LENGTH

+R1=DATA FROM F1/FO

w1,

. th

cR2=MASK (BITS SET NOU EXPECTED)

JREVERSE THE MASK
sCHECK THE ACTURAL DATA
+BRANCH [F OK
JWRONG CHAR LEN OR DATA ERROR

JR1=DATA FROM F1/FQ (COMPLETE WwORD

J=C2DJA=F=0
“IDIAF P

2235

2236

DY) LOGIC TESTS
26=FtB~79 15:41

MACYTT

2237
2238
2239
2040
2261
22642
22643

007426

017701

171670

’$:

007436
007462
007446
007450

017701
022701
001401
104001

1714656
100405

8%:

2265
2cb6

007452
0067456

005077
005077

171646
171636

266

254 g

5249
[

007432
007434

007462

100001
104001

104400

007464

004737

;R2-DATA (LOW BYTE) EXPECTED

JREAD FI/FO

;BRANCH [F CHAR FRESENT NOT SET
;CHARACTER PRESENT STAYED SFT
:R1 = CONTENTS OF RBUF
JSAVE THE (SR
;CHECK THE CSR
JBRANCH IF 0K
;DONE DIDN'T CLEAR OR OTHER (SR ERROR
;R1

- CONTENTS OF

;CLEAR T(R
;CLEAR (SR

(SR

TEST THAT LINE 11 (AN TRANSMIT AND
RECEIVE A CHARACTER. (377)
CHECKS THAT (HAR PRESENT IS IN FI/FO IN REASONABLE

2268

R A AR

2269

TST36:

JSR

PC,

052777
017701
10037>
012777

2276
2277
2278
2279
2280
2281
2282
2283
2284
2285

007512
007514
007516
007520
007524
007526
007530
007532
007536

005000
105305
001376
017701
100405
005200
(01371
017702
104002

2287

007540

050037

007544

007550
007552

032701

0014901
104001

004000
171616

17162¢

000377

171614

LOP36:

1$:

171576

171562

001346

070000

3%:

SET:

a¥INITD ;BIT2 - MAINTENANCE

.
007470
007476
007502
007504

TARD D03 SERIES

INITIALIZE

DEVICE''CSR'REGISTER

SWALT FOR MOS 10 CLEAR

55;(1)

JBITS = CLEAR MOS

;BIT8 = MASTER XMTR SCAN ENSB
SET:

sBITO = RECEIVER ENAB_E
815
MOV
8PL
MOV

(LR
DE(B
BNE
MOV
BM]
INC
BNE
MOV
HLT+2
BIS

8I7

BEQ
HLT+1

TIMF.

A NN R R P AR R R AN AN RN RN AR R RACR RSOk SOeNT oSt aRSRANRRY

014600

2267

2289
2290

al(R
d7SR

2263

2288

CLR
(LR

SN R R AR R AR AR

2262

2286

a(SR,
R}
#100405,R1
R

H
38.
(HECKS THAT NO ERRORS IN FI/FO
H
4%:
(HECKS THAT RIGHT LINE # (11) IN FI/FO
:
58:
(HECKS FOR RIGHT CHARACTER LENGTH
:
68:
(HECKS THAT CORRECT DATA WAS RECEIVED
:
7%:
(HECKS THAT (HARACTER PRESENT (LEARS
:
8%:
C(HECKS THAT DONE CLEARS
;PROBABLE FAULTY LOGIC:
M7285 (L2-7) ALL; M7279 ALL: UAR!

2261

2272
2273
22764
2275

MOV
cMP
BEQ
HLT+1

8PL
HLT#]

JTEST 36:
:
:
1$:

2260

2266

aRBUF,

SEQ 0049

.'Ql!Qt"tt't!ltt'lt.ttfitt.t'tt..tt'ltlhtt.ilt.'it't..tt..ttt'.tnt.ttn..t

2253
2256
2255
2256
2257
2258
2259

2264

MOV

ST OPE

2250
2251
2252

2265

30a(1052)
26-FER=79
15:47
PAGE 50
TST35:
TEST ALL OF LINE 10 TRANSMIT AND RECEIVE LOGIC

M7, al(R
a(SrR,
Ri1
LOP36
#3727,
@TBUF

RO
RS
1%
SRBUF ,R1
3%
RO
1%
(SR,
RZ

SSET XMTR CONTROL BIT, LINE
SWAIT FOR XMTR READY

;SEND A RUBOUT
:CLEAR COUNTER
¢ SHORT WAIT tooP

JWAIT FOR CHAR, PRES.

SBRANCH WHEN FOUND
:TIME COUNTER
JBRANCH [F NOT TIME-OUT
sSAVE (SR
s (HARACTER READY DIDN'T SET
JR1 = CONTENTS OF RBUF

;R = (ONTENTS OF (SR

RO TIMER

JSAVE THE TIMER

JBRANCH [F NONE
;ERROR [N RECEIVED (HAR

#70000, R

;CHECK FOR ERROR BITS

2{=CIDJA<F<0
(ZDJAF P11

DJ11 1OGIC TESTS
26=FEB=79 15:41

MACYTT

3QA(10 52)
26-FEBR=79
15:47
TST36:
TEST ALL OF LINE 11

4
PAGE 51
TRANSMIT AND RECEIVE LOGIC

229!

JR1 - CONTENTS OF RRUF

229¢

<293
2294

2295

2496

2297

JBIT14=UART OVERIUN

00755%¢

007556

007562

010102

042702

170377
000013

000302

2298
2299
2800
<30

007564
00757C
007572

122702
001401
104001

2303
2304
2305
2306

007574
007600
007602
007604

117702
130201
001401
104002

2309
2310
2311

007606
00761';)
007612

105102
120102
0061401

2302

2307
2508

2312

2313
2314
2315
2316
2317
2318

007614

4%:

MOV

BI(

SWAB

(MPR
BEQ
HLT+1

171564

5%:

6$:

104002

#170377,R2

[ AR
YA

MOvVB
8]T18
8tQ
HLT+2

aDJLEN, R2
RC,
R1
.t

(oM
cmMPs
BEQ

R2
R1,
.44

HLT <2

171500

7%:

MOV
BPL
HLT+1

sRBUF,
7

2319
2320
2321
232

007626
007632
0C’636
007640

017701
022701
001401
104001

171466
100405

8%:

i)
MP

(SR,
R
#100405 ,R1
A

2324
2325
2326
2327
gggg

007642
007646
007652
007654
007660

005077
005077
104400
005277
012737

171456
171446

(LR
(LR
SCOPE
INC
MOV

9T(R
a( SR

001364
007666

2330

015250
SR

2331
2332
2333

R AN

R IR

JTEST 37:
H
:
1%:

DULEN
#,+6,

2338

;

2360

;PROBABLE FAULTY LOGIC:

231

234
2345

004737

014600

;R1=DATA FROM FI/FO (COMPLETE WORD)
;R2=DATA (LOW BYTE) EXPECTED
JREAD F1/F0O
JBRANCH IF CHAR PRESENT NOT SET
s CHARACTER PRESENT STAYED SET
JR1 = (ONTENTS OF RBUF

sSAVE THZ (SR
;CHECK THE (STt

JBRANCH IF OK
;DONE DIDN'T CLEAR OR OTHER (SR ERROR

LAD
A ST RRR AR R A AN SNCCARLERENG IR RGO,

4%:

;

68:

(HECKS THAT CORRECT DATA WAS RECEIVED

;

88:

rHECKS THAT DONE CLEARS

5%:

78:

C(HECKS THAT RIGHT LINE # (12)

15137:

IN FI/FQ

(HECKS THAT CHARACTER FRESENT CLEARS

M7285 (D2~7) ALL; M7279 ALL; JART CARD DO3 SERTES

J3R

TIMg
.

C(HECKS FOR RIGHT (HARACTER LENGTH

INITIAL]ZE
DEVICE''(SR'REGISTER
007666

;REVERSE THE MASK
JCHECK THE ACTURAL DATA
JBRANCH [r OK

(HECKS THAT NO ERRORS IN FI/FO

232
2343

sGET MASK OF (HARACTER
JCHECK CHAR LENGTH.
JBRANCH [F 0K
;WRONG CHARAZTER LENGTH

TEST THAT LINE 12 (AN TRANSMIT AND
RECEIVE A CHARACTIER. (377)
CHECKS THAT CHAR PRESENT IS IN FI/FO IN REASONABLE

2339

;BITS8-11 = LINE #

IR AN AR R A AR R E R IR AR A ANN R R AR

2336

2337

JCHECK LINE #
JBRANCH [F 0K
;WRONG LINE # RECEIVED
;JR1 = CONTENTS OF RBUF

;CLEAR T(R
sCLEAR (SR

2335

:MASK L INE#

JLINE # IN LOW BYTE

;R1 = CONTENTS OF (SR

<336

38:

;DUPLICATE DATA WORD

JWRONG CHAR LEN OR DATA ERROR

017701
100001
104001

8tQ
HLT+1

;BIT13=FRAMING ERROR
:BIT12=PARITY ERROR

;R1=DATA FROM FI/FO
:R2=MASK (BJITS SET NOT EXPECTED)

0076i6
007622
007624

2323

SEQ J050

PC,

ININITD

I I

I N

SET:
;BITS

MAINTENANCE

Y YYYs

12=CIDJA=F~0

CZDJAF
. P11

2347
2348
2345
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2340
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379

LOGIC

TESTIS

26-FEB-79 15:41

MA(CYil

M
4
3 0A(] 052)
26-FEB-79
15:47 PAGE 52
TST3 7:
TEST ALL OF LINE 12 TRANSMIT AND RECEIVE LOGIC

JWAIT

FOR MOS

007672
007700
007704
v07706
007714
007710
7720
007722

007726
007730
007732

007734
007740
007742
007746
007752
007754

052777
0177017

010000

171424

012777
005000

000377

1714612

100375

171414

105305

001376

017701

100405

005200
001373
017702
104002

050037
032701
001401

LOP37:

1$:
121374

TO CLEAR

SET:
;BITO = RECEIVER ENABLE

8IS

MOV

8PL

001346
070000

LOP3?

1%
@RBUF ,P1
3s

BNE
MOV

1s
(SR,

8IS

RO, T IMER

8IT

HLT+1

ATCR

:SET XMTR CONTROL BIT, LIME

QTBUF

:SEND A RUBOUT

BNE
MOV
aM]

CLR
DECB

BEN

104001

(SR,

#377,

HLT +2

38:

#B1T12,

MOV

INC

171360

SEQ 0051

;BIT3 - CLEAR MOS
;BIT8 - MASTER XMTR SCAN ENSR

:
:

RO
RS

:CLEAR COUNTER
*SHORT WAIT LOOP

;WAIT FOR CHAR. PRES.
:BRANCH WHEN FOUND

#70000,

SWAIT FOR XMTR READY

:TIME COUNTER

:BRANCH IF NOT TIME-OUT
*SAVE (SR

;CHARACTER READY DIDN'T SET
sR1 = CONTENTS OF RBUF

:R2 = CONTENTS OF (SR

;SAVE THE TIMER

;CHECK FOR ERROR BITS

;BRANCH [F NONE

;ERROR IN RECEIVED CHAR
;R1 = CONTENTS OF RBUF

;BIT14=UART OVERRUN

;BIT13=FRAMING ERROR

007756
007760
007764
067766
007772
007774
007776
010002
010006
010010
010012

010102
042702
000302
122702
001401

170377

48:

BEQ

104001

117702
130201
001401
104002

HLT+1

171362

5¢:

6%:

010020
010024
010026

017701

010030
010034
010040

017701
022701
001401

010016

100001
104001

MOV
BIC

SWAB
(MPB

000014

105102
120102
00140i
104002

010014

2401
2402

DJ11

MOVB

R?
#12..,

*DUPLICATE DATA WORD
IMASK L INE#
SLINE # IN LOW BYTE
TCHECK LINE #

SBRANCH IF OK

*WRONG LINE # RECEIVED

SR1 = CONTENTS OF RBUF

@DJLEN, R2

SBITS8-11 = LINE #

SGET MASK OF CHARACTER

BITB
BEQ
HLT+2

R2,
.+

RI,
L+

*CHECK THE ACTURAL TATA
SBRANCH IF 0K
SWRONG CHAR LEN OR DATA ERROR
*R1=DATA FROM F1/FO (COMPLETE WORD)

MOV

ARBUF,

*READ FI/FO

(MP8
BEQ
HLT+2

HLT+1

8$:

R1
R2
#170377.R2

;BIT12=PARITY ERROR

L +h

MOV

a(SR,

BEQ

CMP

SCHECK CHAR LENGTH.
SBRANCH IF OK
SWRONG CHARACTER LENGTH

:R1=DATA FROM FI/FO
;R2=MASK (BITS SET NOT EXPECTED)

#100405,R1

SREVERSE THE MASK

SR2=DATA (LOW BYTE) EXPECTED

‘BRANCH IF CHAR PRESENT NOT SET

s CHARACTER PRESENT STAYED S&7
:R1 = CONTENTS OF RBUF

“SAVE

THE CSR

*CHECK THE CSR

‘BRANCH IF OK

Z7-C2DJA=F~0
CZDJAF .P1I

2403
2404

2605

2606
528;

010042

010044

010050
0100564

DJ11 LOGIC TESTS
26~FEB~79 15:41

MACY!

N
4
30A(1052)
26~FEB~79
15:47
PAGE 53
TST37:
TEST ALL OF LINE 12 TRANSMIT AND RECEIVE 1 0GIC

104001

005077

005077
104400

HLT+1

171254

CLR

171244

CLR
SCOPE

2(,09

SEQ 0052

;DONE DIDN'T CLEAR OR OTHER (SR ERROR
;R1 = CONTENTS OF CSR

aTCrR

*CLEAR TCR

aCSR

*CLEAR CSR

'-ttttti"ttttttt*ttttttttttttttttttttttktttttttttt‘tttnttttttttttfltnttttt

2610

JTEST 40:

2611

;

2612

2413

24614

TEST THAT LINE 13 CAN TRANSMIT AND

RECEIVE A CHARACTER.

(377)

1$:

(HECKS

4%$:

CHECKS THAT RIGHT LINE # (13) IN FI/FO

3%$:

THAT

CHAR

PRESENT

IN FI/FO

CHECKS THAT NO ERRORS IN FI/FO

IN REASONABLE

TIME.

2415
2416
2617
2418
2419

5%:
CHECKS FOR RIGHT CHARACTER LENGTH
6%:
C(HECKS THAT CORRECT DATA WAS RECEIVED
78:
(HECKS THAT CHARACTER PRESENT CLEARS
8%:
(HECKS THAT DONE CLEARS
:PROBABLE FAULTY LOGIC:
M7285 (D2-7) ALL: M7279 ALL; UART CARD DO3 SERIES

2621
2422
2423
2424
2625
2426
2427

:
;
:
TST40:

;
:
:

2‘20

*t!tt*tttt*tttt*tt'tttttttttttttttttttttf*tttt*ttttttnttttttttttttt"tt

010056

004737

014600

24628

010062
010070

052777
017701

020000
171224

171234

2435
2436
2437
2438
2439
2440
2441
2642
2643
2444
2445
2446

010076
010104
010106
010110
012112
010116
010120
010122
010124
010130

012777
005000
105305
001376
017701
100405
005200
001%71
017702
104002

000377

171222

010074

2647

010132

24649
2450
2451
2452

010142
010144

2456

2457
2458

SET:
AFINITD ;BITZ = MAINTENANCE
;BIT3 - CLEAR MOS
;BIT8 - MASTER XMTR SCAN ENB
SET:

2632
2433

2453
2454
2455

PC,

Sfi%?

2448

JSR

;WAIT FOR MOS 7O CLEAR

2429

2434

INITIALIZE
DEVICE''CSR'REGISTER

010136

100375

050037

032701

001401
104001

010146

010102

010154
010156

000302
122702

010150

042702

LOP4LO:

18:

171204

171170

001346

070000

170377
000015

;BITO = RECEIVER ENABLE
BIS
MOV

#IT13, alCR
a(SkR,
R

;SET XMTR CONTROL BIT, LINE 13
;WAIT FOR XMTR READY

MOV
CLR
DECB
BNE
MOV
BM]
INC
BNE
MOV
HLT+2

#377,
STBUF
RO
RS
18
aRBUF ,R1
38
RO
1%
aCSR,
R2

;SEND A RUBOUT
;CLEAR COUNTER
JSHORT WAIT LOOP

8PL

8IS

BIT

BEQ
HLT#+1

4%:

MOV

BIC

SWAS
(MPR

LOP4OD

RG, 1 IMER

#76000 R1

:SAVE THE TIMER

JCHECK FOR ERROR BITS

;BRANCH IF NONE
JERROR IN RECEIVED (HAR
:R1 = CONTENTS OF RBUF
;BIT14=UART OVERRUN

;BIT13=FRAMING ERROR
:BIT12=PARITY ERROR
;DUPLICATE DATA WORD

JLINE # IN LOW BYTE
JCHECK LINE #

#170377.,R?

R2
”13.,

;WAIT FOR CHAR. PRES.

;BRANCH WHEN FOUND
s TIME COUNTER
;BRANCH IF NOT TIME-QUT
:SAVE CSR
;CHARACTER READY DIDN'T SET
;R1 = CONTENTS OF RBUF
;R2 = CONTENTS OF CSR

:MASK L INE#

Z7=CZDJA=F=0
CZDJAF P11

2659
2660
2661
2462
2663
2664
2665
2666

24667

2468

24669
2670
2471
2472

2473
2474

26475
2476
26477
2478
2479
2480
2481

2682

2483
2484

2485

Sz.gg
A

DJI1 LOGIC TESTS
26-FEB=79 15:41

010152
010164

001401
104001

010166
010172

010174
010176

117702
130201
001401
104002

010200
010202
010204
010206

105102
120102
001401
104002

MACY11

30A(1052)
26-FEB=79
15:47
PAGE 54
TST40:
TEST ALL OF LINE 13 TRANSMIT AND RECEIVE LOGIC

171172

5%:

6%:

BEQ
HLT+1

MOVA
BITH
BEQ
HLT+2

aDJLEN, RZ
R2,
R1
.t

coms
(MPB
BEQ
HLT+2

R2
R1,
.th

SEQ 0053

JBRANCH IF 0K
JWRONG LINE # RECE]IVED
JR1 = CONTENTS OF RBUF
;BITS8-11 = LINE #

sGET MASK OF CHARACTER
;CHECK CHAR LENGTH.
;BRANCH IF 0K
JWRONG CHARACTER LENGTH

;JR1=DATA FROM F[/FO

;R2=MASK (BITS SET NOT EXPECTED)

JREVERSE THE MASK
;CHECK THE ACTURAL DATA
:BRANCH IF 0K
;WRONG (HAR LEN OR DATA ERROR

;R1=DATA FROM FI1/FO (COMPLETE WORD)
JR2=DATA (LOW BYTE) EXPcCTED

Q10210
010214
010216

017701
100001
104001

171106

7%:

MOv
8PL
HLT+1

aRBUF,
.4

010220
010224
010230

017701
022701
001401

171074
100405

8%:

MOV
{Mp
8EQ

aCSR,
R1
#100405 ,R1
A

JREAD FI/FO
JBRANCH [F CHAR PRESENT NOT SET
s CHARACTER PRESENT STAYED SET
JR1 = CONTENTS OF RBUF
;SAVE THE (SR
;CHECK THE (SR
;BRANCH IF 0K

CLR

aTCR

;R1 = CONTENTS OF (SR
sCLEAR T(R

010232
0102346

010240

010244

104001

005077

104400

HLT+1

171064

171054

CLR

SCOPE

2488

MR A R

;DONE DIDN'T CLEAR OR OTHER (SR ERROR

aCSR

;CLEAR (SR

I T

T T TTT

I T TM

2489
2490
2491
2492

STEST 41:
.
.
18:
:
38:

TEST THAT LINE 14 CAN TRANSMIT AND
RECEIVE A CHARACTER. (377)
(HECKS THAT CHAR PRESENT IS IN FI/FO IN REASONAR:E TIME.
(HECKS THAT NO ERRORS IN FI/FO

2694
2495

:
:

CHE(KS FOR RIGHT CHARACTER LENGTH
C(HECKS THAT CORRECT DATA WAS RECEIVED

24693
24696

2497
2498

7$:

58:
6%:

A RA

2500

2301

2504
2505
2506

4%:

(HECKS THAT RIGHT LINE # (14) IN FI/FO

(HECKS THAT CHARACTER PRESENT (LEARS

;
8%:
C(HECKS THAT DONE CLEARS
;PROBABLE FAULTY LOGIC:
M72B85 (D2=7) ALL; M7279 ALL: UART CARD D03 SERIES

2499

2502
2503

0102646

004737

:
;

014600

TST&1:

AR A R AR A

JSR

PC,

sg?g

;
052777
017701
100375
012777

040000
171034

171044

000377

171032

LOP&T:

SET:

a#INITD ;BIT2 = MAINTENANCE
;BIT3 = CLEAR MOS
;BIT8 = MASTER XMTR SCAN ENB

;

010252
010260
010264
010266

AN RN AR R A PR NP R A RN R R AN SN AR RS W

. INITIALIZE

JWAIT FOR MOS TO (LEAR

2511
2512
2513
2514

AR R A R R RN AR R AR R R

DEVICE''(SR'REGISTER

2507

2508

SET:

;BITO = RECEIVER ENABLE

BIS
MOV
B8PL
MOv

#1114, BTCR
a(SR,
R1
LOP41
#377,
QTBUF

;sSET XMTR CONTROL BIT, LINE 14
JWAIT FOR XMTR READY
;SEND A RUBOUT

27-CIDJA=F=0
CZDJAF L1

2515
2516
2517
2518
2519
2520
2521
2522
2523
25264
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
<540
25641
2542
25643
2544
2545
2546
2547
2548
254G
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565

256¢€
2567

2568

2569

2570

010274
010276
010300
070302
010306
010310
010312
010314
010320
010322
010326

010332
010334

DJ11

LOGIC

TESTS

26~FEB~79 15:41
005000
105305
001376
017701
100405

005200
001371
017702
104002

050037
032701
001401

MACY11

30A(1052)
15:47
26~FEB~79
PAGE 55
TEST ALL OF LINE 14 TRANSMIT AND RECEIVE LOGIC
TST4T:
1%:

171014

CLR

DECB

171000

001346
070000

3%:

;SHORT WAIT LOOP

BNE
MOv

1%
aRBUF ,R1

INC
BNE
MOV
HLT+2

RO
1%
a(SR,

BIS
BIT

RO, TIMER
#70000, R1

8EQ

104001

;CLEAR COUNTER

BMI]

JWAIT

FOR CHAR.

PRES.

JBRANCH WHEN FOUND
;TIME COUNTER

. +4

HLT+1

SEG 0054

JBRANCH JF NOT

:SAVE (SR

TIME-OQUT

;CHARACTER READY DIDN'T SET

JR1T = CONTENTS OF RBUF
:R2 = CONTENTS OF (SR
;SAVE THE TIMER

;CHECK FOR ERROR BITS
JBRANCH IF NONE
;ERROR IN RECEIVED (HAR

;R1 = CONTENTS OF RBUF

;81T14=UART OVERRUN
;BIT13=FRAMING ERROR

010336

010340

010344
010346
010352
010354
010356
010362
0103564
010366

010102
042702
000302
122702
001401

170377

000016

117702

130291
001401
104002

171002

017701

010410
010414
010420

017701
022701
001401

170704
100495

5%:

SWAB
CMPB

R2
#14.,

BIC

#170377.,R2
YA

MOVB
BITR

005077
005077

170674
170664

170716

aDJLEN, R2
R2,
R1
.+

JR2=MASK (BITS SET NOT EXPECTED)

7%:

MOV
8PL
HLT+1

SRBUF,
.+

MOV

a{SR,

RI1

(LR
(LR
SCOPE
SRR

aT(R
a(SR

AR A R A A A AR A

JTEST 42:
’

1%:

JREVERSE THE MASK
JCHECK THE ACTURAL DATA
JBRANCH IF 0K
;WRONG (HAR LEN OR DATA ERROR
JR1=DATA FROM FI/FO (COMPLETE WORD)
sR2=DATA (LOW BYTE) EXPECTED
;READ FI/FO

JBRANCH [F CHAR PRESENT NOT SET

;s CHARACTER PRESENT STAYED SETY

#100405
., R
R

HLT?

JBRANCH IF 0K

JWRONG CHARACTER LENGTH

RZ
R1,
.+

(MP
BEQ

;BITS8-11 = LINE #
cGET MASK OF CHARAC(CTER
cCHECK CHAR LENGTH.

;R1=DATA FROM F]/FO

coms
(MPR
8EQ
HLT+2

8$:

:BIT12=PARITY ERROR
:DUPLICATE DATA WORD
sMASK L INE#
JLINE # IN LOW BYTE
JCHECK LINE #
<BRANCH IF 0K

;WRONG LINE # RECEIVED
JR1T = CONTENTS OF RBUF

6%:

104001

104400

BEQ
HLT+2

010400
010404
010406

010424
010430
010434

HLT+1

105102
120102
001401
104002

100001
106001

MOV

B8EQ

104001

010370
010372
010374
010376

010422

(%:

<R1 = CONTENTS OF RBUF
.SAVE

THE (SR

sCHECK THE CSR
JBRANCH IF 0K
;DONE DIDN'T CLEAR OR OTHER (SR FRROR
;R1 = CONTENTS OF (SR
;CLEAR T(CR
;CLEAR (SR

RN TR R AR AN R R R R A AR AR AR RN RN RN R AR RAR R R

P RN R AN R AR RN AR

TEST THAT LINE 15 CAN TRANSMIT AND
RECEJVE A (HARACTER, (377)
CHECKS THAT (HAR PRESENT IS IN FI/FQO IN REASONABLE

R RO R EN

TIME,

ZZ-C20JA=F=0
CZDJAF P

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614

2615

2616
2617
2618
2619
2620

2621
2622
2623
2624
2625
2626

DJ11

LOGIC

TESTS

¢6=FEB=79 15:41

MACY11

SEQ 0055 ]

30A(1052)
15:47
26~FEB-79
PAGE 56
TST42:
TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC

3%$:
CHECKS THAT NO ERRORS IN FI/FO
4%:
(HECKS THAT RIGHT LINE # (15) IN FI/FO
5%:
CHECKS FOR RIGHT CHARACTER LENGTH
68:
(HECKS THAT CORRECT DATA WAS RECEIVED
7%:
C(HECKS THAT CHARA(CTER PRESENT (LEARS
8%:
(HECKS THAT DONE CLEARS
*PROBABL E FAULTY LOGIC: M7285 (D2-7) ALL; M7279 ALL;
AR

R R R

AR A AR R AR AR AT

UART CARD DO3 SERIES

AR R R AR RS AN AR N R AN AR AR ANCA AN RN

INITIAL]ZE

DEVICE''CSR"REGISTER
010436

004737

TST42:

014600

JSR

SWAIT FOR MOS

PC,

Q#INITD

TO CLEAR

SET:

;BIT2 = MAINTENANCE
;BIT3 = CLEAR MOS
;BIT8 = MASTER XMTR SCAN ENS

SET:

;BITO = RECEIVER ENABLE

010442
010450
010454
010456
010464
010466
010470
010472
C10476
010500
C10502
010504
010510
010512
010516
010522
010524

052777
017701
100375
012777
005000

100000
170644

170654

000377

170642

105305

001376
017701
100405
0052900
001371
017702
104002

050037
032701
001401

LOP42:

1%:

170624

170610

001346
070000

BIS

#BIT15, QTCR

MOV
CLR
DECB
BNE
MOov
BM]
INC
BNE
MOV
HLT+?2

#3727,
RO
RS

MOV
B8PL

BIS

BIT
BEQ

104001

HLT+1

acSR,

LOP42

~ R1

aTBUF

;SEND A RUBOUT
;CLEAR COUNTER

. SHORT WAIT LOOP

1%
ARBUF ,R1

RO
1%
a(SR,

;SET XMTR CONTROL BIT, LINE
;WAIT FOR XMTR READY

RO, TIMER
#70000, R1
.t

JWAIT FOR CHAR. PRES.
:BRANCH WHEN FOUND
;TIME COUNTER
;BRANCH IF NOT TIME-OUT
s SAVE CSR
s CHARACTER READY DIDN'T SET
;R1 = CONTENTS OF RBUF

;R2 = CONTENTS OF (SR

:SAVE THE TIMER

sCHECK FOR ERROR BITS
;BRANCH IF NONE
JERROR IN RECEIVED CHAR
;R1 = CONTENTS OF RBUF
;BIT14=UART OVERRUN

;BIT13=FRAMING ERROR
010526
010530
010534
010536
010542
010544

010546
010552
010554
010556

010102
042702
006302
122702
001401

170377

000017

104001

117702
130201

001401

104002

MOV
BIC
SWAB
cMP8
BEQ

R1,
R
4170377 ,R2
R
#15.,
R2

HLT+1

170612

5¢%:

MOvVB

8I78
8EQ

HLT+2

;BIT12=PARITY ERRCR

;DUPLICATE DATA WORD
SMASK L INE#X
JLINE # IN LOW BYTE
JCHECK LINE #
;BRANCH IF OK
JWRONG LINE ¥ RECEIVED
sR1

aDJLEN, R2
R2,
R1

= CONTENTS OF RBUF

;BITSB-11 = LINE #

;GET MASK OF CHARACTER
+CHECK CHAR LENGTH,
JBRANCH IF OK
:WRONG CHARACTER LENGTMH

JR1=DATA FROM F1/FO

JR2=MASK (BITS SET NOT EXPE(TETM

R R RN NN AN

27=-CZDJA=F-0
CZDJAF
. P1T

2627 010560
2628 010562
2629 010564
2630 0710566
26351
2632
2033
010570
2634 010574
2635 010576
2636
2637 010600
2638 010604
2639 010610
2640 010612
2641
2642
010614
2643 010620
2644 010624
2645
010626
2646 010634
2647 010640
2648 010644
2649 010646
2650
010650
2651
010652
2652 010656
2653 010662
2654
2655
2656
2657
2658
2659
266N
2661
2662
2663 010670
2664
2665
2666
2067
2668
2669
2¢70
2671
010674
2672 010702
2673 10706
2674 010712
2675 016714
2676 010720
2677 010722
2678
2679 010724
268C
010730
2681
2682 010732

DJ11

LOGIC

TESTS

26=FEB-79 *5:41

MACY11

105102

6%:

120102
001401
104002

coms
(MPR
BEQ

HLT~?2

R¢
R1,
A

;WRONG CHAR LEN OR DATA ERROR

;R1=DATA FROM F1/FO

170526

7%:

MOV
BPL
HLT+1

@RBUF,
.th

017701
022701
601401
104001

170514
100405

8%:

MOV
(MP
BEQ

al SR,
R1
#100405,R1
YA

005077
065077
10440C
162737

005237
013700
006200
006200
005200
006137
060037
012737

HLT+1

170504
170474

000003
001346
001346

001346
001346
610670

(LR
(LR
SCOPE

001364

SuB

INC
MOV
ASR
ASR
INC
ROL

ADD
MOV

015250

JREAD FI/FO
;BRANCH IF (HAR PRESENT NOT SET
¢ CHARACTER PRESENT STAYED SET
;R1 = CONTENTS OF RBUF

:SAVE THE (SR
JCHECK THE (SR
JBRANCH IF OK

;DONE DIDN'T

DJLEN
RO

RO,
#.46,

T1IMER
LAD

RO
RO
TIMER

(LEAR OR OTHER (SR ERROR

;RT = CONTENTS OF
JCLEAR T(CR
JCLEAR (SR

TIMER
TIMER,
RO

(COMPLETE WORD)

JR2=DATA (LOW BYTE) EXPECTED

aT(R
alSP

a3,

SEQ G056

JREVERSE THE MASK
JCHECK THE ACTURAL DATA
;BRANCH IF OK

017701
100001
104001

30A(1052)
26~FEB~79
15:47
PAGE 57
TST42:
TEST ALL OF LINE 15 TRANSMIT AND RECEIVE LOGIC

JWORSE CASE
JDUP TIMER
/2

(SR

TIME, CNE CHARACTER

/4
o+
;TIMER « 2

;2.25 TIMES ONE CHARACTER TIME
JRESET LOOP ADDRESS

:ttttttttltttlttfitttttttl"ttttttt'itttttttttttttttktltttttt

JTEST 43:
H

;PROBABLE

ttttttntfit-t

TEST THAT {HARACTER PRESENT
1S CLEARFD (BY CLEAR MOS).

FAULTY {OGIC:

M7285

(D2-8)

(BIT1S5) OF RBUF

E17,E14,E15;

M7279;

M7280

"t't‘."'l.'tflQfi*i!l."t'*'tiiitttttt"itttlittllit't".'ttti'

.tt"titttt

004737

014600

;

INITIALIZE

?§g¢3:

JSR

27T

BIT2 = MAINTENANCE

WAIT FOR B.T4 = MOS CLEAR

:
:

612777
012704
017701

000001
000640

010477
005304
0c1371

170406

105777
100375

170370

052777

000010

100375

170422

170406

BIT3 = CLEAR MOS
BITB = TRANS SCAN ENABLE

277

BITO = RECCIVER ENABLE

1§

ggv
L

2%:

176360

PC,IPINITD

MOV
MOV

#8IT0.
#40 Ré

?gsn,n1

‘WAJT FOR TRANS READY

MOv
DEC
BNE

R4, aTRUF
R4
1%

JTRANSMIT COUNT
1COUNT DOWN

1STB

aCSR

;MAKE SURE DONE

BIS

#3173,3CSR

;CLEAR MOS

8PL

QTCR

;TRANS CONTROL. LINEC
*SET UP COUNTER TQ OUTPUT 32 CHAR'S

IS SE?

27=-TIDJA<F=0
CZDJAF.P11 ~

DJ11 LOGIC TESIS
26=FEB=79 15:41

2683
g68%

0107640
010746

032777
001374

000020

5686
2687
5688
5680
2690
5691
5692

010750
010754
010756
010760
010764
010770
010772

017701
100001
104001
017701
022701
001401
104001

170346

2655

MACYI1

30A(1Q052)
26~FEB-79
15:47
TST43:
TEST CEAR MOS

170352

3%:

170334
100405

(«}

BIT
BNE

WBIT4.3CSK
28

:WAIT FOR CLRMOS TO F IN]ISH

MOV
BPL
LT+
MOV
CMP
BEQ
HLT+1

aRBUF R
. +4

;CHECK RBUF AND SAVE

@(SR.R
£'00405,R1
.+

;SAVE CSR
CHECK CSR
“BRANCH IF O
CSR ERROR. POSSIBILITES:
(1) DONE DIDN'T CLEAR
:(2) TPANSMITTER UART DIDN'T C(LR.
RI=CONTENTS OF CSR

013700
105305
001376

001346

5702 011006 017707

010774
C11000
011002

170310

5703
5704
5705

011010
011012
011014

105701
100001
104001

5707
2708

011016
011026

005300
C01367

2710
2711

011022
011026

02270%
001407

5706

2712

58
SEG 0057

5695
269
5698
5699
2700

5
PAGE

011030

5714 011032

MoV
DECB
BNE

MOV

100405

104001

TIMER,
RS
%

;SET UP TIMER
3HORT WAIT LOOP

@LSR.RI

:SAVE CSR

TSTB
BPL
HLT+1

Ri
Y

DEC
BNE

RO
48

‘TIMER COUNT

(MP
BEQ

#100405.R]
¥

;CHECK CSR
BRANCH IF OK

:CHECK RBUF

LT+ 1

MOS MUST NOT HAYE CLEARED

5715
2716

011036
011040

100001
104007

017701

170264

MOV

aRBUF R

5718
2719

011042
011G6

005077
05077

170256
170246

(LR
(IR

artR
(SR

5731
5792

011052

106400

apL
HLT 1

CHECK FOR DONE
BRANCH IF OK
‘DONE CAME LP!

(SR ERROR

“BRANCH IF OK
“RBUF NOT EMPTY'

SCOPE

753
27264

5725

“TEST <4:

2726

2727

;

NOTE:

TEST

THAT

L L L L

;
:

INITIALIZE
DEVICE ‘CSR'REGIS TER

TsTe4:

JSR

RIT2 = MAINTENANCE

5736

5737
5738

I i GACED

MUST BE LOADED TO INSURE SEEING TRANSMITIER READY (LFAR

57%0
5731
272

273,

TRANSMITTER READY CLEARS WHEN TBUF

PROBABLE FAULTY LOGIC:

2735

DUE TO THE DOUBLE BUFFCRING BY THE UART. TwO CRARACTERS

5738

2729

M7285 (D2-6) E39. Ee3. E49

"*t'*'fi'fi‘.‘.'fi'..‘!’"..'"I.'....."‘...“..‘.“‘.‘....‘..Q“‘Q..Q".'.

011056

004737

014600

PC.a#INITD

;WAIT FOR MOS TO CLEAR
:

'RIT3 = CLEAR MOS

BITE = MASTE® KM'R SCAN ENB

SET:

2Z-C2D:A=F=0
F
. P1T
(ZDJA

2762

2763
2764

2765
2766
2767
2768
2769
2770

2771
2772
2773
2774

2775
2776

2777
2778
2773
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790

2761

2792
2793
279

T ESTS

26-FEB=-79 15:41

pRES

ERRGGSS OF
O
o»mof
noN “No‘og n&

Gour Sy Sar
D d o
D

b
-

b
b

b wd

OO QOO0OCO

oo Qe Ghar Qo S G
=3 b D e ad
d wd cad
d

—d
b
s

b
—d ot

2750
2751
2752
2753%
2754
2755
2756
2757
2758
2759
2760
2761

el amd e

2749

LOGIC

MACY1T

30A(1052)
T1ST44:

26=FER=79

TEST

15:47

TRANSMIT READY

PAGE

59
SE« QOSE

JBITO -~ RECEIVER ENAHLF

jelolelolele] O

2739
2740
2741
2742
2743
27464
2745
2746
2767
2748

DJ11

011162

052777

000001

170236

DMerz77
017701

00000

170224

012777
017701

000002
170176

170210

017701

100375

100001
104001

170226

170212

u13700
105305
001376
01770i
000400
00530C
001371

001346

042701
02270
001401

000200

170156

100405

104001

1%:

2%:

3%:

BIS

MOV

8PL

MOV
Mov
BPL
MOV
MoV
BPL
HLT+1
MOV

#8110,

QTCk

s TRANS CONTROL,

#1,
ggSR.

Q TBUF
R1

JTRAMSMIT A 1
;WAIT FOR XMTR READY

n2,
2SR,
.t

Q@ TBUF
R1

. TRANSMIT A 2
JCHECK FOR XMTR RFADY
;BRANCH [F XMTR READY (LEARED

TIMER,

a(Shi,

?gSR,

DE(B
BNE

§2

BR
DEC
BNE

v
RO
33

MOv

Rif

tmpP
8EQ
HLT+1

LINE

JWAIT FOR XMTR READY

;TRANSMITTER READY FAILED 10 rLEAR

MIT7 .R1
t?QOLOS.R1
+

JR1T = CONTFNTS OF
JSET UP TIMER

(<R

JSHORT WAIT LOOP

;SAVE (SR FOR THE RETORD

JNOP FDR TIMING
;TIMER COUNT
+BRANCH IF MORE TIME

;DONE MAY OR MAY NOT BE
JTEST REST OF THE (SR

;A (SR ERROR

;JR1

= (ONTENTS OF

SET

S50 DONT

(SR

011164
011170
011172

017701

170132

MOV
aMl
HLT+1

aRBUF,
.*4

011174
011200
011202

0227C¢1
001401

100007

(MP
B8EQ
HLT+1

#100001 .1
g YA

JCHECK THE DATA
JBRANCH [F OK

011204
013210
011212

017701

MOV
BM]
HLT+1

aRBUF,
.+4

JCHECK RBUF FOR SECOND CHAR
JBRANCH IF (HAR PRESENT

911214
011220
011222

022701
001401

{MP

#:00002,R1
.vh

SCHECK THE DATA
JBRANCH IF 0K

011224
011239
011232

017701

aRBUF,

:R1 = CNTENTS OF RBUF
sCHECK FOR NO MORE CHARA(TER,

011234
011240
011244
011246

017701
022701
001401
104001

170060
100405

011250

005077
005077
104400

170050
170040

017254

017260

100401
104001

104001
100401
104001

170112

100002

BEQ

104001

100001
104001

HLTl

170072

MOV
BPL

HLT+

MOV
mp
BEQ

alsR,

Ri1

RI1

#100405,R
YA

HLTH]

(LR
CLP
SCOPE

JCHECK RBUF FOR (HAR PRESFNT
;BRANCH [F (CHAR PRESENT
;(HAR PRESENT MISSING

;RT = CONTENTS OF RBUF
;JRECEIVER ERROR
sR1 = CNTENTS OF RBUF

;s CHAR PRESENT MISSING
JR1 = CONTENTS OF RBUF

SRECEIVER ERROR
JBRANCH IF

CHAR PRESENT JLFARED

JBRANCH

;(HAR PRESENT NOT (LEAR!
sR1 = (ONTENTS OF RRUF
;SAVE (SR
;CHECK CSR
[F

(SR ERROR

al(R

a( SRk

JR1 = CONTENIS OF
JCLEAR (R

JCLFAR (SR

(SR

TEST FOR T

DJ1Y

LOGIC TESIS

26=FEB=~79 15:41

MACY11

30A(1052)
15:47
26~FEB=79
PAGE 60
1ST4S:
TEST SILO ALARM LEVFL / RECEIVER ENABLE

SEC 0059

2795
:tt‘ttt't’tt‘li'*fiti!.fittttfi'*t't'tt!tt.ifittttt'.t.

.Itt'.RQtttttttnwttfi'

;TESY 45:;

TEST

PROBABLE

FAULTY

THE

SILO ALARM LEVEL

AT WHICH DONE

WILL

TEST THAT RECEIVER ENABLE ON A O INKIBITS
CHARACTER PRESENT,

M7285

LOGIC:

(D2-7)

SET.

E32, E15; M7279 (D11-3) E15,E23

t‘tttilt'fifit*li*'ttit'tt't't‘tt*'tt**fit!lt.tttttttttttt't.'tttfttttfittt

INITIALIZE
DEVICE''CSR'REGISTER

04737

014600

TST45:

JSR

JWAIT

FOR MOS

PL,#INITD

052777
005737
001005
004737
012737
012777

011322
011330

011332

000001
001350

170030

SET:

014664
000001
000414

001350
167776

11%:

032777
001374

000020

162770

10%:

013702
017701

001356

JBIT2 = MAINTENANCE

;BITS = CLEAR MOS

JBIT8 = MASTZR XMTR SCAN ENS

TO CLEAR

011266
011274
011300
011302
011306
01°314

SET:

8IS
TST
aNE
JSR
MOV
MOV

#3110,

ALMFLG

QaT(R

118
PC,ALMCIK

N ALMFLG
#414,
a(SR

;BiTC = RECEIVER ENABLF
sTRANS CONTROL, LINE ¢
:vgg THE ALARM LEVEL BEEN TESTED?

:NO, GO DO IT
sSET THE FLAG

;BIT2 = MAINTENANCE
:BiT3 = CLEAR MOS
;BIT8 = MASTER TRAN SCAN EAB
n

011062

72=-C2DJA=F=0O
(ZDJAF PN

011336
6?1342
011344
011352
011354
011356
0611362
01136+
011366
011372
011374
011376

/844

285C

100375
012777
005302

001370
013700
105305
001376
017701
105701

167756

000252
001346
167726

167754

817
MIT4L,
alsR
;WAIT FOR MOS TO (LEAR
108
BNE
sOUTPUT THE # OF CHARACTERS NECESSARY FOR THE SILO ALARM
SLEVEL TO ALOW DONE TO SET.
MOV
COUNT R2
sSET CHAR COUNT
1$:
MOV
alSR,
R
SWAIT FOP XMTR READY
8PL
;SEND A~ vigee
8252,
MOV
QTBUF
DEC
BNE
TIMER,
MOV
RC
;SET UF TIMER
2%:
DECB
sSHORT WAIT LOOP
BNE
m?
MOV
a(SR,
sSAVE (SR FOR 1YPING
TSTR

100002

104001

8PL
HLT+?

11400
011402
011404

000402
005300
001366

B8R
DEC
8NE

011406
011412
011414

017701

011416
011422
011426
011430
011432
01143

005277
017701
100403

7100001
104001

105300

001372
104001

3%:
167710

A ¥

MOV

8PL

;CHECK FOR DONE
cBRANCH JF NOT SET
;DONE SET WHEN RCV ENB LR

sRI=CONTENTS OF CSR

s TIMER COUNT
JBRANCH IF MORE TIMER
SRBUF,

HLT+1

167676

167674

5%:

INC

MOV

&M]
DE(R
BNE
HL T+

sCHECK AND SAVE Fl/FO
¢BRANCH IF 0K
s CHARACTER PRESENT IN F1/FQ

sR1=DATA FROM F1/£0

aRBUF,

sSET RECEIVER ENABLE
sCHECK FOR CHARACTER PRESENT
sBRANCH IF 0K
sSHORT TIMER
s CHARACTER PRESENT MISSING

27=CZDJA=F=0
CZDJAF P11

2851
2852
011436
2853
2854 011442
2855
2R56
2857
<858
2859
2860
2861
011444
2862
2863
2864
2865
2866
<867
2868 011450
2869
2870
2871
011456
2872 011462
2873 011466
2874 01147C
2875 011476
2876
011500
2877 011502
2878 311506
011510

011512
011516
011520
011522

DJ1*

LOGIC

TESTS

26=FEB~79 15:41
005077

MACYT1

167662

30A(1052)
©26~FEB=79
15:47
PAGE 61
TST45:
TEST SILO ALARM LEVEl / RECEIVER ENABLE

104400

(LR

;RT

alCR

560 0060

= CONTENTS Of

RBUF

;CLR TRANS CONTROL REG

SCOPE
R

A NN

JTEST 46:

;PROBABLE

R AR AR AR R AR N A

FAULTY

TEST

AR R

ARA RN RN R

THAT HALF

LOGiC:

M7285

DUPLEX
(D2-4)

RN AR A AN KRR ANN R R R AR AR RNN

(BIT1)

E3z,

DISABLES

E17,

E22,

AR AR AN

THE RFCEIVER UARTS.

(D2-2)

ES,

:kttt.tit'ill"*fitt.fiktfi".tttfi'ittfitt*fit.fi.ttttfitt'ntttfititfit.t’fittt

ttt

004737

016570

TST46:

JUSR

PC,

A#INITC

INITIALIZE

JBITY = AALF DUPLEX
JBIT2 - MAINTENANCE
;BI1S = CLEAR MOS

;BIT8 = MASTER TRAN SCAN ENB
;WAIT FOR MOS TO CLEAR
012777

000C01

013752
017701

001356

100375
012777
005302
001370
013700
105305

001376
017701
105701

167646

167€3¢2

000252

167630

2%:

167602

000402
005300
001366

011532
011536
011540

017701

011542
011550

042777
000240

100001
104001

COUNT ,R2
?gSR.
R1

;SET CHAR (OUNT
;WAIT FOR XMTR READY

MOV
DEC
BNE

#4252,
R2
18

;SEND AN """’

DECB
BNE

RS
2%

MoV

8pPL

HLT+1

167564

000002

000240
000240
000240
017701

167536

011570

005077

16753C

011574

104400

ATCR

alSR,
Ri

BR
DEC
BNE

4%
RO
%

4%:

MOV

aRBUF,

BAL

167550

58%:

QTBUF

TIMER,

3%:

HLT+?

011552
011554
071556
011560
011564
011566

100001
104001

MOV
ggx

MOV
rs18

100002
104001

011524
0711526
011530

#3110,

;SET XMTR CONTROL BIT, LINEOD

sOUTPUT THE # OF CHARACTERS NECESSARY FOR THE SILO A_ARM
sLEVEL TO ALOW DONE TO SET.
1%:

001346

;BITO = RECFIVER ENABLE

MOV

. th

cSET UP TIMER

;SHORT WAIT LOOP
;SAVE (SR
. CHECK FOR DONE

cBRANCH IF NOT SET

;OONE SET WHEN HALF DUPLEX

sRY=CONTENTS OF (SR

. TIMER COUNT
sBRANCH If MORE TIMER
R1

JCHECK AND SAVE F1/FQO

cBRANCH IF OK

BI(
NOP
NOP

MIT1,

QISR

sCHARACTER PRESENT IN FI/FO
JR1=DATA FROM FI/FQ
s CLEAR HALF DUPLEX BIT

MOV

sRBUF,

sCHECK FOR CHAR PRESENT

(LR

arcr

NOP
NOP

RPL
HLT+1

(BITY) SET

+BRANCH IF CHAR NO! PRESENT
s CHAR PRESENT ArTER H/D CLEARED

JRY = CONTENTS OF RBUF

+CLR TRANS (ONTRCL REG

SCOPE
;*Qitl*fi'tt't't.‘.*!!"t.'tt‘fi'ti'tt!i‘h.'i\t.‘lt\"tltltltttnt.tQ.-.n‘u

Z7=CIDJA=F=0

CZDJAF P

DJ11

LOGIC

TESTS

26-FEB=-79 15:41

MACY11

2907
2908
2909
2910

2912

2913

ADDR

;
:

ADDR=
DJADR=
R1- BR
R2= BR

2957
2958
2959

2960
2961
2962

RO R1

ADDRESS OF ERROR HLT
(SR _ADDRESS OF DJ11 UNDER TEST
LEVEL FOR DJ11 TO ALLOW INTR
LEVEL WHERE ERROR OCCURED

FACULTY

LOGIC:

M7821

WIRING,

PRGPLR PRICRITY

‘HiP

_'ttttiit.ittt"itit*tfi'.itfittfitttfifiitt*t*itttfitttifitttttt’

tt'ttt’Qfittttt

017214
017226

TST47:

MOV

#INTR2,@RCVVEC

MOV
MOV
DEC
MOV
JSR

#10,PRIOLO
#5,CT
PRIOLO
PRIOLO,NOW
PC,
BRSET

MoV

AGAINZ:

017216

#340,aRCVLVL

;

BI¢
81§
JSR

8, 0, I

177776
177776

012777

600001

011672
011676
011702
011704
011712
011714
011716
011722
011724

013702
017701
100375
012777
005302
001370

001356

1057:7
160375

167432

000025

18:

167414

167376

TO ALOW DONE
MOV
ggz

MOV
DEC
BNE
2%:
7ST8
BPL
NINTR?2: :

011724

611732
011734

023737
002407
000417

017216

017220

011736

011736
011740

017216

017220

BIT2 = MAINTENANCE
BIT3 = CLEAR MOS

BIT6 = RECEIVER INTERUPT ENABLE
BIT8 = MASTER TRANS SCAN ENABLE
WAIT FOR MOS TO CLEAR

BITO = RECEIVER ENABLE

TO SET.

COUNT ,R?
?gSR.
R1

: SET CHAR COUNT
; WAIT FOR TRAN RDY

825,
R2
1%
3(SR
23

JSEND #25

aTBUF

;WAIT FOR DONE

IF YOU ARE HERE NQ INTR OCCURED

(MP

NOW,MASK

8BLT
BR
INTRZ2:

022626
023737

(0,40,100,140,200,240.300.340)

(WOW)= OCTAL #(0 TO 340) AS
MASK, BUT
C(URRENTLY TESTING

MoV
MIT0,
aTCR
SET TRAN (ONTROL BIT, LINE O
;OUTPUT THE # OF (HARACTERS NECESSARY FOR THE SILO ALARM

;LEVEL

1674616

LOAD BR7+1 INTC BR TEST LEVEL
LOADS COUNTER FOR 5 RCOL -RR
START TEST BR7, THEN BR6,BRS...ETC.
LOAD PRE-ROL-ED DECIMAL PRIO
GO TO SUBROUTINE 10 ::::::
LOAD BR INTR LEVEL OF DJ11
(LEVEL)= DECIMAL #(0 10 7)
(MASK)= OCTAL #(0 10 340:

#340,a0PS
CLEAR PS LEVEL
NOW
, 3#PS
SEI PS TO (CURRENT TEST LEVEL
PC,
a#INITR ; SET:

011664

VECTOR

000340
017216
014560

INTERRUPT

042737
053737
004727

88, 8y

011644
011652
011660

SET UP KCVR

; AT LEVEL 7

167524
167520

LRI

011735
000340
00001C
00005
017214
017214
014464

TR TR}

012777
012777
012737
012737
005337
C13737
004737

YA YR T

011576
011604
011612
011620
011626
011632
011540

2929
2930
2931
2922
2933
2934
2935
2935
2937
2938
2936
2940
2941
2942
2943
29464
2965
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956

sPROBABLE

LJADR

Ve Oy

2922
2923
2924
2925
2926
2927
2928

SEQ@ 0061

JTEST 47:
TES:
RECEIVER INTERRUPT LEVEL
:
ERROR PRINT QUT IS AS FOLLOWS:

2911

2914
2715
2916
27
2918
2919
29¢0
2921

30A(1052)
Q2€-FEB=79
15:47
PAGE 62
TST47:
TEST RECEIVER INTERRUPT LEVEL

(MP

ERROR?
THRUZ2

;

THIS AN ERRQR??2??

; BRANCH IF YES
s 1f NO,GO ON NEXT BR

YOU ARE HERE AN [NTR GCCURED

(SF)+,(SP)+

; CLEAN UP THE STA(K
s

IS THIS AN ERRQR?2222

1{~CZDJA=F-0

(ZDJAF P11

DJ11

LOGIC

26=FEB~79

TESTS

15:41

MACY11

30A(10 52)
TST47:

26-FEB=79

TEST

RECEIVER

15:47

5
PAGF 63

INTERRUPT

LEVEL

SEQ 0062

2963
Sgg)‘g

011746
011750

2966

011752

2968
2969
gg;?

011752
011754

010146
010246

2972

011756

013701

017220

MOv MASK,

: R1=BR LEVEL ALLOWED

2974

01762

013702

C17216

MOV NOw,

; R2=BR LEVEL OF ERROR

2967

2973
gggz

002001
000411

ERRORZ:

BGE
BR

ERROR?
THRUZ

;

YOU ARE HERE

HLT+2

2979
2980

MOV

._?,gg;

011770
M1772

012602

012601

Mov

gggz 011774
2985

2986
2987

2988

2989
2990
2991

283%
[4

2996
2995
2996
223"?;

2999
3000
%}

3003
3004
3005
3006

011774

012000
012002

012004
012010
012012
(12014
012020
012024
012030

012032

017701

100407
104001

022701
001401
104007

167322

R1,-(6)
R2.=(6)

sPUSH R1 ON STACK
JPUSH R? ON STA(K

; (BR BiTS OF PSW)
;

(BR BITS OF PSW)

; REPORT ERROR+ REG. 0,1
(6)+,R2

;POP STACK INTO R2

(6)+ R

;POP STA(K

INTC R?

005077
005077
005737
001273

167304
167274
017216

013777

001332

012040
012046

012777
0-2737

012054

104400

000004
000340

MOy

aRRUF,

{MP
BEQ
HLT+1

#100025 .R1
.+

(LR
(LR
TSt
BNE

a7(R
a(SR
NOW
AGAIN2

s TEST IF LAST BR WAS (MECKED
: m)ro (T)ESY NEXT INTR L OWER

RCVLVL ,aRCVVEC

: RELOAD-AND (LEAN UP

8M]
HLT+1

100025

167270

MOV

167270
177776

MOV
BIC

READ

THE (HARA(CTER

. BRAN(CH [F (HAR PRESENT
. CHAR PRESENT MISSING

; R1= CONTENTS OF RBUF

. (HECK THE DATA
. BRANCH [F 0K
. RECEIVED DATA ERROR

. Ri= CONTENTS OF RBUF

#10T,
GxMILVL
#3340, aNPS

SCOPE

3007

3009
3010
30

I I

JTEST 50:
TEST F1/F0 OVERRUN
;
THE FI/FO BUFFER SHOULD HOLD €¢ (HARACTERS.
;PROBABLE FAULTY LOGIC: M7285 (D1-7) E32, E17, E22 (D2-2) ES, F°

3012
3013

’-'Ql.Qttttt'!tttttttt*tllit!.t.ttltttnQtltt!tittttt"t‘t‘ttt.tttt'--'o.-

3014
338}2

3017

THEN SOMETHING IS WRONG

THRU? :

3008

3018

ERROR!...!'. ..

MOV
MOV

;23% 011766 104002

. BRANCH [F ERROR
. IF NO,SEE IF ALL BR LEVELS TESTED

;

012056

004737

014600

INITIAL]ZE

;

DEVICE''CSR'REGISTER

TST50:

JSR

PC,

SET

a#INITD .‘Bli:.’ = MAINTENANCE
(BITY = (LEAR MOY

72-CZD'A<F-0
CZDLAF P

DJ11

LOGIC

T ESIS

26~FEB-79 15:41

MA(CYTT

30A(18 52)
1ST5S

26=FEB=79

TEST

15.47

FI/FO OVERRUN

3019

3a RRO&R8 38
»O

d
d
d el
—t
d

3033
3034
3035
3036

SET:

;JBITO = RECEIVER ENABRLE

3032

SEQ 0063

;BIT8 = MASTFR XMTR SCAN ENS

;WAIT FOR MOS TO CLEAR

AVLS IR NN,V 1,NT,NT,97.N

3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031

5
PAGE 64

012777
012700
017701
100375

000377
032701
001401

1%:

MoV
MOv
MOV

177777 ,@TCR
#100,
RO
al(SR,
RI

;SET UP COUNTER - 64. CHAR FI/FU BUFF
;SAVE AND WAIT FOR TRANS READY

SWAS

o TBUF

sTRANSMIT LINE # ON | INE

JBRANCH [F

8PL

167220

020000

8IT

104001

005300
001365

DEC
BNE

100375
105305

012150
012152

167220

167234

BEQ
HLT+1

013700
017701

012144
012146

177777

003100

001376
C17701
100401
104001

001346

167166

3%:

MOV

a(SR,

HLT+]

005300

DEC

001370

;SEY UP TIMER

;WAIT FOR XMTR READY

:SHORT WAIT LOOP

£1

.*4

;SAVE CSR FOR THE RECORD

sBRANCH [F TRANS READY
s TRANS READY MISTERIOUSLY DISAPPEARED

sR1=CONTENTS OF (SR
TIME 3 CHARACTER LENGTHS

BNE

JCHECK FI/FO OVERRUN

;FI/F0 OYERRUN TOO SOON

TIMER,

aC’R,
Vg
RS

8M]

AL LINES

JR1=CONTENTS OF (SR
sCOUNT DOWN

MOV
8PL
DE(B

3NE

167154

#RIT13, RI1

RO
18

MOV

2%:

;TRANS CONTROL BIT,

BRANCH IF MORE TiME

JFI/7F0 SHOULD NOW BE FULL
012154
012156
032160

105701
100401

012162
072166
012170

022701
001401

1518

BM!

104001

HLT+)

100605

0, o
BEQ

104001

HLT
1

;CHECK THAT DONE IS5 SET
JBRANCH JF Ok
;DONE DIDN'T COME P!

. +4

#100605
,R1
. *4

;R1

= CONTENTS OF <SR

;CHECK THAT FI/FO NOY QVERRUN
;BRANCH IF Ok

;F1/7F0 QVERRUN SET
;OR SOME OTHER (SR ERROR

JR1=CONTENTS OF (SR
SRR

AR RN

STEST SOA:

A RN E RN AR AN

TEST

AR AN

R AN R

N R AR R R IR E

R RN R I N AR

R AR NP R

R R AT ARSI N S

THAT F1/FO OVERRUN COMES UP WHEN 65TH CHARACTER

IS RECEIVED WITHOUT READING FI/FO

:tt*'tttt'iiQtl.'i*lilt.iitti.'tfi‘Qllt*iit.tittt"lt..‘i!iil.tt.'titt"

12172
012176
012202
012204
012206
012212
012216
012220
012222
12224

000377
013700
105305

001376
017701
032701
001003
005300
001367
104001

167130

001346
167106

020000

T50A:

11¢:

SwWAB

@ 1BUF

DECR
BNE
MOV
BIT
BNE
DE(
BNE

RS
118

MOV

HLT+1

TIMER,

a(SR,R1
#MITI3,RY

12%
RO
118

JSEND 65TH CHARA(TER

sSET UP TIMER

:SHORT WAIT LOOP
;SAVE (SR
JCHECK FI/FQ OVERRUN
;BRANCH WHEN SET

JTIMER

JBRANCH ]F MORE TIME

JFI/F0C OVERRUN DIDN'T "OMEUF

22=-CZDJA=F=Q
CZDJAF P11

3075
3076
3C27
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088

3089

DJ11

LOGIC

TESTS

2€~FEB=79 15:41

022701
001401

MA(CYTI

120605

SOA (1052)
26~FEB=/9
15:47
TSTSO:
TEST FI/FO OVERRUN
12%:

104001

CMP
BEC

HLT+1

#120605,R1
.+

PAGE 65

SEC 2064
;R1 = CONTENTS OF
sCHECK TOTAL (SR
JBRANCH IF OK

(SR

sSOMETHING IN CSR FOULED UP

JR1=CONTENTS Of (SR

ltittlkttttttt'ttti'*tt"ittttkt.ttttttttfittt*'fi*tttt'ttttt

TEST 508:

NOTE:

ttttttttttt'

TEST THAT READING THE RECEIVER BUFFER CAUSES FI/FO
OVERRUN TO CLEAR.
BECAUSE OF TIMING OF THE FI/FQ, FI/FO OVERRUN CAN COME
BACK UP AFTER READING ONE CHARACTER, SO A SECOND MUST
BE READ TO INSURE THAT FI/FO OVERRUN IS CLEAR.

li*fitt*tQtittttttttit.Q't'ttttfitttttfitttltttttt.fittttttttttt*tttttti

ttt

012236
012242
012246
012250

012700
017701

012¢52
012256

032701
00160

012260

100401
104001

000062
167054

1508:

21%:

070000

MOV

42,

BM]
HLT+1

MOV

BIT
BEQ
HLT+1

104001

IRBUF,

#070000,R1
.t

;SET UP COUNTER - 2 CHARACTERS

sCHECK AND SAVE FIRST CHAR IN FI/FO
;BRANCH [F CHAR PRESENT
: CHARACTER PRESENT GONE!

;CHECK RECEIVER ERRORS
¢BRANCH IF 0K
SRECEIVER
ERROR

;R1=CONTENTS OF RBUF
;BIT14=UART OVERRUN

;BIT13=FRAMMING ERROR
:BIT12=PARITY ERROR
012262
012264
012266
012272
012274
012276

010102
000302
042702
120102

177760

81C
(MPB

001401

8EQ
HLT+1

104001

3110
3111
3112
3113
3114

012300
012302
012304
012306
012310

005300
001403
105305
001376
000754

3116
3117
3118
3119
3120
3121
3122
3123

012312
012316
012322
012324

017701
022701
001401

3115

MOV
SWAB

22%:
23%:

167002
100605

24%:

104001

3130

#177760,R2
R1,
R2
.+

235
218

MOV
cMP
8EQ

a(SR,
Rl
#100605 ,R1
.t

RO
243

;PUT LINE # IN R2

;CHECK DATA (=LINE#X)
:BRANCH JF 0K
WRONG DATA RECEIVED
JRI=FI/FO DATA
; (DATA SHOULD=L INE#)

:COUNT CHARACTERS
:BRANCH WHEN DONE
sSHORT WAIT LOOP - GIVE FI/FO TIME
;GO READ ANOTHER

:SAVE (SR
sCHECK THAT FI/FO OVERRUN CLEARED
sBRANCH IF 0K
sF1/F0 OVERRUN DIDN'T (LR

;OR SOMEOTHER CSR PROBLEM
cR1=CONTENTS OF (SR

tt'tttt*tttIltt*tfilt'ttttt'i!llQ*i.'it'llttiltitl!tti‘t‘llt"iti'tlttt

TEST 50C:

3127

3128
3129

DEC
BEQ
DECB
BNE
BR

HLT+1

3124
3125
3126

R1,
R2

TEST THAT FI/FO OVERRUN INTERRUPT
DOESN'T GCLUR WHEN THE PROCESSOR IS AT LEVEL S

‘tt.tttttltfi'*ttttttttt'fit'tti\lifiiiltfillfi..Q"il'ilfitl‘l.t"tt‘tt'\t‘t

012326
012334

042737
052737

000340
000240

1777276

177776

150C-

BIC

BIS

4360,

#4240,

aNPS

ONPS

s CLEAR PSW

;SET PROCESSOR TO LEVEL

77~=C2DJA=F=0
CZDJUAF P11

—_

NLJChoarvgknb

—d emd

WNWWW N CAHAN N N

o ed ed

Lol
ad 5 B
D NWNNN
[V, F o J VY]

b rd

N NN

3133

3146
3147
3148
3149
2150
3151
3152
3153
3154
3155
3156
315/
3158
3159
3160
3161
3162
3163
2164
2165
3166
2167
3168
3169
3170
3171
3172

3173
3174
3175
3176
3177
3178
3179
3180

3181
3182
3183
3184
3185
3186

012342
012350

012356
012364
012370
012374
012376
012400

012404

DJ11

LOGIC

TESTS

26~FEB-79 15:41
012777
012777
052777
017701
022701
001401

012432
000340
010000
166730
110605

000377
005777

166722

166710

000377
017701
032701
001773
000410

012432
012436
012440
012444
012450

017701
104001
005777
012716
000002

01245¢
012456
012462
012464

012700
017701

000092

012466
012472
012474

032701
001401

070000

012476
012500
012502
012506
012510
012512

016102
000302
042702

012514
012516

005300
003403
105305
001376
000754

012522
012524
012526

012532
012536
012540

30A(1852)
26-FEB-79
15:47
TEST FI/FO OVERRUN
TSTS :

166760
166754
166734

MOV
MOV

BIS

"0V

(MP
BEQ
HLT+1

104001

012410
012412
012416
012422
012426
012430

012520

MACY11

100375

100401
104007

156710

166676
020009

166662

30%:
31%:

32%:

166656

33%:
34%:

001401
104007

017701
022701
0014601
104001

35%:

36%-

#32%,
@RCVVEC
#340,
BRCVLVL
#B1T12, aCSR
aCSR,
RI1
#110605,R1
YA

;CSR _ERROR

SEND LINE #

#1113, R1
31%
33%

aRBUF

s CHECK (SR

;WAIT FOR TRANSMITTER READY

30%

a(SR,

sSET STATUS ENABLE
;SAVE (SR

;R1=CONTENTS OF (SR

QTBUF
a(SR
A IBUF
aCSR,

;SET UP RECEIVER INTERRUPT VE(

;WAIT FOR F1/FO OVERRUN

;SKIP ISR

:SAVE (SR
s INTERRUPT OCCURRED AT LEVEL S
:'POP"" ONE CHARACTER
SJRESET RETURN ADDRESS
sRETURN

"2,

SRBUF,

;SET UP COUNTER - 2 CHARACTERS
;READ ONE CHARACTER
sBRANCH IF CHARACTER PRESENT

BIT
BEQ
HLT+1

#70000,

s CHECK ERRORS

R1,

:DUP DATA

R1,

;CLR ALL BUT LINE #
:CHECK DATA

DEC
BLE
DECB

BNE

MOV
{Mp
8EQ
HLT+1

. +4

(SP)

JSEND LINE #
;SAVE CSR

MOV
MOV
8M]
HLT+1

166566
110605

SeQ 0065

2348,

MOV
SWAB
BIC
CMPB
BEQ
HLT+1

177769

5
PAGE 66

MOV
RT!

104001

120102

MoV
HLT+]
TST

012456

166640

SWAB
TST
BPL
SWAB
MOV
BIT
BEQ
BR

R2
#177760.R2

s COUNT CHARACTERS

36%

;BRANCH IF DONE
;SHORT WAIT LOOP

35%
348

a3(SR,

.GO READ ANOTHER CHARA(CTER

#110605,]1

;SAVE (SR
;CHECK THAT FI/FO OVERRUN CLEARED
sBRANCH IF OK
;FI/FO OVERRUN DIDN'T (LR
;OR SUMEOTHER (SR PROBLEM

JR1=CONTENTS OF (SR
SRKAA KRN A AN CRRARANERN NN

“TEST 50D:

R RNRRR

AR R R AR RR R U RN AN RN RN ARR AR

TEST THAT FI/FO OVERRUN INTERRUPT

OCCURS WHEN PROCESSOR IS AT LEVEL 4

RN AR RS TR AT IR NA RN S

27-C2DJA=F=0
CZDJAF PN

DJ11

LOGIC

TESTS

26~FEB-79 15:41

MACYTT

PAGE €7

SEQ 0066

:I'i.tti!tttt"iitttfil‘t‘l"!"tt'ttttfit*tfilt'ttttttttttttttt'tttt.'.ttt

042737

ERRI028B

U Ay

3187

30A(1052)
15:47
26-FEB-79
TSTS0:
TEST FI/FO OVERRUN

052737
012777
017701
022701
001401

000340
000200
012642
166530
110605

1727776
177776
166544

T150D:

MOV

CMP
BEQ

104001

HLT+1

166522
166510

40%:

166510
166476

026000

41%:

012630

000377
017701
032701
001773
104001

012632
0126490

052777
000470

000010

012642
012646
012652
012654

017701
022701
001401

166452
130605

012656
012662
012666
012670

012700
01770

000101

012672
012676
012700

032701
001401
104001

070000

12702
012704
012706
012712
012714
012716

010102

012720
012724
012726
012730
012734
012736

017701
005300
001420
022700
001752
020037

012742
012744
012750
012752

202405
022701
001401

012754

000742

0o~

000377
005777

3199

100375

166460

000302
042702
120102

166434

177760

001401
104001

104001

166374

000100
001356
110605

SWAB
TST
BPL
SWAB
Mov

BIT
BEQ
HLT+?

42%:

43%:

#4340,
#200.

Q#PS
a#Ps
aRCVVEC
aCSR,
R1
#110605,R1
R

ATBUF
aCSR
40%
aTBUF
alSR,
%31T13,
418

;CLEAR PROCESSOR LEVEL

sSET PROCESSOR TO LEVEL 4

sSET UP RECEIVER INTERRUPT VEC

;SAVE

(SR

s CHECK (SR

JSEND LINE 4

JWAIT FOR

R1
R1

TRANSMITTER READY

;SEND LINE #
;SAVE (SR

;WAIT FOR FI/FO OVERRUN

SINTERUPT DIDN'T OCCURE WHEN OVERRUN SET

8IS

#8173,
45%

MOV
(mMpP
BEGQ
HLT+1

a(SR,
Rl
#130605,R1
R

MOV
MOV
BM]
HLT+1

#10%,
ARBUF,
.44

RC
R1

B8IT
8EQ
HLT+1

#70000,
.+

MOV
SWAB
BIC
CMPB
BEQ
HLT+1

R1,
R2
R2
#177760.R2
R1,
R2

MOV
DEC
BEOQ
MP
BEQ
mMp

R1
a(SR,
RO
463
#10C¢,
RO
43%
RO, COUNT

BLT
CMP
BEQ

443
#110605,R1

438

104001

100401
104001

BIC
BIS
MOV

HLT+1

aCSR

JR1 = CONTENTS OF (SR
;CLEAR MOS
;SKIP TO THE END
sSAVE (SR
s CHECK CSR

JBRANCH IF OK
: CSR ERROR

;R1

= CONTENTS OF

(SR

;SET UP COUNTER - 65 (HARACTERS
SREAD ONE CHARACTER
sBRANCH IF CHARACTER PRESENT

. CHECK ERRCRS

;DUP DATA

sCLR ALL BUT LiNE #
;CHETK DATA

:SAVE (SR

sGET QUT IF ALL CHAR'S READ
;CHECK FOR FIRST (HAR READ
JSKIP (SR CHECK ON FIRST CHAR

JIF CHAR®S LEFT IN SILO IS LESS THEN

;ALARM LEVEL, DONE WILL GO AwWAY,

JCHECK (SR

LI="IDJA<F=0
(ZDJAF
. P11

3243
3244
3245
3246
3247
3248
3249
3250
3251
325¢
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264

DJI11

LOUGIC

"ESTS
26~FEB=-/79 15:41

022701

MACY11

110405

30A(1052)
26-FEB=79
15:47
1ST50:
TELT FI/FO OVERRUN

448

104001

CMP
BEQ
HLT+1

#110405,R1
. +4

000735

43%

MOV

@RBUF,

001601

017701

100001

646%:

166326

BPL
HLT+1

104001

013777
012777
012716
000002
005077
005077
042737
013040

001332
000004
C13022
166276
166266
000340

CLR
CLR
BIC

1772776

104400

013050
013056
013060
013062
013070
013074
013076
013104
013110
013112
013120
013124
013126

013130
013134
013136
013140
013142
013146
013152
013156
013160

032777
001374
005001
012777
017702
100375

012777
017702
10G375
012777
013700
105305
001376
017702
000400

005300
001371
005277
017702
032702
001001

105305

sP)

alCR
(SR
#3460,

aaPS

JREAD A CHARACTER

;BRANCH IF NO CHAR.
;CHAR, PRFSENT.

PRES

JRESET RETURN ADDRESS ON STA(K

JRESTORE PSW

;LOWER PROCESSOR STATUS

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

;PROBABLE

FAULTY LOGIC:

M7285

ARl

000414

166250

000020

166242

000001

166234

166224

000001

166210

000002
001346

166222

ISTS51:

10%:

LOPST:
2%:

166206

3%:

166164

166152
166146

(D2-2)

E3,

E1;

M7279;

M7280

BIT

aM]74,

aCSR

JWAIT FOR MOS TO CLEAR

”l,

alCR

JSET UP LINE COUNTER
JTRANS CONTROL, LINE O
JWAIT FOR TRANS READY

STBUF

JSEND M

BNE
(LR

MoV

10%
R1

ggv

ggSR.

JWAIT FOR TRANS READY

MOV
MOV

",
TIMER,

aTBUF
RO

sSEND #2
JSET
UP TIMER

+SAVE (SR FOR THE RECORD
-NOP FOR TIMING
;TIMER COUNT

DE(CB

MOV
BR

aCSR,
.+

BNE

HLT+?2

MOV
DE(B

RO
3s
a(SR
aCSR,

#BIT0,
. +h

TIMER,RO
RS

:BIT3 = CLEAR MOS
;BIT8 = TRANS SCAN ENABLF

al(SR,
LOPS]

MOV

;BIT2 = MAINTENANCE

MOV
BPL

BIT

#6164,

BNE

001346

Al R

MOV

INC
MOV

000001

NANA I OR AR P AR P E RN TN

TEST THAi UART OVERRUN IS DETECTED ON ALL LINES

DEC
BNE

1064002

013700

;CHECK CSR
;BRANCH [F OK
;DONE DIDN'T GO AWAY

AR R TR RN A AR R AR AR R AR P AN

STEST §1:

3266
32¢7
012777

SEQ 0067

SCOPE

3265

013042

@RCVVEC
QRCVLVL

#4458,

RT]

45%:

RI1

RCVLVL,
#I10T,

MOV

6
PAGE (8

;OR OTHER CSR ERROR

MOV
MOV

+SHORT TIME LOOP

sSET RECEIVER ENABLE
¢SAVE CSR

sCHECK RECEIVER ENARLE

<BRANCH IF Ok

sRECEIVER ENABLE FAILED TO SET
JRT = LINE #
JR2 = CONTENTS OF (SR
JSET UP TIMER
JWAIT SHORT TIME LOOP

22=-CZDJA=F=0
C(ZDJAF
.P

3299
3300

[J11

LOGIC

TESTS

26-FEB-79 15:41
001376
017702
100403

MACY11

D
6
30A (1052)
26-FEB=79
15:47
PAGE 69
TSTS1:
TEST RECEIVER UART QVERRUN ON ALL LINES
BNE

166124

MOV

005300
001371
104002

032702
001001

122702
001401
104002

013226
013230
013232
013236
013240
013242

010203
000303
042703
(20103
001401

013244

013250
013252

000002

017702
100002

166052

7%:

104002

013254

000773

013256
013262
013266
013272
013274

005377
017702
022702
001401

5%
RO
(%

BIT
BNE
HLT+2

#RIT14,
R YA

CMPB
8FQ
HLT+2

"2,
.4

MOV

R2.

R1,
.4

(MP
BEC
HLT+2

104002

MOV

B8PL

HLT+2

B8R
166036
166032
100404

8%:

013276
013300
013304

005201
006377
103271

166020

013306

005077

166006

013312

104400

DE(

MOV

cMp
8EQ
HLT+2

104002

JCHECK FOR CHAR PRES

BM]
DEC
BNE
HLT+2

SWAR
BIC

177700

INC

;NO CHARACTER PRESENT
R2

R
¥177700,R3

aRBUF,

R¢Z

a(SR

a(SR,

CLR

aCSR

;CHECK FOR UART OVERRRUN
;BRANCH IF OK
JUART OVERRUN M]SSING

JRT = LINE #
;R2 = CONTENTS OF RRUF

;CHECK THE DATA
JBRANCH IF 0K
;:DATA ERROR - 3RD (HAR OVERRUNS 2ND
JR1T = LINE ¥
;R2 = CONTENTS OF RBUF
:DUP DATA

JMASK ALL BIT LINE #, ERROR BITS

;CHECK LINE #, ERRORS
;BRANCH IF 0K
JLINE # OR OTHER RBUF ERROR

JRY = LINE #
;R2 = CONTENTS OF RBUF
;CHECK FOR MORE DATA

+BRAN(CH IF Ok

;R2 = CONTENTS OF RBUF

#100404 ,R2
i T

alCR

JR1 = LINE #
JR2 = CONTENTS OF RBUF

SEXTRA DATA IN Fi/FO!
sR1 = LINE #

ASL

8C(C

;0K
:TIMER COUNT

LOPS1

sCLEAR RECEIVER ENABLE

;SAVE (SR

JCHECK (SR
sBRANCH IF 0K
< CSR ERROR

;R1 = LINE NUMBER
;R2 = CONTENTS OF (SR

sCOUNT LINES

sGO TO NEXT LINE

;BRANCH BACK [F MORE LINES

SCOPE
;*ttt*"fi*ttt'ltttttltfit'i'tittttlfill.l'tQ&tl‘it"tlttl“t!.tl\t'ttt.fi'!

JTEST 52:
TEST BITS OF BCSR_FOR READ/WRITE CAPABILITY
;PROBABLE FAJLTY LOGIC:
M7285 (D2-2) ES5, E1, (D2-3) El6, E2, E'9, £35S

—

012777
012777

~NO

013314
013322

013216
013222
013224

=Q
NO
~nN)
NO

d b

N NN AN
NN NN N

N) = adoed ed b e

AN NN NN
N NN NN

3350
3351
3352
3353
3354

5%:

104002

3310

3321
3322
3323
3324
3325
3326
3327
3328
2329
3330
3331
3332
3333
3334
3335
336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349

040000

aRBUF ,R2

165776
165774

TSTS2:

AR AR

MOV

Mov

R R RN AN NN AR R AR AR R AR RN AR AR R R RN R R R R RPN R AN CANR RN RRDIN O ORI URS

#002010,aCSR

#177777,88CSR

:SET CSR

;SET ALL BITS OF B(SR

SEQ 0068

1Z=CIDJA=F=0
CZDJAF P11

3355

3356

013330

DJ11 LOGIC TEST S
26=FEB~79 15:41

017701

3357
%%gg

013340
013342

022701

177777

3360
3261
3362
%33243

013344
013350
013354
013356

005077
Q177201
001401
104007

165754
165750

%3322

013360

104400

3392
3393
3394
3395
339
3397
3398

3399

AR AN RN

013362

013366
013374
013400
013402
013404
013470
013412
013414
(13416

004737

014350

(12777
013700
105305
001376
017701
100403
005200
001371
104001

000001
001346

013420
013424
013426

032701
001001
104001

020050

013430
013436
013440

133737
001404
032701

001366

013444

001005

TST53:

165730
1%:

165712

2%:

001300

010000

013446

3403
3406
3605

013450
013456
013456

032701
001401
104001

010000

3408
3409
3410

013460
0134666
015466

032701
001401
104001

(040000

3406
3407

JCHECK THAT ALL THE BITS ARE SET

aB(SR
aB(SR,
.*4

JCLEAR BCSR
;CHECK THAT IT CLEARED AND SAVF
JBRANCH IF (LR
;JBIT(S) OF BCSR FAILED TO CLEAR

JBRANCH [F 0K
JBIT(S) OF BCSR FAILED TO SET

AN R AR RN R RN R AN R AN

IR R AN I A RN R R N R NI I AN I AN A RAN RO RS S man s

.
ALSO CHECKS PARITY ERROR(RBUF BIT12)
;
IF ODD PARITY IS SELECTED
PROBABLE FAULTY LOGIC:
M7285 (D2-2) ES., E1,

3400
33285

;CHECK AND SAVE B(CSR

41777?7 R1

JTEST 53:
TEST THAT LINEO CAN TRANSMIT AND RECEIVE A BREAK
:
ALSO CHECKS FRAMING ERROR(RBUF BIT13)

3373

%gg?

BEQ
HLT#+1

SEQ 0069

SCOPE

3270
3371
3272

3381
3382
3383
3384
3385
3386
3387
3388
3389

2B(SR

CLR
MOV
BEQ
HLT+1

3368
336%

3379
3380

MOV

(MP

3247

3374
3375
3376
3377
3378

E
6
30A(1052)
26=FEB=79
15:47 PAGE 70
TSTS2:
TEST READ/WRITE BITS OF BCSK

165770

01333

001401
104007

MA(YT

JSR

4%:

N R

(D2-3) EV6, E2. E*9, E3S

T T I

SH¥INITA INITIALIZE
;BIT2 = MAINTENANCE
;BIT3 = (LEAR MOS
:BIT10= R/W BCSR

",
TIMER,
RS
1%
aRBUF,
2%
RO
18

8IT
BNE
HLT+1

#020000,R1
. ¥

BIIB
BEOQ
BIT

DJPAR,
PARITY
33
#010000,R1

HLT+1

3%:

PC,

MOV
MOV
DECB
BNE
MOV
BM]
INC
BNE
HLT+1

BNE

104007

aB(SR
RC
R

sWAIT FOR MOS TO CLEAR
;BIT0 = RECEIVER ENABLE
;SEND BREAKS, LINE O
JSET UP TIMER
;SHORT WAIT LOOP

JSAVE (HAR PRES
<BRANCH WHEN FOUND
JWAIT A WHILE

;CHAR PRES NEVER CAME uP

sR1=CONTENTIS OF RBUF

sCHECK FOR FRAMING ERROR
<BRANCH IF 0K
;FRAMING ERROR NOT UP
JR1=CONTENTS OF RBUF
CHECK ODD PARITY FLAG
-BRANCH IF NOT
sCHECK PARITY ERROR

;ODD PARITY SHOULD CAUSE PARITY LR

<R1=CONTENTS OF RBUF

817
BEQ
HLT+1

#010000,R1
.46

BIT
BEG
HLT+1

#040000,R?
.t

;CHECK PARITY ERROR
JBRANCH [F Ox
JEVEN PARITY OR NO PARITY

+SHOULDN'T CAUSE PARITY ERROR
;JRI=CONTENTS OF RBUF
s CHECK UART QVERRUN
JBRANCH IF Ok
JUART QVERRUN SET.!

ZI=CIDJA=F=0
., P11
CZDJAF

34611

R RRRRRRERER

b
s 2 a0
Ry NI
N —=O VOO
N

3612
3413

3425

DJ1!

LOGIC

TESIS

26=FEB=79 15:41
032701
001401

MACYI1

007400

BIT

105201

TSTR

001401
10400

013514

100001
104001

005077

013516
013522
013524

007376

13526

164400

105305

165610

165602

s CHECK DATA

JBRANCH IF 0K

:WRONG DATA RECEIVED
JR1=CONTENTS OF RBUF

MOV
BPL

aRBUF,
. t4

(LR

aB{SR

HLT+1

DE(B
BNE

RBUF

/BRANCH [F OK
JWRONG LINEX IN F1/FO
JR1=CONTENTS OF RBUF

BEQ
HLT+?

6@ 0070

JCHECK LINE #

LT+

71
;RI=CONTENTS OF

#007400,R1

BEQ

104001

017701

15:47
30A((1052)
PAGE
26=FEB-79
TST53:
TEST BREAKS ON LINE 0

JREAD Fl/FC AGAIN

JBRANCH IF 0K
JEXTRA CHAR N FI/F9Q

;R1 = CONTENTS OF RBUF

;CLEAR BREAK CONTROL REG

RS
5%

s SHORT WAIT LOOP-REGISTER A MARK

SCOPE
LA

AL AR

STEST 56:

.
;

Al s

TEST

YT I

T TMTM

THAT EACH LINE CAN TRANSMIT AND RECEJYE A BREAK

ALSO CHECKS FRAMING ERRORIRBUF BIT13)
ALSO CHECKS PARITY ERROR(RBUF BIT12)
IF ODD PARITY IS SELECTED
:PROBABLE FAULTY LOGIC:
M7285 (D2-2) ES, E1, (D2-3) ¢16. E2. E19
'tfil.t"'l."'t’.tl..llQt‘Qti.Qtt.’.'fi.t..'..'.I't'.t..t'.".

E3S

.'.'lQ.'t'

0135%¢C

004737

014550

TSTS4:

JUSR

PC,

AN INITA JINJTIALIZE

JBIT2 = MAINTENANCE
:BIT3 = CLEAR MOS
:BIT10= R/W B(SR
JWAIT FOR MOS

013534
013536
013542
013546
013552
013554

013556
013562
013564

013564
13570

005001
012704
013700
050477
105305

001376
017702

100403

2000C?
0013546

165552

LOPS54:
$:

165540

005200
001371
104002

LR
MOV

MOV
BIS
DECB
BNE
MOV
gM]
INC
BNE
HLT+2

RI
,

TIMER,
R4,
RS
1%
GRBUF,
7
RO
1S

RO
aB(SR
R2

TO CLEAR

;BITC = RECEIVER ENABLE
JSET UP LINE COUNTER

2 SET UP LINE MARKER
JSET UP TIMER
<SET BREAK (ONTROL BiT, LINE & IN RY

JSHCORT WAIT LOOP

¢READ RBUF FOR (HAR PRES

+BRANCH WHEN FOUND

SWAIT A WHILE

;CHAR PRES NCVER CAME uP
= LINE #

‘R2 = CONTENTS OF RBUF
013572
013576
013600

032702
001007
104002

020000

25:

BIT
BNE

HLT+Z

#022000,R2
L4

sCHECK FOR FRAMING ERRGR
¢BRANCH [F 0K

+FRAMING ERROR NOT UP

sR1

= LINE #

iR2= CONTENTS OF RBUF
C'3602

010103

MoV

R1,

JGET LINE #

12=CIDJA=F=0
{ZDJAF P1°

3667
34¢8
3460
370
5471
3672
3473

374

3675
34,76
3477
3478
3479
3L80
3481

013604
013606
013610

013612
013620

013622
213626
013630

DJ11

LOGIC

T ESTS

26~FEB-79 15:4 1
006203
006203
006303
133763

001404
032702
001005

001366

MACY"1

G
6
30A(1052)
26~FEB=79
15:47 PAGE 72
TSTS4:
TEST BREAKS ON ALL LINES
ASR
ASR
ASL
BITR
BEQ
BIT
BNE
hLT+2

001300

010600

104002

SFG 0071

:/4

R3
DJPAR,PARITY(3)
3%

;SHIFT BACK FOR EVEN ADDR OF
:CHECK ODD PARITY FLAG
*BRANCH IF NOT

zg1oooo,nz

TO GET RID OF BITS 1

013¢49

013642
013646
013650
013652
013654
01365¢
013662
013664
013666

03c702

0014201
104002

032702
001401

010000

HLT+2

040000

4%:

104002

010203
000303
042703
020103
001401

BIT
REQ

BiT
BEQ

HLT+2

MOV
SWAS
BIC
mp

177760

8kQ

104002

HLT+2

PARITY

IASLF

*CHECK PARITY ERROR

*ODD PARITY SHOULD CAUSE PAR{TY ERROR
;RT —~ LINE #

‘R2 = CONTENTS OF

013632
013636

& 0

#010000,R2

RBUF

;CHECK PARITY ERROR

'BRANCH IF

#040000 .R2

;CHECK UART OVERRUN

JEVEN PARITY OR NO PAR]TY
;SHOULDN'T CAUSE PARITY ERROR
JRY = LINE &

JR2 = CONTENTS OF RBUF

;BRANCH IF 0K

;UART OVERRUN SET!',
JR1T

K2,
R3
R3
#1777¢0,R3
R1,
R3
R ¥

= LINE #

;R2 = CONTENTS OF RBUF

;DUP DATA
JLINE # IN LOW BYTF
JMASK ALL BUT LINE #
JCHECK FOR RIGHT LINE #
JBRANCH IF OK

JWRONG LINE# IN FI/FO
;R1 = LINE #

JR2 = CUNTENTIS OF RBUF
013670
013672
073674
013676
013702
013704

017702

013706
013712

005077
005201
006304

013714
013716

3514

3515

3516
3517
3518
3519
3520C
3521
3522

1057:°2

1STR

001401
104002

100001
104002

BEQ
HLT €2
165420

165412

005077

165374

013726

012737

000002

104400

015252
SRR

JRT = LINE #

CLR
INC

;R? = CONTENTS OF RBUF
<READ FI/FO AGAIN
;BRAMCH

JEXTRA CHAR IN FI/F0
JRY = LINE »
Rl
R4

JR2 - CONTENTS OF RBUF

;CLEAR BREAK CONTROL REG

JCOUNT LINES
JUPDATE L INE MARKER

L 0PS54

JRRANCH [F MORE LINES

CLR
SCOPE

2SR

JCLEAR (SR

Mov

A N AT

“TEST 55:
;

JGRANCH

;WRONG DATA RECEIVED

aRBUF,

BC(

013720
013724

;CHECK DATA

MOV
BPL
HLT+2

ASL

103311

A AR AT AN AT A R AR

NOTE:

TIMES
R RN TN AN R A RN

AR AN RN R

R RN N RN R RN

AR R RO RN

Te
ST THAT RESET CLEARS ALL BYFFERS

THE F]/FO BUFFER IS NOT COMPLETELY CLEARED

BY RESET; ONLY CHARACTER PRESENT

[S (LFARED.

N OIONOTRSTTS

12=-CICJA~F=0
(ZDAF P

DJ11 LOGIC TESTS
26-FEB=-79 15:41

MACY11

3523

3527

15:47

013734

052737

000340

013750
013756

012777
012777

052507
177777

165342
165340

177777

165334

001320

014004

(137242

012777

3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
ggzg

013764

012777

013772
(013774
014002
034004
014006
014010

000005
012737
013701
000000
001401
104001

3561

1777277

177776

1€5354

AR AR A

1ST155:

JNOTE:
:

1%:

AR A RN AR RN

BIS

6
PAGE

SEG 07

;PROBABLE FAULTY LOGIC.

3524

3525
3526

304(1052)
26~FEB=79
TSTS5:
TEST RESET

M7285
N AN

#3460, QHPS

(L2-8) E13

AR R R RN

P AR

AR R A AN R AN AR AN N AN NI NI AR AR RGN e

;SET PROCESSOR TO LEVFL 7

MOV

#177777 ,aTCR

MOV

ar'CR.R1

;{HECK

JSET ALL T(R BITS

MOV
#052307,aCSR
;SET ALL R/W BITS OF (SR
MOV
#177777 ,0BCSR_ ,SET ALL BREAK CONTRNOL BITS (SEND BREAKS)
ALL LINES SHOULD BE SENDING BREAKS, BUT NONE SHOULD BERTCEVING
BECAUSE THE HALF DUPLEX BIT [S SET
MOV
#177°777,QTBUF
;LUADING TRANS BUFF WHEN BREAK BI7 SET
;
SHOULD DO NOTHING
RESET
;CLEAR THE WORLD
MOV
(SR,1%
;CHECK CSR AND SAVE
MOV
a(PC)+
R
000000
BEQ
.+
HLT+1

3542
%gzg

014012

014016
014020

017701

165306

3545
3546
%225

(14022
014026
014030

017701
001407
104601

145276

MoV
BEQ
HLT+1

aB( SR, R1
.t

;CHETK BCSR AND SAVE

3549
3550
3531

014032
014036
074040

017701
100001
104001

165264

MGV
8PL
HLT#1

aRBUF ,R1
-th

;(HECK RBUF AND SAVE

3553
3536
%ggg

014042
017046
014050

0:7701
001401
104001

165260

MOV
BEQ
HLT+1

aTBUF R1
b

SCHECK TBUF AND SAVE

3557
2558
3559

014052

104400

001401
104001

BEQ
HLT+1

3565
3566
3567
3568
3569
3570
3571
3572
3573

3574
3575
3576
3577
3578

TCR AND SAvVE

SCOPE

2560

3561
3562
2563
3564

ROy

SRR R AR AR A AN T A RN R AR AR RN RN P AR

AR AN AN AN CRS PR CRG NG ENRNIIRISTORNEIOIOIRITEPRTSY

JTEST 56:
SEND 2 BINARY COUNT PATTERN ON EACH LINE
;PROBABLE FAULTY (0OGIC:
(OULD BE ALMOST ANYWHERE'
S E AR A AN A AR AR AR AN AR R R R R AR N RN I AR N RN R AAE RN RARR VRSN INSINARISIORIODIETS

014054
014056
014062
014070
(14076
014104
014112
014116

005001
012703
012777
012777
042737
052737
012700
012777

Q14124
0714152

032777
001374

100000
014260
000240
000340

1ST56:
16524C
165234
177776

000200
000001
010514

177776

000020

16576€

165174

10$:

(LR
MOV
MOV
MOV
8IC

R1
SSET UP LINE COUNTER
#100000,R3
sSET UP RCv DATA
#ISR56,aRCVVEC
:SET UP RECEIVER INTERRUPT VE(T(w
#240,
SRCVLVL
#3450,
aaPS
<CLEAR PROCESSOR PRIORITY

BIS
Mov
MOV

#200,
a#PS
»,
RO
#070514 ,aCSR

BiT
BNE

#8174,
10%

QCSR

sSET PRIORITY TQ &
sSET_UR LINE MARKER
;BIT2 = MAINTENANCE
JRIT3 = (LR MOS
JBITE = RECEIVER INTERRUPT ENB
JBIT8B = TRANS SCAN ENABLE
:BIT12= STATUS ENARLE
JWwAIT FOR MOS

TQ C(LtAR

77-(0JA=F<0
(ZD AF P11

3579
3580
3581

0146134
014142
014144
014150
014154
014156
014162
014164
014170
014172

16176
014200
014202

DJ11

LOGIC

26=FEB~79 15:41

052777
005004
010077
005777

0000C1

010477

165144

100375

001360

147704

165166

0013¢7

120403
001374
017702
022702

001401

014216
014222
014224

017702
100001
104002

014242

014244
014250
014252
014254
014256
014260
014264
014266

014270
014274
014276
014300

14302
014304
014310
014312
014314
014322

014330
(14336

MACYT1
165156

165154
165144

105204
123704

014206
014212
014214

014226
014230
014234
014236

TESTS

I
6
30A( 10 52)
15:47
PAGE T4
26=i ER=79
TEST ALL DATA ON EACH 1 INF
TSTS6:
18:

2%:

3%:

165112
110505

104002

105003
062703
005201

032701
001002

005237
000241
006300

165100

147703
020203
001401
104003

105203

017702

100767

162737

000003

001364

(%:

165036

1SRS6:

165070

11%:

165012
12%:

000004
001332
000004
164762

aCSR

CLRB

000400

000002

013777
212777
005077

TST
BPL
MOV
INCR
C(MPB
BNE
BI(B
(MPB
BNE
MOV
(MP
BFQ
HLT+2

MOV

B8PL
YLT+2

000416
100401
104003

#1,aC5R

MOV

103332

017702

8195
CLR

001364

165000

164774

EMDS6:

R0,

R&,
Ré
SUM, R

;TRANS

aTBUF

s SEND DATA
;BINARY COUNT
;MAKE

SURE

THE

ACSR,
R2
#1°0505,R2
.46

;SAVE (SR
JCHECK CSR
JBRANCH IF Ck

ONE

L INE

;SET FOR MAX,

CORECT NUMBER

"IME

IS OUTPUTED

RECJEVER (O'NT

FOR RECEIVER DONE

.CSR ERRCR

JRIZLINE #
aRBUF,
.+

#3,
33
DJLEN

R¢

J(HECK CHARACTER PRESENTY

JBRANCH IF 0K

;R1=LINE #
sR2=CONTENTS OF (SR
JRESFY EXPECTED DATA

JUPDATE LINE # [N EXPECTED DATA
JUPDATE LINE #
JCHECK FOR FOURTH L INF
J8RANCH IF NOT
:MOVE CHARACTER LENGTH PCINTER
JUPDATE L INE MARKER
;BRANCH IF MORE

ENDS6
SRBUF,

JR2=CONTENTS OF CSR

;CHARACTER PRESENT SET!!

;SKIP ISR

BM;
HLT+3

118

BiCR
mMe
BEQ
HLT+3

aDJLEN,R3
R2,
R3
.+

JREAD FIRST DATA
JBRANCH IF CHARACTER PRESENT

JINTERRUFT BUT NO CHAR PRESENT

JRIZUINE #
;RZ2=CONTENTS OF RBUF

iNCR
MOv
8MI

aRBUF,
1%

SUB
MOV
MOV

RCYLVL,
#1071,

CLR

CONTROL,

;WAIT FOR TRANS RZADY

;WAIT

ASL
8CC
BR

RT]

RCV EN B]T

RDJLEN,R4
R.R3

#600,
R1

MOV

THE

;SET FOR OUTPUT DATA

aTCR

ADD
INC

817
BNE
iNC
CLC

sSET

SEG V073

rG,

aTCR

DJLEN

aRCVVEC

aRCVLVL

JR3=EXPECTED DATA

JMASK CHAR. LENGTH
JCHECK THE DATA
JBRANCH F 0K

:DATA ERROR

;RZ=CONTENTS OF RBUF
JR3=EXPECTED DATA
JUPDATE EXPECTED DATA
:READ MORE DATA

sBRANCH [F MORE
sRETURN

;RESET CHAR LENGTH PQINTER

+RESTORE RECEIVER INT. VEC

;CLEAR T(R

1Z=CIDJA<F=0
CZDJAF . P11

DJ1" LOGIC TESTS
26=~FEB=79 15:41

3635
%2%9

0143¢
014346

005077
104400

164752

3638
3639
3640
3641
%222

014350
014356
014364
014366
014372

012737
023737
002004
005037
000137

000020
001362

3044
3645
3646
3647
2648
3649
3650
365%
3652
3653
3654
3655
3656
3657
3658
3659
3660
2661
3662
3663

Q14376
014376
014402
0164410
014414
014420
014426
014430
014434
014440
014444
014446

014450
014452
014454
014456
014460

Q04737
062737
005537
000004
032777
001004
000004
000004
013700
001405
009005
014450
004710
000240
000240
000240
000137

MACYT1

015252
(00°3¢L4

001350
002472
017454
000001
001314
016516
002000

DONE
:

%79
280
ggg;

014464
014464
014466
014470
014474
014476
014502
014504
014510

010046
010146
013700
006100
012701
0601060
011037
162737

(14516
014524
014530
014534
014540

013737
006137
006137
(05337
001371

(SR

;CLEAR (SR

MOV
CMP
BGE
CLR
JMP

#20,
TIMES
DJUUT ,UNITS
DONE
ALMFLG
RESTAR

JCHECK FOR LAST UNIT
JBRANCH [F LAST UNI]T
JCLEAR FLAG FOR NEXT UNIT
TJUMP IF NOT

M
:

THIS SUBROUTINE WILL CALCULATE THE BR PRIGRITIES.

4%:

002472

C R
SCOPE

3%:

164746

000007
000177
000042

3685

001362

017230
017220
000060

017220
017220
017216
017226

017220

017222

1$:

MOV
MOV
MOV
ROL
MOV
ADD
MOV
SUB

RC,
-(SP)
R1.
-(5P)
DJUT,
RO
RO
#PRTBLE,
R1,
RO
(R,
MASK
#60.
MASK

MOV
ROL
ROL
DEC
BNE

MASK,
MASK
NCW
T
i
:

014542

012601

;ADD 1 TO THE PASS COUNT
JMAKE IT DOUSBLE PREC.
JEND OF PASS INDICATOR
‘RING THE BELL?
;NO!
JRING THE BELL
*TYPE A FILLER FOR 11/05
;GET MONJTOR ADDRESS
2 IF NONE
‘RESET AND

;GO TO MONITOR
*SAVE ROOM
‘FOR
SACTI
;RETURN

BRSET:

2483

3684

£Q 0C74

JSR
PC,
KBDINT
ADD
#1.PCNT+2
AD(C
PCNT
TYPE
+MEOP
81T
#SW10,aSWR
8NE
(4 3
TYPE
JBELL
TYPE
177
MOV
a¥42 R0
8EQ
3%
RESET
$ENDAD - .
JSR
7.(0)
NOP
NOP
NOP
JMP
RESTAR

001316

3664
%222
3667
3668
%65
3670
3671
3672
3673
3674
%75
3676
%77
378

J
6
30A(1052)
26~FEB-79
15:47
PAGE 75
T$T56:
TEST ALL DATA OM EACH LINE

MOV

gggg

0714544

012600

MOV

3688
3689
367C

014545

000207

RTS PC

LEVEL

;.
*
*
:
*
:
*
{
*
*
*

SAVE RO
SAVE Rl
LOAD UP WUT DEVICE #
MULT X 2 TO SAVE OFFSET
LOAD IN BASE OF TABLE
STORE LOCATION OF B8R
[N RO
SAVE BR FROM QUESTION
MASK= DECIMAL #(0 TO 7}
CREATED FROM ASCII
STORE FOR ERROR PRINTOUT
ROTATE S5 TIMES TQ

' CREATE BR LEVELS AS BELOW
> COUNT 10 S
¢ BACK TILL S ROL DONE

NOW= 340, THEN 300,THEN 240,THEN 200 ETC.

(340,300.240,200.140.100,40,0)

tsPy+,

(SP)+,

; RELOAD R1

RELOAD RO

; BACK TO MAIN CODE/ QUESTIONING
* MASK OND NOW ARE LOADED.

DJ11

LOGIC

26~FEB-79

AN -

17=C2DJA~F=0
CZDJAF P

!
ESTS

141

MACY11

30A(1CS52)

3651

26=FEB=-79
15:47 PAGE 76
BELL AND SCOPE ROUTINE

INITIALIZATION ROUTINE
DEVICE

‘ON FAILURE:
JSET:

JBITO1
:BIT02
;BIT03
:BIT06
;BITO8
:BIT10

CSR REGISTER
REGISTER O CONTAINS tRROR ADDRESS

HALF DUPLEX
MAINTENANCE
CLEAR MOS
RECEIVER INTERRUPT ENABLE
MASTER XMTR SCAN ENS
R/W BCSR

*WAIT FOR MOS TO CiEAR
;SET:

;BITO0 = RECEIVER ENABLE
w

014550
014556

012777
003413

00014

164542

INITA:

MoV
BR

#2014 ,a(SR
INITR

:BIT($)2,3,10 THEN O

01456C
014566

000407

012777

000514

164532

INITB:

MOV
B8R

#514 (SR
INITR

014570
014576

012777
000403

000416

164522

INJIC:

MOV

#416,3(5R

014600

012777

000414

164512

INITOD:

#414,3CSR

;BiT(S)2,%,8 THEN O

014606

005000

INITR:

014610
014612

005200
001004

1%:

+ ANT
| HANG
sROUT INE

014614
014616

162700

(SP) ,RO

JRECORD SUBROUTINE (ALL RETURN
JFORM CALL ADDRESS FOR DISPLAY

014622

104000

014624
014632

032777
001366

000020

1646466

014634
014642

052777
000267

000001

164456

11600

INITR

#2 R0

000002

;BITAs OF DEVICE (SR FALIED TO (LEAR
2%:

#M3]1746,a(SR

;TEST HAS MOS CLEARED
:QETBRANCHES

*BITO0 REUEIVE ENARLE

a( SR

*CONT INUE

SEQC 0075

72~(ZDJA~F~0
CZDUAF
. P11

DJ11 LOGIC TESIS
26~FEB=-79 15:41

3739
3740 014644
013701
3741
014650 012761
3742
014656
052711
3743 014662
005037
3744
014666 005037
3745
014672
005037
3746
014676
012737
3747 014704
005711
100373
3748 014706
3749 0164710
112761
3750 014716 005237
014722
3751
105711
100405
3752
014724
3753 014726 004537
3754 014732 000773
3755
014734
000760
3756 014736 000742
3757 014740 042711
3758 014744
022737
3759 014752 001414
5760 014754
063737
3761
014762
023727
3762 014770 002771
3763 014772 001403
3764
163737
014774
015002
3765
000403
3766
015004
012737
3767 015012 004737
3768
015016 032777
3769 015024
001413
3770 015026 000004
015032
3771
010105
3772
015034
004737
3775 015040 000004
3774
015044
013705
3775 015050 004737
3776 015054
000207

001329
009001
000004
001356
001360
001352
000200

000377
001356

MACYT1

000004

001354

3779

3781
3782
3783
3784
3785
3786
3787
3788

3789
3790

015056

105237

001072
205337
001007
023727
001002
104007

005725
005725
000205

ALM(CK:

¢%:

000006
1%-

015056

000001
000001

001356

001356
001360

000377

001356

001360

000377
017454
010000

001360

164350

3%
7%:

BIS
CLR
(LR
CLR
MoV
TST
BPL
MOVB
INC
TSTB

10%:

'A H
11¢:

001352
001354

000022

(SR,R1

#1,4(RY)

#2172,
COUNT
SUM

(R1)

#4377 ,6(R1)
COUNT
(R1)

#1,COUNT

ADD
MP

SUM,#377

BEQ

SuB

B8R
MOV
JSR
817
8EQ

MOV
JSR
TYPE,
MOV
JSR

13%:

RTS

TIME:

INCB
BNE
DEC
BNE
(MP
BNE
HLT+1
TST

TST

RTS

PAGE

SEQ 0076

;GET (SR ADDR [NTO R1
JSET LINE O IN THE T(R
JSET THE MAINT BIT

TIMERA

#200, TIMERB
(R1)

B8M!
JSR
BR
BR
BR
8I¢
cMP

TYPE,

016042
016676
001356
016042

001356

MOV
MOV

BLT
8EQ

016756

2777
3778

3780

3CA(1052)
15:47
26=FER=79
SILO ALARM LEVEL ROUTEEN

RS, TIME
13

ALMCK

JSET UP TIME (ONSTANTS

JWAIT FOR TRANSFER READY BIT

;OUTPUT A (HAR TO TBUF
;COUNT EACH CHAR
sCHECK FOR DONE IN THE (SR
;IF SET GET OUT OF THE LOOP
;GIVE DONE TIME TO SET

SRETURN TO TEST FOR DONE AGAIN

JRETURN TO OUTPUT ANGTHER CHAR
;ERROR RETURN TRY AGAIN

#3170, (R1)

STURN OFF

43
COUNT, SUM

;CONTINUE TO A COUNT OF 256

7$
108
COUNT, SUM
118

#377,5UM

PC ,KBDINT

#SW12,aSWR
138
MALARM
R1,TTY
PC,PRINTR
MSGDAS
COUNT,TTY
PC,PRINTR

RCV ENABLE

sIF SILO LEVEL SET FOR 1

THEN GEY OuT

cIf EQUAL USE !T
o IF GREATER SUBTRACT 1 COUNT SO IT°S LESS
JALL SET GET OUT
sPUT SUM TO MAX VALUE
sGET THE SWITCH REGISTER
:ZSINT ALARM LEVEL?
sYES.,

(SR FIRST

cPRINT ALARM LEVEL

TIMERA

< INCREMENT THROUGH ONE WCRD
:GO TEST FOR DONE AGAIN
sMAKE TIMERB LARGER IF FAST PROCESSOR

COUNT 422

sHAVE QUTPUTTED 18 TIMES
:NO, GO OUTPUT ANOTHER CHAR

13
TIMERB
1%

(RS)+
{RS5)
+
RS

:;gS.Dggfi DID NOT SET AFTER 18 OLIPUTS

:SET RS FOR ERROR RETURN

sSET RS FOR NEXT QUTPUT RETURN
sRETURN FROM ABOVE OR RETEST DONE

2{-CIDJA=F-Q
CZDJAF Pl

DJ11

LOGIC

TESTS

26~FEB=79 15:41

MACY i1

3791
3792
3793
3794
3795

3812
3813
3814
3815
3816

3817

3818
3819
3820
3821
3822
3823
3824
3825
3826

26=FEB=79

SCOPE

15:47
LOOP HANDLER

$SCOPE
s THIS ROUTINE

6
PAGE

SCOPE
HANDLES

THE

78
SEQ 0077

LGOP HANDLER

ITERATIONS,

;LOOPING, AND THE DISPLAYING OF

3796

LOOPING,

ERROR

THE TEST NUMBER.

:'SCOPE'' IS PLACED BETWEEN EACH SUBTEST IN THE TEST AND
ad =3

PONY
~ ~

[e X 3o NV}

;RECORDS THE STARTING ADDRESS OF THE SUBTEST [N ‘LAD:'’
(Y219,
1V, }V, |

01
01
01
01
015134
015136
015144
015146
015154
015156
015162
015164
015172
015174
015202
015206
015212
015220
b

3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811

30A(1052)

004737
032777
001404
127737
001434
032777
001026
032777
001012
105737
001404
123737
001013
112737

105237
011637

013737
000002

015222
015226
015234
015240
015242
015246

001760
013716
000002

015250
015252

000000
000020

105237
013737
005737

017454
000400

164250

164242

001310

040000

164230

004000

166220

001311

015252

001311
001310
015250

1%:

JSR
8IT
8EQ
(MPB
BEQ
8IT
BNE
BIT
BNE
TSTB

001311

00131
015250
001310

TRAPS:

001376

BtQ
(MPB
BNE
2%:
MOovBe
SVLADS: INCB
MOV
MOV
RT1

KITS:

OVERS:

INCB
MOV
TST

8EQ

015250

MOV

RTI

LAD:
TIMES:

0
20

PC,

KBDINT

q§WS.aSNR
ASWR, ICNT

OVERS

#SW14,aSWR
KITS
#SW11,3SWR
SVLADS

JCNT«1
2%

TIMES, ICNT+1

JLOOP ON SPEC. TEST?
;NO LOOP ON SPEC. TEST
;ON RIGHT TEST?
2 SW7-0n
;NOT RIGHT TEST
:LOOP ON TEST”
;LOOP ON TEST IS SET
JKILL ITERATIONS
JYES = KILL ITERATIONS
JFIRST ONE?
JBRANCH IF FIRST
:DONE?
JBRANCH IF NOT

KI1TS
#1,ICNT+1
JCNT

JFIRST

oD I SPLAY
ICNT

;DISPLAY TEST NO. AND ITERATION FOUNT

(6),LAD

ICNT+1
TICNT ,a#D
[ SPL.AY
LAD
SVLADS
LAD, (&)

ITERATION

;COUNT TEST NUMBERS
;SAVE LOOP ADDRESS

SRETURN
:INC

THE ITERATION COUNT

. ET_uP DISPLAY

(EIRST ONE?
ZYES
:FUDGE RETURN ADDRESS
:FIXES PS
;LOOP_ADDRESS

JRUN 20 TIMES

Z7=CZDJA~F~0
CZDJAF P11

3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837

3838

MACY11

30A(1052)

26-FEB=79

15:47

SCOPE LOOP HANDLER

SHLT

cADDRESS OF

PAGE 79
SEQ 0078

ERROR TYPEOUT HANDLER

;THIS ROUTINE

PRINTS OUT

THE

ERROR MESSAGES

STARTING WITH

THE

'HLT''.

IT ALSO COUNTS THE NUMBER OF ERRORS

PC,

KBD INT

;AND HAS THE CAPABILITY OF LOOPING ON ERROR, BELL ON ERROR,
J"HALT''
ON ERROR, AND INHIBIT TYPEOUTS. AN OPTJONAL ARGUEMENT
;(HLT+3) WILL BE PLACED IN "HLTCTS:'' FOR ADITIONAL TYPEQUTS.

(15254
015260
015266
015270
015274
015300
015306
015310
015320
015324
015332
015340
015344
015350
015360
015354
015370

015372
015374

004737
032777
001402
000004
005¢37
032777
001026
000004
011637
162737
117737

013705
004737
000004
004737
005777
100001

000000
004737
C32777
001001
000002

015400
015406
015410
015412
015416

000137

015422
015424

003000
000000

015426

3874
3875

DJ11 LOGIC TESTS
26~FEB-79 15:41

015426
015432
015436
015444
015450
015452
015460
015464
015466
Cisa72
015474

105037

013705
004737
042737
105337

100411
062737
000004
010005
004737
000764
000207

017454
002000
000007
001312
026000

015314
015424
00000¢
000066
015424
016042

1664106

164066

EMTS:

1%:

#SW10,aSWR
1%

INC
BIT
BNE

ERRORS
#SW13,aSWR

TYPE

LBELL

2%
.¥2

(6) ,HLTADR

015424
015422

#2 ,HLTADR
@HLTADR HLT(CTS
HLTADR,TTY

PC,PRINTR

015354

o¥

015426
164004

017454
001000

JSR

8IT
BEQ

2%:

PC .ERRORS

aSWR
o"

PC ,KBDINTY
1529.BSUR

163766

001311
015222

ICNT+]
KITS
HLTCTS:
HLTADR:

001320
016042
0C7700
015422
000100
016527
016042

ERRORS:

015464
015464

SRING BELL

;COUNT THE NUMBER OF ERRORS
sSKIP TYPEOUT IF SET
;SKIP TYPEOUTS
:.ASCIZ <15><12>
;PUT ADDRESS OF INSTRUCTION ON STACK
;FJDGE ADDRESS
cGEY HLT ARGUEMENT
;TYPE HLTADR IN OCTAL
;TYPE LEADING ZERG'S
;.ASCIZ 't
;G0 TO USER ERROR ROUTINE
JHALT ON ERROR

+SKIP IF CONTINUE

JHALT ON ERROR!

;CHECK FOR INHIBIT LOOP ON ERROR
;SKIP IF LOOP ON ERROR
sRETURN
sCLEAR JTERATION COUNT
;LOOP ON TEST UNTIL NO ERRORS
cHLT ARGUEMENT
SLAST HLT INSTRUCTION EXECUTED

CSR,TTY

PC PRINTR

;BELL ON ERROR?
;NO - SKIP

#7700.2%

sTYPE (SR IN OCTAL

;TYPE LEADING ZERO'S

HLTCT$

#100,2%

2%:

SPACE

X0, TTY
X7 ,PRINTR

sTYPE REGISTER X IN OCTAL

ZZ-C2DJA=F=0
CZDJAF P11

LOGIC

TESTS

26~FEB-79 15:41

MACYT1

30A(1052)

26=FEB-79

TELETYPE

N —d b
gwww
NENVOONSTO Ro!

12737

H&
oSN

s unrd —ed ad

el nd cnd s

d —d

(9,19,
IV ] AANANAN
AL ALY Y, TV, TV, TV )
Yl 1Y, ] VIV WA [V IV, P

[elele] COO00O00O [elele]

012737
004737
005037
010146
010246
010346
012501

015550
015554
015556
015562
015566
015570
015572
015574
015576
015600
015602
015604
015606
015612
015614
015616
015624
015626
015630
015632
015640

000001
015644
015770

000020
015772
000120

READIN: MOV

JSR
CLR

017664

1%:

000015
000069

177770

MOV
MoV
Mov
MoV
MOV
MOV
(MPB
BEQ
(LR
MOVB
(MPB
BEQ
SuB

BIT
BNE
ASL

7
PAGE 80

ROUTINES

SEQ 0079

INPUT AS OCTAL NUMBER

#1, INHRE
PC.

INFRE
R1,-(6)
R2.-(6)

R3.-(6)
(R5)+,

#20,CNT

READS

;GO READ

TTY UNTIL

;PUSH R1 ON STACK
*PUSH R2 ON STACK

# INPUT ,R2

glzo,<nz>

:PUSH R3 ON STACK

;CHECK FOR ‘P

(R1)
(R2)+,R3

R3,#15
38

#60,R3

#177770,R3
%31)

;BRANCH ]F BAD DATA

B(CS

ASL

B8CS

ASL

017664
177776

015642

177776

2%:
3%:

BCS
BIS
DEC
BR
L2
MOV
MOV
MOV
MOV
MOV
RTS

015642

015644

015646

015652
015656
015660
015664
015666
015672
015676
015702
015704
015710
015712
015712
15724
15726

015770

15:47

INPUT

;SUBROUTINE TO SAVE

3876
3877
3878
3879

DJ11

015772
016012

PSTEMP:

READS:
1%:

MOV
MOV
CMP
BEQ
1518
BPL
MCVB
B1(B
(MPR
BEQ
(MPB
BNE

2%:

177560

177562
000200
000177

000025
000004
000750
111337

015716
016514

A ¥

3%:

TYPE

B8R

MOvB

R3,(R1)
CNT
1

a#PS,
PSTEMP
(6)+,R3
(6)+,R2
(6)+,R1
ngEMP. asPS

sMAKE SURE Z-BIT IS (LR

SAVE CONDITION CODES
sPOP STACK INTO R3
:POP STACK INTO R2
¢POP STACK INTQ R1
sRESTORE CONDITION CODES

; TEMPORARY STORAGE FOR PS

R3,-(6)

#INPUT ,R3
#INPUT+20,R3
43

177560
.~4

177562, (3)

;SAVE R3

;GET ADDRESS
JBUFFER FULL?
SYES - TypPg '*'

SWAIT FOR

;A CHARACTER

sGET CHARACTER

#200,(3)

JGET RID OF JUNK

43
#25,(3)

JSKIP IF

#77,(3%)

;1S 1T A RUBOUT
NOT

3%
.

1%
(3),.1YPE

JLASCIZ "''<155<ids *!

;AP THE BUFFER AND LQOP
JSET UP FOR TYPING

27-CIDJA=F=0
CZDJAF L1

3932
3933
3934
3935
3636
3937
3938
3939
3940

3941
3942
3943
3944

015732

DJ'1

LOGIC

TESTS

26-FEB=79 15:41
000004

122723

001343
005737

001401
000402
105063
000004
012603
000207

000000
000020

MACY11

30A(1052)

016514
000015

177777

15:47

TTY

INPUT ROUTINE

TYPE

.« [YPE

7
PAGE 81
SEw VOBC
JECHO

(MPB
BNE

#15,(3)+
28

5%:
6%:

BEQ
BR
CLRB
TYPE
MOV
RTS

5%
68 _
=1(3)
12
(6)+.R3
PC

:ZAP RETURN (THE 15)
:TYPE A LINE FEED
:RESTORE R3
:RETURN

:
INHRE
INPUT:

0
BLKW

:TTY

015770

000012

26=FEB=79

TST

INHRE

sCHECK FOR RETURN
:LOOP IF NOT RETURN

INPUT AREA

1l-CZDJA=F-0
CZDJAF .P1T
3945
3946
3947
3948
349
3950
3951
39¢2
3953
3954
3955
3956
3957

DJ11

LOGIC

TE
S

26~FEB-79 15:4

MACY1T

30A(105¢2)

26-FEB=-79

OCTAL

15:47
PAGE 8¢
DUMP OF A WORD

$OCTAL

OCTAL

SEC 0081

TYPEOUT ROUTINE

;THIS ROUTINE IS USED TO TYPE AN OCTAL NUMBER ON THE TITY, IT WILL TYPE
:ALL 6 CHARACTERS, SUPPRESS LEADING ZEROES, TYPE AN 18 BIT ADDRESS, OR TYPE
. THE 16 BITS. 1T 1S CALLED VIA THE DUMP, SDUMP, DUMP18, OR BITYPE MACRO'S.

016032
016040
016042
016050
016052
016056
016064
016066
016072
016074
016076
016100
016106
016110
016112
016114
016116
016120
016122
016124
016126
016130
016134
01€140
016142
016146
016152
016154
016160
016162
016166
016170
016174
016176
016200

012737
000411
112737

000402
005037
112737
010446
012704
105014

000411
105014
032737
001004
006105

170101

000001

016200
127772

016200
016200
016201

016202

000100

016200

BITYPS: MOV
PRINTR:
PRINTS:

PTIT:

.PRL:

106114

006105
106114
006105

:
.PRF

106114
105714

001402
105237
105737
001402
152724
105237

001351
022704
001002
112724
105014
000004

012604
000207
000012

016200
016200

000060
016201
016202
000060

016202

BR
MovB

B8R

CLR
MovB
MoV
MOV
CLRB
BR
CLRB
BIT
BNE
ROL
ROLB
RGL
ROLB
ROL
ROLB
1STB
8EQ

INCB

1STB

B8EQ
BIS8
INCB
BNE
cMP
BNE
mMovB
(LRB

TYPE
MOV
RTS
.BLKW

4170101,
.PR
PTIT
#1,.PR
PR
#-6, .PR+1

R4 ,~(6)
#_.PR+2,R4
4)
.PRF
(4)

#100,.PR
.PRF
TTY
(4)
TTY
L)
TTY

(&)
(4)
.+6

PR
PR

2'0,(4)+

PR+1
.PRL
# _PR+2
R4
. +6
#'0,04)+
(4)

JSET BIT FLAG ANS 16. CHARACTER COUNT

;NOW TYPE

;SET POINTER TO FIRST ASCI] CHAR.
;CLEAR FIRST BYTE
;ROTATE FIRST BIT
;CLEAR BYTE OF (HARACTER

;BIT TYPING MODE?
JYES =~ SKIP 2 ROTATES
;ROTATE BIT INTO (

JPACK T
sROTATE BIT
JPACK T
sROTATE BIT
JPACK T

INTO C

;1S IT ZERO?

2SKIP INC

JSET FILL SWITCH
JCHECK FILL SWITCH
;SKIP BITSEY
JMAKE INTO ASCII CHAR
s INC COUNT
+REPEAT

;EMPTY BUFFER?

;SKIP IF NOT
;LOAD 1 ZERO
sNULL TERMINATOR

JTYPE

+RETURN

IN BIT FORM

;SAVE R4

ra .PR‘Z

(6)+ R4

JSET ZERO FILL SWITCH
;SKIP
;SUPRESS LEADING ZERO'S
JSET COUNT

sRESTORE R4

. COUNT, SWITCH, AND OUTPUT BUFFER

ZZ-CIDJA=F=0
CZDJAF .P1M

3986
3987
3988
3989
3630
3991
3992
2993
3994
3995
3996
3997
3998
3699

4000
4001
6002
4003
4004
4005
4006

4007
4308

4009

4610
4011
4012
4013
4014
4015

4016
017

DJ11

LOGIC

TESTS

26-FEB-79 15:41

016224
016232
016240
016242
016244
016246
016<50
016252
016254
016260
016266

012777
012777
010046
010146
010246
010346
010446
010546
010637
012777
000000

016270
016274
016276
016300
016302
016304
016306
016310
016312
016314
016316
016324
016332
016346

013706
005001
005201
001376
012605
012604
012603
012602
012601
012600
012737
012737
000004
006137

016352
C16354

000000
000776

016356
016360

000000
000024

016352
000340

MACY11
000126
000122

30A(1052)
PDOWNS:

26=FEB-79

MOV

MOV
MOV

MOV

016356

PUPS:

1%:

016224
060340
016336
002472

000024
000026

000026

#ILLUP,QPUVECS

#340,0PUVECS+2
RO,=(8)
R1,-(6)
R2,-(6)

R3.-(6)

SEC 0082

;SET FOR FAST UP

;PRIO:7
JPUSH RO ON STACK

JPUSH R1 ON STACK
JPUSH R2 ON STACK

JPUSH R3 ON STACK

R4 ,=(6)

;PUSH R& ON STACK

SP,.SAVR6

JSAVE

RS,=(6)

MOV
HALT

#PUPS ,QPUVECS

;SET UP VECTOR
:WAIT FOR PF

.SAVR6, SP

;JGET

MOV

(LR
INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

TYPE

JMP

ILLUP:

7
PAGL 83

MOV

000072

POWER DOWN AND UP ROUTINES

MOV
MOV

016356
016270

15:47

HALT

.SAVRG: O
PUVECS: 24,26

R1
R1
18
(6)+,RS
(6)+ R4
(6)+,R3
(6)+ Ré
(6)+,R1
(6)+.RO

#PDOWNS , 3

#340,a426
bo*2

JPUSH RS ON STACK

JWAIT LOOP FOR THE TTY
JWAIT FOR THE INC
:OF
WORD
;POP STACK INTO RS
;POP STALK INTO R4
;POP STACK INTO R3
:P0P STACK INTO R2
;POP STACK INTO R1
;POP STACK INTO RO

;SET UP THE POWER DOWN VECTOR

:PRIO:=7

:JASCIZ <15><12>' POMER"®

RESTAR

;JMP TO USER ADDRESS

-2

. BEFORE THE POWER DOMN WAS (OMPLEE

;THE POWER UP SEQUENCE WAS STARTED

sPUT THE SP HERE

;POWER UP VECTOR

27-CIDJA<F=0
CZDJAF P11
4018
409
4020
4021
4022
4023
4024
4025
40c6
4027
4028
4029
4030
4031

<032

4033
403,
4035

DJ11

LOGIC

TESTS

26-FEB-7G 15:41

MACYI1

4044

4045
4046
4047
4048
6049
4050
4051
4052
4053

4054

4055
4056
4057
4058
4059
4060
5061
4062
L063
4064
4065
4066

L067

4068
4,069
4070

4L071

4072
4073

26~FEB=-7G

15:47

PAGE 84

POWER DOWN AND UP ROUTINES

SEG 0083

;i'l‘.ttttfit!Qt*kt**t*t"fiit'*littfit*tfittttttk'fit!t

;10T RANDLER.

tltkttitt'ttt.ttttttt!fl

REENTERENT

INDICATE A FAULSE

ROUTINE

TO EITHER

INTERUPT OR TRAP.

TYPE MESSAGES OR

:'ittttti!tt.tliitit"t‘itttltttfitttt!ttt'lttttfifitttttt.ttttttt'

fifitttqtt

016364
016370
016372
016376
016400
016402
016404
016406

022716
002407
162716

012601
005726
011602

001600

JOTRAP:

0000C4

CMP
BLT

SUB
MOV
TST
MoV
HLT+2

104002

000092

#1000,

(SP)

;CHECK RETURN ADDRESS FOR FAULSE

44,
(SP)+,
(SP) +
(sP),

(SP)
R1

;GET VECTOR ADDRESS FROM RETURN ADDRESS
JPUT IN
R1 FOR TYPING
;POP STACK
;SAVE RETURN ADDRESS FOR TYPING

10T$

sMCALL

JUNEXPECTED INTERUPT OR TRAP

;CONTINUE THE PROGRAM

$TYPE
$TYPE

M:=SSAGE

TYPEOUT

ROUTINE

sTHIS ROUTINE IS USE TO _TYPE ASCI] MESSAGES ON THE TTY. THE
cCALL CAN BE IN ONE OF 3 FORMS: 1) '‘TYPE ,ADK'' -~ TYPES THE
JMLSSAGE STARTING IN LOCATION 'ADR:'', 2) “‘TYPE ,(HAR'' - TYPES
sTHE ASCII ''CHAR'', AND 3) "PRINT <<15><12>'MESSAGE'S> - TYPES

s THE MESSAGE WHICH IS INLINE ASCII.

016410
016412
016416
016422
016424

016430

016434
016436
016440
016444
016450
016452
016454
016460
016466
016472
016474

016500
016504
014510

016512

016514

016516

016524
016527

016532
C16540
016546
01€554
01€562

010546
017605
032705

00C002

010537
012705

016514
016514

001094

105715
001406
112537

165737

100375

000770
017646
062766
022666
001006
062705
042705
010566
01260%
000002
000090
005015
005015
040
005015
020174
040440

051523

005015

10TS:

177400

1%:

177566
177564

0000C?
000002
000002

000004

H
e

045104
042104
020072
042526

TST8

BEQ
MoV
BPL
8R
MOV
ADD
(MP
BNE
ADD

3%
.TYPE:

044506

MOV
BIT
BNE
MOV
MOV

1STB

000002
600001
000062

047505
000
000040

MOV

000120
051522
030461
042522
000040
062103

BIC
MOV
MOV

RT!

TTY,~{6)
26, TTY

JSAVE TiY
:GET ADDRESS TO BE TYPED

1:?7400.TIY

;ég IT A TYPEM?

1Ty,

cGET

TYPE

# TYPE, TTY

{(11Yy)

’3

THE CHARACTER

sFUDGE

THE ADDRESS

: TERMINATOR?

JGET OUt IF SO

(TTIY
e RN177566
) ;LOAD AND TYPE THE CHARACTER

177564

+IS THE PRINTER READY

<GET THE NEXT CRARACTER

l2.4(§)
(6)+,2(6)

JADD 2 TO THE ADDRESS
JIS IT (422

ac(6) ,-(6)
I3

#2,7T7Y

JWAIT UNTFIL IT IS

+GET ADDRESS TO 8F TYPED

JNO

<ADD 2 TO THE ADDRESS

41,71y

+BACK UP TO AN EVEN BYTE

(), TTY

JRESTORE TTY
sRETURN
s CHARACTER TYPE LOCATION

1Y, 2(e)

RESTORE ADDRESS

<15>¢12> "E0P""

MEOP:
RETURN:
SPACE:

fi153<12>

MSGADR: .

<15><12>"FIRST DJ11

MSGVE(:

<15><¢12>'VECIQOR ADDRESS:

LASCIZ

TRAP

;BRANCH IF "‘TYPE'' COMMAND INTENDED

;R1 = VECTOR ADDRESS
;R2 = RETURN P(

RT1

4036
4037
4,038
4039
4040
4041

4042
4043

30A(1052)

ADDRESS:

4074
4075
4076

077

4078

4079
4080
4081
4082
4083
4084
4085
5086
4087
4088
<089
4090
4091
4092
45093

4095
4095
409%
4097
4098
4099
4100
41C1
4102
41C3
4184
4105
4106
4167

Q165720
016576
016604

014606
016614

016622
01663C
016631
016636
016644
016652
016660
016665
016672
016676
(016702
016710
016716
016723
016730

016736
016744
016752
016756
016764
016772
017000
037006
017013
017020
017026
017034
037042
017050

051117
042522
000040

MALY11

0604460
051523

042104
020072

005015

047516

(20056

023461
000
015
042116
047503
051125
037516
015
051505
026440
005015
046040
035110
7015
052111

035123

020040

051412
051101
043116
052:i01
020040

040524
020104
043511
0/7511
000

043117

020054
042440
020072
005015
040440
046040
043040
051123
015
040512
0451%
043517
051505
000

042040

046012

000040
000040
044103
047105
020040
050012
024131
042117
042526
000040
044523
040514
053105
051117
005015
041412
043055
030461
041511
051524

030512

047111

051101
052107
000
051101
(47516

MSGNUM:

.ASCIZ

<15><12>'NO, OF DJ11°S:

MSGCON:

.ASCIZ

5
<15><12>''STANDARD (ONFIGURATION?

MSGLIN:

.ASCIZ

<?5><12>'LINES

MSGDAS:
MSGLEN:

.ASCIZ
.ASCIZ

*' <15><12>''CHAR LENGTH:

MSGPAR:

.ASCIZ

<15><.2>'PARITY(NO, ODD, EVEN):

MALARM:

.ASCIZ <15>¢12>''SILG ALARM LEVEL FOR (SR''<15><12>

MIITLE:

i
.ASCIZ <15><12> "‘(ZBJA~F

047514
(046522
046105

017051

017056
017064

015

020124
044124

CS3412

000
042132
020040
046040
052040
005015

*'
'*
°*

DJ1i

LOGIC

TESTS <15><12>

017126
017132
017140
017146
07715
017162
01770

Q17174

(017202

052101
051511
047517
020122
047111
054522
047111

005015

042503

042504

020040

REVISION F OF

(ZDJAF

044124

MSBAD:

.ASCIZ <'5>¢1,57

IS A GOOD FOR NOTHMING.

044526

yI1CE:

020122
043440
047506
044124
052040
040507

000
020C12

037477

DURING

THE BR PRIORITIES 22 FOR::/

041040
040640
020104
047516
027107
940440
000077

(35072
015

ADLED

,wSCIZ <15><12>/WHAT ARE

051117

017114
017117

’1429

MSBR.

043040

4"18
4119

017706

040510
020105
051102

044522
042511

6728

041440

057101
020105

050040
952111

£i727

017072
017100

6120
4121
4122
«123
4124
2125
6726

PAGE 85

: MESSAGES FOR INTERRPUT TESTING

4715
4116

4117

15:47

026104
024516

4110

4113
61146

26~FER=79
TYPE ROUTINE

<109
4112

30A(1052)

051117
020123

(00040

’

LASCI2<15>

THAT BR

'¢o/DEVI‘E

TRY AGAINT/

DJ"1 LOGiC TESTS
26~FEB-79 15:41

22~CIDJA=F=0
C.DIAF P

ZZ-\ZDJA‘F-O
(ZDJAF P

DJ1Y LOGIC fES
26~FEB=79 '5:4"

MACY"1

4130
613
4132

4132

4L13%
6135
413
L4137
6138

.EVEN
DEVNUM:
UNITST.

0
O
0

NOW:
O

4141
6142

Q17226

LEVEL:
UUTDJ:

{T:
PRTBLE:
.EVEN

4143

~166

4173

L177
4178

L179
$£180
4181

.WORD

15:47

ROUT INE

FOR

“AGE

86
60 UCES

[NTERRUPT

TESTING

:
:

.WORD
°

.WORD 1
.WORD 1

DEFAULT FIRST DEVICF # 1
STORE FOR UNITS+1, LFAULT

FOR DECIMAL

:
:

:TH!IS ROUTINE

INOTE:
017304
017310
017314
017322
017324
017326
017330
017332
$17336
017340

012700
012702
012737
005001
000261
0057°0
103404
062790
£05201
000771

017342
017344
017346
017352

005302

017356

0717360

017364

01737C

017372
017374

100495

1600C0
000007
0000C2

AUTO:

000u06

5%:
1%:

0000C

2%:

062700
010037
000761

006010
001340

005037
010137
001003
104000
000137

006G06
001344

OCTAL # OF

ALLOWED BR

BR PRIC
4 FOR ROTATE (EFT OF BR

STORE COUNTER FOR ROLS
TABLE OF INPUT BR

JROUTINE

017400
{17404
017412
017416

013746
012737
13701
01¢721

017422

005721

017424
017430
£174%0

012723
000007
012637

00002¢

017440
001340
040400

MOV

MOV
MOV
(LR
SEC
¢St
8(S
ADD
INC
8r

TEC
aM]

(LR
MOV
BNF
LT
JME

014376

000020

00002¢

LOC 42

iS NOT ZERQ,

SYSTEM

AS WHEN THE PROGRAM

sSTART AT NO RESPONSE BASE Dj1T -1078)
cCOUNTER OF NON RESPONSE GR DJ1' OR ONE

JSET UP COUNTER

MRTI,

”0,
R1

Re
7%

£10,

RO,
5%

aro
RY,

SSET CARRY

sBRANCH JF

IT TIMED T

;POINT TO NEXT DJ11 ADDRESS
SCOUNT DJ1°°S

;LO0K FOR MORE

sCOUNT DOWN DEVICES
;BRANCH IF DONE

sPOINT

T0 FIRSY DJil

DEVADR

;SAVE FIRST DJ11 ADDRESS
GO COUNT BJM11°S

UNITS

SAVE (OUNT

cRESTORE TIME-OUT (AT{HER

JBRANCH [F NOT ZERL

SREPORT

DONE

a#20,
”"e,

JRTI WHEN TIME-OUT

SCHECK FOR ANY DJ11°<

MOV
MOy
MOy
MOy

WAlT
MOV

(RQ)

DETEKMINE

MOV

#160000,R0
.,
R

00001

DJ71°S ON THE

BEING RUN UNDER ACT11 OR DDP MONITOR CONTROL.
SOME OF THE LOGIC MUST BE FUNCTIONAL OR THIS ROUTINE Will BOMR

ADD
MOV
B8R

7% :

IS ONLY USED

OCTAL # OF BR
OF CURRENT TESTING

: DECIMAL
: DEVICE

-WORD 1
.BLKW 26

PRIORITIES #

:SUBROUTINE TO AUTOMATICLY DETERMINE THE NUMBER OF
AND WHFRE THEIR INTERUPT VE(CTORS ARE.

L4174

4175
L4176

.WORD

MASK:

4144
(345
4146

4167
L4168
L4169
L170
4171
4172

TYPE

000061
000061

PRIOLO:

017222

4147
4148
4149
4150
6151
41%2
6153
41584
4155
4156
4157
4158
4159
660
6161
4162
4163
4164
«165

26-FEB=79

S ORAGE

439

4140

30A(1052

THAT NO DJ'3°S WERE

JEXIT THIS PROGRAM

FOUN

vECTOR ADDRESSES
=(SP)
N2l

DEVADR, R!

#0400, (R1)+
‘R1)+
L,

R1de

SPie,

ame(

;SAVE 10T VECTOR ON THE
¢RESET 10T VECIOR

STA(Y

;GET FIRST DJ ADR

:SET (SR

(BIT8 = TRANS SCAN ENAB.E

:Bl11%4
= TRANS INTERUPT (NAR
¢
s INC DOINTER
:SET ICR, LINE Q

JWAIT FOR AN [NTERUPT
(RESTORE [OT vEvTOR

77=r2D.A<F<C
(ZDJAF P
4.1.3?
4

4188

L"89

L19C

B, LOGIC TESIS
Q4=FEB=79 15:41

G17436

010207

{17440

162716

017444

017450

017637

022626

A;g;

0176452

000002

4193
6194
4195
4196

017454
017402
G17464

£22737
0010i6
005037

4198
4199
4200

0176476
017504
017512

142737
122737
001002

6197

017470

1147237

4201
458%

017514
017520

(C04737
000207

4206
6205

017522

000000

4207
4208
4205
4210
211
4212
4213
4214
4215
4216
4217

917524
017530
017534
Q17542
017550
017552
037554
017556
017566
217572
(017576

L206

4218

6219
4220
6221
4222
4223
4224

4225
4220

4227

017602

000207

017604
017612
017614
017626

022737
001023
00J004
013705

017824
017630

017634

004737
000006

004537

000176
017522

017604

000006
000004
017554
177777

000176
020174
000004
000006

000176

020040

042516

017676

005015

(53523

L2467

017704

000040

017522

(SP)

VECADR
(SP)+

#SWREG, SWK
1%
TMP1
#200, TMP1
#7,TMP1
18

000004

167644

001374
00137¢

SUSWRR: MOV
MOV
MOov
cMP

18:
23%:
3s:

(001376

(NTLU:

015476

000020

(SP),

(Me
BNE
CLR

JSR
RTS

PAGE

87
EG

JREPOSITION ADDRESS

;SAVE FJRST VECTOR

BEQ
8R
L
MOV
MOV
MOV
MoV

PC,CNTLU
PC

2%
38
(SP)+,(5P)+
#SWREG, SWR
#DISPREG,DISPLAY
(SP)+,4
{SP)+,6

(MP
BNE
TYPE
MOV

#SWREG
SWR
,
1%
. SWREQ
SWREG,TTY

JSR
TYPE

P{ PRINTR
LNEWIS

LWORD
BNE

TMPI
CNTLY

JSR

017664

6.~{SP)
4, ~(5P)
18,4
#-1.3SWR

(MP

RS ,READIN

#29,CHT

1%:

BEG
MOvY
RTS

CNT:

036527

NEWIS:

LASCIZ

036522

SWREQ:

LASCIZ

<15>¢<12>''SwR= '

161512

18
TMP1,25WR
P

NFw= "'

VEC

JRESET STA(K FROM ]OT

177562, TMP1

RTS

TO RV(C

JRETURN FROM INTERUPT - RESTORE

TMPY:

016042
017666

017666

LSZO

18:

(017676
000176

000000

4239

«xBDINT:

MOVB

017664

000040

(SP)+,

81(8
CMPB
BNE

4235

017674

“MP

017522

001403
013777
000207

4238

#10,

0175c2
017522

017652
017654
017662

022737

SUR

MOv

SYSTEM SIZER

177562

4231
4232
25%2

6237

00'374

15:47

RIS

000200
050007

017522
001360

017644

26=FER=79

RT]

017640
017642

L236

001362

013746
013746
012737
022777
001402
000407
022626
012737
(12737
012637
012637

30A(°052)

AUTOMATIC

000010

4228
4229
4230

MACYT!

;TYPE

SWREG IN OCTAL

sTYPE LEADING ZERC'S

STATUS

LUBE

72=C20JA<F<0
(ZDUAF PN

4262

DJ11 LOGIC TESTS
26~FEB-79 15:41

000001

MACYT1

30A(1052)

+tND

P26-FEB=79
15:47
PAGE
AUTOMATIC SYSTEM SIZER

SFQ 0087

001320

5164
39514
5174

2868

518#
8274
528#
529
5304
S31a
5324
S19#
5204
521w
5224
523«
S24m
5254
5264

1315
792

3886+
795

663
5944
S764
887

938
9%6
1059%
1095
1285
1568
1843

017226

DDD
DEFADR

002074
001370

DEVADR

001340

IDEfvEC 001372

2088+«
2354
2601
2755
2995x
3198
3332+
3711
1312+«
709
65004
¢01¥
S87#

SEQ (OBE

699#

2997
3740n
625+

7874
41514

1364

2815«

3641

3360+

3361

3425+

3449+

3509+

3529«

3545

1044

1176

1266

1284

1325

1399

2671

2741

3742

3764

3774

1044+

3784
875
933
997
1045

1525
1770+

1275+
1531
1797

3354w
6114
7651

3839

1032

1034

949

950

2193

3029

971

992

2353
3144
2511

887

1013

1046

1557

2819

3577

3732

2941
865

2272
570

2432

991
2590
886
1015
1021

1796

907

1954

928
2114
2925
794

3904+

420

694N
2823%
803~
891
949
1900=

1060+
1175+
1324~

1604

1849+
2115
2364

2637

2786
3026

3201
3333
3714+
2922+

7114

3355

3292
866

017
1717

908
2760
929

3757

2682
1875

2035

36674
7974

4230

42214
712

2871

81«

B0
928+

895+

950
1001
1061
1178
1326
1610%
1876

2125

2400

2643~
2792%
3037
3206+
33,3
3717«
3680+

9, '9»
1038
1085

31265~
1489
1764

2007+
2273
2522

2719~
2880
2143
3280
357G

3572

3865

639
¢35

’8"1

1478

2538

BRSET
CLRVEC
CNT
CNTLY
CONFIG
COUNT
(SR

000400
001000
014464
002526
017664
017604
002004
001356

628
579#
551

BITE
BIT9

784

(ROSS REFERENCE

15:47
PAGE 90
TABLE == USER SYMBOLS

BIT1
= 000002
BIT10 = 002000
BiT11 - 004000
BIT12 = 010000
BIT13 - 020000
BIT14 - 040000
BIT1S - 100000
BITZ
000004
BIT3
000010
BIT4
000020
BITS
- 0000+C
BIT6
000100
BIT7
- 000200

29224

2€-FER=79

AN 3NN —4 NNOMD
NSOV
O ONNNN

001350
002470
017304
001324
001402
000007
(16032
000001

697

1312#

30A(1052)

AN CAAINININOT
b ot b oo ot
NN OO0 M~ 0

ALMFLG
AROUND
AUTO
B.SR
BEGIN
BELL
BITYPS
BITG
=

011620

014644

26-FEB=-79 15:41

MACY11

—

AGAINZ

ALMCK

002030
004562

TESTS

AAA
AGAINT

LOGIC

0o~

(ZDJAF
.P

DJ'1

7{=CIDJA=F~C

637

640+

4165

«'78

874+

1089+
1268

2036
2283

2742
2893«
3148
3286
3582

2046
2319
2564
2745
2945
nzz
3290+
3cG

886+
937«
1046

1U9%»

1277

1558
1807

2325
2591
2748
2950
3192
329"
3635.

DJMXNODJPAR
oJIT
DONE

EMTS
END22
ENDS6

ERRGORS

ERRORS
ERROR1
ERROR?Z

FTIME

GETADR
GETLEN
GE TNUM
GE TPAR
GETVET
HLT

002400
017210
001376
000174
001364

000020
001366
001362
014376
015254
004732
014314

001312

015426
004672
011752
001400
001514
002156
001650
002242
001572
104000

LOGJC

TESIS

26-FEB=79 15:41

7724k

766+
604k
S4L7#
5984
2066
3631«
535#

INITC
INITD

INITR
INPUT

6215+

812«
2226

2303

2327+

2384

2463

3396
809+

3470
814~

3639

3670

782

1430

SEG VUBY

41334

1509

1588

1667

18¢/

2645+

1906
3588

1985

2009+

914

919
1019
1129
1270
1506
1654
1808
1925

931
1025
1138

3607

3619

13674

3611
5734
3850

1333
2956
6074
627
7264

656#

/30
6444
5044
935

015770
014550
014560
014570

2126
2243
2398
2551
2712
2883
3096
3221
3363
3486
3730
3844
3846*
5724
3986
727+
3375
2934
2861

014606
015772

2425
3712
659

014600

786

781w
3819+

5974
3640
618

1670
1824
1972

015424
015422
001310
016352

7
L
30A(1052)
26=FEB=~79
15:47 PAGE 91
CROSS REFERENCE TABLE == USER SYMBOLS

5994

1029
1152
1287
1518

HL TADR
HLT(TS
ICNT
ILLuP
INHRE
INITA
iNITB

MACY1T

1392

3840+

3861

13444

29664
796«

636

642

667

672

674

677

690

653
853
952
1040

655
868
956
1048

872
961
1064

877

889

736

752

1162
1411

1528
1681
1836
1988

2142
2290
2444
2561
2750
2900
3119
3240
3394
3501

4029

38456
3868+
3802
3879+
37114
O — 00N
VVODWNO

CEVNEW
DE VNUM
DISPLA
CISPRE
DJLEN

DJ11

AN
—
NNV

2.-CZDJA=F-0
CZDJAF
. PN

740

1182
1417

1569
1686
1841
1994

1192
1427

1575
1729
1846
1999

2004
2159
2312

2047

910

1110
1241
1490
1607
1762
1915

1003
1115

1246
1496
1648
1767
1920

2618
2772
2991
357
3296
3410
3543

2317
2472
2624
2776
3031
3162
3304
3414
3547

3810

3812+

3813~

3815

38138+

3819

3825

3858+

3935

39434

3847

38624

3808
3881+«

708

1735

1887

994
1097
1234
1449
1602
1757
1909

2075
2227
2381
2529

3405
3539

1629

1585

898

2069
2221
237
252%
2640
2789
305¢
3195
3322
3456
3594

3400
3506

2663
37224

1433

893
982
1092
1223
1444
1597
1751
1903

2063
2211
2365
2482
2635
2784
3052
3180
3314
3423
3555

2154
2306
2460
2608
2768
2987
3149

4171

1196

977
1087
1201
1439
1591
1745
1893

2053
2205
2322
2477
2630
2780
3043
3169
3309
3418
3551

2148
2300
2450
2602
2763
2977
3137
3246

973
1073

3252

2466

2164

2835
3074
3204
3327
3462
3599

2233
2387
2539
2692
2863
2078
3212
3336
34674
3615

2734

2805

1789

1947

2028

2107

2186

2265

711

729

733

737

745

747

769

1710

37204

1281

1512
1664
1814

2085
2278
2397
2945
2705
2859
3092
3217
3358
3480

3622

27-C2DJA=F=0
P11
CZDJ.AF
INTRT
INTRZ
10TRAP

[10T$

00465¢
011736
(016364

016410

ISR56

014260

KNITS

015222

KBDINT

LAD
LENGTH
LEVEL
LEVEL7=

LOP23
LoP24
LOP25
LOP26
LOP27
LOP30
LOP31
LOP32
LOP33
LOP34
LOP3S
LOP36
LOP37
LOPLO
LOP4AT

LOP42
LOPST
LOPS4
MALARM
MASK
MEOP
MSBAD

017454

015250
001200
017222
000340

005002
005172
005362
(C05552
005754
006144
006334
006524
006726
007116
007306
007476
007700
010070
010260
010450
012070
013542

MSBR

(16756
017220
016516
017117
017051

MSGCON
MSGDAS
MSGLEN
MSGLIN
MSGNUM
MSGPAR
MSGVEC
IMTITLE
N
-

016631
016676
016702
016665
0716606
(016723
(165€2
017013
000057

MSGADR

(016532

D,
"1 LOGIC

TESTS

26=FEB=79 15:41

776
1309

2919
614

4026

3567
3645
%805
831+
567#
3677
5334

14904
14794
15584
16374
17184
1797#
18764
19554

20364
21154
21944
22734
23544
24334
2512#
25914
32774
344,84
3770

1332

3648
785
765

633
694

721
726
718
656
742
644
631

AT4
11184

1693
25664
NEWIS

NINTR1
NINTR?
NOGOOD

017656

004644
(011724
002462

NOW

017216

OPEN

000000

MACY11

30A(1052)
15:47
26~FEB=-79
PAGE 92
CROSS REFERENCE TABLE =-- USER SYMBOLS

778

780

3887

3917

3918

36134
3767
3811

3799
38184

3836
3859

3854

41944

1692+
812

2010+

2328+

2653~

3814~

3820

38,2

38254

2955

2962

2972

3674+

3675«

3677

3678+

4138

9434
12914

964n
1373%

14544

1053#
1533+

13364
29594
40234
40434

1166+

700

41394
843
1401

1374~
715

2037
2116
2195
2274
2355
2434
2513
2592
3278
3512

4097
1340
L066n
L1194
L1124

L0694
4081#

3773

4089
40864
40774
L0924
4073
41024

835

11424
17724

3341
1350

4088#

8594

11654

1851#

8804

1167
19304

2654

272354

4226
1329#

42374

777
1314+
41364
5344

779
1323

7854
1332

1340

29524

30444

1480
1559
1638
1719
1798
1877
1956

264L5#
35594

3518

SEG U090

56384

01a

12064
20094

27954

1352

29064

1363

2924+

21694
3007»

9854

1375
2248
3264m

2327»
3347»

2955

2962

1077»

1100~

33664

1612#
24088
343

1691
2487»

2974

2996

3679

3517

SWREG

016527
002060
001200
001360
017524
015202
001374
000176

017676

Sw10

- 002000

SwiZ2z
Sw13
SWi4
Swi5
Sw8

= 010000
020000
= 040000
- 100000
= (00400

Swi11

SW9
TBUF
TCR

004000

- 001000
001326
001324

2360
2841
3421
583#
582#
634
657
7854

632
5034

1117
1929

2904
3871
706

5364
595
612
38¢7
6034

4210
S48%
4223
4554
4544
4534

4524
L4514
4504

(584
4L574

5804
2117«
3028~
578#
1135
1325+

1882

2396
2846
3452
825+
804+
645
695

3642

40674
832
1141
2008
3005
406834
7084
61

757

3396

3470

624+

3646%

3647

3603

2848
39554
1314
L1424
1323«
39507
39144

3866

3873

39534

4225

2921%

2923~

2924

41354

1369%

2932«

2933«

3001«

710
1485
1997

7654
1521

4008

3995~
698
1406
1918
2439
2889
3504
2920+
811~
38794
/28

36€1

858

1164

2089
3262
790

3586

3744w

38134

3821
3649

42074

793
4214
793
42394

3649
3806
3768
3841
3804

3799
3855
822+
2196+
3065+
819«
1149%
1361%

3911+

40174
707
1442
1961

2475
2898
3549
2999
823

4227
744

4011

879

1564

2518
2985
3597
3132~
2919+

2042
2554
3090
3613
3254
2999+

2078
2597

775

3880

39164

900

921
1289

3150
3627
3255+
3131»

1204
2168
3345

1255
2247
3365

2326
3429

942
1371
2407
3515

376G«

3761

3764+

3766~

3768

3800

3802

3804

4221

6224

1402+
2435~
3197~

4221
4194

4232+
4214

3836

3837

1230
2356%
3142«
1107
1154~
1451

1112%
1155
1478«

Ox
4

SPACE
SSS
STACK SUM
SUSWRR
SVLADS
SWR

015644
002472
016524
104400

1839

SEQ 0091

t 2

READS
RESTAR
RETURN
SCOPE -

001332
001330
015476

506#
3569«
3907»
3995
3986
553
5774

== USER SYMBOLS

001322

RCVLVL
RCVWEC
READIN

SWREQ

016270
016360
002344

720
1311»
769

623+
39864
3775
724
1313«
3672
1322+
3570
3911
39984
3987+
629
817x

TABLE

7
PAGE 93

bk
D NN —
o
b A9 1%21",]
NONNUNOO
NO HMOW

QABR
RBUF

(0156472

3772

716

CROSS REFERENCE

15:47

PSTEM®

PUPS
PUVECS

616

38194

26~FEB=79

= 177776

2803
5684
5694
5704
5714
S744

30A(1052)

016042
016052
017214
017230

26=FEB-79 15:41

MACY11

PRINTR
PRINTS
PRIOLO
PRIBLE

001304
001306
001314
016224

TESTS

PARIT3
PARIT4
PCNT
PDOWN®

015226

001300
001302

LOGIC

NN
= O -0
ONONO
& —

OVERS

PARITY
PARIT2

DJ*1

Rel
¥y [ B
I e nd A S AVA P o

27=-CIDJA=F=0
CZDJAf P11

3129+

1600

3130«

1643

3189+

3190+

2260+

1679

1724

1760

3526+

1803

2121
2633
3155

2157
2686
3215

2200
2714
3250

2236
2766
330C

3568«
3191«

3632
3254~

3633~
3567«

3632~

962
1453

984
1532

1005
1611
2644

2721

2793

2854

3841

3851

3855

4194

2486
3557

2565
3636

3806

3837

1720+

274k
3532»

1126
1198»
1636=

1052
1690

2279
2774
3325

2315
2782
3385

1076
1771

1850

1957~

1099

2038+

2874+

2947

1133

1134+

1769

17G6«

1266+

1284+

TESTS

26-FEB~79 15:41

1848+

THRUT

THRUZ

TIME

TIMER

TIMERA
TIMERB
TIMES
TMP1
TRAPS

TsT

004714

011774

015056

001346

001352
(001354
015252
017522
015112

002744

TST1I0
IST1T
TST12

003420
003472
003634

TSTi4
TST1S

003776
004036

IST13

IST16
TST17

TST2

003722

004124
004214

003024

2353
2852+
1334

2957
3753

5904

1969+

2698
5924
5934
3517«

4196n

620
8420

3914
10134
10594
10844
11064
11244
11494
11754

8654

TST2C
TST21
TST22

004324
Q04440
004540

TS124
TST2%
TST26
TST27

005160
005350
005540
005742

12144
12654
13094
13924
14714
1550#
16294
17104

006132

17894

TST23

1ST3

TST30

TST31
1ST32

IST33
IST34
IST3S

004770

003076

006322
006512

006714
007104
007274

TST36

007464

TST4
IST40
TST41
TST42
1ST43

003150
010056
010246
010436
010670

TST4S

011262

TST47
TSTS

011576
003222

1ST37

T5164

TST46

IST50

TST51
TST52
IST53
TST54

007666

011054

011444

012056

013042
013314
013362
013530

8864

1868#

19474

2028#
2107#
21864
22654
23464
9074
24254
25044
25834
26634

27344
28054
28614
29194
928#
3017#
32704

3353
3375#
34400

MACYT1
1875+

2405~
2868+
1342
2964
37804
1165+

2050»
2752
3745
37467
3638+

(197

37994

30A(1052)
15:47
PAGE 94
26=FERB=79
CROSS REFERENCE TABLE -- USER SYMBCLS
1927+

2432
2902~

13604

1954«

2484
2941«

2006
2511«
2994«

2035+
2563+
3024~

2087+
2590+
3258+

SEQ V092

2114w
2642+
3276+

2166+
2671«

3340+

LOGIC

N~
O
~ 00w

DJI1

wnhonry
WY -

22-C2DJA=T=0
CZDJAF P

2272+

23240
2811
3634

1811e

1890«
2652«

2791«
3581+

29834
1186+

2129~
2829
3780+
3782+
3810

4168~

1229+

2208+
2877

38204

4199

1267

1373

1414

2287+
3036

2368+
3066

2647
3283

4204

4228

232

1493

2526+
3297

1572+

2605+
3382

1651«

2646+
3448

1732

2647

2651«

Zl=-CZDJA=F-0
CZDJAF .P1N
15155

LOGIC

26~FEB-79 1

MACY11

003274
003346

= 000004

631

774

TYPLIN

TSOA
1508
T50C
TS0D
UNITS
UNITST

WAIT1
XMTLVL
XMTVEC
$ENDAD=

002124

012172
012236
012326
012542
001344
017212

017224
001342
017174

004636
001336
001334
(14450

017706

3939
756

177777

.PR

016200

016120
016076
016064
016356
016514

785
3982
761

633
3648
4010

760
782

771
41344

646
41274
1327
829+
827«
36564
541
909
997

648

650+

1310«

1367
1367«

5434
913
10G2

5464
918
1018
1137
1616
1584
1744
1908

771

1114

BIT

632

691

1286
1527
1692
1892
2052
2220
2380

PRF
.PRL
PTIT
.SAVR6
.TYPE

SEQ 0093

014054

TST6
1817

Wwiby
VECADR
VICE

c
8
30A(1052)
15:47
26-FER=79
PAGE 95
CROSS REFERENCE TABLE ~- USER SYMBOLS

013734

TSTS6

TYPE

DJ11

2544
2704
2890
3136
3287
3422
3621
3929
450

3841
3953+«
3963
3977
39574
3998
3932

1509+

1128

1374
1574
1734
1902
2062

2226
2386
2550

2711
2899
3156
3293
3461
3656
39444
451

3855
3955+
39684
40164
4047

644,

3651

4223

694
3770

3639

4169+

4226

718
3775

3839

654

811

4189~

5554
939
1039

674
951
1047

867
955
1063

1161

452

40644

1191
1448
1653
1813
1981

726

3849

871
960
1072
1195

876
972
1086
1200
1505
1669

2084
2289
2449
2617
2762
3042
3194
3335
3505
38444
3979

213
2299
2459
2623
2767
3051
3211
3357
3538
3849
3985#
456

4010
457

4014
458

3972

3973

3976+

3978

1766
1971

2141
2305
2465

2771
3055
3216
3362
3542
38504

742

3843

16443
1606

455

3956+

1166

721

1438
1601

1761
1924

2232
2392
2555
2715
2986
3161
3308
3485
3663
3954

4048

65¢
3652

1495

1663
1823
1987
2147

2311
2471
2634
2775
3077
3220
3393
3546
3852

1993

2353
2316
2476
2639
2779
3091
3227

3550
3856
4053
459

3982

765

3871

772

3929

892
981
1096
1240
1517

1680
1840

2003
2163
2328
2528
2687
2788
3106
3245
3413
3593
3862

3799

PUSH
SCOPE .
SCOP.
SDUMP
TRACE

TRNBLK

TYPEM

WRITE

$BRK
$BRK0
$BYTRF
$CATCH
$CLREG
$CMOS
SCMTAG
SUNTL
$CSREF
$DONE

$END

$EQUAT
$EXER
$FIFOV
$HD
SHLT
$I0CAT
$IOT

$SXBIN
SKRAT

$._0ADR

W
14
1X
14

iY4

3865

4224

1357

3843

1347

2980
3849
2969

3908
3928
3882

4010

533»

719

723

4002

3988

8354
835#
8354
1
8354
8354
1»
1
835#
8354

2487

1
8354

8354
835#
1%
ANV4
4414

%
1%

835#
835#
4

SRAND
SRANDS
$RCVDA
$RCVE

14
»
835#
8354

SREGB(
$REGST
$RESET
R INT
SRONL Y
$RUOR

8354
8354
835#
8354
835#
8354

$SREAD

SEQ 0094

ir
14
1%

$LVL
SMTSE
$OCTAL

$SPOWER

D
8
26=FEB=79
15:47 PAGE 97
CROSS REFERENCE TABLE =-- MACRO NAMES

30A(1052)

3847

5334

MACYTT

5334

POP

TESTS

26=FEB-79 15:41

WWANN

FILBLK

LNKBL K
ooT11
oDT11x

14
14
1%
1%
14

LOGIC

BITYPE
BLKBLK
BUF HDR
DuMP
DuMP18

DJ11

Z7=CZDJA=F=0
CZDJAF .B11

3431
3366
1053

1118

1077

1142

2654

4220
1375

2566
3644
503
3559
3007
2855
3828
537

1454

1532

1612

1693

1772

1851

880
3347

901

922

543

964

985

4018
4193

1291
1257

3945
3986

2795
1006
3916
859
1100

3518
290¢

1930

20M

2090

2169

2248

2329

2408

Z2-(ZDJA<F=Q
CZDJAF P11
$SCOPE
$SETUP
$SRATM

$SWDOC

$SWRDF

DJ11 LOGIC TESTS
26=~FEB=-79 15:41
»
»
X 4

37N

602

$SWRRR
$TRAP

1s
s

SURAT

$TYPE

$XRDY
$XRDY(

8354
8354

. ABS.

(017706

i
»

ERRORS DETECTED:

30A(1052)
26~FER=79
15:47
PAGE 98
CROSS REFERENCE TABLE -~ MACRO NAMES

447

£206

#4035

$XRDYO
$XUOR
.SCop
.SCOPE

MACY11

1206
2723

1167
3264

000
O

(ZDJAF .BIN,C
. SEQ/CRF
ZDJAF
/SOL/NL : TOU={ZD
JAF .MA(, (ZDJAF P11
RUN-TIME: 11 16 .9 SECONDS
RUN-TIME RATIG: 159/29-5.4
CORE USED:
32k
(63 PAGES)

SEW 0095