Digital PDFs

AH-8697D-MC

January 1979

65 pages

Original

3.3MB

view download

OCR Version

2.8MB

view download

Document:	CZDUFD0 DU11 OFF-LINE COMBINED TEST JAN 1979 bw
Order Number:	AH-8697D-MC
Revision:	000
Pages:	65
Original Filename:	CZDUFD0__DU11__OFF-LINE_COMBINED_TEST__AH-8697D-MC__JAN_1979_bw.pdf

OCR Text

OFF-LINE COMBINED TEST

AH-8697D-MC

CZDUFDO

JAN 1979

~~y

(ZDUF=D MACY11 30A(1052)
21-NOV=-78
DU 1, HLO
20-NOv~78 16:48

15:52

PAGE

1
SEQ 0001

IDENTIFICATI]ION

THE

INFORMATION

PRODUCT CODE:

A(C~8696D-M(

PRODUCT NAME:

(ZDUFDO DU11

RELEASE DATE:

JUN 1978

MAINTAINER

DIAGNOSTI(S

THIS

DOCUMENT

SUBJECT

OFFLINE

COMBINEC

CHANGE

TESTS

WITHOUT NOTICE

AND

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

MAY

APPEAR

THIS

DOCUMENT.

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

OIGITAL

EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

RECIABILITY OF

ITS

SOFTWARE

ON EQ JIPMENT

(()

“678 BY DIGITAL

1973,

THATM

IS NOT

EQUIPMENT

THE USE Or

SUPPLIED BY

CORPORATION

DIGITAL.

({OUF
=D MACY11

CIDUTT . HLO

30A(1052)

21-NOV-78

20-NOV-78 16:48

15:52

PAGE 2

SEQ 0002

GENERAL DESCRIPTION
THIS DIAGNOSTIC

CAN CHAIN 16 DU11°'S.

THIS MEANS

THAT

‘6 DEVICES CAN BE SEQUENTIALLY EXERCISED.
THE DIAGNOSTIC
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,
AmDyggNYINUES EXERCISING ALL DEVICES

HAL

THE DUTT OFFLINE COMBINED TESTS VERIFY THAT THE

REQUIREMENTS
FAMILY STANDARD (OMPUTER WITH OR WITHOUT HARDWARE SWITCH

DUT1

(LOC.

177570)

SYNCRONOUS/ISOCRONOUS OPTION

ONE CONSOLE

TELETYPE CR EQUIVALENT

STORAGE
THE

TRANSMITTER

AND RECEIVER CAN TALK THRU THE EXTERNAL MODEM CABLE
PROVIDING THAT THE H315 CONNECTOR IS ON

PDP=11

c.e

IN THIS FASHION UNTIL

PROGRAM LOADS AND RUNS

IN &K OF

MEMORY,

LOADING PROCEDURE
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES
IS TO BE USED.
STARTING ADDRESS

FOR ABSOLUTE _OADER
017500

12K
16K

20K

24K,

28k
..

037500

057500
077500

117500

137500

157500

STARTING PROCEDURE

CPCPRIPPPPIE

NOTE :

4443044044444t

4 4444434421444 4 2244444244444

BEFORE PROCEEDING IT
TO REALIZE

HAVE

THE

DU11

ONE

SET '/P

DEFAULT PARAMETERS

IMPORTANT

THE

DOESNOT

(

SEE

SECTiON

444 00444044

T0O

I~y

C DUF =D MACY11 30A(1052)
21-NOV-78
C DU, HLO
20-NOV-78 16 148

15:52

PAGE 3

SEQ 0003

8 OF THIS DOCUMENT) , THEN ONE MUST
SET SWO0 = 1, AND ANSWER THE PARAMETER

QUESTION ROUTINE.
R

6.1

&.1.2

YO PO

CONTROL SWITCH SETTINGS
NOTE:

4.17.1

SOF TWARE SWITCH REGISTER IS DEFINED AS LOC.
THE

SOF TWARE

DISPLAY REGISTER

176, WHILE

IS DEFINED AS LOC.

174,

AFTER PROGRAM LOAD (INJTIAL PROGRAM START)
ALL CONSOLE SWITCHES DOWN

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES

AF TER PROGRAM RESTART OR

TO RUN MULTIPLE DEVICES

Sw00=1

4.1.3

7O START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART

SwO1-1
4.7.4

IN SINGLE

DEVICE

TESTS)

TO LOCK ON SELECTED TEST ArTER A PROGRAM RESTART
(ONLY

SW02-1

L./

(ONLY

NOTE1:
NOTEZ:

IN SINGLE DEVICE

TESTS)

IN GENERAL
SWO1 WILL BE USED WHEN SW02-1 IS USED
WITHOUT SWO1-1
"LOCK ON TEST'' WILL DEFAULT TO TgST 1

STARTING ADDRESS

THE

STARTING ADDRESS

THE
THE
THE

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

FOR ALL

TESTS

ve.3

PROGRAM AND/OR OPERATOR ACTION

«.3.

INITIAL PROGRAM START
4.3.1.1

000200
000200
TEST IS
000200

000200

LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER

4.3.1.2 LOAD ADDRESS 000200

4.3.1.3 CLEAR CONSOLE SwITCHES
4.3.1.4 PRESS START

4.3.1.5

THE PROGRAM WI.l

NOTE:1F

THE

SOF "WARE

TYPE 'DUl1

SWITCH REGISTFR

(ZDUF=D TAPE

F'' (ONCE

ONLY)

IS SELECTED

THEN THE

FOLLOWING

(ZDUF =D MACY11 30A(1052)
21-NOV-78
CZDUTT.HLO
20-NOV-78 16:48
WILL BE

SEQ 0004

(REFER TO SECTION S.

4£.3.1.7 THE PROGRAM WILL

TYPE

PROGRAM RESTART WITH ALL

SWITCHES DOWN

4.3.2.7

TYPE

. 3.

PAGE 4

TYPED AFTER THE PROGRAM IDENTIFIES

SWR=XXXXXX NEW=

«.3.0

15:52

START

TESTING

,AND

THEN

THE PROGRAM WILL

'R'' 7O INDICATE

TESTING WILL

BEGIN

'R'' AND WILL

ITSELF:

FOR OPERATOR'S OPTION)
THAT

COMMENCE

IS ABOUT

TESTING

PROGRAM RESTART WITH SW00=1

4.3.3.1

LOAD ADDRESS

000200

4.3.3.2 SET Sw00=1
4.3.3.3 PRESS START
NOTE:IF

THE

SOF TWARE

SWITCH REGISTER

THE

PROGRAM WILL

IS SE_EC TED THEN THE FOLLOWING

SUREXXKHKX NEWS | (REFER TO SECTION 5. FOR OPERATOR'S OPTION)

4.3.3.4

TYPE

"' 1ST

DEVICE:

RECEIVER

ADDRESS'' AND WAIT rOR AN INPUT FROM THE

4.3.3.5 TYPE

IN THE ADDRESS OF

CONTROL

THE FIRST RECEIVER CONTROL
DU11 TN BE
RETURN>

TESTED

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM wIiL
AND WILL THEN REPEAT THE MESSAGE OF &4.3.3.4
4.3.3.6 THE PROGRAM WILL TYPE 'VECTOR ADDRESS='' AND WAIT
INPUT FROM THE TELETYPE KEYBOARD

&«.3.3.7 TYPE

TYPE 'TM

FOR AN

IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS

FOR THE
IF

TELETYPE KEYBOARD

DU11

TO BE

INCORRECT

AND WILL

TESTED FOLLOWED BY A <CARRIAGE RETURN>

ADDRESS

THEN REPEAT

TYPED

,THE

THE MESSAGE OF

PROGRAM wILL

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 KEYROARD
4.3.5.9 TYPE

IN THE APPROPRIATE

<CARRIAGE

RETURN>

ANSWER

AN INCORRECT ANSWER

If
IF

A NO'' ANSWER IS GIVEN: 1UMP TC SECTION 4.
4 "YES'' ANSWER IS GIVEN:THE NEXT QUESTION

AND WILL

THEN REPEAT

IS GIVEN,

YES OR NO FOLLOWED BY A

THE PROGRAM WILL

THE MESSAGE OF 4.3.3.8

TYPE

***'

({DUF=D MACY11 30A(1052)
21-NOV-78
r20UN1.HL0
20-NOV~78 16:48

«.3.3.10
£.3.3.11

15:52

PAGE S

SEQ 0005

THE PROGRAM WILL TYPE 'LAST DEVICE:RECEIVER CONTROL

TYPE

ADDRESS OF

FOR AN

IN THE ADDRESS OF

THE

DU11

TO BE

$.3.3.110

,THE PROGRAM WILL

AN "OUT OF

RANGE'' ADDRESS

PROGRAM WILL
AND WAIT

TYPE 'OUT OF

FOR AN

TYPE

INPUT

THE

BY A <CARRIAGE RETURN>

TYPED

(UPWARDS)..... THE

RANGE:RETYPE LAST

FROM THE

[N THE ADDRESS OF

DU11

RETURN>

TYPE '"*'

THEN REPEAT THE MESSAGE OF 4.3.3.10
ADDRESSES SHALL BE CONTIGUOUS

KEYBOARD

THE LAST RECEIVER (ONTROL REGISTER

IE. MORE THAN 16 (10) DEVICES AWAY

¢.3.3.11.¢

TELETYPE

TESTED FOLLOWED BY A <CARRIAGE

IF AN INCORRECT ANSWER IS TYPED

AND WILL
NCTE :ALL

INPUT FROM THE

TELETYPE

DEVICE RXCSR ADDRESS-''

KEYBOARD

THE LAST RECEIVER CONTROL

TO BE

TESTED

FOLLOWED

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

TYPE '

IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED...........
«...S5CHOOLS OJT......... THERE IS NO PROTECTION FOR THIS.
THE PROGRAM WILL DEFAULT TO TwO DEVICES ACTIVE (JUPWARDS FROM
1ST DEVICE ADDRESS).THE SAMF APPLIES TO IDENTICAL ADDRESSES
TYPED

FOR

FIRST

AND

LAST

DEVICE.

OBSERVE LOCATION @ ACTREG:

SEE

SECTION 7.2

4.3.3.12

THE PROGRAM WILL TYPE ‘DU PRIORITY LEVEL-"" AND
WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

£.3.3.13

TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF THE
DU11 OR DUT1'S TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>
E?OEE)THATI?LL ?ULTIPLE DEVICES MUST BE AT THE SAME PRIORITY
VEL).
"5t
IF

AND
6.3.3.14

INCORRECT LEVEL

SELECTED

KE YBOARD

6.3.3.15

TYOED

,THE PROGRAM wiLL

REPEAT THE MESSAGE OF 4.3.%.12
THE PROGRAM WILL

TYPE

'# GF

SYN(

(HARS

TYPE

OR 2)-'" AND WAIT FOR AN INPUT FROM THE

TELETYPE

TYPE IN THE APPROPRIATE ANSWER ‘"'* NR 2" FOLLOWED
BY A <CARRIAGE RETURN>. (NOTE:ALL MULTIPLE DEVICES MUST
BE THE SAME)

If AN INCORRECT ANSWER IS TYPED ,TME PROGRAM WILL
AND WllL REPEAT THE MESSAGF OF 4.3.3.%%

TYPE ''7**

b/*
L

i |

(IDUF=D MACY1T

| C7oU11 .0

30A(1052)

21-NOV-78

20-NOV-78 16:48
6.3.3.16

6.3.3.17

15:52

PAGE 6

SEQ 0006

T €& PROGRAM WILL TYPE ' IS SEC XMIT JUMPER #6
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

THE PROGRAM WILL TYPE '‘IS SEC REC
(Y OR N)="" AND WAIT FOR AN INPUT ©ROM THE

«.%3.%3.19

TYPE

JUMPER # S5 IN ?
TELETYPE KEYBOARD

(NOTE:

ALL MULTIPLE

DEVICES MUST BE

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE Of 4.3.3.18
4.3.3.20
# &

TYPE N THE APPROPRIATE ANSWER YES OR NO FOLLOWED
BY A <(ARRIAGE RETURN..
(NOTE: ALL MULTIPLE DEVICES MUST BE

TYPE

<CARRIAGE

HAS

THIS WILL

(NOTE:

ALL

MULTIPLE

DEVICES MUST

THE PROGRAM WILL

WITH SW01-1

TYPE 'R°'' TO INDICATE

COMMENCE

TESTING AT

ONLY WORK WHEN A SINGLE

DEvICE

TEST

THAT
!

TYPE

[S SELFCZTED

If MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,
2?? EE%E%Y SWO0-1 AND ANSWER ‘NO'* TGO THE MULTIPLE DEVICE QUESTION
LOAD 000200

THE

''?"'

...1T WILL NOT WORK IF MULTIP.E DEVICES ARE SELECTED

4.3.4.1

THE

SAME)

TYPE ‘"'’

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY

RETURN>,

STARTED AND WILL

PROGRAM RESTART

NOTE:

kEYBOA3D

TELETYPE KEYBOARD

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

4.3.3.24

SAME)

THE PROGRAM WILL TYPE “ARE YOU RUNNING IN MAINT.
MODE EXTERNAL ? AND ...... DO YOU HAVE THE EXTERNAL MODEM
BYPASS JUMPER CONNECTOR ON ? (Y OR N)-"' AND WAIT FOR AN

INPUT FROM THE

£.3.3.23

THE

TYPE ‘'"?*’

THE PROGRAM WILL TYPE ‘IS OPT CLR ENABLE JUMPER
(Y OR N)="' AND WAIT FOR AN INPUT FROM THE TELETYPE

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

TYPE '"?*'

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

By A <CARRJAGE RETLRN>,

6.3.3.21

(Y OR N)=''

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

[f AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.16
4.3.3.18

IN ?

SAME)

(JDUF-D MACY11

CIDUTIT . HLO

30A(1052)

21-NOV-78

15:52

20-NOV-78 16:48

PAGE

SEQ 0007

6.3.64.2 SET SW01-1
4.3.4.3 PRESS START
NOTE:IF THE SOF TWARE SWITCH REGISTER IS S ELECTED THEN THE
wiLL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:

FOLLOWING

4.3.4.4

INPUT

SWR=XXXXXX NEW=
THE
THE

FOR OPERATOR'S OPTION)

PROGRAM WILL TYPE °TEST P(-'' AND WAIT
TELETYPE KEYBOARD

4.%3.4.5 TYPE
BE

(REFER TO SECTION 5.

IN THE ADDRESS OF

THE

TESTING AT

NOTE:

THE

THAT

SELECTED

CARE MUST BE

LSINCE THERE

TEST AT WHICH THE PROGRAM IS T0

TEST

4.3.5.1

THAT

[T HAS STARTED

TAKEN WHEN THIS FEATURE

IS USED

IS NO PROTECTION AGAINST SELECTING AN ADDRESS

THE

MIDDLE

TEST

PROGRAM RESTART WITH SW02 =1
NOTE: TH]S WILL ONLY WORK WHEN A SINGLE

SEE NOTE

FROM

STARTED FOLLOWED BY A <CARRIAGE RETURN>

4.3.4.6 THE PROGRAM WILL TYPE 'R’ TO INDICATE

4.3.5

FOR AN

IN 4.3.4 FOR MORE DETALLS

DEVICE

IS SELECTED

LOAD ADDRESS 000200

4.3.5.2 SET Sw02 -1
NOTE: iT MAY BE

ADVANTAGEOUS

TO SET

SWO01="

(OPT]ONAL)

4£.3.5.%3 PRESS START

NOTE :IF

THE

SOF "WARE

SWITCH REGISTER

IS SELECTED

THEN THE

FOLLOWING

4¢.3.5.4

THE PROGRAM WILL TYPE ‘10OCK ON SELECTED TEST ? (¥ CR N)="'
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

wWiLlL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 5. FOR OPERATOR'S OPTION)

4£.3.5.5

TYPE

IN THE

APPROPRIATE ANSWER YES OR NO FOLLOWED BY A

If A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED
AND THE PROGRAM WILL TYPE 'R'* TO INDICATE THAT T HAS STARTED
TESTING AT TEST 1
4£.3.5.6 IF A YES ANSWER WAS GIVEN:THE PROGRAM WILL ACT AS FOLLOWS...
THE PROGRAM WILL TYPE 'R’ TO INDICATE THAT [T HAS STARTED
TESTING AT

OR
WILL

TEST

AND WILL REMAIN IN TEST

UNTIL HALTED

[F ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM
FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON

THE TELETYPE AND SO FORTH THRU THE PROGRAM. IfF
WILL PERFORM AS IN SECTION 4.3.4
ALLOWING ONE

ON A SELECTED TEST RATHER

SW01 =1
[T
TO FREEZE

THAN DEFAULTING TO TEST

(IOUF=D MACY11 30A(1052)
21-NOV-78
(ZDUt1 .10
20-NOV~78 16:48

6.4

THE

15:52

PAGE 8

SEQ 0008

STATUS MAP

wHICH WwILL ALLOW

THE

|5 AN AREA OF

TRANSFER OF

THE

DUT1

PARAMETERS

DIAGNOSTICS,

BETWEEN DIAGNOSTICS.

[f YOU WISH TO TEST
A DUIT
, WHICH IS NOT AT "HE DEFAULT
VALUES ,YOU NEED ONLY GO THROUGH THE
TEDIOUS QUESTIONING

AND ANSWERING ROUTINE

ALLOW

THE

ONCE.

FOLLLOWING COMBINATIONS OF

YOU ACCESS

THE

Sw07=1

START AT 200

NOTE :

STATUS MAP,

THE DIAGNOSTIC WwILL

AND BYPASS ALL OF

IT IS

THE

SWITCH REGISTER

SETTINGS wiILL

GO TO "HE STATUS Map

QUESTIONING ROUTINE.

EXTREMELY IMPORTANT THAT EITHER YOU HAVE

JUST ANSWERED THESE QUESTIONS DURING A PRIOR
DIAGNOSTIC
OR THAT YOU HAVE MANUALLY FNTERED THE CORRECT VALUES
FOR VECTOR ADDRESSES ETC.,IN THE AREA DESIGNATED
FOR

THE

BEFORE

STATUS MAP,

STARTING AT 200.

IMPORTANT

THE DIAGNOSTIC HAS NO METHOD

THAT

THIS

PERFORMED

TO DETERMINE

THAT THE STATUS MAP HAS INDEED
BEEN LOADED
THE DJAGNOSTIC ASSUMES THAT WHEN SW07=1 THE

CORRECTLY.
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.

IF BOTH SWO7 AND SWOO (SWITCH REGISTER SWITCHES)

ARE

SET

,(EQUAL

TO 1),

THE PROGRAM WILL

IGNORE

SWO0 AND

SEEING SWO7 SET,
THE VALUES FROM THE STATUS MAP WILL BE
USED. TO USE THE DEFAULT VALUES FOR THE DU11'S
THE OPERATOR MUST SET SW00=0 AND SW07-0.

1S EXPLAINED IN GREATER DETAIL
OF THIS DOCUMENT.

IN SECTION

THE USE OF

4.3

THE FIRST TIME A PROGRAM IS LOADED OR THE FJRST TIME
A PROGRAM S ALTERED VIA THE PARAMETER RESELECTION QUESTION

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

EXCEPT SWO1. RESTARTING THE PROGRAM WILLNOT PRINT OUT A

MAP UNLESS

THE PROGRAM PARAMETERS ARE BEING RESELCLCTED

By PUTTING SW00=1.(ON)

THE MAP WIL.

STATUS MAP

1300/ 177777

LOOK L[ IKE:

SW00

15:52

~N~y

({OUF=D MACY11 30A(1052)
21-NOV-78
CZ0UTT HLO
20-NOv~-78 16:48

PAGE 9

SEQ 0009

1302/ 000000

13047 177777
THE BYTES ARE

1300

THE NUMBER OF SYNCHRONOUS CHARA(CTERS REQUIRED FOR
SYNCHRONIZATION.
SEC
TRANSMIT JUMPER
SEC RECEIVER JUMPER
OPTIONAL JUMPER

1301

1302
1303

1304

MULTIPLE DEVICES

1305

AND

I+

I[F

THE

DEFINED AS FOLLOWS:

(NO-O

EXTERNAL MODEM BYPASS?

THE BYTE

BYTE

IS O ,

377 ETC.

YES=

(NO O

,YES=

1D,

THE JUMPER IS NOT CONNECTED
THE

_UMPER

SHOULD BF

CONNECTED.

OPERATING PROCEDURE
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOF TWARE SWITCH REGISTER [S USED WHICH ALLCWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

[F THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND [T CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.
:
CONTROL
THIS PROGRAM ALSQ SUPPORTS

THE

TYPE

CONTROL

G <*G>;

DYNAMI(C

TTY.

THIS WILL

LOADING OF

THE

SOF TWARE

THIS CAN BE ACCOMPLISHED BY

ALLOW THE

TTY

YO ENTER DATA

SWITCH

INTO

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM,
2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
OF

THE SOF TWARE SWITCH REGISTER.)

3) AFTER THE °''NEW-'' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLOWING AT THE TTY:
A)

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(R>.
(ONLY NUMBERS BETWEEN O~7 WILL BE ACCEPTED AND ONLY 6 NUMBERS

wiLL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED

Swi4 -1
A
Swl®
1

THE

SOF TWARE

SWIT(CH

CHANGED.

IF A CONTRO. U <*U> 5 DEPRESSED ThEN THE PROGRAM WwlLL SEND YOU
BACK TO STEP 2.

OPERATIONAL

SWw1s =1

NOT BE

SWITCH SETTINGS

HALT ON ERROR

LOOP ON CURRENT

TEST

INHIBIT ERROR TYPEQUT
INHIBIT ITERATIONS

(ZOUF =D MACY1

CIDUIT. HLO

30A(1052)

21-NOV=78

15:52

20-NOV-78 16:48

Swi0 -1
SwO8 -1
SwWC7 -1

PAGE

SEQ 0010

ESCAPE TO NEXT TEST ON ERROR
LOOP ON ERROR
USE STATUS MAP PARAMETERS

LOCK ON TEST
RESTART PROGRAM AT SELECTED TEST
RESELECT VECTOR AND CONTROL REGISTER ADRESSES
EPARAMETERS AFTER A PROGRAM RESTART
TO INHIBIT "END OF PASS'' TYPEOUT - TURN TELETYPE OFF

SwO2 -1
SWO1 -1
Sw00 -1

€.’

ERRORS

ERROR HALTS
THERE

ARE

NOTE:

THE
THE

FOUR DISTINCT

THE

NEW

REFER

'HLT''
IN DIAGNOSTIC

TO THE

ABOVE

THE

TO LOCATE

THE

EXPECTED

DEPRESSING

CONTINUE.

FOR OPERATOR OPTION)
TO THE

ERROR HANDLER

FOR ERROR DESCRIPTION

DEVICE PRESENTLY UNDER

ACTUAL

YYYYYY

1212712

16XXXX

THE ADDRESS OF

WHERE

YYYYYY

THE

WwHERE 772727

THE ACTUA_

EXPECTED

THE

FAILING DEVICE

CONTENTS OF

THAT

THAT REGISTER

+2 - RECEIVER ERROR P(

EXPECTED
YYYYYY

ACTUAL
222271

THE

WHERE

16XXXX

THE

ADDRESS OF

WHERE

YYYYYY

THE

EXPECTED DATA CONTENTS OF

WHERE

277771

THE

ACTUAL

CHANGED AFTER A HALT

WHERE

CALL

DEVICES

TO BE

A <*G> BEFORE

ADDRESS OF

16X XXX

#.7.4

TYPE

PC+2
= ERROR P(
WHERE PC +2 IS THE

TEST WHEN RUNNING MULTIPLE

£.°.%

(REFER TO SECTION S.

CHECK ADDRESS @ RXC3R:

€.°.2

TYPEOUTS

SWITCH REGISTER

THE OPERATOR IS REQUIRED
FOLLOWING WILL BE TYPED:

SWR-XXXXXX
e.1.1

SOFTWARE

ERROR

FAILING RECEIVER

DATA (ONTENTS GF

THAT

(RXDBUF)

TRANSMITTER ERROR PL
EXPECTED
YYYYYY

ACTUAL
21217

THE

WHERE

T16XXXX

THE

ADDRESS OF

WHERE

YYYYYY

THE EXPECTED CONTENTS OF

WHERE

777777

THE

ACTUAL

FAILING

CONTENTS OF

TRANSMITTER

THAT REGISTER

(IXCSR)

RFGISTER

ggf;D HSCY11

30A(1052)

20-NOV-78

21-NOV-78

1648

15:52

FAGE 11

SEQ 0011

6.1.5

ERROR DESCRIPT]IONS
SEE LISTINGS FOR DETAILS OF ERRORS

€.2

ERROR RECOVERY

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

REQUIRED TO CONTINUE

6.2.2

TESTING

Swi15 =1
If THE PROGRAM IS RUN WITH SW15 -1

AFTER THE PROGRAM HAS HALTED

CONSOLE ''CONTINUE SWITCH''

NOTE:

6.2.3

THE PC

+ 2 OF

,PRESS

,TO CONTINUE

TESTING

THE PROCESSOR

THE "HLT'" 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 HALT IN
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 10O

RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL TROUBLESHOOTING AIDS

6.3

END OF PASS ROUTINE

ERRCNT: & PASCNT:

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

THIS

IT IS

TYPEQUT

IS MENTIONED HERE

IN THE FORM:

END OF PASS TAPE
16XXXX
DEVICE
WHERE

wHERE

16XXXX

INHIBIT

THE

FOR

CONVENIENCE

TAPF

[ GADED

IS THE DEVICE'S BASE REGISTER ADDRESS

THIS

TYPEOUT -

TURN

TELETYPE

OFF

RESTRICTIONS
.

MULTIPLE DEVICES

UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER,
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS
NOTE:

IF ALL DEVICES UNDER TEST HAVE

THE SAME

YOU CAN CHANGE
'‘ZERO:
ADD
#10,BASEIV
(VECTORS)''
TO "ZERO:
ADD
#0,BASEIV";

THEREBY

THE

VECTOR ADDRESSES WILI

UPDATED AFTER EACH PASS.

THEY
INTERRUPT VECTOR

sNEXT BLOCK

NOT BE

DISQUAL IFYING DEVICES WHEN RUNNING MULTIPLE DEVICES

(ZDUF=-D MACY11 30A(1052)
21-NOV-78
(ZDUT1.HLO
20-NOV-78 16:48

15:52

PAGE

SEQ 0012

WHEN RUNNING MULTIPLE DEVICES
AN A(C TIVE BIT IS SET
FOR EACH DEVICE RUNNING UNDER TEST
IE. BIT O FOR

DEVICE O

,BIT 15 FOR DEVICE 15

TO DISQUALIFY DEVICES:

7.2.1
7.2.2

IF DEVICE QO IS TO BE DISQUALIFIED ,SIMPLY RESTART

PROGRAM WITH SWOO =1

AND OMIT THE

IF HOWEVER, DEVICES 1

THRU 15 OR ANY COMBINATION THEREOF

ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTREG:
OBSERVE THE ACTIVE BiTS (ACTIVE =1, NONACTIVE = 0)
AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIED
7.2.2.1

TO RESTART...LOAD 000200 IN SWR AND DEPRESS START....
THE PROGRAM WILL

7.3

CONTINUE WITH THE

DEVICE

IT WAS

IN BEFORE

HALTING.

7.2.2.2

cocuenn OR ..... LOAD 000200 WITH SWOO =1 AND DEPRESS START....
ANSWER THE QUESTION :1ST DEVICE : FTC...........
....THE PROGRAM WILL CONTINUE WITH DEVICE O

7.2.2.3

IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE = THE PROGRAM
WILL TYPEOUT
AN ERROR MESSAGE....... LOAD & START AT 000200

CABLE DELAYS
NOTE: EXTERNAL LOOP BACK

7.3.1

FIRST DEVICE.

TO PROVIDE

TESTS ONLY

(MODEM CABLE WITH H315 CONNECTOR ON)

SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE

CABLE,

LOCATION 'HOLD:'' MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES.
PRESENTLY "HOLD:'' =20

IS SUFFICIENT

TIME ON AN 11/20 MACHINE.

IF RUNNING ON AN 11/40 OR AN 11/45 "HOLD.'' MUST BE PATCHED TO 40

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS

7.4

TO USE THF 'XOR"' TESTER ,THE BRANCH AROUND THE ‘‘XOR''

CODE MUST BE PATCHED

TO A 'NOP''.

DEFAULT PARAMETERS:
1ST DEVICE:

RECEIVER COMTROL

(SEE

LISTINGS FOR DETAILS)

VECTOR ADDRESSARE

YOU RUNNING MULTIPLE

DEVICES

?- NO

LAST DEVICE: RECEIVER COMTROL RECISTER ADDRESS=
DU PRIORITY LEVEL~
# OF

SYNC

CHARS

LEVEL

SELECTED

5
-

IS SEC XMIT JUMPER # € IN 7~
IS SEC REC JUMPER # S
IS OPT (LR ENABLE

IN 7~

JUMPER # &4

YES
YES
IN ?=

DURIV:

770

MULTD:

(ASTADD: C

DUPRT:

LEVEL

SYNCNO:

377

SEXMIT:

377

SEREC:
YES OPTCLR:

160040

377
377

‘

CZDOUF
=D MACY11_30A(1052)

CIDU11.HLO

21-NOV-78

20-NOV~78 16:48

DO YOU HAVE

CONNECTOR ON

15:52

PAGE 13

SEQ 0013

THE EXTERNAL MODEM BYPASS JUMPER
(H315)-

YES

JMRBY:

377

PROGRAM DESCRIPTION

Ti]S PROGRAM PERFORMS THL OFFLINE COMBINED

CABLE TESTING OF THE DEVICE
SEE LISTING FOR DETAILS

FLOW (HARTS:

. 'STINGS

(TRANSMITTER & RECEIVER)

RECEIVER FLOW,TRANSMITTER FLOW,TRANSMITTER & RECEIVER FLOW

CZDUF
=D MACY11 30A(1052)
21-NOvV-78
CZDU11.PAR
21-NOV-78 15:17

675
675

000000* 000000G

15:52

PAGE 15

SEQ 0014

CZDUF=D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-4UL-78 15:59

677
678

705

709

SEQ 0015

;DUIT CZDUF-D _TAPE f
;COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754

680
681
682
683
684
685
686
687
688
689
690
691

706
707
708

PAGE

.ENABLE ABS

679

692
693
694
695
696
697
698
699
700
701
702
703
704

15:52

;STARTING PROCEDURE
;LOAD PROGRAM

;PRESS START
;PROGRAM WILL TYPE 'DU11 CZDUF-D TAPE F ‘'
;PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE f''

JAND THEN RESUME TESTING

JSWITCH REGISTER OPTIONS

100000

040000

020000
010000
004000
002000
001000

000400
000200
000100
000040
000020
000010
000604
000002
000001

5W15=100000
SW14=40000

Sw13=20000

SW12=10000
SW11=4000

SwW10=2000

SW09=1000
SW08=400
Sw07=200
Sw06=100
SwW05=40
SW04=20
Sw03=10
SW02=4
Sw01-2
Sw00=1

;=1,HALT ON ERROR
;=1,L00P_ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT
;~1,INHIBIT ITERATIONS

;=1,ESCAPE TO NEXT TEST ON ERROR
;=1,LO0P WITH CURRENT DATA
; 1.LCOP ON ERROR
:+
1, USE STATUS MAP

;LOCK ON TEST SELECT

;RESTART PROGRAM AT SELECTED TEST

;RESELECT VECTOR AND CONTROL REGISTER

;ADDRLSS AFTER PROGRAM RESTART

CZDUF-D MACY11 30A(1052)
21-NOv-78
CZOUFD.P11
18-JUL-78 15:59

m
712
713
714
715

15:52

PAGE 19

SEQ 0016
JREGISTER DEFINITIONS

RO=X0
R1=%1

;GENERAL REGISTER
;GENERAL REGISTER

R4=%4
RS=X5
SP=26
PC-X7

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

R2=X2
R3=X3

000005
000006
000007

sGENERAL REGISTER
;GENERAL REGISTER

JLOCATION EQUIVALENCIES
177570
177570
177776

001700

DSWR=177570

sHARDWARE SWITCH REGISTER LOC.

PS=177776

;PROCESSOR STATUS WORD

DLIGHTS=177570
STACK=1100

;HARDWARE DISPLAY REGISTER LOC.

;START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

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

100000

T15f100000

sDECREMENT PROCESSOR STACK ' WORD -TST =(SP)
s INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+
;SAVE RO ON STACK =MOV RO,-(SP)
;RESTORE RO FROM STACK =MOV (SP)+,R0O
;DECREMENT STACK TWICE =(MP =(SP),=~(SP)
s INCREMENT STACK TWICE =CMP (SP)+,(SP)+
;BASIC DEFINITION OF ERROR CALL

BIT12 10000
BIT11=4000
B1710=2000
8179=1000

JPROCESSER LEVELS

LEVEL7=340
LEVEL6=300
LEVELS5=240
LEVEL4=200
LEVEL3=140
SEVEL1=040
LEVELO=000

CZOUF-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL-78 15:59

767

768
769
770
771
772
773
774
775
776
777
778

779

100000
040000
020000
010000
004000
002000
0071000
000400
000200
000100

000040

000020
000010
000004
000002
000001

786

100000

787
788
789
790
791
792
793

794

795
7%
797
798
799
800

301
802
803
804
805
806

807
808
809
870
811
812
813
814
815
816
817
818
819
820
827

PAGE 20

SEQ 0017

JREGISTER DEF INITIONS

780
781
782
783

784
785

15:52

040000
020000
010000
001000
000400

030000

020000
000000
000000
002000
004000
006000

000000
001000
001400
100000
040000

020000
002000
000400

000200
000100
000040
000020
000010
000001
000000
004000
010000
014000

:RXCSR BIT DEFINITIONS

DSC=BIT15

:DATA SET CHANGE

RING=BIT14

‘RING

RECACT=BIT11
SRD=BIT10
DSR=BIT9
STPSYN=BIT8
RXDONE=B]T7

SREC ACTIVE
$SEC REC DATA
:DATA SET RDY
*STRIP SYNC
SREC DONE

CTS=BIT13
CARDET=BIT12

RINTEN=BIT6

DSINTE=B]TS
SYNSCH=BI T4

STD=BIT3

RTS=BIT2
DTR=BIT1
VCID=BITO

*CLR TO SEND
:CARRIER DETECT

*REC

INTR ENABLE

:DSC INTR ENAZ.E
*SYNC SEARCH

*SEC XMIT DATA
*REQ TO SEND
:DATA TERM ]DY

SRXDBUF BIT DEFINITIONS
RXERR=B]T15
;REC ERROR

OVRRUN=BIT14

FRMERR=B]T13
PARER=BIT12
:PARCSR BIT

PAREN=B]T9

EVPAR=R] T8

*OVERRUN

SFRAME ERROR
*PARITY ERROR

DEFINITIONS

;PARITY ENABLE

“EVEN PARITY SENSE

-PARCSR WRD DEF INITIONS

SYNINT=30000

;SYNC EXTERNAL MODE

SYNEXT=20000
1SYMOD=0
FIVE=0

SSYNC INTERNAL MODE
$1S0C MODE
SWORD LENGTH S BITS

SEVEN=4000
EIGHT=6000
NOPAR=0
ODDPAR-1000
£ VEPAR=1400

*WORD LENGTH 7 BITS
*WORD LENGTH 8 BITS
*NO PARITY
:0DD PARITY
SEVEN PARITY

SI1x=2000

:TXCSR BIT

DNA=BIT15

MTDATA=BIT14

*WORD LENGTH 6 BITS

DEFINITIONS

:DATA NOT AVAILABLE
*MAINT DATA

CLK=B]T13
BITW=BIT10

TCLK
*BIT WINDOW

TXDONE=B] T~
TXINTE=BIT6

*XMIT
SXMIT

MRESET=BIT8

DNAINTE=R]TS
SEND=BIT4
HDXEN=BIT3
BREAK=BIT0
USER 0

*MASTER RESET
DONE
INTR ENABLE

*DNA INTR ENAB
*SEND
*HDX/F
DX
:BREAK

;TXCSR WRD DEF INITIONS
;USER MODE

MINT=4000
MEXT 10000
SYSTST~14000

:MAINT INT MODE
SMAINT EXT MODE
*SYSTEM TEST MODE

s TRAP(AT{R FOR ILLEGAL

INTERRUPTS

CZOUF=D MACY11

CZDUFD.P11

822
823
824
825
826
827
828
829
830
ggg

30A(1052)

21-NOV-78

18~JUL~78 15:59

PAGE 21

000024
000026
000030
000032
000034
000036

000024
010430
000340
010160
000340
010126
000340

.24

000174
000176
0002C0

000174
000000
000000
000167

001100

=174
00124

001100
001102
001104
001106
001110
001112

177570
177570
177560
177562
177564
177566

;SOFTWARE DISPLAY REG.
sSOFTWARE SWITCH REGISTER
;GO TO START OF PROGRAM

SWR:
177570
LIGHTS:177570
TKCSR:
177560
TKDBR:
177562
TPCSR:
177564
TPDBR:
177566
;PROGRAM (ONTROL

001114
001116
001120
001122
(001124
001126
001130
001132
001134

000000
000000
000000
000000
000000
000000
000000
000000
000000

RTRN:
NEXT:
LOCK:
ICOUNT:
LPCNT:
TSINO:
PASCNT:
ERRCNT:
LSTERR:

ggg

877

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

SJINDIRECT POINTERS

ggz

867
868
89
870
871
872
873
874
875
876

JPOWER FAIL HANDLER
;SERVICE AT LEVEL 7
sERROR HANDLER
JSERVICE AT LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
JSERVICE AT LEVEL 7

.=1100

gzg

855
856
857
858
859
860
861
862
862

.PFAIL
340
CHLT
340
. TRPSRV
340

;SOF TWARE SWITCH REGISTER

840
841
842
843

846
87
848
849
850
gg}

SEQ 0018

s STANDARD [NTERRUPT VECTORS

g%z
835
836
837
ggg

15:52

;SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER
;TELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER
PARAMFTERS

0
O
0
O
O
0
0
O
0O

2 SCOPE ADDRESS FOR LOOP ON TEST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
;NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
JNUMBER OF ITEREATIONS COMPLETED
JNUMBER OF TEST IN PROGRESS
sNUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
;PC OF LAST ERROR CALL

;PROGRAM VARIAB_ES

001136
001140
001142
001144
001146
001150
001152
00115
001156
001160

001162

000020
000000
000000
000000
000000
000000
009000
000000
000000
000000

000000

HOLD:
SHIFT:
COUNT:
TEMP1:
TEMP2:
TEMP3:
TEMPL:
TEMPS:
SAVRO:
SAVR1:

SAVRZ2:

20
0
O
O
0
0
0
0
0
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 STORAGF
s TEMPORARY STORAGE
; TEMPORARY STORAGE
;RO STORAGE
JR1 STORAGE

JRe STORAGE

SENT

878
379
880
881
882

001164
001166
001170
001172
001174

Q00000
000000
000000
000000
000000

15:52

PAGE 22

SAVR3:

SAVRS:

SAVRS:
SAVSP:

SAVF(:

OQOOOO

(ZDUF=D MACY11 30A(1052)
21-NOV-78
18-JuL-78 15:59
CIDUFD.PI

SEQ 0019

;R3 STORAGE

;R4

STORAGE

;RS STORAGE

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE

30A(1052)

883
884
885
886
887
888
889
890

001176
001177
001200
00120
001202
001203

377
377
377
377
000
377

893

001204

000000

891
892

894
895
896
897
898
899
900
901
902
903

21-NOv-78

18-JUL~78 15:59

001206
001210
001212
001214
001216

000000
000000
000000
000000
000000

001220

000000

15:52

PAGE 23

SEQ 0020

; PROGRAM CONVERSATIONAL
377
BYTE
BYTE
377
.BYTE
377
.BYTE
377

SYNCNC:

SEXMIT:
SEREC:
OPT(LR:
MULTD:

BYTE
BYTE

:
JMRBY

LEVEN

BASEADD:

0
377

;PROGRAM MULTIPLE

ACTREG:

QOOOOCO

CZDUF=D MACY11

CZ2DUFD.P11

ROTADD:

KEEPADD:

LASTADD:
BASE]V:

KEEP]V:

PARAME TERS

J# OF

SYNC

CHARS REQ'D FOR SYNC'ZATION

SSEC XMIT JUMPER ''IN'*
:SEC REC JUMPER "IN
:0PTIONAL JUMPER CLR "'IN'’
:NO MULTIPLE DEVICE FLAG
.
:EXTERNAL MODEM BYPASS JUMPER "IN

DEVICE PARAMETERS
;PROG CONTROLLED

1ST DEVICE ADDR

;SAVED 1ST DEVICE ADDR
JLAST DEVICE RXCSR ADDR
;PROG CONTROLLED

;ACTIVE REGISTER

,,,MODIFY

:SAVED INTR VECTOR

THIS

sLOCATION TC DISQUALIFY OR QUALIFY

;DEVICES (1= RUN,,,0= DON'T RUN)
;ROTATING POINTER FOR A(TREG..POINTS
2TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

"tt‘.tttfitlttQtt’.tttQ‘t'ttfi‘..'tfi'ttfi"

* 2"/

9GS5
N6
9G?
903
909

910
911
912

913

914
915

001222
001224
001226
001230

001232
001234

001236
001240
001242

000000
000000
000000
000000

THESE

HOLDO: O
HOLD1:0
COUNT1:0

TABLE

000002
003006

925
26
927
928
929
930
921
932
933
934
935
936
937
938

FOR

THE STATUS MAP PRINT OUT
; FLAGS FOR STATUS MAP PRINT QUT

;
;s
;

: 2

3006

000000

(SSP)
HOLDS
RO IN STATUS MAP PRINT
R1 ETC.
FOR COUNTING 3 WORDS

; FOR CONVRT ROUTINE

03006

000000
003006

.'ttttt'tttt'ttt'iittt'tfi'.ittttfi

916

917
918
919
920
921
922
923
924

ARE STORAGE
FLAG:0

;PROGRAM (ONTROL FLAGS
001244
01245
001246
001247

000
000
000
000

INIFLG:
STFLG:
ERRFLG:
LOKFLG:

.BYTE
.BYTE
BYTE
BYTE

0
0
0
0

;PROGRAM INITIALIZATION FLAG
;TEST START FLAG
JERROR OCCURED FLAG
JLOCK ON CURRENT TEST FLAG

.EVEN
JANERARS

001300
001301
001302
001303
001304
001305

001300
000001
000001
000001
000001
000001
(0092001

STATUS

.~1300

STATUS: NOSYNC:
MITSEX:

.BLKR 1
.BLkR 1
RESEC: .BLAB i
CLROPT: .BLKB 1
DMULT: .BLKB 1
BYJMR: .BLKB 1

; MULTIPLE
001306

000001

ADDBASE:

.RLKw

MAP

RARARP
N

. SYNC (HARS
JXMIT JUMPER
JREC SEC JUMPER

JOPTIONAL JUMPER
JMULTIPLE DEVICE FLAG
;EXTERNAL MODEM

DEVICE PARAMETERS
!

JPROG CONTROLLED

1ST

DEVICE

ADDR

(7DUF=D MACY11 30A(1052)
21-NOV-78
(ZDUFD.PI1
18-.UL-78 15:59

939
940
341
942
943
944
945
946
947
948
%9
950
951
952
953
954
955
956
957
958
959
960
961

gg%

001310
001312
001314
001316
001320
001322
001324
001326
001330
001332
001334
001336
001340
001342
001344
001346
001350
001352
001354
001356
001360
001362
001364

15:52

000001
000001
000007
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001

IVKEEP:

976

975

977
978
979

98C
981
982
983
984
985
986
987
988
989
990
991
992
993
994

sSAVED 1ST DEVICE ADDR
JLAST DEVICE
RXCSR
ADDR
JPROG CONTROLLED IV

.BLKW 1

;SAVED INTR VECTOR

.BLKW 1
.BLKW 1
.BLKW 1

JACTIVE REGISTER
JROTATING POINTER
;DUTT PRIORITY

RIVDU:
.BLKW 1
TIVDU:
.BLKW 1
TISDU:
.BLKW 1
RISDU:
.BLKW 1
L1ESS: .BLKW 1
CSRRX: .BLKW 1
CSRHRX: .BLKW 1

BUFRXD: .BLKW 1
BUFHRXD: .BLKW 1

(SRPAR: .BLKW
CSRHPAR: .BLKW
CSRTX: .BLkW 1
CSRHTX: .BLKW 1
BUFTXD: .BLKW 1

;DUTT REC INTR VECTOR
;DUTT XMIT INTR VECTOR
sDUTT XMIT INTR STATUS
;DUTT
REC INTR STATUS
;PRIORITY TO ALLOW INTR
; DEFAULT OR ALTERED PARAMETERS
;
1
1

BUFHTXD: .BLKW 1
BASEDU: .BLKW 1
.EVEN

;DUT1 RXCSR BASE ADDR

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

JIN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS

001366

.TRPTAR:

".tltlk.itt*t*t!tt*'itfit."t"*t*l‘ttlQttfifit*fitfiittttt*ttittttitttittfifiitfi.

970

971
972
973
974

SEQ 0021

REGACT:
ADDROT:
PRTDU:

ggg

968

ADDKEEP: .Bl KW 1
ADDLAST: .BLKW 1
IVBASE: .BLKW 1

964
965

PAGE 24

"'!t'ttit*'fit't‘t**'*'ttfi"tt".t*flQ.‘fifi*ttltifittttfitfitt'*.'ititttt'Qttttt

001370

104400
006712
104401
007076

.SCOP1

C01372

007116

.TYPE

001366

001374

001376

001400
001402

001404
001406

001410
001412

001474

104402

104403
007156
104404
007274
104405
007326
104406
007542
104407

007602

104410
007634
104411
007640
104412
010060
104413
010574

SCOPE
.SCOPE

. INSTR

. INSTER

.PARAM
. SAVOS

.RESO5
. CONVRT

« CNVRT
LSETFLG

.(KSWR

TRAP+0

JCALL

TO SCOPE LOOP AND ITERATION HANDLER

SCOP1-TRAP+1

;CALL

TO LOOP ON CURRENT DATA HANDLER

TYPE-TRAP+?

;CALL

TO TELETYPE OUTPUT ROUTINE

INSTR=TRAP+3

;CALL

TO ASCII

INSTER TRAP+4

;CALL

TO INPUT ERROR HAND_ER

PARAM-TRAP+5

sCALL

TO NUMERICAL

SAVO5-TRAP+6

sCALL

TO REGISTER SAVE ROUTINE

RESO5-TRAP+7

sCALL

TO REGISTER RESTORE ROUTINE

CONVRT=TRAF+10

;CALL

TO DATA QuUTPUT ROUTINE

CNVRT=TRAP+11

sCALL

TO DATA OUTPUT ROUTINE WITHOUT CR/_F

SETFLG-TRAP+12

;CALL

TO FLAG SET ROUTINE

(KSWR=TRA"+13

;CALL

TO ALLOW SWREG TO BE LOADED FROM TTy

STRING INPUT ROUTINE

DATA INPUT ROUTINE

CZOUF-D MACY11

1050

21-NOV-78

15:52

104414
010650

PAGE 25

CNTL

SEQ 0022

CNTLU-TRAP+14

;CALL

TO ALLOW LOADING

SWREG FROM TTY

"i*ttttttttttifittfittfitfifittit.kttttt.ttttifitt**'t'ttttttfifitttt.t.ttttttt'ti
"'fi'fi*\'tfifi*i*tfitfi*'fi**‘t"t"tlt‘l’fittttttttttfiitfitttfiti'tfi.tt'tittti'ttttt

;PROGRAM INITIALIZATION

;LOCK OUT INTERRUPTS
:SET UP PROCESSOR STA(CK
.SET UP POWER FAIL VECTOR
;CLEAR PROGRAM (ONTROL FLAGS AND COUNTS

sTYPE

001420
001426
001432
001440
001444
001450
001454
001460
001464

001470
001476
001504
001510
001512
001516
001522
001530
001536
001542
001546
001554
001562
001564
001566
01570
001576
001604
001610
001614
001620
001622
001630
001632

012767
012706
012737
005067

000340
001700
010430
177460

005067

177454

105067

105767
001004
104402
105167
012767

177534

001402
000407

022626
0127267
012767
012637
012637
005737
001005
022767
061001

000024

010750
177522

LPCNT
STFLG
PASCNT
ERRFLG
ERRCNT
LSTERR
#1,TSTNO
#.START ,RTRN

CLEAR # OF ITERATION COMPLETED LOCATION
;CLEAR START FLAG
;CLEAR PASS COUNT
;CLEAR ERROR FLAG
;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE

INIFLG

;TESTING STARTS
JHAS INITIALIZATION BcEN PERFORMED

JMTITLE

JTYPE

MOV
MOV
MOV
MOV

#DSWR, SWR
#DLIGHTS,L IGHTS
H6,~(SP)
a#4 ,-(SP

;RELOAD HARDWARE SWITCH REGISTER INTO POINTER
;RELOAD HARDWARE DISPLAY REGISTER INTO POINTER
; SAVE VECTORS

(MP

#-1,3SWR

CLR
CLRB
CLR
CLRB
CLR
CLR
MOV
MOV

000004

ONCE:

ONCE

comMs

INIFLG

MOV

177316

#64S

BEQ

23
¥
17730c
65%:
177276

66%:

1772590

B8R

66%

MP
MOV
MOV

(SP)+,(SP)+
#SWREG, SWR

#DISPREG,L IGHTS

MOV
MOV

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

TST
BNE

el
MAP

?zg Y

MAP

#SWREG, SWR

;SET UP POWER FAIL VECTOR

TITLE

MESSAGE

;IF NOT SET FLAG AND DO

;SET UP FOR TIMEOUT

JREFERENCE

65$

(MP

104414

N .PFAIL

BNE

TYPE

000004
001566
177777

000176

sLOCK OUT INTERRUPTS
JSET UP STACK

TSTB

177350
177344

000176
000174
000004
000006
000042

#340,PS
#STACK, SP

MOv

177430
177410

177570
177570

000006

TITLE MESSAGE

.START: MOV
MOV

177566

177446
177444
000001
001420

012767
013746
013746
012737
022777

176350

177575

005067
005067
012767
012767

HARDWARE

SWITCH REGISTER

;ADJUST STACK
JPOINT TO SOF TWARE SWIT(H REG
;JPOINT TO SOFT DISPLAY REG

JRESTORE VECTORS
;UNDER MONITOR

;IS SWREG USED
.

BRANCH TO (HECK FOR STATUS MAP

"t.l"tittttti'fi't'fi"ti"tt.t.fi.fi!'fi'.tiltttt'tt.tt'tttt’.

; CODE FOR STATUS MAP
; CODE ADDELD FOR REV. £ OF DIAGNOSTICS

;

;
001634
001642

32777

O 00 NO NS

NNy —

RE RERRERR

1040

001416

30A(1052)

18-JUL-78 15:59

1537

§388382888838
828

W
W
S
U
S
S
R
G
S

NNV
W —=OVoON

U
S
U
U

Qs Siear Ginarur Gy Giaur Sons

i G
[

COOCOOOO0O0O00O

phasr o

CZDUFD.P11

000200

177236

MAP:

IF SWO7- 1

,THEN YOU USE THE STATUS MAP PREVIOUSLY

SETUP, OR REENTER QUESTIONING ROUTINE

BIT #SW07,

aSWR

P MAP VALUES FOR PROGRAM

BEQ $67

NOW SET

;IS SW07=1?

IF NOT, GO TO TEST FOR SwWOO 1

THESE VALUES FROM THE STATUS MAP Wwill BE USED IN THE

CZDUF=D MACY'1 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL=78 15:59
1051
1052
1053
1054

001644
001652
001660

116767
116767
116767

1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071

001710
001716
001724
001732
001740
001746
001754
001762
001770
001776
002004
002012
002020
002026

016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
013737

177312
001324

016767
016767
016767
016767
016767

177272
177266
177262
177256
177252

1055
1056
1057

1072

001666
001674
001702

002034

1073
1074
1075
1076
1077

002042
002050
002056
002064
002072

1079

002106

1078

1080

002100

002114

116767
116767
116767

016767

016767
016767

016767

177430
177423
177416

177411
177404
177377
177372
177366
177362
177360
177354
177350

177334
177220
177332
1?7332

177320
177314

177324

177246

177242

177236

1081
1082
1083

002122
002130
002136

016767
016767
000167

177232
177226
000466

1085

002142

032777

000001

1088
1089
1090

(02156
002162
002166

005037
012700
012701

1081.

1086
1087

1091

002150
002152

002172

1092

002176

1094
1095

002202
002204

1093

1096

1097
1098
1099
1100
1101
1102

1103

1104
1105
1106

001002
000167

012702

010110

002200

005011

002206

022707

002212
002214
002216
002220
002222
002224

002226

002230
002231
002232

060200
060201

002771
104403
011024
104405
160000
167776

15:52

177305
177300
177273

MOVB CLROPT
MOVB DMULT
MOVB BYJMR

177266
177262
177256
177254
177250
177244
177230
177214
011116
011112
011106
011102
010410
012434

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

010530

MOV

011020
011074
011010
011004
011000

ADDBASE
ADDKEEP
ADDLAST
IVKEEP
REGACT
ADDROT
[VBASE,
KEEPADD
RIVDU,
RISDJ,
TIVDU.
TISDU.
L1ESS.
a#PRTDU,

THIS
PROGRAM.
»SYNCNO
LSEXMIT
,SEREC
L,OPTCLR
"MULTD
,JMRBY
"BASEADD
"KEEPADD
"LASTADD
"KEEPIV
LACTREG
LROTADD
BASE]V
. BASEADD
DURIV
DURIS

DUTIV
DUTIS

LESSI
a#DUPRT

BASEDU, DUBASE

MOV CSRRX,
RXCSR
MOV CSRHRX,
HRXCSR
MOV
BUFRXD, RXDBUF
MOV
BUFHRXD ,
MOV
CSRPAR,

010774

MOV

CSRHPAR,

010764

MOV

CSRHTX,

010770

MOV

010760
010754

CSRTX,

TXCSR

MOV BUF TXD,
MOV BUFHTXD,
JMP .BEGIN

TXDBUF
HTXDBUF

BIT

LOSWR

.
;D
*

BASE

:
;
:
*
*
;

REC
REC

SYNC CHAR
XMIT
JUMPER
SEC REC JUMPER

;OPTIONAL JUMPER
*MULTIPLE DEVICE
JEXTERNAL MODEM
*PROG 1ST DEVICE ADDR
* SAVED 1ST DEVICE ADDR
* LAST DEVICE RXCSR ADDR
: SAVED INTR VECTOR
JACTIVE REGISTER
;ROTATING POINTER

INTR VECTOR
;RELOAD BASEADD
INTR VECTOR
INTR STATUS

XMIT INTR VECTOR
XMIT INTR STATUS

PRIORITY TO ALLOW INTR
PRIORITY RELOADED

HRXDBUF
PAR(CSR

HPARC SR

HTXCSR
:BRANCH TO BEGIN TESTING

.'fitttttttttttttltttttttt'ttttt!ttttttttt.tttt'ttttt!tttt

176730

000452

001222
000300
000302

$67:

1%:

000004

2%:

001000

(00334

SEQ 0023

. OPERATION OF
MOVB NOSYNC
MOVB M]TSEX
MOVB RESEC

177324
177317
177312

BNE
MP

*7¢746

BYTE
BYTE

#SW00

1%
.BEGIN

CLR o#FLAG
MOV
#300,R0
MOV
#302.R1

MOV

CLR

*
:

RESELECT VECTOR $ CONTROL REG?

BRANCH
TO QUESTIONING
GO TO
LOAD STATUS MAP ETC.

¥4 R
(RT)

R2.RO
R2.R1

BLT
INSTR
MRE GAD
PARAM
160000
167776

#1000,R1

;END AT LOCATION 776
;OUTPUT MESSAGE & GETTM
*ME SSAGE
;CONVERT STRING
TLOW LIMIT
THIGH LIMIT

DUBASE

1
1
MOV

. CLEAR FLAG SO STATUS MAP PRINTS OQuT
JRESTORE VECTOR AREA TO TRAPCATCHER
*START AT LOCATION 300

R1. (RO)

ADD
ADD

CMP

012572

001
001
016767

PAGE 26

INPUT

*STORE AT THIS LOCATION
DUBASE ,KEEPADD

;CAvE

*MASK
JHOW MANY

TIMES ¢ 2

STRING

CZDUF=-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL~78 15:59
1107
1108

002240
002244

004767
016767

1110
1111
1112

002254
002256
002260

011002
104405
000300

002266
002267
002270
002276
002304
002306
002310
002312
002314

001
004
016767
016767
104403
011105
104412
001202
105767

002320
002322
002326
002332
002336
002336
002340
002342
002344
002346
002350
002352
002353

100406
005067
005067
000167

002354
002362
002366
002374
002376
002402
002404
002412
002420
002422

012767
005067
056767
000241
006167
103421
062767
026767
101362
056767

1109

1113
1114

1115
1116
1117
1118
1119
11720
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142

1143
1144
1145
1146
1147
1148

1149

1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162

002252

002262
002264

002430
002436
002444
002446
002454
002456
002460
002462
002464
002466
002470
002471

104403

010174
176736

15:52

JSR
MoV

176732

INSTR

SEQ 0024
PC ,DUADDR
KEEPADD ,BASEADD ;RESTORE FOR ROTATION

JOUTPUT MESSAGE & GET

MVECTO
PARAM
300

000776
013114

;MESSAGE
. CONVERT STRING
JLOW LIMIT

176662

776
DUR]V
1
4
MOV
MOV
INSTR
MULT
SETFLG
MULTD
TSTB

MULTD

176670
176666
000140

B8MI
(LR
CLR
JMP

8RR
ACTREG
ROTADD
OUTMUL

010620
010612

176716
176706

000001
176630
176626

BYTE
.BYTE

BARB:

104403
011164
104405
160000
167776
001210
001
oM

012767
016767
000414
016767
104403
011347
104405
169000
167776
001210
001
001

PAGE 27

176636
176622

2%:

176616
000010
176572

176572
176564

176572

176566

000001
176544

176562
17650

&%:

176534

176530

3%:

BYTE
BYTE

MOV
CLR
8IS
(LC
ROL
B8CS
ADD
CMP
BH!
BIS

STRING

JHIGH LIMIT
JSTORE AT THIS LOCATION

DURIV,KEEPIV
DURIV,BASEIV

INSTR
MLASTD
PARAM
160000
167776
LASTADD
RYTE
1
.BYTE
1
. THE FOLLOWING ROUTINE
1%:

INPUT

JMASK
JHOW MANY TIMES + 2

:SAVE
JSET UP FOR ROTATION
sOUTPUT MESSAGE & GET INPUT STRING
. ME SSAGE
cSET FLAG BASED UPON INPUT STRING
:THIS FLAG
JARE THERE MULTIPLE DEVICES
JON THE SYSTEM ?
JYES,ASK NEXT QUESTION
;JUMP AROUND NEXT CUESTION

;OUTPUT MESSAGE & GET INPUT STRING
+ME SSAGE
;CONVERT STRING
JLOW LIMIT
JHIGH LIMIT
;STORE AT THIS LOCATION
. MASK
JHOW MANY TIMES + 2
SETS UP ACTREG FOR THE FIRST TIME

#1,ROTADD
JSET UP POINTER
ACTREG
;CLR ACTIVE REGISTER
ROTADD ,ACTREG
JMAKE THIS DEVICE ACTIVE

ROTADD
;SET UP POINTER
3s
JARE YOU OUT OF RANGE ?
#10 ,BASEADD
JSET UP BASE ADDRESS
LASTADD ,BASEADD ;IS THIS THE LAST DEVICE ?
’$
sNO DO [T AGAIN
ROTADD ,ACTREG
;THIS ASSUMES THAT THERE ARE AT
JLEAST

TWO DEVICES WHEN YOU ANSWER

YES

sMULTIPLE DEVICE QUESTION
MOV
#1 ,ROTADD
;SET UP FOR LATER USE [N END Or PASS ROUTINE
MOV
KEEPADD ,BASEADD ;DITTO
B8R
OUTMUL
;CONTINUE QUESTIONS
MoV
KEEPADD ,BASEADD ;RESTORE
INSTR
‘
;OUTPUT MESSAGE & GET [NPUT STRING
MRANGE
- ME SSAGE
PARAM
. CONVERT STRING
160000
JLOW LIMIT
167776
JHIGH LIMIT
LASTADD
JSTORE AT THIS LOCATION
1
s MASK
1
JHOW MANY TIMES + 2

00 N NNNNNNNNN

002472
002476
002476
002500
002502
002504
002506
002510
002512
002514

002520
002522
002524

0(7644

007454

002552

112767

177777

176416

W
N

000061

O
O 0P 0P

s CONVERT STRING

+MESSAGE

4
7
DUPRT

JLOW LIMIT
cHIGH LIMIT
;STORE AT THIS LOCATION

1
JSR

JHOW MANY TIMES + 2

JMASK

PC,DULEV

THE CHARACTER IS '2'' SET THE FLAG

;OUTPUT MESSAGE & GET INPUT STRING
JMESSAGE

#'7, INBUF

SIS IT 1t
2

1%
2YNCNO
$
#'2, INBUF
2%
#-1,SYNCNO

B8R

;000

JIS IT '
2
;377

INSTER

JRETRY

NOP
INSTR
MWIREG
SETFLG
SEXMIT
INSTR

sOUTPUT MESSAGE
sMESSAGE
;SET FLAG BASED
;THIS FLAG
;OUTPUT MESSAGE
sMESSAGE
;SET FLAG BASED
:THIS FLAG
;OUTPUT MESSAGE

MWIRES

SETFLG
SEREC
INSTR
MWIRES
SETFLG
OPTCLR
INSTR

—

&
~

(o]

—

001203

—

002626

~nN
o
nN
F<Y

Wh
-

lolelal

SIS

PARAM

BNE
CLRB
BR
CMPB
BNE
MOVB

R
e

ONO
N W= O

;OUTPUT MESSAGE & GET INPUT STRING

C(MPS

176436

e
S
S

;00 IT AGAIN

INSTR

MSYNC

007472

INSTR

e
L
e
B

PR
RO Y
nD

2
=
b
D
)
bk

JMP

;COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT
;BUFFER TO THE CHARACTERS '"1'" AND '2°'',
;IF THE CHARACTER IS 'TM'' CLEAR THE FLAG

000062

T YO

.BYTE
.BYTE

I
R S W

SEQ 0025

MLEVEL

2%:

SLSLNT
N ST, 1a0 1AV a0

PAGE 28

OUTMUL:

002542

YRR
U Yo

104403
011633
104405
000004
000007
012434
000
001
004767

177656

104403
011660
122767
001003
105067
2
122767

002534

. X

000167

15:52

;IF

I W

WS WY WP YO

s (S W

CZDUF-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JyUL-78 15:59

012767

sME SSAGE

JMRBY

;THIS FLAG

SETFLG

000340

175140

LBEGIN: MOV
;

002636
002644

0327
0011

000200

176234

& GET INPUT STRING
UPON INPUT STRING

& GET INPUT STRING

;SET FLAG BASED UPON INPUT STRING

START AND RESTART

RNRRNR

;THE

UPON INPUT STRING

sSET FLAG BASED UPON INPUT STRING
;THIS FLAG
;OUTPUT MESSAGE & GET INPUT STRING

MEXTJ

JTEST

002630

sME SSAGE

& GET INPUT STRING

#340,PS

LOAD

STATUS

MAP

sLOCK OQUT INTERRUPTS

wasxanx

VALUES NOW BEING LOADED

INTO THE

STATUS MAP WILL BE

; USED IN THIS PROGRAM AND
WILL BE
PASSED
TO ANY
:OTHER DU11 PROGRAMS LOADED IMMEDIATELY FOLLOWING THIS PROG.

gé; :g:g?

,dSWR

SWO07 SET

YES BRANCH

—

[aS]

176324
176317
176312
176305

b —

CZDUF-D MACY11 30A(1052)
21-NOv-78
CZDUFD.P11
18-JuL-78 15:59

g
N

e e
G — e
S
U
N
U
P

002734
016767
016767
013737
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767
016767

PAGE 29

176424

MOVB
MOVB
MOVB
MOVB

176417
176412
176405
176400
176373
176366
176362
176356
176354
176344

176326
176326
176314
176310
176306
176326
176274
176270
176264
176260

176254
176250
176244
176249
176234
*76230

;

s SYNC CHARS
JXMIT JUMPER
;SEC REC JUMPER
;OPTIONAL JUMPER

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

;EXTERNAL MODEM
7PROG CONTROLLED 1ST ADDR
;SAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
:SAVED INTR VECTOR
; RELOAD BASE INTR VECTCR
JACTIVE REGISTER
JROTATING POINTER
:DU11 PRIORITY
;REC INTR VECTOR
; REC INTR STATUS
; XMIT INTR
VECTOR
; XMIT
INTR
STATUS
; PRIORITY TO ALLOW INTR
JRXCSR BASE ADDRESS

LDOMULT

¢ MULTIPLE DEVICES

THE

FOLLOWING CODE WILL

THE CONVERSATIONALLY SET JUMPER

SETTINGS FROM THE STATUS MAP
ON THE FIRST PASS OF

ed wmd el i

THIS DIAGNOSTIC OR
JUST AFTER THE QUESTIONING
AND ANSWERING .

) T
)

:t!itQttQtttt'fittt.tttfifi""t.tt.ttt..i

000116
012172
000001
176042

~NOSYNC
JMITSEX
+RESEC
.CLROPT

SRR RARARARRRANARANANRA
AR A AR AR RN RR

001222

—

SYNCNO
SEXMIT
SEREC
OPT(CLR

MOVB JMRBY
MOV BASEADD
MOV KEEPADD
MOV LASTADD
MOV KEEPIV
MOV BASEIV
MOV ACTREG
MOV ROTADD
MOV a#DUPRT
MOV DURIV
MOV DURIS
MOV DUTIV
MOV DUTIS
MOV LESS1
MOV DUBASE
MOV RXCSR,
MOV HRXCSR,
MOV RXDBUF,
MOV HRXDBUF
,
MOV PAR(CSR,
MOV HPAR(SR,
MOV TXCSR,
MOV HTX(SR,
MOV TXDBUF,
MOV HTXDBUF,

176342
176336
001324

010002
007776
007772
007766
LN7762

SEQ 0026

MOVB MULTD

b — -—

SIS 1SS IAVTAN LWL V] S 1,],
[AV1aV1,V]
U7, §)
RNV PN
N2
1Y,V|(WP 2 S S S S SO
~ SN
OO\
NN ANV
puy
WA = OO0
N
NI
[@XVe]e
. oNTe SV, P J V]=00

d e

) i

W
o

d e

BEIFHRURLEBRIR

D e

176300

15:52

176040

000003
000002
001300

000002
001306
000002
176006

HEREU:

TST a#FLAG

TYPE

BEQ
SETFG
JMP THRU

, MSTATUS

ADD #1. NFLAG

001222

MOV RO, HOLDO
MOV R1. HOLD1

176034
FILBUF:

*
©

TEST

1ST PASS

IF FIRST PASS SET FLAG/PRINT
AROUND IF PASS > 1
PRINT

'STATUS MAP'

* SET FLAG ON 1ST PASS
;

SAVE RO
SAVE R1

MOV #3. COUNT1

*COUNTER FOR WORDS PRINTED

MOV R1,

MOv #BUFF1, RO
MOV #STATUS, R1
(RO)+

;

(BUFF1)=STATUS

LOAD BUFF

ETC.

AS ABOVE

ADD #2° ,R1

MC' #BUFF1 RO
MOV RO , TABLE+4

; LOAD FOR PRINT QUT
, LOAD ADDRESS TC PRINT

(MP RT, WSTATUS+6
BNE FILBUF

PREPARE STATUS ADDRESS

; CHECK IF 3 WORDS LOADED
. BACK
TO LOAD NEXT ADDRESS

CZDUF-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL-78 15:59

012067
104410

15:52

PAGE 30

176006

SEQ 0027
MOV (RO)+, TABLE+10
CONVRT

TABLE

TYPE, MCRLF

DEC
BNE
MOV
MOV

01€700
016701

COUNTT
UP
HOLDO,RO
HOLD1, R1

. LOAD CONTENTS

PRINT ADDRESS/CONTENTS PAIR

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

;*t*tt*tfittt*t*fittttttttfitttttttt

012706
005737

001407
016767
016767
000444
032777
001416
104403
011570

R 558 SLUFI LS

001056
105767

W
NI W

00~

S
W
T W
P
T W
WY

016767
032777
001410

175702

MOV
TST
BNE

TSTB

003564
003560

003464
003460

000004

175552

BEQ

MOV
MOV

5¢%:

175703

000240
000240

003420
003414

003502
003476
000002

003402
003376
175472

BR
BIT
BEQ
INSTR
MLOCK
SETFLG
LOKFLG
TSTR
BEQ

MOV
MOV

#STACK,
SP

a6l

§s

BRW,TTST
gax,rrsr+2
$

#BIT2,aSwR
1%

(9,1

003424

003426

104402

000177

;IF NO,TEST FOR
;RESTORE NORMAL
;DITTO
;JUMP AROUND IF
JCHECK FOR LOCK

LOCK ON TEST
SCOPE LOOP

YES
ON TEST

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

LOKFLG
1%

ANOP,TTST

ANOP,TTST+?

1%:

BRW,TTST

2%:

§§w01.aswn

BRX,TTST+2

104403

104405
003446
006102
001114
001
001
000403
012767

;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL

MULTD
;DON'T ALLOW LOCK ON TEST IF RUNNING
;MULTIPLE DEVICES

;THIS FLAG

;IS LOCK ON TEST OPTION SELECTED

;SET UP TO LOCK
cLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

;IF SWO01=1, GET STARTING P(

;OUTPUT MESSAGE & GET INPUT STRING
sMESSAGE
; CONVERT STRING
JLOW LIMIT

011555

WN—=O
NN
OV

THRU:

104412

001247
105767
001407
012767
012767
000406
016767

W
W
(T U
W
WU
TR
o
e
R
e

WWWWINININNNINWN
A b ~d D b
b —d b b b

001100
000042

JHIGH LIMIT

.BYTE
.BYTE

00344¢
011551
175446

175456

3%:
4%:

4%
#TST1,RTRN
MR

SRTRN

;STORE AT THIS LOCATION
s MASK
JHOW MANY TIMES + 2
;START AT TEST 1

JTYPE

;START

TESTING

CZDUF=-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL~78 15:59

15:52

PAGE 31

SEQ 0028
;s THIS TEST VERIFYS MATCH DETECT & DATA RDY

;sFLAGS FOR EVERY POSSIBLE MATCH (CHARACTER
;:BY OBSERVING RECACT BIT
JoIT WILL TAKE TWO SYNC « CHARACTERS TO GET RECACT BIT

DEPENDENT ON MONITOR

.......ccvuee.

;:IF ONE SYNC STRAP IS SELECTED ,IT WILL
::EgggR}AKE ONE SYNC CHARACTER BEFORE RECACT TO
;:MODE: SYNC INTERNAL
;oLENGTH: FIVE
;:SYNC CHARACTER FOR MATCH: B/C
;sTHIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS
1334
1335
1336
1337
1338
1339
134C
1341

003446
003454
003462
003470
Cu3476

012767
012767
012767
052777
016703

000001
003774
003576
000400
007372

003502
003506

012704
012777

030000
004020

007370

1343
1344
1345
1366
1347

003520

052777

000020

007342

052777
042777

020000
020000

007350
007342

052777

020000

007330
007322
007300

1562

}gzg

1350

1351
1352

1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365

003514

003526
003534

003542

003546

003554
003562

003570
003572
003574
003574
003576
003602
003606
003614
003620
003622
003624

010477

110477

042777
032777
001401
104000

000404

007360

007342

020000
004000

175652
175434
175430
007406

007276
007302
000002
007264

175326

000005

175306

1368
1369
1370
1371

052777
042777
005367
001367
005367

020000
020000
175266

007244
007236

1374
1375
1376

003662
003666
003670

105767
100752
032777

175310

003660

001403

;SAVE

BIS
MOV

AMRESET ,@TXCSR
RXDBUF ,R3

;MASTER RESET
;SET UP FOR ERROR MESSAGE

MOV

W#SYNINT
!FIVE INOPAR,R4

MOV
MOV
8IS

BIS

NTST2 NEXT
#3%,L0CK

THIS

;GO TO THIS TEST WHEN THRUL
;SET UP FOR SCOPE LOOP

;CREATE PARAMETERS

#MINT ! SEND,aTXCSR
;SET SEND & MAINT
R4 ,@PARCSR
:LOAD CSR
#SYNSCH,aRXCSR
;SET SYNC SEARCH

#CLK,aTXCSR

BIS

H#CLK,aTXCSR

HLT

JRECACT

BR
MOV
MOVB
Mov

4%
R4 ,@PARCSR
R4, aTXDBUF
#2,COUNT

BIT
BEQ

A Y

5%:

7%:

#CLK,aTXCSR

BIC

;POKE CLK UP

ggECACT.aRXCSR

;POKE CLK UP

;POKE CLK DOUWN
JRECACT ?

SHOULD NOT BE

aTXCSR

HLT

sDNA SHOULD NOT BE

;DNA ?

;BR IF

SET

;LOAD PARCSR WITH PARAMETERS
sLOAD SYNC CHAR
;¥ OF SYNC (CHARS

TST

BPL

NOT SET

SET OR....

;IT SHOULD BE CLEARED FROM PREVIOUS READ

MOV

#5,SHIFT

BIS
BIC
DEC

#CLK,aTXCSR
#CLK,aTXCSR
SHiFT
.# OF

BNE
DEC
BEQ

7%
gQUNT

# OF

:# OF

;POKE
.POKE
SHIFTS

SHIFTS

(LK UP
CLK DOWN

SYNC (HARS

JTEST SYNCNG TO SEE HOW MANY SYNC CHARACTERS NEEDED
TSTR

00717¢

INTER

BIC
#CLK ,a@TXCSR
;POKE CLK DOWN
MOvVB
R4 ,’TXDBUF
;LOAD DATA (HARA(TER
;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION

175262

004000

#1,TSTNO

MOV
MOV

JPOKE CLK TO GET INTO SYNCRONIZATION
;BOTH THE LOGIC & RECEIVER

6%:

012767

}g;%

1%:

2%:

010477
110477
012767
005777
100001
104000

MoV

;SET SYNC INTERNAL,FIVE
,NO PARITY,0 SYNC REGISTER

003624
003632
003632
003640
003646
003652
003654

1366
1367

TST1:

8%:

8M]

8I7

SYNCNO

5¢

; TWO SYNC (HARACTERS..

#RECACT ,@RXCSR

;RECACT

003676
003700
003702

001001

003702
003706
003710
003714
003716
003720
003722

017701
010400
04270C
020001
001601

L8 O BELEE

D
D
DD
d
P
d
—d

33 &

age

1377
1378
1379
1380
D

CZDUF-D MACY11 30A(1052)
21-NOv-78
CZDUFD.P11
18-JUL-78 15:59

003722

15:52

104000

PAGE

9%:

007166

BNE
HLT

MOV

177400

BIC
MP
BEQ

104002

10%:

104401

HLT

SEQ 0029
9%

;RECACT FAILED TO SET,POSSIBLE
:THAT THE RECEIVER FAILED
STHE SYNC CHARACTER

BRXDBUF ,R1

TO MATCH

;SAVE ACTUAL

R4 RO

*SAVE EXPECTED

#177400,R0

*CLR UPPER BYTE

?8%R1

;DO THEY COMPARE

:IF RECACT FAILED ALONG WITH THIS

;...1T PROBABLY IS A TRANSMITTER ERROR
;HOWEVER,...IF ONLY THIS FAILED IT
;PROBABLY IS A RECEIVER ERROR

SCOP1

;POKE CLK TO SEE DNA...DNA COMES UP ON THE F]RST

003724
003732
003736
003740
003742

052777
005777
100401

003742
003750
003756
003760
003762
003762
003764
003770
003772

052777
032777
001401

020000
007146

007152

104000

122704

001246

104400

BIS

11%:

000400
000020

007134
007112

CHARACTER

NO CHARACTER

#CLK ,@TXCSR

;POKE

TST

?{éCSR

HLT

;DNA DID NOT ASSERT

IS LOADED

INTO

CLK UP

:DNA?

JSET UP CONDITIONS FOR NEXT SYNC CHARA(CTER MAT(CH

BiS
BIT
BEQ

12%:
000040

THE NEXT

BMI

104000

005204

JBIT OF
s TXDBUF

HLT

AMRESET ,@TXCSR
#SYNSCH,aRXCSR

12%
sSYNC

#L0,R4
1%

;MASTER RESET
;SYNC SEARCH = 0

SEARCH SHCULD BE NCT SET
;1S
;NO

TH!S

THE

LAST

CHARACTER

15:52

PAGE 33

—

puy

CZDUF~D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL~78 15:59

s.THIS TEST VERIFYS MATCH DETECT & DATA RDY

1412
1613

;cFLAGS FOR EVERY POSSIBLE MATCH CHARA(CTER
;:BY OBSERVING RECACT BIT

1414
1415
1416
1417
1418
1419

::IT WILL TAKE TWO SYNC * CHARACTERS TC GET RECACT BIT
Ji%:
DEPENDENT ON MONITOR .............
::1F ONE SYNC STRAP IS SELECTED ,IT WILL
:;ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO
s JASSERT
s sMODE: SYNC INTERNAL

1420
1421
}ZS%

1424
1425
1426
1427

1428

1429
1430
16431
16432
1433
1634
1435
1436
1437
16438
1439
16440

JoLENGTH: SIX
;s SYNC CHARACTER FOR MAT(CH: B/(C
,,THIS TEST USES THE TRANSMITTER AND ‘RECEIVER CHIPS
Q03774
004002
004010
004016

004024

0127046
012777
010477
052777

032000
004020
007032
000020

004054
004062
004070

052777
042777
110477

020000
020000
007014

007022
007014

052777

020000

007002

004074

004150
004752

004146

004152

042777
032777
001401
104000
000404
010477
110477
012767
005777

100001

007014

006750
006754
000002
006736

052777
042777

020000
020000

006776
006710

004200
004202
004206

001367
005367
001403

1464
'465
1466

004210
004214
004216

105767
100752
032777

005367

BIS

4$:
5%:
6%:

174760

174740

7%:

;SAVE

THIS
;GO TO THIS TEST WHEN THRU
;SET UP FOR SCOPE LOOP

RXDBUF ,R3

BI(
BIT
BEQ
HLT

#CLK,aTXCSR
;POKE CLK DOWN
H#RECACT ,aRXCSR
;RECACT ?
2%
JRECACT SHOULD NOT BE SET

#CLK,aTXCSR

sPOKE

B8R
MOV
MOVB
MoV
TST

4%
R4 ,aPARCSR
R4 ,aTXDBUF
#2,COUNT
aTXCSR
;DNA ?

;LOAD PARCSR WITH PARAMETERS
sLOAD SYNC (HAR
;4 OF SYNC CHARS

HLT

;DNA SHOULD NOT BE SET OR....

MOV

#6,SHIFT

BIS
BIC

#CLK,aTXCSR
#CLK,aTXCSR

BNE
DEC
BEQ

7%
COUNT
8$

TSTR
B8M]

SYNCNO
5¢

BPL

DEC

17473

;IT

CLK UP

;BR IF NOT SET

SHOULD BE

SHIFT

CLEARED FROM PREVIOUS READ

M OF

SHIFTS

sPOKE
.POKE

CLK UP
(LK DOwN

,# OF

SHIFTS

;# OF

SYNC (HARS

JTEST SYNCNO TO SEE HOW MANY SYNC (HAKACTERS NEEDED

174762

004000

#2,TSTNO
HTST3 NEXT
#3%,L0CK
AMRESET ,@TXCSR

;MASTER RESET
sSET UP FOR ERROR MESSAGE
;SET SYNC INTERNAL,SIX.NO PARITY,0 SYNC REGISTER
MOV
#SYNINT !'SIX.NOPAR R4
;CREATE PARAMETERS
1%:
MOV
AMINT ! SEND ,@TXCSR
:SET SEND & MAINT INTER
MOV
R4 ,@PARCSR
sLOAD CSR
BIS
#SYNSCH,aRXCSR
;SET SYNC SEARCH
JPOKE CLK TO GET INTO SYNCRONIZATION
;BOTH THE LOGIC & RECEJVER
BIS
#(LK,@TXCSR
;POKE CLK UP
BIC
#CLK ,a@TXCSR
;POKE CLK DOWN
MOVB
R4, aTXDBUF
:LOAD DATA (HARA(TER
;POKE CLK TO GET TRANSMITTER & KRcCEIVER INTO SYNCRONIZATION

7%:
175000

MOV
MOv
MOV
BIS

MOV

’%:

000006

1460
1461
1462

TST2:

006774
006752

012767

004160
004160
004166

004174

020000
004000

007042

104000

1456
1457
1458

1463

175124
175106
175102
007060

004030
004034
004042
004046

1452
1453
1454

1459

000002
004322
004124
000400

007044

004102
004110
004116
004120
004122
004122
004124
(004130
004134
004142

1455

012767
012767
012767
052777

016703

16441
1442
1443
1444
1445
1646
16447
16448
1449
1450

1451

SEQ 0030

006644

8%:

BIT

; TWO SYNC

#RECACT ,@RX(SR

(HARACTERS,.

;RECACT ?

1477

1478

1479
1480

1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

1499

1500

22
22
23

1467
1468
1469
1470
1471
1472
1473
1474
1475
1476

oo~

CZOUF=D MACY11 30A(1052)
21-NOvV-78
CZDUFD.P1
18-JUL~78 15:59

2
2
2
242
004244
004246
004250

15:52

001001
104000

017797
010400
042700
020001
001407

PAGE

006640

BNE

HLT

MOV
MOV

BIC

177400

CMP

10400¢

108

BEQ
HoT

SEQ 0031
9%

:RECACT

FAILED

TO SET,POSSIBLE

;THAT THE RECEIVER FAILED
STHE SYNC CHARACTER
QRXDBUF ,R1
:SAVE ACTUAL
R4 RO
*SAVE EXPECTED

#177400,RO

*CLR UPPER BYTE

RO,R1T

;DO THEY COMPARE ?

:1F

10$

TO MATCH

RECACT

FAILED ALONG WITH

THIS

;...1T PROBABLY IS A TRANSMITTER ERROR
004250

:HOWEVER,...IF

copt

104401

:PROBABLY

ONLY

THIS FAILED

IS A RECEIVER ERROR

.POKE CLK TO SEF DNA...DNA COMES UP ON THE F]RST
JBIT OF

004252
004260

052777
005777
100401
104000

052777
032777
001401
104000

005204
122704

001246
104400

020000
006620

006624

; TXDBUF

8IS
TST

000400
000020

BMI]

HLT

IF NO CHARACTER

#CLK,aTXCSR
aTXCSR

11%

INTO

;POKE CLK UP

;DNA?

;DNA DID NOT

IS LOADED

ASSERT

;SET UP CONDITIONS FOR NEXT SYNC C(HARA(CTER MAT(CH

00660¢
006564

BIS
BIT
12%

000100

THE NEXT CHARACTER

BEQ
HLT

INC
(MPH
BNE

MMRESET ,@TXCSR
#SYNSCH,aRXCSR
12%
JSYNC

;MASTER RESET
;SYNC SEARCH - 0 ?

SEARCH SHCULD BE

R¢
#100,R4
1%

NOT

SET

;1S TH!S THE LAST (HARACTER ?
;NO

15:52

PAGE 35

NN VWA

~o B3R IR O?OOO
NN
NN
=

CZDUF-D MACY11 30A(1052)
21 -Nov-78
CZDUFD P11
18-JuUL~78 15:5

SEQ 0032

;o THIS

TEST VERIFYS MATCH DETECT

DEPENDENT ON MONITOR

& DATA RDY

;cFLAGS FOR EVERY POSSIBLE MAT(CH CHARA(TER
. ;BY OBSERVING RECACT BIT
soIT WILL TAKE TWO SYNC * CHARACTERS TO GET RECACT BIT
.............

AT N AW

::1F ONE SYNC STRAP IS SELECTED ,IT WiLL
"EQEER;AKE ONE SYNC CHARACTER BEFORE RECACT TO
s sMODE: SYNC INTERNAL

;sLENGTH: SEVEN

TVIAT T

NN N

TN NN

LS BB NR A RGN NS 5n UG PR

2sSYNC CHARACTER FOR MAT(CH: B/(
012767
012767
012767
052777
016703

000003
0046590
004452
000400
006516

012704
012777
010477
052777

034000
004020
006504
000020

052777
042777

020000
020000
006466

006474
006466

052777

020000
020000
004000

006454
006446
006424

AN NI VIV

110477

042777

B LR AR

032777
001401

174576
174560
174554

;SET

006514
006466

s
—=O0

110477

012767
005777
100001
104000

FE¥ FERRTR

RER ERESRs

004500
004506

1%:

1764452

000007

174432

052777
042777

020000
020000

006379
006362

176412

032777

;GO TO THIS TEST WHEN THRU

#3%,L0CK

;SET UP FOR SCOPE LOOP

MOV

R4 ,a@PARCSR

JLOAD (SR

BIS

#SYNSCH,aRXCSR

BIS
8IC
MOVB

#CLK,aTXCSR
#CLK ,aTXCSR
R4 ,aTXDBUF

JPOKE CLK UP
JPOKE CLK DOWN
.LOAD DATA (CHARA(TER

BIS
BIC
BIT

#CLK,aTXCSR
#CLK,aTXCSR
#RECACT ,@RXCSR

;POKE CLK UP
JPOKE CLK DOWN
;RECA(CT ?

HLT

JRECACT

A Y

5¢:

’%:

;SET SYNC

SHOULD NOT BE

BR
MOV

4%
R&4 ,aPARCSR

MOV

#2,COUNT

MOVB

sLOAD SYNC
s OF SYNC

alXCSR

HLT

;DNA SHOULD NOT BE

;DNA ?

JBR

SET

;LOAD PARCSR W]TH PARAME "ERS

R4 9T XDBUF

TST

BPL

NOT

(HAR
(HARS

SET

SET OR....

21T SHOULD BE CLEARED FROM PREVIOUS READ

MOV

#7,SHIFT

BIS
BIC
DEC

#C_K,aTXCSR
#CLK,@TXCSR
SHiFT
;# OF

;POKE
.POKE
SHIFTS

DEC
BEQ

COUNT
8$

SYNC

T1STR
8M]

SYNCNO
5¢
; TWO SYNC (HARACTERS..
#RECACT ,adRX(SR
RECA(T °

BNE

;¥ OF

. # OF

SHIFTS

(LK UP
(LK DOWN

(HARS

JTEST SYNCNG TO SEE HOW MANY SYNC (HARACTERS NEEDED

176434

004000

;SAVE THIS

BIS
#MRESET ,@TXCSR
;MASTER RESET
MOV
RXDBUF ,R3
SET UP FOR ERROR MESSAGE
SYNC INTERNAL ,SEVEN,NO PARITY,0 SYNC REGISTER
MOV
#SYNINT !SEVEN!NOPAR,R4
;CREATE PARAMETERS
MOV
MMINT ! SEND ,@TXCSR
;SET SEND & MAINT INTER

BEQ

1746406

105767
100752

#3,TSTNO
NTSTSL NEXT

TRANSMITTER AND RECEIVER CHIPS

;POKE (1K TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION

6%:

012767

MOV

THE

sPOKE (LK TQ GET INTO SYNCRONIZATION
;BOTH THE LOGIC & RECEIVER

’%:
006422
006426
000002
006410

TEST USES

MOV

006532

104000

000404
010477

1ST3:

;o THIS

006316

8$:

8I7

CZOUF-D MACY11 30A(1052)
21-NOv-78
CZDUFD.P11
18-JUL-78 15:59

004552
A

15:52

PAGE

001001

104000

017701
010400
042700
020001
001401

006312

36
BNE
HLT

MOV
MOV

177400

BIC
(MP
BEQ

104602

10%:

T
H.

SEQ 0033
9

:RECACT FAILED

;THAT THE RECEIVER FAILED
STHE SYNC CHARACTER

ARXDBUF ,R1

:SAVE EXPECTED

#177400,R0

*CLR UPPER BYTE

$8iR1

;DO THEY COMPARE

:1F RECACT FAILED ALONG WITH THIS

100401
104000

1583
1585

1587
1589
1590

052777
032777
001401
104000

005204
122704
001246

104400

s...1T PROBABLY IS A TRANSMITTER ERROR
ONLY

THIS FAILED

;PROBABLY IS A RECEIVER ERROR

SCOP1

.POKE CLK TO SEF DNA...DNA COMES UP ON THE F]RST
JBIT OF

052777
005777

TO MATCH

;SAVE ACTUAL

R4 RO

;HOWEVER,...IF

104401

TO SET,POSSIBLE

020000
006272

006276

; TXDBUF

BIS
TST

11%:

000400
000026

B8M]
HLT

IF NO CHARACTER

#CLK,@TXCSR
?{éCSR
;DNA?

;POKE

IS LOADED

INTO

CLK UP

;DNA DID NOT ASSERT
CONDITIONS FOR NEXT SYNC CHARACTER MAT(H

006260
00623¢

#MRESET ,aTXCSR
7§;NSCH.8RXCSR

12%:

000200

THE NEXT CHARACTER

;MASTER RESET
JSYNC SEAR(H - 0

sSYNC SEARCH SHCULD BE NOT SET
R4
#200,R4
1%

;1S
:NO

TH!S

THE

LAST

(HARA(CTER ?

CZDUF-D MACY11 30A(1052)
21-NOv~-78
CZDUFD.P11
18-JUL-78 15:59
1991
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

004650
004656
004664
004672
004700

0
0
O
0
O

1610

004704

012704

1613
14
15

15:52

SEQ 0034
TEST VERIFYS MATCH DETECT & DATA RDY

. sFLAGS FOR EVERY POSSIBLE MATCH CHARACTER
;;BY OBSERVING RECACT BIT
JoIT WILL TAKE TWO SYNC ~ CHARACTERS TO GET RECACT BIT
LK
DEPENDENT ON MONITOR .......c0c...
;o
IF ONE SYNC STRAP IS SELECTED ,IT WILL
::RQEER;AKE ONE SYNC CHARACTER BEFORE RECACT TO
;;MODE: SYNC INTERNAL
JLENGTH: EIGHT
;3SYNC CHARACTER FOR MAT(CH: B/(C

004722

052777

004020
006156
000020

006166

1%:

036000

006140

1620

004750

052777

020000

006126
006120
006076

1627

005000

010477

1629

005G10

012767

005004

1630
1631
1632

005016
005022
005024

1635

005026

000404

110477

005777
100001
104000

012767

020000
004000

006074
006100
000002
0060¢2

000010

176104

00604 ¢
006034

052777
042777
005367
001367
005367
001403

020000
020900

1644
1645

005064
005070

105767
100752

174106

174064

AY
5¢%:

7%:

THIS

;GO TO THIS TEST WHEN THRU
;SET UP FOR SCOPE LOOP
;MASTER RESET
:SET UP FOR ERROR MESSAGE

#SYNINT
!EIGHT !NOPAR,R4

;CREATE

PARAMETERS

#MINT ! SEND,aTXCSR
;SET SEND & MAINT
R4 ,@PARCSR
;LOAD (SR
#SYNSCH,aRXCSR
[ SET SYN( SEARCH

BIS
BIC
MOVB

#CLK,@TXCSR
#CLK.aTXCSR
R4 ,aTXDBUF

:POKE CLK UP
SPOKE CLK DOWN
*L0AD DATA CHARA(CTER

BIS
BIC
BIT
BEQ

#CLK,3TXCSR
#CLK.QTXCSR
#RECACT,3RXCSR
2%

;POKE CLK UP
:POKE CLK DOWN
-RECACT ?

BR
MOV
MOVR
MOV

43
R4, @PARCSR
R&.aTXDBUF
#2.COUNT

HLT

BPL

HLT

8%:

;REFACT

aTXCSR

SHOULD NOT

:DNA

INTER

SET

:LOAD PARCSR WITH PARAMETERS
*LOAD SYNC CHAR

‘4 OF

SYNC CHARS

:BR IF NOT SET

:DNA SHOULD NOT BE

SET OR....

;1T SHOULD BE CLEARED FROM PREVIOUS READ

MOV

#8. ,SHIFT

;¥ OF

SHIFTS

BIS
BIC

#CLK,@TXCSR
#CLK,QTXCSR

:POKE
SPOKE

(LK UP
CLK DOWN

DEC

sTEST

005770

MOV
MOV
8IS

;SAVE

;POKE CLK TO GET TRANSMITTER & KECFIVER INTO SYNCRON]IZATION

1740€0

004000

MOV

#TSTS NEXT
#3%,L0CK

;BOTH THE LOGIC & RECEJVER

()$ :

005034
005042
005050
005054
005056
005062

032777

176124

MOv
MOV

;POKE CLK TO GET INTO SYNCRONIZATION

’%:

1637
1638
1639
1640
1641
1642

005072

#4,TSTNO

TRANSMITTER AND RECEIVER CHIPS

BIS
#MRESET ,@TXCSR
MOV
RXDBUF ,R3
;SET SYNC INTERNAL ,EIGHT,NO PARITY,0 SYNC REGISTER

042777
032777
001401
104000

MOV

THE

006204

00614¢
006140

004756
004764
004772
004774

TEST USES

1ST4:

020000
020000
006140

1621
1622
1623
1624

;JoTHIS

1724250
174232
174226

000004
005176
005000
000400
006170

052777
042777
110477

16646

37
;oTHIS

004730
004736
004744

1628

PAGE

BNE
DEC
BEQ
SYNCNO TO
TSTR

8M]

BI”

SHiFf

% OF SHIFTS

7%
cgu~r
-8 OF SYNC CHARS
8
SEE HOW MANY SYN( CHARACTERS NEEDED
SYNCNO

; TWO SYN(C (HARA(TERS.,.

MRECACT ,@RX(SR

RECALT

(ZDUF-D MACY11 30A(1052)
216N0V-78
18-JUL-78 15:5
CZDUFD.P11

ststs'g‘

D
)
D

NN
2 OO 00

017707
010400
042700
020001
001401

d
d

9%:

IV, 1Y

d
d

104000

PAGE

001001

[oateatelenloyelon

—

15:52

005764

BNE
HLT

MOV

177400

BIC
(MP
BEQ

104002

10%:

104401

H.T

SEQ 0035
9%

;RECACT FAILED

TO SET,POSSIBLE

;THAT THE RECEIVER FAILED
:THE SYNC CHARACTER
SRXDBUF ,R1
:SAVE ACTUAL
R4 RO
:SAVE EXPECTED

#177400,R0

TO MATCH

*CLR UPPER BYTE

?8%R1

;DO THEY COMPARE

;1F RECACT FAILED ALONG WITH THIS

;...1T PROBABLY [S A TRANSMITTER ERROR
JHOWEVER,...IF ONLY THIS FAILED IT
;sPROBABLY IS A RECEIVER ERROR

SCOP1

.POKE CLK TO SEF DNA...DNA (COMLS UP ON THE FIRST
JBIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO
005126
005134
005140
005142
005144

052777
005777

005144
005152
005160
005162
005164
005164
005766
005172
005174

052777
032777

100601
104000

00160
104000

005204

122704
00124¢
104400

020000
005744

005750

. TXDBUF

BIS
TST

BMI]
11%:

(00400
000020

000000

005732
005710

HLT

#CLK,@TXCSR

alXCSR
11%

;DNA?

JPOKE

(LK UP

;DNA DID NOT ASSERT

JSET UP CONDITIONS FOR NEXT SYNC CHARA(TER MAT(H

BIS
BIT

BEQ
HLT

INC

(MPS
BNE
SCOPE

#MRESET ,@TXCSR
1§;NSCH,QRXCSR

sSYNC

#( R4
1%

;MASTER RESET
sSYNC SEAR(H =

SEARCH SHCJULD BE NCT
;1S
;NO

THIS

THE

LAST

SET

(HARACTER ?

CZDUF-D MACY11 30A(1052)
21-NOV~78
CZDUFD.P11
18-4UL-78 15:59

15:52

PAGE 39

1681
1682
1683
1684
1685

JsTHIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON
;:BOTH THE TRANSMITTER AND RECEIVER LOGIC
;MODE
: SYNC EXTERNAL (SYNEXT)
JsLENGTH:EIGHT PLUS PAR]ITY
:;PARITY:EVEPAR

}ggg

1688
1689
1690
1691
}gg%
1694
1695
}239

JJMAINT, MODE :MINT
005176
005204
005212
005220
005226

012767
012767
052777
012777
052777

000005
005470
000400
020000
000400

173722
173704
005664
005652
005650

005234

012777

(004020

005642

005242
005250
005254
005256
005262

012777
016703
(005004
110477
052777

027426
005620

C05630

005626
000020

005600

1707

005270
005276

005304

052777
042777

020000
020000

005606
005600

000011

1708
1709
1710
1711

005312
005314
005314
005322

0104090

17362¢

17213
1714
1715
1716

005334
005342
005344
005346

1698
1699
1700
1701
1702
1703
1704

1705
1706

1712

012767

052777
042777

020000
020000

005562
005554

022767
001003
005204
110477

000003

173576

005330

005367

1717
1718
1719

005352
005356
005360

005767
001356
105777

1721
1722
1723
1724
1725
1726

005366
005370

104000

005370
005374
005376
005400

017701
020001
001401
104002

1728
1729
1730

(005402
005404
005406

105704
001337
104400

1720

1727

SEQ 0036

005364

005402

100401

173604

T1STS:

;SAVE

THIS
;G0 TO THIS
;MASTER RESET
;SET THE MODE
;MASTER RESET

TEST WHEN THRU

(MTDATA=0)

JSET MODE ,# OF BITS,PARITY SENSE.R LOAD SYNC REG
MOV
#SYNEXT'EIGHT
!EVEPAR! 26 ,aPARCSR
MOV
RXDBUF ,R3
;SETUP FOR ERROR MSG
LR
R4
;FOR DATA (CHAR CREATION
;0eT

1%:

2%:

MOVS
R4, aTXDBUF
BIS
#SYNSCH,aRXCSR
INTO SYNCRONIZATION

3 ¥

;LOAD CHARA(TER
,SET SEARCH SYNC

BIS
BIC

#CLK,aTXCSR
#CLK,aTXCSR

JPOKE CLK UP
JPOKE CLK DOWN

MOV

#9. ,SHIFT

M OF

BIS
BIC

ALK, aTXCSR
#CLK,3TXCSR

JPOKE CLK UP
;POKE CLK DOWN

MOV

DEC

005504

005500

#5,TSTNO
HTSTE NEXT
#MRESET,aTXCSR
#SYNEXT ,@PARCSR
#MRESET ,aTXCSR

;SET MAINTENANCE MODE £ SEND
JNOTE:BIT WINDOWRCLK ARE CLEARED
MOV
MMINT ! SEND ,@TXCSR

005536

173562

MOV
MOV
BIS
MOV
BIS

R4, RO

;EXPECTED

SHIFTS

(MP
BNE
INC
MOVRB

#3,SHIFT
;TIME TO LOAD NEXT (HAR
3%
JNO ?
R4
JGENERATE NEX! CHAR
R4 ,aTXDBUF
JLOAD NEXT (HARACTER

SHIFT

:# OF

TST
BNE
TSTR
BM]
HLT

SHIFT
23
aRXCSR
5%
JRXDONE

;IS

MOV
(MP
BEQ
HLT

aRXDBUF ,R1
;ACTUAL
RO,R1
;COMPARE EXP VS A(T
6%
2
; (HARACTERS SHOULD COMPARE

TSR
BNE
STOPE

Ré
1%

SHIFTS

:RXDONE

SHOULD BE

JLAST
:NO

SET

(HARACTER

PAGE 40

SEQ 0037

;cTHIS

: SYNC EXTERNAL (SYNEXT)
2 sMODE
;o LENGTH:EIGHT PLUS PARITY

— e nd d ) e

:wflno-ac»ohfixugtfi&f

)

15:52

) md ) d e d D D D d D D D ad e D D D

~ NN NNNVNNNNNNNN
~ S5 BN BSSSANWNNN
NN
(%)
AT

CZDUF-D MACY11 30A(1052)
21-NOv-78
18-JuUL- 78 15:59
CZDUFD. P11

TEST PERFORMS A BINARY COUNT DATA PATTERN ON

;;BOTH THE

TRANSMITTER AND RECEIVER LOGIC

;;PARITY :0DDPAR

;;MAINT. MODE :MINT
005410
005416
005424
005432
005440

000006
005622
000400
020000
000400

173510

173472
005452
005440
005436

IST6:

MOV

#6,TSTNO

MOV
BIS

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

MOV
BIS

;SAVE THIS
:GO TO THIS TEST WHEN THRU

HTST7 NEXT
#MRESET ,@TXCSR

;MASTER RESET

;SET MAINTENANCE MODE & SEND
005446

005454
005462
005466
005470
005474
005502
005510
005516
005524
005526
005526
005534
005542
005546
005554
005556
005560
005564
005570
005572
005576
005600
005 22
005606

005610
005612
005614
005614
005616
005620

012777

004020

005430

027026
005406

005416

052777

005414
000020

005366

052777
042777
012767

020000
020000
000011

005374
005366
173414

052777

020000
020000
173372
000603

005350
005342

010400

042777
005367

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

;SFT MODE.,# OF BITS,PARITY SENSE.® LOAD SYNC REG
MOV
#SYNEXT !EIGHT !ODDPAR! 26, dPAR(SR
MOV
RXDBUF ,R3
;SETUP FOR ERROR MSG
CLR
R&
:FOR DATA CHAR CREATION
MovB
R4 ,aTXDBUF
;LOAD CHARACTER
BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC

JGeT INTgngNCRONIZATJON
1%:

2%:

173364

005324

173350

105704

001337
104400

005266

BIC
MOV
MOV

SHIFT

;IS

TSTB

aRXCSR

;RXDONE

HLT

JRXDONE

SHOULD BE

(MP

ARXDBUF ,R1

SET

sACTUAL

RO,.R1

; COMPARE EXP VS A(T

HLT

; CHARACTERS SHOULD

TSTH

Ré

JLAST

8EQ

CLK UP

BNE

MOV

JPOKE

#CLK,aTXCSR
;POKE CLK DOWN
;N OF SHIFTS
#9.,SHIFT
R4,RO
;EXPECTED
#CLK,aTXCSR
;POKE (LK UP
#CLK,aTXCSR
.POKE CLK DOWN
SHIFT
;# OF SHIFTS
#3,SHIFT’
;TIME TO LCAD NEXT (HAR ?
3%
;NO ?
R4
:GENERATE NEXT CHAR
R4 , T XDBUF
sLOAD NEXT "HARA(TER

BM]
5¢:

#CLK,aTXCSR

BIS
BIC
DEC
MP
BNE
INC
MOvB
TST

005272

017701
020001
001401
104002

(MTDATA=0)

BNE

SCOPE

JNO

(HARA(TER

(OMPARE

CZDUF~D MACY11 30A(1052)
21-NOV-78
CZDUFD.P1M
18~JuUL~78 15:59

15: 52

PAGE 41

71781
1782
1783

;;THIS

: SYNC EXTERNAL (SYNEXT)
;JMODE
JoLENGTH:EIGHT PLUS PARITY

d
D
d
D
d

JoMAINT. MODE :MEXT

005622
005630
005636
005642
005644
005652
005660

012767
012767
105767
100116
052777
012777
052777

000007
006102
173341

173276
173260

000400
020000
000400

005232
005220

D e
d

005666

012777

010020

005210

005674
005702
005706

012777
016703
005004

027426
005166

005176

110477
052777

005174
000020

005146

005722

052777

020000

005154

005730

016702

173202

005734
005736

005302
001376

005740

042777

020000
173164

005710
005714

#7,TSTNO

TSTB

JMRBY

MOV

#TST8 NEXT

;SAVE

;JUMP AROUND

THIS

;GO TO THIS TEST WHEN THRU

TEST

43
JYES ?
#MRESET ,aTXCSR

;MASTER RESET

8IS

#MRESET ,aTXCSR

;MASTER RESET

#SYNEXT ,aPARCSR

;SET

THE MODE

JNOTE:BIT WINDOWECLK ARE CLEARED
MOV
#MEXT !SEND ,aTXCSR

005752
005754

005302
001376

005756
005764

012767
010400

000011

173754

005766

052777

020000

005110

005774

016702

173136

006002

005302
001376

MOV
MOV
CLR

MOVB
BIS

020000

006012

016702

173120

006016
006020

005302
001376

N#SYNEXT !EIGHT!EVEPAR!26,3PARCSR
RXDBUF ,R3
. SETUP FOR ERROR MSG
R&
;FOR DATA (HAR CREATION

R4, @TXDBUF
#SYNSCH,aRXCSR

JGET INTO SYNCRONIZATION

2%:

042777

(MTDATA 0)

JSET MODE
,# OF BITS,PARITY SENSE,® LOAD SYNC REG

005136

016702

BPL
BIS

MOV

(%
¥

~
£
o

WN=O

—m g
NN

VLNt e Nele . R NTo RV, RN VT, V] —=OVO NN
(P

MOV

;SET MAINTENANCE MODE & SEND

(9,]

D
md md
D e
d
D
d nd
— e

ead

b e

d —d

)

b —

—d e —d

d e

D e

00 0000 0o Oo 0o 00 00 0o 0o 0o 00 00 Co 00 00 0o 0o 0o 00 0o G0 0o 0o 00 00

1836

1S77:

005216

2 :PARITY:EVEPAR

800
801
802
803
804
805
806
807
808
809

TEST PERFORMS A BINARY COUNT DATA PATTERN ON

;;BOTH THE TRANSMITTER AND RECEIVER LOGIC

1784

1785
1786
1787
1788
1789
790
791
792
793
794
795
796
797
798
799

SEQ 0038

1%:
58

668

8IS
#CLK,aTXCSR
;POKE CLK UP
;WAIT FOR CABLE & DRIVER DELAYS
[ 01
HOLD,R2 WAIT THIS AMT

DEC

R?2

JWAILT

DEC

JWALT

MOV
MOV

#9. ,SHIFT
;¥ OF
R4 RO
JEXPECTED

bNE
6498
JEXIT.
..
8IC
#CLK ,aTXCSR
JPOKE CLK DOWN
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 :;WAIT THIS AMT

BNE
65%
JEXIT...

(7%

SHIFTS

8lSs
#CLK,3TXCSR
cPOKE (LK UP
DELAYS
DRIVER
&
CABLE
FOR
JWAIT
MOV

HGLD ,RZ

:WAIT THIS AMT

DEC
R2
JWALT
BNE
663
JEXIT...
BIC
#CLK,9TXCSR

005072

+LOAD CHARACTER
;SET SEARCH SYNC

JWAIT FOR CABLE

JPOKE (LK DOWN

& DRIVER DELAYS

MOV

HOLD.R2 ;WAIT THIS AMT

DEC
BNE

R
67%

JWALT

CZOUF=D MACY11 30A(1052)- 21-NOV-78
18-JUL=-78 15:59
CZDUFD.P11
1837
1838
1839

1840
1841
1842
1843

1844
1845

1846
1847
1848
1849
1850
1851
1852

1853
1854
1855
1856
1857

006022
006026

005367
022767

006034
006036
006040
006044

001003
005204
110477
005767

006056
006060
006062
006062
006066
006070
006072

100401
104000

006050
006052

006074

006074
006076
006100

001346
105777

017701
020001
001401
10400¢

105704
001327
104400

173112
000003

15:52

JEXIT...

DEC

173104

SHIFT

;¥ OF SHIFTS

;NO ?

SHIFT

;IS

TSTR

aRXCSR

;RXDONE = 1

HLT

JRXDONE

SHOULD BE

#3,SHIFT

INC
MOVB

R4
;GENERATE NEXT CHAR
R4 ,aTXDBUF
;LOAD NEXT CHARACTER

BNE

TST

0050'2

8M]
5%:

aRXDBUF ,R1

HLT

RO.R1
6%

;TIME TO LOAD NEXT CHAR ?

IT 02

SET

JACTUAL

;COMPARE EXP VS ACT

; CHARACTERS SHOULD (OMPARE

. CHECK OUT MODEM BYPASS JUMPER
TSTR

MOV

(MP
BEQ
r$:

SEQ 0039

CMP

BNE

005044
173070

005006

PAGE 42

BNE

SCOPE

JLAST

;NO

(HARACTER

CZ0UF-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JJL~-78 15:59

15:52

PAGE 43

1858

SEQ 0040

;oTHIS TEST PERFORMS A BINARY (COUNT DATA PATTERN ON

1859
1860
1861

;:BOTH THE TRANSMITTER AND RECEIVER LOGIC
:2MODE
: SYNC EXTERNAL (SYNEXT)
;s LENGTH:EIGHT PLUS PAR]TY

}ggz

; :MAINT. MODE :MEXT

1862

1865
1866
1867
1868
1869
1870

}g;}

1873
1874

}g;g

:;PARITY:0DDPAR
006102
006110
006116
006122
006124
006132

006140

012767
012767
105767
100116
052777
012777

052777

000010
006362
173061

173016
173000

000400
(20000

004752
004740

000400

004736

006146

012777

010020

004730

006154
006162
006166
006170
006174

012777
016703
005004
110477
052777

027026
004706

004716

004714
000020

004666

006202

052777

020000

004674

{N6210
0U6214
006214
006216

016702

172722

005302
001376

1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905

006220

042777

020000

006226
006232
006232
006234

016702

172704

006262

005302
001376

1908
1909
1910
1911
1912
1913

006264

042777

020000

006272
006276
006276
006300

016702

172640

1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889

1890

4889

006236
006244
006246
006246
006254
006260
006260

000011

172674

052777

(020000

004630

016702

172656

#8,TSTNO
;SAVE THIS
#_EOP NEXT
;GO TO THIS TEST WHEN THRU
JMRBY
;JUMP AROUND TEST ?
4%
:YES ?
#MRESET,aTXCSR
;MASTER RESET
#SYNEXT ,@PARCSR ;SET THE MODE

#MRESET.STXCSQ

;SET MAINTENANCE MODE & SEND
JNOTE:BIT WINDOWRCLK ARE

MOov

:MASTER RESETY

MMEXT ! SEND,aTXCSR

CLEARED

(MTDATA-0)

;SET MODE.,# OF BITS,PARITY SENSE.R LOAD SYNC REG
MOV
#SYNEXT!EIGHT
!'ODDPAR ! 26 ,a8PAR(SR
MOV
RXDBUF ,R3
;SETUP FOR ERROR MSG
CLR
R4
;FOR DATA (CHAR CREATION
MOVB
R4, aTXDBUF
;LOAD CHARACTER
BIS
#SYNSCH,aRXCSR
;SET SEARCH SYNC
JGET INTO SYNCRONIZATION
BIS
#CLK,aTXCSR
JPOKE CLK UP
;WAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 ;WAIT THIS AMT
64%:
DEC
R2
JWAIT
BNE
643

JEXIT.
..

€5%:

012767
010400

MOV
MOV
TSTB
BPL
BIS
MOV

BIS

(J4656

005302
001376

TST8:

1%:
2%:

66%:

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

DEC
R2
JWAIT
BNE
65%
JEXIT.
..
MOV
#9. ,SHIFT
;@ OF
MOV
R4, RO
;EXPECTED
BIS

#CLK,aTXCSR

DEC
BgEIT

R2
66%

67%:

(LK UP

JWAIT FOR CABLE & DRIVER DELAYS
(0}
HCLD,R2 :WAIT THIS AMT
JWALT

JEXIT...

004612

;POKE

SHIFTS

BIC
#CLK,QTXCSR
;JPOKE CLK DOWN
JWAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 :WAIT THIS AMT
DEC
BNF

RS
67%

JWALT

-—

»H

006302
006306
(V)

= OV~

NOND) — — et =3 —> _3

S
G
I

O 0000000

CZDUF-D MACY11 30A(1052)
21-NOvV-78
CZDUFD.P11
18-JuUL~78 15:59

006316
006320
006324
006330

1922
1923
1924

006332
006336
006340

1926
1927
1928
1929
1932
1933
1934

005367
022767
001003
005204
110477
005767
001346

172632
000003

15:52

JEXIT...

DEC

172624

172610

004532

006342
006346
006350
006352

017701
020001
001401
104002

004526

006354
006356
006360

105704
001327
104400

;TIME TO LOAD NEXT CHAR ?

movBe

R4, TXDBUF

sLOAD NEXT (HARACTER

Ré

; GENERATE NEXT CHAR

SHIFT

;IS

TSTB

aRXCSR

;RXDONE

HLT

JRXDONE

SHOULD BE

BNE
BM]

t$:

SHIFT — ;# OF SHIFTS

#3,SHIFT
3%
;NO ?

TST

5%:

SEQ 0041

CMP
BNE
INC

004564

105777
100401
104000

PAGE 44

MOV

CMP
BEQ
HLT

2%
5%

IT 0 ?

aRXDBUF ,R1

RO,R1
6%
2

SET

JACTUAL

;COMPARE EXP VS ACT
s CHARACTERS SHOULD COMPARE

. CHECK OUT MODEM BYPASS JUMPER
TSTR

Ré

BNE

SCOPE

;LAST

sNO

(HARACTER

CZDUF=-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL~-78 15:59

15:52

PAGE 45

SEQ 0042

1935
1936

;END OF PASS

1938

JUPDATE PASS COUNT

1937

;TYPE NAME OF

1939
}gz?

;CHECK FOR EXIT TO ACT-11
JRESTART TEST

1942

006362

1945
1946
1947
1948
1949
1950
1951

006372
006376
006402
006404
006410
006412
006416

104402
105767
001511
005767
001007
104402
016700

1954
1955
1956
1957
1958
1959
1960
1961
1962

006424
006430
006436
006444
006446
006452

000167
062767
062767
000241
006167
103410

172770
000010
000010

006454
006462

036767
001762

172540

1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1976
1975
1976
1977
1978
1979
1980

006470
006474

000167
012767

006502
006510
006516
006522
006524
006532
006536
006544
006552
006560
006566
006574
006602
006610

1983
1984

1987
1988
1989
1990

1943
1944

1952
1953

1963

}gg;

}ggg

TEST

006364
006366

006422

006464

104402

011524
104410

000000

004767

016767
016767
004767
000441
016767
004767

016767
062767
016767
062767
016767

.EOP:

006620
011245
172600

011257
172574

172534

ROTADD
2%

BIT
BEQ
JSR
JMP
MOV

ROTADD ,ACTREG
RUNIT
PC,REPLAY
RESTRT
#1,ROTADD

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

172454
003702

004040

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

006626
006626
006632
006636

005067
005067
005267

172302
172410
172266

013070

:NO
;DISPLAY ACTREG

;START OVER AGAIN...... YOU DESELECTED EVERYTHING
sNEXT BLOCK (ADDRESSES)
JNEXT BLOCK (VECTORS)

172474
172474

0c2

MCOwW
ACTREG,RO

JARE YOU RUNNING MULTIPLE DEVICES ?
sNO,JUMP AROUND
;ARE ANY DEVICES ACTIVETM?
JYES

.START
#10,BASEADD
#10,BASEIV

172500
172500
000002

000001
006

,OUTCRY
.DEVICE
MULTD
cCC
ACTREG
RUNIT

TEST

JMP
ADD
ADD
CLC
ROL
BCS

2%:

006620
006622

006624

RUNIT:
ZERQO:

172516

000002
1724046
004300

000207

172546
172546

000034

172450
000002
172434
000002
172420

;TYPE NAME OF

HALT
JSELECT SOMETHING TO RUN @ ACTREG:
JSELECT SWITCHES & HIT (ONTINUE (PUT SWOO =1)

172546

062767
016767
016767

006616

TYPE
TSTR
BEQ
TST
BNE
TYPE
MoV

172606

000174
000001

TYPE

MEPASS
CONVRT

004350
172440
004336
172424
004324
172410
004312
172374

RTS

OUT(RY:

1
BYTE

6,2

(LR
(LR
INC

LSTERR
nPFLG
PASCNT

RX(SR
ccC:

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

;CALCULATE NEW PARAMETERS

;YES IT WAS ACTIVE,TEST THIS DEVICE
JOK! ,NOW SET UP
ROTATING
sPOINTER FOR NEXT MULTIPLE PASS
JRESTORE BASE ADDRESS
JRESTORE BASE INTERRUPT VECTORS
sCALC NEW PARAMETERS
;JUMP AROUND REPLAY
2SET UP FOR NEW ADDRESSES
;CREATE NEW ADDRESSES

;CREATE DURIV
s CREATE DURIS
. CREATE DUTIV
;CREATE DUTIS
sRESTORE

sCLEAR LAST ERROR P(
;C(LEAR ERROR FLAG
JUPDATE PASS (CUNT

CZDUF=-D MACY11 30A(1052)
21-NOV-78
CZOUFD.P11
18-JUL~-78 15:59
1991
1992
1993
1994

1995

1996
1997
1998
1999

2000
2001
gggg

006642
006650
006654
006656

016777
013701
001405

004711

006676
006700
006706

104413
012767
000167

000240
000240
000240
012767

PAGE 46

172232

000005

006660

006662
006664
006666
006670

172262
000042

15:52

MOV
MOV
BEQ

LOGICAL :

000340

171100

003446
174534

172206

RESTRT:

Sggg

006712

2013

000424

006714
006720

013746
012737

000004
006740

006732

012637

000004

2015
2016
2017
2018
2019
2020
2021
2022
2023
2024

006740
006742
006746
006750
006756
006762
006764
006764
006766
006774

022626
012637
000403
016767
016716
000002
104413
032777
001407

2026
2027
2028

007000
007004
007006

105777
100027
017700

172100

007014
007022
007024

032777
001006
005267

004000

2012

006726

2014

006736

2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
ngg

5822

20466

CKSWR
MOV
JMP

.SCOPE:
,***x START OF
BR

006712

2029

NOP
NOP
NOP
MOV

:SCOPE

2006
2007
2008
2009
2010
2011

2025

RESET

006776

007012

007030
007036
007040
007044
007050
007056
007064
007070
007072
007074

007076

005737

000404

000432

000412

177060

TST

MOV

000004
172142
172132

MOV
MOV

000004

172136

2%:
3.

($:
040000

172104

TTST:

172074

B8R

104413

SCOPT:

(KSWR

172202
172054
000005
172034
172024

172064
2%:
172044
172030

3% :

#340,PS

;PREVENT

#TST1,RTRN
TST1
LOOP AND

INTERRUPTS

SCHECK FOR “G

(PRIO:

INTERATION HANDLER

(ODE FOR THE X OR TESTER #waaws
4$
:1F RUNNING ON THE X OR TESTER CHANGE
STHIS INSTRUCTION TO A 'NOP''(NOP=240)
a6 ,~(SP)
:SAVE CONTENTS OF ERROR VECTOR
218, N
SSET FOR TIME OUT

a#177060

;TIME OUT ON

;GO TO NEXT TEST

(SP)+, 44

#SW11,aSWR
2%
LPCNT

B8R

;DISPLAY PASS COUNT
:CHECK FOR ACT-11 OR DDP
:IF NOT, CONTINUE TESTING

PC,(R1)

aTK(SR
3¢
QTKDBR,R0

BRW:
BRX ;

172070

JSR

TSTR
BPL
MOV

000432

172074

1%:

PASCNT ,aL IGHTS
w62 ,R1
RESTRT

(MP
(SPY+,(SP)+
MOV
(SP)+, a6
BR
3
MOV
NEXT,RTRN
MOV
RTRN, (SP)
RT]
,xxxx END OF CODE FOR THE
CKSWR
BIT
#5W14,ASWR
BEQ
1%

BIT
BNE
INC
(MP
BLOS
CLRR
CLR
MOV
MOV
MOV
RT]
1407
432

026767
101412
105067
005067
012767
016767
016716
000002
001407

172056

B8R

SEQ 0043

X OR ?

*RESTORE ERROR VECTOR
:CLEAR THE STACK AFTER A TIMEOUT
:RESTORE ERROR VECTOR
SLOOP ON PRESENT TEST
SSET UP NEXT TEST IN RTRN
SSET UP STACK FOR RTI

X OR TESTER wxaxus
;CHECK FOR “G
:LOOP ON CURRENT TEST ?
STEST TTY FLAG
;CLR DONE BIT

SIF A TTY KEY IS STRUCK GO TO NEXT TST

LPCNT, I COUNT
3$
ERRFLG
LPCNT
#5, 1COUNT
NEXT,RTRN
RTRN. (SP)

;CHECK FOR ITERATION CNT FINISH

SINHIBIT

ITERATIONS ?

;SET UP ITERATION COUNT
SSET UP NEXT TEST IN RTRN
SSET UP STACK FOR RT]
:RESTORE 'BEQ 1%'' INSTRUCTION
JRESTORE "BR 38'' INSTRUCTION

;CHECK FOR FREEZE ON (URRENT DATA

;CHE(K

FOR G

———————————————————

C(ZDUF-D MACY11

CZDUFD PN

007100
007106
007110
007114

30A(1052)
21-NOV~78
18-JUL-78 15:59
032777
001402
0167216
000002

001000

15:52

PAGE 47

171772

BIT
BEQ
MOV

172004

RT]

SEQ 0044

#SW09, aSWR
1$
LOCK, (SP)

STELETYPE

007116
007120
007124
007132
007134
007136
007142
007144
007150
007152
007154

010546
017605

062766
105715

001406

105777
100375
112577

000770
012605
000002

000002
000002

.TYPE:

000002

1%:

2%:

171746

171742
3%:

MOV
MOV
ADD

RS,=(SP)
a2(SP) ,RS
#2,2(5P)

BEQ

TSTR

(RS)

;LOOK FOR 'O

TSTB

QTPCSR

;TEST DONE BIT

MOVR
8R
MOV

(RS)+,aTPDER
1%
(SP)+.RS

;TYPE

BPL

RTI

;ASCII

007156
007160
007162
007170
007176
007200

010346
010446
017667
062766
104402

000004
000002

0000°0
000004

012224
000007
171666

. INSTR: MOV
MOV
MOV
ADD
JINSTY: 6YPE
MSG:
MOV

1%:

171662
000<00
00025

011434

MOV

ISTR

BPL
MOVB
BICB
CMPB
BNE

STRING

INPUT

200%:

ROUTINE

R3,=(SP)

# INBUF ,R¢

#7.R3

aTK(SR

1%
QTKDBR, (R4)

#200, (R4)
(R4
. #25
200%

171632

2%:

JINST1

BEQ

INSTRS

CMPB

MOVR
TSTB
BPL

B8R

.INSTE: MOV
. INSTG:

010872
«<00%:

MOV

TYPE

MOM
ST

(RG)+ #1S

aTKDBR,aTPDBR
QTP(SR
2$

R3
1%

.INSTG

R3,~(SP)

R4 .={SP)
S¥RDSW

BEQ

400%

B8R

LINST

TYPE ,MCRLF

INSTRZ: MOV
MOV
RT]

(HAR

;DO IT AGAIN UNTIL "0

R& . -(SP)
a4 (SP)
, .MSG
#2.4(SP)

B8R

DE C
BNE

01163%

TYPE ,MCRLF

000015
171630
171624

OUTPUT ROUTINE

(SP)+ R4

(3P)e.R3

JIS IT <>

IS SEEN

(ZOUF-D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18~,UL=78 15:59

15:52

2103
S}gé
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117

2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132

2133
2134
2135

S}%g

007326
007330
0C7332
007336
007342
007346
007352
007356
007362
007366
007370
007374

007400
007402
007406
007410
007414

007416
007422
007426
007430
007432
007434
007436
007440
007442
007446
007450
007454
007456

007460

010546
010446
016605
012567
012567
012567
112567
112567
010566
005005
012704
122714

001420
121427
002415
121427
003012

142714
152405
122714
001414
006305
006305
006305
000760
122714
001003

005737
001023

000004
000170
000166
000164
Q00162
0QC0157
000004
012224
000015
000060

.PARAM: MOV
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOV
PARAM1: (LR
MOV
(MP8
$:

000067

000060
000015

000015

010572

104404

020567

000046

2142

007470

020567

000036

007466
007474
007476
007502

101365

103762
136705
001357

CIMITS:

B8R

(MP

BHI

(MP

BLO
BITR
BNE

00003¢

S;fzg

2155
2156
2157
2158

TST
BNE
INSTER
STEST

007462

2149
2150
2151
2152
2153
2156

BEQ
CMPB
BLT
(MP8
8GT

BICB
BISA
(MPB
BEQ
ASL
ASL
ASL
BR
PARERR: (MPB
BNE
120%:

000742

2140

2143
2144
S}zg

4
SEQ 0045

;CONVERT ASCII STRING TO OCTAL

S;%g

2141

PAGE 48

RS,=(SP)
R4 ,~(SP)
4(SPJ RS
(R5)+,LOLIM
(R5)
¢ ,HILIM
(R5)+,DEVADR
(R5)+,L0BITS
(R5)
+ ,ADRCNT
RS,4(SP)
RS
# INBUF
R4
15, (R4)

PARERR
(R4) ,#60
PARERR
(R4) ,#67
PARERR

#60,(R4)
(R4)+ RS
#15,(R4)
LIMITS
RS
RS
RS
13
#15,(R4)
1208
SRDSW
PART|

;1S FIRST (HARACTER A <(CR>

;1S (KSWR ROUTINE BEING USED

PARGM1
TO SEE

NUMBER

IS WITHIN LIMITS

RS, HILIM

PARERR

RS5,LOLIM

PARERR
LOBITS,RS
PARERR

;STORE NUMBER AT SPECFIED ADDRESS
007504
007510
007512
007516
007522
007524

007526
007530
007532
00753

016704
010524
062705
105367
001372
012604
012605
000002
000000
000000

000026

000002
000017

'$:

PART]:
Cuim:
RicIm:

MOV
MCV
ADD
DECB
BNE
MOV

MOV
RT]
0
€

DEVADR
R4
RS, (R4)+
#2 RS
ADR(NT
s
(SP)+ K&

{SF)+ RS

CZOUF=D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JuL-78 15:59

TELEARAR

007536
007540

000000
000000
007561

PAGE 49

SEQ 0046

DEVADR: 0
LOBITS: O

ADRCNT=LOB]TS+1

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

000004

171424

.SAV0S: MOV

, SAVPC
4(SP)

:SAVE RO-RS
010567
010467
010367
010267
010167
010067
000002

(AN 1aN 1N 1aN 1, S 1,01, 81,01, V)

2159
216J
2161

15:52

217N

Sv05:

MoV

RS, SAVRS

MOV
MOV
MOV

R3.SAVR3
R2,SAVRZ
R1.SAVR1

MOV

MOV
RTI

R& . SAVR4

RO, SAVRO

:RESTORE RO=-RS

016700
016701
016702
016703
016704
016705
000002

SAVRD,RO

MOV
MOV

SAVR2 .R2
SAVR3.R3

MOV
MOV

MOV

RT]

SAVR1 .R1

SAVR4 R

SAVRS ‘RS

402
1434

—

NN
— — ==~y ~
o
V& NN
~

: 80000‘0‘0‘8
WNN

OO
O
W

onony

—

~N
~N

b oD

md o
b
—h

—

10346
10446
10546
17601

2199

.CONVR:

0046
0146

[A%]0 Yo SV T,N1,81,81,§]

eleleleoleleleale
Pl

:CONVERT OCTAL NUMBER TC ASCI] AND OUTPUT TO TELEPRINTER

SYRIREC2EBEIRRRK

— ed

d ed e

)

L NL N N N ST T VL VL TN, N FLVLNL Y

2182

LRESO5: MOV

.CNVRT:

TYPE

MCRLF

MOV
MOV

000012
002402
000002
000154
000152
000147
000144
000140
000132
012264
177770

0000¢0
100000

MOV

1712¢4

MOV

ADD

000012
1$:
8

’%:

MOV
MOVB
MOVB

MOV

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

R3.-(SP)
R4 .=(SP)

RS . -(SP)

212(5P)
R

TEMP, TEMP3

#2,15(5P)

¢, WRDCNT
(RT)
(R1)+.CHRCNT
(R1)+.SPACNT

a(R1)+,BINWRD

MOV

BINWRD
. R4

BI(

#1°7770,R3

MOVB
MOV
MOV
ADD

MOVR
ASR

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

RY,(RO)

JOMIFT

01110

BIC

#100000,Ré

ASR

R«

ASR

DES

JCLUGE

DITIO

FOR NEXT #

TO STOP BIT

S PRUFAGAT NG,

CZOUF-D MACY11 30A(1052)
21-NOV-78
C20UFD.PT
18-JUL~78 15:59

2215
2215
2217
2218
2219
2220
2221
2222
2223
2224

2225
2226
2227
2228
2229
2230
2231
2232
2233
223%
2235
2236
2237
2238
2239
5529

007756
007760
007764
007766
007772
007774
010000
010002
010006
010012

010014
010016
010020
010022
010026
010030
010036
010040
010042
010044
010046
010050
010052
010054

010056

001363
012703
114023
105367
001374
105767
001405
112723
105367
001373

105013
104402
012324
005367
001323
016767
012605
012604
012603
012601
012600
000002
000000
000000
012055
000000

15:52

(12324
)
000062

(%:

000055
000040
000043

5%
£s:

000024
171°'4

002226

:1F

2247
22648
2249
2250

010060
010064
010072
010074

2252
2253

010100
010106

2255
225¢
2257
2258
2259

010076

010110

010114
010120
010122
010124

017605
122767
001002
105015

0000C0
000116

02132

122767
001005

000131

(L7'7¢

062716
000002
1046404
000755

00000/

000406
112715

177777

]

THE CHARACTER IS ‘Y'' SET THE FLAG
a(SP) RS
#'N, INBUF
1%
(RS)
;000

“$:

#'Y, INSUF
3s

’%:

B8R

(MPB
BNE

MOVR

[NPUT

#=1,(RS)

ADD
#2,(SP)
RT]
INSTER
8R
.SETFLG
STRAP DISPATCH SERVICE

SIS

IT N2

SIS IT 'yt

;377
SRETKY

SARGUMENT OF TRAP IS EXTRACTED
SAND USED AS OFFSET T0O OBTAIN POINTER

gggg

2269
2270

3s
#MDATA,R3
-(RO), (R3)+
CHRCNT
X3
SPACNT
63
#040, (R3)+
SPACNT
'8

.SETFLG:MOV
)
BNE
(LRB

2260
22¢1

2264
2265
2266
2267
2268

SEQ 0047

;COMPARE THE FIRST {HARACTER IN THE TELETYPE
:BUFFER TO THE CHARACTERS 'N'° AND ‘'’
;1F THE CHARACTER IS ‘N'* CLEAR THE FLAG

5522

225%

BNE
MOV
MOVB
DECB
BNE
TSTB
BEQ
MOVR
DECB
BNE

{LRB
(R3)
TYPE
MDATA
DEC
WRDCNT
BNE
1$
MOV
TEMP3, TEMP
MOV
(SP)+.RS
MOV
(SP)+.R&
MOV
(SP)+.R3
MOV
(SP)+.R1
MOV
(SP)
+ RO
RT]
WRD(NT: 0
CHRCNT: 0
SPACNT~CHRCNT
+1
BINWRD: O

2242
2243
2244

2251

PAGE SO

:TO SELECTED SUBROUTINE

010126
010130
010136
010140
010142

0101646
010152

011646
162716
017616
006316
0462716

0627'6
017616

000002
000000
177001

001366
000000

LTRPSR: MOV
SUB
MO/
TRPOK: ASL
BIC

ADD
MO\

(SP) ,=(SP)
#2,(SP)
8(SP), (SP)
(SP)
#177001, (SP)

#.'RPTAB, (SP)
«(SP), (SP)

:GET PC OF RETURN
S<P(C OF TRAP
SGET TRP
SMULTIPLY TRAP ARG BY 2
:CLEAR UNWANTED BITS

*POINTER TO SUBROUTINE ADDRFSS
; SUBROUT
INE ADDRE SS

CZDUF=D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL=78 15:59

SS;}

55;2

2275
2276
2277
2278
2279
2280
2281
2282
2283

2284

2285

010156

000136

010160
010162
010170
010172
010176
010200
010204
010210
010212

104413
032777
001061
021667
001404
011667
105067
104406
011605

010220

011504

010214

162705

2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296

010222
010224
010226
010230
010234
010240
010244
010250
010254
010260
010262

006304
061504
006304
042704
062704
012467
012467
011467
105767
001403
005767

2298
2299
2300

010270
010272
010274

104410
010422
112767

2297

2301
2302

2303
2304
2305
2306
2307
2308

2309

2310
2311
2312
2313
2314

2315

2316
2317
2318
2319

2320
2321
2322
2323
2324
2325
2326

010266

010302
010304
010306
010312
010314
010316
010320
010324

010326

001014

104402
000000

005767
001402
104402
000000
005767
001402
000000
104407
005777
100005
010046

010350
010352
010354
010356

000000
012600
104413
005267

010362
010370
010372
010400
010402
010410
010414

016600

032777
001007
032777
001407
016767
012706
000177

PAGE 51

JMP

020000

170710

JHLT:

170736
170730
171036

1$:

000CC?

a(SP) +

000042
TYPMSG:

170744

000004

ASL
ADD
ASL
BIC
ADD
MOV
MOV
MOV
TSTB
BEQ
TST

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

CONVRT
ERTABRQ
MOVR

#-1_ERRFLG

BNE

TYPE
ERRMSG: 0

CONVRT

DATABP: 0
RESREG: RESOS
HALTS:
TST
8PL
PUSHRO

170540

000002
170550
000400

170510

002000

170500

170510
001100
170474

170504

;CHECK FOR G
“INHIBIT ERROR TYPE OUT 2

(RS)
R4

TYPDAT

DATAHD
TYPHAT

DATARP
RE SREG

5WR
EXITER

MOV

2(SP) RO

BIT
BNE
8IT
BFQ
MOV
MOV
P

ERRCNT
#SWOB, aSWR
1%
#SW10,a5WR
2%
NEXT,RTRN
#2TACK, SP
@RTRN

HALT
POPR(
EXITER: CKSWR
INC

;GO "0 SUBROUTINE

(SP) ,RS

#2 RS

ST
8EQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ

000004

#SW13,aSWR
HALTS
(SP) ,LSTERR
1%
(SP) ,LSTERR
ERRFLG

SUB

MOV

177001
013040
000040
000046
000054
170766

177777

CKSWR
BIT
BNE
CMP
BEQ
MOV
(LRB
SAVOS
MOV

&4
SEQ 0048

;ERROR HANDLER

104410

010330
010332
010334
010340
010342

0103464

15:52

SCHECK FOR G

:LOOP ON ERROR ?
;ESCAPE

TO NEXT ON ERROR 2

;SET UP FOR NEXT TEST
CREINITIALIZE SP

C(ZOUF-D MACYi1 30A(1052)
21-NOV-78
CZDUFD.P11
18-JuUL~78 15:59

2327
2308
2399
2330
2331

010420
010422
010424
010426

000002
000001
006
001174

2334
2335
233
2337
2338
2339
2340
231

010430
010432
010434
010436
010440
010442
010444
0106450

010046
010146
010246
010346
010446
010546
016746
010667

£33

2%2
2%3
ngg

010456
010462
010464

012767
000000
000777

15:52

010466

67342

PFAIL: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=-(SP)
R2.-(SP)
R3.~(SP)
R&.~(SP)
RS.=-(SP)
24.~(SP)
SP. SAVSP

ngg

2%9
2350
2351
2352
2353
2354
2355

010472
010474
010476
010500
010502
010504
010506

012605
012604
012603
012602
012601
012600
012767

2357
2358
2359
2360
2361

010522
010526
010532
010536
010540

012706
005067
005267
001375
104410

010554
010560
010564

005067
000177
000001

010570

001114

2362
2363
2364
2365
2366
2367
2368

010514

010542
010544
010546
010550

2369 010566

2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381

2382

MOV
HAL T
BR

170500

010430

012767 000340

010564
104402
011437
005067

006

001100
001532
001526

RESTAR: MOV

167310

167254

MOV
CLR
INC
BNE
CONVRT

#STACK
5P
TEMP
TEMP
18

PFTAB:

002

CLR
JMP
1

BYTE

RTRN

;SAVE STACK POINTER
*SET UP FOR POWER UP TRAP
*HALT ON POWER DOWN NORMA.
WHEN POWER

SAV3P, SP

(SP)+.RS
(SP) +-R&
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.R0O
# PFAIL 24

PF TAR
TYPE
MPFATL
CLR

170472
170354
170330

TRAP HERE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
%

;SAVE RO-RS ON PROCESSOR STACK

#RESTART , 24

;PROCESSOR WILL

2%8 010466 016706

2356

SEQ 0049

2%
RTI
ERTABC: 1
BYTE
6,2
SAVPC
:ENTER HERE ON POWER FAILURE

002

167354
170516

PAGE 52

#340,PS

000000

010574
010600
010602

005737
001042
022767

010610

001036

000176

L(KSwR:
17027¢

RDSW:

.WORD

TST
BNE
(MP

G2
ouT
8> REG, SwR

BNF

RESTORE RO-R5

;SE

UP FOR POWER FAILURE

6,2

T0F L07.176.
*LOCATIONS USED:

00002

;RESTORE STACK POINTER

ERRFLG
L STERR
ARTRN

;CHECK SWITCH REGISTER ROUTINE.
)
010572

1S RESTORED

CHECKS FOR “G TO ALLOW CHANGING

:SOF TWARE SWIT(H REGISTER PRESENT

INO, GET ogT

CZDUF~D MACY11 30A(1052)
21-NOv-78
CZDUFD.P11
18-JUL-78 15:59

105777

2384
2385
2386
2387

15:52

PAGE 53

170266

TSTB

170262
177600
000007

BPL
MOV

CMPB

#7,.MSG

BNE
.CNTLU:

aTKCSR

ouT
STKDBR,

BIC

010722
010572
010727
010714
010737

SEQ 0050

.MSG

#177600, .MSG
ouT

JYES,WAIT FOR
JREADY, GET (CHARACTER

JAND STRIP OFF

;. THE GARBAGE

JIS IT A <26

TYPE ,$CNTG
coM
a#RDSW
TYPE
, SMSWR
CNVRT
, SWREGC

INSTR, SMNEW

PARAM

0
177777

001
011434
010572

043536
051412

=2 = OO

ouT:

SWREGC:
BYTE

002

b e et b e e

ad —d

oleolels
VNS
W) OO NN FIRRIC22 S
SR RSN RRISIRNS NNEORONHSONON

D o
)

o
d e e

) —d —d
D
d

D e
D
d

d e
D

e
d

)
d

d wmd

) —d

d md

e
e

b ad

e
i
)

d i
b

—

alelelelelalelclolalolelclelolelelololeloleole)

e e

010706
0107212
010714
010716
010720
010722
010727
010734
010737
010744

.BYTE

035105

6,2

SWREG

LASCIZ

MTITLE:

LASCIZ

<15><12><12>/DUL11

MVECTO:

LASCIZ

<15%<12>/VECTOR ADDRESS-/

MREGAD:

LASCIZ

<15><12>/1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS-/

MMULT:

CASCIZ

<15><12>/ARE YOU RUNNING MULTIPLE DEVICES 2

MLASTD:

JASCIZ

<15><12>/LAST DEVICE:REZEIVER (ONTROL REGISTER ADDRESS=/

000
047040
000

053505

SMNEW:

042012
055103
020104
043040

030525
052504
060524
006440

042526
040440
051523
051461
044526
042522
051105
051124
043505
020122
051505

052103
042104
000055
020124
042503
042503
041440
046117
051511
042101
026523

040412
052517
044516

042522
051040
043516

0425C3%

<15><12>/%G/
<15><12>/SWR- /

$CNTG:
TMSWR:

0,1

TYPE ,MCR F
a#RDSW
CLR
RT]

ASCIZ
LASCIZ

000
051127

046125
020105
042503

SWREG

.EVEN

NEW=

CZDUF=D TAPE F

/<15><12>

(Y OR N)=/

CZDUF-DPMACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JuUL-78 15:59

2639
264)
26641
2642
2643
2444
2445
2646
2447
2648
2649
2450
26451
2652
2453
26546

26455
2456
2457
2658
2659
2660
2661
2662
2663
2664
2465
2666
2667
2468
2669
2670
2471
2472
2473
2676
2475
2676
26477
2478
2679
2480
26481
26482
26483
2484
2485

2486
2687
2638
26489
2490
2491
2692
26493
2494

011206
011214
011222
011230
011236
011244
011245
011252
011257
011264
011272
011300
011306
011314
011322
011330

011336
011344
011347
011354
011362
011370
011376
011404
011412
011420
011426
011430
011434
011437
011444
011452
011460
011466
011474
011502
011510
011516
011524
011532
011540
011546
011551
011555
011562
011570
011576

011604
011612
011620
011626
011633
011640
011646
011654
011660

053111
047117
021040
042524
051106
000
075
042503
015
047040
047522
053517
051456
020124
044126
047526

040040
063505
015
047440
043516
054524
051501
044526
041530
042104
000055
020040
005015
040
051105
052514
051120
020115
051101
052040
047111
051107
005015
043117
020123
043040
015
015
020124
005015
047440

042514
052040
024040
047040
015
051120
054524
046105
005015

15:52

051105
051126
043505
020122
051505

0641440
046117
051511
042101
026523

042504
020040
044012
053517
047127
020077
046105
0647523
047111
0510640

044526
000
053517
041040
041440
027056
0415C5
042515
020107
047125

047412
020106
035105
042520
020124
042503
051123
042522

052125
040522
042522
046040
042504
051040
040440
051523

041501
000

000077
000
050040
043040
042522
043517
042522
020126
051505
050040
051505
047105
050040
040526
009
051012
052012
041520
047514
020116

052103
051505
020131

026451
042012
047511
046040
000055
0200643

PAGE 54

SEQ 0051

DEVICE:

.ASCIZ

/=DEVICE

MCOW:

.ASCIZ

<15><12>/HOW NOW BROWN COW? ...SELECT SOMETHING TO RUN @ACTREG/

MRANGE:

.ASCIZ

<15><12>/0UT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-/

MQM:
MCRLF:
MPFAIL:

ASCIZ
.ASCIZ
.ASCIZ

Y/
<15><12>
/ POWER FAILURE, PROGRAM RESTART AT TEST [N PROGRESS/

MEPASS:

.ASCIZ

<15><12>/END OF PASS TAPE F/

MR:
MTSTPC:

LASCIZ
.ASCIZ

<15><12>/R/
<15><12>/TEST PC~/

MLOCK:

.ASCIZ

<15><12>/LOCK ON SELECTED TEST?

MLEVEL:

.ASCIZ

<15><12>/DU PRIORITY LEVEL=/

MSYNC:

_ASCIZ

<15><12-/# OF

05112¢6

053517
0644501
020054
040522
052123
052101
020124
047522
000123
0201046
051501
042520
000
051505
000055
045503
042523
042105
037524
051117
000
020125
044522
053105
043117

(Y OR N)=/

SYNC (HARS SELECTED (

1 OR 2)~/

CZDUF=D MACY11 30A(1052)

21-NOV-78

18-JUL-78 15:59

CZOUFD.P11

15:52

PAGE 55

SEQ 0052

2695
2496
2697
2698
2499

011666
011674
011702
011710
011716

051440
044103
042523
042105
047440

067131
051101
042514
024040
020122

020103
020123
052103
030440
024462

2501

011726

005015

051511

051440

MWIREG: .ASCIZ

<15><12>/1S SEC XMIT JUMPER #6 IN? (Y OR N)=/

005015

051511

051440

MWIRES: .ASCIZ

<15><12>/1S SEC REC JUMPER #5 IN? (Y OR N)=/

015

044612

020123

MWIREG: .ASCIZ

<15>712>/1S OPT (LR ENABLE JUMPER #4 IN? (Y OR N)-/

015

044412

020123

MEXTJ:

.ASCIZ

<15><12>/1S THE TEST CONNECTOR INSTALLED 2?(Y OR N)-/

020040

MSTATUS: .ASCIZ

020040

005040

011772

2508

011774

2515

012041

2523

012115

044126
052123
042516
044440
046114
054450
024516

012200
012206

052123
020040

012172

2532
2533

012122
012130
012136
012144
012152
012160
012166

—

2531

041505
045040
020122
037516
051117

050117
020122
0625146
042520
044440
020131
026451

—

2526
2525
2526
2527
2528
2529
2530

000055

012046
012054
012062
012070
012076
012104
012112

AN
AN]

2516
2517
2518
2519
2520
2521
2522

012002
012010
012016
012026
012032

2509
2510
2511
2512
2513

041505
0201264
051105
047111
047440

2535
2536
2537

012222

2540
2541
2542

012224
012264
012324

006412

2507

01173
011742
011750
011756
011764

000055

2502
2503
2504
2505
2506

011724

2500

000015

054040
052512
021440
020077
020122
051040
046525
032443
024040
047040

020124
047105
045040
020122
037516
051117
000

044515
050115
020066
0564450
024516
041505
042520
044440
020131
026451

046103
041101
046525
032043
024040
047040

020105
041440
052103
051516
062105
047440
000055

042524
047117
051117
040524
037440
020122

052101
046440

051525
050101

IMBUF:
TEMP:
MDATA:

000040
000040
000040

2544
2546

2548

2549
2550

/ 12> <15>

MAP

JBUFFERS FOR INPUT-QUTPUT

2545

2547

STATUS

.EVEN

gggg

2543

<12> <155/

012364

012370
012374

006367

006367
006367

000044

000040
000034

.BLKB
.BLKB
.BLKB

&)
&)
&)

AR R RN

AR AR R RN AR

JUTILITIES

’
AR

AT R T AARCNA T C AN AP RN T RN

AR R R

ANR AR AR A AN TR IR

JTHIS UTILITY CALCULATES PRIORITY LEVEL

DULEV:

ASL

ASL
AS|

DUPRT
DLPRT
DUPRT

SHIFT LEFT

A RN

AT AN

CARAORR IR ANOAOER

CZDUF=D MACY11 50A(1052)
21-NOV-78
18-JUL-78 15:59
CZDUFD. P11

012400
012404
012410
012416
012424
012432
012434
012436

006367
006367
016767

012440
012446
012452
012460
012464
012472
012500
012504
012512
012520

016767
005267
016767
005267
016767
016767
005267
016767
016767

012570
012572

15:52

PAGE

000030

ASL
ASL
MOV

000020
000012
000004

162767

042767
000207
000240
000200

LESST:

000422
000412

000402
000400

;MOVE THIS TO LESST

BIC

#37,LESS

;CLEAR TNZV(C

LEVELS
LEVELL

;LEVEL TO ALLOW INTERRUPTS

RTS

#1,LESST
PC

MOov

MOV
INC
MOV
MoV
INC

000352

MOV

INC
MOV
INC

000342
000332

:
DUBASE

012622
012630
012636
012644
012652
012656
012660

042777
005067
006067
006067
006267
042767
056777
042777
052777
005367
001346
000207

040000
166340
166332
166330
166324
100000
166312
020000
020000
166262

016767
005067
012727
000000

166256
166254
000010
166240
166236
177762
166224

000302

RPOKE
:

166316

000246
000240
000232

166256

;XxX1

:XXX2

DUBASE , TXCSR

s XXX4

DUBASE ,PARCSR ; XXX2
DUBASE
DUBASE ,HRXDBUF ; XXX3
DUBASE ,HPARCSR ; XXX3
DUBASE
DUBASE
DUBASE ,HTXCSR
DUBASE

DUBASE , TXDBUF

STS

; XXX5
JXXX6

DUBASE
DUBASE ,HTXDBUF ; XXX7

THE MAINT DATA BASED UPON THE

;INFORMATION CONTAINED IN TEMP1 AND [T IS
JSHIFTED IN BY THE CONTENTS OF SHIFT

BIC
CLR
ROR
ROR
ASR

#MTDATA,3TXCSR
TEMP?
TEMPT
;FORCE CARRY
TEMP2
:PICK UP CARRY IN BIT
TEMP2
:SHIFT INTO BIT 14

BIC
BIS
BIC
BIS

#81T15,TEMP2
TEMP2,@TXCSR

RTS

DEC
BNE

ODD8:

s XXX0

DUBASE ,RXDBUF

MoV

INC
MOV

000322

DUBASE ,RXCSR
DUBASE
DUBASE ,HRXCSR
DUBASE

JTHIS UTILITY POKES

012574
012602
012606
012612
012616

. CREATE LESS1

;NEW DU ADDRESSES

DUADDR: MOV
INC
MoV
INC

000364
000362

000000

SEQ 0053
DUPRT
DUPRT
DUPRT,LESS1

SUB

:
DUPRT

000126
000120
000114
000106
000102
000074
000066
000062
000054
000046
000042
000034
000030
000022
000016
000010
000004

#CLK,STXCSR
#CLK ,@TXCSR
SHIFT
RPOKE

:THIS ROUTINE

MoV

CALCULATES

TEMPT, TEMP?

CLR
MoV

TEMP3
#8.,(PC;+

ROR
ADC

TEMP2
TEMP3

DE(
BNE
ROR

1$
23
TEMP3

(LR BIT 15
:POKE MAINT DATA
:POKE
:

(LK

ODD PARITY

:SAVE

TEMP1

FOR AN 8 BIT

(HAR

CZOUF~D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JUL~78 15:59

2607

2608
2609
2610
2611
gg}g

012724

103404

012726
012734
012736

052767
000400
062767

012744

000207

012746
012754
012760
012764
012766
012772
012776
013002
013004
013010
013012
013020
013022

016767
005067
012727
000000
006067
005567
005367
001371
006067
103004
052767
000403
042767

013030
013032

000207
062716

15:52

000400

166210

000400

166200

PAGE 57

BCS

3%:
4$:

SEQ 0054

BIS
#8178, TEMP1
;SET ODD PARITY
BR
3%
BIC
#RIT8, TEMPI
:CLR EVEN PAR]ITY
;TEMP1 NOW HAS ODD PARITY CHARACTER
RTS
PC

2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645

013036

000002

013040
013042
013044
013046
013050
013052
013054
013056
013060
013062
013064
013066

013124
000000
000600
013140
013311
013332
013202
013311
013332
013244
013311
013332

;THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER
EVEN8:
MOV
TEMP1, TEMP2
:SAVE TEMP1
CLR
TEMP3
MOV
#8.,(PC)+
1%
0
2% :
ROR
TEMP?
ADC
TEMP3
DEC
1$
BNE
2%
ROR
TEMP3
BCC
3s
BIS
#8178, TEMP1
;SET EVEN PARITY
BR
4%
3%:
BIC
#31TS, TEMP]
;CLR ODD PAR]ITY
;TEMP1 NOW HAS EVEN PARITY CHARACTER
4%:
RTS
PC
TRPREG: ADD
#2.(SP) :ALLOW IT TO ''CRUNCH'' INTO HLT BACK
*IN MAIN PART OF THE PROGRAM
RTI
;ERROR HLT TABLE
.ERRTAB:
EMO
;HLT 0 BIT ERROR (GENERAL)
0
0
EM1
;HLT 1
REGISTER ERROR
DH1
oT1
EM2
;HLT 2 RECEIVER ERROR
DH1
DT1
EM3
;HLT 3
TRANSMITTER ERROR
OH1
DT1

2647
2648
2649

013070
013072
013074

160040
160041
160042

RXCSR:
160040
HRXCSR: 160041
RXDBUF: 160042

2651
2652
2653
2654
2655

013100
013102
013104
013106
013110

160042
160043
160044
160045
160046

PARCSR: 160042
HPARCSR:
TXCSR:
160044
HTXCSR: 160045
TXDBUF: 160046

2646

2650

2656

2657

013076

013112

2658

013114

2661
2662

013122

2659
2660

013116
013120

160043

160047

166172
166170
000010

166172

166154
166152
177762
166140

000400

166124

000400

166114

000002

:DEFAULT DU ADDRESSES

HPXDBUF :

HTXDBUF :

C00770

DURIV:

000776

DCTIS:

000772
000774

DURIS:
DUTIV:

160043
160043

160047

-DEFAULT DU VECTORS

770

:REC INTR VECTOR

776

SAMIT INTR STATUS

772
774

SREC INTR STATUS
SXMIT INTR VECTOR

;ERROR MESSAGES

CZOUF-D MACY11 30A(1052)
21-NOV-78
18-JUL~78 15:59
CZDUFD.P11

2664

013124
013132
013140
013146
013154
013162
013170
M3176
013202
013210

15: 52

036440
051117
036440
05151
051105
041520
043505
020122
036440
044505
051105

042440

043505
020122
036440
051516
051105
051117
000412
052123
000

05151
000040
0520490
044515
042440
050040
042522
051105

040522
052124
051122
006503
044507
020040

105

050130
020104
040525

041505
040440
000" 14

041520

042524
052103
000003
006
001164
006
001156
006
001160
000001

PAGE 58

SEQ 0055

EMO:

LASCIZ

/ = ERROR P(C/

EM1 :

LASCIZ

/ - REGISTER ERROR PC/<15><12><1>/REGISTER

EM2

LASCIZ

/ - RECEIVER ERROR PC/<15><12><1>/REGISTER

EM3:

LASCIZ / - TRANSMITTER ERROR PC/<15><12><1>/REGISTER /

DH1:

:DATA HEADERS FOR ERROR MESSAGES
"AS(1?
/EXPECTED
ACTUAL/

051001
042524
041505
020122
020122
051001
042524

.EVEN

004

004
602
.END

%DATA

TABLES FOR ERROR MESSAGES

BYTE

6.4

BYTE
SAVR)
BYTE
SAVR1

6.4
EXPECTED DATA
6.2
;ACTUAL DATA

SAVR3

:REGISTER

CZOUF=D MACY11 30A(1052)
21-NOV-78
CZDUFD.P11
18-JuUL~-78 15:59
AAA
ACTREG

002520
001216

15:52
PAGE 60
CROSS REFERENCE
1126+

1140«

1147 =

1148+

1230

1948

1951

1961

1108«

1145«

1146

1152+

1154«

1225

1955«

1967«

1971

1229

1956«

1968+«

197%

1974+

1975

1976~

1977

1978«

1979

2510

2625

2627

2318
1367

1368

1396

1436

1437

14640

1441

1457

1531
1710

1547
171

2591

1548
1755

2592

1576
1756

1616
1760

1617
1761

1620
1807

1621
1814

1551

1629+

1641

001204
001364
001212

89%#
9614
1338#

1058»
1072
1064+

1065+
1238«
1118=

002336
010056
002000
000001
000002
002000
004000
010000
BIT13 = 020000
RIT14 = 040000
BIT1S = 100000
BIT2
=
8113
= 000010
BIT4
- 000020
BITS
= 000040
BIT6
- 000100
BIT7 = 000200
BIT8
- 000400
B8IT9
- 001000
BRE AK
000001
BRW
007072
BRX
007074
BUFF1
000002R
BUFHRX
001346
BUFHTX
001362
BUFRXD
001344
BUFTXD
001360
BYJMR
001305
CARDET= 010000
ccC
006626
CHRCNT
010054
CKSWR = 104413
(LK
- 020000

1125
2202«
808+
7564
755
7464
7454
744m

11294
2203

22404

888
BINWRD
BITw
-~
BITO
BIT1
=
BIT10 =
BIT11 =
BIT12 =

677

7434

7428
7414

754M
753
7524
7514
750m
7490
748#
7474

8154
1290
1291
6774
9544
9604
953

594
9344

7728
1947
2200«
9934
8074
1458
1637

784
783
774
773
772
771
770
769
782
781
780
779
778
777
776
775

789
788
787
786
1293
814
813
812
811
810
792
791

1304
1305
1267
1076
1082
1075

20614
204204
1273
1242+
1248+
1241«

1970
2204
2000
1346
1486
1638

19874
2218+
2022
1347
1526
1666

‘081
1057

CLROPT
001303
CNTLU = 104474
CNVRT - 104411

1824
9324
9954
9894

1831
1055
1040
2392

COUNT
COUNTT
(SRHPA
(SRHRX

8654
909
9564
9524

1359+
1266+
1078
1074

(ONVRT

1044170

001142
001230
001352
00'34,

SEQ 0056

1225+
1226+
1227+
1231+
21614

BASEAD
BASEDU
BASEIV

TABLE == USER SYMBOLS

1058
1059
1060
1063
2152«

1062+

001306
001310
001312
(001322
007541
wwrwae

11784
89824
9384
9394
404
944N
2113«

ADDBAS
ADDKEE
ADDLAS
ADDROT
ADRCNT=
A100710=

9874

1276

815

808

807
806
805

2589

809

2608

22384
2046
1350
1527
1705

2239
2275
1351
1530
1706

1247+
1224+

1884
1222+

1944

1371«
1278+
1244
1240+

1891

2298

1449

1901

1908

2309

236"

1461

153Qa

CZOUF=D MACY11 30A(1052)
21-NOV-78
18~4UL=~-78 15:59
C2DUFD.PM

CSKHTX
(SRPAR
CSRRX
(SRTX
(TS
=

001356
001350
001340
001354
020000

DATABP
DATAHD

010330
010316

DEVADR
DEVICE
DH1
DISPRE
DLIGHTDMULT

ARRERR

007536
011245
013311
000174
177570
001304

ONA
=
DNAINT=
DS(
=
DSINTEDSR
=
DSWR
=
DTR
DT
DUADDR
DUBASE

100000
000040
100000
000040
001000
177570
000002
013332
012440
012572

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUTIV
EIGHT EMO
EM1
EM2
EM3
ERRCNT
ERRFLG
ERRMSG
ERTABO
EVEN8
EVEPAR
EVPAR
EXITER

012364
0126434
013116
013114
013122
013120
006000
013124
013140
013202
013244
001132
001246
010304
010422
012746
001400
000400
010354

FILBUF
FIVE

FLAG

(003204
000000

001222

FRMERR- 020000

HALTS
HOXEN

HEREU
HILIM
HOLD
HOLDO
HOLDT
HPARCS

01033
000010
003132
007534
001136
001224
001226
013107

15:52
PAGE 61
CROSS REFERENCE

9584
9554
9514
9574
77214
676

SEQ 0057

TABLE == USER SYMBOLS

23104

2293+
2292+
2117
1945

26854

2638

8364
7264
9334

8054
8r2o#
7698

7794
7754
725#
783

2639

26904

1072~

1238
2572+

1107

2569
1173

1071~
1067+
1666+
1069%
1068«

1971«

2561

2562

2563

2564«

2577

2565
25794

2549~

2550+

2551«

2552+

2553

25574

1223

1973«

1980

26584

1749

1801

1878

2035+

2281+

2294

2300+

2%65+

1833

1886

1863

1903

2548+
26594
1118

26614

26604

8004
2634

2637
2640
2643
8624

9214
2291»
2299
26154
803«

2573

2574~

2575

2576+

7924

2313

12694
7974

Q064
7884

2277
814a
1218
2110x
8674
Q07«4
9084
1078-

S
R

1259

2158#
1816

1280

1281

2569+

1263

1826
26528

1910

2566

2567+

2568

(ZDUF=D MACY'1 30A(1052)
21-NOv-78
18~JUL-78 15:59
CZDUFD.P11
HRXCSR
HRXDBU
ATXCSR
HTXDBU

1074~

O1
O
O

TCOUNT
INBUF
INIFLG
INSTER= 104404
INSTR - 104403

INSTR?
1SYMOD= Q00000

IVBASE
IVKEEP
JMRBY
KEEPAD
KEEPIV

LASTAD
LESST
LEVELO=
LEVEL1=
LEVELZ2=

LEVEL3=

LEVEL4=
LEVELS=
LEVEL6=

LEVEL7=
LIGHTS
LIMITS
LOBITS
LOCK
LOGICA
LOKFLG
LOLIM
LPCNT
LSTERR
L1ESS

00
00
00

01
000000
000040
000100
000140
000200
000240
000300
000340

006660

MCRLF
MDATA

7634
7628
768
7604
7594

BL7#
2126
2112«

8574

19954
9con

il
i

on)
OB N—=ONWVOW

VSN
o

el cd

) cd
md

el
e

md
el

e
el

)

NN — N

%OOOOOOOOO 32

8194

MPFAIL
MM
MR
MRANGE
MRE GAD
MRESET

1057»
1059+
1061+
1060+

1943

—

MLASTD
MLEVEL
MLOCK
MMULT

8894
894
8974
8954

1070«
7664
7654
7644

1024
21404
2144

1336+

2252

25404

1155

1165

1179

1192

1867
1152

1154

1226

1967

1607

1672

1196

1200

1204

1295

1690

1692

1740

1742

1227

25584

1298

1033w

1991«

21604
1426+

2161

21574
2032+

2082
2227

2058
25424

1798

1875

1341

1431
1220+

cL4L7n

24774

1318

2481#

1516+

1606+

2049

2033
2278

2036+
2280+

2366

2190

2399

26678

1521

1¢11

16%¢6

176¢

6.7

1497

1517

"582

1299

2142
1010~
1015+
1070
1039

1053
24354
24908
2L84Ln
2428

1099
80%¢

1119

SEQ 0058

2558
2557

9304
"N
1166
1296
1120

1156

2257

123%7

2523

2364
2095

TABLE =-- USER SYMBOLS

1061

1205

8184

21004

1064

1650

—

=
MINT
M]TSEX

2116

CIAY

1277
2216

MEPASS
(O
MEXT
=0
MEXT,
0

1185

1019
1189
1098
2393

2109«
8594
8634
950
1037
0
O

26484
26504
26544
26564

9194
97%#
9774
1308
7964

CROSS REFERENCE

1240

2033

2085

PAGE 62

1242
12646
1248

858+

1181

9424

MAP

MCOW

1076~
1080
1082

15:52

1988+«
1237+
1047#

24684
24664
2457m

26154
1337

CZOUF=-D MACYY1 30A(1052)
21-NOV-78
C2DUFD.P11
18-JUL~78 15:59
MSTATY
MSYNC
MTDATA=
MTITLE
MTSTPC
MULTD
MVECTO
MWIRESL
MWIRES
MWIRESG
NEXT
NOPAR =
NOSYNC
ODDPAR=

012172
011660
(040000
Q10750
011555
001222
011002
012041
011774
011726
001116
(000000
001300
001000

ONCE
OPTCLR
out
OUTCRY
oUTMUL.
OVRRUN=

001522
001201
010706
006620
002476
040000

0DD8

012662

PARAM = 104405
PARAMT
007366
PARCSR

013100

PAREN = 001000

PARER PARERR
PARTI
PASCNT
PFTAB

15:52
PAGE 63
CROSS REFERENCE

1792
1262
1180
8064
1021
1309
888«
110
1201
1167
1193
8564
801
YT
802w

1794
2531
2494
2584
2611a
24824
1056+
24164
cS15#4
25084
25014
1335w
1340
1052
1749

1620
887#
2380
1944
1128
7874

1023
1055+«
2382
19834
1153

25984

9814
21154
1077
1749«

791

1869

1871

1122

1123

1425+
1430

1219+

TABLE == USER SYMBOLS

1223

1287

1946

1515

1605+

1689+

173G

1520

1610

1203
2384

2400

1132

1157

1167

1310

239%

1243
1793

13420
1801»

1357«
1870

1432+
1878+

1447+
2566+

1522+
26514

1637

1612+

2120
2154n
1012«

21314

2141

2143

2145

1990«

1991

14666

1532

1556

1622

1646

1100
213

945
T

1071
1007

1232«
1212+

1999+

2354

2133

23764

239Ce

2400

RECACT
REGACT
REPLAY

RESEC

004000
001320
006524

0013072

734
7324
7364
2096
77%
9 3n
1963

931y

2018

2038

2324

RTYY]

PRTDU
001324
PS
- 17?777¢

(10046
005746
024646
010572

1866+

1222
2388

23684

PUSHRO=
PUSH1SPUSH2S=
RDSW

1789«

78S#
2118
213
8614
2362

7354
7334
7374

SEQ 0059

1878

010000
007442
007524
001130
010564

POPRO
012600
POP1SP= 005726
POP2SP- 022626

1627«

1691+

1699

2317

2314

1382
1062
1969

1376
1230
1971#

1054

1221«

2348
1993
2311

19998

010332
010466
006670

2308
2342
1964

RINTENRISDU
RIVDU
ROTADD
RPOKE

000100
001334
001326
001220
012574

7784
LS
L6
Qe
2584Ln

1067
106%
1063
2594

123%
1233
1127

113Ge

161

1143

1948

1151

1231

1958+

1961

1965

8554

1017«

1313

117

2001«

2018«

2019

2038«

2039

2324

2326

RTRN

00114

98SH
7704

231 1a

14642

RESREG
RESTAR
RESTRT

RESOS - 104407
RING
- 040000

1741

2367

0000
0o 0o 0o Co

X 2l »

1202

1206

1297

1220
1455+
1767

1459«
1821+

1549+
1839

1047

1085

~Y —

—_
-

OWwW

1875

— b

[0
1V, B NP
o8

Pal oW ¥
£S5

o~y

~ OO

1798

1746

—

1696

1934

anwn

——

000200

000100

1857

Sw07

Sw0O6

1780

1493
1805+

1523
1845

1532

1882+

1556
1922

1608

1652

1700

1723

1750

2692

—

000176
010714
000001
000002
000004
0000°0
000020
000040

(oY Yo,
— O~
—NO

SWREG
SWREGC
=
SwO00
SWO1
=
SwO2
Sw(3
SWO%
SW( 5

1730

1466
1769

2
2696

1639+
1898«

1717

2593

223w
2325

2357

002000
(010055
002000
001100
001300
000010
001245
000400
007550
001100

1»

1753«

SIX
SPACNT
SRD
STACK
STATUS
STID
STFLG
STPSYNSVOS
SWR

1428
1926

’\JN\I8
— b P\ }

001166
001170
001172
104406
104400
104401
000020
001200
003144
104412
004000
001177
001140

001164

664
664
664

O
(o]

SAVRS
SAVRS
SAVSP
SAVOS =
SCOPE =
SCOPT =
SEND
=
SEREC
SETFG
SETFLGSEVEN
SEXMIT
SHIFI

SAVR3

664

664
664

(o
bel

001174
001156
001160
001162

SEQ 0060

1562

SAVP(
SAVRO
SAVR1
SAVR2

TABLE == USER SYMBOLS

1442

RXDONE= 000200
RXERR
100000

1376
1673

013074

1949

1073«

RXDBUF

00643C
01307C

AN TN W, NT,V 1 IV, ¥
[ R
R
e e R YY)
£ 0000000000 JIN
WH WO OO

RUNF
RUNIT
RXCSR

—_
N
WO
O=NO

veaner

wwnenn

-‘mbo*\l:l.\l\l\lo‘

—o—bf\)_‘—l —

RUND

RUNE

CONLNONU
O
[@F 2T o PEIVIIV IV, IV IV, [V, (W, IV, |
N — — N NO VYW NN N NN
»
»
xn

teteene
(222 XX

A S JA LS AP LAV LV | N 1aV 1a V)

wwanne

WENIW——
bt s 2

RUNB
RUNC

—

RUNA

2370
78?:

15:52
PAGE 64
CROSS REFERENCE

= 000004
cZCccc

RTS

C2DUFD.P11

30A(1052)
21-NOV~78
18-JuL-78 15:59

(ZOUF=D MACY11

1047

1217

24604

127

1293

1306

2023

2030

2047

(ZDUF=D MACY11 30A(1052)
21-NOv~78
CZDUFD.P11
18-JUL-78 15 :59

693
884w
7954
7944
7804

TIST
TXCSR

1261

001106
006102
001110
001112
010140
013032
001126
003446
003774

8454
1312
8504
8514
22674
26304
860#
1311
1335

005410

1689

005622
006102
- wesane
006774
C1%104

1673

1703

2541
2615
2590
2606+

2625+
2598w
2616+

2627

2602
2620*

2615+
2623+

2619+

1424«

1604

1688+

1738~

1788+

1865+

1305+

1656

2072

2082

1276

948N
Q4L7a
8484

2383

2086

1753

1805

1882

2385

200

1425
1515
1605

1739
1789
1866

1290+
1079+
1402+
1577+

1617s
1696+
1794

2571+

TXDBUF

013110

1081«
1766+
810w

TXDONE
TXINTE=
TYPDAT
TYPE
=

000200
000100
(010320
104402

8'1a
2297
9754

TvAMSG

V10270

2295

2226

07+

48+

117
1S18
TSTO

1613

T1ST16

1582

1878

870H

003262

004322
004650
005176

1523

1513
1574
1STS

1644

BN 2

TKDBR
TLAST =
TPCSR
TPDBR
TRPOK
TRPREG
TSTNO
1ST1
1ST2

1554
1870

JNE NS B

001332
001330
001104

THRU

1801

TISDU
TIVDU
TKCSR

873w

1464

L 2

001152

001154

1374

1793

2358w
2608+
2588
2599+

TEMPL

TEMPS

87o#

1274

2205
2586+
2585
2197+

001150

1340
1343

TEMP3

910#
2197
8704
871a

1691

D D

001232
012264
001144
001146

1052+

) —d D —Dd d b

TABLE
TEMP
TEMP]
TEMP2

8204

2276
2023

—

SW15
=
SYNCNO
SYNEXT=
SYNINT=
SYNSCH=

694N

SEQ 0061

TABLE == USER SYMBOLS

SN~y
—
WL
£~ 00
WO =~

100000
001176
020000
030000
000020
SYSTST= 014000

= 040000

2320
2047
2322
2030

[
NN

700#
699#
6984
6974
696
6954

— b ) b
b e s —d —
QO N0
O N
NN
00 N0 - = NONUWWH
O
—=W=H
OO NN —N)

000400
001000
002000
004000
010000
020000

SWld

=
=
=
=
=
=

AOWNO0
O N SN W
WO
QO
o
~N —

SWOB
Sw09
SW10
SWwi1
SWw12
SW13

15:52
PAGE 65
CROSS REFERENCE

1347«
1440
1531«
1630
1740»
1831«

26534

1448+
2575«

2094

2189

CZDUF=D MACY11 30A(1052)
21-NOvV-~78
CZDUFD.P11
18-JuUL=-78 15:59

P
USER
vOID

003224
= 000000
= 000001

ZERO

006436

010722

2389
6774

24054
1335

2393
2%
&774

c4O8a
26064
1334

9634

971

2228«

SMNEW
010737
TMSWR
010727
N
= 000010

1 34

000015

$67
.

002142
- 013350

.BEGIN
.CKSWR
.CNTLU
.CNVRT
.CONVR
.
.ERRTA
LHLT
.INSTE
.INSTG
.INSTR
LINST1T

.MSG

.PARAM

.PFAIL
.RESO5
.SAVOS
.SCOPE
.SCOP1
.SETFL
.START
.JRPSR
.TRPTA
LTYPE

784n

002630
010574
010650
007640
007634
006362
013040
010160
007274
007300
007156
007176

007200

007326

01043C
007602
007542
006712
007076
010060
001420
010126
001366
GO7116

19564

1789

1788

1790#

17904

9954
1048

997
10854

940

941
»

8224

1083
994
996
990
988
1866

8254

954a

1087
23754
23904
2191
2185
19424

14274

1515

15174

1605

16074

1689

16904

1739

17404

13374
1865
973

14624
1867#
9754

14274
19364
9774

1514

15174

1604

16074

1688

16904

1738

17404

9754

9814

9834

9854

9874

9894

9914

9934

8354
962n

842n
94 3n

928#
944n
9574

9294
9454
9584

9304

931

9324
94, 8#
9614

9334
94N

934n
9504
2540m

9384
951#

9394
9524

9554

12104

9564

2094w
2068+
2083
2073%

2386+

1009

2355

20924

982

21064

986
984
972

21794
21654
20064

992

22478

838
830

9684
976

SEQ 0062

1425
18674

20N
978
20724
2070

974

TABLE == USER SYMBOLS

13374
1866

26344
22754

8¢c6

22374

2290
828
980

1279

2199«

[

§ENTG

8174

010052
o

WRDCNT

12740

15:52
PAGE 66
CROSS REFERENCE

20464

10074
2264m
2269

205«#

1954

2387

9464

9594

9474
9604

24104

25414

25424

SDNA
$EOP
$GETFL
$GE TPA
$GETSY
$HEADE
SHLT
$INSTR
$1S08
SMATCH
$MRR
SMRRW
tMRW
MSG
$PARAM

6778
6774
6774
6778
677#%
6774
6774
6774
6774
6774
677N
677n
6778
6774
6774

$POKE

677

$SPFAIL

$POKER
SRCNET
$RE CAC
$REG
$RESET

6774

1755
6774

SRXACT
$SCOPE
$SCOP1
$SETFL
$SETVE
SSTART
$STRIP

$TRAPS
$TRPAR
$ TRPDE
$TRPSR
$TSTNO

6774
6774
6774
6774
6774

$TYPE
$UN]BU
SVAR]A

1900

1740

1869

1731

1858

1399
1632

1405
1648

1644
1657

1452
1669

—

"823

TABLE == MACRO NAMES

1417

1501

1591

1350

1366

1636

1440

1456

1526

1530

1546

1616

1620

1636

1705

1709

1402

1427

1492

1517

1582

1607

1672

1690

1692

1740

1742

1792

1794

977

Q79

981

983

985

987

989

991

993

995

1604

1688

1738

1/88

1865

-——

1489
1726

1624

1495
1771

1534
1776

WSS

—"\)

——

ek
—

—

o0
N

6774

6774
6774
677n
6774
1869
6774
6774
6774
6774
6774
6774
6727

$SYMBO
$SYNCR

1387

677
6774
6774
67748
6774
6774
6774
6778
677X
6774

1362
1579
1929

~N &S
o~

6774

PRGFRT
PUSSYF
RSETUP
TSETUP
$BEGIN
$BINAR
SBUFFE
$CABLE
$CATCH
$CLRVE

$SCONVR

1354
1567

PRGEND

7384
1558
1852

-—

HLT

15:52
PAGE 68
CROSS REFERENCE

[0 %
~NO~
[Vale)

(ZDUF =D MACYT 30A(1052)
21-NOvV-78
18-4UL-78 15:59
CZDUFD.P11

6774
6774

6774
6778
€774

971

97t

1334

1426

2259
2051

841

“514

CZDUF-D MACY11 30A(1052)
21-NOV=78
CZDUFD.PIN
18-JUL-78 15:59
SWORDF
$WORDJ
$WORDP

6774
6774
677%

. ABS.

013350

ERRORS DETECTED:

15:52

PAGE 69

CROSS REFERENCE

TABLE == MACRO NAMES

000
O

CZDUFD.BIN,CZDUFD.SEQ/ RF/SOL/NL : TOC=CZDUT1.HLO/EQ:RUNF ,CZDUT1.PAR,(ZD 11 . KET CZDUFD.P11
RUN-TIME: 6 G .9 SECONDS
RUN-TIME RATIO: 103/76-6.1

CORE USED:

18rx

(35 PAGES:

SEQ 0064