Digital PDFs

AH-8581C-MC

April 1978

89 pages

Original

5.1MB

view download

OCR Version

4.3MB

view download

Document:	CZDPCC0 DUP11 OFF LINE SDLC RECEIVER DEC 1978 bw
Order Number:	AH-8581C-MC
Revision:	000
Pages:	89
Original Filename:	CZDPCC0__DUP11__OFF_LINE_SDLC_RECEIVER__AH-8581C-MC__DEC_1978_bw.pdf

OCR Text

~ OFF LINE SDLC RECEIVER

CZDPCCO

AH-8581C-MC

DEC 1978

copvricnt 7578
FICHE 1 OF 1

EOEO0A0

MADE IN USA

(ZDOPCC

MACY11 30A(1052)
02-MAY-78
CZDPCC.P1Y
02-MAY~’8B 13:47

13:54

SEQ 0001

PAGE 2

IDENTIFICATION

THE

AND

INFORMATION

SHOULD

(ORPORATION.

NOT

FOR ANY ERRORS

PRODUCT (ODE:

A(C-8580C-M(C

PRODUCT NAME:

(2DPCCO DUP1!

DATE :

APRIL 1978

MAINTAINER:

DIAGNOSTICS

IN THIS DOCUMENT

(ONSTRUED

IS SUBJECT

OFLNE SDLC RCVR

TO CHANGE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO
THAT MAY APPEAR

WITHOUT

NOTICE

A COMMITMENT BY DIGITAL EQUIPMENT

IN THIS DOCUMENT.

RESPONSIBILITY

THE SOF TWARE DESCRIBED IN T4IS DOCUMENT IS FURNISHED UNDER
A
LICENSE
AT?E g:v
ONLY
BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH
<

TCENSE.

DIGITAL EQUIPMENT (ORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
RE%%?%ILITY
OF
ITS
SOFTWARE
ON EQUIPMENT
THAT IS NOT SUPPLIED BY
°

(C)

1975,1978 BY DIGITAL EQUIPVMENT CORPORATION

{Z0PCC

MACYY1Y

(2oPCC.P1

02-MAY-78
02-MAY-78 13:47
30A(1052)
1.0

13:54

SEQ 0002

PAGE 3

ABSTRACT

THE FUNCTION OF

THE DUP11 DIAGNOST'CS IS TO

VERIFY

THAT

THE

THE ''STATUS TABLE'' (SEE SECTION 8.4).
THE ALTERNATIVE TO
PARAMETER DIALOG IS DEFAULT PARAMETERS (SEE SECTION 8.5).

THE

THE DIAGNOSTICS
OPTION OPERATES ACCORDING TO SPE.JFICATIONS.
VERF1Y THAT THERE ARE NO MALFUNCTIONS AND THAT ALL OPERATIONS
OF THE DUP11 ARE CORRECT IN ITS ENVIROMENT. PARAMETERS MAY BE
CONFIGURATION BY
SET TO ALERT DIAGNOSTICS AS TO THE DUP11
START
ADDRESS=200,
THE PARAMETER DIALOG (LOAD
ANSWERING
EACH
THEN
AND
ANSWERED
ALL QUESTIONS SHOULD BE
ADDRESS=1).
IN
STORED
ARE
WHICH
DIAGNOSTIC WILL ‘OVERLAY'' THESE PARAMETERS

THE DIAGNOSTICS WILL RUN UP TO EIGHT
CONSECUTIVELY ADDRESSED
AND
CONSECUTIVELY VECTORED DUP11°S
IN A (CHAIN MODE, I.E.,.
RUNNING THE
DIAGNOSTIC
COMPLETELY
FOR ONE
DEVICE BEFORE
STARTING THE NEXT.

CZDPC
TESTS ALL RECEIVER SDLC FUNCTIONS IN
MAINTENANCE
INTERNAL MODE, THAT IS, LLOCKING OF THE DEVICE IS DONE BY THE

PROGRAM,

?AEF;CLOLKS
VENT.

THE

ARE

DtVICE

DONE,

AND

SET

UP,

SPECIFIC

NUMBER

A TEST IS MADE FOR A SIGNIFICANT

IN CHECKING DATA, THE SOF TWARE EMULATES THE HARDWARE AND

USES

THE
PROCESSOR CARRY BIT AFTER A ROTATE TO PROVIDE AN INPUT TO
THE RECEIVER VIA THE MAINTENANCE INPUT DATA BIT.
THE
PROGRAM

CAN
THE

THEN LOAD THE RECEIVER DATA BUFFER SERIALLY,WITHOUT USING

TRANSMITTER.

THE RECEIVER BCC IS CHECKED USING THE CRC.CCITT POLYNOMIAL
THE
SAME
WAY
AS
DATA,
WITH
ONE
EXCEPTION-=THE
BCC

CALCULATED FIRST BY THE

RECEIVER OUTPUT.

PROGRAM

AND

THEN

C(OMPARED

IN
IS

THE

CZ0PCC

02-MAY-78

MACY1Y 30A(1052)

(20PCC.P1Y

02-MAY-78 13:47

13:54

SEQ 0003

PAGE &

C2ZDPC CHECKS ALL MODEM CONTROL AND INTERRUPT LOGIC DEPENDING
ON THE PARAMETER INFORMATION SUPPLIED "HROUGH THE OVERLAY MAP,
IN ADDITION, ALL EIA GATES, WITH THE EXCEPTION OF THE DATA
GATES, ARE (HECKED.

CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS
TO ENSURE THAT IF AN ERROR
RUN IN SEQUENCE
wiLL BE DETECTED AT AN EARLY STAGE AND
gIAGNEaIS OF
THE ERROR WILL BE IMMEDIATE TO
ROBLEM.

NOTE:

THAT ARE TO BE
SHOULD OCCUR IT
ESTABLISH THAT
DISCOVERING THE

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE

THREE DIAGNOSTICS ARE:

1.
2.

(C€ZDPB [REV] BASIC AND OFFLINE TRANSMITTER TESTS
(CZDPC [REV] OFFLINE RECEIVER AND MODEM CONTROL AND

CZ0PD [REV] ?Eg%éNE SDLC AND DECMODE DATA AND FUNCTION

NOTE:

INTERRUPT TESTS

THERE IS A FOURTH PROGRAM, TAPE CZDPE [REV] WHICH IS

QUICK-VERIFY

TAPE

THAT

REQUIRES

ANSWERING A DIALOG.

THE OPERATOR TO QUICKLY
ITS FUNCTION IS TO ENABLE
DETERMINE
IF
THERE IS A PROBLEM WITH THE DEVICE.
SEE
THE DOCUMENTATION IN THAT LISTING FOR MORE

INFORMATION.

(2DPCC

MACY11

CDPCC.P1I

2.0

REQUIREMENTS

2.1

EQUIPMENT

SEQ 0004

PAGE 5

13:54

30A(1052)
02-MAY-78
02-MAY-78 13:47

ANY PDP11 FAMILY (PU (WITH MINIMUM 8Kk MEMORY)
ASRI?3
DUP

2.2

(OR EQUILIVALENT)

STORAGE

PROGRAM WILL USE

ALL

MEMORY

EXCEPT

WHERE

ABS

AND

BOO1STRAP
LGCADER
RESIDE.
LOCATION 1500 THRL 1560 ARE
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR
AFTER

THE

THE DEFAULT

DUP11

PARAMETER DIALOG HAS BEEN EXECUTE"TM OR AFTER

SETUP HAS BEEN DONE.

3.0

LOADING PROCEDURE

3.1

ME THOD

ALL PROGRAMS ARF IN ABSOLUTE FORMAT AND ARE LOADED USING THE
THE DIAGNOSTICS ARE ON A MEDIA
IF
NOTE:
ABSOLUTE LOADER.
SUCH AS DISK,
MAGTAPE,
DFCTAPE,
OR
C(CASSETTE
FOLLOW
INSTRUCTIONS FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT
SPECIFIC MEDIA.

ABSOLUTE LOADER STARTING ADDRESS = *+500
MEMORY

SIZE

(%)=

20K
24K
28K

117
137
157

12K
16K

57
77

3.1.1

PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER.

3.1.2

DEPRESS

3.1.3

'HALT'

SW UP)

(ALSO PLACE

'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

DEPRESS 'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW

BE LOADING INTO CPW)

13:54

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
C2DPCC.P11

C20PCL

4.0

SEQ 0005

PAGE 6

STARTING PROCEEDURE

SET SWITCH REGISTER TO 000200

DEPRESS °'LOAD ADDRESS' KEY AND RELEASE

SET SWR TO ZERO FOR DEFAULT PARAMETERS ESTABLISHED IN

THE

SECTION 8.5.3 FOR FULL EXPLANATION OF DEFAULT
(SEE
TAPE
PARAMETERS)
OR LEAVE
SWR BIT
7=1
TO
USE
EXISTING
PARAMETERS PREVIOUSLY SET UP BY THE DUP11 PARAMETER DIALOG

TO GO
SET SWR=1
OR A PREVIGUSLY RUN DUP11 DIAGNOSTIC.
THROUCH THE
PARAMETER DIALOG.
(IT IS NOT NECESSARY TO
INPUT NEW PARAMETCZRS FOR EACH TAFE.) (SECTION 7.2, 8.4 AND
8.5 MAY BE HELPFUL’

TYPE
THE PROGRAM WILL
DEPRESS 'START KEY' AND RELEASE.
MAINDEC MAME AND PROGRAM NAME (1F THIS WAS THE FIRST START
UP OF THE PROGRAM) AND ALSO THE FOLLOWING:
"EXAMPLE’

*MAP OF DUP11
1500
1502

1504

1506
1510

1512

STATUS'

160050
000300

CSR OF FIRST DuUP1?
VECTOR OF FIRST DUP1

140026
160060
000310
140026

STATUS AND SYNC FOR FIRST DUP11

CSR OF SECOND DUP11
VECTOR OF SECOND DUP11

STATUS AND SYNC FOR SECOND DUP11

THE ABOVE IS ONLY AN EXAMPLE!
THIS WOULD INDICATE THE
STATUS
TABLE
STARTING AT ADDRESS
1500 IN THE PROGRAM.
THE STATUS
TABLE MUST BE VERIFIED BY THE USER.
FOR
INFORMATION ON
THE
STATUS TABLt SEE SECTION 8.4 FOR HELP.

IT IS POSSIBLE FOR THE OPERATOR TO MANJALLY CHANGE (TOGGLE IN)

THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION OF

DEVICES, BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION
RESTS WITH THE OPERATOR.

THE PROGRAM WILL TYPE
4.1

'R' AND PROCEED TO RUN THE DIAGNOSTIC

CONTROL SWITCH SETTINGS

SW
SW
SWw
SW
SWw
SW
SW
SWw
SW
SWw
SW

15
14
13
12
17
10
09
08
07
06
05

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

HALT ON ERROR
LOOP ON CURRENT TEST
[INHIBIT ERROR PRINT 0OUT
INHIBIT TYPE OUT/BELL ON ERROR.
INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST ON ERROR
LOOP wlTH CURRENT DATA
CATCH ERROR AND LOOP ON 1T
USE PREVIOUS STATUS TABLE.
RESERVED
RESERVED

CIDPCC

MACY1Y 30A(1052)

(zopPcc.P1?

_02-MAY-78

02-MAY-78 13:47
SW 04

Sw 03
Sw 02
SWw 01
SWw 00

SET:

SET:
SET:
SET:
SET:

SEQ 0006

PAGE 7

*3:54

RESERVED

SELECT DUP11°'S DESIRED AlTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
ENTER PARAMETERS USING MANUAL DIALGG

SWITCHES 8 THROUGH 15 ARE DYNAMIC AND SHOULD BE USED AS NEEDED
IN THE DIAGNOSTIC. SWITCHES O THROUGH 3 ARE STATIC (ONLY ARE
OPERABLE WHEN THE MONITCR PORTION OF THE TAPE IS RUNNING) AND
SHOULD TI%E
TIAGNOSTIC.

4.1.2

SET

PRIOR

STARTING

RESTARTING

THE

SWITCH REGISTER RESTRICTIONS

Sw 03

THAT A
PLEASE NOTE
RESELE(CT DUP11°'S DESIRED ACTIVE.
REGISTER
SWITCH
THE
TYPED OUT FOR SETTING
IS
MESSAGE
THIS MEANS IF THE SYSTEM HAS
EQUAL TO DUP11'S ACTIVE.
THREE
DUP11S BITS
00,
01,
02 WILL
'DUPACTV'
FROM THE
SWITCH REGISTER.

ALTERS

SWITCH(SW03)

THREE DUP11S

ARE

THAT
THE

LOCATION.
SYSTEM

BE SET IN LOC
USING
THIS

THEREFORE,

«x«DO

NOTw=«

SET

SHOULD

THIS
SWITCHES GREATER THAN SW 02 IN THE UP POSITION.,
WOULD BE A FATAL ERROR.
DO NOT
SELECT MORE A(CTIVE
DUP11S
THAN HAS BEEN GIVEN INFORMATION ABOQUT IN THE
PARAMETER PROGRAM.

EXPLAINED

CONSECUTIVELY

SECTION

ADDRESSED,

1.0,

AND

DESELECTED USING THIS SWITCH.
METHOD: A.

START WITH SW 03=1

PROGRAM WILL TYPE MESSAGE

NUMBER (IF VALID) WILL BE IN

SELECTED

LOAD ADDRESS 200

SW 01

DEVICES

CAN

SET THE BINARY NUMBER OF
DUP11S DESIRED
ACTIVE.
EXAMPLE:
1=1 DUP11;
3=2 DUPI1;
7=3 DUP11;
17=4
DUP11
37=5
DUP1T1
ETC.
PRESS CONTINUE.

DAIA

(EXCLUDING 11/05)
SET
WITH
ANY
OTHER
SWITCH
DESIRED.
PRESS CONTINUE.

LIGHTS
SETTINGS

STRONGLY
IS
IT
TEST.
SELECTED
RESTART PROGRAM AT
SUGGESTED
THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE
TRYING TO SELECT A TEST THAT IS NOT IN

SEQUENCE.

THE

ORDER

THE REASON FOR THIS IS THAT THE PROGRAM HAS

TO CLEAR AREAS AND SET UP PARAMETERS
IN
THE
MONITOR
PORTION OF THE PROGRAM.
IT IS POSSIBLE TO LD200, AND

RAISE SW01, THEN START, PROVIDED PARAMETERS HAVE
BEEN
PREVIOUSLY
SET UP AS DESCRIBED IN SECTION 4.0.
ALSO,
WHEN A TEST IS SELECTED,
ALWAYS
START
AT
THE
VERY
BEGINNING OF THAT TEST.

SW 09

LOOP ON CURRENT DATA.
THIS SWITCH WILL ONLY WORK
IF
THE REASOM IS THAT MOST
CALL 'SCOP1' IS IN THAT TEST.

13:54

02-MAY-78
C20PCC MACY11 30A(1052)
02-MAY-78 13:47
CZDPCC.P11

SEQ 0007

PAGE 8

TESTS DEAL WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR
RECEIVED ALL
AT ONCE, THUS I\NOWN AS BLOCK DATA--ONE

4.1.3

PATTERN CAN'T BE SINGLED OUT.

SWITCH REGISTER PRIORITIES
A)

ERROR SWITCHES

1.
2.
3.
4.
5.
B)

(SEE SECTION 4.1.3.B.1)

Sw
Sw
SW
SW
SW

SCOPE

12
13
15
08
10

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

SWITCHES

SW 09 - (IF ENABLED BY
'SCOP1')
ON AN ERROR.IF
AN
ASTERISK
'«
IS
PRINTED IN FRONT OF THE TEST NUMBER
IN THAT
[INCORPORATED
IS
10), SWO09
=TEST NO.
(EX.
TEST AND THEREFORE SWO09 IS USUALLY THE BEST SWITCH FOR
THE SCOPE LOOP (SW14=0, SW10=0, SW09=1, Sw08=0).

IF SWO9 IS NOT ENABELED AND THERE IS A +*HARD* ERROR
(CONSTANT ERROR)
SWO8 IS BEST.
(SW14=0,
sw10-0,

SW09=0, Sw08=1).

FOR INTERMITTENT ERRORS,

REGARDLESS

ERROR

SwW09=0, Sw08=1,0)

4.2

SwW14=1

WILL

NO ERROR.

LOOP

SW 14 - LOOP ON TEST.

SW 11 - INHIBIT ITERATIONS (QUICK PASS).

ONE PASS THROUGH A TEST.

TEST

SWITCH

WILL LOOP ON TEST UNTIL

IS LOWERED.

(SW14=1, Sw10-0,

ALLOWS

ONLY

STARTING ADDRESS

STARTING ADDRESS IS AT 000200.

ADDRESSES FOR Thr DUP11
NOTE:

THERE ARE

DIAGNOSTICS.

OTHER

STARTING

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

ACCORDINGLY.
AFTER *ALL* AVAILABLE DUP11'S ARE
THE PROGRAM WILL RETURN TO 'XXDP' OR 'ACT-11°,

TESTED

CZOPCC

02-MAY-78

MACY11 30A(1052)

czopPCC.P1

02-MAY-78 13:47
5.0

SEQ 0008

PAGE 9

13:54

OPERATING PROCEDURE

WHFN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN
SECTION FOUR WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING
THE DIAGNOSTIC.

5.1

PROGRAM AND/OR OPERATOR ACTION
THE

TYPICAL APPROACH SHOULD BE

1.
2.
3.
4.

HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS.
CLEAR SW 15,
(LOOP ON THIS TEST)
SET SW 14:
SET SW 1'3:

(INHIBIT ERROR PRINT 0OUT)

TYPED OUT AND POSSIBILY AN
TF3T), TO GIVE THE OPERATOR
THE
ON
DEPENDS
(THIS
ERROR MESSAGE
IS NECESSARY
IF IT
PROBLEM.
THE
OF
SOURCE
THE
TO
AS
iDEA
AN
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND
THEN
IN THIS WAY THE EXACT
ERROR REPORT.
THE
THE PC OF
NOTE
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC
THE TEST NUMBER AND PC WILL BE

IS THE HLT+2 LOCATION.

IN SOME TESTS, THERE IS A SUBROUTINE CALL THROUGH A REGISTER
(E.G..,
JSR R1,FLAG).
THE SUBROUTINE DOES THE DATA CHECKING
FOR THE TEST AND WILL REPORT AN ERROR
IF
ONE OCCURS.
THIS
MEANS
THAT
THE
FAILING TEST (OuLD BE
IN ONE PART OF THE
IN
IS
THAT FOUND THE ERROR
SUBROUTINE
LISTING WHILE THE
TO DETERMINE THE PC OF THE FAILING TEST, CHECK
ANOTHER PART.
THE REGISTER USED BY THE
SUBROUTINE.
IT WILL
CONTAIN THE
RETURN ADDRESS OF

6.0

THE FAILING TEST.

ERRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND

PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW

12=0).
IN MOST CASES ADDITIONAL INFORMATION WILL BE
SUPPLIED
TO
THE
ERROR MESSAGE
WHICH
IS
TO
GIVE
THE
OPERATOR AN
INDICATION OF THE ERROR.

6.1

ERROR RECOVERY

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

AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR

CONTROL

CPU.

THIS

SHOULD

HAPPEN

REGAIN

LOOK IN LOCATION

"TSTNO' FOR THE NUMBER OF THE TEST THAT
WAS RUNNING AT
THE
TIME
OF THE CATASTROPHIC ERROR.
THIS GIVES THE OPERATOR SOME

IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF

THE ERROR.

CZDPCC MACY11 30A(1052)

02-MAY-78 13:47

RESTRICTIONS

7.1

STARTING RESTRICTIONS

SEE SECTION 4

REGARDLESS

IMPORTANT TO

PRINTED ON THE
7.2

(PLEASE).
HOW

USE

SEQ 0009

PAGE 10

7.0

THE

S ATUS

PROGRAM

LISTING

TABLE

WAS

ALONG

SHOULD

STARTED.

WITH

THE

TTY TO COMPLETLY ISOLATE PROBLEMS.

VERIFIED

ALSO,

IT 1S

INFORMATION

OPERATING RESTRICTIONS

DUP11 'PARAMETER DIALOG'' MUST BE RUN ONLY ONCE PRIOR TO THE
FIRST RUNNING OF ANY DUP11 DIAGNOSTIC IF "DEFAULT PARAMETERS'
ARE NOT USED.

IF ONLY DUP11

DJAGNOSTICS

WERE

LOADED

AFTER

DUP11 PARAMETER SETUP, AND [F (ORE MEMORY HAS NOT BEEN
CHANGED, I.E.,USE OF DIAGNOSTICS OTHER THAN DUP11 DIAGNOSTICS,
AND IF THERE WERE NO DUP11 CONFIGURATION CHANGES, THE DUP11
PARAMETER SETUP NEED NEVER BE RUN AGAIN.
HOWEVER, IF
ANY OF
THE ABOVE HAVE BEEN VIOLATED THE DUP11 PARAMETER SETUP MUST BE
RUN AGAIN BEFORE
RUNNING
THE
DIAGNOSTICS.
UNDER NORMAL

OPERATING (CONDITIONS [T SHOULD NOT BE NECESSARY TO INPUT NEW
EQSATSESRS TO SUBSEQUENT DIAGNOSTICS,
UNLESS A CHANGE
IS
v

NOTE:

AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING
THE
DEFAULT
PARAGETERS WHEN
THE PROGRAM 1S INITIALLY STARTED WITH
SWR-0.

7.3

HARDWARE CONF IGURATION RESTRICTIONS FOR THE PURPOSE OF RUNNING
MULTIPLE DUP11'S IN CHAIN MODE.
HOnWN
=
.
[)
.
.

CZoPCC.PY

13:54

02-MAY-78

CSR ADDRESSES MUST BE CONSECUTIVE.
VECTORS ARE CONSECUTIVE IF PARAMETER PROGRAM IS USED.
IN PARAMETER
SETUP
AS
TO BE
ASSUMED
S%k égMPERS ARE
LOG.

PRIORITY LEVEL MUST BE THE

SAME FOR ALL DEVICES.

02-MAY-78
CZDPCC MACY11 30A(1052)
CZOPCC.PIT
02-MAY-78 13:47

13:54

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

SEQ W10

PAGE 11

ALL DUP11 DEVICE DJAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE
(PROVIDING NO ERRORS AND SW12=0)
WITHIN & MINS.
THIS IS
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST

THE ACTUAL EXECUTION TIME DEPENDS GREATLY
POSSIBLE EXECUTION.
ON THE PDP11 CPU CONF IGURATION.

8.2

PASS COMPLETE

«EVERY* TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN
NOTE:
THIS IS TO VERIFY
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1).
THE FIRST
THEREFORE
POSSIBLE.
AS
SOON
AS
NO *HARD* ERRORS
PASS--EACH TIME PROGRAM IS STARTED--WILL BE A 'QUICK PASS'
ONTIL ALL DUP11°S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTI(
HAS
TNMPLETED
A PASS WITH
THE
NORMAL
[TERATION COUNT
(ICOUNT=5u., THE FOLLOWING IS AN EXAMPLE OF THE PRINT OUT
TO
BE EXPECTED.

END PASS CZDPCC CSR:160050 VEC:300 PASSES:000007 ERRORS:000000
NOTE :

THE NUMBERS FOR CSR An. VEC ARE NOT NECESSARILY
THE
THIS
THEY ARE ONLY FOR
DEVICE.
VALUES FOR THE
.
EXAMPLE

8.3

KEY LOCATIONS

RETURN

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN

WHEN
TEST

NEXT
TSTNO
RUN

ITERATION COUNT

IS REACHED OR IF

IS ASSERTED.

CONTAINS THE ADDRESS OF

THE NEXT

CONTAINS THE NUMBER

THE

PERFORMED.

PEFORMED.

THE BIT IN 'RUN' ALWAYS POINTS

LOOP ON

TEST

TEST
ONE

NOW

BEING

PAST

THE

(RUN)
EXAMPLE:
DUP11 CURRENTLY BEING TESTED.
/0000000001000000 MEANS THAT DUP11
NO.O5
IS
THE

DUP11

NOW RUNNING.

DUPCROO-DUPCRO7
(1500)-(1560)
THESE LOCATIONS CONTAIN THE INFORMATION NEEDED
TO
TEST UP TO 8 (DECIMAL) DUP11S SEQUENTIALY.
THEY
(ONTAIN
THE
(SR,
VECTOR AND
STATUS

CONCERNING THE CONFIGURATION OF EACH DUP11.

DUPACTV

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

INDICATES

THAT

DUP11 WILL BE TESTED IN TURN.

EXAMPLE :

(DUPACTV)

/0000000000011111

MEANS

EXAMPLE :

(DUPACTV)

/0000000000010001

MEANS

THAT DUP11 NO.

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

02-MAY-78
(ZDPCC MACY11 30A(1052)
02-MAY-78 13:47
C20PCC.P11

SEQ 00N

PAGE 12

13:54

THAT DUP11 NO.

CONTAINS THE RECEIVER (SR OF THE CURRENT DUP11

RXCSR
8.4

00,04 WILL BE TESTED.

UNDER TEST.

MORE ON THAT °‘STATUS TABLE'
'MAP OF DUP11
1500
1502
1504

(1500-1560)

STATUS'

160050
000300
140000

THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 8
DUP11*'S IN THE SYSTEM (THESE WILL FOLLOW UNDER THIS TABLE).
EXPLANATION:

1500

160050

1502

000300

1504

140026

THIS IS THE SYSTEM CONTROL
1ST DUP11

IN THE

THIS IS VECTOR

SYSTEM,

SYSTEM.

THE

STATUS

FOR

‘A’ FOR THE FIRST DUP11

THIS REPRESENTS SYNC AND SOFTWARE
THE

FOR

FIRST DUP.

THE BITS ARE AS FOLLOWS:

BIT
BIT
BIT
BIT
BIT
BIT
8IT
BIT
81T

SET:
15
SET:
14
13 SET:
SET:
12
SET:
11
10 SET:
09 SET:
SET:
08
07-00

OPTIONAL CLEAR JUMPER IN
TURNAROUND CONNECTOR ON

SYNC CHARACTER FOR DECMODE TESTS.

THE ABOVE IS REPEATED FOR EACH DUP11

IN THE SYSTEM.

THE TABLE

IS FILLED BY DEFAULT PARAMETERS OR BY THE MANUAL PARAMETER
INPUT AS DESCRIBED PREVIOUSLY.
ALSO,
IF DESIRED BY THE
USER = THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO
SUIT THE SPECIFIC CONFIGURATION, THUS MAKING EACH DEVICE MAP
DIFFERENT.
IT IS THE RESPONSIBILITY OF THE OPERATOR TO VERIFY
THE

DATA

IN THE MAP,

8.5

METHOD OF

DEVELOPING DEFAULT PARAMETERS

8.5.1

DEFAULT PARAMETER ASSUMPTIONS

TOO MUCH HARDWARE WOULD HAVE TO BE ANALYZED TO
SIZE
THE
PARAME TERS.
THE
PROGRAM MUST ASSUME
THE VARIATIONS.
RESULT,

HAND

IF NOT TO YOUR SPECIFIC CONFIGURATION, MAY BE

(TOGGLE

IN)

DESIRED.

THE
THE
ALTERED

THIS WAY 95% OF THE

02-MAY-78 13:47

PARAMETER SETUP WAS
THEREFORE:

ALL

JUMPERS

CONF JGURAT ION.

ARE

DONE

THE

PROGRAM

ASSUMED

W1=SECONDARY REC ENABLE
w2=SEC REC DISABLE
wW3-CLEAR OPTION
wW4=SEC TX ENABLE
W5=DSC A CONTROL
w6 A+B DS CONTROL
W7~BUS GRANT CONTROL

3)
&)

x 2Z

CZDPCC.P1

SEQ 0012

PAGE 13

13.54

AND

YOuU.

FOLLOWING

THE

ouT

X
> >

02-MAY-78

MACY11 30A(1052)

CZOPCC

THE H325 TURN AROUND CONNECTOR IS ASSUMED TO BE ON.

THE MANUFACTURING OPTION (SR OF 160050 AND VECTOR

ARE

USED.

770

THE BR LEVEL 1S ASSUMED TO BE 5.

IN ALL ADJUSTMENTS PLEASE REFER TO

DETAIL.

SECTION

8.4

FOR

GREATER

{

CZDPCC MACY1T1 30A(1052)
cZoPCC.P1N

02-MAY-78

02-MAY-78 13:47

533

13:564

PAGE 14

INTRODUCTION TO DUP11 DIAGNOSTIC

:«(ZDPCCO /<377>/DUP11 OFLNE SDLC R(VR

g%g
536

537
538

;STARTING PROCEDURE
:LOAD PROGRAM

540

:PRESS START

544

JAND THEN RESUME TESTING

539

:PROGRAM WILL TYPE "‘CZDPCCO /<377>/DUP11 OFLNE SDLC RCVR *'
:PROGRAM WILL TYPE 'R'" TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE ME SSAGE

545
S46

:SWITCH REGISTER OPT]ONS

547

[~eemeeccccccscnnee——————

550
551
552
553
554
555
556
557

100000
040000
020000
010000
004000
002000
001000
000400

SW15=100000
SW14=40000
SW13-20000
Sw12-10000
Sw11=4000
Sw10=2000
Sw09=1000
Sw08=400

:=1,HALT ON ERROR
;1,L00P ON CURRENT TEST
;- 1,INHIBIT ERROR TYPEOUT
: 1,DELETE TYPEOUT/BELL ON ERROR.
: 1,INHIBIT ITERATIONS
: 1,ESCAPE TO NEXT TEST ON ERROR
:=1,L00P WITH CURRENT DATA
: 1,LO00P ON ERROR

562
563
564
565
566

000010

SW03-10

JSELECT DUP'S DESIRED ACTIVE
INOTE:THIS MUST NOT EXCEED ORIGINAL COUNT
:LOCK ON TEST SELECT
:RESTART PROGRAM AT SELECTED TEST
JENTER PARAMETERS

558
559
560
561

’

MAYNARD, MASS. 01754

:LOAD ADDRESS 000200

541
542
543

548
549

SEQ 0013

000200
000100
000040
000C20

000004
000002
000001

Sw07=200
Swo6 100
SW05=40
SW04-20

Sw02=4
SWo1-2
SW00 1

CZDOPCC MACY11 30A(1052)
02-MAY-78
02-MAY-78 13:47
C20PCC.P11
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585

586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
€01
602
603
604

605
606
607
608
609
610
611
612
613
614
615

13:54

PAGE 15

GENERAL DEFINITIONS AND EQUIVALENCIES

JREGISTER DEF INITIONS
000000
000001
000002
000003
000004
000005
000006
000007

RO=20
R1=X1
R2=%2
R3=23
R4&=X4
R5-%5
SP=%6
PC=%7

;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;GENERAL REGISTER
;PROCESSOR STACK POINTER
;PROGRAM COUNTER

177776
001150

PS=177776

;PROCESSOR STATUS WORD

STACK=1150

;START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022€26

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

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

81715=100000
BI1T14=40000
81713=20000
B1712=10000
BIT11=4000
B81710=2000
B8IT79=1000
BI78=400
BI77=200
BIT6=100

PUSH2SP=24646
POP2SP=22626

LEQUIV

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
JRESTORE RO FROM STACK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

EMT,HLT ;BASIC DEFINITION OF ERROR CALL

SEQ 0014

MACY11 30A(1052°
02-MAY-78
CZDPCC.P1I
02-MAY-78 13:47
CZDPLC

13:54

617
618
619
620
621
622
623

PAGE 16

TRAPCATCHER FOR UNEXPECTED INTERUPTS
;:ttt.fitit*tifitfifi‘tfitti.'i"'.*itttttit*tttttfittfitttt*ttfittttttt*fitttt

: TRAPCATCHER FOR ILLEGAL INTERRUPTS

;THE STANDARD ''TRAP CATCHER'' IS_PLACED

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

;;tttitt*t*fitfi.tfitt’t*tttfit*'tfittfittt*ttktittt*t*t*ttttt*t*tttttttittt

000024
000026
000030
000032
000036
000040
000042
000046

200052

000174
000176

000000

.=0

000024
005050
000340
004350
000340
004316
000340
000040
000000
000000
000000
003104
000052
000000

.=24

000174
000000

.=174

000000
000200

.=52

PFAIL
340
JHLT
340
. TRPSRV
340

;POWER FAIL HANDLER

0
0
0
$ENDAD

;SAVE FOR ACT-11 OR DDP2
JRETURN ADDRESS IF UNDER ACT-11 OR DDP2
;SAVE FOR ACT-11 OR DDP?
JFOR USE WITH ACT-11 OR DDP?2

;ACT-11 PROGRAM CHARACTERISTICS

;SERVICE AT LEVEL 7
;ERROR HANDLER
;SERVICE AT LEVEL 7
;GENERAL HANDLER DISPAT(CH SERVICE
;JSERVICE AT LEVEL 7

;SOF TWARE DISPLAY REGISTER
;SOF TWARE SWITCH REGISTER

DISPREG: 0
SWREG:
0

000200

000137

001562

001000

001000
005377

055103

001200
001202

;STANDARD INTERRUPT VECTORS

.=200

050104

.=1000

MTITLE:

JMP

.START

LASCIZ

<377><12>/CZDPCCO /<377>/DUP11 OFLNE SDLC RCVR /<377>

001200

.=1200

177570
177570

DISPLAY:
177570
SWR:

;GO TO START OF PROGRAM

;SWR AND LIGHTS
177570

211/45 CONSOLE LIGHTS
;INDIRECT POINTER TO SWITCH REGISTER

JINDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
001204
001206
001210
001212

177560
177562
177564
177566

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

sTELETYPE KEYBOARD CONTROL REGISTER
JTELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

;PROGRAM (ONTROL PARAMETERS

SEQ 0015

CZDPCC

MACY11 30A(1052)

C20PCC.P11

672
673
674
675
676
677
678
679
gg?

O02-MAY-78

02-MAY-78 13:47

001214
001216
001220
001222
001224
001226
001230
001232
001234

000000
000000
000000
000001
000000
000000
000000
000000
000000

13:54

PROGRAM PARAMETERS, VARJABLES, AND TRAP CALLS.

RETURN:
NEXT:
LOCK:
ICOUNT:
LPCNT:
TSTNO:
PASCNT:

O
0
0
1
O
O
0

:TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

:PROGRAM VARIABLES

mmm——e——m————————

685
686
687
¢88
689
690
691
692
693
694
695
696
ggg

001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266

000000
000000
000000
00000C
000000
000000
000000
000000
000000
000000
000000
000000
000000

TEMPT:
TEMP2:
TEMP3:
TEMPS:
TEMPS:
SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:

679

001270

000000

SAVROA: 0

;RO STORAGE

701
702
703
704

001274
001276
001300
001302

000000
000000
000000
000000

SAVR2A:
SAVR3A:
SAVR4A:
SAVRSA:

:R2
:R3
;R4
;RS

;8?

001306

000000

SAVPCA: 0

700

705

708
709
710
711
712
713
714

001272

001304

001310
001311
001312
001313
001314
001316

000C00

000000

000001
000001
000001
000001
000001
001316
001500

O
O
0
O
O
O
0
0
0
0
O
0
O

: TEMPORARY STORAGE
; TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY STORAGF
;RO STORAGE
;R1 STORAGE
;R2 STORAGE
:R3 STORAGE
;R4 STORAGE
;RS STORAGE
:STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

SAVR1A: 0

;R1

0
0
0
0

SAVSPA: 0

DUPACTYV: .BLKB
DUPNUM: .BLKB
SAVACT: .BLKR
SAVNUM: .BLKB
RUN:
.BLKB
.EVEN
CREAM:
DUP.MAP

SEQ 0016

;SCOPE ADDRESS FOR LOOP ON TEST
:ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
:NUMBER OF [TERATIONS THAT CURRENT TEST WILL BE EXECUTED
;NUMBER OF ITEREATIONS COMPLETED
;NUMBER OF TEST IN PROGRESS
;NUMBER OF PASSES COMPLETED

ERRCNT: O
LSTERR: 0

682

683
684

PAGE 17

STORAGE

STORAGE
STORAGE
STORAGE
STORAGE

;STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE
1
1
1
1
1

;DUP11°'S SELECTED ACTIVE.
;OCTAL NUMBER OF DUP11'S.
;ORIGINAL ACTV.
DEVICES.
;WORKABLE NUMBER.
:POINTER ONE PAST RUNNING DEVICE.
:TABLE POINTER.

CZDPCC

MACY11 30A£1052)
_02-MAY-78
02-MAY-78 13:47
CZDPCC.P1
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762

763

764
765
766

767
768
769
770

13:54
PAGE 18
PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

;CONTROL REGISTER DEFINITIONS
100000

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

040000
010000
002000
001000
000400
100C00

001000
010000
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000020
000010
000000
014000
010000
004000

:RXCSR BIT DEFINITIONS

DSCA=BIT15

;DATA SET CHANGE A

CTS=BIT13

;CLR TO SEND

RING=BIT14

CARDET=B]T1?2

;RING

:CARRIER DETECT

RECACT=BIT11
SRD=BIT10
DSR=BIT9
STPSYN=B] T8
RXDONE=BIT7
RINTEN=BIT6
DSINTE=BITS
RCVEN=BIT4
STD-BIT3
RTS=3IT2
DTR=BIT1
DSCB=BITO

JREC ACTIVE
:SEC REC DATA
;DATA SET RDY
:STRIP SYNC
;REC DONE
JREC INTR ENABLE
:DSC INTR ENABLE
JREC ENABLE
:SEC XMIT DATA
;REQ TO SEND
:DATA TERM RDY
;DATA SET CHANGE B

RXDERR=BIT15
OVRRUN=BIT14

;REC DATA ERROR
;OVERRUN ERROR

RABORT=BIT10

JREC ABORT

;RXDBUF BIT DEFINITIONS

CRCERR=BIT1?

REOM=8B]T9
RSOM=B1T8

sPARCSR BIT

DECMOD=BIT15
CRCEN=BIT9

PRISEC=BIT1?

;TXCSR BIT

TXDLAT=BIT15
MTDATA=BIT14

CLk=BIT13

s CRC ERROR

;REC END OF MESSAGE

;REC START OF MESSAGE

DEFINITIONS

;DEC MODE (DDCMP)
;CRC ENABLE
sPRI/SEC SELECT

DEFINITIONS

:TX DATA LATE
JMAINT DATA OUT

. CLK

MMODEB=8B1T12
MMODEA=BIT11

;MAINT MODE B
sMAINT MODE A

TXACT=BIT9
MRESET=BIT8
TXDONE=BIT7
TXINTE=BIT6
SEND=BIT4
HDXEN=BIT3

;TX ACTIVE
JMASTER RESET
sXMIT DONE
;XMIT DONE INTR ENABIE
s SEND
sHDX/FDX

BITW=8IT10

;BIT WINDOW INPUT

JTXCSR WRD DEF INITIONS

USER=0
MMODE=14000
MEXT=10000
SYSTST=4000

;USER MODE
JMAINT INT MODE
JMAINT EXT MODE
;SYSTEM TEST MODE

;TXDBUF BIT DEFINITIONS

100000

040000
020000
010000

RCRC7T=BIT15
RCRCIN=BIT14

TCRC7T=BIT13
TCRCIN=BIT12

SEQ 0017

CZ0PCC

MACY11 30A(1052)

CZDPCC.P11
144

774
775
776
777
778
779
780
781
782

783
784
785

786
787
788

02-MAY-78 13:47
004000
002000
001000
000400

772
773

02-MAY-78

PAGE 19
13:54
PROGRAM PARAMETERS,

001320
001322
001323
001324
001226
001330
001332
001334
001336

000000
000001
000001
000000
000000
000000
000000
000001
000001

TSOM=B]T8

VAR!ABLES, AND TRAP C(CALLS.

;TRANSMIT START OF MESSAGE

PROGRAM DEF INITIONS

TCNFLG: .BLKB 1

OPCLRJ:
DATA:
SHIFTS:

.BLKB 1
O
.WORD
O
.WORD

STUMFL:
SRUMFL:

.BLKW 1
.BLKWw 1

MIND:
FLAG:

.WORD
.WORD

JMAINTENANCE TIMER
; TRANSMIT ABORT
;TRANSMIT END OF MESSAGE

TIMER=BIT11
TABORT=BIT10
TEOM=BIT9
;MISC.

0
O

SEQ 0018

CZDPCC

MACY11 30A(1052)

CZ0PCC.P11

02-MAY-78

02-MAY-78 13:47

13:54

793

001340

000

795
796
797
798

001342
001343

000
000

001341

799

000

000000

gg?

;PROGRAM INITIALIZATION FLAG

LOKFLG: .BYTE
QV.FLG: .BYTE

0
0

;LOCK ON CURRENT TEST FLAG
;QUICK VERIFY FLAG.
:ON FIRST PASS OF EACH DUP11 ITERATIONS
;WILL BE SUPPRESSED

001344

810

(€0134

.EVEN

$v=0

001346

106601
003312
1064402

SCOP1=TRAP+1
.SCOP1
TYPE-TRAP+?2

:CALL TO LOOP ON CURRENT DATA HANDLER

104403

INSTR=TRAP+3

;CALL TO ASCII STRING INPUT ROUTINE

1046404

INSTER=TRAP+4

:CALL TO INPUT ERROR nANDLER

104405

PARAM-TRAP+5S

;CALL TO NUMERICAL DATA INPUT ROUTINE

104406

SAVOS5=TRAP+6

:CALL TO REGISTER SAVE ROUTINE

104407

RESOS5=TRAP+7

:CALL TO REGISTER RESTORE ROUTINE

104410

CONVRT-TRAFP+10

:CALL TO DATA OUTPUT ROUTINE

1046411

CNVRT=TRAP+11

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

104412

PKCLK=TRAP+12

;CALL TO CLOCK ROUTINE

104413

SETFLG=TRAP+13

;CALL TO TELETYPE INPUT ROUTINE

003160

003412

818

001354

003516

820

001356

003536

822

001360

003736

824

001362

003776

826

001364

004030

828

001366

004034

830

001370

005006

832
833

001372

004242

823
825

827

829

831

003336

=X 272

835

ettt

;CALL TO SCOPE LOOP AND ITERATION HANDLER

001352

821

.TRPTAR:

SCOPE-TRAP+(

816

819

JERROR OCCURED FLAG

104400

001350

817

814

815

.BYTE

":tfi.Qi'**ifit"fi.'tfi*t't*"t"fitfifi'fiQ**fi**fifi**fitfi*fifittfi'fitttttfittttittt

808

811
812
813

tmadetd

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

806

809

INIFLG: .BYTE

ERRFLG:

802
803
ggg
807

SEQ 0019

;PROGRAM CONTROL FLAGS

790

794

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

789
791
792

PAGE 20

.SCOPE

.TYPE

.INSTR

.INSTER
.PARAM

. SAVO0S
.RESOS

. CONVRT
.CNVRT
PKCLK

.SETFLG

SNV

;CALL TO TELETYFPE OUTPUT ROUTINE

IVIP

SRS

ISS

N :t!tttttttttttttt*tttQt"t'ittttttt'ittt't!tt!itttfit.ilttttititttiQtt

CZDPCC

MACY11 30A(1052)
_02-MAY-78
02-MAY-78 13:47
CZDPCC.PI

13:54

PAGE 21

PROGRAM PARAMETERS, VARIABLES, AND TRAP C(CALLS.

DUPRVC:
DUPRPS:
DUPTVC:
DUPTPS:

RXCSR:
:
RXDBUF
PARCSR:
TXCSR:
:
TXDBUF
C:
DUPSE
HUPPSR:
:
HUPRBF
HUPRCR:
:
HUPTRBF
HUPTCR:

001400
001402
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426
001430

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

OOQOOOOO0

001374
001376

OOO0O

;DUP11 VECTOR AND REGISTER INDIRECT POINTERS

836

;POINTER TO DUP11 RECEIVER INTERKUPT VECTOR

;POINTER TO DUP11 RECEIVER INTERRUPT SERVICE PS

;POINTER TO DUP11 TRANSMITTER INTEPRUPT VECTOR
;POINTER TO DUP11 TRANSMITTER INTERRUPT SERVICE PS
;POINTER TO DUP11 RECEIVER STATUS REGISTER
;POINTER TO DUP11 RECEIVER DATA BUFFER

;POINTER TO DUP11 PARAMETER STATUS REGISTER
;POINTER TO DUP11 TRANSMITTER STATUS REGISTER
;POINTER TO DUP11 TRANSMITTER DATA BUFFER

;POINTER TO DUP11 SECONDARY REGISTER SELECT REGISTER
;POINTER TO PARAMETER STATUS HIGH BYTE

;POINTER TO RECEIVER BUFFER HIGH BYTE
;POINTER TO RECEIVER CONTROL REG HIGH BYTE
;POINTER TO TRANSMITTER BUFFER HIGH BYTE

;POINTER TO TRANSMITTER CONTROL REG HIGH BYTE

;DUP11 CONTROL INDICATORS FOUR CURRENT DUP11 UNDER TEST
001432

000

. A:
MASK

.BYTE 000

;LAST (HAR TO TEST AND PARITY MASK

001433

010

C(LK.A:

.BYTE 8.

;NUMBER OF CLOCKS NEEDED FOR ONE (HAR

001434

000000

L00.00: 000000

;PARAMETERS

SEQ 0020

CZDPCC

MACY11 30A(1052)
02-MAY-78
C20PCC.P11
02-MAY-78 13:47

000001
000001
000001

DUPCR?2:
DUPTRZ2:
DUP2.A:

.BLKW
.BLKW
.BLKW

001522
001524
001526

000001
000001
000001

DUPCR3:
DUPTR3:
DUP3.A:

.BLKW
.BLKW
.BLKW

001530
0N1532
001534

000001
000001
000001

DUPCR4: .BLKW
DUPTR4: .BLKW
DUP&.A: .BLKW

001536
001540
001542

000001
000001
000001

DUPCRS:
DUPTRS:
DUP5.A:

.BLKW
.BLKW
.BLKW

001544
001546
001550

000001
000001
000001

DUPCR6:
DUPTR6:
DUP6.A:

.BLKW
.BLKW
.BLKW

001552
001554
001556

000001
000001
000001

DUPCR7:
DUPTR7:
DUP7.A:

.BLKW
.BLKW
.BLKW

001560

000000

DUP.END:

— e —h

001514
001516
001520

b —

.BLKW
.BLKW
.BLKW

s CONTROL STATUS REGISTER FOR
JVECTOR “A’" FOR DUP11 NUMBER
FOR DUP11 NUMBER
sPARAMETER

NUMBER

; CONTROL STATUS REGISTER FOR
;VECTOR '‘A’* FOR DUP11 NUMBER

NUMBER

—

DUPCR1:
DUPTR1:
DUP1.A:

;PARAMETER

—

000001
000001
000001

FOR DUP11

NUMBER

— b b

001506
001510
001512

;PARAMETER

s CONTROL STATUS REGISTER FOR

— e —h

.BLKW
.BLKW

;VECTOR "A’' FOR DUP11 NUMBER

;CONTROL STATUS REGISTER 1R

NUMBER

— el ——n

DUPTRO:
DUPO.A:

NUMBER

; CONTROL STATUS REGISTER FOR

s CONTROL STATUS REGISTER FOR
;VECTOR "A’' FOR DUP1T1 NUMBER

NUMBER

d —h

878

000001
000001
000001

.=1500

DUP .MAP:
DUPCRO: .BLKW

; CONTROL STATUS REGISTER FOR
;VECTOR "A"' FOR DUP11 NUMBER
:PARAMETER FOR DUP11 NUMBER

NUMBER

;CONTROL STATUS REGISTER FOR

NUMBER

;VECTOR "A'" FOR DUP11 NUMBER
;PARAMETER

FOR DUP11

NUMBER

;VECTOR "'A'"" FOR DUP11 NUMBER
FOR DUP11 NUMBER
sPARAMETER

;PARAMETER

—

877

001500

875
B76

001500
001500
001502
001504

SEQ 0021

STATUS TABLE AND ADDRESS ASSIGNMENTS

;DUP11

FOR DUP11

NUMBER

;VECTOR "A'' FOR DUPT1 NUMBER
;PARAMETER
FOR DUP11 NUMBER

—

864
865
866
867
868
869
870
871
872
873
874

I
2
13:54
PAGE 22
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

000000

CZDPCC

)
P
g

czZopPCC.P

1
!1
$1

13:54

02-MAY-78

MACY11 30A(1052)

02-MAY-78 13:47

1
{1

1
1
r

r
r

1
1
1

1
1

1
1
1r

1r
1

1
1
1r»r

v
1r

1
1
1

PAGE 23

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

1
1
1
1
1
v
1r_r
111
RI
&
T
S
I
G
E
R
L
1r»r
11111
1
1
1
1
1

1
1
1r

1
I
1
_1
I
1 _ 1
1
1
1
%]
R
O
T
C
€&
v
1«
1
1
1
1
1
1
1
1111

1
1
1
1
1
1
11
1r
1
1
1
1
1
1
1+
1
]
=~
(
N
Y
S
IGIHI
IDIEIF
IAIBIC
1

SEQ 0022

111

DEFINITIONS
==cocco===-

A- OPTIONAL CLEAR JUMPER
B~ TURNAROUND CONNECTOR
C-

IN-1
ON 1

02-MAY-78
CZDPCC MACY11 30A(1052)
CZDPCC.P11
02-MAY-78 13:47
926
927
928
929
930
931
932
933
934
935

13:54

PAGE 24

SEQ 0023

PROGRAM INITIALIZATION AND START UP.
JPRCSRAM INITIALIZATION

;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
;CLEAR PROGRAM (ONTROL FLAGS AND COUNTS
sTYPE

012737
012706
012737
113737
005037

105037
105037
012737
112737
005037
005037
012737
012737

013746
013746
012737
005777
000407
012737
012737
022626
012637
012637
105737
001401
000410
022737
001404

104402
105137
105777
100002

000006
000004
001710
177274

000176
000174

003104

032777
001002
000137
105137
112737
012700
005020
020027
001374

000001

104405
160000

002700
001332

000001
001500

001560

.START:

000024
001313

;LOCK OUT INTERRUPTS

mMovse
CLR
CLRB
CLRB

DUPNUM , SAVNUM
PASCNT
ERRFLG
QV.FLG

;SAVE NUMBER OF DEVICES IN SYSTEM
;CLEAR PASS COUNT
;CLEAR ERROR FLAG
sZERO QUICK VERIFY FLAG

12%:

13%:

11%:

177174

10%:

aSWR

;SAVE CURRENT VECTORS
;

2128, axé

“SETUP FOR TIMEOUT

JREFERENCE HARDWARE SWITCH REG

13%

;BR IF

IT EXISTS

#SWREG, SWR
POINT TO SOFT SWR
#DISPREG,DISPLAY
JPOINT TO SOFT DISPLAY REG

MOV
MOV
TST8
BEQ
BR

(SP) + ,a#4
(SP)+,a#6
INIFLG
11%
6%

BEQ

CMP

cMP

(SP)+, (SP) +

;ADJUST STACK

A#SENDAD ,a#4?

;IF ACT-11 AUTO MODE,

LMTITLE

coM8
TST8
BPL

INIFLG
aSWR
108

BIT

#5W00,aSwR

JMP

comM8

68%:

;POINT POINTER TO FIRST DEVICE.
;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE
;TESTING STARTS

MOV
Mov

BNE
JMP

001340

;GET MAP POINTER.

#1 ,RUN
ERRCNT
LSTERR
#1,TSTNO
#.START ,RETURN

TST

;SET UP STACK
;JSET UP POWER FAIL VECTOR

#DUP .MAP , CREAM

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

TYPE

6%:

#STACK,SP
#.PFAIL ,a#24

MoV
MOV

MOV

000004

000042

#340,PS

mMovB
CLR
CLR
MOV
MOV

001226
001214

001202
001200

MOV

MOV
MOV

MOV

001316
001314

001000
001340
177210

002520

005473

177776

000004
000006
001340

000137

104403

002046
002050

000340
001150
005050
001311
001230
001341
001343
001500
000001
001232
001234
000001
001562

TITLE MESSAGE

;DON'T TYPE ID

sTYPE TITLE MESSAGE

;IF NOT SET FLAG AND DO
;BIT7=12?

.+6
218

FLAG

MOVB
MOV
CLR
CMP
BNE

#1,INIFLG
#DUP .MAP RO
(RO)
+
RO,#DUP.END
68%

MCSR
PARAM
160000

sMESSAGE
;CONVERT STRING
;LOW LIMIT

INSTR

JRESTORE VECTORS
:
JHAS INITIALIZATION BEEN PERFORMED

JENTER PARAMETERS
JYES
:NO

;SET TO MANUAL ENTRY
;CLR MAP

;DONE WITH MAP?
;BR IF NO

;OUTPUT MESSAGE & GET INPUT STRING

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

02-MAY-78 13:47

982
983

002052
002054

175500
001500

985
986

002057
002060

001
104403

984

987
988
989
990
991
992

993
994

995
99¢
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014

1015
1016
1017
1018

1019
1020
1021

002056

002062
002064
002066
002070
002072
002074

002075
002076

002100
002102
002104
002106
002110
002112
002113
002114
002122
002124
(922126
002130
002132
002134
002136
002137
002140
002142
002144

001320

BYTE

.BYTE

BYTE

005525

001322

105737

1023

002172

104413

1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037

002176
002200
002202
002204
002206
002212
002214
002222
002226
002230
002236
0022446
002252

002174

JHOW MANY TIMES + 2
;OUTPUT MESSAGE & GET INPUT STRING

1
INSTR

;HOW MANY TIMES + 2
;OUTPUT MESSAGE & GET INPUT STRING

OPCLRJ

;THIS FLAG

TCNFLG

001322

T1STB

005726

104403
005761
104413
001336
105737
001403
052737
105737
001403
052737
112737
113737
113737

71$%:

100000

001504

040000
000001
001236
001236

0015 04
0013 12
0013 1M
0013 13

001322

69%:
70%:

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;SET FLAG BASED UPON INPUT STRING
;THIS FLAG

TCNFLG

718
;OUTPUT MESSAGE & GET INPUT STRING

SETFLG

,SET FLAG BASED UPON INPUT STRING

STJMFL

001323

sMESSAGE
;CONVERT STRING
;LOW LIMIT
SHIGH LIMIT
;STORE AT THIS LOCATION
sMASK
;HOW MANY TIMES + 2
TEMP2 ,PRIRTY
;SAVE PRIORITY
;OUTPUT MESSAGE & GET INPUT STRING
MESSAGE
;CONVERT STRING
;LOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
sMASK
JHOW MANY TIMES + 2
;OUTPUT MESSAGE & GET INPUT STRING
;MESSAGE
.SET FLAG BASED UPON INPUT STRING

8EQ
INSTR

MSTJM

001334

sMASK

MVEC
sMESSAGE
PARAM ; CONYERT STRING
;LOW LIMIT
300
JHIGH LIMIT
770
DUPTRO STORE AT THIS LOCATION
sMASK
1

INSTR
MTCN
SETFLG

001240

0N
104403

001410
104403

1024

1
INSTR

104403
005600
104413

BYTE

000

002156

002170

HIGH LIMIT
STORE AT THIS LOCATION

104413

00
013737
104403
005647
104405
000001
000010
001236

001323

002160

.BYTE

175500
DUPCRO

MPAR
PARAM
4
7
TEMPZ2
O
1
MOV
INSTR
MTOTAL
PARAM
1
8.
TEMP1
O
1
INSTR
MJMPR
SETFLG

002146

002150
002152
002154

BYTE

000007
001240
000

PROGRAM INITIALIZATION AND START UP.

BYTE

on
104403
005702
104405
000004

PAGE 25

.BYTE

005512
104405
000300
000770
001502
001

002164
002166

1022

02-MAY-78

13:54

.MESSAGE

;THIS FLAG

INSTR
MSRJM
SETFLG
SRJMFL
1STB
8tQ
BIS
TSTB
8EQ
BIS

;OUTPUT MESSAGE & GET INPUT STRING
;MESSAGE
;SET FLAG BASED UPON INPUT STRING
;THIS FLAG
OPCLRJ
69%
#81T15,DUPO.A
TCNFLG
70%
#31714 ,DUPO.A

MOvVB

TEMP1,SAVNUM

MOVB
MOVB

#1,SAVACT
TEMP1 ,DUPNUM

SEQ 0024

02-MAY-~78
MACY11 30A(1052)
CZDPCC
CZDPCC P11
02-MAY-78 13:47
1038
1039
1040
1041
1042

1043
1044

1045
1046

1047

1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

002260
002264
002266
002270
002274

005337
001404
000261
106137
000771

113737
113737

000241
106037
012700
012701
000241
106037
103051

01201
062721
012011
062721
012021
000764
012700
005020
020027
001374
012700
012710
012760
012760

13:54

001240
001310

001240
001500
001506

64%:

000010
000010

21%:
20%:

001500
001560

00150¢
160050
000770

000002

000005

001320

000001
001310
001311
001312
001313
001322
001323

006014
001500

000004

66%:

176536

001236
001240

000002

001236

000001

176454

005413

65%

MOvVB
?OXB
RORB
MOV
MOV
cLC
RORB
BCC
MOV
ADD
MOV
ADD
MOV
BR

w
LLR
cMP
BNE
MOV
MoV
MOV
MOV
MovB

16%:

5%:

MOVB
TYPE

MOV
MOV

BEQ
CONVRT

ASTATQ

1%:

7%:

176420

SEQ 0025

SAVA(CT

SAVACT ,TEMP?
SAVACT ,DUPA(CTV

TEMP2
663
(RO)+,(R1)
#10,(R1)+
(RO)+, (R1)
210, (R1)+

(RC)+,(R1)+
67%

#DUP .MAP ,RO
+
(RO)
RO,ADUP.END

20
#DUP .MAP RO
#160050, (RO)
#770,2(R0O)
#160026.4(RO)
#S ,PRIRTY
#1,R0O
RO.,DUPACTV
RO .DUPNUM
RO, SAVA(CT
RO, SAVNUM
RO, TCNFLG

RO,OPCLRJ
. XHEAD

#DUP .MAP, TEMP1
aTEMP1, TEMP?
1%

BNE
JMP

43
108

TST

BNE
BIT
BEQ

TYPE

TIMES

R
#DUFPCR1

2, TEMPI
5%
#SW00, aSWR
7%

CLR

;# OF

TEMP?
#DUPCRO,RO

ADD
BR
BIT
BtQ
TSV

002000
001332
000042
000010

MoV
MOVB
MOVB
MOVB
MOVB
MOVB

001332

001030
032777
001424
104402

TEMPI
64%

67%:

001240

140026

DEC
BEQ

SEC
ROLB

001312

001312
001312

PROGRAM INITIALIZATION AND START UP.

65%:

001236

PAGE 26

;CSR
;VECIOR

;PARAME TERS

;SETUP TO CLEAR MAP
;CLEAR
;CHECK FOR FINISH
;BR IF MORE TO GO
sSETUP TO DEFAULT
;LOAD (SR
;LOAD VECTOR

;LOAD PARAMETERS AND SYNC
;LOAD PRIORITY
;SAVE CORE THIS WAY
;PRESET PROGRAM CONTROLS

;DITTO
;DITTO
;DITTO
;DITTO
;DITTO

.. TYPE HEADER

;SET POINTER
;SET DATA
;ALL DONE WITH DATA

"UPDATE POINTER

FLAG

3s
#SW03,aSwR
33
JMNEVW

;1S PROGRAM RUMNNING UNDER MON]TOR
:BR IF YES

:SELECT SPECIFIC DEVICES??
;BR IF NO.
:TYPE

THE MESSAGE.

02-MAY-78
MACY11 30A(1052)
CZDPCC.P1T
02-MAY-78 13:47

CZDPCC

b b D b md D o
T T T o o e o

b ed b b b e d
3 e e o b o

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

WARDRURINININDIPINININ)
b b b =
2 b b b
OV~

OO0

b b b d b d e cnd e
b d ad d e o d b ek

olole

b b
b

1094
1095

002570
002572
002574
002602
002604
002610
002612
002614

002622
002626
002632
002634
002640

002644
002646
002650
002652
002656

005000
000000
127737

101404
104402
000000

000776

117737
113700
042700
000000

012700
012701
010120
005021
022021
022700
001372

176402

N 2
13:54 PAGE 27
PROGRAM INITIALIZATION AND START UP,
CLR
HALT

001312

005254
176362

001310

2%:

177400

3s:

000300
000302

(%:

001000

aSWR, SAVA(T

MOV

R1,(R0O)+
(R1)+
(RO)+,(R1)+

MOV
MOV

CLR
cMP
CMP
BNE
;TEST

002660

002672
002676
002700
002706
002710
002714
002722
002730
002732
002740
002746
002754
002760

012737
012706
005737
001023
032777
001411
104402
012737
012737
000406
013737
013737
012737
104402

000177

000340
001150
000042

177776

000004

176274

005312

.BEGIN:

000240
000240

003306
003310
006224
005202
176230

003174
003176
001214

;STOP EVERY THING.
JRESTART THE PROGRAM AGAIN.

DUPACTV,RO

;SHOW THE USER WHAT HE SELECTED.

;GET NEW DEVICE PATTERN

aSWR,DUPACTV

JUSE ONLY LOwW BYTE.

#~(<377>.R0O

;CONTINUE DYNAMIC SWITCHES.

JPREPARE TO CLEAR THE FLOATING

#300,R0
#302,.R1

;VECTOR AREA. 300-776

;START PUTTING 'PC+2 - HALT"
;JIN VECTOR AREA.
:POP POINTERS

JALL DONE??

#1000,R0
43

;BR IF NO.

START AND RESTART

#340,PS

#STACK,SP

MLOCK

#NOP, TTST

ANOP,TTST+2

2%:

;1S THE NUMBER VALID?
;BR IF NUMBER IS OK.
;TELL USER OF INVALID NUMBER.

28
#B1T2.aSWR

1%:

«;WAIT FOR USER TO TELL WHAT DEVICES TO RUN

2%
.MERR3

anG2

003174
003176

;JERO DATA LIGHTS

CMP8
BLOS
TYPE
HALT
BR
MOVB
MovB
BIC
HALT

SEQ 0026

23
BRW,TTST
BRX,TTST+2

#CYCLE,RETURN
MR

SRETURN

)

;LOCK OUT INTERRUPTS
;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL
JBR IF YES
;CHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
;TYPE LOCK SELECTED.

;ADJUST SCOPE ROUTINE.
;JSET UP TO LOCK
s CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE
;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
;START AT '‘CYCLE'' FIND WHICH DEVICE TO TEST
;TYPE R

;START TESTING

;UPDATE PASS COUNT

;CHECK FOR EXIT TO ACT-11

;RESTART TEST

W N—=OVONONEWN
2OV NN

005037
105037
005237
013777
104402
104402
104411
104402
104411
104402
104411

104402
104411
105337

001017
112737
113737
013701
001406
000005

Lo Yo Yo

00000000
N N NNNNNNNN
00Q0

b md

b ed

b e

d md ed

b d

b D b = =2

— emd e
D e
— b wd o
d

D e emd d ) d d d D d nd and d d i d d b d cmd card = d d
D d d ed cd d D d b d d wd b b id d cod e e
D d D cod e

—

SEQ 0027

13:56
PAGE 28
END OF PASS ROUTINE

JEND OF PASS
:TYPE NAME OF "EST

NN
-2
gm\hmm\nmm\h\hmbbbbbbbbbbwgwgwg
WN=200V00NOW

()

MACY11 30A(1052)
02-MAY-78
PN
02-MAY-78 13:47

) o
D
D b —
NN

(@)
~

<
v

CZDPCC

003140
003142
003144
003146
003150
003152
003154
003156

004711
000240
000240
000240
000240
012737
000137
000001
006
001404
000001

001234
001341
001230
001230
005157
005341
003130
005347
003136
005355
003144
005366
003152
001313
000377
001311
000042

.EOP:

176172

MOV
TYPE
TYPE

CNVRT
TYPE

CNVRT
DECB
BNE
MovB
movs

001343
001313

$ENDAD:

006224
006224

CLR
CLRB
INC

001214

JSR
NOP
NOP
NOP
NOP
RESTRT: MOV
XCSR:

002

XVEC:

002

:
APASS

002

XERR:

002

MOV
BEQ
RESET

LSTERR
ERRFLG

;CLEAR LAST ERROR PC
:CLEAR ERROR FLAG

.MEPASS
MCSRX
XCSR
JMVECX
XVEC

;TYPE
;TYPE

PASCNT
PASCNT ,aDISPLAY

+MPASSX

. XPASS
+MERRX
.XERR

SAVNUM
RESTRT

#377 ,QV.FLG
DUPNUM, SAVNUM

62, R1
RESTRTY

JSHOW
;TYPE
JSHOW
;TYPE
JSHOW
: TYPE
JSHOW

END PASS
CSR

IT
VECTOR
IT
PASSES
IT
ERRORS
IT

;ARE ALL DEVICES TLESTED?
;BR IF NO.
;SET THE QUICK VERIFY FLAG.
:RESTORE THE COUNT

;CHECK FOR ACT-11 OR DDP

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

PC.(R1)

#CYCLE ,RETURN

JMP

CYCLE

.BYTE
?XCSR

6.2

.BYTE
?UPRVC

3.2

.BYTE
?ASCNT

6.2

.BYTE
ERRCNT

6.2

]

;UPDATE PASS COUNT
;DISPLAY PASS COUNT

; SCOPE LOOP AND INTERATION HANDLER
003160
003164
003166
003174
003176
003200
003204

005037
010016
032777
001407
000437
105777
100034

: CLR
.SCOPE

001234
040000
176000

176006

MoV

TTST:

8IT

BEQ
BR

1ST8
8PL

LSTERR
RO, (SP)
#8]1T14,a5WR
1%

aTKCSR

;CLEAR LAST ERROR PC

;SAVE RO ON STACK
;LOOP ON TEST?

;BR IF NO (IF LOCK SWO1 = 1;THIS LOCATION
;G0 TO 3%
;KYBD DONE?

;BR IF NO (LOCK:

(DITTO)

= 240)

HIT A KEY ON TTY TO GO TO NEXT TEST)

MACY11 30A(1052)
02-MAY-78
13:47
CZDPCC.P1I
02-MAY-78

CZDPCC

pury

—

D e

n N =P cd cd ecd d ed cd ed e

SERIRIRES
28

d b
[0 ]

1187
1188
9

1202

003206
003212
003214
003222
003224
003230
003232
003236
003244
003246
003252
003256

003262
003270
003276
003300
003302
003306
003310

017700
000415
032777
001011
105737

001406
005237
023737
001014
105037

005037
005037
012737
013737

011600
022626
000177
001407
000437

175774

004000

175760

1%:

001343
001224
001224

001222

001341
001224

001220
000050
001216

SEQ 0028

13: 5S4 PAGE 29
END OF PASS ROUTINE

2$:
001222
001214

175706

MOV
BR

@TKDBR,RO
2%

TST8
BEQ
INC

QV.FLG

8IT
BNE

tme
BNE
CLRB
CLR

CLR

3%:

BRW:
BRX:

MOV
MOV

MOV
POP2SP
JMP

1607
437

#SW11,3SWR

LPCNT
LPCNT, ICOUNT

ERRFLG
LPCNT
LOCK
#50,1COUNT
NEXT ,RETURN
(SP) ,RO

aRETURN

;CLR DONE BIT
s CONT INUE
sDELETE ITERATION (QUICK PASS)?
;BR IF YES
;HAS FIRST PASS BEEN COMPLETED?

;BR IF QUICK VERIFY
;UPDATE ITERATION COUNTER
JALL ITERATIONS DONE?
;BR IF NOT YET
;PREPARE FOR NEW TEST

;START ICOUNT AT ZERO

JRESET [TERATIONS
JGET NEXT TEST
;POP RO OFF STA(CK
;FAKE AN RTI

;GO DO THE TEST

032777
001405
005737
001402
013716
000C02

001000

175662

001220

.SCOP1: BIT
BEQ
1ST
BEQ
1%:

Qi G
P

b
md
-

MOV
RT]

#5W09,aSWR
1%
LOCK
1%
LOCK, (SP)

;1S SWO9-1(SET)?
;BR IF NOT SET.
;GOTO THE ADDRESS IN 1 OCK.
. GO BACK.

;TELETYPE OUTPUT ROUTINE

h =D

Gar

NVOONO
NS WN=0O

D ad amd

[AS1aCTaV1aNT,
N1 N1, 1 NT,N 10

;CHECK FOR FREEZE ON CURRENT DATA

010546
017605
062766
032777
001012
105715
100002

104402
105777
100375
112577

001362
012605
000002

010346
010446

000002
000002
010000

MOV

R5,-(SP)

1%:

BIT

#SW12,aSWR

175612

2%:

000000
012704

006160

#2,2(SP)

;SAVE RS ON THE STACK.

;GET ADDRESS OF MESSAGE.
;POP CVER ADDRESS.
JINHIBIT ALL PRINT OUT??

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

TST8

175606

000004
000002

82(SP) ,RS

JBR IF NUMBER IS PLUS

005136

017637
062766
104402

000002
175622

.TYPE:

%25)+.STPDBR

003434
000004

3s:

MOV

(SP) +,R5

.INSTR:

MOV

R3,-(SP)

LINST1:
.MSG:

TYPE
0

R4 ,-(SP)

@4 (SP), .MSG
#2,4(SP)
# INBUF ,R4

;BR IF NO.

JPRINT CURRENT CHAR.

;IF NOT ZERO KEEP PRINTING!
;END OF OUTPUT. RESTORE RS
;GO HOME

;SAVE R3 ON STACK
;SAVE R4 ON STACK

MACY11 30A(1052) 02-MAY-78
CZDPCC
02-MAY-78 13:47
CZ0PCC P
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275

1283
1285
1287
1288
1289

1291
1292
1293
1294
1295
1297
1298

003442
003446
003452
003454
003460
003464
003470
003472
003476
003500
003506
003510
003512
003514
003516
003520
003522

003526
003530
003532
003534

012703
105777
100375
117714
142714
122427
001417
105777
100375
017777
005303
001356
012604
012603
010346
010446
104402

000741
012604
012603
000002

13:54

000007
175532

1%:

175526
000200
000015
2%:

175512

175502

SEQ 0029

PAGE 30

END OF PASS ROUTINE

175504

MOV

#7 ,R3

BPL
mov8
81(8B
CMPB
BEQ
1ST8
8PL

18
aTkDBR, (R4)

DEC

TSTB

MOV

BNE
MOV
MoV

.INSTE: MOV

005132

aTKCSR

#200, (R4)
(R4)+,#15
INSTRZ2
aTPCSR
2%

@TKDBR,aTPDBR

18
+ ,R4
(SP)
(SP)+ ,R3

R3,-(SP)

MOV

R&4,=(SP)

.INST1

TYPE

INSTR2: MOV
E?V
1

.MQM

(SP)+ R4
(SP)+,R3

JRESTORE R4
JRESTORE R3

;CONVERT ASCII STRING TO OCTAL
003536
003540

003542
003546
003552
003556
003562
003566
003572
003576
003600
003604
003610
003612
003616
003620
003624
003626
003632
003634
003640
003642
003644
003646
003650
003652
003654

010546
010446

016605
012537
012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714
001406
006305
006305
006305
000760
104404
000750

.PARAM: MOV

000004
003726
003730
003732
003734
003735
000004
006160
000015
000060

MOV

PARAM1:

18:

000060

4(SP) ,RS
(R5)+,LOLIM
(R5)+,HILIM
+ ,DEVADR
(RS)
(R5)+,LOBITS
(R5)+,ADRCNT
RS,4(SP)

CMPB

#15, (R&)

(LR
MoV

BEQ
CMPB
BLT

PARERR:

RS
# INBUF ,R4

PARERR
(R4) ,#60
PARERR

(R4) ,A67

BGT
BICB

PARERR
#60, (R&)

BEQ
ASL
ASL
ASL
BR

LIMITS
RS
RS
RS
1%

BISB
CMPB

000015

R4 ,-(SP)

MOV
MOV
MOV
MOV
MovVB
MOVB
Mov

CMPB

000067

R5,-(SP)

INSTER

(R4)+ RS
#15, (R&)

PARAM1

JTEST TO SEE

IF NUMBER IS WITHIN LIMITS

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
CZ0PCC PN

0034656
003662
003664
003670
003672
003676

020537
101373
020537
103770
133705
001365

003730

LIMITS: (MP

RS, HILIM

003726

CMP

RS,LOLIM

BHI

BLO

BITB

003734

BNE

388

b
d ad
D
d
d
d
e
b
d
b
b
D
D
b
b

WW WWWWWWWWWWWWWWN
d b d
NN [AS] POPNOA) = = e b b
[V, N N=20OVONONSWN—-20

PARERR

LOBITS,RS

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

1306

003700
003704
003706

003712
003716
003720
00372
003724
003726
003730
003732
003734

013704

010526
062705

105337
001372
012604
012605
000002
000000
000000
000000

003732

1%:

000002
003735

MOV
MoV
ADD

DEVADR,R4
RS, (RG)+
#2 RS

MOV
MOV

+ ,R4
(SP)
(SP)+,RS

DE(CR
BNE
RTI

ADRCNT
1%

LOLIM:
O
HILIM:
O
DEVADR: 0
LOBITS: 0O
ADRCNT=LOBITS+1

000000
003735

;SAVE PC OF TEST THAT FAILED AND RO-RS
003736

016637

000004

001266

.SAVOS: MOV

4(SP) ,SAVPC

;SAVE R7 (PO)

:SAVE RO-R5

d md

SeEQ 0030

13:54
PAGE 31
END OF PASS ROUTINE

003744
003750
003754
003760
003764
003770
003774

010537
010437
010337
010237
010137
010037
000002

001262
001260
001256
001254
001252
001250

Sv05:

MOV

RS5,SAVRS

MOV

R4, SAVRS

MOV

R1,SAVR1

MOV
MOV
MOV
RTI

R3,SAVR3
R2,SAVR?2
RO, SAVRO

:SAVE RS

!SAVE R4

:SAVE R3
;SAVE R2
;SAVE R1
:SAVE RO
JLEAVE.

;RESTORE RO-R5

O VNN
WN
S NN

SANAARRRRRRIRY

—

)

d ed

1341

003776
004002
004006
004012
004016
004022

004026

013700
013701
013702
013703
013704
013705

000002

001250
001252
001254
001256
001260
001262

.RESO5: MOV

MOV
MOV
MOV
MOV

MoV
RT1

SAVRO,R0

SAVR1,R1
SAVRZ2 ,R2
SAVR3 ,R3
SAVR4 R4

SAVRS5 RS

;RESTORE RO
JRESTORE R1

JRESTORE
;RESTORE
JRESTORE
;RESTORE
;LEAVE

R?
R3
R4
RS

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
004030
004034
004036
004040

104402
010046
010146
010346

005136

.CONVR:

TYPE

.MCRLF

.CNVRT: MOV

RO,=(SP)

MOV

R3,-(SP)

MoV

R1,-(SP)

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
CZoPCC P

177770
000060

(¥,]

(=]

ADD

28:

MOV
MOVB

MOVR

MOV

006116

105337

004236

105737

004237

112723
105337

000040
004237

005337

000000

004240

000000

#177770.R3
R4

R4
R4

#MDATA ,R3
-(R0O),(R3)+

MOV
MOVB

5%:

BEQ
MOVR

6%
#040, (R3)+

6%:

BNE
CLRB

5%
(R3)

DECB
BNE

004234

DECB
TYPE

WRDCNT:

CHRCNT
48

SPACNT

JMDATA

DEC
BNE
MoV
MOV

WRDCNT
1%
(SP)+,R5
(SP)+ R4

MOV
MOV

(SP)+,R1
(SP)+,R0O

MOV

004236

(R1)+,SPACNT

a(R1)+,BINWRD

#060.R3
R3,(RO)+

TSTR

006116

(R1) +,WRDCNT
(R1) +,(HRCNT

ADD
MOVB

BIC

B8NE

104402

#2,12(SP)

. R4
BINWRD
CHRCNT.RS
#TEMP RO
R4 ,R3

DEC

012703

R4 ,~(SP)
R5,=-(SP)
)
a12(sPR

MOV
MOVB
MOV
MOV

cLc
ROR
CLC
ROR
cLc
ROR

W
~

MOV

1%:

RTI

(SP)+,R3

CHRCNT: O
+1
SPACNT=CHRCNT
BINWRD: 0

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
JBUFFER TO THE CHARACTERS 'N'' AND "Y'’
;1F THE CHARACTER IS 'N'' CLEAR THE FLAG
;IF THE CHARACTER IS """ SET THE FLAG

AEN

1403

1405

1407
1408
1409
1410

END OF PASS ROUTINE

000012

RN S e

042703
062703

012137
112137
112137
013137
013704
-

R ROINIRORRSER r‘\\:sgflmoor\JObo R

ndd
ed
wd
i
D
b cmd
ed
—t eed e

WWNIN)
— — —

38288888888 §

&
X ol
SE5udes Nelo
REEE EEEIIINIT W SISEEELTRER
- 88
SRR R W)

W
W
S
G
U
S
N
d ——d ——d T
b
ol
omd mad e
—

D P

012700

000012
000002
004234
004236
004237
004240
004240
004236
006054

SEQ 0031

PAGE 3¢

MoV
MOV

—

md —d

D w—d

N NN NN

WWIN
N NN W WWNWWW
~ N NN

1361

004060
004064
004070
004074
004100

010446
010546
017601
062766

004042
004044
004046
004052

13:54

004242
004246
004254

017605
042737
122737

000000
000040
000116

006160

LSETFLG:MOV
BIC

(MPB

a(SP) ,R5

#40, INBUF

#'N, INBUF

SIS IT N
2

MACY11 30A(1052)
02-MAY-78
CZDPCC.P11
02-MAY-78 13:47
Py

~NOAN S -

—

CZDPCC

1%
(RS)

001002

105015
000406
122737
001005
112715

062716
000002

SEQ 0032

13:54
PAGE 33
END OF PASS ROUTINE

000131

006160

177777
000002

1%:

#'Y,INBUF

2
JIS IT "Y'

2s:

#-1,(RS)
#2,(SP)

;377

3%:

104404

000752

;000

RT]

INSTER

:RETRY

SETFLG

;TRAP DISPATCH SERVICE

JARGUMENT OF TRAP 5 EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED

011646

162716

017616
006316
042716
062716
017616
000136

.TRPSR:

000002
000000

:
TRPOK

177001
001344
000000

MOV

SUB

MOV
ASL
BIC
ADD
MOV
JMP

SUBROUTINE

(SP) ,-(SP)
#2,(SP)
a(SP), (SP)
(SP)
#177001, (SP)
#.TRPTAB, (SP)

a(SP), (SP)
a(SP)+

;GET PC OF RETURN
;~PC

JGET TRP

TRAP

;MULTIPLY TRAP ARG BY 2

;CLEAR UNWANTED BITS

JPOINTER TO SUBROUTINE ADDRESS

;s SUBROUTINE ADDRESS
;GO TO SUBROUTINE

sERROR HANDLER

032777
001406

105777
100003
112777

032777
001105
021637
001404
011637
105037
104406

011605
162705

010000

.HLT:

174624

000207
0200C0

174616
174600

xBX:

001234
001234
001341
000002

177001

001040

174624

1%:

BIT
BEQ

TSTB
BPL
MOovB

BIT
BNE
CMP

BEQ
MOV
CLRB

SAV0S

MOV

SuB

MOV
ASL
ADD
ASL

BIC

024274
004566
004600
004612
001341

ADD
MoV
MOV

004612

TST

MOV
1ST8B
BEQ
BNE

#SW12,aSWR

XBX
aTPCSR
XBX
#207,3TPDBR

#Sw13, aSwR

HALTS
(SP),LSTERR
18
(SP) ,LSTERR

ERRFLG

(SP) ,RS
#2,R5
(RS) ,R4

#177001
R4
# .ERRTAB,R4
(R4)
+ ,ERRMSG
(R4)+ ,DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG

DATABP
TYPDAT

JBELL ON ERROR?
;BR IF NO BELL
;TTY READY.

;DON'T WAIT IF TTY NOT READY.
;PUSH A BELL AT

THE

TTY.

;DELETE ERROR PRINT 0OUT?

:BR IF NO PRINT OUT WANTED.

;WAS THIS ERROR FOUND LAST TIME?

:BR IF YES
;RECORD BEING HERE
;PREPARE HEADER

JSAVE ALL PROC REGISTERS
;GET THE PC OF ERROR
;GET ADDRESS OF

TRAP CALL

JGET HLT INSTRUCTION
JMULT BY TWO
,DOUBLE IT
JMULT AGAIN
;CLEAR JUNK
sGET POINTER
;GET ERROR MESSAGE
:GET DATA HEADRER
;GET DATA TABLE
;s TYPE HEADREER

;BR IF YES
;DOES DATA TABLE EX]ST?
;BR IF YES.

MACY11 30A(1052)
02-MAY-78
CZDPCC
CZOPCC P
02-MAY-78 13:47

3
PNONOND = b = ed md D D —d =D —b
NN=0O0VNOWVNEWN=O

b
b
b
b
d
D e
e
b ed e

ViV iavavivivniviinaa

1667
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

004502
004506
004512
004516
004520
004524
004530
004534
004540
004544
004550
004556
004562
004564
004566
004570
004570
004574
004576
004600
004602
004606
004610
004612

104402

005737
001402
104402
104402
104411

104402
104411
104402
112737
005737
001402

005136
005136
001220
005411
005377
005000
005466
004772
005136

177777
004566

TYPMSG:

1%:

104410
000000
104407

022737
001403
005777
100035
010046
016600
013746
013746
012737
012737
042777
000000
012637
012637
000406
000000
022626
012637
012637
012600
005237
032777
001007
032777
001407
013737
012706
000177
000002
000001
906

BEQ
TYPE
TYPE

CNVRT

TYPE
MOVB
TST
BEQ
TYPE

001341

ERRMSG: 0
WRKO.FM:
TST
BEQ

004600

104402

000000
005737
001402

TYPE
TYPE
TST

TYPE

104402
000000

005737
001402

-MCRLF
MCRLF

LOCK
1

.MASTEK
MTSTN
LXTSTN

DATAHD: 0
TYPDAT: TST
BEQ
CONVRT

004612

;TYPE

#-1,ERRFLG

sNO MORE HEADER UNLESS NO DATA TABLE.
;1S THERE AN ERROR MESSAGE?

.ERTABO
JMCRLF

ERRMSG

WRKO.FM

DATAHD
TYPDAT

DATARP

RESREG

000042

174350

000002
000004
000006
004710
000340
014000

1%:

MOV
MOV
MOV
MOV
BIC
HALT
MOV
MOV

000004
000006

174516

000006
000004
22%:

000006
000004

33%:

001232
000400

174242

002000

174232

001216
001150
1746224

001214

002

RESO5
cMp
BEQ
TST
BPL
PUSHRO
MOV

EXITER:

EXITER

2(SP) ,RO

4,-(SP)

6,-(SP)

(SP)+,6
(SP)+.,4

cMP
MOV
MOV
POPRO
INC
BIT

(SP)+,(SP)+
(SP)+.,6
(SP)+.,4

MOV
MOV

JMP

RTI
2%:
ERTABO: 1
.BYTE

ERROR MESSAGE

;DATA HEADER?
;BR [F NO

;TYPE

;

DATA HEADER

;DATA TABLE?
;BR [F NO.

. SHOW

DATA TABLE

JRESTORE

PROC

;IF ACT=11

REGISTERS

AUTO MODE--HALT

ERRCNT
:gwoa,asun
#SW10,3SWR

NEXT
,RE TURN
#STACK,SP

aRETURN

6.2

JHALT ON ERROR?
;BR IF NO HALT ON ERROR
:SAVE RO
;SHOW ERROR P(C IN DATA LIGHTS
;SAVE OLD TRAP

#22%,4
;FORCE HALT IF TIME-OUT
#340,6
.WHEN REFERENCING TX(SR
#SYSTST!MEXT,aTXCSR

33$

BNE
BIT
8tQ

1%:

aSWR

B8R

HALT

JBR IF NO.

;TYPE

1:ENDAD.8#42

PC.

JSHOW T
;GIVE A CR/LF

;

DATABP: 0

RESREG:
HALTS:

JSHOW IT

+MERRP(

TYPE

003104

SEQ 0033

PAGE 34
13:54
END OF PASS ROUTINE

JHALT

JRESTORE

TRAP

JHALT
;POP STA(K

;RESTORE TRAP
:GET RO

;UPDATE ERROR COUNT
;GOTO TOP OF TEST?
;BR IF YES
;GOTO NcXT TEST?
;BR If NO
JSET FOR NEXT

TEST

JRESET SP
;GOTO SPECIFIED TEST
JRETURN

MACY11 30A(1052)
02-MAY-78
13:47
P11
-78
CZoPCC.
02-MAY
CZDPCC

1523
1524
1525
1526
1527
1528
1529
1530
153N
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547

1548
1549
1550

1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
2)
)
2)
2)
2)
2)
)
2)
2)
)
2)

(2)

005042

005300
001366
000002

005044
005046

000240
000207

020000
020000

SAVP(
1

BYTE

TSTNO

_PKCLK: MOV
ADD

000000
000002

052777
005300
001405
042777

END OF PASS ROUTINE
XTSTN:

002

174354

2s:

3.2

SGET THE # OF TICKS TO POKE

3(SP) .RO

#2,(SP)

*POP OVER THE #

BIS

#CLK,@TXCSR

:POKE CLOCK UP

BEQ
BIC

28
#CLK,aTXCSR

*YES-GO TO 2%
:POKE CLOCK DOWN

s
174366

SEQ 0034

PAGE 35

13:54

DEC

DEC
BNE
RTI

RO
1%

‘WAIT ROUTINE

SMALL:

NOP
RTS

"ARE WE DONE?

:ARE WE DONE?
*NO-REPEAT
*RE TURN

SSTALL

RE TURN

-POWER FAIL ROUTINE
005050
005056
005060
005062
005066
005074
005076
005100

012737
000000
000005
012706
012737
104402
005141

000177

1764110

005104
005110
005114
005116
005120
005122
005126
005130

012702
012701
010122
005022
022121
022701
001372
000207

000300
000302

005132
005136
005141
005157
005202
005205

020040
005015

000077
000
053520
042777
000
051120
051516
051505
041517
051123
041505
051501
067522

377
015

051377
377
044777
052377
046377
103
126
120

051105

005060

001150
005050

000024

PFAIL: MOVT
PWRUP:

000024

HAL

RESET

MOV
no;E
TY

MPOWER

¥PWRUP , 24

:LOAD PFAIL VECTOR FOR POWER UP

#STACK, SP
¥.PFAIL. 24

‘REINIT STACK POINTER
“LOAD PFAIL VECTOR FOR POWER DOWN

;

‘WAIT TTY TO COME UP

JMP

aRETURN

CLRVEC: MOV

MOV

#300,R2
#302.,R1

JASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

<377>/PROGRAM INDICATES NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC~/

;CLRVEC,ROUTINE TO FILL COMMUNICATION VECTOR AREA WITH .+2,HALT
1%:

000776

MQM:

020122
042116

043517
043125
020124
020113
020072
020072
042523
051522

MOV
CLR
(MP
CMP
BNE
RTS

MCRLF:
MPOWER:
MEPASS:
MR:

LLASCI2
.ASCIZ
.ASCIZ
JASCIZ

MTSTPC:
MLOCK:

.ASCIZ

MERR2:
MERR3:

MCSRX:

MVE(CX:

MPASSX:
MERRX:

.ASCIZ

.ASC{%
.AS(
.AS( 12

R1,(R2)+
(R2)+
(R1)+,(R1)+
#776.R1
1%
PC

;sRZ2 COMM VECTOR AREA ADRS
JINIT R WITH ADRS OF HALT
;MOV .42 TO PC
JMOV HALT TO PC
:INC TO NEXT VECTOR AREA
JEND OF VECTOR AREA
JNO
;RETURN

<15><12>
<377>/PWR FAILED. /
<15><377>/END PASS (CZDPCC /
<377>/R/

<377>/LOCK ON SELECTED TEST/
/CSR:

/VEC:

/PASSES:
/ERRORS:

/
/

02-MAY-78
MACY11 30A(1052)
13:47
02-MAY-78
CZDPCC.P11
(ZDPCC
(2)
(2)
(2)
(2)
(2)
(2)
(2)

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

1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580

005377
005411
005413

005466

005473
005512
005525
005600
005647
005702
005726
005761
006014

124
052

377
041520
377
053377
377
044777
377
050377
051777
377
046777

006042
006044
006046
006050
006052

000002

006054

000000
006116
000000
006160
000000

006116

006160

006222

051505
000
042523
020972
042522
041505
051511
020123
020043
044522
041505
042523
050101
003

020124
020124
000
020103
040440
052040
044124
043117
051117
052040
020103
047440

MTSTN:
MASTEK:

_ASCIZ
,ASCIZ

/TEST NO:
/+/

MERRP(C:

.ASClZ

/PC:

MNEW:

MCSR:
MVEC:
MJUMPR :
MTCN:
MTOTAL:
MPAR :
MSTJUM:
MSRJM:

JASCIZ

JASCI1Z2
JASCIZ
ASClZ
JASCIZ
.ASCIZ
JASCIZ
_ASCIZ
_ASCIZ

<377>/SET SWITCH REG TO DUP11°'S DESIRED ACTIVE./
/

<377>/REC CSR ADRS /
<377>/VEC ADRS /
(Y OR N)
<377>/1S THE OPTIONAL CLR JUMPR IN?
<377>/1S THE H325 CONNECTOR ON? (Y OR N)
/
/
<377>/# OF DUP'S (IN OCTAL)
<377>/PRIORITY (4 TO 7) /
<377>/SEC TX JUMPR IN? (Y OR N) /
<377>/SEC RX JMPR IN?

(Y OR N)

XHE?D:

LASCIZ

<377>/MAP CF DUP11 STATUS/<377>

XSTATQ:

2
.BYTE

6.3

.BYTE

6.2

.EVEN

TEMP1

002
EVEN

006222
000001

SEQ 0035

13: 54 PAGE 36
END OF PASS ROUTINE

TEMP:

~.+40
MDATA:
.=.+60

TEMP?
0

:
INBUF

.+40

TRP.PC:

.BLKW 1

02-MAY-78
MACY11 30A(1052)
CZOPCC
13:47
-78
1
CZbPCC P1
02-MAY

oo
Lol

OOV

NO NS WN=O

Q [0 Yo Yo Yo Yo Yo Yo Yo Yo Yo u

N\
G
G
i QU

1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

13:54

SEQ 0036

PAGE 37

END OF PASS ROUTINE

*ROUTINE USED TO "‘CYCLE'* THROUGH UP TO EIGHT DUP11'S

:THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC
;JAND RUNS THE SPECIFIED DUP11'S.

THIS ROUTINE

#*MUST~

;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
;SETUP NECESSARY.
105737
001004

104402
000000
000776
133737
001020
000241
106137
105537
062737
022737
001360
012737
000754
000241
106137
105537
013700
062737

022737
001003
012737
012037
012037
012037
012700
013737
005237
013737
005237
013737
013737
013737
005237
013737
013737
005237
013737
005237
013737
005237
013737
005237

013737

CYCLE:

001310
005205

001314

001310

001314
001314
000006
001560

001316
001316

001500

001316

001314
001314
001316
000006
001560
001500
001404

001374
001434
000002
001404
001424
001424
001406
001406
001406
001406
001422
001422
001420
001412
001432
001430

1%:

001424

001406
001416
001410
001422

3%:

.MERR?2
.=2

RUN,DUPACTV

RUN
RUN

:DISQUALIFY CONT. SW.

;1S THIS ONE '‘ACTIVE''

;BR IF GOOD ONE FOUND.
;CLEAR PROC. CARRY BIT.
;UPDATE POINTER
;CATCH CARRY FROM RUN

RUN
RUN

JUPDATE POINTER.

CMP

#6,CREAM
#DUP
. END, CREAM

BNE

cLc

MOV

MOV
MOV
MOV
MOV
INC
MOV
INC
MOV
MOV

CREAM,RO

#DUP
.MAP , CREAM

(RO)
+ ,RXCSR
(RO) +,DUPRV(

(R0)+,L00.00

#2,RO
RXCSR,HUPRCR
HUPR(R

HUPRCR ,RXDBUF

RXDBUF

RXDBUF
, DUPSEC
RXDBUF ,PARCSR
RXDBUF ,HUPRBF

001430
001414
001414
001426

001414

001426

INC

TXCSR,HUPTCR
HUPTCR
HUPTCR, TXDBUF
TXDBUF
TXDBUF ,HUPTBF
HUPTBF

001374

001376

MOV

DUPRVC ,DUPRPS

001430

;STOP THE SHOW.

ROLB
AD(CB
MOV
ADD

MOV
B8R

Mov
INC
MOV
MOV
INC
MOV
INC
MOV
INC
MOV

001420
001412

ANY DUP11°'S TO BE TESTED?
:BR IF OK.
JNO DUP11'S SELECTED!!

;ARE

;UPDATE ADDRESS POINTER.

BNE

001316
001316

DUPACTV

#6, CREAM
#DUP.END, CREAM
1%
#DUP.MAP
, CREAM
1$

ADD
CMP

2%:

001316

TSTB

BNE
TYPE
HALT
B8R
BITR
BNE
CLC
ROLB
AD(B

HUPRBF
HUPRBF ,HUPPSR
HUPPSR, TXCSR
TXCSR

JKEEP GOING; NOT ALL TESTED FOR.
JRESET ADDRESS POINTER.
JKEEP LOOKING FOR ACTIVE DUP11
;CLEAR PROC. CARRY.

;CATCH CARRY.
;GET ADDRESS POINTER.
;UPDATE.
SALL DONE?

;BR IF NO.
JRESTORE POINTER.
;LOAD SYSTEM CTRL. REG
;LOAD VECTOR
JGET PARAME TERS

;SAVE CORE THIS WAY!
JGET E?NTROL REG HIGH BYTE

. GOT
;GET ?¥ CONTROL REG BUFFER
. GOT
;GOT SECONDARY RE.) SELECT REG
;GOT PARAMETER STATUS REGISTER
;GET ?¥ BUFFER HIGH BYTE
.GOT
. GOT PAR STATUS REG HIGH BYTE
JGET TX CONTROL REGISTER

;60T IT

cGET }¥ CONTROL REG HIGH BYTE

;GOT

JBET T¥ BUFFER
;GOT I
sGET }¥ BUFFER HIGH BYTE
.GOT

;RX VECTOR

MACY11 30A(1052)
02-MAY-78
CZDPCC
13:47
-78
CZDPCC P
02-MAY
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655

006532
006536
006544
006550
006556

060037
013737
060037
013737
060037

001376
001376

006562
006566
006572
006576
006602
006606
006610

012700
012701
012702
004737
005737
001050
032777

001434
001432
001433
006742
000042

006616
006620

001444
104402
104403
005377
104405
000001
001000
001226
000
00
012700
022710
001017
023760
001013

022760
001007
010037
104402
104402
000412
005720

020027
001352

001400
001400
001402

000002

001402

172364
7%:

.BYTE

007356
012737

5$:

001226

000002

001226

000004

007356

1682

011003
000207

172252

ADD
MOV
ADD

RO,DUPTVC
DUPTV( ,DUPTPS
RO,DUPTPS

;TX VECTOR

MOV
MOV
MOV

#.00.00,R0
. AR
#MASK
#CLK.A,RZ

;LOAD STAUS 00-00

TST
BNE
BIT

6?2
4%

B8EQ

TYPE

INSTR
MTSTN
PARAM
1
1000
TSTNO

MOV

cMP

BNE

cMpP
B8NE

MOV
TYPE
TYPE

6%:

022606

012737
000177

JRX PRIORITY LEVEL

CMP

001214
005136
005202

1679

RO,DUPRPS

JSR

.BYTE

005132

ADD

MOV

001400

005136

104402
000734

SEQ 0037

13:54
PAGE 38
END OF PASS ROUTINE

BR
TST

4% :
8%:

PC.FIX.00

#SW01,aSWR
43

JTX PRIORITY LEVEL

;PREPARE MASK.

;PREPARE (CLOCKS
;GO AND CALCULATE CONFIGURATION.

;JIF SWO1=1,GET STARTING TEST #

JMCRLF

;OUTPUT MESSAGE & GET INPUT STRING

;MESSAGE
: CONVERT STRING
;LOW LIMIT
JHIGH LIMIT
:STORE AT THIS LOCATION

s MASK

;HOW MANY TIMES + 2

#TST1,RO

#12737.,(RO)
63

TSTNO,2(R0O)

,
4 (RO)
#TSTNO
6%
RO,RETURN
JMCRLF

s SAVE PC

8%
(RO)+

CMP
BNE

RO,ATLAST+10
5%

MOV
JMP

#TST1,RETURN
aRE TURN

;PREPARE RETURN ADDRESS
;GO START TESTING.

(RO) ,R3
PC

;GET PARAMETERS.

TYPE

001214

DUPRPS ,DUPTVC(

FIX.00: MOV
5%:
RTS

+MQM

MACY11 30A(1052)
02-MAY-78
CZDPCC
02-MAY-78 13:47
czopPCC P11
1683
1684
1685
1686
1687

;ROUTINE TO DETERMINE IF BIT STUFFING IS REQUIRED

1688
1689
1690

012737
013700
012701
006000
005537
022737
003004
005037
005237

D e

e ed

) d e

aed

b d

d e

d D

D D cd e

NNN NNNNNNNNNNNNNYNY
P
i g S-S i gl SV
NN (NI

NN WN=O
ones WN=OVO

1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704

SEQ 0038

13: 54 PAGE 39
END OF PASS ROUTINE

006001
103363
000207

000010
001324
000200
001330
000005

001326

STUFCK: MOV
18:

001330

001330
001326

2s:

MOV
MoV
ROR
ADC

CMP
B8GT
CLR
INC

ROR

BCC
RTS

#8. ,SHIFTS

DATA RO
#200,R1
RO

MIND

#5 ,MIND

MIND

SHIFTS

;THIS ROUTINE POKES THE RECEIVER BIT WINDOW
;BASED ON THE INFORMATION IN DATA AND SHIFTS
007020
007026
007032
007034
007042
007044
007050
007054
007056

042777
006037
103003
052777
000240
104412
005337
001361
000201

002000
001324

172364

002000

172350

007060

012137
005037
042777
104412
052777

001244
001246
002000
000002
002000
000002
001246
000006

007070
007076
007102
007110
007114
007120
007126
007130
007136
007142
007146
007150

007152
007156
007162
007170

000002
001326

104412

1%:

BIC
ROR

BCC
8IS
NOP

PKCLK

RTS

002000
000002
001244

012137
005037
052777

RPOKE:

001244
001246
002000
000002

172314

172302

001246
172254

RFLG:
1%:

MOV
CLR

2%:

BIS

#8ITW,aTXCSR
DATA
19

#BITW,3TXCSR

.2
SHIFTS

RPOKE
R1

(R1)+,TEMP4
TEMPS
#glru.arxcsn

;GET THE # OF FLAGS
;CLEAR ONES COUNT
;SET FIRST BIT

/'tgnu,arxcsn

;LOAD THE BIT
;JPUSH OUT THE BIT

TEMPS

#6, TEMPS
2%
#glru,arxcsn

; INCREMENT 1°'S COUNTER
;:DID WE PUSH OUT 6 ONES
;NO-GO BA(CK

;SET THE LAST BIT

TEMPG

;PUSH OUT THE BIT
;JARE WE DONE WITH FLAGS?
;BR IF NO

(R1)+,TEMPS
TEMPS
#B1TW,aTXCSR

;GET THE # OF FLAGS
JCLEAR ONES COUNT
;LOAD THE BIT

1%
R1

172222

;PUSH OUT THE BIT

’

;PUSH OUT

THE BIT

02-MAY-78
MACY11 30A(1052)
c2oPCC.P1
02-MAY-78 13:47

CZDPCC

1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1791
1752

1753

1754
1755
1756
1757
1758
1759
1760
1761
1762

007174
007200
007206
007210
007216

005237

001246
000006
002000
000002
001244

007222
007226

001246
172174

007260
007260
007262

1767

1768
1769
1770
1771

1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784

1785

1786

1787
1788
1789
1790
1791
1792
1793
1794

TEMPS
#6,TEMPS
2%
#81TW,a"XCSR

s INCREMENT 1°'S COUNTER
;DID WE PUSH OUT 6 ONES
;NO-GO BA(CK
;SET THE LAST BIT

DEC

TEMP4

JARE WE DONE WITH FLAGS?

BNE
RTS

SETVEC: MOV

012577
012577
112577
112577
000205

HLT

NO.BTRAP:
HLT

000002

RTI

;PUSH OUT THE BIT
;BR IF NO

(R5) +,aDUPRV(

RTS

NO.ATRAP:

104026
000002

1%
R1

(R5)+,aDUPTVC
(RS) +,aDUPRPS

mMovB

104025

MOV
MOVB

(R5)+,aDUPTPS

;THIS ROUTINE PICKS UP THE ADDRESS OF

;THE JUMPER TABLE AND LOADS R. WITH
;THE

1763

1764
1765
1766

INC
CMP
BNE
8IC

PKCLK

007230

007232
007236
007242
007246
007252
007254
007254
007256

SEQ 0039

PAGE 40
13:54
END OF PASS ROUTINE

;OF

007264
007266
007272
007274
007300
007302

012100
105737
001406

105737

001323

007304
007310
007312
007316
007320
007322
007326
007330

000137
022020
105737
001403
011005
000137
012005
000201

007330

007332
007334
007340
007342
007344
007350
007352
007354

012100
105737
001403
011005

001403
011005

000137
022020
011005
000201

001322

001323

007330

001322

007354

JUMPER: MOV

1ST8

BEQ

1ST8
BEQ

OPCLRy
3$

MOV
RTS

2%
(RO) ,RS

JTEST CLEAR JMPER FLAG

JBRANCH [F UMPER S MISSING
.MOVE [HE DATA TO RS, BOTH JUMPER
JAND CONNECTOR ARE THERE
;POP POINTER

ggO).RS

;MOVE DATA- JUMPER (N, CONNECTOR OFF

(RO) +,R5
R1

JNO CONNECTOR OR JUMPER
;RETURN

(R1)+,RO

;GET THE POINTER ADDRESS

(RO) ,R5

JMOVE THE INFO TO RS

TCNFLG
43

JMP
(MP

6%
(RO)+, (RO)+

MOV
RTS

JTEST THE TURN AROUND CONNECTOR FLAG

(RO +, (RO)+

1518
BEQ

MoV

6$:

JBRANCH IF CONNECTOR IS MISSING

OJUMPER :MOV

48:

JMP

Mgg
38:
5%:

;GET THE TABLE ADDRESS

OPCLRY

cMP

STATE

(R1)+,R0O

TCNFLG

TSTB

8EQ
MOV
2%:

CORRECT DATA BASED ON THE

THE JUMPER AND CONNECTOR FLAGS.

(RO) ,RS
R1

;TEST CLEAR JUMPER FLAG
;BRANCH IF MISSING

;CHECK FOR TURNAROUND CONNECTOR
;BR IF MISSING
;60 BACK
;POP POINTER

;LOAD DATA TO R5
JRETUN

JRNRRANRAAARRRE
Rtttk A annn

JEST

]

vanenennnnvnnnnnnnnnncastnn

;J«TEST TO PROVE THE INTERACTION OF RECEIVER ENABLE
;*WITH REC '"VER ACTIVE AND RECEIVE START

02-MaYy-78
CZDPCC MACY11 30A(1052)
13:47
-78
P11
02-MAY
CZOPCC.

13: 54

:*OF MESSAGE
N RN AR AR

h b

Y
BeSS EREEEE

1795
1796
1797

W
=0
NOWNVES W00 ONOWNESB

R RRRRR®

IN PRIMARY MCDE.

AT ANR

2222222322223

RSS2SR 2222

D D e

SEQ 0040

AR NN
TRARARAR

TEST

E:fi'.i"ti"'t

N‘Q.t*Q.Q'fittit't!’tQfifi't'.t'ttfiQfifififiitttfittfifi't"tttttttifi'tt'.Qtfit".

b
)
d
D ed i
—

d e e

b d

00 00 00 00 0o 00 00 00 00

putr Pt Gt Qe St Pt Gt S

PAGE 41
TEST OF REC ENABLE ,RXACT,AND RSOM [N PRIMARY MODE

012737
012737
052777
004737
013703
052777
052713
052777
004137
000001

032713

001226
001216

TST1:

104006

171772
171762

004000

104003

032777
001006
012705
013703
011304

001324
000011
007020
00000

001326

171676

2%:

011304

BIS
%SR

#MMODE ,@TXCSR
R1,RFLG

;ENTER M/MODE
JPUSH OUT A FLAG

BIT

#RECACT, (R3)

JRXACT SHOULD BE CLEAR WHEN READING FLAG (HAR.

BEQ
NLT

1%
6

;BRANCH IF BIT IS OFF
;B.IT WAS SET - SHOULD BE CLEAK

MOV
JSK

#9, ,SHIFTS
R1,RPOKE

;POKE CLOCK SETUP
;PUSH DATA INTO RECEIVER

BNE

:BR IF SET

:RXDONE FAILED TO SET

CLR

DATA

#RXDONE , (R3)

;TURN OFF (RC

;sSETUP FOR CHAR

< TEST DONE

MOV
MoV

A#RXDONE ,R5
(R3) ,R&4

BIT
BNE

#RSOM, aRXDBUF
3$

JRSOM SHOULD BE SET
:BR IF SET

MOV
MOV
HLT

RXDBUF ,R3
(R3) ,R4
3

;SET UP ERROR MSG
;SET FOUND
;JRSOM FAILED TO SET

MoV

RXCSR,R3

BNE
HLT
CLR
MOV

4%
14
DATA
#9. SHIFTS

:BR IF SET
JFAILED TO SET
;SETUP FOR CHAR
;POKE CLOCK SETUP

5%
HRXDONE ,R5
(R3) ,R4
3
#RSOM,aRXDBUF

;BR IF SET
;ERROR MSG SETUP
JSET UP FOUND
JRXDONE FAILED TO SET
;RSOM SHOULD BE CLEAR

HLT

BIT

001326

4%:

JSR
BIT

000200

000400
001406

;TURN ON THE RECEIVER

H#RSOM RS

JERROR MSG SETUP
sSET UP FOUND

JSET EXPECTED

3;//////////////////////////////////////////////////////////////////////////,, +(

001404
004000

000400

#RCVEN, (R3)

RESET THE DEVICE
JWAIT FOR RESET TO FINISH
JGET THE RECEIVER CONTROL REGISTER

MOV

000400
001406

001324
000011
007020
000200

BIS

MMRESET ,@TXCSR
PC,SMALL
RXCSR,R3
#CRCEN,aPARCSR

BIT

104003

013703
032713
001001

1$:

000200
000400

#1,34TSTNO
#TST2 NEXT

BIS
JSR
MOV
BIS

172012

001401

005037
012737
004137
032713
001004
012705
011304

MOV
MOV

171602

5%:

BNE
MOV
MoV
HLT
BIT

BEQ

MoV
MOV
MOV

#RECACT, (R3)

R1.,RPOKE
#RXDONE , (R3)

10%

#RSOM,RS
RXDBUF ,R3
(R3) ,R4

;SHOULD BE SET FOR START OF FRAME

;PUSH DATA INTO RECEIVER
JRXDONE SHOULD BE SET

;THIS 1S SECOND DATA CHAR OF FRAME

JSET EXPECTED
;SET UP ERROR MSG
;SET FOUND

02-MAY-78
MACY11 30A(1052)
CZDPCC.P1IT
02-MAY-78 13:47

CZDPCC

104032

007622
007626
007632
007634
007636

013703
032713
001001
104014

HLT

10$:

001404
004000

1884
1885
1886
1887
1888

1889
1890

MOV

RXCSR,R3

;SHOULD BE SET FOR START OF FRAME

11%

;FAILED TO SET

#RECACT, (R3)

HLT

11%:

104400

SCOPE

;BR IF SET

AR RN
IRRRRRRRRANRRRAR

TEST

SRR R NN
RAKNANRRRRREARNRR

;*TEST TO PROVE THE INTERACTION OF RECEIVER ENABLE
;*WITH RECEIVER ACTIVE AND RECEIVE
;*START OF MESSAGE IN SECONDARY MODE.

;:tttfitl*fitfitt‘t't'ttkt*fitifittt*kfitttittttfittttttt.tttttttt‘tt't
TR
YR T

1867

1883

JRSOM FAILED TO CLEAR

BIT

BNE

1866

1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1580
1881
1882

SEQ 0041

I11111777717777777777. SIIIII117717777771777717777777777777777771707771717777177

007640
007646
007654
007662
007666
007672
007700
007704
007712
007720
007724
007726

012737
012737
052777
004737
013703
052777

007732
007734
007736
007740

001403
005005
011304

007742
007746
007750

032713
001401

007752
007756
007764
007770
007774
007776
010002
010004
010006
010012

005037
012737
004137
032713
001004
012705
011304

001324
000011
007020
004000

032713
001404

000200

010014
010020

012705
011304

000200

052713

052777
052777
004137
000001
032713

000002
010204
000400
005044
001404
001000
000020
010000
014000

007060

001226
001216

CRNRRARAARNCAN
*

TEST 2
x

1859
1860
1861
1862
1863
1864
1865

007620

TEST OF REC ENABLE ,RXACT,AND RSOM IN PRIMARY MODE

SARNRRANARAANAR

[

1851
1852
1853
1854
1855
1856
1857
1858

PAGE 42

13:54

ST2:

:ttittttttt*t*tlfitttt"'titttt*tfitttttttttfifitttttttttttttttttitttttit

171530

171510

171476
171472

BIS

004000

104003

3$:

000200

104003

001326

0%:

#2,aN¥TSTNO
#TST3 NEXT
#MRESET ,8TXCSR
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
PC,SMALL
JSR
JGET THE RECEIVER CONTROL REGISTER
RXCSR,R3
MOV
;TURN OFF (RC
#CRCEN,aPARCSR
BIS
;TURN ON THE RECEIVER
#RCVEN, (R3)
BIS
#PRISEC,3PARCSR ENTER SECONDARY MODE
BIS
#MMODE ,aTXCSR
;ENTER M/MODE
{SR
R1.,RFLG
JPUSH OUT A FLAG

MOV
MoV
BIS

BIT

#RECACT, (R3)

;RXACT SHOULD BE CLEAR WHEN READING FLAG CHAR.

BEQ
CLR
MOV

3s
RS

HLT

;BR IF OFF
JSET EXPECTED
;SET FOUND

BIT

#RXDONE , (R3)

5%:

;BIT WAS SET AND SHOULD BE CLEARED
;WE ARE IN SECONDARY MODE

;SHOULD BF CLEAR

4%
3

;BR IF CLEAR
;DONE IS SET - SHOULD NOT BE BECAUSE

CLR
MOV

DATA
#9. ,SHIFTS

;CLEAR DATA (HAR
;LOAD THE # OF BITS TO PUSH

MOV
MOV
HLT

ARECACT ,R5
(R3) ,R4
3

BEQ
HLT

JSR
BIT
BNE

004000

(R3) ,R4

BIT

BEQ
MOV
MoV

R1,RPOKE
#RECACT, (R3)
5%

#RXDONE , (R3)
6%

#RXDONE ,RS
(R3) ,R4

;WE ARE IN SECONDARY MODE AND HAVE NOT PUSHED DATA
;PUSH DATA TO RECEIVER
JRXACT SHOULD BE SET
:BR IF SET
sSET EXPECTED
;SET FOUND
:ACTIVE FAILED TO SET

JRXDONE SHOULD BE CLEAR

:BR IF CLEAR - THE (HAR WAS
; THE SECONDARY ADRS
JSET EXPECTED
;SET FOUND

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.P11
1907

010022

(ZDPCC

010024
010032
010034
010036
010044
010052
010056
010062
010066
010070
010074

b
D

G
G

00NN

)
b

D o

WN—=O

YellolieR
ool o Vol of e/

1908

01007¢

010100
010106
010110
010112
010120
010126
010132
010136

010142

010144
010150
010152
010154

010162
010164

010166
010172
010176
010200
010202

000400

171354

6%:

112737
012737
004137
104412
032713
001004
012705
011304
104003

000252
000010
007020
00002
000200

001324
001326

7$:

032777
001001
104021
112737
012737
004137

000400

171300

000252
000010
007020
000002
000200

001324
001326

032777
104020

1046412

032713
001004
012705
011304

104003

032777
001401

000200

HLY

BIT
BEQ
HLT
mMovB

#RSOM,aRXDBUF
’$
20
#252 ,DATA

MOV

#RXDONE ,R5

MOV
JSR
PKCLK
BIT
BNE
MOV

HLT

;DONE WAS SET AND SHOULDN'T BE - THE FIRST
;DATA WAS SECONDARY ADRS, NOT DATA TO THE BUFFER
;CHECK START OF MSG

#8.,SHIFTS
R1,RPOKE
2
#RXDONE , (R3)
12%

;BR IF CLEAR
;START OF MSG SHOULD BE CLEAR
;LOAD DATA (HAR
JLOAD CLOCK COUNT
;PUSH OUT DATA
;POKE ANOTHER FULL CLOCK
;TEST DONE
JBR IF SET

(R3) ,R4

;SET FOUND

sSET EXPECTED

;DONE FAILED TO SET AFTER PUSHING
;OUT A CHAR IN SEC. MODE

/1111117070707 77777777771771777777777777 77777777777 7777777777777777777777777;;++C
8IT
BNE
HLT
MOvB
MOV
JSR
PKCLK

#RSOM, aRXDBUF
149
21
#252,DATA
#8. SHIFTS
R1,RPOKE
,2

;RSOM CLEAR
;LOAD DATA (HAR
;LOAD CLOCK COUNT

12%:

000200

BNE
MOV

15%
#RXDONE RS

JBR IF SET
JSET EXPECTED

000400

HLT
BIT

3
#RSOM, aRXDBUF

;DONE FAILED TO SET
;RSOM SHOULD BE CLEAR

HLT

MOV
8IT
BNE

RXCSR,R3
#RECACT, (R3)
1%

14%:

8IT

#RXDONE , (R3)

MOV

171224

104032

013703
032713
001001

SEQ 00472

13: 54 PAGE 43
TEST OF REC ENABLE ,RXACT,AND RSOM IN SECONDARY MODE

104003

001401

15%:

(R3) R4

108

BEQ

;RSOM SHOULD BE SET
;BR IF SET

;PUSH OUT DATA

;POKE ANOTHER FULL CLOCK

;TEST DONE

;SET FOUND

;BR IF CLEAR

JFAILED TO CLEAR

/1111111170777 077777077777777777777777777/77777777/7777/7/7777/77/777777777777/77777
10%:

001404
004000

104014
104400

11%:

HLT

SCOPE

;SHOULD BE SET FOR START OF FRAME
:BR IF SET
JFAILED TO SET

IARARRANANRARA RN AN AR AR AR

TEST

Aanaanaatatd
A AR kAR RANN

;J*TEST TO PROVE THE INTERACTION OF REOM

;*WITH DONE
IR

.N PRIMARY MODE

ARRARR AR

RN AR A AR ANR R A NAN AR A NA N AR AN

E AR A ANRNR AR

RN RN

JIRRRRANRNRNRNR
.

; TEST 3
"

JIRKRNRNRNANRE

1955
1956

1959
1962

;;tttttttttttttttttttttttttttttttttttttttttttttttfiltttttttttttttitttt'

010204
010212
010220
010226
010232
010240
010246

012737
012737
052777
004737
052777
052777
005037

000003
010472
000400
005044
000020
001000
001236

001226
001216
171164

171144
171142

TST3:

MOV
MOV

BIS
JSR
BIS
BIS
CLR

#3,a4#TSTNO
#TST4 NEXT

#MRESET ,@aTXCSR
FC,SMALL
#RCVEN,dRXCSR
#CRCEN,3PARCSR
TEMP]

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN ON RECEIVER
;TURN OFF (RC
;BIT COUNTER

CIOPCC

MACY11 30A(1052)

cZoPCC.P1

02-MAY-78

02-MAY-78 13:47

13:54

1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983

010252
010260
010264
010266
010274
010302
010306
010314
010320
010326
010330
010332
010336
010344
010350
010354
010362
010364
010372
010376
010404

052777
004137
000001
012737
012737
0046137
042777
104412
032777
001001
104000
105777
052777
104412
005237
022737
001365
042777
104412
017737
032777

014000
007060

171132

000125
000010
007020
002000
000002
000200

001326
001326

002000
000004
171002
001000

001240
170774

1986
1987
1988

010416
010424
010426

032737
001001
104002

000200

001240

004137

007060

017737
032777
001401
104030
032737
001001
104002

170742
001000

001240
170734

000200

001240

1984
1985

1989
1990
1991

1992
1993
1994
1995
1996
1997
1998

1999
588?

010412
010414

010430

010434

010436
010444
010452
010454
010456
010464
010466

010470

001001
104001

000001

171050
002000
000002
001236
000006

171046

MOV

BNE

5%:
64$:

001236
171020

1$%:

SEQ 0043

eIs
#MMODE ,aTXCSR
JENTER MAINT MODE
JSR
R1,RFLG
;JPUSH OUT A FLAG
1
JONE FLAG
;CLEAR OUT (HAR
#125,DATA
MOV
#8. ,SHIFTS
;LOAD THE # OF (CLOCKS
;PUSH OUT THE DATA
R1,RPOKE
JSR
;CLEAR THE DATA WINDOW
#MITW,aTXCSR
BIC
PKCLK
.2
;PUSH OUT THE BIT
BIT
#RXDONE ,aRXCSR ;CHECK FOR DONE
JBR IF SET
5%
HLT
;DONE BIT ERROR
TS18
aRXDBUF
JREAD THE BUFFER
BIS
#BITW,aTXCSR
JPUT A 1 IN THE WINDOW
PKCLK
.2
JPUSH [T OUT
INC
TEMP1
JINC THE # TO DO
cMP
#6,TEMPI
;CHECK FOR FINISH
BNE
643
;JBR IF MORE TO GO
BIC
#MITW,ATXCSR
;CLEAR THE WINDOW
PKCLK, &
;PUSH OUT 2 BINTS
MOV
@RXCSR, TEMP?
JGET THE CSR
81T
#REOM, aRXDBUF
JTEST FOR END OF MSG
BNE
HLT

8IT
BNE
HLT

1%
1

#RXDONE , TEMP?
108
2

;BR IF SET
;BIT FAILED TO SET

s TEST DONE
;BR IF SET
;DONE FAILED TO SET

;//////////////////////////////////////////////////////////////////////////////;;**C
10%:
JSR
R1,.RFLG
,OUTPUT A FLAG CHAR
1

11$:

MOV
8IT
BEQ
HLT
BIT
BNE
HLT

BRXCSR, TEMP?
#REOM, aRXDBUF
11%
30
#RXDONE ,TEMP2
4%
2

;GET CSR
;REOM SHOULD BE CLEAR
;BR IF CLEAR
JREOM FAILED TO CLEAR
;RXDONE SHOULD BE SET
;BR IF SET
JFAJLED TO SET

;///////////////////////////////////////////////////////////////////////////////////
4$:
SCOPE
;SCOPE THIS TEST

104400

IRNNRANARARRRRRRRRnnnnanadn TEST 4 wxnnnnnasrsnnnannnnannnnnnns

2002

2003

;*TEST TO PROVE THE INTERACTION OF REOM
;*WITH DONE IN PRIMARY MODE

2004

J*USING A COMMON ZERQO BIT IN FLAGS.

5882

2007

IINRAARRRARARN
x
:
; TEST &
*
:

2008
2009
2010
2011
2012
2013

2014
2015
2016
2017
2018

TEST OF REOM AND DONE IN PRIMARY MODE

171076
171056

PAGE 44

JIRARRNRRARANR
RN AR
IR

010472
010500
010506
010514
010520

012737
012737

052777
004737
052777

000004
011002
000400
005044
000020

001226
001216

170676

170656

TST4:

MOV
MOV
BIS
JSR
8IS

AR AR AR

AN AR AR AR AR AR RN AR AR

AR AR AN AR R R AR R

#6 ,a#TSTNO
#TSTS NEXT
#MRESET ,@TXCSR
PC,SMALL
#RCVEN,@RXCSR

AR R A RN AR RN AR AN RO

AR R R AN R AR AN R AR AR R AR AR R AR NN R

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN ON RECEIVER

KRN R AR

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
C(ZDPCC.P1T

(ZDPCC

010526
010534
010540
010546
010552
010554
010560
010562
010570
010576
010602
010610
010614
010622
010624
010626
010634
010642
010644
010646
010654
012660
010664
(10672
010674
010702
010706
010714
010722
010724
010726
010734
010736

052777
005037
052777
004137

001000
001236
014000
007060

004137
000004
012737
012737
004137
042777

007152

010740
010744
010746
010754
010762
010764
010766

004137
000001
017737
032777
001401
104030
032737
001001

032777
001001

104000

117737
122737
001401
104010

052777
104412

005237
022737
001365
042777
104412
017737
032777
001001
104001
032737
001001

170644

104400

;TURN OFF CRC
:BIT COUNTER
;ENTER MAINT MODE
:PUSH OUT A FLAG

JSR

R1,SFLG

:PUSH OUT SPECIAL FLAGS

MOV

JSR
BIC
PKCLK
BIT

R1,RPOKE
#BITW,aTXCSR
,2
#RXDONE ,aRXCSR

(LOCKS
:PUSH OUT THE DATA
:CLEAR THE DATA WINDOW
;PUSH OUT THE BIT
;CHECK FOR DONE

aRXDBUF , TEMP

:GET DATA

001324
001326

170554

006054
006054

5%:

MOvVB

002000
000002

170536

64%:

BIS

000006

001236

002000
000004
170472
001000

170510

001240
170464

000200

001240

000125

001236

170602

BNE

:BR IF SETY

5%
HLT

HLT

#125,TEMP
64$
10

PKCLK
INC

.2
TEMPI

CMPB
BEQ

:DONE BIT ERROR

;CHECK IT
:BR IF A MATCH

:DATA COMPARE ERROR

:PUT A 1 IN THE WINDOW

#BI1TW,aTXCSR

;PUSH IT ouTt
;INC THE # T0 DO

:CHECK FOR FINISH
:BR IF MORE TO GO
:CLEAR THE WINDOW
:PUSH OUT 2 BINTS

CMP
BNE
BIC
PKCLK,

#6, TEMP1
643
#BITW, aTXCSR
&

BIT
BNE
HLT
8IT
BNE

#REOM,aPXDBUF
13
1
#RXDONE ,TEMP2
108

MOV

1%:

:ONE FLAG

4
:THE # TO DO
#125,DATA
:CLEAR OUT CHAR
MOV
#8. ,SHIFTS
;LOAD THE # OF

000125
000010
007020
002000
000002
000200

3RXCSR, TEMP?2

:GET THE CSR

;TEST FOR END OF MSG
;BR IF SET
:BIT FAILED TO SET
;TEST DONE
;BR IF SET
:DONE FAILED TO SET

4SR

R1,RFLG

;OUTPUT A FLAG CHAR

MOV

SRXCSR, TEMP?

;GET CSR

BEQ
HLT
BIT
BNE
HLT

1%
30
#RXDONE ,TEMP2
49
2

:BR IF CLEAR
REOM FAILED TO CLEAR
:RXDONE SHOULD BE SET
:BR IF SET
;FAILED TO SET

HLT

104002

#CRCEN,aPARCSR
TEMP
#MMODE ,@TXCSR
R1,RFLG

170562

SEQ 0044

BIS
CLR
BIS
JSR

I1I1II1117070700707077070000777777777777777777777777777777777777777777707777777;;++C
10%:

007060
170432
001000

001240

000200

001240

#REOM,aRXDBUF

BIT

170424

11%:

;REOM SHOULD BE CLEAR

/1111111711770 77777070777070777777777770777777777777770777777707/77777770771777,7/7777

4%:

SCOPE

:SCOPE THIS TEST

R ek nnnann TEST
ARARRRRR
IHRRRRRR

J*TEST TO PROVE THE

annwnvnnavnnnnnnnnennnnnnns

INTERACTION OF REQOM

;*WITH DONE IN SECONDARY MODE. TEST FOR REOM

;*AT THE WRONG ADDRESS,
:*SECONDARY ADDRESS.

THEN AT THE CORRECT

":Qttfi'tt.tittit'ttt*tttttiQltt'.ttt‘.iitQ‘ttit'tttt‘t‘ttt"Q't.

e 22222222228

8,0

011000

104412

170654

8,y

010774
010776

000001

SPECIAL FLAG SEQUENCE TEST

2019
2020

PAGE 45

13:54

TEST 5
L4

02-MAY-78
MACY1 30A(1052)
CZD0PCC
13:47
-78
02-MAY
CZDPCC P11

PAGE 46
TEST OF REOM AND DONE

SRR RRRRANRARARAC AN

PNIONIOND =

b md e

d e

—d

d md b md

RIR
RSSHIRBESHAINITR
nNO
S
NDONORO

011002
011010
011016
011024
011030

012737
012737
052777
004737
052777
052777
005037
052777
052777
004137
000001
012737
012737
004137
042777
104412

032777

001401
104000
105777

052777

104412
005237
022737
001365
042777
104412

032777
001401

TSTS:

000005
011450
000400
005044
000020
001000
001236
010000
014000
007060

001226
001216

170322
170326

8IS

000001
000010
007020
002000
000002
000200

001324
001326

MOV

170244
002000
000002
001236
000006

002000
000004

001000

170366

JSR
BIS

170346
170344

170272
170252

170242

BEQ
5%:
64%:

170214

005037
012737

001324
000010
007020
000252
000010
0070620
002000
000002
000200

001326

001324
001326

170072

6%:

017737

000006

001236

002000
000004

170042

170024

001240

TSTB
BIS

PKCLK
INC

65%:

PC,SMALL
#RCVEN,3RXCSR

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH
;TURN ON RECEIVER

.ONE FLAG

;PUSH OUT THE BIT

#RXDONE ,aRXCSR
;BR IF CLEAR

;CHECK FOR DONE

aRXDBUF
#BITW, aTXCSR

JREAD THE BUFFER
JPUT A1 IN THE WINDOW

#BITW, aTXCSR
&

;CHECK FOR FINISH
;BR [F MORE TO GO
;CLEAR THE WINDOW
;PUSH OUT 2 BINTS

2%
4

;JBR IF NOT SET
;BIT IS SET AND SHOULDN'T

L2
TEMP1
#6, TEMP1
648

H#REOM, aRXDBUF

;DONE BIT ERROR

;PUSH IT ouT
;JINC THE # TO DO

;JTEST REC END OF MSG

4SR

R1,RFLG

;BE - THIS IS SECONDARY MODE
;OUTPUT A FLAG

CLR
MOV
JSR
MOV

DATA
#8.,SHIFTS
R1,RPOKE
#252 ,DATA

;CLEAR DATA
CLOCKS
;LOAD THE # OF
;PUSHOUT SEC. ADRS
;LOAD DATA

JSR

R1,RPOKE

;PUSHCUT DATA

2
H#RXDONE ,dRXCSR

JPUSH OUT A BIT
;CHECK DONE

#8. ,SHIFTS

BIC

#B8ITW, aTXCSR

BNE
HLT

6%
2

1S18

aRXDBUf

PKCLK,
BIT

170104

170070

HLT

MGV

170124

001236

BIT
5%

BEQ
HLT

2%:

007060

#5,a#TSTNO
#TSTO NEXT
MMRESET ,@TXCSR

BIT

170176

AENR AN RRARAANRAAAANANRANNANNRARAANANRRANAN AN AR R AR

:LOAD A (CHAR
#1,DATA
MOV
#8.,SHIFTS
;LOAD THE # OF
(CLOCKS
;PUSH OUT THE DATA
R1,RPOKE
JSR
;CLEAR THE DATA WINDOW
#B1TW, aTXCSR
BIC

cMP
BNE
BIC
PKCLK,

001236

SEQ 0045

BIS
#CRCEN,aPARCSR
;TURN OFF (RC
:BIT COUNTER
TEMP1
CLR
#PRISEC,aPARCSR ;ENTER SECONDARY MODE
;ENTER MAINT MODE
#MMODE ,@TXCSR
8IS
JSR
R1,RFLG
;PUSH OUT A FLAG

PKCLK

104004

004137
000001

MOV
MOV
BIS

¢4

IN SECONDARY MODE

;:ttl'tttitt"

[ANT N1 V1 N1, 8}

2075
2076
2077

13: 5S4

CLR

TEMP1

BIS

A51TW,aTXCSR

cMP
BNE
BIC
PKCLK,
MOV

#6, TEMP1
65%
#B1TW,aTXCSR
&
aRXCSR, TEMP2

PKCLK,
INC

2
TEMP]

;LOAD # OF

CLOCKS

;CLEAR OUT DATA WINDOW

;BR IF SET
;DONE FAILED TO SET

;CLEAR TO KEEP TRACK OF THE BITS
;READ THE BUFFER

JSET THE WINDOW BIT

JPUSH IT OUT
sCHECK TO SEE IF
;6 ARE DONE YET
;BR IF NO
;CLEAR _THE WINDOW
;PUSH 2 BITS
JREAD THE (SR

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.PN
(2DPCC

2131

2132
2133
213
2135
2136
2137
2138
2139
2140
2141
21642
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161

2162
2163

2164

2165

011362
011370
011372
011374
011402
011404

032777
001001

001000

17001¢

032737

000200

001240

011406
011412
011414
011422
011430
011432
011434
011442

004137
000001
017737
032777
001401

007060
167764
001000

001240

032737

000200

001240

011444

011446

104001

001001

001601

TEST OF

3s:

REOM AND DONE

SEQ 0046

IN SECONDARY MODE

BIT

#REOM, aRXDBUF

BIT
BNE

H#RXDONE ,TEMPZ2
108

sJTEST END OF MSG

3%
1

;BR IF SET
JEOM FAILED TO SET

;BIT FAILED TO SET

#SR

R1,RFLG

;PUTPUT A FLAG

MOV

IRXCSR, TEMP2

;GET CSR

HLT

BNE
HLT

HLT

104002

104030

PAGE 47

13: 54

;TEST DONE
:BR IF SET

IN SEC. MODE

IIIIIIIIIIII1 770707777770 77077777777707777777077777777777777077077770077770777777777777;

10%:
167756

10403

118:

#REOM, IRXDBUF
118
30
#RXDONE ,TEMP2
43

BIT
BEQ
HLT
BIT
B8tQ

JREOM SHOULD BE CLEAR
;BR IF CLEAR
JFAILED TO CLEAR
;DONE SHOULD BE CLEAR
;BR IF CLEAR
JBIT FAILED TO CLEAR

II1111177770707777777777777777777077770777077777077777777777707777/77777777707770/777777/77777
6%

104400

;SCOPE THIS TEST

SCOPE

INEA RN ANRA AR A AN RRRCARRAARR

TEST

A RANARAN
aaah
kRt kAN
AR saaaxan

J«TEST TO PROVE THE INTERACTION OF A30RT

;*WITH A DONE AND RX ERROR IN PRIMARY MODE
":tt'tt'.tfi'tttiil'tttt.fit.ifittttitfifi'ttfifitfitttitfitttttifltttt!fii
;:tt'tfitttt'tt
*

;

TEST 6
*

:':"t!*'fl.fit*fi

":".Qfi"fifilfi"l‘fittfi*ifi"tf"fififi*fiflfik.fi*fitfifitifi"fitfifi!fi*"ttfi'.it’tttt't

011450
011456
011464
011472
011476

012737
012737
052777
004737
052777
052777
052777
004137
000001
005037

000006
011662
000400

005044
001000
000020
014000
007060
001324
000010
007020
002000
000002
167624

000177
000010
007020
167576

167572
002000

011624
011632

004000

001226
001216

TST6:

167720

167704
167672
167672

001326

CLR

MOV

#6,a#TSTNO

JSR
BIS
BIS
8IS

PC.SMALL
#CRCEN,aPARCSR
#RCVEN,3RXCSR
#MMODE ,@TXCSR

MOV
BIS

JSR
1
DATA
MOv
JSR

BIS

167640

PKCLK,
TSTB

#TST7 NEXT
MMRESET ,@TXCSR

R1,RFLG

;CLEAR DATA
#8..SHIFTS
R1,RPOKE

RESET THE DEVICE

;WAIT FOR RESET TO FINISH
;TURN OFF CRC
;TURN ON RECEIVER
;ENTER MAINT MODE
JPUSH OUT A FLAG
;ONE FLAG

#MITW,aTXCSR

;LOAD CLOCKS
;PUSH OUT DATA (HAR
;SET THE WINDOW

aRXDBUF

;READ A CHAR

;PUSH OUT A BIT

001324
001326

MOVB

#177,DATA

001236

JSR

MOV

R1,RPOKE

;PUSH OUT THE DATA

MOV

aRXDBUF ,RO

:SAVE THE BUFFER

MOV

BIT
BNE

001236

1%:

HLT
B8IT
BEQ

#8. ,SHIFTS
@RXCSR, TEMP1

#RABORT ,RO
18

5
#RECACT, TEMPI
2%

;LOAD A SECOND (CHAR
;LOAD CLOCKS

:READ THE (SR

;TEST ABORT BIT
:BR IF SET

;ABORT BIT FAILED TO SET
;TEST REC ACT
;BR IF CLEAR

MACY11 30A(1052)
02-MaY-78
CZoPCC.P1N
02-MAY-78 13:47
C(ZDPCC

011634
011636
011644
011646

104006

032737
001001

000200

001236

100000

011650
011654
011656
011660

HLT

2%:

BIT
BNE

3%:

B8IT
BNE

12%:

JREC ACT. FAILED TO CLEAR

;JBR IF SET
;DONE FAILED TO SET

g:XDON[.TEMP1

HLT

#RXDERR ,RO
12%

HLT
SCOPE

JRRNANANANNRNR AR

;TEST DONE

;TEST ERROR BIT
JBR IF SET

;ERROR BIT FAILED TO SET AFTER ABORT
;SCOPE THIS TEST

AAAANRAANR

TEST

Ak AANNAARAR
saaa
stttk kA
XAaaa

;*TEST TO PROVE THE INTERACTION OF ABORT IN SECONDARY MODE
;*TEST FOR ABORT AT THE WRONG SECONDARY ADDRESS, THEN TEST

;*AT

THE

CORRECT SECONDARY ADDRESS

.';tt*ttitfiit.iitt't'fit'fittttt'tifitttttfittttt'tttitttttttttt'tttt
crRARNNAARARANAN
*

;

TEST 7
*

:':*ttti*tfitifii

":Q*t.t*fi'.fifi*ttt*fifififiifiit.Q*itt'tttlt'fi.i.lttttti'tfit..ltttfittttfiflit.

012737
012737
052777
004737
052777
052777
052777
052777
004137
000001
012737
012737
004137
052777
104412
105777
112737

012737
004137
032777
001401

000007
012220
000400
005044
001000
000020
010000
014000
007060

001226
001216

000001
000010
007020
002000
000002

001324
001326

000177
000010
007020
002000

001324
001326

167402

TST17:

167506

167472
167460
167456
167452

BIS

MOV

wt cmd

b —h

004137
000001
005037
012737
004137
012737

MOV

MOV
8IS

167416

#1.DATA ;LOAD WRONG ADRS

MOV

PKCLK,
TSTB

MovB

167354

5%:

001324
000010
007020
000252
000070
007020

002000
000002
167266

000177
000010
007020

001326
001324
001326
167302

001324

001326

;ONE FLAG

#8..,SHIFTS

;LOAD CLOCKS

2
aRXDBUF

;PUSH OUT A BIT
;READ A CHAR

R1,RPOKE
#ITW,aTXCSR

#177 ,DATA

;PUSH OUT DATA (CHAR
JSET THE WINDOW

;LOAD A SECONL CHAR

MOV
JSR
BIT
BEQ

#8.,SHIFTS
R1,RPOKE
#RARBORT ,arRXDBUF
5%

JSR

R1,RFLG

:BE = THIS IS A SECONDARY STATION
;PUSH OUT A FLAG

CLR

DATA

;LOAD ADRS

R1,RPOKE
#252,DATA

;PUSH OUT THE ADRS
;LOAD A CHAR

R1,RPOKE
MITW,aTXCSR

:PUSH OUT THE CHAR
;SET THE WINDOW

aRXDBUF

;READ THE CHAR

HLT

007060

#7,a4#TSTNO

#TSTI10,NEXT
#MRESET ,aTXCSR

;RESET THE DEVICE
JWAJT FOR RESET TO FINISH
PC,SMALL
JSR
8IS
#CRCEN,3PARCSR
;TURN OFF CRC
;TURN ON RECEIVER
#RCVEN,aRXCSR
BIS
#PRISEC.,3PARCSR ;ENTER SECONDARY MODE
JENTER MAINT MODE
AMMODE ,aTXCSR
BIS
JSR
R1.RFLG
;PUSH OUT A FLAG

JSR
8IS

104011

—

2187
2188
2189

4
1
PAGE 48
13:54
TEST OF ABORT,DONE,AND RXERR IN PRIMARY MODE

MOV
JSR

MOV
MOV
JSR
8IS
PKCLK,
TST8B
MOVB

MOV
JSR

#8.,.SHIFTS
#8.,SHIFTS
2

#177 ,DATA

#8.,.SHIFTS
R1,RPOKE

;LOAD CLOCKS
;PUSH QUT THE DATA
;TEST FOR ABORT
;BR IF NOT SET
;ABORT IS SET AND SHOULDN'T
JONE FLAG

;LOAD CLOCKS
;LOAD

CLOCKS

;PUSH OUT A BIT

:LOAD THE ABORT

;LOAD CLOCKS

JPUSH OUT THE ABORT

SEQ 0047

MACY11 30A(1052)
02-MAY-78
CZoPCC
CZ0PCC P11
02-MAY-78 13:47

2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280

2281
2282
2283
2284

13:54

MOV

aRXCSR, TEMP?

;READ THE (SR

BIT
BNE
HLT

#RABORT ,RO
6%
5

;TEST THE ABORT BIT
JBR IF SET
;BIT IS CLEAR - SHOULD BE SET

7%
6

;BR IF CLEAR
;BIT FAILED TO CLEAR AFTER ABORT

108
2

;BR IF SET
;DONE FAILED TO SET

12%
7

¢BR IF SET
;ERROR WASN'T SET AFTER ABORT

017737
017700
032700
001001

167240
167234
002000

001240

032737
001401

004000

001240

6%:

B8IT

032737
001001

000200

001240

7%:

BIT

032700
001001

100000

012216

104400

104006
104002

SEQ 0048

TEST OF ABORT,DONE
_, AND RXERR [N SEC MODE

012140
012146
012152
012156
012160
012162
012170
012172
012174
012202
012204
012206
012212
012214

104005

PAGE 49

MOV

10%:

104007

128:

aRXDRUM ,RO

NRECACT,TEMP?

BEQ
HLT

#RXDONE , TEMP?

BNE
HLT
BIT

#RXDERR ,RO

BNE
HLT

:SAVE

THE BUFFER

JTEST ACTIVE

JTEST DONE

;TEST FOR ERROR

;SCOPE THIS TEST

SCOPE

JENRRARNRANARANRRNARANANNAR

TEST

waaaaaaaanasanansrtnntnatnn

;*TEST EFFECT OF REC ENABLE ON ABORT
;*RXACTIVE, RXDONE, RXERROR.
IR

AR AR AR AN R RN AR

AR R AR NN AR AN A NN AR R

soteC
AR

AR R

ARRARARARRA RN RN RN

JINRARARRNRRRR

; TEST 10
:

JIRRRARRRRNNASN

012220
012226

012234
012242
012246
012254
012262
012270
012274
012276
012302
012310
012314
012322
012326
012332
012340
012346
012352
012360
012364
012370
012372
012374
012402
012410
012414
012420
012422

012737
012737
052777
004737
052777
052777
052777
004137
000001
005037
012737
004137
052777
104412
105777
112737
012737
004137
017737
017700
032700
001001
104005

042777
017737
017700
032700
001401
104030

000010

012462
000400
005044
001000
000020
014000
007060

001324
000010
007020
002000
000002
167054
000177
000019
007020

001226
001216
167150

T1ST10:

167134
167122

167122

AR RN AR AR A RN AR RN AN

#10,a#TSTNO
#TST11 _NEXT
#MRESET ,aTXCSR
PC,SMALL
#CRCEN,IPARCSR
#RCVEN,aRXCSR
#MMMODE ,aTXCSR
R1,RFLG

(LR
MOV
JSR
8IS

DATA
#8.,SHIFTS
R1,RPOKE
#MBITW, aTXCSR

1STB

aRXDBUF

001326

167070

PKCLK,

001324
001326

167026
167022
002000

001236

000020
166776
166772
002000

167002
001236

20%:

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

MOV
MOV
BIS
JSR
8IS
els
BIS
JSR

MOVB
MOV
JSR
MOV
MOV
BIT
BNE
HLT
BIC
MOV
MOV
BIT
BEQ
HLT

#177 ,DATA
#8. ,SHIFTS
R1,RPOKE
ARXCSR, TEMP1
aRXDBUF RO
#RABORT ,RO
20%
5
#RCVEN,aRXCSR
3RXCSR, TEMP1
SRXDBUF ,RO
#RABORT ,RO
13

RARRRNNR RN

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;TURN OFF CRC
JTURN ON RECEIVER

JENTER MAINT MODE
;PUSH OUT A FLAG
;JONE FLAG

;CLEAR DATA
;LOAD CLOCKS
;PUSH OUT DATA (HAR
;SET THE WINDOW
;PUSH OUT A BIT
;READ A (HAR

;LOAD A SECOND CHAR
;LOAD CLOCKS
;PUSH OUT THE DATA
;READ THE CSR
;SAVE THE BUFFER
;TEST ABORT BIT
;BR IF SET
;ABORT BIT FAILED TO SET
sCLEAR REC ENABLE
*SAVE STATUS
;SAVE REC BUFFER
;JABORT CLEAR?
;IF YES,BR
;ABORT FAILED TO CLEAR

NNRNA

CZDPCC

MACY11 30A(1052)

cZoPCC.P1

02-MAY-78 13:47

2299
2300
2301
2302
2303
2304
2305
2306
2307
2308

012424
012432
012436
012436
012444
012446
012450
012454
012456

032737
001401
104006
032737
0014601
104031
032700
001401
104032

2310

012460

104400

2309

2311

02-MAY-78

13:54

PAGF 50

BIT
BEQ
HLT
8IT
BEQ
HLT
BIT
BEQ
HLT

SEQ 0049

TEST OF RCVEN, ABORT, RXACTIVE, RXDONE, RXERROR

004000

001236

1%:

000200

001236

2%:

3%:

100000

12%:

2312

#RECACT,TEMPI
3 3
6
#RXDONE , TEMP1
33
3
#RXDERR ,RO
12%
32

SCOPE

;TEST REC A(T
;BR IF CLEAR
JREC ACT. FAILED TO CLEAR
;TEST DONE
;BR IF CLEAR
;DONE FAILED TO CLEAR
JTEST ERROR BIT
:BR IF CLEAR
;ERROR BIT FAILED TO CLEAR AFTER RCVEN
;CLEARED.

IRRRRNANENNRNANENRRAANANARR

TEST

At aa sttt

;*«TEST THE EFFECTS OF READIN, THE RXDBUF

S%}E

A A AR AR KA RN

;*ON THE RXDONE, RXERROR, AND ABORT

2315

AR R R AR R R R R AN AR AN AN AR AR R AR AN AR R AN

2316

JIRERNRRANARNRA

2317

2319

2321

AR AR AR AR NN

TST11:

MOV
MOV
BIS
JSR
BIS
BIS
8IS
JSR
1
(LR
MOV
JSR
BIS
PKCLK,
TS78
MOVB
MOV
JSR
MOV
MOV

#11,a#TSTNO
HTST12 NEXT
#MRESET ,aTXCSR
PC.,SMALL
#CRCEN,3PARCSR
NRCVEN,aRXCSR
#MMODE ,aTXCSR
R1,RFLG

,RESET THE DEVICE
;WAIT FOR RESET TO FINISH
;TURN OFF CRC
;TURN ON RECEIVER
;ENTER MAINT MODE
;PUSH OUT A F_AG

DATA
#8.,SHIFTS
R1,RPOKE
#BITW,aTXCSR
2
aRXDBUF
#177 ,DATA
#8. ,SHIFTS
R1,RPOKE
aRXCSR, TEMP1
@RXDBUF ,RO

;CLEAR DATA
;LOAD CLOCKS
;PUSH OUT DATA (CHAR
;SET THE WINDOW
JPUSH OUT A BIT
JREAD A (CHAR
;LOAD A SECOND CHAR
;LOAD CLOCKS
;PUSH OUT THE DATA
JREAD THE (SR
;SAVE THE BUFFER

BNE
HLT
TST
MOV
MOV

208
5
aRXDBUF
aRXCSR, TEMP1
aRXDBUF ,RO

2318

;

2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341

012462
012470
012476
012504
012510
012516
012524
012532
012536
012540
012544
012552
012556
012564
012570
012574
012602
012610
012614
012622

012737
012737
052777
004737
052777
052777
052777
004137
000001
005037
012737
004137
052777
104412
105777
112737
012737
004137
017737
017700

233
2344
2345
2346
2347

012632
012634
012636
012642
012650

001001
104005
005777
017737
017700

2348

2349
2350
2351

2352
2353
2354

TEST 11

R AN

N
AR
JIRRRRANRR

2320

2342

RRN

012626

012654

012662
012664
012666

012672
012674

012676

032700

032737

001401
104031
032700

001401
104030
032700

000011
012710
000400
005044
001000
000020
014000
007060
001324
000010
007020
002000
000002
166612
000177
000010
007020
166564
166560

001226
001216
166706
166672
166660
166660

001326

166626
001324
001326
001236

BIT

002000
166544
166536
166532

000200

001236

20$:

1%:

BIT

002000

2$:

BEQ
HLT
BIT

100000

3%:

8IT

BEQ
HLT

R AR R AR AR AN

#RABORT ,R0O

#RXDONE , TEMP1
2%
N
#RABORT ,RO

E3)
30
#RXDERR ,RO

R R R R AR RN NRR AR TR R

;ONE FLAG

;TEST ABORT BIT

;BR IF SET
;ABORT BIT FAILED TO SET
;READ RXDBUF
:SAVE STATUS
;SAVE REC BUFFER

;TEST DONE

;BR IF CLEAR
sDONE FAILED TO CLEAR
JABORT CLEAR?

;1F YES,BR
JABORT FAILED TO CLEAR
;TEST ERROR BIT

soeeC

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZDbPCC.P11

(ZDPCC

012706

104400

12%:

:BR IF CLEAR
;Egfign BIT FAILED TO CLEAR AFTER RXDBUF

BEQ
HLT

SCOPE

“SCOPE THIS TEST

CANRAARNRKEAARARNREARNRARANNY

JEST

ANt

an v

:+DATA OVERRUN TEST IN PRIMARY MODE. TEST TO

A AR

ANk

;*PROVE OVERRUN ERROR AND RX ERROR WILL OCCUR

: :fittfi'*tt*tttttii't'ttitttttttttttttfitttfitttfittt.ttttttttttttt*
. CTRANKAANRRARR

Y OTEST 12
.

CiemrRmaaaRRRR
R

012710
012716
012724
012732
012736
012742
012750
012754
012762
012766
012770
012776
013004
013010
013016
013024
013030
013034
013040
013044
013046

012737
012737
052777
004737
013703
052777
052713
052777
004137
000001
012737
012737
0046137
012737
012737
004137
017700
042700
022700
001401

000012
013062
000400
005044
001404
001000
000020
014000
007060

001226
001216

000252
000010
007020
000070
000011
007020
166352
037777

001324
001326

013050
013054
013056

032713
001001
104014

004000

013060

104400

TST12:

166460

AR R RN

MOV
MOV

#12 ,a#TSTNO
#TST13 NEXT

R AR

RN AR AR AN KRR AR AN

8IS
JSR
MoV

#MRESET ,8TXCSR
PC,SMALL
RXCSR,R3

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;LOAD THE CONTROL REGISTER

BIS

#RCVEN, (R3)

;TURN ON THE RECEIVER

BIS

166440

E AR R AR AR AR

#CRCEN,aPARCSR

RN RN RN NN

;TURN OFF CRC

;ENTER MAINTENANCE MODE
;PUSH OUT A FLAG

BIS
JSR

#MMODE ,aTXCSR
R1.RFLG

MOV
MOV
JSR
MOV
MOV
JSR
MOV
BIC
(MpP
BEQ
HLT

;LOAD CHAR TO BE OUTPUT
#252,DATA
#8.,SHIFTS
;CLOCK SETUP
;PUSH DATA INTO RECEIVER
R1,RPOKE
;LOAD A SECOND CHARACTER
#70,DATA
#9. ,SHIFTS
;SETUP #OF CLOCKS
;JPUSH THE SECOND CHARACTER INTO RX
R1.RPOKE
;SAVE BUFFER
aRXDBUF ,RO
#*C<RXDERR.OVRRUN>,RO ,CLEAR JUNK
#RXDERR!OVRRUN,RO ;CHECK TO SEE IF BOTH ARE SET
2%
;B8R IF OK
sTHEY DIDN'T MATCH
13

2%:

BIT
BNE
HLT

#RECACT, (R3)
3s
14

3%:

SCOPE

166430

001324
001326

140000

104013

;ONE FLAG

;JTEST REC. ACT
JBR IF STILL SET
JREC. ACTIVE CLEARED AND SHOULD BE SET

;SCOPE THIS TEST

RNk hnak TEST
IRARAARRRARARANANN

13 anxnnnnannnnnnrannnnnsnnannn

;*DATA OVERRUN TEST IN SECONDARY MODE. TEST TO PROVE

;*THAT OVERRUN DOES NOT OCCUR IF THIS STATION IS NOT

J*«SELECTED.

THEN SELECT THIS SECONDARY STATION AND

;*PROVE OVERRUN ERROR AND RX ERROR WILL OCCUR

0,0,

s CARAN AR RN NN R AN R AR RN AR ARARRANRRRNANNN A RRAARARRRARRRA R

AR R AR AT AN

CARRRARR
AR AR
*

BN,

2372
2373
2374
2375
2376

001401
104032

SEQ 0050

READ RXDBUF. AND TEST RXDONE, RXERROR, ABORT

2368
2369
2370
2371

012702
012704

PAGE 51

INNRRRANNRRNRR

2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367

13:54

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

RN RTINS

02-MaY-78
MACY11 30A(1052)
CZDPCC
CZOPCC P11
02-MAY-78 13:47
2411
2412
2413
2414
2415
2416
2417
2418
24619
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435

2436

2437
2438
2439
2440
2441
2442
2443
244%
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462

2463

2464
2465
2466

013062
013070
013076
013104
013110
013114
013122
013126
013134
013142

013146
013150
013156
013164
013170
013176

013200

012737
012737
052777
004737
013703
052777

052713
052777
052777
004137

000001
012737
012737
004137
032777
001401

000013
013320
000400
005044
001404
001000
000020
010000
014000
007060

001226
001216
166306

000252
000031
007020

001324
001326

040000

004137

007060

005037
012737

001324
000010
007020
000252
000010
007020
000070
000011
007020
166114
037777
140000

013306

032713
001001

000001

004137
012737
012737
004137

012737
012737

013302
013304

013314

013316

TST13:

8IS

4%:

#13,a#TSTNO

BIS
JSR
MOV
BIS

#MRESET ,8TXCSR
PC,SMALL
RXCSR,R3
#CRCEN,dPARCSR

MoV

#TST14 ,NEXT

#RCVEN, (R3)

BIS

001324
001326
001324
001326

6$:
3:

RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;LOAD THE CONTROL REGISTER
;TURN OFF CRC

:TURN ON THE RECEIVER

#PRISEC,aPARCSR ENTER SECONDARY MODE
BIS
#MMODE ,@TXCSR
;ENTER MAINTENANCE MODE
JSR
R1.RFLG
;JPUSH OUT A FLAG
MOV
MOV
JSR
BIT
BEQ

#252,DATA
#25. ,SHIFTS
R1,RPOKE
#OVRRUN,aRXDBUF
43

HLT

JONE FLAG

;LOAD AN INCORRECT SEC.
;PUSH OUT 3 CHARS
sTHRU THE RECEIVER
;TEST FOR OVERRUN
:BR IF NOT SET

STA ADRS

;OVERRUN [S SET AND SHOULDN'T BE

JTHIS IS A SECONDARY STATION WHICH

;DID NOT GET ITS ADDRESS

JSR
1

R1.RFLG

MOV
JSR
MOV
MOV
JSR
MOV
MOV
JSR
MoV
Bi
CMP
BEQ
HLT

;MOVE THE #OF CLOCKS TO PUSH
#8.,SHIFTS
R1,RPOKE
;PUSH OUT THE SEC. ADRS
#252 ,DATA
;PUSH oUT
; TWO
#8.,SHIFTS
:DATA
R1,RPOKE
#70,DATA
: CHARACTERS
#9. ,SHIFTS
:TO FORCE
;AN OVERRUN ERROR
R1,RPOKE
@RXDBUF ,RO
s SAVE
#*C<RXDERR!OVRRUN>,RO ;CLEAR JUNK
#RXDERR!OVRRUN,RO ;ARE THE ERROR BITS THERE
;BR IF YES
6%
13
sERROR BITS MISSING

BIT

#RECACT, (R3)

DATA

CLR

001326

104005
104400

MOV

166210

004000

SEQ 0051

DATA OVERRUN TEST IN SECONDARY MODE

166266
166254
166250

PAGE 52

104015

013202
013206
013210
013214
013222
013226
013234
013242
013246
013254
013262
013266
013272
013276

013312

13:54

3%
5

BNE
HLT
SCOPE

;PUSH OUT A FLAG
JONE FLAG

JGET CORRECT SEC. STATION ADRS

sTEST ACTIVE

;BR IF SET
JACTIVE DROPPED OUT
;SCOPE THIS TEST

SRANRRNRRARANNNRRGARAAAAANRN

TEST

wnnnnsannnnnsnnnnnrnsnnrnne

J*«TEST OF SPECIFIC DATA PATTERNS THRU
;*THE RECEIVER IN PRIMARY MODE

. :tttt*"i’*ittttti'titttt*ii*itttttttttttttttttttfiittfittttttttttt
IIRERARRRANNKR

: TEST 14

. IHRRRAANRAA

" :ttitttttttfi.ttt*ttfitttt"fititttti*ttttttitttttttiltttt"ififiii'Qit'ti

013320
013326
013334
013342

012737
012737
052777
004737

000014
013570
000400
005044

001226
001216
166050

TST14:

MOV

MOV
BIS

JSR

#14,34TSTNO

#TST15,NEXT
#MRESET ,@TXCSR

PC., SMALL

;RESET THE DEVICE

*WAIT FOR RESET TO FINISH

0. -MAY-78
MACY11 30A(1052)
Cz0PCC
02-MAY-78 13:47
CZDPCC P11
2467

2468

2469
2470
2471
2472
2473

013346
013352
013356
013362
013370
013374
013402
013410
013416
013424
013430
013434
013436
01344¢
013446
013450
013454
013460
013462
013464
013472
013476
013500
013502
013504
013506
013510
013514
013520
013522
013524
013532
013536

012703
012704
012702
052777
005077
052777
052777
052777
052777

013542

052777
004737

013540
013542
013550
013554

013556
013560
013562
013564
013566

104412
012377
005302
104412
012377
005302
104412
105777
100401
104000

017737
121437

001401

013556
013556
000004
001000
166020
014000
000020
000020
000400
000010

166010
165774
165774
165770

105777
100401
104000

017737
121437
001401
104000

18:

001324

104400

000125
000252
000000
000377
000000

2%:

3%:

165664

005044

SEQ 0052

#MMODE ,’TXCSR
#RCVEN,aRXCSR
#SEND ,a@TXCSR
#TSOM,aTXDBUF

PKCLK
MOV
DEC RZ
PKCLK
TSTB
B8M]
HLT

MOV
(MPB

;LOAD THE TABLE POINTER
;DITTO
;LOAD THE # OF CHARS TO DO
JRESET TXDONE
;ENTER M/MODE
:TURN ON THE RECEIVER
;TURN ON THE TRANSMITTER
;START A FLAG

aRXDBUF ,DATA
(R4) ,DATA

JSTART A FLAG
;LOAD FIRST DATA (CHAR
;LOWER THE # 10 DO
;PUSH 0UT
;LOAD DATA
JLOWER THE # TO DO
;PUSH QUT DATA
;CHECK FOR RX DONE
.BR ]F DONE SET
;RX DONE FAILED TO SET
:GET THE BUFFEN
JCHECK IT

aRXDBUF ,DATA

;CHECK FOR FINISH
;BR IF MORE T0 GO
;PUSH OUT LAST CHAR
;CHECK FOR DONE
;BR IF DONE SET
;DONE FAILED TO SET
:GET THE BUFFER

.8.
(R3) +,aTXDBUF
R2

.16,
(R3) +,aTXDBUF

.16.
aRXCSR

;BR [F OK
;DATA COMPARE EROR

BEQ
HLT

TST

TST
BNE

PKCLK

000020

000400

#CRCEN,aPARCSR
a T XDBUF

DEC

000020
165724

165656
001324

#TBLA, NG

#6,R2

MOV

104000

005724
005702
001355
104412

#TBLA,R3

MOV
MOV
MOV
BIS
(LR
BIS
BIS
BIS
BIS
PKCLK

166020

000020
165746

RECEIVER DATA TEST WITHOUT CRC

165760

165716
001324

PAGE 53

13:54

001324

165642

4%:

5%:

TSTB
BM]
HLT

MOV
CMPB

JCHECK 1T

§§4).DATA

:BR IF A MAT(CH

BEQ
HLT

;DATA COMPARE ERROR
#MRESET ,aTXCSR
PC,SMALL

BIS

JSR
SCOPE

JRESET THE DEVICE

JWAIT FOR RESET TO FINISH

;DATA TABLE
TBLA:
.WORD
.WORD
.WORD
.WORD

.WORD

JRERAERAARAARARRARRRANNawnn

TEST

;*TEST TO PROVE THAT THE DEVICE WILL
;*WORK WITH ALL POSSIBLE SECONDARY
s*STATION ADDRESSES.

AN AR EANRAANRRARRANRRANRER

::'Qtfiittttfitttt'ttttttt'tttttfi*ittttttt'itii'tifittt't.tfittttQ.i

;:"..t..'*'*.

;

TEST 15
]

MACY1T 30A(1052)
02-MAY-78
CZ0PCC
02-MAY-78 13:47
CZ0PCC P

13:54

2523

PAGE 54

C tRARNAANRNRRANAPAANAANNAL

013660
013666
013672
013674
013702
013706
013710
013716

013722
013724
013732
013740
013742
013750
013752
013756
013760
013764
013766
013770
013774
014000
014002

014004
014010
014012
014014
014016

014024
014030
014032
014034
014040
014044
014052
014060
014062

012737
012737
012737
005005
005037
005037
012737

000015
014064
013632

001226
001216
00122C

TST1S:

001236
001240
011000

001236

208

052777
004737
013777
052777
052777
105777

000400
005044
001236
000020
004020
165520

165552

012777

000400

165512

013777

001240

165476

012777
032777
001374
032777
001774

000252
004000

165462
165454

64%:

004000

165444

65%:

005777

165420

100375

105777
100375

100001
104014
017704
032704
001001
104000
122704
001401
104012
104401
052777

004737
105205
001413
110537
110537

052737
013777
000674
104400

165504

165470

165536
165524
165524

1%:

2S:
3s:
A ¥

b 5

165426

165412

6%:

000252

7%:

000400

000400
005044

001236
001240
011000
001236

165366

SEQ 0053

SECONDARY STATION ADDRESS TEST
. INRRANRRNCANS

013570
013576
013604
013612
013614
013620
013624
013632
013632
013640
013644
013652

10%:

MOV
MOV

”15,a#TSTNO
#TST16,NEXT

BIS
JSR
MOV
8IS
8IS
7ST8

#MRESET ,8TXCSR ;RESET THE DEVICE
:WAIT FOR RESET TO FINISH
PC.,.SMALL
TEMP1 ,aPARCSR :LOAD MODE AND NO CRC AND SEC STATION
;TURN ON RECEIVER
#RCVEN,aRXCSR
#SYSTST!SEND,@TXCSR :TURN ON TRANSMITTER AND (CLOCK
:WAIT FOR
aTXCSR

BPL

MOV
CLR
CLR
CLR
MOV

8PL
MoV
TST8

;DONE
:LOAD START OF MSG
JWAIT FOR

MOV
TSTB

TEMP2 ,aTXDBUF
aTXCSR

;LOAD SEC STATION ADRS AND
;WAIT FOR

MOV
BIT
BNE
8IT
BEQ
TS18
BPL

#252.3TXDBUF
#TIMER,aTXDBUF
648
#TIMER,TXDBUF
65%
aRXCSR
5%

;NOW LOAD DATA
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE TIMER BIT
;BR IF CLEAR
JTEST FOR
;RX DONE

MOV
B8IT
BNE
HLT

aRXDBUF R4
#RSOM, R4
7%

B8PL

TST
8PL
HLT

CMPB
BEQ
HLT
SCoP1
BIS

MOVB
MOvB

BIS

MOV

11%:

#208,L0CK
:SW09 SETUP
;CLEAR SEC ADRS HOLD
RS
:CLEAR TEMP STORAGE
TEMPI
JDITTO
TEMP?
;LOAD MODE AND NO (CRC
#CRCEN'PR]SEC,TEMP

23
#TSOM,aTXDBUF
aTXCSR

JSR
INCB
BEQ

001236
165330

ld
2
d ittt
2223
2222X222 22002222
22222232

BR
SCOPE

aRXCSR
63
14

#252 ,R4
108

;DONE AGAIN

;TEST FOR ERROR
;BR IF NO ERROR
;ERROR FOUND'!

;GET THE BUFFER
JCHECK FOR START OF MSG
:BR IF SET
;START OF MSG FAILED TO SET

:CHECK FOR DATA
:BR IF A MATCH
:FAILED TO RECEIVE DATA AS A SEC STATION
:SW09=1?
;RESET THE DEVICE

#MRESET ,aTXCSR
:WAIT FOR RESET TO FINISH
PC,SMALL
RS
;GET NEXT SEC ADRS
1%
:
;BR 1F ALL DONE
RS, TEMP1
;LOAD THE ADRS FOR PAR (SR
;DITTO FOR TXD BUF
RS, TEMP?
#CRCEN'PRISEC,TEMP1 ,LOAD FOR PAR (SR
TEMP1,aPARCSR

;DO IT

:BR TO DO OVER
:SCOPE THIS TEST

nnan TEST
RN
IRRRRERARARRARNRR

TE ARAAXKKRRARRRRRRRRRRRRRRAN®

J*«TEST OF SPECIFIC CHARACTER DATA PATTERNS
;*USING BCC CHECK IN PRIMARY MODE.

s AR RRNNR AR RN NN NN AR R AR RARRARRAARRNRNRACARAARRARANNRAAAN RN

02-MAY-78
MACY11 30A(1052)
(20PCC
CZobPCC P
02-MAY-78 13:47
2579
2580
2581
2582
2583

2596
2597
2598
2599
2600
2601
2602

2603

SEQ 0054

IINARRARNRRARS
.

;

TEST

[

2584

2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595

13:54 PAGE 55
RECEIVER DATA TEST WITH CRC

DINRNRRRRNANAR

014064
014072
014100
014104
014110
014114
014120
014124
014132
014140
014146
014152
014156

012737
012737
012704
012703
012701
012702
005037
012737
012737
013737
011437
004537
000010

014162
014164
014172
014176
014204
014212
014220
014226
014232

004737
052777
052777
052777
052777

014160

014236
014240
014242
014242
014246
014252

014260

014264
014270
014272
014274
014302
014306
014310
014312
014316
014322
014324
014326
014334
014340
0146344
014346
014350
014356
014362

000001
000001
052777

104412
105777
100401

000016
014602
014410
000004
014410
014410
001324
102010
177777
014600
014160
014422

000400
005044
014000
000020
000020
000400

001226
001216

TST16:

014574
014600
014162

108:

165220

165146

000020

104412
105777
100401
104000
017737
121237
001401
104000
104412
105777

000020
165114

100401

104000

017737

104412
105777
100401
104000
117737

005137
023737

001000

165134

165106
001324

001324

165054

165032

014600
014600

2%:

3$:

000020
165062

000032
165040

MOV
MOV

001324

4%:

001324

5%:

AN RN RN

A R R RN

R AN RN R AR

AR R AR R AR

AR AN AR AR RN

#16,a¥TSTNO
HTSTV7 NEXT

;GET THE TABLE POINTER
#TBLB,R&
#4 ,R3
JGET THE # TO DO
;GET THE POINTER
#TBLB.R1
:DITTO
#TBLB,RZ
DATA
;CLR DATA HOLD
#CRC.CCITT XPOLY
;LOAD THE POLYNOMIAL FOR CRC

JSR

R5.sImMBCC

MOV
MOV
Mov
8.
.BLKW
.BLKW
8IS

#-1,CALBCC
CALRCC,12%
(R6),118

JPRESET BCC FOR SDLC
;MOVE B8CC
;MOVE DATA

1
1

;BASED
;ON THESE
sPARMETERS
;RESET THE DEVICE

JSR
BIS
8IS
8IS
BIS

WMRESET,aTXCSR
PC,SMALL
AMMODE ,@TXCSR
#RCVEN,3RXCSR
#SEND ,aTXCSR
#TSOM,aTXDBUF

8MI

HLT

,10.
aTXCSR

MOV
PKCLK
BIS
PKCLK
1STB
BM]
HLT

(R1) ,aTXDBUF
,16.
A#TEOM, aTXDBUF
,16.
aRXCSP
2%

TSTB

3RXCSR

MOV
PKCLK
TSTB

aRXDBUF ,DATA
,26.
aRXCSR

MoV
cme8
BEQ
HLT
PKCLK

aRXDBUF ,DATA
(R2) ,DATA
3$

8MI
HLT

BMI]

001325

MOV
MOV
MOV
MOV
CLR
MOV

PKCLK
1ST8

000012
165154

104412

052777

11%:
12%:

165206

104000

011177

AR AR R

HLT

MOvVB
COM
(MP

,16.

aRXDBUF ,DATA +1
CALBCC
CALBCC,DATA

;G0 CALCULATE B(C

JWAIT FOR RESET TO FINISH
;ENTER MAINT MODE
;TURN ON THE RECEIVER
;TURN ON TRANSMITTER
;TURN ON START OF MSG
;PUSH OUT & BITS
;CHECK FOR DONE

;BR IF SET

;DONE FAILED TO SET

;LOAD DATA
;PUSH OUT 8 BITS
;SET END OF MSG
;PUSH OUT 8 MORE BITS
;CHECK FOR DONE
;BR IF SET
;DONE FAJLED TO SET

JREAD THE BUFFER
;CHECK THE DATA
;BR IF A MATCH
;DATA COMPARE ERROR
;PUSH OUT 8 MORE BITS
;CHECK FOR DONE

;BR IF SET
;DONE FAILED TO SET ON FIRST OCTET OF BCC
JREAD THE BUFFER
;FINISH POKING BITS
;CHECK FOR DONE

sBR IF SET

;DONE FAILED TO SET ON SECOND OCTET OF BC(C
;GET IT
2 INVERT SOF TWARE
. COMPARE

104000

000252
000000
000125
000377
000000

014422
014424
014426
014430
014434
014440
014444
014450
014454
014460
014462
014466
014470
014474

010046
010146
010246

014502
014506
014510
014514
014520
014524
014526
014530
014534
014536
014544
014550
014554
014556
014564
014566
014570
014572
014574
014576
014600

6%:

104400

014410
014412
014414
014416
014420

014500

HLT

012537
012537
012537
005037
013700
006037
005500
032700
001402
005137

013700
005100
040037
000241
006037
013700
013701
010102
040100
043702
050200

043737
050037
005337
001333
013737
012602
012601
012600
000205
000000
000000
000000
120001

TST

1ST
TST
DEC
BNE
SCOPE

;DATA TABLE

001236
001240
001242
014576
001242
001240

MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
ROR
AD(C
BIT
BEQ
com

RO,=(SP)
R1,-(SP)
R2,=(SP)
(R5)+,TEMP1

.WORD
.WORD
-WORD
.WORD

Mov

oM
BIC
cLC
ROR
MOV

MoV
MOV

014576
014574
001242
001236

001242

014600

R3
108

SIMBCC:

2%:

001242
014576
001242

(R1)+
(R2)+
(R4)+

.WORD

000001

014576

JUSE CRC DEBUGGING ROUTINE TO

TBLB:

1%:

014576
014574

:BR IF A MAT(CH
:BCC COMPARE FAILURE

BIC
BIC
81S
BIC
BIS
DEC
BNE
MOV
MOV
MOV
MOV
RTS

XPOLY:
O
BCCFBK: 0
CALBCC: 0
CRC16=120001

014406

8EQ

001401

005721
005722
005724
005303
001247

SEQ 0055

RECEIVER DATA TEST WITH CRC

014374
014376
014400
014402
014404

PAGE 56

OW—=20N

014370
014372

13:54

~NwW

MACY11 30A(1052)
02-MaY-78
CZDPCC
02-MAY-75 13:47
cZopPCC PN

(R5)+,TEMP?
(RS)+,TEMP3

BCCFBK

TEMP3,RO
TEMP2
RO
#81T0.RO

BCCFBK
XPOLY ,RO
RO
RO,BCCFBK

TEMP3

8CCFBK,RO
TEMP3.R1

R1,R2

R1.,R0O

BCCFBK ,R2

XPOLY,TEMP3

RO, TEMP3
TEMP1
1%
TEMP3, CALBCC
(SP)+,R?
(SP)+,R1
(SP)+,R0
RS

;REPAIR CRC.SEE FRONT OF
;POP POINTER

;DITTO
;DITTO
;DECREMENT THE # TO DO
:BR IF MORE TOGO
;SCOPE THIS TEST

LISTING

02-MAY-78
MACY11 30A(1052)
CZDPCC
13:47
8
02-MAY-7
CZDPCC P

2691
2692
2693
2694
2695
2696
2697

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
271
2712
2713
2714

2715

2716
2717
2718

2719
2720
2721
2722
2723
2724
2725

2726
2727
2728
2729
2730

2731
2732
2733
2734

2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746

PAGE 57
13:54
RECEIVER DATA TEST WITH CRC

SEQ 0056

CRC.CCITT=102010

102010

RN nntnwn TEST
AR RRRARR
IARRRRA

AR AR AR AR AR AR AR AN RN AR AR

A AR

;THIS TEST PROVES THAT THE DEVICE WILL

;OUTPUT SIXTEEN SPACES IN FRONT OF A
;FLAG ,F

STARTING FROM THE

IDLE STATE.

;;'tttttt'itttttttttt*t*ttttttkitt*tfittt'tttt.ittt*ttilfi'tttttt*
cCANRANRANRNAAN
x

: TEST 17
.

;;tttttttttttt

;;ttttttttttttttttttttitttttttttttttttttttttttttttttttttttt*t'tttttttfi

014602
014610

014616
014624
014630

014634
014640
014644

014650
014656
014664
014672
014700
014706
014712
014716
014724
014726
014732
014740
014742
014744
014750
014756
014760
014762
014770
014774
015002
015004
015006
015012
015020
015022
015026
015034
015036
015040
015044
015052
015056

012737
012737
052777
004737
005037
005037
005037
005077
052777
052777
052777
052777
052777
104412

005237
022737
001407

104412
032777
001764
104000
104412
032777
001401
104000

000017
015110
000400
005044
001236
001240
001242
164544
014000
001000
000020
000020
001400
000002
001236
000021
000002
040000

000002

001226
001216
164566

164534
164524
164520
164504
164506

001236

164434
164424

032777

000125
000002
040000

164410

005237
022737

001240
000006

001240

104412

001001
104000

000002
040000

105777

000006
001000
000016
164322

1$%:

2%:

3$:

4%:

5%:

164356

164340

MOV
MOV

6%:

#17,3a#TSTNO
#TST20 NEXT

BIS
JSR
CLR
CLR
CLR
CLR
BIS
BIS
BIS
BIS
BIS

HMRESET,aTXCSR ;RESET THE DEVICE
;WAIT FOR RESET TO FINISH
PC,SMALL
:CLEAR FOR SOF TWARE STORAGE
TEMP]
TEMP2
TEMP3
;RESET TXDONE
aTXDBUF
#MMMODE ,@TXCSR
;ENTER MAINT MODE
#CRCEN,3PARCSR
;TURN OFF CRC
:TURN ON TRANSM]TTER
#SEND ,@TXCSR
;TURN ON RECEIVER
#RCVEN,3RXCSR
;START SPECIAL SEQUENCE
N#TEOM!TSOM,aTXDBUF

INC
cTMMP

TEMPI
#17.,TEMPY

PKCLK

BEQ

164452

040000

012777

TST17:

BIT
BEQ
HLT
PKCLK
BIT
BEQ
HLT
MOV

#MTDATA,@TXCSR
1%

BIT
BNE
HLT

MMTDATA,aTXCSR
5%

BNE

PKCLK

,Z
#MTDATA,QTXCSR
3
#125,aTXDBUF
.2

INC
(MP

TEMP?2
#6,TEMP?2

PKCLK

:SYNC UP DUP

:UPDATE COUNT
;CHECK FOR FINISH
;BR IF YES

;POKE CLOCK

;CHECK THE DATA
:BR IF OK
:DATA SHOULD BE A 0, WAS A 1
;POKE CLOCK
;CHECK THE DATA
:BR [F 0K
;:DATA SHOULD BE 0, WAS A ONE
;LOAD DATA CHAR
;POKE CLOCK

;CHECK THE BIT
;BR IF OK
:DATA SHOULD BE 1, WAS O

:UPDATE FOR FINISH
;CHECK FOR DONE
:BR IF MORE TO GO
;POKE CLOCK

BIT
8EQ
HLT
PKCLK
BIS

AMTDATA,TXCSR
6%

.6
#TEOM,aTXCSR

;CHECK THE DATA
;BR IF OK
:DATA SHOULD BE 0, WAS A 1
:START OUT DATA (HAR
:TURN OFF TRANSMITTER

TSTB

@RXCSR

*CHECK RECEIVER

PKCLK

:FINISH

02-MAY-78
CZDPCC MACYI1 30A(1052)
02-MAY-78 13:47
CZDPCC.P11

2771

2772

2773
2774
2775
2776

2777

2778
2779
2780
2781
2782
2783
2784
2785

015106

104000

117737
122737
001401

164314

000125

001242

PAGE 58

7%:

BMI

MOvB
CMPS
BEQ

aRXDBUF
, TEMP2
#125, TEMP3
108

HLT

104000

10%:

104400

SEQ 0057

SPECIAL ZEROES SEQUENCE TEST

100401

SCOPE

JBR IF

;RECEIVER FAILED TO ACCEPT SPECIAL (HAR

;GET THE (HAR
JCHECK IT

;DATA FAILED TO MAT(H AFTER
;SPECIAL SPACES CHARA(CTER
;SCOPE THIS TEST

IRRNRRRKARARARNE
RN ARk n

TEST

" RAXARAAAXRARARKANRRARAANNRR

;*THIS TEST PROVES THE INTERACTION OF DTR
;*WITH RING,DSR

;*AND DATA SET CHANGE ONE AND DATA SET C(HANGE TwWO.

;«SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
;*«THE BIT AND VERIFY CLEAR.

REPEAT FOR MRESET.

. :tti*ttt'ttfitit"tttt**ittttttttittttfitttttttttttttfit'tttittttt
JINRRRANRRRNRK
®

;

TEST 20

:’ :ittt*'fit‘*fit

. :ttttfi'tttfittt**ttttttttttttik**tfifitttiitittttttttttttttt'ttttttttttt

TST¢0:

015110
015116
015124
015132
015136
015140
015144
015150
015154

012737
012737
012737
000137
005077
004137

015544
164234
007332

015156

052777

000400
005044
001404

164226

010000
000002
000110
004000

164206

015240
164170

66%:

004000

1646160

67%:

015164

105737
001002

015546

015170
015174

015176
015204
015210
015216
015224
015226
015234
015236
015240
015242
015244
015246
015250
015252
015254
015256
015264
015272

000020
015556
015204
001322

001226
001216
001220

1%:

001374

306
164122

71%:

#20,’a#TSTNO
RTST21 NEXT

MOV

#18,L0CK

BNE
JMP
CLR
JSR
7%

.46
63

TCNFLG

aRXCSR
R1,0JUMPER

815

AMRESET ,aTX(CSR

MOV
CLR
BIS
8IS
MOV
8IT
BNF
BIT
BEQ
DEC
110
BNE
MOV
CMP
BEQ
HLT
SCoP1

RXCSR,R3
(R3)
MMEXT ,aTXCSR
#DTR, (R3)
#110,68%
#TIMER,aTXDBUF
66%
#T]IMER,aTXDBUF
67%
(PC)+

BIT

T XDBUF
#TIMER,

JSR

68%:

000005
004000

MOV
MOV
TSTR

10%:

£SO

2764
2765
2766
2767
2768
2769
2770

015062
015064
015066
015074
015102
015104

O —

2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763

13: 54

PC,SMALL

66%
(R3) .R4
RS ,R4
2%
3

MOV

#S,73%

BNE

718

;CLEAR THE REGISTER
JTHIS CALL DETERMINES IF TURNAROUND CONNECTOR
JAND OPTIONAL JUMPER ARE USED
JAND LOADS RS (EXPECTED) ACCORDINGLY.
JRESET THE DEVICE
;WAIT FOR RESET TO FINISH

;LOAD THE RECEIVER CONTROL REGISTER TO R3.

;CLEAR OUT EXTRA BITS

SJENTER EXTERNAL MAINT. MODE
;TURN ON DTR
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;GET THE BITS FROM THE RXCSR
;R5=G00D R4=?
JBRANCH IF THEY MAT(H
;NO MATCH - SHOW OPR.
;LOAD THE NUMBER
;CHECK THE TIMER BIT
JBR IF SET

040000

015510

015512

015520

015522
015524
015526
015530

2%:

015332
041002

001220

000005
004000

015364

164044

76%:

004000

164034

77%:

78%:

BIT

BEQ
DEC
5
BNE
BIT
BNE

MOV

BIC
CLR

MOV

BIT
BNE
BIT
BEQ
DEC
5
BNE
MOV

cMP
BEQ

015410
000002
000005
004000

001220
163764

81%:

004000

163754

82%:

015444

5%:

83%:

163730

000400
005044
010000
000005
004000

015524
163704

86%:

004000

163674

87%:

163716

88%:

718
#RING, (R3)

MOV

BIT
BNE
BIT
BEQ

DEC
5
BNE
CLR
CLR
BIS
JSR
BIS
MOV

#TIMER,aTXDBUF

76%
#TIMER,aTXDBUF
77%
(PC)+

76$
(R3) ,R4
RS .R4
43

#TIMER,aTXDBUF

81%

#TIMER,aTXDBUF

SCOPE
.WORD
. WORD

;BRANCH IF ONLY THE DSC BITS ARE SET
;NO-GO TELL OPR

;SWO9 SETUP

;TURN ON DTR
;LOAD THE NUMBER
JCHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT

:CLEAR OUT THE REGISTER

;CLEAR OUT EXPECTED

#TIMER,aTXDBUF

SCOP1

;R5=G00D R&4=?

(R3)

BIT
5
BNE

;CHECK THE TIMER BIT
JBR IF SET
JCHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JREAD BACK THE REGISTCR

81%

(PC)+

BIT

BEQ
DEC

TIMES TO REPEAT

:BR IF (CLEAR
;DECREMENT THE NUMBEK
:OF TIMES TO REPEAT
:BR IF MORE 7O GO

82%

#MRESET ,@TXCSR
PC,SMALL
#MEXT ,aTXCSR
#5888
#TIMER ,aTXDBUF

BNE

;OF

;BR [F MORE TO GO

#5%,10CK
#DTR,(R3)
#5,83%

SCOP1

;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER

#3%,L0CK
;SW09 SETUP
#RING!DSR!DTR,R5
;CLEAR OUT UNWANTED BITS
(R3)
;CLEAR OUT THE REGISTER
#5,78%
;LOAD THE NUMBER

MOV
BIS

:
6%
7%:

(PC)+

104400
141003
141007

72%

HLT

TST
MOV
MP

104401

#TIMER,ITXDBUF

86%

87%

(PC)+

86%
(R3)
(R3) ,R4
R5,RS
6$
3

73%:

001365
005005

005013
052777

72%:

—

052713
012737
032777
001374
032777
001774
005327
000005

1646112

jole]

020504
001402
104003
104401
012737

004000

—d

032777
001774
005327
000005
001365
032713
001000
012737
042705
005013
012737
032777
001374
032777
001774
005327
000005
001365
011304

—

015274
015302
015304
015306
015310
015312
015316
015320
015326
015332
C15334
015342
015350
015352
015360
015362
015364
015366
015370
015372
015374
015376
015400
015402
015410
015414
015422
015430
015432
015440
015442
015444
015446
015450
015452
015454
015462
015466
015474
015502

&He

2803

G 5
PAGE 59
MODEM CONTROL B8ITS DTR,RING,AND DSR INTERACTION TEST

13: 54

—

MACY11 30A(1052)
02-MAY-78
CZDPCC
13:47
-78
02-MAY
CZDPCC PN

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

;TURN ON EXTERNAL MODE
;LOAD THE NUMBER

:CHECK THE TIMER BIT
JBR IF SET
JCHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

;STRIP DSCA EDSCB FROM (SR

:GET THE REGISTER
;R5-GOOD ,R4=?
:BR IF 0K
;REPORT

;SW09=1?

THE

ERROR

;SCOPE THE WHOLE TEST

SEQ 0058

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
C2DPCC.P1Y

CZDPCC

2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882

2883
2884
2885

2886
2887

015552
015554

13:54
PAGE 60
MODEM CONTitD

BITS DTR,RING,AND DSR INTERACTION TEST
1002
0

.WORD
.WORD

001002
000000

G ANt nannn
JRARAENRRERSRRANR

;*THIS TEST PROVES THE
*WITH CTS,CARDET

TEST

AR RNNRRR
nnrnnr
traxnnvnRt

INTERACTION OF

RTS

;~AND DATA SET CHANGE ONE AND DATA SET CHANGE TwO.

;*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. (LEAR
;*THE BIT AND VERIFY CLEAR.

REPEAT FOR MRESET.

":itt't.tfit.*tt'tt'i'tfit'tli.tttti'itfittttit'tttt"tt.'ttt'tt.tt
A
AR NAN
ctRARNARR
L

;

TEST 21
| 4

S
RN A
CINRNRANRRAN

hd :t'.Qfii*tfififitfififi**itt"'ttlitt*ttt'it.tittttlttttt.fittttt'ttt.Qtttt.t

015556
015564
015572
015600
015604
015606
015612
015616
015622

012737
012737
012737

015624
015632
015636

052777
004737
013703
00503
052777
052713
012737
032777
001374
032777
001774
005327
000110
001365
011304
020504
001423

015642
015644
015652
015656

015664
015672

015674
015702

015704
015706
015710
015712
015714
015716
015720
015722
015724
015732
015740
015742
015750
015752
015754
015756
015760

105737
001002
000137
005077
004137
016214

000021
016224
015652
001322

001226
001216
001220

10%:

016212
163566
007332
000400
005044
001404

163560

010000
000004
000110
004000

163540

004000

T ST21:

BNE

JMP
CLR
JSR
7%

BIS
JSR

MOV

015706

1%:

163522

66%:

163512

67%:
68%:

CLR
BIS
BIS
MOV
BIT
BNE

BIT
BEQ
DEC

110
BNE

015754

163454

71%:

004000

163444

72%:
73%:

040000

AMRESET ,aTXCSR
PC,SMALL

RXCSR,R3
(R3)

AMEXT ,@TXCSR

ARTS, (R3)
#110,68%

#TIMER ,aTXDBUF

66%

#TIMER ,aTXDBUF

67%

(PC)+

CMP
BEQ
HLT
MOV

#5,73%

SCOP1

000005
004000

#21,34TSTNO
#TST22 NEXT
#1$,L0CK
TCNFLG
.6
63
aRXCSR
R1,0JUMPER

66%
(R3) R4
R5,R4
2%
3

MOV

104003

104401
012737
032777
001374
032777
001774
005327
000005
001355
032713

MOV
M.V
MOV
TSTB

BIT
BNE
BIT
BEQ
DEC
5
BNE
BIT

#TIMER,aTXDBUF

#TIMER,TXDBUF

72%

(PC)+

1
#RING, (R3)

;CLEAR THE REGISTER
;THIS CALL DETERMINES IF TURNAROUND CONNECTOR
JAND OPTIONAL JUMPER ARE USED

JAND LOADS RS (EXPECTED) ACCORDINGLY.
JRESET THE DEVICE

;WAIT FOR RESET TO FINISH

;LOAD THE RECEIVER CONTROL REGISTER TO R3.

;CLEAR OUT EXTRA BITS
JENTER EXTERNAL MAINT. MODE
;TURN ON RTS
;LOAD THE NUMBER
JCHECK THE TIMER BIT
JBR IF SET
;sCHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JGET THE BITS FROM THE RXCSR
;R5=G00D Ré4=?
JBRANCH IF THEY MAT(H
;NO MAT(CH - SHOW OPR.

;LOAD THE NUMBER
JCHECK THE TIMER BIT
;BR [F SET
;C(HECK THE BIT
;BR [F CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

SEQ 0059

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.P11

CZDPCC

2915
2916
2917
2918
2919

2920
2921
2922
2923
2924
2925

2926
2927
2928
2929

2930

2931
2932
2933

015764
015766
015774
016000
016002
016010
016016
016020
016026

016030
016032
016034
016036
016040
016042
016044
016046
016050
016056
016062
016070
016076

001000
012737
042705
005013
012737
032777
001374
032777
001774
005327
000005
001365
011304
020504

001402
104003
104401
012737
052713
012737
032777
001374
032777
001774
005327
000005
001365
005005

005013
052777
004737
052777

016210

016212
016214
016216
016220
016222

012737
032777
001374
032777
001774
005327
000005
001365
005713
011304
020504
001402
104003

12:54

2%:

001220

000005
004000

016032

163376

76%:

004000

163366

77%:

3s:

004000

001220
016112
163316
163306

L%
5%:

81%:
82%:

83%:

000400
005044
010000

163262

000005
004000

163250
016172
163236

86%:

004000

163226

87%:
88%:

000000

MOV

BIC
CLR

76%

#TIMER,aTXDBUF

77%
(PC)+

76%
(R3) R4
RS,R&
48

BIS
MOV
BIT

BNE
BIT
BEQ
DEC
5
BNE
CLR
CLR
BIS
JSR
BIS

MoV

8IT
BNE
BIT
BEQ
DEC
5
BNE

SCOP1

6%:
7%:

2%
#3%,L0CK
;SW09 SETUP
#(TS!CARDET!RTS,RS
;CLEAR OUT UNWANTED BITS
TER
REGIS
(R3)
;CLEAR OUT THE
R
#5,78%
:LOAD THE NUMBE
N#TIMER,aTXDBUF

TST
MOV
cMp
BEQ
HLT

104401

104400
130005
130001
000004

BNE

78%:

000004
000005
004000

MODEM CONTROL BITS RTS,CTS,AND CARDET INTERACTION TEST

016000
030004

016056

PAGE 61

SCOPE
.WORD
.WORD
.WORD
.WORD

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;B8R IF MORE TO GO
JREAD BACK THE REGISTER
JR5=G00D R4=?

JBRANCH [F ONLY THE DSC BITS ARE SET

;NO-GO TELL OPR

#5%,L0CK
#RTS, (R3)
#5,83%

:SW09 SETUP
;TURN ON RTS
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
JCHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;CLEAR OUT EXPECTED
:CLEAR OUT THE REGISTER
JRESET THE DEVICE

#TIMER,ITXDBUF

81%

#TIMER,aTXDBUF

82%

(PC)+

81%
RS
(R3)
#MRESET ,aTXCSR
PC,SMALL
MMEXT ,aTXCSR
#5,88%
#TIMER ,aTXDBUF

86%

#TIMER ,aTXDBUF

87%

(PC)+

86%
(R3)

(R3) ,R4
RS .R4
6%

130005
130001

JWAIT FOR RESET TO FINISH

;TURN ON EXTERNAL MODE
;LOAD THE NUMBER

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
:OF TIMES TO REPEAT
:BR IF MORE TO GO
;STRIP DSCA EDS(CB FROM (SR
;GET THE REGISTER
;R5=G00D ,R4=?
;:BR IF OK
:REPORT THE ERROR

:SW09=1?

;SCOPE THE WHOLE TEST

etarnnaeannnnnnrnnecnannnns

TEST

wannanatsnnnnnnannnnnnnnnns

;*THIS TEST PROVES THE INTERACTION OF STD

SEQ 0060

MACYT1 30A(1052)
02-MAY-78
CZDPCC
CZDPCC P11
02-MAY-78 13:47

2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984

2985

2986
2987
2988
2989
2990
2991
2992

13:54

PAGE 62

MODEM CONTROL BITS STD AND SRD INTERACTION TEST
;*WITH STD,SRD

;*AND DATA SET C(HANGE ONE AND DATA SET CHANGE TWO.
J*SET THE BIT AND VERIFY THE OTHER BITS ARE SET. (LEAR
;*THE BIT AND VERIFY CLEAR.

REPEAT FOR MRESET.

s :'.t'tttfi.ltti"'t'ttt!fltttfitttfi'fi'fit.tfi"tttfi"*'tttttttit..t'
J TARNANAAARNA RN

L TEST 22
.

:':Q'tttttttt't

.':ttlQ.fi.tfiifittfi'..tfifit"ttt'ttltttitttttttit'ttttttfiti'ltttfitiititttt

TST22:

016224
016232
016240
016246
016252
016254
016260
016264
016266
01627°2
016274
016300
016304

012737
012737
012737
105737
001002
000137
105737
001773

016306
016314
016320

052777
004737
013703
005013
052777
052713
012737
032777
001374
032777
001774
005327
000110
001365
011304
020504
001423

000400
005044
001404

163076

010000
000010
000110
004000

163056

012737
032777
001374
032777
001774
005327
000005
001365
032713
001000
012737

000005
004000

016436
162772

7s:

004000

162762

72%:

016324
016326
016334
016340
016346
016354
016356
016364
016366
016370
016372
016374

016376
016400
016402
016404
016406
016414

016422
016424
016432
016434
016436
016440
016442
016446
016450

105737
001770

005077
004137
016676

104003
104401

000022
016706
016334
001322

001226
001216
001220

10%:

016674
001334

STJMFL

BEQ
CLR

007332

1$:

103040

66%:

163030

67%:

73%:

040000

001220

2%:

108

SRJMF
L

108
aRXCSR

;CLEAR THE REGISTER

JSR

;THIS CALL DETERMINES IF TURNAROUND CONNECTOR

BIS
JSR

#MRESET ,aTXCSR
PC,SMALL

JAND LOADS RS (EXPECTED) ACCORDINGLY.
RESET THE DEVICE
;WAIT FOR RESET TO FINISH

CLR
BIS

(R3)
MEXT ,aTXCSR

;CLEAR OUT EXTRA BITS
JENTER EXTERNAL MAINT. MODE

MoV

016370

#1$,L0CK
TCNFLG
.+6
63

R1,0JUMPER

’$

68%:

016462

1STB

MOV
1ST8B
BNE
JMP
1ST8

163104

#22,a#TSTNO

#TST23 NEXT

BEQ

001336

004000

MOV

RXCSR,R3

BIS
MOV

#57D, (R3)
#110,68%

BNE
MoV
CMP

663
(R3) ,R4
R5,R4

BIT
BNE
BIT
BEQ
DEC
110

8EQ
HLT
SCOP1
MOV
BIT
BNE
BIT
BEQ

DEC
5

BNE

#TIMER,aTXDBUF
66%
#TIMER,QTXDBUF
67%
(PC)+

;LOAD THE RECEIVER CONTROL REGISTER TO R3.
;TURN ON STD
;LOAD THE NUMBER

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT

;BR IF MORt TO GO
;GET THE BITS FROM THE RXCSR
;R5=GO0D R4=?

2%
3

;BRANCH IF THEY MATCH
;NO MATCH - SHOW OPR.

#5,73%
#TIMER,QTXDBUF
718
#TIMER,QTXDBUF
72%

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;JBR IF SET
;CHECK THE BIT
:BR IF CLEAR

(PC)+

718

BIT

WRING, (R3)

MOV

#3%,L0CK

BNE

JAND OPTIONAL JUMPER ARE USED

;DECREMENT THE NUMBER
;OF

TIMES TO REPEAT

;BR IF MORE TO GO

;SW09 SETUP

SEQ 0061

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZoPCC.P11

CZDPCC

3027

3028
3029
3030
3031
3032
3033

016456
016462

016464
016472
016500

016502

016510
016512
016514
016516
016520
016522
016524
016526
016530
016532
016540
016544
016552
016560
016562
016570
016572
016574
016576
016600
016602
016604
016612
016616
016624
016632
016640
016642
016650

016652
016654
016656
016660

042705
005013
012737
032777
001374
032777
001774
005327
000005
001365
011304
020504
001402

104003
104401

012737
052713
012737
032777
001374
032777
001774
005327
000005
001365
005005
005013
052777
004737
052777
012737
032777
001374
032777
001774
005327
000005
001365
005713
011304
020504
001402

K
S
13:54 PAGE 63
MODEM CONTROL BITS STD AND SRD INTERACTION TEST

002010

3%:

000005
004000

016514
162714

76%:

004000

162704

77%:

78%:

104400

016704

MOV

BIT
BNE
BIT
BEQ
DEC

BNE

MOV

MP
BEQ
HLT

016540
000010
000005
004000

001220

004000

162624

016574
162634

004000

763

#TIMER,aTXDBUF

77%
(PC)+

76%
(R3) ,R4
RS R4
4%

#TIMER, @TXDBUF

162554

86%:

162544

87%:
88%:

81$

#TIMER,aTXDBUF

82%

(PC)+

81%
RS
(R3)

MMRESET ,aTXCSR
PC,SMALL

#TIMER ,aTXDBUF

86%

#TIMER ,aTXDBUF

87%

(PC)+

TST
MOV
(MP
BEQ
HLT

SCOP1

6%:
7$:

5,838

WMEXT ,aTXCSR
#5,88%

BNE

SCOPE
.WORD
.WORD
.WORD
.WORD

;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE T0O GO
JREAD BACK THE REGISTER
;R5=G00D Ré4=?

;BRANCH IF ONLY THE DSC BITS ARE SET
;SW09 SETUP

BIT
BNE
BIT
8tQ
DEC
5
BNE
(LR
CLR

82%:

;LOAD THE NUMBER

:NO=-GO TELL OPR

81%:

MOV

;CLEAR OUT UNWANTED BITS
:CLEAR OUT THE REGISTER

#58,L0CK
#STD, (R3)

162600

162566
016654

#TIMER,ITXDBUF

MOV
BIS

83%:

000400
005044
010000
000005
004000

SCOP1

#STD!SRD
RS
(R3)
#5,78%

4%:
5%:

104003
104401

002011
002001
000010
000000

8IC
CLR

86%
(R3)
(R3) ,R4
RS.R4
63

2011
2001

;TURN ON STD

;LOAD THE NUMBER
JCHECK THE TIMER BIT
;BR [F SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;CLEAR OUT EXPECTED
:CLEAR QUT THE REGISTER
JRESET THE DEVICE
:WAIT FOR RESET TO FINISH
;TURN ON EXTERNAL MODE

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;:BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO

:STRIP DSCA £DSCB FROM (SR

;GET THE REGISTER
;R5=GO0D ,R4=?

:BR IF OK

JREPORT

;SW09=1?

THE

ERROR

;SCOPE THE WHOLE TEST

carennrananannnnenweannannnn

JEST

sannnnnnnnsnannnnannnnnanes

;*THIS TEST PROVES THE INTERACTION OF DTRI!RTS!STD
;*WITH RING,DSR,CTS,CARDET,STD,
SRD

;*AND DATA SET CHANGE ONE AND DATA SET CHANGE TWO.

SEQ 0062

MACY1 30A(1052)
02-MAY-78
CZDPCC
CZ0PCC PN
02-MAY-78 13:47

13:54

PAGE 64

SEQ 0063

ALL MODEM CONTROL BITS INTERACTION TEST

;«SET THE BIT AND VERIFY THE OTHER BITS ARE SET. CLEAR
;*THE BI7 AND VERIFY CLEAR. REPEAT FOR MRESET.

::tt!ttt"i'fittt"'i"&tttt'."'fi'.'t'ttfittttttttttt'tttt'tttttt

CCRRRRARNNRARRN

P OTEST 23
"

ctRANANNRRANAAN

- :tt*fittfi.'t.itttfiti'it't't"fitttttttttttttttttttltttttttttttttttttttt

016706
016714
016722
016730
016734
016736
016742
016746
016750
016754
016756
016762
016766
016770
016776
017002
017006
017010
017016
017022
017030
017036
017040
017046
017050
017052
017054
017056
017060
017062
017064
017066
017070
017076
017104
017106
017114
017116
017120
017122
017124
017130
017132
017140
017144

012737
012737
012737
105737

000023
017370
017016
001322

000137

017356

001002

105737

001773

105737
001770
005077

004137
017360

001226
001216
001220

001334

TST8

JSR
7%

162414

010000

162374

032777
001374
032777
001774
005327
000110
001365
011304
020504
001423

004000

1%:

017052

162356

66%:

004000

162346

67%:
68%:

012737
032777

000005
004000

017120

162310

71%:

032777

004000

162300

72%:

73$:

001220

28:
38:

TCNFLG

STJMFL

108

SRUMFL

108
aRXCSR

R1,.0JUMPER

;CLEAR THE REGISTER

JTHIS CALL DETERMINES IF TURNAROUND CUNNECTOR
;JAND OPTIONAL JUMPER ARE USED

JAND LOADS RS (EXPECTED) ACCORDINGLY.

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

BIS
JSR

WMMRESET ,@TXCSR
PC,SMALL

CLR
BIS
BIS
MOV
BIT

(R3)
;CLEAR OUT EXTRA BITS
JENTER EXTERNAL MAINT. MODE
MMEXT ,@TXCSR
#DTR!RTS!STD, (R3)
;TURN ON DTR!RTS!STD
;LOAD THE NUMBER
#110,68%
;CHECK THE TIMER BIT
#TIMER,aTXDBUF

MOV

000016
000110

017144
073016

.+6
63

BEQ
(LR

000400
005044
001404

012737
042705

BNE
JMP

1518

162422
007332

040000

#23,a#TSTNO
HTST24 NEXT
#1$,L0CK

BEQ

001336

032713

MOV
[ 01Y)
MOV

TSTB

10%:

052777
004737
013703
005013
052777

052713
012737

TST23:

BNE
BIT
BEQ
DEC
110
BNE
MOV
CMP
BEQ

HLT
SCOP1
MOV

BIT
BNE

BIT

8EQ
DEC
5
BNE

RXCSR,R3

;LOAD THE RECEIVER CONTROL REGISTER TO R3.

;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
JBR IF MORE TO GO
;GET THE BITS FROM THE RX(SR
;R5=G00D R4=?
JBRANCH [F THEY MAT(CH
;JNO MATCH - SHOW OPR.

#5,73%

;LOAD THE NUMBER

663
#TIMER,QTXDBUF
67%
(PO +

663
(R3) ,R4
R5.Ré
2%

#TIMER,aTXDBUF
718
#TIMER,aTXDBUF

72%
(PC)+

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

8IT

718
#RING, (R3)

MOV
BIC
CLR

#3%,L0CK
;SW09 SETUP
#RING!CTS!CARDET!SRD!DSR!STD!RTS!DTR,RS
;CLEAR OUT THE REGISTER
(R3)

BNE

;CLEAR OUT UNWANTED BITS

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZOPCC.P11

(ZOPCC

3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152

3153
3154
3155
3156
3157
3158

3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172

3173
3174
3175
3176
3177
3178
3179
3180

[
PAGE 65
ALL MODEM CONTROL BITS INTERACTION TEST

017146
017154
017162
017164
017172
017174
017176
017200
017202
017204
017206
017210
017212
017214
017222
017226
017234
017242
017244
017252
017254
017256
017260
017262
017264
017266
017274
017300
017306
017314
017322
017324
017332
017334
017336
017340
017342
017344
017346
017350
017352
017354

012737
032777
001374
032777
001774
005327
000005
001365
011304
020504
001402
104003

000005
004000

017176
162232

76%:

004000

162222

77%:

012737
052713
012737
032777
001374
032777
001774
005327
000005
001365

017222
000016
000005
004000

001220
16215¢

81s:

004000

162142

828:

017356
017360
017362
017364
017366

104400
173017
173001

104401

005005
005013
052777
004737

052777
012737
032777
001374
032777
001774
005327
000005
001365

78%:

BEQ
DEC

#5,78%
#TIMER,QTXDBUF
76$
N#TIMER,aTXDBUF
77%
(PC)+

BNE
MOV
(MP

76%
(R3) R4
R5,Ré

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
JBR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
;JREAD BACK THE REGISTER
;R5=GOOD Ré4=?

HLT
SCOP1

;NO-GO TELL OPR

MOV
BIT
BNE
BIT
5

8EQ

017256

43:

5%:

83$:

162116

MOV
BIS

#5%,L0CK

BIT
BEQ
DEC
5
BNE
CLR
CLR
BIS
JSR
BIS

#TIMER,aTXDBUF
82%
(PC)+

MOV
BIT
BNE

#5,83%
#TIMER,’TXDBUF
81$

RS
(R3)
MMRESET ,@TXCSR
PC,SMALL
#MEXT ,aTXCSR

;CHECK THE TIMER BIT

81%

86%:

BIT

#TIMER ,@TXDBUF

004000

162062

87%:

BIT
BEQ
DEC
5
BNE
TST
MOV
WP
BEQ

#TIMER,QTXDBUF
87%
(PO)+

88%:

001402
104003
104401

MOV

BNE

HLT

SCOP1

6%:
7$:

SCOPE

.WORD

.WORD
.WORD
.WORD

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET

;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;B8R IF MORE TO GO
;CLEAR OUT EXPECTED
;CLEAR OUT THE REGISTER
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
.TURN ON EXTERNAL MODE

017336
162072

162104

JBRANCH IF ONLY THE DSC BITS ARE SET

;SW09 SETUP
#DTR!RTS!STD, (R3)
;TURN ON DTR.RTS!STD

000400
005044
010000
000005
004000

005713
011304
020504

001016
000000

SEQ 0064

13: 54

#5,88%

86%

86%
(R3)
(R3) ,R4
R5,R6
6%
3

173017

;LOAD THE NUMBER

;BR IF SET

;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR [F MORE TO GO
;STRIP DSCA &DSCB FROM (SR
;GET THE REGISTER
sR5=GO0D ,R4=?
;BR IF OK
;REPORT THE ERROR

;SW09=1?

. SCOPE THE WHOLE TEST

173001
1016

JNRRRRRRRARR
N ANt nanananan

JEST

saxnranncnANRR
A RN TR R RNNESE

J*TEST THAT SETTING TRANSMIT INTERRUPT

;*ENABLE AND TRANSMITTER DONE PRODUCE
;*AN INTERRUPT ON THE TRANSMITTER VECTOR.

.':fi't'.t.t'!t"t'tt".ttfifit..llttfi!fi..tttlt...l't..fittl.!tttt!t'

;:....Q'.Q.Qt.

CZOPCC

MACY11 30A(1052)

CZ0PCC.PIN

02-MAY-78

02-MAY-78 13:47

PAGE 66

13:54
:

3197

; TEST 24

2198

3199

3200
3201

JINNRNRANRRERR

017370
017376

012737
012737

3202
3203

017404
017410

012706
000005

3211
3212
3213
3214
3215
3216
3217
3218

0172444
017452
017456
017464
017466
017470
017472
0174746

052777
005037
052777
000240
000240
000240
104027
012706

3204
3205
3206
3207
3208
3209
3210

3219
gsg?

017412
017420
0176426
017632
017436
017440
017442

017500
017504

012737
052777
004737
004537
007254
017474
340

005077
104400

000024
017506

001150

000340
GO0400
005044
007232
340
004000
177776
000100

001226
001216

RPN R AR

NN AR AN RN AR A AN AN

T1ST24:

MOV
MOV
MOV

161726

1%:

#SYSTST ,aTXCSR
PS
ATXINTE ,@TXCSR

BIS
(LR
8IS
NOP
NOP
NOP
HLT
MOV

27
#STACK,SP
aTXCSR

(LR
SCOPE

3222

INARANRRANARAR AR

3226

3223
3224
3225

JLOCK OUT INTERRUPTS
RESET THE DEVICE
JWAIT FOR RESET TO FINISH
:SET UP THE VECTORS
JVECTOR 'A"°
J;VECTOR B
JPRIORITY
;JERO CPU PRIORITY
;TURN ON TXINT ENABLE
;STALL
;DITTO
:DITTO
:PDUP FAILED TO INTERRUPT
JRESET THE STACK
;DISABLE DUPII
;SCOPE THIS TEST

RANR RN TEST 25 nntntcanasnencnensennnncnns

;«TEST TO VERIFY THAT A TRANSMITTER DONE
;INTERRUPT WILL ONLY OCCUR ONCE
IF THE
;«TXCSR AND TXDBUF ARE *NOT+ READ OR WRITTEN.

3227

3228

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

N AR

AR AN G N

R T TR RO

JINNNRERARRNARS

3229

;

3231

;

3230

;

3232
3233

TEST 25

JINNANNRANNRRR
AN AR NN AR AN AR AR

3234
3235
3236
3237
3238
3239

017506
017514
017522
017530
017536
017542

012737
012737
012737
052777
004737
004537

3241
3242
3243
3244
3245
3246
3247
3248
3249
3250

017550
017552
017554
017562
017570
017574
017576
017600
017602
0176C«

017650
340
052777
052777
(0S037
000240
00V240
000240
104027
000411

3240

AE AN AT R RN RO N ERRNR IR IAR NS

#STACK ,SP

#340,PS
MOV
8IS
MMRESET ,@TXCSR
PC,SMALL
JSR
JSR
RS,SETVEC
NO.ATRAP
1%
340,340
.BYTE

161740

R AR AR

#24 ,@NTSTNO
#TST2S NEXT

RESET

177776
161764

001150
161706

SEQ 0065

TRANSMITTER DONE BIT [NTERRUPT TEST

3195

3196

017546

007254

000025
017700
000340
000400
005044
007232
340
004000
000100
177776

001226
001216
177776
161654

TST25:

MOV
MOV
MOV
81S
JSR
JSR

NO.ATRAP

161630
161622

1%
.BYTE
8IS
BIS
(LR
NOP
NOP
NOP
HLT
BR

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

#25 ,a¥TSTNO
#TST26 NEXT
#340,PS
#MRESET ,@TXCSR
PC,SMALL
RS,SETVEC
340,340
#SYSTST,aTXCSR
#TXINTE ,@TXCSR
PS

27
5%

JLOCK OUT INTERRUPTS
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
JSETUP FOR INTERRUPTS
JRECEIVER

;TRANSMITTER
sJLEVEL
;TURN ON CLOCK
;TURN ON INT. ENABLE
;LOWER PROCESSOR STATUS
;STALL
;DITTO
;DITTO
;DUP FAILED TO INTERRUPT
JLEAVE TEST

Nae

MACY11 30A(1052)
02-MAY-78
CZ0PCC
02-MAY-78 13:47
cZ0PCC P11

°%:

161566

A ¥

005037
000240
000240
000240

012737
005077
012706

000340

017650
017654
017660
017662
017664
017666
017670
017670
017672
017676

012716

017606
007232

104400

161550

177776

PAGE 67

5%:

001150

SEQ 0066

CLR

:LOWER PROCESSOR STATUS

TST8
BMI

oTXCSR
5$

JCHECK THE DONE BIT
‘BR IF SET

MOV

#STACK,SP

NOP
NOP
NOP

HLT
MOV
CLR

24
#340,PS
aTXCSR

SCOPE

1$%:

340

ONLY ONE INTERRUPT PER TXDONE TEST

177776

017606
017612
017614
017616
017620
017624
017626
017630
017636
017642
017646

105777
100401
104024

13:54

017620

;STALL
;DITTO
;DITTO

:DONE IS CLEARED AND SHOULDN'T BE
;RAISE PROCESSOR STATUS
;CLEAR OUT DUP

JRESET STACK
;SCOPE THIS TEST

#28,(SP)
MOV
RS,SETVEC
JSR
NO.ATRAP
2s
.BYTE
340,340

;SET UP SECOND PART OF TEST
:SETUP FOR SECOND INTERRUPT TRY
*RECEIVER
:TRANSMITTER
cLEVEL

HLT
MOV

:REPORT THE FACT YOU GOT HERE
;SETUP FOR END OF TEST

RT]

25
#4%, (SP)

RT]

JRETURN

IRRRRNARRRRRAR
AR RNRANRNNRR

TEST

At atataaataaantanaaa
st aanan

:*TEST THAT SETTING DATA SET INTERRUPT
;*ENABLE AND RECEIVING A DATA SET
;*CHANGE 1 OR DATA SET CHANGE 2
:*PRODUCES AN INTERRUPT TO THE
;*RECEIVER VECTOR

:;ttttttttttt*ttttttttttttttttttttfittttQttttt'tt'tttttfitfitttt'tt

::tittttt‘ttttt
.

: TEST 26
.

:':ttttltt*ttti
;:ttttttttttttttttfit'ttttttttttttttttttfitttitfitttfitttttttfi't"tttttfi'!

017700
017706
017714
017720
017722

017726
017734
017742
017750
017754
017762
017766
017770
017772
017774
020000
020014
020022

012737
012737
105737
001002
000137
012737
012737
052777
004737

000026
020216
001322
020204
017774

007232

032777

340
177776
000040
000004
000005
004000

001226
001216

TST26:

161430

020044
161364

#26,a4TSTNO
NTST27 NEXT

BNE
JMP

.+6
5¢

CLR
BIS
BIS

PS
#DSINTE ,aRXCSR
#RTS,aRXCSR

8IT

#TIMER,aTXDBUF

TST8

001220
177776
161442

161376
161370

MOV
MOV

18:

66$:

TCNFLG

#1$,L0CK
MOV
MOV
#340,PS
BIS
#MRESET,.@TXCSR
PC,SMALL
JSR
8IS
AMEXT ,aTXCSR
JSR
RS, SETVEC
2s
NO.BTRAP
340,340
BYTE

MOV

5,688

:SW09 SETUP
:LOCK OUT INTERRUPTS
;RESET THE DEVICE
:WAIT FOR RESET TO FINISH
:ENTER MAINT EXTERNAL MODE
*SET UP VECTORS
*RECEIVER
;TRANSMITTER
:PRORITY AT 7
‘LOWER PS
;TURN ON INT. ENABLE
“TURN ON INT. BIT

*LOAD THE NUMBER

;CHECK THE TIMER BIT

02-MAY-78
C20PCC
MACY11 30A(1052)
02-MAY-78 13:47
CZDPCC P
001374
032777
001774
005327
000005
001365
104022
104401

012706

004000

6
cC
13:54
PAGE 68
RECEIVER DATA SET CHANGE BITS INTERRUPT TEST

161354

68%:

2%:

001150
161320
020104

340

001220

020204
020210
020214

MOV
JSR

#3%,10CK
R5,SETVEC

;SW09 SETUP
;SET THE VECTORS

001236

161246

71%:

004000

161236

72%:

161264

161252
020162

.BYTE
MOV
BIS
CLR
8IS
MOV

3%:

000005
000040
177776
000002
000156
004000

100000

BIT
BNE
BIT
BEQ
DEC
110.

104400

;PRIOR @7
;LOAD TEMP1
;TURN ON INT. ENABLE
;LOWER CPU STATUS
;PUSH OUT INT, BITS
;LOAD THE NUMBER

718

;BR IF MORE TO GO

BIT

#BIT1S5,aRXCSR

CLR
MOV
SCOPE

aRX(CSR
#STACK,SP

;CHECK THE TIMER BIT
;BR IF SET
,;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
JFAILED TO INTERRUPT

;BIT09=1?

5%
23

BNE
HLT

JRECEIVER
s TRANSM] TTERS

340,340
#5. ,TEMP1
#DSINTE ,@RXCSR
PS
#DTR,aRXCSR
#110.,73%

HLT

SCOP1

5%:

005077
012706

:CLEAR OUT RECEIVER CONTRL REGISTER.

#TIMER,aTXDBUF
718
#TIMER,®TXDBUF
72%
(PC)+

BNE

161204

JFAILED TO INTERRUPT

aRXCSR

43
NO.BTRAP

o8
001001
104023

#STACK,SP

; SW09=1
JRESET THE STA(K

CLR

73%:

020200
020202

SCOP1
MOV

HLT

007232

032777

66%

JBR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

66%
NTIMER,QTXDBUF
67%
(PC)+

BNE
BIT
BEQ
DEC
5
BNE

67%:

SEQ 0067

;CHECK FOR INTERRUPT FROM DSC1

;1T CAME FROM DSC1
:BIT1S5 IS CLEARED - INTERRUPTED
JFROM THE WRONG DSC BIT.

;CLEAR OUT RECEIVER CONTROL REG
JRESET THE STAC(CK
;SCOPE THIS TEST

AR KA AN KRR R
RARARR
AN
JNRRRNARRNANAANRNANANARARAR TEST 7 RNARRAR

;*«TEST THAT SETTING RECEIVER INTERRUPT

;J*ENABLE AND RECEIVER DONE CAUSES AN
;*INTERRUPT TO THE RECEIVER VECTOR
AR R

ARAR R AR AR KRR AR AR AN AR RN RN

K AN

R A NAR R XA NR

JIRNRARRRRRRANR
.

; TEST 27
:

JIRRRRARARARRR

020216
020224
020232
020240
020246
020252
020260

012737
012737
012737

000027
020476
000340
000400
005044
004000
007232

001226
001216
177776
161144

161132

TST27:

MOV

MOV
MOV
8IS

JSR
8IS
JSR

RA R AR AR RN AR

A RN RN AR R NAR AR R AN

AR AR KRR R AR

#27 ,a#TSTNO

#TST30 NEXT
#340,PS
MMRESET ,aTXCSR

PC,SMALL
#SYSTST ,@TXCSR
RS,SETVEC

;LOCK OUT INTERRUPTS
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;ENTER SYSTEM TEST MODE
;SET UP VECTORS

R R

R RAANS

MACY11 30A(1052)
02-MAY-78
CZDPCC
13:47
8
02-MAY-7
czopCC P11

3363

3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391

020264
020266
020270

020460
007260
340
005037
052777
052777
052777

012737
032777
001374
032777
001774
005327

000005
001365
032777
001001

340
177776

3$
NO.BTRAP

.BYTE

000020
000100
000020

161100
161072
161072

000005
004000

020350

161060

66$:

004000

161050

67%:

000200

000400
161012

005077

161006
161000

012777
012737
032777
001374
032777
001774
005327
000050
001365
104022
012706
005077
005077
104400

SEQ 0068

161020

MOV

#5,68%

71%:

004000

160746

72%:

BIT
BEQ
DEC
5
BNE
BIT
BNE

#TIMER,3TXDBUF
67%
(PC)+

HLT

663
#TXDONE ,aTXCSR
g 3
24

;CHECK THE BIT
;BR IF CLEAR
:DECREMENT THE NUMBER
;O0F TIMES TO REPEAT
;BR IF MORE TO GO
;TEST TXDONE
;BR IF SET

MOV

#4600, aTXDBUF

;LOAD TX BUFFER

BPL
CLR

.~
o TXDBUF

- DONE
;CLEAR TX BUFFER

160714
160716

TXCSR

TSTB

aTXCSR

MOV
MOV
BIT

#1000, aTXDBUF
#60.,73%
#TIMER,QTXDBUF

BIT
BEQ

#TIMER,QTXDBUF
72%

40.
BNE

;TXDONE FAILED TO SET
JCHECK FOR

;AND CHECK

71%

;BR IF SET

;LOAD END OF MSG
;LOAD THE NUMBER
;CHECK THE TIMER BIT

;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE T0O GO

71%
22
#STACK,SP

HLT
MOV
CLR
CLR
SCOPE

;BR IF SET

.FOR DONE

(PC)+

DEC

3s:

001150

663

B8NE

73%:

;LOAD THE NUMBER

;CHECK THE TIMER BIT

B8PL

160772
020452
160756

;PRIORITY AT 7
;LOWER PS
;TURN ON RECEIVER
;TURN ON INT. ENABLE
;JTURN ON TRANSMITTER

#TIMER,QTXDBUF

TSTB

001000
000050
004000

340,340

)
#RCVEN,@RXCSR
NRINTEN,aRXCSR
#SEND ,@TXCSR

BNE

161030

JRECEIVER
;TRANSMITTER

CLR
BIS
BIS
8IS

BIT

012777
105777
105777
100375

1%:

68¢%:

104024

100375

13:54 PAGE 69
RECEIVER DONE BIT INTERRUPT TEST

;RECEIVER FAILED TO INTERRUPT
JRESET STACK
:CLEAR OUT REGISTER
:DITTO
:SCOPE THIS TEST

aRXCSR

aTXCSR

sarnnnnnnnnnnnnnrretasnanannn

TEST

wnnannnennasnnnnnsnnnnennns

;*TEST TO VERIFY THAT A RECEIVER DONE

J*INTERRUPT WILL ONLY OCCUR ONCE I[F THE
;*RXCSR AND RXDBUF ARE NOT READ OR WRITTEN

o :tfitt*l.t!ttt*tiiitt!ttttkttifi'ttttttttttittttttttitttltttiliit

EREEELEE

JINRRRARNRRRESE

; TEST 30

JIRRRARRRRANNS

020476
020504
020512

012737
012737
012737

000030
021056
000340

001226
001216

177776

AN A

TST30:

AN AN AR AR A R AR

MOV

MOV
MoV

R AR R AN R NN R A AR

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

#30,a84TSTNO

#TST31 NEXT

#340,PS

;LOCK OUT INTERRUPTS

MACY11 3UA(1052)
02-MAY-~-78
CZoPCC
02-MAY-78 13:47
CZ0PCC P11

13:56

052777
004737
052777
004537
021026
007260

340
052777

340
000020

020574
020602

012737
032777
001374
032777
001774
005327
000005
001365
032777
001001

000005
004000

020624
160604

66%:

004000

160574

67%:

000200

160554

012777

000400
160536

160544

005077

160532
160524

012777
005037

001000

160516

012737
032777
001374
032777
001774
005327
000050
001365

000050
004000

020732

160476

71%:

004000

160466

72%:

020560
020566
020574

020610
020612
020620
020622
020624
020626
020630
020636
020640
020642
020650
020654
020656

020662

020666
020670
020676
020702
020702
020710
020716
020720
020726

020730
020732
020734
020736
020740
020742
020742

020750

020752
020760
020762
020770
020776
021000
021002
021010
021014
021020
021024
021026

052777
052777

104024

105777
100375

000100
000020

BIS
JSR

160664

BIS

160652

JSR

NO.BTRAP

.BYTE

160626
160616
160616

68%:

177776

2%:

108:

73%:

104022

000420

032777
001374
032777
001774
012737
033777
001001

004000

160444

004000

160434

000340
000200

177776
160406

012737

000340
160370

104024

005077
005077
012706
104400

177776

SEQ 0069

ONLY ONE INTERRUPT PER RXDONE TEST

020520
020526
020532
020540
020544
020546
020550
020552

000400
005044
004000
007232

PAGE

3%:

74%:
75%:

160366

6%:

RS,SETVEC

340,340

W#RCVEN,3RXCSR
#RINTEN,aRXCSR
#SEND ,aTXCSR

MOV
BIT
BNE
8IT
BEQ
gEC

”5,689%
#TIMER,aTXDBUF
66$
#TIMER ,aTXDBUF
67%
(PC)+

BNE
BIT
BNE
HLT

663
#TXDONE ,aTXCSR
2%
24

CLR
T1STB
BPL

a TXDBUF
aTXCSR
.=~4

MOV
1STB
BPL

#TSOM,aTXDBUF
aTXCSR
.4

MoV
CLR

#TEOM,aTXDBUF
PS

MOV

#40.,73%

BEQ

72%

BIT
BNE
BIT

DEC

40.

BNE

#TIMER,aTXDBUF
718
#TIMER ,aTXDBUF

(PC)+

718

HLT
BR

22
5%

BIT
BNE

#TIMER,aTXDBUF
74%

BIT
BEQ
BNE

001150

PC,SMALL
#SYSTST ,@TXCSR

BIS
BIS
BIS

MOV
BIT

5%:

AMRESET ,aTXCSR

HLT
MoV
CLR
CLR
MOV
SCOPE

#TIMER,ITXDBUF
75%
#340,PS
RXDONE ,aRXCSR

24
#340,PS
aRXCSR
aRXDBUF
SP
#STACK,

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH
JENTER SYSTST MODE

;SETUP VECTORS
JRECEIVER VECTOR

;TRANSMITTER VECTOR

JLEVEL
;TURN ON RECEIVER

;TURN ON INT. ENABLE
;TURN ON TRANSMITTER

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JTEST TXDONE
JWAIT
;TXDONE FAILED

TO SET

;LOAD TX BUFFER
;CHECK DONE
;AND THEN
;LOAD BUFFER
JAND CHECK
;DONE AGAIN, THEN
;SET END OF MSG
JLOWER PS

;:LOAD THE NUMBER
:CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
:DECREMENT THE NUMBER

:OF TIMES TO REPEAT
;BR ]F MORE TO GO
JRECEIVER FAILED TO INTERRUPT
;LEAVE

;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE TIMER BIT
:BR IF CLEAR
JRAISE PS
s TEST RXDONE
JBR IF SET
JRXDONE i3S WWO7 SET AND SHOULD BE
sLOCKOUT INTERRUPTS
;CLEAR OUT DEVICE
;DITTO
JRESET THE STACK

;SCOPE THIS TEST

02-MAY-78
MACY11 30A(1052)
CZDPCC
02-MAY-78 13:47
CzbprPCC PN
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491

021026
021032
021036
021040
021042
021044
021046
021046

012716

021050
021054

012716
000002

004537

021046
007260
340
000002

13:54

PAGE 71

SEQ 0070

ONLY ONE INTERRUPT °ER RXDONE TEST

020742
007232

MOV
JSR

#3%,(SP)
RS,SET.EC

;2ND PART SETUP
;SETUP FOR SECOND INTERRUPT TRY

BYTE

340,340

JLEVEL

HLT

MOV

#5%,(SP)

7%
NO.BTRAP

340

104023

021002

RT1]

RTI

JRECEIVER VECTOR
;TRANSMITTER VECTOR
JRETURN

;REPORT THE FACT YOU GOT HERE
;YOU TOOK A SECOND INTERRUPT AND SHOULDN'T H*AVE

JSETUP TO LEAVE TEST
;LEAVE

JRRNRNANANRNAA RN RN AN

NRNR

TEST

AR AN AR R NN RNANAR

;*TEST TO VERIFY THAT INTERRUPT VECTOR '‘A'’

:*0CCURS BEFORE INTERRUPT VECTOR 'B'' EVEN
;*WHEN VECTOR 'B'' IS ENABLED BEFORE
J*VECTOR 'A"’
IR AN RN RN

3492

3493
3494
3495

AR AR R R AR AR AR AN AR

RN AN R

RN N

R AR AR T AR TR RRA

JIRRNRRNARNAAR

; TEST 31
.

JINRNRRRARREAN

012737
012737
012737
052777
004737

004537
021376
007260

340

052777
052777
052777
052777
052777
012737
032777
001374
032777
001774
005327
000005
001365

032777
001001

000031

021616
000340
000400
005044
007232

001226

001216
177776
160304

000005
004000

021212
160216

66S%:

004000

160206

67¢%:

68%:
160166
2

021244

000400

005077

160144

160150

MOV
MOV
BIS

NO.BTRAP

160260
160244
160236
160234
160230

012777

MOV

JSR
JSR

740
004000
000020
000100
001000
000020

.
070200

N AR AR AR AR AR AR AN

104024

105777
100375

TST31:

160156

AR AR AN AR AN AR AR NA R AR

R AN

#TST32 NEXT
#340,PS
MMRESET ,@TXCSR
PC,SMALL
RS,SETVEC

;SET PRIORITY TO 7
;RESET THE DEVICE

JWAIT FOR RESET TO FINISH
JSET UP THE VECTORS
JRECEIVER VECTOR

;TRANSMITTER VECTOR

.BYTE
BIS
BIS
BIS
BIS
BIS

340,340
#SYSTST,aTXCSR
#RCVEN,aRXCSR
NRINTEN,3RXCSR
#CRCEN,a8PARCSR
#SEND ,aTXCSR

MOV
817
B8NE
BIli
B8EQ
DEC
5
BNE
BIT
BNE
HLT

#5,68%
#TIMER,3TXDBUF
66%
#TIMER,TXDBUF
67%
(PC)+

66%
#TXDONE ,@TXCSR
23
24

;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
TEST TXDONE
;BR IF SET
JTXDONE FAILED TO SET

MOV

#400,aTXDBUF

;LOAD TX BUFFER

TSTB
BPL
CIR

SRR RN RN

#31,a#TSTNO

aTXCSR
=4
a T XDBUF

JLEVEL
;ENTER SYSTEM TEST MODE
;TURN ON RECEIVER
;TURN ON REC. DONE INT. ENABLE
;TURN OFF (RC
JTURN ON TRANSMITTER

;CHECK FOR
;DONE
;LOAD THE BUFFER

AR AN

02-MAY-78
MACY11 30A(1052)
02-MAY-78 13:47
CZDPCC.P1N
CZOPCC

021250
021254
021256
021264
021272
021300
021302
021310
021312
021314
021316
021320
021324
021326
021330
021336
021340
021342
021350
021354
021362
021364
021372
021374
021376
021402
3559
3560
3561

021410
021414

105777
100375
012777
012737
032777
001374
032777
001774
005327
000144
001365

105777
100401
104024

G 6
13: 54 PAGE 72
DUAL VECTORING---RECEIVER BEFORE TRANSMITTER---TEST
TSTR

160136
160130

001000
000144
004000

021314
160114

71%:

004000

160104

72%:

73%:
160060

032777
001001

000200

160054

5%:

052777
005037
032777
001374
032777
001774

000100
177776
004000

160042

3%:

160032

74%:

004000

160022

75%:

104024

104027
012706

052777
004737
104400

001150
000400
005044

160002

3585
3586

719

;DONE AGAIN
;LOAD TEOM
;LOAD THE NUMBER
;CHECK THE TIMER BIT
;BR IF SET
;(CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

BM]

;BR IF SET

#TXINTE ,@TXCSR
PS

;TURN ON TRANSMITTER INT. ENABLE
;LOWER PROCESSOR STATUS

TSTR

aRXCSR

HLT
817
BNE
HLT

24
#TXDONE ,@TXCSR
33
24

BIT
BNE
BIT

#TIMER,QTXDBUF
74%
#TIMER,QTXDBUF

HLT
MOV
BIS
JSR
SCOPE

27
#STACK,SP
MMRESET ,aTXCSR
PC.SMALL

. CHECK DONE

759%

JANRANARANAN RN

;DONE FAILED TO SET
;TEST TXDONE
;BR IF SET
;TXDONE NOT SET SHOULD BE
;CHECK THE TIMER BIT
;BR IF SET
;CHECK THE TIMER BIT

;BR IF CLEAR

;DUP FAILED TO INTERRUPT
JRESET THE STACK
;RESET THE DEVICE
JWAIT FOR RESET TO FIN]ISH
;SCOPE THIS TEST

NN ARRRNANR

TEST

XAt aaaaata et ansrxaaanttann

;*TEST TO VERIFY THAT SERVICING THE
;*TXDONE BIT RE-ARMS THE INTERRUPT

;*LOGIC IF INTERRUPT ENABLE IS SET.

3564
3565
3566
3567

3581
3582
3583

4
#1000, aTXDBUF
#100.,73%
#TIMER,aTXDBUF
718
#TIMER,aTXDBUF
72%
(P()+

BEQ

4%:

JAND CHECK

8PL
MOV
MOV
BIT
BNE
8IT
BEQ
DEC
100.
BNE

BIS
CLR

3563

3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579

aTX(SR

SEQ 0071

A A AN RN A AN AR

RN AR

R R R R AR R A NN N AR

AN RN AR AN AN

AR AR

R ORRAR

JIRRRRENARRIAN
:

; TEST 32
:

JIRRRRANRANRNS

021416
021424

021432
021440
021446
021452
021456
021460
021462
021464
021472
021500
021504
021512

012737
012737
012737
052777

000032
021724
000340
000400
005044
007232
340

052777
005037
012737
032777

001226
001216
177776
157744

TST32:

MOV
MOV

157720

000400

157714

000005
004000

021534

157674

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

#32 ,a#TSTNO
#TST33 NEXT

#340,PS
MOV
BIS
MMRESET,aTXCSR
PC,SMALL
JSR
RS,SETVEC
JSR
NO.ATRAP
43

004120
177776

RN AR AR AR

BYTE
BIS

66%:

R R R AR AR AN NN NN C R TR

RRwe

;LOCK OUT INTERRUPTS
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
JINTERRUPT VECTOR SETUP
JRECEIVER VECTOR
;TRANSMITTER VECTOR

8IS
(LR

340,340
sJLEVEL
#SYSTST!SEND. TXINTE,@TXCSR ;TURN ON TRANSMITTER, CLOCK
JAND INTERRUPTS
;LOAD START OF MSG
#TSOM, aTXDBUF
PS
;LOWER PROCESSOR STATUS

BIT

#TIMER,aTXDBUF

MOV

”5,68%

;LOAD THE NUMBER

;CHECK THE TIMER BIT

02-MAY-78
MACY11 30A(1052)
CZDPCC.P11
02-MAY-78 13:47

(ZDPCC

3587
3588
3589
3590
3591
3592

3593
3594
3595
3596

021520
021522
021530
021532
021534
021536
021540
021542
021544
021550
021556
021564
021566
021574
021576

021600
021602
021604
021606
021610
021610
021614
021620
021622
021630
021634
021636
021644
021650
021656
021664
021666
021674
021676
021700
021702
021704
021710
021714
021716
021720
021722

001374
032777
001774
005327
000005
001365

106027
000427
005037
012737
032777
001374
032777
001774
005327
000005
001365
104027
000405

004000

13:56

157664

67%:

68%:

1%:

177776
000005
004000

021600
157630

71%:

004000

157620

72%:

73%:

SEQ 0072

177776

032777
005077
012737
032777
001374
032777
001774
005327
000005
001365
012716
004537
007254
021610
340
000002

000200
157544
000005
004000

157546

49:

021700
157530

76%:

0040C0

157520

77%:

3%:

78%:

JBR IF

673

;BR IF CLEAR

DEC
5
BNE
HLT
BR
(LR
MOV
BIT
BNE

(PC)+

BEQ

;BR ]F MORE

27
3%

PS
#5,73%
#TIMER,’TXDBUF
71%
#TIMER,’TXDBUF

BEQ
DEC
5

BNE
HLT

;(HECK THE BIT
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT

663

BIT

SET

663

#TIMER,aTXDBUF

TO GO

:DUP FAILED TO INTERRUPT THE FIRST TIME
JLEAVE THE TEST
;LOWER PROCESSOR STATUS
;LOAD THE NUMBER
CHECK THE TIMER BIT
;BR IF SET
;(HECK THE BIT

72%
(P(C)+

;BR IF CLEAR
;DECREMENT THE NUMBER

71%
27

;BR IF MORE TO GO
:DUP FAILED TO INTERRUPT AFTER SERVICING DONE

dTXCSR

JSHUT DOWN THE DUP

;OF

(LR

000340
001150

340

BNE

BIT

B8R

157576
021622

021544
007232

TXDONE BIT RE-ARM [NTERRUPT TEST

005077
012716
000002
012737
012706

104400

PAGE 73

TIMES TO REPEAT

s LEAVE

JSETUP TO END TEST

MOV

#3s$,(SP)

MOV
MOv
SCOPE
BIT
CLR
MOV

#340,PS
#STACK ,SP
NTXDONE ,@TXCSR
a T XDBUF
#5,78%

;SCOPE THIS TEST
;CLEAR DONE AND RE-ARM INTERRUPT
;LOAD BUFFER
;LOAD THE NUMBER

BNE

76%

;BR IF SET

77%
(PC)+

;BR IF CLEAR
;DECREMENT THE NUMBER

76$

;BR IF MORE TO GO

RT]

BIT

JRETURN

;RAJSE PROCESSOR STATUS

JRESET STACK

#TIMER,3TXDBUF

BIT

#TIMER,8TXDBUF

BEQ
DEC
5

BNE

TO VERIFY

TIMES TO REPEAT

JSETUP TO FINISH TEST
;SETUP VECTORS FOR NEXT PART OF
JRECEIVER VECTOR
;TRANSMITTER VECTOR
SJLEVEL

TEST

[ X22222222222222

THAT SERVICING THE

;*RXDONE BIT RE-ARMS THE INTERRUPT
;*LOGIC IF INTERRUPT ENABLE IS SET.
AN RN

TEST

;RETURN

JNERANANNARNARNNEANRRNRRRAR

;«TEST

TIMER BIT

;CHECK THE BIT
;OF

#1$,(SP)
MOV
R5,SETVEC
JSR
NO.ATRAP
2%
340,340
.BYTE
RT1]

;CHECK THE

E AR R AR R R AN AR AR AN AR

AN AN RN RN NN

TR AN RO NI RGN

IANARNARRRANE
NN
.

TEST 33
»

CANNARNNNREEN

:fi'."'!tt..ttlttfi'ttttfitit.t.tt!Qt.tltt.t.ttt!t.l.tttttttt.Q‘tttt"'

MACY11 30A(1052)
02-MAY-78
(ZDPCC
C20PCC PN
02-MAY-78 13:47

6
I
PAGE 74
13:54
RXDONE BIT RE-ARM INTERRUPT TEST

001226
001216
177776
157436

TST33:

021724
021732
021740
021746
021754
021760
021766
021772
021774
021776
022000
022006

012737
012737
012737
052777
004737
052777
004537
022234
007260

022022
022030
022036
022040
022046
022050
022052
022054
022056
022064
022066
022070
022074
022102
022106
022110
022114
022120
022122
022130
022130
022136
022144

012737
032777
001374
032777
001774
005327
000005
001365
032777

000005
004000

022052

157356

66%:

004000

157346

67%:

000200

157326

005037
012777

177776
000400
157304

157312

005077

157300
157272

022014
022022

022146

022154
022156
022160
022162
022164
022166
022170
022174
022202
022210
022212
022220
022222
022224
022226
022230
022232

340

052777
052777
052777

001001
104024

105777
100375

105777
100375
012777

012737
032777
001374
032777
001774
005327
000050
001365
104022
000445
005037
012737
032777
001374
032777
001774
005327
000005
001365
104022

000423

000033
022316
000340
000400
005044
004000
007232
340
000020
000100
000020

157424

.BYTE
BIS

157376

157370

1%:

68%:

001000

157264

000050
004000

022160
157250

004000

157240

2%:

BIS
BIS

MOV
BIT

7%:
71%:
72%:

3%:

000005
004000

022224
157204

76%:

004000

157174

77%:
78%:

340,340

#TIMER,aTXDBUF
#TIMER,9TXDBUF

67%

(PC)+

66%

#TXDONE ,aTXCSR

2%
24

PS
#400,aTXDBUF

arzcsn

B8R

sLEVEL

sTURN ON INT. ENABLE

JTURN ON TRANSMITTER

;TEST

TXDONE

JBR IF SET
;TXDONE FAILED TO SET
;LOWER PROCESSOR STATUS
;LOAD TX BUFFER

#1000, aTXDBUF

77%
(PC)+

;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE BIT
;BR [F CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE T0 GO
JRECEIVER FAJLED TO INTERRUPT
;GET OUT OF TEST
;LOWER STATUS
:LOAD THE NUMBER
JCHECK THE TIMER BI7
:BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER

76%

;BR IF MORE TO GO

#40.,73%

#TIMER ,aTXDBUF

719%

#TIMER ,aTXDBUF

72%

(PC)H+

MoV

BIT
BNE
BIT
BEQ
DEC
5
BNE
HLT

sTRANSMITTER VECTOR

;LOAD THE NUMBER
sCHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
:BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

T XDBUF
aTzCSR

BIT
BNE
BIT
BEQ
DEC
40.
BNE
HLT
BR
CLR

JENTER SYSTST MODE
;SETUP VECTORS
JRECEIVER VECTOR

#5,68%

CLR

MOV

JRESET THE DEVICE
;JWAIT FOR RESET TO FINISH

;TURN ON RECEIVER

66%

T1STB
BPL
MOV

;LOCK OUT INTERRUPTS

#RCVEN,IRXCSR
#RINTEN,aIRXCSR
#SEND ,aTXCSR

BNE
BIT
BEQ
DEC
p)
BNE
BIT
BNE
HLT
CLR
MOV

TSTB
8PL

73%:

177776

#33,a#TSTNO
MOV
#TST34 NEXT
MOV
#340,PS
MOV
#MRESET ,aTXCSR
8IS
PC,SMALL
JSR
#SYSTST,aTXCSR
BIS
RS,SETVEC
JSR
4%
NO.BTRAP

SEQ 0073

76%

#TIMER,ITXDBUF

22
6%

;OF

TIMES TO REPEAT

:DUP FAILED TO INTFRRUPT AFTER SERVICING DONE
;LEAVE IT7

02-MAY-78
(ZDPCC MACY11 30A(1052)
C2oPCC.PN
02-MAY-78 13:47
3699
3700
3701
3702
3703

022234
022242
022246
022252
022254
022256

022260
022262
022262
022270
022274
022300
022302
022310
022314

032777
012716
004537
022262
007260

000200
022170
007232

340
000002

340

052777
004737
012716
000002
012737
012706

000400
005044

104400

6
J
PAGE 75
13:54
RXDONE BIT RE-ARM INTERRUPT TEST

157142

A ¥

s
157122

022302

000340
001150

177776

6%:

#RXDONE ,8RXCSR
#3%,(SP)

BIT
MOV

JSR

RS5,SETVEC

BIS
JSR

MMRESET ,aTX(SR
PC,SMALL

5%
NO.BTRAP
.BYTE
340,240
RT]

SEQ 0074

;SERVICE THE DONE BIT
JSETUP FOR 2ND PART OF

;SETUP NEW VECTORS

;RECEIVER VECTOR
;TRANSMITTER VECTOR
JLEVEL
;GO FINISH TEST

RESET THE DEVICE
:WAIT FOR RESET TO FINISH

MOV

#6$%, (SP)

JSETUP TO FINISH TEST

MOV
MOV
SCOPE

#340,PS
NSTACK,SP

;RAISE PROCESSOR STATUS
JRESET THE STACK
;SCOPE THIS TEST

RT]

TEST

.LEAVE

cannnnannankennrrnnnnenndnt

TEST

S«TEST TO PROVE AN INTERRUPT REQUEST

wnnnnnnnanantnncnnnsnnnndnn

Sx]S GENERATED WHEN AN ABORT IS RECEIVED.

J TRRRRARANNRR AN AN AR A NANAANARNANAARNAANRRRANRRAA AR AN RAXARRANA AT RAN
CANNRNRRANNRS
*

: TEST 34
M

:':tfitttttttttt

;:tt"fittttttttttt.ttt.ttt'tttttlt..ittttttt.ttttfittt'ttttt'tt'ttt.ttt

3726
3727

022316
022324
022332
022340
022346
022352
022360

3733

340

005037
052777
052777
012737
032777
001374
032777
001774
005327
000005
001365
105777
100401

3735

3737

3738

3739
3740
3741
3742
3743
3744

3745
3746
3747
3748
3749
3750
3751
3752
3753
3754

012737
012737
012737
052777
004737
052777
004537
022550
007260

104024

012777
105777
100375
005077
022502

105777
100375

000034
022576
000340
000400
005044
004000
007232
340
177776
000120
000020
000005
004000

004000

001226
001216

TST34:

177776
157044

BIS
JSR
BIS
JSR

157032

pid 3

CLR

BIS

157000
157000

022442

156766

66%:

156756

67%:

MMRESET,aTXCSR
PC,SMALL

#SYSTST,aTXCSR
RS,SETVEC

156730

1$:

;LOCK OUT INTERRUPTS

;RESET THE DEVICE
;WAIT FOR RESET TO FINISH
;ENTER SYS TST MODE
JSET UP VECTORS

JRECEIVER

;TRANSMITTER
JLEVEL

:LOWER PROCESSOR STATUS

#RCVEN'RINTEN,3RXCSR

;TURN ON RECEIVER AND INTERRUPT ENABLE

BIS
MOV
BIT
BNE
8IT
BEQ
DEC
5
BNE

#SEND ,aTXCSR
#5,68%
#TIMER,aTXDBUF
66%
#TIMER,aTXDBUF
67%
(PC)+
66%

;TURN ON TRANSMITTER
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET
;CHECK THE B.T
:BR IF CLEAR
:DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE T0 GO

B8M]

;BR IF SET

A
o T XDBUF

:BR IF NOT SET
:PUSH OUT A CHARAC(CTER

TSTR

156740

156716
156710

#34 ,a#TSTNO
#TST3S NEXT
#340,PS

NO.BTRAP
.BYTE
340,340

68%:

000400
156722

MOV
MOV
MOV

oTXCSR

HLT
MOV
TSTB

24
#TSOM,aTXDBUF
aTXCSR

T1STB
8PL

aTXCSR
.~4

B8PL
CLR

;TEST DONE

;DONE FAJLED TO SET
;LOAD TX BUFFER
;CHECK FOR DONE

:WAIT FOR DONE
:BR IF NOT SET

CZDPCC

MACY11 30A(1052)

C20PCC.P1

375S
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
%;;?

02-MAY-78

02-MAY-78 13:47

13:54

ABORT INTERRUPT TEST

022504
022512
022520
022526
022530
022536
022540
022542
022544
022546

052777
012737
032777
001374
032777
001774
005327
000113
001365
104022

002000
000113
004000

156702
022542
156666

71%:

004000

156656

72%:

022550
022556

012737
012706

000340
001150

022574

104400

022562
022570

052777
004737

73%:

000400
005044

177776

SEQ 0075

PAGE 76

2%:

156622

BIS
MOV
BIT
BNE
BIT
BEQ
DEC
75.
BNE
HLT

#TABORT,QTXDBUF
#75.,75%
#TIMER,9TXDBUF
71%
#TIMER,aTXDBUF
72%
(PC)+

MOV
MOV

#340,PS
#STACK,SP

;SET ABORT
;LOAD THE NUMBER
,CHECK THE TIMER BIT
;BR IF SET
;(HECK THE BIT
;BR IF CLEAR
JDECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JRECEIVER FAILED TO INTERRUPT
;ON AN ABORTED MESSAGE
JSET STATUS T0 7
:RESET THE STA(K
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

71%
22

BIS
JSR

MMRESET,aTXCSR
PC,SMALL

SCOPE

3772

IRARRNARRANRR AR

3780
3781

:*ANY KEY ON THE TTY. AFTER 16 TIMES PUT DOWN SW09 T0 LEAVE
INOTE: REMEMBER--IN SDLC A ONE IS A LOGIC LOW IN THE

3773
3774
3775
3776
3777
3778
3779

RN RANNANAR TEST 39 Naaaaaaasa
s s e ad ke hanhanan

;«THIS TEST IS AN AID FOR DEBUGGING CRC
:*ERRORS. A (HARACTER IS LOADED INTO THE
:*DUP AND PUSHED OUT BIT BY BIT WHILE
;*ALLOWING THE OPERATOR TO MONITOR THE (RC
:*CHARACTER AS IT IS GENERATED.
THE DATA (HARA(CTER
;*CAN ALSO BE CHANGED 8Y THE OPERATOR.
TO CONTINUE HIT
;*PUT SW09=1 TO LOCK ON BITS.

3782

;CRC GENERATOR.

3783

AN AR AR AR AR R R R

JIRRRRANNNNNRS

3784

R AN AN AR RN

AR R R R R R AR R RN NN AN NN AR AR RO R AR NN

3785

;

3787

3789

AR NN AN R RN AR AR E AR RN N AR R R AR ARAR AR R AR R R

; TEST 35

3786
3788

3790

JINARRRRRRANRS

022576

012737

000035

3791

022604

012737

002764

3795

022632

012737

000125

3792
3793
3794
3796

3797

3798
3799
3800
3801
3802

3803
3804
3805

3806

022612
022620
022624
022640

022646

022654
022662
022666
022672
022676

022702
022710
022716
022724

3807

022732

3809
3810

022744
022750

052777
004737
012737
013737

012737

000400
005044
102010
023000

177777

013737
005037
005037
005037
005077

014600
001242
001244
001246
156512

012777

000400

052777
052777
052777
104412

014000
000020
000020
000044

001226
001216
156572

TST35:

014574
023000
001252
014600
02300¢

000020
000002

#35,a#TSTNO
#_EOP NEXT
MMRESET ,@TXCSR ;RESET THE DEVICE
;WAIT FOR RESET TO FINISH
PC,SMALL
#CRC.CCITT XPOLY
;LOAD THE POLYNOMIAL

MOV

3% ,SAVR1

MOV

MOV
CLR
CLR
CLR
CLR

BIS
8IS
BIS

156462

MOV

PKCLK

3808 02273 013777 023000 156450
104412
104412

MOV
MOV
BIS
JSR
Mov

MOV

156502
156466
156466

MOV
1$:

R AR AN RAN R R AR R

PKCLK
PKCLK

#125,3%

;LOAD DATA TO SOF TWARE BCC-CHANGE CHARA(CTER HERE

#-1,CALB(C(
CALBCC(C,4%
TEMP3
TEMP4
TEMPS
a T XDBUF

R R AR

;CLEAR FOR SOF TWARE B((
;CLEAR BIT COUNTER

#MMMODE ,aTX(SR
#RCVEN,aRXCSR
#SEND ,aTX(CSR

;RESET TXDONE
JENTER MAINT MODE-PROGRAM (LOCKING
;TURN ON RECEIVER
;TURN ON TRANSMITTER

36.

;PUSH OUT 2

#TSOM,aTXDBUF

$$, aTXDBUF
J16.
2

;

:LOAD DATA

JPUSH OUT ANOTHER
;PUSH OUT A BIT

02-MAY-78
MACY11 30A(1052)
CZOPCC
CZoPCC PN
02-MAY-78 13:47
3811
3812
3813
3814
3815
3816
3817
3818
3819

022754
022762
022766
022772
022776

013737
005237
005237
004537
000001
000000
000000
004737
000241

106037

013737
022737
001002

023050
023056

005077
022737
001003
012777
022737

023064
023066
023074
023100

001331
052777
004737

023102
023110
023112
023116
023124
023126
023130
023134
023136
023142
023144
023150
023154
023160
023162
023164

032777
001432
013704
012737
000241
006004
006137

023170
023172
023176

100375

104400

103374
105737
001006
104402
104402
105137
104410

024536

105777

017701
000207

001244
001242
001244
014422

001254

MOV

’%:
3%:

023102

023000
014600
000006

001242

001000
000020

156336
001244

000400
005044

156316

001000

156072

001256

12%:

156014
156010

.WORD 0
.WORD 0

5%:

001256
11%:

TEMP4
, SAVR?
TEMP3

TEMP4
RS,SIMBCC

PC.5%

(MP
BNE
(LR
(MP
BNE

#6, TEMP4

MOV
cmwe

8I7

8EQ
MOV
MOV

CLC

ROR
ROL

3s
CALBCC(,4%

;CALCULATE SOFTWARE BCC BASED ON THESE PARAMETERS

SSHIFTS

JPREVIOUS B(CC

;CHECK TO SEE [F WE SHOULD WAIT FOR SCOPING
;CLEAR FOR NEXT ROTATE
JSET UP THE NEXT BIT
JFOR

THE

SOF TWARE

B((

.+6

#TEOM,
a1 XDBUF

#16.,TEMPS

MMRESET ,aTX(SR
PC,SMALL

JALL DONE WITH THE CHARA(TER?
s INCREASE THE (OMPARE NUMBER TO QUTPUT
;CRC TO THE RECEIVER
;BR IF MORE TO GO
JRESET THE DEVICE
JWAIT FOR RESET TO FINISH

;SCOPE THIS TEST

#5W09,aSWR
63
CALBCC R4
#1,SAVR3

:SW09=1?
:BR IF NO

:THE

SAVR3

;THE

DATA (HARACTER

IS ALWAYS

JFOLLOWED BY A ZERO CHARACTER.TTHE

:DATA BJT N CRC SHOWS WHICH BIT OF

TWO CHARACTERS IS BEING GENERATED.

11%

10%:
7%:

TS18

8TK(SR

8PL
MOV
RTS

’$

:
6%

JUPDATE BIT COUNTER

a T XDBUF
#12.,TEMP3
12%

8((
1518
BNE
TYPE
TYPE
coMs
CONVRT

DT1

JSET UP TO TYPE

:DATA

JSR
CLC

BNE
BIS
JSR
SCOPE

001246

023641
023670
001246

INC
INC
{SR

RORB
MOV

023002
001244

156354
000014

014600
000001

SEQ 0076

PAGE 77
13:54
(RC DEBUGGING AID TEST

TEMPS

108

JEM17

JMH1
TEMPS

aTKDRR ,R1

;TYPE MSG
s TYPE HEADER

JCHECK TTY DONE--GO SCOPE THE C(RC GENERATOR

JNOTE:

THE LSB IS RIGHT JUSTIFIED ON THE

;BR IF NOT YET
JREAD THE BUFFER
JRETURN

TTY OUTPUT

CZDPCC

MACY11 30A(1052)

cZorPCC.PN

3858
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)

(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)
(1)

gD
(1)
)
g D)

(1)
(1)
(1)

(1)
(1)
(1)
g};

02-MAY-78

02-MAY-78 13:47

023200
023213
023230
023246
023265
023302

023323
023347
023365
023612
023461
023511
023524
023545
023564
023601
023641

023670

023763
024003
024020
024033
024052
024113

024157
026173
0264220
024251

024274
024274
024276

024300
024302
024304
024306

051377
377
051377
051377
377
051377

377
377
377
042377
377
377
040506
106
052777
377
377

042377

015
015
047504
106
052777
377

040
106
047111
040
024274

000000
000000
000000
023200
023545

000000

047505
056122
040530
040530
054122
043505

0564122
053117
040504
052101
051103
051522
046111
044501
042516
054105
051103

052101

052012
051012
042516
044501
042516
047125

051522
044501
042524
042523

13:54

020115
047506
047502
052103
042504
051511

042504
051105
040524
020101
020103
046517
042105
042514
050130
042520
020103

020101

040522
041505
041040
042516
050130
054105

046517
042514
052522
020124

(RC DEBUGGING AID TEST

EM1:
EMQ:
EM3:
EM4:
EMS:
EM6:

EM7:
EMI0:
EM1:
EMI2:
EM13:
EMI4:
DH1:
DHZ:
DH3:
DH6:
EMI7:

MH1:

EMIS:
EMI6:
EM23:
EM22:
EM20:
EM21:
EM24:
DH4:
DHS:
DH7:

.EVEN

.ERRTAB:

LASCIZ
LASCIZ
ASCIZ
LASCIZ
ASCIZ
ASCIZ

LASCIZ
LASCI2
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
ASCI2
ASCIZ
LASCIZ

LASCIZ

0
0
0
EM1
DH2

023213
023545
000000

EM?
DH?
0

(1)

024316

023302

EM6

(};

024322

024554

DT6

(

024320

023601

EM1
DH1
0

(1)

024332

023230

Em3

023545
000000

JHALT 1

JHALT 2

JHALT 4

023200
023524
000000

024334
024336

<377>/DATA (CHAR

JHALT 3

0243264
0264326
024330

(1)
z};

<377>/EXPECTED
F OUND
REGISTER /
<377>/CRC GENERATOR STATUS /

DH6

(1)
(1)
(};
(

/FAILED TO CLEAR /
/FAILED TO SET /
<377>/UNEXPECTED /

DATA BIT IN CRC GEN.

LASCIZ
/ RSOM BIT
/
LASCIZ /FAJLED TO INTERUPT. /
LASCIZ /INTERUPTED UNEXPECTEDLY./
LASCIZ
/ SET PREMATURELY /

024310
024312
024314

(1)

<377>/REOM BIT /
<377>/NXDONE BIT /
<377>/RXABORT BIT /
<377>/RXACTIVE BIT /
<377>/RXDERR BIT /
<377>/REGISTER ERROR /
<377>/RXDERR OR OVERRUN /
<377>/0VERRUN BIT /
<377>/DATA (COMPARE ERROR /
<377>/DATA COMPARE ERROR IN SECONDARY MODE /
<377>/CRC CALCULATION ERROR /
<377>/RSOM BIT /

ASCIZ <15><12>/TRANSMITTER /
LASCIZ <15><12>/RECEIVER /
LASCIZ
/DONE BIT
/
LASCIZ
/FAILED TO SET /
LASCIZ <377>/UNEXPECTED RECEIVER INTERRUPT
/
ASCIZ <377>/UNEXPECTED TRANSMITTER INTERRUPT

(1)
(1)
(};
(

SEQ 0077

PAGE 78

DH2
0

JHALT S

CRC FOR THIS BIT

P11

P
—d ) e
"~ e e N

e . P
N
N
N
R
e e W N
R
Y
e
e W R
K
N
N iR
K P I o W T e T T e T e T e Tt e N e Tt B e
b
b d b e d D e e b nd b et md ) D D e nd i D d wd e b e e b D i b id
b D i D ad b b i i i D D d e el e o
N e N e e e N e’ e e e W W W W N S W W W e W W W W A W e e W W W e W W N W N W W N s S e N N N e Nt N Nt

N O
([aXa

MACY11 30A(1052)

02-MAY-78

02-MAY-78 13:47

13:54

(RC DEBUGGING AID TEST

024340
024342
024344

023246
023524
000000

EM&
DH1
0

026346

023265

EMS

024352

000000

024350

023545

SEQ 0078

PAGE 79

JHALT

DH?

JHALT 7

024356
024356
024360

023365
000000
000000

Em1
0
0

JHALT 10

0264362
0264364
024366

023230
023524

EM3
DH1

JHALT 11

0264370
024372
024374

023612
900000
000000

EM12
0
0

JHALT 12

0264376
024400
024402

023323
0235645
000000

EM?
DH2

JHALT

024404

000000

023246

EM4

0246406
024410

023545
000000

DHZ
0

024412

023347

EM10

024416

000000

024414

023524

DH1

JHALT 14

JHALT 15

024420

023564

DH3

024424

000000

EMO

JHALT 16

024426
024430

023461
000000

EM13
0

JHALT 17

024434

023511

EM14

024440

000000

024422

024432

0264436

023302

000000

023524

DH1

024442

023511

EM14

024446

000000

024444

023545

DH2

024450

024003

EM16

024456

024003

EM16

024452
024454

024460
024462

024173
000000

024220
000000

DH4
0

DHS
0

JHALT 20

JHALT 21

JHALT 22

JHALT 23

P N S N P P PN PN PN PN N PN PN PN PN PN N PN PN N N PN PN PN PPN SN PN NN PN NN NN NN NN NN SN
N
—d e e e e e d e e d e e D ) ) D d e D D e e D —d ) d ad e D D D D e e d D e
D e
o
D
" e’ e e’ N’ e’ W N N W N N o M W W
s W N W W N N N N W N N N N N N N N N N N N N N N N NP N

02-mAY-78
CZDPCC
MACY11 3CA(1052)
02-MAY-78 13-47
CZoPCC P11

13:54
PAGE 80
CRC DEBUGGING AID TEST

024464
024466
024470

024020
024033
000000

EM23
EM22

024472
024474
024476

024052

EM20
0
0

024500
024502
024504

0264113
000000
000000

EM21

024506
024510
024512

023763
024173
000000

EM15

024514
024516
024520

023200
023524
000000

EM1
DH1
0

SHALT 3C

024522
024524
024526

023213
023524
000000

EM2
DH1
0

JHALT 31

024530
024532
024534

024157
023524
000000

EM24
DH1
0

SHALT 32

024536
024540
024542
024544

000003

000000
000000

006

001252

024546
024550
024552

024554
024556
024560
024562
024564
0246566
024570
024572

0
0

DH4
0

021

DT1:

017

6
001260
006
001256

000001

002

.BYTE
CORMAX:
.END

JHALT 27

.BYTE

6.2

6.15.

.BYTE

6.4

.BYTE

6.2

SAVRS

0n2

JHALT 26

6.17.

SAVR3
DT6:

JHALT 25

.BYTE
SAVR1
.BYTE

SAVR?2

002

004

JHALT 26

SAVRé

6,2

SAVR3

SEQ 0079

MACY11 30A(1052)
02-MAY-78
02-MAY-78 13:47
CZOPCC.P11
CZDPCC

ADRCNT=
BCCFBK
BINWRD
BITw =

003735
014576
004240
002000

B8I1TO = 00000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIiT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2
= 000004
BIT3 = 000010
BIT4
= 000020
BITS
= 000040
BIT6
= 000100
BIT7
= 000200
BIT8
= 000400
BIT9
= 001000
BRW
003306
BRX
003310
CALBCC
014600
CARDET= 010000
CHRCNT
004236
CLKk
= 020000
001433
CLK.A
CLRVEC
005104
CNVRT = 104411
CONVRT= 104410
CORMAX 024572
CRCEN = 001000
CRCERR=
CRC.CC=
CRC16 =
CREAM
=
CTS
CYCLE
DATA

DATABP
DATAHD
DECMOD=
DEVADR
DH1

DH2
DH3
DH4
DHS
DH6
DH?
DISPLA

010000
102010
120001
001316
020000
006224
001324

004612
004600
100000
003732
023524

023545
023564
024173
024220
023601
024251
001200

1275«
2660
1362«
7524
2043

614H
6134
604#
6034
6024
6014
600#

5994

6124
6114
6104
6094
6084
6074
6064
6054

1126
1127

2594~

7228
1360
7494
8604
15554
8274

8254
38584

13:54

1311«
2666+
1363
1708
2091

13204

2672

2676

26884

2097
2664

1721

2102

1723
2116

1728
2123

739
751
738
749
737
736
1120
758
757

752
771
745
769
748
743

772

754
744

774
753

773

2634

2682+

1380+

13984

1399

1143
1079

1145
1489

3849

1147

734
733
724
723
722
721
720

719

732
73
730

729
728
727
726
725
1204#
12054
2595
2917
1364
1530
1646

2669+

164004
1711

2237

2282

1980

2029
2334

2038

3838

1149

1473

1475

1961
3512

2019

2082

2166

2210

2274

2326

2375

2416

2470

1600+

1601

1603+

1608

1609+

1610

1613«

1164
1709+

15904
1819+
2222+
2439+

1838«
2231«
2486+

1894x

1912«

1926«
2279

1966+

2026+
2331~
2619+

2088«
2337
2620

2110+
2380+
2627*

2113+
2383+
2632+

1533

3137

2177«
2433x

2216+
2436+

1465
1483

1487
14864

1308

13184

954

1975

2219

3821

3794

38584
38584
38584
3858#
38584
38584
38584
658#

1034

1969

3798

26914

16462«
1461+
7434
1273«

768
747

2174

3797+

2633~
3137

2593
26904

2171«
2422
2634

770

1742

26894

756
755
741
740

1877
2715

941
2917
1163
1691

750

1737
2128

3337

1810

7144
7214
1128
7814

SEQ 0080

2570

7384

CROSS REFERENCE TABIE =-- USER SYMBOLS

2531

7644

PAGE 82

1140«

14904

767

2234x
2487

2240«
2497+

2498

2285+
2592«

02-MAY-78
(Z0PCC MACY11 30A(1052)
02-MAY-78 13:47
C20PCC.PIT
000174

100000
000001

000040
001000
000002
024536
024554
001310
001500
001506
001514
001522
001530
001536
001544

>>3>>>>)

001552
001311

001376
001374
001416
001402
001502
001510
001516
001524
001532
001540
001546
001554
001400
001560
001500
001504
001512
001520
001526
001534
001542
001550
001556
023200
023347
023365
023412
023461
023511
023763
024003
023641
023213
024052

024113
024033
024020
024157

6464
7194
734
7294
7254
7334

0D 7
13:54 PAGE 83
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0081

954

3303
2811
2786
38584
1044~
983
1048

937

1636*

1170
1622+
1640+
991

1638+
976

8684

1031«

38584

1036+
1637
1615+

3112

3137

3153

1102

1590

1595

1062

1076

3325

1153
1750+
1748+

1641+

1639+
1060
941
1034~

1749%
1610
1058

1603

CZOPCC MACY11 30A(1052) _02-MAY-78
CZOPCC.PI
02-MAY-78 13:47
EM3
EML
EMS
EM6
EM7

ERRCNT
ERRFLG
ERRMSG

023230
023246
023265
023302
023323

001232
001341
004566

ERTABO 004772
= 000000
EXIT
EXITER 004726
FIX.00

FLAG
HALTS

006742

001332
004616

HDXEN = 000010

HILIM
RUPPSR

003730
001420

HUPRBF 00142¢
HUPRCR 001424
HUPTBF
001426
HUPTCR 001430
ICOUNT 001222
INBUF
006160
INIFLG 001340
INSTER= 104404

INSTR = 104403

38584
38584
33584
38584
38584

6794
7944
1460

1475
6154
1495
1647

784
1446
7584

1272
8484

8494
8504
8514
8524
6754
12642
7934
8174

8154

943+
939+

1176
1138«

1512+
1196+

972+
164924

1085

1088+

1299
1626

13174
1627

1478
15214
16814

1624+
1618+
1633~
1629+
1194
1278
958
1293

1198+

003726
001224
001234
001434

MCRLF

005136

1227

MASK.A
MASTEK
MCSR
MCSRX

MDATA
MEPASS
MERRPC
MERRX
MERRZ
MERR3

001432
005411

005473
005341

979
1142

MMODE = 014000
MMODEA- (04000

7834

7614

2603
7514

1025

1653

1212

1469

2527«

2773«

2810+

2826«

2879

2916+

1214

3293«

3317«

13164
1194
1137«
1644

1197+
1180+

1447

1440

1351

1467

1468

1476

15664

1652

1669

15754

2891

2946

3001

3056

3166

3297

2021

2085

2168

2213

2276

2328

2377

1645
15664
15664
15664

3858#

1012
1122

1021

1301
1193«
944
1616

3847

001330
005525
005312

1015

3152+

023670

MINO
MJMPR
MLOCK

1011

3136%

1388
15664
15664
15664
1592
15664

7624

1003

3095+«

1378
1141
1474
1148
15664
1098

= 010000

994

1631

3042+«

006116
005157
005466
005366
005205
005254

MEXT
MH1

8584
1471

15774

1320

6744

LOLiM
LPCNT
LSTERR
L0O0.00

1414

13194

001220

3026
7954
1271+
6764
6804
B62#

1410
973«

12994
1303

LOCK

001342

16477

1463

978

12614

LOKFLG

SEQ 0082

1450+

1626
1620

1249
17674

1288
1274+

14814

1625+
1619+
1634+
1630+
1199+
16409+
964 *
1619
986

003530
007264

003656
003734

15124

INSTR2
JUMPER

LIMITS
LOBITS

13:546 PAGE 84
CROSS REFERENCE TABLE -~ USER SYMBOLS

1502

2785

2840

1694+
15664
15664

1695

1697+

2714

1880

3803

1963

1812

2932+

2985+

2419

2472

MACYT1

CZDPCC.P1N

30A(1052)
02-MAY-78
02-MAY-78 13:47

MMODEB= 010000
MNEW
005413

005702
005355
MPOWER
005141
MQM
005132
MR
005202
MRESET= 000400

MPAR
MPASSX

7504

1093

15664

1146
1551
1259
1129

15664
15664
15664
15664

995

6154
2465
3164

MSRJUM
MSTJUM
MT(N
MTDATA=
MTITLE
MTOTAL
MTSTN
MTSTPC
MVE
C
MVE CX
NEXT

005761
005726
005600
040000
001000
005647
005377
005300
005512
005347
001216

007254
007260
007332
001323
040000
PARAM = 104405
PARAM
003576
PARBIT- 000000
PARCSR
001410
NO.ATR
NO.BTR
OJUMPE
OPCLRJ
OVRRUN-

PARERR
003652
PASCNT
001230
PERF OR- 000000
PKCLK = 104412

POPRO = 012600
POP1SP= 005726

POP2SP- 022626
PRIRTY
001320
PRISEC= 010000
PS
= 177776

PUSHRO= 010046
PUSH1S= 005746
PUSHZ2S= 024646

PWRUP
QV.FLG
RABORTRCRCIN-

005060
001343
002000
040000

3792

1026
1022
1016
7484

6534

1004
1472
15664
987
1144
673%¢

2612%
3417«
17534
1757#
17834

7804
7374
8194
12774
6154

754m
2502
3205

3832

15664
15664
15664
2724
963
15664
15664

1200
2464+
3501«
3208
3300
2778
1014
2387
980
1294

6784

938+

2476
2739
S934

5914
5054
7784
7454
5844

3366
3687«

5924
5904
5944
1545
7964
7394
7684

SEQ 0083

CROSS REFERENCE TABLE == USER SYMBOLS

1675
1670
1807

1874

1958

2533
3237

2564
3295

2601
3359

2728

2733

2740

1806+

1873

2016
2708
3419

2079
2781
3503

2164
2838
3556

2208
2887
3575

2272
2944

2372
3054
3728

2413

3646

2324
2997
3707

1957+
2772+

2015+
2878~

2078
2984+

2163+
3094«

2207+
3201«

2271
3235+

2323+
3289+

2371«
3357+

3507

3651

3703

3733

2019~
2571«

2082+
2715«

2084+
3512~

2166+

2210+

2212+

2274

3107
3768

1654

15664

1623
2375«

6154
8294
2039

15664

B4l
23267
1280

PAGE 85

1282

1713
2044
2479
2743
1511
1202
1002+
1879
934+

3418+
3711«
1496

15474
940«
2182

1517

2526+
3573«
3240
3320
2884

2587«
3644
3265
3364
2994

2707«
3726+
3578
34626
3104

2388

2425

2443
1005

1776
2644
1655

1810+

1877+

1879+

1961+

1029

988

1073+
996

1770

3791+
3625
3478

2416
1284
1139+

2418+
12934
1140

2470x

2535+

1722

1724

1729

2418
3212«
3469+
3766+

2290

2092
2482
2745

1066+

2084

1116+

3448+
3727+

1152w

2225

2098
3807

1300
1173

2103
2607
3809

1302

1304

WNON)
=
o=~
— s b N
O W~

(ZDPCC

13:54

2124
2615

2129
2623

2175
2628

2220
2719

2238
2723

2283
2727

1981

2030
2335
2732

2531
3236+«
3502+

2570
3245+
3549«

3251«
35742

3258+
3584+

3294+
3595«

3302+
3610

3324+
3645

3358+
3668+

2296

2342

2351

1743

1915

1929

1970

197€

7678
7304

RECACT
REOM
RESREG
RESTRT
RESOS
RE TURN

7234
7404
1488
1151

RFLG

004000
001000
004614
003116
104407
001214
007060

RING
RINTEN
RPOKE

040000
000100
007020

7204
728#
1708#

RSOM
RTS
RUN
RXCSK

000400
000004
001314
001404

RXDBUF

RXDERR
RXDONE

SAVA(T
SAVNUM
SAVP(
SAVPCA

SAVRO
SAVROA
SAVR1
SAVR1A
SAVRZ2
SAVRZA
SAVR3
SAVR3A

SAVR4
SAVR4A

SAVRS
SAVRSA
SAVSP
SAVSPA

SAVOS
SCOPE

scoP1

001406

100000

000200
001312
001313
001266
001306
001250
001270
001252
001272
001254
001274
001256
001276
001260
001300
001262
001302

001264
001304

104406
104400
104401

2473

823
6724

17194

2277

2179
2435

761H
7324
7124

1827

2892

1974

942
1167
2031
2288
2553
3103«
3427+
1620+
1983

7364
7274

2486
21N
1822

6974

3699
1035+
937«
1325+

842N
2018+
2275+
2551
2999
3426
8434
2221
2442

1986
3466
7104
711

7064

1878

2604

1835
1993

717

2018
3367

2046

2056

1130
1964

1163+
1990

1960

1855

1883

2081
3626

SEQ 0084

1897
2104

22N

1203

1517«
2086

WO —-=O~
— OO~

100000

000020

n) — (NP
— 0D\
—

RCRC7T

RCVEN

PAGE 86

CROSS REFERENCE TABLE -- USER SYMBOLS

_am:w\_no_a

CZDPCC.P1N

13:54

30A(1052)
02-MAY-78
02-MAY-78 13:47

MACY11

b md b d e\ ) —
NIND)
— NN ~N -t
SN NWOO N OO O & = 000
W00
N =22ONO n — »H O WO 00 — (N —
Qo 0o\,
0o 0o OW o

CZ0PCC

3653
1940
2141

2275

3736
2185

2293

2327

2376

217

2248

2299

2392

2448

3804

11634
1128
1881

2022

3134
3736

3137

2236

2242

2281

2287

2333

1848
3112
1599+

3137

3153

1923

1935
3304

2557

2081«
2327+
2624
3304
3510+

2093
2340
2629
3316+
3511«

2118
2346
2717«
3323

1876
2130
2374

1939
2140
2415

3653«
1830

3654w
1846

2420
2914
3511

2431
3024
3654

2224
2641

2233

2917

2933

1846

1829

1595
1614

2045
2293+
2604*
3109
3466
1621+
1993

2225

2239
2497
2254

1996

2031

1824

1041
1037+
1523

1840

1598+
1618

2055
2294

2616
3303«
3470«
1622
2034
2264
2556
2305
1841

1519
2108

2053

2378
2811
3427
1821

1200+

1896

1809

2049

1623
2046
2284
2619
2354
1843
2059

1043
1071«

1044
1150«

1914

1909

1606+
1834

1928

1607+
1854

1624

2056
2289
2627
2387
1890
2093
1070~
1153«

1968

2746
3325«

2104

2118

2028

2777
3337

2122

2336
2749
2443
1905
2134

2341
3471
2444
1916
2144

1552

1679

1668+

2138

2169

2229

2090
2339

2112
2382

2173
2624

1960+

1992

1971

2243
2536+
2993+

2167+
2473+
2783
3341«
3699

2180
2483
2883+
3367~
3736+

213
2345

2141
2347

2386

2181
2425

1918
2188

1930
2251

1932
2302

1971
2348

1849

3368+

3400+

1935

1909

1096

690#
6994
6914

1334

1339

1333«

1340

3796«

3858

692#

1332«

13611

3811«

3858

6934
7024
694N
703#
6954

1331«

1342

3839«

3842+

3858

1330«

1343

3858

1329+

1344

3858

14651
1858
2644

1943

2000
2856
3834
2825

2063
2962

2149
3072

2194
3182

2258
3220

2310
3261

2358
3343

2396
3402

2451
3473

2504
3558

2854

2905

2931

2960

3015

3041

3070

3125

3151

7004

7014

7044

6964
705#

8214
809#
2573
3612
8114

3713
2563

2754
3770
2799

13:54

MACY11 30A(1052)
02-MAY-78
02-MAY-78 13:47
CZDPCC.PTT

CZDPCC

SWREG
000176
Swo0
= 000001
SwO1l
= 000002
SwO2
= 000004

Sw03

= 000010

Swo4
=
SwO5
=
Swo6
=
SwO07
=
SwO8
=
w09 =
Sw10 =
sw1l
=
Swi2
=
sw13 =
=
Sw14
Sw15
=
SYSTST=

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
004000

TBLA
8L8
TCNFLG
TCRCIN=
TCRC7TTEMP
TEMPT

013556
014410
001322
010000
020000
006054
001236

TEMPZ2

001240

TABORT- 002000

5624
5614

S60#
5594
5584
5574
SS564
5554

5544
5534
5524
5514
S504

7634
7724

2467
2588

7794
7704
7694
1365
6854

2040+
2299
2710+

6864

3513

3581

3655

3737

3805

3318

3362

3422

3476

3505

3577

3624

3649

1714

1820

1839+

1895«

2241+

2280+

2286+

1967+

2027+
2332+

2089+
2338+

2111»

2273
2945
3647

2325
2998
3708

2373
3055

2666

3729

2414
3108
3769

3315

3342

3399

3472

3555

1096

110

1120

1182

1189

1210

2172+
2423+
26544

2178~
2434+
3814

2217«
2437+

2223+
2440+

2232+

2534
3238

2565
3296

1959

2602
3360

2017
2709
3420

2080
2782
3504

WM
N
00 —
N WNON
NO W

1913«

2209
2888
3576

1382

1385+

13994

1518

1548

3202

3218

3260

3063
3099

3112

3137

3153

1028

935
3712
3002
1024

3137
2991

1117
3767
3027
2989

951

953
1445

969
1650

1083

1440
953

3101

1091
1650

3361

3421

3581

3648

3730

1768

1784

2880

2986

3096

1037

1076+
2121«
2529+

1077

1043

1050+

965

1494

——

3027

1875

1927+

wVio

001202

003744

1361«
724
7864
5854
3611
7314
7854
7264
16904
13294
6594
1223
647N
S664
5654
5644

1023
3264

3428

1513

—

SWR

SvO05

2503
3206
3833

TABLF == USER SYMBOLS

3369

3836

3165

3793

1091

WO W

000010
001334
000400
006746

1808

SEQ 0085

2716
1027
3298

2605

3836

VAN

STD
=
STIJMFL
STPSYN=
STUFCK

15404

2384+
2597

1017

2235+

1440

1502

2537

3211

2507#
2591

264 7A

15734
1008

2034

2035

999

1002

——

004237
002000
001336
001150

1698+

1690+

SPACNT=
SRD
=
SRUMFL
STACK =

3239

1013

and

014422
005044

3207
3731
2024

8314

SIMBCC
SMALL

17484
370
17354
/824
2114

007152
001326

3335
2537

7574

P NI
NI
)00
s = —

SFLG
SHIFTS

FROSS REFERENCE

3314
2474

3180

—

SEND
= 000020
SETFLG= 104413
SETVEC
007232

PAGE 87

3755
2468
2590
1018

2041
2302
2720+

1019

1036

2083+
2340+
2721

1032

2099+
2346+
3302+

3290

2125+
2531

2180+
2568+

2185
2570+

2188
2571

2288+
2657+

1978

2020
2294
2680+

1077«

1982+

1986

1992+

1996

2045

1568

1962+

1977«

MACY1T 30A(1052)
02-MAY-78
02-MAY-78 13:47
C2DPCC.PYI

CZDPCC

TEMP3

001242

TEMPSL
TEMPS
TEQOM
TIMER

001244
001246
001000
004000

2049
2658
K878

3825
6884
6894
7734
7714

2894

3019

TPD8R
TRPOK
TRP.PC
TSOM
TSTNO

001212
004330
006222
000400

001226

TST1
TSTI0O
IST11
1ST12
T1ST13
TST14
IST1S
TST16
ISTi7

007356
012220
012462
012710
013062
013320
013570
014064
014602

1ST20
1ST21
TST22
IST23

015110
015556
016224
016706

TST?2

TST124

T1ST25
1S126

1S127

007640

017370
017506
017700
020216

TST3
TST30
TST31
TST32
TST33
TST34
TST35

010204
020476
021056
021416
021724
022316
022576

TST4
TSTS

010472
011002

1517
TTST

011662
003174

TST36 =

T1ST6

wxwnnn

011450

2055+
2662+
2659+

2059
2711
2661

2130~
2736+
2671+

2134
2737
2673

2140w

2144

2243+

2248

2251

2530«

2543

2569+

2678+

2679+

2682

2712+

2749

2750

3799~

3812«

1719«
1720+

1730+
1725+

1735+
1726

1744~
1736+

3800«
1739«
3827
2801

3811

3813«
3801+«

3822
3844

3828
3848+

2803
2935

2814
2937
3114
3329
3535
3680

2816
2948
3116
3372
5537
3689

2829
2950
3127
3374
3550
3691

2831
3004
3129
3391
3552
3739

2842
3006
3140
3393
3586
3741

2844
3017
3142
3431
3588
3757

3583
1805+
2586
3643

3749

3806
1956+
2771+
3790+

2014
2877+

2077+

2162+
3093+

2206+
3200+

3451

2718
2549
2907
3032
3168
3453
3616

2744
2788
2909
3045
3170
3461
3618

3447
2790
2920
3047
3306
3463
3658
3854

2614
2547

2896

3030

2922
3058
3308

3155

3597

3599

6644
6654

1185
1187

1244
1246

3851
1252

1228
1230«

1250
1252+

1442

2475

2540

2606

2718

3441

2370«
3356+

2411
3416+

2463
3500+

2525+
3572«

1127+

1183«

3759
1673

6664
6674

14314
1579#
7748

6774
2270«
3234+
1661

38584

945n
2322+
3288
1678

2207
2271
2323
2371
2612
2464
2526
2587

2270
23224
23704
26114
24634
25254
25864
27064

2707
2772
2878
2984
3094
3201
3235
3289

277 1a
28774
29834
30934
32004
3234
3288+
33564

3357
3417
3501
3573
3644
3726
3791
1957

34164
35004
35724
36434
37254
37904

1806

1873

2015
2078
2163

1123«

SEQ 0086

13:54
PAGE 88
CROSS REFERENCE TABLE =-- USER SYMBOLS

3157

3433
TKCSR
001204
TKDBR
001206
TLAST = 022576
TPCSR
001210

1526

18054

1658

1664

19564

3858

20144

1124

1126+

3060
3327
3518
3678

1444+

18724

20774
21624
22064

3516
3660

1740

1666

1872«

2706+
3725+

2983

02-MAY-7*
MACY11 30A(1052)
0°2-MAY-78 13:47
CZOPCC.P11
CZDPCL

TWOSYN= 000000
TXACT = 001000
TXCSR
001412

001414

753
8454
1742«
2038+
2208+
2419+
2605+
2840+

3369«
3513
3655+
3803«

8464
2606+

2831
3004

100000
TXDLAT
TXDONE
000200
TXINTE- 000100
TYPDAT
004602
TYPE
- 104402

TYPMSG
USER
WRDCNT
WRKO.F
XBX
XCSR
XERR
XHEAD
XPASS
XPOLY
XSTATQ
XTSTN
XVEC

$ENDAD

004502
000000
004234
004570
004374
003130
003152
006014
003144

014574
006042
005000
003136
000037

003104
000035

PAGE 89

SEQ 0087

CROSS REFERENCE TABLE =~- USER SYMBOLS

6154

3205+

TXDBUF

13:54

3129
3383+
3463
3597
3691

7474
7554
7564
1466

8134

1240
1592
1464
7604
1359+
1479
1441

1143

1502+
1807+

2043
2213«
2465
2887«
3211«

3805+
1631~

2612+

1530+
1812+

1533«
1874
2085+

1627+

1628+
1958+

1711«
1975«

1629
1963+

1721+
1980+

1728+

1737«
2029+
2174
2413
2603+
2838+
3166+
3361«
3509+
3648+
3792+

2549
2829
2950
3127
3374
3461

2091«
2272+
2502+
2716+
2946
3237+

2097«
2276+
2533«
2724
2997~
3243
3419
3548
3728+

2102+
2282+
2537+
2728
3001+
3244«
34621
3556+
3730«

2123
2328+
2541
2740
3056+

2128+
2334+
2544
2744
3107«
3295+
3442
3607+
3750

2021+
2168+
2377+
2601+
2785+
3164+
3359«
3503«
3646+
3768+

3019
3155
3391
3527«
3616
3749«

2471+
2718+
2896
3030
3157
3303
3530s
3618
3752+

2475¢
2731«
2907

2540+
2801
2922
3058
3308

2543
2803
2935

2547
2816
2948

3168
343
3533«
3658
3755+

2477
2788
2909
3045
3170
3433
3535
3660
3757

3523
3548

3545
3581

3613

3665

1093
1388
1670

1098
1467
1675

1122
1468
3846

1129
1471

2678

26874

3794+

1807#

1873

18744

2079«
2219+
2L72%
2708+
2891
3213
3384
3528
3670
3832+
1632+
2614
2844
3017
3142
3389+
3518
3614
3741

3438
3244

14874
1075
1351
1669

2237+
2474+
2714+
2944+
3219+
3387
35N
3673

1633

2713«
2894

1880+

3401+
3545
3707+«

3032

3259+
3438
3581«
3746

3444
3550
3672+
38020+

3847

3060
3327
3447
3552
3675«
3806+

3116

3372
3453
3680
3B24e

3588
3689
3827+

1142
1474

1144

1148

1476

1485

1227
1550

20164
2412
28804
3617

2078
24134
2984
34184

2163
24650

2l64n
2526

35024

3573

19584

2008
22724
2513
2871

20164

3494
37924

3560

13974

14454

1149

1075
1147

2593
1080

1473

1145
14

1958#

2207
2527w
3201
35744
64

2271
2588#
3235
36454

22724
2707
32364
3726

2323
27084
3289
37274

2371
2774M
3357
37924

2065
2316
25274
2969
3282
35744

2079#
2359
2580
29864
3344
3637

2151
2364
2588«
3079

2156
23724
2694
3087
33584
3714

1860

18744
2195
2405
27084
3188
3410
37274

11574
1799

1492
18074

3350
36454

2015
23724
2878
3358#
1945

2200
26134
2757
3194
34184
3772

1950

22084

2453
2765
3202#
3487
3784

2259
2457
27740
3222

23n
2519
3274
3566

CZDPCC

MACY11 30A(1052)

CZDPCC.P11

02-MAY-78 13:47

$RAYO = 177777

000014

004034
004030
002764
024274
004350
003516
003412
003432
003434
003536
005050
005006
003776
003736
003160
003312
004242
001562
004316
001344
003336

. ABS.

024572

ERRORS DETECTED:

PAGE 90

1793
20704
23594
2576
29754
3344m

17964
21514
2360
25784
30794
3345

18604
2152
23624
26944
3080
33484

1861
21554
2398¢
2695
30854
34044

18644
21954
2399
26984
31884
3405

19454
2196
26034
27574
3189
3,084

1946
21994
24534
2758
31924
34874

19494
22594
2454
27634
32224
3488

20024
2260
24564
28634
3223
3,924

2003
22634
25134
2864
32264
35604

20074
2111#
2514
28694
32744
3561

gg%:

809

811#

8134

8154

8174

8194

8214

8234

8254

8274

8294

831#

7124
8774
8944
26004
3674

11164

828
826
11374
1459
633
818
816
126404
1238+
820
631
830
824
822
810
812
832
649
63
8C-#
84

36314

627

3632

6304

36354

6374

7134
878#
8954
2775

7794
8794
8974
2881

7804
8814
8984
2987

13524
13514
3791
38584
14404
12574
12364
1260
12414
12684
936
15274
13394
13254
11804
12104
14084
934n
14284
1433
12204

15454

1549

3751

3754

3823

37144

6424

7854
8824
8994
3097
38584

1420
946

000
O

RUN-TIME: 13 18 1 SECONDS
RUN-TIME RATIO: 206/33-6.1
(53 PAGES)
27k
CORE USED:
88

SEQ 0088

CROSS REFERENCE TABLE =-- USER SYMBOLS

DSKZ :(C2DPCC,DSKZ:CZDPCC.SEQ DSKZ:DUP11.MAC,DSKZ:(ZDPCC.P11

DOCUMENT PAGES:

17924
2066
23154
25754
2970
32800

6264

002660

.CNVRT
.CONVR
.EOP
LERRTA
LHLT
.INSTE
.INSTR
INSTY1
.MSG
.PARAM
.PFAIL
.PKCLK
.RESO5
.SAVOS
.SCOPE
.SCOPT1
LSETFL
.START
.TRPSR
.TRPTA
.TYPE

13:54

1o
20654
2312
251748
29694
3275
35644

024572

.BEGIN

02-MAY-78

3715

6454

7864
8834
970
3291

372174

6484

8674
8854
1100
3385

37724

6524

8694
8864
1574
3388

3773

6544

8704
8874
15764
3443

37834

7084

8714
8894
15784
3446

7094

8734
89504
15794
3529

7104

8744
8914
1594
3532

711a

8754
8934
2594
3671