Digital PDFs

AH-8585D-MC

January 1980

86 pages

Original

45MB

view download

OCR Version

65MB

view download

Document:	CZDPDD0 DUP11 DUP11 SDLC DECMD TST JAN 1980 bw
Order Number:	AH-8585D-MC
Revision:	000
Pages:	86
Original Filename:	CZDPDD0__DUP11__DUP11_SDLC_DECMD_TST__AH-8585D-MC__JAN_1980_gray.pdf

OCR Text

DUP11 SDLC DECMD TST

CZDPDDO

AH-8585D-MC

JAN 1980

copvriGHT 7580 e0080
HECOF

IN USA
MADE

(ZDPD=DO
r20PDD.P11

MACY1?

30A(1052)

25=JuL=79

25=JuL=79 15:O

15:19

PAGE

SEQ 0001

IDENTIFICAIION
PRODUCT

CODE:

‘ PRODUCT NAME:

AC-8584D--MC

(CZDPDPOU DUP11 SDLC DECMD TST

PRODUCT DATE:

JuULY 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS
A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY
FOR ANY ERRORS

THAT MAY APPEAR

THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL Ok ITS
AFFILIATED COMPANIES.

(C)

1975,

FOLLOWING ARE

1979 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

DIGITAL

PDP

UNIBUS

DE(

DECUS

DE(TAPE

EQUIPMENT

CORPORATION:

MASSBUSS

CZDPD=DO
(ZDPDD.P11

MACY11 30A(1052)
25=JuL=79 15:01

1.0

25-JuL=79

15:19

PAGE 3.

SEQ 0002

ABSTRACT
THE FUNCTION OF

THE DUP11

DIAGNOSTICS

VERIFY

THAT

THE

OPTION OPERATES ACCORDING TO SPECIFICATIONS.
THE DIAGNOSTICS
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THAT ALL
OPERATIONS
OF THE DUP11 ARE CORRECT IN ITS ENVIROMENT.
PARAMETERS MAY BE
SET TO ALERT DIAGNOSTICS AS
TO
THE
DUP11
CONFIGURATION BY

ANSWERING

THE

ADDRESS=1).

PARAMETER

DIALOG

(LOAD

ADDRESS=200,

ALL QUESTIONS SHOULD BE ANSWERED

AND

THEN

START

EACH

DIAGNOSTIC WILL 'OVERLAY'' THESE PARAMETERS WHICH ARE STORED IN
THE '‘STATUS TABLE'' (SEE SECTION 8.4).

PARAMETER DIALOG IS DEFAULT PARAMETERS

THE ALTERNATIVE TO

THE DIAGNOSTICS WILL RUN UP TO EIGHT

CONSECUTIVELY

RUNNING

FOR

AND

CONSECUTIVELY
THE

VECTORED

DIAGNOSTIC

[LUP11°'S

COMPLETELY

STARTING THE NEXT.

THE

(SEE SECTION 8.5).

ADDRESSED

A CHAIN MODE,
ONE

CZDPD TESTS THE ABILITY OF THE DEVICE TO RUN

DEVICE

I.t.,

BEFOR

LIMITED

SDLC

PROTOCALL
AND LOMNG DATA PATTERNS.
SPECIFIC DATA PATTERNS ARE
RUN TO PROVE BIT-STUFF CAPABILITY.
THE
EIA
DATA
GATES
ARE
PROVEN AND THE PRIORITY LOGIC FUNCTIONS ARE CHECKED.

CZDPD TESTS ALL THE FUNCTIONS OF DECMODE
AND
DOES
LONG
AND
SHORT
DATA
TESTS INTERNALLY AND OVER THE CABLE, IF ATTACHED.
BCC, USING THE CRC16 POLYNOMIAL IS CHECKED, AND THE DEVICE
IS
TESTED RUNNING A LIMITED DDCMP PROTOCALL.

CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO
BE
RUN
IN
SEQUENCE
TO
ENSURE THAT IF AN ERROR SHOULD OCCUR IT

WILL
BE
DETECTED
gé?BGME)gIS
OF
THE
L

NOTE:

AT
AN
EARLY
STAGE
AND
ESTABLISH
THAT
ERROR WILL BE IMMEDIATE TO DISCOVERING THE

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE

THREE DIAGNOSTICS ARE:

1.
2.

(ZDPB [REV] BASIC AND OFFLINE TRANSMITTER TESTS
2
(ZDPC [REV] OFFLINE RECEIVER AND MODEM CONTROL AND
INTERRUPT TESTS
CZDPD [REV] ?EgligNE SDLC AND DECMODE DATA AND FUNCTION

NOTE:

THERE IS A FOURTH PROGRAM, TAPE CZDPE [REV] WHICH IS
A
QUICK-VERIFY
TAPE
THAT
REQUIRES
ANSWERING A DIALOG.
ITS FUNCTION IS
TO
ENABLE
THE
OPERATOR
TO
QUICKLY
DETERMINE
IF
THERE IS A PROBLEM WITH THE DEVICE.
SEE
THE

DOCUMENTATION

THAT

LISTING

FOR MORE

INFORMATION.

CZDPD-DO
(ZDPDD.P11

MACY11 20A(1052)
25=JUL=79 15:01

25<=JuL=79

2.0

REQUIREMENTS

2.1

EQUIPMENT

15:19

PAGE 4

SEQ 0003

ANY PDP11 FAMILY CPU (WITH MINIMUM 8K MEMORY)
3821?3 (OR EQUILIVALENT)

2.2

STORAGE
PROGRAM WILL USE

BOOTSTRAP

LOADER

AFTER

DUP11

ALL

8Kk

RESIDE.

ESPECIALLY TO BE NOTED AND
THE

THE DEFAULT

MEMORY

LOCATION

LEFT

EXCEPT

1500

UNTOUCHED

WHERE

THRU

THE

ABS

1560

AND

ARE

OPERATOR

PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER

SETUP HAS BEEN DONE.

3.0

LOADING PROCEDURE

3.1

ME THOD
ALL PROGRAMS ARE

IN ABSOLUTE

FORMAT AND ARE LOADED

USING

THE

ABSOLUTE
LOADER.
NOTE:
IF
THE DIAGNOSTICS ARE ON A MEDIA
SUCH
AS
DISK,
MAGTAPE,
DECTAPE,
OR
CASSETTE
FOLLOW
INSTRUCTIONS
FOR
THE MONIiOR WHICH HAS BEEN PROVIDED ON THAT
SPECIFIC MEDIA.

- ABSOLUTE LOADER STARTING ADDRESS = *+500
MEMORY

19K
16K
20K

24K
28K

SIZE

5"
57
77

117

137
157

PLACE ADDRESS OF
'HALT' SW UP)

9 ¥,

DEPRESS

5.1.5

ABS LOADER

INTO SWITCH REGISTER.

(ALSO PLACE

‘LOAD ADDRESS' KEY ON CONSOLE AND RELEASE.

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

(PROGRAM SHOULD NOW

MACY1]1 30A(1052)
25=JuL=79 15:01

4.0

25-JuL=79

15:19

PAGE
5

>EQ 0004

STARTING PROCEEDURE

SET SWITCH REGISTER TO 000200

DEPRESS 'LOAD ADDRESS' KEY AND RELEASE

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

OR A PREVIOUSLY RUN DUP11 DIAGNOSTIC.
THROUGH

THE

PARAMETER

DIALOG.

8.5 MAY BE HELPFUL)
D.

DEPRESS

'START KEY'

AND RELEASE.

THE PROGRAM NAME (IF THIS WAS THE
PROGRAM) AND ALSO THE FOLLOWING:

PARAMETER DIALOG

SET

(IT

INPUT NEW PARAMETERS FOR EACH TAPE.)

SWR=1

IS NOT NECESSARY

GO
TO

(SECTION 7.2, 8.4 AND

THE

FIRST

PROGRAM

WILL

START UP OF

TYPE

THE

'EXAMPLE’
'MAP OF DUP11

STATUS'

1500
1502

160050
000300

1506

160060

1504

1510
i512

CSR OF FIRST DUP1
VECTOR OF FIRST DUPT!

140026

STATUS AND SYNC FOR FIRST DUP11
CSR _OF

000310
140026

SECOND DUP11

VECTOR OF SECOND DUP11
STATUS AND SYNC FOR SECOND DUP11

[HE ABOVE IS ONLY AN EXAMPLE!
TABLE
STARTING
AT
ADDRESS

THIS WOULD INDICATE
1500 IN THE PROGRAM.

TABLE MUST BE VERIFIED BY THE USER.
FOR
STATUS TABLE SEE SECTION 8.4 FOR HELP.
IT

THE
THE

INFORMATION

IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE

STATUS
STATUS

THE

(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
-

(DPD=30
(ZDPDD.P11

TYPE

'R'

AND PROCEED

TO RUN THE

CONTROL

SWITCH SETTINGS

SW 15
SW 14

SET:
SET:

HALT ON ERROR
LOOP ON CURRENT TEST

SW 11
SW 10
SW Q9

SET:
SET:
SET:

|INHIBIT ITERATIONS.
(QUICK PASS)
ESCAPE TO NEXT TEST ON ERROR
LOOP WITH CURRENT DATA
C(ATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE.
RESERVED

SW 13
SwWw 12

SW 08
Sw 07
Sw 06

SET:
SET:

SET:
SET:
SET:

INHIBIT ERROR PRINT OUT
INHIBIT TYPE OUT/BELL ON ERROR.

DJAGNOSTIC

(ZDPD=DO
(ZDPDD.P11

25=JUL=79

MACY1]1 30A(1052)
25=JuUL=79 15:01

15:19

Sw 05

SET:

RESERVED

Sw 04

SET:

RESERVED

Sw 00

SET:
SET:

Sw 03
Sw 02
Sw 01

SET:
SET:

PAGE 6

SEQ 0005

SELECT DUP11'S DESIRED ACTIVE
LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TEST
ENTER PARAMETERS USING MANUAL DIALOG

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 MONITOR PORTION OF THE TAPE IS RUNNING)
SHOULD
BE
SET
UP
PRIOR
TC
STARTING
OR
RESTARTING
DIAGNOSTIC.
4.1,

AND
THE

SWITCH REGISTER RESTRICTIONS

Sw 03

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

EQUAL TO DUP11°'S ACTIVE.

THIS MEANS IF THE SYSTEM HAS

THREE
DUP11S
BITS
00,
01,
02
WILL
'DUPACTV'
FROM
THE
SWITCH REGISTER.

SWITCH(SWO3)

ALTERS

THREE DUP11S

SWITCHES

ARE

THAT
THE

THAN

HAS

PARAMETER PROGRAM.

LOCATION.
SYSTEM

EXPLAINED

NOT

SELECT

SECTION

1.0,

DEVICES

(AN

LOAD ADDRESS 200

C.
D.

PROGRAM WILL TYPE MESSAGE
SET THE BINARY NUMBER
OF

E.
F.

Sw 01

NOT#***

SET

THIS

ACTIVE

BEEN GIVEN INFORMATION ABOUT IN THE

(ONSECUTIVELY
ADDRESSED,
AND
DESELECTED USING THIS SWITCH.

METHOD:

THEREFORE,

*x«DQ

GREATER THAN SW 02 IN THE UP POSITION.

WOULD BE A FATAL ERROR.

DUP11S

BE SET IN LOC
USING
THIS

SHOULD

SELECTED

START WITH SW 03=1

DUP11S
DESIRED
ACTIVE.
EXAMPLE:
1=1 DUP11;
3=2 DUP11;
7=3 DUP11;
17=4
DUP11
37=5
DUP11
ETC.
PRESS CONTINUE.

NUMBER (IF VALID)
(EXCLUDING 11/05)
SET

WITH

DESIRED.

RESTART PROGRAM AT

ANY

WILL BE
OTHER

PRESS CONTINUE.

SELECTED

DATA

SWITCH

TEST.

IS’

LIGHTS
SETTINGS

STRONGLY

SUGGESTED

THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE

SEQUENCE.

THE REASON FOR THIS IS THAT

TRYING

TO SELECT

TEST

THAT

IS NOT

TO CLEAR AREAS AND SET UP PARAMETERS

PORTION
OF
RAISE SWO1,

THE

ORDER

THE PROGRAM HAS

THE

MONITOR

THE PROGRAM.
IT IS POSSIBLE TO LD200, AND
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.

MACY1] 30A(1052)
25=JUL=79 15:01
SWw 09

15:19

PAGE 7

SEQ 0006

TESTS DEAL WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR
RECEIVED
ALL
AT
ONCE, THUS KNOWN AS BLOCK DATA--ONE
PATTERN CAN'T BE SINGLED OUT.
(SEE SECTION 4.1.3.B.1)
SWITCH REGISTER PRIORITIES
A)

ERROR SWITCHES

.
.
.
.
.

WN) =

6.1, 3

25=suL=79

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

CZOPD=DO

(20PDD.P11

Sw
SW
SW
Sw
SW

SCOPE
1.

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
(EX.

+TEST NO.

10),

SWO9

INCORPORATED

THAT

TEST AND THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR
THE SCOPE LOOP (SW'4=0, SW10=0, Sw09=1, Sw08=0).

IF SWO9 IS NOT ENABELED AND THERE
(CONSTANT

ERROR)

SWO8

INTERMITTENT

ERRORS,

SW09=0, Sw08=1).
FOR

2.
3.

BEST.

SW14=1

+~HARD*

(SW14=0,

WILL

SW 14 - LOOP ON TEST.

WILL LOOP ON TEST UNTIL

1S LOWERED.

SW 11

ONE

= INHIBIT

PASS

NO ERROR.

LOOP

REGARDLESS
OF
ERROR
Sw09=0, Sw08=1,0)

ITERATIONS

THROUGH A

TEST.

(SW14=1,

(QUICK PASS).

ERROR

SW10=0,

TEST

Sw10=0,

SWITCH

ALLOWS

ONLY

STARTING ADDRESS

STARTING ADDRESS IS AT 000200.

ADDRESSES FOR

NOTE :

THE DUP11

THERE ARE

DIAGNOSTICS.

OTHER

IF ADDRESS 000042 IS NON-ZERO THE PROGRAM

UNDER

ACT11

XXDP

CONTROL

AND

STARTING

ASSUMES

WILL

ACCORDINGLY.
AFTER =ALL~ AVAILABLE DUP11'S ARE
THE PROGRAM WILL RETURN TO 'XXDP' OR 'A(T=11°',

A(T

TESTED

MACY11 30A(1052)
25=JuL=79 15:01

5.0

25=JuL=79

15:19

PAGE 8

SEQ 0007

OPERATING PROCEDURE
WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBEP IN
SECTION FOUR
WILL
BE PRINTED AND PROGRAM WILL BEGIN RUNNING
THE DIAGNOSTIC.

PROGRAM AND/OR OPERATOR ACTION
TYPICAL APPROACH SHOULD BE

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

THE
SHoirg
-

5.1

CZDPD=DO
(ZDPDD.P11

SET SW 13:

(INHIBIT ERROR PRINT OUT)

THE

TEST NUMBER AND PC WILL BE

TYPED

OUT

AND

POSSIBILY

TO
THE

KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN
LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND
THEN

TO GIVE THE OPERATOR
IF IT
IS
NECESSARY

NOTE

IN THIS WAY THE EXA(CT

THE

FUNCTIONING OF

THE

TEST

IS THE HLT+2 LOCATION.

ERROR

CAN BE

REPORT.

INTERPRETED SINCE

THE ERROR

IN SOME TESTS, THERE IS A SUBROUTINE CALL THROUGH
(E.G.,

JSR

R1,FLAG).

THE SUBROUTINE DOES THE DATA CHECKING

FOR THE TEST AND WILL REPORT AN ERROR
MEANS
THAT
THE
FAILING
TEST
COULD

IF
ONE
OCCURS.
THIS
BE
IN ONE PART OF THE

ANOTHER
PART.
TO DETERMINE THE PC OF
THE REGISTER USED BY THE
SUBROUTINE.
RETURN ADDRESS OF THE FAILING TEST.

THE FAILING TEST, CHECK
IT
WILL
CONTAIN
THE

LISTING WHILE

6.0

ERROR MESSAGE (THIS DEPENDS ON THE TEST),
AN IDEA AS TO THE SOURCE OF THE PROBLEM.

THE

SUBROUTINE

THAT

FOUND

THE

ERROR

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

12=0).
TO

THE

IN MOST
ERROR

INDICATION OF

CASES ADDITIONAL

MESSAGE

THE ERROR.

WHICH

INFORMATION WILL BE

GIVE

THE

SUPPLIED

OPERATOR AN

ERROR RECOVERY

IF FOR SOME REASON "HE
DUP11
SHOULD
‘'HANG
THE
BUS'
(GAIN
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED)
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO
REGAIN
CONTROL
OF
CPU.
IF
THIS
SHOULD
HAPPEN
LOOK IN LOCATION
'TSTNO' FOR THE NUMBER OF
TIME
OF THE CATASTROPHIC

THE TEST THAT
WAS
ERROR.
THIS GIVES

IDEA AS TO WHAT THE DUP11 WAS DOING AT THE

RUNNING
AT
THE OPERATOR

TIME OF

THE
SOME

THE ERROR.

(ZDPD=DC
CZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

25=JUuL=79

15:19

7.0

RESTRICTIONS

Fad

STARTING RESTRICTIONS
SEE SECTION &

REGARDLESS

IMPORTANT TO

PRINTED ON THE

7.2

(PLEASE).
HOW

USE

TTY

THE

PAGE 9

STATUS

PROGRAM

LISTING

TO COMPLETLY

SEQ 0008

TABLE

WAS

ALONG

SHOULD

STARTED.

WITH

VERIFIED

ALSO,

THE

INFORMATION

ISOLATE PROBLEMS.

OPERATING RESTRICTIONS

DUP11 "PARAMETER DIALOG'® MUST BE RUN ONLY ONCE

PRIOR

THE

FIRST
RUNNING OF ANY DUP11 DIAGNOSTIC IF 'DEFAULT PARAMETERS''
ARE NOT USED.
IF ONLY DUP11
DIAGNOSTICS
WERE
LOADED
AFTER
DUP11
PARAMETER
SETUP,
AND
IF
CORE_
MEMORY
HAS NOT BEEN
CHANGED, :.E.,USE OF DIAGNOSTICS OTHER THAN DUP11 DIAGNOSTICS,
AND
IF
THERE
WERE NC 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

EQSA?SESRS
v

CONDITIONS
TO

IT SHOULD NOT BE NECESSARY TO INPUT NEW

SUBSEQUENT

DIAGNOSTICS,

NOTE:

AN ALTERNATIVE
’;%N(FTERS

HARDWARE

TO THE ABOVE

WHEN

THE

CONF IGURATION RESTRICTIONS

CSR ADDRESSES MUST BE

IS ATTEMPTING

PROGRAM

MULTIPLE DUP11'S IN CHAIN MODE.
1.

UNLESS

(HANGE

FOR

INITIALLY

THE

DEFAULT

STARTED WITH

PURPOSE

CONSECUTIVE.

RUNNING

2.
3,

VECTORS ARE CONSECUTIVE IF PARAMETER PROGRAM IS USED.
S%hécwpens ARE
ASSUMED
TO BE
AS
SETUP
IN PARAMETER

PRIORITY LEVEL MUST BE THE SAME FOR ALL DEVICES.

(ZDOPD=DO

(ZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

8.9

25=JuL=79

15:19

PAGE 10

SEQ 0009

MISCELLANEOUS

EXECUTION TIME
ALL DUP11 DEVICE DIAGNOSTICS WILL GIVE AN "END
PASS'
(PROVIDING NO ERRORS
AND
SW12=0)
WITHIN 4 MINS.
ASSUMING SW11=1 (DELETE ITERATICNS) IS SET TO GIVE THE
POSSIBLE EXECUTION.
THE ACTUAL EXECUTION TIME DEPENDS
ON THE PDP11 CPU CONFIGURATION.

8.2

MESSAGE
THIS IS
FASTEST
GREATLY

PASS COMPLETE

NOTE:
«EVERY* TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1).
THIS IS TO VERIFY
NO *HARD* ERRORS AS SOON AS
POSSIBLE.
THEREFORE
THE
FIRST
PASS--EACH
TIME
PROGRAM
IS
STARTED--WILL BE A 'QUICK PASS'
UNTIL ALL DUP11'S IN SYSTEM ARE TESTED.
WHEN
THE
DIAGNOSTIC
HAS

COMPLETED

PASS

WITH

THE

NORMAL

ITERATION

éé(g{;gzggé. THE FOLLOWING IS AN EXAMPLE OF THE PRINT

COUNT

OUuT

END PASS CZDPD_ CSR:160050 VEC:3Q00 PASSES:000001 ERRORS:000000

NOTE :

8.3

THE NUMBERS FOR CSR AND VEC ARE

VALUES
FOR
EXAMPLE.

THE

DEVICE.

THEY

NOT

ARE

NECESSARILY
ONLY

THE

FOR

THiS

KEY LOCATIONS

RE TURN
NEXT

TSTNO
RUN

CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN

WHEN
ITERATION COUNT
TEST 1S ASSERTED.

IS REACHED CR

CONTAINS THE ADDRESS OF
PERF ORMED .

CONTAINS THE NUMBER

PEFORMED.

THE NEXT

THE

THE BIT I’ 'RUN' ALWAYS POINTS

DUP11

CURRENTLY BEING TESTED.

/00000C0001000000 MEAAS THAT
THE DU”11 NOW RUNNING.

LOOP ON

TEST

NOW BEING

ONE

PAST

EXAMPLE:

DUP11

THE

(RUN)

NO.05

DUPCROO-DUPCRO7
(1500)-(1560)
THESE LCCATIONS CONTAIN THE

INFORMATION NEEDED
TO
TEST UP TO 8 (DECIMAL) DUP11S SEQUENTIALY.
THEY
CONTAIN
THE
(SR,
VvECTOR
AND
STATUS

CONCERNING THE CONFIGURATIOM OF EACH DUP11.

DUPACTV

EACH BIT SET IN THIS LOCATION
THE

ASSOCIATED

EXAMPLE:

DUP11

(DUPACTV)

THAT DUP11 NO.

WILL BE

INDICATES
TESTED

/0000000000011111

00,01,02,03,04 WILL BE

THAT

IN TURN.

MEANS

TESTED.

CZDPD=DO
(ZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

25-JuUL=79

15:19

EXAMPLE :

THAT DUP11

RXCSR

8.4

PAGE 11

SEQ 0010

(DUPACTV)

NO.

/70000000000010001

00,04 WILL BE

CONTAINS THE RECEIVER (SR OF
UNDER TEST.

MORE ON THAT

'STATUS TABLE'

'MAP OF DUP11
1500
1502
1504

MEANS

TESTED.

THE CURRENT DUPT1

(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

THIS IS THE SYSTEM CONTROL
1ST DUP11 IN THE SYSTEM.

1502

000300

THIS IS VECTOR
SYSTEM.

1504

140026

THIS REPRESENTS SYNC AND SOFTWARE

'A'

FOR

THE

STATUS

FOR

FOR THE FIRST DUP11

THE FIRST DUP.

THE BITS ARE AS FOLLOWS:

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

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

OPTIONAL CLEAR JUMPER IN
TURNAROUND CONNECTOR ON

SYNC CHARACTER FOR DECMODE TESTS.

THE ABOVE

IS REPEATED FOR EACH DUP11

INPUT AS

DESCRIBED

FILLED

DEFAULT

IN THE

SYSTEM.

THE

TABLE

PARAMETERS OR BY THE MANUAL PARAMETER

PREVIOUSLY.

ALSO,

DESIRED

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
PARAMETERS.
THE

RESULT,

HAND

NOT

WOULD HAVE TC BE ANALYZED TO
SIZE
THE
THE
PROGRAM
MUST
ASSUME
THE VARIATIONS.
THE
TO YOUR SPECIFIC CONFIGURATION, MAY BE
ALTERED

(TOGGLE

IN)

DESIRED.

THIS WAY 95% OF

THE

25-JUL=79 15:01

PARAMETER SETUP WA,
THEREF
ORE :

ALL

JUMPERS

CONF IGURATION.

ARE

15:19
DONE

ASSUMED

THE

3)
4)

AND

THE

YOU.

FOLLOWING

ourt
X

THE H325 TURN AROUND CONNECTOR IS ASSUMED TO BE ON.
THE MANUFACTURING OPTION CSR OF

ARE

USED.

THE BR LEVEL

IS ASSUMED TO BE

IIDEIT:% ADJUSTMENTS PLEASE REFER TO

9.0

P
SEQ 0011

PROGRAM

W1=SECONDARY REC ENABLE
wW2=SEC REC DISABLE
w3=CLEAR OPTION
We=SEC TX ENABLE
W5=DSC A CONTROL
W6=A+8 DS CONTROL
W7=BUS GRANT CONTROL

PAGE 12

x Z

25-JuL=79

> >

CZOPDD.P11

MACY1] 30A(1052)

> >

(ZDPD=DO

(HANGE

NOTE:

160050 AND VECTOR

770

SECTION

GREATER

8.4

FOR

HISTORY

HISTORY STARTS WITH REV.

(ZDPDDO - IN RECEIVER INT. SERVICE ROUTINE OF
CONTAINED 032715, SHOULD BE 3270S5.

TEST 12, LOC. 013174

CZDPD=DO

(ZDPDD.P11

MACY11 30A(1052)

25=JuL=79 15:01

541
%2%

25=JuL=79

15:19

PAGE 13

INTRODUCTION TO DUP11 DIAGNOSTIC

;*CZDPDDO /<377>/DUP11_SDLC DECMD TST
'COPYRIGHT(C) 1975,1979, DIGITAL EOUIPMENT CORP., MAYNARD, MASS. 01754

564
545

;STARTING PROCEDURE

547

;LOAD ADDRESS 000200

546

;LOAD PROGRAM

548

;PRESS START

549
550

;PROGRAM WILL TYPE ''CZDPDDQ /<377>/DUPi1 SDLC DECMD TST *'
;PROGRAM WILL TYPE 'R’ TO INDICATE THAT TESTING HAS STARTED

551

;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

gg%

;AND THEN RESUME TESTING

554
555

;SWITCH REGISTER OPTIONS

558
559
560
561
562
563
564
565
566
567
568
569
570

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

572
573
574

571

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

000040
000020
000010

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SW09=1000
Sw08=400
SW07=200
Sw06=100
SW05=40
SW04=20
Sw03=10

000004
000002
000001

SW02=4
Sw01=2
SwW00=1

;LOCK ON TEST SELECT
JRESTART PROGRAM AT SELECTED TEST
JENTER PARAMETERS

;SELECT DUP'S DESIRED ACTIVE

sNOTE:THIS MUST NOT EXCEED ORIGINAL COUNT

SEQ 0012

CZ0PD=DO
CZDPDD.P11

MACY1]1 30A(1052)
25=JUL=79 15:01

75
6

JREGISTER DEFINITIONS

577
578
579
580
581
582
583
584
585

592
593
594
595
596
597

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

RO=%0

R1=%1
R2=%2

R3=%3
R4=%4

R5=X5
SP=16
PC=X7

586

587
588
589
590
591

N 1
25=JuUL=79 15:19 PAGE 14
GENERAL DEFINITIONS AND EQUIVALENCIES

sLOCATION EQUIVALENCIES
177776
001150

PS=177776
STACK=1150

sPROCESSOR STATUS WORD
;START OF PROCESSOR STACK

s INSTRUCTION DEFINITIONS

005746
005726
010046
012600
024646
022626

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

;DECREMENT PROCESSOR STACK 1 WORD

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

PUSH2SP=24646
POP2SP=22626
EMT, HLT sBASIC DEFINITION OF ERROR CALL
.EQUIV

)

|
BIT15=100000
BIT14=47000

B81713=20000
BIT12=10000
BIT11=4000
BIT16=2000
BIT9=1000
BIT8=400
BIT77=200

SEQ 0013

CZOPD-DO
(ZDPDD P11

MACY11

30A(1052)

25=JuL=79 15:01

25=JUL=79

15:19

PAGE 15

TRAPCATCHER FOR UNEXPECTED INTERUPTS
SRR

A AR AR

SEQ 0014

A AR AR R A AT AR AR ARARA AR AR AR AR R AR

; TRAPCATCHER FOR

ILLEGAL

TR R

AR,

INTERRUPTS

s THE STANDARD '‘TRAP CATCHER'' IS PLACED

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

::tt't"t"t'ttt'.'tt'i't".fi.'.'i'ti."i'tttt.Q'Qt"lQ"t't"tt't..tt

s STANDARD INTERRUPT VECTORS

PFAIL

%
003104
000052
000000

000200

001562

001000

001000
005377

055103

001200

001200
001202

177570
177570

*SERVICE AT LEVEL 7
“ERROR HANDLER
*SERVICE AT LEVEL 7
*GENERAL HANDLER DISPATCH SERVICE
“SERVICE AT LEVEL 7

0
.,

000174
000000
000000
000200
000137

000174
000176

:POWER FAIL HANDLER

340
HLT
340
_TRPSRV
340

:SAVE FOR ACT=11 OR DDP2

0
0

"RETURN ADDRESS IF UNDER ACT-11 OR DDP2
*SAVE FOR ACT-11 OR DDP2

;ACT=11 PROGRAM CHARACTERISTICS

SENDAD

“FOR USE WITH ACT=11

=174
DISPREG:0

-SOF TWARE DISPLAY REGISTER

SWREG: 0
&

050104

.=1000

MTITLE:

.=1200

DISPLAY :
SWR:

OR DDP2

SOF TWARE SWITCH REGISTER

JMP

START

:GO TO START OF PROGRAM

.ASCIZ

<377><12>/CZDPDDO /<377>/DUP11

SDLC DECMD TST /<377>

:SWR AND LIGHTS

177570

:11/45 CONSOLE LIGHTS

*INDIRECT POINTER TO SWITCH REGISTER

:INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS
001204
001206
001210
001212

177560
177562
177564
177566

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566
;PROGRAM (ONTROL

;

:TELETYPE KEYBOARD CONTROL REGISTER
*TELETYPE KEYBOARD DATA BUFFER
*TELEPRINTER CONTROL REGISTER
“TELEPRINTER DATA BUFFER
PARAMETERS

681

MACY11 30A(1052)
25=JuL=7915:01

25=JUL=79

15:19

PAGE 16

PROGRAM PARAMETERS,

RETURN:

NEXT:
LOCK:
ICOUNT:
LPCNT:

TSTNO:
:
PASCNT

ERRCNT:
LSTERR:

c
VARIABLES,

2
AND TRAP C(CALLS.

;TOTAL NUMBER OF ERRORS

:PC OF LAST ERROR CALL

;PROGRAM VARIABLES

SAVR4:
SAVRS:

SAVSP:
SAVPC(:

SAVROA:
SAVR1A:
SAVRZA:
SAVR3A:
SAVRGA :
SAVR5A:
SAVSPA:
SAVPCA:

DUPACTV: .BLKB
DUPNUM: .BLKB
SAVACT: .BLKB
SAVNUM: .BLKB

722

RUN:

.BLKB

CREAM:

DUP.MAP

.EVEN

;RO STORAGE

;R1

STORAGE

;R2 STORAGE
;R3 STORAGE

;R4 STORAGE

;RS STORAGE

;STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

;RO STORAGE

;R1 STORAGE

;R2 STORAGE
:R3 STORAGE
;R4 STORAGE

;RS STORAGE

s STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

—

SAVR3:

; TEMPORARY STORAGE
: TEMPORARY STORAGE

SAVRO:
SAVR1:
SAVR?:

: TEMPORARY STORAGE

TEMPS:
TEMPS:

: TEMPORARY STORAGE
; TEMPORARY STORAGE

—

TEMP2:
TEMP3:

eloleleloleloleelolelelslslelelslelels

:
TEMP1

SEQ 0015

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

[sleleoleleldelsls)

(ZDPD-DO
CZDPDD.P11

;DUP11'S SELECTED ACTIVE.
;OCTAL NUMBER OF DUP11°'S.

;ORIGINAL ACTV.
DEVICES.
:WORKABLE NUMBER.

sJPOINTER ONE PAST RUNNING DEVICE.

;TABLE POINTER.

CZDPD=DO
CZDPDD.P11

MACY11

30A(1052)

25=JUL=79 15:01

25=JUL=79

15:19
PAGE 17
PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

723

724
725
726
727

;DATA SET CHANGE A
;RING
;CLR TO SEND

;CARRIER DETECT
JREC ACTIVE

RECACT=BI

;SEC REC DATA
;DATA SET RDY

SRD=BIT10
DSR=BIT9
STPSYN=BIT8
RXDONE=BIT7

:STRIP SYNC

+REC
JREC
;DSC
;REC
sSEC

RINTEN=BIT6

DSINTE=BITS

RCVEN=B]T4

STD=BIT3
RTS=BIT2
DTR=BIT1
DSCB=BITO

DONE
INTR ENABLE
INTR ENABLE
ENABLE
XMIT DATA

;REQ TO SEND

;DATA TERM RDY

sRXDBUF

;DATA SET CHANGE R

BIT DEFINITIONS

;REC DATA ERROR
;OVERRUN ERROR
;CRC ERROR
RABORT=BIT10
sREC ABORT
REOM=BIT9
;REC CND OF MESSAGE
RSOM=BIT8
;REC START OF MESSAGE
;PARCSR BIT DEFINITIONS
DECMOD=BIT15
;DEC MODE (DCIMP)
9
CRCEN=BIT
s CRC ENABLE
PRISEC=BIT1?2
;PRI/SEC SELETT
s TXCSR BIT DEFINITIONS
RXDERR=BIT15
OVRRUN=BIT14
CRCERR=BIT12

TXDLAT=BIT15
MTDATA=BIT14

CLK=BIT13

MMODEB=BIT1Z
MMODEA=BIT11

BITW=BIT10

TXACT=BIT9
MRESET=BIT8
TXDONE=BIT7

;TX DATA LATE

;MAINT DATA OUT
: CLK
;MAINT MODE 8
sMAINT MODE A
;BIT WINDOW INPUT

sTX ACTIVE
sMASTER RESET

sXMIT DONE
sXMIT DONE INTR ENABLE
: SEND

TXINTE=BITé6

SEND=BIT4
HDXEN=BIT3

+HDX/FDX
sTXCSR WRD DEF INITIONS

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

;USER MODE
sMAINT INT MODE

JMAINT EXT MODE
sSYSTEM TEST MODE

RCRC7T=BIT1
RCRCIN=BIT1
TCRC7T=BIT1
TCRCIN=BIT1

WS,

;TXDBUF BIT DEFINITIONS

SEQ 0016

(ZDPD=DO

CZDPDD.P 1"
779

004000
002000
001000
000400

780
781

782

783
784
785

786
787
788
789

790
791
79¢
793
794
79
796

MACY11 30A(1052)
25=JUL=79 15:01

25=JUL=79

15:19

TIMER=BIT11

001323
001324

001326
001330
001332
001334
001336

TCNFLG:

PROGRAM DEF INITIONS

.BLKB 1

.BLKB 1
.WORD
0
.WORD
0

MIND:
FLAG:

.WORD
.WORD

SRJMFL:

.BLKW 1

STJMFL:

.BLKW 1

AND

TRAP (ALLS.

TIMER

s TRANSMIT ABORT
s TRANSMIT END OF MESSAGE
s TRANSMIT START OF MESSAuE

PRIRTY:.WORD 0
OPCLRJ:
DATA:
SHIFTS:

VARIABLES,

JMAINTENANCE

TABORT=BIT10
TEOM=BITY
TSOM=BIT8
:MISC.

001320
C0i322

PAGE 18

PROGRAM PARAMETERS,

0
O

SEQ 0017

(ZDPD-DO

(ZDPDD.P11

MACY11

30A(1052)

25=JUL=79 15:01

25=JUL=79

15:19

PAGE 19

PROGRAM PARAMETERS,

F
VARIABLES,

;PROGRAM CONTROL

001340
001341
001342
001343

INIFLG:
ERRFLG:
LOKFLG:
QV.FLG:

2
AND

SEQ 0018

TRAP (ALLS.

FLAGS

.BYTE
.BYTE
.BYTE

PROGRAM INITIALIZATION FLAG

ERROR OCCURED FLAG
LOCK ON CURRENT TEST FLAG
QUICK VERIFY FLAG.

.BYTE

ON FIRST PASS OF EACH DUP11

WILL BE

.EVEN
$Y=0

SUPPRESSED

[TERATIONS

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS

TO SUBROUTINES CAN BE

FOUND

;JIN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS
by IR

001344

001346
001350
001352

001354

001356
001360

001362
001364
001366

001370

001372

AR AR R A AR AR AR AR AR AR AR AR AARARARARAARRAAAARCRRAAARR AR

. TRPTAB:

SCOPE=TRAP+0

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

INSTR=TRAP+3

. INSTR
INSTER=TRAP+4
. INSTER
PARAM=TRAP+5
.PARAM

SAVO5=TRAP+6
. SAV0S

AR AR AR

;CALL TO SCOPE LOOP AND ITERATION HANDLER
;CALL TO LOOP ON CURRENT DATA HANDLER
;CALL

TO TELETYPE OUTPUT ROUTINE

;CALL

TO ASCII

STRING INPUT ROUTINE

;CALL TO INPUT ERROR HANDLER
;CALL TO NUMERICAL DATA INPUT ROUT INE
;CALL TO REGISTER SAVE ROUTINE

RESOS=TRAP+7

;CALL

TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+10

;CALL

TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11
.CNVRT

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

SETFLG=TRAP+13

;CALL TO TELETYPE INPUT ROUTINE

.RESOS

PKCLK=TRAP+12
PKCLK

.SETFLG

;CALL TO CLOCK ROUTINE

IRAAARARRAARRARARRAARARA
R A ARARAAARRAARRRAARAARCRRRRRRARARR AR

(ZDPD=DO
CZDPDD. P11

MACY11

30A(1052)

25=JuL=79 15:01

25=JuL=79

15:19
PAGE 20
PROGRAM PARAMETERS, VARIJABLES, AND TRAP (ALLS.

;DUP11 VECTOR AND REGISTER INDIRECT POINTERS

PARCSR:
TXCSR:
TXDBUF:

DUPSEC:
HUPPSR:
:
HUPRBF
HUPRCR:

:
HUPTBF
HUPTCR:

O0OO0Oo
o

DUP11
001432

001433
001434

010

JPOINTER
JPOINTER
sPOINTER
;sPOINTER
;POINTER
JPOINTER
;POINTER
sPOINTER
;POINTER
JPOINTER
;POINTER
;POINTER
JPOINTER
;POINTER
;POINTER

DUPRVC(:
DUPRPS:
DUPTVC:
DUPTPS:
RXCSR:
RXDBUF :

000000
000000

OCOO0O0O0O0C

001374
001376

CONTROL

DUP11
DUP11
DUP11
DUP11
DUP11
DUP11
DUP11
DUP11
DUP11
DUP11

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
RECEIVER STATUS REGISTER
RECEIVER DATA BUFFER
PARAMETER STATUS REGISTER
TRANSMITTER STATUS REGISTER
TRANSMITTER DATA BUFFER
SECONDARY REGISTER SELECT REGISTER

PARAMETER STATUS HIGH BYTE
RECEIVER BUFFER HIGH BYTE
RECEIVER CONTROL REG HIGH BYTE
TRANSMITTER BUFFER HIGH BYTE
TRANSMITTER CONTROL REG HIGH BYTE

INDICATORS FOR CURRENT DUP11 UNDER TEST

MASK .A:

.BYTE 000

;LAST (CHAR TO TEST AND PARITY MASK

(LK.A:

.BYTE 8.

;NUMBER OF CLOCKS NEEDED FOR ONE (HAR

L00.00: 000000

s PARAME TERS

SEQ 0019

(ZDPD=DO
CZDPDD.P 1"

MACY11 30A(10S52)
25=JUL=79 15:01

25=JuL=79

15:19

PAGE 21

PROGRAM PARAMETERS,

H
VARIABLES,

2
AND

SEQ 0020

TRAP CALLS.

;DUP11 STATUS TABLE AND ADDRESS ASSIGNMENTS
»

913
914

001514
001516
001520

000001

DUPCRZ2:
DUPTRZ:
DUP2.A:

.BLKW
.BLKW

001522
001524
001526

000001

DUPCR3:
DUPTR3:
DUP3.A:

.BLKW
.BLKW
.BLKW

001530
001532

000901

001534

000001

DUPCR4:
DUPTRS:
DUP4 .A:

.BLKW

001536
001540
001542

000001

DUPCRS:
DUPTRS:
DUPS .A:

.BLKW
.BLKW
.BLKW

001544
001546
001550

000001

001552
001554
001556

000001
000001

DUPCR7:
DUPTR7:
DUP7.A:

001560

000000

:
DUP.END

800001
000001

000001

DUPCR6: «BLKW
DUPTRé6: .BLKW
DUP6.A: .BLKW

— — —d

.BLKW
.BLKW
.BLKW

— —— —

DUPCR1:
DUPTR1:
DUP1.A:

s CONTROL STATUS REGISTER FOR
sVECTOR ''A"" FOR DUP11 NUMBER
;PARAMETER
FOR DUP11 NUMBER

NUMBER

000001

NUMBER

s CONTROL STATUS REGISTER FOR
;VECTOR "A"" FOR DUP11 NUMBER
;PARAMETER FOR DUPTT NUMBER

NUMBER

;CONTROL STATUS REGISTER FOR
;VECTOR '‘A"" FOR DUP11 NUMBER

NUMBER

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

NUMBER

;CONTROL STATUS REGISTER FOR
;VECTOR "A"" FOR DUP11 NUMBER

NUMBER

;CONTROL STATUS REGISTER FOR

NUMBER

;CONTROL STATUS REGISTER FOR
;VECTOR "'A'" FOR DUPT1 NUMBER 7

NUMBER

—

001506
001510
001512

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

;PARAMETER
D~

.BLKW
.BLKW

—

000001

DUPCRO:
DUPTRO:
DUPO.A:

) —

000001

.=1500

DUP .MAP:

;PARAMETER

—

001500

FOR DUP11

NUMBER

sVECTOR '‘A"" FOR DUP11 NUMBER
;PARAMETER
FOR DUP11 NUMBER

_—

001500
001500
001502
001504

.BLKW
.BLKW
.BLKW

;PARAMETER

000000

FOR DUP11

NUMBER

C(ZDPD=DO

MACY1]1 30A(1052)

(ZDPDD.P11

25=JuL=79 15:01

14
W

25=JuL=79

15:19

PAGE 22

PROGRAM PARAMETERS, VARIABLES, AND

I
el
s

UNE BNR Cag 10 Owy SOl TN
SR SO R
M
T
A
DR T
NS WS Bae M0 o
B

R
i
JRaE

Rl
]
P4 FON G
o
Sy e
SR SN
S
BOR BNE JDOE
AR SR Srdl @b B
it Fae) T FE OBNE
SRGR GEiel SN BT
FU ONSE Lfa
e
oS it apd Bt oFR G
sEE S
MRS S

SEQ 0021

TRAP C(ALLS.

Bion Sl g
BNy Sl AR
Hes SR RN WG LS
e
e
R
B8 B
B
ARt

Al
B
e

SR
N
A= OPTIONAL CLEAR JUMPER
?- TURNAROUND (ONNECTOR

IN=1
ON=1

(ZDPD-DO
(ZDPDD.PI1T

MACY11 30A(1052)
25=JUL=79 15:01

25=JUL=79

15:19

PAGE 23

¢
SEQ 0022

PROGRAM INITIALIZATION AND START UP.

934
935

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

sTYPE TITLE MESSAGE

012737
012706
012737
113737
005037

177776

000024
001313

.START: MOV
MOV
MOV
MovB

#340,PS
W#STACK,SP
#.PFAIL
, a#24
DUPNUM, SAVNUM

sLOCK OUT INTERRUPTS
sSET UP STACK
;SET UP POWER FAIL VECTOR
;SAVE NUMBER OF DEVICES IN SYSTEM

MOV
MOV

#1,TSTNO
#.START ,RETURN

;SET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE
;TESTING STARTS
;SAVE CURRENT VECTORS

CLR
CLRB
CLRB
MOV
MOVB
CLR
CLR

105037
105037

012737
112737

005037
005037
012737
012737
013746
013746
012737
005777
000407
012737
012737
022626
012637

012637
105737
001401
000410
022737
001404

MOV

000176
000174

12%:

MOV
MOV
TST
BR
MOV

000004
000006
001340

1%%:

CMP
MOV

001710
177274

003104

104402
105137
105777
100002

001000
001340
177210

000137

002520

032777

000001

002360
001332
000001
001500
001560

MOV

TSTB

BEQ
000042

a#é ,-(SP)
#128% a4
aSWR
138
#SWREG, SWR

(SP)+,(SP)+
(SP)+,a#4

#DISPREG,DISPLAY

6%:

coms
TSTB

INIFLG
aSWR

BIT

#SW00,aSwR

coms

001340

688%:

:POINT TO SOFT DISPLAY REG

;ADJUST STACK
JRESTORE VECTORS

;HAS

11%

BEQ

BNE
JMP

JREFERENCE HARDWARE SWITCH REG
:BR IF IT EXISTS
JPOINT TO SOFT SWR

(SP) ¢+ ,a46

#SENDAD , a#4?2
6%

10%:

*SETUP FOR TIMEOUT

INIFLG

B8R
CMP

BPL
JMP

;CLEAR PASS COUNT
;CLEAR ERROR FLAG
;ZERO QUICK VERIFr FLAG
;GET MAP POINTER.
;POINT POINTER TO FIRST DEVICE.
;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER

a#6,-(SP)

11%:

TYPE

177174

PASCNT
ERRFLG
QV.FLG
#DUP .MAP , CREAM
#1,RUN
ERRCNT
LSTERR

JMTITLE

;IF ACT=11 AUTO MODE,
:DON'T TYPE ID
;TYPE

FLAG

TITLE MESSAGE

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

108
1%

.+6
21

INITIALIZATION BEEN PERFCRMED

:ENTER PARAMETERS
JYES
;NO

Mov8
MOV

#1,INIFLG
#DUP .MAP RO

;SET TO MANUAL ENTRY
:CLR MAP

(mP

gg‘lDUP.END

;DONE WITH MAP?

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

CLR

BNE

MCSR
PARAM

160000

(RO)+

:MESSAGE
:CONVERT STRING

:LOW LIMIT

BR IF NO

CZDPD=DO

CZDPDD.P11

MACY11 30A(1052)

25=JUL=79 15:01

990
991

002052
002054

175500
001500

994
995
996

002060
002062
002064

998
999

002070
002072

104403
005512
104405
000300
000770
001502

992 002056
993 002057
997

002066

1000 002074
1001 002075

000004
000007
001240

1011

002122

104403

1012
1013
1014
1015
1016

1019
1020
1021
1022

1023
1024
1025
1026

002140
002142
002144
002146

104403
005525
104413
001323
104403
005600
104413
001322
105737

1027

1029
1030

002166
002170

1028

1031
1032
1033
1034
1035
1036
1037

1038

1039

002164

1042
1043
1044
1045

001410

001322

104403
005726
104413
001334

002214

052737

100000

002230
002236
002244
002252

001403

105737 001322

001403

052737
112737
113737
113737

040000
000001
001236
001236

71%:
001504
001504
001312
001311
001313

698 :
70$:

SEQ 0023

175500
DUPCRO

:HIGH LIMIT
:STORE AT THIS LOCATION

INSTR
MVEC
PARAM
300
770
DUPTRO

:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:CONVERT STRING

INSTR
MPAR
PARAM
4
7
TEMP2

:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:CONVERT STRING
SLOW LIMIT
THIGH LIMIT
:STORE AT THIS LOCATION

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

1
1

0
1
MOV

MTOTAL
PARAM
1
8.
TEMP1

0
1

INSTR
MJMPR
SETFLG
OPCLRJ
INSTR
MTCN
SETFLG
TCNFLG
ISTB

*MASK
*HOW MANY TIMES + 2

SLOW LIMIT

THIGH LIMIT
:STORE AT THIS LOCATION

*MASK
“HOW MANY TIMES + 2

*MASK
“HOW MANY TIMES + 2
TEMP2,PRIRTY
:SAVE PRIORITY
:MESSAGE
:CONVERT STRING
SLOW LIMIT
*HIGH LIMIT
:STORE AT THIS LOCATION

*MASK
*HOW MANY TIMES + 2

:OUTPUT MESSAGE & GE1 INPUT STRING
:MESSAGE
:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:SET FLAG BASED UPON INPUT STRING
:THIS FLAG
TCNFLG

BEQ

718

INSTR
MSRJM
SETFLG
SRJMFL
TSTB

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG
:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:SET FLAG BASED UPON INPUT STRING
:THIS FLAG
OPCLRJ

BIS

#81715,DUPO.
A

INSTR
MSiJM
SETFLG
STJMFL

001323

002226

BYTE
BYTE

104403
005761
104413
001336
105737

002212

001320

000
001

002172
002174
002176
002200
002202
002204
002206

1040 002222
1041

000
001
013737 001240
005647
104405
000001
000C10
001236

002150
002152
002154
002156
002160

BYTE
BYTE

104403
005702
104405

002124
002126
002130
002132
002134

1017 002136
1018 002137

BYTE
BYTE

001
001

002076
002100
002102
002104
002106
002110

15:19 PAGE 24

PROGRAM INITIALIZATION AND START UP.

001
001

1002
1003
1004
1005
1006
1007

1008 002112
1009 002113
1010 002114

25=JuL=79

BEQ

TSTB

BEQ

BIS
MOV
MOVE
MOVB

;OUTPUT MESSAGE & GET
:MESSAGE

698

TCNFLG

708

#81T14,DUPO.
A
#1,SAVACT
TEMP1,DUPNUM
TEMP1.SAVNUM

INPUT STRING

CZDPDD.P11

30A(1052)
25=JUL=79 15:01
MACY1]

25=JUL=79

65%:

005337 001236
001312

001312
001312

15:19

PAGE 25

2
SEQ 0024

PROGRAM INITIALIZATION AND START UP.

001240
001500
001506

64%:

67%:

001240
000010

DEC
BEQ
SEC

ROLB
BR
MOvB
MOvB
CLC

TEMP1

648

SAVACT

65%
SAVACT, TEMP?

SAVACT ,DUPACTY

TEMP2

#DUPCRO,RO
#DUPCR1,R1

TEMP?2
66%
(RO)+, (R1)

#10,(R1)+

000010
21%:

(RO)+,(R1)
#10,(R1)+
(RO)+,(R1)+
67%
#DUP .MAP RO
+
(RO)
RO ,#DUP.END

208

#DUP.MAP RO
#160050, (RO)
#770 2(R0)

000002
000004
001320

#140026, 4 (RO)

#5 PRIRTY
01.R0

66$:

001236
001240

16%:

5%:

176454

RO,DUPACTV
RO, DUPNUM
RO,SAVACT
RO, SAVNUM
RO,TCNFLG
RO,O0PCLRY
. XHEAD
#DUP.MAP
, TEMP1
?;EHH . TEMP?

g%, TEMP1

001236
1%:

;4 OF TIMES

;CSR
sVECTOR

;PARAME TERS

;SETUP TO CLEAR MAP
;CLEAR
:CHECK FOR FINISH
:BR IF MORE TO GO
SETUP TO DEFAULT
;LOAD (SR
LOAD VECTOR
;LOAD PARAMETERS AND SYNC

:LOAD PRIORITY
;SAVE CORE THIS WAY
JPRESET PROGRAM CONTROLS
;DITTO

;DITTO

;DITTO
;DITTO
;DITTO
: TYPE HEADER

;SET POINTER
;SET DATA
sALL DONE WITH DATA

‘UPDATE POINTER

#SW00,asSwR
7$
FLAG

002000
001332
000042

000010
0054i3

7%:
176420

108

FLAG

w2
3s

#SW03,aSWR
3s
MNEW

ég 7R0$2AH RUNNING UNDER MONITOR
sSELECT SPECIFIC DEVICES??
:BR IF NO.

;TYPE

THE MESSAGE.

BUENRIR LS BRNE R RENEE @I rran o0 38IKIR W ~

25=JUL=79

15:19

176402

CLR
HALT
(MPB
BLOS

001312

g
g

005254
176362

001310
177400

TYPE

001310

HALT
BR
MOVB
MOvB

2$:

- — g
g

M2
SEQ 0025

001000

%L WHAT DEVICES TO RUN

aSWR, SAVA(CT

2%
.MERR3

s ¢

aSWR,DUPACTV

DUPACTV,RO
#%C<377>,R0
#300,R0
#302 ,R1
R1,(RO)+
(R1)+
(RO)+,(R1)+
#1000,R0
4%

000300
000302

PR
Y
R R
P
P
P
—p——————
———————
YR YR S
T SO S
N
PN

PAGE 26

PROGRAM INITIALIZATION AND START UP.

MACY11 30A(1052)
25=JUL=79 15:01

-—

00
CZDPDD.P11

STOP EVERY THING.

:RESTART THE PROGRAM AGAIN.

:GET NEW DEVICE PATTERN
;SHOW THE USER WHAT HE SELECTED.
cUSE ONLY LOW BYTE.
;CONTINUE DYNAMIC SWITCHES.
:PREPARE TO CLEAR THE FLOATING

;VECTOR AREA. 300-776
;START PUTTING 'PC+2 = HALT''
:IN VECTOR AREA.
;POP POINTERS
sALL DONE??
:BR IF NO.

sTEST START AND RESTART

012737
012706
005737
001023
032777
001411

177776

012737
012737
000406
013737
013737
012737

003174
003176

176274

104402

000177

003174
003176
001214
176230

MOV

#340,PS

BIT

62
2%
#B1T2,aSWR

MOV
TST

#STACK,SP

-MLOCK

#NOP ,TTST

#NOP,TTST+2

2%
BRW,TTST

2%:

BRX,TTST+2

#CYCLE ,RETURN
MR

aRE TURN

;LOCK OUT INTERRUPTS
;JSET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL
;BR IF YES
;CHECK FOR LOCK ON TEST
;BR IF NO LOCK DESIRED.
JTYPE LOCK SELECTED.
sADJUST SCOPE ROUTINE.
:SET UP TO LOCK
;CONTINUE ALONG.
;PREPARE NORMAL SCOPE ROUTINE
;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:START AT "'CYCLE'' FIND WHICH DEVICE TO TEST
TYPE R

;START TESTING

(ZDPD=DO
CZDPDD.P11

MACY1]1 30A(1052)
25=JUL=79 15:01

25=JuL=79 15:19 PAGE 27
END OF PASS ROUTINE

1139
1140
1141
1142
”zz
1145
1146
1147

1148
1149

1150
1151
1152

1153
1154
1155

1156
1157

1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168

1169
1170
1171
1172
1173

1174

1175
1176

1177

1178
1179

1180
1181
1182
1183
Hgg

;END OF PASS
;TYPE NAME OF TEST
;UPDATE PASS COUNT
sCHECK FOR EXIT TO ACT=11
sRESTART TEST
002764
002770
002774

005037
105037
005237

001234
001341
001230

104402
104411
104402

005341
003130
005347

3006

013777
104402

26
003032

104411
104402

003012
003016
003022
003036

003042

003046

104411

104402
104411

003052
003056
003060
003066
003074
003100
003102
003104
003104

105337
001017
112737
113737
013701
001406
000005

003112
003114
003116
003124
003130

000240
000240
012737
000137
000001

003134
003136

001404
000001

003142
003144

001374
000001

003106
003110

003132

003140
003146
003150
003152
003154
003156

001230
005157

.EOP:

176172

003136
005355

LSTERR
ERRFLG
PASCNT

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
;UPDATE PASS COUNT

TYPE
CNVRT
TYPE

MCSRX
XCSR
MVECX

;TYPE CSR
sSHOW IT
;TYPE VECTOR

CNVRT
TYPE

003144

CNVRT

005366

TYPE

003152

CNVRT

001313
000377
001311
000042

(LR
CLRB
INC

MOV
TYPE

001343
001313

$ENDAD:

004711

000240
000240

006224
006224

006

002

003

002

006
001230
000001
006
001232

002

001214

002

XVEC
MPASSX
,XPASS

-MERRX
_XERR

SAVNUM
RESTRT
#377 ,QV.FLG
DUPNUM,SAVNUM
w62 ,R1
RESTRT

JSR

PC.(R1)

NOP
NOP
RESTRT: MOV
JMP
XCSR:
1

‘

PASCNT ,aDISPLAY ;DISPLAY PASS COUNT
.MEPASS
;TYPE END PASS

DECB
BNE
MOvB
MOVB
MOV
BEQ
RESET
NOP
NOP

6,2

BYTE

3,2

BYTE

6,2

.BYTE

6,2

XVEC:

XPASS:

DUPRV(C
1

XERR:

PASCNT
1

ERRCNT

SSHOW IT
:TYPE PASSES
$SHOW IT

: TYPE ERRORS
sSHOW IT

:ARE ALL DEVICES TESTED?
:BR_IF NO.
sSET THE QUICK VERIFY FLAG.
:RESTORE THE COUNT
:CHECK_FOR
ACT=-11 OR DDP
sIF NOT, CONTINUE TESTING
;STOP THE SHOW==CLEAR THE WURLD

#CYCLE ,RETURN
CYCLE

.BYTE

RXCSR
1

]'}gg
1188
1189
1190
1191
119%
1193
1194

SEQ 0026

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

005037
010016
032777
001407
000437
105777
100034

001234
040000
176000

.SCOPE:
176006

TIST:

(LR
MOV
BIT
BEQ
BR
TSTB
BPL

LSTERR
RO, (SP)
#31T14,3SWR
18
33
aTK(SR
3%

;CLEAR LAST ERROR PC
:SAVE RO ON STACK
;LOOP ON TEST?
:BR IF NO (IF LOCK SWO1 = 1;THIS LOCATION = 240)
;GO TO 3%
(DITTO)
sKYBD DONE?
sBR IF NO (LOCK:
HIT A KEY ON TTY TO GO TO NEXT TEST)

CZDPD-DO
-

MACY11 30A(1052)
25=JUL=79 15:01

017700
000415
032777

25=JuL=79 15:19 PAGE 28
END OF PASS ROUTINE

175774

004000

175760

1%:

001343
001224
001224

MOV
BR

BIT
BNE

#SW11,aSWR

BEQ
INC
CMP
BNE
CLRB
CLR
CLR
MOV
MOV
MOV
POP2SP
JMP
1407

TSTB

001222

001341
001224

2%:

001¢222
001214

3%:

QV.FLG

LPCNT

NT
, ICOUT
LPCN
3%

ERRFLG
LPCNT
LOCK
#50, ICOUNT

NEXT ,RETURN
(SP) ,RO

aRETURN

;CLR DONE BIT
sCONTI NUE
:DELETE ITERATION (WUICK 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 ITERATIONS
;GET NEXT TEST
;POP RO OFF

STACK

;FAKE AN RTI
;GO DO THE TEST

437

BRW:
BRX:

@TKDBR,RO
2%

SEQ 0027

;CHECK FOR FREEZE ON CURRENT DATA

i
D
-

il
i
D
il
i
D i)
D
i
D
D
D oD
i
) il
il
i
il
i
il
i
il
-

INSLASLASLUSTANTAN
LN 1N [ N1, S 1,8

-t

NOWVS
WA
=
88S% v
gom\ao«mbwmao 3SSSSSISIS

(ZDPDD.P11

1221

032777
001405
005737
001402
013716
000002

001000

175662

001220

.SCOP1: BIT
BEQ

1%:

TST
BEQ
MOV
RTI

#SUO9 aSwR
LOCK
1%

LOCK, (SP)

;1S SW09=1(SET)?
;BR IF NOT SET.
:GOTO THE ADDRESS IN LOCK.
;GO BACK.

;TELETYPE OUTPUT ROUTINE

010546
017605

062766
032777
001012
105715
100002
104402

000002
000002
010000

.TYPE:

000002
175622

005136

1%:

2%:

175612

175606

000004
000002

006160

RS,=(SP)
a2(SP) ,RS

#2,2(SP)
#SW12,3SWR

3
(RS)
2%
JMCRLF

aTPCSR

;SAVE R5 ON THE STACK.

;GET ADDRESS OF MESSAGE.
;POP OVER ADDRESS.
JINHIBIT ALL PRINT 0OUT??
;BR IF NO PRINT OUT WANTED (SW12=1)
IS NUMBER MINUS? (MSB=1(BIT7))
B8R IF NUMBER IS PLUS
:TYPE A CR/LF!
:TTY READY?
:BR IF NO.

§§5>*.arpoea

;PRINT CURRENT CHAR.

3%:

(SP)
+ RS

:END OF OUTPUT. RESTORE RS

.INSTR:

R3,-(SP)

003434

000004

MOV

JINSTT:
.MSG:

R4 ,=(SP)

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

;IF NOT ZERO KEEP PRINTING!

. GO HOME

;SAVE R3 ON STACK
;SAVE R4 ON STACK

(ZDPD=DO
C(ZDPDD.P11
1251

MACY11 30A(1052)

25=JUL=79 15:01
012703

25=JUL=79 15:19 PAGE 29
END OF PASS ROUTINE

000007
175532

#7 ,R3
aTKCSR
1%
aTKDBR, (R4)
#200C, (R4)

1%:

175526
000200

(R4)+ 415

000015

RREXREZRER
FELFAURS

e
G
D S
R S
[

INSTR2

2%:

175512
175502

aTPCSR

175504

aTKDBR,aTPDBR
R3
1%
(SP)
+ ,R4

(SP)+ ,R3
R3,-(SP)

.INSTE:

R4 ,=(SP)
.MQM

005132

.INST1

INSTRZ:

(SP)+ R4

(SP)+,R3

000094
003726
003730
003732
003734
003735
000004
006160
000015

000060

SEEERE R

JRESTORE R&

JRESTORE R3

RS,-(SP)

. PARAM:

1291

SEQ 0028

R4 ,=(SP)
4(SP) ,R5
(R5)+,LOLIM

(RS)+,HILIM
(RS) +,DEVADR

(R5)+,LOBITS

+ ,ADRCNT
(R5)
R5.4(SP)
RS

PARAM1
:

# INBUF ,R4

#15, (R4)
PARERR

(R4) ,460

1%:

PARERR

(R4) ,#67

000067

PARERK

000060

#60, (R4)

000015

ASL
PARERR:

BR
INSTER
BR

(R4)
+ RS
#15, (R4)
LIMITS
RS
RS
RS
%
PARAM1

JTEST TO SEE

IF NUMBER IS WITHIN LIMITS

CZDPD=DO

WW WWWWWWWWWWWWWWWNWWNW
RN [ 81, 81,67, S et P i D
B
DD
i
[
JV
P 5 WN=O
VO N NS WN—=O

328

CZDPDD.P11

MACY11 30A(1052)
25=JuL=79 15:01

003656
003662
003664

020537
101373
020537
103770
133705

001365

25=JUL=79

15:19 PAGE 30
END OF PASS ROUTINE

RS,HILIM

LIMITS: CMP

003730

PARERR

BHI

RS,LOLIM

CMP

003726

003734

SEQ 0029

BLO

PARERR

BNE

PARERR

BITB

LOBITS,RS

;STORE NUMBER AT SPECIFIED ADDRESS
013704

003732

1%:

000002
003735

LoLim:

HILIM:

MOV
MOV
ADD
DECB
BNE
MOV
MOV
RTI

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

DEVADR: 0
LOBITS: O

ADRCNT=LOBITS+1

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

016637

001266

.SAVOS: MOV

= e

S G

4 (SP) ,SAYPC

;SAVE R7 (PC)

;SAVE RO-RS
010537
010437
010337
010237
010137
010037
000002

Sv05:

VNN

v vl
og

MOV
MOV

RS,SAVRS
R4, SAVRS

MOV
Q?Y

R1,SAVR1
RO, SAVRO

MOV
MOV

R3,SAVR3
R2.,SAVR?

;SAVE RS

;SAVE R4
;SAVE R3

;SAVE R2
;SAVE R1

;SAVE RO

;LEAVE.

;RESTORE RO-RS

WN=OVRO NN

WN =00

i
‘§ S
3
feade

N
-

e YR

e R

e S

e 1

1337

.RESOS5: MOV

MOV
MOV

SAVRO,RO
SAVR1,R1
SAVRZ ,R2
SAVR3 R3
SAVR4 R4
SAVRS RS

005136

.CONVR: TYPE
.CNVRT: MOV
MOV
MOV

LMCRLF

RO,-(SP)
R1,-(SP)
R3,-(SP)

;RESTORE RO

;RESTORE R1
;RESTORE R

;RESTORE R3
;RESTORE R4
;RESTORE RS

s LEAVE

1
MACY11 30A(1052)
15:01
79
25=JuL=

CZDPD=DO

CZDPDD P11

33222aaaaeeeaaneseRaaneEss
NS R NN NPT RRZS AL SR RARR =TS
SO

LLRLY WV‘WWV‘&
NNNNY
3% &
CF O EERELELEES Voo~NONWN S0INN=00

004042
004044
004046
004052
060
064
004070
004074
004100

nororoN
O
=

—

d —d —d

d wd

b
il
b it -

)

1363

25=JuL=79 15:19 PAGE 31
END OF PASS ROUTINE
Ré ,=(SP)

MOV

017601
062766
2137
2137
2137
3137
3704
3705
012700

000012
000002
004234
004236
004237
004240
004240
004236
006054

042703
062703

177770
000060

MOV

RS . =(SP)

ADD
MOV

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

MOVB
MOV

(R1)+.SPACNT
a(R1)+,BINWRD
BINWRD .R4
CHRCNT.RS

MOV

000012
1%:

212(SP) ,R1

MOVB

(R1)+.CHRCNT

MOVB
3%

MOV

BIC

ADD
MOVB

R4 ,R3

#177770,R3

#060,R3
R3, (RO)+
R4

ROR
CLC

RCOR

DEC
BNE
MOV
MOvVB

RS
3%
#MDATA ,R3
=(R0), (R3)+

BNE

BEQ

CLC
ROR

012703

006116

105337

004236

4%:

105737 004237

112723
105337
104402

005337

000040
004237

5%:

6%:

006116

004234

CHRCNT

DECB
TSTB

MOVB
DECB

BNE
CLRB
TYPE

DEC

BNE
MOV
MOV

MOV

MOV
MOV
RTI

SEQ 0030

SPACNT

#040, (R3) +
SPACNT

5%
(R3)

.MDATA

WRDCNT

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

(SP)+,R3

(SP)+,R1
(SP)+ RO

WRDCNT: 0
CHRCNT: O
+1
SPACNT=CHRCNT
BINWRD: 0

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
;BUFFER TO THE CHARACTERS 'N'' AND “‘y'‘,
.
;IF THE CHARACTER IS 'N'' CLEAR THE FLA

;IF THE CHARACTER IS "'Y'' SET THE FLAG

004242
004246
004254

017605
042737

122737

000000
000040
000116

006160

.SETFLG:MOV
BIC

(MPB

a(SP) RS
#40, INBUF

#°'N, INBUF

$18 171 "W
2

(ZOPD-DO
(ZDPDD.P11

MACY1] 30A(1052)
25=JUL=79 15:01

1419

001002

1423

000406
122737
001005

14620
1421
1422

1424
1425
1426
1427
1428
1429

1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441

1442
1443
1444
1445

1446
1447
1448

1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464

1465

1466
1467
1468

1469
1470
1471
1472
1473
1474

25=JUL=79 15:19 PAGE 32
END OF PASS ROUTINE

105015

112715

062716
000002

000131

006760

177777

1%:
2%:

000002

3%:

104404

000752

BNE
CLRB
BR
(MPB
BNE
MovB
ADD

RTI

INSTER
BR

1%
(RS)
;000
2%
#'Y, INBUF
3%
#-1,(RS)
#2,(SP)

SEQ 0031

;38 5V W%
;377

;RETRY
.SETFLG

;TRAP DISPATCH SERVICE

JARGUMENT OF TRAP IS EXTRACTED

;JAND USED AS OFFSET TO OBTAIN POINTER

.TO SELECTED SUBROUTINE

000002
000000

177001

.TRPSR:

MOV

:
TRPOK

MOV
ASL

001344
000000

(SP) ,=(SP)

;GET PC OF

a(SP), (SP)
(SP)

;GET TRP
JMULTIPLY TRAP ARG BY 2

SUB

#2,(SP)

BIC

#177001, (SP)

ADD
MOV

JMP

:=PC OF

RETURN

TRAP

;CLEAR UNWANTED BITS

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

;POINTER TO SUBROUTINE ADDRESS
; SUBROUT
INE ADDRESS

a(SP)+

;GO TO SURROUT INE

;ERROR HANDLER
B

010000

174624

.HLT:

174624

000207
020000

174616
174600

001234
001234
001341
000002

BIT

#SW12,aSWR

TSTB

QTPCSR

MOVB

#207,aTPDBR

BEQ

BPL
XxBX:

1%:

023274
004566
004600
004612
001341
004612

:BELL ON ERROR?

XBX

‘BR IF NO BELL

XBX

“DON'T WAIT

“TTY READY.

TTY NOT READY.

*PUSH A BELL AT THE TTY.

BIT

#5w13%, aswR

SAVOS
MOV

(SP) ,RS

“SAVE ALL PROC REGISTERS
“GET THE PC OF ERROR

(R5) R4

“GET HLT INSTRUCTION

BNE
CMP
BEQ
MOV
CLRB

HALTS
(SP) ,LSTERR
1%
(SP) ,LSTERR
ERRFLG

SUB

#2 RS

ASL

MOV

ADD
177001

ASL

(RS) ,Ré4

BIC

#177001,Ré4

MOV
MOV

(R4)+,ERRMSG
(R4)+.DATAHD

ADD

MOV

#.ERRTAB,R4

(R&) ,DATABP

TSTB

ERRFLG

1ST

DATABP

BEQ
BNE

TYPMSG
TYPDAT

*DELETE ERROR PRINT OUT?

“BR IF NO PRINT OUT WANTED.
*WAS THIS ERROR FOUND LAST TIME?
‘BR IF YES
*RECORD BEING HERE
*PREPARE HEADER

*GET ADDRESS OF TRAP CALL
‘MULT BY

TWO

*DOUBLE IT

‘MULT AGAIN

*CLEAR JUNK

*GET POINTER

:GET ERROR MESSAGE
:GET DATA HEADRER

“GET DATA TABLE
*TYPE

HEADREER

‘DOES

DATA

‘BR IF
;JBR IF

YES

YES.

TABLE

EXIST?

MACY11 30A(1052)
25=JuL=79 15:01

1486

1487
1488
1489
1490
1491
1492
1493
1494

FSRERERSa~
PEFRER

1485

L =1=]

1483

1484

243 FEE

1475
1476
1477
1478
1479
1480
1481
1482

222 BRERRRRRES 22

(ZDPD-DO
(ZDPDD.P11

004576
600

104402
104402

005737

001402

25=JUL=79 15:19 PAGE 33
END OF PASS ROUTINE

005136
005136
001220

104402
104402
104411
104402
104411
104402
112737

TYPMSG:

1%:

104402

TYPE

WRKO.FM:

104402
000000

BEQ

001402

104410

000000

W =00V
NIV
WN=O

)

Al Al

B
e
e
e
R

W LV AN AV AV AV AV AV IV

Y
Y

W LW AN LW
[ LV

——_——
(S
TJ

TST
BEQ

TYPE
:
HD
DATA
0
TYPDAT
: TST

005737

013746
013746
012737
012737
042777
000000

MOvB
TST
BEQ

MASTEK
+MERRP(

LERTABO
+MCRLF

#-1,ERRFLG

ERRMSG

WRKO.FM

ERRMSG: 0

005737
001402

001403
005777
100035
010046
016600

CNVRT

JMTSTN
XTSTN

TYPE
TYPE

CNVRT

000000

022737

LOCK
1%

TYPE

001341

+MCRLF
+MCRLF

BEQ

TYPE

005737
001402

104407

TYPE
TYPE
TST

DATABP:

003104

000042

RESREG:
HALTS:

174350

000002
000004
000006
004710
000340
014000

1%:

DATAHD
TYPDAT

DATARP
RESREG

RESO5
mp
BEQ
TST

::ENDAD.GJ42
aSwR

EXITER

:TYPE

ERROR MESSAGE

;DATA HEADER?
;BR IF NO

:TYPE

DATA HEADER
:
;DATA TABLE?
;BR IF NO.
;s SHOW

DATA TABLE
3
JRESTORE PROC REGISTERS

;IF ACT=11 AUTO MODE==HALT!'!
JHALT ON ERROR?

;BR IF NO HALT ON ERROR

;SAVE RO

#2284

;FORCE HALT IF TIME-OUT

(SP)+,6

JHALT
RESTORE TRAP

;WHEN REFERENCING
HSYSTST!MEXT ,@TXCSR

33%:

EXITER:

33%

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

ERRCNT
:EUOS.ESUR

000400

174242

002000

174232

#SW10,aSWR

001216
001150

001214

NEXT ,RETURN

002

;GIVE A CR/LF
;NO MORE HEADER UNLESS NO DATA TABLE.
;IS THERE AN ERROR MESSAGE?
;SR _IF NO.

;SHOW ERROR PC IN DATA LIGHTS
;SAVE OLD TRAP

2(SP) ,RO

#340°9

22%:

174224

JSHOW IT

4,-(SP)

(SP)+.,4

000006
000004

JSHOW IT

;TYPE PC.

6.-(SP)

000004
000006
174516

000006
000004

001232

CONVRT

SEQ 0032

#STACK,
SP

aRE TURN

6.2

TXCSR

JHALT

sPOP STACK

;RESTORE TRAP

;GET RO
:UPDATE ERROR COUNT
;GOTO TOP OF TEST?
:BR IF YES
:GOTO NEXT TEST?
;BR IF NO
JSET FOR NEXT TEST
JRESET SP

;GOTO SPECIFIED TEST

;RETURN

MACY11 30A(1052)
25=JuL=79 15:01

25=JUL=79 15:19 PAGE 34
END OF PASS ROUTINE

IR
IY1 R v W

S
VO ~NO NS

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

XTSTN:

002

000000
000002

052777
005300
001405

SAVP(

.BYTE

TSTNO

020000

174366

020000

174354

PKCLK: MOV
ADD
1%:
BIS
DEC
BEQ
BI(
DEC
BNE

2%:

000002

D
D

012737
000000
000005
012706
012737

104402
005141
000177

012702
012701
010122

005060

001150

005050

000024

1764110

RO
1$

;POKE

TICKS

THE #

TO POKE

CLOCK UP

JARE WE DONE?

;YES-GO TO 2%
:POKE

:ARE WE DONE?
:NO-REPEAT

CLOCK DOWN

JRETURN

;STALL

*RETURN

ROUTINE

HALT
RESET
MOV
MOV
TYPE
MPOWER
JMP

#PWRUP , 24

:LOAD PFAIL

#STACK, SP
#.PFAIL,24

VECTOR FOR POWER UP

SWAIT TTY TO COME UP

SREINIT STACK POINTER
:LOAD PFAIL VECTOR FOR POWER DOWN

@RE TURN

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

000300
000302

CLRVEC: MoV
1%:

020122
042116

MQM:
MCRLF:

MPOWER:
MEPASS:
MR:

MERR2:
MERR3:

MTSTPC:

MLOCK:

MCSRX:
MVECX:

;

051522

MPASSX:

MERRX:

#300,R2

;R2 COMM VECTOR AREA ADRS

(R2) +

*MOV HALT TO PC

MOV

#302,R1
R1,(R2)+

RTS

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

MOV

CLR
CMP
CMP
BNE

000776

051105

THE # OF

:POP OVER

#CLK,@TXCSR

.PFAIL: MCV
PWRUP:

:GET

RTI

FAIL

a(SP) RO

#CLK,aTXCSR

RTS

;POWER

3,2
#2,(SP)

JWAIT ROUTINE
NOP
SMALL:

000240
000207

wvivu oo

D -

1531

SEQ 0023

—

(ZDPD=DO

(ZDPDD.P11

LASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ

SINIT R1 WITH ADRS OF
:MOV .+2 TO PC

/2
<15><12>

INC TO NEXT VECTOR AREA
;END OF VECTOR AREA
.NO
JRETURN

<377>/PWR FAILED. /
<15><377>/END PASS CZDPDC /
<377>/R/
<377>/PROGRAM IND]CATES NO DEVICES PRESENT./
<377>/INSUFFICIENT DATA!/
<377>/TEST PC~/
<377>/L0OCK ON SELECTED TEST/
/CSR: /
/VEC: /
/PASSES:
/ERRORS:

/
/

HALT

(2)

1575
1576

047440

:
MPAR
MSTJUM:
MSRJM:
:
XHEAD

.EVEN
XSTATQ:

"ASC

e—
e bt bt b
bt
Bt b

MTOTAL: .

fTEST NO:

NNNNNNNNNNNN ~N

k2
.

MCSR:
MVEC:
MJUMPR:
MTCN:

MERRPC:

OO ‘el

MNEW:

LLuvLuLuLuvLLLLn non

020124
000

MASTEK: .

et bt b

MTSTN:

005413
005466

020124

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

051505
000

(2)

005377

005411

15:19
PAGE 35
25=JUL=79
END OF PASS ROUTINE

(2)
(2)

MACY11 30A(7052)
115:01
25=JUL=79

>P>>>>>>>> > >

CZDPD=DO

CZDPDD. P11

;gz7>;SET SWITCH REG TO DUP11°S DESIRED ACTIVE./
<377>/REC CSR ADRS /
<377>/VEC ADRS /
<377>/1S THE OPTIONAL CLR JMPR IN?
(Y OR N)
<377>/1S THE H325 CONNECTOR ON? (Y OR N)
/
<377>/# OF DUP'S (IN OCTAL)
/
<377>/PRIORITY (4 TO 7) /
<377>/SEC TX JMPR IN? (Y OR N) /
<377>/SEC RX JMPR IN? (Y OR N) /
<377>/MAP OF DUP11 STATUS/<377>

6.3
6.2

1581
1582
1583
1584

1585
1586
1587
1588

JBLKW

TEMP1
.BYTE
TEMPZ

1577
1578
1579
1580

SEQ 0034

CZDPD-DO
(ZDPDD.P11
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603

MACY11 30A(1052)
25=JUL=79 15:01

25=JuL=79 15:19 PAGE 36
END OF PASS ROUTINE

SEQ 0035

JROUTINE USED TO '‘CYCLE'' THROUGH UP TO EIGHT DUP11'S
;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTI”
THIS ROUTINE *MUST*
;AND RUNS THE SPECIFIED DUP11'S.
;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE
;SETUP NECESSARY.
006224
006230
006232
006236
006240
006242

105737

001310

104402
000000
000776
133737
001020
000241
106137
105537

005205

001004

001314

CYCLE:

001310

DUPACTV
1%

;BR IF OK.

.-2

;DISQUALIFY CONT. SWw.

ROLB
AD(CB
ADC
CMP

RUN
RUN
#6,CREAM

;BR IF GOOD ONE FOUND.
;CLEAR PROC. CARRY BIT.

BNE
CLC

001316
001316
001316
2%:

BNE
MOV
BR

CLC
ROLB

.MERRZ2

RUN,DUPACTV

ngP.END.CREAM
12UP.MAP.CREAH
RUN
RUN

CREAM,RO

#6, CREAM
#DUP
. END , CREAM

022737
001003
012737
012037

3%:

001424

001406
001416
001410
001422

001420
001412
001430
001414

001426

013737

001376

;ARE ANY DUP11°'S TO BE TESTED?

TSTB
BNE
TYPE
HALT
BR
BITB

#DUP
.MAP , CREAM

(RO)+,RXCSR
(RO) +,DUPRV(
(RO)+,L00.00
#2,R0
RXCSR ,HUPRCR
HUPRCR
HUPRCR ,RXDBUF
RXDBUF
RXDBUF
, DUPSEC
RXDBUF ,PARCSR
RXDBUF
, HUPRBF

HUPRBF
HUPRBF ,HUPPSR
HUPPSR, TXCSR
TXCSR
TXCSR,HUPT(CR

HUPTCR
?UPTCR.TXDBUF
X DBUF

JNO DUP11'S SELECTED!!
;STOP THE SHOW.
;IS THIS ONE ‘‘ACTIVE''

;UPDATE PCINTER
s CATCH CARRY FROM RUN
;UPDATE ADDRESS POINTER.
;KEEP GOING; NOT ALL TESTED FOR.
JRESET ADDRESS POINTER.
;KEEP LOOKING FOR ACTIVE DUP1T
:CLEAR PROC. CARRY.
;UPDATE POINTER.
;CATCH CARRY.
;GET ADDRESS POINTER.
;UPDATE.
;ALL DONE?
;BR IF NO.
;RESTORE POINTER.
;LOAD SYSTEM CTRL. REG
;LOAD VECTOR
;GET PARAMETERS
sSAVE CORE THIS WAY!
JGET CONTROL REG HIGH BYTE
;GOT IT
;GET RX CONTROL REG BUFFER
;GOT IT
;GOT SECONDARY REG SELECT REG
;GOT PARAMETER STATUS REGISTER
JGET RX BUFFER HIGH BYTE
;GOT IT
;GOT PAR STATUS REG HIGH BYTE
JGET T¥ CONTROL REGISTER
I

;GET }¥ CONTROL REG HIGH BYTE

TX BUFFER
IT
TX BUFFER HIGH BYTE
IT

HUPTBF

;BET
.
;GET
;GOT

DUPRV( ,DUPRPS

JRX VECTOR

TXDBUF ,HUPTBF

(ZDPD=DO
CZDPDD.P11
1645

1646

MACY1] 30A(1052)
25=JUL=79 15:01

060037

1647

001376
001376
001400
001400
001402

25=JUL=79 15:19 PAGE 37
END OF PASS ROUTINE
ADD
MOV
ADD
MOV
ADD

001400
001402

#L00.00,RO

001434
001432
001433
006742
000042
000002

RO, DUPRPS
DUPRPS ,DUPTV(
RO,DUPTVC
DUPTVC ,DUPTPS
RO,DUPTPS

#MASK
.A R1
#CLK.A
R2
PC,FIX.00

172364

005136

7%:

6?2
4%
#SW01,aSWR
48

SEQ 0036
JRX PRIORITY LEVEL

:TX VECTOR
;TX PRIORITY LEVEL

;LOAD STAUS 00-00

:PREPARE MASK.
;PREPARE CLOCKS

;GO AND CALCULATE CONFIGURATION.

;IF SWO01=1,GET STARTING TEST #

+MCRLF

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
s CONVERT STRING
;LOW LIMIT
JHIGH LIMIT

012700
022710
001017
023760
001013
022760
001007
010037
104402
104402
000412

005720
020027
001352

007160
012737
000002

001226

000004

007160
172252

sMASK
HOW MANY TIMES +
#TST1,R0

012737 (RO)

6
TSTNO,2(R0O)
6%
6%
RO,RETURN

+MCRLF

:SAVE PC

6%:

021464

012737
000177

;STORE AT THIS LOCATION

#TSTNO,
4 (RO)

001214
005136
005202

005132

011003
000207

5$:

001226

104402

000734

.BYTE
.BYTE

(RO)
+
RO,#TLAST+10

MQM

78
001214

4%:

#TST1,RETURN

aRE TURN

;PREPARE RETURN ADDRESS
;GO START TESTING.

FI1X.00:
5%:

(RO) ,R3

;GET PARAMETERS.

8%:

MACY11 30A(1052)
25=JUL=79 15:01.

CZDPD-DO
CZDPDD.P11

25=JUL=79

15:19

PAGE 38

END OF PASS ROUTINE

1691
1692
1693

12577
12577
12577
112577

SETVEC: MOV
MOV
mMovB
MOvB

172422
172422
172414
172414

RTS
NO.ATRAP:

NO.BTRAP:
HLT

SIMBCC: MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)
(R5)+,TEMP]
(RS)+,TEMP?

1%:

CLR

BCCFBK

ROR
AD(

TEMP?
RO

COM

BCCFBK

RTI

S
%
~

S
R
v

—-—

001236
001240
001242
007154
001242
001240

032700

000001

005137
013700

007154
007152

040037

007154

006037
013700
013701

001242
007154
001242

043702
200
043737
050037
005337

007154

007152
001242
001236

001242

013737

001242

007156

012537
012537
012537
005037
013700
006037

>
—
—_

NNN
~N

S
W

SRR 3 NIV,

. b

e R

e i

SNNNNNNNN NNNNNNNNNNNNNNY
P g
gib g P
F
Jb P P
P
{
N
WR)
=
VNV
WN=O

e I
S
S
N
N
S
N
N
N

~N NN NNNNN
&~ P
o
&~ W
=OVO
NOVwn

—_ L

007000

120001
102010

(R5) +,aDUPRPS

é?S)*.GDUPTPS

HLT
RTI

1708

(R5)+,aDUPRV(
(R5)+,aDUPTVC

MOV
MOV
BIT
BEQ

2$:

MOV
COM
BIC
CLC

(R5)+,TEMP3

TEMP3,RO

#81T0,RO
2%
XPOLY ,RO
RO
RO,BCCFBK

ROR
MOV
MOV
MOV
BIC
BIC
BIS
BIC
BIS
DEC
BNE

TEMP3
BCCFBK,RO
TEMP3 ,R1
R1.R2
R1,R0O
BCCFBK ,R2
R2.RO
XPOLY,TEMP3
RO, TEMP3
TEMP1
1%

MOV

(SP)+ ,R1

MOV
MOV

TEMP3, CALBCC
(SP)+ ,R2

MOV
(SP)
+ ,R(
RTS
RS
XPOLY:
O
BCCFBK: 0
CALBCC: 0
CRC16=120001
CRC.CCITT=102010

SEQ 0037

CZDPD-DO
CZDPDD.P11

MACY11 30A(10S52)
25=JuL=79 15:01

25=JUL=79

15:19

PAGE 39

IN TERRUPT PRIORITY TEST=CPU LEVEL AT 7

1747
1748
1749

JRRRARRNRARAARRARARRARARRNR

s*PRIORITY INTERRUPT

SEQ 0038

TEST

wnnwnnnnnannnvansnnnnnnnnnn

TEST.

;*SET PROCESSOR STATUS TO PRIORITY 7
;*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT.
PR

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

R AR R

_" Seviven.n,

IRARRAAA
R RN
*

TEST 1
*

TRRR
KRR AN AR RN

AR AR

012737

000001
007264
000340
000400
005044
006746
340
004100
000340

001226
001216
177776

S T1:

172202

AN AR R AR AR AR AR

MOV

#TSTZ.NEXT
#340,PS

MOV
MOV
BIS

172156
177776

172136

1%:

007250

2%:

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

R AR

R AN RN

#1,a4TSTNO

#MRESET ,@TXCSR

sLOCK OUT INTERRUPTS
:RESET THE DEVICE

JSR
PC,SMALL
:WAIT FOR RESET TO FINISH
JSR
R5,SETVEC
;SET UP VECTORS
NO.ATRAP
;VECTOR "A"'
NO.BTRAP
JVECTOR 'B'’
.BYTE
340,340
LFVEL
MOV
#TXINTE'SYSTST OTXCSR
sTURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE
MOV
#340,PS
;SET CPU PRIORITY==CHANGE HERE IF NOT = 5
NOP
*STALL
NOP
:DITTO
NOP
;DITTO
CLR

aTXCSR

SCOPE
MOV

#1%,(SP)

RTI

;DISABLE

THE DUP11

;SCOPE THIS TEST
;SETUP FOR RETURN
sRETURN

JRRRRRARARRRAARARRRRARARRAR

[EST

Anmananatnntanannntnntnanes

;s*PRIORITY INTERRUPT TEST.
;*SET PROCESSOR STATUS TO PRIORITY 6
;*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT.
IR

AR AR AR AR R AR AR AR AR R

AR AR

AR R AR R AN AR R AR R AR R

R AR R AR

IRANRARN
AR A
*

TEST 2
*
*iRRA
A AR A AR A AN

RSS2 IR

1791

ALARttt
iRt
2Rttt RRRRRRRR 2]

012737

000002

007400
000005
000340
000400
005044
006746
340

001226
001216
001320
177776
172066

Ts T2:

MoV

#2,a#TSTNO

CMPB
BNE

#5 .PRIRTY
1%

MOV
MOV
BIS

#TST3 NEXT
#340,PS

#MRESET ,@TXCSR

JSR
PC,SMALL
JSR
RS,SETVEC
NO.ATRAP
NO.BTRAP
.BYTE
340,340

; COMPARE REAL WITH NORMAL

;JBR IF NOT A MATCH
sLOCK OUT INTERRUPTS
;RESET THE DEVICE

sWAIT FOR RESET TO FINISH
;SET UP VECTORS
;VECTOR "A"'
;VECTOR 'B"’
sLEVEL

CZDPD-DO
NOWVWSW

25=JUL=79 15:01

012777
012737

VONO NS WN=O

—

D e

e e

D o

g ‘39229222‘.’2‘3§§S§8§8

(ZDPDD.P11

MACY11 30A(1052)
004100
000300

N 3
25=JUL=79 15:19 PAGE 40
INTERRUPT PRIORITY TEST=CPU LEVEL AT 6
MOV
MOV

172042
177776

172022

1%:

007364

2%:

SEQ 0039

HTXINTE!SYSTST, aTXCSR
sTURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE
#300,PS
SET CPU PRIORITY==CHANGE HERE IF NOT
= 5

NOP
NOP
NOP
CLR
SCOPE

STALL
:DITTO
;DITTO
sDISABLE THE DUP11
;SCOPE THIS TEST

aTXCSR

MOV

7%, (SP)

RTI

sSETUP FOR RETURN
sRETURN

JRRRARRRARRARRNRARARARRARAR

;*PRIORITY

INTERRUPT

TEST

wamannnrnnnnanannnrnntnhnnn

TEST.

;*SET PROCESSOR STATUS TO PRIORITY 5
s*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT.
IR

R R AR AR AR AR R R AR AR

RN R

AR AR AR AR AR RRARARARRR AR

JINKRRARRARR
AR
S

;

TEST 3

::ti.'.*t"tt'

AR R

012737
012737
122737

000003
007514
000005
000340

005044
006746
340
000240

001226
001216
001320

TST3:

177776

171752

A AR A AR A AR AR AR R AR AR AR AR AR AR R RA AR ARRRAARRN AR AR

MOV

#3,a#TSTNC

CMPB
BNE
MOV

#5,PRIRTY
1%
#340,PS

MOV

#TST4 NEXT

BIS
#MRESET ,@TXCSR
JSR
PC,SMALL
JSR
R5,SETVEC
NO.ATRAP
NO.BTRAP

.BYTE

171726
177776

MOV

171706

1%:

007500

2%:

NOP
NOP
NOP
CLR
SCOPE

;RESET THE DEVICE
sWAIT FOR RESET TO FINISH

340,340

;SET UP VECTORS
sVECTOR "A"'
;VECTOR 'B"’
sLEVEL

#240,PS

;SET CPU PRIORITY==CHANGE HERE

aTXCSR

MOV

#1%,(SP)

RTI

AR RN

; COMPARE REAL WITH NORMAL
;BR IF NOT
A MATCH
sLOCK OUT INTERRUPTS

#TXINTE!SYSTST,@TXCSR

MOV

AR AR AR RA

;TURN ON DUP TX INT.

:STALL
;DITTO
:DITTO
;DISABLE THE DUP11
;SCOPE THIS TEST

ENABLEAND ENTER SYSTST MODE

IF NOT = 5

:sSETUF FOR RETURN
sRETURN

JRRRAAARA
AR R A AN AR AR AN wn

TEST

sawnnmnnmmthmrhrtvrvttrtnn

;*PRIORITY INTERRUPT TEST.
;*SET PROCESSOR STATUS TO PRIORITY 4
;*AND VERIFY THAT THE DUP11 WILL INTERRUPT.

siNRRRAARAAN
AN AR
ARSI LA ARl

IIRRRRARRRNRRN
:

;
:

TEST 4
.

JiRERRRRRERRRY

(ZDPD-DO
(ZDPDD.P11

EEREEERE

1859
1860

MACY11 30A(1052)
25=JuL=7915:01

B &
25=JUL=79 15:19 PAGE 41
INTERRUPT PRIORITY TEST=-CPU AT LEVEL 4
R

012737
012737
122737

1869

000004
007632
000005

001226
001216
001320

000340
000400
005044
006746

177776
171636

340
004100
000200

222222222223 222222

TST4

171612
177776

171570

1%:

007616

MOV
MOV
CMPB
BNE

#6 ,a#TSTNO
OTSTS.NEXT
#5,PRIRTY
1%

;COMPARE REAL WITH NORMAL
;BR IF NOT A MAT(CH

2%
BYTE

340,340

JVECTOR 'B"’
< LEVEL

MOV
#340,PS
BIS
JMRESET @TXCSR
JSR
PC.SMALL
JSR
RS,SETVEC
NO.ATRAP

SEQ 0040

MOV
MOV
NOP
NOP
NOP
HLT
CLR
SCOPE

RRRRS:

;LOCK OUT INTERRUPTS
RESET THE DEVICE
JWAIT FOR RESET TO FINISH
sSET UP VECTORS
JVECTOR "‘A"'

OTXINTE'SYQTST arxcsn
sTURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE
#200,PS
;SET CPU PRIORITY=-=CHANGE HERE IF NOT = §
'STALL
;DITTO
DITTO
13
;DUP FAILED TO INTERRUPT-POSSBILY WRONG PRICRITY-CHANGE [f NOT S
aTXCSR
;DISABLE THE DUP11
;SCOPE THIS TEST

MOV
RTI]

#1%,(SP)

;SETUP FOR RETURN
;RETURN

JRRRRARNRAAAARAAARNRNRR
RN

JEST

AR AR

AR AR RN A AR AR R R

RRR AR

'TEST TO PROVE THE HALF-DUPLEX FUNCTION
. *PROVE THAT THE RECEIVER WILL NOT RECOGNIZE

:*DAYA IF SEND IS ASSERTED.
PR

AR AR AR R AR R AR

R AR AR AN R AR AR AR R

A N AR AR AR AR AR

AR R AR

IIRRRRRARRRARR
;

;

TEST

S
*

AR
AR A AR AR
INRARAR A AR R AR AR AR AR A AR AR R R AR

wsd
b

00000

S WNL=O

3R333238383

012737
012737
105737

001226
001216

TSTS

MOV
MOV

TSTB

BEQ
MOV
BIS
JSR
BIS
JSR

177776
171522
171510

NO.BTRAP

.BYTE
CLR
BIS

00
171436

66%:

171426

67%:

BIS
BIS
MOV

BIT
BNE
BIT
BEQ

R AARRARAR AR AR ARRARAR R AR ARRRAR R AR AR

#5,4TSTNO
#1576 NEXT
{gMFLG

#340,PS

;LOCK OUT

INTERRUPTS

R5,SETVEC

;SET _UP VECTORS

#MRESET,aTXCSR
;RESET THE DEVICE
PC,SMALL
;WAIT FOR RESET TO FINISH
#MEXT 'HDXEN,@TXCSR
;ENTER MAINT EXT AND HALF-DUPLEX MODES

340,340

PS
#RCVEN,@RXCSR
#RINTEN,aRXCSR
#SEND,aTXCSR

#5,68%

#TIMER,@TXDBUF

66 4

#TIMER,aTXDBUF

67%

;RECEIVER

: TRANSMITTER

;LEVEL

;LOWER PROC. STATUS
;TURN ON RECEIVER
;TURN ON INT. ENABLE
sTURN ON TRANSMITTER

*LOAD THE NUMBER
:CHECK THE

‘BR IF SET

TIMER BIT

CHECK THE BIT

BR IF CLEAR

CZDPD=DO
CZDPDD.P11
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924

007779
007772
007774
007776

MACY11 30A(1052)
25=JUL=79 15:01

005327
000005
001365
105777
100401
104005

012777
012737
032777
001374
032777
001774
005327
000005
001365

010060
0
010070
010072
010100
010106
010114
010116
010124
010126

010130
010132
010134
010142
010146
010154
010160
010162
010164
010170

25=JuL=79

15:19 PAGE 42
HALF=DUPLEX TEST

6£8%:
171470
171400

3%:

171364

71%:

171354

72%:

000400
000005
004000

010044

004000

73%:

SEQ 0041

DEC

(PC)+

BNE
TSTB
BMI
HLT
MCvV
MOV
BIT
BNE
BIT
BEQ
DEC

66%

sDECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO

aTXCSR

3%
8

#TSOM,

#5,73$

T XDBUF

#TIMER,aTXDBUF

71%

#TIMER, @TXDBUF

72%

(PC)+

71%
aTXCSR
4%

BNE

105777
100401
104000

171336

005077

171330
171322

012777
012737
032777
001374
032777
001774
005327
000050
001365
012737
012706
052777
004737

001000
000050
004000

010130
171300

76%:

#TIMER aTXDBUF

004000

171270

77%:

#TIMER,aTXDBUF

105777
100375

104400

104007

012716
000002

TSTB

BMI
HLT
4%:

a TXDBUF
arzcsn

171314

crson aTXDBUF

788

76%

7/%
(PC)+

78%:

000340
001150
000400
005044

010134

76%
#340,PS

177776

#STACK,SP
#MRESET ,@TXCSR
PC,SMALL

171236
SCOPE

2%:

HLT
MOV
RTI

#%,(SP)

;TXDONE FAILED TO SET

JLOAD TX BUFFER
;LOAD THE NUMBER
JCHECK THE TIMER BIT
;BR IF SET
;CHECK THE BIT
;:BR IF CLEAR

;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
CHECK FOR DONE

BR IF SET
:EXTERNAL CLOCKING STOPPED
;OR DATA WAS NOT RECEIVERD.CHECK
;EIA DATA AND CLOCK PATHS
;LOAD A CHARACTER
;CHECK FOR DONE
;BR IF NOT SET
;END THE MESSAGE
;LOAD THE NUMBER
TIMER BIT
THE
K
;CHEC
;BR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
:BR IF MORE TO GO
sRAISE PROCESSOR STATUS
JRESET STACK

:RESET THE DEVICE

;sWAIT FOR RESET

;SCOPE THIS TEST

TO FINISH

JRECEIVER INTERRUTED AND SHOULD
sNOT HAVE=-=THIS IS HALF

;DUPLEX.

JRRRRRARKRRRRAARRARRAAARANE

JEST

a et

v ananntteneanntnn

;*TEST OF THE DUP RUNNING A BINARY COUNT
*PATTERN WITHCUT A CRC CALCULATION

::.'ttttttt.'t.ttttifit.ttttt't.'t.tfi.."ttQt.ttfitt'tt.tt""tt"

SEREZTEE

1962

crRRR
AR AR A AN AN
*

TEST 6
*

AR
AR AR A AR AR
MR

010172
010200
010206

012737
012737
052777

TsT6:

SRRt RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
D)

MOV
MOV
BIS

#6,a4TSTNO
#7877 NEXT
#MRESET ,aTX(SR

JRESET

THE DEVICE

(ZDPD=DO
CZOPDD.P11
1971
1972
1973
1974

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

1987

1688
1989
199C
1991
1992
1993
1994
1995
1996
1997
1998
1999

2000
2001

2002
2003
2004
2005
2006
2007
2008
2009
2010
58};

010214
010220
010226
010232

010240
010246
010252
010254
010256
010260
010266
010274
010302
010306
010310
010316

010324

010332
010340
010342
010350
010352
010354
010356
010360
010364
010366
010370
010374

010402
010406
010406
010414
010422
010424
010432
010434

010436

010440
010442
010444

MACY11 30A(1052)
25=JUL=79 15:01
004737
012737
005037
012737
052777
004537
010446
010526
340
052777
052777
052777
105777
100375
052777
012777

012737

032777
001374
032777
001774
005327
000005
001365
105777
100401
104000
005077
052777

005037

012737
032777
001374
032777
001774
005327
000040
001365
104001
104400

005044
000001
001240
000340

004000
006746
340
001000
000020
000100
171104

177776
171144

171122
171110
171102

000005

010354
171054

668%:

004000

171044

67%:

004000

171070

171020
000100

177776

3%:

171010

000040
004000

010436
170772

004000

170762

4%:
5%:

71%:
72%:

73%:
6%:

BIS
JSR
118
12%
BYTE
BIS
BIS
BIS
TSTB
BPL
BIS
MOV

MOV

BIT
BNE
BIT
BEQ
DEC
5
BNE
TSTB
BMI
HLT
CLR
BIS

CLR

MOV
BIT
BNE
BIT
BEQ
DEC
3¢,
BNE
HLT
SCOPE

PC,SMALL
#1,TEMP]
TEMP?
#340,PS

#SYSTST ,@TXCSR
R5,SETVEC
340,340
#CRCEN,aPARCSR
#RCVEN,aRXCSR

#RINTEN,3RXCSR
aTXCSR

#SEND ,@TXCSR

#TSOM,aTXDBUF

#5,68%

#TIMER,QTXDBUF
66$
#TIMER,QTXDBUF
67%
(PC)+
66%
aTXCSR
4$

@ TXDBUF
HTXINTE ,@TXCSR
PS

_
SEQ 0042
JWAIT FOR RESET TO FINISH
;LOAD DATA
CLEAR EXPECTED
PS =7

ENTER SYSTEM TEST MODE
:LOAD INTERRUPT VECTORS
:RECEIVER
; TRANSMITER
sLEVEL
_
s TURN OFF CRC
;TURN ON THE RECEIVER
;TURN ON REC INTERRUPT ENABLE
;TEST FOR _TX DONE
;BR IF NOT SET
s TURN ON SEND
;TURN ON START OF MESSAGE

;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
;WAIT FOR DONE
:BR IF SET
:EXTERNAL CLOCKING STOPPED
;PUSH OUT DATA
;TURN ON TRANSMITTER INT ENABLE

;LOWER PROCESOR STATUS

#32.,73%
#TIMER,QTXDBUF
718
#TIMER,@TXDBUF
72%
(PC)+

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

71%
1

:BR IF MORE TO GO
JFAILED TO INTERRUPT
;SCOPE THIS TEST

;OF TIMES TO REPEAT

IN TIME

; INTERRUPT SERVICE ROUTINES

2015
2016

2019
2020
2021
2022
2023
2024
2025
2026

2%:

68%:

171026

2013

2018

1%:

171074

2014

2017

JSR
MOV
CLR
MOV

001236

000020

000400

25=JUL=79 15:1G PAGE 43
BINARY COUNT PATERN WITHOUT BCC

; wm————

010446

010454
010462
010464
010466
010472
010476
010500
010504

017737

123737
001401
104002
105237
105737
001012
105777
100375

170734

001240

0013264

001324

;RECEIVER:
11%:

001240
001240
170700

———

108:

MOV

CMPB
BEQ
HLT
INCB
TSTB
BNE
TSTB
BPL

-——

aRXDBUF ,DATA

TEMP2 ,DATA
. *4
2
TEMP?
TEMP?
7%
aRXCSR
108

;GET THE REGISTER AND DATA

s CHECK IT
:BR IF OK
:COMPARISON ERROR
;COUNT UP EXPECTED
:CHECK TO SEE IF DONE
:BR _IF NO
;CHECK FOR DONE
;BR IF NOT YET

(ZDPD=DO
CZDPDD.P11

2027
2028

MACY11 30A(1052)

25-JUL=79 15:01

010506
010514
010516
010520

032777
001001

001000

012716

010444

010524

000002

016526
010534
010540
010546
010550
010556
010560
010566
010574
010576

113777
105237

104003

E ¢4
15:19 PAGE 44
25=JUL=79
BINARY COUNT PATERN WITHOUT BCC
170672

7%:

001236

010560

170622

000377
010576

170626
170604

21%:

001000

170610

170660

000120
006774
010406

BIT
#REOM, aRXDBUF
BNE
.+
HLT
3
MOV #6%, (SP)

;CHECK FOR END OF MSG
:BR IF SET
;END OF MSG FAILED TO SET
;CRUNCH STACK

RTI

;RETURN

;TRANSMITTER:

001236
001236
000377

12%:

SEQ 0043

MOVB
INCB

TEMP1 ,aTXDBUF
TEMP1

;LOAD THE TRANSMITTER BUFFER
;UP THE COUNT

22%:

CMPB
BNE
MOV
BR
MOV
MOV
BR
MOV

#377,TEMPT
13%
#21%,aDUPTVC
13%
#377 ,8TXDBUF
#22%,aDUPTV(
13%
#TEOM,aT XDBUF

13%:

BIC
MOV
MOV

#SEND ! TXINTE ,@TXCSR ;TURN OFF TRANSMITTER
#NO.BTRAP,aDUPTVC ;LOAD VECTOR
#5%,(SP)
sCRUNCH STACK

NOP
NOP

RTI

;ARE WE DONE
;BR IF NO
;SETUP FOR NEXT PART
;LEAVE
;LOAD BUFFER
:SETUP NEXT PART
sLEAVE
;SET END OF MSG
;STALL
:DITTO

JRE TURNS

JRRRERRRRRRNARAARRRRRARARRE

TEST

Attt e a

a kAR

AR R * S

J*TEST OF THE DUP RUNNING A BINARY COUNT
;*PATTERN WITH A

CRC

4 TRARARAA AR AR A AR A AR AR

CALCULATION

AAAAARAAAARAAAAAAARAA

AR A AR AR R R AT R R AR AR AR

":tttfitt'ltttt

LOTEST 7
.

3 AL S SRS
A2

012737

000007
011432
000400
005044

001226
001216

102010
177777

007152
007156
010720

007156
010716
007000

TST7:

010740

012737

177776

16%:

17%:

.BLKW

170536

001236

SRR R

MOV
MOV
8IS
JSR
CLR
MOV
MOV
MOV

20%:

000001
001240
000340

S
E

BLKW

Rttt

#7 ,MTSTNO
#TST10,NEXT

THE

RRRRRRtRRRRRRRRRRRRRRRR

#MRESET ,@TXCSR

;RESET

DEVICE

CALBCC, 208

:ALLOW FOR THE NEXT CHARACTER

PC, SMALL
:WAIT FOR RESET TO FINISH
R1
:CLEAR OUT DATA
#CRC.CCITT, XPOLY
;SET UP THE POLYNOMIAL
#-1,CALBCC
;SETUP FOR THE FIRS! TIME

R1,17$
RS.SIMBCC
1
1
R1
168

#1, TEMP
TEMP2
#340,PS

:LOAD DATA
160 CALCULATE SOF TWARE BCC

:BASED ON THESE PARAMETERS

;DATA
:PREVIOUS BCC
; INCREMENT DATA
:BR IF MORE TO GO
:LOAD DATA
:CLEAR EXPECTED
PS =7

(ZDPD=DO
(ZDPDD.P11

MACY11

30A(1052)

052777

0040C0
006746

25=JUL=79 15:01

010746

P
—

elalelelelele
)

340

004000

170436

12%

170410
170402

170374
170370
011054
170354

2%:

170344

67%:

66%:

3%:

170326
170320

and

170310

000040
004000

011136
170272

718:

004000

170262

72%:

WNRON) —

b
i
-

bl
o

)

i
i
e
il
h

)

—p—

eolololeololsleolelelelels]

012737
032777
001374
032777
001774
005327
000040
001365

A ¥

000100
177776

5%:

73%:

104001

6%:

104400

BIS
BIS

TSTB

BPL
BIS
MOV
MOV
BIT
BNE
BIT
BEQ
DEC
5
BNE

TSTB

BMI
HLT
CLR
BIS
CLR
MOV

BIT
BNE
BIT

#SYSTST ,@TXCSR

RS,SETVEC
340,340

#RCVEN,aRXCSR
#RINTEN,aRXCSR

aTXCSR
1%

#SEND ,@TXCSR
#TSOM,
AT XDBUF
#5,68%

#TIMER,aTXDBUF

66$

#TIMER,aTXDBUF

67%

(PC)+

66%

aTXCSR
4%

o TXDBUF
S§XINTE.STXCSR
#32.,73%

4#TIMER,
T XDBUF
71%
#TIMER,aTXDBUF

BEQ
DEC

72%

BNE
HLT
SCOPE

718

32.

(PC)+

SEQ 0044

JENTER SYSTEM TEST MODE
;LOAD INTERRUPT VECTORS

JRECEIVER
;s TRANSMITER

JLEVEL

;TURN ON THE RECEIVER

;TURN ON REC INTERRUPT ENABLE

;TEST FOR TX DONE

;BR IF NOT SET

;TURN ON SEND

;TURN ON START OF MESSAGE
;LOAD THE NUMBER
;CHECK THE TIMER BIT
JBR IF SET
;CHECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
:WAIT FOR DONE
;BR IF SET
JEXTERNAL CLOCKING STOPPED
;PUSH OUT DATA
;TURN ON TRANSMITTER

INT ENABLE

;LOWER PROCESOR STATUS

;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

+FAILED TO INTERRUPT [N TIME
;SCOPE THIS TEST

NNNN—!—.—‘—.—J—A:

—
NN
(o
AV,]
N S&REBINEGRRLS

o
—

d
D

b
d

e
e

b
wd

D e
e

ed e
e

d
e
b

; INTERRUPT SERVICE ROUTINES

lelielelelelelelelelelele]

LSRNV
S ehet S 1A

1%:

68%:

W
=

—

_a_a’:\a_a_a_a..a_a_a_a_a—n_a_n—l_a_n_a_a_a_a_a
olele]
b
aa
o
o

nno PNV
(VP

e )
e
e R
e
T
B
eI

BIS
JSR
11%

2100

011074

25=JuL=79 15:19 PAGE 45
BINARY COUNT PATTERN WITH B(C

017737

170234
001240

001324
001324

;RECEIVER:
11%:

@RXDBUF ,DATA

TETP?.DATA
-

001240
001240

TEMP?
TEMP?
7%
RS,SETVEC

006746
340

340,340
’$:

;GET THE REGISTER AND DATA
JCHECK IT
;BR IF OK

;COMPARISON ERROR
sCOUNT UP EXPECTED
;CHECK TO SEE IF DONE
;BR IF NO
:YES=-RESET THE VECTORS
JRECEIVER
JTRANSMITTER

sLEVEL

sRETURN

(ZDPD-DO
CZDPDD.P1
2139
2140
2141
2142
2143
21446

011214

MACY11 30A(1052)
25=JuUL=79 15:01

113777

011222
011226
011234

105237
122737
001026

2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
S}g?

011244
011246
011254
011262
011264
011272
011274
011276
011304
011312
011316

000422
012777
012777
000413
012777
000240
000240
042777
012777
012716
000002

2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168

011320
011326
011332
011334
011342
011350
011354
011356
011364
011370
011376

2145

2169
2170

011236

117737
105777
100375
017737
113737
012716
000002
012737
005137
023737
001401

001236

011246

170134

000377
011264

170140
170116

21%:

001000

170122

22%:

000120
006774
011106

170106
170066

170062
170052

001324

170046
001242
011356

001242
001325

000340
007156
007156

177776
001324

010000

001242

167770

011410
011412

2174

011414

052777

000400

S};g

011426

000137

011144

2173

2175

011422

004737

;s TRANSMITTER:
12%:
MOvVB

170172

001236
000377

104004
032737
001401
104004

2171
2172

011400
011402

012777

001236

G 4
25-JuL=79 15:19 PAGE 46
BINARY COUNT PATTERN WITH B(C

005044

13%:
14%:

15%:

s LEAVE
:LOAD BUFFER
;SETUP NEXT PART
:LEAVE
;SET END OF MSG
JSTALL
;DITTO
#SEND ! TXINTE ,@TXCSR ;TURN OFF TRANSMITTER
#NO.BTRAP,aDUPTVC ;LOAD VECTOR
#5%, (SP)
;CRUNCH STACK
;RETURNS

MOVB
TSTBR
BPL
MOV
MOVB
MOV
RTI
MOV
com
MP
BEQ

aRXDBUF ,DATA
aRXCSR
.~
aRXDBUF ,TEMP3
TEMP3 ,DATA+1
#15%, (SP)

BEQ
HLT

#340,PS
CALBCC
CALBCC,DATA
.4
4
#CRCERR, TEMP3
.+4
4

BIS

#MRESET ,@TXCSR

JMP

PC,SMALL

2182

2183

;GET FIRST PART 0OF (RC
JWAJT FOR SECOND PART
;DITTO
;GET THE REST OF THE (RC
JSET UP CRC CHARACTER
sSETUP FOR RETURN
sRETURN
;RAISE PS
s INVERT B(CC
. COMPARE SOF TWARE AND HARDWARE BC((
;BR IF OK
;BCC COMPARISON ERROR
;CHECK THE ERROR BIT

;BR IF NO ERROR
;BCC ERROR--RECEIVER DOESN'T
JAGREE WITH WHAT TX SENT
;RESET THE DEVICE

JWAIT FOR RESET TO FINISH
. LEAVE

R AR R AR R AR R R R R R R AR AT AR R AR R AR R AR RN RN AR R AR R AR C AR TR RN

JIRRRRRRRRN AR

2184

2185
2186

;
3

2187

TEST

*
-

JINRRRARARANRR

2188

R
R

011432

(012737

000010

004737

005044

2190
2191

011440
011446

012737
052777

2193
2194

011460
011464

105737
001532

2192

;SETUP FOR NEXT PART

138
#377,8TXDBUF
#22%,aDUPTVC
138
#TEOM,aTXDBUF

;UP THE COUNT
;ARE WE DONE
;BR IF NO

JRRRRRRARARARRARRRRRRARnkhk TEST 10 swnsrnwnnnnnannnnnnnnnannenns
J*«TEST OF THE DUP RUNNING A BINARY COUNT
s*PATTERN WITH A CRC CALCULATION

2181

2189

#2118 ,aDUPTVC(

BR
MOV
MOV
BR
MOV
NOP
NOP
BIC
MOV
MOV
RTI

JSR

2178
2179
2180

;LOAD THE TRANSMITTER BUFFER

TEMP1
#377 ,TEMPT
13%

LT
BIT

TEMP1 ,aTXDBUF

INCB
CMPB
BNE

MOV

SEQ 0045

011454

012240
000400

001322

001226

001216
167736

TST10:

MOV

#10,34TSTNO

JSR

PC,SMALL

MOV
BIS

TSTB
BEQ

#TST11 NEXT
#MRESET ,@TXCSR
TCNFLG
6%

;RESET THE DEVICE
JWAIT FOR RESET

TO FINISH

MACY11 30A(1052)
25=JUL=79 15:01

(ZDPD-DO

CZDPDD.P 1

005001
012737
012737

2195

R
R
S

YRS

e
e

SO
e JES
e

B el

)

jelelelelelolelololololelele]

2196
2197

011572

007152
007156
071526

013737
010137
004537
000010

—

—d —d —d —d

d —d —d ——d —

eoleleleolelelelelele]

005077
052777
005037

012737
032777

16%:

17%:

;CLEAR OUT DATA

CALBC(C,20%

FOR THE FIRST TIME
JALLOW FOR THE NEXT CHARACTER

2%:

167536

67%:

#MEXT ,aTXCSR
RS,SETVEC

;LOAD INTERRUPT VECTORS

3%:

167512

4%:

000100
177776

167502

000040
004000

011744
167464

71%:

004000

167454

72%:

cTEST FOR TX DONE
;BR IF NOT SET

;TURN ON SEND
;TURN ON START OF

;LOAD THE NUMBER

66%

;BR IF SET

67%

(PC)+

;CHECK

THE

;CHECK

THE BIT

MESSAGE

TIMER BIT

;BR IF CLEAR
;DECREMENT

THE NUMBER

aTXCSR
4%

;OF TIMES TO REPEAT
;BR IF MORE TO GO
JWAIT FOR DONE
;BR IF SET

o TXDBUF

;PUSH OUT DATA

66%

#TXINTE ,@TXCSR
PS

#32.,73%

JEXTERNAL CLOCKING STOPPED
;TURN ON TRANSMITTER INT
;LOWER PROCESOR STATUS

#TIMER,aTXDBUF

;(CHECK

#TIMER,9TXDBUF

;(HECK

71%
72%

(PC)+

71%
SCOPE

;INTERRUPT SERVICE ROUTINES
JRECEIVER:

;TURN ON THE RECEIVER
;TURN ON REC INTERRUPT ENABLE

#5,68%

6%:

;s TRANSMITER

@TXCSR
1%

#TIMER,9TXDBUF

73%:

JRECEIVER
sLEVEL

#TIMER,QTXDBUF

5%:

JPS =7

340,340

#SEND ,@TXCSR
#TSOM,aT XDBUF

68%:

167520

.GO CALCULATE SOF TWARE B(C
sBASED ON THESE PARAMETERS

sCLEAR EXPECTED

#RCVEN,aRXCSR
#RINTEN,aRXCSR

1%:

66%:

;LOAD DATA

TEMP?2

#340,PS

177776
167630

167566
167562
011662
167546

;SET UP THE POLYNOMIAL

1
;DATA
1
JPREVIOUS BCC
R1
; INCREMENT DATA
16%
;BR IF MORE TO GO
#1,TEMPI
;LOAD DATA

001236

167602
167574

SEQ 0046

#CRC.CCITT XPOLY
#-1,CALBCC
sSETUP

R1,17%

20%:

100375

105777
100401
104000

CLR
MOV

RS,SIMB(C

000001
000001
105201
001364
012737
005037
012737
052777
004537
011754
012022
340
052777
052777
105777

052777
012777
012737
032777
001374
032777
001774
005327
000005
001365

PAGE &7
15:19
BINARY PATTERN TEST WITH BCC IN EXTERNAL MODE

25=JuL=79

ENABLE

sLOAD THE NUMBER

THE

TIMER BIT

;BR IF

SET

:BR IF

CLEAR

THE BIT

;DECREMENT

THE NUMBER

;OF TIMES TO REPEAT
:BR IF MORE

TO GO

*FAILED TO INTERRUPT IN TIME
*SCOPE THIS TEST

(ZDPD-DO

CZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

011754
011762
011770

167426

001240

001324
001324

11%:

001240
001240

7%:

012020

000422
012777
012777
000413
012777
000240
000240
042777
012777
012716
000002
117737
105777
100375

017737
113737
012716
000002

012222
012230
012234

052777
004737
000137

167364

001236

012054

167326

000377
012072

167332
167310

21%:

001000

167314

22%:

000120
006774
011714

167300
167260

167254
167244

001324

167240

001242

001242
012164

001325

000340
007156
007156

177776

000400
005044
011752

; COMPARISON ERROR
sCOUNT UP EXPECTED

BNE
JSR

RS,SETVEC

;BR IF NO

12%
.BYTE

340,340

001324
001242

167162

TEMP?

13%:

INCB
CMPB
BNE
MOV
BR
MOV
MOV
BR
MOV
NOP
NOP
B8IC
MOV
MOV

14%:

MOvVB

RTI

TSTB

BPL
MOV

TEMP1,aTXDBUF
TEMP1

#377,TEMP1
138
#21% ,aDUPTVC
13%
#377,3TXDBUF
#22% ,aDUPTVC
13%

#TEOM,aTXDBUF

BEQ
HLT
BIT
BEQ
HLT

BIS
JSR
JMP

;CHECK TO SEE
;YES=-RESET

;RECEIVER

DONE

THE VECTORS

; TRANSMITTER

sLEVEL

;LOAD THE TRANSMITTER BUFFER
;UP THE COUNT

;ARE WE DONE
;BR _IF NO
;SETUP FOR NEXT PART
;LEAVE
;LOAD BUFFER
“JSETUP NEXT PART
;LEAVE
;SET

END OF

MSG

;STALL
;DITTO

#SEND ' TXINTE ,@TXCSR ;TURN OFF TRANSMITTER
#NO.BTRAP,aDUPTVC ;LOAD VECTOR

#5%, (SP)

sCRUNCH STACK

;RETURNS

aRXDBUF ,DATA
SRXCSR
-4

;GET FIRST PART OF

TEMP3 ,DATA+ 1

sSET UP CRC

SRXDBUF
, TEMP3
#15%, (SP)

15%:

;GET THE REGISTER AND DATA
JCHECK IT
;BR IF OK

JRETURN

RTI

;s TRANSMITTER:
MOV
2%:

001236
001236
000377

010000

2
TEMP?2

—

012022

aRXDBUF ,DATA
TEMP2 ,DATA
.t

14%

340

SEQ 0047

MOV
CMPB
BEQ
HLT
INCB

TSTB

006746
012016

25=JuL=79 15:19 PAGE 48
BINARY PATTERN TEST WITH BCC IN EXTERNAL MODE

#340,PS
CALBCC
CA%BCC.DATA
.+

lC?CERR.TEflP3

#MRESET ,@TX CSR
PC, SMALL

C(RC

sWAIT FOR SECOND PART
;DITTO

-GET THE REST OF THE CRC
CHARACTER

:SETUP FOR RETURN
;RETURN
;RAISE PS
s INVERT BCC
; COMPARE SOF TWARE AND HARDWARE BC(C
;BR IF OK
.
;BCC COMPARISON ERROR
;CHECK THE ERROR BIT

;BR IF NO ERROR
sBCC ERROR--RECEIVER DOESN'T
JAGREE WITH WHAT TX SENT
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

;LEAVE

Jennnnaknennnnnnnnwnnnnnnnnn

JEST

snvnnnvenenvanensscnsonenes

J*THIS TEST WILL CHECK FOR ABORT SEQUENCE
;*OF THE DUP IN A DATA STREAM

MACY11

CZDPD-DO
CZDPDD.P11

30A(1052)

25=JUL=79 15:01

J 4
25=JUL=79 15:19 PAGE 49
DATA STREAM ABORT SEQUENCE TEST

2307

PR T
)

IIRRRRRRRARRAN
.

;

TEST

IRRRRRRR
ARSI AR

—

012240
n
ny
~

D —d )
el
— )
) e

VONI NS WN—=O

POAI NN RPNV NN NN
WWWWWWWWWNW

SEQ 0048

012737
012737

000011
012554
0004
005044
006746

TST11

AR AR R R AR RN

MOV

BIS
JSR

BYTE

177776
167070
167056
167056
18:

000400

167040

000377

167024

2%:

3%:

000005

2341
2342
2343
2344
2345
2346
2347
2348
2349

012422
012424
012432
012434
012436
012440
012442
012444
012450

2351
2352

012452
012456

002000
000310
004000

012436
166772

66%:

004000

166762

67%:

167006

68%:

012706

001150

017701

166726
166724
000200

104400

000377

000003
105777

166666

#MRESET ,@TXCSR
PC.SMALL

2
NO.BTRAP

CLR

167032

'TST]Z.NEXT

MOV
JSR

R RN

AR AR R

RRRRNRRR AR R AR AR ARRNR AR RN R R RO AR

#11,a#TSTNO

RS,SETVEC
340,340

RESET THE DEVICE
;WAIT FOR RESET TO FINISH

sSET UP INTERRUPT VECTORS

;BASED ON THESE
;PARAME TERS

sLEVEL

;CLEAR

CLR
MOV
BIS

R3
;DITTO
#340,PS
;PS=7
#PRISEC'!377,aPARCSR ;LOAD SEC STATION AND ADRS

TSTB

aTXCSR

BIS
BIS
CLR

W#RCVEN!RINTEN,3RXCSR ;TURN ON THE RECEIVER
#SEND !SYSTST,aTXCSR
sTURN ON TRANSMITTER
PS

BPL
BIS
TSTB
BPL
MOV
INC

1%
#TSOM,QTXDBUF
aTXCSR
2%

BIS

#TABORT ,aTXDBUF

CMP
BNE

#377 ,aTXDBUF
RO
#5.R0
2%

MOV

#200. ,68%

BIT
BNE
BIT
BEQ
DEC
200.
BNE

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

;CHECK FOR TXDONE

:BR IF NOT SET
;TURN ON START OF MSG
:WAIT FOR DONE
;AND THEN
;LOAD A CHARACTER
.
:UPDATE CHARACTER COUNTER

:ARE ALL CHARACTERS LOADED?
:BR IF NO
;TURN ON ABORT

:LOAD THE NUMBER

66%

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

MOV

aRXCSR,R1

;GET THE CONTROL REGISTER

#RXDONE .R1

;CHECK FOR DONE

HLT
1
sRECEIVER DID NOT INTERRUPT
11%:
MOV
#STACK,SP
JRESET STACK
SCOPE
:SCOPE THIS TEST
;RECEIVER INTERRUPT SERVICE ROUTINE

is:

MOV
BNE

5%:

6%:
12%:

SRXDBUF ,R2
5%

HLT
CMPB

7
#377 .R2

HLT

ISTB

aRX(SR

BEQ

INC
(MP
BNE

R3
#3,R3
10$

;GET THE BUFFER
:BR IF DONE SET

sFALSE INTERRUPT
;CHECK DATA CHARACTER

:BR IF A MATCH
:DATA ERROR

sINC THE # OF CHARS TO DO
:CHECK TO SEE IF DONE
;BR _IF MORE TO GO
;CHECK FOR

IN TIME

(ZDPD=DC
(ZDPDD.P11

MACY11

30A(1052)

100375
017702

166662

25=JuL=79 15:01

032702

25=JUL=79

15:19
PAGE 50
DATA STREAM ABORT SEQUENCE

BPL
MOV
8IT
BNE

002000
012444
000400
005044

166644

7%:
10%:

HLT
MOV
BIS

SEQ 0049

TEST

12¢
aRXDBUF ,R2
#RABORT ,R2
7%

:BR IF SET

PC,SMALL

:RESET THE DEVICE
;WAIT FOR RESET TC FINISH

10
#118,(SP)
#MRESET ,aTX(SR

g??

- DONE

JREAD THE BUFFER
;TEST ABORT

sFAILED

TO RECEIVE

;SET UP FOR RETURN

ABORT

JRETURN

JRRRRIRRANARRARRARRARAARRRR

TEST

w st a

A e a kA A

ehn®

s*THIS TEST PROVES THE RECEIVER WILL STOP

;*ACCEPTING DATA IF SHUT OFF IN THE MIDDLE
;*OF A MESSAGE, AND THAT IT WILL NOT
;*RESTART UNTIL IT RECEIVES A FLAG

::tl'fi'fifi*tfi‘fi'fi'."'t't'tfi.ltfil.QtfitfiQtt"tttttttttt"ttt"t'QQ

012554
012562
012570
012576

e
R TR TR

ik kA
hk ok h
*

TES T 12
*
sk AR A A AR A AR
:t""'t.t'fifit’ttfi"fit.*ttt.Qfi.fi'tt.tt.l'.t't..fiQtt."..t'i'.QQ'Q'Q'Q

MOV

#12,34TSTNO

052777
004737
005000
004537

BIS
JSR

#MRESET,@TXCSR
PC,SMALL

013234
340
012737
052777
052777
052777
005037

148

012737

ST12:

012737

CLR
JSR
33

013034

1%:

166526
166516

012724
166504

66%:

166474

67%:
68%:

001150
006746

012746

MOV

#TST13,NEXT
RO
RS,SETVEC

.BYTE MOV

340,340
#340,PS

TSTB

@TXCSR

BIS
BIS
BIS
CLR

BPL
BIS
BIS

MOV
BIT

BNE
BIT

BEQ
DEC

500.

BNE
HLT
MOV
SCOPE
JSR

238

NO.BTRAP

:RESET THE DEVICE
*WAIT FOR RESET TO FINiSH

*CLEAR FOR SOF TWARE
“SET UP THE VECTORS
*RECEIVER
* TRANSMI TTER

LEVEL
*PROC STATUS=7

#CRCEN, aPARCSR
#RCVEN'RINTEN,@RXCSR :TURN ON RECEIVER
#SEND ' SYSTST,aTXCSR
:START TRANSMITTER
PS
:LOWER P$S

1$
#TSOM,ATXDBUF
#TXINTE.@TXCSR

#500. ,68%

*CHECK FOR DONE

*BR IF NOT YET
-TURN ON START OF MSG
- TURN ON INT. ENABLE

LOAD THE NUMBER

#TIMER,QTXDBUF ; CHECK rue TIMER BIT

66$

‘BR IF SET

67%

‘BR IF CLEAR

66%
1
#STACK, SP

“BR IF MORE
T
*DEVICE FAILED ro INTERRUPT
"RESET THE STACK
*SCOPE THIS TEST
*SET UP VECTORS

#TIMER,QTXDBUF

(PC)+

RS,SETVEC

:CHECK THE BIT

*DECREMENT THE NUMBER

*OF TIMES TO REPEAT

*RECEIVER

*TRANSMITTER

IN TIME

(ZDPD=DO
_|CZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

012750

340
000020
166426

25=JuL=79 15:19 PAGE 51
UNIQUE SHUTDOWN TEST
166424

21%:

BIS

TSTB

BPL

340,340

sLEVEL

aTXCSR
21%
#70,3TXDBUF
#50.,73%

;TEST DONE
;BR IF NOT SET
;PUSH OUT DATA CHARACTER
;LOAD THE NUMBER
;CHECK THE TIMER BIT
:BR IF SET

#RCVEN,aRXCSR

000070
000062
004000

013024

166404

71%:

#TIMER, @TXDBUF

004000

166374

72%:

#TIMER,aTXDBUF

166420

718%

72%

(PC)+

73%:
HLT

71%
1

BR
2%
s INTERRUPT SVC ROUTINES
-

;RECEIVER
MOV

166344
166342

3s:

000200

A ¥

000400

BIT
BNE

000377

013104

5%:
166272

013136

166242
166240
000252

6%:

:
108

166276

000377
000020

166256
166240

11%:
12%:

13%:

857

MOV

23%:

HLT

BIT
BNE

HLT
CMPB
BEQ
HLT
MOV
RTI

MOV
CMPB

BEQ
HLT

R4
aRXCSR
aRXDBUF ,R5
#RSOM,R5
4%
1

#RXDONE ,R4

5%
7
#377 .R5
6%
2

#108 ,aDUPRV(

aRXDBUF
RS
#377 RS
;13
#RCVEN,aRXCSR

;IZS.QDUPRVC
aRXCSR,R4

aRXDBUF ,RS

#252.RS
13%
7
7%
7
7%
ARXCSR, R4

SRXDBUF ,RS

#RSOM RS
248

24%:

013212
013214

25%:

SEQ 0050

11
#70.RS

25%
2

;CHECK THE BIT
:BR IF CLEAR

:DECREMENI THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
JFAILED TO INTERRUPT IN TIME
JFINISH

;GET THE CONTROL REGISTER
;GET THE BUFFER

;CHECK FOR START OF MSG
:BR IF SET
sFAILED

TO RECEIVE

;CHECK FOR DONE

SOM

:BR IF SET
JFALSE INTERRUPT
;CHECK DATA
;BR IF A MATCH
;DATA ERROR
;RELOAD THE VECTOR
:RETURN
:GET THE BUFFER
;CHECK THE CHARACTER
;BR IF A MATCH

;DATA ERROR
;TURN OFF THE RECEIVER

JRELOAD THE VECTOR
;RETURN
JGET THE CONTROL REGISTER
:GET

THE BUFFER

;CHECK THE CHARACTER
:BR IF A MATCH
;FALSE

INTERRUPT

;DEVICE INTERRUPTED AFTER RX ENABLE
;WAS CLEARED
;GET THE CONTROL REG
;GET THE BUFFER
(REv. DO)
;CHECK START OF MSG

:BR IF SET
;SOM FAILED TO SET
:CHECK DATA
:BR IF A MATCH
;DATA FAILED TO MATCH AFTER
:RESTARTING RECEIVER

CZDPD-DO
CZDPDD.P11

2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489

013214
013222
013226
013232

MACY11 30A(1052)
25=JUL=79 15:01

052777

25=JuL=79 15:19 PAGE S2
UNIQUE SHUTDOWN TEST
166170

012732

013234
013240
013242
013244

JSR
MOV

RTI
; TRANSMITTER
TST8
14%:

166152

000377

#MRESET ,@TXCSR
PC,SMALL

BIS

166142

20%:

013274

166110

166112

2490
2691

2492
2493

000252

2494
2495

000100
012740

ATXCSR

:CHECK DONE

7
#377 ,9TXDBUF

*FALSE INTERRUPT
;LOAD A CHARACTER

166102

17%:

166064
166054

‘BR IF SET

sIN THE # TO DO

158

;BR IF MORE TO GO

RO
15%
@TXCSR
17%
7
#252,aTXDBUF
RO
#3,R0
158

16%:

*RETURN

#16%,aDUPTVC

000003
001400

*CRUNCH STACK

#2,R0O

000002

;RESET THE DEVICE
*WAIT FOR RESET TO FINISH

#2%. (SP)
308

BMI

SEQ 0051

;CHECK TO SEE IF ALL ARE SENT
sRELOAD THE VECT

;CLEAR CHAR COUNT
s TEST DONE
;BR IF SET
sFALSE INTERRUPT
;LOAD A DATA (HARA(CTER
sINC THE # TO DO
sCHECK FOR ALL DONE

;BR IF MORE TO GO

#TEOM!TSOM,aTXDBUF
#TXINTE ,@TXCSR

15%:

#208, (SP)

RTI

;END MSG

s CRUNCH STACK

IRARRARRAARRAAAANRARARRARAR

TEST

Attt a

e A

Ak ek Atk

n s

s*THIS TEST WILL TRANSMIT CONTIGUOUS ONES CHARACTERS
;*IN SECONDARY MODE WITH A BCC CHECK.

;:.ttttttttttttQt!l'.fifiQQfi.i.t.iit.tit"t.tfiliti.t'i'.'ttttt't‘t
crRRRARA
A RN A AN
*

;

TEST 13
*

TrRAA
AR A AR AR AN

012737
012737

000013
014004
000400
005044
000340

000377
102010
177777

007156
013444
007000

001226
001216

T ST13:

166024

177776

007152
007156
013446

1%:

2%:
3%:

000005

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

MOV
MOV
BIS
JSR
MOV
CLR

AR AR RAR AR AR

AR AR

#13,a#TSTNO

#TST14 NEXT
MMRESET,aTXCSR
PC,SMALL

;RESET THE DEVICE
JWAIT FOR RESET TO FINISH

R2
#377 .R1

;SETUP FOR SOF TWARE
sCALCULATION OF BCC

CALBCC,3%

JALLOW FOR THE NEXT CHARACTER

RS5.SIMBCC

;GO CALCULATE SOF TWARE BC(C
;JBASED ON THOSE PARAMETERS

:géo.PS

;SET STATUS=7

#CRC.CCITT, XPOLY ;LOAD THE POLYNOMINAL
#-1,CALBCC
;SETUP FOR FIRST TIME

R1,2%

1
1
RO
#5,R0
1%

;LOAD DATA

;DATA
JPREVIOUS BCC
JINC THE # OF CHARS TO DO
;JARE WE DONE?
;BR IF NO

CZDPD=DO
(ZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

013460

00
004537
013616
013722
340
052777
052777
052777

105777
100375

25=JUL=79 15:19 PAGE 53
CONTIGUOUS ONES OUTPUT TEST
CLR

JSR
(3
11%

165670

165706
165674
165674

012777
052777
005037

000400
000100
177776

165662
165652

012737
032777
001374
032777
001774
005327
000040
001365

000040
004000

013574
165634

004000

165624

104400

20%:

000400
005044

165692

340,340

TRANSHITTER
LEVEL

#PRISEC!377, aPARCSR

;ENTER SECONDARY MODE

#SEND ' SYSTST,@TXCSR

;TURN ON TRANSMITTER

#RCVEN'RINTEN,@RXCSR ;TURN ON RECEIVER AND INTERRUPTS

20%

#TSOM, aTXDBUF

g;XINTE.BTXCSR

(%:

#32.,68%

66%:

#TIMER,aTXDBUF

66%

67%:

5%:

;CLEAR OUT HOLD
;LOAD INTERRUPT VECTORS
JRECEIVER

aTXCSR

#TIMER,TXDBUF

67%

(PC)+

68%:

104001

052777
004737

BIS

RO
RS,SETVEC

SEQ 0052

HLT

BIS
JSR
SCOPE

66%
1

#MRESET ,@TXCSR
PC,SMALL

s START MESSAGE

;sTURN ON INTERRUPT ENABLE

;LOWER PS

;LOAD THE NUMBER
TIMER BIT
THE
sCHECK

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

IN TIME

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH
;SCOPE THIS TEST

;INTERRUPT SERVICE ROUTINES.
017737
120137

165564

001324

165522

001324

sRECEIVER

6%:

MOV
CMPB
BEQ
HLT

7%:
10%:

001325

aRXDBUF ,DATA
R1,DATA
. +4

RO
#4 RO
7%
#10% ,aDUPRVC

165464

; TRANSMITTER
11%:
MOV

INC
CMP

:GET THE FIRST HALF OF BCC

sCHECK IT

#5%, (SP)

012777
005202
022702

:RETURN

CALBCC
CALBCC.DATA

013722
013730
013732

:BR IF A MATCH
;DATA ERROR
;UPDATE THE # OF CHARS TO DO
;CHECK FOR ALL CHARS DONE
:BR_IF MORE TO GO
;SETUP TO GET BCC

JWAIT FOR
;THE SECOND HALF

013714
013720

sCHECK IT

aRXDBUF ,DATA
aRXCSR
4

SRXDBUF ,DATA+1

001324

;GET THE DATA

#377 ,@TXDRUF
R2
#5,R2

;GET THE SECOND HALF
: INVERT BCC

:BR IF OK
;BCC COMPARE ERROR
:FINISH TEST

;RETURN

;LOAD A DATA CHARACTER
sINC THE # OF CHARS TO DO
;CHECK TO SEE OF DONE

(ZDPD-DO
CZDPDD.P11

HACYH 30A(1052)
25=JUL=79 15:01

2587 013736 001017

25-=JuL=79 15:19 PAGE 54
CONTIGUOUS ONES OUTPUT TEST

2588
2589
2590
2591

013740
013746
013750
013756

012777
000413
012777
000240

013750

165432

001000

165436

2593
2594
2595
ggg?

013762
013770
013776
074002

042777
012777
012716
000002

000120
006774
013544

165422
165402

2592 013760 000240

BNE
12%:

SEQ 0053

138

;BR IF MORE TO GO

MOV
BR
MOV
NOP

#12%,8DUPTVC(
13%
#TEOM, T XDBUF

BIC
MOV
MOV
RTI

#SEND! TXINTE ,aTXCSR ;TURN OFF TRANSMITTER
#NO.BTRAP,aDUPTVC ;RESET THE VECTOR
#4%, (SP)
;GO BACK TO WAIT LOOP
sRETURN

NOP

13%:

sSETUP NEXT VECTOR
*RETURN
;END MSG
JWAIT

:DITTO

2598

JRRRRRARARAARARANRRRRRANRRR

2600

-rson SYNC, TXACT, TXDONE

2599

2601

;

2606

2608

2605

; TEST 14

2607

JIRRARRRARRARK

2609
2610
2611

014004
014012
014020

012737
012737
052777

014156
000400

001226
001216
165364

2613
2614
2615

014032
014040
014046

012777
052777
052777

101026
004000
000020

165350
165344
165336

2618
2619
2620
2621
2622
2623
2624
2625

2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637

v anhwnhhhenhnrndattnn

R AR
JIRRARRRRAN

2604

2616
2617

t--tnnn'tnt-ntttat.nn.t-qtttnnnatntttun-ttnnt-n-t:-qnqnfintn-nn

2603

2612

TEST

*THIS TEST PROVES THE INTERACTION OF DEC MODE,

014026

014054
014062

014070
014076
014100
014106
014110
014112
014114
014116

014122
014126
014130
014132
014136
014140
014142
014142
014150
014154

004737

012777
012737

032777
001374
032777
001774
005327
000005
001365
017704

000014

005044

TST14:

165332
014112
165316

66%:

004000

165306

67%:

032704
001001
104016
032704
001001
104017

000200

052777
004737
104400

000400
005044

MOV
MOV
BIS
JSR
MOV
BIS
BIS

000426
000005
004000

68% :

]
16570

AR ARRRR AR AR AR ARAR R AR

MOV
MOV

‘B1T
BNE
BIT
BEQ
DEC
5
BNE
MOV

BIli

BNE

001000

1%:

165242

2%:

HLT
BIT
BNE
HLT
BIS
JSR
SCOPE

AR AR

AR AR AR AR RN AR AR AR RRARRE A

#14 ,a#TSTNO

OTSTIS.NEXT

AMRESET ,aTXCSR
;RESET THE DEVICE
PC,SMALL
JWAIT FOR RESET TO FINISH
#DECMOD
! 26! CRCEN,aPARCSR
#SYSTST ,aTXCSR
JENTER SYSTEM TEST MODE
#SEND ,aTXCSR
;TURN ON TRANSMITTER

#TSOM! 26 ,aTXDBUF
;OUTPUT A SYNC CHAR
#5,68%
;LOAD THE NUMBER
#TIMER,aTXDBUF
66%
#TIMER,QTXDBUF
67%
(PC)+
66%
aTXCSR,R4

#TXDONE R4
1%
16
#TXACT R4
%
17
#MRESET ,@TXCSR
PC,SMALL

;CHECK THE TIMER BIT
‘BR IF SET
;CHECK THE BIT
BR IF CLEAR
:DECREFENT THE NUMBER
;OF TIMES TO REPEAT
sBR IF MORE TO GO
;GET THE CSR

;sCHECK TRANSMITTER DONE
sBR IF SET
;TXDONE FAILED TO SET
sTEST ACTIVE
;BR IF SET
JACTIVE FAILED TO SET

:
;RESET THE DEVICE
JWAIT FOR RESET TO FINISH
;SCOPE THIS TEST

2638

JerRkkannrknnnrannnnnnnnnns

2639
2640

;*THIS TEST PROVES THE INTERACTION OF

2641

AR R R AR

[EST

anvnnnnnnnnnnnnnnnnannnnnns

J*SEND, TXACT AND TXDONE IN DEC MODE.

TEOM,

c 5
25=JUL=79 15:19 PAGE 55
DE CMODE, TEOM, SEND, TXACT, TXDONE INTERACTION TEST

MACY11 30A(1052)
25=JUL=79 15:01

._‘. SeNLNL N, N,

CZDPD=D 0
CZDPDD. P11

AAL A LRSS
EE]
L ]

TEST 15
*

MAELEEE
LSS 2]

nN—=

noNor
orrnoy

PN
b
b
b i

o
b

wvivyonwn

101026

004000
000020
000426

2 3 2

000015
014352
000400
005044

—_—

012737
012737

oo aloalon 080

AR AR

014156

165152

000426
165136
001000
000020
000025
004000
004000

) T15:

2%:

66 $:

165076

67$:
68 $:

165060

001000

014346
014350

AR R AR A AR AR A AR AR

MOV

#15,3#TSTNO

#15716 ,NEXT
#MRESET ,@TXCSR
;RESET THE DEVICE
PC,SMALL
;WAIT FOR RESET TO FINISH
#DECMOD
! 26! CRCEN,@PARCSR
#SYSTST ,@TXCSR
;ENTER SYSTEM TEST MODE

MOV

#TSOM!26,aTXDBUF

;TURN ON TRANSMITTER
sOUTPUT A SYNC CHAR

1%
#TSOM! 26, aTXDBUF

BR IF NOT YET
sLOAD A SECOND SYNC

#SEND ,@TXCSR

TSTB

aTXCSR

BPL
MOV

TSTB

3%:
4%:

;sCHECK FOR DONE

@7XCSR

BPL

JAND NOW WAIT

P 1

MOV
BIC

#TEOM,aTXDBUF
#SEND ,@TXCSR

BIT

#TIHER aTXDBUF

MOV
BNE

BIT
DEC
25

66%

BR IF SEY

(PC)+

BNE

66%

BMI

;CHECK THE

;CHECK THE BIT

BR IF CLEAR

;BR IF MORE TO GO

; CHECK DONE

;BR IF SET

BIT
BEQ

;DONE FAILED TO SET AFTER TURNING OFF

#TXACT ,@TXCSR
4%

HLT
SCOPE

TIMER BIT

:DECREHENT THE NUMBER
;OF TIMES TO REPEAT

aTXCSR

HLT

;SET END OF MSG
;TURN OFF TRANSMITTER

;LOAD THE NUMBER

67%

sCHECK ACTIVE
;BR IF OFF

JACTIVE IS STILL SET-SHOULD BE RESET
;SCOPE FOR THIS TEST.

JRRRRRRARRRRRARCR
AN RN
nnn

TEST

At r

;*THIS TEST PROVES THAT THE DUP WILL NOT
;*SYNC UP IN LESS THAN TWO SYNCS
IR

R AR R AR

;FOR DONE AGAIN

#25,68%

#TIMER,9TXDBUF

BEQ

TSTB

165046

AR R AR RRAAAAARARARARAAARA
AR AR AR AR A AR,

MOV
BIS
JSR
MOV
BIS
BIS

1%:

165144

SEQ 0054

AR R AR

R AR R AR

AR AR AR AR R

AR AR AR R AR R R AR R AR

AR AR AR

AR R

R AR R

R AR AR

IRRRRRARRANNRR
B

TEST

16
*

thRRR
R AR R AR AN
A ARttt
Rttt
R
Rt
R R

014352
014360
0143466
014374
014400
014406
014414

012737
012737
052777

000016
014720
000400
005044
101026

004000
000020

S ré:

Moy

#16,a4TSTNO

BIS
JSR

#MRESET ,@TXCSR
PC, SMALL

;RESET THE DEVICE
:WAIT FOR RESET TO FINISH

#SYSTST ,aTXCSR
#RCVEN,@RXCSR

*
JENTER SYSTEM TEST MODE
;LOAD RCVEN

MOV

MOV
BIS
BIS

#TST17 NEXT

#DE CMOD ' 26 ! CRCEN,, aPARC SR

TX.

2699
2700

014422
014430
014436
014442
014444
014452
014460
014466
014470
014476
014500
014502
014504
014506
014512
014514
014516
014520
014520
014526
014532
014540
014546
014554
014562
014570
014574
014576
014604
014610
014612
014620
014626
014634
014636

MACY1]1 30A(1052)
25=JUL=79 15:01

052777
012777
105777

25=JuL=79

15:19
SYNC TEST

000020
000426
164750

164762
164756

000125
000005
004000

164742

014502

164726

66%:

004000

164716

67%:

1%:

164650
164636
164636
164630
164624
164610

164574
014650

017737

122737

001401

104400

69%:
3%:

#TSOM!26,aTXDBUF

?TXCS

#5688

#T IMER, TXDBUF

66%

#TIMER
T XDBUF
,

67%

(PC)+

66%
aRXCSR

SWAIT TILL

72%:

164550

73%:

001236
001236

000400
005044

164500

AMRESET ,aTXCSR
PC,SMALL

4%:

5%:

SET

;LOAD DATA
;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

;CHECK FOR RECEIVER DONE
:BR IF NOT SET
;DEVICE SYNCS UP IN LESS THAN 2 SYNCS!!
s LEAVE

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH

;LOAD THE MODE AND SYNC CHAR

#RCVEN,aRXCSR
;TURN ON RECEIVER
#SYSTST ,@aTXCSR
sENTER SYSTEM TEST MODE
#SEND ,@TXCSR
:TURN ON TRANSMITTER
#TSOM!26,aTXDBUF
;OUTPUT A SYNC CHAR
aTXCSR
s CHECK DONE

69%

#TSOM!
26 ,aTXDBUF
gTXCSR

#125, aTXDBUF

164524

00012

;TURN ON TRANSMITTER
;OUTPUT A SYNC CHAR
;CHECK TRANSMITTER DONE

#SEND ,@TX(CSR

#CRCEN!DECMOD
! 26 ,@PARCSR

164560

104022

052777
004737

2%:

74%:

16451

SEQ 0055

2%
21

164664

001774
005327
000020
001365

PAGE 56

#125 , aTXDBUF

164672

105777
100401
104022

014712
014716

BIS

68%:

wio~

(ZDPD-DO

CZDPDD.P11

#20,74$

#T IMER, 3T XDBUF

72%

#TIMER,QTXDBUF

73%

(PC)+

72%
aRXCSR
4%

:BR IF NOT SET
s SEND SYNC

: CHECK DONE
SWAIT
:LOAD DATA
;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

;CHECK FOR DONE
’BR IF SET

JFAILED TO RECEIVE

, TEMP1
aRXDBUF
#125,TEMP]
5%
22

JREAD DATA

MMRESET ,aTXCSR
PC,SMALL

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH

DATA

:CHECK IT
:BR IF MATCH
;DATA COMPARE ERROR

JRERRRRRRRRRRRRR
ARk nnnnnnn

;SCOPE THIS TEST

TEST

R AR AR AR R R AR R AR RRRRR RN

:#THIS TEST PROVES THE RECEIVER WILL STRIP THE FIRST
;*TWO SYNCS AND wILL PRESENT ALL SUBSEQUENT SYNCS.
":'itttt.ttt'.ttt'.l'.t..ttt'tt".'fi.'t.t.."!'.Q't"lfl'..tt"lt

MACY11 30A(1052)
25=JUL=79 15:01

(ZDPD-DO
(ZDPDD.P11

25=JUL=79

15:19
PAGE 57
THIRD AND SUBSEQUENT SYNC

5
SEQ 0056

TEST

::..'Q..Q.t't'
*

;

TEST

AR R AR AR R

R AR AR R

;;tttttttttttt
014720
014726
014734
014742
014746
014754
014762
014770
014776

012737
012737

001226
001216

TST17:

164450

164434
164430
164414
164414
164410
164402

648 :

164372

65%:
69%:

164354

164340
015104
164324

73%:

164314

74%:

75%:

PN
= = —

SHERESaro&R

d wd

— N ——
N

e
-

QG
Y
A
U

—

[

coocoocooooo

(WL AW AW LW LW AW LV LV, LV, 1V,

015102

70%:

164270
164262

000026

MoV

104400

IR SRR RN

#17 ,Q4TSTNO

#1S720 NEXT
W#MRESET ,@TXCSR

TSTB

aTXCSR

: CHECK DONE

#TIMER,QTXDBUF

;CHECK THE TIMER BIT

BIT

#TIMER,aTXDBUF

;CHECK THE BIT

DEC
20

(PC)+

;RESET THE DEVICE
PC, SMALL
;WAIT FOR RESET TO FINISH
#DECMOD
! 26 ! CRCEN, aPARCSR
#SYSTST,aTXCSR
;ENTER SYSTEM TEST MODE
#RCVEN,@RXCSR
;LOAD RCVEN
#SEND ,@TXCSR
;TURN ON TRANSMITTER
#TSOM! 26 ,aTXDBUF
;OUTPUT A SYNC (HAR
#TIMER,9TXDBUF
;CHECK THE TIMER BIT
64%
:BR IF SET
#TIMER,QTXDBUF
;CHECK THE TIMER BIT
65%
:BR_IF CLEAR
aTXCSR
: CHECK DONE
69%
:BR IF NOT SET
#TSOM!26,aTXDBUF
;SEND SYNC

JSR
MoV
BIS
BIS
BIS
MOV
BIT
BNE
BIT
BEQ
TSTB
8PL
Mov

BPL
MOV
MOV

70%
:BR IF NOT SET
#TSOM!26,@TXDBUF
;SEND SYNC
#20,75%
;LOAD THE NUMBER

BIT

BNE

73%

BEQ

74%

BNE

73%

TSTB

aRX(SR

HLT
MOvB
CMPB

21
aRXDBUF , TEMP1
#26,TEMP1

HL7

;BR_IF SET

:BR IF CLEAR

;DECREMENT THE NUMBER
;OF TIMES TO REPEAT

;BR IF MORE TO GO

;CHECK FOR DONE

BEQ
2%:

AN AR RRARRNR AR

MOV
BIS

BM]

001236
C01236

R R AR AR RN AR AT AR RN RRRR RN AR R

;BR IF SET

;DONE NOT SET-DEVICE FAILED
;READ BUFFER
s CHECK FOR SYNC

SCOPE

IRRRARRARRRARRRCNRRRRRARRRk

TO SYNC UP

:BR_IF 0K

;DATA ERROR

;SCOPE THIS TEST
JEST

tanaannnnnanennascnntnnenntns

;*THIS TEST PROVES THE DUP11 WILL
IDLE 64. SYNCS
;*IDLE SYNCS.

R
e

IIRRARRARARRAR
.

;

TEST 20

AL
AS SRS

IR AR AR AR AR PR AR ARARARAR R AR AAARNAAARAARARRARR AR AARP AR

015142

012737

000020

001226

TSTZO

MOV

#20,Q#TSTNO

AR R

AR RS

416

oNOn

) e

—_——arNOrY

421
420
417
417

ool

-il
i

42?2

164152

64%:

65%:

164136

001236
015324
164104

68%:

164074

69%:
70%:

105777
100401
104016

015346
015352
015354
015356
015362
015364
015372
015400
015402
015404

164056

012777
005337
001001

000426
001236

105777
100375

164022

122737

000026

1%:

164046

104400

017737
001753

MOV
BIS
BIS
BIS
MOV

#DECMOD
' 26! CRCEN. aPARCSR
#SYSTST,@TXCSR
:ENTER SYSTEM TEST MODE
#RCVEN,3RXCSR
:LOAD RCVEN
#SEND ,@TXCSR
:TURN ON TRANSMITTER
#TSOM! 26, @TXDBUF
“OUTPUT A SYNC CHAR

B8PL

64$

*BR IF NOT SET

@TXCSR

;CHECK DONE

#10.708

:LOAD THE NUMBER

WMRESET,@TXCSR
PC,SMALL

ISTB

QTXCSR

BPL
MOV
CLR
CLR
MOV

658
‘BR IF NOT SET
#TSOM!26,aTXDBUF~
:SEND SYNC
TEMP1
TEMP2
#64. , TEMPT
:LOAD # OF SYNCS

BIT
BNE
BIT

ATIMER,QTXDBUF
68%
#TIMER,QTXDBUF

MOV

BEQ

69%

DEC
10
BNE

(PC)+

aTXCSR

;CHECK THE BIT

‘BR IF CLEAR

;CHECK DONE

‘BR IF SET

*DONE FAILED TO SET

#TSOM!' 26, TXDBUF

;LOAD A SYNC

TEMP1
4%

SCOPE

*LOWER THE # OF SYNCS TO DO
*BR IF MORE TO GO
“SCOPE

ISTB

@RXCSR

MOV

ARXDBUF , TEMP?

8PL

CMPB

‘WAIT TILL

HLT

SET

“GET THE BUFFER

#26, TEMP?

“CHECK IT FOR SYNC

‘BR IF OK

*LEAVE

THIS TEST

;CHECK RECEIVER DONE

BEQ

104021

:CHECK THE TIMER BIT
‘BR IF SET

DEC
BNE

000763

;SEND SYNC

“DECREMENT THE NUMBER
*OF TIMES TO REPEAT
*BR IF MORE TO GO

68$

MOV

001240
001240

:CHECK DONE

#TSOM!26,aTXDBUF

TSTB

HLT

4%:

;RESET THE DEVICE
*WAIT FOR RESET TO FINISH

MOV

BM]

3%:

164016

#TST21 ,NEXT

1STR

2%:

SEQ 0057

MOV

BIS
JSR

121

012737

25=JUL=79 15:19 PAGE 58
CONTINUOUS SYNC TEST

MACY11 30A(1052)
25=JUL=79 15:01

—

2811
2812
2813
2814
2815
2816
2817
2818

) e

(ZDPD=DO
(ZDPDD.P11

;CHARACTER

JERRRRRARAARRANRR
AR R AN RRwn

TEST

TEMP2 NOT A SYNC!

rrsaanrrrarrrarn
RN RO RRRRARS

;*THIS TEST PROVES THE STRIP SYNC
;*FUNCTION OF THE RECEIVER. SYNC uP

;*THE RECEIVER,

SEND DATA WITH A SYNC

:*CHARACTER IMBEDDED AND CHECK FOR

;*THE

SYNC

TO BE

RECEIVED.

AR AR RRA R R R
RN RN
::fitttt."tttttlt.tttfitttt.t.t'tt AAARARERAR

JiRRRARAANRARR

L OTEST 21
S

AALE

RSS2

TRAARARRRAARARAR AR R AR ACA AR AR AR AR AR R

075606

012737

(000021

001226

Y5721

MOV

#27,a4TSTNO

AR AR AR

AR R R R

AR R R RN R

PR R R

(2DPD-DO

(ZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

25=JUL=79 15:19 PAGE 59
STRIP SYNC FUNCTION TEST

2867
2868
2869
2870
2871
2872

015414
015422
015430
015434
015436
015440

012737

2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899

015442
015450
015454
015462
015470
015476
015504
015512
015516
015520
015526
015532
015534
015542
015546
015550
015556
015562
015570
015574
015576
015604
015610
015612
015620
015624

052777
004737
012777
052777
052777
052777
012777

163726
163722
163706
163706
163702

012777

163666

016126
000340
006746

MOV
MOV
JSR
58

#TST22 NEXT
#340,PS
RS,SETVEC

BYTE

340,340

BIS
JSR

WMRESET,@TXCSR
PC,SMALL

BIS
BIS
BIS

#SYSTST.@TXCSR
#RCVEN!STPSYN,@RXCSR
#SEND ,@TXCSR

NO.BTRAP

163742

105777
100375

012777
105777

000426
163644

163652

000426
177776
000100
163616

163636

000252

163610

163602

163614

000026
163566

163574

000125

163560

163552

MOV

64%:
65%:
66%:

1%:

2%:
3%:
4%:

163544
163534
015706
163522

69%:

163512

70%:

163464

163462
000200

004000

MOV

TSTB

5%:

*BASED ON
“THESE

*PARAME TERS
:RESET THE DEVICE
*WAIT FOR RESET TO FINISH

#DECMOD
' 26 ! CRCEN' @PARCSR

#TSOM! 26, 3TXDBUF

;ENTER SYSTEM TEST MODE
:LOAD RCVEN!STPSYN
*TURN ON TRANSMITTER

“OUTPUT A SYNC CHAR

@TXCSR

; CHECK DONE

@TXCSR

:CHECK DONE

@TXCSR

;CHECK DONE

64
*BR IF NOT SET
#TSOM!26,aTXDBUF
:SEND SYNC

BPL
MOV

65%
“BR IF NOT SET
#TSOM!26,aTXDBUF
;SEND SYNC

TSTB

BPL
MOV
CLR
BIS

66$
*BR IF NOT SET
#TSOM!26,@TXDBUF
:SEND SYNC
PS
#RINTEN, @RXCSR

:LOWER PS
“TURN ON INTERRUPTS

BPL
MOV

1%
#252,aTXDBUF

“WAIT FOR SET
*LOAD A CHARACTER

BPL

TSTB

ISTB

@TXCSR

#26 ., aTXDBUF

BPL
MOV

3%
#125, aTXDBUF

BPL

TSTB

ISTB

“CHECK

@TXCSR

MOV

TX DONE

*CHECK TX DONE

“WAIT TO BE SET

*LOAD THE SYNC CHAR

@TXCSR

*CHECK DONE

@TXCSR

*CHECK DONE

#TEOM, T XDBUF

MOV

#40.,718

TWAIT

*SET END OF MESSAGE

#SEND . @TXCSR

“TURN OFF

TRANSMITTER

*LOAD THE NUMBER

BIT
BNE

#TIMER,QTXDBUF
69%

;:CHECK THE TIMER BIT
‘BR IF SET

BEQ

708

‘BR IF CLEAR

BIT

DE(
40.
BNE
HLT

#TIMER,QTXDBUF

(PC)+

69%
23

;RECEIVER

INTERRUPT

MOV
MOV

aRXCSR,RO
aRXDBUF ,R1

BNE
HLT
BI1
BNE

6%
24
#RECACT,RO
7%

#RXDONE ,RO

AGAIN

JWAIT
*LOAD ANOTHER CHARACTER

MOV

BIT

6%:

;RAISE STATUS
*SET UP VECTORS

BPL
MOV

BIC

71%:

SEQ 0058

:CHECK

THE BIT

*DECREMENT THE NUMBER
‘OF TIMES TO REPEAT
*BR IF MORE TO GO
:FAILED TO TAKE
SERVICE

A RECEIVER

INTERRUPT

ROUTINE

;READ (SR
*READ BUFFER

;CHECK FOR DONE

‘BR IF SET
*RX DONE FAILED TO SET-ERRONEOUS
*CHECK FOR ACT]VE
‘BR [F SET

INTERRUPT

(ZDPD=DO
(ZDPDD.P11

015742
015744
015744
015746
015750
015752
015756
015760
015762
015770
015772
015776
016002
016006
016010
016012
016014
016016
016020
016024
016026
016032
016034

016036
016040
016042
016050
016052
016056

016062
016066

016070
016072
016100
016102
016104

MACY11 30A(1052)
25=JuL~ 79 15:0

15:19 PAGE 60
25=JUL=79
STRIP SYNC FUNCTION TEST

104025

7%:

005701

100001
104026
122701
001401
104022

012777
000455
017700
017701
032700
001001

108:

000252
015772

163404

163406
163404
000200

12%:

000425
017700
017701
122701

001401

104022

032777
001001
104025

052777
004737
012706
104400

JRX ACTIVE

TST
8PL

R1
10%

;CHECK FOR ERROR

BEQ

#252 ,R1
11%

000026

;BR IF
;ERROR
;CHECK
;BR _IF
;CHECK
;BR IF

#26 ,R1
16%

#125,R1

15%
22

163324

15%:

#21% ,aDUPRV(

:LEAVE
JGET CSR
;GET BUFFER
;CHECK DATA
;BR IF A MAT(CH
;DATA COMPARE ERROR

20%

21%:

aRX(SR,RO
aRXDBUF ,R1

#125,R1
16%

163304

163300

16%:

:TEST ACTIVE

#RECACT ,aRX(CSR

17%

;BR IF ON
JACTIVE SHOULD BE ON

17%:

#MRESET ,aTX(CSR
PC,SMALL
#STACK,SP

JRESET THE DEVICE
JWAIT FOR RESET TO FINISH

;RESET STACK
;SCOPE THIS TEST

20%:

000002

NO ERROR
SET
CHARACTER
OK=IF NOT, THEN
FOR CLEARING SYNC
A NEXT CHARACTER

;ERRONEOUS CHARACTER
:BR TO END OF TEST
;STRIPPED OUT THE SYNC (HAR!!
;SET UP VECTOR

16%

000125

000400
005044
001150

JRX DONE FAILED TO SET-FRRONEOUS
;TEST FOR ERROR

R1
148

14%:

163326
163324

004000

: CONT INUE
JREAD (SR
sREAD BUFFER
s CHECK FOR DONE
:BR IF OK

208

aRX(SR,RO
aRXDBUF ,R1

000125

016052

sCHECK FOR CCRRECT DATA
:BR_IF OK
;DATA FAILED TO MATCH
;LOAD VECTOR

#12%,aDUPRV(

13%:

TO SET

JRECEIVER ERROR

HLT
MOV
BR
MOV

FAILED

:BR IF NO ERROR

HLT
(MPB

138

005701
100001

122701
001422
122701
001402
104022
000415
104021
012777

HLT

#RXDONE ,RO

104024

104026

118

SEQ 0059

JRETURN
JERRRRARRARARRARRRARRAARRAR

[EST

ansrsnnnannnnnnssannanananes

;*THIS TEST PROVES THAT A BINARY COUNT
;*PATTERN CAN BE

RUN IN DEC MODE

;*WITHOUT A BCC CALCULATION

;:t'.tt't..i'.fi..'.""'."t't'.t"t't't..t!.tt.t.Qt'!"t.tt..t.
Jiwnw ARKRRRRAR

*OTES T 22

“

-;ttt LA

SRS

TRA AR AR AR AR

000022
016610

001226
001216

15122

MOV

]

AR R AR AR AR AR R A RAARRRAR AN AR AR R AR ARER

#22,a8TSTNO

#TST23 NEXT

AR AT R AR

R AR RO R RN

INTERRUPT

CZDPD=DO
(ZDPDD.P11

2979
2980
2981
2982
2983
2984
2985

016142
016150
016152
016154
016160
016162
016164

2987
2988
2989

016166
016174
016200

MACY1]1

30A(1052)

012737

000340

25=JUL=79 15:01

25=JUL=79 15:19
DATA TEST
177776

|
|

016350
016350
016356
016362
016366

3022
3023
3024
3025
3026
¢/
3028
3029
3030
3031
3032
3033
3034

016370
016374
(16400
016404
016406
016410
016414
016416
016422
016424
016426
016432
016434

CLR
CLR
JSR

163216
163202
163176
163162

#MRESET ,@TXCSR
;RESET THE DEVICE
PC, SMALL
:WAIT FOR RESET TO FINISH
#DE CMOD ! 26| CRCEN,, @PARCSR
#SYSTST ,@TXCSR
;ENTER SYSTEM TEST MODE
#RCVEN,@RXCSR
;LOAD RCVEN

BNE

648

:BR IF SET

65$

‘BR IF CLEAR

69%

‘BR IF NOT SET

BIT

163100

012737
032777
001374
032777
001774
005327
000310
001365

000310
004000

016342

163066

72%:

004000

163056

73%:

163100

104023

BEQ

TSTB

BPL

Moy

748:

3‘
163034

L
BIS

BIS

MOV
BIT

BNE

4$:

016350
68:

QTXCSR

;gson:ze.arxoeur

:CHECK THE

:CHECK DONE

:SEND SYNC

#RINTEN, 3RXCSR

;TURN ON INT ENABLES

#TXINTE ,@TXCSR

#200.,74$

#TIMER,@TXDBUF

72%

DEC
200.

(PC)+

TIMER BIT

:DITTO

;LOAD THE NUMBER

;CHECK THE

‘BR IF SET

TIMER BIT

:CHECK THE BIT

73$

‘BR IF

BNE
HLT

728
23

:BR IF MORE TO GO
|
;FAILED TO FINISH TEST

BIS

#MRESET,@TXCSR
PC, SMALL
#STACK, SP

;RESET THE DEVICE

:WAIT FOR RESET TO FINISH
:RESET THE STACK
:SCOPE THIS TEST

BRXCSR,R2

;SAVE

*ACTIVE NOT SET

MOV
BIT
BNE

aRXDBUF ,R3
#RECACT .R2
5%

MOV
BR

#3$, (SP)
128

MOV
BR
*Tw...

#3$, (SP)
128
A} .

BIT
BNE
HLT

CLEAR

*DECREMENT THE NUMBER
‘OF TIMES TO REPEAT

;RECEIVER INT SVC ROUTINE

MoV

HLT

5% :

#TIMER,@TXDBUF

BEQ

*RECEIVER
: TRANSMITTER

#SEND ,aTXCSR
;TURN ON TRANSMITTER
#TSOM! 26 , @ TXDBUF
*OUTPUT A SYNC CHAR
#TIMER,@TXDBUF
;CHECK THE TIMER BIT

BIT

JSR
MOV
SCOPE

016350
000200

BIS
JSR
MOV
BIS
BIS

65%:

000100
000100

163010
163006
004000

:LEVEL

163140

052777
052777

000400
005044
001150

340,340

648:

163122

177776

BYTE

BIS
MOV
BIT

000426

#340,PS

;CLR OUT DATA POINTER
*DITTO
*SET UP INTERRUPTS

163162
163156
163150

698:

SEQ 0060

RO
R1
RS, SETVE(

4$
17%

163130

3014
3015
3016
3017
3018

MOV

006746

004000

PAGE 61

#RXDONE ,R2
63
24

(SR

:SAVE BUFFER
*TEST RX ACTIVE
‘BR IF OK

*SETUP FOR RETURN

:TEST DONE
‘BR IF OK
:FALSE

INTERRUPT

*SETUP FOR RETURN
:CHECK FOR ERROR

C(ZDPD=DO

(ZDPDD.P11
3035
3036

MACY11 30A(1052)

25=JUL=79 15:0

3048
3049
3050

016436
016440
016442
016446
076450
016452
016454
016456
016462
016464
016466
016470
016474
016502
016504
016510

100004
104026
012716
000415
120103
001404
104022
012716
000407
005201
001002
012716
012777
000002
017702
017703

3054

016522

120103

3037

3038
3039
3040
3041
3042

3043

3044
3045

3046
3047

3051
3052
3053

3055
3056
3057
3058
3059
30630601

3062
3063

3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075

016514
016516
016520

005703
100001
104026

016524
016526
016530
016532
016534
016540

001401
104022
105201
001363
012716
000760

016542
016546
016550
016552
016556
016560
016566
016574
016602
016606

010077
105200
001014
105777
100375
052777
042777
012777
012716
000002

25=Jui=79 15:19
DATA TEST

016350
7%:

016350
108:

016350
016504

162672

162674
162672

11%:

128%:
2°2%:

23%:
24%:

016350

162646

17%:

162634

20%:

001000
000120
006774
016312

162626
16261€
162576

21%:

PAGE 62

BPL
HLT
MOV
BR
CMPB
BEQ
HLT
MOV
BR
INC
BNE
MOV
MOV
RTI
MOV
MOV

SEQ 0061

7$
26

sBR IF NO ERROR
;DATA ERROR
sSET UP RETURN

#38, (SP)
12%
R1,R3
10%
22
#3%,(SP)
12%
R1
11%

#3%,(SP)

#22% . 3DUPRV(

s CHECK DATA
;BR IF OK
;BAD DATA
;SETUP RETURN

;SETUP RETURN

aRXCSR,R2
aRXDBUF ,R3

1ST
BPL
HLT

R3
23%
26

(MPB

R1,R3

BEQ
HLT
INCB
BNE
MCV
BR

24%
22
R1
12%
#3%,(SP)
12%

s TRANSMITTER
RO, @TXDBUF

MOV
INCB
BNE
TSTB
BPL
BIS
BIC
MOV
MOV
RTI

;UPDATE DATA
;BR IF MORE TO GO

RO
218
aTXCSR
20%
#TEOM, @T XDBUF
#SEND ! TXINTE ,@TXCSR
#NO.BTRAP ,aDUPTV(
#30%, (SP)

sSETUP NEW RETURN FOR INTERRUPT

JRETURN

;ERROR
;DATA COMPARE ERROR

;PUSH OUT DATA
JUPDATE IT
:BR IF MORE
;CHECK FOR NEXT DONE
JWAIT
;END MSG
:SHUT OF TRANSMITTER
JRESET VECTOR ADRS
sRETURN

3076

JRRRRKARAARRARARARRARAAARAR [EST 23 avannnannnnnnnnsnnnnnnnnnnsn

3079
3080

;*WITH A BCC CALCULATION USING
;*THE CRC16 POLYNOMIAL

3077
3078

**THIS TEST PROVES THAT A BINARY COUNT
:*PATTERN CAN BE RUN IN DEC MODE

3081

RT
T

3082

JIRARRRRRANN
AR

3083
3084
3085

:
; TEST 23
:

3086
3087

3088
3089
3090

JIRRRRRRRAANNR
R L L

016610
016616
016624

012737
012737
012737

000023
017432
000340

001226
001216
177776

TST23:

MOV
MOV
MOV

#23 ,a#TSTNO
#TST24 NEXT
#340,PS

CZDPD=DO
(ZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

N=0O0VONOWVNHWN—=O

—

) e

)

) -

d e

NWWWWWWWWWWWWNWNANWNW

5000
012737
005037
013737
010037
37
000010
000000

120001

007156
007156
016666
0C7000

25=JUL=79 15:19 PAGE 63
DATA TEST WITH BCC CHECK
CLR
MOV

007152

016670

1%:

2%:
35%:

CLR
MOVMOV

JSR
8.
.WORD
.WORD
INCB
BNE
CLR
CLR
JSR
4%
17%
.BYTE

016702
016706
016710
016712
016714
016722
016726
016734
016742
016750
016756
016764
016772
016774

162470

100375

162454
162450
162434
162434
162430
162422

:
648

162412

65%:
69%:

162402

012777
005037
052777
052777

000426

162374

000100

162352
162352

012737
032777
001374
032777
001774

000310
(04000

017070

162340

72%:

004000

162330

73%:

177776
000100

30%:

BIS
JSR
MOV
BIS
BIS
BIS
MOV
BIT
BNE
BIT
BEQ

TSTH
BPL
MOV
CLR
BIS
BIS

MOV
BIT
BNE

000400
005044
001150

017702
017703
032702

162262
162260

004000

162306

;SET THE POLYNOM]IAL

:CLEAR OUT OLD BCC
.sLOAD BCC
;LOAD DATA
;CALCULATE A SOF TWARE BC(C
;BASED
:ON THESE

CALBCC

CALBCC,35%

RO,2$
R5,SIMBCC

0
0

;PARAME TERS

RO
1%
RO
R1
R5,SETVEC

JUPDATE DATA
;BR IF MORE TO GO
:CLR OUT DATA POINTER
D117
;SET UP INTERRUPTS

340,340

sLEVEL

JRECEIVER
;s TRANSMITTER

#MRESET ,@TXCSR
PC,SMALL

JRESET THE DEVICE
JWAIT FOR RESET TO FINISH
#DE CMOD ! 26 ,@PARC SR
;LOAD THE MODE AND SYNC
#SYSTST,@TXCSR
;ENTER SYSTEM TEST MODE
#RCVEN,aRXCSR
;LOAD RCVEN
#SEND ,aTXCSR
;TURN ON TRANSMITTER

;OUTPUT A SYNC CHAR
;CHECK THE TIMER BIT
648
;BR IF SET
#TIMER,aTXDBUF
;CHECK THE TIMER BIT
65%
:BR IF CLEAR
aTXCSR
s CHECK DONE
69%
:BR IF NOT SET
z;SOM!26.8TXDBUF
;SEND SYNC
#TSOM!26,aTXDBUF
#TIMER,aTXDBUF

#RINTEN,aRXCSR
#TXINTE ,@TXCSR

#200.,74%

#TIMER,QTXDBUF

72%

#TIMER ,aTXDBUF

(PC)+

sTURN ON INT ENABLES

;DITTO

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

;OF

;BR IF MORE TO GO
JFAILED TO FINISH TEST

#MRESET ,aTXCSR
PC,SMALL
#STACK,SP

JRESET THE DEVICE
;WAIT FOR RESET TO FINISH
JRESET THE STACK

;sRECEIVER INT SVC ROUTINE
aRXCSR,R2
aRXDBUF ,R3

MOV
MOV
BIT

TIMES TO REPEAT

72%

3%:

4%:

#CRC16,XPOLY

73%

74%:

SEQ 0062

#RECACT ,R2

;SCOPE THIS TEST

sSAVE (SR
:SAVE BUFFER

JTEST RX ACTIVE

CHARACTER

30A(1052)

25=JUL=79 15:01

017132
017134
017136
017142
017144
017150
017152
017154
017160
017162
017164
017166
017170
017174
017176
017200
017202
017204
017210
017212
017214
017216
017222
017224
017232
017234
017240
017242
017250
017254
017256
017264

25=JuL=79

15:19
PAGE 64
DATA TEST WITH BCC CHECK

001004
104025

012716

0004

5%
25

BNE

017076
5%:

000200

017076
6%:

017076
7%:

017076
108
:

017234

017324

162142

162144
162140
162130

001236

162124

001240
001237
001236

001240
007156

—d
b
b

3147
3148
3149
3150

MACY11

HLT
MOV
BR
BIT
BNE
HLT
MOV
BR
TST
BPL
HLT
MOV
BR
CMPB
BEQ
HLT
MOV
BR
INC
BNE
MOV

#3%,(SP)
12%
#RXDONE ,R?2

010000

001240

;JACTIVE NOT SET
;SETUP FOR RETURN

;TEST DONE
;BR IF

*FALSE INTERRUPT

;DATA ERROR

;SET UP RETURN

#3%, (SP)
12%
R
11%
#13%,(SP)

12%

#22%,aDUPRV(

aRXCSR
13$
, TEMP1
aRXDBUF
aRXCSR
14%
aRXDBUF
, TEMPZ
TEMP2,TEMP1+1
CALBCC, TEMP1
15%

14%:

032737
001001

sBR IF OK

;CHECK FOR ERROR
;BR _IF NO ERROR

017302

017304
017312
017314

SEQ 0063

“SETUP FOR RETURN

O
AAN

(ZDPD=DO
CZDPDD P11

15%:

#CRCERR, TEMP2
16$

104030

s CHECK DATA
;BR IF OK
;BAD DATA

;SETUP RETURN

;UPDATE DATA
;BR IF MORE TO GO
;SETUP TO FINISH TEST
sSETUP NEW RETURN FOR INTERRUPT
sRETURN
sTEST DONE
SWAIT

;GET DATA
;CHECK DONE FOR HALF OF CRC
JWAIT
sMOVE IT
;COMBINE BCC CHARACTER
;BR IF A MATCH

JAFTER CHECKING IT

:CRC_COMPARE ERROR--THE

;SOF TWARE DOESN'T AGREE
;WITH WHAT THE TRANSMITTER
SEE THE FRONT OF
sSENT.
sTHE LISTING FOR SPECIAL
:CRC DEBUG AID TEST.
;CHECK FOR ERROR

;BR IF OK
sHARDWARE DETECTED CRC ERROR

;RECEIVER DOESN'T AGREE WITH
JWHAT THE

017316
017322
017324
017330

017334
017336
017340
017342
017344

012716

017076

16%:

MOV

162054
162052

22%:

MOV

#3%,(SP)
12%
aRXCSR,R2

aRXDBUF ,R3
R3

TST

23%:

238

BPL
HLT

&9 r3

BEG
a

24$

TRANSMITTER SENT

sSEE FRONT OF LISTING FOR
sSPECIAL CRC DEBUG AID
;LOAD END OF TEST
sRETURN

:ERROR

(ZDPD=DO

(ZDPDD.P11

s
KRR
Som®

NOAWV SN
=

3203
3204
3205
3206
3207
3208
3209
3210

MACY11 30A71052)
115:01
25=JuL=79

017346
017350
017352
017354
017362

25=JuL=79

104022

PAGE 65

HL.T
INCB
BNE
MOV
BR

24%:
017234

017364
017370
017372
017374
017400
017402
017410
C17416
017424
017430

15:19

DATA TEST WITH B(C CHECK

162012

SEQ 0064

22
R1

;DATA COMPARE ERROR

12%
#13% ,aDUPRV(
12%

; TRANSMITTER

;PUSH OUT DATA

162024

17%:

MOV

zg.arxoeur

162012

20%:

BNE
T1STB
BPL

21%
aTX(CSR
20%

SWAIT

#NO.BTRAP,aDUPTVC

JRESET VECTOR ADRS

001000
000120
006774
017040

162004

161774
161754

BIS
BIC

T XDBUF
#TEOM,
#SEND
! TXINTE ,@TXCSR

MOV

#30$, (SP)

MOV

21%:

sUPDATE IT
;BR_IF MORE
;CHECK FOR NEXT DONE

;END MSG

:SHUT OF

TRANSMITTER

JRETURN

IRRRRRARRRRAANRARRRARNRANAANR

[EST

A aatanaa
A A AR s A AR A N AR RN

;*TEST TO PROVE THE DEVICE IDLES SYNCS AND
;s*WILL SHIFT OUT DATA AT THE APPROPRIATE TIME

SRR AR AR AR A AR AR AR RA AR A AAAAR A AR RAAAARARRARRAAARR

AR AR

AR RS

:;ttttt'fitfi'tt

L OTEST 24

o RRRARRRRR
AR

017432
017440
017446
017454
017460
017466
017474
017502
017510

017516
017522
017530
017534
017540
017542
017544
017552
017560
017562
017564
017572
017576
017602
017604

001226

012737
012737

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

TST24:

MOV
MOV
BIS
JSR
BIS
MOV

161602

2%:

sJRESET THE DEVICE

;WAIT FOR RESET TO FINISH

TSTB

aRXCSR

HLT
MOV

21
aRXDBUF ,DATA

BM]

161620

#252,aTXDBUF

PKCLK

1%:

MOV

PKCLK

001324
001324

AR RRRARRARRARAR AR AR

MOV

BIS

161664

#MRESET ,aTXCSR
PC,SMALL
#MMODE ,@TXCSR
#RCVEN,aRXCSR

R RR AR

;ENTER MAINT MODE
:TURN ON RECEIVER
#DECMOD
! 26 ,aPARCSR
;ENTER DECMODE AND SYNC CHAR
#SEND ,@TXCSR
:TURN ON TRANSMITTER
#TSOM!26,aTXDBUF
sPUSH OUT SYNCS

MOV
161676

#24 ,a#TSTNO
#TST25 NEXT

CMPB
BEQ

,36.

,20,

#26 ,DATA
2%

HLT
BIC
PKCLK

21
#SEND ,aTXCSR

BM]

TSTB

,14
aRXCSR

HLT

:LOAD DATA
:PUSH OUT ANOTHER SYNC
;CHECK TO SEE IF SYNC ARRIVED
:BR IF YES

;GET THE REC CHAR
;CHECK FOR SYNC
:BR IF MATCH

;FAILED TO RECEIVE
:TURN OFF TRANSMITTER

THIRD SYNC

sPUSH OUT DATA

sCHECK FOR REC DATA
:BR IF YES

JFAILED TO GET A DATA DONE

(ZDPD=DO
CZDPDD.P11
3259
3260
3261
3262

3263

3264
3265

MACY1]1 30A(1052)
25=JUL=79 15:01

017606
017614

017622
017624

017626

017737
122737

001401
104022

161574
000252

25=JuL=79 15:19 PAGE 66
SYNC AND DATA TEST
001324
001324

104400

3$:

($:

MOV
CMPB

SEQ 0065

aRXDBUF ,DATA
#252 ,DATA

BEQ
HLT

;GET THE DATA
;COMPARE IT

48
22

SCOPE

;BR IF A MAT(CH
;DATA ERROR

;SCOPE THIS TEST

3266

JRRRRRRRRAARANRAARARRRRARAS

3268

;*WORK WITH EVERY POSSIBLE SYNC CHARACTER

3267

3269
3270

IR
JIRRRRARARRARR

3271
3272

:
;

3274

JIRRRRARRRNRRAR

3273

3275

3276
3277

012737
012737

000025
020110

017652

012702

000003

017644

3280
3281
3282
3283

017656
017662
017666
017670

3284
ggg

3287
3288
3289

3290
3291
3292
3293

3294
3295
3296
3297
3298
3299
3300
3301
3302

3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314

TEST 25

R RN AR AR AR AR AR RN

snnmnnnnwannwnnnnnennnennnnnn

RR R AR R AR AR

R ARRARCA AR AR

AR AR RAR

R
e
T

017630
017636

3278

3279

TEST 25

;*TEST TO PROVE THE DEVICE WILL

017672
8};;&

017706
017714
017720

017726
017734
017742
017746

017750
017756
017760
017762
017762
017770
017772
020000
020002

020006
020010
020012
020016
020020
020022
020030
020036
020040
020042
020046
020050

012737

005037
005037
005000
005001

001226
001216

000340

177776

000400
101000

001236
001240

052777
004737
052777

000400
005044
000020

161476

161456

001240
004020
161444

161454
161450

2%:

013777
005302
001370

001236

161436

032777
001374
032777
001774
105777
100405
005200

004000

161424

7$:
648:

161414

65%:

022700
001361
104015
017737
032737
001001
104025
005737
100001
104026

004000

161376

000040
161360
004000

001244

001244
001242

MOV
MOV
MOV

#25,a#TSTNO
#TST26 NEXT

CLR
CLR
CLR
CLR

TEMP1
TEMP2
RO
R1

MOV

001236
001240

052737
052737

013777
052777
105777
100375

TST25:

3%:

4%:

#340,PS

#3.RS

;SET UP # OF SYNC

BIS
BIS

#TSOM, TEMP1
#DE CMODE ! CRCEN, TEMP2

BIS
JSR
BIS

#MRESET ,@TXCSR
PC,SMALL
#RCVEN,aRXCSR

MOV
DEC
BNE

#SYSTST!SEND ,@TXCSR
aTXCSR
2%
TEMP1 ,@TXDBUF
R2
2%

BIT
BNE
BIT
BEQ
TSTB
BMI
INC

#TIMER,QTXDBUF
648
#TIMER,QTXDBUF
65%
aRX(SR
3s
RO

MOV
BIS
TSTB
BPL

CMP
BNE
HLT
MOV
BIT
BNE
HLT
TST
BPL
HLT

‘

;LOAD TSOM
:LOAD DEC MODE

;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

TEMP2 ,aPARCSR

#40,R0
7%
15
aRXDBUF , TEMP4
#RECACT,TEMP3
4%
25
TEMP4
5%
26

;CLEAR OUT DATA
;CLEAR SYNC

;CHECK
;BR IF
;CHECK
;B8R IF

;LOAD THE MODE AND SYNC CHARACTER
sTURN ON MODE AND TRANSMITTER
sTEST FOR DONE
SWAIT
;LOAD TSOM AND SYNC CHAR
;DECREMENT # OF SYNCS TO SEND
;BR IF MORE TOO GO

THE TIMER BIT
SET
THE TIMER BIT
CLEAR

;DONE FAILED TO SET AFTER THIRD SYNC
:GET THE BUFFER
sTEST ACTIVE
.BR _IF SET
;ACTIVE FAILED TO SET

sTEST FOR ERROR
;BR_IF NO ERROR
;HARDWARE ERROR

(ZDPD-DO
CZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01
123737
001401

001236

25=JUL~79

001244

104022

012702
005000
105201
110137
110137

001300

15:19

TEST OF

ALL POSSIBLE

5%:

(MPB
BEQ

6%:

000003

PAGE 67

HLT

MOV

CLR

INCB
MOovB
MOvVB
BNE
SCOPE

001236
001240

104400

B
SYNC

6
SEQ 0066

CHARACTERS

TEMP1,TEMP4

. COMPARE SYNCS

6%
22

;BR [F Ok
sSYNC CHAR DOES NOT MAT(CH SENT

#3,R2
RO
R1
R1,TEMP]
R1,TEMP?2
1%

JSET UP FOR NEXT SYNC
;DITTO
;DITTO
;BR IF MORE TO GO

“SCOPE THIS TEST

IRRRARRRRARARRARNARAARSRRARY

JEST

;*THIS TEST PROVES

CRC ERROR BIT FUNCTIONS

THAT

THE

AAXA AR ARARAARRAANANRAR
RN AR

;*CORRECTLY. FORCE AN ERROR AND VERIFY THE BIT.

::'t.'Qlfitlfil.tttt.tt'.fi.fitti.i.Qt'.Qfiitttttt....tt'til"tt"ttfi
:;t..ti't"'fi.

* 1EST 26
TARRRRRRRRR
AR R

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

T ST26:

12737

MOV
MoV

#26 ,a4TSTNO
#T1ST27 NEXT
#340,PS
RS,SETVEC

340,340

64%:

000426

161162
161146

052777
052777

000426
177776
000100
000100

012737
032777

000040
004000

020316
161112

68%:

00000

161102

69%:

161154

020304
020312
020314

161124
161124

65%:

;RECEIVER

; TRANSMITTER

sLEVEL

;CLEAR CHAR COUNT

#MRESET ,a@TXCSR
PC,SMALL

;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

#SYSTST ,aTXCSR
#RCVEN,aRXCSR
#SEND ,aTXCSR

JENTER SYSTEM TEST MODE
;LOAD RCVEN
;TURN ON TRANSMITTER

65%

;BR IF NOT SET

PS
#RINTEN,@RXCSR
#TXINTE ,@TXCSR

;LOWEF PROCESSOR STSTUS
;TURN ON INTERRUPT ENABLES
;DITTO

1%:

;LOAD THE MODE AND SYNC CHARACTER

#TSOM! 26 ,aTXDBUF
;OUTPUT A SYNC CHAR
aTXCSR
s CHECK DONE
64%
;BR IF NOT SET
#TSOM!26,aTXDBUF
;SEND SYNC
aTXCSR
s CHECK DONE
#TSOM!26,aTXDBUF

#32.,708

;SEND SYNC

;LOAD THE NUMBER

#TIMER,QTXDBUF

;CHECK THE

#TIMER,@TXDBUF

;CHECK THE BIT

68%
69%

(PC)+

R R R AR

;RAISE PROCESSOR STATUS
;SETUP VECTORS

#DECMOD ! 26 ,aPARCSR

161170

RRARRARRRARR AR RRA AR RARRA R AR

;BR IF SET

TIMER BIT

;BR IF CLEAR
;DECREMENT

THE NUMBER

CZDPD=DO
CZDPDD.P11

020316

MACY1]

30A(1052)

25=JuL=79 15:01

25-JUL=79 15:19 PAGE 68
CRC ERROR CHECK TEST

708 :

000040
001365
104023

32.

052777

161060

SEQ 0067

BN
HLT

68$
23

:OF TIMES TO REPEAT

BIS
JSR
MOV
SCOPE

#MRESET,aTXCSR
PC,SMALL
#STACK, SP

:RESET THE DEVICE
*WAIT FOR RESET TO FINISH
‘RESET THE STACK

*BR IF MORE TO GO
“FAILED TO FINISH TEST

: INTERRUPT SERVICE ROUTINES

- TRANSMI TTER

161042

017737
005201

3s:

020362

161020

001000
000120
006774
020266

161024
161014
160774

160770

001324

48:

5% :

:CLEAR DATA

ggv

o«i abDUPTVC

;EEL&? FOR NEXT INTERRUPT

RO, @aTXDBUF

crson aTXDBUF

MOV

#NO.BTRAP, aDUPTVC

MOV

@RXDBUF ,DATA

:GET THE DATA

CMP
BNE
BIT
BEQ

#4 R
108
#CRCERR,DATA
7%

*AND BRANCH IF
*NOT YET
:CHECK FOR CRC ERROR
:BR IF CRC ERROR SEEN

INC

HLT
MOV
RTI

14
#2%, (SP)

;*THIS

*RETURN

*CHECK FOR LAST CHAR

*FAILED TO CATCH CRC ERRCR'''!'!
*FINISH TEST
*RETURN
TEST

At anaaaaaaata
v aa vt a vt aaneas

TEST PROVES THE DEVICE WILL HANDLE

THE

;*DDCMP PROTOCALL.
SEND AND RECEIVE SYNCS,.
;*FOLLOWED BY DATA,BCC,DATA AND FINAL BCC.

3409

&0 RGN PR

*TRANSMITTER AND TXINTEN

:SETUP TO RETURN

IRARRAANRARRARRRARRRRRANRRAR

Ry RRRR R

:TRUN OFF THE

#1$, (SP)

;RECEIVER

7%:
108:

:END OF MSG--OUTPUT CRC

#SEND | TXINTE ,@TXCSR

RTI

*LOAD DATA TO BUFFER

MOV

001324

020324

BIC

000004

010000

CLR

MOV

$ IRRARARA A AR AR A AR AR ARARARARAARARAARARAARAR R AR ARR

AR AR

R RS

I RRRANRARARAK

L 4

; TEST 27
*

E;ttttt.!ttttt
AR

001226
001216

77776

2
21

020514

AR AN AR

TsT27:

Mov

A AN AR AR A AR AR AR AR N AR

MOV
MOV
JSR
10%

2%
.BYTE
CLR
CLR
(LR

#27 ,a#TSTNO
#1ST30, NEXT
#340,PS
RS,SETVEC

340,340
TEHP
TEMP2
TEMP3

AR RN

AR RN R R AR AN AR

AR A AR

;RAISE PROCESSOR STATUS
;SET UP VECTORS
;BASED ON
; THESE
;PARAME TERS

RN AN RN RN

CZDPD=DO
C(ZDPDD.P11
3427

25<JuL=79 15:19 PAGE 69
DDCMP MODE CHECK

33258

020524

005037

001244

3430
3431

020530
020536

052777
004737

000400
005044

160654

3433

020550

052777

004000

160634

3432

3434
3435
3436

3437
3438
3439
3440
3441

3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458

3459
3322(1)

020520

MACY11 30A(1052)
25=JUL=79 15:01

020542

020556
020564
020572

020600
020604
020606
020614
020620

012777

052777
052777
012777

105777
100375
012777
105777
100375

001246

BIS

#SYSTST ,@TXCSR

MOV

000420
000020
000426

160620
160620
160614

BIS
BIS
MOV

160606

000426
160572

160600

64%:
65%:

160564

000144
004000

020700
160530

68$:

004000

160520

69%:

052777
004737

000400
005044

100%:

70%:

160476

1%:

001150

TSTB
BPL
MOV
TSTB
BPL

MOv
BIS
BIS
CLR

TEMPS
;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

#DECMOD ! 26 ,aPARCSR

;LOAD THE MODE AND SYNC CHARACTER

#RCVEN!STPSYN,3RXCSR
#SEND ,@TXCSR
#TSOM!26,aTXDBUF

;TURN ON TRANSMITTER

SENTER SYSTEM TEST MODE

;LOAD RCVEN!STPSYN

;OUTPUT A SYNC (HAR

aTXCSR
s CHECK DONE
64%
;BR IF NOT SET
#TSOM!26,aTXDBUF
;SEND SYNC
@TXCSR
s CHECK DONE
65%
;BR IF NOT SET

#TSOM!26,aTXDBUF
;SEND SYNC
#RINTEN,aRXCSR
;TURN ON INTERRUPTS
HTXINTE ,@TXCSR
;DITTO
PS
;LOWER PROCESSOR STATUS

MOV
BIT
BNE
BIT
BEQ
DEC
100.
BNE
HLT

#100.,70%
#TIMER,QTXDBUF
68%
#TIMER,@TXDBUF
69%
(PC)+
68%
23

;LOAD THE NUMBER
;(CHECK THE TIMER BIT
;BR IF SET
;(HECK THE BIT
;BR IF CLEAR
;DECREMENT THE NUMBER
;OF TIMES TO REPEAT
;BR IF MORE TO GO
sFAILED TO FINISH TEST

BIS
JSR

#MRESET ,@TXCSR
PC,SMALL

;RESET THE DEVICE
;WAIT FOR RESET TO FINISH

MOV
SCOPE

3462

#STACK,SP

JRESET THE STACK
;SCOPE THIS TEST

s INTERRUPT SERVICE ROUTINES

33222

3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482

W#MRESET ,@TXCSR
PC,SMALL

160640

160546
160546

012706
104400

BIS
JSR

100026

000426
000100
000100
177776

020720
020724

TEMP4

CLR

020622 012777
020630. 052777
020636 052777
020644 005037
020650
020650 012737
020656 032777
020664 001374
020666 032777
020674 001774
020676 005327
020700 000144
020702 001365
020704
104023
020706
020706
020714

CLR

SEQ 0068

; TRANSMITTER

020726
020734
020742
020750
020752
020760
020764
020772
020774
021002
021004
021012
021020
021022
021030
021034
021042
021044

012777
012737
012777
000452
013777
105237
122737
001041
012777
000435
012777
012777
000426
013777
105237
122737
001015
012777

000252
000026
020752

160460
001236
160430

2%:

001236
001236
000032

160434

3%:

001236

021004

160376

001000
021022

160402
160360

4%:

001240

160364

5%:

001240
000100

001240

021054

160326

MOV
MOV
MOV
BR
MCV
INCB
CMPB
BNE
MOV
BR
MOV
MOV
BR
MOV
INCB
CMPB
BNE
MOV

#252,3TXDBUF
#26,TEMP1
#3%,aDUPTVC
7$
TEMP1,aTXDBUF
TEMP]
#32,TEMP1
7$
#4% ,aDUPTVC
7$
#TEOM,aTXDBUF
#5%,aDUPTVC(
7$
TEMP2,aTXDBUF
TEMP2
#100, TEMP2
7%
#6%,aDUPTVC(

;LOAD FIRST DATA (HAR
;LOAD DATA
JRELOAD VECTOR
;LEAVE
;MOV DATA TO BUFFER
;UPDATE DATA
; CHECK FOR DONE
;BR IF MORE TO SEND
;RELOAD VECTOR
;RETURN
;PUT OUT BCC
JRELOAD VECTOR
;RETURN
;LOAD DATA
;UPDATE DATA
;CHECK FOR FINISH
:BR IF MORE TO GO
sRELOAD VECTOR

MACY11 30A(1052)
25=JUL=79 15:01

(ZDPD=DO

(ZDPDD.P11

000411
012777
042777
012777
012716
000002

3483
3484
3485
3486
3487

SSEREFRSTR
-

d
e
e
e
d e
e

3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505

15:19 PAGE 70
DDCMP MODE C(HECK

160332
160322
160302

6%:
7%:

MOV
BIC

MOV
MOV
RTI

SEQ 0069

;RETURN

#TEOM, T XDBUF
;PUSH OUT DATA BC(CC
#SEND ' TXINTE ,9TXCSR
;SHUT DOWN TRANSMITTER

#NO.BTRAP ,aDUPTV(C
JRESET VECTOR
#1008, (SP)
;SETUP RETURN
JRETURN

JRECEIVER

3488
3489
3490
3491
3492
3493
3494

001000
000120
006774
020650

25=JuUL=79

3506
3507
3508
3509
3510

017737
017737
105737
100401

104024

005737
100001
104026
122737

160274
160270

001242

000252

001244

12%:

000026
021170

001246

13%:

160212

001244

14%:

001246

3521
3522
3523
3524
3525

001244

021244

160132

160136

001244

021272

160104

160110

001324
001324

15%:
16%:

17%:

18%:

19%:

160054

001244

20%:

001330

;SAVE CSR

BMI
HLT

11%
24

;BR IF SET
sFALSE INTERRUPT

12%

BR IF NO ERROR

TST

BPL

HLT

21%:

22%:

TEMP4

;SAVE BUFFER
;CHECK FOR DONE

;CHECK FOR ERROR

JRECEIVER ERROR

#252,TEMP4
13%

;CHECK DATA
BR IF A MATCH

MOV
MOV
BR

#26,TEMPS
#14%,3DUPRVC
26%

:LOAD NEXT EXPECTED
;RELOAD VECTOR
sLEAVE

15%

BR IF NO ERROR

HLT

MOV
TST

aRXDBUF , TEMP4
TEMP4

HLT

CMPB
BEQ

TEMPS , TEMP4
16%

INCB
CMPB
BNE

TEMPS
#32,TEMPS
26%

BR
MOV

26%
aRXDBUF , TEMP4

TST
BPL
HLT

#17%,3aDUPRVC

HLT

19%

MOV
CLR
BR

#20% ,aDUPRV(
MIND
26%

TST

TEMP4

aRXDBUF , TEMP4

21%

HLT
CMPB

26
MIND, TEMP4

HLT

INCB

;CHECK DATA
;BR IF A MATCH
;DATA COMPARE ERROR

;UPDATE DATA
;CHECK FOR FIRST PART FINISH
;BR IF HORE TO GO

;SET UP NEXT VECTOR
;LEAVE
'GET THE BUFFER

*LEAVE

aRXDBUF ,DATA
#CRCERR,DATA

BEQ

;DATA ERROR

26$%

MOV
BIT

MOV

;GET DATA
;CHECK FOR ERROR

;TEST FOR ERROR
BR IF 0K
JRECEIVER ERROR

#18% ,aDUPRV(

;DATA COMPARE ERROR

TEMP4
.+4
26

MOV

BPL
001244

aRXDBUF , TEMPS
TEMP3

CMPB
BEQ

BNE

160054

001330

aRXCSR,TEMP3

MOV
TSTB

MOV

021326
001330
001244

MOV

BPL

001246

010000

021354
021356

160206

001246
000032

001244

3520

10%:

11%:

001244

3511
3512
3513
3514
3515
3516
3517
3518
3519

001242
001244

22%

MIND

;RELOAD THE VECTOR
sGET DATA
JCHECK FOR CRC ERROR

BR IF OK

;CRC ERROR!!!'!
1!

;SET UP VECTOR
:SETUP FOR NEXT DATA
;LEAVE
;GET DATA

;CHECK FOR ERROR

BR IF NO ERROR

;RECEIVER ERROR
;CHECK DATA

;BR IF A MATCH
:DATA ERROR

UPDATE SOF TWARE DATA

CZDPD-DO

(ZDPDD P11

3539
3540
3541
3542
3543
3544
3545
3546
3547
3548

MACY11 30A(1052)
25=JUL=79 15:01

021362
021370
021372
021400
021402
021410
021414
021416

122737

021420
021424
021426
021434
021442
021444

105777
100375

021446

021452

15:19
PAGE 71
DDCMP MODE C(HECK

000100

001330

021402

157774

160000

001244

157760

017737
032737
001001

157754
010000

012716
000002

020706

104014

25=JUL=79

23%:

24%:

001324
001324

CMPB
BNE
MOV

#100,MIND
26%
#23%,aDUPRV(

;CHECK FOR FINISH
;BR IF MORE TO GO
JRELOAD FINAL VECTOR

MOV

aRXDBUF , TEMP4

;GET DATA

B8R

26%

TST

s LEAVE

TEMPS

JCHECK FOR ERROR

BPL
HLT

24%
26

;BR IF OK
JRECEIVER ERROR ON FIRST OCTET

TSTB
BPL

aRXCSR
24%

sTEST DONE
:BR IF NOT SET

BIT

#CRCERR,DATA

;CHECK FOR BCC ERROR

;BCC ERROR ON SECOND PART OF

MOV

aRXDBUF

BNE
25%:
26%:

SEQ 0070

;OF SECOND BCC
,DATA

JGET SECOND BCC OCTET

25%

HLT

MOV
RT]

:BR IF 0K

#1%,(SP)

JSETUP TO FINISH TEST
;RETURN

cenwnknnnknkannnnnnnnnnnwwet

s*THIS

TEST

MSG

wanmnennnnnnnnrnenntnnannns

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 CRC
;*CHARACTER AS IT IS GENERATED.
THE DATA (HARACTER
;*CAN ALSO BE CHANGED BY THE OPERATOR.
TO CONTINUE HIT
;*PUT SWO9=1 TO LOCK ON BITS.
J*ANY KEY ON THE
s IR

TTY.

AFTER 16 TIMES PUT DOWN SWO9 TO LEAVE

A AR AR AR A AR AR AR RARAARAAAARAAARAAARAARAAAARAAR AR

AR R R A AR

siRRRARRAARRAR
*

TEST

E:ttttt"ttttt
::.Q.‘fi'..."tt't'k‘...'i.t't.'..'.'.t.t..t".t'.'..'."tt.'t.tt.t'..tt

021454
021462
021470
021476
021502
021510
021516
021524
021530
021536
021542
021546
021552
021560
021566
021574
021602
021610
021614
021622

012737
012737

TST30:

MoV

MOV
8IS
- JSR
MOV
MOV
MOV
CLR
MOV
CLR
CLR
CLR

MOV
BIS
BIS
BIS

MOV

PKCLK

MOV

PKCLK

#30,a4TSTNO

#_EOP,NEXT
WMRESET,@TXCSR
PC,SMALL
#CRC16,XPOLY
#125,3%
38, SAVR1
CALBCC
CALBCC,4$
TEMP3
TEMP
TEMPS

;RESET

THE DEVICE

‘WAIT FOR RESET TO FINISH
:LOAD THE POLYNOMIAL
*LOAD DATA TO SOF TWARE BCC-CHANGE CHARACTER HERE
:CLEAR FOR SOF TWARE BCC

:CLEAR BIT COUNTER

#DECMOD
' 26,@PARCSR

;LOAD MODE AND SYNC CHARACTER

#MMODE ,@TXCSR
:ENTER MAINT MODE-PROGRAM (LOCK ING
#RCVEN'STPSYN,@RXCSR
;TURN ON RECEIVER
#SEND,@TXCSR ~ ;TURN ON TRANSMITTER

#TSOM!26,3TXDBUF~

;LOAD A SYNC

,36.

:PUSH OUT 2 SYNCS

.16

*PUSH OUT ANOTHER

3%, aTXDRUF

*LOAD DATA

SYNC

(ZDPD-DO
(ZDPDD.P11

3595

3596
3597
3598

021626
021632

§E88 2

3599
3600
3601
3602
3603

MACY11 30A(1052)
25=JUL=79 15:01
104412

013737
005237
005237
004537
000001
000000
000000
004737

R R ERRRRERR
RS
R

021742

021744

021752
021756
021760
021766
021770
021774

012777
022737

001000
000020

001244

001331
052777
004737

000400
005044

157440

001000

157214

007156
000001

001256

032777
001432
013704
012737
000241
006004
006137

001006

001256

023152
023201
001246

105777

157136

017701
000207

157132

100375

:
3%
(%:

.WORD 0
.WORD 0

157460

JSR
CLC

RORB
MOV
(MP

BNE

12%:

CLR
(MP
BNE
MOV
CMP

BNE
BIS
JSR
SCOPE

5%:

11%:

BIT
BEQ

MOV
MOV
CLC

ROR
ROL

BCC

001246

104402
104402
105137
104410

023522

2%:

MOV
INC
INC
#SR

021660
001244
001242

104400

PKCLK

001254

157476
000014

103374
105737

022050
022054

15:19 PAGE 72
CRC DEBUGGING AID TEST

021760
021656
007156
000006

WN=O

T AR

3605

000002
001244
001242
001244
007000

25=JUL=79

TSTB

BNE

TYPE

10%:
7%:

‘2

TEM
, SAVR?
P4
TEMP3
TEMP4
RS,SIMBC(,

PC.5%

3%
CALB(C,4%

#6, TEMPS

;SET UP TO TYPE

;UPDATE BIT COUNTER
sCALCULATE SOFTWARE BCC BASED ON THESE PARAMETERS

JSHIFTS
;DATA

sPREVIOUS B(C
JCHECK TO SEE IF WE SHOULD WAIT FOR SCOPING
;CLEAR FOR NEXT ROTATE
JSET UP THE NEXT BIT
;FOR

THE

SOF TWARE

B((C

0‘6

#TEOM,aT XDBUF

%
#MRESET ,@TXCSR
PC,SMALL

#SW09, aSWR

CALBCC R4
#1,SAVR3
R&

SAVR3

11%
TEMPS
108

JMH1
TEMPS

TSTB

alK(SR
7$

RTS

BPL
MOV

;PUSH OUT A BiT

a T XDBUF
#12.,TEMP3
12%

TYPE

(omMB
CONVRT
DT1

SEQ 0071

aTKDBR ,R1

JALL DONE WITH THE (CHARA(CTER?
; INCREASE COMPARE # TO FORCE
;CRC OUT OF THE GENERATOR
:BR IF MORE TO GO
JRESET THE DEVICE

;WAIT FOR RESET

;SCOPE THIS TEST

TO FINISH

;SW09=1?

;BR IF NO

;THE DATA (CHARACTER

sFOLLOWED BY A ZERO.

IS ALWAYS

THE DATA |
;CRC SHOWS WHICH BIT OF THE 2 CHARS
;1S BEING GENERATED

: TYPE MSG
;s TYPE HEADER

JCHECK TTY DONE--GO SCOPE THE CRC GENERATOR
;BR IF NOT YET
JREAD THE BUFFER
;RETURN

(ZDPD=DO

MACY11

30A(1052)

25=JUL=79 15:01

25=JUL=79 15:19 PAGE 73
CRC DEBUGGING AID TEST

SEQ 0072

04 2377
377
04 1377
05 2377

N
SN
N
N
N
SN
SN
N
N
N
N
N
N
N
N
N
N
S
N

EMI1:
EM2:
EM3:
EM4 :
EMS:

LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

<377>/DUP FAILED TO INTERRUPT [N TIME /
<377>/DATA COMPARE ERROR /
<377>/END OF MESSAGE /
<377>/B(CC ERROR /
<377>/TRANSMITTER DONE /

EM7:
EM10:
EM11:
EM12:
EM13:
EM14:
EM20:
EM21:
EM22:
EM23:

LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

<377>/RECEIVER INTERRUPT IN HALF=DUPLEX /
<377>/FALSE INTERRUPT /
<377>/ABORT SEQUENCE ERROR /
<377>/START OF MESSAGE /
<377>/UNEXPECTED RECEIVER INTERRUPT /
<377>/UNEXPECTED TRANSMITTER INTERRUPT /
<377>/TRANSMITTER DONE /
<377>/RECEIVER DONE /
<377>/TRANSMITTER ACTIVE /
<377>/RECEIVER ACTIVE /

EM2S:
EM26:
EM27:
EM30:
EM31:
EM32:
EM33:
EM15:
EM16:
EM17:

.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
LASCIZ

EM6:

EM24 :

022700
022715
022762
023004
023051
023113
023134
023152
023201

MH1:
.EVEN

LASCIZ

.ASCIZ

ASCIZ

/FAILED TO SET /

/FAILED TO SET.

/
/FAILED TO CLEAR. /
<377>/SYNC ERROR /
<377>/DATA ERROR /
<377>/DEVICE FAILED TO INTERRUPT I[N TIME /
<377>/FALSE INTERRUPT /
<377>/TRANSMITTER BCC ERROR IN DEC MODE
/
<377>/RECEIVER BCC ERROR IN DEC MODE
/
<377>/RECEIVER ERROR /
<377>/BCC ERROR'!' /
<377>/CRC GENERATOR STATUS /
<377>/DATA (HAR

DATA BIT

023274
023274

.ERRTAR:

022056
000000
000000

0
0
0
EM1
0
0

023310
023312
023314

022120
000000
000000

Eme
0
0

023316
023320
023322

022145

EM3
EM6
0

023324
023326
023330

022166
000000
00000

EM4

023332
23334
3336

022202
022225
000000

EMS
5"6

023340

022244

JHALT

JHALT?

022225
000000

:
JHALT

0
0

JHALT 4

N
N

N
e

043040

aa)

N
N

106

05 1377
04337/
040777
377
052777
052777
377
051377
052377

S
S
N
N

042377

) il

022056

D
il
D

.~~~

)
i

—~

il
il
il
il
i
il ol
N
il

A~~~ A~ A~ A~~~

i
i
il i
Al

A~~~

il
i
Al
Al

A~~~
.

il o
—
il
. —
—
e
e

—~————~— A~~~

A
il
el
Bl —h
—h
il

— o~~~
A~~~

ol
bl
-

o~~~

el ol

—
I

A~~~

(ZDPDD.P 1"

JHALT S

IN CRC GEN.

CRC FOR THIS BIT

CZDPD=DO
CZDPDD.P11

MACY11 30A(1052)
25=JUL=79 15:01

25=JUL=79 15:19 PAGE 74
CRC DEBUGGING AID TEST

(1)
§};

023342
023344

000000
000000

0
0

(1)
(1)

023346
023350

022310
000000

EM10
0

(1)
(1)

023354
023356

022332
000000

000000

EM11
0
0

(1)

023362

022361

EM12

(1)

023370

022404

000000
000000

0
0

(1)
(1)

023376
023400

022444
000000

000000

EM14
0
0

(1)

023404 023134

EM16

E};

023410

g};

E};

(1)
E:;
(1)
E};

(1)
(1)

023352

023360

023364
023366
023372
023374

023402

000000

EM6E
0

EM13

023406

000000

023412
023414

022532
022621

000000

(1)

023420

022507

EM2C

g};

023424

000000

(1)
(1)

E};

(1)

023416

023422

000000

022621

(1)

023426

022552

E};

023432

000000

(1)

023430

022621

EM21
EM24

JHALTIS

EM2?2

EM24

022552

022641
000000

EM25S
0

(1)
(1)
2};

023442
023444
023446

022463
000000
000000

EM26
0
0

(1)
(1)

023450
023452

022700
000000

EM27
0

(1)

023456

022715

EM30

(

g};

g};
(1)

023436
023440

023454

023460
023462

000000
000000
000000

EM22

0
0
0

JHALT

JHALT 13

JHALTI14

EM24

JHALT

JHALT 12

023434

(1)
q;

JHALT 6

022225
000000

SEQ 0073

JHALT16

JHALT17

THALTZ20

JHALT2Y

JHALT22

JHALT23

(ZDPD=DO

PAGE

EM31

023464
023466
023470

022762
000000
000000

023472
023474
023476

022577
022621
000000

EM23
EM24

023500
023502
023504

023113

WOO'; oom
=
oo pu—-Y
=
IN

N
N

15:19

SEQ 0074

CRC DEBUGGING AID TEST

0
0

JHALT24

S
N
S
N

JHALTZS

N
N
N
N
N
N
S
S
N
N

023051

000000
000000

000003

006
001252
006
001254
006
001256

021

DT1:

SAVR1
.BYTE
SAVRZ2
.BYTE

017
0C2

SAVR3

023514
023516
023520
023522
023524
023526
023530
023532
023534
023536

023540

v
o

023506
023510
023512

JHALT26

000001

CORMAX:
.END

JHALT 27

25=JUL=79

30A(1052)
15:01
79
25=JUL=
MACY1]1

il e

NN
NN

NN
N

B i
el

e
e

) e
D

NN
N

il e

il
el

NN
N
PN

NN PN PN PN~

(ZDPDD P11

JHALT

6.17.
6.15.
6.2

BRW

BRX
CALBCC

003306

003310
007156

CARDET= 010000
CHRCNT
004236
(LK
= 020000

CLK.A

001433

CLRVEC
CNVRT =
CONVRT=
CORMAX
CRCEN =
CRCERR=
CRC.CC=
CRC16 =
CREAM
CTS
=
CYCLE
DATA

005104
104411
104410
023540
001000
010000
102010
120001
001316
020000
006224
001324

DATABP
DATAHD

004612
004600

DEVADR
DISPLA
DISPRE
DSCA =

003732
001200
000174
100000

DECMOD= 100000

25=JUL=79 15:01

1283«
1714~
1370
760#

K 6
15:19 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

25=JuL=79
1319«
1720«

1328#
1723»

1371

1408#

6224
6214
6124
6114
6104
605#
6084
6074
6204
6194

742
741
732
731
730
729
728
727

1718

6174

739
738

737
736
735

766
765

6184

6164

6154
6144
6134
1134
1135
1736+

2577

730#
1368+«
757#

684

747
759
746
757
745
744

1726

1730

760

780

779
753
777

758

778

776
755

1042
775

782
761

781

2071«

2166+
3582+

2167
3583

1372
1538
1654

1388+
1541

1407

1151
1087

1153
1497

1481

1980

2397

949«

1608+

740

734
733
1212#
12134
174384

3093«

3643

2170
2070
3092
1171

1128

3094

2296
2196
3579
1172

2019
2572«

2613
3587

2653

1316
962+

962

751

764
763
749
748

2018+
2563
3551
1473
1491

756

1495
14944

2197«
3606

2292+

2293

2521+

2522

2696
3525

2814

2876

2989

3285

1616

1621+

2158+
3250+

2251+
3260

2252
3394+

2284+
3398

2288+
3524+

2293
3525

2766

2989

3241

3285

3350

13264
1148+

DSCB_ = 000001
DSINTE= 000040

DSR
= 001000
DTIR
=
2
DT1
023522
DUPACT 001310

36428
1052«

1076+

1109+

1110

SEQ 0075

17424

30A(1052)

O —

ADRCNT= 003735
BCCFBK 007154
BINWRD 004240
BITWw = 002000
BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2
= 000004
BIT3 = 00001Q
8174
= 000020
BifS
= 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000

MACY11

—_—

(ZDPD-DO
CZDPDD.P11

1598

1603

2198
3623

2576+

9094

DUP.EN
DUP .MA

333323338

722
8794
883#
8874
891#
895#
89G#
9034
907#
36424
36424
36424
36424
364204
36424
36424
36424
3631
36424
36424
36424
36424
36424
36424

022762
023004

945
1644%
1178
3516
1¢30%

1044>
1645+
1623+
3522+

1646
1644

1649+

1698+

1647

1648

1068

1609
982

1648+
999

1646

2487

2588+

8764

949

984

1039«

364204

1042+

1077+

3528+

1161

1697+

1695+

2648

2455+

2569+

2931+

2948+

3047+

3170+

3206+

2040*
3217«

2043~
3385«

2049+
3389+

2145«
3467

2148+
3473

2154~
3476

2271%
3482+

2274
3486+

1070

1084

1611

1621

3541~

9064
8484
2280«

1055

7174

8474
8464
3504«
855#
8494
878#
882#
8864
8904
8944
8984
902#

991

1056

SEQ 0076

0‘—‘\‘3
RO

8774
8814
885#
885#
8934
8974
901#
905#

25=JUL=79 15:01

L 6
25=JuL=79 15:19 PAGE 78
CROSS REFERENCE TABLE == USER SYMBOLS

b g

001500
001506
001514
001522
001530
001536
001544
001552
001311
001376
001374

30A(1052)

DUPCRO
DUPCR1

MACY11

CZLPD-DO
CZDPDD.P11

CZDPD=DO
(ZDPDD.P11
EM33

023051

022166

EM4

MACY11 30A(1052)
25=JUL=79 15:01
36428

022202

36424

EM7
ERRCNT
ERRFLG
ERRMSG
ERTABO
EXIT
=
EXITER

022244
001232
001341
004566
004772
000000
004726

36424
6874
802#
1468+
1483
6234
1503

FLAG

001332

FIX.00

HALTS
HDXEN =
HILIM
HUPPSR
HUPRBF
HUPRCR

HUPTBF
HUPTCR
ICOUNT
INBUF

INIFLG

022225

006742

004616
000010
003730
001420
001422
001424

001426
001430
001222

006160

001340

INSTER= 104404

36428

¢
951«
947«
1486
15254

1655

15204
16854

1454
7664
1280+
8564
8574
8584

15004
1901
1307
1634«
1632+«
1626+

7924

980+

8594
8604
6834

1641+
1637+«
1202

801#

966

1250

1286

1184
1146+
14854

1520+
1204*

1093

1096+

1458+

1471

1418

1422

15854

994

1002

101

1019

1477

1635
1633+
1627+

1642%
1638+
1207+

1417«

972«

1639

981+

003530

1257

12694

LOBITS
LOCK
LOKFLG
LOLIM
LPCNT

003734
001220
001342
003726
001224

1282+«
682¢
8034
1279+
6844

1311
1206«

13274
1220

1328
1222

1309
1201+

13244
1202

1205+

L00.00

001434

8704

1624

1652

987

15744

INSTR2

LIMITS

LSTERR

MASK.A
MASTEK
MCRLF

MCSR

MCSRX
MDATA
MEPASS
MERRPC
MERRX
MERRZ

MERR3
MEXT

MH1
MIND
MJMPR
MLOCK

003656

001234

6884

001432
005411
005136

8664
1479
1235

005341
006116
005157
005466
005366
005205

1150
1386
1149
1482
1156
1574#

= 010000

7704

005473

005254

1106

13074

952«

1653
15744
1359

15744
1396
15744
15744
15744
1600

15744

023201
001330
005525
005312

3632
7914
1020
1130

1510
36424
3529+
15744
15744

005413
005702

1101
1003

15744
15744

MMODE = 014000
MMODEA= 004000
MMODEB= 010000

MNEW
MPAR

1296

986

7694
7594
7584

3239

1427

1634
1628

1301

8234

1485+

13254

825#

INSTR = 104403

SEQ 0077

36428

EMS

EM6

25=JuL=79 15:19 PAGE 79
CROSS REFERENCE TABLE == USER SYMBOLS

1145+«

1475

1188+

1455

1457+

1476

1484

15748

15834

1901

2209

3535

3538«

3588

3539

1023

1029

1660

1677

1033

1661

CZDPD=DO
CZDPDD.P11

30A(1052)

25=JUL=79 15:01

N 6
25=JuL=79 15:19 PAGE 80
CROSS REFERENCE TABLE == USER SYMBOLS

005355
005141

005132

005202
MRESET= 000400

MSRJM
MSTJUM
MTCN
MTDATA=
MTITLE
MTOTAL
MTSTN
MTSTPC
MVEC
MVECX

1831

1949

2514
3015

2633
3237

1970

2067
2694
3348

2174
2717
3375

2191
2746
3430

2300
2764
3457

2651
3287

1662

1525

1761«

1793«

1827«

1895+

2650

2693+

2763

2811«

2867+

2978+

3089+

1969+

2066+
3236+

2190+
3277+

2315«

3340

2388+
3418+

006770
006774

1800
1801

1834
1835

1868
1704

2049

2154

2280

2320

2418

2594

2871

3070

001323

1037

1081+

996

1004

1013

1663

1980+

2325«
3290+

2397«
3350«

2536+
3432+«

== NN
WwWwunos
— 00 —
NN

NO.ATR
NO.BTR

1797

2475
2987

2653

2696+

2719+

2766+

2814+

2876+

3246

3255

3592

3594

3595

1074+

1794

1828

1862

2000+
2868+

1124+

1762+
2082+
2890+

1770+
2107«
2979~

2165+
3001«

1898+

1906+
2400+

1160+

1199

1981

2088
3113
3024

040000
104405

003576
000000
001410
003652
001230
000000
104412
012600
005726
022626
001320
010000
177776
010046
005746

3486

3241~
1292
1147+

2536

29N
2955

13014
1148

1308
1181

2214
3240
3146

1310

1796+

1861+

SEQ 0078

MPASSX
MPOWER
MQM

MACY11

1838+

1804+

2208+
3090+

2420
3434

1864+

1872+

2291+
3278+

2324+
3341

2328+
3361+

2396+
3419+

2454
3589

2537

2698

2720

3445+

2768

CZDPD-DO
CZDPDD.P11
RESTRT

003116

RESOS = 104407
001214
RING
040000
RINTEN= 000100
RSOM
000400
RTS
000004
RUN
001314
RXCSR
001404
RETURN

MACY1]1 30A(1052)
25=JuL~ 79 15:01
1159

8314
6804

RXDERR=

1163
1499
954«
1908

SAVR3A

SAVR4
SAVR4A

SAVRS
SAVR5A

SAVSP
SAVSPA

SAVOS5

SCOPE

104400

ScoP1

104401
000020

SEND

SETFLG= 104413
SETVEC
006746

001326

SHIFTS
SIMBCC
SMALL

005044

SPACNT= 004237

SRD

SRJMF
L

001336

1136+

1138

1171

1208+

121

1525+«

1560

1676+

1686+

1982

2089

2215

2326

2398

2537

3002

3124

3362

1615+
1981+

1982+

2088+
2457
2891+
3175
3589+
2158
2575
3250

2089+
2465
2916
3196

2159
2537+
2933
3240+

2161
2741
3259

2251
2792
3308

2439
950+«
1175

1603
1622+

1607
1907+

2285
2712
2991+
3289«

2326+
2720+
3002«
3302

2362
2768+
3049
3362+

2352
2934
3506

2364
2951
3518

2450
3050
3531

2353

2442

2935

1342«

1347

1341«

1348

3642

1340«

1349

3642

1339«

1350

3627

1338«

1351

1337«

1352

1459
1775

2748

1909

1049+
1045+
1531

2437
2844
3144
3492
2027
2562
3177

1052
1158+

3642

1809

2118
3263

2244
3325

2349
3378

2415
3460

2557
3619

2635

1985

2279
2904

2327
2992

2399
3069

2538
3114

2593 .
3216

2615
3242

2084

2132

2210

2258

2318

2392

2175
2718
3376

2192
2747
363

2301
2765
3458

2796
2699
3353

2532

2869

2074

2200

2390
2960

2476
2988

1390

1393+

1764

2420
2816+
3124+
3443~

1631

1629+

2663
3291
1021
1765

SEQ 0079

171#

2467

1043~
945+«
1333«

SAVR1A
SAVR2
SAVRZ2A
SAVR3

15:19 PAGE 81
CROSS REFERENCE TABLE == USER SYMBOLS

1628+

RXDBUF

25=JUL=79

1025
1799

1798

1971

2652
3288
14074

CZDPD=DO
CZDPDD.P11

STACK = 001150
STD
= 000010
STJMFLL. 001334
STPSYN= 000400
003744
Sv0S
SWR
001202
SWREG
SWw00 =
SW01
=
Sw02 =
Sw03 =
SW04
=
SW0S
=
SWw06
=
SW07 =
SW08 =
SWw09 =
SW10 =
Sw1l
=
SWw12 =
Sw13 =
SW14
=
SW1S
=
SYSTST=

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

TABORT=
TCNFLG
TCRCIN=
TCRC7T=

002000
001322
010000
020000

TEMP
TEMP1

006054
001236

TEMP2

001240

TEMP3

001242

TEMPS

001244

TEMPS
001246
TEOM = C01000

TIMER = 004000

TKCSR
001204
TKDBR
001206
TLAST = 021454
TPCSR
001210
TPDBR
001212
TRPOK
004330

30A(1052)

MACY11
25=JUL=79 15:01

5934

739#
7934
7344
13374

6674

1231

655#
S74A
5734
5724
S70#
5694
S68#

c 7
15:19
=79
PAGE
82
25=JuL
CROSS REFERENCE TABLE == USER SYMBOLS
1125

1526

2878

3434

3589

959
1448
961
977
1658

961s
1453

973
1502

9%3
1032

1556

1948

2348

977
1521

1091
1523

1099
1658

1837

1871

1975

SEC 0080
2414

2961

3017

3139

3377

3459

1109

1128

1190

1197

1218

2399
3433

2538

2614

2654

1091

1099

S67#4
566#
S65#

5644
5634
5624

S61#
5604
5594
5584
7714
2697
7804
7874
7784
7778
1373

6934
2037«
2793
3466+
6944

1521
1218

1523
1197
1231
1453
1510

2721
2338
1026

15814
1016

3621

1448

1769

2767

2877

2990

3112

1027

1080+

1896

2193

1044

2038
2825+
3469

2080+
2827+
3470e

2081+
3187

2126
3281+

3309
3308«
3532
3428+

3426
3312
3535
3503«

1007

1713«

1010
1715

1938
3612

2045

2112
2618
2831
3366
1193

2221
2620

1911

1195

36420
1236
1238«

1913

3368
1252
1254

1258
1260+

1046+

2142+
3174+
1054+

1084

2143
3178«
1058«

1085

2206+
3179
1085+

2083
3291

1089+

2269
329

1578

1716+
2826+
3480
2162

2207+
3323«

2252
3425+

2255+
3478

3584
3493
3585«
3514
2457

3597+
3497
3596
3586+
2590

3610
3500
3598+

1732«

1940

2238
2705
2996

1733«

1942

2340
2707
3006

1711+

2267
3280+

1736

3507
3613

1734+

1972+

2036

2741+
3315

2742
3322+

2792+
3424+

2846+

1973«

2019
2847

2022+
3177+

2170

2287+

2288

3510

3518+

3519

2662

3068

3387

3475

1988

2003
2408
2771
3118

2095
2427
2782
3130

2097
2546

2342
2731
3008

3298

CZDPD-DO
CZDPDD.P11

MACY11 30A(1052)

25-JUL=79 15:01

TRP.PC
006222
TSOM
= 000400

2066
2190
2315
2388
2513
2610
2650
2693

21854
23144
23874
25124
26094
26494
26924
27624

016126
016610
017432
(017630

2763
2811
2867
2978
3089
3236

28104
28664
29774
30884
32354
32764

007400

1793

18264

ST
TST1I0
TST11
TST12

007160
011432
012240
012554
014004

TST1S
TST16
TST17
TST2
TST20

014156
014352
014720
007264
015142

T1ST21

TST4
TSTS

T1STé
1ST17

3277
3340

020110
020450
=

021454
wwwnnn

007514
007632

010172
010632

TTST
003174
TWOSYN= 000000

TXACT = 001000
TXCSR
001412

TXDBUF

1761

015406

TST22
TST23
TST24
TST25
TST26
TST27
TST3
TST31

1669

013344

TST14

1921

2726
3000
953~
2314~
3339«

001226

TST30

782%

001414

3418
3576

1686

1986

2770
3115
1534
2387«
3417+

17604

2777
3122
1666
2512+«
3575+

1827
1861
1895
1969
1131«

18604
18944
19684
20654
1132«

1134«

7614

2629

2675

1831+«
1970«

1837+«
1975«

1842~
1983

2780
3243
1672
2609*

1510+

1538+

1135«

11914

1541+

1635«
2216
2401
2611*
2694*
2775
2887
3066
3254+
3433+

1865+
1985«

2153«
2332
2539
2660
2746%
2877«
2992+
3216+
3363«
3590«
8544

2174«
2369+
2542«
2663
2764+
2879+
2998
3237+«
3375«
3617«
1639+

2191+
2389+
2555+
2672
2767«
2881
3003«
3239«
3388+

2209
2399+
2593«
2675
2769«
2884
3015+
3242«
3430+

1640+

1641

2110
2276+
2493+
2665
2773
2886+

2112
2331«
2497«
2667
2777«
2BB9+

2141+
2334«
2541+
2700«
2780«
2894+

2147+
2338«
2546
2703«
2782
2897+

1986

2219

2331

2818
3284
1674
2649+

2403

2821
3354
1760+
2692+

2541
2839
3360

2616
2880
3436

2659
2886
3442

2810~

2866+

3088+

1826+

1860+

1968+

33394
34174

3642

8534

2093

SEQ 0081

17924

35754

6234

25-JuL=79 15:19 PAGE 83
CROSS REFERENCE TABLE == USER SYMBOLS

2723
2993
6854
2189+
3276%

TSTNO

TST13

15874

1988

1990

1998+

1871+
1995

1911

2003

2150+
2340
2548
2705
2784
2900+

1636

1877«
1999«

2218+
2404
2614%
2697x
2778
892
069+
3287%
3435«
1913

2005

2219«
2342
2584
2707
2818+
2903+

1637

1899«
2048+

2228
2421
2615+
2699+
2812«
895
109+
3291+
3437
1921+

2036+

2221
2403+
2590
2723+
2821+
2906

1797+
1930

2092+
2316+
2498+
2654+
2722+
2822
2959+
3125+
3353«
3485+
1938+

2095
2238
2

2656+
2733
2839+
2996

2700
2889
3591
2065+
3235+

(ZDPD=DO
CZOPDD.P11

TXDLAT= 100000
TXDONE= 000200
TXINTE= 000100
TYPDAT
004602
TYPE
= 104402
TYPMSG
USER
=
WRDCNT
WRKO.F
XBX
XCSR
KERR
XHEAD
XPASS
XPOLY
XSTATQ
XTSTN
XVEC
$€
=

004502
000000
004234
004570
004374
003130
003152
006014
003144
007152
006042
005000
003136
000032

SENDAD
003104
SN
= 000030

SRAYQ = 177777

= 000014

= 023540

.BEGIN
JCNVRT
.CONVR
'EOP
.ERRTA
HLT
JINSTE

002660
004034
004030
002764
023274
004350
003516

MACY11 30A(1052)
25-JUL=79 15:01

3008
3294+
348

E 7
25-JUL=79 15:19 PAGE 84
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0082

3068+
3300
3465%

3115+
3354*
3469+

3116
3357+
3475+

3118
3360+
3478+

3122+
3366
3484+

3128
3368
3591«

3130
3384
3593«

3210+
3387+
3609+

3215+
3436+
3612w

3243+
3439s

3245e
3442

755#
7638
7640

3063+
3298
3450
2626
1769

1803

1999

2048

2106

2153

2232

2279

2404

2498

1492
971

14954
1083

3069

1871

1476
8214

3003

1837

1359

1101
1396

1106
1475

1683

1130
1476

3631

1137
1479

3632

1149
1480

1150
1482

st
1152
1484

1154
1488

1156
1495

1235
1558

176414

2070»

2196

2520«

3092+

3579

17624
2190
2694w
3277

1793
21914
2763
32784

179%#4
2315
2764w
3340

1827
23164
2811
3341w

18284
2388
BIoM
3418

1861
23894
2867
34198

18624
2513
2B6BM
3576

1895
2514k
2978
35774

18964
2610
29794

1969
26114
3089

1970#
2650
30904

1780
1962

1786
1970

1794
2054

1814
2059

1820
20674

1828#¢
2178

1848
2183

26114
2853
3270

1854
21914

2638
2860
32784

18624
2304

1784w
2054#

18144
2055

1815
20574

2598
2BO0
3227w

18184
21784

2599
2B02
32668

18484
2179

1849
21814

26384
2854
3269

18524
2304n

2639
0859w
3329#

835k

2542

1248

2593

1267

1600
1660
1472
14754
7684
1367~
1397«
1487
14908
1445
1451
1151
1173#
1157
1182#
1083
1574
1155
1179#
1721
1732
1088
15744
1481
15324
1153
11764
#1761

2066
26514
3236

20674
2693
3237w

649
969
#1748
1882
1888

2308
26514
2966
3333

o
1882¢

23164
2681
2971
33414
17480
1883

1677

1678

3125

3216

3363

3388

3444

164054

14534

11654
1754
18964

1500
17624
1957

2374
2686
29794
3405
1749

2381
2694w
3076
3411

175¢
19574

2389
2751
3082
34194
1780w

2502
2756
30904
3559

2506
764N
3224
3569

2503
754M
3224k
3560

2505@
27994
3225
35684

83w

1958

1781
19608

2514M
2799
3229
35774

2598
2804
32374
36424

2305
26414
2
3330

23074
2681
2967
33304

2374M
2682
2970w
34054

2375
Q6B4w
30764
3406

23794
27514
3077
34004

2500
2750
30814
35594

636#

635

6384

64SH

650N

6534

656N

660N

660

8854
902#
2020
2297
11244
836

8864
903
2028
2506w

8874
90SH
20764
2527w

889

B804
907#
2127
2574

8914
978
2160
2578

BO3
1108
2168

894w
15824
2171

895
1584w
22024

808r
720

834
1145¢
1467
641
826

B17

721w

13604
13594
3576
36428
1448#
12654

3485,

81
7874

;

82w
7884

20774
2564

g2k

793

794w

827w

8754

3520

8774

3608

8784

2603
28124
3266

716N

8794

8974
15864
22034

26014
28534
3267

7174

8814

898
15874
2253

7184

884

899
1602
2286

2643
Q86BN
3329

7198

9014
1937
22%

(ZOPD-DO

(ZDPDD.P11

MACY11

30A(1052)

25=JuL=79 15:01

25=Jul=79

003412
003432
003434
003536
005050
005006
003776
003736

824
12488
1246
828
639
838
832
830

12444
1268
12454
12764
944
1535#
13474
13334

.START

001562

657

94on

.TRPSR
.TRPTA
.TYPE

003160
003312
004242

004316
001344
003336

818
820
840

643
Bi6a
822

PAGE 85

CROSS REFERENCE TABLE == USER SYMBOLS

JINSTR
LINST1
-MSG
.PARAM
.PFAIL
.PKCLK
.RESO5
.SAVOS
.SCOPE
.SCOP1
LSETFL

15:19

1188#
12184
G164

14364
1441
12284

15534

1428
954

1557

SEQ 0083

$F INI
$GETFL
$GE TPA

S4 14
5414
5414
5414
S41#
541#
S41#
5414
541#
14
1%
14
%

5414
1%
H
364208
5414

$POK (K
$PRIOR
$QUEST

$SCOPE

4
5414
14
4
2474
3109
4

$SETFL
$SETVE
$SHUTD
$SIMB(

14
5414
5414
5414

$SPFAIL

SRESET

$SCOP?2

2986

3108

3347

3429

1970

2067
2745
3577

2174
2764
3617

2191
2812

2432
2631
2937
3153
3373

2117
2441
2674
2940
3158
3400

2128
2444
2677
2945
3163
3455

2169
2447
2714
2947
2181

2300
2874

<316
2958

2369
987

2389
3014

2104

3496

2303

2177

1956
1580
1541

1538

2642

2685

2755

1029
1002

2803

2873

3076

1#
%
14

$HDPL X
$HEADE
MSG
$MSGA
$ONE S

WWWWR
OO N
WNNO OCWVNWO
H 2O
N —
=W
O

S4 14

$DEC20
$DEC21
$DEC22
$DEC23
$DEC3
$DEC4
$DECS
$DECE
$DEC7
$DEF AU
$DELY
$EOP
$ERRTA

S41#
5414

2347
2492

2295

N NWOWWn~N

$DEC?2

$DECT
$DEC10

2254
2469
2795
3026
3249
3512

1953

1620

SEQ 0084

N
N

i
S41#4
»
5414
%
i
1
i
1#
S4 14

1876

—
—

QQQ
$ABORT
$AUTOS
$BINCT
$BUFFE
$CLKDN
$CLKUP
$CLRVE
$CYCLE
$DECST

2230
2461
2744
2957
3200
3502

1705

1701

—d

2172
2453
2740
2954
3189

1139
541

1#
i
604n

]

PAGE 87
15:19
(ROSS REFERENCE TABLE == MA(RO NAMES

25=JuL=79

WO Wnn
mwoomwg
W

25=JUL=79 15:0

(ZDPDD.P11

DUPEND
DUPFRN
HLT

30A(1 052)

INWNWND
NN —

MACY11

CZDPD=DO

1661

1779

1797

2554
3237

3621

1813

1831

2611
3286

1847

1865

2632
3348

1949

2694
3430

2716
3456

MACY11 30A(1052)
25=JuL=79 15:01

{ZDPD=DO
C20PDD.P11

SSMAL L

$SYNC
$TRPDE
$TSIN
$VARIA
SWAIT
$x7

. ABS.

1546

S41e
L J
1

2724
817
1754

»
1w
2664
i®

659
1910

2756

2178

2804

2704

1748
2181

2754
3405

2799
3409

023540

000

ERRORS DETECTED:

2775

819

1786

2860
1922

2730
1752

2304
2802
3559

H 7

25=JuUl =79 15:19 PAGE 88
(ROSS REFERENCE TABLE == MACRO NAMES

823

2822
825

2881

3082

3229

2778
821
1820
2971

2819

1939

1987

r 44l
1780

2307
2853
3568

1854

2781

1784

2374
2859

827

2884
829

2887
831

2998

3120

3355

3358

34,37

3440

2183
3411

2308
3569

2381

2506

2603

2643

2686

2220
3005

2234
3116

2339
3127

2405
3297

2424
3364

2617

2598
3081

2601
3224

2638

2641
3266

2681

2544
3447
2054

1888

1962

3270

2059
3333

2001
2828

2094
2905

2108
2994

1814

2379
2966

1818

2502
2970

CZDDPDD.BIN,(ZDPDD.LST/CRF/SOL/NL
: TOC=(ZDPXX.MAC,(ZDPDD.P11
RUN-TIME: 34 47 3 SECONDS
RUN-TIME RATIO: 1396/86=16.1
(ORE USED:
25K
(49 PAGES)

SEQ 0085

1848

2505
3076

1852

1882

1886

3227

1957

1960

3269

2684
3329

2057
2751
3332