Digital PDFs

AH-8697D-MC

January 1979

65 pages

Original

32MB

view download

OCR Version

44MB

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_gray.pdf

OCR Text

OFF-LINE COMBINED TEST

AH-8697D-MC

CZDUFDO

JAN 1979

(ZDUF=D MACY11 30A(1052) 22§mv-78
CZDUT1.HLO
20-NOv=78 1

PAGE
1

IDENTIF

ICATION

PRODUCT

AC=-8696D-MC

CODE
:

SEQ 0001

PRODUCT NAME
:

CZDUFDO DU11 OFFLINE COMBINED TESTS

RELEASE

JUN 1978

DATE:

MAINTAINER

THE

15:52

DIAGNOSTICS

INFORMATION IN THIS DOCUMENT

IS SUBJECT

TO CHANGE WITHOUT NOTICE AND

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

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

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE Of
RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

(C)

1973,

7978 BY DIGITAL

EQUIPMENT CORPORATION

CZOUF=D MACY11 30A(1052) 621;~0v-78
CZDUTT.HLO
20-NOvV-78 1

15:52

PAGE 2

SEQ 0002

GENERAL DESCRIPTION
THIS DIAGNOSTIC

CAN CHAIN 16 DU11'S. THIS MEANS THAT
16 DEVICES CAN BE SEQUENTIALLY EXERCISED.
THE DIAGNOSTIC
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,

AND CONTINUES EXERCISING ALL DEVICES
HAL TED.

THE

DU11

OFFLINE

COMBINED

IN THIS FASHION UNTIL

TESTS VERIFY

THAT

THE

TRANSMITTER

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

PDP=11 FAMILY STANDARD COMPUTER WITH OR WITHOUT HARDWARE SWITCH
REGISTER (LOC. 177570)

DUTT
ONE

2.2

CONSOLE

TELETYPE OR EQUIVALENT

STORAGE
THE

SYNCRONGCUS/1SOCRONOUS OPTION

PROGRAM LOADS AND RUNS

IN 4K OF

MEMORY,

LOADING PROCEDURE

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

FOR ABSOLUTE LOADER

017500
037500
057500
077500
117500
137500
157500

STARTING PROCEDURE

PELPIIRPR

P00

NOTE:

4004044044440

2444442444444 4444404444440 044044

BEFORE PROCEEDING IT IS IMPORTANT TO
TO REALIZE

ONE

DOESNOT

HAVE THE DU11 SET 'JP TO THE
DEFAULT PARAMETERS ( SEE SECTION

4 DUF =D MACY11_30A(1052)
21-NOV-78
czoun
1. HLO
4
2 0-NOV-788 16:48

15:52

PAGE 3

SEQ 0003

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

QUESTION ROUTINE.

PEPLLLLT 4440444004444
4 0344444444444 4 3494449124441 4444444444444 444444444444+

4.1

CONTROL SWITCH SETTINGS
NOTE:

SOFTWARE SWITCH REGISTER IS DEFINED AS LOC. 176, WHILE
THE SOF TWARE DISPLAY REGISTER IS DEFINED AS LOC. 174.

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

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES

Sw00=1

4.1.3

TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART
01}
(ONLY IN SINGLE DEVICE TESTS)

4.1.4

TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART
(ONLY IN SINGLE DEVICE TESTS)

SW02=1

NOTE1: IN GENERAL
SWO?1 WILL BE USED WHEN SW02=1 IS USED
NOTE2: WITHOUT SWO1=1
"LOCK ON TEST'' WILL DEFAULT TO TEST 1
STARTING ADDRESS
THE

STARTING ADDRESS FOR ALL

THE
THE
THE

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

TESTS

000200
000200
TEST IS
000200

000200

PROGRAM AND/OR OPERATOR ACTION

INITIAL PROGRAM START
4.3.1.1

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 WILL

NOTE:IF

THE

SOF TWARE

TYPE ‘DU11

SWITCH REGISTER

CZDUF=D TAPE F'' (ONCE ONLY)

IS SELECTED

THEN THE

FOLLOWING

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

15:52

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

4.3.1.7 THE PROGRAM WILL
4.3.2

TESTING

TYPE 'R'' TO INDICATE THAT IT IS ABOUT

,AND THEN TESTING WILL BEGIN

PROGRAM RESTART WITH ALL SWITCHES DOWN

4.3.2.1
4.3.3

SEQ 0004

TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:

SWR=XXXXXX NEW=

TO START

PAGE 4

THE PROGRAM WILL

TYPE 'R'' AND WILL

COMMENCE

TESTING

PROGRAM RESTART WITH SWO00=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 IS SELECTED THEN THE FOLLOWING

SUREXKKKK NEW= | (REFER TO SECTION 5. FOR OPERATOR'S OPTION)

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

4.3.3.5 TYPE IN THE ADDRESS OF

THE FIRST RECEIVER CONTROL

TESTED

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL

AND WILL

THEN REPEAT

THE MESSAGE OF 4.3.3.4

TYPE """’

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

3.3.7 TYPE
FOR

IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS

THE

DU11

TO BE

TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL

AND WILL

THEN REPEAT

THE MESSAGE OF

4.3.3.6

TYPE ‘"'

4.3.3.8 THE PROGRAM WILL TYPE ''ARE YOU RUNNING MULTIPLE DEVICES ?*
(Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.5.9 TYPE

IN THE APPROPRIATE ANSWER

<CARRIAGE

RETURN>

IF AN INCORRECT ANSWER IS GIVEN,

AND WILL

THEN REPEAT

YES OR NO FOLLOWED BY A

THE PROGRAM WILL

THE MESSAGE OF

TYPE '"TM*'

4.3.3.8

If A "NO'" ANSWER IS GIVEN: JUMP TC SECTION 4.3.3.12
[F A "'YES'' ANSWER IS GIVEN:THE NEXT QUESTION IS ASKED

(Z DUF=D MACY11_30A(1052)
21-NOV-78
CZDUT1.HLO
20-NOv-78 16:48

¢.3.3.10
6.3.3.1

15:52

PAGE 5

SEQ 0005

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

TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER

ADDRESS OF

THE DU11

TO BE

TESTED FOLLOWED BY A <CARRIAGE RETURN>

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

TYPE """

AN 'OUT OF RANGE'' ADDRESS IS TYPED

IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE

PROGRAM WILL TYPE 'OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS=''
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
6.3.3.11.¢
TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL
REGISTER ADDRESS OF THE DU11 TO BE TESTED FOLLOWED

BY A <CARRIAGE RETURN>

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

TYPE *7*'

IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED...........
....5CHOOLS OUT......... THERE IS NO PROTECTION FOR THIS.
THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM
1ST DEVICE ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES
TYPED FOR FIRST AND LAST DEVICE.

OBSERVE LOCATION @ ACTREG:
4.3.3.12

THE PROGRAM WILL

TYPE ‘DU PRIORITY LEVEL=-'' AND

WAIT FOR AN INPUT FROM THE

4£.3.3.13

SEE SECTION 7.2

TELETYPE KEYBOARD

TYPE IN THE APPROPRIATE DEVICE PRIORITY LEVEL OF THE
DU11 OR DU1T1'S TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>
E?O;E)THA'I?LL %ULTIPLE DEVICES MUST BE

THE

SAME

PRIORITY

AND
6£.3.3.14

4.3.3.15

AN INCORRECT LEVEL

TYPED

,THE PROGRAM WILL

REPEAT THE MESSAGE OF 4.3.%.12

EEIPECYEB

THE PROGRAM WILL

TYPE '# GOF

SYNC

CHARS

TYPE ‘"'

(1 OR 2)="" AND WAIT FOR AN INPUT FROM THE

TYPE

TELETYPE

IN THE APPROPRIATE ANSWER ‘“1'* OR '°2'' FOLLOWED

BY A <CARRIAGE RETURN>. (NOTE:ALL MULTIPLE DEVICES MUST
BE THE SAME)
IF AN INCORRECT ANSWER IS TYPED

AND WILL

REPEAT

THE MESSAGE

,7THE PROGRAM wiLL

4.3.3.14

TYPE %"

hJ
>

(ZDUF=D MACY11_30A(1052)
21-NOV-78
CZDUTT.HLO
20-NOV=78 16:48

6£.3.3.16

6£.3.3.17

15:52

PAGE 6

SEQ 0006

THE PROGRAM WILL TYPE '' IS SEC XMIT JUMPER #6 IN ?

AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

(Y OR N)="'

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES
MUST BE THE SAME)

[F AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE "'’
AND WILL REPEAT THE MESSAGE OF 4.3.3.16
4.3.3.18

THE PROGRAM WILL

TYPE "‘IS SEC REC JUMPER # 5

IN ?

(Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.5.5.19

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

THE

SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE """’
AND WILL REPEAT THE MESSAGE OF 4.3.3.18
4£.3.3.20
4.3.3.21

# &

IN ?

THE PROGRAM WILL

TYPE '‘IS OPT CLR ENABLE JUMPER

(Y OR N)="" AND WAIT

FOR AN INPUT FROM THE

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED
BY A <CARRIAGE RETURN>.
(NOTE: ALL MULTIPLE DEVICES MUST BE
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL
AND WILL REPEAT THE MESSAGE OF 4.3.3.20

4«.3.3.22

4.3.3.23

SAME)

TYPE "'’

MODE EXTERNAL ? AND ...... DO YOU HAVE THE EXTERNAL MODEM
BYPASS JUMPER CONNECTOR ON ? (Y OR N)='' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY

A <CARRIAGE

RETURN>.

(NOTE:

ALL

MULTIPLE

THE PROGRAM WILL TYPE
HAS STARTED AND WILL COMMENCE

DEVICES MUST BE

'R'' TO INDICATE
TESTING AT TEST

PROGRAM RESTART WITH SW01=1
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE

THAT
1

IS SELEZTED

IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,
AND SELECT SWOO=1 AND ANSWER ‘NO'' TO THE MULTIPLE DEVICE QUESTION
SEE 4.3.
LOAD 000200

THE

TYPE """

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

4.3.4.1

THE

THE PROGRAM WILL TYPE ''ARE YOU RUNNING IN MAINT.

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

TELETYPE KEYBOARD

SAME)

15:52

NNy

C DUF<D MACY11_30A(1052)
21-NOV-78
s
20-NOV-78 16:48
CZDUT1.HLO

PAGE 7

SEQ 0007

6£.3.4.2 SET SW01=1
4£.3.4.3 PRESS START
NOTE:IF THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
WILL BE

TYPED AFTER THE PROGRAM IDENTIFIES

SWR=XXXXXX NEW=

4.3.4.4
4.3.4.5

(REFER TO SECTION 5.

THE PROGRAM WILL TYPE '‘TEST PC-"" AND WAIT FOR AN INPUT
THE TELETYPE KEYBOARD

FROM

TYPE

IN THE ADDRESS OF

THE

TEST AT WHICH THE PROGRAM IS

STARTED FOLLOWED BY A <CARRIAGE RETURN>

4.3.4.6 THE PROGRAM WILL
TESTING AT

NOTE:

THE

THAT

TYPE

'R'' TO INDICATE

SELECTED

CARE MUST BE

.SINCE THERE

5. 5.9

ITSELF:

FOR OPERATOR'S OPTION)

TEST

THAT

IT HAS STARTED

TAKEN WHEN THIS FEATURE

IS USED

IS NO PROTECTION AGAINST SELECTING AN ADDRESS

IN THE MIDDLE

TEST

PROGRAM RESTART WITH SW02 =1

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

IS SELECTED

4£.3.5.1 LOAD ADDRESS 000200
4.3.5.2 SET SwW02 =1
NOTE: [T MAY BE ADVANTAGEOUS TO SET

SWO1=1

(OPTIONAL)

4.3.5.3 PRESS START

NOTE:IF

THE SOF TWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING

4.3.5.4

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

4.3.5.5

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A
<CARRIAGE RETURN>

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

IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED
AND THE PROGRAM WILL TYPE "R'' TO INDICATE THAT iT 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 IT HAS STARTED
TESTING AT TEST

AND WILL REMAIN IN TEST

UNTIL HALTED

OR
IF ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON

THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SW01 =1
[T
WILL PERFORM AS IN SECTION 4.3.4
ALLOWING ONE TO FREEZE
ON A SELECTED TEST RATHER THAN DE7AULTING TO TEST 1

I((;'DLI-D
MACY11_30A(1052)
ZZENOV-78 15:52 PAGE 8
DUT1.HLO
20-NOV-78 16
5

6.4

SEQ 0008

STATUS MAP

THE

STATUS MAP

WHICH WILL ALLOW

THE

IS AN AREA OF

TRANSFER OF

THE

DUT1

PARAMETERS

DIAGNOSTICS,

BETWEEN DIAGNOSTICS.

IF YOU WISH TO TEST
A DU11
, WHICH IS NOT AT THE DEFAULT
VALUES ,YOU NEED ONLY GO THROUGH THE
TEDIOUS QUESTIONING

AND ANSWERING ROUTINE ONCE.
ALLOW

THE

FOLLOWING COMBINATIONS OF

YOU ACCESS

THE

SW07=1

START AT 200

NOTE :

STATUS MAP,

THE DIAGNOSTIC WILL

AND BYPASS ALL OF

IT IS

SWITCH REGISTER SETTINGS WILL

GO TO THE STATUS MAP

THE QUESTIONING ROUTINE.

EXTREMELY IMPORTANT THAT EITHER YOU HAVE

JUST ANSWERED THESE QUESTIONS DURING A PRIOR

DIAGNOSTIC

OR THAT YOU HAVE MANUALLY ENTERED THE CORRECT VALUES
FOR VECTOR ADDRESSES ETC.,IN THE AREA DESIGNATED
FOR THE STATUS MAP., IT IS IMPORTANT THAT
THIS
BE PERFORMED

BEFORE

STARTING AT 200.

THE DIAGNOSTIC HAS NO METHOD
TO DETERMINE
THAT THE STATUS MAP HAS INDEED
BEEN_LOADED CORRECTLY.
THE DIAGNOSTIC ASSUMES THAT WHEN SW07=1 THE VALUES IN
THE STATUS MAP ARE THE VALUES TO BE USED .

THESE VALUES CAN BE THE WRONG VALUES
, BUT THE
DIAGNOSTIC WILL NOT REALIZE THAT A MISTAKE HAS BEEN MADE.

IF BOTH SWO7 AND SWOO (SWITCH REGISTER SWITCHES)

ARE SET

,(EQUAL

SEEING SWO7 SET,

USED.

TO 1),

THE PROGRAM WILL

IGNORE SWOO AND

THE VALUES FROM THE STATUS MAP WILL BE

TO USE THE DEFAULT VALUES FOR THE DU11'S

THE OPERATOR MUST SET SW00=0 AND SW07=0.

IS EXPLAINED IN GREATER DETAIL IN SECTION

THE USE OF

THIS DOCUMENT.

THE FIRST TIME A PROGRAM IS LOADED OR THE FIRST

A PROGRAM

IS ALTERED VIA

4.3

TIME

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 RESELCCTED

BY PUTTING SWO00=1.(ON)

THE MAP WILL

STATUS MAP
1300/

177777

i
i

LOOK LIKE:

Sw00

DUF=D MACY11_30A(1052)

NPy

(

DUTT.HLO

21-NOV-78

15:52

20-NOV=78 16:48

PAGE 9

SEQ 0009

1302/ 000000

13047 177777
THE BYTES ARE

1300
1

THE NUMBER OF SYNCHRONOUS CHARACTERS REQUIRED FOR

1301

SYNCHRONIZATION.
SEC
TRANSMIT JUMPER

1303

OPTIONAL JUMPER

1302

SEC RECEIVER JUMPER

1304

MULTIPLE DEVICES (NO=0O , YES=

1305

AND

y 8

DEFINED AS FOLLOWS:

EXTERNAL MODEM BYPASS?

THE BYTE

IS O ,

IS 377 ETC.

(NO=0

,YES=

THE JUMPER IS NOT CONNECTED
THE JUMPER SHOULD BE

CONNECTED.

OPERATING PROCEDURE

THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLCWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) IS USED.

:
CONTROL
THIS PROGRAM ALSO SUPPORTS

THE

DYNAMIC LOADING OF

TYPE

CONTROL G <*G>;

THE

SOF TWARE

THIS CAN BE ACCOMPLISHED BY

THIS WILL ALLOW THE

TTY

TO 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
OF

°''NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE

THE FOLLOWING AT THE

TYPE A NUMBER

TTY:

TO BE LOADED

INTO LOC.

176 FOLLOWED BY A <(R>.

(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

IF A CONTROL U <*U> IS5 DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.

OPERATIONAL

SW15
Swi4
w13
Swll

=1
=1
=1
=1

SWITCH SETTINGS

HALT ON
LOOP ON
INHIBIT
INHIBIT

ERROR
CURRENT TEST
ERROR TYPEQUT
ITERATIONS

C JDUF=D MACY11_30A(1052)
21-NOV=78
C IDUT1.HLO
20-NOV-78 16:48

SW10 =1
SWO8 =1
SwC7 =1
Sw02 =1
SwO1 =1
SW00 =1

15:52

PAGE 10

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

ERRORS

6.1

ERROR HALTS
THERE

ARE

FOUR DISTINCT ERROR

TYPEOUTS

NOTE: IF THE SOF TWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT
THE THE OPERATOR IS REQUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE.
THE

FOLLOWING WILL BE

SWR=XXXXXX

NEW=

TYPED:

(REFER TO SECTION 5.

PC+2 = ERROR P(

WHERE PC +2 IS THE ADDRESS OF

THE

FOR OPERATOR OPTION)

CALL TO THE ERROR HANDLER +2

REFER TO THE ABOVE "HLT''
IN DIAGNOSTIC FOR ERROR DESCRIPTION

(CHECK ADDRESS @ RXCSR:

TO LOCATE

TEST WHEN RUNNING MULTIPLE

PC +2 = REGISTER ERROR PC
REGISTER

EXPECTED

T16XXXX

6.1.3

ACTUAL

YYYYYY

222712

WHERE

16XXXX

IS THE ADDRESS OF

WHERE

YYYYYY

THE

WHERE 777777

THE ACTUAL

THE FAILING DEVICE REGISTER

EXPECTED CONTENTS OF

CONTENTS OF

THAT REGISTER

PC +2 = RECEIVER ERROR PC
REGISTER
EXPECTED
16XXXX
YYYYYY

ACTUAL
227117

WHERE

16XXXX

THE ADDRESS OF

THE

WHERE

YYYYYY

THE EXPECTED DATA CONTENTS OF

WHERE 727777
o)

THE DEVICE PRESENTLY UNDER

DEVICES

1S THE ACTUAL DATA CONTENTS OF

PC +2 = TRANSMITTER ERROR P(

EXPECTED

T16XXXX

YYYYYY

16XXXX IS THE ADDRESS OF

WHERE

YYYYYY IS
1S

ACTUAL

4 74
¢ ¢

WHERE

WHERE 772777

FAILING RECEIVER

THAT REGISTER

THE FAILING TRANSMITTER

CONTENTS OF

THE EXPECTED CONTENTS OF
THE ACTUAL

(RXDBUF)

THAT REGISTER

(IXCSR)

CZDUF=D
(Z
MACY11 _30A(1052)
21-NOV-78
€2 DU 1.HLO
20-NOv-78 16:48
1

15:52

PAGE 11

SEQ 0011

6.1.5

ERROR DESCRIPTIONS
SEE LISTINGS FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

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

REQUIRED TO CONTINUE

6.2.2

TESTING

Sw15 =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

,TO CONTINUE TESTING

,PRESS THE PROCESSOR

THE 'MLT'' WILL BE DISPLAYED IN THE DATA LIGHTS

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL 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 TO

RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL

TROUBLESHOOTING AIDS

ERRCNT:

& PASCNT:

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

6.3

END OF PASS ROUTINE
THIS

TYPEQUT

IS MENTIONED HERE

IT IS IN THE FORM:

FOR CONVENIENCE

END OF PASS TAPE Y
16XXXX
= DEVICE
WHERE

WHERE

16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS

TO INHIBIT

THE

THIS

TAPE LOADED

TYPEOUT - TURN TELETYPE OFF

—

RESTRICTIONS

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

IF ALL DEVICES LNDER TEST HAVE

YOU CAN CHANGE

'‘ZERO:

(VECTORS)'' TO "ZERO:

ADD

THE SAME

#10 BASEIV

#0,BASEIV"";

THEY

INTERRUPT VECTOR

sNEXT BLOCK

THEREBY THE VECTOR ADDRESSES WILI NOT BE

UPDATED AFTER EACH PASS.

DISQUAL IFYING DEVICES WHEN RUNNING MULTIPLE DEVICES

(ZDUF <D HACV11230A(1052)1622§N0V-78
94 DUT1.HLO
0-NOV-78

15:52

PAGE 12

WHEN RUNNING MULTIPLE DEVICES

AN ACTIVE BIT IS SET

FOR EACH DEVICE RUNNING UNDER TEST

DEVICE O

SEQ 0012

,BIT 15 FOR DEVICE 15

IE.

BIT O FOR

TO DISQUALIFY DEVICES:

7.2.1

IF DEVICE O IS TO BE DISQUALIFIED ,SIMPLY RESTART

PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE.

7.2.2

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

CONTINUE WITH THE DEVICE

IT WAS

IN BEFORE HALTING.

OR coop. LOAD 000200 WITH SWOO =1 AND DEPRESS START....

ANSWER THE QUESTION :1ST DEVICE : ETC.....c0vv..
«+..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
7.3

CABLE DELAYS
NOTE: EXTERNAL LOOP BACK TESTS ONLY

73,1

TO PROVIDE

(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 THE 'XOR'' TESTER ,THE BRANCH AROUND THE ‘‘XOR''
CODE MUST BE PATCHED TO A "NOP'‘. (SEE LISTINGS FOR DETAILS)

DEFAULT PARAMETERS:
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR:

VECTOR ADDRESSARE

YOU RUNNING MULTIPLE PEVICES

?- NO

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

SYNC

LEVEL 5

CHARS SELECTED -

IS SEC XMIT JUMPER # € IN -

DUPRT:
2

YES

IS. SEC REC JUMPER # 5 IN 7= YES
IS OPT CLR ENABLE JUMPER # 4 IN 7=

DURIV:

770

MULTD:

LASTADD: C
LEVEL S

SYNCNO:

377

SEXMIT:

377

SEREC: 377
YES OPTCLR:

160040

377

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

15:52

PAGE i3

DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER

CONNECTOR ON (H315)-

YES

SEQ 0013

JMRBY: 377

PROGRAM DESCRIPTION

9.7

THIS PROGRAM PERFORMS THE OFFLINE COMBINED (TRANSMITTER & RECEIVER)
CABLE TESTING OF THE DEVICE
SEE LISTING FOR DETAILS

10.

FLOW CHARTS: RECEIVER FLOW,TRANSMITTER FLOW,TRANSMITTER & RECEIVER FLOW

11,

L ISTINGS

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

675
675

000000' 000000G

15:52

PAGE 15

SEQ 0014

CZDUF=D MACY11 30A(1052)

CZDUFD.P11
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693

21-NOV-78

18-JuUL-78 15:59

15:52

PAGE 18

SEQ 0015

.ENABLE ABS

;DU11 CZDUF-D_TAPE F
:COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
s 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''

sAND THEN RESUME TESTING

sSWITCH REGISTER OPTIONS
100000

SwW15=100000

;=1,HALT ON ERROR

020000

SW13=20000

:=1,INHIBIT ERROR TYPEOUT

697
698

004000
002000

SW11=4000

:=1,INHIBIT ITERATIONS

701

0004
000200

Sw09=1000
SW08=400
Sw07=200

:=1,LO0OP WITH CURRENT DATA
:=1,L00P ON ERROR
;+ =1, USE STATUS MAP

694

695

696
699

702
703
704
705
706
707
708
709

040000

010000

001000

000100
000040
000020
000010
000G04
000002
000001

SW14=40000

SW12=10000
SW10=2000

SW06=100
SW05=40
SW04=20
SW03=10

SW02=4
Sw01=2
SW00=1

;=1,L00P ON CURRENT TEST

:=1,ESCAPE TO NEXT TEST ON ERROR

;LOCK ON TEST SELECT
;RESTART PROGRAM AT SELECTED TEST
sRESELECT VECTOR AND CONTROL REGISTER
;ADDRESS AFTER PROGRAM RESTART

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

15:52

PAGE 19

SEQ 0016

;REGISTER DEFINITIONS
RO=%0
R1=1]
R2=%2
R3=13
RG=%4
R5=15
SP=16

sGENERAL REGISTER
s GENERAL REGISTER
:GENERAL REGISTER
s GENERAL REGISTER
sGENERAL REGISTER
s GENERAL REGISTER
sPROCESSOR STACK POINTER
sPROGRAM COUNTER

PC=17

;LOCATION EQUIVALENCIES
177570
177570

177776
001700

DSWR=177570
DLIGHTS=177570

PS=177776

STACK=1100

sHARDWARE SWITCH REGISTER LOC.

sHARDWARE DISPLAY REGISTER LOC.

;PROCESSOR STATUS WORD
sSTART OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS
PUSH1SP=5746
POP1SP=5726

PUSHR0=10046
POPRO=12600
PUSH2SP=24646
POP2SP=22626

——

EMT, HLT

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)+,RO
sDECREMENT STACK TWICE =CMP =-(SP),-(SP)

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

sBASIC DEFINITION OF ERROR CALL

— =t

.EQUIV

BIT11=4000
BI1T10=2000

—PO
IS =N
lolele]

O—=rnwWwsHw,m

OO@ODOO®

e
e b

BIT79=1000
BIT8=400
BIT7=200
BIT6=100

he)
D
O

005746
005726
010046
012600
024646
022626

CESSER LEVELS

LEVEL7=340
LEVEL6=300
LEVEL5=240
LEVEL4=200
LEVEL3=140
LEVEL2=100
LEVEL1=040
LEVELO=000

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

767
768
769
770

144

772
773
774
775
776
777
778
779
780
781

783
784
785
786
787
788

789

791
792
793
794
795
796
797
798
799

800
801
802
803
804
805
806
807
808
809
810
811
812

813

814
815
816
817
818
819
820
821

15:52

PAGE 20

SEQ 0017

;REGISTER DEF INITIONS
100000
040000

020000

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004

000002
000001

:RXCSR BIT DEFINITIONS

DSC=BIT15

RING=BIT14

CTS=BIT13
CARDET=BIT12

RECACT=BIT11

:DATA SET CHANGE

‘RING

:CLR TO SEND
:CARRIER DETECT
*REC ACTIVE

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

:SEC REC DATA
:DATA SET RDY
:STRIP SYNC
*REC DONE

DSINTE=BITS
SYNSCH=BI T4
STD=BIT3

:DSC INTR ENAC.E
:SYNC SEARCH
SSEC XMIT DATA

RINTEN=BIT6

RTS=RIT2
DTR=BIT1

VCID=BITO

*REC INTR ENABLE

*REQ TO SEND
:DATA TERM RDY

:RXDBUF BIT DEFINITIONS

100000
040000
020000
010000

RXERR=B]IT15

;REC ERROR

PARER=BIT12

*PARITY ERROR

001000
000400

PAREN=B] T9

030000
020000

SYNINT=30000

002000
004000

006000

001000
001400
100000
040000
020000
002000
000400
000200
000100
000040
000020
000010
000001
000000
004000
010000
014000

OVRRUN=BIT14
FRMERR=BIT13

*OVERRUN
:FRAME ERROR

:PARCSR BIT DEFINITIONS

EVPAR=BI TS

:PARITY ENABLE

*EVEN PARITY SENSE

:PARCSR WRD DEF INITIONS

;SYNC EXTERNAL MODE

SYNEXT=20000
1SYMOD=0

*SYNC INTERNAL MODE
+1S0C MODE

SIX=2000
SEVEN=4000
E IGHT=6000
NOPAR=0
ODDPAR=1000
£ VEPAR=1400

*WORD LENGTH 6 BITS
*WORD LENGTH 7 BITS
*WORD LENGTH 8 BITS
*NO PARITY
:0DD PARITY
*EVEN PARITY

DNA=BIT15

:DATA NOT AVAILABLE

FIVE=0

*WORD LENGTH S BITS

-TXCSR BIT DEFINITIONS

MTDATA=B]IT14
CLK=BIT13

BITW=BIT10

MRESET=B] T8
TXDONE=B] T7
TXINTE=BITé

*MAINT DATA
$CLK

‘BIT WINDOW

*MASTER RESET
*XMIT DONE
SXMIT INTR ENABLE

DNAINTE=RITS

:DNA INTR ENAB

HDXEN=BIT3

*HDX/F
DX

SEND=BI T4

BREAK=B]T0
USER=0

*SEND

*BREAK

:TXCSR WRD DEF INITIONS

MINT=4000

MEXT=10000

SYSTST=14000

s TRAPCAT(-!SR FOR

:USER MODE

*MAINT INT MODE

*MAINT EXT MODE

*SYSTEM TEST MODE
ILLEGAL

INTERRUPTS

CY11_30A(105 g)
18=JUL
=7

21-NOV=78
15:59

15:52

PAGE 21

SEQ 0018

s STANDARD INTERRUPT VECTORS

;POWER FAIL HANDLER
;SERVICE AT LEVEL 7
sERROR HANDLER
sSERVICE AT LEVEL 7
sGENERAL HANDLER DISPATCH SERVICE
;SERVICE AT LEVEL 7
;SOF TWARE SWITCH REGISTER
000174
000000
000000
000167

=174

001100

.=1100

DISPREG: .WORD 0
SWREG:
.WORD 0
JMP

.START

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

NSRRI

888888

sINDIRECT POINTERS
177570
177570
177560
177562
177564
177566

SWR:
177570
LIGHTS:177570

;SWITCH REGISTER POINTER

TKDBR:
TPCSR:
TPDBR:

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

TKCSR:

177560

177562
177564
177566

;DISPLAY REGISTER POINTER

sTELETYPE KEYBOARD CONTROL REGISTER

RTRN:
NEXT:

LOCK:
ICOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

OOOOOOOOO

PRI
= 0=o
(o ¥ S NTwTo

s
cid

cad

888888883

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

:TOTAL NUMBER OF ERRORS

;PC OF LAST ERROR CALL

HOLD:
SHIFT:
COUNT:
TEMP1:
TEMP?:
TEMP3:

TEMP4:
TEMPS:

SAVRO:
SAVR1:
SAVR?:

elelelelelelelelols]

no OANOO\bNO_

d
i

D
b wnd

ld
o
el

cild

i cd

38888888888

;PROGRAM VARIABLES
: TEMPORARY STORAGE=DELAY TIME FOR CABLES
; TEMPORARY STORAGE= # OF SHIFTS PER (HAR

STORAGE= # OF
STORAGE
STORAGE
STORAGE
STORAGE
: TEMPORARY STORAGE
RO STORAGE

;R1 STORAGE
;R2 STORAGE

TIMES A CHAR WILL BE SENT

878
379
880
881
882

001164
001166
001170
001172
001174

000000
000000
000000
000000
000000

15:52

PAGE 22

SAVR3:

SAVRS:

SAVSP:
SAVP( :

OQOOO0O

(ZDUF=D MACY11 30A(1052)
_21-NOV-78
18-JUL~-78 15:59
CZDUFD.P1

SEQ 0019
;R3 STORAGE
;R4 STORAGE
;RS STORAGE

;STACK POINTER STORAGE

;PROGRAM (COUNTER STORAGE

CZDUF=D MACY11

CZDUFD.P11

883

884
885
886
887
888
889
gg%)
892

893
8%
895
8%
897
898

899
900
901

902

30A(1052)

18-JUL=-78 15:59

SYNCNC:
SEXMIT:
SEREC:
OPTCLR:
MULTD:
JMRBY:
.EVEN

001204

000000

BASEADD :

001206
001210
001212
001214
001216

000000
000000
000000
000000
000000

001220

000000

911

912
913
914

915

001234

001236
001240
001242

000000
000000
000000
000000
000002

919

920

921

gg%

;sPROG CONTROLLED 1ST DEVICE ADDR

0
0
0
0
0

;SAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
;PROG CONTROLLED 1V
;SAVED INTR VECTOR
JACTIVE REGISTER ,,.MODIFY THIS

JROTATING POINTER FOR ACTREG..POINTS

sLOCATION TC DISQUALIFY OR QUALIFY
sDEVICES (1= RUN,,,0= DON'T RUN)

2TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DE

RN RN AR R R R

RN R AR

AR AR

TABLE

;

;! &

000G00
003006

000000

FLAGS FOR STATUS MAP PRINT OUT (SSP)
; HOLDS RO IN STATUS MAP PRINT
; R1 ETC.
; FOR COUNTING 3 WORDS
; FOR CONVRT ROUTINE

3006

JRRER AR AR AN AR

ARRNARRRRR

PROGRAM CONTROL FLAGS

001244

001245

001246

001247

000

INIFLG:

STFLG:

.BYTE

;PROGRAM INITIALIZATION FLAG

;ERROR OCCURED FLAG

.BYTE

LOKFLG: .BYTE

ERRFLG:

.BYTE

sTEST START FLAG

;LOCK ON CURRENT TEST FLAG

.EVEN
JRRERARS

927

001300

929

001300

000001

931
932
933
g%‘so

001302
001303
001304
001305

000001
000001
000001
(0092001

93 001301 000007

938

;# OF SYNC CHARS REO.'D FOR SYNC'ZATION
JSEC XMIT JUPER.”IN.'
:SEC REC JUMPER "IN
sOPTIONAL JUMPER CLR
"‘IN
:NO_MULTIPLE DEVICE FLAG
L
JEXTERNAL MODEM BYPASS JUMPER
'‘IN

;sPROGRAM MULTIPLE DEVICE PARAMETERS

FLAG:0
HOLDO: O
HOLD1:0
COUNTT1:0

003006

8%‘7’

377
377
377
377
Q
377

; THESE ARE STORAGE FOR THE STATUS MAP PRINT OUT

926

928

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

R AR AN AR AN

924
925

;PROGRAM CONVERSATIONAL PARAMETERS

ROTADD :

916

318

SEQ 0020

KEEPADD :
LASTADD :
BASEIV:
KEEP]V:
ACTREG:

001222
001224
001226
001230
001232

PAGE 23

377
377
377
377
000
377

906
9G7
908
909
910

15:52

001176
001177
001200
001201
001202
001203

903

9GS

21-NOV=78

.=1300

STATUS: NOSYNC:

STATUS

.BLKB 1

MITSEX: .BLKB 1

RESEC: .BLKB 1
CLROPT: .BLKB 1
DMULT: .BLKB 1
BYJMR: .BLKB 1

; MULTIPLE

001306

000001

MAP

ARRARER

;SYNC CHARS

XMIT JUMPER

JREC SEC JUMPER
;OPTIONAL JUMPER
JMULTIPLE DEVICE FLAG
JEXTERNAL MODEM

DEVICE PARAMETERS

ADDBASE: .BLKW 1

sPROG CONTROLLED 1ST DEVICE ADDR

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

15:52

PAGE 24
ADDKEEP:
ADDLAST:

IVBASE:
IVKEEP:
REGACT:
ADDROT:
PRTDU:
RIVDU:
TIVDU:
TISDU:

2
SEQ 0021

sSAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR

.BLKW 1
.BLKW 1

.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1

sPROG CONTROLLED IV

sSAVED INTR VECTOR
sACTIVE REGISTER
sROTATING POINTER

;DUT1
;DUTT
;DUTT
;DUTT
;DUT1

1
1
1
1

RISDU:
.BLKW 1
L1ESS: .BLKW 1
CSRRX: .BLKW 1
CSRHRX: .BLKW 1

BUFRXD: .BLKW 1
BUFHRXD: .BLKW 1
CSRPAR: .BLKW
CSRHPAR: .BLKW
CSRTX: .BLkW 1
CSRHTX: .BLKW 1
BUFTXD: .BLKW 1
BUFHTXD: .BLKW 1
BASEDU: .BLKW 1
.EVEN

PRIORITY
REC_INTR VECTOR
XMIT INTR VECTOR
XMIT INTR STATUS
REC_INTR STATUS

sPRIORITY TO ALLOW INTR

; DEFAULT OR ALTERED PARAMETERS

;DUT1 RXCSR BASE ADDR

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
sPOINTERS TO SUBROUTINES CAN BE FOUND
;IN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
001366

.TRPTAB:
AR AR A A A A AR A A AR AR R A AR R R R R AR AR R AR

RA R R R AR AR AR AR

-+ LA AR RSS2

001366

. SCOPE

001370

.SCoP1

C01372

.TYPE

001374

. INSTR

001376

. INSTER

001400

. PARAM

001402

. SAVOS

001404

.RESO5

001406

. CONVRT

001410

. CNVRT

001412

.SETFLG

001414

. (KSWR

AR AR R AR AR

AR AR

2223332222222322222232223

SCOPE=TRAP+0

s CALL T0 SCOPE LOOP AND ITERATION HANDLER

SCOP1=TRAP+1

s CALL

TYPE=TRAP+2

s CALL 10 TELETYPE OUTPUT ROUT INE

INSTR=TRAP+3

s CALL T0 ASCII STRING INPUT ROUTINE

INSTER=TRAP+4

s CALL

PARAM=TRAP+5

s CALL TO NUMERICAL DATA INPUT ROUTINE

SAVO5=TRAP+6

s CALL T0 REGISTER SAVE ROUTINE

RESO5=TRAP+7

s CALL

CONVRT=TRAF+10

sCALL TO DATA OUTPUT ROUTINE

CNVRT=TRAP+11

s CALL TO DATA OUTPUT ROUTINE WITHOUT CR/LF

SETFLG=TRAP+12

s CALL

T0 FLAG SET ROUTINE

(KSWR=TRA"+13

s CALL

0 ALLOW SWREG

TO LOOP ON CURRENT DATA HANDLER

T0 INPUT ERROR HANDLER

TO REGISTER RESTORE ROUT INE

TO BE LOADED FROM TTy

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

995

996

w7
m

001416

15:52

104414

010650

LCNTLU

SEQ 0022

CNTLU=TRAP+14

JCALL TO ALLOW LOADING

999
1000

:PROGRAM INITIALIZATION

1002
1003
1004

*SET UP PROCESSOR STACK
*SET UP POWER FAIL VECTOR
*CLEAR PROGRAM CONTROL FLAGS AND COUNTS

*LOCK OUT

}882

“TYPE

1007
1008
1009
1010
1011
1012

001420
001426
001432
001440
001444
001450

012767
012706
012737
005067
105067
005067

000340
001100
010430
177460
177575
177454

1014
1015
1016
1017

1018
1019
1020
1021
1022
1023
1024
1025
1026

001460
001464
001470
001476

005067
005067
012767
012767

177446
177444
000001
001420

001504
001510
001512
001516
001522
001530
001536
001542

105767
001004
104402
105167
012767
012767
013746
013746

177534

1028
1029

001554
001562

022777
001402

1013

1027

1030

1031
1032
1033
1034

001454

001546

001564

105067

012737

176350

000024

177566

010750
177522
177570
177570
000006
000004

001566

177777

022626
012767
012767
012637

001614
001620
001622
001630
001632

005737
001005
022767
001001
104414

000176
000174
000004

1036
1037
1038
1039
1040

.START: MOV
MOV
MOV
CLR
CLRB
CLR

177430
177410

177350
177344

ONCE:

000004

177302
177276

€4%:
65%8:
668:

000042

000176

177250
SRR

1042
1043
1044

:LOCK OUT INTERRUPTS
;SET UP STACK
*SET UP POWER FAIL VECTOR
*CLEAR # OF ITERATION COMPLETED LOCATION
*CLEAR START FLAG
*CLEAR PASS COUNT

CLR
CLR
MOV
MOV

ERRCNT
LSTERR
#1,TSTNO
#.START ,RTRN

ISTB
BNE
TYPE
cOM8
MOV
MOV
MOV
MOV

INIFLG
ONCE
MTITLE
INIFLG
#DSWR, SWR
#DLIGHTS,L IGHTS
a#6,~(SP)
kb -(SP)

*CLEAR ERROR COUNT
*CLEAR LAST ERROR POINTER
“SET UP FOR TEST 1
*SET UP FOR POWER FAIL BEFORE
*TESTING STARTS
“HAS INITIALIZATION
BEZEN PERFORMED

CMP
BEQ

#-1,3SWR
65%

*REFERENCE HARDWARE SWITCH REGISTER

(SP)+,(SP)+
#SWREG , SWR
#D]SPREG,L IGHTS
(SP)+,amb
|

;ADJUST STACK
*POINT TO SOF TWARE SWITCH REG
*POINT TO SOFT DISPLAY REG
*RESTORE VECTORS

G2
MAP
#SWREG, SWR
MAP

;UNDER MONITOR

ERRFLG

#64$, ans

B8R

66%

CMP
MOV
MOV
MOV

MOV

ST
BNE
CMP
BNE
CNTLU

R AR AR NN

;
:
*

}822

INTERRUPTS

#340,PS
#STACK,SP
#.PFAIL ,an24
LPCNT
STFLG
PASCNT

MOV

177316

000407

001566
001570
001576
001604

(SP)+. k6

*CLEAR ERROR FLAG

:TYPE TITLE MESSAGE
*IF NOT SET FLAG AND DO
*RELOAD HARDWARE SWITCH REGISTER INTO POINTER
*RELOAD HARDWARE DISPLAY REGISTER INTO POINTER
*SAVE VECTORS

:SET UP FOR TIMEOUT

;1S SWREG USED
: BRANCH TO CHECK FOR STATUS MAP

R AR AN AR AN AR AR AR R AR AR AR R TR R AR

* SETUP, OR REENTER QUESTIONING ROUTINE

BIT #SW07. @SWR

1049

; NOW SET 'JP MAP VALUES FOR PROGRAM

1050

001642

001537

AR R AR RN RRRR SN

CODE FOR STATUS MAP
CODE ADDED FOR REV. £ OF DIAGNOSTICS
IF SWO7= 1 ,THEN YOU USE THE STATUS MAP PREVIOUSLY

1047 001634 032777 000200 177236 MAP:
1048

OF SWREG FROM TTY

TITLE MESSAGE

CLRB

1035 001610 012637 000006

1041

"Qtttt'ttttttt'ttttttt."tt".ttttt.tttittt.tfi't'fittlfitttttQtttt!tttttfitt'
"ttt'tt!tt.ttt'tttt'tt*tittt.'kt't'tt.tfittttkttttt.t'.fi'tt'ttt'ttittttt.tt

1001

PAGE 25

BEQ $67
;

THESE VALUES FROM THE

; 1S SW07=1?
*

IF NOT, GO TO TEST FOR Sw00=1

STATUS MAP WiLL BE USED

IN THE

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

15:52

PAGE 26

SEQ 0023

; OPERATION OF

1052 001644
1053 001652

116767
116767

177430
177423

177324
177317

MOVB NOSYNC
MOVB MITSEX

1055
1056
1057
1058
1059

001666
001674
001702
001710
001716

116767
116767
116767
016767
016767

177411
177404
177377
177372
177366

177305
177300
177273
177266
177262

1062

001740

016767

1064
1065

001754
001762

016767
016767

177244

MOV ADDROT

1067

001776

016767

1056

1060
1061

001660

001724
001732

1063 001746

1066

1068
1069
1070
1071

1072

001770

002012
002020
002026

116767

016767
016767

002122
002130
002136

1085

1087
1088

1%‘

1086

1091
1092

"ACTREG

011112

MOV RISDY.

DURIS

177332

177314
177312
001324

016767
016767

177272
177266

177324

177262
177256
177252
177246
177242
177236

002142

032777

000001

002152
002156

000167
005037

000452
001222

002172
002176

012702
010110

011116

MOV RIVDU,

002202

060200

MOV TIVDU.

011102
010410
012434

MOV TISDU.
MOV L1ESS.
MOV a#PRTDU,

.LASTADD
"KEEPIV

MOV
MOV
MOV
MOV
MOV
MOV

BUFRXD, RXDBUF
BUFHRXD ,
CSRPAR,
CSRHPAR,
CSRTX, TXCSR
CSRHTX,

010760
010754

: REC INTR VECTOR

* REC INTR STATUS

* XMIT INTR VECTOR

DUTIS
LESST
a#DUPRT

011010
011004
011000
010774
010770
010764

* XMIT INTR STATUS
* PRIORITY TO ALLOW INTR
;. PRIORITY RELOADED

RXCSR
HRXCSR

MOV BUF TXD,
MOV BUFHTXD,
JMP .BEGIN

TXDBUF
HTXDBUF

BIT

,@SWR

LAST DEVICE RXCSR ADDR
SAVED INTR VECTOR

: BASE INTR VECTOR
:RELOAD BASEADD

DUTIV

BASEDU, DUBASE

MOV CSRRX,
MOV CSRHRX,

*
*

*ROTATING POINTER

DURIV

MOV

SEC REC JUMPER

*ACTIVE REGISTER

"ROTADD

010530

011020
011014

HRXDBUF
PARCSR
HPARC
SR
HTXCSR
:BRANCH TO BEGIN TESTING

"ttttttt.tt.t'.ttl'tttt."i'tt!.ltttttttlttt.ttt!tt.ttt'

176730

$67:
1$:

000300
000302

2%:

005011

BNE

#SWO0

JMP _BEGIN
CLR &#FLAG

MOV
MOV

GO TO

#300,R0
#302 R1

MOV
MOV

#4 R2
R1. (RO)

ADD

R2,R0O

TO QUESTIONING

LOAD STATUS MAP ETC.
: CLEAR FLAG SO STATUS MAP PRINTS OUT

*RESTORE VECTOR AREA TO TRAPCATCHER
*START AT LOCATION 300

1093

1095 00
1096

1099 002216 011024

MRE GAD

1101
1102

160000
167776

‘LOW LIMIT
‘HIGH LIMIT

1
1
MOV

*MASK
"HOW MANY TIMES + 2

060201
022707

1097
1098

002212
002214

1100

002220

104405

1103

002226

012572

002222
002224

002771
104403

ADD
CMP

001000

BLT
INSTR

(R1)

R2 R
#1000,R1

;END AT LOCATION 776

+OUTPUT MESSAGE & GET

“ME SSAGE

PARAM

160000
167776

1104 002230
001
1105 002231
001
1106 002232 016767

(LR

; RESELECT VECTOR
$ CONTROL REG?

* BRANCH

1094

002200

MOV REGACT

BASEIV
. BASEADD

016767
016767
013737

012700
012701

*OPTIONAL JUMPER
*MULTIPLE DEVICE
*EXTERNAL MODEM
*PROG 1ST DEVICE ADDR
* SAVED 1ST DEVICE ADDR

,SEREC

MOV 1VBASE,
MOV KEEPADD

177232
177226
000466

1089 002162
1090 002166

"OPTCLR
"MULTD
” JMRBY
.BASEADD
- KEEPADD

MOV
ADDLAST
MOV IVKEEP

016767 177320 011106

001002

MOVB CLROPT
MOVB DMULT
MOVB BYJMR
MOV ADDBASE
MOV ADDKEEP

MOVB RESEC

177230
177214

016767
016767
000167

002150

: SYNC CHAR
Y XMIT
JUMPER

177334
177220
177332

016767
016767
016767
016767
016767
016767

PROGRAM.

, SYNCNO
"SEXMIT

177354

016767

1075 002056
1076
1077 002072
1078 002100
1079 002106
1080 002114
1081
1082
1083

177312

THIS

177256
177254
177250

177350

016767

002042
002050

177362
177360

016767

002034

1073
1074

177416

010334

176746

BYTE
BYTE

INPUT STRING

*CONVERT STRING

DUBASE

*STORE AT THIS LOCATION

DUBASE ,KEEPADD

; SAVE

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

002240

004767

1108
1109
1110
1111

002244
002252
002254
002256

1114

002264

000300
000776
013114

002267
002270
002276
002304
002306
002310
002312
002314

004
016767
016767
104403
011105
104412
001202
105767

002320
002322
002326
002332

100406
005067
005067
000167

002340

011164

1112
1113

1115

1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128

002260
002262

002266

1129
1130

002336
002336

1132
1133
1134
1135
1136
1137
1138

002342
002344
002346
002350
002352
002353

1140

002362

1131

1139

002354

1141
1142
1143
1144
1145
1146
1147
1148

1149

1150

1151

1152

1153

1154
1155
1156
1157
1158
1159
1160
1161
1162

016767
104403
011002
104405

010174

176736

15:52

*MASK

176670
176666
000140

BMI
CLR
CLR
JMP

BAR
ACTREG
ROTADD
OUTMUL

BRR:

*HOW MANY TIMES + 2
:SAVE
:SET UP FOR ROTATION
;OUTPUT MESSAGE & GET INPUT STRING
*ME SSAGE
:SET FLAG BASED UPON INPUT STRING
*THIS FLAG
;ARE THERE MULTIPLE DEVICES
‘ON THE SYSTEM ?
*YES,ASK NEXT QUESTION

DURIV,KEEPIV
DURIV.BASEIV

;JUMP AROUND NEXT CUESTION

INSTR

;OUTPUT MESSAGE & GET INPUT STRING

MLASTD

002366
002374
002376
002402
002404
002412
002420
002422

056767
000241
006167
103421
062767
026767
101362
056767

176626

176622

002430

012767

000414

*STORE AT THIS LOCATION

BYTE

176630

1$:

MOV

#1 ,ROTADD

:SET UP POINTER

2%:

BIS
cLC
ROL
BCS
ADD
CMP
BHI
BIS

ROTADD ,ACTREG

;MAKE THIS DEVICE ACTIVE

000010
176572

176572
176564

176572

176566

000001

176562

4$:

176534

176530

3$:

176540

*ME SSAGE

PARAM
*CONVERT STRING
160000
~
:LOW LIMIT
167776
*HIGH LIMIT
LASTADD
“STORE AT THIS LOCATION
BYTE
1
*MASK
BYTE
1
‘HOW MANY TIMES + 2
:THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME

176616

176544

INPUT STRING

“LOwW LIMIT
SHIGH LIMIT

MULTD

176716
176706

104405
160000
167776
001210
001
001

016767
104403
011347
104405
160000
167776
001210
001
001

KEEPADD ,BASEADD ;RESTORE FOR ROTATION
;OUTPUT MESSAGE & GET
*ME SSAGE
*CONVERT STRING

176662

010620
010612

176636

002446
002454
002456
002460
002462
002464
002466
002470
002471

PC,DUADDR

&
MOV
MOV
INSTR
MMUL T
SETFLG
MUL TD
TSTB

000001

002444

SEQ 0024

DURIV

BYTE

104403

016767

MOV
INSTR
MVECTO
PARAM

300
776

012767

002436

JSR

176732

001

005067

PAGE 27

BYTE
BYTE

CLR

ACTREG

;CLR ACTIVE REGISTER

ROTADD
:SET UP POINTER
38
*ARE YOU OUT OF RANGE ?
#10,BASEADD
;SET UP BASE ADDRESS
LASTADD ,BASEADD :1S THIS THE LAST DEVICE ?
28
:NO DO IT AGAIN
ROTADD ,ACTREG
;THIS ASSUMES THAT THERE ARE AT

;LEAST TWO DEVICES WHEN YOU ANSWER YES TO
“MULTIPLE DEVICE QUESTION

MOV

#1,ROTADD

OUTMUL

MOV

;SET UP FOR LATER USE IN END OF PASS ROUTINE

KEEPADD ,BASEADD :DITTO

;CONTINUE QUESTIONS

MOV
KEEPADD ,BASEADD ;RESTORE
INSTR
:
;OUTPUT MESSAGE & GET INPUT STRING
MRANGE
*ME SSAGE
PARAM
;CONVERT STRING
160000
LOW LIMIT
167776
chn LIMIT
LASTADD
*STORE AT THIS LOCATION
1
*MASK
1
THOW MANY TIMES + 2

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

1163

002472

000167

1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192

002476
000476
002500
002502
002504
002506
002510
002512
002513
002514

Q01
004767

002520
002520
002522
002524
002532
002534
002540
002542
002550
002552
002560
002562
002564
002566
002570

104403
011660
122767
001003
105067
12
122767
001004
112767
000402
104404
000757
000240
104403

119
1195
1196

002574
002576
002600

104412
001177
104403

1198
1199

002604
002606

104412
001200

15:52

177656

SEQ 0025
OUTMUL
:

104403

011633
104405
000004
000007
012434
000

BYTE
BYTE

007644

AAA:
000061

PAGE 28

007472

3$:

176436
000062

007454

177777

176416

1$:

28:
4$:

M
INSTR

;QUTPUT MESSAGE & GET INPUT STRING
*MESSAGE
:CONVERT STRING
LOW LIMIT
:HIGH LIMIT
:STORE AT THIS LOCATION
:MASK

INSTR
MSYNC
(MPB
BNE
(LRB

:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
FISIT "1t 2

1
HOW MANY TIMES + 2
JSR
PC,DULEV
:COMPARE THE FIRST CHARACTER
IN THE TELETYPE INPUT
:BUFFER TO THE CHARACTERS '1'* AND "2,
:1F THE CHARACTER 1S '“'* CLEAR THE FLAG
:IF THE CHARACTER IS '2'* SET THE FLAG

BR
C(MPB
BNE
MOVB
BR

INSTER
BR
NOP
INSTR

MWJIRES

1197 002602 011774

MWIRES

002610

1202
1203
1204

002614
002616
002620

104412
001201
104403

1206
1207

002624
002626

104412
001203

1201

104403

;D0 IT AGAIN

MLEVEL
PARAM
4
7
DUPRT
0

1193 002572 011726

1200

#'1,INBUF
18
SYNCNO

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

SETFLG
SERE(

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

:MESSAGE

MEXT

1209
1210

;TEST START AND RESTART

SETFLG
JMRBY

002636
002644

032777
001132

000200

176234

;RETRY

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

1205 002622 012115

175140

;377

sOUTPUT MESSAGE & GET INPUT STRING

SETFLG
OPTCLR
INSTR

000340

SETFLG
SEXMIT
INSTR

INSTR

012767

:MESSAGE

MWIRE4

002630

IS IT 2

002612 012041

1212
1213
1214
1215
1216
1217
1218

;000

:OUTPUT MESSAGE & GET INPUT STRING

:MESSAGE

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG
ZOUTPUT MESSAGE & GET INPUT STRING

:ME SSAGE

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

.BEGIN: MOV
#340,PS
;LOCK OUT INTERRUPTS
; #eswan
[OAD STATUS MAP sawwws
:THE_VALUES NOW BEING LOADED INTO THE STATUS MAP WILL BE
: USED IN THIS PROGRAM AND ~ WILL BE
PASSED
TO ANY
ZOTHER DU11 PROGRAMS LOADED IMMEDIATELY FOLLOWING THIS PROG.
BIT #SW07
L@SWR
; SWO7 SET , IF YES BRANCH
BNE HEREU

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

1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232

1233
1234

1235
1236
1237
1238
1239

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251

1254
1255

002646
002654
002662
002670
002676
2
002712
002720
002726
002734
002742
002750
002756
002764

002772

003014
003022
003030
003036

003044
003052
003060
003066
003074
003102
003110
003116
003126

15:52

176424
176417
176412
176405
176400
176373
176366
176362
176356
176354
176344
176342
176336
001324

MOVB SYNCNO
MOVB SEXMIT
MOVB SEREC
MOVB OPTCLR
MOVB MULTD
MOVB JMRBY
MOV BASEADD
MOV KEEPADD
MOV LASTADD
MOV KEEPIV
MOV BASEIV
MOV ACTREG
MOV ROTADD
MOV a#DUPRT

+NOSYNC
JMITSEX
+RESEC
.CLROPT
LDOMULT
BYJMR
.ADDBASE
.ADDKEEP
+,ADDLAST
. IVKEEP
. IVBASE
LREGACT
,ADDROT
,O#PRTDU

016767

010112

176326

MOV DURIS

RISDU

010022
010016
010012
010006
010002
007776
007772
007766
007762

176270
176264
176260
176254
176250
176244
176240
176234
176230

016767

016767
016767
016767
016767
016767

016767
016767
016767
016767
016767
016767
016767
016767
016767

010116
010106
010102
007410
007536
010026

176326

176314
176310
176306
176326
176274

MOV
MOV
MOV
MOV
MOV

RIVDU

DUTIV
DUTIS
LESS1
DUBASE
RXCSR,

,T1VDU
.TISDU
L1ESS
.BASEDU
CSRRX

sREC INTR VECTOR

; REC INTR STATUS

; XMIT INTR
VECTOR
; XMIT
INTR STATUS
; PRIORITY TO ALLOW INTR
sRXCSR BASE ADDRESS

MOV HRXCSR,
CSRHRX
MOV RXDBUF ,
BUF RXD
MOV HRXDBUF ,
BUF HRXD
MOV PARCSR,
CSRPAR
MOV HPARCSR,
CSRHPAR
MOV TXCSR,
CSRTX
MOV HTXCSR,
CSRHTX
MOV TXDBUF,
BUF TXD
MOV HTXDBUF ,
BUFHTXD
IRRRRRR AR AR RRRRN AR RRARRR AR RRRRARRRARR
; THE FOLLOWING CODE WILL PRINT
; THE CONVERSATIONALLY SET JUMPER
.
;

THIS DIAGNOSTIC OR
JUST AFTER THE QUESTIONING

s AND ANSWERING .

IRRAR AR AR AN AR AR AN AR AN AR RN RN RRR RN

1258
1259
126C
1261
1262

003132
003136
003140
003144

005737
001402
000167
104402

001222

1264
1265
1269
1267

003156
003162
003166
003174

010067
010167
012767
012700

176042
176040
000003
000002°

003150

062737

000116
012172

000001

1268

003

012701

1270

062701

000002

1273

003220

012700

000002°

1274

MOV DURIV

sSYNC CHARS
JXMIT JUMPER
:SEC REC JUMPER
sOPTIONAL JUMPER
; MULTIPLE DEVICES
sEXTERNAL MODEM
sPROG CONTROLLED 1ST ADDR
;SAVED 1ST DEVICE ADDR
sLAST DEVICE RXCSR ADDR
;SAVED INTR VECTOR
; RELOAD BASE INTR VECTOR
sACTIVE REGISTER
sROTATING POINTER
:DUT1 PRIORITY

; SETTINGS FROM THE STATUS MAP
; ON THE FIRST PASS OF

1256

1271
1272

SEQ 0026

176324
176317
176312
176305
176300
176273
176266
176262
176256
176254
176244
176242
176236
012434

1257

1269

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

1252
1253

1263

PAGE 29

003204
003212
003216
003224

010120
020127
001372
010067

001300

HEREU:

001222

SETFG:

. TEST IF 1ST PASS
s IF FIRST PASS SET FLAG/PRINT
; AROUND IF PASS > 1
; PRINT °'STATUS MAP'

MOV
MOV
MOV
MOv

; SAVE RO
. SAVE R1
;COUNTER FOR WORDS PRINTED

ADD #1, QAFLAG

176034

RO, HOLDO
R1, HOLD1
#3, COUNT1
#BUFF1, RO

;

ADD #2 R1

. PREPARE STATUS ADDRESS

(RO)+

(MP R1, #STATUS+6
BNE F ILBUF
UP:

: SET FLAG ON 1ST PASS

MOV #STATUS, R1

FILBUF: MOV R1,

001306
176006

TST a#FLAG
BEQ
SETFG
JMP THRU
TYPE , MSTATUS

MC' #BUFF1
MOV RO ,

TABLE+4

(BUFF1)=STATUS

ETC.

;. LOAD BUFF AS ABOVE

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

. LOAD FOR PRINT QUT

sLOAD ADDRESS TO PRINT

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

1275

003230

012067

003234
003240
003244
003250
003252
003256

104410
104402
005367
001365
016700
016701

001232
011434
175760

1283
1284
1285
1286
1287
1288

003262
003266
003272
003274

012706
005737
001056
105767

001100
000042

1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317

003300

003302
003310
003316
003320
003326
003330
003332
003334
003336
003340
003344
003346
003354
003362
003364
003372
003400
003406
003410
003412
003414
003416
003420
003422
003424
003425
003426
003430

001407

1289

1318

}g}g

003436

003442

016767
016767
000444
032777
001416
104403
011570
104412
001247
105767
001407
012767
012767
000406
016767
016767
032777
001410
104403
011555
104405
003446
006102
001114
001
001
03
012767
104402

000177

PAGE 30

176006

1276
1277
1278
1279
1280
1281

1282

15:52

MOV (RO)+, TABLE+10

CONVRT , TABLE
TYPE, MCRLF
DEC COUNT1
BNE UP
MOV HOLDO,RO
MOV HOLD1, R1

175746
175744

000004

THRU:

003464
003460
_
175552

000240
000240

003420
003414

003502
003476
000002

003402
003376
175472

5%:

1%:

2%:

e
AYTE
011551

175446

175456

MOV
TST
BNE
TSTB

BEQ

175703

003446

LOAD CONTENTS

; PRINT ADDRESS/CONTENTS PAIR
: CRAND LF
;COUNT WORDS PRINTED
; GO PRINT NEXT ADDRESS/CONTENTS

JRARRARRARRRARAR AR R AR R AR AR AR RN

175702

003564
003560

SEQ 0027

3%:

4%:

MOV
MOV
BR
BIT
BEQ
INSTR
MLOCK
SETFLG
LOKFLG
TSTB
BEQ
MOV
MOV
BR
MOV
MOV
BIT
BEQ
INSTR
MTSTPC
PARAM
ST
TLAST
RTRN
1
1
BR
MOV
TYPE

JMP

#STACK,SP
;SET UP STACK
as?l
;1S PROGRAM UNDER MONITOR CONTROL
3%
.
MULTD
;DON'T ALLOW LOCK ON TEST IF RUNNING
;MULTIPLE DEVICES

5¢

BRW,TTST
BRX,TTST+2
3%
#BI1T2,aSwR
1%

LOKFLG
1%
#NOP ,TTST
#NOP,TTST+2
2%
BRW,TTST
BRX,TTST+2
#SW01,aSWR
3%

4%
#TST1,RTRN
MR

aRTRN

:1F NO,TEST FOR LOCK ON TEST

sRESTORE NORMAL SCOPE LOOP
;DITTO
;JUMP AROUND IF YES
;CHECK FOR LOCK ON TEST

sOUTPUT MESSAGE & GET INPUT STRING
:ME SSAGE
;SET FLAG BASED UPON INPUT STRING
:THIS FLAG
;1S LOCK ON TEST OPTION SELECTED
;SET UP TO LOCK

LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
F SWO1=1, GET STARTING PC
;OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
s CONVERT STRING
:LOW LIMIT
SHIGH LIMIT
;STORE AT THIS LOCATION
:MASK
;HOW MANY TIMES + 2
;START AT TEST 1
.TYPE R

sSTART TESTING

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

15:52

PAGE 31

1321
1322
1323
1324
1325
1326

;:THIS TEST VERIFYS MATCH DETECT & DATA RDY
:;FLAGS FOR EVERY POSSIBLE MATCH CHARACTER
::BY OBSERVING RECACT BIT

;21T WILL TAKE TWO SYNC * CHARACTERS TO GET RECACT BIT
si%:
DEPENDENT ON MONITOR ......o.cou..
::IF ONE SYNC STRAP IS SELECTED ,IT WILL
::ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO
: :ASSERT
1:MODE: SYNC INTERNAL

1327

1328
1329

1330

::LENGTH: FIVE

1331
}%%%
1334
1335
1336
1337

1338

1339
1340
1341

1%2
1343
1344
1345
136
1347
1348
1349
1350
1351

1352
1353
1354
1355
1356
1357

1358
1359
1360
1361

1362
1363
1364
1365
1366
1367

1368

1369

1370
1371
1372
1373
1374
1375
1376

SEQ 0028

*:SYNC CHARACTER FOR MATCH: B/C
::THIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS

003446
003454
003462
003470

012767
012767
012767
052777

000001
003774
003576
000400

175452
175434
175430
007406

003476

016703

003502
003506
003514
003520

012704
012777
010477
052777

030000
004020
007360
000020

003526
003534
003542

052777
042777
110477

020000
020000
007342

007350
007342

003546
003554
003562
003570
003572
003574
003574
003576

052777
042777
032777
001401
104000

020000
020000
004000

007330
007322
007300

003606
003614
003620
003622
003624

000404

010477

110477
012767
005777
100001

007372

007370
007342

007276

007302
000002
007264

104000

000005

175306

052777
042777

020000
020000

007244
007236

003652
003654
003660

001367
005367
001403

003662
003666
003670

105767
100752
032777

175266
175262

175310
004000

007172

#1,TSTNO
#TST2 NEXT
#3$,L0CK
MMRESET ,@TXCSR

RXDBUF ,R3

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

:SET UP FOR ERROR MESSAGE

MOV
R4, aPARCSR
:LOAD CSR
BIS
#SYNSCH,@RXCSR
:SET SYNC SEARCH
;POKE CLK TO GET INTO SYNCRONIZATION
:BOTH THE LOGIC & RECEIVER
BIS
#CLK,@TXCSR
:POKE CLK UP
BIC
#CLK.@TXCSR
*POKE CLK DOWN
MOVB
R&,aTXDBUF
*LOAD DATA CHARACTER
;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION
BIS
#CLK,@TXCSR
:POKE CLK UP
BIC
#CLK.@TXCSR
:POKE CLK DOWN

4%:
5%:
6$:

012767

005367

MOV

7$:

175326

MOV
MOV
MOV
BIS

;SET SYNC INTERNAL,FIVE,NO PARITY,0 SYNC REGISTER
MOV
#SYNINT 'FIVE!NOPAR,R4
:CREATE PARAMETERS
1%:
MOV
MMINT ' SEND,@TXCSR
:SET SEND & MAINT INTER

2%:

003624
003632
003632
003640

003646

TST1:

7%:

BIT
BEQ
HLT

#RECACT ,@RXCSR
:RECACT ?
2%
;RECACT SHOULD NOT BE SET

MOVB
MOV
TST
BPL

R&.aTXDBUF
*LOAD SYNC CHAR
#2. COUNT
“# OF SYNC CHARS
@TXCSR
;DNA ?
6%
:BR IF NOT SET

MOV

;1T SHOULD BE CLEARED FROM PREVIOUS READ
#5,SHIFT
:# OF SHIFTS

BIS
BIC

#CLK,@TXCSR
#CLK.@TXCSR

MOV

HLT

DEC

R4, @PARCSR

:LOAD PARCSR WITH PARAMETERS

:DNA SHOULD NOT BE SET OR....

SHiFT

:POKE CLK UP
:POKE CLK DOWN

:# OF SHIFTS

BNE
7%
DEC
COUNT
:# OF SYNC CHARS
BEQ
8$
;TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED
TSTB
SYNCNO
BM]
53
;TWO SYNC CHARACTERS..
8%:
BIT
#RECACT,3RXCSR
;RECACT 2

003676
003700
003702

15:52

PAGE 32

001001

104000

017701

010400
042700
020001
001401

9%:

007166
177400

104002

10%:

BNE
HLT

MOV
MOV
BIC
CMP
BEQ
HLT

SEQ 0029
9%

@RXDBUF ,R1
R4 RO

#177400,R0

R
e

020000
007146

007152

104000

052777
032777
001401

122704

001246

104400

; TXDBUF

11%:

000400
000020

104000

005204

:CLR UPPER BYTE

?85R1

;DO THEY COMPARE ?

;IF RECACT FAILED ALONG WITH THIS

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

SCOP1

;BIT OF

052777
005777
100401

;SAVE ACTUAL

*SAVE EXPECTED

sPOKE CLK TO SEE DNA...DNA COMES UP ON THE FIRST

o R

104401

;RECACT FAILED TO SET,POSSIBLE

;THAT THE RECEIVER FAILED TO MATCH
*THE SYNC CHARACTER

N O

WWWWWWW&
&
i REORE3 EERERELEEY

CZDUF <D??CV11 30A(1052)
21=NOv-78
18-JUL~-78 15:59

007134
007112

BIS
TST
BMI
HLT

#CLK ,@TXCSR

?{;CSR

;DNA?

;POKE

CLK UP

;DNA DID NOT ASSERT
CONDITIONS FOR NEXT SYNC CHARACTER MATCH

AMRESET ,@TXCSR

qs;NSCH.SRXCSR

12%:

000040

THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO

;MASTER RESET

sSYNC SEARCH = 0 ?

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

;1S THIS THE LAST CHARACTER ?
;NO

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

15:52

PAGE 33

1411

::THIS TEST VERIFYS MATCH DETECT & DATA RDY

1412
1413

:;FLAGS FOR EVERY POSSIBLE MATCH CHARACTER
::BY OBSERVING RECACT BIT

1414
1415
1416
1417
1418
1419
1420

;21T WILL TAKE TWO SYNC * CHARACTERS TC GET RECACT BIT
Ji%:
DEPENDENT ON MONITOR ....ovoveven.
::IF ONE SYNC STRAP IS SELECTED ,IT WILL
::ONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO
: :ASSERT
$:MODE: SYNC INTERNAL
S:LENGTH: SIX
::SYNC CHARACTER FOR MATCH: B/C
::THIS TEST USES THE TRANSMITTER AND RECEIVER THIPS

1421
}25%
1424

003774

012767

1427
1428
1429
1430
1431

004016
0040246

052777
016703

000400
007044

004030
004034

012704
012777

032000
004020

007042

1433
1434
1435
1436
1437
1438
1439
1440

0046046

052777

000020

007014

052777
042777
110477

020000
020000
007014

007022
007014

052777

020000

007002

032777
001401
104000

004000

006752

1425
1426

1432

1441

004002
004010

004042

004054
004062
004070
004074

004102

012767
012767

010477

042777

000002

004322
004124

007032

020000

175124

TST2:

007060

BIS
#MRESET ,@TXCSR
-MASTER
MOV
RXDBUF ,R3
:SET UP
;SET SYNC INTERNAL,SIX.NO PARITY.0 SYNC
MOV
#SYNINT 'SIX'NOPAR,RG
1%:
MOV
AMINT ' SEND ,@TXCSR

175106
175102

006774

1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458

004152
004160
004160
004166

012767

000006

174760

052777
042777

020000
020000

006716
006710

1460

004200

001367

1459

1461
1462
1463

1464
1465

1466

SEQ 0030

004110
004116
004120
004122
004122
004124
004130
004134
004142
004146
004150
004152

004174

000404
010477
110477
012767
005777

100001
104000

005367

174740

005367
001403

174734

004210
004214

105767
100752

174762

032777

4%:
5%:

6%
:

006202
004206

004216

7$:
175000

004000

#2,TSTNO

:SAVE THIS

MOV
MOV

#TST3 NEXT
#38,L0CK

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

MOV

R4, aPARCSR

:LOAD CSR

BIC

#CLK.aTXCSR

:POKE CLK DOWN

BR
MOV
MOVB
MOV
ST

43
R4, @PARCSR
R4.aTXDBUF
#2.COUNT
ATXCSR
:DNA ?

:LOAD PARCSR WITH PARAMETERS
*LOAD SYNC CHAR
“# OF SYNC CHARS

MOV

;1T SHOULD BE CLEARED FROM PREVIOUS READ
#6,SHIFT
:# OF SHIFTS

BIS
BIC

#CLK,aTXCSR
#CLK.aTXCSR

BNE

RESET
FOR ERROR MESSAGE
REGISTER
:CREATE PARAMETERS
*SET SEND & MAINT INTER

BIS
#SYNSCH,aRXCSR
:SET SYNC SEARCH
;POKE CLK TO GET INTO SYNCRONIZATION
:BOTH THE LOGIC & RECEIVER
BIS
#CLK,@TXCSR
;POKE CLK UP
BIC
#CLK . @TXCSR
:POKE CLK DOWN
MOVB
R&,aTXDBUF
:LOAD DATA CHARACTER
;POKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION
BIS
#CLK,@TXCSR
:POKE CLK UP

2%:
006750
006754
000002
006736

MOV

7%:

BIT
BEQ
HLT

BPL
HLT

DEC

#RECACT ,@RXCSR
-RECACT ?
2%
;RECACT SHOULD NOT BE SET

6$
*BR IF NOT SET
:DNA SHOULD NOT BE SET OR..

;POKE CLK UP
SPOKE CLK DOWN

SHiFT

:# OF SHIFTS

DEC
BEQ

COUNT
8s

;# OF

TSTB
BM]
BIT

SYNCNO
53

SYNC CHARS

;TEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED
006644

8%:

;TWO SYNC CHARACTERS..
#RECACT ,@RX(SR
;RECACT ?

21-NOvV-78

18-JuUL~-78 15:59

OBR sgess ga
35

—

CY11 30A(1052)

15:52

PAGE 34

001001

104000

9%:

017701

10%:

104401

WWWWW
N =

OO
O

355 FEERER
3F S 3&KEX

100401
104000

052777
032777
001401
104000
005204
122704

001246
104400

MOV
MOV
BIC
CMP
BEQ
HLT

;RECACT FAILED TO SET,POSSIBLE

;THAT THE RECEIVER FAILED TO MATCH
*THE SYNC CHARACTER

aRxoeur R1

:SAVE ACTUAL

c1?7400.no
RO

*SAVE EXPECTED

:CLR UPPER BYTE

$8in1

;DO THEY COMPARE ?

:IF RECACT FAILED ALONG WITH THIS

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

SCOP1

sPOKE CLK TO SEE DNA...DNA COMES UP ON THE FIRST
;BIT OF

052777
005777

BNE
HLT

SEQ 0031

: TXDBUF

THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO
#CLK ,@TXCSR

?{éCSR

11%:

;DNA?

:POKE

(LK UP

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

#MRESET ,@TXCSR
:S;NSCH,BRXCSR

12%:

sSYNC

;MASTER RESET
sSYNC SEARCH = 0 ?

SEARCH SHCULD BE NOT SET

R4
:IOO,Ré

;IS

THIS

THE

LAST

(CHARACTER ?

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

15:52

PAGE 35

SEQ 0032

1501

;sTHIS TEST VERIFYS MATCH DETECT & DATA RDY

1504

..IT WILL TAKE TWO SYNC ~ CHARACTERS TO GET RECACT BIT

1502
1503

;sFLAGS FOR EVERY POSSIBLE MATCH CHARACTER
*:BY OBSERVING RECACT BIT

1505

J%:

1506

DEPENDENT ON MONITOR .....covveeee

*:IF ONE SYNC STRAP IS SELECTED LT WILL

1507

;JONLY TAKE ONE SYNC CHARACTER BEFORE RECACT TO

1510
151) .

:JLENGTH: SEVEN
;sSYNC CHARACTER FOR MATCH: B/C

1508
1509

s sASSERT
;2MODE: SYNC INTERNAL

}g}%

soTHIS TEST USES THE TRANSMITTER AND RECEIVER CHIPS

1514
1515

004322
004330

012767
012767

000003
004650

174576
174560

1517
1518

004344
004352

052777
016703

000400
006516

006532

1520
1521
1522
1523
1524

004356
004362
004370
004374

012704
012777
010477
052777

034000
004020
006504
000020

1525
1526
1527
1528

004402
004410
004416

052777
042777
110477

020000
020000
006466

006474
006466

1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540

004422
004430
004436
004444
004446
004450
004450
004452
004456
004462
004470

052777
042777
032777
001401
104000

020000
020000
004000

006454
006446
006424

1516

1519

1529

1541
1542
1543
1544
1545
1546
1547
1548

1549
1550
1551
1552
1553
1554
1555
1556

004336

004474
004476
004500

004500
004506
004506
004514

012767

000404
010477
110477
012767
005777
100001
104000

004452

T1ST3:

174554

;SAVE

BIS
MOV

MMRESET ,@TXCSR
RXDBUF ,R3

:MASTER RESET
;SET UP FOR ERROR MESSAGE

03$.LOCK

THIS
;GO TO THIS TEST WHEN THRU

:SET UP FOR SCOPE LOOP

JSET SYNC INTERNAL, SEVfN NO PARITY 0 SYNC REGISTER
006514
006466

MOV
lSYNINT'SEVEN‘NOPAR R4
;CREATE PARAMETERS
MOV
#MINT
! SEND ,,@TXCSR
:SET SEND & MAINT INTER
MOV
R4 ,@PARCSR
;LOAD CSR
BIS
#SYNSCH @RXCSR
:SET SYNC SEARCH
JPOKE CLK TO GET INTO SYNCR(NIZAYIW
;BOTH THE LOGIC & RECEIVER
BIS
#CLK,aTXCSR
;POKE CLK UP
BIC
#CLK,aTXCSR
JPOKE CLK DOWN
MOVB
R4 ,aTXDBUF
;LOAD DATA (CHARACTER

1%:

JPOKE CLK TO GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION

s:
174452

4%:
5%:
6%:

012767

000007

174432

004522
004526
004530
004534

052777
042777
005367
001367
005367
001403

020000
020000
174412

006370
006362

004536
004542
004544

105767
100752
032777

174434

174406

004000

#3,TSTNO
lTST( JNEXT

MOV

2%:
006422
006426
000002
006410

MOV
MOV

00631¢

7%:

BIS
BIC
BIT
BEQ
HLT

#CLK,aTXCSR
;POKE CLK UP
#CLK ,@TXCSR
;POKE CLK DOWN
#RECACT ,dRXCSR
;RECACT ?
2%
JRECACT SHOULD NOT BE SET

BR
MOV
MOVB
MOV
TST
BPL
HLT

48
R4 ,aPARCSR
;LOAD PARCSR WITH PARAMETERS
R4 ,aTXDBUF
;LOAD SYNC CHAR
#2,COUNT
:# OF SYNC CHARS
aTXCSR
;DNA ?
6%
:BR IF NOT SET
;DNA SHOULD NOT BE SET OR....

MOV

21T SHOULD BE CLEARED FROM PREVIOUS READ
#7,SHIFT
;@ OF SHIFTS

BIS
#C_K,aTXCSR
JPOKE CLK UP
BIC
#CLK,aTXCSR
POKE CLK DOWN
DEC
SHIFT
;¥ OF SHIFTS
BNE
7%
DEC
COUNT
;# OF SYNC CHARS
BEQ
8%
JTEST SYNCNO TO SEE HOW MANY SYNC CHARACTERS NEEDED
TSTB
SYNCNO
BM]
5¢
;TWO SYNC CHARACTERS..
B8S:
BIT
#RECACT ,@RXCSR
;RECA(CT ?

30A(1052)
21-NOvV-78
18-JUL=-78 15:59

15:52

001001

104000

PAGE 36

BNE

HLT

SEQ 0033
9%

il il il sl
) il o

017701
010400
042700
020001
001401

006312

MOV

177400

BIC

104002

THE SYNC CHARACTER

aRXDBUF ,R1

;SAVE ACTUAL

#177400,R0

*CLR UPPER BYTE

MOV

R4 RO

cMP

RO,R1T

;DO THEY COMPARE ?

HLT

:IF RECACT FAILED ALONG WITH THIS

BEQ

—

10§

wviwnw
~o

-l il o

;RECACT FAILED TO SET,POSSIBLE

;THAT THE RECEIVER FAILED TO MATCH

) i

sl il o

FRFoFRIRETY 5

MACY11

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

£l

104401

“SAVE EXPECTED

;POKE CLK TO SEE DNA...DNA COMES UP ON THE FIRST
;BIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO
052777
005777
100401
104000

052777
032777
001401
104000
005204

122704

001246

104400

020000
006272

s TXDBUF

006276

TST

000400
000020

000200

006260
006236

BIS
BM]

HLT

#CLK,@TXCSR
@TXCSR

11%

;DNA?

;POKE CLK UP

;DNA DID NOT ASSERT

sSET UP CONDITIONS FOR NEXT SYNC CHARACTER MATCH

128

BIS
BIT

#MRESET,@TXCSR
#SYNSCH,aRXCSR

HLT

sSYNC

INC
(MPB
BNE

R4
#200,R4 ;1S TH!S THE LAST CHARACTER ?
1%
:NO

BEQ

SCOPE

12%

:MASTER RESET
;SYNC SEARCH = 0 ?

SEARCH SHCULD BE

NOT

SET

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

15:52

PAGE 37

SEQ 0034

159
1592
1593
1594
1595
1596
1597
1598
1599

:sFLAGS FOR EVERY POSSIBLE MATCH CHARACTER
;:BY OBSERVING RECACT BIT
soIT WILL TAKE TWO SYNC * CHARACTERS TO GET RECACT BIT
co%s
DEPENDENT ON MONITOR .....ccevveee
;:1F ONE SYNC STRAP IS SELECTED ,IT WILL
::%EER;AKE ONE SYNC CHARACTER BEFORE RECACT TO

1601
1602
1603

;s THIS

TEST USES THE

MOV

#4,TSTNO

sSAVE THIS

MOV

#38,LOCK

sSET UP FOR SCOPE LOOP

MOV

RXDBUF ,R3

; SET UP FOR ERROR MESSAGE

MOV
MOV
MOV

#SYNINT
'€ IGHT 'NOPAR, R4 ; CREATE PARAME TERS
#MINT ! SEND ,@TXCSR
:SET SEND & MAINT INTER
R4 ,@PARCSR
;LOAD CSR

;s THIS TEST VERIFYS MATCH DETECT & DATA RDY

2sMODE: SYNC INTERNAL
;s LENGTH: EIGHT
;:SYNC CHARACTER FOR MAT(H: B/C(

1600

000004

TST4:

005176
005000

BIS

006170

052777
052777
042777
110477

1%:

BIS

;GO TO THIS TEST WHEN THRU

;MASTER RESET

#SYNSCH,aRXCSR _ ;SET SYNC SEARCH

;POKE CLK TO GET INTO SYNCRONIZATION
BIS
BIC

006140

MOVB

#CLK,@TXCSR
#CLK,aTXCSR

R4 ,aTXDBUF

;POKE CLK UP
;POKE CLK DOWN

;LOAD DATA (HARACTER

. POKE mélgo GET TRANSMITTER & RECEIVER INTO SYNCRONIZATION

020000
004000

’%:

174124

A ¥
5%:

6%:

000010

174104

020000
020000

006042
006034

7%:

005770

8%:

;POKE

CLK UP

#CLK,aTXCSR
SQECACT,SRXCSR

HLT

JRECACT

BR
MOV
MOvVB
MOV

43
R4 ,@PAR(CSR
R4 ,aTXDBUF
#2,COUNT

BPL

MOV

;1T SHOULD BE CLEARED FROM PREVIOUS READ
#8. SHIFT
@ OF SHIFTS

BIS

#CLK,aTXCSR

TST

HLT

gég

sTEST

#CLK,aTXCSR

BIC
BIT
BEQ

174060

M‘RESET @TXCSR

;BOTH THE LOGIC & RECEIVER

020000

174064

#TSTS NEXT

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

036000
004020
006156
000020

006074
006100
000002
006062

MOV

TRANSMITTER AND RECEIVER CHIPS

ATXCSR

;POKE CLK DOWN
JRECACT ?

SHOULD NOT BE

;DNA ?

;LOAD PARCSR WITH PARAMETERS

;LOAD SYNC (HAR

;# OF

CHARS

:BR IF NOT SET

#CLK ,aTXCSR

;POKE

.POKE

;;mf

;# OF SHIFTS

cgum

:# OF

SYNC

SYNCNO TO SEE HOW MANY SYN(C
TSTR
SYNCNO

817

SYNC

:DNA SHOULD NOT BE SET OR..

BM]

SET

(LK UP

(LK DOWN

CHARS
(HARACTERS NEEDED

;TWO SYNC (HARACTERS..

#RECACT ,@RX(SR

RECACT

CZDUF=D MACY11 30A(1052)
21-NOvV-78
CZDUFD.P11
18-JUL=-78 15:59
1647
1648
1649
1650

005100
005102
005104

1653
1654

005110
005112

1651
1652

005104

001001
104000

017701

010400
042700

020001
001401
104002

PAGE

BNE

9%
:

005764
177400

1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669

005126
005134
005140
005142

052777
005777
100401
104000

020000
005744

1672
1673
1674
1675

005144
005152
005160
005162

052777
032777
001401
104000

000400
000020

1677
1678
1679

005164
005166
005172

005204
122704
001246

1680

005116
005120
005122
005124

15:52

10%:

HLT

MOV
MOV
BIC
(MP
BEQ
HLT

SEQ 0035
9%

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

@RXDBUF ,R1

:SAVE ACTUAL

#177400,R0

*CLR UPPER BYTE

R4 RO

TO MATCH

*SAVE EXPECTED

78‘R1

;DO THEY COMPARE

:1F RECACT FAILED ALONG WITH THIS

;...]1T PROBABLY IS A TRANSMITTER ERROR
JHOWEVER,...IF ONLY THIS FAILED

005124

104401

;PROBABLY IS A RECEIVER ERROR

SCOP1

.POKE CLK TO SEF DNA...DNA COMES UP ON THE FIRST
;BIT OF THE NEXT CHARACTER IF NO CHARACTER IS LOADED INTO

005174

104400

005750

. TXDBUF

11%:

00000C

005732
005710

BIS
TST
BM]
HLT

#CLK,aTXCSR

?¥§CSR

:DNA?

;POKE

CLK UP

;DNA DID NOT ASSERT

;SET UP CONDITIONS FOR NEXT SYNC CHARACTER MAT(CH

BIS
BIT
BEQ
HLT

INC

(MPR

BNE
SCOPE

#MRESET ,@TXCSR
#SYNSCH,aRXCSR

12%
sSYNC

#0,R4
1%

;MASTER RESET
;SYNC SEAR(H = 0

SEARCH SHCULD BE NOT

SET

;1S TH!S THE LAST (CHARACTER ?

sNO

S3BEEER 55

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

691
123%

15:52

:+BOTH THE TRANSMITTER AND RECEIVER LOGIC
: SYNC EXTERNAL (SYNEXT)
s sMODE
s sLENGTH:EIGHT PLUS PARITY
; sPARITY:EVEPAR
s sMAINT. MODE :MINT

005176

012767

000005

005226

052777

000400

005204
005212
005220

012767
052777
012777

005410
000400
020000

173722

173704
005664
005652

004020

005642

1699
1700
1701
1702
1703

005242
005250
005254
005256
005262

012777
016703
005004
110477
052777

027426
005620

005630

1705
1706
1707
1708

005270
005276
005304
005312

1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725

005314
005322
005330
005334
005342
005344
005346
005352
005356
005360
005364
005366
005370
005370
005374
005376

1727
1728
1729

005402
005402
005404

1709

1726

1730

MOV

MOV
BIS
MOV
BIS

#5,TSTNO

;SAVE THIS

#MRESET ,aTXCSR

;MASTER RESET

#TST6 NEXT
;GO TO THIS TEST WHEN THRU
A#MRESET ,@TXCSR_ ;MASTER RESET
#SYNEXT ,aPARCSR ;SET THE MODE

;SET MAINTENANCE MODE & SEND
012777

1704

TSTS:

005650

005234

1698

SEQ 0036

;s THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON

1694

1695
}289

PAGE 39

005314

005400

005406

005626
000020

005600

052777
042777
012767
010400

020000
020000
000011

005606
005600
173626

052777
042777
005367
022767
001003
005204
110477
005767
001356
105777
100401
104000

020000
020000
173604
000003

005562
005554

017701
020001
001401

104002

105704
001337
104400

005536
173562

;NOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0)
MOV
#MINT ! SEND ,@TXCSR

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

#SYNEXT !EIGHT !EVEPAR! 26 ,aPARCSR
RXDBUF ,R3
;SETUP FOR ERROR MSG
R4
;FOR DATA (CHAR CREATION
R4, aTXDBUF
;LOAD CHARA(TER
#SYNSCH,@RXCSR
;SET SEARCH SYNC

BIS
BIC
MOV
MOV

#CLK,aTXCSR
;POKE CLK UP
#CLK,aTXCSR
;POKE CLK DOWN
#9. ,SHIFT
;# OF SHIFTS
R4,RO
;EXPECTED

BIS
BIC
DEC
(MP
BNE
INC
MOvB
TST
BNE
TSTB
BM]
HLT

#CLK,aTXCSR
;POKE CLK UP
#CLK,aTXCSR
+POKE CLK DOWN
SHIFT
& OF SHIFTS
#3,SHIFT
;TIME TO LOAD NEXT (HAR ?
3%
:NO ?
R4
; GENERATE NEXT CHAR
R4 ,aTXDBUF
sLOAD NEXT CHARACTER
SHIFT
;IS IT O ?
2%
aRXCSR
;RXDONE = 1 ?
5%
sRXDONE SHOULD BE SET

MOV
CMP
BEQ

aRXDBUF ,R1
sACTUAL
RO,R1T
;COMPARE EXP VS A(T
6%

; CHARACTERS SHOULD COMPARE

TSTB
BNE
SCOPE

Ré
%

;LAST (HARACTER
:NO

;GET INTO SYNCRONIZATION
1%:

2%:

173576

Z%:

005504

005500

MOV
MOV
(LR
MOvB
BIS

5%:

6%:

HLT

—

£
B ASNINIAIN 2

CY11_30A(1052)

21-NOvV-78

18-JUL=-78 15:59

15:52

PAGE 40
;s THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON

: SYNC EXTERNAL (SYNEXT)
s sMODE
s s LENGTH:EIGHT PLUS PARITY

: ;PARITY :0DDPAR

012767
012767
052777
012777
052777

000006

005622

000400

020000
000400

17351
17347

00545

005410
005416
005424
005432
005440

005436

) i

012777
016703
00 5004

027026
005406

005416

110477

052777
052777

005414
000020

005366

020000
020000
000011

005374
005366
173414

020000
020000

005350
005342

173372
000003

005324

173350

MOV
MOV

#6,TSTNO
#TST7 NEXT

MOV
BIS

#SYNEXT.aPARCSR :SET THE MODE
#MRESET.QTXCSR
:MASTER RESET

BIS

;SAVE

AMRESET,@TXCSR

THIS
:GO TO THIS TEST WHEN THRU

;MASTER RESET

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

MOV

#MINT
! SEND,@TXCSR

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

MOV
MOV
CLR
MOvB
BIS

#SYNEXT !EIGHT !ODDPAR! 26 ,aPARCSR
RXDBUF ,R3
:SETUP FOR ERROR MSG
R4
;FOR DATA CHAR CREATION
R4 ,aTXDBUF
;LOAD CHARA(CTER
#SYNSCH,aRXCSR
;SET SEARCH SYNC

BIS
BIC
MOV
MOV

#CLK,@TXCSR
;POKE CLK UP
#CLK,aTXCSR
sPOKE CLK DOWN
#9. ,SHIFT
:# OF SHIFTS
R4,RO
;EXPECTED

BIS
BIC
DEC
CMP

#CLK,aTXCSR
#CLK,aTXCSR
SHIFT
s# OF
#3,SHIFT

INC

TST
BNE

SHIFT
2%

sGET INTO SYNCRONIZATION
1$:

2%:

173364

BNE
7$:

005272

D e

it D e

) D d D

D i

ERRRRNR INIJ3g FERARZLESHI MKWU‘MU‘

D d e

005430

D e

;SET MAINTENANCE MODE & SEND
004020

005266

MOVB

(%:

:NO ?

;POKE CLK UP
+POKE CLK DOWN
SHIFTS
JTIME TO LCAD NEXT CHAR ?

sGENERATE NEXT CHAR

R4 ,aTXDBUF

;LOAD NEXT CHARACTER

TSTB

@RXCSR

HLT

JRXDONE SHOULD BE SET

BM]

MOV
(MP

D i e

IST6:

005440

D D D

D D

D D e

s ;MAINT. MODE :MINT

012777

SEQ 0037

::BOTH THE TRANSMITTER AND RECEIVER LOGIC

D d D

NNNNNNNY NANNNNNNNNNNYVNVNNNNYNNVYNNNNYNNYY SNINNNNNNNNNY
o ERRASRRRN
VIS
WN=O O NN
WNN=O O

)

18 I § 2

;RXDONE

aRXDBUF ,R1
;ACTUAL
RO,R1
;COMPARE EXP VS A(CT

BEQ

6%
l

;s CHARACTERS SHOULD COMPARE

TSTB

;LAST CHARACTER ?

HLT

BNE

SCOPE

sNO

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

};gg

1788 005622
1789 005630

012767
012767

1791
1792
1793
};3@

100116
052777
012777
052777

1796
1797

005636

005642
005644
005652
5660

105767

000007
006102

173276
173260

173341

000400
020000

000400

005210

1800
1801
1802

005674
005702

012777
016703

027426
005166

005176

1804
1805
1806
1807

005710
005714

110477
052777

005174
000020

005146

005722

052777

020000

005154

1809
1810
1811

005730
005734
005734

016702

173202

1814
1815
1816
1817
1818
}ggg

005740

042777

020000

005746
005752
005752

016702

173164

005754

005302
001376

1821

005756

012767

000011

173154

1823
1824

005766
005766

052777

020000

005110

1826

005774

016702

173136

1825

005736

005764

005004

43
‘YES ?
#MRESET,@TXCSR
;MASTER RESET
#SYNEXT .@PARCSR :SET THE MODE
#MRESET.@TXCSR
:MASTER RESET

MOV

:GET
,
€48:

005302
001376

1831
1832
1833

006004

042777

020000

006012
006016
006016
006020

016702

173120

005136
;
€5%:

;JUMP AROUND TEST ?

#MEXT ! SEND,@TXCSR

(MTDATA=0)

;SET MODE.# OF BITS,PARITY SENSE.E LOAD SYNC REG
MOV
#SYNEXT 'EIGHT ! EVEPAR ' 26, aPARCSR
MOV
RXDBUF ,R3
:SETUP FOR ERROR MSG

1%:

28:

R&4

;FOR DATA CHAR CREATION

MOVB
R&,@TXDBUF
BIS
#SYNSCH,@RXCSR
INTO SYNCRONIZATION
BIS
#CLK,@TXCSR

:LOAD CHARACTER
-SET SEARCH SYNC

:POKE CLK UP
;WAIT FOR CABLE & DRIVER DELAYS

MOV

HOLD,R2 ;WAIT THIS AMT

DEC

3?511

006000
006000
006002

005302
001376

BPL
B1S
MOV
BIS

JMRBY

;SAVE THIS
:GO TO THIS TEST WHEN THRU

:SET MAINTENANCE MODE & SEND
;NOTE:BIT WINDOWECLK ARE CLEARED

001376

010400

#7.,TSTNO
#TSTB NEXT

CLR

005302

1827
1828
}ggg

1834
1835
1836

SEQ 0038

MOV
MOV

TSTB

005216

010020

1803 005706

T1ST7:

005232
005220

012777

1822

2:MAINT. MODE :MEXT

005666

}g};

;:THIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON
::BOTH THE TRANSMITTER AND RECEIVER LOGIC
* *MODE
: SYNC EXTERNAL (SYNEXT)
*:LENGTH:EIGHT PLUS PARITY
PARITY:EVEPAR

};33

1808

PAGE 41

1790

15:52

648

SWAIT

BIC
#CLK,@TXCSR
;POKE CLK DOWN
;WAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD.R2 :WAIT THIS AMT
DEC
R2
SWAIT
agslr
65%
.o
:x
MoV
#9. ,SHIFT

MOV

R4,RO

:# OF SHIFTS

BIS

#CLK,@TXCSR

:POKE CLK UP

MOV

HOLD,R2 :WAIT THIS AMT

DEC
Bgilr

R2
663

;EXPECTED

;WAIT FOR CABLE & DRIVER DELAYS

668:

005072
678:

SWAIT

BIC
#CLK,@TXCSR
:POKE CLK DOWN
:WAIT FOR CABLE & DRIVER DELAYS
Moy
HOLD,R2 :WAIT THIS AMT
DEC
BNE

RQ
67%

SWALT

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

\fl

—

1855

1857

006052

173112
000003

110477
005767

005044
173070

105777

005012

001003
005204

006040
006044

005367
022767

006034
006036

017701
020001
001401
104002

006074

105704

006062
006066
006070
006072

R RRRPEEE

S = OV NOWVSH
W

vV
v v ivd

—

e o

00 00 00 00 0O

D LD o

1840
1

006022
006026

1837
1838
1839

006100

001327
104400

005006

15:52

PAGE 42

1 4.1 | e

DEC

173104

INC
MOVB
TST

R4
sGENERATE NEXT CHAR
R4 ,TXDBUF
sLOAD NEXT CHARACTER
sglrr

JISIT O ?

TSTB

aRXCSR

;RXDONE = 1

HLT

sRXDONE

SHOULD BE SET

sNO ?

sTIME TO LOAD NEXT CHAR ?

MOV
g?g

aRXDBUF ,R1
sACTUAL
22,R1
: COMPARE EXP VS ACT

HLT

; CHARACTERS SHOULD COMPARE

: CHECK OUT MODEM BYPASS JUMPER

TSTR

4%:

:# OF SHIFTS

gg.suxrr

BMI

SHIFT

CMP

BNE

5%:

SEQ 0039

BNE

SCOPE

;LAST

:NO

(CHARACTER

CZDUF=D MACY11 30A(1052)

CZDUFD.P11

21=NOvV-78

18-JUL=-78 15:59

15:52

PAGE 43

SEQ 0040

;:BOTH THE TRANSMITTER AND RECEIVER LOGIC

: SYNC EXTERNAL (SYNEXT)
2 sMODE
JsLENGTH:EIGHT PLUS PARITY

AIXXR
ERERr CE L BEZSEERER
3@\‘0\113\
EREEREREE

;sTHIS TEST PERFORMS A BINARY COUNT DATA PATTERN ON

:sPARITY:0ODDPAR

173016
173000

006154

027026
004706

004716

006174

012777
016703
005004
110477
052777

004714
000020

004666

006202

052777

020000

004674

006210

016702

172722

006214
006216

005302
001376

) —

006220

042777

020000

006226

016702

172704

006232

005302
001376

006236
006244

012767
010400

000011

172674

006246

052777

020000

004630

006254

016702

172656

006260
006262

005302
001376

006264

042777

020000

006272

016702

172640

005302
001376

R
R TR

883
:

D
)
D
d
i
d
D —
)
) —d e
) —h —d
D
e
) —

4
o P
o P

e
e

WhN=O

- —d

004730

_——

010020

— e

MOV

#8,TSTNO

TSTB

JMRBY

MOV

#.EOP NEXT

;SAVE THIS

GO TO THIS TEST WHEN THRU

;JUMP_AROUND TEST2

BPL

MOV
BIS

#SYNEXT.@PARCSR :SET THE MODE
anaeser.arxcsg
*MASTER RESET

BIS

YES
?

AMRESET, TXCSR :MASTER RESET

;SET MAINTENANCE MODE & SEND
012777

p elelolle]

T1ST8:

004752
004740
004736

a0 il

WR—=O0

il ol

S W=
=2O
ornsSsroNorn

2 sMAINT. MODE :MEXT

006300

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

(MTDATA=0)

;SET MODE.# OF BITS,PARITY SENSE.& LOAD SYNC REG
MOV
MOV
CLR
MOvB
BIS

#SYNEXT
!EIGHT !ODDPAR ! 26 ,8PARCSR
RXDBUF ,R3
;SETUP FOR ERROR MSG
R4
;FOR DATA CHAR CREATION
R&,@TXDBUF
LOAD CHARACTER
#SYNSCH,@RXCSR

:SET SEARCH SYNC

BIS

#CLK,aTXCSR

;POKE CLK UP

MOV

HOLD ,R2 ;WAIT THIS AMT

;GET INTO SYNCRONIZATION

;WAIT FOR CABLE & DRIVER DELAYS

64%:

004656

DEC
R2
BNE
648
H 2,4 § fR

JWAIT

BIC

#CLK ,@TXCSR

sPOKE CLK DOWN

MoV

HOLD ,R2 ;WAIT THIS AMT

:WAIT FOR CABLE & DRIVER DELAYS

€5%:

2%:

66%:

004612

DEC
R2
JWAIT
BNE
65%
.
EXIV..
MOV
#9. ,SHIFT
;# OF SHIFTS
MOV
R4,RO
EXPECTED
BIS
#CLK ,@TXCSR
;POKE CLK UP
;WAIT FOR CABLE & DRIVER DELAYS
MOV
HOLD,R2 ;WAIT THIS AMT

DEC
RO
JWAIT
BNE
663
SEXITNas
BIC
#CLK , @TXCSR

sPOKE CLK DOWN

;WAIT FOR CABLE & DRIVER DELAYS

67%:

MoV

HOLD,R2 ;WAIT THIS AMT

DEC

BNE

67%

JWALT

ZDUF=D MACY11 30A(1052)
21-NOV-78
ZDUFD.P11
18-JUL~-78 15:59
1914
1915
1916

1917
1918
1919
1920
1921
1922

1923

1926
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934

006302
006306
006314
006316
006320
006324
006330
006332

006336

005367
022767
001003
005204
110477
005767
001346
105777

100401

006340
006342
006342
006346
006350
006352
006354

017701
020001
001401

006354
006356
006360

105704
001327
104400

172632
000003
004564
172610

004526

PAGE 44

SEQ 0041

JEXIT...
DEC
SHIFT
;# OF SHIFTS
CMP
#3,SHIFT
sTIME TO LOAD NEXT CHAR ?

172624

3%:

004532

104000

104002

15:52

BNE
INC
mMovBe
TST
BNE
TSTB

3$
:NO ?
R&
: GENERATE NEXT CHAR
Ré4 ,@TXDBUF
;LOAD NEXT CHARACTER
SHIFT
1S 1T 0 ?
2%
@RXCSR
;RXDONE = 1 ?

HLT

sRXDONE SHOULD BE SET

BMI
5%:

0$:

4%:

MOV
CMP
BEQ
HLT

@RXDBUF ,R1
sACTUAL
RO,R1
;COMPARE EXP VS ACT
6%
2

; CHARACTERS SHOULD COMPARE

:CHECK OUT MODEM BYPASS JUMPER
TSTB
R&
;LAST CHARACTER ?
BNE
1%
:NO
SCOPE

CZDUF=D MACY11

CZDUFD.PT

30A(1052)

21-NOV=78

18-JUL~-78 15:59

15:52

PAGE 45

1935

SEQ 0042

1936

;END OF PASS

1938

;UPDATE PASS COUNT

1937

;TYPE _NAME OF

1939
}&?

;CHECK FOR EXIT TO ACT-11
sRESTART TEST

1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955

006362
006
006
006372
006376
006402
006404
006410
006412
006416
006422

1957

006444

104402
011524

.EOP:

104410
104402
105767
001511
005767
001007
104402
016700

006620
011245
172600

1956

006424
006430
006436

000167
062767
062767

172770
000010

1958
1959

006446
006452

006167
103410

172546

1961
1962
1963

006454
006462
006464

036767
001762
004767

172540

1965

006474

012767

1960

1964

1966

006470

000000

000241

000167

1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
;gg;

006502
006510
006516
006522
006524
006532
006536
006544
006552

006616

016767
016767
004767
000441
016767
004767
016767
062767
016767
062767
016767
062767
016767
016767
000207

1983

006620

000001

1987
1988

006626
006626

1984
}ggg

1989
1990

TEST

006566
006574

006602

006610

006622
006624

006632
006636

172606
011257
172574

000010

172546
172546

RUNIT:
ZERO:

172534

000034

000174

TYPE
MEPASS

,OUTCRY
,DEVICE
MULTD
cCC
ACTREG
RUNIT
MCOW
ACTREG,RO

ADD

#10,BASEIV

sNEXT BLOCK

ROL
BCS

ROTADD
2%

;UP DATE ROTATING POINTER
;1S IT THE LAST DEVICe

BIT
BEQ
JSR

ROTADD ,ACTREG
RUNIT
PC,REPLAY

;TEST THIS DEVICE FOR ACTIVE STATUS
:IF NOT ACTIVE, TRY NEXT ADDRESS
s CALCULATE NEW PARAMETERS

MOV

#1,ROTADD

;OK! ,NOW SET UP

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

sRESTORE BASE ADDRESS
sRESTORE BASE INTERRUPT VECTORS
sCALC NEW PARMETER
;JUMP AROUND REPLAY
;SET UP FOR NEW ADDRESSES
:CREATE NEW ADDRESSES
; CREATE DURIV

JARE YOU RUNNING MULTIPLE DEVICES ?
sNO,JUMP AROUND
;ARE ANY DEVICES ACTIVETM?
s YES
:NO
;DISPLAY ACTREG
HALT
sSELECT SOMETHING TO RUN @ ACTREG:
sSELECT SWITCHES & HIT C(ONTINUE (PUT SWO0 =1)
JMP
.START
;START OVER AGAIN...... YOU DESELECTED EVERYTHING
ADD
#10,BASEADD
sNEXT BLOCK (ADDRESSES)

CLC

JMP

172516

2%:

172500
172500
000002

172474
172474

172454
003702

004040

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

006
013070

002

005067
005067
005267

172302
172410
172266

004350
172440
004336
172424

004324
172410

004312
172374

OUTCRY:

cCC:

TEST

CONVRT
TYPE
TSTB
BEQ
TST
BNE
TYPE
MOV

000001

172450
000002
172434
000002
172420
000002
172404
004300

;TYPE NAME OF

RESTRT

BYTE
RXCSR

6,2

(LR
(LR
INC

LSTERR
nFLG
PASCNT

(VECTORS)

;TO BE _TESTED IN THIS PASS ?

sYES IT WAS ACTIVE,TEST THIS DEVICE
ROTATING

;POINTER FOR NEXT MULTIPLE PASS

;CREATE DURIS
. CREATE DUTIV

;CREATE DUTIS
sRESTORE

:CLEAR LAST ERROR P(
;CLEAR ERROR FLAG
;UPDATE PASS COUNT

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

1992

1993
1994
1995
1996
1997

006642

006650

1998
1999

006666
006670

001405
000005
004711
000240
000240
000240
012767

22%5

006706

000167

2000
2001

006654
006656
006660
006662
006664

016777

013701

006676
006700

104413
012767

172262

000042

15:52

PAGE 46

172232

MOV

MOV
LOGICAL:

000340

171100

003446

172206

174534

NOP
NOP
NOP
RESTRT: MOV

CKSWR
MOV

JMP

sggg
006712

2013
2014
2015
2016
2017
2018
2019

006712

000424

006714
006720

013746
012737

000004
006740

012637
000404
022626
012637
000403
016767
016716
000002

000004

2021
2022
2023
2024

006732
006736
006740
006742
006746
006750
006756
006762
006764
006764
006766
006774

2026

007000

2028
2029
2030

006726

005737

172142
172132

172100

007006
007012
007014

017700
000412
032777

172074

2032
2033
2034
2035
2036
2037
2038

007024
007030
007036
007040
007044
007050
007056

005267
026767
101412
105067
005067
012767
016767

2040
2041
ngg

007070
007072
007074

000002
001407
000432

2031

2039

000432

007004

100027

007022

007064

001006

016716

5822
2046

RESTRT
JSR

:DISPLAY PASS COUNT

*CHECK FOR ACT=11 OR DDP

“IF NOT, CONTINUE TESTING
PC,(R1)

#340,PS

#TST1,RTRN

:PREVENT INTERRUPTS

“CHECK FOR “G

(PRIO:

TST1

.SCOPE
:
;*x*x START OF CODE FOR THE X OR TESTER s«xsxs
BR
48
:1F RUNNING ON THE X OR TESTER CHANGE
*THIS INSTRUCTION TO A ‘NOP'‘(NOP=240)
MOV
a4 ,-(SP)
*SAVE CONTENTS OF ERROR VECTOR
MOV
218, 6
:SET FOR TIME OUT

TST

1%:
172136

004000
172074
172070
172202
172054
000005
172034

172024

172104

2%:
38

TTST:

B8R

1%:

2%:

172044
172030

3$:

007076

104413

MOV
BR
BIT

@TKDBR, R0
2%
#SW11,aSWR

:CLR DONE BIT
IF A TTY KEY IS STRUCK GO TO NEXT TST
:INHIBIT ITERATIONS ?

INC
CMP
BLOS
CLRR
CLR
MOV
MOV

LPCNT
LPCNT, ] COUNT
3
ERRFLG
LPCNT
#5, 1COUNT
NEXT,RTRN

RT]
1407
432

.
.SCOPT:

X OR TESTER sxnsa»
;CHECK FOR “G
:LOOP ON CURRENT TEST ?
:TEST TTY FLAG

MOV

BRW:
BRX :

X OR ?

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

@TKCSR

BNE

172064

:TIME OUT ON

TSTB

BPL
172056

177060

MOV
(SP)+,an4
BR
2%
(MP
(SP)+,(SP)+
MOV
(SP)+, a4
BR
3%
MOV
NEXT,RTRN
MOV
RTRN, (SP)
RTI
;#wxx END OF CODE FOR THE
CKSWR
BIT
#5W14,aSWR
BEQ
1%

4$:

105777

006776

000004

040000

2027

177060

104413
032777
001407

2025

PASCNT,aL IGHTS

a2 ,Ri

SEQ 0043

;SCOPE LOOP AND INTERATION HANDLER

2006
2007
2008
2009
2010
2011

2012

BEQ
RESET

RTRN, (SP)

;CHECK FOR ITERATION CNT FINISH

:SET UP ITERATION COUNT
“SET UP NEXT TEST IN RTRN

“SET UP STACK FOR RTI

:RESTORE ‘BEQ 18" INSTRUCTION
SRESTORE 'BR 38%'* INSTRUCTION

;CHECK FOR FREEZE ON CURRENT DATA
(KSWR

;CHECK

FOR G

CZDUF=D MACY11

CZDUFD.P11
2047
2048

007100
007106

ggg

007114

2049 007110

30A(1052)

21-NOV=78

18-JUL-78 15:59
032777
001402

016716
000002

001000

15:52

171772

172004

BIT
BEQ

1%:

2282

007116

010546

2056

007124

062766

2058
2059

007134
007136

001406
105777

171746

2061

007144

112577

171742

2057

2060

007120
007132

007142

2062 007150
2063 007152

20620645

007154

017605

105715

100375

000770
012605

000002
000002

LTYPE:
000002

1%:
2%:

3%:

000002

007156

010346

000004

2074
2075

012704
012703

012224
000007

2071
2072
2073

007170
007176
007200

2076

007212

2081

007202
007206

007216
007220
007234
007230

062766
104402
000000

105777

100375

104402

011434

122427

000015

117777
105777

171630
171624

007242

000755

007250

001423

2088

007264

100375

2090
2091

007270
007272

007236

2084

007244

2085

2086
2087

2089

007252
007260

000010
000004

171666

171662
000500
000025

001003

2082

000002

117714
142714
121427

007234

2083

ADD

#2,2(5P)

BEQ
TSTB

38
QTPCSR

TSTB

BPL

BR
MOV
RT]

(RS)+,aTPDBR

1%
(SP)+.RS

:LOOK FOR ‘0"
;TEST DONE BIT
;TYPE CHAR

‘DO IT AGAIN UNTIL '0'' IS SEEN

1%:

# INBUF ,R4
#7.R3

ISTR

BPL

MOVB
BICB
CMPB

BNE
2008:

171632

2%:

CMPB

BEQ

2097
2098
2099
2100
2102

007324

000002

012603

JINST1

(R4)+ 415

INSTRS

JINSTG:

007322

2008

DEC

BPL

104402
011430
005737
001402
104402
000727
012604

011434

QTKDBR, (R4)
#200, (R4)
(R4) 425

@TKDBR,aTPDBR
QTPCSR

007300
007302
007304
007310
007312
007316
007320

010572

@TKCSR

MOVBR
TSTB

BNE
BR

010446

#2.4(SP)

TYPE ,MCRLF

LINSTE: MOV

007276

001350
000402

R3,=(SP)

MOV
MOV

ADD
JINST1: TYPE
MSG:
0

010346

2101

(RS)

R&.=(SP)
24 (SP)
, .MSG

007274

2096
2095

a2(SP) ,RS

MOV
MOV

005303

2093

LOCK, (SP)

RS,=(SP)

007266

2092

#SW09, aSWR
1%

MOV

.INSTR: MOV

010446
017667

2078
5079
2080

SEQ 0044

;ASCII STRING INPUT ROUTINE

2069 007160
2070 007162

2077

RTI

MOVB

228267
2068

MOV

:TELETYPE OUTPUT ROUT INE

2054

2055

PAGE 47

MOV

1%
.INSTG

R3,=(SP)

R4 . =(SP)

TYPE
MQM
ST
SRD SW
BEQ
400%
TYPE ,MCRLF
400%:
BR
JINST1
INSTR2: MOV
(SP)+ R4

MOV
RTI

(3P)+.R3

SIS IT <*u>

——

—

g
SEELENRUK
2 EIBNERRUN NS o Iarrm 038R O?O

30A(1052)

21=-NOvV-78

18-JuUL-78 15:59

15:52

PAGE 48

)

D e

.PARAM: MOV
MOV

= NN

HrPONNNNO

b
-l

D D
D

000015
010572

D e

000036
000036

LIMITS:

RS
, R4
#INBUF

CMPB
BGT

(R4) ,H67
PARERR

PARERR
(R4) ,#60
PARERR

BICB

#60, (R4)

CMPR

#15, (R4)

(R4) +,RS

LIMITS
RS
RS

RS
1%

#15,(R4)

;1S FIRST

SFRDSW

;1S

PARLM1

BNE
INSTER
sTEST

000046

4 (SP) ,RS
(R5)+,LOLIM
(R5)+,HILIM
(R5)+,DEVADR
(R5)+.LOBITS
(RS)
+ . ADRCNT
RS.4(SP)
#15, (R4)

ASL
BR
PARERR: CMPR
BNE
120%:

R5,=(SP)

R4 ,=(SP)

(MPB

BEQ
ASL
ASL

D e
D
D

CLR
MOV

BISR

MOV
MOV
MOV
MOV
MOVB
MOVB
MOV

BEQ
CMPB
BLT

)

D e

)

PARAM1 :

D
-

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

SEQ 0045

s CONVERT ASCII STRING TO OCTAL

2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2

MACY11

120%

PART]

TO SEE

PARERR
RS,LOLIM
PARERR

BNE

PARERR

LOBITS,.RS

;STORE NUMBER AT SPECIFIED ADDRESS

AT AV Qv A Y

2149
21
21
21
21
21
21
21
21
21

000026

MOV

000002
000017

ADD
DECB

MOV

BNE
MOV
MOV
RT]

0
0

DE VADR ,R4

RS, (R4)+

#2 ,RS
ADRCNT

%
(SP)+ R4
(SP)+ RS

CKSWR ROUTINE BEING USED

IS WITHIN LIMITS

RS HILIM

BHI
CMP
BLO

BITB

NUMBER

CHARACTER A <(CR>

CZDUF=D MACY11

CZDUFD.P11
2159
2160

g}gg

007536
007540

30A(1052)

21 ;NOV-?B

18-JuUL=78 15:5

15:52

000000
000000

PAGE 49

DEVADR: 0
LOBITS: 0

007541

ADRCNT=LOBITS+1

%}?}.

%122

:SAVE PC OF

007542

016667

000004

171424

,SAV0S: MOV

5}2173

007550

010567

171414

2171

007560

010367

171400

2172
2173
2174
g};g

007554

007564
007570
007574

007600

010467
010267
010167
010067
000002

SV0S5:

171406

171372
171364
171356

2180
2181
2182

2183

2184

2198

2199

007602

016700

007622

016704

007606
007612
007616

007626

171350

016701
016702
016703

171346
171344
171342

016705

171336

007634
007636
007640

SAVR1 .R1
SAVR2 -R2
SAVR3 R3

MOV

SAVRS _RS

RT]

007642
007644
007646
007650
007652
007656
007

007672

TYPE
MCRLF
.CNVRT: MOV

010146
010346
010446
010546
017601
016767

00001
002402

012167

000154

062766

000002

2204

007716

116705

000132

2207
2208

007730
007734
007740

042703
062703
110320

177770
000060

042704

100000

2212
2213

SAVR),R0

SAVR4 R4

.CONVR:

000152
000147
000144

2211

R2.SAVR2
R1.SAVR1
RO, SAVRO

MOV
MOV
MOV
MOV

104402
011434
010046

112167
112167
013167

2210

R4 . SAVRG

;CONVERT OCTAL NUMBER TC ASCII AND OUTPUT TO TELEPRINTER

007676
007702
007706

2205

R3,SAVR3

LRESOS: MOV

171340

220C
2201
2202

2203

MOV

RTI

%}gg

2192
2193
2194
2195
2196
2197

RS, SAVRS

:RESTORE RO-RS

g;g{s} 007632
2189
2190
2191

4 (SP) ,SAVP(C

MOV

MOV
MOV
MOV
MOV

5}%
2179

TEST THAT FAILED AND RO=-RS

:SAVE RO-RS

2169

2170

SEQ 0046

007712

016704

007722
007726

012700
010403

007742

006204

007744

007750
007752

006204

000140

012264

MOV
MOV
MOV
MOV
MOV
MOV

171264

000012
1$:

RO,=(SP)

R1.=(SP)
R3.=(SP)
R4 .=(SP)
RS .=(SP)
812(5P)
,R1
TEMP, TEMP3

ADD

#2,12(5P)

MOVB
MOVB
MOV

(R1)+.CHRCNT
(R1)+.SPACNT
@(R1)+,BINWRD

MOV

(R1)+,WRDCNT

2%:

MOV

BINWRD
R4

MOV
MOV

#TEMP RO
R4 R3

MOVB

BI(
ADD
MOVB

ASR

CHRCNT.RS

#157770,R3
#060,R3
R3,(R0)+

Ré4

SSHIFT FOR NEXT #

DITTO

BIC

#100000, R4

ASR

ASR
DEC

SCLUGE TO STOP BIT 15 PROPAGATING.
DITIO

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

2215
2215
2217
2218
2219
2220
2221
2222

007756
007760
007764
007766
007772
007774
010000
010002

001363
012703
114023
105367
001374
105767
001405
112723

2224

010012

001373

010016
010020
010022
010026
010030
010036
010040
010042

104402
012324
005367
001323
016767
012605
012604
012603

010046
010050
010052
010054

012600
000002
000000
000000
010055
000000

2223

105367

(12324
8
000062

4$:

000055
000040

000043

5555 010014 105013
226
2227
2228
2229
2231
2232
2233

15:52

2234

2235
2236
2237
2238
2239
552?

010044

010056

68
000024

171114

002226

012607

DECB

BNE

(LRB

TYPE
MDATA
DEC
BNE
MOV
MOV
MOV
MOV

MOV
RT]
WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT
+1
BINWRD: 0

4
SEQ 0047

3s
#MDATA,R3
=(RO),(R3)+
CHRCNT
4%
SPACNT
6%
#4040, (R3)+

SPACNT

(R3)

WRDCNT
1%
TEMP3,TEMP
(SP)+.R5S
(SP)
+ R

(SP)+.R3

(SP) +.R1

(SP)+ RO

;COMPARE THE FIRST CHARACTER IN VHE TELETVPE INPUT
:BUFFER TO THE CHARACTERS ‘N'* AND "'v''
;IF THE CHARACTER IS 'W'' CLEAR THE FLAG
;IF THE CHARACTER IS "%'' SET THE FLAG

2247
2248
2249
2250
2251
2252
2253
225
2255
2256
2257
2258
2259
2260
2261

010060
010064
010072
010074
010076
010100
010106
010110
010114
010120
010122
010124

2264
2265
2266
2267
2268

010126
010130
010134
010140
010142

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

000000
000116

GO2132

000131

002176

177777
000002

gzzgg

2265
2270

BNE
MOV
MOVB
DECB
BNE
TSTB
BEQ
MOVB

MOV

2242
2243
2244
5522

PAGE S0

.SETFLG:MOV
a(SP) RS
CMPB #'N, INBUF
JIS IT N2
BNE
1%
CLRB
(RS)
;000
BR
2%
1%:
CMPB
#'Y, INBUF
:3% 11 "V 2
BNE
3s
MOVB
#-1,(RS)
: 377
2%:
ADD
#2,(5P)
RT]
38
INSTER
:RETRY
BR
LSETFLG
:TRAP DISPATCH SERVICE
*ARGUMENT OF TRAP IS EXTRACTED
“AND USED AS OFFSET TO OBTAIN POINTER

“TO SELECTED SUBROUT
INE

010146
010152

011646
162716
017616
006316
042716

062716
017616

000002

000000
177001

001366
000000

.TRPSR: MOV
SUB
MOY
TRPOK:
ASL
BIC

ADD
MOV

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

i(SP) (SP)
(SP)
#177001, (SP)

#."RPTAB, (SP)
.<sp) (SP)

:GET PC OF RETURN
‘=P OF TRAP
‘GET TRP
SMULTIPLY TRAP ARG BY 2
*CLEAR UNWANTED BITS

*POINTER TO SUBROUTINE ADDRESS
:SUBROUT
INE ADDRE SS

CZDUF=D MACY11

CZDUFD.P11
gg;;

010156

30A(1052)

21-NOV-78

18-JUL=-78 15:59

15:52

000136

JMP

gs;z
2275

2276
2277

010160

010162
010170

2279

010176

2281
2282

010204
010210

104413

032777
001061

021667
001404

2280 010200 011667
105067
104406

2283 010212
2284 010214

011605
162705

2286
2287
2288
2289
2290

010222
010224
010226
010230
010234

006304
061504
006304
042704
062704

229%
2295
2296

010254
010260
010262

105767
001403
005767

2298
2299
2300
2301
2302
2303
2304
2305
2306
2307

010270
010272
010274
010302
010304
010306
010312
010314
010316
010320

104410
010422
112767
104402
000000
005767
001402
104402
000000
005767

2309
2310
2311

010326
010330
010332

104410

2314

010342

010220

011504

020000

170710

JHLT:

170736

2308

231;
2313
2315

2316
2317
2318
2319

2320
2321
232;
2323
2324
2325

2326

SEQ 0048
A(SP)+

010266

010324

001014

001402
104407

170730

;GO TO SUBROUT
INE

1$:

177001
013040

TSTR
BEQ
ST

ERRFLG
TYPMSG
DATARP

MOV

MOV
MOV
MOV

170766

000042

177777

BNE

170744

000004

012600
104413
005267

170550

TYPMSG: CONVRT
ERTAB0
MOVR
TYPE
ERRMSG: 0
ST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST

HALTS:

170510

002000

170500

170510
001100
170474

170504

#-1,ERRFLG

DATAHD
TYPDAT
DATABP

aSwR
EXITER

MOV

2(SP) RO

BIT
BNE

1%:

TYPDAT

TST
BPL

HALT
POPRO
EXITER: CKSWR
INC

BIT
BEQ
MOV
MOV
JMP

(R&4) +,ERRMSG
(R4 )+ . DATAHD
(R&4) ,DATABP

RE SREG

PUSHRO

000400

(RS) R4

BEQ

CONVRT
DATABP: 0
RESREG: RESOS

“INHIBIT ERROR TYPE OUT ?

(SP) ,LSTERR

R&
(RS) ,Ré4
R&
#177001 ,Ré4
#.ERRTAB
R4

000002

000177

ERRFLG

ASL
ADD
ASL
BIC
ADD

016600

010414

(LRB
SAV0S

:CHECK FOR *G

(SP) ,LSTERR

(SP) ,RS
#2 RS

010344

032777
001007
032777
001407
016767
012706

MOV
SUB

170540

010
010370
010372
010400
010402
010410

BEQ

000002

005777
100005

010350
010352
010354
010356

#5W13,aSWR
HALTS

MOV

171036

010334
01030

010046

CKSWR

BIT
BNE

CMP

2291 010240 012467 000040
2292 010244 012467 000046
2293 010250 011467 000054

2297

:ERROR HANDLER

2278 010172

2285

PAGE 51

ERRCNT

#SW08, 3SWR
1%
#5W10,aSWR
2%
NEXT ,RTRN
#_"ACK,SP

WRTRN

SCHECK FOR *G

:LOOP
ON ERROR ?
;ESCAPE TO NEXT ON ERROR ?

;SET UP FOR NEXT TEST
‘REINITIALIZE SP

CZDUF=D MACYi1

CZDUFD.P11

30A(1052)

2327
2328

010420
010422

000002
000001

2330
2331

010426

001174

2334

010430

010046

23%1
232

010450
010454

2329 010424

5335
2335
2336
2337
2338
2339
2340

010432
010434
010436
010440
010442
010444

233 010462
5;’2? 010464

21-NOV=78

18-JuUL-78 15:59

006

010146
010246
010346
010446
010546
0167646
010667
012767

000000
000777

15:52

PAGE 52

2%:
RTI
ERTABC:
1

002

BYTE

MOV
MOV
MOV
MOV
MOV
MOV

167354

MOV
MOV

167342

1%:

%%4‘9

010466

016706

170500

2355

010506

012767

010430

358
2359

010526
010532

005067
005267

001532
001526

2361
2362
2363
2364
2365
2366

010540
010542
010544
010546
010550
010554

104410
010564
104402
011437
005067
005067

010472 012605
010474 012604
010476 012603
010500 012602
010502 012601
010504 012600

2356 010514
2357 010522
2360

2367

010536

010560

012767
012706

001375

000177

238

010564

000001

2370

010570

001114

2369 010566

$370

006

000340
001100

RESTAR: MOV

2375

;SAVE RO=-R5 ON PROCESSOR STACK

SP,SAVSP
#RESTART , 24

;SAVE STACK POINTER
sSET UP FOR POWER UP TRAP

R1.=(SP)
R2.=(SP)
R3,=(SP)
R4 ,=(SP)
RS.=(SP)
24 ,=(SP)
1%

“HALT ON POWER DOWN NORMAL

167310

MOV

1$:

170330

PFTAB:

002

JRESTORE STACK POINTER

#.PFAIL,24

;SE. UP FOR POWER FAILURE

(SP)+.RS
(SP) +.R&
(SP)+.R3
(SP)+.R2
(SP)
+ .R1
(SP)+.R0

MOV
MOV

#340,PS
#STACK,
SP

BNE

CLR
INC

CONVRT
PF TAB
TYPE
MPFAIL
CLR
CLR

170472
170354

SAV3P,SP

TEMP
TEMP

ERRFLG
LSTERR

JMP

aRTRN

BYTE

6.2

RTRN

*RESTORE RO-RS

;CHECK SWITCH REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING
_

S0F LOC.176.

2;;9

010572

000000

378
2379

010574

005737

2380
2381
2382

MOV
MOV
MOV
MOV
MOV
MOV

167254

2373

2374

HAL T
BR

RO,=(SP)

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

2348

239
2350
2351
2352
2353
2354

6,2

SAVP(
;ENTER WERE ON POWER FAILURE
PFAIL: MOV

170516
010466

SEQ 0049

010600
010602
010610

001042
022767
001036

LOCATIONS USED:

RDSW:
000042

000176

_
170270

LCKSWR: TST

BNE
CMP
BNF

.WORD

Y%,

ouT
#2 REG, SWR
ouT

:SOF TWARE SWITCH REGISTER PRESENT
*NO, GET ouT

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

2383
2384

010612
010616

2387

010634

15:52

PAGE 53

SEQ 0050

105777
100033

170266

122767

000007

104402
005137
104402
104411
104403
104405
000000
177777
000176

010722
010572
010727
010714
010737

2395
239
2397

010644
010650
010654
010660
010664
010670
010672
010674
910676

2399
2400
2401
2402
2403
2604
26405
24606

010702
010706
010712
010714
010716
010720
010722
010727

104402
005037
000002
000001
006
000176
005015
015

011434
010572

043536
0518&8

000
051127

TYPE ,MCR.F
ouT:
CLR
SHRDSW
RTI
SWREGC: 1
BYTE
6,2
SWREG
S$CNTG:
LASCIZ <15><12>/%G/
$MSWR:
.ASCIZ <15><12>/SWR= /

2408

010737

040

047888

053505

SMNEW:

.ASCIZ

2410
26411

010750

010750
005015

042012

030525

.EVEN
MTITLE:

.ASCIZ

<15><12><12>/DUT1

2616
2417
2618
2619
2620
26421
2422
26423
26424
2625
2426
2427
2428
2429

011002
011010
011016
011024
011032
011040
011046
011054
011062
011070
011076
011104
011105
011112

042526
040440
051523
051461
044526
042522
051105
051124
043505
020122
051505

052182
0421
55
020124
042503
042503
041440
046117
051511
042101
026523

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS=/

MREGAD:

.ASCIZ

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

04041;
052517

042522
051040

MMULT:

LASCIZ

<15><12>/ARE YOU RUNNING MULTIPLE DEVICES ? (Y OR N)=/

MLASTD:

,ASCIZ

<15><12>/LAST DEVICE:RECEIVER CONTROL REGISTER ADDRESS=/

2385
2386

010620
010626

017767
042767

2388 010642

001021

2389
2390
2391
2392
2393

2398 010700

26430
2431
26432
2433
2434
2435
2636
2437
26438

011120
011126
011134
011142
011150
011156
011164
011172
011200

000

0000
005015

051117
042522
005015
042504
020072
053111
047117
051040
042524
051104
000
015
054440
047125
046440
046120
044526
029077
02012
005015
042040
035105

170262
177600

176352
176344

@TKCSR
ouT

;YES,WAIT FOR
“READY, GET CHARACTER

CMPB

#7,.MSG

YIS IT A <G>

MOV
BIC

176336

BNE

aTKDBR, .MSG
#177600, .MSG

ouf

“AND STRIP OFF
*THE GARBAGE

TYPE ,$CNTG
.CNTLU: COM
QNRDSW
TYPE
, SMSWR
CNVRT, SWREGC
INSTR
. SMNEW
PARAM
0
177777
SWREG

001

.BYTE

002

044512
046125
020105
042503
854450
24516
040514
053105
042522

TSTB
BPL

043516
044524
042504
020123
047442
02005
052123
041511
042503

0,1

NEw= /
(ZDUF=D TAPE F /<15><12>

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

2439
2640
2641
2642
2643
2444
2445
2446
2447
2448
2649
2450
2451
2452
2453
2454
2455

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

2456

011344

2466

011430

2469
2470
2471
26472

011444
011452
011460
011466

2457
2458
2459
2460
2461
2462
2463
2464
2465

2467
2468

053111
047117
041040
040524
0511064
000
075
042503
015
047040
047522
053517
051456
020124
044124
047524
040040

043505

051105
051124
043505
020122
051505

041440
046117
051511
042101
026523

042504
020040
044012
053517
047127
020077
046105
047523
047111
051040
041501

044526
000
053517
041040
041440
027056
04150C5
042515
020107
047125
051124
052125
040522
042522
046040
042504
051040
040440
051523

000

011347
011354
011362
011370
011376
011404
011412
011420
011426

015
047440
043516
054524
051501
044526
041530
042104
000055

047412
020106
035105
042520
020124
042503
051123
042522

011434
011437

005015
040

000
050040

2473 011474
2474 011502
2475 011510
2476
. 011516
2477 0115246
2478 011532
2479 011540
2480 011546
2481
011551
2682 011555
2483 011562
2484 011570
2485 011576
2486 011604
2487 011612
2488 011620
2489 011626
2490 011633
2491 011640
2492 011646
2493 011654
2494 011660

020040

000077

051105
052514
051120
020115

043040
042522
043517
042522

051101
052040
047111
051107
005015
043117
020123
04304
015
015
020124
005015
047440
042514
052040
024040
047040
015
051120
054524
046105
005015

15:52

020124
051505
050040
051505
047105
050040
040524
000
051012
052012
041520
047514
020116
052103
051505
020131
026451
042012
047511
046040
000055
020043

053517
044507
020054
040522
052123

052101
020124
047522
000123
020104
051501
042520
000
051505
000055
045503
042523
o:.;ws
037524
051117
000
020125
ou.szg
05310
043117

PAGE 54

SEQ 0051

DEVICE:

.ASCIZ

/=DEVICE

MCOwW:

LASCIZ

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

MRANGE:

.ASCIZ

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

MQM:

LASCIZ

LASCIZ
.ASCIZ

<15><12>
/ POWER FAJLURE, PROGRAM RESTART AT TEST IN PROGRESS/

MEPASS:

.ASCIZ

<15><i2>/END
OF PASS TAPE f/

MR:
MTSTPC:

ASCIZ
.ASCIZ

<15><12>/R/
<15><12>/TEST P(C=/

MLOCK:

.ASCIZ

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

MLEVEL:

.ASCIZ

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

MSYNC:

.ASCIZ

<15><12>/# OF SYNC CHARS SELECTED ( 1 OR 2)=/

MCRLF:
MPFAIL:

18-JuL~-78 15:59

—_

051511

051440

020123

MWIRES: .ASCIZ

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

MWIRE4: .ASCIZ

<15><12>/1S OPT CLR ENABLE JUMPER #4 IN? (Y OR N)=/

.ASCIZ

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

046525
032043
024040
04704

045040
020122
037516
051117
000

2524
2525
2526
2527
2528
2529
2530

012122
012130
012136
012144
012152
012160
015166

044126
052123
042516
044440
046114
054450
024516

020105
041440
052103
051516
042105
047440
000055

042524
047117
051117
040524
037440
020122

2532
2533
2534
2535

012200
012206
012214
012222

052123
020040
020040
000015

052101
046440
020040

051525
050101
005040

2536
2537

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

~
o

044412

W
n
&H
P
W

054450
024516

042514
2520
044440
020131
026451

2531

MWIREG: .ASCIZ

020066

020077
020122

012062
012070
012076
012104
012112

015

044412 020123 MEXTJ:

012172 00641% 020040 0

MSTATUS: .ASCIZ

;BUFFERS FOR INPUT=QUTPUT

2560 012224

000040

INBUF:

012324

000040

MDATA:

2541

254

012264

000040

2544

.BLKB

TEMP:

.BLKB

ANAR AR

.BLKB

546

547

2548 0155% 006367 000044
0123
012374

006367
006367

000040
000034

&)
&)

AR RN A AR AR

JUTILITIES

IERARRRAR AR AR RAR AR

2545

2549
2550

/ <12> <15>

MAP

STATUS

<12> <15>/

.EVEN

%g%g
2542

SEQ 0052

—_

051440

51511
w

024462

04
122

2518
2519
2520
2521
2522

2523 012115

PAGE 55

02010

—

gess??8828§

RER &~
2

£ =ONO—=WNHON =]
=N S NNO IW
NONNO VN0

n
&~

pord

051440

S22 RRS
293
-\
SUSR

D
D

NNNNNNNN

D e

~NO~

i TANNEE. O~
oo R J\OONbg

i o
i
il

D
D o

i
i
b

) i

— e e

s e

[olelelelelelelolelolelelelele]
o

—-—

—

-—

012010
ny

2
2510

15:52

21-NOV-78

CZDUF=D MACY11 30A(1052)

CZDUFD.P1

AR AR

E TR

AR RN

RN RN AR

RANARA AR

RRR RS TR R

:THIS UTILITY CALCULATES PRIORITY LEVEL

DULEV:

ASL

ASL
ASL

DUPRT

DUPRT
DUPRT

;SHIFT LEFT
;
;

R RR RN AR AR AR,
R AR

R R

MACY11 30A(1052)

SRSt R R R RN R

A A A

S S

NAR

-8 -3 8- o8et vl

vivioawnawv

NONLNLNL NN ML ML AL NN AL ML NN ML N NN N NN NN N N NN NN NN AN A N N NN NN N NN NN N NN NN

ZDUFD.P11

21-NOV-78

18-JUL=-78 15:59

012400
012406

006367
006367

000030
000024

012426

042767

000037

15:52

PAGE 56

ASL
ASL

SEQ 0053
DUPRT
DUPRT

012410 016767 000020 000020
012416 162767 000001 000012

MOV
SUB

DUPRT,LESS1
#1,LESST

012432
012434
012436

RTS
LEVELS
LEVEL4

012440
012446
012452
012460
012464
012472
012500
012504
012512
012520
012524
012532
012536
012544
012550
012556
012562
012570
012572

000207
000240
000200
016767
005267
016767
005267
016767
016767
005267
016767
016767
005267
016767
005267
016767
005267
016767
005267
016767
000207
000000

000004

BIC

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

000422

000412
000402
000400
000364
000362

000352
000342
000332
000322

#37,LESS1

:MOVE THIS TO LESS?
*CREATE LESS1

*CLEAR TNZVC

;LEVEL TO ALLOW INTERRUPTS

:NSU DU ADDRESSES

DUADDR: MO
INC
MoV
INC
MOv
MOV
INC
MoV
MOV
INC
MoV
INC
MOV
INC
MOV
INC
MoV
RTS
DUBASE: 0

DUBASE ,RXCSR
s XXX0
DUBASE
DUBASE ,HRXCSR ; XxX1
DUBASE
DUBASE ,RXDBUF
; XXX2
DUBASE ,PARCSR ; XXX2
DUBASE
DUBASE ,HRXDBUF ; XXX3
DUBASE ,HPARCSR ; XXX3
DUBASE
DUBASE , TXCSR
s XXX4
DUBASE
DUBASE ,HTXCSR ; XXX5
DUBASE
DUBASE, TXDBUF ; XXX6
DUBASE
DUBASE ,HTXDBUF ; XXX7
PC

sTHIS UTILITY POKES THE MAINT DATA BASED UPON THE

s INFORMATION CONTAINED IN TEMP1 AND

012574
012602
012606
012612
012616

042777
005067
006067
006067
006267

012622
012630
012636
012644
012652
012656
012660

042767
056777
042777
052777
005367
001346
000207

012662
012670
012674
012700
012702
012706
012712
012716
012720

016767
005067
012727
000000
006067
005567
005367
001371
006067

040000
166340
166332
166330
166324
100000

166312
020000
020000
166262

166256
166254
000010

166240
166236
177762
166224

000302

RPOKE:

166316
000246
000240
000232

166256

;SHIFTED IN BY THE CONTENTS OF SHIFT
BIC
#MTDATA,QTXCSR

CLR
ROR
ROR
ASR
BIC

BIS
BIC
BIS
-DEC
BNE
RTS
0DD8:
1%:
2%:

TEMP?
TEMP1
TEMP2
TEMP2

;FORCE CARRY
;PICK UP CARRY IN BIT 15
;SHIFT INTO BIT 14
#BIT15,TEMP?
;CLR BIT 15

TEMP2,aTXCSR
#CLK,aTXCSR
#CLK,aTXCSR
SHIFT
RPOKE
PC

; THIS ROUTINE

MOV
CLR
MOV
0
ROR
ADC
DEC
BNE
ROR

IT IS

CALCULATES ODD PARITY FOR AN 8 BIT

TEMP1,TEMP?
TEMP3
#8.,(PC)+

TEMP2
TEMP3
1%
e
TEMP3

;POKE MAINT DATA
sPOKE (LK
:

;SAVE TEMP1

(HAR

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

2607
2608
2610
2611

gg;g
2614

2615

2616

012724
012726
012734
012736

103404
052767
000400
042767

012744

000207

012746

016767

012754

005067

000400

166210

000400

166200

166172

166170

012760
012764

012727
000000

060010

2620
2621
2622
2623
2624
2625
2626

012772
012776
013002
013004
013010
013012
013020

005567
005367
001371
006067
103004
052767
000403

166152
177762

2627

2628

2629

012766

013022

006067

042767

PAGE 57

3%:

4$:

2617
2618

2619

15:52

166172

166154

000400

166114

RTS

:THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER

MOV

1$:

MOV
0

#8..(PC)+

ADC
DEC
BNE
ROR
BCC
BIS
BR

TEMP3
1%
2$
TEMP3
3$
#S1T8, TEMP
4$

166140
166124

BCS
3%
BIS
#BIT8,TEMPT
;SET ODD PARITY
BR
3%
BIC
#BI1T8,TEMP1
;CLR EVEN PARITY
;TEMP1 NOW HAS ODD PARITY CHARACTER

EVEN8:

2%:

000400

SEQ 0054

3$:

ROR

BIC

TEMP1, TEMP2

TEMP3”

#B81TS, TEMP1

013030

000207

2632

013036

000002

2634
2635
2636
2637
38
2639
2640
2641
2642
2643
2644
2645

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

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

.ERRTAB:

2647
2648
2649

013070
013072
013074

160040
160041
160042

RXCSR:
160040
HRXCSR: 160041
RXDBUF: 160042

2651
2652

013100
013102

160042
160043

PARCSR: 160042
HPARCSR :

160043

160047

HTXDBUF :

160047

2631

2633

2646

2650

2653
2654
2655

2656

2657

2658

2659
2660
2661

2662

013076
013104
013106
013110

013112
013114

013116
013120
013122

160043
160044
160045
160046

09770

000772
000774
000776

;SET EVEN PARITY

:CLR ODD PARITY

;TEMPT NOW HAS EVEN PARITY CHARACTER

013032

000002

:SAVE TEMP1

TEMP?

2630

062716

4%:

CLR

RTS

TRPREG: ADD

#2.(SP)

RTI

JERROR HLT TABLE
EMO
0
0
EM1
DH1
DT1
emz
DH1
DT1
EM3
DH1
DT1

:ALLOW IT TO ''CRUNCH'' INTO HLT BACK

;IN MAIN PART OF THE PROGRAM
:HLT 0

BIT ERROR (GENERAL)

;HLT 1

;HLT 2

RECEIVER ERROR

;HLT 3

TRANSMITTER ERROR

:DEFAULT DU ADDRESSES

HRXDBUF :

TXCSR:
160044
HTXCSR: 160045
TXDBUF: 160046

DURIV:

DURIS:
DUTIV:
DUTIS:

160043

-DEFAULT DU VECTORS

770
772
774
776

:REC INTR VECTOR

*REC INTR STATUS
SXMIT INTR VECTOR
“AMIT INTR STATUS

;ERROR ME SSAGES

EM3:

JASCIZ

DH1:

;DATA HEADERS FOR ERROR MESSAGES
LASCIZ
/EXPECTED
ACTUAL/

.EVEN
DT1

%DATA TABLES FOR ERROR MESSAGES

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

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

v—

N
N

LASCIZ

EM2:

LASCIZ

ERROR PC/

EM1:

iags

LASCIZ

Bom

S =2roRVIWND

SEQ 0055

N=OO0—=
N0 ==
Voo
S=rnonowv

PAGE 58

—NO
=
o ooy
W RSN

g
R

iy
)

040525

15: 52
EMO:

QOO
R
RGSRR
R
wvinonD
833

SSRR

wviownwn

= \N NN
=

SRR
RARRISKORRISK
VINOOWVNOO-=UNNoNO
O =L

HSN0

ow—aabfou- NN
n
-b

13260

N —

PSSO SSRRIROSRR

NO WSS SN
oo
S~

IWWWWWW

eleleBelelelelelelolololsls) olelplelelololeleles)
D o
il i i
i el ) o
_—a
—_—

CZDUF-DP??CY11 30A(1052)
21-NOV-78
CZDUFD
18-JuUL=-78 15:59

044507
020040

000114

BYTE

6,4

BYTE
SAVRO
BYTE
SAVR1

6,4
;EXPECTED DATA
6,2
;ACTUAL PATA

SAVR3

.END

;REGISTER

CZDUF=<D MACY11 30A(1052)

216N0V-78

AAA

1178#

CZDUFD.P1M

18-JUL~-78 15:5

002520

ACTREG
ADDBAS
ADDKEE
ADDLAS
ADDROT
ADRCNT=

001216
001306
001310
001312
001322
007541

BASEAD
BASEDU
BASEIV

001204
001364
001212

888

002336

A10010=

wxxsxx

(GX

BIT6
BIT7
BIT8
BIT9

000100
000200
000400
001000

= 000020
= 000040

=
=
=
=

BREAK = 000001

BRW
BRX

007072
007074

CcCcC

BUFFT
BUFHRX
BUFHTX
BUFRXD
BUFTXD
BYJMR
CARDET=

000002R
001346
001362
001344
001360
001305
010000

CHRCNT
010054
CKSWR = 104413
(LK
= 020000

1141

1148+

1230

1948

1951

1961

893#%
9614
1338‘

1058«
1072
1064 *

1065+
1238+
1118+

1108+

1145x

1146

1152+

1154«

1225

1955+

1967+

1971

1229

1956+

1968+

1973

1974

1975

1976%

1977

1978+

1979

807
806
805

2589

809

2608

2510

2625

2627

1436
1576

1437
1616

1440
1617

1441
1620

1457
1621

677

1125

11294

2203

22404

815

750%
7494
748%
7478

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

1290
1291

1304
1305

7564
7554
7464

7434
74204
7414
7544
7534

7524
7514

8154

808
789

788
787
786
1293
814
813
812

811
810
792
791

20414
20424

6778
954#
960#
953%#
95%%
9344
7728

1267
1076
1082
1075
1081
1057

2200
9934
807#
1458

2204
2
1346
1486

2218+
2022
1347
1526

22384
2046
1350
1527

2239
2275
1351
1530

2318
1367
1531

1368
1547

1396
1548

1831
1055

1884
1222+

1891

1901

1908

2591

2592

2392
1276
1359+
1266+
1078
1074

1944
1371«
1278+
12644
1240+

2298
1449+

2309
1461+

2361
1539«

1551+

1629+

1947

1637

CLROPT

001303

1824
932#

CNVRT =
CONVRT=
COUNT
COUNTT
CSRHPA
(SRHRX

104411
1044170
001142
001230
001352
001347

98%
987#
86954
9094
9564
9524

CNTLU = 104414

SEQ 0056

1140*

7454
7448

BIT4
BITS

CROSS REFERENCE TABLE == USER SYMBOLS
1126+
1225+
1226*
1227
1231+
21614

BIT11 = 004000
B8IT12 = 010000

020000
040000
100000
000004
000010

1062+
1058
1059
1060
1063
2152«

2202«
8084

BIT13 =
BIT14 =
BIT15 =
BIT2 =
BIT3 =

PAGE 60

898#
938#
9394
9%40#
9444
2113«

BINWRD
010056
BITW = 002000

BITO = 000001
BIT1
= 000002
BIT10 = 002000

15:52

9954

1970

1638

1040

1273
1242+
1248+
1241%
1247+
1224+

19874

1666

1705

1706

1710

171

1755

1756

1760

1761

1807

1641«
»

1814

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

CSRHTX
CSRPAR
CSRRX
CSRTX
(TS
=

001356
001350
001340
001354
020000

DATABP

010330

DATAHD
DEVADR
DEVICE
DH1

RRRRRN

15:52
PAGE 61
CROSS REFERENCE

SEQ 0057

TABLE == USER SYMBOLS

9584
9554
9514
GX

676

23104

010316
007536
011245
01331

26854

000174

DISPRE

013124
013140
013202
013244
001132
001246
010304
010422
012746
001400
000400
010354

FILBUF

FIVE
FLAG

—wun

Wn—unh

26904
1238

2572+

2573

1971«

2561

2562+

2563

2564~

2577

2565
25794

2548+
26594

2549+

2550+

2551«

2552«

2553

25574

1118

1233

1973«

1980

26584

1749

1801

1878

2035+

2281

2294

2300+

2365+

1833

1886

1892

1903

26614
26604

2574~

2575

2576%

003204

001222

FRMERR= 020000
HALTS
010334

HDXEN = 000010
HEREU
003132
HILIM
007534
HOLD
001136
001224
HOLDO
HOLD?
001226
HPARCS

EMO
EM1
EM2
EM3
ERRCNT
ERRFLG
ERRMSG
ERTABO
EVEN8
EVEPAR=
EVPAR =
EXITER

EIGHT =

012364
012434
013116
013114
013122
013120

8\‘\‘—‘\‘\1!
\4801\
NONVNY
=

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUTIV

013332
012440
012572

D e

DT
DUADDR
DUBASE

DTR

—

001304
100000
000040
100000
000040
001000
177570

AOOV—=0N

DMULT
DNA
=
DNAINT=
DSC
=
DSINTE=
DSR
=
DSWR =

Y =N

DLIGHT= 177570

013102

1259

1263+

182¢
26528

1910

2566

2567+

2568

(ZDUF=D MACY11

CZDUFD.PN
HRXCSR
HRXDBU
HTXCSR
HTXDBU
ICOUNT
INBUF

013072
013076
013106
013112
001122
012224

INIFLG 001244
INSTER= 104404
INSTR = 104403

INSTR2
I1SYMOD=
IVBASE
IVKEEP
JMRBY
KEEPAD

007320
000000
001314
001316

001203
001206
KEEPIV
001214
LASTAD 001210
LESS1T
012436
LEVELO= 000000
LEVEL1= 000040
LEVELZ2= 000100

LEVEL3=
LEVEL4=
LEVELS=
LEVEL6=
LEVEL7=

000140
000200
000240
000300
000340

LOCK

001120

LIGHTS
LIMITS
LOBITS

30A(1052)

21-NOV-78

18-JUL=-78 15:59

1074«
1076+
1080+
1082«
8584
1181

919#
9794
1%(7)20

2085
7964
%14
%28

885
894#
897#
895#
1070~
7664
7654
764K

001102
007462
007540

7634
7628
7614
7604
7594
8474
2126
2112«

006660
001247
007532
001124
001134
001336
011434
012324

15:52

1240
1242
1246
1248
2033
1185

1019
1189
‘1?(3)3-%

2563%
2568+
2573%
2577+
2037+«
2074

2116

2248

2252

25404

2257
119

1130

1155

1165

1179

1192

1207
1065
1117+«
1135
2553+

1224
1106«
1228
114¢
2554+

1790
1108
1968
1160
2555+«

1867
1152

1154

1226

1967

1516+

1606+

2049

2033
2278

2036+
2280+

2366+

2190

2399

24678

1431
1220+

1521

1611

1696

1746

1400

T 7

a9/

517

1587

1607

1672

1022+
2135
1109

1064
1061

1057+«
1059+
1061~
1060+
1237

1229+
1228+

2161

1995#
9228
2109~
8594
8634
9504

1298
2142
1010«
1015+
1070

1299
21574
2032~
1988+
1237

1277
2216

2082
2227

2098
2542#

MEXT
= 010000
MEXT)
012115

8194
1205

1798
25234

1875

MLEVEL
MLOCK

011633
011570

1166
1296

MPFAIL

011437

2364

MEPASS

011524

MCRLF
MDATA

MINT
= 004000
MITSEX
001301
MLASTD 011164

MMULT

MQM
MR

MRANGE

011105

011430
011551

011347

MREGAD 011024
iMESEY'- 000400

1037
1950

1943

8184
9304
13

1120

1336+

1039
Q4478

24778

1341
1053
24364

1204

1295

1690

1692

1740

1762

1227
2558«

1426

1047#

24904
2484w

2428n

2995
1318

24684
24664
24814

1099
809«

24194
1337

1156

1200

2558
2557

21604

001634
011257

1196

21004

1991«

MAP
MCOw

SEQ 0058

26484
26504
26544
26564

1033+

LOGICA
LOKFLG
LOLIM
LPCNT
LSTERR
L1ESS

CROSS REFERENCE TABLE == USER SYMBOLS

1024+
21404
2144

8574

PAGE 62

24578

H 5
15:52 PAGE 63
CROSS REFERENCE TABLE == USER SYMBOLS

1122

1123

1223

1287

1946

1605+

1689+

173G«

1789+«

1610

2018

2038

2324

1627+«

1691+

1699«

1167

1310

2394

)

1866+

<
o

O
uun-flgg<nu
Si

S NBWOO
——
[0 LNy
*
R

SEVTY OVOTIRNR

e e = PNIPONINY
=2 PNONONONONY —

NOWWNUNINES OSSNSOV

— e\
) —b -2

1871

1157

1357+
1870+

1432+
1878+

2566+

1447~

1522+

26514

1537«

1612«

213»

2141

2143

2145

—

1 741

LERAFLINL
—hflfi:;d‘(fivflnd

N ANUNY
= s aly

R
-

—a
P
b —a
O

1991

1869

SEQ 0059

1132

NNV ==
O &

) -

p—y

n
oo

-~
(o
o0

2 OWOO
VoWV

NCOON

RSN
[SIV IV, 8?4
~

A")

—

1792
1262
1180

§§—‘\rfi

]

OCOCOOOO

MWIRES

MWIREG

82322822R

MSTATUY
MSYNC
MTDATA=
MTITLE
MTSTPC
MUL TD
MVECTO
MWIRE4

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

1999+

2356+

239C+

2400+
1466

1532

1556

1622

1646

113G

1141

1143

1148

1151«

121

1958+

1961

1965+

1217

1219

2001

018

2019

2038«

2039

2324+

2326

1442

367

CZDUF=D MACY11

CZDUFD.P11

30A(1052)

= 000004
= wesesr
= swsenn |

RUND

= wesans |)

RUNE
RUNF

RUNIT

= wesesn

= weawen |
=

RXCSR

013070

RXDBUF

013074

RXDONE= 000200
RXERR = 100000

SAVPC
001174
SAVRO
001156
SAVR1
001160
SAVR2
001162
SAVRS
001164
SAVRG
001166
SAVRS
001170
SAVSP
001172
| SAVOS = 104406
SCOPE = 104400
SCOP1 = 104401

SEND =
SEREC
SETFG
SETFLG=

000020
001200
003144
104412

SHIFT

001140

SEVEN = 004000
SEXMIT 001177

53
53

70
70

148
148

664
664

148

664

1
1

1949

000176
010714
000001
000002
000004
000010
000020
000040
000100
000200

53
53

1955#

790

SEQ 0060

1352
1646

1376
1673

1403
1703«

1433«
1719

1442
1753«

1466
1769

1493
1805«

1523«
1845

1532
1882«

1556
1922

1382
1879

1428
1926

1472
2565+

1518
26494

1562

1608

1652

1700

1723

1750

1680
1662

1730

1780

1857

1934

1611

1696

1746

1798

1875

1202

1206

1267

1459

1545~

1549+

1635+

1639+

1707«

1712«

1713

1920

2593+

1047

1085

1217

1293

1306

2023

2030

2047

196

8784
8794
8804
881#
9834
9714
973

2165«
2174~
2173«
2172«
2171~
2170«
2169+
2341
2282
1410
1392

2330
2179
2180
2181
2182
2183
2184
2348

8134
886#
1260
9914
7994
8854

728%

2165
84

2276
374
2392
7084
7078
7064
705#
7044
703#
702#
701

1241
1802

1341
1054+
1262
1121
1520
1053«

1365+

664

148
148

1343«
1622
26474

1075«
1773
7778
7864
882#
8754
8764
8774

148

70
70

1239
1613«
2561+

STD
= 000010
STFLG
001245
STPSYN= 000400

SWREG
SWREGC
SWw00 =
SWw01
=
Sw02 =
SWw03 =
SWwO4
=
SWCS =
SWwO6 =
SW07 =

1073«
1583
1985

9258
7814
9204
7764

007550
001100

CROSS REFERENCE TABLE == USER SYMBOLS

782#
1
1

SIX
= 002000
SPACNT= 010055
SRD
= 002000

SVO0S
SwWR

PAGE 64

2370

1757«
798#
2201~
7744

STACK = 001100
STATUS 001300

15:52

18-JuUL=78 15:59

RTS
RUNA
RUNB

RUNC

21=NOv=78

1338
1849

2694
2696

2692

1500
1482

159(_)
157¢

1169

1221

1194

1198

1195

1220

1763

1767

1431

1369+

664
664

1521

1455~

1762«
1430
2220

2223+

223w

1008
1268

1284
1271

2325

1821«

1838+

1839

1843

1898+«

1915«

1916

1717

2357

1011«

1023+

2312
1032
24028
1085

2320

1047

1217

1306

1032«

2322
2381

1038

2381
2397

2404

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

15:52 PAGE 65
CROSS REFERENCE

SWO8
SW09
SW10
SWwil

=
00
= 001000
= 002000
= 004000

700#
699%
698
6974

2320
2047
2322
2030

SWw13
SWwi4
SWw1S

= 020000
= 040000
= 100000

6954
6944
6934

276
023

J SINCNO

= 010000

SYNEXT=
SYNINT=
SYNSCH=
SYSTST=
TABLE
TEMP
TEMP1
TEMP2

TEMP3

TEMPG

001176

884#

020000
030000
000020
014000
001232
012264

7954
7944
7804
8204
9104
2197

001150

8724

001144
001146

001152

TEMPS

()

001154

8704
8714

8734

8744

1052«
1691
1340
1343

1274
2205
2586*
2585+

2197«

1183+
1699
1430
1403

1275+
2230
2598
2587+

2230

1187+
1741
1520
1433

TABLE == USER SYMBOLS

1219

001104
001106
006102
001110
001112
010140
013032
001126
003446
003774
00432

8484
8454
1312
8504
8514
22674
26304
860#
1311
1335
1425

2026
2028
19364
2059
2061+

2086+

10716*

1334+

1424+

1514+

1334

2001

2002

TSTS
1ST6

005176
005410

1605
1689

T1ST8

006102

1317
14244
15144
16044
16884
17384
17884
18654

1936
1304*
1346+
1437+
1530+

TST4

1ST7
TSTO

TTST
TXCSR

004650

1515

1613

1673

1703

25414
2615
2590

2606

2625%
2598%

2616%

2627+
2602+

2620*

2623+

2615+«

2619

1604+

1688+

1738+

1788+

1865+

1305+
1347+«
1440%
1531+«

20244
1350+
1441+

154

1351
1450
1547+

1360
1457
1548«

1367«
1458+
1576+

17240
1831+

1742«
1869+

1746+
1871+

1755+«
1875+

1756+
1884+

1667

1672

1690+

1692+

1739

swswnn

1866

006774
013104

1290«
1079«
140;1517«

1291+
1245
1427+

1301+
1337«
1431«

1302«
1341+
1436%

1696+
179+

1612-

1921-

1630

2571

1705+
1798+

191-

2584%

2590+

2591+

2592«

2653s

8114
2297
975¢

2304
1021

;3070
§62

2295

52980

1789

013110

TXDONE= 000200
TXINTE= 000100
TYPDAT
010320
TYPE
= 104402

TYPMSG 010270

1081
1766
8104

2226

1521+

1247
1804+

1801

1870

1878

1753

1805

1882

1368+
1486*
1577

1396+
1487
1582+

1397
1492+
1607+

2087

1611

TXDBUF

2076
2078

1583

2385

TKCSR
TKDBR
TLAST =
TPCSR
TPDBR
TRPOK
TRPREG
TSTNO
TST1
TST
ST

1236+
1235+

1523

2383
2086

2603+

12844

106
1068

1644

2359+«
2610
2589+

1261

98¢
947#

1554

1276
2358+
2608+
2588+

003262

001332
001330

1464

1793

2599+

SEQ 0061

1374

1749
1610
1452

THRU

TISDU
TIWDU

1529-

1706*
1807+

1348«
1842+

2305

1527+«

1710«
12141358+
1881+

1277

2363

1711+
12241438w
1919+

1318

2289

14422675«

1942

2391

1637+

1638+

1666+

1760+
1891+

1761+
1901+

1792+
1908+

152226554

1538+

1618+

1628+

1702+

1716

1752+

1945

1950

2072

2082

2094

2098

2189

2399

CZDUF=D MACY11 30A(1052)
21=NOV~78
CZDUFD.P1
18-JuUL=78 15:59
uP
USER
=
VOID =
WRDCNT

ZERO

003224
000000
000001
010052

006436

SCNTG
010722
$E
= 000012

$MNEW
010737
$MSWR
010727
N
= 000010
sy

= 000015

$67

002142
= 013350

.BEGIN

12744

15:52
PAGE 66
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0062

1279

2228+

24054
1335

1515

15174

1605

16074

1689

16904

1739

17404

14274
19364
9774

1514

15174

1604

16074

1688

16904

1738

17404

9794

9814

9834

9854

9874

9894

9914

9934

9284
944H
9574

9294
9454
9584

9304
9464

9314
9474
9604

9324
9484

9334
9494
24104

9344
9504

9384
9514

9394
9524

9554

9614

25404

25414

25424

1935

1387
1624

678
1807

1823

1884

1900

1690

1740

1792

1869

1731

1781

1858

1192
1109

1196
1126

141

1501

1591

1350

1366

1436

1402

1427

1492

1208
1681
25%7

1399
1632

1405
1648

1646
1657

1452
1669

1440

1456

1526

1530

1517

1582

1607

1672

1477
1721

1489
1726

1495
177

1534
1776

1542
1847

1546

1616

1620

1636

1705

1709

1690

1692

1740

1742

1792

1794

1321

1935
1119
1098
1174
678
2272
2065

—_—

821
1023
2186
—ry

67748

67748
6774
6774

1378
1585

$MSG

$MRR
$MRRW
$MRW

1362
1579
1929

6774
6774
6774
6774
677#
677#
6778
6774
6774
6774
677#
6774
677#
677#
677#
6778
6774
6778
6778
6774
6778

1567
1924

SEQ 0063
b

677#

PRGFRT
PUSSYF
RSE TUP
TSETUP
$BEGIN
$BINAR
$BUFFE
$CABLE
$CATCH
$CLRVE
$CONVR
$DNA
$EOP
$GETFL
$GE TPA
$GETSY
$HEADE
SHLT
$INSTR
$1S08
SMATCH

1354

-y

PRGEND

73848

1558
1852

—_—

HLT

15:52 PAGE 68
CROSS REFERENCE TABLE == MACRO NAMES
o
NON
oo

CZDUF=D MACY11 30A(105 )1 21-NOV~78
CZDUFD.P11
18-JuUL=7
5:59

CZDUF<D MACY11

CZDUFD.PT

SWORDF
$WORDO
$WORDP

6774
6774
6774

. ABS.

013350

30A(1052)

21-NOV=78

18-JuL-78 15:59

ERRORS DETECTED:

15:52

PAGE 69

CROSS REFERENCE TABLE == MACRO NAMES

000
O

CZDUFD.BIN,CZDUFD.SEQ/CRF
/SOL/NL : TOC=CZDU11.HLO/EQ:RUNF ,CZDUT1.PAR,CZDUT1.KET,CZDUFD.P11
RUN-TIME: 6 9 .9 SECONDS
RUN-TIME RATIO: 103/16=6.1

CORE USED:

18k

(35 PAGES?

SEQ 0064