Digital PDFs

AH-8693D-MC

January 1979

87 pages

Original

4.3MB

view download

OCR Version

3.7MB

view download

Document:	CZDUED0 DU11 OFF-LINE TIMING INTER JAN 1979 bw
Order Number:	AH-8693D-MC
Revision:	000
Pages:	87
Original Filename:	CZDUED0__DU11__OFF-LINE_TIMING__INTER__AH-8693D-MC__JAN_1979_bw.pdf

OCR Text

OFF-LINE TIMING & INTER

CZDUEDO

AH-8693D-MC

JAN i§79

FICHE1 OF
1

MADE
IN USA

copvricHT “73-7s

ROEAREN

(ZOUE-D MACY'1

CZDUT1.HLOD

30A(1052)

21-NOvV-78

15:50

20-NOV-78 16:48

PAGE
1

SEQ 0001

IDENTIFICATION

THE

INFORMATION

PRODUCT

CODE:

A(-8692D-M(

PRODUCT

NAME:

(ZDUEDO DU11

RELEASE DATE:

JUN 1978

MAINTAINER

DIAGNOSTICS

THIS

DOCUMENT

SUBJECT

OFFLINE

TIMING &

CHANGE

W]ITHOUT

INTERRUPT

TESTS

NOTICE

AND

A LICENSE

AND

SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY £RRORS
THAT

THE

MAY

APPEAR

SOF TWARE

MAY ONLY BE

THIS

DESCRIBED

DOCUMENT.

USED OR COPIED

THIS

DOCUMENT

IN ACCORDANCE

FURNISHED

WITH

THE

UNDER

TERMS OF

SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR “HE USE Ot
RE. TABILITY OF

ITS

SOFTWARE

ON EQUIPMENT

(()

“G78 BY DIGITAL EQUIPMENT

1973,

THATM

IS NOT

SUPPLIED BY DIGITAL.

CORPORAT[ON

(ZDUE=D MACY11 30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV-78 16:48
GENERAL

15:50

PAGE 2

SEQ 0002

DESCRIPTION

THIS DJAGNOSTIC

CAN CHAIN

16 DUT1'S,

THIS MEANS

THAT

16 DEVICES CAN BE SEQUENTIALLY EXERCISED.
THE DIAGNOSTIC
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,
AEDTESNTINUES EXERCISING ALL DEVICES

HAL

IN THIS FASHION UNTIL

REQUIREMENTS

THE DUT1 OFFLINE COMBINED TIMING AND INTERRUPT TESTS
VERIFY THAT THE TRANSMITTER AND RECEIVER CAN CORRECT.
Y
"ALK TO EACH OTHER.INTERRUPT LOGIC AND PRIORITY LEVEL
/VECTOR ADDRESSES ARE ALSO VERIFIED

PDP=11 FAMILY STANDARD
REGISTER {LOC. 177570)

DJ11
ONE

2.0

(OMPUTER WITH OR W]THOUT

Sw]TCH

SYNCRONOUS/ISOCRONOUS OPTION
(ONSOLE

TELETYPE OR EQUIVALENT

STORAGE
THE

PROGRAM LOADS

AND

RUNS

[N 4K

MEMORY,

LOADING PROCEDURE
THE STANDARD PROCEDURE
IS TO BE USED.

FCR LOADING ABSOLUTE BINARY

175

8k
12K

037500
057500

20K
24K
28K

117500
137500
157500

16K

TAPES

STARTING ADDRESS
FOR ABSObUTEOEOADER

HARDWARE

077500

STARTING PROCEDURE
A

ALl

NOTF :

sl AR

SRl

AR R

BEFORE PROCEEDING IT IS IMPORTANT 'C
"C REALIZE IF
HAVE THE DUY1

ONE DOESNOT
SET UP TO THE

CZ0UE~D MACY11_30A(1052)
21-NOV-78
CZDUIT.HLO
20-NOV-78 16:48

15:50

PAGE 3

SEQ 0003
DEFAULT PARAMETERS ( SEt SECTION
8 OF THIS DOCUMENT) , THEN ONE MUST
SET SWO0 = 1, AND ANSWER THE PARAMETER

QUESTION ROUTINE.
FEFEE 424440444t

4.1

CONTROL

NOTE:

40 2444404444444 4 4444004434444

SWITCH SETTINGS

SOFTWARE
THE

SWITCH REGISTER IS DEFINED AS LOC.

SOF TWARE

DISPLAY

AFTER PROGRAM LOAD (INITIAL
AL. CONSOLE SWITCHES DOWN
4.1.¢

44444944
4 4444444400444+
44424

DEFINED

176,

WHILE

LOC.

174.

PROGRAM START)

TO MODIFY DEVICE VECTNOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART OR TO RUN MULTIPLF DEVICES

Sw00=1
TO START

Sw01-1
4.1.64

TO LOCK

PRCGRAM AT SELECIED TEST AFTER A PROGRAM RESTART
(ONLY IN SINGLE DEVICE TESTS)

ON SELECTED

(ONLY

TEST

IN SINGLE

SwO2-1

NOTE
I: IN GENERAL

SWO!

NOTEZ: WITHOUT Sw01=1
STARTING ADDRESS

AFTER A PROGRAM RESTART

DEVICE

TESTS)

WwILL BE USED WHEN SW02-1

THE

STARTING ADDRESS FOR ALL

THE
THE
THE

RETARTING ADDRESS FOR ALL TESTS
IS
STARTING ADDRESS TO ENTER A SELECTED
STARTING ADDRESS TO LOCK ON TEST IS

TESTS

4.3

PROGRAM AND/OR OPERATOR ACTION

4«30

INITIAL PROGRAM START
4.3.1.1

[S USED

“LOCK ON TEST'' WILL DEFAULT
IS

TO TEST

000200
000200
TEST IS
000200

000200

LOAD PROGRAM INTG MEMORY WITH ABSOLUTE LOADER

4.3.1.2 LOAD ADDRESS 000200
4.3.1.3 CLEAR CONSOLE

SWITCHES

4.3.1.4 PRESS START

.3.1.5

THE PROGRAM WILL

TYPE

'DUI1

(ZDUE=D TAPE E'* "ONCE ONLY)

(ZDUE-D MACY11 _30A(1052)
21-NOV-78
CZOU11.HLO
20-NOV-78 16:48
NOTE:1F

THE

SOF TWARE

WILL BE

17:50

SEQ 0004

SWITCH REGISTER

TYPED AFTER

SWR XXXXXX NEW=

PAGE 4

THE

“ROGRAM

IS SELECTED THEN THE FOLLOWING

IDENTIFIES

(RFFER TO SECTION S.

ITSELF:

FOR OPERATOR'S OPTION)

4.3.1.7 THE PROGRAM WwILL TYPE 'R'' TO INDJCATE THAT
TO START TESTING ,AND THEN TESTING WILL BEGIN

4.3.2

IS ABOUT

PROGRAM RESTART WITH ALL SWITCHES DOWN
4.3.2.7

4.3.3

THE PROGRAM WILL

TYPE 'R'' AND WILL

COMMENCE

TESTING

PROGRAM RESTART WwITH SWO00 1
4.3.3.1

LOAD ADDRESS

4.3.3.2 SET

000200

SW00-1

4.3.3.3 PRESS STAR”
NOTE :IF THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES JTSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)

4.3.3.4

THE PROGRAM WILL TYPE "' 1ST DEVICE: RECEIVER CONTROL REGISTER
ADDRESS'' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.3.5

TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL
REGISTER ADDRESS OF THE DU11 TO BE TESTED
FOL_.OWED BY A

<CARRIAGE

AN INCORRECT ADDRESS

AND WILL

THEN REPEAT

RETURN>

TYPED

,THE

THE MESSAGE OF

PROGRAM WILL

TYPE '*'"

4.3.3.4

4.3.3.6 THE PROGRAM WILL TYPE 'VECTOR ADDRESS-'' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD

4.3.3.7 TYPE IN THE BASE RSCEJVER INTERRUPT VECTOR ADDRESS
FOR THE DU11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>
IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6

TYPE

‘"'

4£.3.3.8 THE PROGRAM WILL TYPE ''ARE YOU RUNNING MULTIPLE DEVICES '
(Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE kFYBOARD

4£.3.3.9 TYPE

IN THE APPROPRIATE ANSWER

AN INCORRE(T ANSWER [S GIVEN,

AND WILL

THEN REPEAT

THE

MESSAGE

4 "NO'* ANSWER IS GIVEN:

YES OR NO FOLLOWED By A

THE PROGRAM wlLL
OF

TYPE '%*°

4.3.3.8

JUMP TO SECTION 4.3.3.°2

CZDUE-D MACY11_30A(1052)
21-NOV-78
CZDU1I1.HLO
20-NOV-78 16:48

15:50

PAGE

SEQ 0005

IF A "'YES'' ANSWER IS GIVEN:THE NEXT QUESTION IS ASKED

6£.3.3.1C
¢.3.3.1

THE PROGRAM WILL TYPE ‘LAST DEVICE:RECEIVER CONTROL

TELETYPE KEYBOARD

TYPE IN THE ADDRESS OF THE LAST RECEIVER (ONTROL REGISTER
ADDRESS OF THE DU11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10
NOTE :ALL ADDRESSES SHALL BE CONTIGUOUS
4.3.3.11.1

IE. MORE

AN 'OUT OF

THAN 16

(10)

TYPE '%*'

RANGE'' ADDRESS IS TYPED

DEVICES AWAY

(UPWARDS)..... THE

PROGRAM WILL TYPE 'OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-''
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.3.11.°2

TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL

THE

BY A <CARRIAGE RETURN>

DU11

TO BE

TESTED

FOLLOWED

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1

1YPE

'"?"'

If A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED...........
«...3CHOOLS OUT......... THERE IS NO PROTECTION FOR THIS.
THE PROGRAM JILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM
1ST DEVIC* ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES

TYPED

FOX

OBSERVE
«.3.3.12

WAIT

4.3.3.13

FIRST AND LAST

SEE SECTION /.2

THE PROGRAM WILL TYPE ‘DU PRIORITY LEVEL-''" AND
FOR AN INPUT FROM THE TE.ETYPE KEYBOARD

TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF THE
DT OR DUTT'S TO BE TESTED FOLLOWED BY A <CARRJAGE RETURN>
E?OEE THATIALL gULTIPLE DEVICES MUST BE AT THE SAME PRIORITY
VEL).
ot

IF_ AN INCORRECT LEVEL

AND

IS TYPED

,THE PROGRAM WILL

REPEAT THE MESSAGE OF «.3.%.12

6.3.3.14

SELECTED

KF YBOARD

«.3.3.15

DEVICE.

LOCATION @ ACTREG:

THE

TYPE

"ROGRAM WILL

TYPE

'‘# OF

SYNC

(HARS

TYPE ''>*’

OR 2)='"" AND WAIT TOR AN INPUT FROM THE

TELETYPE

IN THE APPROPRIATE ANSWER “"1'* QR "2'' FOLLOWED

BY A <CARRJAGE RETURN>.(NOTE:A_L MULTIPLE
BE THE SAME)

DEVICES MUST

IF AN INCORRECT ANSWER IS TYPED ,THE PRGGRAM willL TYPg '*>**

(ZDUE=-D MACY11_30A(1052)
21-NOV-78
CZDU11
. HLO
20-NOV~-78 16:48

15:50

PAGE 6

SEQ 0006

AND WwILL REPEAT THE MESSAGE OF 4.3.3%.14
6.3.3.1€

THE PROGRAM WILL

AND WAIT

4.3.3.17

FOR AN

INPUT

TYPE

'’ IS SEC XMIT JUMPER #6 IN ?

FROM THE

TELETYPE

KEYBOARD

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED
BY A <CARRJAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES
MUST BE

THE

SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.16

6£.3.3.78

THE PROGRAM WILL TYPE IS SEC REC JUMPER # S5 IN °

OR N)~"" AND WAIT

TYPE [N "HE APPROPRIATE ANSWER YES OR NO FOLLOWED
A <CARRIAGE RETURN>.
(NOTE: ALL MULTIPLE DEVICES MUST BE

FOR AN

INPUT

FROM

THE

TELETYPE

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.18

«.3.3.21

# &

2?2

THE PROGRAM WILL
TYPE

RETURN>.

THE

SAME)

'*2''

FOP

INPUT

FROM

THE

TELE1vTMF

(NOTE:

ALL

MULTIPLE

DEVICES MUST BE

TYPE

KEYBOARD

THE

SAME)

"'’

THE PROGRAM WILL TYPE ‘'ARE YOU RUNNING [N MAINT,
MODE EXTERNAL ? AND ...... DO YOU HAVE THE EXTERNAL MODEM
BYPASS JUMPER (ONNECTOR ON ? (Y OR N)='" AND WAIT FOR AN

4.3.3.23

TYPE

A <CARRIAGE

4.3.3.24

HAS

TELETYPE KEYBOARD

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY

RETURN>.

(NOTE:

AN INCORRECT ANSWER IS

AND WILL

REPEAT

THE

ALL MULTIPLE

TYPED

MESSAGE

THE PROGRAM WILL TYPE
STARTED AND WILL COMMENCE

PROGRAM RESTART WITH

NOTE:

TYPE

[N THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRJAGE

INPUT FROM THE

4.3.4

KEYBOARD

TYPE ‘IS OPT CLR ENABLE JUMPER

(Y OR N)="" AND WAIT

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WIL.
AND WILL REPEAT THE MESSAGE OF 4.3.3.20

4.3.3.22

TYPE ‘"2*’

4.3.3.19

4.3.3.20

(Y OR N)="'

DEVICES MUST BE

,THE PROGRAM WILL

TYPE

'*'*

4.3.3.22

‘R'' TO INDICATE
TES:.NG AT TEST

THAT
1

SW01i-1

THIS WILL ONLY WORK WHEN A SINGLE DEVICE

THE

IS SFLECTED

+o.1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED

If MULTIPLE DEVICES WERE PREVIOUSIY SELECTED,LOAD 000200,
Q?? EE%E%T SWOO-1 AND ANSWER 'NO'‘ TO THE MULTIPLE DEVICE QUESTION

SAME)

C({OUE~D MACY11_30A(1052)
21-NOV-78
CIDUTT.HLO
20-NOV-78 16:48
4£.3.4.1

15:50

PAGE

SEQ 0007

LOAD 000200

6.3.6.2 SET

SW01=1

4.3.4.3 PRESS LTART
NOTE:]F THE SOF TWARE SWITCH REGISTER IS S ?%ECTED THEN THE FOLLOWING
WILL BE TYPE® AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FGR OPERATOR'S OPTION)
4.3.4.4

THE PROGRAM WILL

THE

4.3.4.5 TYPE
Bt

TYPE

TELETYPE KEYBOARD

IN THE ADDRESS OF

THE

TYPE

TESTING AT

THE

NOTE:

MUST BE

CARE

.SINCE THERE

THAT

TEST

TAKEN WHEN THIS

SW0?2

FEATURE

[T HAS STARTED

IS USED

TEST

-1

NGTE: THIS WILL ONLY WORK WHEN A SINGLE
SEE NOTE IN 4.3.4 FOR MORE DETAILS

4.3.5.1

THAT

IS NO PROTECTION AGAINST SELECTING AN ADDRESS

THE MIDDLE

PROGRAM RESTART WITH

RETURN>

'R'' TO INDICATE

SELECTED

FROM

TEST AT WHICH THE PROGRAM IS TO

STARTED FOLLOWED BY A <CARRIAGE

4.3.4.6 THE PROGRAM WILL

4.3.5

'‘TEST PC~"" AND WAIT FOR AN INPUT

DEVICE

SELECTED

LOAD ADDRESS 000200

4.3.5.2 SET Sw02 -1
NOTE: IT MAY BE ADVANTAGEOUS TO SET SWO1-1

(OPTIONA.)

4.3.5.3 PRESS START
NOTE:IF THE SOF TWARE SWITCH REGISTER ]S SEL&C
Ek
TED THEN THE FOLLOWING
wli_L BE TYPED AFTER THE PROGRAM !DENTIFIES ITSELF:
SWR XXXYXX NEW= ~ (REFER TO SE"/iON 5.
FOR OPERATOR'S OPTION)
4.3.5.4

THE PROGRAM WILL TYPE 'LOCK ON SELECTED TEST ? (Y OR N)-''
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.5.5

TYPE IN THE APPROPRIATE
<CARRIAGE RETURN:>

ANSWER YES OR NO FOLLOWED BY A

1F A NO ANSWER IS GIVEN: THIS LOCK ON TEST JILL BE IGNORED
AND THE PROGRAM WILL TYPE ‘R'' TO INDICATE THAT [T hLAS STARTED
TESTING AT

6.3

TEST

[F A YES ANSWER WwAS GIVEN:THE PROGRAM WILL
THE

PROGRAM WILL

TYPE

‘R’ TO

INDICATE

THAT

ACT AS FOLLOWS...
IT HAS STARTED

TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED
UR
IF ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON
THE TELETYPE AND SO FORTH THRU THE PROGRAM. [F SWO1 -1
[T
wi
L PERFORM AS

ON A SELECTED

IN SECTIOM 4.3.4

ALLOWING ONE

TO FREEZE

TEST RATHER THAN DEFAULTING TO TEST

(ZDUE-D MACY11_30A(1052)
21-NOV-78
CZDU11.HLO
20-NOV~78 16:48

6.4

15:50

PAGE 8

SEQ 0008

STATUS MAP

THE STATUS MAP IS AN AREA OF THE DU11
WHICH WILL ALLOW
THE TRANSFER OF PARAMETERS

[F YOU WISH TO TEST
A DU11
, WHICH
VALUES ,YOU NEED ONLY GO THROUGH THE
AND ANSWERING ROUTINE ONCE.

THE FOLLOWING COMBINZTIONS OF
ALLOW YOU ACCESS TO THE STATUS MAP,

SW07-1

START AT 200

THE DIAGNOSTIC WILL

AND BYPASS ALL OF

NOTE :

DJAGNOSTICS,
BETWEEN DIAGNOSTICS.

IS NOT AT THE DEFAULT
TEDIOUS QUESTIONING
SWITCH REGISTER

SETTINGS WILL

GO TO THE STATUS MAP

THE WUESTIONING ROUTINE.

IT IS
EXTREMELY IMPORTANT THAT EITHER YOU HAVE
JUST ANSWERED THESE QUESTIONS DURING A PRIOR
DIAGNOSTIC
OR THAT YOU HAVE MANUALLY ENTERED THE CORRECT VALUES
FOR VECTOR ADDRESSES ETC.,IN THE AREA DESIGNATED
FOR THE STATUS MAP, [T IS IMPORTANT THAT
THIS
BE

BEFORE

THE NIAGNOSTIC HAS NO METHOD

THAT

PERFORMED

STARTING AT 200.

THE

[ ATUS MAP HAS

INDEED

TO DETERMINE

BEEN LOADED

CORRECTLY.

THE DIAGNOSTIC ASSUMES ThAT WHEN SW07=1 THE VALUES IN
THE STATUS MAP ARE THE VALUES TO BE USED .
THESE VALUES CAN BE THE WRONG VALUES
, BUT THE
DIAGNOSTIC WILL NOT REALIZE THAT A MISTAKE HAS BEEN MADE.

[F BOTH SWO7 AND SWOU (SWITCH REGISTER SWITCHES)

ARE

SET

,(EQUAL

SEEING SWO7 SET,

USED.
THE

TO USE

TO 1),

THE PROGRAM WILL

THE
IS

FIRST

SET

SWO0-0 AND

SW07=0.

IN SECTION

TIME A PROGRAM IS LOADED OR

ALTERED

VIA

SW00O AND

THE DEFAULT VALUES FOR THE DU11'S

OPERATOR MUST

IS EXPLAINED IN GREATER DETAIL
OF THIS DOCUMENT.
A PROGRAM

IGNORE

THE VALUES FROM THE STATUS MAP WILL BE

THE

THE USE

FIRST

4.3

TIME

PARAMETER RESELECTION QUESTION

AND ANSWER ROUTINE,
A PARTIAL STATUS MAP WILL BE PRINTED.
THIS MAP WILL BE PRINTED ONCE FOR ANY COMBINATION OF SWIICHES

EXCEPT SWO1. RESTARTING THE PROGRAM WILLNOT PRINT CUT A

MAP UNLESS

THE PROGRAM PARAMETERS ARE BEING RESELECTED

BY PUTTING SWOC 1. (ON)

THE MAP WILL

STATUS MAP

LOOK

t IKE:

<w00

C{DUE-D MACY11_30A(1052)
21-NOV-78
CZDUTT.HLO
20-NOV-78 16:48

15:50

PAGE 9

SEQ 0009

13007 177777
1302/ 0C2000
"304/7 177777
THE BYTES ARE

1300

THE NUMBER COF SYNCHRONOUS C(HARACTERS REQUIRED FOR
SYNCHRONJI ZATION.
SEC
TRANSMIT JUMPER
SEC RECEIVER JUMPER

1301
1202
1303
1304
1305
AND

DEFINED AS FOLLOWS:

OPTIONAL JUMPER

MULTIPLE DEVICES (NO-O
EXTERNAL MODEM BYPASS?

THE BYTE_IS O ,

THE BYTE

IS 377 ETC.

, YES
1)
(NO-O ,YES-

THE JUMPER IS NOT CONNECTED
THE

JUMPER SHOULD BE

CONNECTED.

OPERATING PROCEDURE
IF

THE DIAGNOSTIC

IS RUN ON A CPU WITHOUT A SWITCH

REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
1f THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

AND

[T CONTAINS ALL ONES

(LOf.

176)

(177777)

1S USED.

THEN THE SOF TWARE

SWITCH

:
CONTROL
THIS PROGRAM ALSQO SUPPORTS THE DYNAMIC LOADING OF THE <OF TWARE
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

DOING THE

FOLLOWING:

TYPE CONTROL

OF
OF

G <*G>;

THIS WILL ALLOW THE

TTY

TO ENTER DATA INTO

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.
THE MACHINE WILL THEN TYPE: SWR-XXXXXXNEW- (XXXXXX IS THE OCTAL
THE

SOF TWARE

3) AFTER THE

(¥al

SWIT(CH

THE

SWITCH REGISTER.)

CONTENTS

''NEW='"' HAS BEEN TYPED THEN THE OPERATOR (AN DO ONE

FOLLCWING AT

THE

TTY:

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(CR>,
(ONLY NUMBERS BETWEEN 0-7 WIL. BE ACCEPTED AND ONLY & NUMBERS
WILL BE ALLOWED)
IF A <CR> [S THE FIRST KEY DEFRESSED THE SOF TWARE SW]T(H
REGISTER CONTENTS WILL NOT BE CHANGED.

IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM JI_L
BACK TO STEP 2.

OPERATIONAL

SW15 =1
Swié -1

SwW13 =1

SWITCH SETTINGS

HALT ON ERROR

LOOP ON CURRENT

TEST

INHIBIT ERROR TYPEOUT

SEND YOU

(ZDUE-D MACY11_30A(1052)
21-NOV-78
CZDUIT.HLO
20-NOV~78 16:48
Swi11 =1
Wib
]

SwO8
SwQ?7
SwQ2
Sw01
SwO0
TO

15:50

PAGE

SEQ 0010

INHIBIT ITERATIONS
ESCAPE TO NEXT TEST ON ERROR

-1
-1
1
=1
=1

INHIBIT

LOOP ON ERROR
USE STATUS MAP PARAMETERS
LOCK ON TEST
RESTART PROGRAM AT SEi ECTED TEST
RESELECT VECTOR AND TONTROL REGISTER ADRESSES
EPARAME TERS AFTER A SROGRAM RESTART

"END OF

PASS'' TYPEOUT

T"URN TELETYPE

OFF

ERRORS

6.7

ERROR HALTS
THERE ARE FOUR DiSTINCT ERROR TYPEOQOUTS
NOTE:
THE
THE

THE

SWR=XXXXXX

6.1.1

SOt TWARE

SWITCH REGISTER

THE OPERATOR IS REQU.RED
FOLLOWING WILL BE TYPED:

NEW-

(REFER

6.1.4

CALL

THE

EXPECTED

TO THE ERROR HANDLER

DEVICE

THE ADDRESS OF

WHERE

YYYYYY

THE EXPECTED CONTENTS OF

WHERE

2222.7

THE

PRESENTLY UNDER

THE

FAILING DEVICE

CONTENTS OF

THAT REGISTER

RECEIVER ERROR PC
EXPECTED
YYYYYY

ACTUAL
2222!27

THE

T16XXXX

THE

ADDRESS OF

WHERE

YYYYYY

Tht

EXPECTED DATA (ONTENTS OF

WHERE

222277

THE

ACTUAL

+2 =

THAT REGISTER

WHERE

222222

CONTINUE.

FOR ERROR DESCRIPTION

16XXXXx

PC +2

DEPRtSSING

FOR OPERATOR OPTION)

WHERE

(HANGED AFTER A HALT

ACTUAL

YYYYYY

ACTUAL

TO BE

DEVICES

+2 = REGISTER ERROR PC

TEXXXX

£.1.3

THE

TO LOCATE

TEST WHEN RUNNING MULTIPLE

A <*G> BEFORE

"HLT''
IN DIAGNOSTIC

CHECK ADDRESS @ RXCSR:

TYPE

TO SECTION 5.

PC+2 = ERROR P(
WHERE PC +2 IS THE ADDRESS OF
REFER TO THE ABOVE

6.1.2

FAILING RECEIVER

DATA (ONTENTS OF

(RXDBUF®

THAT REGISTER

TRANSMITTER ERROR P(
EXPECTED
YYYYYY

ACTUAL
1221277
THFE

WHERE

16XXXX

THE ADDRESS OF

WHERE

YYYYYY

THE

EXPECTED

FAJLING TRANSMITTER

(ONTENTS OF

““AT REGISTER

(TX(SR)

CZDUE~D MACY11_30A(1052)
21-NOV-78
CZDUI1.HLO
20-NOV-78 16:48
WHERE

222717

THE

15:50
ACTUAL

PAGE

SEQ 0011

CONTENTS OF

THAT REGISTER

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF

6.2

ERROR RECOVERY

6.2.1

Sw15 =0
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTICN IS

REQUIRED

TO CONTINUE

ERRORS

TESTING

1
SWis
[F THE PROGRAM IS RUN WITH SW15 -1

AFTER

THE

PROGRAM HAS HALTED

NOTE:

THE PC ¢ 2 OF

CONSOLE "'CONTINUE

6.2.3

SWITCH'
THE

,PRESS

,TO CONTINUE
THE

TESTING

PROCESSOR

"MLT'" WILL BE DISPLAYED

IN THE DATA LIGHTS

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HA_T [N
THE

TRAPCATCHER.

THE ADDRESS AT WHICH THE

PROGRAM

HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO

RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL

6.3

END OF

PASS ROUTINE

IN THE FORM:

TROUBLESHOQTING AIDS

ERRCNT:

& PASCNT:

CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY.
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS.

THIS

TYPEQUT

IS MENTIONED HERE

END OF PASS TAPE
T6XXXX - DEVICE
WHERE

wHERE

T16XXXX

TO INHIBIT

THE

THIS

CONVENIENCE

TAPE

FOR

THE

LOADED
DEVICE'S BASE

RECISTER ADDRESS

TYPEOUT - TURN TELETYPE OFF

RESTRICTIONS

MULTIPLE DEVICES

UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER,
MUST HAVE (ONTIGUOUS ADDRESSES AND VECTORS
NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME
YOJ CAN (HANGE
‘‘ZERO:
ADD
#10,BASE]V
(VECTORS)'' TO “ZERO:
ADD
#0,RASEIV'';
THEREBY

THE

VECTOR ADDRESSES

UPDATED AFTER EACH PASS.

WILL

NOT

THEY
INTERRUPT VECTOR
JNEXT BLOCK

(ZOUE=D MACYT1_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOV~78 16:48
7.2

15:50

PAGE

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES
WHEN RUNNING MULTIPLE

DEVICES

AN ACTIVE BIT

FOR EACH DEVICE RUNNING UNDER TEST

DEVICE O

7.2.2

JE.

,BIT 15 FOR DEVICE 15

TO DISQUALIFY

7.2.1

SEQ 0012

SET

BIT J fFOR

DEVICES:

DEVICE O IS TO BE DISQUALIFIED ,SIMPLY RESTART

PRGGRAM WITH SW00 =1

AND OMIT

IF HOWEVER, DEVICES 1

ARE

TO BE

THE

FIRST DEVICE.

THRU 15 OR ANY COMBINATION THEREOF

DISQUALIFIED....LOAD

THE

LOCATION OF

ACTREG:

OBSERVE THE ACTiVE BITS (ACTIVE =1, NONACTIVE = Q)
AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED

7.2.2.7
7.2.2.2

TO RESTART...LOAD 000200 IN SWR AND DEPRESS START....

THE

PROGRAM WILL

civuenn OR

CONTINUE

Ww!TH

THE

DEVICE

..... LOAD 000200 WITH SWO0 =1

IT WAS

WILL

HALTING.

AN[C DEPRESS START....

ANSWER THE QU-STION :1ST DEVICE : ETC...........
«...THE PROURAM WILL CONTINUTM WITH DEVICF O

7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE

7.3.1

IN BEFORE

TYPEOUT

CABLE DELAYS
NOTE: EXTERNAL LOOP BACK
TO PROVIDE

THE PROGRAM

AN ERROR MESSAGE....... LOAD & START AT

TESTS ONLY

SUFFICIENT DELAY

(MODEM CABLE

FOR CLOCK

SIGNAL

WITH H315

OVER

THE

0G0200

CONNECTOR ON)

CABLE,

LOCATION 'HOLD:'* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES.
iF

PRESENTLY "HOLD:'* =20
IS SUFFICIENT TIME ON AN 11/20 MACHINE.
RUNNING ON AN 11/40 Ok AN 17/45 "HOLD:'* MUST BE PATIHED TO 40

BASICALLY DON'T

TRY TO EXCEED

10K

TO 12k RATE USING THE

EIA DRIVERS

TO USE THE 'XOR'' TESTER ,THE BRANCH AROUND THE '‘XOR''
CODE MUST BE PATCHED TO % 'NOP'". (SEE LISTINGS FOR DETAILS)

DEFAULT PARAMETERS:
1ST DEVICE:

RECEIVER CONTROL

VECTOR ADDRESSARE

YOU RUNNING MUL TIPLE

DEVICES

LAST DEVICE: RECZIVER CONTRTML
DJ PRIORITY LEVEL~
& Of

SYNC

CHARS

LEVEL

SELECTED -

?- NO

770

MULTD:

LASTADD:
LEVEL

SYNCNO:

377

YES

SEXM]1:

IS SEC REC JUMPEK # ©

YES

SCREC:

IN 7=

DURIV:

DUFRT:

IS SEC KHlY.u%F?R # 6 [N 7=

160040

377

CZDUE-D MACY'T 30A(1052)
21-NOV-78
CZDUTT
. MO
20-NOV~78 16:48

15:50

PAGE

1S OPT (LR ENABLE JUMPER # 4 IN 2=
DO YOU HAVE

THE

YES OPTCLR: 377

EXTERNAL MODEM BYPASS JUMPER

FONNFCTOR ON (H315)=

YES

FROGRAM DESCRIPTION

9,"

THIS PROGRAM PERFORMS THE OFFLJivE
TIMING &

SEQ 0013

INTERRUPT

TESTING

SEE LISTING FOR DETAJLS

THE

COMBINED
DEVICE

JMRBY:

(TRANSMITTER

377

& RECEIVER)

10.

FLOW (HARTS: RECEIVER FLOW,TRANSM]TTER FLOW, TRANSMITTER & RECEIVER FLOW

LISTINGS

CZDUE-D MACY11 30A(1052)
CZDU11.PAR
21-NOV-78

676
677

000000°* 000000G

21-NOv-78

5:17

15:50

PAGE 15

SEQ 0014

CZDUE-D MACY11 30A(1052) Z%ENOV-78
18-JUL~78 1
CZDUED.P11

15:50

PAGE 18

SEQ 0015

.ENABLE ABS

;DU1T CZDUE-D_TAPE E
;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
;STARTING PROCEDURE

;LOAD PROGRAM

;PRESS START
;PROGRAM WILL TYPE 'DU11 CZDUE-D TAPE E '
sPROGRAM WILL TYPE "R'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE 'END QOF PASS TAPE E''

JAND THEN RESUME TESTING

;SWITCH REGISTER OPTIONS
100000

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

5W15=100000

SW14=40000
Sw13=20000
SW12=10000
SW11=4000
SW10=2000
Sw09=1000
SWO8=400
Sw07=200
SW06=100
Sw05=40
SW04=20
Sw03=10
Sw02=4
Sw01=2
Sw00=1

;=1,HALT ON ERROR

; 1.LOOP ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT
;= 1,INHIBIT ITERATIONS
;=1,ESCAPE TO NEXT TEST ON ERROR
;=1,L00P WITH CURRENT DATA
;-1,L00P ON ERRCR
;+
=1, USE STATUS MAP

JLOCK ON TEST SELECT
sRESTART PROGRAM AT SELECTED TEST
JRESELECT VECTOR AND CONTROL REGISTFR
;ADDRESS AFTER PROGRAM RESTART

CZDUE~D MACY11 30A(1052)
21-NCv-78
18-JUL=-78 15:56
CZDUED.P11

060000
000001

730
73
732
733
734
735
736
737
738
739
740
74
742
743
744
745

746
747
748
749

750
751
752
752
754
755
756
757

758

759
760

761

762
763
764
765
76¢
7¢7

;GENERAL REGISTER

JGENERAL REGISTER

R4=%4
R5-%5

;GENERAL REGISTER
;GENERAL REGISTER

PC-%7

;PROGRAM (COUNTER

R2=%2
R3=23

;GENERAL REGISTER
;GENERAL REGISTER

SP=%6

JPROCESSOR STACK POINTER

JLOCATION EQUIVALENCIES
177570
177570
177776

001*00

DSWR=177570
DLIGHTS-177570

sHARDWARE SWITCH REGISTER LOC.
;HARDWARE DISPLAY REGISTER LOC.

STACK=1100

:START OF PROCESSOR STACK

PS-177776

:PROCESSOR STATUS WORD

SINSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

100000
040000
020000
010000
004000
002000
001000

PUSH1SP=5746
POP1SP=572¢

PUSHR0=10046

POPRQO=12600

;DECREMENT PROCESSOR STACK
s INCREMENT PROCESSOR STACK

.EQUIV

;BASIC

EMT_HLT

STA(K

TWICE

=CMP -(SP),~(SP)

s INCREMENT STACK TWICE -CMP (SP)+,(SP)+

BIT13=20000
B81712=10000
BIT11=4000
81710=2000
B81719=1000
BI78=400

BI117=200

BIT6=100

BITS5=40

BIT4=20
8I173=10
B172=4
B8IT1=2
BIT0=1

JPROCESSER LEVELS
LEVEL7=340
LEVEL6=300
LEVEL5=240
LEVEL4=200
LEVEL3=140
LEVEL2=100

LEVEL1=040
LEVELO-000

WORD -TST =(SP)
WORD =TST (SP)+

;RESTORE RO FROM STACK =MOV (SP)+ R0

;DECREMENT

POP2SP=22626

'
1

*;SAVE RO ON STACK =MOV RO,-(SP)

PUSH2SP=24646

729

000006
000007

RO=%0

R1=21

O
o
o
o

728

SEQ 0016

727

;REGISTER DEFINITIONS

718

719
720
721
722
723
724
725
726

PAGE

-—l

712
713
714
715
716
717

15:50

DEFINITION OF

ERROR CALL

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL-78 15:56
768
769
770
771
772
773

774
775
776
777
778
779
780
781
782

783
784
785

786
787
788

789
790
791

792

793
794
755
796
797
798
799

15:50

PAGE 20

;REGISTER DEF INITIONS
100000
040000
020000
010000

604000
002000
001000
000400
000200
000100
000040
000220
006 )10

000( %4
000062
000001

100000
040000
020000
010000

0C1000
000400

030000
020000
000600
000000
002000
004000

-RXCSR BIT DEFINITIONS

DSC=BIT1S

*RING

CARDE1-Q]IT12

:CARRIER DETECT

CTS=8JT"3

*REC ACTIVE
$SEC REr DATA
:DATA SET RDY
SSTRIP SYNC
*REC DONE

DSINTE=8]TS
SYNSCH=R] T4
STD=R]T3

:DSC INTR ENABLE
$SYNC SEARCH
SSEC XMIT DATA

RINTEN=BIT6

OVRRUN=BIT14

FRMERR=BIT13
PARER=B]T12
:PARCSR BIT
PAREN=B] TS

EVPAR=B] T8

:REC ERROR

OVERRUN

‘FRAME ERROR
*PARITY ERROR
DEFINITIONS
:PARITY ENABLE

SEVEN PARITY SENSE

:PARCSR WRD DEF INITIONS

SYNINT=30000

: SYNC EXTERNAL MODE

SYNEXT=20000
1SYMOD=0

*SYNC INTERNAL MODE
*1SOC MODE

S1X=2000

:WORD LENGTH 6 BITS

FIVE=0

DNA=BIT1§

000000
004000
010000
014000

*REQ TO SEND
:DATA TERM ]DY

RXERR=B]IT15

100000

020000
002000
000400
000200
000100
000040
000020
000010
000001

INTR ENABLE

vOID=BITO
;RXDBUF BITM DEFINITIONS

800

808
809
810
8"
812
813
814
815
816
817
818
819
820
821
822

SREC

RTS=BIT2
DTR=RIT1

E IGHT=6000
NOPAR=0
ODDPAR=1000
£ VEPAR=1400

040000

SCLR TO SEND

RECACT=B:T"
SRD=BIT10
DSR=B]T9
STPSYN=BIT8
RXDONE=B]T7

006000
000000
001000
001409

807

;DATA SET CHANGE

RING=BI 14

800
801
302
803
804

805

SEQ 0017

*WORD LENGTH S BITS

SEVEN=4000

-TXCSR BIT

*WORD LENGTH 7 BITS

DEFINITIONS

MTDATA=BIT14

CLK=BIT13
BITW=BIT10

MRESET=BI TS
TXDONE=BIT7
TXINTE=BITé

DNAINTE=R]TS
SEND=R] T4
HDXEN-BIT3
BREAK=B]T0

USER-0

*WORD LENGTH 8 BITS
*NO PARITY
:0DD PARITY
“EVEN PARITY

:DATA NOT AVAILARL:
*MAINT DATA

LCLK
*BIT WINDOW

*MASTER RESET
*XMIT DONE
SXMIT

INTR ENABLE

:DNA INTR ENAR
*SEND
*HDX/
DX
:BREAK

;TXCSR WRD DEF INITIONS

MINT=4000
MEXT 10000
SYSTST~14000

;TRAPFAT(:
°k FOR

:USER MODE

‘MAINT INT MODE
SMAINT EXT MODE
“SYSTEM TEST MODE
[LLEGAL

INTERRUPTS

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JuUL~78 15:56

15:50

PAGE 21

ggz

:STANDARD INTERRUPT VECTORS

825
826
827
828
829
830

000024
000026
000030
000032

000024
015520
000340
015250
000%0

ggg

000036

000340

831

000034

.=24

015216

200174
000176
000200

000174
000000
000000
000167

001100

=174

001214

:SERVICE AT LEVEL 7

;GENERAL HANDLER DISPATCH SERVICE

DISPREG: .WORD 0
SWREG:
.WORD 0
JMP
.START

;SOF TWARE DISPLAY REG.
;SOF TWARE SWITCH REGISTER
;GO TO START OF PROGRAM

JINDIRECT POINTERS

001100
001102
001046
001106
001110
001112

177570
177570
177560
177562
177564
177566

SWR:
177570
LIGHTS:177570
TKCSR:

TKDBR:
TPCSR:
TPDRR:

001114
001116
001120
001122
C€01124
001126
001130
001132
001134

000000
000000
000000
000000
000000
000000
000000
000000
000000

RTRN:
NEXT:
Lock:
ICOUNT:
LPCNT:
TSTNO:
PASCNT:
ERRCNT:
LSTERR:

:SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER
JTELETYPE KEYDOARD CONTROL REGISTER
JTELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
TELEPRINTER DATA BUFFER

177560

177562
177564
177566
:PROGRAM (ONTRCL

ggg

868
869
870
871
872
873
874
875
876
877
878

340

1100

ggé

856
857
858
859
860
861
862
863
ggg

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

:SOF TWARE SWITCH REGISTFR

841
842
843
844
gzg
847
88
849
850
851
gg%

PFAIL
340
LJHLT
340

. TRPSRvV

2%2
836
837
838
gzg

SEQ 0018

PARAMFTERS

0
O
0
O
O
0
0O
O
0O

;SCOPE ADDRESS FOR LOOP ON TEST
JADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
;NUMBER OF [TEREATIONS COMPLETED
JNUMBER OF TEST IN PROGRESS
JNUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
:PL OF LAST ERROR CALL

;PROGRAM YVAR]ABLES

001136
001140
001142
001144
001146
001150
001152
001154
001156
001160
001162

000020
000000
000000
00000C
000000
000000
002000
(000000
000000
000000
000000

HOLD:
SHIFT:
COUNT:
TEMPT1:
TEMP2:
TEMP3:
TEMPS:
TEMPS:
SAVRO:
SAVR1:
SAVRZ:

20
0
O
O
O
0
0
O
C
0
(

; TEMPORARY STORAGE DELAY TIME FOR CABLES
:TEMPORARY STORAGE= # OF SHIFTS PER (HAR
:TEMPORARY STORAGE- # OF TIMES A (HAR WILL BE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
;RO STORAGE
:R1 STORAGE
;RZ STORAGE

SENT

(ZDUE-D MACY11

CZDUED.P11
879
887
881
882
883

001164
001166
001170
001172
001774

30A(1052)

21-NOV-78

18-JUL~78 15:56
000000
000000
000000
0Q0000C
00000C

15:50

PAGE 22

SAVRY:
SAVR4:
SAVRS:
SAVSP:
SAVFZ:

0
O
O
0
0

SEQ 0019
;R3 STORAGE
;R4 STORAGE
;RS STORAGE
;STACK POINTER STORAGE
;PROGRAM (OUNTER STORAGE

CZDUE-D MACY1T1

CZDUED.P11
885
886
887
888
889
890

001176
001177
001200
001201
001202
001203

30A(1052)

21-NOV-78

18-JUL~78 15:56
377
377
377
377
000
377

15:50

PAGE 23

SYNCNC:
SEXMIT:
SEREC:
OPT(LR:
MULTD:
JIER?V:
.EVEN

894
895
8%
837
858

001204
001206
001210
001212
001214

000000

BASEADD :

SEQ 0020

;PROGRAM CONVERSATIONAL

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

377
377
377
377
O
377

;PRCGGRAM MULTIPLE

KEEPADD:

LASTADD:

KEEP]V:

BASEIV:

899

001216

000000

902

001220

000000

DEVICE

ROTADD:

;¥ OF SYNC CHARS REQ'D FOR SYNC'ZATION
SSEC XMIT JUMPER "'IN''
sSEC REC JUMPER "'IN''
;OPTIONAL JUMPER CLR "IN’
;NO MULTIPLE DEVICE FLAG
JEXTERNAL MODEM BYPASS JUMPER '‘IN''
PARAMETERS

JPROG CONTROLLED 1ST DEVICE ADDR
;SAVED 1ST DEVICE ADDR

sLAST DEVICE RXCSR ADDR

ACTREG:

PARAMETERS

;PROG CONTROLLED IV
;SAVED

INTR VECTOR

JACTIVE REGISTER

,,,MODIFY THIS

JROTATING POINTER FOR ACTREG..POINTS

JLOCATION TC DISQUALIFY OR QUALIFY
;DEVICES (1= RUN,,,0= DON'T RUN)

;TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

"'t't'tt'fititfitt.'tt\’t"'tQ"Qttilfifi"t

907
908
909

910
911
912

913
914

915

001222
001224
001226

000000

;

THESE ARE STORAGE FOR THE STATUS MAP PRINT OUT

001230
001232
001234

001236
001240

001242

FLAG:0

HOLDQ: O
HOLD1:0
(OUNT1:0

TABLE

;

: 2
0

003006
000000
MALAAAS AL

FLAGS FOR STATUS MAP PRINT OUT

;
.
;

; FOR CONVRT ROUTINE

3006

0
RRRAl

*PROGRAM CONTROL FLAGS
920
921
922
923

924

001244
001245
001246
001247

000
000
000
000

INIFLG:
STFLG:
ERRFLG:
LOKFLG:

925
906

27
928
929
930
931
932

933
934
935

936
937

938
939

.BYTE
.BYTE
.BYTE
.BYTt

(SSP)

HOLDS
RO IN STATUS MAP PRINT
R ETC.
FOR COUNTING 3 WORDS

RS2

0
O
O
O

]

;sPROGRAM INITIALIZATION FLAG
;TEST START FLAG
;ERROR OCCURED FLAG
cLOCK ON CURRENT TEST FLAG

.EVEN
JENNRSRw

001300
001301
001302
001303
001304
001305

001300
000001
000001
000001

000001
000001
000001

STATUS:

.=1300

NOSYN(C: .BLKB 1
MITSEX: .BLKB 1
RESEC: .BLAB i
CLROPT: .BLkB 1

DMULT:
B8YJMR:

.BLKB 1
.BLkB 1

s MULTIPLE
001306

000001

STATUS

MAP

tennnre

s SYNC (HARS
JMIT JUMPER
JREC SEC JUMPER
OPTIONAL 1 MPTw

JMULTIPLE DEVICE FLAG
JEXTERKAL MODEM

DEVI'E PARAMETERTM

ADDBASE: BlLaw 1

sPROG CONTROLLED 1ST DEVICE ADDR

CZDUE~D MACY11 30A(1052)
21-NOV-78
CDUED.P11
18-JUL-78 15:56
940
941
942
943
94
9.

946

001310
001312
001314
001316
001320
001322

001324

15:50

PAGE 24

000001
000001
000001
000001
000001
000001
000001

PRTDU:
RIVDY:
TIVDU:
TISDU:
RISDU:

981

982
983
984
985
986
987
988

989

990
991
992
993
994
995

JDUT1
;DUTT
;DUTT

XMIT
XMIT
REC

INTR VECTOR
INTR STATUS
INTR STATUS

JPRIORITY TO ALLOW INTR
;
;

DEFAULT OR ALTERED PARAMETERS

;DUT1

RXCSR BASE

ADDR

JIN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

001366

.TRPTAB:

971

975
976
Q77
978
9/9
980

1
1
1
1
1

;DEFINITIONS FOR TRAP SUBROUTINE (ALLS
JPOINTERS TO SUBROUTINES CAN BE fFOUND

32§

974

.BLKW 1

;ACTIVE REGISTER
;ROTATING POINTER
;DUTT1 PRIORITY
;DUT1 REC INTR VECTOR

.EVEN

965
66

972
973

.BLKW
.BLKW
. BLKW
.BLKW
.B'KW

;PROG CONTROLLED v
;SAVED INTR VECTOR

CSRRX: .BLKW 1
CSRHRX: .BI¥. 1
BUFRXD: .BLKW 1
BUFHRXD: .BLKW 1
1
.BLkw
CSRPAR
1
F
- .BLKW
CSRHPA
CSRTX: .BLkW 1
CSRHTX: .BLkW 1
BUFTXD: .BLKW 1
BUFHTXD: .BLKW i
BASEDU: .BLKW 1

970

;SAVED 1ST DEVICE ADDR
JLAST DEVICE RXCSR ADDR

ADDKEEP: .BLKW 1
ADDLAST: .BLKW 1
IVBASE: .BLKW 1
IVKEEP: .BLKW 1
REGACT: .BLKW 1
ADDROT: .BLKW 1

L1ESS:

9%69

SEQ 0021

001366
001370

(001372
001374
001376

001400
0016402
001404

001406
001410

001412
001414

104400
014002

104647

014166
104402
014206
104403
014246
104404
014364

104405
014416
104406
014632
104407
014672
104410
014724
104411
014730
106412
015150
10443
015664

SRR

RN AN R RN R

RN AN A R A N

.SCOPE
.SCOP1

.TYPE
. INSTR
.INSTER

.PARAM
. SAVOS
.RESOS

. CONVRTY
.CNVRT

SETFLG
.(KSWR

AR AR A AR R AN T RN N AN A AR
R AN A A A NN AR A AN AN

A AR AR I AN AN AN AR RS AR AR ANN RN N R AR R

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

SCOPE-TRAP+0

;CALL

TO SCOPE LOOP AND

SCOP'=TRAP+1

;CALL

TO LOOP ON CURRENT DATA HANDLER

TYPE=TRAP+?2

sCALL

TO TELETYPE OUTPUT ROUTINE

INSTR-TRAP+3

JCALL

TO ASCII

INSTER

;CALL

O INPUT ERROR HANDLER

PARAM=TRAP+5

JCALL

TO NUMERICAL

SAVOS=TRAP+6

;CALL

TO REGISTER SAVE ROUTINE

RESOS-TRAP+7

JCALL

TO REGISTER RESTORE ROUTINE

CONVRT-TRAF+10

;(CALL

TO DATA QUTPUT ROUTINE

(NVRT-TRAP+11

JCALL

TO DATA QUTPUT ROUTINE WITHOUT

SETFLG=TRAP+'.

.(CALL

TO FLAG SET ROUTINE

(KSWR=TRA/+13

JCACL

TG ALLOw SWREG TO BE

~ AP+4

STRING

ITERATION HANDLER

INPUT ROUTINE

DATA

RN AR AR

AT AN RN NN RN

[NPUT ROUTINE

(R/.F

LOADED FROM T Tv

001416

15:50

PAGE 25

104414

015740

LONTLL
R
N

SEQ 0022

CNTLU=TRAP+14
N AR A

A A

sCALL

NN AR AR R

A A AR

AN R A AN

AN R
R N

R AN

TO ALLOW LOADING
R NN R AR RS RN RN NN
R R AR R

R AN

SWREG FROM TTy

RN NN AR

AN R R RN R R AN AR AN RN

RRRRC R R AR NRS

AN R AN

R AN

AAN

R AR

[ale)

$328888888 £
oL

MACY11 30A(1052)
21-NOV~-78
18-JUL=-78 15:56
P1 1

JPROCRAM INITIALIZATION

d
d
D
d
o
—

olelelolelolelolele]

N S

288

NN
NS WA =2O V00N

sLOUK OUT INTERRUPTS
;SET UP PROCESSOR STA(K
JSET UP PWER FAIL VECTOR
;CLEAR PROGRAM (ONTROL FLAGS AND COUNTS

.TYPE

001420
001426
001432

0
012706

001440

001444
001450
001454
001460
001464
001470
001476
001504
001510
001512
001516
001522
001530
001536
001542
001546
001554
001562
001564
001566
001570
001576
001604
001610
001614
001620
001622
001630
001632

000340
001100
015520
177460
177575
177454
177566
177446
177444

012767

000001
001420

105767

177534

001004
104402

105167

012767

013746
013746
012737
022777
001402
000407
022626
012767
012767
012637
012637
005737
001005

016040
177522
177570
177570
000006
000004
001566
177777

176350

.START: MOV

000024

MOV

430 PS

MOV

#S.,

CLR
CLRB
CLR
CLRB
(LR
CLR

177430

177410

177344

ONCE:

000176

177250

177276

€4%:

65%:
60%:

JSET UP POWER FAIL VECTOR

#1,TSTNO
#.START ,RTRN

TSTB

INIFLG

BNE

ONCE

JHAS

coMB
MOV

INIFLG
#DSWR, SWR

MOV

a6 ,-(SP)

MOV

MOV
MOV
MOV
1ST
BNE
(MP
?zg

JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE

JTESTING STARTS

INITIALIZATION BcEN PERFORMED

;TYPE

#DLIGHTS,t IGHTS

;JRELOAD HARDWARE

a#6,-(SP

#-1,aSWR
65%
663
(SP)+,(SP)+
#SWREG, SWR

# OF ITERATION COMPLETED LOCATION
START FLAG
PASS COUNT
ERROR FLAG
ERROR COUNT
LAST ERROR POINTER

JMTITLE

#64S , and

cMP
BEQ
BR
MP
MOV

INTERRUPTS

;SET UP STA(CK

MGV
MOV

MOV

17730¢

# . PFAIL ,a#26

JLOCK OUT
;CLEAR
:CLEAR
:CLEAR
:CLEAR
;CLEAR
;CLEAR

MOV

000176
000174
000004
000006
000042

K,SP

LPCNT
STFLG
PASCNT
ERRFLG
ERRCNT
LSTERR

TYPE

177350

TITLE MESSAGE

#DISPREG,LIGHTS
(SP)+ ,a#4
(SP) +,a#6
P 4
MAP
#SWREG, SWR
MAP

TITLE MESSAGE

;IF NOT SET FLAG AND DO
;RELOAD HARDWARE SWIT(H REGISTER

s SAVE VECTORS

DISPLAY REGISTER

JSET UP FOR TIMEOUT

JREFERENCE HARDWARE
;ADJUST STACK

JPOINT TO SOF TWARE SWIT(H REG
JPOINT TO SOFT DISPLAY REG
JRESTORE VECTORS

JUNDER MONITOR
;IS SWREG USED
; BRANCH TO (CHECK FOR STATUS MAP

; CODE FOR STATUS MAP
; CODE ADDLD FOR REV. £ CF DIAGNOSTIC(CS
; IF SW07= 1 ,THEN YOU USE THE STATUS MAP PREVIOUSLY
; SETUP, OR REENTER QUESTIONING ROUTINE
177236

BIT #SW07, aSWR
BEQ $67

;
;

IS Sw07-1?
IF NOT, GO TO TEST FOR Sw00-1

; NOW SET JP MAP VALUES FOR PROGRAM
; THESE VALUES FROM THE STATUS MAP WILL B8F USED

INTO POINTER

SWITCH REGISTER

"t.Q't't..'t‘tt."tt'l"f"'.'.fi."tfi'ttfitt'tfi'l.".t't"t'

000200

INTO POINTER

IN THE

CZDUE-D MACY11 30A(1052)
2;-NOV-78
CZDUED.P11
18-JUL=78 15:56

1052

1053 001644
1056
1055
1056
1057

1058
1059
1060
1061
106C

1063
1064
1065
1066

1067
1068
1069
1070
1071
1072

1073

001652
001660
001666
001674

001702
001710
001716
001724
001732

001740
0017246
001754
001762

001770
001776
002004
002012
002020
002026

002034

116767

116767
116767
116767
116767

177430

1776423
177416
177411
1774064

116767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
013737

177332
177332
177320
177314
177312
001324

016767

177377
177372
177366
177362
177360

177354
177350
177334
177220

177324

15:50

015620

1?7272
177266
177262
177256
177252
177246
177242
177236
177232
177226
000466

016110
016104
016100
016074
016070
016064
016060
016056
016050
016044

1086
1087
1088
1089
1090
1091
1092

002142
002150
002152
0C2156
002162
002166
002172

032777
001002
000167
005037
012700
012701
012702
010110
005011

000001

176730

000452
001222
000300
000302
000004

022701

001000

002176

1094
1095
1096

002200
002202
002204

060200
060201

1098
1099
1100
1101
1102
1103

002212
002214
002216
002220
002222
002224

002771
104403
016114
104405
160000
167776

1105

002230

1097

1104

1106

107

002206

002226
002231

002232

CSEXMIT
,SEREC
OPTCLR
-MULTD

MOVB BYJMR
MOV ADDBASE
MOV ADDKEEP
MOV
ADDLAST
MOV IVKEEP
MOV REGACT
MOV ADDROT
MOV 1VBASE,
MOv KEEPADD
MOV RIVDU,
MOV RISDJ.
MOV TIVDU,
MOV TISDU,
MOV L 1ESS.
MOV a#PRTDU,

. JMRBY
-BASEADD
“KEEPADD
-LASTADD
_KEEPIV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JMP

$67:

JACTREG
+ROTADD
BASEIV
. BASEADD

DURIV
L RIS
Du:.lv
DUTIS
LESST
a#DUPRT

BASEDU, DUBASE

CSRRX,
RXCSR
CSRHRX,
HRXC SR
BUFRXD, RXDBUF
BUF HRXD ,
CSRPAR .
CSRHPAR,
CSRTX,
TXCSR
CSRHTX,
BUF TXD,
TXDBUF
BUFHTXD,
HTXDBUF
_BEGIN

BIT
#SWO0
BNE
1%
JMP _BEGIN
CLR a#FLAG
MOV
#300,R0
MOV
#302.R1
MOV
#4 R2

MOy

: SYNC CHAR

;

P OXMIT
JUMPER
* SEC REC JUMPER
“OPTIONAL JUMPER
SMULTIPLE DEVICE
*EXTERNAL MODEM
:PROG 1ST DEVICE ADDR
: SAVED 1ST DEVICE ADDR
* LAST DEVICE RXCSR ADDR
: SAVED INIR VECTOR
;ACTIVE REGISTER
JROTATING POINTER
BASE INTR VECTOR
:RELOAD BASEADD
REC INTR VECTOR

.
.
;
*
;

REC INTR STATUS
XMIT INTR VECTOR
XMIT INTR STATUS
PRIORITY TO ALLOW INTR
PRIORITY RELOADED

;

;!
HRXDBUF
PAR( SR
HPAR( SR
HTXCSR

;BRANCH TO BEGIN TESTING

176746

BYTE

.@SWR

; RESELEC! VECTOR $ CONTROL REG?
* BRANCH
TO QUESTIONING
. GO TO
LOAD STATUS MAP ETC.
. CLEAR FLAG SO STATUS MAP PRINTS OUT
*RESTORE VECTOR AREA TO TRAPCATCHER

*START AT LOCATION 300

R1. (RO)

CLR
ADD
ADD

(R1)
R2.RO
R2.R1

BLT
INSTR
MRE GAD
PARAM
160000
167776

BYTE

(526

PROGRAM.

, SYNCNO

MITSEX
RESE(C
CLROPT
DMULT

MOV

1%:

00°

016767

7YHIS

"tt"tttttttttttl.t.tt".'Q"lttn.tt'tttlt‘ttfit"ttttttt

017662
00’

OPERATION OF

MOVB
MOVB
MOVB
MOVB

177273
177266
177262
177256
177254
177250
77244
77230
177214
016206
016202
016176
016172
015500
017524

016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
000167

SEQ 0023

MOVB NOSYNC

177317
177312
177305
177300

002042
002050
002056
002064
002072
002100
002106
002114
002122
002130
002136

1093

177324

10764
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

PAGE 26

#1000,R1

:FND AT LOCATION 776
;OUTPUT MESSAGE & GET
*ME SSAGE

SCONVERT STRING
SLOW LIMIT
SHIGH LIMIT

DUBASE

SSTORE AT THIS LOCATION

MOV

INPUT

s MASK

DUBASE ,KEEPACD

;A,E

THOW MANY TIMES + 2

STRING

CZDUE-D MACY11 30A(1052)
21-NOV=78
CZDUED.P11
18-JUL~78 15:56
1108
1109

002240
002244

1113

002260

1110
1111
1112
1114

1115

1116

1117

1118

1119
1120
1121

1122
1123
1124
1125

1126
1127
1128

1129
1130
1131
1132
1133
1134

1135
1136

1137

1138
1139

1140
1171
1142
1143
1144
1145
1146
1147

1148
1149

1150

1151

1152

1153

1154

1155
1156

1157

1158
1159
1160
1161
1162

1163

002252
002254
002256

004767
016767
104403
014072
104405

000776

002266

001

002267
002270

002276
002304

002306

020204
004

016767

016767
104403

BYTE
015710

015702

100406
005067
005067
000167

176670
176666
000140

BYTE

176706

104405
160000

001

002354
002362
002366
002374
002376
0026402
002404
002412

012767
005067
056767
OC3cei
006167
103421
062767
026767
101362
056767

:STORE AT THIS LOCATION

JMASK
DURIV,KEEPIV

DURIV,BASEIV

RYTE
00000
176630
176626

176636
176622

176616
000010
176572

176572
176564

176572

176566&

MULTD

BM]
CLR
CLR

BAR
ACTREG
ROTADD

OUTMUL

002436

0024446

002446
002454

002456

002460
002462
002464
002466
002470

002471

012767

016767

000414

016767
104403

000001

176562

176544

176540

176534

176530

001

INPUT STRING

JSET FLAG BASED UPON INPUT STRING
sTHIS FLAG
:;ARE THERE MULTIPLE DEVICES
;ON THE SYSTEM ?
;YES,ASK NEXT QUESTION

;JUMP AROUND NEXT CUESTION
;OUTPUT MESSAGE & GET

INPUT STRING

:MESSAGE

:CONVERT STRING
:LOW LIMIT

16777€
LASTADD

JHIGH LIMIT

:STORE AT

:MASK

THIS LOCATION

BYTE
1
sHOW MANY TIMES + 2
s THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME
1%:
MOV
#1,ROTADD
:SET UP POINTER
CLR
ACTREG
:CLR ACTIVE REGISTER
2%:
BIS
ROTADD ,ACTREG
;MAKE THIS DEVICE ACTIVE
CLC
ROL
ROTADD
:SET UP POINTFR
BCS
3s
;ARE YOU OUT OF RANGE ?
ADD
#10,BASEADD
:SET UP BASE ADDRESS
CMP
LASTADD ,BASEADD ;IS THIS THE LAST DEVICE ?
BHI
BIS

4$:

3$:

016437

104405
160000
167776
001210
001

;SET 1P FOR ROTATION
JOUTPUT MESSAGE & GET

INSTR
MLASTD

23
sNO DO
ROTADD ,ACTREG

:LEAST

002430

;HOW MANY TIMES + 2

s ME SSAGE

SETFLG
MUL TD
TSTR

JMp

:SAVE

PARAM
160000

167776
001210
001

JHIGH LIMIT

MOV

INPUT STRING

:LOW LIMIT

DUR]IV

MOV
INSTR

RAA:

104403
016254

002353

;OUTPUT MESSAGE & GET
:MESSAGE
:CONVERT STRING

MMULT

002320
002322
002326

002420
002422

176716

016175

176662

002346
002350
002352

INSTR
MVECTO
PARAM

PC,DPUADDR
KEEPADD ,BASEADD ;RESTORE FOR ROTATION

776

104412
001202
105767

002342
002344

JSR
MOV

176732

SEQ 0024

300

002310
002312
002314

002332
002336
002336
002340

PAGE 27

000300

002262

0022

015264
176736

15:50

MOV

BYTE

JMULTIPLE DEVICE QUESTION

#1,ROTADD

MOV
INSTR

KEEPADD ,BASEADD

PARAM
160000
167776
LASTADD
1

OUTMUL

THERE

;SET UP FOR LATER USE

KEEPADD ,BASEADD ;DITTO

B8R

THAT

TWO DEVICES WHEN YOU ANSWER YES

MOV

MRANGE

BYTE

IT AGAIN
;THIS ASSUMES

ARE

TO
IN END OF

PASS ROUTINE

;TONTINUE QUESTIONS
;RESTORE

;OUTPUT MESSACE & GET

;ME SSAGE

INPUT

:CONVERT STRING
:LOW LIMIT
JHIGH LIMIT
:STORE AT
:MASK

THIS LOCATION
)

HOW MANY TIMES o 2

STRING

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL~78 15:56
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1178
1176
1177
1178
1179
1180
1181
1182
1183
11846
1185
1186
1187
1188
1189
1190
1191
1192
1193
1196
1195
1196
1197
1198
1199
1200
1201
1202
1203
1206
120
1206
1267
1208

1209

002472
002476
002476
002500
002502
002504
002506
002510
002512
002513
002514

002520
002520
002522
002526
002532
002534
002540
002542
002550
002552

000167

104405
000004
000007
017524
000
001
004767

104403
016750
122767
001003
105067
000412
122767
001004
112767

002570
002572
002574
002576
002600

104403
017016
104412
001177
104403

1210

OUTMUL:

104403

000402
104404
000757

002602
002604
002606
C02610
002612
002614
002616
002620
002622
002624
002626

177656

BYTE
.BYTE

01473

AAA:

000061

(14562

014544

177777

176416

1214

1215
1216
1217

1218

1219

1%:

’%:

000240

4%:

(17064
104412
001200

104403

017131

104412
001201
104403
017205
104412
001203
.

15]'}

1213

3%:

176436
000062

PAGE 28

016723

002560
002562
002564

002566

15:50

JMP

SEQ 0025
1%

;00 IT AGAIN

INSTR

;JOUTPUT MESSAGF £ GET

MLEVEL

sMESSAGE

INSTR
MSYN(C
(MPR
BNE
CLRB
BR
CMPB
BNE
MOVB
B8R
INSTER
B8R
NOP
INSTR
MWIRE6
SETFLG
SEXMIT
INSTR
MWIRES
SETFLG
SEREC
INSTR
MWIRE4
SETFLG
OPTCLR
INSTR
MEXTJ
SETFLG
JMRBY

;OUTPUT MESSAGE & GET
;MESSAGE

INPUT STRING

PARAM
;CONVERT STRING
4
JLOW LIMIT
7
JHIGH LIMIT
DUPRT
;STORE AT THIS LOCATION
O
MAS
1
JHOW MANY TIMES + 2
JSR
F{,DULEV
;COMPARE THE +1RST CHARA(CTER IN THE TELETYPE INPUT
BUFFER TO THE _HARACTERS "*i'' AND "2""'.
cIF THE CHARA(CTER IS '""CLEAR THE FLAG
;IF THE CHARACTER IS "°2'' SET THE FLAG

#'7, INBUF
1
SYNCNO
4%
#'2, INBUF
2%
#-1,SYNCNO
A3

[N~UT STRING

JIS IT "1t
2
.000
JIS

IT '
2

;377
sRETRY

;OUTPUT MESSAGE & GET INPUT STRING
.ME SSAGE
;SET FLAG BASED UPON INPUT STRING
JTHIS FLAG
JOUTPUT MESSAGE & GET INPUT STRING

. MESSAGE
;SET FLAG BASED UPON INPUT STRING
;THIS FLAG
JOUTPUT MESSAGE & GET INPUT STRING
s MESSAGE

JSET FLAG BASED UPON INPUT STRING
JTHIS FLAG
OUTPUT MESSAGE & GET INPUT STRING
MESS GE
;SET FLAG BASED UPON INPUT STRING
JTHIS FLAG

JTEST START AND RESTART

002630

002636

002644

012767

032777

001132

00030

000200

17514C

176234

.BEGIN: MOV
©

ENRRNN

#340,PS

LOAD

STATUS

MAP

;LOCK OUT

INTERRUPTS

THE VALUES NOW BEING LOADED INTD THE STATUS MAP WILL BE
: USED IN THIS PROGRAM AND
WILL BE
PASSED
TO ANY
;OTHER DU11 PROGRAMS LOADED IMMEDJATELY FOLLOWING THIS PROG.

BIT #Sw07

BNF HEREU

LOSWR

;

SWO7 SET

YES BRANCH

176324
176317
176312
176305
176300
176273
176266
176262
176256

PAGE 29

176424
176417

176412
176405
176400
176373
176366

SYNCNO
SEXM]
|
SEREC
OUPTCLR
MULTD

.NOSYNC
MI"SEX
RESEC
. CLROPT
LDOMULT

MOVB UMRBY
MJV BASEADD
MOV KEEPADD

176362
176356
176354
176344

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

e
D
b
d
ad
b
e
d e
—

016757
016767

072

SEQ 0026

MOVB
MOVB
MOVB
MOVS
MJUVB

NONN

AN
=

N 00NN WA

002646
002654
002662

-0V

176270
176264
176260
176254
176250

176244
176240
176234
176230

;
;

LASTADD
KEEPIV
BASEIV
ACTREG
ROTADD
a#DUPRT
DURIV
DURIS
DUTIV
DUTIS
LESS!?
DUBASE
RXCSR,
HRXCSR,
RXDBUF
,
HRXDBUF
,
PAR(SR,
HPAR(CSR,
TXCSR,
HTXCSR,
TXDBUF,
HTXDBUF,

THE
THE

000116

par Qur Gy
Qe

0
0
06

02
00
01
01

;

RELOAD BASE

INTR VECTOR

JACTIVE REGISTER

sROTATING POINTER

:DU11 PRIORITY

JREC INTR VECTOR
; REC INTR STATUS
; XMIT INTR
VECTOR

;

XMIT

INTR

STATUS

; PRIORITY TO ALLOW
JRXCSR BASE ADDRESS

INTR

YRANRRRRR

FOLLOWING CODE WILL PRINT
CONVERSATIONALLY SET JUMPER

SETTINGS FROM THE STATUS MAP
ON THE FIRST PASS OF

;

JUST AFTER THE QUESTIONING
AND ANSWERING .

THIS DIAGNOSTIC OR

ARAANN AN

RAN

TST aAFLAG

TEST

TYPE

AROUND IF PASS > 1
PRINT °'STATUS MAP'

BEQ
SETFG
JMP THRU

, MSTATUS

ADD #1, awFLAG

0
0
0

; MULTIPLE DEVICES

JE YTERNAL MODEM
;PROG CONTROLLED 1ST ADDR
;SAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
;SAVED INTR VECTOR

.ADDLAST
. IVKEEP
. 1VBASE
~REGACT
.ADDROT
.#PRTDU
.RIVDU
.RISDU
.TIVDU
.TISDU
LL1ESS
,BASEDU
CSRRX
CSRHRX
BUFRXD
BUF HRXD
CSRPAR
CSRHPAR
CSRTX
CSRHTX
BUF TXD
BUFHTXD

:'t..'tt.fittt't"fit"'t'

HEREU:

JXMIT JUMPER
;S EC REC JUMPER
;OPTIONAL JUMPER

;
;

;

00122¢

s SYNC CHARS

.BYJMR
.ADDBASE
.ADDKEEP

"ttttfi'l*t.t'ttt.ttfittfitttttifi'

N~ OIVONNIN

Y py
QY W
N
N
S
W
S
S
S N
N
e

LS TSTNT S TANT ST ST, 8T 8 [ ST ST, W1, N1, ST, V1,81, ¥}nono
Ly
]
AINDNONININD [ASIaN]

1221

15:50

MOV RO, HOLDO
MOV R1. HOLD1

MOV #3. COUNTI

MOy
MOV
FILBUF: MOV
ADD

#BUFE?, RO
#STATUS. R1
R1, (RO)+
#2° .R1

(MP R1, #STATUS+6
BNE F I{BUF

MO #BUFF1 RO
MOy RO , TABLE
6

1ST PASS

FIRST PASS SET FLAG/PRINT

SET FLAG ON 1ST PASS
SAVE RO
SAVE R1
iOUNTER FOR WORDS PRINTED
S.8,0,0,0,.0,

CZDUE-D MACY'T 30A(1052)
21-NOV-78
CZDUED P11
18-JUL-78 15:56

(BUFF1)=STATUS

ETC.

LOAD BUFF

AS ABOVE

C(HECK IF

3 WORDS LOADED

PREPARE

STATUS ADDRESS

BACK
TO LOAD NEXT ADDRESS
LOAD FOR PRINT QuUT
oL QAD ADDRESS TO PRINT

CZOUE~D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL~78 15:56
1276
1277
1278
1279
1280
1281
1282

003230
003234
003240
003244
003250
003252
003256

012067
104410
104402
005367
001365
016700
016701

176006
001232
016524
175760

003262
003266
003272

012706
005737
001056

9201100
000042

1290

003300

001407

1292
1¢93

003310
003316

016767
000444

1283

128%
1285
1286
1287
1288
1289
1291

1296
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312

1313
1314
1315

1316
1317

1318
139
}%S?
1322

003274

003302

003320
003326
003330
003332
003334
003336
003340
003344
003346
003354
003362
003364
003372
003400
003406
003410
003412
003414
003416

003420
003422
003424

003425
003426

003430
003436
003442

105767

15:50

175746
175744

THRU:

010554

032777
001416
104403
016660
104412
001247
105767
001407
012767
012767
000406
016767
016767
032777
001410
104403
016645
104405
003446

000004

175552

BEQ

010550
65%:

175703
000240
000240

010510
010504

010572
010566
000002

010472
010466
175472

012610
001114
001

1%:
2%:

BYTE

.BYTE

003446
016641
175446

MOV
TST
BNE

TSTB

010654

012767
104402
000177

SEQ 0027

JERARR AR AR A ANR RN AR AR ANRANR AN

175702

010650

30
MOV (RO)+, TABLE+10
CONVRT , TABLE
TYPE, MCRLF
DEC COUNT1
BNE UP
MOV HOLDO,RO
MOV HOLD1, R1

016767

001
000403

PAGE

175456

3%:
6%

JSET UP STA(CK
IS PROGRAM UNDER MONITOR CONTROL

;IF NO,TEST FOR LOCK ON TEST

BRX,TTST+?2
3%

;DITTO
;JUMP AROUND IF YES

MULTD
;DON'T ALLOW LOCK ON TEST
‘MULTIPLE DEVICES
BRW,TTST

8IT
BEQ
INSTR
MLOCK
SETFLG
LOKFLG
TSTB
8EQ
MOV
MOV
BR
MOV
MOV
BIT
BEQ
INSTR
MTSTPC
PARAM
TST1

#8172,aSWR
1%

LOKFLG
bR 3
ANGP,TTST
ANOP,TTST+?2
2%
BRW,TTST
BRX,TTST+2
#SW01,aSWR
3%

TLAST
RTRN
1

1
BR
MOV
TYPE

JMP

#STACK,SP
a6l
3%

MOV

MOV
BR

. LOAD CONTENTS
. PRINT ADDRESS/CONTENTS PAJR
. CR AND LF
;COUNT WORDS PRINTED
. GO PRINT NEXT ADDRESS/CONTENTS

43
#TST1,_RIRN
MR

aRTRN

IF RUNNING

JRESTORE NORMAL SCOPE LOOP
;CHECK FOR LOCK ON TEST

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
;SET FLAG BASED UPON INPUT STRING
. THIS FLAG
;IS LOCK ON TEST OPTION SELECTED
JSET UP TO LOCK

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
;IF SWO1=1, GET STARTING PC
;OUTPUT MESSAGE & GET INPUT STRING
s ME SSAGE
. CONVERT STRING
JLOW LIMIT
JHIGH LIMIT
JSTORE AT THIS LOCATION
sMASK

JHOW MANY T]I4ES + 2

;START AT TEST 1
;TYPE R
:START TESTING

CZDUE~D MACY11 30A(1052)
21-NOV-78
CZOUED.P11
18~JUL=78 15.56

15:50

1323

PAGF 31

SEQ 0028

;sTHIS TEST VERIFYS THAT BY SENDING ONLY ONE SYNC

1324
1325
1326
1327
1328
1329
1330
1331

o CHARACTER (TWO SELECTED BY STRAPPING ) RECACT =0
.o THEN SEND ONE ORDINARY CHARACTER (TO BREAK UP THE SEQUENCE)
JoRECACT =0.....0000venen IT WILL TAKE TWO MORE SYNC (CHARS
;+sBEFORE RECA(CT =1
JoNOTE: THIS TEST WILL ONLY WORK WHEN TWO SYNC CHARS
. cHAS BEEN BEEN SELECTED ...OTHERWISE JUMP AROUND THIS TEST
;:MODE :SYNC INTERNAL (SYNINT)

;:PARITY: NOPAR

}%%é

csTHIS TEST CHECKS ONLY THE RECEIVER SECTION

;LENGTH: EIGHT

1336
1337
1338
1339

003446
003454
003462
003466

012767
012767
105767
100127

000001
003750
175510

1341

003476

012777

030000

014464

1344
}%22

003512

012777

064001

014454

003520
003526

012777
052777

036026
000020

014442
014424

003534
003542

042777
052777

020000
020000

014432
014424

003550
003556
003564
003572
003600
003604
003612
003614
003616
003616
003624
003632

042777
052777
012767
012767
004767
032777
001401
10403C
i
01276”
0127.7
004767

020000
020000
000010
000026
014060
004000

014416
014410
175346
175344

000010
000025
014026

175314
175312

}%%%

042777

020000

014330

042777
052777
012767
032777
001401
104000

020000
020000
000002
004000

014314
014306
175246
014256

]

OV~

}366
3
1 370
37

1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365

003504

};2%

003470

(=
o

1340

003644

137¢
1373
1374
1375
1376
1377
1378

003652
003660
003666
003674
003702
003704
003706

052777

000400

020000

175452
17543¢

014476
014462

014346

014322

TST1:

MOV
MOv
TSTRB
BPL

#1,TSTNO
;SAVE THIS
#TST2 NEXT
;GO TO THIS TEST WHEN THRU
SYNCNO
;TEST FOR
# OF SYNC CHARS REQUIRED
49
JIF NOT TWO
GET OUT OF TEST

MOV

#SYNINT ,aPARCSR ;SET THE MODE

BIS
BIS

MMRESET ,aTXCSR

#MRESET ,aTXCSR

;MASTER RESET
;MASTER RESET

;SET MAINT DATA,CLK,BREAK,ZMAINTENANCE MODE
MOV
MMTDATA! CLK 'MINT !BREAK ,aTXCSR
JSET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG
MOV
ASYNINT 'EIGHT 'NOPAR ! 26 ,aPARCSR
8IS
#SYNSCH,aRXCSR
;SET SYNC SEARCH
sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION....
8IC
#CLK,a@TXCSR
;POKE CLK DOWN
RIS
#CLK,a3TXCSR
;POKE CLK UP
JPOKE CLK TO GET LOGIC INTO SYNCRONIZATION
BI(
ACLK,aTXCSR
JPOKE CLK DOWN
BIS
#CLK,aTXCSR
;POKE CLK UP
MOV
#8. ,SHIFT
;A OF SHIFTS
MOV
#26,TEMP]
<SYNC CHAR T0O BE SHIFTED
JSR
PC,RPOKE
JSHIFT IN THIS SYNC CHAR
BIT
#RECACT ,aRXCSR
RECACT = 0 ?
BEQ
1%
HLT
JRECACT SHOULD BE 0
1%:
MOV
#8. ,SHIFT
4 OF SHIFTS
MOV
#25,TEMP1
JANY (CHARACTER
JSR
PC ,RPOKE
JSHIFT IN THIS CHARACTER

JYOU HAVE JUST LOST SYNCRONIZATION. i ee e et eennennnas
;POKE THE CLK TWICE TO GET INTO SYNCRONIZATION
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#(LK,aTXCSR
.POKE CLK DOWN
BIS
#CLK,aTXCSR
;POKE CLK UP
sPOXE (LK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,aTXCSR
sPOKE CLK DOWN
BIS
#CLK,aTXCSR
;POKE (LK UP
MOV
#2,COUNT
:# OF SYNC CHARS
2%:
BIT
#RECACT ,aRXCSR
;RECACT = 0 ?
BEQ
3%
HLT
JRECACT SHOULD BE
O
3%:

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED. P11
18-JuUL-78 15:56

gegEgEs

1379
1380
1381

012767
012767
004767
005367
001360
032777
001001

104000

104400

15:50

000010
000026
013736
17510

PAGE 32
MOV
MOV

004000
%

JSR
DEC
BNE
BIT
BNE
HLT

S.OPE

SEQ 0029
#8. SHIFT
#26,TEMP1
PC ,RPOKE

COUNT

N OF SHIFTS
:SYNC CHAR
JSHIFT IN THIS SYNC

;1S COUNT= 0 2 NO GO AGAIN

JRECACT

SHOULD BE

ngCACTJARXCSR

;RECACT =

ASSERTED

(HAR

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JuUL-78 15:56

1389
139)
139N
1392
1393
1394
1395
1396
1397
1398
1399

;o THIS

TEST VERIFYS MODE

;THIS TEST ONLY APPLIES

JJLENGTH: EIGHT

003750
003756

1408

004014

012777

036026

16410
1411
12

004022
004030

042777
052777

020000
020000

12004036

004044

042777

020000
020000
000010
000125
014072
040000

004052
004060
004066
(04072

004100
004102
004106
004110
004116
004124
004132

052777

012767
012767
016703
042777

000241
006067
103003
052777
042777
052777
012700

RECEIVER SECTION

sSAVE THIS

N#TST3, NEXT

MOV
BIS

#SYNINT ,@PARCSR ;SET THE MODE
#MRESET ,aTXCSR
;MASTER RESET

BIS

#MRESET ,@TXCSR

;GO TO THIS TEST WHEN THRU

;MASTER RESET

:SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV

;SET MODE

#MTDATA!CLK!MINT !BREAK,aTX(CSR

,# OF BITS,PARITY SENSE,&LOAD SYNC REG

MOV

#SYNINT !EIGHT !NOPAR!26
,aPARCSR

BIC
8IS

#CLK,@TXCSR
#CLK,aTXCSR

;POKE
:POKE

CLK DOWN
CLK UP

BIC
BIS

#CLK,@TXCSR
#CLK.@TXCSR

;POKE
‘POKE

CLK DOWN
CLK UP

MOV

#1285, TEMPI

*DATA CHARACTER

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
MOV
MOV

1%:

175036

040000
020000
020000
000377
01402°2

TO THE

MOV

014056
0140506
014042

1438
1439

004200

012777

1642

006206

012777

026026

013754

644

0062146

042777

02000(¢

n3res

CARRY

BIS

#CLK ,aTXCSR

;

HLT

#CLK,aTXCSR

*POKE

CLK

#377,R0O ;EXPECTED
aRXDBUF ,R1

:ACTUAL

RO,R1
33

:DATA

(CHARACTER

DEC

SHIFT

eIs

MMRESET,3TXCSR

MOV
BIS

013766

-CLEAR MAINT DATA

:SET MIDATA

BNE

052777
012777
052777

*FOR ERROR MESSAGE

MMTDATA,RTXCSR

TMP

004156
004164
004172

:fORCE

SHIFTS

BIS

MOV

1434
1435
1436

RXDBUF ,R3
TEMP1

MOV

176764

‘# OF

L
R.?

BIC

SHIFT

#MTDATA,3TXCSR

BCC
2%

#8.

?IE

BFQ

1440

INTERNAL

:NOTE :SEARCH SYNC IS NOT SET
TST2:
MOV
#2,TSTNO

000002
004346
000400
030000
000400
064001

1441

SELECT.....

sIN SYNC EXTERNAL THIS DATA IS TRANSPARENT

012777

1437

SEQ 0030

JBASICALLY THE TEST CHECKS THAT THE RECEIVED
;DATA FREEZES
IN SYNC INTERNAL

004006

1419
1620
1421
1422
1423
1624
1425

PAGE 33

s SYNC EXTERNAL VS. SYNC

1605

15
16
1417
16418

15: 50

JIS

SHOULD

THE

COMPARE......

LAST

SHIFT

:NO ...SHIFT SGME MORE

;MASTER RESET

#SYNEXT.@PARCSR :SET THE MODE
MMRESET.@TXCSR
:MASTER RESET

sSET MAINT DATA,CLK,BREAK ,RMAINTENANCE MODE
MOV
#MTDATA!
CLK !MINT !BREAK ,@TX(SR

;SET MODE .# OF BITS,PARITY SENSE,RLOAD SYNC REG

MOV

#SYNEXT 'E IGHT 'NOPAR ' 26 , @PARC SR

JFOKE (LK TO GET .OGIC

INTO SYNCRONIZATI
.o

K,3TXCSR

:POKE

CLK

DOWN

DUE-D MACY11 30A(1052)
21-NOV-78
DUED.P11
18=-JUL-78 15:56

1645

16446

16447
1648

1449
1450
1457
1452
16453

004222

004230

174700

MOV
CLR

#1258 TEMP1
TEMP?

*DATA CHARACTER

174672

004272

052777

040000

1459
1460

004320
004326

006312

1461
1462
1463

004330
004332
004334

1465
1466
16467

004336
004336

1469

004344

1468

000125
174676

040000

004300
004304

14664

:POKE CLK UP

062777
000241
006067

1456
1457
1458

#CLK,ATXCSR

105167

004342

103003

106067
042777
052777

016700
017701
0200C1
001401
104002

005367

001344

10440C

SEQ 0031

BIS

006254
006262
004264

004270

013744

000010

012767
005067

004250

PAGE

020000

012767

004236
004244

1456

1455

052777

15:50

174702

013712

MOV

4%:

174654

174642
020000
020000

174622
013634

013662
013654

5¢%:

SHIFT

;W OF

SHIFTS

COMB
TEMP2
:MAKE LOW BYTE ALL 1'S
;TO MATCH RXDBUF 'S CONTENTS AFTER A MASTER RESET
BIC
#MTDATA,RTXCSR
:CLR MAINT DATA
(LC
ROR
TEMP1
;FORCE CARRY

BCC

013674

#8.

BIS

MMTDATA,aTXCSR

RORRB
BIC
BIS

TEMP?
;PICK UP CARRY B]IT
#CLK,BTXCSR
#CLK . TXCSR

MOV
MOV

TMP
BEQ
HLT

TEMPS,RO
aRXDBUF ,R1
20,R1
6%
2

;EXPECTED
*ACTUAL

;DATA (CHARACTER SHOULD COMPARE.
..

s THE DATA (HARACTER SHOULD BE SEEN AS [T

17457¢

6$:

sSHIFTYS ACROSS
DEC

BNE

SCOPE

SHIFT

THF RECEIVER DATA (OLTPUT

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL~-78 15:56

15:50

1470

JLENGTH:

1477
1478
1479
1480
1481
1482

004346
004354
004362
004370
004374
004402

012767
01276%
012767
012704
052777
012777

000003
0064644
006546
036000
000400
030000

1484
16485
1486
1487

004416
004424
004430
004434

012777
010477
105777
100401

004020
013540
013540

004410

16488
1489
1490
1491
1492
1493

004436
004440
004440

1495

1496
1497
1498
1499

1500
1501
1502
1503
15046
1505
1506
1507
1508
1509
1510
1511
1512
153
1514
1515
1516
1517
1518
1519

1520
1521
1522

1523
1524
1825

SEQ 0032

DONE = 1

;JALSC
VERIFYS THAT THE TRANSMITTER CHIP IDLES '‘SYNC'' CHARACTER
;sWHEN NO NEW CHARACTER IS LOADED INTO TXDBUF (''SYNC'' = BINARY COUNT PATTERN)
;:MODE:
SYNC INTERNAL
:;PARITY:
NO PARITY (NOPAR)

}2;2

1494

JoTHIS TEST VERIFYS TX DONE FUNCTION,

1471
1472
1473
1474

1483

PAGE

052777

000400

174552
174534
174530

1ST3:

013572
013560

1%:

013556

112777

000021

(013532

004446
004454

052777
042777

020000
020000

013520
013512

004466

100001

004462

00447C
004472
004472
004500

004506
004512
004514
004516
004516
004524
004524
004532
004540
004544
004546

004552
004554
004556
004564

004566
004566
004574

004602
004604
004612

105777

013506

104000

020000
020000
013462

012767

000007

174414

052777
042777

020000
020000

013442
01343

005367
001367
016703

005000
150400
012767
(005001
052777
042777

000241
(032777
001401

2%:

174374

013474
01346¢

01342/

5¢:

~$:

000010

174354

020000
020000

013400
013372

002000

C133¢2

#3,TSTNO
;SAVE THIS
#TST4 NEXT
;GO TO THIS TEST WHEN THRU
#63,L0CK
;SET UP FOR SCOPE LOOP
#SYNINT 'EIGHT 'NOPAR!0Q,R4
:MODE ETC.
#MMESET ,@TXCSR
;MASTER RESET
#SYNINT ,aPARCSR ;SET THE MODE

MOv
MOV
TSTR
8M]

MINT
! SEND ,a3TXCSR
R4 ,8PARCSR
ATXCSR
:TXDONE?
2%

MOVB
<POKE
6l
BIC

#21,3TXDBUF
CLK TO GET INTO
#CLK,a@TXCSR
#CLK,aTXCSR

8PL

HLT

T1STR

052777
042777
105777
100401
1046000

MOV
MOV
MOV
MOV
BIS
MOV
BIS

013550

104000

EIGHT

7%:

HLT

#MRESET ,@TXCSR

;TXDONE

aTX(SR

#CLK,aTXCIR
#CLK,TXCSR
aTXCSR
A 3

MOV

87, SHIFT

BIS
BIC

#CLK,aTXCSR
#CLK,@TXCSR

SHOULD BE

SYNCIRON]JZATION
sPOKE CLK UP
;POKE CLK DOWN

JPOKE
JPOKE

SHOULD BE

CLR

CLK UP
CLK DOWN

;TXDONE

SHOULD BE

SET

;POKE CLK UP
;POKE CLK DOWN

SHIFT
5%
JSHIFT OUT THE '‘21'°
TXCSR,R3
<FOR ERROR MESSAGE
;THE BIT WINDOW IS RE GENERATED

INTO

;A CHARACTER AND LEFT PRESENTED IN R1
;FOR THE COMPARE OPERATION. IF YOU WANT
;LOCK ON A PARTICULAR SYNC (HARACTER...
JSET SWR09-1

(LR
BISB
MOV
(LR

RO
R4,RO
;EXPECT ''SYN(''
#8..SHIFT
;& OF SHIFTS
R1

BIS
BIC

#CLK,aTXCSR
#CLK,TXCSR

JPOXE
JPORE

&' Tw, @ TX(SR
8%

CLC
817
BEQ

SET

;LOAD ANY CHAR

cTXDONE

8IS
BIC
TSTR
aM]
RLT

DEC
BNE
MOV

;MASTER RESET

(LK UP
(LK DOWN
0

ey
Ny

UE~D MACY11

£ JEE RS

i GRS P

S R

UED.P1

30A(1052)

21-NOV-78

18-JuUL~78 15:56

526
527
528
529
530
531
532
533
53
535
2%9

0046746
004616
004620
004624
004626
004630
004632
00463
00463
00463
004640

000261
106001
005367
001360

538
539

00464c

“(6eln

020001
00140°
1046002
10464607
105254
00725¢

174314

15:50

8% :

PAGE 36

SEQ 0033

SEC
RORB
DEC
BNE
MP
BEQ
HLT

;SET CARRY
R1
;PiCK UP (CARRY
SHIFT
7%
;FINISH THAT CHARACTER
RO,R1
:CMP EXPECTED vS ACTUAL
9¢
3
JSYNC CHAR IS NOT CORRECT

SCOP1
INCR
BNE

R&
1%

SCOPE

JSET UP FOR NEXT SYNC HOLDING REG.
JFINISHED WITH BINARY COUNT PATTERN ?

CZDUE-D MACY11 30A(1052)
21-NOV-~-78
CZDUED.P11
18-4UL~78 15:56

15:50

1540

PAGE

SEQ 0034

;. THIS TEST PROVES

1541

THAT RXERR FREEZES

JsRESET'' WHILE IN STRIP SYNC MODE

1542
1543
1544
1545

THE 'RECEIVER

2o THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR
scWHEN STRIP SYNC IS SET AND SYNC C(HARA(CTERS ARE SENT

;:BUT IF AN ERROR SHOULD OCCUR...THIS AUTOMATIC RESET
;.1S DISCOMBOBULATED
;:1E:
FORCE OVERRUN (OVERRUN) WHILE STRIP SYNC IS SET
;:BY TRANSMITTING A DATA CHARA(CTER THEN TRANSMIT A SYN(C CHARA(TER

;cAND DON'T READ THAT DATA CHARACTER.
;;g;g?;gEgHE RXDONE

NOTE:

& ERROR FLAGS PROVIDING

NORMALLY THE LOGIC

THAT ONLY

SYNC

CHARA(CTERS ARE

SYNC EXTERNAL (SYNEXT)
.MODE:
EIGHT
JoLENGTH:
JoNOTE:
THIS TEST USES BOTH RECEIVER AND TRANSMI!TER LOGIC

004644
004652

012767
012767

000004
005146

174254
1746236

004660

052777
012777
052777

000400
020000
000400

013306
(013274
013272

004674

ST4:

MOV

#4 ,TSTNO

BIS
MOV
BIS

MRESET ,@TXCSR
;MASTER RESET
#SYNEXT ,@PARCSR ;SET THE MODE
AMRESET ,@TXCSR
;MASTER RESET

MOv

#TSTS NEXT

;SAVE

THIS

;60 TO THIS TEST WHEN THRU

;StT MAINTENANCE MODE & SEND
012777

004020

013264

012777
112777
052777
016703
012767
052777
042777
012767

026026
000026
000420
013226
000003
020000
020000
000010

013252
013254
013226

052777

020000
020000
174132

174176
013222
013214
174152

013200
073172

;NOTE:BIT WINDOWECLK ARE CLEARED
MOV
#MINT
. SEND,QTXCSR

:SET MODE.,# OF BITS,PARITY SENSE,& LOAD SYNC REG
MOv
#SYNEXT!EIGHT
!NOPAR. 26, aPAR(SR
MOVR
#26,aTXDBUF
;LOAD SYNC CHAR
BIS
MOV

MOV

12:
[4

012700
017701
020001
001401

0767

BIS

#CLK, aTXCSR

DEC
8NE
TSTR

SHIFT
2%
aRX(SR

8PL

HLY

TIMES SYNC WILL BE SENT

(LK UP
CLK DOWN
SHIFTS

;POKE

(LK UP

1%
#26 R0

BtQ

MO,

JPOKE

CLK DOWN

JRXDONE?
JRXDONE

SHOULD NOT

ASSERT

COUNT

aRADBUF R’

(mpP

17407y

#CLK,aTXCSR

MOV
HLT

000003

;¥ OF

;POKE
;POKE
W OF

PEC

104002

#3,COUNT

#CLK,aTXCSR
#CLK ,@TXLSR
#8.,SHIFT

BNE
MOV

00002¢
01312¢

#SYNSCH.STPSYN,@RXCSR
,SET SYNC SEARCH & STRIP SYNC
RXDBUF ,R3
sSET UP FOR ERROR MESSAGE

BIS
BIC
MOV

BI(C

013144

17411¢

(MTDATA-0)

RO,R?

#3, (OUNT

JEXPECTED

JACTUAL
;NOTE

THAT OVERRUN SHOULD NGO O(CUR,

sSYN(

HOLDING REGISTER

W OF

TIMEC

:SECOND & 3RD SYNC

ALSO

CHARA(TER (AME FROM

596
597

005052

112777

000025

15:50

013720

wny
—

i
G
S

RRARRRRLS
W
200
BN
= OO0 00 NOWNES

S QT
ST (S

D eed —ad
d —d
el

[

[0 Yo Yo X0, Yo Yo Yo !

—

SEQ 0035
#25,
97T XDBUF

;LOAD ANY CHAR....HOWEVER...
sONE MORE SYNC CHAR WILL BE SENT BEFORE
;ALREADY UP)

005060
005066
005066
005074
005102
005106
005110
005114
005116
005122
005124
005126
005126
005132
005136
005140
005142

2767

00001C

174052

052777
042777
005367
001367
005367
001361

020000
220000
174032

013190
013C72

5%:

6%:

174026

105777
100401
104000

01303¢

012700
017701
020001
001401
104002

140026
0130206

#8.,SHIFT

;4 OF

SHIFTS

#(LK,aTXCSR
#CLK,aTXCSR

s POKE
s POKE

(LK UP
CLK DOWN

SHIFT
6%
COUNT

§§XCSR

;THE '25'" CHAR IS SENT (THE DNA BIT IS

JRXDONE

;RXDONE SHOULD BE SET
#RXERR.OVRRUN'!26
,RO ;EXPECTED

aRXDBUF ,R1

JACTUAL

sNOTE

THAT OVRRUN SHOULD OCCUR,

JALSO SECOND SYNC CHARA(TER CAME

b md

sFROM SYNC

HOLDING REGISTER
THE OVRRUN STOPPED
AUTOMATIC RESETTING Of

: SUMMARY:
sTHE

ad
Db

PAGE

MOVR

598
S99

3RIRER 2222

€ DUE-D MACY11 30A(1052)
21-NOV~78
TZDUED.P11
DUE
18-JuUL~78 15:56

005144
005144

106b
0

:
8%

;RXDONE & ERROR FLAGS

(HECK

THIS

CZDUE-D MACY11 30A(1052)
21-NQv-78
18-JUL=-78 15:56
CZDUED.P11

15: 50

PAGE

SEQ 0036

;o THIS

TEST VERIFYS

THAT EITHER SEQUENCE

TSTS:

TMMoV

#5,TSTNO

BIS
MOV
BIS

#MRESET ,aTXCSR
MASTER RESET
#SYNEXT
. 3PARCSR ;SET THE MODE
MMRESET ,aTXCSR
JMASTER RESET

;. LOADING TXDBUF AND SETTING SEND
;.DOES CAUSE TRANSMISSION
SYNC EXT
SMODE:
EIGHT
:
SILENGTH

FARRREX LXLXXL ao&o
=20V
~NON WIS AN 2O 0 BIS

P
S
Y—

d o

1635

005146
005154

012767
012767

000005
005354

005162
005170
005176

052777
012777
052777

200400
020000
000400

MOV

#TST6, NEXT

;SAVE THIS
;GO TO THIS TEST WHEN THRU

JSET MAINTENANCE MODE & SEND
005204

012777

004020

012762

005212
005220
005224
005232
005240
005246

012777
016703
042777
012767

026026
012750
000020
000025
000025
000020

012750

005254
005262
005270

052777
042777
012767
005000
006067

020000
020000
000010

052700

002000

052777
042777
017701
042701
020001
001401

020000
020000
012642
075777

112777

052777

103002

;NOTE :BIT WINDOWECLK ARE CLEARED
MOV
#MINT
! SEND,aTXCSR

MOV
MOV
BIC
MOV

173704

001352
005352

104400

173577

BIS

#25, TEMP1
#25.aTXDBUF
#SEND, 3TXCSR

.LOAD (HARACTER
JSET SEND

BIS
BIC

#CLK,RTXCSR
#CLK.@TXCSR

sPOKE CLK UP
sPOKE (LK DUWN

CLR

BCC
BIS

2$
#3]Tw.RO

BIS
BIC
MOV

#CLK.BTXCSR
#CLK.RTXCSR
TXCSR,R1

MOVB

2%:

MOV

ROR

#8. SHIFT

2075777
R1

HLT

DE(
BNE
S¢ OPF

;W OF

SHIFTS

TEMP1

BIC

cTMP
BEG

104003

005367

#SYNEXT !EIGHT !NOPAR!26,3PARCSR
TXCSR.R3
;SET UP FOR ERROR MESSAGE
#SEND ,@TXCSR
;DROP SEND

:GET INTO SYNCRONIZATION

012654
G12646

(MTDATA=0)

;SFT MODE
., # OF BITS,PARITY SENSE.® LOAD SYNC REG

012742

173640

RO,R1
3s

SHIFT
s

JEQUIV Or BIT WINDOW
;POKE CLh WP
JPOKE (LK DOwWN

JACTUAL

;SAVE BIT WINDOW & DNA

JBIT WINDOW DID NOT MAT(H ACTUAL DATA BIT
cALSO CHECK DNA

CZDUE-D MACY11 30A(1052)
21;NOV-78
18-4uL~78 15:5
CZDUED.P1
1674
1675
1676
1677
1678
1679
1680
1681
12%%
1684
1685
1686

1687

s
NR NS WO
2OV
WA
A

d
b
D
D nd
——t
d e
b
D
e
b e
d
b
d

NNNN NN NNNNNNNNNNYNY
NN POPNONIN)
= D
2

1688
1689
1690
1691
1692
1693

15:50

PAGE 4C

SEQ 0037

;o THIS TEST VERIFYS

;.MIDDLE OF

THAT DROPPING OF

SEND

IN THE

TRANSMITTING A (CHARA(CTER DOES INDEED

;sFINISH TRANSMITTING THAT (HARA(CTER
SYNC EXT
JsMODE:

J:LENGTH:

005354

012767

000006

005370
005376
005404

052777
012777
052777

000400
02000C
000400

005362

012767

1S76:

005570

EIGHT

MOV

MOV
BIS

MOV

BIS

#6,TSTNO

ATST7 NEXT
#MRESET ,@TXCSR

#SYNEXT ,@PARCSR

#MRESET ,3TXCSR

;SAVE

THIS

;GO TO THIS TEST WHEN THRU

;MASTER RESET

;SET

THE MODE

;MASTER RESET

JSET MAINTENANCE MODE & SEND
005412

01c77~

004020

012554

005420
LU5426
005432
005440
005446

012777
016703
112777
012767
012767

026026
012542
000252
000252
00209

012542

005454
005462

052777
042777

020000
020000

005470
005472
005476

005000
006067

17344¢

005500

052700

002000

005504
005504
005512
005520
005524
005530
005532

05277
042777
017701
042701
020001
001401

020000
020000
012450
075777

005534

103002

;NOTE :BIT WINDOWECLK ARE CLEARED
#MI
! SEND,aTXCSR
MOV
NT

;SET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG
MOV
MOV

173/ 76
173464

MOVB
MOV
MOV

#SYNEXT!EIGHT !NOPAR!26,aPAR(SR
TXCSR,R3
;SETUP FOR ERROR MESSAGE

#252,3TXDBUF
#252, TEMP1
#8. SHIFT

*LOAD DATA CHAR.
SSHIFTED CHAR
:# OF SHIFTS

012512
012504

BIS
RIC

#CLK.RTXCSR
#CLK.RTXCSR

:POKE
*POKE

CLK UP
CLK DOWN

CLR
R?R

8CC
BIS

RO
TEMP1
2
#8]TW,RO

:FORCE

CARRY

BIS
BIC
MOV

#CLK,@TXCSR
#CLK .@TXCSR
aTXCSR,R1

CMP

RO,R1

012540

1%:

012467
012454

2%:

BIC

BEQ

104003

005536
005536
005542
005550
005552
005560
005564

005367
022767
001003
042777
005767
001341

0055¢¢

1046490

177376
002003

173370

000020

012414

173354

(MTDATA=(®

HLT

DEC

(MP
BNE
48 :

:GET INTO SYNCRONIZATION

#075777 .R1
3
3

;EQUIV OF

BIT WINDOW

;POKE CLK UP
:POKE CLK DOWN
*ACTUAL

*SAVE ONLY BIT WINDOW & DNA
:BIT WINDOW DID NOT MATCH
:ACTUAL DATA 3IT

SHIFT

#3, SHIFT
«$

BIC

#SEND,@TXCSR

;DROP SEND

BNE

:DO IT AGAIN>

SCOPE

SHIFT

CZDUE~D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL-78 15:56

15:50

1726

;2MODE: SYNC

};gg

1732
1733

1;%?

1736

Q05570
005576
005604
005612

005620

012767
012767

052777
012777

052777

000007
006044

173330
173312

000400
030000

012362
012350

000400

012777

064001

(012340

1739
};2?

005634

012777

036026

312326

005642

052777

000420

012310

005650
005656

042777
052777

(20000
020000

012316
012310
012302
012274

1742
1743
1744
1745
17646
1747
1748
1749
1750
1751
1752
1753
1754

005664
005672
005700
005704

042777
052777
016703
012767

020000
020000
012260
000002

005712
005716

105767
100402

173260

1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776

005724
005732
005740
005744
005750
005752
005760
005762
005764
005764
005770
005772
005774
005774
006002
006010
006014
006020
006022
006024
006024

012767
012767
004767
005367
001365
032777
001001
104000

000010
000026
011720
173172

173206
173204

004000

(12200

105777
100001

012170

1778
1779
1780
1781

005720

006030

006034
006036
006040
006042

9205367

173216

TST7:

BIS

(00010
000025
011650
012140

MOV

012700

000025

017701

020001
001401
104002

;SAVE THIS
;G0 TO THIS TEST WHEN THRU

MMRESET,aTXCSR
;MASTER RESET
#SYNINT ,aPARCSR ;SET THE MODE

MMRESET ,9TXCSR

;MASTER RESET

#MTDATA' CLK 'MINT 'BREAK ,@TXCSR

JSET MODE ,# NF BITS,PARITY SENSE,RLOAD SYNC REG
MOV
#SYNINT ! EIGHT !NOPAR ! 26 ,aPARCSR
BIS

JPOKE

173230C

1%:

2%:

173136
173134

#7,TSTNO
NTST8,NEXT

JSET MAINT DATA,
,BREAK ,ZMAINTENANCE
CLK MODE

104000

012767
012767
004767
105777
10071
104000

MOV
MOV

BIS
MOV

012346

005626

1777

INTERNAL

:;LENGTH: EIGHT

};gg'

1755

SEQ 0038

;sTHIS TEST VERIFYS THAT RXDONE ASSERTS WHEN STRIP SYNC S SET

1727

1730
1731

PAGE 41

012130

#SYNSCH'!STPSYN,aRXCSR
;SET SYNC SEARCH &
;STRIP SYNC
JPOKE CLK TO GET RECEIVER INTO SYNCRONIZATION......
8IC
#CLK,a3TXCSR
JPOKE (LK
BIS
#CLK,aTXCSR
:
(LK TO GET LOGIC INTO SYNCRONIZATION
8IC
#CLK,aTXCSR
<POKE CLK DOWN
81S
#CLK,aTX(CSR
;POKE CLK UP
MOV
RXDBUF ,R3
<FOR ERROR MESSAGE
MOV
#2,COUNT
;¥ OF TIMES OF SYN(C CHARS.
JTEST TO SEE HOW MANY SYNC CHARS
NEEDED
TSTRH
SYNCNO
8M]
1%
sWILL IT BE ONE OR TwWO ?

DEC

;MAKE IT ONE LESS

#8. ,SHIFT
MOF SHIFTS
#26,TEMPI
;SYNC CHAR
PC ,RPOKE
COUNT
;1S IT THE LAST SYNC CHAR ?
13
;GO AGAIN AND SHIFT IN ANOTHER SYNC
#RECACT ,aRXCSR
;RECA(CT=1?
23
JRECACT SHOULD BE ASSERTED

TSTR
B8PL
HLT

aRX(SR
3%

;RXDONE=0?

MOV
MOV
JSR
TSTR
BM]
HLT

A8, ,SHIFT
#25,TEMPI
P(C ,RPOKE
aRX(SR
4«

JMOF SHIFTS
JANY (HARACTER

MOV

#25,R0

JEXPECTED

(MP
BEQ
HLT

RO,R1
5%
¢l

JCHARACTERS SHOULD BE MATCHED

MOV

5¢:

COUNT

MOV
MOV
JSR
DEC
BNE
BIT
BNE
HLT

aRXDBUF ,R”

CHAR

JRXDONE SHOULD NOT BE ASSERTED

JRXDONE-1?
cRXDONE SHOULD NOW BE ASSERTED

ACTUAL

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZ0uED.P11
18-JUL-78 15:56
1782

" 783

006042

104400

15:50

PAGE &2
SCOPE

SEQ 0039

S
PR N, RE B33
BE gRF

CZDUE~D MACY11 30A(1052)
21-NOV-78
CZDUE D P11
18-JUL=-78 15:56

15:50

b
b
b
b o
D
d
b o
d

—_

052777
012777
052777

000400
030000
000400

012074
012062
012060

012777

064001

012052

006122

012777

036026

012040

006130

052777

000020

006136
006144

042777
052777

006152

=200

3054
3036

000500

SYNC CHARA(CTER SEQUENCE

TST8:

MOV

#8,TSTNO

JSAVE

TSTB

SYNCNO

BPL
JMP
BIS
MOV
BIS

#MRESET,aTXCSR
;MASTER RESET
#SYNINT ,@PARCSR ;SET THE MODE
MMRESET,a@TXCSR
;MASTER RESET

173112

D D e d
D ) d D

000010
006574

b rd

%mmmmmmmmmmg

;. IN THE MIDDLE OF A CHARACTER,

;:1S NEEDED BEFORE RECACT, RXDONE ASSERT AGAIN.
;cALSO NOTE:
SINCE RECACT IS DEPENDENT ON MAT(CH DETECT,
;;AND IF SYNSCH IS DROPPED IN THE MIDDLE OF
s:A SYNC CHARACTER AND THEN RAISED AGAIN ;RXDONE SHOULD
;:NOT ASSERT UNTIL NEW SYNC CHARACTER SEQUENCE
SYNC INTERNAL (SYNINT)
;oMODE:
EIGHT
;.LENGTH:

= OV

SEQ 0040

;o THIS TEST VERIFYS THAT BY DROPPING SYNSCN

b
b

ed —ad

e
D —b

b
e

d oD
b d

ed ed e
—h e

b nd eeod d

o ]
N

1822

PAGE 43

MOV

HTST9 NEXT
1%
16%

THIS

;GO TO THIS TEST WHEN THRU

:TWO SYNC

CHARACTERS SELECTED

;IF ANSWER WAS NO
DO THIS TEST
;IF ANSWER WAS YES
JUMP OVER THIS TEST

;SET MAINT DATA,CLK,BREAK ,EMAINTENANCE MODE
Mov

;SET MODE

#MTDATA!CLK
!MINT !BREAK,aTXCSR

,# OF BITS,PARITY SENSE,RLOAD SYNC REG

MOV

ASYNINT!EIGHT !NOPAR!26,aPARCSR

012022

8IS

#SYNSCH,aRXCSR

;SET SYNC SEARCH

020000

012030
012022

BIC
BIS

#CLK,3TXCSR
#CLK,@TXCSR

;POKE CLK DOWN
;POKE CLK UP

042777
052777
012767
016703
012767
012767
004767
005367
001403

020000
020000
000002
011764
000010
000026
011444

012014
012006

8IC
BIS

#CLK,aTXCSR
#CLK ,aTXCSR

;POKE
;POKE

105767
100762

172744

032777
001001

004000

020000

104000

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

172746

17273¢

172730

MOV
MOV
MOV
MOV
JSR
DEC
8EQ

#2,COUNT
RXDBUF ,R3
#8. ,SHIFT
#26, TEMP1
PC ,RPOKE
COUNT
3%

8M]

BIT

#RECACT,aRXCSR

HLT

2%:

172716

000004
000026
011376
004000

CLK DOWN
CLK UP

A OF TIMES
;FOR ERROR MESSAGE
;# OF SHIFTS
:SYNC CHAR.

;JTEST TO SEE HOW MANY SYNC (HARACTERS NEEDED
7ST8B
SYNCNO
011716

104000

012767
012767
004767
032777
001001

;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

172664
172662

011664

BNE

MOV

MOV
JSR
BIT

BNE

HLT

#4,SHIFT

226, TEMP1
PC,RPOKE
#RECACT ,@RXCSR

;RECACT-1?
;RECACT

SHOULD

SET

;¥ OF SHIFTS

*SYNC CHAR.

;RECACT=1?
JRECACT

SHOULD

STILL BE

SET

ONONSWN=20

QS N

| S

U SN

FTITXRTATES FEEL 838383588838&"383393989898%9898?9898

W
= O V00NN
NN = OV NN WA —O

CZDUE~D MACY11 30A(1052)
21-NOV-78
18-JUL-78 15:56
CZDUED.P11

1879

042777
032777
001401

15: 50

5%:

000020
004000

PAGE 44

BIC

BIT
BEQ

104000

SEQ 0041
#SYNSCH,aRXCSR

ggECACY,aRXCSR

HLT

;DROP SEARCH SYNC
JRECACT=0?,

;RECACT

SHOULD NOT BE

sNOW SHIFT TWO BITS TO ALLOW SEARCH SYNC =0 TO TAKE

SET

SEFFECT IN THE LOGIC(THIS ALLOWS THE RECEIVER CHIP TO SEE
é;HE DROPPING OF SEARCH SYNO).. .MATCH DETECT IN THE
REC.CHIP SHOULD ALSO DROP

012767
004767
052777
032777
001401

200002
011332
000020
004000

172612

011620
omer?

104000

105777
100001
104000

011602

012767

000002
011270
004000

00140‘

7%:

172550

011546

012700
017701
020001
001401
104002

000026
011536

012767

000002

105767

172530
1724€6

011556
:
9%

10%:

172500

104000

000025

HLT

JRYDONE

MOV
JSR
BIT

BEQ
HLT

TSTR

HLT

11%:

SHIFTS

sSET SEARCH SYNC

=0 ?

= 0 ?

#2,SHIFT
PC,RPOKE
#RECACT ,a@RXCSR

;8 OF SHIFTS

JRECACT=0?
JRECACT SHOULD NOT BE SET
JRXDONE-0Q?

aRX(SR

10%

JRXDONE

SHOULD NOT BE

12%:

426 ,RO

(MP
BEQ

RC,R1
11%
2

s CHARACTERS SHOULD BE MATCHED

MOV

#2,COUNT

A OF

1STB

SYNCNO

DEC

COUNT

HLT

MoV
MOV

aRXDBUF
,R1

TIMES OF

#RECACT ,adRXCSR

HLT

JRECACT

TSTB

aRXCSR

172406
172404

HLT

MOV
MOV

(CHARS.

cIT WAS ONLY ONE NEEDED
48. SHIFT
s#OF SHIFTS
#26,TEMP1
+SYNC CHAR

BIT

BPL

SYNC

NEEDED

;WILL IT BE TWO OR ONE ?

PC ,RPOKE
COUNT
IS

BNE

14%:

12%

JSR
DEC

ENE

13-

ASSERTED

MOV

-BM]

011450

000010

3RXCSR

JRECACT

¥ OF

;TEST TO SEE HOW MANY SYNC CHARS

004000

012767
012767

TSTB

HLT

MOV

172656
172454

011440

PC ,RPOKE
#SYNSCH,aRXCSR
#RECACT ,aRXCSR
7%

BPL

000010
000026
011170
172442

105777
100001
104000

8%:

#2.SHIFT

JSR
BIS
BIT
8EQ

BPL

104000

105777
100001
104000

MOV

12%
138

IT THE LAST SYNC (HAR ?
;00 AGAIN AND SHIFT IN ANOTHER SYNC (HAR
JRECACT-1?

SHOULD BE

4c. ,SHIFT
#25,TEMPI

ASSERTED

JRXDONE=0?
sRXDONE
JHOF

SHOULD NOT BE

SHIFTS

JANY (HARA(TER

ASSERTED

004767
105777

012700
017701
020001
001401

£8L2LRLLLL

100401
104000

15:50

011120
011410

000025

PAGE 45

JSR

TSTRB

15%:

BM]
HLT

MoV
MOV

011400

(MP
BEQ
HLT

104002

SEQ 0042
PC,RPPOKE

?géCSR

JRXDONE=1?

;RXDONE SHOULD NOW BE ASSERTED
#25,R0
aRXDBUF ,R1
RO,R1
16%
2

JEXPECTED
sACTUAL

s CHARACTERS SHOULD BF MATCHED
s1F THIS
FAILS THEN CHECK THAT THE CORRECT
SRECEIVER CHIP 1S BEING USED...WHAT IS

SHAPPENING

THAT MATCH DETECT

IS ASSERTING

;BEFORE A NEW SYNC CHARACTER SEQUENCE

;TRANSPIRES

006572
006572

104400

THUS RXDONE ASSERTS TOO SOON

SAND OVER RUN OCCURS SINCE THE RECEIVER WAS NOT READ
;CONCLUSION::: IF OLDER RECEIVER CHIP
;IS BEING USED THEN REPLACE IT WITH A NEW
JRECEIVER (HIP IF 1 SYNC (HARACTER SEQUENCE S DESIRED

WA
NOWN

N
DD
b
—

—_ e

ded DD

g ol elelNelNe
Vo Vo Vo]

D e

1896
1897
1898
1899

2O V0NN IS AN
—

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL~78 15:5 6

14%:

SCOPE

CZOUE-D MACY11 30A(1052)
21-NOV-78
CZDWED.PW
18-JUL-78 15:56

15:50

PAGE 46

SEQ 0043

1918
1919
1920

¢THIS TEST VERIFYS THAT HDX MODE DISQUALIFIES THE
..RECEIVER WHEN SEND [S ASSERTED
;sMODE:
SYNC EXT

1922
192¢
1924
1925

J:NOTE:
THIS TEST WORKS ONLY IN MAINT. EXTERNAL MODE
;. THIS TEST USES BOTH RECEIVER R TRANSMITTER LOGIC
TST19:
MOV
#9,TSTNO
;SAVE THIS
MOV
#TST1O NEXT
;G0 TO THIS TEST WHEN THRU

1937

1938

1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961

0066446

010020

011322

006652

012777

026026

011310

052777

172367

011342
000400

020000
000400

006674
006702
006706
006706
006710

005302
001376

006712

042777

0200C5

006720

016702

172212

006724
006726

005302
001376

006730
006736
006736

012767

000010

172202

052777

020000

011230

006744
006750

016702

172166

000020
000025

011272
011304

(052777

020000

011272

016702

172230

020000

006766
006766
006770

006762

016702

172150

005307
001376

1972

006772

005367

—

&~
[V 1AV

022767

§N

006776

—

042777

006754

—

1965
1966
1967
1968
1969
1970

#MRESET,aTXCSR

MOV

IfF

.
'NO

;MASTER RESET

MMEXT ! SEND ,aTXCSR

(MTDATA-0)

JSET MODE ,# OF BITS,PARITY SENSE.& LOAD SYNC REG

MOV

468:

011254

1%:

011212
67%:

172144

;GET OUT OF THIS TEST
.FOR ERROR MESSAGE
;MASTER RESET
ASYNEXT ,aPARCSR ;SET THE MODE

;SET MAINTENANCE MODE & SEND
JNOTE:BIT WINDOWRCLK ARE CLEARED

6€$:

005302
001376

JMRBY
7%
RXDBUF ,R3
MMRESET ,aTXCSR

BIS

65%:

006750
006752

011330

052777
112777

006724

TSTB
BPL
MOV
BIS
MOV

011344
011332

006660
006666

1962
}ggz

1973

172324
172306

#SYNEXT!EIGHT 'NOPAR ! 26,aPARCSR

BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC
MOVR
#25,aTXDBUF
;ANY CHARACTER
;POKE CLK FOR SYNCRONIZATION
BIS
#CLK,aTXCSR
JPOKE CLK UP
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 ;WAIT THIS AMT
DEC
R2
CWAIT
8SNE
648
JEXIT.
..
BIC
#CLK,QTXCER
.POKE (LK DOWN
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 ;WAIT THIS AMT

DEC
R2
CWAIT
BNE
65%
JEXIT.
..
MOV
#8. ,SHIFT

:# OF

SHIFTS

8IS
#CLK,aTXCSR
;JPOKE (LK (P
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 :WAIT THIS AMT

DEC
e?ilr

R2
66$%

SWAIT

BIC
#CLK,aTXCSR
.POKE (LK DOWN
JWAIT FOR CABLE £ DRIVER DELAYS
I\
HOLD,R2 :WAIT THIS AMT
DEC
BNE

CMP

—

}g%g

.
012777

006636

000011
007152

—

1933
1934

012767
012767
105707
100°55
016703
052777
012777

}g%}

006574
006602
006610
006614
006616
006622
006630

EIGHT

1926
1927
1928
1929
1930

:LENGTH:

1921

R2
67%

TSI TET

#3,SHIFT

CWALT

sa OF SHIFTS

$ISTIT TIME TO LOAD NEXT (HAK °

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDWED.P1N
18-JUL-78 15:56
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986

007004
007006
007014
007020
007022
007026
007030
007032
007032
007036
007042
(007044
007046

001003
112777

005767
001346
105777
100407
104000

000024
172120

012700
017701
020001
001601
104002

000025
9211122

052777
012767
052777

000010
000010
)
020000

016702

172040

007050
007050
007056
007064
007064

007072
007076
007076
007100

005302
001376

1998
1999
2000

007102

042777

020000

007110

016702

172022

2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012

007114
007116

005302
001376

007120
007124
007126
007132
00713

005367
001357
105777
100001
1046000

011026

€07136
007136

017701

01°022

2001

007114

017164

PAGE 47

2%:

01'13%2

1987
1988
1989
1990
1991
1992
1993
1994
1995

}ggg

15:50

3%:

011116
172054
011102

(%:
4%

688
:

BNE
MOVB

f98:

2%
#24 ,QTXDBUF
SHIFT
1%
aRX(SR
3%

TST
BNE
TSTR
BM]
HLT

6%:

JRXDONE SHOULD BE

SET

JEXPECTED
JACTUAL

BIS
MOV

#HDXEN,aTX(SR
#8. ,SHIFT

;SET HALF DUPLEX HDX
.# OF SHIFT

;CHARACTERS SHOULD COMPARE

BIS
#CLK,aTXCSR
;POKE CLK UP
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 ;WAIT THIS AMT

DEC
B?EIT

R2
68%

JWALT

BIC
#CLK,aTXCSR
JPOKE (LK DOWN
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,RZ ;WAIT THIS AMT

DEC
B8NE

MOV

é?P
Q
HLT

’

JRXDCNE-1?

#25,R0
aRXDBUF ,R1
RO,R1
%3
2

R2
69%

JWALT

JEXIT.
..
DE(
SHIFT
BNE
5%
TSIR
aRX"SR
BPL
6%
HLT

172014

;LOAD NEXT (HAR.

MOV
MOV
{MP
BEQ
HLT

JEXIT.

011064

SEQ 004

L OPF

JRXDONE -C?
cRXDONE SHOULD NOT BE ASSERTED
JCHECK QUT HDX LOGIC

aRXDBUF ,R1

sACTUAL

. CHARACTERS SHOULD COMPARE

RO,RT

JNOTE THAT CHARACYER 25 WILL BE FROZEN
JIN THE RXDBUF EVEN THOUGH (HARACTER 24 wWwAS
:SENT TO THE RECEIVER

CZDUE-DM1ACV11 30A(1052) Z;ENOV-78

CZDUED.P

18-JUL-78

15:50

2022
2023
2024

2025
2026
2027
2028
2029
2030
2031

2032
gggz

2035
2036
58%6

SIMODE:
SYNC EXT
CTLENGTH: - EIGHT
Py
007152
007160
007166

007176
007202

007210

012767
012767
052777

012777
052777

012777

000012
0074'0
000400

020000
000400

171746
171730
011000

2040 007216 01,777 026026

010744

2039

007224
007232
007236

2044

007244

2046

007252

2048

007266

2047
Sggg

2051

2052
2053
2054
2055
2056
2057

2058
2059

007260
007272

007300

007300
007306
007314
007320
007326
007330

052777
016703
012767

112777

000020
010726
000002

052777

020000

010714

012700

000025

012767

052777
042777
005367
022767
001003
112777

020000

171640

020000
020000
171620
000003

010666
010660

000024
171576

(10642

007336
007342

005767
001356

2061
2062
2063
2064
2065
2066
2067
2068
2069
2070

007350
007352
007354
007354
00730
007362
007364
007366
007366
007376

105777

100401
104000

01060

017701
020001
001401
104003

010604

052777
012700

000001
000000

2072

007404

001332

2060

2071

2073

007344

007400

007406

005367
104400

17153¢

:SAVE

THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET

#SYNEXT .3PARCSR :SET THE MODE
MMRESET.QTXCSR
-MASTER RESET

(MTDATA=0)

MOV

#SYNEXT 'EIGHT .NOPAR! 26, aPARCSR

MOVE

#25.aTXDBUF

BIS
MOV
MOV

#SYNSCH,@RXCSR
RXDBUF ,R3
#2, COUNT

;SET SEARCH SYNC
*FOR ERROR MESSAGE
‘¥ OF TIMES

*ANY CHARACTER

;POKE CLK FOR SYNCRONIZATION

BIS

#CLK,aTXCSR

:POKE CLK UP

MOV

#25 R0

“EXPECTED

BIS
BIC
DEC
CMP
BNE
MOVB

#CLK,QTXCSR
#CLK.TXCSR
SHIFT
#3,SHIFT
38
#24,aTXDBUF

;POKE CLK UP
*POKE (LK DOWN

:LOAD NEXT CHAR

TSTB

@RXCSR

;RXDONE=1?

MOV
MP
BEQ
pLT

aRXDRUF ,R1
RO,RT
5$
3

:AC TUAL

8IS
MOV

#BREAK,8TX(SR
#0 RO

;SET BREAK
SFXPECTED

BNE

BIC

18%:

2%:

171612

7$:

4$:

010600

#10,TSTNO
#TST17 NEXT
#MRESET,aTXCSR

;SFT MODE.# OF BITS,PARITY SENSE.& LOAD SYNC REG

01070¢€

000010

(SYNEXT)

:SET MAINTENANCE MODE & SEND
:NOTE :BIT WINDOWRCLK ARE CLEARED
MOV
MMINT ' SEND,aTXCSR

171676

010726

MOV
MOV
BIS

MOV
BIS

010726

000025

042777

TST10:

010766
010764

010756

2045

SEQ 0045

::THIS TEST VERIFYS THAT BREAK FORCES A SPACE CONDITION
*ION THE LINE WHILE TRANSMITTING
P:THIS TEST USES BOTH THE RECEIVER AND TRANSMITTER LOGIC

004020

2041
2062
2043

PAGE 48

5¢

MOV

TST
BNE
BM]
HLT

DE (

SCOPE

#CLK.RTXCSR
#8. SHIFT

SHIFT
23
48

COUNT

*POKE CLK DOWN
# OF

SHIFTS

(Z0UE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JuUL-78 15:56

2075
2075
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086

007410
007416
0074246
007430
007432
007440
007444
007446
007454

012767
012767
105767
100076
052777
105767
100405
012777
005777

2088
2089
2090
2091

007466
007474
007502

2092

2093

007512

15:50

PAGE 49

SEQ 0046

;o THIS TEST VERIFYS THAT DSC CAUSES AN INTERRUPT
;cTHIZ TEST ONLY WORKS IN MAINT EXTERNAL MODE
,,INTERRUPT VECTOR:
DURIV
TST11:
MOV
#11,TSTNO
;SAVE THIS
MOV
#TST12, NEXT
;GO TO THIS TEST WhEN THRU
T1STB
JMRBY
JIN MAINT EXTERNAL?
BPL
7$
;1F ANSWER NO JUMP AROUND TEST
BIS
MMRESET ,aTXCSR
;MASTER RESET
TSTB
OPTCLR
;1S THE OPTIONAL CLR JUMPER IN ?
8M]
13
s YES
MoV
#0, BRXCSR
;CLR THE UNRESETTABLE BITS
TST
@RXCSR
;GET RID OF DSC BY READING RXCSR

000013
007630
171553

171510
171472

000400
171535

010534

000000
010500

010504

016777
016767
000423

010032
010026

010516

010512
170274

1$%:

MOV

#2%,aDURIV

;SET UP TRAPCATCHER

007504

012767

000340

170264

éS

MOV

MLEVEL7,PS

JDON'T ALLOW ANYMORE INTERRUPTS

2094
2095

007516
007520

100401
104000

BM]
HLT

2087

007522

2087

2096
2098
2099
210C

007460

007522

012777

005777

042777

007504

010642

000040

010430

007530
007536
007542

012716
016777
012777

007620
010646
000000

010442
01043¢

2103
2104
2105
2106
2107
2108
2109
S}}?

007552
007560
007566
007570
007570
007572
007574
007602

052777
052777
005000

000040
000002

010400
010372

005200
001376
016777
012777

010606
000000

2112

007610

042777

2116

007620

012767

518;

2113

51’5
e

007550

007616

007626

000002

104000

104400

MOV
DUPRT ,aDURIS
;
MOV
LESS1.PS
SALLOW INTERRUPTS
BR
48
< JUMP AROUND INTERRUPT SV( ROUTINE
THE FOLLOWING IS THE INTERRUPT SV( ROUT INE

3%:

TST

8IC

aRX(SR

#DSINTE ,aRXCSR

;DSC=1?
sFALSE

INTERRUPT

;CLEAR INTERRUPT ENABLE

MOV
MOV
MOV

#6$, (SP)
DURIS,aDURIV
#0,a3DUR]S

;SET UP RETURN LOCATION
;RESTORE TRAPCATCHER
H

8IS
BIS
CLR

#DSINTE ,@RXCSR
#DTR,@RX(SR
RO

;SET INTERRUPT ENABLE
;TRY TO CAUSE INTERRUPT

RO
5%
DURIS,8DURIV
#0,aDLR]S

JWAIT FOR

INTERRUPT

010402
010376

INC
BNE
MOV
MOv

JRESTURE
:

TRAPCAT(CHER

000040

01034¢

BIC

#DSINTE ,@RX(SR

00030

170150

MOV

SLEVEL7,PS

RTI

4$:

5%:

6$:
’$:

H T

SCOPE

;CLEAR INTERRUPT ENABLE

S INTERRUPT

FAILED

TO OCCUR

CZDUE-D MACY11 30A(1052)
21-NOV~78
CZDUED.P11
18-JUL-78 15:56

15:50

2117
2118
2119

PAGE S0

4
SEQ 0047

::THIS TEST VERIFYS THAT RXDONE CAUSES AN INTERRUPT
;;MODE:
SYNCL EXTERNAL
:SINTERRUPT VECTOR:
DURIV

S}S?

::LENGTH:

2122
g}sz

007630
007636

012767
012767

000014
010176

171270
171252

2125
2126
5155

007644
007652
007660

052777
012777
052777

000640
020000
000400

010322
010310
030306

2129
5459

007666

012777

064001

010300

JSET MAINT DATA,CLK
,BREAK ,EMAINTENANCE MODE
MOV
MMTDATA! CLK 'MINT 'BREAK ,@TXCSR

007674
007702

012777
052777

026026
000020

007710
007716

042777
052777

020000
020000

010266
010250
]
010256
010250

;SET MODE ,# OF BITS,PARITY SENSE,ELOAD SYNC REG
MOV
#SYNEXT'EIGHT
'NOPAR ' 26, @PARCSR
BIS
#SYNSCH,@RXCSR
;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,3TXCSR
:POKE CLK DOWN
BIS
#CLK,aTXCSR
:POKE CLK UP

007732
007740

016777
016767

007566
007562

010246
170030

2132
2133
213
2135
213
2137

2138

2139
2140
2141

0077264

0077646

012777

000425

2142
2143
2144

007750
007756

012767
042777

2146
2147
2148
2149
2150
2151
2152
S;gz

007770
007772
007774
007774
010000
010006
010016
010020

100401
104000

2155
2156
2157
2158
2159
2160
2161
2162

2145

007764

105777

012716

007750

000340
000100

010170

010166

010252

170020
010174

010202
000000
010144

G10176
010172

010022
010030
010036

052777
012767
012767

000100
000010
000025

0°0130
1721102
171°0C

010044
010052

042777
000241

040000

010122

21664
2165
2166
2167

010060
010062
010070
010076

103003
052777
042777
052777

2169
217C
2171
2172

010110

001385

2163

2168

010056

010106

010112
T10114

006067

00537
005000

17103C

#12,TSTNO
#TST13,NEXT

BIS
MOV
BIS

#MRESET ,@TXCSR
:MASTER RESET
#SYNEXT .aPARCSR :SET THE MODE
AMRESET.RTXCSR
:MASTER RESET

MOV
MOV

TSTR

BM]
HLT

MOV

MOV
MOV
MOV

DUPRT,aDURIS
LESST.PS
3s

:SET UP TRAPCATCHER

;
:ALLOW INTERRUPTS

:JUMP AROUND INTERRUPT SVC ROUTINE

SRXCSR

:RXDONE=1?

;FALSE

#8%, (SP)

DURIS.aDURIV
#0,aDURIS
@RXDBUF ,R1

INTERRUPT

JSET UP RETURN LOCATION

*RESTORE TRAPCATCHER
:
:CLEAR INTERRUPT

3$:

BIS
#RINTEN,Q@RXCSR
;SET INTERRUPT ENABLE
MOV
#8.,SHIFT
*
& OF SHIFTS
MOV
#25. TEMPI
STO BE SHIFTED (HARA(TER
;THE FOLLOWING POKES THE MAINT DATA BASED UPON THE
; INFORMATION CONTAINED [N TEMP1 AND IT IS
SCHIFTED IN BY THE CONTENTS OF SHIFT
4$:
BIC
#MTDATA,@TXCSR
L

ROR

010106
010076
01007

#1838, aDURIV

:SAVE THIS
;GO TO THIS TEST WHEN THRU

;THE FOLLOWING IS THE INTERRUPT SVC ROUTINE
1%:
MOV
#LEVEL?Z,PS
;DON'T ALLOW ANYMORE INTERRUPTS
BIC
#RINTEN,@RXCSR
:CLEAR INTERRUPT ENABLE

RT]

171064
040000
020000
020000

MOV
MOV

MOV

’s:

016777
012777
017701

000002

TST12:

EIGHT

S$%:

BCC
BIS
BIC
BIS

DEC

TEMP'

:FORCE CARRY

5%
#MIDATA,3'XCSR
#CLK,@TXCSR
#CLK,ITXCSR

cHIFf

X3
S INTERRUPT SHOULD NOW Of “UR
(LR
R
68:

CZDUE-D MACY11 30A(1052)
21-NOvV-78
CZDUED.P11
18-JUL-78 15:56

SBIRRRER

d ad

) wd o

SIS AN N1V [NV 1oV 1, ¥)

2173
2174
2175
2176
2177
2178
2179
2180
81

010114
010116
010120
010126
0101346
010140
010144
010150
010156
010160
010162

001401
1040C2

010164

104000

010766

C12767

0'C'764

005200
001376
016777
012777
016703
012700
017701
042777
020001

"04400

15:50

SEQ 0048
INC
BNE

210062
Q00000
010024
000025
010014
000100

MOV

MOV
MOV
MOV

JWAIT FOR

DURIS ,aDURIV
#0,aDUR]S
RXDBUF ,R3
#25,R0

JRESTORE TRAPCAT(HER

aRXDBUF ,R1

€760¢

8%:

INTERRUPT

*FOR ERROR MESSAGE
CEXPECTED

#RINTEN,IRXCSR

;CLR INTR ENABLE

s CHARACTERS SHOULD (OMPARE

RO,R1
7%

’s:
00C34C

PAGE

JINTERRUPT FAILED TO OCCUR
#MLEVELZ,PS

(ZDUE-D MACY11

CZDWED.P11

30A(1052)

21-NOV-78

18-JUL-78 15:56

15:50

PAGE 52

SEQ 0049

2190
21N

;o THIS TEST VERIFYS THAT TWO INTERRUPTS THAT TRAP T0O
s THE SAME VECTOR ARE BOTH EXECUTED

S}gz

JsTHIS TEST ONLY WORKS

2192

c195
2196
2197
2198
g;gg

;o INTERRUPT VECTOR:

010176
010204
010212
010216
8}8552

012767
012767
105767
100402
000167

000015
010654
170765

170722
170704

2201
2202
2203
2204
2205
2206
gggg

010224
010230
010232
010236
01023€
010244
010252

105767
100402
005077

170751
007722

052777
012777
052777

000400
020000
000400

007730
007716
007714

2209
SS}?

010250

012777

064001

007706

010266
010274

012777
052777

026026
000020

007674
007656

010302
010310
010316

042777
052777
012777

020000
020000
010342

007664
007656
007660

010340

000457

000426

2212
2213
2214
2215
2216
2217
2218
2219
2220
Sgg}
2223

2224

IN MAINT EXTERNAL MODE

MOV
MOV
TSTR
BM]
JMP

#13,TSTNO
;SAVE THIS
#TSTI6 NEXT
.GO TO THIS TEST WHEN THRU
JMRBY
o IN MAINT. EXTERNAL?
1%
JIF ANSWER WAS YES DO THIS TEST
15%
;JIF ANSWER WAS NC JUMP AROUND TEST

T1STR
BM]
(LR

OPTCLR
g 3
aRX(SR

8IS
MOV
8IS

MMRESET,aTXCSR
;MASTER RESET
#SYNEXT ,dPARCSR ;SET THE MODE
MMRESET ,aTXCSR
;MASTER RESET

010324
030332

010342

016777
016767

007174
007170

007656
167436

012767

000340

167426

2225
2226
2227
2228
2229
Sgg?

010350
010354
010356
010360
070360
010364

012716
012777

010644
010446

2232
2233
2234
2235
223
2237
2238
2239
2240
ggz;

010372
010400

052777
017701

000002
007560

010404
010412
010414
010414
010416
010420

016767
005000

007116

2243
2244
2245

71ST13:

DURIV

010426

010430
010436
070444

105777
100401
104000

005200
00376
042777
104000

016777
012777
000002

007604

2%:

;SET MAINT DATA,(CLK
,BREAK ,EMAINTENANCE MODE
MOV
MMTDATA ! CLK 'MINT !BREAK ,@TXCSR

JSET MOTE &4 OF BITS,PARITY SENSE,LLOAD SYNC REG
MOV
#SYNEXT 'EIGHT !NOPAR ! 26 ,@PARCSR
BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC
;POKE CLK TO GET LOGIC INTU SYNCRONIZATION
8IC
#CLK,8TXCSR
;POKE CLK DOWN
BIS
#CLK,a8TXCSR
JPOKE CLK UP
MOV
#38 ,aDURIV
;SET UP TRAPCAT(HER
MOV
DUPRT ,aDURIS
.
MOV
LESS1,PS
JALLOW INTERRUPT
B8R
9%
s JUMP AROUND SVC ROUTINE
:THE FOLLOWING IS THE

3%:

007552
000000

MOV

1ST

#LEVELZ,PS

INTERRUPT SVC ROUTINE

DON [ ALLOU ANY MORE INTERRUPTS

TSTR
am]
HLT

aRX(SR
'A

MOV
MOV

2148, (SP.
#7%,8DURIV

007560

BIS
MOV

#DTR,IRX(SR
aRXDBUF ,R1

167364

MOV
CLR

LESS1,PS
RO

INC
BNE
8iC

RO
JWAIT FOR NTERRUPT
5%
#RINTEN DSINTE ,aRXCSR
.CLR INTR ENABLES

%
007612

5%:
000140

IS THE OPTIONAL CLEAR JUMPER IN ?
YES
NO CLEAR UNRESETTABLE BITS

007532
007546
007542

HLT

¢€$:

MOv
MOV
RT

RXDONE =

JFALSE

INTERRUPT

JSET UP RETURN LOCATION
:?E;EESU;$APCATCHER FOR SECOND
JIN

;TRY TO CAUSE SECOND INTERRPT
;JUST READ RXDBUF TO CLR RXDONE
JTO ALLOW SECOND INTERRUPT
JALLOW INTERRUPT

JOND INTERRUPT FAILED TO OCCUR

DURIS,aDURIV
#C,a8DURIS

JRESTORE
.

TRAPCAT(HER

CZOUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18~JUL~78 15:56

2246
2247

2248

010446

012767

010454
010460
010462
010464
010464
010472

042777
012716

000140
010430

007466

2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275

010500
010506
010514

052777
012767
012767

000140
000010
000025

007452
170424
170622

010522
010530
010532
010536
010540
010546
010554
010562
010566

042777
000241
006067
103003
052777
042777
052777
005367
001355

040000

007644

010570
(C°0572
010572

005000

2276

010476

010574

2277
2278

010576
010604

2281
2282
2283
2284
2285
2286
Ssgg

010622
010626
(10634
010636
010640
010642
010642

2289

010644

2279
2280

ggg?

010612
010616

010652

000002

005200
00376
016777
012777
016703
012700
017701
042777
020001
001401
104002

007500

167322

2249
2250
2251
2252
2253
2254
Sggg

005777
100401
104000

100340

15:50

040000
020000
020000
170352

007426
007420
007412

007404
000000

007400
007374

007336
000140

007324

012767
104400

8%:

000340

MOV

TST
8Mi
HLT

BIC
MOV

16706

WLEVEL?7,PS
aRXCSR
8%

JDON'T ALLOU ANYMORE INTERRUPTS

;DSC = 1

JFALSE INTERRUPT

#RINTEN!DSINTE ,@RXCSR
;CLR BOTH INTR ENABLES
#6$, (SP)
JSET UP RETURN LOCATION

9%:

BIS
#RINTEN!DSINTE ,@RXCSR ,;SET INTERRUPT ENABLES
MOV
#8. ,SHIFT
;# OF SHIFTS
MOV
#25. TEMP
:THE FOLLOWING POKES THE MAINT DATA BASED UPON THE
: INFORMATION CONTAINED IN TEMP1 AND IT IS
;SHIFTED IN BY THE CONTENTS OF SHIFT
10%:
BIC
#MTDATA ,@TXCSR
CLC
ROR
TEMP1
;FORCE CARRY
BC(
11%
BIS
#MTDATA ,@TXCSR
11$:
BIC
#CLK,aTXCSR
BIS
#CLK,aTXCSR
DEC
SHIFT
BNE
10%
;1ST INTERRUPT SHOULD NOwW OCCUR
CLR
RO
128:
INC
RO
JWAIT FOR INTERRUPT
BNE

14%:

15%:

12%

;

MOV
MOV

DURIS ,aDURIV
#0,aDURI S

MOV
BIC
CMP
BEQ
HLT

@RXDBUF ,R1
W#RINTENIDSINTE ,aRXCSR ; (LR INTERRUPT ENABLES
RO,R1
13$
l
s CHARACTERS SHOULD COMPARE

MOV
MOV

13¢:

104000

SEQ 0050

. THE FOLLOWING IS THE 2ND INTERRUPT SYC ROUTINE

7%:

RTI

170406

007346
000025

PAGE 53

RXDBUF ,R3
#25,R0O

HLT

MOV

SCOPE

JRESTORE
:

TRAPCAT(HER

;FOR_ERRQOR MESSAGE
JEXPECTED

s INTERRUPT FAILED TO OCCUR

#LEVEL7,PS

sDON'T ALLOW ANY MORE

INTERRUPTS

CZDUE~D MACY11 30A(1052)
21-NOV-78
CZDUED. P11
18-JuL-78 15:5

PAGE

SEQ 0051

;¢ THIS

TEST VERIFYS

THAT DNA CAUSES AN INTERRUPT

TST14:

MOV

#14,TSTNO

BIS
MOV
BIS

#MRESET ,@TXCSR
;MASTER RESET
#SYNEXT ,@PARCSR ;SET THE MODE
#MRESET ,@TXCSR
;MASTER RESET

SYNC EXTERNAL
;MODE:
DUTIV
.o INTERRUPT VECTOR:
010654
010662

000016
011150

170¢26

010670
010676
010704

000400
020000
000400

007276
007264
007262

170244

010712

012777

004020

007254

010720
010726
010734

012777
112777

012767

02602~
0. Jued
000010

207242
007244

010742
010750

052777
042777

020000
020000

007224
007216

052777
042777
005367
001367
012777
016777
016767
052777

020000
020000

007210
007202

011050
096512
006506
000040

007202
007176

020000

007136

— b

010756

170142

170176

MOV
MOV

MOVB
MOV

(=]

N
SSPRRR
FRSY
)=

FSN0T

—

011132

100601
104000

;GO TO THIS TEST WHEN THRU

#MINT
! SEND,@TXCSR

#SYNEXT
'EIGHT !NOPAR ! 26 , @PARC
SR

#25,3TXDBUF
#8. ,SHIF"

;LOAD CHARACTER

BIS
BIC

#CLK,aTXCSR
#CLK.OTXCSR

;POKE CLK UP
:POKE CLK DOWN

8IS
BIC
DEC

#CLK,aTXCSR
#CLK,aTXCSR
SHIFT

.POKE CLK UP
JPOKE CLK DOWN
JLAST SHIFT?

BNE
MOV
MOV
MOV
BIS

13
#3$,aDUT1V

BIS
CLR

gng.arxcsn

;POKE

INC

:WAIT FOR INTERRUPT

BNE

HLT

- THE

s
.

FOLLOWING

MOV
TST

BM]

HLT

042777
012716
016777
012777
000002

000040
011140
007106
00000C

007100

RIC

007102
007076

016777
012777

007070
000000

007064
007060

042777

000040

00703¢

MCv

5¢

(LK

; INTERRUPT FAILED

THE

: JUMP AROUND SVC ROUTINE

INTERRUPT SERVICE

NLEVEL?.PS

STXCSR

#DNAINTE ,@TXCSR

TO OCCUR

ROUT INE

SDON'T ALLOW ANYMORE INTERRUPTS

*DNA?

:FALSE

;CLR

INTERRUPT

INTR ENABLE

#6$, (SP)

JSET UP RETURN LOCATION

MOV

#0,3DUTIS

MOV
MOV

DUTIS,aDuUTIv
#0,aDUTIS

JRESTORE
H

BIf

#DN/ INTE ,aTXCSR ;CLR INTERRUPT ENABLE

MOV

RTI

5%:

;SET UP TRAPCA'CHER

DUPRT ,aDUTIS
.
LESS1,PS
cALLOW INTERUPTS
#DNAINTE ,@TXCSR ;ENABLE INTERRUPT

:NOW POKE CLK TO GET DNA

104000

THIS

1%:

166754

166720

sSAVE

;POKE CLK TO GET INTO SYNCRONIZATION

000340
007112

#TST15,NEXT

;SET MODE ,# OF BITS,PARITY SENSE,® LOAD SYNC REG

007144

000423
012767
005777

MOV

;SET MAINTENANCE MODE & SEND
;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA-0)

005200
001376

—h ——

OOQOCOVOVOO0QO

— emd b d b ed ——d —d e —d

— v oed wd cd e —

OO0

052777
005000

—

229¢
293
2294
2295
2296
2297
2298

1,:50

DUTIS,aDUT IV

JRESTORE

TRAP(AT(CHER

TRAP(CAT(HER

CZDUE-D MACY11 30A(1052)
2;-NOV-78
C20ueD.P11
18-JUL-78 15:56
2348
2349
2350

011140
011166

012767
104400

000340

15:50

66630

6%:

PAGE 55
MOV
SCOPE

SEQ 0052
#LEVEL7,PS

JRESTORE NO INTERRUPT STATUS

CZDUE~-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL-78 15:56

15:50

2351
2352
2353
2354
2355
%gg?

011150
011156

012767
012767

000017
011334

167750
167732

2358
2359
2360
2361
2362

011164
011172
011200
011206
011214

052777
012777
016777
016767
052777

000400
011242
006320
006314
000100

007002
067010
007004
166562
006752

TST15

2372
2373
2374
2375
2376

011242
011250
011256
011262
011264

012767
042777
105777
100401
104000

000340
000100
006712

2378
2379
2380
2381

011266
011272
011300
011306

012716
016777
012777
000002

011324
006714
000000

2383

011310

016777

006676
000000

006672
006666

4%:

2386
2387

011324
011332

012767
104400

000340

166444

5%:

011316

012777

1%:

000100

006736

166526

006716

#15,TSTNO
#TST16,NEXT

;1HE

2$:

3%:

CLR
INC
BNE
BIC
HLT
BR

FOLLOWING

MOV

BIC
TSTB
HLT

:SAVE THIS
:GO TO THIS TEST WHEN THRU

:MASTER RESET

#2%,30UTIV
DUPRT,aDUTIS

*SET UP TRAPCATCHER
-

ggxlNTE.aTXCSR

*ENABLE

§2

;WAIT FOR INTERRUPI

ATXINTE ,@TXCSR

-CLR INTERRUPT ENABLE

LESS1.PS

005200
001376
042777
104000
000423

005000

MOV
MOV

#MRESET ,@TXCSR

011222
011224
011224
011226
011230
011236
011240

S%gg

SEQ 0053

"THIS TEST VERIFYS THAT TXDONE CAUSES AN INTERRUPT
sINTERRUPT VECTOR:
DUTIV
NOTE TXDONE = 1
AFTER A MASTER RESET

2363
2364
2365
2366
23€7
2363
236¢
2370

2382

PAGE 56

CALLOW INTERPUTS

INTERRUPT

*INTERRUPT FAILED TO OCCUR

: JUMP AROUND SVC ROUTINE

IS THE INTERRUPT SERVICE ROUTINE
#LEVEL?,PS
;DON'T ALLCW ANYMORE
#TXINTE ,@TXCSR
;CLR INTR ENABLE
; TXDONE?
aTXCSR

INTERRUPTS

JFALSE INTERRUPT

#5%, (SP)
DUTIS,aDUTIV
#0,aDUTIS

JSET UP RETURN LOCATION
JRESTORE TRAPCATCHER

MOV

DUTIS,aDuUTIV
#C,3DUTIS

JRESTORE

MOV

#LEVELZ,PS

JRESTORE NO INTERRUPT STATUS

006710
006704

TRAP(CATCHER

CZDUE-D MACY1] 30A(1052)
21-NOov-78
C7DUED.P11
18-JUL~78 15:56

2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
26400

2401
2402
2403
2404
2405
2606
26407
26408
2609
24610
2611
2412

26413

2414
2415
2616
2417
2618
2419
2420
2421
2422
2423
2424
2625

2426
2427
26428
26429
2630

15: 50

PAGE 57

SEQ 0054

;o TH1S TEST VERIFYS THAT TXDONE DOES NOT CAUSE AN
s ;WHEN PROCESSOR PRIORITY LEVEL IS TOO HIGH

INTERRUPT

2o INTERRUPT VECTOR: DUTIV

011334
011342
011350
011356
011364
011372
011400

V11406
011410
011410
011412
011414
011422
011430
011436
011444

012767
012767
052777
012777
016777
016767
052777
005000
005200
001376
042777
012767
016777
012777
000423

000020
011516
000400
011446
006134
006126
000100

167564
167546
006616
006624
006620
166376
006566

000100
000340
006556
000000

006552

166322

011462

000340
000100
011504

006512

011466
011474
011502

016777
012777
000002

006520
000000

006514
006510

011514

012767
104060

104400

TST16:

MOV

#16,TSTNO

MOV
MOV
BIS
CLR

DUPRT ,aDUTIS
DUPRT ,PS
sSET PS LEVEL TOO HIGH
#TXINTE ,@TXCSR
,ENABLE INTERRRUPT
RO
;WAIT FOR INTERRUPT

INC
BNE
BIC
MOV
MOV
%
BR

RO
:
1%
ATXINTE ,@TXCSR
;CLP® INTR ENABLE
MLEVEL7 ,PS
JDON'T ALLOW INTERRUPTS
DUTIS.adUTIV
'RESTORE TRAPCAT(CHER
#0.aDUTIS
4%
sTEST IS OK....GET OUT OF TEST

166346

012767
042777
012716

011512

TXDONE = 1 AFTER A MASTER RESET

006552
006546

011446
011454

011504

;oNOTE:

;THE

28:

MOV
BIS
MOV

FOLLOWING

MOV

8IC

1017
MOV

E?Y

#TST17 NEXT
#MRESET ,aTXCSR
#2%,aDUTIV

THE

sSAVE THIS

;GO TO THIS TEST WHEN THRU
;MASTER RESET
;SET UP TRAPCATCHER
;

INTERRUPT SVC ROUTINE

HLEVEL?7,PS

;DONT ALLOW ANYMORE INTERRUPTS

#3$, (SP)

:SET UP RETURN LOCATION

#TXINTE ,@TXCSR

DUTIS,aDuTIVv

#0,aDUTIS

;CLR

INTR ENABLE

;TG REPORT ERROR
JRESTORE TRAPCAT(HER

;

JEND OF INTERRUPT SV( ROUTINF

0C0340

166264

2YOU SHOULD NOT
-WAS AN ERROR

3¢

4$:

MOV
HLT

SCOPE

GET

INTO

THIS FOLLOWING

MLEVEL7 ,PS

CODE

UNLESS

THERE

;sDON'T ALLOW ANYMORE INTERRUPTS

s INTERRUPT SHOULD NOT OF OCCURED,CHECK
;THE

INTERRUPT

LEVEL

SELECTED OR CHEC(K

;INTERRUPT LOGIC OR BOTH

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JuL~78 15:56

15:50

PAGE 58

SEQ 0055

2631
2632

::THIS TEST VERIFYS THAT TXDONE CAUSES ONLY ONE
*:PROVIDING THAT TXCSR 1S NOT READ

2634
2435
2636

$:THIS TEST CHECKS THE ONCE ONLY FLIP/FLOP (v2)
$:OF THE INTERRUPT CONTROL LOGIC
*INTERRUPT VECTOR: DUTIV

24633

SIAND TXDBUF IS NOT LOADED (WRITTEN)

32%;

SINOTE: TXDONE = 1

2639
2640
2441

011516
011524
011532

012767
012767
052777

000021
011712
000400

167402
167364
006434

2643
2644
2645
2646
2647
2448

011546
011554
011562
011570
011572
011572

016777
016767
052777
005000

005752
005746
000100

006436
166214
006404

2651

011600

2642

2649
2450

2452
2453
2454

2455

2456
2457
2458
26459
2460

2661

011540

011574
011576

011602
011610

011614

012777

012767
012716

012777

011622

000002

011624

012767

2670
2471
2672
2473
2474
2475
2676
2477

011650
011652
0116564
011654
011656
011660
011666
0116764

005200
001376
016777
012777
042777

2479

011710

104400

011702

012716
105777
100401
1046000

#17,TSTNO
#TST18 NEXT
#MRESET ,a3TXCSR

;SAVE

MOV
MOV
BIS
C_R

DUPRT,aDUTIS
LESS1.PS
#TXINTE ,@TXCSR
RO

;
*ALLOW INTERRUPTS
-ENABLE INTR ENABLE

INC
BNE
HLT

000340
011652

011624

00034C

011660
006332

‘66166

006366

166144

MOV

000340

006322
006316
006272
16606%

*SET UP TRAPCATCHER

RO
1%
- INTERRUPT FAILED TO OCCUR

#3%.3DUTIV

SSET UP TRAPCATCHER TO

;PROVE THAT THE INTERRUPT DOES NOT OCCUR
STWICE (AFTER RT] 'ING FROM THIS
1SVC ROUTINE

T1
- THE FOILOUING INTERRUPT SVC ROUTINE WILL CATCH THE SECOND INTR

3$%:

5§:
6%:

006326
000000
000100

#28 ., aDUTIv

THIS
;GO TO THIS TEST WHEN THRU
;MASTER RESET

;THE FOLLOWING IS THE INTR SVC ROUTINE
2%:
MOV
#LEVEL?,PS
;DON'T ALLOW ANYMORE INTR
MOV
#5%. (SP)
“SET UP RETURN LOCATION

4%:

000002
005000

AFTER A MASTER RESET

MOV
MOV
BIS

MOV

104000

012767

TST17:

006442

000427

011632
011636
011642
011644
011646
011646

2478

011602

005200
001376
104000

26462
2463
2664
2665
2666
26467
2468

24669

INTERRUPT

7$:

MOV

NLEVEL7.PS

;DON'T ALLOW INTER

MOV
TSTB
BM]
HLT

#7%. (SP)
SSET UP RETURN LOCATION
@TXCSR
;TXDONE = 17
48
: TXDONE SHOULD BE SET

HLT

;THE INTERRUPT WAS TAKEN TWICE.........
SCHECK OUT THE V2 FLIP/FLOP LOGIC

*IN ThE INTERRUPT CONTROL LOGIC

RT]
(LR

INC
BNE
MOV
MOV
BI(

RO
63
DUTIS.3DUTIV
#C.aDUTIS
*TXINTE,@TXCSR

MOV

SCOPE

;ALLOW TIME TO CATCH SECOND

#LEVEL7.PS

;IF

1T WERE

TO OCCUR

:RESTORE TRAPCATCHER
;
(LR INTERRUPT ENABLE
CRESTORE NO

INTERRUPT

STATUS

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18~JUL=78 15:56

15:50

PAGE 59

SEQ 0056

2681
2682

;;THIS TEST VERIFYS THAT TwO INTERRUPTS THAT TRAP
$:TO THE SAME VECTOR ARE BOTH EXECUTED

gzgg

;:MODE:

24683

P S INTERRUPT VECTOR:

2486
%232

0117212
011720

012767
012767

000022
012302

167206
167170

2689
2690
gzg;

011726
011734
011742

052777
012777
052777

000400
020000
000400

006240
006226
006224

2493

24694

5232
2497
2698

26499
2500
2501
2502

011750

012777

004020

006216

011756
011764
011772

012777
112777
012767

)
026026
000025
000010

006204
(06206
167149

012006

012000

052777

020000

006160

2505
2506
2507
2508
2509

012014
012014
012022
012030
012034

052777
042777
005367
001367

020000
020000
167104

006152
006144

2511
2512
2513
2514
2515
2516
2517
2518

012044
012052
012060
012066
012070
012070
012072
012074

016777
016767
052777
005000

012100

005454
005450
000140

006144

005200
001376
104000

C12100

012767

000340

105777
100401
104000

006052

012126

012716

012272

012140
012146

052777
112777

020000
000025

52}3

2521

2522

012036

012076

2523
2524
2525
2526
2527
2528
2529
2530

012106
012112
012114
012116
012116
012122
012124
012126

2532
2533
2534
2535

012132

2531

2536

MOV
MOV

#18,TSTNO
#TST19, NEXT

;SAVE THIS
:GO TO THIS TEST WHEN THRU

8'S
MOV
BIS

MMRESET,aTXCSR
;MASTER RESET
#SYNEXT.@PARCSR :SET THE MODE
MMRESET.,@TXCSR
:MASTER RESET

:SET MAINTENANCE MODE & SEND

5282

2510

TST18:

DUTIV

SYNC EXTERNAL

042777

012777

006166

;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)

MOV

;SET MODE.# OF BITS,PARITY SENSE.® LOAD SYNC REG
MOV
#SYNEXT
'EIGHT !NOPAR' 26, aPARC SR

MOVB
#25,aTXDBUF
;LOAD CHARACTER
MOV
#8. . SHIFT
;POKE CLK TO GET INTO SYNCRONIZATION
BIS
#CLK,3TXCSA
:POKE CLK UP
1%

2%:

000464

005777
100001
104000

012777

BIC

#CLK.ATXCSR

*POKE CLK DOWN

BIS
BIC
DEC
BNE

#CLK,@TXCSR
#CLK.aTXCSR
SHIFT
1s

:POKE CLK UP
:POKE CLK DOWN
SLAST SHIFT?

MOV

006140
165716
006106

MOV
MOV
BIS
CLR

INC
BNE
HLT

B8R

006062

012216

165670

#3$ aDUTIV

RO
2%

108

;WAIT FOR INTERRUPT
;
SINTERRUPT FAILED TO OCCUR

;JUMP AROUND SVC ROUTINES
1ST

MOV

#LEVE.7,PS

TSTR
BM]
HLT

@TXCSR
S$

MO\

#1118, (SP)

ST
8PL
HLT

MCv
B!S
MOVR

;SET UP TRAPCATCHER

DUPRT.@DUTIS
;
LESST.PS
SALLOW INTERRUPTS
#TXINTE 'DNAINTE ,@TXCSR
:ENABLE INTERRUPTS
RC

-THE FOLLOWING IS THE

3%:

L$:

006050
)
006026
006024

#MINT ! SEND,@TXCSR

INTERRUPT svc ROUT INE

;DON'T ALLOW ANYMORL [NTERRUPTS

QTXCSR
;DNA=Q 7’
(3
:DNA SHOULD NOT BE ASSERTED
;TXDONL - 37

:FALSE

INTERRUPT

;SET UP RETURN LOCATION

#88,30UTIV
SSET UP TRAPCATCHER
:NOW POKE CL¥ TO BRING UP DNA
#CLk,aTXCSR
:POKE (LK
#.0%,3TXDBUF
JUST LOAD ANY (HAR TO (LR

STXDONE YO ALLOW SECOND INTERRUPT

CZDUE~D MACY'1 30A(1052)
21-NOV~78
CZDUED.PI
18-JuUL-78 15:56

016767
005000

005346

15: 50

165614

6%:

005200
001376
042777

00014C

005776

016777
012777

006006
900000

006002
005776

7$:

012767
005777

000340
005744

'6555¢

8% :

104000

000002

100401
104000

000140
012200

Cos73e

012250
012256

016777

012777

005736
000000

005732
005726

012264

042777

000140

005702

012272

012767

000340

16547¢

012300

104400

LESS1,PS
RO

INC
BNE

RO
;WAIT FOR INTERRUPT
6%
#DNAINTE
' TXINTE,@TXCSR
;CLR INTR ENABLES

HLT

MOV

RT]

- THE

:2ND

DUTIS,8DUTIV

#0.,3DUTIS

MOV

#LEVEL7,PS

MOV
RT!

108:

;ALLOW INTERRUPTS

INTERRUPT FAILED

;RESTORE

TO OCCUR

TRAPCATCHER

FOLLOWING IS THE 2ND INTERRUPT SVC ROUTINE

HLY

SEQ 0057

MOV
CLR

BIC

042777
012716
000002

012242
012246

PAGE 60

MOV

aTXCSR

:DNA
;FALSE

INTERRUPT

NONAINTE
. TXINTE,@TXCSR

#7%,(SP)

DUTIS,aDUTIV

JRESTORE

:CLR BOTH INTR ENABLES

sSETUP RETURN LOCATION
TRAPCAT(HER

MOV

#0,aDUT
]S

BIC

#DNAINTE
! TXINTE ,@TX(SR
;C%R BOTH INTERRUPT

MOv

#LEVE.7,PS

SCOPE

NABLES

JRESTORE
NO [NTERRUPT STATUS

CZDUE-D MACYM 3OA(1052)
21-NOV-78
CZDUED.P11T
18-4UL=78 15:56

15:50

2568
2569
2570

:sMODE:
ISOCRONOUS
JoLENGTH:
EIGHT

gggz

5282
2605

2606

012302
012310
012316
012326
012332
012340

012767
012767
052777
012777
052777
012777

000023
012670
000400
000000
000400
006026

166616
166600
005650
005636
905634
005622

012346
012354
012362
012370
012376
012402
0126406

112777
012777
016777
016767
016703
012700
012777

000025
012454
005136
005132
005562
000025
014020

005624
005622
005616
165600
005560

MOVB
MOV
MOV
MOV
MOV
MOV
MOV

012414

052777

000120

005536

8IS

012622
01242€
01243)
012450
012432
072634
012440
012446
012450

005067
005002

166526

005202
001376
005267
022767
002367
104000

166514
000003

012454

012767

000340

012452

166506

000423

165314

(17704
017701
016777
012777

005472
005472
005510
000000

005504
005500

2612
52;2

012512
012520

042777
000002

000°00

005440

2615

512522

042777

000100

005430

2618
gggg

012546
012552

012777
007415

000000

005434

2621
2622
2623

012554
012556
012560

020001
001401
104002

012506

12530
012536

TST19:

18:
’%:

012462
012666
0126472
012500

2616
2617

(1SYMOD)

::THIS TEST USES BOTH

2607
2608
2609
2610

2611

SEQ 0058

;:THIS TEST VERIFYS CTP MODE (IE SYSTST MODE)
;.17 BASICALLY CHECKS THE EXISTANCE OF
::THE FREE RUNNING OSCILLATOR

2571
2572

2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2596
2595
2596
2597
2598
2599
2600
2601
2002

PAGE 61

012716

012767
016777

012554

000340
005444

165240
005640

«THE

MOV
MOV
BIS
MOV
8IS
MOV

CLR
(LR

INC
BNE
INC
CMP
BGE
HLT
BR

S ¥

R2
28
TEMPS
#3, TEMPS
s
8

JWAIT FOR INTERRUPT

; INTERRUPT DID NOT OC(UR

INTERRUPT SV(C ROUTINE

RLEVEL? ,PS

:PREVENT INTERRUPTS

MOV
MOV
MOV
MOV

aRX(SR R4
@RXDBUF ,R1
DURIS.@URIV ~
#0 aDUR]S

: SAVE
:AC TUAL
:RESTORE
;

BI(
RT]

#RINTEN,@RX(SR

:CLR INTERRUPT tNABLE

MOV

&$:

= RECEIVER & TRANSMITTER LOGIC

#19,TSTRG
;SAVE THIS
#TST20,NEXT
:GO TO THIS TEST WHEN THRU
#MRESET ,@TXCSR ;MASTER RESET
#1SYMOD ,@PARCSR :LOAD THE MODE
#MRESET
. @TXCSR :MASTER RESET
#1SYMOD | E IGHT !NOPAR .26 ,@PARCSR
;LOAD THE MODE,
:# OF BITS PER CHAR,PARITY SENSE(NO PARITY),
:8SYNC CHARACTER (26)
#25,aTXDBUF
:LOAD THE CHAR
#38 ,QDURIV
:SET UP TRAPCATCHER
DUPRT,aDURIS
LESS1,PS
SALLOW INTERRUPTS
RXDBUF ,R3
;SET UP FOR ERROR MESSAGE
#25,%0
-EXPECTED
#SYSTST SEND,@TXCSR
;0K
NOW LOAD SEND &
:MAINT. MODE
#SYNSCH!RINTEN,@RXCSR
;SET SEARCH SYNC &
:RECEIVER INTERRUPT
JENABLE £ WAIT FOR INTERRUPT
TEMPS
R2

FOLLOWING IS THE

MOV

BIC

#5%,(SP)

TRAPCAT(HER

:SET UP RETURN

SRINTEN, @RX(SR

; (LR INTERRUPT ENABLE

MOV
BR

#0,3DURTS
73

cMp
BEQ
!

RC,R?
¢:
2

MOV
MOY

SLIVEL?,PS
:PREVENT INTERRUPTS
DURIS.@DURIV ~ :ReSTORE TRAPCAT(HER

; WAKA TER, DID NOT MAT o

CLDUE‘D MACY11 30A(1052)
21-NQV-78
18-JUL=~78 15:56
CZDUED.P11

2562
566

016703

8}2700

005372

576
600

042701

177577

604
60¢

15:50

6%:

200200

7%:

PAGE 62

MOV
MOV
MOV
8I(
(MP
BEQ
HLT
SCOPE

SEQ 0059
RXCSR,R3
#200,R0

;SETUP FOR FRROR MESSAGE
CEXPECTED

R4 R1

#1%7577 R
RgR1
1

;FALSE

*ACTUAL

*SAVE ONLY RXDONE

INTERRUPT

CZDUE-D MACY11 30A(1052)
21-NOvV-78
CZDUED.P11
- 18-JUL-78 15:56

15:50

2634
2635

PAGE 63

SEQ 0060

;:THIS TEST VERIFYS CTP MODE

(]E

SYSTST MODE)

;.17 BASICALLY CHECKS THE EXISTANCE OF

;. THE

FREE

;MODE:

RUNNING OSCILLATOR

SYNINT

J:LENGTH: EIGHT

012767
012767
052777
012777

052777

000024
013452
00400
020000
000400

166310
166272

;o THIS

TEST USES BOTH

TST20:

MOV

005342
005330
005326

MOV
BIS
MOV
BIS

THE

RECEIVER £ TRANSMITTER LOGIC

#20,7TSTNO

cSAVE THIS

# EOP _ NEXT
;GO TO THIS
MMRESET ,aTXCSR
;MASTER RESET
#SYNINT ,aPARCSR ;SET THE MODE
MMRESET ,@aTXCSR
;MASTER RESET

TEST WHEN THRU

JSET MAINTENANCE MODE & SEND

012646

010777

0160290

IC>»320

012654
012662

012777

0360¢2¢
000470

C0530¢
005270

052777

JNOTE:RIT WINDOWECLK ARE CLEARED (MTDATA=()

MOV

#SYSTST!SEND,aTXCSR

JSFT MODE
., »# OF BITS,PARITY SENSE.L ! QAD SYNC REG
MOV

BIS

#SYNINT 'EIGHT !NOPAR' 26, @PARCSR

#SYNSCH'!'STPSYN,SRXCSR

JSET SEARCH SYNC £

;STRIP SYNC SO THAT RXDONE ASSERTS

.‘WEN CHAR "25°'' ARRIVES ANLC NOT BEFORE...

012670
012674
012674
012676
012676
012700
012702
012706
012714
012716
012724
012732
C12740

166260

b snd ——d

01270y
012767

105767
100402

133

—

~N)

—

wleleleleloBelolalelolel

1%:

2%:
166246

005367
052777
052777
000167
112777

005067
0050C2

005202

001376

+..THEREFORE ,SET

STRIP SYNC

............ WAIT FOR SVNSCH 0 8E
CLOCKED IN BY SYSTST (LK

000603

106240

013136
004574
013232
004560
004554
005204
000025
000002

005260
005254
005250
005244

CLR

TEMPS

(LR

INC
BNE
INC
(M

R2
cwAlT
23
TEMPS
#3,TEMPS

MOV

#7%,8DUR!V

B8GE

MOV

165022

MOV
MOV
MOV

MOV

16615C

166200

ég}fi
005146

005154

00514¢

3¢

DEC

BIS
BIS

JMP

6%
‘;:

MOVE
(LR

;G0 BACK T0O CLR R2 AND WAIT SOME MORE
JSET UP TRAPCAT(HER

DUPRT ,aDURIS

DUPRT ,aDUTIS

;

", COUNT

;¥ OF SYNC CHARS TO GET INTQ

#8% ,a0UT IV

LESS1,PS
;ALLOW INTERRUPTS
RXDBUF R3
JSET UP FOR ERROR MSG
#25,R0O
EXPECTED CHAR

SYN(RONIZATION
%;NCNO
JTEST TO SEE HOW MANY SYN(

COUNT

JMAKE

#RINTEN,IRX(SR

T ONE

;SET

STXINTE ,@TX(CSR

LESS

INTERRUPT ENABLES

JTHE FIRST XMIT

JFROM TXDONF

826 ,87XDBUt
TEMPS

INTERRUPT SHOULD ~OME

AFTER A MASTER RESET

:LOAD SYN(C (HAR

f K

cwAlT FOR

N
Nf

k.
e

(HARS NEEDED

INTERRPY

CZDUE~D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18=JUL-78 15:56

2690
2691
2692

013044
013050
013056

2694

013066

2693

005267
022767
002367

166106
000003

013060

012767

000340

2695
269
2697
2698
2699
2700
2707
2702
2703
2704
5;82

013074
013102
013116
013116
013124
013132

042777
016777
012777
016777
012777
104000

000100
005100
000000
005070
900000

g;gg

01313¢

000542

2710

013136

012767

000340

2712
2713

013150
013154

017701
016777

005010
005026

2709
2211

042777

000100

15:50

166076

013144

017704

005010

164632

013210
013216

042777
042777

000100
000100

004742
004750

2727
2728
2729
2730
2731
2732
2733
273%
2735
273
2737
2738
2739
2760
2761
2762
2763

2764
2765

:PREVENT INTERRUPTS
-CLR INTR ENABLES

#RINTEN.IRXCSR
DURIS.@DURIV ~ -RESTORE TRAPCATCHER
#0,3DURIS
;
pufIs,abuTIV
:
#0.3DUTIS
:TXDONE INTERRUPT FAILED TO OCCUR
CWATCH OUT HERE::: THI5 FAILURE MAY
*ALSO BE CAUSED BY TRANSMIT DATA NOT
*BEING CLOCKED OUT.
I.E.
TXDONE

013204

0132264

013230

012716

016705

000002

013366

165712

013232

005367

165704

013240

012716

013024

013244
013246
013252

000002
012716
000002

013254

013254
013262
013270
013274
013276
013276
013300
013302
013306
013314
013316
013324

112777
042777
005067
005002

013236

013332
013%0

100403

005202
001376
005267
022767
002367
012767
042777

(016777
012777

000025
000100
165660

;GET OUT OF

THE TEST

MOV

#LEVEL?,PS

:PREVENT INTERRUPTS

MOV
MGV

SRXDBUF ,R1
DURIS.@DURIV

*ACTUAL
-RESTORE TRAPCATCHER

MOV

#1538, (sP)

MOV

MOV
MOV
MOV

BIC
BIC

MOV

SRXCSR, R4

LSAVE

#0,30URIS
putis.abutiv
#0,@DUTIS

;
;

#RINTEN,@RXCSR
#TXINTE .@TXCSR

-CLR INTERRUPTM ENABIES

COUNT RS

*SET UP RETURN LOCATION

*SAVE COUNT

RT]
;END OF RECEIVER INTERRUPT SVL ROUTINE
:....THE FOLLOWING IS THE XMITTER INTERRUPT SVC ROUT INE

9s:

004716
00470

165646
000003

165640

000340
000100

164452
004626

006650
000000

178

:THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE

7%:

005022

2718
2719

2726

NLEVEL7,PS

INOT RE-ASCERTING SO THAT THE 2ND
*SYNC CHARACTER CAN BE LOADED

005016
005012
00500¢

2724

#TXINTE.QTXCSR

BIC
MOV
MGV
MOV
MOV
HOT

000000
005016
000000

2725

BIC

0050%6
005074
005070
0G5064
005060

012777
016777
012777

2721
2722
2723

TEMPS
#3, TEMPS
5§

MOV

013162
013170
013176

2720

SEQ 0061

INC
(MP
BGE

164717

0051C9

2714
2715
2716

2717

PAGE 64

004b4s
004640

DEC

BM]

COUNT

MOV

248, (SP)

RT]
MOY
RT]

#108, (SP)

SEND OF XMITTER
10%:
MOVB
BIC
(LR
1§
(LR
128:
INC
BNE
INC
P
BGE
MOV
BI(

MOV
MOv

SSET

P RETURN LOCATION

: (LOAD SYNC CHARACTER AGAIN)

;SET UP RETURN LOCATION

INTERRUPT SVC ROUTINE
#25.aTXDBLF
;LOAD CHARACTER
#TXINTE,@TXCSR
:CLR INTR ENABLE
TEMPS
R
:WAIT FOR INTERRUPT (RECE]VER)
R
123
TEMPS
cs TEMPS
11¢
#LEVEL7.PS
#RINTEN.@RXCSR

DS, 80URIV
#0,800R1S

:PREVENT INTERRUPTS
:C_R INTR ENABLE

RESTORE TRAPCATCHER
;

CZDUE-D??CV11 30A(1052)
21-NOV-78
18-JUL~78 15:56
C2DUED

2746
2747
2748
2749
2750
279

013346
013354
013362
013364
013366
013370
013372

016777
012777
104000
000426
02000°
001401
104002

004640
000000

013374

016703

004560
000200

15: 50

004634
004630
13%:
16%:

177577

'5%:

177777

PAGE 65
MOV
MOV
HLT
BR
(MP
BEQ
HLT
MOV
MOV
MOV
BIC
cMP
8EQ
HL
TM

P
BEQ
HLT

165506

1722777

168

SEQ 0062
DUTIS,aDUTIV
#0,3DU 1S
'RECEIVER INTR FAILED

:GET OUT OF TEST

; CHARACTERS DID NOT MAT(CH

RO,R1
14$
RXCSR,R3

#200,R0

R4 RT
:ACTUAL
587;?77 R1
:SAVE ONLY RXDONE
15£
RS.#=1
s

;FALSE INTERRUPT
;WAS IOUNT -=1
WHEN RECEIVER
: INTERRUPTED °

JIF RS 15 GREATER THAN =1,..........

JTHEN EITHER

IHE

# OF

SYNC

STRAP

IS OCCURING TOO SOON

S WRONG

(MP

BEQ

s1F THIS TEST FAILS,BUT THE ABOVE TEST
sDOESN'T..... IT MAY BE THAT (LEARING
STXINTE IN THE RECEIVER SVC ROUTINE

¢ IS NOT
164326

;SET UP FOR ERROR MSG

:EXPECTED RXDONE

;OR RXDONE

M T

00034C

TO OCCUR

i7¢

MOv
SCoet

STOPPINC TXDONE

SLEVEL7,*S

INTERRUPTS

JINHIBIT INTERRUPTS

CZDUE-D MACY11 30A(105¢)
21-NOV-78
CZDUED.P11
18-JuL-78 15:5

15:50

PAGE 66

2778

2773
2780

JEND OF PASS
sTYPE NAME OF TEST
;UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-1

278]
2782

S;gz

2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806

2807

2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
Sggg

2826
2827
2828
2829
2830
2831
2832
2833

SEQ 0063

JRESTART

013452
013454
013456
013462
013466
013472
013474
013500
013502
013506
013512

106402
016614
104410
104402
105767
001511
005767
001007
104402
016700
000000

013514
013520
013526
013534
013536
013542

000167
062767
062767
000241
006167
103410

165700
000010
000010

013544
013552
013554

036767
001762
004767

1656450
000034

012767

000001

165426

2%:

165410
165410
000002

165404
165404

165364
003702
165360
000002
165344

004040

MOV
MOV
JSR
BR
REPLAY: MOV
JSR
MOV
ADD
MOV
ADD
MOV
ADD
MOV
MoV
RTS

013560

000167

013572
013600
013606
013612
013614
(13622
013626
013634
013642
013650
013656
013664
013672
013700
013706

016767
016767
004767
000441
016767
004767
016767
062767
016767
062767
016767
062767
016767
016767
(00207

013710
013712
013714

000001

013564

013716
013716

013722
013726

020160
005067

005067
005267

.EOP:
9013710
016335
165510
165516
01€347
165504

165456
165456

RUNIT:
2ERO:

165456

000174

000002
165330
000002

165314
004300

002

165212

165320
16576

165644

004350
165350
004336
165334
004324
165320
004312
165304

OUT(RY:

(CC:

TYPE
MEPASS
CONVRT
TYPE
TSTB
BEQ
TST
BNE
TYPE
MOV
HALT
;SELECT
JMP
ADD
ADD
CLC
ROL
8(CS

TEST

;TYPE NAME OF
,QUTCRY
LDEVICE
MULTD
cCC
ACTREG
RUNIT
MCOW
ACTREG,RO

JARE YOU RUNNING MULTIPLE DEVICES ?
;NO, JUMP AROUND
JARE ANY DEVICES ACTIVE ?
JYES
:NO
;DISPLAY ACTREG
;SELECT SOMETHING TO RUN @ ACTREG:
SWITCHES & HIT (ONTINUE (PUT SWO0 =1)
.START
;START OVER AGAIN...... YOU DESELECTED EVERYTHING
#10,BASEADD
INEXT BLOCK (ADDRESSES)
#10,BASEIV
INEXT BLOCK (VECTORS)
ROTADD
2%

BIT
BEQ
JSR

ROTADD ,ACTREG
RUNIT
PC,REPLAY

MOV

#1,ROTADD

JMP

RESTRT

KEEPADD ,BASEADD
KEEPIV,BASEIV
PC,REPLAY
cCC
BASEADD ,DUBASE
PC,DUADDR
BASEIV,DURIV
#2 ,BASE
1V
BASEIV,DURIS
#2 BASEIV
BASEIV.,DUTIV
#2 ,BASE
1V
BASEIV,DUTIS
DURIV BASE IV
PC

1
.BYTE
RX(SR

6,2

(LR

LSTERR

CLR
IN(

TEST

nRFLG
PASCNT

;UP DATE ROTATING POINTER
;IS IT THE LAST DEVICe
;TO BE TESTED IN THIS PASS ?
;TEST THIS DEVICE FOR ACTIVE STATUS
JIF NOT ACTIVE, TRY NEXT ADDRESS
s CALCULATE NEW PARAMETERS

JYES IT WAS ACTIVE,TEST THIS DEVICE

JOK! ,NOW SET UP ROTATING
JPOINTER FOR NEXT MULTIPLE PASS
;RESTORE BASE ADDRESS
JRESTORE BASE INTERRUPT VECTORS
;CALC NEW PARAMETERS
;sJUMP AROUND REPLAY
sSET UP FOR NEW ADDRESSES
;CREATE NEW ADDRESSES
s CREATE DURIV

;CREATE DURIS
;CREATE DUT]V

;CREATE DUTIS
JRESTORE

sCLEAR LAST ERROR P(

sCLEAR ERROR FLAG
JUPDATE PASS (OUNT

CZOUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JuUL~-78 15:56

013732
013740
013744
013746
013750
013752
013754
013756
013760
013766
013770
013776

016777
013701
001405
000005
004711
000240

000167

165172

000042

15: 50

PAGE 67
SEQ 0064

165142

MOV

BEQ
LOGICAL:

000340

164010

003446

165116

167444

RESET

NOP
NOP
NOP
RESTRT: MOV
CKSWR
MOV

JMP

sDISPLAY PASS COUNT
sCHECK FOR ACT=11 OR DDP
;IF NOT, CONTINUE TESTING

PASCNT
,aL IGHTS

a#6?l ,R1

RESTRT
JSR

PC,(RY)

JPREVENT INTERRUPTS (PRIO:
sCHECK FOR *G

#340,PS
#TST1_RTRN
TST1

;SCOPE LOOP AND INTERATION HANDLER
014002

014002

000424

014004
014010
014016
014022
014026
014030
014032
014036
014040
014046
014052
014054
014054
014056

013746
012737

005737
012637

000404
022626
012637
000403
016767
016716
000002
104413

032777
001407
000432
105777
100027

000412
032777
001006
005267
026767

) — —d

eolelelalelelelololelels]

017700

—

) —d
d wd
—t e

PO
¥ o

101412
105067

160

005067
012767
016767
016716
000002

001407
007432

.SCOPE:
,v*+x START OF

B8R

000004
014030
177060

Mov
MOV

000004

000004
165052
165042

165046

2%:

3¢

A ¥

040000

165014
TTIST:

165010

004000

164 766

165004
165000

164774

165112
164764
000005
164744
164734

(MP
MOV

MOV

MOY
RY

1%:

164754
164740

BEQ

B8R

BRW:
BRX :

JTIME

OUT ON

NEXT ,RTRN

RTRN, (SP)

THE

X OR

TESTER

exsax

TTY FLAG

;CHECK FOR G
:LOOP ON CURRENT TEST ?
STEST

MOV
BR

aTKDRR
R0
23

;CLR DONE BIT

sil

B8LOS

(LRR
(LR

#SW11,aSWR

’3
LPCNT

LPCNT,
I COUNT

ERRFLG
LPCNT

JIF

MCYy

RTAN, (SP)

RT]

1407

(32

TTY KEY

;

UP ITERATION COUNT
UP NEXT TEST IN RTRN
UP STACK FOR RT]
OR E 'BEQ_ 18" INSTRUCTION
OR E "BR 3% INSTRUCTION

JCHECK FOR FREEZE ON (URRENT DATA
04166

104413

S(OPY:

(KSWR

IS STRUCK GO TO NEXT

sCHECK FOR ITERATION CNT FINISH

#5, ICOUNT

NEXT ,RTRN

JINHIBIT ITERATIONS ?

MOV
MOV

sSET UP STACK FOR RT]

aTK(SR

X OR

JRESTORE ERROR VECTOR
GO _TO NEXT TEST
;CLEAR THE STACK AFTER A TIMEOUT
JRESTORE ERROR VECTOR
;LOOP ON PRESENT TEST
JSET UP NEXT TEST IN RTRN

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

;IF RUNNING ON THE X OR TESTER CHANGE
sTHIS INSTRUCTION TO A “NOP''(NOP=240)

sSAVE CONTENTS OF ERROR VECTOR
JSET FOR TIME OUT

+, ol
\OF)

TSTR

€

3s:

X OR TESTER

.vexs END OF CODE FOR
(KSWR
BIT
#SW14,aSWR

BNF
INC
2%:

THE

a#é ,-(SP)
28 I

177060

8PL

165004

MOV

1%:

CJODE FOR

JCHECK

FOR *G

TST

CZDUE=D MACY11

CZDUED. P11
2890
2891
2892
5332

014170
014176
014200
014204

30A(1052)

21-NOV=78

18-JUL-78 15:56
032777
001402
016716
000002

001000

15:50

164702

164714

18:

5%32

0746206
014210
014214

010566
017605
062766

2901
2902
2903
2904
2905
2906
gggg

016224
014226
014232
014234
014240
014242
014244

001406
105777
100375
112577
000770
012605
000002

014222

105715

000002
000002

JTYPE:
000002

164656

1$:
28:

164652
3%

33(1)‘(9)

2911
2912
2913
2914
2915
2916
2917
2918
2919

014246
014250
014252
014260
014266
014270
014272
014276
014302

C10346
010446
017667
062766
104402
000000
012704
012703
105777

2921
2922
2923
2924
2925

014310
014314
014320
014324
014326

117714
142714
127427
001003
104402

164572
000200
000025

2927

014334

1226427

0000°S

2929
2930
2931
2932
2933

016342
014350
01435¢
014356
014360

117777
105777
100375
005303
001350

164540
164534

2920 014306

100375

2926 014332

000755

2928

001423

2935

014340

014362
014364

000004
000002

2937
2938
2939
2960
2961
2962
293

014370
014372
014374
014400
014402
014406
014410

2965

(014474

016412

000010
000004

017314
000007
164576

SEQ 0065
#SW09, aSWR
18
LOCK, (SP)

000402

MOV
MOV
ADD

RS, =-(SP)
a2(SP) RS
#2,2(SP)

BEQ
TSTB
8PL
MOvVR
BR
MOV
RT]

3s
RTPCSR
2
(RS)+,’TPDBR
18
(SP)+.RS

JASCII

STRING INPUT ROUTINE

TSTB

.INSTR: MOV
MOV
MOV
ADD
INST1: TYPE
MSG:
0
MOV
MOV
18
ISTR

8PL

2008:
164542

INSTR?

B8R

LINSTE: MOV

104402
016520
005737
001402
104402
000727
012604

LINSTG:

012603
000002

016524«

MOV

(R4)+ #15

8TKDBR ,aTPDBR
alP(SR
2%
R3
18

. INSTG

R3,=(SP)

R4 .~(SP)

TYPE
MOM
ST
SMRDSW
8EQ
4008
TYPE M(RLF
«008:
BR
JINSTY
INSTR2: MOV
(SP)e R

MOV
RT:

;TYPE (HAR

‘DO IT AGAIN UNTIL ‘0" IS SEEN

BEQ

MOVB
TSTR
8PL
DEC
BNE

;TEST DONE BIT

# [NBUF ,R&
#7 .R3
aTKCSR

JINST1

(MPB

:LOOK FOR ‘D'

R3,=-(SP)
R .= (SP)
a4 (SP)
, .MSG
#2.4(SP)

B8R

010346

071562

(RS)

MOv8
aTKDBR, (R4)
BICB
#200, (R&)
CMPB (R&: .#25
BNE
2008
TYPE ,MCRLF

016524

293% 014366 010446

296

BIT
BEQ
MOV
RT]

:TELETYPE OUTPUT ROUTINE

2897
2898
2899

293,

PAGE 68

(P)e n!

SIS IT <

CZDUE~D MACY11 30A(1052)
21-NOv-78
C
18~-JUL~-78 15:56
D. P11

15:50

PAGE 69

SEQ 0066

s CONVERT ASCII STRING TO OCTAL
014416
014420
014422
014426
014432

.PARAM: MOV
000004
000170
000166
000164
000162
000157
000004

014436

014442
014446
014452
014456
014460
014464
014470
014472
014476
014500
014504
014506
014512
014514
014520
014522
014524
014526
014530
014532
014536
014540
014544
014546
014550

017314
000015
000060

PARAM1:

PARERR:

015662

104404

RS
° #INBUF R4

BEQ
CMPR
BLT

PARERR
(R4) 460
PARERR

020567
101365
020567
103762
136705
001357

120%:

000046

#15,(R4)

(R4) 467
PARERR

#60, (R4)

BISB
CMPB
BEQ
ASL
ASL
ASL

LIMITS
RS
R5
R5

LIMITS:

000036

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

CMPB

#15,(R4)

;IS FIRST

TST

a#RDSW

;1S

INSTER
B8R

PARAM1

B8R

BNE

120%

BNE

JTEST

014552
014556
014560
014564
014566
014572

RS.,4(SP)

(LR
MOV

BI(CR

000015

000742

R4 ,-(SP)
4 (SP) ,RS
(R5)+,LOLIM
(RS)+ HILIM
(R5)+ _,DEVADR
(R5)+,L0BITS
(R5)+ ADRCNT

CMPR
8GT

00006V

005737
001023

MOV

CMPB

000067

000015

RS,~(SP)

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB

(MP
BHI
CMP
BLC
BITR
BNE

PART]

SEE

NUMBER

JSTORE NUMBER AT SPECIFIED ADDRESS
016704

000026
000002
000017

1%:

.oLim:

HILIM:

DEVADR,R4

RS, (R4)+
#2 RS

BNE

DE(CB

PART]:

000000
000000

MOV

MOV
ADD

MOV

RT]

ADR(CNT

(SP)+,R4

(SP)+,RS

CKSWR ROUTINE BEING USED

WITHIN LIMITS

RS,HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS
PARERR

CHARACTER A <CR>

CZDUE-D MACY11 30A(105¢)
21-NOV-78
CZDUED.P11
18-JuL-78 15:56

3002
3003
3004

014626
014630

15:50

000000
000000
014631

PAGE 70

SEQ 0067

DEVADR: 0
LOBITS: O

ADRCNT=LOBITS+1
;SAVE PC OF

3008

014632

016667

000004

164334

.SAVOS: MOV

TEST

THAT FAILED AND RO-RS

4(SP)
, SAVPC

:SAVE RO-RS
3012
3013
3014
3015
2016
3017
3018

014640
014644
014650
014654
014660
014664
014670

010567
010467
010367
010267
010167
010067
000002

164324

SV0S:

1646316
1646310

164302
164274

164266

MOV

RS, SAVRS

MOV
MOV

R2.SAVR.
R1.SAVR1

MOV
MOV

MOV
RTI

R& . SAVR4
R3.SAVR3

RO . SAVRO

:RESTORE RO-RS

3022
3023
3024
3025
3026
3027
3028

014672
014676
014702
014706
014712
014716
014722

016700
016701
016702
016703
016704
016705
000002

1646260

.RESOS: MOV

164256
164254
164252
164250
164246

MOV
MOV
MOV
MOV
MOV
RT]

SAVR),RO
SAVR1.R1
SAVR?2 .R2
SAVR3.R3
SAVRS R4
SAVRS RS

;CONVERT OCTAL NUMBER TC ASCII AND QUTPUT TO TELEPRINTER
104402
016524
010046
010146
010346

.CONVR:

TYPE
MCRLF

.CNVRT: MOV

MOV

000012

2167

s Qe

(9,

8?00—'00—'—'0
NNON%O‘WNN
~
o
8

002402

R3,~(SP)

MOV

RS.-(SP)

403

10320

005204

000002

000154
000152
000147
000144
000140
000132
017354
177770
000060
100000

MOV

164174

MOV

000012

ADD

1§
2%:
3%

RO,=(SP)

R1.~(SP)

MOV

—a

—

014724
014726
014730
014732
014734
014736
014740
014742
014746
014754
014762
014766
014772
014776
015002
015006
015012

~nN

3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048

R&.-(SP)

312(SP) ,R1

TEMP, TEMP3

#2,12(SP)

MOV
MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV
BIC
ADD
MOVB

(R1)+,WRDCNT
(R1)+, CHRCNT
(R1)+, SPACNT
a(R1)+,BINWRD
BINWRD
R4
CHRCNT.RS
#TEMP,RO
R4 R3
#177770.R3
#060,R3
R3,(RO)+

BIC

#100000, R4

ASR

ASR
ASR

DEC

R4
R<

;SHIFT

SCLUGE

:DITTO
DITTO

FOR NEXT #

TO STOP BIT

15 PROPAGATING.

CZDUE-DPMACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL~78 15:56

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

015046
015050
015054
015056
015062
015064
015070
015072
015076
015102
015104
015106
015110
015112
015116
015120
015126
015130
015132
015134
015136
015140
015142
015144
015146

001363
012702
114023
105367
001374
105767
001405
112723
105367
001373
105013
104402
017414
005367
001323
016767
012605
012604
012603
012601
(12600
000002
000000
000000
015145
000000

15:50

017414

000062
000055
000040
000043

002226

3085
3086
3087

SEQ 0068

BEQ
mMovB
DECB
BNE
6%:
CLRB
TYPE
MDATA
DEC
BNE
MoV
MoV
MOV
MoV
MOV
MOV
RTI
WRDCNT: Q
CHRCNT: 0
SPACNT-CHRCNT+1
BINWRD: 0

3%
#MDATA ,R3
=(RO), (R3)+
CHRCNT
4%
SPACNT
6%
#040, (R3)+
SPACNT
5%
(R3)
WRDCNT
1%
TEMP3, TEMP
(SP)+,R5
(SP) +,R4
(SP)+,R3
(SP)+ ,R1
(SP)+,R0O

;COMPARE THE FIRST CHARACTER IN THE TELETYPE
JBUFFER TO THE CHARACTERS 'W'' AND "'v'’,
;IF THE CHARA(CTER IS 'N'' CLEAR THE FLAG

%823

;IF

3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104

015150
015154
015162
015164
015166
015170
015176
015200
015204
015210
015212
015214

3107
3108
3109
3110

015216
015220
015224
015230

3112
3113

01523
015242

017605
122767
001002
105015
000406
122767
001005
112715
062716
000002
104404
000755

000600
000116

(02132

000131

0021°¢

177777
000002

g}gg

3111

BNE
MOV
mMovB
DECB
BNE
TSTB

5%:

000024

164024

PAGE 71

THE CHARACTER

IS "%'' SET

THE

INPUT

FLAG

.SETFLG:MOV
a(SP) ,RS
CMPB
#'N, INBUF
SIS IT "N
2
BNE
1%
CLRB
(RS)
: 000
BR
2%
1%:
CMPB
#'Y, INBUF
JIS U7 'Y
2
BNE
3%
MOVB
#-1,(RS)
;377
’%:
ADD
#2,(SP)
RTI
3%:
INSTER
;RETRY
BR
.SETFLG
s TRAP DISPATCH SERVICE
SARGUMENT OF TRAP IS EXTRACTED
JAND USED AS OFFSET TO OBTAIN POINTER

;TO SELECTED SUBROUTINE

015232

011646
162716
017616
006316

000002
000000

062716
017616

001366
000000

042716

177001

.TRPSR: MOV
SUB
MOV
TRPOK:
ASL
BIC

ADD
MOV

(SP) ,=(SP)
#2,(SP)
a(SP), (SP)
(SP)

;GET PC OF RETURN
;=PC OF TRAP
;GET TRP
JMULTIPLY [RAP ARG BY /2

#177001, (SP)

sCLEAR UNWANTED BITS

#."RPTAB, (SP)
e (SP), (SP)

;POINTER TO SUBROUTINE ADDRESS
2 SUBROUT
INE ADDRESS

CZDUE~DPMACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL-78 15:56

%}}é

015246

15:50

PAGE 72

000136

JMP

%Hg
015250
015252
015260
015262
015266
015270
015274
015300
015302

104413
032777
001061
021667
001404
011667
105067
104406
011605

3129
3130
2131
3132
3133
3134
3135
3136
3137
3138
3139
3140
2141
3142
3143
3144
3145
3146
3147

015312
015314
015316
015320
015326
015330
015334
015340
015344
015350
015352
015356
015360
015362
015364
015372
015374
015376
015402

006304
061504
006304
042704
062704
012467
012467
011467
105767
001403
005767
001014
104410
015512
112767
104402
000000
005767
001402

3148
3149

3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
7167
3168
3169

(SP) +

;GO "0 SUBROUTINE

:ERROR HANDLER

3118
3119
2120
3121
3122
3123
3126
3125
3126

3127
3128

SEQ 0069

015306
015310

015404
015406
015410

015414
015416
015420
015422
015624
015430
015432
015434
015440
015442
015444
015646
015452
015460
015462
015470
015472
015500
015504

162705
011504

104402
000000
005767

001402
104410
000000
104407
005777
100005
010046
016600
000000
012600
104413
005267
032777
001007
032777
001407
016767
012706
000°77

020000

163620

JHLT:

163646
163640
1€3746

1$:

000002

5UB
MOV

177001
020130
000040
000046
000054
163676

000042

177777

CKSWR
BIT
BNE
CMP
BEQ
MOV
(LRB
SAVOS
MOV

16365

000604

ASL
ADD
ASL
BIC
apD
MOV
MOV
MOV
TSTB
BEQ
TST
BNE
TYPMSG: CONVRT
ERTABO
MOVR
TYPE
ERRMSG: 0
ST
BEQ
DATAHD:
TYPDAT:

000004

163450

000002

163460
000400

163420

002000

16361¢

163420
001100
163404

163414

TYPE
0
TST

BEQ
CONVRT
DATABP: 0
RESREG: RESOS
HALTS:
TST
BPL
PUSHRO
MOV
HALT
POPRO
EXITER: (KSWR
INC
BIT
BNE
8IT
BEQ
MOV
't
MOV
P

#SW13,3SWR
HALTS
(SP) ,LSTERR
13
(SP) ,LSTERR
ERRFLG

SCHECK FOR G
“INHIBIT ERROR TYPE OUT

(SP) ,RS

#2 RS
(RS) Ré

R4
(RS) ,Ré4
R4
#177001,R4
# .ERRTAB,
R4
(RG) +,ERRMSG
(RG)+.DATAHD
(R4) ,DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT

#-1.ERRFLG
DATAHD
TYPDAT

DATARP
RESREG

aSWR
EXITER

2(SP) ,RO

ERRCNT
#5W08 , aSWR
1%
#SW10, aSwR
2
NEXT ,RTRN
82 TACK,SP
SR TRN

SCHECK FOR G
;LOOP ON ERROR ?
;ESCAPE

TO NEXT ON ERROR 2

;SET UP FOR NEXT TEST
CREINITIALIZE SP

CZDUE-D MACY11 30A(1052)
21-NOV~78
CZDJED PN
18-4UL-78 15:56

xxr\u\oflmoo &S00

QS
e T
s
e R
R
[

PAGE 73

2%:
FRTABRC:

002

6.2

PFAIL: MOV

MOV
MOV
MOV
MOV

000000
000777

'%:

;SAVE RO-R5 ON PROCESSOR STA(CK

SP,SAVSP

s SAVE

JHALT ON POWER DOWN NORMAL

MOV

MoV

#RESTART , 24

MOv

162252

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

R3,-(SP)
R4 ,~(SP)
R5,-(SP)
24,~(SP)

MOV

SQLT

;PROCESSOR WILL

015576
015604

015612
015616
015622

015626
015630
015632
015634
015636
015640
015644
015650
015654
015656
015660

016706
012605
012604
012603
012602
012601
012600
012767

012767

012706
005067
005267
001375

163410

RESTAR:
[ ]

MOV

MOV
MOV

01"

15520
40

8333

015556
015562
015564
015566
015570
015572
015574

D
—

SEQ 0070

;ENTER HERE ON POWER FAJLURE

)

b k)

NNNWNNWN

3186

VALV
IV, IV VL VL I, LV IV
VAN
NN I
W
NS
S
WWWNIONVAONY

elelolololololololele

000002
000001
006
001174

15:50

00
32
26

MOV
MOV
MOV

162220

MOV
MOV

162164

MOV
(LR

INC
BNE
CONVRTY

104410

015654

PFTAB
TYPE
MPFAIL

163402
163264
163240

PFTAR:

SAVSP,SP

(SP)+ RS
(SP)+ R4

POINTER

WHEN POWER

IS RESTORED

JRESTORE

STACK POINTER

JRESTORE RO-RS

(SP)+ ,R3

(SP)+,R2
(SP)+ R}
(SP)+,R0

# . PFA]IL .24
#340,PS

sSET UP FOR POWER FA]LURE

#STACK ,SP
TEMP

TEMP
1%

(LR
CLR
HHP

ERRFLG
LSTERR
SRTRN

BYTE

6,2

RTRN

TRAP HERE

STACK

;SET UP FOR POWER UP TRAP

:grffsr5¥;gfn REGISTER ROUTINE. (HE(KS FOR “GC TO ALLOW (HANGING

;LOCAT]IONS USED:

000U’
000176

'¢ 320C

RDSW:

.WORD

FY7%

(MP

82 REG,SeR

BNE
BNF

our
ou’

JSOF TWARE SWIT(M REGISNTER PRESENT

JNO,

GET our

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED P11
18-JUL~-78 15:56

005137
104402
104411
1064403
104405

000000
177777
000176
000
104402
005037
000002
000001
006
000176
005015
015
020075
040
020075
016040
005015
020061
026505

SEQ 0071

163172
177600

JYES,WAIT FOR
JREADY, GET CHARACTER

;AND STRIP OFF
. THE GARBAGE
JIS IT A <*G>

7177600, .MSG

000007

our

LCNTLU:

01
016004
016

TYPE ,$CNTG
(oM
a#RDSW
TYPE
, SMSWR

CNVRT, SWREGC
INSTR, SMNEW

PARAM

001
016524
015662

BYTE
OuT:
SWREGC:
BYTE

002

043536
051412
000
047040
000

000
051127

$CNTG:
SM3WR:

05350¢

062012
055103
020104
042440

030525
052504
040524
006440

042526
040440
051523
051461

052103
042104
000055
020124
042503

177777
SWREG

0.1

TYPE ,MCR. F

CLR

RT]

aNRDSW

6,2

SWREG

CASCI2
JASCIZ

<15><12>/4G/
<15><12>/SWR= /

SMNEW:

.ASCIZ

.EVEN
MTITLE:

LASCIZ

<15><12><12>/DU11

MVE(TO:

ASCIZ

<163<12>/VECTOR ADDRESS=~/

MREGAD
:

LASCI2

<15><12>/1ST DEVICE:

MMULT:

LASCIZ

<15><12>/ARE

MLASTD:

LASCIZ

<*55¢12>/LASY DEVICE:RECEIVEN (ONTROL REGISTER ADDRESS=/

NEw=

(2DUE=D

TAPE

/<15><12>

RECEIVER CONTROL REGISTER ADDRESS=/

020122
051505

040412
052517
044516
046125
020105
042503
054450
024516
040514
053105
062522

YOU RUNNING MULTIPLE

DEVICES

(Y OR N)~/

122767

001021
104402

74
aTk(SR
our
aTKDBR, .MSG

16224

017767
042767

PAGE

163176

S NNOWN

REBIRFSNVRES

—d ol
md o
e
e
e
e
el
o
e
)
d
—

[e Y@ 1,
W1V,

016004
016006
016010
016012
016017
016024
016027
016034

105777
100033

015702
015706
015710
015716
015724
015732
015734
015740
015744
015750
015754
015760
015762
015764
015766
015770
015772
015776
016002

ooooOrOrOONONOOCONONONO
NOROR)
— — el e d d ) b d —— o —d

3226

15:50

(ZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL-78 15:56

3282
3283
3284
3285
3286
3287
3288
3290
3291
3292
3293
3294

016276
016304
016312
016320
016326
016334
016335
016342
016347
016354
016362
016370
016376

053111
047117
051040
042526
051104
000
075
042503
015
047040
047522
053517
051456

3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307

016404
016412
016420
016426
016434
016437
016444
016452

016460
016466
016474
016502
016510

020124
044124
047524
040040
043505
015
047440
043516
054524
051501
064526
041530
042104

3309

016520

020040

3311
3312
3313

016527
016534
016542

040
051105
052514

15:50

051105
051126
943505
020122
051505

041440
046117
051511
042101
026523

042504
020040
044072
053517
0472127
020077
046105
047523
047111
0510640
041501
000
0647412
020106
035105
042520
020124
042503
051123
04,722

0445¢6
000
053517
041040
041440
027056
041505
042515
020107
067125
051124

000077
000

050040
043040
042522

052125
040522
042522
046040
042504
051040
040440
051522

053517
0446501
020054

3314
3315
3316
3317
3318
3319
3320

016550
016556
016564
016572
(16600
016606
016614

051120
020115
051101
052040
047111
051107
005015

043517
042522
020124
051505
0500640
051505
047105

060522
(52123
052101
020124
047522
000123
020106

3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
TTIS
333
3337

016630
016636
016641
016645
016652
016660
016666
016674
016702
016710
016716
016723
016730
01673
0167446
016750

020123
042440
015
015
020126
005015
047440
042514
052040
024040
047040
015
051120
056524
0466105
005075

040524

042520

3321

016622

043117

050040

051012
052012
041520
0475
020116
052103
051505
020131
026451
042012
047511
046040
000055
020063

051501

000
051505
000055
045503
042523
042105
037524
(051117
000
020125
064522
053105

0e3117

PAGE

SEQ 0072

DEVICE:

.ASCIZ

/=DEVICE

MCOW:

.ASCIZ

<15><12>/HOW NOW BROWN (OW? ...SELECT SOMETHING TO RUN RACTREG/

MRANGE:

.AS{IZ

<15><12>/0UT OF RANGE :RETYPE LAST DEVICE RXC{SR ADDRESS-/

MOM :
M(RLF:

JASCIZ
LASCIZ

ASC]Z

MEPASS:

LASCIZ

< 15>C12>/END OF PASS TAPE £/

MTMR:
MISTR(:

LASCIZ2
,ASCI2

<15>c12>/R/
<15><C12>/TEST P(=/

TMMO(k:

.ASCIZ

<15><12>/LOCK ON SELECTED TEST? (v OR N)=/

MUfE_:

,ASCIZ

<1S><12>/DU PRIOKITY LEVEL =/

MSwyN(:

ASCI2

<155<12>78 OF SYNC CHARS SELECTED ( 1 OR 2)e/

MTMPFalL:

<5 «<12>

POWER FAJIURE, PROGRAM RESTART AT TEST IN PROGRESS/

(ZDUE-D MACY11 30A(1052)
21-NOV-78
rZOUEDL.P11
18-JUL=-78 15:56

016756
016764
016772
017000
017006
017014

051440
044103
042523
042105
047440
000055

3344
3345
3346
3347
3348

017016
017024
017032
017040
017046

005015
041505
020124
051105
047111

3350
3351
3352
3353

3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373

017002
017064
017072
017100
017706
017114
01’122
817110
0'71>1
0 017136
0 017144
0 017152
017160
017166
017176
017202
017205
017212
017220
017226
017234
017242
017250
017256

000055
005015
041505
045040
020122
037516
051117
000
015
050117
020122
042514
042520
044440
020131
026451
015
0464126
052123
042516
(44440
046114
054450
024516

3375
3376
3377
3378

C€17270
017276
017304
017312

052123
020040
020040
000015

3349

3357
3358
3359

3379

017054

047440

PAGE

051511
054040
0525'2
021440
020077

051440
044515
050115
020066
054450

MWIREG:

.ASCIZ

<15><12>/1S SEC XMIT JUMPER #6 IN?

051511
051040
046525
032443
0¢4040
047040

051440
041505
042520
044440
020131
026451

MWIRES:

ASCIZ

<15><12>/1S SEC REC JUMPER #5 [N?

044412
0201246
047105
045040
020122
037516
051117
000
044412
020105
041440
0
3
O
6
042105
04
2
0000
0
052101
04644C
020040

020123
046103
061101
046525
032043
024040
047040

MWIREL:

.ASC{2

<15>712>/1S OPT (LR ENABLE

020123
042524
047117
051117
060526
(37440
020122

MEXTJ:

LASCIZ

<15><12>/(S THE

020040
051525
050101
005040

MSTATUS:

ASCIZ

<12> <183/

020122

JUMPER #4

IN?

(Y OR N)=/

TEST (ONNECTOR INSTALLED 2(Y OR N)=/

STATUS

MAP

/ <12> <1%>

JBUFFERS FOR INPUT=QUTPUT
017314
0173%
017414

000040
000040
000040

INBUF:
TEMP:
MDATA:

SRR

3387

3391
3392
3393

(Y OR N)=/

LEVEN

BLKB
BLKB
.BLxkB

4&(
40
&0

NNNNRNCR 0L 00000000000 E00000000000000R00000000000000

SUTILITIES

3388

3389
3390

(Y OR N)=/

024516

g;g;

3184

SEQ 0073

0201
0201
0521
030440
024462

3380

3383
3384
3385

047131
051107
042514
026040
020122

N
O =0

3338
3339
3360
331
3342
3343

15:50

.-....'t.."".....'..0.."......'...'.Q....'....'............

01745«
017460
(017464

006367
006367
00¢367

000044
000040
000034

JTHIS UTILITY (ALCULATES PRIORITY LE Wk

DuLEs:

ASL
ASL
AS|

DUPRT
DR
DuPRT

SHIFT (EF°

(ZDUE=-D MACY11 30A(1052)
21-NOV-78
CZDUED.P1N
18-JuL-78 15:56

3394
3395
3396
3397
3398
3399
3400
3401
34602

006367
006367
016767
162767
042767
000207
000240
000200

000030
000024
200020
000001
000037

0 017530
017536
017542
017550
0
0
0

016767
005267
01%767
005267

000126
000120
000114
000100

—

D
— —d ed ad e

ASL
ASL

000020
000012
000004

MOV
SUR

BiC

000102
000074

000422
nnne

DUADDK:

000402
000400

000352

000332
~

NNV

DUBASE:

— ) s ——d

RPOKE:

S
3

N
g

N
~N

020010

14166

006067

°$:

;
:

DUPRT,LESST
#1 LESST

#37,LESS

;LEVEL

sMOVE THIS TO LESS!?

JCREATE LESST
;CLEAR TNZVC

TO ALLOW INTERRUPTS

DUBASE ,RXCSR
DUBASE
DUBASE ,HRXCSR
DUBASE
DUBASE ,RXDBUF
DUBASE ,PARCSR
DUBASE

MOV
INC
MOV
INC
MOV
INC
MOV
INC

DUBASE _HPARCSR
- XXX3
DURASE
DUBASE , TX( SR
SO0
DUBASE
DUBASE ,HTXCSR
;XXX5
DUBASE
DUBASE
. TXDBUF ; XX¥X6
DURASE

RTS

:XXX0
; XXX1

IXXX2
:XXX2

DUBASE ,HRXDBUF ; XXX3

DUBASE ,HTXDBUF

:XXX7

STHIS UTILITY POKES THE MAINT DATA BASED UPON THE
S INFORMATION CONTAINED IN TEMP1 AND IT IS
SSHIFTED IN BY THE (ONTENTS OF SHIFT

BIC
(LR

#MTOATA,@TXCSR
TEMP?

ROR

TEMP2

TEMP1

;FORCE CARRY

TEMP?

:SHIFT

:PICK UP CARRY N BIT

BIC

MIT1S, TEMP?

RTS

8IS
BIC
BIS
DE(
ANE

oDDB:

DUPRT
DUPRT

;NEW DU ADDRESSES

ASR

161226
4
000.4C
0002%2

SEQ 0074

MOV
INC
MOV
INC
MOV
MOV
INC

ROR

— —d dd el el =
9

LEVELS
LEVEL4

MOV

000322

vOC 302

RTS

MOV

000364
000362

00C 342

SRS

Al Ny
[s
RNTe
JV ¥ VISP o

3449

PAGE 77

DUPRT:
LESST:

000066
000062

D s

FREPRREEY
RRRRRRRRERRYR
Y CP R
R RRERELRRLERRYE

Ay BRVERREAN Oom\JOmbum—-og

3403
3,04
3405
3406
3407
3408

017470
017676
017500
017506
0175146
017522
017524
017526

1S: 50

TEMP2,@TXCSR
#CLK,TXCSR
#CLK.TXCSR
SHIFT
RPOKE

;THIS ROUTINE

MOV

TEIP3
#8.,(P()e

DEC
BNE
Rk

:
‘o
TEMP?

TEMPQ
TEMPY

;CLR BIT 15

:POKE MAINT DATA
SPOKE (LK
:

CALCULATES ODD PARJTY

TEMP1, TEMP?

(LR
MOV
0

ROR
AD(C

INTO BIT

JSAVE TEMP!

FOR AN & B]"

(HAR

(ZDUE=D MACY1
CZDUED.P11

3450
3451
34,52
3453
3454

fi%
3457

3458

30A(1052)
21-NOV~78
18-JuUL~78 15:56

020014
020016
0200246
020026

103404
052767
000403
042767

02 0%

000207

020036

016767

000400

161120

000400

161110

161102

020044
020050

005067
012727

161100
0C0010

3462

020056

006067

161064

020066

(5367

3466
3467

020074
020100

363

3,65

68
3,69
3,70
3471
3,72

020056
02006~

020072

000000
JOSS67

001371

006067
103004

020102
020110
020112

052767
000403
042767

02012C
020122

000207
062716

020126

000002

020130
020132
02013&
020136

020214
000000
000C00
020230

3673
374
34,75
376
377
3,78
3479
3,80
3481
34,82
3483
3.8
34,85
3486
3,87
34,88

020140
020142
020146
020146
020150
020152
0201546
020156

3,90

020160

160040

3,93

020166

160043

34,89

34,91
3,92

3494

3495

020162
020164

020170

020172

396
3,97
3,98
3,99

020176
020176
020200
020202

3501

020204

3500
3502
3503
3506

3505

02020%
020210
020212

020401
020422
020272
020401
020427
02033%
020401
020422

PAGE

3$:

3,59
3460

15:50

141102

1%:

177762

RTS

161034

000400

161024

MOV

TEMP],

TEMP?

CLR
MOV

renps
#8.,(PC)+

ROR

TEMP?

AD(

BIS
8R
BIC

MIT8,TEMPI
53
#RITS TEMPI

48:
TRPREG:

ADD

ROR
BCC

;TEMP1
RTS

:SAVE TEMPI

TEMP3

BNE

16105C

000C02

BCS
3s
BIS
#RIT8, TEMPI
;SET ODD PARITY
BR
43
BIC
#RIT8, TEMPI
:CLR EVEN PARITY
:TEMP1 NOW HAS ODD PARITY CHARACTER

DEC

000400

SEQ 0075

;:THIS ROUTINE CALCULATES EVEN PAR]TY FOR AN 8 BIT (HARA(TER

EVENS:

2s:

161062

TEMP3
3s

LSET EVEN PAR]TY
;CLR ODD PAR]TY

NOW HAS EVEN PARITY CHARACTER
PC

#2,(SPY

;ALLOW IT TO "TRUNCH'' INTO HLT BA(K
;IN MAIN PART OF THE PROGRAM

RT]
SERROR HLT TABLE
.ERRTAR:
EMO
JHLT O
0
0
£EM1
JHLT 1

DH1
DT
EMD
DH1
DT
EM3
DH1
DT1

RXCSR:

RECEIVER ERROR

JHLT

TRANSMITTER ERROR

-DEFAULT DU ADDRESSES

HRXCSR: 160041
RXDBUF: 160042

160042

PARCSR: 160042

160044
160045
160046
160047

TXCSR:
160044
HTXCSR: 160045
TXDRUF: 160046
HTXDBUF :

160047

000770

DURIV:

:REC INTR VECTOR

000772
000774
000776

160043

HPARCSR :

160043

DURIS:
DUTIV:
DUTIS:

160040

HPXDBUF :

-DEFAULT DU VECTORS

270
772
774
776

SREC INTR STATUS
SXMIT INTR VECTOR
“AM]T INTR STATUS

;ERROR ME SSAGES

(GENERAL)

;HLT ¢

160041
160042

160043

BIT ERROR

(ZDUE~D MACYN 30A(1052)
21-NOV-/8
CZDUED.P11
18-JUL~78 15:56

3533

3530
3540

[V,

—

nJ
o

061505
020122
020122
051001
042524

EM?2:

LASCIZ

RECEIVER ERROR P(C/<15><12><1>/REGISTER

040522
052126
051122
006503
044507

EM3:

ASCIZ

DH1:

:DATA HEADERS FOR ERROR MESSAGES
CAS(17
/EXPECTED
ACTUAL/

041505
040440
000: 14

020422

000003

020426

001164

020632

(01156

00043¢

001160
000001

0204 34

006

G0%

006

002

.EVEN

DT1:

TRANSMITTER ERROR P(C/<15><12><1>/REGISTER

-DATA TABLES FUK ERROR MESSAGES

BYTE

6,4

BYTE

6.6

BYTE

6.2

SAVRZ

SAVRO)
SAVR1
.END

[}

7/ = REGISTLR ERROR PC/<15><12><1>/REGISTER

050130
020104
040505

020430

3538

LASCIZ

105 5
042526 4
052103 3

3536

SEQ 0C76

EMI1:

020401
020406
020416

004

/ = ERROR P(/

020040

006

LASCIZ

051105

PAGE

EMO:

0426440
050040
062522

020424

3537

051122
000103
043505
020122
020122
051001
042524

041520
043505
020122
036440
6
5
7
2

353,

3535

051511
051105
041520
043505
020122
036440
044505

042440
050040
051040
042524
047522
005015
051511
000040
051040
042526
047522
005015
051511
000040
052040
044515

g N) ==
O

3539

353

036440
051117
036440

3507
3508
3529
3530

020314
020322
020330
020334

3520

020236
020244
020252
020260
020266
020272
020300

i
S
i S
i

Nolo JaNTe XV, P YV V)

WNWWNWNNWNNW

(UL LWL IV, LV, R, LW, [V, LV, |

3509
3510
3511

020214
020222
020230

3506
3507
3508

15:50

:REGISTER

:EXPECTED DATA
AFTUAL

[DATA

CZDUE=-D MACY11 30A(1052)
21-NOV-78
C2DUED.P11
18-JUL~78 15:56

AAA

ACTRES

ADDBAS
ADDKEE
ADDLAS
ADDROT
ADRCNT=
A10010=

15:50
PAGE 81
CROSS REFERENCE

002520

11794

001306
001310
001312
001322
014631

9394
9404
RIAY
945
2956+

1059
1060
1061
1064
2995«

1226+
1207+
1228+
1232«
3004#
1066+
1239+
1119«

001216

wwxrnee

899#

678

1063~

BASEAD
BASEDU
BASEIV

001204
001364
001212

894a
962
233;#

1050
1073
1065«

BB8
BINWRD
BlITw
=
BITO0
=
BITT
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIr2
=
BI13 =
BIT4
=
B8ITS
=
BIT6
=
8117 =
BIT8
=
BIT9
=
BREAK =

002336
015146
002000
000001
000002
002000
004000
010000
020000
040000
100000
000004
000017
000020
000040
000100
000200
000400
001000
Q00001

1126
3045+
gooa
757
7564
478
7464
7454
764m
7438
7624
7554
754
753
7524
751
750#
7454
/L84
8164

11304
3046
1524
785
784
775
774
773
772
71
770
783
782
781
780
77
778
777
776
1345

BUFHRX
001346
BUFHTX
001362
BUFRXD
001344
BUFTXD
001360
BYJMR
001305
CARDE
T= 010000
qqs
C13716
CHRCNT
015144
(KSWR = 1046413
(LK
- 020000

9554
9614
9544
60
9354
773
2790
30643«
9944
808#
1413
1506

BRW
BRX
BUFF1

014162
014164
000002R

1291
1292
6784

1661

1817

213
(LROPT

(001303

(NTLU - 1044176
(NVRT = 1046411
(ONVRT= 1046410
COUNT
001142

30834
1657
816

790
789
788
787
1294
815
814
813
812
811
793
792
1405

2884#
28854
1274

2813
3047
2845
1345
1414
1507

2830#
3061
2865
1351
1423
1521

1077
1083
1076
1082
1058

1699
1818

1700

1942

2166

1056

1223+

964
990K
9884
870#

1041
3235
1277
1374«

SEQ 0077

1141

1142+

1149+

1231

2791

2794

2804

1109«

1146*

1147

1153«

1155+«

1226

2798+

2810«

2814

1230

2799+

2811«

2816

2817«

2818

2819+

2820

2821

2822

1373
1492
1605
1749

1405
1493
1651

1410
1498
1652

1411
1499

1705

808
807
806

3632

810

3451

3453

3468

23470

1439

17%7

1807

2069

2130

2210

30814
2889
1352
1424
1522

3082
3118
1354
1439
1573

3161
1355
1444
1574

1369
1445
1577

1370
1457
1578

1372
1458
1604

12643
1249+
12462+
1248+
1225+

2137

250¢

TABLE == USER SYMBOLS

809

1305
1306
1268

2325

933

1127+

mé

2503

2787
1382+

1708

1949

1709

1758

1737

1965

1745

17466

1991

1998

1748

1807

1814

1660
1815

2167

2210

2216

%217

; 62

2269

2066

2047

205;

2316

2053

2130

3141
1672«

2152
1588

204
1595

‘608

1787

175Se

1759

1819+

1826

1876+

2506

2507

253%

434

2312

2317

CZOUE=D MACY11 30A(1052)
21-NOV-78
C2DUED.P11
18-JUL=-78 15:56

COUNTT1
CSRHPA
CSRHRX
CSRHTX
CSRPAR
CSRRX
CSRTX
C1Ss

001230
001352
001342
001356
001350
001340
001354

= 020000

1884+
1267+
1079
1075
1081
1078
1074
1080

2043
1279+
1245+
1241~
1247+
1244
1240+
1246+

2071+

3139
3146
2992
32884
3484
1034
1025
1057

3150
31454
30024

3153

3487

35284

2323

2338

2367

2513

2562

2555

2562

2097

2103

2112

2240

2253

2257

2282

2232
3488

35334

1239
3415

2814+
3416

3404
2417

3405+
3418

3406
341G

3407
3420

3408
34228

3409

3410

3411

wwnnwe

DATABP
DATAHD
DEVADR
DEVICE
DH1
DISPRE
DLIGHT=
DMULT
DNA
=
DNAINT=
DSC
=
DSINTE=

015420
015406
014626
016335
020401
000174
177570
001304
100000
000040
100000
000040

2136
3125«
2954
2788
3481
8374
7274
934N
806#
8134
7704
7804

LSWR
=
DTR
=
DM
DUADDR
DUBASE

177570
000002
020422

7264
7844
3482
1108
1073
3612
1174

1024
2104
3485

2669

2671

2243
27146
1067
2243y
1070«
2407
2698

2264
2744
111§
2277«
1237
2608+
2699+

DULEV

= 001000

017530
017662
017454

DUPRT

017524

DURIS

020206

DURIV

020204

DUTIS

C20212

buriv

020210

2675+

2679«

2720

SEQ 0078

1880
9104
9574
9534
9594
9564
9524
9584
7728

ISR

(GX

N 6
15:50 PAGE 82
CROSS REFERENCE TABLE =~ USER SYMBOLS

2724

2769

677

7764

1072«
1068+

1069«

2815
1104
3413

33914

1224

34044
1107
3414

171

1233

2088

2139

2219

2321

2360

2398

2399

24643

251

2585

1235

2088«

2099

2100«

2109

2110«

2139«

2150

2151«

2175

21762

2219+

2099«
2696
23645+
2476
2822+
2379¢

2109+
2713«
2360
2511«
35044
2383x

2138«
2744
2379
2545

2150«
2B16+
2380«
2546

2175«
2823
2383
2559

2218
35014
2384+
2560¢

2230«

2344

2087«
668+
2344
2475
2747«
23590

2397«

2607+

2415%

2442¢

2455¢

1568

1644

'693

1740

1810

1938

2040

2133

1236

3391«

2277
2745«
1118
Q2584+
2321
2415
2715
2320

3392«

2278+
2818«
1119
2609
2340
2616
2716
2340«

3393s

2585
35024
1234
2617+
23«
2443e
2746

33QLe

2609

2670

Pet

33G5e

261C~

2€9Be

1gge

3306

2617

2715+

3708e

34004

2618+

2746+

2669+

2820+

2696

3503%

2697«

2713

2398»
2671«

(ZDUE~D MACY11

CZDUED.P11

30A(1052)

21-NOV-78

18-JUL-78 15:56

15:50

PAGE 83

CROSS REFERENCE

FILBUF
FIVE
=
FLAG
FRMERR=
HALTS
HOXEN =
HEREU
HILIM

003204
000000
001222
020000
015424
000010
003132
014624

12704
7984
9074
7894
3120
8154
1219
2953x

1089+

1260

31554
1988
12604
2983

30014

HPARCS
HRXCSR
HRXDBU
HTXCSR
HTXDBU

020172
020162
020166
020176
020202

1079«
1075+«
1077«
1081«
1083«

1245
1241
1243
1247
1249

3612«
3406
3411«
3416+
3420%

HOLD
HOLDO
HOLDY1

ICOUNT
INBUF
INIFLG
INSTER=
INSTR =

INSTR2
ISYMOD=
IVBASE
IVKEEP
JMRBY

KEEPAD
KEEPIV

LASTAD
LESST

001136
001224
001226

001122
017314
001244
104404
104403

014410
000000
001314
001316
001203

001206
001214

001210
017526

LEVELO= 000000

LEVEL1= 000040

8684
9084
9094

8594
1182
9204
9804
1268#

1967

1993

2000

2959

3091

3095

33834

3100
1120

1137

1156

1166

2080

2197

1153

34954
34914
34934
34974
34994

8954
8984

1058+

1225

_
1926

1060«
1062+

1066
1118+

1107«
1229

1109
811

8964
1071~
3396*
674

1061+«
1238
3397«

1180

1193

1155

1227

2810

1197

1201

1205

1296

1136
2089
3398+

1147
2140
34,014

1161
2220

1208
2235

2322

2361

2444

2512

2537

2586

2672

2092
2424

2114
2453

2143
2461

2187
2478

2224
2522

2248
2550

2289
2564

2333
2606

2348
2616

2372
2693

2386
2710

2406
2742

1025+
29834
2987
1479«

1034+

2834+

30034
2892

3004

1299
2985
1017«
1016+
1071
1040

1300
30004
2875«
2831«
1238+
104864

2876
NN

2879+
3123

3209

3033

2242

3310w

7664

LIGHTS
LIMITS
LOBITS
LOCK
LOGICA
LOKFLG
LOLIM
LPINT
LSTERR
L1ESS
MAF

001102
014552
014630
001120
013750
001247
014622
001124
(001134
001336
001634

8484
2969
2955+
8584
28384
9234
2952+
8604
8644
9514
1038

(0°7414

1960

_
2580
1230+
1¢29*
1208

7654
7644
‘634
7624
7614
7604
Sé;g

MDATA

1951
1281
1282

29434
2578
1065
1062

000100
000140
000200
000240
000300
000340

016347
016524

1944
1265«
1266+

1264+

2928
7974
9424
9434
8904

SEQ 0079

1273

2880+
2917
1023+
2978
1110

TABLE -- USER SYMBOLS

2876
1186
1020
1190
%ggg

LEVELZ2=
LEVEL3=
LEVEL4=
LEVELS=
LEVEL6=
LEVEL7=

MCOw
MCRLF

2793
1278

3059

3401
3400

32904
2925
307¢

941
3385#

CZDUE-D MACY11 30A(1052)
21-NOV-78
18-JuL~78 15:56
CZDUED.P11

MLASTD
MLEVEL
MLOCK
MMULT
MPFAIL
MQM

MR
MRANGE
MREGAD
MRESET=

001301

016254
016723
016660
016175
016527
016520
016641
016437
016114
000400

MSTATU
017262
MSYNC
016750
MTDATA= 040000
MTITLE
MISTPC
MULTD
MVECTO
MWIRE4
MWIRES
MWIRES
NFXT

016040
016645

001202
016072
017131
017064
017016
001116

NOPAR = 000000
NOSYNC
ODDPAR=
0DD8
ONCE
OPTCLR
ouT
OUTCRY
OUTMUL
OVRRUN-

001300
001000
017752
001522
001201
015776
013710
002476
040000

PARAM - 104405
PARAM1
014456
PARCSR
020170

PAREN =
PARER PARERR
PARTI
PASCNT
PFTAB

001000
010000
(014532
014614
001130
015654

POPRO = 012600
POP1SP= 005726
POP2SP 022626

2786
8204
1206

8194
2305
9314
1132

33204
1935

33664

1345
2495

1054
32794

1167

33334

2207
2938
1319

33114
33094
3324k

1297
1121

1157
1100
8104
1684

2205

1263
1181
8074

2210
1022
1310

8894

1111
1202
1198
1194

33004
32624

2267

1057«

3254m
33254
32594
3358#
33514
33444

1021

10244

1053

8884
3223
2787

1056+
3225
28264

29584

2979

1078«
1644

2206

7924

790#

2961
2977
8624
3205

7364

734
7384

1437

1484

1565

1641

1690

1737

1434
1804

2396

1436
1929
2441

1481
1931
2489

2031
2491

2579

2125
2643

2127
2645

1455

1737

2130

2161

2165

2030+
3167

2079+

2123«

2040

2133

1807

2037

2130

2210

1561
2082

1635

1637

1221+

1340
1686
2207
IT74M
33374
1345
2263

1337«
2297«
1348
2308

1129
7884
982¢

1405

33274
3271

8574
2196
802
2213

9304
8034
3441H

SEQ 0080

WNQOo
&
WO O
conun

MITSEX

016614
010000
017205
004000

1154
1614
1101

1244
1685+

2213«
2963
29974
1013»
LPARY
3160

1342
1732

N ——

MEPASS
MEXT
=
MEXTJ
MINT
=

15:50 PAGE 84
CROSS REFERENCE TABLE =-- USER SYMBOLS

1405

1422

439

1451

1123

1224

1288

2789

27299

1399+

2356
1408
2498

1220~

1557«

2440+
1480

2652

1633«

2487
1568

1682+

2576+
1644

1731«

2642~
1693

2083
32434

2201

112

1158

1168

3237

1341

1401+
1740~

1408+

1442+
1930»

1204

3227

1483

1796+

2861

1740

1925+
2881
1810

1938

11654

1693
2300+

2490+

1803
2498+

2965

2984

29RE

2833«

2580+

1482+

1938«

2644

1485+

2032+
2652+

1560+

2040~
3409+

1568+

2126+
34944

1636+

2133~

twvwannwn

(22222

RUNC

wexaxx

RUND

—

wxtaense

RUNE

= 000000

RUNF

RUNIT
RXCSR

RXDBUF

wesxwen

013520
020160

020164

RXDONE- 000200
RXERR - 100000
SAVP(
001174

SAVRO
SAVR1
SAVRZ
SAVR3
SAVRG

SAVRS

001156
001160
001162
001164
001166

001170

SAVSP
001172
SAVOS - 104406
SCOPE - 104400

9504
Q47N
9024
1358
8564
3213
7834
1
1

1
1
1

el
2792

1074
1812+
1939«
2144

2591+
3404+
1076«
1928

2673

778

7874

114
372
550

2092+
2361«
2537+

2140~
2386+
2564

2187+
2406
2606+

2220+
2411+
2616%

2224~
>
2424
2672

1862

1886

2693+

2248+
2453+
2710+

2235+

3157

1359
1063

3243«
1761

1830

1837

1842

1852

2144

2253

2257

2282

2591

2615

2680

2695

1068
1067
1064«
1365

1144
1823

1149
1836

1152+
1850

1232
1861

2804

2881«

3167+

2808+
34274
3169

3210

1610
1862

1761
1886

1055
31544
31914
2836
3154

2743

1018«

2844

2861+

2862

53
53

c3
53
53

59
2798
1240
1830
1978
2145

1851«
2085+
2214+

1242
1983

2152

1384

2607
2490#
2712

2653+

2097«
2240
2711

2104
2253+
2743

1571

1750

1820
2281

2233

1772
1897
2134

2282~
2828
1902
2608

1614

8834
8764
8774
8784
8794
8804
8814
8824

3008«
3017«
3016+
3015«
3014+
3013«
3012«
3184+

2290

2349

984#
9724

1233+

2812

2718

Ccccc

RUM3

2806

G864
7714
7794

= 000004

2976

2807

RTS

RUNA

2939

9324
3151
3185

001334
001326
001220
017664
001114

RPOKE
RTRN

2322«
2478«
2776+

774#
9LLA

RING
= 040000
RINTEN= 000100

RISDU
RIVDU
ROCTADD

2289
2661%
2742«

735#
7334
737%

0100406
005746
024646
015662
004000
001320
013614
001302
015422
015556
013760
104407

1072
1008«

SEQ 0081

3125
1388

425
2479

1677

256¢

n)—
NN

PUSHRO=
PUSH1S=
PUSH2S=
RDSW
RECACT=
REGACT
REPLAY
RESEC
RESREG
RESTAR
RESTRT
RESO5 =

464
728%#

15:50
PAGE 85
CROSS REFERENCE TABLE =-= USER SYMBOLS
noroN)

PRTDU
001324
PS
= 177776

CZDUE-D MACY11 30A(1052)
21-N0v 78
18-4UL-78
CZDUED.P11
1 5:56

1916

2020

2073

2115

TABLE
TEMP
TEMP1

001232
017354
001144

TEMP?

001146

TEMP3

001150

TEMPS

0015,

3082#

7294

1009

1285

3168

1012«
1570

1742

2653

1029

1033«
3165

1024+

3155
1033
324SH

7094
7084
7074
7064
705#

1086
1307

7024
7014

1048
3163

7954
781#

8214

9114
3040

8714

1770«

3458
8728
34621

873
8744

128

1294

1307

2866

2873

1827
1693

1878
1930

1740

1893
2134

3247

1218

2890
3165
2873

1053«

1435

2133

1341
1349

2589

1275+
3048

1184+

1442

1220
1568

2206
1348
1570
2649

2300

3073«

3502+

1276~

1408
1812

204

3468
1448

2%63e

144G

1459

3428+

34300

3432

3040+

2073

T &b

3449e

3459

36606

1357+«

1822«

1364+
1835+

3470+

1416+
1895+

1447

1647

3119
2866

H»,O

2126

1086

—

7964

3224

1048

—
b

7004
6994
6984
6974
6964
6954
694n
8854

1039

3224
3240

7044
7034

3163

2589

3200

3119
8384
3235

"272

7824

9214
777#
30124
8474

1269

9304

2005+«
3436+

EedAY)
OO

2066+

7754

2508+

1528+
1821+
2054+

SYNINT- 030000
SYNSCH 000020
SYSTST= 014000

3063

7994

2318+

1518
1769
2049

) b

040000
100000
001176
020000

= 020000

3044

1508+
1756%

2310+«

1504«
1721
1989+

— e

SWi1é
=
SW15
=
SYNCNC
SYNEXT=

Sw1?

2258+

1467%
1718
1976
2500+

o
oONN
00O &

000176
016004
000001
000002
000004
000010
000020
0G0040
000100
000200
000400
001000
002000
004000
010000

2168

14646%
1717%
1973

1697+
1972«

oong
oo

SWREG
SWREGC
SWO0
=
SwO1
=
SWO2
=
Sw03 =
SWO4
=
SWO5
=
SWw06
=
SW07
=
SW08
=
Sw09 =
SW10
=
SW1l
Sw12
=

2156+

1432+

2495

—Om

014640
001100

1894«

2058

1290

2305

~NO
» o Ny

Sv0S
SWR

1221
1379%
1653«

1207

2037

258

STPSYN= 000400

1196
1363+
1606+
1881+

1203

1935

\) — 2
H NN

STATUS
001300
SID
= 000010
STFLG
001245

1199

SEQ 0082
1720

002000
015145
002000
001100

1195

1690

SIx
=
SPACNT=
SRD
=
STACK =

1860+

1222

1649

—

1849+

1601+

1200

1646

N =

1579«

1054+
1356+

1641

001140

1055+
12634
1122

1565

001200
003144
104412
004000
001177

1534
1484

TABLE =-- USER SYMBOLS

*»

SEREC
SETFG
SETFLG=
SEVEN =
SEXMIT
SHIFT

9744
814m
2649
8874
1261
9924
800~
8864
8694

NONOON
&
NWVON—
OO OWN

SCOPT = 104600
SEND
= 000020

15:50
PAGE 86
CROSS REFERENCE

N—A—l—l

CZDUE-D MACY11 30A(1052)
21-NOv-78
18-uUL=-78 15:56
CZDUED.P11

2032
2644
2591

2265+

3429

1655+

1696+
3441

1703

3433

R
LA

3445

3451

2890

CZDUE-D MACY1Y 30A(1052)
21-NOV~78
CZ0ueD.P11
18-JUL~78 15:56
TEMPS

001154

8754

15:50
PAGE 87
CROSS REFERENCE

2594«

THRU
TISDU
TIVDU
TKCSR
TKDBR
TLAST =
TPCSR
TPDBR
TRPOK
TRPREG
TSTNO

003262
001332
001330
001104
001106
012610
001110
001112
015230
020122
001126

1262
949
9484
849#
8504
1313
8514
8524
31104
34734
8614

12854
1070
1069
2869
2871
27794
2902
c904r

TST1
TST1I0
TST11

003446
007152
007410

“312
1925

2030

1318
20294
2078+

TST14
TST1S
TST16
1ST17
TST18
TST19
1ST2
1ST20

010654
011150
011334
011516
011712
012302
003750
012610

2196
2297
2356
2395
2640
2487
1337
2576

22964
23554
2394w
24394
2LEB6H
25754
13984
26414

IST12
TST13

TST21

1S73

007630
010176

wesxnnn

004346

2122+«

2079
2123

1017«

2105~

TABLE -- USER SYMBOLS

2599+

2600

2659~

1237«
1236+
2919
2921

3226
2929

3228

2665x

1336

2296

13364

1398%

2355+
2844

1477«

1556«

243Gs

2686%

28674

2845

1399

1731
1796

17954
19244

020174

1262«

1302«

1303«

1305«

1306+

N80

1246

1340«

1342+«

1345«

1351~

1682

1291

‘<~ J0r

015417,

1605+

1410~

1611

1613«

1445«
1499«
1577+

1457«
1500
1578«

1455«
1506+
1604 *

1457x
1507+
1605+

720+

1732+

1734+

1737

1745

1746~

1681«

2575%

1730«

1795«

1924«

2029+

2078+

1369+

1370«

1484
1524
1645

1486
1559+«
1646+

1804 «

1807+

2641+

1660

1818+

1661+

1929+

1662

1931

1684~

1935«

1352+«

1614+

1354+

1418+

1355«

16422*

1686+

1458+
1510
1635+
1690~

1481+
1521«
1637~
1694

1699+«

1942+

1949«

1958+

1965~

1748+

1749+

1483«
1522+
1641+

1802+

1423+

1700+

1988+

1372+«

1424~

1434

1708+

1709+

1991«

1373«

1436+

1492+«
1561%
1649+

1493«
1565
1651+

1814+

1815

1998+«

1710

2031«

2033«
2161+
2299+
2362«
2691
256¢r
3633

2037«
2165+
2301+
2367«
2495+
2577+
B43lr

2066+
2166
2305+
2373«
2502«
2579«
34350

2047+
2167+
2312«
2374
2503«
2589+
06w

2052+
2205+
2313«
2396
2506%
2043

2053+
2207+«
2316
2400
2507+
2645+

2069+
2210%
2317«
2405+
2513»
2649+

2082+
2216+
2323«
2412+
2523
2681+

2125+
2217x
2325«
2441+
2527
2694«

2127+
2263%
Q334
2445+
2534~
2719«

2130+
2267+
2338
2463
2542+
2733

2136+
2268+
2347+
2477
2551
BI4w..

2137+
2269+
2358
(89
2555«
3427+

2535s

2583«

2684

2732«

3,18+

1596

1648s

1695+

1940+

1975+

2044s

2057+

2309+

2499+

8124

2362

2367

2373

24600

26y

2445

267

2513

2542

2555

2562

7,0

3147

31508

1082

8114

TXINTE- 000100

TYPDAT

1402+

1444
Y498
1574«

1817+

TXDONF- 00020C

2740

17304

1439w
1494
1573«
1652+

02020V

2739«

14774

006044
006574

TMXDBUF

2734

2779

TST8
T1ST19

016064

2691

2642

15564
16324
1681#

TXCSR

2690+

21224
21954

1478
1557
1633

TTST

1632+

2394x

0046446
005146
005354

005570

2685+

2930
2929+

1ST4
TSTS
T1ST6

TSt?7

2666

SEQ 0083

2681

L—-———-—-

—

1248

2694

1490

719

1569«

2733

34984
2405

——

(Z0UE-D MACY11 30A(1052)
21-NOV-78
(ZDUED.P11
18-4UL~-78 15:56
TYPE

TYPMSG

104402

1022

3144

3138

31414

015142

3042+

3071~

30804

3232
6784
1731

32484
1337
17324

13384
1796

003224
= 000000
= 000001

ZERO

013526

$CNTG
016012
3
= 000026

SMNEW
016027
MSWR
016017
N
= 000024

12754
8184
7854

27994

21974
2642
3236
3234
6788
1730

1278

TABLE == USER SYMBOLS

SEQ 0084

3206

3232

1319

2785

2788

2793

2915

2925

2937

2941

3032

1399
17974

14004
1925

1478
19264

14804
203

1557
20314

1558¢
2079

1633
20804

16344
2123

1682
2124

1683#
2196

16344
2122

1681
21244

16834
2195

3234

3242

1280

2297
26434
35
3249
1336
1734

22984

2356

23574

2395

23964

13384
1795

1398
17974

14004
1924

1477
19264

14804
2029

1556
20314

15584
2078

1632
20804

2488%

2486

24884

2576

2357&4

2394

ggz:

355'

974LH

9764

9784

9804

9824

9844

9864

9884

9904

9924

oo
#

8364

843

9294

9304

9314

9324

9334

9344

9354

93594

9% 0

- 000015

$67
.

002142
= 020440

1049
823

10864
8264

002630
015664
015740
014730
014724
013452

1084
995
997
99
989
2642

1088
32224
32334
3034#
30324
27854

941
9S4Ln

942N
9554

3.
9564

12134

944m
957~

QLS54
958#

TAY |
9564

947a
9cOn

9484
61

949N
9624

9504
3253

9514
3383

2575

25774

2355

27794

2441

2487

22984

2439

2441a

2276

2641

23964

2440

21974

.BEGIN
.CKSWR
LCNTLU
.CNWVRT
.CONVR
.EOP

1263

3148

015360

uP
USER
VvOID

WRDCNT

9764

3069

15:50
PAGE 88
CROSS REFERENCE

952#
33844

25774

953
33854

6784

1386
1774
1986

TABLE == MACRO NAMES

1488
1839

1496
1844

SEQ 0085

1502
1854

2067
2425
2760

2095
2450
2765

2205
2489

2643

2287
2623

2330
2631

1957
1400
1635

1990
1434

1193
1110

1197
1130

1899
2251
2553

1377
1767
1980

[V LV, ]

1261

1296

1498

1505

1573

1576

1651

1659

1368

1371

1612

1443

1816

2135

1342
1929

1400
1931

1561

1635

1684

1201

1156

[Py

PRGEND

7354

1714

HLT

15:50
PAGE 90
CROSS REFERENCE

PON)
~— V=000
OO
N —
(VL 1V, ¥ N, N

CZOUE-D MACY11 30A(1052)
21-NOv~78
18-JUL=-78 15:56
(ZDUED.P11

1309

3115
2908
$MRR
SMRRW
MR
MSG

6784
678#
6784
6784

2505

$REG

SRESET

6784

6784
1802

2641

2491

1434

2577

1636

2032
2643

2082
2645

980

982

2127

2205

986

488

1812

972

974

976

978

984

CZDUE-D MACY11 30A(1052)
21-NOV-78
CZDUED.P11
18-JUL=-78 15:56
$TYPE

SUNIBU

SVARIA

$SWORDF

2355

6784

678

678#

6784

$WORDO
SWORDP

6784
678~

. ABS.

020440

3384
894

2639

2486

15:50
PAGE 91
(ROSS REFERENCE

2575

TABLE -- MACRO NAMES

2641

8472

000

ERRORS DETECTED:

CZDUED.BIN,CZDUED.

SEQ/CRF /SOL/NL : TOC-CZDUT1 . HLO/EQ:RUNE . CZDUT1.PAR, (ZDUTT.KE T, CZDUED.P11

RUN-TIME: # 11 1 SECONDS

RUN=TIME RATIO:
CORE USED:
19K

72/20=3.4
(27 PAGES)

SEQ 0086